1#!/usr/bin/perl
2
3open(F, "doc/quickstart.txt");
4
5@manual_content = <F>;
6
7close (F);
8
9print 'static char manual_content[] = "\\';
10print "\n";
11
12foreach $line (@manual_content) {
13	chop($line);
14	$line =~ s/([\\%"])/\\$1/g;
15	printf "$line\\n\\\n";
16}
17
18print "\";\n";
19