mirror of
https://gitea.nishi.boats/pyrite-dev/milsko
synced 2025-12-31 06:30:52 +00:00
yeah
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@337 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
14
tools/harvard.pl
Executable file
14
tools/harvard.pl
Executable file
@@ -0,0 +1,14 @@
|
||||
#!/usr/bin/env perl
|
||||
# $Id$
|
||||
|
||||
open(IN, "<", "resource/harvard.txt");
|
||||
print("const char* harvard[] = {\n");
|
||||
while(my $l = <IN>){
|
||||
$l =~ s/\r?\n$//;
|
||||
if($l =~ /^[ \t]*[0-9]+\. (.+)$/){
|
||||
print(" \"" . $1 . "\",\n");
|
||||
}
|
||||
}
|
||||
print(" NULL\n");
|
||||
print("};\n");
|
||||
close(IN);
|
||||
Reference in New Issue
Block a user