mirror of https://github.com/moparisthebest/curl
188 lines
3.8 KiB
Perl
188 lines
3.8 KiB
Perl
#!/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:
|
||
my $README = $ARGV[0];
|
||
|
||
if($README eq "") {
|
||
print "usage: mkreadme.pl [-c] <README> < manpage\n";
|
||
exit;
|
||
}
|
||
|
||
|
||
push @out, " _ _ ____ _ \n";
|
||
push @out, " Project ___| | | | _ \\| | \n";
|
||
push @out, " / __| | | | |_) | | \n";
|
||
push @out, " | (__| |_| | _ <| |___ \n";
|
||
push @out, " \\___|\\___/|_| \\_\\_____|\n";
|
||
|
||
my $head=0;
|
||
|
||
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;
|
||
}
|
||
|
||
if($line =~ /^[ \t]*\n/) {
|
||
$wline++;
|
||
# we only make one empty line max
|
||
next;
|
||
}
|
||
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 $README";
|
||
|
||
while(<READ>) {
|
||
push @out, $_;
|
||
}
|
||
close(READ);
|
||
|
||
# if compressed
|
||
if($c) {
|
||
my @test = `gzip --version 2>&1`;
|
||
if($test[0] =~ /gzip/) {
|
||
open(GZIP, "|gzip -9 >dumpit.gz");
|
||
binmode GZIP;
|
||
for(@out) {
|
||
print GZIP $_;
|
||
$gzip += length($_);
|
||
}
|
||
close(GZIP);
|
||
|
||
open(GZIP, "<dumpit.gz");
|
||
binmode GZIP;
|
||
while(<GZIP>) {
|
||
push @gzip, $_;
|
||
$gzipped += length($_);
|
||
}
|
||
close(GZIP);
|
||
}
|
||
else {
|
||
# no gzip, no compression!
|
||
undef $c;
|
||
print STDERR "MEEEP: Couldn't find gzip, disable compression\n";
|
||
}
|
||
}
|
||
|
||
$now = localtime;
|
||
print <<HEAD
|
||
/*
|
||
* NEVER EVER edit this manually, fix the mkhelp.pl script instead!
|
||
* Generation time: $now
|
||
*/
|
||
#include <stdio.h>
|
||
HEAD
|
||
;
|
||
if($c) {
|
||
print "/* gzip shrunk this data from $gzip to $gzipped bytes */\n",
|
||
"#include <zlib.h>\nstatic const unsigned char hugehelpgz[] = {\n ";
|
||
my $c=0;
|
||
for(@gzip) {
|
||
my @all=split(//, $_);
|
||
for(@all) {
|
||
my $num=ord($_);
|
||
printf("0x%02x, ", 0+$num);
|
||
if(++$c>11) {
|
||
print "\n ";
|
||
$c=0;
|
||
}
|
||
}
|
||
}
|
||
print "\n};\n";
|
||
|
||
print <<EOF
|
||
/* Decompress and send to stdout a gzip-compressed buffer */
|
||
void hugehelp(void)
|
||
{
|
||
unsigned char buf[0x10000];
|
||
int status,headerlen;
|
||
z_stream z;
|
||
|
||
/* Make sure no gzip options are set */
|
||
if (hugehelpgz[3] & 0xfe)
|
||
return;
|
||
|
||
headerlen = 10;
|
||
z.avail_in = sizeof(hugehelpgz) - headerlen;
|
||
z.next_in = (unsigned char *)hugehelpgz + headerlen;
|
||
z.zalloc = (alloc_func)Z_NULL;
|
||
z.zfree = (free_func)Z_NULL;
|
||
z.opaque = 0;
|
||
|
||
if (inflateInit2(&z, -MAX_WBITS) != Z_OK)
|
||
return;
|
||
|
||
for (;;) {
|
||
z.avail_out = (int)sizeof(buf);
|
||
z.next_out = buf;
|
||
status = inflate(&z, Z_SYNC_FLUSH);
|
||
if (status == Z_OK || status == Z_STREAM_END) {
|
||
fwrite(buf, sizeof(buf) - z.avail_out, 1, stdout);
|
||
if (status == Z_STREAM_END)
|
||
break;
|
||
} else
|
||
break; /* Error */
|
||
}
|
||
inflateEnd(&z);
|
||
}
|
||
EOF
|
||
;
|
||
exit;
|
||
}
|
||
else {
|
||
print <<HEAD
|
||
void hugehelp(void)
|
||
{
|
||
fputs(
|
||
HEAD
|
||
;
|
||
}
|
||
|
||
$outsize=0;
|
||
for(@out) {
|
||
chop;
|
||
|
||
$new = $_;
|
||
|
||
$outsize += length($new)+1; # one for the newline
|
||
|
||
$new =~ s/\\/\\\\/g;
|
||
$new =~ s/\"/\\\"/g;
|
||
|
||
# gcc 2.96 claims ISO C89 only is required to support 509 letter strings
|
||
if($outsize > 500) {
|
||
# terminate and make another fputs() call here
|
||
print ", stdout);\n fputs(\n";
|
||
$outsize=length($new)+1;
|
||
}
|
||
printf("\"%s\\n\"\n", $new);
|
||
|
||
}
|
||
|
||
print ", stdout) ;\n}\n"
|
||
|