Commit a1af6f36 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

adjusted the compressed generation to be more helpful in comments etc

parent 3aced614

src/mkhelp.pl

+35 −22
Original line number Diff line number Diff line
@@ -20,35 +20,40 @@ push @out, " / __| | | | |_) | | \n"; 
push @out, "                            | (__| |_| |  _ <| |___ \n";

push @out, "                             \\___|\\___/|_| \\_\\_____|\n";



my $head=0;



while (<STDIN>) {

    $line = $_;



    # this kind should be removed first:

    $line =~ s/_//g;

    my $line = $_;



    # then this:

    $line =~ s/.//g;

    # this should be removed:

    $line =~ s/(.|_)//g;



    if($line =~ /^curl/i) {

	# cut off the page headers

        $head=1;

    if($line =~ /^([ \t]*\n|curl)/i) {

        # cut off headers and empty lines

	$wline++; # count number of cut off lines

	next;

    }



    if($line =~ /^[ \t]*\n/) {

	$wline++;

	# we only make one empty line max

	next;

    my $text = $line;

    $text =~ s/^\s+//g; # cut off preceeding...

    $text =~ s/\s+$//g; # and trailing whitespaces



    $tlen = length($text);



    if($wline && ($olen == $tlen)) {

        # if the previous line with contents was exactly as long as

        # this line, then we ignore the newlines!



        # We do this magic because a header may abort a paragraph at

        # any line, but we don't want that to be noticed in the output

        # here

        $wline=0;

    }

    $olen = $tlen;



    if($wline) {

	# we only make one empty line max

	$wline = 0;

        if(!$head) {

        push @out, "\n";

    }

        $head =0;

    }

    push @out, $line;

}

push @out, "\n"; # just an extra newline
@@ -101,9 +106,17 @@ print <<HEAD 
HEAD

    ;

if($c) {

    print "/* gzip shrunk this data from $gzip to $gzipped bytes */\n",

    "#include <zlib.h>\nstatic const unsigned char hugehelpgz[] = {\n  ";

    print <<HEAD

#include <zlib.h>

static const unsigned char hugehelpgz[] = {

  /* This mumbo-jumbo is the huge help text compressed with gzip.

     Thanks to this operation, the size of this data shrunk from $gzip

     to $gzipped bytes. You can disable the use of compressed help

     texts by NOT passing -c to the mkhelp.pl tool. */

HEAD

;

    my $c=0;

    print "  ";

    for(@gzip) {

        my @all=split(//, $_);

        for(@all) {