Subversion Repositories wimsdev

Rev

Rev 11071 | Rev 11930 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11071 Rev 11072
Line 1... Line 1...
1 
#!/usr/local/bin/perl
 1 
#!/usr/bin/perl
2 
 
 2 
 
3 
open(IN, "commands") ;
 3 
open(IN, "commands") ;
4 
 
 4 
 
5 
my $L='' ; my $t=0 ;   
 5 
my $L='' ; my $t=0 ;
6 
while (<IN>) {my $l=$_ ;
 6 
while (<IN>) {my $l=$_ ;
7 
  if (/^:/) { $t=1 ; $l =~ s/^:(\w+)(\s.*)?\n/$1/g ; $L .=$l ; }
 7 
  if (/^:/) { $t=1 ; $l =~ s/^:(\w+)(\s.*)?\n/$1/g ; $L .=$l ; }
8 
    else {
 8 
    else {
9 
    if ($t==1) { $L .=$l ;} ; $t=0 ;
 9 
    if ($t==1) { $L .=$l ;} ; $t=0 ;
10 
  }
 10 
  }
11 
} ;
 11 
} ;
12 
$L =~ s/\s+/\n/g;
 12 
$L =~ s/\s+/\n/g;