[49067] trunk/base/src/macports1.0
toby at macports.org
toby at macports.org
Thu Apr 2 13:23:21 PDT 2009
Revision: 49067
http://trac.macports.org/changeset/49067
Author: toby at macports.org
Date: 2009-04-02 13:23:21 -0700 (Thu, 02 Apr 2009)
Log Message:
-----------
implement macports::version in C (oh boy!)
Modified Paths:
--------------
trunk/base/src/macports1.0/macports.c
trunk/base/src/macports1.0/macports.tcl
Modified: trunk/base/src/macports1.0/macports.c
===================================================================
--- trunk/base/src/macports1.0/macports.c 2009-04-02 20:09:13 UTC (rev 49066)
+++ trunk/base/src/macports1.0/macports.c 2009-04-02 20:23:21 UTC (rev 49067)
@@ -36,10 +36,22 @@
#include <tcl.h>
+static int
+macports__version(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])
+{
+ if (objc != 1) {
+ Tcl_WrongNumArgs(interp, 1, objv, NULL);
+ return TCL_ERROR;
+ }
+ Tcl_SetObjResult(interp, Tcl_GetVar2Ex(interp, "macports::autoconf::macports_version", NULL, 0));
+ return TCL_OK;
+}
+
int Macports_Init(Tcl_Interp *interp)
{
if(Tcl_InitStubs(interp, "8.3", 0) == NULL)
return TCL_ERROR;
+ Tcl_CreateObjCommand(interp, "macports::version", macports__version, NULL, NULL);
if(Tcl_PkgProvide(interp, "macports", "1.0") != TCL_OK)
return TCL_ERROR;
return TCL_OK;
Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl 2009-04-02 20:09:13 UTC (rev 49066)
+++ trunk/base/src/macports1.0/macports.tcl 2009-04-02 20:23:21 UTC (rev 49067)
@@ -2147,11 +2147,6 @@
return 0
}
-proc macports::version {} {
- global macports::autoconf::macports_version
- return $macports::autoconf::macports_version
-}
-
# upgrade procedure
proc macports::upgrade {portname dspec globalvarlist variationslist optionslist {depscachename ""}} {
global macports::registry.installtype
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090402/642e1c42/attachment.html>
More information about the macports-changes
mailing list