mirror of
https://gitea.nishi.boats/pyrite-dev/milsko
synced 2025-12-31 06:30:52 +00:00
234d726e3f
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@338 b9cfdab3-6d41-4d17-bbe4-086880011989
15 lines
280 B
Perl
Executable File
15 lines
280 B
Perl
Executable File
#!/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);
|