pyrite-dev/milsko
pyrite-dev/milsko
12
1
Fork 3
Code Issues 5 Pull requests Projects Releases 7 Packages Wiki Activity Actions

yeah

Browse source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@337 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
Nishi 2025-10-15 09:02:23 +00:00
commit 61772bf9ca
6 changed files with 1536 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/harvard.pl Executable file
View 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);