wok-current annotate asterisk/stuff/extract-cfile.awk @ rev 14198
move to undigest: xorg-xf86-video-sis xorg-xf86-video-savage xorg-xf86-video-r128 xorg-xf86-video-openchrome xorg-xf86-video-mga xorg-xf86-video-mach64
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Wed Mar 13 10:16:45 2013 +0100 (2013-03-13) |
| 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 } |