Mercurial > hg > audiostuff
view 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 |
line wrap: on
line source
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 print $0 >> srcname; } } END { printf("ending file %s\n", srcname); close(srcname); }