make-c-ext.sh

   1 source="$1"
   2
   3 case "$source" in
   4 *.tcl) ;;
   5 *) echo 1>&2 "Source $source is not a .tcl file"; exit 1;;
   6 esac
   7
   8 basename=`basename $source .tcl`
   9
  10 cat <<EOF
  11 #include <jim.h>
  12 int Jim_${basename}Init(Jim_Interp *interp)
  13 {
  14         return Jim_Eval_Named(interp,
  15 EOF
  16
  17 # Note: Keep newlines so that line numbers match in error messages
  18 sed -e 's/^[    ]*#.*//' -e 's@\\@\\\\@g' -e 's@"@\\"@g' -e 's@^\(.*\)$@"\1\\n"@' $source
  19 #sed -e 's@^\(.*\)$@"\1\\n"@' $source
  20
  21 echo ",\"$source\", 1);"
  22 echo "}"