src/main/macosx/exports/gendef.pl
changeset 337 9154ec9ca3d2
parent 47 45b1c4303f87
child 345 05b97424225f
equal deleted inserted replaced
336:745873ea091f 337:9154ec9ca3d2
     8 		next;
     8 		next;
     9 	}
     9 	}
    10 	$printed_header = 0;
    10 	$printed_header = 0;
    11 	$file =~ s,.*/,,;
    11 	$file =~ s,.*/,,;
    12 	while (<FILE>) {
    12 	while (<FILE>) {
    13 		if ( /DECLSPEC.*\s\**([^\s\(]+)\(/ ) {
    13 		if ( /DECLSPEC.*SDLCALL ([^\s\(]+)/ ) {
    14 			print "\t_$1\n";
       
    15 		} elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) {
       
    16 			print "\t_$1\n";
    14 			print "\t_$1\n";
    17 		}
    15 		}
    18 	}
    16 	}
    19 	close(FILE);
    17 	close(FILE);
    20 }
    18 }