tcc4tcl
Check-in [40255f4a4f]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:Example for compiling tcllibc -- very specific
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 40255f4a4f483f58c95d94f21b765a88f920a29c
User & Date: rkeene on 2019-06-05 00:34:17
Other Links: manifest | tags
Context
2019-06-05
00:38
Minor updates check-in: 6443047afb user: rkeene tags: trunk
00:34
Example for compiling tcllibc -- very specific check-in: 40255f4a4f user: rkeene tags: trunk
00:33
Added example script which converts Tcl script using Critcl to C files check-in: e5ddd6aaff user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Added build/tcllibc.sh version [e69b1a60d2]. 















































































































1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

#! /usr/bin/env bash

inFiles=(
	../tcllib-fossil/modules/tcllibc.tcl
	../tcllib-fossil/modules/md4/md4c.tcl
	../tcllib-fossil/modules/struct/graph_c.tcl
	../tcllib-fossil/modules/base32/base32_c.tcl
	../tcllib-fossil/modules/struct/sets_c.tcl
	../tcllib-fossil/modules/json/jsonc.tcl
	../tcllib-fossil/modules/pt/pt_rdengine_c.tcl
	../tcllib-fossil/modules/pt/pt_parse_peg_c.tcl
	../tcllib-fossil/modules/uuid/uuid.tcl
	../tcllib-fossil/modules/struct/tree_c.tcl
	../tcllib-fossil/modules/base32/base32hex_c.tcl
	../tcllib-fossil/modules/base64/base64c.tcl
	../tcllib-fossil/modules/base64/uuencode.tcl
	../tcllib-fossil/modules/base64/yencode.tcl
	../tcllib-fossil/modules/sha1/sha1c.tcl
	../tcllib-fossil/modules/md5/md5c.tcl
	../tcllib-fossil/modules/crc/crcc.tcl
	../tcllib-fossil/modules/crc/sum.tcl
	../tcllib-fossil/modules/crc/crc32.tcl
	../tcllib-fossil/modules/md5crypt/md5cryptc.tcl
	../tcllib-fossil/modules/struct/queue_c.tcl
	../tcllib-fossil/modules/rc4/rc4c.tcl
	../tcllib-fossil/modules/sha1/sha256c.tcl
	../tcllib-fossil/modules/struct/stack_c.tcl
	../tcllib-fossil/modules/dns/ipMoreC.tcl
)

set -e

outDir=''
function cleanup() {
	local localOutDir

	localOutDir="${outDir}"
	outDir=''

	if [ -n "${localOutDir}" ]; then
		rm -rf "${localOutDir}"
	fi
}
trap cleanup EXIT

outDir="tmp-$(openssl rand 20 -hex)"
rm -rf "${outDir}"
mkdir "${outDir}"

for input in "${inFiles[@]}"; do
	out="${outDir}/$(basename "${input}" .tcl)"

	./tcc-critcl-to-c.tcl --mode direct "${input}" > "${out}.c"
	cflags=($(awk '/^CLI:/{ gsub(/^CLI:/, ""); print; }' < "${out}.c"))

	"${CC:-cc}" -fPIC -Dinline= -o "${out}.o" "${cflags[@]}" -c "${out}.c" || continue
done

(
	cd "${outDir}" || exit 1

	cat << \_EOF_ > base.c
#include <tcl.h>
_EOF_

	for input in *.c; do
		object="$(basename "${input}" .c).o"
		if [ ! -f "${object}" ]; then
			continue
		fi

		grep '^/\* Immediate: ' "${input}"  | sed 's@^/\* Immediate: *@'$'\t''@;s@ *\*/$@@' | grep 'Tcl_CreateObjCommand' | cut -f 3 -d , | while IFS='' read -r symbol; do
			grep "${symbol}" "${input}" | grep -v '^/\* Immediate:' | sed 's@) {$@);@'
		done
	done >> base.c


	cat << \_EOF_ >> base.c
int Tcllibc_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
	if (Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 0) == 0L) {
		return TCL_ERROR;
	}
#endif
_EOF_

	for input in *.c; do
		object="$(basename "${input}" .c).o"
		if [ ! -f "${object}" ]; then
			continue
		fi

		grep '^/\* Immediate: ' "${input}"  | sed 's@^/\* Immediate: *@'$'\t''@;s@ *\*/$@@' | sed 's@Tcc4tclDeleteClientData@NULL@g'
	done >> base.c

	cat << \_EOF_ >> base.c

	Tcl_PkgProvide(interp, "tcllibc", "0");

	return(TCL_OK);
}
_EOF_

	"${CC:-cc}" -fPIC -o base.o -c base.c
)

"${CC:-cc}" -fPIC -shared -o tcllibc.so "${outDir}"/*.o

exit 0

















Powered by Fossil · RSS