Mercurial > hg > audiostuff
comparison intercom/ilbc/extract-cfile.awk @ 2:13be24d74cd2
import intercom-0.4.1
| author | Peter Meerwald <pmeerw@cosy.sbg.ac.at> |
|---|---|
| date | Fri, 25 Jun 2010 09:57:52 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1:9cadc470e3da | 2:13be24d74cd2 |
|---|---|
| 1 BEGIN { srcname = "nothing"; } | |
| 2 { if (/^A\.[0-9][0-9]*\.* *[a-zA-Z][a-zA-Z_0-9]*\.[ch]/) { | |
| 3 if (srcname != "nothing") | |
| 4 close(srcname); | |
| 5 srcname = $2; | |
| 6 printf("creating source file %s\n", srcname); | |
| 7 }else if (srcname != "nothing") { | |
| 8 if (/Andersen,* *et* *al\./) | |
| 9 printf("skipping %s\n", $0); | |
| 10 else if (/ /) | |
| 11 printf("skipping2 %s\n", $0); | |
| 12 else if (/Internet Low Bit Rate Codec *December 2004/) | |
| 13 printf("skipping3 %s\n", $0); | |
| 14 else | |
| 15 print $0 >> srcname; | |
| 16 } | |
| 17 } | |
| 18 END { | |
| 19 printf("ending file %s\n", srcname); | |
| 20 close(srcname); | |
| 21 } |