Move string_trim into our ``private'' namespace.

partcl · Nov 30, 2009 · c916eb0 · c916eb0
1 parent efe5134
commit c916eb0
Showing 1 changed file with 26 additions and 25 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -66,9 +66,9 @@ our sub catch($code, $varname?) {
 
 
 our sub concat(*@args) {
-    my $result := @args ?? string_trim(@args.shift) !! '';
+    my $result := @args ?? _tcl::string_trim(@args.shift) !! '';
     while @args {
-        $result := $result ~ ' ' ~ string_trim(@args.shift);
+        $result := $result ~ ' ' ~ _tcl::string_trim(@args.shift);
     }
     $result;
 }
@@ -381,29 +381,6 @@ our sub string($cmd, *@args) {
     }
 }
 
-our sub string_trim($string) {
-    Q:PIR {
-        .include 'cclass.pasm'
-        .local string str
-        $P0 = find_lex '$string'
-        str = $P0
-        .local int lpos, rpos
-        rpos = length str
-        lpos = find_not_cclass .CCLASS_WHITESPACE, str, 0, rpos
-      rtrim_loop:
-        unless rpos > lpos goto rtrim_done
-        dec rpos
-        $I0 = is_cclass .CCLASS_WHITESPACE, str, rpos
-        if $I0 goto rtrim_loop
-      rtrim_done:
-        inc rpos
-        $I0 = rpos - lpos
-        $S0 = substr str, lpos, $I0
-        %r = box $S0
-    };
-}
-
-
 our sub switch ($string, *@args) {
     unless @args {
         pir::printerr("wrong # args: should be ``switch ?switches? string pattern body ... ?default body?''");
@@ -473,3 +450,27 @@ our sub while (*@args) {
 our sub EXPAND($args) {
     PmTcl::Grammar.parse($args, :rule<list>, :actions(PmTcl::Actions) ).ast;
 }
+
+module _tcl {
+    our sub string_trim($string) {
+        Q:PIR {
+            .include 'cclass.pasm'
+            .local string str
+            $P0 = find_lex '$string'
+            str = $P0
+            .local int lpos, rpos
+            rpos = length str
+            lpos = find_not_cclass .CCLASS_WHITESPACE, str, 0, rpos
+          rtrim_loop:
+            unless rpos > lpos goto rtrim_done
+            dec rpos
+            $I0 = is_cclass .CCLASS_WHITESPACE, str, rpos
+            if $I0 goto rtrim_loop
+          rtrim_done:
+            inc rpos
+            $I0 = rpos - lpos
+            $S0 = substr str, lpos, $I0
+            %r = box $S0
+        };
+    }
+}