Changeset 22862 for src

Timestamp:

11/03/08 21:15:43 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] less memory usage... now works in < 512M ulimits

Files:

• src/perl6/STD_syntax_highlight (modified) (5 diffs)

src/perl6/STD_syntax_highlight

@@ -214 +214 @@
         next unless defined $loc[$i];
         my $c = substr($src_text,$i,1);
-        my $tree = "@{$loc[$i]}";
-
+        my $tree = "";
+        for my $action_ref (@{$loc[$i]}) {
+            $tree .= ${$action_ref} . " ";
+        }
         if($tree ne $last_tree) {
             $str .= qq{<span id="tree_$i" style="display:none;">$last_tree</span>};
@@ -309 +311 @@
         next unless defined $loc[$i];
         my $c = substr($src_text,$i,1);
-        my $tree = "@{$loc[$i]}";
+        my $tree = "";
+        for my $action_ref (@{$loc[$i]}) {
+            $tree .= ${$action_ref} . " ";
+        }
         if($tree ne $last_tree) {
             my $rule;
@@ -380 +385 @@
         next unless defined $loc[$i];
         my $c = substr($src_text,$i,1);
-        my $tree = "@{$loc[$i]}";
+        my $tree = "";
+        for my $action_ref (@{$loc[$i]}) {
+            $tree .= ${$action_ref} . " ";
+        }
         if($tree ne $last_tree) {
             my $rule;
@@ -428 +436 @@
     our $AUTOLOAD;
 
+    my %action_refs = ();
+
     sub AUTOLOAD {
         my $self = shift;
@@ -435 +445 @@
         $AUTOLOAD =~ s/^Actions:://;
         $loc[$P] = [] if $loc[$P];      # in case we backtracked to here
+        my $action = $AUTOLOAD;
+        my $action_ref = $action_refs{$action};
+        if(!$action_ref) {
+            $action_refs{$action} = $action_ref = \$action;
+        }
         for ($F..$P-1) {
-            unshift @{$loc[$_]}, $AUTOLOAD;
+            unshift @{$loc[$_]}, $action_ref;
         }
     }