src/main/macosx/exports/gendef.pl
changeset 930 02759105b989
parent 825 618fcc5861c8
child 1317 6c7b69218276
equal deleted inserted replaced
929:03fb90fc135e 930:02759105b989
    12 		next;
    12 		next;
    13 	}
    13 	}
    14 	$printed_header = 0;
    14 	$printed_header = 0;
    15 	$file =~ s,.*/,,;
    15 	$file =~ s,.*/,,;
    16 	while (<FILE>) {
    16 	while (<FILE>) {
    17 		if ( / DECLSPEC.*SDLCALL ([^\s\(]+)/ ) {
    17 		if ( / DECLSPEC.* SDLCALL ([^\s\(]+)/ ) {
    18 			print "\t_$1\n";
    18 			print "\t_$1\n";
    19 		}
    19 		}
    20 	}
    20 	}
    21 	close(FILE);
    21 	close(FILE);
    22 }
    22 }