3 # This script writes to stdout, a single source file (e.g. jimsh0.c)
4 # which can be compiled to provide a bootstrap version of jimsh.
5 # e.g. cc -o jimsh0 jimsh0.c
10 basename=`basename "$source" .tcl`
12 int Jim_${basename}Init(Jim_Interp *interp)
14 if (Jim_PackageProvide(interp, "$basename", "1.0", JIM_ERRMSG))
17 return Jim_Eval_Named(interp,
20 # Note: Keep newlines so that line numbers match in error messages
21 sed -e 's/^[ ]*#.*//' -e 's@\\@\\\\@g' -e 's@"@\\"@g' -e 's@^\(.*\)$@"\1\\n"@' $source
22 #sed -e 's@^\(.*\)$@"\1\\n"@' $source
24 echo ",\"$source\", 1);"
31 int Jim_InitStaticExtensions(Jim_Interp *interp)
35 echo "extern int Jim_${ext}Init(Jim_Interp *);"
38 echo "Jim_${ext}Init(interp);"
44 cexts
="aio readdir regexp file exec clock array"
45 tclexts
="bootstrap initjimsh glob stdlib tclcompat"
48 allexts
="bootstrap aio readdir glob regexp file exec clock array stdlib tclcompat"
50 echo "/* This is single source file, bootstrap version of Jim Tcl. See http://jim.berlios.de/ */"
52 # define some core features
53 for i
in _GNU_SOURCE JIM_TCL_COMPAT JIM_REFERENCES JIM_ANSIC JIM_REGEXP HAVE_NO_AUTOCONF _JIMAUTOCONF_H
; do
56 echo '#define TCL_LIBRARY "."'
59 echo "#define jim_ext_$i"
62 # Can we make a bootstrap jimsh work even on mingw32?
64 #if defined(__MINGW32__)
65 #define TCL_PLATFORM_OS "mingw"
66 #define TCL_PLATFORM_PLATFORM "windows"
67 #define TCL_PLATFORM_PATH_SEPARATOR ";"
68 #define HAVE_MKDIR_ONE_ARG
71 #define TCL_PLATFORM_OS "unknown"
72 #define TCL_PLATFORM_PLATFORM "unix"
73 #define TCL_PLATFORM_PATH_SEPARATOR ":"
79 # Now output header files, removing references to jim header files
80 for i
in utf8.h jim.h jim-subcmd.h jimregexp.h
; do
81 sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i
84 # Now extension source code
89 sed -e '/#include.*jim/d' jim-
$i.c
93 # And finally the core source code
94 for i
in jim.c jim-subcmd.c utf8.c jim-interactive.c jim-format.c jimregexp.c jimsh.c
; do
95 sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i