src/main/beos/exports/genexp.pl
changeset 337 9154ec9ca3d2
parent 0 74212992fb08
child 345 05b97424225f
equal deleted inserted replaced
336:745873ea091f 337:9154ec9ca3d2
     7 		warn "Couldn't open $file: $!\n";
     7 		warn "Couldn't open $file: $!\n";
     8 		next;
     8 		next;
     9 	}
     9 	}
    10 	$file =~ s,.*/,,;
    10 	$file =~ s,.*/,,;
    11 	while (<FILE>) {
    11 	while (<FILE>) {
    12 		if ( /DECLSPEC.*\s\**([^\s\(]+)\(/ ) {
    12 		if ( /DECLSPEC.*SDLCALL ([^\s\(]+)/ ) {
    13 			print "_$1\n";
       
    14 		} elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) {
       
    15 			print "_$1\n";
    13 			print "_$1\n";
    16 		}
    14 		}
    17 	}
    15 	}
    18 	close(FILE);
    16 	close(FILE);
    19 }
    17 }