aboutsummaryrefslogtreecommitdiff
path: root/make-bootstrap-jim
blob: a7b81b27e56f98c0ab8be17e833be5c81a15f72c (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
89
90
91
92
#!/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 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
#if defined(__MINGW32__)
#define TCL_PLATFORM_OS "mingw"
#define TCL_PLATFORM_PLATFORM "windows"
#define HAVE_MKDIR_ONE_ARG
#define HAVE_SYSTEM
#else
#define TCL_PLATFORM_OS "unknown"
#define TCL_PLATFORM_PLATFORM "unix"
#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