#!./xotclsh 
# $Id: s.mk_predefined.xotcl 1.2 01/01/08 21:52:39-00:00 neumann $
# A small script file that creates a static array from a tcl-
# script for inclusion in c programs      -gn
set f [open predefined.xotcl]
set content [read $f]
close $f

regsub -all {\\} $content && content
regsub -all {"} $content {\"} content             ;#"
regsub -all "\[ \]+\n" $content \n content        ;# remove trailing space
regsub -all "\n\[ \t\]+" $content \n content      ;# remove leading space
regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
regsub -all "\[\n\]+" $content \n content         ;# remove empty lines
regsub -all "\n}" $content "}" content            ;# newlines btwn braces
regsub -all "\n" $content "\\n\"\n\"" content

puts "static char cmd\[\] = "
puts "\"$content\";"
puts ""


