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