646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
25 lines
642 B
Awk
25 lines
642 B
Awk
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);
|
||
}
|