mkscribadef.pl 375 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
open(F,"scriba.c") or die "Can not open scriba.c";
open(OUT,">scriba.def") or die "Can not output scriba.def";
print OUT <<END;
LIBRARY     scriba
DESCRIPTION "ScriptBasic Library"
EXPORTS
END

while( defined( $line = <F>) ){
  if( $line =~ /\/\*FUNCTION\*\// ){
    $line = <F>;
    $line =~ /\w+\s+(\w+)/;
    print OUT "$1\n";
    }
  }
close OUT;
close F;