doc2h.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#/usr/bin/env perl

use File::Slurp;

my $version = read_file('version.txt');

chomp($version);

printf "#define DOCSTRING \"inetools %s\\\n\\n\\\n", $version;
while(<>){
    s|\"|\\"|g;
    s|\n|\\n\\\n|g;
    print;
}
print '"'."\n";