wok annotate asterisk/stuff/extract-cfile.awk @ rev 19264

Compress manpages (in $install/usr/share/man/...)
author Aleksej Bobylev <al.bobylev@gmail.com>
date Mon Jul 04 00:54:49 2016 +0300 (2016-07-04)
parents bae11341973a
children
rev   line source
pascal@10942 1 BEGIN { srcname = "nothing"; }
pascal@10942 2 { if (/^A\.[0-9][0-9]*\.* *[a-zA-Z][a-zA-Z_0-9]*\.[ch]/) {
pascal@10942 3 if (srcname != "nothing")
pascal@10942 4 close(srcname);
pascal@10942 5 srcname = $2;
pascal@10942 6 printf("creating source file %s\n", srcname);
pascal@10942 7 }else if (srcname != "nothing") {
pascal@10942 8 if (/Andersen,* *et* *al\./)
pascal@10942 9 printf("skipping %s\n", $0);
pascal@10942 10 else if (/ /)
pascal@10942 11 printf("skipping2 %s\n", $0);
pascal@10942 12 else if (/Internet Low Bit Rate Codec *December 2004/)
pascal@10942 13 printf("skipping3 %s\n", $0);
pascal@10942 14 else if (/Authors' *Addresses/){
pascal@10942 15 close(srcname);
pascal@10942 16 exit;}
pascal@10942 17 else
pascal@10943 18 print $0 >> srcname;
pascal@10942 19 }
pascal@10942 20 }
pascal@10942 21 END {
pascal@10942 22 printf("ending file %s\n", srcname);
pascal@10942 23 close(srcname);
pascal@10942 24 }