src/mkhelp.pl

   1 #!/usr/local/bin/perl
   2
   3 # Yeah, I know, probably 1000 other persons already wrote a script like
   4 # this, but I'll tell ya:
   5
   6 # THEY DON'T FIT ME :-)
   7
   8 # Get readme file as parameter:
   9 $README = $ARGV[0];
  10
  11 if($README eq "") {
  12     print "usage: mkreadme.pl <README>\n";
  13     exit;
  14 }
  15
  16
  17 push @out, "                                  _   _ ____  _     \n";
  18 push @out, "  Project                     ___| | | |  _ \\| |    \n";
  19 push @out, "                             / __| | | | |_) | |    \n";
  20 push @out, "                            | (__| |_| |  _ <| |___ \n";
  21 push @out, "                             \\___|\\___/|_| \\_\\_____|\n";
  22
  23 $head=0;
  24 loop:
  25 while (<STDIN>) {
  26     $line = $_;
  27
  28     # this kind should be removed first:
  29     $line =~ s/_\b//g;
  30
  31     # then this:
  32     $line =~ s/\b.//g;
  33
  34     if($line =~ /^curl/i) {
  35         # cut off the page headers
  36         $head=1;
  37         next loop;
  38     }
  39
  40     if($line =~ /^[ \t]*\n/) {
  41         $wline++;
  42         # we only make one empty line max
  43         next loop;
  44     }
  45     if($wline) {
  46         $wline = 0;
  47         if(!$head) {
  48             push @out, "\n";
  49         }
  50         $head =0;
  51     }
  52     push @out, $line;
  53 }
  54 push @out, "\n"; # just an extra newline
  55
  56 open(READ, "<$README") ||
  57     die "couldn't read the README infile";
  58
  59 while(<READ>) {
  60     push @out, $_;
  61 }
  62 close(READ);
  63
  64
  65 print "/* NEVER EVER edit this manually, fix the mkhelp script instead! */\n"
  66 ;
  67 print "#include <stdio.h>\n";
  68 print "void hugehelp(void)\n";
  69 print "{\n";
  70 print "puts (\n";
  71
  72 for(@out) {
  73     chop;
  74
  75     $new = $_;
  76
  77     $new =~ s/\\/\\\\/g;
  78     $new =~ s/\"/\\\"/g;
  79
  80     printf("\"%s\\n\"\n", $new);
  81
  82 }
  83
  84 print " ) ;\n}\n"
  85