summaryrefslogtreecommitdiff
path: root/src/mkhelp.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>1999-12-29 14:20:26 +0000
committerDaniel Stenberg <daniel@haxx.se>1999-12-29 14:20:26 +0000
commitae1912cb0d494b48d514d937826c9fe83ec96c4d (patch)
tree3b027d577182fc74bade646227f729eac461d0d2 /src/mkhelp.pl
downloadcurl-ae1912cb0d494b48d514d937826c9fe83ec96c4d.tar.gz
Initial revision
Diffstat (limited to 'src/mkhelp.pl')
-rw-r--r--src/mkhelp.pl85
1 files changed, 85 insertions, 0 deletions
diff --git a/src/mkhelp.pl b/src/mkhelp.pl
new file mode 100644
index 000000000..842a42f59
--- /dev/null
+++ b/src/mkhelp.pl
@@ -0,0 +1,85 @@
+#!/usr/local/bin/perl
+
+# Yeah, I know, probably 1000 other persons already wrote a script like
+# this, but I'll tell ya:
+
+# THEY DON'T FIT ME :-)
+
+# Get readme file as parameter:
+$README = $ARGV[0];
+
+if($README eq "") {
+ print "usage: mkreadme.pl <README>\n";
+ exit;
+}
+
+
+push @out, " _ _ ____ _ \n";
+push @out, " Project ___| | | | _ \\| | \n";
+push @out, " / __| | | | |_) | | \n";
+push @out, " | (__| |_| | _ <| |___ \n";
+push @out, " \\___|\\___/|_| \\_\\_____|\n";
+
+$head=0;
+loop:
+while (<STDIN>) {
+ $line = $_;
+
+ # this kind should be removed first:
+ $line =~ s/_//g;
+
+ # then this:
+ $line =~ s/.//g;
+
+ if($line =~ /^curl/i) {
+ # cut off the page headers
+ $head=1;
+ next loop;
+ }
+
+ if($line =~ /^[ \t]*\n/) {
+ $wline++;
+ # we only make one empty line max
+ next loop;
+ }
+ if($wline) {
+ $wline = 0;
+ if(!$head) {
+ push @out, "\n";
+ }
+ $head =0;
+ }
+ push @out, $line;
+}
+push @out, "\n"; # just an extra newline
+
+open(READ, "<$README") ||
+ die "couldn't read the README infile";
+
+while(<READ>) {
+ push @out, $_;
+}
+close(READ);
+
+
+print "/* NEVER EVER edit this manually, fix the mkhelp script instead! */\n"
+;
+print "#include <stdio.h>\n";
+print "void hugehelp(void)\n";
+print "{\n";
+print "puts (\n";
+
+for(@out) {
+ chop;
+
+ $new = $_;
+
+ $new =~ s/\\/\\\\/g;
+ $new =~ s/\"/\\\"/g;
+
+ printf("\"%s\\n\"\n", $new);
+
+}
+
+print " ) ;\n}\n"
+