[49067] trunk/base/src/macports1.0

[toby at macports.org]

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>