Author: coke Date: Wed Nov 16 10:23:23 2005 New Revision: 10029 Modified: trunk/languages/tcl/lib/parser.pir trunk/languages/tcl/tcl.pir_template Log: tcl: remove crufty code, but, more importantly:
make tcl work again without ICU: conserve the string charset that was generated during compilation, avoiding unecessary promotion to unicode. (which with ICU is fine, but when you're ICU-less, it's rather inconvenient.) Modified: trunk/languages/tcl/lib/parser.pir ============================================================================== --- trunk/languages/tcl/lib/parser.pir (original) +++ trunk/languages/tcl/lib/parser.pir Wed Nov 16 10:23:23 2005 @@ -1,5 +1,4 @@ -.namespace [ "_Tcl" ] - +.namespace [ "_Tcl" ] =head1 NAME Tcl Parser @@ -722,9 +721,14 @@ Return register_num is the register numb goto set_args stringish: $S0 = thing + + .local string charset_name + $I0 = charset $S0 + charset_name = charsetname $I0 + $S0 = escape $S0 - lquote = "unicode:\"" + lquote = charset_name . ":\"" rquote = "\"" set_args: Modified: trunk/languages/tcl/tcl.pir_template ============================================================================== --- trunk/languages/tcl/tcl.pir_template (original) +++ trunk/languages/tcl/tcl.pir_template Wed Nov 16 10:23:23 2005 @@ -81,18 +81,9 @@ providing a compreg-compatible method. .sub __prepare_lib :load :anon # Load any dependant libraries. - #load_bytecode "languages/tcl/lib/tclbinaryops.pbc" - #load_bytecode "languages/tcl/lib/tclcommand.pbc" - #load_bytecode "languages/tcl/lib/tclcommandlist.pbc" - #load_bytecode "languages/tcl/lib/tclconst.pbc" - #load_bytecode "languages/tcl/lib/tclfunc.pbc" - #load_bytecode "languages/tcl/lib/tclops.pbc" - #load_bytecode "languages/tcl/lib/tclvar.pbc" - #load_bytecode "languages/tcl/lib/tclword.pbc" - load_bytecode "library/Data/Escape.pbc" load_bytecode "Getopt/Long.pir" - #load_bytecode "library/PGE.pbc" # XXX Can't load this if Getopt/Long loaded. - load_bytecode "library/PGE/Glob.pbc" + #load_bytecode "PGE.pbc" # XXX Can't load this if Getopt/Long loaded. + load_bytecode "PGE/Glob.pbc" #_load_grammar()
