make-bootstrap-jim

   1 #!/bin/sh
   2
   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
   6
   7 makeext()
   8 {
   9         source="$1"
  10         basename=`basename "$source" .tcl`
  11 cat <<EOF
  12 int Jim_${basename}Init(Jim_Interp *interp)
  13 {
  14         if (Jim_PackageProvide(interp, "$basename", "1.0", JIM_ERRMSG))
  15                 return JIM_ERR;
  16
  17         return Jim_Eval_Named(interp,
  18 EOF
  19
  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
  23
  24 echo ",\"$source\", 1);"
  25 echo "}"
  26 }
  27
  28 makeloadexts()
  29 {
  30 cat <<EOF
  31 int Jim_InitStaticExtensions(Jim_Interp *interp)
  32 EOF
  33     echo "{"
  34     for ext in $*; do
  35         echo "extern int Jim_${ext}Init(Jim_Interp *);"
  36         echo "Jim_${ext}Init(interp);"
  37     done
  38     echo "return JIM_OK;"
  39     echo "}"
  40 }
  41
  42 cexts="aio readdir regexp file exec clock array"
  43 tclexts="bootstrap glob stdlib tclcompat"
  44
  45 # Note ordering
  46 allexts="bootstrap aio readdir glob regexp file exec clock array stdlib tclcompat"
  47
  48 echo "/* This is single source file, bootstrap version of Jim Tcl. See http://jim.berlios.de/ */"
  49
  50 # define some core features
  51 for i in _GNU_SOURCE JIM_TCL_COMPAT JIM_REFERENCES JIM_ANSIC JIM_REGEXP HAVE_NO_AUTOCONF _JIMAUTOCONF_H; do
  52         echo "#define $i"
  53 done
  54 echo '#define TCL_LIBRARY "."'
  55 # and extensions
  56 for i in $allexts; do
  57         echo "#define jim_ext_$i"
  58 done
  59
  60 # Can we make a bootstrap jimsh work even on mingw32?
  61 cat <<EOF
  62 #if defined(__MINGW32__) || defined(__MINGW64__)
  63 #define HAVE_MKDIR_ONE_ARG
  64 #define HAVE_SYSTEM
  65 #else
  66 #define HAVE_VFORK
  67 #define HAVE_WAITPID
  68 #endif
  69 EOF
  70
  71 # Now output header files, removing references to jim header files
  72 for i in utf8.h jim.h jim-subcmd.h jimregexp.h ; do
  73         sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i
  74 done
  75
  76 # Now extension source code
  77 for i in $tclexts; do
  78         makeext $i.tcl
  79 done
  80 for i in $cexts; do
  81         sed -e '/#include.*jim/d' jim-$i.c
  82 done
  83 makeloadexts $allexts
  84
  85 # And finally the core source code
  86 for i in jim.c jim-subcmd.c utf8.c jim-interactive.c jim-format.c jimregexp.c jimsh.c; do
  87         sed -e '/#include.*jim/d' -e '/#include.*utf8/d' $i
  88 done