5 *) echo 1>&2 "Source $source is not a .tcl file"; exit 1;;
8 basename=`basename $source .tcl`
12 int Jim_${basename}Init(Jim_Interp *interp)
14 return Jim_Eval_Named(interp,
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
21 echo ",\"$source\", 1);"