Check-in [9b31b33a93]
Overview
Comment:Working on making the Tcl result usable by C
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:9b31b33a93321c3ec0ec4a74f3db24aee6937647
User & Date: rkeene on 2014-09-07 10:44:25
Other Links: manifest | tags
Context
2014-09-07
11:00
Added database notes check-in: 57183d69b5 user: rkeene tags: trunk
10:44
Working on making the Tcl result usable by C check-in: 9b31b33a93 user: rkeene tags: trunk
10:39
Fixed typo check-in: 7bb4db9baa user: rkeene tags: trunk
Changes

Modified appfs.c from [8303f7df05] to [c35d6d98f1].

   113    113   	}
   114    114   
   115    115   	return("unknown");
   116    116   }
   117    117   
   118    118   static struct appfs_package *appfs_getindex(const char *hostname, int *package_count_p) {
   119    119   	Tcl_Obj *objv[2];
          120  +	Tcl_Obj *packages_tcl;
   120    121   	int tcl_ret;
   121    122   
   122    123   	if (package_count_p == NULL) {
   123    124   		return(NULL);
   124    125   	}
   125    126   
   126    127   	objv[0] = Tcl_NewStringObj("::appfs::getindex", -1);
................................................................................
   129    130   	tcl_ret = Tcl_EvalObjv(interp, 2, &objv, 0);
   130    131   	if (tcl_ret != TCL_OK) {
   131    132   		APPFS_DEBUG("Call to ::appfs::getindex failed: %s", Tcl_GetStringResult(interp));
   132    133   
   133    134   		return(NULL);
   134    135   	}
   135    136   
   136         -	printf("result: %s\n", Tcl_GetStringResult(interp));
          137  +	packages_tcl = Tcl_GetObjResult(interp);
   137    138   
   138    139   	return(NULL);
   139    140   }
   140    141   
   141    142   static int appfs_getfile(const char *hostname, const char *sha1) {
   142    143   }
   143    144