/[Sack]/trunk/bin/sack.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/sack.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Sun Sep 20 18:42:07 2009 UTC revision 3 by dpavlin, Sun Sep 20 18:55:34 2009 UTC
# Line 60  sub run_views { Line 60  sub run_views {
60                          my $dump = dump $out;                          my $dump = dump $out;
61                          my $len  = length $dump;                          my $len  = length $dump;
62                          my $path = "out/$nr.$package";                          my $path = "out/$nr.$package";
63                          print "# $view [$len] $path"                          print "# $view $len bytes $path"
64                                  , $len < 10000 ?  " \$out = $dump" : ''                                  , $len < 10000 ?  " \$out = $dump" : ' SAVED ONLY'
65                                  , "\n"                                  , "\n"
66                                  ;                                  ;
67                          write_file $path, $dump;                          write_file $path, $dump;
# Line 71  sub run_views { Line 71  sub run_views {
71          }          }
72  }  }
73    
74    run_views;
75    
76  while ( 1 ) {  while ( 1 ) {
         run_views;  
77    
78          print "sack> ";          print "sack> ";
79          my $cmd = <STDIN>;          my $cmd = <STDIN>;
80    
81            if ( $cmd =~ m{(vi|\\e|out)}i ) {
82                    system "vi out/*";
83            } else {
84                    run_views;
85            }
86    
87  }  }
88    
Legend:
Removed from v.1  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26