blob: 11f7a2fcecbf1f93ad36f87d0ec5f646fd3ca248 (
plain)
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
|
#!/bin/sh
# This script writes to stdout, a single source file (e.g. jimsh0.c)
# which can be compiled to provide a bootstrap version of jimsh.
# e.g. cc -o jimsh0 jimsh0.c
makeext()
{
source="$1"
basename=`basename "$source" .tcl`
cat <<EOF
int Jim_${basename}Init(Jim_Interp *interp)
{
if (Jim_PackageProvide(interp, "$basename", "1.0", JIM_ERRMSG))
return JIM_ERR;
return Jim_Eval_Named(interp,
EOF
# Note: Keep newlines so that line numbers match in error messages
sed -e 's/^[ ]*#.*//' -e 's@\\@\\\\@g' -e 's@"@\\"@g' -e 's@^\(.*\)$@"\1\\n"@' $source
#sed -e 's@^\(.*\)$@"\1\\n"@' $source
echo ",\"$source\", 1);"
echo "}"
}
makeloadexts()
{
cat <<EOF
int Jim_InitStaticExtensions(Jim_Interp *interp)
EOF
echo "{"
for ext in $*; do
echo "extern int Jim_${ext}Init(Jim_Interp *);"
echo "Jim_${ext}Init(interp);"
done
echo "return JIM_OK;"
echo "}"
}
cexts="aio readdir regexp file exec clock array"
tclexts="bootstrap glob stdlib tclcompat"
# Note ordering
allexts="bootstrap aio readdir glob regexp file exec clock array stdlib tclcompat"
echo "/* This is single source file, bootstrap version of Jim Tcl. See http://jim.berlios.de/ */"
# define some core features
for i in _GNU_SOURCE JIM_TCL_COMPAT JIM_REFERENCES JIM_ANSIC HAVE_VFORK JIM_REGEXP HAVE_NO_AUTOCONF _JIMAUTOCONF_H; do
echo "#define $i"
done
echo '#define TCL_LIBRARY "."'
# and extensions
for i in $allexts; do
echo "#define jim_ext_$i"
done
# Can we make a bootstrap jimsh work even on mingw32?
cat <<EOF
#ifdef __MINGW32__
#define MKDIR_ONE_ARG
#define HAVE_SYSTEM
#else
#define HAVE_VFORK
#define HAVE_WAITPID
#endif
EOF
# Now output header files, removing references to jim header files
for i in utf8.h jim.h jim-subcmd.h jimregexp.h ; do
sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i
done
# Now extension source code
for i in $tclexts; do
makeext $i.tcl
done
for i in $cexts; do
sed -e '/#include.*jim/d' jim-$i.c
done
makeloadexts $allexts
# And finally the core source code
for i in jim.c jim-subcmd.c utf8.c jim-interactive.c jim-format.c jimregexp.c jimsh.c; do
sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i
done
|
