diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2015-06-19 12:23:42 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2015-06-19 12:23:42 +0300 |
| commit | 3581537e852069e9a8851311a3132625a5a178b8 (patch) | |
| tree | 86a7ca7484dba66a5b6f9b6f5379df5d26f95fa3 /awklib/extract.awk | |
| parent | 13792702809271ab92f67bb71cc3f10731f35047 (diff) | |
| parent | aea3b72891e7bcfeef094ff5039838c18e7ebbab (diff) | |
| download | egawk-3581537e852069e9a8851311a3132625a5a178b8.tar.gz egawk-3581537e852069e9a8851311a3132625a5a178b8.tar.bz2 egawk-3581537e852069e9a8851311a3132625a5a178b8.zip | |
Merge branch 'master' into feature/regex-type
Diffstat (limited to 'awklib/extract.awk')
| -rw-r--r-- | awklib/extract.awk | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/awklib/extract.awk b/awklib/extract.awk index 1b052e73..2662574b 100644 --- a/awklib/extract.awk +++ b/awklib/extract.awk @@ -1,16 +1,14 @@ -# extract.awk --- extract files and run programs -# from texinfo files +# extract.awk --- extract files and run programs from Texinfo files # -# Arnold Robbins, arnold@gnu.org, Public Domain +# Arnold Robbins, arnold@skeeve.com, Public Domain # May 1993 # Revised September 2000 BEGIN { IGNORECASE = 1 } -/^@c(omment)?[ \t]+system/ \ -{ +/^@c(omment)?[ \t]+system/ { if (NF < 3) { - e = (FILENAME ":" FNR) + e = ("extract: " FILENAME ":" FNR) e = (e ": badly formed `system' line") print e > "/dev/stderr" next @@ -19,15 +17,14 @@ BEGIN { IGNORECASE = 1 } $2 = "" stat = system($0) if (stat != 0) { - e = (FILENAME ":" FNR) + e = ("extract: " FILENAME ":" FNR) e = (e ": warning: system returned " stat) print e > "/dev/stderr" } } -/^@c(omment)?[ \t]+file/ \ -{ +/^@c(omment)?[ \t]+file/ { if (NF != 3) { - e = (FILENAME ":" FNR ": badly formed `file' line") + e = ("extract: " FILENAME ":" FNR ": badly formed `file' line") print e > "/dev/stderr" next } @@ -65,8 +62,8 @@ BEGIN { IGNORECASE = 1 } } function unexpected_eof() { - printf("%s:%d: unexpected EOF or error\n", - FILENAME, FNR) > "/dev/stderr" + printf("extract: %s:%d: unexpected EOF or error\n", + FILENAME, FNR) > "/dev/stderr" exit 1 } |