AppFS
Check-in [a189f64907]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:More work on basics
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:a189f6490728bfc6db74010bbc46bc2ffe620cee
User & Date: rkeene on 2014-09-08 01:24:33
Other Links: manifest | tags
Context
2014-09-08
02:33
Updated to populate SQLite database with all package data check-in: 48a551bede user: rkeene tags: trunk
01:24
More work on basics check-in: a189f64907 user: rkeene tags: trunk
2014-09-07
11:24
For now, build with a libtclkit check-in: eb0e4ee1e1 user: rkeene tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified Makefile from [ee7ac2e5da] to [e4bc3f72c7]. 

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23


TCLKIT_SDK_DIR = $(shell pwd)/build/libtclkit-sdk-cvs_HEAD
ifneq ($(TCLKIT_SDK_DIR),)
TCLCONFIG_SH_PATH = $(TCLKIT_SDK_DIR)/lib/tclConfig.sh
TCL_LDFLAGS = -Wl,-R,$(TCLKIT_SDK_DIR)/lib
export TCLKIT_SDK_DIR
else
TCLCONFIG_SH_PATH = /usr/lib64/tclConfig.sh
endif
TCL_CFLAGS = $(shell . $(TCLCONFIG_SH_PATH); echo "$${TCL_INCLUDE_SPEC}")
TCL_LIBS = $(shell . $(TCLCONFIG_SH_PATH); echo "$${TCL_LIB_SPEC}")

all: appfs

appfs: appfs.o








|








9
10
11
12
13
14
15
16
17
18
19
20
21
22
23


TCLKIT_SDK_DIR = $(shell pwd)/build/libtclkit-sdk-cvs_HEAD
ifneq ($(TCLKIT_SDK_DIR),)
TCLCONFIG_SH_PATH = $(TCLKIT_SDK_DIR)/lib/tclConfig.sh
TCL_LDFLAGS = -Wl,-R,$(TCLKIT_SDK_DIR)/lib
export TCLKIT_SDK_DIR
else
TCLCONFIG_SH_PATH = $(shell echo 'puts [::tcl::pkgconfig get libdir,install]' | tclsh)/tclConfig.sh
endif
TCL_CFLAGS = $(shell . $(TCLCONFIG_SH_PATH); echo "$${TCL_INCLUDE_SPEC}")
TCL_LIBS = $(shell . $(TCLCONFIG_SH_PATH); echo "$${TCL_LIB_SPEC}")

all: appfs

appfs: appfs.o

Modified appfs.c from [c35d6d98f1] to [1eae70cf2b]. 

123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

	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);
	}

	packages_tcl = Tcl_GetObjResult(interp);








|








123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

	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);
	}

	packages_tcl = Tcl_GetObjResult(interp);

Modified appfs.tcl from [aa538226b7] to [07f0ced01b]. 

1
2
3

4
5
6
7
8
9
10

#! /usr/bin/env tclsh

package require http 2.5


namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {



|
>








1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/env tclsh

package require http 2.7
package require sqlite3

namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {