mirror of
https://repo.dactyloidae.xyz/Dactyloidae/UXP.git
synced 2026-09-23 00:47:31 +09:00
Dactyloidae Milsko Widget initial commit
This commit is contained in:
parent
2e7355c0ef
commit
91b45c0d14
410 changed files with 204246 additions and 0 deletions
12
widget/milsko/milskosrc/tools/harvard.pl
Normal file
12
widget/milsko/milskosrc/tools/harvard.pl
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
#!/usr/bin/env perl
|
||||
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);
|
||||
Loading…
Add table
Add a link
Reference in a new issue