doc2h.pl


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

#/usr/bin/env perl

print '#define DOCSTRING "';
while(<>){
    s|\"|\\"|g;
    s|\n|\\n\\\n|g;
    print;
}
print '"'."\n";


print "
int usage(){ fprintf(stderr,\"\\n%s\\n\",rcsid);fprintf(stderr,DOCSTRING);  exit(1); 	}
#define CHECK_HELP   if (argc > 1 && argv[1][0]=='-' && argv[1][1]=='h') usage();\n";