summaryrefslogtreecommitdiffstats
path: root/tdeioslave/fish/genfishcode.pl
blob: 60dfff8de70d64eb117ab9fb49a4ef3c3a0e459b (plain)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl
use strict;
use warnings;

use Digest::MD5;

sub md5sum {
    my $filename = shift;
    my $digest;
    eval {
        open( my $FILE, '<', $filename )
            or die "Can't find file $filename\n";
        my $ctx = Digest::MD5->new;
        $ctx->addfile($FILE);
        $digest = $ctx->hexdigest;
        close($FILE);
    };
    if ($@) {
        warn $@;
    }
    return $digest;
}

my $file = $ARGV[0] or die "Missing filename argument";

my $fish_md5 = md5sum($file)
    or die "Couldn't compute MD5 for some reason\n";
print qq{#define CHECKSUM "$fish_md5"\n};
print qq{static const char *fishCode(\n};

open( my $FISH, "<", "$file" ) or die "Can't open $file\n";
while (<$FISH>) {
    chomp;
    s|\\|\\\\|g;
    s|"|\\"|g;
    s/^\s*/"/;
    next if /^"# /;
    s/\s*$/\\n"/;
    next if /^"\\n"$/;
    print "$_\n";
}
close($FISH);
print qq{);\n};