3
0
Fork 0
forked from mirrors/nixpkgs
nixpkgs/pkgs/development/libraries/ilbc/extract-cfile.awk

25 lines
643 B
Awk
Raw Normal View History

BEGIN { srcname = "nothing"; }
{ if (/^A\.[0-9][0-9]*\.* *[a-zA-Z][a-zA-Z_0-9]*\.[ch]/) {
if (srcname != "nothing")
close(srcname);
srcname = $2;
printf("creating source file %s\n", srcname);
}else if (srcname != "nothing") {
if (/Andersen,* *et* *al\./)
printf("skipping %s\n", $0);
else if (/ /)
printf("skipping2 %s\n", $0);
else if (/Internet Low Bit Rate Codec *December 2004/)
printf("skipping3 %s\n", $0);
else if (/Authors' *Addresses/){
close(srcname);
exit;}
else
print $0 >> srcname;
}
}
END {
printf("ending file %s\n", srcname);
close(srcname);
}