Skip to main content

Browse the archive

Revision f656161abbc14b1a9e7f18a02a854a863411af3b authored by Lou Burnard on 01 December 2011, 18:28:57 UTC, committed by Lou Burnard on 01 December 2011, 18:28:57 UTC 
last batch of typos from martin
 
 
 
 
 1 parent   4b761f5 
  
 
 
 
  
 
   Raw File             
 
 
   
   
 
 cleanrnc.pl 
 
 
 
#!/usr/bin/perl
$clean=0;
while (<>) {
 if (/<pre/) { $clean=1; print; }
 elsif (/<\/pre/) { $clean=0; print; }
 elsif (/<eg/) { $clean=1; print; }
 elsif (/<\/eg/) { $clean=0; print; }
 elsif ($clean eq 0) { print; }
 elsif (/namespaces/) { print; }
 elsif (/namespace</) { print; }
 elsif (/>namespace/){
	s/(.*>)namespace.*/$1/;
	print;
	while (<>) {
	    if (/</) { print; last; }
	    elsif (/^namespace /) {  }
	    elsif (/^default namespace /) { }
 	    elsif (/^$/) { }
	    else {print; }
	}
    }
    else { 
	s/>namespace local = \"\"/>/;
	print; }
}

 
 
 
  
 
   
 
   
 
 
     
  back to top