2 #***************************************************************************
4 # Project ___| | | | _ \| |
6 # | (__| |_| | _ <| |___
7 # \___|\___/|_| \_\_____|
9 # Copyright (C) 1998 - 2014, Daniel Stenberg, <daniel@haxx.se>, et al.
11 # This software is licensed as described in the file COPYING, which
12 # you should have received as part of this distribution. The terms
13 # are also available at https://curl.haxx.se/docs/copyright.html.
15 # You may opt to use, copy, modify, merge, publish, distribute and/or sell
16 # copies of the Software, and permit persons to whom the Software is
17 # furnished to do so, under the terms of the COPYING file.
19 # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
20 # KIND, either express or implied.
22 ###########################################################################
24 # Yeah, I know, probably 1000 other persons already wrote a script like
25 # this, but I'll tell ya:
27 # THEY DON'T FIT ME :-)
29 # Get readme file as parameter:
31 if($ARGV[0] eq "-c") {
36 my $README = $ARGV[0];
39 print "usage: mkreadme.pl [-c] <README> < manpage\n";
44 push @out, " _ _ ____ _\n";
45 push @out, " Project ___| | | | _ \\| |\n";
46 push @out, " / __| | | | |_) | |\n";
47 push @out, " | (__| |_| | _ <| |___\n";
48 push @out, " \\___|\\___/|_| \\_\\_____|\n";
54 # this should be removed:
55 $line =~ s/(
\b.|_
\b)//g;
57 # remove trailing CR from line. msysgit checks out files as line+CRLF
60 if($line =~ /^([ \t]*\n|curl)/i) {
61 # cut off headers and empty lines
62 $wline++; # count number of cut off lines
67 $text =~ s/^\s+//g; # cut off preceding...
68 $text =~ s/\s+$//g; # and trailing whitespaces
70 $tlen = length($text);
72 if($wline && ($olen == $tlen)) {
73 # if the previous line with contents was exactly as long as
74 # this line, then we ignore the newlines!
76 # We do this magic because a header may abort a paragraph at
77 # any line, but we don't want that to be noticed in the output
84 # we only make one empty line max
90 push @out, "\n"; # just an extra newline
92 open(READ, "<$README") ||
93 die "couldn't read the README infile $README";
98 # remove trailing CR from line. msysgit checks out files as line+CRLF
107 my @test = `gzip --version 2>&1`;
108 if($test[0] =~ /gzip/) {
109 open(GZIP, ">dumpit") ||
110 die "can't create the dumpit file, try without -c";
118 system("gzip --best --no-name dumpit");
120 open(GZIP, "<dumpit.gz") ||
121 die "can't read the dumpit.gz file, try without -c";
125 $gzipped += length($_);
132 # no gzip, no compression!
134 print STDERR "MEEEP: Couldn't find gzip, disable compression\n";
141 * NEVER EVER edit this manually, fix the mkhelp.pl script instead!
142 * Generation time: $now
145 #include "tool_hugehelp.h"
151 #include "memdebug.h" /* keep this as LAST include */
152 static const unsigned char hugehelpgz[] = {
153 /* This mumbo-jumbo is the huge help text compressed with gzip.
154 Thanks to this operation, the size of this data shrunk from $gzip
155 to $gzipped bytes. You can disable the use of compressed help
156 texts by NOT passing -c to the mkhelp.pl tool. */
162 my @all=split(//, $_);
165 printf(" 0x%02x,", 0+$num);
175 #define BUF_SIZE 0x10000
176 static voidpf zalloc_func(voidpf opaque, unsigned int items, unsigned int size)
179 /* not a typo, keep it calloc() */
180 return (voidpf) calloc(items, size);
182 static void zfree_func(voidpf opaque, voidpf ptr)
187 /* Decompress and send to stdout a gzip-compressed buffer */
191 int status,headerlen;
194 /* Make sure no gzip options are set */
195 if (hugehelpgz[3] & 0xfe)
199 memset(&z, 0, sizeof(z_stream));
200 z.zalloc = (alloc_func)zalloc_func;
201 z.zfree = (free_func)zfree_func;
202 z.avail_in = (unsigned int)(sizeof(hugehelpgz) - headerlen);
203 z.next_in = (unsigned char *)hugehelpgz + headerlen;
205 if (inflateInit2(&z, -MAX_WBITS) != Z_OK)
208 buf = malloc(BUF_SIZE);
211 z.avail_out = BUF_SIZE;
213 status = inflate(&z, Z_SYNC_FLUSH);
214 if (status == Z_OK || status == Z_STREAM_END) {
215 fwrite(buf, BUF_SIZE - z.avail_out, 1, stdout);
216 if (status == Z_STREAM_END)
246 $outsize += length($new)+1; # one for the newline
251 # gcc 2.96 claims ISO C89 only is required to support 509 letter strings
253 # terminate and make another fputs() call here
254 print ", stdout);\n fputs(\n";
255 $outsize=length($new)+1;
257 printf("\"%s\\n\"\n", $new);
261 print ", stdout) ;\n}\n";
267 #else /* !USE_MANUAL */
268 /* built-in manual is disabled, blank function */
269 #include "tool_hugehelp.h"
270 void hugehelp(void) {}
271 #endif /* USE_MANUAL */