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