Author: coke Date: Tue Jul 22 08:52:27 2008 New Revision: 29677 Modified: trunk/languages/tcl/runtime/conversions.pir trunk/languages/tcl/runtime/string_to_list.pir trunk/languages/tcl/runtime/tcllib.pir trunk/languages/tcl/src/class/tclconst.pir trunk/languages/tcl/src/class/tclproc.pir
Log: [tcl] http://code.google.com/p/partcl/issues/detail?id=58 Rename more __ subs. Modified: trunk/languages/tcl/runtime/conversions.pir ============================================================================== --- trunk/languages/tcl/runtime/conversions.pir (original) +++ trunk/languages/tcl/runtime/conversions.pir Tue Jul 22 08:52:27 2008 @@ -48,7 +48,7 @@ .sub toDict :multi(TclList) .param pmc list - $P0 = __listToDict(list) + $P0 = listToDict(list) copy list, $P0 .return(list) Modified: trunk/languages/tcl/runtime/string_to_list.pir ============================================================================== --- trunk/languages/tcl/runtime/string_to_list.pir (original) +++ trunk/languages/tcl/runtime/string_to_list.pir Tue Jul 22 08:52:27 2008 @@ -1,7 +1,7 @@ .HLL '_Tcl', '' .namespace [] -.sub __listToDict +.sub listToDict .param pmc list .local int sizeof_list @@ -27,7 +27,7 @@ if $S0 == 'TclString' goto is_string if $S0 == 'String' goto is_string is_list: - $P2 = __listToDict($P2) + $P2 = listToDict($P2) result[$S1] = $P2 goto loop @@ -37,7 +37,7 @@ $I0 = elements $P3 if $I0 <= 1 goto only_string push_eh only_string - $P3 = __listToDict($P3) + $P3 = listToDict($P3) pop_eh result[$S1] = $P3 goto loop @@ -59,7 +59,7 @@ .local pmc list $P0 = new 'TclString' list = $P0.'get_list'(str) - .return __listToDict(list) + .return listToDict(list) .end # Local Variables: Modified: trunk/languages/tcl/runtime/tcllib.pir ============================================================================== --- trunk/languages/tcl/runtime/tcllib.pir (original) +++ trunk/languages/tcl/runtime/tcllib.pir Tue Jul 22 08:52:27 2008 @@ -47,13 +47,13 @@ .HLL '_Tcl', '' .namespace [] -.sub __load_macros :load :anon +.sub load_macros :load :anon $P0 = compreg 'PIR' $P0 = $P0(".sub main\n.include 'languages/tcl/src/macros.pir'\n.end") $P0() .end -.sub __prepare_lib :load :anon +.sub prepare_lib :load :anon # Load any dependant libraries. load_bytecode 'Getopt/Obj.pbc' @@ -262,7 +262,7 @@ .HLL 'Tcl', '' .namespace [] -.sub __load_stdlib :load :anon +.sub load_stdlib :load :anon .include 'iglobals.pasm' .local pmc interp interp = getinterp Modified: trunk/languages/tcl/src/class/tclconst.pir ============================================================================== --- trunk/languages/tcl/src/class/tclconst.pir (original) +++ trunk/languages/tcl/src/class/tclconst.pir Tue Jul 22 08:52:27 2008 @@ -5,13 +5,13 @@ =head1 TclConst -=head2 __class_init +=head2 class_init Define the attributes required for the class. =cut -.sub __class_init :anon :load +.sub class_init :anon :load $P0 = get_class 'String' $P1 = subclass $P0, 'TclConst' @@ -266,7 +266,7 @@ .return compiler(argnum, self) .end -=head2 _dump +=head2 __dump This method enables Data::Dumper to work on us; shouldn't need it, because we're subclassing String... Modified: trunk/languages/tcl/src/class/tclproc.pir ============================================================================== --- trunk/languages/tcl/src/class/tclproc.pir (original) +++ trunk/languages/tcl/src/class/tclproc.pir Tue Jul 22 08:52:27 2008 @@ -9,13 +9,13 @@ .cloneable() -=head2 __class_init +=head2 class_init Define the attributes required for the class. =cut -.sub __class_init :anon :load +.sub class_init :anon :load $P0 = get_class 'Sub' $P1 = subclass $P0, 'TclProc'
