home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / gcc222.lha / geninline / genglue.p < prev    next >
Text File  |  1992-08-10  |  374b  |  22 lines
  1. $state = 0;
  2.  
  3. next_line: while (<STDIN>) {
  4.   if (/.even/) {
  5.     close (OUTY) if $state == 2;
  6.     $state = 1;
  7.   }
  8.   elsif (/.globl _(\w+)/) {
  9.     $state = 2;
  10.     if (! open (OUTY, ">$1.s")) {
  11.       print STDERR "Can't open $1.s, $!\n"; 
  12.       $state = 0;
  13.       next next_line;
  14.     }
  15.     print OUTY ".text; .even; $_\n";
  16.   }
  17.   elsif ($state == 2) {
  18.     print OUTY "$_";
  19.   }
  20. }
  21.  
  22.