1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename qw(basename);
my ($output, @inputs) = @ARGV;
open my $out, '>', $output or die "$output: $!\n";
print {$out} "// Generated from pseudocode-lib; do not edit.\n";
for my $index (0 .. $#inputs) {
open my $in, '<:raw', $inputs[$index] or die "$inputs[$index]: $!\n";
local $/;
my $data = <$in>;
close $in or die "$inputs[$index]: $!\n";
print {$out} "static const char LibraryData$index\[\] =\n";
while (length $data) {
my $chunk = substr($data, 0, 32, '');
print {$out} '"', join('', map { sprintf '\\%03o', $_ } unpack 'C*', $chunk), "\"\n";
}
print {$out} ";\n";
}
print {$out} "static const LibraryFile LibraryFiles[] = {\n";
for my $index (0 .. $#inputs) {
my $name = basename($inputs[$index]);
die "Invalid library filename: $name\n" unless $name =~ /^[A-Za-z0-9_.-]+$/;
print {$out} " {\"$name\", LibraryData$index, sizeof(LibraryData$index) - 1},\n";
}
print {$out} "};\n";
close $out or die "$output: $!\n";
|
