summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2010-07-16 13:09:56 +0300
committerArnold D. Robbins <arnold@skeeve.com>2010-07-16 13:09:56 +0300
commitbc70de7b3302d5a81515b901cae376b8b51d2004 (patch)
treed36d6743e65697f6923b79d0ea8f9f9bf4ef7398
parentb9e4a1fd4c8c8753ab8a9887bab55f03efe1e3e2 (diff)
downloadgawk-bc70de7b3302d5a81515b901cae376b8b51d2004.tar.gz
Move to gawk-3.1.0.gawk-3.1.0
-rw-r--r--ABOUT-NLS226
-rw-r--r--ACKNOWLEDGMENT34
-rw-r--r--AUTHORS9
-rw-r--r--COPYING6
-rw-r--r--ChangeLog1224
-rw-r--r--FUTURES95
-rw-r--r--Makefile.am161
-rw-r--r--Makefile.in1023
-rw-r--r--NEWS130
-rw-r--r--PORTS29
-rw-r--r--POSIX.STD5
-rw-r--r--PROBLEMS7
-rw-r--r--README124
-rw-r--r--README_d/README.beos56
-rw-r--r--README_d/README.ia6418
-rw-r--r--README_d/README.linux8
-rw-r--r--README_d/README.macos14
-rw-r--r--README_d/README.pc43
-rw-r--r--README_d/README.sco46
-rw-r--r--README_d/README.sgi6
-rw-r--r--README_d/README.solaris108
-rw-r--r--README_d/README.tandem33
-rw-r--r--README_d/README.ultrix19
-rw-r--r--acconfig.h24
-rw-r--r--acinclude.m48
-rw-r--r--aclocal.m41371
-rw-r--r--alloca.c496
-rw-r--r--ansi2knr.136
-rw-r--r--ansi2knr.c678
-rw-r--r--array.c395
-rw-r--r--atari/README.1st6
-rw-r--r--awk.h295
-rw-r--r--awkgram.c (renamed from awktab.c)2642
-rw-r--r--awkgram.y (renamed from awk.y)832
-rw-r--r--awklib/ChangeLog26
-rw-r--r--awklib/Makefile.am75
-rw-r--r--awklib/Makefile.in440
-rw-r--r--awklib/eg/data/guide-mellow.po8
-rw-r--r--awklib/eg/data/guide.po8
-rw-r--r--awklib/eg/lib/assert.awk2
-rw-r--r--awklib/eg/lib/bits2str.awk16
-rw-r--r--awklib/eg/lib/cliff_rand.awk14
-rw-r--r--awklib/eg/lib/ftrans.awk4
-rw-r--r--awklib/eg/lib/getopt.awk20
-rw-r--r--awklib/eg/lib/gettime.awk15
-rw-r--r--awklib/eg/lib/grcat.c6
-rw-r--r--awklib/eg/lib/groupawk.in9
-rw-r--r--awklib/eg/lib/join.awk1
-rw-r--r--awklib/eg/lib/libintl.awk9
-rw-r--r--awklib/eg/lib/mktime.awk105
-rw-r--r--awklib/eg/lib/nextfile.awk1
-rw-r--r--awklib/eg/lib/noassign.awk17
-rw-r--r--awklib/eg/lib/ord.awk18
-rw-r--r--awklib/eg/lib/passwdawk.in9
-rw-r--r--awklib/eg/lib/pwcat.c7
-rw-r--r--awklib/eg/lib/readable.awk16
-rw-r--r--awklib/eg/lib/rewind.awk20
-rw-r--r--awklib/eg/lib/round.awk4
-rw-r--r--awklib/eg/misc/findpat.awk (renamed from awklib/eg/misc/findpat.sh)6
-rw-r--r--awklib/eg/network/PostAgent.sh9
-rw-r--r--awklib/eg/network/coreserv.awk113
-rw-r--r--awklib/eg/network/eliza.awk270
-rw-r--r--awklib/eg/network/fingerclient.awk7
-rw-r--r--awklib/eg/network/geturl.awk24
-rw-r--r--awklib/eg/network/hello-serv.awk14
-rw-r--r--awklib/eg/network/maze.awk73
-rw-r--r--awklib/eg/network/mobag.awk72
-rw-r--r--awklib/eg/network/panic.awk18
-rw-r--r--awklib/eg/network/protbase.awk11
-rw-r--r--awklib/eg/network/protbase.request7
-rw-r--r--awklib/eg/network/protbase.result9
-rw-r--r--awklib/eg/network/remconf.awk54
-rw-r--r--awklib/eg/network/statist.awk85
-rw-r--r--awklib/eg/network/stoxdata.txt4
-rw-r--r--awklib/eg/network/stoxpred.awk116
-rw-r--r--awklib/eg/network/testserv.awk12
-rw-r--r--awklib/eg/network/urlchk.awk28
-rw-r--r--awklib/eg/network/webgrab.awk6
-rw-r--r--awklib/eg/prog/alarm.awk10
-rw-r--r--awklib/eg/prog/awksed.awk2
-rw-r--r--awklib/eg/prog/cut.awk13
-rw-r--r--awklib/eg/prog/dupword.awk9
-rw-r--r--awklib/eg/prog/egrep.awk26
-rw-r--r--awklib/eg/prog/extract.awk12
-rw-r--r--awklib/eg/prog/guide.awk7
-rw-r--r--awklib/eg/prog/histsort.awk3
-rw-r--r--awklib/eg/prog/id.awk42
-rw-r--r--awklib/eg/prog/igawk.sh19
-rw-r--r--awklib/eg/prog/labels.awk9
-rw-r--r--awklib/eg/prog/split.awk8
-rw-r--r--awklib/eg/prog/tee.awk1
-rw-r--r--awklib/eg/prog/testbits.awk27
-rw-r--r--awklib/eg/prog/translate.awk5
-rw-r--r--awklib/eg/prog/uniq.awk5
-rw-r--r--awklib/eg/prog/wc.awk8
-rw-r--r--awklib/eg/prog/wordfreq.awk11
-rw-r--r--awklib/extract.awk7
-rw-r--r--bisonfix.sed3
-rw-r--r--builtin.c818
-rw-r--r--configh.in136
-rwxr-xr-xconfigure4405
-rw-r--r--configure.in159
-rw-r--r--custom.h33
-rwxr-xr-xdepcomp328
-rw-r--r--dfa.c556
-rw-r--r--dfa.h48
-rw-r--r--doc/ChangeLog43
-rw-r--r--doc/Makefile.am80
-rw-r--r--doc/Makefile.in480
-rw-r--r--doc/ad.block7
-rw-r--r--doc/awkcard.in919
-rw-r--r--doc/cardfonts2
-rw-r--r--doc/gawk.11453
-rw-r--r--doc/gawk.info21021
-rw-r--r--doc/gawk.texi23639
-rw-r--r--doc/gawkinet.info4246
-rw-r--r--doc/gawkinet.texi5075
-rw-r--r--doc/lflashlight.eps135
-rw-r--r--doc/no.colors2
-rw-r--r--doc/rflashlight.eps141
-rw-r--r--doc/statist.eps557
-rw-r--r--doc/statist.jpgbin0 -> 20400 bytes
-rw-r--r--doc/texinfo.tex368
-rw-r--r--doc/uf002331.eps1155
-rw-r--r--doc/uf002331.jpgbin0 -> 36796 bytes
-rw-r--r--eval.c815
-rw-r--r--eval_p.c27
-rw-r--r--ext.c186
-rw-r--r--extension/dl.c96
-rwxr-xr-xextension/doit1
-rw-r--r--extension/filefuncs.c339
-rw-r--r--extension/foo.awk9
-rw-r--r--extension/fork.c106
-rwxr-xr-xextension/steps9
-rw-r--r--extension/testff.awk30
-rw-r--r--extension/testfork.awk20
-rw-r--r--field.c214
-rwxr-xr-xfixvers58
-rw-r--r--gawkmisc.c27
-rw-r--r--getopt.c244
-rw-r--r--getopt.h99
-rw-r--r--getopt1.c11
-rw-r--r--intl/ChangeLog1086
-rw-r--r--intl/Makefile.in218
-rw-r--r--intl/VERSION1
-rw-r--r--intl/bindtextdom.c203
-rw-r--r--intl/cat-compat.c262
-rw-r--r--intl/dcgettext.c655
-rw-r--r--intl/dgettext.c59
-rw-r--r--intl/explodename.c198
-rw-r--r--intl/finddomain.c216
-rw-r--r--intl/gettext.c70
-rw-r--r--intl/gettext.h105
-rw-r--r--intl/gettextP.h89
-rw-r--r--intl/hash-string.h59
-rw-r--r--intl/intl-compat.c76
-rw-r--r--intl/l10nflist.c411
-rw-r--r--intl/libgettext.h182
-rw-r--r--intl/linux-msg.sed100
-rw-r--r--intl/loadinfo.h78
-rw-r--r--intl/loadmsgcat.c221
-rw-r--r--intl/localealias.c438
-rw-r--r--intl/po2tbl.sed.in102
-rw-r--r--intl/textdomain.c108
-rw-r--r--intl/xopen-msg.sed104
-rw-r--r--io.c1303
-rw-r--r--m4/arch.m459
-rw-r--r--m4/gettext.m4322
-rw-r--r--m4/jm-mktime.m4178
-rw-r--r--m4/largefile.m492
-rw-r--r--m4/lcmessage.m422
-rw-r--r--m4/progtest.m447
-rw-r--r--m4/socket.m485
-rw-r--r--m4/ssize_t.m424
-rw-r--r--m4/strtod.m458
-rw-r--r--main.c461
-rwxr-xr-xmissing265
-rw-r--r--missing_d/COPYING.LIB482
-rw-r--r--missing_d/memcmp.c (renamed from missing/memcmp.c)0
-rw-r--r--missing_d/memcpy.c (renamed from missing/memcpy.c)0
-rw-r--r--missing_d/memset.c (renamed from missing/memset.c)0
-rw-r--r--missing_d/mktime.c425
-rw-r--r--missing_d/strchr.c (renamed from missing/strchr.c)0
-rw-r--r--missing_d/strerror.c (renamed from missing/strerror.c)0
-rw-r--r--missing_d/strftime.3 (renamed from missing/strftime.3)324
-rw-r--r--missing_d/strftime.c (renamed from missing/strftime.c)349
-rw-r--r--missing_d/strncasecmp.c (renamed from missing/strncasecmp.c)0
-rw-r--r--missing_d/strtod.c (renamed from missing/strtod.c)25
-rw-r--r--missing_d/system.c (renamed from missing/system.c)0
-rw-r--r--missing_d/tzset.c (renamed from missing/tzset.c)0
-rw-r--r--msg.c67
-rw-r--r--node.c175
-rw-r--r--patchlev.h1
-rw-r--r--patchlevel.h1
-rw-r--r--pc/ChangeLog77
-rw-r--r--[-rwxr-xr-x]pc/Makefile37
-rw-r--r--[-rwxr-xr-x]pc/Makefile.tst571
-rw-r--r--[-rwxr-xr-x]pc/config.h182
-rw-r--r--pc/gawkmisc.pc84
-rw-r--r--pc/popen.c95
-rw-r--r--pc/popen.h2
-rw-r--r--po/Makefile.in.in263
-rw-r--r--po/POTFILES.in23
-rw-r--r--po/cat-id-tbl.c411
-rw-r--r--po/gawk.pot1696
-rw-r--r--po/he.gmobin0 -> 33953 bytes
-rw-r--r--po/he.po1745
-rw-r--r--po/stamp-cat-id1
-rw-r--r--posix/ChangeLog28
-rw-r--r--posix/gawkmisc.c65
-rw-r--r--profile.c1381
-rw-r--r--profile_p.c27
-rw-r--r--protos.h2
-rw-r--r--random.c661
-rw-r--r--random.h15
-rw-r--r--re.c75
-rw-r--r--regex.c628
-rw-r--r--regex.h51
-rw-r--r--replace.c (renamed from missing.c)39
-rw-r--r--stamp-h.in2
-rw-r--r--test/ChangeLog208
-rw-r--r--test/Makefile.am1036
-rw-r--r--test/Makefile.in1012
-rw-r--r--test/addcomma.awk15
-rw-r--r--test/addcomma.in7
-rw-r--r--test/addcomma.ok7
-rw-r--r--test/arrayparm.ok2
-rw-r--r--test/arynasty.awk16
-rw-r--r--test/arynasty.ok1
-rw-r--r--test/badargs.ok13
-rw-r--r--test/clos1way.awk21
-rw-r--r--test/clos1way.ok26
-rw-r--r--test/clsflnam.awk2
-rw-r--r--test/clsflnam.ok1
-rw-r--r--test/datanonl.awk3
-rw-r--r--test/datanonl.in1
-rw-r--r--test/datanonl.ok1
-rw-r--r--test/fnaryscl.awk10
-rw-r--r--test/fnaryscl.ok1
-rw-r--r--test/fnasgnm.awk14
-rw-r--r--test/fnasgnm.in1
-rw-r--r--test/fnasgnm.ok1
-rw-r--r--test/fsfwfs.awk1
-rw-r--r--test/fsfwfs.in16
-rw-r--r--test/fsfwfs.ok16
-rw-r--r--test/funsemnl.awk3
-rw-r--r--test/funsemnl.ok1
-rw-r--r--test/gnuops2.awk72
-rw-r--r--test/gnuops2.ok7
-rw-r--r--[-rwxr-xr-x]test/gsubtest.awk0
-rw-r--r--test/hsprint.awk74
-rw-r--r--test/hsprint.ok66
-rw-r--r--test/inftest.awk2
-rw-r--r--test/leaddig.awk7
-rw-r--r--test/leaddig.ok1
-rw-r--r--test/leadnl.awk10
-rw-r--r--test/leadnl.in9
-rw-r--r--test/leadnl.ok8
-rw-r--r--test/lint.awk14
-rw-r--r--test/lint.ok5
-rw-r--r--test/nasty.ok2
-rw-r--r--test/nasty2.awk20
-rw-r--r--test/nasty2.ok2
-rw-r--r--test/nlinstr.awk8
-rw-r--r--test/nlinstr.in2
-rw-r--r--test/nlinstr.ok1
-rw-r--r--test/noeffect.ok2
-rw-r--r--test/nofmtch.ok2
-rw-r--r--test/octsub.awk1
-rw-r--r--test/octsub.ok1
-rw-r--r--test/ofmt.awk53
-rw-r--r--test/ofmt.in136
-rw-r--r--test/ofmt.ok6
-rw-r--r--test/ofmtbig.awk125
-rw-r--r--test/ofmtbig.in3
-rw-r--r--test/ofmtbig.ok2
-rw-r--r--test/ofmts.awk2
-rw-r--r--test/ofmts.in1
-rw-r--r--test/ofmts.ok1
-rw-r--r--test/paramtyp.awk20
-rw-r--r--test/paramtyp.ok6
-rw-r--r--test/parseme.awk1
-rw-r--r--test/parseme.ok3
-rwxr-xr-xtest/pid.sh2
-rw-r--r--test/pipeio2.awk3
-rwxr-xr-xtest/poundbang.awk (renamed from test/poundbang)0
-rw-r--r--test/printfloat.awk62
-rw-r--r--test/prmarscl.ok2
-rw-r--r--test/procinfs.awk7
-rw-r--r--test/procinfs.ok3
-rw-r--r--test/psx96sub.awk7
-rw-r--r--test/psx96sub.ok2
-rw-r--r--test/rand.ok2
-rw-r--r--test/rebt8b1.awk138
-rw-r--r--test/rebt8b1.ok16
-rw-r--r--test/rebt8b2.awk88
-rw-r--r--test/rebt8b2.ok511
-rw-r--r--test/redfilnm.awk98
-rw-r--r--test/redfilnm.in1
-rw-r--r--test/redfilnm.ok9
-rw-r--r--test/regeq.awk29
-rw-r--r--test/regeq.in2
-rw-r--r--test/regeq.ok2
-rwxr-xr-xtest/regtest.sh (renamed from test/regtest)0
-rw-r--r--test/regx8bit.awk26
-rw-r--r--test/regx8bit.ok7
-rw-r--r--test/rsnul1nl.awk2
-rw-r--r--test/rsnul1nl.in3
-rw-r--r--test/rsnul1nl.ok2
-rw-r--r--test/sclforin.ok2
-rw-r--r--test/sclifin.ok2
-rw-r--r--test/shadow.awk21
-rw-r--r--test/shadow.ok7
-rw-r--r--test/sort1.awk31
-rw-r--r--test/sort1.ok11
-rw-r--r--test/splitdef.awk7
-rw-r--r--test/splitdef.ok1
-rw-r--r--test/strtod.awk1
-rw-r--r--test/strtod.in1
-rw-r--r--test/strtod.ok1
-rw-r--r--unsupported/atari/ChangeLog (renamed from atari/ChangeLog)24
-rw-r--r--unsupported/atari/Makefile.awklib (renamed from atari/Makefile.awklib)0
-rw-r--r--unsupported/atari/Makefile.st (renamed from atari/Makefile.st)0
-rw-r--r--unsupported/atari/README.1st5
-rw-r--r--unsupported/atari/config.h (renamed from atari/config.h)0
-rw-r--r--unsupported/atari/gawkmisc.atr (renamed from atari/gawkmisc.atr)54
-rw-r--r--unsupported/atari/redirect.h (renamed from atari/redirect.h)0
-rw-r--r--unsupported/atari/stack.c (renamed from atari/stack.c)0
-rw-r--r--unsupported/atari/system.c (renamed from atari/system.c)0
-rw-r--r--unsupported/atari/tmpnam.c (renamed from atari/tmpnam.c)0
-rw-r--r--unsupported/tandem/ChangeLog31
-rwxr-xr-xunsupported/tandem/compit1
-rw-r--r--unsupported/tandem/config.h209
-rw-r--r--unsupported/tandem/getid.c120
-rw-r--r--unsupported/tandem/isatty.c22
-rw-r--r--unsupported/tandem/popen.c128
-rw-r--r--unsupported/tandem/popen.h20
-rw-r--r--unsupported/tandem/ptchlvl.h1
-rw-r--r--unsupported/tandem/strdup.c15
-rw-r--r--unsupported/tandem/strnchk.c95
-rw-r--r--unsupported/tandem/tmisc.c196
-rw-r--r--version.c5
-rw-r--r--version.in53
-rw-r--r--vms/ChangeLog53
-rw-r--r--vms/descrip.mms74
-rw-r--r--vms/gawkmisc.vms50
-rw-r--r--vms/redirect.h15
-rw-r--r--vms/vms-conf.h311
-rw-r--r--vms/vms_fwrite.c4
-rw-r--r--vms/vms_misc.c167
-rw-r--r--vms/vmsbuild.com42
-rw-r--r--vms/vmstest.com321
352 files changed, 78900 insertions, 25622 deletions
diff --git a/ABOUT-NLS b/ABOUT-NLS
new file mode 100644
index 00000000..28d38c76
--- /dev/null
+++ b/ABOUT-NLS
@@ -0,0 +1,226 @@
+Notes on the Free Translation Project
+*************************************
+
+ Free software is going international! The Free Translation Project
+is a way to get maintainers of free software, translators, and users all
+together, so that will gradually become able to speak many languages.
+A few packages already provide translations for their messages.
+
+ If you found this `ABOUT-NLS' file inside a distribution, you may
+assume that the distributed package does use GNU `gettext' internally,
+itself available at your nearest GNU archive site. But you do *not*
+need to install GNU `gettext' prior to configuring, installing or using
+this package with messages translated.
+
+ Installers will find here some useful hints. These notes also
+explain how users should proceed for getting the programs to use the
+available translations. They tell how people wanting to contribute and
+work at translations should contact the appropriate team.
+
+ When reporting bugs in the `intl/' directory or bugs which may be
+related to internationalization, you should tell about the version of
+`gettext' which is used. The information can be found in the
+`intl/VERSION' file, in internationalized packages.
+
+One advise in advance
+=====================
+
+ If you want to exploit the full power of internationalization, you
+should configure it using
+
+ ./configure --with-included-gettext
+
+to force usage of internationalizing routines provided within this
+package, despite the existence of internationalizing capabilities in the
+operating system where this package is being installed. So far, only
+the `gettext' implementation in the GNU C library version 2 provides as
+many features (such as locale alias or message inheritance) as the
+implementation here. It is also not possible to offer this additional
+functionality on top of a `catgets' implementation. Future versions of
+GNU `gettext' will very likely convey even more functionality. So it
+might be a good idea to change to GNU `gettext' as soon as possible.
+
+ So you need not provide this option if you are using GNU libc 2 or
+you have installed a recent copy of the GNU gettext package with the
+included `libintl'.
+
+INSTALL Matters
+===============
+
+ Some packages are "localizable" when properly installed; the
+programs they contain can be made to speak your own native language.
+Most such packages use GNU `gettext'. Other packages have their own
+ways to internationalization, predating GNU `gettext'.
+
+ By default, this package will be installed to allow translation of
+messages. It will automatically detect whether the system provides
+usable `catgets' (if using this is selected by the installer) or
+`gettext' functions. If neither is available, the GNU `gettext' own
+library will be used. This library is wholly contained within this
+package, usually in the `intl/' subdirectory, so prior installation of
+the GNU `gettext' package is *not* required. Installers may use
+special options at configuration time for changing the default
+behaviour. The commands:
+
+ ./configure --with-included-gettext
+ ./configure --with-catgets
+ ./configure --disable-nls
+
+will respectively bypass any pre-existing `catgets' or `gettext' to use
+the internationalizing routines provided within this package, enable
+the use of the `catgets' functions (if found on the locale system), or
+else, *totally* disable translation of messages.
+
+ When you already have GNU `gettext' installed on your system and run
+configure without an option for your new package, `configure' will
+probably detect the previously built and installed `libintl.a' file and
+will decide to use this. This might be not what is desirable. You
+should use the more recent version of the GNU `gettext' library. I.e.
+if the file `intl/VERSION' shows that the library which comes with this
+package is more recent, you should use
+
+ ./configure --with-included-gettext
+
+to prevent auto-detection.
+
+ By default the configuration process will not test for the `catgets'
+function and therefore they will not be used. The reasons are already
+given above: the emulation on top of `catgets' cannot provide all the
+extensions provided by the GNU `gettext' library. If you nevertheless
+want to use the `catgets' functions use
+
+ ./configure --with-catgets
+
+to enable the test for `catgets' (this causes no harm if `catgets' is
+not available on your system). If you really select this option we
+would like to hear about the reasons because we cannot think of any
+good one ourself.
+
+ Internationalized packages have usually many `po/LL.po' files, where
+LL gives an ISO 639 two-letter code identifying the language. Unless
+translations have been forbidden at `configure' time by using the
+`--disable-nls' switch, all available translations are installed
+together with the package. However, the environment variable `LINGUAS'
+may be set, prior to configuration, to limit the installed set.
+`LINGUAS' should then contain a space separated list of two-letter
+codes, stating which languages are allowed.
+
+Using This Package
+==================
+
+ As a user, if your language has been installed for this package, you
+only have to set the `LANG' environment variable to the appropriate
+ISO 639 `LL' two-letter code prior to using the programs in the
+package. For example, let's suppose that you speak German. At the
+shell prompt, merely execute `setenv LANG de' (in `csh'),
+`export LANG; LANG=de' (in `sh') or `export LANG=de' (in `bash'). This
+can be done from your `.login' or `.profile' file, once and for all.
+
+ An operating system might already offer message localization for
+many of its programs, while other programs have been installed locally
+with the full capabilities of GNU `gettext'. Just using `gettext'
+extended syntax for `LANG' would break proper localization of already
+available operating system programs. In this case, users should set
+both `LANGUAGE' and `LANG' variables in their environment, as programs
+using GNU `gettext' give preference to `LANGUAGE'. For example, some
+Swedish users would rather read translations in German than English for
+when Swedish is not available. This is easily accomplished by setting
+`LANGUAGE' to `sv:de' while leaving `LANG' to `sv'.
+
+Translating Teams
+=================
+
+ For the Free Translation Project to be a success, we need interested
+people who like their own language and write it well, and who are also
+able to synergize with other translators speaking the same language.
+Each translation team has its own mailing list, courtesy of Linux
+International. You may reach your translation team at the address
+`LL@li.org', replacing LL by the two-letter ISO 639 code for your
+language. Language codes are *not* the same as the country codes given
+in ISO 3166. The following translation teams exist, as of December
+1997:
+
+ Chinese `zh', Czech `cs', Danish `da', Dutch `nl', English `en',
+ Esperanto `eo', Finnish `fi', French `fr', German `de', Hungarian
+ `hu', Irish `ga', Italian `it', Indonesian `id', Japanese `ja',
+ Korean `ko', Latin `la', Norwegian `no', Persian `fa', Polish
+ `pl', Portuguese `pt', Russian `ru', Slovenian `sl', Spanish `es',
+ Swedish `sv', and Turkish `tr'.
+
+For example, you may reach the Chinese translation team by writing to
+`zh@li.org'.
+
+ If you'd like to volunteer to *work* at translating messages, you
+should become a member of the translating team for your own language.
+The subscribing address is *not* the same as the list itself, it has
+`-request' appended. For example, speakers of Swedish can send a
+message to `sv-request@li.org', having this message body:
+
+ subscribe
+
+ Keep in mind that team members are expected to participate
+*actively* in translations, or at solving translational difficulties,
+rather than merely lurking around. If your team does not exist yet and
+you want to start one, or if you are unsure about what to do or how to
+get started, please write to `translation@iro.umontreal.ca' to reach the
+coordinator for all translator teams.
+
+ The English team is special. It works at improving and uniformizing
+the terminology in use. Proven linguistic skill are praised more than
+programming skill, here.
+
+Available Packages
+==================
+
+ Languages are not equally supported in all packages. The following
+matrix shows the current state of internationalization, as of December
+1997. The matrix shows, in regard of each package, for which languages
+PO files have been submitted to translation coordination.
+
+ Ready PO files cs da de en es fi fr it ja ko nl no pl pt ru sl sv
+ .----------------------------------------------------.
+ bash | [] [] [] | 3
+ bison | [] [] [] | 3
+ clisp | [] [] [] [] | 4
+ cpio | [] [] [] [] [] [] | 6
+ diffutils | [] [] [] [] [] | 5
+ enscript | [] [] [] [] [] [] | 6
+ fileutils | [] [] [] [] [] [] [] [] [] [] | 10
+ findutils | [] [] [] [] [] [] [] [] [] | 9
+ flex | [] [] [] [] | 4
+ gcal | [] [] [] [] [] | 5
+ gettext | [] [] [] [] [] [] [] [] [] [] [] | 12
+ grep | [] [] [] [] [] [] [] [] [] [] | 10
+ hello | [] [] [] [] [] [] [] [] [] [] [] | 11
+ id-utils | [] [] [] | 3
+ indent | [] [] [] [] [] | 5
+ libc | [] [] [] [] [] [] [] | 7
+ m4 | [] [] [] [] [] [] | 6
+ make | [] [] [] [] [] [] | 6
+ music | [] [] | 2
+ ptx | [] [] [] [] [] [] [] [] | 8
+ recode | [] [] [] [] [] [] [] [] [] | 9
+ sh-utils | [] [] [] [] [] [] [] [] | 8
+ sharutils | [] [] [] [] [] [] | 6
+ tar | [] [] [] [] [] [] [] [] [] [] [] | 11
+ texinfo | [] [] [] | 3
+ textutils | [] [] [] [] [] [] [] [] [] | 9
+ wdiff | [] [] [] [] [] [] [] [] | 8
+ `----------------------------------------------------'
+ 17 languages cs da de en es fi fr it ja ko nl no pl pt ru sl sv
+ 27 packages 6 4 25 1 18 1 26 2 1 12 20 9 19 7 4 7 17 179
+
+ Some counters in the preceding matrix are higher than the number of
+visible blocks let us expect. This is because a few extra PO files are
+used for implementing regional variants of languages, or language
+dialects.
+
+ For a PO file in the matrix above to be effective, the package to
+which it applies should also have been internationalized and
+distributed as such by its maintainer. There might be an observable
+lag between the mere existence a PO file and its wide availability in a
+distribution.
+
+ If December 1997 seems to be old, you may fetch a more recent copy
+of this `ABOUT-NLS' file on most GNU archive sites.
+
diff --git a/ACKNOWLEDGMENT b/ACKNOWLEDGMENT
deleted file mode 100644
index 0851ecf9..00000000
--- a/ACKNOWLEDGMENT
+++ /dev/null
@@ -1,34 +0,0 @@
-The current developers of Gawk would like to thank and acknowledge the
-many people who have contributed to the development through bug reports
-and fixes and suggestions. Unfortunately, we have not been organized
-enough to keep track of all the names -- for that we apologize.
-
-The following people were involved in porting gawk to different platforms.
-
- Mike Lijewski <mjlx@eagle.cnsf.cornell.edu> (IBM RS6000)
- Kent Williams (MSDOS 2.11)
- Conrad Kwok (MSDOS earlier versions)
- Scott Garfinkle (MSDOS earlier versions)
- Hal Peterson <hrp@pecan.cray.com> (Cray)
-
-This group of people comprise the "GAWK crack portability team", who
-test the pre-releases and ensure portability of gawk.
-
- Pat Rankin <gawk.rankin@EQL.Caltech.Edu> (VMS)
- Michal Jaegermann <michal@gortel.phys.UAlberta.CA>
- (Atari, NeXT, DEC 3100)
- Scott Deifik <scottd@amgen.com> (MSDOS 2.14, 2.15, 3.0)
- Kai Uwe Rommel <rommel@ars.de> (OS/2)
- Darrel Hankerson <hankedr@mail.auburn.edu> (DOS and formerly OS/2)
- Mark Moraes <Mark-Moraes@deshaw.com> (Code Center, Purify)
- Kaveh Ghazi <ghazi@noc.rutgers.edu> (Lots of Unix variants)
-
-Michal, Scott and Darrel go out of their way to make sure that gawk
-works on non-32 bit systems, and keep me on track where portability is
-concerned. Indeed, all of these folks are incredibly helpful; gawk would
-not be the fine program it is now without them.
-
-Last, but far from least, we would like to thank Brian Kernighan who
-has helped to clear up many dark corners of the language and provided a
-restraining touch when we have been overly tempted by "feeping
-creaturism".
diff --git a/AUTHORS b/AUTHORS
new file mode 100644
index 00000000..c6e25079
--- /dev/null
+++ b/AUTHORS
@@ -0,0 +1,9 @@
+Wed Feb 16 10:06:17 IST 2000
+
+Gawk was written by Paul Rubin, and finished by Paul Finlason and
+Richard Stallman.
+
+David Trueman and Arnold Robbins took it over, with David doing most
+of the work to make it compatible with new awk.
+
+Circa 1994, Arnold Robbins took over maintenance.
diff --git a/COPYING b/COPYING
index 60549be5..d60c31a9 100644
--- a/COPYING
+++ b/COPYING
@@ -2,7 +2,7 @@
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -291,7 +291,7 @@ convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
- Copyright (C) 19yy <name of author>
+ Copyright (C) <year> <name of author>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -313,7 +313,7 @@ Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
- Gnomovision version 69, Copyright (C) 19yy name of author
+ Gnomovision version 69, Copyright (C) year name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
diff --git a/ChangeLog b/ChangeLog
index 95f9aeae..ec85759b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,1223 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Wed Apr 25 11:44:07 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (AM_MAKEFLAGS): Add definition per advice from
+ Nelson Beebe.
+
+Tue Apr 24 14:28:00 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * io.c (devopen): Patch from Jeurgen to robustify pulling
+ out hostname, port numbers, etc, to avoid any buffer overrun
+ problems.
+
+Mon Apr 23 10:26:38 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * awkgram.y: Fix grammar so that `print ... |& ".." |& getline'
+ dies with a parse-time error message.
+
+Sun Apr 22 16:46:48 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * io.c (socketopen): Fix from Juergen in recursive call.
+
+Thu Apr 19 18:39:20 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * awk.h: Really fix logic around include of <sys/types.h>.
+
+ * awk.h (callresult): New name for `result' macro.
+ * eval.c (r_get_lhs, case Node_builtin): Use it.
+
+Thu Apr 19 16:31:09 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * io.c: Move code around to allow compilation with DEC C.
+
+Thu Apr 19 16:21:56 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * random.h: Move decl of random() here.
+ * random.c: Remove decl of random().
+
+Mon Apr 9 11:41:58 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * dfa.c (dfainit): Initialize more members in the structure,
+ based on bug report in bug.gnu.utils by aaronl@vitelus.com
+ (Aaron Lehmann).
+ * awk.h: Fix logic around include of <sys/types.h>.
+
+Thu Apr 5 20:12:05 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * dfa.c: for VMS, #include <stddef.h> instead of <sys/types.h>.
+ * missing_d/mktime.c: likewise.
+
+ * random.c: reorder include directives to get gawk config info
+ from random.h sooner.
+ [fcntl.h]: guard #include with HAVE_FCNTL_H test.
+ [unistd.h]: guard #include with HAVE_UNISTD_H test.
+
+ * random.c (srandomdev): skip /dev/urandom usage if O_RDONLY
+ is not defined.
+
+Tue Mar 20 11:07:11 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (function_body): Add opt_nls to end of production.
+
+Tue Mar 20 09:30:32 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * awk.h (BROKEN_STRNCASECMP): Add decl of strcasecmp.
+ * io.c (two_way_open): Add `return FALSE;' for fussy compilers.
+
+Sun Mar 18 15:10:56 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (gawk_pclose): Set the exit value for close correctly
+ if the pipe died with a signal.
+
+Wed Mar 7 11:28:52 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (get_a_record): Correctly handle the case of a leading
+ single newline at the front of the file when RS = "".
+
+2001-02-26 Paul Eggert <eggert@twinsun.com>
+
+ * COPYING: Incorporate latest version from FSF, which fixes a Y2k bug.
+
+ * builtin.c (do_mktime): Allow the user to specify the
+ tm_isdst member as an optional trailing integer, and to
+ specify "out-of-range" members. Check for overflow when
+ subtracting 1 from month or 1900 from year. Allow years just
+ past INT_MAX, as they work on some hosts when INT_MAX - 1900
+ is representable as an int.
+
+ * doc/gawk.1, doc/gawk.texi: Document the above changes.
+ Also, document that the origin-zero Gregorian calendar is used.
+ Fix confusing wording about "midnight" by replacing it with 00:00
+ ("midnight" is also 24:00, the end of the day).
+ Mention the typical range for time stamps.
+ Do not assume that years are nonnegative and are less than 10,000.
+ Suggest TZ=UTC0 instead of TZ=GMT0, as that's how recent versions
+ of GNU date behave.
+ GMT is not always the time of day in Greenwich these days.
+ Fix typos: "Emporer/Era", "1980's", "1970's".
+
+ * m4/largefile.m4: Synchronized with latest version.
+
+Tue Feb 27 12:10:11 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * profile.c (pp_in_array): Change test to tree->type == Node_expression_list.
+
+Wed Feb 7 14:46:50 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (LEX_FOR): Allow newline after `;' in for loops.
+ Per bug report from Brian Kernighan, bwk@research.bell-labs.com.
+
+Tue Feb 6 18:35:27 2001 Martin C. Brown <mc@whoever.com>
+
+ * io.c (socket_open): Conditionalize various options based on
+ ifdef. Needed for BeOS port.
+
+Tue Feb 6 18:17:13 2001 Michal Jaegermann <michal@ellpspace.math.ualberta.ca>
+
+ * regex.c (re_match_2_internal): Case maybe_pop_jump, for
+ charset and not_charset: change cast from (unsigned char)
+ to (unsigned). Catches last 8 chars with high bit set
+ if backtracking. See test/rebt8b1.awk, test/rebt8b2.awk.
+
+Tue Feb 6 11:20:21 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ Have `for (iggy in foo)' save the elements and loop over them.
+ Make sorted for loops a dynamic test instead of a compile time test.
+ Still requires being Strong In The Ways Of The Source.
+
+ * awk.h: (struct search): removed.
+ (assoc_scan, assoc_next): removed declarations.
+ * array.c (assoc_scan, assoc_next): removed functions.
+ * eval.c (interpret): remove Node_K_array_sorted_for. Change code
+ at Node_K_arrayfor.
+ (nodetypes): remove Node_K_array_sorted_for.
+ * configure.in: removed array sorting test.
+ * awkgram.y: removed sorted_in keyword and associated code.
+
+Sun Feb 4 14:57:49 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (interpret): use tree->rnode->exec_count to hold count of
+ times if was true.
+ profile.c (interpret): ditto.
+ * main.c (pre_assign): gross hack. malloc fresh copy of assign so can
+ clear the '=', otherwise screws up profiling print out.
+
+Sun Jan 28 16:16:02 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ Per request from Nelson Beebe, SIGHUP to pgawk dumps profile
+ and function call stack and exits, SIGUSR1 dumps and continues
+ running.
+
+ * eval.c (dump_fcall_stack): New function, dumps awk function call
+ stack.
+ * awk.h (dump_fcall_stack): Add declaration.
+ (init_profiling_signals): Ditto.
+ * main.c (main): Call init_profiling_signals.
+ * profile.c (init_profiling_signals, dump_and_exit, just_dump): new
+ functions.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * io.c (gawk_popen): Restore the mode of stdin before running the
+ child process and switch it back if BINMODE is in effect after the
+ child returns.
+ (redirect): Restore the mode of stdin before running the child
+ process.
+ (close_redir): Switch mode of stdin back to binary if BINMODE is
+ in effect, after the child returns.
+
+ * builtin.c (do_system): Restore the mode of stdin before running
+ the child process and switch it back if BINMODE is in effect after
+ the child returns.
+
+ * awk.h (os_restore_mode): Add prototype.
+
+Thu Jan 18 14:03:06 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * custom.h, README_d/README.ultrix: Fixes for Ultrix
+ from Juergen Kahrs.
+
+Wed Jan 17 11:03:40 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * io.c (redirect) [F_GETFL && O_APPEND]: Use binmode in the call
+ to fdopen.
+
+Mon Jan 15 16:29:52 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * profile.c (prec_level): Made Node_K_getline higher than <
+ but lower than others. Allows use of getline with redirection
+ inside an if.
+
+Wed Jan 10 15:35:06 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (set_BINMODE): Rationalized string assignment.
+
+Sun Jan 7 15:26:16 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * getopt.h: Removed names in prototypes for getopt_long
+ and getopt_long_only, fixes problems on MINGW32.
+
+Thu Jan 4 10:13:46 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: Add check for mcheck.h
+ * main.c: Include mcheck.h if have it.
+ (main): If TIDYMEM turned on in environment, also call mtrace().
+
+Wed Jan 3 16:41:33 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ Fixed minor memory leaks.
+ * re.c (re_update): When IGNORECASE changed, unref(t->re_text).
+ * eval.c (pop_fcall): Fix the logic to correctly free the vname
+ when copying array args back to their underlying source.
+
+ Fixed massive memory leaks.
+ * node.c (dupnode): If PERM is set, do nothing.
+ (unref): Fix logic. Always turn off TEMP. Check just for MALLOC
+ when incrementing the stref.
+ * array.c (assoc_lookup): Turn off PERM also when saving subscript.
+ * builtin.c (sub_common): Turn off PERM also when making private copy
+ of string.
+
+ Add a minor memory cleanup facility (undocumented):
+ * awk.h (do_tidy_mem, release_all_vars): Add declarations.
+ * main.c (do_tidy_mem): Add declaration.
+ (main): if $TIDYMEM exists, do_tidy_mem is true, and call mtrace().
+ * awkgram.y (release_all_vars): New function.
+
+Sun Dec 31 10:47:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (in_end_rule): Renamed `parsing_end_rule' to avoid
+ conflict with global var of same name.
+
+Sun Dec 24 10:36:54 2000 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * awkgram.y (snode): Reword the error message about the number of
+ arguments for a builtin, so as not to use the English `s' as a
+ plural suffix.
+
+Tue Dec 12 08:38:03 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * ext.c (do_ext): ifdef out use of `dummy'. Duh.
+ * regex.c (re_error_msgid): Revert to array of `char *' so that can
+ compile on K&R compilers. Fix all uses appropriately.
+ (re_error_msgid_idx): Removed.
+
+Fri Dec 8 11:47:26 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * ext.c (dummy): Make gcc specific via ifdef.
+ * builtin.c (do_dcgettext): make conditional compilation smarter.
+ * msg.c (warning, error, r_fatal): Finish switching back to
+ multi-version function header.
+
+Wed Dec 6 13:28:58 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * random.h: include <config.h> to get ssize_t definition.
+ * awkgram.y (yyerror): Restore multi-version function header,
+ it seems that what ansi2knr produces doesn't quite do the
+ job on old compilers.
+ msg.c (msg): Ditto.
+
+Tue Dec 5 15:05:35 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in (AC_C_INLINE): Added macro call.
+ * Makefile.am (LN): Define it for install hooks.
+
+Sun Dec 3 17:28:53 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (os_setbinmode): Declare new function.
+ (setmode): Remove definition: conflicts with MacOS X.
+ * main.c (main): Change call of setmode to os_setbindmode.
+
+ * builtin.c (do_dcgettext): Improve ifdef for code, fixes MacOS X.
+ * custom.h (__APPLE__): Force definition of HAVE_MKTIME, won't
+ link otherwise. Harumph.
+
+Sun Nov 26 11:58:52 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * builtin.c (do_dcgettext, do_bindtextdomain): Add calls to
+ free_temp the various arguments. Sigh.
+ * io.c (yylex): nuked bstart variable, put all uses of mend variable
+ into TANDEM ifdef.
+ * main.c (load_environ): removed cp variable, value never used.
+ * random.c: Remvoed uses of `inline' keyword.
+ * Makefile.am (install-exec-hook, uninstall-local): new targets.
+ Adds creation of gawk-X.Y.Z and awk links, as in 3.0.x.
+ * configure.in (GAWK_AC_TYPE_SSIZE_T): Added.
+ m4/ssize_t.m4: new file.
+
+Wed Nov 22 14:47:18 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ After consultation with Brian Kernighan and Michael Brennan,
+ nuked the abort keyword.
+
+ * awk.h (Node_K_abort): removed.
+ * eval.c (aborting): removed decl.
+ (interpret): Removed Node_K_abort case.
+ * io.c (do_input): Removed checks for aborting.
+ * main.c (aborting): removed.
+ (main): Removed checks for aborting.
+ * profile.c (pprint): Removed Node_K_abort case.
+ * awk.y (LEX_ABORT): All stuff removed.
+
+Wed Nov 22 10:45:57 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * ext.c (dummy): Move inside #ifdef DYNAMIC. Helps on
+ PCs and other platforms that don't do dynamic loading.
+ * awk.h (RED_TCP): New flag, means use shutdown.
+ io.c (redflags2str): Add RED_TCP.
+ (SHUT_RD, SHUT_WR, SHUT_RDWR): Add conditional defines.
+ (redirect): Add RED_TCP to tflag if appropriate. Add more
+ #ifdef HAVE_SOCKETS as needed.
+ (close_redir): If RED_TCP set, shutdown(2) on each end of the socket.
+
+Tue Nov 21 16:25:41 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y: for (iggy in foo) loops: add test that index
+ in delete statement is a simple variable.
+
+Tue Nov 14 16:11:39 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h: Add appropriate conditional versions of the gettext
+ functions if we don't have <libintl.h> or if ENABLE_NLS
+ is not defined or zero.
+ * configure.in: Add check for libintl.h header.
+
+ From Scott Deifik for PCs.
+ * awk.h (lintwarn): Call set_loc unconditionally, makes
+ compilation work on PCs.
+ * builtin.c (do_dcgettext): Compile out cat_tab and code
+ if not ENABLE_NLS.
+ * ext.c: for MSC, no long long variable.
+ * random.c: use clock() instead of gettimeofday().
+ * builtin.c: Fixed prototypes for new random functions (ADR).
+
+Sun Nov 12 17:45:44 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * builtin.c (parse_next_arg): Fix call to >= num_args so
+ running out of args check is correct, instead of core dumping.
+ (format_tree): Save and restore `the_args' and `args_size'
+ if a nested call is in progress, see explanatory comment.
+ See also tests/addcomma.
+ * Makefile.am: Fix things so that gawk/pgawk built first,
+ even if `make check' called before make. Add some
+ commentary.
+
+Wed Nov 8 14:39:20 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: Only add -rdynamic for linux.
+ * dfa.h, dfa.c: upgraded to versions in grep 2.4.2.
+
+Tue Nov 7 18:17:17 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * All: Switched to ANSI function headers and added
+ `ansi2knr' automake option. Really cool.
+
+Tue Nov 7 16:57:49 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (redirect): Check for O_APPEND in flags when doing
+ fdopen() of /dev/fd/N. Thanks to bug report from
+ "John H. DuBois III" <spcecdt@armory.com>.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (os_is_setuid): declare function.
+ * main.c (main): call it if do_lint and warn if true.
+ * awkgram.y (tokentab):
+ - Made sure all extensions are actually marked as such. Ouch.
+ - Changed "sort" to "asort". Potential to break too much old code.
+ * getopt.h, getopt.c, getopt1.c: replaced with current versions
+ from glibc CVS archive.
+
+Mon Nov 6 18:14:33 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * random.c: Replaced with recent version from FreeBSD.
+
+Mon Nov 6 15:37:12 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ Major simplification of automake machinery.
+
+ * configure.in:
+ - INSTALL is forced only if not provided in environment
+ - lots of Makefile.in files removed since move to automake 1.4a
+ * Makefile.am, */Makefile.am: Moved directories that don't need
+ the automake machinery into EXTRA_DIST as appropriate and
+ removed the Makefile{,.am,.in} files as needed.
+ * eval_p.c, profile_p.c: New files to make it easier with automake
+ to compile pgawk.
+
+Tue Oct 24 12:20:18 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (valinfo, var_comp, dump_vars): New functions to dump
+ the list of global variables.
+ * awk.h: Declare dump_vars.
+ * main.c (optab): new option "dump-variables".
+ (main): Code to handle it, set the output file and then call
+ dump_vars() at the end.
+ (usage): New option added to usage message.
+
+Sat Oct 21 22:59:59 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (parms_shadow): For a function, check if any
+ parameters shadow global variables and print a warning.
+ (shadow_funcs): Go through all functions and call parms_shadow().
+ (isnoeffect, isassignable): Add Node_LINT and NODE_BINMODE.
+ * main.c (main): If do_lint, call shadow_funcs().
+ * awk.h: add declaration of shadow_funcs().
+ * configure.in: added m4/Makefile and awklib/eg/network/Makefile
+ to list of generated makefiles.
+
+Tue Oct 17 10:47:35 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * array.c (assoc_lookup): Reverted change that did dupnode of
+ array indices. Creates significant problems if index is
+ numeric value and CONVFMT changes. Added fix to set
+ bucket->ahname->stfmt to -1 so that force_string never recalculates
+ the string value, and also turned off NUM and turned on STR.
+ See test/arynasty.awk.
+
+Mon Oct 16 12:21:26 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * All: Cleaned up various lint warnings for consistent phrasing.
+ * awk.y (in_end_rule): New variable for warning about unredirected
+ getline. It's ok in a BEGIN, but not in an END.
+
+Sun Oct 15 14:14:05 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * field.c (set_FS): Add lint warning for FS = "".
+ (do_split): Ditto for 3rd arg = "".
+
+Fri Oct 13 09:17:04 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (close_redir): Clear rp->fp on all closes. Remove
+ rp from list if either closing both ends or both ends
+ have been closed separately. Add exitwarn message for
+ co-process.
+ (flush_io): Add warning message if fflush of co-process
+ fails. Rationalize return value to either 0 or -1.
+ * builtin.c (do_gensub): 3rd arg of zero generates a
+ warning.
+ (do_fflush): rationalize return value: -1 for unopen or read-only
+ redirection, status of fflush otherwise.
+
+Wed Oct 11 22:11:19 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y (for loop): Check that there is a body as
+ part of the `is it a delete statement' check.
+
+Thu Oct 5 11:56:42 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h, awkgram.y, configure.in, eval.c: enabled
+ `for (i in_sorted array)' loops for those who
+ are Strong In The Way Of The Source. So there.
+
+Mon Oct 2 10:09:32 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (do_close): make close(x) for non-open x return -1
+ and update ERRNO. close(FILENAME) no longer does anything
+ magic; this is all for better consistency with other awks
+ and is more logical, anyway.
+
+Thu Sep 28 17:27:16 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (close_one): Added a lint warning if it becomes
+ necessary to start multiplexing fd's, per ancient suggestion
+ from Scott Deifik, <scottd@amgen.com>.
+
+Tue Sep 26 14:41:41 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * profile.c: Move enum for redirection placement to top
+ of file, and make the value a parameter to pp_redir.
+ Fix all the calls. This gets `|&' right everywhere.
+
+Sun Sep 24 16:38:04 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (freenode): set the flags straight to UNINITIALIZED.
+ * node.c (unref): Fix test for MALLOC|TEMP to test the
+ actual flags, not zero.
+ * builtin.c (format_tree): ala print and concat, dupnode
+ the temp nodes from tree_evaling the arguments. See
+ test/nasty2.awk.
+
+Mon Sep 18 10:16:58 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (snode): Make match 3rd arg and close 2nd arg fatal
+ errors if --tradtional.
+
+Thu Sep 14 12:22:42 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (update_ERRNO): Call gettext on result of strerror.
+ i18n rules.
+
+Wed Sep 13 14:56:11 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (r_tree_eval): Case for Node_concat. Dupnode the
+ strings ala do_print to get more consistent results.
+ Compare gawk 3.0.6 to nawk/mawk on test/nasty.awk.
+ Thanks to Andrew Sumner (andrewsumner@yahoo.com) for
+ pointing this one out.
+
+Wed Sep 13 10:06:47 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (two_way_close_type): New enumerated type.
+ (close_redir): New third param of type two_way_close_type.
+ Add smarts to two-way case for different close types.
+ Only remove it from the redir list if closing is for both ends.
+ (gawk_pclose): Check that rp->iop != NULL before closing,
+ all three versions.
+ * awkgram.y (tokentab): Allow 2nd argument to close.
+ (snode): Add lint warning.
+
+Sun Sep 10 14:16:10 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * field.c (set_FIELDWIDTHS): Generate a fatal error upon
+ encountering a negative width.
+
+Sun Sep 10 10:37:35 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awkgram.y (snode): If first argument to dcgettext is a
+ string constant and --gen-po, dump the string constant to
+ the .po file too.
+ * main.c (nostalgia): Add call to fflush(stderr).
+ * eval.c (r_tree_eval): Add entries for Node_LINT and for
+ NODE_TEXTDOMAIN.
+
+Thu Sep 7 10:46:20 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * builtin.c (do_dcgettext): Per suggestion from Ulrich Drepper,
+ make the awk interface:
+
+ str = dcgettext(string [, domain [, category]])
+
+Wed Sep 6 16:28:12 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ Bring gettext features out to the awk level!
+
+ * awk.h: Add declarations of new functions `do_dcgettext'
+ `do_bindtextdomain', `set_TEXTDOMAIN' and variables
+ `TEXTDOMAIN', `TEXTDOMAIN_node'. New NODETYPE enum
+ `Node_TEXTDOMAIN'.
+ * eval.c (nodetypes): add Node_TEXTDOMAIN at end.
+ (set_TEXTDOMAIN): new function.
+ (r_get_lhs): add case for Node_TEXTDOMAIN.
+ * main.c (varinit): add entry for TEXTDOMAIN.
+ * node.c (format_val): If INTLSTR use dcgettext of string
+ and TEXTDOMAIN.
+ * awkgram.y (tokentab): Add entries for "dcgettext" and
+ "bindtextdomain".
+ * builtin.c (do_dcgettext, do_bindtextdomain): new functions.
+
+Tue Sep 5 17:01:34 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * profile.c (pp_string_fp): Use lower case versions of
+ isascii and isprint to avoid printing high-bit-set
+ characters. Make it smarter to break strings at 70
+ chars or after embedded newline, for --gen-po.
+ Fix the calls to it everywhere for new boolean option
+ to yes/no break lines.
+ * m4/strtod.m4: new file, defines GAWK_AC_FUNC_STRTOD_C89.
+ * configure.in: GAWK_AC_FUNC_STRTOD_C89 call added
+ * acinclude.m4: include strtod.m4.
+ * acconfig.h: add entry for STRTOD_NOT_C89.
+ Remove entries for BITOPS and NON_DEC_DATA.
+ * missing/missing.c: add check for STRTOD_NOT_C89, use ours
+ if set.
+ * missing/strtod.c: make smarter for input like 0x345.
+ * awk.h: [STRTOD_NOT_C89]: define strtod gawk_strtod to get
+ our version. Avoids linker weirdness.
+
+Mon Sep 4 09:16:43 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * field.c (set_record): fix from Utz-Uwe Haus
+ <haus@saturn.Math.Uni-Magdeburg.DE> to make sure there's
+ always enough room in the record.
+ * builtin.c (nondec2awknum): Fix octal conversions to exit
+ when hitting a non-digit, and not go to decimal. Make
+ check for non-octal better. Based on bug report from
+ Morris_Lee@tvratings.com.
+
+Sun Sep 3 13:52:11 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * builtin.c (format_tree): Allow positional parameters for
+ %*.* kinds of things.
+
+ Made octal/hex constants and strtonum on by default. Made
+ --enable-non-decimal-data a runtime switch `--non-decimal-data'.
+
+ * configure.in: Removed AC_ARG_ENABLE for --enable-bitops and
+ --enable-non-decimal-data.
+ In .developing check, remove the AC_DEFINEs.
+ * awk.h: Decls for bitwise functions now there by default.
+ Add decl of `do_non_decimal_data'.
+ * main.c (do_non_decimal_data): new variable
+ (optlist): add new entry for `--non-decimal-data'.
+ (main): turn off `do_non_decimal_data' if `do_traditional'.
+ (usage): add the new option.
+ * node.c (r_force_number): make check for non-decimal data a
+ runtime check based on do_non_decimal_data.
+ * awkgram.y (yylex): make non-decimal constants a runtime check.
+ * builtin.c: remove the ifdefs around the bit functions and
+ nondec2awknum.
+
+Tue Aug 29 18:45:56 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: go back to ARRAYDEBUG if .developing set.
+ * awkgram.y: use ARRAYDEBUG for adump(), use multiple tests
+ for stopme().
+
+Mon Aug 28 17:09:06 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * field.c (do_split): Add check for first arg is null string,
+ if so, skip the work and return zero.
+
+Mon Aug 14 23:01:55 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Add %COUNT$... handling to printf.
+ awk.h (printf_count): new define in NODE structure.
+ (format_tree): added decl.
+ awkgram.y (count_args): new function to set printf_count in
+ a node.
+ [print productions]: call the function.
+ (snode): for do_sprintf, call count_args, set the count
+ in the lnode.
+ builtin.c (format_tree): new fourth arg is argument count.
+ Add smarts to handle the `$' in a format.
+ (do_sprintf): use new argument to format_tree.
+ node.c (format_val): ditto.
+
+Sun Aug 13 11:10:41 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ Changes from Alan J. Broder (ajb@woti.com):
+ - Array third arg to match puts subtexts into the array:
+ * awk.y (tokentab): "match" gets third arg, and lint warning
+ * builtin.c (do_match): if third arg there, fill it with subtexts
+ - New builtin sort function:
+ * awk.h (do_sort): declared.
+ * array.c (do_sort, dup_table, merge, merge_sort, assoc_from_list,
+ assoc_sort_inplace): new functions.
+
+ * eval.c (tree_eval): in debug code, make uninitialized var
+ a warning, not a fatal error. Breaks too many things.
+
+Wed Aug 9 10:51:41 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (func_call): Increment the exec_count on the
+ function's node; this allows printing a call count for
+ functions.
+ profile.c (pp_func): print the count for functions.
+ * ALL: Changed DEBUG to GAWKDEBUG in all gawk files, so that
+ I don't get regex/dfa debugging. In some cases, changed
+ memory-related stuff to MEMDEBUG. Still have work to do.
+ * awk.h, node.c, profile.c: removed exec_count_init variable;
+ code has been cleaned up to not need different values for
+ profiling/not profiling.
+
+Thu Jul 5 21:10:59 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (casetable): Removed the USE_PURE_ASCII stuff; it
+ was never documented. Latin 1 forever.
+ * main.c (main): only call `init_profiling' after arg parsing
+ if `do_profiling' is still false. Avoids resetting `prof_fp'
+ back to stderr.
+
+2000-02-17 Akim Demaille <akim@epita.fr>
+
+ * m4: New directory.
+ * acinclude.m4: Removed, replaced by m4/*.m4.
+ * Makefile.am: Adjusted.
+ Added ACLOCAL_AMFLAGS.
+ * configure.in Adjusted.
+ Use AC_SYS_LARGEFILE not GAWK_AC_SYS_LARGEFILE, jm_FUNC_MKTIME,
+ not GAWK_FUNC_MKTIME.
+ * acconfig.h: Removed _FILE_OFFSET_BITS, _LARGEFILE_SOURCE and
+ _LARGE_FILES now templated by m4/largefile.m4.
+
+2000-02-15 Arnold Robbins <arnold@skeeve.com>
+
+ * MOVED TO AUTOMAKE AND GETTEXT.
+ Just about every file touched. Work done by Arno Peters.
+
+Sun Jan 2 14:48:23 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ First edit of the new millenium!
+ * awk.y (yylex): if lint checking, be obnoxious about gotos.
+
+Mon Oct 25 19:12:02 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h: remove C_ALLOCA ifdef.
+ * main.c (main): remove C_ALLOCA code.
+ * io.c (do_input): ditto.
+
+Mon Aug 9 17:36:24 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * bisonfix.sed: unconditionally #undef YYSTACK_USE_ALLOCA.
+ * configure.in: remove all alloca and ALLOCA related stuff.
+ * Makefile.in: ditto
+
+Thu Jul 29 18:32:05 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (NODE): exec_count now in #ifndef NO_PROFILING.
+ * Makefile.in: changes to only recompile eval.c and profile.c to a
+ special version for profiling.
+ * custom.h [MSC_VER]: turn on NO_PROFILING to omit the exec_count
+ and save space.
+ * node.c (more_nodes): move setting of exec_count to
+ #ifndef NO_PROFILING.
+
+Thu Jul 1 12:12:05 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in (AC_PREREQ): update to 2.13.
+ GAWK_AC_C_STRINGIZE: convert to AC_C_STRINGIZE.
+ * aclocal.m4 (GAWK_AC_C_STRINGIZE): remove definition, now
+ part of autoconf.
+ * acconfig.h (HAVE_STRINGIZE): ditto.
+
+Wed Apr 28 11:08:05 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * array.c (assoc_lookup): fix call to free_temp(subs) to after
+ last use of subs.
+
+Sun Apr 25 16:48:06 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (redirect): add lint warning when same file is used for
+ > and >>.
+
+Thu Apr 22 15:05:30 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * array.c (assoc_lookup): Fix call to fatal to lintwarn instead.
+ * node.c (r_force_number): Use `0 &&' to disable warnings about
+ conversions: they're overzealous, methinks.
+
+Thu Apr 8 14:27:58 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ New features for profiling:
+ * awk.h (NODE): add `exec_count' member.
+ (freenode): clear `exec_count' upon free.
+ * awk.y (func_count): new variable, counts total number of functions.
+ (func_install): increment func_count.
+ (struct finfo): information for use in sorting functions when
+ pretty printing.
+ (fcompare): compare two finfo structures.
+ (dump_funcs): print the functions in sorted order for profiling.
+ (getfname): return the name of a builtin function.
+ * eval.c (INCREMENT): new macro for counting execution of nodes.
+ (interpret): call INCREMENT() appropriately.
+ * main.c (do_profiling): new flag if doing profiling.
+ `--profiling': new option added to getopt_long machinery.
+ (main): For profiled version, set do_profile and output file.
+ Call `dump_prog' and `dump_funcs' if do_profiling at end.
+ (usage): add new argument.
+ * node.c (more_nodes, freenode): set exec_count to zero.
+ * profile.c: new file, does pretty printing and prints counts.
+ * Makefile.in: update to create two versions of gawk, regular
+ and `pgawk' which does profiling.
+
+Wed Mar 10 21:38:14 1999 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (close_redir): use update_ERRNO() instead of manually
+ doing it.
+
+Mon Dec 21 15:58:21 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: add BeOS to list of cases where we hardwire
+ GETPGRP_VOID.
+ custom.h: remove the #define from __be_os case. Cleaner to
+ do it all in configure. Based on email from Martin C. Brown,
+ mc@whoever.com.
+
+Mon Nov 30 20:52:52 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (update_ERRNO): new function, mainly for use by
+ extension functions.
+ * awk.h: add decl.
+
+Tue Nov 24 18:13:29 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Changes based on submission from Christos Zoulas at D.E. Shaw
+ that adds the following features:
+ - checking for use of uninitialized variables
+ - checking if a string that's not a number converts to 0
+ - ability to load a dynamic library to add built-ins
+ - VERSION variable (may or may not stay)
+ Additional change:
+ - --lint=fatal makes lint errors become fatal
+ - LINT="fatal" has the same effect, any other positive
+ value makes lint errors be just warnings
+ * Makefile.in (includedir): new variable for gawk header files
+ (ext.c, ext.o): new source and object files
+ (OTHERS, extension): new directory for macro with example extension
+ (install): install header files
+ * acconfig.h (DYNAMIC): new macro, true if can do dynamic loading
+ * array.c (assoc_lookup): new parameter `reference' is true if we
+ want to do reference checking. Add appropriate reference checking
+ code.
+ * awk.h (UNITITIALIZED): new flag
+ (lintfunc): function pointer for correct function to use
+ (lintwarn): new macro to produce warnings
+ (result): new macro for func call result, used in commented out
+ code in eval.c.
+ (getnode, freenode): revised to set UNINITIALIZED.
+ (get_lhs): third arg for reference checking, change all calls
+ -- Add appropriate decls of new/changed functions
+ * awk.y (tokentab): new builtin "extension" for adding extensions
+ (node_common): set flags to UNINITIALIZED for Node_var.
+ * configure.in (dynamic linking): new check. Probably should
+ be a separate macro.
+ * eval.c (flag2str): add UNINITIALIZED to the table.
+ (r_tree_eval): add checks for UNINITIALIZED.
+ (push_args): appropriate changes for UNINITIALIZED to work.
+ (r_get_lhs): new third argument for reference checking.
+ (set_LINT): add code to handle setting `lintfunc' appropriately.
+ * ext.c: new file, for doing dynamic library extensions.
+ * extension/*: new directory with simple example code.
+ * main.c (VERSION_node, EXTENSION_node): new nodes for new vars.
+ (optab): change for "lint" to allow optional argument.
+ (lintfunc): definition.
+ (main): add case in option processing for --lint.
+ (varinit): add entries for VERSION and EXTENSION.
+ * node.c (r_force_number): checks that string really is a number.
+ (morenodes): set UNITIALIZED in the flags.
+ * re.c (all): change `result' to `res' globally to avoid conflict
+ with new macro.
+ * GLOBAL: change lint calls to warning() to lintwarn().
+ * GLOBAL: change all calls to get_lhs() to have 3rd arg.
+ * GLOBAL: change all calls to assoc_lookup() to have 3rd arg.
+
+Sun Nov 22 17:07:39 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * patchlev.h: renamed from patchlevel.h to make life
+ easier for the PC guys.
+ (main.c): changed to include patchlev.h.
+ (Makefile.in): changed to ref patchlev.h where needed.
+
+Sat Nov 7 21:29:52 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (r_get_lhs): case Node_field_spec. Fix the lint
+ warnings for field reference of null string or non-numeric value.
+ When turned on, $0 generated a warning! Oops.
+
+Thu Nov 5 16:58:38 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * main.c (init_fds): new function to pre-open 0, 1, and 2 on
+ /dev/null if they're not open. Robustness, more or less.
+ (main): call init_fds.
+ * io.c (str2mode): add smarts for two-letter strings
+ such as "rw", "r+", "wr", "w+" and "a+".
+
+Mon Nov 2 16:55:46 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * builtin.c (do_*): added lint checks for non-numeric
+ and/or non-string arguments, as appropriate. This should
+ have been done long ago.
+
+Tue Oct 20 21:56:06 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (LINT_node): new variable for LINT special var
+ (Node_LINT): new node type.
+ (set_LINT): declare function.
+ * main.c (varinit): add LINT variable.
+ (usage): print an emphatic pointer to the manual for bug reports.
+ * eval.c (nodetypes): new entry for Node_LINT.
+ (r_get_lhs): case added for Node_LINT.
+ (set_LINT): set do_lint from LINT variable.
+
+Mon Oct 19 22:35:46 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: for GCC, add -Wall to get warnings for development.
+ * Makefile.in (awktab.c): move sed stuff to separate script.
+ * bisonfix.sed: new script, with old fix and Solaris x86 fix.
+ * awk.h (nodetype2str): add declaration.
+ (load_procinfo): add declaration.
+
+Tue Oct 13 22:28:56 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Changes to make PROCINFO["FS"] reflect the use of FIELDWIDTHS or FS.
+ eval.c (assign_val): new function that does the mechanics of
+ assignment
+ main.c (load_procinfo): add setting of PROCINFO["FS"] to "FS".
+ field.c (update_PROCINFO): new function to update the array.
+ (set_FS): call update_PROCINFO.
+ (set_FIELDWIDTHS): ditto.
+
+Sun Sep 27 10:18:05 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (reisstring): new prototype.
+ * re.c (reisstring): new function, returns true if the re did
+ a simple string match. This is rather simplistic in its logic.
+ * io.c (get_a_record): in the case that RS is a regexp, AND
+ the re matched at the exact end of the buffer, add a call to
+ `reisstring' in case it's a simple string match. If so, we
+ don't need to read more into the buffer because we don't
+ have a regex like `x.*y' that might extend longer.
+ This should be very helpful for interactive /inet clients
+ where something like `RS = "\r\n"' happens.
+
+Thu Aug 13 22:07:40 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (socketopen): fixes from Juergen Kahrs to socket
+ opening code for "any host".
+
+Tue Jul 14 19:02:33 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * aclocal.m4 (GAWK_AC_LIB_SOCKETS): removed the caching;
+ configure gave different results the second time it was run!
+
+Fri Jul 10 09:11:06 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (interpret): minor cleanups: add variable name to
+ fatal error Node_K_array_for and other minor changes.
+
+Mon Jun 22 16:53:34 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.in (tags, TAGS): add $(LIBSRC).
+
+Tue Jun 2 15:23:05 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (devopen): relax previous change, don't require "any",
+ just that a port be there. The user can put 0 if they
+ don't care.
+
+Wed May 27 21:33:45 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (devopen): for /inet, require that local and remote
+ ports and the remote hostname be there, and that `any'
+ be used for a port if they don't care.
+
+Thu May 21 14:13:46 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * node.c (parse_escape): Add warning that is always on
+ for \q for any unknown q inside string or regex constant.
+ I got bit by this myself once too often. Or else I'm
+ just getting old and senile.
+
+Mon May 4 12:42:49 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (NODETYPE): Sorted the Node_xxx entries for the
+ builtin variables. Gotta look nice, don't we?
+ * eval.c (nodetypes): ditto.
+ (genflags2str): added code to check that we don't
+ overflow the static buffer. This is just a debugging
+ routine, not worth the hassle of dynamic allocation.
+
+Mon Mar 2 16:06:16 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.in (dist): remove any embedded copied RCS or CVS
+ directories.
+
+Mon Feb 23 00:09:52 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (genflags2str): add declaration.
+ * eval.c (genflags2str): new function.
+ (flags2str): use new general purpose function.
+ * io.c (redflags2str): same.
+
+Sun Feb 22 23:57:29 1998 Arnold D. Robbins <arnold@skeeve.com>
+
+ Significant changes to add two-way i/o and sockets!!!
+
+ * Makefile.in: add @SOCKET_LIBS@ to LIBS variable.
+ * acconfig.h: add HAVE_SOCKETS and HAVE_PORTALS defs.
+ * aclocal.m4: new macro GAWK_AC_LIB_SOCKETS.
+ * awk.h: new node type, Node_redirect_twoway, and new redirection
+ flags: RED_TWOWAY, and RED_SOCKET.
+ * awk.y (parser): add TWOWAYIO token and appropriate productions.
+ (yylex): recognize `|&' token if not traditional.
+ * builtin.c (do_print, do_printf): flush buffer if TWOWAYIO.
+ * configure.in: add header checks for networking header files,
+ add --enable-portals switch, call GAWK_AC_LIB_SOCKETS
+ * eval.c (nodetypes): add string constant for Node_redirect_twoway.
+ * io.c (redflags2str): new function.
+ (redirect): better error message in default case, add code for
+ Node_redirect_twoway.
+ (socketopen): new function.
+ (iop_open, devopen): add recognition of `/inet/...'.
+ (two_way_open): new function.
+
+Sat Dec 13 21:15:07 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (struct node): new member, `param_list' in union `x', becomes
+ `node->parmlist' in the code.
+ * awk.y (func_install): rearranged a bit, to build up a list of
+ the function parameter names and to save it in the `parmlist' field.
+ * eval.c (push_args): new parameter, `varnames', which is the list
+ of variable names. Use this to set the vname field of each
+ parameter's value as it's created. Special case arrays to include
+ where they came from, mainly for array vs. scalar diagnostics.
+ (r_tree_eval): don't set the `vname' field for parameters.
+ (pop_fcall): free the `vname' field if it's an array.
+ (func_call): pass in the `parmlist' field to call of push_args().
+ (r_get_lhs): for Node_subscript, change error message to use
+ the `vname' field.
+ (stopme): new do-nothing function for use with debugging code
+ and setting breakpoints.
+
+Thu Dec 4 15:18:17 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y: fixed several lint checks and moved some into
+ test for do_lint_old.
+ * eval.c (fmt_index): add value of bad format spec to
+ error message.
+
+Tue Nov 18 22:19:02 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.in (install): strip the installed binary.
+ From Anatoly A. Orehovsky (tolik@mpeks.tomsk.su).
+
+Sun Nov 16 22:12:39 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * array.c (in_array, assoc_lookup): add symbol->vname to
+ fatal calls for scalar in array context.
+
+Wed Nov 12 22:18:33 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h [ISASCII]: on all IS* macros, add cast to unsigned char.
+ [TOUPPER, TOLOWER]: new macros using unsigned char.
+ * awk.y: change to use of IS* vs. is* macros.
+ * builtin.c (nondec2awknum): change to use of IS* vs. is* macros,
+ change casts for casetable[] from int to unsigned char.
+ use new TOLOWER, TOUPPER macros
+ * dfa.c [ISASCII]: on all IS* macros, add cast to unsigned char.
+ (lex): change isdigit to ISDIGIT.
+ [TOUPPER, TOLOWER]: new macros using unsigned char, now used.
+ * eval.c (fmt_ok): change to use of IS* vs. is* macros.
+ * field.c (sc_parse_field): change to use of IS* vs. is* macros,
+ change casts for casetable[] from int to unsigned char.
+ (set_FS): change to use of IS* vs. is* macros.
+ * io.c (get_a_record): change to use of IS* vs. is* macros,
+ change casts for casetable[] from int to unsigned char.
+ * main.c (main): change to use of IS* vs. is* macros.
+ * node.c (r_force_number, parse_escape): change to use of IS* vs.
+ is* macros.
+ * re.c (make_regexp): change to use of IS* vs. is* macros.
+ * regex.c [ISASCII]: on all IS* macros, add cast to unsigned char.
+
+Sun Oct 19 12:36:47 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * ALL: Change email address to arnold@gnu.org in all relevant places.
+
+Wed Oct 15 03:38:12 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y (yylex): Don't allow newlines after ? or : if do_posix.
+
+Thu Oct 9 19:28:39 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * custom.h [SEQUENT]: removed; not needed any more since the
+ mmap code was ripped out.
+
+Wed Oct 8 17:22:03 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in: remove check for madvise; don't need it any more
+ after nuking use of mmap.
+
+Tue Oct 7 11:14:21 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (flags2str): made the code table driven. Shortened a lot.
+
+Tue Sep 30 20:59:17 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (r_get_lhs): case Node_field_spec. Add lint warnings
+ for field reference of null string or non-numeric value.
+ Based on patch submitted by Alan Broder, ajb@dtmr.com.
+
+Wed Sep 24 20:47:59 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * custom.h [TANDEM]: new changes. Finishes up Tandem
+ integration.
+
+Mon Sep 22 00:42:34 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * custom.h [__be_os]: remove BROKEN_TOKEN definition.
+ dfa.c, dfa.h: change `token' to `dfa_token' to avoid BeOS
+ compile problems.
+
+Thu Aug 7 22:35:17 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Changes for BeOS from mc@whoever.com
+ awk.h (strncasecmp): bracket prototype.
+ custom.h [__be_os]: new stuff.
+ dfa.h, dfa.c [BROKEN_TOK]: new ifdefs to use dfa_token, not token.
+
+Fri Aug 1 13:32:49 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Tandem changes:
+ awk.h [TANDEM]: misc additions, as needed.
+ io.c (get_a_record): changes for fixed length records; not used
+ on other systems.
+ main.c (MRL): new variable, TANDEM specific.
+ (main): update handling -mr option for TANDEM.
+ (load_environ): comment out whole routine if TANDEM.
+ missing.c [TANDEM]: new includes.
+ gawkmisc.c [TANDEM]: include `tmiscc'.
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Close-on-exec changes:
+ awk.h: (os_close_on_exec, os_isdir): new functions.
+ gawkmisc.c: add include fcntl.h.
+ configure.in [AC_CHECK_HEADERS]: add fcntl.h.
+ io.c (devopen, iop_open): change to use os_isdir(), not S_IFDIR().
+ (redirect, devopen, iop_open, gawk_popen): change all calls to
+ fcntl() to os_close_on_exec().
+
+Tue Jul 29 11:09:45 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (set_BINMODE): fixed check for digits to use isdigit()
+ instead of looping over digits and using strchr(). Duh.
+
+Sat Jul 26 22:52:08 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * eval.c (set_BINMODE): fix so that `-v BINMODE=w' works.
+ * node.c (r_force_number): add decl of strtod(); makes things
+ work on MIPS.
+ * Makefile.in (install-strip): new target.
+
+Fri Jul 18 13:28:05 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (redirect, devopen, iop_open, gawk_popen): set the
+ close-on-exec flag on all files and pipes opened for I/O.
+ Keeps children run via system() or other pipes from running out
+ of file descriptors.
+
+ (Reported by Kenny McCormack, gazelle@yin.interaccess.com.)
+
+Tue Jul 8 22:18:00 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y [LEX_NEXT]: Removed support for `next file' as two words.
+
+Tue Jul 8 06:46:32 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * dfa.c: changes from pjr@jet.UK (Paul J Rippin) from an old
+ bug report against 2.14.0 that speed up initialization and
+ rewrite the inner loop into readable code.
+
+Thu Jul 3 11:44:50 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Atari support moved into new `unsupported' directory.
+ awk.h, Makefile.in, gawkmisc.c, and missing.c modified.
+
+Sun Jun 29 14:17:37 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.y (exp): fixed warning about `x = /foo/'.
+
+Wed Jun 25 09:07:57 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * PORTS: removed from distribution.
+ * Makefile.in (MISC): removed PORTS.
+
+Sun Jun 22 11:52:57 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * BINMODE changes
+ awk.h (Node_BINMODE): added.
+ (struct redirect): added mode field to save for io.c:close_one().
+ (BINMODE, BINMODE_node, set_BINMODE): add declarations.
+ awk.y (isnoeffect): add Node_BINMODE.
+ eval.c (nodetypes): add Node_BINMODE string.
+ (r_tree_eval, r_get_lhs): add cases for Node_BINMODE.
+ (set_BINMODE): new function.
+ io.c (binmode): new function.
+ (nextfile, redirect, gawk_popen): add calls to binmode().
+ main.c (BINMODE, BINMODE_node): add decls.
+ (main): add call to setmode() if BINMODE is set.
+ (varinit): add entry for BINMODE.
+
+Wed Jun 4 21:52:25 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * configure.in [AC_FUNC_MMAP]: removed call.
+ * awk.h [struct iobuf]: removed IOP_MMAPED flag and `getrec' member.
+ * io.c: removed all mmap related code.
+
+Sun Apr 27 16:23:56 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * aclocal.m4 [GAWK_AC_FUNC_MKTIME]: new macro.
+ * configure.in (GAWK_AC_FUNC_MKTIME): call it.
+
+Thu Apr 24 23:25:06 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (devopen): remove stat test for /dev/foo files. Finally.
+
+Fri Jul 26 09:23:15 1996 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Changes to add an abort statement, a la tawk
+ awk.h (Node_K_abort): new enum value for NODETYPE.
+ main.c (aborting): new flag variable.
+ (main): add logic to handle aborting.
+ eval.c (interpret): add case for Node_K_abort.
+ io.c (do_input): if aborting, break loop.
+ awk.y (tokentab): add entry for "abort" keyword
+ (PRODUCTIONS): add production for LEX_ABORT.
+
+Wed Jul 24 12:49:52 1996 Arnold D. Robbins <arnold@skeeve.com>
+
+ * First cut at changes for i18n.
+ awk.h (do_intl): declare new flag variable.
+ [INTLSTR]: new flag def.
+ (m_tree_eval): fix definitions for INTLSTR.
+ (force_string): fix definitions for INTLSTR.
+ awk.y (yylex): add _"..." for international strings.
+ (dumpintlstr): new function.
+ main.c (do_intl): define new flag variable.
+ (optab): add "gen-po" entry.
+ (main): if do_intl, exit, don't run the program.
+ (gawkoption): add "gen-po" entry.
+ node.c (r_force_string): call gettext if flags indicate INTLSTR.
+
+Thu Mar 14 06:29:42 1996 Arnold D. Robbins <arnold@skeeve.com>
+
+ * awk.h (do_mktime): added declaration of new function.
+ * builtin.c (do_mktime): new function.
+ * awk.y (tokentab): added "mktime" to list of gawk extensions.
+ * missing.c [HAVE_MKTIME]: added include of mktime.c if needed.
+
+Mon Feb 26 22:32:19 1996 Arnold D. Robbins <arnold@skeeve.com>
+
+ * io.c (pidopen, useropen): added warnings to use PROCINFO[],
+ not special files.
+ * main.c (load_procinfo): new function.
+ * awk.y (variable): added call to load_procinfo() function.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -802,7 +2022,7 @@ Fri Feb 21 06:23:19 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
* Misc changes from Katsuyuki Okabe <HGC02147@niftyserve.or.jp>:
* builtin.c (do_substr): change a %d to %ld in warning message.
* eval.c (op_assign): fix format string for warning about %=.
-
+
Wed Feb 19 23:29:02 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
* main.c (main): add do_intervals to condition that causes
@@ -1323,7 +2543,7 @@ Thu Mar 7 08:08:51 1996 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
fields between parse_high_water and NF.
* eval.c (nodetype2str): new function, used for diagnostics.
eval.c (interpret): use nodetype2str when finding invalid node.
-
+
Mon Mar 4 09:02:28 1996 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
* builtin.c (do_toupper, do_tolower): use isascii along with
diff --git a/FUTURES b/FUTURES
index 829f1683..b2f7575f 100644
--- a/FUTURES
+++ b/FUTURES
@@ -10,97 +10,76 @@ know where to get it.")
The focus on the future is thus narrowed to performance and functional
enhancements, with only minor plans for significant new features.
-For 3.0
-=======
- DONE: Move to autoconf-based configure system.
+(OK, so 3.1 had a bad case of feature-itis. I think I'm mostly over it
+now, though. :-)
- DONE: Allow RS to be a regexp.
+In 3.1
+======
+ DONE: A PROCINFO array to replace /dev/pid, /dev/user, et al.
- DONE: RT variable to hold text of record terminator
+ DONE: Add `abort' statement a la Thompson awk.
- DONE: split() with null string as third arg to split up strings
+ DONE: Provide awk profiling.
- DONE: Analogously, setting FS="" would split the input record into
- individual characters.
+ DONE: Integrate GNU NLS support.
- DONE: Generalize IGNORECASE
- - any value makes it work, not just numeric non-zero
- - make it apply to *all* string comparisons
+ DONE: Bring out hooks for NLS support into gawk itself.
- DONE: Incorporate newer dfa.c and regex.c
+ DONE: Do a reference card.
- DONE: Go to POSIX regexps
+ DONE: Switch to full ANSI C and use ansi2kr.
- DONE: Make regex + dfa less dependant on gawk header file includes
+ Additional manual features:
+ DONE: Document NLS support
- DONE: Source code formatting cleaned up and regularized
+For 3.2
+=======
+ Move the loadable modules interface to libtool.
- DONE: Clean up code by isolating system-specific functions in
- separate files.
+ Redo the loadable modules interface from the awk level.
- DONE: General sub function:
- gensub(pat, sub, global_flag[, line])
- that return the substituted strings and allow \1 etc.
- in the sub string.
+ Rework management of array index storage.
- DONE: Add AWKPATH to ENVIRON if it's not there
+ A RECLEN variable for fixed-length record input. PROCINFO["RS"]
+ would be "RS" or "RECLEN" depending upon what's in use.
- DONE: Undertake significant directory reorganization.
+ DBM storage of awk arrays. Try to allow multiple dbm packages.
- DONE: Extensive manual cleanup:
- Use of texinfo 2.0 features
- Lots more examples
- Document posix regexps
- Document all of the above.
+ Look at ISO C 99 printf features.
-In 3.1
-======
- A PROCINFO array to replace /dev/pid, /dev/user, et al.
-
- DONE: Use mmap to read input files on systems that support it.
+ Add %'d for putting in commas in formatting?
- Add `abort' statement a la Thompson awk.
+ Consider integrating Fred Fish's DBUG library into gawk.
Consider removing use of and/or need for the protos.h file.
- Use a new or improved dfa.
-
- Integrate GNU NLS support.
-
- Bring out hooks for NLS support into gawk itself.
-
- DBM storage of awk arrays. Try to allow multiple dbm packages.
-
- Use GNU malloc.
+ Additional manual features:
+ ? Add exercises
+ Document use of dbm arrays
+ ? Add an error messages section to the manual
- DONE: Do a reference card.
+For 3.3
+=======
+ Use a new or improved dfa and/or regex library.
? Have strftime() pay attention to the value of ENVIRON["TZ"]
+ Add a lint check if the return value of a function is used but
+ the function did not supply a value.
+
Additional manual features:
- Document use of dbm arrays
- Document NLS support
- ? Add exercises
- ? Add an error messages section to the manual
? A section on where gawk is bounded
regex
i/o
sun fp conversions
-For 3.2
+For 3.4
=======
- Add a lint check if the return value of a function is used but
- the function did not supply a value.
-
Do an optimization pass over parse tree?
- Make awk '/foo/' files... run at egrep speeds
+ Make awk '/foo/' files... run at egrep speeds (how?)
For 4.x:
========
-Create a gawk compiler?
-
-Create a gawk-to-C translator? (or C++??)
-
-Provide awk profiling and debugging.
+Provide awk debugging.
diff --git a/Makefile.am b/Makefile.am
new file mode 100644
index 00000000..08809d32
--- /dev/null
+++ b/Makefile.am
@@ -0,0 +1,161 @@
+#
+# Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 2000-2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
+
+## process this file with automake to produce Makefile.in
+
+# Automatic de-ANSI-fication if needed
+AUTOMAKE_OPTIONS = ansi2knr
+
+# This undocumented variable insures that aclocal runs
+# correctly after changing configure.in
+ACLOCAL_AMFLAGS = -I m4
+
+# This insures that make flags get passed down to child makes.
+AM_MAKEFLAGS = 'CFLAGS=$(CFLAGS)' 'LDFLAGS=$(LDFLAGS)'
+
+# Stuff to include in the dist that doesn't need it's own
+# Makefile.am files
+EXTRA_DIST = \
+ COPYING \
+ FUTURES \
+ INSTALL \
+ LIMITATIONS \
+ NEWS \
+ POSIX.STD \
+ PROBLEMS \
+ README_d \
+ bisonfix.sed \
+ depcomp \
+ extension \
+ fixvers \
+ m4 \
+ missing \
+ missing_d \
+ pc \
+ posix \
+ unsupported \
+ vms
+
+# The order to do things in.
+# Build in intl first in case we need the local gettext version.
+# Build explicitly "." next in order to build gawk first, so
+# that `make check' without a prior `make' works.
+SUBDIRS = \
+ intl \
+ . \
+ awklib \
+ doc \
+ po \
+ test
+
+# what to make and install
+bin_PROGRAMS = gawk pgawk
+
+# sources for both gawk and pgawk
+base_sources = \
+ array.c \
+ awk.h \
+ awkgram.y \
+ builtin.c \
+ custom.h \
+ dfa.c \
+ dfa.h \
+ ext.c \
+ field.c \
+ gawkmisc.c \
+ getopt.c \
+ getopt.h \
+ getopt1.c \
+ io.c \
+ main.c \
+ msg.c \
+ node.c \
+ patchlev.h \
+ protos.h \
+ random.c \
+ random.h \
+ re.c \
+ regex.c \
+ regex.h \
+ replace.c \
+ version.in \
+ version.c
+
+gawk_SOURCES = $(base_sources) eval.c profile.c
+pgawk_SOURCES = $(base_sources) eval_p.c profile_p.c
+
+# Get extra libs as needed
+LDADD = @INTLLIBS@ @SOCKET_LIBS@
+
+# stuff for compiling gawk/pgawk
+DEFPATH="\".:$(datadir)\""
+
+DEFS= -DDEFPATH=$(DEFPATH) -DHAVE_CONFIG_H -DGAWK -DLOCALEDIR="\"$(datadir)/locale\""
+
+INCLUDES = -I. -I$(srcdir) -I$(srcdir)/intl
+
+# We want hard links for install-exec-hook, below
+LN= ln
+
+# First, add a link from gawk to gawk-X.Y.Z
+# For systems where gawk is awk, add a link to awk
+install-exec-hook:
+ (fullname=gawk-`./gawk --version | sed 1q | awk '{print $$3}'` ; \
+ cd $(DESTDIR)$(bindir); \
+ $(LN) gawk $$fullname ; \
+ if [ ! -f awk ]; \
+ then $(LN_S) gawk awk; \
+ fi; exit 0)
+
+# Undo the above when uninstalling
+uninstall-links:
+ (cd $(DESTDIR)$(bindir); \
+ if [ -f awk ] && cmp awk gawk > /dev/null; then rm -f awk; fi ; \
+ fullname=gawk-`./gawk --version | sed 1q | ./gawk '{print $$3}'` ; \
+ rm -f $$fullname; exit 0)
+
+uninstall-recursive: uninstall-links
+
+# force there to be a gawk executable before running tests
+check-local: gawk pgawk
+
+# A little extra clean up when making distributions.
+# FIXME: most of this rule should go away upon switching to libtool.
+dist-hook:
+ cd $(distdir)/extension ; rm -f *.o *.so
+
+# Special rules for individual files
+awkgram.c: awkgram.y
+ $(YACC) $(AM_YFLAGS) $(YFLAGS) $< && sed -f $(srcdir)/bisonfix.sed < y.tab.c > $*.c && $(RM) y.tab.c
+ if test -f y.tab.h; then \
+ if cmp -s y.tab.h $*.h; then rm -f y.tab.h; else mv y.tab.h $*.h; fi; \
+ else :; fi
+
+# these force version and patchlevel to be up to date based
+# on what's in configure.in. No-one else but me should have
+# to use them. So there.
+patchlev.h: configure.in
+ ./fixvers -p
+
+version.c: configure.in version.in
+ ./fixvers -v
diff --git a/Makefile.in b/Makefile.in
index 2b464168..c4a7bce7 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -1,286 +1,797 @@
-# Makefile for GNU Awk.
-#
-# Copyright (C) 1986, 1988-2000 the Free Software Foundation, Inc.
-#
-# This file is part of GAWK, the GNU implementation of the
-# AWK Programming Language.
-#
-# GAWK is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# GAWK is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+# Makefile.in generated automatically by automake 1.4a from Makefile.am
-@SET_MAKE@
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000
+# Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
-MAKEINFO = makeinfo --no-split
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+SHELL = @SHELL@
srcdir = @srcdir@
+top_srcdir = @top_srcdir@
VPATH = @srcdir@
-
-CC = @CC@
-YACC = @YACC@
-
-INSTALL = @INSTALL@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_DATA = @INSTALL_DATA@
-
-LDFLAGS = @LDFLAGS@
-LIBS = @LIBS@
-
-ALLOCA = @ALLOCA@
-
-LN = ln
-LN_S = @LN_S@
-
-exec_prefix = @exec_prefix@
prefix = @prefix@
-binprefix =
-manprefix =
+exec_prefix = @exec_prefix@
bindir = @bindir@
+sbindir = @sbindir@
+libexecdir = @libexecdir@
+datadir = @datadir@
+sysconfdir = @sysconfdir@
+sharedstatedir = @sharedstatedir@
+localstatedir = @localstatedir@
libdir = @libdir@
-manexta = 1
-mandir = @mandir@/man$(manexta)
-manext = .$(manexta)
infodir = @infodir@
-datadir = @datadir@/awk
-libexecdir = @libexecdir@/awk
-
-DEFPATH = ".:$(datadir)"
-
-SHELL = /bin/sh
-CPPFLAGS = @CPPFLAGS@
-CFLAGS = @CFLAGS@
-COMPFLAGS = -DGAWK -I. -I$(srcdir) $(CPPFLAGS) @DEFS@ $(CFLAGS)
-
-# object files
-AWKOBJS = array.o builtin.o eval.o field.o gawkmisc.o io.o main.o \
- missing.o msg.o node.o re.o version.o
-
-ALLOBJS = $(AWKOBJS) awktab.o
-
-# LIBOBJS
-# GNU and other stuff that gawk uses as library routines.
-LIBOBJS= getopt.o getopt1.o regex.o dfa.o random.o $(ALLOCA)
-
-# source and documentation files
-SRC = array.c builtin.c eval.c field.c gawkmisc.c io.c main.c \
- missing.c msg.c node.c re.c version.c
-
-ALLSRC= $(SRC) awktab.c
+mandir = @mandir@
+includedir = @includedir@
+oldincludedir = /usr/include
-AWKSRC= awk.h awk.y custom.h $(ALLSRC) patchlevel.h protos.h random.h
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
-LIBSRC = alloca.c dfa.c dfa.h regex.c regex.h getopt.h getopt.c getopt1.c random.c
+top_builddir = .
-COPIES = missing/system.c missing/tzset.c \
- missing/memcmp.c missing/memcpy.c missing/memset.c \
- missing/strncasecmp.c missing/strchr.c \
- missing/strerror.c missing/strtod.c \
- missing/strftime.c missing/strftime.3
+ACLOCAL = @ACLOCAL@
+AUTOCONF = @AUTOCONF@
+AUTOMAKE = @AUTOMAKE@
+AUTOHEADER = @AUTOHEADER@
-DOCS= doc/gawk.1 doc/gawk.texi doc/texinfo.tex
-
-TEXFILES= doc/gawk.aux doc/gawk.cp doc/gawk.cps doc/gawk.fn doc/gawk.fns \
- doc/gawk.ky doc/gawk.kys doc/gawk.pg doc/gawk.pgs doc/gawk.toc \
- doc/gawk.tp doc/gawk.tps doc/gawk.vr doc/gawk.vrs
-
-MISC = NEWS COPYING FUTURES Makefile.in PROBLEMS README PORTS POSIX.STD \
- configure configure.in acconfig.h configh.in ACKNOWLEDGMENT \
- ChangeLog INSTALL LIMITATIONS install-sh mkinstalldirs aclocal.m4 \
- stamp-h.in
+INSTALL = @INSTALL@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_FLAG =
+transform = @program_transform_name@
-OTHERS= doc pc atari vms README_d posix awklib
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
-ALLDOC= doc/gawk.dvi $(TEXFILES) doc/gawk.info*
+@SET_MAKE@
+AMDEP = @AMDEP@
+AMTAR = @AMTAR@
+AWK = @AWK@
+CATALOGS = @CATALOGS@
+CATOBJEXT = @CATOBJEXT@
+CC = @CC@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+DATADIRNAME = @DATADIRNAME@
+DEPDIR = @DEPDIR@
+GENCAT = @GENCAT@
+GMOFILES = @GMOFILES@
+GMSGFMT = @GMSGFMT@
+GT_NO = @GT_NO@
+GT_YES = @GT_YES@
+INCLUDE_LOCALE_H = @INCLUDE_LOCALE_H@
+INSTOBJEXT = @INSTOBJEXT@
+INTLDEPS = @INTLDEPS@
+INTLLIBS = @INTLLIBS@
+INTLOBJS = @INTLOBJS@
+LN_S = @LN_S@
+MAKEINFO = @MAKEINFO@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+MSGFMT = @MSGFMT@
+PACKAGE = @PACKAGE@
+POFILES = @POFILES@
+POSUB = @POSUB@
+RANLIB = @RANLIB@
+SOCKET_LIBS = @SOCKET_LIBS@
+U = @U@
+USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@
+USE_NLS = @USE_NLS@
+VERSION = @VERSION@
+YACC = @YACC@
+install_sh = @install_sh@
+l = @l@
-MAKEFILEIN = Makefile.in awklib/Makefile.in doc/Makefile.in test/Makefile.in
+#
+# Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 2000-2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
-# Release of gawk. There can be no leading or trailing white space here!
-REL=3.0
+# Automatic de-ANSI-fication if needed
+
+
+AUTOMAKE_OPTIONS = ansi2knr
+
+# This undocumented variable insures that aclocal runs
+# correctly after changing configure.in
+ACLOCAL_AMFLAGS = -I m4
+
+# This insures that make flags get passed down to child makes.
+AM_MAKEFLAGS = 'CFLAGS=$(CFLAGS)' 'LDFLAGS=$(LDFLAGS)'
+
+# Stuff to include in the dist that doesn't need it's own
+# Makefile.am files
+EXTRA_DIST = \
+ COPYING \
+ FUTURES \
+ INSTALL \
+ LIMITATIONS \
+ NEWS \
+ POSIX.STD \
+ PROBLEMS \
+ README_d \
+ bisonfix.sed \
+ depcomp \
+ extension \
+ fixvers \
+ m4 \
+ missing \
+ missing_d \
+ pc \
+ posix \
+ unsupported \
+ vms
+
+
+# The order to do things in.
+# Build in intl first in case we need the local gettext version.
+# Build explicitly "." next in order to build gawk first, so
+# that `make check' without a prior `make' works.
+SUBDIRS = \
+ intl \
+ . \
+ awklib \
+ doc \
+ po \
+ test
+
+
+# what to make and install
+bin_PROGRAMS = gawk pgawk
+
+# sources for both gawk and pgawk
+base_sources = \
+ array.c \
+ awk.h \
+ awkgram.y \
+ builtin.c \
+ custom.h \
+ dfa.c \
+ dfa.h \
+ ext.c \
+ field.c \
+ gawkmisc.c \
+ getopt.c \
+ getopt.h \
+ getopt1.c \
+ io.c \
+ main.c \
+ msg.c \
+ node.c \
+ patchlev.h \
+ protos.h \
+ random.c \
+ random.h \
+ re.c \
+ regex.c \
+ regex.h \
+ replace.c \
+ version.in \
+ version.c
+
+
+gawk_SOURCES = $(base_sources) eval.c profile.c
+pgawk_SOURCES = $(base_sources) eval_p.c profile_p.c
+
+# Get extra libs as needed
+LDADD = @INTLLIBS@ @SOCKET_LIBS@
+
+# stuff for compiling gawk/pgawk
+DEFPATH = "\".:$(datadir)\""
+
+DEFS = -DDEFPATH=$(DEFPATH) -DHAVE_CONFIG_H -DGAWK -DLOCALEDIR="\"$(datadir)/locale\""
+
+INCLUDES = -I. -I$(srcdir) -I$(srcdir)/intl
+
+# We want hard links for install-exec-hook, below
+LN = ln
+subdir = .
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = config.h
+CONFIG_CLEAN_FILES =
+PROGRAMS = $(bin_PROGRAMS)
-# clear out suffixes list
+CPPFLAGS = @CPPFLAGS@
+LDFLAGS = @LDFLAGS@
+LIBS = @LIBS@
+ANSI2KNR = @ANSI2KNR@
+am_gawk_OBJECTS = array$U.o awkgram$U.o builtin$U.o dfa$U.o ext$U.o \
+field$U.o gawkmisc$U.o getopt$U.o getopt1$U.o io$U.o main$U.o msg$U.o \
+node$U.o random$U.o re$U.o regex$U.o replace$U.o version$U.o eval$U.o \
+profile$U.o
+gawk_OBJECTS = $(am_gawk_OBJECTS)
+gawk_LDADD = $(LDADD)
+gawk_DEPENDENCIES =
+gawk_LDFLAGS =
+am_pgawk_OBJECTS = array$U.o awkgram$U.o builtin$U.o dfa$U.o ext$U.o \
+field$U.o gawkmisc$U.o getopt$U.o getopt1$U.o io$U.o main$U.o msg$U.o \
+node$U.o random$U.o re$U.o regex$U.o replace$U.o version$U.o eval_p$U.o \
+profile_p$U.o
+pgawk_OBJECTS = $(am_pgawk_OBJECTS)
+pgawk_LDADD = $(LDADD)
+pgawk_DEPENDENCIES =
+pgawk_LDFLAGS =
+COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+CCLD = $(CC)
+LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
+DIST_SOURCES = $(gawk_SOURCES) $(pgawk_SOURCES)
+depcomp = $(SHELL) $(top_srcdir)/depcomp
+DEP_FILES = @AMDEP@ $(DEPDIR)/array$U.Po $(DEPDIR)/awkgram$U.Po \
+$(DEPDIR)/builtin$U.Po $(DEPDIR)/dfa$U.Po $(DEPDIR)/eval$U.Po \
+$(DEPDIR)/eval_p$U.Po $(DEPDIR)/ext$U.Po $(DEPDIR)/field$U.Po \
+$(DEPDIR)/gawkmisc$U.Po $(DEPDIR)/getopt$U.Po $(DEPDIR)/getopt1$U.Po \
+$(DEPDIR)/io$U.Po $(DEPDIR)/main$U.Po $(DEPDIR)/msg$U.Po \
+$(DEPDIR)/node$U.Po $(DEPDIR)/profile$U.Po $(DEPDIR)/profile_p$U.Po \
+$(DEPDIR)/random$U.Po $(DEPDIR)/re$U.Po $(DEPDIR)/regex$U.Po \
+$(DEPDIR)/replace$U.Po $(DEPDIR)/version$U.Po
+DIST_COMMON = README ./stamp-h.in ABOUT-NLS AUTHORS COPYING ChangeLog \
+INSTALL Makefile.am Makefile.in NEWS acconfig.h acinclude.m4 aclocal.m4 \
+ansi2knr.1 ansi2knr.c awkgram.c configh.in configure configure.in \
+depcomp install-sh missing mkinstalldirs
+
+
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+
+GZIP_ENV = --best
+SOURCES = $(gawk_SOURCES) $(pgawk_SOURCES)
+OBJECTS = $(am_gawk_OBJECTS) $(am_pgawk_OBJECTS)
+
+all: all-redirect
.SUFFIXES:
-.SUFFIXES: .c .o
-
-.c.o:
- $(CC) -c $(COMPFLAGS) $<
+.SUFFIXES: .c .h .o .y
+$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
+ cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile
-# rules to build gawk
-all: gawk awklib/all doc/all
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+ cd $(top_builddir) \
+ && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
-# stuff to make sure that configure has been run.
-$(srcdir)/configure: configure.in aclocal.m4
- cd $(srcdir) && autoconf
+$(ACLOCAL_M4): configure.in acinclude.m4 m4/arch.m4 m4/gettext.m4 \
+ m4/jm-mktime.m4 m4/largefile.m4 m4/lcmessage.m4 \
+ m4/progtest.m4 m4/socket.m4 m4/ssize_t.m4 m4/strtod.m4
+ cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
-# autoheader might not change confh.in, so touch a stamp file
-$(srcdir)/configh.in: stamp-h.in
-$(srcdir)/stamp-h.in: configure.in aclocal.m4 acconfig.h
- cd $(srcdir) && autoheader
- date > $(srcdir)/stamp-h.in
-
-config.h: stamp-h
-stamp-h: configh.in config.status
- $(SHELL) ./config.status
-
-Makefile: $(MAKEFILEIN) config.status
- $(SHELL) ./config.status
-
-config.status: configure
+config.status: $(srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
$(SHELL) ./config.status --recheck
+$(srcdir)/configure: $(srcdir)/configure.in $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES)
+ cd $(srcdir) && $(AUTOCONF)
-# Note: if you need something at both compile time and link time, like -pg,
-# you will have to edit the Makefile manually to set LDFLAGS.
-gawk: $(ALLOBJS) $(LIBOBJS) $(REOBJS)
- $(CC) -o gawk $(CFLAGS) $(LDFLAGS) $(ALLOBJS) $(LIBOBJS) $(REOBJS) $(LIBS)
-
-$(ALLOBJS): awk.h dfa.h regex.h config.h custom.h
-
-$(LIBOBJS): config.h custom.h
-
-# SunOS make's (at least) VPATH doesn't do subdirectories...
-# Solaris make doesn't allow $< in the actual rule
-gawkmisc.o: $(srcdir)/atari/gawkmisc.atr \
- $(srcdir)/pc/gawkmisc.pc $(srcdir)/posix/gawkmisc.c \
- $(srcdir)/vms/gawkmisc.vms
- $(CC) -c $(COMPFLAGS) -DDEFPATH='$(DEFPATH)' $(srcdir)/gawkmisc.c
+config.h: stamp-h
+ @if test ! -f $@; then \
+ rm -f stamp-h; \
+ $(MAKE) stamp-h; \
+ else :; fi
+stamp-h: $(srcdir)/configh.in $(top_builddir)/config.status
+ @rm -f stamp-h stamp-hT
+ @echo timestamp > stamp-hT 2> /dev/null
+ cd $(top_builddir) \
+ && CONFIG_FILES= CONFIG_HEADERS=config.h:configh.in \
+ $(SHELL) ./config.status
+ @mv stamp-hT stamp-h
+$(srcdir)/configh.in: $(srcdir)/./stamp-h.in
+ @if test ! -f $@; then \
+ rm -f $(srcdir)/./stamp-h.in; \
+ $(MAKE) $(srcdir)/./stamp-h.in; \
+ else :; fi
+$(srcdir)/./stamp-h.in: $(top_srcdir)/configure.in $(ACLOCAL_M4) acconfig.h
+ @rm -f $(srcdir)/./stamp-h.in $(srcdir)/./stamp-h.inT
+ @echo timestamp > $(srcdir)/./stamp-h.inT 2> /dev/null
+ cd $(top_srcdir) && $(AUTOHEADER)
+ @mv $(srcdir)/./stamp-h.inT $(srcdir)/./stamp-h.in
+
+mostlyclean-hdr:
+
+clean-hdr:
+
+distclean-hdr:
+ -rm -f config.h
+
+maintainer-clean-hdr:
+
+mostlyclean-binPROGRAMS:
+
+clean-binPROGRAMS:
+ -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS)
+
+distclean-binPROGRAMS:
+
+maintainer-clean-binPROGRAMS:
+
+install-binPROGRAMS: $(bin_PROGRAMS)
+ @$(NORMAL_INSTALL)
+ $(mkinstalldirs) $(DESTDIR)$(bindir)
+ @list='$(bin_PROGRAMS)'; for p in $$list; do \
+ if test -f $$p; then \
+ f="`echo $$p|sed -e 's/$(EXEEXT)$$//' -e '$(transform)' -e 's/$$/$(EXEEXT)/'`"; \
+ echo " $(INSTALL_PROGRAM) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(bindir)/$$f"; \
+ $(INSTALL_PROGRAM) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(bindir)/$$f; \
+ else :; fi; \
+ done
+
+uninstall-binPROGRAMS:
+ @$(NORMAL_UNINSTALL)
+ @list='$(bin_PROGRAMS)'; for p in $$list; do \
+ f="`echo $$p|sed -e 's/$(EXEEXT)$$//' -e '$(transform)' -e 's/$$/$(EXEEXT)/'`"; \
+ echo " rm -f $(DESTDIR)$(bindir)/$$f"; \
+ rm -f $(DESTDIR)$(bindir)/$$f; \
+ done
+
+mostlyclean-compile:
+ -rm -f *.o core *.core
+
+clean-compile:
+
+distclean-compile:
+ -rm -f *.tab.c
+
+maintainer-clean-compile:
+
+mostlyclean-krextra:
+
+clean-krextra:
+ -rm -f ansi2knr
+
+distclean-krextra:
+
+maintainer-clean-krextra:
+ansi2knr: ansi2knr.o
+ $(LINK) ansi2knr.o $(LIBS)
+ansi2knr.o: $(CONFIG_HEADER)
+
+
+mostlyclean-kr:
+ -rm -f *_.c
+
+clean-kr:
+
+distclean-kr:
+
+maintainer-clean-kr:
+
+gawk: $(gawk_OBJECTS) $(gawk_DEPENDENCIES)
+ @rm -f gawk
+ $(LINK) $(gawk_LDFLAGS) $(gawk_OBJECTS) $(gawk_LDADD) $(LIBS)
+
+pgawk: $(pgawk_OBJECTS) $(pgawk_DEPENDENCIES)
+ @rm -f pgawk
+ $(LINK) $(pgawk_LDFLAGS) $(pgawk_OBJECTS) $(pgawk_LDADD) $(LIBS)
+array_.c: array.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/array.c; then echo $(srcdir)/array.c; else echo array.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > array_.c
+awkgram_.c: awkgram.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/awkgram.c; then echo $(srcdir)/awkgram.c; else echo awkgram.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > awkgram_.c
+builtin_.c: builtin.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/builtin.c; then echo $(srcdir)/builtin.c; else echo builtin.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > builtin_.c
+dfa_.c: dfa.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/dfa.c; then echo $(srcdir)/dfa.c; else echo dfa.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > dfa_.c
+eval_.c: eval.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/eval.c; then echo $(srcdir)/eval.c; else echo eval.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > eval_.c
+eval_p_.c: eval_p.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/eval_p.c; then echo $(srcdir)/eval_p.c; else echo eval_p.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > eval_p_.c
+ext_.c: ext.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/ext.c; then echo $(srcdir)/ext.c; else echo ext.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > ext_.c
+field_.c: field.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/field.c; then echo $(srcdir)/field.c; else echo field.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > field_.c
+gawkmisc_.c: gawkmisc.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/gawkmisc.c; then echo $(srcdir)/gawkmisc.c; else echo gawkmisc.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > gawkmisc_.c
+getopt_.c: getopt.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/getopt.c; then echo $(srcdir)/getopt.c; else echo getopt.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > getopt_.c
+getopt1_.c: getopt1.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/getopt1.c; then echo $(srcdir)/getopt1.c; else echo getopt1.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > getopt1_.c
+io_.c: io.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/io.c; then echo $(srcdir)/io.c; else echo io.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > io_.c
+main_.c: main.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/main.c; then echo $(srcdir)/main.c; else echo main.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > main_.c
+msg_.c: msg.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/msg.c; then echo $(srcdir)/msg.c; else echo msg.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > msg_.c
+node_.c: node.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/node.c; then echo $(srcdir)/node.c; else echo node.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > node_.c
+profile_.c: profile.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/profile.c; then echo $(srcdir)/profile.c; else echo profile.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > profile_.c
+profile_p_.c: profile_p.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/profile_p.c; then echo $(srcdir)/profile_p.c; else echo profile_p.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > profile_p_.c
+random_.c: random.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/random.c; then echo $(srcdir)/random.c; else echo random.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > random_.c
+re_.c: re.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/re.c; then echo $(srcdir)/re.c; else echo re.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > re_.c
+regex_.c: regex.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/regex.c; then echo $(srcdir)/regex.c; else echo regex.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > regex_.c
+replace_.c: replace.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/replace.c; then echo $(srcdir)/replace.c; else echo replace.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > replace_.c
+version_.c: version.c $(ANSI2KNR)
+ $(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) `if test -f $(srcdir)/version.c; then echo $(srcdir)/version.c; else echo version.c; fi` | sed 's/^# \([0-9]\)/#line \1/' | $(ANSI2KNR) > version_.c
+array_.o awkgram_.o builtin_.o dfa_.o eval_.o eval_p_.o ext_.o field_.o \
+gawkmisc_.o getopt_.o getopt1_.o io_.o main_.o msg_.o node_.o \
+profile_.o profile_p_.o random_.o re_.o regex_.o replace_.o version_.o \
+: $(ANSI2KNR)
+.y.c:
+ $(YACC) $(AM_YFLAGS) $(YFLAGS) $< && mv y.tab.c $*.c
+ if test -f y.tab.h; then \
+ if cmp -s y.tab.h $*.h; then rm -f y.tab.h; else mv y.tab.h $*.h; fi; \
+ else :; fi
+
+
+# This directory's subdirectories are mostly independent; you can cd
+# into them and run `make' without going through this Makefile.
+# To change the values of `make' variables: instead of editing Makefiles,
+# (1) if the variable is set in `config.status', edit `config.status'
+# (which will cause the Makefiles to be regenerated when you run `make');
+# (2) otherwise, pass the desired values on the `make' command line.
+
+all-recursive install-data-recursive install-exec-recursive \
+installdirs-recursive install-recursive uninstall-recursive \
+check-recursive installcheck-recursive info-recursive dvi-recursive:
+ @set fnord $(MAKEFLAGS); amf=$$2; \
+ dot_seen=no; \
+ target=`echo $@ | sed s/-recursive//`; \
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ echo "Making $$target in $$subdir"; \
+ if test "$$subdir" = "."; then \
+ dot_seen=yes; \
+ local_target="$$target-am"; \
+ else \
+ local_target="$$target"; \
+ fi; \
+ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
+ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
+ done; \
+ if test "$$dot_seen" = "no"; then \
+ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
+ fi; test -z "$$fail"
+
+mostlyclean-recursive clean-recursive distclean-recursive \
+maintainer-clean-recursive:
+ @set fnord $(MAKEFLAGS); amf=$$2; \
+ dot_seen=no; \
+ rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = "."; then :; else \
+ rev="$$subdir $$rev"; \
+ fi; \
+ done; \
+ rev="$$rev ."; \
+ target=`echo $@ | sed s/-recursive//`; \
+ for subdir in $$rev; do \
+ echo "Making $$target in $$subdir"; \
+ if test "$$subdir" = "."; then \
+ local_target="$$target-am"; \
+ else \
+ local_target="$$target"; \
+ fi; \
+ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
+ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
+ done && test -z "$$fail"
+tags-recursive:
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
+ done
+
+tags: TAGS
+
+ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
+ list='$(SOURCES) $(HEADERS) $(TAGS_FILES)'; \
+ unique=`for i in $$list; do \
+ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+ done | \
+ $(AWK) ' { files[$$0] = 1; } \
+ END { for (i in files) print i; }'`; \
+ mkid -fID $$unique $(LISP)
+
+TAGS: tags-recursive $(HEADERS) $(SOURCES) configh.in $(TAGS_DEPENDENCIES) \
+ $(TAGS_FILES) $(LISP)
+ tags=; \
+ here=`pwd`; \
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ if test "$$subdir" = .; then :; else \
+ test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \
+ fi; \
+ done; \
+ list='$(SOURCES) $(HEADERS) $(TAGS_FILES)'; \
+ unique=`for i in $$list; do \
+ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+ done | \
+ $(AWK) ' { files[$$0] = 1; } \
+ END { for (i in files) print i; }'`; \
+ test -z "$(ETAGS_ARGS)configh.in$$unique$(LISP)$$tags" \
+ || etags $(ETAGS_ARGS) $$tags configh.in $$unique $(LISP)
+
+mostlyclean-tags:
+
+clean-tags:
+
+distclean-tags:
+ -rm -f TAGS ID
+
+maintainer-clean-tags:
+
+@AMDEP@include $(DEPDIR)/array$U.Po
+@AMDEP@include $(DEPDIR)/awkgram$U.Po
+@AMDEP@include $(DEPDIR)/builtin$U.Po
+@AMDEP@include $(DEPDIR)/dfa$U.Po
+@AMDEP@include $(DEPDIR)/eval$U.Po
+@AMDEP@include $(DEPDIR)/eval_p$U.Po
+@AMDEP@include $(DEPDIR)/ext$U.Po
+@AMDEP@include $(DEPDIR)/field$U.Po
+@AMDEP@include $(DEPDIR)/gawkmisc$U.Po
+@AMDEP@include $(DEPDIR)/getopt$U.Po
+@AMDEP@include $(DEPDIR)/getopt1$U.Po
+@AMDEP@include $(DEPDIR)/io$U.Po
+@AMDEP@include $(DEPDIR)/main$U.Po
+@AMDEP@include $(DEPDIR)/msg$U.Po
+@AMDEP@include $(DEPDIR)/node$U.Po
+@AMDEP@include $(DEPDIR)/profile$U.Po
+@AMDEP@include $(DEPDIR)/profile_p$U.Po
+@AMDEP@include $(DEPDIR)/random$U.Po
+@AMDEP@include $(DEPDIR)/re$U.Po
+@AMDEP@include $(DEPDIR)/regex$U.Po
+@AMDEP@include $(DEPDIR)/replace$U.Po
+@AMDEP@include $(DEPDIR)/version$U.Po
+
+mostlyclean-depend:
+
+clean-depend:
+
+distclean-depend:
+ -rm -rf $(DEPDIR)
+
+maintainer-clean-depend:
+
+@AMDEP@CCDEPMODE = @CCDEPMODE@
-getopt.o: getopt.h
-
-getopt1.o: getopt.h
-
-builtin.o: random.h
-
-main.o: patchlevel.h
-
-awktab.c: awk.y
- $(YACC) -v $(srcdir)/awk.y && \
- if test -f y.tab.c ; then mv y.tab.c ytab.c ; else true ; fi && \
- sed '/^extern char .malloc(), .realloc();$$/d' ytab.c >awktab.c && \
- rm ytab.c
-
-# VMS POSIX make won't apply the default .c.o rule to awktab.o for some reason
-awktab.o: awktab.c awk.h
- $(CC) -c $(COMPFLAGS) $(srcdir)/awktab.c
-
-alloca.o: alloca.c
-
-install: gawk info installdirs
- -rm -f $(bindir)/gawk
- fullname=gawk-$(REL).`./gawk '{print $$3}' $(srcdir)/patchlevel.h` ; \
- $(INSTALL_PROGRAM) gawk $(bindir)/$$fullname ; \
- (cd $(bindir); $(LN) $$fullname gawk)
- (cd $(bindir); \
+.c.o:
+@AMDEP@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP@ depfile='$(DEPDIR)/$*.Po' tmpdepfile='$(DEPDIR)/$*.TPo' @AMDEPBACKSLASH@
+@AMDEP@ $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+ $(COMPILE) -c -o $@ `test -f $< || echo '$(srcdir)/'`$<
+
+
+distdir = $(PACKAGE)-$(VERSION)
+top_distdir = $(distdir)
+
+
+# This target untars the dist file and tries a VPATH configuration. Then
+# it guarantees that the distribution is self-contained by making another
+# tarfile.
+distcheck: dist
+ -chmod -R a+w $(distdir) > /dev/null 2>&1; rm -rf $(distdir)
+ GZIP=$(GZIP_ENV) gunzip -c $(distdir).tar.gz | $(AMTAR) xf -
+ chmod -R a-w $(distdir); chmod a+w $(distdir)
+ mkdir $(distdir)/=build
+ mkdir $(distdir)/=inst
+ chmod a-w $(distdir)
+ dc_install_base=`CDPATH=: && cd $(distdir)/=inst && pwd` \
+ && cd $(distdir)/=build \
+ && ../configure --srcdir=.. --prefix=$$dc_install_base \
+ --with-included-gettext \
+ && $(MAKE) $(AM_MAKEFLAGS) \
+ && $(MAKE) $(AM_MAKEFLAGS) dvi \
+ && $(MAKE) $(AM_MAKEFLAGS) check \
+ && $(MAKE) $(AM_MAKEFLAGS) install \
+ && $(MAKE) $(AM_MAKEFLAGS) installcheck \
+ && $(MAKE) $(AM_MAKEFLAGS) uninstall \
+ && test `find $$dc_install_base -type f -print | wc -l` -le 1 \
+ && $(MAKE) $(AM_MAKEFLAGS) dist \
+ && $(MAKE) $(AM_MAKEFLAGS) distclean \
+ && rm -f $(distdir).tar.gz \
+ && test `find . -type f -print | wc -l` -eq 0
+ -chmod -R a+w $(distdir) > /dev/null 2>&1; rm -rf $(distdir)
+ @banner="$(distdir).tar.gz is ready for distribution"; \
+ dashes=`echo "$$banner" | sed s/./=/g`; \
+ echo "$$dashes"; \
+ echo "$$banner"; \
+ echo "$$dashes"
+dist: distdir
+ -find $(distdir) -type d ! -perm -777 -exec chmod a+rwx {} \; -o \
+ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -444 -exec $(SHELL) $(install_sh) -c -m a+r {} {} \; \
+ || chmod -R a+r $(distdir)
+ $(AMTAR) chof - $(distdir) | GZIP=$(GZIP_ENV) gzip -c > $(distdir).tar.gz
+ -chmod -R a+w $(distdir) > /dev/null 2>&1; rm -rf $(distdir)
+dist-all: distdir
+ -find $(distdir) -type d ! -perm -777 -exec chmod a+rwx {} \; -o \
+ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
+ ! -type d ! -perm -444 -exec $(SHELL) $(install_sh) -c -m a+r {} {} \; \
+ || chmod -R a+r $(distdir)
+ $(AMTAR) chof - $(distdir) | GZIP=$(GZIP_ENV) gzip -c > $(distdir).tar.gz
+ -chmod -R a+w $(distdir) > /dev/null 2>&1; rm -rf $(distdir)
+distdir: $(DISTFILES)
+ -chmod -R a+w $(distdir) > /dev/null 2>&1; rm -rf $(distdir)
+ mkdir $(distdir)
+ @for file in $(DISTFILES); do \
+ d=$(srcdir); \
+ if test -d $$d/$$file; then \
+ cp -pR $$d/$$file $(distdir) \
+ || exit 1; \
+ else \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file \
+ || exit 1; \
+ fi; \
+ done
+ for subdir in $(SUBDIRS); do \
+ if test "$$subdir" = .; then :; else \
+ test -d $(distdir)/$$subdir \
+ || mkdir $(distdir)/$$subdir \
+ || exit 1; \
+ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir=../$(distdir) distdir=../$(distdir)/$$subdir distdir) \
+ || exit 1; \
+ fi; \
+ done
+ $(MAKE) $(AM_MAKEFLAGS) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-hook
+info-am:
+info: info-recursive
+dvi-am:
+dvi: dvi-recursive
+check-am: all-am
+ $(MAKE) $(AM_MAKEFLAGS) check-local
+check: check-recursive
+installcheck-am:
+installcheck: installcheck-recursive
+all-recursive-am: config.h
+ $(MAKE) $(AM_MAKEFLAGS) all-recursive
+
+install-exec-am: install-binPROGRAMS
+ @$(NORMAL_INSTALL)
+ $(MAKE) $(AM_MAKEFLAGS) install-exec-hook
+install-exec: install-exec-recursive
+
+install-data-am:
+install-data: install-data-recursive
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+install: install-recursive
+uninstall-am: uninstall-binPROGRAMS
+uninstall: uninstall-recursive
+all-am: Makefile $(ANSI2KNR) $(PROGRAMS) config.h
+all-redirect: all-recursive-am
+install-strip:
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_STRIP_FLAG=-s install
+installdirs: installdirs-recursive
+installdirs-am:
+ $(mkinstalldirs) $(DESTDIR)$(bindir)
+
+
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+ -rm -f Makefile $(CONFIG_CLEAN_FILES)
+ -rm -f config.cache config.log stamp-h stamp-h[0-9]*
+
+maintainer-clean-generic:
+ -rm -f Makefile.in
+ -test -z "awkgram.c" || rm -f awkgram.c
+mostlyclean-am: mostlyclean-hdr mostlyclean-binPROGRAMS \
+ mostlyclean-compile mostlyclean-krextra mostlyclean-kr \
+ mostlyclean-tags mostlyclean-depend mostlyclean-generic
+
+mostlyclean: mostlyclean-recursive
+
+clean-am: clean-hdr clean-binPROGRAMS clean-compile clean-krextra \
+ clean-kr clean-tags clean-depend clean-generic \
+ mostlyclean-am
+
+clean: clean-recursive
+
+distclean-am: distclean-hdr distclean-binPROGRAMS distclean-compile \
+ distclean-krextra distclean-kr distclean-tags \
+ distclean-depend distclean-generic clean-am
+
+distclean: distclean-recursive
+ -rm -f config.status
+
+maintainer-clean-am: maintainer-clean-hdr maintainer-clean-binPROGRAMS \
+ maintainer-clean-compile maintainer-clean-krextra \
+ maintainer-clean-kr maintainer-clean-tags \
+ maintainer-clean-depend maintainer-clean-generic \
+ distclean-am
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+
+maintainer-clean: maintainer-clean-recursive
+ -rm -f config.status
+
+.PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \
+mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \
+maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \
+mostlyclean-compile distclean-compile clean-compile \
+maintainer-clean-compile mostlyclean-krextra distclean-krextra \
+clean-krextra maintainer-clean-krextra mostlyclean-kr distclean-kr \
+clean-kr maintainer-clean-kr install-recursive uninstall-recursive \
+install-data-recursive uninstall-data-recursive install-exec-recursive \
+uninstall-exec-recursive installdirs-recursive uninstalldirs-recursive \
+all-recursive check-recursive installcheck-recursive info-recursive \
+dvi-recursive mostlyclean-recursive distclean-recursive clean-recursive \
+maintainer-clean-recursive tags tags-recursive mostlyclean-tags \
+distclean-tags clean-tags maintainer-clean-tags mostlyclean-depend \
+distclean-depend clean-depend maintainer-clean-depend distdir info-am \
+info dvi-am dvi check-local check check-am installcheck-am installcheck \
+all-recursive-am install-exec-am install-exec install-data-am \
+install-data install-am install uninstall-am uninstall all-redirect \
+all-am all install-strip installdirs-am installdirs mostlyclean-generic \
+distclean-generic clean-generic maintainer-clean-generic clean \
+mostlyclean distclean maintainer-clean
+
+
+# First, add a link from gawk to gawk-X.Y.Z
+# For systems where gawk is awk, add a link to awk
+install-exec-hook:
+ (fullname=gawk-`./gawk --version | sed 1q | awk '{print $$3}'` ; \
+ cd $(DESTDIR)$(bindir); \
+ $(LN) gawk $$fullname ; \
if [ ! -f awk ]; \
then $(LN_S) gawk awk; \
fi; exit 0)
- cd doc && $(MAKE) install
- cd awklib && $(MAKE) install
-
-installdirs: mkinstalldirs
- $(srcdir)/mkinstalldirs $(bindir) $(datadir) \
- $(libdir) $(infodir) $(mandir) $(libexecdir)
-
-install-strip:
- $(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install
-
-uninstall:
- (cd $(bindir); \
- if [ -f awk ] && cmp awk gawk > /dev/null; then rm -f awk; fi)
- (fullname=gawk-$(REL).`gawk '{print $$3}' $(srcdir)/patchlevel.h` ; \
- cd $(bindir); \
- if cmp gawk $$fullname; then rm -f gawk; fi ; \
- rm -f $(bindir)/$$fullname)
- cd doc && $(MAKE) uninstall
- cd awklib && $(MAKE) uninstall
- -rmdir $(datadir) $(libexecdir)
-
-# auxiliary rules for release maintenance
-lint: $(ALLSRC)
- lint -hcbax $(COMPFLAGS) $(ALLSRC)
-
-xref:
- cxref -c $(COMPFLAGS) $(ALLSRC) | grep -v ' /' >xref
-
-mostlyclean:
- : mostly clean does nothing for gawk
- : use "make clean" to really clean things out
-
-clean:
- rm -rf gawk *.o core */core y.output
- cd doc && $(MAKE) clean
- cd test && $(MAKE) clean
- cd awklib && $(MAKE) clean
-
-local-distclean:
- rm -f Makefile *.orig *.rej */*.orig */*.rej awk.output \
- gmon.out make.out config.h config.status config.cache \
- config.log stamp-h tags TAGS *~
-
-distclean: clean local-distclean
- cd doc && $(MAKE) distclean
- cd awklib && $(MAKE) distclean
- cd test && $(MAKE) distclean
-
-maintainer-clean: clean local-distclean
- @echo "This command is intended for maintainers to use; it"
- @echo "deletes files that may require special tools to rebuild."
- rm -f awktab.c
- cd doc && $(MAKE) maintainer-clean
- cd test && $(MAKE) maintainer-clean
- cd awklib && $(MAKE) maintainer-clean
-
-clobber: maintainer-clean
-
-TAGS:
- etags $(AWKSRC)
-
-tags:
- ctags $(AWKSRC)
-
-dvi: $(srcdir)/doc/gawk.texi
- cd doc && $(MAKE) dvi
-
-info: $(srcdir)/doc/gawk.texi
- cd doc && $(MAKE) info
-
-doc/all:
- cd doc && $(MAKE) all
-
-awklib/all: gawk
- cd awklib && $(MAKE) CFLAGS="$(CFLAGS)" all
-
-dist: $(AWKSRC) $(LIBSRC) $(DOCS) $(MISC) $(COPIES) awklib/stamp-eg info distclean
- -rm -rf gawk-$(REL)*
- dir=gawk-$(REL).`gawk '{print $$3}' patchlevel.h` && \
- mkdir $$dir && \
- cp -pr $(AWKSRC) $(LIBSRC) $(MISC) $$dir && \
- mkdir $$dir/missing && \
- cp -p $(COPIES) $$dir/missing && \
- for i in $(OTHERS); \
- do \
- cp -pr $$i $$dir ; \
- done && \
- cp -pr test $$dir && \
- find $$dir -type d -exec chmod 777 {} ';' && \
- find $$dir -print | doschk && \
- tar -cf - $$dir | gzip > $$dir.tar.gz && \
- rm -fr $$dir
-
-awklib/stamp-eg:
- cd awklib ; $(MAKE) stamp-eg
-
-check: gawk
- cd test; $(MAKE) -k
-
-test: check
+# Undo the above when uninstalling
+uninstall-links:
+ (cd $(DESTDIR)$(bindir); \
+ if [ -f awk ] && cmp awk gawk > /dev/null; then rm -f awk; fi ; \
+ fullname=gawk-`./gawk --version | sed 1q | ./gawk '{print $$3}'` ; \
+ rm -f $$fullname; exit 0)
+
+uninstall-recursive: uninstall-links
+
+# force there to be a gawk executable before running tests
+check-local: gawk pgawk
+
+# A little extra clean up when making distributions.
+# FIXME: most of this rule should go away upon switching to libtool.
+dist-hook:
+ cd $(distdir)/extension ; rm -f *.o *.so
+
+# Special rules for individual files
+awkgram.c: awkgram.y
+ $(YACC) $(AM_YFLAGS) $(YFLAGS) $< && sed -f $(srcdir)/bisonfix.sed < y.tab.c > $*.c && $(RM) y.tab.c
+ if test -f y.tab.h; then \
+ if cmp -s y.tab.h $*.h; then rm -f y.tab.h; else mv y.tab.h $*.h; fi; \
+ else :; fi
+
+# these force version and patchlevel to be up to date based
+# on what's in configure.in. No-one else but me should have
+# to use them. So there.
+patchlev.h: configure.in
+ ./fixvers -p
+
+version.c: configure.in version.in
+ ./fixvers -v
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/NEWS b/NEWS
index fc8798ff..ab0aa847 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,131 @@
+Changes from 3.0.6 to 3.1.0
+---------------------------
+
+1. A new PROCINFO array provides info about the process. The non-I/O /dev/xxx
+ files are now obsolete, and their use always generates a warning.
+
+2. A new `mktime' builtin function was added for creating time stamps. The
+ `mktime' function written in awk was removed from the user's guide.
+
+3. New `--gen-po' option creates GNU gettext .po files for strings marked
+ with a leading underscore.
+
+4. Gawk now completely interprets special file names internally, ignoring the
+ existence of real /dev/stdin, /dev/stdout files, etc.
+
+5. The mmap code was removed. It was a worthwhile experiment that just
+ didn't work out.
+
+6. The BINMODE variable is new; on non-UNIX systems it affects how gawk
+ opens files for text vs. binary.
+
+7. The atari port is now unsupported.
+
+8. Gawk no longer supports `next file' as two words.
+
+9. On systems that support it, gawk now sets the `close on exec' flag on all
+ files and pipes it opens. This makes sure that child processes run via
+ system() or pipes have plenty of file descriptors available.
+
+10. New ports: Tandem and BeOS. The Tandem port is unsupported.
+
+11. If `--posix' is in effect, newlines are not allowed after ?:.
+
+12. Weird OFMT/CONVFMT formats no longer cause fatal errors.
+
+13. Diagnostics about array parameters now include the parameter's name,
+ not just its number.
+
+14. configure should now automatically add -D_SYSV3 for ISC Unix.
+ (This seems to have made it into the gawk 3.0.x line long ago.)
+
+15. It is now possible to open a two-way pipe via the `|&' operator.
+ See the discussion in the manual about putting `sort' into such a pipeline,
+ though. (NOTE! This is borrowed from ksh: it is not the same as
+ the same operator in csh!)
+
+16. The close() function now takes an optional second string argument
+ that allows closing one or the other end of the two-way pipe to
+ a co-process. This is needed to use `sort' in a co-process, see
+ the doc.
+
+17. If TCP/IP is available, special file names beginning with `/inet'
+ can be used with `|&' for IPC. Thanks to Juergen Kahrs for the initial
+ code.
+
+18. With `--enable-portals' on the configure command line, gawk will also
+ treat file names that start with `/p/' as a 4.4 BSD type portal file,
+ i.e., a two-way pipe for `|&'.
+
+19. Unrecognized escapes, such as "\q" now always generate a warning.
+
+20. The LINT variable is new; it provides dynamic control over the --lint
+ option.
+
+21. Lint warnings can be made fatal by using --lint=fatal or `LINT = "fatal"'.
+ Use this if you're really serious about portable code.
+
+22. Due to an enhanced sed script, there is no longer any need to worry
+ about finding or using alloca. alloca.c is thus now gone.
+
+23. A number of lint warnings have been added. Most notably, gawk will
+ detect if a variable is used before assigned to. Warnings for
+ when a string that isn't a number gets converted to a number are
+ in the code but disabled; they seem to be too picky in practice.
+
+ Also, gawk will now warn about function parameter names that shadow
+ global variable names.
+
+24. It is now possible to dynamically add builtin functions on systems
+ that support dlopen. This facility is not (yet) as portable or well
+ integrated as it might be. *** WARNING *** THIS FEATURE WILL EVOLVE!
+
+25. There are *many* new tests in the test suite.
+
+26. Profiling has been added! A separate version of gawk, named pgawk, is
+ built and generates a run-time execution profile. The --profile option
+ can be used to change the default output file. In regular gawk, this
+ option pretty-prints the parse tree.
+
+27. Gawk has been internationalized, using GNU gettext. Translations for
+ future distributions are most welcome. Simultaneously, gawk was switched
+ over to using automake. You need Automake 1.4a (from the CVS archive)
+ if you want to muck with the Makefile.am files.
+
+28. New asort() function for sorting arrays. See the doc for details.
+
+29. The match function takes an optional array third argument to hold
+ the text matched by parenthesized sub-expressions.
+
+30. The bit op functions and octal and hex source code constants are on by
+ default, no longer a configure-time option. Recognition of non-decimal
+ data is now enabled at runtime with --non-decimal-data command line option.
+
+31. Internationalization features available at the awk level: new TEXTDOMAIN
+ variable and bindtextdomain() and dcgettext() functions. printf formats
+ may contain the "%2$3.5d" kind of notation for use in translations. See
+ the texinfo manual for details.
+
+32. The return value from close() has been rationalized. Most notably,
+ closing something that wasn't open returns -1 but remains non-fatal.
+
+33. The array effeciency change from 3.0.5 was reverted; the semantics were
+ not right. Additionally, index values of previously stored elements
+ can no longer change dynamically.
+
+34. The new option --dump-variables dumps a list of all global variables and
+ their final types and values to a file you give, or to `awkvars.out'.
+
+35. Gawk now uses a recent version of random.c courtesy of the FreeBSD
+ project.
+
+36. The gawk source code now uses ANSI C function definitions (new style),
+ with ansi2knr to translate code for old compilers.
+
+37. `for (iggy in foo)' loops should be more robust now in the face of
+ adding/deleting elements in the middle; they loop over just the elements
+ that are present in the array when the loop starts.
+
Changes from 3.0.5 to 3.0.6
---------------------------
@@ -11,7 +139,7 @@ Bugs fixed and changes made:
2. Similarly, running a `for (iggy in foo)' loop where `foo' is a
function parameter now works correctly.
-3. Similarly, `i = ""; v[i] = a; if (v in a) ...' now works again.
+3. Similarly, `i = ""; v[i] = a; if (i in v) ...' now works again.
4. Gawk now special cases `for (iggy in foo) delete foo[iggy]' and
treats it as the moral equivalent of `delete foo'. This should be
diff --git a/PORTS b/PORTS
deleted file mode 100644
index 8fe8802d..00000000
--- a/PORTS
+++ /dev/null
@@ -1,29 +0,0 @@
-Gawk 3.0.5 has been successfully compiled and run "make test"
-on the following:
-
- Linux 2.2.14 gcc 2.95.2
- Linux 2.2.13-SMP egcs-2.91.66 make test -j5
- IRIX64 6.5 gcc 2.8.1
- IRIX 5.3 gcc 2.7.2.2
- SunOS 5.3 gcc 2.5.8
- Linux 2.0.33 gcc 2.7.2.1
- IRIX64 6.5 gcc 2.95.1
-
- Apple Macintosh PPC G3 Rhapsody 5.5
- DEC Alpha OSF/1 4.0F
- DEC Alpha Linux
- HP 9000/735 HP-UX 10.01
- HP PA 1.1 HP-UX 11.00
- IBM PowerPC AIX 4.2
- Intel Pentium III GNU/Linux 2.2.12-20smp (Redhat 6.1)
- NeXT Turbostation Mach 3.3
- SGI MIPS IRIX 6.3
- SGI Origin 200 IRIX 6.5
- Sun SPARC GNU/Linux 2.2.12-42smp (Redhat 6.1)
- Sun SPARC Solaris 2.6
- Sun SPARC Solaris 2.7
-
- DEC Alpha OpenVMS
- DEC Vax VMS DEC C
-
- OS/2 EMX GCC
diff --git a/POSIX.STD b/POSIX.STD
index 05129b65..04d31fcf 100644
--- a/POSIX.STD
+++ b/POSIX.STD
@@ -1,3 +1,8 @@
+March 2001:
+
+It looks like the revised 1003.2 standard will actually follow the
+rules given below. Hallelujah!
+
October 1998:
The 1003.2 work has been at a stand-still for ages. Who knows if or
diff --git a/PROBLEMS b/PROBLEMS
index 8f7d954a..0a2f77d5 100644
--- a/PROBLEMS
+++ b/PROBLEMS
@@ -1,7 +1,6 @@
-This is a list of known problems in gawk 3.0.
-Hopefully they will all be fixed in the next major release of gawk.
-
-Please keep in mind that the code is still undergoing significant evolution.
+This is a list of known problems in gawk 3.1.
+I don't know when this will be fixed, if ever. See also FUTURES
+and the gawk.texi doc for other things that need doing.
1. The interactions with the lexer and yyerror need reworking. It is possible
to get line numbers that are one line off if --compat or --posix is
diff --git a/README b/README
index bc36f4cf..a07db517 100644
--- a/README
+++ b/README
@@ -1,74 +1,84 @@
README:
-This is GNU Awk 3.0.6. It should be upwardly compatible with the Bell
-Labs research version of awk. It is almost completely compliant with
-the 1993 POSIX 1003.2 standard for awk. (See the note below about POSIX.)
+This is GNU Awk 3.1.0. It is upwardly compatible with the Bell Labs
+research version of awk. It is almost completely compliant with the
+1993 POSIX 1003.2 standard for awk. (See the note below about POSIX.)
-Patches 1 through 5 just fix bugs -- see NEWS and ChangeLog for details.
+There are lots of new features -- see NEWS and ChangeLog for details.
-See the file INSTALL for installation instructions.
+Work to be done is described briefly in the FUTURES file. Changes in this
+version are summarized in the NEWS file. Please read the LIMITATIONS file.
-Known problems are given in the PROBLEMS file. Work to be done is
-described briefly in the FUTURES file. Verified ports are listed in
-the PORTS file. Changes in this version are summarized in the NEWS file.
-Please read the LIMITATIONS and ACKNOWLEDGMENT files.
+Read the file POSIX.STD for a discussion of how the standard says
+comparisons should be done vs. how they really should be done and how
+gawk does them.
-Read the file POSIX for a discussion of how the standard says comparisons
-should be done vs. how they really should be done and how gawk does them.
-
-To format the documentation with TeX, use at least version 2.151 of
-texinfo.tex. There is a usable copy of texinfo.tex in the doc directory.
+To format the documentation with TeX, use at least version 2000-10-27.17
+of texinfo.tex. There is a usable copy of texinfo.tex in the doc directory.
-The Info file now comes with the distribution.
+INSTALLATION:
-The man page is up to date.
+Check whether there is a system-specific README file for your system under
+the `README_d' directory. If there's something there that you should
+have read and didn't, and you bug me about it, I'm going to yell at you.
-INSTALLATION:
+See the file INSTALL for installation instructions.
-Check whether there is a system-specific README file for your system
-under the `README_d' directory. If there's something there that you
-should have read and didn't, and you bug me about it, I'm going to yell
-at you.
+If you have neither bison nor yacc, use the awkgram.c file here. It was
+generated with bison, and has no proprietary code in it. (Note that
+modifying awkgram.y without bison or yacc will be difficult, at best.
+You might want to get a copy of bison from the FSF too.)
-See the file INSTALL.
+If you have a Win32, MS-DOS or OS/2 system, use the stuff in the `pc'
+directory. Similarly, there is a separate directory for VMS.
-If you have neither bison nor yacc, use the awktab.c file here. It was
-generated with bison, and has no proprietary code in it. (Note that modifying
-awk.y without bison or yacc will be difficult, at best. You might want
-to get a copy of bison from the FSF too.)
-
-If you have an MS-DOS or OS/2 system, use the stuff in the `pc' directory.
-Similarly, there are separate directories for Ataris, Amigas, and VMS.
+Ports for the Atari and Tandem are supplied, but they are unsupported.
+Thus, their code appears in the `unsupported' directory.
-Appendix B of The GNU Awk User's Guide discusses configuration in detail. The
-configuration process is now based on Autoconf, so the whole business
-should be considerably simpler than it was in gawk 2.X.Y.
+Appendix B of ``GAWK: Effective Awk Programming'' discusses configuration
+in detail. The configuration process is based on GNU Autoconf and
+Automake.
-After successful compilation, do 'make check' to run a small test
-suite. There should be no output from the 'cmp' invocations except in
-the cases where there are small differences in floating point values,
-and possibly in the case of strftime. Several of the tests ignore
-errors on purpose; those are not a problem. If there are other
-differences, please investigate and report the problem.
+After successful compilation, do `make check' to run the test suite.
+There should be no output from the `cmp' invocations except in the
+cases where there are small differences in floating point values, and
+possibly in the case of strftime. Several of the tests ignore errors
+on purpose; those are not a problem. If there are other differences,
+please investigate and report the problem.
PRINTING THE MANUAL
-The 'doc' directory contains a recent version of texinfo.tex, which will be
-necessary for printing the manual. Use `make dvi' to get a DVI file from
-the manual. In the `doc' directory, use `make postscript' to get a PostScript
-version of the manual.
+The `doc' directory contains a recent version of texinfo.tex, which will
+be necessary for printing the manual. Use `make dvi' to get a DVI file
+from the manual. In the `doc' directory, use `make postscript' to get
+PostScript versions of the manual, the man page, and the reference card.
BUG REPORTS AND FIXES (Un*x systems):
Please coordinate changes through Arnold Robbins. In particular, see
-the section in the manual on reporting bugs. Note that comp.lang.awk is
-about the worst place to post a gawk bug report. Please, use the mechanisms
-outlined in the manual.
+the section in the manual on reporting bugs. Note that comp.lang.awk
+is about the worst place to post a gawk bug report. Please, use the
+mechanisms outlined in the manual.
+
+Email should be sent to bug-gawk@gnu.org. This address sends mail to
+Arnold Robbins and the general GNU utilities bug list. The advantage
+to using this address is that bug reports are archived at GNU Central.
Arnold Robbins
-INTERNET: arnold@gnu.org
-BUG REPORTS AND FIXES (non-Unix ports):
+BUG REPORTS AND FIXES, non-Unix systems:
+
+Amiga:
+ Fred Fish
+ fnf@ninemoons.com
+
+Alpha/Linux:
+ Michal Jaegermann
+ michal@gortel.phys.ualberta.ca
+
+BeOS:
+ Martin Brown
+ mc@whoever.com
MS-DOS:
Scott Deifik
@@ -77,18 +87,18 @@ MS-DOS:
Darrel Hankerson
hankedr@mail.auburn.edu
-VMS:
- Pat Rankin
- rankin@eql.caltech.edu
-
-Alpha/Linux:
- Michal Jaegermann
- michal@gortel.phys.ualberta.ca
+MS-Windows:
+ Juan Grigera
+ juan@biophnet.unlp.edu.ar
OS/2:
Kai Uwe Rommel
rommel@ars.de
-Amiga:
- Fred Fish
- fnf@ninemoons.com
+Tandem:
+ Stephen Davies
+ scldad@sdc.com.au
+
+VMS:
+ Pat Rankin
+ rankin@eql.caltech.edu
diff --git a/README_d/README.beos b/README_d/README.beos
index be0540d5..e0a8189a 100644
--- a/README_d/README.beos
+++ b/README_d/README.beos
@@ -1,3 +1,59 @@
+README for GNU awk under BeOS
+Last updated MCB, Tue Feb 6 10:15:46 GMT 2001
+
+BeOS port contact: Martin C Brown (mc@whoever.com)
+
+Building/Installing
+--------------------------
+
+Since BeOS DR9, all the tools that you should need to build gawk are now
+included with BeOS. The process is basically identical to the Unix process
+of running configure and then make. Full instructions are given below:
+
+You can compile gawk under BeOS by extracting the standard sources,
+and running the configure script. You MUST specify the location prefix
+for the installation directory. Under BeOS DR9 and beyond the best
+directory to use is /boot/home/config, so the configure command
+would be:
+
+$ configure --prefix=/boot/home/config
+
+This will install the compiled application into /boot/home/config/bin,
+which is already specified in the standard PATH.
+
+Once the configuration process has been completed, you can run make and
+then make install:
+
+$ make
+....
+$ make install
+
+Socket Notes
+----------------------
+
+Due to the socket implementation under BeOS not all of the features under
+gawk's socket implementation may work properly. In particular:
+
+ BeOS does not support a BSD SO_LINGER option, so sockets cannot remain
+ open after a close if data is still present on the incoming buffer.
+
+ BeOS does not allow data to be read from a socket without removing the data
+ from the buffer (peek). If you need to use this feature in gawk, create a
+ separate input buffer and peek into your own copy, rather than the OS version.
+
+ BeOS does not support RAW socket connections, only UDP or TCP.
+
+Note that these are BeOS Unix-layer compatibility problems, and only affect certain
+aspects of network communication. Most socket based gawk scripts, and any scripts
+that do not rely on sockets should work fine (excepting any other notes in this section).
+
+File Handle Notes
+---------------------------
+
+Expect the multiple file test (when running make check) to fail. The reason for this is
+explained in the email shown below:
+
+-------------------------------------------------------
From mc@whoever.com Sun Jul 23 17:06:38 2000
Date: Sun, 23 Jul 2000 07:23:49 +0100
Subject: Re: gawk-3.0.5 results on BeOS
diff --git a/README_d/README.ia64 b/README_d/README.ia64
new file mode 100644
index 00000000..f93df876
--- /dev/null
+++ b/README_d/README.ia64
@@ -0,0 +1,18 @@
+Wed Apr 25 17:17:01 IDT 2001
+============================
+
+The Intel IA-64 emulation environment that sits on top of 32-bit Linux
+has problems. Gawk does not work on it.
+
+1. The `sgicc' compiler lies to `configure' and pretends it's gcc. But it
+really isn't, and several things don't work.
+
+2. Even if used with gcc, the executable doesn't run; somehow quoted
+strings don't stay as one argument to gawk, which is, of course,
+disastrous.
+
+3. It's flaky; initially `configure' wouldn't even get past the getpgrp
+test. Then later it would.
+
+Arnold Robbins
+arnold@skeeve.com
diff --git a/README_d/README.linux b/README_d/README.linux
index 016d4749..a4cdb69d 100644
--- a/README_d/README.linux
+++ b/README_d/README.linux
@@ -11,3 +11,11 @@ post-4.1 RedHat Linux.
Arnold Robbins
arnold@gnu.org
+
+Sun Aug 3 15:07:06 EDT 1997
+
+As of version 3.1 of gawk, this is no longer a problem, since gawk now
+completely interprets the special file names internally.
+
+Arnold Robbins
+arnold@gnu.org
diff --git a/README_d/README.macos b/README_d/README.macos
new file mode 100644
index 00000000..9c84b880
--- /dev/null
+++ b/README_d/README.macos
@@ -0,0 +1,14 @@
+Sun Dec 3 18:11:09 IST 2000
+============================
+
+The `posix' test will fail because of output format differences but this
+is apparently otherwise benign.
+
+Gawk uses the system's mktime(3) routine, even though Autoconf thinks
+it's broken, so Caveat Emptor.
+
+If you ask me about either of these I will fuss at you for not having
+done your homework.
+
+Arnold Robbins
+arnold@gnu.org
diff --git a/README_d/README.pc b/README_d/README.pc
index 13592ab3..bbd51e31 100644
--- a/README_d/README.pc
+++ b/README_d/README.pc
@@ -1,12 +1,12 @@
-This is the README for GNU awk 3.0 under Win32, OS/2, and DOS.
+This is the README for GNU awk 3.1 under Win32, OS/2, and DOS.
Gawk has been compiled and tested under OS/2, DOS, and Win32 using
the GNU development tools from DJ Delorie (DJGPP; DOS with special
support for long filenames under Win95), Eberhard Mattes (EMX; OS/2,
-DOS, and Win32 with rsxnt), and Jan-Jaap van der Heijden (Mingw32;
-Win32). Microsoft Visual C/C++ can be used to build a Win32 version for
-Windows 9x/NT, and MSC can be used to build 16-bit versions for DOS and
-OS/2.
+DOS, and Win32 with rsxnt), and Jan-Jaap van der Heijden and Mumit Khan
+(Mingw32; Win32). Microsoft Visual C/C++ can be used to build a Win32
+version for Windows 9x/NT, and MSC can be used to build 16-bit versions
+for DOS and OS/2.
Building gawk
@@ -103,22 +103,23 @@ The djgpp collection at
contains a djgpp-compiled (32bit) version of gawk, along with many
djgpp-compiled utilities.
-The Mingw32 collection at
+The Mingw32 collection at http://www.mingw.org contains links to ported
+software. The site by Jan-Jaap van der Heijden
http://agnes.dida.physik.uni-essen.de/~janjaap/
-may contain a Win32 version of gawk, along with a Windows help
-version of the gawk manual.
+is apparently no longer maintained, but it was accessible as of Jan 2001
+and may contain files of interest.
2. The following table illustrates some of the differences among the various
compiled versions of gawk. For example, the djgpp version runs on all the
systems, but with differing capabilities: it supports long filenames under
-Win-95 but not under NT, and it runs as a DPMI application under OS/2 (which
+Win-9x but not under NT, and it runs as a DPMI application under OS/2 (which
translates into "works in the DOS-box under OS/2, but not as a true OS/2
application").
- DOS Win/WfW Win95 NT OS/2
+ DOS Win/WfW Win9x NT OS/2
-------------------------------------------------------
djgpp | DPMI DPMI DPMI DPMI,NoLFN DPMI
emx(1) | N N N N OS2
@@ -172,10 +173,10 @@ plus under OS/2 even for command-line programs, native Win32 versions
may be desired under NT and Win95.
Users interested in Win32 applications may also wish to examine the
-Cygnus GNU-Win32 Project at http://www.cygnus.com, or the Mingw32 work
-at http://agnes.dida.physik.uni-essen.de/~janjaap/. Win32 gawk will
-often require that utilities run from within gawk be Win32 (e.g., the
-tests place this requirement on the cat utility).
+Cygnus cygwin project at http://sources.redhat.com/cygwin/ or the
+Mingw32 work at http://www.mingw.org. Win32 gawk will often require
+that utilities run from within gawk be Win32 (e.g., the tests place this
+requirement on the cat utility).
3. An sh-like shell may be useful for awk programming (and is essential
@@ -200,7 +201,7 @@ in order to match your specific collection of programs.
Daisuke Aoyama <jack@st.rim.or.jp> has ported Bash 1.14.7 to djgpp.
This version worked flawlessly in tests with djgpp gawk and make. bash
-is now part of the djgpp collection, and may also found on
+is now part of the djgpp collection; the older port may be found on
http://www.neongenesis.com/~jack/djgpp-work/beta/index.html
@@ -301,7 +302,7 @@ found in /usr/share/zoneinfo/*. The setting of the TZ environment variable
3. The 16-bit DOS version can exhaust memory on scripts such as Henry
Spencer's "awf". Use GNU C versions if possible.
-4. builtin.c of gawk-3.0.[1-3] triggers a bug in MSC 6.00A. The makefile
+4. builtin.c of gawk-3.0.[1-6] triggers a bug in MSC 6.00A. The makefile
works around the bug by compiling builtin.c without optimizations (-Od).
In limited testing, it appears that inserting some dummy code in
builtin.c can provide a better solution than disabling optimizations.
@@ -330,16 +331,16 @@ FPU after a program exits, so if Make has SIGFPE unmasked, it crashes."
problems with pipes; in particular, the pipeio1 test fails.
-Gawk-3.0.4 thanks
------------------
+Gawk thanks
+-----------
The DOS maintainers wish to express their thanks to Eli Zaretskii
<eliz@is.elta.co.il> for his work and for the many conversations
-concerning gawk-3.0, make, and djgpp. His FAQ for djgpp is essential
+concerning gawk, make, and djgpp. His FAQ for djgpp is essential
reading, and he was always willing to answer our questions (even when
we didn't read the relevant portions of the FAQ :).
-We are indebted to Juan Grigera <j-grigera@usa.net> for the
+We are indebted to Juan Grigera <juan@biophnet.unlp.edu.ar> for the
Visual C++ target, and for additional help on changes for Win32.
@@ -356,7 +357,7 @@ Support for Win32 started in gawk-3.0.3. Reports concerning the emx
version using rsxnt (emxnt) should go to Kai Uwe Rommel. Reports on
the Visual C++ version (vcWin32) may be sent to
- Juan Grigera, j-grigera@usa.net (Visual C++ version)
+ Juan Grigera, juan@biophnet.unlp.edu.ar (Visual C++ version)
with a copy to Scott Deifik. Other Win32 reports may go to Darrel
Hankerson.
diff --git a/README_d/README.sco b/README_d/README.sco
index 35555c02..81307443 100644
--- a/README_d/README.sco
+++ b/README_d/README.sco
@@ -20,3 +20,49 @@ done your homework.
Arnold Robbins
arnold@gnu.org
+
+---------------------------
+Date: 14 Oct 1997 12:17 +0000
+From: Leigh Hebblethwaite <LHebblethwaite@transoft.com>
+To: bug-gnu-utils@prep.ai.mit.edu
+To: arnold@gnu.org
+
+I've just built gawk 3.0.3 on my system and have experienced a problem
+with the routine pipeio2.awk in the test suite. However the problem
+appears to be in the tr command rather than gawk.
+
+I'm using SCO Open Server 5. On the version I have there appears to be
+a problem with tr such that:
+
+ tr [0-9]. ...........
+
+does NOT translate 9s. This means that the output from:
+
+ echo " 5 6 7 8 9 10 11" | tr [0-9]. ...........
+
+is:
+
+ . . . . 9 .. ..
+
+This problem causes the pipeio2 test to be reported as a failure.
+
+Note that the following variation on the tr command works fine:
+
+ tr 0123456789. ...........
+
+For your info the details of my system are summarised by the out put
+of the uname -X command, which is:
+
+System = SCO_SV
+Node = sgscos5
+Release = 3.2v5.0.2
+KernelID = 96/01/23
+Machine = Pentium
+BusType = EISA
+Serial = 4EC023443
+Users = 5-user
+OEM# = 0
+Origin# = 1
+NumCPU = 1
+
+
diff --git a/README_d/README.sgi b/README_d/README.sgi
index baf74734..ef22dfa6 100644
--- a/README_d/README.sgi
+++ b/README_d/README.sgi
@@ -1,3 +1,9 @@
+Tue Jan 30 10:51:39 IST 2001
+
+There will be linker warnings on SGI Irix will be building gawk.
+These are related to use of dlopen and the dynamic loading of
+builtins. The warnings can be ignored.
+======================================
Tue May 2 11:40:54 IDT 2000
GCC and gawk often don't mix on SGI systems. Use the native C compiler to
diff --git a/README_d/README.solaris b/README_d/README.solaris
index 0b0fb6a2..24adee88 100644
--- a/README_d/README.solaris
+++ b/README_d/README.solaris
@@ -1,28 +1,9 @@
-Tue Apr 13 16:57:45 IDT 1999
-
-There is a known problem in that the `manyfiles' test will fail under
-Solaris if you set your soft limit on the number of file descriptors to
-above 256. This is due to a "feature" of fdopen that an fd must be
-less than 256 (see fdopen(3)).
-
-IMHO this is Sun's problem, not mine.
-
-Arnold Robbins
-arnold@gnu.org
-----------------------------
-From dragon!lehman.com!carson Fri Feb 7 01:12:09 1997
-Return-Path: <dragon!lehman.com!carson>
+Solaris Problem #1:
+===================
From: carson@lehman.com
Date: Fri, 7 Feb 1997 01:05:58 -0500
-Message-ID: <199702070605.BAA09185@dragon.lehman.com>
To: arnold@gnu.ai.mit.edu
Subject: Solaris 2.5.1 x86 bug in gawk-3.0.2
-Reply-To: carson@lehman.com
-Status: R
-Content-Length: 630
-X-Lines: 23
-X-Display-Position: 0
-
awktab.c has the following bogus logic:
@@ -47,3 +28,88 @@ Carson Gaspar -- carson@cs.columbia.edu carson@lehman.com
http://www.cs.columbia.edu/~carson/home.html
<This is the boring business .sig - no outre sayings here>
+ * * * * * * *
+
+Solution to Problem #1:
+=======================
+Tue Oct 20 21:25:11 IST 1998
+
+This has been fixed in 3.1.0 with the bisonfix.sed script.
+
+Arnold Robbins
+arnold@gnu.org
+
+Solaris Problem #2:
+===================
+Tue Apr 13 16:57:45 IDT 1999
+
+There is a known problem in that the `manyfiles' test will fail under
+Solaris if you set your soft limit on the number of file descriptors to
+above 256. This is due to a "feature" of fdopen that an fd must be
+less than 256 (see fdopen(3)).
+
+IMHO this is Sun's problem, not mine.
+
+Arnold Robbins
+arnold@gnu.org
+
+Solution to Problem #1:
+=======================
+From: Paul Nevai <nevai@math.ohio-state.edu>
+Subject: Re: gawk-3.0.4
+To: arnold@skeeve.com (Aharon Robbins)
+Date: Tue, 6 Jul 1999 09:09:05 -0400 (EDT)
+
+Dear Aharon:
+
+Toda raba. Why don't you add something like that to README_d/README.solaris
+file:
+
+for the SunOS do in
+
+/bin/sh: ulimit -n 256; ulimit -a; make test
+/bin/tcsh: limit descriptors 256; ulimit -a; make test
+
+otherwise "make test" will fail
+
+Shalom, Paul
+
+Aharon Robbins wrote to Paul Nevai:
+# >From the README_d/README.solaris file:
+#
+# Tue Apr 13 16:57:45 IDT 1999
+#
+# There is a known problem in that the `manyfiles' test will fail under
+# Solaris if you set your soft limit on the number of file descriptors to
+# above 256. This is due to a "feature" of fdopen that an fd must be
+# less than 256 (see fdopen(3)).
+#
+# IMHO this is Sun's problem, not mine.
+#
+# Arnold Robbins
+# arnold@gnu.org
+#
+# Double check your settings with ulimit; I suspect that this is
+# your problem.
+#
+# Thanks,
+#
+# Arnold
+# --
+# Aharon (Arnold) Robbins arnold@skeeve.com [ <<=== NOTE: NEW ADDRESS!! ]
+# P.O. Box 354 Home Phone: +972 8 979-0381 Fax: +1 603 761-6761
+# Nof Ayalon Cell Phone: +972 51 297-545 (See www.efax.com)
+# D.N. Shimshon 99784 Laundry increases exponentially in the
+# ISRAEL number of children. -- Miriam Robbins
+#
+#
+
+
+
+Paul Nevai pali+@osu.edu
+Department of Mathematics nevai@math.ohio-state.edu
+The Ohio State University http://www.math.ohio-state.edu/~nevai/
+231 West Eighteenth Avenue http://www.math.ohio-state.edu/~jat/
+Columbus, Ohio 43210-1174 1-614-292-5310 (Office/Answering Device)
+The United States of America 1-614-292-1479 (Math Dept Fax)
+
diff --git a/README_d/README.tandem b/README_d/README.tandem
new file mode 100644
index 00000000..3f7ba930
--- /dev/null
+++ b/README_d/README.tandem
@@ -0,0 +1,33 @@
+The Tandem port was done on a Cyclone machine running D20.
+The port is pretty clean and all facilities seem to work except for
+some of the I/O piping stuff which is just too foreign a concept for
+Tandem.
+
+Usage is as for UNIX except that D20 requires all "{" and "}" characters
+to be escaped with "~" on the command line (not in script files) and the
+standard Tandem syntax for "/in filename,out filename/" must be used
+instead of the usual UNIX "<" and ">" for file redirection. (Redirection
+options on getline, print etc are supported.)
+
+The -mr=val option has been "stolen" to enable Tandem users to
+process fixed-length records with no "end-of-line" character. That
+is, -mr=74 tells gawk to read the input file as fixed 74-byte
+records.
+
+To build a Tandem executable from source, down-load all of the files
+so that the file names on the Tandem box are, for example ARRAYC or
+AWKH. That is, make all of the file names conform to the restrictions
+of D20. The "totally Tandem-specific" files are in the tandem
+"subvolume" and should be copied to the main src directory before
+building gawk.
+
+The file compit can then be used to compile and bind an executable.
+Sorry, no make and no autoconfig.
+
+This is my first UNIX port to Tandem so I may well have missed the best
+way of doing things: I just desperately needed a working awk at a
+Tandem shop.
+
+Cheers,
+Stephen Davies
+(scldad@sdc.com.au)
diff --git a/README_d/README.ultrix b/README_d/README.ultrix
index 4943409c..917f02f5 100644
--- a/README_d/README.ultrix
+++ b/README_d/README.ultrix
@@ -25,3 +25,22 @@ Date: Sun Sep 8 07:05:07 EDT 1996
On Decstations using Ultrix 4.3, the tweakfld test case will fail. It
appears that routines in the math library return very small but non-zero
numbers in cases where most other systems return zero.
+
+From: Juergen Kahrs <jkahrs@castor.atlas.de>
+Date: Wed Jan 17 13:15:34 MET 2001
+
+On Ultrix 4.3, configure like this:
+
+ ./configure --disable-nls
+
+In custom.h, we defined HAVE_MKTIME in order to avoid a linker error.
+If you compile with
+
+ make check
+
+every test will pass, except for the badargs test:
+
+ *** Error code 1 (ignored)
+
+This shouldnt cause problems.
+
diff --git a/acconfig.h b/acconfig.h
index ceba8afc..10ad23a0 100644
--- a/acconfig.h
+++ b/acconfig.h
@@ -2,22 +2,22 @@
* acconfig.h -- configuration definitions for gawk.
*/
-/*
- * Copyright (C) 1995-2000 the Free Software Foundation, Inc.
- *
+/*
+ * Copyright (C) 1995-2001 the Free Software Foundation, Inc.
+ *
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
- *
+ *
* GAWK is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
- *
+ *
* GAWK is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
@@ -25,14 +25,14 @@
@TOP@
-#undef HAVE_STRINGIZE /* can use ANSI # operator in cpp */
#undef REGEX_MALLOC /* use malloc instead of alloca in regex.c */
#undef SPRINTF_RET /* return type of sprintf */
-#undef BITOPS /* bitwise ops (undocumented feature) */
-#undef NONDECDATA /* non-decimal input data (undocumented feature) */
-#undef _FILE_OFFSET_BITS /* bits in a file offset, where this matters */
-#undef _LARGEFILE_SOURCE /* makes fseeko etc. visible on some hosts */
-#undef _LARGE_FILES /* emables large files on AIX-style hosts */
+#undef HAVE_MKTIME /* we have the mktime function */
+#undef HAVE_SOCKETS /* we have sockets on this system */
+#undef HAVE_PORTALS /* we have portals on /p on this system */
+#undef DYNAMIC /* allow dynamic addition of builtins */
+#undef STRTOD_NOT_C89 /* strtod doesn't have C89 semantics */
+#undef ssize_t /* signed version of size_t */
@BOTTOM@
diff --git a/acinclude.m4 b/acinclude.m4
new file mode 100644
index 00000000..a8ac0c96
--- /dev/null
+++ b/acinclude.m4
@@ -0,0 +1,8 @@
+sinclude(arch.m4)dnl
+sinclude(gettext.m4)dnl
+sinclude(jm-mktime.m4)dnl
+sinclude(largefile.m4)dnl
+sinclude(lcmessage.m4)dnl
+sinclude(progtest.m4)dnl
+sinclude(socket.m4)dnl
+sinclude(strtod.m4)dnl
diff --git a/aclocal.m4 b/aclocal.m4
index 7ba39c39..0b5a5506 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -1,44 +1,356 @@
-dnl
-dnl aclocal.m4 --- autoconf input file for gawk
-dnl
-dnl Copyright (C) 1995, 1996, 1998, 1999, 2000 the Free Software Foundation, Inc.
-dnl
-dnl This file is part of GAWK, the GNU implementation of the
-dnl AWK Progamming Language.
-dnl
-dnl GAWK is free software; you can redistribute it and/or modify
-dnl it under the terms of the GNU General Public License as published by
-dnl the Free Software Foundation; either version 2 of the License, or
-dnl (at your option) any later version.
-dnl
-dnl GAWK is distributed in the hope that it will be useful,
-dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
-dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-dnl GNU General Public License for more details.
-dnl
-dnl You should have received a copy of the GNU General Public License
-dnl along with this program; if not, write to the Free Software
-dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
-dnl
+# aclocal.m4 generated automatically by aclocal 1.4a
-dnl gawk-specific macros for autoconf. one day hopefully part of autoconf
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000
+# Free Software Foundation, Inc.
+# This file is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
-AC_DEFUN(GAWK_AC_C_STRINGIZE, [
-AC_REQUIRE([AC_PROG_CPP])
-AC_MSG_CHECKING([for ANSI stringizing capability])
-AC_CACHE_VAL(gawk_cv_c_stringize,
-AC_EGREP_CPP([#teststring],[
-#define x(y) #y
-
-char *s = x(teststring);
-], gawk_cv_c_stringize=no, gawk_cv_c_stringize=yes))
-if test "${gawk_cv_c_stringize}" = yes
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+sinclude(arch.m4)dnl
+sinclude(gettext.m4)dnl
+sinclude(jm-mktime.m4)dnl
+sinclude(largefile.m4)dnl
+sinclude(lcmessage.m4)dnl
+sinclude(progtest.m4)dnl
+sinclude(socket.m4)dnl
+sinclude(strtod.m4)dnl
+
+# Do all the work for Automake. This macro actually does too much --
+# some checks are only needed if your package does certain things.
+# But this isn't really a big deal.
+
+# serial 3
+
+AC_PREREQ([2.13])
+
+# AC_PROVIDE_IFELSE(MACRO-NAME, IF-PROVIDED, IF-NOT-PROVIDED)
+# -----------------------------------------------------------
+# If MACRO-NAME is provided do IF-PROVIDED, else IF-NOT-PROVIDED.
+# The purpose of this macro is to provide the user with a means to
+# check macros which are provided without letting her know how the
+# information is coded.
+# If this macro is not defined by Autoconf, define it here.
+ifdef([AC_PROVIDE_IFELSE],
+ [],
+ [define([AC_PROVIDE_IFELSE],
+ [ifdef([AC_PROVIDE_$1],
+ [$2], [$3])])])
+
+
+# AM_INIT_AUTOMAKE(PACKAGE,VERSION, [NO-DEFINE])
+# ----------------------------------------------
+AC_DEFUN([AM_INIT_AUTOMAKE],
+[dnl We require 2.13 because we rely on SHELL being computed by configure.
+AC_REQUIRE([AC_PROG_INSTALL])dnl
+# test to see if srcdir already configured
+if test "`CDPATH=:; cd $srcdir && pwd`" != "`pwd`" &&
+ test -f $srcdir/config.status; then
+ AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
+fi
+
+# Define the identity of the package.
+PACKAGE=$1
+AC_SUBST(PACKAGE)dnl
+VERSION=$2
+AC_SUBST(VERSION)dnl
+ifelse([$3],,
+[AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package])
+AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])
+
+# Some tools Automake needs.
+AC_REQUIRE([AM_SANITY_CHECK])dnl
+AC_REQUIRE([AC_ARG_PROGRAM])dnl
+AM_MISSING_PROG(ACLOCAL, aclocal)
+AM_MISSING_PROG(AUTOCONF, autoconf)
+AM_MISSING_PROG(AUTOMAKE, automake)
+AM_MISSING_PROG(AUTOHEADER, autoheader)
+AM_MISSING_PROG(MAKEINFO, makeinfo)
+AM_MISSING_PROG(AMTAR, tar)
+AM_MISSING_INSTALL_SH
+# We need awk for the "check" target. The system "awk" is bad on
+# some platforms.
+AC_REQUIRE([AC_PROG_AWK])dnl
+AC_REQUIRE([AC_PROG_MAKE_SET])dnl
+AC_REQUIRE([AM_DEP_TRACK])dnl
+AC_REQUIRE([AM_SET_DEPDIR])dnl
+AC_PROVIDE_IFELSE([AC_PROG_CC],
+ [AM_DEPENDENCIES(CC)],
+ [define([AC_PROG_CC],
+ defn([AC_PROG_CC])[AM_DEPENDENCIES(CC)])])dnl
+AC_PROVIDE_IFELSE([AC_PROG_CXX],
+ [AM_DEPENDENCIES(CXX)],
+ [define([AC_PROG_CXX],
+ defn([AC_PROG_CXX])[AM_DEPENDENCIES(CXX)])])dnl
+])
+
+#
+# Check to make sure that the build environment is sane.
+#
+
+AC_DEFUN([AM_SANITY_CHECK],
+[AC_MSG_CHECKING([whether build environment is sane])
+# Just in case
+sleep 1
+echo timestamp > conftestfile
+# Do `set' in a subshell so we don't clobber the current shell's
+# arguments. Must try -L first in case configure is actually a
+# symlink; some systems play weird games with the mod time of symlinks
+# (eg FreeBSD returns the mod time of the symlink's containing
+# directory).
+if (
+ set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
+ if test "[$]*" = "X"; then
+ # -L didn't work.
+ set X `ls -t $srcdir/configure conftestfile`
+ fi
+ if test "[$]*" != "X $srcdir/configure conftestfile" \
+ && test "[$]*" != "X conftestfile $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
+alias in your environment])
+ fi
+
+ test "[$]2" = conftestfile
+ )
then
- AC_DEFINE(HAVE_STRINGIZE)
+ # Ok.
+ :
+else
+ AC_MSG_ERROR([newly created file is older than distributed files!
+Check your system clock])
fi
-AC_MSG_RESULT([${gawk_cv_c_stringize}])
-])dnl
+rm -f conftest*
+AC_MSG_RESULT(yes)])
+
+# AM_MISSING_PROG(NAME, PROGRAM)
+AC_DEFUN([AM_MISSING_PROG], [
+AC_REQUIRE([AM_MISSING_HAS_RUN])
+$1=${$1-"${am_missing_run}$2"}
+AC_SUBST($1)])
+
+# Like AM_MISSING_PROG, but only looks for install-sh.
+# AM_MISSING_INSTALL_SH()
+AC_DEFUN([AM_MISSING_INSTALL_SH], [
+AC_REQUIRE([AM_MISSING_HAS_RUN])
+if test -z "$install_sh"; then
+ install_sh="$ac_aux_dir/install-sh"
+ test -f "$install_sh" || install_sh="$ac_aux_dir/install.sh"
+ test -f "$install_sh" || install_sh="${am_missing_run}${ac_auxdir}/install-sh"
+ dnl FIXME: an evil hack: we remove the SHELL invocation from
+ dnl install_sh because automake adds it back in. Sigh.
+ install_sh="`echo $install_sh | sed -e 's/\${SHELL}//'`"
+fi
+AC_SUBST(install_sh)])
+
+# AM_MISSING_HAS_RUN.
+# Define MISSING if not defined so far and test if it supports --run.
+# If it does, set am_missing_run to use it, otherwise, to nothing.
+AC_DEFUN([AM_MISSING_HAS_RUN], [
+test x"${MISSING+set}" = xset || \
+ MISSING="\${SHELL} `CDPATH=:; cd $ac_aux_dir && pwd`/missing"
+# Use eval to expand $SHELL
+if eval "$MISSING --run :"; then
+ am_missing_run="$MISSING --run "
+else
+ am_missing_run=
+ am_backtick='`'
+ AC_MSG_WARN([${am_backtick}missing' script is too old or missing])
+fi
+])
+
+# See how the compiler implements dependency checking.
+# Usage:
+# AM_DEPENDENCIES(NAME)
+# NAME is "CC", "CXX" or "OBJC".
+
+# We try a few techniques and use that to set a single cache variable.
+
+AC_DEFUN([AM_DEPENDENCIES],[
+AC_REQUIRE([AM_SET_DEPDIR])
+AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])
+ifelse([$1],CC,[
+AC_REQUIRE([AC_PROG_CC])
+AC_REQUIRE([AC_PROG_CPP])
+depcc="$CC"
+depcpp="$CPP"],[$1],CXX,[
+AC_REQUIRE([AC_PROG_CXX])
+AC_REQUIRE([AC_PROG_CXXCPP])
+depcc="$CXX"
+depcpp="$CXXCPP"],[$1],OBJC,[
+am_cv_OBJC_dependencies_compiler_type=gcc],[
+AC_REQUIRE([AC_PROG_][$1])
+depcc="$[$1]"
+depcpp=""])
+AC_MSG_CHECKING([dependency style of $depcc])
+AC_CACHE_VAL(am_cv_[$1]_dependencies_compiler_type,[
+if test -z "$AMDEP"; then
+ echo '#include "conftest.h"' > conftest.c
+ echo 'int i;' > conftest.h
+
+ am_cv_[$1]_dependencies_compiler_type=none
+ for depmode in `sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < "$am_depcomp"`; do
+ case "$depmode" in
+ nosideeffect)
+ # after this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested
+ if test "x$enable_dependency_tracking" = xyes; then
+ continue
+ else
+ break
+ fi
+ ;;
+ none) break ;;
+ esac
+ # We check with `-c' and `-o' for the sake of the "dashmstdout"
+ # mode. It turns out that the SunPro C++ compiler does not properly
+ # handle `-M -o', and we need to detect this.
+ if depmode="$depmode" \
+ source=conftest.c object=conftest.o \
+ depfile=conftest.Po tmpdepfile=conftest.TPo \
+ $SHELL $am_depcomp $depcc -c conftest.c -o conftest.o >/dev/null 2>&1 &&
+ grep conftest.h conftest.Po > /dev/null 2>&1; then
+ am_cv_[$1]_dependencies_compiler_type="$depmode"
+ break
+ fi
+ done
+
+ rm -f conftest.*
+else
+ am_cv_[$1]_dependencies_compiler_type=none
+fi
+])
+AC_MSG_RESULT($am_cv_[$1]_dependencies_compiler_type)
+[$1]DEPMODE="depmode=$am_cv_[$1]_dependencies_compiler_type"
+AC_SUBST([$1]DEPMODE)
+])
+
+# Choose a directory name for dependency files.
+# This macro is AC_REQUIREd in AM_DEPENDENCIES
+
+AC_DEFUN([AM_SET_DEPDIR],[
+if test -d .deps || mkdir .deps 2> /dev/null || test -d .deps; then
+ DEPDIR=.deps
+else
+ DEPDIR=_deps
+fi
+AC_SUBST(DEPDIR)
+])
+
+AC_DEFUN([AM_DEP_TRACK],[
+AC_ARG_ENABLE(dependency-tracking,
+[ --disable-dependency-tracking Speeds up one-time builds
+ --enable-dependency-tracking Do not reject slow dependency extractors])
+if test "x$enable_dependency_tracking" = xno; then
+ AMDEP="#"
+else
+ am_depcomp="$ac_aux_dir/depcomp"
+ if test ! -f "$am_depcomp"; then
+ AMDEP="#"
+ else
+ AMDEP=
+ fi
+fi
+AC_SUBST(AMDEP)
+if test -z "$AMDEP"; then
+ AMDEPBACKSLASH='\'
+else
+ AMDEPBACKSLASH=
+fi
+pushdef([subst], defn([AC_SUBST]))
+subst(AMDEPBACKSLASH)
+popdef([subst])
+])
+
+# Generate code to set up dependency tracking.
+# This macro should only be invoked once -- use via AC_REQUIRE.
+# Usage:
+# AM_OUTPUT_DEPENDENCY_COMMANDS
+
+#
+# This code is only required when automatic dependency tracking
+# is enabled. FIXME. This creates each `.P' file that we will
+# need in order to bootstrap the dependency handling code.
+AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],[
+AC_OUTPUT_COMMANDS([
+test x"$AMDEP" != x"" ||
+for mf in $CONFIG_FILES; do
+ case "$mf" in
+ Makefile) dirpart=.;;
+ */Makefile) dirpart=`echo "$mf" | sed -e 's|/[^/]*$||'`;;
+ *) continue;;
+ esac
+ grep '^DEP_FILES *= *[^ #]' < "$mf" > /dev/null || continue
+ # Extract the definition of DEP_FILES from the Makefile without
+ # running `make'.
+ DEPDIR=`sed -n -e '/^DEPDIR = / s///p' < "$mf"`
+ test -z "$DEPDIR" && continue
+ # When using ansi2knr, U may be empty or an underscore; expand it
+ U=`sed -n -e '/^U = / s///p' < "$mf"`
+ test -d "$dirpart/$DEPDIR" || mkdir "$dirpart/$DEPDIR"
+ # We invoke sed twice because it is the simplest approach to
+ # changing $(DEPDIR) to its actual value in the expansion.
+ for file in `sed -n -e '
+ /^DEP_FILES = .*\\\\$/ {
+ s/^DEP_FILES = //
+ :loop
+ s/\\\\$//
+ p
+ n
+ /\\\\$/ b loop
+ p
+ }
+ /^DEP_FILES = / s/^DEP_FILES = //p' < "$mf" | \
+ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
+ # Make sure the directory exists.
+ test -f "$dirpart/$file" && continue
+ fdir=`echo "$file" | sed -e 's|/[^/]*$||'`
+ $ac_aux_dir/mkinstalldirs "$dirpart/$fdir" > /dev/null 2>&1
+ # echo "creating $dirpart/$file"
+ echo '# dummy' > "$dirpart/$file"
+ done
+done
+], [AMDEP="$AMDEP"
+ac_aux_dir="$ac_aux_dir"])])
+
+# Like AC_CONFIG_HEADER, but automatically create stamp file.
+
+# serial 3
+# When config.status generates a header, we must update the stamp-h file.
+# This file resides in the same directory as the config header
+# that is generated. We must strip everything past the first ":",
+# and everything past the last "/".
+
+AC_PREREQ([2.12])
+
+AC_DEFUN([AM_CONFIG_HEADER],
+[AC_CONFIG_HEADER([$1])
+ AC_OUTPUT_COMMANDS(
+ ifelse(patsubst([$1], [[^ ]], []),
+ [],
+ [test -z "$CONFIG_HEADERS" || echo timestamp >dnl
+ patsubst([$1], [^\([^:]*/\)?.*], [\1])stamp-h]),
+ [am_indx=1
+ for am_file in $1; do
+ case " $CONFIG_HEADERS " in
+ *" $am_file "*)
+ echo timestamp > `echo $am_file | sed 's%:.*%%;s%[^/]*$%%'`stamp-h$am_indx
+ ;;
+ esac
+ am_indx=\`expr \$am_indx + 1\`
+ done])
+])
+
+#serial 19
dnl By default, many hosts won't let programs access large files;
dnl one must use special compiler options to get large-file access to work.
@@ -47,26 +359,30 @@ dnl http://www.sas.com/standards/large.file/x_open.20Mar96.html
dnl Written by Paul Eggert <eggert@twinsun.com>.
-dnl Internal subroutine of GAWK_AC_SYS_LARGEFILE.
-dnl GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES
-AC_DEFUN(GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES,
+dnl Internal subroutine of AC_SYS_LARGEFILE.
+dnl AC_SYS_LARGEFILE_TEST_INCLUDES
+AC_DEFUN(AC_SYS_LARGEFILE_TEST_INCLUDES,
[[#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
]])
-dnl Internal subroutine of GAWK_AC_SYS_LARGEFILE.
-dnl GAWK_AC_SYS_LARGEFILE_MACRO_VALUE(C-MACRO, VALUE, CACHE-VAR, COMMENT, INCLUDES, FUNCTION-BODY)
-AC_DEFUN(GAWK_AC_SYS_LARGEFILE_MACRO_VALUE,
+dnl Internal subroutine of AC_SYS_LARGEFILE.
+dnl AC_SYS_LARGEFILE_MACRO_VALUE(C-MACRO, VALUE, CACHE-VAR, COMMENT, INCLUDES, FUNCTION-BODY)
+AC_DEFUN(AC_SYS_LARGEFILE_MACRO_VALUE,
[AC_CACHE_CHECK([for $1 value needed for large files], $3,
[$3=no
- AC_TRY_COMPILE(GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES
-$5
- ,
+ AC_TRY_COMPILE([$5],
[$6],
,
[AC_TRY_COMPILE([#define $1 $2]
-GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES
-$5
+[$5]
,
[$6],
[$3=$2])])])
@@ -74,45 +390,82 @@ $5
AC_DEFINE_UNQUOTED([$1], [$]$3, [$4])
fi])
-AC_DEFUN(GAWK_AC_SYS_LARGEFILE,
- [AC_ARG_ENABLE(largefile,
+AC_DEFUN(AC_SYS_LARGEFILE,
+ [AC_REQUIRE([AC_PROG_CC])
+ AC_ARG_ENABLE(largefile,
[ --disable-largefile omit support for large files])
if test "$enable_largefile" != no; then
AC_CACHE_CHECK([for special C compiler options needed for large files],
- gawk_cv_sys_largefile_CC,
- [gawk_cv_sys_largefile_CC=no
+ ac_cv_sys_largefile_CC,
+ [ac_cv_sys_largefile_CC=no
if test "$GCC" != yes; then
# IRIX 6.2 and later do not support large files by default,
# so use the C compiler's -n32 option if that helps.
- AC_TRY_COMPILE(GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES, , ,
+ AC_TRY_COMPILE(AC_SYS_LARGEFILE_TEST_INCLUDES, , ,
[ac_save_CC="$CC"
CC="$CC -n32"
- AC_TRY_COMPILE(GAWK_AC_SYS_LARGEFILE_TEST_INCLUDES, ,
- gawk_cv_sys_largefile_CC=' -n32')
+ AC_TRY_COMPILE(AC_SYS_LARGEFILE_TEST_INCLUDES, ,
+ ac_cv_sys_largefile_CC=' -n32')
CC="$ac_save_CC"])
fi])
- if test "$gawk_cv_sys_largefile_CC" != no; then
- CC="$CC$gawk_cv_sys_largefile_CC"
+ if test "$ac_cv_sys_largefile_CC" != no; then
+ CC="$CC$ac_cv_sys_largefile_CC"
fi
- GAWK_AC_SYS_LARGEFILE_MACRO_VALUE(_FILE_OFFSET_BITS, 64,
- gawk_cv_sys_file_offset_bits,
- [Number of bits in a file offset, on hosts where this is settable.])
- GAWK_AC_SYS_LARGEFILE_MACRO_VALUE(_LARGEFILE_SOURCE, 1,
- gawk_cv_sys_largefile_source,
- [Define to make ftello visible on some hosts (e.g. HP-UX 10.20).],
- [#include <stdio.h>], [return !ftello;])
- GAWK_AC_SYS_LARGEFILE_MACRO_VALUE(_LARGE_FILES, 1,
- gawk_cv_sys_large_files,
- [Define for large files, on AIX-style hosts.])
- GAWK_AC_SYS_LARGEFILE_MACRO_VALUE(_XOPEN_SOURCE, 500,
- gawk_cv_sys_xopen_source,
- [Define to make ftello visible on some hosts (e.g. glibc 2.1.3).],
- [#include <stdio.h>], [return !ftello;])
+ AC_SYS_LARGEFILE_MACRO_VALUE(_FILE_OFFSET_BITS, 64,
+ ac_cv_sys_file_offset_bits,
+ [Number of bits in a file offset, on hosts where this is settable.],
+ AC_SYS_LARGEFILE_TEST_INCLUDES)
+ AC_SYS_LARGEFILE_MACRO_VALUE(_LARGE_FILES, 1,
+ ac_cv_sys_large_files,
+ [Define for large files, on AIX-style hosts.],
+ AC_SYS_LARGEFILE_TEST_INCLUDES)
fi
])
+AC_DEFUN(AC_FUNC_FSEEKO,
+ [AC_SYS_LARGEFILE_MACRO_VALUE(_LARGEFILE_SOURCE, 1,
+ ac_cv_sys_largefile_source,
+ [Define to make fseeko visible on some hosts (e.g. glibc 2.2).],
+ [#include <stdio.h>], [return !fseeko;])
+ # We used to try defining _XOPEN_SOURCE=500 too, to work around a bug
+ # in glibc 2.1.3, but that breaks too many other things.
+ # If you want fseeko and ftello with glibc, upgrade to a fixed glibc.
+
+ AC_CACHE_CHECK([for fseeko], ac_cv_func_fseeko,
+ [ac_cv_func_fseeko=no
+ AC_TRY_LINK([#include <stdio.h>],
+ [return fseeko && fseeko (stdin, 0, 0);],
+ [ac_cv_func_fseeko=yes])])
+ if test $ac_cv_func_fseeko != no; then
+ AC_DEFINE(HAVE_FSEEKO, 1,
+ [Define if fseeko (and presumably ftello) exists and is declared.])
+ fi])
+
+dnl
+dnl arch.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 1995, 1996, 1998, 1999, 2000 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+dnl
+
dnl Check for AIX and add _XOPEN_SOURCE_EXTENDED
AC_DEFUN(GAWK_AC_AIX_TWEAK, [
AC_MSG_CHECKING([for AIX compilation hacks])
@@ -127,3 +480,879 @@ fi
])dnl
AC_MSG_RESULT([${gawk_cv_aix_hack}])
])dnl
+
+dnl Check for Alpha Linux systems
+AC_DEFUN(GAWK_AC_LINUX_ALPHA, [
+AC_MSG_CHECKING([for Linux/Alpha compilation hacks])
+AC_CACHE_VAL(gawk_cv_linux_alpha_hack, [
+if test "Linux" = "`uname`" && test "alpha" = "`uname -m`"
+then
+ # this isn't necessarily always true,
+ # the vendor's compiler is also often found
+ if test "$GCC" = yes
+ then
+ CFLAGS="$CFLAGS -mieee"
+ gawk_cv_linux_alpha_hack=yes
+ else
+ gawk_cv_linux_alpha_hack=no
+ fi
+else
+ gawk_cv_linux_alpha_hack=no
+fi
+])dnl
+AC_MSG_RESULT([${gawk_cv_linux_alpha_hack}])
+])dnl
+
+
+# serial 1
+
+# @defmac AC_PROG_CC_STDC
+# @maindex PROG_CC_STDC
+# @ovindex CC
+# If the C compiler in not in ANSI C mode by default, try to add an option
+# to output variable @code{CC} to make it so. This macro tries various
+# options that select ANSI C on some system or another. It considers the
+# compiler to be in ANSI C mode if it handles function prototypes correctly.
+#
+# If you use this macro, you should check after calling it whether the C
+# compiler has been set to accept ANSI C; if not, the shell variable
+# @code{am_cv_prog_cc_stdc} is set to @samp{no}. If you wrote your source
+# code in ANSI C, you can make an un-ANSIfied copy of it by using the
+# program @code{ansi2knr}, which comes with Ghostscript.
+# @end defmac
+
+AC_DEFUN([AM_PROG_CC_STDC],
+[AC_REQUIRE([AC_PROG_CC])
+AC_BEFORE([$0], [AC_C_INLINE])
+AC_BEFORE([$0], [AC_C_CONST])
+dnl Force this before AC_PROG_CPP. Some cpp's, eg on HPUX, require
+dnl a magic option to avoid problems with ANSI preprocessor commands
+dnl like #elif.
+dnl FIXME: can't do this because then AC_AIX won't work due to a
+dnl circular dependency.
+dnl AC_BEFORE([$0], [AC_PROG_CPP])
+AC_MSG_CHECKING([for ${CC-cc} option to accept ANSI C])
+AC_CACHE_VAL(am_cv_prog_cc_stdc,
+[am_cv_prog_cc_stdc=no
+ac_save_CC="$CC"
+# Don't try gcc -ansi; that turns off useful extensions and
+# breaks some systems' header files.
+# AIX -qlanglvl=ansi
+# Ultrix and OSF/1 -std1
+# HP-UX 10.20 and later -Ae
+# HP-UX older versions -Aa -D_HPUX_SOURCE
+# SVR4 -Xc -D__EXTENSIONS__
+for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
+do
+ CC="$ac_save_CC $ac_arg"
+ AC_TRY_COMPILE(
+[#include <stdarg.h>
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
+struct buf { int x; };
+FILE * (*rcsopen) (struct buf *, struct stat *, int);
+static char *e (p, i)
+ char **p;
+ int i;
+{
+ return p[i];
+}
+static char *f (char * (*g) (char **, int), char **p, ...)
+{
+ char *s;
+ va_list v;
+ va_start (v,p);
+ s = g (p, va_arg (v,int));
+ va_end (v);
+ return s;
+}
+int test (int i, double x);
+struct s1 {int (*f) (int a);};
+struct s2 {int (*f) (double a);};
+int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
+int argc;
+char **argv;
+], [
+return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
+],
+[am_cv_prog_cc_stdc="$ac_arg"; break])
+done
+CC="$ac_save_CC"
+])
+if test -z "$am_cv_prog_cc_stdc"; then
+ AC_MSG_RESULT([none needed])
+else
+ AC_MSG_RESULT([$am_cv_prog_cc_stdc])
+fi
+case "x$am_cv_prog_cc_stdc" in
+ x|xno) ;;
+ *) CC="$CC $am_cv_prog_cc_stdc" ;;
+esac
+])
+
+
+# serial 1
+
+AC_DEFUN([AM_C_PROTOTYPES],
+[AC_REQUIRE([AM_PROG_CC_STDC])
+AC_REQUIRE([AC_PROG_CPP])
+AC_MSG_CHECKING([for function prototypes])
+if test "$am_cv_prog_cc_stdc" != no; then
+ AC_MSG_RESULT(yes)
+ AC_DEFINE(PROTOTYPES,1,[Define if compiler has function prototypes])
+ U= ANSI2KNR=
+else
+ AC_MSG_RESULT(no)
+ U=_ ANSI2KNR=./ansi2knr
+ # Ensure some checks needed by ansi2knr itself.
+ AC_HEADER_STDC
+ AC_CHECK_HEADERS(string.h)
+fi
+AC_SUBST(U)dnl
+AC_SUBST(ANSI2KNR)dnl
+])
+
+# Macro to add for using GNU gettext.
+# Ulrich Drepper <drepper@cygnus.com>, 1995.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 107
+
+AC_PREREQ(2.13) dnl Minimum Autoconf version required.
+
+AC_DEFUN(AM_WITH_NLS,
+ [AC_MSG_CHECKING([whether NLS is requested])
+ dnl Default is enabled NLS
+ AC_ARG_ENABLE(nls,
+ [ --disable-nls do not use Native Language Support],
+ USE_NLS=$enableval, USE_NLS=yes)
+ AC_MSG_RESULT($USE_NLS)
+ AC_SUBST(USE_NLS)
+
+ USE_INCLUDED_LIBINTL=no
+
+ dnl If we use NLS figure out what method
+ if test "$USE_NLS" = "yes"; then
+ AC_DEFINE(ENABLE_NLS, 1, [Define to 1 if NLS is requested.])
+ AC_MSG_CHECKING([whether included gettext is requested])
+ AC_ARG_WITH(included-gettext,
+ [ --with-included-gettext use the GNU gettext library included here],
+ nls_cv_force_use_gnu_gettext=$withval,
+ nls_cv_force_use_gnu_gettext=no)
+ AC_MSG_RESULT($nls_cv_force_use_gnu_gettext)
+
+ nls_cv_use_gnu_gettext="$nls_cv_force_use_gnu_gettext"
+ if test "$nls_cv_force_use_gnu_gettext" != "yes"; then
+ dnl User does not insist on using GNU NLS library. Figure out what
+ dnl to use. If gettext or catgets are available (in this order) we
+ dnl use this. Else we have to fall back to GNU NLS library.
+ dnl catgets is only used if permitted by option --with-catgets.
+ nls_cv_header_intl=
+ nls_cv_header_libgt=
+ CATOBJEXT=NONE
+
+ AC_CHECK_HEADER(libintl.h,
+ [AC_CACHE_CHECK([for gettext in libc], gt_cv_func_gettext_libc,
+ [AC_TRY_LINK([#include <libintl.h>], [return (int) gettext ("")],
+ gt_cv_func_gettext_libc=yes, gt_cv_func_gettext_libc=no)])
+
+ if test "$gt_cv_func_gettext_libc" != "yes"; then
+ AC_CHECK_LIB(intl, bindtextdomain,
+ [AC_CHECK_LIB(intl, gettext)])
+ fi
+
+ if test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$ac_cv_lib_intl_gettext" = "yes"; then
+ AC_DEFINE(HAVE_GETTEXT, 1,
+ [Define to 1 if you have gettext and don't want to use GNU gettext.])
+ AM_PATH_PROG_WITH_TEST(MSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], no)dnl
+ if test "$MSGFMT" != "no"; then
+ AC_CHECK_FUNCS(dcgettext)
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, $MSGFMT)
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ AC_TRY_LINK(, [extern int _nl_msg_cat_cntr;
+ return _nl_msg_cat_cntr],
+ [CATOBJEXT=.gmo
+ DATADIRNAME=share],
+ [CATOBJEXT=.mo
+ DATADIRNAME=lib])
+ INSTOBJEXT=.mo
+ fi
+ fi
+ ])
+
+ if test "$CATOBJEXT" = "NONE"; then
+ AC_MSG_CHECKING([whether catgets can be used])
+ AC_ARG_WITH(catgets,
+ [ --with-catgets use catgets functions if available],
+ nls_cv_use_catgets=$withval, nls_cv_use_catgets=no)
+ AC_MSG_RESULT($nls_cv_use_catgets)
+
+ if test "$nls_cv_use_catgets" = "yes"; then
+ dnl No gettext in C library. Try catgets next.
+ AC_CHECK_LIB(i, main)
+ AC_CHECK_FUNC(catgets,
+ [AC_DEFINE(HAVE_CATGETS, 1,
+ [Define as 1 if you have catgets and don't want to use GNU gettext.])
+ INTLOBJS="\$(CATOBJS)"
+ AC_PATH_PROG(GENCAT, gencat, no)dnl
+ if test "$GENCAT" != "no"; then
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, no)
+ if test "$GMSGFMT" = "no"; then
+ AM_PATH_PROG_WITH_TEST(GMSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], no)
+ fi
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.cat
+ INSTOBJEXT=.cat
+ DATADIRNAME=lib
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi])
+ fi
+ fi
+
+ if (test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$gt_cv_func_gettext_libintl" = "yes") \
+ && test "$ac_cv_func_dcgettext" = no; then
+ dnl gettext is there but dcgettext is not
+ nls_cv_use_gnu_gettext=yes
+ elif test "$CATOBJEXT" = "NONE"; then
+ dnl Neither gettext nor catgets in included in the C library.
+ dnl Fall back on GNU gettext library.
+ nls_cv_use_gnu_gettext=yes
+ fi
+ fi
+
+ if test "$nls_cv_use_gnu_gettext" = "yes"; then
+ dnl Mark actions used to generate GNU NLS library.
+ INTLOBJS="\$(GETTOBJS)"
+ AM_PATH_PROG_WITH_TEST(MSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], msgfmt)
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, $MSGFMT)
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ AC_SUBST(MSGFMT)
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.gmo
+ INSTOBJEXT=.mo
+ DATADIRNAME=share
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+
+ dnl Test whether we really found GNU xgettext.
+ if test "$XGETTEXT" != ":"; then
+ dnl If it is no GNU xgettext we define it as : so that the
+ dnl Makefiles still can work.
+ if $XGETTEXT --omit-header /dev/null 2> /dev/null; then
+ : ;
+ else
+ AC_MSG_RESULT(
+ [found xgettext program is not GNU xgettext; ignore it])
+ XGETTEXT=":"
+ fi
+ fi
+
+ # We need to process the po/ directory.
+ POSUB=po
+ else
+ DATADIRNAME=share
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+ if test -z "$nls_cv_header_intl"; then
+ # Clean out junk possibly left behind by a previous configuration.
+ rm -f intl/libintl.h
+ fi
+ AC_LINK_FILES($nls_cv_header_libgt, $nls_cv_header_intl)
+ AC_OUTPUT_COMMANDS(
+ [case "$CONFIG_FILES" in *po/Makefile.in*)
+ sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile
+ esac])
+
+
+ # If this is used in GNU gettext we have to set USE_NLS to `yes'
+ # because some of the sources are only built for this goal.
+ if test "$PACKAGE" = gettext; then
+ USE_NLS=yes
+ USE_INCLUDED_LIBINTL=yes
+ fi
+
+ dnl These rules are solely for the distribution goal. While doing this
+ dnl we only have to keep exactly one list of the available catalogs
+ dnl in configure.in.
+ for lang in $ALL_LINGUAS; do
+ GMOFILES="$GMOFILES $lang.gmo"
+ POFILES="$POFILES $lang.po"
+ done
+
+ dnl Make all variables we use known to autoconf.
+ AC_SUBST(USE_INCLUDED_LIBINTL)
+ AC_SUBST(CATALOGS)
+ AC_SUBST(CATOBJEXT)
+ AC_SUBST(DATADIRNAME)
+ AC_SUBST(GMOFILES)
+ AC_SUBST(INSTOBJEXT)
+ AC_SUBST(INTLDEPS)
+ AC_SUBST(INTLLIBS)
+ AC_SUBST(INTLOBJS)
+ AC_SUBST(POFILES)
+ AC_SUBST(POSUB)
+ ])
+
+AC_DEFUN(AM_GNU_GETTEXT,
+ [AC_REQUIRE([AC_PROG_MAKE_SET])dnl
+ AC_REQUIRE([AC_PROG_CC])dnl
+ AC_REQUIRE([AC_PROG_RANLIB])dnl
+ AC_REQUIRE([AC_ISC_POSIX])dnl
+ AC_REQUIRE([AC_HEADER_STDC])dnl
+ AC_REQUIRE([AC_C_CONST])dnl
+ AC_REQUIRE([AC_C_INLINE])dnl
+ AC_REQUIRE([AC_TYPE_OFF_T])dnl
+ AC_REQUIRE([AC_TYPE_SIZE_T])dnl
+ AC_REQUIRE([AC_FUNC_ALLOCA])dnl
+ AC_REQUIRE([AC_FUNC_MMAP])dnl
+
+ AC_CHECK_HEADERS([argz.h limits.h locale.h nl_types.h malloc.h string.h \
+unistd.h sys/param.h])
+ AC_CHECK_FUNCS([getcwd munmap putenv setenv setlocale strchr strcasecmp \
+strdup __argz_count __argz_stringify __argz_next])
+
+ if test "${ac_cv_func_stpcpy+set}" != "set"; then
+ AC_CHECK_FUNCS(stpcpy)
+ fi
+ if test "${ac_cv_func_stpcpy}" = "yes"; then
+ AC_DEFINE(HAVE_STPCPY, 1, [Define to 1 if you have the stpcpy function.])
+ fi
+
+ AM_LC_MESSAGES
+ AM_WITH_NLS
+
+ if test "x$CATOBJEXT" != "x"; then
+ if test "x$ALL_LINGUAS" = "x"; then
+ LINGUAS=
+ else
+ AC_MSG_CHECKING(for catalogs to be installed)
+ NEW_LINGUAS=
+ for lang in ${LINGUAS=$ALL_LINGUAS}; do
+ case "$ALL_LINGUAS" in
+ *$lang*) NEW_LINGUAS="$NEW_LINGUAS $lang" ;;
+ esac
+ done
+ LINGUAS=$NEW_LINGUAS
+ AC_MSG_RESULT($LINGUAS)
+ fi
+
+ dnl Construct list of names of catalog files to be constructed.
+ if test -n "$LINGUAS"; then
+ for lang in $LINGUAS; do CATALOGS="$CATALOGS $lang$CATOBJEXT"; done
+ fi
+ fi
+
+ dnl The reference to <locale.h> in the installed <libintl.h> file
+ dnl must be resolved because we cannot expect the users of this
+ dnl to define HAVE_LOCALE_H.
+ if test $ac_cv_header_locale_h = yes; then
+ INCLUDE_LOCALE_H="#include <locale.h>"
+ else
+ INCLUDE_LOCALE_H="\
+/* The system does not provide the header <locale.h>. Take care yourself. */"
+ fi
+ AC_SUBST(INCLUDE_LOCALE_H)
+
+ dnl Determine which catalog format we have (if any is needed)
+ dnl For now we know about two different formats:
+ dnl Linux libc-5 and the normal X/Open format
+ test -d intl || mkdir intl
+ if test "$CATOBJEXT" = ".cat"; then
+ AC_CHECK_HEADER(linux/version.h, msgformat=linux, msgformat=xopen)
+
+ dnl Transform the SED scripts while copying because some dumb SEDs
+ dnl cannot handle comments.
+ sed -e '/^#/d' $srcdir/intl/$msgformat-msg.sed > intl/po2msg.sed
+ fi
+ dnl po2tbl.sed is always needed.
+ sed -e '/^#.*[^\\]$/d' -e '/^#$/d' \
+ $srcdir/intl/po2tbl.sed.in > intl/po2tbl.sed
+
+ dnl In the intl/Makefile.in we have a special dependency which makes
+ dnl only sense for gettext. We comment this out for non-gettext
+ dnl packages.
+ if test "$PACKAGE" = "gettext"; then
+ GT_NO="#NO#"
+ GT_YES=
+ else
+ GT_NO=
+ GT_YES="#YES#"
+ fi
+ AC_SUBST(GT_NO)
+ AC_SUBST(GT_YES)
+
+ dnl If the AC_CONFIG_AUX_DIR macro for autoconf is used we possibly
+ dnl find the mkinstalldirs script in another subdir but ($top_srcdir).
+ dnl Try to locate is.
+ MKINSTALLDIRS=
+ if test -n "$ac_aux_dir"; then
+ MKINSTALLDIRS="$ac_aux_dir/mkinstalldirs"
+ fi
+ if test -z "$MKINSTALLDIRS"; then
+ MKINSTALLDIRS="\$(top_srcdir)/mkinstalldirs"
+ fi
+ AC_SUBST(MKINSTALLDIRS)
+
+ dnl *** For now the libtool support in intl/Makefile is not for real.
+ l=
+ AC_SUBST(l)
+
+ dnl Generate list of files to be processed by xgettext which will
+ dnl be included in po/Makefile.
+ test -d po || mkdir po
+ case "$srcdir" in
+ .)
+ posrcprefix="../" ;;
+ /* | [[A-Za-z]]:*)
+ posrcprefix="$srcdir/" ;;
+ *)
+ posrcprefix="../$srcdir/" ;;
+ esac
+ rm -f po/POTFILES
+ sed -e "/^#/d" -e "/^\$/d" -e "s,.*, $posrcprefix& \\\\," -e "\$s/\(.*\) \\\\/\1/" \
+ < $srcdir/po/POTFILES.in > po/POTFILES
+ ])
+
+# Search path for a program which passes the given test.
+# Ulrich Drepper <drepper@cygnus.com>, 1996.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 1
+
+dnl AM_PATH_PROG_WITH_TEST(VARIABLE, PROG-TO-CHECK-FOR,
+dnl TEST-PERFORMED-ON-FOUND_PROGRAM [, VALUE-IF-NOT-FOUND [, PATH]])
+AC_DEFUN(AM_PATH_PROG_WITH_TEST,
+[# Extract the first word of "$2", so it can be a program name with args.
+set dummy $2; ac_word=[$]2
+AC_MSG_CHECKING([for $ac_word])
+AC_CACHE_VAL(ac_cv_path_$1,
+[case "[$]$1" in
+ /*)
+ ac_cv_path_$1="[$]$1" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in ifelse([$5], , $PATH, [$5]); do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if [$3]; then
+ ac_cv_path_$1="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+dnl If no 4th arg is given, leave the cache variable unset,
+dnl so AC_PATH_PROGS will keep looking.
+ifelse([$4], , , [ test -z "[$]ac_cv_path_$1" && ac_cv_path_$1="$4"
+])dnl
+ ;;
+esac])dnl
+$1="$ac_cv_path_$1"
+if test -n "[$]$1"; then
+ AC_MSG_RESULT([$]$1)
+else
+ AC_MSG_RESULT(no)
+fi
+AC_SUBST($1)dnl
+])
+
+# Check whether LC_MESSAGES is available in <locale.h>.
+# Ulrich Drepper <drepper@cygnus.com>, 1995.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 2
+
+AC_PREREQ(2.13) dnl Minimum Autoconf version required.
+
+AC_DEFUN(AM_LC_MESSAGES,
+ [if test $ac_cv_header_locale_h = yes; then
+ AC_CACHE_CHECK([for LC_MESSAGES], am_cv_val_LC_MESSAGES,
+ [AC_TRY_LINK([#include <locale.h>], [return LC_MESSAGES],
+ am_cv_val_LC_MESSAGES=yes, am_cv_val_LC_MESSAGES=no)])
+ if test $am_cv_val_LC_MESSAGES = yes; then
+ AC_DEFINE(HAVE_LC_MESSAGES, 1,
+ [Define if your locale.h file contains LC_MESSAGES.])
+ fi
+ fi])
+
+#serial 1
+
+dnl AC_PREREQ(2.14a)
+
+dnl This is a specialization of AC_CHECK_TYPE applied to `ssize_t' with
+dnl the difference that it also includes unistd.h on systems that have it.
+dnl On Fujitsu UXP/V systems ssize_t is defined in unistd.h.
+AC_DEFUN(GAWK_AC_TYPE_SSIZE_T,
+ [
+ AC_CHECK_HEADERS(unistd.h)
+ AC_CHECK_TYPE(ssize_t, int,
+ [
+#include <sys/types.h>
+#if STDC_HEADERS
+# include <stdlib.h>
+# include <stddef.h>
+#endif
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+ ]
+ )
+ ]
+)
+
+dnl
+dnl strtod.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 2001 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
+dnl Check for strtod with C89 semantics
+
+AC_DEFUN(GAWK_AC_FUNC_STRTOD_C89,
+[
+AC_CHECK_HEADERS(stdlib.h)
+AC_CHECK_FUNCS(strtod)
+AC_CACHE_CHECK([for strtod with C89 semantics], gawk_ac_cv_func_strtod_c89,
+[AC_TRY_RUN(
+[/* Test program from Arnold Robbins (arnold@skeeve.com) */
+#if HAVE_STDLIB_H
+#include <stdlib.h>
+#else
+extern double strtod();
+#endif
+
+int
+main ()
+{
+#if ! HAVE_STRTOD
+ exit(1);
+#else
+ double d;
+ char *str = "0x345a";
+
+ d = strtod(str, 0);
+ if (d == 0)
+ exit (0);
+ else
+ exit (1);
+}],
+gawk_ac_cv_func_strtod_c89=yes, gawk_ac_cv_func_strtod_c89=no,
+gawk_ac_cv_func_strtod_c89=no)])
+if test $gawk_ac_cv_func_strtod_c89 = no; then
+ AC_DEFINE(STRTOD_NOT_C89)
+fi
+])# GAWK_FUNC_STRTOD_C89
+
+#serial 7
+
+dnl From Jim Meyering.
+dnl A wrapper around AC_FUNC_MKTIME.
+
+AC_DEFUN(jm_FUNC_MKTIME,
+[AC_REQUIRE([AC_FUNC_MKTIME])dnl
+
+ dnl mktime.c uses localtime_r if it exists. Check for it.
+ AC_CHECK_FUNCS(localtime_r)
+
+ if test $ac_cv_func_working_mktime = no; then
+ AC_DEFINE_UNQUOTED(mktime, rpl_mktime,
+ [Define to rpl_mktime if the replacement function should be used.])
+ fi
+])
+
+# AC_FUNC_MKTIME
+# --------------
+# Stolen from CVS Autoconf. Should be removed once you use Autoconf 2.15.
+AC_DEFUN(AC_FUNC_MKTIME,
+[AC_REQUIRE([AC_HEADER_TIME])dnl
+AC_CHECK_HEADERS(sys/time.h unistd.h)
+AC_CHECK_FUNCS(alarm)
+AC_CACHE_CHECK([for working mktime], ac_cv_func_working_mktime,
+[AC_TRY_RUN(
+[/* Test program from Paul Eggert (eggert@twinsun.com)
+ and Tony Leneis (tony@plaza.ds.adp.com). */
+#if TIME_WITH_SYS_TIME
+# include <sys/time.h>
+# include <time.h>
+#else
+# if HAVE_SYS_TIME_H
+# include <sys/time.h>
+# else
+# include <time.h>
+# endif
+#endif
+
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+
+#if !HAVE_ALARM
+# define alarm(X) /* empty */
+#endif
+
+/* Work around redefinition to rpl_putenv by other config tests. */
+#undef putenv
+
+static time_t time_t_max;
+
+/* Values we'll use to set the TZ environment variable. */
+static const char *const tz_strings[] = {
+ (const char *) 0, "TZ=GMT0", "TZ=JST-9",
+ "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
+};
+#define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
+
+/* Fail if mktime fails to convert a date in the spring-forward gap.
+ Based on a problem report from Andreas Jaeger. */
+static void
+spring_forward_gap ()
+{
+ /* glibc (up to about 1998-10-07) failed this test) */
+ struct tm tm;
+
+ /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
+ instead of "TZ=America/Vancouver" in order to detect the bug even
+ on systems that don't support the Olson extension, or don't have the
+ full zoneinfo tables installed. */
+ putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
+
+ tm.tm_year = 98;
+ tm.tm_mon = 3;
+ tm.tm_mday = 5;
+ tm.tm_hour = 2;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ if (mktime (&tm) == (time_t)-1)
+ exit (1);
+}
+
+static void
+mktime_test (now)
+ time_t now;
+{
+ struct tm *lt;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+ now = time_t_max - now;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+}
+
+static void
+irix_6_4_bug ()
+{
+ /* Based on code from Ariel Faigon. */
+ struct tm tm;
+ tm.tm_year = 96;
+ tm.tm_mon = 3;
+ tm.tm_mday = 0;
+ tm.tm_hour = 0;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ mktime (&tm);
+ if (tm.tm_mon != 2 || tm.tm_mday != 31)
+ exit (1);
+}
+
+static void
+bigtime_test (j)
+ int j;
+{
+ struct tm tm;
+ time_t now;
+ tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j;
+ now = mktime (&tm);
+ if (now != (time_t) -1)
+ {
+ struct tm *lt = localtime (&now);
+ if (! (lt
+ && lt->tm_year == tm.tm_year
+ && lt->tm_mon == tm.tm_mon
+ && lt->tm_mday == tm.tm_mday
+ && lt->tm_hour == tm.tm_hour
+ && lt->tm_min == tm.tm_min
+ && lt->tm_sec == tm.tm_sec
+ && lt->tm_yday == tm.tm_yday
+ && lt->tm_wday == tm.tm_wday
+ && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst)
+ == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst))))
+ exit (1);
+ }
+}
+
+int
+main ()
+{
+ time_t t, delta;
+ int i, j;
+
+ /* This test makes some buggy mktime implementations loop.
+ Give up after 60 seconds; a mktime slower than that
+ isn't worth using anyway. */
+ alarm (60);
+
+ for (time_t_max = 1; 0 < time_t_max; time_t_max *= 2)
+ continue;
+ time_t_max--;
+ delta = time_t_max / 997; /* a suitable prime number */
+ for (i = 0; i < N_STRINGS; i++)
+ {
+ if (tz_strings[i])
+ putenv (tz_strings[i]);
+
+ for (t = 0; t <= time_t_max - delta; t += delta)
+ mktime_test (t);
+ mktime_test ((time_t) 60 * 60);
+ mktime_test ((time_t) 60 * 60 * 24);
+
+ for (j = 1; 0 < j; j *= 2)
+ bigtime_test (j);
+ bigtime_test (j - 1);
+ }
+ irix_6_4_bug ();
+ spring_forward_gap ();
+ exit (0);
+}],
+ac_cv_func_working_mktime=yes, ac_cv_func_working_mktime=no,
+ac_cv_func_working_mktime=no)])
+if test $ac_cv_func_working_mktime = no; then
+ LIBOBJS="$LIBOBJS mktime.${ac_objext}"
+fi
+])# AC_FUNC_MKTIME
+dnl
+dnl socket.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 1995, 96, 98, 99, 2000 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+dnl
+
+dnl Find the socket libraries
+dnl largely stolen from AC_PATH_XTRA
+AC_DEFUN(GAWK_AC_LIB_SOCKETS, [
+gawk_have_sockets=no
+# Check for system-dependent location of socket libraries
+
+SOCKET_LIBS=
+if test "$ISC" = yes; then
+ SOCKET_LIBS="-lnsl_s -linet"
+else
+ # Martyn.Johnson@cl.cam.ac.uk says this is needed for Ultrix, if the X
+ # libraries were built with DECnet support. And karl@cs.umb.edu says
+ # the Alpha needs dnet_stub (dnet does not exist).
+ #
+ # ADR: Is this needed just for sockets???
+# AC_CHECK_LIB(dnet, dnet_ntoa, [SOCKET_LIBS="$SOCKET_LIBS -ldnet"])
+# if test $ac_cv_lib_dnet_ntoa = no; then
+# AC_CHECK_LIB(dnet_stub, dnet_ntoa,
+# [SOCKET_LIBS="$SOCKET_LIBS -ldnet_stub"])
+# fi
+
+ # msh@cis.ufl.edu says -lnsl (and -lsocket) are needed for his 386/AT,
+ # to get the SysV transport functions.
+ # chad@anasazi.com says the Pyramid MIS-ES running DC/OSx (SVR4)
+ # needs -lnsl.
+ # The nsl library prevents programs from opening the X display
+ # on Irix 5.2, according to dickey@clark.net.
+ AC_CHECK_FUNC(gethostbyname)
+ if test $ac_cv_func_gethostbyname = no; then
+ AC_CHECK_LIB(nsl, gethostbyname, SOCKET_LIBS="$SOCKET_LIBS -lnsl")
+ fi
+
+ # lieder@skyler.mavd.honeywell.com says without -lsocket,
+ # socket/setsockopt and other routines are undefined under SCO ODT
+ # 2.0. But -lsocket is broken on IRIX 5.2 (and is not necessary
+ # on later versions), says simon@lia.di.epfl.ch: it contains
+ # gethostby* variants that don't use the nameserver (or something).
+ # -lsocket must be given before -lnsl if both are needed.
+ # We assume that if connect needs -lnsl, so does gethostbyname.
+ AC_CHECK_FUNC(connect)
+ if test $ac_cv_func_connect = no; then
+ AC_CHECK_LIB(socket, connect, SOCKET_LIBS="-lsocket $SOCKET_LIBS"
+ gawk_have_sockets=yes, ,
+ $SOCKET_LIBS)
+ else
+ gawk_have_sockets=yes
+ fi
+fi
+
+if test "${gawk_have_sockets}" = "yes"
+then
+ AC_MSG_CHECKING([where to find the socket library calls])
+ case "${SOCKET_LIBS}" in
+ ?*) gawk_lib_loc="${SOCKET_LIBS}" ;;
+ *) gawk_lib_loc="the standard library" ;;
+ esac
+ AC_MSG_RESULT([${gawk_lib_loc}])
+
+ AC_DEFINE(HAVE_SOCKETS)
+fi
+AC_SUBST(SOCKET_LIBS)dnl
+])dnl
+
diff --git a/alloca.c b/alloca.c
deleted file mode 100644
index 6bbd9839..00000000
--- a/alloca.c
+++ /dev/null
@@ -1,496 +0,0 @@
-/* alloca.c -- allocate automatically reclaimed memory
- (Mostly) portable public-domain implementation -- D A Gwyn
-
- This implementation of the PWB library alloca function,
- which is used to allocate space off the run-time stack so
- that it is automatically reclaimed upon procedure exit,
- was inspired by discussions with J. Q. Johnson of Cornell.
- J.Otto Tennant <jot@cray.com> contributed the Cray support.
-
- There are some preprocessor constants that can
- be defined when compiling for your specific system, for
- improved efficiency; however, the defaults should be okay.
-
- The general concept of this implementation is to keep
- track of all alloca-allocated blocks, and reclaim any
- that are found to be deeper in the stack than the current
- invocation. This heuristic does not reclaim storage as
- soon as it becomes invalid, but it will do so eventually.
-
- As a special case, alloca(0) reclaims storage without
- allocating any. It is a good idea to use alloca(0) in
- your main control loop, etc. to force garbage collection. */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#ifdef emacs
-#include "blockinput.h"
-#endif
-
-/* If compiling with GCC 2, this file's not needed. */
-#if !defined (__GNUC__) || __GNUC__ < 2
-
-/* If someone has defined alloca as a macro,
- there must be some other way alloca is supposed to work. */
-#ifndef alloca
-
-#ifdef emacs
-#ifdef static
-/* actually, only want this if static is defined as ""
- -- this is for usg, in which emacs must undefine static
- in order to make unexec workable
- */
-#ifndef STACK_DIRECTION
-you
-lose
--- must know STACK_DIRECTION at compile-time
-#endif /* STACK_DIRECTION undefined */
-#endif /* static */
-#endif /* emacs */
-
-/* If your stack is a linked list of frames, you have to
- provide an "address metric" ADDRESS_FUNCTION macro. */
-
-#if defined (CRAY) && defined (CRAY_STACKSEG_END)
-long i00afunc ();
-#define ADDRESS_FUNCTION(arg) (char *) i00afunc (&(arg))
-#else
-#define ADDRESS_FUNCTION(arg) &(arg)
-#endif
-
-#if __STDC__
-typedef void *pointer;
-#else
-typedef char *pointer;
-#endif
-
-#ifndef NULL
-#define NULL 0
-#endif
-
-#ifndef malloc
-/* Different portions of Emacs need to call different versions of
- malloc. The Emacs executable needs alloca to call xmalloc, because
- ordinary malloc isn't protected from input signals. On the other
- hand, the utilities in lib-src need alloca to call malloc; some of
- them are very simple, and don't have an xmalloc routine.
-
- Non-Emacs programs expect this to call xmalloc.
-
- Callers below should use malloc. */
-
-#ifndef emacs
-#define malloc xmalloc
-#endif
-extern pointer malloc ();
-#endif /* malloc */
-
-/* Define STACK_DIRECTION if you know the direction of stack
- growth for your system; otherwise it will be automatically
- deduced at run-time.
-
- STACK_DIRECTION > 0 => grows toward higher addresses
- STACK_DIRECTION < 0 => grows toward lower addresses
- STACK_DIRECTION = 0 => direction of growth unknown */
-
-#ifndef STACK_DIRECTION
-#define STACK_DIRECTION 0 /* Direction unknown. */
-#endif
-
-#if STACK_DIRECTION != 0
-
-#define STACK_DIR STACK_DIRECTION /* Known at compile-time. */
-
-#else /* STACK_DIRECTION == 0; need run-time code. */
-
-static int stack_dir; /* 1 or -1 once known. */
-#define STACK_DIR stack_dir
-
-static void
-find_stack_direction ()
-{
- static char *addr = NULL; /* Address of first `dummy', once known. */
- auto char dummy; /* To get stack address. */
-
- if (addr == NULL)
- { /* Initial entry. */
- addr = ADDRESS_FUNCTION (dummy);
-
- find_stack_direction (); /* Recurse once. */
- }
- else
- {
- /* Second entry. */
- if (ADDRESS_FUNCTION (dummy) > addr)
- stack_dir = 1; /* Stack grew upward. */
- else
- stack_dir = -1; /* Stack grew downward. */
- }
-}
-
-#endif /* STACK_DIRECTION == 0 */
-
-/* An "alloca header" is used to:
- (a) chain together all alloca'ed blocks;
- (b) keep track of stack depth.
-
- It is very important that sizeof(header) agree with malloc
- alignment chunk size. The following default should work okay. */
-
-#ifndef ALIGN_SIZE
-#define ALIGN_SIZE sizeof(double)
-#endif
-
-typedef union hdr
-{
- char align[ALIGN_SIZE]; /* To force sizeof(header). */
- struct
- {
- union hdr *next; /* For chaining headers. */
- char *deep; /* For stack depth measure. */
- } h;
-} header;
-
-static header *last_alloca_header = NULL; /* -> last alloca header. */
-
-/* Return a pointer to at least SIZE bytes of storage,
- which will be automatically reclaimed upon exit from
- the procedure that called alloca. Originally, this space
- was supposed to be taken from the current stack frame of the
- caller, but that method cannot be made to work for some
- implementations of C, for example under Gould's UTX/32. */
-
-pointer
-alloca (size)
- unsigned size;
-{
- auto char probe; /* Probes stack depth: */
- register char *depth = ADDRESS_FUNCTION (probe);
-
-#if STACK_DIRECTION == 0
- if (STACK_DIR == 0) /* Unknown growth direction. */
- find_stack_direction ();
-#endif
-
- /* Reclaim garbage, defined as all alloca'd storage that
- was allocated from deeper in the stack than currently. */
-
- {
- register header *hp; /* Traverses linked list. */
-
-#ifdef emacs
- BLOCK_INPUT;
-#endif
-
- for (hp = last_alloca_header; hp != NULL;)
- if ((STACK_DIR > 0 && hp->h.deep > depth)
- || (STACK_DIR < 0 && hp->h.deep < depth))
- {
- register header *np = hp->h.next;
-
- free ((pointer) hp); /* Collect garbage. */
-
- hp = np; /* -> next header. */
- }
- else
- break; /* Rest are not deeper. */
-
- last_alloca_header = hp; /* -> last valid storage. */
-
-#ifdef emacs
- UNBLOCK_INPUT;
-#endif
- }
-
- if (size == 0)
- return NULL; /* No allocation required. */
-
- /* Allocate combined header + user data storage. */
-
- {
- register pointer new = malloc (sizeof (header) + size);
- /* Address of header. */
-
- ((header *) new)->h.next = last_alloca_header;
- ((header *) new)->h.deep = depth;
-
- last_alloca_header = (header *) new;
-
- /* User storage begins just after header. */
-
- return (pointer) ((char *) new + sizeof (header));
- }
-}
-
-#if defined (CRAY) && defined (CRAY_STACKSEG_END)
-
-#ifdef DEBUG_I00AFUNC
-#include <stdio.h>
-#endif
-
-#ifndef CRAY_STACK
-#define CRAY_STACK
-#ifndef CRAY2
-/* Stack structures for CRAY-1, CRAY X-MP, and CRAY Y-MP */
-struct stack_control_header
- {
- long shgrow:32; /* Number of times stack has grown. */
- long shaseg:32; /* Size of increments to stack. */
- long shhwm:32; /* High water mark of stack. */
- long shsize:32; /* Current size of stack (all segments). */
- };
-
-/* The stack segment linkage control information occurs at
- the high-address end of a stack segment. (The stack
- grows from low addresses to high addresses.) The initial
- part of the stack segment linkage control information is
- 0200 (octal) words. This provides for register storage
- for the routine which overflows the stack. */
-
-struct stack_segment_linkage
- {
- long ss[0200]; /* 0200 overflow words. */
- long sssize:32; /* Number of words in this segment. */
- long ssbase:32; /* Offset to stack base. */
- long:32;
- long sspseg:32; /* Offset to linkage control of previous
- segment of stack. */
- long:32;
- long sstcpt:32; /* Pointer to task common address block. */
- long sscsnm; /* Private control structure number for
- microtasking. */
- long ssusr1; /* Reserved for user. */
- long ssusr2; /* Reserved for user. */
- long sstpid; /* Process ID for pid based multi-tasking. */
- long ssgvup; /* Pointer to multitasking thread giveup. */
- long sscray[7]; /* Reserved for Cray Research. */
- long ssa0;
- long ssa1;
- long ssa2;
- long ssa3;
- long ssa4;
- long ssa5;
- long ssa6;
- long ssa7;
- long sss0;
- long sss1;
- long sss2;
- long sss3;
- long sss4;
- long sss5;
- long sss6;
- long sss7;
- };
-
-#else /* CRAY2 */
-/* The following structure defines the vector of words
- returned by the STKSTAT library routine. */
-struct stk_stat
- {
- long now; /* Current total stack size. */
- long maxc; /* Amount of contiguous space which would
- be required to satisfy the maximum
- stack demand to date. */
- long high_water; /* Stack high-water mark. */
- long overflows; /* Number of stack overflow ($STKOFEN) calls. */
- long hits; /* Number of internal buffer hits. */
- long extends; /* Number of block extensions. */
- long stko_mallocs; /* Block allocations by $STKOFEN. */
- long underflows; /* Number of stack underflow calls ($STKRETN). */
- long stko_free; /* Number of deallocations by $STKRETN. */
- long stkm_free; /* Number of deallocations by $STKMRET. */
- long segments; /* Current number of stack segments. */
- long maxs; /* Maximum number of stack segments so far. */
- long pad_size; /* Stack pad size. */
- long current_address; /* Current stack segment address. */
- long current_size; /* Current stack segment size. This
- number is actually corrupted by STKSTAT to
- include the fifteen word trailer area. */
- long initial_address; /* Address of initial segment. */
- long initial_size; /* Size of initial segment. */
- };
-
-/* The following structure describes the data structure which trails
- any stack segment. I think that the description in 'asdef' is
- out of date. I only describe the parts that I am sure about. */
-
-struct stk_trailer
- {
- long this_address; /* Address of this block. */
- long this_size; /* Size of this block (does not include
- this trailer). */
- long unknown2;
- long unknown3;
- long link; /* Address of trailer block of previous
- segment. */
- long unknown5;
- long unknown6;
- long unknown7;
- long unknown8;
- long unknown9;
- long unknown10;
- long unknown11;
- long unknown12;
- long unknown13;
- long unknown14;
- };
-
-#endif /* CRAY2 */
-#endif /* not CRAY_STACK */
-
-#ifdef CRAY2
-/* Determine a "stack measure" for an arbitrary ADDRESS.
- I doubt that "lint" will like this much. */
-
-static long
-i00afunc (long *address)
-{
- struct stk_stat status;
- struct stk_trailer *trailer;
- long *block, size;
- long result = 0;
-
- /* We want to iterate through all of the segments. The first
- step is to get the stack status structure. We could do this
- more quickly and more directly, perhaps, by referencing the
- $LM00 common block, but I know that this works. */
-
- STKSTAT (&status);
-
- /* Set up the iteration. */
-
- trailer = (struct stk_trailer *) (status.current_address
- + status.current_size
- - 15);
-
- /* There must be at least one stack segment. Therefore it is
- a fatal error if "trailer" is null. */
-
- if (trailer == 0)
- abort ();
-
- /* Discard segments that do not contain our argument address. */
-
- while (trailer != 0)
- {
- block = (long *) trailer->this_address;
- size = trailer->this_size;
- if (block == 0 || size == 0)
- abort ();
- trailer = (struct stk_trailer *) trailer->link;
- if ((block <= address) && (address < (block + size)))
- break;
- }
-
- /* Set the result to the offset in this segment and add the sizes
- of all predecessor segments. */
-
- result = address - block;
-
- if (trailer == 0)
- {
- return result;
- }
-
- do
- {
- if (trailer->this_size <= 0)
- abort ();
- result += trailer->this_size;
- trailer = (struct stk_trailer *) trailer->link;
- }
- while (trailer != 0);
-
- /* We are done. Note that if you present a bogus address (one
- not in any segment), you will get a different number back, formed
- from subtracting the address of the first block. This is probably
- not what you want. */
-
- return (result);
-}
-
-#else /* not CRAY2 */
-/* Stack address function for a CRAY-1, CRAY X-MP, or CRAY Y-MP.
- Determine the number of the cell within the stack,
- given the address of the cell. The purpose of this
- routine is to linearize, in some sense, stack addresses
- for alloca. */
-
-static long
-i00afunc (long address)
-{
- long stkl = 0;
-
- long size, pseg, this_segment, stack;
- long result = 0;
-
- struct stack_segment_linkage *ssptr;
-
- /* Register B67 contains the address of the end of the
- current stack segment. If you (as a subprogram) store
- your registers on the stack and find that you are past
- the contents of B67, you have overflowed the segment.
-
- B67 also points to the stack segment linkage control
- area, which is what we are really interested in. */
-
- stkl = CRAY_STACKSEG_END ();
- ssptr = (struct stack_segment_linkage *) stkl;
-
- /* If one subtracts 'size' from the end of the segment,
- one has the address of the first word of the segment.
-
- If this is not the first segment, 'pseg' will be
- nonzero. */
-
- pseg = ssptr->sspseg;
- size = ssptr->sssize;
-
- this_segment = stkl - size;
-
- /* It is possible that calling this routine itself caused
- a stack overflow. Discard stack segments which do not
- contain the target address. */
-
- while (!(this_segment <= address && address <= stkl))
- {
-#ifdef DEBUG_I00AFUNC
- fprintf (stderr, "%011o %011o %011o\n", this_segment, address, stkl);
-#endif
- if (pseg == 0)
- break;
- stkl = stkl - pseg;
- ssptr = (struct stack_segment_linkage *) stkl;
- size = ssptr->sssize;
- pseg = ssptr->sspseg;
- this_segment = stkl - size;
- }
-
- result = address - this_segment;
-
- /* If you subtract pseg from the current end of the stack,
- you get the address of the previous stack segment's end.
- This seems a little convoluted to me, but I'll bet you save
- a cycle somewhere. */
-
- while (pseg != 0)
- {
-#ifdef DEBUG_I00AFUNC
- fprintf (stderr, "%011o %011o\n", pseg, size);
-#endif
- stkl = stkl - pseg;
- ssptr = (struct stack_segment_linkage *) stkl;
- size = ssptr->sssize;
- pseg = ssptr->sspseg;
- result += size;
- }
- return (result);
-}
-
-#endif /* not CRAY2 */
-#endif /* CRAY */
-
-#endif /* no alloca */
-#endif /* not GCC version 2 */
diff --git a/ansi2knr.1 b/ansi2knr.1
new file mode 100644
index 00000000..f9ee5a63
--- /dev/null
+++ b/ansi2knr.1
@@ -0,0 +1,36 @@
+.TH ANSI2KNR 1 "19 Jan 1996"
+.SH NAME
+ansi2knr \- convert ANSI C to Kernighan & Ritchie C
+.SH SYNOPSIS
+.I ansi2knr
+[--varargs] input_file [output_file]
+.SH DESCRIPTION
+If no output_file is supplied, output goes to stdout.
+.br
+There are no error messages.
+.sp
+.I ansi2knr
+recognizes function definitions by seeing a non-keyword identifier at the left
+margin, followed by a left parenthesis, with a right parenthesis as the last
+character on the line, and with a left brace as the first token on the
+following line (ignoring possible intervening comments). It will recognize a
+multi-line header provided that no intervening line ends with a left or right
+brace or a semicolon. These algorithms ignore whitespace and comments, except
+that the function name must be the first thing on the line.
+.sp
+The following constructs will confuse it:
+.br
+ - Any other construct that starts at the left margin and follows the
+above syntax (such as a macro or function call).
+.br
+ - Some macros that tinker with the syntax of the function header.
+.sp
+The --varargs switch is obsolete, and is recognized only for
+backwards compatibility. The present version of
+.I ansi2knr
+will always attempt to convert a ... argument to va_alist and va_dcl.
+.SH AUTHOR
+L. Peter Deutsch <ghost@aladdin.com> wrote the original ansi2knr and
+continues to maintain the current version; most of the code in the current
+version is his work. ansi2knr also includes contributions by Francois
+Pinard <pinard@iro.umontreal.ca> and Jim Avera <jima@netcom.com>.
diff --git a/ansi2knr.c b/ansi2knr.c
new file mode 100644
index 00000000..ed5ba195
--- /dev/null
+++ b/ansi2knr.c
@@ -0,0 +1,678 @@
+/* Copyright (C) 1989, 1997, 1998, 1999 Aladdin Enterprises. All rights reserved. */
+
+/*$Id: ansi2knr.c $*/
+/* Convert ANSI C function definitions to K&R ("traditional C") syntax */
+
+/*
+ansi2knr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY. No author or distributor accepts responsibility to anyone for the
+consequences of using it or for whether it serves any particular purpose or
+works at all, unless he says so in writing. Refer to the GNU General Public
+License (the "GPL") for full details.
+
+Everyone is granted permission to copy, modify and redistribute ansi2knr,
+but only under the conditions described in the GPL. A copy of this license
+is supposed to have been given to you along with ansi2knr so you can know
+your rights and responsibilities. It should be in a file named COPYLEFT,
+or, if there is no file named COPYLEFT, a file named COPYING. Among other
+things, the copyright notice and this notice must be preserved on all
+copies.
+
+We explicitly state here what we believe is already implied by the GPL: if
+the ansi2knr program is distributed as a separate set of sources and a
+separate executable file which are aggregated on a storage medium together
+with another program, this in itself does not bring the other program under
+the GPL, nor does the mere fact that such a program or the procedures for
+constructing it invoke the ansi2knr executable bring any other part of the
+program under the GPL.
+*/
+
+/*
+ * Usage:
+ ansi2knr [--filename FILENAME] [INPUT_FILE [OUTPUT_FILE]]
+ * --filename provides the file name for the #line directive in the output,
+ * overriding input_file (if present).
+ * If no input_file is supplied, input is read from stdin.
+ * If no output_file is supplied, output goes to stdout.
+ * There are no error messages.
+ *
+ * ansi2knr recognizes function definitions by seeing a non-keyword
+ * identifier at the left margin, followed by a left parenthesis,
+ * with a right parenthesis as the last character on the line,
+ * and with a left brace as the first token on the following line
+ * (ignoring possible intervening comments), except that a line
+ * consisting of only
+ * identifier1(identifier2)
+ * will not be considered a function definition unless identifier2 is
+ * the word "void", and a line consisting of
+ * identifier1(identifier2, <<arbitrary>>)
+ * will not be considered a function definition.
+ * ansi2knr will recognize a multi-line header provided
+ * that no intervening line ends with a left or right brace or a semicolon.
+ * These algorithms ignore whitespace and comments, except that
+ * the function name must be the first thing on the line.
+ * The following constructs will confuse it:
+ * - Any other construct that starts at the left margin and
+ * follows the above syntax (such as a macro or function call).
+ * - Some macros that tinker with the syntax of function headers.
+ */
+
+/*
+ * The original and principal author of ansi2knr is L. Peter Deutsch
+ * <ghost@aladdin.com>. Other authors are noted in the change history
+ * that follows (in reverse chronological order):
+ lpd 1999-04-12 added minor fixes from Pavel Roskin
+ <pavel_roskin@geocities.com> for clean compilation with
+ gcc -W -Wall
+ lpd 1999-03-22 added hack to recognize lines consisting of
+ identifier1(identifier2, xxx) as *not* being procedures
+ lpd 1999-02-03 made indentation of preprocessor commands consistent
+ lpd 1999-01-28 fixed two bugs: a '/' in an argument list caused an
+ endless loop; quoted strings within an argument list
+ confused the parser
+ lpd 1999-01-24 added a check for write errors on the output,
+ suggested by Jim Meyering <meyering@ascend.com>
+ lpd 1998-11-09 added further hack to recognize identifier(void)
+ as being a procedure
+ lpd 1998-10-23 added hack to recognize lines consisting of
+ identifier1(identifier2) as *not* being procedures
+ lpd 1997-12-08 made input_file optional; only closes input and/or
+ output file if not stdin or stdout respectively; prints
+ usage message on stderr rather than stdout; adds
+ --filename switch (changes suggested by
+ <ceder@lysator.liu.se>)
+ lpd 1996-01-21 added code to cope with not HAVE_CONFIG_H and with
+ compilers that don't understand void, as suggested by
+ Tom Lane
+ lpd 1996-01-15 changed to require that the first non-comment token
+ on the line following a function header be a left brace,
+ to reduce sensitivity to macros, as suggested by Tom Lane
+ <tgl@sss.pgh.pa.us>
+ lpd 1995-06-22 removed #ifndefs whose sole purpose was to define
+ undefined preprocessor symbols as 0; changed all #ifdefs
+ for configuration symbols to #ifs
+ lpd 1995-04-05 changed copyright notice to make it clear that
+ including ansi2knr in a program does not bring the entire
+ program under the GPL
+ lpd 1994-12-18 added conditionals for systems where ctype macros
+ don't handle 8-bit characters properly, suggested by
+ Francois Pinard <pinard@iro.umontreal.ca>;
+ removed --varargs switch (this is now the default)
+ lpd 1994-10-10 removed CONFIG_BROKETS conditional
+ lpd 1994-07-16 added some conditionals to help GNU `configure',
+ suggested by Francois Pinard <pinard@iro.umontreal.ca>;
+ properly erase prototype args in function parameters,
+ contributed by Jim Avera <jima@netcom.com>;
+ correct error in writeblanks (it shouldn't erase EOLs)
+ lpd 1989-xx-xx original version
+ */
+
+/* Most of the conditionals here are to make ansi2knr work with */
+/* or without the GNU configure machinery. */
+
+#if HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+
+#if HAVE_CONFIG_H
+
+/*
+ For properly autoconfiguring ansi2knr, use AC_CONFIG_HEADER(config.h).
+ This will define HAVE_CONFIG_H and so, activate the following lines.
+ */
+
+# if STDC_HEADERS || HAVE_STRING_H
+# include <string.h>
+# else
+# include <strings.h>
+# endif
+
+#else /* not HAVE_CONFIG_H */
+
+/* Otherwise do it the hard way */
+
+# ifdef BSD
+# include <strings.h>
+# else
+# ifdef VMS
+ extern int strlen(), strncmp();
+# else
+# include <string.h>
+# endif
+# endif
+
+#endif /* not HAVE_CONFIG_H */
+
+#if STDC_HEADERS
+# include <stdlib.h>
+#else
+/*
+ malloc and free should be declared in stdlib.h,
+ but if you've got a K&R compiler, they probably aren't.
+ */
+# ifdef MSDOS
+# include <malloc.h>
+# else
+# ifdef VMS
+ extern char *malloc();
+ extern void free();
+# else
+ extern char *malloc();
+ extern int free();
+# endif
+# endif
+
+#endif
+
+/* Define NULL (for *very* old compilers). */
+#ifndef NULL
+# define NULL (0)
+#endif
+
+/*
+ * The ctype macros don't always handle 8-bit characters correctly.
+ * Compensate for this here.
+ */
+#ifdef isascii
+# undef HAVE_ISASCII /* just in case */
+# define HAVE_ISASCII 1
+#else
+#endif
+#if STDC_HEADERS || !HAVE_ISASCII
+# define is_ascii(c) 1
+#else
+# define is_ascii(c) isascii(c)
+#endif
+
+#define is_space(c) (is_ascii(c) && isspace(c))
+#define is_alpha(c) (is_ascii(c) && isalpha(c))
+#define is_alnum(c) (is_ascii(c) && isalnum(c))
+
+/* Scanning macros */
+#define isidchar(ch) (is_alnum(ch) || (ch) == '_')
+#define isidfirstchar(ch) (is_alpha(ch) || (ch) == '_')
+
+/* Forward references */
+char *skipspace();
+char *scanstring();
+int writeblanks();
+int test1();
+int convert1();
+
+/* The main program */
+int
+main(argc, argv)
+ int argc;
+ char *argv[];
+{ FILE *in = stdin;
+ FILE *out = stdout;
+ char *filename = 0;
+ char *program_name = argv[0];
+ char *output_name = 0;
+#define bufsize 5000 /* arbitrary size */
+ char *buf;
+ char *line;
+ char *more;
+ char *usage =
+ "Usage: ansi2knr [--filename FILENAME] [INPUT_FILE [OUTPUT_FILE]]\n";
+ /*
+ * In previous versions, ansi2knr recognized a --varargs switch.
+ * If this switch was supplied, ansi2knr would attempt to convert
+ * a ... argument to va_alist and va_dcl; if this switch was not
+ * supplied, ansi2knr would simply drop any such arguments.
+ * Now, ansi2knr always does this conversion, and we only
+ * check for this switch for backward compatibility.
+ */
+ int convert_varargs = 1;
+ int output_error;
+
+ while ( argc > 1 && argv[1][0] == '-' ) {
+ if ( !strcmp(argv[1], "--varargs") ) {
+ convert_varargs = 1;
+ argc--;
+ argv++;
+ continue;
+ }
+ if ( !strcmp(argv[1], "--filename") && argc > 2 ) {
+ filename = argv[2];
+ argc -= 2;
+ argv += 2;
+ continue;
+ }
+ fprintf(stderr, "%s: Unrecognized switch: %s\n", program_name,
+ argv[1]);
+ fprintf(stderr, usage);
+ exit(1);
+ }
+ switch ( argc )
+ {
+ default:
+ fprintf(stderr, usage);
+ exit(0);
+ case 3:
+ output_name = argv[2];
+ out = fopen(output_name, "w");
+ if ( out == NULL ) {
+ fprintf(stderr, "%s: Cannot open output file %s\n",
+ program_name, output_name);
+ exit(1);
+ }
+ /* falls through */
+ case 2:
+ in = fopen(argv[1], "r");
+ if ( in == NULL ) {
+ fprintf(stderr, "%s: Cannot open input file %s\n",
+ program_name, argv[1]);
+ exit(1);
+ }
+ if ( filename == 0 )
+ filename = argv[1];
+ /* falls through */
+ case 1:
+ break;
+ }
+ if ( filename )
+ fprintf(out, "#line 1 \"%s\"\n", filename);
+ buf = malloc(bufsize);
+ if ( buf == NULL )
+ {
+ fprintf(stderr, "Unable to allocate read buffer!\n");
+ exit(1);
+ }
+ line = buf;
+ while ( fgets(line, (unsigned)(buf + bufsize - line), in) != NULL )
+ {
+test: line += strlen(line);
+ switch ( test1(buf) )
+ {
+ case 2: /* a function header */
+ convert1(buf, out, 1, convert_varargs);
+ break;
+ case 1: /* a function */
+ /* Check for a { at the start of the next line. */
+ more = ++line;
+f: if ( line >= buf + (bufsize - 1) ) /* overflow check */
+ goto wl;
+ if ( fgets(line, (unsigned)(buf + bufsize - line), in) == NULL )
+ goto wl;
+ switch ( *skipspace(more, 1) )
+ {
+ case '{':
+ /* Definitely a function header. */
+ convert1(buf, out, 0, convert_varargs);
+ fputs(more, out);
+ break;
+ case 0:
+ /* The next line was blank or a comment: */
+ /* keep scanning for a non-comment. */
+ line += strlen(line);
+ goto f;
+ default:
+ /* buf isn't a function header, but */
+ /* more might be. */
+ fputs(buf, out);
+ strcpy(buf, more);
+ line = buf;
+ goto test;
+ }
+ break;
+ case -1: /* maybe the start of a function */
+ if ( line != buf + (bufsize - 1) ) /* overflow check */
+ continue;
+ /* falls through */
+ default: /* not a function */
+wl: fputs(buf, out);
+ break;
+ }
+ line = buf;
+ }
+ if ( line != buf )
+ fputs(buf, out);
+ free(buf);
+ if ( output_name ) {
+ output_error = ferror(out);
+ output_error |= fclose(out);
+ } else { /* out == stdout */
+ fflush(out);
+ output_error = ferror(out);
+ }
+ if ( output_error ) {
+ fprintf(stderr, "%s: error writing to %s\n", program_name,
+ (output_name ? output_name : "stdout"));
+ exit(1);
+ }
+ if ( in != stdin )
+ fclose(in);
+ return 0;
+}
+
+/* Skip over whitespace and comments, in either direction. */
+char *
+skipspace(p, dir)
+ register char *p;
+ register int dir; /* 1 for forward, -1 for backward */
+{ for ( ; ; )
+ { while ( is_space(*p) )
+ p += dir;
+ if ( !(*p == '/' && p[dir] == '*') )
+ break;
+ p += dir; p += dir;
+ while ( !(*p == '*' && p[dir] == '/') )
+ { if ( *p == 0 )
+ return p; /* multi-line comment?? */
+ p += dir;
+ }
+ p += dir; p += dir;
+ }
+ return p;
+}
+
+/* Scan over a quoted string, in either direction. */
+char *
+scanstring(p, dir)
+ register char *p;
+ register int dir;
+{
+ for (p += dir; ; p += dir)
+ if (*p == '"' && p[-dir] != '\\')
+ return p + dir;
+}
+
+/*
+ * Write blanks over part of a string.
+ * Don't overwrite end-of-line characters.
+ */
+int
+writeblanks(start, end)
+ char *start;
+ char *end;
+{ char *p;
+ for ( p = start; p < end; p++ )
+ if ( *p != '\r' && *p != '\n' )
+ *p = ' ';
+ return 0;
+}
+
+/*
+ * Test whether the string in buf is a function definition.
+ * The string may contain and/or end with a newline.
+ * Return as follows:
+ * 0 - definitely not a function definition;
+ * 1 - definitely a function definition;
+ * 2 - definitely a function prototype (NOT USED);
+ * -1 - may be the beginning of a function definition,
+ * append another line and look again.
+ * The reason we don't attempt to convert function prototypes is that
+ * Ghostscript's declaration-generating macros look too much like
+ * prototypes, and confuse the algorithms.
+ */
+int
+test1(buf)
+ char *buf;
+{ register char *p = buf;
+ char *bend;
+ char *endfn;
+ int contin;
+
+ if ( !isidfirstchar(*p) )
+ return 0; /* no name at left margin */
+ bend = skipspace(buf + strlen(buf) - 1, -1);
+ switch ( *bend )
+ {
+ case ';': contin = 0 /*2*/; break;
+ case ')': contin = 1; break;
+ case '{': return 0; /* not a function */
+ case '}': return 0; /* not a function */
+ default: contin = -1;
+ }
+ while ( isidchar(*p) )
+ p++;
+ endfn = p;
+ p = skipspace(p, 1);
+ if ( *p++ != '(' )
+ return 0; /* not a function */
+ p = skipspace(p, 1);
+ if ( *p == ')' )
+ return 0; /* no parameters */
+ /* Check that the apparent function name isn't a keyword. */
+ /* We only need to check for keywords that could be followed */
+ /* by a left parenthesis (which, unfortunately, is most of them). */
+ { static char *words[] =
+ { "asm", "auto", "case", "char", "const", "double",
+ "extern", "float", "for", "if", "int", "long",
+ "register", "return", "short", "signed", "sizeof",
+ "static", "switch", "typedef", "unsigned",
+ "void", "volatile", "while", 0
+ };
+ char **key = words;
+ char *kp;
+ unsigned len = endfn - buf;
+
+ while ( (kp = *key) != 0 )
+ { if ( strlen(kp) == len && !strncmp(kp, buf, len) )
+ return 0; /* name is a keyword */
+ key++;
+ }
+ }
+ {
+ char *id = p;
+ int len;
+ /*
+ * Check for identifier1(identifier2) and not
+ * identifier1(void), or identifier1(identifier2, xxxx).
+ */
+
+ while ( isidchar(*p) )
+ p++;
+ len = p - id;
+ p = skipspace(p, 1);
+ if (*p == ',' ||
+ (*p == ')' && (len != 4 || strncmp(id, "void", 4)))
+ )
+ return 0; /* not a function */
+ }
+ /*
+ * If the last significant character was a ), we need to count
+ * parentheses, because it might be part of a formal parameter
+ * that is a procedure.
+ */
+ if (contin > 0) {
+ int level = 0;
+
+ for (p = skipspace(buf, 1); *p; p = skipspace(p + 1, 1))
+ level += (*p == '(' ? 1 : *p == ')' ? -1 : 0);
+ if (level > 0)
+ contin = -1;
+ }
+ return contin;
+}
+
+/* Convert a recognized function definition or header to K&R syntax. */
+int
+convert1(buf, out, header, convert_varargs)
+ char *buf;
+ FILE *out;
+ int header; /* Boolean */
+ int convert_varargs; /* Boolean */
+{ char *endfn;
+ register char *p;
+ /*
+ * The breaks table contains pointers to the beginning and end
+ * of each argument.
+ */
+ char **breaks;
+ unsigned num_breaks = 2; /* for testing */
+ char **btop;
+ char **bp;
+ char **ap;
+ char *vararg = 0;
+
+ /* Pre-ANSI implementations don't agree on whether strchr */
+ /* is called strchr or index, so we open-code it here. */
+ for ( endfn = buf; *(endfn++) != '('; )
+ ;
+top: p = endfn;
+ breaks = (char **)malloc(sizeof(char *) * num_breaks * 2);
+ if ( breaks == NULL )
+ { /* Couldn't allocate break table, give up */
+ fprintf(stderr, "Unable to allocate break table!\n");
+ fputs(buf, out);
+ return -1;
+ }
+ btop = breaks + num_breaks * 2 - 2;
+ bp = breaks;
+ /* Parse the argument list */
+ do
+ { int level = 0;
+ char *lp = NULL;
+ char *rp = NULL;
+ char *end = NULL;
+
+ if ( bp >= btop )
+ { /* Filled up break table. */
+ /* Allocate a bigger one and start over. */
+ free((char *)breaks);
+ num_breaks <<= 1;
+ goto top;
+ }
+ *bp++ = p;
+ /* Find the end of the argument */
+ for ( ; end == NULL; p++ )
+ { switch(*p)
+ {
+ case ',':
+ if ( !level ) end = p;
+ break;
+ case '(':
+ if ( !level ) lp = p;
+ level++;
+ break;
+ case ')':
+ if ( --level < 0 ) end = p;
+ else rp = p;
+ break;
+ case '/':
+ if (p[1] == '*')
+ p = skipspace(p, 1) - 1;
+ break;
+ case '"':
+ p = scanstring(p, 1) - 1;
+ break;
+ default:
+ ;
+ }
+ }
+ /* Erase any embedded prototype parameters. */
+ if ( lp && rp )
+ writeblanks(lp + 1, rp);
+ p--; /* back up over terminator */
+ /* Find the name being declared. */
+ /* This is complicated because of procedure and */
+ /* array modifiers. */
+ for ( ; ; )
+ { p = skipspace(p - 1, -1);
+ switch ( *p )
+ {
+ case ']': /* skip array dimension(s) */
+ case ')': /* skip procedure args OR name */
+ { int level = 1;
+ while ( level )
+ switch ( *--p )
+ {
+ case ']': case ')':
+ level++;
+ break;
+ case '[': case '(':
+ level--;
+ break;
+ case '/':
+ if (p > buf && p[-1] == '*')
+ p = skipspace(p, -1) + 1;
+ break;
+ case '"':
+ p = scanstring(p, -1) + 1;
+ break;
+ default: ;
+ }
+ }
+ if ( *p == '(' && *skipspace(p + 1, 1) == '*' )
+ { /* We found the name being declared */
+ while ( !isidfirstchar(*p) )
+ p = skipspace(p, 1) + 1;
+ goto found;
+ }
+ break;
+ default:
+ goto found;
+ }
+ }
+found: if ( *p == '.' && p[-1] == '.' && p[-2] == '.' )
+ { if ( convert_varargs )
+ { *bp++ = "va_alist";
+ vararg = p-2;
+ }
+ else
+ { p++;
+ if ( bp == breaks + 1 ) /* sole argument */
+ writeblanks(breaks[0], p);
+ else
+ writeblanks(bp[-1] - 1, p);
+ bp--;
+ }
+ }
+ else
+ { while ( isidchar(*p) ) p--;
+ *bp++ = p+1;
+ }
+ p = end;
+ }
+ while ( *p++ == ',' );
+ *bp = p;
+ /* Make a special check for 'void' arglist */
+ if ( bp == breaks+2 )
+ { p = skipspace(breaks[0], 1);
+ if ( !strncmp(p, "void", 4) )
+ { p = skipspace(p+4, 1);
+ if ( p == breaks[2] - 1 )
+ { bp = breaks; /* yup, pretend arglist is empty */
+ writeblanks(breaks[0], p + 1);
+ }
+ }
+ }
+ /* Put out the function name and left parenthesis. */
+ p = buf;
+ while ( p != endfn ) putc(*p, out), p++;
+ /* Put out the declaration. */
+ if ( header )
+ { fputs(");", out);
+ for ( p = breaks[0]; *p; p++ )
+ if ( *p == '\r' || *p == '\n' )
+ putc(*p, out);
+ }
+ else
+ { for ( ap = breaks+1; ap < bp; ap += 2 )
+ { p = *ap;
+ while ( isidchar(*p) )
+ putc(*p, out), p++;
+ if ( ap < bp - 1 )
+ fputs(", ", out);
+ }
+ fputs(") ", out);
+ /* Put out the argument declarations */
+ for ( ap = breaks+2; ap <= bp; ap += 2 )
+ (*ap)[-1] = ';';
+ if ( vararg != 0 )
+ { *vararg = 0;
+ fputs(breaks[0], out); /* any prior args */
+ fputs("va_dcl", out); /* the final arg */
+ fputs(bp[0], out);
+ }
+ else
+ fputs(breaks[0], out);
+ }
+ free((char *)breaks);
+ return 0;
+}
diff --git a/array.c b/array.c
index da1ac3ff..905f3bad 100644
--- a/array.c
+++ b/array.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -45,8 +45,7 @@ static void grow_table P((NODE *symbol));
/* concat_exp --- concatenate expression list into a single string */
NODE *
-concat_exp(tree)
-register NODE *tree;
+concat_exp(register NODE *tree)
{
register NODE *r;
char *str;
@@ -92,8 +91,7 @@ register NODE *tree;
/* assoc_clear --- flush all the values in symbol[] before doing a split() */
void
-assoc_clear(symbol)
-NODE *symbol;
+assoc_clear(NODE *symbol)
{
int i;
NODE *bucket, *next;
@@ -118,10 +116,7 @@ NODE *symbol;
/* hash --- calculate the hash function of the string in subs */
unsigned int
-hash(s, len, hsize)
-register const char *s;
-register size_t len;
-unsigned long hsize;
+hash(register const char *s, register size_t len, unsigned long hsize)
{
register unsigned long h = 0;
@@ -208,10 +203,7 @@ unsigned long hsize;
/* assoc_find --- locate symbol[subs] */
static NODE * /* NULL if not found */
-assoc_find(symbol, subs, hash1)
-NODE *symbol;
-register NODE *subs;
-int hash1;
+assoc_find(NODE *symbol, register NODE *subs, int hash1)
{
register NODE *bucket;
NODE *s1, *s2;
@@ -238,8 +230,7 @@ int hash1;
/* in_array --- test whether the array element symbol[subs] exists or not */
int
-in_array(symbol, subs)
-NODE *symbol, *subs;
+in_array(NODE *symbol, NODE *subs)
{
register int hash1;
int ret;
@@ -249,7 +240,7 @@ NODE *symbol, *subs;
if (symbol->type == Node_array_ref)
symbol = symbol->orig_array;
if ((symbol->flags & SCALAR) != 0)
- fatal("attempt to use scalar as array");
+ fatal(_("attempt to use scalar `%s' as array"), symbol->vname);
/*
* evaluate subscript first, it could have side effects
*/
@@ -274,8 +265,7 @@ NODE *symbol, *subs;
*/
NODE **
-assoc_lookup(symbol, subs)
-NODE *symbol, *subs;
+assoc_lookup(NODE *symbol, NODE *subs, int reference)
{
register int hash1;
register NODE *bucket;
@@ -285,7 +275,7 @@ NODE *symbol, *subs;
(void) force_string(subs);
if ((symbol->flags & SCALAR) != 0)
- fatal("attempt to use scalar as array");
+ fatal(_("attempt to use scalar `%s' as array"), symbol->vname);
if (symbol->var_array == NULL) {
if (symbol->type != Node_var_array) {
@@ -307,15 +297,21 @@ NODE *symbol, *subs;
}
}
+ if (do_lint && reference) {
+ subs->stptr[subs->stlen] = '\0';
+ lintwarn(_("reference to uninitialized element `%s[\"%s\"]'"),
+ symbol->vname, subs->stptr);
+ }
+
/* It's not there, install it. */
if (do_lint && subs->stlen == 0)
- warning("subscript of array `%s' is null string",
+ lintwarn(_("subscript of array `%s' is null string"),
symbol->vname);
/* first see if we would need to grow the array, before installing */
symbol->table_size++;
if ((symbol->flags & ARRAYMAXED) == 0
- && symbol->table_size/symbol->array_size > AVG_CHAIN_MAX) {
+ && (symbol->table_size / symbol->array_size) > AVG_CHAIN_MAX) {
grow_table(symbol);
/* have to recompute hash value for new size */
hash1 = hash(subs->stptr, subs->stlen,
@@ -324,9 +320,28 @@ NODE *symbol, *subs;
getnode(bucket);
bucket->type = Node_ahash;
- bucket->ahname = dupnode(subs);
+
+ /*
+ * Freeze this string value --- it must never
+ * change, no matter what happens to the value
+ * that created it or to CONVFMT, etc.
+ *
+ * One day: Use an atom table to track array indices,
+ * and avoid the extra memory overhead.
+ */
+ if (subs->flags & TEMP)
+ bucket->ahname = dupnode(subs);
+ else
+ bucket->ahname = copynode(subs);
+
free_temp(subs);
+ /* array subscripts are strings */
+ bucket->ahname->flags &= ~(NUMBER|NUM);
+ bucket->ahname->flags |= (STRING|STR);
+ /* ensure that this string value never changes */
+ bucket->ahname->stfmt = -1;
+
bucket->ahvalue = Nnull_string;
bucket->ahnext = symbol->var_array[hash1];
symbol->var_array[hash1] = bucket;
@@ -336,8 +351,7 @@ NODE *symbol, *subs;
/* do_delete --- perform `delete array[s]' */
void
-do_delete(symbol, tree)
-NODE *symbol, *tree;
+do_delete(NODE *symbol, NODE *tree)
{
register int hash1;
register NODE *bucket, *last;
@@ -354,7 +368,7 @@ NODE *symbol, *tree;
if (symbol->var_array == NULL)
return;
} else
- fatal("delete: illegal use of variable `%s' as array",
+ fatal(_("delete: illegal use of variable `%s' as array"),
symbol->vname);
if (tree == NULL) { /* delete array */
@@ -387,7 +401,7 @@ NODE *symbol, *tree;
if (bucket == NULL) {
if (do_lint)
- warning("delete: index `%s' not in array `%s'",
+ lintwarn(_("delete: index `%s' not in array `%s'"),
subs->stptr, symbol->vname);
free_temp(subs);
return;
@@ -420,11 +434,10 @@ NODE *symbol, *tree;
*/
void
-do_delete_loop(symbol, tree)
-NODE *symbol, *tree;
+do_delete_loop(NODE *symbol, NODE *tree)
{
size_t i;
- NODE *n, **lhs;
+ NODE **lhs;
Func_ptr after_assign = NULL;
if (symbol->type == Node_param_list) {
@@ -438,13 +451,13 @@ NODE *symbol, *tree;
if (symbol->var_array == NULL)
return;
} else
- fatal("delete: illegal use of variable `%s' as array",
+ fatal(_("delete: illegal use of variable `%s' as array"),
symbol->vname);
/* get first index value */
for (i = 0; i < symbol->array_size; i++) {
if (symbol->var_array[i] != NULL) {
- lhs = get_lhs(tree->lnode, & after_assign);
+ lhs = get_lhs(tree->lnode, & after_assign, FALSE);
unref(*lhs);
*lhs = dupnode(symbol->var_array[i]->ahname);
break;
@@ -455,71 +468,10 @@ NODE *symbol, *tree;
assoc_clear(symbol);
}
-/* assoc_scan --- start a ``for (iggy in foo)'' loop */
-
-void
-assoc_scan(symbol, lookat)
-NODE *symbol;
-struct search *lookat;
-{
- lookat->sym = symbol;
- lookat->idx = 0;
- lookat->bucket = NULL;
- lookat->retval = NULL;
- if (symbol->var_array != NULL)
- assoc_next(lookat);
-}
-
-/* assoc_next --- actually find the next element in array */
-
-void
-assoc_next(lookat)
-struct search *lookat;
-{
- register NODE *symbol = lookat->sym;
-
- if (symbol == NULL)
- fatal("null symbol in assoc_next");
- if (symbol->var_array == NULL || lookat->idx > symbol->array_size) {
- lookat->retval = NULL;
- return;
- }
- /*
- * This is theoretically unsafe. The element bucket might have
- * been freed if the body of the scan did a delete on the next
- * element of the bucket. The only way to do that is by array
- * reference, which is unlikely. Basically, if the user is doing
- * anything other than an operation on the current element of an
- * assoc array while walking through it sequentially, all bets are
- * off. (The safe way is to register all search structs on an
- * array with the array, and update all of them on a delete or
- * insert)
- */
- if (lookat->bucket != NULL) {
- lookat->retval = lookat->bucket->ahname;
- lookat->bucket = lookat->bucket->ahnext;
- return;
- }
- for (; lookat->idx < symbol->array_size; lookat->idx++) {
- NODE *bucket;
-
- if ((bucket = symbol->var_array[lookat->idx]) != NULL) {
- lookat->retval = bucket->ahname;
- lookat->bucket = bucket->ahnext;
- lookat->idx++;
- return;
- }
- }
- lookat->retval = NULL;
- lookat->bucket = NULL;
- return;
-}
-
/* grow_table --- grow a hash table */
static void
-grow_table(symbol)
-NODE *symbol;
+grow_table(NODE *symbol)
{
NODE **old, **new, *chain, *next;
int i, j;
@@ -581,7 +533,6 @@ NODE *symbol;
/* remove from old list, add to new */
chain->ahnext = new[hash1];
new[hash1] = chain;
-
}
}
free(old);
@@ -598,8 +549,7 @@ done:
/* pr_node --- print simple node info */
static void
-pr_node(n)
-NODE *n;
+pr_node(NODE *n)
{
if ((n->flags & (NUM|NUMBER)) != 0)
printf("%g", n->numbr);
@@ -610,24 +560,23 @@ NODE *n;
/* assoc_dump --- dump the contents of an array */
NODE *
-assoc_dump(symbol)
-NODE *symbol;
+assoc_dump(NODE *symbol)
{
int i;
NODE *bucket;
if (symbol->var_array == NULL) {
- printf("%s: empty (null)\n", symbol->vname);
+ printf(_("%s: empty (null)\n"), symbol->vname);
return tmp_number((AWKNUM) 0);
}
if (symbol->table_size == 0) {
- printf("%s: empty (zero)\n", symbol->vname);
+ printf(_("%s: empty (zero)\n"), symbol->vname);
return tmp_number((AWKNUM) 0);
}
- printf("%s: table_size = %d, array_size = %d\n", symbol->vname,
- symbol->table_size, symbol->array_size);
+ printf(_("%s: table_size = %d, array_size = %d\n"), symbol->vname,
+ (int) symbol->table_size, (int) symbol->array_size);
for (i = 0; i < symbol->array_size; i++) {
for (bucket = symbol->var_array[i]; bucket != NULL;
@@ -651,20 +600,19 @@ NODE *symbol;
/* do_adump --- dump an array: interface to assoc_dump */
NODE *
-do_adump(tree)
-NODE *tree;
+do_adump(NODE *tree)
{
NODE *r, *a;
a = tree->lnode;
if (a->type == Node_param_list) {
- printf("%s: is paramater\n", a->vname);
+ printf(_("%s: is paramater\n"), a->vname);
a = stack_ptr[a->param_cnt];
}
if (a->type == Node_array_ref) {
- printf("%s: array_ref to %s\n", a->vname,
+ printf(_("%s: array_ref to %s\n"), a->vname,
a->orig_array->vname);
a = a->orig_array;
}
@@ -673,3 +621,238 @@ NODE *tree;
return r;
}
+
+/*
+ * The following functions implement the builtin
+ * asort function. Initial work by Alan J. Broder,
+ * ajb@woti.com.
+ */
+
+/* dup_table --- duplicate input symbol table "symbol" */
+
+static void
+dup_table(NODE *symbol, NODE *newsymb)
+{
+ NODE **old, **new, *chain, *bucket;
+ int i;
+ unsigned long cursize;
+
+ /* find the current hash size */
+ cursize = symbol->array_size;
+
+ new = NULL;
+
+ /* input is a brand new hash table, so there's nothing to copy */
+ if (symbol->var_array == NULL)
+ newsymb->table_size = 0;
+ else {
+ /* old hash table there, dupnode stuff into a new table */
+
+ /* allocate new table */
+ emalloc(new, NODE **, cursize * sizeof(NODE *), "dup_table");
+ memset(new, '\0', cursize * sizeof(NODE *));
+
+ /* do the copying/dupnode'ing */
+ old = symbol->var_array;
+ for (i = 0; i < cursize; i++) {
+ if (old[i] != NULL) {
+ for (chain = old[i]; chain != NULL;
+ chain = chain->ahnext) {
+ /* get a node for the linked list */
+ getnode(bucket);
+ bucket->type = Node_ahash;
+
+ /*
+ * copy the corresponding name and
+ * value from the original input list
+ */
+ bucket->ahname = dupnode(chain->ahname);
+ bucket->ahvalue = dupnode(chain->ahvalue);
+
+ /*
+ * put the node on the corresponding
+ * linked list in the new table
+ */
+ bucket->ahnext = new[i];
+ new[i] = bucket;
+ }
+ }
+ }
+ newsymb->table_size = symbol->table_size;
+ }
+
+ newsymb->var_array = new;
+ newsymb->array_size = cursize;
+}
+
+/* merge --- do a merge of two sorted lists */
+
+static NODE *
+merge(NODE *left, NODE *right)
+{
+ NODE *ans, *cur;
+
+ if (cmp_nodes(left->ahvalue, right->ahvalue) <= 0) {
+ ans = cur = left;
+ left = left->ahnext;
+ } else {
+ ans = cur = right;
+ right = right->ahnext;
+ }
+
+ while (left != NULL && right != NULL) {
+ if (cmp_nodes(left->ahvalue, right->ahvalue) <= 0) {
+ cur->ahnext = left;
+ cur = left;
+ left = left->ahnext;
+ } else {
+ cur->ahnext = right;
+ cur = right;
+ right = right->ahnext;
+ }
+ }
+
+ cur->ahnext = (left != NULL ? left : right);
+
+ return ans;
+}
+
+/* merge_sort --- recursively sort the left and right sides of a list */
+
+static NODE *
+merge_sort(NODE *left, int size)
+{
+ NODE *right, *tmp;
+ int i, half;
+
+ if (size <= 1)
+ return left;
+
+ /* walk down the list, till just one before the midpoint */
+ tmp = left;
+ half = size / 2;
+ for (i = 0; i < half-1; i++)
+ tmp = tmp->ahnext;
+
+ /* split the list into two parts */
+ right = tmp->ahnext;
+ tmp->ahnext = NULL;
+
+ /* sort the left and right parts of the list */
+ left = merge_sort(left, half);
+ right = merge_sort(right, size-half);
+
+ /* merge the two sorted parts of the list */
+ return merge(left, right);
+}
+
+
+/*
+ * assoc_from_list -- Populate an array with the contents of a list of NODEs,
+ * using increasing integers as the key.
+ */
+
+static void
+assoc_from_list(NODE *symbol, NODE *list)
+{
+ NODE *next;
+ int i = 0;
+ register int hash1;
+
+ for (; list != NULL; list = next) {
+ next = list->ahnext;
+
+ /* make an int out of i++ */
+ i++;
+ list->ahname = make_number((AWKNUM) i);
+ (void) force_string(list->ahname);
+
+ /* find the bucket where it belongs */
+ hash1 = hash(list->ahname->stptr, list->ahname->stlen,
+ symbol->array_size);
+
+ /* link the node into the chain at that bucket */
+ list->ahnext = symbol->var_array[hash1];
+ symbol->var_array[hash1] = list;
+ }
+}
+
+/*
+ * assoc_sort_inplace --- sort all the values in symbol[], replacing
+ * the sorted values back into symbol[], indexed by integers starting with 1.
+ */
+
+static NODE *
+assoc_sort_inplace(NODE *symbol)
+{
+ int i, num;
+ NODE *bucket, *next, *list;
+
+ if (symbol->var_array == NULL
+ || symbol->array_size <= 0
+ || symbol->table_size <= 0)
+ return tmp_number((AWKNUM) 0);
+
+ /* build a linked list out of all the entries in the table */
+ list = NULL;
+ num = 0;
+ for (i = 0; i < symbol->array_size; i++) {
+ for (bucket = symbol->var_array[i]; bucket != NULL; bucket = next) {
+ next = bucket->ahnext;
+ unref(bucket->ahname);
+ bucket->ahnext = list;
+ list = bucket;
+ num++;
+ }
+ symbol->var_array[i] = NULL;
+ }
+
+ /*
+ * Sort the linked list of NODEs.
+ * (The especially nice thing about using a merge sort here is that
+ * we require absolutely no additional storage. This is handy if the
+ * array has grown to be very large.)
+ */
+ list = merge_sort(list, num);
+
+ /*
+ * now repopulate the original array, using increasing
+ * integers as the key
+ */
+ assoc_from_list(symbol, list);
+
+ return tmp_number((AWKNUM) num);
+}
+
+/* do_asort --- do the actual work to sort the input array */
+
+NODE *
+do_asort(NODE *tree)
+{
+ NODE *src, *dest;
+
+ src = tree->lnode;
+ dest = NULL;
+
+ if (src->type == Node_param_list)
+ src = stack_ptr[src->param_cnt];
+ if (src->type == Node_array_ref)
+ src = src->orig_array;
+ if (src->type != Node_var_array)
+ fatal(_("asort: first argument is not an array"));
+
+ if (tree->rnode != NULL) { /* 2nd optional arg */
+ dest = tree->rnode->lnode;
+ if (dest->type == Node_param_list)
+ dest = stack_ptr[dest->param_cnt];
+ if (dest->type == Node_array_ref)
+ dest = dest->orig_array;
+ if (dest->type != Node_var && dest->type != Node_var_array)
+ fatal(_("asort: second argument is not an array"));
+ dest->type = Node_var_array;
+ assoc_clear(dest);
+ dup_table(src, dest);
+ }
+
+ return dest != NULL ? assoc_sort_inplace(dest) : assoc_sort_inplace(src);
+}
diff --git a/atari/README.1st b/atari/README.1st
deleted file mode 100644
index 3483cb0c..00000000
--- a/atari/README.1st
+++ /dev/null
@@ -1,6 +0,0 @@
-Sun Nov 29 10:34:01 EST 1998
-
-The atari port is no longer supported. In 3.1 this directory will
-be moved into a new `unsupported' directory. If you have an atari,
-you are welcome to try and use the port here, but we no longer have
-the hardware to test gawk on.
diff --git a/awk.h b/awk.h
index 246c6ef5..9e872a7a 100644
--- a/awk.h
+++ b/awk.h
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -48,6 +48,23 @@
#endif /* HAVE_LIMITS_H */
#include <ctype.h>
#include <setjmp.h>
+
+#if defined(HAVE_LIBINTL_H) && defined(ENABLE_NLS) && ENABLE_NLS > 0
+#include <libintl.h>
+#else /* ! (HAVE_LOCALE_H && defined(ENABLE_NLS) && ENABLE_LS > 0) */
+#define gettext(msgid) (msgid)
+#define gettext_noop(msgid) msgid
+#define dgettext(domain, msgid) (msgid)
+#define dcgettext(domain, msgid, cat) (msgid)
+#define bindtextdomain(domain, directory) (directory)
+#define textdomain(package) /* nothing */
+#ifndef LOCALEDIR
+#define LOCALEDIR NULL
+#endif /* LOCALEDIR */
+#endif /* ! (HAVE_LOCALE_H && defined(ENABLE_NLS) && ENABLE_LS > 0) */
+#define _(msgid) gettext(msgid)
+#define N_(msgid) msgid
+
#ifdef HAVE_LOCALE_H
#include <locale.h>
#endif /* HAVE_LOCALE_H */
@@ -72,32 +89,35 @@ extern int errno;
/* First, get the ctype stuff right; from Jim Meyering */
#if defined(STDC_HEADERS) || (!defined(isascii) && !defined(HAVE_ISASCII))
-#define ISASCII(c) 1
+#define IN_CTYPE_DOMAIN(c) 1
#else
-#define ISASCII(c) isascii(c)
+#define IN_CTYPE_DOMAIN(c) isascii((unsigned char) c)
#endif
#ifdef isblank
-#define ISBLANK(c) (ISASCII(c) && isblank(c))
+#define ISBLANK(c) (IN_CTYPE_DOMAIN(c) && isblank((unsigned char) c))
#else
#define ISBLANK(c) ((c) == ' ' || (c) == '\t')
#endif
#ifdef isgraph
-#define ISGRAPH(c) (ISASCII(c) && isgraph(c))
+#define ISGRAPH(c) (IN_CTYPE_DOMAIN(c) && isgraph((unsigned char) c))
#else
-#define ISGRAPH(c) (ISASCII(c) && isprint(c) && !isspace(c))
+#define ISGRAPH(c) (IN_CTYPE_DOMAIN(c) && isprint((unsigned char) c) && !isspace((unsigned char) c))
#endif
-#define ISPRINT(c) (ISASCII (c) && isprint (c))
-#define ISDIGIT(c) (ISASCII (c) && isdigit (c))
-#define ISALNUM(c) (ISASCII (c) && isalnum (c))
-#define ISALPHA(c) (ISASCII (c) && isalpha (c))
-#define ISCNTRL(c) (ISASCII (c) && iscntrl (c))
-#define ISLOWER(c) (ISASCII (c) && islower (c))
-#define ISPUNCT(c) (ISASCII (c) && ispunct (c))
-#define ISSPACE(c) (ISASCII (c) && isspace (c))
-#define ISUPPER(c) (ISASCII (c) && isupper (c))
-#define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
+#define ISPRINT(c) (IN_CTYPE_DOMAIN (c) && isprint ((unsigned char) c))
+#define ISDIGIT(c) (IN_CTYPE_DOMAIN (c) && isdigit ((unsigned char) c))
+#define ISALNUM(c) (IN_CTYPE_DOMAIN (c) && isalnum ((unsigned char) c))
+#define ISALPHA(c) (IN_CTYPE_DOMAIN (c) && isalpha ((unsigned char) c))
+#define ISCNTRL(c) (IN_CTYPE_DOMAIN (c) && iscntrl ((unsigned char) c))
+#define ISLOWER(c) (IN_CTYPE_DOMAIN (c) && islower ((unsigned char) c))
+#define ISPUNCT(c) (IN_CTYPE_DOMAIN (c) && ispunct (unsigned char) (c))
+#define ISSPACE(c) (IN_CTYPE_DOMAIN (c) && isspace ((unsigned char) c))
+#define ISUPPER(c) (IN_CTYPE_DOMAIN (c) && isupper ((unsigned char) c))
+#define ISXDIGIT(c) (IN_CTYPE_DOMAIN (c) && isxdigit ((unsigned char) c))
+
+#define TOUPPER(c) toupper((unsigned char) c)
+#define TOLOWER(c) tolower((unsigned char) c)
#ifdef __STDC__
@@ -110,18 +130,14 @@ extern int errno;
#define const
#endif /* not __STDC__ */
-#if ! defined(VMS) || (! defined(VAXC) && ! defined(__DECC))
+#ifndef VMS
#include <sys/types.h>
#include <sys/stat.h>
-#else /* VMS w/ VAXC or DECC */
-#include <types.h>
+#else /* VMS */
+#include <stddef.h>
#include <stat.h>
#include <file.h> /* avoid <fcntl.h> in io.c */
-#ifdef __DECC
-/* DEC C implies DECC$SHR, which doesn't have the %g problem of VAXCRTL */
-#undef GFMT_WORKAROUND
-#endif
-#endif /* VMS w/ VAXC or DECC */
+#endif /* VMS */
#ifdef STDC_HEADERS
#include <stdlib.h>
@@ -153,6 +169,15 @@ extern int errno;
#include <unixlib.h>
#endif /* atarist || VMS */
+#if ! defined(MSDOS) && ! defined(OS2) && ! defined(WIN32)
+#define O_BINARY 0
+#endif
+
+#if defined(TANDEM)
+#define variable variabl
+#define open(name, how, mode) open(name, how) /* !!! ANSI C !!! */
+#endif
+
#if HAVE_UNISTD_H
#include <unistd.h>
#endif /* HAVE_UNISTD_H */
@@ -171,12 +196,17 @@ lose
#define setlocale(locale, val) /* nothing */
#endif /* HAVE_SETLOCALE */
+/* use this as lintwarn("...")
+ this is a hack but it gives us the right semantics */
+#define lintwarn (*(set_loc(__FILE__, __LINE__),lintfunc))
+extern void set_prof_file P((const char *filename));
+
#ifdef VMS
#include "vms/redirect.h"
#endif /*VMS*/
#ifdef atarist
-#include "atari/redirect.h"
+#include "unsupported/atari/redirect.h"
#endif
#define GNU_REGEX
@@ -195,6 +225,12 @@ typedef struct Regexp {
#define SUBPATEND(rp,s,n) (rp)->regs.end[n]
#endif /* GNU_REGEX */
+/* Stuff for losing systems. */
+#ifdef STRTOD_NOT_C89
+extern double gawk_strtod();
+#define strtod gawk_strtod
+#endif
+
/* ------------------ Constants, Structures, Typedefs ------------------ */
#ifndef AWKNUM
@@ -304,6 +340,7 @@ typedef enum nodevals {
Node_redirect_pipe, /* subnode is where to redirect */
Node_redirect_pipein, /* subnode is where to redirect */
Node_redirect_input, /* subnode is where to redirect */
+ Node_redirect_twoway, /* subnode is where to redirect */
/* Variables */
Node_var, /* rnode is value, lnode is array stuff */
@@ -321,8 +358,8 @@ typedef enum nodevals {
Node_line_range,
/*
- * boolean test of membership in array lnode is string-valued
- * expression rnode is array name
+ * boolean test of membership in array
+ * lnode is string-valued, expression rnode is array name
*/
Node_in_array,
@@ -334,17 +371,20 @@ typedef enum nodevals {
Node_hashnode, /* an identifier in the symbol table */
Node_ahash, /* an array element */
Node_array_ref, /* array passed by ref as parameter */
- Node_NF, /* variables recognized in the grammar */
- Node_NR,
+ Node_BINMODE, /* variables recognized in the grammar */
+ Node_CONVFMT,
+ Node_FIELDWIDTHS,
Node_FNR,
Node_FS,
- Node_RS,
- Node_FIELDWIDTHS,
Node_IGNORECASE,
+ Node_LINT,
+ Node_NF,
+ Node_NR,
+ Node_OFMT,
Node_OFS,
Node_ORS,
- Node_OFMT,
- Node_CONVFMT,
+ Node_RS,
+ Node_TEXTDOMAIN,
Node_final /* sentry value, not legal */
} NODETYPE;
@@ -371,6 +411,7 @@ typedef struct exp_node {
union {
struct exp_node *extra;
long xl;
+ char **param_list;
} x;
char *name;
short number;
@@ -423,8 +464,12 @@ typedef struct exp_node {
# define FUNC 1024 /* this parameter is really a
* function name; see awk.y */
# define FIELD 2048 /* this is a field */
-
- char *vname; /* variable's name */
+# define INTLSTR 4096 /* use localized version */
+# define UNINITIALIZED 8192 /* value used before set */
+ char *vname;
+#ifndef NO_PROFILING
+ long exec_count;
+#endif
} NODE;
#define lnode sub.nodep.l.lptr
@@ -434,9 +479,11 @@ typedef struct exp_node {
#define source_line sub.nodep.number
#define param_cnt sub.nodep.number
#define param sub.nodep.l.param_name
+#define parmlist sub.nodep.x.param_list
#define subnode lnode
#define proc sub.nodep.r.pptr
+#define callresult sub.nodep.x.extra
#define re_reg sub.nodep.r.preg
#define re_flags sub.nodep.reflags
@@ -461,6 +508,8 @@ typedef struct exp_node {
#define orig_array sub.nodep.x.extra
+#define printf_count sub.nodep.x.xl
+
#define condpair lnode
#define triggered sub.nodep.r.r_ent
@@ -471,14 +520,6 @@ typedef struct for_loop_header {
NODE *incr;
} FOR_LOOP_HEADER;
-/* for "for(iggy in foo) {" */
-struct search {
- NODE *sym;
- size_t idx;
- NODE *bucket;
- NODE *retval;
-};
-
/* for faster input, bypass stdio */
typedef struct iobuf {
const char *name;
@@ -493,9 +534,7 @@ typedef struct iobuf {
# define IOP_IS_TTY 1
# define IOP_IS_INTERNAL 2
# define IOP_NO_FREE 4
-# define IOP_MMAPPED 8
-# define IOP_NOFREE_OBJ 16
- int (*getrec)();
+# define IOP_NOFREE_OBJ 8
} IOBUF;
typedef void (*Func_ptr)();
@@ -511,6 +550,9 @@ struct redirect {
# define RED_NOBUF 32
# define RED_USED 64 /* closed temporarily to reuse fd */
# define RED_EOF 128
+# define RED_TWOWAY 256
+# define RED_SOCKET 512
+# define RED_TCP 1024
char *value;
FILE *fp;
FILE *ifp; /* input fp, needed for PIPES_SIMULATED */
@@ -519,6 +561,7 @@ struct redirect {
int status;
struct redirect *prev;
struct redirect *next;
+ char *mode;
};
/* structure for our source, either a command line string or a source file */
@@ -527,6 +570,12 @@ struct src {
char *val;
};
+/* for debugging purposes */
+struct flagtab {
+ int val;
+ char *name;
+};
+
/* longjmp return codes, must be nonzero */
/* Continue means either for loop/while continue, or next input record */
#define TAG_CONTINUE 1
@@ -551,6 +600,7 @@ struct src {
extern long NF;
extern long NR;
extern long FNR;
+extern int BINMODE;
extern int IGNORECASE;
extern int RS_is_null;
extern char *OFS;
@@ -561,10 +611,12 @@ extern char *OFMT;
extern char *CONVFMT;
extern int CONVFMTidx;
extern int OFMTidx;
-extern NODE *CONVFMT_node, *FIELDWIDTHS_node, *FILENAME_node;
+extern char *TEXTDOMAIN;
+extern NODE *BINMODE_node, *CONVFMT_node, *FIELDWIDTHS_node, *FILENAME_node;
extern NODE *FNR_node, *FS_node, *IGNORECASE_node, *NF_node;
extern NODE *NR_node, *OFMT_node, *OFS_node, *ORS_node, *RLENGTH_node;
-extern NODE *RSTART_node, *RS_node, *RT_node, *SUBSEP_node;
+extern NODE *RSTART_node, *RS_node, *RT_node, *SUBSEP_node, *PROCINFO_node;
+extern NODE *LINT_node, *ERRNO_node, *TEXTDOMAIN_node;
extern NODE **stack_ptr;
extern NODE *Nnull_string;
extern NODE **fields_arr;
@@ -583,6 +635,10 @@ extern int do_posix;
extern int do_lint;
extern int do_lint_old;
extern int do_intervals;
+extern int do_intl;
+extern int do_non_decimal_data;
+extern int do_dump_vars;
+extern int do_tidy_mem;
extern int in_begin_rule;
extern int in_end_rule;
@@ -601,21 +657,29 @@ extern char casetable[]; /* for case-independent regexp matching */
|| (str)[1] == 'x' || (str)[1] == 'X'))
#ifdef MPROF
-#define getnode(n) emalloc(n, NODE *, sizeof(NODE), "getnode")
+#define getnode(n) emalloc((n), NODE *, sizeof(NODE), "getnode"), (n)->flags = UNINITIALIZED, (n)-exec_count = 0;
#define freenode(n) free(n)
#else /* not MPROF */
#define getnode(n) if (nextfree) n = nextfree, nextfree = nextfree->nextp;\
else n = more_nodes()
-#define freenode(n) ((n)->flags &= ~SCALAR, (n)->nextp = nextfree, nextfree = (n))
+#ifndef NO_PROFILING
+#define freenode(n) ((n)->flags = UNINITIALIZED,\
+ (n)->exec_count = 0, (n)->nextp = nextfree, nextfree = (n))
+#else /* not PROFILING */
+#define freenode(n) ((n)->flags = UNINITIALIZED,\
+ (n)->nextp = nextfree, nextfree = (n))
+#endif /* not PROFILING */
#endif /* not MPROF */
-#ifdef DEBUG
+#ifdef MEMDEBUG
#undef freenode
-#define get_lhs(p, a) r_get_lhs((p), (a))
+#define get_lhs(p, a, r) r_get_lhs((p), (a), (r))
#define m_tree_eval(t, iscond) r_tree_eval(t, iscond)
#else
-#define get_lhs(p, a) ((p)->type == Node_var ? (&(p)->var_value) : \
- r_get_lhs((p), (a)))
+#define get_lhs(p, a, r) ((p)->type == Node_var && \
+ ((p)->flags & UNINITIALIZED) == 0 && (r) ? \
+ (&(p)->var_value): \
+ r_get_lhs((p), (a), (r)))
#if __GNUC__ >= 2
#define m_tree_eval(t, iscond) \
({NODE * _t = (t); \
@@ -624,10 +688,15 @@ extern char casetable[]; /* for case-independent regexp matching */
else { \
switch(_t->type) { \
case Node_val: \
+ if (_t->flags&INTLSTR) \
+ _t = r_force_string(_t); \
break; \
case Node_var: \
- _t = _t->var_value; \
- break; \
+ if ((_t->flags & UNINITIALIZED) == 0) { \
+ _t = _t->var_value; \
+ break; \
+ } \
+ /*FALLTHROUGH*/ \
default: \
_t = r_tree_eval(_t, iscond);\
break; \
@@ -638,11 +707,14 @@ extern char casetable[]; /* for case-independent regexp matching */
#define m_tree_eval(t, iscond) (_t = (t), _t == NULL ? Nnull_string : \
(_t->type == Node_param_list ? \
r_tree_eval(_t, iscond) : \
+ ((_t->type == Node_val && (_t->flags&INTLSTR)) ? \
+ r_force_string(_t) : \
(_t->type == Node_val ? _t : \
- (_t->type == Node_var ? _t->var_value : \
- r_tree_eval(_t, iscond)))))
+ (_t->type == Node_var && \
+ (_t->flags & UNINITIALIZED) == 0 ? _t->var_value : \
+ r_tree_eval(_t, iscond))))))
#endif /* __GNUC__ */
-#endif /* not DEBUG */
+#endif /* not MEMDEBUG */
#define tree_eval(t) m_tree_eval(t, FALSE)
#define make_number(x) mk_number((x), (unsigned int)(MALLOC|NUM|NUMBER))
@@ -654,7 +726,7 @@ extern char casetable[]; /* for case-independent regexp matching */
#define ALREADY_MALLOCED 2
#define cant_happen() r_fatal("internal error line %d, file: %s", \
- __LINE__, __FILE__);
+ __LINE__, __FILE__)
#ifdef HAVE_STRINGIZE
#define emalloc(var,ty,x,str) (void)((var=(ty)malloc((MALLOC_ARG_T)(x))) ||\
@@ -674,10 +746,10 @@ extern char casetable[]; /* for case-independent regexp matching */
(str), "var", strerror(errno)),0))
#endif /* HAVE_STRINGIZE */
-#ifdef DEBUG
+#ifdef GAWKDEBUG
#define force_number r_force_number
#define force_string r_force_string
-#else /* not DEBUG */
+#else /* not GAWKDEBUG */
#ifdef lint
extern AWKNUM force_number();
#endif
@@ -685,9 +757,11 @@ extern AWKNUM force_number();
#define force_number(n) ({NODE *_tn = (n);\
(_tn->flags & NUM) ?_tn->numbr : r_force_number(_tn);})
#define force_string(s) ({NODE *_ts = (s);\
+ ((_ts->flags & INTLSTR) ? \
+ r_force_string(_ts) : \
((_ts->flags & STR) && \
(_ts->stfmt == -1 || _ts->stfmt == CONVFMTidx)) ?\
- _ts : r_force_string(_ts);})
+ _ts : r_force_string(_ts));})
#else
#ifdef MSDOS
extern double _msc51bug;
@@ -697,12 +771,15 @@ extern double _msc51bug;
#define force_number(n) (_t = (n),\
(_t->flags & NUM) ? _t->numbr : r_force_number(_t))
#endif /* not MSDOS */
-#define force_string(s) (_t = (s),((_t->flags & STR) && \
- (_t->stfmt == -1 || \
- _t->stfmt == CONVFMTidx))? \
+#define force_string(s) (_t = (s),(_t->flags & INTLSTR) ? \
+ r_force_string(_t) :\
+ ((_t->flags & STR) && \
+ (_t->stfmt == -1 || \
+ _t->stfmt == CONVFMTidx))? \
_t : r_force_string(_t))
+
#endif /* not __GNUC__ */
-#endif /* not DEBUG */
+#endif /* not GAWKDEBUG */
#define STREQ(a,b) (*(a) == *(b) && strcmp((a), (b)) == 0)
#define STREQN(a,b,n) ((n) && *(a)== *(b) && \
@@ -717,21 +794,25 @@ extern NODE *concat_exp P((NODE *tree));
extern void assoc_clear P((NODE *symbol));
extern unsigned int hash P((const char *s, size_t len, unsigned long hsize));
extern int in_array P((NODE *symbol, NODE *subs));
-extern NODE **assoc_lookup P((NODE *symbol, NODE *subs));
+extern NODE **assoc_lookup P((NODE *symbol, NODE *subs, int reference));
extern void do_delete P((NODE *symbol, NODE *tree));
extern void do_delete_loop P((NODE *symbol, NODE *tree));
-extern void assoc_scan P((NODE *symbol, struct search *lookat));
-extern void assoc_next P((struct search *lookat));
extern NODE *assoc_dump P((NODE *symbol));
extern NODE *do_adump P((NODE *tree));
-/* awktab.c */
+extern NODE *do_asort P((NODE *tree));
+/* awkgram.c */
extern char *tokexpand P((void));
extern NODE *node P((NODE *left, NODETYPE op, NODE *right));
extern NODE *install P((char *name, NODE *value));
extern NODE *lookup P((const char *name));
extern NODE *variable P((char *name, int can_free, NODETYPE type));
extern int yyparse P((void));
+extern void dump_funcs P((void));
+extern void dump_vars P((const char *fname));
+extern void release_all_vars P((void));
+extern const char *getfname P((NODE *(*)()));
extern NODE *stopme P((NODE *tree));
+extern void shadow_funcs();
/* builtin.c */
extern double double_to_int P((double d));
extern NODE *do_exp P((NODE *tree));
@@ -740,6 +821,7 @@ extern NODE *do_index P((NODE *tree));
extern NODE *do_int P((NODE *tree));
extern NODE *do_length P((NODE *tree));
extern NODE *do_log P((NODE *tree));
+extern NODE *do_mktime P((NODE *tree));
extern NODE *do_sprintf P((NODE *tree));
extern void do_printf P((NODE *tree));
extern void print_simple P((NODE *tree, FILE *fp));
@@ -760,7 +842,7 @@ extern NODE *do_match P((NODE *tree));
extern NODE *do_gsub P((NODE *tree));
extern NODE *do_sub P((NODE *tree));
extern NODE *do_gensub P((NODE *tree));
-#ifdef BITOPS
+extern NODE *format_tree P((const char *, int, NODE *, int));
extern NODE *do_lshift P((NODE *tree));
extern NODE *do_rshift P((NODE *tree));
extern NODE *do_and P((NODE *tree));
@@ -768,21 +850,37 @@ extern NODE *do_or P((NODE *tree));
extern NODE *do_xor P((NODE *tree));
extern NODE *do_compl P((NODE *tree));
extern NODE *do_strtonum P((NODE *tree));
-#endif /* BITOPS */
-#if defined(BITOPS) || defined(NONDECDATA)
extern AWKNUM nondec2awknum P((char *str, size_t len));
-#endif /* defined(BITOPS) || defined(NONDECDATA) */
+extern NODE *do_dcgettext P((NODE *tree));
+extern NODE *do_bindtextdomain P((NODE *tree));
/* eval.c */
extern int interpret P((NODE *volatile tree));
extern NODE *r_tree_eval P((NODE *tree, int iscond));
extern int cmp_nodes P((NODE *t1, NODE *t2));
-extern NODE **r_get_lhs P((NODE *ptr, Func_ptr *assign));
+extern NODE **r_get_lhs P((NODE *ptr, Func_ptr *assign, int reference));
extern void set_IGNORECASE P((void));
-void set_OFS P((void));
-void set_ORS P((void));
-void set_OFMT P((void));
-void set_CONVFMT P((void));
+extern void set_OFS P((void));
+extern void set_ORS P((void));
+extern void set_OFMT P((void));
+extern void set_CONVFMT P((void));
+extern void set_BINMODE P((void));
+extern void set_LINT P((void));
+extern void set_TEXTDOMAIN P((void));
+extern void update_ERRNO P((void));
extern char *flags2str P((int));
+extern char *genflags2str P((int flagval, struct flagtab *tab));
+extern char *nodetype2str P((NODETYPE type));
+extern NODE *assign_val P((NODE **lhs_p, NODE *rhs));
+#ifdef PROFILING
+extern void dump_fcall_stack P((FILE *fp));
+#endif
+/* ext.c */
+NODE *do_ext P((NODE *));
+#ifdef DYNAMIC
+void make_builtin P((char *, NODE *(*)(NODE *), int));
+NODE *get_argument P((NODE *, int));
+void set_value P((NODE *));
+#endif
/* field.c */
extern void init_fields P((void));
extern void set_record P((char *buf, int cnt, int freeold));
@@ -799,6 +897,12 @@ extern int using_fieldwidths P((void));
extern char *gawk_name P((const char *filespec));
extern void os_arg_fixup P((int *argcp, char ***argvp));
extern int os_devopen P((const char *name, int flag));
+extern void os_close_on_exec P((int fd, const char *name, const char *what,
+ const char *dir));
+extern int os_isdir P((int fd));
+extern int os_is_setuid P((void));
+extern int os_setbinmode P((int fd, int mode));
+extern void os_restore_mode P((int fd));
extern int optimal_bufsize P((int fd, struct stat *sbuf));
extern int ispath P((const char *file));
extern int isdirpunct P((int c));
@@ -818,6 +922,7 @@ extern struct redirect *getredirect P((char *str, int len));
/* main.c */
extern int main P((int argc, char **argv));
extern void load_environ P((void));
+extern void load_procinfo P((void));
extern char *arg_assign P((char *arg));
extern RETSIGTYPE catchsig P((int sig, int code));
/* msg.c */
@@ -828,6 +933,7 @@ extern void error P((va_list va_alist, ...));
extern void warning P((va_list va_alist, ...));
extern void set_loc P((char *file, int line));
extern void r_fatal P((va_list va_alist, ...));
+extern void (*lintfunc) P((va_list va_alist, ...));
#else
#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
extern void msg (char *mesg, ...);
@@ -835,24 +941,35 @@ extern void error (char *mesg, ...);
extern void warning (char *mesg, ...);
extern void set_loc (char *file, int line);
extern void r_fatal (char *mesg, ...);
+extern void (*lintfunc) (char *mesg, ...);
#else
extern void msg ();
extern void error ();
extern void warning ();
extern void set_loc ();
extern void r_fatal ();
+extern void (*lintfunc) ();
#endif
#endif
+/* profile.c */
+extern void init_profiling P((int *flag, const char *def_file));
+extern void init_profiling_signals P((void));
+extern void set_prof_file P((const char *filename));
+extern void dump_prog P((NODE *begin, NODE *prog, NODE *end));
+extern void pp_func P((char *name, size_t namelen, NODE *f));
+extern void pp_string_fp P((FILE *fp, char *str, size_t namelen,
+ int delim, int breaklines));
/* node.c */
extern AWKNUM r_force_number P((NODE *n));
extern NODE *format_val P((char *format, int index, NODE *s));
extern NODE *r_force_string P((NODE *s));
extern NODE *dupnode P((NODE *n));
+extern NODE *copynode P((NODE *n));
extern NODE *mk_number P((AWKNUM x, unsigned int flags));
extern NODE *make_str_node P((char *s, size_t len, int scan ));
extern NODE *tmp_string P((char *s, size_t len ));
extern NODE *more_nodes P((void));
-#ifdef DEBUG
+#ifdef MEMDEBUG
extern void freenode P((NODE *it));
#endif
extern void unref P((NODE *tmp));
@@ -867,13 +984,17 @@ extern Regexp *re_update P((NODE *t));
extern void resyntax P((int syntax));
extern void resetup P((void));
extern int avoid_dfa P((NODE *re, char *str, size_t len)); /* temporary */
+extern int reisstring P((char *text, size_t len, Regexp *re, char *buf));
/* strncasecmp.c */
+#ifndef BROKEN_STRNCASECMP
+extern int strcasecmp P((const char *s1, const char *s2));
extern int strncasecmp P((const char *s1, const char *s2, register size_t n));
+#endif
#if defined(atarist)
#if defined(PIPES_SIMULATED)
-/* atari/tmpnam.c */
+/* unsupported/atari/tmpnam.c */
extern char *tmpnam P((char *buf));
extern char *tempnam P((const char *path, const char *base));
#else
@@ -888,13 +1009,3 @@ extern char *tempnam P((const char *path, const char *base));
#ifndef STATIC
#define STATIC static
#endif
-
-#ifdef C_ALLOCA
-/* The __hpux check is to avoid conflicts with bison's definition of
- alloca() in awktab.c.*/
-#if (defined(__STDC__) && __STDC__) || defined (__hpux)
-extern void *alloca P((unsigned));
-#else
-extern char *alloca P((unsigned));
-#endif
-#endif
diff --git a/awktab.c b/awkgram.c
index 23aa4fb3..f8b93ad9 100644
--- a/awktab.c
+++ b/awkgram.c
@@ -1,52 +1,52 @@
-/* A Bison parser, made from ./awk.y
- by GNU Bison version 1.25
- */
+/* A Bison parser, made from awkgram.y
+ by GNU Bison version 1.28 */
#define YYBISON 1 /* Identify Bison output. */
-#define FUNC_CALL 258
-#define NAME 259
-#define REGEXP 260
-#define ERROR 261
-#define YNUMBER 262
-#define YSTRING 263
-#define RELOP 264
-#define APPEND_OP 265
-#define ASSIGNOP 266
-#define MATCHOP 267
-#define NEWLINE 268
-#define CONCAT_OP 269
-#define LEX_BEGIN 270
-#define LEX_END 271
-#define LEX_IF 272
-#define LEX_ELSE 273
-#define LEX_RETURN 274
-#define LEX_DELETE 275
-#define LEX_WHILE 276
-#define LEX_DO 277
-#define LEX_FOR 278
-#define LEX_BREAK 279
-#define LEX_CONTINUE 280
-#define LEX_PRINT 281
-#define LEX_PRINTF 282
-#define LEX_NEXT 283
-#define LEX_EXIT 284
-#define LEX_FUNCTION 285
-#define LEX_GETLINE 286
-#define LEX_NEXTFILE 287
-#define LEX_IN 288
-#define LEX_AND 289
-#define LEX_OR 290
-#define INCREMENT 291
-#define DECREMENT 292
-#define LEX_BUILTIN 293
-#define LEX_LENGTH 294
+#define FUNC_CALL 257
+#define NAME 258
+#define REGEXP 259
+#define ERROR 260
+#define YNUMBER 261
+#define YSTRING 262
+#define RELOP 263
+#define APPEND_OP 264
+#define ASSIGNOP 265
+#define MATCHOP 266
+#define NEWLINE 267
+#define CONCAT_OP 268
+#define LEX_BEGIN 269
+#define LEX_END 270
+#define LEX_IF 271
+#define LEX_ELSE 272
+#define LEX_RETURN 273
+#define LEX_DELETE 274
+#define LEX_WHILE 275
+#define LEX_DO 276
+#define LEX_FOR 277
+#define LEX_BREAK 278
+#define LEX_CONTINUE 279
+#define LEX_PRINT 280
+#define LEX_PRINTF 281
+#define LEX_NEXT 282
+#define LEX_EXIT 283
+#define LEX_FUNCTION 284
+#define LEX_GETLINE 285
+#define LEX_NEXTFILE 286
+#define LEX_IN 287
+#define LEX_AND 288
+#define LEX_OR 289
+#define INCREMENT 290
+#define DECREMENT 291
+#define LEX_BUILTIN 292
+#define LEX_LENGTH 293
+#define TWOWAYIO 294
#define UNARY 295
-#line 26 "./awk.y"
+#line 26 "awkgram.y"
-#ifdef DEBUG
+#ifdef GAWKDEBUG
#define YYDEBUG 12
#endif
@@ -74,8 +74,11 @@ static NODE *make_param P((char *name));
static NODE *mk_rexp P((NODE *exp));
static int dup_parms P((NODE *func));
static void param_sanity P((NODE *arglist));
+static void parms_shadow P((const char *fname, NODE *func));
static int isnoeffect P((NODETYPE t));
static int isassignable P((NODE *n));
+static void dumpintlstr P((char *str, size_t len));
+static void count_args P((NODE *n));
enum defref { FUNC_DEFINE, FUNC_USE };
static void func_use P((char *name, enum defref how));
@@ -85,6 +88,7 @@ static int want_assign; /* lexical scanning kludge */
static int want_regexp; /* lexical scanning kludge */
static int can_return; /* lexical scanning kludge */
static int io_allowed = TRUE; /* lexical scanning kludge */
+static int parsing_end_rule = FALSE; /* for warnings */
static char *lexptr; /* pointer to next char during parsing */
static char *lexend;
static char *lexptr_begin; /* keep track of where we were for error msgs */
@@ -96,8 +100,11 @@ static char *tokstart = NULL;
static char *tok = NULL;
static char *tokend;
+static long func_count; /* total number of functions */
+
#define HASHSIZE 1021 /* this constant only used here */
NODE *variables[HASHSIZE];
+static int var_count; /* total number of global variables */
extern char *source;
extern int sourceline;
@@ -107,7 +114,7 @@ extern int errcount;
extern NODE *begin_block;
extern NODE *end_block;
-#line 89 "./awk.y"
+#line 96 "awkgram.y"
typedef union {
long lval;
AWKNUM fval;
@@ -126,26 +133,26 @@ typedef union {
-#define YYFINAL 312
+#define YYFINAL 320
#define YYFLAG -32768
-#define YYNTBASE 62
+#define YYNTBASE 63
-#define YYTRANSLATE(x) ((unsigned)(x) <= 295 ? yytranslate[x] : 107)
+#define YYTRANSLATE(x) ((unsigned)(x) <= 295 ? yytranslate[x] : 108)
static const char yytranslate[] = { 0,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 51, 2, 2, 54, 50, 2, 2, 55,
- 56, 48, 46, 42, 47, 2, 49, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 41, 61, 43,
+ 2, 2, 52, 2, 2, 55, 51, 2, 2, 56,
+ 57, 49, 47, 42, 48, 2, 50, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 41, 62, 43,
2, 44, 40, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 57, 2, 58, 53, 2, 2, 2, 2, 2, 2,
+ 58, 2, 59, 54, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 59, 45, 60, 2, 2, 2, 2, 2,
+ 2, 2, 60, 45, 61, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
@@ -158,112 +165,113 @@ static const char yytranslate[] = { 0,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 1, 2, 3, 4, 5,
- 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
- 26, 27, 28, 29, 30, 31, 32, 33, 34, 35,
- 36, 37, 38, 39, 52
+ 2, 2, 2, 2, 2, 1, 3, 4, 5, 6,
+ 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
+ 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
+ 37, 38, 39, 46, 53
};
#if YYDEBUG != 0
static const short yyprhs[] = { 0,
0, 4, 6, 9, 11, 14, 15, 16, 20, 21,
25, 28, 31, 34, 36, 39, 42, 44, 46, 48,
- 50, 52, 53, 61, 66, 71, 73, 77, 78, 83,
- 89, 94, 96, 99, 101, 104, 106, 109, 112, 115,
- 119, 121, 128, 137, 146, 157, 167, 170, 173, 180,
- 185, 189, 192, 196, 197, 202, 209, 213, 216, 218,
- 220, 227, 237, 239, 242, 243, 245, 246, 249, 250,
- 253, 256, 259, 260, 262, 264, 268, 270, 273, 277,
- 278, 280, 281, 283, 285, 289, 291, 294, 298, 302,
- 303, 305, 307, 311, 313, 316, 320, 324, 325, 330,
- 336, 341, 345, 349, 353, 357, 359, 362, 366, 370,
- 374, 378, 384, 386, 389, 390, 395, 399, 403, 407,
- 409, 412, 416, 420, 424, 430, 432, 435, 437, 441,
- 445, 449, 453, 457, 461, 464, 467, 470, 474, 479,
- 484, 486, 491, 493, 496, 499, 501, 503, 506, 509,
- 510, 512, 514, 519, 522, 525, 528, 530, 531, 533,
- 535
+ 50, 52, 53, 61, 67, 72, 74, 78, 79, 84,
+ 90, 95, 97, 100, 102, 105, 107, 110, 113, 116,
+ 120, 122, 129, 138, 147, 160, 172, 175, 178, 185,
+ 190, 193, 196, 200, 201, 206, 213, 217, 220, 222,
+ 224, 231, 241, 243, 246, 247, 249, 250, 253, 254,
+ 257, 260, 263, 266, 267, 269, 271, 275, 277, 280,
+ 284, 285, 287, 288, 290, 292, 296, 298, 301, 305,
+ 309, 310, 312, 314, 318, 320, 323, 327, 331, 332,
+ 337, 343, 348, 353, 357, 361, 365, 369, 371, 374,
+ 378, 382, 386, 390, 396, 398, 401, 402, 407, 411,
+ 415, 419, 421, 424, 428, 432, 436, 442, 444, 447,
+ 449, 453, 457, 461, 465, 469, 473, 476, 479, 482,
+ 486, 491, 496, 498, 503, 505, 508, 511, 513, 515,
+ 518, 521, 522, 524, 526, 531, 534, 537, 540, 542,
+ 543, 545, 547
};
-static const short yyrhs[] = { 83,
- 63, 83, 0, 64, 0, 63, 64, 0, 1, 0,
- 63, 1, 0, 0, 0, 15, 65, 75, 0, 0,
- 16, 66, 75, 0, 15, 77, 0, 16, 77, 0,
- 72, 75, 0, 75, 0, 72, 77, 0, 69, 71,
- 0, 4, 0, 3, 0, 68, 0, 38, 0, 39,
- 0, 0, 30, 70, 67, 55, 86, 103, 83, 0,
- 101, 76, 102, 104, 0, 101, 102, 104, 83, 0,
- 93, 0, 93, 42, 93, 0, 0, 49, 74, 5,
- 49, 0, 101, 76, 102, 104, 83, 0, 101, 102,
- 104, 83, 0, 78, 0, 76, 78, 0, 1, 0,
- 76, 1, 0, 82, 0, 105, 83, 0, 105, 83,
- 0, 101, 102, 0, 101, 76, 102, 0, 81, 0,
- 21, 55, 93, 103, 83, 78, 0, 22, 83, 78,
- 21, 55, 93, 103, 83, 0, 23, 55, 4, 33,
- 4, 103, 83, 78, 0, 23, 55, 88, 105, 93,
- 105, 88, 103, 83, 78, 0, 23, 55, 88, 105,
- 105, 88, 103, 83, 78, 0, 24, 77, 0, 25,
- 77, 0, 80, 55, 92, 103, 85, 77, 0, 80,
- 89, 85, 77, 0, 28, 88, 77, 0, 32, 77,
- 0, 29, 88, 77, 0, 0, 19, 79, 88, 77,
- 0, 20, 4, 57, 92, 58, 77, 0, 20, 4,
- 77, 0, 93, 77, 0, 26, 0, 27, 0, 17,
- 55, 93, 103, 83, 78, 0, 17, 55, 93, 103,
- 83, 78, 18, 83, 78, 0, 13, 0, 82, 13,
- 0, 0, 82, 0, 0, 43, 97, 0, 0, 44,
- 93, 0, 10, 93, 0, 45, 93, 0, 0, 87,
- 0, 4, 0, 87, 106, 4, 0, 1, 0, 87,
- 1, 0, 87, 106, 1, 0, 0, 93, 0, 0,
- 90, 0, 95, 0, 90, 106, 95, 0, 1, 0,
- 90, 1, 0, 90, 1, 95, 0, 90, 106, 1,
- 0, 0, 92, 0, 93, 0, 92, 106, 93, 0,
- 1, 0, 92, 1, 0, 92, 1, 93, 0, 92,
- 106, 1, 0, 0, 100, 11, 94, 93, 0, 55,
- 92, 103, 33, 4, 0, 93, 45, 31, 99, 0,
- 31, 99, 84, 0, 93, 34, 93, 0, 93, 35,
- 93, 0, 93, 12, 93, 0, 73, 0, 51, 73,
- 0, 93, 33, 4, 0, 93, 9, 93, 0, 93,
- 43, 93, 0, 93, 44, 93, 0, 93, 40, 93,
- 41, 93, 0, 97, 0, 93, 97, 0, 0, 100,
- 11, 96, 95, 0, 95, 34, 95, 0, 95, 35,
- 95, 0, 31, 99, 84, 0, 73, 0, 51, 73,
- 0, 95, 12, 95, 0, 95, 33, 4, 0, 95,
- 9, 95, 0, 95, 40, 95, 41, 95, 0, 97,
- 0, 95, 97, 0, 98, 0, 97, 53, 97, 0,
- 97, 48, 97, 0, 97, 49, 97, 0, 97, 50,
- 97, 0, 97, 46, 97, 0, 97, 47, 97, 0,
- 100, 36, 0, 100, 37, 0, 51, 97, 0, 55,
- 93, 103, 0, 38, 55, 91, 103, 0, 39, 55,
- 91, 103, 0, 39, 0, 3, 55, 91, 103, 0,
- 100, 0, 36, 100, 0, 37, 100, 0, 7, 0,
- 8, 0, 47, 97, 0, 46, 97, 0, 0, 100,
- 0, 4, 0, 4, 57, 92, 58, 0, 54, 98,
- 0, 59, 83, 0, 60, 83, 0, 56, 0, 0,
- 105, 0, 61, 0, 42, 83, 0
+static const short yyrhs[] = { 84,
+ 64, 84, 0, 65, 0, 64, 65, 0, 1, 0,
+ 64, 1, 0, 0, 0, 15, 66, 76, 0, 0,
+ 16, 67, 76, 0, 15, 78, 0, 16, 78, 0,
+ 73, 76, 0, 76, 0, 73, 78, 0, 70, 72,
+ 0, 4, 0, 3, 0, 69, 0, 38, 0, 39,
+ 0, 0, 30, 71, 68, 56, 87, 104, 84, 0,
+ 102, 77, 103, 105, 84, 0, 102, 103, 105, 84,
+ 0, 94, 0, 94, 42, 94, 0, 0, 50, 75,
+ 5, 50, 0, 102, 77, 103, 105, 84, 0, 102,
+ 103, 105, 84, 0, 79, 0, 77, 79, 0, 1,
+ 0, 77, 1, 0, 83, 0, 106, 84, 0, 106,
+ 84, 0, 102, 103, 0, 102, 77, 103, 0, 82,
+ 0, 21, 56, 94, 104, 84, 79, 0, 22, 84,
+ 79, 21, 56, 94, 104, 84, 0, 23, 56, 4,
+ 33, 4, 104, 84, 79, 0, 23, 56, 89, 106,
+ 84, 94, 106, 84, 89, 104, 84, 79, 0, 23,
+ 56, 89, 106, 84, 106, 84, 89, 104, 84, 79,
+ 0, 24, 78, 0, 25, 78, 0, 81, 56, 93,
+ 104, 86, 78, 0, 81, 90, 86, 78, 0, 28,
+ 78, 0, 32, 78, 0, 29, 89, 78, 0, 0,
+ 19, 80, 89, 78, 0, 20, 4, 58, 93, 59,
+ 78, 0, 20, 4, 78, 0, 94, 78, 0, 26,
+ 0, 27, 0, 17, 56, 94, 104, 84, 79, 0,
+ 17, 56, 94, 104, 84, 79, 18, 84, 79, 0,
+ 13, 0, 83, 13, 0, 0, 83, 0, 0, 43,
+ 98, 0, 0, 44, 94, 0, 10, 94, 0, 45,
+ 94, 0, 46, 94, 0, 0, 88, 0, 4, 0,
+ 88, 107, 4, 0, 1, 0, 88, 1, 0, 88,
+ 107, 1, 0, 0, 94, 0, 0, 91, 0, 96,
+ 0, 91, 107, 96, 0, 1, 0, 91, 1, 0,
+ 91, 1, 96, 0, 91, 107, 1, 0, 0, 93,
+ 0, 94, 0, 93, 107, 94, 0, 1, 0, 93,
+ 1, 0, 93, 1, 94, 0, 93, 107, 1, 0,
+ 0, 101, 11, 95, 94, 0, 56, 93, 104, 33,
+ 4, 0, 94, 45, 31, 100, 0, 94, 46, 31,
+ 100, 0, 31, 100, 85, 0, 94, 34, 94, 0,
+ 94, 35, 94, 0, 94, 12, 94, 0, 74, 0,
+ 52, 74, 0, 94, 33, 4, 0, 94, 9, 94,
+ 0, 94, 43, 94, 0, 94, 44, 94, 0, 94,
+ 40, 94, 41, 94, 0, 98, 0, 94, 98, 0,
+ 0, 101, 11, 97, 96, 0, 96, 34, 96, 0,
+ 96, 35, 96, 0, 31, 100, 85, 0, 74, 0,
+ 52, 74, 0, 96, 12, 96, 0, 96, 33, 4,
+ 0, 96, 9, 96, 0, 96, 40, 96, 41, 96,
+ 0, 98, 0, 96, 98, 0, 99, 0, 98, 54,
+ 98, 0, 98, 49, 98, 0, 98, 50, 98, 0,
+ 98, 51, 98, 0, 98, 47, 98, 0, 98, 48,
+ 98, 0, 101, 36, 0, 101, 37, 0, 52, 98,
+ 0, 56, 94, 104, 0, 38, 56, 92, 104, 0,
+ 39, 56, 92, 104, 0, 39, 0, 3, 56, 92,
+ 104, 0, 101, 0, 36, 101, 0, 37, 101, 0,
+ 7, 0, 8, 0, 48, 98, 0, 47, 98, 0,
+ 0, 101, 0, 4, 0, 4, 58, 93, 59, 0,
+ 55, 99, 0, 60, 84, 0, 61, 84, 0, 57,
+ 0, 0, 106, 0, 62, 0, 42, 84, 0
};
#endif
#if YYDEBUG != 0
static const short yyrline[] = { 0,
- 150, 158, 166, 182, 183, 184, 188, 190, 204, 206,
- 220, 226, 232, 234, 236, 249, 258, 260, 262, 272,
- 273, 277, 281, 296, 301, 310, 312, 321, 323, 341,
- 343, 348, 354, 362, 364, 369, 370, 374, 376, 378,
- 380, 382, 384, 386, 413, 417, 422, 425, 428, 430,
- 450, 489, 508, 510, 515, 517, 519, 533, 538, 540,
- 545, 550, 557, 559, 563, 564, 568, 570, 575, 577,
- 579, 581, 586, 588, 593, 595, 597, 599, 601, 607,
- 609, 614, 616, 621, 623, 629, 631, 633, 635, 640,
- 642, 647, 649, 655, 657, 659, 661, 666, 669, 674,
- 676, 681, 687, 689, 691, 697, 707, 715, 717, 723,
- 725, 727, 729, 731, 736, 739, 740, 742, 744, 750,
- 752, 754, 756, 758, 760, 762, 764, 769, 771, 773,
- 775, 777, 779, 781, 783, 785, 790, 792, 794, 797,
- 799, 807, 814, 815, 817, 819, 821, 824, 832, 843,
- 845, 850, 852, 862, 867, 871, 875, 879, 880, 884,
- 887
+ 157, 165, 173, 189, 190, 191, 195, 197, 211, 213,
+ 228, 234, 240, 242, 244, 257, 266, 268, 270, 280,
+ 281, 285, 289, 304, 309, 318, 320, 329, 331, 349,
+ 351, 356, 362, 370, 372, 377, 378, 382, 384, 386,
+ 388, 390, 392, 394, 422, 426, 431, 434, 437, 443,
+ 465, 473, 492, 494, 499, 501, 503, 517, 522, 524,
+ 529, 534, 541, 543, 547, 548, 552, 554, 559, 561,
+ 563, 565, 567, 577, 579, 584, 586, 588, 590, 592,
+ 598, 600, 605, 607, 612, 614, 620, 622, 624, 626,
+ 631, 633, 638, 640, 646, 648, 650, 652, 657, 660,
+ 665, 667, 672, 677, 683, 685, 687, 693, 703, 711,
+ 713, 719, 721, 723, 725, 727, 732, 735, 736, 738,
+ 740, 746, 748, 750, 752, 754, 756, 758, 760, 765,
+ 767, 769, 771, 773, 775, 777, 779, 781, 786, 788,
+ 790, 793, 795, 803, 810, 811, 813, 815, 817, 820,
+ 828, 839, 841, 846, 848, 858, 863, 867, 871, 875,
+ 876, 880, 883
};
#endif
@@ -276,512 +284,545 @@ static const char * const yytname[] = { "$","error","$undefined.","FUNC_CALL",
"LEX_DELETE","LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT",
"LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION","LEX_GETLINE","LEX_NEXTFILE",
"LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH",
-"'?'","':'","','","'<'","'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY",
-"'^'","'$'","'('","')'","'['","']'","'{'","'}'","';'","start","program","rule",
-"@1","@2","func_name","lex_builtin","function_prologue","@3","function_body",
-"pattern","regexp","@4","action","statements","statement_term","statement","@5",
-"print","if_statement","nls","opt_nls","input_redir","output_redir","opt_param_list",
-"param_list","opt_exp","opt_rexpression_list","rexpression_list","opt_expression_list",
-"expression_list","exp","@6","rexp","@7","simp_exp","non_post_simp_exp","opt_variable",
-"variable","l_brace","r_brace","r_paren","opt_semi","semi","comma", NULL
+"'?'","':'","','","'<'","'>'","'|'","TWOWAYIO","'+'","'-'","'*'","'/'","'%'",
+"'!'","UNARY","'^'","'$'","'('","')'","'['","']'","'{'","'}'","';'","start",
+"program","rule","@1","@2","func_name","lex_builtin","function_prologue","@3",
+"function_body","pattern","regexp","@4","action","statements","statement_term",
+"statement","@5","print","if_statement","nls","opt_nls","input_redir","output_redir",
+"opt_param_list","param_list","opt_exp","opt_rexpression_list","rexpression_list",
+"opt_expression_list","expression_list","exp","@6","rexp","@7","simp_exp","non_post_simp_exp",
+"opt_variable","variable","l_brace","r_brace","r_paren","opt_semi","semi","comma", NULL
};
#endif
static const short yyr1[] = { 0,
- 62, 63, 63, 63, 63, 63, 65, 64, 66, 64,
- 64, 64, 64, 64, 64, 64, 67, 67, 67, 68,
- 68, 70, 69, 71, 71, 72, 72, 74, 73, 75,
- 75, 76, 76, 76, 76, 77, 77, 78, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 78, 79, 78, 78, 78, 78, 80, 80,
- 81, 81, 82, 82, 83, 83, 84, 84, 85, 85,
- 85, 85, 86, 86, 87, 87, 87, 87, 87, 88,
- 88, 89, 89, 90, 90, 90, 90, 90, 90, 91,
- 91, 92, 92, 92, 92, 92, 92, 94, 93, 93,
- 93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
- 93, 93, 93, 93, 96, 95, 95, 95, 95, 95,
- 95, 95, 95, 95, 95, 95, 95, 97, 97, 97,
- 97, 97, 97, 97, 97, 97, 98, 98, 98, 98,
- 98, 98, 98, 98, 98, 98, 98, 98, 98, 99,
- 99, 100, 100, 100, 101, 102, 103, 104, 104, 105,
- 106
+ 63, 64, 64, 64, 64, 64, 66, 65, 67, 65,
+ 65, 65, 65, 65, 65, 65, 68, 68, 68, 69,
+ 69, 71, 70, 72, 72, 73, 73, 75, 74, 76,
+ 76, 77, 77, 77, 77, 78, 78, 79, 79, 79,
+ 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
+ 79, 79, 79, 80, 79, 79, 79, 79, 81, 81,
+ 82, 82, 83, 83, 84, 84, 85, 85, 86, 86,
+ 86, 86, 86, 87, 87, 88, 88, 88, 88, 88,
+ 89, 89, 90, 90, 91, 91, 91, 91, 91, 91,
+ 92, 92, 93, 93, 93, 93, 93, 93, 95, 94,
+ 94, 94, 94, 94, 94, 94, 94, 94, 94, 94,
+ 94, 94, 94, 94, 94, 94, 97, 96, 96, 96,
+ 96, 96, 96, 96, 96, 96, 96, 96, 96, 98,
+ 98, 98, 98, 98, 98, 98, 98, 98, 99, 99,
+ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
+ 99, 100, 100, 101, 101, 101, 102, 103, 104, 105,
+ 105, 106, 107
};
static const short yyr2[] = { 0,
3, 1, 2, 1, 2, 0, 0, 3, 0, 3,
2, 2, 2, 1, 2, 2, 1, 1, 1, 1,
- 1, 0, 7, 4, 4, 1, 3, 0, 4, 5,
+ 1, 0, 7, 5, 4, 1, 3, 0, 4, 5,
4, 1, 2, 1, 2, 1, 2, 2, 2, 3,
- 1, 6, 8, 8, 10, 9, 2, 2, 6, 4,
- 3, 2, 3, 0, 4, 6, 3, 2, 1, 1,
+ 1, 6, 8, 8, 12, 11, 2, 2, 6, 4,
+ 2, 2, 3, 0, 4, 6, 3, 2, 1, 1,
6, 9, 1, 2, 0, 1, 0, 2, 0, 2,
- 2, 2, 0, 1, 1, 3, 1, 2, 3, 0,
- 1, 0, 1, 1, 3, 1, 2, 3, 3, 0,
- 1, 1, 3, 1, 2, 3, 3, 0, 4, 5,
- 4, 3, 3, 3, 3, 1, 2, 3, 3, 3,
- 3, 5, 1, 2, 0, 4, 3, 3, 3, 1,
- 2, 3, 3, 3, 5, 1, 2, 1, 3, 3,
- 3, 3, 3, 3, 2, 2, 2, 3, 4, 4,
- 1, 4, 1, 2, 2, 1, 1, 2, 2, 0,
- 1, 1, 4, 2, 2, 2, 1, 0, 1, 1,
- 2
+ 2, 2, 2, 0, 1, 1, 3, 1, 2, 3,
+ 0, 1, 0, 1, 1, 3, 1, 2, 3, 3,
+ 0, 1, 1, 3, 1, 2, 3, 3, 0, 4,
+ 5, 4, 4, 3, 3, 3, 3, 1, 2, 3,
+ 3, 3, 3, 5, 1, 2, 0, 4, 3, 3,
+ 3, 1, 2, 3, 3, 3, 5, 1, 2, 1,
+ 3, 3, 3, 3, 3, 3, 2, 2, 2, 3,
+ 4, 4, 1, 4, 1, 2, 2, 1, 1, 2,
+ 2, 0, 1, 1, 4, 2, 2, 2, 1, 0,
+ 1, 1, 2
};
static const short yydefact[] = { 65,
- 63, 66, 0, 64, 4, 0, 152, 146, 147, 7,
- 9, 22, 150, 0, 0, 0, 141, 0, 0, 28,
- 0, 0, 0, 65, 0, 2, 0, 0, 106, 14,
- 26, 113, 128, 143, 0, 0, 0, 160, 0, 11,
- 36, 65, 0, 12, 0, 67, 151, 144, 145, 0,
- 0, 0, 0, 149, 143, 148, 0, 107, 137, 154,
- 143, 94, 0, 92, 155, 5, 3, 1, 16, 0,
+ 63, 66, 0, 64, 4, 0, 154, 148, 149, 7,
+ 9, 22, 152, 0, 0, 0, 143, 0, 0, 28,
+ 0, 0, 0, 65, 0, 2, 0, 0, 108, 14,
+ 26, 115, 130, 145, 0, 0, 0, 162, 0, 11,
+ 36, 65, 0, 12, 0, 67, 153, 146, 147, 0,
+ 0, 0, 0, 151, 145, 150, 0, 109, 139, 156,
+ 145, 95, 0, 93, 157, 5, 3, 1, 16, 0,
13, 15, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 114, 0, 0, 0, 0, 0, 0, 98,
- 135, 136, 34, 0, 54, 0, 0, 65, 0, 0,
- 0, 59, 60, 80, 80, 0, 65, 0, 32, 0,
- 41, 0, 0, 158, 65, 0, 0, 92, 0, 8,
- 37, 10, 18, 17, 20, 21, 0, 19, 0, 102,
- 0, 0, 0, 0, 95, 65, 157, 0, 0, 138,
- 0, 158, 109, 105, 108, 103, 104, 0, 27, 110,
- 111, 150, 133, 134, 130, 131, 132, 129, 0, 0,
- 80, 0, 0, 0, 80, 47, 48, 0, 81, 0,
- 52, 156, 35, 33, 158, 86, 150, 0, 0, 120,
- 69, 0, 84, 126, 143, 58, 0, 39, 65, 159,
- 38, 142, 153, 0, 68, 139, 140, 29, 96, 161,
- 0, 97, 93, 158, 65, 0, 101, 99, 0, 0,
- 0, 57, 0, 0, 152, 0, 51, 53, 65, 67,
- 121, 0, 0, 0, 0, 0, 87, 0, 0, 0,
- 0, 0, 0, 0, 127, 115, 40, 31, 77, 75,
- 0, 0, 100, 24, 25, 112, 65, 55, 0, 65,
- 0, 0, 0, 30, 119, 69, 71, 70, 72, 50,
- 88, 89, 85, 124, 122, 123, 117, 118, 0, 0,
- 65, 78, 0, 0, 0, 0, 0, 0, 0, 80,
- 0, 0, 116, 23, 79, 76, 61, 56, 42, 0,
- 65, 80, 0, 49, 125, 65, 65, 0, 0, 65,
- 0, 43, 44, 65, 0, 62, 0, 46, 45, 0,
- 0, 0
+ 0, 0, 0, 116, 0, 0, 0, 0, 0, 0,
+ 99, 137, 138, 34, 0, 54, 0, 0, 65, 0,
+ 0, 0, 59, 60, 0, 81, 0, 65, 0, 32,
+ 0, 41, 0, 0, 160, 65, 0, 0, 93, 0,
+ 8, 37, 10, 18, 17, 20, 21, 0, 19, 0,
+ 104, 0, 0, 0, 0, 96, 65, 159, 0, 0,
+ 140, 0, 160, 111, 107, 110, 105, 106, 0, 27,
+ 112, 113, 152, 152, 135, 136, 132, 133, 134, 131,
+ 0, 0, 81, 0, 0, 0, 81, 47, 48, 51,
+ 0, 82, 52, 158, 35, 33, 160, 87, 152, 0,
+ 0, 122, 69, 0, 85, 128, 145, 58, 0, 39,
+ 65, 161, 38, 144, 155, 0, 68, 141, 142, 29,
+ 97, 163, 0, 98, 94, 160, 65, 0, 102, 103,
+ 100, 0, 0, 0, 57, 0, 0, 154, 0, 53,
+ 65, 67, 123, 0, 0, 0, 0, 0, 0, 88,
+ 0, 0, 0, 0, 0, 0, 0, 129, 117, 40,
+ 31, 78, 76, 0, 0, 101, 65, 25, 114, 65,
+ 55, 0, 65, 0, 0, 65, 30, 121, 69, 71,
+ 70, 72, 73, 50, 89, 90, 86, 126, 124, 125,
+ 119, 120, 0, 0, 65, 79, 0, 24, 0, 0,
+ 0, 0, 0, 0, 0, 0, 118, 23, 80, 77,
+ 61, 56, 42, 0, 65, 0, 65, 49, 127, 65,
+ 65, 0, 65, 81, 0, 43, 44, 81, 0, 62,
+ 0, 65, 65, 0, 0, 46, 45, 0, 0, 0
};
-static const short yydefgoto[] = { 310,
- 25, 26, 39, 43, 127, 128, 27, 45, 69, 28,
- 29, 57, 30, 108, 40, 109, 161, 110, 111, 2,
- 3, 130, 226, 241, 242, 168, 181, 182, 116, 117,
- 112, 159, 183, 270, 32, 33, 46, 34, 113, 114,
- 140, 189, 42, 139
+static const short yydefgoto[] = { 318,
+ 25, 26, 39, 43, 128, 129, 27, 45, 69, 28,
+ 29, 57, 30, 109, 40, 110, 163, 111, 112, 2,
+ 3, 131, 229, 244, 245, 171, 183, 184, 117, 118,
+ 113, 161, 185, 274, 32, 33, 46, 34, 114, 115,
+ 141, 191, 42, 140
};
-static const short yypact[] = { -6,
--32768, 0, 875,-32768,-32768, -40, -38,-32768,-32768, -7,
- -7,-32768, 10, 10, 10, -31, -26, 1735, 1735,-32768,
- 1715, 1735, 1131, -6, 932,-32768, -24, 72,-32768,-32768,
- 1304, 205,-32768, 5, 709, 1110, 1131,-32768, -24,-32768,
- 0, -6, -24,-32768, 85, 3,-32768,-32768,-32768, 1110,
- 1110, 1735, 1620, 8, 106, 8, 81,-32768, 8,-32768,
--32768,-32768, 37, 1250,-32768,-32768,-32768,-32768,-32768, 709,
--32768,-32768, 1620, 1620, 90, 1620, 1620, 1620, 1620, 1620,
- 1620, 65, 205, 1735, 1735, 1735, 1735, 1735, 1735,-32768,
--32768,-32768,-32768, 50,-32768, 111, 70, -6, 93, -7,
- -7,-32768,-32768, 1620, 1620, -7, -6, 758,-32768, 819,
--32768, 1040, 709, 100, -6, 99, 55, 1402, 9,-32768,
--32768,-32768,-32768,-32768,-32768,-32768, 109,-32768, 1735,-32768,
- 99, 99, 1250, 119, 1620, -6,-32768, 133, 1180,-32768,
- 758, 100, 1327, 794,-32768, 1515, 1451, 1353, 1402, 1327,
- 1327, 10, 125, 125, 8, 8, 8, 8, 1620, 1620,
- 1620, 42, 1620, 981, 1657,-32768,-32768, -7, 1402, -7,
--32768,-32768,-32768,-32768, 100,-32768, 10, 1715, 1131,-32768,
- 96, 39, 1538, 205, 117,-32768, 758,-32768, -6,-32768,
--32768,-32768,-32768, 7, 205,-32768,-32768,-32768, 1402,-32768,
- 166,-32768, 1402, 100, -6, 1620,-32768, 1402, 1250, -7,
- 1131,-32768, 1250, 151, -12, 100,-32768,-32768, -6, 3,
--32768, 37, 1620, 1620, 1620, -7, 1678, 1201, 1678, 1678,
- 181, 1678, 1678, 1678, 205,-32768,-32768,-32768,-32768,-32768,
- 99, 56,-32768,-32768,-32768, 1402, -6,-32768, 11, -6,
- 131, 183, 1061,-32768,-32768, 96, 1402, 1402, 1402,-32768,
- 1538,-32768, 1538, 635, 83,-32768, 1599, 1579, 1474, 1678,
- -6,-32768, 103, 981, -7, 981, 1620, 99, 623, 1620,
- -7, 1678, 1538,-32768,-32768,-32768, 170,-32768,-32768, 1250,
- -6, 1620, 99,-32768, 1538, -6, -6, 981, 99, -6,
- 981,-32768,-32768, -6, 981,-32768, 981,-32768,-32768, 190,
- 191,-32768
+static const short yypact[] = { 2,
+-32768, 4, 840,-32768,-32768, -33, -32,-32768,-32768, -4,
+ -4,-32768, -1, -1, -1, -27, 34, 1832, 1832,-32768,
+ 1811, 1832, 1158, 2, 898,-32768, 29, 33,-32768,-32768,
+ 1322, 103,-32768, 72, 630, 1136, 1158,-32768, 29,-32768,
+ 4, 2, 29,-32768, 84, 54,-32768,-32768,-32768, 1136,
+ 1136, 1832, 1715, 53, 31, 53, 120,-32768, 53,-32768,
+-32768,-32768, 39, 1267,-32768,-32768,-32768,-32768,-32768, 630,
+-32768,-32768, 1715, 1715, 128, 1715, 1715, 1715, 1715, 1715,
+ 1715, 104, 105, 103, 1832, 1832, 1832, 1832, 1832, 1832,
+-32768,-32768,-32768,-32768, 88,-32768, 130, 89, 2, 90,
+ -4, -4,-32768,-32768, -4, 1715, -4, 2, 721,-32768,
+ 783,-32768, 1008, 630, 86, 2, 111, 43, 1422, 10,
+-32768,-32768,-32768,-32768,-32768,-32768,-32768, 100,-32768, 1832,
+-32768, 111, 111, 1267, 119, 1715, 2,-32768, 122, 1208,
+-32768, 721, 86, 1886, 1869,-32768, 1522, 1472, 1372, 1422,
+ 1886, 1886, -1, -1, 116, 116, 53, 53, 53, 53,
+ 1715, 1715, 1715, 36, 1715, 948, 1752,-32768,-32768,-32768,
+ -4, 1422,-32768,-32768,-32768,-32768, 86,-32768, -1, 1811,
+ 1158,-32768, 95, 17, 1614, 103, 93,-32768, 721,-32768,
+ 2,-32768,-32768,-32768,-32768, 9, 103,-32768,-32768,-32768,
+ 1422,-32768, 167,-32768, 1422, 86, 2, 1715,-32768,-32768,
+ 1422, 1267, -4, 1158,-32768, 1267, 151, -5, 86,-32768,
+ 2, 54,-32768, 39, 1715, 1715, 1715, 1715, -4, 1774,
+ 1230, 1774, 1774, 169, 1774, 1774, 1774, 103,-32768,-32768,
+-32768,-32768,-32768, 111, 44,-32768, 2,-32768, 1422, 2,
+-32768, 13, 2, 121, 171, 2,-32768,-32768, 95, 1422,
+ 1422, 1422, 1422,-32768, 1614,-32768, 1614, 1280, 390,-32768,
+ 1693, 1656, 1572, 1774, 2,-32768, 20,-32768, 948, -4,
+ 948, 1715, 111, 1086, -4, 1774, 1614,-32768,-32768,-32768,
+ 158,-32768,-32768, 1267, 2, 1064, 2,-32768, 1614, 2,
+ 2, 948, 2, 1715, 948,-32768,-32768, 1715, 111,-32768,
+ 111, 2, 2, 948, 948,-32768,-32768, 179, 180,-32768
};
static const short yypgoto[] = {-32768,
--32768, 167,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
- 211,-32768, 107, -53, 315, -105,-32768,-32768,-32768, 199,
- 97, -22, -62,-32768,-32768, -103,-32768,-32768, 94, -14,
- -3,-32768, -202,-32768, 318, 177, -134, 95, 124, -69,
- 407, -138, 420, -177
+-32768, 156,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
+ 245,-32768, 78, -54, 403, 98,-32768,-32768,-32768, 210,
+ -17, -34, -70,-32768,-32768, -161,-32768,-32768, 63, -18,
+ -3,-32768, -194,-32768, 321, 170, -122, 97, 99, -58,
+ 204, -142, 421, -180
};
-#define YYLAST 1790
+#define YYLAST 1942
static const short yytable[] = { 31,
- 142, 170, 174, 205, 228, 1, 1, 239, 63, 135,
- 240, 135, 4, 7, 36, 90, 141, 207, 37, 64,
- 252, 31, 119, 50, 261, 263, 264, 265, 51, 267,
- 268, 269, 118, 118, 24, 174, 219, 135, 175, 227,
- 91, 92, 220, 188, 37, 129, 118, 118, -83, 133,
- 136, -83, 136, 38, 1, 135, 272, 210, 214, 187,
- 89, 216, -73, 22, 273, 244, 193, 283, 275, 143,
- 144, 204, 146, 147, 148, 149, 150, 151, 136, 295,
- 136, 174, -83, -83, 1, 134, 7, 123, 124, 8,
- 9, 229, 137, 145,-32768, 152, 136, 136, 211, -83,
- 169, 169, 38, 285, 160, 223, 286, 47, 48, 49,
- -91, -74, 55, 55, 162, 55, 61, 237, 14, 15,
- 65, 68, 125, 126, 163, 55, 35, 236, 18, 19,
- 24, 199, 38, 52, 71, 203, 22, 53, 121, 224,
- 225, 91, 92, 131, 132, 120, 55, 165, 35, 122,
- 70, 35, 91, 92, 137, 208, 209, 169, 55, 213,
- 38, 169, 35, 194, 222, 201, 35, 198, 287, 243,
- 289, 251, 86, 87, 88, 64, 293, 89, 55, 55,
- 55, 55, 55, 55, 266, 277, 278, 296, 299, 311,
- 312, 67, 303, 281, 164, 306, 249, 255, 60, 308,
- 0, 309, 246, 172, 185, 0, 55, 118, 41, 41,
- 0, 191, 55, 0, 0, 0, 0, 0, 0, 257,
- 258, 259, 0, 55, 0, 0, 41, 55, 0, 0,
- 0, 58, 200, 0, 0, 0, 0, 55, 55, 0,
- 55, 55, 55, 55, 55, 55, 47, 0, 0, 279,
- 84, 85, 86, 87, 88, 0, 0, 89, 0, 0,
- 0, 0, 0, 55, 0, 0, 0, 0, 0, 0,
- 0, 47, 55, 290, 0, 0, 169, 55, 0, 0,
- 0, 0, 0, 0, 0, 238, 0, 0, 169, 0,
- 0, 0, 0, 55, 0, 0, 0, 55, 41, 41,
- 0, 245, 55, 55, 41, 0, 0, 55, 0, 0,
- 41, 0, 0, 0, 0, 254, 0, 0, 0, 0,
- 180, 185, 185, 185, 185, 44, 185, 185, 185, 0,
- 0, 0, 0, 0, 0, 54, 56, 0, 59, 0,
- 55, 0, 72, 274, 0, 0, 276, 0, 83, 0,
- 0, 55, 55, 55, 0, 55, 0, 55, 55, 55,
- 41, 55, 55, 55, 185, 0, 41, 284, 41, 59,
- 0, 0, 0, 55, 0, 0, 185, 55, 0, 0,
- 0, 83, 0, 0, 55, 0, 0, 298, 221, 55,
- 0, 0, 301, 302, 0, 0, 305, 0, 0, 0,
- 307, 153, 154, 155, 156, 157, 158, 0, 41, 0,
- 0, 0, 0, 0, 166, 167, 0, 0, 0, 0,
- 171, 0, 0, 0, 41, 0, 186, 184, 0, 83,
- 0, 0, 0, 0, 0, 83, 0, 180, 180, 180,
- 180, 0, 180, 180, 180, 0, 195, 0, 0, 0,
- 83, 0, 0, 0, 115, 0, 0, 0, 0, 0,
- 83, 83, 0, 83, 83, 83, 83, 83, 83, 138,
- 0, 0, 0, 41, 0, 0, 212, 0, 0, 41,
- 180, 0, 217, 0, 218, 0, 83, 0, 0, 115,
- 0, 0, 180, 0, 0, 59, 0, 0, 0, 0,
- 235, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 83, 0, 0, 0,
- 83, 0, 192, 0, 248, 83, 83, 115, 0, 0,
- 83, 0, 115, 190, 0, 0, 0, 196, 197, 0,
- 260, 0, 0, 0, 184, 184, 184, 184, 0, 184,
- 184, 184, 0, 0, 0, 0, 0, 0, 0, 0,
- 115, 190, 0, 83, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 83, 83, 83, 0, 235, 0,
- 235, 235, 235, 115, 235, 235, 235, 184, 0, 288,
- 0, 0, 0, 0, 190, 294, 83, 0, 0, 184,
- 235, 0, 0, 0, 0, 0, 115, 83, 0, 0,
- 0, 0, 235, 0, 0, 247, 0, 0, 0, 250,
- 0, 0, 0, 190, 0, 6, 7, 0, 256, 8,
- 9, 73, 0, 0, 74, 253, 0, 0, 7, 0,
- 0, 8, 9,-32768, 0, 0, 0, 271, 0, 0,
- 0, 0, 0, 0, 0, 75, 76, 77, 14, 15,
- 16, 17, 78, 0, 0, 80, 81, 82, 18, 19,
- 14, 15, 280, 52, 0, 0, 22, 53, 0, 0,
- 18, 19, 0, 38, 291, 52, 0, 0, 22, 53,
- 0, 0, 0, 115, 0, 115, 297, 0, 292, 300,
- 0, 0, 0, 0, 0, 304, 0, 0, 0, 93,
- 0, 6, 7, 0, 0, 8, 9, 115, 0, 0,
- 115, 0, 0, 0, 115, 94, 115, 95, 96, 97,
- 98, 99, 100, 101, 102, 103, 104, 105, 0, 13,
- 106, 0, 0, 0, 14, 15, 16, 17, 0, 0,
- 0, 0, 0, 0, 18, 19, 0, 20, 173, 21,
- 6, 7, 22, 23, 8, 9, 0, 24, 107, 38,
- 0, 0, 0, 0, 94, 0, 95, 96, 97, 98,
- 99, 100, 101, 102, 103, 104, 105, 0, 13, 106,
- 0, 0, 0, 14, 15, 16, 17, 7, 0, 0,
- 8, 9, 73, 18, 19,-32768, 20, 0, 21, 0,
- 0, 22, 23, 0, 0, 0, 24, 107, 38, 176,
- 0, 6, 7, 0, 0, 8, 9, 0, -82, 14,
- 15, -82, 0, 0, 0, 0, 80, 81, 82, 18,
- 19, 0, 0, 0, 52, 0, 0, 22, 53, 177,
- 0, 0, 0, 0, 14, 15, 16, 17, 0, 0,
- 0, 0, -82, -82, 18, 19, 0, 20, 0, 178,
- 0, 0, 22, 179, -6, 5, 0, 6, 7, -82,
- 0, 8, 9, 0, 0, 0, 0, -6, 0, 10,
- 11, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 12, 13, 0, 0, 0, 0,
- 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
- 18, 19, 0, 20, 0, 21, 0, 0, 22, 23,
- 0, -65, 66, 24, 6, 7, 0, 0, 8, 9,
- 0, 0, 0, 0, 1, 0, 10, 11, 0, 0,
+ 207, 213, 7, 231, 63, 219, 65, 68, 1, 242,
+ 136, 143, 243, 136, 1, 142, 4, 230, 120, 64,
+ 289, 31, 36, 290, 122, 37, -84, 255, 50, -84,
+ 209, 210, 119, 119, 221, 265, 267, 268, 269, 136,
+ 271, 272, 273, 136, 276, 1, 119, 119, 1, 134,
+ 177, 137, 37, 22, 137, 190, 222, 38, 137, 189,
+ -84, -84, -84, 247, 277, -74, 92, 93, 195, 144,
+ 145, 280, 147, 148, 149, 150, 151, 152, -84, 287,
+ 137, 166, 91, 206, 137, 137, 124, 125, 24, 51,
+ 174, 299, 24, 214, 38, 138, 130, 38, 193, -92,
+ -75, 35, 172, 239, 225, 71, 90, 92, 93, 47,
+ 48, 49, 132, 133, 55, 55, 121, 55, 61, 202,
+ 123, 126, 127, 35, 135, 70, 35, 55, 92, 93,
+ 240, 146, 201, 164, 153, 154, 205, 35, 226, 227,
+ 228, 35, 309, 162, 165, 167, 311, 38, 55, 85,
+ 86, 87, 88, 89, 203, 196, 90, 211, 212, 172,
+ 55, 216, 224, 172, 87, 88, 89, 138, 200, 90,
+ 246, 254, 270, 241, 283, 300, 282, 64, 319, 320,
+ 67, 55, 55, 55, 55, 55, 55, 258, 285, 248,
+ 0, 60, 0, 0, 0, 252, 0, 0, 0, 0,
+ 0, 0, 0, 257, 249, 0, 176, 187, 0, 55,
+ 119, 0, 0, 0, 0, 55, 0, 0, 0, 41,
+ 41, 260, 261, 262, 263, 0, 55, 0, 0, 278,
+ 55, 0, 279, 0, 0, 281, 0, 41, 284, 176,
+ 55, 55, 0, 55, 55, 55, 55, 55, 55, 47,
+ 47, 0, 0, 0, 0, 0, 0, 288, 0, 0,
+ 0, 0, 0, 217, 0, 58, 139, 0, 55, 0,
+ 0, 0, 0, 0, 0, 47, 55, 302, 294, 304,
+ 296, 55, 305, 306, 0, 308, 176, 0, 0, 0,
+ 0, 0, 0, 0, 314, 315, 0, 55, 0, 0,
+ 172, 55, 0, 0, 172, 0, 0, 55, 55, 0,
+ 41, 41, 55, 0, 41, 0, 41, 0, 0, 0,
+ 194, 0, 41, 0, 0, 0, 187, 187, 187, 187,
+ 0, 187, 187, 187, 0, 198, 199, 0, 54, 56,
+ 0, 59, 0, 0, 0, 55, 0, 0, 0, 0,
+ 0, 84, 0, 0, 0, 182, 55, 55, 55, 55,
+ 0, 55, 0, 55, 55, 55, 0, 55, 55, 55,
+ 187, 0, 59, 41, 0, 0, 291, 0, 293, 0,
+ 41, 0, 187, 55, 84, 0, 0, 0, 0, 0,
+ 55, 0, 55, 7, 0, 55, 8, 9, 232, 307,
+ 0,-32768, 310, 0, 0, 155, 156, 157, 158, 159,
+ 160, 316, 317, 44, 0, 250, 0, 0, 0, 253,
+ 0, 0, 41, 0, 223, 14, 15, 259, 0, 0,
+ 72, 186, 0, 84, 0, 0, 18, 19, 41, 84,
+ 0, 52, 0, 0, 22, 53, 0, 275, 0, 0,
+ 197, 0, 0, 0, 84, 116, 0, 0, 0, 0,
+ 0, 0, 0, 0, 84, 84, 0, 84, 84, 84,
+ 84, 84, 84, 0, 182, 182, 182, 182, 0, 182,
+ 182, 182, 0, 0, 0, 0, 295, 0, 0, 41,
+ 116, 0, 84, 0, 41, 0, 0, 301, 0, 0,
+ 59, 0, 0, 168, 169, 238, 0, 170, 0, 173,
+ 0, 0, 312, 0, 313, 188, 0, 0, 182, 0,
+ 0, 84, 0, 0, 0, 84, 0, 0, 0, 116,
+ 182, 84, 84, 0, 116, 192, 84, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 12, 13, 0, 0, 0, 0, 14, 15, 16,
- 17, 0, 0, 0, 0, 0, 0, 18, 19, 0,
- 20, 0, 21, 6, 7, 22, 23, 8, 9, 0,
- 24, 0, 0, 0, 0, 0, 0, 94, 0, 95,
- 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
- 0, 13, 106, 0, 0, 0, 14, 15, 16, 17,
- 0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 0, 21, 0, 0, 22, 23, 0, 0, 0, 24,
- 0, 38, 6, 7, 0, 0, 8, 9, 73, 0,
- 0, 74, 1, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 6, 7, 0, 0, 8, 9, 0,
- 0, 0, 75, 76, 77, 14, 15, 16, 17, 78,
- 0, 0, 80, 81, 82, 18, 19, 0, 0, 0,
- 52, 13, 0, 22, 53, 0, 14, 15, 16, 17,
- 38, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 62, 21, 6, 7, 22, 23, 8, 9, 0, 0,
- 0, 38, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 62, 0, 6, 7, 0, 0, 8, 9, 0,
- 13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
- 0, 0, 0, 0, 0, 18, 19, 0, 20, 0,
- 21, 13, 0, 22, 23, -90, 14, 15, 16, 17,
+ 186, 186, 186, 186, 0, 186, 186, 186, 0, 0,
+ 0, 0, 116, 192, 0, 0, 215, 0, 0, 84,
+ 0, 0, 0, 220, 0, 0, 0, 0, 0, 0,
+ 84, 84, 84, 84, 0, 238, 116, 238, 238, 238,
+ 0, 238, 238, 238, 186, 0, 0, 192, 0, 0,
+ 0, 0, 0, 0, 0, 0, 186, 238, 0, 116,
+ 0, 0, 0, 0, 84, 251, 84, 0, 0, 238,
+ 0, 0, 0, 0, 0, 0, 192, 0, 0, 0,
+ 94, 264, 6, 7, 0, 0, 8, 9, 0, 256,
+ 0, 0, 0, 0, 0, 0, 95, 0, 96, 97,
+ 98, 99, 100, 101, 102, 103, 104, 105, 106, 0,
+ 13, 107, 0, 0, 0, 14, 15, 16, 17, 0,
0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 202, 21, 6, 7, 22, 23, 8, 9, 0, 0,
+ 0, 21, 292, 0, 22, 23, 0, 298, 0, 24,
+ 108, 38, 0, 0, 0, 0, 0, 0, 0, 116,
+ 0, 116, 0, 0, 297, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 303, 0, 0, 0,
+ 0, 175, 116, 6, 7, 116, 0, 8, 9, 0,
+ 0, 0, 0, 0, 116, 116, 0, 95, 0, 96,
+ 97, 98, 99, 100, 101, 102, 103, 104, 105, 106,
+ 0, 13, 107, 0, 0, 0, 14, 15, 16, 17,
+ 0, 0, 0, 0, 0, 0, 0, 18, 19, 0,
+ 20, 0, 21, 0, 0, 22, 23, 0, 0, 0,
+ 24, 108, 38, 178, 0, 6, 7, 0, 0, 8,
+ 9, 0, -83, 0, 0, -83, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 262, 0, 6, 7, 0, 0, 8, 9, 0,
+ 0, 0, 0, 179, 0, 0, 0, 0, 14, 15,
+ 16, 17, 0, 0, 0, 0, -83, -83, -83, 18,
+ 19, 0, 20, 0, 180, 0, 0, 22, 181, -6,
+ 5, 0, 6, 7, -83, 0, 8, 9, 0, 0,
+ 0, 0, -6, 0, 10, 11, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 12,
13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
- 0, 0, 0, 0, 0, 18, 19, 0, 20, 0,
- 21, 177, 0, 22, 23, 0, 14, 15, 16, 17,
0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 0, 178, 6, 7, 22, 53, 8, 9, 73, 0,
- 0, 74, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 21, 0, 0, 22, 23, 0, -65, 66, 24,
+ 6, 7, 0, 0, 8, 9, 0, 0, 0, 0,
+ 1, 0, 10, 11, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 12, 13, 0,
+ 0, 0, 0, 14, 15, 16, 17, 0, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 20, 0, 21,
+ 6, 7, 22, 23, 8, 9, 0, 24, 0, 0,
+ 0, 0, 0, 0, 95, 0, 96, 97, 98, 99,
+ 100, 101, 102, 103, 104, 105, 106, 0, 13, 107,
+ 0, 0, 0, 14, 15, 16, 17, 0, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 20, 0, 21,
+ 0, 0, 22, 23, 0, 0, 0, 24, 0, 38,
+ 6, 7, 0, 0, 8, 9, 73, 0, 0, 74,
+ 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 75, 76, 77, 14, 15, 16, 17, 78,
- 0, 0, 80, 81, 82, 18, 19, 0, 0, 0,
- 52, 0, 0, 22, 53, 137, 6, 7, 0, 0,
+ 75, 76, 77, 14, 15, 16, 17, 78, 0, 0,
+ 80, 81, 82, 83, 18, 19, 0, 0, 0, 52,
+ 0, 0, 22, 53, 0, 0, 6, 7, 0, 38,
8, 9, 73, 0, 0, 74, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 6, 7,
+ 0, 0, 8, 9, 0, 0, 75, 76, 77, 14,
+ 15, 16, 17, 78, 0, 0, 80, 81, 82, 83,
+ 18, 19, 0, 0, 0, 52, 13, 0, 22, 53,
+ 0, 14, 15, 16, 17, 38, 0, 0, 0, 0,
+ 0, 0, 18, 19, 0, 20, 62, 21, 6, 7,
+ 22, 23, 8, 9, 0, 0, 0, 38, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 62, 0,
+ 6, 7, 0, 0, 8, 9, 13, 0, 0, 0,
+ 0, 14, 15, 16, 17, 0, 0, 0, 0, 0,
+ 0, 0, 18, 19, 0, 20, 0, 21, 13, 0,
+ 22, 23, -91, 14, 15, 16, 17, 0, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 20, 204, 21,
+ 6, 7, 22, 23, 8, 9, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 7, 0, 0, 8, 9,-32768, 75, 76, 77, 14,
- 15, 16, 17, 78, 0, 79, 80, 81, 82, 18,
- 19, 0, 0, 0, 52, 6, 7, 22, 53, 8,
- 9, 73, 14, 15, 74, 0, 0, 0, 0,-32768,
--32768,-32768, 18, 19, 0, 0, 0, 52, 0, 0,
- 22, 53, 0, 0, 0, 75, 76, 77, 14, 15,
- 16, 17, 78, 206, 0, 80, 81, 82, 18, 19,
+ 266, 0, 6, 7, 0, 0, 8, 9, 13, 0,
+ 0, 0, 0, 14, 15, 16, 17, 0, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 20, 0, 21,
+ 179, 0, 22, 23, 0, 14, 15, 16, 17, 6,
+ 7, 0, 0, 8, 9, 73, 18, 19, 74, 20,
+ 0, 180, 0, 7, 22, 53, 8, 9,-32768, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 75,
+ 76, 77, 14, 15, 16, 17, 78, 0, 0, 80,
+ 81, 82, 83, 18, 19, 14, 15, 0, 52, 0,
+ 0, 22, 53, 138, 6, 7, 18, 19, 8, 9,
+ 73, 52, 0, 74, 22, 53, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 75, 76, 77, 14, 15, 16,
+ 17, 78, 0, 79, 80, 81, 82, 83, 18, 19,
+ 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
+ 73, 0, 0, 74, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 75, 76, 77, 14, 15, 16,
+ 17, 78, 208, 0, 80, 81, 82, 83, 18, 19,
0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
73, 0, 0, 74, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 75, 76, 77, 14, 15, 16,
- 17, 78, 0, 0, 80, 81, 82, 18, 19, 0,
- 0, 0, 52, 6, 7, 22, 53, 8, 9, 73,
- 0, 0, 74, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 6, 7, 0, 0,
- 8, 9, 229, 75, 76, 230, 14, 15, 16, 17,
- 0, 0, 0, 80, 81, 82, 18, 19, 0, 0,
- 0, 52, 0, 0, 22, 53, 231, 232, 233, 14,
- 15, 16, 17, 234, 282, 0, 0, 6, 7, 18,
- 19, 8, 9, 73, 52, 0, 74, 22, 53, 0,
+ 17, 78, 0, 0, 80, 81, 82, 83, 18, 19,
+ 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
+ 73, 0, 0, 74, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 75, 76, 0, 14, 15, 16,
+ 17, 0, 0, 0, 80, 81, 82, 83, 18, 19,
+ 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
+ 73, 0, 0, 74, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 75, 0, 0, 14, 15, 16,
+ 17, 0, 0, 0, 80, 81, 82, 83, 18, 19,
+ 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
+ 232, 0, 0, 233, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 234, 235, 236, 14, 15, 16,
+ 17, 237, 286, 0, 0, 0, 6, 7, 18, 19,
+ 8, 9, 232, 52, 0, 233, 22, 53, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 6, 7, 0, 0, 8, 9, 229, 75, 0, 230,
- 14, 15, 16, 17, 0, 0, 0, 80, 81, 82,
- 18, 19, 0, 0, 0, 52, 0, 0, 22, 53,
- 231, 232, 233, 14, 15, 16, 17, 234, 0, 0,
- 0, 6, 7, 18, 19, 8, 9, 229, 52, 0,
- 230, 22, 53, 0, 0, 0, 0, 0, 0, 0,
- 0, 6, 7, 0, 0, 8, 9, 229, 0, 0,
- 230, 231, 232, 0, 14, 15, 16, 17, 0, 0,
- 0, 0, 6, 7, 18, 19, 8, 9, 0, 52,
- 0, 231, 22, 53, 14, 15, 16, 17, 0, 0,
- 0, 0, 0, 0, 18, 19, 0, 0, 0, 52,
- 13, 0, 22, 53, 0, 14, 15, 16, 17, 6,
- 215, 0, 0, 8, 9, 18, 19, 0, 20, 0,
- 21, 0, 0, 22, 23, 0, 0, 0, 0, 0,
- 6, 7, 0, 0, 8, 9, 0, 13, 0, 0,
- 0, 0, 14, 15, 16, 17, 0, 0, 0, 0,
- 0, 0, 18, 19, 0, 20, 0, 21, 177, 0,
- 22, 23, 0, 14, 15, 16, 17, 6, 7, 0,
- 0, 8, 9, 18, 19, 0, 20, 0, 178, 0,
- 0, 22, 53, 0, 0, 0, 0, 6, 7, 0,
- 0, 8, 9, 0, 0, 0, 0, 0, 0, 0,
- 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
- 18, 19, 0, 20, 0, 52, 0, 0, 22, 53,
- 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
- 18, 19, 0, 0, 0, 52, 0, 0, 22, 53
+ 0, 0, 0, 0, 0, 0, 234, 235, 236, 14,
+ 15, 16, 17, 237, 0, 0, 0, 0, 6, 7,
+ 18, 19, 8, 9, 232, 52, 0, 233, 22, 53,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 234, 235,
+ 0, 14, 15, 16, 17, 6, 7, 0, 0, 8,
+ 9, 232, 18, 19, 233, 0, 0, 52, 0, 0,
+ 22, 53, 0, 0, 0, 0, 0, 6, 7, 0,
+ 0, 8, 9, 0, 0, 234, 0, 0, 14, 15,
+ 16, 17, 0, 0, 0, 0, 0, 0, 0, 18,
+ 19, 0, 0, 0, 52, 13, 0, 22, 53, 0,
+ 14, 15, 16, 17, 6, 218, 0, 0, 8, 9,
+ 0, 18, 19, 0, 20, 0, 21, 0, 0, 22,
+ 23, 0, 0, 0, 0, 0, 6, 7, 0, 0,
+ 8, 9, 13, 0, 0, 0, 0, 14, 15, 16,
+ 17, 0, 0, 0, 0, 0, 0, 0, 18, 19,
+ 0, 20, 0, 21, 179, 0, 22, 23, 0, 14,
+ 15, 16, 17, 6, 7, 0, 0, 8, 9, 0,
+ 18, 19, 0, 20, 0, 180, 0, 0, 22, 53,
+ 0, 0, 0, 0, 6, 7, 0, 0, 8, 9,
+ 0, 0, 0, 0, 0, 0, 14, 15, 16, 17,
+ 0, 0, 0, 0, 0, 0, 0, 18, 19, 0,
+ 20, 0, 52, 0, 0, 22, 53, 14, 15, 16,
+ 17, 0, 7, 0, 0, 8, 9, 73, 18, 19,
+-32768, 0, 0, 52, 0, 0, 22, 53, 0, 7,
+ 0, 0, 8, 9,-32768, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 14, 15, 0, 0, 0, 0,
+ 0, 80, 81, 82, 83, 18, 19, 0, 0, 0,
+ 52, 14, 15, 22, 53, 0, 0, 0,-32768,-32768,
+-32768,-32768, 18, 19, 0, 0, 0, 52, 0, 0,
+ 22, 53
};
static const short yycheck[] = { 3,
- 70, 105, 108, 142, 182, 13, 13, 1, 23, 1,
- 4, 1, 13, 4, 55, 11, 70, 152, 57, 23,
- 33, 25, 37, 55, 227, 228, 229, 230, 55, 232,
- 233, 234, 36, 37, 59, 141, 175, 1, 108, 1,
- 36, 37, 177, 113, 57, 43, 50, 51, 10, 53,
- 42, 13, 42, 61, 13, 1, 1, 161, 164, 113,
- 53, 165, 56, 54, 242, 204, 58, 270, 58, 73,
- 74, 141, 76, 77, 78, 79, 80, 81, 42, 282,
- 42, 187, 44, 45, 13, 5, 4, 3, 4, 7,
- 8, 9, 56, 4, 12, 31, 42, 42, 57, 61,
- 104, 105, 61, 1, 55, 10, 4, 13, 14, 15,
- 56, 56, 18, 19, 4, 21, 22, 187, 36, 37,
- 24, 25, 38, 39, 55, 31, 3, 11, 46, 47,
- 59, 135, 61, 51, 28, 139, 54, 55, 42, 44,
- 45, 36, 37, 50, 51, 39, 52, 55, 25, 43,
- 27, 28, 36, 37, 56, 159, 160, 161, 64, 163,
- 61, 165, 39, 55, 179, 33, 43, 49, 274, 4,
- 276, 21, 48, 49, 50, 179, 280, 53, 84, 85,
- 86, 87, 88, 89, 4, 55, 4, 18, 292, 0,
- 0, 25, 298, 256, 98, 301, 211, 220, 22, 305,
- -1, 307, 206, 107, 110, -1, 112, 211, 10, 11,
- -1, 115, 118, -1, -1, -1, -1, -1, -1, 223,
- 224, 225, -1, 129, -1, -1, 28, 133, -1, -1,
- -1, 21, 136, -1, -1, -1, -1, 143, 144, -1,
- 146, 147, 148, 149, 150, 151, 152, -1, -1, 253,
- 46, 47, 48, 49, 50, -1, -1, 53, -1, -1,
- -1, -1, -1, 169, -1, -1, -1, -1, -1, -1,
- -1, 177, 178, 277, -1, -1, 280, 183, -1, -1,
- -1, -1, -1, -1, -1, 189, -1, -1, 292, -1,
- -1, -1, -1, 199, -1, -1, -1, 203, 100, 101,
- -1, 205, 208, 209, 106, -1, -1, 213, -1, -1,
- 112, -1, -1, -1, -1, 219, -1, -1, -1, -1,
- 110, 227, 228, 229, 230, 11, 232, 233, 234, -1,
- -1, -1, -1, -1, -1, 18, 19, -1, 21, -1,
- 246, -1, 28, 247, -1, -1, 250, -1, 31, -1,
- -1, 257, 258, 259, -1, 261, -1, 263, 264, 265,
- 162, 267, 268, 269, 270, -1, 168, 271, 170, 52,
- -1, -1, -1, 279, -1, -1, 282, 283, -1, -1,
- -1, 64, -1, -1, 290, -1, -1, 291, 178, 295,
- -1, -1, 296, 297, -1, -1, 300, -1, -1, -1,
- 304, 84, 85, 86, 87, 88, 89, -1, 210, -1,
- -1, -1, -1, -1, 100, 101, -1, -1, -1, -1,
- 106, -1, -1, -1, 226, -1, 112, 110, -1, 112,
- -1, -1, -1, -1, -1, 118, -1, 227, 228, 229,
- 230, -1, 232, 233, 234, -1, 129, -1, -1, -1,
- 133, -1, -1, -1, 35, -1, -1, -1, -1, -1,
- 143, 144, -1, 146, 147, 148, 149, 150, 151, 63,
- -1, -1, -1, 275, -1, -1, 162, -1, -1, 281,
- 270, -1, 168, -1, 170, -1, 169, -1, -1, 70,
- -1, -1, 282, -1, -1, 178, -1, -1, -1, -1,
- 183, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 199, -1, -1, -1,
- 203, -1, 116, -1, 210, 208, 209, 108, -1, -1,
- 213, -1, 113, 114, -1, -1, -1, 131, 132, -1,
- 226, -1, -1, -1, 227, 228, 229, 230, -1, 232,
- 233, 234, -1, -1, -1, -1, -1, -1, -1, -1,
- 141, 142, -1, 246, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 257, 258, 259, -1, 261, -1,
- 263, 264, 265, 164, 267, 268, 269, 270, -1, 275,
- -1, -1, -1, -1, 175, 281, 279, -1, -1, 282,
- 283, -1, -1, -1, -1, -1, 187, 290, -1, -1,
- -1, -1, 295, -1, -1, 209, -1, -1, -1, 213,
- -1, -1, -1, 204, -1, 3, 4, -1, 222, 7,
- 8, 9, -1, -1, 12, 216, -1, -1, 4, -1,
- -1, 7, 8, 9, -1, -1, -1, 241, -1, -1,
- -1, -1, -1, -1, -1, 33, 34, 35, 36, 37,
- 38, 39, 40, -1, -1, 43, 44, 45, 46, 47,
- 36, 37, 253, 51, -1, -1, 54, 55, -1, -1,
- 46, 47, -1, 61, 278, 51, -1, -1, 54, 55,
- -1, -1, -1, 274, -1, 276, 290, -1, 279, 293,
- -1, -1, -1, -1, -1, 299, -1, -1, -1, 1,
- -1, 3, 4, -1, -1, 7, 8, 298, -1, -1,
- 301, -1, -1, -1, 305, 17, 307, 19, 20, 21,
- 22, 23, 24, 25, 26, 27, 28, 29, -1, 31,
- 32, -1, -1, -1, 36, 37, 38, 39, -1, -1,
- -1, -1, -1, -1, 46, 47, -1, 49, 1, 51,
- 3, 4, 54, 55, 7, 8, -1, 59, 60, 61,
- -1, -1, -1, -1, 17, -1, 19, 20, 21, 22,
- 23, 24, 25, 26, 27, 28, 29, -1, 31, 32,
- -1, -1, -1, 36, 37, 38, 39, 4, -1, -1,
- 7, 8, 9, 46, 47, 12, 49, -1, 51, -1,
- -1, 54, 55, -1, -1, -1, 59, 60, 61, 1,
- -1, 3, 4, -1, -1, 7, 8, -1, 10, 36,
- 37, 13, -1, -1, -1, -1, 43, 44, 45, 46,
- 47, -1, -1, -1, 51, -1, -1, 54, 55, 31,
- -1, -1, -1, -1, 36, 37, 38, 39, -1, -1,
- -1, -1, 44, 45, 46, 47, -1, 49, -1, 51,
- -1, -1, 54, 55, 0, 1, -1, 3, 4, 61,
- -1, 7, 8, -1, -1, -1, -1, 13, -1, 15,
- 16, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 30, 31, -1, -1, -1, -1,
- 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
- 46, 47, -1, 49, -1, 51, -1, -1, 54, 55,
- -1, 0, 1, 59, 3, 4, -1, -1, 7, 8,
- -1, -1, -1, -1, 13, -1, 15, 16, -1, -1,
+ 143, 163, 4, 184, 23, 167, 24, 25, 13, 1,
+ 1, 70, 4, 1, 13, 70, 13, 1, 37, 23,
+ 1, 25, 56, 4, 42, 58, 10, 33, 56, 13,
+ 153, 154, 36, 37, 177, 230, 231, 232, 233, 1,
+ 235, 236, 237, 1, 1, 13, 50, 51, 13, 53,
+ 109, 42, 58, 55, 42, 114, 179, 62, 42, 114,
+ 44, 45, 46, 206, 245, 57, 36, 37, 59, 73,
+ 74, 59, 76, 77, 78, 79, 80, 81, 62, 274,
+ 42, 99, 11, 142, 42, 42, 3, 4, 60, 56,
+ 108, 286, 60, 58, 62, 57, 43, 62, 116, 57,
+ 57, 3, 106, 11, 10, 28, 54, 36, 37, 13,
+ 14, 15, 50, 51, 18, 19, 39, 21, 22, 137,
+ 43, 38, 39, 25, 5, 27, 28, 31, 36, 37,
+ 189, 4, 136, 4, 31, 31, 140, 39, 44, 45,
+ 46, 43, 304, 56, 56, 56, 308, 62, 52, 47,
+ 48, 49, 50, 51, 33, 56, 54, 161, 162, 163,
+ 64, 165, 181, 167, 49, 50, 51, 57, 50, 54,
+ 4, 21, 4, 191, 4, 18, 56, 181, 0, 0,
+ 25, 85, 86, 87, 88, 89, 90, 222, 259, 207,
+ -1, 22, -1, -1, -1, 214, -1, -1, -1, -1,
+ -1, -1, -1, 221, 208, -1, 109, 111, -1, 113,
+ 214, -1, -1, -1, -1, 119, -1, -1, -1, 10,
+ 11, 225, 226, 227, 228, -1, 130, -1, -1, 247,
+ 134, -1, 250, -1, -1, 253, -1, 28, 256, 142,
+ 144, 145, -1, 147, 148, 149, 150, 151, 152, 153,
+ 154, -1, -1, -1, -1, -1, -1, 275, -1, -1,
+ -1, -1, -1, 166, -1, 21, 63, -1, 172, -1,
+ -1, -1, -1, -1, -1, 179, 180, 295, 282, 297,
+ 284, 185, 300, 301, -1, 303, 189, -1, -1, -1,
+ -1, -1, -1, -1, 312, 313, -1, 201, -1, -1,
+ 304, 205, -1, -1, 308, -1, -1, 211, 212, -1,
+ 101, 102, 216, -1, 105, -1, 107, -1, -1, -1,
+ 117, -1, 113, -1, -1, -1, 230, 231, 232, 233,
+ -1, 235, 236, 237, -1, 132, 133, -1, 18, 19,
+ -1, 21, -1, -1, -1, 249, -1, -1, -1, -1,
+ -1, 31, -1, -1, -1, 111, 260, 261, 262, 263,
+ -1, 265, -1, 267, 268, 269, -1, 271, 272, 273,
+ 274, -1, 52, 164, -1, -1, 279, -1, 281, -1,
+ 171, -1, 286, 287, 64, -1, -1, -1, -1, -1,
+ 294, -1, 296, 4, -1, 299, 7, 8, 9, 302,
+ -1, 12, 305, -1, -1, 85, 86, 87, 88, 89,
+ 90, 314, 315, 11, -1, 212, -1, -1, -1, 216,
+ -1, -1, 213, -1, 180, 36, 37, 224, -1, -1,
+ 28, 111, -1, 113, -1, -1, 47, 48, 229, 119,
+ -1, 52, -1, -1, 55, 56, -1, 244, -1, -1,
+ 130, -1, -1, -1, 134, 35, -1, -1, -1, -1,
+ -1, -1, -1, -1, 144, 145, -1, 147, 148, 149,
+ 150, 151, 152, -1, 230, 231, 232, 233, -1, 235,
+ 236, 237, -1, -1, -1, -1, 283, -1, -1, 280,
+ 70, -1, 172, -1, 285, -1, -1, 294, -1, -1,
+ 180, -1, -1, 101, 102, 185, -1, 105, -1, 107,
+ -1, -1, 309, -1, 311, 113, -1, -1, 274, -1,
+ -1, 201, -1, -1, -1, 205, -1, -1, -1, 109,
+ 286, 211, 212, -1, 114, 115, 216, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 30, 31, -1, -1, -1, -1, 36, 37, 38,
- 39, -1, -1, -1, -1, -1, -1, 46, 47, -1,
- 49, -1, 51, 3, 4, 54, 55, 7, 8, -1,
- 59, -1, -1, -1, -1, -1, -1, 17, -1, 19,
+ 230, 231, 232, 233, -1, 235, 236, 237, -1, -1,
+ -1, -1, 142, 143, -1, -1, 164, -1, -1, 249,
+ -1, -1, -1, 171, -1, -1, -1, -1, -1, -1,
+ 260, 261, 262, 263, -1, 265, 166, 267, 268, 269,
+ -1, 271, 272, 273, 274, -1, -1, 177, -1, -1,
+ -1, -1, -1, -1, -1, -1, 286, 287, -1, 189,
+ -1, -1, -1, -1, 294, 213, 296, -1, -1, 299,
+ -1, -1, -1, -1, -1, -1, 206, -1, -1, -1,
+ 1, 229, 3, 4, -1, -1, 7, 8, -1, 219,
+ -1, -1, -1, -1, -1, -1, 17, -1, 19, 20,
+ 21, 22, 23, 24, 25, 26, 27, 28, 29, -1,
+ 31, 32, -1, -1, -1, 36, 37, 38, 39, -1,
+ -1, -1, -1, -1, -1, -1, 47, 48, -1, 50,
+ -1, 52, 280, -1, 55, 56, -1, 285, -1, 60,
+ 61, 62, -1, -1, -1, -1, -1, -1, -1, 279,
+ -1, 281, -1, -1, 284, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 296, -1, -1, -1,
+ -1, 1, 302, 3, 4, 305, -1, 7, 8, -1,
+ -1, -1, -1, -1, 314, 315, -1, 17, -1, 19,
20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
-1, 31, 32, -1, -1, -1, 36, 37, 38, 39,
- -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
- -1, 51, -1, -1, 54, 55, -1, -1, -1, 59,
- -1, 61, 3, 4, -1, -1, 7, 8, 9, -1,
- -1, 12, 13, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 3, 4, -1, -1, 7, 8, -1,
- -1, -1, 33, 34, 35, 36, 37, 38, 39, 40,
- -1, -1, 43, 44, 45, 46, 47, -1, -1, -1,
- 51, 31, -1, 54, 55, -1, 36, 37, 38, 39,
- 61, -1, -1, -1, -1, -1, 46, 47, -1, 49,
- 1, 51, 3, 4, 54, 55, 7, 8, -1, -1,
- -1, 61, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 1, -1, 3, 4, -1, -1, 7, 8, -1,
- 31, -1, -1, -1, -1, 36, 37, 38, 39, -1,
- -1, -1, -1, -1, -1, 46, 47, -1, 49, -1,
- 51, 31, -1, 54, 55, 56, 36, 37, 38, 39,
- -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
- 1, 51, 3, 4, 54, 55, 7, 8, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 47, 48, -1,
+ 50, -1, 52, -1, -1, 55, 56, -1, -1, -1,
+ 60, 61, 62, 1, -1, 3, 4, -1, -1, 7,
+ 8, -1, 10, -1, -1, 13, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 1, -1, 3, 4, -1, -1, 7, 8, -1,
+ -1, -1, -1, 31, -1, -1, -1, -1, 36, 37,
+ 38, 39, -1, -1, -1, -1, 44, 45, 46, 47,
+ 48, -1, 50, -1, 52, -1, -1, 55, 56, 0,
+ 1, -1, 3, 4, 62, -1, 7, 8, -1, -1,
+ -1, -1, 13, -1, 15, 16, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, 30,
31, -1, -1, -1, -1, 36, 37, 38, 39, -1,
- -1, -1, -1, -1, -1, 46, 47, -1, 49, -1,
- 51, 31, -1, 54, 55, -1, 36, 37, 38, 39,
- -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
- -1, 51, 3, 4, 54, 55, 7, 8, 9, -1,
- -1, 12, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 47, 48, -1, 50,
+ -1, 52, -1, -1, 55, 56, -1, 0, 1, 60,
+ 3, 4, -1, -1, 7, 8, -1, -1, -1, -1,
+ 13, -1, 15, 16, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 30, 31, -1,
+ -1, -1, -1, 36, 37, 38, 39, -1, -1, -1,
+ -1, -1, -1, -1, 47, 48, -1, 50, -1, 52,
+ 3, 4, 55, 56, 7, 8, -1, 60, -1, -1,
+ -1, -1, -1, -1, 17, -1, 19, 20, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, -1, 31, 32,
+ -1, -1, -1, 36, 37, 38, 39, -1, -1, -1,
+ -1, -1, -1, -1, 47, 48, -1, 50, -1, 52,
+ -1, -1, 55, 56, -1, -1, -1, 60, -1, 62,
+ 3, 4, -1, -1, 7, 8, 9, -1, -1, 12,
+ 13, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 33, 34, 35, 36, 37, 38, 39, 40,
- -1, -1, 43, 44, 45, 46, 47, -1, -1, -1,
- 51, -1, -1, 54, 55, 56, 3, 4, -1, -1,
+ 33, 34, 35, 36, 37, 38, 39, 40, -1, -1,
+ 43, 44, 45, 46, 47, 48, -1, -1, -1, 52,
+ -1, -1, 55, 56, -1, -1, 3, 4, -1, 62,
7, 8, 9, -1, -1, 12, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 3, 4,
+ -1, -1, 7, 8, -1, -1, 33, 34, 35, 36,
+ 37, 38, 39, 40, -1, -1, 43, 44, 45, 46,
+ 47, 48, -1, -1, -1, 52, 31, -1, 55, 56,
+ -1, 36, 37, 38, 39, 62, -1, -1, -1, -1,
+ -1, -1, 47, 48, -1, 50, 1, 52, 3, 4,
+ 55, 56, 7, 8, -1, -1, -1, 62, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 1, -1,
+ 3, 4, -1, -1, 7, 8, 31, -1, -1, -1,
+ -1, 36, 37, 38, 39, -1, -1, -1, -1, -1,
+ -1, -1, 47, 48, -1, 50, -1, 52, 31, -1,
+ 55, 56, 57, 36, 37, 38, 39, -1, -1, -1,
+ -1, -1, -1, -1, 47, 48, -1, 50, 1, 52,
+ 3, 4, 55, 56, 7, 8, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 1, -1, 3, 4, -1, -1, 7, 8, 31, -1,
+ -1, -1, -1, 36, 37, 38, 39, -1, -1, -1,
+ -1, -1, -1, -1, 47, 48, -1, 50, -1, 52,
+ 31, -1, 55, 56, -1, 36, 37, 38, 39, 3,
+ 4, -1, -1, 7, 8, 9, 47, 48, 12, 50,
+ -1, 52, -1, 4, 55, 56, 7, 8, 9, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, 33,
+ 34, 35, 36, 37, 38, 39, 40, -1, -1, 43,
+ 44, 45, 46, 47, 48, 36, 37, -1, 52, -1,
+ -1, 55, 56, 57, 3, 4, 47, 48, 7, 8,
+ 9, 52, -1, 12, 55, 56, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 4, -1, -1, 7, 8, 9, 33, 34, 35, 36,
- 37, 38, 39, 40, -1, 42, 43, 44, 45, 46,
- 47, -1, -1, -1, 51, 3, 4, 54, 55, 7,
- 8, 9, 36, 37, 12, -1, -1, -1, -1, 43,
- 44, 45, 46, 47, -1, -1, -1, 51, -1, -1,
- 54, 55, -1, -1, -1, 33, 34, 35, 36, 37,
- 38, 39, 40, 41, -1, 43, 44, 45, 46, 47,
- -1, -1, -1, 51, 3, 4, 54, 55, 7, 8,
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, 38,
+ 39, 40, -1, 42, 43, 44, 45, 46, 47, 48,
+ -1, -1, -1, 52, 3, 4, 55, 56, 7, 8,
9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 33, 34, 35, 36, 37, 38,
- 39, 40, -1, -1, 43, 44, 45, 46, 47, -1,
- -1, -1, 51, 3, 4, 54, 55, 7, 8, 9,
- -1, -1, 12, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 3, 4, -1, -1,
- 7, 8, 9, 33, 34, 12, 36, 37, 38, 39,
- -1, -1, -1, 43, 44, 45, 46, 47, -1, -1,
- -1, 51, -1, -1, 54, 55, 33, 34, 35, 36,
- 37, 38, 39, 40, 41, -1, -1, 3, 4, 46,
- 47, 7, 8, 9, 51, -1, 12, 54, 55, -1,
+ 39, 40, 41, -1, 43, 44, 45, 46, 47, 48,
+ -1, -1, -1, 52, 3, 4, 55, 56, 7, 8,
+ 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 3, 4, -1, -1, 7, 8, 9, 33, -1, 12,
- 36, 37, 38, 39, -1, -1, -1, 43, 44, 45,
- 46, 47, -1, -1, -1, 51, -1, -1, 54, 55,
- 33, 34, 35, 36, 37, 38, 39, 40, -1, -1,
- -1, 3, 4, 46, 47, 7, 8, 9, 51, -1,
- 12, 54, 55, -1, -1, -1, -1, -1, -1, -1,
- -1, 3, 4, -1, -1, 7, 8, 9, -1, -1,
- 12, 33, 34, -1, 36, 37, 38, 39, -1, -1,
- -1, -1, 3, 4, 46, 47, 7, 8, -1, 51,
- -1, 33, 54, 55, 36, 37, 38, 39, -1, -1,
- -1, -1, -1, -1, 46, 47, -1, -1, -1, 51,
- 31, -1, 54, 55, -1, 36, 37, 38, 39, 3,
- 4, -1, -1, 7, 8, 46, 47, -1, 49, -1,
- 51, -1, -1, 54, 55, -1, -1, -1, -1, -1,
- 3, 4, -1, -1, 7, 8, -1, 31, -1, -1,
- -1, -1, 36, 37, 38, 39, -1, -1, -1, -1,
- -1, -1, 46, 47, -1, 49, -1, 51, 31, -1,
- 54, 55, -1, 36, 37, 38, 39, 3, 4, -1,
- -1, 7, 8, 46, 47, -1, 49, -1, 51, -1,
- -1, 54, 55, -1, -1, -1, -1, 3, 4, -1,
- -1, 7, 8, -1, -1, -1, -1, -1, -1, -1,
- 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
- 46, 47, -1, 49, -1, 51, -1, -1, 54, 55,
- 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
- 46, 47, -1, -1, -1, 51, -1, -1, 54, 55
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, 38,
+ 39, 40, -1, -1, 43, 44, 45, 46, 47, 48,
+ -1, -1, -1, 52, 3, 4, 55, 56, 7, 8,
+ 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 33, 34, -1, 36, 37, 38,
+ 39, -1, -1, -1, 43, 44, 45, 46, 47, 48,
+ -1, -1, -1, 52, 3, 4, 55, 56, 7, 8,
+ 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 33, -1, -1, 36, 37, 38,
+ 39, -1, -1, -1, 43, 44, 45, 46, 47, 48,
+ -1, -1, -1, 52, 3, 4, 55, 56, 7, 8,
+ 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, 38,
+ 39, 40, 41, -1, -1, -1, 3, 4, 47, 48,
+ 7, 8, 9, 52, -1, 12, 55, 56, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 33, 34, 35, 36,
+ 37, 38, 39, 40, -1, -1, -1, -1, 3, 4,
+ 47, 48, 7, 8, 9, 52, -1, 12, 55, 56,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 33, 34,
+ -1, 36, 37, 38, 39, 3, 4, -1, -1, 7,
+ 8, 9, 47, 48, 12, -1, -1, 52, -1, -1,
+ 55, 56, -1, -1, -1, -1, -1, 3, 4, -1,
+ -1, 7, 8, -1, -1, 33, -1, -1, 36, 37,
+ 38, 39, -1, -1, -1, -1, -1, -1, -1, 47,
+ 48, -1, -1, -1, 52, 31, -1, 55, 56, -1,
+ 36, 37, 38, 39, 3, 4, -1, -1, 7, 8,
+ -1, 47, 48, -1, 50, -1, 52, -1, -1, 55,
+ 56, -1, -1, -1, -1, -1, 3, 4, -1, -1,
+ 7, 8, 31, -1, -1, -1, -1, 36, 37, 38,
+ 39, -1, -1, -1, -1, -1, -1, -1, 47, 48,
+ -1, 50, -1, 52, 31, -1, 55, 56, -1, 36,
+ 37, 38, 39, 3, 4, -1, -1, 7, 8, -1,
+ 47, 48, -1, 50, -1, 52, -1, -1, 55, 56,
+ -1, -1, -1, -1, 3, 4, -1, -1, 7, 8,
+ -1, -1, -1, -1, -1, -1, 36, 37, 38, 39,
+ -1, -1, -1, -1, -1, -1, -1, 47, 48, -1,
+ 50, -1, 52, -1, -1, 55, 56, 36, 37, 38,
+ 39, -1, 4, -1, -1, 7, 8, 9, 47, 48,
+ 12, -1, -1, 52, -1, -1, 55, 56, -1, 4,
+ -1, -1, 7, 8, 9, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 36, 37, -1, -1, -1, -1,
+ -1, 43, 44, 45, 46, 47, 48, -1, -1, -1,
+ 52, 36, 37, 55, 56, -1, -1, -1, 43, 44,
+ 45, 46, 47, 48, -1, -1, -1, 52, -1, -1,
+ 55, 56
};
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
-#line 3 "/usr/share/bison.simple"
+#line 3 "/usr/lib/bison.simple"
+/* This file comes from bison-1.28. */
/* Skeleton output parser for bison,
Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
@@ -798,46 +839,68 @@ static const short yycheck[] = { 3,
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+ Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
/* As a special exception, when this file is copied by Bison into a
Bison output file, you may use that output file without restriction.
This special exception was added by the Free Software Foundation
in version 1.24 of Bison. */
-#ifndef alloca
+/* This is the parser code that is written into each bison parser
+ when the %semantic_parser declaration is not specified in the grammar.
+ It was written by Richard Stallman by simplifying the hairy parser
+ used when %semantic_parser is specified. */
+
+#ifndef YYSTACK_USE_ALLOCA
+#ifdef alloca
+#define YYSTACK_USE_ALLOCA
+#else /* alloca not defined */
#ifdef __GNUC__
+#define YYSTACK_USE_ALLOCA
#define alloca __builtin_alloca
#else /* not GNU C. */
-#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
+#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
+#define YYSTACK_USE_ALLOCA
#include <alloca.h>
#else /* not sparc */
-#if defined (MSDOS) && !defined (__TURBOC__)
+/* We think this test detects Watcom and Microsoft C. */
+/* This used to test MSDOS, but that is a bad idea
+ since that symbol is in the user namespace. */
+#if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
+#if 0 /* No need for malloc.h, which pollutes the namespace;
+ instead, just don't use alloca. */
#include <malloc.h>
+#endif
#else /* not MSDOS, or __TURBOC__ */
#if defined(_AIX)
-#include <malloc.h>
+/* I don't know what this was needed for, but it pollutes the namespace.
+ So I turned it off. rms, 2 May 1997. */
+/* #include <malloc.h> */
#pragma alloca
-#else /* not MSDOS, __TURBOC__, or _AIX */
-#ifdef __hpux
-#ifdef __cplusplus
-extern "C" {
-void *alloca (unsigned int);
-};
-#else /* not __cplusplus */
-void *alloca ();
-#endif /* not __cplusplus */
+#define YYSTACK_USE_ALLOCA
+#else /* not MSDOS, or __TURBOC__, or _AIX */
+#if 0
+#ifdef __hpux /* haible@ilog.fr says this works for HPUX 9.05 and up,
+ and on HPUX 10. Eventually we can turn this on. */
+#define YYSTACK_USE_ALLOCA
+#define alloca __builtin_alloca
#endif /* __hpux */
+#endif
#endif /* not _AIX */
#endif /* not MSDOS, or __TURBOC__ */
-#endif /* not sparc. */
-#endif /* not GNU C. */
-#endif /* alloca not defined. */
+#endif /* not sparc */
+#endif /* not GNU C */
+#endif /* alloca not defined */
+#endif /* YYSTACK_USE_ALLOCA not defined */
-/* This is the parser code that is written into each bison parser
- when the %semantic_parser declaration is not specified in the grammar.
- It was written by Richard Stallman by simplifying the hairy parser
- used when %semantic_parser is specified. */
+#undef YYSTACK_USE_ALLOCA /* Gawk: nuke alloca once and for all */
+
+#ifdef YYSTACK_USE_ALLOCA
+#define YYSTACK_ALLOC alloca
+#else
+#define YYSTACK_ALLOC malloc
+#endif
/* Note: there must be only one dollar sign in this file.
It is replaced by the list of actions, each action
@@ -847,8 +910,8 @@ void *alloca ();
#define yyclearin (yychar = YYEMPTY)
#define YYEMPTY -2
#define YYEOF 0
-#define YYACCEPT return(0)
-#define YYABORT return(1)
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
#define YYERROR goto yyerrlab1
/* Like YYERROR except do call yyerror.
This remains here temporarily to ease the
@@ -929,16 +992,12 @@ int yydebug; /* nonzero means print parse trace */
#ifndef YYMAXDEPTH
#define YYMAXDEPTH 10000
#endif
-
-#ifndef YYPARSE_RETURN_TYPE
-#define YYPARSE_RETURN_TYPE int
-#endif
-
-/* Prevent warning if -Wstrict-prototypes. */
-#ifdef __GNUC__
-YYPARSE_RETURN_TYPE yyparse (void);
-#endif
+/* Define __yy_memcpy. Note that the size argument
+ should be passed with type unsigned int, because that is what the non-GCC
+ definitions require. With GCC, __builtin_memcpy takes an arg
+ of type size_t, but it can handle unsigned int. */
+
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
#define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
#else /* not GNU C or C++ */
@@ -950,7 +1009,7 @@ static void
__yy_memcpy (to, from, count)
char *to;
char *from;
- int count;
+ unsigned int count;
{
register char *f = from;
register char *t = to;
@@ -965,10 +1024,10 @@ __yy_memcpy (to, from, count)
/* This is the most reliable way to avoid incompatibilities
in available built-in functions on various systems. */
static void
-__yy_memcpy (char *to, char *from, int count)
+__yy_memcpy (char *to, char *from, unsigned int count)
{
- register char *f = from;
register char *t = to;
+ register char *f = from;
register int i = count;
while (i-- > 0)
@@ -978,7 +1037,7 @@ __yy_memcpy (char *to, char *from, int count)
#endif
#endif
-#line 196 "/usr/share/bison.simple"
+#line 217 "/usr/lib/bison.simple"
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
into yyparse. The argument should have type void *.
@@ -999,7 +1058,16 @@ __yy_memcpy (char *to, char *from, int count)
#define YYPARSE_PARAM_DECL
#endif /* not YYPARSE_PARAM */
-YYPARSE_RETURN_TYPE
+/* Prevent warning if -Wstrict-prototypes. */
+#ifdef __GNUC__
+#ifdef YYPARSE_PARAM
+int yyparse (void *);
+#else
+int yyparse (void);
+#endif
+#endif
+
+int
yyparse(YYPARSE_PARAM_ARG)
YYPARSE_PARAM_DECL
{
@@ -1027,6 +1095,7 @@ yyparse(YYPARSE_PARAM_ARG)
#endif
int yystacksize = YYINITDEPTH;
+ int yyfree_stacks = 0;
#ifdef YYPURE
int yychar;
@@ -1111,18 +1180,32 @@ yynewstate:
if (yystacksize >= YYMAXDEPTH)
{
yyerror("parser stack overflow");
+ if (yyfree_stacks)
+ {
+ free (yyss);
+ free (yyvs);
+#ifdef YYLSP_NEEDED
+ free (yyls);
+#endif
+ }
return 2;
}
yystacksize *= 2;
if (yystacksize > YYMAXDEPTH)
yystacksize = YYMAXDEPTH;
- yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
- __yy_memcpy ((char *)yyss, (char *)yyss1, size * sizeof (*yyssp));
- yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
- __yy_memcpy ((char *)yyvs, (char *)yyvs1, size * sizeof (*yyvsp));
+#ifndef YYSTACK_USE_ALLOCA
+ yyfree_stacks = 1;
+#endif
+ yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
+ __yy_memcpy ((char *)yyss, (char *)yyss1,
+ size * (unsigned int) sizeof (*yyssp));
+ yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
+ __yy_memcpy ((char *)yyvs, (char *)yyvs1,
+ size * (unsigned int) sizeof (*yyvsp));
#ifdef YYLSP_NEEDED
- yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
- __yy_memcpy ((char *)yyls, (char *)yyls1, size * sizeof (*yylsp));
+ yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
+ __yy_memcpy ((char *)yyls, (char *)yyls1,
+ size * (unsigned int) sizeof (*yylsp));
#endif
#endif /* no yyoverflow */
@@ -1283,14 +1366,14 @@ yyreduce:
switch (yyn) {
case 1:
-#line 151 "./awk.y"
+#line 158 "awkgram.y"
{
expression_value = yyvsp[-1].nodeval;
check_funcs();
;
break;}
case 2:
-#line 159 "./awk.y"
+#line 166 "awkgram.y"
{
if (yyvsp[0].nodeval != NULL)
yyval.nodeval = yyvsp[0].nodeval;
@@ -1300,7 +1383,7 @@ case 2:
;
break;}
case 3:
-#line 168 "./awk.y"
+#line 175 "awkgram.y"
{
if (yyvsp[0].nodeval == NULL)
yyval.nodeval = yyvsp[-1].nodeval;
@@ -1317,23 +1400,23 @@ case 3:
;
break;}
case 4:
-#line 182 "./awk.y"
+#line 189 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 5:
-#line 183 "./awk.y"
+#line 190 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 6:
-#line 184 "./awk.y"
+#line 191 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 7:
-#line 188 "./awk.y"
+#line 195 "awkgram.y"
{ io_allowed = FALSE; ;
break;}
case 8:
-#line 190 "./awk.y"
+#line 197 "awkgram.y"
{
if (begin_block != NULL) {
if (begin_block->type != Node_rule_list)
@@ -1350,11 +1433,11 @@ case 8:
;
break;}
case 9:
-#line 204 "./awk.y"
-{ io_allowed = FALSE; ;
+#line 211 "awkgram.y"
+{ io_allowed = FALSE; parsing_end_rule = TRUE; ;
break;}
case 10:
-#line 206 "./awk.y"
+#line 213 "awkgram.y"
{
if (end_block != NULL) {
if (end_block->type != Node_rule_list)
@@ -1367,35 +1450,36 @@ case 10:
end_block = node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval);
yyval.nodeval = NULL;
io_allowed = TRUE;
+ parsing_end_rule = FALSE;
yyerrok;
;
break;}
case 11:
-#line 221 "./awk.y"
+#line 229 "awkgram.y"
{
- warning("BEGIN blocks must have an action part");
+ warning(_("BEGIN blocks must have an action part"));
errcount++;
yyerrok;
;
break;}
case 12:
-#line 227 "./awk.y"
+#line 235 "awkgram.y"
{
- warning("END blocks must have an action part");
+ warning(_("END blocks must have an action part"));
errcount++;
yyerrok;
;
break;}
case 13:
-#line 233 "./awk.y"
+#line 241 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
break;}
case 14:
-#line 235 "./awk.y"
+#line 243 "awkgram.y"
{ yyval.nodeval = node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
break;}
case 15:
-#line 237 "./awk.y"
+#line 245 "awkgram.y"
{
yyval.nodeval = node(yyvsp[-1].nodeval,
Node_rule_node,
@@ -1410,7 +1494,7 @@ case 15:
;
break;}
case 16:
-#line 250 "./awk.y"
+#line 258 "awkgram.y"
{
func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
yyval.nodeval = NULL;
@@ -1418,30 +1502,30 @@ case 16:
;
break;}
case 17:
-#line 259 "./awk.y"
+#line 267 "awkgram.y"
{ yyval.sval = yyvsp[0].sval; ;
break;}
case 18:
-#line 261 "./awk.y"
+#line 269 "awkgram.y"
{ yyval.sval = yyvsp[0].sval; ;
break;}
case 19:
-#line 263 "./awk.y"
+#line 271 "awkgram.y"
{
- yyerror("%s() is a built-in function, it cannot be redefined",
+ yyerror(_("`%s' is a built-in function, it cannot be redefined"),
tokstart);
errcount++;
/* yyerrok; */
;
break;}
case 22:
-#line 278 "./awk.y"
+#line 286 "awkgram.y"
{
param_counter = 0;
;
break;}
case 23:
-#line 282 "./awk.y"
+#line 290 "awkgram.y"
{
NODE *t;
@@ -1455,33 +1539,33 @@ case 23:
;
break;}
case 24:
-#line 297 "./awk.y"
+#line 305 "awkgram.y"
{
- yyval.nodeval = yyvsp[-2].nodeval;
+ yyval.nodeval = yyvsp[-3].nodeval;
can_return = FALSE;
;
break;}
case 25:
-#line 302 "./awk.y"
+#line 310 "awkgram.y"
{
yyval.nodeval = node((NODE *) NULL, Node_K_return, (NODE *) NULL);
can_return = FALSE;
;
break;}
case 26:
-#line 311 "./awk.y"
+#line 319 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 27:
-#line 313 "./awk.y"
+#line 321 "awkgram.y"
{ yyval.nodeval = mkrangenode(node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval)); ;
break;}
case 28:
-#line 322 "./awk.y"
+#line 330 "awkgram.y"
{ ++want_regexp; ;
break;}
case 29:
-#line 324 "./awk.y"
+#line 332 "awkgram.y"
{
NODE *n;
size_t len;
@@ -1498,23 +1582,23 @@ case 29:
;
break;}
case 30:
-#line 342 "./awk.y"
+#line 350 "awkgram.y"
{ yyval.nodeval = yyvsp[-3].nodeval; ;
break;}
case 31:
-#line 344 "./awk.y"
+#line 352 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 32:
-#line 349 "./awk.y"
+#line 357 "awkgram.y"
{
yyval.nodeval = yyvsp[0].nodeval;
if (do_lint && isnoeffect(yyval.nodeval->type))
- warning("statement may have no effect");
+ lintwarn(_("statement may have no effect"));
;
break;}
case 33:
-#line 355 "./awk.y"
+#line 363 "awkgram.y"
{
if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list, (NODE *) NULL);
@@ -1524,39 +1608,39 @@ case 33:
;
break;}
case 34:
-#line 363 "./awk.y"
+#line 371 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 35:
-#line 365 "./awk.y"
+#line 373 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 38:
-#line 375 "./awk.y"
+#line 383 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 39:
-#line 377 "./awk.y"
+#line 385 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 40:
-#line 379 "./awk.y"
+#line 387 "awkgram.y"
{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
case 41:
-#line 381 "./awk.y"
+#line 389 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 42:
-#line 383 "./awk.y"
+#line 391 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
break;}
case 43:
-#line 385 "./awk.y"
+#line 393 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
break;}
case 44:
-#line 387 "./awk.y"
+#line 395 "awkgram.y"
{
/*
* Efficiency hack. Recognize the special case of
@@ -1571,8 +1655,9 @@ case 44:
* Check that the body is a `delete a[i]' statement,
* and that both the loop var and array names match.
*/
- if (yyvsp[0].nodeval->type == Node_K_delete
+ if (yyvsp[0].nodeval != NULL && yyvsp[0].nodeval->type == Node_K_delete
&& yyvsp[0].nodeval->rnode != NULL
+ && (yyvsp[0].nodeval->rnode->type == Node_var || yyvsp[0].nodeval->rnode->type == Node_param_list)
&& strcmp(yyvsp[-5].sval, yyvsp[0].nodeval->rnode->var_value->vname) == 0
&& strcmp(yyvsp[-3].sval, yyvsp[0].nodeval->lnode->vname) == 0) {
yyvsp[0].nodeval->type = Node_K_delete_loop;
@@ -1585,32 +1670,36 @@ case 44:
;
break;}
case 45:
-#line 414 "./awk.y"
+#line 423 "awkgram.y"
{
- yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *) make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *) make_for_loop(yyvsp[-9].nodeval, yyvsp[-6].nodeval, yyvsp[-3].nodeval));
;
break;}
case 46:
-#line 418 "./awk.y"
+#line 427 "awkgram.y"
{
yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for,
- (NODE *) make_for_loop(yyvsp[-6].nodeval, (NODE *) NULL, yyvsp[-3].nodeval));
+ (NODE *) make_for_loop(yyvsp[-8].nodeval, (NODE *) NULL, yyvsp[-3].nodeval));
;
break;}
case 47:
-#line 424 "./awk.y"
+#line 433 "awkgram.y"
{ yyval.nodeval = node((NODE *) NULL, Node_K_break, (NODE *) NULL); ;
break;}
case 48:
-#line 427 "./awk.y"
+#line 436 "awkgram.y"
{ yyval.nodeval = node((NODE *) NULL, Node_K_continue, (NODE *) NULL); ;
break;}
case 49:
-#line 429 "./awk.y"
-{ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
+#line 438 "awkgram.y"
+{
+ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval);
+ if (yyval.nodeval->type == Node_K_printf)
+ count_args(yyval.nodeval)
+ ;
break;}
case 50:
-#line 431 "./awk.y"
+#line 444 "awkgram.y"
{
if (yyvsp[-3].nodetypeval == Node_K_print && yyvsp[-2].nodeval == NULL) {
static int warned = FALSE;
@@ -1623,332 +1712,319 @@ case 50:
if (do_lint && ! io_allowed && ! warned) {
warned = TRUE;
- warning(
- "plain `print' in BEGIN or END rule should probably be `print \"\"'");
+ lintwarn(
+ _("plain `print' in BEGIN or END rule should probably be `print \"\"'"));
}
}
yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval);
+ if (yyval.nodeval->type == Node_K_printf)
+ count_args(yyval.nodeval)
;
break;}
case 51:
-#line 451 "./awk.y"
+#line 466 "awkgram.y"
{ NODETYPE type;
- if (yyvsp[-1].nodeval) {
- if (yyvsp[-1].nodeval == lookup("file")) {
- static int warned = FALSE;
-
- if (! warned) {
- warned = TRUE;
- warning("`next file' is obsolete; use `nextfile'");
- }
- if (do_lint)
- warning("`next file' is a gawk extension");
- if (do_traditional) {
- /*
- * can't use yyerror, since may have overshot
- * the source line
- */
- errcount++;
- error("`next file' is a gawk extension");
- }
- if (! io_allowed) {
- /* same thing */
- errcount++;
- error("`next file' used in BEGIN or END action");
- }
- type = Node_K_nextfile;
- } else {
- errcount++;
- error("illegal expression after `next'");
- type = Node_K_next; /* sanity */
- }
- } else {
- if (! io_allowed)
- yyerror("`next' used in BEGIN or END action");
- type = Node_K_next;
- }
+ if (! io_allowed)
+ yyerror(_("`next' used in BEGIN or END action"));
+ type = Node_K_next;
yyval.nodeval = node((NODE *) NULL, type, (NODE *) NULL);
;
break;}
case 52:
-#line 490 "./awk.y"
+#line 474 "awkgram.y"
{
if (do_lint)
- warning("`nextfile' is a gawk extension");
+ lintwarn(_("`nextfile' is a gawk extension"));
if (do_traditional) {
/*
* can't use yyerror, since may have overshot
* the source line
*/
errcount++;
- error("`nextfile' is a gawk extension");
+ error(_("`nextfile' is a gawk extension"));
}
if (! io_allowed) {
/* same thing */
errcount++;
- error("`nextfile' used in BEGIN or END action");
+ error(_("`nextfile' used in BEGIN or END action"));
}
yyval.nodeval = node((NODE *) NULL, Node_K_nextfile, (NODE *) NULL);
;
break;}
case 53:
-#line 509 "./awk.y"
+#line 493 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_exit, (NODE *) NULL); ;
break;}
case 54:
-#line 511 "./awk.y"
+#line 495 "awkgram.y"
{
if (! can_return)
- yyerror("`return' used outside function context");
+ yyerror(_("`return' used outside function context"));
;
break;}
case 55:
-#line 516 "./awk.y"
+#line 500 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_return, (NODE *) NULL); ;
break;}
case 56:
-#line 518 "./awk.y"
+#line 502 "awkgram.y"
{ yyval.nodeval = node(variable(yyvsp[-4].sval, CAN_FREE, Node_var_array), Node_K_delete, yyvsp[-2].nodeval); ;
break;}
case 57:
-#line 520 "./awk.y"
+#line 504 "awkgram.y"
{
if (do_lint)
- warning("`delete array' is a gawk extension");
+ lintwarn(_("`delete array' is a gawk extension"));
if (do_traditional) {
/*
* can't use yyerror, since may have overshot
* the source line
*/
errcount++;
- error("`delete array' is a gawk extension");
+ error(_("`delete array' is a gawk extension"));
}
yyval.nodeval = node(variable(yyvsp[-1].sval, CAN_FREE, Node_var_array), Node_K_delete, (NODE *) NULL);
;
break;}
case 58:
-#line 534 "./awk.y"
+#line 518 "awkgram.y"
{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
case 59:
-#line 539 "./awk.y"
+#line 523 "awkgram.y"
{ yyval.nodetypeval = yyvsp[0].nodetypeval; ;
break;}
case 60:
-#line 541 "./awk.y"
+#line 525 "awkgram.y"
{ yyval.nodetypeval = yyvsp[0].nodetypeval; ;
break;}
case 61:
-#line 546 "./awk.y"
+#line 530 "awkgram.y"
{
yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if,
node(yyvsp[0].nodeval, Node_if_branches, (NODE *) NULL));
;
break;}
case 62:
-#line 552 "./awk.y"
+#line 536 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-6].nodeval, Node_K_if,
node(yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
break;}
case 63:
-#line 558 "./awk.y"
+#line 542 "awkgram.y"
{ want_assign = FALSE; ;
break;}
case 67:
-#line 569 "./awk.y"
+#line 553 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 68:
-#line 571 "./awk.y"
+#line 555 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_input, (NODE *) NULL); ;
break;}
case 69:
-#line 576 "./awk.y"
+#line 560 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 70:
-#line 578 "./awk.y"
+#line 562 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_output, (NODE *) NULL); ;
break;}
case 71:
-#line 580 "./awk.y"
+#line 564 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_append, (NODE *) NULL); ;
break;}
case 72:
-#line 582 "./awk.y"
+#line 566 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_pipe, (NODE *) NULL); ;
break;}
case 73:
-#line 587 "./awk.y"
-{ yyval.nodeval = NULL; ;
+#line 568 "awkgram.y"
+{
+ if (yyvsp[0].nodeval->type == Node_K_getline
+ && yyvsp[0].nodeval->rnode->type == Node_redirect_twoway)
+ yyerror(_("multistage two-way pipelines don't work"));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_twoway, (NODE *) NULL);
+ ;
break;}
case 74:
-#line 589 "./awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 578 "awkgram.y"
+{ yyval.nodeval = NULL; ;
break;}
case 75:
-#line 594 "./awk.y"
-{ yyval.nodeval = make_param(yyvsp[0].sval); ;
+#line 580 "awkgram.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 76:
-#line 596 "./awk.y"
-{ yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
+#line 585 "awkgram.y"
+{ yyval.nodeval = make_param(yyvsp[0].sval); ;
break;}
case 77:
-#line 598 "./awk.y"
-{ yyval.nodeval = NULL; ;
+#line 587 "awkgram.y"
+{ yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
break;}
case 78:
-#line 600 "./awk.y"
+#line 589 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 79:
-#line 602 "./awk.y"
+#line 591 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 80:
-#line 608 "./awk.y"
+#line 593 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 81:
-#line 610 "./awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 599 "awkgram.y"
+{ yyval.nodeval = NULL; ;
break;}
case 82:
-#line 615 "./awk.y"
-{ yyval.nodeval = NULL; ;
+#line 601 "awkgram.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 83:
-#line 617 "./awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 606 "awkgram.y"
+{ yyval.nodeval = NULL; ;
break;}
case 84:
-#line 622 "./awk.y"
-{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+#line 608 "awkgram.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 85:
-#line 624 "./awk.y"
+#line 613 "awkgram.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+ break;}
+case 86:
+#line 615 "awkgram.y"
{
yyval.nodeval = append_right(yyvsp[-2].nodeval,
node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL));
yyerrok;
;
break;}
-case 86:
-#line 630 "./awk.y"
-{ yyval.nodeval = NULL; ;
- break;}
case 87:
-#line 632 "./awk.y"
+#line 621 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 88:
-#line 634 "./awk.y"
+#line 623 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 89:
-#line 636 "./awk.y"
+#line 625 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 90:
-#line 641 "./awk.y"
+#line 627 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 91:
-#line 643 "./awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 632 "awkgram.y"
+{ yyval.nodeval = NULL; ;
break;}
case 92:
-#line 648 "./awk.y"
-{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+#line 634 "awkgram.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 93:
-#line 650 "./awk.y"
+#line 639 "awkgram.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+ break;}
+case 94:
+#line 641 "awkgram.y"
{
yyval.nodeval = append_right(yyvsp[-2].nodeval,
node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL));
yyerrok;
;
break;}
-case 94:
-#line 656 "./awk.y"
-{ yyval.nodeval = NULL; ;
- break;}
case 95:
-#line 658 "./awk.y"
+#line 647 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 96:
-#line 660 "./awk.y"
+#line 649 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 97:
-#line 662 "./awk.y"
+#line 651 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
case 98:
-#line 667 "./awk.y"
-{ want_assign = FALSE; ;
+#line 653 "awkgram.y"
+{ yyval.nodeval = NULL; ;
break;}
case 99:
-#line 669 "./awk.y"
+#line 658 "awkgram.y"
+{ want_assign = FALSE; ;
+ break;}
+case 100:
+#line 660 "awkgram.y"
{
if (do_lint && yyvsp[0].nodeval->type == Node_regex)
- warning("Regular expression on left of assignment.");
+ lintwarn(_("regular expression on right of assignment"));
yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval);
;
break;}
-case 100:
-#line 675 "./awk.y"
+case 101:
+#line 666 "awkgram.y"
{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-3].nodeval); ;
break;}
-case 101:
-#line 677 "./awk.y"
+case 102:
+#line 668 "awkgram.y"
{
yyval.nodeval = node(yyvsp[0].nodeval, Node_K_getline,
node(yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *) NULL));
;
break;}
-case 102:
-#line 682 "./awk.y"
+case 103:
+#line 673 "awkgram.y"
{
- if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
- warning("non-redirected getline undefined inside BEGIN or END action");
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_getline,
+ node(yyvsp[-3].nodeval, Node_redirect_twoway, (NODE *) NULL));
+ ;
+ break;}
+case 104:
+#line 678 "awkgram.y"
+{
+ if (do_lint && ! io_allowed && parsing_end_rule && yyvsp[0].nodeval == NULL)
+ lintwarn(_("non-redirected `getline' undefined inside END action"));
yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
;
break;}
-case 103:
-#line 688 "./awk.y"
+case 105:
+#line 684 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
break;}
-case 104:
-#line 690 "./awk.y"
+case 106:
+#line 686 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
break;}
-case 105:
-#line 692 "./awk.y"
+case 107:
+#line 688 "awkgram.y"
{
if (yyvsp[-2].nodeval->type == Node_regex)
- warning("Regular expression on left of MATCH operator.");
+ warning(_("regular expression on left of `~' or `!~' operator"));
yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval));
;
break;}
-case 106:
-#line 698 "./awk.y"
+case 108:
+#line 694 "awkgram.y"
{
yyval.nodeval = yyvsp[0].nodeval;
if (do_lint && tokstart[0] == '*') {
/* possible C comment */
int n = strlen(tokstart) - 1;
if (tokstart[n] == '*')
- warning("regexp looks like a C comment, but is not");
+ lintwarn(_("regexp constant `/%s/' looks like a C comment, but is not"), tokstart);
}
;
break;}
-case 107:
-#line 708 "./awk.y"
+case 109:
+#line 704 "awkgram.y"
{
yyval.nodeval = node(node(make_number(0.0),
Node_field_spec,
@@ -1957,154 +2033,154 @@ case 107:
yyvsp[0].nodeval);
;
break;}
-case 108:
-#line 716 "./awk.y"
+case 110:
+#line 712 "awkgram.y"
{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-2].nodeval); ;
break;}
-case 109:
-#line 718 "./awk.y"
+case 111:
+#line 714 "awkgram.y"
{
if (do_lint && yyvsp[0].nodeval->type == Node_regex)
- warning("Regular expression on left of comparison.");
+ lintwarn(_("regular expression on right of comparison"));
yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval);
;
break;}
-case 110:
-#line 724 "./awk.y"
+case 112:
+#line 720 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
break;}
-case 111:
-#line 726 "./awk.y"
+case 113:
+#line 722 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
break;}
-case 112:
-#line 728 "./awk.y"
+case 114:
+#line 724 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
break;}
-case 113:
-#line 730 "./awk.y"
+case 115:
+#line 726 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 114:
-#line 732 "./awk.y"
+case 116:
+#line 728 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
break;}
-case 115:
-#line 737 "./awk.y"
+case 117:
+#line 733 "awkgram.y"
{ want_assign = FALSE; ;
break;}
-case 116:
-#line 739 "./awk.y"
+case 118:
+#line 735 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
break;}
-case 117:
-#line 741 "./awk.y"
+case 119:
+#line 737 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
break;}
-case 118:
-#line 743 "./awk.y"
+case 120:
+#line 739 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
break;}
-case 119:
-#line 745 "./awk.y"
+case 121:
+#line 741 "awkgram.y"
{
if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
- warning("non-redirected getline undefined inside BEGIN or END action");
+ lintwarn(_("non-redirected `getline' undefined inside BEGIN or END action"));
yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
;
break;}
-case 120:
-#line 751 "./awk.y"
+case 122:
+#line 747 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 121:
-#line 753 "./awk.y"
+case 123:
+#line 749 "awkgram.y"
{ yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
break;}
-case 122:
-#line 755 "./awk.y"
+case 124:
+#line 751 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval)); ;
break;}
-case 123:
-#line 757 "./awk.y"
+case 125:
+#line 753 "awkgram.y"
{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-2].nodeval); ;
break;}
-case 124:
-#line 759 "./awk.y"
+case 126:
+#line 755 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
break;}
-case 125:
-#line 761 "./awk.y"
+case 127:
+#line 757 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
break;}
-case 126:
-#line 763 "./awk.y"
+case 128:
+#line 759 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 127:
-#line 765 "./awk.y"
+case 129:
+#line 761 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
break;}
-case 129:
-#line 772 "./awk.y"
+case 131:
+#line 768 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
break;}
-case 130:
-#line 774 "./awk.y"
+case 132:
+#line 770 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
break;}
-case 131:
-#line 776 "./awk.y"
+case 133:
+#line 772 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
break;}
-case 132:
-#line 778 "./awk.y"
+case 134:
+#line 774 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
break;}
-case 133:
-#line 780 "./awk.y"
+case 135:
+#line 776 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
break;}
-case 134:
-#line 782 "./awk.y"
+case 136:
+#line 778 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
break;}
-case 135:
-#line 784 "./awk.y"
+case 137:
+#line 780 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_postincrement, (NODE *) NULL); ;
break;}
-case 136:
-#line 786 "./awk.y"
+case 138:
+#line 782 "awkgram.y"
{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_postdecrement, (NODE *) NULL); ;
break;}
-case 137:
-#line 791 "./awk.y"
+case 139:
+#line 787 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_not, (NODE *) NULL); ;
break;}
-case 138:
-#line 793 "./awk.y"
+case 140:
+#line 789 "awkgram.y"
{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
-case 139:
-#line 796 "./awk.y"
+case 141:
+#line 792 "awkgram.y"
{ yyval.nodeval = snode(yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
break;}
-case 140:
-#line 798 "./awk.y"
+case 142:
+#line 794 "awkgram.y"
{ yyval.nodeval = snode(yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
break;}
-case 141:
-#line 800 "./awk.y"
+case 143:
+#line 796 "awkgram.y"
{
if (do_lint)
- warning("call of `length' without parentheses is not portable");
+ lintwarn(_("call of `length' without parentheses is not portable"));
yyval.nodeval = snode((NODE *) NULL, Node_builtin, (int) yyvsp[0].lval);
if (do_posix)
- warning("call of `length' without parentheses is deprecated by POSIX");
+ warning(_("call of `length' without parentheses is deprecated by POSIX"));
;
break;}
-case 142:
-#line 808 "./awk.y"
+case 144:
+#line 804 "awkgram.y"
{
yyval.nodeval = node(yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
func_use(yyvsp[-3].sval, FUNC_USE);
@@ -2112,24 +2188,24 @@ case 142:
free(yyvsp[-3].sval);
;
break;}
-case 144:
-#line 816 "./awk.y"
+case 146:
+#line 812 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_preincrement, (NODE *) NULL); ;
break;}
-case 145:
-#line 818 "./awk.y"
+case 147:
+#line 814 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_predecrement, (NODE *) NULL); ;
break;}
-case 146:
-#line 820 "./awk.y"
+case 148:
+#line 816 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 147:
-#line 822 "./awk.y"
+case 149:
+#line 818 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 148:
-#line 825 "./awk.y"
+case 150:
+#line 821 "awkgram.y"
{
if (yyvsp[0].nodeval->type == Node_val) {
yyvsp[0].nodeval->numbr = -(force_number(yyvsp[0].nodeval));
@@ -2138,8 +2214,8 @@ case 148:
yyval.nodeval = node(yyvsp[0].nodeval, Node_unary_minus, (NODE *) NULL);
;
break;}
-case 149:
-#line 833 "./awk.y"
+case 151:
+#line 829 "awkgram.y"
{
/*
* was: $$ = $2
@@ -2148,23 +2224,23 @@ case 149:
yyval.nodeval = node (make_number(0.0), Node_plus, yyvsp[0].nodeval);
;
break;}
-case 150:
-#line 844 "./awk.y"
+case 152:
+#line 840 "awkgram.y"
{ yyval.nodeval = NULL; ;
break;}
-case 151:
-#line 846 "./awk.y"
+case 153:
+#line 842 "awkgram.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 152:
-#line 851 "./awk.y"
+case 154:
+#line 847 "awkgram.y"
{ yyval.nodeval = variable(yyvsp[0].sval, CAN_FREE, Node_var); ;
break;}
-case 153:
-#line 853 "./awk.y"
+case 155:
+#line 849 "awkgram.y"
{
if (yyvsp[-1].nodeval == NULL) {
- fatal("invalid subscript expression");
+ fatal(_("invalid subscript expression"));
} else if (yyvsp[-1].nodeval->rnode == NULL) {
yyval.nodeval = node(variable(yyvsp[-3].sval, CAN_FREE, Node_var_array), Node_subscript, yyvsp[-1].nodeval->lnode);
freenode(yyvsp[-1].nodeval);
@@ -2172,29 +2248,29 @@ case 153:
yyval.nodeval = node(variable(yyvsp[-3].sval, CAN_FREE, Node_var_array), Node_subscript, yyvsp[-1].nodeval);
;
break;}
-case 154:
-#line 863 "./awk.y"
+case 156:
+#line 859 "awkgram.y"
{ yyval.nodeval = node(yyvsp[0].nodeval, Node_field_spec, (NODE *) NULL); ;
break;}
-case 156:
-#line 871 "./awk.y"
+case 158:
+#line 867 "awkgram.y"
{ yyerrok; ;
break;}
-case 157:
-#line 875 "./awk.y"
+case 159:
+#line 871 "awkgram.y"
{ yyerrok; ;
break;}
-case 160:
-#line 884 "./awk.y"
+case 162:
+#line 880 "awkgram.y"
{ yyerrok; want_assign = FALSE; ;
break;}
-case 161:
-#line 887 "./awk.y"
+case 163:
+#line 883 "awkgram.y"
{ yyerrok; ;
break;}
}
/* the action file gets copied in in place of this dollarsign */
-#line 498 "/usr/share/bison.simple"
+#line 543 "/usr/lib/bison.simple"
yyvsp -= yylen;
yyssp -= yylen;
@@ -2389,8 +2465,32 @@ yyerrhandle:
yystate = yyn;
goto yynewstate;
+
+ yyacceptlab:
+ /* YYACCEPT comes here. */
+ if (yyfree_stacks)
+ {
+ free (yyss);
+ free (yyvs);
+#ifdef YYLSP_NEEDED
+ free (yyls);
+#endif
+ }
+ return 0;
+
+ yyabortlab:
+ /* YYABORT comes here. */
+ if (yyfree_stacks)
+ {
+ free (yyss);
+ free (yyvs);
+#ifdef YYLSP_NEEDED
+ free (yyls);
+#endif
+ }
+ return 1;
}
-#line 890 "./awk.y"
+#line 886 "awkgram.y"
struct token {
@@ -2400,7 +2500,7 @@ struct token {
unsigned flags; /* # of args. allowed and compatability */
# define ARGS 0xFF /* 0, 1, 2, 3 args allowed (any combination */
# define A(n) (1<<(n))
-# define VERSION 0xFF00 /* old awk is zero */
+# define VERSION_MASK 0xFF00 /* old awk is zero */
# define NOT_OLD 0x0100 /* feature not in old awk */
# define NOT_POSIX 0x0200 /* feature not in POSIX */
# define GAWKX 0x0400 /* gawk extension */
@@ -2408,7 +2508,6 @@ struct token {
NODE *(*ptr)(); /* function that implements this keyword */
};
-
/* Tokentab is sorted ascii ascending order, so it can be binary searched. */
/* Function pointers come from declarations in awk.h. */
@@ -2418,22 +2517,22 @@ static struct token tokentab[] = {
#ifdef ARRAYDEBUG
{"adump", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_adump},
#endif
-#ifdef BITOPS
{"and", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_and},
-#endif /* BITOPS */
+{"asort", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2), do_asort},
{"atan2", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_atan2},
+{"bindtextdomain", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2), do_bindtextdomain},
{"break", Node_K_break, LEX_BREAK, 0, 0},
-{"close", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_close},
-#ifdef BITOPS
+{"close", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1)|A(2), do_close},
{"compl", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_compl},
-#endif /* BITOPS */
{"continue", Node_K_continue, LEX_CONTINUE, 0, 0},
{"cos", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_cos},
+{"dcgettext", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3), do_dcgettext},
{"delete", Node_K_delete, LEX_DELETE, NOT_OLD, 0},
{"do", Node_K_do, LEX_DO, NOT_OLD, 0},
{"else", Node_illegal, LEX_ELSE, 0, 0},
{"exit", Node_K_exit, LEX_EXIT, 0, 0},
{"exp", Node_builtin, LEX_BUILTIN, A(1), do_exp},
+{"extension", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_ext},
{"fflush", Node_builtin, LEX_BUILTIN, RESX|A(0)|A(1), do_fflush},
{"for", Node_K_for, LEX_FOR, 0, 0},
{"func", Node_K_function, LEX_FUNCTION, NOT_POSIX|NOT_OLD, 0},
@@ -2447,34 +2546,27 @@ static struct token tokentab[] = {
{"int", Node_builtin, LEX_BUILTIN, A(1), do_int},
{"length", Node_builtin, LEX_LENGTH, A(0)|A(1), do_length},
{"log", Node_builtin, LEX_BUILTIN, A(1), do_log},
-#ifdef BITOPS
{"lshift", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_lshift},
-#endif /* BITOPS */
-{"match", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_match},
+{"match", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_match},
+{"mktime", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_mktime},
{"next", Node_K_next, LEX_NEXT, 0, 0},
{"nextfile", Node_K_nextfile, LEX_NEXTFILE, GAWKX, 0},
-#ifdef BITOPS
{"or", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_or},
-#endif /* BITOPS */
{"print", Node_K_print, LEX_PRINT, 0, 0},
{"printf", Node_K_printf, LEX_PRINTF, 0, 0},
{"rand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0), do_rand},
{"return", Node_K_return, LEX_RETURN, NOT_OLD, 0},
-#ifdef BITOPS
{"rshift", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_rshift},
-#endif /* BITOPS */
{"sin", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_sin},
{"split", Node_builtin, LEX_BUILTIN, A(2)|A(3), do_split},
{"sprintf", Node_builtin, LEX_BUILTIN, 0, do_sprintf},
{"sqrt", Node_builtin, LEX_BUILTIN, A(1), do_sqrt},
{"srand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0)|A(1), do_srand},
-#ifdef ARRAYDEBUG
+#if defined(GAWKDEBUG) || defined(ARRAYDEBUG) /* || ... */
{"stopme", Node_builtin, LEX_BUILTIN, GAWKX|A(0), stopme},
#endif
{"strftime", Node_builtin, LEX_BUILTIN, GAWKX|A(0)|A(1)|A(2), do_strftime},
-#ifdef BITOPS
{"strtonum", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_strtonum},
-#endif /* BITOPS */
{"sub", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_sub},
{"substr", Node_builtin, LEX_BUILTIN, A(2)|A(3), do_substr},
{"system", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_system},
@@ -2482,21 +2574,40 @@ static struct token tokentab[] = {
{"tolower", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_tolower},
{"toupper", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_toupper},
{"while", Node_K_while, LEX_WHILE, 0, 0},
-#ifdef BITOPS
{"xor", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_xor},
-#endif /* BITOPS */
};
+/* getfname --- return name of a builtin function (for pretty printing) */
+
+const char *
+getfname(register NODE *(*fptr)())
+{
+ register int i, j;
+
+ j = sizeof(tokentab) / sizeof(tokentab[0]);
+ /* linear search, no other way to do it */
+ for (i = 0; i < j; i++)
+ if (tokentab[i].ptr == fptr)
+ return tokentab[i].operator;
+
+ fatal(_("fptr %x not in tokentab\n"), fptr);
+ return NULL; /* to stop warnings */
+}
+
/* yyerror --- print a syntax error message, show where */
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+/*
+ * Function identifier purposely indented to avoid mangling
+ * by ansi2knr. Sigh.
+ */
+
static void
-yyerror(const char *m, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ yyerror(const char *m, ...)
#else
/* VARARGS0 */
-static void
-yyerror(va_alist)
-va_dcl
+ yyerror(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -2513,7 +2624,7 @@ va_dcl
cp = lexeme;
if (*cp == '\n') {
cp--;
- mesg = "unexpected newline";
+ mesg = _("unexpected newline");
}
for (; cp != lexptr_begin && *cp != '\n'; --cp)
continue;
@@ -2592,7 +2703,7 @@ again:
if (do_lint && ! warned) {
warned = TRUE;
- warning("empty program text on command line");
+ lintwarn(_("empty program text on command line"));
}
++nextfile;
goto again;
@@ -2649,7 +2760,7 @@ again:
/* suppress file name and line no. in error mesg */
in = source;
source = NULL;
- fatal("can't open source file \"%s\" for reading (%s)",
+ fatal(_("can't open source file `%s' for reading (%s)"),
in, strerror(errno));
}
len = optimal_bufsize(fd, & sbuf);
@@ -2684,7 +2795,7 @@ again:
}
n = read(fd, buf + SLOP, len);
if (n == -1)
- fatal("can't read sourcefile \"%s\" (%s)",
+ fatal(_("can't read sourcefile `%s' (%s)"),
source, strerror(errno));
if (n == 0) {
if (newfile) {
@@ -2692,10 +2803,10 @@ again:
if (do_lint && ! warned) {
warned = TRUE;
- warning("source file `%s' is empty", source);
+ lintwarn(_("source file `%s' is empty"), source);
}
}
- if (fileno(stdin) != fd) /* safety */
+ if (fd != fileno(stdin)) /* safety */
close(fd);
samefile = FALSE;
nextfile++;
@@ -2734,7 +2845,7 @@ tokexpand()
/* nextc --- get the next input character */
-#if DEBUG
+#if GAWKDEBUG
int
nextc()
{
@@ -2779,7 +2890,7 @@ allow_newline()
}
if (c == '\n')
sourceline++;
- if (! isspace(c)) {
+ if (! ISSPACE(c)) {
pushback();
break;
}
@@ -2791,7 +2902,7 @@ allow_newline()
static int
yylex()
{
- register int c, c1;
+ register int c;
int seen_e = FALSE; /* These are for numbers */
int seen_point = FALSE;
int esc_seen; /* for literal strings */
@@ -2800,12 +2911,13 @@ yylex()
char *tokkey;
static int lasttok = 0, eof_warned = FALSE;
int inhex = FALSE;
+ int intlstr = FALSE;
if (nextc() == EOF) {
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -2851,7 +2963,7 @@ yylex()
switch (c) {
case '[':
/* one day check for `.' and `=' too */
- if ((c1 = nextc()) == ':' || in_brack == 0)
+ if (nextc() == ':' || in_brack == 0)
in_brack++;
pushback();
break;
@@ -2866,7 +2978,7 @@ yylex()
break;
case '\\':
if ((c = nextc()) == EOF) {
- yyerror("unterminated regexp ends with \\ at end of file");
+ yyerror(_("unterminated regexp ends with `\\' at end of file"));
return lasttok = REGEXP; /* kludge */
} else if (c == '\n') {
sourceline++;
@@ -2887,10 +2999,10 @@ yylex()
return lasttok = REGEXP;
case '\n':
pushback();
- yyerror("unterminated regexp");
+ yyerror(_("unterminated regexp"));
return lasttok = REGEXP; /* kludge */
case EOF:
- yyerror("unterminated regexp at end of file");
+ yyerror(_("unterminated regexp at end of file"));
return lasttok = REGEXP; /* kludge */
}
tokadd(c);
@@ -2910,7 +3022,7 @@ retry:
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -2927,8 +3039,8 @@ retry:
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning(
- "source file does not end in newline");
+ lintwarn(
+ _("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -2953,8 +3065,8 @@ retry:
continue;
if (c == '#') {
if (do_lint)
- warning(
- "use of `\\ #...' line continuation is not portable");
+ lintwarn(
+ _("use of `\\ #...' line continuation is not portable"));
while ((c = nextc()) != '\n')
if (c == EOF)
break;
@@ -2966,7 +3078,7 @@ retry:
sourceline++;
goto retry;
} else {
- yyerror("backslash not last character on line");
+ yyerror(_("backslash not last character on line"));
exit(1);
}
break;
@@ -2977,7 +3089,8 @@ retry:
case ':':
case '?':
- allow_newline();
+ if (! do_posix)
+ allow_newline();
return lasttok = c;
case ')':
@@ -3003,19 +3116,23 @@ retry:
static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
- if (do_lint && ! did_warn_assgn) {
+ if (! did_warn_assgn) {
did_warn_assgn = TRUE;
- warning("**= is not allowed by POSIX");
- warning("operator `**=' is not supported in old awk");
+ if (do_lint)
+ lintwarn(_("POSIX does not allow operator `**='"));
+ if (do_lint_old)
+ warning(_("old awk does not support operator `**='"));
}
yylval.nodetypeval = Node_assign_exp;
return ASSIGNOP;
} else {
pushback();
- if (do_lint && ! did_warn_op) {
+ if (! did_warn_op) {
did_warn_op = TRUE;
- warning("** is not allowed by POSIX");
- warning("operator `**' is not supported in old awk");
+ if (do_lint)
+ lintwarn(_("POSIX does not allow operator `**'"));
+ if (do_lint_old)
+ warning(_("old awk does not support operator `**'"));
}
return lasttok = '^';
}
@@ -3046,17 +3163,17 @@ retry:
static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
- if (do_lint && ! did_warn_assgn) {
+ if (do_lint_old && ! did_warn_assgn) {
did_warn_assgn = TRUE;
- warning("operator `^=' is not supported in old awk");
+ warning(_("operator `^=' is not supported in old awk"));
}
yylval.nodetypeval = Node_assign_exp;
return lasttok = ASSIGNOP;
}
pushback();
- if (do_lint && ! did_warn_op) {
+ if (do_lint_old && ! did_warn_op) {
did_warn_op = TRUE;
- warning("operator `^' is not supported in old awk");
+ warning(_("operator `^' is not supported in old awk"));
}
return lasttok = '^';
}
@@ -3133,11 +3250,12 @@ retry:
return lasttok = NEWLINE;
case '"':
+ string:
esc_seen = FALSE;
while ((c = nextc()) != '"') {
if (c == '\n') {
pushback();
- yyerror("unterminated string");
+ yyerror(_("unterminated string"));
exit(1);
}
if (c == '\\') {
@@ -3151,7 +3269,7 @@ retry:
}
if (c == EOF) {
pushback();
- yyerror("unterminated string");
+ yyerror(_("unterminated string"));
exit(1);
}
tokadd(c);
@@ -3159,6 +3277,13 @@ retry:
yylval.nodeval = make_str_node(tokstart,
tok - tokstart, esc_seen ? SCAN : 0);
yylval.nodeval->flags |= PERM;
+ if (intlstr) {
+ yylval.nodeval->flags |= INTLSTR;
+ intlstr = FALSE;
+ if (do_intl)
+ dumpintlstr(yylval.nodeval->stptr,
+ yylval.nodeval->stlen);
+ }
return lasttok = YSTRING;
case '-':
@@ -3174,7 +3299,7 @@ retry:
case '.':
c = nextc();
pushback();
- if (! isdigit(c))
+ if (! ISDIGIT(c))
return lasttok = '.';
else
c = '.';
@@ -3195,7 +3320,6 @@ retry:
tokadd(c);
switch (c) {
-#ifdef BITOPS
case 'x':
case 'X':
if (do_traditional)
@@ -3203,7 +3327,6 @@ retry:
if (tok == tokstart + 2)
inhex = TRUE;
break;
-#endif /* BITOTS */
case '.':
if (seen_point) {
gotnumber = TRUE;
@@ -3225,7 +3348,6 @@ retry:
else
pushback();
break;
-#ifdef BITOPS
case 'a':
case 'A':
case 'b':
@@ -3239,7 +3361,6 @@ retry:
if (do_traditional || ! inhex)
goto done;
/* fall through */
-#endif
case '0':
case '1':
case '2':
@@ -3262,16 +3383,14 @@ retry:
if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
tokadd('\0');
-#ifdef BITOPS
if (! do_traditional && isnondecimal(tokstart))
yylval.nodeval = make_number(nondec2awknum(tokstart, strlen(tokstart)));
else
-#endif /* BITOPS */
- yylval.nodeval = make_number(atof(tokstart));
+ yylval.nodeval = make_number(atof(tokstart));
yylval.nodeval->flags |= PERM;
return lasttok = YNUMBER;
@@ -3291,16 +3410,29 @@ retry:
allow_newline();
want_assign = FALSE;
return lasttok = LEX_OR;
+ } else if (! do_traditional && c == '&') {
+ yylval.nodetypeval = Node_redirect_twoway;
+ want_assign = FALSE;
+ return lasttok = TWOWAYIO;
}
pushback();
return lasttok = '|';
}
- if (c != '_' && ! isalpha(c)) {
- yyerror("Invalid char '%c' in expression\n", c);
+ if (c != '_' && ! ISALPHA(c)) {
+ yyerror(_("invalid char '%c' in expression"), c);
exit(1);
}
+ if (! do_traditional && c == '_') {
+ if ((c = nextc()) == '"') {
+ intlstr = TRUE;
+ goto string;
+ }
+ pushback();
+ c = '_';
+ }
+
/* it's some type of name-type-thing. Find its length. */
tok = tokstart;
while (is_identchar(c)) {
@@ -3313,7 +3445,7 @@ retry:
if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
@@ -3334,17 +3466,17 @@ retry:
else {
if (do_lint) {
if (tokentab[mid].flags & GAWKX)
- warning("%s() is a gawk extension",
+ lintwarn(_("`%s' is a gawk extension"),
tokentab[mid].operator);
if (tokentab[mid].flags & RESX)
- warning("%s() is a Bell Labs extension",
+ lintwarn(_("`%s' is a Bell Labs extension"),
tokentab[mid].operator);
if (tokentab[mid].flags & NOT_POSIX)
- warning("POSIX does not allow %s",
+ lintwarn(_("POSIX does not allow `%s'"),
tokentab[mid].operator);
}
if (do_lint_old && (tokentab[mid].flags & NOT_OLD))
- warning("%s is not supported in old awk",
+ warning(_("`%s' is not supported in old awk"),
tokentab[mid].operator);
if ((do_traditional && (tokentab[mid].flags & GAWKX))
|| (do_posix && (tokentab[mid].flags & NOT_POSIX)))
@@ -3365,7 +3497,15 @@ retry:
if (*lexptr == '(')
return lasttok = FUNC_CALL;
else {
+ static short goto_warned = FALSE;
+
want_assign = TRUE;
+#define SMART_ALECK 1
+ if (SMART_ALECK && do_lint
+ && ! goto_warned && strcasecmp(tokkey, "goto") == 0) {
+ goto_warned = TRUE;
+ lintwarn(_("`goto' considered harmful!\n"));
+ }
return lasttok = NAME;
}
}
@@ -3373,14 +3513,15 @@ retry:
/* node_common --- common code for allocating a new node */
static NODE *
-node_common(op)
-NODETYPE op;
+node_common(NODETYPE op)
{
register NODE *r;
getnode(r);
r->type = op;
r->flags = MALLOC;
+ if (r->type == Node_var)
+ r->flags |= UNINITIALIZED;
/* if lookahead is NL, lineno is 1 too high */
if (lexeme && *lexeme == '\n')
r->source_line = sourceline - 1;
@@ -3393,9 +3534,7 @@ NODETYPE op;
/* node --- allocates a node with defined lnode and rnode. */
NODE *
-node(left, op, right)
-NODE *left, *right;
-NODETYPE op;
+node(NODE *left, NODETYPE op, NODE *right)
{
register NODE *r;
@@ -3410,10 +3549,7 @@ NODETYPE op;
possible. */
static NODE *
-snode(subn, op, idx)
-NODETYPE op;
-int idx;
-NODE *subn;
+snode(NODE *subn, NODETYPE op, int idx)
{
register NODE *r;
register NODE *n;
@@ -3432,24 +3568,30 @@ NODE *subn;
/* check against how many args. are allowed for this builtin */
args_allowed = tokentab[idx].flags & ARGS;
if (args_allowed && (args_allowed & A(nexp)) == 0)
- fatal("%s() cannot have %d argument%c",
- tokentab[idx].operator, nexp, nexp == 1 ? ' ' : 's');
+ fatal(_("%d is invalid as number of arguments for %s"),
+ nexp, tokentab[idx].operator);
r->proc = tokentab[idx].ptr;
/* special case processing for a few builtins */
- /*
- * FIXME: go through these to make sure that everything done
- * here is really right. Move anything that's not into
- * the corresponding routine.
- */
if (nexp == 0 && r->proc == do_length) {
subn = node(node(make_number(0.0), Node_field_spec, (NODE *) NULL),
Node_expression_list,
(NODE *) NULL);
} else if (r->proc == do_match) {
+ static short warned = FALSE;
+
if (subn->rnode->lnode->type != Node_regex)
subn->rnode->lnode = mk_rexp(subn->rnode->lnode);
+
+ if (subn->rnode->rnode != NULL) { /* 3rd argument there */
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ lintwarn(_("match: third argument is a gawk extension"));
+ }
+ if (do_traditional)
+ fatal(_("match: third argument is a gawk extension"));
+ }
} else if (r->proc == do_sub || r->proc == do_gsub) {
if (subn->lnode->type != Node_regex)
subn->lnode = mk_rexp(subn->lnode);
@@ -3460,11 +3602,18 @@ NODE *subn;
Node_expression_list,
(NODE *) NULL));
else if (subn->rnode->rnode->lnode->type == Node_val) {
- if (do_lint)
- warning("string literal as last arg of substitute");
- } else if (! isassignable(subn->rnode->rnode->lnode))
- yyerror("%s third parameter is not a changeable object",
- r->proc == do_sub ? "sub" : "gsub");
+ if (do_lint) {
+ char *f;
+
+ f = (r->proc == do_sub) ? "sub" : "gsub";
+ lintwarn(_("%s: string literal as last arg of substitute has no effect"), f);
+ }
+ } else if (! isassignable(subn->rnode->rnode->lnode)) {
+ if (r->proc == do_sub)
+ yyerror(_("sub third parameter is not a changeable object"));
+ else
+ yyerror(_("gsub third parameter is not a changeable object"));
+ }
} else if (r->proc == do_gensub) {
if (subn->lnode->type != Node_regex)
subn->lnode = mk_rexp(subn->lnode);
@@ -3483,9 +3632,37 @@ NODE *subn;
subn->rnode->rnode->lnode = mk_rexp(n);
if (nexp == 2)
subn->rnode->rnode->lnode->re_flags |= FS_DFLT;
+ } else if (r->proc == do_close) {
+ static short warned = FALSE;
+
+ if ( nexp == 2) {
+ if (do_lint && nexp == 2 && ! warned) {
+ warned = TRUE;
+ lintwarn(_("close: second argument is a gawk extension"));
+ }
+ if (do_traditional)
+ fatal(_("close: second argument is a gawk extension"));
+ }
+ } else if (do_intl /* --gen-po */
+ && r->proc == do_dcgettext /* dcgettext(...) */
+ && subn->lnode->type == Node_val /* 1st arg is constant */
+ && (subn->lnode->flags & STR) != 0) { /* it's a string constant */
+ /* ala xgettext, dcgettext("some string" ...) dumps the string */
+ NODE *str = subn->lnode;
+
+ if ((str->flags & INTLSTR) != 0)
+ warning(_("use of dcgettext(_\"...\") is incorrect: remove leading underscore"));
+ /* don't dump it, the lexer already did */
+ else
+ dumpintlstr(str->stptr, str->stlen);
}
+
r->subnode = subn;
+ if (r->proc == do_sprintf) {
+ count_args(r);
+ r->lnode->printf_count = r->printf_count; /* hack */
+ }
return r;
}
@@ -3498,8 +3675,7 @@ NODE *subn;
*/
static NODE *
-mkrangenode(cpair)
-NODE *cpair;
+mkrangenode(NODE *cpair)
{
register NODE *r;
@@ -3513,8 +3689,7 @@ NODE *cpair;
/* make_for_loop --- build a for loop */
static NODE *
-make_for_loop(init, cond, incr)
-NODE *init, *cond, *incr;
+make_for_loop(NODE *init, NODE *cond, NODE *incr)
{
register FOR_LOOP_HEADER *r;
NODE *n;
@@ -3532,8 +3707,7 @@ NODE *init, *cond, *incr;
/* dup_parms --- return TRUE if there are duplicate parameters */
static int
-dup_parms(func)
-NODE *func;
+dup_parms(NODE *func)
{
register NODE *np;
char *fname, **names;
@@ -3570,7 +3744,7 @@ NODE *func;
if (strcmp(names[i], names[j]) == 0) {
dups++;
error(
- "function `%s': parameter #%d, `%s', duplicates parameter #%d",
+ _("function `%s': parameter #%d, `%s', duplicates parameter #%d"),
fname, i+1, names[j], j+1);
}
}
@@ -3580,6 +3754,34 @@ NODE *func;
return (dups > 0 ? TRUE : FALSE);
}
+/* parms_shadow --- check if parameters shadow globals */
+
+static void
+parms_shadow(const char *fname, NODE *func)
+{
+ int count, i;
+
+ if (fname == NULL || func == NULL) /* error earlier */
+ return;
+
+ count = func->lnode->param_cnt;
+
+ if (count == 0) /* no args, no problem */
+ return;
+
+ /*
+ * Use warning() and not lintwarn() so that can warn
+ * about all shadowed parameters.
+ */
+ for (i = 0; i < count; i++) {
+ if (lookup(func->parmlist[i]) != NULL) {
+ warning(
+ _("function `%s': parameter `%s' shadows global variable"),
+ fname, func->parmlist[i]);
+ }
+ }
+}
+
/*
* install:
* Install a name in the symbol table, even if it is already there.
@@ -3587,14 +3789,13 @@ NODE *func;
*/
NODE *
-install(name, value)
-char *name;
-NODE *value;
+install(char *name, NODE *value)
{
register NODE *hp;
register size_t len;
register int bucket;
+ var_count++;
len = strlen(name);
bucket = hash(name, len, (unsigned long) HASHSIZE);
getnode(hp);
@@ -3611,8 +3812,7 @@ NODE *value;
/* lookup --- find the most recent hash node for name installed by install */
NODE *
-lookup(name)
-const char *name;
+lookup(const char *name)
{
register NODE *bucket;
register size_t len;
@@ -3626,6 +3826,232 @@ const char *name;
return NULL;
}
+/* var_comp --- compare two variable names */
+
+static int
+var_comp(const void *v1, const void *v2)
+{
+ NODE **npp1, **npp2;
+ NODE *n1, *n2;
+ int minlen;
+
+ npp1 = (NODE **) v1;
+ npp2 = (NODE **) v2;
+ n1 = *npp1;
+ n2 = *npp2;
+
+ if (n1->hlength > n2->hlength)
+ minlen = n1->hlength;
+ else
+ minlen = n2->hlength;
+
+ return strncmp(n1->hname, n2->hname, minlen);
+}
+
+/* valinfo --- dump var info */
+
+static void
+valinfo(NODE *n, FILE *fp)
+{
+ if (n->flags & STRING) {
+ fprintf(fp, "string (");
+ pp_string_fp(fp, n->stptr, n->stlen, '"', FALSE);
+ fprintf(fp, ")\n");
+ } else if (n->flags & NUMBER)
+ fprintf(fp, "number (%.17g)\n", n->numbr);
+ else if (n->flags & STR) {
+ fprintf(fp, "string value (");
+ pp_string_fp(fp, n->stptr, n->stlen, '"', FALSE);
+ fprintf(fp, ")\n");
+ } else if (n->flags & NUM)
+ fprintf(fp, "number value (%.17g)\n", n->numbr);
+ else
+ fprintf(fp, "?? flags %s\n", flags2str(n->flags));
+}
+
+
+/* dump_vars --- dump the symbol table */
+
+void
+dump_vars(const char *fname)
+{
+ int i, j;
+ NODE **table;
+ NODE *p;
+ FILE *fp;
+
+ emalloc(table, NODE **, var_count * sizeof(NODE *), "dump_vars");
+
+ if (fname == NULL)
+ fp = stderr;
+ else if ((fp = fopen(fname, "w")) == NULL) {
+ warning(_("could not open `%s' for writing (%s)"), fname, strerror(errno));
+ warning(_("sending profile to standard error"));
+ fp = stderr;
+ }
+
+ for (i = j = 0; i < HASHSIZE; i++)
+ for (p = variables[i]; p != NULL; p = p->hnext)
+ table[j++] = p;
+
+ assert(j == var_count);
+
+ /* Shazzam! */
+ qsort(table, j, sizeof(NODE *), var_comp);
+
+ for (i = 0; i < j; i++) {
+ p = table[i];
+ if (p->hvalue->type == Node_func)
+ continue;
+ fprintf(fp, "%.*s: ", (int) p->hlength, p->hname);
+ if (p->hvalue->type == Node_var_array)
+ fprintf(fp, "array, %ld elements\n", p->hvalue->table_size);
+ else if (p->hvalue->type == Node_var)
+ valinfo(p->hvalue->var_value, fp);
+ else {
+ NODE **lhs = get_lhs(p->hvalue, NULL, FALSE);
+
+ valinfo(*lhs, fp);
+ }
+ }
+
+ if (fp != stderr && fclose(fp) != 0)
+ warning(_("%s: close failed (%s)"), fname, strerror(errno));
+
+ free(table);
+}
+
+/* release_all_vars --- free all variable memory */
+
+void
+release_all_vars()
+{
+ int i;
+ NODE *p, *next;
+
+ for (i = 0; i < HASHSIZE; i++)
+ for (p = variables[i]; p != NULL; p = next) {
+ next = p->hnext;
+
+ if (p->hvalue->type == Node_func)
+ continue;
+ else if (p->hvalue->type == Node_var_array)
+ assoc_clear(p->hvalue);
+ else if (p->hvalue->type == Node_var)
+ unref(p->hvalue->var_value);
+ else {
+ NODE **lhs = get_lhs(p->hvalue, NULL, FALSE);
+
+ unref((*lhs)->var_value);
+ }
+ unref(p);
+ }
+}
+
+/* finfo --- for use in comparison and sorting of function names */
+
+struct finfo {
+ char *name;
+ size_t nlen;
+ NODE *func;
+};
+
+/* fcompare --- comparison function for qsort */
+
+static int
+fcompare(const void *p1, const void *p2)
+{
+ struct finfo *f1, *f2;
+ int minlen;
+
+ f1 = (struct finfo *) p1;
+ f2 = (struct finfo *) p2;
+
+ if (f1->nlen > f2->nlen)
+ minlen = f2->nlen;
+ else
+ minlen = f1->nlen;
+
+ return strncmp(f1->name, f2->name, minlen);
+}
+
+/* dump_funcs --- print all functions */
+
+void
+dump_funcs()
+{
+ int i, j;
+ NODE *p;
+ static struct finfo *tab = NULL;
+
+ if (func_count == 0)
+ return;
+
+ if (tab == NULL)
+ emalloc(tab, struct finfo *, func_count * sizeof(struct finfo), "dump_funcs");
+
+ for (i = j = 0; i < HASHSIZE; i++) {
+ for (p = variables[i]; p != NULL; p = p->hnext) {
+ if (p->hvalue->type == Node_func) {
+ tab[j].name = p->hname;
+ tab[j].nlen = p->hlength;
+ tab[j].func = p->hvalue;
+ j++;
+ }
+ }
+ }
+
+ assert(j == func_count);
+
+ /* Shazzam! */
+ qsort(tab, func_count, sizeof(struct finfo), fcompare);
+
+ for (i = 0; i < j; i++)
+ pp_func(tab[i].name, tab[i].nlen, tab[i].func);
+
+ free(tab);
+}
+
+/* shadow_funcs --- check all functions for parameters that shadow globals */
+
+void
+shadow_funcs()
+{
+ int i, j;
+ NODE *p;
+ struct finfo *tab;
+ static int calls = 0;
+
+ if (func_count == 0)
+ return;
+
+ if (calls++ != 0)
+ fatal(_("shadow_funcs() called twice!"));
+
+ emalloc(tab, struct finfo *, func_count * sizeof(struct finfo), "shadow_funcs");
+
+ for (i = j = 0; i < HASHSIZE; i++) {
+ for (p = variables[i]; p != NULL; p = p->hnext) {
+ if (p->hvalue->type == Node_func) {
+ tab[j].name = p->hname;
+ tab[j].nlen = p->hlength;
+ tab[j].func = p->hvalue;
+ j++;
+ }
+ }
+ }
+
+ assert(j == func_count);
+
+ /* Shazzam! */
+ qsort(tab, func_count, sizeof(struct finfo), fcompare);
+
+ for (i = 0; i < j; i++)
+ parms_shadow(tab[i].name, tab[i].func);
+
+ free(tab);
+}
+
/*
* append_right:
* Add new to the rightmost branch of LIST. This uses n^2 time, so we make
@@ -3633,8 +4059,7 @@ const char *name;
*/
static NODE *
-append_right(list, new)
-NODE *list, *new;
+append_right(NODE *list, NODE *new)
{
register NODE *oldlist;
static NODE *savefront = NULL, *savetail = NULL;
@@ -3659,40 +4084,73 @@ NODE *list, *new;
* check if name is already installed; if so, it had better have Null value,
* in which case def is added as the value. Otherwise, install name with def
* as value.
+ *
+ * Extra work, build up and save a list of the parameter names in a table
+ * and hang it off params->parmlist. This is used to set the `vname' field
+ * of each function parameter during a function call. See eval.c.
*/
static void
-func_install(params, def)
-NODE *params;
-NODE *def;
+func_install(NODE *params, NODE *def)
{
- NODE *r;
- NODE *n;
+ NODE *r, *n, *thisfunc;
+ char **pnames, *names, *sp;
+ size_t pcount = 0, space = 0;
+ int i;
- /* check for function foo(foo) { ... }. bleh. */
+ /* check for function foo(foo) { ... }. bleah. */
for (n = params->rnode; n != NULL; n = n->rnode) {
if (strcmp(n->param, params->param) == 0)
- fatal("function `%s': can't use function name as parameter name",
+ fatal(_("function `%s': can't use function name as parameter name"),
params->param);
}
- pop_params(params->rnode);
+ thisfunc = NULL; /* turn off warnings */
+
+ /* symbol table managment */
pop_var(params, FALSE);
r = lookup(params->param);
if (r != NULL) {
- fatal("function name `%s' previously defined", params->param);
- } else
- (void) install(params->param, node(params, Node_func, def));
+ fatal(_("function name `%s' previously defined"), params->param);
+ } else {
+ thisfunc = node(params, Node_func, def);
+ (void) install(params->param, thisfunc);
+ }
+
+ /* figure out amount of space to allocate */
+ for (n = params->rnode; n != NULL; n = n->rnode) {
+ pcount++;
+ space += strlen(n->param) + 1;
+ }
+ /* allocate it and fill it in */
+ if (pcount != 0) {
+ emalloc(names, char *, space, "func_install");
+ emalloc(pnames, char **, pcount * sizeof(char *), "func_install");
+ sp = names;
+ for (i = 0, n = params->rnode; i < pcount; i++, n = n->rnode) {
+ pnames[i] = sp;
+ strcpy(sp, n->param);
+ sp += strlen(n->param) + 1;
+ }
+ thisfunc->parmlist = pnames;
+ } else {
+ thisfunc->parmlist = NULL;
+ }
+
+ /* remove params from symbol table */
+ pop_params(params->rnode);
+
+ /* update lint table info */
func_use(params->param, FUNC_DEFINE);
+
+ func_count++; /* used by profiling / pretty printer */
}
/* pop_var --- remove a variable from the symbol table */
static void
-pop_var(np, freeit)
-NODE *np;
-int freeit;
+pop_var(NODE *np, int freeit)
{
register NODE *bucket, **save;
register size_t len;
@@ -3703,6 +4161,7 @@ int freeit;
save = &(variables[hash(name, len, (unsigned long) HASHSIZE)]);
for (bucket = *save; bucket != NULL; bucket = bucket->hnext) {
if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
+ var_count--;
*save = bucket->hnext;
freenode(bucket);
if (freeit)
@@ -3720,8 +4179,7 @@ int freeit;
* avoid reading freed memory if there were duplicated parameters.
*/
static void
-pop_params(params)
-NODE *params;
+pop_params(NODE *params)
{
if (params == NULL)
return;
@@ -3732,8 +4190,7 @@ NODE *params;
/* make_param --- make NAME into a function parameter */
static NODE *
-make_param(name)
-char *name;
+make_param(char *name)
{
NODE *r;
@@ -3755,9 +4212,7 @@ static struct fdesc {
/* func_use --- track uses and definitions of functions */
static void
-func_use(name, how)
-char *name;
-enum defref how;
+func_use(char *name, enum defref how)
{
struct fdesc *fp;
int len;
@@ -3804,16 +4259,16 @@ check_funcs()
/* making this the default breaks old code. sigh. */
if (fp->defined == 0) {
error(
- "function `%s' called but never defined", fp->name);
+ _("function `%s' called but never defined"), fp->name);
errcount++;
}
#else
if (do_lint && fp->defined == 0)
- warning(
- "function `%s' called but never defined", fp->name);
+ lintwarn(
+ _("function `%s' called but never defined"), fp->name);
#endif
if (do_lint && fp->used == 0) {
- warning("function `%s' defined but never called",
+ lintwarn(_("function `%s' defined but never called"),
fp->name);
}
}
@@ -3832,8 +4287,7 @@ check_funcs()
/* param_sanity --- look for parameters that are regexp constants */
static void
-param_sanity(arglist)
-NODE *arglist;
+param_sanity(NODE *arglist)
{
NODE *argp, *arg;
int i;
@@ -3841,25 +4295,27 @@ NODE *arglist;
for (i = 1, argp = arglist; argp != NULL; argp = argp->rnode, i++) {
arg = argp->lnode;
if (arg->type == Node_regex)
- warning("regexp constant for parameter #%d yields boolean value", i);
+ warning(_("regexp constant for parameter #%d yields boolean value"), i);
}
}
/* variable --- make sure NAME is in the symbol table */
NODE *
-variable(name, can_free, type)
-char *name;
-int can_free;
-NODETYPE type;
+variable(char *name, int can_free, NODETYPE type)
{
register NODE *r;
static int env_loaded = FALSE;
+ static int procinfo_loaded = FALSE;
if (! env_loaded && STREQ(name, "ENVIRON")) {
load_environ();
env_loaded = TRUE;
}
+ if (! do_traditional && ! procinfo_loaded && STREQ(name, "PROCINFO")) {
+ load_procinfo();
+ procinfo_loaded = TRUE;
+ }
if ((r = lookup(name)) == NULL)
r = install(name, node(Nnull_string, type, (NODE *) NULL));
else if (can_free)
@@ -3870,8 +4326,7 @@ NODETYPE type;
/* mk_rexp --- make a regular expression constant */
static NODE *
-mk_rexp(exp)
-NODE *exp;
+mk_rexp(NODE *exp)
{
NODE *n;
@@ -3898,8 +4353,7 @@ NODE *exp;
*/
static int
-isnoeffect(type)
-NODETYPE type;
+isnoeffect(NODETYPE type)
{
switch (type) {
case Node_times:
@@ -3936,6 +4390,8 @@ NODETYPE type;
case Node_ORS:
case Node_OFMT:
case Node_CONVFMT:
+ case Node_BINMODE:
+ case Node_LINT:
return TRUE;
default:
break; /* keeps gcc -Wall happy */
@@ -3947,8 +4403,7 @@ NODETYPE type;
/* isassignable --- can this node be assigned to? */
static int
-isassignable(n)
-register NODE *n;
+isassignable(register NODE *n)
{
switch (n->type) {
case Node_var:
@@ -3963,6 +4418,8 @@ register NODE *n;
case Node_CONVFMT:
case Node_ORS:
case Node_OFS:
+ case Node_LINT:
+ case Node_BINMODE:
case Node_field_spec:
case Node_subscript:
return TRUE;
@@ -3974,10 +4431,53 @@ register NODE *n;
return FALSE;
}
-/* for debugging */
+/* stopme --- for debugging */
+
NODE *
-stopme(tree)
-NODE *tree;
+stopme(NODE *tree)
{
return tmp_number((AWKNUM) 0.0);
}
+
+/* dumpintlstr --- write out an initial .po file entry for the string */
+
+static void
+dumpintlstr(char *str, size_t len)
+{
+ char *cp;
+
+ /* See the GNU gettext distribution for details on the file format */
+
+ if (source != NULL) {
+ /* ala the gettext sources, remove leading `./'s */
+ for (cp = source; cp[0] == '.' && cp[1] == '/'; cp += 2)
+ continue;
+ printf("#: %s:%d\n", cp, sourceline);
+ }
+
+ printf("msgid ");
+ fflush(stdout);
+ pp_string_fp(stdout, str, len, '"', TRUE);
+ putchar('\n');
+ printf("msgstr \"\"\n\n");
+}
+
+/* count_args --- count the number of printf arguments */
+
+static void
+count_args(NODE *tree)
+{
+ size_t count = 0;
+ NODE *save_tree;
+
+ assert(tree->type == Node_K_printf
+ || (tree->type == Node_builtin && tree->proc == do_sprintf));
+ save_tree = tree;
+
+ tree = tree->lnode; /* printf format string */
+
+ for (count = 0; tree != NULL; tree = tree->rnode)
+ count++;
+
+ save_tree->printf_count = count;
+}
diff --git a/awk.y b/awkgram.y
index f6fdfcc5..649ccac4 100644
--- a/awk.y
+++ b/awkgram.y
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -24,7 +24,7 @@
*/
%{
-#ifdef DEBUG
+#ifdef GAWKDEBUG
#define YYDEBUG 12
#endif
@@ -52,8 +52,11 @@ static NODE *make_param P((char *name));
static NODE *mk_rexp P((NODE *exp));
static int dup_parms P((NODE *func));
static void param_sanity P((NODE *arglist));
+static void parms_shadow P((const char *fname, NODE *func));
static int isnoeffect P((NODETYPE t));
static int isassignable P((NODE *n));
+static void dumpintlstr P((char *str, size_t len));
+static void count_args P((NODE *n));
enum defref { FUNC_DEFINE, FUNC_USE };
static void func_use P((char *name, enum defref how));
@@ -63,6 +66,7 @@ static int want_assign; /* lexical scanning kludge */
static int want_regexp; /* lexical scanning kludge */
static int can_return; /* lexical scanning kludge */
static int io_allowed = TRUE; /* lexical scanning kludge */
+static int parsing_end_rule = FALSE; /* for warnings */
static char *lexptr; /* pointer to next char during parsing */
static char *lexend;
static char *lexptr_begin; /* keep track of where we were for error msgs */
@@ -74,8 +78,11 @@ static char *tokstart = NULL;
static char *tok = NULL;
static char *tokend;
+static long func_count; /* total number of functions */
+
#define HASHSIZE 1021 /* this constant only used here */
NODE *variables[HASHSIZE];
+static int var_count; /* total number of global variables */
extern char *source;
extern int sourceline;
@@ -134,7 +141,7 @@ extern NODE *end_block;
%left FUNC_CALL LEX_BUILTIN LEX_LENGTH
%nonassoc ','
%nonassoc MATCHOP
-%nonassoc RELOP '<' '>' '|' APPEND_OP
+%nonassoc RELOP '<' '>' '|' APPEND_OP TWOWAYIO
%left CONCAT_OP
%left YSTRING YNUMBER
%left '+' '-'
@@ -201,7 +208,7 @@ rule
io_allowed = TRUE;
yyerrok;
}
- | LEX_END { io_allowed = FALSE; }
+ | LEX_END { io_allowed = FALSE; parsing_end_rule = TRUE; }
action
{
if (end_block != NULL) {
@@ -215,17 +222,18 @@ rule
end_block = node((NODE *) NULL, Node_rule_node, $3);
$$ = NULL;
io_allowed = TRUE;
+ parsing_end_rule = FALSE;
yyerrok;
}
| LEX_BEGIN statement_term
{
- warning("BEGIN blocks must have an action part");
+ warning(_("BEGIN blocks must have an action part"));
errcount++;
yyerrok;
}
| LEX_END statement_term
{
- warning("END blocks must have an action part");
+ warning(_("END blocks must have an action part"));
errcount++;
yyerrok;
}
@@ -261,7 +269,7 @@ func_name
{ $$ = $1; }
| lex_builtin
{
- yyerror("%s() is a built-in function, it cannot be redefined",
+ yyerror(_("`%s' is a built-in function, it cannot be redefined"),
tokstart);
errcount++;
/* yyerrok; */
@@ -293,7 +301,7 @@ function_prologue
;
function_body
- : l_brace statements r_brace opt_semi
+ : l_brace statements r_brace opt_semi opt_nls
{
$$ = $2;
can_return = FALSE;
@@ -349,7 +357,7 @@ statements
{
$$ = $1;
if (do_lint && isnoeffect($$->type))
- warning("statement may have no effect");
+ lintwarn(_("statement may have no effect"));
}
| statements statement
{
@@ -398,8 +406,9 @@ statement
* Check that the body is a `delete a[i]' statement,
* and that both the loop var and array names match.
*/
- if ($8->type == Node_K_delete
+ if ($8 != NULL && $8->type == Node_K_delete
&& $8->rnode != NULL
+ && ($8->rnode->type == Node_var || $8->rnode->type == Node_param_list)
&& strcmp($3, $8->rnode->var_value->vname) == 0
&& strcmp($5, $8->lnode->vname) == 0) {
$8->type = Node_K_delete_loop;
@@ -410,14 +419,14 @@ statement
(NODE *) NULL, variable($5, CAN_FREE, Node_var_array)));
}
}
- | LEX_FOR '(' opt_exp semi exp semi opt_exp r_paren opt_nls statement
+ | LEX_FOR '(' opt_exp semi opt_nls exp semi opt_nls opt_exp r_paren opt_nls statement
{
- $$ = node($10, Node_K_for, (NODE *) make_for_loop($3, $5, $7));
+ $$ = node($12, Node_K_for, (NODE *) make_for_loop($3, $6, $9));
}
- | LEX_FOR '(' opt_exp semi semi opt_exp r_paren opt_nls statement
+ | LEX_FOR '(' opt_exp semi opt_nls semi opt_nls opt_exp r_paren opt_nls statement
{
- $$ = node($9, Node_K_for,
- (NODE *) make_for_loop($3, (NODE *) NULL, $6));
+ $$ = node($11, Node_K_for,
+ (NODE *) make_for_loop($3, (NODE *) NULL, $8));
}
| LEX_BREAK statement_term
/* for break, maybe we'll have to remember where to break to */
@@ -426,7 +435,11 @@ statement
/* similarly */
{ $$ = node((NODE *) NULL, Node_K_continue, (NODE *) NULL); }
| print '(' expression_list r_paren output_redir statement_term
- { $$ = node($3, $1, $5); }
+ {
+ $$ = node($3, $1, $5);
+ if ($$->type == Node_K_printf)
+ count_args($$)
+ }
| print opt_rexpression_list output_redir statement_term
{
if ($1 == Node_K_print && $2 == NULL) {
@@ -440,68 +453,39 @@ statement
if (do_lint && ! io_allowed && ! warned) {
warned = TRUE;
- warning(
- "plain `print' in BEGIN or END rule should probably be `print \"\"'");
+ lintwarn(
+ _("plain `print' in BEGIN or END rule should probably be `print \"\"'"));
}
}
$$ = node($2, $1, $3);
+ if ($$->type == Node_K_printf)
+ count_args($$)
}
- | LEX_NEXT opt_exp statement_term
+ | LEX_NEXT statement_term
{ NODETYPE type;
- if ($2) {
- if ($2 == lookup("file")) {
- static int warned = FALSE;
-
- if (! warned) {
- warned = TRUE;
- warning("`next file' is obsolete; use `nextfile'");
- }
- if (do_lint)
- warning("`next file' is a gawk extension");
- if (do_traditional) {
- /*
- * can't use yyerror, since may have overshot
- * the source line
- */
- errcount++;
- error("`next file' is a gawk extension");
- }
- if (! io_allowed) {
- /* same thing */
- errcount++;
- error("`next file' used in BEGIN or END action");
- }
- type = Node_K_nextfile;
- } else {
- errcount++;
- error("illegal expression after `next'");
- type = Node_K_next; /* sanity */
- }
- } else {
- if (! io_allowed)
- yyerror("`next' used in BEGIN or END action");
- type = Node_K_next;
- }
+ if (! io_allowed)
+ yyerror(_("`next' used in BEGIN or END action"));
+ type = Node_K_next;
$$ = node((NODE *) NULL, type, (NODE *) NULL);
}
| LEX_NEXTFILE statement_term
{
if (do_lint)
- warning("`nextfile' is a gawk extension");
+ lintwarn(_("`nextfile' is a gawk extension"));
if (do_traditional) {
/*
* can't use yyerror, since may have overshot
* the source line
*/
errcount++;
- error("`nextfile' is a gawk extension");
+ error(_("`nextfile' is a gawk extension"));
}
if (! io_allowed) {
/* same thing */
errcount++;
- error("`nextfile' used in BEGIN or END action");
+ error(_("`nextfile' used in BEGIN or END action"));
}
$$ = node((NODE *) NULL, Node_K_nextfile, (NODE *) NULL);
}
@@ -510,7 +494,7 @@ statement
| LEX_RETURN
{
if (! can_return)
- yyerror("`return' used outside function context");
+ yyerror(_("`return' used outside function context"));
}
opt_exp statement_term
{ $$ = node($3, Node_K_return, (NODE *) NULL); }
@@ -519,14 +503,14 @@ statement
| LEX_DELETE NAME statement_term
{
if (do_lint)
- warning("`delete array' is a gawk extension");
+ lintwarn(_("`delete array' is a gawk extension"));
if (do_traditional) {
/*
* can't use yyerror, since may have overshot
* the source line
*/
errcount++;
- error("`delete array' is a gawk extension");
+ error(_("`delete array' is a gawk extension"));
}
$$ = node(variable($2, CAN_FREE, Node_var_array), Node_K_delete, (NODE *) NULL);
}
@@ -580,6 +564,13 @@ output_redir
{ $$ = node($2, Node_redirect_append, (NODE *) NULL); }
| '|' exp
{ $$ = node($2, Node_redirect_pipe, (NODE *) NULL); }
+ | TWOWAYIO exp
+ {
+ if ($2->type == Node_K_getline
+ && $2->rnode->type == Node_redirect_twoway)
+ yyerror(_("multistage two-way pipelines don't work"));
+ $$ = node($2, Node_redirect_twoway, (NODE *) NULL);
+ }
;
opt_param_list
@@ -668,7 +659,7 @@ exp : variable ASSIGNOP
exp
{
if (do_lint && $4->type == Node_regex)
- warning("Regular expression on left of assignment.");
+ lintwarn(_("regular expression on right of assignment"));
$$ = node($1, $2, $4);
}
| '(' expression_list r_paren LEX_IN NAME
@@ -678,10 +669,15 @@ exp : variable ASSIGNOP
$$ = node($4, Node_K_getline,
node($1, Node_redirect_pipein, (NODE *) NULL));
}
+ | exp TWOWAYIO LEX_GETLINE opt_variable
+ {
+ $$ = node($4, Node_K_getline,
+ node($1, Node_redirect_twoway, (NODE *) NULL));
+ }
| LEX_GETLINE opt_variable input_redir
{
- if (do_lint && ! io_allowed && $3 == NULL)
- warning("non-redirected getline undefined inside BEGIN or END action");
+ if (do_lint && ! io_allowed && parsing_end_rule && $3 == NULL)
+ lintwarn(_("non-redirected `getline' undefined inside END action"));
$$ = node($2, Node_K_getline, $3);
}
| exp LEX_AND exp
@@ -691,7 +687,7 @@ exp : variable ASSIGNOP
| exp MATCHOP exp
{
if ($1->type == Node_regex)
- warning("Regular expression on left of MATCH operator.");
+ warning(_("regular expression on left of `~' or `!~' operator"));
$$ = node($1, $2, mk_rexp($3));
}
| regexp
@@ -701,7 +697,7 @@ exp : variable ASSIGNOP
/* possible C comment */
int n = strlen(tokstart) - 1;
if (tokstart[n] == '*')
- warning("regexp looks like a C comment, but is not");
+ lintwarn(_("regexp constant `/%s/' looks like a C comment, but is not"), tokstart);
}
}
| '!' regexp %prec UNARY
@@ -717,7 +713,7 @@ exp : variable ASSIGNOP
| exp RELOP exp
{
if (do_lint && $3->type == Node_regex)
- warning("Regular expression on left of comparison.");
+ lintwarn(_("regular expression on right of comparison"));
$$ = node($1, $2, $3);
}
| exp '<' exp
@@ -744,7 +740,7 @@ rexp
| LEX_GETLINE opt_variable input_redir
{
if (do_lint && ! io_allowed && $3 == NULL)
- warning("non-redirected getline undefined inside BEGIN or END action");
+ lintwarn(_("non-redirected `getline' undefined inside BEGIN or END action"));
$$ = node($2, Node_K_getline, $3);
}
| regexp
@@ -799,10 +795,10 @@ non_post_simp_exp
| LEX_LENGTH
{
if (do_lint)
- warning("call of `length' without parentheses is not portable");
+ lintwarn(_("call of `length' without parentheses is not portable"));
$$ = snode((NODE *) NULL, Node_builtin, (int) $1);
if (do_posix)
- warning("call of `length' without parentheses is deprecated by POSIX");
+ warning(_("call of `length' without parentheses is deprecated by POSIX"));
}
| FUNC_CALL '(' opt_expression_list r_paren
{
@@ -852,7 +848,7 @@ variable
| NAME '[' expression_list ']'
{
if ($3 == NULL) {
- fatal("invalid subscript expression");
+ fatal(_("invalid subscript expression"));
} else if ($3->rnode == NULL) {
$$ = node(variable($1, CAN_FREE, Node_var_array), Node_subscript, $3->lnode);
freenode($3);
@@ -896,7 +892,7 @@ struct token {
unsigned flags; /* # of args. allowed and compatability */
# define ARGS 0xFF /* 0, 1, 2, 3 args allowed (any combination */
# define A(n) (1<<(n))
-# define VERSION 0xFF00 /* old awk is zero */
+# define VERSION_MASK 0xFF00 /* old awk is zero */
# define NOT_OLD 0x0100 /* feature not in old awk */
# define NOT_POSIX 0x0200 /* feature not in POSIX */
# define GAWKX 0x0400 /* gawk extension */
@@ -904,7 +900,6 @@ struct token {
NODE *(*ptr)(); /* function that implements this keyword */
};
-
/* Tokentab is sorted ascii ascending order, so it can be binary searched. */
/* Function pointers come from declarations in awk.h. */
@@ -914,22 +909,22 @@ static struct token tokentab[] = {
#ifdef ARRAYDEBUG
{"adump", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_adump},
#endif
-#ifdef BITOPS
{"and", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_and},
-#endif /* BITOPS */
+{"asort", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2), do_asort},
{"atan2", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_atan2},
+{"bindtextdomain", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2), do_bindtextdomain},
{"break", Node_K_break, LEX_BREAK, 0, 0},
-{"close", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_close},
-#ifdef BITOPS
+{"close", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1)|A(2), do_close},
{"compl", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_compl},
-#endif /* BITOPS */
{"continue", Node_K_continue, LEX_CONTINUE, 0, 0},
{"cos", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_cos},
+{"dcgettext", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3), do_dcgettext},
{"delete", Node_K_delete, LEX_DELETE, NOT_OLD, 0},
{"do", Node_K_do, LEX_DO, NOT_OLD, 0},
{"else", Node_illegal, LEX_ELSE, 0, 0},
{"exit", Node_K_exit, LEX_EXIT, 0, 0},
{"exp", Node_builtin, LEX_BUILTIN, A(1), do_exp},
+{"extension", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_ext},
{"fflush", Node_builtin, LEX_BUILTIN, RESX|A(0)|A(1), do_fflush},
{"for", Node_K_for, LEX_FOR, 0, 0},
{"func", Node_K_function, LEX_FUNCTION, NOT_POSIX|NOT_OLD, 0},
@@ -943,34 +938,27 @@ static struct token tokentab[] = {
{"int", Node_builtin, LEX_BUILTIN, A(1), do_int},
{"length", Node_builtin, LEX_LENGTH, A(0)|A(1), do_length},
{"log", Node_builtin, LEX_BUILTIN, A(1), do_log},
-#ifdef BITOPS
{"lshift", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_lshift},
-#endif /* BITOPS */
-{"match", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_match},
+{"match", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_match},
+{"mktime", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_mktime},
{"next", Node_K_next, LEX_NEXT, 0, 0},
{"nextfile", Node_K_nextfile, LEX_NEXTFILE, GAWKX, 0},
-#ifdef BITOPS
{"or", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_or},
-#endif /* BITOPS */
{"print", Node_K_print, LEX_PRINT, 0, 0},
{"printf", Node_K_printf, LEX_PRINTF, 0, 0},
{"rand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0), do_rand},
{"return", Node_K_return, LEX_RETURN, NOT_OLD, 0},
-#ifdef BITOPS
{"rshift", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_rshift},
-#endif /* BITOPS */
{"sin", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_sin},
{"split", Node_builtin, LEX_BUILTIN, A(2)|A(3), do_split},
{"sprintf", Node_builtin, LEX_BUILTIN, 0, do_sprintf},
{"sqrt", Node_builtin, LEX_BUILTIN, A(1), do_sqrt},
{"srand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0)|A(1), do_srand},
-#ifdef ARRAYDEBUG
+#if defined(GAWKDEBUG) || defined(ARRAYDEBUG) /* || ... */
{"stopme", Node_builtin, LEX_BUILTIN, GAWKX|A(0), stopme},
#endif
{"strftime", Node_builtin, LEX_BUILTIN, GAWKX|A(0)|A(1)|A(2), do_strftime},
-#ifdef BITOPS
{"strtonum", Node_builtin, LEX_BUILTIN, GAWKX|A(1), do_strtonum},
-#endif /* BITOPS */
{"sub", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_sub},
{"substr", Node_builtin, LEX_BUILTIN, A(2)|A(3), do_substr},
{"system", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_system},
@@ -978,21 +966,40 @@ static struct token tokentab[] = {
{"tolower", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_tolower},
{"toupper", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_toupper},
{"while", Node_K_while, LEX_WHILE, 0, 0},
-#ifdef BITOPS
{"xor", Node_builtin, LEX_BUILTIN, GAWKX|A(2), do_xor},
-#endif /* BITOPS */
};
+/* getfname --- return name of a builtin function (for pretty printing) */
+
+const char *
+getfname(register NODE *(*fptr)())
+{
+ register int i, j;
+
+ j = sizeof(tokentab) / sizeof(tokentab[0]);
+ /* linear search, no other way to do it */
+ for (i = 0; i < j; i++)
+ if (tokentab[i].ptr == fptr)
+ return tokentab[i].operator;
+
+ fatal(_("fptr %x not in tokentab\n"), fptr);
+ return NULL; /* to stop warnings */
+}
+
/* yyerror --- print a syntax error message, show where */
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+/*
+ * Function identifier purposely indented to avoid mangling
+ * by ansi2knr. Sigh.
+ */
+
static void
-yyerror(const char *m, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ yyerror(const char *m, ...)
#else
/* VARARGS0 */
-static void
-yyerror(va_alist)
-va_dcl
+ yyerror(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -1009,7 +1016,7 @@ va_dcl
cp = lexeme;
if (*cp == '\n') {
cp--;
- mesg = "unexpected newline";
+ mesg = _("unexpected newline");
}
for (; cp != lexptr_begin && *cp != '\n'; --cp)
continue;
@@ -1088,7 +1095,7 @@ again:
if (do_lint && ! warned) {
warned = TRUE;
- warning("empty program text on command line");
+ lintwarn(_("empty program text on command line"));
}
++nextfile;
goto again;
@@ -1145,7 +1152,7 @@ again:
/* suppress file name and line no. in error mesg */
in = source;
source = NULL;
- fatal("can't open source file \"%s\" for reading (%s)",
+ fatal(_("can't open source file `%s' for reading (%s)"),
in, strerror(errno));
}
len = optimal_bufsize(fd, & sbuf);
@@ -1180,7 +1187,7 @@ again:
}
n = read(fd, buf + SLOP, len);
if (n == -1)
- fatal("can't read sourcefile \"%s\" (%s)",
+ fatal(_("can't read sourcefile `%s' (%s)"),
source, strerror(errno));
if (n == 0) {
if (newfile) {
@@ -1188,10 +1195,10 @@ again:
if (do_lint && ! warned) {
warned = TRUE;
- warning("source file `%s' is empty", source);
+ lintwarn(_("source file `%s' is empty"), source);
}
}
- if (fileno(stdin) != fd) /* safety */
+ if (fd != fileno(stdin)) /* safety */
close(fd);
samefile = FALSE;
nextfile++;
@@ -1230,7 +1237,7 @@ tokexpand()
/* nextc --- get the next input character */
-#if DEBUG
+#if GAWKDEBUG
int
nextc()
{
@@ -1275,7 +1282,7 @@ allow_newline()
}
if (c == '\n')
sourceline++;
- if (! isspace(c)) {
+ if (! ISSPACE(c)) {
pushback();
break;
}
@@ -1287,7 +1294,7 @@ allow_newline()
static int
yylex()
{
- register int c, c1;
+ register int c;
int seen_e = FALSE; /* These are for numbers */
int seen_point = FALSE;
int esc_seen; /* for literal strings */
@@ -1296,12 +1303,13 @@ yylex()
char *tokkey;
static int lasttok = 0, eof_warned = FALSE;
int inhex = FALSE;
+ int intlstr = FALSE;
if (nextc() == EOF) {
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -1347,7 +1355,7 @@ yylex()
switch (c) {
case '[':
/* one day check for `.' and `=' too */
- if ((c1 = nextc()) == ':' || in_brack == 0)
+ if (nextc() == ':' || in_brack == 0)
in_brack++;
pushback();
break;
@@ -1362,7 +1370,7 @@ yylex()
break;
case '\\':
if ((c = nextc()) == EOF) {
- yyerror("unterminated regexp ends with \\ at end of file");
+ yyerror(_("unterminated regexp ends with `\\' at end of file"));
return lasttok = REGEXP; /* kludge */
} else if (c == '\n') {
sourceline++;
@@ -1383,10 +1391,10 @@ yylex()
return lasttok = REGEXP;
case '\n':
pushback();
- yyerror("unterminated regexp");
+ yyerror(_("unterminated regexp"));
return lasttok = REGEXP; /* kludge */
case EOF:
- yyerror("unterminated regexp at end of file");
+ yyerror(_("unterminated regexp at end of file"));
return lasttok = REGEXP; /* kludge */
}
tokadd(c);
@@ -1406,7 +1414,7 @@ retry:
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -1423,8 +1431,8 @@ retry:
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
- warning(
- "source file does not end in newline");
+ lintwarn(
+ _("source file does not end in newline"));
eof_warned = TRUE;
}
return NEWLINE; /* fake it */
@@ -1449,8 +1457,8 @@ retry:
continue;
if (c == '#') {
if (do_lint)
- warning(
- "use of `\\ #...' line continuation is not portable");
+ lintwarn(
+ _("use of `\\ #...' line continuation is not portable"));
while ((c = nextc()) != '\n')
if (c == EOF)
break;
@@ -1462,7 +1470,7 @@ retry:
sourceline++;
goto retry;
} else {
- yyerror("backslash not last character on line");
+ yyerror(_("backslash not last character on line"));
exit(1);
}
break;
@@ -1473,7 +1481,8 @@ retry:
case ':':
case '?':
- allow_newline();
+ if (! do_posix)
+ allow_newline();
return lasttok = c;
case ')':
@@ -1499,19 +1508,23 @@ retry:
static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
- if (do_lint && ! did_warn_assgn) {
+ if (! did_warn_assgn) {
did_warn_assgn = TRUE;
- warning("**= is not allowed by POSIX");
- warning("operator `**=' is not supported in old awk");
+ if (do_lint)
+ lintwarn(_("POSIX does not allow operator `**='"));
+ if (do_lint_old)
+ warning(_("old awk does not support operator `**='"));
}
yylval.nodetypeval = Node_assign_exp;
return ASSIGNOP;
} else {
pushback();
- if (do_lint && ! did_warn_op) {
+ if (! did_warn_op) {
did_warn_op = TRUE;
- warning("** is not allowed by POSIX");
- warning("operator `**' is not supported in old awk");
+ if (do_lint)
+ lintwarn(_("POSIX does not allow operator `**'"));
+ if (do_lint_old)
+ warning(_("old awk does not support operator `**'"));
}
return lasttok = '^';
}
@@ -1542,17 +1555,17 @@ retry:
static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
- if (do_lint && ! did_warn_assgn) {
+ if (do_lint_old && ! did_warn_assgn) {
did_warn_assgn = TRUE;
- warning("operator `^=' is not supported in old awk");
+ warning(_("operator `^=' is not supported in old awk"));
}
yylval.nodetypeval = Node_assign_exp;
return lasttok = ASSIGNOP;
}
pushback();
- if (do_lint && ! did_warn_op) {
+ if (do_lint_old && ! did_warn_op) {
did_warn_op = TRUE;
- warning("operator `^' is not supported in old awk");
+ warning(_("operator `^' is not supported in old awk"));
}
return lasttok = '^';
}
@@ -1629,11 +1642,12 @@ retry:
return lasttok = NEWLINE;
case '"':
+ string:
esc_seen = FALSE;
while ((c = nextc()) != '"') {
if (c == '\n') {
pushback();
- yyerror("unterminated string");
+ yyerror(_("unterminated string"));
exit(1);
}
if (c == '\\') {
@@ -1647,7 +1661,7 @@ retry:
}
if (c == EOF) {
pushback();
- yyerror("unterminated string");
+ yyerror(_("unterminated string"));
exit(1);
}
tokadd(c);
@@ -1655,6 +1669,13 @@ retry:
yylval.nodeval = make_str_node(tokstart,
tok - tokstart, esc_seen ? SCAN : 0);
yylval.nodeval->flags |= PERM;
+ if (intlstr) {
+ yylval.nodeval->flags |= INTLSTR;
+ intlstr = FALSE;
+ if (do_intl)
+ dumpintlstr(yylval.nodeval->stptr,
+ yylval.nodeval->stlen);
+ }
return lasttok = YSTRING;
case '-':
@@ -1670,7 +1691,7 @@ retry:
case '.':
c = nextc();
pushback();
- if (! isdigit(c))
+ if (! ISDIGIT(c))
return lasttok = '.';
else
c = '.';
@@ -1691,7 +1712,6 @@ retry:
tokadd(c);
switch (c) {
-#ifdef BITOPS
case 'x':
case 'X':
if (do_traditional)
@@ -1699,7 +1719,6 @@ retry:
if (tok == tokstart + 2)
inhex = TRUE;
break;
-#endif /* BITOTS */
case '.':
if (seen_point) {
gotnumber = TRUE;
@@ -1721,7 +1740,6 @@ retry:
else
pushback();
break;
-#ifdef BITOPS
case 'a':
case 'A':
case 'b':
@@ -1735,7 +1753,6 @@ retry:
if (do_traditional || ! inhex)
goto done;
/* fall through */
-#endif
case '0':
case '1':
case '2':
@@ -1758,16 +1775,14 @@ retry:
if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
tokadd('\0');
-#ifdef BITOPS
if (! do_traditional && isnondecimal(tokstart))
yylval.nodeval = make_number(nondec2awknum(tokstart, strlen(tokstart)));
else
-#endif /* BITOPS */
- yylval.nodeval = make_number(atof(tokstart));
+ yylval.nodeval = make_number(atof(tokstart));
yylval.nodeval->flags |= PERM;
return lasttok = YNUMBER;
@@ -1787,16 +1802,29 @@ retry:
allow_newline();
want_assign = FALSE;
return lasttok = LEX_OR;
+ } else if (! do_traditional && c == '&') {
+ yylval.nodetypeval = Node_redirect_twoway;
+ want_assign = FALSE;
+ return lasttok = TWOWAYIO;
}
pushback();
return lasttok = '|';
}
- if (c != '_' && ! isalpha(c)) {
- yyerror("Invalid char '%c' in expression\n", c);
+ if (c != '_' && ! ISALPHA(c)) {
+ yyerror(_("invalid char '%c' in expression"), c);
exit(1);
}
+ if (! do_traditional && c == '_') {
+ if ((c = nextc()) == '"') {
+ intlstr = TRUE;
+ goto string;
+ }
+ pushback();
+ c = '_';
+ }
+
/* it's some type of name-type-thing. Find its length. */
tok = tokstart;
while (is_identchar(c)) {
@@ -1809,7 +1837,7 @@ retry:
if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
- warning("source file does not end in newline");
+ lintwarn(_("source file does not end in newline"));
eof_warned = TRUE;
}
@@ -1830,17 +1858,17 @@ retry:
else {
if (do_lint) {
if (tokentab[mid].flags & GAWKX)
- warning("%s() is a gawk extension",
+ lintwarn(_("`%s' is a gawk extension"),
tokentab[mid].operator);
if (tokentab[mid].flags & RESX)
- warning("%s() is a Bell Labs extension",
+ lintwarn(_("`%s' is a Bell Labs extension"),
tokentab[mid].operator);
if (tokentab[mid].flags & NOT_POSIX)
- warning("POSIX does not allow %s",
+ lintwarn(_("POSIX does not allow `%s'"),
tokentab[mid].operator);
}
if (do_lint_old && (tokentab[mid].flags & NOT_OLD))
- warning("%s is not supported in old awk",
+ warning(_("`%s' is not supported in old awk"),
tokentab[mid].operator);
if ((do_traditional && (tokentab[mid].flags & GAWKX))
|| (do_posix && (tokentab[mid].flags & NOT_POSIX)))
@@ -1861,7 +1889,15 @@ retry:
if (*lexptr == '(')
return lasttok = FUNC_CALL;
else {
+ static short goto_warned = FALSE;
+
want_assign = TRUE;
+#define SMART_ALECK 1
+ if (SMART_ALECK && do_lint
+ && ! goto_warned && strcasecmp(tokkey, "goto") == 0) {
+ goto_warned = TRUE;
+ lintwarn(_("`goto' considered harmful!\n"));
+ }
return lasttok = NAME;
}
}
@@ -1869,14 +1905,15 @@ retry:
/* node_common --- common code for allocating a new node */
static NODE *
-node_common(op)
-NODETYPE op;
+node_common(NODETYPE op)
{
register NODE *r;
getnode(r);
r->type = op;
r->flags = MALLOC;
+ if (r->type == Node_var)
+ r->flags |= UNINITIALIZED;
/* if lookahead is NL, lineno is 1 too high */
if (lexeme && *lexeme == '\n')
r->source_line = sourceline - 1;
@@ -1889,9 +1926,7 @@ NODETYPE op;
/* node --- allocates a node with defined lnode and rnode. */
NODE *
-node(left, op, right)
-NODE *left, *right;
-NODETYPE op;
+node(NODE *left, NODETYPE op, NODE *right)
{
register NODE *r;
@@ -1906,10 +1941,7 @@ NODETYPE op;
possible. */
static NODE *
-snode(subn, op, idx)
-NODETYPE op;
-int idx;
-NODE *subn;
+snode(NODE *subn, NODETYPE op, int idx)
{
register NODE *r;
register NODE *n;
@@ -1928,24 +1960,30 @@ NODE *subn;
/* check against how many args. are allowed for this builtin */
args_allowed = tokentab[idx].flags & ARGS;
if (args_allowed && (args_allowed & A(nexp)) == 0)
- fatal("%s() cannot have %d argument%c",
- tokentab[idx].operator, nexp, nexp == 1 ? ' ' : 's');
+ fatal(_("%d is invalid as number of arguments for %s"),
+ nexp, tokentab[idx].operator);
r->proc = tokentab[idx].ptr;
/* special case processing for a few builtins */
- /*
- * FIXME: go through these to make sure that everything done
- * here is really right. Move anything that's not into
- * the corresponding routine.
- */
if (nexp == 0 && r->proc == do_length) {
subn = node(node(make_number(0.0), Node_field_spec, (NODE *) NULL),
Node_expression_list,
(NODE *) NULL);
} else if (r->proc == do_match) {
+ static short warned = FALSE;
+
if (subn->rnode->lnode->type != Node_regex)
subn->rnode->lnode = mk_rexp(subn->rnode->lnode);
+
+ if (subn->rnode->rnode != NULL) { /* 3rd argument there */
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ lintwarn(_("match: third argument is a gawk extension"));
+ }
+ if (do_traditional)
+ fatal(_("match: third argument is a gawk extension"));
+ }
} else if (r->proc == do_sub || r->proc == do_gsub) {
if (subn->lnode->type != Node_regex)
subn->lnode = mk_rexp(subn->lnode);
@@ -1956,11 +1994,18 @@ NODE *subn;
Node_expression_list,
(NODE *) NULL));
else if (subn->rnode->rnode->lnode->type == Node_val) {
- if (do_lint)
- warning("string literal as last arg of substitute");
- } else if (! isassignable(subn->rnode->rnode->lnode))
- yyerror("%s third parameter is not a changeable object",
- r->proc == do_sub ? "sub" : "gsub");
+ if (do_lint) {
+ char *f;
+
+ f = (r->proc == do_sub) ? "sub" : "gsub";
+ lintwarn(_("%s: string literal as last arg of substitute has no effect"), f);
+ }
+ } else if (! isassignable(subn->rnode->rnode->lnode)) {
+ if (r->proc == do_sub)
+ yyerror(_("sub third parameter is not a changeable object"));
+ else
+ yyerror(_("gsub third parameter is not a changeable object"));
+ }
} else if (r->proc == do_gensub) {
if (subn->lnode->type != Node_regex)
subn->lnode = mk_rexp(subn->lnode);
@@ -1979,9 +2024,37 @@ NODE *subn;
subn->rnode->rnode->lnode = mk_rexp(n);
if (nexp == 2)
subn->rnode->rnode->lnode->re_flags |= FS_DFLT;
+ } else if (r->proc == do_close) {
+ static short warned = FALSE;
+
+ if ( nexp == 2) {
+ if (do_lint && nexp == 2 && ! warned) {
+ warned = TRUE;
+ lintwarn(_("close: second argument is a gawk extension"));
+ }
+ if (do_traditional)
+ fatal(_("close: second argument is a gawk extension"));
+ }
+ } else if (do_intl /* --gen-po */
+ && r->proc == do_dcgettext /* dcgettext(...) */
+ && subn->lnode->type == Node_val /* 1st arg is constant */
+ && (subn->lnode->flags & STR) != 0) { /* it's a string constant */
+ /* ala xgettext, dcgettext("some string" ...) dumps the string */
+ NODE *str = subn->lnode;
+
+ if ((str->flags & INTLSTR) != 0)
+ warning(_("use of dcgettext(_\"...\") is incorrect: remove leading underscore"));
+ /* don't dump it, the lexer already did */
+ else
+ dumpintlstr(str->stptr, str->stlen);
}
+
r->subnode = subn;
+ if (r->proc == do_sprintf) {
+ count_args(r);
+ r->lnode->printf_count = r->printf_count; /* hack */
+ }
return r;
}
@@ -1994,8 +2067,7 @@ NODE *subn;
*/
static NODE *
-mkrangenode(cpair)
-NODE *cpair;
+mkrangenode(NODE *cpair)
{
register NODE *r;
@@ -2009,8 +2081,7 @@ NODE *cpair;
/* make_for_loop --- build a for loop */
static NODE *
-make_for_loop(init, cond, incr)
-NODE *init, *cond, *incr;
+make_for_loop(NODE *init, NODE *cond, NODE *incr)
{
register FOR_LOOP_HEADER *r;
NODE *n;
@@ -2028,8 +2099,7 @@ NODE *init, *cond, *incr;
/* dup_parms --- return TRUE if there are duplicate parameters */
static int
-dup_parms(func)
-NODE *func;
+dup_parms(NODE *func)
{
register NODE *np;
char *fname, **names;
@@ -2066,7 +2136,7 @@ NODE *func;
if (strcmp(names[i], names[j]) == 0) {
dups++;
error(
- "function `%s': parameter #%d, `%s', duplicates parameter #%d",
+ _("function `%s': parameter #%d, `%s', duplicates parameter #%d"),
fname, i+1, names[j], j+1);
}
}
@@ -2076,6 +2146,34 @@ NODE *func;
return (dups > 0 ? TRUE : FALSE);
}
+/* parms_shadow --- check if parameters shadow globals */
+
+static void
+parms_shadow(const char *fname, NODE *func)
+{
+ int count, i;
+
+ if (fname == NULL || func == NULL) /* error earlier */
+ return;
+
+ count = func->lnode->param_cnt;
+
+ if (count == 0) /* no args, no problem */
+ return;
+
+ /*
+ * Use warning() and not lintwarn() so that can warn
+ * about all shadowed parameters.
+ */
+ for (i = 0; i < count; i++) {
+ if (lookup(func->parmlist[i]) != NULL) {
+ warning(
+ _("function `%s': parameter `%s' shadows global variable"),
+ fname, func->parmlist[i]);
+ }
+ }
+}
+
/*
* install:
* Install a name in the symbol table, even if it is already there.
@@ -2083,14 +2181,13 @@ NODE *func;
*/
NODE *
-install(name, value)
-char *name;
-NODE *value;
+install(char *name, NODE *value)
{
register NODE *hp;
register size_t len;
register int bucket;
+ var_count++;
len = strlen(name);
bucket = hash(name, len, (unsigned long) HASHSIZE);
getnode(hp);
@@ -2107,8 +2204,7 @@ NODE *value;
/* lookup --- find the most recent hash node for name installed by install */
NODE *
-lookup(name)
-const char *name;
+lookup(const char *name)
{
register NODE *bucket;
register size_t len;
@@ -2122,6 +2218,232 @@ const char *name;
return NULL;
}
+/* var_comp --- compare two variable names */
+
+static int
+var_comp(const void *v1, const void *v2)
+{
+ NODE **npp1, **npp2;
+ NODE *n1, *n2;
+ int minlen;
+
+ npp1 = (NODE **) v1;
+ npp2 = (NODE **) v2;
+ n1 = *npp1;
+ n2 = *npp2;
+
+ if (n1->hlength > n2->hlength)
+ minlen = n1->hlength;
+ else
+ minlen = n2->hlength;
+
+ return strncmp(n1->hname, n2->hname, minlen);
+}
+
+/* valinfo --- dump var info */
+
+static void
+valinfo(NODE *n, FILE *fp)
+{
+ if (n->flags & STRING) {
+ fprintf(fp, "string (");
+ pp_string_fp(fp, n->stptr, n->stlen, '"', FALSE);
+ fprintf(fp, ")\n");
+ } else if (n->flags & NUMBER)
+ fprintf(fp, "number (%.17g)\n", n->numbr);
+ else if (n->flags & STR) {
+ fprintf(fp, "string value (");
+ pp_string_fp(fp, n->stptr, n->stlen, '"', FALSE);
+ fprintf(fp, ")\n");
+ } else if (n->flags & NUM)
+ fprintf(fp, "number value (%.17g)\n", n->numbr);
+ else
+ fprintf(fp, "?? flags %s\n", flags2str(n->flags));
+}
+
+
+/* dump_vars --- dump the symbol table */
+
+void
+dump_vars(const char *fname)
+{
+ int i, j;
+ NODE **table;
+ NODE *p;
+ FILE *fp;
+
+ emalloc(table, NODE **, var_count * sizeof(NODE *), "dump_vars");
+
+ if (fname == NULL)
+ fp = stderr;
+ else if ((fp = fopen(fname, "w")) == NULL) {
+ warning(_("could not open `%s' for writing (%s)"), fname, strerror(errno));
+ warning(_("sending profile to standard error"));
+ fp = stderr;
+ }
+
+ for (i = j = 0; i < HASHSIZE; i++)
+ for (p = variables[i]; p != NULL; p = p->hnext)
+ table[j++] = p;
+
+ assert(j == var_count);
+
+ /* Shazzam! */
+ qsort(table, j, sizeof(NODE *), var_comp);
+
+ for (i = 0; i < j; i++) {
+ p = table[i];
+ if (p->hvalue->type == Node_func)
+ continue;
+ fprintf(fp, "%.*s: ", (int) p->hlength, p->hname);
+ if (p->hvalue->type == Node_var_array)
+ fprintf(fp, "array, %ld elements\n", p->hvalue->table_size);
+ else if (p->hvalue->type == Node_var)
+ valinfo(p->hvalue->var_value, fp);
+ else {
+ NODE **lhs = get_lhs(p->hvalue, NULL, FALSE);
+
+ valinfo(*lhs, fp);
+ }
+ }
+
+ if (fp != stderr && fclose(fp) != 0)
+ warning(_("%s: close failed (%s)"), fname, strerror(errno));
+
+ free(table);
+}
+
+/* release_all_vars --- free all variable memory */
+
+void
+release_all_vars()
+{
+ int i;
+ NODE *p, *next;
+
+ for (i = 0; i < HASHSIZE; i++)
+ for (p = variables[i]; p != NULL; p = next) {
+ next = p->hnext;
+
+ if (p->hvalue->type == Node_func)
+ continue;
+ else if (p->hvalue->type == Node_var_array)
+ assoc_clear(p->hvalue);
+ else if (p->hvalue->type == Node_var)
+ unref(p->hvalue->var_value);
+ else {
+ NODE **lhs = get_lhs(p->hvalue, NULL, FALSE);
+
+ unref((*lhs)->var_value);
+ }
+ unref(p);
+ }
+}
+
+/* finfo --- for use in comparison and sorting of function names */
+
+struct finfo {
+ char *name;
+ size_t nlen;
+ NODE *func;
+};
+
+/* fcompare --- comparison function for qsort */
+
+static int
+fcompare(const void *p1, const void *p2)
+{
+ struct finfo *f1, *f2;
+ int minlen;
+
+ f1 = (struct finfo *) p1;
+ f2 = (struct finfo *) p2;
+
+ if (f1->nlen > f2->nlen)
+ minlen = f2->nlen;
+ else
+ minlen = f1->nlen;
+
+ return strncmp(f1->name, f2->name, minlen);
+}
+
+/* dump_funcs --- print all functions */
+
+void
+dump_funcs()
+{
+ int i, j;
+ NODE *p;
+ static struct finfo *tab = NULL;
+
+ if (func_count == 0)
+ return;
+
+ if (tab == NULL)
+ emalloc(tab, struct finfo *, func_count * sizeof(struct finfo), "dump_funcs");
+
+ for (i = j = 0; i < HASHSIZE; i++) {
+ for (p = variables[i]; p != NULL; p = p->hnext) {
+ if (p->hvalue->type == Node_func) {
+ tab[j].name = p->hname;
+ tab[j].nlen = p->hlength;
+ tab[j].func = p->hvalue;
+ j++;
+ }
+ }
+ }
+
+ assert(j == func_count);
+
+ /* Shazzam! */
+ qsort(tab, func_count, sizeof(struct finfo), fcompare);
+
+ for (i = 0; i < j; i++)
+ pp_func(tab[i].name, tab[i].nlen, tab[i].func);
+
+ free(tab);
+}
+
+/* shadow_funcs --- check all functions for parameters that shadow globals */
+
+void
+shadow_funcs()
+{
+ int i, j;
+ NODE *p;
+ struct finfo *tab;
+ static int calls = 0;
+
+ if (func_count == 0)
+ return;
+
+ if (calls++ != 0)
+ fatal(_("shadow_funcs() called twice!"));
+
+ emalloc(tab, struct finfo *, func_count * sizeof(struct finfo), "shadow_funcs");
+
+ for (i = j = 0; i < HASHSIZE; i++) {
+ for (p = variables[i]; p != NULL; p = p->hnext) {
+ if (p->hvalue->type == Node_func) {
+ tab[j].name = p->hname;
+ tab[j].nlen = p->hlength;
+ tab[j].func = p->hvalue;
+ j++;
+ }
+ }
+ }
+
+ assert(j == func_count);
+
+ /* Shazzam! */
+ qsort(tab, func_count, sizeof(struct finfo), fcompare);
+
+ for (i = 0; i < j; i++)
+ parms_shadow(tab[i].name, tab[i].func);
+
+ free(tab);
+}
+
/*
* append_right:
* Add new to the rightmost branch of LIST. This uses n^2 time, so we make
@@ -2129,8 +2451,7 @@ const char *name;
*/
static NODE *
-append_right(list, new)
-NODE *list, *new;
+append_right(NODE *list, NODE *new)
{
register NODE *oldlist;
static NODE *savefront = NULL, *savetail = NULL;
@@ -2155,40 +2476,73 @@ NODE *list, *new;
* check if name is already installed; if so, it had better have Null value,
* in which case def is added as the value. Otherwise, install name with def
* as value.
+ *
+ * Extra work, build up and save a list of the parameter names in a table
+ * and hang it off params->parmlist. This is used to set the `vname' field
+ * of each function parameter during a function call. See eval.c.
*/
static void
-func_install(params, def)
-NODE *params;
-NODE *def;
+func_install(NODE *params, NODE *def)
{
- NODE *r;
- NODE *n;
+ NODE *r, *n, *thisfunc;
+ char **pnames, *names, *sp;
+ size_t pcount = 0, space = 0;
+ int i;
- /* check for function foo(foo) { ... }. bleh. */
+ /* check for function foo(foo) { ... }. bleah. */
for (n = params->rnode; n != NULL; n = n->rnode) {
if (strcmp(n->param, params->param) == 0)
- fatal("function `%s': can't use function name as parameter name",
+ fatal(_("function `%s': can't use function name as parameter name"),
params->param);
}
- pop_params(params->rnode);
+ thisfunc = NULL; /* turn off warnings */
+
+ /* symbol table managment */
pop_var(params, FALSE);
r = lookup(params->param);
if (r != NULL) {
- fatal("function name `%s' previously defined", params->param);
- } else
- (void) install(params->param, node(params, Node_func, def));
+ fatal(_("function name `%s' previously defined"), params->param);
+ } else {
+ thisfunc = node(params, Node_func, def);
+ (void) install(params->param, thisfunc);
+ }
+
+ /* figure out amount of space to allocate */
+ for (n = params->rnode; n != NULL; n = n->rnode) {
+ pcount++;
+ space += strlen(n->param) + 1;
+ }
+
+ /* allocate it and fill it in */
+ if (pcount != 0) {
+ emalloc(names, char *, space, "func_install");
+ emalloc(pnames, char **, pcount * sizeof(char *), "func_install");
+ sp = names;
+ for (i = 0, n = params->rnode; i < pcount; i++, n = n->rnode) {
+ pnames[i] = sp;
+ strcpy(sp, n->param);
+ sp += strlen(n->param) + 1;
+ }
+ thisfunc->parmlist = pnames;
+ } else {
+ thisfunc->parmlist = NULL;
+ }
+
+ /* remove params from symbol table */
+ pop_params(params->rnode);
+ /* update lint table info */
func_use(params->param, FUNC_DEFINE);
+
+ func_count++; /* used by profiling / pretty printer */
}
/* pop_var --- remove a variable from the symbol table */
static void
-pop_var(np, freeit)
-NODE *np;
-int freeit;
+pop_var(NODE *np, int freeit)
{
register NODE *bucket, **save;
register size_t len;
@@ -2199,6 +2553,7 @@ int freeit;
save = &(variables[hash(name, len, (unsigned long) HASHSIZE)]);
for (bucket = *save; bucket != NULL; bucket = bucket->hnext) {
if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
+ var_count--;
*save = bucket->hnext;
freenode(bucket);
if (freeit)
@@ -2216,8 +2571,7 @@ int freeit;
* avoid reading freed memory if there were duplicated parameters.
*/
static void
-pop_params(params)
-NODE *params;
+pop_params(NODE *params)
{
if (params == NULL)
return;
@@ -2228,8 +2582,7 @@ NODE *params;
/* make_param --- make NAME into a function parameter */
static NODE *
-make_param(name)
-char *name;
+make_param(char *name)
{
NODE *r;
@@ -2251,9 +2604,7 @@ static struct fdesc {
/* func_use --- track uses and definitions of functions */
static void
-func_use(name, how)
-char *name;
-enum defref how;
+func_use(char *name, enum defref how)
{
struct fdesc *fp;
int len;
@@ -2300,16 +2651,16 @@ check_funcs()
/* making this the default breaks old code. sigh. */
if (fp->defined == 0) {
error(
- "function `%s' called but never defined", fp->name);
+ _("function `%s' called but never defined"), fp->name);
errcount++;
}
#else
if (do_lint && fp->defined == 0)
- warning(
- "function `%s' called but never defined", fp->name);
+ lintwarn(
+ _("function `%s' called but never defined"), fp->name);
#endif
if (do_lint && fp->used == 0) {
- warning("function `%s' defined but never called",
+ lintwarn(_("function `%s' defined but never called"),
fp->name);
}
}
@@ -2328,8 +2679,7 @@ check_funcs()
/* param_sanity --- look for parameters that are regexp constants */
static void
-param_sanity(arglist)
-NODE *arglist;
+param_sanity(NODE *arglist)
{
NODE *argp, *arg;
int i;
@@ -2337,25 +2687,27 @@ NODE *arglist;
for (i = 1, argp = arglist; argp != NULL; argp = argp->rnode, i++) {
arg = argp->lnode;
if (arg->type == Node_regex)
- warning("regexp constant for parameter #%d yields boolean value", i);
+ warning(_("regexp constant for parameter #%d yields boolean value"), i);
}
}
/* variable --- make sure NAME is in the symbol table */
NODE *
-variable(name, can_free, type)
-char *name;
-int can_free;
-NODETYPE type;
+variable(char *name, int can_free, NODETYPE type)
{
register NODE *r;
static int env_loaded = FALSE;
+ static int procinfo_loaded = FALSE;
if (! env_loaded && STREQ(name, "ENVIRON")) {
load_environ();
env_loaded = TRUE;
}
+ if (! do_traditional && ! procinfo_loaded && STREQ(name, "PROCINFO")) {
+ load_procinfo();
+ procinfo_loaded = TRUE;
+ }
if ((r = lookup(name)) == NULL)
r = install(name, node(Nnull_string, type, (NODE *) NULL));
else if (can_free)
@@ -2366,8 +2718,7 @@ NODETYPE type;
/* mk_rexp --- make a regular expression constant */
static NODE *
-mk_rexp(exp)
-NODE *exp;
+mk_rexp(NODE *exp)
{
NODE *n;
@@ -2394,8 +2745,7 @@ NODE *exp;
*/
static int
-isnoeffect(type)
-NODETYPE type;
+isnoeffect(NODETYPE type)
{
switch (type) {
case Node_times:
@@ -2432,6 +2782,8 @@ NODETYPE type;
case Node_ORS:
case Node_OFMT:
case Node_CONVFMT:
+ case Node_BINMODE:
+ case Node_LINT:
return TRUE;
default:
break; /* keeps gcc -Wall happy */
@@ -2443,8 +2795,7 @@ NODETYPE type;
/* isassignable --- can this node be assigned to? */
static int
-isassignable(n)
-register NODE *n;
+isassignable(register NODE *n)
{
switch (n->type) {
case Node_var:
@@ -2459,6 +2810,8 @@ register NODE *n;
case Node_CONVFMT:
case Node_ORS:
case Node_OFS:
+ case Node_LINT:
+ case Node_BINMODE:
case Node_field_spec:
case Node_subscript:
return TRUE;
@@ -2470,10 +2823,53 @@ register NODE *n;
return FALSE;
}
-/* for debugging */
+/* stopme --- for debugging */
+
NODE *
-stopme(tree)
-NODE *tree;
+stopme(NODE *tree)
{
return tmp_number((AWKNUM) 0.0);
}
+
+/* dumpintlstr --- write out an initial .po file entry for the string */
+
+static void
+dumpintlstr(char *str, size_t len)
+{
+ char *cp;
+
+ /* See the GNU gettext distribution for details on the file format */
+
+ if (source != NULL) {
+ /* ala the gettext sources, remove leading `./'s */
+ for (cp = source; cp[0] == '.' && cp[1] == '/'; cp += 2)
+ continue;
+ printf("#: %s:%d\n", cp, sourceline);
+ }
+
+ printf("msgid ");
+ fflush(stdout);
+ pp_string_fp(stdout, str, len, '"', TRUE);
+ putchar('\n');
+ printf("msgstr \"\"\n\n");
+}
+
+/* count_args --- count the number of printf arguments */
+
+static void
+count_args(NODE *tree)
+{
+ size_t count = 0;
+ NODE *save_tree;
+
+ assert(tree->type == Node_K_printf
+ || (tree->type == Node_builtin && tree->proc == do_sprintf));
+ save_tree = tree;
+
+ tree = tree->lnode; /* printf format string */
+
+ for (count = 0; tree != NULL; tree = tree->rnode)
+ count++;
+
+ save_tree->printf_count = count;
+}
diff --git a/awklib/ChangeLog b/awklib/ChangeLog
index 1ec88a5f..531fdb98 100644
--- a/awklib/ChangeLog
+++ b/awklib/ChangeLog
@@ -1,3 +1,27 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+2001-02-26 Paul Eggert <eggert@twinsun.com>
+
+ * Makefile.am (stamp-eg): Use $(AWK), not awk, as the
+ native awk might not work.
+
+2001-02-26 Andreas Schwab <schwab@suse.de>
+
+ * Makefile.am: Install igawk as script.
+
+Mon Nov 6 15:29:08 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.am: Fixed to have all functionality from before
+ the switch to automake.
+ * extract.awk: Updated to match version in the doc.
+
+Sat Jul 26 23:08:29 1997 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.in (install-strip): new target.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -7,7 +31,7 @@ Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.5: Release tar file made.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Thu May 15 12:49:08 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
diff --git a/awklib/Makefile.am b/awklib/Makefile.am
new file mode 100644
index 00000000..ecd23cfa
--- /dev/null
+++ b/awklib/Makefile.am
@@ -0,0 +1,75 @@
+#
+# awklib/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 1995-2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
+
+## process this file with automake to produce Makefile.in
+
+EXTRA_DIST = ChangeLog extract.awk eg stamp-eg
+
+datadir = @datadir@/awk
+libexecdir = @libexecdir@/awk
+
+bin_SCRIPTS = igawk
+libexec_PROGRAMS = pwcat grcat
+AUXAWK = passwd.awk group.awk
+nodist_grcat_SOURCES = grcat.c
+nodist_pwcat_SOURCES = pwcat.c
+
+all: stamp-eg $(AUXPROGS) igawk $(AUXAWK)
+
+install-exec-hook: $(AUXAWK)
+ $(mkinstalldirs) $(DESTDIR)$(datadir)
+ for i in $(AUXAWK) $(srcdir)/eg/lib/*.awk ; do \
+ progname=`echo $$i | sed 's;.*/;;'` ; \
+ $(INSTALL_DATA) $$i $(DESTDIR)$(datadir)/$$progname ; \
+ done
+
+# libexecdir and datadir are removed in the top level Makefile's uninstall
+uninstall-local:
+ rm -fr $(DESTDIR)$(libexecdir)/* $(DESTDIR)$(datadir)/*
+ rm -f $(DESTDIR)$(bindir)/igawk
+
+clean-local:
+ rm -f $(AUXAWK) igawk
+
+stamp-eg: $(srcdir)/../doc/gawk.texi $(srcdir)/../doc/gawkinet.texi
+ rm -fr eg stamp-eg
+ $(AWK) -f $(srcdir)/extract.awk $(srcdir)/../doc/gawk.texi $(srcdir)/../doc/gawkinet.texi
+ @echo 'some makes are stupid and will not check a directory' > stamp-eg
+ @echo 'against a file, so this file is a place holder. gack.' >> stamp-eg
+
+pwcat: $(srcdir)/eg/lib/pwcat.c
+ $(CC) $(CFLAGS) $(srcdir)/eg/lib/pwcat.c $(LDFLAGS) -o $@
+
+grcat: $(srcdir)/eg/lib/grcat.c
+ $(CC) $(CFLAGS) $(srcdir)/eg/lib/grcat.c $(LDFLAGS) -o $@
+
+igawk: $(srcdir)/eg/prog/igawk.sh
+ cp $(srcdir)/eg/prog/igawk.sh $@ ; chmod 755 $@
+
+passwd.awk: $(srcdir)/eg/lib/passwdawk.in
+ (cd $(srcdir)/eg/lib ; \
+ sed 's;/usr/local/libexec/awk;$(libexecdir);' < passwdawk.in) > passwd.awk
+
+group.awk: $(srcdir)/eg/lib/groupawk.in
+ (cd $(srcdir)/eg/lib ; \
+ sed 's;/usr/local/libexec/awk;$(libexecdir);' < groupawk.in) > group.awk
diff --git a/awklib/Makefile.in b/awklib/Makefile.in
index 67f0e500..686b65ad 100644
--- a/awklib/Makefile.in
+++ b/awklib/Makefile.in
@@ -1,57 +1,411 @@
-# Makefile for GNU Awk support library.
+# Makefile.in generated automatically by automake 1.4a from Makefile.am
+
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000
+# Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+SHELL = @SHELL@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+
+bindir = @bindir@
+sbindir = @sbindir@
+sysconfdir = @sysconfdir@
+sharedstatedir = @sharedstatedir@
+localstatedir = @localstatedir@
+libdir = @libdir@
+infodir = @infodir@
+mandir = @mandir@
+includedir = @includedir@
+oldincludedir = /usr/include
+
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+
+top_builddir = ..
+
+ACLOCAL = @ACLOCAL@
+AUTOCONF = @AUTOCONF@
+AUTOMAKE = @AUTOMAKE@
+AUTOHEADER = @AUTOHEADER@
+
+INSTALL = @INSTALL@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_FLAG =
+transform = @program_transform_name@
+
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+
+@SET_MAKE@
+AMDEP = @AMDEP@
+AMTAR = @AMTAR@
+AWK = @AWK@
+CATALOGS = @CATALOGS@
+CATOBJEXT = @CATOBJEXT@
+CC = @CC@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+DATADIRNAME = @DATADIRNAME@
+DEPDIR = @DEPDIR@
+GENCAT = @GENCAT@
+GMOFILES = @GMOFILES@
+GMSGFMT = @GMSGFMT@
+GT_NO = @GT_NO@
+GT_YES = @GT_YES@
+INCLUDE_LOCALE_H = @INCLUDE_LOCALE_H@
+INSTOBJEXT = @INSTOBJEXT@
+INTLDEPS = @INTLDEPS@
+INTLLIBS = @INTLLIBS@
+INTLOBJS = @INTLOBJS@
+LN_S = @LN_S@
+MAKEINFO = @MAKEINFO@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+MSGFMT = @MSGFMT@
+PACKAGE = @PACKAGE@
+POFILES = @POFILES@
+POSUB = @POSUB@
+RANLIB = @RANLIB@
+SOCKET_LIBS = @SOCKET_LIBS@
+U = @U@
+USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@
+USE_NLS = @USE_NLS@
+VERSION = @VERSION@
+YACC = @YACC@
+install_sh = @install_sh@
+l = @l@
+
+#
+# awklib/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 1995-2001 the Free Software Foundation, Inc.
#
-# Copyright (C) 1995-1998 the Free Software Foundation, Inc.
-#
# This file is part of GAWK, the GNU implementation of the
# AWK Programming Language.
-#
+#
# GAWK is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
-#
+#
# GAWK is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
-#
+#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
-SHELL = /bin/sh
-
-srcdir = @srcdir@
-VPATH = @srcdir@
-
-INSTALL = @INSTALL@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_DATA = @INSTALL_DATA@
-CC = @CC@
-CFLAGS = @CFLAGS@
+EXTRA_DIST = ChangeLog extract.awk eg stamp-eg
-prefix = @prefix@
-exec_prefix = @exec_prefix@
-binprefix =
-manprefix =
-
-bindir = @bindir@
-libdir = @libdir@
-mandir = @mandir@/man1
-manext = .1
-infodir = @infodir@
datadir = @datadir@/awk
libexecdir = @libexecdir@/awk
-AUXPROGS = pwcat grcat
+bin_SCRIPTS = igawk
+libexec_PROGRAMS = pwcat grcat
AUXAWK = passwd.awk group.awk
+nodist_grcat_SOURCES = grcat.c
+nodist_pwcat_SOURCES = pwcat.c
+subdir = awklib
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = ../config.h
+CONFIG_CLEAN_FILES =
+PROGRAMS = $(libexec_PROGRAMS)
+
+
+DEFS = @DEFS@ -I. -I$(srcdir) -I..
+CPPFLAGS = @CPPFLAGS@
+LDFLAGS = @LDFLAGS@
+LIBS = @LIBS@
+nodist_grcat_OBJECTS = grcat.o
+grcat_OBJECTS = $(nodist_grcat_OBJECTS)
+grcat_LDADD = $(LDADD)
+grcat_DEPENDENCIES =
+grcat_LDFLAGS =
+nodist_pwcat_OBJECTS = pwcat.o
+pwcat_OBJECTS = $(nodist_pwcat_OBJECTS)
+pwcat_LDADD = $(LDADD)
+pwcat_DEPENDENCIES =
+pwcat_LDFLAGS =
+SCRIPTS = $(bin_SCRIPTS)
+
+COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+CCLD = $(CC)
+LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
+DIST_SOURCES =
+depcomp = $(SHELL) $(top_srcdir)/depcomp
+DEP_FILES = @AMDEP@ $(DEPDIR)/grcat.Po $(DEPDIR)/pwcat.Po
+DIST_COMMON = ChangeLog Makefile.am Makefile.in
+
+
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+
+GZIP_ENV = --best
+SOURCES = $(nodist_grcat_SOURCES) $(nodist_pwcat_SOURCES)
+OBJECTS = $(nodist_grcat_OBJECTS) $(nodist_pwcat_OBJECTS)
+
+all: all-redirect
+.SUFFIXES:
+.SUFFIXES: .c .o
+$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
+ cd $(top_srcdir) && $(AUTOMAKE) --gnu awklib/Makefile
+
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+ cd $(top_builddir) \
+ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
+
+
+mostlyclean-libexecPROGRAMS:
+
+clean-libexecPROGRAMS:
+ -test -z "$(libexec_PROGRAMS)" || rm -f $(libexec_PROGRAMS)
+
+distclean-libexecPROGRAMS:
+
+maintainer-clean-libexecPROGRAMS:
+
+install-libexecPROGRAMS: $(libexec_PROGRAMS)
+ @$(NORMAL_INSTALL)
+ $(mkinstalldirs) $(DESTDIR)$(libexecdir)
+ @list='$(libexec_PROGRAMS)'; for p in $$list; do \
+ if test -f $$p; then \
+ f="`echo $$p|sed -e 's/$(EXEEXT)$$//' -e '$(transform)' -e 's/$$/$(EXEEXT)/'`"; \
+ echo " $(INSTALL_PROGRAM) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libexecdir)/$$f"; \
+ $(INSTALL_PROGRAM) $(INSTALL_STRIP_FLAG) $$p $(DESTDIR)$(libexecdir)/$$f; \
+ else :; fi; \
+ done
+
+uninstall-libexecPROGRAMS:
+ @$(NORMAL_UNINSTALL)
+ @list='$(libexec_PROGRAMS)'; for p in $$list; do \
+ f="`echo $$p|sed -e 's/$(EXEEXT)$$//' -e '$(transform)' -e 's/$$/$(EXEEXT)/'`"; \
+ echo " rm -f $(DESTDIR)$(libexecdir)/$$f"; \
+ rm -f $(DESTDIR)$(libexecdir)/$$f; \
+ done
+
+mostlyclean-compile:
+ -rm -f *.o core *.core
+
+clean-compile:
+
+distclean-compile:
+ -rm -f *.tab.c
+
+maintainer-clean-compile:
+
+install-binSCRIPTS: $(bin_SCRIPTS)
+ @$(NORMAL_INSTALL)
+ $(mkinstalldirs) $(DESTDIR)$(bindir)
+ @list='$(bin_SCRIPTS)'; for p in $$list; do \
+ f="`echo $$p|sed '$(transform)'`"; \
+ if test -f $$p; then \
+ echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/$$f"; \
+ $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/$$f; \
+ elif test -f $(srcdir)/$$p; then \
+ echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/$$f"; \
+ $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/$$f; \
+ else :; fi; \
+ done
+
+uninstall-binSCRIPTS:
+ @$(NORMAL_UNINSTALL)
+ @list='$(bin_SCRIPTS)'; for p in $$list; do \
+ f="`echo $$p|sed '$(transform)'`"; \
+ echo " rm -f $(DESTDIR)$(bindir)/$$f"; \
+ rm -f $(DESTDIR)$(bindir)/$$f; \
+ done
+
+tags: TAGS
+
+ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
+ list='$(SOURCES) $(HEADERS) $(TAGS_FILES)'; \
+ unique=`for i in $$list; do \
+ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+ done | \
+ $(AWK) ' { files[$$0] = 1; } \
+ END { for (i in files) print i; }'`; \
+ mkid -fID $$unique $(LISP)
+
+TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
+ $(TAGS_FILES) $(LISP)
+ tags=; \
+ here=`pwd`; \
+ list='$(SOURCES) $(HEADERS) $(TAGS_FILES)'; \
+ unique=`for i in $$list; do \
+ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+ done | \
+ $(AWK) ' { files[$$0] = 1; } \
+ END { for (i in files) print i; }'`; \
+ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
+ || etags $(ETAGS_ARGS) $$tags $$unique $(LISP)
+
+mostlyclean-tags:
+
+clean-tags:
+
+distclean-tags:
+ -rm -f TAGS ID
+
+maintainer-clean-tags:
+
+@AMDEP@include $(DEPDIR)/grcat.Po
+@AMDEP@include $(DEPDIR)/pwcat.Po
+
+mostlyclean-depend:
+
+clean-depend:
+
+distclean-depend:
+ -rm -rf $(DEPDIR)
+
+maintainer-clean-depend:
+
+@AMDEP@CCDEPMODE = @CCDEPMODE@
+
+.c.o:
+@AMDEP@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP@ depfile='$(DEPDIR)/$*.Po' tmpdepfile='$(DEPDIR)/$*.TPo' @AMDEPBACKSLASH@
+@AMDEP@ $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+ $(COMPILE) -c -o $@ `test -f $< || echo '$(srcdir)/'`$<
+
+
+distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
+
+distdir: $(DISTFILES)
+ @for file in $(DISTFILES); do \
+ d=$(srcdir); \
+ if test -d $$d/$$file; then \
+ cp -pR $$d/$$file $(distdir) \
+ || exit 1; \
+ else \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file \
+ || exit 1; \
+ fi; \
+ done
+info-am:
+info: info-am
+dvi-am:
+dvi: dvi-am
+check-am: all-am
+check: check-am
+installcheck-am:
+installcheck: installcheck-am
+install-exec-am: install-libexecPROGRAMS install-binSCRIPTS
+ @$(NORMAL_INSTALL)
+ $(MAKE) $(AM_MAKEFLAGS) install-exec-hook
+install-exec: install-exec-am
+
+install-data-am:
+install-data: install-data-am
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+install: install-am
+uninstall-am: uninstall-libexecPROGRAMS uninstall-binSCRIPTS \
+ uninstall-local
+uninstall: uninstall-am
+all-am: Makefile $(PROGRAMS) $(SCRIPTS)
+all-redirect: all-am
+install-strip:
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_STRIP_FLAG=-s install
+installdirs:
+ $(mkinstalldirs) $(DESTDIR)$(libexecdir) $(DESTDIR)$(bindir)
+
+
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+ -rm -f Makefile $(CONFIG_CLEAN_FILES)
+ -rm -f config.cache config.log stamp-h stamp-h[0-9]*
+
+maintainer-clean-generic:
+ -rm -f Makefile.in
+mostlyclean-am: mostlyclean-libexecPROGRAMS mostlyclean-compile \
+ mostlyclean-tags mostlyclean-depend mostlyclean-generic
+
+mostlyclean: mostlyclean-am
+
+clean-am: clean-libexecPROGRAMS clean-compile clean-tags clean-depend \
+ clean-generic mostlyclean-am clean-local
+
+clean: clean-am
+
+distclean-am: distclean-libexecPROGRAMS distclean-compile \
+ distclean-tags distclean-depend distclean-generic \
+ clean-am
+
+distclean: distclean-am
+
+maintainer-clean-am: maintainer-clean-libexecPROGRAMS \
+ maintainer-clean-compile maintainer-clean-tags \
+ maintainer-clean-depend maintainer-clean-generic \
+ distclean-am
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+
+maintainer-clean: maintainer-clean-am
+
+.PHONY: mostlyclean-libexecPROGRAMS distclean-libexecPROGRAMS \
+clean-libexecPROGRAMS maintainer-clean-libexecPROGRAMS \
+uninstall-libexecPROGRAMS install-libexecPROGRAMS mostlyclean-compile \
+distclean-compile clean-compile maintainer-clean-compile \
+uninstall-binSCRIPTS install-binSCRIPTS tags mostlyclean-tags \
+distclean-tags clean-tags maintainer-clean-tags mostlyclean-depend \
+distclean-depend clean-depend maintainer-clean-depend distdir info-am \
+info dvi-am dvi check check-am installcheck-am installcheck \
+install-exec-am install-exec install-data-am install-data install-am \
+install uninstall-local uninstall-am uninstall all-redirect all-am all \
+install-strip installdirs mostlyclean-generic distclean-generic \
+clean-generic maintainer-clean-generic clean mostlyclean distclean \
+maintainer-clean
+
all: stamp-eg $(AUXPROGS) igawk $(AUXAWK)
-stamp-eg: $(srcdir)/../doc/gawk.texi
+install-exec-hook: $(AUXAWK)
+ $(mkinstalldirs) $(DESTDIR)$(datadir)
+ for i in $(AUXAWK) $(srcdir)/eg/lib/*.awk ; do \
+ progname=`echo $$i | sed 's;.*/;;'` ; \
+ $(INSTALL_DATA) $$i $(DESTDIR)$(datadir)/$$progname ; \
+ done
+
+# libexecdir and datadir are removed in the top level Makefile's uninstall
+uninstall-local:
+ rm -fr $(DESTDIR)$(libexecdir)/* $(DESTDIR)$(datadir)/*
+ rm -f $(DESTDIR)$(bindir)/igawk
+
+clean-local:
+ rm -f $(AUXAWK) igawk
+
+stamp-eg: $(srcdir)/../doc/gawk.texi $(srcdir)/../doc/gawkinet.texi
rm -fr eg stamp-eg
- ../gawk -f $(srcdir)/extract.awk $(srcdir)/../doc/gawk.texi
+ $(AWK) -f $(srcdir)/extract.awk $(srcdir)/../doc/gawk.texi $(srcdir)/../doc/gawkinet.texi
@echo 'some makes are stupid and will not check a directory' > stamp-eg
@echo 'against a file, so this file is a place holder. gack.' >> stamp-eg
@@ -72,28 +426,6 @@ group.awk: $(srcdir)/eg/lib/groupawk.in
(cd $(srcdir)/eg/lib ; \
sed 's;/usr/local/libexec/awk;$(libexecdir);' < groupawk.in) > group.awk
-install: igawk $(AUXPROGS) $(AUXAWK)
- $(INSTALL_PROGRAM) igawk $(bindir)/igawk
- for i in $(AUXPROGS) ; do \
- $(INSTALL_PROGRAM) $$i $(libexecdir)/$$i ; \
- done
- for i in $(AUXAWK) $(srcdir)/eg/lib/*.awk ; do \
- progname=`echo $$i | sed 's;.*/;;'` ; \
- $(INSTALL_DATA) $$i $(datadir)/$$progname ; \
- done
-
-# libexecdir and datadir are removed in the top level Makefile's uninstall
-uninstall:
- rm -fr $(libexecdir)/* $(datadir)/*
- rm -f $(bindir)/igawk
-
-clean:
- rm -f $(AUXPROGS) $(AUXAWK) igawk *~
-
-distclean: clean
- rm -f Makefile
-
-maintainer-clean: distclean
- @echo "This command is intended for maintainers to use; it"
- @echo "deletes files that may require special tools to rebuild."
- rm -fr eg stamp-eg
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/awklib/eg/data/guide-mellow.po b/awklib/eg/data/guide-mellow.po
new file mode 100644
index 00000000..98c388d8
--- /dev/null
+++ b/awklib/eg/data/guide-mellow.po
@@ -0,0 +1,8 @@
+#: guide.awk:4
+msgid "Don't Panic"
+msgstr "Hey man, relax!"
+
+#: guide.awk:5
+msgid "The Answer Is"
+msgstr "Like, the scoop is"
+
diff --git a/awklib/eg/data/guide.po b/awklib/eg/data/guide.po
new file mode 100644
index 00000000..de21218a
--- /dev/null
+++ b/awklib/eg/data/guide.po
@@ -0,0 +1,8 @@
+#: guide.awk:4
+msgid "Don't Panic"
+msgstr ""
+
+#: guide.awk:5
+msgid "The Answer Is"
+msgstr ""
+
diff --git a/awklib/eg/lib/assert.awk b/awklib/eg/lib/assert.awk
index 50f42e7d..bbfc0669 100644
--- a/awklib/eg/lib/assert.awk
+++ b/awklib/eg/lib/assert.awk
@@ -1,4 +1,6 @@
# assert --- assert that a condition is true. Otherwise exit.
+
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May, 1993
diff --git a/awklib/eg/lib/bits2str.awk b/awklib/eg/lib/bits2str.awk
new file mode 100644
index 00000000..9725ee8f
--- /dev/null
+++ b/awklib/eg/lib/bits2str.awk
@@ -0,0 +1,16 @@
+# bits2str --- turn a byte into readable 1's and 0's
+
+function bits2str(bits, data, mask)
+{
+ if (bits == 0)
+ return "0"
+
+ mask = 1
+ for (; bits != 0; bits = rshift(bits, 1))
+ data = (and(bits, mask) ? "1" : "0") data
+
+ while ((length(data) % 8) != 0)
+ data = "0" data
+
+ return data
+}
diff --git a/awklib/eg/lib/cliff_rand.awk b/awklib/eg/lib/cliff_rand.awk
new file mode 100644
index 00000000..345447ec
--- /dev/null
+++ b/awklib/eg/lib/cliff_rand.awk
@@ -0,0 +1,14 @@
+# cliff_rand.awk --- generate Cliff random numbers
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# December 2000
+
+BEGIN { _cliff_seed = 0.1 }
+
+function cliff_rand()
+{
+ _cliff_seed = (100 * log(_cliff_seed)) % 1
+ if (_cliff_seed < 0)
+ _cliff_seed = - _cliff_seed
+ return _cliff_seed
+}
diff --git a/awklib/eg/lib/ftrans.awk b/awklib/eg/lib/ftrans.awk
index cec615be..b0743e28 100644
--- a/awklib/eg/lib/ftrans.awk
+++ b/awklib/eg/lib/ftrans.awk
@@ -2,8 +2,8 @@
#
# user supplies beginfile() and endfile() functions
#
-# Arnold Robbins, arnold@gnu.org, November 1992
-# Public Domain
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# November 1992
FNR == 1 {
if (_filename_ != "")
diff --git a/awklib/eg/lib/getopt.awk b/awklib/eg/lib/getopt.awk
index dae20e5f..93753052 100644
--- a/awklib/eg/lib/getopt.awk
+++ b/awklib/eg/lib/getopt.awk
@@ -1,28 +1,26 @@
-# getopt --- do C library getopt(3) function in awk
+# getopt.awk --- do C library getopt(3) function in awk
#
-# arnold@gnu.org
-# Public domain
+# Arnold Robbins, arnold@gnu.org, Public Domain
#
# Initial version: March, 1991
# Revised: May, 1993
# External variables:
-# Optind -- index of ARGV for first non-option argument
+# Optind -- index in ARGV of first non-option argument
# Optarg -- string value of argument to current option
-# Opterr -- if non-zero, print our own diagnostic
+# Opterr -- if nonzero, print our own diagnostic
# Optopt -- current option letter
-# Returns
+# Returns:
# -1 at end of options
# ? for unrecognized option
# <c> a character representing the current option
-# Private Data
-# _opti index in multi-flag option, e.g., -abc
-function getopt(argc, argv, options, optl, thisopt, i)
+# Private Data:
+# _opti -- index in multi-flag option, e.g., -abc
+function getopt(argc, argv, options, thisopt, i)
{
- optl = length(options)
- if (optl == 0) # no options given
+ if (length(options) == 0) # no options given
return -1
if (argv[Optind] == "--") { # all done
diff --git a/awklib/eg/lib/gettime.awk b/awklib/eg/lib/gettime.awk
index 82f09d72..c425123c 100644
--- a/awklib/eg/lib/gettime.awk
+++ b/awklib/eg/lib/gettime.awk
@@ -1,6 +1,8 @@
-# gettimeofday --- get the time of day in a usable format
+# gettimeofday.awk --- get the time of day in a usable format
+#
# Arnold Robbins, arnold@gnu.org, Public Domain, May 1993
#
+
# Returns a string in the format of output of date(1)
# Populates the array argument time with individual values:
# time["second"] -- seconds (0 - 59)
@@ -11,17 +13,17 @@
# time["month"] -- month of year (1 - 12)
# time["monthname"] -- name of the month
# time["shortmonth"] -- short name of the month
-# time["year"] -- year within century (0 - 99)
-# time["fullyear"] -- year with century (19xx or 20xx)
+# time["year"] -- year modulo 100 (0 - 99)
+# time["fullyear"] -- full year
# time["weekday"] -- day of week (Sunday = 0)
# time["altweekday"] -- day of week (Monday = 0)
-# time["weeknum"] -- week number, Sunday first day
-# time["altweeknum"] -- week number, Monday first day
# time["dayname"] -- name of weekday
# time["shortdayname"] -- short name of weekday
# time["yearday"] -- day of year (0 - 365)
# time["timezone"] -- abbreviation of timezone name
# time["ampm"] -- AM or PM designation
+# time["weeknum"] -- week number, Sunday first day
+# time["altweeknum"] -- week number, Monday first day
function gettimeofday(time, ret, now, i)
{
@@ -32,8 +34,7 @@ function gettimeofday(time, ret, now, i)
ret = strftime("%a %b %d %H:%M:%S %Z %Y", now)
# clear out target array
- for (i in time)
- delete time[i]
+ delete time
# fill in values, force numeric values to be
# numeric by adding 0
diff --git a/awklib/eg/lib/grcat.c b/awklib/eg/lib/grcat.c
index 570b3230..d34ddd56 100644
--- a/awklib/eg/lib/grcat.c
+++ b/awklib/eg/lib/grcat.c
@@ -2,9 +2,9 @@
* grcat.c
*
* Generate a printable version of the group database
- *
- * Arnold Robbins, arnold@gnu.org
- * May 1993
+ */
+/*
+ * Arnold Robbins, arnold@gnu.org, May 1993
* Public Domain
*/
diff --git a/awklib/eg/lib/groupawk.in b/awklib/eg/lib/groupawk.in
index 11a72a5a..9d8b4021 100644
--- a/awklib/eg/lib/groupawk.in
+++ b/awklib/eg/lib/groupawk.in
@@ -1,13 +1,17 @@
# group.awk --- functions for dealing with the group file
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
+# Revised October 2000
BEGIN \
{
# Change to suit your system
_gr_awklib = "/usr/local/libexec/awk/"
}
-function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
+
+function _gr_init( oldfs, oldrs, olddol0, grcat,
+ using_fw, n, a, i)
{
if (_gr_inited)
return
@@ -15,6 +19,7 @@ function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
@@ -43,6 +48,8 @@ function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
_gr_count = 0
_gr_inited++
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
}
diff --git a/awklib/eg/lib/join.awk b/awklib/eg/lib/join.awk
index f52f5e62..e17b4270 100644
--- a/awklib/eg/lib/join.awk
+++ b/awklib/eg/lib/join.awk
@@ -1,4 +1,5 @@
# join.awk --- join an array into a string
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
diff --git a/awklib/eg/lib/libintl.awk b/awklib/eg/lib/libintl.awk
new file mode 100644
index 00000000..a9402c2a
--- /dev/null
+++ b/awklib/eg/lib/libintl.awk
@@ -0,0 +1,9 @@
+function bindtextdomain(dir, domain)
+{
+ return dir
+}
+
+function dcgettext(string, domain, category)
+{
+ return string
+}
diff --git a/awklib/eg/lib/mktime.awk b/awklib/eg/lib/mktime.awk
deleted file mode 100644
index 57ff20e5..00000000
--- a/awklib/eg/lib/mktime.awk
+++ /dev/null
@@ -1,105 +0,0 @@
-# mktime.awk --- convert a canonical date representation
-# into a timestamp
-# Arnold Robbins, arnold@gnu.org, Public Domain
-# May 1993
-
-BEGIN \
-{
- # Initialize table of month lengths
- _tm_months[0,1] = _tm_months[1,1] = 31
- _tm_months[0,2] = 28; _tm_months[1,2] = 29
- _tm_months[0,3] = _tm_months[1,3] = 31
- _tm_months[0,4] = _tm_months[1,4] = 30
- _tm_months[0,5] = _tm_months[1,5] = 31
- _tm_months[0,6] = _tm_months[1,6] = 30
- _tm_months[0,7] = _tm_months[1,7] = 31
- _tm_months[0,8] = _tm_months[1,8] = 31
- _tm_months[0,9] = _tm_months[1,9] = 30
- _tm_months[0,10] = _tm_months[1,10] = 31
- _tm_months[0,11] = _tm_months[1,11] = 30
- _tm_months[0,12] = _tm_months[1,12] = 31
-}
-# decide if a year is a leap year
-function _tm_isleap(year, ret)
-{
- ret = (year % 4 == 0 && year % 100 != 0) ||
- (year % 400 == 0)
-
- return ret
-}
-# convert a date into seconds
-function _tm_addup(a, total, yearsecs, daysecs,
- hoursecs, i, j)
-{
- hoursecs = 60 * 60
- daysecs = 24 * hoursecs
- yearsecs = 365 * daysecs
-
- total = (a[1] - 1970) * yearsecs
-
- # extra day for leap years
- for (i = 1970; i < a[1]; i++)
- if (_tm_isleap(i))
- total += daysecs
-
- j = _tm_isleap(a[1])
- for (i = 1; i < a[2]; i++)
- total += _tm_months[j, i] * daysecs
-
- total += (a[3] - 1) * daysecs
- total += a[4] * hoursecs
- total += a[5] * 60
- total += a[6]
-
- return total
-}
-# mktime --- convert a date into seconds,
-# compensate for time zone
-
-function mktime(str, res1, res2, a, b, i, j, t, diff)
-{
- i = split(str, a, " ") # don't rely on FS
-
- if (i != 6)
- return -1
-
- # force numeric
- for (j in a)
- a[j] += 0
-
- # validate
- if (a[1] < 1970 ||
- a[2] < 1 || a[2] > 12 ||
- a[3] < 1 || a[3] > 31 ||
- a[4] < 0 || a[4] > 23 ||
- a[5] < 0 || a[5] > 59 ||
- a[6] < 0 || a[6] > 60 )
- return -1
-
- res1 = _tm_addup(a)
- t = strftime("%Y %m %d %H %M %S", res1)
-
- if (_tm_debug)
- printf("(%s) -> (%s)\n", str, t) > "/dev/stderr"
-
- split(t, b, " ")
- res2 = _tm_addup(b)
-
- diff = res1 - res2
-
- if (_tm_debug)
- printf("diff = %d seconds\n", diff) > "/dev/stderr"
-
- res1 += diff
-
- return res1
-}
-BEGIN {
- if (_tm_test) {
- printf "Enter date as yyyy mm dd hh mm ss: "
- getline _tm_test_date
- t = mktime(_tm_test_date)
- r = strftime("%Y %m %d %H %M %S", t)
- printf "Got back (%s)\n", r
- }
-}
diff --git a/awklib/eg/lib/nextfile.awk b/awklib/eg/lib/nextfile.awk
index 4bb07bc3..caedf0e4 100644
--- a/awklib/eg/lib/nextfile.awk
+++ b/awklib/eg/lib/nextfile.awk
@@ -1,5 +1,6 @@
# nextfile --- skip remaining records in current file
# correctly handle successive occurrences of the same file
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May, 1993
diff --git a/awklib/eg/lib/noassign.awk b/awklib/eg/lib/noassign.awk
new file mode 100644
index 00000000..d6d176e4
--- /dev/null
+++ b/awklib/eg/lib/noassign.awk
@@ -0,0 +1,17 @@
+# noassign.awk --- library file to avoid the need for a
+# special option that disables command-line assignments
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# October 1999
+
+function disable_assigns(argc, argv, i)
+{
+ for (i = 1; i < argc; i++)
+ if (argv[i] ~ /^[A-Za-z_][A-Za-z_0-9]*=.*/)
+ argv[i] = ("./" argv[i])
+}
+
+BEGIN {
+ if (No_command_assign)
+ disable_assigns(ARGC, ARGV)
+}
diff --git a/awklib/eg/lib/ord.awk b/awklib/eg/lib/ord.awk
index b19149eb..3eacbcc5 100644
--- a/awklib/eg/lib/ord.awk
+++ b/awklib/eg/lib/ord.awk
@@ -1,16 +1,15 @@
# ord.awk --- do ord and chr
-#
+
# Global identifiers:
# _ord_: numerical values indexed by characters
# _ord_init: function to initialize _ord_
#
-# Arnold Robbins
-# arnold@gnu.org
-# Public Domain
+# Arnold Robbins, arnold@gnu.org, Public Domain
# 16 January, 1992
# 20 July, 1992, revised
BEGIN { _ord_init() }
+
function _ord_init( low, high, i, t)
{
low = sprintf("%c", 7) # BEL is ascii 7
@@ -37,18 +36,9 @@ function ord(str, c)
c = substr(str, 1, 1)
return _ord_[c]
}
+
function chr(c)
{
# force c to be numeric by adding 0
return sprintf("%c", c + 0)
}
-#### test code ####
-# BEGIN \
-# {
-# for (;;) {
-# printf("enter a character: ")
-# if (getline var <= 0)
-# break
-# printf("ord(%s) = %d\n", var, ord(var))
-# }
-# }
diff --git a/awklib/eg/lib/passwdawk.in b/awklib/eg/lib/passwdawk.in
index dd6ee7f5..5f6f9e26 100644
--- a/awklib/eg/lib/passwdawk.in
+++ b/awklib/eg/lib/passwdawk.in
@@ -1,21 +1,26 @@
# passwd.awk --- access password file information
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
+# Revised October 2000
BEGIN {
# tailor this to suit your system
_pw_awklib = "/usr/local/libexec/awk/"
}
-function _pw_init( oldfs, oldrs, olddol0, pwcat)
+function _pw_init( oldfs, oldrs, olddol0, pwcat, using_fw)
{
if (_pw_inited)
return
+
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
+
pwcat = _pw_awklib "pwcat"
while ((pwcat | getline) > 0) {
_pw_byname[$1] = $0
@@ -26,6 +31,8 @@ function _pw_init( oldfs, oldrs, olddol0, pwcat)
_pw_count = 0
_pw_inited = 1
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
}
diff --git a/awklib/eg/lib/pwcat.c b/awklib/eg/lib/pwcat.c
index 591b8523..b9a71340 100644
--- a/awklib/eg/lib/pwcat.c
+++ b/awklib/eg/lib/pwcat.c
@@ -2,10 +2,9 @@
* pwcat.c
*
* Generate a printable version of the password database
- *
- * Arnold Robbins
- * arnold@gnu.org
- * May 1993
+ */
+/*
+ * Arnold Robbins, arnold@gnu.org, May 1993
* Public Domain
*/
diff --git a/awklib/eg/lib/readable.awk b/awklib/eg/lib/readable.awk
new file mode 100644
index 00000000..51705aea
--- /dev/null
+++ b/awklib/eg/lib/readable.awk
@@ -0,0 +1,16 @@
+# readable.awk --- library file to skip over unreadable files
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# October 2000
+
+BEGIN {
+ for (i = 1; i < ARGC; i++) {
+ if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
+ || ARGV[i] == "-")
+ continue # assignment or standard input
+ else if ((getline junk < ARGV[i]) < 0) # unreadable
+ delete ARGV[i]
+ else
+ close(ARGV[i])
+ }
+}
diff --git a/awklib/eg/lib/rewind.awk b/awklib/eg/lib/rewind.awk
new file mode 100644
index 00000000..33286611
--- /dev/null
+++ b/awklib/eg/lib/rewind.awk
@@ -0,0 +1,20 @@
+# rewind.awk --- rewind the current file and start over
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# September 2000
+
+function rewind( i)
+{
+ # shift remaining arguments up
+ for (i = ARGC; i > ARGIND; i--)
+ ARGV[i] = ARGV[i-1]
+
+ # make sure gawk knows to keep going
+ ARGC++
+
+ # make current file next to get done
+ ARGV[ARGIND+1] = FILENAME
+
+ # do it
+ nextfile
+}
diff --git a/awklib/eg/lib/round.awk b/awklib/eg/lib/round.awk
index 67ce6469..bf16c2b6 100644
--- a/awklib/eg/lib/round.awk
+++ b/awklib/eg/lib/round.awk
@@ -1,7 +1,7 @@
# round --- do normal rounding
#
-# Arnold Robbins, arnold@gnu.org, August, 1996
-# Public Domain
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# August, 1996
function round(x, ival, aval, fraction)
{
diff --git a/awklib/eg/misc/findpat.sh b/awklib/eg/misc/findpat.awk
index 39710324..e9bef9ea 100644
--- a/awklib/eg/misc/findpat.sh
+++ b/awklib/eg/misc/findpat.awk
@@ -1,10 +1,10 @@
-awk '{
+{
if ($1 == "FIND")
regex = $2
else {
where = match($0, regex)
if (where != 0)
- print "Match of", regex, "found at", \
+ print "Match of", regex, "found at",
where, "in", $0
}
-}'
+}
diff --git a/awklib/eg/network/PostAgent.sh b/awklib/eg/network/PostAgent.sh
new file mode 100644
index 00000000..ccf9a687
--- /dev/null
+++ b/awklib/eg/network/PostAgent.sh
@@ -0,0 +1,9 @@
+#!/bin/sh
+MobAg=/tmp/MobileAgent.$$
+# direct script to mobile agent file
+cat > $MobAg
+# execute agent concurrently
+gawk -f $MobAg $MobAg > /dev/null &
+# HTTP header, terminator and body
+gawk 'BEGIN { print "\r\nAgent started" }'
+rm $MobAg # delete script file of agent
diff --git a/awklib/eg/network/coreserv.awk b/awklib/eg/network/coreserv.awk
new file mode 100644
index 00000000..e9e61710
--- /dev/null
+++ b/awklib/eg/network/coreserv.awk
@@ -0,0 +1,113 @@
+# CGI Library and core of a web server
+#
+# Juergen Kahrs, Juergen.Kahrs@vr-web.de
+# with Arnold Robbins, arnold@gnu.org
+# September 2000
+
+# Global arrays
+# GETARG --- arguments to CGI GET command
+# MENU --- menu items (path names)
+# PARAM --- parameters of form x=y
+
+# Optional variable MyHost contains host address
+# Optional variable MyPort contains port number
+# Needs TopHeader, TopDoc, TopFooter
+# Sets MyPrefix, HttpService, Status, Reason
+
+BEGIN {
+ if (MyHost == "") {
+ "uname -n" | getline MyHost
+ close("uname -n")
+ }
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ MyPrefix = "http://" MyHost ":" MyPort
+ SetUpServer()
+ while ("awk" != "complex") {
+ # header lines are terminated this way
+ RS = ORS = "\r\n"
+ Status = 200 # this means OK
+ Reason = "OK"
+ Header = TopHeader
+ Document = TopDoc
+ Footer = TopFooter
+ if (GETARG["Method"] == "GET") {
+ HandleGET()
+ } else if (GETARG["Method"] == "HEAD") {
+ # not yet implemented
+ } else if (GETARG["Method"] != "") {
+ print "bad method", GETARG["Method"]
+ }
+ Prompt = Header Document Footer
+ print "HTTP/1.0", Status, Reason |& HttpService
+ print "Connection: Close" |& HttpService
+ print "Pragma: no-cache" |& HttpService
+ len = length(Prompt) + length(ORS)
+ print "Content-length:", len |& HttpService
+ print ORS Prompt |& HttpService
+ # ignore all the header lines
+ while ((HttpService |& getline) > 0)
+ continue
+ # stop talking to this client
+ close(HttpService)
+ # wait for new client request
+ HttpService |& getline
+ # do some logging
+ print systime(), strftime(), $0
+ CGI_setup($1, $2, $3)
+ }
+}
+
+function CGI_setup( method, uri, version, i)
+{
+ delete GETARG
+ delete MENU
+ delete PARAM
+ GETARG["Method"] = method
+ GETARG["URI"] = uri
+ GETARG["Version"] = version
+
+ i = index(uri, "?")
+ if (i > 0) { # is there a "?" indicating a CGI request?
+ split(substr(uri, 1, i-1), MENU, "[/:]")
+ split(substr(uri, i+1), PARAM, "&")
+ for (i in PARAM) {
+ PARAM[i] = _CGI_decode(PARAM[i])
+ j = index(PARAM[i], "=")
+ GETARG[substr(PARAM[i], 1, j-1)] = \
+ substr(PARAM[i], j+1)
+ }
+ } else { # there is no "?", no need for splitting PARAMs
+ split(uri, MENU, "[/:]")
+ }
+ for (i in MENU) # decode characters in path
+ if (i > 4) # but not those in host name
+ MENU[i] = _CGI_decode(MENU[i])
+}
+function _CGI_decode(str, hexdigs, i, pre, code1, code2,
+ val, result)
+{
+ hexdigs = "123456789abcdef"
+
+ i = index(str, "%")
+ if (i == 0) # no work to do
+ return str
+
+ do {
+ pre = substr(str, 1, i-1) # part before %xx
+ code1 = substr(str, i+1, 1) # first hex digit
+ code2 = substr(str, i+2, 1) # second hex digit
+ str = substr(str, i+3) # rest of string
+
+ code1 = tolower(code1)
+ code2 = tolower(code2)
+ val = index(hexdigs, code1) * 16 \
+ + index(hexdigs, code2)
+
+ result = result pre sprintf("%c", val)
+ i = index(str, "%")
+ } while (i != 0)
+ if (length(str) > 0)
+ result = result str
+ return result
+}
diff --git a/awklib/eg/network/eliza.awk b/awklib/eg/network/eliza.awk
new file mode 100644
index 00000000..2e022b41
--- /dev/null
+++ b/awklib/eg/network/eliza.awk
@@ -0,0 +1,270 @@
+function SetUpServer() {
+ SetUpEliza()
+ TopHeader = \
+ "<HTML><title>An HTTP-based System with GAWK</title>\
+ <HEAD><META HTTP-EQUIV=\"Content-Type\"\
+ CONTENT=\"text/html; charset=iso-8859-1\"></HEAD>\
+ <BODY BGCOLOR=\"#ffffff\" TEXT=\"#000000\"\
+ LINK=\"#0000ff\" VLINK=\"#0000ff\"\
+ ALINK=\"#0000ff\"> <A NAME=\"top\">"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI>\
+ <A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ </LI><LI>\
+ <A HREF=" MyPrefix "/AboutELIZA>About Eliza</A></LI>\
+ <LI>\
+ <A HREF=" MyPrefix \
+ "/StartELIZA>Start talking to Eliza</A></LI></UL>"
+ TopFooter = "</BODY></HTML>"
+}
+function HandleGET() {
+ # A real HTTP server would treat some parts of the URI as a file name.
+ # We take parts of the URI as menu choices and go on accordingly.
+ if(MENU[2] == "AboutServer") {
+ Document = "This is not a CGI script.\
+ This is an httpd, an HTML file, and a CGI script all \
+ in one GAWK script. It needs no separate www-server, \
+ no installation, and no root privileges.\
+ <p>To run it, do this:</p><ul>\
+ <li> start this script with \"gawk -f httpserver.awk\",</li>\
+ <li> and on the same host let your www browser open location\
+ \"http://localhost:8080\"</li>\
+ </ul>\<p>\ Details of HTTP come from:</p><ul>\
+ <li>Hethmon: Illustrated Guide to HTTP</p>\
+ <li>RFC 2068</li></ul><p>JK 14.9.1997</p>"
+ } else if (MENU[2] == "AboutELIZA") {
+ Document = "This is an implementation of the famous ELIZA\
+ program by Joseph Weizenbaum. It is written in GAWK and\
+/bin/sh: expad: command not found
+ } else if (MENU[2] == "StartELIZA") {
+ gsub(/\+/, " ", GETARG["YouSay"])
+ # Here we also have to substitute coded special characters
+ Document = "<form method=GET>" \
+ "<h3>" ElizaSays(GETARG["YouSay"]) "</h3>\
+ <p><input type=text name=YouSay value=\"\" size=60>\
+ <br><input type=submit value=\"Tell her about it\"></p></form>"
+ }
+}
+function ElizaSays(YouSay) {
+ if (YouSay == "") {
+ cost = 0
+ answer = "HI, IM ELIZA, TELL ME YOUR PROBLEM"
+ } else {
+ q = toupper(YouSay)
+ gsub("'", "", q)
+ if(q == qold) {
+ answer = "PLEASE DONT REPEAT YOURSELF !"
+ } else {
+ if (index(q, "SHUT UP") > 0) {
+ answer = "WELL, PLEASE PAY YOUR BILL. ITS EXACTLY ... $"\
+ int(100*rand()+30+cost/100)
+ } else {
+ qold = q
+ w = "-" # no keyword recognized yet
+ for (i in k) { # search for keywords
+ if (index(q, i) > 0) {
+ w = i
+ break
+ }
+ }
+ if (w == "-") { # no keyword, take old subject
+ w = wold
+ subj = subjold
+ } else { # find subject
+ subj = substr(q, index(q, w) + length(w)+1)
+ wold = w
+ subjold = subj # remember keyword and subject
+ }
+ for (i in conj)
+ gsub(i, conj[i], q) # conjugation
+ # from all answers to this keyword, select one randomly
+ answer = r[indices[int(split(k[w], indices) * rand()) + 1]]
+ # insert subject into answer
+ gsub("_", subj, answer)
+ }
+ }
+ }
+ cost += length(answer) # for later payment : 1 cent per character
+ return answer
+}
+function SetUpEliza() {
+ srand()
+ wold = "-"
+ subjold = " "
+
+ # table for conjugation
+ conj[" ARE " ] = " AM "
+ conj["WERE " ] = "WAS "
+ conj[" YOU " ] = " I "
+ conj["YOUR " ] = "MY "
+ conj[" IVE " ] =\
+ conj[" I HAVE " ] = " YOU HAVE "
+ conj[" YOUVE " ] =\
+ conj[" YOU HAVE "] = " I HAVE "
+ conj[" IM " ] =\
+ conj[" I AM " ] = " YOU ARE "
+ conj[" YOURE " ] =\
+ conj[" YOU ARE " ] = " I AM "
+
+ # table of all answers
+ r[1] = "DONT YOU BELIEVE THAT I CAN _"
+ r[2] = "PERHAPS YOU WOULD LIKE TO BE ABLE TO _ ?"
+ r[3] = "YOU WANT ME TO BE ABLE TO _ ?"
+ r[4] = "PERHAPS YOU DONT WANT TO _ "
+ r[5] = "DO YOU WANT TO BE ABLE TO _ ?"
+ r[6] = "WHAT MAKES YOU THINK I AM _ ?"
+ r[7] = "DOES IT PLEASE YOU TO BELIEVE I AM _ ?"
+ r[8] = "PERHAPS YOU WOULD LIKE TO BE _ ?"
+ r[9] = "DO YOU SOMETIMES WISH YOU WERE _ ?"
+ r[10] = "DONT YOU REALLY _ ?"
+ r[11] = "WHY DONT YOU _ ?"
+ r[12] = "DO YOU WISH TO BE ABLE TO _ ?"
+ r[13] = "DOES THAT TROUBLE YOU ?"
+ r[14] = "TELL ME MORE ABOUT SUCH FEELINGS"
+ r[15] = "DO YOU OFTEN FEEL _ ?"
+ r[16] = "DO YOU ENJOY FEELING _ ?"
+ r[17] = "DO YOU REALLY BELIEVE I DONT _ ?"
+ r[18] = "PERHAPS IN GOOD TIME I WILL _ "
+ r[19] = "DO YOU WANT ME TO _ ?"
+ r[20] = "DO YOU THINK YOU SHOULD BE ABLE TO _ ?"
+ r[21] = "WHY CANT YOU _ ?"
+ r[22] = "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM _ ?"
+ r[23] = "WOULD YOU PREFER IF I WERE NOT _ ?"
+ r[24] = "PERHAPS IN YOUR FANTASIES I AM _ "
+ r[25] = "HOW DO YOU KNOW YOU CANT _ ?"
+ r[26] = "HAVE YOU TRIED ?"
+ r[27] = "PERHAPS YOU CAN NOW _ "
+ r[28] = "DID YOU COME TO ME BECAUSE YOU ARE _ ?"
+ r[29] = "HOW LONG HAVE YOU BEEN _ ?"
+ r[30] = "DO YOU BELIEVE ITS NORMAL TO BE _ ?"
+ r[31] = "DO YOU ENJOY BEING _ ?"
+ r[32] = "WE WERE DISCUSSING YOU -- NOT ME"
+ r[33] = "Oh, I _"
+ r[34] = "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU ?"
+ r[35] = "WHAT WOULD IT MEAN TO YOU, IF YOU GOT _ ?"
+ r[36] = "WHY DO YOU WANT _ ?"
+ r[37] = "SUPPOSE YOU SOON GOT _"
+ r[38] = "WHAT IF YOU NEVER GOT _ ?"
+ r[39] = "I SOMETIMES ALSO WANT _"
+ r[40] = "WHY DO YOU ASK ?"
+ r[41] = "DOES THAT QUESTION INTEREST YOU ?"
+ r[42] = "WHAT ANSWER WOULD PLEASE YOU THE MOST ?"
+ r[43] = "WHAT DO YOU THINK ?"
+ r[44] = "ARE SUCH QUESTIONS IN YOUR MIND OFTEN ?"
+ r[45] = "WHAT IS IT THAT YOU REALLY WANT TO KNOW ?"
+ r[46] = "HAVE YOU ASKED ANYONE ELSE ?"
+ r[47] = "HAVE YOU ASKED SUCH QUESTIONS BEFORE ?"
+ r[48] = "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT ?"
+ r[49] = "NAMES DON'T INTEREST ME"
+ r[50] = "I DONT CARE ABOUT NAMES -- PLEASE GO ON"
+ r[51] = "IS THAT THE REAL REASON ?"
+ r[52] = "DONT ANY OTHER REASONS COME TO MIND ?"
+ r[53] = "DOES THAT REASON EXPLAIN ANYTHING ELSE ?"
+ r[54] = "WHAT OTHER REASONS MIGHT THERE BE ?"
+ r[55] = "PLEASE DON'T APOLOGIZE !"
+ r[56] = "APOLOGIES ARE NOT NECESSARY"
+ r[57] = "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE ?"
+ r[58] = "DON'T BE SO DEFENSIVE"
+ r[59] = "WHAT DOES THAT DREAM SUGGEST TO YOU ?"
+ r[60] = "DO YOU DREAM OFTEN ?"
+ r[61] = "WHAT PERSONS APPEAR IN YOUR DREAMS ?"
+ r[62] = "ARE YOU DISTURBED BY YOUR DREAMS ?"
+ r[63] = "HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM"
+ r[64] = "YOU DON'T SEEM QUITE CERTAIN"
+ r[65] = "WHY THE UNCERTAIN TONE ?"
+ r[66] = "CAN'T YOU BE MORE POSITIVE ?"
+ r[67] = "YOU AREN'T SURE ?"
+ r[68] = "DON'T YOU KNOW ?"
+ r[69] = "WHY NO _ ?"
+ r[70] = "DON'T SAY NO, IT'S ALWAYS SO NEGATIVE"
+ r[71] = "WHY NOT ?"
+ r[72] = "ARE YOU SURE ?"
+ r[73] = "WHY NO ?"
+ r[74] = "WHY ARE YOU CONCERNED ABOUT MY _ ?"
+ r[75] = "WHAT ABOUT YOUR OWN _ ?"
+ r[76] = "CAN'T YOU THINK ABOUT A SPECIFIC EXAMPLE ?"
+ r[77] = "WHEN ?"
+ r[78] = "WHAT ARE YOU THINKING OF ?"
+ r[79] = "REALLY, ALWAYS ?"
+ r[80] = "DO YOU REALLY THINK SO ?"
+ r[81] = "BUT YOU ARE NOT SURE YOU _ "
+ r[82] = "DO YOU DOUBT YOU _ ?"
+ r[83] = "IN WHAT WAY ?"
+ r[84] = "WHAT RESEMBLANCE DO YOU SEE ?"
+ r[85] = "WHAT DOES THE SIMILARITY SUGGEST TO YOU ?"
+ r[86] = "WHAT OTHER CONNECTION DO YOU SEE ?"
+ r[87] = "COULD THERE REALLY BE SOME CONNECTIONS ?"
+ r[88] = "HOW ?"
+ r[89] = "YOU SEEM QUITE POSITIVE"
+ r[90] = "ARE YOU SURE ?"
+ r[91] = "I SEE"
+ r[92] = "I UNDERSTAND"
+ r[93] = "WHY DO YOU BRING UP THE TOPIC OF FRIENDS ?"
+ r[94] = "DO YOUR FRIENDS WORRY YOU ?"
+ r[95] = "DO YOUR FRIENDS PICK ON YOU ?"
+ r[96] = "ARE YOU SURE YOU HAVE ANY FRIENDS ?"
+ r[97] = "DO YOU IMPOSE ON YOUR FRIENDS ?"
+ r[98] = "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU"
+ r[99] = "DO COMPUTERS WORRY YOU ?"
+ r[100] = "ARE YOU TALKING ABOUT ME IN PARTICULAR ?"
+ r[101] = "ARE YOU FRIGHTENED BY MACHINES ?"
+ r[102] = "WHY DO YOU MENTION COMPUTERS ?"
+ r[103] = "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEMS ?"
+ r[104] = "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE ?"
+ r[105] = "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU ?"
+ r[106] = "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS ?"
+ r[107] = "WHAT DOES THAT SUGGEST TO YOU ?"
+ r[108] = "I SEE"
+ r[109] = "IM NOT SURE I UNDERSTAND YOU FULLY"
+ r[110] = "COME COME ELUCIDATE YOUR THOUGHTS"
+ r[111] = "CAN YOU ELABORATE ON THAT ?"
+ r[112] = "THAT IS QUITE INTERESTING"
+ r[113] = "WHY DO YOU HAVE PROBLEMS WITH MONEY ?"
+ r[114] = "DO YOU THINK MONEY IS EVERYTHING ?"
+ r[115] = "ARE YOU SURE THAT MONEY IS THE PROBLEM ?"
+ r[116] = "I THINK WE WANT TO TALK ABOUT YOU, NOT ABOUT ME"
+ r[117] = "WHAT'S ABOUT ME ?"
+ r[118] = "WHY DO YOU ALWAYS BRING UP MY NAME ?"
+ # table for looking up answers that
+ # fit to a certain keyword
+ k["CAN YOU"] = "1 2 3"
+ k["CAN I"] = "4 5"
+ k["YOU ARE"] =\
+ k["YOURE"] = "6 7 8 9"
+ k["I DONT"] = "10 11 12 13"
+ k["I FEEL"] = "14 15 16"
+ k["WHY DONT YOU"] = "17 18 19"
+ k["WHY CANT I"] = "20 21"
+ k["ARE YOU"] = "22 23 24"
+ k["I CANT"] = "25 26 27"
+ k["I AM"] =\
+ k["IM "] = "28 29 30 31"
+ k["YOU "] = "32 33 34"
+ k["I WANT"] = "35 36 37 38 39"
+ k["WHAT"] =\
+ k["HOW"] =\
+ k["WHO"] =\
+ k["WHERE"] =\
+ k["WHEN"] =\
+ k["WHY"] = "40 41 42 43 44 45 46 47 48"
+ k["NAME"] = "49 50"
+ k["CAUSE"] = "51 52 53 54"
+ k["SORRY"] = "55 56 57 58"
+ k["DREAM"] = "59 60 61 62"
+ k["HELLO"] =\
+ k["HI "] = "63"
+ k["MAYBE"] = "64 65 66 67 68"
+ k[" NO "] = "69 70 71 72 73"
+ k["YOUR"] = "74 75"
+ k["ALWAYS"] = "76 77 78 79"
+ k["THINK"] = "80 81 82"
+ k["LIKE"] = "83 84 85 86 87 88 89"
+ k["YES"] = "90 91 92"
+ k["FRIEND"] = "93 94 95 96 97 98"
+ k["COMPUTER"] = "99 100 101 102 103 104 105"
+ k["-"] = "106 107 108 109 110 111 112"
+ k["MONEY"] = "113 114 115"
+ k["ELIZA"] = "116 117 118"
+}
diff --git a/awklib/eg/network/fingerclient.awk b/awklib/eg/network/fingerclient.awk
new file mode 100644
index 00000000..bcc2c94c
--- /dev/null
+++ b/awklib/eg/network/fingerclient.awk
@@ -0,0 +1,7 @@
+BEGIN {
+ NetService = "/inet/tcp/0/localhost/finger"
+ print "var{name}" |& NetService
+ while ((NetService |& getline) > 0)
+ print $0
+ close(NetService)
+}
diff --git a/awklib/eg/network/geturl.awk b/awklib/eg/network/geturl.awk
new file mode 100644
index 00000000..53853e50
--- /dev/null
+++ b/awklib/eg/network/geturl.awk
@@ -0,0 +1,24 @@
+BEGIN {
+ if (ARGC != 2) {
+ print "GETURL - retrieve Web page via HTTP 1.0"
+ print "IN:\n the URL as a command-line parameter"
+ print "PARAM(S):\n -v Proxy=MyProxy"
+ print "OUT:\n the page content on stdout"
+ print " the page header on stderr"
+ print "JK 16.05.1997"
+ print "ADR 13.08.2000"
+ exit
+ }
+ URL = ARGV[1]; ARGV[1] = ""
+ if (Proxy == "") Proxy = "127.0.0.1"
+ if (ProxyPort == 0) ProxyPort = 80
+ if (Method == "") Method = "GET"
+ HttpService = "/inet/tcp/0/" Proxy "/" ProxyPort
+ ORS = RS = "\r\n\r\n"
+ print Method " " URL " HTTP/1.0" |& HttpService
+ HttpService |& getline Header
+ print Header > "/dev/stderr"
+ while ((HttpService |& getline) > 0)
+ printf "%s", $0
+ close(HttpService)
+}
diff --git a/awklib/eg/network/hello-serv.awk b/awklib/eg/network/hello-serv.awk
new file mode 100644
index 00000000..003ee088
--- /dev/null
+++ b/awklib/eg/network/hello-serv.awk
@@ -0,0 +1,14 @@
+BEGIN {
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/8080/0/0"
+ Hello = "<HTML><HEAD>" \
+ "<TITLE>A Famous Greeting</TITLE></HEAD>" \
+ "<BODY><H1>Hello, world</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+}
diff --git a/awklib/eg/network/maze.awk b/awklib/eg/network/maze.awk
new file mode 100644
index 00000000..94888f8c
--- /dev/null
+++ b/awklib/eg/network/maze.awk
@@ -0,0 +1,73 @@
+function SetUpServer() {
+ TopHeader = "<HTML><title>Walk through a maze</title>"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ <LI><A HREF=" MyPrefix "/VRMLtest>Watch a simple VRML scene</A>\
+ </UL>"
+ TopFooter = "</HTML>"
+ srand()
+}
+function HandleGET() {
+ if (MENU[2] == "AboutServer") {
+ Document = "If your browser has a VRML 2 plugin,\
+ this server shows you a simple VRML scene."
+ } else if (MENU[2] == "VRMLtest") {
+ XSIZE = YSIZE = 11 # initially, everything is wall
+ for (y = 0; y < YSIZE; y++)
+ for (x = 0; x < XSIZE; x++)
+ Maze[x, y] = "#"
+ delete Maze[0, 1] # entry is not wall
+ delete Maze[XSIZE-1, YSIZE-2] # exit is not wall
+ MakeMaze(1, 1)
+ Document = "\
+#VRML V2.0 utf8\n\
+Group {\n\
+ children [\n\
+ PointLight {\n\
+ ambientIntensity 0.2\n\
+ color 0.7 0.7 0.7\n\
+ location 0.0 8.0 10.0\n\
+ }\n\
+ DEF B1 Background {\n\
+ skyColor [0 0 0, 1.0 1.0 1.0 ]\n\
+ skyAngle 1.6\n\
+ groundColor [1 1 1, 0.8 0.8 0.8, 0.2 0.2 0.2 ]\n\
+ groundAngle [ 1.2 1.57 ]\n\
+ }\n\
+ DEF Wall Shape {\n\
+ geometry Box {size 1 1 1}\n\
+ appearance Appearance { material Material { diffuseColor 0 0 1 } }\n\
+ }\n\
+ DEF Entry Viewpoint {\n\
+ position 0.5 1.0 5.0\n\
+ orientation 0.0 0.0 -1.0 0.52\n\
+ }\n"
+ for (i in Maze) {
+ split(i, t, SUBSEP)
+ Document = Document " Transform { translation "
+ Document = Document t[1] " 0 -" t[2] " children USE Wall }\n"
+ }
+ Document = Document " ] # end of group for world\n}"
+ Reason = "OK" ORS "Content-type: model/vrml"
+ Header = Footer = ""
+ }
+}
+function MakeMaze(x, y) {
+ delete Maze[x, y] # here we are, we have no wall here
+ p = 0 # count unvisited fields in all directions
+ if (x-2 SUBSEP y in Maze) d[p++] = "-x"
+ if (x SUBSEP y-2 in Maze) d[p++] = "-y"
+ if (x+2 SUBSEP y in Maze) d[p++] = "+x"
+ if (x SUBSEP y+2 in Maze) d[p++] = "+y"
+ if (p>0) { # if there are univisited fields, go there
+ p = int(p*rand()) # choose one unvisited field at random
+ if (d[p] == "-x") { delete Maze[x - 1, y]; MakeMaze(x - 2, y)
+ } else if (d[p] == "-y") { delete Maze[x, y - 1]; MakeMaze(x, y - 2)
+ } else if (d[p] == "+x") { delete Maze[x + 1, y]; MakeMaze(x + 2, y)
+ } else if (d[p] == "+y") { delete Maze[x, y + 1]; MakeMaze(x, y + 2)
+ } # we are back from recursion
+ MakeMaze(x, y); # try again while there are unvisited fields
+ }
+}
diff --git a/awklib/eg/network/mobag.awk b/awklib/eg/network/mobag.awk
new file mode 100644
index 00000000..a8c55008
--- /dev/null
+++ b/awklib/eg/network/mobag.awk
@@ -0,0 +1,72 @@
+BEGIN {
+ if (ARGC != 2) {
+ print "MOBAG - a simple mobile agent"
+ print "CALL:\n gawk -f mobag.awk mobag.awk"
+ print "IN:\n the name of this script as a command-line parameter"
+ print "PARAM:\n -v MyOrigin=myhost.com"
+ print "OUT:\n the result on stdout"
+ print "JK 29.03.1998 01.04.1998"
+ exit
+ }
+ if (MyOrigin == "") {
+ "uname -n" | getline MyOrigin
+ close("uname -n")
+ }
+}
+#ReadMySelf
+/^function / { FUNC = $2 }
+/^END/ || /^#ReadMySelf/ { FUNC = $1 }
+FUNC != "" { MOBFUN[FUNC] = MOBFUN[FUNC] RS $0 }
+(FUNC != "") && (/^}/ || /^#EndOfMySelf/) \
+ { FUNC = "" }
+#EndOfMySelf
+function migrate(Destination, MobCode, Label) {
+ MOBVAR["Label"] = Label
+ MOBVAR["Destination"] = Destination
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/0/" Destination
+ for (i in MOBFUN)
+ MobCode = (MobCode "\n" MOBFUN[i])
+ MobCode = MobCode "\n\nBEGIN {"
+ for (i in MOBVAR)
+ MobCode = (MobCode "\n MOBVAR[\"" i "\"] = \"" MOBVAR[i] "\"")
+ MobCode = MobCode "\n}\n"
+ print "POST /cgi-bin/PostAgent.sh HTTP/1.0" |& HttpService
+ print "Content-length:", length(MobCode) ORS |& HttpService
+ printf "%s", MobCode |& HttpService
+ while ((HttpService |& getline) > 0)
+ print $0
+ close(HttpService)
+}
+END {
+ if (ARGC != 2) exit # stop when called with wrong parameters
+ if (MyOrigin != "") # is this the originating host?
+ MyInit() # if so, initialize the application
+ else # we are on a host with migrated data
+ MyJob() # so we do our job
+}
+function MyInit() {
+ MOBVAR["MyOrigin"] = MyOrigin
+ MOBVAR["Machines"] = "localhost/80 max/80 moritz/80 castor/80"
+ split(MOBVAR["Machines"], Machines) # which host is the first?
+ migrate(Machines[1], "", "") # go to the first host
+ while (("/inet/tcp/8080/0/0" |& getline) > 0) # wait for result
+ print $0 # print result
+ close("/inet/tcp/8080/0/0")
+}
+function MyJob() {
+ # forget this host
+ sub(MOBVAR["Destination"], "", MOBVAR["Machines"])
+ MOBVAR["Result"]=MOBVAR["Result"] SUBSEP SUBSEP MOBVAR["Destination"] ":"
+ while (("who" | getline) > 0) # who is logged in?
+ MOBVAR["Result"] = MOBVAR["Result"] SUBSEP $0
+ close("who")
+ if (index(MOBVAR["Machines"], "/") > 0) { # any more machines to visit?
+ split(MOBVAR["Machines"], Machines) # which host is next?
+ migrate(Machines[1], "", "") # go there
+ } else { # no more machines
+ gsub(SUBSEP, "\n", MOBVAR["Result"]) # send result to origin
+ print MOBVAR["Result"] |& "/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080"
+ close("/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080")
+ }
+}
diff --git a/awklib/eg/network/panic.awk b/awklib/eg/network/panic.awk
new file mode 100644
index 00000000..6db8c46d
--- /dev/null
+++ b/awklib/eg/network/panic.awk
@@ -0,0 +1,18 @@
+BEGIN {
+ RS = ORS = "\r\n"
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ Hello = "<HTML><HEAD><TITLE>Out Of Service</TITLE>" \
+ "</HEAD><BODY><H1>" \
+ "This site is temporarily out of service." \
+ "</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ while ("awk" != "complex") {
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+ }
+}
diff --git a/awklib/eg/network/protbase.awk b/awklib/eg/network/protbase.awk
new file mode 100644
index 00000000..16199e45
--- /dev/null
+++ b/awklib/eg/network/protbase.awk
@@ -0,0 +1,11 @@
+{ request = request "\n" $0 }
+
+END {
+ BLASTService = "/inet/tcp/0/www.ncbi.nlm.nih.gov/80"
+ printf "POST /cgi-bin/BLAST/nph-blast_report HTTP/1.0\n" |& BLASTService
+ printf "Content-Length: " length(request) "\n\n" |& BLASTService
+ printf request |& BLASTService
+ while ((BLASTService |& getline) > 0)
+ print $0
+ close(BLASTService)
+}
diff --git a/awklib/eg/network/protbase.request b/awklib/eg/network/protbase.request
new file mode 100644
index 00000000..4c5c3d2c
--- /dev/null
+++ b/awklib/eg/network/protbase.request
@@ -0,0 +1,7 @@
+PROGRAM blastn
+DATALIB month
+EXPECT 0.75
+BEGIN
+>GAWK310 the gawking gene GNU AWK
+tgcttggctgaggagccataggacgagagcttcctggtgaagtgtgtttcttgaaatcat
+caccaccatggacagcaaa
diff --git a/awklib/eg/network/protbase.result b/awklib/eg/network/protbase.result
new file mode 100644
index 00000000..a087af43
--- /dev/null
+++ b/awklib/eg/network/protbase.result
@@ -0,0 +1,9 @@
+Sequences producing significant alignments: (bits) Value
+
+gb|AC021182.14|AC021182 Homo sapiens chromosome 7 clone RP11-733... 38 0.20
+gb|AC021056.12|AC021056 Homo sapiens chromosome 3 clone RP11-115... 38 0.20
+emb|AL160278.10|AL160278 Homo sapiens chromosome 9 clone RP11-57... 38 0.20
+emb|AL391139.11|AL391139 Homo sapiens chromosome X clone RP11-35... 38 0.20
+emb|AL365192.6|AL365192 Homo sapiens chromosome 6 clone RP3-421H... 38 0.20
+emb|AL138812.9|AL138812 Homo sapiens chromosome 11 clone RP1-276... 38 0.20
+gb|AC073881.3|AC073881 Homo sapiens chromosome 15 clone CTD-2169... 38 0.20
diff --git a/awklib/eg/network/remconf.awk b/awklib/eg/network/remconf.awk
new file mode 100644
index 00000000..f4f21e1a
--- /dev/null
+++ b/awklib/eg/network/remconf.awk
@@ -0,0 +1,54 @@
+function SetUpServer() {
+ TopHeader = "<HTML><title>Remote Configuration</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/ReadConfig>Read Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/CheckConfig>Check Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/ChangeConfig>Change Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/SaveConfig>Save Configuration</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ if (ConfigFile == "") ConfigFile = "config.asc"
+}
+function HandleGET() {
+ if(MENU[2] == "AboutServer") {
+ Document = "This is a GUI for remote configuration of an\
+ embedded system. It is is implemented as one GAWK script."
+ } else if (MENU[2] == "ReadConfig") {
+ RS = "\n"
+ while ((getline < ConfigFile) > 0)
+ config[$1] = $2;
+ close(ConfigFile)
+ RS = "\r\n"
+ Document = "Configuration has been read."
+ } else if (MENU[2] == "CheckConfig") {
+ Document = "<TABLE BORDER=1 CELLPADDING=5>"
+ for (i in config)
+ Document = Document "<TR><TD>" i "</TD>" \
+ "<TD>" config[i] "</TD></TR>"
+ Document = Document "</TABLE>"
+ } else if (MENU[2] == "ChangeConfig") {
+ if ("Param" in GETARG) { # any parameter to set?
+ if (GETARG["Param"] in config) { # is parameter valid?
+ config[GETARG["Param"]] = GETARG["Value"]
+ Document = (GETARG["Param"] " = " GETARG["Value"] ".")
+ } else {
+ Document = "Parameter <b>" GETARG["Param"] "</b> is invalid."
+ }
+ } else {
+ Document = "<FORM method=GET><h4>Change one parameter</h4>\
+ <TABLE BORDER CELLPADDING=5>\
+ <TR><TD>Parameter</TD><TD>Value</TD></TR>\
+ <TR><TD><input type=text name=Param value=\"\" size=20></TD>\
+ <TD><input type=text name=Value value=\"\" size=40></TD>\
+ </TR></TABLE><input type=submit value=\"Set\"></FORM>"
+ }
+ } else if (MENU[2] == "SaveConfig") {
+ for (i in config)
+ printf("%s %s\n", i, config[i]) > ConfigFile
+ close(ConfigFile)
+ Document = "Configuration has been saved."
+ }
+}
diff --git a/awklib/eg/network/statist.awk b/awklib/eg/network/statist.awk
new file mode 100644
index 00000000..8a583940
--- /dev/null
+++ b/awklib/eg/network/statist.awk
@@ -0,0 +1,85 @@
+function SetUpServer() {
+ TopHeader = "<HTML><title>Statistics with GAWK</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/EnterParameters>Enter Parameters</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ GnuPlot = "gnuplot 2>&1"
+ m1=m2=0; v1=v2=1; n1=n2=10
+}
+function HandleGET() {
+ if(MENU[2] == "AboutServer") {
+ Document = "This is a GUI for a statistical computation.\
+ It compares means and variances of two distributions.\
+ It is implemented as one GAWK script and uses GNUPLOT."
+ } else if (MENU[2] == "EnterParameters") {
+ Document = ""
+ if ("m1" in GETARG) { # are there parameters to compare?
+ Document = Document "<SCRIPT LANGUAGE=\"JavaScript\">\
+ setTimeout(\"window.open(\\\"" MyPrefix "/Image" systime()\
+ "\\\",\\\"dist\\\", \\\"status=no\\\");\", 1000); </SCRIPT>"
+ m1 = GETARG["m1"]; v1 = GETARG["v1"]; n1 = GETARG["n1"]
+ m2 = GETARG["m2"]; v2 = GETARG["v2"]; n2 = GETARG["n2"]
+ t = (m1-m2)/sqrt(v1/n1+v2/n2)
+ df = (v1/n1+v2/n2)*(v1/n1+v2/n2)/((v1/n1)*(v1/n1)/(n1-1) \
+ + (v2/n2)*(v2/n2) /(n2-1))
+ if (v1>v2) {
+ f = v1/v2
+ df1 = n1 - 1
+ df2 = n2 - 1
+ } else {
+ f = v2/v1
+ df1 = n2 - 1
+ df2 = n1 - 1
+ }
+ print "pt=ibeta(" df/2 ",0.5," df/(df+t*t) ")" |& GnuPlot
+ print "pF=2.0*ibeta(" df2/2 "," df1/2 "," \
+ df2/(df2+df1*f) ")" |& GnuPlot
+ print "print pt, pF" |& GnuPlot
+ RS="\n"; GnuPlot |& getline; RS="\r\n" # $1 is pt, $2 is pF
+ print "invsqrt2pi=1.0/sqrt(2.0*pi)" |& GnuPlot
+ print "nd(x)=invsqrt2pi/sd*exp(-0.5*((x-mu)/sd)**2)" |& GnuPlot
+ print "set term png small color" |& GnuPlot
+ #print "set term postscript color" |& GnuPlot
+ #print "set term gif medium size 320,240" |& GnuPlot
+ print "set yrange[-0.3:]" |& GnuPlot
+ print "set label 'p(m1=m2) =" $1 "' at 0,-0.1 left" |& GnuPlot
+ print "set label 'p(v1=v2) =" $2 "' at 0,-0.2 left" |& GnuPlot
+ print "plot mu=" m1 ",sd=" sqrt(v1) ", nd(x) title 'sample 1',\
+ mu=" m2 ",sd=" sqrt(v2) ", nd(x) title 'sample 2'" |& GnuPlot
+ print "quit" |& GnuPlot
+ GnuPlot |& getline Image
+ while ((GnuPlot |& getline) > 0)
+ Image = Image RS $0
+ close(GnuPlot)
+ }
+ Document = Document "\
+ <h3>Do these samples have the same Gaussian distribution?</h3>\
+ <FORM METHOD=GET> <TABLE BORDER CELLPADDING=5>\
+ <TR>\
+ <TD>1. Mean </TD>
+ <TD><input type=text name=m1 value=" m1 " size=8></TD>\
+ <TD>1. Variance</TD>
+ <TD><input type=text name=v1 value=" v1 " size=8></TD>\
+ <TD>1. Count </TD>
+ <TD><input type=text name=n1 value=" n1 " size=8></TD>\
+ </TR><TR>\
+ <TD>2. Mean </TD>
+ <TD><input type=text name=m2 value=" m2 " size=8></TD>\
+ <TD>2. Variance</TD>
+ <TD><input type=text name=v2 value=" v2 " size=8></TD>\
+ <TD>2. Count </TD>
+ <TD><input type=text name=n2 value=" n2 " size=8></TD>\
+ </TR> <input type=submit value=\"Compute\">\
+ </TABLE></FORM><BR>"
+ } else if (MENU[2] ~ "Image") {
+ Reason = "OK" ORS "Content-type: image/png"
+ #Reason = "OK" ORS "Content-type: application/x-postscript"
+ #Reason = "OK" ORS "Content-type: image/gif"
+ Header = Footer = ""
+ Document = Image
+ }
+}
diff --git a/awklib/eg/network/stoxdata.txt b/awklib/eg/network/stoxdata.txt
new file mode 100644
index 00000000..1b6d015e
--- /dev/null
+++ b/awklib/eg/network/stoxdata.txt
@@ -0,0 +1,4 @@
+Date,Open,High,Low,Close,Volume
+9-Oct-00,22.75,22.75,21.375,22.375,7888500
+6-Oct-00,23.8125,24.9375,21.5625,22,10701100
+5-Oct-00,24.4375,24.625,23.125,23.50,5810300
diff --git a/awklib/eg/network/stoxpred.awk b/awklib/eg/network/stoxpred.awk
new file mode 100644
index 00000000..5cdc2a8d
--- /dev/null
+++ b/awklib/eg/network/stoxpred.awk
@@ -0,0 +1,116 @@
+function ReadQuotes() {
+ # Retrieve historical data for each ticker symbol
+ FS = ","
+ for (stock = 1; stock <= StockCount; stock++) {
+ URL = "http://chart.yahoo.com/table.csv?s=" name[stock] \
+ "&a=" month "&b=" day "&c=" year-1 \
+ "&d=" month "&e=" day "&f=" year \
+ "g=d&q=q&y=0&z=" name[stock] "&x=.csv"
+ printf("GET " URL " HTTP/1.0\r\n\r\n") |& YahooData
+ while ((YahooData |& getline) > 0) {
+ if (NF == 6 && $1 ~ /Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec/) {
+ if (stock == 1)
+ days[++daycount] = $1;
+ quote[$1, stock] = $5
+ }
+ }
+ close(YahooData)
+ }
+ FS = " "
+}
+function CleanUp() {
+ # clean up time series; eliminate incomplete data sets
+ for (d = 1; d <= daycount; d++) {
+ for (stock = 1; stock <= StockCount; stock++)
+ if (! ((days[d], stock) in quote))
+ stock = StockCount + 10
+ if (stock > StockCount + 1)
+ continue
+ datacount++
+ for (stock = 1; stock <= StockCount; stock++)
+ data[datacount, stock] = int(0.5 + quote[days[d], stock])
+ }
+ delete quote
+ delete days
+}
+function Prediction() {
+ # Predict each ticker symbol by prolonging yesterday's trend
+ for (stock = 1; stock <= StockCount; stock++) {
+ if (data[1, stock] > data[2, stock]) {
+ predict[stock] = "up"
+ } else if (data[1, stock] < data[2, stock]) {
+ predict[stock] = "down"
+ } else {
+ predict[stock] = "neutral"
+ }
+ if ((data[1, stock] > data[2, stock]) && (data[2, stock] > data[3, stock]))
+ hot[stock] = 1
+ if ((data[1, stock] < data[2, stock]) && (data[2, stock] < data[3, stock]))
+ avoid[stock] = 1
+ }
+ # Do a plausibility check: how many predictions proved correct?
+ for (s = 1; s <= StockCount; s++) {
+ for (d = 1; d <= datacount-2; d++) {
+ if (data[d+1, s] > data[d+2, s]) {
+ UpCount++
+ } else if (data[d+1, s] < data[d+2, s]) {
+ DownCount++
+ } else {
+ NeutralCount++
+ }
+ if (((data[d, s] > data[d+1, s]) && (data[d+1, s] > data[d+2, s])) ||
+ ((data[d, s] < data[d+1, s]) && (data[d+1, s] < data[d+2, s])) ||
+ ((data[d, s] == data[d+1, s]) && (data[d+1, s] == data[d+2, s])))
+ CorrectCount++
+ }
+ }
+}
+function Report() {
+ # Generate report
+ report = "\nThis is your daily "
+ report = report "stock market report for "strftime("%A, %B %d, %Y")".\n"
+ report = report "Here are the predictions for today:\n\n"
+ for (stock = 1; stock <= StockCount; stock++)
+ report = report "\t" name[stock] "\t" predict[stock] "\n"
+ for (stock in hot) {
+ if (HotCount++ == 0)
+ report = report "\nThe most promising shares for today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ }
+ for (stock in avoid) {
+ if (AvoidCount++ == 0)
+ report = report "\nThe stock shares to avoid today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ }
+ report = report "\nThis sums up to " HotCount+0 " winners and " AvoidCount+0
+ report = report " losers. When using this kind\nof prediction scheme for"
+ report = report " the 12 months which lie behind us,\nwe get " UpCount
+ report = report " 'ups' and " DownCount " 'downs' and " NeutralCount
+ report = report " 'neutrals'. Of all\nthese " UpCount+DownCount+NeutralCount
+ report = report " predictions " CorrectCount " proved correct next day.\n"
+ report = report "A success rate of "\
+ int(100*CorrectCount/(UpCount+DownCount+NeutralCount)) "%.\n"
+ report = report "Random choice would have produced a 33% success rate.\n"
+ report = report "Disclaimer: Like every other prediction of the stock\n"
+ report = report "market, this report is, of course, complete nonsense.\n"
+ report = report "If you are stupid enough to believe these predictions\n"
+ report = report "you should visit a doctor who can treat your ailment."
+}
+function SendMail() {
+ # send report to customers
+ customer["uncle.scrooge@ducktown.gov"] = "Uncle Scrooge"
+ customer["more@utopia.org" ] = "Sir Thomas More"
+ customer["spinoza@denhaag.nl" ] = "Baruch de Spinoza"
+ customer["marx@highgate.uk" ] = "Karl Marx"
+ customer["keynes@the.long.run" ] = "John Maynard Keynes"
+ customer["bierce@devil.hell.org" ] = "Ambrose Bierce"
+ customer["laplace@paris.fr" ] = "Pierre Simon de Laplace"
+ for (c in customer) {
+ MailPipe = "mail -s 'Daily Stock Prediction Newsletter'" c
+ print "Good morning " customer[c] "," | MailPipe
+ print report "\n.\n" | MailPipe
+ close(MailPipe)
+ }
+}
diff --git a/awklib/eg/network/testserv.awk b/awklib/eg/network/testserv.awk
new file mode 100644
index 00000000..812bfe6a
--- /dev/null
+++ b/awklib/eg/network/testserv.awk
@@ -0,0 +1,12 @@
+BEGIN {
+ CGI_setup("GET",
+ "http://www.gnu.org/cgi-bin/foo?p1=stuff&p2=stuff%26junk" \
+ "&percent=a %25 sign",
+ "1.0")
+ for (i in MENU)
+ printf "MENU[\"%s\"] = %s\n", i, MENU[i]
+ for (i in PARAM)
+ printf "PARAM[\"%s\"] = %s\n", i, PARAM[i]
+ for (i in GETARG)
+ printf "GETARG[\"%s\"] = %s\n", i, GETARG[i]
+}
diff --git a/awklib/eg/network/urlchk.awk b/awklib/eg/network/urlchk.awk
new file mode 100644
index 00000000..6ddedfa8
--- /dev/null
+++ b/awklib/eg/network/urlchk.awk
@@ -0,0 +1,28 @@
+BEGIN {
+ if (ARGC != 2) {
+ print "URLCHK - check if URLs have changed"
+ print "IN:\n the file with URLs as a command-line parameter"
+ print " file contains URL, old length, new length"
+ print "PARAMS:\n -v Proxy=MyProxy -v ProxyPort=8080"
+ print "OUT:\n same as file with URLs"
+ print "JK 02.03.1998"
+ exit
+ }
+ URLfile = ARGV[1]; ARGV[1] = ""
+ if (Proxy != "") Proxy = " -v Proxy=" Proxy
+ if (ProxyPort != "") ProxyPort = " -v ProxyPort=" ProxyPort
+ while ((getline < URLfile) > 0)
+ Length[$1] = $3 + 0
+ close(URLfile) # now, URLfile is read in and can be updated
+ GetHeader = "gawk " Proxy ProxyPort " -v Method=\"HEAD\" -f geturl.awk "
+ for (i in Length) {
+ GetThisHeader = GetHeader i " 2>&1"
+ while ((GetThisHeader | getline) > 0)
+ if (toupper($0) ~ /CONTENT-LENGTH/) NewLength = $2 + 0
+ close(GetThisHeader)
+ print i, Length[i], NewLength > URLfile
+ if (Length[i] != NewLength) # report only changed URLs
+ print i, Length[i], NewLength
+ }
+ close(URLfile)
+}
diff --git a/awklib/eg/network/webgrab.awk b/awklib/eg/network/webgrab.awk
new file mode 100644
index 00000000..41738805
--- /dev/null
+++ b/awklib/eg/network/webgrab.awk
@@ -0,0 +1,6 @@
+BEGIN { RS = "http://[#%&\\+\\-\\./0-9\\:;\\?A-Z_a-z\\~]*" }
+RT != "" {
+ command = ("gawk -v Proxy=MyProxy -f geturl.awk " RT \
+ " > doc" NR ".html")
+ print command
+}
diff --git a/awklib/eg/prog/alarm.awk b/awklib/eg/prog/alarm.awk
index e158e451..26252fa1 100644
--- a/awklib/eg/prog/alarm.awk
+++ b/awklib/eg/prog/alarm.awk
@@ -1,4 +1,7 @@
-# alarm --- set an alarm
+# alarm.awk --- set an alarm
+#
+# Requires gettimeofday library function
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
@@ -11,7 +14,8 @@ BEGIN \
usage2 = sprintf("\t(%s) time ::= hh:mm", ARGV[1])
if (ARGC < 2) {
- print usage > "/dev/stderr"
+ print usage1 > "/dev/stderr"
+ print usage2 > "/dev/stderr"
exit 1
} else if (ARGC == 5) {
delay = ARGV[4] + 0
@@ -37,7 +41,7 @@ BEGIN \
message = sprintf("\aIt is now %s!\a", ARGV[1])
else if (index(message, "\a") == 0)
message = "\a" message "\a"
- # split up dest time
+ # split up alarm time
split(ARGV[1], atime, ":")
hour = atime[1] + 0 # force numeric
minute = atime[2] + 0 # force numeric
diff --git a/awklib/eg/prog/awksed.awk b/awklib/eg/prog/awksed.awk
index 1795b24b..4b188c64 100644
--- a/awklib/eg/prog/awksed.awk
+++ b/awklib/eg/prog/awksed.awk
@@ -1,6 +1,6 @@
# awksed.awk --- do s/foo/bar/g using just print
# Thanks to Michael Brennan for the idea
-
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# August 1995
diff --git a/awklib/eg/prog/cut.awk b/awklib/eg/prog/cut.awk
index 6e2dd064..d9c6c9b9 100644
--- a/awklib/eg/prog/cut.awk
+++ b/awklib/eg/prog/cut.awk
@@ -1,13 +1,16 @@
# cut.awk --- implement cut in awk
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
# Options:
-# -f list Cut fields
-# -d c Field delimiter character
-# -c list Cut characters
+# -f list Cut fields
+# -d c Field delimiter character
+# -c list Cut characters
+#
+# -s Suppress lines without the delimiter
#
-# -s Suppress lines without the delimiter character
+# Requires getopt and join library functions
function usage( e1, e2)
{
@@ -122,7 +125,7 @@ function set_charlist( field, i, j, f, g, t,
nfields = j - 1
}
{
- if (by_fields && suppress && $0 !~ FS)
+ if (by_fields && suppress && index($0, FS) != 0)
next
for (i = 1; i <= nfields; i++) {
diff --git a/awklib/eg/prog/dupword.awk b/awklib/eg/prog/dupword.awk
index 9a518a16..a2cc7d2b 100644
--- a/awklib/eg/prog/dupword.awk
+++ b/awklib/eg/prog/dupword.awk
@@ -1,10 +1,15 @@
-# dupword --- find duplicate words in text
+# dupword.awk --- find duplicate words in text
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# December 1991
+# Revised October 2000
{
$0 = tolower($0)
- gsub(/[^A-Za-z0-9 \t]/, "");
+ gsub(/[^[:alnum:][:blank:]]/, " ");
+ $0 = $0 # re-split
+ if (NF == 0)
+ next
if ($1 == prev)
printf("%s:%d: duplicate %s\n",
FILENAME, FNR, $1)
diff --git a/awklib/eg/prog/egrep.awk b/awklib/eg/prog/egrep.awk
index 06762a1f..73f175ca 100644
--- a/awklib/eg/prog/egrep.awk
+++ b/awklib/eg/prog/egrep.awk
@@ -1,4 +1,5 @@
# egrep.awk --- simulate egrep in awk
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
@@ -9,6 +10,8 @@
# -i ignore case
# -l print filenames only
# -e argument is pattern
+#
+# Requires getopt and file transition library functions
BEGIN {
while ((c = getopt(ARGC, ARGV, "ce:svil")) != -1) {
@@ -69,18 +72,20 @@ function endfile(file)
if (! matches)
next
- if (no_print && ! count_only)
- nextfile
+ if (! count_only) {
+ if (no_print)
+ nextfile
- if (filenames_only && ! count_only) {
- print FILENAME
- nextfile
- }
+ if (filenames_only) {
+ print FILENAME
+ nextfile
+ }
- if (do_filenames && ! count_only)
- print FILENAME ":" $0
- else if (! count_only)
- print
+ if (do_filenames)
+ print FILENAME ":" $0
+ else
+ print
+ }
}
END \
{
@@ -91,6 +96,7 @@ END \
function usage( e)
{
e = "Usage: egrep [-csvil] [-e pat] [files ...]"
+ e = e "\n\tegrep [-csvil] pat [files ...]"
print e > "/dev/stderr"
exit 1
}
diff --git a/awklib/eg/prog/extract.awk b/awklib/eg/prog/extract.awk
index 65f3f2d2..5cb191ae 100644
--- a/awklib/eg/prog/extract.awk
+++ b/awklib/eg/prog/extract.awk
@@ -1,6 +1,9 @@
# extract.awk --- extract files and run programs
# from texinfo files
-# Arnold Robbins, arnold@gnu.org, Public Domain, May 1993
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# May 1993
+# Revised September 2000
BEGIN { IGNORECASE = 1 }
@@ -41,6 +44,8 @@ BEGIN { IGNORECASE = 1 }
break
else if (line ~ /^@(end[ \t]+)?group/)
continue
+ else if (line ~ /^@c(omment+)?[ \t]+/)
+ continue
if (index(line, "@") == 0) {
print line > curfile
continue
@@ -58,9 +63,8 @@ BEGIN { IGNORECASE = 1 }
print join(a, 1, n, SUBSEP) > curfile
}
}
-function unexpected_eof()
-{
- printf("%s:%d: unexpected EOF or error\n", \
+function unexpected_eof() {
+ printf("%s:%d: unexpected EOF or error\n",
FILENAME, FNR) > "/dev/stderr"
exit 1
}
diff --git a/awklib/eg/prog/guide.awk b/awklib/eg/prog/guide.awk
new file mode 100644
index 00000000..a2dea1b7
--- /dev/null
+++ b/awklib/eg/prog/guide.awk
@@ -0,0 +1,7 @@
+BEGIN {
+ TEXTDOMAIN = "guide"
+ bindtextdomain(".") # for testing
+ print _"Don't Panic"
+ print _"The Answer Is", 42
+ print "Pardon me, Zaphod who?"
+}
diff --git a/awklib/eg/prog/histsort.awk b/awklib/eg/prog/histsort.awk
index 48186d0b..c0a9165a 100644
--- a/awklib/eg/prog/histsort.awk
+++ b/awklib/eg/prog/histsort.awk
@@ -1,8 +1,9 @@
# histsort.awk --- compact a shell history file
+# Thanks to Byron Rakitzis for the general idea
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
-# Thanks to Byron Rakitzis for the general idea
{
if (data[$0]++ == 0)
lines[++count] = $0
diff --git a/awklib/eg/prog/id.awk b/awklib/eg/prog/id.awk
index a983c572..af78f760 100644
--- a/awklib/eg/prog/id.awk
+++ b/awklib/eg/prog/id.awk
@@ -1,6 +1,10 @@
# id.awk --- implement id in awk
+#
+# Requires user and group library functions
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
+# Revised February 1996
# output is:
# uid=12(foo) euid=34(bar) gid=3(baz) \
@@ -8,17 +12,10 @@
BEGIN \
{
- if ((getline < "/dev/user") < 0) {
- err = "id: no /dev/user support - cannot run"
- print err > "/dev/stderr"
- exit 1
- }
- close("/dev/user")
-
- uid = $1
- euid = $2
- gid = $3
- egid = $4
+ uid = PROCINFO["uid"]
+ euid = PROCINFO["euid"]
+ gid = PROCINFO["gid"]
+ egid = PROCINFO["egid"]
printf("uid=%d", uid)
pw = getpwuid(uid)
@@ -52,18 +49,19 @@ BEGIN \
}
}
- if (NF > 4) {
- printf(" groups=");
- for (i = 5; i <= NF; i++) {
- printf("%d", $i)
- pw = getgrgid($i)
- if (pw != "") {
- split(pw, a, ":")
- printf("(%s)", a[1])
- }
- if (i < NF)
- printf(",")
+ for (i = 1; ("group" i) in PROCINFO; i++) {
+ if (i == 1)
+ printf(" groups=")
+ group = PROCINFO["group" i]
+ printf("%d", group)
+ pw = getgrgid(group)
+ if (pw != "") {
+ split(pw, a, ":")
+ printf("(%s)", a[1])
}
+ if (("group" (i+1)) in PROCINFO)
+ printf(",")
}
+
print ""
}
diff --git a/awklib/eg/prog/igawk.sh b/awklib/eg/prog/igawk.sh
index 6fb70c38..7144ce50 100644
--- a/awklib/eg/prog/igawk.sh
+++ b/awklib/eg/prog/igawk.sh
@@ -1,6 +1,6 @@
#! /bin/sh
-
# igawk --- like gawk but do @include processing
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# July 1993
@@ -37,15 +37,15 @@ do
f=`echo "$1" | sed 's/-.file=//'`
echo @include "$f" >> /tmp/ig.s.$$ ;;
- -?file) # get arg, $2
+ -?file) # get arg, $2
echo @include "$2" >> /tmp/ig.s.$$
shift;;
- -?source=*) # -Wsource or --source
+ -?source=*) # -Wsource or --source
t=`echo "$1" | sed 's/-.source=//'`
echo "$t" >> /tmp/ig.s.$$ ;;
- -?source) # get arg, $2
+ -?source) # get arg, $2
echo "$2" >> /tmp/ig.s.$$
shift;;
@@ -54,7 +54,7 @@ do
gawk --version
exit 0 ;;
- -[W-]*) opts="$opts '$1'" ;;
+ -[W-]*) opts="$opts '$1'" ;;
*) break;;
esac
@@ -76,6 +76,7 @@ fi
# at this point, /tmp/ig.s.$$ has the program
gawk -- '
# process @include directives
+
function pathto(file, i, t, junk)
{
if (index(file, "/") != 0)
@@ -109,16 +110,16 @@ BEGIN {
}
fpath = pathto($2)
if (fpath == "") {
- printf("igawk:%s:%d: cannot find %s\n", \
+ printf("igawk:%s:%d: cannot find %s\n",
input[stackptr], FNR, $2) > "/dev/stderr"
continue
}
if (! (fpath in processed)) {
processed[fpath] = input[stackptr]
- input[++stackptr] = fpath
+ input[++stackptr] = fpath # push onto stack
} else
- print $2, "included in", input[stackptr], \
- "already included in", \
+ print $2, "included in", input[stackptr],
+ "already included in",
processed[fpath] > "/dev/stderr"
}
close(input[stackptr])
diff --git a/awklib/eg/prog/labels.awk b/awklib/eg/prog/labels.awk
index 3c69751a..fa9c4dab 100644
--- a/awklib/eg/prog/labels.awk
+++ b/awklib/eg/prog/labels.awk
@@ -1,10 +1,11 @@
-# labels.awk
+# labels.awk --- print mailing labels
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# June 1992
-# Program to print labels. Each label is 5 lines of data
-# that may have blank lines. The label sheets have 2
-# blank lines at the top and 2 at the bottom.
+# Each label is 5 lines of data that may have blank lines.
+# The label sheets have 2 blank lines at the top and 2 at
+# the bottom.
BEGIN { RS = "" ; MAXLINES = 100 }
diff --git a/awklib/eg/prog/split.awk b/awklib/eg/prog/split.awk
index 863ba4e4..2906a853 100644
--- a/awklib/eg/prog/split.awk
+++ b/awklib/eg/prog/split.awk
@@ -1,4 +1,7 @@
# split.awk --- do split in awk
+#
+# Requires ord and chr library functions
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
@@ -32,13 +35,14 @@ BEGIN {
close(out)
if (s2 == "z") {
if (s1 == "z") {
- printf("split: %s is too large to split\n", \
+ printf("split: %s is too large to split\n",
FILENAME) > "/dev/stderr"
exit 1
}
s1 = chr(ord(s1) + 1)
s2 = "a"
- } else
+ }
+ else
s2 = chr(ord(s2) + 1)
out = (outfile s1 s2)
tcount = 1
diff --git a/awklib/eg/prog/tee.awk b/awklib/eg/prog/tee.awk
index 4c12c56d..eafc4b9a 100644
--- a/awklib/eg/prog/tee.awk
+++ b/awklib/eg/prog/tee.awk
@@ -1,4 +1,5 @@
# tee.awk --- tee in awk
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
# Revised December 1995
diff --git a/awklib/eg/prog/testbits.awk b/awklib/eg/prog/testbits.awk
new file mode 100644
index 00000000..143cd916
--- /dev/null
+++ b/awklib/eg/prog/testbits.awk
@@ -0,0 +1,27 @@
+# bits2str --- turn a byte into readable 1's and 0's
+
+function bits2str(bits, data, mask)
+{
+ if (bits == 0)
+ return "0"
+
+ mask = 1
+ for (; bits != 0; bits = rshift(bits, 1))
+ data = (and(bits, mask) ? "1" : "0") data
+
+ while ((length(data) % 8) != 0)
+ data = "0" data
+
+ return data
+}
+BEGIN {
+ printf "123 = %s\n", bits2str(123)
+ printf "0123 = %s\n", bits2str(0123)
+ printf "0x99 = %s\n", bits2str(0x99)
+ comp = compl(0x99)
+ printf "compl(0x99) = %#x = %s\n", comp, bits2str(comp)
+ shift = lshift(0x99, 2)
+ printf "lshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+ shift = rshift(0x99, 2)
+ printf "rshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+}
diff --git a/awklib/eg/prog/translate.awk b/awklib/eg/prog/translate.awk
index 97c4ada6..803700c4 100644
--- a/awklib/eg/prog/translate.awk
+++ b/awklib/eg/prog/translate.awk
@@ -1,8 +1,9 @@
-# translate --- do tr like stuff
+# translate.awk --- do tr-like stuff
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# August 1989
-# bugs: does not handle things like: tr A-Z a-z, it has
+# Bugs: does not handle things like: tr A-Z a-z, it has
# to be spelled out. However, if `to' is shorter than `from',
# the last character in `to' is used for the rest of `from'.
diff --git a/awklib/eg/prog/uniq.awk b/awklib/eg/prog/uniq.awk
index d97eecca..cfb50c79 100644
--- a/awklib/eg/prog/uniq.awk
+++ b/awklib/eg/prog/uniq.awk
@@ -1,4 +1,7 @@
# uniq.awk --- do uniq in awk
+#
+# Requires getopt and join library functions
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
@@ -81,7 +84,7 @@ NR == 1 {
last = $0
next
}
-
+
{
equal = are_equal()
diff --git a/awklib/eg/prog/wc.awk b/awklib/eg/prog/wc.awk
index 56aab429..f46616b9 100644
--- a/awklib/eg/prog/wc.awk
+++ b/awklib/eg/prog/wc.awk
@@ -1,4 +1,5 @@
# wc.awk --- count lines, words, characters
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
@@ -8,6 +9,8 @@
# -c only count characters
#
# Default is to count lines, words, characters
+#
+# Requires getopt and file transition library functions
BEGIN {
# let getopt print a message about
@@ -29,11 +32,11 @@ BEGIN {
print_total = (ARGC - i > 2)
}
-function beginfile(file) {
+function beginfile(file)
+{
chars = lines = words = 0
fname = FILENAME
}
-
function endfile(file)
{
tchars += chars
@@ -53,7 +56,6 @@ function endfile(file)
lines++
words += NF
}
-
END {
if (print_total) {
if (do_lines)
diff --git a/awklib/eg/prog/wordfreq.awk b/awklib/eg/prog/wordfreq.awk
index b67fed47..62db5cfa 100644
--- a/awklib/eg/prog/wordfreq.awk
+++ b/awklib/eg/prog/wordfreq.awk
@@ -1,10 +1,17 @@
-# Print list of word frequencies
+# wordfreq.awk --- print list of word frequencies
+
{
$0 = tolower($0) # remove case distinctions
- gsub(/[^a-z0-9_ \t]/, "", $0) # remove punctuation
+ # remove punctuation
+ gsub(/[^[:alnum:]_[:blank:]]/, "", $0)
for (i = 1; i <= NF; i++)
freq[$i]++
}
+
+END {
+ for (word in freq)
+ printf "%s\t%d\n", word, freq[word]
+}
END {
sort = "sort +1 -nr"
for (word in freq)
diff --git a/awklib/extract.awk b/awklib/extract.awk
index e18a1ad9..1b052e73 100644
--- a/awklib/extract.awk
+++ b/awklib/extract.awk
@@ -1,7 +1,9 @@
# extract.awk --- extract files and run programs
# from texinfo files
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
+# Revised September 2000
BEGIN { IGNORECASE = 1 }
@@ -42,6 +44,8 @@ BEGIN { IGNORECASE = 1 }
break
else if (line ~ /^@(end[ \t]+)?group/)
continue
+ else if (line ~ /^@c(omment+)?[ \t]+/)
+ continue
if (index(line, "@") == 0) {
print line > curfile
continue
@@ -61,7 +65,7 @@ BEGIN { IGNORECASE = 1 }
}
function unexpected_eof()
{
- printf("%s:%d: unexpected EOF or error\n", \
+ printf("%s:%d: unexpected EOF or error\n",
FILENAME, FNR) > "/dev/stderr"
exit 1
}
@@ -71,6 +75,7 @@ END {
close(curfile)
}
# join.awk --- join an array into a string
+#
# Arnold Robbins, arnold@gnu.org, Public Domain
# May 1993
diff --git a/bisonfix.sed b/bisonfix.sed
new file mode 100644
index 00000000..28ef8130
--- /dev/null
+++ b/bisonfix.sed
@@ -0,0 +1,3 @@
+/\/\* YYSTACK_USE_ALLOCA not defined \*\//a\
+\
+#undef YYSTACK_USE_ALLOCA /* Gawk: nuke alloca once and for all */
diff --git a/builtin.c b/builtin.c
index 499e0550..10f8b49f 100644
--- a/builtin.c
+++ b/builtin.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -25,6 +25,9 @@
#include "awk.h"
+#if defined(HAVE_FCNTL_H)
+#include <fcntl.h>
+#endif
#undef HUGE
#undef CHARBITS
#undef INTBITS
@@ -32,16 +35,15 @@
#include "random.h"
/* can declare these, since we always use the random shipped with gawk */
-extern char *initstate P((unsigned seed, char *state, int n));
+extern char *initstate P((unsigned long seed, char *state, long n));
extern char *setstate P((char *state));
extern long random P((void));
-extern void srandom P((unsigned int seed));
+extern void srandom P((unsigned long seed));
extern NODE **fields_arr;
extern int output_is_tty;
static NODE *sub_common P((NODE *tree, int how_many, int backdigs));
-NODE *format_tree P((const char *, int, NODE *));
#ifdef _CRAY
/* Work around a problem in conversion of doubles to exact integers. */
@@ -81,20 +83,20 @@ static void efwrite P((const void *ptr, size_t size, size_t count, FILE *fp,
/* efwrite --- like fwrite, but with error checking */
static void
-efwrite(ptr, size, count, fp, from, rp, flush)
-const void *ptr;
-size_t size, count;
-FILE *fp;
-const char *from;
-struct redirect *rp;
-int flush;
+efwrite(const void *ptr,
+ size_t size,
+ size_t count,
+ FILE *fp,
+ const char *from,
+ struct redirect *rp,
+ int flush)
{
errno = 0;
if (fwrite(ptr, size, count, fp) != count)
goto wrerror;
if (flush
&& ((fp == stdout && output_is_tty)
- || (rp && (rp->flag & RED_NOBUF)))) {
+ || (rp != NULL && (rp->flag & RED_NOBUF)))) {
fflush(fp);
if (ferror(fp))
goto wrerror;
@@ -102,27 +104,28 @@ int flush;
return;
wrerror:
- fatal("%s to \"%s\" failed (%s)", from,
- rp ? rp->value : "standard output",
- errno ? strerror(errno) : "reason unknown");
+ fatal(_("%s to \"%s\" failed (%s)"), from,
+ rp ? rp->value : _("standard output"),
+ errno ? strerror(errno) : _("reason unknown"));
}
/* do_exp --- exponential function */
NODE *
-do_exp(tree)
-NODE *tree;
+do_exp(NODE *tree)
{
NODE *tmp;
double d, res;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("exp: received non-numeric argument"));
d = force_number(tmp);
free_temp(tmp);
errno = 0;
res = exp(d);
if (errno == ERANGE)
- warning("exp argument %g is out of range", d);
+ warning(_("exp: argument %g is out of range"), d);
return tmp_number((AWKNUM) res);
}
@@ -135,9 +138,7 @@ NODE *tree;
*/
static FILE *
-stdfile(name, len)
-char *name;
-size_t len;
+stdfile(char *name, size_t len)
{
if (len == 11) {
if (STREQN(name, "/dev/stderr", 11))
@@ -152,8 +153,7 @@ size_t len;
/* do_fflush --- flush output, either named file or pipe or everything */
NODE *
-do_fflush(tree)
-NODE *tree;
+do_fflush(NODE *tree)
{
struct redirect *rp;
NODE *tmp;
@@ -179,14 +179,15 @@ NODE *tree;
}
rp = getredirect(tmp->stptr, tmp->stlen);
- status = 1;
+ status = -1;
if (rp != NULL) {
if ((rp->flag & (RED_WRITE|RED_APPEND)) == 0) {
- /* if (do_lint) */
- warning(
- "fflush: cannot flush: %s `%s' opened for reading, not writing",
- (rp->flag & RED_PIPE) ? "pipe" : "file",
- file);
+ if (rp->flag & RED_PIPE)
+ warning(_("fflush: cannot flush: pipe `%s' opened for reading, not writing"),
+ file);
+ else
+ warning(_("fflush: cannot flush: file `%s' opened for reading, not writing"),
+ file);
free_temp(tmp);
return tmp_number((AWKNUM) status);
}
@@ -195,8 +196,10 @@ NODE *tree;
status = fflush(fp);
} else if ((fp = stdfile(tmp->stptr, tmp->stlen)) != NULL) {
status = fflush(fp);
- } else
- warning("fflush: `%s' is not an open file or pipe", file);
+ } else {
+ status = -1;
+ warning(_("fflush: `%s' is not an open file, pipe or co-process"), file);
+ }
free_temp(tmp);
return tmp_number((AWKNUM) status);
}
@@ -204,8 +207,7 @@ NODE *tree;
/* do_index --- find index of a string */
NODE *
-do_index(tree)
-NODE *tree;
+do_index(NODE *tree)
{
NODE *s1, *s2;
register char *p1, *p2;
@@ -215,6 +217,12 @@ NODE *tree;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
+ if (do_lint) {
+ if ((s1->flags & (STRING|STR)) == 0)
+ lintwarn(_("index: received non-string first argument"));
+ if ((s2->flags & (STRING|STR)) == 0)
+ lintwarn(_("index: received non-string second argument"));
+ }
force_string(s1);
force_string(s2);
p1 = s1->stptr;
@@ -228,7 +236,7 @@ NODE *tree;
while (l1 > 0) {
if (l2 > l1)
break;
- if (casetable[(int)*p1] == casetable[(int)*p2]
+ if (casetable[(unsigned char)*p1] == casetable[(unsigned char)*p2]
&& (l2 == 1 || strncasecmp(p1, p2, l2) == 0)) {
ret = 1 + s1->stlen - l1;
break;
@@ -257,8 +265,7 @@ NODE *tree;
/* double_to_int --- convert double to int, used several places */
double
-double_to_int(d)
-double d;
+double_to_int(double d)
{
if (d >= 0)
d = Floor(d);
@@ -270,13 +277,14 @@ double d;
/* do_int --- convert double to int for awk */
NODE *
-do_int(tree)
-NODE *tree;
+do_int(NODE *tree)
{
NODE *tmp;
double d;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("int: received non-numeric argument"));
d = force_number(tmp);
d = double_to_int(d);
free_temp(tmp);
@@ -286,13 +294,14 @@ NODE *tree;
/* do_length --- length of a string or $0 */
NODE *
-do_length(tree)
-NODE *tree;
+do_length(NODE *tree)
{
NODE *tmp;
size_t len;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (STRING|STR)) == 0)
+ lintwarn(_("length: received non-string argument"));
len = force_string(tmp)->stlen;
free_temp(tmp);
return tmp_number((AWKNUM) len);
@@ -301,16 +310,17 @@ NODE *tree;
/* do_log --- the log function */
NODE *
-do_log(tree)
-NODE *tree;
+do_log(NODE *tree)
{
NODE *tmp;
double d, arg;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("log: received non-numeric argument"));
arg = (double) force_number(tmp);
if (arg < 0.0)
- warning("log called with negative argument %g", arg);
+ warning(_("log: received negative argument %g"), arg);
d = log(arg);
free_temp(tmp);
return tmp_number((AWKNUM) d);
@@ -327,10 +337,11 @@ NODE *tree;
*/
NODE *
-format_tree(fmt_string, n0, carg)
-const char *fmt_string;
-int n0;
-register NODE *carg;
+format_tree(
+ const char *fmt_string,
+ int n0,
+ register NODE *carg,
+ int num_args)
{
/* copy 'l' bytes from 's' to 'obufout' checking for space in the process */
/* difference of pointers should be of ptrdiff_t type, but let us be kind */
@@ -369,21 +380,16 @@ register NODE *carg;
osiz *= 2; \
}
-/*
- * Get the next arg to be formatted. If we've run out of args,
- * return "" (Null string)
- */
-#define parse_next_arg() { \
- if (carg == NULL) { \
- toofew = TRUE; \
- break; \
- } else { \
- arg = tree_eval(carg->lnode); \
- carg = carg->rnode; \
- } \
-}
+ static NODE **the_args = 0;
+ static size_t args_size = 0;
+ size_t cur_arg = 0;
+
+ auto NODE **save_args = 0;
+ auto size_t save_args_size = 0;
+ static int call_level = 0;
NODE *r;
+ int i;
int toofew = FALSE;
char *obuf, *obufout;
size_t osiz, ofre;
@@ -391,7 +397,8 @@ register NODE *carg;
const char *s0, *s1;
int cs1;
NODE *arg;
- long fw, prec;
+ long fw, prec, argnum;
+ int used_dollar;
int lj, alt, big, bigbig, small, have_prec, need_format;
long *cur = NULL;
#ifdef sun386 /* Can't cast unsigned (int/long) from ptr->value */
@@ -419,7 +426,79 @@ register NODE *carg;
osiz = INITIAL_OUT_SIZE;
ofre = osiz - 1;
+ /*
+ * Icky problem. If the args make a nested call to printf/sprintf,
+ * we end up clobbering the static variable `the_args'. Not good.
+ * We don't just malloc and free the_args each time, since most of the
+ * time there aren't nested calls. But if this is a nested call,
+ * save the memory pointed to by the_args and allocate a fresh
+ * array. Then free it on end.
+ */
+ if (++call_level > 1) { /* nested */
+ save_args = the_args;
+ save_args_size = args_size;
+
+ args_size = 0; /* force fresh allocation */
+ }
+
+ if (args_size == 0) {
+ /* allocate array */
+ emalloc(the_args, NODE **, (num_args+1) * sizeof(NODE *), "format_tree");
+ args_size = num_args + 1;
+ } else if (num_args + 1 > args_size) {
+ /* grow it */
+ erealloc(the_args, NODE **, (num_args+1) * sizeof(NODE *), "format_tree");
+ args_size = num_args + 1;
+ }
+
+
+ /* fill it in */
+ /*
+ * We ignore the_args[0] since format strings use
+ * 1-based numbers to indicate the arguments. It's
+ * easiest to just convert to int and index, without
+ * having to remember to subtract 1.
+ */
+ memset(the_args, '\0', num_args * sizeof(NODE *));
+ for (i = 1; carg != NULL; i++, carg = carg->rnode) {
+ NODE *tmp;
+
+ /* Here lies the wumpus's other brother. R.I.P. */
+ tmp = tree_eval(carg->lnode);
+ the_args[i] = dupnode(tmp);
+ free_temp(tmp);
+ }
+ assert(i == num_args);
+ cur_arg = 1;
+
+ /*
+ * Check first for use of `count$'.
+ * If plain argument retrieval was used earlier, choke.
+ * Otherwise, return the requested argument.
+ * If not `count$' now, but it was used earlier, choke.
+ * If this format is more than total number of args, choke.
+ * Otherwise, return the current argument.
+ */
+#define parse_next_arg() { \
+ if (argnum > 0) { \
+ if (cur_arg > 1) \
+ fatal(_("must use `count$' on all formats or none")); \
+ arg = the_args[argnum]; \
+ } else if (used_dollar) { \
+ fatal(_("must use `count$' on all formats or none")); \
+ arg = 0; /* shutup the compiler */ \
+ } else if (cur_arg >= num_args) { \
+ arg = 0; /* shutup the compiler */ \
+ toofew = TRUE; \
+ break; \
+ } else { \
+ arg = the_args[cur_arg]; \
+ cur_arg++; \
+ } \
+}
+
need_format = FALSE;
+ used_dollar = FALSE;
s0 = s1 = fmt_string;
while (n0-- > 0) {
@@ -433,6 +512,7 @@ register NODE *carg;
cur = &fw;
fw = 0;
prec = 0;
+ argnum = 0;
have_prec = FALSE;
signchar = FALSE;
zero_flag = FALSE;
@@ -498,12 +578,42 @@ check_pos:
if (n0 == 0) /* badly formatted control string */
continue;
goto retry;
+ case '$':
+ if (do_traditional)
+ fatal(_("`$' is not permitted in awk formats"));
+ if (cur == &fw) {
+ argnum = fw;
+ fw = 0;
+ used_dollar = TRUE;
+ if (argnum <= 0)
+ fatal(_("arg count with `$' must be > 0"));
+ if (argnum >= num_args)
+ fatal(_("arg count %d greater than total number of supplied arguments"), argnum);
+ } else
+ fatal(_("`$' not permitted after period in format"));
+ goto retry;
case '*':
if (cur == NULL)
break;
- parse_next_arg();
+ if (! do_traditional && ISDIGIT(*s1)) {
+ int val = 0;
+
+ for (; n0 > 0 && *s1 && ISDIGIT(*s1); s1++, n0--) {
+ val *= 10;
+ val += *s1 - '0';
+ }
+ if (*s1 != '$') {
+ fatal(_("no `$' supplied for positional field width or precision"));
+ } else {
+ s1++;
+ n0--;
+ }
+
+ arg = the_args[val];
+ } else {
+ parse_next_arg();
+ }
*cur = force_number(arg);
- free_temp(arg);
if (*cur < 0 && cur == &fw) {
*cur = -*cur;
lj++;
@@ -551,11 +661,11 @@ check_pos:
static int warned = FALSE;
if (do_lint && ! warned) {
- warning("`l' is meaningless in awk formats; ignored");
+ lintwarn(_("`l' is meaningless in awk formats; ignored"));
warned = TRUE;
}
if (do_posix)
- fatal("'l' is not permitted in POSIX awk formats");
+ fatal(_("`l' is not permitted in POSIX awk formats"));
}
big = TRUE;
goto retry;
@@ -566,11 +676,11 @@ check_pos:
static int warned = FALSE;
if (do_lint && ! warned) {
- warning("`L' is meaningless in awk formats; ignored");
+ lintwarn(_("`L' is meaningless in awk formats; ignored"));
warned = TRUE;
}
if (do_posix)
- fatal("'L' is not permitted in POSIX awk formats");
+ fatal(_("`L' is not permitted in POSIX awk formats"));
}
bigbig = TRUE;
goto retry;
@@ -581,11 +691,11 @@ check_pos:
static int warned = FALSE;
if (do_lint && ! warned) {
- warning("`h' is meaningless in awk formats; ignored");
+ lintwarn(_("`h' is meaningless in awk formats; ignored"));
warned = TRUE;
}
if (do_posix)
- fatal("'h' is not permitted in POSIX awk formats");
+ fatal(_("`h' is not permitted in POSIX awk formats"));
}
small = TRUE;
goto retry;
@@ -779,7 +889,6 @@ check_pos:
fw--;
}
s0 = s1;
- free_temp(arg);
break;
out_of_range:
@@ -796,7 +905,6 @@ check_pos:
parse_next_arg();
tmpval = force_number(arg);
format_float:
- free_temp(arg);
if (! have_prec)
prec = DEFAULT_G_PRECISION;
chksize(fw + prec + 9); /* 9 == slop */
@@ -836,35 +944,44 @@ check_pos:
}
if (toofew)
fatal("%s\n\t`%s'\n\t%*s%s",
- "not enough arguments to satisfy format string",
- fmt_string, s1 - fmt_string - 2, "",
- "^ ran out for this one"
- );
+ _("not enough arguments to satisfy format string"),
+ fmt_string, s1 - fmt_string - 2, "",
+ _("^ ran out for this one"));
}
if (do_lint) {
if (need_format)
- warning(
- "printf format specifier does not have control letter");
+ lintwarn(
+ _("[s]printf: format specifier does not have control letter"));
if (carg != NULL)
- warning(
- "too many arguments supplied for format string");
+ lintwarn(
+ _("too many arguments supplied for format string"));
}
bchunk(s0, s1 - s0);
r = make_str_node(obuf, obufout - obuf, ALREADY_MALLOCED);
r->flags |= TEMP;
+
+ for (i = 1; i < num_args; i++) {
+ unref(the_args[i]);
+ }
+
+ if (call_level-- > 1) {
+ free(the_args);
+ the_args = save_args;
+ args_size = save_args_size;
+ }
+
return r;
}
/* do_sprintf --- perform sprintf */
NODE *
-do_sprintf(tree)
-NODE *tree;
+do_sprintf(NODE *tree)
{
NODE *r;
NODE *sfmt = force_string(tree_eval(tree->lnode));
- r = format_tree(sfmt->stptr, sfmt->stlen, tree->rnode);
+ r = format_tree(sfmt->stptr, sfmt->stlen, tree->rnode, tree->printf_count);
free_temp(sfmt);
return r;
}
@@ -872,8 +989,7 @@ NODE *tree;
/* do_printf --- perform printf, including redirection */
void
-do_printf(tree)
-register NODE *tree;
+do_printf(NODE *tree)
{
struct redirect *rp = NULL;
register FILE *fp;
@@ -881,10 +997,10 @@ register NODE *tree;
if (tree->lnode == NULL) {
if (do_traditional) {
if (do_lint)
- warning("printf: no arguments");
+ lintwarn(_("printf: no arguments"));
return; /* bwk accepts it silently */
}
- fatal("printf: no arguments");
+ fatal(_("printf: no arguments"));
}
if (tree->rnode != NULL) {
@@ -899,33 +1015,36 @@ register NODE *tree;
return;
} else
fp = stdout;
+ tree->lnode->printf_count = tree->printf_count;
tree = do_sprintf(tree->lnode);
efwrite(tree->stptr, sizeof(char), tree->stlen, fp, "printf", rp, TRUE);
+ if (rp != NULL && (rp->flag & RED_TWOWAY) != 0)
+ fflush(rp->fp);
free_temp(tree);
}
/* do_sqrt --- do the sqrt function */
NODE *
-do_sqrt(tree)
-NODE *tree;
+do_sqrt(NODE *tree)
{
NODE *tmp;
double arg;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("sqrt: received non-numeric argument"));
arg = (double) force_number(tmp);
free_temp(tmp);
if (arg < 0.0)
- warning("sqrt called with negative argument %g", arg);
+ warning(_("sqrt: called with negative argument %g"), arg);
return tmp_number((AWKNUM) sqrt(arg));
}
/* do_substr --- do the substr function */
NODE *
-do_substr(tree)
-NODE *tree;
+do_substr(NODE *tree)
{
NODE *t1, *t2, *t3;
NODE *r;
@@ -940,13 +1059,13 @@ NODE *tree;
if (d_index < 1.0) {
if (do_lint)
- warning("substr: start index %g invalid, using 1",
- d_index);
+ lintwarn(_("substr: start index %g is invalid, using 1"),
+ d_index);
d_index = 1;
}
if (do_lint && double_to_int(d_index) != d_index)
- warning("substr: non-integer start index %g will be truncated",
- d_index);
+ lintwarn(_("substr: non-integer start index %g will be truncated"),
+ d_index);
indx = d_index - 1; /* awk indices are from 1, C's are from 0 */
@@ -959,33 +1078,33 @@ NODE *tree;
free_temp(t3);
if (d_length <= 0.0) {
if (do_lint)
- warning("substr: length %g is <= 0", d_length);
+ lintwarn(_("substr: length %g is <= 0"), d_length);
free_temp(t1);
return Nnull_string;
}
if (do_lint && double_to_int(d_length) != d_length)
- warning(
- "substr: non-integer length %g will be truncated",
+ lintwarn(
+ _("substr: non-integer length %g will be truncated"),
d_length);
length = d_length;
}
if (t1->stlen == 0) {
if (do_lint)
- warning("substr: source string is zero length");
+ lintwarn(_("substr: source string is zero length"));
free_temp(t1);
return Nnull_string;
}
if ((indx + length) > t1->stlen) {
if (do_lint)
- warning(
- "substr: length %d at position %d exceeds length of first argument (%d)",
+ lintwarn(
+ _("substr: length %d at start index %d exceeds length of first argument (%d)"),
length, indx+1, t1->stlen);
length = t1->stlen - indx;
}
if (indx >= t1->stlen) {
if (do_lint)
- warning("substr: start index %d is past end of string",
+ lintwarn(_("substr: start index %d is past end of string"),
indx+1);
free_temp(t1);
return Nnull_string;
@@ -998,8 +1117,7 @@ NODE *tree;
/* do_strftime --- format a time stamp */
NODE *
-do_strftime(tree)
-NODE *tree;
+do_strftime(NODE *tree)
{
NODE *t1, *t2, *ret;
struct tm *tm;
@@ -1007,6 +1125,7 @@ NODE *tree;
char *bufp;
size_t buflen, bufsize;
char buf[BUFSIZ];
+ /* FIXME: One day make %d be %e, after C 99 is common. */
static char def_format[] = "%a %b %d %H:%M:%S %Z %Y";
char *format;
int formatlen;
@@ -1019,12 +1138,15 @@ NODE *tree;
t1 = t2 = NULL;
if (tree != NULL) { /* have args */
if (tree->lnode != NULL) {
- t1 = force_string(tree_eval(tree->lnode));
+ NODE *tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (STRING|STR)) == 0)
+ lintwarn(_("strftime: recieved non-string first argument"));
+ t1 = force_string(tmp);
format = t1->stptr;
formatlen = t1->stlen;
if (formatlen == 0) {
if (do_lint)
- warning("strftime called with empty format string");
+ lintwarn(_("strftime: received empty format string"));
free_temp(t1);
return tmp_string("", 0);
}
@@ -1032,6 +1154,8 @@ NODE *tree;
if (tree->rnode != NULL) {
t2 = tree_eval(tree->rnode->lnode);
+ if (do_lint && (t2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("strftime: recieved non-numeric second argument"));
fclock = (time_t) force_number(t2);
free_temp(t2);
}
@@ -1071,8 +1195,7 @@ NODE *tree;
/* do_systime --- get the time of day */
NODE *
-do_systime(tree)
-NODE *tree;
+do_systime(NODE *tree)
{
time_t lclock;
@@ -1080,13 +1203,57 @@ NODE *tree;
return tmp_number((AWKNUM) lclock);
}
+/* do_mktime --- turn a time string into a timestamp */
+
+NODE *
+do_mktime(NODE *tree)
+{
+ NODE *t1;
+ struct tm then;
+ long year;
+ int month, day, hour, minute, second, count;
+ int dst = -1; /* default is unknown */
+ time_t then_stamp;
+ char save;
+
+ t1 = tree_eval(tree->lnode);
+ if (do_lint && (t1->flags & (STRING|STR)) == 0)
+ lintwarn(_("mktime: received non-string argument"));
+ t1 = force_string(t1);
+
+ save = t1->stptr[t1->stlen];
+ t1->stptr[t1->stlen] = '\0';
+
+ count = sscanf(t1->stptr, "%ld %d %d %d %d %d %d",
+ & year, & month, & day,
+ & hour, & minute, & second,
+ & dst);
+ t1->stptr[t1->stlen] = save;
+ free_temp(t1);
+
+ if (count < 6
+ || month < month - 1
+ || year < year - 1900 || year - 1900 != (int) (year - 1900))
+ return tmp_number((AWKNUM) -1);
+
+ memset(& then, '\0', sizeof(then));
+ then.tm_sec = second;
+ then.tm_min = minute;
+ then.tm_hour = hour;
+ then.tm_mday = day;
+ then.tm_mon = month - 1;
+ then.tm_year = year - 1900;
+ then.tm_isdst = dst;
+
+ then_stamp = mktime(& then);
+ return tmp_number((AWKNUM) then_stamp);
+}
/* do_system --- run an external command */
NODE *
-do_system(tree)
-NODE *tree;
+do_system(NODE *tree)
{
NODE *tmp;
int ret = 0;
@@ -1095,6 +1262,8 @@ NODE *tree;
(void) flush_io(); /* so output is synchronous with gawk's */
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (STRING|STR)) == 0)
+ lintwarn(_("system: recieved non-string argument"));
cmd = force_string(tmp)->stptr;
if (cmd && *cmd) {
@@ -1117,8 +1286,11 @@ NODE *tree;
save = cmd[tmp->stlen];
cmd[tmp->stlen] = '\0';
+ os_restore_mode(fileno(stdin));
ret = system(cmd);
ret = (ret >> 8) & 0xff;
+ if ((BINMODE & 1) != 0)
+ os_setbinmode(fileno(stdin), O_BINARY);
cmd[tmp->stlen] = save;
}
@@ -1131,8 +1303,7 @@ extern NODE **fmt_list; /* declared in eval.c */
/* do_print --- print items, separated by OFS, terminated with ORS */
void
-do_print(tree)
-register NODE *tree;
+do_print(register NODE *tree)
{
register NODE **t;
struct redirect *rp = NULL;
@@ -1196,25 +1367,29 @@ register NODE *tree;
if (ORSlen > 0)
efwrite(ORS, sizeof(char), (size_t) ORSlen, fp, "print", rp, TRUE);
+ if (rp != NULL && (rp->flag & RED_TWOWAY) != 0)
+ fflush(rp->fp);
+
free(t);
}
/* do_tolower --- lower case a string */
NODE *
-do_tolower(tree)
-NODE *tree;
+do_tolower(NODE *tree)
{
NODE *t1, *t2;
register unsigned char *cp, *cp2;
t1 = tree_eval(tree->lnode);
+ if (do_lint && (t1->flags & (STRING|STR)) == 0)
+ lintwarn(_("tolower: recieved non-string argument"));
t1 = force_string(t1);
t2 = tmp_string(t1->stptr, t1->stlen);
for (cp = (unsigned char *)t2->stptr,
cp2 = (unsigned char *)(t2->stptr + t2->stlen); cp < cp2; cp++)
if (ISUPPER(*cp))
- *cp = tolower(*cp);
+ *cp = TOLOWER(*cp);
free_temp(t1);
return t2;
}
@@ -1222,19 +1397,20 @@ NODE *tree;
/* do_toupper --- upper case a string */
NODE *
-do_toupper(tree)
-NODE *tree;
+do_toupper(NODE *tree)
{
NODE *t1, *t2;
register unsigned char *cp, *cp2;
t1 = tree_eval(tree->lnode);
+ if (do_lint && (t1->flags & (STRING|STR)) == 0)
+ lintwarn(_("toupper: recieved non-string argument"));
t1 = force_string(t1);
t2 = tmp_string(t1->stptr, t1->stlen);
for (cp = (unsigned char *)t2->stptr,
cp2 = (unsigned char *)(t2->stptr + t2->stlen); cp < cp2; cp++)
if (ISLOWER(*cp))
- *cp = toupper(*cp);
+ *cp = TOUPPER(*cp);
free_temp(t1);
return t2;
}
@@ -1242,14 +1418,19 @@ NODE *tree;
/* do_atan2 --- do the atan2 function */
NODE *
-do_atan2(tree)
-NODE *tree;
+do_atan2(NODE *tree)
{
NODE *t1, *t2;
double d1, d2;
t1 = tree_eval(tree->lnode);
t2 = tree_eval(tree->rnode->lnode);
+ if (do_lint) {
+ if ((t1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("atan2: received non-numeric first argument"));
+ if ((t2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("atan2: received non-numeric second argument"));
+ }
d1 = force_number(t1);
d2 = force_number(t2);
free_temp(t1);
@@ -1260,13 +1441,14 @@ NODE *tree;
/* do_sin --- do the sin function */
NODE *
-do_sin(tree)
-NODE *tree;
+do_sin(NODE *tree)
{
NODE *tmp;
double d;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("sin: received non-numeric argument"));
d = sin((double) force_number(tmp));
free_temp(tmp);
return tmp_number((AWKNUM) d);
@@ -1275,13 +1457,14 @@ NODE *tree;
/* do_cos --- do the cos function */
NODE *
-do_cos(tree)
-NODE *tree;
+do_cos(NODE *tree)
{
NODE *tmp;
double d;
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("cos: received non-numeric argument"));
d = cos((double) force_number(tmp));
free_temp(tmp);
return tmp_number((AWKNUM) d);
@@ -1294,8 +1477,7 @@ static char state[512];
/* ARGSUSED */
NODE *
-do_rand(tree)
-NODE *tree;
+do_rand(NODE *tree)
{
if (firstrand) {
(void) initstate((unsigned) 1, state, sizeof state);
@@ -1308,8 +1490,7 @@ NODE *tree;
/* do_srand --- seed the random number generator */
NODE *
-do_srand(tree)
-NODE *tree;
+do_srand(NODE *tree)
{
NODE *tmp;
static long save_seed = 1;
@@ -1326,30 +1507,62 @@ NODE *tree;
srandom((unsigned int) (save_seed = (long) time((time_t *) 0)));
else {
tmp = tree_eval(tree->lnode);
+ if (do_lint && (tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("srand: received non-numeric argument"));
srandom((unsigned int) (save_seed = (long) force_number(tmp)));
free_temp(tmp);
}
return tmp_number((AWKNUM) ret);
}
-/* do_match --- match a regexp, set RSTART and RLENGTH */
+/* do_match --- match a regexp, set RSTART and RLENGTH,
+ * optional third arg is array filled with text of
+ * subpatterns enclosed in parens.
+ */
NODE *
-do_match(tree)
-NODE *tree;
+do_match(NODE *tree)
{
- NODE *t1;
- int rstart;
+ NODE *t1, *dest, *it;
+ int rstart, len, ii;
AWKNUM rlength;
Regexp *rp;
+ regoff_t s;
+ char *start;
t1 = force_string(tree_eval(tree->lnode));
- tree = tree->rnode->lnode;
- rp = re_update(tree);
+ tree = tree->rnode;
+ rp = re_update(tree->lnode);
+
+ dest = NULL;
+ if (tree->rnode != NULL) { /* 3rd optional arg for the subpatterns */
+ dest = tree->rnode->lnode;
+ if (dest->type == Node_param_list)
+ dest = stack_ptr[dest->param_cnt];
+ if (dest->type == Node_array_ref)
+ dest = dest->orig_array;
+ if (dest->type != Node_var && dest->type != Node_var_array)
+ fatal(_("match: third argument is not an array"));
+ dest->type = Node_var_array;
+ assoc_clear(dest);
+ }
+
rstart = research(rp, t1->stptr, 0, t1->stlen, TRUE);
if (rstart >= 0) { /* match succeded */
rstart++; /* 1-based indexing */
rlength = REEND(rp, t1->stptr) - RESTART(rp, t1->stptr);
+
+ /* Build the array only if the caller wants the optional subpatterns */
+ if (dest != NULL) {
+ for (ii = 0; (s = SUBPATSTART(rp, t1->stptr, ii)) != -1; ii++) {
+ start = t1->stptr + s;
+ len = SUBPATEND(rp, t1->stptr, ii) - s;
+
+ it = make_string(start, len);
+ it->flags |= MAYBE_NUM;
+ *assoc_lookup(dest, tmp_number((AWKNUM) (ii)), FALSE) = it;
+ }
+ }
} else { /* match failed */
rstart = 0;
rlength = -1.0;
@@ -1424,13 +1637,11 @@ NODE *tree;
*/
/*
- * NB: `howmany' conflicts with a SunOS macro in <sys/param.h>.
+ * NB: `howmany' conflicts with a SunOS 4.x macro in <sys/param.h>.
*/
static NODE *
-sub_common(tree, how_many, backdigs)
-NODE *tree;
-int how_many, backdigs;
+sub_common(NODE *tree, int how_many, int backdigs)
{
register char *scan;
register char *bp, *cp;
@@ -1479,18 +1690,13 @@ int how_many, backdigs;
if (tmp->type == Node_val)
lhs = NULL;
else
- lhs = get_lhs(tmp, &after_assign);
+ lhs = get_lhs(tmp, &after_assign, FALSE);
t->flags |= STRING;
/*
* create a private copy of the string
*/
if (t->stref > 1 || (t->flags & (PERM|FIELD)) != 0) {
- unsigned int saveflags;
-
- saveflags = t->flags;
- t->flags &= ~MALLOC;
- tmp = dupnode(t);
- t->flags = saveflags;
+ tmp = copynode(t);
t = tmp;
priv = TRUE;
}
@@ -1672,8 +1878,7 @@ int how_many, backdigs;
/* do_gsub --- global substitution */
NODE *
-do_gsub(tree)
-NODE *tree;
+do_gsub(NODE *tree)
{
return sub_common(tree, -1, FALSE);
}
@@ -1681,8 +1886,7 @@ NODE *tree;
/* do_sub --- single substitution */
NODE *
-do_sub(tree)
-NODE *tree;
+do_sub(NODE *tree)
{
return sub_common(tree, 1, FALSE);
}
@@ -1690,8 +1894,7 @@ NODE *tree;
/* do_gensub --- fix up the tree for sub_common for the gensub function */
NODE *
-do_gensub(tree)
-NODE *tree;
+do_gensub(NODE *tree)
{
NODE n1, n2, n3, *t, *tmp, *target, *ret;
long how_many = 1; /* default is one substitution */
@@ -1735,6 +1938,8 @@ NODE *tree;
how_many = d;
else
how_many = 1;
+ if (d == 0)
+ warning(_("gensub: 3rd argument of 0 treated as 1"));
}
free_temp(t);
@@ -1758,13 +1963,12 @@ NODE *tree;
* 'format' string HAS to be of "<flags>*.*g" kind, or we bomb!
*/
static void
-sgfmt(buf, format, alt, fwidth, prec, g)
-char *buf; /* return buffer; assumed big enough to hold result */
-const char *format;
-int alt; /* use alternate form flag */
-int fwidth; /* field width in a format */
-int prec; /* indicates desired significant digits, not decimal places */
-double g; /* value to format */
+sgfmt(char *buf, /* return buffer; assumed big enough to hold result */
+ const char *format,
+ int alt, /* use alternate form flag */
+ int fwidth, /* field width in a format */
+ int prec, /* indicates desired significant digits, not decimal places */
+ double g) /* value to format */
{
char dform[40];
register char *gpos;
@@ -1828,173 +2032,191 @@ double g; /* value to format */
}
#endif /* GFMT_WORKAROUND */
-#ifdef BITOPS
#define BITS_PER_BYTE 8 /* if not true, you lose. too bad. */
/* do_lshift --- perform a << operation */
NODE *
-do_lshift(tree)
-NODE *tree;
+do_lshift(NODE *tree)
{
NODE *s1, *s2;
- unsigned long uval, ushift, result;
+ unsigned long uval, ushift, res;
AWKNUM val, shift;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
val = force_number(s1);
shift = force_number(s2);
- free_temp(s1);
- free_temp(s2);
if (do_lint) {
+ if ((s1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("lshift: received non-numeric first argument"));
+ if ((s2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("lshift: received non-numeric first argument"));
if (val < 0 || shift < 0)
- warning("lshift(%lf, %lf): negative values will give strange results", val, shift);
+ lintwarn(_("lshift(%lf, %lf): negative values will give strange results"), val, shift);
if (double_to_int(val) != val || double_to_int(shift) != shift)
- warning("lshift(%lf, %lf): fractional values will be truncated", val, shift);
+ lintwarn(_("lshift(%lf, %lf): fractional values will be truncated"), val, shift);
if (shift > (sizeof(unsigned long) * BITS_PER_BYTE))
- warning("lshift(%lf, %lf): too large shift value will give strange results", val, shift);
+ lintwarn(_("lshift(%lf, %lf): too large shift value will give strange results"), val, shift);
}
+ free_temp(s1);
+ free_temp(s2);
+
uval = (unsigned long) val;
ushift = (unsigned long) shift;
- result = uval << ushift;
- return tmp_number((AWKNUM) result);
+ res = uval << ushift;
+ return tmp_number((AWKNUM) res);
}
/* do_rshift --- perform a >> operation */
NODE *
-do_rshift(tree)
-NODE *tree;
+do_rshift(NODE *tree)
{
NODE *s1, *s2;
- unsigned long uval, ushift, result;
+ unsigned long uval, ushift, res;
AWKNUM val, shift;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
val = force_number(s1);
shift = force_number(s2);
- free_temp(s1);
- free_temp(s2);
if (do_lint) {
+ if ((s1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("rshift: received non-numeric first argument"));
+ if ((s2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("rshift: received non-numeric first argument"));
if (val < 0 || shift < 0)
- warning("rshift(%lf, %lf): negative values will give strange results", val, shift);
+ lintwarn(_("rshift(%lf, %lf): negative values will give strange results"), val, shift);
if (double_to_int(val) != val || double_to_int(shift) != shift)
- warning("rshift(%lf, %lf): fractional values will be truncated", val, shift);
+ lintwarn(_("rshift(%lf, %lf): fractional values will be truncated"), val, shift);
if (shift > (sizeof(unsigned long) * BITS_PER_BYTE))
- warning("rshift(%lf, %lf): too large shift value will give strange results", val, shift);
+ lintwarn(_("rshift(%lf, %lf): too large shift value will give strange results"), val, shift);
}
+ free_temp(s1);
+ free_temp(s2);
+
uval = (unsigned long) val;
ushift = (unsigned long) shift;
- result = uval >> ushift;
- return tmp_number((AWKNUM) result);
+ res = uval >> ushift;
+ return tmp_number((AWKNUM) res);
}
/* do_and --- perform an & operation */
NODE *
-do_and(tree)
-NODE *tree;
+do_and(NODE *tree)
{
NODE *s1, *s2;
- unsigned long uleft, uright, result;
+ unsigned long uleft, uright, res;
AWKNUM left, right;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
left = force_number(s1);
right = force_number(s2);
- free_temp(s1);
- free_temp(s2);
if (do_lint) {
+ if ((s1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("and: received non-numeric first argument"));
+ if ((s2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("and: received non-numeric first argument"));
if (left < 0 || right < 0)
- warning("and(%lf, %lf): negative values will give strange results", left, right);
+ lintwarn(_("and(%lf, %lf): negative values will give strange results"), left, right);
if (double_to_int(left) != left || double_to_int(right) != right)
- warning("and(%lf, %lf): fractional values will be truncated", left, right);
+ lintwarn(_("and(%lf, %lf): fractional values will be truncated"), left, right);
}
+ free_temp(s1);
+ free_temp(s2);
+
uleft = (unsigned long) left;
uright = (unsigned long) right;
- result = uleft & uright;
- return tmp_number((AWKNUM) result);
+ res = uleft & uright;
+ return tmp_number((AWKNUM) res);
}
/* do_or --- perform an | operation */
NODE *
-do_or(tree)
-NODE *tree;
+do_or(NODE *tree)
{
NODE *s1, *s2;
- unsigned long uleft, uright, result;
+ unsigned long uleft, uright, res;
AWKNUM left, right;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
left = force_number(s1);
right = force_number(s2);
- free_temp(s1);
- free_temp(s2);
if (do_lint) {
+ if ((s1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("or: received non-numeric first argument"));
+ if ((s2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("or: received non-numeric first argument"));
if (left < 0 || right < 0)
- warning("or(%lf, %lf): negative values will give strange results", left, right);
+ lintwarn(_("or(%lf, %lf): negative values will give strange results"), left, right);
if (double_to_int(left) != left || double_to_int(right) != right)
- warning("or(%lf, %lf): fractional values will be truncated", left, right);
+ lintwarn(_("or(%lf, %lf): fractional values will be truncated"), left, right);
}
+ free_temp(s1);
+ free_temp(s2);
+
uleft = (unsigned long) left;
uright = (unsigned long) right;
- result = uleft | uright;
- return tmp_number((AWKNUM) result);
+ res = uleft | uright;
+ return tmp_number((AWKNUM) res);
}
/* do_xor --- perform an ^ operation */
NODE *
-do_xor(tree)
-NODE *tree;
+do_xor(NODE *tree)
{
NODE *s1, *s2;
- unsigned long uleft, uright, result;
+ unsigned long uleft, uright, res;
AWKNUM left, right;
s1 = tree_eval(tree->lnode);
s2 = tree_eval(tree->rnode->lnode);
left = force_number(s1);
right = force_number(s2);
- free_temp(s1);
- free_temp(s2);
if (do_lint) {
+ if ((s1->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("xor: received non-numeric first argument"));
+ if ((s2->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("xor: received non-numeric first argument"));
if (left < 0 || right < 0)
- warning("xor(%lf, %lf): negative values will give strange results", left, right);
+ lintwarn(_("xor(%lf, %lf): negative values will give strange results"), left, right);
if (double_to_int(left) != left || double_to_int(right) != right)
- warning("xor(%lf, %lf): fractional values will be truncated", left, right);
+ lintwarn(_("xor(%lf, %lf): fractional values will be truncated"), left, right);
}
+ free_temp(s1);
+ free_temp(s2);
+
uleft = (unsigned long) left;
uright = (unsigned long) right;
- result = uleft ^ uright;
- return tmp_number((AWKNUM) result);
+ res = uleft ^ uright;
+ return tmp_number((AWKNUM) res);
}
/* do_compl --- perform a ~ operation */
NODE *
-do_compl(tree)
-NODE *tree;
+do_compl(NODE *tree)
{
NODE *tmp;
double d;
@@ -2005,10 +2227,12 @@ NODE *tree;
free_temp(tmp);
if (do_lint) {
+ if ((tmp->flags & (NUM|NUMBER)) == 0)
+ lintwarn(_("compl: received non-numeric argument"));
if (d < 0)
- warning("compl(%lf): negative value will give strange results", d);
+ lintwarn(_("compl(%lf): negative value will give strange results"), d);
if (double_to_int(d) != d)
- warning("compl(%lf): fractional value will be truncated", d);
+ lintwarn(_("compl(%lf): fractional value will be truncated"), d);
}
uval = (unsigned long) d;
@@ -2019,11 +2243,10 @@ NODE *tree;
/* do_strtonum --- the strtonum function */
NODE *
-do_strtonum(tree)
-NODE *tree;
+do_strtonum(NODE *tree)
{
NODE *tmp;
- double d, arg;
+ double d;
tmp = tree_eval(tree->lnode);
@@ -2037,9 +2260,7 @@ NODE *tree;
free_temp(tmp);
return tmp_number((AWKNUM) d);
}
-#endif /* BITOPS */
-#if defined(BITOPS) || defined(NONDECDATA)
/* nondec2awknum --- convert octal or hex value to double */
/*
@@ -2049,13 +2270,12 @@ NODE *tree;
*/
AWKNUM
-nondec2awknum(str, len)
-char *str;
-size_t len;
+nondec2awknum(char *str, size_t len)
{
AWKNUM retval = 0.0;
char save;
short val;
+ char *start = str;
if (*str == '0' && (str[1] == 'x' || str[1] == 'X')) {
assert(len > 2);
@@ -2097,18 +2317,172 @@ size_t len;
}
} else if (*str == '0') {
for (; len > 0; len--) {
- if (! isdigit(*str) || *str == '8' || *str == '9')
+ if (! ISDIGIT(*str))
+ goto done;
+ else if (*str == '8' || *str == '9') {
+ str = start;
goto decimal;
+ }
retval = (retval * 8) + (*str - '0');
str++;
}
} else {
decimal:
save = str[len];
- retval = atof(str);
+ retval = strtod(str, NULL);
str[len] = save;
}
done:
return retval;
}
-#endif /* defined(BITOPS) || defined(NONDECDATA) */
+
+/* do_dcgettext --- handle i18n translations */
+
+/*
+ * awk usage is
+ *
+ * str = dcgettext(string [, domain [, category]])
+ *
+ * Default domain is TEXTDOMAIN, default category is LC_MESSAGES.
+ */
+
+NODE *
+do_dcgettext(NODE *tree)
+{
+ NODE *tmp, *t1, *t2;
+ char *string;
+ char *the_result;
+#if ENABLE_NLS && HAVE_LC_MESSAGES && HAVE_DCGETTEXT
+ int lc_cat = -1;
+ char *category, *domain;
+ static struct category_table {
+ int val;
+ char *name;
+ } cat_tab[] = {
+#ifdef LC_ALL
+ { LC_ALL, "LC_ALL" },
+#endif /* LC_ALL */
+#ifdef LC_COLLATE
+ { LC_COLLATE, "LC_COLLATE" },
+#endif /* LC_COLLATE */
+#ifdef LC_CTYPE
+ { LC_CTYPE, "LC_CTYPE" },
+#endif /* LC_CTYPE */
+#ifdef LC_MESSAGES
+ { LC_MESSAGES, "LC_MESSAGES" },
+#endif /* LC_MESSAGES */
+#ifdef LC_MONETARY
+ { LC_MONETARY, "LC_MONETARY" },
+#endif /* LC_MONETARY */
+#ifdef LC_NUMERIC
+ { LC_NUMERIC, "LC_NUMERIC" },
+#endif /* LC_NUMERIC */
+#ifdef LC_RESPONSE
+ { LC_RESPONSE, "LC_RESPONSE" },
+#endif /* LC_RESPONSE */
+#ifdef LC_TIME
+ { LC_TIME, "LC_TIME" },
+#endif /* LC_TIME */
+ };
+#endif /* ENABLE_NLS */
+
+ tmp = tree->lnode; /* first argument */
+ t1 = force_string(tree_eval(tmp));
+ string = t1->stptr;
+
+ t2 = NULL;
+#if ENABLE_NLS && HAVE_LC_MESSAGES && HAVE_DCGETTEXT
+ tree = tree->rnode; /* second argument */
+ if (tree != NULL) {
+ tmp = tree->lnode;
+ t2 = force_string(tree_eval(tmp));
+ domain = t2->stptr;
+ } else
+ domain = TEXTDOMAIN;
+
+ if (tree != NULL && tree->rnode != NULL) { /* third argument */
+ int low, high, i, mid;
+ NODE *t;
+
+ tree = tree->rnode;
+ tmp = tree->lnode;
+ t = force_string(tree_eval(tmp));
+ category = t->stptr;
+
+ /* binary search the table */
+ low = 0;
+ high = (sizeof(cat_tab) / sizeof(cat_tab[0])) - 1;
+ while (low <= high) {
+ mid = (low + high) / 2;
+ i = strcmp(category, cat_tab[mid].name);
+
+ if (i < 0) /* category < mid */
+ high = mid - 1;
+ else if (i > 0) /* category > mid */
+ low = mid + 1;
+ else {
+ lc_cat = cat_tab[mid].val;
+ break;
+ }
+ }
+ if (lc_cat == -1) /* not there */
+ fatal(_("dcgettext: `%s' is not a valid locale category"), category);
+
+ free_temp(t);
+ } else
+ lc_cat = LC_MESSAGES;
+
+ the_result = dcgettext(domain, string, lc_cat);
+#else
+ the_result = string;
+#endif
+ free_temp(t1);
+ if (t2 != NULL)
+ free_temp(t2);
+
+ return tmp_string(the_result, strlen(the_result));
+}
+
+/* do_bindtextdomain --- set the directory for a text domain */
+
+/*
+ * awk usage is
+ *
+ * binding = bindtextdomain(dir [, domain])
+ *
+ * If dir is "", pass NULL to C version.
+ * Default domain is TEXTDOMAIN.
+ */
+
+NODE *
+do_bindtextdomain(NODE *tree)
+{
+ NODE *tmp, *t1, *t2;
+ char *directory, *domain;
+ char *the_result;
+
+ t1 = t2 = NULL;
+ /* set defaults */
+ directory = NULL;
+ domain = TEXTDOMAIN;
+
+ tmp = tree->lnode; /* first argument */
+ t1 = force_string(tree_eval(tmp));
+ if (t1->stlen > 0)
+ directory = t1->stptr;
+
+ tree = tree->rnode; /* second argument */
+ if (tree != NULL) {
+ tmp = tree->lnode;
+ t2 = force_string(tree_eval(tmp));
+ domain = t2->stptr;
+ }
+
+ the_result = bindtextdomain(domain, directory);
+
+ free_temp(t1);
+ if (t2 != NULL)
+ free_temp(t1);
+
+ return tmp_string(the_result, strlen(the_result));
+}
diff --git a/configh.in b/configh.in
index f423d4aa..8c8a517c 100644
--- a/configh.in
+++ b/configh.in
@@ -3,22 +3,22 @@
* acconfig.h -- configuration definitions for gawk.
*/
-/*
- * Copyright (C) 1995-2000 the Free Software Foundation, Inc.
- *
+/*
+ * Copyright (C) 1995-2001 the Free Software Foundation, Inc.
+ *
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
- *
+ *
* GAWK is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
- *
+ *
* GAWK is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
@@ -88,9 +88,15 @@
/* Define if you have the vprintf function. */
#undef HAVE_VPRINTF
+/* Define as __inline if that's what the C compiler calls it. */
+#undef inline
+
/* Define if on MINIX. */
#undef _MINIX
+/* Define to `long' if <sys/types.h> doesn't define. */
+#undef off_t
+
/* Define to `int' if <sys/types.h> doesn't define. */
#undef pid_t
@@ -128,24 +134,39 @@
/* Define to `int' if <sys/types.h> doesn't define. */
#undef uid_t
-#undef HAVE_STRINGIZE /* can use ANSI # operator in cpp */
#undef REGEX_MALLOC /* use malloc instead of alloca in regex.c */
#undef SPRINTF_RET /* return type of sprintf */
-#undef BITOPS /* bitwise ops (undocumented feature) */
-#undef NONDECDATA /* non-decimal input data (undocumented feature) */
-#undef _FILE_OFFSET_BITS /* bits in a file offset, where this matters */
-#undef _LARGEFILE_SOURCE /* makes fseeko etc. visible on some hosts */
-#undef _LARGE_FILES /* emables large files on AIX-style hosts */
+#undef HAVE_MKTIME /* we have the mktime function */
+#undef HAVE_SOCKETS /* we have sockets on this system */
+#undef HAVE_PORTALS /* we have portals on /p on this system */
+#undef DYNAMIC /* allow dynamic addition of builtins */
+#undef STRTOD_NOT_C89 /* strtod doesn't have C89 semantics */
+#undef ssize_t /* signed version of size_t */
+
+/* Define if you have the __argz_count function. */
+#undef HAVE___ARGZ_COUNT
+
+/* Define if you have the __argz_next function. */
+#undef HAVE___ARGZ_NEXT
+
+/* Define if you have the __argz_stringify function. */
+#undef HAVE___ARGZ_STRINGIFY
+
+/* Define if you have the alarm function. */
+#undef HAVE_ALARM
+
+/* Define if you have the dcgettext function. */
+#undef HAVE_DCGETTEXT
/* Define if you have the fmod function. */
#undef HAVE_FMOD
+/* Define if you have the getcwd function. */
+#undef HAVE_GETCWD
+
/* Define if you have the getpagesize function. */
#undef HAVE_GETPAGESIZE
-/* Define if you have the madvise function. */
-#undef HAVE_MADVISE
-
/* Define if you have the memcmp function. */
#undef HAVE_MEMCMP
@@ -155,12 +176,30 @@
/* Define if you have the memset function. */
#undef HAVE_MEMSET
+/* Define if you have the munmap function. */
+#undef HAVE_MUNMAP
+
+/* Define if you have the putenv function. */
+#undef HAVE_PUTENV
+
+/* Define if you have the setenv function. */
+#undef HAVE_SETENV
+
/* Define if you have the setlocale function. */
#undef HAVE_SETLOCALE
+/* Define if you have the stpcpy function. */
+#undef HAVE_STPCPY
+
+/* Define if you have the strcasecmp function. */
+#undef HAVE_STRCASECMP
+
/* Define if you have the strchr function. */
#undef HAVE_STRCHR
+/* Define if you have the strdup function. */
+#undef HAVE_STRDUP
+
/* Define if you have the strerror function. */
#undef HAVE_STRERROR
@@ -179,21 +218,48 @@
/* Define if you have the tzset function. */
#undef HAVE_TZSET
+/* Define if you have the <argz.h> header file. */
+#undef HAVE_ARGZ_H
+
+/* Define if you have the <fcntl.h> header file. */
+#undef HAVE_FCNTL_H
+
+/* Define if you have the <libintl.h> header file. */
+#undef HAVE_LIBINTL_H
+
/* Define if you have the <limits.h> header file. */
#undef HAVE_LIMITS_H
/* Define if you have the <locale.h> header file. */
#undef HAVE_LOCALE_H
+/* Define if you have the <malloc.h> header file. */
+#undef HAVE_MALLOC_H
+
+/* Define if you have the <mcheck.h> header file. */
+#undef HAVE_MCHECK_H
+
/* Define if you have the <memory.h> header file. */
#undef HAVE_MEMORY_H
+/* Define if you have the <netdb.h> header file. */
+#undef HAVE_NETDB_H
+
+/* Define if you have the <netinet/in.h> header file. */
+#undef HAVE_NETINET_IN_H
+
+/* Define if you have the <nl_types.h> header file. */
+#undef HAVE_NL_TYPES_H
+
/* Define if you have the <signum.h> header file. */
#undef HAVE_SIGNUM_H
/* Define if you have the <stdarg.h> header file. */
#undef HAVE_STDARG_H
+/* Define if you have the <stdlib.h> header file. */
+#undef HAVE_STDLIB_H
+
/* Define if you have the <string.h> header file. */
#undef HAVE_STRING_H
@@ -203,23 +269,53 @@
/* Define if you have the <sys/param.h> header file. */
#undef HAVE_SYS_PARAM_H
+/* Define if you have the <sys/socket.h> header file. */
+#undef HAVE_SYS_SOCKET_H
+
+/* Define if you have the <sys/time.h> header file. */
+#undef HAVE_SYS_TIME_H
+
/* Define if you have the <unistd.h> header file. */
#undef HAVE_UNISTD_H
+/* Define if you have the i library (-li). */
+#undef HAVE_LIBI
+
+/* Define if you have the intl library (-lintl). */
+#undef HAVE_LIBINTL
+
/* Define if you have the m library (-lm). */
#undef HAVE_LIBM
+/* Name of package */
+#undef PACKAGE
+
+/* Version number of package */
+#undef VERSION
+
/* Number of bits in a file offset, on hosts where this is settable. */
#undef _FILE_OFFSET_BITS
-/* Define to make ftello visible on some hosts (e.g. HP-UX 10.20). */
-#undef _LARGEFILE_SOURCE
-
/* Define for large files, on AIX-style hosts. */
#undef _LARGE_FILES
-/* Define to make ftello visible on some hosts (e.g. glibc 2.1.3). */
-#undef _XOPEN_SOURCE
+/* Define if compiler has function prototypes */
+#undef PROTOTYPES
+
+/* Define to 1 if you have the stpcpy function. */
+#undef HAVE_STPCPY
+
+/* Define if your locale.h file contains LC_MESSAGES. */
+#undef HAVE_LC_MESSAGES
+
+/* Define to 1 if NLS is requested. */
+#undef ENABLE_NLS
+
+/* Define to 1 if you have gettext and don't want to use GNU gettext. */
+#undef HAVE_GETTEXT
+
+/* Define as 1 if you have catgets and don't want to use GNU gettext. */
+#undef HAVE_CATGETS
#include <custom.h> /* overrides for stuff autoconf can't deal with */
diff --git a/configure b/configure
index b4ba9dc3..e4ef6d7c 100755
--- a/configure
+++ b/configure
@@ -12,11 +12,18 @@ ac_help=
ac_default_prefix=/usr/local
# Any additions from configure.in:
ac_help="$ac_help
- --enable-bitops Enable Octal and Hex constants and bit functions"
+ --disable-dependency-tracking Speeds up one-time builds
+ --enable-dependency-tracking Do not reject slow dependency extractors"
ac_help="$ac_help
- --enable-non-decimal-data Enable Octal and Hex constants as valid input data"
+ --enable-portals Enable /p as path prefix for portals"
ac_help="$ac_help
--disable-largefile omit support for large files"
+ac_help="$ac_help
+ --disable-nls do not use Native Language Support"
+ac_help="$ac_help
+ --with-included-gettext use the GNU gettext library included here"
+ac_help="$ac_help
+ --with-catgets use catgets functions if available"
# Initialize some variables set by options.
# The variables have the same names as the options, with
@@ -528,22 +535,318 @@ fi
+ac_aux_dir=
+for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
+ if test -f $ac_dir/install-sh; then
+ ac_aux_dir=$ac_dir
+ ac_install_sh="$ac_aux_dir/install-sh -c"
+ break
+ elif test -f $ac_dir/install.sh; then
+ ac_aux_dir=$ac_dir
+ ac_install_sh="$ac_aux_dir/install.sh -c"
+ break
+ fi
+done
+if test -z "$ac_aux_dir"; then
+ { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
+fi
+ac_config_guess=$ac_aux_dir/config.guess
+ac_config_sub=$ac_aux_dir/config.sub
+ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
+# Find a good install program. We prefer a C program (faster),
+# so one script is as good as another. But avoid the broken or
+# incompatible versions:
+# SysV /etc/install, /usr/sbin/install
+# SunOS /usr/etc/install
+# IRIX /sbin/install
+# AIX /bin/install
+# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
+# AFS /usr/afsws/bin/install, which mishandles nonexistent args
+# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
+# ./install, which can be erroneously created by make from ./install.sh.
+echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
+echo "configure:570: checking for a BSD compatible install" >&5
+if test -z "$INSTALL"; then
+if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":"
+ for ac_dir in $PATH; do
+ # Account for people who put trailing slashes in PATH elements.
+ case "$ac_dir/" in
+ /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;;
+ *)
+ # OSF1 and SCO ODT 3.0 have their own names for install.
+ # Don't use installbsd from OSF since it installs stuff as root
+ # by default.
+ for ac_prog in ginstall scoinst install; do
+ if test -f $ac_dir/$ac_prog; then
+ if test $ac_prog = install &&
+ grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then
+ # AIX install. It has an incompatible calling convention.
+ :
+ else
+ ac_cv_path_install="$ac_dir/$ac_prog -c"
+ break 2
+ fi
+ fi
+ done
+ ;;
+ esac
+ done
+ IFS="$ac_save_IFS"
-# Check whether --enable-bitops or --disable-bitops was given.
-if test "${enable_bitops+set}" = set; then
- enableval="$enable_bitops"
- cat >> confdefs.h <<\EOF
-#define BITOPS 1
+fi
+ if test "${ac_cv_path_install+set}" = set; then
+ INSTALL="$ac_cv_path_install"
+ else
+ # As a last resort, use the slow shell script. We don't cache a
+ # path for INSTALL within a source directory, because that will
+ # break other packages using the cache if that directory is
+ # removed, or if the path is relative.
+ INSTALL="$ac_install_sh"
+ fi
+fi
+echo "$ac_t""$INSTALL" 1>&6
+
+# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
+# It thinks the first close brace ends the variable substitution.
+test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
+
+test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}'
+
+test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
+
+echo $ac_n "checking whether build environment is sane""... $ac_c" 1>&6
+echo "configure:623: checking whether build environment is sane" >&5
+# Just in case
+sleep 1
+echo timestamp > conftestfile
+# Do `set' in a subshell so we don't clobber the current shell's
+# arguments. Must try -L first in case configure is actually a
+# symlink; some systems play weird games with the mod time of symlinks
+# (eg FreeBSD returns the mod time of the symlink's containing
+# directory).
+if (
+ set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
+ if test "$*" = "X"; then
+ # -L didn't work.
+ set X `ls -t $srcdir/configure conftestfile`
+ fi
+ if test "$*" != "X $srcdir/configure conftestfile" \
+ && test "$*" != "X conftestfile $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ { echo "configure: error: ls -t appears to fail. Make sure there is not a broken
+alias in your environment" 1>&2; exit 1; }
+ fi
+
+ test "$2" = conftestfile
+ )
+then
+ # Ok.
+ :
+else
+ { echo "configure: error: newly created file is older than distributed files!
+Check your system clock" 1>&2; exit 1; }
+fi
+rm -f conftest*
+echo "$ac_t""yes" 1>&6
+if test "$program_transform_name" = s,x,x,; then
+ program_transform_name=
+else
+ # Double any \ or $. echo might interpret backslashes.
+ cat <<\EOF_SED > conftestsed
+s,\\,\\\\,g; s,\$,$$,g
+EOF_SED
+ program_transform_name="`echo $program_transform_name|sed -f conftestsed`"
+ rm -f conftestsed
+fi
+test "$program_prefix" != NONE &&
+ program_transform_name="s,^,${program_prefix},; $program_transform_name"
+# Use a double $ so make ignores it.
+test "$program_suffix" != NONE &&
+ program_transform_name="s,\$\$,${program_suffix},; $program_transform_name"
+
+# sed with no file args requires a program.
+test "$program_transform_name" = "" && program_transform_name="s,x,x,"
+
+
+test x"${MISSING+set}" = xset || \
+ MISSING="\${SHELL} `CDPATH=:; cd $ac_aux_dir && pwd`/missing"
+# Use eval to expand $SHELL
+if eval "$MISSING --run :"; then
+ am_missing_run="$MISSING --run "
+else
+ am_missing_run=
+ am_backtick='`'
+ echo "configure: warning: ${am_backtick}missing' script is too old or missing" 1>&2
+fi
+
+for ac_prog in gawk mawk nawk awk
+do
+# Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:696: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_prog_AWK'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ if test -n "$AWK"; then
+ ac_cv_prog_AWK="$AWK" # Let the user override the test.
+else
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_prog_AWK="$ac_prog"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+fi
+fi
+AWK="$ac_cv_prog_AWK"
+if test -n "$AWK"; then
+ echo "$ac_t""$AWK" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+test -n "$AWK" && break
+done
+
+echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6
+echo "configure:726: checking whether ${MAKE-make} sets \${MAKE}" >&5
+set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftestmake <<\EOF
+all:
+ @echo 'ac_maketemp="${MAKE}"'
EOF
+# GNU make sometimes prints "make[1]: Entering...", which would confuse us.
+eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=`
+if test -n "$ac_maketemp"; then
+ eval ac_cv_prog_make_${ac_make}_set=yes
+else
+ eval ac_cv_prog_make_${ac_make}_set=no
+fi
+rm -f conftestmake
+fi
+if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ SET_MAKE=
+else
+ echo "$ac_t""no" 1>&6
+ SET_MAKE="MAKE=${MAKE-make}"
+fi
+
+# Check whether --enable-dependency-tracking or --disable-dependency-tracking was given.
+if test "${enable_dependency_tracking+set}" = set; then
+ enableval="$enable_dependency_tracking"
+ :
fi
-# Check whether --enable-non-decimal-data or --disable-non-decimal-data was given.
-if test "${enable_non_decimal_data+set}" = set; then
- enableval="$enable_non_decimal_data"
+if test "x$enable_dependency_tracking" = xno; then
+ AMDEP="#"
+else
+ am_depcomp="$ac_aux_dir/depcomp"
+ if test ! -f "$am_depcomp"; then
+ AMDEP="#"
+ else
+ AMDEP=
+ fi
+fi
+
+if test -z "$AMDEP"; then
+ AMDEPBACKSLASH='\'
+else
+ AMDEPBACKSLASH=
+fi
+
+
+
+
+
+if test -d .deps || mkdir .deps 2> /dev/null || test -d .deps; then
+ DEPDIR=.deps
+else
+ DEPDIR=_deps
+fi
+
+
+# test to see if srcdir already configured
+if test "`CDPATH=:; cd $srcdir && pwd`" != "`pwd`" &&
+ test -f $srcdir/config.status; then
+ { echo "configure: error: source directory already configured; run "make distclean" there first" 1>&2; exit 1; }
+fi
+
+# Define the identity of the package.
+PACKAGE=gawk
+VERSION=3.1.0
+cat >> confdefs.h <<EOF
+#define PACKAGE "$PACKAGE"
+EOF
+
+cat >> confdefs.h <<EOF
+#define VERSION "$VERSION"
+EOF
+
+
+# Some tools Automake needs.
+
+
+ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal"}
+
+
+
+AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
+
+
+
+AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake"}
+
+
+
+AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
+
+
+
+MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
+
+
+
+AMTAR=${AMTAR-"${am_missing_run}tar"}
+
+
+
+if test -z "$install_sh"; then
+ install_sh="$ac_aux_dir/install-sh"
+ test -f "$install_sh" || install_sh="$ac_aux_dir/install.sh"
+ test -f "$install_sh" || install_sh="${am_missing_run}${ac_auxdir}/install-sh"
+ install_sh="`echo $install_sh | sed -e 's/\${SHELL}//'`"
+fi
+
+# We need awk for the "check" target. The system "awk" is bad on
+# some platforms.
+
+
+
+
+
+# Check whether --enable-portals or --disable-portals was given.
+if test "${enable_portals+set}" = set; then
+ enableval="$enable_portals"
cat >> confdefs.h <<\EOF
-#define NONDECDATA 1
+#define HAVE_PORTALS 1
EOF
fi
@@ -554,7 +857,7 @@ do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:558: checking for $ac_word" >&5
+echo "configure:861: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_YACC'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -585,7 +888,7 @@ done
test -n "$YACC" || YACC="yacc"
echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6
-echo "configure:589: checking whether ln -s works" >&5
+echo "configure:892: checking whether ln -s works" >&5
if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -608,7 +911,7 @@ fi
# Extract the first word of "gcc", so it can be a program name with args.
set dummy gcc; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:612: checking for $ac_word" >&5
+echo "configure:915: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -638,7 +941,7 @@ if test -z "$CC"; then
# Extract the first word of "cc", so it can be a program name with args.
set dummy cc; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:642: checking for $ac_word" >&5
+echo "configure:945: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -689,7 +992,7 @@ fi
# Extract the first word of "cl", so it can be a program name with args.
set dummy cl; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:693: checking for $ac_word" >&5
+echo "configure:996: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -721,7 +1024,7 @@ fi
fi
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
-echo "configure:725: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
+echo "configure:1028: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
ac_ext=c
# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
@@ -732,12 +1035,12 @@ cross_compiling=$ac_cv_prog_cc_cross
cat > conftest.$ac_ext << EOF
-#line 736 "configure"
+#line 1039 "configure"
#include "confdefs.h"
main(){return(0);}
EOF
-if { (eval echo configure:741: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1044: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
ac_cv_prog_cc_works=yes
# If we can't run a trivial program, we are probably using a cross compiler.
if (./conftest; exit) 2>/dev/null; then
@@ -763,12 +1066,12 @@ if test $ac_cv_prog_cc_works = no; then
{ echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
fi
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
-echo "configure:767: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
+echo "configure:1070: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
cross_compiling=$ac_cv_prog_cc_cross
echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
-echo "configure:772: checking whether we are using GNU C" >&5
+echo "configure:1075: checking whether we are using GNU C" >&5
if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -777,7 +1080,7 @@ else
yes;
#endif
EOF
-if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:781: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
+if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:1084: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
ac_cv_prog_gcc=yes
else
ac_cv_prog_gcc=no
@@ -796,7 +1099,7 @@ ac_test_CFLAGS="${CFLAGS+set}"
ac_save_CFLAGS="$CFLAGS"
CFLAGS=
echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
-echo "configure:800: checking whether ${CC-cc} accepts -g" >&5
+echo "configure:1103: checking whether ${CC-cc} accepts -g" >&5
if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -827,8 +1130,145 @@ else
fi
fi
+
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+echo "configure:1136: checking how to run the C preprocessor" >&5
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+ CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ # This must be in double quotes, not single quotes, because CPP may get
+ # substituted into the Makefile and "${CC-cc}" will confuse make.
+ CPP="${CC-cc} -E"
+ # On the NeXT, cc -E runs the code through the compiler's parser,
+ # not just through cpp.
+ cat > conftest.$ac_ext <<EOF
+#line 1151 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:1157: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ :
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ CPP="${CC-cc} -E -traditional-cpp"
+ cat > conftest.$ac_ext <<EOF
+#line 1168 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:1174: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ :
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ CPP="${CC-cc} -nologo -E"
+ cat > conftest.$ac_ext <<EOF
+#line 1185 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:1191: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ :
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+ ac_cv_prog_CPP="$CPP"
+fi
+ CPP="$ac_cv_prog_CPP"
+else
+ ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+
+
+
+
+
+
+depcc="$CC"
+depcpp="$CPP"
+echo $ac_n "checking dependency style of $depcc""... $ac_c" 1>&6
+echo "configure:1224: checking dependency style of $depcc" >&5
+if eval "test \"`echo '$''{'am_cv_CC_dependencies_compiler_type'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+
+if test -z "$AMDEP"; then
+ echo '#include "conftest.h"' > conftest.c
+ echo 'int i;' > conftest.h
+
+ am_cv_CC_dependencies_compiler_type=none
+ for depmode in `sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < "$am_depcomp"`; do
+ case "$depmode" in
+ nosideeffect)
+ # after this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested
+ if test "x$enable_dependency_tracking" = xyes; then
+ continue
+ else
+ break
+ fi
+ ;;
+ none) break ;;
+ esac
+ # We check with `-c' and `-o' for the sake of the "dashmstdout"
+ # mode. It turns out that the SunPro C++ compiler does not properly
+ # handle `-M -o', and we need to detect this.
+ if depmode="$depmode" \
+ source=conftest.c object=conftest.o \
+ depfile=conftest.Po tmpdepfile=conftest.TPo \
+ $SHELL $am_depcomp $depcc -c conftest.c -o conftest.o >/dev/null 2>&1 &&
+ grep conftest.h conftest.Po > /dev/null 2>&1; then
+ am_cv_CC_dependencies_compiler_type="$depmode"
+ break
+ fi
+ done
+
+ rm -f conftest.*
+else
+ am_cv_CC_dependencies_compiler_type=none
+fi
+
+fi
+
+echo "$ac_t""$am_cv_CC_dependencies_compiler_type" 1>&6
+CCDEPMODE="depmode=$am_cv_CC_dependencies_compiler_type"
+
+
echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
-echo "configure:832: checking how to run the C preprocessor" >&5
+echo "configure:1272: checking how to run the C preprocessor" >&5
# On Suns, sometimes $CPP names a directory.
if test -n "$CPP" && test -d "$CPP"; then
CPP=
@@ -843,13 +1283,13 @@ else
# On the NeXT, cc -E runs the code through the compiler's parser,
# not just through cpp.
cat > conftest.$ac_ext <<EOF
-#line 847 "configure"
+#line 1287 "configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:853: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1293: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
:
@@ -860,13 +1300,13 @@ else
rm -rf conftest*
CPP="${CC-cc} -E -traditional-cpp"
cat > conftest.$ac_ext <<EOF
-#line 864 "configure"
+#line 1304 "configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:870: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1310: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
:
@@ -877,13 +1317,13 @@ else
rm -rf conftest*
CPP="${CC-cc} -nologo -E"
cat > conftest.$ac_ext <<EOF
-#line 881 "configure"
+#line 1321 "configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:887: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1327: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
:
@@ -907,28 +1347,46 @@ else
fi
echo "$ac_t""$CPP" 1>&6
+# Extract the first word of "ranlib", so it can be a program name with args.
+set dummy ranlib; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:1354: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ if test -n "$RANLIB"; then
+ ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
+else
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_prog_RANLIB="ranlib"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":"
+fi
+fi
+RANLIB="$ac_cv_prog_RANLIB"
+if test -n "$RANLIB"; then
+ echo "$ac_t""$RANLIB" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
# This is a hack. Different versions of install on different systems
# are just too different. Chuck it and use install-sh.
-INSTALL="$srcdir/install-sh -c"; export INSTALL
-ac_aux_dir=
-for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
- if test -f $ac_dir/install-sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install-sh -c"
- break
- elif test -f $ac_dir/install.sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install.sh -c"
- break
- fi
-done
-if test -z "$ac_aux_dir"; then
- { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
+#
+# If the user supplies $INSTALL, figure they know what they're doing.
+if test "x$INSTALL" = "x"
+then
+ INSTALL="$srcdir/install-sh -c"
+ export INSTALL
fi
-ac_config_guess=$ac_aux_dir/config.guess
-ac_config_sub=$ac_aux_dir/config.sub
-ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
# Find a good install program. We prefer a C program (faster),
# so one script is as good as another. But avoid the broken or
@@ -942,7 +1400,7 @@ ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
# ./install, which can be erroneously created by make from ./install.sh.
echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
-echo "configure:946: checking for a BSD compatible install" >&5
+echo "configure:1404: checking for a BSD compatible install" >&5
if test -z "$INSTALL"; then
if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
@@ -996,7 +1454,7 @@ test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6
-echo "configure:1000: checking whether ${MAKE-make} sets \${MAKE}" >&5
+echo "configure:1458: checking whether ${MAKE-make} sets \${MAKE}" >&5
set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
@@ -1023,37 +1481,30 @@ else
fi
-if test "$CFLAGS" = ""
-then
- if test "$GCC" = yes
- then
- CFLAGS="-g -O"
- else
- CFLAGS="-O"
- fi
-fi
-
# This is mainly for my use during testing and development.
# Yes, it's a bit of a hack.
+echo $ac_n "checking for special development options""... $ac_c" 1>&6
+echo "configure:1488: checking for special development options" >&5
if test -f $srcdir/.developing
then
- cat >> confdefs.h <<\EOF
-#define BITOPS 1
-EOF
-
- cat >> confdefs.h <<\EOF
-#define NONDECDATA 1
-EOF
-
+ # add other debug flags as appropriate, save GAWKDEBUG for emergencies
CFLAGS="$CFLAGS -DARRAYDEBUG"
+ # turn on compiler warnings if we're doing development
+ if test "$GCC" = yes
+ then
+ CFLAGS="$CFLAGS -Wall"
+ fi
+ echo "$ac_t""yes" 1>&6
+else
+ echo "$ac_t""no" 1>&6
fi
echo $ac_n "checking for AIX""... $ac_c" 1>&6
-echo "configure:1055: checking for AIX" >&5
+echo "configure:1506: checking for AIX" >&5
cat > conftest.$ac_ext <<EOF
-#line 1057 "configure"
+#line 1508 "configure"
#include "confdefs.h"
#ifdef _AIX
yes
@@ -1075,7 +1526,7 @@ rm -f conftest*
echo $ac_n "checking for POSIXized ISC""... $ac_c" 1>&6
-echo "configure:1079: checking for POSIXized ISC" >&5
+echo "configure:1530: checking for POSIXized ISC" >&5
if test -d /etc/conf/kconfig.d &&
grep _POSIX_VERSION /usr/include/sys/unistd.h >/dev/null 2>&1
then
@@ -1097,17 +1548,17 @@ fi
ac_safe=`echo "minix/config.h" | sed 'y%./+-%__p_%'`
echo $ac_n "checking for minix/config.h""... $ac_c" 1>&6
-echo "configure:1101: checking for minix/config.h" >&5
+echo "configure:1552: checking for minix/config.h" >&5
if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1106 "configure"
+#line 1557 "configure"
#include "confdefs.h"
#include <minix/config.h>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1111: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1562: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -1144,7 +1595,8 @@ EOF
fi
-# Check whether --enable-largefile or --disable-largefile was given.
+
+ # Check whether --enable-largefile or --disable-largefile was given.
if test "${enable_largefile+set}" = set; then
enableval="$enable_largefile"
:
@@ -1153,25 +1605,32 @@ fi
if test "$enable_largefile" != no; then
echo $ac_n "checking for special C compiler options needed for large files""... $ac_c" 1>&6
-echo "configure:1157: checking for special C compiler options needed for large files" >&5
-if eval "test \"`echo '$''{'gawk_cv_sys_largefile_CC'+set}'`\" = set"; then
+echo "configure:1609: checking for special C compiler options needed for large files" >&5
+if eval "test \"`echo '$''{'ac_cv_sys_largefile_CC'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- gawk_cv_sys_largefile_CC=no
+ ac_cv_sys_largefile_CC=no
if test "$GCC" != yes; then
# IRIX 6.2 and later do not support large files by default,
# so use the C compiler's -n32 option if that helps.
cat > conftest.$ac_ext <<EOF
-#line 1166 "configure"
+#line 1618 "configure"
#include "confdefs.h"
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
int main() {
; return 0; }
EOF
-if { (eval echo configure:1175: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1634: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
:
else
echo "configure: failed program was:" >&5
@@ -1180,18 +1639,25 @@ else
ac_save_CC="$CC"
CC="$CC -n32"
cat > conftest.$ac_ext <<EOF
-#line 1184 "configure"
+#line 1643 "configure"
#include "confdefs.h"
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
int main() {
; return 0; }
EOF
-if { (eval echo configure:1193: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1659: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
- gawk_cv_sys_largefile_CC=' -n32'
+ ac_cv_sys_largefile_CC=' -n32'
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
@@ -1203,51 +1669,62 @@ rm -f conftest*
fi
fi
-echo "$ac_t""$gawk_cv_sys_largefile_CC" 1>&6
- if test "$gawk_cv_sys_largefile_CC" != no; then
- CC="$CC$gawk_cv_sys_largefile_CC"
+echo "$ac_t""$ac_cv_sys_largefile_CC" 1>&6
+ if test "$ac_cv_sys_largefile_CC" != no; then
+ CC="$CC$ac_cv_sys_largefile_CC"
fi
echo $ac_n "checking for _FILE_OFFSET_BITS value needed for large files""... $ac_c" 1>&6
-echo "configure:1213: checking for _FILE_OFFSET_BITS value needed for large files" >&5
-if eval "test \"`echo '$''{'gawk_cv_sys_file_offset_bits'+set}'`\" = set"; then
+echo "configure:1679: checking for _FILE_OFFSET_BITS value needed for large files" >&5
+if eval "test \"`echo '$''{'ac_cv_sys_file_offset_bits'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- gawk_cv_sys_file_offset_bits=no
+ ac_cv_sys_file_offset_bits=no
cat > conftest.$ac_ext <<EOF
-#line 1219 "configure"
+#line 1685 "configure"
#include "confdefs.h"
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
-
-
int main() {
; return 0; }
EOF
-if { (eval echo configure:1230: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1701: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
:
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
cat > conftest.$ac_ext <<EOF
-#line 1237 "configure"
+#line 1708 "configure"
#include "confdefs.h"
#define _FILE_OFFSET_BITS 64
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
-
int main() {
; return 0; }
EOF
-if { (eval echo configure:1249: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1726: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
- gawk_cv_sys_file_offset_bits=64
+ ac_cv_sys_file_offset_bits=64
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
@@ -1257,53 +1734,64 @@ fi
rm -f conftest*
fi
-echo "$ac_t""$gawk_cv_sys_file_offset_bits" 1>&6
- if test "$gawk_cv_sys_file_offset_bits" != no; then
+echo "$ac_t""$ac_cv_sys_file_offset_bits" 1>&6
+ if test "$ac_cv_sys_file_offset_bits" != no; then
cat >> confdefs.h <<EOF
-#define _FILE_OFFSET_BITS $gawk_cv_sys_file_offset_bits
+#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits
EOF
fi
- echo $ac_n "checking for _LARGEFILE_SOURCE value needed for large files""... $ac_c" 1>&6
-echo "configure:1269: checking for _LARGEFILE_SOURCE value needed for large files" >&5
-if eval "test \"`echo '$''{'gawk_cv_sys_largefile_source'+set}'`\" = set"; then
+ echo $ac_n "checking for _LARGE_FILES value needed for large files""... $ac_c" 1>&6
+echo "configure:1746: checking for _LARGE_FILES value needed for large files" >&5
+if eval "test \"`echo '$''{'ac_cv_sys_large_files'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- gawk_cv_sys_largefile_source=no
+ ac_cv_sys_large_files=no
cat > conftest.$ac_ext <<EOF
-#line 1275 "configure"
+#line 1752 "configure"
#include "confdefs.h"
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
-#include <stdio.h>
-
int main() {
-return !ftello;
+
; return 0; }
EOF
-if { (eval echo configure:1286: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1768: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
:
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
cat > conftest.$ac_ext <<EOF
-#line 1293 "configure"
+#line 1775 "configure"
#include "confdefs.h"
-#define _LARGEFILE_SOURCE 1
+#define _LARGE_FILES 1
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
-#include <stdio.h>
int main() {
-return !ftello;
+
; return 0; }
EOF
-if { (eval echo configure:1305: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1793: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
- gawk_cv_sys_largefile_source=1
+ ac_cv_sys_large_files=1
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
@@ -1313,158 +1801,2117 @@ fi
rm -f conftest*
fi
-echo "$ac_t""$gawk_cv_sys_largefile_source" 1>&6
- if test "$gawk_cv_sys_largefile_source" != no; then
+echo "$ac_t""$ac_cv_sys_large_files" 1>&6
+ if test "$ac_cv_sys_large_files" != no; then
cat >> confdefs.h <<EOF
-#define _LARGEFILE_SOURCE $gawk_cv_sys_largefile_source
+#define _LARGE_FILES $ac_cv_sys_large_files
EOF
fi
- echo $ac_n "checking for _LARGE_FILES value needed for large files""... $ac_c" 1>&6
-echo "configure:1325: checking for _LARGE_FILES value needed for large files" >&5
-if eval "test \"`echo '$''{'gawk_cv_sys_large_files'+set}'`\" = set"; then
+ fi
+
+
+echo $ac_n "checking for AIX compilation hacks""... $ac_c" 1>&6
+echo "configure:1816: checking for AIX compilation hacks" >&5
+if eval "test \"`echo '$''{'gawk_cv_aix_hack'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- gawk_cv_sys_large_files=no
- cat > conftest.$ac_ext <<EOF
-#line 1331 "configure"
+
+if test -d /lpp/bos
+then
+ CFLAGS="$CFLAGS -D_XOPEN_SOURCE_EXTENDED=1"
+ gawk_cv_aix_hack=yes
+else
+ gawk_cv_aix_hack=no
+fi
+
+fi
+echo "$ac_t""${gawk_cv_aix_hack}" 1>&6
+
+
+echo $ac_n "checking for Linux/Alpha compilation hacks""... $ac_c" 1>&6
+echo "configure:1834: checking for Linux/Alpha compilation hacks" >&5
+if eval "test \"`echo '$''{'gawk_cv_linux_alpha_hack'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+
+if test "Linux" = "`uname`" && test "alpha" = "`uname -m`"
+then
+ # this isn't necessarily always true,
+ # the vendor's compiler is also often found
+ if test "$GCC" = yes
+ then
+ CFLAGS="$CFLAGS -mieee"
+ gawk_cv_linux_alpha_hack=yes
+ else
+ gawk_cv_linux_alpha_hack=no
+ fi
+else
+ gawk_cv_linux_alpha_hack=no
+fi
+
+fi
+echo "$ac_t""${gawk_cv_linux_alpha_hack}" 1>&6
+
+
+if test "$ISC" = 1 # will be set by test for ISC
+then
+ CFLAGS="$CFLAGS -D_SYSV3"
+fi
+
+
+
+
+echo $ac_n "checking for ${CC-cc} option to accept ANSI C""... $ac_c" 1>&6
+echo "configure:1867: checking for ${CC-cc} option to accept ANSI C" >&5
+if eval "test \"`echo '$''{'am_cv_prog_cc_stdc'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ am_cv_prog_cc_stdc=no
+ac_save_CC="$CC"
+# Don't try gcc -ansi; that turns off useful extensions and
+# breaks some systems' header files.
+# AIX -qlanglvl=ansi
+# Ultrix and OSF/1 -std1
+# HP-UX 10.20 and later -Ae
+# HP-UX older versions -Aa -D_HPUX_SOURCE
+# SVR4 -Xc -D__EXTENSIONS__
+for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
+do
+ CC="$ac_save_CC $ac_arg"
+ cat > conftest.$ac_ext <<EOF
+#line 1884 "configure"
#include "confdefs.h"
+#include <stdarg.h>
+#include <stdio.h>
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
-
+#include <sys/stat.h>
+/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
+struct buf { int x; };
+FILE * (*rcsopen) (struct buf *, struct stat *, int);
+static char *e (p, i)
+ char **p;
+ int i;
+{
+ return p[i];
+}
+static char *f (char * (*g) (char **, int), char **p, ...)
+{
+ char *s;
+ va_list v;
+ va_start (v,p);
+ s = g (p, va_arg (v,int));
+ va_end (v);
+ return s;
+}
+int test (int i, double x);
+struct s1 {int (*f) (int a);};
+struct s2 {int (*f) (double a);};
+int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
+int argc;
+char **argv;
-
int main() {
+return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
+
; return 0; }
EOF
-if { (eval echo configure:1342: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1921: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+ rm -rf conftest*
+ am_cv_prog_cc_stdc="$ac_arg"; break
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+fi
+rm -f conftest*
+done
+CC="$ac_save_CC"
+
+fi
+
+if test -z "$am_cv_prog_cc_stdc"; then
+ echo "$ac_t""none needed" 1>&6
+else
+ echo "$ac_t""$am_cv_prog_cc_stdc" 1>&6
+fi
+case "x$am_cv_prog_cc_stdc" in
+ x|xno) ;;
+ *) CC="$CC $am_cv_prog_cc_stdc" ;;
+esac
+
+
+
+echo $ac_n "checking for function prototypes""... $ac_c" 1>&6
+echo "configure:1947: checking for function prototypes" >&5
+if test "$am_cv_prog_cc_stdc" != no; then
+ echo "$ac_t""yes" 1>&6
+ cat >> confdefs.h <<\EOF
+#define PROTOTYPES 1
+EOF
+
+ U= ANSI2KNR=
+else
+ echo "$ac_t""no" 1>&6
+ U=_ ANSI2KNR=./ansi2knr
+ # Ensure some checks needed by ansi2knr itself.
+ echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
+echo "configure:1960: checking for ANSI C header files" >&5
+if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 1965 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:1973: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ ac_cv_header_stdc=yes
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+if test $ac_cv_header_stdc = yes; then
+ # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 1990 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "memchr" >/dev/null 2>&1; then
+ :
+else
+ rm -rf conftest*
+ ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+ # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 2008 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "free" >/dev/null 2>&1; then
+ :
+else
+ rm -rf conftest*
+ ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+ # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+if test "$cross_compiling" = yes; then
+ :
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2029 "configure"
+#include "confdefs.h"
+#include <ctype.h>
+#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int main () { int i; for (i = 0; i < 256; i++)
+if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
+exit (0); }
+
+EOF
+if { (eval echo configure:2040: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+then
:
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
+ rm -fr conftest*
+ ac_cv_header_stdc=no
+fi
+rm -fr conftest*
+fi
+
+fi
+fi
+
+echo "$ac_t""$ac_cv_header_stdc" 1>&6
+if test $ac_cv_header_stdc = yes; then
+ cat >> confdefs.h <<\EOF
+#define STDC_HEADERS 1
+EOF
+
+fi
+
+ for ac_hdr in string.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:2067: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2072 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:2077: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+fi
+
+
+ALL_LINGUAS="he"
+echo $ac_n "checking for working const""... $ac_c" 1>&6
+echo "configure:2108: checking for working const" >&5
+if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
cat > conftest.$ac_ext <<EOF
-#line 1349 "configure"
+#line 2113 "configure"
#include "confdefs.h"
-#define _LARGE_FILES 1
-#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
-
-
int main() {
+/* Ultrix mips cc rejects this. */
+typedef int charset[2]; const charset x;
+/* SunOS 4.1.1 cc rejects this. */
+char const *const *ccp;
+char **p;
+/* NEC SVR4.0.2 mips cc rejects this. */
+struct point {int x, y;};
+static struct point const zero = {0,0};
+/* AIX XL C 1.02.0.0 rejects this.
+ It does not let you subtract one const X* pointer from another in an arm
+ of an if-expression whose if-part is not a constant expression */
+const char *g = "string";
+ccp = &g + (g ? g-g : 0);
+/* HPUX 7.0 cc rejects these. */
+++ccp;
+p = (char**) ccp;
+ccp = (char const *const *) p;
+{ /* SCO 3.2v4 cc rejects this. */
+ char *t;
+ char const *s = 0 ? (char *) 0 : (char const *) 0;
+
+ *t++ = 0;
+}
+{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */
+ int x[] = {25, 17};
+ const int *foo = &x[0];
+ ++foo;
+}
+{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */
+ typedef const int *iptr;
+ iptr p = 0;
+ ++p;
+}
+{ /* AIX XL C 1.02.0.0 rejects this saying
+ "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */
+ struct s { int j; const int *ap[3]; };
+ struct s *b; b->j = 5;
+}
+{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */
+ const int foo = 10;
+}
+
; return 0; }
EOF
-if { (eval echo configure:1361: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:2162: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
- gawk_cv_sys_large_files=1
+ ac_cv_c_const=yes
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ ac_cv_c_const=no
fi
rm -f conftest*
fi
+
+echo "$ac_t""$ac_cv_c_const" 1>&6
+if test $ac_cv_c_const = no; then
+ cat >> confdefs.h <<\EOF
+#define const
+EOF
+
+fi
+
+echo $ac_n "checking for inline""... $ac_c" 1>&6
+echo "configure:2183: checking for inline" >&5
+if eval "test \"`echo '$''{'ac_cv_c_inline'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_cv_c_inline=no
+for ac_kw in inline __inline__ __inline; do
+ cat > conftest.$ac_ext <<EOF
+#line 2190 "configure"
+#include "confdefs.h"
+
+int main() {
+} $ac_kw foo() {
+; return 0; }
+EOF
+if { (eval echo configure:2197: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+ rm -rf conftest*
+ ac_cv_c_inline=$ac_kw; break
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+fi
rm -f conftest*
+done
+
fi
-echo "$ac_t""$gawk_cv_sys_large_files" 1>&6
- if test "$gawk_cv_sys_large_files" != no; then
- cat >> confdefs.h <<EOF
-#define _LARGE_FILES $gawk_cv_sys_large_files
+echo "$ac_t""$ac_cv_c_inline" 1>&6
+case "$ac_cv_c_inline" in
+ inline | yes) ;;
+ no) cat >> confdefs.h <<\EOF
+#define inline
+EOF
+ ;;
+ *) cat >> confdefs.h <<EOF
+#define inline $ac_cv_c_inline
EOF
+ ;;
+esac
- fi
- echo $ac_n "checking for _XOPEN_SOURCE value needed for large files""... $ac_c" 1>&6
-echo "configure:1381: checking for _XOPEN_SOURCE value needed for large files" >&5
-if eval "test \"`echo '$''{'gawk_cv_sys_xopen_source'+set}'`\" = set"; then
+echo $ac_n "checking for off_t""... $ac_c" 1>&6
+echo "configure:2223: checking for off_t" >&5
+if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- gawk_cv_sys_xopen_source=no
- cat > conftest.$ac_ext <<EOF
-#line 1387 "configure"
+ cat > conftest.$ac_ext <<EOF
+#line 2228 "configure"
#include "confdefs.h"
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
-
-#include <stdio.h>
-
+#if STDC_HEADERS
+#include <stdlib.h>
+#include <stddef.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "(^|[^a-zA-Z_0-9])off_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then
+ rm -rf conftest*
+ ac_cv_type_off_t=yes
+else
+ rm -rf conftest*
+ ac_cv_type_off_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_off_t" 1>&6
+if test $ac_cv_type_off_t = no; then
+ cat >> confdefs.h <<\EOF
+#define off_t long
+EOF
+
+fi
+
+echo $ac_n "checking for size_t""... $ac_c" 1>&6
+echo "configure:2256: checking for size_t" >&5
+if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2261 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#include <stddef.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then
+ rm -rf conftest*
+ ac_cv_type_size_t=yes
+else
+ rm -rf conftest*
+ ac_cv_type_size_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_size_t" 1>&6
+if test $ac_cv_type_size_t = no; then
+ cat >> confdefs.h <<\EOF
+#define size_t unsigned
+EOF
+
+fi
+
+# The Ultrix 4.2 mips builtin alloca declared by alloca.h only works
+# for constant arguments. Useless!
+echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6
+echo "configure:2291: checking for working alloca.h" >&5
+if eval "test \"`echo '$''{'ac_cv_header_alloca_h'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2296 "configure"
+#include "confdefs.h"
+#include <alloca.h>
int main() {
-return !ftello;
+char *p = alloca(2 * sizeof(int));
; return 0; }
EOF
-if { (eval echo configure:1398: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- :
+if { (eval echo configure:2303: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ ac_cv_header_alloca_h=yes
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
+ ac_cv_header_alloca_h=no
+fi
+rm -f conftest*
+fi
+
+echo "$ac_t""$ac_cv_header_alloca_h" 1>&6
+if test $ac_cv_header_alloca_h = yes; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_ALLOCA_H 1
+EOF
+
+fi
+
+echo $ac_n "checking for alloca""... $ac_c" 1>&6
+echo "configure:2324: checking for alloca" >&5
+if eval "test \"`echo '$''{'ac_cv_func_alloca_works'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
cat > conftest.$ac_ext <<EOF
-#line 1405 "configure"
+#line 2329 "configure"
#include "confdefs.h"
-#define _XOPEN_SOURCE 500
+
+#ifdef __GNUC__
+# define alloca __builtin_alloca
+#else
+# ifdef _MSC_VER
+# include <malloc.h>
+# define alloca _alloca
+# else
+# if HAVE_ALLOCA_H
+# include <alloca.h>
+# else
+# ifdef _AIX
+ #pragma alloca
+# else
+# ifndef alloca /* predefined by HP cc +Olibcalls */
+char *alloca ();
+# endif
+# endif
+# endif
+# endif
+#endif
+
+int main() {
+char *p = (char *) alloca(1);
+; return 0; }
+EOF
+if { (eval echo configure:2357: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ ac_cv_func_alloca_works=yes
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ ac_cv_func_alloca_works=no
+fi
+rm -f conftest*
+fi
+
+echo "$ac_t""$ac_cv_func_alloca_works" 1>&6
+if test $ac_cv_func_alloca_works = yes; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_ALLOCA 1
+EOF
+
+fi
+
+if test $ac_cv_func_alloca_works = no; then
+ # The SVR3 libPW and SVR4 libucb both contain incompatible functions
+ # that cause trouble. Some versions do not even contain alloca or
+ # contain a buggy version. If you still want to use their alloca,
+ # use ar to extract alloca.o from them instead of compiling alloca.c.
+ ALLOCA=alloca.${ac_objext}
+ cat >> confdefs.h <<\EOF
+#define C_ALLOCA 1
+EOF
+
+
+echo $ac_n "checking whether alloca needs Cray hooks""... $ac_c" 1>&6
+echo "configure:2389: checking whether alloca needs Cray hooks" >&5
+if eval "test \"`echo '$''{'ac_cv_os_cray'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2394 "configure"
+#include "confdefs.h"
+#if defined(CRAY) && ! defined(CRAY2)
+webecray
+#else
+wenotbecray
+#endif
+
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "webecray" >/dev/null 2>&1; then
+ rm -rf conftest*
+ ac_cv_os_cray=yes
+else
+ rm -rf conftest*
+ ac_cv_os_cray=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_os_cray" 1>&6
+if test $ac_cv_os_cray = yes; then
+for ac_func in _getb67 GETB67 getb67; do
+ echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:2419: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2424 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $ac_func(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char $ac_func();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:2447: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ cat >> confdefs.h <<EOF
+#define CRAY_STACKSEG_END $ac_func
+EOF
+
+ break
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+done
+fi
+
+echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6
+echo "configure:2474: checking stack direction for C alloca" >&5
+if eval "test \"`echo '$''{'ac_cv_c_stack_direction'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ if test "$cross_compiling" = yes; then
+ ac_cv_c_stack_direction=0
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2482 "configure"
+#include "confdefs.h"
+find_stack_direction ()
+{
+ static char *addr = 0;
+ auto char dummy;
+ if (addr == 0)
+ {
+ addr = &dummy;
+ return find_stack_direction ();
+ }
+ else
+ return (&dummy > addr) ? 1 : -1;
+}
+main ()
+{
+ exit (find_stack_direction() < 0);
+}
+EOF
+if { (eval echo configure:2501: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+then
+ ac_cv_c_stack_direction=1
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -fr conftest*
+ ac_cv_c_stack_direction=-1
+fi
+rm -fr conftest*
+fi
+
+fi
+
+echo "$ac_t""$ac_cv_c_stack_direction" 1>&6
+cat >> confdefs.h <<EOF
+#define STACK_DIRECTION $ac_cv_c_stack_direction
+EOF
+
+fi
+
+for ac_hdr in unistd.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:2526: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2531 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:2536: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+for ac_func in getpagesize
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:2565: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2570 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $ac_func(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char $ac_func();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:2593: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+echo $ac_n "checking for working mmap""... $ac_c" 1>&6
+echo "configure:2618: checking for working mmap" >&5
+if eval "test \"`echo '$''{'ac_cv_func_mmap_fixed_mapped'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ if test "$cross_compiling" = yes; then
+ ac_cv_func_mmap_fixed_mapped=no
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2626 "configure"
+#include "confdefs.h"
+
+/* Thanks to Mike Haertel and Jim Avera for this test.
+ Here is a matrix of mmap possibilities:
+ mmap private not fixed
+ mmap private fixed at somewhere currently unmapped
+ mmap private fixed at somewhere already mapped
+ mmap shared not fixed
+ mmap shared fixed at somewhere currently unmapped
+ mmap shared fixed at somewhere already mapped
+ For private mappings, we should verify that changes cannot be read()
+ back from the file, nor mmap's back from the file at a different
+ address. (There have been systems where private was not correctly
+ implemented like the infamous i386 svr4.0, and systems where the
+ VM page cache was not coherent with the filesystem buffer cache
+ like early versions of FreeBSD and possibly contemporary NetBSD.)
+ For shared mappings, we should conversely verify that changes get
+ propogated back to all the places they're supposed to be.
+
+ Grep wants private fixed already mapped.
+ The main things grep needs to know about mmap are:
+ * does it exist and is it safe to write into the mmap'd area
+ * how to use it (BSD variants) */
#include <sys/types.h>
- int a[(off_t) 9223372036854775807 == 9223372036854775807 ? 1 : -1];
-
-#include <stdio.h>
-
+#include <fcntl.h>
+#include <sys/mman.h>
+
+/* This mess was copied from the GNU getpagesize.h. */
+#ifndef HAVE_GETPAGESIZE
+# ifdef HAVE_UNISTD_H
+# include <unistd.h>
+# endif
+
+/* Assume that all systems that can run configure have sys/param.h. */
+# ifndef HAVE_SYS_PARAM_H
+# define HAVE_SYS_PARAM_H 1
+# endif
+
+# ifdef _SC_PAGESIZE
+# define getpagesize() sysconf(_SC_PAGESIZE)
+# else /* no _SC_PAGESIZE */
+# ifdef HAVE_SYS_PARAM_H
+# include <sys/param.h>
+# ifdef EXEC_PAGESIZE
+# define getpagesize() EXEC_PAGESIZE
+# else /* no EXEC_PAGESIZE */
+# ifdef NBPG
+# define getpagesize() NBPG * CLSIZE
+# ifndef CLSIZE
+# define CLSIZE 1
+# endif /* no CLSIZE */
+# else /* no NBPG */
+# ifdef NBPC
+# define getpagesize() NBPC
+# else /* no NBPC */
+# ifdef PAGESIZE
+# define getpagesize() PAGESIZE
+# endif /* PAGESIZE */
+# endif /* no NBPC */
+# endif /* no NBPG */
+# endif /* no EXEC_PAGESIZE */
+# else /* no HAVE_SYS_PARAM_H */
+# define getpagesize() 8192 /* punt totally */
+# endif /* no HAVE_SYS_PARAM_H */
+# endif /* no _SC_PAGESIZE */
+
+#endif /* no HAVE_GETPAGESIZE */
+
+#ifdef __cplusplus
+extern "C" { void *malloc(unsigned); }
+#else
+char *malloc();
+#endif
+
+int
+main()
+{
+ char *data, *data2, *data3;
+ int i, pagesize;
+ int fd;
+
+ pagesize = getpagesize();
+
+ /*
+ * First, make a file with some known garbage in it.
+ */
+ data = malloc(pagesize);
+ if (!data)
+ exit(1);
+ for (i = 0; i < pagesize; ++i)
+ *(data + i) = rand();
+ umask(0);
+ fd = creat("conftestmmap", 0600);
+ if (fd < 0)
+ exit(1);
+ if (write(fd, data, pagesize) != pagesize)
+ exit(1);
+ close(fd);
+
+ /*
+ * Next, try to mmap the file at a fixed address which
+ * already has something else allocated at it. If we can,
+ * also make sure that we see the same garbage.
+ */
+ fd = open("conftestmmap", O_RDWR);
+ if (fd < 0)
+ exit(1);
+ data2 = malloc(2 * pagesize);
+ if (!data2)
+ exit(1);
+ data2 += (pagesize - ((int) data2 & (pagesize - 1))) & (pagesize - 1);
+ if (data2 != mmap(data2, pagesize, PROT_READ | PROT_WRITE,
+ MAP_PRIVATE | MAP_FIXED, fd, 0L))
+ exit(1);
+ for (i = 0; i < pagesize; ++i)
+ if (*(data + i) != *(data2 + i))
+ exit(1);
+
+ /*
+ * Finally, make sure that changes to the mapped area
+ * do not percolate back to the file as seen by read().
+ * (This is a bug on some variants of i386 svr4.0.)
+ */
+ for (i = 0; i < pagesize; ++i)
+ *(data2 + i) = *(data2 + i) + 1;
+ data3 = malloc(pagesize);
+ if (!data3)
+ exit(1);
+ if (read(fd, data3, pagesize) != pagesize)
+ exit(1);
+ for (i = 0; i < pagesize; ++i)
+ if (*(data + i) != *(data3 + i))
+ exit(1);
+ close(fd);
+ unlink("conftestmmap");
+ exit(0);
+}
+
+EOF
+if { (eval echo configure:2766: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+then
+ ac_cv_func_mmap_fixed_mapped=yes
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -fr conftest*
+ ac_cv_func_mmap_fixed_mapped=no
+fi
+rm -fr conftest*
+fi
+
+fi
+
+echo "$ac_t""$ac_cv_func_mmap_fixed_mapped" 1>&6
+if test $ac_cv_func_mmap_fixed_mapped = yes; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_MMAP 1
+EOF
+
+fi
+
+
+ for ac_hdr in argz.h limits.h locale.h nl_types.h malloc.h string.h \
+unistd.h sys/param.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:2794: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2799 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:2804: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+ for ac_func in getcwd munmap putenv setenv setlocale strchr strcasecmp \
+strdup __argz_count __argz_stringify __argz_next
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:2834: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2839 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $ac_func(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char $ac_func();
+
int main() {
-return !ftello;
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
; return 0; }
EOF
-if { (eval echo configure:1417: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:2862: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
- gawk_cv_sys_xopen_source=500
+ eval "ac_cv_func_$ac_func=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=no"
fi
rm -f conftest*
fi
+
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+
+ if test "${ac_cv_func_stpcpy+set}" != "set"; then
+ for ac_func in stpcpy
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:2891: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 2896 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $ac_func(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char $ac_func();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:2919: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=no"
+fi
rm -f conftest*
fi
-echo "$ac_t""$gawk_cv_sys_xopen_source" 1>&6
- if test "$gawk_cv_sys_xopen_source" != no; then
- cat >> confdefs.h <<EOF
-#define _XOPEN_SOURCE $gawk_cv_sys_xopen_source
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
fi
+ if test "${ac_cv_func_stpcpy}" = "yes"; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_STPCPY 1
+EOF
+
fi
-
-echo $ac_n "checking for AIX compilation hacks""... $ac_c" 1>&6
-echo "configure:1440: checking for AIX compilation hacks" >&5
-if eval "test \"`echo '$''{'gawk_cv_aix_hack'+set}'`\" = set"; then
+ if test $ac_cv_header_locale_h = yes; then
+ echo $ac_n "checking for LC_MESSAGES""... $ac_c" 1>&6
+echo "configure:2953: checking for LC_MESSAGES" >&5
+if eval "test \"`echo '$''{'am_cv_val_LC_MESSAGES'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
-
-if test -d /lpp/bos
-then
- CFLAGS="$CFLAGS -D_XOPEN_SOURCE_EXTENDED=1"
- gawk_cv_aix_hack=yes
+ cat > conftest.$ac_ext <<EOF
+#line 2958 "configure"
+#include "confdefs.h"
+#include <locale.h>
+int main() {
+return LC_MESSAGES
+; return 0; }
+EOF
+if { (eval echo configure:2965: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ am_cv_val_LC_MESSAGES=yes
else
- gawk_cv_aix_hack=no
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ am_cv_val_LC_MESSAGES=no
fi
+rm -f conftest*
+fi
+
+echo "$ac_t""$am_cv_val_LC_MESSAGES" 1>&6
+ if test $am_cv_val_LC_MESSAGES = yes; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_LC_MESSAGES 1
+EOF
+ fi
+ fi
+ echo $ac_n "checking whether NLS is requested""... $ac_c" 1>&6
+echo "configure:2986: checking whether NLS is requested" >&5
+ # Check whether --enable-nls or --disable-nls was given.
+if test "${enable_nls+set}" = set; then
+ enableval="$enable_nls"
+ USE_NLS=$enableval
+else
+ USE_NLS=yes
fi
-echo "$ac_t""${gawk_cv_aix_hack}" 1>&6
+ echo "$ac_t""$USE_NLS" 1>&6
+
-if test "$ISC" = 1 # will be set by test for ISC
-then
- CFLAGS="$CFLAGS -D_SYSV3"
+ USE_INCLUDED_LIBINTL=no
+
+ if test "$USE_NLS" = "yes"; then
+ cat >> confdefs.h <<\EOF
+#define ENABLE_NLS 1
+EOF
+
+ echo $ac_n "checking whether included gettext is requested""... $ac_c" 1>&6
+echo "configure:3006: checking whether included gettext is requested" >&5
+ # Check whether --with-included-gettext or --without-included-gettext was given.
+if test "${with_included_gettext+set}" = set; then
+ withval="$with_included_gettext"
+ nls_cv_force_use_gnu_gettext=$withval
+else
+ nls_cv_force_use_gnu_gettext=no
fi
+ echo "$ac_t""$nls_cv_force_use_gnu_gettext" 1>&6
+
+ nls_cv_use_gnu_gettext="$nls_cv_force_use_gnu_gettext"
+ if test "$nls_cv_force_use_gnu_gettext" != "yes"; then
+ nls_cv_header_intl=
+ nls_cv_header_libgt=
+ CATOBJEXT=NONE
+
+ ac_safe=`echo "libintl.h" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for libintl.h""... $ac_c" 1>&6
+echo "configure:3025: checking for libintl.h" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 3030 "configure"
+#include "confdefs.h"
+#include <libintl.h>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:3035: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ echo $ac_n "checking for gettext in libc""... $ac_c" 1>&6
+echo "configure:3052: checking for gettext in libc" >&5
+if eval "test \"`echo '$''{'gt_cv_func_gettext_libc'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 3057 "configure"
+#include "confdefs.h"
+#include <libintl.h>
+int main() {
+return (int) gettext ("")
+; return 0; }
+EOF
+if { (eval echo configure:3064: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ gt_cv_func_gettext_libc=yes
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ gt_cv_func_gettext_libc=no
+fi
+rm -f conftest*
+fi
+
+echo "$ac_t""$gt_cv_func_gettext_libc" 1>&6
+
+ if test "$gt_cv_func_gettext_libc" != "yes"; then
+ echo $ac_n "checking for bindtextdomain in -lintl""... $ac_c" 1>&6
+echo "configure:3080: checking for bindtextdomain in -lintl" >&5
+ac_lib_var=`echo intl'_'bindtextdomain | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_save_LIBS="$LIBS"
+LIBS="-lintl $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 3088 "configure"
+#include "confdefs.h"
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char bindtextdomain();
+
+int main() {
+bindtextdomain()
+; return 0; }
+EOF
+if { (eval echo configure:3099: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ echo $ac_n "checking for gettext in -lintl""... $ac_c" 1>&6
+echo "configure:3115: checking for gettext in -lintl" >&5
+ac_lib_var=`echo intl'_'gettext | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_save_LIBS="$LIBS"
+LIBS="-lintl $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 3123 "configure"
+#include "confdefs.h"
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char gettext();
+
+int main() {
+gettext()
+; return 0; }
+EOF
+if { (eval echo configure:3134: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_lib=HAVE_LIB`echo intl | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+ -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_lib 1
+EOF
+
+ LIBS="-lintl $LIBS"
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ fi
+
+ if test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$ac_cv_lib_intl_gettext" = "yes"; then
+ cat >> confdefs.h <<\EOF
+#define HAVE_GETTEXT 1
+EOF
+
+ # Extract the first word of "msgfmt", so it can be a program name with args.
+set dummy msgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3176: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_MSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$MSGFMT" in
+ /*)
+ ac_cv_path_MSGFMT="$MSGFMT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"; then
+ ac_cv_path_MSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_MSGFMT" && ac_cv_path_MSGFMT="no"
+ ;;
+esac
+fi
+MSGFMT="$ac_cv_path_MSGFMT"
+if test -n "$MSGFMT"; then
+ echo "$ac_t""$MSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+ if test "$MSGFMT" != "no"; then
+ for ac_func in dcgettext
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:3210: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 3215 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char $ac_func(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char $ac_func();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:3238: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+ # Extract the first word of "gmsgfmt", so it can be a program name with args.
+set dummy gmsgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3265: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_GMSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$GMSGFMT" in
+ /*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a path.
+ ;;
+ ?:/*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a dos path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_path_GMSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_GMSGFMT" && ac_cv_path_GMSGFMT="$MSGFMT"
+ ;;
+esac
+fi
+GMSGFMT="$ac_cv_path_GMSGFMT"
+if test -n "$GMSGFMT"; then
+ echo "$ac_t""$GMSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ # Extract the first word of "xgettext", so it can be a program name with args.
+set dummy xgettext; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3301: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_XGETTEXT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$XGETTEXT" in
+ /*)
+ ac_cv_path_XGETTEXT="$XGETTEXT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"; then
+ ac_cv_path_XGETTEXT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_XGETTEXT" && ac_cv_path_XGETTEXT=":"
+ ;;
+esac
+fi
+XGETTEXT="$ac_cv_path_XGETTEXT"
+if test -n "$XGETTEXT"; then
+ echo "$ac_t""$XGETTEXT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ cat > conftest.$ac_ext <<EOF
+#line 3333 "configure"
+#include "confdefs.h"
+
+int main() {
+extern int _nl_msg_cat_cntr;
+ return _nl_msg_cat_cntr
+; return 0; }
+EOF
+if { (eval echo configure:3341: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ CATOBJEXT=.gmo
+ DATADIRNAME=share
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ CATOBJEXT=.mo
+ DATADIRNAME=lib
+fi
+rm -f conftest*
+ INSTOBJEXT=.mo
+ fi
+ fi
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+
+ if test "$CATOBJEXT" = "NONE"; then
+ echo $ac_n "checking whether catgets can be used""... $ac_c" 1>&6
+echo "configure:3364: checking whether catgets can be used" >&5
+ # Check whether --with-catgets or --without-catgets was given.
+if test "${with_catgets+set}" = set; then
+ withval="$with_catgets"
+ nls_cv_use_catgets=$withval
+else
+ nls_cv_use_catgets=no
+fi
+
+ echo "$ac_t""$nls_cv_use_catgets" 1>&6
+
+ if test "$nls_cv_use_catgets" = "yes"; then
+ echo $ac_n "checking for main in -li""... $ac_c" 1>&6
+echo "configure:3377: checking for main in -li" >&5
+ac_lib_var=`echo i'_'main | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_save_LIBS="$LIBS"
+LIBS="-li $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 3385 "configure"
+#include "confdefs.h"
+
+int main() {
+main()
+; return 0; }
+EOF
+if { (eval echo configure:3392: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_lib=HAVE_LIB`echo i | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+ -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_lib 1
+EOF
+
+ LIBS="-li $LIBS"
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ echo $ac_n "checking for catgets""... $ac_c" 1>&6
+echo "configure:3420: checking for catgets" >&5
+if eval "test \"`echo '$''{'ac_cv_func_catgets'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 3425 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char catgets(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char catgets();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_catgets) || defined (__stub___catgets)
+choke me
+#else
+catgets();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:3448: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_catgets=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_catgets=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'catgets`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ cat >> confdefs.h <<\EOF
+#define HAVE_CATGETS 1
+EOF
+
+ INTLOBJS="\$(CATOBJS)"
+ # Extract the first word of "gencat", so it can be a program name with args.
+set dummy gencat; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3470: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_GENCAT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$GENCAT" in
+ /*)
+ ac_cv_path_GENCAT="$GENCAT" # Let the user override the test with a path.
+ ;;
+ ?:/*)
+ ac_cv_path_GENCAT="$GENCAT" # Let the user override the test with a dos path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_path_GENCAT="$ac_dir/$ac_word"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_GENCAT" && ac_cv_path_GENCAT="no"
+ ;;
+esac
+fi
+GENCAT="$ac_cv_path_GENCAT"
+if test -n "$GENCAT"; then
+ echo "$ac_t""$GENCAT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+ if test "$GENCAT" != "no"; then
+ # Extract the first word of "gmsgfmt", so it can be a program name with args.
+set dummy gmsgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3506: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_GMSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$GMSGFMT" in
+ /*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a path.
+ ;;
+ ?:/*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a dos path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_path_GMSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_GMSGFMT" && ac_cv_path_GMSGFMT="no"
+ ;;
+esac
+fi
+GMSGFMT="$ac_cv_path_GMSGFMT"
+if test -n "$GMSGFMT"; then
+ echo "$ac_t""$GMSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ if test "$GMSGFMT" = "no"; then
+ # Extract the first word of "msgfmt", so it can be a program name with args.
+set dummy msgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3543: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_GMSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$GMSGFMT" in
+ /*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"; then
+ ac_cv_path_GMSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_GMSGFMT" && ac_cv_path_GMSGFMT="no"
+ ;;
+esac
+fi
+GMSGFMT="$ac_cv_path_GMSGFMT"
+if test -n "$GMSGFMT"; then
+ echo "$ac_t""$GMSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ fi
+ # Extract the first word of "xgettext", so it can be a program name with args.
+set dummy xgettext; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3578: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_XGETTEXT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$XGETTEXT" in
+ /*)
+ ac_cv_path_XGETTEXT="$XGETTEXT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"; then
+ ac_cv_path_XGETTEXT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_XGETTEXT" && ac_cv_path_XGETTEXT=":"
+ ;;
+esac
+fi
+XGETTEXT="$ac_cv_path_XGETTEXT"
+if test -n "$XGETTEXT"; then
+ echo "$ac_t""$XGETTEXT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.cat
+ INSTOBJEXT=.cat
+ DATADIRNAME=lib
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ fi
+ fi
+
+ if (test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$gt_cv_func_gettext_libintl" = "yes") \
+ && test "$ac_cv_func_dcgettext" = no; then
+ nls_cv_use_gnu_gettext=yes
+ elif test "$CATOBJEXT" = "NONE"; then
+ nls_cv_use_gnu_gettext=yes
+ fi
+ fi
+
+ if test "$nls_cv_use_gnu_gettext" = "yes"; then
+ INTLOBJS="\$(GETTOBJS)"
+ # Extract the first word of "msgfmt", so it can be a program name with args.
+set dummy msgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3640: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_MSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$MSGFMT" in
+ /*)
+ ac_cv_path_MSGFMT="$MSGFMT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"; then
+ ac_cv_path_MSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_MSGFMT" && ac_cv_path_MSGFMT="msgfmt"
+ ;;
+esac
+fi
+MSGFMT="$ac_cv_path_MSGFMT"
+if test -n "$MSGFMT"; then
+ echo "$ac_t""$MSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ # Extract the first word of "gmsgfmt", so it can be a program name with args.
+set dummy gmsgfmt; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3674: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_GMSGFMT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$GMSGFMT" in
+ /*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a path.
+ ;;
+ ?:/*)
+ ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a dos path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":"
+ ac_dummy="$PATH"
+ for ac_dir in $ac_dummy; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ ac_cv_path_GMSGFMT="$ac_dir/$ac_word"
+ break
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_GMSGFMT" && ac_cv_path_GMSGFMT="$MSGFMT"
+ ;;
+esac
+fi
+GMSGFMT="$ac_cv_path_GMSGFMT"
+if test -n "$GMSGFMT"; then
+ echo "$ac_t""$GMSGFMT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+ # Extract the first word of "xgettext", so it can be a program name with args.
+set dummy xgettext; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:3710: checking for $ac_word" >&5
+if eval "test \"`echo '$''{'ac_cv_path_XGETTEXT'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ case "$XGETTEXT" in
+ /*)
+ ac_cv_path_XGETTEXT="$XGETTEXT" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in $PATH; do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"; then
+ ac_cv_path_XGETTEXT="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+ test -z "$ac_cv_path_XGETTEXT" && ac_cv_path_XGETTEXT=":"
+ ;;
+esac
+fi
+XGETTEXT="$ac_cv_path_XGETTEXT"
+if test -n "$XGETTEXT"; then
+ echo "$ac_t""$XGETTEXT" 1>&6
+else
+ echo "$ac_t""no" 1>&6
+fi
+
+
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.gmo
+ INSTOBJEXT=.mo
+ DATADIRNAME=share
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+
+ if test "$XGETTEXT" != ":"; then
+ if $XGETTEXT --omit-header /dev/null 2> /dev/null; then
+ : ;
+ else
+ echo "$ac_t""found xgettext program is not GNU xgettext; ignore it" 1>&6
+ XGETTEXT=":"
+ fi
+ fi
+
+ # We need to process the po/ directory.
+ POSUB=po
+ else
+ DATADIRNAME=share
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+ if test -z "$nls_cv_header_intl"; then
+ # Clean out junk possibly left behind by a previous configuration.
+ rm -f intl/libintl.h
+ fi
+
+
+
+
+ # If this is used in GNU gettext we have to set USE_NLS to `yes'
+ # because some of the sources are only built for this goal.
+ if test "$PACKAGE" = gettext; then
+ USE_NLS=yes
+ USE_INCLUDED_LIBINTL=yes
+ fi
+
+ for lang in $ALL_LINGUAS; do
+ GMOFILES="$GMOFILES $lang.gmo"
+ POFILES="$POFILES $lang.po"
+ done
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ if test "x$CATOBJEXT" != "x"; then
+ if test "x$ALL_LINGUAS" = "x"; then
+ LINGUAS=
+ else
+ echo $ac_n "checking for catalogs to be installed""... $ac_c" 1>&6
+echo "configure:3807: checking for catalogs to be installed" >&5
+ NEW_LINGUAS=
+ for lang in ${LINGUAS=$ALL_LINGUAS}; do
+ case "$ALL_LINGUAS" in
+ *$lang*) NEW_LINGUAS="$NEW_LINGUAS $lang" ;;
+ esac
+ done
+ LINGUAS=$NEW_LINGUAS
+ echo "$ac_t""$LINGUAS" 1>&6
+ fi
+
+ if test -n "$LINGUAS"; then
+ for lang in $LINGUAS; do CATALOGS="$CATALOGS $lang$CATOBJEXT"; done
+ fi
+ fi
+
+ if test $ac_cv_header_locale_h = yes; then
+ INCLUDE_LOCALE_H="#include <locale.h>"
+ else
+ INCLUDE_LOCALE_H="\
+/* The system does not provide the header <locale.h>. Take care yourself. */"
+ fi
+
+
+ test -d intl || mkdir intl
+ if test "$CATOBJEXT" = ".cat"; then
+ ac_safe=`echo "linux/version.h" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for linux/version.h""... $ac_c" 1>&6
+echo "configure:3835: checking for linux/version.h" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 3840 "configure"
+#include "confdefs.h"
+#include <linux/version.h>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:3845: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ msgformat=linux
+else
+ echo "$ac_t""no" 1>&6
+msgformat=xopen
+fi
+
+
+ sed -e '/^#/d' $srcdir/intl/$msgformat-msg.sed > intl/po2msg.sed
+ fi
+ sed -e '/^#.*[^\\]$/d' -e '/^#$/d' \
+ $srcdir/intl/po2tbl.sed.in > intl/po2tbl.sed
+
+ if test "$PACKAGE" = "gettext"; then
+ GT_NO="#NO#"
+ GT_YES=
+ else
+ GT_NO=
+ GT_YES="#YES#"
+ fi
+
+
+
+ MKINSTALLDIRS=
+ if test -n "$ac_aux_dir"; then
+ MKINSTALLDIRS="$ac_aux_dir/mkinstalldirs"
+ fi
+ if test -z "$MKINSTALLDIRS"; then
+ MKINSTALLDIRS="\$(top_srcdir)/mkinstalldirs"
+ fi
+
+
+ l=
+
+
+ test -d po || mkdir po
+ case "$srcdir" in
+ .)
+ posrcprefix="../" ;;
+ /* | [A-Za-z]:*)
+ posrcprefix="$srcdir/" ;;
+ *)
+ posrcprefix="../$srcdir/" ;;
+ esac
+ rm -f po/POTFILES
+ sed -e "/^#/d" -e "/^\$/d" -e "s,.*, $posrcprefix& \\\\," -e "\$s/\(.*\) \\\\/\1/" \
+ < $srcdir/po/POTFILES.in > po/POTFILES
+
+
echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
-echo "configure:1463: checking for ANSI C header files" >&5
+echo "configure:3910: checking for ANSI C header files" >&5
if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1468 "configure"
+#line 3915 "configure"
#include "confdefs.h"
#include <stdlib.h>
#include <stdarg.h>
@@ -1472,7 +3919,7 @@ else
#include <float.h>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1476: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:3923: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -1489,7 +3936,7 @@ rm -f conftest*
if test $ac_cv_header_stdc = yes; then
# SunOS 4.x string.h does not declare mem*, contrary to ANSI.
cat > conftest.$ac_ext <<EOF
-#line 1493 "configure"
+#line 3940 "configure"
#include "confdefs.h"
#include <string.h>
EOF
@@ -1507,7 +3954,7 @@ fi
if test $ac_cv_header_stdc = yes; then
# ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
cat > conftest.$ac_ext <<EOF
-#line 1511 "configure"
+#line 3958 "configure"
#include "confdefs.h"
#include <stdlib.h>
EOF
@@ -1528,7 +3975,7 @@ if test "$cross_compiling" = yes; then
:
else
cat > conftest.$ac_ext <<EOF
-#line 1532 "configure"
+#line 3979 "configure"
#include "confdefs.h"
#include <ctype.h>
#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
@@ -1539,7 +3986,7 @@ if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
exit (0); }
EOF
-if { (eval echo configure:1543: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:3990: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
then
:
else
@@ -1563,12 +4010,12 @@ EOF
fi
echo $ac_n "checking for sys/wait.h that is POSIX.1 compatible""... $ac_c" 1>&6
-echo "configure:1567: checking for sys/wait.h that is POSIX.1 compatible" >&5
+echo "configure:4014: checking for sys/wait.h that is POSIX.1 compatible" >&5
if eval "test \"`echo '$''{'ac_cv_header_sys_wait_h'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1572 "configure"
+#line 4019 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <sys/wait.h>
@@ -1584,7 +4031,7 @@ wait (&s);
s = WIFEXITED (s) ? WEXITSTATUS (s) : 1;
; return 0; }
EOF
-if { (eval echo configure:1588: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:4035: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_header_sys_wait_h=yes
else
@@ -1604,21 +4051,23 @@ EOF
fi
-for ac_hdr in limits.h locale.h stdarg.h unistd.h signum.h sys/param.h string.h
+for ac_hdr in fcntl.h limits.h locale.h libintl.h mcheck.h \
+ netdb.h netinet/in.h signum.h stdarg.h string.h \
+ sys/param.h sys/socket.h unistd.h
do
ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:1612: checking for $ac_hdr" >&5
+echo "configure:4061: checking for $ac_hdr" >&5
if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1617 "configure"
+#line 4066 "configure"
#include "confdefs.h"
#include <$ac_hdr>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1622: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:4071: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -1644,23 +4093,24 @@ else
fi
done
+
if test "$ac_cv_header_string_h" = yes
then
for ac_hdr in memory.h
do
ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:1654: checking for $ac_hdr" >&5
+echo "configure:4104: checking for $ac_hdr" >&5
if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1659 "configure"
+#line 4109 "configure"
#include "confdefs.h"
#include <$ac_hdr>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1664: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:4114: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -1691,17 +4141,17 @@ else
do
ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:1695: checking for $ac_hdr" >&5
+echo "configure:4145: checking for $ac_hdr" >&5
if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1700 "configure"
+#line 4150 "configure"
#include "confdefs.h"
#include <$ac_hdr>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1705: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:4155: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -1730,12 +4180,12 @@ done
fi
echo $ac_n "checking for pid_t""... $ac_c" 1>&6
-echo "configure:1734: checking for pid_t" >&5
+echo "configure:4184: checking for pid_t" >&5
if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1739 "configure"
+#line 4189 "configure"
#include "confdefs.h"
#include <sys/types.h>
#if STDC_HEADERS
@@ -1763,12 +4213,12 @@ EOF
fi
echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6
-echo "configure:1767: checking return type of signal handlers" >&5
+echo "configure:4217: checking return type of signal handlers" >&5
if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1772 "configure"
+#line 4222 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <signal.h>
@@ -1785,7 +4235,7 @@ int main() {
int i;
; return 0; }
EOF
-if { (eval echo configure:1789: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:4239: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_type_signal=void
else
@@ -1804,12 +4254,12 @@ EOF
echo $ac_n "checking for size_t""... $ac_c" 1>&6
-echo "configure:1808: checking for size_t" >&5
+echo "configure:4258: checking for size_t" >&5
if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1813 "configure"
+#line 4263 "configure"
#include "confdefs.h"
#include <sys/types.h>
#if STDC_HEADERS
@@ -1837,12 +4287,12 @@ EOF
fi
echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6
-echo "configure:1841: checking for uid_t in sys/types.h" >&5
+echo "configure:4291: checking for uid_t in sys/types.h" >&5
if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1846 "configure"
+#line 4296 "configure"
#include "confdefs.h"
#include <sys/types.h>
EOF
@@ -1871,7 +4321,7 @@ EOF
fi
echo $ac_n "checking type of array argument to getgroups""... $ac_c" 1>&6
-echo "configure:1875: checking type of array argument to getgroups" >&5
+echo "configure:4325: checking type of array argument to getgroups" >&5
if eval "test \"`echo '$''{'ac_cv_type_getgroups'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -1879,7 +4329,7 @@ else
ac_cv_type_getgroups=cross
else
cat > conftest.$ac_ext <<EOF
-#line 1883 "configure"
+#line 4333 "configure"
#include "confdefs.h"
/* Thanks to Mike Rendell for this test. */
@@ -1904,7 +4354,7 @@ main()
}
EOF
-if { (eval echo configure:1908: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4358: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
then
ac_cv_type_getgroups=gid_t
else
@@ -1918,7 +4368,7 @@ fi
if test $ac_cv_type_getgroups = cross; then
cat > conftest.$ac_ext <<EOF
-#line 1922 "configure"
+#line 4372 "configure"
#include "confdefs.h"
#include <unistd.h>
EOF
@@ -1941,8 +4391,84 @@ cat >> confdefs.h <<EOF
EOF
+
+ for ac_hdr in unistd.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:4400: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 4405 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:4410: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
+
+ echo $ac_n "checking for ssize_t""... $ac_c" 1>&6
+echo "configure:4437: checking for ssize_t" >&5
+if eval "test \"`echo '$''{'ac_cv_type_ssize_t'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 4442 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#include <stddef.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+ egrep "(^|[^a-zA-Z_0-9])ssize_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then
+ rm -rf conftest*
+ ac_cv_type_ssize_t=yes
+else
+ rm -rf conftest*
+ ac_cv_type_ssize_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_ssize_t" 1>&6
+if test $ac_cv_type_ssize_t = no; then
+ cat >> confdefs.h <<\EOF
+#define ssize_t int
+EOF
+
+fi
+
+
+
cat > conftest.$ac_ext <<EOF
-#line 1946 "configure"
+#line 4472 "configure"
#include "confdefs.h"
#include <stdio.h>
EOF
@@ -1963,146 +4489,165 @@ fi
rm -f conftest*
-if test "$YACC" = "bison -y" ||
- { test -f $srcdir/awktab.c && grep 'alloca *(' $srcdir/awktab.c > /dev/null; }
-then
- # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works
-# for constant arguments. Useless!
-echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6
-echo "configure:1973: checking for working alloca.h" >&5
-if eval "test \"`echo '$''{'ac_cv_header_alloca_h'+set}'`\" = set"; then
+cat >> confdefs.h <<\EOF
+#define REGEX_MALLOC 1
+EOF
+
+echo $ac_n "checking for vprintf""... $ac_c" 1>&6
+echo "configure:4498: checking for vprintf" >&5
+if eval "test \"`echo '$''{'ac_cv_func_vprintf'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 1978 "configure"
+#line 4503 "configure"
#include "confdefs.h"
-#include <alloca.h>
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char vprintf(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char vprintf();
+
int main() {
-char *p = alloca(2 * sizeof(int));
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_vprintf) || defined (__stub___vprintf)
+choke me
+#else
+vprintf();
+#endif
+
; return 0; }
EOF
-if { (eval echo configure:1985: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4526: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
- ac_cv_header_alloca_h=yes
+ eval "ac_cv_func_vprintf=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
- ac_cv_header_alloca_h=no
+ eval "ac_cv_func_vprintf=no"
fi
rm -f conftest*
fi
-echo "$ac_t""$ac_cv_header_alloca_h" 1>&6
-if test $ac_cv_header_alloca_h = yes; then
+if eval "test \"`echo '$ac_cv_func_'vprintf`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
cat >> confdefs.h <<\EOF
-#define HAVE_ALLOCA_H 1
+#define HAVE_VPRINTF 1
EOF
+else
+ echo "$ac_t""no" 1>&6
fi
-echo $ac_n "checking for alloca""... $ac_c" 1>&6
-echo "configure:2006: checking for alloca" >&5
-if eval "test \"`echo '$''{'ac_cv_func_alloca_works'+set}'`\" = set"; then
+if test "$ac_cv_func_vprintf" != yes; then
+echo $ac_n "checking for _doprnt""... $ac_c" 1>&6
+echo "configure:4550: checking for _doprnt" >&5
+if eval "test \"`echo '$''{'ac_cv_func__doprnt'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2011 "configure"
+#line 4555 "configure"
#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char _doprnt(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char _doprnt();
-#ifdef __GNUC__
-# define alloca __builtin_alloca
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub__doprnt) || defined (__stub____doprnt)
+choke me
#else
-# ifdef _MSC_VER
-# include <malloc.h>
-# define alloca _alloca
-# else
-# if HAVE_ALLOCA_H
-# include <alloca.h>
-# else
-# ifdef _AIX
- #pragma alloca
-# else
-# ifndef alloca /* predefined by HP cc +Olibcalls */
-char *alloca ();
-# endif
-# endif
-# endif
-# endif
+_doprnt();
#endif
-int main() {
-char *p = (char *) alloca(1);
; return 0; }
EOF
-if { (eval echo configure:2039: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4578: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
- ac_cv_func_alloca_works=yes
+ eval "ac_cv_func__doprnt=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
- ac_cv_func_alloca_works=no
+ eval "ac_cv_func__doprnt=no"
fi
rm -f conftest*
fi
-echo "$ac_t""$ac_cv_func_alloca_works" 1>&6
-if test $ac_cv_func_alloca_works = yes; then
+if eval "test \"`echo '$ac_cv_func_'_doprnt`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
cat >> confdefs.h <<\EOF
-#define HAVE_ALLOCA 1
+#define HAVE_DOPRNT 1
EOF
+else
+ echo "$ac_t""no" 1>&6
fi
-if test $ac_cv_func_alloca_works = no; then
- # The SVR3 libPW and SVR4 libucb both contain incompatible functions
- # that cause trouble. Some versions do not even contain alloca or
- # contain a buggy version. If you still want to use their alloca,
- # use ar to extract alloca.o from them instead of compiling alloca.c.
- ALLOCA=alloca.${ac_objext}
- cat >> confdefs.h <<\EOF
-#define C_ALLOCA 1
-EOF
+fi
-echo $ac_n "checking whether alloca needs Cray hooks""... $ac_c" 1>&6
-echo "configure:2071: checking whether alloca needs Cray hooks" >&5
-if eval "test \"`echo '$''{'ac_cv_os_cray'+set}'`\" = set"; then
+for ac_hdr in stdlib.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:4607: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2076 "configure"
+#line 4612 "configure"
#include "confdefs.h"
-#if defined(CRAY) && ! defined(CRAY2)
-webecray
-#else
-wenotbecray
-#endif
-
+#include <$ac_hdr>
EOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- egrep "webecray" >/dev/null 2>&1; then
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:4617: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
rm -rf conftest*
- ac_cv_os_cray=yes
+ eval "ac_cv_header_$ac_safe=yes"
else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
rm -rf conftest*
- ac_cv_os_cray=no
+ eval "ac_cv_header_$ac_safe=no"
fi
rm -f conftest*
-
fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
+else
+ echo "$ac_t""no" 1>&6
+fi
+done
-echo "$ac_t""$ac_cv_os_cray" 1>&6
-if test $ac_cv_os_cray = yes; then
-for ac_func in _getb67 GETB67 getb67; do
- echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:2101: checking for $ac_func" >&5
+for ac_func in strtod
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:4646: checking for $ac_func" >&5
if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2106 "configure"
+#line 4651 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char $ac_func(); below. */
@@ -2125,7 +4670,7 @@ $ac_func();
; return 0; }
EOF
-if { (eval echo configure:2129: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4674: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_$ac_func=yes"
else
@@ -2139,180 +4684,389 @@ fi
if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
echo "$ac_t""yes" 1>&6
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
cat >> confdefs.h <<EOF
-#define CRAY_STACKSEG_END $ac_func
+#define $ac_tr_func 1
EOF
-
- break
+
else
echo "$ac_t""no" 1>&6
fi
-
done
-fi
-echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6
-echo "configure:2156: checking stack direction for C alloca" >&5
-if eval "test \"`echo '$''{'ac_cv_c_stack_direction'+set}'`\" = set"; then
+echo $ac_n "checking for strtod with C89 semantics""... $ac_c" 1>&6
+echo "configure:4699: checking for strtod with C89 semantics" >&5
+if eval "test \"`echo '$''{'gawk_ac_cv_func_strtod_c89'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test "$cross_compiling" = yes; then
- ac_cv_c_stack_direction=0
+ gawk_ac_cv_func_strtod_c89=no
else
cat > conftest.$ac_ext <<EOF
-#line 2164 "configure"
+#line 4707 "configure"
#include "confdefs.h"
-find_stack_direction ()
-{
- static char *addr = 0;
- auto char dummy;
- if (addr == 0)
- {
- addr = &dummy;
- return find_stack_direction ();
- }
- else
- return (&dummy > addr) ? 1 : -1;
-}
+/* Test program from Arnold Robbins (arnold@skeeve.com) */
+#if HAVE_STDLIB_H
+#include <stdlib.h>
+#else
+extern double strtod();
+#endif
+
+int
main ()
{
- exit (find_stack_direction() < 0);
+#if ! HAVE_STRTOD
+ exit(1);
+#else
+ double d;
+ char *str = "0x345a";
+
+ d = strtod(str, 0);
+ if (d == 0)
+ exit (0);
+ else
+ exit (1);
}
EOF
-if { (eval echo configure:2183: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4732: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
then
- ac_cv_c_stack_direction=1
+ gawk_ac_cv_func_strtod_c89=yes
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -fr conftest*
- ac_cv_c_stack_direction=-1
+ gawk_ac_cv_func_strtod_c89=no
fi
rm -fr conftest*
fi
fi
-echo "$ac_t""$ac_cv_c_stack_direction" 1>&6
-cat >> confdefs.h <<EOF
-#define STACK_DIRECTION $ac_cv_c_stack_direction
+echo "$ac_t""$gawk_ac_cv_func_strtod_c89" 1>&6
+if test $gawk_ac_cv_func_strtod_c89 = no; then
+ cat >> confdefs.h <<\EOF
+#define STRTOD_NOT_C89 1
EOF
fi
-fi
-cat >> confdefs.h <<\EOF
-#define REGEX_MALLOC 1
-EOF
-
-echo $ac_n "checking for vprintf""... $ac_c" 1>&6
-echo "configure:2210: checking for vprintf" >&5
-if eval "test \"`echo '$''{'ac_cv_func_vprintf'+set}'`\" = set"; then
+echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6
+echo "configure:4755: checking whether time.h and sys/time.h may both be included" >&5
+if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2215 "configure"
+#line 4760 "configure"
#include "confdefs.h"
-/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char vprintf(); below. */
-#include <assert.h>
-/* Override any gcc2 internal prototype to avoid an error. */
-/* We use char because int might match the return type of a gcc2
- builtin and then its argument prototype would still apply. */
-char vprintf();
-
+#include <sys/types.h>
+#include <sys/time.h>
+#include <time.h>
int main() {
-
-/* The GNU C library defines this for functions which it implements
- to always fail with ENOSYS. Some functions are actually named
- something starting with __ and the normal name is an alias. */
-#if defined (__stub_vprintf) || defined (__stub___vprintf)
-choke me
-#else
-vprintf();
-#endif
-
+struct tm *tp;
; return 0; }
EOF
-if { (eval echo configure:2238: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4769: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
- eval "ac_cv_func_vprintf=yes"
+ ac_cv_header_time=yes
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
- eval "ac_cv_func_vprintf=no"
+ ac_cv_header_time=no
fi
rm -f conftest*
fi
-if eval "test \"`echo '$ac_cv_func_'vprintf`\" = yes"; then
- echo "$ac_t""yes" 1>&6
+echo "$ac_t""$ac_cv_header_time" 1>&6
+if test $ac_cv_header_time = yes; then
cat >> confdefs.h <<\EOF
-#define HAVE_VPRINTF 1
+#define TIME_WITH_SYS_TIME 1
EOF
+fi
+
+for ac_hdr in sys/time.h unistd.h
+do
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:4793: checking for $ac_hdr" >&5
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ cat > conftest.$ac_ext <<EOF
+#line 4798 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+{ (eval echo configure:4803: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
+if test -z "$ac_err"; then
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=yes"
+else
+ echo "$ac_err" >&5
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+
else
echo "$ac_t""no" 1>&6
fi
+done
-if test "$ac_cv_func_vprintf" != yes; then
-echo $ac_n "checking for _doprnt""... $ac_c" 1>&6
-echo "configure:2262: checking for _doprnt" >&5
-if eval "test \"`echo '$''{'ac_cv_func__doprnt'+set}'`\" = set"; then
+for ac_func in alarm
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:4832: checking for $ac_func" >&5
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2267 "configure"
+#line 4837 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char _doprnt(); below. */
+ which can conflict with char $ac_func(); below. */
#include <assert.h>
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
-char _doprnt();
+char $ac_func();
int main() {
/* The GNU C library defines this for functions which it implements
to always fail with ENOSYS. Some functions are actually named
something starting with __ and the normal name is an alias. */
-#if defined (__stub__doprnt) || defined (__stub____doprnt)
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
choke me
#else
-_doprnt();
+$ac_func();
#endif
; return 0; }
EOF
-if { (eval echo configure:2290: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4860: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
- eval "ac_cv_func__doprnt=yes"
+ eval "ac_cv_func_$ac_func=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
- eval "ac_cv_func__doprnt=no"
+ eval "ac_cv_func_$ac_func=no"
fi
rm -f conftest*
fi
-if eval "test \"`echo '$ac_cv_func_'_doprnt`\" = yes"; then
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
echo "$ac_t""yes" 1>&6
- cat >> confdefs.h <<\EOF
-#define HAVE_DOPRNT 1
+ ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+ cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
EOF
-
+
else
echo "$ac_t""no" 1>&6
fi
+done
+
+echo $ac_n "checking for working mktime""... $ac_c" 1>&6
+echo "configure:4885: checking for working mktime" >&5
+if eval "test \"`echo '$''{'ac_cv_func_working_mktime'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ if test "$cross_compiling" = yes; then
+ ac_cv_func_working_mktime=no
+else
+ cat > conftest.$ac_ext <<EOF
+#line 4893 "configure"
+#include "confdefs.h"
+/* Test program from Paul Eggert (eggert@twinsun.com)
+ and Tony Leneis (tony@plaza.ds.adp.com). */
+#if TIME_WITH_SYS_TIME
+# include <sys/time.h>
+# include <time.h>
+#else
+# if HAVE_SYS_TIME_H
+# include <sys/time.h>
+# else
+# include <time.h>
+# endif
+#endif
+
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+
+#if !HAVE_ALARM
+# define alarm(X) /* empty */
+#endif
+
+/* Work around redefinition to rpl_putenv by other config tests. */
+#undef putenv
+
+static time_t time_t_max;
+
+/* Values we'll use to set the TZ environment variable. */
+static const char *const tz_strings[] = {
+ (const char *) 0, "TZ=GMT0", "TZ=JST-9",
+ "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
+};
+#define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
+
+/* Fail if mktime fails to convert a date in the spring-forward gap.
+ Based on a problem report from Andreas Jaeger. */
+static void
+spring_forward_gap ()
+{
+ /* glibc (up to about 1998-10-07) failed this test) */
+ struct tm tm;
+
+ /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
+ instead of "TZ=America/Vancouver" in order to detect the bug even
+ on systems that don't support the Olson extension, or don't have the
+ full zoneinfo tables installed. */
+ putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
+
+ tm.tm_year = 98;
+ tm.tm_mon = 3;
+ tm.tm_mday = 5;
+ tm.tm_hour = 2;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ if (mktime (&tm) == (time_t)-1)
+ exit (1);
+}
+
+static void
+mktime_test (now)
+ time_t now;
+{
+ struct tm *lt;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+ now = time_t_max - now;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+}
+
+static void
+irix_6_4_bug ()
+{
+ /* Based on code from Ariel Faigon. */
+ struct tm tm;
+ tm.tm_year = 96;
+ tm.tm_mon = 3;
+ tm.tm_mday = 0;
+ tm.tm_hour = 0;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ mktime (&tm);
+ if (tm.tm_mon != 2 || tm.tm_mday != 31)
+ exit (1);
+}
+
+static void
+bigtime_test (j)
+ int j;
+{
+ struct tm tm;
+ time_t now;
+ tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j;
+ now = mktime (&tm);
+ if (now != (time_t) -1)
+ {
+ struct tm *lt = localtime (&now);
+ if (! (lt
+ && lt->tm_year == tm.tm_year
+ && lt->tm_mon == tm.tm_mon
+ && lt->tm_mday == tm.tm_mday
+ && lt->tm_hour == tm.tm_hour
+ && lt->tm_min == tm.tm_min
+ && lt->tm_sec == tm.tm_sec
+ && lt->tm_yday == tm.tm_yday
+ && lt->tm_wday == tm.tm_wday
+ && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst)
+ == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst))))
+ exit (1);
+ }
+}
+
+int
+main ()
+{
+ time_t t, delta;
+ int i, j;
+
+ /* This test makes some buggy mktime implementations loop.
+ Give up after 60 seconds; a mktime slower than that
+ isn't worth using anyway. */
+ alarm (60);
+
+ for (time_t_max = 1; 0 < time_t_max; time_t_max *= 2)
+ continue;
+ time_t_max--;
+ delta = time_t_max / 997; /* a suitable prime number */
+ for (i = 0; i < N_STRINGS; i++)
+ {
+ if (tz_strings[i])
+ putenv (tz_strings[i]);
+
+ for (t = 0; t <= time_t_max - delta; t += delta)
+ mktime_test (t);
+ mktime_test ((time_t) 60 * 60);
+ mktime_test ((time_t) 60 * 60 * 24);
+
+ for (j = 1; 0 < j; j *= 2)
+ bigtime_test (j);
+ bigtime_test (j - 1);
+ }
+ irix_6_4_bug ();
+ spring_forward_gap ();
+ exit (0);
+}
+EOF
+if { (eval echo configure:5042: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+then
+ ac_cv_func_working_mktime=yes
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -fr conftest*
+ ac_cv_func_working_mktime=no
+fi
+rm -fr conftest*
+fi
fi
+echo "$ac_t""$ac_cv_func_working_mktime" 1>&6
+if test $ac_cv_func_working_mktime = no; then
+ LIBOBJS="$LIBOBJS mktime.${ac_objext}"
+fi
+
+case "$ac_cv_func_working_mktime" in
+yes) cat >> confdefs.h <<\EOF
+#define HAVE_MKTIME 1
+EOF
+
+ ;;
+esac
echo $ac_n "checking for fmod in -lm""... $ac_c" 1>&6
-echo "configure:2316: checking for fmod in -lm" >&5
+echo "configure:5070: checking for fmod in -lm" >&5
ac_lib_var=`echo m'_'fmod | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
@@ -2320,7 +5074,7 @@ else
ac_save_LIBS="$LIBS"
LIBS="-lm $LIBS"
cat > conftest.$ac_ext <<EOF
-#line 2324 "configure"
+#line 5078 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@@ -2331,7 +5085,7 @@ int main() {
fmod()
; return 0; }
EOF
-if { (eval echo configure:2335: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5089: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@@ -2358,16 +5112,16 @@ else
echo "$ac_t""no" 1>&6
fi
-for ac_func in madvise memset memcpy memcmp fmod setlocale strchr strerror \
- strftime strncasecmp strtod system tzset
+for ac_func in memset memcpy memcmp fmod setlocale strchr strerror \
+ strftime strncasecmp strtod system tzset
do
echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:2366: checking for $ac_func" >&5
+echo "configure:5120: checking for $ac_func" >&5
if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2371 "configure"
+#line 5125 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char $ac_func(); below. */
@@ -2390,7 +5144,7 @@ $ac_func();
; return 0; }
EOF
-if { (eval echo configure:2394: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5148: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_$ac_func=yes"
else
@@ -2415,21 +5169,19 @@ fi
done
-for ac_hdr in unistd.h
-do
-ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
-echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:2423: checking for $ac_hdr" >&5
+ac_safe=`echo "dlfcn.h" | sed 'y%./+-%__p_%'`
+echo $ac_n "checking for dlfcn.h""... $ac_c" 1>&6
+echo "configure:5175: checking for dlfcn.h" >&5
if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2428 "configure"
+#line 5180 "configure"
#include "confdefs.h"
-#include <$ac_hdr>
+#include <dlfcn.h>
EOF
ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:2433: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:5185: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
if test -z "$ac_err"; then
rm -rf conftest*
@@ -2445,268 +5197,74 @@ rm -f conftest*
fi
if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
echo "$ac_t""yes" 1>&6
- ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
- cat >> confdefs.h <<EOF
-#define $ac_tr_hdr 1
-EOF
-
-else
- echo "$ac_t""no" 1>&6
-fi
-done
-
-for ac_func in getpagesize
-do
-echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:2462: checking for $ac_func" >&5
-if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+ echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6
+echo "configure:5202: checking for dlopen in -ldl" >&5
+ac_lib_var=`echo dl'_'dlopen | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- cat > conftest.$ac_ext <<EOF
-#line 2467 "configure"
+ ac_save_LIBS="$LIBS"
+LIBS="-ldl $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 5210 "configure"
#include "confdefs.h"
-/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char $ac_func(); below. */
-#include <assert.h>
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
-char $ac_func();
+char dlopen();
int main() {
-
-/* The GNU C library defines this for functions which it implements
- to always fail with ENOSYS. Some functions are actually named
- something starting with __ and the normal name is an alias. */
-#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
-choke me
-#else
-$ac_func();
-#endif
-
+dlopen()
; return 0; }
EOF
-if { (eval echo configure:2490: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5221: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
- eval "ac_cv_func_$ac_func=yes"
+ eval "ac_cv_lib_$ac_lib_var=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
rm -rf conftest*
- eval "ac_cv_func_$ac_func=no"
+ eval "ac_cv_lib_$ac_lib_var=no"
fi
rm -f conftest*
-fi
+LIBS="$ac_save_LIBS"
-if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
echo "$ac_t""yes" 1>&6
- ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
- cat >> confdefs.h <<EOF
-#define $ac_tr_func 1
+ cat >> confdefs.h <<\EOF
+#define DYNAMIC 1
EOF
-
-else
- echo "$ac_t""no" 1>&6
-fi
-done
-
-echo $ac_n "checking for working mmap""... $ac_c" 1>&6
-echo "configure:2515: checking for working mmap" >&5
-if eval "test \"`echo '$''{'ac_cv_func_mmap_fixed_mapped'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- if test "$cross_compiling" = yes; then
- ac_cv_func_mmap_fixed_mapped=no
-else
- cat > conftest.$ac_ext <<EOF
-#line 2523 "configure"
-#include "confdefs.h"
-
-/* Thanks to Mike Haertel and Jim Avera for this test.
- Here is a matrix of mmap possibilities:
- mmap private not fixed
- mmap private fixed at somewhere currently unmapped
- mmap private fixed at somewhere already mapped
- mmap shared not fixed
- mmap shared fixed at somewhere currently unmapped
- mmap shared fixed at somewhere already mapped
- For private mappings, we should verify that changes cannot be read()
- back from the file, nor mmap's back from the file at a different
- address. (There have been systems where private was not correctly
- implemented like the infamous i386 svr4.0, and systems where the
- VM page cache was not coherent with the filesystem buffer cache
- like early versions of FreeBSD and possibly contemporary NetBSD.)
- For shared mappings, we should conversely verify that changes get
- propogated back to all the places they're supposed to be.
-
- Grep wants private fixed already mapped.
- The main things grep needs to know about mmap are:
- * does it exist and is it safe to write into the mmap'd area
- * how to use it (BSD variants) */
-#include <sys/types.h>
-#include <fcntl.h>
-#include <sys/mman.h>
-
-/* This mess was copied from the GNU getpagesize.h. */
-#ifndef HAVE_GETPAGESIZE
-# ifdef HAVE_UNISTD_H
-# include <unistd.h>
-# endif
-
-/* Assume that all systems that can run configure have sys/param.h. */
-# ifndef HAVE_SYS_PARAM_H
-# define HAVE_SYS_PARAM_H 1
-# endif
-
-# ifdef _SC_PAGESIZE
-# define getpagesize() sysconf(_SC_PAGESIZE)
-# else /* no _SC_PAGESIZE */
-# ifdef HAVE_SYS_PARAM_H
-# include <sys/param.h>
-# ifdef EXEC_PAGESIZE
-# define getpagesize() EXEC_PAGESIZE
-# else /* no EXEC_PAGESIZE */
-# ifdef NBPG
-# define getpagesize() NBPG * CLSIZE
-# ifndef CLSIZE
-# define CLSIZE 1
-# endif /* no CLSIZE */
-# else /* no NBPG */
-# ifdef NBPC
-# define getpagesize() NBPC
-# else /* no NBPC */
-# ifdef PAGESIZE
-# define getpagesize() PAGESIZE
-# endif /* PAGESIZE */
-# endif /* no NBPC */
-# endif /* no NBPG */
-# endif /* no EXEC_PAGESIZE */
-# else /* no HAVE_SYS_PARAM_H */
-# define getpagesize() 8192 /* punt totally */
-# endif /* no HAVE_SYS_PARAM_H */
-# endif /* no _SC_PAGESIZE */
-
-#endif /* no HAVE_GETPAGESIZE */
-
-#ifdef __cplusplus
-extern "C" { void *malloc(unsigned); }
-#else
-char *malloc();
-#endif
-
-int
-main()
-{
- char *data, *data2, *data3;
- int i, pagesize;
- int fd;
-
- pagesize = getpagesize();
-
- /*
- * First, make a file with some known garbage in it.
- */
- data = malloc(pagesize);
- if (!data)
- exit(1);
- for (i = 0; i < pagesize; ++i)
- *(data + i) = rand();
- umask(0);
- fd = creat("conftestmmap", 0600);
- if (fd < 0)
- exit(1);
- if (write(fd, data, pagesize) != pagesize)
- exit(1);
- close(fd);
- /*
- * Next, try to mmap the file at a fixed address which
- * already has something else allocated at it. If we can,
- * also make sure that we see the same garbage.
- */
- fd = open("conftestmmap", O_RDWR);
- if (fd < 0)
- exit(1);
- data2 = malloc(2 * pagesize);
- if (!data2)
- exit(1);
- data2 += (pagesize - ((int) data2 & (pagesize - 1))) & (pagesize - 1);
- if (data2 != mmap(data2, pagesize, PROT_READ | PROT_WRITE,
- MAP_PRIVATE | MAP_FIXED, fd, 0L))
- exit(1);
- for (i = 0; i < pagesize; ++i)
- if (*(data + i) != *(data2 + i))
- exit(1);
-
- /*
- * Finally, make sure that changes to the mapped area
- * do not percolate back to the file as seen by read().
- * (This is a bug on some variants of i386 svr4.0.)
- */
- for (i = 0; i < pagesize; ++i)
- *(data2 + i) = *(data2 + i) + 1;
- data3 = malloc(pagesize);
- if (!data3)
- exit(1);
- if (read(fd, data3, pagesize) != pagesize)
- exit(1);
- for (i = 0; i < pagesize; ++i)
- if (*(data + i) != *(data3 + i))
- exit(1);
- close(fd);
- unlink("conftestmmap");
- exit(0);
-}
+ LIBS="$LIBS -ldl"
+ if test "$GCC" = yes
+ then
+ # Add others here as appropriate,
+ # one day use GNU libtool.
+ if uname | egrep -i linux > /dev/null
+ then
+ LDFLAGS="$LDFLAGS -rdynamic"
+ fi
+ fi
-EOF
-if { (eval echo configure:2663: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
-then
- ac_cv_func_mmap_fixed_mapped=yes
else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -fr conftest*
- ac_cv_func_mmap_fixed_mapped=no
-fi
-rm -fr conftest*
-fi
-
+ echo "$ac_t""no" 1>&6
fi
-echo "$ac_t""$ac_cv_func_mmap_fixed_mapped" 1>&6
-if test $ac_cv_func_mmap_fixed_mapped = yes; then
- cat >> confdefs.h <<\EOF
-#define HAVE_MMAP 1
-EOF
-
+else
+ echo "$ac_t""no" 1>&6
fi
-if (uname) > /dev/null 2>&1
-then
- case `uname` in
- *VMS*|*BeOS*)
- cat >> confdefs.h <<\EOF
+case `(uname) 2> /dev/null` in
+*VMS*|*BeOS*)
+ cat >> confdefs.h <<\EOF
#define GETPGRP_VOID 1
EOF
- ;;
- *HP-UX*) # not getpgrp related
- if test "$GCC" = yes
- then
- :
- else
- # stupid HP linker leaves the output file
- # around even when a link fails. This confuses
- # the alloca tests, so we have to do this
- # manually. Sucks big time.
- LIBS="$LIBS -lPW"
- fi
-
- # have to do the getpgrp test since won't
- # fall into the default
- echo $ac_n "checking whether getpgrp takes no argument""... $ac_c" 1>&6
-echo "configure:2710: checking whether getpgrp takes no argument" >&5
+ ;;
+*) echo $ac_n "checking whether getpgrp takes no argument""... $ac_c" 1>&6
+echo "configure:5268: checking whether getpgrp takes no argument" >&5
if eval "test \"`echo '$''{'ac_cv_func_getpgrp_void'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
@@ -2714,7 +5272,7 @@ else
{ echo "configure: error: cannot check getpgrp if cross compiling" 1>&2; exit 1; }
else
cat > conftest.$ac_ext <<EOF
-#line 2718 "configure"
+#line 5276 "configure"
#include "confdefs.h"
/*
@@ -2769,7 +5327,7 @@ main()
}
EOF
-if { (eval echo configure:2773: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5331: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
then
ac_cv_func_getpgrp_void=yes
else
@@ -2792,193 +5350,251 @@ EOF
fi
- ;;
- *) echo $ac_n "checking whether getpgrp takes no argument""... $ac_c" 1>&6
-echo "configure:2798: checking whether getpgrp takes no argument" >&5
-if eval "test \"`echo '$''{'ac_cv_func_getpgrp_void'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
+ ;;
+esac
+
+
+gawk_have_sockets=no
+# Check for system-dependent location of socket libraries
+
+SOCKET_LIBS=
+if test "$ISC" = yes; then
+ SOCKET_LIBS="-lnsl_s -linet"
else
- if test "$cross_compiling" = yes; then
- { echo "configure: error: cannot check getpgrp if cross compiling" 1>&2; exit 1; }
+ # Martyn.Johnson@cl.cam.ac.uk says this is needed for Ultrix, if the X
+ # libraries were built with DECnet support. And karl@cs.umb.edu says
+ # the Alpha needs dnet_stub (dnet does not exist).
+ #
+ # ADR: Is this needed just for sockets???
+# AC_CHECK_LIB(dnet, dnet_ntoa, [SOCKET_LIBS="$SOCKET_LIBS -ldnet"])
+# if test $ac_cv_lib_dnet_ntoa = no; then
+# AC_CHECK_LIB(dnet_stub, dnet_ntoa,
+# [SOCKET_LIBS="$SOCKET_LIBS -ldnet_stub"])
+# fi
+
+ # msh@cis.ufl.edu says -lnsl (and -lsocket) are needed for his 386/AT,
+ # to get the SysV transport functions.
+ # chad@anasazi.com says the Pyramid MIS-ES running DC/OSx (SVR4)
+ # needs -lnsl.
+ # The nsl library prevents programs from opening the X display
+ # on Irix 5.2, according to dickey@clark.net.
+ echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6
+echo "configure:5383: checking for gethostbyname" >&5
+if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2806 "configure"
+#line 5388 "configure"
#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char gethostbyname(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char gethostbyname();
-/*
- * If this system has a BSD-style getpgrp(),
- * which takes a pid argument, exit unsuccessfully.
- *
- * Snarfed from Chet Ramey's bash pgrp.c test program
- */
-#include <stdio.h>
-#include <sys/types.h>
-
-int pid;
-int pg1, pg2, pg3, pg4;
-int ng, np, s, child;
-
-main()
-{
- pid = getpid();
- pg1 = getpgrp(0);
- pg2 = getpgrp();
- pg3 = getpgrp(pid);
- pg4 = getpgrp(1);
-
- /*
- * If all of these values are the same, it's pretty sure that
- * we're on a system that ignores getpgrp's first argument.
- */
- if (pg2 == pg4 && pg1 == pg3 && pg2 == pg3)
- exit(0);
+int main() {
- child = fork();
- if (child < 0)
- exit(1);
- else if (child == 0) {
- np = getpid();
- /*
- * If this is Sys V, this will not work; pgrp will be
- * set to np because setpgrp just changes a pgrp to be
- * the same as the pid.
- */
- setpgrp(np, pg1);
- ng = getpgrp(0); /* Same result for Sys V and BSD */
- if (ng == pg1) {
- exit(1);
- } else {
- exit(0);
- }
- } else {
- wait(&s);
- exit(s>>8);
- }
-}
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_gethostbyname) || defined (__stub___gethostbyname)
+choke me
+#else
+gethostbyname();
+#endif
+; return 0; }
EOF
-if { (eval echo configure:2861: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
-then
- ac_cv_func_getpgrp_void=yes
+if { (eval echo configure:5411: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_gethostbyname=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
- rm -fr conftest*
- ac_cv_func_getpgrp_void=no
+ rm -rf conftest*
+ eval "ac_cv_func_gethostbyname=no"
fi
-rm -fr conftest*
+rm -f conftest*
fi
-
+if eval "test \"`echo '$ac_cv_func_'gethostbyname`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ :
+else
+ echo "$ac_t""no" 1>&6
fi
-echo "$ac_t""$ac_cv_func_getpgrp_void" 1>&6
-if test $ac_cv_func_getpgrp_void = yes; then
- cat >> confdefs.h <<\EOF
-#define GETPGRP_VOID 1
-EOF
+ if test $ac_cv_func_gethostbyname = no; then
+ echo $ac_n "checking for gethostbyname in -lnsl""... $ac_c" 1>&6
+echo "configure:5432: checking for gethostbyname in -lnsl" >&5
+ac_lib_var=`echo nsl'_'gethostbyname | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_save_LIBS="$LIBS"
+LIBS="-lnsl $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 5440 "configure"
+#include "confdefs.h"
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char gethostbyname();
+int main() {
+gethostbyname()
+; return 0; }
+EOF
+if { (eval echo configure:5451: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=no"
fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
- ;;
- esac
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ SOCKET_LIBS="$SOCKET_LIBS -lnsl"
else
- echo $ac_n "checking whether getpgrp takes no argument""... $ac_c" 1>&6
-echo "configure:2888: checking whether getpgrp takes no argument" >&5
-if eval "test \"`echo '$''{'ac_cv_func_getpgrp_void'+set}'`\" = set"; then
+ echo "$ac_t""no" 1>&6
+fi
+
+ fi
+
+ # lieder@skyler.mavd.honeywell.com says without -lsocket,
+ # socket/setsockopt and other routines are undefined under SCO ODT
+ # 2.0. But -lsocket is broken on IRIX 5.2 (and is not necessary
+ # on later versions), says simon@lia.di.epfl.ch: it contains
+ # gethostby* variants that don't use the nameserver (or something).
+ # -lsocket must be given before -lnsl if both are needed.
+ # We assume that if connect needs -lnsl, so does gethostbyname.
+ echo $ac_n "checking for connect""... $ac_c" 1>&6
+echo "configure:5481: checking for connect" >&5
+if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
- if test "$cross_compiling" = yes; then
- { echo "configure: error: cannot check getpgrp if cross compiling" 1>&2; exit 1; }
-else
cat > conftest.$ac_ext <<EOF
-#line 2896 "configure"
+#line 5486 "configure"
#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+ which can conflict with char connect(); below. */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char connect();
-/*
- * If this system has a BSD-style getpgrp(),
- * which takes a pid argument, exit unsuccessfully.
- *
- * Snarfed from Chet Ramey's bash pgrp.c test program
- */
-#include <stdio.h>
-#include <sys/types.h>
+int main() {
-int pid;
-int pg1, pg2, pg3, pg4;
-int ng, np, s, child;
+/* The GNU C library defines this for functions which it implements
+ to always fail with ENOSYS. Some functions are actually named
+ something starting with __ and the normal name is an alias. */
+#if defined (__stub_connect) || defined (__stub___connect)
+choke me
+#else
+connect();
+#endif
-main()
-{
- pid = getpid();
- pg1 = getpgrp(0);
- pg2 = getpgrp();
- pg3 = getpgrp(pid);
- pg4 = getpgrp(1);
+; return 0; }
+EOF
+if { (eval echo configure:5509: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_func_connect=yes"
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+ rm -rf conftest*
+ eval "ac_cv_func_connect=no"
+fi
+rm -f conftest*
+fi
- /*
- * If all of these values are the same, it's pretty sure that
- * we're on a system that ignores getpgrp's first argument.
- */
- if (pg2 == pg4 && pg1 == pg3 && pg2 == pg3)
- exit(0);
+if eval "test \"`echo '$ac_cv_func_'connect`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ :
+else
+ echo "$ac_t""no" 1>&6
+fi
- child = fork();
- if (child < 0)
- exit(1);
- else if (child == 0) {
- np = getpid();
- /*
- * If this is Sys V, this will not work; pgrp will be
- * set to np because setpgrp just changes a pgrp to be
- * the same as the pid.
- */
- setpgrp(np, pg1);
- ng = getpgrp(0); /* Same result for Sys V and BSD */
- if (ng == pg1) {
- exit(1);
- } else {
- exit(0);
- }
- } else {
- wait(&s);
- exit(s>>8);
- }
-}
+ if test $ac_cv_func_connect = no; then
+ echo $ac_n "checking for connect in -lsocket""... $ac_c" 1>&6
+echo "configure:5530: checking for connect in -lsocket" >&5
+ac_lib_var=`echo socket'_'connect | sed 'y%./+-%__p_%'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_save_LIBS="$LIBS"
+LIBS="-lsocket $SOCKET_LIBS $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 5538 "configure"
+#include "confdefs.h"
+/* Override any gcc2 internal prototype to avoid an error. */
+/* We use char because int might match the return type of a gcc2
+ builtin and then its argument prototype would still apply. */
+char connect();
+int main() {
+connect()
+; return 0; }
EOF
-if { (eval echo configure:2951: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
-then
- ac_cv_func_getpgrp_void=yes
+if { (eval echo configure:5549: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=yes"
else
echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5
- rm -fr conftest*
- ac_cv_func_getpgrp_void=no
-fi
-rm -fr conftest*
+ rm -rf conftest*
+ eval "ac_cv_lib_$ac_lib_var=no"
fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+ echo "$ac_t""yes" 1>&6
+ SOCKET_LIBS="-lsocket $SOCKET_LIBS"
+ gawk_have_sockets=yes
+else
+ echo "$ac_t""no" 1>&6
+fi
+ else
+ gawk_have_sockets=yes
+ fi
fi
-echo "$ac_t""$ac_cv_func_getpgrp_void" 1>&6
-if test $ac_cv_func_getpgrp_void = yes; then
- cat >> confdefs.h <<\EOF
-#define GETPGRP_VOID 1
+if test "${gawk_have_sockets}" = "yes"
+then
+ echo $ac_n "checking where to find the socket library calls""... $ac_c" 1>&6
+echo "configure:5578: checking where to find the socket library calls" >&5
+ case "${SOCKET_LIBS}" in
+ ?*) gawk_lib_loc="${SOCKET_LIBS}" ;;
+ *) gawk_lib_loc="the standard library" ;;
+ esac
+ echo "$ac_t""${gawk_lib_loc}" 1>&6
+
+ cat >> confdefs.h <<\EOF
+#define HAVE_SOCKETS 1
EOF
fi
-fi
echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6
-echo "configure:2977: checking for st_blksize in struct stat" >&5
+echo "configure:5593: checking for st_blksize in struct stat" >&5
if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 2982 "configure"
+#line 5598 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <sys/stat.h>
@@ -2986,7 +5602,7 @@ int main() {
struct stat s; s.st_blksize;
; return 0; }
EOF
-if { (eval echo configure:2990: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5606: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_struct_st_blksize=yes
else
@@ -3007,12 +5623,12 @@ EOF
fi
echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6
-echo "configure:3011: checking whether time.h and sys/time.h may both be included" >&5
+echo "configure:5627: checking whether time.h and sys/time.h may both be included" >&5
if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3016 "configure"
+#line 5632 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <sys/time.h>
@@ -3021,7 +5637,7 @@ int main() {
struct tm *tp;
; return 0; }
EOF
-if { (eval echo configure:3025: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5641: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_header_time=yes
else
@@ -3042,12 +5658,12 @@ EOF
fi
echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6
-echo "configure:3046: checking whether struct tm is in sys/time.h or time.h" >&5
+echo "configure:5662: checking whether struct tm is in sys/time.h or time.h" >&5
if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3051 "configure"
+#line 5667 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <time.h>
@@ -3055,7 +5671,7 @@ int main() {
struct tm *tp; tp->tm_sec;
; return 0; }
EOF
-if { (eval echo configure:3059: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5675: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_struct_tm=time.h
else
@@ -3076,12 +5692,12 @@ EOF
fi
echo $ac_n "checking for tm_zone in struct tm""... $ac_c" 1>&6
-echo "configure:3080: checking for tm_zone in struct tm" >&5
+echo "configure:5696: checking for tm_zone in struct tm" >&5
if eval "test \"`echo '$''{'ac_cv_struct_tm_zone'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3085 "configure"
+#line 5701 "configure"
#include "confdefs.h"
#include <sys/types.h>
#include <$ac_cv_struct_tm>
@@ -3089,7 +5705,7 @@ int main() {
struct tm tm; tm.tm_zone;
; return 0; }
EOF
-if { (eval echo configure:3093: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5709: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_struct_tm_zone=yes
else
@@ -3109,12 +5725,12 @@ EOF
else
echo $ac_n "checking for tzname""... $ac_c" 1>&6
-echo "configure:3113: checking for tzname" >&5
+echo "configure:5729: checking for tzname" >&5
if eval "test \"`echo '$''{'ac_cv_var_tzname'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3118 "configure"
+#line 5734 "configure"
#include "confdefs.h"
#include <time.h>
#ifndef tzname /* For SGI. */
@@ -3124,7 +5740,7 @@ int main() {
atoi(*tzname);
; return 0; }
EOF
-if { (eval echo configure:3128: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5744: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
ac_cv_var_tzname=yes
else
@@ -3147,14 +5763,14 @@ fi
echo $ac_n "checking whether char is unsigned""... $ac_c" 1>&6
-echo "configure:3151: checking whether char is unsigned" >&5
+echo "configure:5767: checking whether char is unsigned" >&5
if eval "test \"`echo '$''{'ac_cv_c_char_unsigned'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test "$GCC" = yes; then
# GCC predefines this symbol on systems where it applies.
cat > conftest.$ac_ext <<EOF
-#line 3158 "configure"
+#line 5774 "configure"
#include "confdefs.h"
#ifdef __CHAR_UNSIGNED__
yes
@@ -3176,7 +5792,7 @@ if test "$cross_compiling" = yes; then
{ echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
else
cat > conftest.$ac_ext <<EOF
-#line 3180 "configure"
+#line 5796 "configure"
#include "confdefs.h"
/* volatile prevents gcc2 from optimizing the test away on sparcs. */
#if !defined(__STDC__) || __STDC__ != 1
@@ -3186,7 +5802,7 @@ main() {
volatile char c = 255; exit(c < 0);
}
EOF
-if { (eval echo configure:3190: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5806: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
then
ac_cv_c_char_unsigned=yes
else
@@ -3210,12 +5826,12 @@ EOF
fi
echo $ac_n "checking for working const""... $ac_c" 1>&6
-echo "configure:3214: checking for working const" >&5
+echo "configure:5830: checking for working const" >&5
if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3219 "configure"
+#line 5835 "configure"
#include "confdefs.h"
int main() {
@@ -3264,7 +5880,7 @@ ccp = (char const *const *) p;
; return 0; }
EOF
-if { (eval echo configure:3268: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5884: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
ac_cv_c_const=yes
else
@@ -3284,15 +5900,55 @@ EOF
fi
+echo $ac_n "checking for inline""... $ac_c" 1>&6
+echo "configure:5905: checking for inline" >&5
+if eval "test \"`echo '$''{'ac_cv_c_inline'+set}'`\" = set"; then
+ echo $ac_n "(cached) $ac_c" 1>&6
+else
+ ac_cv_c_inline=no
+for ac_kw in inline __inline__ __inline; do
+ cat > conftest.$ac_ext <<EOF
+#line 5912 "configure"
+#include "confdefs.h"
+
+int main() {
+} $ac_kw foo() {
+; return 0; }
+EOF
+if { (eval echo configure:5919: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+ rm -rf conftest*
+ ac_cv_c_inline=$ac_kw; break
+else
+ echo "configure: failed program was:" >&5
+ cat conftest.$ac_ext >&5
+fi
+rm -f conftest*
+done
+
+fi
+
+echo "$ac_t""$ac_cv_c_inline" 1>&6
+case "$ac_cv_c_inline" in
+ inline | yes) ;;
+ no) cat >> confdefs.h <<\EOF
+#define inline
+EOF
+ ;;
+ *) cat >> confdefs.h <<EOF
+#define inline $ac_cv_c_inline
+EOF
+ ;;
+esac
+
-echo $ac_n "checking for ANSI stringizing capability""... $ac_c" 1>&6
-echo "configure:3291: checking for ANSI stringizing capability" >&5
-if eval "test \"`echo '$''{'gawk_cv_c_stringize'+set}'`\" = set"; then
+echo $ac_n "checking for preprocessor stringizing operator""... $ac_c" 1>&6
+echo "configure:5947: checking for preprocessor stringizing operator" >&5
+if eval "test \"`echo '$''{'ac_cv_c_stringize'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3296 "configure"
+#line 5952 "configure"
#include "confdefs.h"
#define x(y) #y
@@ -3303,23 +5959,23 @@ EOF
if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
egrep "#teststring" >/dev/null 2>&1; then
rm -rf conftest*
- gawk_cv_c_stringize=no
+ ac_cv_c_stringize=no
else
rm -rf conftest*
- gawk_cv_c_stringize=yes
+ ac_cv_c_stringize=yes
fi
rm -f conftest*
fi
-if test "${gawk_cv_c_stringize}" = yes
+if test "${ac_cv_c_stringize}" = yes
then
- cat >> confdefs.h <<\EOF
+ cat >> confdefs.h <<\EOF
#define HAVE_STRINGIZE 1
EOF
fi
-echo "$ac_t""${gawk_cv_c_stringize}" 1>&6
+echo "$ac_t""${ac_cv_c_stringize}" 1>&6
trap '' 1 2 15
@@ -3423,7 +6079,12 @@ done
ac_given_srcdir=$srcdir
ac_given_INSTALL="$INSTALL"
-trap 'rm -fr `echo "Makefile doc/Makefile test/Makefile awklib/Makefile config.h:configh.in" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+trap 'rm -fr `echo "Makefile \
+ awklib/Makefile \
+ doc/Makefile \
+ intl/Makefile \
+ po/Makefile.in \
+ test/Makefile config.h:configh.in" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
EOF
cat >> $CONFIG_STATUS <<EOF
@@ -3455,15 +6116,54 @@ s%@includedir@%$includedir%g
s%@oldincludedir@%$oldincludedir%g
s%@infodir@%$infodir%g
s%@mandir@%$mandir%g
-s%@YACC@%$YACC%g
-s%@LN_S@%$LN_S%g
-s%@CC@%$CC%g
-s%@CPP@%$CPP%g
s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g
s%@INSTALL_DATA@%$INSTALL_DATA%g
+s%@PACKAGE@%$PACKAGE%g
+s%@VERSION@%$VERSION%g
+s%@ACLOCAL@%$ACLOCAL%g
+s%@AUTOCONF@%$AUTOCONF%g
+s%@AUTOMAKE@%$AUTOMAKE%g
+s%@AUTOHEADER@%$AUTOHEADER%g
+s%@MAKEINFO@%$MAKEINFO%g
+s%@AMTAR@%$AMTAR%g
+s%@install_sh@%$install_sh%g
+s%@AWK@%$AWK%g
s%@SET_MAKE@%$SET_MAKE%g
+s%@AMDEP@%$AMDEP%g
+s%@AMDEPBACKSLASH@%$AMDEPBACKSLASH%g
+s%@DEPDIR@%$DEPDIR%g
+s%@YACC@%$YACC%g
+s%@LN_S@%$LN_S%g
+s%@CC@%$CC%g
+s%@CPP@%$CPP%g
+s%@CCDEPMODE@%$CCDEPMODE%g
+s%@RANLIB@%$RANLIB%g
+s%@U@%$U%g
+s%@ANSI2KNR@%$ANSI2KNR%g
s%@ALLOCA@%$ALLOCA%g
+s%@USE_NLS@%$USE_NLS%g
+s%@MSGFMT@%$MSGFMT%g
+s%@GMSGFMT@%$GMSGFMT%g
+s%@XGETTEXT@%$XGETTEXT%g
+s%@GENCAT@%$GENCAT%g
+s%@USE_INCLUDED_LIBINTL@%$USE_INCLUDED_LIBINTL%g
+s%@CATALOGS@%$CATALOGS%g
+s%@CATOBJEXT@%$CATOBJEXT%g
+s%@DATADIRNAME@%$DATADIRNAME%g
+s%@GMOFILES@%$GMOFILES%g
+s%@INSTOBJEXT@%$INSTOBJEXT%g
+s%@INTLDEPS@%$INTLDEPS%g
+s%@INTLLIBS@%$INTLLIBS%g
+s%@INTLOBJS@%$INTLOBJS%g
+s%@POFILES@%$POFILES%g
+s%@POSUB@%$POSUB%g
+s%@INCLUDE_LOCALE_H@%$INCLUDE_LOCALE_H%g
+s%@GT_NO@%$GT_NO%g
+s%@GT_YES@%$GT_YES%g
+s%@MKINSTALLDIRS@%$MKINSTALLDIRS%g
+s%@l@%$l%g
+s%@SOCKET_LIBS@%$SOCKET_LIBS%g
CEOF
EOF
@@ -3505,7 +6205,12 @@ EOF
cat >> $CONFIG_STATUS <<EOF
-CONFIG_FILES=\${CONFIG_FILES-"Makefile doc/Makefile test/Makefile awklib/Makefile"}
+CONFIG_FILES=\${CONFIG_FILES-"Makefile \
+ awklib/Makefile \
+ doc/Makefile \
+ intl/Makefile \
+ po/Makefile.in \
+ test/Makefile"}
EOF
cat >> $CONFIG_STATUS <<\EOF
for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
@@ -3672,11 +6377,111 @@ cat >> $CONFIG_STATUS <<\EOF
fi; done
EOF
+
cat >> $CONFIG_STATUS <<EOF
+ac_sources="$nls_cv_header_libgt"
+ac_dests="$nls_cv_header_intl"
+EOF
+
+cat >> $CONFIG_STATUS <<\EOF
+srcdir=$ac_given_srcdir
+while test -n "$ac_sources"; do
+ set $ac_dests; ac_dest=$1; shift; ac_dests=$*
+ set $ac_sources; ac_source=$1; shift; ac_sources=$*
+
+ echo "linking $srcdir/$ac_source to $ac_dest"
+
+ if test ! -r $srcdir/$ac_source; then
+ { echo "configure: error: $srcdir/$ac_source: File not found" 1>&2; exit 1; }
+ fi
+ rm -f $ac_dest
+
+ # Make relative symlinks.
+ # Remove last slash and all that follows it. Not all systems have dirname.
+ ac_dest_dir=`echo $ac_dest|sed 's%/[^/][^/]*$%%'`
+ if test "$ac_dest_dir" != "$ac_dest" && test "$ac_dest_dir" != .; then
+ # The dest file is in a subdirectory.
+ test ! -d "$ac_dest_dir" && mkdir "$ac_dest_dir"
+ ac_dest_dir_suffix="/`echo $ac_dest_dir|sed 's%^\./%%'`"
+ # A "../" for each directory in $ac_dest_dir_suffix.
+ ac_dots=`echo $ac_dest_dir_suffix|sed 's%/[^/]*%../%g'`
+ else
+ ac_dest_dir_suffix= ac_dots=
+ fi
+
+ case "$srcdir" in
+ [/$]*) ac_rel_source="$srcdir/$ac_source" ;;
+ *) ac_rel_source="$ac_dots$srcdir/$ac_source" ;;
+ esac
+
+ # Make a symlink if possible; otherwise try a hard link.
+ if ln -s $ac_rel_source $ac_dest 2>/dev/null ||
+ ln $srcdir/$ac_source $ac_dest; then :
+ else
+ { echo "configure: error: can not link $ac_dest to $srcdir/$ac_source" 1>&2; exit 1; }
+ fi
+done
+EOF
+cat >> $CONFIG_STATUS <<EOF
+am_indx=1
+ for am_file in config.h:configh.in; do
+ case " $CONFIG_HEADERS " in
+ *" $am_file "*)
+ echo timestamp > `echo $am_file | sed 's%:.*%%;s%[^/]*$%%'`stamp-h$am_indx
+ ;;
+ esac
+ am_indx=\`expr \$am_indx + 1\`
+ done
+AMDEP="$AMDEP"
+ac_aux_dir="$ac_aux_dir"
+
EOF
cat >> $CONFIG_STATUS <<\EOF
-date > stamp-h
+test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h
+
+test x"$AMDEP" != x"" ||
+for mf in $CONFIG_FILES; do
+ case "$mf" in
+ Makefile) dirpart=.;;
+ */Makefile) dirpart=`echo "$mf" | sed -e 's|/[^/]*$||'`;;
+ *) continue;;
+ esac
+ grep '^DEP_FILES *= *[^ #]' < "$mf" > /dev/null || continue
+ # Extract the definition of DEP_FILES from the Makefile without
+ # running `make'.
+ DEPDIR=`sed -n -e '/^DEPDIR = / s///p' < "$mf"`
+ test -z "$DEPDIR" && continue
+ # When using ansi2knr, U may be empty or an underscore; expand it
+ U=`sed -n -e '/^U = / s///p' < "$mf"`
+ test -d "$dirpart/$DEPDIR" || mkdir "$dirpart/$DEPDIR"
+ # We invoke sed twice because it is the simplest approach to
+ # changing $(DEPDIR) to its actual value in the expansion.
+ for file in `sed -n -e '
+ /^DEP_FILES = .*\\\\$/ {
+ s/^DEP_FILES = //
+ :loop
+ s/\\\\$//
+ p
+ n
+ /\\\\$/ b loop
+ p
+ }
+ /^DEP_FILES = / s/^DEP_FILES = //p' < "$mf" | \
+ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
+ # Make sure the directory exists.
+ test -f "$dirpart/$file" && continue
+ fdir=`echo "$file" | sed -e 's|/[^/]*$||'`
+ $ac_aux_dir/mkinstalldirs "$dirpart/$fdir" > /dev/null 2>&1
+ # echo "creating $dirpart/$file"
+ echo '# dummy' > "$dirpart/$file"
+ done
+done
+
+case "$CONFIG_FILES" in *po/Makefile.in*)
+ sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile
+ esac
+
exit 0
EOF
chmod +x $CONFIG_STATUS
diff --git a/configure.in b/configure.in
index 7867034f..f3de8221 100644
--- a/configure.in
+++ b/configure.in
@@ -1,21 +1,21 @@
dnl
dnl configure.in --- autoconf input file for gawk
-dnl
-dnl Copyright (C) 1995-2000 the Free Software Foundation, Inc.
-dnl
+dnl
+dnl Copyright (C) 1995-2001 the Free Software Foundation, Inc.
+dnl
dnl This file is part of GAWK, the GNU implementation of the
dnl AWK Programming Language.
-dnl
+dnl
dnl GAWK is free software; you can redistribute it and/or modify
dnl it under the terms of the GNU General Public License as published by
dnl the Free Software Foundation; either version 2 of the License, or
dnl (at your option) any later version.
-dnl
+dnl
dnl GAWK is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
dnl GNU General Public License for more details.
-dnl
+dnl
dnl You should have received a copy of the GNU General Public License
dnl along with this program; if not, write to the Free Software
dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
@@ -23,50 +23,50 @@ dnl
dnl Process this file with autoconf to produce a configure script.
-dnl this makes sure that the local install-sh gets found
-dnl define(AC_CONFIG_AUX_DIR,)
-
-dnl This is the configure.in script proper
AC_INIT(awk.h)
-AC_PREREQ(2.12)
-AC_CONFIG_HEADER(config.h:configh.in)
+AC_PREREQ(2.13)
+AM_INIT_AUTOMAKE(gawk, 3.1.0)
+AM_CONFIG_HEADER(config.h:configh.in)
dnl Additional argument stuff
-AC_ARG_ENABLE(bitops, [ --enable-bitops Enable Octal and Hex constants and bit functions], AC_DEFINE(BITOPS))
-AC_ARG_ENABLE(non-decimal-data, [ --enable-non-decimal-data Enable Octal and Hex constants as valid input data], AC_DEFINE(NONDECDATA))
+AC_ARG_ENABLE(portals, [ --enable-portals Enable /p as path prefix for portals], AC_DEFINE(HAVE_PORTALS))
dnl checks for programs
AC_PROG_YACC
AC_PROG_LN_S
AC_PROG_CC
AC_PROG_CPP
+AC_PROG_RANLIB
# This is a hack. Different versions of install on different systems
# are just too different. Chuck it and use install-sh.
-INSTALL="$srcdir/install-sh -c"; export INSTALL
+#
+# If the user supplies $INSTALL, figure they know what they're doing.
+if test "x$INSTALL" = "x"
+then
+ INSTALL="$srcdir/install-sh -c"
+ export INSTALL
+fi
+
AC_PROG_INSTALL
AC_PROG_MAKE_SET
-if test "$CFLAGS" = ""
-then
-dnl no user provided CFLAGS, feel free to do this our way
- if test "$GCC" = yes
- then
- CFLAGS="-g -O"
- else
-dnl go for speed, not debugging. :-)
- CFLAGS="-O"
- fi
-fi
-
# This is mainly for my use during testing and development.
# Yes, it's a bit of a hack.
+AC_MSG_CHECKING([for special development options])
if test -f $srcdir/.developing
then
- AC_DEFINE(BITOPS)
- AC_DEFINE(NONDECDATA)
+ # add other debug flags as appropriate, save GAWKDEBUG for emergencies
CFLAGS="$CFLAGS -DARRAYDEBUG"
+ # turn on compiler warnings if we're doing development
+ if test "$GCC" = yes
+ then
+ CFLAGS="$CFLAGS -Wall"
+ fi
+ AC_MSG_RESULT([yes])
+else
+ AC_MSG_RESULT([no])
fi
AC_SUBST(CFLAGS)
@@ -75,8 +75,9 @@ dnl checks for systems
AC_AIX
AC_ISC_POSIX
AC_MINIX
-GAWK_AC_SYS_LARGEFILE
+AC_SYS_LARGEFILE
GAWK_AC_AIX_TWEAK
+GAWK_AC_LINUX_ALPHA
if test "$ISC" = 1 # will be set by test for ISC
then
@@ -84,10 +85,20 @@ dnl need -D_SYSV3 for ISC
CFLAGS="$CFLAGS -D_SYSV3"
fi
+dnl check for C compiler for automake
+AM_PROG_CC_STDC
+AM_C_PROTOTYPES
+
+ALL_LINGUAS="he"
+AM_GNU_GETTEXT
+
dnl checks for header files
AC_HEADER_STDC
AC_HEADER_SYS_WAIT
-AC_CHECK_HEADERS(limits.h locale.h stdarg.h unistd.h signum.h sys/param.h string.h)
+AC_CHECK_HEADERS(fcntl.h limits.h locale.h libintl.h mcheck.h \
+ netdb.h netinet/in.h signum.h stdarg.h string.h \
+ sys/param.h sys/socket.h unistd.h)
+
if test "$ac_cv_header_string_h" = yes
then
AC_CHECK_HEADERS(memory.h)
@@ -100,56 +111,56 @@ AC_TYPE_PID_T
AC_TYPE_SIGNAL
AC_SIZE_T
AC_TYPE_GETGROUPS
+GAWK_AC_TYPE_SSIZE_T
AC_EGREP_HEADER([int.*sprintf], stdio.h,
AC_DEFINE(SPRINTF_RET, int),
AC_DEFINE(SPRINTF_RET, char *))
dnl checks for functions
-if test "$YACC" = "bison -y" ||
- { test -f $srcdir/awktab.c && grep 'alloca *(' $srcdir/awktab.c > /dev/null; }
-then
- AC_FUNC_ALLOCA
-fi
AC_DEFINE(REGEX_MALLOC)
AC_FUNC_VPRINTF
+dnl one day use [ AC_CHECK_TYPE(ssize_t, int) ]
+GAWK_AC_FUNC_STRTOD_C89
+AC_FUNC_MKTIME
+case "$ac_cv_func_working_mktime" in
+yes) AC_DEFINE(HAVE_MKTIME)
+ ;;
+esac
AC_CHECK_LIB(m, fmod)
-AC_CHECK_FUNCS(madvise memset memcpy memcmp fmod setlocale strchr strerror \
- strftime strncasecmp strtod system tzset)
-
-dnl see if we have mmap
-AC_FUNC_MMAP
-
-dnl check for how to use getpgrp
-dnl have to hardwire it for VMS POSIX. Sigh.
-if (uname) > /dev/null 2>&1
-then
- case `uname` in
- *VMS*|*BeOS*)
- AC_DEFINE(GETPGRP_VOID)
- ;;
- *HP-UX*) # not getpgrp related
+AC_CHECK_FUNCS(memset memcpy memcmp fmod setlocale strchr strerror \
+ strftime strncasecmp strtod system tzset)
+
+dnl check for dynamic linking
+dnl This is known to be very primitive
+AC_CHECK_HEADER(dlfcn.h,
+ AC_CHECK_LIB(dl, dlopen,
+ AC_DEFINE(DYNAMIC)
+ LIBS="$LIBS -ldl"
if test "$GCC" = yes
then
- :
- else
- # stupid HP linker leaves the output file
- # around even when a link fails. This confuses
- # the alloca tests, so we have to do this
- # manually. Sucks big time.
- LIBS="$LIBS -lPW"
+ # Add others here as appropriate,
+ # one day use GNU libtool.
+ if uname | egrep -i linux > /dev/null
+ then
+ LDFLAGS="$LDFLAGS -rdynamic"
+ fi
fi
+))
- # have to do the getpgrp test since won't
- # fall into the default
- AC_FUNC_GETPGRP
- ;;
- *) AC_FUNC_GETPGRP
- ;;
- esac
-else
- AC_FUNC_GETPGRP
-fi
+dnl check for how to use getpgrp
+dnl have to hardwire it for VMS POSIX. Sigh.
+dnl ditto for BeOS.
+case `(uname) 2> /dev/null` in
+*VMS*|*BeOS*)
+ AC_DEFINE(GETPGRP_VOID)
+ ;;
+*) AC_FUNC_GETPGRP
+ ;;
+esac
+
+dnl check for sockets
+GAWK_AC_LIB_SOCKETS
dnl checks for structure members
AC_STRUCT_ST_BLKSIZE
@@ -160,6 +171,12 @@ AC_STRUCT_TIMEZONE
dnl checks for compiler characteristics
AC_C_CHAR_UNSIGNED
AC_C_CONST
-GAWK_AC_C_STRINGIZE
-
-AC_OUTPUT(Makefile doc/Makefile test/Makefile awklib/Makefile, [date > stamp-h])
+AC_C_INLINE
+AC_C_STRINGIZE
+
+AC_OUTPUT(Makefile \
+ awklib/Makefile \
+ doc/Makefile \
+ intl/Makefile \
+ po/Makefile.in \
+ test/Makefile)
diff --git a/custom.h b/custom.h
index 51f5b554..75ceab28 100644
--- a/custom.h
+++ b/custom.h
@@ -11,7 +11,7 @@
*/
/*
- * Copyright (C) 1995-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1995-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -53,14 +53,35 @@
#define fork vfork
#endif
-/* For sequent, based on email with Aron Griffis <agriffis@calypso.coat.com> */
-#ifdef _SEQUENT_
-#undef HAVE_MMAP
-#endif
-
/* For BeOS, from mc@whoever.com */
#if defined(__dest_os) && __dest_os == __be_os
#define BROKEN_STRNCASECMP
#define ELIDE_CODE
#include <alloca.h>
#endif
+
+/* For Tandems, based on code from scldad@sdc.com.au */
+#ifdef TANDEM
+#define tempnam(a,b) tmpnam(NULL)
+#define variable(a,b,c) variabl(a,b,c)
+#define srandom srand
+#define random rand
+
+#include <cextdecs(PROCESS_GETINFO_)>
+#endif
+
+/* For 16-bit DOS */
+#if defined(MSC_VER) && defined(MSDOS)
+#define NO_PROFILING 1
+#endif
+
+/* For MacOS X, which is almost BSD Unix */
+#ifdef __APPLE__
+#define HAVE_MKTIME 1
+#endif
+
+/* For ULTRIX 4.3 */
+#ifdef ultrix
+#define HAVE_MKTIME 1
+#endif
+
diff --git a/depcomp b/depcomp
new file mode 100755
index 00000000..0a92302e
--- /dev/null
+++ b/depcomp
@@ -0,0 +1,328 @@
+#! /bin/sh
+
+# depcomp - compile a program generating dependencies as side-effects
+# Copyright 1999, 2000 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+# Originally written by Alexandre Oliva <oliva@dcc.unicamp.br>.
+
+if test -z "$depmode" || test -z "$source" || test -z "$object"; then
+ echo "depcomp: Variables source, object and depmode must be set" 1>&2
+ exit 1
+fi
+# `libtool' can also be set to `yes' or `no'.
+
+depfile=${depfile-`echo "$object" | sed 's,\([^/]*\)$,.deps/\1,;s/\.\([^.]*\)$/.P\1/'`}
+tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`}
+
+rm -f "$tmpdepfile"
+
+# Some modes work just like other modes, but use different flags. We
+# parameterize here, but still list the modes in the big case below,
+# to make depend.m4 easier to write. Note that we *cannot* use a case
+# here, because this file can only contain one case statement.
+if test "$depmode" = hp; then
+ # HP compiler uses -M and no extra arg.
+ gccflag=-M
+ depmode=gcc
+fi
+
+if test "$depmode" = dashXmstdout; then
+ # This is just like dashmstdout with a different argument.
+ dashmflag=-xM
+ depmode=dashmstdout
+fi
+
+case "$depmode" in
+gcc)
+## There are various ways to get dependency output from gcc. Here's
+## why we pick this rather obscure method:
+## - Don't want to use -MD because we'd like the dependencies to end
+## up in a subdir. Having to rename by hand is ugly.
+## (We might end up doing this anyway to support other compilers.)
+## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like
+## -MM, not -M (despite what the docs say).
+## - Using -M directly means running the compiler twice (even worse
+## than renaming).
+ if test -z "$gccflag"; then
+ gccflag=-MD,
+ fi
+ if "$@" -Wp,"$gccflag$tmpdepfile"; then :
+ else
+ stat=$?
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
+## The second -e expression handles DOS-style file names with drive letters.
+ sed -e 's/^[^:]*: / /' \
+ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile"
+## This next piece of magic avoids the `deleted header file' problem.
+## The problem is that when a header file which appears in a .P file
+## is deleted, the dependency causes make to die (because there is
+## typically no way to rebuild the header). We avoid this by adding
+## dummy dependencies for each header file. Too bad gcc doesn't do
+## this for us directly.
+ tr ' ' '
+' < "$tmpdepfile" |
+## Some versions of gcc put a space before the `:'. On the theory
+## that the space means something, we add a space to the output as
+## well.
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly. Breaking it into two sed invocations is a workaround.
+ sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+hp)
+ # This case exists only to let depend.m4 do its work. It works by
+ # looking at the text of this script. This case will never be run,
+ # since it is checked for above.
+ exit 1
+ ;;
+
+dashmd)
+ # The Java front end to gcc doesn't run cpp, so we can't use the -Wp
+ # trick. Instead we must use -M and then rename the resulting .d
+ # file. This is also the case for older versions of gcc, which
+ # don't implement -Wp.
+ if "$@" -MD; then :
+ else
+ stat=$?
+ rm -f FIXME
+ exit $stat
+ fi
+ FIXME: rewrite the file
+ ;;
+
+sgi)
+ if test "$libtool" = yes; then
+ "$@" "-Wp,-MDupdate,$tmpdepfile"
+ else
+ "$@" -MDupdate "$tmpdepfile"
+ fi
+ stat=$?
+ if test $stat -eq 0; then :
+ else
+ stat=$?
+ rm -f "$tmpdepfile"
+ exit $stat
+ fi
+ rm -f "$depfile"
+
+ if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files
+ echo "$object : \\" > "$depfile"
+
+ # Clip off the initial element (the dependent). Don't try to be
+ # clever and replace this with sed code, as IRIX sed won't handle
+ # lines with more than a fixed number of characters (4096 in
+ # IRIX 6.2 sed, 8192 in IRIX 6.5).
+ tr ' ' '
+' < "$tmpdepfile" | sed 's/^[^\.]*\.o://' | tr '
+' ' ' >> $depfile
+
+ tr ' ' '
+' < "$tmpdepfile" | \
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly. Breaking it into two sed invocations is a workaround.
+ sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+ else
+ # The sourcefile does not contain any dependencies, so just
+ # store a dummy comment line, to avoid errors with the Makefile
+ # "include basename.Plo" scheme.
+ echo "#dummy" > "$depfile"
+ fi
+ rm -f "$tmpdepfile"
+ ;;
+
+#nosideeffect)
+ # This comment above is used by automake to tell side-effect
+ # dependency tracking mechanisms from slower ones.
+
+dashmstdout)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the proprocessed file to stdout, regardless of -o,
+ # because we must use -o when running libtool.
+ test -z "$dashmflag" && dashmflag=-M
+ ( IFS=" "
+ case " $* " in
+ *" --mode=compile "*) # this is libtool, let us make it quiet
+ for arg
+ do # cycle over the arguments
+ case "$arg" in
+ "--mode=compile")
+ # insert --quiet before "--mode=compile"
+ set fnord "$@" --quiet
+ shift # fnord
+ ;;
+ esac
+ set fnord "$@" "$arg"
+ shift # fnord
+ shift # "$arg"
+ done
+ ;;
+ esac
+ "$@" $dashmflag | sed 's:^[^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile"
+ ) &
+ proc=$!
+ "$@"
+ stat=$?
+ wait "$proc"
+ if test "$stat" != 0; then exit $stat; fi
+ rm -f "$depfile"
+ cat < "$tmpdepfile" > "$depfile"
+ tr ' ' '
+' < "$tmpdepfile" | \
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly. Breaking it into two sed invocations is a workaround.
+ sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+dashXmstdout)
+ # This case only exists to satisfy depend.m4. It is never actually
+ # run, as this mode is specially recognized in the preamble.
+ exit 1
+ ;;
+
+makedepend)
+ # X makedepend
+ (
+ shift
+ cleared=no
+ for arg in "$@"; do
+ case $cleared in no)
+ set ""; shift
+ cleared=yes
+ esac
+ case "$arg" in
+ -D*|-I*)
+ set fnord "$@" "$arg"; shift;;
+ -*)
+ ;;
+ *)
+ set fnord "$@" "$arg"; shift;;
+ esac
+ done
+ obj_suffix="`echo $object | sed 's/^.*\././'`"
+ touch "$tmpdepfile"
+ ${MAKEDEPEND-makedepend} 2>/dev/null -o"$obj_suffix" -f"$tmpdepfile" "$@"
+ ) &
+ proc=$!
+ "$@"
+ stat=$?
+ wait "$proc"
+ if test "$stat" != 0; then exit $stat; fi
+ rm -f "$depfile"
+ cat < "$tmpdepfile" > "$depfile"
+ tail +3 "$tmpdepfile" | tr ' ' '
+' | \
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly. Breaking it into two sed invocations is a workaround.
+ sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile" "$tmpdepfile".bak
+ ;;
+
+cpp)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the proprocessed file to stdout, regardless of -o,
+ # because we must use -o when running libtool.
+ ( IFS=" "
+ case " $* " in
+ *" --mode=compile "*)
+ for arg
+ do # cycle over the arguments
+ case $arg in
+ "--mode=compile")
+ # insert --quiet before "--mode=compile"
+ set fnord "$@" --quiet
+ shift # fnord
+ ;;
+ esac
+ set fnord "$@" "$arg"
+ shift # fnord
+ shift # "$arg"
+ done
+ ;;
+ esac
+ "$@" -E |
+ sed -n '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' |
+ sed '$ s: \\$::' > "$tmpdepfile"
+ ) &
+ proc=$!
+ "$@"
+ stat=$?
+ wait "$proc"
+ if test "$stat" != 0; then exit $stat; fi
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ cat < "$tmpdepfile" >> "$depfile"
+ sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+msvisualcpp)
+ # Important note: in order to support this mode, a compiler *must*
+ # always write the proprocessed file to stdout, regardless of -o,
+ # because we must use -o when running libtool.
+ ( IFS=" "
+ case " $* " in
+ *" --mode=compile "*)
+ for arg
+ do # cycle over the arguments
+ case $arg in
+ "--mode=compile")
+ # insert --quiet before "--mode=compile"
+ set fnord "$@" --quiet
+ shift # fnord
+ ;;
+ esac
+ set fnord "$@" "$arg"
+ shift # fnord
+ shift # "$arg"
+ done
+ ;;
+ esac
+ "$@" -E |
+ sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::echo "`cygpath -u \\"\1\\"`":p' | sort | uniq > "$tmpdepfile"
+ ) &
+ proc=$!
+ "$@"
+ stat=$?
+ wait "$proc"
+ if test "$stat" != 0; then exit $stat; fi
+ rm -f "$depfile"
+ echo "$object : \\" > "$depfile"
+ . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile"
+ echo " " >> "$depfile"
+ . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::\1\::p' >> "$depfile"
+ rm -f "$tmpdepfile"
+ ;;
+
+none)
+ exec "$@"
+ ;;
+
+*)
+ echo "Unknown depmode $depmode" 1>&2
+ exit 1
+ ;;
+esac
+
+exit 0
diff --git a/dfa.c b/dfa.c
index 03dd9e7e..97164127 100644
--- a/dfa.c
+++ b/dfa.c
@@ -1,5 +1,5 @@
/* dfa.c - deterministic extended regexp routines for GNU
- Copyright (C) 1988 Free Software Foundation, Inc.
+ Copyright 1988, 1998, 2000 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -26,10 +26,14 @@
#include <ctype.h>
#include <stdio.h>
+#ifndef VMS
+#include <sys/types.h>
+#else
+#include <stddef.h>
+#endif
#ifdef STDC_HEADERS
#include <stdlib.h>
#else
-#include <sys/types.h>
extern char *calloc(), *malloc(), *realloc();
extern void free();
#endif
@@ -77,95 +81,112 @@ extern void free();
#define ISCNTRL(C) (isascii(C) && iscntrl(C))
#endif
+/* ISASCIIDIGIT differs from ISDIGIT, as follows:
+ - Its arg may be any int or unsigned int; it need not be an unsigned char.
+ - It's guaranteed to evaluate its argument exactly once.
+ - It's typically faster.
+ Posix 1003.2-1992 section 2.5.2.1 page 50 lines 1556-1558 says that
+ only '0' through '9' are digits. Prefer ISASCIIDIGIT to ISDIGIT unless
+ it's important to use the locale's definition of `digit' even when the
+ host does not conform to Posix. */
+#define ISASCIIDIGIT(c) ((unsigned) (c) - '0' <= 9)
+
+/* If we (don't) have I18N. */
+/* glibc defines _ */
+#ifndef _
+# ifdef HAVE_LIBINTL_H
+# include <libintl.h>
+# ifndef _
+# define _(Str) gettext (Str)
+# endif
+# else
+# define _(Str) (Str)
+# endif
+#endif
+
#include "regex.h"
#include "dfa.h"
-#ifdef __STDC__
-typedef void *ptr_t;
-#else
-typedef char *ptr_t;
-#ifndef const
-#define const
+/* HPUX, define those as macros in sys/param.h */
+#ifdef setbit
+# undef setbit
#endif
+#ifdef clrbit
+# undef clrbit
#endif
-static void dfamust _RE_ARGS((struct dfa *dfa));
+static void dfamust PARAMS ((struct dfa *dfa));
-static ptr_t xcalloc _RE_ARGS((size_t n, size_t s));
-static ptr_t xmalloc _RE_ARGS((size_t n));
-static ptr_t xrealloc _RE_ARGS((ptr_t p, size_t n));
+static ptr_t xcalloc PARAMS ((size_t n, size_t s));
+static ptr_t xmalloc PARAMS ((size_t n));
+static ptr_t xrealloc PARAMS ((ptr_t p, size_t n));
#ifdef DEBUG
-static void prtok _RE_ARGS((token t));
+static void prtok PARAMS ((token t));
#endif
-static int tstbit _RE_ARGS((int b, charclass c));
-static void setbit _RE_ARGS((int b, charclass c));
-static void clrbit _RE_ARGS((int b, charclass c));
-static void copyset _RE_ARGS((charclass src, charclass dst));
-static void zeroset _RE_ARGS((charclass s));
-static void notset _RE_ARGS((charclass s));
-static int equal _RE_ARGS((charclass s1, charclass s2));
-static int charclass_index _RE_ARGS((charclass s));
-static int looking_at _RE_ARGS((const char *s));
-static token lex _RE_ARGS((void));
-static void addtok _RE_ARGS((token t));
-static void atom _RE_ARGS((void));
-static int nsubtoks _RE_ARGS((int tindex));
-static void copytoks _RE_ARGS((int tindex, int ntokens));
-static void closure _RE_ARGS((void));
-static void branch _RE_ARGS((void));
-static void regexp _RE_ARGS((int toplevel));
-static void copy _RE_ARGS((position_set *src, position_set *dst));
-static void insert _RE_ARGS((position p, position_set *s));
-static void merge _RE_ARGS((position_set *s1, position_set *s2, position_set *m));
-static void delete _RE_ARGS((position p, position_set *s));
-static int state_index _RE_ARGS((struct dfa *d, position_set *s,
+static int tstbit PARAMS ((int b, charclass c));
+static void setbit PARAMS ((int b, charclass c));
+static void clrbit PARAMS ((int b, charclass c));
+static void copyset PARAMS ((charclass src, charclass dst));
+static void zeroset PARAMS ((charclass s));
+static void notset PARAMS ((charclass s));
+static int equal PARAMS ((charclass s1, charclass s2));
+static int charclass_index PARAMS ((charclass s));
+static int looking_at PARAMS ((const char *s));
+static token lex PARAMS ((void));
+static void addtok PARAMS ((token t));
+static void atom PARAMS ((void));
+static int nsubtoks PARAMS ((int tindex));
+static void copytoks PARAMS ((int tindex, int ntokens));
+static void closure PARAMS ((void));
+static void branch PARAMS ((void));
+static void regexp PARAMS ((int toplevel));
+static void copy PARAMS ((position_set *src, position_set *dst));
+static void insert PARAMS ((position p, position_set *s));
+static void merge PARAMS ((position_set *s1, position_set *s2, position_set *m));
+static void delete PARAMS ((position p, position_set *s));
+static int state_index PARAMS ((struct dfa *d, position_set *s,
int newline, int letter));
-static void build_state _RE_ARGS((int s, struct dfa *d));
-static void build_state_zero _RE_ARGS((struct dfa *d));
-static char *icatalloc _RE_ARGS((char *old, char *new));
-static char *icpyalloc _RE_ARGS((char *string));
-static char *istrstr _RE_ARGS((char *lookin, char *lookfor));
-static void ifree _RE_ARGS((char *cp));
-static void freelist _RE_ARGS((char **cpp));
-static char **enlist _RE_ARGS((char **cpp, char *new, size_t len));
-static char **comsubs _RE_ARGS((char *left, char *right));
-static char **addlists _RE_ARGS((char **old, char **new));
-static char **inboth _RE_ARGS((char **left, char **right));
+static void build_state PARAMS ((int s, struct dfa *d));
+static void build_state_zero PARAMS ((struct dfa *d));
+static char *icatalloc PARAMS ((char *old, char *new));
+static char *icpyalloc PARAMS ((char *string));
+static char *istrstr PARAMS ((char *lookin, char *lookfor));
+static void ifree PARAMS ((char *cp));
+static void freelist PARAMS ((char **cpp));
+static char **enlist PARAMS ((char **cpp, char *new, size_t len));
+static char **comsubs PARAMS ((char *left, char *right));
+static char **addlists PARAMS ((char **old, char **new));
+static char **inboth PARAMS ((char **left, char **right));
static ptr_t
-xcalloc(n, s)
- size_t n;
- size_t s;
+xcalloc (size_t n, size_t s)
{
ptr_t r = calloc(n, s);
if (!r)
- dfaerror("Memory exhausted");
+ dfaerror(_("Memory exhausted"));
return r;
}
static ptr_t
-xmalloc(n)
- size_t n;
+xmalloc (size_t n)
{
ptr_t r = malloc(n);
assert(n != 0);
if (!r)
- dfaerror("Memory exhausted");
+ dfaerror(_("Memory exhausted"));
return r;
}
static ptr_t
-xrealloc(p, n)
- ptr_t p;
- size_t n;
+xrealloc (ptr_t p, size_t n)
{
ptr_t r = realloc(p, n);
assert(n != 0);
if (!r)
- dfaerror("Memory exhausted");
+ dfaerror(_("Memory exhausted"));
return r;
}
@@ -185,8 +206,7 @@ xrealloc(p, n)
#ifdef DEBUG
static void
-prtok(t)
- token t;
+prtok (token t)
{
char *s;
@@ -224,33 +244,25 @@ prtok(t)
/* Stuff pertaining to charclasses. */
static int
-tstbit(b, c)
- int b;
- charclass c;
+tstbit (int b, charclass c)
{
return c[b / INTBITS] & 1 << b % INTBITS;
}
static void
-setbit(b, c)
- int b;
- charclass c;
+setbit (int b, charclass c)
{
c[b / INTBITS] |= 1 << b % INTBITS;
}
static void
-clrbit(b, c)
- int b;
- charclass c;
+clrbit (int b, charclass c)
{
c[b / INTBITS] &= ~(1 << b % INTBITS);
}
static void
-copyset(src, dst)
- charclass src;
- charclass dst;
+copyset (charclass src, charclass dst)
{
int i;
@@ -259,8 +271,7 @@ copyset(src, dst)
}
static void
-zeroset(s)
- charclass s;
+zeroset (charclass s)
{
int i;
@@ -269,8 +280,7 @@ zeroset(s)
}
static void
-notset(s)
- charclass s;
+notset (charclass s)
{
int i;
@@ -279,9 +289,7 @@ notset(s)
}
static int
-equal(s1, s2)
- charclass s1;
- charclass s2;
+equal (charclass s1, charclass s2)
{
int i;
@@ -296,8 +304,7 @@ static struct dfa *dfa;
/* Find the index of charclass s in dfa->charclasses, or allocate a new charclass. */
static int
-charclass_index(s)
- charclass s;
+charclass_index (charclass s)
{
int i;
@@ -316,15 +323,17 @@ static reg_syntax_t syntax_bits, syntax_bits_set;
/* Flag for case-folding letters into sets. */
static int case_fold;
+/* End-of-line byte in data. */
+static unsigned char eolbyte;
+
/* Entry point to set syntax options. */
void
-dfasyntax(bits, fold)
- reg_syntax_t bits;
- int fold;
+dfasyntax (reg_syntax_t bits, int fold, int eol)
{
syntax_bits_set = 1;
syntax_bits = bits;
case_fold = fold;
+ eolbyte = eol;
}
/* Lexical analyzer. All the dross that deals with the obnoxious
@@ -332,7 +341,6 @@ dfasyntax(bits, fold)
reader is referred to the GNU Regex documentation for the
meaning of the @#%!@#%^!@ syntax bits. */
-static char *lexstart; /* Pointer to beginning of input string. */
static char *lexptr; /* Pointer to next input character. */
static int lexleft; /* Number of characters remaining. */
static token lasttok; /* Previous token returned; initially END. */
@@ -345,10 +353,12 @@ static int minrep, maxrep; /* Repeat counts for {m,n}. */
#define FETCH(c, eoferr) \
{ \
if (! lexleft) \
- if (eoferr != 0) \
- dfaerror(eoferr); \
- else \
- return lasttok = END; \
+ { \
+ if (eoferr != 0) \
+ dfaerror (eoferr); \
+ else \
+ return lasttok = END; \
+ } \
(c) = (unsigned char) *lexptr++; \
--lexleft; \
}
@@ -371,8 +381,8 @@ FUNC(is_print, ISPRINT)
FUNC(is_graph, ISGRAPH)
FUNC(is_cntrl, ISCNTRL)
-static int is_blank(c)
-int c;
+static int
+is_blank (int c)
{
return (c == ' ' || c == '\t');
}
@@ -382,7 +392,7 @@ int c;
the class. The leading [ has already been eaten by the lexical analyzer. */
static struct {
const char *name;
- int (*pred) _RE_ARGS((int));
+ int (*pred) PARAMS ((int));
} prednames[] = {
{ ":alpha:]", is_alpha },
{ ":upper:]", is_upper },
@@ -399,9 +409,11 @@ static struct {
{ 0 }
};
+/* Return non-zero if C is a `word-constituent' byte; zero otherwise. */
+#define IS_WORD_CONSTITUENT(C) (ISALNUM(C) || (C) == '_')
+
static int
-looking_at(s)
- const char *s;
+looking_at (char const *s)
{
size_t len;
@@ -412,12 +424,14 @@ looking_at(s)
}
static token
-lex()
+lex (void)
{
token c, c1, c2;
int backslash = 0, invert;
charclass ccl;
int i;
+ char lo[2];
+ char hi[2];
/* Basic plan: We fetch a character. If it's a backslash,
we set the backslash flag and go through the loop again.
@@ -434,7 +448,7 @@ lex()
if (backslash)
goto normal_char;
if (lexleft == 0)
- dfaerror("Unfinished \\ escape");
+ dfaerror(_("Unfinished \\ escape"));
backslash = 1;
break;
@@ -540,44 +554,76 @@ lex()
goto normal_char;
if (backslash != ((syntax_bits & RE_NO_BK_BRACES) == 0))
goto normal_char;
- minrep = maxrep = 0;
+ if (!(syntax_bits & RE_CONTEXT_INDEP_OPS) && laststart)
+ goto normal_char;
+
+ if (syntax_bits & RE_NO_BK_BRACES)
+ {
+ /* Scan ahead for a valid interval; if it's not valid,
+ treat it as a literal '{'. */
+ int lo = -1, hi = -1;
+ char const *p = lexptr;
+ char const *lim = p + lexleft;
+ for (; p != lim && ISASCIIDIGIT (*p); p++)
+ lo = (lo < 0 ? 0 : lo * 10) + *p - '0';
+ if (p != lim && *p == ',')
+ while (++p != lim && ISASCIIDIGIT (*p))
+ hi = (hi < 0 ? 0 : hi * 10) + *p - '0';
+ else
+ hi = lo;
+ if (p == lim || *p != '}'
+ || lo < 0 || RE_DUP_MAX < hi || (0 <= hi && hi < lo))
+ goto normal_char;
+ }
+
+ minrep = 0;
/* Cases:
{M} - exact count
{M,} - minimum count, maximum is infinity
- {,M} - 0 through M
{M,N} - M through N */
- FETCH(c, "unfinished repeat count");
- if (ISDIGIT(c))
+ FETCH(c, _("unfinished repeat count"));
+ if (ISASCIIDIGIT (c))
{
minrep = c - '0';
for (;;)
{
- FETCH(c, "unfinished repeat count");
- if (!ISDIGIT(c))
+ FETCH(c, _("unfinished repeat count"));
+ if (! ISASCIIDIGIT (c))
break;
minrep = 10 * minrep + c - '0';
}
}
- else if (c != ',')
- dfaerror("malformed repeat count");
+ else
+ dfaerror(_("malformed repeat count"));
if (c == ',')
- for (;;)
- {
- FETCH(c, "unfinished repeat count");
- if (!ISDIGIT(c))
- break;
- maxrep = 10 * maxrep + c - '0';
- }
+ {
+ FETCH (c, _("unfinished repeat count"));
+ if (! ISASCIIDIGIT (c))
+ maxrep = -1;
+ else
+ {
+ maxrep = c - '0';
+ for (;;)
+ {
+ FETCH (c, _("unfinished repeat count"));
+ if (! ISASCIIDIGIT (c))
+ break;
+ maxrep = 10 * maxrep + c - '0';
+ }
+ if (0 <= maxrep && maxrep < minrep)
+ dfaerror (_("malformed repeat count"));
+ }
+ }
else
maxrep = minrep;
if (!(syntax_bits & RE_NO_BK_BRACES))
{
if (c != '\\')
- dfaerror("malformed repeat count");
- FETCH(c, "unfinished repeat count");
+ dfaerror(_("malformed repeat count"));
+ FETCH(c, _("unfinished repeat count"));
}
if (c != '}')
- dfaerror("malformed repeat count");
+ dfaerror(_("malformed repeat count"));
laststart = 0;
return lasttok = REPMN;
@@ -619,7 +665,7 @@ lex()
zeroset(ccl);
notset(ccl);
if (!(syntax_bits & RE_DOT_NEWLINE))
- clrbit('\n', ccl);
+ clrbit(eolbyte, ccl);
if (syntax_bits & RE_DOT_NOT_NULL)
clrbit('\0', ccl);
laststart = 0;
@@ -631,22 +677,21 @@ lex()
goto normal_char;
zeroset(ccl);
for (c2 = 0; c2 < NOTCHAR; ++c2)
- if (ISALNUM(c2))
+ if (IS_WORD_CONSTITUENT(c2))
setbit(c2, ccl);
- setbit('_', ccl);
if (c == 'W')
notset(ccl);
laststart = 0;
return lasttok = CSET + charclass_index(ccl);
-
+
case '[':
if (backslash)
goto normal_char;
zeroset(ccl);
- FETCH(c, "Unbalanced [");
+ FETCH(c, _("Unbalanced ["));
if (c == '^')
{
- FETCH(c, "Unbalanced [");
+ FETCH(c, _("Unbalanced ["));
invert = 1;
}
else
@@ -673,15 +718,15 @@ lex()
setbit(c2, ccl);
lexptr += strlen(prednames[c1].name);
lexleft -= strlen(prednames[c1].name);
- FETCH(c1, "Unbalanced [");
+ FETCH(c1, _("Unbalanced ["));
goto skip;
}
if (c == '\\' && (syntax_bits & RE_BACKSLASH_ESCAPE_IN_LISTS))
- FETCH(c, "Unbalanced [");
- FETCH(c1, "Unbalanced [");
+ FETCH(c, _("Unbalanced ["));
+ FETCH(c1, _("Unbalanced ["));
if (c1 == '-')
{
- FETCH(c2, "Unbalanced [");
+ FETCH(c2, _("Unbalanced ["));
if (c2 == ']')
{
/* In the case [x-], the - is an ordinary hyphen,
@@ -694,22 +739,32 @@ lex()
{
if (c2 == '\\'
&& (syntax_bits & RE_BACKSLASH_ESCAPE_IN_LISTS))
- FETCH(c2, "Unbalanced [");
- FETCH(c1, "Unbalanced [");
+ FETCH(c2, _("Unbalanced ["));
+ FETCH(c1, _("Unbalanced ["));
}
}
else
c2 = c;
- while (c <= c2)
+
+ lo[0] = c; lo[1] = '\0';
+ hi[0] = c2; hi[1] = '\0';
+ for (c = 0; c < NOTCHAR; c++)
{
- setbit(c, ccl);
- if (case_fold)
- if (ISUPPER(c))
- setbit(tolower(c), ccl);
- else if (ISLOWER(c))
- setbit(toupper(c), ccl);
- ++c;
+ char ch[2];
+ ch[0] = c; ch[1] = '\0';
+ if (strcoll (lo, ch) <= 0 && strcoll (ch, hi) <= 0)
+ {
+ setbit (c, ccl);
+ if (case_fold)
+ {
+ if (ISUPPER (c))
+ setbit (tolower (c), ccl);
+ else if (ISLOWER (c))
+ setbit (toupper (c), ccl);
+ }
+ }
}
+
skip:
;
}
@@ -718,7 +773,7 @@ lex()
{
notset(ccl);
if (syntax_bits & RE_HAT_LISTS_NOT_NEWLINE)
- clrbit('\n', ccl);
+ clrbit(eolbyte, ccl);
}
laststart = 0;
return lasttok = CSET + charclass_index(ccl);
@@ -758,8 +813,7 @@ static int depth; /* Current depth of a hypothetical stack
/* Add the given token to the parse tree, maintaining the depth count and
updating the maximum depth if necessary. */
static void
-addtok(t)
- token t;
+addtok (token t)
{
REALLOC_IF_NECESSARY(dfa->tokens, token, dfa->talloc, dfa->tindex);
dfa->tokens[dfa->tindex++] = t;
@@ -818,7 +872,7 @@ addtok(t)
The parser builds a parse tree in postfix form in an array of tokens. */
static void
-atom()
+atom (void)
{
if ((tok >= 0 && tok < NOTCHAR) || tok >= CSET || tok == BACKREF
|| tok == BEGLINE || tok == ENDLINE || tok == BEGWORD
@@ -832,7 +886,7 @@ atom()
tok = lex();
regexp(0);
if (tok != RPAREN)
- dfaerror("Unbalanced (");
+ dfaerror(_("Unbalanced ("));
tok = lex();
}
else
@@ -841,8 +895,7 @@ atom()
/* Return the number of tokens in the given subexpression. */
static int
-nsubtoks(tindex)
-int tindex;
+nsubtoks (int tindex)
{
int ntoks1;
@@ -864,8 +917,7 @@ int tindex;
/* Copy the given subexpression to the top of the tree. */
static void
-copytoks(tindex, ntokens)
- int tindex, ntokens;
+copytoks (int tindex, int ntokens)
{
int i;
@@ -874,7 +926,7 @@ copytoks(tindex, ntokens)
}
static void
-closure()
+closure (void)
{
int tindex, ntokens, i;
@@ -884,7 +936,7 @@ closure()
{
ntokens = nsubtoks(dfa->tindex);
tindex = dfa->tindex - ntokens;
- if (maxrep == 0)
+ if (maxrep < 0)
addtok(PLUS);
if (minrep == 0)
addtok(QMARK);
@@ -909,7 +961,7 @@ closure()
}
static void
-branch()
+branch (void)
{
closure();
while (tok != RPAREN && tok != OR && tok >= 0)
@@ -920,8 +972,7 @@ branch()
}
static void
-regexp(toplevel)
- int toplevel;
+regexp (int toplevel)
{
branch();
while (tok == OR)
@@ -939,21 +990,17 @@ regexp(toplevel)
length of the string, so s can include NUL characters. D is a pointer to
the struct dfa to parse into. */
void
-dfaparse(s, len, d)
- char *s;
- size_t len;
- struct dfa *d;
-
+dfaparse (char *s, size_t len, struct dfa *d)
{
dfa = d;
- lexstart = lexptr = s;
+ lexptr = s;
lexleft = len;
lasttok = END;
laststart = 1;
parens = 0;
if (! syntax_bits_set)
- dfaerror("No syntax specified");
+ dfaerror(_("No regexp syntax bits specified"));
tok = lex();
depth = d->depth;
@@ -961,7 +1008,7 @@ dfaparse(s, len, d)
regexp(1);
if (tok != END)
- dfaerror("Unbalanced )");
+ dfaerror(_("Unbalanced )"));
addtok(END - d->nregexps);
addtok(CAT);
@@ -976,9 +1023,7 @@ dfaparse(s, len, d)
/* Copy one set to another; the destination must be large enough. */
static void
-copy(src, dst)
- position_set *src;
- position_set *dst;
+copy (position_set *src, position_set *dst)
{
int i;
@@ -992,9 +1037,7 @@ copy(src, dst)
the same index then their constraints are logically or'd together.
S->elems must point to an array large enough to hold the resulting set. */
static void
-insert(p, s)
- position p;
- position_set *s;
+insert (position p, position_set *s)
{
int i;
position t1, t2;
@@ -1019,10 +1062,7 @@ insert(p, s)
/* Merge two sets of positions into a third. The result is exactly as if
the positions of both sets were inserted into an initially empty set. */
static void
-merge(s1, s2, m)
- position_set *s1;
- position_set *s2;
- position_set *m;
+merge (position_set *s1, position_set *s2, position_set *m)
{
int i = 0, j = 0;
@@ -1045,9 +1085,7 @@ merge(s1, s2, m)
/* Delete a position from a set. */
static void
-delete(p, s)
- position p;
- position_set *s;
+delete (position p, position_set *s)
{
int i;
@@ -1064,11 +1102,7 @@ delete(p, s)
state. Newline and letter tell whether we got here on a newline or
letter, respectively. */
static int
-state_index(d, s, newline, letter)
- struct dfa *d;
- position_set *s;
- int newline;
- int letter;
+state_index (struct dfa *d, position_set *s, int newline, int letter)
{
int hash = 0;
int constraint;
@@ -1133,12 +1167,8 @@ state_index(d, s, newline, letter)
that position with the elements of its follow labeled with an appropriate
constraint. Repeat exhaustively until no funny positions are left.
S->elems must be large enough to hold the result. */
-static void epsclosure _RE_ARGS((position_set *s, struct dfa *d));
-
static void
-epsclosure(s, d)
- position_set *s;
- struct dfa *d;
+epsclosure (position_set *s, struct dfa *d)
{
int i, j;
int *visited;
@@ -1250,9 +1280,7 @@ epsclosure(s, d)
scheme; the number of elements in each set deeper in the stack can be
used to determine the address of a particular set's array. */
void
-dfaanalyze(d, searchflag)
- struct dfa *d;
- int searchflag;
+dfaanalyze (struct dfa *d, int searchflag)
{
int *nullable; /* Nullable stack. */
int *nfirstpos; /* Element count stack for firstpos sets. */
@@ -1513,10 +1541,7 @@ dfaanalyze(d, searchflag)
create a new group labeled with the characters of C and insert this
position in that group. */
void
-dfastate(s, d, trans)
- int s;
- struct dfa *d;
- int trans[];
+dfastate (int s, struct dfa *d, int trans[])
{
position_set grps[NOTCHAR]; /* As many as will ever be needed. */
charclass labels[NOTCHAR]; /* Labels corresponding to the groups. */
@@ -1545,9 +1570,9 @@ dfastate(s, d, trans)
{
initialized = 1;
for (i = 0; i < NOTCHAR; ++i)
- if (ISALNUM(i))
+ if (IS_WORD_CONSTITUENT(i))
setbit(i, letters);
- setbit('\n', newline);
+ setbit(eolbyte, newline);
}
zeroset(matches);
@@ -1568,7 +1593,7 @@ dfastate(s, d, trans)
{
if (! MATCHES_NEWLINE_CONTEXT(pos.constraint,
d->states[s].newline, 1))
- clrbit('\n', matches);
+ clrbit(eolbyte, matches);
if (! MATCHES_NEWLINE_CONTEXT(pos.constraint,
d->states[s].newline, 0))
for (j = 0; j < CHARCLASS_INTS; ++j)
@@ -1678,12 +1703,8 @@ dfastate(s, d, trans)
else
state_letter = state;
for (i = 0; i < NOTCHAR; ++i)
- if (i == '\n')
- trans[i] = state_newline;
- else if (ISALNUM(i))
- trans[i] = state_letter;
- else
- trans[i] = state;
+ trans[i] = (IS_WORD_CONSTITUENT(i)) ? state_letter : state;
+ trans[eolbyte] = state_newline;
}
else
for (i = 0; i < NOTCHAR; ++i)
@@ -1707,7 +1728,7 @@ dfastate(s, d, trans)
/* Find out if the new state will want any context information. */
wants_newline = 0;
- if (tstbit('\n', labels[i]))
+ if (tstbit(eolbyte, labels[i]))
for (j = 0; j < follows.nelem; ++j)
if (PREV_NEWLINE_DEPENDENT(follows.elems[j].constraint))
wants_newline = 1;
@@ -1739,9 +1760,9 @@ dfastate(s, d, trans)
{
int c = j * INTBITS + k;
- if (c == '\n')
+ if (c == eolbyte)
trans[c] = state_newline;
- else if (ISALNUM(c))
+ else if (IS_WORD_CONSTITUENT(c))
trans[c] = state_letter;
else if (c < NOTCHAR)
trans[c] = state;
@@ -1762,9 +1783,7 @@ dfastate(s, d, trans)
TODO: Improve this comment, get rid of the unnecessary redundancy. */
static void
-build_state(s, d)
- int s;
- struct dfa *d;
+build_state (int s, struct dfa *d)
{
int *trans; /* The new transition table. */
int i;
@@ -1830,8 +1849,8 @@ build_state(s, d)
/* Keep the newline transition in a special place so we can use it as
a sentinel. */
- d->newlines[s] = trans['\n'];
- trans['\n'] = -1;
+ d->newlines[s] = trans[eolbyte];
+ trans[eolbyte] = -1;
if (ACCEPTING(s, *d))
d->fails[s] = trans;
@@ -1840,8 +1859,7 @@ build_state(s, d)
}
static void
-build_state_zero(d)
- struct dfa *d;
+build_state_zero (struct dfa *d)
{
d->tralloc = 1;
d->trcount = 0;
@@ -1867,18 +1885,14 @@ build_state_zero(d)
match needs to be verified by a backtracking matcher. Otherwise
we store a 0 in *backref. */
char *
-dfaexec(d, begin, end, newline, count, backref)
- struct dfa *d;
- char *begin;
- char *end;
- int newline;
- int *count;
- int *backref;
+dfaexec (struct dfa *d, char *begin, char *end,
+ int newline, int *count, int *backref)
{
register int s, s1, tmp; /* Current state. */
register unsigned char *p; /* Current input character. */
register int **trans, *t; /* Copy of d->trans so it can be optimized
into a register. */
+ register unsigned char eol = eolbyte; /* Likewise for eolbyte. */
static int sbit[NOTCHAR]; /* Table for anding with d->success. */
static int sbit_init;
@@ -1888,12 +1902,8 @@ dfaexec(d, begin, end, newline, count, backref)
sbit_init = 1;
for (i = 0; i < NOTCHAR; ++i)
- if (i == '\n')
- sbit[i] = 4;
- else if (ISALNUM(i))
- sbit[i] = 2;
- else
- sbit[i] = 1;
+ sbit[i] = (IS_WORD_CONSTITUENT(i)) ? 2 : 1;
+ sbit[eol] = 4;
}
if (! d->tralloc)
@@ -1902,34 +1912,25 @@ dfaexec(d, begin, end, newline, count, backref)
s = s1 = 0;
p = (unsigned char *) begin;
trans = d->trans;
- *end = '\n';
+ *end = eol;
for (;;)
{
- /* The dreaded inner loop. */
- if ((t = trans[s]) != 0)
- do
- {
- s1 = t[*p++];
- if (! (t = trans[s1]))
- goto last_was_s;
- s = t[*p++];
- }
- while ((t = trans[s]) != 0);
- goto last_was_s1;
- last_was_s:
- tmp = s, s = s1, s1 = tmp;
- last_was_s1:
+ while ((t = trans[s]) != 0) { /* hand-optimized loop */
+ s1 = t[*p++];
+ if ((t = trans[s1]) == 0) {
+ tmp = s ; s = s1 ; s1 = tmp ; /* swap */
+ break;
+ }
+ s = t[*p++];
+ }
if (s >= 0 && p <= (unsigned char *) end && d->fails[s])
{
if (d->success[s] & sbit[*p])
{
if (backref)
- if (d->states[s].backref)
- *backref = 1;
- else
- *backref = 0;
+ *backref = (d->states[s].backref != 0);
return (char *) p;
}
@@ -1939,7 +1940,7 @@ dfaexec(d, begin, end, newline, count, backref)
}
/* If the previous character was a newline, count it. */
- if (count && (char *) p <= end && p[-1] == '\n')
+ if (count && (char *) p <= end && p[-1] == eol)
++*count;
/* Check if we've run off the end of the buffer. */
@@ -1953,7 +1954,7 @@ dfaexec(d, begin, end, newline, count, backref)
continue;
}
- if (p[-1] == '\n' && newline)
+ if (p[-1] == eol && newline)
{
s = d->newlines[s1];
continue;
@@ -1966,8 +1967,7 @@ dfaexec(d, begin, end, newline, count, backref)
/* Initialize the components of a dfa that the other routines don't
initialize for themselves. */
void
-dfainit(d)
- struct dfa *d;
+dfainit (struct dfa *d)
{
d->calloc = 1;
MALLOC(d->charclasses, charclass, d->calloc);
@@ -1981,15 +1981,16 @@ dfainit(d)
d->tralloc = 0;
d->musts = 0;
+ d->realtrans = 0;
+ d->fails = 0;
+ d->newlines = 0;
+ d->success = 0;
+
}
/* Parse and analyze a single string of the given length. */
void
-dfacomp(s, len, d, searchflag)
- char *s;
- size_t len;
- struct dfa *d;
- int searchflag;
+dfacomp (char *s, size_t len, struct dfa *d, int searchflag)
{
if (case_fold) /* dummy folding in service of dfamust() */
{
@@ -1998,13 +1999,13 @@ dfacomp(s, len, d, searchflag)
lcopy = malloc(len);
if (!lcopy)
- dfaerror("out of memory");
-
+ dfaerror(_("out of memory"));
+
/* This is a kludge. */
case_fold = 0;
for (i = 0; i < len; ++i)
- if (ISUPPER(s[i]))
- lcopy[i] = tolower(s[i]);
+ if (ISUPPER ((unsigned char) s[i]))
+ lcopy[i] = tolower ((unsigned char) s[i]);
else
lcopy[i] = s[i];
@@ -2028,8 +2029,7 @@ dfacomp(s, len, d, searchflag)
/* Free the storage held by the components of a dfa. */
void
-dfafree(d)
- struct dfa *d;
+dfafree (struct dfa *d)
{
int i;
struct dfamust *dm, *ndm;
@@ -2090,9 +2090,9 @@ dfafree(d)
Type left right is in
---- ---- ----- -- --
char c # c # c # c # c
-
+
CSET ZERO ZERO ZERO ZERO
-
+
STAR ZERO ZERO ZERO ZERO
QMARK ZERO ZERO ZERO ZERO
@@ -2103,12 +2103,12 @@ dfafree(d)
p->left : q->right : q->is!=ZERO) ? q->in plus
p->is##q->left p->right##q->is p->is##q->is : p->right##q->left
ZERO
-
+
OR longest common longest common (do p->is and substrings common to
leading trailing q->is have same p->in and q->in
- (sub)sequence (sub)sequence length and
- of p->left of p->right content) ?
- and q->left and q->right p->is : NULL
+ (sub)sequence (sub)sequence length and
+ of p->left of p->right content) ?
+ and q->left and q->right p->is : NULL
If there's anything else we recognize in the tree, all four sequences get set
to zero-length sequences. If there's something we don't recognize in the tree,
@@ -2135,15 +2135,13 @@ dfafree(d)
Does optimization actually accomplish anything,
or is the automaton you get from "psi|epsilon" (for example)
the same as the one you get from "psi" (for example)?
-
+
Are optimizable r.e.'s likely to be used in real-life situations
(something like 'ab*' is probably unlikely; something like is
'psi|epsilon' is likelier)? */
static char *
-icatalloc(old, new)
- char *old;
- char *new;
+icatalloc (char *old, char *new)
{
char *result;
size_t oldsize, newsize;
@@ -2164,16 +2162,13 @@ icatalloc(old, new)
}
static char *
-icpyalloc(string)
- char *string;
+icpyalloc (char *string)
{
return icatalloc((char *) NULL, string);
}
static char *
-istrstr(lookin, lookfor)
- char *lookin;
- char *lookfor;
+istrstr (char *lookin, char *lookfor)
{
char *cp;
size_t len;
@@ -2186,16 +2181,14 @@ istrstr(lookin, lookfor)
}
static void
-ifree(cp)
- char *cp;
+ifree (char *cp)
{
if (cp != NULL)
free(cp);
}
static void
-freelist(cpp)
- char **cpp;
+freelist (char **cpp)
{
int i;
@@ -2209,10 +2202,7 @@ freelist(cpp)
}
static char **
-enlist(cpp, new, len)
- char **cpp;
- char *new;
- size_t len;
+enlist (char **cpp, char *new, size_t len)
{
int i, j;
@@ -2257,9 +2247,7 @@ enlist(cpp, new, len)
list of their distinct common substrings. Return NULL if something
seems wild. */
static char **
-comsubs(left, right)
- char *left;
- char *right;
+comsubs (char *left, char *right)
{
char **cpp;
char *lcp;
@@ -2293,9 +2281,7 @@ comsubs(left, right)
}
static char **
-addlists(old, new)
-char **old;
-char **new;
+addlists (char **old, char **new)
{
int i;
@@ -2313,9 +2299,7 @@ char **new;
/* Given two lists of substrings, return a new list giving substrings
common to both. */
static char **
-inboth(left, right)
- char **left;
- char **right;
+inboth (char **left, char **right)
{
char **both;
char **temp;
@@ -2356,16 +2340,14 @@ typedef struct
} must;
static void
-resetmust(mp)
-must *mp;
+resetmust (must *mp)
{
mp->left[0] = mp->right[0] = mp->is[0] = '\0';
freelist(mp->in);
}
static void
-dfamust(dfa)
-struct dfa *dfa;
+dfamust (struct dfa *dfa)
{
must *musts;
must *mp;
diff --git a/dfa.h b/dfa.h
index dda51816..f2fef4b7 100644
--- a/dfa.h
+++ b/dfa.h
@@ -1,5 +1,5 @@
/* dfa.h - declarations for GNU deterministic regexp compiler
- Copyright (C) 1988 Free Software Foundation, Inc.
+ Copyright (C) 1988, 1998 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -22,6 +22,21 @@
In addition to clobbering modularity, we eat up valuable
name space. */
+# undef PARAMS
+#if __STDC__
+# ifndef _PTR_T
+# define _PTR_T
+ typedef void * ptr_t;
+# endif
+# define PARAMS(x) x
+#else
+# ifndef _PTR_T
+# define _PTR_T
+ typedef char * ptr_t;
+# endif
+# define PARAMS(x) ()
+#endif
+
/* Number of bits in an unsigned char. */
#ifndef CHARBITS
#define CHARBITS 8
@@ -305,16 +320,15 @@ struct dfa
/* Entry points. */
-#ifdef __STDC__
-
-/* dfasyntax() takes two arguments; the first sets the syntax bits described
- earlier in this file, and the second sets the case-folding flag. */
-extern void dfasyntax(reg_syntax_t, int);
+/* dfasyntax() takes three arguments; the first sets the syntax bits described
+ earlier in this file, the second sets the case-folding flag, and the
+ third specifies the line terminator. */
+extern void dfasyntax PARAMS ((reg_syntax_t, int, int));
/* Compile the given string of the given length into the given struct dfa.
Final argument is a flag specifying whether to build a searching or an
exact matcher. */
-extern void dfacomp(char *, size_t, struct dfa *, int);
+extern void dfacomp PARAMS ((char *, size_t, struct dfa *, int));
/* Execute the given struct dfa on the buffer of characters. The
first char * points to the beginning, and the second points to the
@@ -328,26 +342,26 @@ extern void dfacomp(char *, size_t, struct dfa *, int);
order to verify backreferencing; otherwise the flag will be cleared.
Returns NULL if no match is found, or a pointer to the first
character after the first & shortest matching string in the buffer. */
-extern char *dfaexec(struct dfa *, char *, char *, int, int *, int *);
+extern char *dfaexec PARAMS ((struct dfa *, char *, char *, int, int *, int *));
/* Free the storage held by the components of a struct dfa. */
-extern void dfafree(struct dfa *);
+extern void dfafree PARAMS ((struct dfa *));
/* Entry points for people who know what they're doing. */
/* Initialize the components of a struct dfa. */
-extern void dfainit(struct dfa *);
+extern void dfainit PARAMS ((struct dfa *));
/* Incrementally parse a string of given length into a struct dfa. */
-extern void dfaparse(char *, size_t, struct dfa *);
+extern void dfaparse PARAMS ((char *, size_t, struct dfa *));
/* Analyze a parsed regexp; second argument tells whether to build a searching
or an exact matcher. */
-extern void dfaanalyze(struct dfa *, int);
+extern void dfaanalyze PARAMS ((struct dfa *, int));
/* Compute, for each possible character, the transitions out of a given
state, storing them in an array of integers. */
-extern void dfastate(int, struct dfa *, int []);
+extern void dfastate PARAMS ((int, struct dfa *, int []));
/* Error handling. */
@@ -355,10 +369,4 @@ extern void dfastate(int, struct dfa *, int []);
takes a single argument, a NUL-terminated string describing the error.
The default dfaerror() prints the error message to stderr and exits.
The user can provide a different dfafree() if so desired. */
-extern void dfaerror(const char *);
-
-#else /* ! __STDC__ */
-extern void dfasyntax(), dfacomp(), dfafree(), dfainit(), dfaparse();
-extern void dfaanalyze(), dfastate(), dfaerror();
-extern char *dfaexec();
-#endif /* ! __STDC__ */
+extern void dfaerror PARAMS ((const char *));
diff --git a/doc/ChangeLog b/doc/ChangeLog
index 2d8e5208..79dac766 100644
--- a/doc/ChangeLog
+++ b/doc/ChangeLog
@@ -1,3 +1,44 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Mon May 14 19:57:31 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.texi, gawkinet.texi: Versions for distribution
+ put in place.
+ * gawk.1, awkcard.in: Minor edits for consistency of
+ usage, formatting.
+
+Wed Nov 22 14:57:59 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.texi, gawk.1, awkcard.in: Removed all documentation
+ of abort.
+
+Sun Aug 13 11:23:50 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.texi, gawk.1, awkcard.in: documented sort function
+ and optional third argument to match.
+
+Sun Aug 13 00:40:41 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.texi: hardwired publisher info.
+ * publisher.texi: Removed. Not needed any more.
+ * gawkinet.texi: Added title page stuff.
+
+Thu Jul 5 21:05:57 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.texi: moved to use of @command, @option everywhere
+ appropriate. Removed all @page and @group in anticipation
+ of re-page breaking. Updated stuff for install-info.
+ Added FDL.
+
+Tue Nov 10 11:42:26 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * publisher.texi: new file with publisher related info.
+ * Makefile.in: updated dvi and postscript targets to make
+ them lots smarter about not reformatting if need be.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -52,7 +93,7 @@ Thu Jul 29 23:15:34 1999 Arnold D. Robbins <arnold@skeeve.com>
install it directly.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Wed Oct 7 21:59:33 1998 Arnold D. Robbins <arnold@gnu.org>
diff --git a/doc/Makefile.am b/doc/Makefile.am
new file mode 100644
index 00000000..3a9e4b44
--- /dev/null
+++ b/doc/Makefile.am
@@ -0,0 +1,80 @@
+#
+# doc/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 2000, 2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
+
+## process this file with automake to produce Makefile.in
+
+info_TEXINFOS = gawk.texi gawkinet.texi
+
+man_MANS = gawk.1 igawk.1
+
+EXTRA_DIST = ChangeLog README.card ad.block setter.outline \
+ awkcard.in awkforai.txt texinfo.tex cardfonts \
+ macros colors no.colors $(man_MANS) \
+ uf002331.eps uf002331.jpg lflashlight.eps rflashlight.eps \
+ statist.jpg statist.eps
+
+MAKEINFO = @MAKEINFO@ --no-split
+
+TROFF = groff -t -Tps
+SEDME = sed -e "s/^level0 restore/level0 restore flashme 100 72 moveto (Copyright `date '+%m-%d-%y %T'`, FSF, Inc. (all)) show/" \
+ -e "s/^\/level0 save def/\/level0 save def 30 -48 translate/"
+
+CARDSRC = $(srcdir)/macros $(srcdir)/cardfonts $(srcdir)/colors awkcard.tr
+CARDSRC_N = $(srcdir)/macros $(srcdir)/cardfonts $(srcdir)/no.colors awkcard.tr
+CARDFILES= $(CARDSRC) ad.block awkcard.in setter.outline
+
+# Use this if your troff can correctly handle macros from 'colors' file
+AWKCARD = awkcard.ps
+
+# Uncomment the following definition of AWKCARD if your troff can produce
+# Postscript but still has troubles with macros from 'colors'. As this
+# is not groff you will have to change TROFF macro as well. Do not forget
+# to ensure that awkcard.tr is processed by tbl.
+#AWKCARD = awkcard.nc
+
+postscript: gawk.ps gawkinet.ps gawk.1.ps igawk.1.ps $(AWKCARD)
+
+gawk.ps: gawk.dvi
+ dvips -o gawk.ps gawk.dvi
+
+gawkinet.ps: gawkinet.dvi
+ dvips -o gawkinet.ps gawkinet.dvi
+
+gawk.1.ps: gawk.1
+ -groff -man $(srcdir)/gawk.1 > gawk.1.ps
+
+igawk.1.ps: igawk.1
+ -groff -man $(srcdir)/igawk.1 > igawk.1.ps
+
+awkcard.tr: awkcard.in
+ sed 's:SRCDIR:$(srcdir):' < $(srcdir)/awkcard.in > awkcard.tr
+
+awkcard.ps: $(CARDFILES)
+ $(TROFF) $(CARDSRC) | $(SEDME) | cat $(srcdir)/setter.outline - > awkcard.ps
+
+awkcard.nc: $(CARDFILES)
+ $(TROFF) $(CARDSRC_N) | $(SEDME) | cat $(srcdir)/setter.outline - > awkcard.ps && touch awkcard.nc
+
+clean:
+ rm -f *.ps *~ awkcard.nc
+
diff --git a/doc/Makefile.in b/doc/Makefile.in
index edcf4046..555450d2 100644
--- a/doc/Makefile.in
+++ b/doc/Makefile.in
@@ -1,112 +1,450 @@
-# Makefile for GNU Awk documentation.
+# Makefile.in generated automatically by automake 1.4a from Makefile.am
+
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000
+# Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+SHELL = @SHELL@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+
+bindir = @bindir@
+sbindir = @sbindir@
+libexecdir = @libexecdir@
+datadir = @datadir@
+sysconfdir = @sysconfdir@
+sharedstatedir = @sharedstatedir@
+localstatedir = @localstatedir@
+libdir = @libdir@
+infodir = @infodir@
+mandir = @mandir@
+includedir = @includedir@
+oldincludedir = /usr/include
+
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+
+top_builddir = ..
+
+ACLOCAL = @ACLOCAL@
+AUTOCONF = @AUTOCONF@
+AUTOMAKE = @AUTOMAKE@
+AUTOHEADER = @AUTOHEADER@
+
+INSTALL = @INSTALL@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_FLAG =
+transform = @program_transform_name@
+
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+
+@SET_MAKE@
+AMDEP = @AMDEP@
+AMTAR = @AMTAR@
+AWK = @AWK@
+CATALOGS = @CATALOGS@
+CATOBJEXT = @CATOBJEXT@
+CC = @CC@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+DATADIRNAME = @DATADIRNAME@
+DEPDIR = @DEPDIR@
+GENCAT = @GENCAT@
+GMOFILES = @GMOFILES@
+GMSGFMT = @GMSGFMT@
+GT_NO = @GT_NO@
+GT_YES = @GT_YES@
+INCLUDE_LOCALE_H = @INCLUDE_LOCALE_H@
+INSTOBJEXT = @INSTOBJEXT@
+INTLDEPS = @INTLDEPS@
+INTLLIBS = @INTLLIBS@
+INTLOBJS = @INTLOBJS@
+LN_S = @LN_S@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+MSGFMT = @MSGFMT@
+PACKAGE = @PACKAGE@
+POFILES = @POFILES@
+POSUB = @POSUB@
+RANLIB = @RANLIB@
+SOCKET_LIBS = @SOCKET_LIBS@
+U = @U@
+USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@
+USE_NLS = @USE_NLS@
+VERSION = @VERSION@
+YACC = @YACC@
+install_sh = @install_sh@
+l = @l@
+
+#
+# doc/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 2000, 2001 the Free Software Foundation, Inc.
#
-# Copyright (C) 1993-2000 the Free Software Foundation, Inc.
-#
# This file is part of GAWK, the GNU implementation of the
# AWK Programming Language.
-#
+#
# GAWK is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
-#
+#
# GAWK is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
-#
+#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
-SHELL = /bin/sh
-srcdir = @srcdir@
-VPATH = @srcdir@
+info_TEXINFOS = gawk.texi gawkinet.texi
-INSTALL = @INSTALL@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_DATA = @INSTALL_DATA@
+man_MANS = gawk.1 igawk.1
-prefix = @prefix@
-exec_prefix = @exec_prefix@
-binprefix =
-manprefix =
+EXTRA_DIST = ChangeLog README.card ad.block setter.outline \
+ awkcard.in awkforai.txt texinfo.tex cardfonts \
+ macros colors no.colors $(man_MANS) \
+ uf002331.eps uf002331.jpg lflashlight.eps rflashlight.eps \
+ statist.jpg statist.eps
-bindir = @bindir@
-libdir = @libdir@
-mandir = @mandir@/man1
-manext = .1
-infodir = @infodir@
-datadir = @datadir@/awk
-TEXI2DVI = texi2dvi
-TEX = tex
-MAKEINFO = makeinfo --no-split
+MAKEINFO = @MAKEINFO@ --no-split
+
TROFF = groff -t -Tps
SEDME = sed -e "s/^level0 restore/level0 restore flashme 100 72 moveto (Copyright `date '+%m-%d-%y %T'`, FSF, Inc. (all)) show/" \
-e "s/^\/level0 save def/\/level0 save def 30 -48 translate/"
-DOCS= gawk.1 igawk.1 gawk.texi
-
-TEXFILES= gawk.aux gawk.cp gawk.cps gawk.fn gawk.fns gawk.ky gawk.kys \
- gawk.pg gawk.pgs gawk.toc gawk.tp gawk.tps gawk.vr gawk.vrs
-
-ALLDOC= gawk.dvi $(TEXFILES) gawk.log awkcard.tr
CARDSRC = $(srcdir)/macros $(srcdir)/cardfonts $(srcdir)/colors awkcard.tr
CARDSRC_N = $(srcdir)/macros $(srcdir)/cardfonts $(srcdir)/no.colors awkcard.tr
-CARDFILES= $(CARDSRC) ad.block awkcard.in setter.outline
+CARDFILES = $(CARDSRC) ad.block awkcard.in setter.outline
# Use this if your troff can correctly handle macros from 'colors' file
AWKCARD = awkcard.ps
+subdir = doc
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = ../config.h
+CONFIG_CLEAN_FILES =
+DIST_SOURCES =
+TEXI2DVI = texi2dvi
+INFO_DEPS = gawk.info gawkinet.info
+DVIS = gawk.dvi gawkinet.dvi
+TEXINFOS = gawk.texi gawkinet.texi
+man1dir = $(mandir)/man1
+MANS = $(man_MANS)
-# Uncomment the following definition of AWKCARD if your troff can produce
-# Postscript but still has troubles with macros from 'colors'. As this
-# is not groff you will have to change TROFF macro as well. Do not forget
-# to ensure that awkcard.tr is processed by tbl.
-#AWKCARD = awkcard.nc
+NROFF = nroff
+DIST_COMMON = ChangeLog Makefile.am Makefile.in texinfo.tex
-all: $(DOCS) info
-install: $(mandir)/gawk$(manext) $(mandir)/igawk$(manext) $(infodir)/gawk.info
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-$(infodir)/gawk.info::
- -if test -f gawk.info; then d=.; \
- else d=$(srcdir); fi; \
- if [ -f $(infodir)/dir -a -f $(infodir)/gawk.info ] \
- && cmp $$d/gawk.info $(infodir)/gawk.info > /dev/null \
- && grep '(gawk)' $(infodir)/dir > /dev/null; then \
- exit 0; \
- fi; \
- $(INSTALL_DATA) $$d/gawk.info $(infodir)/gawk.info ; \
- if $(SHELL) -c 'install-info --version' > /dev/null 2>&1 ; \
- then install-info --info-dir=$(infodir) gawk.info ; \
- else true ; fi; exit 0
+GZIP_ENV = --best
+all: all-redirect
+.SUFFIXES:
+.SUFFIXES: .dvi .info .ps .texi .texinfo .txi
+$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
+ cd $(top_srcdir) && $(AUTOMAKE) --gnu doc/Makefile
-$(mandir)/gawk$(manext):: gawk.1
- $(INSTALL_DATA) $(srcdir)/gawk.1 $(mandir)/gawk$(manext)
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+ cd $(top_builddir) \
+ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
-$(mandir)/igawk$(manext):: igawk.1
- $(INSTALL_DATA) $(srcdir)/igawk.1 $(mandir)/igawk$(manext)
-uninstall:
- rm -f $(mandir)/gawk$(manext) $(mandir)/igawk$(manext) $(infodir)/gawk.info*
+gawk.info: gawk.texi
+gawk.dvi: gawk.texi
-dvi: gawk.dvi
-gawk.dvi: gawk.texi
- -TEXINPUTS=$(srcdir):$$TEXINPUTS $(TEXI2DVI) $(srcdir)/gawk.texi
+gawkinet.info: gawkinet.texi
+gawkinet.dvi: gawkinet.texi
-info: gawk.info
-gawk.info: gawk.texi
- $(MAKEINFO) $(srcdir)/gawk.texi
+DVIPS = dvips
+
+.texi.info:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+
+.texi.dvi:
+ TEXINPUTS=$(srcdir):$$TEXINPUTS \
+ MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
+
+.texi:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+
+.texinfo.info:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+
+.texinfo:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+
+.texinfo.dvi:
+ TEXINPUTS=$(srcdir):$$TEXINPUTS \
+ MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
+
+.txi.info:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+
+.txi.dvi:
+ TEXINPUTS=$(srcdir):$$TEXINPUTS \
+ MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
+
+.txi:
+ @cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
+ cd $(srcdir) \
+ && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
+.dvi.ps:
+ $(DVIPS) $< -o $@
+
+install-info-am: $(INFO_DEPS)
+ @$(NORMAL_INSTALL)
+ $(mkinstalldirs) $(DESTDIR)$(infodir)
+ @list='$(INFO_DEPS)'; \
+ for file in $$list; do \
+ d=$(srcdir); \
+ for ifile in `CDPATH=: && cd $$d && echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
+ if test -f $$d/$$ifile; then \
+ echo " $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile"; \
+ $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile; \
+ else : ; fi; \
+ done; \
+ done
+ @$(POST_INSTALL)
+ @if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
+ list='$(INFO_DEPS)'; \
+ for file in $$list; do \
+ echo " install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file";\
+ install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file || :;\
+ done; \
+ else : ; fi
+
+uninstall-info:
+ $(PRE_UNINSTALL)
+ @if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
+ list='$(INFO_DEPS)'; \
+ for file in $$list; do \
+ echo " install-info --info-dir=$(DESTDIR)$(infodir) --remove $(DESTDIR)$(infodir)/$$file"; \
+ install-info --info-dir=$(DESTDIR)$(infodir) --remove $(DESTDIR)$(infodir)/$$file; \
+ done; \
+ else :; fi
+ @$(NORMAL_UNINSTALL)
+ @list='$(INFO_DEPS)'; \
+ for file in $$list; do \
+ (if cd $(DESTDIR)$(infodir); then \
+ echo " rm -f $$file $$file-[0-9] $$file-[0-9][0-9])"; \
+ rm -f $$file $$file-[0-9] $$file-[0-9][0-9]; \
+ else :; fi); \
+ done
+
+dist-info: $(INFO_DEPS)
+ list='$(INFO_DEPS)'; \
+ for base in $$list; do \
+ d=$(srcdir); \
+ for file in `CDPATH=: && cd $$d && eval echo $$base*`; do \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file; \
+ done; \
+ done
+
+mostlyclean-aminfo:
+ -rm -f gawk.aux gawk.cp gawk.cps gawk.dvi gawk.fn gawk.fns gawk.pgs \
+ gawk.ky gawk.kys gawk.ps gawk.log gawk.pg gawk.toc gawk.tp \
+ gawk.tps gawk.vr gawk.vrs gawk.op gawk.tr gawk.cv gawk.cn \
+ gawk.cm gawk.ov gawkinet.aux gawkinet.cp gawkinet.cps \
+ gawkinet.dvi gawkinet.fn gawkinet.fns gawkinet.pgs \
+ gawkinet.ky gawkinet.kys gawkinet.ps gawkinet.log gawkinet.pg \
+ gawkinet.toc gawkinet.tp gawkinet.tps gawkinet.vr \
+ gawkinet.vrs gawkinet.op gawkinet.tr gawkinet.cv gawkinet.cn \
+ gawkinet.cm gawkinet.ov
+
+clean-aminfo:
+
+distclean-aminfo:
+
+maintainer-clean-aminfo:
+ cd $(srcdir) && for i in $(INFO_DEPS); do \
+ rm -f $$i; \
+ if test "`echo $$i-[0-9]*`" != "$$i-[0-9]*"; then \
+ rm -f $$i-[0-9]*; \
+ fi; \
+ done
+
+install-man1:
+ $(mkinstalldirs) $(DESTDIR)$(man1dir)
+ @list='$(man1_MANS)'; \
+ l2='$(man_MANS)'; for i in $$l2; do \
+ case "$$i" in \
+ *.1*) list="$$list $$i" ;; \
+ esac; \
+ done; \
+ for i in $$list; do \
+ if test -f $(srcdir)/$$i; then file=$(srcdir)/$$i; \
+ else file=$$i; fi; \
+ ext=`echo $$i | sed -e 's/^.*\\.//'`; \
+ inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
+ inst=`echo $$inst | sed -e 's/^.*\///'`; \
+ inst=`echo $$inst | sed '$(transform)'`.$$ext; \
+ echo " $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst"; \
+ $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst; \
+ done
+
+uninstall-man1:
+ @list='$(man1_MANS)'; \
+ l2='$(man_MANS)'; for i in $$l2; do \
+ case "$$i" in \
+ *.1*) list="$$list $$i" ;; \
+ esac; \
+ done; \
+ for i in $$list; do \
+ ext=`echo $$i | sed -e 's/^.*\\.//'`; \
+ inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
+ inst=`echo $$inst | sed -e 's/^.*\///'`; \
+ inst=`echo $$inst | sed '$(transform)'`.$$ext; \
+ echo " rm -f $(DESTDIR)$(man1dir)/$$inst"; \
+ rm -f $(DESTDIR)$(man1dir)/$$inst; \
+ done
+install-man: $(MANS)
+ @$(NORMAL_INSTALL)
+ $(MAKE) $(AM_MAKEFLAGS) install-man1
+uninstall-man:
+ @$(NORMAL_UNINSTALL)
+ $(MAKE) $(AM_MAKEFLAGS) uninstall-man1
+tags: TAGS
+TAGS:
+
+
+distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
+
+distdir: $(DISTFILES)
+ @for file in $(DISTFILES); do \
+ d=$(srcdir); \
+ if test -d $$d/$$file; then \
+ cp -pR $$d/$$file $(distdir) \
+ || exit 1; \
+ else \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file \
+ || exit 1; \
+ fi; \
+ done
+ $(MAKE) $(AM_MAKEFLAGS) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-info
+info-am: $(INFO_DEPS)
+info: info-am
+dvi-am: $(DVIS)
+dvi: dvi-am
+check-am: all-am
+check: check-am
+installcheck-am:
+installcheck: installcheck-am
+install-exec-am:
+install-exec: install-exec-am
+
+install-data-am: install-info-am install-man
+install-data: install-data-am
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+install: install-am
+uninstall-am: uninstall-info uninstall-man
+uninstall: uninstall-am
+all-am: Makefile $(INFO_DEPS) $(MANS)
+all-redirect: all-am
+install-strip:
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_STRIP_FLAG=-s install
+installdirs:
+ $(mkinstalldirs) $(DESTDIR)$(infodir) $(DESTDIR)$(mandir)/man1
+
+
+mostlyclean-generic:
-postscript: dvi gawk.1 igawk.1 $(AWKCARD)
+clean-generic:
+
+distclean-generic:
+ -rm -f Makefile $(CONFIG_CLEAN_FILES)
+ -rm -f config.cache config.log stamp-h stamp-h[0-9]*
+
+maintainer-clean-generic:
+ -rm -f Makefile.in
+mostlyclean-am: mostlyclean-aminfo mostlyclean-generic
+
+mostlyclean: mostlyclean-am
+
+clean-am: clean-aminfo clean-generic mostlyclean-am
+
+clean: clean-am
+
+distclean-am: distclean-aminfo distclean-generic clean-am
+
+distclean: distclean-am
+
+maintainer-clean-am: maintainer-clean-aminfo maintainer-clean-generic \
+ distclean-am
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+
+maintainer-clean: maintainer-clean-am
+
+.PHONY: install-info-am uninstall-info mostlyclean-aminfo \
+distclean-aminfo clean-aminfo maintainer-clean-aminfo install-man1 \
+uninstall-man1 install-man uninstall-man tags distdir info-am info \
+dvi-am dvi check check-am installcheck-am installcheck install-exec-am \
+install-exec install-data-am install-data install-am install \
+uninstall-am uninstall all-redirect all-am all install-strip \
+installdirs mostlyclean-generic distclean-generic clean-generic \
+maintainer-clean-generic clean mostlyclean distclean maintainer-clean
+
+
+# Uncomment the following definition of AWKCARD if your troff can produce
+# Postscript but still has troubles with macros from 'colors'. As this
+# is not groff you will have to change TROFF macro as well. Do not forget
+# to ensure that awkcard.tr is processed by tbl.
+#AWKCARD = awkcard.nc
+
+postscript: gawk.ps gawkinet.ps gawk.1.ps igawk.1.ps $(AWKCARD)
+
+gawk.ps: gawk.dvi
+ dvips -o gawk.ps gawk.dvi
+
+gawkinet.ps: gawkinet.dvi
+ dvips -o gawkinet.ps gawkinet.dvi
+
+gawk.1.ps: gawk.1
-groff -man $(srcdir)/gawk.1 > gawk.1.ps
+
+igawk.1.ps: igawk.1
-groff -man $(srcdir)/igawk.1 > igawk.1.ps
- dvips -o gawk.ps gawk.dvi
awkcard.tr: awkcard.in
sed 's:SRCDIR:$(srcdir):' < $(srcdir)/awkcard.in > awkcard.tr
@@ -118,12 +456,8 @@ awkcard.nc: $(CARDFILES)
$(TROFF) $(CARDSRC_N) | $(SEDME) | cat $(srcdir)/setter.outline - > awkcard.ps && touch awkcard.nc
clean:
- rm -f *.ps $(ALLDOC) *~ awkcard.nc
-
-distclean: clean
- rm -f Makefile
+ rm -f *.ps *~ awkcard.nc
-maintainer-clean: distclean
- @echo "This command is intended for maintainers to use; it"
- @echo "deletes files that may require special tools to rebuild."
- rm -f gawk.info
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/doc/ad.block b/doc/ad.block
index d31f5d50..ee99a5a9 100644
--- a/doc/ad.block
+++ b/doc/ad.block
@@ -1,7 +1,7 @@
.\" AWK Reference Card --- Arnold Robbins, arnold@gnu.org
.\" This file is the Ad block (included in cover)
.\"
-.\" Copyright (C) 1996, 98 Free Software Foundation, Inc.
+.\" Copyright (C) 1996, 1998, 2000, 2001 Free Software Foundation, Inc.
.\"
.\" Permission is granted to make and distribute verbatim copies of
.\" this reference card provided the copyright notice and this permission
@@ -37,10 +37,9 @@ Fax (including Japan): +1-617-542-2652
E-mail: gnu@gnu.org
URL: http://www.gnu.org
-.ce 7
+.ce 5
.ft HB
-\*(CGFree Software
-Source Distributions on CD-ROM
+\*(CGSource Distributions on CD-ROM
Deluxe Distributions
Emacs, Gawk, Make and GDB Manuals
Emacs and GDB References\*(CX
diff --git a/doc/awkcard.in b/doc/awkcard.in
index ac1e8e56..43f73fb8 100644
--- a/doc/awkcard.in
+++ b/doc/awkcard.in
@@ -1,6 +1,6 @@
.\" AWK Reference Card --- Arnold Robbins, arnold@gnu.org
.\"
-.\" Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+.\" Copyright (C) 1996-2001 Free Software Foundation, Inc.
.\"
.\" Permission is granted to make and distribute verbatim copies of
.\" this reference card provided the copyright notice and this permission
@@ -45,57 +45,59 @@
.ES
.in +.2i
.nf
-\*(FRAWK Program Execution 4
-Action Statements 7
-Arrays 9
-Bug Reports 15
+\*(FRAction Statements 7
+Arrays 11
+Awk Program Execution 4
+Bit Manipulation Functions (\*(GK) 16
+Bug Reports 2
+Closing Redirections 12
Command Line Arguments (standard) 2
Command Line Arguments (\*(GK) 3
Command Line Arguments (\*(MK) 4
-Conversions And Comparisons 10
-Copying Permissions 16
+Conversions And Comparisons 9
+Copying Permissions 18
Definitions 2
-Environment Variables 16
-Escape Sequences 7
-Expressions 9
+Dynamic Extensions (\*(GK) 18
+Environment Variables (\*(GK) 18
+Escape Sequences 8
+Expressions 11
Fields 6
-FTP Information 16
-Historical Features (\*(GK) 16
-Input Control 11
+FTP/HTTP Information 18
+Historical Features (\*(GK) 18
+Input Control 12
+Internationalization (\*(GK) 16
Lines And Statements 5
-.ig
-Localization 10
-..
-Numeric Functions 13
-Output Control 11
+Localization (\*(GK) 17
+Numeric Functions 14
+Output Control 12
Pattern Elements 7
POSIX Character Classes (\*(GK) 6
-Printf Formats 12
+Printf Formats 13
Records 6
Regular Expressions 5
-Special Filenames 13
-String Functions 14
-Time Functions (\*(GK) 15
-User-defined Functions 15
+Special Filenames 14
+String Functions 15
+Time Functions (\*(GK) 16
+User-defined Functions 17
Variables 8\*(CX
.in -.2i
.EB "\s+2\f(HBCONTENTS\*(FR\s0"
-.sp
+.sp .4
.TD
.fi
-\*(CD\*(FRThis reference card was written by Arnold Robbins.
-Brian Kernighan and Michael Brennan reviewed it; we thank them
-for their help.
-.sp
+\*(CD\*(FRArnold Robbins wrote this reference card.
+We thank
+Brian Kernighan and Michael Brennan who reviewed it.
+.sp .4
.SL
-.sp
+.sp .4
.so SRCDIR/ad.block
.\" a subtlety here; this line changes color. We rely on it
.\" also to provide a blank line.
\*(CD
.SL
.nf
-\*(FR\(co Copyright 1996-2000, Free Software Foundation
+\*(FR\(co Copyright 1996-2001, Free Software Foundation
59 Temple Place \(em Suite 330
Boston, MA 02111-1307 USA
.nf
@@ -124,7 +126,7 @@ Several type faces are used to clarify the meaning:
.fi
.in +\n(INu
.ti -\n(INu
-\(bu\|\^\*(FI\*(IN\fP is used to indicate user input and for syntactic
+\(bu\|\^\*(FI\*(IN\fP is used for emphasis, to indicate user input and for syntactic
placeholders, such as \*(FIvariable\fP or \*(FIaction\fP.
.in -\n(INu
.br
@@ -137,6 +139,8 @@ placeholders, such as \*(FIvariable\fP or \*(FIaction\fP.
\*(FC1.4e2\*(FR
or
\*(FC4.1E5\*(FR.
+\*(CBNumbers may also be given in octal or hexadecimal: e.g.,
+\*(FC011\*(FR or \*(FC0x11\*(FR.\*(CD
.sp .5
\*(FIescape sequences\fP \- a special sequence of characters beginning
with a backslash, used to describe otherwise unprintable characters.
@@ -160,8 +164,10 @@ UNIX reference manual.
.sp .5
\*(FIrule\fP \- a pattern-action pair, where the pattern or action may
be missing.\*(CX
-.EB \s+2\f(HBDEFINITIONS\*(FR\s0
+.EB "\s+2\f(HBDEFINITIONS\*(FR\s0"
+.\"
+.\"
.\" --- Command Line Arguments
.ES
.fi
@@ -176,7 +182,7 @@ expand;
l lw(2.2i).
\*(FC\-F \*(FIfs\*(FR use \*(FIfs\fP for the input field separator.
\*(FC\-v\*(FI var\*(FC\^=\^\*(FIval\*(FR T{
-assign the value \*(FIval\*(FR, to the variable \*(FIvar\*(FR,
+assign the value \*(FIval\*(FR to the variable \*(FIvar\*(FR
before execution of the program begins. Such
variable values are available to the \*(FCBEGIN\fP rule.
T}
@@ -201,79 +207,145 @@ l lw(2.2i).
.TE
.EB "\s+2\f(HBCOMMAND LINE ARGUMENTS (standard)\*(FR\s0"
+.\" --- Bug Reports
+.ES
+.fi
+\*(CDIf you find a bug in this reference card, please report it via electronic
+mail to \*(FCbug-gawk@gnu.org\*(FR.\*(CX
+.EB "\s+2\f(HBBUG REPORTS\*(FR\s0"
+
.BT
+.\"
+.\"
+.\" --- Command Line Arguments (gawk)
.ES
.fi
-\*(CDThe following options are specific to \*(GK. The \*(FC\-W\*(FR
-forms are for full POSIX compliance.
+\*(CDThe following options are specific to \*(GK.
+You may also use ``\*(FC\-W \*(FIoption\*(FR''
+for full POSIX compliance.
+Long options may abbreviated as long as the abbreviation
+remains unique.
.sp .5
.ig
.\" This option is left undocumented, on purpose.
-\*(FC\-\^\-nostalgia\*(FR
-\*(FC\-W nostalgia\*(FR%T{
+\*(FC\-\^\-nostalgia\*(FR%T{
provide a moment of nostalgia for
long time \*(AK users.
T}
..
.TS
expand, tab(%);
+l lw(1.3i).
+\*(FC\-\^\-assign \*(FIvar\*(FC\^=\^\*(FIval\*(FR%just like \*(FC\-v\fP.
+\*(FC\-\^\-field-separator \*(FIfs\*(FR%just like \*(FC\-F\fP.
+\*(FC\-\^\-file \*(FIprog-file%\*(FRjust like \*(FC\-f\fP.
+.TE
+.TS
+expand, tab(%);
ls
-l lw(1.8i).
-\*(FC\-\^\-field-separator \*(FIfs\*(FR
-%just like \*(FC\-F\fP
-\*(FC\-\^\-assign \*(FIvar\*(FC\^=\^\*(FIval\*(FR%just like \*(FC\-v\fP
-\*(FC\-\^\-file \*(FIprog-file%\*(FRjust like \*(FC\-f\fP
-\*(FC\-\^\-traditional\*(FR
-\*(FC\-\^\-compat\*(FR
-\*(FC\-W compat\*(FR
-\*(FC\-W traditional\*(FR%T{
-turn off \*(GK-specific extensions
-(\*(FC\-\^\-traditional\*(FR preferred).
-T}
-\*(FC\-\^\-copyleft\*(FR
-\*(FC\-\^\-copyright\*(FR
-\*(FC\-W copyleft\*(FR
-\*(FC\-W copyright\*(FR%T{
+l lw(2.2i).
+\*(FC\-\^\-compat\*(FR, \*(FC\-\^\-traditional\*(FR
+%T{
+disable \*(GK-specific extensions
+(the use of \*(FC\-\^\-traditional\*(FR is preferred).
+T}
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-copyleft\*(FR, \*(FC\-\^\-copyright\*(FR
+%T{
print the short version of the GNU
copyright information on \*(FCstdout\*(FR.
T}
-\*(FC\-\^\-help\*(FR
-\*(FC\-\^\-usage\*(FR
-\*(FC\-W help\*(FR
-\*(FC\-W usage\*(FR%T{
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-dump-variables\*(FR[\*(FC=\*(FIfile\*(FR]
+%T{
+Print a sorted list of global variables,
+their types and final values to
+\*(FIfile\*(FR.
+If no \*(FIfile\*(FR
+is provided, \*(FCgawk\*(FR
+uses \*(FCawkvars.out\*(FR.
+T}
+\*(FC\-\^\-gen\-po\*(FR%T{
+process the program and print a GNU \*(FCgettext\*(FR
+format \*(FC\&.po\*(FR format file on standard output,
+containing the text of all strings that were marked
+for localization.
+T}
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-help\*(FR, \*(FC\-\^\-usage\*(FR
+%T{
print a short summary of the available
options on \*(FCstdout\*(FR, then exit zero.
T}
-\*(FC\-\^\-lint\*(FR
-\*(FC\-W lint\*(FR%T{
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-lint\*(FR[\*(FC=fatal\*(FR]
+%T{
warn about constructs that are dubious
or non-portable to other \*(AKs.
+With an optional argument of \*(FCfatal\*(FR,
+lint warnings become fatal errors.
T}
-\*(FC\-\^\-lint\-old\*(FR
-\*(FC\-W lint\-old\*(FR%T{
+.T&
+l lw(2.2i).
+\*(FC\-\^\-lint\-old\*(FR%T{
warn about constructs that are not
portable to the original version of
Unix \*(AK.
T}
-\*(FC\-\^\-posix\*(FR
-\*(FC\-W posix\*(FR%T{
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-non\-decimal\-data\*(FR
+%T{
+recognize octal and hexadecimal values in input data.
+\*(FIUse this option with great caution!\*(FR
+T}
+.T&
+l lw(2.2i).
+\*(FC\-\^\-posix\*(FR%T{
disable common and GNU extensions.
Enable \*(FIinterval expressions\*(FR in regular
expression matching (see \fHRegular
Expressions\fP below).
T}
+.T&
+ls
+l lw(2.2i).
+\*(FC\-\^\-profile\*(FR[\*(FC=\*(FIprof_file\*(FR]
+%T{
+send profiling data to \*(FIprof_file\*(FR
+(default: \*(FCawkprof.out\*(FR).
+With \*(FIgawk\*(FR,
+the profile is just a ``pretty printed'' version of the program.
+With \*(FIpgawk\*(FR,
+the profile contains execution counts in the left margin
+of each statement in the program.
+T}
+.T&
+ls
+l lw(2.2i).
\*(FC\-\^\-re\-interval\*(FR
-\*(FC\-W re\-interval\*(FR%T{
+%T{
enable \*(FIinterval expressions\*(FR in regular
expression matching (see \fHRegular
Expressions\fP below). Useful if
\*(FC\-\^\-posix\*(FR is not specified.
T}
+.T&
+ls
+l lw(2.2i).
\*(FC\-\^\-source '\*(FItext\*(FC'\*(FR
-\*(FC\-W source '\*(FItext\*(FC'\*(FR%use \*(FItext\*(FR as AWK program source code.
-\*(FC\-\^\-version\*(FR
-\*(FC\-W version\*(FR%T{
+%use \*(FItext\*(FR as AWK program source code.
+\*(FC\-\^\-version\*(FR%T{
print version information on \*(FCstdout\fP
and exit zero.
T}
@@ -281,16 +353,25 @@ T}
.sp .5
.fi
In compatibility mode,
-any other options are flagged as illegal, but are otherwise ignored.
+any other options are flagged as invalid, but are otherwise ignored.
In normal operation, as long as program text has been supplied, unknown
options are passed on to the AWK program in
\*(FCARGV\*(FR
for processing. This is most useful for running AWK
-programs via the \*(FC#!\*(FR executable interpreter mechanism.\*(CB
+programs via the \*(FC#!\*(FR executable interpreter mechanism.
+.sp .5
+\*(FIpgawk\fP accepts two signals.
+\*(FCSIGUSR1\fP causes it to dump a profile and function call stack to the
+profile file. It then continues to run.
+\*(FCSIGHUP\fP
+causes it to dump the profile and function call stack and then exit.\*(CB
.EB "\s+2\f(HBCOMMAND LINE ARGUMENTS (\*(GK\f(HB)\*(FR\s0"
.BT
+.\"
+.\"
+.\" --- Command Line Arguments (mawk)
.ES
.fi
\*(CDThe following options are specific to \*(MK.
@@ -309,7 +390,7 @@ options are processed. Useful with \*(FC#!\fP.
T}
\*(FC\-W interactive\*(FR T{
unbuffer \*(FCstdout\fP and line buffer \*(FCstdin\fP.
-Lines are always records, ignoring \*(FCRS\fP
+Lines are always records, ignoring \*(FCRS\fP.
T}
\*(FC\-W posix_space\*(FR T{
\*(FC\en\*(FR separates fields when \*(FCRS = "\^"\fP.
@@ -396,10 +477,10 @@ If a program only has an \*(FCEND\fP rule, the input will be read.
.\" --- Lines And Statements
.ES
.fi
-\*(CDAWK is a line oriented language. The pattern comes first, and then the
+\*(CDAWK is a line-oriented language. The pattern comes first, and then the
action. Action statements are enclosed in \*(FC{\fP and \*(FC}\*(FR.
Either the pattern or the action may be missing, but
-not both. If the pattern is missing, the action will be
+not both. If the pattern is missing, the action is
executed for every input record.
A missing action is equivalent to
.sp .5
@@ -421,7 +502,7 @@ are automatically continued.
Lines ending in \*(FCdo\fP or \*(FCelse\fP
also have their statements automatically continued on the following line.
In other cases, a line can be continued by ending it with a ``\e'',
-in which case the newline will be ignored. However, a ``\e'' after a
+in which case the newline is ignored. However, a ``\e'' after a
\*(FC#\*(FR is not special.
.sp .5
Multiple statements may be put on one line by separating them with a ``;''.
@@ -465,8 +546,8 @@ _
\*(FC\e>\*(FR~end of a word
\*(FC\ew\*(FR~any word-constituent character
\*(FC\eW\*(FR~any non-word-constituent character
-\*(FC\e`\*(FR~beginning of a buffer (string)
-\*(FC\e'\*(FR~end of a buffer (string)\*(CD
+\*(FC\e`\*(FR~beginning of a string
+\*(FC\e'\*(FR~end of a string\*(CD
\*(FIr\*(FC*\*(FR~zero or more occurrences of \*(FIr\*(FR
\*(FIr\*(FC+\*(FR~one or more occurrences of \*(FIr\*(FR
\*(FIr\*(FC?\*(FR~zero or one occurrences of \*(FIr\*(FR
@@ -490,7 +571,7 @@ this feature in \*(GK.\*(CX
.fi
\*(CDIn regular expressions, within character ranges
(\*(FC[\*(FR...\*(FC]\*(FR),
-the notation \*(FC[[:\*(FIclass\*(FC:]]\*(FR defines characters classes:
+the notation \*(FC[[:\*(FIclass\*(FC:]]\*(FR defines character classes:
.sp .5
.TS
center, tab(~);
@@ -500,9 +581,12 @@ lp8 lp8 lp8 lp8.
\*(FCblank\*(FR~space or tab~\*(FCpunct\*(FR~punctuation
\*(FCcntrl\*(FR~control~\*(FCspace\*(FR~whitespace
\*(FCdigit\*(FR~decimal~\*(FCupper\*(FR~upper-case
-\*(FCgraph\*(FR~non-spaces~\*(FCxdigit\*(FR~hexadecimal\*(CB
+\*(FCgraph\*(FR~non-spaces~\*(FCxdigit\*(FR~hexadecimal
.TE
.fi
+.sp .5
+Recognition of these character classes is disabled
+when \*(FC\-\-traditional\*(FR is supplied.\*(CB
.EB "\s+2\f(HBPOSIX CHARACTER CLASSES (\*(GK\f(HB)\*(FR\s0"
.\" --- Records
@@ -515,11 +599,11 @@ If \*(FCRS\fP is any single character, that character separates records.
\*(CLOtherwise, \*(FCRS\fP is a regular expression.
\*(CR(Not \*(NK.)\*(CL
Text in the input that matches this
-regular expression will separate the record.
+regular expression separates the record.
\*(CB\*(GK sets \*(FCRT\*(FR to the value of the
input text that matched the regular expression.
The value of \*(FCIGNORECASE\fP
-will also affect how records are separated when
+also affects how records are separated when
\*(FCRS\fP is a regular expression.\*(CD
If \*(FCRS\fP is set to the null string,
then records are separated by one or more blank lines.
@@ -529,7 +613,7 @@ a field separator, in addition to whatever value
\*(FCFS\fP may have.
\*(CB\*(MK does not apply exceptional rules to \*(FCFS\fP
when \*(FCRS = "\^"\fP.\*(CX
-.EB \s+2\f(HBRECORDS\*(FR\s0
+.EB "\s+2\f(HBRECORDS\*(FR\s0"
.\" --- Fields
.ES
@@ -548,13 +632,13 @@ by runs of spaces and/or tabs
\*(CLand/or newlines\*(CD.
Leading and trailing whitespace are ignored.
\*(CBThe value of \*(FCIGNORECASE\fP
-will also affect how fields are split when
+also affects how fields are split when
\*(FCFS\fP is a regular expression.\*(CD
.sp .5
\*(CBIf the \*(FCFIELDWIDTHS\fP
-variable is set to a space separated list of numbers, each field is
+variable is set to a space-separated list of numbers, each field is
expected to have a fixed width, and \*(GK
-will split up the record using the specified widths.
+splits up the record using the specified widths.
The value of \*(FCFS\fP is ignored.
Assigning a new value to \*(FCFS\fP
overrides the use of \*(FCFIELDWIDTHS\*(FR,
@@ -570,15 +654,15 @@ is set to the total number of fields in the input record.
.sp .5
References to non-existent fields (i.e., fields after \*(FC$NF\*(FR)
produce the null-string. However, assigning to a non-existent field
-(e.g., \*(FC$(NF+2) = 5\*(FR) will increase the value of
-\*(FCNF\*(FR, create any intervening fields with the null string as their value,
-and cause the value of \*(FC$0\fP
+(e.g., \*(FC$(NF+2) = 5\*(FR) increases the value of
+\*(FCNF\*(FR, creates any intervening fields with the null string as their value,
+and causes the value of \*(FC$0\fP
to be recomputed with the fields being separated by the
value of \*(FCOFS\*(FR.
References to negative numbered fields cause a fatal error.
Decreasing the value of \*(FCNF\fP causes the trailing fields to be lost
\*(CR(not \*(NK).\*(CX
-.EB \s+2\f(HBFIELDS\*(FR\s0
+.EB "\s+2\f(HBFIELDS\*(FR\s0"
.BT
@@ -614,26 +698,79 @@ It does not combine with any other pattern expression.\*(CX
.\" --- Action Statements
.ES
-.nf
-\*(CD\*(FCif (\*(FIcondition\*(FC) \*(FIstatement\*(FR [ \*(FCelse\*(FI statement \*(FR]
-\*(FCwhile (\*(FIcondition\*(FC) \*(FIstatement \*(FR
-\*(FCdo \*(FIstatement \*(FCwhile (\*(FIcondition\*(FC)\*(FR
-\*(FCfor (\*(FIexpr1\*(FC; \*(FIexpr2\*(FC; \*(FIexpr3\*(FC) \*(FIstatement\*(FR
-\*(FCfor (\*(FIvar \*(FCin\*(FI array\*(FC) \*(FIstatement\*(FR
-.ig
-\*(CB\*(FCabort\*(FR [ \*(FIexpression\*(FR ]\*(CD
-..
-\*(FCbreak\*(FR
+.fi
+.in +.2i
+.ti -.2i
+\*(CD\*(FCbreak\*(FR
+.br
+break out of the nearest enclosing \*(FCdo\*(FR, \*(FCfor\*(FR,
+or \*(FCwhile\*(FR loop.
+.ti -.2i
\*(FCcontinue\*(FR
+.br
+skip the rest of the loop body.
+Evaluate the \*(FIcondition\*(FR
+part of the nearest enclosing \*(FCdo\*(FR or \*(FCwhile\*(FR loop,
+or go to the \*(FIincr\*(FR part of a \*(FCfor\*(FR loop.
+.ti -.2i
\*(FCdelete \*(FIarray\^\*(FC[\^\*(FIindex\^\*(FC]\*(FR
-\*(CL\*(FCdelete \*(FIarray\^\*(FR\*(CD
+.br
+delete element \*(FIindex\*(FR from array \*(FIarray\*(FR.
+.ti -.2i
+\*(CL\*(FCdelete \*(FIarray\^\*(FR
+.br
+delete all elements from array \*(FIarray\*(FR.\*(CD
+.ti -.2i
+\*(FCdo \*(FIstatement \*(FCwhile (\*(FIcondition\*(FC)\*(FR
+.br
+execute \*(FIstatement\*(FR while \*(FIcondition\*(FR is true.
+The \*(FIstatement\*(FR is always executed at least once.
+.ti -.2i
\*(FCexit\*(FR [ \*(FIexpression\*(FR ]
-\*(FCnext\*(FR
-\*(CL\*(FCnextfile\*(FR \*(CR(not \*(MK)\*(CD
-\*(FC{ \*(FIstatements \*(FC}\*(CX
+.br
+terminate input record processing.
+Execute the \*(FCEND\*(FR rule(s) if present.
+If present, \*(FIexpression\*(FR becomes \*(AK's return value.
+.ti -.2i
+\*(FCfor (\*(FIinit\*(FC; \*(FIcond\*(FC; \*(FIincr\*(FC) \*(FIstatement\*(FR
+.br
+execute \*(FIinit\*(FR.
+Evaluate \*(FIcond\*(FR.
+If it is true, execute \*(FIstatement\*(FR.
+Execute \*(FIincr\*(FR before going back to the top to
+re-evaluate \*(FIcond\*(FR.
+Any of the three may be omitted.
+A missing \*(FIcond\*(FR is considered to be true.
+.ti -.2i
+\*(FCfor (\*(FIvar \*(FCin\*(FI array\*(FC) \*(FIstatement\*(FR
+.br
+execute \*(FIstatement\*(FR once for each subscript in \*(FIarray\*(FR,
+with \*(FIvar\*(FR set to a different subscript each time through
+the loop.
+.ti -.2i
+\*(CD\*(FCif (\*(FIcondition\*(FC) \*(FIstatement1\*(FR [ \*(FCelse\*(FI statement2\*(FR ]
+.br
+if \*(FIcondition\*(FR is true, execute \*(FIstatement1\*(FR,
+otherwise execute \*(FIstatement2\*(FR. Each \*(FCelse\*(FR
+matches the closest \*(FCif\*(FR.
+.ti -.2i
+\*(FCnext\*(FR see \fHInput Control.\fP
+.ti -.2i
+\*(CL\*(FCnextfile\*(FR \*(CR(not \*(MK) \*(CLsee \fHInput Control.\fP\*(CD
+.ti -.2i
+\*(FCwhile (\*(FIcondition\*(FC) \*(FIstatement \*(FR
+.br
+while \*(FIcondition\*(FR is true, execute \*(FIstatement\*(FR.
+.ti -.2i
+\*(FC{ \*(FIstatements \*(FC}\*(FR
+.br
+a list of statements enclosed in braces can be used anywhere
+that a single statement would otherwise be used.\*(CX
+.in -.2i
.EB "\s+2\f(HBACTION STATEMENTS\*(FR\s0"
+.BT
.\" --- Escape Sequences
.ES
@@ -643,13 +780,6 @@ constants (\*(FC/.../\fP), escape sequences may be used to
generate otherwise unprintable characters. This table lists
the available escape sequences.
.sp .5
-.ig
-\*(CB\*(FCPROCINFO\fP T{
-elements of this array provide access to info
-about the running AWK program. See
-\*(AM for details.\*(CD
-T}
-..
.TS
center, tab(~);
lp8 lp8 lp8 lp8.
@@ -661,17 +791,14 @@ lp8 lp8 lp8 lp8.
\*(FC\e"\fP~double quote~\*(FC\e/\fP~forward slash\*(CX
.TE
.EB "\s+2\f(HBESCAPE SEQUENCES\*(FR\s0"
-
-
-.BT
-
+.sp .7
.\" --- Variables
.ES
.fi
.TS
expand;
l lw(2i).
-\*(FCARGC\fP T{
+\*(CD\*(FCARGC\fP T{
number of command line arguments.
T}
\*(CB\*(FCARGIND\fP T{
@@ -683,19 +810,31 @@ array of command line arguments. Indexed from
contents of \*(FCARGV\fP can control the files used
for data.
T}
+\*(CL\*(FCBINMODE\fP T{
+controls ``binary'' mode for all file I/O. Values of 1, 2, or 3,
+indicate input, output, or all files, respectively, should use binary
+I/O. \*(CR(Not \*(NK.) \*(CLApplies only to non-POSIX systems.
+\*(CBFor \*(GK, string values of \*(FC"r"\fP, or \*(FC"w"\fP specify
+that input files, or output files, respectively, should use binary I/O.
+String values of \*(FC"rw"\fP or \*(FC"wr"\fP specify that all files
+should use binary I/O. Any other string value is treated as \*(FC"rw"\fP,
+but generates a warning message.\*(CD
+T}
\*(FCCONVFMT\fP T{
conversion format for numbers, default value
is \*(FC"%.6g"\*(FR.
T}
\*(FCENVIRON\fP T{
-array containing the the current environment.
+array containing the current environment.
The array is indexed by the environment
variables, each element being the value of
that variable.
T}
\*(CB\*(FCERRNO\fP T{
-contains a string describing the error when a
-redirection or read for \*(FCgetline\*(FR fails, or if
+string describing the error if a
+\*(FCgetline\*(FR
+redirection or read
+fails, or if
\*(FCclose()\*(FR fails.
T}
\*(FCFIELDWIDTHS\fP T{
@@ -710,7 +849,7 @@ on the command line, \*(FCFILENAME\fP is ``\-''.
(unless set by \*(FCgetline\fP).
T}
\*(FCFNR\fP T{
-number of the input record in current input file.
+record number in current input file.
T}
\*(FCFS\fP T{
input field separator, a space by default
@@ -718,9 +857,18 @@ input field separator, a space by default
T}
\*(CB\*(FCIGNORECASE\fP T{
if non-zero, all regular expression and string
-operations ignore case. \*(CRIn versions of \*(GK
-prior to 3.0, \*(FCIGNORECASE\fP only affected
-regular expression operations and \*(FCindex()\*(FR.\*(CD
+operations ignore case.
+Array subscripting and \*(FCasort()\*(FR are \*(FInot\*(FR affected.
+T}
+\*(CB\*(FCLINT\fP T{
+provides dynamic control of the \*(FC\-\^\-lint\fP
+option from within an AWK program.
+When true, \*(GK
+prints lint warnings.
+When assigned the string value \*(FC"fatal"\*(FR,
+lint warnings become fatal errors, exactly like
+\*(FC\-\-lint=fatal\*(FR.
+Any other true value just prints warnings.\*(CD
T}
\*(FCNF\fP T{
number of fields in the current input record.
@@ -730,49 +878,123 @@ total number of input records seen so far.
T}
\*(FCOFMT\fP T{
output format for numbers, \*(FC"%.6g"\*(FR, by default.
-\*(CROld versions of \*(AK also used this for number
-to string conversion instead of \*(FCCONVFMT\fP.\*(CD
+\*(CROld versions of \*(AK used this for number
+to string conversion.\*(CX
T}
-\*(FCOFS\fP T{
+.TE
+.EB "\s+2\f(HBVARIABLES\*(FR\s0"
+.BT
+
+.\" --- Variables (continued)
+.ES
+.fi
+.TS
+expand;
+l lw(2i).
+\*(CD\*(FCOFS\fP T{
output field separator, a space by default.
T}
\*(FCORS\fP T{
output record separator, a newline by default.
T}
+\*(CB\*(FCPROCINFO\fP T{
+elements of this array provide access to info
+about the running AWK program. See
+\*(AM for details.\*(CD
+T}
+\*(FCRLENGTH\fP T{
+length of the string matched by \*(FCmatch()\*(FR;
+\-1 if no match.
+T}
\*(FCRS\fP T{
input record separator, a newline by default
(see \fHRecords\fP above).
T}
-\*(CB\*(FCRT\fP T{
-record terminator. \*(GK sets \*(FCRT\fP to the input
-text that matched the character or regular
-expression specified by \*(FCRS\*(FR.\*(CD
-T}
\*(FCRSTART\fP T{
index of the first character matched by
\*(FCmatch()\*(FR; 0 if no match.
T}
-\*(FCRLENGTH\fP T{
-length of the string matched by \*(FCmatch()\*(FR;
-\-1 if no match.
+\*(CB\*(FCRT\fP T{
+record terminator. \*(GK sets \*(FCRT\fP to the input
+text that matched the character or regular
+expression specified by \*(FCRS\*(FR.\*(CD
T}
\*(FCSUBSEP\fP T{
character(s) used to separate multiple subscripts
-in array elements, by default \*(FC"\e034"\*(FR. (see
-\fHArrays\fP below).\*(CX
+in array elements, by default \*(FC"\e034"\*(FR. (See
+\fHArrays\fP below).
+T}
+\*(CB\*(FCTEXTDOMAIN\fP T{
+the application's text domain for internationalization;
+used to find the localized
+translations for the program's strings.\*(CX
T}
.TE
-.EB \s+2\f(HBVARIABLES\*(FR\s0
+.EB "\s+2\f(HBVARIABLES (continued)\*(FR\s0"
+
+.\" --- Conversions and Comparisons
+.ES
+.fi
+\*(CDVariables and fields may be (floating point) numbers, strings or both.
+Context determines how the value of a variable is interpreted. If used in
+a numeric expression, it will be treated as a number, if used as a string
+it will be treated as a string.
+.sp .5
+To force a variable to be treated as a number, add 0 to it; to force it
+to be treated as a string, concatenate it with the null string.
+.sp .5
+When a string must be converted to a number, the conversion is accomplished
+using \*(FIstrtod\*(FR(3).
+A number is converted to a string by using the value of \*(FCCONVFMT\fP
+as a format string for \*(FIsprintf\*(FR(3),
+with the numeric value of the variable as the argument.
+However, even though all numbers in AWK are floating-point,
+integral values are \*(FIalways\fP converted as integers.
+.sp .5
+Comparisons are performed as follows:
+If two variables are numeric, they are compared numerically.
+If one value is numeric and the other has a string value that is a
+``numeric string,'' then comparisons are also done numerically.
+Otherwise, the numeric value is converted to a string, and a string
+comparison is performed.
+Two strings are compared, of course, as strings.
+.sp .5
+Note that string constants, such as \*(FC"57"\fP, are \*(FInot\fP
+numeric strings, they are string constants. The idea of ``numeric string''
+only applies to fields, \*(FCgetline\fP input,
+\*(FCFILENAME\*(FR, \*(FCARGV\fP elements, \*(FCENVIRON\fP
+elements and the elements of an array created by
+\*(FCsplit()\fP that are numeric strings.
+The basic idea is that \*(FIuser input\*(FR,
+and only user input, that looks numeric,
+should be treated that way.
+\*(CRNote that the POSIX standard applies the concept of
+``numeric string'' everywhere, even to string constants.
+However, this is
+clearly incorrect, and none of the three free \*(AK\*(FRs do this.\*(CD
+(Fortunately, this is fixed in the next version of the standard.)
+.sp .5
+Uninitialized variables have the numeric value 0 and the string value
+\*(FC"\^"\fP
+(the null, or empty, string).\*(CX
+.EB "\s+2\f(HBCONVERSIONS AND COMPARISONS\*(FR\s0"
+
+.BT
+
+.ES
+\*(CX
+.sp 61
+.EB "\s+2\f(HBNOTES\*(FR\s0"
.BT
.\" --- Arrays
.ES
.fi
-\*(CDAn arrays subscript is an expression between square brackets
+\*(CDAn array subscript is an expression between square brackets
(\*(FC[ \*(FRand \*(FC]\*(FR).
If the expression is a list
-\*(FC(\*(FIexpr\*(FC, \*(FIexpr \*(FC...)\*(FR,
+(\*(FIexpr\*(FC, \*(FIexpr \*(FR...),
then the subscript is a string consisting of the
concatenation of the (string) value of each expression,
separated by the value of the \*(FCSUBSEP\fP variable.
@@ -809,7 +1031,7 @@ element from an array.
\*(CLSpecifying just the array name without a subscript in
the \*(FCdelete\fP
statement deletes the entire contents of an array.\*(CX
-.EB \s+2\f(HBARRAYS\*(FR\s0
+.EB "\s+2\f(HBARRAYS\*(FR\s0"
.\" --- Expressions
.ES
@@ -833,7 +1055,7 @@ and
\*(FCsub()\fP,
functions, mean \*(FC$0 ~ /\*(FIpat\*(FC/\*(FR.
.sp .5
-The AWK operators, in order of decreasing precedence, are
+The AWK operators, in order of decreasing precedence, are:
.sp .5
.fi
.TS
@@ -864,95 +1086,18 @@ l lw(1.8i).
\*(FC=\0+=\0\-=\0*=\0/=\0%=\0^=\0\*(CL**=\*(CD\fP
assignment operators\*(CX
.TE
-.EB \s+2\f(HBEXPRESSIONS\*(FR\s0
-
-
-.BT
-
-.\" --- Conversions and Comparisons
-.ES
-.fi
-\*(CDVariables and fields may be (floating point) numbers, strings or both.
-Context determines how the value of a variable is interpreted. If used in
-a numeric expression, it will be treated as a number, if used as a string
-it will be treated as a string.
-.sp .5
-To force a variable to be treated as a number, add 0 to it; to force it
-to be treated as a string, concatenate it with the null string.
-.sp .5
-When a string must be converted to a number, the conversion is accomplished
-using \*(FIatof\*(FR(3).
-A number is converted to a string by using the value of \*(FCCONVFMT\fP
-as a format string for \*(FIsprintf\*(FR(3),
-with the numeric value of the variable as the argument.
-However, even though all numbers in AWK are floating-point,
-integral values are \*(FIalways\fP converted as integers.
-.sp .5
-Comparisons are performed as follows:
-If two variables are numeric, they are compared numerically.
-If one value is numeric and the other has a string value that is a
-``numeric string,'' then comparisons are also done numerically.
-Otherwise, the numeric value is converted to a string, and a string
-comparison is performed.
-Two strings are compared, of course, as strings.
-\*(CRAccording to the POSIX standard, even if two strings are
-numeric strings, a numeric comparison is performed. However, this is
-clearly incorrect, and none of the three free \*(AK\*(FRs do this.\*(CD
-.sp .5
-Note that string constants, such as \*(FC"57"\fP, are \*(FInot\fP
-numeric strings, they are string constants. The idea of ``numeric string''
-only applies to fields, \*(FCgetline\fP input,
-\*(FCFILENAME\*(FR, \*(FCARGV\fP elements, \*(FCENVIRON\fP
-elements and the elements of an array created by
-\*(FCsplit()\fP that are numeric strings.
-The basic idea is that \*(FIuser input\*(FR,
-and only user input, that looks numeric,
-should be treated that way.
-.sp .5
-Uninitialized variables have the numeric value 0 and the string value
-\*(FC"\^"\fP
-(the null, or empty, string).\*(CX
-.EB "\s+2\f(HBCONVERSIONS AND COMPARISONS\*(FR\s0"
-
-.ig
-.\" --- Localization
-.ES
-.nf
-.ce 100
-\*(CDThis
-section
-is
-under
-construction.
-.sp .5
-This
-section
-is
-under
-construction.\*(CB
-.ce 0
-.EB "\s+2\f(HBLOCALIZATION\*(FR\s0"
-..
-
-.ig
-.ps +2
-.ce 1
-\*(CD\fHISBN: 0-916151-97-2\*(FR
-.ps -2
-..
+.EB "\s+2\f(HBEXPRESSIONS\*(FR\s0"
.BT
-
.\" --- Input Control
.ES
.fi
.TS
expand;
l lw(1.8i).
-\*(CD\*(FCclose(\*(FIfile\*(FC)\*(FR close input file or pipe.
\*(FCgetline\fP T{
-set \*(FC$0\fP from next input record;
+set \*(FC$0\fP from next record;
set \*(FCNF\*(FR, \*(FCNR\*(FR, \*(FCFNR\*(FR.
T}
\*(FCgetline < \*(FIfile\*(FR set \*(FC$0\fP from next record of \*(FIfile\*(FR; set \*(FCNF\*(FR.
@@ -963,10 +1108,15 @@ T}
\*(FCgetline \*(FIv \*(FC< \*(FIfile\*(FR set \*(FIv\fP from next record of \*(FIfile\*(FR.
\*(FIcmd \*(FC| getline\*(FR pipe into \*(FCgetline\*(FR; set \*(FC$0\*(FR, \*(FCNF\*(FR.
\*(FIcmd \*(FC| getline \*(FIv\*(FR pipe into \*(FCgetline\*(FR; set \*(FIv\*(FR.
+\*(CB\*(FIcmd \*(FC|& getline\*(FR co-process pipe into \*(FCgetline\*(FR; set \*(FC$0\*(FR, \*(FCNF\*(FR.
.TE
.fi
.in +.2i
.ti -.2i
+\*(FIcmd \*(FC|& getline \*(FIv\*(FR
+.br
+co-process pipe into \*(FCgetline\*(FR; set \*(FIv\*(FR.
+.ti -.2i
\*(FCnext\fP
.br
stop processing the current input
@@ -986,15 +1136,15 @@ and processing starts over with the first
pattern in the AWK program. Upon end
of input data, execute any \*(FCEND\fP rule(s).
\*(CREarlier versions of \*(GK used
-\*(FCnext file\*(FR, as two words. This
-generates a warning message and will
-eventually be removed. \*(CR\*(MK does not
-currently support \*(FCnextfile\*(FR.\*(CD
+\*(FCnext file\*(FR, as two words.
+This usage is no longer supported.
+\*(CR\*(MK does not currently support \*(FCnextfile\*(FR.\*(CD
.in -.2i
.sp .5
.fi
-\*(FCgetline\*(FR returns 0 on end of file, and \-1 on an
-error.\*(CX
+\*(FCgetline\*(FR returns 0 on end of file and \-1 on an error.
+\*(CBUpon an error, \*(FCERRNO\*(FR contains a string describing
+the problem.\*(CX
.EB "\s+2\f(HBINPUT CONTROL\*(FR\s0"
.\" --- Output Control
@@ -1002,28 +1152,24 @@ error.\*(CX
.fi
.in +.2i
.ti -.2i
-\*(CD\*(FCclose(\*(FIfile\*(FC)\*(FR
-.br
-close output file or pipe.
-.ti -.2i
\*(CL\*(FCfflush(\*(FR[\*(FIfile\^\*(FR]\*(FC)\*(FR
.br
flush any buffers associated
with the open output file or pipe \*(FIfile\*(FR.\*(CD
-\*(CBIf \*(FIfile\fP is missing, then standard output is flushed.
-If \*(FIfile\fP is the null string, then all open output files and pipes
-are flushed \*(CR(not \*(NK)\*(CD.
+\*(CBIf no \*(FIfile\fP, then flush standard output.
+If \*(FIfile\fP is null, then flush all open output files and pipes
+\*(CR(not \*(NK)\*(CD.
.ti -.2i
\*(FCprint\fP
.br
-print the current record. The output record is terminated
-with the value of \*(FCORS\fP.
+print the current record. Terminate output record
+with \*(FCORS\fP.
.ti -.2i
\*(FCprint \*(FIexpr-list\*(FR
.br
print expressions. Each expression is separated
-by the value of \*(FCOFS\fP. The output record is
-terminated with the value of \*(FCORS\fP.
+by the value of \*(FCOFS\fP. Terminate the output record
+with \*(FCORS\fP.
.ti -.2i
\*(FCprintf \*(FIfmt\*(FC, \*(FIexpr-list\*(FR
.br
@@ -1042,21 +1188,47 @@ I/O redirections may be used with both \*(FCprint\fP and \*(FCprintf\fP.
.ti -.2i
\*(CD\*(FCprint "hello" > \*(FIfile\*(FR
.br
-Print data to \*(FIfile\fP. The first time the file is written to, it
-will be truncated. Subsequent commands append data.
+print data to \*(FIfile\fP. The first time the file is written to, it
+is truncated. Subsequent commands append data.
.ti -.2i
\*(FCprint "hello" >> \*(FIfile\*(FR
.br
-Append data to \*(FIfile\fP. The previous contents of the file are not lost.
+append data to \*(FIfile\fP. The previous contents of \*(FIfile\*(FR are not lost.
.ti -.2i
\*(FCprint "hello" | \*(FIcmd\*(FR
.br
-Print data down a pipeline to \*(FIcmd\*(FR.\*(CX
+print data down a pipeline to \*(FIcmd\*(FR.
+.ti -.2i
+\*(CB\*(FCprint "hello" |& \*(FIcmd\*(FR
+.br
+print data down a pipeline to co-process \*(FIcmd\*(FR.\*(CX
.in -.2i
.EB "\s+2\f(HBOUTPUT CONTROL\*(FR\s0"
-.BT
+.ES
+.fi
+.in +.2i
+.ti -.2i
+\*(CD\*(FCclose(\*(FIfile\*(FC)\*(FR
+.br
+close input or output file, pipe \*(CBor co-process.\*(CD
+.ti -.2i
+\*(CB\*(FCclose(\*(FIcommand\*(FC, \*(FIhow\*(FC)\*(FR
+.br
+close one end of co-process pipe.
+Use \*(FC"to"\*(FR for the write end, or
+\*(FC"from"\*(FR for the read end.\*(CD
+.in -.2i
+.sp .5
+On success, \*(FCclose()\*(FR returns zero for a file, or the exit status for a process.
+It returns \-1 if \*(FIfile\*(FR
+was never opened, or
+if there was a system problem.
+\*(CB\*(FCERRNO\*(FR describes
+the error.\*(CX
+.EB "\s+2\f(HBCLOSING REDIRECTIONS\*(FR\s0"
+.BT
.\" --- Printf Formats
.ES
@@ -1091,6 +1263,14 @@ and the control letter:
.TS
expand;
l lw(2.2i).
+\*(CB\*(FIcount\*(FC$\*(FR T{
+use the
+\*(FIcount\*(FR'th
+argument at this point in the formatting
+(a \*(FIpositional specifier\*(FR).
+Use in translated versions of
+format strings, not in the original text of an AWK program.\*(CD
+T}
\*(FC\-\fP T{
left-justify the expression within its field.
T}
@@ -1122,7 +1302,7 @@ trailing zeros are not removed.
T}
\*(FC0\fP T{
a leading zero acts as a flag, indicating output
-should be padded with zeroes instead of spaces.
+should be padded with zeros instead of spaces.
This applies even to non-numeric output formats.
Only has an effect when the field width is wider
than the value to be printed.
@@ -1130,11 +1310,11 @@ T}
\*(FIwidth\fP T{
pad the field to this width. The field is normally
padded with spaces. If the \*(FC0\fP flag has been used,
-pad with zeroes.
+pad with zeros.
T}
-\*(FC.\fP\*(FIprec\fP T{
+\*(FC.\*(FIprec\*(FR T{
precision.
-The meaning varies by control letter:
+The meaning of the \*(FIprec\*(FR varies by control letter:
T}
\*(FC%d\*(FR, \*(FC%o\*(FR, \*(FC%i\*(FR,
\*(FC%u\*(FR, \*(FC%x\*(FR, \*(FC%X\fP T{
@@ -1155,12 +1335,13 @@ T}
The dynamic \*(FIwidth\fP and \*(FIprec\fP capabilities of the ANSI C
\*(FCprintf()\fP routines are supported.
A \*(FC*\fP in place of either the \*(FIwidth\fP or \*(FIprec\fP
-specifications will cause their values to be taken from
-the argument list to \*(FCprintf\fP or \*(FCsprintf()\*(FR.\*(CX
+specifications causes their values to be taken from
+the argument list to \*(FCprintf\fP or \*(FCsprintf()\*(FR.
+\*(CBUse \*(FC*\*(FIn\*(FC$\*(FR to use positional specifiers
+with a dynamic width or precision.\*(CX
.EB "\s+2\f(HBPRINTF FORMATS\*(FR\s0"
-
.BT
.\" --- Special Filenames
@@ -1187,13 +1368,28 @@ l lw(2i).
.fi
\*(CBThe following names are specific to \*(GK.
.sp .5
-.TS
-expand;
-l lw(2i).
-\*(FC/dev/fd/\^\*(FIn\*(FR T{
-file associated with the open file descriptor \*(FIn\*(FR
-T}
-.TE
+.in +.2i
+.ti -.2i
+\*(FC/dev/fd/\^\*(FIn\*(FR
+.br
+File associated with the open file descriptor \*(FIn\*(FR.
+.ti -.2i
+\*(FC/inet/tcp/\*(FIlport\*(FC/\*(FIrhost\*(FC/\*(FIrport\*(FR
+.br
+File for TCP/IP connection on local port \*(FIlport\*(FR to
+remote host \*(FIrhost\*(FR on remote port \*(FIrport\*(FR.
+Use a port of \*(FC0\*(FR to have the system pick a port.
+Usable only with the \*(FC|&\*(FR two-way I/O operator.
+.ti -.2i
+\*(FC/inet/udp/\*(FIlport\*(FC/\*(FIrhost\*(FC/\*(FIrport\*(FR
+.br
+Similar, but use UDP/IP instead of TCP/IP.
+.ti -.2i
+\*(CR\*(FC/inet/raw/\*(FIlport\*(FC/\*(FIrhost\*(FC/\*(FIrport\*(FR
+.br
+.\" Similar, but use raw IP sockets.
+Reserved for future use.\*(CB
+.in -.2i
.sp .5
.fi
Other special filenames provide access to information about the running
@@ -1223,19 +1419,10 @@ T}
.TE
.sp .5
.fi
-.ig
\*(CRThese filenames are now obsolete.
Use the \*(FCPROCINFO\fP array to obtain the information they provide.\*(CL
-..
-.\" BEGIN FOR 3.0.x
-\*(CRThese filenames will become obsolete in \*(GK 3.1.
-Be aware that you will have to change your programs.\*(CL
-.\" END FOR 3.0.x
.EB "\s+2\f(HBSPECIAL FILENAMES\*(FR\s0"
-
-
-
.\" --- Builtin Numeric Functions
.ES
.fi
@@ -1262,20 +1449,27 @@ T}
.BT
-
.\" --- Builtin String Functions
.ES
.fi
.in +.2i
.ti -.2i
+\*(CB\*(FCasort(\*(FIs\*(FC \*(FR[\*(FC, \*(FId\*(FR]\*(FC)\*(FR
+.br
+sorts the source array \*(FIs\*(FR, replacing the indices with numeric
+values 1 through \*(FIn\*(FR (the number of elements in the array),
+and returns the number of elements.
+If destination \*(FId\*(FR is supplied, \*(FIs\*(FR is copied to \*(FId\*(FR,
+\*(FId\*(FR is sorted, and \*(FIs\*(FR is unchanged.\*(CD
+.ti -.2i
\*(CB\*(FCgensub(\*(FIr\*(FC, \*(FIs\*(FC, \*(FIh \*(FR[\*(FC, \*(FIt\*(FR]\*(FC)\*(FR
.br
search the target string
\*(FIt\fP for matches of the regular expression \*(FIr\*(FR. If
\*(FIh\fP is a string beginning with \*(FCg\fP or \*(FCG\*(FR,
replace all matches of \*(FIr\fP with \*(FIs\*(FR. Otherwise, \*(FIh\fP
-is a number indicating which match of \*(FIr\fP to replace. If no
-\*(FIt\fP is supplied, \*(FC$0\fP is used instead. Within the
+is a number indicating which match of \*(FIr\fP to replace.
+If \*(FIt\fP is not supplied, \*(FC$0\fP is used instead. Within the
replacement text \*(FIs\*(FR, the sequence \*(FC\e\*(FIn\*(FR,
where \*(FIn\fP is a digit from 1 to 9, may be used to indicate just
the text that matched the \*(FIn\*(FRth parenthesized subexpression.
@@ -1306,13 +1500,17 @@ returns the index of the string
returns the length of the string
\*(FIs\*(FR, or the length of \*(FC$0\fP if \*(FIs\fP is not supplied.
.ti -.2i
-\*(FCmatch(\*(FIs\*(FC, \*(FIr\*(FC)\*(FR
+\*(FCmatch(\*(FIs\*(FC, \*(FIr \*(CB\*(FR[\*(FC, \*(FIa\*(FR]\*(CD\*(FC)\*(FR
.br
returns the position in
\*(FIs\fP where the regular expression \*(FIr\fP occurs, or 0 if
\*(FIr\fP is not present, and sets the values of variables
\*(FCRSTART\fP
and \*(FCRLENGTH\*(FR.
+\*(CBIf \*(FIa\*(FR is supplied, the text matching all of \*(FIr\*(FR
+is placed in \*(FIa\*(FC[0]\*(FR. If there were parenthesized
+subexpressions, the matching texts are placed
+in \*(FIa\*(FC[1]\*(FR, \*(FIa\*(FC[2]\*(FR, and so on.\*(CD
.ti -.2i
\*(FCsplit(\*(FIs\*(FC, \*(FIa \*(FR[\*(FC, \*(FIr\*(FR]\*(FC)\*(FR
.br
@@ -1328,6 +1526,16 @@ Splitting behaves identically to field splitting.
prints \*(FIexpr-list\fP
according to \*(FIfmt\*(FR, and returns the resulting string.
.ti -.2i
+\*(CB\*(FCstrtonum(\*(FIs\*(FC)\*(FR
+.br
+examines \*(FIs\*(FR, and returns its numeric value.
+If \*(FIs\*(FR begins with a leading \*(FC0\*(FR,
+\*(FCstrtonum()\*(FR assumes that \*(FIs\*(FR
+is an octal number.
+If \*(FIs\*(FR begins with a leading \*(FC0x\*(FR
+or \*(FC0X\*(FR, \*(FCstrtonum()\*(FR assumes that
+\*(FIs\*(FR is a hexadecimal number.\*(CD
+.ti -.2i
\*(FCsub(\*(FIr\*(FC, \*(FIs \*(FR[\*(FC, \*(FIt\*(FR]\*(FC)\*(FR
.br
just like
@@ -1344,21 +1552,25 @@ If \*(FIn\fP is omitted, the rest of \*(FIs\fP is used.
returns a copy of the string \*(FIstr\*(FR,
with all the upper-case characters in \*(FIstr\fP translated to their
corresponding lower-case counterparts. Non-alphabetic characters are
-left unchanged.
+left unchanged.\*(CX
+.in -.2i
+.EB "\s+2\f(HBSTRING FUNCTIONS\*(FR\s0"
+
+.BT
+
+.\" --- Builtin String Functions
+.ES
+.fi
+.in +.2i
.ti -.2i
-\*(FCtoupper(\*(FIstr\*(FC)\*(FR
+\*(CD\*(FCtoupper(\*(FIstr\*(FC)\*(FR
.br
returns a copy of the string \*(FIstr\*(FR,
with all the lower-case characters in \*(FIstr\fP translated to their
corresponding upper-case counterparts. Non-alphabetic characters are
left unchanged.\*(CX
.in -.2i
-.EB "\s+2\f(HBSTRING FUNCTIONS\*(FR\s0"
-
-
-
-.BT
-
+.EB "\s+2\f(HBSTRING FUNCTIONS (continued)\*(FR\s0"
.\" --- Builtin Time Functions
.ES
@@ -1369,15 +1581,13 @@ formatting them.
.sp .5
.fi
.in +.2i
-.ig
.ti -.2i
\*(FCmktime(\*(FIdatespec\*(FC)\*(FR
.br
turns \*(FIdatespec\fP into a time
stamp of the same form as returned by \*(FCsystime()\*(FR.
The \*(FIdatespec\fP is a string of the form
-\*(FC"\*(FIYYYY MM DD HH MM SS\*(FC"\*(FR.
-..
+\*(FC"\*(FIYYYY MM DD HH MM SS[ DST]\*(FC"\*(FR.
.ti -.2i
\*(FCstrftime(\*(FR[\*(FIformat \*(FR[\*(FC, \*(FItimestamp\*(FR]]\*(FC)\*(FR
.br
@@ -1387,7 +1597,7 @@ according to the specification in \*(FIformat\*(FR. The
\*(FCsystime()\*(FR.
If \*(FItimestamp\fP is missing, the current time of day is used. If
\*(FIformat\fP is missing, a default format equivalent to the output
-of \*(FIdate\*(FR(1) will be used.
+of \*(FIdate\*(FR(1) is used.
.ti -.2i
\*(FCsystime()\fP
.br
@@ -1396,7 +1606,83 @@ seconds since the Epoch.\*(CB
.in -.2i
.EB "\s+2\f(HBTIME FUNCTIONS (\*(GK\f(HB)\*(FR\s0"
+.\" --- Builtin Bit Manipulation Functions
+.ES
+.fi
+\*(CD\*(GK
+provides the following functions for doing bitwise operations.
+.sp .5
+.fi
+.in +.2i
+.ti -.2i
+\*(FCand(\*(FIv1\*(FC, \*(FIv2\*(FC)\*(FR
+.br
+returns the bitwise AND of the values provided by
+\*(FIv1\*(FR and \*(FIv2\*(FR.
+.ti -.2i
+\*(FCcompl(\*(FIval\*(FC)\*(FR
+.br
+returns the bitwise complement of
+\*(FIval\*(FR.
+.ti -.2i
+\*(FClshift(\*(FIval\*(FC, \*(FIcount\*(FC)\*(FR
+.br
+returns the value of \*(FIval\*(FR,
+shifted left by \*(FIcount\*(FR bits.
+.ti -.2i
+\*(FCor(\*(FIv1\*(FC, \*(FIv2\*(FC)\*(FR
+.br
+returns the bitwise OR of the values provided by
+\*(FIv1\*(FR and \*(FIv2\*(FR.
+.ti -.2i
+\*(FCrshift(\*(FIval\*(FC, \*(FIcount\*(FC)\*(FR
+.br
+returns the value of \*(FIval\*(FR,
+shifted right by \*(FIcount\*(FR bits.
+.ti -.2i
+\*(FCxor(\*(FIv1\*(FC, \*(FIv2\*(FC)\*(FR
+.br
+teturns the bitwise XOR of the values provided by
+\*(FIv1\*(FR and \*(FIv2\*(FR.\*(CB
+.in -.2i
+.EB "\s+2\f(HBBIT MANIPULATION FUNCTIONS (\*(GK\f(HB)\*(FR\s0"
+
+.\" --- Builtin Internationalizatin Functions
+.ES
+.fi
+\*(CD\*(GK
+provides the following functions for runtime message translation.
+.in +.2i
+.sp .5
+.ti -.2i
+\*(FCbindtextdomain(\*(FIdirectory \*(FR[\*(FC, \*(FIdomain\*(FR]\*(FC)\*(FR
+.br
+specifies the directory where \*(GK looks for the \*(FC\&.mo\*(FR
+files, in case they
+will not or cannot be placed in the ``standard'' locations
+(e.g., during testing.)
+It returns the directory where \*(FIdomain\*(FR is ``bound.''
+.sp .5
+The default \*(FIdomain\*(FR is the value of \*(FCTEXTDOMAIN\*(FR.
+When \*(FIdirectory\*(FR is the null string (\*(FC"\^"\*(FR),
+\*(FCbindtextdomain()\*(FR returns the current binding for the
+given \*(FIdomain\*(FR.
+.ti -.2i
+\*(FCdcgettext(\*(FIstring \*(FR[\*(FC, \*(FIdomain \*(FR[\*(FC, \*(FIcategory\*(FR]]\*(FC)\*(FR
+.br
+returns the translation of \*(FIstring\*(FR in text domain
+\*(FIdomain\*(FR for locale category \*(FIcategory\*(FR.
+The default value for \*(FIdomain\*(FR is the current value of \*(FCTEXTDOMAIN\*(FR.
+The default value for \*(FIcategory\*(FR is \*(FC"LC_MESSAGES"\*(FR.
+.sp .5
+If you supply a value for \*(FIcategory\*(FR, it must be a string equal to
+one of the known locale categories.
+You must also supply a text domain. Use \*(FCTEXTDOMAIN\*(FR
+to use the current domain.\*(CB
+.in -.2i
+.EB "\s+2\f(HBINTERNATIONALIZATION (\*(GK\f(HB)\*(FR\s0"
+.BT
.\" --- User-defined Functions
.ES
@@ -1420,7 +1706,7 @@ in the parameter list. The convention is to separate local variables from
real parameters by extra spaces in the parameter list. For example:
.sp .5
.nf
- \*(FC# a & b are local
+ \*(FC# a and b are local
function f(p, q, a, b)
{
\&.....
@@ -1450,17 +1736,65 @@ may be used in place of
\*(CRNote: This usage is deprecated.\*(CX
.EB "\s+2\f(HBUSER-DEFINED FUNCTIONS\*(FR\s0"
-
-
-.\" --- Bug Reports
+.\" --- Localization
.ES
.fi
-\*(CDIf you find a bug in this reference card, please report it via electronic
-mail to \*(FCarnold@gnu.org\*(FR.\*(CX
-.EB "\s+2\f(HBBUG REPORTS\*(FR\s0"
+\*(CDThere are several steps involved in producing and running a localizable
+\*(AK program.
+.sp .5
+1. Add a \*(FCBEGIN\*(FR action to assign a value to the
+\*(FCTEXTDOMAIN\*(FR variable to set the text domain for
+your program.
+.sp .5
+.ti +5n
+\*(FCBEGIN { TEXTDOMAIN = "myprog" }\*(FR
+.sp .5
+This allows \*(GK to find the \*(FC\&.mo\*(FR
+file associated with your program.
+Without this step, \*(GK uses the \*(FCmessages\*(FR text domain,
+which probably won't work.
+.sp .5
+2. Mark all strings that should be translated with leading underscores.
+.sp .5
+3. Use the \*(FCdcgettext()\*(FR
+and/or \*(FCbindtextdomain()\*(FR
+functions in your program, as necessary or appropriate.
+.sp .5
+4. Run
+.sp .5
+.ti +5n
+\*(FCgawk \-\^\-gen\-po \-f myprog.awk > myprog.po\*(FR
+.sp .5
+to generate a \*(FC\&.po\*(FR
+file for your program.
+.sp .5
+5. Provide appropriate translations, and build and install a corresponding
+\*(FC\&.mo\*(FR file.
+.sp .5
+The internationalization features are described in full detail in \*(AM.\*(CB
+.EB "\s+2\f(HBLOCALIZATION (\*(GK\f(HB)\*(FR\s0"
+
.BT
+.\" --- Extensions
+.ES
+.fi
+.in +.2i
+.ti -.2i
+\*(CD\*(FCextension(\*(FIlib\*(FC, \*(FIfunc\*(FC)\*(FR
+.br
+dynamically load the shared library
+\*(FIlib\*(FR
+and call
+\*(FIfunc\*(FR
+in it to initialize the library.
+This adds new built-in functions to \*(GK.
+It returns the value returned by
+\*(FIfunc\*(FR.\*(CB
+.in -.2i
+.EB "\s+2\f(HBDYNAMIC EXTENSIONS (\*(GK\f(HB)\*(FR\s0"
+
.\" --- Environment Variables
.ES
.fi
@@ -1487,7 +1821,7 @@ command line.\*(CB
First, it is possible to call the \*(FClength()\fP
built-in function not only with no argument, but even without parentheses.
This feature is marked as ``deprecated'' in the POSIX standard, and \*(GK
-will issue a warning about its use if \*(FC\-\^\-lint\fP
+issues a warning about its use if \*(FC\-\^\-lint\fP
is specified on the command line.
.sp .5
The other feature is the use of \*(FCcontinue\fP
@@ -1495,8 +1829,8 @@ or \*(FCbreak\fP statements outside the body of a
\*(FCwhile\*(FR, \*(FCfor\*(FR, or \*(FCdo\fP loop.
Historical AWK implementations have treated such usage as
equivalent to the \*(FCnext\fP statement.
-\*(GK will support this usage if \*(FC\-\^\-traditional\fP
-has been specified.\*(CB
+\*(GK supports this usage if \*(FC\-\^\-traditional\fP
+is specified.\*(CB
.EB "\s+2\f(HBHISTORICAL FEATURES (\*(GK\f(HB)\*(FR\s0"
@@ -1504,15 +1838,14 @@ has been specified.\*(CB
.ES
.nf
\*(CDHost: \*(FCgnudist.gnu.org\*(FR
-File: \*(FC/gnu/gawk/gawk-3.0.6.tar.gz\fP
+File: \*(FC/gnu/gawk/gawk-3.1.0.tar.gz\fP
.in +.2i
.fi
GNU \*(AK (\*(GK). There may be a later version.
.in -.2i
.nf
.sp .5
-Host: \*(FCnetlib.bell-labs.com\*(FR
-File: \*(FC/netlib/research/awk.bundle.gz\fP
+\*(FChttp://cm.bell-labs.com/who/bwk/awk.tar.gz\fP
.in +.2i
.fi
\*(NK. This version requires an ANSI C compiler;
@@ -1526,12 +1859,12 @@ File: \*(FC/pub/brennan/mawk1.3.3.tar.gz\fP
.fi
Michael Brennan's \*(MK. There may be a newer version.\*(CX
.in -.2i
-.EB "\s+2\f(HBFTP INFORMATION\*(FR\s0"
+.EB "\s+2\f(HBFTP/HTTP INFORMATION\*(FR\s0"
.\" --- Copying Permissions
.ES
.fi
-\*(CDCopyright \(co 1996-2000 Free Software Foundation, Inc.
+\*(CDCopyright \(co 1996-2001 Free Software Foundation, Inc.
.sp .5
Permission is granted to make and distribute verbatim copies of this
reference card provided the copyright notice and this permission notice
diff --git a/doc/cardfonts b/doc/cardfonts
index 5529ba98..dc44ce1b 100644
--- a/doc/cardfonts
+++ b/doc/cardfonts
@@ -34,4 +34,4 @@ FC - font courier
.ds RN Times Roman
.ds IN Times Italic
.ds CN Courier Bold
-.ds AM \fIThe GNU Awk User's Guide\fP
+.ds AM \fIGAWK: Effective AWK Programming\fP
diff --git a/doc/gawk.1 b/doc/gawk.1
index 6f07cfab..3e3c62b3 100644
--- a/doc/gawk.1
+++ b/doc/gawk.1
@@ -3,6 +3,7 @@
.ds AN \s-1ANSI\s+1
.ds GN \s-1GNU\s+1
.ds AK \s-1AWK\s+1
+.ds EP \fIGAWK: Effective AWK Programming\fP
.if !\n(.g \{\
. if !\w|\*(lq| \{\
. ds lq ``
@@ -13,7 +14,7 @@
. if \w'\(rq' .ds rq "\(rq
. \}
.\}
-.TH GAWK 1 "May 17 2000" "Free Software Foundation" "Utility Commands"
+.TH GAWK 1 "May 29 2001" "Free Software Foundation" "Utility Commands"
.SH NAME
gawk \- pattern scanning and processing language
.SH SYNOPSIS
@@ -32,6 +33,22 @@ gawk \- pattern scanning and processing language
]
.I program-text
file .\|.\|.
+.sp
+.B pgawk
+[ \*(PX or \*(GN style options ]
+.B \-f
+.I program-file
+[
+.B \-\^\-
+] file .\|.\|.
+.br
+.B pgawk
+[ \*(PX or \*(GN style options ]
+[
+.B \-\^\-
+]
+.I program-text
+file .\|.\|.
.SH DESCRIPTION
.I Gawk
is the \*(GN Project's implementation of the \*(AK programming language.
@@ -44,9 +61,22 @@ with the additional features found in the System V Release 4 version
of \*(UX
.IR awk .
.I Gawk
-also provides more recent Bell Labs
+also provides more recent Bell Laboratories
.I awk
-extensions, and some \*(GN-specific extensions.
+extensions, and a number of \*(GN-specific extensions.
+.PP
+.I Pgawk
+is the profiling version of
+.IR gawk .
+It is identical in every way to
+.IR gawk ,
+except that programs run more slowly,
+and it automatically produces an execution profile in the file
+.B awkprof.out
+when done.
+See the
+.B \-\^\-profile
+option, below.
.PP
The command line consists of options to
.I gawk
@@ -63,11 +93,11 @@ pre-defined \*(AK variables.
.SH OPTION FORMAT
.PP
.I Gawk
-options may be either the traditional \*(PX one letter options,
-or the \*(GN style long options. \*(PX options start with a single \*(lq\-\*(rq,
+options may be either traditional \*(PX one letter options,
+or \*(GN style long options. \*(PX options start with a single \*(lq\-\*(rq,
while long options start with \*(lq\-\^\-\*(rq.
Long options are provided for both \*(GN-specific features and
-for \*(PX mandated features.
+for \*(PX-mandated features.
.PP
Following the \*(PX standard,
.IR gawk -specific
@@ -89,7 +119,7 @@ remains unique.
.SH OPTIONS
.PP
.I Gawk
-accepts the following options.
+accepts the following options, listed alphabetically.
.TP
.PD 0
.BI \-F " fs"
@@ -109,7 +139,7 @@ variable).
.PD
\fB\-\^\-assign \fIvar\fB\^=\^\fIval\fR
Assign the value
-.IR val ,
+.I val
to the variable
.IR var ,
before execution of the program begins.
@@ -144,7 +174,7 @@ flag sets the maximum number of fields, and the
.B r
flag sets the maximum record size. These two flags and the
.B \-m
-option are from the Bell Labs research version of \*(UX
+option are from the Bell Laboratories research version of \*(UX
.IR awk .
They are ignored by
.IR gawk ,
@@ -153,16 +183,16 @@ since
has no pre-defined limits.
.TP
.PD 0
-.B "\-W traditional"
+.B "\-W compat"
.TP
.PD 0
-.B "\-W compat"
+.B "\-W traditional"
.TP
.PD 0
-.B \-\^\-traditional
+.B \-\^\-compat
.TP
.PD
-.B \-\^\-compat
+.B \-\^\-traditional
Run in
.I compatibility
mode. In compatibility mode,
@@ -189,7 +219,33 @@ below, for more information.
.PD
.B \-\^\-copyright
Print the short version of the \*(GN copyright information message on
-the standard output, and exits successfully.
+the standard output and exit successfully.
+.TP
+.PD 0
+\fB\-W dump-variables\fR[\fB=\fIfile\fR]
+.TP
+.PD
+\fB\-\^\-dump-variables\fR[\fB=\fIfile\fR]
+Print a sorted list of global variables, their types and final values to
+.IR file .
+If no
+.I file
+is provided,
+.I gawk
+uses a file named
+.I awkvars.out
+in the current directory.
+.sp .5
+Having a list of all the global variables is a good way to look for
+typographical errors in your programs.
+You would also use this option if you have a large program with a lot of
+functions, and you want to be sure that your functions don't
+inadvertently use global variables that you meant to be local.
+(This is a particularly easy mistake to make with simple variable
+names like
+.BR i ,
+.BR j ,
+and so on.)
.TP
.PD 0
.B "\-W help"
@@ -209,12 +265,17 @@ the standard output.
these options cause an immediate, successful exit.)
.TP
.PD 0
-.B "\-W lint"
+.BR "\-W lint" [ =fatal ]
.TP
.PD
-.B \-\^\-lint
+.BR \-\^\-lint [ =fatal ]
Provide warnings about constructs that are
dubious or non-portable to other \*(AK implementations.
+With an optional argument of
+.BR fatal ,
+lint warnings become fatal errors.
+This may be drastic, but its use will certainly encourage the
+development of cleaner \*(AK programs.
.TP
.PD 0
.B "\-W lint\-old"
@@ -224,6 +285,29 @@ dubious or non-portable to other \*(AK implementations.
Provide warnings about constructs that are
not portable to the original version of Unix
.IR awk .
+.TP
+.PD 0
+.B "\-W gen\-po"
+.TP
+.PD
+.B \-\^\-gen\-po
+Scan and parse the \*(AK program, and generate a \*(GN
+.B \&.po
+format file on standard output with entries for all localizable
+strings in the program. The program itself is not executed.
+See the \*(GN
+.I gettext
+distribution for more information on
+.B \&.po
+files.
+.TP
+.PD 0
+.B "\-W non\-decimal\-data"
+.TP
+.PD
+.B "\-\^\-non\-decimal\-data"
+Recognize octal and hexadecimal values in input data.
+.I "Use this option with great caution!"
.ig
.\" This option is left undocumented, on purpose.
.TP
@@ -246,7 +330,7 @@ This turns on
.I compatibility
mode, with the following additional restrictions:
.RS
-.TP \w'\(bu'u+1n
+.TP "\w'\(bu'u+1n"
\(bu
.B \ex
escape sequences are not recognized.
@@ -257,6 +341,12 @@ Only space and tab act as field separators when
is set to a single space, newline does not.
.TP
\(bu
+You cannot continue lines after
+.B ?
+and
+.BR : .
+.TP
+\(bu
The synonym
.B func
for the keyword
@@ -280,6 +370,23 @@ function is not available.
.RE
.TP
.PD 0
+\fB\-W profile\fR[\fB=\fIprof_file\fR]
+.TP
+.PD
+\fB\-\^\-profile\fR[\fB=\fIprof_file\fR]
+Send profiling data to
+.IR prof_file .
+The default is
+.BR awkprof.out .
+When run with
+.IR gawk ,
+the profile is just a \*(lqpretty printed\*(rq version of the program.
+When run with
+.IR pgawk ,
+the profile contains execution counts of each statement in the program
+in the left margin and function call counts for each user-defined function.
+.TP
+.PD 0
.B "\-W re\-interval"
.TP
.PD
@@ -337,14 +444,15 @@ This is also useful when reporting bugs.
.IR "GNU Coding Standards" ,
these options cause an immediate, successful exit.)
.TP
+.PD 0
.B \-\^\-
-Signal the end of options. This is useful to allow further arguments to the
+Signal the end of options. This is useful to allow further arguments to the
\*(AK program itself to start with a \*(lq\-\*(rq.
This is mainly for consistency with the argument parsing convention used
by most other \*(PX programs.
.PP
In compatibility mode,
-any other options are flagged as illegal, but are otherwise ignored.
+any other options are flagged as invalid, but are otherwise ignored.
In normal operation, as long as program text has been supplied, unknown
options are passed on to the \*(AK program in the
.B ARGV
@@ -374,7 +482,7 @@ and
.B \-\^\-source
options may be used multiple times on the command line.
.I Gawk
-will read the program text as if all the
+reads the program text as if all the
.IR program-file s
and command line source texts
had been concatenated together. This is useful for building libraries
@@ -472,7 +580,7 @@ is any single character, that character separates records.
Otherwise,
.B RS
is a regular expression. Text in the input that matches this
-regular expression will separate the record.
+regular expression separates the record.
However, in compatibility mode,
only the first character of its string
value is used for separating records.
@@ -512,9 +620,10 @@ by runs of spaces and/or tabs and/or newlines.
(But see the discussion of
.BR \-\^\-posix ,
below).
-Note that the value of
+.B NOTE:
+The value of
.B IGNORECASE
-(see below) will also affect how fields are split when
+(see below) also affects how fields are split when
.B FS
is a regular expression, and how records are separated when
.B RS
@@ -525,7 +634,7 @@ If the
variable is set to a space separated list of numbers, each field is
expected to have fixed width, and
.I gawk
-will split up the record using the specified widths. The value of
+splits up the record using the specified widths. The value of
.B FS
is ignored.
Assigning a new value to
@@ -539,7 +648,7 @@ Each field in the input record may be referenced by its position,
.BR $2 ,
and so on.
.B $0
-is the whole record. The value of a field may be assigned to as well.
+is the whole record.
Fields need not be referenced by constants:
.RS
.PP
@@ -551,6 +660,7 @@ print $n
.RE
.PP
prints the fifth field in the input record.
+.PP
The variable
.B NF
is set to the total number of fields in the input record.
@@ -560,10 +670,10 @@ References to non-existent fields (i.e. fields after
produce the null-string. However, assigning to a non-existent field
(e.g.,
.BR "$(NF+2) = 5" )
-will increase the value of
+increases the value of
.BR NF ,
-create any intervening fields with the null string as their value, and
-cause the value of
+creates any intervening fields with the null string as their value, and
+causes the value of
.B $0
to be recomputed, with the fields being separated by the value of
.BR OFS .
@@ -574,12 +684,21 @@ causes the values of fields past the new value to be lost, and the value of
.B $0
to be recomputed, with the fields being separated by the value of
.BR OFS .
+.PP
+Assigning a value to an existing field
+causes the whole record to be rebuilt when
+.B $0
+is referenced.
+Similarly, assigning a value to
+.B $0
+causes the record to be resplit, creating new
+values for the fields.
.SS Built-in Variables
.PP
-.IR Gawk 's
+.IR Gawk\^ "'s"
built-in variables are:
.PP
-.TP \w'\fBFIELDWIDTHS\fR'u+1n
+.TP "\w'\fBFIELDWIDTHS\fR'u+1n"
.B ARGC
The number of command line arguments (does not include options to
.IR gawk ,
@@ -599,6 +718,16 @@ Dynamically changing the contents of
.B ARGV
can control the files used for data.
.TP
+.B BINMODE
+On non-POSIX systems, specifies use of \*(lqbinary\*(rq mode for all file I/O.
+Numeric values of 1, 2, or 3, specify that input files, output files, or
+all files, respectively, should use binary I/O.
+String values of \fB"r"\fR, or \fB"w"\fR specify that input files, or output files,
+respectively, should use binary I/O.
+String values of \fB"rw"\fR or \fB"wr"\fR specify that all files
+should use binary I/O.
+Any other string value is treated as \fB"rw"\fR, but generates a warning message.
+.TP
.B CONVFMT
The conversion format for numbers, \fB"%.6g"\fR, by default.
.TP
@@ -612,9 +741,6 @@ Changing this array does not affect the environment seen by programs which
spawns via redirection or the
.B system()
function.
-(This may change in a future version of
-.IR gawk .)
-.\" but don't hold your breath...
.TP
.B ERRNO
If a system error occurs either doing a redirection for
@@ -627,6 +753,7 @@ then
.B ERRNO
will contain
a string describing the error.
+The value is subject to translation in non-English locales.
.TP
.B FIELDWIDTHS
A white-space separated list of fieldwidths. When set,
@@ -635,10 +762,6 @@ parses the input into fields of fixed width, instead of using the
value of the
.B FS
variable as the field separator.
-The fixed field width facility is still experimental; the
-semantics may change as
-.I gawk
-evolves over time.
.TP
.B FILENAME
The name of the current input file.
@@ -649,7 +772,9 @@ However,
.B FILENAME
is undefined inside the
.B BEGIN
-block.
+block
+(unless set by
+.BR getline ).
.TP
.B FNR
The input record number in the current input file.
@@ -682,8 +807,16 @@ and the
.BR split() ,
and
.B sub()
-pre-defined functions will all ignore case when doing regular expression
-operations. Thus, if
+built-in functions all ignore case when doing regular expression
+operations.
+.B NOTE:
+Array subscripting is
+.I not
+affected, nor is the
+.B asort()
+function.
+.sp .5
+Thus, if
.B IGNORECASE
is not equal to zero,
.B /aB/
@@ -695,13 +828,18 @@ is zero, so all regular expression and string
operations are normally case-sensitive.
Under Unix, the full ISO 8859-1 Latin-1 character set is used
when ignoring case.
-.B NOTE:
-In versions of
+.TP
+.B LINT
+Provides dynamic control of the
+.B \-\^\-lint
+option from within an \*(AK program.
+When true,
.I gawk
-prior to 3.0,
-.B IGNORECASE
-only affected regular expression operations. It now affects string
-comparisons as well.
+prints lint warnings. When false, it does not.
+When assigned the string value \fB"fatal"\fP,
+lint warnings become fatal errors, exactly like
+.BR \-\^\-lint=fatal .
+Any other true value just prints warnings.
.TP
.B NF
The number of fields in the current input record.
@@ -718,6 +856,57 @@ The output field separator, a space by default.
.B ORS
The output record separator, by default a newline.
.TP
+.B PROCINFO
+The elements of this array provide access to information about the
+running \*(AK program.
+On some systems,
+there may be elements in the array, \fB"group1"\fP through
+\fB"group\fIn\fB"\fR for some
+.IR n ,
+which is the number of supplementary groups that the process has.
+Use the
+.B in
+operator to test for these elements.
+The following elements are guaranteed to be available:
+.RS
+.TP \w'\fBPROCINFO["pgrpid"]\fR'u+1n
+\fBPROCINFO["egid"]\fP
+the value of the
+.IR getegid (2)
+system call.
+.TP
+\fBPROCINFO["euid"]\fP
+the value of the
+.IR geteuid (2)
+system call.
+.TP
+\fBPROCINFO["FS"]\fP
+\fB"FS"\fP if field splitting with
+.B FS
+is in effect, or \fB"FIELDWIDTHS"\fP if field splitting with
+.B FIELDWIDTHS
+is in effect.
+.TP
+\fBPROCINFO["gid"]\fP
+the value of the
+.IR getgid (2)
+system call.
+.TP
+\fBPROCINFO["pgrpid"]\fP
+the process group ID of the current process.
+.TP
+\fBPROCINFO["pid"]\fP
+the process ID of the current process.
+.TP
+\fBPROCINFO["ppid"]\fP
+the parent process ID of the current process.
+.TP
+\fBPROCINFO["uid"]\fP
+the value of the
+.IR getuid (2)
+system call.
+.RE
+.TP
.B RS
The input record separator, by default a newline.
.TP
@@ -743,6 +932,10 @@ The length of the string matched by
.B SUBSEP
The character used to separate multiple subscripts in array
elements, by default \fB"\e034"\fR.
+.TP
+.B TEXTDOMAIN
+The text domain of the \*(AK program; used to find the localized
+translations for the program's strings.
.SS Arrays
.PP
Arrays are subscripted with an expression between square brackets
@@ -817,7 +1010,7 @@ to be treated as a string, concatenate it with the null string.
.PP
When a string must be converted to a number, the conversion is accomplished
using
-.IR atof (3).
+.IR strtod (3).
A number is converted to a string by using the value of
.B CONVFMT
as a format string for
@@ -850,11 +1043,13 @@ If one value is numeric and the other has a string value that is a
Otherwise, the numeric value is converted to a string and a string
comparison is performed.
Two strings are compared, of course, as strings.
-According to the \*(PX standard, even if two strings are
-numeric strings, a numeric comparison is performed. However, this is
+Note that the POSIX standard applies the concept of
+\*(lqnumeric string\*(rq everywhere, even to string constants.
+However, this is
clearly incorrect, and
.I gawk
does not do this.
+(Fortunately, this is fixed in the next version of the standard.)
.PP
Note that string constants, such as \fB"57"\fP, are
.I not
@@ -877,6 +1072,79 @@ should be treated that way.
.PP
Uninitialized variables have the numeric value 0 and the string value ""
(the null, or empty, string).
+.SS Octal and Hexadecimal Constants
+Starting with version 3.1 of
+.I gawk ,
+you may use C-style octal and hexadecimal constants in your AWK
+program source code.
+For example, the octal value
+.B 011
+is equal to decimal
+.BR 9 ,
+and the hexadecimal value
+.B 0x11
+is equal to decimal 17.
+.SS String Constants
+.PP
+String constants in \*(AK are sequences of characters enclosed
+between double quotes (\fB"\fR). Within strings, certain
+.I "escape sequences"
+are recognized, as in C. These are:
+.PP
+.TP "\w'\fB\e\^\fIddd\fR'u+1n"
+.B \e\e
+A literal backslash.
+.TP
+.B \ea
+The \*(lqalert\*(rq character; usually the \s-1ASCII\s+1 \s-1BEL\s+1 character.
+.TP
+.B \eb
+backspace.
+.TP
+.B \ef
+form-feed.
+.TP
+.B \en
+newline.
+.TP
+.B \er
+carriage return.
+.TP
+.B \et
+horizontal tab.
+.TP
+.B \ev
+vertical tab.
+.TP
+.BI \ex "\^hex digits"
+The character represented by the string of hexadecimal digits following
+the
+.BR \ex .
+As in \*(AN C, all following hexadecimal digits are considered part of
+the escape sequence.
+(This feature should tell us something about language design by committee.)
+E.g., \fB"\ex1B"\fR is the \s-1ASCII\s+1 \s-1ESC\s+1 (escape) character.
+.TP
+.BI \e ddd
+The character represented by the 1-, 2-, or 3-digit sequence of octal
+digits.
+E.g., \fB"\e033"\fR is the \s-1ASCII\s+1 \s-1ESC\s+1 (escape) character.
+.TP
+.BI \e c
+The literal character
+.IR c\^ .
+.PP
+The escape sequences may also be used inside constant regular expressions
+(e.g.,
+.B "/[\ \et\ef\en\er\ev]/"
+matches whitespace characters).
+.PP
+In compatibility mode, the characters represented by octal and
+hexadecimal escape sequences are treated literally when used in
+regular expression constants. Thus,
+.B /a\e52b/
+is equivalent to
+.BR /a\e*b/ .
.SH PATTERNS AND ACTIONS
\*(AK is a line-oriented language. The pattern comes first, and then the
action. Action statements are enclosed in
@@ -884,7 +1152,7 @@ action. Action statements are enclosed in
and
.BR } .
Either the pattern may be missing, or the action may be missing, but,
-of course, not both. If the pattern is missing, the action will be
+of course, not both. If the pattern is missing, the action is
executed for every single record of input.
A missing action is equivalent to
.RS
@@ -1005,7 +1273,7 @@ inclusive. It does not combine with any other sort of pattern expression.
Regular expressions are the extended kind found in
.IR egrep .
They are composed of characters as follows:
-.TP \w'\fB[^\fIabc.\|.\|.\fB]\fR'u+2n
+.TP "\w'\fB[^\fIabc.\|.\|.\fB]\fR'u+2n"
.I c
matches the non-metacharacter
.IR c .
@@ -1045,17 +1313,17 @@ concatenation: matches
and then
.IR r2 .
.TP
-.IB r +
+.IB r\^ +
matches one or more
-.IR r 's.
+.IR r\^ "'s."
.TP
.IB r *
matches zero or more
-.IR r 's.
+.IR r\^ "'s."
.TP
-.IB r ?
+.IB r\^ ?
matches zero or one
-.IR r 's.
+.IR r\^ "'s."
.TP
.BI ( r )
grouping: matches
@@ -1071,7 +1339,7 @@ grouping: matches
.IB r { n , m }
One or two numbers inside braces denote an
.IR "interval expression" .
-If there is one number in the braces, the preceding regexp
+If there is one number in the braces, the preceding regular expression
.I r
is repeated
.I n
@@ -1120,7 +1388,7 @@ matches the empty string at the beginning of a buffer (string).
matches the empty string at the end of a buffer.
.PP
The escape sequences that are valid in string constants (see below)
-are also legal in regular expressions.
+are also valid in regular expressions.
.PP
.I "Character classes"
are a new feature introduced in the \*(PX standard.
@@ -1130,15 +1398,15 @@ actual characters themselves can vary from country to country and/or
from character set to character set. For example, the notion of what
is an alphabetic character differs in the USA and in France.
.PP
-A character class is only valid in a regexp
+A character class is only valid in a regular expression
.I inside
the brackets of a character list. Character classes consist of
.BR [: ,
a keyword denoting the class, and
.BR :] .
-Here are the character
-classes defined by the \*(PX standard.
-.TP
+The character
+classes defined by the \*(PX standard are:
+.TP "\w'\fB[:alnum:]\fR'u+2n"
.B [:alnum:]
Alphanumeric characters.
.TP
@@ -1183,14 +1451,16 @@ For example, before the \*(PX standard, to match alphanumeric
characters, you would have had to write
.BR /[A\-Za\-z0\-9]/ .
If your character set had other alphabetic characters in it, this would not
-match them. With the \*(PX character classes, you can write
+match them, and if your character set collated differently from
+\s-1ASCII\s+1, this might not even match the
+\s-1ASCII\s+1 alphanumeric characters.
+With the \*(PX character classes, you can write
.BR /[[:alnum:]]/ ,
-and this will match
-.I all
+and this matches
the alphabetic and numeric characters in your character set.
.PP
Two additional special sequences can appear in character lists.
-These apply to non-ASCII character sets, which can have single symbols
+These apply to non-\s-1ASCII\s+1 character sets, which can have single symbols
(called
.IR "collating elements" )
that are represented with more than one
@@ -1200,7 +1470,7 @@ or sorting, purposes. (E.g., in French, a plain \*(lqe\*(rq
and a grave-accented e\` are equivalent.)
.TP
Collating Symbols
-A collating symbols is a multi-character collating element enclosed in
+A collating symbol is a multi-character collating element enclosed in
.B [.
and
.BR .] .
@@ -1208,9 +1478,9 @@ For example, if
.B ch
is a collating element, then
.B [[.ch.]]
-is a regexp that matches this collating element, while
+is a regular expression that matches this collating element, while
.B [ch]
-is a regexp that matches either
+is a regular expression that matches either
.B c
or
.BR h .
@@ -1224,15 +1494,17 @@ and
For example, the name
.B e
might be used to represent all of
-\*(lqe,\*(rq \*(lqe\`,\*(rq and \*(lqe\`.\*(rq
+\*(lqe,\*(rq \*(lqe\h'-\w:e:u'\`,\*(rq and \*(lqe\h'-\w:e:u'\`.\*(rq
In this case,
-.B [[=e]]
-is a regexp
+.B [[=e=]]
+is a regular expression
that matches any of
- .BR e ,
- .BR e\' ,
+.BR e ,
+....BR "e\'" ,
+.BR "e\h'-\w:e:u'\'" ,
or
- .BR e\` .
+....BR "e\`" .
+.BR "e\h'-\w:e:u'\`" .
.PP
These features are very valuable in non-English speaking locales.
The library functions that
@@ -1253,22 +1525,22 @@ and
.B \e'
operators are specific to
.IR gawk ;
-they are extensions based on facilities in the \*(GN regexp libraries.
+they are extensions based on facilities in the \*(GN regular expression libraries.
.PP
The various command line options
control how
.I gawk
-interprets characters in regexps.
+interprets characters in regular expressions.
.TP
No options
In the default case,
.I gawk
provide all the facilities of
-\*(PX regexps and the \*(GN regexp operators described above.
+\*(PX regular expressions and the \*(GN regular expression operators described above.
However, interval expressions are not supported.
.TP
.B \-\^\-posix
-Only \*(PX regexps are supported, the \*(GN operators are not special.
+Only \*(PX regular expressions are supported, the \*(GN operators are not special.
(E.g.,
.B \ew
matches a literal
@@ -1278,16 +1550,16 @@ Interval expressions are allowed.
.B \-\^\-traditional
Traditional Unix
.I awk
-regexps are matched. The \*(GN operators
+regular expressions are matched. The \*(GN operators
are not special, interval expressions are not available, and neither
are the \*(PX character classes
.RB ( [[:alnum:]]
and so on).
Characters described by octal and hexadecimal escape sequences are
-treated literally, even if they represent regexp metacharacters.
+treated literally, even if they represent regular expression metacharacters.
.TP
.B \-\^\-re\-interval
-Allow interval expressions in regexps, even if
+Allow interval expressions in regular expressions, even if
.B \-\^\-traditional
has been provided.
.SS Actions
@@ -1413,8 +1685,14 @@ as follows:
The input/output statements are as follows:
.PP
.TP "\w'\fBprintf \fIfmt, expr-list\fR'u+1n"
-.BI close( file )
-Close file (or pipe, see below).
+\fBclose(\fIfile \fR[\fB, \fIhow\fR]\fB)\fR
+Close file, pipe or co-process.
+The optional
+.I how
+should only be used when closing one end of a
+two-way pipe to a co-process.
+It must be a string value, either
+\fB"to"\fR or \fB"from"\fR.
.TP
.B getline
Set
@@ -1445,6 +1723,28 @@ Set
from next record of
.IR file .
.TP
+\fIcommand\fB | getline \fR[\fIvar\fR]
+Run
+.I command
+piping the output either into
+.B $0
+or
+.IR var ,
+as above.
+.TP
+\fIcommand\fB |& getline \fR[\fIvar\fR]
+Run
+.I command
+as a co-process
+piping the output either into
+.B $0
+or
+.IR var ,
+as above.
+Co-processes are a
+.I gawk
+extension.
+.TP
.B next
Stop processing the current input record. The next input record
is read and processing starts over with the first pattern in the
@@ -1461,14 +1761,9 @@ and
are updated,
.B FNR
is reset to 1, and processing starts over with the first pattern in the
-\*(AK program. If the end of the input data is reached, the
+\*(AK program. If the end of the input data is reached, the
.B END
block(s), if any, are executed.
-.B NOTE:
-Earlier versions of gawk used
-.BR "next file" ,
-as two words. While this usage is still recognized, it generates a
-warning message and will eventually be removed.
.TP
.B print
Prints the current record.
@@ -1519,36 +1814,41 @@ is the null string,
then all open output files and pipes
have their buffers flushed.
.PP
-Other input/output redirections are also allowed. For
+Additional output redirections are allowed for
.B print
and
-.BR printf ,
-.BI >> " file"
+.BR printf .
+.TP
+.BI "print .\|.\|. >>" " file"
appends output to the
-.IR file ,
-while
-.BI | " command"
+.IR file .
+.TP
+.BI "print .\|.\|. |" " command"
writes on a pipe.
-In a similar fashion,
-.IB command " | getline"
-pipes into
-.BR getline .
+.TP
+.BI "print .\|.\|. |&" " command"
+sends data to a co-process.
+.PP
The
.BR getline
-command will return 0 on end of file, and \-1 on an error.
+command returns 0 on end of file and \-1 on an error.
+Upon an error,
+.B ERRNO
+contains a string describing the problem.
.PP
-NOTE: If using a pipe to
+.B NOTE:
+If using a pipe or co-process to
.BR getline ,
or from
.B print
or
-.BR printf
+.B printf
within a loop, you
.I must
use
.B close()
to create new instances of the command.
-AWK does not automatically close pipes when
+\*(AK does not automatically close pipes or co-processes when
they return EOF.
.SS The \fIprintf\fP\^ Statement
.PP
@@ -1559,7 +1859,7 @@ statement and
function
(see below)
accept the following conversion specification formats:
-.TP
+.TP "\w'\fB%g\fR, \fB%G\fR'u+2n"
.B %c
An \s-1ASCII\s+1 character.
If the argument used for
@@ -1568,18 +1868,10 @@ is numeric, it is treated as a character and printed.
Otherwise, the argument is assumed to be a string, and the only first
character of that string is printed.
.TP
-.PD 0
-.B %d
-.TP
-.PD
-.B %i
+.BR "%d" "," " %i"
A decimal number (the integer part).
.TP
-.PD 0
-.B %e
-.TP
-.PD
-.B %E
+.B %e , " %E"
A floating point number of the form
.BR [\-]d.dddddde[+\^\-]dd .
The
@@ -1593,11 +1885,7 @@ instead of
A floating point number of the form
.BR [\-]ddd.dddddd .
.TP
-.PD 0
-.B %g
-.TP
-.PD
-.B %G
+.B %g , " %G"
Use
.B %e
or
@@ -1620,11 +1908,7 @@ An unsigned decimal number (again, an integer).
.B %s
A character string.
.TP
-.PD 0
-.B %x
-.TP
-.PD
-.B %X
+.B %x , " %X"
An unsigned hexadecimal number (an integer).
The
.B %X
@@ -1638,10 +1922,23 @@ A single
.B %
character; no argument is converted.
.PP
-There are optional, additional parameters that may lie between the
+Optional, additional parameters may lie between the
.B %
and the control letter:
.TP
+.IB count $
+Use the
+.IR count "'th"
+argument at this point in the formatting.
+This is called a
+.I "positional specifier"
+and
+is intended primarily for use in translated versions of
+format strings, not in the original text of an AWK program.
+It is a
+.I gawk
+extension.
+.TP
.B \-
The expression should be left-justified within its field.
.TP
@@ -1676,7 +1973,7 @@ For
.BR %E ,
and
.BR %f ,
-the result will always contain a
+the result always contains a
decimal point.
For
.BR %g ,
@@ -1722,7 +2019,9 @@ of significant digits. For the
and
.B %X
formats, it specifies the minimum number of
-digits to print. For a string, it specifies the maximum number of
+digits to print. For
+.BR %s ,
+it specifies the maximum number of
characters from the string that should be printed.
.PP
The dynamic
@@ -1738,11 +2037,18 @@ in place of either the
.B width
or
.B prec
-specifications will cause their values to be taken from
+specifications causes their values to be taken from
the argument list to
.B printf
or
.BR sprintf() .
+To use a positional specifier with a dynamic width or precision,
+supply the
+.IB count $
+after the
+.B *
+in the format string.
+For example, \fB"%3$*2$.*1$s"\fP.
.SS Special File Names
.PP
When doing I/O redirection from either
@@ -1756,13 +2062,72 @@ from a file,
.I gawk
recognizes certain special filenames internally. These filenames
allow access to open file descriptors inherited from
-.IR gawk 's
+.IR gawk\^ "'s"
parent process (usually the shell).
+These file names may also be used on the command line to name data files.
+The filenames are:
+.TP "\w'\fB/dev/stdout\fR'u+1n"
+.B /dev/stdin
+The standard input.
+.TP
+.B /dev/stdout
+The standard output.
+.TP
+.B /dev/stderr
+The standard error output.
+.TP
+.BI /dev/fd/\^ n
+The file associated with the open file descriptor
+.IR n .
+.PP
+These are particularly useful for error messages. For example:
+.PP
+.RS
+.ft B
+print "You blew it!" > "/dev/stderr"
+.ft R
+.RE
+.PP
+whereas you would otherwise have to use
+.PP
+.RS
+.ft B
+print "You blew it!" | "cat 1>&2"
+.ft R
+.RE
+.PP
+The following special filenames may be used with the
+.B |&
+co-process operator for creating TCP/IP network connections.
+.TP "\w'\fB/inet/tcp/\fIlport\fB/\fIrhost\fB/\fIrport\fR'u+2n"
+.BI /inet/tcp/ lport / rhost / rport
+File for TCP/IP connection on local port
+.I lport
+to
+remote host
+.I rhost
+on remote port
+.IR rport .
+Use a port of
+.B 0
+to have the system pick a port.
+.TP
+.BI /inet/udp/ lport / rhost / rport
+Similar, but use UDP/IP instead of TCP/IP.
+.TP
+.BI /inet/raw/ lport / rhost / rport
+.\" Similar, but use raw IP sockets.
+Reserved for future use.
+.PP
Other special filenames provide access to information about the running
-.B gawk
+.I gawk
process.
+.B "These filenames are now obsolete."
+Use the
+.B PROCINFO
+array to obtain the information they provide.
The filenames are:
-.TP \w'\fB/dev/stdout\fR'u+1n
+.TP "\w'\fB/dev/stdout\fR'u+1n"
.B /dev/pid
Reading this file returns the process ID of the current process,
in decimal, terminated with a newline.
@@ -1797,88 +2162,84 @@ system call.
If there are any additional fields, they are the group IDs returned by
.IR getgroups (2).
Multiple groups may not be supported on all systems.
-.TP
-.B /dev/stdin
-The standard input.
-.TP
-.B /dev/stdout
-The standard output.
-.TP
-.B /dev/stderr
-The standard error output.
-.TP
-.BI /dev/fd/\^ n
-The file associated with the open file descriptor
-.IR n .
-.PP
-These are particularly useful for error messages. For example:
-.PP
-.RS
-.ft B
-print "You blew it!" > "/dev/stderr"
-.ft R
-.RE
-.PP
-whereas you would otherwise have to use
-.PP
-.RS
-.ft B
-print "You blew it!" | "cat 1>&2"
-.ft R
-.RE
-.PP
-These file names may also be used on the command line to name data files.
.SS Numeric Functions
.PP
-\*(AK has the following pre-defined arithmetic functions:
+\*(AK has the following built-in arithmetic functions:
.PP
-.TP \w'\fBsrand(\fR[\fIexpr\^\fR]\fB)\fR'u+1n
+.TP "\w'\fBsrand(\fR[\fIexpr\^\fR]\fB)\fR'u+1n"
.BI atan2( y , " x" )
-returns the arctangent of
+Returns the arctangent of
.I y/x
in radians.
.TP
.BI cos( expr )
-returns the cosine of
+Returns the cosine of
.IR expr ,
which is in radians.
.TP
.BI exp( expr )
-the exponential function.
+The exponential function.
.TP
.BI int( expr )
-truncates to integer.
+Truncates to integer.
.TP
.BI log( expr )
-the natural logarithm function.
+The natural logarithm function.
.TP
.B rand()
-returns a random number between 0 and 1.
+Returns a random number between 0 and 1.
.TP
.BI sin( expr )
-returns the sine of
+Returns the sine of
.IR expr ,
which is in radians.
.TP
.BI sqrt( expr )
-the square root function.
+The square root function.
.TP
\&\fBsrand(\fR[\fIexpr\^\fR]\fB)\fR
-uses
+Uses
.I expr
as a new seed for the random number generator. If no
.I expr
-is provided, the time of day will be used.
+is provided, the time of day is used.
The return value is the previous seed for the random
number generator.
.SS String Functions
.PP
.I Gawk
-has the following pre-defined string functions:
+has the following built-in string functions:
.PP
.TP "\w'\fBsprintf(\^\fIfmt\fB\^, \fIexpr-list\^\fB)\fR'u+1n"
+\fBasort(\fIs \fR[\fB, \fId\fR]\fB)\fR
+Returns the number of elements in the source
+array
+.IR s .
+The contents of
+.I s
+are sorted using
+.IR gawk\^ "'s"
+normal rules for
+comparing values, and the indexes of the
+sorted values of
+.I s
+are replaced with sequential
+integers starting with 1. If the optional
+destination array
+.I d
+is specified, then
+.I s
+is first duplicated into
+.IR d ,
+and then
+.I d
+is sorted, leaving the indexes of the
+source array
+.I s
+unchanged.
+.TP
\fBgensub(\fIr\fB, \fIs\fB, \fIh \fR[\fB, \fIt\fR]\fB)\fR
-search the target string
+Search the target string
.I t
for matches of the regular expression
.IR r .
@@ -1897,9 +2258,9 @@ Otherwise,
is a number indicating which match of
.I r
to replace.
-If no
+If
.I t
-is supplied,
+is not supplied,
.B $0
is used instead.
Within the replacement text
@@ -1925,7 +2286,7 @@ and the original target string is
changed.
.TP "\w'\fBsprintf(\^\fIfmt\fB\^, \fIexpr-list\^\fB)\fR'u+1n"
\fBgsub(\fIr\fB, \fIs \fR[\fB, \fIt\fR]\fB)\fR
-for each substring matching the regular expression
+For each substring matching the regular expression
.I r
in the string
.IR t ,
@@ -1943,18 +2304,18 @@ Use
.B \e&
to get a literal
.BR & .
-See
-.I "Effective AWK Programming"
+(This must be typed as \fB"\e\e&"\fP;
+see \*(EP
for a fuller discussion of the rules for
.BR &'s
and backslashes in the replacement text of
.BR sub() ,
.BR gsub() ,
and
-.BR gensub() .
+.BR gensub() .)
.TP
.BI index( s , " t" )
-returns the index of the string
+Returns the index of the string
.I t
in the string
.IR s ,
@@ -1963,7 +2324,7 @@ or 0 if
is not present.
.TP
\fBlength(\fR[\fIs\fR]\fB)
-returns the length of the string
+Returns the length of the string
.IR s ,
or the length of
.B $0
@@ -1971,8 +2332,8 @@ if
.I s
is not supplied.
.TP
-.BI match( s , " r" )
-returns the position in
+\fBmatch(\fIs\fB, \fIr \fR[\fB, \fIa\fR]\fB)\fR
+Returns the position in
.I s
where the regular expression
.I r
@@ -1982,9 +2343,33 @@ is not present, and sets the values of
.B RSTART
and
.BR RLENGTH .
+Note that the argument order is the same as for the
+.B ~
+operator:
+.IB str " ~"
+.IR re .
+.ft R
+If array
+.I a
+is provided,
+.I a
+is cleared and then elements 1 through
+.I n
+are filled with the portions of
+.I s
+that match the corresponding parenthesized
+subexpression in
+.IR r .
+The 0'th element of
+.I a
+contains the portion
+of
+.I s
+matched by the entire regular expression
+.IR r .
.TP
\fBsplit(\fIs\fB, \fIa \fR[\fB, \fIr\fR]\fB)\fR
-splits the string
+Splits the string
.I s
into the array
.I a
@@ -2001,19 +2386,44 @@ is cleared first.
Splitting behaves identically to field splitting, described above.
.TP
.BI sprintf( fmt , " expr-list" )
-prints
+Prints
.I expr-list
according to
.IR fmt ,
and returns the resulting string.
.TP
+.BI strtonum( str )
+Examines
+.IR str ,
+and returns its numeric value.
+If
+.I str
+begins
+with a leading
+.BR 0 ,
+.B strtonum()
+assumes that
+.I str
+is an octal number.
+If
+.I str
+begins
+with a leading
+.B 0x
+or
+.BR 0X ,
+.B strtonum()
+assumes that
+.I str
+is a hexadecimal number.
+.TP
\fBsub(\fIr\fB, \fIs \fR[\fB, \fIt\fR]\fB)\fR
-just like
+Just like
.BR gsub() ,
but only the first matching substring is replaced.
.TP
\fBsubstr(\fIs\fB, \fIi \fR[\fB, \fIn\fR]\fB)\fR
-returns the at most
+Returns the at most
.IR n -character
substring of
.I s
@@ -2026,7 +2436,7 @@ is omitted, the rest of
is used.
.TP
.BI tolower( str )
-returns a copy of the string
+Returns a copy of the string
.IR str ,
with all the upper-case characters in
.I str
@@ -2034,27 +2444,58 @@ translated to their corresponding lower-case counterparts.
Non-alphabetic characters are left unchanged.
.TP
.BI toupper( str )
-returns a copy of the string
+Returns a copy of the string
.IR str ,
with all the lower-case characters in
.I str
translated to their corresponding upper-case counterparts.
Non-alphabetic characters are left unchanged.
.SS Time Functions
-.PP
Since one of the primary uses of \*(AK programs is processing log files
that contain time stamp information,
.I gawk
-provides the following two functions for obtaining time stamps and
+provides the following functions for obtaining time stamps and
formatting them.
.PP
.TP "\w'\fBsystime()\fR'u+1n"
-.B systime()
-returns the current time of day as the number of seconds since the Epoch
-(Midnight UTC, January 1, 1970 on \*(PX systems).
+\fBmktime(\fIdatespec\fB)\fR
+Rurns
+.I datespec
+into a time stamp of the same form as returned by
+.BR systime() .
+The
+.I datespec
+is a string of the form
+.IR "YYYY MM DD HH MM SS[ DST]" .
+The contents of the string are six or seven numbers representing respectively
+the full year including century,
+the month from 1 to 12,
+the day of the month from 1 to 31,
+the hour of the day from 0 to 23,
+the minute from 0 to 59,
+and the second from 0 to 60,
+and an optional daylight saving flag.
+The values of these numbers need not be within the ranges specified;
+for example, an hour of \-1 means 1 hour before midnight.
+The origin-zero Gregorian calendar is assumed,
+with year 0 preceding year 1 and year \-1 preceding year 0.
+The time is assumed to be in the local timezone.
+If the daylight saving flag is positive,
+the time is assumed to be daylight saving time;
+if zero, the time is assumed to be standard time;
+and if negative (the default),
+.B mktime()
+attempts to determine whether daylight saving time is in effect
+for the specified time.
+If
+.I datespec
+does not contain enough elements or if the resulting time
+is out of range,
+.B mktime()
+returns \-1.
.TP
\fBstrftime(\fR[\fIformat \fR[\fB, \fItimestamp\fR]]\fB)\fR
-formats
+Formats
.I timestamp
according to the specification in
.IR format.
@@ -2069,7 +2510,7 @@ If
.I format
is missing, a default format equivalent to the output of
.IR date (1)
-will be used.
+is used.
See the specification for the
.B strftime()
function in \*(AN C for the format conversions that are
@@ -2082,68 +2523,113 @@ if that version was used to build
.IR gawk ,
then all of the conversions described in that man page are available to
.IR gawk.
-.SS String Constants
-.PP
-String constants in \*(AK are sequences of characters enclosed
-between double quotes (\fB"\fR). Within strings, certain
-.I "escape sequences"
-are recognized, as in C. These are:
-.PP
-.TP \w'\fB\e\^\fIddd\fR'u+1n
-.B \e\e
-A literal backslash.
.TP
-.B \ea
-The \*(lqalert\*(rq character; usually the \s-1ASCII\s+1 \s-1BEL\s+1 character.
-.TP
-.B \eb
-backspace.
-.TP
-.B \ef
-form-feed.
-.TP
-.B \en
-newline.
-.TP
-.B \er
-carriage return.
+.B systime()
+Returns the current time of day as the number of seconds since the Epoch
+(1970-01-01 00:00:00 UTC on \*(PX systems).
+.SS Bit Manipulations Functions
+Starting with version 3.1 of
+.IR gawk ,
+the following bit manipulation functions are available.
+They work by converting double-precision floating point
+values to
+.B "unsigned long"
+integers, doing the operation, and then converting the
+result back to floating point.
+The functions are:
+.TP "\w'\fBrshift(\fIval\fB, \fIcount\fB)\fR'u+2n"
+\fBand(\fIv1\fB, \fIv2\fB)\fR
+Return the bitwise AND of the values provided by
+.I v1
+and
+.IR v2 .
.TP
-.B \et
-horizontal tab.
+\fBcompl(\fIval\fB)\fR
+Return the bitwise complement of
+.IR val .
.TP
-.B \ev
-vertical tab.
+\fBlshift(\fIval\fB, \fIcount\fB)\fR
+Return the value of
+.IR val ,
+shifted left by
+.I count
+bits.
.TP
-.BI \ex "\^hex digits"
-The character represented by the string of hexadecimal digits following
-the
-.BR \ex .
-As in \*(AN C, all following hexadecimal digits are considered part of
-the escape sequence.
-(This feature should tell us something about language design by committee.)
-E.g., \fB"\ex1B"\fR is the \s-1ASCII\s+1 \s-1ESC\s+1 (escape) character.
+\fBor(\fIv1\fB, \fIv2\fB)\fR
+Return the bitwise OR of the values provided by
+.I v1
+and
+.IR v2 .
.TP
-.BI \e ddd
-The character represented by the 1-, 2-, or 3-digit sequence of octal
-digits.
-E.g., \fB"\e033"\fR is the \s-1ASCII\s+1 \s-1ESC\s+1 (escape) character.
+\fBrshift(\fIval\fB, \fIcount\fB)\fR
+Return the value of
+.IR val ,
+shifted right by
+.I count
+bits.
.TP
-.BI \e c
-The literal character
-.IR c\^ .
-.PP
-The escape sequences may also be used inside constant regular expressions
-(e.g.,
-.B "/[\ \et\ef\en\er\ev]/"
-matches whitespace characters).
+\fBxor(\fIv1\fB, \fIv2\fB)\fR
+Return the bitwise XOR of the values provided by
+.I v1
+and
+.IR v2 .
.PP
-In compatibility mode, the characters represented by octal and
-hexadecimal escape sequences are treated literally when used in
-regexp constants. Thus,
-.B /a\e52b/
-is equivalent to
-.BR /a\e*b/ .
-.SH FUNCTIONS
+.SS Internationalization Functions
+Starting with version 3.1 of
+.IR gawk ,
+the following functions may be used from within your AWK program for
+translating strings at run-time.
+For full details, see \*(EP.
+.TP
+\fBbindtextdomain(\fIdirectory \fR[\fB, \fIdomain\fR]\fB)\fR
+Specifies the directory where
+.I gawk
+looks for the
+.B \&.mo
+files, in case they
+will not or cannot be placed in the ``standard'' locations
+(e.g., during testing).
+It returns the directory where
+.I domain
+is ``bound.''
+.sp .5
+The default
+.I domain
+is the value of
+.BR TEXTDOMAIN .
+If
+.I directory
+is the null string (\fB""\fR), then
+.B bindtextdomain()
+returns the current binding for the
+given
+.IR domain .
+.TP
+\fBdcgettext(\fIstring \fR[\fB, \fIdomain \fR[\fB, \fIcategory\fR]]\fB)\fR
+Returns the translation of
+.I string
+in
+text domain
+.I domain
+for locale category
+.IR category .
+The default value for
+.I domain
+is the current value of
+.BR TEXTDOMAIN .
+The default value for
+.I category
+is \fB"LC_MESSAGES"\fR.
+.sp .5
+If you supply a value for
+.IR category ,
+it must be a string equal to
+one of the known locale categories described
+in \*(EP.
+You must also supply a text domain. Use
+.B TEXTDOMAIN
+if you want to use the current domain.
+.SH USER-DEFINED FUNCTIONS
Functions in \*(AK are defined as follows:
.PP
.RS
@@ -2163,7 +2649,7 @@ real parameters by extra spaces in the parameter list. For example:
.RS
.ft B
.nf
-function f(p, q, a, b) # a & b are local
+function f(p, q, a, b) # a and b are local
{
\&.\|.\|.
}
@@ -2193,7 +2679,7 @@ If
.B \-\^\-lint
has been provided,
.I gawk
-will warn about calls to undefined functions at parse time,
+warns about calls to undefined functions at parse time,
instead of at run time.
Calling an undefined function at run time is a fatal error.
.PP
@@ -2201,6 +2687,45 @@ The word
.B func
may be used in place of
.BR function .
+.SH DYNAMICALLY LOADING NEW FUNCTIONS
+Beginning with version 3.1 of
+.IR gawk ,
+you can dynamically add new built-in functions to the running
+.I gawk
+interpreter.
+The full details are beyond the scope of this manual page;
+see \*(EP for the details.
+.PP
+.TP 8
+\fBextension(\fIobject\fB, \fIfunction\fB)\fR
+Dynamically link the shared object file named by
+.IR object ,
+and invoke
+.I function
+in that object, to perform initialization.
+These should both be provided as strings.
+Returns the value returned by
+.IR function .
+.PP
+.ft B
+This function is provided and documented in \*(EP,
+but everything about this feature is likely to change
+in the next release.
+We STRONGLY recommend that you do not use this feature
+for anything that you aren't willing to redo.
+.ft R
+.SH SIGNALS
+.I pgawk
+accepts two signals.
+.B SIGUSR1
+causes it to dump a profile and function call stack to the
+profile file, which is either
+.BR awkprof.out ,
+or whatever file was named with the
+.B \-\^\-profile
+option. It then continues to run.
+.B SIGHUP
+causes it to dump the profile and function call stack and then exit.
.SH EXAMPLES
.nf
Print and sort the login names of all users:
@@ -2229,23 +2754,84 @@ Concatenate and line number (a variation on a theme):
{ print NR, $0 }
.ft R
.fi
-.SH SEE ALSO
-.IR egrep (1),
-.IR getpid (2),
-.IR getppid (2),
-.IR getpgrp (2),
-.IR getuid (2),
-.IR geteuid (2),
-.IR getgid (2),
-.IR getegid (2),
-.IR getgroups (2)
-.PP
-.IR "The AWK Programming Language" ,
-Alfred V. Aho, Brian W. Kernighan, Peter J. Weinberger,
-Addison-Wesley, 1988. ISBN 0-201-07981-X.
-.PP
-.IR "Effective AWK Programming" ,
-Edition 1.0, published by the Free Software Foundation, 1995.
+.SH INTERNATIONALIZATION
+.PP
+String constants are sequences of characters enclosed in double
+quotes. In non-English speaking environments, it is possible to mark
+strings in the \*(AK program as requiring translation to the native
+natural language. Such strings are marked in the \*(AK program with
+a leading underscore (\*(lq_\*(rq). For example,
+.sp
+.RS
+.ft B
+gawk 'BEGIN { print "hello, world" }'
+.RE
+.sp
+.ft R
+always prints
+.BR "hello, world" .
+But,
+.sp
+.RS
+.ft B
+gawk 'BEGIN { print _"hello, world" }'
+.RE
+.sp
+.ft R
+might print
+.B "bonjour, monde"
+in France.
+.PP
+There are several steps involved in producing and running a localizable
+\*(AK program.
+.TP "\w'4.'u+2n"
+1.
+Add a
+.B BEGIN
+action to assign a value to the
+.B TEXTDOMAIN
+variable to set the text domain to a name associated with your program.
+.sp
+.ti +5n
+.ft B
+BEGIN { TEXTDOMAIN = "myprog" }
+.ft R
+.sp
+This allows
+.I gawk
+to find the
+.B \&.mo
+file associated with your program.
+Without this step,
+.I gawk
+uses the
+.B messages
+text domain,
+which likely does not contain translations for your program.
+.TP
+2.
+Mark all strings that should be translated with leading underscores.
+.TP
+3.
+If necessary, use the
+.B dcgettext()
+and/or
+.B bindtextdomain()
+functions in your program, as appropriate.
+.TP
+4.
+Run
+.B "gawk \-\^\-gen\-po \-f myprog.awk > myprog.po"
+to generate a
+.B \&.po
+file for your program.
+.TP
+5.
+Provide appropriate translations, and build and install a corresponding
+.B \&.mo
+file.
+.PP
+The internationalization features are described in full detail in \*(EP.
.SH POSIX COMPATIBILITY
A primary goal for
.I gawk
@@ -2256,13 +2842,10 @@ To this end,
.I gawk
incorporates the following user visible
features which are not described in the \*(AK book,
-but are part of the Bell Labs version of
+but are part of the Bell Laboratories version of
.IR awk ,
and are in the \*(PX standard.
.PP
-The
-.B \-v
-option for assigning variables before program execution starts is new.
The book indicates that command line variable assignment happens when
.I awk
would otherwise open the argument as a file, which is after the
@@ -2275,9 +2858,11 @@ the
block was run. Applications came to depend on this \*(lqfeature.\*(rq
When
.I awk
-was changed to match its documentation, this option was added to
+was changed to match its documentation, the
+.B \-v
+option for assigning variables before program execution was added to
accommodate applications that depended upon the old behavior.
-(This feature was agreed upon by both the AT&T and \*(GN developers.)
+(This feature was agreed upon by both the Bell Laboratories and the \*(GN developers.)
.PP
The
.B \-W
@@ -2287,7 +2872,7 @@ When processing arguments,
.I gawk
uses the special option \*(lq\-\^\-\*(rq to signal the end of
arguments.
-In compatibility mode, it will warn about, but otherwise ignore,
+In compatibility mode, it warns about but otherwise ignores
undefined options.
In normal operation, such arguments are passed on to the \*(AK program for
it to process.
@@ -2315,13 +2900,61 @@ and
.BR \ev
escape sequences (done originally in
.I gawk
-and fed back into AT&T's); the
+and fed back into the Bell Laboratories version); the
.B tolower()
and
.B toupper()
-built-in functions (from AT&T); and the \*(AN C conversion specifications in
+built-in functions (from the Bell Laboratories version); and the \*(AN C conversion specifications in
.B printf
-(done first in AT&T's version).
+(done first in the Bell Laboratories version).
+.SH HISTORICAL FEATURES
+There are two features of historical \*(AK implementations that
+.I gawk
+supports.
+First, it is possible to call the
+.B length()
+built-in function not only with no argument, but even without parentheses!
+Thus,
+.RS
+.PP
+.ft B
+a = length # Holy Algol 60, Batman!
+.ft R
+.RE
+.PP
+is the same as either of
+.RS
+.PP
+.ft B
+a = length()
+.br
+a = length($0)
+.ft R
+.RE
+.PP
+This feature is marked as \*(lqdeprecated\*(rq in the \*(PX standard, and
+.I gawk
+issues a warning about its use if
+.B \-\^\-lint
+is specified on the command line.
+.PP
+The other feature is the use of either the
+.B continue
+or the
+.B break
+statements outside the body of a
+.BR while ,
+.BR for ,
+or
+.B do
+loop. Traditional \*(AK implementations have treated such usage as
+equivalent to the
+.B next
+statement.
+.I Gawk
+supports this usage if
+.B \-\^\-traditional
+has been specified.
.SH GNU EXTENSIONS
.I Gawk
has a number of extensions to \*(PX
@@ -2339,15 +2972,23 @@ The following features of
are not available in
\*(PX
.IR awk .
-.RS
-.TP \w'\(bu'u+1n
+.\" Environment vars and startup stuff
+.TP "\w'\(bu'u+1n"
+\(bu
+No path search is performed for files named via the
+.B \-f
+option. Therefore the
+.B AWKPATH
+environment variable is not special.
+.\" POSIX and language recognition issues
+.TP
\(bu
The
.B \ex
escape sequence.
(Disabled with
.BR \-\^\-posix .)
-.TP \w'\(bu'u+1n
+.TP
\(bu
The
.B fflush()
@@ -2356,22 +2997,26 @@ function.
.BR \-\^\-posix .)
.TP
\(bu
-The
-.BR systime(),
-.BR strftime(),
+The ability to continue lines after
+.B ?
and
-.B gensub()
-functions.
+.BR : .
+(Disabled with
+.BR \-\^\-posix .)
.TP
\(bu
-The special file names available for I/O redirection are not recognized.
+Octal and hexadecimal constants in AWK programs.
+.\" Special variables
.TP
\(bu
The
.BR ARGIND ,
+.BR BINMODE ,
.BR ERRNO ,
+.BR LINT ,
+.B RT
and
-.B RT
+.B TEXTDOMAIN
variables are not special.
.TP
\(bu
@@ -2385,11 +3030,26 @@ The
variable and fixed-width field splitting.
.TP
\(bu
+The
+.B PROCINFO
+array is not available.
+.\" I/O stuff
+.TP
+\(bu
The use of
.B RS
as a regular expression.
.TP
\(bu
+The special file names available for I/O redirection are not recognized.
+.TP
+\(bu
+The
+.B |&
+operator for creating co-processes.
+.\" Changes to standard awk functions
+.TP
+\(bu
The ability to split out individual characters using the null string
as the value of
.BR FS ,
@@ -2397,33 +3057,75 @@ and as the third argument to
.BR split() .
.TP
\(bu
-No path search is performed for files named via the
-.B \-f
-option. Therefore the
-.B AWKPATH
-environment variable is not special.
+The optional second argument to the
+.B close()
+function.
.TP
\(bu
-The use of
-.B "nextfile"
-to abandon processing of the current input file.
+The optional third argument to the
+.B match()
+function.
+.TP
+\(bu
+The ability to use positional specifiers with
+.B printf
+and
+.BR sprintf() .
+.\" New keywords or changes to keywords
.TP
\(bu
The use of
.BI delete " array"
to delete the entire contents of an array.
-.RE
+.TP
+\(bu
+The use of
+.B "nextfile"
+to abandon processing of the current input file.
+.\" New functions
+.TP
+\(bu
+The
+.BR and() ,
+.BR asort() ,
+.BR bindtextdomain() ,
+.BR compl() ,
+.BR dcgettext() ,
+.BR gensub() ,
+.BR lshift() ,
+.BR mktime() ,
+.BR or() ,
+.BR rshift() ,
+.BR strftime() ,
+.BR strtonum() ,
+.B systime()
+and
+.B xor()
+functions.
+.\" I18N stuff
+.TP
+\(bu
+Localizable strings.
+.\" Extending gawk
+.TP
+\(bu
+Adding new built-in functions dynamically with the
+.B extension()
+function.
.PP
-The AWK book does not define the return value of the
+The \*(AK book does not define the return value of the
.B close()
function.
-.IR Gawk\^ 's
+.IR Gawk\^ "'s"
.B close()
returns the value from
.IR fclose (3),
or
.IR pclose (3),
-when closing a file or pipe, respectively.
+when closing an output file or pipe, respectively.
+It returns the process's exit status when closing an input pipe.
+The return value is \-1 if the named file, pipe
+or co-process was not opened with a redirection.
.PP
When
.I gawk
@@ -2436,7 +3138,7 @@ argument to the
.B \-F
option is \*(lqt\*(rq, then
.B FS
-will be set to the tab character.
+is set to the tab character.
Note that typing
.B "gawk \-F\et \&.\|.\|."
simply causes the shell to quote the \*(lqt,\*(rq, and does not pass
@@ -2448,14 +3150,14 @@ This behavior also does not occur if
.B \-\^\-posix
has been specified.
To really get a tab character as the field separator, it is best to use
-quotes:
+single quotes:
.BR "gawk \-F'\et' \&.\|.\|." .
.ig
.PP
If
.I gawk
-was compiled for debugging, it will
-accept the following additional options:
+was compiled for debugging, it
+accepts the following additional options:
.TP
.PD 0
.B \-Wparsedebug
@@ -2472,55 +3174,17 @@ This option should only be of interest to the
maintainers, and may not even be compiled into
.IR gawk .
..
-.SH HISTORICAL FEATURES
-There are two features of historical \*(AK implementations that
-.I gawk
-supports.
-First, it is possible to call the
-.B length()
-built-in function not only with no argument, but even without parentheses!
-Thus,
-.RS
-.PP
-.ft B
-a = length # Holy Algol 60, Batman!
-.ft R
-.RE
-.PP
-is the same as either of
-.RS
-.PP
-.ft B
-a = length()
-.br
-a = length($0)
-.ft R
-.RE
-.PP
-This feature is marked as \*(lqdeprecated\*(rq in the \*(PX standard, and
+.SH ENVIRONMENT VARIABLES
+The
+.B AWKPATH
+environment variable can be used to provide a list of directories that
.I gawk
-will issue a warning about its use if
-.B \-\^\-lint
-is specified on the command line.
+searches when looking for files named via the
+.B \-f
+and
+.B \-\^\-file
+options.
.PP
-The other feature is the use of either the
-.B continue
-or the
-.B break
-statements outside the body of a
-.BR while ,
-.BR for ,
-or
-.B do
-loop. Traditional \*(AK implementations have treated such usage as
-equivalent to the
-.B next
-statement.
-.I Gawk
-will support this usage if
-.B \-\^\-traditional
-has been specified.
-.SH ENVIRONMENT VARIABLES
If
.B POSIXLY_CORRECT
exists in the environment, then
@@ -2532,54 +3196,47 @@ If
.B \-\^\-lint
has been specified,
.I gawk
-will issue a warning message to this effect.
+issues a warning message to this effect.
+.SH SEE ALSO
+.IR egrep (1),
+.IR getpid (2),
+.IR getppid (2),
+.IR getpgrp (2),
+.IR getuid (2),
+.IR geteuid (2),
+.IR getgid (2),
+.IR getegid (2),
+.IR getgroups (2)
.PP
-The
-.B AWKPATH
-environment variable can be used to provide a list of directories that
-.I gawk
-will search when looking for files named via the
-.B \-f
-and
-.B \-\^\-file
-options.
+.IR "The AWK Programming Language" ,
+Alfred V. Aho, Brian W. Kernighan, Peter J. Weinberger,
+Addison-Wesley, 1988. ISBN 0-201-07981-X.
+.PP
+\*(EP,
+Edition 3.0, published by the Free Software Foundation, 2001.
.SH BUGS
The
.B \-F
option is not necessary given the command line variable assignment feature;
it remains only for backwards compatibility.
.PP
-If your system actually has support for
-.B /dev/fd
-and the associated
-.BR /dev/stdin ,
-.BR /dev/stdout ,
-and
-.B /dev/stderr
-files, you may get different output from
-.I gawk
-than you would get on a system without those files. When
-.I gawk
-interprets these files internally, it synchronizes output to the standard
-output with output to
-.BR /dev/stdout ,
-while on a system with those files, the output is actually to different
-open files.
-Caveat Emptor.
-.PP
Syntactically invalid single character programs tend to overflow
the parse stack, generating a rather unhelpful message. Such programs
are surprisingly difficult to diagnose in the completely general case,
and the effort to do so really is not worth it.
-.SH VERSION INFORMATION
-This man page documents
-.IR gawk ,
-version 3.0.6.
+.ig
+.PP
+.I Gawk
+suffers from ``feeping creaturism.''
+It's too bad
+.I perl
+is so inelegant.
+..
.SH AUTHORS
The original version of \*(UX
.I awk
was designed and implemented by Alfred Aho,
-Peter Weinberger, and Brian Kernighan of AT&T Bell Labs. Brian Kernighan
+Peter Weinberger, and Brian Kernighan of Bell Laboratories. Brian Kernighan
continues to maintain and enhance it.
.PP
Paul Rubin and Jay Fenlason,
@@ -2600,14 +3257,22 @@ The initial DOS port was done by Conrad Kwok and Scott Garfinkle.
Scott Deifik is the current DOS maintainer. Pat Rankin did the
port to VMS, and Michal Jaegermann did the port to the Atari ST.
The port to OS/2 was done by Kai Uwe Rommel, with contributions and
-help from Darrel Hankerson. Fred Fish supplied support for the Amiga.
+help from Darrel Hankerson. Fred Fish supplied support for the Amiga,
+Stephen Davies provided the Tandem port,
+and Martin Brown provided the BeOS port.
+.SH VERSION INFORMATION
+This man page documents
+.IR gawk ,
+version 3.1.0.
.SH BUG REPORTS
If you find a bug in
.IR gawk ,
please send electronic mail to
.BR bug-gawk@gnu.org .
Please include your operating system and its revision, the version of
-.IR gawk ,
+.I gawk
+(from
+.BR "gawk \-\^\-version" ),
what C compiler you used to compile it, and a test program
and data that are as small as possible for reproducing the problem.
.PP
@@ -2630,11 +3295,11 @@ developers occasionally read this newsgroup, posting bug reports there
is an unreliable way to report bugs. Instead, please use the electronic mail
addresses given above.
.SH ACKNOWLEDGEMENTS
-Brian Kernighan of Bell Labs
+Brian Kernighan of Bell Laboratories
provided valuable assistance during testing and debugging.
We thank him.
.SH COPYING PERMISSIONS
-Copyright \(co 1996\-2000 Free Software Foundation, Inc.
+Copyright \(co 1989, 1991\-2001 Free Software Foundation, Inc.
.PP
Permission is granted to make and distribute verbatim copies of
this manual page provided the copyright notice and this permission
diff --git a/doc/gawk.info b/doc/gawk.info
index 037522e9..075d4947 100644
--- a/doc/gawk.info
+++ b/doc/gawk.info
@@ -1,35 +1,40 @@
-This is gawk.info, produced by makeinfo version 4.0 from ./gawk.texi.
+This is gawk.info, produced by makeinfo version 4.0 from gawk.texi.
-INFO-DIR-SECTION Programming Languages
+INFO-DIR-SECTION GNU Packages
START-INFO-DIR-ENTRY
-* Gawk: (gawk). A Text Scanning and Processing Language.
+* Gawk: (gawk). A text scanning and processing language.
+END-INFO-DIR-ENTRY
+INFO-DIR-SECTION Individual utilities
+START-INFO-DIR-ENTRY
+* awk: (gawk)Invoking gawk. Text scanning and processing.
END-INFO-DIR-ENTRY
This file documents `awk', a program that you can use to select
particular records in a file and perform operations upon them.
- This is Edition 1.0.6 of `Effective AWK Programming', for the
-3.0.6 version of the GNU implementation of AWK.
+ This is Edition 3 of `GAWK: Effective AWK Programming: A User's
+Guide for GNU Awk', for the 3.1.0 version of the GNU implementation of
+AWK.
- Copyright (C) 1989, 1991, 1992, 1993, 1996-2000 Free Software
+ Copyright (C) 1989, 1991, 1992, 1993, 1996-2001 Free Software
Foundation, Inc.
- Permission is granted to make and distribute verbatim copies of this
-manual provided the copyright notice and this permission notice are
-preserved on all copies.
+ Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being "GNU General Public License", the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+"GNU Free Documentation License".
- Permission is granted to copy and distribute modified versions of
-this manual under the conditions for verbatim copying, provided that
-the entire resulting derived work is distributed under the terms of a
-permission notice identical to this one.
+ a. "A GNU Manual"
- Permission is granted to copy and distribute translations of this
-manual into another language, under the above conditions for modified
-versions, except that this permission notice may be stated in a
-translation approved by the Foundation.
+ b. "You have freedom to copy and modify this GNU Manual, like GNU
+ software. Copies published by the Free Software Foundation raise
+ funds for GNU development."

-File: gawk.info, Node: Top, Next: Preface, Prev: (dir), Up: (dir)
+File: gawk.info, Node: Top, Next: Foreword, Prev: (dir), Up: (dir)
General Introduction
********************
@@ -37,313 +42,386 @@ General Introduction
This file documents `awk', a program that you can use to select
particular records in a file and perform operations upon them.
- This is Edition 1.0.6 of `Effective AWK Programming',
-for the 3.0.6 version of the GNU implementation
-of AWK.
+ This is Edition 3 of `GAWK: Effective AWK Programming: A User's
+Guide for GNU Awk', for the 3.1.0 version of the GNU implementation of
+AWK.
* Menu:
-* Preface:: What this Info file is about; brief
- history and acknowledgements.
-* What Is Awk:: What is the `awk' language; using this
- Info file.
-* Getting Started:: A basic introduction to using `awk'. How
- to run an `awk' program. Command line
- syntax.
-* One-liners:: Short, sample `awk' programs.
-* Regexp:: All about matching things using regular
- expressions.
-* Reading Files:: How to read files and manipulate fields.
-* Printing:: How to print using `awk'. Describes the
- `print' and `printf' statements.
- Also describes redirection of output.
-* Expressions:: Expressions are the basic building blocks of
- statements.
-* Patterns and Actions:: Overviews of patterns and actions.
-* Statements:: The various control statements are described
- in detail.
-* Built-in Variables:: Built-in Variables
-* Arrays:: The description and use of arrays. Also
- includes array-oriented control statements.
-* Built-in:: The built-in functions are summarized here.
-* User-defined:: User-defined functions are described in
- detail.
-* Invoking Gawk:: How to run `gawk'.
-* Library Functions:: A Library of `awk' Functions.
-* Sample Programs:: Many `awk' programs with complete
- explanations.
-* Language History:: The evolution of the `awk' language.
-* Gawk Summary:: `gawk' Options and Language Summary.
-* Installation:: Installing `gawk' under various operating
- systems.
-* Notes:: Something about the implementation of
- `gawk'.
-* Glossary:: An explanation of some unfamiliar terms.
-* Copying:: Your right to copy and distribute `gawk'.
-* Index:: Concept and Variable Index.
-
-* History:: The history of `gawk' and `awk'.
-* Manual History:: Brief history of the GNU project and this
- Info file.
-* Acknowledgements:: Acknowledgements.
-* This Manual:: Using this Info file. Includes sample
- input files that you can use.
-* Conventions:: Typographical Conventions.
-* Sample Data Files:: Sample data files for use in the `awk'
- programs illustrated in this Info file.
-* Names:: What name to use to find `awk'.
-* Running gawk:: How to run `gawk' programs; includes
- command line syntax.
-* One-shot:: Running a short throw-away `awk' program.
-* Read Terminal:: Using no input files (input from terminal
- instead).
-* Long:: Putting permanent `awk' programs in
- files.
-* Executable Scripts:: Making self-contained `awk' programs.
-* Comments:: Adding documentation to `gawk' programs.
-* Very Simple:: A very simple example.
-* Two Rules:: A less simple one-line example with two rules.
-* More Complex:: A more complex example.
-* Statements/Lines:: Subdividing or combining statements into
- lines.
-* Other Features:: Other Features of `awk'.
-* When:: When to use `gawk' and when to use other
- things.
-* Regexp Usage:: How to Use Regular Expressions.
-* Escape Sequences:: How to write non-printing characters.
-* Regexp Operators:: Regular Expression Operators.
-* GNU Regexp Operators:: Operators specific to GNU software.
-* Case-sensitivity:: How to do case-insensitive matching.
-* Leftmost Longest:: How much text matches.
-* Computed Regexps:: Using Dynamic Regexps.
-* Records:: Controlling how data is split into records.
-* Fields:: An introduction to fields.
-* Non-Constant Fields:: Non-constant Field Numbers.
-* Changing Fields:: Changing the Contents of a Field.
-* Field Separators:: The field separator and how to change it.
-* Basic Field Splitting:: How fields are split with single characters or
- simple strings.
-* Regexp Field Splitting:: Using regexps as the field separator.
-* Single Character Fields:: Making each character a separate field.
-* Command Line Field Separator:: Setting `FS' from the command line.
-* Field Splitting Summary:: Some final points and a summary table.
-* Constant Size:: Reading constant width data.
-* Multiple Line:: Reading multi-line records.
-* Getline:: Reading files under explicit program control
- using the `getline' function.
-* Getline Intro:: Introduction to the `getline' function.
-* Plain Getline:: Using `getline' with no arguments.
-* Getline/Variable:: Using `getline' into a variable.
-* Getline/File:: Using `getline' from a file.
-* Getline/Variable/File:: Using `getline' into a variable from a
- file.
-* Getline/Pipe:: Using `getline' from a pipe.
-* Getline/Variable/Pipe:: Using `getline' into a variable from a
- pipe.
-* Getline Summary:: Summary Of `getline' Variants.
-* Print:: The `print' statement.
-* Print Examples:: Simple examples of `print' statements.
-* Output Separators:: The output separators and how to change them.
-* OFMT:: Controlling Numeric Output With `print'.
-* Printf:: The `printf' statement.
-* Basic Printf:: Syntax of the `printf' statement.
-* Control Letters:: Format-control letters.
-* Format Modifiers:: Format-specification modifiers.
-* Printf Examples:: Several examples.
-* Redirection:: How to redirect output to multiple files and
- pipes.
-* Special Files:: File name interpretation in `gawk'.
- `gawk' allows access to inherited file
- descriptors.
-* Close Files And Pipes:: Closing Input and Output Files and Pipes.
-* Constants:: String, numeric, and regexp constants.
-* Scalar Constants:: Numeric and string constants.
-* Regexp Constants:: Regular Expression constants.
-* Using Constant Regexps:: When and how to use a regexp constant.
-* Variables:: Variables give names to values for later use.
-* Using Variables:: Using variables in your programs.
-* Assignment Options:: Setting variables on the command line and a
- summary of command line syntax. This is an
- advanced method of input.
-* Conversion:: The conversion of strings to numbers and vice
- versa.
-* Arithmetic Ops:: Arithmetic operations (`+', `-',
- etc.)
-* Concatenation:: Concatenating strings.
-* Assignment Ops:: Changing the value of a variable or a field.
-* Increment Ops:: Incrementing the numeric value of a variable.
-* Truth Values:: What is ``true'' and what is ``false''.
-* Typing and Comparison:: How variables acquire types, and how this
- affects comparison of numbers and strings with
- `<', etc.
-* Boolean Ops:: Combining comparison expressions using boolean
- operators `||' (``or''), `&&'
- (``and'') and `!' (``not'').
-* Conditional Exp:: Conditional expressions select between two
- subexpressions under control of a third
- subexpression.
-* Function Calls:: A function call is an expression.
-* Precedence:: How various operators nest.
-* Pattern Overview:: What goes into a pattern.
-* Kinds of Patterns:: A list of all kinds of patterns.
-* Regexp Patterns:: Using regexps as patterns.
-* Expression Patterns:: Any expression can be used as a pattern.
-* Ranges:: Pairs of patterns specify record ranges.
-* BEGIN/END:: Specifying initialization and cleanup rules.
-* Using BEGIN/END:: How and why to use BEGIN/END rules.
-* I/O And BEGIN/END:: I/O issues in BEGIN/END rules.
-* Empty:: The empty pattern, which matches every record.
-* Action Overview:: What goes into an action.
-* If Statement:: Conditionally execute some `awk'
- statements.
-* While Statement:: Loop until some condition is satisfied.
-* Do Statement:: Do specified action while looping until some
- condition is satisfied.
-* For Statement:: Another looping statement, that provides
- initialization and increment clauses.
-* Break Statement:: Immediately exit the innermost enclosing loop.
-* Continue Statement:: Skip to the end of the innermost enclosing
- loop.
-* Next Statement:: Stop processing the current input record.
-* Nextfile Statement:: Stop processing the current file.
-* Exit Statement:: Stop execution of `awk'.
-* User-modified:: Built-in variables that you change to control
- `awk'.
-* Auto-set:: Built-in variables where `awk' gives you
- information.
-* ARGC and ARGV:: Ways to use `ARGC' and `ARGV'.
-* Array Intro:: Introduction to Arrays
-* Reference to Elements:: How to examine one element of an array.
-* Assigning Elements:: How to change an element of an array.
-* Array Example:: Basic Example of an Array
-* Scanning an Array:: A variation of the `for' statement. It
- loops through the indices of an array's
- existing elements.
-* Delete:: The `delete' statement removes an element
- from an array.
-* Numeric Array Subscripts:: How to use numbers as subscripts in
- `awk'.
-* Uninitialized Subscripts:: Using Uninitialized variables as subscripts.
-* Multi-dimensional:: Emulating multi-dimensional arrays in
- `awk'.
-* Multi-scanning:: Scanning multi-dimensional arrays.
-* Calling Built-in:: How to call built-in functions.
-* Numeric Functions:: Functions that work with numbers, including
- `int', `sin' and `rand'.
-* String Functions:: Functions for string manipulation, such as
- `split', `match', and
- `sprintf'.
-* I/O Functions:: Functions for files and shell commands.
-* Time Functions:: Functions for dealing with time stamps.
-* Definition Syntax:: How to write definitions and what they mean.
-* Function Example:: An example function definition and what it
- does.
-* Function Caveats:: Things to watch out for.
-* Return Statement:: Specifying the value a function returns.
-* Options:: Command line options and their meanings.
-* Other Arguments:: Input file names and variable assignments.
-* AWKPATH Variable:: Searching directories for `awk' programs.
-* Obsolete:: Obsolete Options and/or features.
-* Undocumented:: Undocumented Options and Features.
-* Known Bugs:: Known Bugs in `gawk'.
-* Portability Notes:: What to do if you don't have `gawk'.
-* Nextfile Function:: Two implementations of a `nextfile'
- function.
-* Assert Function:: A function for assertions in `awk'
- programs.
-* Round Function:: A function for rounding if `sprintf' does
- not do it correctly.
-* Ordinal Functions:: Functions for using characters as numbers and
- vice versa.
-* Join Function:: A function to join an array into a string.
-* Mktime Function:: A function to turn a date into a timestamp.
-* Gettimeofday Function:: A function to get formatted times.
-* Filetrans Function:: A function for handling data file transitions.
-* Getopt Function:: A function for processing command line
- arguments.
-* Passwd Functions:: Functions for getting user information.
-* Group Functions:: Functions for getting group information.
-* Library Names:: How to best name private global variables in
- library functions.
-* Clones:: Clones of common utilities.
-* Cut Program:: The `cut' utility.
-* Egrep Program:: The `egrep' utility.
-* Id Program:: The `id' utility.
-* Split Program:: The `split' utility.
-* Tee Program:: The `tee' utility.
-* Uniq Program:: The `uniq' utility.
-* Wc Program:: The `wc' utility.
-* Miscellaneous Programs:: Some interesting `awk' programs.
-* Dupword Program:: Finding duplicated words in a document.
-* Alarm Program:: An alarm clock.
-* Translate Program:: A program similar to the `tr' utility.
-* Labels Program:: Printing mailing labels.
-* Word Sorting:: A program to produce a word usage count.
-* History Sorting:: Eliminating duplicate entries from a history
- file.
-* Extract Program:: Pulling out programs from Texinfo source
- files.
-* Simple Sed:: A Simple Stream Editor.
-* Igawk Program:: A wrapper for `awk' that includes files.
-* V7/SVR3.1:: The major changes between V7 and System V
- Release 3.1.
-* SVR4:: Minor changes between System V Releases 3.1
- and 4.
-* POSIX:: New features from the POSIX standard.
-* BTL:: New features from the Bell Laboratories
- version of `awk'.
-* POSIX/GNU:: The extensions in `gawk' not in POSIX
- `awk'.
-* Command Line Summary:: Recapitulation of the command line.
-* Language Summary:: A terse review of the language.
-* Variables/Fields:: Variables, fields, and arrays.
-* Fields Summary:: Input field splitting.
-* Built-in Summary:: `awk''s built-in variables.
-* Arrays Summary:: Using arrays.
-* Data Type Summary:: Values in `awk' are numbers or strings.
-* Rules Summary:: Patterns and Actions, and their component
- parts.
-* Pattern Summary:: Quick overview of patterns.
-* Regexp Summary:: Quick overview of regular expressions.
-* Actions Summary:: Quick overview of actions.
-* Operator Summary:: `awk' operators.
-* Control Flow Summary:: The control statements.
-* I/O Summary:: The I/O statements.
-* Printf Summary:: A summary of `printf'.
-* Special File Summary:: Special file names interpreted internally.
-* Built-in Functions Summary:: Built-in numeric and string functions.
-* Time Functions Summary:: Built-in time functions.
-* String Constants Summary:: Escape sequences in strings.
-* Functions Summary:: Defining and calling functions.
-* Historical Features:: Some undocumented but supported ``features''.
-* Gawk Distribution:: What is in the `gawk' distribution.
-* Getting:: How to get the distribution.
-* Extracting:: How to extract the distribution.
-* Distribution contents:: What is in the distribution.
-* Unix Installation:: Installing `gawk' under various versions
- of Unix.
-* Quick Installation:: Compiling `gawk' under Unix.
-* Configuration Philosophy:: How it's all supposed to work.
-* VMS Installation:: Installing `gawk' on VMS.
-* VMS Compilation:: How to compile `gawk' under VMS.
-* VMS Installation Details:: How to install `gawk' under VMS.
-* VMS Running:: How to run `gawk' under VMS.
-* VMS POSIX:: Alternate instructions for VMS POSIX.
-* PC Installation:: Installing and Compiling `gawk' on MS-DOS
- and OS/2
-* Atari Installation:: Installing `gawk' on the Atari ST.
-* Atari Compiling:: Compiling `gawk' on Atari
-* Atari Using:: Running `gawk' on Atari
-* Amiga Installation:: Installing `gawk' on an Amiga.
-* Bugs:: Reporting Problems and Bugs.
-* Other Versions:: Other freely available `awk'
- implementations.
-* Compatibility Mode:: How to disable certain `gawk' extensions.
-* Additions:: Making Additions To `gawk'.
-* Adding Code:: Adding code to the main body of `gawk'.
-* New Ports:: Porting `gawk' to a new operating system.
-* Future Extensions:: New features that may be implemented one day.
-* Improvements:: Suggestions for improvements by volunteers.
+* Foreword:: Some nice words about this
+ Info file.
+* Preface:: What this Info file is about; brief
+ history and acknowledgments.
+* Getting Started:: A basic introduction to using
+ `awk'. How to run an `awk'
+ program. Command-line syntax.
+* Regexp:: All about matching things using regular
+ expressions.
+* Reading Files:: How to read files and manipulate fields.
+* Printing:: How to print using `awk'. Describes
+ the `print' and `printf'
+ statements. Also describes redirection of
+ output.
+* Expressions:: Expressions are the basic building blocks
+ of statements.
+* Patterns and Actions:: Overviews of patterns and actions.
+* Arrays:: The description and use of arrays. Also
+ includes array-oriented control statements.
+* Functions:: Built-in and user-defined functions.
+* Internationalization:: Getting `gawk' to speak your
+ language.
+* Advanced Features:: Stuff for advanced users, specific to
+ `gawk'.
+* Invoking Gawk:: How to run `gawk'.
+* Library Functions:: A Library of `awk' Functions.
+* Sample Programs:: Many `awk' programs with complete
+ explanations.
+* Language History:: The evolution of the `awk'
+ language.
+* Installation:: Installing `gawk' under various
+ operating systems.
+* Notes:: Notes about `gawk' extensions and
+ possible future work.
+* Basic Concepts:: A very quick intoduction to programming
+ concepts.
+* Glossary:: An explanation of some unfamiliar terms.
+* Copying:: Your right to copy and distribute
+ `gawk'.
+* GNU Free Documentation License:: The license for this Info file.
+* Index:: Concept and Variable Index.
+
+* History:: The history of `gawk' and
+ `awk'.
+* Names:: What name to use to find `awk'.
+* This Manual:: Using this Info file. Includes
+ sample input files that you can use.
+* Conventions:: Typographical Conventions.
+* Manual History:: Brief history of the GNU project and this
+ Info file.
+* How To Contribute:: Helping to save the world.
+* Acknowledgments:: Acknowledgments.
+* Running gawk:: How to run `gawk' programs;
+ includes command-line syntax.
+* One-shot:: Running a short throw-away `awk'
+ program.
+* Read Terminal:: Using no input files (input from terminal
+ instead).
+* Long:: Putting permanent `awk' programs in
+ files.
+* Executable Scripts:: Making self-contained `awk'
+ programs.
+* Comments:: Adding documentation to `gawk'
+ programs.
+* Quoting:: More discussion of shell quoting issues.
+* Sample Data Files:: Sample data files for use in the
+ `awk' programs illustrated in this
+ Info file.
+* Very Simple:: A very simple example.
+* Two Rules:: A less simple one-line example using two
+ rules.
+* More Complex:: A more complex example.
+* Statements/Lines:: Subdividing or combining statements into
+ lines.
+* Other Features:: Other Features of `awk'.
+* When:: When to use `gawk' and when to use
+ other things.
+* Regexp Usage:: How to Use Regular Expressions.
+* Escape Sequences:: How to write non-printing characters.
+* Regexp Operators:: Regular Expression Operators.
+* Character Lists:: What can go between `[...]'.
+* GNU Regexp Operators:: Operators specific to GNU software.
+* Case-sensitivity:: How to do case-insensitive matching.
+* Leftmost Longest:: How much text matches.
+* Computed Regexps:: Using Dynamic Regexps.
+* Records:: Controlling how data is split into records.
+* Fields:: An introduction to fields.
+* Non-Constant Fields:: Non-constant Field Numbers.
+* Changing Fields:: Changing the Contents of a Field.
+* Field Separators:: The field separator and how to change it.
+* Regexp Field Splitting:: Using regexps as the field separator.
+* Single Character Fields:: Making each character a separate field.
+* Command Line Field Separator:: Setting `FS' from the command-line.
+* Field Splitting Summary:: Some final points and a summary table.
+* Constant Size:: Reading constant width data.
+* Multiple Line:: Reading multi-line records.
+* Getline:: Reading files under explicit program
+ control using the `getline' function.
+* Plain Getline:: Using `getline' with no arguments.
+* Getline/Variable:: Using `getline' into a variable.
+* Getline/File:: Using `getline' from a file.
+* Getline/Variable/File:: Using `getline' into a variable from a
+ file.
+* Getline/Pipe:: Using `getline' from a pipe.
+* Getline/Variable/Pipe:: Using `getline' into a variable from a
+ pipe.
+* Getline/Coprocess:: Using `getline' from a coprocess.
+* Getline/Variable/Coprocess:: Using `getline' into a variable from a
+ coprocess.
+* Getline Notes:: Important things to know about
+ `getline'.
+* Getline Summary:: Summary of `getline' Variants.
+* Print:: The `print' statement.
+* Print Examples:: Simple examples of `print' statements.
+* Output Separators:: The output separators and how to change
+ them.
+* OFMT:: Controlling Numeric Output With
+ `print'.
+* Printf:: The `printf' statement.
+* Basic Printf:: Syntax of the `printf' statement.
+* Control Letters:: Format-control letters.
+* Format Modifiers:: Format-specification modifiers.
+* Printf Examples:: Several examples.
+* Redirection:: How to redirect output to multiple files
+ and pipes.
+* Special Files:: File name interpretation in `gawk'.
+ `gawk' allows access to inherited
+ file descriptors.
+* Special FD:: Special files for I/O.
+* Special Process:: Special files for process information.
+* Special Network:: Special files for network communications.
+* Special Caveats:: Things to watch out for.
+* Close Files And Pipes:: Closing Input and Output Files and Pipes.
+* Constants:: String, numeric and regexp constants.
+* Scalar Constants:: Numeric and string constants.
+* Non-decimal-numbers:: What are octal and hex numbers.
+* Regexp Constants:: Regular Expression constants.
+* Using Constant Regexps:: When and how to use a regexp constant.
+* Variables:: Variables give names to values for later
+ use.
+* Using Variables:: Using variables in your programs.
+* Assignment Options:: Setting variables on the command-line and a
+ summary of command-line syntax. This is an
+ advanced method of input.
+* Conversion:: The conversion of strings to numbers and
+ vice versa.
+* Arithmetic Ops:: Arithmetic operations (`+', `-',
+ etc.)
+* Concatenation:: Concatenating strings.
+* Assignment Ops:: Changing the value of a variable or a
+ field.
+* Increment Ops:: Incrementing the numeric value of a
+ variable.
+* Truth Values:: What is ``true'' and what is ``false''.
+* Typing and Comparison:: How variables acquire types and how this
+ affects comparison of numbers and strings
+ with `<', etc.
+* Boolean Ops:: Combining comparison expressions using
+ boolean operators `||' (``or''),
+ `&&' (``and'') and `!' (``not'').
+* Conditional Exp:: Conditional expressions select between two
+ subexpressions under control of a third
+ subexpression.
+* Function Calls:: A function call is an expression.
+* Precedence:: How various operators nest.
+* Pattern Overview:: What goes into a pattern.
+* Regexp Patterns:: Using regexps as patterns.
+* Expression Patterns:: Any expression can be used as a pattern.
+* Ranges:: Pairs of patterns specify record ranges.
+* BEGIN/END:: Specifying initialization and cleanup
+ rules.
+* Using BEGIN/END:: How and why to use BEGIN/END rules.
+* I/O And BEGIN/END:: I/O issues in BEGIN/END rules.
+* Empty:: The empty pattern, which matches every
+ record.
+* Using Shell Variables:: How to use shell variables with
+ `awk'.
+* Action Overview:: What goes into an action.
+* Statements:: Describes the various control statements in
+ detail.
+* If Statement:: Conditionally execute some `awk'
+ statements.
+* While Statement:: Loop until some condition is satisfied.
+* Do Statement:: Do specified action while looping until
+ some condition is satisfied.
+* For Statement:: Another looping statement, that provides
+ initialization and increment clauses.
+* Break Statement:: Immediately exit the innermost enclosing
+ loop.
+* Continue Statement:: Skip to the end of the innermost enclosing
+ loop.
+* Next Statement:: Stop processing the current input record.
+* Nextfile Statement:: Stop processing the current file.
+* Exit Statement:: Stop execution of `awk'.
+* Built-in Variables:: Summarizes the built-in variables.
+* User-modified:: Built-in variables that you change to
+ control `awk'.
+* Auto-set:: Built-in variables where `awk'
+ gives you information.
+* ARGC and ARGV:: Ways to use `ARGC' and `ARGV'.
+* Array Intro:: Introduction to Arrays
+* Reference to Elements:: How to examine one element of an array.
+* Assigning Elements:: How to change an element of an array.
+* Array Example:: Basic Example of an Array
+* Scanning an Array:: A variation of the `for' statement. It
+ loops through the indices of an array's
+ existing elements.
+* Delete:: The `delete' statement removes an
+ element from an array.
+* Numeric Array Subscripts:: How to use numbers as subscripts in
+ `awk'.
+* Uninitialized Subscripts:: Using Uninitialized variables as
+ subscripts.
+* Multi-dimensional:: Emulating multidimensional arrays in
+ `awk'.
+* Multi-scanning:: Scanning multidimensional arrays.
+* Array Sorting:: Sorting array values and indices.
+* Built-in:: Summarizes the built-in functions.
+* Calling Built-in:: How to call built-in functions.
+* Numeric Functions:: Functions that work with numbers, including
+ `int', `sin' and `rand'.
+* String Functions:: Functions for string manipulation, such as
+ `split', `match' and
+ `sprintf'.
+* Gory Details:: More than you want to know about `\'
+ and `&' with `sub', `gsub',
+ and `gensub'.
+* I/O Functions:: Functions for files and shell commands.
+* Time Functions:: Functions for dealing with timestamps.
+* Bitwise Functions:: Functions for bitwise operations.
+* I18N Functions:: Functions for string translation.
+* User-defined:: Describes User-defined functions in detail.
+* Definition Syntax:: How to write definitions and what they
+ mean.
+* Function Example:: An example function definition and what it
+ does.
+* Function Caveats:: Things to watch out for.
+* Return Statement:: Specifying the value a function returns.
+* Dynamic Typing:: How variable types can change at runtime.
+* I18N and L10N:: Internationalization and Localization.
+* Explaining gettext:: How GNU `gettext' works.
+* Programmer i18n:: Features for the programmer.
+* Translator i18n:: Features for the translator.
+* String Extraction:: Extracting marked strings.
+* Printf Ordering:: Rearranging `printf' arguments.
+* I18N Portability:: `awk'-level portability issues.
+* I18N Example:: A simple i18n example.
+* Gawk I18N:: `gawk' is also internationalized.
+* Non-decimal Data:: Allowing non-decimal input data.
+* Two-way I/O:: Two-way communications with another
+ process.
+* TCP/IP Networking:: Using `gawk' for network
+ programming.
+* Portal Files:: Using `gawk' with BSD portals.
+* Profiling:: Profiling your `awk' programs.
+* Command Line:: How to run `awk'.
+* Options:: Command-line options and their meanings.
+* Other Arguments:: Input file names and variable assignments.
+* AWKPATH Variable:: Searching directories for `awk'
+ programs.
+* Obsolete:: Obsolete Options and/or features.
+* Undocumented:: Undocumented Options and Features.
+* Known Bugs:: Known Bugs in `gawk'.
+* Library Names:: How to best name private global variables
+ in library functions.
+* General Functions:: Functions that are of general use.
+* Nextfile Function:: Two implementations of a `nextfile'
+ function.
+* Assert Function:: A function for assertions in `awk'
+ programs.
+* Round Function:: A function for rounding if `sprintf'
+ does not do it correctly.
+* Cliff Random Function:: The Cliff Random Number Generator.
+* Ordinal Functions:: Functions for using characters as numbers
+ and vice versa.
+* Join Function:: A function to join an array into a string.
+* Gettimeofday Function:: A function to get formatted times.
+* Data File Management:: Functions for managing command-line data
+ files.
+* Filetrans Function:: A function for handling data file
+ transitions.
+* Rewind Function:: A function for rereading the current file.
+* File Checking:: Checking that data files are readable.
+* Ignoring Assigns:: Treating assignments as file names.
+* Getopt Function:: A function for processing command-line
+ arguments.
+* Passwd Functions:: Functions for getting user information.
+* Group Functions:: Functions for getting group information.
+* Running Examples:: How to run these examples.
+* Clones:: Clones of common utilities.
+* Cut Program:: The `cut' utility.
+* Egrep Program:: The `egrep' utility.
+* Id Program:: The `id' utility.
+* Split Program:: The `split' utility.
+* Tee Program:: The `tee' utility.
+* Uniq Program:: The `uniq' utility.
+* Wc Program:: The `wc' utility.
+* Miscellaneous Programs:: Some interesting `awk' programs.
+* Dupword Program:: Finding duplicated words in a document.
+* Alarm Program:: An alarm clock.
+* Translate Program:: A program similar to the `tr'
+ utility.
+* Labels Program:: Printing mailing labels.
+* Word Sorting:: A program to produce a word usage count.
+* History Sorting:: Eliminating duplicate entries from a
+ history file.
+* Extract Program:: Pulling out programs from Texinfo source
+ files.
+* Simple Sed:: A Simple Stream Editor.
+* Igawk Program:: A wrapper for `awk' that includes
+ files.
+* V7/SVR3.1:: The major changes between V7 and System V
+ Release 3.1.
+* SVR4:: Minor changes between System V Releases 3.1
+ and 4.
+* POSIX:: New features from the POSIX standard.
+* BTL:: New features from the Bell Laboratories
+ version of `awk'.
+* POSIX/GNU:: The extensions in `gawk' not in
+ POSIX `awk'.
+* Contributors:: The major contributors to `gawk'.
+* Gawk Distribution:: What is in the `gawk' distribution.
+* Getting:: How to get the distribution.
+* Extracting:: How to extract the distribution.
+* Distribution contents:: What is in the distribution.
+* Unix Installation:: Installing `gawk' under various
+ versions of Unix.
+* Quick Installation:: Compiling `gawk' under Unix.
+* Additional Configuration Options:: Other compile-time options.
+* Configuration Philosophy:: How it's all supposed to work.
+* Non-Unix Installation:: Installation on Other Operating Systems.
+* Amiga Installation:: Installing `gawk' on an Amiga.
+* BeOS Installation:: Installing `gawk' on BeOS.
+* PC Installation:: Installing and Compiling `gawk' on
+ MS-DOS and OS/2.
+* PC Binary Installation:: Installing a prepared distribution.
+* PC Compiling:: Compiling `gawk' for MS-DOS, Win32,
+ and OS/2.
+* PC Using:: Running `gawk' on MS-DOS, Win32 and
+ OS/2.
+* VMS Installation:: Installing `gawk' on VMS.
+* VMS Compilation:: How to compile `gawk' under VMS.
+* VMS Installation Details:: How to install `gawk' under VMS.
+* VMS Running:: How to run `gawk' under VMS.
+* VMS POSIX:: Alternate instructions for VMS POSIX.
+* Unsupported:: Systems whose ports are no longer
+ supported.
+* Atari Installation:: Installing `gawk' on the Atari ST.
+* Atari Compiling:: Compiling `gawk' on Atari.
+* Atari Using:: Running `gawk' on Atari.
+* Tandem Installation:: Installing `gawk' on a Tandem.
+* Bugs:: Reporting Problems and Bugs.
+* Other Versions:: Other freely available `awk'
+ implementations.
+* Compatibility Mode:: How to disable certain `gawk'
+ extensions.
+* Additions:: Making Additions To `gawk'.
+* Adding Code:: Adding code to the main body of
+ `gawk'.
+* New Ports:: Porting `gawk' to a new operating
+ system.
+* Dynamic Extensions:: Adding new built-in functions to
+ `gawk'.
+* Internals:: A brief look at some `gawk'
+ internals.
+* Sample Library:: A example of new functions.
+* Internal File Description:: What the new functions will do.
+* Internal File Ops:: The code for internal file operations.
+* Using Internal File Ops:: How to use an external extension.
+* Future Extensions:: New features that may be implemented one
+ day.
+* Basic High Level:: The high level view.
+* Basic Data Typing:: A very quick intro to data types.
+* Floating Point Issues:: Stuff to know about floating-point numbers.
To Miriam, for making me complete.
@@ -360,331 +438,383 @@ of AWK.
To Malka, for the new beginning.

-File: gawk.info, Node: Preface, Next: What Is Awk, Prev: Top, Up: Top
+File: gawk.info, Node: Foreword, Next: Preface, Prev: Top, Up: Top
+
+Foreword
+********
+
+ Arnold Robbins and I are good friends. We were introduced 11 years
+ago by circumstances--and our favorite programming language, AWK. The
+circumstances started a couple of years earlier. I was working at a new
+job and noticed an unplugged Unix computer sitting in the corner. No
+one knew how to use it, and neither did I. However, a couple of days
+later it was running, and I was `root' and the one-and-only user. That
+day, I began the transition from statistician to Unix programmer.
+
+ On one of many trips to the library or bookstore in search of books
+on Unix, I found the gray AWK book, a.k.a. Aho, Kernighan and
+Weinberger, `The AWK Programming Language', Addison-Wesley, 1988.
+AWK's simple programming paradigm--find a pattern in the input and then
+perform an action--often reduced complex or tedious data manipulations
+to few lines of code. I was excited to try my hand at programming in
+AWK.
+
+ Alas, the `awk' on my computer was a limited version of the
+language described in the AWK book. I discovered that my computer had
+"old `awk'" and the AWK book described "new `awk'." I learned that
+this was typical; the old version refused to step aside or relinquish
+its name. If a system had a new `awk', it was invariably called
+`nawk', and few systems had it. The best way to get a new `awk' was to
+`ftp' the source code for `gawk' from `prep.ai.mit.edu'. `gawk' was a
+version of new `awk' written by David Trueman and Arnold, and available
+under the GNU General Public License.
+
+ (Incidentally, it's no longer difficult to find a new `awk'. `gawk'
+ships with Linux, and you can download binaries or source code for
+almost any system; my wife uses `gawk' on her VMS box.)
+
+ My Unix system started out unplugged from the wall; it certainly was
+not plugged into a network. So, oblivious to the existence of `gawk'
+and the Unix community in general, and desiring a new `awk', I wrote my
+own, called `mawk'. Before I was finished I knew about `gawk', but it
+was too late to stop, so I eventually posted to a `comp.sources'
+newsgroup.
+
+ A few days after my posting, I got a friendly email from Arnold
+introducing himself. He suggested we share design and algorithms and
+attached a draft of the POSIX standard so that I could update `mawk' to
+support language extensions added after publication of the AWK book.
+
+ Frankly, if our roles had been reversed, I would not have been so
+open and we probably would have never met. I'm glad we did meet. He
+is an AWK expert's AWK expert and a genuinely nice person. Arnold
+contributes significant amounts of his expertise and time to the Free
+Software Foundation.
+
+ This book is the `gawk' reference manual, but at its core it is a
+book about AWK programming that will appeal to a wide audience. It is
+a definitive reference to the AWK language as defined by the 1987 Bell
+Labs release and codified in the 1992 POSIX Utilities standard.
+
+ On the other hand, the novice AWK programmer can study a wealth of
+practical programs that emphasize the power of AWK's basic idioms: data
+driven control-flow, pattern matching with regular expressions, and
+associative arrays. Those looking for something new can try out
+`gawk''s interface to network protocols via special `/inet' files.
+
+ The programs in this book make clear that an AWK program is
+typically much smaller and faster to develop than a counterpart written
+in C. Consequently, there is often a payoff to prototype an algorithm
+or design in AWK to get it running quickly and expose problems early.
+Often, the interpreted performance is adequate and the AWK prototype
+becomes the product.
+
+ The new `pgawk' (profiling `gawk'), produces program execution
+counts. I recently experimented with an algorithm that for n lines of
+input, exhibited ~ C n^2 performance, while theory predicted ~ C n log n
+behavior. A few minutes poring over the `awkprof.out' profile
+pinpointed the problem to a single line of code. `pgawk' is a welcome
+addition to my programmer's toolbox.
+
+ Arnold has distilled over a decade of experience writing and using
+AWK programs, and developing `gawk', into this book. If you use AWK or
+want to learn how, then read this book.
+
+ Michael Brennan
+ Author of `mawk'
+
+
+File: gawk.info, Node: Preface, Next: Getting Started, Prev: Foreword, Up: Top
Preface
*******
+ Several kinds of tasks occur repeatedly when working with text files.
+You might want to extract certain lines and discard the rest. Or you
+may need to make changes wherever certain patterns appear, but leave
+the rest of the file alone. Writing single-use programs for these
+tasks in languages such as C, C++ or Pascal is time-consuming and
+inconvenient. Such jobs are often easier with `awk'. The `awk'
+utility interprets a special-purpose programming language that makes it
+easy to handle simple data-reformatting jobs.
+
+ The GNU implementation of `awk' is called `gawk'; it is fully
+compatible with the System V Release 4 version of `awk'. `gawk' is
+also compatible with the POSIX specification of the `awk' language.
+This means that all properly written `awk' programs should work with
+`gawk'. Thus, we usually don't distinguish between `gawk' and other
+`awk' implementations.
+
+ Using `awk' allows you to:
+
+ * Manage small, personal databases
+
+ * Generate reports
+
+ * Validate data
+
+ * Produce indexes and perform other document preparation tasks
+
+ * Experiment with algorithms that you can adapt later to other
+ computer languages.
+
+ In addition, `gawk' provides facilities that make it easy to:
+
+ * Extract bits and pieces of data for processing
+
+ * Sort data
+
+ * Perform simple network communications.
+
This Info file teaches you about the `awk' language and how you can
use it effectively. You should already be familiar with basic system
-commands, such as `cat' and `ls',(1) and basic shell facilities, such
-as Input/Output (I/O) redirection and pipes.
+commands, such as `cat' and `ls',(1) as well as basic shell facilities,
+such as Input/Output (I/O) redirection and pipes.
Implementations of the `awk' language are available for many
different computing environments. This Info file, while describing the
-`awk' language in general, also describes a particular implementation
-of `awk' called `gawk' (which stands for "GNU Awk"). `gawk' runs on a
+`awk' language in general, also describes the particular implementation
+of `awk' called `gawk' (which stands for "GNU awk"). `gawk' runs on a
broad range of Unix systems, ranging from 80386 PC-based computers, up
-through large scale systems, such as Crays. `gawk' has also been ported
-to MS-DOS and OS/2 PC's, Atari and Amiga micro-computers, and VMS.
+through large-scale systems, such as Crays. `gawk' has also been ported
+to Mac OS X, MS-DOS, Microsoft Windows (all versions) and OS/2 PC's,
+Atari and Amiga micro-computers, BeOS, Tandem D20, and VMS.
* Menu:
-* History:: The history of `gawk' and `awk'.
+* History:: The history of `gawk' and
+ `awk'.
+* Names:: What name to use to find `awk'.
+* This Manual:: Using this Info file. Includes sample
+ input files that you can use.
+* Conventions:: Typographical Conventions.
* Manual History:: Brief history of the GNU project and this
Info file.
-* Acknowledgements:: Acknowledgements.
+* How To Contribute:: Helping to save the world.
+* Acknowledgments:: Acknowledgments.
---------- Footnotes ----------
- (1) These commands are available on POSIX compliant systems, as well
+ (1) These commands are available on POSIX-compliant systems, as well
as on traditional Unix based systems. If you are using some other
operating system, you still need to be familiar with the ideas of I/O
redirection and pipes.

-File: gawk.info, Node: History, Next: Manual History, Prev: Preface, Up: Preface
+File: gawk.info, Node: History, Next: Names, Prev: Preface, Up: Preface
History of `awk' and `gawk'
===========================
- The name `awk' comes from the initials of its designers: Alfred V.
-Aho, Peter J. Weinberger, and Brian W. Kernighan. The original version
-of `awk' was written in 1977 at AT&T Bell Laboratories. In 1985 a new
-version made the programming language more powerful, introducing
-user-defined functions, multiple input streams, and computed regular
-expressions. This new version became generally available with Unix
-System V Release 3.1. The version in System V Release 4 added some new
-features and also cleaned up the behavior in some of the "dark corners"
-of the language. The specification for `awk' in the POSIX Command
-Language and Utilities standard further clarified the language based on
-feedback from both the `gawk' designers, and the original Bell Labs
-`awk' designers.
-
- The GNU implementation, `gawk', was written in 1986 by Paul Rubin
-and Jay Fenlason, with advice from Richard Stallman. John Woods
-contributed parts of the code as well. In 1988 and 1989, David
-Trueman, with help from Arnold Robbins, thoroughly reworked `gawk' for
-compatibility with the newer `awk'. Current development focuses on bug
-fixes, performance improvements, standards compliance, and
-occasionally, new features.
+ Recipe For A Programming Language
-
-File: gawk.info, Node: Manual History, Next: Acknowledgements, Prev: History, Up: Preface
+ 1 part `egrep' 1 part `snobol'
+ 2 parts `ed' 3 parts C
-The GNU Project and This Book
-=============================
+ Blend all parts well using `lex' and `yacc'. Document minimally
+ and release.
- The Free Software Foundation (FSF) is a non-profit organization
-dedicated to the production and distribution of freely distributable
-software. It was founded by Richard M. Stallman, the author of the
-original Emacs editor. GNU Emacs is the most widely used version of
-Emacs today.
+ After eight years, add another part `egrep' and two more parts C.
+ Document very well and release.
- The GNU project is an on-going effort on the part of the Free
-Software Foundation to create a complete, freely distributable, POSIX
-compliant computing environment. (GNU stands for "GNU's not Unix".)
-The FSF uses the "GNU General Public License" (or GPL) to ensure that
-source code for their software is always available to the end user. A
-copy of the GPL is included for your reference (*note GNU GENERAL
-PUBLIC LICENSE: Copying.). The GPL applies to the C language source
-code for `gawk'.
-
- A shell, an editor (Emacs), highly portable optimizing C, C++, and
-Objective-C compilers, a symbolic debugger, and dozens of large and
-small utilities (such as `gawk'), have all been completed and are
-freely available. As of this writing (early 1997), the GNU operating
-system kernel (the HURD), has been released, but is still in an early
-stage of development.
-
- Until the GNU operating system is more fully developed, you should
-consider using Linux, a freely distributable, Unix-like operating
-system for 80386, DEC Alpha, Sun SPARC and other systems. There are
-many books on Linux. One freely available one is `Linux Installation
-and Getting Started', by Matt Welsh. Many Linux distributions are
-available, often in computer stores or bundled on CD-ROM with books
-about Linux. (There are three other freely available, Unix-like
-operating systems for 80386 and other systems, NetBSD, FreeBSD,and
-OpenBSD. All are based on the 4.4-Lite Berkeley Software Distribution,
-and they use recent versions of `gawk' for their versions of `awk'.)
-
- This Info file itself has gone through several previous, preliminary
-editions. I started working on a preliminary draft of `The GAWK
-Manual', by Diane Close, Paul Rubin, and Richard Stallman in the fall
-of 1988. It was around 90 pages long, and barely described the
-original, "old" version of `awk'. After substantial revision, the first
-version of the `The GAWK Manual' to be released was Edition 0.11 Beta in
-October of 1989. The manual then underwent more substantial revision
-for Edition 0.13 of December 1991. David Trueman, Pat Rankin, and
-Michal Jaegermann contributed sections of the manual for Edition 0.13.
-That edition was published by the FSF as a bound book early in 1992.
-Since then there have been several minor revisions, notably Edition
-0.14 of November 1992 that was published by the FSF in January of 1993,
-and Edition 0.16 of August 1993.
-
- Edition 1.0 of `Effective AWK Programming' represents a significant
-re-working of `The GAWK Manual', with much additional material. The
-FSF and I agree that I am now the primary author. I also felt that it
-needed a more descriptive title.
-
- `Effective AWK Programming' will undoubtedly continue to evolve. An
-electronic version comes with the `gawk' distribution from the FSF. If
-you find an error in this Info file, please report it! *Note Reporting
-Problems and Bugs: Bugs, for information on submitting problem reports
-electronically, or write to me in care of the FSF.
-
-
-File: gawk.info, Node: Acknowledgements, Prev: Manual History, Up: Preface
-
-Acknowledgements
-================
-
- I would like to acknowledge Richard M. Stallman, for his vision of a
-better world, and for his courage in founding the FSF and starting the
-GNU project.
+ The name `awk' comes from the initials of its designers: Alfred V.
+Aho, Peter J. Weinberger and Brian W. Kernighan. The original version
+of `awk' was written in 1977 at AT&T Bell Laboratories. In 1985, a new
+version made the programming language more powerful, introducing
+user-defined functions, multiple input streams, and computed regular
+expressions. This new version became widely available with Unix System
+V Release 3.1 (SVR3.1). The version in SVR4 added some new features
+and cleaned up the behavior in some of the "dark corners" of the
+language. The specification for `awk' in the POSIX Command Language
+and Utilities standard further clarified the language. Both the `gawk'
+designers and the original Bell Laboratories `awk' designers provided
+feedback for the POSIX specification.
+
+ Paul Rubin wrote the GNU implementation, `gawk', in 1986. Jay
+Fenlason completed it, with advice from Richard Stallman. John Woods
+contributed parts of the code as well. In 1988 and 1989, David
+Trueman, with help from me, thoroughly reworked `gawk' for compatibility
+with the newer `awk'. Circa 1995, I became the primary maintainer.
+Current development focuses on bug fixes, performance improvements,
+standards compliance, and occasionally, new features.
- The initial draft of `The GAWK Manual' had the following
-acknowledgements:
+ In May of 1997, Ju"rgen Kahrs felt the need for network access from
+`awk', and with a little help from me, set about adding features to do
+this for `gawk'. At that time, he also wrote the bulk of `TCP/IP
+Internetworking with `gawk'' (a separate document, available as part of
+the `gawk' distribution). His code finally became part of the main
+`gawk' distribution with `gawk' version 3.1.
- Many people need to be thanked for their assistance in producing
- this manual. Jay Fenlason contributed many ideas and sample
- programs. Richard Mlynarik and Robert Chassell gave helpful
- comments on drafts of this manual. The paper `A Supplemental
- Document for `awk'' by John W. Pierce of the Chemistry Department
- at UC San Diego, pinpointed several issues relevant both to `awk'
- implementation and to this manual, that would otherwise have
- escaped us.
+ *Note Major Contributors to `gawk': Contributors, for a complete
+list of those who made important contributions to `gawk'.
- The following people provided many helpful comments on Edition 0.13
-of `The GAWK Manual': Rick Adams, Michael Brennan, Rich Burridge, Diane
-Close, Christopher ("Topher") Eliot, Michael Lijewski, Pat Rankin,
-Miriam Robbins, and Michal Jaegermann.
+
+File: gawk.info, Node: Names, Next: This Manual, Prev: History, Up: Preface
- The following people provided many helpful comments for Edition 1.0
-of `Effective AWK Programming': Karl Berry, Michael Brennan, Darrel
-Hankerson, Michal Jaegermann, Michael Lijewski, and Miriam Robbins.
-Pat Rankin, Michal Jaegermann, Darrel Hankerson and Scott Deifik
-updated their respective sections for Edition 1.0.
+A Rose by Any Other Name
+========================
- Robert J. Chassell provided much valuable advice on the use of
-Texinfo. He also deserves special thanks for convincing me _not_ to
-title this Info file `How To Gawk Politely'. Karl Berry helped
-significantly with the TeX part of Texinfo.
+ The `awk' language has evolved over the years. Full details are
+provided in *Note The Evolution of the `awk' Language: Language History.
+The language described in this Info file is often referred to as "new
+`awk'" (`nawk').
- David Trueman deserves special credit; he has done a yeoman job of
-evolving `gawk' so that it performs well, and without bugs. Although
-he is no longer involved with `gawk', working with him on this project
-was a significant pleasure.
-
- Scott Deifik, Darrel Hankerson, Kai Uwe Rommel, Pat Rankin, and
-Michal Jaegermann (in no particular order) are long time members of the
-`gawk' "crack portability team." Without their hard work and help,
-`gawk' would not be nearly the fine program it is today. It has been
-and continues to be a pleasure working with this team of fine people.
-
- Jeffrey Friedl provided invaluable help in tracking down a number of
-last minute problems with regular expressions in `gawk' 3.0.
-
- David and I would like to thank Brian Kernighan of Bell Labs for
-invaluable assistance during the testing and debugging of `gawk', and
-for help in clarifying numerous points about the language. We could
-not have done nearly as good a job on either `gawk' or its
-documentation without his help.
+ Because of this, many systems have multiple versions of `awk'. Some
+systems have an `awk' utility that implements the original version of
+the `awk' language and a `nawk' utility for the new version. Others
+have an `oawk' for the "old `awk'" language and plain `awk' for the new
+one. Still others only have one version, which is usually the new
+one.(1)
- I would like to thank Marshall and Elaine Hartholz of Seattle, and
-Dr. Bert and Rita Schreiber of Detroit for large amounts of quiet
-vacation time in their homes, which allowed me to make significant
-progress on this Info file and on `gawk' itself. Phil Hughes of SSC
-contributed in a very important way by loaning me his laptop Linux
-system, not once, but twice, allowing me to do a lot of work while away
-from home.
-
- Finally, I must thank my wonderful wife, Miriam, for her patience
-through the many versions of this project, for her proof-reading, and
-for sharing me with the computer. I would like to thank my parents for
-their love, and for the grace with which they raised and educated me.
-I also must acknowledge my gratitude to G-d, for the many opportunities
-He has sent my way, as well as for the gifts He has given me with which
-to take advantage of those opportunities.
+ All in all, this makes it difficult for you to know which version of
+`awk' you should run when writing your programs. The best advice I can
+give here is to check your local documentation. Look for `awk', `oawk',
+and `nawk', as well as for `gawk'. It is likely that you already have
+some version of new `awk' on your system, which is what you should use
+when running your programs. (Of course, if you're reading this Info
+file, chances are good that you have `gawk'!)
+ Throughout this Info file, whenever we refer to a language feature
+that should be available in any complete implementation of POSIX `awk',
+we simply use the term `awk'. When referring to a feature that is
+specific to the GNU implementation, we use the term `gawk'.
+ ---------- Footnotes ----------
-Arnold Robbins
-Atlanta, Georgia
-February, 1997
+ (1) Often, these systems use `gawk' for their `awk' implementation!

-File: gawk.info, Node: What Is Awk, Next: Getting Started, Prev: Preface, Up: Top
-
-Introduction
-************
-
- If you are like many computer users, you would frequently like to
-make changes in various text files wherever certain patterns appear, or
-extract data from parts of certain lines while discarding the rest. To
-write a program to do this in a language such as C or Pascal is a
-time-consuming inconvenience that may take many lines of code. The job
-may be easier with `awk'.
+File: gawk.info, Node: This Manual, Next: Conventions, Prev: Names, Up: Preface
- The `awk' utility interprets a special-purpose programming language
-that makes it possible to handle simple data-reformatting jobs with
-just a few lines of code.
+Using This Book
+===============
- The GNU implementation of `awk' is called `gawk'; it is fully upward
-compatible with the System V Release 4 version of `awk'. `gawk' is
-also upward compatible with the POSIX specification of the `awk'
-language. This means that all properly written `awk' programs should
-work with `gawk'. Thus, we usually don't distinguish between `gawk'
-and other `awk' implementations.
+ Documentation is like sex: when it is good, it is very, very good;
+ and when it is bad, it is better than nothing.
+ Dick Brandon
+
+ The term `awk' refers to a particular program as well as to the
+language you use to tell this program what to do. When we need to be
+careful, we call the program "the `awk' utility" and the language "the
+`awk' language." This Info file explains both the `awk' language and
+how to run the `awk' utility. The term "`awk' program" refers to a
+program written by you in the `awk' programming language.
+
+ Primarily, this Info file explains the features of `awk', as defined
+in the POSIX standard. It does so in the context of the `gawk'
+implementation. While doing so, it also attempts to describe important
+differences between `gawk' and other `awk' implementations.(1) Finally,
+any `gawk' features that are not in the POSIX standard for `awk' are
+noted.
+
+ There are subsections labelled as *Advanced Notes* scattered
+throughout the Info file. They add a more complete explanation of
+points that are relevant, but not likely to be of interest on first
+reading. All appear in the index, under the heading "advanced notes."
+
+ Most of the time, the examples use complete `awk' programs. In some
+of the more advanced sections, only the part of the `awk' program that
+illustrates the concept currently being described is shown.
- Using `awk' you can:
+ While this Info file is aimed principally at people who have not been
+exposed to `awk', there is a lot of information here that even the `awk'
+expert should find useful. In particular, the description of POSIX
+`awk' and the example programs in *Note A Library of `awk' Functions:
+Library Functions, and in *Note Practical `awk' Programs: Sample
+Programs, should be of interest.
- * manage small, personal databases
+ *Note Getting Started with `awk': Getting Started, provides the
+essentials you need to know to begin using `awk'.
- * generate reports
+ *Note Regular Expressions: Regexp, introduces regular expressions in
+general, and in particular the flavors supported by POSIX `awk' and
+`gawk'.
- * validate data
+ *Note Reading Input Files: Reading Files, describes how `awk' reads
+your data. It introduces the concepts of records and fields, as well
+as the `getline' command. I/O redirection is first described here.
- * produce indexes, and perform other document preparation tasks
+ *Note Printing Output: Printing, describes how `awk' programs can
+produce output with `print' and `printf'.
- * even experiment with algorithms that can be adapted later to other
- computer languages
+ *Note Expressions::, describes expressions, which are the basic
+building blocks for getting most things done in a program.
-* Menu:
+ *Note Patterns Actions and Variables: Patterns and Actions,
+describes how to write patterns for matching records, actions for doing
+something when a record is matched, and the built-in variables `awk'
+and `gawk' use.
-* This Manual:: Using this Info file. Includes sample
- input files that you can use.
-* Conventions:: Typographical Conventions.
-* Sample Data Files:: Sample data files for use in the `awk'
- programs illustrated in this Info file.
+ *Note Arrays in `awk': Arrays, covers `awk''s one-and-only data
+structure: associative arrays. Deleting array elements and whole
+arrays is also described, as well as sorting arrays in `gawk'.
-
-File: gawk.info, Node: This Manual, Next: Conventions, Prev: What Is Awk, Up: What Is Awk
+ *Note Functions::, describes the built-in functions `awk' and `gawk'
+provide for you, as well as how to define your own functions.
-Using This Book
-===============
+ *Note Internationalization with `gawk': Internationalization,
+describes special features in `gawk' for translating program messages
+into different languages at runtime.
- The term `awk' refers to a particular program, and to the language
-you use to tell this program what to do. When we need to be careful,
-we call the program "the `awk' utility" and the language "the `awk'
-language." The term `gawk' refers to a version of `awk' developed as
-part the GNU project. The purpose of this Info file is to explain both
-the `awk' language and how to run the `awk' utility.
+ *Note Advanced Features of `gawk': Advanced Features, describes a
+number of `gawk'-specific advanced features. Of particular note are
+the abilities to have two-way communications with another process,
+perform TCP/IP networking, and profile your `awk' programs.
- The main purpose of the Info file is to explain the features of
-`awk', as defined in the POSIX standard. It does so in the context of
-one particular implementation, `gawk'. While doing so, it will also
-attempt to describe important differences between `gawk' and other
-`awk' implementations. Finally, any `gawk' features that are not in
-the POSIX standard for `awk' will be noted.
+ *Note Running `awk' and `gawk': Invoking Gawk, describes how to run
+`gawk', the meaning of its command-line options, and how it finds `awk'
+program source files.
- The term "`awk' program" refers to a program written by you in the
-`awk' programming language.
+ *Note A Library of `awk' Functions: Library Functions, and *Note
+Practical `awk' Programs: Sample Programs, provide many sample `awk'
+programs. Reading them allows you to see `awk' being used for solving
+real problems.
- *Note Getting Started with `awk': Getting Started, for the bare
-essentials you need to know to start using `awk'.
+ *Note The Evolution of the `awk' Language: Language History,
+describes how the `awk' language has evolved since it was first
+released to present. It also describes how `gawk' has acquired
+features over time.
- Some useful "one-liners" are included to give you a feel for the
-`awk' language (*note Useful One Line Programs: One-liners.).
+ *Note Installing `gawk': Installation, describes how to get `gawk',
+how to compile it under Unix, and how to compile and use it on different
+non-Unix systems. It also describes how to report bugs in `gawk' and
+where to get three other freely available implementations of `awk'.
- Many sample `awk' programs have been provided for you (*note A
-Library of `awk' Functions: Library Functions.; also *note Practical
-`awk' Programs: Sample Programs.).
+ *Note Implementation Notes: Notes, describes how to disable `gawk''s
+extensions, as well as how to contribute new code to `gawk', how to
+write extension libraries, and some possible future directions for
+`gawk' development.
- The entire `awk' language is summarized for quick reference in *Note
-`gawk' Summary: Gawk Summary. Look there if you just need to refresh
-your memory about a particular feature.
+ *Note Basic Programming Concepts: Basic Concepts, provides some very
+cursory background material for those who are completely unfamiliar
+with computer programming. Also centralized there is a discussion of
+some of the issues involved in using floating-point numbers.
- If you find terms that you aren't familiar with, try looking them up
-in the glossary (*note Glossary::).
+ The *Note Glossary::, defines most, if not all, the significant
+terms used throughout the book. If you find terms that you aren't
+familiar with, try looking them up.
- Most of the time complete `awk' programs are used as examples, but in
-some of the more advanced sections, only the part of the `awk' program
-that illustrates the concept being described is shown.
-
- While this Info file is aimed principally at people who have not been
-exposed to `awk', there is a lot of information here that even the `awk'
-expert should find useful. In particular, the description of POSIX
-`awk', and the example programs in *Note A Library of `awk' Functions:
-Library Functions, and *Note Practical `awk' Programs: Sample Programs,
-should be of interest.
-
-Dark Corners
-------------
-
- Who opened that window shade?!?
- Count Dracula
+ *Note GNU General Public License: Copying, and *Note GNU Free
+Documentation License::, present the licenses that cover the `gawk'
+source code, and this Info file, respectively.
+ ---------- Footnotes ----------
-
- Until the POSIX standard (and `The Gawk Manual'), many features of
-`awk' were either poorly documented, or not documented at all.
-Descriptions of such features (often called "dark corners") are noted
-in this Info file with "(d.c.)". They also appear in the index under
-the heading "dark corner."
+ (1) All such differences appear in the index under the heading
+"differences between `gawk' and `awk'."

-File: gawk.info, Node: Conventions, Next: Sample Data Files, Prev: This Manual, Up: What Is Awk
+File: gawk.info, Node: Conventions, Next: Manual History, Prev: This Manual, Up: Preface
Typographical Conventions
=========================
This Info file is written using Texinfo, the GNU documentation
formatting language. A single Texinfo source file is used to produce
-both the printed and on-line versions of the documentation. This
-section briefly documents the typographical conventions used in Texinfo.
+both the printed and online versions of the documentation. This minor
+node briefly documents the typographical conventions used in Texinfo.
- Examples you would type at the command line are preceded by the
+ Examples you would type at the command-line are preceded by the
common shell primary and secondary prompts, `$' and `>'. Output from
the command is preceded by the glyph "-|". This typically represents
the command's standard output. Error messages, and other output on the
@@ -699,84 +829,204 @@ example:
Characters that you type at the keyboard look `like this'. In
particular, there are special characters called "control characters."
These are characters that you type by holding down both the `CONTROL'
-key and another key, at the same time. For example, a `Control-d' is
-typed by first pressing and holding the `CONTROL' key, next pressing
-the `d' key, and finally releasing both keys.
+key and another key, at the same time. For example, a `Ctrl-d' is typed
+by first pressing and holding the `CONTROL' key, next pressing the `d'
+key and finally releasing both keys.
+
+Dark Corners
+............
+
+ Dark corners are basically fractal -- no matter how much you
+ illuminate, there's always a smaller but darker one.
+ Brian Kernighan
+
+ Until the POSIX standard (and `The Gawk Manual'), many features of
+`awk' were either poorly documented or not documented at all.
+Descriptions of such features (often called "dark corners") are noted
+in this Info file with "(d.c.)". They also appear in the index under
+the heading "dark corner."
+
+ As noted by the opening quote, though, any coverage of dark corners
+is, by definition, something that is incomplete.

-File: gawk.info, Node: Sample Data Files, Prev: Conventions, Up: What Is Awk
+File: gawk.info, Node: Manual History, Next: How To Contribute, Prev: Conventions, Up: Preface
-Data Files for the Examples
-===========================
+The GNU Project and This Book
+=============================
- Many of the examples in this Info file take their input from two
-sample data files. The first, called `BBS-list', represents a list of
-computer bulletin board systems together with information about those
-systems. The second data file, called `inventory-shipped', contains
-information about shipments on a monthly basis. In both files, each
-line is considered to be one "record".
+ Software is like sex: it's better when it's free.
+ Linus Torvalds
- In the file `BBS-list', each record contains the name of a computer
-bulletin board, its phone number, the board's baud rate(s), and a code
-for the number of hours it is operational. An `A' in the last column
-means the board operates 24 hours a day. A `B' in the last column
-means the board operates evening and weekend hours, only. A `C' means
-the board operates only on weekends.
+ The Free Software Foundation (FSF) is a non-profit organization
+dedicated to the production and distribution of freely distributable
+software. It was founded by Richard M. Stallman, the author of the
+original Emacs editor. GNU Emacs is the most widely used version of
+Emacs today.
- aardvark 555-5553 1200/300 B
- alpo-net 555-3412 2400/1200/300 A
- barfly 555-7685 1200/300 A
- bites 555-1675 2400/1200/300 A
- camelot 555-0542 300 C
- core 555-2912 1200/300 C
- fooey 555-1234 2400/1200/300 B
- foot 555-6699 1200/300 B
- macfoo 555-6480 1200/300 A
- sdace 555-3430 2400/1200/300 A
- sabafoo 555-2127 1200/300 C
+ The GNU(1) Project is an ongoing effort on the part of the Free
+Software Foundation to create a complete, freely distributable,
+POSIX-compliant computing environment. The FSF uses the "GNU General
+Public License" (GPL) to ensure that their software's source code is
+always available to the end user. A copy of the GPL is included for
+your reference (*note GNU General Public License: Copying.). The GPL
+applies to the C language source code for `gawk'. To find out more
+about the FSF and the GNU Project online, see the GNU Project's home
+page (http://www.gnu.org). This Info file may also be read from their
+web site (http://www.gnu.org/manual/gawk/).
- The second data file, called `inventory-shipped', represents
-information about shipments during the year. Each record contains the
-month of the year, the number of green crates shipped, the number of
-red boxes shipped, the number of orange bags shipped, and the number of
-blue packages shipped, respectively. There are 16 entries, covering
-the 12 months of one year and four months of the next year.
+ A shell, an editor (Emacs), highly portable optimizing C, C++, and
+Objective-C compilers, a symbolic debugger and dozens of large and
+small utilities (such as `gawk'), have all been completed and are
+freely available. The GNU operating system kernel (the HURD), has been
+released but is still in an early stage of development.
- Jan 13 25 15 115
- Feb 15 32 24 226
- Mar 15 24 34 228
- Apr 31 52 63 420
- May 16 34 29 208
- Jun 31 42 75 492
- Jul 24 34 67 436
- Aug 15 34 47 316
- Sep 13 55 37 277
- Oct 29 54 68 525
- Nov 20 87 82 577
- Dec 17 35 61 401
-
- Jan 21 36 64 620
- Feb 26 58 80 652
- Mar 24 75 70 495
- Apr 21 70 74 514
+ Until the GNU operating system is more fully developed, you should
+consider using GNU/Linux, a freely distributable, Unix-like operating
+system for Intel 80386, DEC Alpha, Sun SPARC, IBM S/390, and other
+systems.(2) There are many books on GNU/Linux. One that is freely
+available is `Linux Installation and Getting Started', by Matt Welsh.
+Many GNU/Linux distributions are often available in computer stores or
+bundled on CD-ROMs with books about Linux. (There are three other
+freely available, Unix-like operating systems for 80386 and other
+systems: NetBSD, FreeBSD, and OpenBSD. All are based on the 4.4-Lite
+Berkeley Software Distribution, and they use recent versions of `gawk'
+for their versions of `awk'.)
+
+ The Info file itself has gone through a number of previous editions.
+Paul Rubin wrote the very first draft of `The GAWK Manual'; it was
+around 40 pages in size. Diane Close and Richard Stallman improved it,
+yielding a version that was around 90 pages long and barely described
+the original, "old" version of `awk'.
+
+ I started working with that version in the fall of 1988. As work on
+it progressed, the FSF published several preliminary versions (numbered
+0.X). In 1996, Edition 1.0 was released with `gawk' 3.0.0. The FSF
+published the first two editions under the title `The GNU Awk User's
+Guide'.
+
+ This edition maintains the basic structure of Edition 1.0, but with
+significant additional material, reflecting the host of new features in
+`gawk' version 3.1. Of particular note is *Note Sorting Array Values
+and Indices with `gawk': Array Sorting, as well as *Note Using `gawk''s
+Bit Manipulation Functions: Bitwise Functions, *Note
+Internationalization with `gawk': Internationalization, and also *Note
+Advanced Features of `gawk': Advanced Features, and *Note Adding New
+Built-in Functions to `gawk': Dynamic Extensions.
+
+ `GAWK: Effective AWK Programming' will undoubtedly continue to
+evolve. An electronic version comes with the `gawk' distribution from
+the FSF. If you find an error in this Info file, please report it!
+*Note Reporting Problems and Bugs: Bugs, for information on submitting
+problem reports electronically, or write to me in care of the publisher.
- If you are reading this in GNU Emacs using Info, you can copy the
-regions of text showing these sample files into your own test files.
-This way you can try out the examples shown in the remainder of this
-document. You do this by using the command `M-x write-region' to copy
-text from the Info file into a file for use with `awk' (*Note
-Miscellaneous File Operations: (emacs)Misc File Ops, for more
-information). Using this information, create your own `BBS-list' and
-`inventory-shipped' files, and practice what you learn in this Info
-file.
+ ---------- Footnotes ----------
- If you are using the stand-alone version of Info, see *Note
-Extracting Programs from Texinfo Source Files: Extract Program, for an
-`awk' program that will extract these data files from `gawk.texi', the
-Texinfo source file for this Info file.
+ (1) GNU stands for "GNU's not Unix."
+
+ (2) The terminology "GNU/Linux" is explained in the *Note Glossary::.
+
+
+File: gawk.info, Node: How To Contribute, Next: Acknowledgments, Prev: Manual History, Up: Preface
+
+How to Contribute
+=================
+
+ As the maintainer of GNU `awk', I am starting a collection of
+publicly available `awk' programs. For more information, see
+`ftp://ftp.freefriends.org/arnold/Awkstuff'. If you have written an
+interesting `awk' program, or have written a `gawk' extension that you
+would like to share with the rest of the world, please contact me
+(<arnold@gnu.org>). Making things available on the Internet helps keep
+the `gawk' distribution down to manageable size.
+
+
+File: gawk.info, Node: Acknowledgments, Prev: How To Contribute, Up: Preface
+
+Acknowledgments
+===============
+
+ The initial draft of `The GAWK Manual' had the following
+acknowledgments:
+
+ Many people need to be thanked for their assistance in producing
+ this manual. Jay Fenlason contributed many ideas and sample
+ programs. Richard Mlynarik and Robert Chassell gave helpful
+ comments on drafts of this manual. The paper `A Supplemental
+ Document for `awk'' by John W. Pierce of the Chemistry Department
+ at UC San Diego, pinpointed several issues relevant both to `awk'
+ implementation and to this manual, that would otherwise have
+ escaped us.
+
+ I would like to acknowledge Richard M. Stallman, for his vision of a
+better world and for his courage in founding the FSF and starting the
+GNU project.
+
+ The following people (in alphabetical order) provided helpful
+comments on various versions of this book, up to and including this
+edition. Rick Adams, Nelson H.F. Beebe, Karl Berry, Dr. Michael
+Brennan, Rich Burridge, Claire Coutier, Diane Close, Scott Deifik,
+Christopher ("Topher") Eliot, Jeffrey Friedl, Dr. Darrel Hankerson,
+Michal Jaegermann, Dr. Richard J. LeBlanc, Michael Lijewski, Pat Rankin,
+Miriam Robbins, Mary Sheehan, and Chuck Toporek.
+
+ Robert J. Chassell provided much valuable advice on the use of
+Texinfo. He also deserves special thanks for convincing me _not_ to
+title this Info file `How To Gawk Politely'. Karl Berry helped
+significantly with the TeX part of Texinfo.
+
+ I would like to thank Marshall and Elaine Hartholz of Seattle and
+Dr. Bert and Rita Schreiber of Detroit for large amounts of quiet
+vacation time in their homes, which allowed me to make significant
+progress on this Info file and on `gawk' itself.
+
+ Phil Hughes of SSC contributed in a very important way by loaning me
+his laptop GNU/Linux system, not once, but twice, which allowed me to
+do a lot of work while away from home.
+
+ David Trueman deserves special credit; he has done a yeoman job of
+evolving `gawk' so that it performs well and without bugs. Although he
+is no longer involved with `gawk', working with him on this project was
+a significant pleasure.
+
+ The intrepid members of the GNITS mailing list, and most notably
+Ulrich Drepper, provided invaluable help and feedback for the design of
+the internationalization features.
+
+ Nelson Beebe, Martin Brown, Scott Deifik, Darrel Hankerson, Michal
+Jaegermann, Ju"rgen Kahrs, Pat Rankin, Kai Uwe Rommel, and Eli Zaretskii
+(in alphabetical order) are long-time members of the `gawk' "crack
+portability team." Without their hard work and help, `gawk' would not
+be nearly the fine program it is today. It has been and continues to
+be a pleasure working with this team of fine people.
+
+ David and I would like to thank Brian Kernighan of Bell Laboratories
+for invaluable assistance during the testing and debugging of `gawk',
+and for help in clarifying numerous points about the language. We
+could not have done nearly as good a job on either `gawk' or its
+documentation without his help.
+
+ Chuck Toporek, Mary Sheehan, and Claire Coutier of O'Reilly &
+Associates contributed significant editorial help for this Info file
+for the 3.1 release of `gawk'.
+
+ I must thank my wonderful wife, Miriam, for her patience through the
+many versions of this project, for her proof-reading, and for sharing
+me with the computer. I would like to thank my parents for their love,
+and for the grace with which they raised and educated me. Finally, I
+also must acknowledge my gratitude to G-d, for the many opportunities
+He has sent my way, as well as for the gifts He has given me with which
+to take advantage of those opportunities.
+
+
+
+Arnold Robbins
+Nof Ayalon
+ISRAEL
+March, 2001

-File: gawk.info, Node: Getting Started, Next: One-liners, Prev: What Is Awk, Up: Top
+File: gawk.info, Node: Getting Started, Next: Regexp, Prev: Preface, Up: Top
Getting Started with `awk'
**************************
@@ -784,29 +1034,29 @@ Getting Started with `awk'
The basic function of `awk' is to search files for lines (or other
units of text) that contain certain patterns. When a line matches one
of the patterns, `awk' performs specified actions on that line. `awk'
-keeps processing input lines in this way until the end of the input
-files are reached.
+keeps processing input lines in this way until it reaches the end of
+the input files.
Programs in `awk' are different from programs in most other
languages, because `awk' programs are "data-driven"; that is, you
-describe the data you wish to work with, and then what to do when you
+describe the data you want to work with and then what to do when you
find it. Most other languages are "procedural"; you have to describe,
in great detail, every step the program is to take. When working with
procedural languages, it is usually much harder to clearly describe the
data your program will process. For this reason, `awk' programs are
-often refreshingly easy to both write and read.
+often refreshingly easy to write and read.
When you run `awk', you specify an `awk' "program" that tells `awk'
what to do. The program consists of a series of "rules". (It may also
-contain "function definitions", an advanced feature which we will
-ignore for now. *Note User-defined Functions: User-defined.) Each
-rule specifies one pattern to search for, and one action to perform
-when that pattern is found.
+contain "function definitions", an advanced feature that we will ignore
+for now. *Note User-Defined Functions: User-defined.) Each rule
+specifies one pattern to search for and one action to perform upon
+finding the pattern.
Syntactically, a rule consists of a pattern followed by an action.
The action is enclosed in curly braces to separate it from the pattern.
-Rules are usually separated by newlines. Therefore, an `awk' program
-looks like this:
+Newlines usually separate rules. Therefore, an `awk' program looks
+like this:
PATTERN { ACTION }
PATTERN { ACTION }
@@ -814,54 +1064,22 @@ looks like this:
* Menu:
-* Names:: What name to use to find `awk'.
* Running gawk:: How to run `gawk' programs; includes
- command line syntax.
+ command-line syntax.
+* Sample Data Files:: Sample data files for use in the `awk'
+ programs illustrated in this Info file.
* Very Simple:: A very simple example.
-* Two Rules:: A less simple one-line example with two rules.
+* Two Rules:: A less simple one-line example using two
+ rules.
* More Complex:: A more complex example.
* Statements/Lines:: Subdividing or combining statements into
lines.
* Other Features:: Other Features of `awk'.
-* When:: When to use `gawk' and when to use other
- things.
-
-
-File: gawk.info, Node: Names, Next: Running gawk, Prev: Getting Started, Up: Getting Started
-
-A Rose By Any Other Name
-========================
-
- The `awk' language has evolved over the years. Full details are
-provided in *Note The Evolution of the `awk' Language: Language History.
-The language described in this Info file is often referred to as "new
-`awk'."
-
- Because of this, many systems have multiple versions of `awk'. Some
-systems have an `awk' utility that implements the original version of
-the `awk' language, and a `nawk' utility for the new version. Others
-have an `oawk' for the "old `awk'" language, and plain `awk' for the
-new one. Still others only have one version, usually the new one.(1)
-
- All in all, this makes it difficult for you to know which version of
-`awk' you should run when writing your programs. The best advice we
-can give here is to check your local documentation. Look for `awk',
-`oawk', and `nawk', as well as for `gawk'. Chances are, you will have
-some version of new `awk' on your system, and that is what you should
-use when running your programs. (Of course, if you're reading this
-Info file, chances are good that you have `gawk'!)
-
- Throughout this Info file, whenever we refer to a language feature
-that should be available in any complete implementation of POSIX `awk',
-we simply use the term `awk'. When referring to a feature that is
-specific to the GNU implementation, we use the term `gawk'.
-
- ---------- Footnotes ----------
-
- (1) Often, these systems use `gawk' for their `awk' implementation!
+* When:: When to use `gawk' and when to use
+ other things.

-File: gawk.info, Node: Running gawk, Next: Very Simple, Prev: Names, Up: Getting Started
+File: gawk.info, Node: Running gawk, Next: Sample Data Files, Prev: Getting Started, Up: Getting Started
How to Run `awk' Programs
=========================
@@ -872,29 +1090,31 @@ this:
awk 'PROGRAM' INPUT-FILE1 INPUT-FILE2 ...
-where PROGRAM consists of a series of patterns and actions, as
-described earlier. (The reason for the single quotes is described
-below, in *Note One-shot Throw-away `awk' Programs: One-shot.)
-
When the program is long, it is usually more convenient to put it in
a file and run it with a command like this:
awk -f PROGRAM-FILE INPUT-FILE1 INPUT-FILE2 ...
+ This minor node discusses both mechanisms, along with several
+variations of each.
+
* Menu:
-* One-shot:: Running a short throw-away `awk' program.
+* One-shot:: Running a short throw-away `awk'
+ program.
* Read Terminal:: Using no input files (input from terminal
instead).
* Long:: Putting permanent `awk' programs in
files.
* Executable Scripts:: Making self-contained `awk' programs.
-* Comments:: Adding documentation to `gawk' programs.
+* Comments:: Adding documentation to `gawk'
+ programs.
+* Quoting:: More discussion of shell quoting issues.

File: gawk.info, Node: One-shot, Next: Read Terminal, Prev: Running gawk, Up: Running gawk
-One-shot Throw-away `awk' Programs
+One-Shot Throw-Away `awk' Programs
----------------------------------
Once you are familiar with `awk', you will often type in simple
@@ -908,55 +1128,48 @@ described earlier.
This command format instructs the "shell", or command interpreter,
to start `awk' and use the PROGRAM to process records in the input
-file(s). There are single quotes around PROGRAM so that the shell
-doesn't interpret any `awk' characters as special shell characters.
-They also cause the shell to treat all of PROGRAM as a single argument
-for `awk' and allow PROGRAM to be more than one line long.
+file(s). There are single quotes around PROGRAM so the shell won't
+interpret any `awk' characters as special shell characters. The quotes
+also cause the shell to treat all of PROGRAM as a single argument for
+`awk', and allow PROGRAM to be more than one line long.
This format is also useful for running short or medium-sized `awk'
programs from shell scripts, because it avoids the need for a separate
file for the `awk' program. A self-contained shell script is more
-reliable since there are no other files to misplace.
+reliable because there are no other files to misplace.
- *Note Useful One Line Programs: One-liners, presents several short,
+ *Note Some Simple Examples: Very Simple, presents several short,
self-contained programs.
- As an interesting side point, the command
-
- awk '/foo/' FILES ...
-
-is essentially the same as
-
- egrep foo FILES ...
-

File: gawk.info, Node: Read Terminal, Next: Long, Prev: One-shot, Up: Running gawk
-Running `awk' without Input Files
+Running `awk' Without Input Files
---------------------------------
You can also run `awk' without any input files. If you type the
-command line:
+following command line:
awk 'PROGRAM'
-then `awk' applies the PROGRAM to the "standard input", which usually
-means whatever you type on the terminal. This continues until you
-indicate end-of-file by typing `Control-d'. (On other operating
-systems, the end-of-file character may be different. For example, on
-OS/2 and MS-DOS, it is `Control-z'.)
+`awk' applies the PROGRAM to the "standard input", which usually means
+whatever you type on the terminal. This continues until you indicate
+end-of-file by typing `Ctrl-d'. (On other operating systems, the
+end-of-file character may be different. For example, on OS/2 and
+MS-DOS, it is `Ctrl-z'.)
- For example, the following program prints a friendly piece of advice
-(from Douglas Adams' `The Hitchhiker's Guide to the Galaxy'), to keep
-you from worrying about the complexities of computer programming
-(`BEGIN' is a feature we haven't discussed yet).
+ As an example, the following program prints a friendly piece of
+advice (from Douglas Adams's `The Hitchhiker's Guide to the Galaxy'),
+to keep you from worrying about the complexities of computer
+programming. (`BEGIN' is a feature we haven't discussed yet.):
$ awk "BEGIN { print \"Don't Panic!\" }"
-| Don't Panic!
This program does not read any input. The `\' before each of the
-inner double quotes is necessary because of the shell's quoting rules,
-in particular because it mixes both single quotes and double quotes.
+inner double quotes is necessary because of the shell's quoting
+rules--in particular because it mixes both single quotes and double
+quotes.(1)
This next simple `awk' program emulates the `cat' utility; it copies
whatever you type at the keyboard to its standard output. (Why this
@@ -971,7 +1184,13 @@ works is explained shortly.)
-| Four score and seven years ago, ...
What, me worry?
-| What, me worry?
- Control-d
+ Ctrl-d
+
+ ---------- Footnotes ----------
+
+ (1) Although we generally recommend the use of single quotes around
+the program text, double quotes are needed here in order to put the
+single quote into the message.

File: gawk.info, Node: Long, Next: Executable Scripts, Prev: Read Terminal, Up: Running gawk
@@ -979,9 +1198,9 @@ File: gawk.info, Node: Long, Next: Executable Scripts, Prev: Read Terminal,
Running Long Programs
---------------------
- Sometimes your `awk' programs can be very long. In this case it is
-more convenient to put the program into a separate file. To tell `awk'
-to use that file for its program, you type:
+ Sometimes your `awk' programs can be very long. In this case, it is
+more convenient to put the program into a separate file. In order to
+tell `awk' to use that file for its program, you type:
awk -f SOURCE-FILE INPUT-FILE1 INPUT-FILE2 ...
@@ -999,7 +1218,7 @@ does the same thing as this one:
awk "BEGIN { print \"Don't Panic!\" }"
-which was explained earlier (*note Running `awk' without Input Files:
+This was explained earlier (*note Running `awk' Without Input Files:
Read Terminal.). Note that you don't usually need single quotes around
the file name that you specify with `-f', because most file names don't
contain any of the shell's special characters. Notice that in
@@ -1009,7 +1228,7 @@ command line.
If you want to identify your `awk' program files clearly as such,
you can add the extension `.awk' to the file name. This doesn't affect
-the execution of the `awk' program, but it does make "housekeeping"
+the execution of the `awk' program but it does make "housekeeping"
easier.

@@ -1020,76 +1239,71 @@ Executable `awk' Programs
Once you have learned `awk', you may want to write self-contained
`awk' scripts, using the `#!' script mechanism. You can do this on
-many Unix systems(1) (and someday on the GNU system).
-
- For example, you could update the file `advice' to look like this:
+many Unix systems(1) as well as on the GNU system. For example, you
+could update the file `advice' to look like this:
#! /bin/awk -f
- BEGIN { print "Don't Panic!" }
+ BEGIN { print "Don't Panic!" }
-After making this file executable (with the `chmod' utility), you can
-simply type `advice' at the shell, and the system will arrange to run
-`awk'(2) as if you had typed `awk -f advice'.
+After making this file executable (with the `chmod' utility), simply
+type `advice' at the shell and the system arranges to run `awk'(2) as
+if you had typed `awk -f advice':
+ $ chmod +x advice
$ advice
-| Don't Panic!
Self-contained `awk' scripts are useful when you want to write a
-program which users can invoke without their having to know that the
+program that users can invoke without their having to know that the
program is written in `awk'.
- *Caution:* You should not put more than one argument on the `#!'
-line after the path to `awk'. This will not work. The operating system
-treats the rest of the line as a single agument, and passes it to `awk'.
-Doing this will lead to confusing behavior: most likely a usage
-diagnostic of some sort from `awk'.
-
- Some older systems do not support the `#!' mechanism. You can get a
-similar effect using a regular shell script. It would look something
-like this:
+Advanced Notes: Portability Issues with `#!'
+--------------------------------------------
- : The colon ensures execution by the standard shell.
- awk 'PROGRAM' "$@"
+ Some systems limit the length of the interpreter name to 32
+characters. Often, this can be dealt with by using a symbolic link.
- Using this technique, it is _vital_ to enclose the PROGRAM in single
-quotes to protect it from interpretation by the shell. If you omit the
-quotes, only a shell wizard can predict the results.
+ You should not put more than one argument on the `#!' line after the
+path to `awk'. It does not work. The operating system treats the rest
+of the line as a single argument and passes it to `awk'. Doing this
+leads to confusing behavior--most likely a usage diagnostic of some
+sort from `awk'.
- The `"$@"' causes the shell to forward all the command line
-arguments to the `awk' program, without interpretation. The first
-line, which starts with a colon, is used so that this shell script will
-work even if invoked by a user who uses the C shell. (Not all older
-systems obey this convention, but many do.)
+ Finally, the value of `ARGV[0]' (*note Built-in Variables::) varies
+depending upon your operating system. Some systems put `awk' there,
+some put the full pathname of `awk' (such as `/bin/awk'), and some put
+the name of your script (`advice'). Don't rely on the value of
+`ARGV[0]' to provide your script name.
---------- Footnotes ----------
- (1) The `#!' mechanism works on Linux systems, Unix systems derived
-from Berkeley Unix, System V Release 4, and some System V Release 3
+ (1) The `#!' mechanism works on Linux systems, systems derived from
+the 4.4-Lite Berkeley Software Distribution, and most commercial Unix
systems.
(2) The line beginning with `#!' lists the full file name of an
-interpreter to be run, and an optional initial command line argument to
+interpreter to run and an optional initial command-line argument to
pass to that interpreter. The operating system then runs the
interpreter with the given argument and the full argument list of the
executed program. The first argument in the list is the full file name
-of the `awk' program. The rest of the argument list will either be
-options to `awk', or data files, or both.
+of the `awk' program. The rest of the argument list is either options
+to `awk', or data files, or both.

-File: gawk.info, Node: Comments, Prev: Executable Scripts, Up: Running gawk
+File: gawk.info, Node: Comments, Next: Quoting, Prev: Executable Scripts, Up: Running gawk
Comments in `awk' Programs
--------------------------
A "comment" is some text that is included in a program for the sake
-of human readers; it is not really part of the program. Comments can
-explain what the program does, and how it works. Nearly all
-programming languages have provisions for comments, because programs are
-typically hard to understand without their extra help.
+of human readers; it is not really an executable part of the program.
+Comments can explain what the program does and how it works. Nearly all
+programming languages have provisions for comments, as programs are
+typically hard to understand without them.
In the `awk' language, a comment starts with the sharp sign
-character, `#', and continues to the end of the line. The `#' does not
+character (`#') and continues to the end of the line. The `#' does not
have to be the first character on the line. The `awk' language ignores
the rest of a line following a sharp sign. For example, we could have
put the following into `advice':
@@ -1099,47 +1313,230 @@ put the following into `advice':
BEGIN { print "Don't Panic!" }
You can put comment lines into keyboard-composed throw-away `awk'
-programs also, but this usually isn't very useful; the purpose of a
-comment is to help you or another person understand the program at a
-later time.
+programs, but this usually isn't very useful; the purpose of a comment
+is to help you or another person understand the program when reading it
+at a later time.
- *Caution:* As mentioned in *Note One-shot Throw-away `awk' Programs:
+ *Caution:* As mentioned in *Note One-Shot Throw-Away `awk' Programs:
One-shot, you can enclose small to medium programs in single quotes, in
order to keep your shell scripts self-contained. When doing so,
_don't_ put an apostrophe (i.e., a single quote) into a comment (or
-anywhere else in your program). The shell will interpret the quote as
-the closing quote for the entire program. As a result, usually the
-shell will print a message about mismatched quotes, and if `awk'
-actually runs, it will probably print strange messages about syntax
-errors. For example:
+anywhere else in your program). The shell interprets the quote as the
+closing quote for the entire program. As a result, usually the shell
+prints a message about mismatched quotes, and if `awk' actually runs,
+it will probably print strange messages about syntax errors. For
+example, look at the following:
+
+ $ awk '{ print "hello" } # let's be cute'
+ >
+
+ The shell sees that the first two quotes match, and that a new
+quoted object begins at the end of the command-line. It therefore
+prompts with the secondary prompt, waiting for more input. With Unix
+`awk', closing the quoted string produces this result:
- awk 'BEGIN { print "hello" } # let's be cute'
+ $ awk '{ print "hello" } # let's be cute'
+ > '
+ error--> awk: can't open file be
+ error--> source line number 1
+
+ Putting a backslash before the single quote in `let's' wouldn't help,
+since backslashes are not special inside single quotes. The next
+node describes the shell's quoting rules.

-File: gawk.info, Node: Very Simple, Next: Two Rules, Prev: Running gawk, Up: Getting Started
+File: gawk.info, Node: Quoting, Prev: Comments, Up: Running gawk
-A Very Simple Example
-=====================
+Shell Quoting Issues
+--------------------
+
+ For short to medium length `awk' programs, it is most convenient to
+enter the program on the `awk' command line. This is best done by
+enclosing the entire program in single quotes. This is true whether
+you are entering the program interactively at the shell prompt, or
+writing it as part of a larger shell script:
+
+ awk 'PROGRAM TEXT' INPUT-FILE1 INPUT-FILE2 ...
+
+ Once you are working with the shell, it is helpful to have a basic
+knowledge of shell quoting rules. The following rules apply only to
+POSIX-compliant, Bourne-style shells (such as `bash', the GNU
+Bourne-Again Shell). If you use `csh', you're on your own.
+
+ * Quoted items can be concatenated with nonquoted items as well as
+ with other quoted items. The shell turns everything into one
+ argument for the command.
+
+ * Preceding any single character with a backslash (`\') quotes that
+ character. The shell removes the backslash and passes the quoted
+ character on to the command.
+
+ * Single quotes protect everything between the opening and closing
+ quotes. The shell does no interpretation of the quoted text,
+ passing it on verbatim to the command. It is _impossible_ to
+ embed a single quote inside single-quoted text. Refer back to
+ *Note Comments in `awk' Programs: Comments, for an example showing
+ what happens if you try.
+
+ * Double quotes protect most things between the opening and closing
+ quotes. The shell does at least variable and command substitution
+ on the quoted text. Different shells may do additional kinds of
+ processing on double-quoted text.
+
+ Since certain characters within double-quoted text are processed
+ by the shell, they must be "escaped" within the text. Of note are
+ the characters `$', ``', `\' and `"', all of which must be
+ preceded by a backslash within double-quoted text if they are to
+ be passed on literally to the program. (The leading backslash is
+ stripped first.) Thus, the example seen in *Note Running `awk'
+ Without Input Files: Read Terminal, is applicable:
+
+ $ awk "BEGIN { print \"Don't Panic!\" }"
+ -| Don't Panic!
+
+ Note that the single quote is not special within double quotes.
+
+ * Null strings are removed when they occur as part of a non-null
+ command-line argument, while explicit non-null objects are kept.
+ For example, to specify that the field separator `FS' should be
+ set to the null string, use:
+
+ awk -F "" 'PROGRAM' FILES # correct
+
+ Don't use this:
+
+ awk -F"" 'PROGRAM' FILES # wrong!
+
+ In the second case, `awk' will attempt to use the text of the
+ program as the value of `FS', and the first file name as the text
+ of the program! This results in syntax errors at best, and
+ confusing behavior at worst.
+
+ Mixing single and double quotes is difficult. You have to resort to
+shell quoting tricks, like this:
+
+ $ awk 'BEGIN { print "Here is a single quote <'"'"'>" }'
+ -| Here is a single quote <'>
+
+This program consists of three concatenated quoted strings. The first
+and the third are single-quoted, the second is double-quoted.
+
+ This can be "simplified" to:
+
+ $ awk 'BEGIN { print "Here is a single quote <'\''>" }'
+ -| Here is a single quote <'>
+
+Judge for yourself which of these two is the more readable.
+
+ Another option is to use double quotes, escaping the embedded,
+`awk'-level double quotes:
+
+ $ awk "BEGIN { print \"Here is a single quote <'>\" }"
+ -| Here is a single quote <'>
+
+This option is also painful, because double quotes, backslashes, and
+dollar signs are very common in `awk' programs.
+
+ If you really need both single and double quotes in your `awk'
+program, it is probably best to move it into a separate file, where the
+shell won't be part of the picture, and you can say what you mean.
+
+
+File: gawk.info, Node: Sample Data Files, Next: Very Simple, Prev: Running gawk, Up: Getting Started
+
+Data Files for the Examples
+===========================
+
+ Many of the examples in this Info file take their input from two
+sample data files. The first, called `BBS-list', represents a list of
+computer bulletin board systems together with information about those
+systems. The second data file, called `inventory-shipped', contains
+information about monthly shipments. In both files, each line is
+considered to be one "record".
+
+ In the file `BBS-list', each record contains the name of a computer
+bulletin board, its phone number, the board's baud rate(s), and a code
+for the number of hours it is operational. An `A' in the last column
+means the board operates 24 hours a day. A `B' in the last column
+means the board only operates on evening and weekend hours. A `C'
+means the board operates only on weekends:
+
+ aardvark 555-5553 1200/300 B
+ alpo-net 555-3412 2400/1200/300 A
+ barfly 555-7685 1200/300 A
+ bites 555-1675 2400/1200/300 A
+ camelot 555-0542 300 C
+ core 555-2912 1200/300 C
+ fooey 555-1234 2400/1200/300 B
+ foot 555-6699 1200/300 B
+ macfoo 555-6480 1200/300 A
+ sdace 555-3430 2400/1200/300 A
+ sabafoo 555-2127 1200/300 C
+
+ The second data file, called `inventory-shipped', represents
+information about shipments during the year. Each record contains the
+month, the number of green crates shipped, the number of red boxes
+shipped, the number of orange bags shipped, and the number of blue
+packages shipped, respectively. There are 16 entries, covering the 12
+months of last year and the first four months of the current year.
+
+ Jan 13 25 15 115
+ Feb 15 32 24 226
+ Mar 15 24 34 228
+ Apr 31 52 63 420
+ May 16 34 29 208
+ Jun 31 42 75 492
+ Jul 24 34 67 436
+ Aug 15 34 47 316
+ Sep 13 55 37 277
+ Oct 29 54 68 525
+ Nov 20 87 82 577
+ Dec 17 35 61 401
+
+ Jan 21 36 64 620
+ Feb 26 58 80 652
+ Mar 24 75 70 495
+ Apr 21 70 74 514
+
+ If you are reading this in GNU Emacs using Info, you can copy the
+regions of text showing these sample files into your own test files.
+This way you can try out the examples shown in the remainder of this
+document. You do this by using the command `M-x write-region' to copy
+text from the Info file into a file for use with `awk' (*Note
+Miscellaneous File Operations: (emacs)Misc File Ops, for more
+information). Using this information, create your own `BBS-list' and
+`inventory-shipped' files and practice what you learn in this Info file.
+
+ If you are using the stand-alone version of Info, see *Note
+Extracting Programs from Texinfo Source Files: Extract Program, for an
+`awk' program that extracts these data files from `gawk.texi', the
+Texinfo source file for this Info file.
+
+
+File: gawk.info, Node: Very Simple, Next: Two Rules, Prev: Sample Data Files, Up: Getting Started
+
+Some Simple Examples
+====================
The following command runs a simple `awk' program that searches the
-input file `BBS-list' for the string of characters: `foo'. (A string
-of characters is usually called a "string". The term "string" is
-perhaps based on similar usage in English, such as "a string of
-pearls," or, "a string of cars in a train.")
+input file `BBS-list' for the character string `foo'. (A string of
+characters is usually called a "string". The term "string" is based on
+similar usage in English, such as "a string of pearls," or, "a string
+of cars in a train."):
awk '/foo/ { print $0 }' BBS-list
-When lines containing `foo' are found, they are printed, because
+When lines containing `foo' are found, they are printed because
`print $0' means print the current line. (Just `print' by itself means
the same thing, so we could have written that instead.)
- You will notice that slashes, `/', surround the string `foo' in the
-`awk' program. The slashes indicate that `foo' is a pattern to search
-for. This type of pattern is called a "regular expression", and is
-covered in more detail later (*note Regular Expressions: Regexp.). The
-pattern is allowed to match parts of words. There are single-quotes
-around the `awk' program so that the shell won't interpret any of it as
-special shell characters.
+ You will notice that slashes (`/') surround the string `foo' in the
+`awk' program. The slashes indicate that `foo' is the pattern to
+search for. This type of pattern is called a "regular expression",
+which is covered in more detail later (*note Regular Expressions:
+Regexp.). The pattern is allowed to match parts of words. There are
+single quotes around the `awk' program so that the shell won't
+interpret any of it as special shell characters.
Here is what this program prints:
@@ -1155,10 +1552,81 @@ for _every_ input line. If the action is omitted, the default action
is to print all lines that match the pattern.
Thus, we could leave out the action (the `print' statement and the
-curly braces) in the above example, and the result would be the same:
-all lines matching the pattern `foo' would be printed. By comparison,
-omitting the `print' statement but retaining the curly braces makes an
-empty action that does nothing; then no lines would be printed.
+curly braces) in the above example and the result would be the same: all
+lines matching the pattern `foo' are printed. By comparison, omitting
+the `print' statement but retaining the curly braces makes an empty
+action that does nothing (i.e., no lines are printed).
+
+ Many practical `awk' programs are just a line or two. Following is a
+collection of useful, short programs to get you started. Some of these
+programs contain constructs that haven't been covered yet. (The
+description of the program will give you a good idea of what is going
+on, but please read the rest of the Info file to become an `awk'
+expert!) Most of the examples use a data file named `data'. This is
+just a placeholder; if you use these programs yourself, substitute your
+own file names for `data'. For future reference, note that there is
+often more than one way to do things in `awk'. At some point, you may
+want to look back at these examples and see if you can come up with
+different ways to do the same things shown here:
+
+ * Print the length of the longest input line:
+
+ awk '{ if (length($0) > max) max = length($0) }
+ END { print max }' data
+
+ * Print every line that is longer than 80 characters:
+
+ awk 'length($0) > 80' data
+
+ The sole rule has a relational expression as its pattern and it
+ has no action--so the default action, printing the record, is used.
+
+ * Print the length of the longest line in `data':
+
+ expand data | awk '{ if (x < length()) x = length() }
+ END { print "maximum line length is " x }'
+
+ The input is processed by the `expand' utility to change tabs into
+ spaces, so the widths compared are actually the right-margin
+ columns.
+
+ * Print every line that has at least one field:
+
+ awk 'NF > 0' data
+
+ This is an easy way to delete blank lines from a file (or rather,
+ to create a new file similar to the old file but from which the
+ blank lines have been removed).
+
+ * Print seven random numbers from 0 to 100, inclusive:
+
+ awk 'BEGIN { for (i = 1; i <= 7; i++)
+ print int(101 * rand()) }'
+
+ * Print the total number of bytes used by FILES:
+
+ ls -l FILES | awk '{ x += $5 }
+ END { print "total bytes: " x }'
+
+ * Print the total number of kilobytes used by FILES:
+
+ ls -l FILES | awk '{ x += $5 }
+ END { print "total K-bytes: " (x + 1023)/1024 }'
+
+ * Print a sorted list of the login names of all users:
+
+ awk -F: '{ print $1 }' /etc/passwd | sort
+
+ * Count lines in a file:
+
+ awk 'END { print NR }' data
+
+ * Print the even-numbered lines in the data file:
+
+ awk 'NR % 2 == 0' data
+
+ If you use the expression `NR % 2 == 1' instead, it would print
+ the odd-numbered lines.

File: gawk.info, Node: Two Rules, Next: More Complex, Prev: Very Simple, Up: Getting Started
@@ -1168,28 +1636,28 @@ An Example with Two Rules
The `awk' utility reads the input files one line at a time. For
each line, `awk' tries the patterns of each of the rules. If several
-patterns match then several actions are run, in the order in which they
+patterns match, then several actions are run in the order in which they
appear in the `awk' program. If no patterns match, then no actions are
run.
- After processing all the rules (perhaps none) that match the line,
-`awk' reads the next line (however, *note The `next' Statement: Next
-Statement., and also *note The `nextfile' Statement: Nextfile
-Statement.). This continues until the end of the file is reached.
-
- For example, the `awk' program:
+ After processing all the rules that match the line (and perhaps
+there are none), `awk' reads the next line. (However, *note The `next'
+Statement: Next Statement., and also *note Using `gawk''s `nextfile'
+Statement: Nextfile Statement.). This continues until the end of the
+file is reached. For example, the following `awk' program contains two
+rules:
/12/ { print $0 }
/21/ { print $0 }
-contains two rules. The first rule has the string `12' as the pattern
-and `print $0' as the action. The second rule has the string `21' as
-the pattern and also has `print $0' as the action. Each rule's action
-is enclosed in its own pair of braces.
+The first rule has the string `12' as the pattern and `print $0' as the
+action. The second rule has the string `21' as the pattern and also
+has `print $0' as the action. Each rule's action is enclosed in its
+own pair of braces.
- This `awk' program prints every line that contains the string `12'
-_or_ the string `21'. If a line contains both strings, it is printed
-twice, once by each rule.
+ This program prints every line that contains the string `12' _or_
+the string `21'. If a line contains both strings, it is printed twice,
+once by each rule.
This is what happens if we run this program on our two sample data
files, `BBS-list' and `inventory-shipped', as shown here:
@@ -1210,7 +1678,7 @@ files, `BBS-list' and `inventory-shipped', as shown here:
-| Jan 21 36 64 620
-| Apr 21 70 74 514
-Note how the line in `BBS-list' beginning with `sabafoo' was printed
+Note how the line beginning with `sabafoo' in `BBS-list' was printed
twice, once for each rule.

@@ -1219,34 +1687,29 @@ File: gawk.info, Node: More Complex, Next: Statements/Lines, Prev: Two Rules,
A More Complex Example
======================
- Here is an example to give you an idea of what typical `awk'
-programs do. This example shows how `awk' can be used to summarize,
-select, and rearrange the output of another utility. It uses features
-that haven't been covered yet, so don't worry if you don't understand
-all the details.
+ Now that we've mastered some simple tasks, let's look at what
+typical `awk' programs do. This example shows how `awk' can be used to
+summarize, select, and rearrange the output of another utility. It uses
+features that haven't been covered yet, so don't worry if you don't
+understand all the details:
- ls -lg | awk '$6 == "Nov" { sum += $5 }
+ ls -l | awk '$6 == "Nov" { sum += $5 }
END { print sum }'
This command prints the total number of bytes in all the files in the
current directory that were last modified in November (of any year).
-(In the C shell you would need to type a semicolon and then a backslash
-at the end of the first line; in a POSIX-compliant shell, such as the
-Bourne shell or Bash, the GNU Bourne-Again shell, you can type the
-example as shown.)
-
- The `ls -lg' part of this example is a system command that gives you
-a listing of the files in a directory, including file size and the date
-the file was last modified. Its output looks like this:
+(1) The `ls -l' part of this example is a system command that gives you
+a listing of the files in a directory, including each file's size and
+the date the file was last modified. Its output looks like this:
-rw-r--r-- 1 arnold user 1933 Nov 7 13:05 Makefile
- -rw-r--r-- 1 arnold user 10809 Nov 7 13:03 gawk.h
- -rw-r--r-- 1 arnold user 983 Apr 13 12:14 gawk.tab.h
- -rw-r--r-- 1 arnold user 31869 Jun 15 12:20 gawk.y
- -rw-r--r-- 1 arnold user 22414 Nov 7 13:03 gawk1.c
- -rw-r--r-- 1 arnold user 37455 Nov 7 13:03 gawk2.c
- -rw-r--r-- 1 arnold user 27511 Dec 9 13:07 gawk3.c
- -rw-r--r-- 1 arnold user 7989 Nov 7 13:03 gawk4.c
+ -rw-r--r-- 1 arnold user 10809 Nov 7 13:03 awk.h
+ -rw-r--r-- 1 arnold user 983 Apr 13 12:14 awk.tab.h
+ -rw-r--r-- 1 arnold user 31869 Jun 15 12:20 awk.y
+ -rw-r--r-- 1 arnold user 22414 Nov 7 13:03 awk1.c
+ -rw-r--r-- 1 arnold user 37455 Nov 7 13:03 awk2.c
+ -rw-r--r-- 1 arnold user 27511 Dec 9 13:07 awk3.c
+ -rw-r--r-- 1 arnold user 7989 Nov 7 13:03 awk4.c
The first field contains read-write permissions, the second field
contains the number of links to the file, and the third field
@@ -1254,27 +1717,41 @@ identifies the owner of the file. The fourth field identifies the group
of the file. The fifth field contains the size of the file in bytes.
The sixth, seventh and eighth fields contain the month, day, and time,
respectively, that the file was last modified. Finally, the ninth field
-contains the name of the file.
+contains the name of the file.(2)
The `$6 == "Nov"' in our `awk' program is an expression that tests
-whether the sixth field of the output from `ls -lg' matches the string
+whether the sixth field of the output from `ls -l' matches the string
`Nov'. Each time a line has the string `Nov' for its sixth field, the
-action `sum += $5' is performed. This adds the fifth field (the file
+action `sum += $5' is performed. This adds the fifth field (the file's
size) to the variable `sum'. As a result, when `awk' has finished
-reading all the input lines, `sum' is the sum of the sizes of files
-whose lines matched the pattern. (This works because `awk' variables
-are automatically initialized to zero.)
+reading all the input lines, `sum' is the total of the sizes of the
+files whose lines matched the pattern. (This works because `awk'
+variables are automatically initialized to zero.)
After the last line of output from `ls' has been processed, the
-`END' rule is executed, and the value of `sum' is printed. In this
-example, the value of `sum' would be 80600.
+`END' rule executes and prints the value of `sum'. In this example,
+the value of `sum' is 140963.
These more advanced `awk' techniques are covered in later sections
-(*note Overview of Actions: Action Overview.). Before you can move on
-to more advanced `awk' programming, you have to know how `awk'
-interprets your input and displays your output. By manipulating fields
-and using `print' statements, you can produce some very useful and
-impressive looking reports.
+(*note Actions: Action Overview.). Before you can move on to more
+advanced `awk' programming, you have to know how `awk' interprets your
+input and displays your output. By manipulating fields and using
+`print' statements, you can produce some very useful and impressive
+looking reports.
+
+ ---------- Footnotes ----------
+
+ (1) In the C shell (`csh'), you need to type a semicolon and then a
+backslash at the end of the first line; see *Note `awk' Statements
+Versus Lines: Statements/Lines, for an explanation as to why. In a
+POSIX-compliant shell, such as the Bourne shell or `bash', you can type
+the example as shown. If the command `echo $path' produces an empty
+output line, you are most likely using a POSIX-compliant shell.
+Otherwise, you are probably using the C shell or a shell derived from
+it.
+
+ (2) On some very old systems, you may need to use `ls -lg' to get
+this output.

File: gawk.info, Node: Statements/Lines, Next: Other Features, Prev: More Complex, Up: Getting Started
@@ -1288,20 +1765,18 @@ separate rule, like this:
awk '/12/ { print $0 }
/21/ { print $0 }' BBS-list inventory-shipped
- However, `gawk' will ignore newlines after any of the following:
+ However, `gawk' ignores newlines after any of the following symbols
+and keywords:
, { ? : || && do else
-A newline at any other point is considered the end of the statement.
-(Splitting lines after `?' and `:' is a minor `gawk' extension. The
-`?' and `:' referred to here is the three operand conditional
-expression described in *Note Conditional Expressions: Conditional Exp.)
+A newline at any other point is considered the end of the statement.(1)
If you would like to split a single statement into two lines at a
point where a newline would terminate it, you can "continue" it by
-ending the first line with a backslash character, `\'. The backslash
-must be the final character on the line to be recognized as a
-continuation character. This is allowed absolutely anywhere in the
+ending the first line with a backslash character (`\'). The backslash
+must be the final character on the line in order to be recognized as a
+continuation character. A backslash is allowed anywhere in the
statement, even in the middle of a string or regular expression. For
example:
@@ -1309,27 +1784,26 @@ example:
on the next line/ { print $1 }'
We have generally not used backslash continuation in the sample programs
-in this Info file. Since in `gawk' there is no limit on the length of
-a line, it is never strictly necessary; it just makes programs more
-readable. For this same reason, as well as for clarity, we have kept
-most statements short in the sample programs presented throughout the
-Info file. Backslash continuation is most useful when your `awk'
-program is in a separate source file, instead of typed in on the
-command line. You should also note that many `awk' implementations are
-more particular about where you may use backslash continuation. For
-example, they may not allow you to split a string constant using
-backslash continuation. Thus, for maximal portability of your `awk'
-programs, it is best not to split your lines in the middle of a regular
-expression or a string.
-
- *Caution: backslash continuation does not work as described above
-with the C shell.* Continuation with backslash works for `awk'
-programs in files, and also for one-shot programs _provided_ you are
-using a POSIX-compliant shell, such as the Bourne shell or Bash, the
-GNU Bourne-Again shell. But the C shell (`csh') behaves differently!
-There, you must use two backslashes in a row, followed by a newline.
-Note also that when using the C shell, _every_ newline in your awk
-program must be escaped with a backslash. To illustrate:
+in this Info file. In `gawk', there is no limit on the length of a
+line, so backslash continuation is never strictly necessary; it just
+makes programs more readable. For this same reason, as well as for
+clarity, we have kept most statements short in the sample programs
+presented throughout the Info file. Backslash continuation is most
+useful when your `awk' program is in a separate source file instead of
+entered from the command line. You should also note that many `awk'
+implementations are more particular about where you may use backslash
+continuation. For example, they may not allow you to split a string
+constant using backslash continuation. Thus, for maximum portability
+of your `awk' programs, it is best not to split your lines in the
+middle of a regular expression or a string.
+
+ *Caution:* _Backslash continuation does not work as described above
+with the C shell._ It works for `awk' programs in files and for
+one-shot programs, _provided_ you are using a POSIX-compliant shell,
+such as the Unix Bourne shell or `bash'. But the C shell behaves
+differently! There, you must use two backslashes in a row, followed by
+a newline. Note also that when using the C shell, _every_ newline in
+your awk program must be escaped with a backslash. To illustrate:
% awk 'BEGIN { \
? print \\
@@ -1340,14 +1814,23 @@ program must be escaped with a backslash. To illustrate:
Here, the `%' and `?' are the C shell's primary and secondary prompts,
analogous to the standard shell's `$' and `>'.
+ Compare the previous example to how it is done with a
+POSIX-compliant shell:
+
+ $ awk 'BEGIN {
+ > print \
+ > "hello, world"
+ > }'
+ -| hello, world
+
`awk' is a line-oriented language. Each rule's action has to begin
on the same line as the pattern. To have the pattern and action on
-separate lines, you _must_ use backslash continuation--there is no
+separate lines, you _must_ use backslash continuation; there is no
other way.
- Note that backslash continuation and comments do not mix. As soon as
-`awk' sees the `#' that starts a comment, it ignores _everything_ on
-the rest of the line. For example:
+ Another thing to keep in mind is that backslash continuation and
+comments do not mix. As soon as `awk' sees the `#' that starts a
+comment, it ignores _everything_ on the rest of the line. For example:
$ gawk 'BEGIN { print "dont panic" # a friendly \
> BEGIN rule
@@ -1355,23 +1838,31 @@ the rest of the line. For example:
error--> gawk: cmd. line:2: BEGIN rule
error--> gawk: cmd. line:2: ^ parse error
-Here, it looks like the backslash would continue the comment onto the
-next line. However, the backslash-newline combination is never even
-noticed, since it is "hidden" inside the comment. Thus, the `BEGIN' is
-noted as a syntax error.
+In this case, it looks like the backslash would continue the comment
+onto the next line. However, the backslash-newline combination is never
+even noticed because it is "hidden" inside the comment. Thus, the
+`BEGIN' is noted as a syntax error.
When `awk' statements within one rule are short, you might want to
-put more than one of them on a line. You do this by separating the
-statements with a semicolon, `;'.
-
- This also applies to the rules themselves. Thus, the previous
-program could have been written:
+put more than one of them on a line. This is accomplished by
+separating the statements with a semicolon (`;'). This also applies to
+the rules themselves. Thus, the program shown at the start of this
+minor node could also be written this way:
/12/ { print $0 } ; /21/ { print $0 }
-*Note:* the requirement that rules on the same line must be separated
-with a semicolon was not in the original `awk' language; it was added
-for consistency with the treatment of statements within an action.
+*Note:* The requirement that states that rules on the same line must be
+separated with a semicolon was not in the original `awk' language; it
+was added for consistency with the treatment of statements within an
+action.
+
+ ---------- Footnotes ----------
+
+ (1) The `?' and `:' referred to here is the three-operand
+conditional expression described in *Note Conditional Expressions:
+Conditional Exp. Splitting lines after `?' and `:' is a minor `gawk'
+extension; if `--posix' is specified (*note Command-Line Options:
+Options.), then this extension is disabled.

File: gawk.info, Node: Other Features, Next: When, Prev: Statements/Lines, Up: Getting Started
@@ -1379,13 +1870,15 @@ File: gawk.info, Node: Other Features, Next: When, Prev: Statements/Lines, U
Other Features of `awk'
=======================
- The `awk' language provides a number of predefined, or built-in
-variables, which your programs can use to get information from `awk'.
-There are other variables your program can set to control how `awk'
-processes your data.
+ The `awk' language provides a number of predefined, or "built-in",
+variables that your programs can use to get information from `awk'.
+There are other variables your program can set as well to control how
+`awk' processes your data.
In addition, `awk' provides a number of built-in functions for doing
-common computational and string related operations.
+common computational and string related operations. `gawk' provides
+built-in functions for working with timestamps, performing bit
+manipulation, and for runtime string translation.
As we develop our presentation of the `awk' language, we introduce
most of the variables and many of the functions. They are defined
@@ -1398,24 +1891,24 @@ File: gawk.info, Node: When, Prev: Other Features, Up: Getting Started
When to Use `awk'
=================
- You might wonder how `awk' might be useful for you. Using utility
-programs, advanced patterns, field separators, arithmetic statements,
-and other selection criteria, you can produce much more complex output.
-The `awk' language is very useful for producing reports from large
-amounts of raw data, such as summarizing information from the output of
-other utility programs like `ls'. (*Note A More Complex Example: More
-Complex.)
+ Now that you've seen some of what `awk' can do, you might wonder how
+`awk' could be useful for you. By using utility programs, advanced
+patterns, field separators, arithmetic statements, and other selection
+criteria, you can produce much more complex output. The `awk' language
+is very useful for producing reports from large amounts of raw data,
+such as summarizing information from the output of other utility
+programs like `ls'. (*Note A More Complex Example: More Complex.)
Programs written with `awk' are usually much smaller than they would
be in other languages. This makes `awk' programs easy to compose and
use. Often, `awk' programs can be quickly composed at your terminal,
-used once, and thrown away. Since `awk' programs are interpreted, you
+used once, and thrown away. Because `awk' programs are interpreted, you
can avoid the (usually lengthy) compilation part of the typical
edit-compile-test-debug cycle of software development.
Complex programs have been written in `awk', including a complete
retargetable assembler for eight-bit microprocessors (*note Glossary::,
-for more information) and a microcode assembler for a special purpose
+for more information), and a microcode assembler for a special purpose
Prolog computer. However, `awk''s capabilities are strained by tasks of
such complexity.
@@ -1424,98 +1917,29 @@ hundred lines, you might consider using a different programming
language. Emacs Lisp is a good choice if you need sophisticated string
or pattern matching capabilities. The shell is also good at string and
pattern matching; in addition, it allows powerful use of the system
-utilities. More conventional languages, such as C, C++, and Lisp, offer
+utilities. More conventional languages, such as C, C++, and Java, offer
better facilities for system programming and for managing the complexity
of large programs. Programs in these languages may require more lines
of source code than the equivalent `awk' programs, but they are easier
to maintain and usually run more efficiently.

-File: gawk.info, Node: One-liners, Next: Regexp, Prev: Getting Started, Up: Top
-
-Useful One Line Programs
-************************
-
- Many useful `awk' programs are short, just a line or two. Here is a
-collection of useful, short programs to get you started. Some of these
-programs contain constructs that haven't been covered yet. The
-description of the program will give you a good idea of what is going
-on, but please read the rest of the Info file to become an `awk' expert!
-
- Most of the examples use a data file named `data'. This is just a
-placeholder; if you were to use these programs yourself, you would
-substitute your own file names for `data'.
-
- Since you are reading this in Info, each line of the example code is
-enclosed in quotes, to represent text that you would type literally.
-The examples themselves represent shell commands that use single quotes
-to keep the shell from interpreting the contents of the program. When
-reading the examples, focus on the text between the open and close
-quotes.
-
-`awk '{ if (length($0) > max) max = length($0) }'
-` END { print max }' data'
- This program prints the length of the longest input line.
-
-`awk 'length($0) > 80' data'
- This program prints every line that is longer than 80 characters.
- The sole rule has a relational expression as its pattern, and has
- no action (so the default action, printing the record, is used).
-
-`expand data | awk '{ if (x < length()) x = length() }'
-` END { print "maximum line length is " x }''
- This program prints the length of the longest line in `data'. The
- input is processed by the `expand' program to change tabs into
- spaces, so the widths compared are actually the right-margin
- columns.
-
-`awk 'NF > 0' data'
- This program prints every line that has at least one field. This
- is an easy way to delete blank lines from a file (or rather, to
- create a new file similar to the old file but from which the blank
- lines have been deleted).
-
-`awk 'BEGIN { for (i = 1; i <= 7; i++)'
-` print int(101 * rand()) }''
- This program prints seven random numbers from zero to 100,
- inclusive.
-
-`ls -lg FILES | awk '{ x += $5 } ; END { print "total bytes: " x }''
- This program prints the total number of bytes used by FILES.
-
-`ls -lg FILES | awk '{ x += $5 }'
-` END { print "total K-bytes: " (x + 1023)/1024 }''
- This program prints the total number of kilobytes used by FILES.
-
-`awk -F: '{ print $1 }' /etc/passwd | sort'
- This program prints a sorted list of the login names of all users.
-
-`awk 'END { print NR }' data'
- This program counts lines in a file.
-
-`awk 'NR % 2 == 0' data'
- This program prints the even numbered lines in the data file. If
- you were to use the expression `NR % 2 == 1' instead, it would
- print the odd numbered lines.
-
-
-File: gawk.info, Node: Regexp, Next: Reading Files, Prev: One-liners, Up: Top
+File: gawk.info, Node: Regexp, Next: Reading Files, Prev: Getting Started, Up: Top
Regular Expressions
*******************
A "regular expression", or "regexp", is a way of describing a set of
strings. Because regular expressions are such a fundamental part of
-`awk' programming, their format and use deserve a separate chapter.
+`awk' programming, their format and use deserve a separate major node.
A regular expression enclosed in slashes (`/') is an `awk' pattern
-that matches every input record whose text belongs to that set.
-
- The simplest regular expression is a sequence of letters, numbers, or
-both. Such a regexp matches any string that contains that sequence.
-Thus, the regexp `foo' matches any string containing `foo'. Therefore,
-the pattern `/foo/' matches any input record containing the three
-characters `foo', _anywhere_ in the record. Other kinds of regexps let
+that matches every input record whose text belongs to that set. The
+simplest regular expression is a sequence of letters, numbers, or both.
+Such a regexp matches any string that contains that sequence. Thus,
+the regexp `foo' matches any string containing `foo'. Therefore, the
+pattern `/foo/' matches any input record containing the three
+characters `foo' _anywhere_ in the record. Other kinds of regexps let
you specify more complicated classes of strings.
* Menu:
@@ -1523,6 +1947,7 @@ you specify more complicated classes of strings.
* Regexp Usage:: How to Use Regular Expressions.
* Escape Sequences:: How to write non-printing characters.
* Regexp Operators:: Regular Expression Operators.
+* Character Lists:: What can go between `[...]'.
* GNU Regexp Operators:: Operators specific to GNU software.
* Case-sensitivity:: How to do case-insensitive matching.
* Leftmost Longest:: How much text matches.
@@ -1537,8 +1962,9 @@ How to Use Regular Expressions
A regular expression can be used as a pattern by enclosing it in
slashes. Then the regular expression is tested against the entire text
of each record. (Normally, it only needs to match some part of the
-text in order to succeed.) For example, this prints the second field
-of each record that contains the three characters `foo' anywhere in it:
+text in order to succeed.) For example, the following prints the
+second field of each record that contains the string `foo' anywhere in
+it:
$ awk '/foo/ { print $2 }' BBS-list
-| 555-1234
@@ -1548,43 +1974,46 @@ of each record that contains the three characters `foo' anywhere in it:
Regular expressions can also be used in matching expressions. These
expressions allow you to specify the string to match against; it need
-not be the entire current input record. The two operators, `~' and
-`!~', perform regular expression comparisons. Expressions using these
-operators can be used as patterns or in `if', `while', `for', and `do'
-statements. (*Note Control Statements in Actions: Statements.)
-
-`EXP ~ /REGEXP/'
- This is true if the expression EXP (taken as a string) is matched
- by REGEXP. The following example matches, or selects, all input
- records with the upper-case letter `J' somewhere in the first
- field:
-
- $ awk '$1 ~ /J/' inventory-shipped
- -| Jan 13 25 15 115
- -| Jun 31 42 75 492
- -| Jul 24 34 67 436
- -| Jan 21 36 64 620
-
- So does this:
-
- awk '{ if ($1 ~ /J/) print }' inventory-shipped
-
-`EXP !~ /REGEXP/'
- This is true if the expression EXP (taken as a character string)
- is _not_ matched by REGEXP. The following example matches, or
- selects, all input records whose first field _does not_ contain
- the upper-case letter `J':
-
- $ awk '$1 !~ /J/' inventory-shipped
- -| Feb 15 32 24 226
- -| Mar 15 24 34 228
- -| Apr 31 52 63 420
- -| May 16 34 29 208
- ...
+not be the entire current input record. The two operators `~' and `!~'
+perform regular expression comparisons. Expressions using these
+operators can be used as patterns, or in `if', `while', `for', and `do'
+statements. (*Note Control Statements in Actions: Statements.) For
+example:
- When a regexp is written enclosed in slashes, like `/foo/', we call
-it a "regexp constant", much like `5.27' is a numeric constant, and
-`"foo"' is a string constant.
+ EXP ~ /REGEXP/
+
+is true if the expression EXP (taken as a string) matches REGEXP. The
+following example matches, or selects, all input records with the
+uppercase letter `J' somewhere in the first field:
+
+ $ awk '$1 ~ /J/' inventory-shipped
+ -| Jan 13 25 15 115
+ -| Jun 31 42 75 492
+ -| Jul 24 34 67 436
+ -| Jan 21 36 64 620
+
+ So does this:
+
+ awk '{ if ($1 ~ /J/) print }' inventory-shipped
+
+ This next example is true if the expression EXP (taken as a
+character string) does _not_ match REGEXP:
+
+ EXP !~ /REGEXP/
+
+ The following example matches, or selects, all input records whose
+first field _does not_ contain the uppercase letter `J':
+
+ $ awk '$1 !~ /J/' inventory-shipped
+ -| Feb 15 32 24 226
+ -| Mar 15 24 34 228
+ -| Apr 31 52 63 420
+ -| May 16 34 29 208
+ ...
+
+ When a regexp is enclosed in slashes, such as `/foo/', we call it a
+"regexp constant", much like `5.27' is a numeric constant and `"foo"'
+is a string constant.

File: gawk.info, Node: Escape Sequences, Next: Regexp Operators, Prev: Regexp Usage, Up: Regexp
@@ -1593,393 +2022,259 @@ Escape Sequences
================
Some characters cannot be included literally in string constants
-(`"foo"') or regexp constants (`/foo/'). You represent them instead
-with "escape sequences", which are character sequences beginning with a
-backslash (`\').
-
- One use of an escape sequence is to include a double-quote character
-in a string constant. Since a plain double-quote would end the string,
-you must use `\"' to represent an actual double-quote character as a
-part of the string. For example:
+(`"foo"') or regexp constants (`/foo/'). Instead, they should be
+represented with "escape sequences", which are character sequences
+beginning with a backslash (`\'). One use of an escape sequence is to
+include a double quote character in a string constant. Because a plain
+double quote ends the string, you must use `\"' to represent an actual
+double quote character as a part of the string. For example:
$ awk 'BEGIN { print "He said \"hi!\" to her." }'
-| He said "hi!" to her.
The backslash character itself is another character that cannot be
-included normally; you write `\\' to put one backslash in the string or
-regexp. Thus, the string whose contents are the two characters `"' and
-`\' must be written `"\"\\"'.
+included normally; you must write `\\' to put one backslash in the
+string or regexp. Thus, the string whose contents are the two
+characters `"' and `\' must be written `"\"\\"'.
Another use of backslash is to represent unprintable characters such
as tab or newline. While there is nothing to stop you from entering
most unprintable characters directly in a string constant or regexp
constant, they may look ugly.
- Here is a table of all the escape sequences used in `awk', and what
-they represent. Unless noted otherwise, all of these escape sequences
-apply to both string constants and regexp constants.
+ The following table lists all the escape sequences used in `awk' and
+what they represent. Unless noted otherwise, all these escape sequences
+apply to both string constants and regexp constants:
`\\'
A literal backslash, `\'.
`\a'
- The "alert" character, `Control-g', ASCII code 7 (BEL).
+ The "alert" character, `Ctrl-g', ASCII code 7 (BEL). (This
+ usually makes some sort of audible noise.)
`\b'
- Backspace, `Control-h', ASCII code 8 (BS).
+ Backspace, `Ctrl-h', ASCII code 8 (BS).
`\f'
- Formfeed, `Control-l', ASCII code 12 (FF).
+ Formfeed, `Ctrl-l', ASCII code 12 (FF).
`\n'
- Newline, `Control-j', ASCII code 10 (LF).
+ Newline, `Ctrl-j', ASCII code 10 (LF).
`\r'
- Carriage return, `Control-m', ASCII code 13 (CR).
+ Carriage return, `Ctrl-m', ASCII code 13 (CR).
`\t'
- Horizontal tab, `Control-i', ASCII code 9 (HT).
+ Horizontal tab, `Ctrl-i', ASCII code 9 (HT).
`\v'
- Vertical tab, `Control-k', ASCII code 11 (VT).
+ Vertical tab, `Ctrl-k', ASCII code 11 (VT).
`\NNN'
- The octal value NNN, where NNN are one to three digits between `0'
- and `7'. For example, the code for the ASCII ESC (escape)
+ The octal value NNN, where NNN stands for 1 to 3 digits between
+ `0' and `7'. For example, the code for the ASCII ESC (escape)
character is `\033'.
`\xHH...'
- The hexadecimal value HH, where HH are hexadecimal digits (`0'
- through `9' and either `A' through `F' or `a' through `f'). Like
- the same construct in ANSI C, the escape sequence continues until
- the first non-hexadecimal digit is seen. However, using more than
- two hexadecimal digits produces undefined results. (The `\x'
- escape sequence is not allowed in POSIX `awk'.)
+ The hexadecimal value HH, where HH stands for a sequence of
+ hexadecimal digits (`0' through `9', and either `A' through `F' or
+ `a' through `f'). Like the same construct in ISO C, the escape
+ sequence continues until the first non-hexadecimal digit is seen.
+ However, using more than two hexadecimal digits produces undefined
+ results. (The `\x' escape sequence is not allowed in POSIX `awk'.)
`\/'
- A literal slash (necessary for regexp constants only). You use
- this when you wish to write a regexp constant that contains a
- slash. Since the regexp is delimited by slashes, you need to
- escape the slash that is part of the pattern, in order to tell
- `awk' to keep processing the rest of the regexp.
+ A literal slash (necessary for regexp constants only). This
+ expression is used when you want to write a regexp constant that
+ contains a slash. Because the regexp is delimited by slashes, you
+ need to escape the slash that is part of the pattern, in order to
+ tell `awk' to keep processing the rest of the regexp.
`\"'
- A literal double-quote (necessary for string constants only). You
- use this when you wish to write a string constant that contains a
- double-quote. Since the string is delimited by double-quotes, you
- need to escape the quote that is part of the string, in order to
- tell `awk' to keep processing the rest of the string.
-
- In `gawk', there are additional two character sequences that begin
-with backslash that have special meaning in regexps. *Note Additional
-Regexp Operators Only in `gawk': GNU Regexp Operators.
-
- In a string constant, what happens if you place a backslash before
-something that is not one of the characters listed above? POSIX `awk'
-purposely leaves this case undefined. There are two choices.
-
- * Strip the backslash out. This is what Unix `awk' and `gawk' both
- do. For example, `"a\qc"' is the same as `"aqc"'.
+ A literal double quote (necessary for string constants only).
+ This expression is used when you want to write a string constant
+ that contains a double quote. Because the string is delimited by
+ double quotes, you need to escape the quote that is part of the
+ string, in order to tell `awk' to keep processing the rest of the
+ string.
- * Leave the backslash alone. Some other `awk' implementations do
- this. In such implementations, `"a\qc"' is the same as if you had
- typed `"a\\qc"'.
+ In `gawk', a number of additional two-character sequences that begin
+with a backslash have special meaning in regexps. *Note
+`gawk'-Specific Regexp Operators: GNU Regexp Operators.
In a regexp, a backslash before any character that is not in the
-above table, and not listed in *Note Additional Regexp Operators Only
-in `gawk': GNU Regexp Operators, means that the next character should
-be taken literally, even if it would normally be a regexp operator.
-E.g., `/a\+b/' matches the three characters `a+b'.
+above table and not listed in *Note `gawk'-Specific Regexp Operators:
+GNU Regexp Operators, means that the next character should be taken
+literally, even if it would normally be a regexp operator. For
+example, `/a\+b/' matches the three characters `a+b'.
For complete portability, do not use a backslash before any
-character not listed in the table above.
-
- Another interesting question arises. Suppose you use an octal or
-hexadecimal escape to represent a regexp metacharacter (*note Regular
-Expression Operators: Regexp Operators.). Does `awk' treat the
-character as a literal character, or as a regexp operator?
-
- It turns out that historically, such characters were taken literally
-(d.c.). However, the POSIX standard indicates that they should be
-treated as real metacharacters, and this is what `gawk' does. However,
-in compatibility mode (*note Command Line Options: Options.), `gawk'
-treats the characters represented by octal and hexadecimal escape
-sequences literally when used in regexp constants. Thus, `/a\52b/' is
-equivalent to `/a\*b/'.
+character not shown in the table above.
To summarize:
- 1. The escape sequences in the table above are always processed first,
+ * The escape sequences in the table above are always processed first,
for both string constants and regexp constants. This happens very
early, as soon as `awk' reads your program.
- 2. `gawk' processes both regexp constants and dynamic regexps (*note
+ * `gawk' processes both regexp constants and dynamic regexps (*note
Using Dynamic Regexps: Computed Regexps.), for the special
- operators listed in *Note Additional Regexp Operators Only in
- `gawk': GNU Regexp Operators.
+ operators listed in *Note `gawk'-Specific Regexp Operators: GNU
+ Regexp Operators.
- 3. A backslash before any other character means to treat that
+ * A backslash before any other character means to treat that
character literally.
+Advanced Notes: Backslash Before Regular Characters
+---------------------------------------------------
+
+ If you place a backslash in a string constant before something that
+is not one of the characters listed above, POSIX `awk' purposely leaves
+what happens as undefined. There are two choices:
+
+Strip the backslash out
+ This is what Unix `awk' and `gawk' both do. For example, `"a\qc"'
+ is the same as `"aqc"'. (Because this is such an easy bug to both
+ introduce and to miss, `gawk' warns you about it.) Consider `FS =
+ "[ \t]+\|[ \t]+"' to use vertical bars surrounded by whitespace as
+ the field separator. There should be two backslashes in the
+ string, `FS = "[ \t]+\\|[ \t]+"'.)
+
+Leave the backslash alone
+ Some other `awk' implementations do this. In such
+ implementations, `"a\qc"' is the same as if you had typed
+ `"a\\qc"'.
+
+Advanced Notes: Escape Sequences for Metacharacters
+---------------------------------------------------
+
+ Suppose you use an octal or hexadecimal escape to represent a regexp
+metacharacter (*note Regular Expression Operators: Regexp Operators.).
+Does `awk' treat the character as a literal character or as a regexp
+operator?
+
+ Historically, such characters were taken literally. (d.c.)
+However, the POSIX standard indicates that they should be treated as
+real metacharacters, which is what `gawk' does. In compatibility mode
+(*note Command-Line Options: Options.), `gawk' treats the characters
+represented by octal and hexadecimal escape sequences literally when
+used in regexp constants. Thus, `/a\52b/' is equivalent to `/a\*b/'.
+

-File: gawk.info, Node: Regexp Operators, Next: GNU Regexp Operators, Prev: Escape Sequences, Up: Regexp
+File: gawk.info, Node: Regexp Operators, Next: Character Lists, Prev: Escape Sequences, Up: Regexp
Regular Expression Operators
============================
- You can combine regular expressions with the following characters,
-called "regular expression operators", or "metacharacters", to increase
-the power and versatility of regular expressions.
+ You can combine regular expressions with special characters, called
+"regular expression operators" or "metacharacters", to increase the
+power and versatility of regular expressions.
The escape sequences described in *Note Escape Sequences::, are
-valid inside a regexp. They are introduced by a `\'. They are
+valid inside a regexp. They are introduced by a `\', and are
recognized and converted into the corresponding real characters as the
very first step in processing regexps.
- Here is a table of metacharacters. All characters that are not
-escape sequences and that are not listed in the table stand for
-themselves.
+ Here is a list of metacharacters. All characters that are not escape
+sequences and that are not listed in the table stand for themselves:
`\'
This is used to suppress the special meaning of a character when
- matching. For example:
-
- \$
-
- matches the character `$'.
+ matching. For example, `\$' matches the character `$'.
`^'
- This matches the beginning of a string. For example:
-
- ^@chapter
-
- matches the `@chapter' at the beginning of a string, and can be
- used to identify chapter beginnings in Texinfo source files. The
- `^' is known as an "anchor", since it anchors the pattern to
- matching only at the beginning of the string.
+ This matches the beginning of a string. For example, `^@chapter'
+ matches `@chapter' at the beginning of a string, and can be used
+ to identify chapter beginnings in Texinfo source files. The `^'
+ is known as an "anchor", because it anchors the pattern to match
+ only at the beginning of the string.
It is important to realize that `^' does not match the beginning of
- a line embedded in a string. In this example the condition is not
- true:
+ a line embedded in a string. The condition is not true in the
+ following example:
if ("line1\nLINE 2" ~ /^L/) ...
`$'
- This is similar to `^', but it matches only at the end of a string.
- For example:
-
- p$
-
- matches a record that ends with a `p'. The `$' is also an anchor,
- and also does not match the end of a line embedded in a string.
- In this example the condition is not true:
+ This is similar to `^' but it matches only at the end of a string.
+ For example, `p$' matches a record that ends with a `p'. The `$'
+ is an anchor and does not match the end of a line embedded in a
+ string. The condition is not true in the following example:
if ("line1\nLINE 2" ~ /1$/) ...
`.'
- The period, or dot, matches any single character, _including_ the
- newline character. For example:
-
- .P
-
- matches any single character followed by a `P' in a string. Using
- concatenation we can make a regular expression like `U.A', which
- matches any three-character sequence that begins with `U' and ends
- with `A'.
+ This matches any single character, _including_ the newline
+ character. For example, `.P' matches any single character
+ followed by a `P' in a string. Using concatenation, we can make a
+ regular expression such as `U.A', that matches any three-character
+ sequence that begins with `U' and ends with `A'.
- In strict POSIX mode (*note Command Line Options: Options.), `.'
+ In strict POSIX mode (*note Command-Line Options: Options.), `.'
does not match the NUL character, which is a character with all
bits equal to zero. Otherwise, NUL is just another character.
Other versions of `awk' may not be able to match the NUL character.
`[...]'
- This is called a "character list". It matches any _one_ of the
- characters that are enclosed in the square brackets. For example:
-
- [MVX]
-
- matches any one of the characters `M', `V', or `X' in a string.
-
- Ranges of characters are indicated by using a hyphen between the
- beginning and ending characters, and enclosing the whole thing in
- brackets. For example:
-
- [0-9]
-
- matches any digit. Multiple ranges are allowed. E.g., the list
- `[A-Za-z0-9]' is a common way to express the idea of "all
- alphanumeric characters."
-
- To include one of the characters `\', `]', `-' or `^' in a
- character list, put a `\' in front of it. For example:
-
- [d\]]
-
- matches either `d', or `]'.
-
- This treatment of `\' in character lists is compatible with other
- `awk' implementations, and is also mandated by POSIX. The regular
- expressions in `awk' are a superset of the POSIX specification for
- Extended Regular Expressions (EREs). POSIX EREs are based on the
- regular expressions accepted by the traditional `egrep' utility.
-
- "Character classes" are a new feature introduced in the POSIX
- standard. A character class is a special notation for describing
- lists of characters that have a specific attribute, but where the
- actual characters themselves can vary from country to country
- and/or from character set to character set. For example, the
- notion of what is an alphabetic character differs in the USA and
- in France.
-
- A character class is only valid in a regexp _inside_ the brackets
- of a character list. Character classes consist of `[:', a keyword
- denoting the class, and `:]'. Here are the character classes
- defined by the POSIX standard.
-
- `[:alnum:]'
- Alphanumeric characters.
-
- `[:alpha:]'
- Alphabetic characters.
-
- `[:blank:]'
- Space and tab characters.
-
- `[:cntrl:]'
- Control characters.
-
- `[:digit:]'
- Numeric characters.
-
- `[:graph:]'
- Characters that are printable and are also visible. (A space
- is printable, but not visible, while an `a' is both.)
-
- `[:lower:]'
- Lower-case alphabetic characters.
-
- `[:print:]'
- Printable characters (characters that are not control
- characters.)
-
- `[:punct:]'
- Punctuation characters (characters that are not letter,
- digits, control characters, or space characters).
-
- `[:space:]'
- Space characters (such as space, tab, and formfeed, to name a
- few).
-
- `[:upper:]'
- Upper-case alphabetic characters.
-
- `[:xdigit:]'
- Characters that are hexadecimal digits.
-
- For example, before the POSIX standard, to match alphanumeric
- characters, you had to write `/[A-Za-z0-9]/'. If your character
- set had other alphabetic characters in it, this would not match
- them. With the POSIX character classes, you can write
- `/[[:alnum:]]/', and this will match _all_ the alphabetic and
- numeric characters in your character set.
-
- Two additional special sequences can appear in character lists.
- These apply to non-ASCII character sets, which can have single
- symbols (called "collating elements") that are represented with
- more than one character, as well as several characters that are
- equivalent for "collating", or sorting, purposes. (E.g., in
- French, a plain "e" and a grave-accented "e`" are equivalent.)
-
- Collating Symbols
- A "collating symbol" is a multi-character collating element
- enclosed in `[.' and `.]'. For example, if `ch' is a
- collating element, then `[[.ch.]]' is a regexp that matches
- this collating element, while `[ch]' is a regexp that matches
- either `c' or `h'.
-
- Equivalence Classes
- An "equivalence class" is a locale-specific name for a list of
- characters that are equivalent. The name is enclosed in `[='
- and `=]'. For example, the name `e' might be used to
- represent all of "e," "e`," and "e'." In this case, `[[=e]]'
- is a regexp that matches any of `e', `e'', or `e`'.
-
- These features are very valuable in non-English speaking locales.
-
- *Caution:* The library functions that `gawk' uses for regular
- expression matching currently only recognize POSIX character
- classes; they do not recognize collating symbols or equivalence
- classes.
+ This is called a "character list".(1) It matches any _one_ of the
+ characters that are enclosed in the square brackets. For example,
+ `[MVX]' matches any one of the characters `M', `V', or `X', in a
+ string. A full discussion of what can be inside the square
+ brackets of a character list is given in *Note Using Character
+ Lists: Character Lists.
`[^ ...]'
This is a "complemented character list". The first character after
the `[' _must_ be a `^'. It matches any characters _except_ those
- in the square brackets. For example:
-
- [^0-9]
-
- matches any character that is not a digit.
+ in the square brackets. For example, `[^awk]' matches any
+ character that is not an `a', a `w', or a `k'.
`|'
- This is the "alternation operator", and it is used to specify
- alternatives. For example:
-
- ^P|[0-9]
-
- matches any string that matches either `^P' or `[0-9]'. This
- means it matches any string that starts with `P' or contains a
- digit.
+ This is the "alternation operator" and it is used to specify
+ alternatives. The `|' has the lowest precedence of all the regular
+ expression operators. For example, `^P|[[:digit:]]' matches any
+ string that matches either `^P' or `[[:digit:]]'. This means it
+ matches any string that starts with `P' or contains a digit.
The alternation applies to the largest possible regexps on either
- side. In other words, `|' has the lowest precedence of all the
- regular expression operators.
+ side.
`(...)'
- Parentheses are used for grouping in regular expressions as in
- arithmetic. They can be used to concatenate regular expressions
+ Parentheses are used for grouping in regular expressions, similar
+ to arithmetic. They can be used to concatenate regular expressions
containing the alternation operator, `|'. For example,
- `@(samp|code)\{[^}]+\}' matches both `@code{foo}' and
- `@samp{bar}'. (These are Texinfo formatting control sequences.)
+ `@(samp|code)\{[^}]+\}' matches both `@code{foo}' and `@samp{bar}'.
+ (These are Texinfo formatting control sequences.)
`*'
- This symbol means that the preceding regular expression is to be
- repeated as many times as necessary to find a match. For example:
-
- ph*
-
- applies the `*' symbol to the preceding `h' and looks for matches
- of one `p' followed by any number of `h's. This will also match
- just `p' if no `h's are present.
+ This symbol means that the preceding regular expression should be
+ repeated as many times as necessary to find a match. For example,
+ `ph*' applies the `*' symbol to the preceding `h' and looks for
+ matches of one `p' followed by any number of `h's. This also
+ matches just `p' if no `h's are present.
The `*' repeats the _smallest_ possible preceding expression.
- (Use parentheses if you wish to repeat a larger expression.) It
- finds as many repetitions as possible. For example:
-
- awk '/\(c[ad][ad]*r x\)/ { print }' sample
-
- prints every record in `sample' containing a string of the form
- `(car x)', `(cdr x)', `(cadr x)', and so on. Notice the escaping
- of the parentheses by preceding them with backslashes.
+ (Use parentheses if you want to repeat a larger expression.) It
+ finds as many repetitions as possible. For example, `awk
+ '/\(c[ad][ad]*r x\)/ { print }' sample' prints every record in
+ `sample' containing a string of the form `(car x)', `(cdr x)',
+ `(cadr x)', and so on. Notice the escaping of the parentheses by
+ preceding them with backslashes.
`+'
- This symbol is similar to `*', but the preceding expression must be
- matched at least once. This means that:
-
- wh+y
-
- would match `why' and `whhy' but not `wy', whereas `wh*y' would
- match all three of these strings. This is a simpler way of
- writing the last `*' example:
+ This symbol is similar to `*' except that the preceding expression
+ must be matched at least once. This means that `wh+y' would match
+ `why' and `whhy', but not `wy', whereas `wh*y' would match all
+ three of these strings. The following is a simpler way of writing
+ the last `*' example:
awk '/\(c[ad]+r x\)/ { print }' sample
`?'
- This symbol is similar to `*', but the preceding expression can be
- matched either once or not at all. For example:
-
- fe?d
-
- will match `fed' and `fd', but nothing else.
+ This symbol is similar to `*' except that the preceding expression
+ can be matched either once or not at all. For example, `fe?d'
+ matches `fed' and `fd', but nothing else.
`{N}'
`{N,}'
@@ -1989,111 +2284,212 @@ themselves.
repeated N times. If there are two numbers separated by a comma,
the preceding regexp is repeated N to M times. If there is one
number followed by a comma, then the preceding regexp is repeated
- at least N times.
+ at least N times:
`wh{3}y'
- matches `whhhy' but not `why' or `whhhhy'.
+ Matches `whhhy', but not `why' or `whhhhy'.
`wh{3,5}y'
- matches `whhhy' or `whhhhy' or `whhhhhy', only.
+ Matches `whhhy', `whhhhy', or `whhhhhy', only.
`wh{2,}y'
- matches `whhy' or `whhhy', and so on.
+ Matches `whhy' or `whhhy', and so on.
Interval expressions were not traditionally available in `awk'.
- As part of the POSIX standard they were added, to make `awk' and
+ They were added as part of the POSIX standard to make `awk' and
`egrep' consistent with each other.
- However, since old programs may use `{' and `}' in regexp
+ However, because old programs may use `{' and `}' in regexp
constants, by default `gawk' does _not_ match interval expressions
in regexps. If either `--posix' or `--re-interval' are specified
- (*note Command Line Options: Options.), then interval expressions
+ (*note Command-Line Options: Options.), then interval expressions
are allowed in regexps.
+ For new programs that use `{' and `}' in regexp constants, it is
+ good practice to always escape them with a backslash. Then the
+ regexp constants are valid and work the way you want them to, using
+ any version of `awk'.(2)
+
In regular expressions, the `*', `+', and `?' operators, as well as
the braces `{' and `}', have the highest precedence, followed by
concatenation, and finally by `|'. As in arithmetic, parentheses can
change how operators are grouped.
- If `gawk' is in compatibility mode (*note Command Line Options:
-Options.), character classes and interval expressions are not available
-in regular expressions.
+ In POSIX `awk' and `gawk', the `*', `+', and `?' operators stand for
+themselves when there is nothing in the regexp that precedes them. For
+example, `/+/' matches a literal plus sign. However, many other
+versions of `awk' treat such a usage as a syntax error.
+
+ If `gawk' is in compatibility mode (*note Command-Line Options:
+Options.), POSIX character classes and interval expressions are not
+available in regular expressions.
+
+ ---------- Footnotes ----------
+
+ (1) In other literature, you may see a character list referred to as
+either a "character set", a "character class" or a "bracket expression".
- The next node discusses the GNU-specific regexp operators, and
-provides more detail concerning how command line options affect the way
-`gawk' interprets the characters in regular expressions.
+ (2) Use two backslashes if you're using a string constant with a
+regexp operator or function.

-File: gawk.info, Node: GNU Regexp Operators, Next: Case-sensitivity, Prev: Regexp Operators, Up: Regexp
+File: gawk.info, Node: Character Lists, Next: GNU Regexp Operators, Prev: Regexp Operators, Up: Regexp
-Additional Regexp Operators Only in `gawk'
-==========================================
+Using Character Lists
+=====================
+
+ Within a character list, a "range expression" consists of two
+characters separated by a hyphen. It matches any single character that
+sorts between the two characters, using the locale's collating sequence
+and character set. For example, in the default C locale, `[a-dx-z]' is
+equivalent to `[abcdxyz]'. Many locales sort characters in dictionary
+order, and in these locales, `[a-dx-z]' is typically not equivalent to
+`[abcdxyz]'; instead it might be equivalent to `[aBbCcDdxXyYz]', for
+example. To obtain the traditional interpretation of bracket
+expressions, you can use the C locale by setting the `LC_ALL'
+environment variable to the value `C'.
+
+ To include one of the characters `\', `]', `-', or `^' in a
+character list, put a `\' in front of it. For example:
+
+ [d\]]
+
+matches either `d' or `]'.
+
+ This treatment of `\' in character lists is compatible with other
+`awk' implementations and is also mandated by POSIX. The regular
+expressions in `awk' are a superset of the POSIX specification for
+Extended Regular Expressions (EREs). POSIX EREs are based on the
+regular expressions accepted by the traditional `egrep' utility.
+
+ "Character classes" are a new feature introduced in the POSIX
+standard. A character class is a special notation for describing lists
+of characters that have a specific attribute, but the actual characters
+can vary from country to country and/or from character set to character
+set. For example, the notion of what is an alphabetic character
+differs between the United States and France.
+
+ A character class is only valid in a regexp _inside_ the brackets of
+a character list. Character classes consist of `[:', a keyword
+denoting the class, and `:]'. Here are the character classes defined
+by the POSIX standard:
+
+`[:alnum:]' Alphanumeric characters.
+`[:alpha:]' Alphabetic characters.
+`[:blank:]' Space and tab characters.
+`[:cntrl:]' Control characters.
+`[:digit:]' Numeric characters.
+`[:graph:]' Characters that are both printable and visible. (A space is
+ printable but not visible, whereas an `a' is both.)
+`[:lower:]' Lowercase alphabetic characters.
+`[:print:]' Printable characters (characters that are not control
+ characters).
+`[:punct:]' Punctuation characters (characters that are not letters,
+ digits, control characters, or space characters).
+`[:space:]' Space characters (such as space, tab, and formfeed, to name a
+ few).
+`[:upper:]' Uppercase alphabetic characters.
+`[:xdigit:]' Characters that are hexadecimal digits.
+
+ For example, before the POSIX standard, you had to write
+`/[A-Za-z0-9]/' to match alphanumeric characters. If your character
+set had other alphabetic characters in it, this would not match them,
+and if your character set collated differently from ASCII, this might
+not even match the ASCII alphanumeric characters. With the POSIX
+character classes, you can write `/[[:alnum:]]/' to match the alphabetic
+and numeric characters in your character set.
+
+ Two additional special sequences can appear in character lists.
+These apply to non-ASCII character sets, which can have single symbols
+(called "collating elements") that are represented with more than one
+character. They can also have several characters that are equivalent for
+"collating", or sorting, purposes. (For example, in French, a plain "e"
+and a grave-accented "e`" are equivalent.)
+
+Collating Symbols
+ A "collating symbol" is a multicharacter collating element
+ enclosed between `[.' and `.]'. For example, if `ch' is a
+ collating element, then `[[.ch.]]' is a regexp that matches this
+ collating element, whereas `[ch]' is a regexp that matches either
+ `c' or `h'.
+
+Equivalence Classes
+ An "equivalence class" is a locale-specific name for a list of
+ characters that are equal. The name is enclosed between `[=' and
+ `=]'. For example, the name `e' might be used to represent all of
+ "e," "e`," and "e'." In this case, `[[=e=]]' is a regexp that
+ matches any of `e', `e'', or `e`'.
+
+ These features are very valuable in non-English speaking locales.
+
+ *Caution:* The library functions that `gawk' uses for regular
+expression matching currently only recognize POSIX character classes;
+they do not recognize collating symbols or equivalence classes.
+
+
+File: gawk.info, Node: GNU Regexp Operators, Next: Case-sensitivity, Prev: Character Lists, Up: Regexp
+
+`gawk'-Specific Regexp Operators
+================================
GNU software that deals with regular expressions provides a number of
additional regexp operators. These operators are described in this
-section, and are specific to `gawk'; they are not available in other
-`awk' implementations.
-
- Most of the additional operators are for dealing with word matching.
-For our purposes, a "word" is a sequence of one or more letters, digits,
-or underscores (`_').
+minor node and are specific to `gawk'; they are not available in other
+`awk' implementations. Most of the additional operators deal with word
+matching. For our purposes, a "word" is a sequence of one or more
+letters, digits, or underscores (`_'):
`\w'
- This operator matches any word-constituent character, i.e. any
- letter, digit, or underscore. Think of it as a short-hand for
+ Matches any word-constituent character--that is, it matches any
+ letter, digit, or underscore. Think of it as short-hand for
`[[:alnum:]_]'.
`\W'
- This operator matches any character that is not word-constituent.
- Think of it as a short-hand for `[^[:alnum:]_]'.
+ Matches any character that is not word-constituent. Think of it
+ as short-hand for `[^[:alnum:]_]'.
`\<'
- This operator matches the empty string at the beginning of a word.
- For example, `/\<away/' matches `away', but not `stowaway'.
+ Matches the empty string at the beginning of a word. For example,
+ `/\<away/' matches `away' but not `stowaway'.
`\>'
- This operator matches the empty string at the end of a word. For
- example, `/stow\>/' matches `stow', but not `stowaway'.
+ Matches the empty string at the end of a word. For example,
+ `/stow\>/' matches `stow' but not `stowaway'.
`\y'
- This operator matches the empty string at either the beginning or
- the end of a word (the word boundar*y*). For example, `\yballs?\y'
- matches either `ball' or `balls' as a separate word.
+ Matches the empty string at either the beginning or the end of a
+ word (i.e., the word boundar*y*). For example, `\yballs?\y'
+ matches either `ball' or `balls', as a separate word.
`\B'
- This operator matches the empty string within a word. In other
- words, `\B' matches the empty string that occurs between two
- word-constituent characters. For example, `/\Brat\B/' matches
- `crate', but it does not match `dirty rat'. `\B' is essentially
- the opposite of `\y'.
+ Matches the empty string that occurs between two word-constituent
+ characters. For example, `/\Brat\B/' matches `crate' but it does
+ not match `dirty rat'. `\B' is essentially the opposite of `\y'.
There are two other operators that work on buffers. In Emacs, a
-"buffer" is, naturally, an Emacs buffer. For other programs, the
-regexp library routines that `gawk' uses consider the entire string to
-be matched as the buffer.
-
- For `awk', since `^' and `$' always work in terms of the beginning
-and end of strings, these operators don't add any new capabilities.
-They are provided for compatibility with other GNU software.
+"buffer" is, naturally, an Emacs buffer. For other programs, `gawk''s
+regexp library routines consider the entire string to match as the
+buffer.
`\`'
- This operator matches the empty string at the beginning of the
- buffer.
+ Matches the empty string at the beginning of a buffer (string).
`\''
- This operator matches the empty string at the end of the buffer.
+ Matches the empty string at the end of a buffer (string).
- In other GNU software, the word boundary operator is `\b'. However,
-that conflicts with the `awk' language's definition of `\b' as
-backspace, so `gawk' uses a different letter.
+ Because `^' and `$' always work in terms of the beginning and end of
+strings, these operators don't add any new capabilities for `awk'.
+They are provided for compatibility with other GNU software.
- An alternative method would have been to require two backslashes in
-the GNU operators, but this was deemed to be too confusing, and the
-current method of using `\y' for the GNU `\b' appears to be the lesser
-of two evils.
+ In other GNU software, the word-boundary operator is `\b'. However,
+that conflicts with the `awk' language's definition of `\b' as
+backspace, so `gawk' uses a different letter. An alternative method
+would have been to require two backslashes in the GNU operators, but
+this was deemed too confusing. The current method of using `\y' for the
+GNU `\b' appears to be the lesser of two evils.
- The various command line options (*note Command Line Options:
-Options.) control how `gawk' interprets characters in regexps.
+ The various command-line options (*note Command-Line Options:
+Options.) control how `gawk' interprets characters in regexps:
No options
In the default case, `gawk' provides all the facilities of POSIX
@@ -2102,16 +2498,16 @@ No options
expressions are not supported.
`--posix'
- Only POSIX regexps are supported, the GNU operators are not special
+ Only POSIX regexps are supported; the GNU operators are not special
(e.g., `\w' matches a literal `w'). Interval expressions are
allowed.
`--traditional'
Traditional Unix `awk' regexps are matched. The GNU operators are
- not special, interval expressions are not available, and neither
- are the POSIX character classes (`[[:alnum:]]' and so on).
- Characters described by octal and hexadecimal escape sequences are
- treated literally, even if they represent regexp metacharacters.
+ not special, interval expressions are not available, nor are the
+ POSIX character classes (`[[:alnum:]]' and so on). Characters
+ described by octal and hexadecimal escape sequences are treated
+ literally, even if they represent regexp metacharacters.
`--re-interval'
Allow interval expressions in regexps, even if `--traditional' has
@@ -2120,36 +2516,36 @@ No options

File: gawk.info, Node: Case-sensitivity, Next: Leftmost Longest, Prev: GNU Regexp Operators, Up: Regexp
-Case-sensitivity in Matching
+Case Sensitivity in Matching
============================
Case is normally significant in regular expressions, both when
-matching ordinary characters (i.e. not metacharacters), and inside
-character sets. Thus a `w' in a regular expression matches only a
-lower-case `w' and not an upper-case `W'.
+matching ordinary characters (i.e., not metacharacters) and inside
+character sets. Thus, a `w' in a regular expression matches only a
+lowercase `w' and not an uppercase `W'.
The simplest way to do a case-independent match is to use a character
-list: `[Ww]'. However, this can be cumbersome if you need to use it
-often; and it can make the regular expressions harder to read. There
-are two alternatives that you might prefer.
-
- One way to do a case-insensitive match at a particular point in the
-program is to convert the data to a single case, using the `tolower' or
-`toupper' built-in string functions (which we haven't discussed yet;
-*note Built-in Functions for String Manipulation: String Functions.).
+list--for example, `[Ww]'. However, this can be cumbersome if you need
+to use it often and it can make the regular expressions harder to read.
+There are two alternatives that you might prefer.
+
+ One way to perform a case-insensitive match at a particular point in
+the program is to convert the data to a single case, using the
+`tolower' or `toupper' built-in string functions (which we haven't
+discussed yet; *note String Manipulation Functions: String Functions.).
For example:
tolower($1) ~ /foo/ { ... }
-converts the first field to lower-case before matching against it.
-This will work in any POSIX-compliant implementation of `awk'.
+converts the first field to lowercase before matching against it. This
+works in any POSIX-compliant `awk'.
Another method, specific to `gawk', is to set the variable
-`IGNORECASE' to a non-zero value (*note Built-in Variables::). When
+`IGNORECASE' to a nonzero value (*note Built-in Variables::). When
`IGNORECASE' is not zero, _all_ regexp and string operations ignore
case. Changing the value of `IGNORECASE' dynamically controls the case
-sensitivity of your program as it runs. Case is significant by default
-because `IGNORECASE' (like most variables) is initialized to zero.
+sensitivity of the program as it runs. Case is significant by default
+because `IGNORECASE' (like most variables) is initialized to zero:
x = "aB"
if (x ~ /ab/) ... # this test will fail
@@ -2158,66 +2554,70 @@ because `IGNORECASE' (like most variables) is initialized to zero.
if (x ~ /ab/) ... # now it will succeed
In general, you cannot use `IGNORECASE' to make certain rules
-case-insensitive and other rules case-sensitive, because there is no way
-to set `IGNORECASE' just for the pattern of a particular rule. To do
-this, you must use character lists or `tolower'. However, one thing
-you can do only with `IGNORECASE' is turn case-sensitivity on or off
-dynamically for all the rules at once.
-
- `IGNORECASE' can be set on the command line, or in a `BEGIN' rule
-(*note Other Command Line Arguments: Other Arguments.; also *note
+case-insensitive and other rules case-sensitive, because there is no
+straightforward way to set `IGNORECASE' just for the pattern of a
+particular rule.(1) To do this, use either character lists or
+`tolower'. However, one thing you can do with `IGNORECASE' only is
+dynamically turn case-sensitivity on or off for all the rules at once.
+
+ `IGNORECASE' can be set on the command line or in a `BEGIN' rule
+(*note Other Command-Line Arguments: Other Arguments.; also *note
Startup and Cleanup Actions: Using BEGIN/END.). Setting `IGNORECASE'
from the command line is a way to make a program case-insensitive
without having to edit it.
- Prior to version 3.0 of `gawk', the value of `IGNORECASE' only
-affected regexp operations. It did not affect string comparison with
-`==', `!=', and so on. Beginning with version 3.0, both regexp and
-string comparison operations are affected by `IGNORECASE'.
+ Prior to `gawk' 3.0, the value of `IGNORECASE' affected regexp
+operations only. It did not affect string comparison with `==', `!=',
+and so on. Beginning with version 3.0, both regexp and string
+comparison operations are also affected by `IGNORECASE'.
- Beginning with version 3.0 of `gawk', the equivalences between
-upper-case and lower-case characters are based on the ISO-8859-1 (ISO
-Latin-1) character set. This character set is a superset of the
-traditional 128 ASCII characters, that also provides a number of
-characters suitable for use with European languages.
+ Beginning with `gawk' 3.0, the equivalences between upper- and
+lowercase characters are based on the ISO-8859-1 (ISO Latin-1)
+character set. This character set is a superset of the traditional 128
+ASCII characters, that also provides a number of characters suitable
+for use with European languages.
The value of `IGNORECASE' has no effect if `gawk' is in
-compatibility mode (*note Command Line Options: Options.). Case is
+compatibility mode (*note Command-Line Options: Options.). Case is
always significant in compatibility mode.
+ ---------- Footnotes ----------
+
+ (1) Experienced C and C++ programmers will note that it is possible,
+using something like `IGNORECASE = 1 && /foObAr/ { ... }' and
+`IGNORECASE = 0 || /foobar/ { ... }'. However, this is somewhat
+obscure and we don't recommend it.
+

File: gawk.info, Node: Leftmost Longest, Next: Computed Regexps, Prev: Case-sensitivity, Up: Regexp
How Much Text Matches?
======================
- Consider the following example:
+ Consider the following:
echo aaaabcd | awk '{ sub(/a+/, "<A>"); print }'
- This example uses the `sub' function (which we haven't discussed yet,
-*note Built-in Functions for String Manipulation: String Functions.)
-to make a change to the input record. Here, the regexp `/a+/' indicates
-"one or more `a' characters," and the replacement text is `<A>'.
-
- The input contains four `a' characters. What will the output be?
-In other words, how many is "one or more"--will `awk' match two, three,
-or all four `a' characters?
+ This example uses the `sub' function (which we haven't discussed yet;
+*note String Manipulation Functions: String Functions.) to make a
+change to the input record. Here, the regexp `/a+/' indicates "one or
+more `a' characters," and the replacement text is `<A>'.
- The answer is, `awk' (and POSIX) regular expressions always match
-the leftmost, _longest_ sequence of input characters that can match.
-Thus, in this example, all four `a' characters are replaced with `<A>'.
+ The input contains four `a' characters. `awk' (and POSIX) regular
+expressions always match the leftmost, _longest_ sequence of input
+characters that can match. Thus, all four `a' characters are replaced
+with `<A>' in this example:
$ echo aaaabcd | awk '{ sub(/a+/, "<A>"); print }'
-| <A>bcd
For simple match/no-match tests, this is not so important. But when
doing text matching and substitutions with the `match', `sub', `gsub',
-and `gensub' functions, it is very important. *Note Built-in Functions
-for String Manipulation: String Functions, for more information on
-these functions. Understanding this principle is also important for
-regexp-based record and field splitting (*note How Input is Split into
-Records: Records., and also *note Specifying How Fields are Separated:
+and `gensub' functions, it is very important. *Note String
+Manipulation Functions: String Functions, for more information on these
+functions. Understanding this principle is also important for
+regexp-based record and field splitting (*note How Input Is Split into
+Records: Records., and also *note Specifying How Fields Are Separated:
Field Separators.).

@@ -2226,27 +2626,27 @@ File: gawk.info, Node: Computed Regexps, Prev: Leftmost Longest, Up: Regexp
Using Dynamic Regexps
=====================
- The right hand side of a `~' or `!~' operator need not be a regexp
-constant (i.e. a string of characters between slashes). It may be any
-expression. The expression is evaluated, and converted if necessary to
-a string; the contents of the string are used as the regexp. A regexp
-that is computed in this way is called a "dynamic regexp". For example:
+ The righthand side of a `~' or `!~' operator need not be a regexp
+constant (i.e., a string of characters between slashes). It may be any
+expression. The expression is evaluated and converted to a string if
+necessary; the contents of the string are used as the regexp. A regexp
+that is computed in this way is called a "dynamic regexp":
- BEGIN { identifier_regexp = "[A-Za-z_][A-Za-z_0-9]*" }
- $0 ~ identifier_regexp { print }
+ BEGIN { digits_regexp = "[[:digit:]]+" }
+ $0 ~ digits_regexp { print }
-sets `identifier_regexp' to a regexp that describes `awk' variable
-names, and tests if the input record matches this regexp.
+This sets `digits_regexp' to a regexp that describes one or more digits,
+and tests whether the input record matches this regexp.
- *Caution:* When using the `~' and `!~' operators, there is a
-difference between a regexp constant enclosed in slashes, and a string
-constant enclosed in double quotes. If you are going to use a string
-constant, you have to understand that the string is in essence scanned
-_twice_; the first time when `awk' reads your program, and the second
-time when it goes to match the string on the left-hand side of the
-operator with the pattern on the right. This is true of any string
-valued expression (such as `identifier_regexp' above), not just string
-constants.
+ When using the `~' and `!~' *Caution:* When using the `~' and `!~'
+operators, there is a difference between a regexp constant enclosed in
+slashes and a string constant enclosed in double quotes. If you are
+going to use a string constant, you have to understand that the string
+is, in essence, scanned _twice_: the first time when `awk' reads your
+program, and the second time when it goes to match the string on the
+lefthand side of the operator with the pattern on the right. This is
+true of any string valued expression (such as `digits_regexp' shown
+previously), not just string constants.
What difference does it make if the string is scanned twice? The
answer has to do with escape sequences, and particularly with
@@ -2254,28 +2654,51 @@ backslashes. To get a backslash into a regular expression inside a
string, you have to type two backslashes.
For example, `/\*/' is a regexp constant for a literal `*'. Only
-one backslash is needed. To do the same thing with a string, you would
-have to type `"\\*"'. The first backslash escapes the second one, so
-that the string actually contains the two characters `\' and `*'.
+one backslash is needed. To do the same thing with a string, you have
+to type `"\\*"'. The first backslash escapes the second one so that
+the string actually contains the two characters `\' and `*'.
Given that you can use both regexp and string constants to describe
regular expressions, which should you use? The answer is "regexp
-constants," for several reasons.
+constants," for several reasons:
- 1. String constants are more complicated to write, and more difficult
+ * String constants are more complicated to write and more difficult
to read. Using regexp constants makes your programs less
error-prone. Not understanding the difference between the two
kinds of constants is a common source of errors.
- 2. It is also more efficient to use regexp constants: `awk' can note
- that you have supplied a regexp and store it internally in a form
- that makes pattern matching more efficient. When using a string
+ * It is more efficient to use regexp constants. `awk' can note that
+ you have supplied a regexp, and store it internally in a form that
+ makes pattern matching more efficient. When using a string
constant, `awk' must first convert the string into this internal
- form, and then perform the pattern matching.
+ form and then perform the pattern matching.
- 3. Using regexp constants is better style; it shows clearly that you
+ * Using regexp constants is better form; it shows clearly that you
intend a regexp match.
+Advanced Notes: Using `\n' in Character Lists of Dynamic Regexps
+----------------------------------------------------------------
+
+ Some commercial versions of `awk' do not allow the newline character
+to be used inside a character list for a dynamic regexp:
+
+ $ awk '$0 ~ "[ \t\n]"'
+ error--> awk: newline in character class [
+ error--> ]...
+ error--> source line number 1
+ error--> context is
+ error--> >>> <<<
+
+ But a newline in a regexp constant works with no problem:
+
+ $ awk '$0 ~ /[ \t\n]/'
+ here is a sample line
+ -| here is a sample line
+ Ctrl-d
+
+ `gawk' does not have this problem, and it isn't likely to occur
+often in practice, but it's worth noting for future reference.
+

File: gawk.info, Node: Reading Files, Next: Printing, Prev: Regexp, Up: Top
@@ -2283,20 +2706,20 @@ Reading Input Files
*******************
In the typical `awk' program, all input is read either from the
-standard input (by default the keyboard, but often a pipe from another
-command) or from files whose names you specify on the `awk' command
-line. If you specify input files, `awk' reads them in order, reading
-all the data from one before going on to the next. The name of the
-current input file can be found in the built-in variable `FILENAME'
-(*note Built-in Variables::).
-
- The input is read in units called "records", and processed by the
+standard input (by default, this is the keyboard but often it is a pipe
+from another command), or from files whose names you specify on the
+`awk' command line. If you specify input files, `awk' reads them in
+order, processing all the data from one before going on to the next.
+The name of the current input file can be found in the built-in variable
+`FILENAME' (*note Built-in Variables::).
+
+ The input is read in units called "records", and is processed by the
rules of your program one record at a time. By default, each record is
one line. Each record is automatically split into chunks called
"fields". This makes it more convenient for programs to work on the
parts of a record.
- On rare occasions you will need to use the `getline' command. The
+ On rare occasions, you may need to use the `getline' command. The
`getline' command is valuable, both because it can do explicit input
from any number of files, and because the files used with it do not
have to be named on the `awk' command line (*note Explicit Input with
@@ -2317,38 +2740,47 @@ have to be named on the `awk' command line (*note Explicit Input with

File: gawk.info, Node: Records, Next: Fields, Prev: Reading Files, Up: Reading Files
-How Input is Split into Records
+How Input Is Split into Records
===============================
The `awk' utility divides the input for your `awk' program into
-records and fields. Records are separated by a character called the
-"record separator". By default, the record separator is the newline
-character. This is why records are, by default, single lines. You can
-use a different character for the record separator by assigning the
-character to the built-in variable `RS'.
-
- You can change the value of `RS' in the `awk' program, like any
-other variable, with the assignment operator, `=' (*note Assignment
+records and fields. `awk' keeps track of the number of records that
+have been read so far from the current input file. This value is
+stored in a built-in variable called `FNR'. It is reset to zero when a
+new file is started. Another built-in variable, `NR', is the total
+number of input records read so far from all data files. It starts at
+zero, but is never automatically reset to zero.
+
+ Records are separated by a character called the "record separator".
+By default, the record separator is the newline character. This is why
+records are, by default, single lines. A different character can be
+used for the record separator by assigning the character to the
+built-in variable `RS'.
+
+ Like any other variable, the value of `RS' can be changed in the
+`awk' program with the assignment operator, `=' (*note Assignment
Expressions: Assignment Ops.). The new record-separator character
should be enclosed in quotation marks, which indicate a string
constant. Often the right time to do this is at the beginning of
-execution, before any input has been processed, so that the very first
-record will be read with the proper separator. To do this, use the
-special `BEGIN' pattern (*note The `BEGIN' and `END' Special Patterns:
-BEGIN/END.). For example:
+execution, before any input is processed, so that the very first record
+is read with the proper separator. To do this, use the special `BEGIN'
+pattern (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.).
+For example:
- awk 'BEGIN { RS = "/" } ; { print $0 }' BBS-list
+ awk 'BEGIN { RS = "/" }
+ { print $0 }' BBS-list
changes the value of `RS' to `"/"', before reading any input. This is
a string whose first character is a slash; as a result, records are
separated by slashes. Then the input file is read, and the second rule
in the `awk' program (the action with no pattern) prints each record.
-Since each `print' statement adds a newline at the end of its output,
+Because each `print' statement adds a newline at the end of its output,
the effect of this `awk' program is to copy the input with each slash
changed to a newline. Here are the results of running the program on
`BBS-list':
- $ awk 'BEGIN { RS = "/" } ; { print $0 }' BBS-list
+ $ awk 'BEGIN { RS = "/" }
+ > { print $0 }' BBS-list
-| aardvark 555-5553 1200
-| 300 B
-| alpo-net 555-3412 2400
@@ -2382,11 +2814,15 @@ Files.), the line looks like this:
camelot 555-0542 300 C
-It only has one baud rate; there are no slashes in the record.
+It has one baud rate only, so there are no slashes in the record,
+unlike the others which have two or more baud rates. In fact, this
+record is treated as part of the record for the `core' BBS; the newline
+separating them in the output is the original newline in the data file,
+not the one added by `awk' when it printed the record!
Another way to change the record separator is on the command line,
-using the variable-assignment feature (*note Other Command Line
-Arguments: Other Arguments.).
+using the variable-assignment feature (*note Other Command-Line
+Arguments: Other Arguments.):
awk '{ print $0 }' RS="/" BBS-list
@@ -2394,50 +2830,49 @@ This sets `RS' to `/' before processing `BBS-list'.
Using an unusual character such as `/' for the record separator
produces correct behavior in the vast majority of cases. However, the
-following (extreme) pipeline prints a surprising `1'. There is one
-field, consisting of a newline. The value of the built-in variable
-`NF' is the number of fields in the current record.
+following (extreme) pipeline prints a surprising `1':
$ echo | awk 'BEGIN { RS = "a" } ; { print NF }'
-| 1
-Reaching the end of an input file terminates the current input record,
-even if the last character in the file is not the character in `RS'
-(d.c.).
+ There is one field, consisting of a newline. The value of the
+built-in variable `NF' is the number of fields in the current record.
- The empty string, `""' (a string of no characters), has a special
-meaning as the value of `RS': it means that records are separated by
-one or more blank lines, and nothing else. *Note Multiple-Line
-Records: Multiple Line, for more details.
+ Reaching the end of an input file terminates the current input
+record, even if the last character in the file is not the character in
+`RS'. (d.c.)
+
+ The empty string `""' (a string without any characters) has a
+special meaning as the value of `RS'. It means that records are
+separated by one or more blank lines and nothing else. *Note
+Multiple-Line Records: Multiple Line, for more details.
If you change the value of `RS' in the middle of an `awk' run, the
new value is used to delimit subsequent records, but the record
-currently being processed (and records already processed) are not
+currently being processed, as well as records already processed, are not
affected.
After the end of the record has been determined, `gawk' sets the
-variable `RT' to the text in the input that matched `RS'.
-
- The value of `RS' is in fact not limited to a one-character string.
-It can be any regular expression (*note Regular Expressions: Regexp.).
-In general, each record ends at the next string that matches the
-regular expression; the next record starts at the end of the matching
-string. This general rule is actually at work in the usual case, where
-`RS' contains just a newline: a record ends at the beginning of the
-next matching string (the next newline in the input) and the following
+variable `RT' to the text in the input that matched `RS'. When using
+`gawk', the value of `RS' is not limited to a one-character string. It
+can be any regular expression (*note Regular Expressions: Regexp.). In
+general, each record ends at the next string that matches the regular
+expression; the next record starts at the end of the matching string.
+This general rule is actually at work in the usual case, where `RS'
+contains just a newline: a record ends at the beginning of the next
+matching string (the next newline in the input) and the following
record starts just after the end of this string (at the first character
-of the following line). The newline, since it matches `RS', is not
+of the following line). The newline, because it matches `RS', is not
part of either record.
- When `RS' is a single character, `RT' will contain the same single
-character. However, when `RS' is a regular expression, then `RT'
-becomes more useful; it contains the actual input text that matched the
-regular expression.
+ When `RS' is a single character, `RT' contains the same single
+character. However, when `RS' is a regular expression, `RT' contains
+the actual input text that matched the regular expression.
The following example illustrates both of these features. It sets
-`RS' equal to a regular expression that matches either a newline, or a
-series of one or more upper-case letters with optional leading and/or
-trailing white space (*note Regular Expressions: Regexp.).
+`RS' equal to a regular expression that matches either a newline or a
+series of one or more uppercase letters with optional leading and/or
+trailing whitespace:
$ echo record 1 AAAA record 2 BBBB record 3 |
> gawk 'BEGIN { RS = "\n|( *[[:upper:]]+ *)" }
@@ -2448,24 +2883,47 @@ trailing white space (*note Regular Expressions: Regexp.).
-|
The final line of output has an extra blank line. This is because the
-value of `RT' is a newline, and then the `print' statement supplies its
-own terminating newline.
-
- *Note A Simple Stream Editor: Simple Sed, for a more useful example
-of `RS' as a regexp and `RT'.
+value of `RT' is a newline, and the `print' statement supplies its own
+terminating newline. *Note A Simple Stream Editor: Simple Sed, for a
+more useful example of `RS' as a regexp and `RT'.
The use of `RS' as a regular expression and the `RT' variable are
`gawk' extensions; they are not available in compatibility mode (*note
-Command Line Options: Options.). In compatibility mode, only the first
+Command-Line Options: Options.). In compatibility mode, only the first
character of the value of `RS' is used to determine the end of the
record.
- The `awk' utility keeps track of the number of records that have
-been read so far from the current input file. This value is stored in a
-built-in variable called `FNR'. It is reset to zero when a new file is
-started. Another built-in variable, `NR', is the total number of input
-records read so far from all data files. It starts at zero but is
-never automatically reset to zero.
+Advanced Notes: `RS = "\0"' Is Not Portable
+-------------------------------------------
+
+ There are times when you might want to treat an entire data file as a
+single record. The only way to make this happen is to give `RS' a
+value that you know doesn't occur in the input file. This is hard to
+do in a general way, such that a program always works for arbitrary
+input files.
+
+ You might think that for text files, the NUL character, which
+consists of a character with all bits equal to zero, is a good value to
+use for `RS' in this case:
+
+ BEGIN { RS = "\0" } # whole file becomes one record?
+
+ `gawk' in fact accepts this, and uses the NUL character for the
+record separator. However, this usage is _not_ portable to other `awk'
+implementations.
+
+ All other `awk' implementations(1) store strings internally as
+C-style strings. C strings use the NUL character as the string
+terminator. In effect, this means that `RS = "\0"' is the same as `RS
+= ""'. (d.c.)
+
+ The best way to treat a whole file as a single record is to simply
+read the file in, one record at a time, concatenating each record onto
+the end of the previous ones.
+
+ ---------- Footnotes ----------
+
+ (1) At least that we know about.

File: gawk.info, Node: Fields, Next: Non-Constant Fields, Prev: Records, Up: Reading Files
@@ -2475,45 +2933,42 @@ Examining Fields
When `awk' reads an input record, the record is automatically
separated or "parsed" by the interpreter into chunks called "fields".
-By default, fields are separated by whitespace, like words in a line.
-Whitespace in `awk' means any string of one or more spaces, tabs or
-newlines;(1) other characters such as formfeed, and so on, that are
-considered whitespace by other languages are _not_ considered
+By default, fields are separated by "whitespace", like words in a line.
+Whitespace in `awk' means any string of one or more spaces, tabs, or
+newlines;(1) other characters, such as formfeed, vertical tab, etc.
+that are considered whitespace by other languages, are _not_ considered
whitespace by `awk'.
The purpose of fields is to make it more convenient for you to refer
to these pieces of the record. You don't have to use them--you can
-operate on the whole record if you wish--but fields are what make
+operate on the whole record if you want--but fields are what make
simple `awk' programs so powerful.
- To refer to a field in an `awk' program, you use a dollar-sign, `$',
+ A dollar-sign (`$') is used to refer to a field in an `awk' program,
followed by the number of the field you want. Thus, `$1' refers to the
-first field, `$2' to the second, and so on. For example, suppose the
-following is a line of input:
+first field, `$2' to the second, and so on. (Unlike the Unix shells,
+the field numbers are not limited to single digits. `$127' is the one
+hundred and twenty-seventh field in the record.) For example, suppose
+the following is a line of input:
This seems like a pretty nice example.
-Here the first field, or `$1', is `This'; the second field, or `$2', is
-`seems'; and so on. Note that the last field, `$7', is `example.'.
+Here the first field, or `$1', is `This', the second field, or `$2', is
+`seems', and so on. Note that the last field, `$7', is `example.'.
Because there is no space between the `e' and the `.', the period is
considered part of the seventh field.
`NF' is a built-in variable whose value is the number of fields in
-the current record. `awk' updates the value of `NF' automatically,
-each time a record is read.
+the current record. `awk' automatically updates the value of `NF' each
+time it reads a record. No matter how many fields there are, the last
+field in a record can be represented by `$NF'. So, `$NF' is the same
+as `$7', which is `example.'. If you try to reference a field beyond
+the last one (such as `$8' when the record has only seven fields), you
+get the empty string. (If used in a numeric operation, you get zero.)
- No matter how many fields there are, the last field in a record can
-be represented by `$NF'. So, in the example above, `$NF' would be the
-same as `$7', which is `example.'. Why this works is explained below
-(*note Non-constant Field Numbers: Non-Constant Fields.). If you try
-to reference a field beyond the last one, such as `$8' when the record
-has only seven fields, you get the empty string.
-
- `$0', which looks like a reference to the "zeroth" field, is a
-special case: it represents the whole input record. `$0' is used when
-you are not interested in fields.
-
- Here are some more examples:
+ The use of `$0', which looks like a reference to the "zeroth" field,
+is a special case: it represents the whole input record when you are
+not interested in specific fields. Here are some more examples:
$ awk '$1 ~ /foo/ { print $0 }' BBS-list
-| fooey 555-1234 2400/1200/300 B
@@ -2528,8 +2983,8 @@ Usage.); it tests whether a string (here, the field `$1') matches a
given regular expression.
By contrast, the following example looks for `foo' in _the entire
-record_ and prints the first field and the last field for each input
-record containing a match.
+record_ and prints the first field and the last field for each matching
+input record:
$ awk '/foo/ { print $1, $NF }' BBS-list
-| fooey B
@@ -2545,7 +3000,7 @@ separating fields.

File: gawk.info, Node: Non-Constant Fields, Next: Changing Fields, Prev: Fields, Up: Reading Files
-Non-constant Field Numbers
+Non-Constant Field Numbers
==========================
The number of a field does not need to be a constant. Any
@@ -2560,13 +3015,12 @@ Recall that `NR' is the number of records read so far: one in the first
record, two in the second, etc. So this example prints the first field
of the first record, the second field of the second record, and so on.
For the twentieth record, field number 20 is printed; most likely, the
-record has fewer than 20 fields, so this prints a blank line.
-
- Here is another example of using expressions as field numbers:
+record has fewer than 20 fields, so this prints a blank line. Here is
+another example of using expressions as field numbers:
awk '{ print $(2*2) }' BBS-list
- `awk' must evaluate the expression `(2*2)' and use its value as the
+ `awk' evaluates the expression `(2*2)' and uses its value as the
number of the field to print. The `*' sign represents multiplication,
so the expression `2*2' evaluates to four. The parentheses are used so
that the multiplication is done before the `$' operation; they are
@@ -2578,16 +3032,15 @@ Operator Precedence (How Operators Nest): Precedence.)
If the field number you compute is zero, you get the entire record.
Thus, `$(2-2)' has the same value as `$0'. Negative field numbers are
-not allowed; trying to reference one will usually terminate your
-running `awk' program. (The POSIX standard does not define what
-happens when you reference a negative field number. `gawk' will notice
-this and terminate your program. Other `awk' implementations may
-behave differently.)
-
- As mentioned in *Note Examining Fields: Fields, the number of fields
-in the current record is stored in the built-in variable `NF' (also
+not allowed; trying to reference one usually terminates the program.
+(The POSIX standard does not define what happens when you reference a
+negative field number. `gawk' notices this and terminates your
+program. Other `awk' implementations may behave differently.)
+
+ As mentioned in *Note Examining Fields: Fields, `awk' stores the
+current record's number of fields in the built-in variable `NF' (also
*note Built-in Variables::). The expression `$NF' is not a special
-feature: it is the direct consequence of evaluating `NF' and using its
+feature--it is the direct consequence of evaluating `NF' and using its
value as a field number.

@@ -2596,36 +3049,38 @@ File: gawk.info, Node: Changing Fields, Next: Field Separators, Prev: Non-Con
Changing the Contents of a Field
================================
- You can change the contents of a field as seen by `awk' within an
+ The contents of a field, as seen by `awk', can be changed within an
`awk' program; this changes what `awk' perceives as the current input
record. (The actual input is untouched; `awk' _never_ modifies the
-input file.)
-
- Consider this example and its output:
+input file.) Consider this example and its output:
- $ awk '{ $3 = $2 - 10; print $2, $3 }' inventory-shipped
+ $ awk '{ nboxes = $3 ; $3 = $3 - 10
+ > print nboxes, $3 }' inventory-shipped
-| 13 3
-| 15 5
-| 15 5
...
-The `-' sign represents subtraction, so this program reassigns field
-three, `$3', to be the value of field two minus ten, `$2 - 10'. (*Note
-Arithmetic Operators: Arithmetic Ops.) Then field two, and the new
-value for field three, are printed.
-
- In order for this to work, the text in field `$2' must make sense as
-a number; the string of characters must be converted to a number in
-order for the computer to do arithmetic on it. The number resulting
-from the subtraction is converted back to a string of characters which
-then becomes field three. *Note Conversion of Strings and Numbers:
+The program first saves the original value of field three in the
+variable `nboxes'. The `-' sign represents subtraction, so this
+program reassigns field three, `$3', as the original value of field
+three minus ten: `$3 - 10'. (*Note Arithmetic Operators: Arithmetic
+Ops.) Then it prints the original and new values for field three.
+(Someone in the warehouse made a consistent mistake while inventorying
+the red boxes.)
+
+ For this to work, the text in field `$2' must make sense as a
+number; the string of characters must be converted to a number for the
+computer to do arithmetic on it. The number resulting from the
+subtraction is converted back to a string of characters that then
+becomes field three. *Note Conversion of Strings and Numbers:
Conversion.
- When you change the value of a field (as perceived by `awk'), the
+ When the value of a field is changed (as perceived by `awk'), the
text of the input record is recalculated to contain the new field where
-the old one was. Therefore, `$0' changes to reflect the altered field.
-Thus, this program prints a copy of the input file, with 10 subtracted
-from the second field of each line.
+the old one was. In other words, `$0' changes to reflect the altered
+field. Thus, this program prints a copy of the input file, with 10
+subtracted from the second field of each line:
$ awk '{ $2 = $2 - 10; print $0 }' inventory-shipped
-| Jan 3 25 15 115
@@ -2633,8 +3088,8 @@ from the second field of each line.
-| Mar 5 24 34 228
...
- You can also assign contents to fields that are out of range. For
-example:
+ It is also possible to also assign contents to fields that are out
+of range. For example:
$ awk '{ $6 = ($5 + $4 + $3 + $2)
> print $6 }' inventory-shipped
@@ -2649,16 +3104,17 @@ We've just created `$6', whose value is the sum of fields `$2', `$3',
shipped for a particular month.
Creating a new field changes `awk''s internal copy of the current
-input record--the value of `$0'. Thus, if you do `print $0' after
-adding a field, the record printed includes the new field, with the
-appropriate number of field separators between it and the previously
+input record, which is the value of `$0'. Thus, if you do `print $0'
+after adding a field, the record printed includes the new field, with
+the appropriate number of field separators between it and the previously
existing fields.
This recomputation affects and is affected by `NF' (the number of
-fields; *note Examining Fields: Fields.), and by a feature that has not
-been discussed yet, the "output field separator", `OFS', which is used
-to separate the fields (*note Output Separators::). For example, the
-value of `NF' is set to the number of the highest field you create.
+fields; *note Examining Fields: Fields.). It is also affected by a
+feature that has not been discussed yet: the "output field separator",
+`OFS', used to separate the fields (*note Output Separators::). For
+example, the value of `NF' is set to the number of the highest field
+you create.
Note, however, that merely _referencing_ an out-of-range field does
_not_ change the value of either `$0' or `NF'. Referencing an
@@ -2676,130 +3132,120 @@ and Comparison Expressions: Typing and Comparison, for more information
about the `!=' operator.)
It is important to note that making an assignment to an existing
-field will change the value of `$0', but will not change the value of
-`NF', even when you assign the empty string to a field. For example:
+field changes the value of `$0' but does not change the value of `NF',
+even when you assign the empty string to a field. For example:
$ echo a b c d | awk '{ OFS = ":"; $2 = ""
> print $0; print NF }'
-| a::c:d
-| 4
-The field is still there; it just has an empty value. You can tell
-because there are two colons in a row.
-
- This example shows what happens if you create a new field.
+The field is still there; it just has an empty value, denoted by the
+two colons between `a' and `c'. This example shows what happens if you
+create a new field:
$ echo a b c d | awk '{ OFS = ":"; $2 = ""; $6 = "new"
> print $0; print NF }'
-| a::c:d::new
-| 6
-The intervening field, `$5' is created with an empty value (indicated
+The intervening field, `$5', is created with an empty value (indicated
by the second pair of adjacent colons), and `NF' is updated with the
value six.
- Finally, decrementing `NF' will lose the values of the fields after
-the new value of `NF', and `$0' will be recomputed. Here is an example:
+ Decrementing `NF' throws away the values of the fields after the new
+value of `NF' and recomputes `$0'. (d.c.) Here is an example:
- $ echo a b c d e f | ../gawk '{ print "NF =", NF;
- > NF = 3; print $0 }'
+ $ echo a b c d e f | awk '{ print "NF =", NF;
+ > NF = 3; print $0 }'
-| NF = 6
-| a b c
+ *Caution:* Some versions of `awk' don't rebuild `$0' when `NF' is
+decremented. Caveat emptor.
+

File: gawk.info, Node: Field Separators, Next: Constant Size, Prev: Changing Fields, Up: Reading Files
-Specifying How Fields are Separated
+Specifying How Fields Are Separated
===================================
- This section is rather long; it describes one of the most fundamental
-operations in `awk'.
-
* Menu:
-* Basic Field Splitting:: How fields are split with single characters
- or simple strings.
* Regexp Field Splitting:: Using regexps as the field separator.
* Single Character Fields:: Making each character a separate field.
-* Command Line Field Separator:: Setting `FS' from the command line.
+* Command Line Field Separator:: Setting `FS' from the command-line.
* Field Splitting Summary:: Some final points and a summary table.
-
-File: gawk.info, Node: Basic Field Splitting, Next: Regexp Field Splitting, Prev: Field Separators, Up: Field Separators
-
-The Basics of Field Separating
-------------------------------
-
The "field separator", which is either a single character or a
regular expression, controls the way `awk' splits an input record into
fields. `awk' scans the input record for character sequences that
match the separator; the fields themselves are the text between the
matches.
- In the examples below, we use the bullet symbol "*" to represent
-spaces in the output.
-
- If the field separator is `oo', then the following line:
+ In the examples that follow, we use the bullet symbol (*) to
+represent spaces in the output. If the field separator is `oo', then
+the following line:
moo goo gai pan
-would be split into three fields: `m', `*g' and `*gai*pan'. Note the
+is split into three fields: `m', `*g', and `*gai*pan'. Note the
leading spaces in the values of the second and third fields.
The field separator is represented by the built-in variable `FS'.
-Shell programmers take note! `awk' does _not_ use the name `IFS' which
-is used by the POSIX compatible shells (such as the Bourne shell, `sh',
-or the GNU Bourne-Again Shell, Bash).
+Shell programmers take note: `awk' does _not_ use the name `IFS' that
+is used by the POSIX-compliant shells (such as the Unix Bourne shell,
+`sh', or `bash').
- You can change the value of `FS' in the `awk' program with the
+ The value of `FS' can be changed in the `awk' program with the
assignment operator, `=' (*note Assignment Expressions: Assignment
-Ops.). Often the right time to do this is at the beginning of
-execution, before any input has been processed, so that the very first
-record will be read with the proper separator. To do this, use the
-special `BEGIN' pattern (*note The `BEGIN' and `END' Special Patterns:
-BEGIN/END.). For example, here we set the value of `FS' to the string
-`","':
+Ops.). Often the right time to do this is at the beginning of execution
+before any input has been processed, so that the very first record is
+read with the proper separator. To do this, use the special `BEGIN'
+pattern (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.).
+For example, here we set the value of `FS' to the string `","':
awk 'BEGIN { FS = "," } ; { print $2 }'
-Given the input line,
+Given the input line:
John Q. Smith, 29 Oak St., Walamazoo, MI 42139
this `awk' program extracts and prints the string `*29*Oak*St.'.
- Sometimes your input data will contain separator characters that
-don't separate fields the way you thought they would. For instance, the
+ Sometimes the input data contains separator characters that don't
+separate fields the way you thought they would. For instance, the
person's name in the example we just used might have a title or suffix
-attached, such as `John Q. Smith, LXIX'. From input containing such a
-name:
+attached, such as:
John Q. Smith, LXIX, 29 Oak St., Walamazoo, MI 42139
-the above program would extract `*LXIX', instead of `*29*Oak*St.'. If
+The same program would extract `*LXIX', instead of `*29*Oak*St.'. If
you were expecting the program to print the address, you would be
-surprised. The moral is: choose your data layout and separator
-characters carefully to prevent such problems.
-
- Normally, fields are separated by whitespace sequences (spaces, tabs
-and newlines), not by single spaces: two spaces in a row do not delimit
-an empty field. The default value of the field separator `FS' is a
-string containing a single space, `" "'. If this value were
-interpreted in the usual way, each space character would separate
+surprised. The moral is to choose your data layout and separator
+characters carefully to prevent such problems. (If the data is not in
+a form that is easy to process, perhaps you can massage it first with a
+separate `awk' program.)
+
+ Fields are normally separated by whitespace sequences (spaces, tabs,
+and newlines), not by single spaces. Two spaces in a row do not
+delimit an empty field. The default value of the field separator `FS'
+is a string containing a single space, `" "'. If `awk' interpreted
+this value in the usual way, each space character would separate
fields, so two spaces in a row would make an empty field between them.
The reason this does not happen is that a single space as the value of
-`FS' is a special case: it is taken to specify the default manner of
+`FS' is a special case--it is taken to specify the default manner of
delimiting fields.
If `FS' is any other single character, such as `","', then each
occurrence of that character separates two fields. Two consecutive
occurrences delimit an empty field. If the character occurs at the
beginning or the end of the line, that too delimits an empty field. The
-space character is the only single character which does not follow these
+space character is the only single character that does not follow these
rules.

-File: gawk.info, Node: Regexp Field Splitting, Next: Single Character Fields, Prev: Basic Field Splitting, Up: Field Separators
+File: gawk.info, Node: Regexp Field Splitting, Next: Single Character Fields, Prev: Field Separators, Up: Field Separators
Using Regular Expressions to Separate Fields
--------------------------------------------
@@ -2813,26 +3259,24 @@ example, the assignment:
FS = ", \t"
makes every area of an input line that consists of a comma followed by a
-space and a tab, into a field separator. (`\t' is an "escape sequence"
+space and a tab into a field separator. (`\t' is an "escape sequence"
that stands for a tab; *note Escape Sequences::, for the complete list
of similar escape sequences.)
- For a less trivial example of a regular expression, suppose you want
-single spaces to separate fields the way single commas were used above.
-You can set `FS' to `"[ ]"' (left bracket, space, right bracket). This
-regular expression matches a single space and nothing else (*note
-Regular Expressions: Regexp.).
+ For a less trivial example of a regular expression, try using single
+spaces to separate fields the way single commas are used. `FS' can be
+set to `"[ ]"' (left bracket, space, right bracket). This regular
+expression matches a single space and nothing else (*note Regular
+Expressions: Regexp.).
There is an important difference between the two cases of `FS = " "'
-(a single space) and `FS = "[ \t\n]+"' (left bracket, space, backslash,
-"t", backslash, "n", right bracket, which is a regular expression
-matching one or more spaces, tabs, or newlines). For both values of
-`FS', fields are separated by runs of spaces, tabs and/or newlines.
-However, when the value of `FS' is `" "', `awk' will first strip
-leading and trailing whitespace from the record, and then decide where
-the fields are.
-
- For example, the following pipeline prints `b':
+(a single space) and `FS = "[ \t\n]+"' (a regular expression matching
+one or more spaces, tabs, or newlines). For both values of `FS',
+fields are separated by "runs" (multiple adjacent occurrences) of
+spaces, tabs, and/or newlines. However, when the value of `FS' is
+`" "', `awk' first strips leading and trailing whitespace from the
+record and then decides where the fields are. For example, the
+following pipeline prints `b':
$ echo ' a b c d ' | awk '{ print $2 }'
-| b
@@ -2840,11 +3284,11 @@ the fields are.
However, this pipeline prints `a' (note the extra spaces around each
letter):
- $ echo ' a b c d ' | awk 'BEGIN { FS = "[ \t]+" }
+ $ echo ' a b c d ' | awk 'BEGIN { FS = "[ \t\n]+" }
> { print $2 }'
-| a
-In this case, the first field is "null", or empty.
+In this case, the first field is "null" or empty.
The stripping of leading and trailing whitespace also comes into
play whenever `$0' is recomputed. For instance, study this pipeline:
@@ -2856,8 +3300,8 @@ play whenever `$0' is recomputed. For instance, study this pipeline:
The first `print' statement prints the record as it was read, with
leading whitespace intact. The assignment to `$2' rebuilds `$0' by
concatenating `$1' through `$NF' together, separated by the value of
-`OFS'. Since the leading whitespace was ignored when finding `$1', it
-is not part of the new `$0'. Finally, the last `print' statement
+`OFS'. Because the leading whitespace was ignored when finding `$1',
+it is not part of the new `$0'. Finally, the last `print' statement
prints the new `$0'.

@@ -2867,9 +3311,9 @@ Making Each Character a Separate Field
--------------------------------------
There are times when you may want to examine each character of a
-record separately. In `gawk', this is easy to do, you simply assign
-the null string (`""') to `FS'. In this case, each individual character
-in the record will become a separate field. Here is an example:
+record separately. This can be done in `gawk' by simply assigning the
+null string (`""') to `FS'. In this case, each individual character in
+the record becomes a separate field. For example:
$ echo a b | gawk 'BEGIN { FS = "" }
> {
@@ -2880,11 +3324,11 @@ in the record will become a separate field. Here is an example:
-| Field 2 is
-| Field 3 is b
- Traditionally, the behavior for `FS' equal to `""' was not defined.
-In this case, Unix `awk' would simply treat the entire record as only
-having one field (d.c.). In compatibility mode (*note Command Line
-Options: Options.), if `FS' is the null string, then `gawk' will also
-behave this way.
+ Traditionally, the behavior of `FS' equal to `""' was not defined.
+In this case, most versions of Unix `awk' simply treat the entire record
+as only having one field. (d.c.) In compatibility mode (*note
+Command-Line Options: Options.), if `FS' is the null string, then
+`gawk' also behaves this way.

File: gawk.info, Node: Command Line Field Separator, Next: Field Splitting Summary, Prev: Single Character Fields, Up: Field Separators
@@ -2892,47 +3336,46 @@ File: gawk.info, Node: Command Line Field Separator, Next: Field Splitting Sum
Setting `FS' from the Command Line
----------------------------------
- `FS' can be set on the command line. You use the `-F' option to do
-so. For example:
+ `FS' can be set on the command line. Use the `-F' option to do so.
+For example:
awk -F, 'PROGRAM' INPUT-FILES
-sets `FS' to be the `,' character. Notice that the option uses a
-capital `F'. Contrast this with `-f', which specifies a file
-containing an `awk' program. Case is significant in command line
-options: the `-F' and `-f' options have nothing to do with each other.
-You can use both options at the same time to set the `FS' variable
-_and_ get an `awk' program from a file.
+sets `FS' to the `,' character. Notice that the option uses a capital
+`F' instead of a lowercase `-f', which specifies a file containing an
+`awk' program. Case is significant in command-line options: the `-F'
+and `-f' options have nothing to do with each other. You can use both
+options at the same time to set the `FS' variable _and_ get an `awk'
+program from a file.
The value used for the argument to `-F' is processed in exactly the
-same way as assignments to the built-in variable `FS'. This means that
-if the field separator contains special characters, they must be escaped
-appropriately. For example, to use a `\' as the field separator, you
+same way as assignments to the built-in variable `FS'. Any special
+characters in the field separator must be escaped appropriately. For
+example, to use a `\' as the field separator on the command line, you
would have to type:
# same as FS = "\\"
awk -F\\\\ '...' files ...
-Since `\' is used for quoting in the shell, `awk' will see `-F\\'.
-Then `awk' processes the `\\' for escape characters (*note Escape
-Sequences::), finally yielding a single `\' to be used for the field
+Because `\' is used for quoting in the shell, `awk' sees `-F\\'. Then
+`awk' processes the `\\' for escape characters (*note Escape
+Sequences::), finally yielding a single `\' to use for the field
separator.
- As a special case, in compatibility mode (*note Command Line
+ As a special case, in compatibility mode (*note Command-Line
Options: Options.), if the argument to `-F' is `t', then `FS' is set to
-the tab character. This is because if you type `-F\t' at the shell,
-without any quotes, the `\' gets deleted, so `awk' figures that you
-really want your fields to be separated with tabs, and not `t's. Use
-`-v FS="t"' on the command line if you really do want to separate your
-fields with `t's (*note Command Line Options: Options.).
+the tab character. If you type `-F\t' at the shell, without any
+quotes, the `\' gets deleted, so `awk' figures that you really want
+your fields to be separated with tabs and not `t's. Use `-v FS="t"' or
+`-F"[t]"' on the command line if you really do want to separate your
+fields with `t's.
For example, let's use an `awk' program file called `baud.awk' that
-contains the pattern `/300/', and the action `print $1'. Here is the
-program:
+contains the pattern `/300/' and the action `print $1':
/300/ { print $1 }
- Let's also set `FS' to be the `-' character, and run the program on
+ Let's also set `FS' to be the `-' character and run the program on
the file `BBS-list'. The following command prints a list of the names
of the bulletin boards that operate at 300 baud and the first three
digits of their phone numbers:
@@ -2941,10 +3384,17 @@ digits of their phone numbers:
-| aardvark 555
-| alpo
-| barfly 555
- ...
-
-Note the second line of output. In the original file (*note Data Files
-for the Examples: Sample Data Files.), the second line looked like this:
+ -| bites 555
+ -| camelot 555
+ -| core 555
+ -| fooey 555
+ -| foot 555
+ -| macfoo 555
+ -| sdace 555
+ -| sabafoo 555
+
+Note the second line of output. The second line in the original file
+looked like this:
alpo-net 555-3412 2400/1200/300 A
@@ -2953,15 +3403,17 @@ separator, instead of the `-' in the phone number that was originally
intended. This demonstrates why you have to be careful in choosing
your field and record separators.
- On many Unix systems, each user has a separate entry in the system
-password file, one line per user. The information in these lines is
-separated by colons. The first field is the user's logon name, and the
-second is the user's encrypted password. A password file entry might
+ Perhaps the most common use of a single character as the field
+separator occurs when processing the Unix system password file. On
+many Unix systems, each user has a separate entry in the system password
+file, one line per user. The information in these lines is separated
+by colons. The first field is the user's logon name and the second is
+the user's (encrypted or shadow) password. A password file entry might
look like this:
- arnold:xyzzy:2076:10:Arnold Robbins:/home/arnold:/bin/sh
+ arnold:xyzzy:2076:10:Arnold Robbins:/home/arnold:/bin/bash
- The following program searches the system password file, and prints
+ The following program searches the system password file and prints
the entries for users who have no password:
awk -F: '$2 == ""' /etc/passwd
@@ -2972,30 +3424,6 @@ File: gawk.info, Node: Field Splitting Summary, Prev: Command Line Field Separ
Field Splitting Summary
-----------------------
- According to the POSIX standard, `awk' is supposed to behave as if
-each record is split into fields at the time that it is read. In
-particular, this means that you can change the value of `FS' after a
-record is read, and the value of the fields (i.e. how they were split)
-should reflect the old value of `FS', not the new one.
-
- However, many implementations of `awk' do not work this way.
-Instead, they defer splitting the fields until a field is actually
-referenced. The fields will be split using the _current_ value of
-`FS'! (d.c.) This behavior can be difficult to diagnose. The following
-example illustrates the difference between the two methods. (The
-`sed'(1) command prints just the first line of `/etc/passwd'.)
-
- sed 1q /etc/passwd | awk '{ FS = ":" ; print $1 }'
-
-will usually print
-
- root
-
-on an incorrect implementation of `awk', while `gawk' will print
-something like
-
- root:nSijPlPhZZwgE:0:0:Root:/:
-
The following table summarizes how fields are split, based on the
value of `FS'. (`==' means "is equal to.")
@@ -3016,6 +3444,35 @@ value of `FS'. (`==' means "is equal to.")
`FS == ""'
Each individual character in the record becomes a separate field.
+ (This is a `gawk' extension; it is not specified by the POSIX
+ standard.)
+
+Advanced Notes: Changing `FS' Does Not Affect the Fields
+--------------------------------------------------------
+
+ According to the POSIX standard, `awk' is supposed to behave as if
+each record is split into fields at the time it is read. In
+particular, this means that if you change the value of `FS' after a
+record is read, the value of the fields (i.e., how they were split)
+should reflect the old value of `FS', not the new one.
+
+ However, many implementations of `awk' do not work this way.
+Instead, they defer splitting the fields until a field is actually
+referenced. The fields are split using the _current_ value of `FS'!
+(d.c.) This behavior can be difficult to diagnose. The following
+example illustrates the difference between the two methods. (The
+`sed'(1) command prints just the first line of `/etc/passwd'.)
+
+ sed 1q /etc/passwd | awk '{ FS = ":" ; print $1 }'
+
+which usually prints:
+
+ root
+
+on an incorrect implementation of `awk', while `gawk' prints something
+like:
+
+ root:nSijPlPhZZwgE:0:0:Root:/:
---------- Footnotes ----------
@@ -3025,35 +3482,35 @@ defined by the POSIX standard.

File: gawk.info, Node: Constant Size, Next: Multiple Line, Prev: Field Separators, Up: Reading Files
-Reading Fixed-width Data
+Reading Fixed-Width Data
========================
- (This section discusses an advanced, experimental feature. If you
-are a novice `awk' user, you may wish to skip it on the first reading.)
+ (This minor node discusses an advanced feature of `awk'. If you are
+a novice `awk' user, you might want to skip it on the first reading.)
- `gawk' version 2.13 introduced a new facility for dealing with
-fixed-width fields with no distinctive field separator. Data of this
-nature arises, for example, in the input for old FORTRAN programs where
-numbers are run together; or in the output of programs that did not
+ `gawk' version 2.13 introduced a facility for dealing with
+fixed-width fields with no distinctive field separator. For example,
+data of this nature arises in the input for old Fortran programs where
+numbers are run together, or in the output of programs that did not
anticipate the use of their output as input for other programs.
An example of the latter is a table where all the columns are lined
up by the use of a variable number of spaces and _empty fields are just
-spaces_. Clearly, `awk''s normal field splitting based on `FS' will
+spaces_. Clearly, `awk''s normal field splitting based on `FS' does
not work well in this case. Although a portable `awk' program can use
-a series of `substr' calls on `$0' (*note Built-in Functions for String
-Manipulation: String Functions.), this is awkward and inefficient for a
+a series of `substr' calls on `$0' (*note String Manipulation
+Functions: String Functions.), this is awkward and inefficient for a
large number of fields.
The splitting of an input record into fixed-width fields is
specified by assigning a string containing space-separated numbers to
the built-in variable `FIELDWIDTHS'. Each number specifies the width
-of the field _including_ columns between fields. If you want to ignore
-the columns between fields, you can specify the width as a separate
-field that is subsequently ignored.
-
- The following data is the output of the Unix `w' utility. It is
-useful to illustrate the use of `FIELDWIDTHS'.
+of the field, _including_ columns between fields. If you want to
+ignore the columns between fields, you can specify the width as a
+separate field that is subsequently ignored. It is a fatal error to
+supply a field width that is not a positive number. The following data
+is the output of the Unix `w' utility. It is useful to illustrate the
+use of `FIELDWIDTHS':
10:06pm up 21 days, 14:04, 23 users
User tty login idle JCPU PCPU what
@@ -3067,9 +3524,11 @@ useful to illustrate the use of `FIELDWIDTHS'.
dave ttyq4 26Jun9115days 46 46 wnewmail
The following program takes the above input, converts the idle time
-to number of seconds and prints out the first two fields and the
-calculated idle time. (This program uses a number of `awk' features
-that haven't been introduced yet.)
+to number of seconds, and prints out the first two fields and the
+calculated idle time.
+
+ *Note:* This program uses a number of `awk' features that haven't
+been introduced yet.
BEGIN { FIELDWIDTHS = "9 6 10 6 7 7 35" }
NR > 2 {
@@ -3087,7 +3546,7 @@ that haven't been introduced yet.)
print $1, $2, idle
}
- Here is the result of running the program on the data:
+ Running the program on the data produces the following results:
hzuo ttyV0 0
hzang ttyV3 50
@@ -3099,10 +3558,10 @@ that haven't been introduced yet.)
dave ttyq4 1296000
Another (possibly more practical) example of fixed-width input data
-would be the input from a deck of balloting cards. In some parts of
-the United States, voters mark their choices by punching holes in
-computer cards. These cards are then processed to count the votes for
-any particular candidate or on any particular issue. Since a voter may
+is the input from a deck of balloting cards. In some parts of the
+United States, voters mark their choices by punching holes in computer
+cards. These cards are then processed to count the votes for any
+particular candidate or on any particular issue. Because a voter may
choose not to vote on some issue, any column on the card may be empty.
An `awk' program for processing such data could use the `FIELDWIDTHS'
feature to simplify reading the data. (Of course, getting `gawk' to
@@ -3110,11 +3569,21 @@ run on a system with card readers is another story!)
Assigning a value to `FS' causes `gawk' to return to using `FS' for
field splitting. Use `FS = FS' to make this happen, without having to
-know the current value of `FS'.
+know the current value of `FS'. In order to tell which kind of field
+splitting is in effect, use `PROCINFO["FS"]' (*note Built-in Variables
+That Convey Information: Auto-set.). The value is `"FS"' if regular
+field splitting is being used, or it is `"FIELDWIDTHS"' if fixed-width
+field splitting is being used:
+
+ if (PROCINFO["FS"] == "FS")
+ REGULAR FIELD SPLITTING ...
+ else
+ FIXED-WIDTH FIELD SPLITTING ...
- This feature is still experimental, and may evolve over time. Note
-that in particular, `gawk' does not attempt to verify the sanity of the
-values used in the value of `FIELDWIDTHS'.
+ This information is useful when writing a function that needs to
+temporarily change `FS' or `FIELDWIDTHS', read some records, and then
+restore the original settings (*note Reading the User Database: Passwd
+Functions., for an example of such a function).

File: gawk.info, Node: Multiple Line, Next: Getline, Prev: Constant Size, Up: Reading Files
@@ -3122,13 +3591,9 @@ File: gawk.info, Node: Multiple Line, Next: Getline, Prev: Constant Size, Up
Multiple-Line Records
=====================
- In some data bases, a single line cannot conveniently hold all the
-information in one entry. In such cases, you can use multi-line
-records.
-
- The first step in doing this is to choose your data format: when
-records are not defined as single lines, how do you want to define them?
-What should separate records?
+ In some databases, a single line cannot conveniently hold all the
+information in one entry. In such cases, you can use multiline
+records. The first step in doing this is to choose your data format.
One technique is to use an unusual character or string to separate
records. For example, you could use the formfeed character (written
@@ -3139,49 +3604,49 @@ well be used, as long as it won't be part of the data in a record.
Another technique is to have blank lines separate records. By a
special dispensation, an empty string as the value of `RS' indicates
-that records are separated by one or more blank lines. If you set `RS'
-to the empty string, a record always ends at the first blank line
-encountered. And the next record doesn't start until the first
-non-blank line that follows--no matter how many blank lines appear in a
-row, they are considered one record-separator.
+that records are separated by one or more blank lines. When `RS' is set
+to the empty string, each record always ends at the first blank line
+encountered. The next record doesn't start until the first non-blank
+line that follows. No matter how many blank lines appear in a row, they
+all act as one record separator. (Blank lines must be completely
+empty; lines that contain only whitespace do not count.)
You can achieve the same effect as `RS = ""' by assigning the string
`"\n\n+"' to `RS'. This regexp matches the newline at the end of the
-record, and one or more blank lines after the record. In addition, a
+record and one or more blank lines after the record. In addition, a
regular expression always matches the longest possible sequence when
there is a choice (*note How Much Text Matches?: Leftmost Longest.).
So the next record doesn't start until the first non-blank line that
follows--no matter how many blank lines appear in a row, they are
-considered one record-separator.
+considered one record separator.
There is an important difference between `RS = ""' and `RS =
"\n\n+"'. In the first case, leading newlines in the input data file
are ignored, and if a file ends without extra blank lines after the
last record, the final newline is removed from the record. In the
-second case, this special processing is not done (d.c.).
+second case, this special processing is not done. (d.c.)
Now that the input is separated into records, the second step is to
separate the fields in the record. One way to do this is to divide each
of the lines into fields in the normal manner. This happens by default
-as the result of a special feature: when `RS' is set to the empty
+as the result of a special feature. When `RS' is set to the empty
string, the newline character _always_ acts as a field separator. This
is in addition to whatever field separations result from `FS'.
The original motivation for this special exception was probably to
-provide useful behavior in the default case (i.e. `FS' is equal to
+provide useful behavior in the default case (i.e., `FS' is equal to
`" "'). This feature can be a problem if you really don't want the
-newline character to separate fields, since there is no way to prevent
-it. However, you can work around this by using the `split' function to
-break up the record manually (*note Built-in Functions for String
-Manipulation: String Functions.).
+newline character to separate fields, because there is no way to
+prevent it. However, you can work around this by using the `split'
+function to break up the record manually (*note String Manipulation
+Functions: String Functions.).
Another way to separate fields is to put each field on a separate
line: to do this, just set the variable `FS' to the string `"\n"'.
-(This simple regular expression matches a single newline.)
-
- A practical example of a data file organized this way might be a
-mailing list, where each entry is separated by blank lines. If we have
-a mailing list in a file named `addresses', that looks like this:
+(This simple regular expression matches a single newline.) A practical
+example of a data file organized this way might be a mailing list,
+where each entry is separated by blank lines. Consider a mailing list
+in a file named `addresses', that looks like this:
Jane Doe
123 Main Street
@@ -3192,7 +3657,7 @@ a mailing list in a file named `addresses', that looks like this:
Smallville, MW 98765-4321
...
-A simple program to process this file would look like this:
+A simple program to process this file is as follows:
# addrs.awk --- simple mailing list program
@@ -3221,10 +3686,9 @@ A simple program to process this file would look like this:
...
*Note Printing Mailing Labels: Labels Program, for a more realistic
-program that deals with address lists.
-
- The following table summarizes how records are split, based on the
-value of `RS'. (`==' means "is equal to.")
+program that deals with address lists. The following table summarizes
+how records are split, based on the value of `RS'. (`==' means "is
+equal to.")
`RS == "\n"'
Records are separated by the newline character (`\n'). In effect,
@@ -3244,7 +3708,8 @@ value of `RS'. (`==' means "is equal to.")
`RS == REGEXP'
Records are separated by occurrences of characters that match
REGEXP. Leading and trailing matches of REGEXP delimit empty
- records.
+ records. (This is a `gawk' extension, it is not specified by the
+ POSIX standard.)
In all cases, `gawk' sets `RT' to the input text that matched the
value specified by `RS'.
@@ -3261,43 +3726,40 @@ output from another program) or from the files specified on the command
line. The `awk' language has a special built-in command called
`getline' that can be used to read input under your explicit control.
-* Menu:
-
-* Getline Intro:: Introduction to the `getline' function.
-* Plain Getline:: Using `getline' with no arguments.
-* Getline/Variable:: Using `getline' into a variable.
-* Getline/File:: Using `getline' from a file.
-* Getline/Variable/File:: Using `getline' into a variable from a
- file.
-* Getline/Pipe:: Using `getline' from a pipe.
-* Getline/Variable/Pipe:: Using `getline' into a variable from a
- pipe.
-* Getline Summary:: Summary Of `getline' Variants.
-
-
-File: gawk.info, Node: Getline Intro, Next: Plain Getline, Prev: Getline, Up: Getline
-
-Introduction to `getline'
--------------------------
+ The `getline' command is used in several different ways and should
+_not_ be used by beginners. The examples that follow the explanation
+of the `getline' command include material that has not been covered
+yet. Therefore, come back and study the `getline' command _after_ you
+have reviewed the rest of this Info file and have a good knowledge of
+how `awk' works.
- This command is used in several different ways, and should _not_ be
-used by beginners. It is covered here because this is the chapter on
-input. The examples that follow the explanation of the `getline'
-command include material that has not been covered yet. Therefore,
-come back and study the `getline' command _after_ you have reviewed the
-rest of this Info file and have a good knowledge of how `awk' works.
-
- `getline' returns one if it finds a record, and zero if the end of
-the file is encountered. If there is some error in getting a record,
-such as a file that cannot be opened, then `getline' returns -1. In
-this case, `gawk' sets the variable `ERRNO' to a string describing the
-error that occurred.
+ The `getline' command returns one if it finds a record and zero if
+the end of the file is encountered. If there is some error in getting
+a record, such as a file that cannot be opened, then `getline' returns
+-1. In this case, `gawk' sets the variable `ERRNO' to a string
+describing the error that occurred.
In the following examples, COMMAND stands for a string value that
represents a shell command.
+* Menu:
+
+* Plain Getline:: Using `getline' with no arguments.
+* Getline/Variable:: Using `getline' into a variable.
+* Getline/File:: Using `getline' from a file.
+* Getline/Variable/File:: Using `getline' into a variable from a
+ file.
+* Getline/Pipe:: Using `getline' from a pipe.
+* Getline/Variable/Pipe:: Using `getline' into a variable from a
+ pipe.
+* Getline/Coprocess:: Using `getline' from a coprocess.
+* Getline/Variable/Coprocess:: Using `getline' into a variable from a
+ coprocess.
+* Getline Notes:: Important things to know about `getline'.
+* Getline Summary:: Summary of `getline' Variants.
+

-File: gawk.info, Node: Plain Getline, Next: Getline/Variable, Prev: Getline Intro, Up: Getline
+File: gawk.info, Node: Plain Getline, Next: Getline/Variable, Prev: Getline, Up: Getline
Using `getline' with No Arguments
---------------------------------
@@ -3305,12 +3767,12 @@ Using `getline' with No Arguments
The `getline' command can be used without arguments to read input
from the current input file. All it does in this case is read the next
input record and split it up into fields. This is useful if you've
-finished processing the current record, but you want to do some special
+finished processing the current record, but want to do some special
processing _right now_ on the next record. Here's an example:
- awk '{
+ {
if ((t = index($0, "/*")) != 0) {
- # value will be "" if t is 1
+ # value of `tmp' will be "" if t is 1
tmp = substr($0, 1, t - 1)
u = index(substr($0, t + 2), "*/")
while (u == 0) {
@@ -3325,70 +3787,65 @@ processing _right now_ on the next record. Here's an example:
}
# substr expression will be "" if */
# occurred at end of line
- $0 = tmp substr($0, t + u + 3)
+ $0 = tmp substr($0, u + 2)
}
print $0
- }'
+ }
- This `awk' program deletes all C-style comments, `/* ... */', from
+ This `awk' program deletes all C-style comments (`/* ... */') from
the input. By replacing the `print $0' with other statements, you
could perform more complicated processing on the decommented input,
-like searching for matches of a regular expression. This program has a
-subtle problem--it does not work if one comment ends and another begins
-on the same line.
+such as searching for matches of a regular expression. (This program
+has a subtle problem--it does not work if one comment ends and another
+begins on the same line.)
- This form of the `getline' command sets `NF' (the number of fields;
-*note Examining Fields: Fields.), `NR' (the number of records read so
-far; *note How Input is Split into Records: Records.), `FNR' (the
-number of records read from this input file), and the value of `$0'.
+ This form of the `getline' command sets `NF', `NR', `FNR', and the
+value of `$0'.
- *Note:* the new value of `$0' is used in testing the patterns of any
+ *Note:* The new value of `$0' is used to test the patterns of any
subsequent rules. The original value of `$0' that triggered the rule
-which executed `getline' is lost (d.c.). By contrast, the `next'
-statement reads a new record but immediately begins processing it
-normally, starting with the first rule in the program. *Note The
-`next' Statement: Next Statement.
+that executed `getline' is lost. By contrast, the `next' statement
+reads a new record but immediately begins processing it normally,
+starting with the first rule in the program. *Note The `next'
+Statement: Next Statement.

File: gawk.info, Node: Getline/Variable, Next: Getline/File, Prev: Plain Getline, Up: Getline
-Using `getline' Into a Variable
+Using `getline' into a Variable
-------------------------------
You can use `getline VAR' to read the next record from `awk''s input
-into the variable VAR. No other processing is done.
+into the variable VAR. No other processing is done. For example,
+suppose the next line is a comment or a special string, and you want to
+read it without triggering any rules. This form of `getline' allows
+you to read that line and store it in a variable so that the main
+read-a-line-and-check-each-rule loop of `awk' never sees it. The
+following example swaps every two lines of input. The program is as
+follows:
- For example, suppose the next line is a comment, or a special string,
-and you want to read it, without triggering any rules. This form of
-`getline' allows you to read that line and store it in a variable so
-that the main read-a-line-and-check-each-rule loop of `awk' never sees
-it.
+ {
+ if ((getline tmp) > 0) {
+ print tmp
+ print $0
+ } else
+ print $0
+ }
- The following example swaps every two lines of input. For example,
-given:
+It takes the following list:
wan
tew
free
phore
-it outputs:
+and produces these results:
tew
wan
phore
free
-Here's the program:
-
- awk '{
- if ((getline tmp) > 0) {
- print tmp
- print $0
- } else
- print $0
- }'
-
The `getline' command used in this way sets only the variables `NR'
and `FNR' (and of course, VAR). The record is not split into fields,
so the values of the fields (including `$0') and the value of `NF' do
@@ -3400,68 +3857,59 @@ File: gawk.info, Node: Getline/File, Next: Getline/Variable/File, Prev: Getli
Using `getline' from a File
---------------------------
- Use `getline < FILE' to read the next record from the file FILE.
-Here FILE is a string-valued expression that specifies the file name.
-`< FILE' is called a "redirection" since it directs input to come from
-a different place.
+ Use `getline < FILE' to read the next record from FILE. Here FILE
+is a string-valued expression that specifies the file name. `< FILE'
+is called a "redirection" because it directs input to come from a
+different place. For example, the following program reads its input
+record from the file `secondary.input' when it encounters a first field
+with a value equal to 10 in the current input file:
- For example, the following program reads its input record from the
-file `secondary.input' when it encounters a first field with a value
-equal to 10 in the current input file.
-
- awk '{
+ {
if ($1 == 10) {
getline < "secondary.input"
print
} else
print
- }'
+ }
- Since the main input stream is not used, the values of `NR' and
-`FNR' are not changed. But the record read is split into fields in the
-normal manner, so the values of `$0' and other fields are changed. So
-is the value of `NF'.
+ Because the main input stream is not used, the values of `NR' and
+`FNR' are not changed. However, the record it reads is split into
+fields in the normal manner, so the values of `$0' and the other fields
+are changed, resulting in a new value of `NF'.
According to POSIX, `getline < EXPRESSION' is ambiguous if
EXPRESSION contains unparenthesized operators other than `$'; for
example, `getline < dir "/" file' is ambiguous because the
-concatenation operator is not parenthesized, and you should write it as
+concatenation operator is not parenthesized. You should write it as
`getline < (dir "/" file)' if you want your program to be portable to
-other `awk' implementations.
+other `awk' implementations. (It happens that `gawk' gets it right,
+but you should not rely on this. Parentheses make it easier to read.)

File: gawk.info, Node: Getline/Variable/File, Next: Getline/Pipe, Prev: Getline/File, Up: Getline
-Using `getline' Into a Variable from a File
+Using `getline' into a Variable from a File
-------------------------------------------
- Use `getline VAR < FILE' to read input the file FILE and put it in
-the variable VAR. As above, FILE is a string-valued expression that
-specifies the file from which to read.
+ Use `getline VAR < FILE' to read input from the file FILE, and put
+it in the variable VAR. As above, FILE is a string-valued expression
+that specifies the file from which to read.
In this version of `getline', none of the built-in variables are
-changed, and the record is not split into fields. The only variable
-changed is VAR.
+changed and the record is not split into fields. The only variable
+changed is VAR. For example, the following program copies all the
+input files to the output, except for records that say
+`@include FILENAME'. Such a record is replaced by the contents of the
+file FILENAME:
- According to POSIX, `getline VAR < EXPRESSION' is ambiguous if
-EXPRESSION contains unparenthesized operators other than `$'; for
-example, `getline < dir "/" file' is ambiguous because the
-concatenation operator is not parenthesized, and you should write it as
-`getline < (dir "/" file)' if you want your program to be portable to
-other `awk' implementations.
-
- For example, the following program copies all the input files to the
-output, except for records that say `@include FILENAME'. Such a record
-is replaced by the contents of the file FILENAME.
-
- awk '{
+ {
if (NF == 2 && $1 == "@include") {
while ((getline line < $2) > 0)
print line
close($2)
} else
print
- }'
+ }
Note here how the name of the extra input file is not built into the
program; it is taken directly from the data, from the second field on
@@ -3469,13 +3917,13 @@ the `@include' line.
The `close' function is called to ensure that if two identical
`@include' lines appear in the input, the entire specified file is
-included twice. *Note Closing Input and Output Files and Pipes: Close
+included twice. *Note Closing Input and Output Redirections: Close
Files And Pipes.
One deficiency of this program is that it does not process nested
-`@include' statements (`@include' statements in included files) the way
-a true macro preprocessor would. *Note An Easy Way to Use Library
-Functions: Igawk Program, for a program that does handle nested
+`@include' statements (i.e., `@include' statements in included files)
+the way a true macro preprocessor would. *Note An Easy Way to Use
+Library Functions: Igawk Program, for a program that does handle nested
`@include' statements.

@@ -3484,16 +3932,15 @@ File: gawk.info, Node: Getline/Pipe, Next: Getline/Variable/Pipe, Prev: Getli
Using `getline' from a Pipe
---------------------------
- You can pipe the output of a command into `getline', using `COMMAND
-| getline'. In this case, the string COMMAND is run as a shell command
-and its output is piped into `awk' to be used as input. This form of
-`getline' reads one record at a time from the pipe.
-
- For example, the following program copies its input to its output,
-except for lines that begin with `@execute', which are replaced by the
-output produced by running the rest of the line as a shell command:
+ The output of a command can also be piped into `getline', using
+`COMMAND | getline'. In this case, the string COMMAND is run as a
+shell command and its output is piped into `awk' to be used as input.
+This form of `getline' reads one record at a time from the pipe. For
+example, the following program copies its input to its output, except
+for lines that begin with `@execute', which are replaced by the output
+produced by running the rest of the line as a shell command:
- awk '{
+ {
if ($1 == "@execute") {
tmp = substr($0, 10)
while ((tmp | getline) > 0)
@@ -3501,13 +3948,12 @@ output produced by running the rest of the line as a shell command:
close(tmp)
} else
print
- }'
+ }
The `close' function is called to ensure that if two identical
`@execute' lines appear in the input, the command is run for each one.
-*Note Closing Input and Output Files and Pipes: Close Files And Pipes.
-
- Given the input:
+*Note Closing Input and Output Redirections: Close Files And Pipes.
+Given the input:
foo
bar
@@ -3527,97 +3973,147 @@ the program might produce:
Notice that this program ran the command `who' and printed the result.
(If you try this program yourself, you will of course get different
-results, showing you who is logged in on your system.)
+results, depending upon who is logged in on your system.)
This variation of `getline' splits the record into fields, sets the
value of `NF' and recomputes the value of `$0'. The values of `NR' and
`FNR' are not changed.
According to POSIX, `EXPRESSION | getline' is ambiguous if
-EXPRESSION contains unparenthesized operators other than `$'; for
+EXPRESSION contains unparenthesized operators other than `$'--for
example, `"echo " "date" | getline' is ambiguous because the
-concatenation operator is not parenthesized, and you should write it as
+concatenation operator is not parenthesized. You should write it as
`("echo " "date") | getline' if you want your program to be portable to
other `awk' implementations. (It happens that `gawk' gets it right,
but you should not rely on this. Parentheses make it easier to read,
anyway.)

-File: gawk.info, Node: Getline/Variable/Pipe, Next: Getline Summary, Prev: Getline/Pipe, Up: Getline
+File: gawk.info, Node: Getline/Variable/Pipe, Next: Getline/Coprocess, Prev: Getline/Pipe, Up: Getline
-Using `getline' Into a Variable from a Pipe
+Using `getline' into a Variable from a Pipe
-------------------------------------------
- When you use `COMMAND | getline VAR', the output of the command
-COMMAND is sent through a pipe to `getline' and into the variable VAR.
-For example, the following program reads the current date and time into
-the variable `current_time', using the `date' utility, and then prints
-it.
+ When you use `COMMAND | getline VAR', the output of COMMAND is sent
+through a pipe to `getline' and into the variable VAR. For example, the
+following program reads the current date and time into the variable
+`current_time', using the `date' utility, and then prints it:
- awk 'BEGIN {
+ BEGIN {
"date" | getline current_time
close("date")
print "Report printed on " current_time
- }'
+ }
In this version of `getline', none of the built-in variables are
-changed, and the record is not split into fields.
+changed and the record is not split into fields.
According to POSIX, `EXPRESSION | getline VAR' is ambiguous if
EXPRESSION contains unparenthesized operators other than `$'; for
example, `"echo " "date" | getline VAR' is ambiguous because the
-concatenation operator is not parenthesized, and you should write it as
+concatenation operator is not parenthesized. You should write it as
`("echo " "date") | getline VAR' if you want your program to be
portable to other `awk' implementations. (It happens that `gawk' gets
it right, but you should not rely on this. Parentheses make it easier
to read, anyway.)

-File: gawk.info, Node: Getline Summary, Prev: Getline/Variable/Pipe, Up: Getline
+File: gawk.info, Node: Getline/Coprocess, Next: Getline/Variable/Coprocess, Prev: Getline/Variable/Pipe, Up: Getline
-Summary of `getline' Variants
------------------------------
+Using `getline' from a Coprocess
+--------------------------------
- With all the forms of `getline', even though `$0' and `NF', may be
-updated, the record will not be tested against all the patterns in the
-`awk' program, in the way that would happen if the record were read
-normally by the main processing loop of `awk'. However the new record
-is tested against any subsequent rules.
-
- Many `awk' implementations limit the number of pipelines an `awk'
-program may have open to just one! In `gawk', there is no such limit.
-You can open as many pipelines as the underlying operating system will
-permit.
-
- An interesting side-effect occurs if you use `getline' (without a
-redirection) inside a `BEGIN' rule. Since an unredirected `getline'
-reads from the command line data files, the first `getline' command
-causes `awk' to set the value of `FILENAME'. Normally, `FILENAME' does
-not have a value inside `BEGIN' rules, since you have not yet started
-to process the command line data files (d.c.). (*Note The `BEGIN' and
-`END' Special Patterns: BEGIN/END, also *note Built-in Variables that
-Convey Information: Auto-set..)
-
- The following table summarizes the six variants of `getline',
-listing which built-in variables are set by each one.
+ Input into `getline' from a pipe is a one-way operation. The
+command that is started with `COMMAND | getline' only sends data _to_
+your `awk' program.
+
+ On occasion, you might want to send data to another program for
+processing and then read the results back. `gawk' allows you start a
+"coprocess", with which two-way communications are possible. This is
+done with the `|&' operator. Typically, you write data to the
+coprocess first, and then read results back, as shown in the following:
-`getline'
- sets `$0', `NF', `FNR', and `NR'.
+ print "SOME QUERY" |& "db_server"
+ "db_server" |& getline
-`getline VAR'
- sets VAR, `FNR', and `NR'.
+which sends a query to `db_server' and then reads the results.
-`getline < FILE'
- sets `$0', and `NF'.
+ The values of `NR' and `FNR' are not changed, because the main input
+stream is not used. However, the record is split into fields in the
+normal manner, thus changing the values of `$0', the other fields, and
+of `NF'.
-`getline VAR < FILE'
- sets VAR.
+ Coprocesses are an advanced feature. They are discussed here only
+because this is the minor node on `getline'. *Note Two-Way
+Communications with Another Process: Two-way I/O, where coprocesses are
+discussed in more detail.
-`COMMAND | getline'
- sets `$0', and `NF'.
+
+File: gawk.info, Node: Getline/Variable/Coprocess, Next: Getline Notes, Prev: Getline/Coprocess, Up: Getline
+
+Using `getline' into a Variable from a Coprocess
+------------------------------------------------
+
+ When you use `COMMAND |& getline VAR', the output from the coprocess
+COMMAND is sent through a two-way pipe to `getline' and into the
+variable VAR.
+
+ In this version of `getline', none of the built-in variables are
+changed and the record is not split into fields. The only variable
+changed is VAR.
+
+ Coprocesses are an advanced feature. They are discussed here only
+because this is the minor node on `getline'. *Note Two-Way
+Communications with Another Process: Two-way I/O, where coprocesses are
+discussed in more detail.
+
+
+File: gawk.info, Node: Getline Notes, Next: Getline Summary, Prev: Getline/Variable/Coprocess, Up: Getline
+
+Points About `getline' to Remember
+----------------------------------
+
+ Here are some miscellaneous points about `getline' that you should
+bear in mind:
+
+ * When `getline' changes the value of `$0' and `NF', `awk' does
+ _not_ automatically jump to the start of the program and start
+ testing the new record against every pattern. However, the new
+ record is tested against any subsequent rules.
+
+ * Many `awk' implementations limit the number of pipelines that an
+ `awk' program may have open to just one. In `gawk', there is no
+ such limit. You can open as many pipelines (and coprocesses) as
+ the underlying operating system permits.
+
+ * An interesting side effect occurs if you use `getline' without a
+ redirection inside a `BEGIN' rule. Because an unredirected
+ `getline' reads from the command-line data files, the first
+ `getline' command causes `awk' to set the value of `FILENAME'.
+ Normally, `FILENAME' does not have a value inside `BEGIN' rules,
+ because you have not yet started to process the command-line data
+ files. (d.c.) (*Note The `BEGIN' and `END' Special Patterns:
+ BEGIN/END, also *note Built-in Variables That Convey Information:
+ Auto-set..)
+
+
+File: gawk.info, Node: Getline Summary, Prev: Getline Notes, Up: Getline
-`COMMAND | getline VAR'
- sets VAR.
+Summary of `getline' Variants
+-----------------------------
+
+ The following table summarizes the eight variants of `getline',
+listing which built-in variables are set by each one.
+
+`getline' Sets `$0', `NF', `FNR' and `NR'
+`getline' VAR Sets VAR, `FNR' and `NR'
+`getline <' FILE Sets `$0' and `NF'
+`getline VAR < FILE' Sets VAR
+COMMAND `| getline' Sets `$0' and `NF'
+COMMAND `| getline' VAR Sets VAR
+COMMAND `|& getline' Sets `$0' and `NF' (this is a `gawk'
+ extension)
+COMMAND `|& getline' VAR Sets VAR (this is a `gawk' extension)

File: gawk.info, Node: Printing, Next: Expressions, Prev: Reading Files, Up: Top
@@ -3625,10 +4121,21 @@ File: gawk.info, Node: Printing, Next: Expressions, Prev: Reading Files, Up:
Printing Output
***************
- One of the most common actions is to "print", or output, some or all
-of the input. You use the `print' statement for simple output. You
-use the `printf' statement for fancier formatting. Both are described
-in this chapter.
+ One of the most common programming actions is to "print" or output,
+some or all of the input. Use the `print' statement for simple output,
+and the `printf' statement for fancier formatting. The `print'
+statement is not limited when computing _which_ values to print.
+However, with two exceptions, you cannot specify _how_ to print
+them--how many columns, whether to use exponential notation or not, and
+so on. (For the exceptions, *note Output Separators::, and *Note
+Controlling Numeric Output with `print': OFMT.) For that, you need the
+`printf' statement (*note Using `printf' Statements for Fancier
+Printing: Printf.).
+
+ Besides basic and formatted printing, this major node also covers
+I/O redirections to files and pipes, introduces the special file names
+that `gawk' processes internally, and discusses the `close' built-in
+function.
* Menu:
@@ -3650,44 +4157,29 @@ File: gawk.info, Node: Print, Next: Print Examples, Prev: Printing, Up: Prin
The `print' Statement
=====================
- The `print' statement does output with simple, standardized
-formatting. You specify only the strings or numbers to be printed, in a
-list separated by commas. They are output, separated by single spaces,
-followed by a newline. The statement looks like this:
+ The `print' statement is used to produce output with simple,
+standardized formatting. Specify only the strings or numbers to print,
+in a list separated by commas. They are output, separated by single
+spaces, followed by a newline. The statement looks like this:
print ITEM1, ITEM2, ...
-The entire list of items may optionally be enclosed in parentheses. The
+The entire list of items may be optionally enclosed in parentheses. The
parentheses are necessary if any of the item expressions uses the `>'
relational operator; otherwise it could be confused with a redirection
(*note Redirecting Output of `print' and `printf': Redirection.).
- The items to be printed can be constant strings or numbers, fields
-of the current record (such as `$1'), variables, or any `awk'
-expressions. Numeric values are converted to strings, and then printed.
-
- The `print' statement is completely general for computing _what_
-values to print. However, with two exceptions, you cannot specify _how_
-to print them--how many columns, whether to use exponential notation or
-not, and so on. (For the exceptions, *note Output Separators::, and
-*Note Controlling Numeric Output with `print': OFMT.) For that, you
-need the `printf' statement (*note Using `printf' Statements for
-Fancier Printing: Printf.).
+ The items to print can be constant strings or numbers, fields of the
+current record (such as `$1'), variables, or any `awk' expression.
+Numeric values are converted to strings and then printed.
The simple statement `print' with no items is equivalent to `print
$0': it prints the entire current record. To print a blank line, use
-`print ""', where `""' is the empty string.
-
- To print a fixed piece of text, use a string constant such as
-`"Don't Panic"' as one item. If you forget to use the double-quote
-characters, your text will be taken as an `awk' expression, and you
-will probably get an error. Keep in mind that a space is printed
-between any two items.
-
- Each `print' statement makes at least one line of output. But it
-isn't limited to one line. If an item value is a string that contains a
-newline, the newline is output along with the rest of the string. A
-single `print' can make any number of lines this way.
+`print ""', where `""' is the empty string. To print a fixed piece of
+text, use a string constant, such as `"Don't Panic"', as one item. If
+you forget to use the double quote characters, your text is taken as an
+`awk' expression and you will probably get an error. Keep in mind that
+a space is printed between any two items.

File: gawk.info, Node: Print Examples, Next: Output Separators, Prev: Print, Up: Printing
@@ -3695,17 +4187,24 @@ File: gawk.info, Node: Print Examples, Next: Output Separators, Prev: Print,
Examples of `print' Statements
==============================
- Here is an example of printing a string that contains embedded
-newlines (the `\n' is an escape sequence, used to represent the newline
-character; *note Escape Sequences::):
+ Each `print' statement makes at least one line of output. However,
+it isn't limited to only one line. If an item value is a string that
+contains a newline, the newline is output along with the rest of the
+string. A single `print' statement can make any number of lines this
+way.
+
+ The following is an example of printing a string that contains
+embedded newlines (the `\n' is an escape sequence, used to represent
+the newline character; *note Escape Sequences::):
$ awk 'BEGIN { print "line one\nline two\nline three" }'
-| line one
-| line two
-| line three
- Here is an example that prints the first two fields of each input
-record, with a space between them:
+ The next example, which is run on the `inventory-shipped' file,
+prints the first two fields of each input record, with a space between
+them:
$ awk '{ print $1, $2 }' inventory-shipped
-| Jan 13
@@ -3725,19 +4224,18 @@ Here is the same program, without the comma:
-| Mar15
...
- To someone unfamiliar with the file `inventory-shipped', neither
+ To someone unfamiliar with the `inventory-shipped' file, neither
example's output makes much sense. A heading line at the beginning
would make it clearer. Let's add some headings to our table of months
(`$1') and green crates shipped (`$2'). We do this using the `BEGIN'
-pattern (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.) to
-force the headings to be printed only once:
+pattern (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.) so
+that the headings are only printed once:
awk 'BEGIN { print "Month Crates"
print "----- ------" }
{ print $1, $2 }' inventory-shipped
-Did you already guess what happens? When run, the program prints the
-following:
+When run, the program prints the following:
Month Crates
----- ------
@@ -3746,23 +4244,24 @@ following:
Mar 15
...
-The headings and the table data don't line up! We can fix this by
-printing some spaces between the two fields:
+The only problem, however, is that the headings and the table data
+don't line up! We can fix this by printing some spaces between the two
+fields:
awk 'BEGIN { print "Month Crates"
print "----- ------" }
{ print $1, " ", $2 }' inventory-shipped
- You can imagine that this way of lining up columns can get pretty
-complicated when you have many columns to fix. Counting spaces for two
-or three columns can be simple, but more than this and you can get lost
-quite easily. This is why the `printf' statement was created (*note
-Using `printf' Statements for Fancier Printing: Printf.); one of its
-specialties is lining up columns of data.
+ Lining up columns this way can get pretty complicated when there are
+many columns to fix. Counting spaces for two or three columns is
+simple, but any more than this can take up a lot of time. This is why
+the `printf' statement was created (*note Using `printf' Statements for
+Fancier Printing: Printf.); one of its specialties is lining up columns
+of data.
- As a side point, you can continue either a `print' or `printf'
-statement simply by putting a newline after any comma (*note `awk'
-Statements Versus Lines: Statements/Lines.).
+ *Note:* You can continue either a `print' or `printf' statement
+simply by putting a newline after any comma (*note `awk' Statements
+Versus Lines: Statements/Lines.).

File: gawk.info, Node: Output Separators, Next: OFMT, Prev: Print Examples, Up: Printing
@@ -3771,31 +4270,28 @@ Output Separators
=================
As mentioned previously, a `print' statement contains a list of
-items, separated by commas. In the output, the items are normally
-separated by single spaces. This need not be the case; a single space
-is only the default. You can specify any string of characters to use
-as the "output field separator" by setting the built-in variable `OFS'.
-The initial value of this variable is the string `" "', that is, a
-single space.
+items separated by commas. In the output, the items are normally
+separated by single spaces. However, this doesn't need to be the case;
+a single space is only the default. Any string of characters may be
+used as the "output field separator" by setting the built-in variable
+`OFS'. The initial value of this variable is the string `" "'--that
+is, a single space.
The output from an entire `print' statement is called an "output
-record". Each `print' statement outputs one output record and then
-outputs a string called the "output record separator". The built-in
-variable `ORS' specifies this string. The initial value of `ORS' is
-the string `"\n"', i.e. a newline character; thus, normally each
-`print' statement makes a separate line.
-
- You can change how output fields and records are separated by
-assigning new values to the variables `OFS' and/or `ORS'. The usual
-place to do this is in the `BEGIN' rule (*note The `BEGIN' and `END'
-Special Patterns: BEGIN/END.), so that it happens before any input is
-processed. You may also do this with assignments on the command line,
-before the names of your input files, or using the `-v' command line
-option (*note Command Line Options: Options.).
-
- The following example prints the first and second fields of each
-input record separated by a semicolon, with a blank line added after
-each line:
+record". Each `print' statement outputs one output record, and then
+outputs a string called the "output record separator" (or `ORS'). The
+initial value of `ORS' is the string `"\n"'; i.e., a newline character.
+Thus, each `print' statement normally makes a separate line.
+
+ In order to change how output fields and records are separated,
+assign new values to the variables `OFS' and `ORS'. The usual place to
+do this is in the `BEGIN' rule (*note The `BEGIN' and `END' Special
+Patterns: BEGIN/END.), so that it happens before any input is
+processed. It can also be done with assignments on the command line,
+before the names of the input files, or using the `-v' command-line
+option (*note Command-Line Options: Options.). The following example
+prints the first and second fields of each input record, separated by a
+semicolon, with a blank line added after each newline:
$ awk 'BEGIN { OFS = ";"; ORS = "\n\n" }
> { print $1, $2 }' BBS-list
@@ -3806,9 +4302,8 @@ each line:
-| barfly;555-7685
...
- If the value of `ORS' does not contain a newline, all your output
-will be run together on a single line, unless you output newlines some
-other way.
+ If the value of `ORS' does not contain a newline, the program's
+output is run together on a single line.

File: gawk.info, Node: OFMT, Next: Printf, Prev: Output Separators, Up: Printing
@@ -3816,31 +4311,31 @@ File: gawk.info, Node: OFMT, Next: Printf, Prev: Output Separators, Up: Prin
Controlling Numeric Output with `print'
=======================================
- When you use the `print' statement to print numeric values, `awk'
-internally converts the number to a string of characters, and prints
+ When the `print' statement is used to print numeric values, `awk'
+internally converts the number to a string of characters and prints
that string. `awk' uses the `sprintf' function to do this conversion
-(*note Built-in Functions for String Manipulation: String Functions.).
-For now, it suffices to say that the `sprintf' function accepts a
-"format specification" that tells it how to format numbers (or
-strings), and that there are a number of different ways in which
-numbers can be formatted. The different format specifications are
-discussed more fully in *Note Format-Control Letters: Control Letters.
+(*note String Manipulation Functions: String Functions.). For now, it
+suffices to say that the `sprintf' function accepts a "format
+specification" that tells it how to format numbers (or strings), and
+that there are a number of different ways in which numbers can be
+formatted. The different format specifications are discussed more
+fully in *Note Format-Control Letters: Control Letters.
The built-in variable `OFMT' contains the default format
specification that `print' uses with `sprintf' when it wants to convert
a number to a string for printing. The default value of `OFMT' is
-`"%.6g"'. By supplying different format specifications as the value of
-`OFMT', you can change how `print' will print your numbers. As a brief
-example:
+`"%.6g"'. The way `print' prints numbers can be changed by supplying
+different format specifications as the value of `OFMT', as shown in the
+following example:
$ awk 'BEGIN {
> OFMT = "%.0f" # print numbers as integers (rounds)
- > print 17.23 }'
- -| 17
+ > print 17.23, 17.54 }'
+ -| 17 18
-According to the POSIX standard, `awk''s behavior will be undefined if
-`OFMT' contains anything but a floating point conversion specification
-(d.c.).
+According to the POSIX standard, `awk''s behavior is undefined if
+`OFMT' contains anything but a floating-point conversion specification.
+(d.c.)

File: gawk.info, Node: Printf, Next: Redirection, Prev: OFMT, Up: Printing
@@ -3848,13 +4343,14 @@ File: gawk.info, Node: Printf, Next: Redirection, Prev: OFMT, Up: Printing
Using `printf' Statements for Fancier Printing
==============================================
- If you want more precise control over the output format than `print'
-gives you, use `printf'. With `printf' you can specify the width to
-use for each item, and you can specify various formatting choices for
-numbers (such as what radix to use, whether to print an exponent,
-whether to print a sign, and how many digits to print after the decimal
-point). You do this by supplying a string, called the "format string",
-which controls how and where to print the other arguments.
+ For more precise control over the output format than what is
+normally provided by `print', use `printf'. `printf' can be used to
+specify the width to use for each item, as well as various formatting
+choices for numbers (such as what output base to use, whether to print
+an exponent, whether to print a sign, and how many digits to print
+after the decimal point). This is done by supplying a string, called
+the "format string", that controls how and where to print the other
+arguments.
* Menu:
@@ -3869,39 +4365,40 @@ File: gawk.info, Node: Basic Printf, Next: Control Letters, Prev: Printf, Up
Introduction to the `printf' Statement
--------------------------------------
- The `printf' statement looks like this:
+ A simple `printf' statement looks like this:
printf FORMAT, ITEM1, ITEM2, ...
The entire list of arguments may optionally be enclosed in parentheses.
The parentheses are necessary if any of the item expressions use the
-`>' relational operator; otherwise it could be confused with a
-redirection (*note Redirecting Output of `print' and `printf':
-Redirection.).
+`>' relational operator; otherwise it can be confused with a redirection
+(*note Redirecting Output of `print' and `printf': Redirection.).
The difference between `printf' and `print' is the FORMAT argument.
This is an expression whose value is taken as a string; it specifies
how to output each of the other arguments. It is called the "format
string".
- The format string is very similar to that in the ANSI C library
-function `printf'. Most of FORMAT is text to be output verbatim.
-Scattered among this text are "format specifiers", one per item. Each
+ The format string is very similar to that in the ISO C library
+function `printf'. Most of FORMAT is text to output verbatim.
+Scattered among this text are "format specifiers"--one per item. Each
format specifier says to output the next item in the argument list at
that place in the format.
- The `printf' statement does not automatically append a newline to its
-output. It outputs only what the format string specifies. So if you
-want a newline, you must include one in the format string. The output
-separator variables `OFS' and `ORS' have no effect on `printf'
+ The `printf' statement does not automatically append a newline to
+its output. It outputs only what the format string specifies. So if a
+newline is needed, you must include one in the format string. The
+output separator variables `OFS' and `ORS' have no effect on `printf'
statements. For example:
- BEGIN {
- ORS = "\nOUCH!\n"; OFS = "!"
- msg = "Don't Panic!"; printf "%s\n", msg
- }
+ $ awk 'BEGIN {
+ > ORS = "\nOUCH!\n"; OFS = "+"
+ > msg = "Dont Panic!"
+ > printf "%s\n", msg
+ > }'
+ -| Dont Panic!
- This program still prints the familiar `Don't Panic!' message.
+Here, neither the `+' nor the `OUCH' appear when the message is printed.

File: gawk.info, Node: Control Letters, Next: Format Modifiers, Prev: Basic Printf, Up: Printf
@@ -3910,79 +4407,71 @@ Format-Control Letters
----------------------
A format specifier starts with the character `%' and ends with a
-"format-control letter"; it tells the `printf' statement how to output
-one item. (If you actually want to output a `%', write `%%'.) The
-format-control letter specifies what kind of value to print. The rest
-of the format specifier is made up of optional "modifiers" which are
-parameters to use, such as the field width.
-
- Here is a list of the format-control letters:
+"format-control letter"--it tells the `printf' statement how to output
+one item. The format-control letter specifies what _kind_ of value to
+print. The rest of the format specifier is made up of optional
+"modifiers" that control _how_ to print the value, such as the field
+width. Here is a list of the format-control letters:
-`c'
- This prints a number as an ASCII character. Thus, `printf "%c",
- 65' outputs the letter `A'. The output for a string value is the
- first character of the string.
+`%c'
+ This prints a number as an ASCII character; thus, `printf "%c",
+ 65' outputs the letter `A'. (The output for a string value is the
+ first character of the string.)
-`d'
-`i'
- These are equivalent. They both print a decimal integer. The `%i'
- specification is for compatibility with ANSI C.
+`%d, %i'
+ These are equivalent; they both print a decimal integer. (The
+ `%i' specification is for compatibility with ISO C.)
-`e'
-`E'
- This prints a number in scientific (exponential) notation. For
- example,
+`%e, %E'
+ These print a number in scientific (exponential) notation; for
+ example:
printf "%4.3e\n", 1950
- prints `1.950e+03', with a total of four significant figures of
- which three follow the decimal point. The `4.3' are modifiers,
- discussed below. `%E' uses `E' instead of `e' in the output.
+ prints `1.950e+03', with a total of four significant figures,
+ three of which follow the decimal point. (The `4.3' represents
+ two modifiers, discussed in the next node.) `%E' uses `E' instead
+ of `e' in the output.
-`f'
- This prints a number in floating point notation. For example,
+`%f'
+ This prints a number in floating-point notation. For example:
printf "%4.3f", 1950
- prints `1950.000', with a total of four significant figures of
- which three follow the decimal point. The `4.3' are modifiers,
- discussed below.
+ prints `1950.000', with a total of four significant figures, three
+ of which follow the decimal point. (The `4.3' represents two
+ modifiers, discussed in the next node.)
-`g'
-`G'
- This prints a number in either scientific notation or floating
- point notation, whichever uses fewer characters. If the result is
- printed in scientific notation, `%G' uses `E' instead of `e'.
+`%g, %G'
+ These print a number in either scientific notation or in
+ floating-point notation, whichever uses fewer characters; if the
+ result is printed in scientific notation, `%G' uses `E' instead of
+ `e'.
-`o'
- This prints an unsigned octal integer. (In octal, or base-eight
- notation, the digits run from `0' to `7'; the decimal number eight
- is represented as `10' in octal.)
+`%o'
+ This prints an unsigned octal integer.
-`s'
+`%s'
This prints a string.
-`u'
- This prints an unsigned decimal number. (This format is of
- marginal use, since all numbers in `awk' are floating point. It
+`%u'
+ This prints an unsigned decimal integer. (This format is of
+ marginal use, because all numbers in `awk' are floating-point; it
is provided primarily for compatibility with C.)
-`x'
-`X'
- This prints an unsigned hexadecimal integer. (In hexadecimal, or
- base-16 notation, the digits are `0' through `9' and `a' through
- `f'. The hexadecimal digit `f' represents the decimal number 15.)
- `%X' uses the letters `A' through `F' instead of `a' through `f'.
+`%x, %X'
+ These print an unsigned hexadecimal integer; `%X' uses the letters
+ `A' through `F' instead of `a' through `f'.
-`%'
- This isn't really a format-control letter, but it does have a
- meaning when used after a `%': the sequence `%%' outputs one `%'.
- It does not consume an argument, and it ignores any modifiers.
+`%%'
+ This isn't a format-control letter but it does have meaning--the
+ sequence `%%' outputs one `%'; it does not consume an argument and
+ it ignores any modifiers.
- When using the integer format-control letters for values that are
-outside the range of a C `long' integer, `gawk' will switch to the `%g'
-format specifier. Other versions of `awk' may print invalid values, or
-do something else entirely (d.c.).
+ *Note:* When using the integer format-control letters for values
+that are outside the range of a C `long' integer, `gawk' switches to the
+`%g' format specifier. Other versions of `awk' may print invalid values
+or do something else entirely. (d.c.)

File: gawk.info, Node: Format Modifiers, Next: Printf Examples, Prev: Control Letters, Up: Printf
@@ -3991,50 +4480,69 @@ Modifiers for `printf' Formats
------------------------------
A format specification can also include "modifiers" that can control
-how much of the item's value is printed and how much space it gets. The
-modifiers come between the `%' and the format-control letter. In the
-examples below, we use the bullet symbol "*" to represent spaces in the
-output. Here are the possible modifiers, in the order in which they may
-appear:
+how much of the item's value is printed, as well as how much space it
+gets. The modifiers come between the `%' and the format-control letter.
+We will use the bullet symbol "*" in the following examples to represent
+spaces in the output. Here are the possible modifiers, in the order in
+which they may appear:
+
+`N$'
+ An integer constant followed by a `$' is a "positional specifier".
+ Normally, format specifications are applied to arguments in the
+ order given in the format string. With a positional specifier,
+ the format specification is applied to a specific argument,
+ instead of what would be the next argument in the list.
+ Positional specifiers begin counting with one:
+
+ printf "%s %s\n", "don't", "panic"
+ printf "%2$s %1$s\n", "panic", "don't"
+
+ prints the famous friendly message twice.
+
+ At first glance, this feature doesn't seem to be of much use. It
+ is in fact a `gawk' extension, intended for use in translating
+ messages at runtime. *Note Rearranging `printf' Arguments: Printf
+ Ordering, which describes how and why to use positional specifiers.
+ For now, we will not use them.
`-'
- The minus sign, used before the width modifier (see below), says
- to left-justify the argument within its specified width. Normally
- the argument is printed right-justified in the specified width.
- Thus,
+ The minus sign, used before the width modifier (see further on in
+ this table), says to left-justify the argument within its
+ specified width. Normally, the argument is printed
+ right-justified in the specified width. Thus:
printf "%-4s", "foo"
prints `foo*'.
`SPACE'
- For numeric conversions, prefix positive values with a space, and
+ For numeric conversions, prefix positive values with a space and
negative values with a minus sign.
`+'
- The plus sign, used before the width modifier (see below), says to
- always supply a sign for numeric conversions, even if the data to
- be formatted is positive. The `+' overrides the space modifier.
+ The plus sign, used before the width modifier (see further on in
+ this table), says to always supply a sign for numeric conversions,
+ even if the data to format is positive. The `+' overrides the
+ space modifier.
`#'
Use an "alternate form" for certain control letters. For `%o',
- supply a leading zero. For `%x', and `%X', supply a leading `0x'
- or `0X' for a non-zero result. For `%e', `%E', and `%f', the
- result will always contain a decimal point. For `%g', and `%G',
+ supply a leading zero. For `%x' and `%X', supply a leading `0x'
+ or `0X' for a nonzero result. For `%e', `%E', and `%f', the
+ result always contains a decimal point. For `%g' and `%G',
trailing zeros are not removed from the result.
`0'
- A leading `0' (zero) acts as a flag, that indicates output should
- be padded with zeros instead of spaces. This applies even to
- non-numeric output formats (d.c.). This flag only has an effect
- when the field width is wider than the value to be printed.
+ A leading `0' (zero) acts as a flag that indicates that output
+ should be padded with zeros instead of spaces. This applies even
+ to non-numeric output formats. (d.c.) This flag only has an
+ effect when the field width is wider than the value to print.
`WIDTH'
This is a number specifying the desired minimum width of a field.
- Inserting any number between the `%' sign and the format control
- character forces the field to be expanded to this width. The
- default way to do this is to pad with spaces on the left. For
- example,
+ Inserting any number between the `%' sign and the format-control
+ character forces the field to expand to this width. The default
+ way to do this is to pad with spaces on the left. For example:
printf "%4s", "foo"
@@ -4042,7 +4550,7 @@ appear:
The value of WIDTH is a minimum width, not a maximum. If the item
value requires more than WIDTH characters, it can be as wide as
- necessary. Thus,
+ necessary. Thus, the following:
printf "%4s", "foobar"
@@ -4052,14 +4560,24 @@ appear:
padded with spaces on the right, instead of on the left.
`.PREC'
- This is a number that specifies the precision to use when printing.
- For the `e', `E', and `f' formats, this specifies the number of
- digits you want printed to the right of the decimal point. For
- the `g', and `G' formats, it specifies the maximum number of
- significant digits. For the `d', `o', `i', `u', `x', and `X'
- formats, it specifies the minimum number of digits to print. For
- a string, it specifies the maximum number of characters from the
- string that should be printed. Thus,
+ A period followed by an integer constant specifies the precision
+ to use when printing. The meaning of the precision varies by
+ control letter:
+
+ `%e', `%E', `%f'
+ Number of digits to the right of the decimal point.
+
+ `%g', `%G'
+ Maximum number of significant digits.
+
+ `%d', `%i', `%o', `%u', `%x', `%X'
+ Minimum number of digits to print.
+
+ `%s'
+ Maximum number of characters from the string that should
+ print.
+
+ Thus, the following:
printf "%.4s", "foobar"
@@ -4067,38 +4585,37 @@ appear:
The C library `printf''s dynamic WIDTH and PREC capability (for
example, `"%*.*s"') is supported. Instead of supplying explicit WIDTH
-and/or PREC values in the format string, you pass them in the argument
-list. For example:
+and/or PREC values in the format string, they are passed in the
+argument list. For example:
w = 5
p = 3
s = "abcdefg"
printf "%*.*s\n", w, p, s
-is exactly equivalent to
+is exactly equivalent to:
s = "abcdefg"
printf "%5.3s\n", s
-Both programs output `**abc'.
-
- Earlier versions of `awk' did not support this capability. If you
-must use such a version, you may simulate this feature by using
-concatenation to build up the format string, like so:
+Both programs output `**abc'. Earlier versions of `awk' did not
+support this capability. If you must use such a version, you may
+simulate this feature by using concatenation to build up the format
+string, like so:
w = 5
p = 3
s = "abcdefg"
printf "%" w "." p "s\n", s
-This is not particularly easy to read, but it does work.
+This is not particularly easy to read but it does work.
- C programmers may be used to supplying additional `l' and `h' flags
-in `printf' format strings. These are not valid in `awk'. Most `awk'
-implementations silently ignore these flags. If `--lint' is provided
-on the command line (*note Command Line Options: Options.), `gawk' will
-warn about their use. If `--posix' is supplied, their use is a fatal
-error.
+ C programmers may be used to supplying additional `l', `L', and `h'
+modifiers in `printf' format strings. These are not valid in `awk'.
+Most `awk' implementations silently ignore these modifiers. If
+`--lint' is provided on the command line (*note Command-Line Options:
+Options.), `gawk' warns about their use. If `--posix' is supplied,
+their use is a fatal error.

File: gawk.info, Node: Printf Examples, Prev: Format Modifiers, Up: Printf
@@ -4106,14 +4623,15 @@ File: gawk.info, Node: Printf Examples, Prev: Format Modifiers, Up: Printf
Examples Using `printf'
-----------------------
- Here is how to use `printf' to make an aligned table:
+ The following is a simple example of how to use `printf' to make an
+aligned table:
awk '{ printf "%-10s %s\n", $1, $2 }' BBS-list
-prints the names of bulletin boards (`$1') of the file `BBS-list' as a
-string of 10 characters, left justified. It also prints the phone
-numbers (`$2') afterward on the line. This produces an aligned
-two-column table of names and phone numbers:
+This command prints the names of the bulletin boards (`$1') in the file
+`BBS-list' as a string of 10 characters that are left-justified. It
+also prints the phone numbers (`$2') next on the line. This produces
+an aligned two-column table of names and phone numbers, as shown here:
$ awk '{ printf "%-10s %s\n", $1, $2 }' BBS-list
-| aardvark 555-5553
@@ -4128,35 +4646,34 @@ two-column table of names and phone numbers:
-| sdace 555-3430
-| sabafoo 555-2127
- Did you notice that we did not specify that the phone numbers be
-printed as numbers? They had to be printed as strings because the
-numbers are separated by a dash. If we had tried to print the phone
-numbers as numbers, all we would have gotten would have been the first
-three digits, `555'. This would have been pretty confusing.
+ In this case, the phone numbers had to be printed as strings because
+the numbers are separated by a dash. Printing the phone numbers as
+numbers would have produced just the first three digits: `555'. This
+would have been pretty confusing.
- We did not specify a width for the phone numbers because they are the
-last things on their lines. We don't need to put spaces after them.
+ It wasn't necessary to specify a width for the phone numbers because
+they are last on their lines. They don't need to have spaces after
+them.
- We could make our table look even nicer by adding headings to the
-tops of the columns. To do this, we use the `BEGIN' pattern (*note The
-`BEGIN' and `END' Special Patterns: BEGIN/END.) to force the header to
-be printed only once, at the beginning of the `awk' program:
+ The table could be made to look even nicer by adding headings to the
+tops of the columns. This is done using the `BEGIN' pattern (*note The
+`BEGIN' and `END' Special Patterns: BEGIN/END.) so that the headers
+are only printed once, at the beginning of the `awk' program:
awk 'BEGIN { print "Name Number"
print "---- ------" }
{ printf "%-10s %s\n", $1, $2 }' BBS-list
- Did you notice that we mixed `print' and `printf' statements in the
-above example? We could have used just `printf' statements to get the
-same results:
+ The above example mixed `print' and `printf' statements in the same
+program. Using just `printf' statements can produce the same results:
awk 'BEGIN { printf "%-10s %s\n", "Name", "Number"
printf "%-10s %s\n", "----", "------" }
{ printf "%-10s %s\n", $1, $2 }' BBS-list
-By printing each column heading with the same format specification used
-for the elements of the column, we have made sure that the headings are
-aligned just like the columns.
+Printing each column heading with the same format specification used
+for the column elements ensures that the headings are aligned just like
+the columns.
The fact that the same format specification is used three times can
be emphasized by storing it in a variable, like this:
@@ -4166,9 +4683,10 @@ be emphasized by storing it in a variable, like this:
printf format, "----", "------" }
{ printf format, $1, $2 }' BBS-list
- See if you can use the `printf' statement to line up the headings and
-table data for our `inventory-shipped' example covered earlier in the
-section on the `print' statement (*note The `print' Statement: Print.).
+ At this point, it would be a worthwhile exercise to use the `printf'
+statement to line up the headings and table data for the
+`inventory-shipped' example that was covered earlier in the minor node
+on the `print' statement (*note The `print' Statement: Print.).

File: gawk.info, Node: Redirection, Next: Special Files, Prev: Printf, Up: Printing
@@ -4176,34 +4694,33 @@ File: gawk.info, Node: Redirection, Next: Special Files, Prev: Printf, Up: P
Redirecting Output of `print' and `printf'
==========================================
- So far we have been dealing only with output that prints to the
-standard output, usually your terminal. Both `print' and `printf' can
-also send their output to other places. This is called "redirection".
+ So far, the output from `print' and `printf' has gone to the standard
+output, usually the terminal. Both `print' and `printf' can also send
+their output to other places. This is called "redirection".
A redirection appears after the `print' or `printf' statement.
Redirections in `awk' are written just like redirections in shell
commands, except that they are written inside the `awk' program.
- There are three forms of output redirection: output to a file,
-output appended to a file, and output through a pipe to another command.
-They are all shown for the `print' statement, but they work identically
-for `printf' also.
+ There are four forms of output redirection: output to a file, output
+appended to a file, output through a pipe to another command, and output
+to a coprocess. They are all shown for the `print' statement, but they
+work identically for `printf':
`print ITEMS > OUTPUT-FILE'
This type of redirection prints the items into the output file
- OUTPUT-FILE. The file name OUTPUT-FILE can be any expression.
- Its value is changed to a string and then used as a file name
- (*note Expressions::).
+ named OUTPUT-FILE. The file name OUTPUT-FILE can be any
+ expression. Its value is changed to a string and then used as a
+ file name (*note Expressions::).
When this type of redirection is used, the OUTPUT-FILE is erased
before the first output is written to it. Subsequent writes to
the same OUTPUT-FILE do not erase OUTPUT-FILE, but append to it.
- If OUTPUT-FILE does not exist, then it is created.
-
- For example, here is how an `awk' program can write a list of BBS
- names to a file `name-list' and a list of phone numbers to a file
- `phone-list'. Each output file contains one name or number per
- line.
+ (This is different from how you use redirections in shell scripts.)
+ If OUTPUT-FILE does not exist, it is created. For example, here
+ is how an `awk' program can write a list of BBS names to one file
+ named `name-list', and a list of phone numbers to another file
+ named `phone-list':
$ awk '{ print $2 > "phone-list"
> print $1 > "name-list" }' BBS-list
@@ -4216,9 +4733,11 @@ for `printf' also.
-| alpo-net
...
+ Each output file contains one name or number per line.
+
`print ITEMS >> OUTPUT-FILE'
This type of redirection prints the items into the pre-existing
- output file OUTPUT-FILE. The difference between this and the
+ output file named OUTPUT-FILE. The difference between this and the
single-`>' redirection is that the old contents (if any) of
OUTPUT-FILE are not erased. Instead, the `awk' output is appended
to the file. If OUTPUT-FILE does not exist, then it is created.
@@ -4226,27 +4745,26 @@ for `printf' also.
`print ITEMS | COMMAND'
It is also possible to send output to another program through a
pipe instead of into a file. This type of redirection opens a
- pipe to COMMAND and writes the values of ITEMS through this pipe,
+ pipe to COMMAND, and writes the values of ITEMS through this pipe
to another process created to execute COMMAND.
The redirection argument COMMAND is actually an `awk' expression.
- Its value is converted to a string, whose contents give the shell
- command to be run.
-
- For example, this produces two files, one unsorted list of BBS
- names and one list sorted in reverse alphabetical order:
+ Its value is converted to a string whose contents give the shell
+ command to be run. For example, the following produces two files,
+ one unsorted list of BBS names, and one list sorted in reverse
+ alphabetical order:
awk '{ print $1 > "names.unsorted"
command = "sort -r > names.sorted"
print $1 | command }' BBS-list
- Here the unsorted list is written with an ordinary redirection
- while the sorted list is written by piping through the `sort'
- utility.
+ The unsorted list is written with an ordinary redirection, while
+ the sorted list is written by piping through the `sort' utility.
- This example uses redirection to mail a message to a mailing list
- `bug-system'. This might be useful when trouble is encountered in
- an `awk' script run periodically for system maintenance.
+ The next example uses redirection to mail a message to the mailing
+ list `bug-system'. This might be useful when trouble is
+ encountered in an `awk' script run periodically for system
+ maintenance:
report = "mail bug-system"
print "Awk script failed:", $0 | report
@@ -4256,26 +4774,73 @@ for `printf' also.
The message is built using string concatenation and saved in the
variable `m'. It is then sent down the pipeline to the `mail'
- program.
+ program. (The parentheses group the items to concatenate--see
+ *Note String Concatenation: Concatenation.)
+
+ The `close' function is called here because it's a good idea to
+ close the pipe as soon as all the intended output has been sent to
+ it. *Note Closing Input and Output Redirections: Close Files And
+ Pipes, for more information on this.
+
+ This example also illustrates the use of a variable to represent a
+ FILE or COMMAND--it is not necessary to always use a string
+ constant. Using a variable is generally a good idea, because
+ `awk' requires that the string value be spelled identically every
+ time.
+
+`print ITEMS |& COMMAND'
+ This type of redirection prints the items to the input of COMMAND.
+ The difference between this and the single-`|' redirection is that
+ the output from COMMAND can be read with `getline'. Thus COMMAND
+ is a "coprocess", that works together with, but subsidiary to, the
+ `awk' program.
+
+ This feature is a `gawk' extension, and is not available in POSIX
+ `awk'. *Note Two-Way Communications with Another Process: Two-way
+ I/O, for a more complete discussion.
+
+ Redirecting output using `>', `>>', `|', or `|&' asks the system to
+open a file, pipe, or coprocess, only if the particular FILE or COMMAND
+you specify has not already been written to by your program or if it
+has been closed since it was last written to.
+
+ It is a common error to use `>' redirection for the first `print' to
+a file, and then to use `>>' for subsequent output:
+
+ # clear the file
+ print "Don't panic" > "guide.txt"
+ ...
+ # append
+ print "Avoid improbability generators" >> "guide.txt"
- We call the `close' function here because it's a good idea to close
- the pipe as soon as all the intended output has been sent to it.
- *Note Closing Input and Output Files and Pipes: Close Files And
- Pipes, for more information on this. This example also
- illustrates the use of a variable to represent a FILE or COMMAND:
- it is not necessary to always use a string constant. Using a
- variable is generally a good idea, since `awk' requires you to
- spell the string value identically every time.
+This is indeed how redirections must be used from the shell. But in
+`awk', it isn't necessary. In this kind of case, a program should use
+`>' for all the `print' statements, since the output file is only
+opened once.
- Redirecting output using `>', `>>', or `|' asks the system to open a
-file or pipe only if the particular FILE or COMMAND you've specified
-has not already been written to by your program, or if it has been
-closed since it was last written to.
+ Many `awk' implementations limit the number of pipelines that an
+`awk' program may have open to just one! In `gawk', there is no such
+limit. `gawk' allows a program to open as many pipelines as the
+underlying operating system permits.
+
+Advanced Notes: Piping into `sh'
+--------------------------------
+
+ A particularly powerful way to use redirection is to build command
+lines, and pipe them into the shell, `sh'. For example, suppose you
+have a list of files brought over from a system where all the file names
+are stored in uppercase, and you wish to rename them to have names in
+all lowercase. The following program is both simple and efficient:
+
+ { printf("mv %s %s\n", $0, tolower($0)) | "sh" }
+
+ END { close("sh") }
- Many `awk' implementations limit the number of pipelines an `awk'
-program may have open to just one! In `gawk', there is no such limit.
-You can open as many pipelines as the underlying operating system will
-permit.
+ The `tolower' function returns its argument string with all
+uppercase characters converted to lowercase (*note String Manipulation
+Functions: String Functions.). The program builds up a list of command
+lines, using the `mv' utility to rename the files. It then sends the
+list to the shell for execution.

File: gawk.info, Node: Special Files, Next: Close Files And Pipes, Prev: Redirection, Up: Printing
@@ -4283,38 +4848,57 @@ File: gawk.info, Node: Special Files, Next: Close Files And Pipes, Prev: Redi
Special File Names in `gawk'
============================
+ `gawk' provides a number of special file names that it interprets
+internally. These file names provide access to standard file
+descriptors, process-related information, and TCP/IP networking.
+
+* Menu:
+
+* Special FD:: Special files for I/O.
+* Special Process:: Special files for process information.
+* Special Network:: Special files for network communications.
+* Special Caveats:: Things to watch out for.
+
+
+File: gawk.info, Node: Special FD, Next: Special Process, Prev: Special Files, Up: Special Files
+
+Special Files for Standard Descriptors
+--------------------------------------
+
Running programs conventionally have three input and output streams
already available to them for reading and writing. These are known as
the "standard input", "standard output", and "standard error output".
These streams are, by default, connected to your terminal, but they are
-often redirected with the shell, via the `<', `<<', `>', `>>', `>&' and
-`|' operators. Standard error is typically used for writing error
-messages; the reason we have two separate streams, standard output and
-standard error, is so that they can be redirected separately.
+often redirected with the shell, via the `<', `<<', `>', `>>', `>&',
+and `|' operators. Standard error is typically used for writing error
+messages; the reason there are two separate streams, standard output,
+and standard error, is so that they can be redirected separately.
In other implementations of `awk', the only way to write an error
message to standard error in an `awk' program is as follows:
print "Serious error detected!" | "cat 1>&2"
-This works by opening a pipeline to a shell command which can access the
-standard error stream which it inherits from the `awk' process. This
-is far from elegant, and is also inefficient, since it requires a
-separate process. So people writing `awk' programs often neglect to do
+This works by opening a pipeline to a shell command that can access the
+standard error stream that it inherits from the `awk' process. This is
+far from elegant, and it is also inefficient, because it requires a
+separate process. So people writing `awk' programs often don't do
this. Instead, they send the error messages to the terminal, like this:
print "Serious error detected!" > "/dev/tty"
-This usually has the same effect, but not always: although the standard
-error stream is usually the terminal, it can be redirected, and when
-that happens, writing to the terminal is not correct. In fact, if
-`awk' is run from a background job, it may not have a terminal at all.
-Then opening `/dev/tty' will fail.
+This usually has the same effect but not always: although the standard
+error stream is usually the terminal, it can be redirected; when that
+happens, writing to the terminal is not correct. In fact, if `awk' is
+run from a background job, it may not have a terminal at all. Then
+opening `/dev/tty' fails.
`gawk' provides special file names for accessing the three standard
-streams. When you redirect input or output in `gawk', if the file name
-matches one of these special names, then `gawk' directly uses the
-stream it stands for.
+streams, as well as any other inherited open files. If the file name
+matches one of these special names when `gawk' redirects input or
+output, then it directly uses the stream that the file name stands for.
+(These special file names work for all operating systems that `gawk'
+has been ported to, not just those that are POSIX-compliant.):
`/dev/stdin'
The standard input (file descriptor 0).
@@ -4326,39 +4910,46 @@ stream it stands for.
The standard error output (file descriptor 2).
`/dev/fd/N'
- The file associated with file descriptor N. Such a file must have
- been opened by the program initiating the `awk' execution
- (typically the shell). Unless you take special pains in the shell
- from which you invoke `gawk', only descriptors 0, 1 and 2 are
- available.
+ The file associated with file descriptor N. Such a file must be
+ opened by the program initiating the `awk' execution (typically
+ the shell). Unless special pains are taken in the shell from which
+ `gawk' is invoked, only descriptors 0, 1, and 2 are available.
The file names `/dev/stdin', `/dev/stdout', and `/dev/stderr' are
-aliases for `/dev/fd/0', `/dev/fd/1', and `/dev/fd/2', respectively,
-but they are more self-explanatory.
-
- The proper way to write an error message in a `gawk' program is to
-use `/dev/stderr', like this:
+aliases for `/dev/fd/0', `/dev/fd/1', and `/dev/fd/2', respectively.
+However, they are more self-explanatory. The proper way to write an
+error message in a `gawk' program is to use `/dev/stderr', like this:
print "Serious error detected!" > "/dev/stderr"
+ Note the use of quotes around the file name. Like any other
+redirection, the value must be a string. It is a common error to omit
+the quotes, which leads to confusing results.
+
+
+File: gawk.info, Node: Special Process, Next: Special Network, Prev: Special FD, Up: Special Files
+
+Special Files for Process-Related Information
+---------------------------------------------
+
`gawk' also provides special file names that give access to
information about the running `gawk' process. Each of these "files"
provides a single record of information. To read them more than once,
-you must first close them with the `close' function (*note Closing
-Input and Output Files and Pipes: Close Files And Pipes.). The
-filenames are:
+they must first be closed with the `close' function (*note Closing
+Input and Output Redirections: Close Files And Pipes.). The file names
+are:
`/dev/pid'
Reading this file returns the process ID of the current process,
- in decimal, terminated with a newline.
+ in decimal form, terminated with a newline.
`/dev/ppid'
Reading this file returns the parent process ID of the current
- process, in decimal, terminated with a newline.
+ process, in decimal form, terminated with a newline.
`/dev/pgrpid'
Reading this file returns the process group ID of the current
- process, in decimal, terminated with a newline.
+ process, in decimal form, terminated with a newline.
`/dev/user'
Reading this file returns a single record terminated with a
@@ -4382,56 +4973,103 @@ filenames are:
group ID number).
If there are any additional fields, they are the group IDs
- returned by `getgroups' system call. (Multiple groups may not be
- supported on all systems.)
+ returned by the `getgroups' system call. (Multiple groups may not
+ be supported on all systems.)
These special file names may be used on the command line as data
files, as well as for I/O redirections within an `awk' program. They
may not be used as source files with the `-f' option.
- Recognition of these special file names is disabled if `gawk' is in
-compatibility mode (*note Command Line Options: Options.).
+ *Note:* The special files that provide process-related information
+are now considered obsolete and will disappear entirely in the next
+release of `gawk'. `gawk' prints a warning message every time you use
+one of these files. To obtain process-related information, use the
+`PROCINFO' array. *Note Built-in Variables That Convey Information:
+Auto-set.
+
+
+File: gawk.info, Node: Special Network, Next: Special Caveats, Prev: Special Process, Up: Special Files
+
+Special Files for Network Communications
+----------------------------------------
+
+ Starting with version 3.1 of `gawk', `awk' programs can open a
+two-way TCP/IP connection, acting as either a client or server. This
+is done using a special file name of the form:
- *Caution*: Unless your system actually has a `/dev/fd' directory
-(or any of the other above listed special files), the interpretation of
-these file names is done by `gawk' itself. For example, using
-`/dev/fd/4' for output will actually write on file descriptor 4, and
-not on a new file descriptor that was `dup''ed from file descriptor 4.
-Most of the time this does not matter; however, it is important to
-_not_ close any of the files related to file descriptors 0, 1, and 2.
-If you do close one of these files, unpredictable behavior will result.
+ `/inet/PROTOCOL/LOCAL-PORT/REMOTE-HOST/REMOTE-PORT'
- The special files that provide process-related information will
-disappear in a future version of `gawk'. *Note Probable Future
-Extensions: Future Extensions.
+ The PROTOCOL is one of `tcp', `udp', or `raw', and the other fields
+represent the other essential pieces of information for making a
+networking connection. These file names are used with the `|&'
+operator for communicating with a coprocess (*note Two-Way
+Communications with Another Process: Two-way I/O.). This is an
+advanced feature, mentioned here only for completeness. Full
+discussion is delayed until *Note Using `gawk' for Network Programming:
+TCP/IP Networking.
+
+
+File: gawk.info, Node: Special Caveats, Prev: Special Network, Up: Special Files
+
+Special File Name Caveats
+-------------------------
+
+ Here is a list of things to bear in mind when using the special file
+names that `gawk' provides.
+
+ * Recognition of these special file names is disabled if `gawk' is in
+ compatibility mode (*note Command-Line Options: Options.).
+
+ * The special files that provide process-related information are now
+ considered obsolete and will disappear entirely in the next
+ release of `gawk'. `gawk' prints a warning message every time you
+ use one of these files. To obtain process-related information,
+ use the `PROCINFO' array. *Note Built-in Variables::.
+
+ * Starting with version 3.1, `gawk' _always_ interprets these
+ special file names.(1) For example, using `/dev/fd/4' for output
+ actually writes on file descriptor 4, and not on a new file
+ descriptor that is `dup''ed from file descriptor 4. Most of the
+ time this does not matter; however, it is important to _not_ close
+ any of the files related to file descriptors 0, 1, and 2. Doing
+ so results in unpredictable behavior.
+
+ ---------- Footnotes ----------
+
+ (1) Older versions of `gawk' would only interpret these names
+internally if the system did not actually have a a `/dev/fd' directory
+or any of the other above listed special files. Usually this didn't
+make a difference, but sometimes it did; thus, it was decided to make
+`gawk''s behavior consistent on all systems and to have it always
+interpret the special file names itself.

File: gawk.info, Node: Close Files And Pipes, Prev: Special Files, Up: Printing
-Closing Input and Output Files and Pipes
-========================================
+Closing Input and Output Redirections
+=====================================
If the same file name or the same shell command is used with
-`getline' (*note Explicit Input with `getline': Getline.) more than
-once during the execution of an `awk' program, the file is opened (or
-the command is executed) only the first time. At that time, the first
+`getline' more than once during the execution of an `awk' program
+(*note Explicit Input with `getline': Getline.), the file is opened (or
+the command is executed) the first time only. At that time, the first
record of input is read from that file or command. The next time the
-same file or command is used in `getline', another record is read from
-it, and so on.
+same file or command is used with `getline', another record is read
+from it, and so on.
- Similarly, when a file or pipe is opened for output, the file name
-or command associated with it is remembered by `awk' and subsequent
+ Similarly, when a file or pipe is opened for output, the file name or
+command associated with it is remembered by `awk', and subsequent
writes to the same file or command are appended to the previous writes.
The file or pipe stays open until `awk' exits.
- This implies that if you want to start reading the same file again
-from the beginning, or if you want to rerun a shell command (rather than
-reading more output from the command), you must take special steps.
-What you must do is use the `close' function, as follows:
+ This implies that special steps are necessary in order to read the
+same file again from the beginning, or to rerun a shell command (rather
+than reading more output from the same command). The `close' function
+makes these things possible:
close(FILENAME)
-or
+or:
close(COMMAND)
@@ -4448,12 +5086,11 @@ then you must close it with this:
Once this function call is executed, the next `getline' from that
file or command, or the next `print' or `printf' to that file or
-command, will reopen the file or rerun the command.
-
- Because the expression that you use to close a file or pipeline must
-exactly match the expression used to open the file or run the command,
-it is good practice to use a variable to store the file name or command.
-The previous example would become
+command, reopens the file or reruns the command. Because the
+expression that you use to close a file or pipeline must exactly match
+the expression used to open the file or run the command, it is good
+practice to use a variable to store the file name or command. The
+previous example becomes the following:
sortcom = "sort -r names"
sortcom | getline foo
@@ -4461,45 +5098,120 @@ The previous example would become
close(sortcom)
This helps avoid hard-to-find typographical errors in your `awk'
-programs.
-
- Here are some reasons why you might need to close an output file:
+programs. Here are some of the reasons for closing an output file:
* To write a file and read it back later on in the same `awk'
- program. Close the file when you are finished writing it; then
- you can start reading it with `getline'.
+ program. Close the file after writing it, then begin reading it
+ with `getline'.
* To write numerous files, successively, in the same `awk' program.
- If you don't close the files, eventually you may exceed a system
- limit on the number of open files in one process. So close each
- one when you are finished writing it.
+ If the files aren't closed, eventually `awk' may exceed a system
+ limit on the number of open files in one process. It is best to
+ close each one when the program has finished writing it.
- * To make a command finish. When you redirect output through a pipe,
- the command reading the pipe normally continues to try to read
- input as long as the pipe is open. Often this means the command
- cannot really do its work until the pipe is closed. For example,
- if you redirect output to the `mail' program, the message is not
- actually sent until the pipe is closed.
+ * To make a command finish. When output is redirected through a
+ pipe, the command reading the pipe normally continues to try to
+ read input as long as the pipe is open. Often this means the
+ command cannot really do its work until the pipe is closed. For
+ example, if output is redirected to the `mail' program, the
+ message is not actually sent until the pipe is closed.
* To run the same program a second time, with the same arguments.
This is not the same thing as giving more input to the first run!
- For example, suppose you pipe output to the `mail' program. If you
- output several lines redirected to this pipe without closing it,
- they make a single message of several lines. By contrast, if you
- close the pipe after each line of output, then each line makes a
- separate message.
-
- `close' returns a value of zero if the close succeeded. Otherwise,
-the value will be non-zero. In this case, `gawk' sets the variable
-`ERRNO' to a string describing the error that occurred.
+ For example, suppose a program pipes output to the `mail' program.
+ If it outputs several lines redirected to this pipe without closing
+ it, they make a single message of several lines. By contrast, if
+ the program closes the pipe after each line of output, then each
+ line makes a separate message.
If you use more files than the system allows you to have open,
-`gawk' will attempt to multiplex the available open files among your
-data files. `gawk''s ability to do this depends upon the facilities of
-your operating system: it may not always work. It is therefore both
-good practice and good portability advice to always use `close' on your
-files when you are done with them.
+`gawk' attempts to multiplex the available open files among your data
+files. `gawk''s ability to do this depends upon the facilities of your
+operating system, so it may not always work. It is therefore both good
+practice and good portability advice to always use `close' on your
+files when you are done with them. In fact, if you are using a lot of
+pipes, it is essential that you close commands when done. For example,
+consider something like this:
+
+ {
+ ...
+ command = ("grep " $1 " /some/file | my_prog -q " $3)
+ while ((command | getline) > 0) {
+ PROCESS OUTPUT OF command
+ }
+ # need close(command) here
+ }
+
+ This example creates a new pipeline based on data in _each_ record.
+Without the call to `close' indicated in the comment, `awk' creates
+child processes to run the commands, until it eventually runs out of
+file descriptors for more pipelines.
+
+ Even though each command has finished (as indicated by the
+end-of-file return status from `getline'), the child process is not
+terminated;(1) more importantly, the file descriptor for the pipe is
+not closed and released until `close' is called or `awk' exits.
+
+ `close' will silently do nothing if given an argument that does not
+represent a file, pipe or coprocess that was opened with a redirection.
+
+ When using the `|&' operator to communicate with a coprocess, it is
+occasionally useful to be able to close one end of the two-way pipe
+without closing the other. This is done by supplying a second argument
+to `close'. As in any other call to `close', the first argument is the
+name of the command or special file used to start the coprocess. The
+second argument should be a string, with either of the values `"to"' or
+`"from"'. Case does not matter. As this is an advanced feature, a
+more complete discussion is delayed until *Note Two-Way Communications
+with Another Process: Two-way I/O, which discusses it in more detail
+and gives an example.
+
+Advanced Notes: Using `close''s Return Value
+--------------------------------------------
+
+ In many versions of Unix `awk', the `close' function is actually a
+statement. It is a syntax error to try and use the return value from
+`close': (d.c.)
+
+ command = "..."
+ command | getline info
+ retval = close(command) # syntax error in most Unix awks
+
+ `gawk' treats `close' as a function. The return value is -1 if the
+argument names something that was never opened with a redirection, or
+if there is a system problem closing the file or process. In these
+cases, `gawk' sets the built-in variable `ERRNO' to a string describing
+the problem.
+
+ In `gawk', when closing a pipe or coprocess, the return value is the
+exit status of the command. Otherwise, it is the return value from the
+system's `close' or `fclose' C functions when closing input or output
+files, respectively. This value is zero if the close succeeds, or -1 if
+it fails.
+
+ The return value for closing a pipeline is particularly useful. It
+allows you to get the output from a command as well as its exit status.
+
+ For POSIX-compliant systems, if the exit status is a number above
+128, then the program was terminated by a signal. Subtract 128 to get
+the signal number:
+
+ exit_val = close(command)
+ if (exit_val > 128)
+ print command, "died with signal", exit_val - 128
+ else
+ print command, "exited with code", exit_val
+
+ Currently, in `gawk', this only works for commands piping into
+`getline'. For commands piped into from `print' or `printf', the
+return value from `close' is that of the library's `pclose' function.
+
+ ---------- Footnotes ----------
+
+ (1) The technical terminology is rather morbid. The finished child
+is called a "zombie," and cleaning up after it is referred to as
+"reaping."

File: gawk.info, Node: Expressions, Next: Patterns and Actions, Prev: Printing, Up: Top
@@ -4508,20 +5220,20 @@ Expressions
***********
Expressions are the basic building blocks of `awk' patterns and
-actions. An expression evaluates to a value, which you can print, test,
-store in a variable or pass to a function. Additionally, an expression
-can assign a new value to a variable or a field, with an assignment
-operator.
+actions. An expression evaluates to a value that you can print, test,
+or pass to a function. Additionally, an expression can assign a new
+value to a variable or a field by using an assignment operator.
An expression can serve as a pattern or action statement on its own.
-Most other kinds of statements contain one or more expressions which
-specify data on which to operate. As in other languages, expressions
-in `awk' include variables, array references, constants, and function
-calls, as well as combinations of these with various operators.
+Most other kinds of statements contain one or more expressions that
+specify the data on which to operate. As in other languages,
+expressions in `awk' include variables, array references, constants,
+and function calls, as well as combinations of these with various
+operators.
* Menu:
-* Constants:: String, numeric, and regexp constants.
+* Constants:: String, numeric and regexp constants.
* Using Constant Regexps:: When and how to use a regexp constant.
* Variables:: Variables give names to values for later use.
* Conversion:: The conversion of strings to numbers and vice
@@ -4532,7 +5244,7 @@ calls, as well as combinations of these with various operators.
* Assignment Ops:: Changing the value of a variable or a field.
* Increment Ops:: Incrementing the numeric value of a variable.
* Truth Values:: What is ``true'' and what is ``false''.
-* Typing and Comparison:: How variables acquire types, and how this
+* Typing and Comparison:: How variables acquire types and how this
affects comparison of numbers and strings with
`<', etc.
* Boolean Ops:: Combining comparison expressions using boolean
@@ -4551,46 +5263,129 @@ Constant Expressions
====================
The simplest type of expression is the "constant", which always has
-the same value. There are three types of constants: numeric constants,
-string constants, and regular expression constants.
+the same value. There are three types of constants: numeric, string,
+and regular expression.
+
+ Each is used in the appropriate context when you need a data value
+that isn't going to change. Numeric constants can have different
+forms, but are stored identically internally.
* Menu:
* Scalar Constants:: Numeric and string constants.
+* Non-decimal-numbers:: What are octal and hex numbers.
* Regexp Constants:: Regular Expression constants.

-File: gawk.info, Node: Scalar Constants, Next: Regexp Constants, Prev: Constants, Up: Constants
+File: gawk.info, Node: Scalar Constants, Next: Non-decimal-numbers, Prev: Constants, Up: Constants
Numeric and String Constants
----------------------------
A "numeric constant" stands for a number. This number can be an
integer, a decimal fraction, or a number in scientific (exponential)
-notation.(1) Here are some examples of numeric constants, which all
-have the same value:
+notation.(1) Here are some examples of numeric constants that all have
+the same value:
105
1.05e+2
1050e-1
A string constant consists of a sequence of characters enclosed in
-double-quote marks. For example:
+double quote marks. For example:
"parrot"
represents the string whose contents are `parrot'. Strings in `gawk'
-can be of any length and they can contain any of the possible eight-bit
-ASCII characters including ASCII NUL (character code zero). Other `awk'
-implementations may have difficulty with some character codes.
+can be of any length, and they can contain any of the possible
+eight-bit ASCII characters including ASCII NUL (character code zero).
+Other `awk' implementations may have difficulty with some character
+codes.
---------- Footnotes ----------
- (1) The internal representation uses double-precision floating point
-numbers. If you don't know what that means, then don't worry about it.
+ (1) The internal representation of all numbers, including integers,
+uses double-precision floating-point numbers. On most modern systems,
+these are in IEEE 754 standard format.

-File: gawk.info, Node: Regexp Constants, Prev: Scalar Constants, Up: Constants
+File: gawk.info, Node: Non-decimal-numbers, Next: Regexp Constants, Prev: Scalar Constants, Up: Constants
+
+Octal and Hexadecimal Numbers
+-----------------------------
+
+ In `awk', all numbers are in decimal; i.e., base 10. Many other
+programming languages allow you to specify numbers in other bases, often
+octal (base 8) and hexadecimal (base 16). In octal, the numbers go 0,
+1, 2, 3, 4, 5, 6, 7, 10, 11, 12, etc.. Just as `11' in decimal is 1
+times 10 plus 1, so `11' in octal is 1 times 8, plus 1. This equals
+nine in decimal. In hexadecimal, there are 16 digits. Since the
+everyday decimal number system only has ten digits (`0'--`9'), the
+letters `a' through `f' are used to represent the rest. (Case in the
+letters is usually irrelevant; hexadecimal `a' and `A' have the same
+value.) Thus, `11' in hexadecimal is 1 times 16 plus 1, which equals
+17 in decimal.
+
+ Just by looking at plain `11', you can't tell what base it's in.
+So, in C, C++, and other languages derived from C, there is a special
+notation to help signify the base. Octal numbers start with a leading
+`0', and hexadecimal numbers start with a leading `0x' or `0X':
+
+`11'
+ Decimal 11.
+
+`011'
+ Octal 11, decimal value 9.
+
+`0x11'
+ Hexadecimal 11, decimal value 17.
+
+ This example shows the difference:
+
+ $ gawk 'BEGIN { printf "%d, %d, %d\n", 011, 11, 0x11 }'
+ -| 9, 11, 17
+
+ Being able to use octal and hexadecimal constants in your programs
+is most useful when working with data that cannot be represented
+conveniently as characters or as regular numbers, such as binary data
+of various sorts.
+
+ `gawk' allows the use of octal and hexadecimal constants in your
+program text. However, such numbers in the input data are not treated
+differently; doing so by default would break old programs. (If you
+really need to do this, use the `--non-decimal-data' command-line
+option, *note Allowing Non-Decimal Input Data: Non-decimal Data..) If
+you have octal or hexadecimal data, you can use the `strtonum' function
+(*note String Manipulation Functions: String Functions.) to convert
+the data into a number. Most of the time, you will want to use octal
+or hexadecimal constants when working with the built-in bit
+manipulation functions; see *Note Using `gawk''s Bit Manipulation
+Functions: Bitwise Functions, for more information.
+
+ Unlike some early C implementations, `8' and `9' are not valid in
+octal constants; e.g., `gawk' treats `018' as decimal 18.
+
+ $ gawk 'BEGIN { print "021 is", 021 ; print 018 }'
+ -| 021 is 17
+ -| 18
+
+ Octal and hexadecimal source code constants are a `gawk' extension.
+If `gawk' is in compatibility mode (*note Command-Line Options:
+Options.), they are not available.
+
+Advanced Notes: A Constant's Base Does Not Affect Its Value
+-----------------------------------------------------------
+
+ Once a numeric constant has been converted internally into a number,
+`gawk' no longer remembers what the original form of the constant was;
+the internal value is always used. This has particular consequences
+for conversion of numbers to strings:
+
+ $ gawk 'BEGIN { printf "0x11 is <%s>\n", 0x11 }'
+ -| 0x11 is <17>
+
+
+File: gawk.info, Node: Regexp Constants, Prev: Non-decimal-numbers, Up: Constants
Regular Expression Constants
----------------------------
@@ -4607,28 +5402,25 @@ File: gawk.info, Node: Using Constant Regexps, Next: Variables, Prev: Constan
Using Regular Expression Constants
==================================
- When used on the right hand side of the `~' or `!~' operators, a
+ When used on the righthand side of the `~' or `!~' operators, a
regexp constant merely stands for the regexp that is to be matched.
-
- Regexp constants (such as `/foo/') may be used like simple
+However, regexp constants (such as `/foo/') may be used like simple
expressions. When a regexp constant appears by itself, it has the same
-meaning as if it appeared in a pattern, i.e. `($0 ~ /foo/)' (d.c.)
-(*note Expressions as Patterns: Expression Patterns.). This means that
-the two code segments,
+meaning as if it appeared in a pattern, i.e.; `($0 ~ /foo/)' (d.c.)
+*Note Expressions as Patterns: Expression Patterns. This means that
+the following two code segments:
if ($0 ~ /barfly/ || $0 ~ /camelot/)
print "found"
-and
+and:
if (/barfly/ || /camelot/)
print "found"
-are exactly equivalent.
-
- One rather bizarre consequence of this rule is that the following
-boolean expression is valid, but does not do what the user probably
-intended:
+are exactly equivalent. One rather bizarre consequence of this rule is
+that the following Boolean expression is valid, but does not do what
+the user probably intended:
# note that /foo/ is on the left of the ~
if (/foo/ ~ $1) print "found foo"
@@ -4636,34 +5428,27 @@ intended:
This code is "obviously" testing `$1' for a match against the regexp
`/foo/'. But in fact, the expression `/foo/ ~ $1' actually means `($0
~ /foo/) ~ $1'. In other words, first match the input record against
-the regexp `/foo/'. The result will be either zero or one, depending
-upon the success or failure of the match. Then match that result
-against the first field in the record.
-
- Since it is unlikely that you would ever really wish to make this
-kind of test, `gawk' will issue a warning when it sees this construct in
-a program.
-
- Another consequence of this rule is that the assignment statement
+the regexp `/foo/'. The result is either zero or one, depending upon
+the success or failure of the match. That result is then matched
+against the first field in the record. Because it is unlikely that you
+would ever really want to make this kind of test, `gawk' issues a
+warning when it sees this construct in a program. Another consequence
+of this rule is that the assignment statement:
matches = /foo/
-will assign either zero or one to the variable `matches', depending
-upon the contents of the current input record.
-
- This feature of the language was never well documented until the
-POSIX specification.
+assigns either zero or one to the variable `matches', depending upon
+the contents of the current input record. This feature of the language
+has never been well documented until the POSIX specification.
Constant regular expressions are also used as the first argument for
-the `gensub', `sub' and `gsub' functions, and as the second argument of
-the `match' function (*note Built-in Functions for String Manipulation:
-String Functions.). Modern implementations of `awk', including `gawk',
-allow the third argument of `split' to be a regexp constant, while some
-older implementations do not (d.c.).
-
- This can lead to confusion when attempting to use regexp constants
-as arguments to user defined functions (*note User-defined Functions:
-User-defined.). For example:
+the `gensub', `sub', and `gsub' functions, and as the second argument
+of the `match' function (*note String Manipulation Functions: String
+Functions.). Modern implementations of `awk', including `gawk', allow
+the third argument of `split' to be a regexp constant, but some older
+implementations do not. (d.c.) This can lead to confusion when
+attempting to use regexp constants as arguments to user defined
+functions (*note User-Defined Functions: User-defined.). For example:
function mysub(pat, repl, str, global)
{
@@ -4681,15 +5466,13 @@ User-defined.). For example:
...
}
- In this example, the programmer wishes to pass a regexp constant to
-the user-defined function `mysub', which will in turn pass it on to
-either `sub' or `gsub'. However, what really happens is that the `pat'
-parameter will be either one or zero, depending upon whether or not
-`$0' matches `/hi/'.
-
- As it is unlikely that you would ever really wish to pass a truth
-value in this way, `gawk' will issue a warning when it sees a regexp
-constant used as a parameter to a user-defined function.
+ In this example, the programmer wants to pass a regexp constant to
+the user-defined function `mysub', which in turn passes it on to either
+`sub' or `gsub'. However, what really happens is that the `pat'
+parameter is either one or zero, depending upon whether or not `$0'
+matches `/hi/'. `gawk' issues a warning when it sees a regexp constant
+used as a parameter to a user-defined function, since passing a truth
+value in this way is probably not what was intended.

File: gawk.info, Node: Variables, Next: Conversion, Prev: Using Constant Regexps, Up: Expressions
@@ -4698,15 +5481,15 @@ Variables
=========
Variables are ways of storing values at one point in your program for
-use later in another part of your program. You can manipulate them
-entirely within your program text, and you can also assign values to
-them on the `awk' command line.
+use later in another part of your program. They can be manipulated
+entirely within the program text, and they can also be assigned values
+on the `awk' command line.
* Menu:
* Using Variables:: Using variables in your programs.
-* Assignment Options:: Setting variables on the command line and a
- summary of command line syntax. This is an
+* Assignment Options:: Setting variables on the command-line and a
+ summary of command-line syntax. This is an
advanced method of input.

@@ -4715,29 +5498,31 @@ File: gawk.info, Node: Using Variables, Next: Assignment Options, Prev: Varia
Using Variables in a Program
----------------------------
- Variables let you give names to values and refer to them later. You
-have already seen variables in many of the examples. The name of a
-variable must be a sequence of letters, digits and underscores, but it
-may not begin with a digit. Case is significant in variable names; `a'
-and `A' are distinct variables.
+ Variables let you give names to values and refer to them later.
+Variables have already been used in many of the examples. The name of
+a variable must be a sequence of letters, digits, or underscores, and
+it may not begin with a digit. Case is significant in variable names;
+`a' and `A' are distinct variables.
A variable name is a valid expression by itself; it represents the
variable's current value. Variables are given new values with
-"assignment operators", "increment operators" and "decrement operators".
-*Note Assignment Expressions: Assignment Ops.
+"assignment operators", "increment operators", and "decrement
+operators". *Note Assignment Expressions: Assignment Ops.
- A few variables have special built-in meanings, such as `FS', the
-field separator, and `NF', the number of fields in the current input
-record. *Note Built-in Variables::, for a list of them. These
-built-in variables can be used and assigned just like all other
-variables, but their values are also used or changed automatically by
-`awk'. All built-in variables names are entirely upper-case.
+ A few variables have special built-in meanings, such as `FS' (the
+field separator), and `NF' (the number of fields in the current input
+record). *Note Built-in Variables::, for a list of the built-in
+variables. These built-in variables can be used and assigned just like
+all other variables, but their values are also used or changed
+automatically by `awk'. All built-in variables' names are entirely
+uppercase.
Variables in `awk' can be assigned either numeric or string values.
-By default, variables are initialized to the empty string, which is
-zero if converted to a number. There is no need to "initialize" each
-variable explicitly in `awk', the way you would in C and in most other
-traditional languages.
+The kind of value a variable holds can change over the life of a
+program. By default, variables are initialized to the empty string,
+which is zero if converted to a number. There is no need to
+"initialize" each variable explicitly in `awk', which is what you would
+do in C and in most other traditional languages.

File: gawk.info, Node: Assignment Options, Prev: Using Variables, Up: Variables
@@ -4745,28 +5530,26 @@ File: gawk.info, Node: Assignment Options, Prev: Using Variables, Up: Variabl
Assigning Variables on the Command Line
---------------------------------------
- You can set any `awk' variable by including a "variable assignment"
-among the arguments on the command line when you invoke `awk' (*note
-Other Command Line Arguments: Other Arguments.). Such an assignment has
-this form:
+ Any `awk' variable can be set by including a "variable assignment"
+among the arguments on the command line when `awk' is invoked (*note
+Other Command-Line Arguments: Other Arguments.). Such an assignment
+has the following form:
VARIABLE=TEXT
-With it, you can set a variable either at the beginning of the `awk'
-run or in between input files.
-
- If you precede the assignment with the `-v' option, like this:
+With it, a variable is set either at the beginning of the `awk' run or
+in between input files. When the assignment is preceded with the `-v'
+option, as in the following:
-v VARIABLE=TEXT
-then the variable is set at the very beginning, before even the `BEGIN'
+the variable is set at the very beginning, even before the `BEGIN'
rules are run. The `-v' option and its assignment must precede all the
-file name arguments, as well as the program text. (*Note Command Line
+file name arguments, as well as the program text. (*Note Command-Line
Options: Options, for more information about the `-v' option.)
-
- Otherwise, the variable assignment is performed at a time determined
-by its position among the input file arguments: after the processing of
-the preceding input file argument. For example:
+Otherwise, the variable assignment is performed at a time determined by
+its position among the input file arguments--after the processing of the
+preceding input file argument. For example:
awk '{ print $n }' n=4 inventory-shipped n=2 BBS-list
@@ -4775,7 +5558,7 @@ first file is read, the command line sets the variable `n' equal to
four. This causes the fourth field to be printed in lines from the
file `inventory-shipped'. After the first file has finished, but
before the second file is started, `n' is set to two, so that the
-second field is printed in lines from `BBS-list'.
+second field is printed in lines from `BBS-list':
$ awk '{ print $n }' n=4 inventory-shipped n=2 BBS-list
-| 15
@@ -4785,12 +5568,10 @@ second field is printed in lines from `BBS-list'.
-| 555-3412
...
- Command line arguments are made available for explicit examination by
+ Command-line arguments are made available for explicit examination by
the `awk' program in an array named `ARGV' (*note Using `ARGC' and
-`ARGV': ARGC and ARGV.).
-
- `awk' processes the values of command line assignments for escape
-sequences (d.c.) (*note Escape Sequences::).
+`ARGV': ARGC and ARGV.). `awk' processes the values of command-line
+assignments for escape sequences (d.c.) (*note Escape Sequences::).

File: gawk.info, Node: Conversion, Next: Arithmetic Ops, Prev: Variables, Up: Expressions
@@ -4798,68 +5579,72 @@ File: gawk.info, Node: Conversion, Next: Arithmetic Ops, Prev: Variables, Up
Conversion of Strings and Numbers
=================================
- Strings are converted to numbers, and numbers to strings, if the
-context of the `awk' program demands it. For example, if the value of
-either `foo' or `bar' in the expression `foo + bar' happens to be a
-string, it is converted to a number before the addition is performed.
-If numeric values appear in string concatenation, they are converted to
-strings. Consider this:
+ Strings are converted to numbers and numbers are converted to
+strings, if the context of the `awk' program demands it. For example,
+if the value of either `foo' or `bar' in the expression `foo + bar'
+happens to be a string, it is converted to a number before the addition
+is performed. If numeric values appear in string concatenation, they
+are converted to strings. Consider the following:
two = 2; three = 3
print (two three) + 4
This prints the (numeric) value 27. The numeric values of the
variables `two' and `three' are converted to strings and concatenated
-together, and the resulting string is converted back to the number 23,
-to which four is then added.
+together. The resulting string is converted back to the number 23, to
+which four is then added.
If, for some reason, you need to force a number to be converted to a
string, concatenate the empty string, `""', with that number. To force
-a string to be converted to a number, add zero to that string.
-
- A string is converted to a number by interpreting any numeric prefix
-of the string as numerals: `"2.5"' converts to 2.5, `"1e3"' converts to
+a string to be converted to a number, add zero to that string. A
+string is converted to a number by interpreting any numeric prefix of
+the string as numerals: `"2.5"' converts to 2.5, `"1e3"' converts to
1000, and `"25fix"' has a numeric value of 25. Strings that can't be
-interpreted as valid numbers are converted to zero.
+interpreted as valid numbers convert to zero.
The exact manner in which numbers are converted into strings is
controlled by the `awk' built-in variable `CONVFMT' (*note Built-in
-Variables::). Numbers are converted using the `sprintf' function
-(*note Built-in Functions for String Manipulation: String Functions.)
-with `CONVFMT' as the format specifier.
+Variables::). Numbers are converted using the `sprintf' function with
+`CONVFMT' as the format specifier (*note String Manipulation Functions:
+String Functions.).
`CONVFMT''s default value is `"%.6g"', which prints a value with at
-least six significant digits. For some applications you will want to
-change it to specify more precision. On most modern machines, you must
-print 17 digits to capture a floating point number's value exactly.
-
- Strange results can happen if you set `CONVFMT' to a string that
-doesn't tell `sprintf' how to format floating point numbers in a useful
-way. For example, if you forget the `%' in the format, all numbers
-will be converted to the same constant string.
-
- As a special case, if a number is an integer, then the result of
-converting it to a string is _always_ an integer, no matter what the
-value of `CONVFMT' may be. Given the following code fragment:
+least six significant digits. For some applications, you might want to
+change it to specify more precision. On most modern machines, 17
+digits is enough to capture a floating-point number's value exactly,
+most of the time.(1)
+
+ Strange results can occur if you set `CONVFMT' to a string that
+doesn't tell `sprintf' how to format floating-point numbers in a useful
+way. For example, if you forget the `%' in the format, `awk' converts
+all numbers to the same constant string. As a special case, if a
+number is an integer, then the result of converting it to a string is
+_always_ an integer, no matter what the value of `CONVFMT' may be.
+Given the following code fragment:
CONVFMT = "%2.2f"
a = 12
b = a ""
-`b' has the value `"12"', not `"12.00"' (d.c.).
-
- Prior to the POSIX standard, `awk' specified that the value of
-`OFMT' was used for converting numbers to strings. `OFMT' specifies
-the output format to use when printing numbers with `print'. `CONVFMT'
-was introduced in order to separate the semantics of conversion from
-the semantics of printing. Both `CONVFMT' and `OFMT' have the same
-default value: `"%.6g"'. In the vast majority of cases, old `awk'
-programs will not change their behavior. However, this use of `OFMT'
-is something to keep in mind if you must port your program to other
-implementations of `awk'; we recommend that instead of changing your
-programs, you just port `gawk' itself! *Note The `print' Statement:
+`b' has the value `"12"', not `"12.00"'. (d.c.)
+
+ Prior to the POSIX standard, `awk' used the value of `OFMT' for
+converting numbers to strings. `OFMT' specifies the output format to
+use when printing numbers with `print'. `CONVFMT' was introduced in
+order to separate the semantics of conversion from the semantics of
+printing. Both `CONVFMT' and `OFMT' have the same default value:
+`"%.6g"'. In the vast majority of cases, old `awk' programs do not
+change their behavior. However, these semantics for `OFMT' are
+something to keep in mind if you must port your new style program to
+older implementations of `awk'. We recommend that instead of changing
+your programs, just port `gawk' itself. *Note The `print' Statement:
Print, for more information on the `print' statement.
+ ---------- Footnotes ----------
+
+ (1) Pathological cases can require up to 752 digits (!), but we
+doubt that you need to worry about this.
+

File: gawk.info, Node: Arithmetic Ops, Next: Concatenation, Prev: Conversion, Up: Expressions
@@ -4868,19 +5653,18 @@ Arithmetic Operators
The `awk' language uses the common arithmetic operators when
evaluating expressions. All of these arithmetic operators follow normal
-precedence rules, and work as you would expect them to. Arithmetic
-operations are evaluated using double precision floating point, which
-has the usual problems of inexactness and exceptions.(1)
+precedence rules and work as you would expect them to.
- Here is a file `grades' containing a list of student names and three
-test scores per student (it's a small class):
+ The following example uses a file named `grades', which contains a
+list of student names as well as three test scores per student (it's a
+small class):
Pat 100 97 58
Sandy 84 72 93
Chris 72 92 89
-This programs takes the file `grades', and prints the average of the
-scores.
+This programs takes the file `grades' and prints the average of the
+scores:
$ awk '{ sum = $2 + $3 + $4 ; avg = sum / 3
> print $1, avg }' grades
@@ -4888,44 +5672,34 @@ scores.
-| Sandy 83
-| Chris 84.3333
- This table lists the arithmetic operators in `awk', in order from
-highest precedence to lowest:
+ The following list provides the arithmetic operators in `awk', in
+order from the highest precedence to the lowest:
`- X'
Negation.
`+ X'
- Unary plus. The expression is converted to a number.
+ Unary plus; the expression is converted to a number.
`X ^ Y'
`X ** Y'
- Exponentiation: X raised to the Y power. `2 ^ 3' has the value
- eight. The character sequence `**' is equivalent to `^'. (The
- POSIX standard only specifies the use of `^' for exponentiation.)
+ Exponentiation; X raised to the Y power. `2 ^ 3' has the value
+ eight; the character sequence `**' is equivalent to `^'.
`X * Y'
Multiplication.
`X / Y'
- Division. Since all numbers in `awk' are floating point numbers,
- the result is not rounded to an integer: `3 / 4' has the value
- 0.75.
+ Division; because all numbers in `awk' are floating-point
+ numbers, the result is _not_ rounded to an integer--`3 / 4' has
+ the value 0.75. (It is a common mistake, especially for C
+ programmers, to forget that _all_ numbers in `awk' are
+ floating-point, and that division of integer-looking constants
+ produces a real number, not an integer.)
`X % Y'
- Remainder. The quotient is rounded toward zero to an integer,
- multiplied by Y and this result is subtracted from X. This
- operation is sometimes known as "trunc-mod." The following
- relation always holds:
-
- b * int(a / b) + (a % b) == a
-
- One possibly undesirable effect of this definition of remainder is
- that `X % Y' is negative if X is negative. Thus,
-
- -17 % 8 = -1
-
- In other `awk' implementations, the signedness of the remainder
- may be machine dependent.
+ Remainder; further discussion is provided in the text, just after
+ this list.
`X + Y'
Addition.
@@ -4933,17 +5707,27 @@ highest precedence to lowest:
`X - Y'
Subtraction.
- For maximum portability, do not use the `**' operator.
-
Unary plus and minus have the same precedence, the multiplication
operators all have the same precedence, and addition and subtraction
have the same precedence.
- ---------- Footnotes ----------
+ When computing the remainder of `X % Y', the quotient is rounded
+toward zero to an integer and multiplied by Y. This result is
+subtracted from X; this operation is sometimes known as "trunc-mod."
+The following relation always holds:
+
+ b * int(a / b) + (a % b) == a
+
+ One possibly undesirable effect of this definition of remainder is
+that `X % Y' is negative if X is negative. Thus:
- (1) David Goldberg, `What Every Computer Scientist Should Know About
-Floating-point Arithmetic' (http://www.validgh.com/goldberg/paper.ps),
-`ACM Computing Surveys' *23*, 1 (1991-03), 5-48.
+ -17 % 8 = -1
+
+ In other `awk' implementations, the signedness of the remainder may
+be machine dependent.
+
+ *Note:* The POSIX standard only specifies the use of `^' for
+exponentiation. For maximum portability, do not use the `**' operator.

File: gawk.info, Node: Concatenation, Next: Assignment Ops, Prev: Arithmetic Ops, Up: Expressions
@@ -4954,8 +5738,6 @@ String Concatenation
It seemed like a good idea at the time.
Brian Kernighan
-
-
There is only one string operation: concatenation. It does not have
a specific operator to represent it. Instead, concatenation is
performed by writing expressions next to one another, with no operator.
@@ -4967,16 +5749,16 @@ For example:
...
Without the space in the string constant after the `:', the line
-would run together. For example:
+runs together. For example:
$ awk '{ print "Field number one:" $1 }' BBS-list
-| Field number one:aardvark
-| Field number one:alpo-net
...
- Since string concatenation does not have an explicit operator, it is
-often necessary to insure that it happens where you want it to by using
-parentheses to enclose the items to be concatenated. For example, the
+ Because string concatenation does not have an explicit operator, it
+is often necessary to insure that it happens at the right time by using
+parentheses to enclose the items to concatenate. For example, the
following code fragment does not concatenate `file' and `name' as you
might expect:
@@ -4988,8 +5770,45 @@ It is necessary to use the following:
print "something meaningful" > (file name)
- We recommend that you use parentheses around concatenation in all
-but the most common contexts (such as on the right-hand side of `=').
+ Parentheses should be used around concatenation in all but the most
+common contexts, such as on the righthand side of `='. Be careful
+about the kinds of expressions used in string concatenation. In
+particular, the order of evaluation of expressions used for
+concatenation is undefined in the `awk' language. Consider this
+example:
+
+ BEGIN {
+ a = "don't"
+ print (a " " (a = "panic"))
+ }
+
+It is not defined whether the assignment to `a' happens before or after
+the value of `a' is retrieved for producing the concatenated value.
+The result could be either `don't panic', or `panic panic'. The
+precedence of concatenation, when mixed with other operators, is often
+counter-intuitive. Consider this example:
+
+ $ awk 'BEGIN { print -12 " " -24 }'
+ -| -12-24
+
+ This "obviously" is concatenating -12, a space, and -24. But where
+did the space disappear to? The answer lies in the combination of
+operator precedences and `awk''s automatic conversion rules. To get
+the desired result, write the program in the following manner:
+
+ $ awk 'BEGIN { print -12 " " (-24) }'
+ -| -12 -24
+
+ This forces `awk' to treat the `-' on the `-24' as unary.
+Otherwise, it's parsed as follows:
+
+ -12 (`" "' - 24)
+ => -12 (0 - 24)
+ => -12 (-24)
+ => -12-24
+
+ As mentioned earlier, when doing concatenation, _parenthesize_.
+Otherwise, you're never quite sure what you'll get.

File: gawk.info, Node: Assignment Ops, Next: Increment Ops, Prev: Concatenation, Up: Expressions
@@ -4997,46 +5816,44 @@ File: gawk.info, Node: Assignment Ops, Next: Increment Ops, Prev: Concatenati
Assignment Expressions
======================
- An "assignment" is an expression that stores a new value into a
-variable. For example, let's assign the value one to the variable `z':
+ An "assignment" is an expression that stores a (usually different)
+value into a variable. For example, let's assign the value one to the
+variable `z':
z = 1
After this expression is executed, the variable `z' has the value
one. Whatever old value `z' had before the assignment is forgotten.
- Assignments can store string values also. For example, this would
-store the value `"this food is good"' in the variable `message':
+ Assignments can also store string values. For example, the
+following stores the value `"this food is good"' in the variable
+`message':
thing = "food"
predicate = "good"
message = "this " thing " is " predicate
-(This also illustrates string concatenation.)
-
- The `=' sign is called an "assignment operator". It is the simplest
-assignment operator because the value of the right-hand operand is
-stored unchanged.
+This also illustrates string concatenation. The `=' sign is called an
+"assignment operator". It is the simplest assignment operator because
+the value of the righthand operand is stored unchanged. Most operators
+(addition, concatenation, and so on) have no effect except to compute a
+value. If the value isn't used, there's no reason to use the operator.
+An assignment operator is different; it does produce a value, but even
+if you ignore it, the assignment still makes itself felt through the
+alteration of the variable. We call this a "side effect".
- Most operators (addition, concatenation, and so on) have no effect
-except to compute a value. If you ignore the value, you might as well
-not use the operator. An assignment operator is different; it does
-produce a value, but even if you ignore the value, the assignment still
-makes itself felt through the alteration of the variable. We call this
-a "side effect".
-
- The left-hand operand of an assignment need not be a variable (*note
+ The lefthand operand of an assignment need not be a variable (*note
Variables::); it can also be a field (*note Changing the Contents of a
Field: Changing Fields.) or an array element (*note Arrays in `awk':
Arrays.). These are all called "lvalues", which means they can appear
-on the left-hand side of an assignment operator. The right-hand
-operand may be any expression; it produces the new value which the
-assignment stores in the specified variable, field or array element.
-(Such values are called "rvalues").
+on the lefthand side of an assignment operator. The righthand operand
+may be any expression; it produces the new value that the assignment
+stores in the specified variable, field, or array element. (Such values
+are called "rvalues").
It is important to note that variables do _not_ have permanent types.
-The type of a variable is simply the type of whatever value it happens
-to hold at the moment. In the following program fragment, the variable
+A variable's type is simply the type of whatever value it happens to
+hold at the moment. In the following program fragment, the variable
`foo' has a numeric value at first, and a string value later on:
foo = 1
@@ -5048,38 +5865,39 @@ When the second assignment gives `foo' a string value, the fact that it
previously had a numeric value is forgotten.
String values that do not begin with a digit have a numeric value of
-zero. After executing this code, the value of `foo' is five:
+zero. After executing the following code, the value of `foo' is five:
foo = "a string"
foo = foo + 5
-(Note that using a variable as a number and then later as a string can
-be confusing and is poor programming style. The above examples
+*Note:* Using a variable as a number and then later as a string can be
+confusing and is poor programming style. The previous two examples
illustrate how `awk' works, _not_ how you should write your own
-programs!)
+programs!
- An assignment is an expression, so it has a value: the same value
-that is assigned. Thus, `z = 1' as an expression has the value one.
+ An assignment is an expression, so it has a value--the same value
+that is assigned. Thus, `z = 1' is an expression with the value one.
One consequence of this is that you can write multiple assignments
-together:
+together, such as:
- x = y = z = 0
+ x = y = z = 5
-stores the value zero in all three variables. It does this because the
-value of `z = 0', which is zero, is stored into `y', and then the value
-of `y = z = 0', which is zero, is stored into `x'.
+This example stores the value five in all three variables (`x', `y',
+and `z'). It does so because the value of `z = 5', which is five, is
+stored into `y' and then the value of `y = z = 5', which is five, is
+stored into `x'.
- You can use an assignment anywhere an expression is called for. For
-example, it is valid to write `x != (y = 1)' to set `y' to one and then
-test whether `x' equals one. But this style tends to make programs
-hard to read; except in a one-shot program, you should not use such
-nesting of assignments.
+ Assignments may be used anywhere an expression is called for. For
+example, it is valid to write `x != (y = 1)' to set `y' to one, and
+then test whether `x' equals one. But this style tends to make
+programs hard to read; such nesting of assignments should be avoided,
+except perhaps in a one-shot program.
Aside from `=', there are several other assignment operators that do
arithmetic with the old value of the variable. For example, the
-operator `+=' computes a new value by adding the right-hand value to
-the old value of the variable. Thus, the following assignment adds
-five to the value of `foo':
+operator `+=' computes a new value by adding the righthand value to the
+old value of the variable. Thus, the following assignment adds five to
+the value of `foo':
foo += 5
@@ -5087,11 +5905,11 @@ This is equivalent to the following:
foo = foo + 5
-Use whichever one makes the meaning of your program clearer.
+Use whichever makes the meaning of your program clearer.
There are situations where using `+=' (or any assignment operator)
-is _not_ the same as simply repeating the left-hand operand in the
-right-hand expression. For example:
+is _not_ the same as simply repeating the lefthand operand in the
+righthand expression. For example:
# Thanks to Pat Rankin for this example
BEGIN {
@@ -5104,17 +5922,14 @@ right-hand expression. For example:
print x, bar[x]
}
-The indices of `bar' are guaranteed to be different, because `rand'
-will return different values each time it is called. (Arrays and the
-`rand' function haven't been covered yet. *Note Arrays in `awk':
-Arrays, and see *Note Numeric Built-in Functions: Numeric Functions,
-for more information). This example illustrates an important fact
-about the assignment operators: the left-hand expression is only
-evaluated _once_.
-
- It is also up to the implementation as to which expression is
-evaluated first, the left-hand one or the right-hand one. Consider
-this example:
+The indices of `bar' are practically guaranteed to be different, because
+`rand' returns different values each time it is called. (Arrays and
+the `rand' function haven't been covered yet. *Note Arrays in `awk':
+Arrays, and see *Note Numeric Functions::, for more information). This
+example illustrates an important fact about assignment operators: the
+lefthand expression is only evaluated _once_. It is up to the
+implementation as to which expression is evaluated first, the lefthand
+or the righthand. Consider this example:
i = 1
a[i += 2] = i + 1
@@ -5122,31 +5937,41 @@ this example:
The value of `a[3]' could be either two or four.
Here is a table of the arithmetic assignment operators. In each
-case, the right-hand operand is an expression whose value is converted
+case, the righthand operand is an expression whose value is converted
to a number.
-`LVALUE += INCREMENT'
- Adds INCREMENT to the value of LVALUE to make the new value of
- LVALUE.
+LVALUE `+=' INCREMENT Adds INCREMENT to the value of LVALUE.
+LVALUE `-=' DECREMENT Subtracts DECREMENT from the value of LVALUE.
+LVALUE `*=' Multiplies the value of LVALUE by COEFFICIENT.
+COEFFICIENT
+LVALUE `/=' DIVISOR Divides the value of LVALUE by DIVISOR.
+LVALUE `%=' MODULUS Sets LVALUE to its remainder by MODULUS.
+LVALUE `^=' POWER
+LVALUE `**=' POWER Raises LVALUE to the power POWER.
+
+ *Note:* Only the `^=' operator is specified by POSIX. For maximum
+portability, do not use the `**=' operator.
-`LVALUE -= DECREMENT'
- Subtracts DECREMENT from the value of LVALUE.
+Advanced Notes: Syntactic Ambiguities Between `/=' and Regular Expressions
+--------------------------------------------------------------------------
-`LVALUE *= COEFFICIENT'
- Multiplies the value of LVALUE by COEFFICIENT.
+ There is a syntactic ambiguity between the `/=' assignment operator
+and regexp constants whose first character is an `='. (d.c.) This is
+most notable in commercial `awk' versions. For example:
-`LVALUE /= DIVISOR'
- Divides the value of LVALUE by DIVISOR.
+ $ awk /==/ /dev/null
+ error--> awk: syntax error at source line 1
+ error--> context is
+ error--> >>> /= <<<
+ error--> awk: bailing out at source line 1
-`LVALUE %= MODULUS'
- Sets LVALUE to its remainder by MODULUS.
+A workaround is:
-`LVALUE ^= POWER'
-`LVALUE **= POWER'
- Raises LVALUE to the power POWER. (Only the `^=' operator is
- specified by POSIX.)
+ awk '/[=]=/' /dev/null
- For maximum portability, do not use the `**=' operator.
+ `gawk' does not have this problem, nor do the other freely-available
+versions described in *Note Other Freely Available `awk'
+Implementations: Other Versions.

File: gawk.info, Node: Increment Ops, Next: Truth Values, Prev: Assignment Ops, Up: Expressions
@@ -5155,44 +5980,41 @@ Increment and Decrement Operators
=================================
"Increment" and "decrement operators" increase or decrease the value
-of a variable by one. You could do the same thing with an assignment
-operator, so the increment operators add no power to the `awk'
-language; but they are convenient abbreviations for very common
-operations.
-
- The operator to add one is written `++'. It can be used to increment
-a variable either before or after taking its value.
-
- To pre-increment a variable V, write `++V'. This adds one to the
-value of V and that new value is also the value of this expression.
-The assignment expression `V += 1' is completely equivalent.
-
- Writing the `++' after the variable specifies post-increment. This
-increments the variable value just the same; the difference is that the
-value of the increment expression itself is the variable's _old_ value.
-Thus, if `foo' has the value four, then the expression `foo++' has the
-value four, but it changes the value of `foo' to five.
-
- The post-increment `foo++' is nearly equivalent to writing `(foo +=
-1) - 1'. It is not perfectly equivalent because all numbers in `awk'
-are floating point: in floating point, `foo + 1 - 1' does not
-necessarily equal `foo'. But the difference is minute as long as you
-stick to numbers that are fairly small (less than 10e12).
-
- Any lvalue can be incremented. Fields and array elements are
-incremented just like variables. (Use `$(i++)' when you wish to do a
-field reference and a variable increment at the same time. The
-parentheses are necessary because of the precedence of the field
-reference operator, `$'.)
-
- The decrement operator `--' works just like `++' except that it
-subtracts one instead of adding. Like `++', it can be used before the
-lvalue to pre-decrement or after it to post-decrement.
-
- Here is a summary of increment and decrement expressions.
+of a variable by one. An assignment operator can do the same thing, so
+the increment operators add no power to the `awk' language; however they
+are convenient abbreviations for very common operations.
+
+ The operator used for adding one is written `++'. It can be used to
+increment a variable either before or after taking its value. To
+pre-increment a variable `v', write `++v'. This adds one to the value
+of `v'--that new value is also the value of the expression. (The
+assignment expression `v += 1' is completely equivalent.) Writing the
+`++' after the variable specifies post-increment. This increments the
+variable value just the same; the difference is that the value of the
+increment expression itself is the variable's _old_ value. Thus, if
+`foo' has the value four, then the expression `foo++' has the value
+four, but it changes the value of `foo' to five. In other words, the
+operator returns the old value of the variable, but with the side
+effect of incrementing it.
+
+ The post-increment `foo++' is nearly the same as writing `(foo += 1)
+- 1'. It is not perfectly equivalent because all numbers in `awk' are
+floating-point--in floating-point, `foo + 1 - 1' does not necessarily
+equal `foo'. But the difference is minute as long as you stick to
+numbers that are fairly small (less than 10e12).
+
+ Fields and array elements are incremented just like variables. (Use
+`$(i++)' when you want to do a field reference and a variable increment
+at the same time. The parentheses are necessary because of the
+precedence of the field reference operator `$'.)
+
+ The decrement operator `--' works just like `++', except that it
+subtracts one instead of adding it. As with `++', it can be used before
+the lvalue to pre-decrement or after it to post-decrement. Following
+is a summary of increment and decrement expressions:
`++LVALUE'
- This expression increments LVALUE and the new value becomes the
+ This expression increments LVALUE, and the new value becomes the
value of the expression.
`LVALUE++'
@@ -5200,13 +6022,42 @@ lvalue to pre-decrement or after it to post-decrement.
is the _old_ value of LVALUE.
`--LVALUE'
- Like `++LVALUE', but instead of adding, it subtracts. It
- decrements LVALUE and delivers the value that results.
+ This expression is like `++LVALUE', but instead of adding, it
+ subtracts. It decrements LVALUE and delivers the value that is
+ the result.
`LVALUE--'
- Like `LVALUE++', but instead of adding, it subtracts. It
- decrements LVALUE. The value of the expression is the _old_ value
- of LVALUE.
+ This expression is like `LVALUE++', but instead of adding, it
+ subtracts. It decrements LVALUE. The value of the expression is
+ the _old_ value of LVALUE.
+
+Advanced Notes: Operator Evaluation Order
+-----------------------------------------
+
+ Doctor, doctor! It hurts when I do this!
+ So don't do that!
+ Groucho Marx
+
+What happens for something like the following?
+
+ b = 6
+ print b += b++
+
+Or something even stranger?
+
+ b = 6
+ b += ++b + b++
+ print b
+
+ In other words, when do the various side effects prescribed by the
+postfix operators (`b++') take effect? When side effects happen is
+"implementation defined". In other words, it is up to the particular
+version of `awk'. The result for the first example may be 12 or 13,
+and for the second, it may be 22 or 23.
+
+ In short, doing things like this is not recommended and definitely
+not anything that you can rely upon for portability. You should avoid
+such things in your own programs.

File: gawk.info, Node: Truth Values, Next: Typing and Comparison, Prev: Increment Ops, Up: Expressions
@@ -5216,13 +6067,12 @@ True and False in `awk'
Many programming languages have a special representation for the
concepts of "true" and "false." Such languages usually use the special
-constants `true' and `false', or perhaps their upper-case equivalents.
-
- `awk' is different. It borrows a very simple concept of true and
-false from C. In `awk', any non-zero numeric value, _or_ any non-empty
-string value is true. Any other value (zero or the null string, `""')
-is false. The following program will print `A strange truth value'
-three times:
+constants `true' and `false', or perhaps their uppercase equivalents.
+However, `awk' is different. It borrows a very simple concept of true
+and false from C. In `awk', any nonzero numeric value _or_ any
+non-empty string value is true. Any other value (zero or the null
+string `""') is false. The following program prints `A strange truth
+value' three times:
BEGIN {
if (3.1415927)
@@ -5233,8 +6083,9 @@ three times:
print "A strange truth value"
}
- There is a surprising consequence of the "non-zero or non-null" rule:
-The string constant `"0"' is actually true, since it is non-null (d.c.).
+ There is a surprising consequence of the "nonzero or non-null" rule:
+the string constant `"0"' is actually true, because it is non-null.
+(d.c.)

File: gawk.info, Node: Typing and Comparison, Next: Boolean Ops, Prev: Truth Values, Up: Expressions
@@ -5245,40 +6096,35 @@ Variable Typing and Comparison Expressions
The Guide is definitive. Reality is frequently inaccurate.
The Hitchhiker's Guide to the Galaxy
-
-
Unlike other programming languages, `awk' variables do not have a
fixed type. Instead, they can be either a number or a string, depending
upon the value that is assigned to them.
The 1992 POSIX standard introduced the concept of a "numeric
-string", which is simply a string that looks like a number, for
+string", which is simply a string that looks like a number--for
example, `" +2"'. This concept is used for determining the type of a
-variable.
-
- The type of the variable is important, since the types of two
-variables determine how they are compared.
+variable. The type of the variable is important because the types of
+two variables determine how they are compared. In `gawk', variable
+typing follows these rules:
- In `gawk', variable typing follows these rules.
-
- 1. A numeric literal or the result of a numeric operation has the
+ * A numeric constant or the result of a numeric operation has the
NUMERIC attribute.
- 2. A string literal or the result of a string operation has the STRING
- attribute.
+ * A string constant or the result of a string operation has the
+ STRING attribute.
- 3. Fields, `getline' input, `FILENAME', `ARGV' elements, `ENVIRON'
- elements and the elements of an array created by `split' that are
+ * Fields, `getline' input, `FILENAME', `ARGV' elements, `ENVIRON'
+ elements, and the elements of an array created by `split' that are
numeric strings have the STRNUM attribute. Otherwise, they have
the STRING attribute. Uninitialized variables also have the
STRNUM attribute.
- 4. Attributes propagate across assignments, but are not changed by
- any use.
+ * Attributes propagate across assignments but are not changed by any
+ use.
The last rule is particularly important. In the following program,
`a' has numeric type, even though it is later used in a string
-operation.
+operation:
BEGIN {
a = 12.345
@@ -5287,23 +6133,29 @@ operation.
}
When two operands are compared, either string comparison or numeric
-comparison may be used, depending on the attributes of the operands,
-according to the following, symmetric, matrix:
+comparison may be used. This depends upon the attributes of the
+operands, according to the following symmetric matrix:
- +----------------------------------------------
- | STRING NUMERIC STRNUM
+ +----------------------------------------------
+ | STRING NUMERIC STRNUM
--------+----------------------------------------------
- |
- STRING | string string string
- |
- NUMERIC | string numeric numeric
- |
- STRNUM | string numeric numeric
+ |
+ STRING | string string string
+ |
+ NUMERIC | string numeric numeric
+ |
+ STRNUM | string numeric numeric
--------+----------------------------------------------
- The basic idea is that user input that looks numeric, and _only_
-user input, should be treated as numeric, even though it is actually
-made of characters, and is therefore also a string.
+ The basic idea is that user input that looks numeric--and _only_
+user input--should be treated as numeric, even though it is actually
+made of characters and is therefore also a string. Thus, for example,
+the string constant `" +3.14"' is a string, even though it looks
+numeric, and is _never_ treated as number for comparison purposes.
+
+ In short, when one operand is a "pure" string, such as a string
+constant, then a string comparison is performed. Otherwise, a numeric
+comparison is performed.(1)
"Comparison expressions" compare strings or numbers for
relationships such as equality. They are written using "relational
@@ -5339,20 +6191,19 @@ them:
SUBSCRIPT.
Comparison expressions have the value one if true and zero if false.
-
- When comparing operands of mixed types, numeric operands are
-converted to strings using the value of `CONVFMT' (*note Conversion of
-Strings and Numbers: Conversion.).
+When comparing operands of mixed types, numeric operands are converted
+to strings using the value of `CONVFMT' (*note Conversion of Strings
+and Numbers: Conversion.).
Strings are compared by comparing the first character of each, then
-the second character of each, and so on. Thus `"10"' is less than
+the second character of each, and so on. Thus, `"10"' is less than
`"9"'. If there are two strings where one is a prefix of the other,
-the shorter string is less than the longer one. Thus `"abc"' is less
+the shorter string is less than the longer one. Thus, `"abc"' is less
than `"abcd"'.
- It is very easy to accidentally mistype the `==' operator, and leave
-off one of the `='s. The result is still valid `awk' code, but the
-program will not do what you mean:
+ It is very easy to accidentally mistype the `==' operator and leave
+off one of the `=' characters. The result is still valid `awk' code,
+but the program does not do what is intended:
if (a = b) # oops! should be a == b
...
@@ -5360,11 +6211,11 @@ program will not do what you mean:
...
Unless `b' happens to be zero or the null string, the `if' part of the
-test will always succeed. Because the operators are so similar, this
-kind of error is very difficult to spot when scanning the source code.
+test always succeeds. Because the operators are so similar, this kind
+of error is very difficult to spot when scanning the source code.
- Here are some sample expressions, how `gawk' compares them, and what
-the result of the comparison is.
+ The following table of expressions illustrates the kind of comparison
+`gawk' performs, as well as what the result of the comparison is:
`1.5 <= 2.0'
numeric comparison (true)
@@ -5383,50 +6234,55 @@ the result of the comparison is.
string comparison (true)
`a = 2; b = " +2"'
+
`a == b'
string comparison (false)
- In this example,
+ In the next example:
$ echo 1e2 3 | awk '{ print ($1 < $2) ? "true" : "false" }'
-| false
-the result is `false' since both `$1' and `$2' are numeric strings and
-thus both have the STRNUM attribute, dictating a numeric comparison.
-
- The purpose of the comparison rules and the use of numeric strings is
-to attempt to produce the behavior that is "least surprising," while
-still "doing the right thing."
-
- String comparisons and regular expression comparisons are very
-different. For example,
+the result is `false' because both `$1' and `$2' are user input. They
+are numeric strings--therefore both have the STRNUM attribute,
+dictating a numeric comparison. The purpose of the comparison rules
+and the use of numeric strings is to attempt to produce the behavior
+that is "least surprising," while still "doing the right thing."
+String comparisons and regular expression comparisons are very
+different. For example:
x == "foo"
-has the value of one, or is true, if the variable `x' is precisely
-`foo'. By contrast,
+has the value one, or is true if the variable `x' is precisely `foo'.
+By contrast:
x ~ /foo/
has the value one if `x' contains `foo', such as `"Oh, what a fool am
I!"'.
- The right hand operand of the `~' and `!~' operators may be either a
-regexp constant (`/.../'), or an ordinary expression, in which case the
-value of the expression as a string is used as a dynamic regexp (*note
-How to Use Regular Expressions: Regexp Usage.; also *note Using Dynamic
-Regexps: Computed Regexps.).
+ The righthand operand of the `~' and `!~' operators may be either a
+regexp constant (`/.../') or an ordinary expression. In the latter
+case, the value of the expression as a string is used as a dynamic
+regexp (*note How to Use Regular Expressions: Regexp Usage.; also *note
+Using Dynamic Regexps: Computed Regexps.).
- In recent implementations of `awk', a constant regular expression in
+ In modern implementations of `awk', a constant regular expression in
slashes by itself is also an expression. The regexp `/REGEXP/' is an
-abbreviation for this comparison expression:
+abbreviation for the following comparison expression:
$0 ~ /REGEXP/
One special place where `/foo/' is _not_ an abbreviation for `$0 ~
-/foo/' is when it is the right-hand operand of `~' or `!~'! *Note
-Using Regular Expression Constants: Using Constant Regexps, where this
-is discussed in more detail.
+/foo/' is when it is the righthand operand of `~' or `!~'. *Note Using
+Regular Expression Constants: Using Constant Regexps, where this is
+discussed in more detail.
+
+ ---------- Footnotes ----------
+
+ (1) The POSIX standard is under revision. The revised standard's
+rules for typing and comparison are the same as just described for
+`gawk'.

File: gawk.info, Node: Boolean Ops, Next: Conditional Exp, Prev: Typing and Comparison, Up: Expressions
@@ -5434,42 +6290,41 @@ File: gawk.info, Node: Boolean Ops, Next: Conditional Exp, Prev: Typing and C
Boolean Expressions
===================
- A "boolean expression" is a combination of comparison expressions or
-matching expressions, using the boolean operators "or" (`||'), "and"
+ A "Boolean expression" is a combination of comparison expressions or
+matching expressions, using the Boolean operators "or" (`||'), "and"
(`&&'), and "not" (`!'), along with parentheses to control nesting.
-The truth value of the boolean expression is computed by combining the
+The truth value of the Boolean expression is computed by combining the
truth values of the component expressions. Boolean expressions are
also referred to as "logical expressions". The terms are equivalent.
Boolean expressions can be used wherever comparison and matching
-expressions can be used. They can be used in `if', `while', `do' and
+expressions can be used. They can be used in `if', `while', `do', and
`for' statements (*note Control Statements in Actions: Statements.).
-They have numeric values (one if true, zero if false), which come into
-play if the result of the boolean expression is stored in a variable, or
+They have numeric values (one if true, zero if false), that come into
+play if the result of the Boolean expression is stored in a variable or
used in arithmetic.
- In addition, every boolean expression is also a valid pattern, so
-you can use one as a pattern to control the execution of rules.
-
- Here are descriptions of the three boolean operators, with examples.
+ In addition, every Boolean expression is also a valid pattern, so
+you can use one as a pattern to control the execution of rules. The
+Boolean operators are:
`BOOLEAN1 && BOOLEAN2'
True if both BOOLEAN1 and BOOLEAN2 are true. For example, the
following statement prints the current input record if it contains
- both `2400' and `foo'.
+ both `2400' and `foo':
if ($0 ~ /2400/ && $0 ~ /foo/) print
The subexpression BOOLEAN2 is evaluated only if BOOLEAN1 is true.
This can make a difference when BOOLEAN2 contains expressions that
- have side effects: in the case of `$0 ~ /foo/ && ($2 == bar++)',
- the variable `bar' is not incremented if there is no `foo' in the
- record.
+ have side effects. In the case of `$0 ~ /foo/ && ($2 == bar++)',
+ the variable `bar' is not incremented if there is no substring
+ `foo' in the record.
`BOOLEAN1 || BOOLEAN2'
True if at least one of BOOLEAN1 or BOOLEAN2 is true. For
example, the following statement prints all records in the input
- that contain _either_ `2400' or `foo', or both.
+ that contain _either_ `2400' or `foo' or both:
if ($0 ~ /2400/ || $0 ~ /foo/) print
@@ -5479,81 +6334,88 @@ you can use one as a pattern to control the execution of rules.
`! BOOLEAN'
True if BOOLEAN is false. For example, the following program
- prints all records in the input file `BBS-list' that do _not_
- contain the string `foo'.
+ prints `no home!' in the unusual event that the `HOME' environment
+ variable is not defined:
+
+ BEGIN { if (! ("HOME" in ENVIRON))
+ print "no home!" }
- awk '{ if (! ($0 ~ /foo/)) print }' BBS-list
+ (The `in' operator is described in *Note Referring to an Array
+ Element: Reference to Elements.)
The `&&' and `||' operators are called "short-circuit" operators
because of the way they work. Evaluation of the full expression is
"short-circuited" if the result can be determined part way through its
evaluation.
- You can continue a statement that uses `&&' or `||' simply by
-putting a newline after them. But you cannot put a newline in front of
-either of these operators without using backslash continuation (*note
-`awk' Statements Versus Lines: Statements/Lines.).
-
- The actual value of an expression using the `!' operator will be
-either one or zero, depending upon the truth value of the expression it
-is applied to.
+ Statements that use `&&' or `||' can be continued simply by putting
+a newline after them. But you cannot put a newline in front of either
+of these operators without using backslash continuation (*note `awk'
+Statements Versus Lines: Statements/Lines.).
- The `!' operator is often useful for changing the sense of a flag
-variable from false to true and back again. For example, the following
-program is one way to print lines in between special bracketing lines:
+ The actual value of an expression using the `!' operator is either
+one or zero, depending upon the truth value of the expression it is
+applied to. The `!' operator is often useful for changing the sense of
+a flag variable from false to true and back again. For example, the
+following program is one way to print lines in between special
+bracketing lines:
- $1 == "START" { interested = ! interested }
+ $1 == "START" { interested = ! interested; next }
interested == 1 { print }
- $1 == "END" { interested = ! interested }
+ $1 == "END" { interested = ! interested; next }
-The variable `interested', like all `awk' variables, starts out
+The variable `interested', as with all `awk' variables, starts out
initialized to zero, which is also false. When a line is seen whose
first field is `START', the value of `interested' is toggled to true,
using `!'. The next rule prints lines as long as `interested' is true.
When a line is seen whose first field is `END', `interested' is toggled
back to false.
+ *Note:* The `next' statement is discussed in *Note The `next'
+Statement: Next Statement. `next' tells `awk' to skip the rest of the
+rules, get the next record, and start processing the rules over again
+at the top. The reason it's there is to avoid printing the bracketing
+`START' and `END' lines.
+

File: gawk.info, Node: Conditional Exp, Next: Function Calls, Prev: Boolean Ops, Up: Expressions
Conditional Expressions
=======================
- A "conditional expression" is a special kind of expression with
+ A "conditional expression" is a special kind of expression that has
three operands. It allows you to use one expression's value to select
-one of two other expressions.
-
- The conditional expression is the same as in the C language:
+one of two other expressions. The conditional expression is the same
+as in the C language, as shown here:
SELECTOR ? IF-TRUE-EXP : IF-FALSE-EXP
There are three subexpressions. The first, SELECTOR, is always
-computed first. If it is "true" (not zero and not null) then
+computed first. If it is "true" (not zero or not null), then
IF-TRUE-EXP is computed next and its value becomes the value of the
whole expression. Otherwise, IF-FALSE-EXP is computed next and its
-value becomes the value of the whole expression.
-
- For example, this expression produces the absolute value of `x':
+value becomes the value of the whole expression. For example, the
+following expression produces the absolute value of `x':
- x > 0 ? x : -x
+ x >= 0 ? x : -x
- Each time the conditional expression is computed, exactly one of
+ Each time the conditional expression is computed, only one of
IF-TRUE-EXP and IF-FALSE-EXP is used; the other is ignored. This is
important when the expressions have side effects. For example, this
conditional expression examines element `i' of either array `a' or
-array `b', and increments `i'.
+array `b', and increments `i':
x == y ? a[i++] : b[i++]
This is guaranteed to increment `i' exactly once, because each time
-only one of the two increment expressions is executed, and the other is
+only one of the two increment expressions is executed and the other is
not. *Note Arrays in `awk': Arrays, for more information about arrays.
- As a minor `gawk' extension, you can continue a statement that uses
-`?:' simply by putting a newline after either character. However, you
-cannot put a newline in front of either character without using
-backslash continuation (*note `awk' Statements Versus Lines:
-Statements/Lines.). If `--posix' is specified (*note Command Line
+ As a minor `gawk' extension, a statement that uses `?:' can be
+continued simply by putting a newline after either character. However,
+putting a newline in front of either character does not work without
+using backslash continuation (*note `awk' Statements Versus Lines:
+Statements/Lines.). If `--posix' is specified (*note Command-Line
Options: Options.), then this extension is disabled.

@@ -5562,58 +6424,55 @@ File: gawk.info, Node: Function Calls, Next: Precedence, Prev: Conditional Ex
Function Calls
==============
- A "function" is a name for a particular calculation. Because it has
-a name, you can ask for it by name at any point in the program. For
-example, the function `sqrt' computes the square root of a number.
+ A "function" is a name for a particular calculation. This enables
+you to ask for it by name at any point in the program. For example,
+the function `sqrt' computes the square root of a number.
A fixed set of functions are "built-in", which means they are
available in every `awk' program. The `sqrt' function is one of these.
*Note Built-in Functions: Built-in, for a list of built-in functions
-and their descriptions. In addition, you can define your own functions
-for use in your program. *Note User-defined Functions: User-defined,
-for how to do this.
+and their descriptions. In addition, you can define functions for use
+in your program. *Note User-Defined Functions: User-defined, for
+instructions on how to do this.
The way to use a function is with a "function call" expression,
which consists of the function name followed immediately by a list of
-"arguments" in parentheses. The arguments are expressions which
-provide the raw materials for the function's calculations. When there
-is more than one argument, they are separated by commas. If there are
-no arguments, write just `()' after the function name. Here are some
-examples:
+"arguments" in parentheses. The arguments are expressions that provide
+the raw materials for the function's calculations. When there is more
+than one argument, they are separated by commas. If there are no
+arguments, just write `()' after the function name. The following
+examples show function calls with and without arguments:
sqrt(x^2 + y^2) one argument
atan2(y, x) two arguments
rand() no arguments
- *Do not put any space between the function name and the
-open-parenthesis!* A user-defined function name looks just like the
-name of a variable, and space would make the expression look like
+ *Caution:* Do not put any space between the function name and the
+open-parenthesis! A user-defined function name looks just like the
+name of a variable--a space would make the expression look like
concatenation of a variable with an expression inside parentheses.
-Space before the parenthesis is harmless with built-in functions, but
-it is best not to get into the habit of using space to avoid mistakes
-with user-defined functions.
- Each function expects a particular number of arguments. For
-example, the `sqrt' function must be called with a single argument, the
-number to take the square root of:
+ With built-in functions, space before the parenthesis is harmless,
+but it is best not to get into the habit of using space to avoid
+mistakes with user-defined functions. Each function expects a
+particular number of arguments. For example, the `sqrt' function must
+be called with a single argument: the number to take the square root of:
sqrt(ARGUMENT)
- Some of the built-in functions allow you to omit the final argument.
-If you do so, they use a reasonable default. *Note Built-in Functions:
-Built-in, for full details. If arguments are omitted in calls to
-user-defined functions, then those arguments are treated as local
-variables, initialized to the empty string (*note User-defined
-Functions: User-defined.).
+ Some of the built-in functions have one or more optional arguments.
+If those arguments are not supplied, the functions use a reasonable
+default value. *Note Built-in Functions: Built-in, for full details.
+If arguments are omitted in calls to user-defined functions, then those
+arguments are treated as local variables and initialized to the empty
+string (*note User-Defined Functions: User-defined.).
Like every other expression, the function call has a value, which is
computed by the function based on the arguments you give it. In this
example, the value of `sqrt(ARGUMENT)' is the square root of ARGUMENT.
A function can also have side effects, such as assigning values to
-certain variables or doing I/O.
-
- Here is a command to read numbers, one number per line, and print the
-square root of each one:
+certain variables or doing I/O. The following program reads numbers,
+one number per line, and prints the square root of each one:
$ awk '{ print "The square root of", $1, "is", sqrt($1) }'
1
@@ -5622,7 +6481,7 @@ square root of each one:
-| The square root of 3 is 1.73205
5
-| The square root of 5 is 2.23607
- Control-d
+ Ctrl-d

File: gawk.info, Node: Precedence, Prev: Function Calls, Up: Expressions
@@ -5630,36 +6489,34 @@ File: gawk.info, Node: Precedence, Prev: Function Calls, Up: Expressions
Operator Precedence (How Operators Nest)
========================================
- "Operator precedence" determines how operators are grouped, when
+ "Operator precedence" determines how operators are grouped when
different operators appear close by in one expression. For example,
`*' has higher precedence than `+'; thus, `a + b * c' means to multiply
-`b' and `c', and then add `a' to the product (i.e. `a + (b * c)').
+`b' and `c', and then add `a' to the product (i.e., `a + (b * c)').
- You can overrule the precedence of the operators by using
-parentheses. You can think of the precedence rules as saying where the
-parentheses are assumed to be if you do not write parentheses yourself.
-In fact, it is wise to always use parentheses whenever you have an
-unusual combination of operators, because other people who read the
-program may not remember what the precedence is in this case. You
-might forget, too; then you could make a mistake. Explicit parentheses
-will help prevent any such mistake.
+ The normal precedence of the operators can be overruled by using
+parentheses. Think of the precedence rules as saying where the
+parentheses are assumed to be. In fact, it is wise to always use
+parentheses whenever there is an unusual combination of operators,
+because other people who read the program may not remember what the
+precedence is in this case. Even experienced programmers occasionally
+forget the exact rules, which leads to mistakes. Explicit parentheses
+help prevent any such mistakes.
When operators of equal precedence are used together, the leftmost
-operator groups first, except for the assignment, conditional and
+operator groups first, except for the assignment, conditional, and
exponentiation operators, which group in the opposite order. Thus, `a
-- b + c' groups as `(a - b) + c', and `a = b = c' groups as `a = (b =
+- b + c' groups as `(a - b) + c' and `a = b = c' groups as `a = (b =
c)'.
The precedence of prefix unary operators does not matter as long as
only unary operators are involved, because there is only one way to
-interpret them--innermost first. Thus, `$++i' means `$(++i)' and
+interpret them: innermost first. Thus, `$++i' means `$(++i)' and
`++$x' means `++($x)'. However, when another operator follows the
-operand, then the precedence of the unary operators can matter. Thus,
-`$x^2' means `($x)^2', but `-x^2' means `-(x^2)', because `-' has lower
-precedence than `^' while `$' has higher precedence.
-
- Here is a table of `awk''s operators, in order from highest
-precedence to lowest:
+operand, then the precedence of the unary operators can matter. `$x^2'
+means `($x)^2', but `-x^2' means `-(x^2)', because `-' has lower
+precedence than `^', whereas `$' has higher precedence. This table
+presents `awk''s operators, in order of highest precedence to lowest:
`(...)'
Grouping.
@@ -5671,11 +6528,10 @@ precedence to lowest:
Increment, decrement.
`^ **'
- Exponentiation. These operators group right-to-left. (The `**'
- operator is not specified by POSIX.)
+ Exponentiation. These operators group right-to-left.
`+ - !'
- Unary plus, minus, logical "not".
+ Unary plus, minus, logical "not."
`* / %'
Multiplication, division, modulus.
@@ -5683,25 +6539,26 @@ precedence to lowest:
`+ -'
Addition, subtraction.
-`Concatenation'
- No special token is used to indicate concatenation. The operands
- are simply written side by side.
+`String Concatenation'
+ No special symbol is used to indicate concatenation. The operands
+ are simply written side by side (*note String Concatenation:
+ Concatenation.).
`< <= == !='
-`> >= >> |'
- Relational, and redirection. The relational operators and the
+`> >= >> | |&'
+ Relational and redirection. The relational operators and the
redirections have the same precedence level. Characters such as
`>' serve both as relationals and as redirections; the context
distinguishes between the two meanings.
Note that the I/O redirection operators in `print' and `printf'
statements belong to the statement level, not to expressions. The
- redirection does not produce an expression which could be the
+ redirection does not produce an expression that could be the
operand of another operator. As a result, it does not make sense
to use a redirection operator near another operator of lower
- precedence, without parentheses. Such combinations, for example
- `print foo > a ? b : c', result in syntax errors. The correct way
- to write this statement is `print foo > (a ? b : c)'.
+ precedence without parentheses. Such combinations (for example
+ `print foo > a ? b : c'), result in syntax errors. The correct
+ way to write this statement is `print foo > (a ? b : c)'.
`~ !~'
Matching, non-matching.
@@ -5720,71 +6577,73 @@ precedence to lowest:
`= += -= *='
`/= %= ^= **='
- Assignment. These operators group right-to-left. (The `**='
- operator is not specified by POSIX.)
+ Assignment. These operators group right-to-left.
+
+ *Note:* The `|&', `**', and `**=' operators are not specified by
+POSIX. For maximum portability, do not use them.

-File: gawk.info, Node: Patterns and Actions, Next: Statements, Prev: Expressions, Up: Top
+File: gawk.info, Node: Patterns and Actions, Next: Arrays, Prev: Expressions, Up: Top
-Patterns and Actions
-********************
+Patterns, Actions, and Variables
+********************************
As you have already seen, each `awk' statement consists of a pattern
-with an associated action. This chapter describes how you build
-patterns and actions.
+with an associated action. This major node describes how you build
+patterns and actions, what kinds of things you can do within actions,
+and `awk''s built-in variables.
+
+ The pattern-action rules and the statements available for use within
+actions form the core of `awk' programming. In a sense, everything
+covered up to here has been the foundation that programs are built on
+top of. Now it's time to start building something useful.
* Menu:
* Pattern Overview:: What goes into a pattern.
+* Using Shell Variables:: How to use shell variables with `awk'.
* Action Overview:: What goes into an action.
+* Statements:: Describes the various control statements in
+ detail.
+* Built-in Variables:: Summarizes the built-in variables.

-File: gawk.info, Node: Pattern Overview, Next: Action Overview, Prev: Patterns and Actions, Up: Patterns and Actions
+File: gawk.info, Node: Pattern Overview, Next: Using Shell Variables, Prev: Patterns and Actions, Up: Patterns and Actions
Pattern Elements
================
- Patterns in `awk' control the execution of rules: a rule is executed
-when its pattern matches the current input record. This section
-explains all about how to write patterns.
-
* Menu:
-* Kinds of Patterns:: A list of all kinds of patterns.
* Regexp Patterns:: Using regexps as patterns.
* Expression Patterns:: Any expression can be used as a pattern.
* Ranges:: Pairs of patterns specify record ranges.
* BEGIN/END:: Specifying initialization and cleanup rules.
* Empty:: The empty pattern, which matches every record.
-
-File: gawk.info, Node: Kinds of Patterns, Next: Regexp Patterns, Prev: Pattern Overview, Up: Pattern Overview
-
-Kinds of Patterns
------------------
-
- Here is a summary of the types of patterns supported in `awk'.
+ Patterns in `awk' control the execution of rules--a rule is executed
+when its pattern matches the current input record. The following is a
+summary of the types of patterns in `awk':
`/REGULAR EXPRESSION/'
- A regular expression as a pattern. It matches when the text of the
- input record fits the regular expression. (*Note Regular
- Expressions: Regexp.)
+ A regular expression. It matches when the text of the input record
+ fits the regular expression. (*Note Regular Expressions: Regexp.)
`EXPRESSION'
- A single expression. It matches when its value is non-zero (if a
+ A single expression. It matches when its value is nonzero (if a
number) or non-null (if a string). (*Note Expressions as
Patterns: Expression Patterns.)
`PAT1, PAT2'
A pair of patterns separated by a comma, specifying a range of
records. The range includes both the initial record that matches
- PAT1, and the final record that matches PAT2. (*Note Specifying
+ PAT1 and the final record that matches PAT2. (*Note Specifying
Record Ranges with Patterns: Ranges.)
`BEGIN'
`END'
- Special patterns for you to supply start-up or clean-up actions
- for your `awk' program. (*Note The `BEGIN' and `END' Special
+ Special patterns for you to supply startup or cleanup actions for
+ your `awk' program. (*Note The `BEGIN' and `END' Special
Patterns: BEGIN/END.)
`EMPTY'
@@ -5792,13 +6651,13 @@ Kinds of Patterns
Pattern: Empty.)

-File: gawk.info, Node: Regexp Patterns, Next: Expression Patterns, Prev: Kinds of Patterns, Up: Pattern Overview
+File: gawk.info, Node: Regexp Patterns, Next: Expression Patterns, Prev: Pattern Overview, Up: Pattern Overview
Regular Expressions as Patterns
-------------------------------
- We have been using regular expressions as patterns since our early
-examples. This kind of pattern is simply a regexp constant in the
+ Regular expressions are one of the first kinds of patterns presented
+in this book. This kind of pattern is simply a regexp constant in the
pattern part of a rule. Its meaning is `$0 ~ /PATTERN/'. The pattern
matches when the input record matches the regexp. For example:
@@ -5811,35 +6670,29 @@ File: gawk.info, Node: Expression Patterns, Next: Ranges, Prev: Regexp Patter
Expressions as Patterns
-----------------------
- Any `awk' expression is valid as an `awk' pattern. Then the pattern
-matches if the expression's value is non-zero (if a number) or non-null
-(if a string).
-
- The expression is reevaluated each time the rule is tested against a
-new input record. If the expression uses fields such as `$1', the
-value depends directly on the new input record's text; otherwise, it
-depends only on what has happened so far in the execution of the `awk'
-program, but that may still be useful.
-
- A very common kind of expression used as a pattern is the comparison
-expression, using the comparison operators described in *Note Variable
-Typing and Comparison Expressions: Typing and Comparison.
-
- Regexp matching and non-matching are also very common expressions.
-The left operand of the `~' and `!~' operators is a string. The right
-operand is either a constant regular expression enclosed in slashes
-(`/REGEXP/'), or any expression, whose string value is used as a
-dynamic regular expression (*note Using Dynamic Regexps: Computed
-Regexps.).
-
- The following example prints the second field of each input record
-whose first field is precisely `foo'.
+ Any `awk' expression is valid as an `awk' pattern. The pattern
+matches if the expression's value is nonzero (if a number) or non-null
+(if a string). The expression is reevaluated each time the rule is
+tested against a new input record. If the expression uses fields such
+as `$1', the value depends directly on the new input record's text;
+otherwise it depends on only what has happened so far in the execution
+of the `awk' program.
+
+ Comparison expressions, using the comparison operators described in
+*Note Variable Typing and Comparison Expressions: Typing and Comparison,
+are a very common kind of pattern. Regexp matching and non-matching
+are also very common expressions. The left operand of the `~' and `!~'
+operators is a string. The right operand is either a constant regular
+expression enclosed in slashes (`/REGEXP/'), or any expression whose
+string value is used as a dynamic regular expression (*note Using
+Dynamic Regexps: Computed Regexps.). The following example prints the
+second field of each input record whose first field is precisely `foo':
$ awk '$1 == "foo" { print $2 }' BBS-list
-(There is no output, since there is no BBS site named "foo".) Contrast
-this with the following regular expression match, which would accept
-any record with a first field that contains `foo':
+(There is no output, because there is no BBS site with the exact name
+`foo'.) Contrast this with the following regular expression match,
+which accepts any record with a first field that contains `foo':
$ awk '$1 ~ /foo/ { print $2 }' BBS-list
-| 555-1234
@@ -5847,18 +6700,21 @@ any record with a first field that contains `foo':
-| 555-6480
-| 555-2127
+ A regexp constant as a pattern is also a special case of an
+expression pattern. The expression `/foo/' has the value one if `foo'
+appears in the current input record. Thus, as a pattern, `/foo/'
+matches any record containing `foo'.
+
Boolean expressions are also commonly used as patterns. Whether the
pattern matches an input record depends on whether its subexpressions
-match.
-
- For example, the following command prints all records in `BBS-list'
-that contain both `2400' and `foo'.
+match. For example, the following command prints all the records in
+`BBS-list' that contain both `2400' and `foo':
$ awk '/2400/ && /foo/' BBS-list
-| fooey 555-1234 2400/1200/300 B
The following command prints all records in `BBS-list' that contain
-_either_ `2400' or `foo', or both.
+_either_ `2400' or `foo' (or both, of course):
$ awk '/2400/ || /foo/' BBS-list
-| alpo-net 555-3412 2400/1200/300 A
@@ -5870,7 +6726,7 @@ _either_ `2400' or `foo', or both.
-| sabafoo 555-2127 1200/300 C
The following command prints all records in `BBS-list' that do _not_
-contain the string `foo'.
+contain the string `foo':
$ awk '! /foo/' BBS-list
-| aardvark 555-5553 1200/300 B
@@ -5881,17 +6737,12 @@ contain the string `foo'.
-| core 555-2912 1200/300 C
-| sdace 555-3430 2400/1200/300 A
- The subexpressions of a boolean operator in a pattern can be
+ The subexpressions of a Boolean operator in a pattern can be
constant regular expressions, comparisons, or any other `awk'
expressions. Range patterns are not expressions, so they cannot appear
-inside boolean patterns. Likewise, the special patterns `BEGIN' and
+inside Boolean patterns. Likewise, the special patterns `BEGIN' and
`END', which never match any input record, are not expressions and
-cannot appear inside boolean patterns.
-
- A regexp constant as a pattern is also a special case of an
-expression pattern. `/foo/' as an expression has the value one if `foo'
-appears in the current input record; thus, as a pattern, `/foo/'
-matches any record containing `foo'.
+cannot appear inside Boolean patterns.

File: gawk.info, Node: Ranges, Next: BEGIN/END, Prev: Expression Patterns, Up: Pattern Overview
@@ -5899,60 +6750,67 @@ File: gawk.info, Node: Ranges, Next: BEGIN/END, Prev: Expression Patterns, U
Specifying Record Ranges with Patterns
--------------------------------------
- A "range pattern" is made of two patterns separated by a comma, of
-the form `BEGPAT, ENDPAT'. It matches ranges of consecutive input
-records. The first pattern, BEGPAT, controls where the range begins,
-and the second one, ENDPAT, controls where it ends. For example,
+ A "range pattern" is made of two patterns separated by a comma, in
+the form `BEGPAT, ENDPAT'. It is used to match ranges of consecutive
+input records. The first pattern, BEGPAT, controls where the range
+begins, while ENDPAT controls where the pattern ends. For example, the
+following:
- awk '$1 == "on", $1 == "off"'
+ awk '$1 == "on", $1 == "off"' myfile
-prints every record between `on'/`off' pairs, inclusive.
+prints every record in `myfile' between `on'/`off' pairs, inclusive.
A range pattern starts out by matching BEGPAT against every input
-record; when a record matches BEGPAT, the range pattern becomes "turned
-on". The range pattern matches this record. As long as it stays
-turned on, it automatically matches every input record read. It also
-matches ENDPAT against every input record; when that succeeds, the
-range pattern is turned off again for the following record. Then it
-goes back to checking BEGPAT against each record.
+record. When a record matches BEGPAT, the range pattern is "turned on"
+and the range pattern matches this record as well. As long as the
+range pattern stays turned on, it automatically matches every input
+record read. The range pattern also matches ENDPAT against every input
+record; when this succeeds, the range pattern is turned off again for
+the following record. Then the range pattern goes back to checking
+BEGPAT against each record.
The record that turns on the range pattern and the one that turns it
off both match the range pattern. If you don't want to operate on
these records, you can write `if' statements in the rule's action to
distinguish them from the records you are interested in.
- It is possible for a pattern to be turned both on and off by the same
-record, if the record satisfies both conditions. Then the action is
-executed for just that record.
-
- For example, suppose you have text between two identical markers (say
-the `%' symbol) that you wish to ignore. You might try to combine a
+ It is possible for a pattern to be turned on and off by the same
+record. If the record satisfies both conditions, then the action is
+executed for just that record. For example, suppose there is text
+between two identical markers (say the `%' symbol), each on its own
+line, that should be ignored. A first attempt would be to combine a
range pattern that describes the delimited text with the `next'
statement (not discussed yet, *note The `next' Statement: Next
-Statement.), which causes `awk' to skip any further processing of the
+Statement.). This causes `awk' to skip any further processing of the
current record and start over again with the next input record. Such a
-program would look like this:
+program looks like this:
/^%$/,/^%$/ { next }
{ print }
This program fails because the range pattern is both turned on and
-turned off by the first line with just a `%' on it. To accomplish this
-task, you must write the program this way, using a flag:
+turned off by the first line, which just has a `%' on it. To
+accomplish this task, write the program in the following manner, using
+a flag:
/^%$/ { skip = ! skip; next }
skip == 1 { next } # skip lines with `skip' set
- Note that in a range pattern, the `,' has the lowest precedence (is
-evaluated last) of all the operators. Thus, for example, the following
-program attempts to combine a range pattern with another, simpler test.
+ In a range pattern, the comma (`,') has the lowest precedence of all
+the operators (i.e., it is evaluated last). Thus, the following
+program attempts to combine a range pattern with another simpler test:
echo Yes | awk '/1/,/2/ || /Yes/'
- The author of this program intended it to mean `(/1/,/2/) || /Yes/'.
-However, `awk' interprets this as `/1/, (/2/ || /Yes/)'. This cannot
-be changed or worked around; range patterns do not combine with other
-patterns.
+ The intent of this program is `(/1/,/2/) || /Yes/'. However, `awk'
+interprets this as `/1/, (/2/ || /Yes/)'. This cannot be changed or
+worked around; range patterns do not combine with other patterns:
+
+ $ echo yes | gawk '(/1/,/2/) || /Yes/'
+ error--> gawk: cmd. line:1: (/1/,/2/) || /Yes/
+ error--> gawk: cmd. line:1: ^ parse error
+ error--> gawk: cmd. line:2: (/1/,/2/) || /Yes/
+ error--> gawk: cmd. line:2: ^ unexpected newline

File: gawk.info, Node: BEGIN/END, Next: Empty, Prev: Ranges, Up: Pattern Overview
@@ -5960,9 +6818,13 @@ File: gawk.info, Node: BEGIN/END, Next: Empty, Prev: Ranges, Up: Pattern Ove
The `BEGIN' and `END' Special Patterns
--------------------------------------
- `BEGIN' and `END' are special patterns. They are not used to match
-input records. Rather, they supply start-up or clean-up actions for
-your `awk' script.
+ All the patterns described so far are for matching input records.
+The `BEGIN' and `END' special patterns are different. They supply
+startup and cleanup actions for `awk' programs. `BEGIN' and `END'
+rules must have actions; there is no default action for these rules
+because there is no current record when they run. `BEGIN' and `END'
+rules are often referred to as "`BEGIN' and `END' blocks" by long-time
+`awk' programmers.
* Menu:
@@ -5975,61 +6837,59 @@ File: gawk.info, Node: Using BEGIN/END, Next: I/O And BEGIN/END, Prev: BEGIN/
Startup and Cleanup Actions
...........................
- A `BEGIN' rule is executed, once, before the first input record has
-been read. An `END' rule is executed, once, after all the input has
-been read. For example:
+ A `BEGIN' rule is executed once only, before the first input record
+is read. Likewise, an `END' rule is executed once only, after all the
+input is read. For example:
$ awk '
> BEGIN { print "Analysis of \"foo\"" }
> /foo/ { ++n }
- > END { print "\"foo\" appears " n " times." }' BBS-list
+ > END { print "\"foo\" appears", n, "times." }' BBS-list
-| Analysis of "foo"
-| "foo" appears 4 times.
This program finds the number of records in the input file `BBS-list'
that contain the string `foo'. The `BEGIN' rule prints a title for the
report. There is no need to use the `BEGIN' rule to initialize the
-counter `n' to zero, as `awk' does this automatically (*note
-Variables::).
-
- The second rule increments the variable `n' every time a record
-containing the pattern `foo' is read. The `END' rule prints the value
-of `n' at the end of the run.
+counter `n' to zero, since `awk' does this automatically (*note
+Variables::). The second rule increments the variable `n' every time a
+record containing the pattern `foo' is read. The `END' rule prints the
+value of `n' at the end of the run.
The special patterns `BEGIN' and `END' cannot be used in ranges or
-with boolean operators (indeed, they cannot be used with any operators).
-
- An `awk' program may have multiple `BEGIN' and/or `END' rules. They
-are executed in the order they appear, all the `BEGIN' rules at
-start-up and all the `END' rules at termination. `BEGIN' and `END'
+with Boolean operators (indeed, they cannot be used with any operators).
+An `awk' program may have multiple `BEGIN' and/or `END' rules. They
+are executed in the order in which they appear: all the `BEGIN' rules
+at startup and all the `END' rules at termination. `BEGIN' and `END'
rules may be intermixed with other rules. This feature was added in
-the 1987 version of `awk', and is included in the POSIX standard. The
-original (1978) version of `awk' required you to put the `BEGIN' rule
-at the beginning of the program, and the `END' rule at the end, and
-only allowed one of each. This is no longer required, but it is a good
-idea in terms of program organization and readability.
+the 1987 version of `awk' and is included in the POSIX standard. The
+original (1978) version of `awk' required the `BEGIN' rule to be placed
+at the beginning of the program, the `END' rule to be placed at the
+end, and only allowed one of each. This is no longer required, but it
+is a good idea to follow this template in terms of program organization
+and readability.
Multiple `BEGIN' and `END' rules are useful for writing library
-functions, since each library file can have its own `BEGIN' and/or
-`END' rule to do its own initialization and/or cleanup. Note that the
-order in which library functions are named on the command line controls
-the order in which their `BEGIN' and `END' rules are executed.
-Therefore you have to be careful to write such rules in library files
-so that the order in which they are executed doesn't matter. *Note
-Command Line Options: Options, for more information on using library
+functions, because each library file can have its own `BEGIN' and/or
+`END' rule to do its own initialization and/or cleanup. The order in
+which library functions are named on the command line controls the
+order in which their `BEGIN' and `END' rules are executed. Therefore
+you have to be careful when writing such rules in library files so that
+the order in which they are executed doesn't matter. *Note
+Command-Line Options: Options, for more information on using library
functions. *Note A Library of `awk' Functions: Library Functions, for
a number of useful library functions.
- If an `awk' program only has a `BEGIN' rule, and no other rules,
-then the program exits after the `BEGIN' rule has been run. (The
-original version of `awk' used to keep reading and ignoring input until
-end of file was seen.) However, if an `END' rule exists, then the
-input will be read, even if there are no other rules in the program.
-This is necessary in case the `END' rule checks the `FNR' and `NR'
-variables (d.c.).
+ If an `awk' program only has a `BEGIN' rule and no other rules, then
+the program exits after the `BEGIN' rule is run.(1) However, if an
+`END' rule exists, then the input is read, even if there are no other
+rules in the program. This is necessary in case the `END' rule checks
+the `FNR' and `NR' variables.
- `BEGIN' and `END' rules must have actions; there is no default
-action for these rules since there is no current record when they run.
+ ---------- Footnotes ----------
+
+ (1) The original version of `awk' used to keep reading and ignoring
+input until end of file was seen.

File: gawk.info, Node: I/O And BEGIN/END, Prev: Using BEGIN/END, Up: BEGIN/END
@@ -6037,38 +6897,42 @@ File: gawk.info, Node: I/O And BEGIN/END, Prev: Using BEGIN/END, Up: BEGIN/EN
Input/Output from `BEGIN' and `END' Rules
.........................................
- There are several (sometimes subtle) issues involved when doing I/O
-from a `BEGIN' or `END' rule.
-
- The first has to do with the value of `$0' in a `BEGIN' rule. Since
-`BEGIN' rules are executed before any input is read, there simply is no
-input record, and therefore no fields, when executing `BEGIN' rules.
-References to `$0' and the fields yield a null string or zero,
-depending upon the context. One way to give `$0' a real value is to
-execute a `getline' command without a variable (*note Explicit Input
-with `getline': Getline.). Another way is to simply assign a value to
-it.
-
- The second point is similar to the first, but from the other
-direction. Inside an `END' rule, what is the value of `$0' and `NF'?
-Traditionally, due largely to implementation issues, `$0' and `NF' were
-_undefined_ inside an `END' rule. The POSIX standard specified that
-`NF' was available in an `END' rule, containing the number of fields
-from the last input record. Due most probably to an oversight, the
-standard does not say that `$0' is also preserved, although logically
-one would think that it should be. In fact, `gawk' does preserve the
-value of `$0' for use in `END' rules. Be aware, however, that Unix
-`awk', and possibly other implementations, do not.
-
- The third point follows from the first two. What is the meaning of
-`print' inside a `BEGIN' or `END' rule? The meaning is the same as
-always, `print $0'. If `$0' is the null string, then this prints an
-empty line. Many long time `awk' programmers use `print' in `BEGIN'
-and `END' rules, to mean `print ""', relying on `$0' being null. While
-you might generally get away with this in `BEGIN' rules, in `gawk' at
-least, it is a very bad idea in `END' rules. It is also poor style,
-since if you want an empty line in the output, you should say so
-explicitly in your program.
+ There are several (sometimes subtle) points to remember when doing
+I/O from a `BEGIN' or `END' rule. The first has to do with the value
+of `$0' in a `BEGIN' rule. Because `BEGIN' rules are executed before
+any input is read, there simply is no input record, and therefore no
+fields, when executing `BEGIN' rules. References to `$0' and the fields
+yield a null string or zero, depending upon the context. One way to
+give `$0' a real value is to execute a `getline' command without a
+variable (*note Explicit Input with `getline': Getline.). Another way
+is to simply assign a value to `$0'.
+
+ The second point is similar to the first but from the other
+direction. Traditionally, due largely to implementation issues, `$0'
+and `NF' were _undefined_ inside an `END' rule. The POSIX standard
+specifies that `NF' is available in an `END' rule. It contains the
+number of fields from the last input record. Most probably due to an
+oversight, the standard does not say that `$0' is also preserved,
+although logically one would think that it should be. In fact, `gawk'
+does preserve the value of `$0' for use in `END' rules. Be aware,
+however, that Unix `awk', and possibly other implementations, do not.
+
+ The third point follows from the first two. The meaning of `print'
+inside a `BEGIN' or `END' rule is the same as always: `print $0'. If
+`$0' is the null string, then this prints an empty line. Many long
+time `awk' programmers use an unadorned `print' in `BEGIN' and `END'
+rules, to mean `print ""', relying on `$0' being null. Although one
+might generally get away with this in `BEGIN' rules, it is a very bad
+idea in `END' rules, at least in `gawk'. It is also poor style, since
+if an empty line is needed in the output, the program should print one
+explicitly.
+
+ Finally, the `next' and `nextfile' statements are not allowed in a
+`BEGIN' rule, because the implicit
+read-a-record-and-match-against-the-rules loop has not started yet.
+Similarly, those statements are not valid in an `END' rule, since all
+the input has been read. (*Note The `next' Statement: Next Statement,
+and see *Note Using `gawk''s `nextfile' Statement: Nextfile Statement.)

File: gawk.info, Node: Empty, Prev: BEGIN/END, Up: Pattern Overview
@@ -6076,7 +6940,7 @@ File: gawk.info, Node: Empty, Prev: BEGIN/END, Up: Pattern Overview
The Empty Pattern
-----------------
- An empty (i.e. non-existent) pattern is considered to match _every_
+ An empty (i.e., non-existent) pattern is considered to match _every_
input record. For example, the program:
awk '{ print $1 }' BBS-list
@@ -6084,19 +6948,70 @@ input record. For example, the program:
prints the first field of every record.

-File: gawk.info, Node: Action Overview, Prev: Pattern Overview, Up: Patterns and Actions
+File: gawk.info, Node: Using Shell Variables, Next: Action Overview, Prev: Pattern Overview, Up: Patterns and Actions
-Overview of Actions
-===================
+Using Shell Variables in Programs
+=================================
- An `awk' program or script consists of a series of rules and
-function definitions, interspersed. (Functions are described later.
-*Note User-defined Functions: User-defined.)
+ `awk' programs are often used as components in larger programs
+written in shell. For example, it is very common to use a shell
+variable to hold a pattern that the `awk' program searches for. There
+are two ways to get the value of the shell variable into the body of
+the `awk' program.
+
+ The most common method is to use shell quoting to substitute the
+variable's value into the program inside the script. For example, in
+the following program:
+
+ echo -n "Enter search pattern: "
+ read pattern
+ awk "/$pattern/ "'{ nmatches++ }
+ END { print nmatches, "found" }' /path/to/data
+
+the `awk' program consists of two pieces of quoted text that are
+concatenated together to form the program. The first part is
+double-quoted, which allows substitution of the `pattern' variable
+inside the quotes. The second part is single-quoted.
+
+ Variable substitution via quoting works, but can be potentially
+messy. It requires a good understanding of the shell's quoting rules
+(*note Shell Quoting Issues: Quoting.), and it's often difficult to
+correctly match up the quotes when reading the program.
+
+ A better method is to use `awk''s variable assignment feature (*note
+Assigning Variables on the Command Line: Assignment Options.) to
+assign the shell variable's value to an `awk' variable's value. Then
+use dynamic regexps to match the pattern (*note Using Dynamic Regexps:
+Computed Regexps.). The following shows how to redo the previous
+example using this technique:
+
+ echo -n "Enter search pattern: "
+ read pattern
+ awk -v pat="$pattern" '$0 ~ pat { nmatches++ }
+ END { print nmatches, "found" }' /path/to/data
+
+Now, the `awk' program is just one single-quoted string. The
+assignment `-v pat="$pattern"' still requires double quotes, in case
+there is whitespace in the value of `$pattern'. The `awk' variable
+`pat' could be named `pattern' too, but that would be more confusing.
+Using a variable also provides more flexibility, since the variable can
+be used anywhere inside the program--for printing, as an array
+subscript, or for any other use--without requiring the quoting tricks
+at every point in the program.
- A rule contains a pattern and an action, either of which (but not
-both) may be omitted. The purpose of the "action" is to tell `awk'
-what to do once a match for the pattern is found. Thus, in outline, an
-`awk' program generally looks like this:
+
+File: gawk.info, Node: Action Overview, Next: Statements, Prev: Using Shell Variables, Up: Patterns and Actions
+
+Actions
+=======
+
+ An `awk' program or script consists of a series of rules and
+function definitions interspersed. (Functions are described later.
+*Note User-Defined Functions: User-defined.) A rule contains a pattern
+and an action, either of which (but not both) may be omitted. The
+purpose of the "action" is to tell `awk' what to do once a match for
+the pattern is found. Thus, in outline, an `awk' program generally
+looks like this:
[PATTERN] [{ ACTION }]
[PATTERN] [{ ACTION }]
@@ -6105,18 +7020,17 @@ what to do once a match for the pattern is found. Thus, in outline, an
...
An action consists of one or more `awk' "statements", enclosed in
-curly braces (`{' and `}'). Each statement specifies one thing to be
-done. The statements are separated by newlines or semicolons.
-
- The curly braces around an action must be used even if the action
-contains only one statement, or even if it contains no statements at
-all. However, if you omit the action entirely, omit the curly braces as
-well. An omitted action is equivalent to `{ print $0 }'.
+curly braces (`{' and `}'). Each statement specifies one thing to do.
+The statements are separated by newlines or semicolons. The curly
+braces around an action must be used even if the action contains only
+one statement, or if it contains no statements at all. However, if you
+omit the action entirely, omit the curly braces as well. An omitted
+action is equivalent to `{ print $0 }':
- /foo/ { } # match foo, do nothing - empty action
- /foo/ # match foo, print the record - omitted action
+ /foo/ { } match `foo', do nothing -- empty action
+ /foo/ match `foo', print the record -- omitted action
- Here are the kinds of statements supported in `awk':
+ The following types of statements are supported in `awk':
* Expressions, which can call functions or assign values to variables
(*note Expressions::). Executing this kind of statement simply
@@ -6132,38 +7046,36 @@ well. An omitted action is equivalent to `{ print $0 }'.
* Compound statements, which consist of one or more statements
enclosed in curly braces. A compound statement is used in order
to put several statements together in the body of an `if',
- `while', `do' or `for' statement.
+ `while', `do', or `for' statement.
- * Input statements, using the `getline' command (*note Explicit
- Input with `getline': Getline.), the `next' statement (*note The
- `next' Statement: Next Statement.), and the `nextfile' statement
- (*note The `nextfile' Statement: Nextfile Statement.).
+ * Input statements using the `getline' command (*note Explicit Input
+ with `getline': Getline.), the `next' statement (*note The `next'
+ Statement: Next Statement.), and the `nextfile' statement (*note
+ Using `gawk''s `nextfile' Statement: Nextfile Statement.).
- * Output statements, `print' and `printf'. *Note Printing Output:
- Printing.
+ * Output statements, such as `print' and `printf'. *Note Printing
+ Output: Printing.
- * Deletion statements, for deleting array elements. *Note The
+ * Deletion statements for deleting array elements. *Note The
`delete' Statement: Delete.

-File: gawk.info, Node: Statements, Next: Built-in Variables, Prev: Patterns and Actions, Up: Top
+File: gawk.info, Node: Statements, Next: Built-in Variables, Prev: Action Overview, Up: Patterns and Actions
Control Statements in Actions
-*****************************
+=============================
- "Control statements" such as `if', `while', and so on control the
+ "Control statements", such as `if', `while', and so on, control the
flow of execution in `awk' programs. Most of the control statements in
`awk' are patterned on similar statements in C.
- All the control statements start with special keywords such as `if'
-and `while', to distinguish them from simple expressions.
-
- Many control statements contain other statements; for example, the
-`if' statement contains another statement which may or may not be
-executed. The contained statement is called the "body". If you want
-to include more than one statement in the body, group them into a
-single "compound statement" with curly braces, separating them with
-newlines or semicolons.
+ All the control statements start with special keywords, such as `if'
+and `while', to distinguish them from simple expressions. Many control
+statements contain other statements. For example, the `if' statement
+contains another statement that may or may not be executed. The
+contained statement is called the "body". To include more than one
+statement in the body, group them into a single "compound statement"
+with curly braces, separating them with newlines or semicolons.
* Menu:
@@ -6185,7 +7097,7 @@ newlines or semicolons.
File: gawk.info, Node: If Statement, Next: While Statement, Prev: Statements, Up: Statements
The `if'-`else' Statement
-=========================
+-------------------------
The `if'-`else' statement is `awk''s decision-making statement. It
looks like this:
@@ -6193,68 +7105,58 @@ looks like this:
if (CONDITION) THEN-BODY [else ELSE-BODY]
The CONDITION is an expression that controls what the rest of the
-statement will do. If CONDITION is true, THEN-BODY is executed;
+statement does. If the CONDITION is true, THEN-BODY is executed;
otherwise, ELSE-BODY is executed. The `else' part of the statement is
optional. The condition is considered false if its value is zero or
-the null string, and true otherwise.
-
- Here is an example:
+the null string; otherwise the condition is true. Refer to the
+following:
if (x % 2 == 0)
print "x is even"
else
print "x is odd"
- In this example, if the expression `x % 2 == 0' is true (that is,
+ In this example, if the expression `x % 2 == 0' is true (that is, if
the value of `x' is evenly divisible by two), then the first `print'
-statement is executed, otherwise the second `print' statement is
-executed.
-
- If the `else' appears on the same line as THEN-BODY, and THEN-BODY
-is not a compound statement (i.e. not surrounded by curly braces), then
-a semicolon must separate THEN-BODY from `else'. To illustrate this,
-let's rewrite the previous example:
+statement is executed; otherwise the second `print' statement is
+executed. If the `else' keyword appears on the same line as THEN-BODY
+and THEN-BODY is not a compound statement (i.e., not surrounded by
+curly braces), then a semicolon must separate THEN-BODY from the `else'.
+To illustrate this, the previous example can be rewritten as:
if (x % 2 == 0) print "x is even"; else
print "x is odd"
-If you forget the `;', `awk' won't be able to interpret the statement,
-and you will get a syntax error.
-
- We would not actually write this example this way, because a human
-reader might fail to see the `else' if it were not the first thing on
-its line.
+If the `;' is left out, `awk' can't interpret the statement and it
+produces a syntax error. Don't actually write programs this way,
+because a human reader might fail to see the `else' if it is not the
+first thing on its line.

File: gawk.info, Node: While Statement, Next: Do Statement, Prev: If Statement, Up: Statements
The `while' Statement
-=====================
-
- In programming, a "loop" means a part of a program that can be
-executed two or more times in succession.
+---------------------
- The `while' statement is the simplest looping statement in `awk'.
-It repeatedly executes a statement as long as a condition is true. It
-looks like this:
+ In programming, a "loop" is a part of a program that can be executed
+two or more times in succession. The `while' statement is the simplest
+looping statement in `awk'. It repeatedly executes a statement as long
+as a condition is true. For example:
while (CONDITION)
BODY
-Here BODY is a statement that we call the "body" of the loop, and
-CONDITION is an expression that controls how long the loop keeps
-running.
-
- The first thing the `while' statement does is test CONDITION. If
+BODY is a statement called the "body" of the loop, and CONDITION is an
+expression that controls how long the loop keeps running. The first
+thing the `while' statement does is test the CONDITION. If the
CONDITION is true, it executes the statement BODY. (The CONDITION is
true when the value is not zero and not a null string.) After BODY has
been executed, CONDITION is tested again, and if it is still true, BODY
-is executed again. This process repeats until CONDITION is no longer
-true. If CONDITION is initially false, the body of the loop is never
-executed, and `awk' continues with the statement following the loop.
-
- This example prints the first three fields of each record, one per
-line.
+is executed again. This process repeats until the CONDITION is no
+longer true. If the CONDITION is initially false, the body of the loop
+is never executed and `awk' continues with the statement following the
+loop. This example prints the first three fields of each record, one
+per line:
awk '{ i = 1
while (i <= 3) {
@@ -6263,64 +7165,61 @@ line.
}
}' inventory-shipped
-Here the body of the loop is a compound statement enclosed in braces,
-containing two statements.
+The body of this loop is a compound statement enclosed in braces,
+containing two statements. The loop works in the following manner:
+first, the value of `i' is set to one. Then, the `while' statement
+tests whether `i' is less than or equal to three. This is true when
+`i' equals one, so the `i'-th field is printed. Then the `i++'
+increments the value of `i' and the loop repeats. The loop terminates
+when `i' reaches four.
- The loop works like this: first, the value of `i' is set to one.
-Then, the `while' tests whether `i' is less than or equal to three.
-This is true when `i' equals one, so the `i'-th field is printed. Then
-the `i++' increments the value of `i' and the loop repeats. The loop
-terminates when `i' reaches four.
-
- As you can see, a newline is not required between the condition and
-the body; but using one makes the program clearer unless the body is a
-compound statement or is very simple. The newline after the open-brace
-that begins the compound statement is not required either, but the
-program would be harder to read without it.
+ A newline is not required between the condition and the body;
+however using one makes the program clearer unless the body is a
+compound statement or else is very simple. The newline after the
+open-brace that begins the compound statement is not required either,
+but the program is harder to read without it.

File: gawk.info, Node: Do Statement, Next: For Statement, Prev: While Statement, Up: Statements
The `do'-`while' Statement
-==========================
+--------------------------
The `do' loop is a variation of the `while' looping statement. The
-`do' loop executes the BODY once, and then repeats BODY as long as
-CONDITION is true. It looks like this:
+`do' loop executes the BODY once and then repeats the BODY as long as
+the CONDITION is true. It looks like this:
do
BODY
while (CONDITION)
- Even if CONDITION is false at the start, BODY is executed at least
-once (and only once, unless executing BODY makes CONDITION true).
+ Even if the CONDITION is false at the start, the BODY is executed at
+least once (and only once, unless executing BODY makes CONDITION true).
Contrast this with the corresponding `while' statement:
while (CONDITION)
BODY
-This statement does not execute BODY even once if CONDITION is false to
-begin with.
-
- Here is an example of a `do' statement:
+This statement does not execute BODY even once if the CONDITION is
+false to begin with. The following is an example of a `do' statement:
- awk '{ i = 1
+ { i = 1
do {
print $0
i++
} while (i <= 10)
- }'
+ }
-This program prints each input record ten times. It isn't a very
-realistic example, since in this case an ordinary `while' would do just
-as well. But this reflects actual experience; there is only
-occasionally a real use for a `do' statement.
+This program prints each input record ten times. However, it isn't a
+very realistic example, since in this case an ordinary `while' would do
+just as well. This situation reflects actual experience; only
+occasionally is there a real use for a `do' statement.

File: gawk.info, Node: For Statement, Next: Break Statement, Prev: Do Statement, Up: Statements
The `for' Statement
-===================
+-------------------
The `for' statement makes it more convenient to count iterations of a
loop. The general form of the `for' statement looks like this:
@@ -6328,48 +7227,47 @@ loop. The general form of the `for' statement looks like this:
for (INITIALIZATION; CONDITION; INCREMENT)
BODY
-The INITIALIZATION, CONDITION and INCREMENT parts are arbitrary `awk'
+The INITIALIZATION, CONDITION, and INCREMENT parts are arbitrary `awk'
expressions, and BODY stands for any `awk' statement.
The `for' statement starts by executing INITIALIZATION. Then, as
-long as CONDITION is true, it repeatedly executes BODY and then
-INCREMENT. Typically INITIALIZATION sets a variable to either zero or
+long as the CONDITION is true, it repeatedly executes BODY and then
+INCREMENT. Typically, INITIALIZATION sets a variable to either zero or
one, INCREMENT adds one to it, and CONDITION compares it against the
-desired number of iterations.
-
- Here is an example of a `for' statement:
+desired number of iterations. For example:
awk '{ for (i = 1; i <= 3; i++)
print $i
}' inventory-shipped
-This prints the first three fields of each input record, one field per
-line.
+This prints the first three fields of each input record, with one field
+per line.
- You cannot set more than one variable in the INITIALIZATION part
-unless you use a multiple assignment statement such as `x = y = 0',
-which is possible only if all the initial values are equal. (But you
-can initialize additional variables by writing their assignments as
-separate statements preceding the `for' loop.)
+ It isn't possible to set more than one variable in the
+INITIALIZATION part without using a multiple assignment statement such
+as `x = y = 0'. This makes sense only if all the initial values are
+equal. (But it is possible to initialize additional variables by
+writing their assignments as separate statements preceding the `for'
+loop.)
- The same is true of the INCREMENT part; to increment additional
-variables, you must write separate statements at the end of the loop.
-The C compound expression, using C's comma operator, would be useful in
-this context, but it is not supported in `awk'.
+ The same is true of the INCREMENT part. Incrementing additional
+variables requires separate statements at the end of the loop. The C
+compound expression, using C's comma operator, is useful in this
+context but it is not supported in `awk'.
- Most often, INCREMENT is an increment expression, as in the example
-above. But this is not required; it can be any expression whatever.
-For example, this statement prints all the powers of two between one
-and 100:
+ Most often, INCREMENT is an increment expression, as in the previous
+example. But this is not required; it can be any expression
+whatsoever. For example, the following statement prints all the powers
+of two between 1 and 100:
for (i = 1; i <= 100; i *= 2)
print i
- Any of the three expressions in the parentheses following the `for'
-may be omitted if there is nothing to be done there. Thus,
+ If there is nothing to be done, any of the three expressions in the
+parentheses following the `for' keyword may be omitted. Thus,
`for (; x > 0;)' is equivalent to `while (x > 0)'. If the CONDITION is
-omitted, it is treated as TRUE, effectively yielding an "infinite loop"
-(i.e. a loop that will never terminate).
+omitted, it is treated as true, effectively yielding an "infinite loop"
+(i.e., a loop that never terminates).
In most cases, a `for' loop is an abbreviation for a `while' loop,
as shown here:
@@ -6381,10 +7279,16 @@ as shown here:
}
The only exception is when the `continue' statement (*note The
-`continue' Statement: Continue Statement.) is used inside the loop;
-changing a `for' statement to a `while' statement in this way can
+`continue' Statement: Continue Statement.) is used inside the loop.
+Changing a `for' statement to a `while' statement in this way can
change the effect of the `continue' statement inside the loop.
+ The `awk' language has a `for' statement in addition to a `while'
+statement because a `for' loop is often both less work to type and more
+natural to think of. Counting the number of iterations is very common
+in loops. It can be easier to think of this counting as part of
+looping rather than as something to do inside the loop.
+
There is an alternate version of the `for' loop, for iterating over
all the indices of an array:
@@ -6394,102 +7298,95 @@ all the indices of an array:
*Note Scanning All Elements of an Array: Scanning an Array, for more
information on this version of the `for' loop.
- The `awk' language has a `for' statement in addition to a `while'
-statement because often a `for' loop is both less work to type and more
-natural to think of. Counting the number of iterations is very common
-in loops. It can be easier to think of this counting as part of
-looping rather than as something to do inside the loop.
-
- The next section has more complicated examples of `for' loops.
-

File: gawk.info, Node: Break Statement, Next: Continue Statement, Prev: For Statement, Up: Statements
The `break' Statement
-=====================
+---------------------
The `break' statement jumps out of the innermost `for', `while', or
`do' loop that encloses it. The following example finds the smallest
divisor of any integer, and also identifies prime numbers:
- awk '# find smallest divisor of num
- { num = $1
- for (div = 2; div*div <= num; div++)
- if (num % div == 0)
- break
- if (num % div == 0)
- printf "Smallest divisor of %d is %d\n", num, div
- else
- printf "%d is prime\n", num
- }'
+ # find smallest divisor of num
+ {
+ num = $1
+ for (div = 2; div*div <= num; div++)
+ if (num % div == 0)
+ break
+ if (num % div == 0)
+ printf "Smallest divisor of %d is %d\n", num, div
+ else
+ printf "%d is prime\n", num
+ }
When the remainder is zero in the first `if' statement, `awk'
immediately "breaks out" of the containing `for' loop. This means that
`awk' proceeds immediately to the statement following the loop and
continues processing. (This is very different from the `exit'
-statement which stops the entire `awk' program. *Note The `exit'
+statement, which stops the entire `awk' program. *Note The `exit'
Statement: Exit Statement.)
- Here is another program equivalent to the previous one. It
-illustrates how the CONDITION of a `for' or `while' could just as well
-be replaced with a `break' inside an `if':
-
- awk '# find smallest divisor of num
- { num = $1
- for (div = 2; ; div++) {
- if (num % div == 0) {
- printf "Smallest divisor of %d is %d\n", num, div
- break
- }
- if (div*div > num) {
- printf "%d is prime\n", num
- break
- }
- }
- }'
+ Th following program illustrates how the CONDITION of a `for' or
+`while' statement could be replaced with a `break' inside an `if':
- As described above, the `break' statement has no meaning when used
-outside the body of a loop. However, although it was never documented,
-historical implementations of `awk' have treated the `break' statement
-outside of a loop as if it were a `next' statement (*note The `next'
-Statement: Next Statement.). Recent versions of Unix `awk' no longer
-allow this usage. `gawk' will support this use of `break' only if
-`--traditional' has been specified on the command line (*note Command
-Line Options: Options.). Otherwise, it will be treated as an error,
-since the POSIX standard specifies that `break' should only be used
-inside the body of a loop (d.c.).
+ # find smallest divisor of num
+ {
+ num = $1
+ for (div = 2; ; div++) {
+ if (num % div == 0) {
+ printf "Smallest divisor of %d is %d\n", num, div
+ break
+ }
+ if (div*div > num) {
+ printf "%d is prime\n", num
+ break
+ }
+ }
+ }
+
+ The `break' statement has no meaning when used outside the body of a
+loop. However, although it was never documented, historical
+implementations of `awk' treated the `break' statement outside of a
+loop as if it were a `next' statement (*note The `next' Statement: Next
+Statement.). Recent versions of Unix `awk' no longer allow this usage.
+`gawk' supports this use of `break' only if `--traditional' has been
+specified on the command line (*note Command-Line Options: Options.).
+Otherwise, it is treated as an error, since the POSIX standard
+specifies that `break' should only be used inside the body of a loop.
+(d.c.)

File: gawk.info, Node: Continue Statement, Next: Next Statement, Prev: Break Statement, Up: Statements
The `continue' Statement
-========================
+------------------------
- The `continue' statement, like `break', is used only inside `for',
+ As with `break', the `continue' statement is used only inside `for',
`while', and `do' loops. It skips over the rest of the loop body,
causing the next cycle around the loop to begin immediately. Contrast
this with `break', which jumps out of the loop altogether.
The `continue' statement in a `for' loop directs `awk' to skip the
-rest of the body of the loop, and resume execution with the
+rest of the body of the loop and resume execution with the
increment-expression of the `for' statement. The following program
illustrates this fact:
- awk 'BEGIN {
+ BEGIN {
for (x = 0; x <= 20; x++) {
if (x == 5)
continue
printf "%d ", x
}
print ""
- }'
+ }
-This program prints all the numbers from zero to 20, except for five,
-for which the `printf' is skipped. Since the increment `x++' is not
+This program prints all the numbers from 0 to 20--except for five, for
+which the `printf' is skipped. Because the increment `x++' is not
skipped, `x' does not remain stuck at five. Contrast the `for' loop
-above with this `while' loop:
+from the previous example with the following `while' loop:
- awk 'BEGIN {
+ BEGIN {
x = 0
while (x <= 20) {
if (x == 5)
@@ -6498,48 +7395,48 @@ above with this `while' loop:
x++
}
print ""
- }'
+ }
-This program loops forever once `x' gets to five.
+This program loops forever once `x' reaches five.
- As described above, the `continue' statement has no meaning when
-used outside the body of a loop. However, although it was never
-documented, historical implementations of `awk' have treated the
-`continue' statement outside of a loop as if it were a `next' statement
-(*note The `next' Statement: Next Statement.). Recent versions of Unix
-`awk' no longer allow this usage. `gawk' will support this use of
-`continue' only if `--traditional' has been specified on the command
-line (*note Command Line Options: Options.). Otherwise, it will be
-treated as an error, since the POSIX standard specifies that `continue'
-should only be used inside the body of a loop (d.c.).
+ The `continue' statement has no meaning when used outside the body of
+a loop. Historical versions of `awk' treated a `continue' statement
+outside a loop the same way they treated a `break' statement outside a
+loop: as if it were a `next' statement (*note The `next' Statement:
+Next Statement.). Recent versions of Unix `awk' no longer work this
+way, and `gawk' allows it only if `--traditional' is specified on the
+command line (*note Command-Line Options: Options.). Just like the
+`break' statement, the POSIX standard specifies that `continue' should
+only be used inside the body of a loop. (d.c.)

File: gawk.info, Node: Next Statement, Next: Nextfile Statement, Prev: Continue Statement, Up: Statements
The `next' Statement
-====================
+--------------------
The `next' statement forces `awk' to immediately stop processing the
current record and go on to the next record. This means that no
-further rules are executed for the current record. The rest of the
-current rule's action is not executed either.
+further rules are executed for the current record, and the rest of the
+current rule's action isn't executed.
Contrast this with the effect of the `getline' function (*note
-Explicit Input with `getline': Getline.). That too causes `awk' to
+Explicit Input with `getline': Getline.). That also causes `awk' to
read the next record immediately, but it does not alter the flow of
-control in any way. So the rest of the current action executes with a
-new input record.
+control in any way (i.e., the rest of the current action executes with
+a new input record).
At the highest level, `awk' program execution is a loop that reads
an input record and then tests each rule's pattern against it. If you
think of this loop as a `for' statement whose body contains the rules,
-then the `next' statement is analogous to a `continue' statement: it
-skips to the end of the body of this implicit loop, and executes the
+then the `next' statement is analogous to a `continue' statement. It
+skips to the end of the body of this implicit loop and executes the
increment (which reads another record).
- For example, if your `awk' program works only on records with four
-fields, and you don't want it to fail when given bad input, you might
-use this rule near the beginning of the program:
+ For example, suppose an `awk' program works only on records with
+four fields, and it shouldn't fail when given bad input. To avoid
+complicating the rest of the program, write a "weed out" rule near the
+beginning, in the following manner:
NF != 4 {
err = sprintf("%s:%d: skipped: NF != 4\n", FILENAME, FNR)
@@ -6547,107 +7444,117 @@ use this rule near the beginning of the program:
next
}
-so that the following rules will not see the bad record. The error
-message is redirected to the standard error output stream, as error
-messages should be. *Note Special File Names in `gawk': Special Files.
+Because of the `next' statement, the program's subsequent rules won't
+see the bad record. The error message is redirected to the standard
+error output stream, as error messages should be. *Note Special File
+Names in `gawk': Special Files.
According to the POSIX standard, the behavior is undefined if the
-`next' statement is used in a `BEGIN' or `END' rule. `gawk' will treat
-it as a syntax error. Although POSIX permits it, some other `awk'
+`next' statement is used in a `BEGIN' or `END' rule. `gawk' treats it
+as a syntax error. Although POSIX permits it, some other `awk'
implementations don't allow the `next' statement inside function bodies
-(*note User-defined Functions: User-defined.). Just as any other
-`next' statement, a `next' inside a function body reads the next record
-and starts processing it with the first rule in the program.
-
- If the `next' statement causes the end of the input to be reached,
-then the code in any `END' rules will be executed. *Note The `BEGIN'
-and `END' Special Patterns: BEGIN/END.
-
- *Caution:* Some `awk' implementations generate a run-time error if
-you use the `next' statement inside a user-defined function (*note
-User-defined Functions: User-defined.). `gawk' does not have this
-problem.
+(*note User-Defined Functions: User-defined.). Just as with any other
+`next' statement, a `next' statement inside a function body reads the
+next record and starts processing it with the first rule in the program.
+If the `next' statement causes the end of the input to be reached, then
+the code in any `END' rules is executed. *Note The `BEGIN' and `END'
+Special Patterns: BEGIN/END.

File: gawk.info, Node: Nextfile Statement, Next: Exit Statement, Prev: Next Statement, Up: Statements
-The `nextfile' Statement
-========================
+Using `gawk''s `nextfile' Statement
+-----------------------------------
`gawk' provides the `nextfile' statement, which is similar to the
`next' statement. However, instead of abandoning processing of the
current record, the `nextfile' statement instructs `gawk' to stop
processing the current data file.
+ The `nextfile' statement is a `gawk' extension. In most other `awk'
+implementations, or if `gawk' is in compatibility mode (*note
+Command-Line Options: Options.), `nextfile' is not special.
+
Upon execution of the `nextfile' statement, `FILENAME' is updated to
the name of the next data file listed on the command line, `FNR' is
reset to one, `ARGIND' is incremented, and processing starts over with
-the first rule in the progam. *Note Built-in Variables::.
-
- If the `nextfile' statement causes the end of the input to be
-reached, then the code in any `END' rules will be executed. *Note The
-`BEGIN' and `END' Special Patterns: BEGIN/END.
-
- The `nextfile' statement is a `gawk' extension; it is not
-(currently) available in any other `awk' implementation. *Note
-Implementing `nextfile' as a Function: Nextfile Function, for a
-user-defined function you can use to simulate the `nextfile' statement.
-
- The `nextfile' statement would be useful if you have many data files
-to process, and you expect that you would not want to process every
-record in every file. Normally, in order to move on to the next data
-file, you would have to continue scanning the unwanted records. The
-`nextfile' statement accomplishes this much more efficiently.
+the first rule in the program. (`ARGIND' hasn't been introduced yet.
+*Note Built-in Variables::.) If the `nextfile' statement causes the
+end of the input to be reached, then the code in any `END' rules is
+executed. *Note The `BEGIN' and `END' Special Patterns: BEGIN/END.
+
+ The `nextfile' statement is useful when there are many data files to
+process but it isn't necessary to process every record in every file.
+Normally, in order to move on to the next data file, a program has to
+continue scanning the unwanted records. The `nextfile' statement
+accomplishes this much more efficiently.
+
+ While one might think that `close(FILENAME)' would accomplish the
+same as `nextfile', this isn't true. `close' is reserved for closing
+files, pipes, and coprocesses that are opened with redirections. It is
+not related to the main processing that `awk' does with the files
+listed in `ARGV'.
+
+ If it's necessary to use an `awk' version that doesn't support
+`nextfile', see *Note Implementing `nextfile' as a Function: Nextfile
+Function, for a user-defined function that simulates the `nextfile'
+statement.
+
+ The current version of the Bell Laboratories `awk' (*note Other
+Freely Available `awk' Implementations: Other Versions.) also supports
+`nextfile'. However, it doesn't allow the `nextfile' statement inside
+function bodies (*note User-Defined Functions: User-defined.). `gawk'
+does; a `nextfile' inside a function body reads the next record and
+starts processing it with the first rule in the program, just as any
+other `nextfile' statement.
*Caution:* Versions of `gawk' prior to 3.0 used two words (`next
-file') for the `nextfile' statement. This was changed in 3.0 to one
-word, since the treatment of `file' was inconsistent. When it appeared
-after `next', it was a keyword. Otherwise, it was a regular
-identifier. The old usage is still accepted. However, `gawk' will
-generate a warning message, and support for `next file' will eventually
-be discontinued in a future version of `gawk'.
+file') for the `nextfile' statement. In version 3.0, this was changed
+to one word, because the treatment of `file' was inconsistent. When it
+appeared after `next', `file' was a keyword; otherwise, it was a
+regular identifier. The old usage is no longer accepted; `next file'
+generates a syntax error.

File: gawk.info, Node: Exit Statement, Prev: Nextfile Statement, Up: Statements
The `exit' Statement
-====================
+--------------------
The `exit' statement causes `awk' to immediately stop executing the
current rule and to stop processing input; any remaining input is
-ignored. It looks like this:
+ignored. The `exit' statement is written as follows:
exit [RETURN CODE]
- If an `exit' statement is executed from a `BEGIN' rule the program
-stops processing everything immediately. No input records are read.
-However, if an `END' rule is present, it is executed (*note The `BEGIN'
-and `END' Special Patterns: BEGIN/END.).
-
- If `exit' is used as part of an `END' rule, it causes the program to
-stop immediately.
+ When an `exit' statement is executed from a `BEGIN' rule, the
+program stops processing everything immediately. No input records are
+read. However, if an `END' rule is present, as part of executing the
+`exit' statement, the `END' rule is executed (*note The `BEGIN' and
+`END' Special Patterns: BEGIN/END.). If `exit' is used as part of an
+`END' rule, it causes the program to stop immediately.
An `exit' statement that is not part of a `BEGIN' or `END' rule
stops the execution of any further automatic rules for the current
record, skips reading any remaining input records, and executes the
`END' rule if there is one.
- If you do not want the `END' rule to do its job in this case, you
-can set a variable to non-zero before the `exit' statement, and check
-that variable in the `END' rule. *Note Assertions: Assert Function,
-for an example that does this.
+ In such a case, if you don't want the `END' rule to do its job, set
+a variable to nonzero before the `exit' statement and check that
+variable in the `END' rule. *Note Assertions: Assert Function, for an
+example that does this.
If an argument is supplied to `exit', its value is used as the exit
status code for the `awk' process. If no argument is supplied, `exit'
returns status zero (success). In the case where an argument is
supplied to a first `exit' statement, and then `exit' is called a
-second time with no argument, the previously supplied exit value is
-used (d.c.).
+second time from an `END' rule with no argument, `awk' uses the
+previously supplied exit value. (d.c.)
- For example, let's say you've discovered an error condition you
-really don't know how to handle. Conventionally, programs report this
-by exiting with a non-zero status. Your `awk' program can do this
-using an `exit' statement with a non-zero argument. Here is an example:
+ For example, suppose an error condition occurs that is difficult or
+impossible to handle. Conventionally, programs report this by exiting
+with a nonzero status. An `awk' program can do this using an `exit'
+statement with a nonzero argument, as shown in the following example:
BEGIN {
if (("date" | getline date_now) <= 0) {
@@ -6659,69 +7566,88 @@ using an `exit' statement with a non-zero argument. Here is an example:
}

-File: gawk.info, Node: Built-in Variables, Next: Arrays, Prev: Statements, Up: Top
+File: gawk.info, Node: Built-in Variables, Prev: Statements, Up: Patterns and Actions
Built-in Variables
-******************
+==================
Most `awk' variables are available for you to use for your own
-purposes; they never change except when your program assigns values to
-them, and never affect anything except when your program examines them.
-However, a few variables in `awk' have special built-in meanings. Some
-of them `awk' examines automatically, so that they enable you to tell
-`awk' how to do certain things. Others are set automatically by `awk',
-so that they carry information from the internal workings of `awk' to
-your program.
-
- This chapter documents all the built-in variables of `gawk'. Most
-of them are also documented in the chapters describing their areas of
+purposes; they never change unless your program assigns values to them,
+and they never affect anything unless your program examines them.
+However, a few variables in `awk' have special built-in meanings.
+`awk' examines some of these automatically, so that they enable you to
+tell `awk' how to do certain things. Others are set automatically by
+`awk', so that they carry information from the internal workings of
+`awk' to your program.
+
+ This minor node documents all the built-in variables of `gawk', most
+of which are also documented in the chapters describing their areas of
activity.
* Menu:
* User-modified:: Built-in variables that you change to control
`awk'.
-* Auto-set:: Built-in variables where `awk' gives you
- information.
+* Auto-set:: Built-in variables where `awk' gives
+ you information.
* ARGC and ARGV:: Ways to use `ARGC' and `ARGV'.

File: gawk.info, Node: User-modified, Next: Auto-set, Prev: Built-in Variables, Up: Built-in Variables
-Built-in Variables that Control `awk'
-=====================================
+Built-in Variables That Control `awk'
+-------------------------------------
- This is an alphabetical list of the variables which you can change to
-control how `awk' does certain things. Those variables that are
-specific to `gawk' are marked with an asterisk, `*'.
+ The following is an alphabetical list of variables that you can
+change to control how `awk' does certain things. The variables that are
+specific to `gawk' are marked with a pound sign (`#').
+
+`BINMODE #'
+ On non-POSIX systems, this variable specifies use of "binary" mode
+ for all I/O. Numeric values of one, two, or three, specify that
+ input files, output files, or all files, respectively, should use
+ binary I/O. Alternatively, string values of `"r"' or `"w"'
+ specify that input files and output files, respectively, should
+ use binary I/O. A string value of `"rw"' or `"wr"' indicates that
+ all files should use binary I/O. Any other string value is
+ equivalent to `"rw"', but `gawk' generates a warning message.
+ `BINMODE' is described in more detail in *Note Using `gawk' on PC
+ Operating Systems: PC Using.
+
+ This variable is a `gawk' extension. In other `awk'
+ implementations (except `mawk', *note Other Freely Available `awk'
+ Implementations: Other Versions.), or if `gawk' is in
+ compatibility mode (*note Command-Line Options: Options.), it is
+ not special.
`CONVFMT'
This string controls conversion of numbers to strings (*note
Conversion of Strings and Numbers: Conversion.). It works by
being passed, in effect, as the first argument to the `sprintf'
- function (*note Built-in Functions for String Manipulation: String
- Functions.). Its default value is `"%.6g"'. `CONVFMT' was
- introduced by the POSIX standard.
-
-`FIELDWIDTHS *'
- This is a space separated list of columns that tells `gawk' how to
- split input with fixed, columnar boundaries. It is an
- experimental feature. Assigning to `FIELDWIDTHS' overrides the
- use of `FS' for field splitting. *Note Reading Fixed-width Data:
- Constant Size, for more information.
-
- If `gawk' is in compatibility mode (*note Command Line Options:
- Options.), then `FIELDWIDTHS' has no special meaning, and field
- splitting operations are done based exclusively on the value of
+ function (*note String Manipulation Functions: String Functions.).
+ Its default value is `"%.6g"'. `CONVFMT' was introduced by the
+ POSIX standard.
+
+`FIELDWIDTHS #'
+ This is a space-separated list of columns that tells `gawk' how to
+ split input with fixed columnar boundaries. Assigning a value to
+ `FIELDWIDTHS' overrides the use of `FS' for field splitting.
+ *Note Reading Fixed-Width Data: Constant Size, for more
+ information.
+
+ If `gawk' is in compatibility mode (*note Command-Line Options:
+ Options.), then `FIELDWIDTHS' has no special meaning, and
+ field-splitting operations occur based exclusively on the value of
`FS'.
`FS'
- `FS' is the input field separator (*note Specifying How Fields are
+ This is the input field separator (*note Specifying How Fields Are
Separated: Field Separators.). The value is a single-character
string or a multi-character regular expression that matches the
separations between fields in an input record. If the value is
the null string (`""'), then each character in the record becomes
- a separate field.
+ a separate field. (This behavior is a `gawk' extension. POSIX
+ `awk' does not specify the behavior when `FS' is the null string.)
The default value is `" "', a string consisting of a single space.
As a special exception, this value means that any sequence of
@@ -6734,61 +7660,94 @@ specific to `gawk' are marked with an asterisk, `*'.
awk -F, 'PROGRAM' INPUT-FILES
- If `gawk' is using `FIELDWIDTHS' for field-splitting, assigning a
- value to `FS' will cause `gawk' to return to the normal,
- `FS'-based, field splitting. An easy way to do this is to simply
- say `FS = FS', perhaps with an explanatory comment.
-
-`IGNORECASE *'
- If `IGNORECASE' is non-zero or non-null, then all string
- comparisons, and all regular expression matching are
- case-independent. Thus, regexp matching with `~' and `!~', and
- the `gensub', `gsub', `index', `match', `split' and `sub'
- functions, record termination with `RS', and field splitting with
- `FS' all ignore case when doing their particular regexp operations.
- The value of `IGNORECASE' does _not_ affect array subscripting.
- *Note Case-sensitivity in Matching: Case-sensitivity.
-
- If `gawk' is in compatibility mode (*note Command Line Options:
- Options.), then `IGNORECASE' has no special meaning, and string
+ If `gawk' is using `FIELDWIDTHS' for field splitting, assigning a
+ value to `FS' causes `gawk' to return to the normal, `FS'-based
+ field splitting. An easy way to do this is to simply say `FS =
+ FS', perhaps with an explanatory comment.
+
+`IGNORECASE #'
+ If `IGNORECASE' is nonzero or non-null, then all string comparisons
+ and all regular expression matching are case-independent. Thus,
+ regexp matching with `~' and `!~', as well as the `gensub',
+ `gsub', `index', `match', `split', and `sub' functions, record
+ termination with `RS', and field splitting with `FS', all ignore
+ case when doing their particular regexp operations. However, the
+ value of `IGNORECASE' does _not_ affect array subscripting. *Note
+ Case Sensitivity in Matching: Case-sensitivity.
+
+ If `gawk' is in compatibility mode (*note Command-Line Options:
+ Options.), then `IGNORECASE' has no special meaning. Thus, string
and regexp operations are always case-sensitive.
+`LINT #'
+ When this variable is true (nonzero or non-null), `gawk' behaves
+ as if the `--lint' command-line option is in effect. (*note
+ Command-Line Options: Options.). With a value of `"fatal"', lint
+ warnings become fatal errors. Any other true value prints
+ non-fatal warnings. Assigning a false value to `LINT' turns off
+ the lint warnings.
+
+ This variable is a `gawk' extension. It is not special in other
+ `awk' implementations. Unlike the other special variables,
+ changing `LINT' does affect the production of lint warnings, even
+ if `gawk' is in compatibility mode. Much as the `--lint' and
+ `--traditional' options independently control different aspects of
+ `gawk''s behavior, the control of lint warnings during program
+ execution is independent of the flavor of `awk' being executed.
+
`OFMT'
This string controls conversion of numbers to strings (*note
Conversion of Strings and Numbers: Conversion.) for printing with
- the `print' statement. It works by being passed, in effect, as
- the first argument to the `sprintf' function (*note Built-in
- Functions for String Manipulation: String Functions.). Its
- default value is `"%.6g"'. Earlier versions of `awk' also used
- `OFMT' to specify the format for converting numbers to strings in
- general expressions; this is now done by `CONVFMT'.
+ the `print' statement. It works by being passed as the first
+ argument to the `sprintf' function (*note String Manipulation
+ Functions: String Functions.). Its default value is `"%.6g"'.
+ Earlier versions of `awk' also used `OFMT' to specify the format
+ for converting numbers to strings in general expressions; this is
+ now done by `CONVFMT'.
`OFS'
This is the output field separator (*note Output Separators::).
- It is output between the fields output by a `print' statement. Its
- default value is `" "', a string consisting of a single space.
+ It is output between the fields printed by a `print' statement.
+ Its default value is `" "', a string consisting of a single space.
`ORS'
This is the output record separator. It is output at the end of
- every `print' statement. Its default value is `"\n"'. (*Note
- Output Separators::.)
+ every `print' statement. Its default value is `"\n"', the newline
+ character. (*Note Output Separators::.)
`RS'
This is `awk''s input record separator. Its default value is a
string containing a single newline character, which means that an
input record consists of a single line of text. It can also be
the null string, in which case records are separated by runs of
- blank lines, or a regexp, in which case records are separated by
- matches of the regexp in the input text. (*Note How Input is
- Split into Records: Records.)
+ blank lines. If it is a regexp, records are separated by matches
+ of the regexp in the input text. (*Note How Input Is Split into
+ Records: Records.)
+
+ The ability for `RS' to be a regular expression is a `gawk'
+ extension. In most other `awk' implementations, or if `gawk' is
+ in compatibility mode (*note Command-Line Options: Options.), just
+ the first character of `RS''s value is used.
`SUBSEP'
- `SUBSEP' is the subscript separator. It has the default value of
- `"\034"', and is used to separate the parts of the indices of a
- multi-dimensional array. Thus, the expression `foo["A", "B"]'
- really accesses `foo["A\034B"]' (*note Multi-dimensional Arrays:
+ This is the subscript separator. It has the default value of
+ `"\034"' and is used to separate the parts of the indices of a
+ multidimensional array. Thus, the expression `foo["A", "B"]'
+ really accesses `foo["A\034B"]' (*note Multidimensional Arrays:
Multi-dimensional.).
+`TEXTDOMAIN #'
+ This variable is used for internationalization of programs at the
+ `awk' level. It sets the default text domain for specially marked
+ string constants in the source text, as well as for the
+ `dcgettext' and `bindtextdomain' functions (*note
+ Internationalization with `gawk': Internationalization.). The
+ default value of `TEXTDOMAIN' is `"messages"'.
+
+ This variable is a `gawk' extension. In other `awk'
+ implementations, or if `gawk' is in compatibility mode (*note
+ Command-Line Options: Options.), it is not special.
+
---------- Footnotes ----------
(1) In POSIX `awk', newline does not count as whitespace.
@@ -6796,136 +7755,184 @@ specific to `gawk' are marked with an asterisk, `*'.

File: gawk.info, Node: Auto-set, Next: ARGC and ARGV, Prev: User-modified, Up: Built-in Variables
-Built-in Variables that Convey Information
-==========================================
+Built-in Variables That Convey Information
+------------------------------------------
- This is an alphabetical list of the variables that are set
-automatically by `awk' on certain occasions in order to provide
-information to your program. Those variables that are specific to
-`gawk' are marked with an asterisk, `*'.
+ The following is an alphabetical list of variables that `awk' sets
+automatically on certain occasions in order to provide information to
+your program. The variables that are specific to `gawk' are marked
+with an asterisk (`*').
-`ARGC'
-`ARGV'
+`ARGC, ARGV'
The command-line arguments available to `awk' programs are stored
in an array called `ARGV'. `ARGC' is the number of command-line
- arguments present. *Note Other Command Line Arguments: Other
- Arguments. Unlike most `awk' arrays, `ARGV' is indexed from zero
- to `ARGC' - 1. For example:
+ arguments present. *Note Other Command-Line Arguments: Other
+ Arguments. Unlike most `awk' arrays, `ARGV' is indexed from 0 to
+ `ARGC' - 1. In the following example:
$ awk 'BEGIN {
- > for (i = 0; i < ARGC; i++)
- > print ARGV[i]
+ > for (i = 0; i < ARGC; i++)
+ > print ARGV[i]
> }' inventory-shipped BBS-list
-| awk
-| inventory-shipped
-| BBS-list
- In this example, `ARGV[0]' contains `"awk"', `ARGV[1]' contains
- `"inventory-shipped"', and `ARGV[2]' contains `"BBS-list"'. The
+ `ARGV[0]' contains `"awk"', `ARGV[1]' contains
+ `"inventory-shipped"' and `ARGV[2]' contains `"BBS-list"'. The
value of `ARGC' is three, one more than the index of the last
- element in `ARGV', since the elements are numbered from zero.
+ element in `ARGV', because the elements are numbered from zero.
The names `ARGC' and `ARGV', as well as the convention of indexing
- the array from zero to `ARGC' - 1, are derived from the C
- language's method of accessing command line arguments. *Note
- Using `ARGC' and `ARGV': ARGC and ARGV, for information about how
- `awk' uses these variables.
-
-`ARGIND *'
- The index in `ARGV' of the current file being processed. Every
- time `gawk' opens a new data file for processing, it sets `ARGIND'
- to the index in `ARGV' of the file name. When `gawk' is
- processing the input files, it is always true that `FILENAME ==
- ARGV[ARGIND]'.
+ the array from 0 to `ARGC' - 1, are derived from the C language's
+ method of accessing command-line arguments.
+
+ The value of `ARGV[0]' can vary from system to system. Also, you
+ should note that the program text is _not_ included in `ARGV', nor
+ are any of `awk''s command-line options. *Note Using `ARGC' and
+ `ARGV': ARGC and ARGV, for information about how `awk' uses these
+ variables.
+
+`ARGIND #'
+ This is the index in `ARGV' of the current file being processed.
+ Every time `gawk' opens a new data file for processing, it sets
+ `ARGIND' to the index in `ARGV' of the file name. When `gawk' is
+ processing the input files, `FILENAME == ARGV[ARGIND]' is always
+ true.
This variable is useful in file processing; it allows you to tell
- how far along you are in the list of data files, and to
- distinguish between successive instances of the same filename on
+ how far along you are in the list of data files as well as to
+ distinguish between successive instances of the same file name on
the command line.
While you can change the value of `ARGIND' within your `awk'
- program, `gawk' will automatically set it to a new value when the
- next file is opened.
+ program, `gawk' automatically sets it to a new value when the next
+ file is opened.
- This variable is a `gawk' extension. In other `awk'
+ This variable is a `gawk' extension. In other `awk'
implementations, or if `gawk' is in compatibility mode (*note
- Command Line Options: Options.), it is not special.
+ Command-Line Options: Options.), it is not special.
`ENVIRON'
An associative array that contains the values of the environment.
- The array indices are the environment variable names; the values
+ The array indices are the environment variable names; the elements
are the values of the particular environment variables. For
example, `ENVIRON["HOME"]' might be `/home/arnold'. Changing this
array does not affect the environment passed on to any programs
that `awk' may spawn via redirection or the `system' function.
- (In a future version of `gawk', it may do so.)
Some operating systems may not have environment variables. On
such systems, the `ENVIRON' array is empty (except for
- `ENVIRON["AWKPATH"]').
+ `ENVIRON["AWKPATH"]', *note The `AWKPATH' Environment Variable:
+ AWKPATH Variable.).
-`ERRNO *'
- If a system error occurs either doing a redirection for `getline',
+`ERRNO #'
+ If a system error occurs during a redirection for `getline',
during a read for `getline', or during a `close' operation, then
- `ERRNO' will contain a string describing the error.
+ `ERRNO' contains a string describing the error.
- This variable is a `gawk' extension. In other `awk'
+ This variable is a `gawk' extension. In other `awk'
implementations, or if `gawk' is in compatibility mode (*note
- Command Line Options: Options.), it is not special.
+ Command-Line Options: Options.), it is not special.
`FILENAME'
This is the name of the file that `awk' is currently reading.
When no data files are listed on the command line, `awk' reads
- from the standard input, and `FILENAME' is set to `"-"'.
+ from the standard input and `FILENAME' is set to `"-"'.
`FILENAME' is changed each time a new file is read (*note Reading
Input Files: Reading Files.). Inside a `BEGIN' rule, the value of
`FILENAME' is `""', since there are no input files being processed
- yet.(1) (d.c.)
+ yet.(1) (d.c.) Note though, that using `getline' (*note Explicit
+ Input with `getline': Getline.) inside a `BEGIN' rule can give
+ `FILENAME' a value.
`FNR'
- `FNR' is the current record number in the current file. `FNR' is
+ This is the current record number in the current file. `FNR' is
incremented each time a new record is read (*note Explicit Input
with `getline': Getline.). It is reinitialized to zero each time
a new input file is started.
`NF'
- `NF' is the number of fields in the current input record. `NF' is
- set each time a new record is read, when a new field is created,
- or when `$0' changes (*note Examining Fields: Fields.).
+ This is the number of fields in the current input record. `NF' is
+ set each time a new record is read, when a new field is created or
+ when `$0' changes (*note Examining Fields: Fields.).
`NR'
This is the number of input records `awk' has processed since the
- beginning of the program's execution (*note How Input is Split
- into Records: Records.). `NR' is set each time a new record is
- read.
+ beginning of the program's execution (*note How Input Is Split
+ into Records: Records.). `NR' is incremented each time a new
+ record is read.
+
+`PROCINFO #'
+ The elements of this array provide access to information about the
+ running `awk' program. The following elements (listed
+ alphabetically) are guaranteed to be available:
+
+ `PROCINFO["egid"]'
+ The value of the `getegid' system call.
+
+ `PROCINFO["euid"]'
+ The value of the `geteuid' system call.
+
+ `PROCINFO["FS"]'
+ This is `"FS"' if field splitting with `FS' is in effect, or
+ it is `"FIELDWIDTHS"' if field splitting with `FIELDWIDTHS'
+ is in effect.
+
+ `PROCINFO["gid"]'
+ The value of the `getgid' system call.
+
+ `PROCINFO["pgrpid"]'
+ The process group ID of the current process.
+
+ `PROCINFO["pid"]'
+ The process ID of the current process.
+
+ `PROCINFO["ppid"]'
+ The parent process ID of the current process.
+
+ `PROCINFO["uid"]'
+ The value of the `getuid' system call.
+
+ On some systems, there may be elements in the array, `"group1"'
+ through `"groupN"' for some N. N is the number of supplementary
+ groups that the process has. Use the `in' operator to test for
+ these elements (*note Referring to an Array Element: Reference to
+ Elements.).
+
+ This array is a `gawk' extension. In other `awk' implementations,
+ or if `gawk' is in compatibility mode (*note Command-Line Options:
+ Options.), it is not special.
`RLENGTH'
- `RLENGTH' is the length of the substring matched by the `match'
- function (*note Built-in Functions for String Manipulation: String
- Functions.). `RLENGTH' is set by invoking the `match' function.
- Its value is the length of the matched string, or -1 if no match
- was found.
+ This is the length of the substring matched by the `match' function
+ (*note String Manipulation Functions: String Functions.).
+ `RLENGTH' is set by invoking the `match' function. Its value is
+ the length of the matched string, or -1 if no match is found.
`RSTART'
- `RSTART' is the start-index in characters of the substring matched
- by the `match' function (*note Built-in Functions for String
- Manipulation: String Functions.). `RSTART' is set by invoking the
+ This is the start-index in characters of the substring that is
+ matched by the `match' function (*note String Manipulation
+ Functions: String Functions.). `RSTART' is set by invoking the
`match' function. Its value is the position of the string where
the matched substring starts, or zero if no match was found.
-`RT *'
- `RT' is set each time a record is read. It contains the input text
+`RT #'
+ This is set each time a record is read. It contains the input text
that matched the text denoted by `RS', the record separator.
- This variable is a `gawk' extension. In other `awk'
+ This variable is a `gawk' extension. In other `awk'
implementations, or if `gawk' is in compatibility mode (*note
- Command Line Options: Options.), it is not special.
+ Command-Line Options: Options.), it is not special.
+
+Advanced Notes: Changing `NR' and `FNR'
+---------------------------------------
- A side note about `NR' and `FNR'. `awk' simply increments both of
-these variables each time it reads a record, instead of setting them to
-the absolute value of the number of records read. This means that your
-program can change these variables, and their new values will be
-incremented for each record (d.c.). For example:
+ `awk' increments `NR' and `FNR' each time it reads a record, instead
+of setting them to the absolute value of the number of records read.
+This means that a program can change these variables and their new
+values are incremented for each record. (d.c.) This is demonstrated
+in the following example:
$ echo '1
> 2
@@ -6938,7 +7945,7 @@ incremented for each record (d.c.). For example:
-| 19
Before `FNR' was added to the `awk' language (*note Major Changes
-between V7 and SVR3.1: V7/SVR3.1.), many `awk' programs used this
+Between V7 and SVR3.1: V7/SVR3.1.), many `awk' programs used this
feature to track the number of records in a file by resetting `NR' to
zero when `FILENAME' changed.
@@ -6946,17 +7953,17 @@ zero when `FILENAME' changed.
(1) Some early implementations of Unix `awk' initialized `FILENAME'
to `"-"', even if there were data files to be processed. This behavior
-was incorrect, and should not be relied upon in your programs.
+was incorrect and should not be relied upon in your programs.

File: gawk.info, Node: ARGC and ARGV, Prev: Auto-set, Up: Built-in Variables
Using `ARGC' and `ARGV'
-=======================
+-----------------------
- In *Note Built-in Variables that Convey Information: Auto-set, you
-saw this program describing the information contained in `ARGC' and
-`ARGV':
+ *Note Built-in Variables That Convey Information: Auto-set,
+presented the following program describing the information contained in
+`ARGC' and `ARGV':
$ awk 'BEGIN {
> for (i = 0; i < ARGC; i++)
@@ -6966,15 +7973,14 @@ saw this program describing the information contained in `ARGC' and
-| inventory-shipped
-| BBS-list
-In this example, `ARGV[0]' contains `"awk"', `ARGV[1]' contains
-`"inventory-shipped"', and `ARGV[2]' contains `"BBS-list"'.
-
- Notice that the `awk' program is not entered in `ARGV'. The other
-special command line options, with their arguments, are also not
-entered. This includes variable assignments done with the `-v' option
-(*note Command Line Options: Options.). Normal variable assignments on
-the command line _are_ treated as arguments, and do show up in the
-`ARGV' array.
+In this example, `ARGV[0]' contains `awk', `ARGV[1]' contains
+`inventory-shipped', and `ARGV[2]' contains `BBS-list'. Notice that
+the `awk' program is not entered in `ARGV'. The other special
+command-line options, with their arguments, are also not entered. This
+includes variable assignments done with the `-v' option (*note
+Command-Line Options: Options.). Normal variable assignments on the
+command line _are_ treated as arguments and do show up in the `ARGV'
+array:
$ cat showargs.awk
-| BEGIN {
@@ -6985,38 +7991,35 @@ the command line _are_ treated as arguments, and do show up in the
-| END { printf "A=%d, B=%d\n", A, B }
$ awk -v A=1 -f showargs.awk B=2 /dev/null
-| A=1, B=0
- -| ARGV[0] = awk
- -| ARGV[1] = B=2
- -| ARGV[2] = /dev/null
+ -| ARGV[0] = awk
+ -| ARGV[1] = B=2
+ -| ARGV[2] = /dev/null
-| A=1, B=2
- Your program can alter `ARGC' and the elements of `ARGV'. Each time
+ A program can alter `ARGC' and the elements of `ARGV'. Each time
`awk' reaches the end of an input file, it uses the next element of
`ARGV' as the name of the next input file. By storing a different
-string there, your program can change which files are read. You can
-use `"-"' to represent the standard input. By storing additional
-elements and incrementing `ARGC' you can cause additional files to be
-read.
+string there, a program can change which files are read. Use `"-"' to
+represent the standard input. Storing additional elements and
+incrementing `ARGC' causes additional files to be read.
- If you decrease the value of `ARGC', that eliminates input files
+ If the value of `ARGC' is decreased, that eliminates input files
from the end of the list. By recording the old value of `ARGC'
-elsewhere, your program can treat the eliminated arguments as something
+elsewhere, a program can treat the eliminated arguments as something
other than file names.
To eliminate a file from the middle of the list, store the null
string (`""') into `ARGV' in place of the file's name. As a special
feature, `awk' ignores file names that have been replaced with the null
-string. You may also use the `delete' statement to remove elements from
-`ARGV' (*note The `delete' Statement: Delete.).
+string. Another option is to use the `delete' statement to remove
+elements from `ARGV' (*note The `delete' Statement: Delete.).
- All of these actions are typically done from the `BEGIN' rule,
-before actual processing of the input begins. *Note Splitting a Large
-File Into Pieces: Split Program, and see *Note Duplicating Output Into
-Multiple Files: Tee Program, for an example of each way of removing
-elements from `ARGV'.
-
- The following fragment processes `ARGV' in order to examine, and
-then remove, command line options.
+ All of these actions are typically done in the `BEGIN' rule, before
+actual processing of the input begins. *Note Splitting a Large File
+into Pieces: Split Program, and see *Note Duplicating Output into
+Multiple Files: Tee Program, for examples of each way of removing
+elements from `ARGV'. The following fragment processes `ARGV' in order
+to examine, and then remove, command-line options:
BEGIN {
for (i = 1; i < ARGC; i++) {
@@ -7034,36 +8037,44 @@ then remove, command line options.
}
}
- To actually get the options into the `awk' program, you have to end
-the `awk' options with `--', and then supply your options, like so:
+ To actually get the options into the `awk' program, end the `awk'
+options with `--' and then supply the `awk' program's options, in the
+following manner:
awk -f myprog -- -v -d file1 file2 ...
- This is not necessary in `gawk': Unless `--posix' has been
+ This is not necessary in `gawk'. Unless `--posix' has been
specified, `gawk' silently puts any unrecognized options into `ARGV'
-for the `awk' program to deal with.
-
- As soon as it sees an unknown option, `gawk' stops looking for other
-options it might otherwise recognize. The above example with `gawk'
-would be:
+for the `awk' program to deal with. As soon as it sees an unknown
+option, `gawk' stops looking for other options that it might otherwise
+recognize. The previous example with `gawk' would be:
gawk -f myprog -d -v file1 file2 ...
-Since `-d' is not a valid `gawk' option, the following `-v' is passed
-on to the `awk' program.
+Because `-d' is not a valid `gawk' option, it and the following `-v'
+are passed on to the `awk' program.

-File: gawk.info, Node: Arrays, Next: Built-in, Prev: Built-in Variables, Up: Top
+File: gawk.info, Node: Arrays, Next: Functions, Prev: Patterns and Actions, Up: Top
Arrays in `awk'
***************
- An "array" is a table of values, called "elements". The elements of
+ An "array" is a table of values called "elements". The elements of
an array are distinguished by their indices. "Indices" may be either
-numbers or strings. `awk' maintains a single set of names that may be
-used for naming variables, arrays and functions (*note User-defined
-Functions: User-defined.). Thus, you cannot have a variable and an
-array with the same name in the same `awk' program.
+numbers or strings.
+
+ This major node describes how arrays work in `awk', how to use array
+elements, how to scan through every element in an array, and how to
+remove array elements. It also describes how `awk' simulates
+multidimensional arrays, as well as some of the less obvious points
+about array usage. The major node finishes with a discussion of
+`gawk''s facility for sorting an array based on its indices.
+
+ `awk' maintains a single set of names that may be used for naming
+variables, arrays, and functions (*note User-Defined Functions:
+User-defined.). Thus, you cannot have a variable and an array with the
+same name in the same `awk' program.
* Menu:
@@ -7079,10 +8090,10 @@ array with the same name in the same `awk' program.
* Numeric Array Subscripts:: How to use numbers as subscripts in
`awk'.
* Uninitialized Subscripts:: Using Uninitialized variables as subscripts.
-* Multi-dimensional:: Emulating multi-dimensional arrays in
+* Multi-dimensional:: Emulating multidimensional arrays in
`awk'.
-* Multi-scanning:: Scanning multi-dimensional arrays.
-* Array Efficiency:: Implementation-specific tips.
+* Multi-scanning:: Scanning multidimensional arrays.
+* Array Sorting:: Sorting array values and indices.

File: gawk.info, Node: Array Intro, Next: Reference to Elements, Prev: Arrays, Up: Arrays
@@ -7090,74 +8101,75 @@ File: gawk.info, Node: Array Intro, Next: Reference to Elements, Prev: Arrays
Introduction to Arrays
======================
- The `awk' language provides one-dimensional "arrays" for storing
-groups of related strings or numbers.
-
- Every `awk' array must have a name. Array names have the same
-syntax as variable names; any valid variable name would also be a valid
-array name. But you cannot use one name in both ways (as an array and
-as a variable) in one `awk' program.
+ The `awk' language provides one-dimensional arrays for storing
+groups of related strings or numbers. Every `awk' array must have a
+name. Array names have the same syntax as variable names; any valid
+variable name would also be a valid array name. But one name cannot be
+used in both ways (as an array and as a variable) in the same `awk'
+program.
Arrays in `awk' superficially resemble arrays in other programming
-languages; but there are fundamental differences. In `awk', you don't
-need to specify the size of an array before you start to use it.
-Additionally, any number or string in `awk' may be used as an array
-index, not just consecutive integers.
-
- In most other languages, you have to "declare" an array and specify
-how many elements or components it contains. In such languages, the
-declaration causes a contiguous block of memory to be allocated for that
-many elements. An index in the array usually must be a positive
-integer; for example, the index zero specifies the first element in the
-array, which is actually stored at the beginning of the block of
-memory. Index one specifies the second element, which is stored in
-memory right after the first element, and so on. It is impossible to
-add more elements to the array, because it has room for only as many
-elements as you declared. (Some languages allow arbitrary starting and
-ending indices, e.g., `15 .. 27', but the size of the array is still
-fixed when the array is declared.)
-
- A contiguous array of four elements might look like this,
-conceptually, if the element values are eight, `"foo"', `""' and 30:
+languages, but there are fundamental differences. In `awk', it isn't
+necessary to specify the size of an array before starting to use it.
+Additionally, any number or string in `awk', not just consecutive
+integers, may be used as an array index.
+
+ In most other languages, arrays must be "declared" before use,
+including a specification of how many elements or components they
+contain. In such languages, the declaration causes a contiguous block
+of memory to be allocated for that many elements. Usually, an index in
+the array must be a positive integer. For example, the index zero
+specifies the first element in the array, which is actually stored at
+the beginning of the block of memory. Index one specifies the second
+element, which is stored in memory right after the first element, and
+so on. It is impossible to add more elements to the array, because it
+has room only for as many elements as given in the declaration. (Some
+languages allow arbitrary starting and ending indices--e.g., `15 ..
+27'--but the size of the array is still fixed when the array is
+declared.)
+
+ A contiguous array of four elements might look like the following
+example, conceptually, if the element values are 8, `"foo"', `""', and
+30:
+---------+---------+--------+---------+
- | 8 | "foo" | "" | 30 | value
+ | 8 | "foo" | "" | 30 | Value
+---------+---------+--------+---------+
- 0 1 2 3 index
+ 0 1 2 3 Index
Only the values are stored; the indices are implicit from the order of
-the values. Eight is the value at index zero, because eight appears in
-the position with zero elements before it.
+the values. 8 is the value at index zero, because 8 appears in the
+position with zero elements before it.
- Arrays in `awk' are different: they are "associative". This means
+ Arrays in `awk' are different--they are "associative". This means
that each array is a collection of pairs: an index, and its
corresponding array element value:
- Element 4 Value 30
- Element 2 Value "foo"
- Element 1 Value 8
- Element 3 Value ""
+ Element 3 Value 30
+ Element 1 Value "foo"
+ Element 0 Value 8
+ Element 2 Value ""
-We have shown the pairs in jumbled order because their order is
-irrelevant.
+The pairs are shown in jumbled order because their order is irrelevant.
One advantage of associative arrays is that new pairs can be added
-at any time. For example, suppose we add to the above array a tenth
-element whose value is `"number ten"'. The result is this:
+at any time. For example, suppose a tenth element is added to the array
+whose value is `"number ten"'. The result is:
Element 10 Value "number ten"
- Element 4 Value 30
- Element 2 Value "foo"
- Element 1 Value 8
- Element 3 Value ""
+ Element 3 Value 30
+ Element 1 Value "foo"
+ Element 0 Value 8
+ Element 2 Value ""
-Now the array is "sparse", which just means some indices are missing:
-it has elements 1-4 and 10, but doesn't have elements 5, 6, 7, 8, or 9.
+Now the array is "sparse", which just means some indices are missing.
+It has elements 0-3 and 10, but doesn't have elements 4, 5, 6, 7, 8, or
+9.
Another consequence of associative arrays is that the indices don't
have to be positive integers. Any number, or even a string, can be an
-index. For example, here is an array which translates words from
-English into French:
+index. For example, the following is an array that translates words
+from English into French:
Element "dog" Value "chien"
Element "cat" Value "chat"
@@ -7166,17 +8178,20 @@ English into French:
Here we decided to translate the number one in both spelled-out and
numeric form--thus illustrating that a single array can have both
-numbers and strings as indices. (In fact, array subscripts are always
+numbers and strings as indices. In fact, array subscripts are always
strings; this is discussed in more detail in *Note Using Numbers to
-Subscript Arrays: Numeric Array Subscripts.)
+Subscript Arrays: Numeric Array Subscripts. Here, the number `1' isn't
+double-quoted, since `awk' automatically converts it to a string.
The value of `IGNORECASE' has no effect upon array subscripting.
-You must use the exact same string value to retrieve an array element
-as you used to store it.
+The identical string value used to store an array element must be used
+to retrieve it. When `awk' creates an array (e.g., with the `split'
+built-in function), that array's indices are consecutive integers
+starting at one. (*Note String Manipulation Functions: String
+Functions.)
- When `awk' creates an array for you, e.g., with the `split' built-in
-function, that array's indices are consecutive integers starting at one.
-(*Note Built-in Functions for String Manipulation: String Functions.)
+ `awk''s arrays are efficient--the time to access an element is
+independent of the number of elements in the array.

File: gawk.info, Node: Reference to Elements, Next: Assigning Elements, Prev: Array Intro, Up: Arrays
@@ -7184,47 +8199,44 @@ File: gawk.info, Node: Reference to Elements, Next: Assigning Elements, Prev:
Referring to an Array Element
=============================
- The principal way of using an array is to refer to one of its
-elements. An array reference is an expression which looks like this:
+ The principal way to use an array is to refer to one of its elements.
+An array reference is an expression as follows:
ARRAY[INDEX]
Here, ARRAY is the name of an array. The expression INDEX is the index
-of the element of the array that you want.
+of the desired element of the array.
The value of the array reference is the current value of that array
element. For example, `foo[4.3]' is an expression for the element of
array `foo' at index `4.3'.
- If you refer to an array element that has no recorded value, the
-value of the reference is `""', the null string. This includes elements
-to which you have not assigned any value, and elements that have been
-deleted (*note The `delete' Statement: Delete.). Such a reference
+ A reference to an array element that has no recorded value yields a
+value of `""', the null string. This includes elements that have not
+been assigned any value as well as elements that have been deleted
+(*note The `delete' Statement: Delete.). Such a reference
automatically creates that array element, with the null string as its
value. (In some cases, this is unfortunate, because it might waste
memory inside `awk'.)
- You can find out if an element exists in an array at a certain index
-with the expression:
+ To determine whether an element exists in an array at a certain
+index, use the following expression:
INDEX in ARRAY
This expression tests whether or not the particular index exists,
without the side effect of creating that element if it is not present.
-The expression has the value one (true) if `ARRAY[INDEX]' exists, and
-zero (false) if it does not exist.
-
- For example, to test whether the array `frequencies' contains the
-index `2', you could write this statement:
+The expression has the value one (true) if `ARRAY[INDEX]' exists and
+zero (false) if it does not exist. For example, this statement tests
+whether the array `frequencies' contains the index `2':
if (2 in frequencies)
print "Subscript 2 is present."
- Note that this is _not_ a test of whether or not the array
-`frequencies' contains an element whose _value_ is two. (There is no
-way to do that except to scan all the elements.) Also, this _does not_
-create `frequencies[2]', while the following (incorrect) alternative
-would do so:
+ Note that this is _not_ a test of whether the array `frequencies'
+contains an element whose _value_ is two. There is no way to do that
+except to scan all the elements. Also, this _does not_ create
+`frequencies[2]', while the following (incorrect) alternative does:
if (frequencies[2] != "")
print "Subscript 2 is present."
@@ -7235,15 +8247,13 @@ File: gawk.info, Node: Assigning Elements, Next: Array Example, Prev: Referen
Assigning Array Elements
========================
- Array elements are lvalues: they can be assigned values just like
-`awk' variables:
+ Array elements can be assigned values just like `awk' variables:
ARRAY[SUBSCRIPT] = VALUE
-Here ARRAY is the name of your array. The expression SUBSCRIPT is the
-index of the element of the array that you want to assign a value. The
-expression VALUE is the value you are assigning to that element of the
-array.
+ARRAY is the name of an array. The expression SUBSCRIPT is the index
+of the element of the array that is assigned a value. The expression
+VALUE is the value to assign to that element of the array.

File: gawk.info, Node: Array Example, Next: Scanning an Array, Prev: Assigning Elements, Up: Arrays
@@ -7253,12 +8263,12 @@ Basic Array Example
The following program takes a list of lines, each beginning with a
line number, and prints them out in order of line number. The line
-numbers are not in order, however, when they are first read: they are
+numbers are not in order when they are first read--instead they are
scrambled. This program sorts the lines by making an array using the
-line numbers as subscripts. It then prints out the lines in sorted
-order of their numbers. It is a very simple program, and gets confused
-if it encounters repeated numbers, gaps, or lines that don't begin with
-a number.
+line numbers as subscripts. The program then prints out the lines in
+sorted order of their numbers. It is a very simple program and gets
+confused upon encountering repeated numbers, gaps, or lines that don't
+begin with a number:
{
if ($1 > max)
@@ -7273,12 +8283,9 @@ a number.
The first rule keeps track of the largest line number seen so far;
it also stores each line into the array `arr', at an index that is the
-line's number.
-
- The second rule runs after all the input has been read, to print out
-all the lines.
-
- When this program is run with the following input:
+line's number. The second rule runs after all the input has been read,
+to print out all the lines. When this program is run with the
+following input:
5 I am the Five man
2 Who are you? The new number two!
@@ -7286,7 +8293,7 @@ all the lines.
1 Who is number one?
3 I three you.
-its output is this:
+its output is:
1 Who is number one?
2 Who are you? The new number two!
@@ -7295,10 +8302,8 @@ its output is this:
5 I am the Five man
If a line number is repeated, the last line with a given number
-overrides the others.
-
- Gaps in the line numbers can be handled with an easy improvement to
-the program's `END' rule:
+overrides the others. Gaps in the line numbers can be handled with an
+easy improvement to the program's `END' rule, as follows:
END {
for (x = 1; x <= max; x++)
@@ -7312,36 +8317,36 @@ File: gawk.info, Node: Scanning an Array, Next: Delete, Prev: Array Example,
Scanning All Elements of an Array
=================================
- In programs that use arrays, you often need a loop that executes
-once for each element of an array. In other languages, where arrays are
-contiguous and indices are limited to positive integers, this is easy:
-you can find all the valid indices by counting from the lowest index up
-to the highest. This technique won't do the job in `awk', since any
-number or string can be an array index. So `awk' has a special kind of
-`for' statement for scanning an array:
+ In programs that use arrays, it is often necessary to use a loop that
+executes once for each element of an array. In other languages, where
+arrays are contiguous and indices are limited to positive integers,
+this is easy: all the valid indices can be found by counting from the
+lowest index up to the highest. This technique won't do the job in
+`awk', because any number or string can be an array index. So `awk'
+has a special kind of `for' statement for scanning an array:
for (VAR in ARRAY)
BODY
-This loop executes BODY once for each index in ARRAY that your program
+This loop executes BODY once for each index in ARRAY that the program
has previously used, with the variable VAR set to that index.
- Here is a program that uses this form of the `for' statement. The
+ The following program uses this form of the `for' statement. The
first rule scans the input records and notes which words appear (at
least once) in the input, by storing a one into the array `used' with
the word as index. The second rule scans the elements of `used' to
find all the distinct words that appear in the input. It prints each
-word that is more than 10 characters long, and also prints the number of
-such words. *Note Built-in Functions for String Manipulation: String
-Functions, for more information on the built-in function `length'.
+word that is more than 10 characters long and also prints the number of
+such words. *Note String Manipulation Functions: String Functions, for
+more information on the built-in function `length'.
- # Record a 1 for each word that is used at least once.
+ # Record a 1 for each word that is used at least once
{
for (i = 1; i <= NF; i++)
used[$i] = 1
}
- # Find number of distinct words more than 10 characters long.
+ # Find number of distinct words more than 10 characters long
END {
for (x in used)
if (length(x) > 10) {
@@ -7358,7 +8363,7 @@ example of this type.
statement is determined by the internal arrangement of the array
elements within `awk' and cannot be controlled or changed. This can
lead to problems if new elements are added to ARRAY by statements in
-the loop body; you cannot predict whether or not the `for' loop will
+the loop body; it is not predictable whether or not the `for' loop will
reach them. Similarly, changing VAR inside the loop may produce
strange results. It is best to avoid such things.
@@ -7368,83 +8373,84 @@ File: gawk.info, Node: Delete, Next: Numeric Array Subscripts, Prev: Scanning
The `delete' Statement
======================
- You can remove an individual element of an array using the `delete'
+ To remove an individual element of an array, use the `delete'
statement:
delete ARRAY[INDEX]
- Once you have deleted an array element, you can no longer obtain any
-value the element once had. It is as if you had never referred to it
-and had never given it any value.
-
- Here is an example of deleting elements in an array:
+ Once an array element has been deleted, any value the element once
+had is no longer available. It is as if the element had never been
+referred to or had been given a value. The following is an example of
+deleting elements in an array:
for (i in frequencies)
delete frequencies[i]
This example removes all the elements from the array `frequencies'.
-
- If you delete an element, a subsequent `for' statement to scan the
-array will not report that element, and the `in' operator to check for
-the presence of that element will return zero (i.e. false):
+Once an element is deleted, a subsequent `for' statement to scan the
+array does not report that element and the `in' operator to check for
+the presence of that element returns zero (i.e., false):
delete foo[4]
if (4 in foo)
print "This will never be printed"
It is important to note that deleting an element is _not_ the same
-as assigning it a null value (the empty string, `""').
+as assigning it a null value (the empty string, `""'). For example:
foo[4] = ""
if (4 in foo)
print "This is printed, even though foo[4] is empty"
- It is not an error to delete an element that does not exist.
+ It is not an error to delete an element that does not exist. If
+`--lint' is provided on the command line (*note Command-Line Options:
+Options.), `gawk' issues a warning message when an element that is not
+in the array is deleted.
- You can delete all the elements of an array with a single statement,
-by leaving off the subscript in the `delete' statement.
+ All the elements of an array may be deleted with a single statement
+by leaving off the subscript in the `delete' statement, as follows:
delete ARRAY
This ability is a `gawk' extension; it is not available in
-compatibility mode (*note Command Line Options: Options.).
+compatibility mode (*note Command-Line Options: Options.).
Using this version of the `delete' statement is about three times
more efficient than the equivalent loop that deletes each element one
at a time.
- The following statement provides a portable, but non-obvious way to
-clear out an array.
+ The following statement provides a portable but non-obvious way to
+clear out an array:(1)
- # thanks to Michael Brennan for pointing this out
split("", array)
- The `split' function (*note Built-in Functions for String
-Manipulation: String Functions.) clears out the target array first.
-This call asks it to split apart the null string. Since there is no
-data to split out, the function simply clears the array and then
-returns.
+ The `split' function (*note String Manipulation Functions: String
+Functions.) clears out the target array first. This call asks it to
+split apart the null string. Because there is no data to split out, the
+function simply clears the array and then returns.
*Caution:* Deleting an array does not change its type; you cannot
-delete an array and then use the array's name as a scalar. For example,
-this will not work:
+delete an array and then use the array's name as a scalar (i.e., a
+regular variable). For example, the following does not work:
a[1] = 3; delete a; a = 3
+ ---------- Footnotes ----------
+
+ (1) Thanks to Michael Brennan for pointing this out.
+

File: gawk.info, Node: Numeric Array Subscripts, Next: Uninitialized Subscripts, Prev: Delete, Up: Arrays
Using Numbers to Subscript Arrays
=================================
- An important aspect of arrays to remember is that _array subscripts
-are always strings_. If you use a numeric value as a subscript, it
-will be converted to a string value before it is used for subscripting
-(*note Conversion of Strings and Numbers: Conversion.).
-
- This means that the value of the built-in variable `CONVFMT' can
-potentially affect how your program accesses elements of an array. For
-example:
+ An important aspect about arrays to remember is that _array
+subscripts are always strings_. When a numeric value is used as a
+subscript, it is converted to a string value before being used for
+subscripting (*note Conversion of Strings and Numbers: Conversion.).
+This means that the value of the built-in variable `CONVFMT' can affect
+how your program accesses elements of an array. For example:
xyz = 12.153
data[xyz] = 1
@@ -7457,26 +8463,32 @@ example:
This prints `12.15 is not in data'. The first statement gives `xyz' a
numeric value. Assigning to `data[xyz]' subscripts `data' with the
string value `"12.153"' (using the default conversion value of
-`CONVFMT', `"%.6g"'), and assigns one to `data["12.153"]'. The program
-then changes the value of `CONVFMT'. The test `(xyz in data)'
-generates a new string value from `xyz', this time `"12.15"', since the
-value of `CONVFMT' only allows two significant digits. This test fails,
-since `"12.15"' is a different string from `"12.153"'.
+`CONVFMT', `"%.6g"'). Thus, the array element `data["12.153"]' is
+assigned the value one. The program then changes the value of
+`CONVFMT'. The test `(xyz in data)' generates a new string value from
+`xyz'--this time `"12.15"'--because the value of `CONVFMT' only allows
+two significant digits. This test fails, since `"12.15"' is a
+different string from `"12.153"'.
According to the rules for conversions (*note Conversion of Strings
and Numbers: Conversion.), integer values are always converted to
strings as integers, no matter what the value of `CONVFMT' may happen
-to be. So the usual case of:
+to be. So the usual case of the following works:
for (i = 1; i <= maxsub; i++)
do something with array[i]
-will work, no matter what the value of `CONVFMT'.
+ The "integer values always convert to strings as integers" rule has
+an additional consequence for array indexing. Octal and hexadecimal
+constants (*note Octal and Hexadecimal Numbers: Non-decimal-numbers.)
+are converted internally into numbers and their original form is
+forgotten. This means, for example, that `array[17]', `array[021]', and
+`array[0x11]' all refer to the same element!
- Like many things in `awk', the majority of the time things work as
-you would expect them to work. But it is useful to have a precise
-knowledge of the actual rules, since sometimes they can have a subtle
-effect on your programs.
+ As with many things in `awk', the majority of the time things work
+as one would expect them to. But it is useful to have a precise
+knowledge of the actual rules which sometimes can have a subtle effect
+on your programs.

File: gawk.info, Node: Uninitialized Subscripts, Next: Multi-dimensional, Prev: Numeric Array Subscripts, Up: Arrays
@@ -7484,9 +8496,9 @@ File: gawk.info, Node: Uninitialized Subscripts, Next: Multi-dimensional, Pre
Using Uninitialized Variables as Subscripts
===========================================
- Suppose you want to print your input data in reverse order. A
-reasonable attempt at a program to do so (with some test data) might
-look like this:
+ Suppose it's necessary to write a program to print the input data in
+reverse order. A reasonable attempt to do so (with some test data)
+might look like this:
$ echo 'line 1
> line 2
@@ -7505,11 +8517,10 @@ the output!
`lines' is uninitialized, and uninitialized variables have the numeric
value zero. So, `awk' should have printed the value of `l[0]'.
- The issue here is that subscripts for `awk' arrays are *always*
-strings. And uninitialized variables, when used as strings, have the
-value `""', not zero. Thus, `line 1' ended up stored in `l[""]'.
-
- The following version of the program works correctly:
+ The issue here is that subscripts for `awk' arrays are _always_
+strings. Uninitialized variables, when used as strings, have the value
+`""', not zero. Thus, `line 1' ends up stored in `l[""]'. The
+following version of the program works correctly:
{ l[lines++] = $0 }
END {
@@ -7518,37 +8529,37 @@ value `""', not zero. Thus, `line 1' ended up stored in `l[""]'.
}
Here, the `++' forces `lines' to be numeric, thus making the "old
-value" numeric zero, which is then converted to `"0"' as the array
+value" numeric zero. This is then converted to `"0"' as the array
subscript.
- As we have just seen, even though it is somewhat unusual, the null
-string (`""') is a valid array subscript (d.c.). If `--lint' is provided
-on the command line (*note Command Line Options: Options.), `gawk' will
-warn about the use of the null string as a subscript.
+ Even though it is somewhat unusual, the null string (`""') is a
+valid array subscript. (d.c.) `gawk' warns about the use of the null
+string as a subscript if `--lint' is provided on the command line
+(*note Command-Line Options: Options.).

File: gawk.info, Node: Multi-dimensional, Next: Multi-scanning, Prev: Uninitialized Subscripts, Up: Arrays
-Multi-dimensional Arrays
-========================
+Multidimensional Arrays
+=======================
- A multi-dimensional array is an array in which an element is
-identified by a sequence of indices, instead of a single index. For
+ A multidimensional array is an array in which an element is
+identified by a sequence of indices instead of a single index. For
example, a two-dimensional array requires two indices. The usual way
(in most languages, including `awk') to refer to an element of a
two-dimensional array named `grid' is with `grid[X,Y]'.
- Multi-dimensional arrays are supported in `awk' through
-concatenation of indices into one string. What happens is that `awk'
-converts the indices into strings (*note Conversion of Strings and
-Numbers: Conversion.) and concatenates them together, with a separator
-between them. This creates a single string that describes the values
-of the separate indices. The combined string is used as a single index
-into an ordinary, one-dimensional array. The separator used is the
-value of the built-in variable `SUBSEP'.
+ Multidimensional arrays are supported in `awk' through concatenation
+of indices into one string. `awk' converts the indices into strings
+(*note Conversion of Strings and Numbers: Conversion.) and concatenates
+them together, with a separator between them. This creates a single
+string that describes the values of the separate indices. The combined
+string is used as a single index into an ordinary, one-dimensional
+array. The separator used is the value of the built-in variable
+`SUBSEP'.
For example, suppose we evaluate the expression `foo[5,12] = "value"'
-when the value of `SUBSEP' is `"@"'. The numbers five and 12 are
+when the value of `SUBSEP' is `"@"'. The numbers 5 and 12 are
converted to strings and concatenated with an `@' between them,
yielding `"5@12"'; thus, the array element `foo["5@12"]' is set to
`"value"'.
@@ -7559,19 +8570,17 @@ expressions `foo[5,12]' and `foo[5 SUBSEP 12]' are always equivalent.
The default value of `SUBSEP' is the string `"\034"', which contains
a non-printing character that is unlikely to appear in an `awk' program
-or in most input data.
-
- The usefulness of choosing an unlikely character comes from the fact
-that index values that contain a string matching `SUBSEP' lead to
-combined strings that are ambiguous. Suppose that `SUBSEP' were `"@"';
-then `foo["a@b", "c"]' and `foo["a", "b@c"]' would be indistinguishable
-because both would actually be stored as `foo["a@b@c"]'.
-
- You can test whether a particular index-sequence exists in a
-"multi-dimensional" array with the same operator `in' used for single
-dimensional arrays. Instead of a single index as the left-hand operand,
-write the whole sequence of indices, separated by commas, in
-parentheses:
+or in most input data. The usefulness of choosing an unlikely
+character comes from the fact that index values that contain a string
+matching `SUBSEP' can lead to combined strings that are ambiguous.
+Suppose that `SUBSEP' is `"@"'; then `foo["a@b", "c"]' and
+`foo["a", "b@c"]' are indistinguishable because both are actually
+stored as `foo["a@b@c"]'.
+
+ To test whether a particular index sequence exists in a
+"multidimensional" array, use the same operator (`in') that is used for
+single dimensional arrays. Write the whole sequence of indices in
+parentheses, separated by commas, as the left operand:
(SUBSCRIPT1, SUBSCRIPT2, ...) in ARRAY
@@ -7579,7 +8588,7 @@ parentheses:
fields; it rotates this array 90 degrees clockwise and prints the
result. It assumes that all lines have the same number of elements.
- awk '{
+ {
if (max_nf < NF)
max_nf = NF
max_nr = NR
@@ -7593,7 +8602,7 @@ result. It assumes that all lines have the same number of elements.
printf("%s ", vector[x, y])
printf("\n")
}
- }'
+ }
When given the input:
@@ -7602,7 +8611,7 @@ When given the input:
3 4 5 6 1 2
4 5 6 1 2 3
-it produces:
+the program produces the following output:
4 3 2 1
5 4 3 2
@@ -7612,85 +8621,146 @@ it produces:
3 2 1 6

-File: gawk.info, Node: Multi-scanning, Next: Array Efficiency, Prev: Multi-dimensional, Up: Arrays
+File: gawk.info, Node: Multi-scanning, Next: Array Sorting, Prev: Multi-dimensional, Up: Arrays
-Scanning Multi-dimensional Arrays
-=================================
+Scanning Multidimensional Arrays
+================================
There is no special `for' statement for scanning a
-"multi-dimensional" array; there cannot be one, because in truth there
-are no multi-dimensional arrays or elements; there is only a
-multi-dimensional _way of accessing_ an array.
+"multidimensional" array. There cannot be one, because in truth there
+are no multidimensional arrays or elements--there is only a
+multidimensional _way of accessing_ an array.
However, if your program has an array that is always accessed as
-multi-dimensional, you can get the effect of scanning it by combining
+multidimensional, you can get the effect of scanning it by combining
the scanning `for' statement (*note Scanning All Elements of an Array:
-Scanning an Array.) with the `split' built-in function (*note Built-in
-Functions for String Manipulation: String Functions.). It works like
-this:
+Scanning an Array.) with the built-in `split' function (*note String
+Manipulation Functions: String Functions.). It works in the following
+manner:
for (combined in array) {
- split(combined, separate, SUBSEP)
- ...
+ split(combined, separate, SUBSEP)
+ ...
}
-This sets `combined' to each concatenated, combined index in the array,
-and splits it into the individual indices by breaking it apart where
-the value of `SUBSEP' appears. The split-out indices become the
-elements of the array `separate'.
+This sets the variable `combined' to each concatenated combined index
+in the array, and splits it into the individual indices by breaking it
+apart where the value of `SUBSEP' appears. The individual indices then
+become the elements of the array `separate'.
- Thus, suppose you have previously stored a value in `array[1,
-"foo"]'; then an element with index `"1\034foo"' exists in `array'.
-(Recall that the default value of `SUBSEP' is the character with code
-034.) Sooner or later the `for' statement will find that index and do
-an iteration with `combined' set to `"1\034foo"'. Then the `split'
-function is called as follows:
+ Thus, if a value is previously stored in `array[1, "foo"]'; then an
+element with index `"1\034foo"' exists in `array'. (Recall that the
+default value of `SUBSEP' is the character with code 034.) Sooner or
+later, the `for' statement finds that index and does an iteration with
+the variable `combined' set to `"1\034foo"'. Then the `split' function
+is called as follows:
split("1\034foo", separate, "\034")
-The result of this is to set `separate[1]' to `"1"' and `separate[2]'
-to `"foo"'. Presto, the original sequence of separate indices has been
+The result is to set `separate[1]' to `"1"' and `separate[2]' to
+`"foo"'. Presto! The original sequence of separate indices is
recovered.

-File: gawk.info, Node: Array Efficiency, Prev: Multi-scanning, Up: Arrays
+File: gawk.info, Node: Array Sorting, Prev: Multi-scanning, Up: Arrays
-Using Array Memory Efficiently
-==============================
+Sorting Array Values and Indices with `gawk'
+============================================
- This section applies just to `gawk'.
+ The order in which an array is scanned with a `for (i in array)'
+loop is essentially arbitrary. In most `awk' implementations, sorting
+an array requires writing a `sort' function. While this can be
+educational for exploring different sorting algorithms, usually that's
+not the point of the program. `gawk' provides the built-in `asort'
+function (*note String Manipulation Functions: String Functions.) that
+sorts an array. For example:
+
+ POPULATE THE ARRAY data
+ n = asort(data)
+ for (i = 1; i <= n; i++)
+ DO SOMETHING WITH data[i]
+
+ After the call to `asort', the array `data' is indexed from 1 to
+some number N, the total number of elements in `data'. (This count is
+`asort''s return value.) `data[1]' <= `data[2]' <= `data[3]', and so
+on. The comparison of array elements is done using `gawk''s usual
+comparison rules (*note Variable Typing and Comparison Expressions:
+Typing and Comparison.).
+
+ An important side effect of calling `asort' is that _the array's
+original indices are irrevocably lost_. As this isn't always
+desirable, `asort' accepts a second argument:
+
+ POPULATE THE ARRAY source
+ n = asort(source, dest)
+ for (i = 1; i <= n; i++)
+ DO SOMETHING WITH dest[i]
+
+ In this case, `gawk' copies the `source' array into the `dest' array
+and then sorts `dest', destroying its indices. However, the `source'
+array is not affected.
+
+ Often, what's needed is to sort on the values of the _indices_
+instead of the values of the elements. To do this, use a helper array
+to hold the sorted index values, and then access the original array's
+elements. It works in the following way:
+
+ POPULATE THE ARRAY data
+ # copy indices
+ j = 1
+ for (i in data) {
+ ind[j] = i # index value becomes element value
+ j++
+ }
+ n = asort(ind) # index values are now sorted
+ for (i = 1; i <= n; i++)
+ DO SOMETHING WITH data[ind[i]]
- It is often useful to use the same bit of data as an index into
-multiple arrays. Due to the way `gawk' implements associative arrays,
-when you need to use input data as an index for multiple arrays, it is
-much more effecient to assign the input field to a separate variable,
-and then use that variable as the index.
+ Sorting the array by replacing the indices provides maximal
+flexibility. To traverse the elements in decreasing order, use a loop
+that goes from N down to 1, either over the elements or over the
+indices.
- {
- name = $1
- ssn = $2
- nkids = $3
- ...
- seniority[name]++ # better than seniority[$1]++
- kids[name] = nkids # better than kids[$1] = nkids
- }
+ Copying array indices and elements isn't expensive in terms of
+memory. Internally, `gawk' maintains "reference counts" to data. For
+example, when `asort' copies the first array to the second one, there
+is only one copy of the original array elements' data, even though both
+arrays use the values. Similarly, when copying the indices from `data'
+to `ind', there is only one copy of the actual index strings.
+
+ As with array subscripts, the value of `IGNORECASE' does not affect
+array sorting.
+
+
+File: gawk.info, Node: Functions, Next: Internationalization, Prev: Arrays, Up: Top
+
+Functions
+*********
- Using separate variables with mnemonic names for the input fields
-makes programs more readable, in any case. It is an eventual goal to
-make `gawk''s array indexing as efficient as possible, no matter what
-the source of the index value.
+ This major node describes `awk''s built-in functions, which fall
+into three categories: numeric, string, and I/O. `gawk' provides
+additional groups of functions to work with values that represent time,
+do bit manipulation, and to internationalize and localize programs.
+
+ Besides the built-in functions, `awk' has provisions for writing new
+functions that the rest of a program can use. The second half of this
+major node describes these "user-defined" functions.
+
+* Menu:
+
+* Built-in:: Summarizes the built-in functions.
+* User-defined:: Describes User-defined functions in detail.

-File: gawk.info, Node: Built-in, Next: User-defined, Prev: Arrays, Up: Top
+File: gawk.info, Node: Built-in, Next: User-defined, Prev: Functions, Up: Functions
Built-in Functions
-******************
+==================
- "Built-in" functions are functions that are always available for
-your `awk' program to call. This chapter defines all the built-in
-functions in `awk'; some of them are mentioned in other sections, but
-they are summarized here for your convenience. (You can also define
-new functions yourself. *Note User-defined Functions: User-defined.)
+ "Built-in" functions are always available for your `awk' program to
+call. This minor node defines all the built-in functions in `awk';
+some of these are mentioned in other sections but are summarized here
+for your convenience.
* Menu:
@@ -7698,26 +8768,27 @@ new functions yourself. *Note User-defined Functions: User-defined.)
* Numeric Functions:: Functions that work with numbers, including
`int', `sin' and `rand'.
* String Functions:: Functions for string manipulation, such as
- `split', `match', and
- `sprintf'.
+ `split', `match' and `sprintf'.
* I/O Functions:: Functions for files and shell commands.
-* Time Functions:: Functions for dealing with time stamps.
+* Time Functions:: Functions for dealing with timestamps.
+* Bitwise Functions:: Functions for bitwise operations.
+* I18N Functions:: Functions for string translation.

File: gawk.info, Node: Calling Built-in, Next: Numeric Functions, Prev: Built-in, Up: Built-in
Calling Built-in Functions
-==========================
+--------------------------
- To call a built-in function, write the name of the function followed
-by arguments in parentheses. For example, `atan2(y + z, 1)' is a call
-to the function `atan2', with two arguments.
+ To call one of `awk''s built-in functions, write the name of the
+function followed by arguments in parentheses. For example, `atan2(y +
+z, 1)' is a call to the function `atan2', and has two arguments.
Whitespace is ignored between the built-in function name and the
-open-parenthesis, but we recommend that you avoid using whitespace
+open parenthesis, and it is good practice to avoid using whitespace
there. User-defined functions do not permit whitespace in this way, and
-you will find it easier to avoid mistakes by following a simple
-convention which always works: no whitespace after a function name.
+it is easier to avoid mistakes by following a simple convention that
+always works--no whitespace after a function name.
Each built-in function accepts a certain number of arguments. In
some cases, arguments can be omitted. The defaults for omitted
@@ -7727,88 +8798,86 @@ given to built-in functions are ignored. However, in `gawk', it is a
fatal error to give extra arguments to a built-in function.
When a function is called, expressions that create the function's
-actual parameters are evaluated completely before the function call is
-performed. For example, in the code fragment:
+actual parameters are evaluated completely before the call is performed.
+For example, in the following code fragment:
i = 4
j = sqrt(i++)
-the variable `i' is set to five before `sqrt' is called with a value of
-four for its actual parameter.
-
- The order of evaluation of the expressions used for the function's
-parameters is undefined. Thus, you should not write programs that
-assume that parameters are evaluated from left to right or from right
-to left. For example,
+the variable `i' is incremented to the value five before `sqrt' is
+called with a value of four for its actual parameter. The order of
+evaluation of the expressions used for the function's parameters is
+undefined. Thus, avoid writing programs that assume that parameters
+are evaluated from left to right or from right to left. For example:
i = 5
j = atan2(i++, i *= 2)
If the order of evaluation is left to right, then `i' first becomes
-six, and then 12, and `atan2' is called with the two arguments six and
+six, and then 12, and `atan2' is called with the two arguments 6 and
12. But if the order of evaluation is right to left, `i' first becomes
-10, and then 11, and `atan2' is called with the two arguments 11 and 10.
+10, then 11, and `atan2' is called with the two arguments 11 and 10.

File: gawk.info, Node: Numeric Functions, Next: String Functions, Prev: Calling Built-in, Up: Built-in
-Numeric Built-in Functions
-==========================
+Numeric Functions
+-----------------
- Here is a full list of built-in functions that work with numbers.
-Optional parameters are enclosed in square brackets ("[" and "]").
+ The following list describes all of the built-in functions that work
+with numbers. Optional parameters are enclosed in square brackets ([
+and ]):
`int(X)'
- This produces the nearest integer to X, located between X and zero,
- truncated toward zero.
+ This returns the nearest integer to X, located between X and zero
+ and truncated toward zero.
For example, `int(3)' is three, `int(3.9)' is three, `int(-3.9)'
is -3, and `int(-3)' is -3 as well.
`sqrt(X)'
- This gives you the positive square root of X. It reports an error
- if X is negative. Thus, `sqrt(4)' is two.
+ This returns the positive square root of X. `gawk' reports an
+ error if X is negative. Thus, `sqrt(4)' is two.
`exp(X)'
- This gives you the exponential of X (`e ^ X'), or reports an error
- if X is out of range. The range of values X can have depends on
- your machine's floating point representation.
+ This returns the exponential of X (`e ^ X') or reports an error if
+ X is out of range. The range of values X can have depends on your
+ machine's floating-point representation.
`log(X)'
- This gives you the natural logarithm of X, if X is positive;
+ This returns the natural logarithm of X, if X is positive;
otherwise, it reports an error.
`sin(X)'
- This gives you the sine of X, with X in radians.
+ This returns the sine of X, with X in radians.
`cos(X)'
- This gives you the cosine of X, with X in radians.
+ This returns the cosine of X, with X in radians.
`atan2(Y, X)'
- This gives you the arctangent of `Y / X' in radians.
+ This returns the arctangent of `Y / X' in radians.
`rand()'
- This gives you a random number. The values of `rand' are
- uniformly-distributed between zero and one. The value is never
- zero and never one.
+ This returns a random number. The values of `rand' are uniformly
+ distributed between zero and one. The value is never zero and
+ never one.(1)
- Often you want random integers instead. Here is a user-defined
- function you can use to obtain a random non-negative integer less
- than N:
+ Often random integers are needed instead. Following is a
+ user-defined function that can be used to obtain a random
+ non-negative integer less than N:
function randint(n) {
return int(n * rand())
}
The multiplication produces a random number greater than zero and
- less than `n'. We then make it an integer (using `int') between
- zero and `n' - 1, inclusive.
+ less than `n'. Using `int', this result is made into an integer
+ between zero and `n' - 1, inclusive.
- Here is an example where a similar function is used to produce
- random integers between one and N. This program prints a new
- random number for each input record.
+ The following example uses a similar function to produce random
+ integers between one and N. This program prints a new random
+ number for each input record.
- awk '
# Function to roll a simulated die.
function roll(n) { return 1 + int(rand() * n) }
@@ -7817,37 +8886,47 @@ Optional parameters are enclosed in square brackets ("[" and "]").
{
printf("%d points\n",
roll(6)+roll(6)+roll(6))
- }'
+ }
*Caution:* In most `awk' implementations, including `gawk', `rand'
starts generating numbers from the same starting number, or
- "seed", each time you run `awk'. Thus, a program will generate
- the same results each time you run it. The numbers are random
- within one `awk' run, but predictable from run to run. This is
- convenient for debugging, but if you want a program to do
- different things each time it is used, you must change the seed to
- a value that will be different in each run. To do this, use
- `srand'.
+ "seed", each time you run `awk'. Thus, a program generates the
+ same results each time you run it. The numbers are random within
+ one `awk' run but predictable from run to run. This is convenient
+ for debugging, but if you want a program to do different things
+ each time it is used, you must change the seed to a value that is
+ different in each run. To do this, use `srand'.
`srand([X])'
The function `srand' sets the starting point, or seed, for
generating random numbers to the value X.
Each seed value leads to a particular sequence of random
- numbers.(1) Thus, if you set the seed to the same value a second
- time, you will get the same sequence of random numbers again.
+ numbers.(2) Thus, if the seed is set to the same value a second
+ time, the same sequence of random numbers is produced again.
+
+ Different `awk' implementations use different random number
+ generators internally. Don't expect the same `awk' program to
+ produce the same series of random numbers when executed by
+ different versions of `awk'.
- If you omit the argument X, as in `srand()', then the current date
- and time of day are used for a seed. This is the way to get random
- numbers that are truly unpredictable.
+ If the argument X is omitted, as in `srand()', then the current
+ date and time of day are used for a seed. This is the way to get
+ random numbers that are truly unpredictable.
The return value of `srand' is the previous seed. This makes it
- easy to keep track of the seeds for use in consistently reproducing
- sequences of random numbers.
+ easy to keep track of the seeds in case you need to consistently
+ reproduce sequences of random numbers.
---------- Footnotes ----------
- (1) Computer generated random numbers really are not truly random.
+ (1) The C version of `rand' is known to produce fairly poor
+sequences of random numbers. However, nothing requires that an `awk'
+implementation use the C `rand' to implement the `awk' version of
+`rand'. In fact, `gawk' uses the BSD `random' function, which is
+considerably better than `rand', to produce random numbers.
+
+ (2) Computer generated random numbers really are not truly random.
They are technically known as "pseudo-random." This means that while
the numbers in a sequence appear to be random, you can in fact generate
the same sequence of random numbers over and over again.
@@ -7855,17 +8934,53 @@ the same sequence of random numbers over and over again.

File: gawk.info, Node: String Functions, Next: I/O Functions, Prev: Numeric Functions, Up: Built-in
-Built-in Functions for String Manipulation
-==========================================
+String Manipulation Functions
+-----------------------------
+
+ The functions in this minor node look at or change the text of one
+or more strings. Optional parameters are enclosed in square brackets
+([ and ]). Those functions that are specific to `gawk' are marked with
+a pound sign (`#'):
+
+* Menu:
+
+* Gory Details:: More than you want to know about `\' and
+ `&' with `sub', `gsub', and
+ `gensub'.
- The functions in this section look at or change the text of one or
-more strings. Optional parameters are enclosed in square brackets ("["
-and "]").
+`asort(SOURCE [, DEST]) #'
+ `asort' is a `gawk'-specific extension, returning the number of
+ elements in the array SOURCE. The contents of SOURCE are sorted
+ using `gawk''s normal rules for comparing values, and the indices
+ of the sorted values of SOURCE are replaced with sequential
+ integers starting with one. If the optional array DEST is
+ specified, then SOURCE is duplicated into DEST. DEST is then
+ sorted, leaving the indices of SOURCE unchanged. For example, if
+ the contents of `a' are as follows:
+
+ a["last"] = "de"
+ a["first"] = "sac"
+ a["middle"] = "cul"
+
+ A call to `asort':
+
+ asort(a)
+
+ results in the following contents of `a':
+
+ a[1] = "cul"
+ a[2] = "de"
+ a[3] = "sac"
+
+ The `asort' function is described in more detail in *Note Sorting
+ Array Values and Indices with `gawk': Array Sorting. `asort' is a
+ `gawk' extension; it is not available in compatibility mode (*note
+ Command-Line Options: Options.).
`index(IN, FIND)'
This searches the string IN for the first occurrence of the string
FIND, and returns the position in characters where that occurrence
- begins in the string IN. For example:
+ begins in the string IN. Consider the following example:
$ awk 'BEGIN { print index("peanut", "an") }'
-| 3
@@ -7874,29 +8989,33 @@ and "]").
indices in `awk' start at one.)
`length([STRING])'
- This gives you the number of characters in STRING. If STRING is a
+ This returns the number of characters in STRING. If STRING is a
number, the length of the digit string representing that number is
- returned. For example, `length("abcde")' is five. By contrast,
- `length(15 * 35)' works out to three. How? Well, 15 * 35 = 525,
+ returned. For example, `length("abcde")' is 5. By contrast,
+ `length(15 * 35)' works out to 3. In this example, 15 * 35 = 525,
and 525 is then converted to the string `"525"', which has three
characters.
If no argument is supplied, `length' returns the length of `$0'.
- In older versions of `awk', you could call the `length' function
- without any parentheses. Doing so is marked as "deprecated" in the
- POSIX standard. This means that while you can do this in your
- programs, it is a feature that can eventually be removed from a
- future version of the standard. Therefore, for maximal
- portability of your `awk' programs, you should always supply the
- parentheses.
-
-`match(STRING, REGEXP)'
- The `match' function searches the string, STRING, for the longest,
- leftmost substring matched by the regular expression, REGEXP. It
- returns the character position, or "index", of where that
- substring begins (one, if it starts at the beginning of STRING).
- If no match is found, it returns zero.
+ *Note:* In older versions of `awk', the `length' function could be
+ called without any parentheses. Doing so is marked as
+ "deprecated" in the POSIX standard. This means that while a
+ program can do this, it is a feature that can eventually be
+ removed from a future version of the standard. Therefore, for
+ programs to be maximally portable, always supply the parentheses.
+
+`match(STRING, REGEXP [, ARRAY])'
+ The `match' function searches STRING for the longest leftmost
+ substring matched by the regular expression, REGEXP. It returns
+ the character position, or "index", where that substring begins
+ (one, if it starts at the beginning of STRING). If no match is
+ found, it returns zero.
+
+ The order of the first two arguments is backwards from most other
+ string functions that work with regular expressions, such as `sub'
+ and `gsub'. It might help to remember that for `match', the order
+ is the same as for the `~' operator: `STRING ~ REGEXP'.
The `match' function sets the built-in variable `RSTART' to the
index. It also sets the built-in variable `RLENGTH' to the length
@@ -7905,21 +9024,21 @@ and "]").
For example:
- awk '{
+ {
if ($1 == "FIND")
regex = $2
else {
where = match($0, regex)
if (where != 0)
- print "Match of", regex, "found at", \
+ print "Match of", regex, "found at",
where, "in", $0
}
- }'
+ }
This program looks for lines that match the regular expression
stored in the variable `regex'. This regular expression can be
changed. If the first word on a line is `FIND', `regex' is
- changed to be the second word on that line. Therefore, given:
+ changed to be the second word on that line. Therefore, if given:
FIND ru+n
My program runs
@@ -7934,14 +9053,31 @@ and "]").
Match of ru+n found at 12 in My program runs
Match of Melvin found at 1 in Melvin was here.
+ If ARRAY is present, it is cleared, and then the 0'th element of
+ ARRAY is set to the entire portion of STRING matched by REGEXP.
+ If REGEXP contains parentheses, the integer-indexed elements of
+ ARRAY are set to contain the portion of STRING matching the
+ corresponding parenthesized sub-expression. For example:
+
+ $ echo foooobazbarrrrr |
+ > gawk '{ match($0, /(fo+).+(ba*r)/, arr)
+ > print arr[1], arr[2] }'
+ -| foooo barrrrr
+
+ The ARRAY argument to `match' is a `gawk' extension. In
+ compatibility mode (*note Command-Line Options: Options.), using a
+ third argument is a fatal error.
+
`split(STRING, ARRAY [, FIELDSEP])'
- This divides STRING into pieces separated by FIELDSEP, and stores
- the pieces in ARRAY. The first piece is stored in `ARRAY[1]', the
- second piece in `ARRAY[2]', and so forth. The string value of the
- third argument, FIELDSEP, is a regexp describing where to split
- STRING (much as `FS' can be a regexp describing where to split
- input records). If the FIELDSEP is omitted, the value of `FS' is
- used. `split' returns the number of elements created.
+ This function divides STRING into pieces separated by FIELDSEP,
+ and stores the pieces in ARRAY. The first piece is stored in
+ `ARRAY[1]', the second piece in `ARRAY[2]', and so forth. The
+ string value of the third argument, FIELDSEP, is a regexp
+ describing where to split STRING (much as `FS' can be a regexp
+ describing where to split input records). If the FIELDSEP is
+ omitted, the value of `FS' is used. `split' returns the number of
+ elements created. If STRING does not match FIELDSEP, ARRAY is
+ empty and `split' returns zero.
The `split' function splits strings into pieces in a manner
similar to the way input lines are split into fields. For example:
@@ -7958,53 +9094,65 @@ and "]").
The value returned by this call to `split' is three.
As with input field-splitting, when the value of FIELDSEP is
- `" "', leading and trailing whitespace is ignored, and the elements
- are separated by runs of whitespace.
-
- Also as with input field-splitting, if FIELDSEP is the null
- string, each individual character in the string is split into its
- own array element. (This is a `gawk'-specific extension.)
+ `" "', leading and trailing whitespace is ignored and the elements
+ are separated by runs of whitespace. Also as with input
+ field-splitting, if FIELDSEP is the null string, each individual
+ character in the string is split into its own array element.
+ (This is a `gawk'-specific extension.)
- Recent implementations of `awk', including `gawk', allow the third
- argument to be a regexp constant (`/abc/'), as well as a string
- (d.c.). The POSIX standard allows this as well.
+ Modern implementations of `awk', including `gawk', allow the third
+ argument to be a regexp constant (`/abc/') as well as a string.
+ (d.c.) The POSIX standard allows this as well.
Before splitting the string, `split' deletes any previously
- existing elements in the array ARRAY (d.c.).
+ existing elements in the array ARRAY. If STRING does not match
+ FIELDSEP at all, ARRAY has one element only. The value of that
+ element is the original STRING.
- If STRING does not match FIELDSEP at all, ARRAY will have one
- element. The value of that element will be the original STRING.
-
-`sprintf(FORMAT, EXPRESSION1,...)'
+`sprintf(FORMAT, EXPRESSION1, ...)'
This returns (without printing) the string that `printf' would
have printed out with the same arguments (*note Using `printf'
Statements for Fancier Printing: Printf.). For example:
- sprintf("pi = %.2f (approx.)", 22/7)
+ pival = sprintf("pi = %.2f (approx.)", 22/7)
+
+ assigns the string `"pi = 3.14 (approx.)"' to the variable `pival'.
+
+`strtonum(STR) #'
+ Examines STR and returns its numeric value. If STR begins with a
+ leading `0', `strtonum' assumes that STR is an octal number. If
+ STR begins with a leading `0x' or `0X', `strtonum' assumes that
+ STR is a hexadecimal number. For example:
- returns the string `"pi = 3.14 (approx.)"'.
+ $ echo 0x11 |
+ > gawk '{ printf "%d\n", strtonum($1) }'
+ -| 17
+
+ Using the `strtonum' function is _not_ the same as adding zero to
+ a string value; the automatic coercion of strings to numbers works
+ only for decimal data, not for octal or hexadecimal.(1)
+
+ `strtonum' is a `gawk' extension; it is not available in
+ compatibility mode (*note Command-Line Options: Options.).
`sub(REGEXP, REPLACEMENT [, TARGET])'
The `sub' function alters the value of TARGET. It searches this
value, which is treated as a string, for the leftmost longest
- substring matched by the regular expression, REGEXP, extending
- this match as far as possible. Then the entire string is changed
- by replacing the matched text with REPLACEMENT. The modified
- string becomes the new value of TARGET.
+ substring matched by the regular expression REGEXP. Then the
+ entire string is changed by replacing the matched text with
+ REPLACEMENT. The modified string becomes the new value of TARGET.
This function is peculiar because TARGET is not simply used to
- compute a value, and not just any expression will do: it must be a
- variable, field or array element, so that `sub' can store a
+ compute a value, and not just any expression will do--it must be a
+ variable, field, or array element so that `sub' can store a
modified value there. If this argument is omitted, then the
- default is to use and alter `$0'.
-
- For example:
+ default is to use and alter `$0'. For example:
str = "water, water, everywhere"
sub(/at/, "ith", str)
sets `str' to `"wither, water, everywhere"', by replacing the
- leftmost, longest occurrence of `at' with `ith'.
+ leftmost longest occurrence of `at' with `ith'.
The `sub' function returns the number of substitutions made (either
one or zero).
@@ -8014,21 +9162,19 @@ and "]").
can match more than one string, then this precise substring may
vary.) For example:
- awk '{ sub(/candidate/, "& and his wife"); print }'
+ { sub(/candidate/, "& and his wife"); print }
changes the first occurrence of `candidate' to `candidate and his
- wife' on each input line.
+ wife' on each input line. Here is another example:
- Here is another example:
-
- awk 'BEGIN {
- str = "daabaaa"
- sub(/a+/, "C&C", str)
- print str
- }'
+ $ awk 'BEGIN {
+ > str = "daabaaa"
+ > sub(/a+/, "C&C", str)
+ > print str
+ > }'
-| dCaaCbaaa
- This shows how `&' can represent a non-constant string, and also
+ This shows how `&' can represent a non-constant string and also
illustrates the "leftmost, longest" rule in regexp matching (*note
How Much Text Matches?: Leftmost Longest.).
@@ -8036,28 +9182,28 @@ and "]").
putting a backslash before it in the string. As usual, to insert
one backslash in the string, you must write two backslashes.
Therefore, write `\\&' in a string constant to include a literal
- `&' in the replacement. For example, here is how to replace the
- first `|' on each line with an `&':
+ `&' in the replacement. For example, following is shown how to
+ replace the first `|' on each line with an `&':
- awk '{ sub(/\|/, "\\&"); print }'
+ { sub(/\|/, "\\&"); print }
- *Note:* As mentioned above, the third argument to `sub' must be a
- variable, field or array reference. Some versions of `awk' allow
- the third argument to be an expression which is not an lvalue. In
- such a case, `sub' would still search for the pattern and return
- zero or one, but the result of the substitution (if any) would be
- thrown away because there is no place to put it. Such versions of
- `awk' accept expressions like this:
+ As mentioned, the third argument to `sub' must be a variable,
+ field or array reference. Some versions of `awk' allow the third
+ argument to be an expression that is not an lvalue. In such a
+ case, `sub' still searches for the pattern and returns zero or
+ one, but the result of the substitution (if any) is thrown away
+ because there is no place to put it. Such versions of `awk'
+ accept expressions such as the following:
sub(/USA/, "United States", "the USA and Canada")
- For historical compatibility, `gawk' will accept erroneous code,
- such as in the above example. However, using any other
- non-changeable object as the third parameter will cause a fatal
- error, and your program will not run.
+ For historical compatibility, `gawk' accepts erroneous code, such
+ as in the previous example. However, using any other non-changeable
+ object as the third parameter causes a fatal error and your program
+ will not run.
Finally, if the REGEXP is not a regexp constant, it is converted
- into a string and then the value of that string is treated as the
+ into a string, and then the value of that string is treated as the
regexp to match.
`gsub(REGEXP, REPLACEMENT [, TARGET])'
@@ -8066,34 +9212,32 @@ and "]").
substrings it can find. The `g' in `gsub' stands for "global,"
which means replace everywhere. For example:
- awk '{ gsub(/Britain/, "United Kingdom"); print }'
+ { gsub(/Britain/, "United Kingdom"); print }
replaces all occurrences of the string `Britain' with `United
Kingdom' for all input records.
The `gsub' function returns the number of substitutions made. If
- the variable to be searched and altered, TARGET, is omitted, then
- the entire input record, `$0', is used.
+ the variable to search and alter (TARGET) is omitted, then the
+ entire input record (`$0') is used. As in `sub', the characters
+ `&' and `\' are special, and the third argument must be assignable.
- As in `sub', the characters `&' and `\' are special, and the third
- argument must be an lvalue.
-
-`gensub(REGEXP, REPLACEMENT, HOW [, TARGET])'
+`gensub(REGEXP, REPLACEMENT, HOW [, TARGET]) #'
`gensub' is a general substitution function. Like `sub' and
`gsub', it searches the target string TARGET for matches of the
regular expression REGEXP. Unlike `sub' and `gsub', the modified
- string is returned as the result of the function, and the original
+ string is returned as the result of the function and the original
target string is _not_ changed. If HOW is a string beginning with
`g' or `G', then it replaces all matches of REGEXP with
- REPLACEMENT. Otherwise, HOW is a number indicating which match of
- REGEXP to replace. If no TARGET is supplied, `$0' is used instead.
+ REPLACEMENT. Otherwise, HOW is treated as a number that indicates
+ which match of REGEXP to replace. If no TARGET is supplied, `$0'
+ is used.
`gensub' provides an additional feature that is not available in
`sub' or `gsub': the ability to specify components of a regexp in
the replacement text. This is done by using parentheses in the
- regexp to mark the components, and then specifying `\N' in the
- replacement text, where N is a digit from one to nine. For
- example:
+ regexp to mark the components and then specifying `\N' in the
+ replacement text, where N is a digit from 1 to 9. For example:
$ gawk '
> BEGIN {
@@ -8103,14 +9247,14 @@ and "]").
> }'
-| def abc
- As described above for `sub', you must type two backslashes in
- order to get one into the string.
+ As with `sub', you must type two backslashes in order to get one
+ into the string.
In the replacement text, the sequence `\0' represents the entire
matched text, as does the character `&'.
- This example shows how you can use the third argument to control
- which match of the regexp should be changed.
+ The following example shows how you can use the third argument to
+ control which match of the regexp should be changed:
$ echo a b c a b c |
> gawk '{ print gensub(/a/, "AA", 2) }'
@@ -8121,19 +9265,20 @@ and "]").
`print' for printing.
If the HOW argument is a string that does not begin with `g' or
- `G', or if it is a number that is less than zero, only one
- substitution is performed.
+ `G', or if it is a number that is less than or equal to zero, only
+ one substitution is performed. If HOW is zero, `gawk' issues a
+ warning message.
If REGEXP does not match TARGET, `gensub''s return value is the
- original, unchanged value of TARGET.
+ original unchanged value of TARGET.
`gensub' is a `gawk' extension; it is not available in
- compatibility mode (*note Command Line Options: Options.).
+ compatibility mode (*note Command-Line Options: Options.).
`substr(STRING, START [, LENGTH])'
This returns a LENGTH-character-long substring of STRING, starting
at character number START. The first character of a string is
- character number one. For example, `substr("washington", 5, 3)'
+ character number one.(2) For example, `substr("washington", 5, 3)'
returns `"ing"'.
If LENGTH is not present, this function returns the whole suffix of
@@ -8142,60 +9287,80 @@ and "]").
also returned if LENGTH is greater than the number of characters
remaining in the string, counting from character number START.
- *Note:* The string returned by `substr' _cannot_ be assigned to.
- Thus, it is a mistake to attempt to change a portion of a string,
- like this:
+ The string returned by `substr' _cannot_ be assigned. Thus, it is
+ a mistake to attempt to change a portion of a string, as shown in
+ the following example:
string = "abcdef"
# try to get "abCDEf", won't work
substr(string, 3, 3) = "CDE"
- or to use `substr' as the third agument of `sub' or `gsub':
+ It is also a mistake to use `substr' as the third argument of
+ `sub' or `gsub':
gsub(/xyz/, "pdq", substr($0, 5, 20)) # WRONG
+ (Some commercial versions of `awk' do in fact let you use `substr'
+ this way, but doing so is not portable.)
+
+ If you need to replace bits and pieces of a string, combine
+ `substr' with string concatenation, in the following manner:
+
+ string = "abcdef"
+ ...
+ string = substr(string, 1, 2) "CDE" substr(string, 6)
+
`tolower(STRING)'
- This returns a copy of STRING, with each upper-case character in
- the string replaced with its corresponding lower-case character.
+ This returns a copy of STRING, with each uppercase character in
+ the string replaced with its corresponding lowercase character.
Non-alphabetic characters are left unchanged. For example,
`tolower("MiXeD cAsE 123")' returns `"mixed case 123"'.
`toupper(STRING)'
- This returns a copy of STRING, with each lower-case character in
- the string replaced with its corresponding upper-case character.
+ This returns a copy of STRING, with each lowercase character in
+ the string replaced with its corresponding uppercase character.
Non-alphabetic characters are left unchanged. For example,
`toupper("MiXeD cAsE 123")' returns `"MIXED CASE 123"'.
-More About `\' and `&' with `sub', `gsub' and `gensub'
-------------------------------------------------------
+ ---------- Footnotes ----------
+
+ (1) Unless you use the `--non-decimal-data' option, which isn't
+recommended. *Note Allowing Non-Decimal Input Data: Non-decimal Data,
+for more information.
+
+ (2) This is different from C and C++, where the first character is
+number zero.
+
+
+File: gawk.info, Node: Gory Details, Prev: String Functions, Up: String Functions
+
+More About `\' and `&' with `sub', `gsub', and `gensub'
+.......................................................
- When using `sub', `gsub' or `gensub', and trying to get literal
+ When using `sub', `gsub', or `gensub', and trying to get literal
backslashes and ampersands into the replacement text, you need to
remember that there are several levels of "escape processing" going on.
First, there is the "lexical" level, which is when `awk' reads your
-program, and builds an internal copy of your program that can be
-executed.
-
- Then there is the run-time level, when `awk' actually scans the
+program and builds an internal copy of it that can be executed. Then
+there is the runtime level, which is when `awk' actually scans the
replacement string to determine what to generate.
At both levels, `awk' looks for a defined set of characters that can
come after a backslash. At the lexical level, it looks for the escape
sequences listed in *Note Escape Sequences::. Thus, for every `\' that
-`awk' will process at the run-time level, you type two `\'s at the
+`awk' processes at the runtime level, type two backslashes at the
lexical level. When a character that is not valid for an escape
sequence follows the `\', Unix `awk' and `gawk' both simply remove the
-initial `\', and put the following character into the string. Thus, for
+initial `\' and put the next character into the string. Thus, for
example, `"a\qb"' is treated as `"aqb"'.
- At the run-time level, the various functions handle sequences of `\'
+ At the runtime level, the various functions handle sequences of `\'
and `&' differently. The situation is (sadly) somewhat complex.
-
- Historically, the `sub' and `gsub' functions treated the two
-character sequence `\&' specially; this sequence was replaced in the
-generated text with a single `&'. Any other `\' within the REPLACEMENT
-string that did not precede an `&' was passed through unchanged. To
+Historically, the `sub' and `gsub' functions treated the two character
+sequence `\&' specially; this sequence was replaced in the generated
+text with a single `&'. Any other `\' within the REPLACEMENT string
+that did not precede an `&' was passed through unchanged. To
illustrate with a table:
You type `sub' sees `sub' generates
@@ -8208,11 +9373,11 @@ illustrate with a table:
`\\\\\\&' `\\\&' a literal `\\&'
`\\q' `\q' a literal `\q'
-This table shows both the lexical level processing, where an odd number
-of backslashes becomes an even number at the run time level, and the
-run-time processing done by `sub'. (For the sake of simplicity, the
-rest of the tables below only show the case of even numbers of `\'s
-entered at the lexical level.)
+This table shows both the lexical-level processing, where an odd number
+of backslashes becomes an even number at the runtime level, as well as
+the runtime processing done by `sub'. (For the sake of simplicity, the
+rest of the tables below only show the case of even numbers of
+backslashes entered at the lexical level.)
The problem with the historical approach is that there is no way to
get a literal `\' followed by the matched text.
@@ -8220,7 +9385,7 @@ get a literal `\' followed by the matched text.
The 1992 POSIX standard attempted to fix this problem. The standard
says that `sub' and `gsub' look for either a `\' or an `&' after the
`\'. If either one follows a `\', that character is output literally.
-The interpretation of `\' and `&' then becomes like this:
+The interpretation of `\' and `&' then becomes:
You type `sub' sees `sub' generates
-------- ---------- ---------------
@@ -8229,23 +9394,23 @@ The interpretation of `\' and `&' then becomes like this:
`\\\\&' `\\&' a literal `\', then the matched text
`\\\\\\&' `\\\&' a literal `\&'
-This would appear to solve the problem. Unfortunately, the phrasing of
-the standard is unusual. It says, in effect, that `\' turns off the
-special meaning of any following character, but that for anything other
-than `\' and `&', such special meaning is undefined. This wording
-leads to two problems.
+This appears to solve the problem. Unfortunately, the phrasing of the
+standard is unusual. It says, in effect, that `\' turns off the special
+meaning of any following character, but for anything other than `\' and
+`&', such special meaning is undefined. This wording leads to two
+problems:
- 1. Backslashes must now be doubled in the REPLACEMENT string, breaking
+ * Backslashes must now be doubled in the REPLACEMENT string, breaking
historical `awk' programs.
- 2. To make sure that an `awk' program is portable, _every_ character
+ * To make sure that an `awk' program is portable, _every_ character
in the REPLACEMENT string must be preceded with a backslash.(1)
- The POSIX standard is under revision.(2) Because of the above
-problems, proposed text for the revised standard reverts to rules that
+ The POSIX standard is under revision. Because of the problems just
+listed, proposed text for the revised standard reverts to rules that
correspond more closely to the original existing practice. The proposed
rules have special cases that make it possible to produce a `\'
-preceding the matched text.
+preceding the matched text:
You type `sub' sees `sub' generates
-------- ---------- ---------------
@@ -8254,24 +9419,24 @@ preceding the matched text.
`\\&' `\&' a literal `&'
`\\q' `\q' a literal `\q'
- In a nutshell, at the run-time level, there are now three special
-sequences of characters, `\\\&', `\\&' and `\&', whereas historically,
+ In a nutshell, at the runtime level, there are now three special
+sequences of characters (`\\\&', `\\&' and `\&') whereas historically
there was only one. However, as in the historical case, any `\' that
-is not part of one of these three sequences is not special, and appears
+is not part of one of these three sequences is not special and appears
in the output literally.
- `gawk' 3.0 follows these proposed POSIX rules for `sub' and `gsub'.
-Whether these proposed rules will actually become codified into the
-standard is unknown at this point. Subsequent `gawk' releases will
-track the standard and implement whatever the final version specifies;
-this Info file will be updated as well.
+ `gawk' 3.0 and 3.1 follow these proposed POSIX rules for `sub' and
+`gsub'. Whether these proposed rules will actually become codified
+into the standard is unknown at this point. Subsequent `gawk' releases
+will track the standard and implement whatever the final version
+specifies; this Info file will be updated as well.(2)
- The rules for `gensub' are considerably simpler. At the run-time
+ The rules for `gensub' are considerably simpler. At the runtime
level, whenever `gawk' sees a `\', if the following character is a
digit, then the text that matched the corresponding parenthesized
subexpression is placed in the generated output. Otherwise, no matter
-what the character after the `\' is, that character will appear in the
-generated text, and the `\' will not.
+what the character after the `\' is, it appears in the generated text
+and the `\' does not:
You type `gensub' sees `gensub' generates
-------- ------------- ------------------
@@ -8282,69 +9447,99 @@ generated text, and the `\' will not.
`\\\\\\&' `\\\&' a literal `\&'
`\\q' `\q' a literal `q'
- Because of the complexity of the lexical and run-time level
-processing, and the special cases for `sub' and `gsub', we recommend
-the use of `gawk' and `gensub' for when you have to do substitutions.
+ Because of the complexity of the lexical and runtime level processing
+and the special cases for `sub' and `gsub', we recommend the use of
+`gawk' and `gensub' when you have to do substitutions.
+
+Advanced Notes: Matching the Null String
+----------------------------------------
+
+ In `awk', the `*' operator can match the null string. This is
+particularly important for the `sub', `gsub', and `gensub' functions.
+For example:
+
+ $ echo abc | awk '{ gsub(/m*/, "X"); print }'
+ -| XaXbXcX
+
+Although this makes a certain amount of sense, it can be surprising.
---------- Footnotes ----------
(1) This consequence was certainly unintended.
- (2) As of July, 2000, with final approval and publication as part of
-the Austin Group Standards hopefully sometime in 2001.
+ (2) As this Info file was being finalized, we learned that the POSIX
+standard will not use these rules. However, it was too late to change
+`gawk' for the 3.1 release. `gawk' behaves as described here.

File: gawk.info, Node: I/O Functions, Next: Time Functions, Prev: String Functions, Up: Built-in
-Built-in Functions for Input/Output
-===================================
-
- The following functions are related to Input/Output (I/O). Optional
-parameters are enclosed in square brackets ("[" and "]").
+Input/Output Functions
+----------------------
-`close(FILENAME)'
- Close the file FILENAME, for input or output. The argument may
- alternatively be a shell command that was used for redirecting to
- or from a pipe; then the pipe is closed. *Note Closing Input and
- Output Files and Pipes: Close Files And Pipes, for more
- information.
+ The following functions relate to Input/Output (I/O). Optional
+parameters are enclosed in square brackets ([ and ]):
+
+`close(FILENAME [, HOW])'
+ Close the file FILENAME for input or output. Alternatively, the
+ argument may be a shell command that was used for creating a
+ coprocess, or for redirecting to or from a pipe; then the
+ coprocess or pipe is closed. *Note Closing Input and Output
+ Redirections: Close Files And Pipes, for more information.
+
+ When closing a coprocess, it is occasionally useful to first close
+ one end of the two-way pipe, and then to close the other. This is
+ done by providing a second argument to `close'. This second
+ argument should be one of the two string values `"to"' or `"from"',
+ indicating which end of the pipe to close. Case in the string does
+ not matter. *Note Two-Way Communications with Another Process:
+ Two-way I/O, which discusses this feature in more detail and gives
+ an example.
`fflush([FILENAME])'
- Flush any buffered output associated FILENAME, which is either a
- file opened for writing, or a shell command for redirecting output
- to a pipe.
-
- Many utility programs will "buffer" their output; they save
- information to be written to a disk file or terminal in memory,
- until there is enough for it to be worthwhile to send the data to
- the ouput device. This is often more efficient than writing every
+ Flush any buffered output associated with FILENAME, which is
+ either a file opened for writing or a shell command for
+ redirecting output to a pipe or coprocess.
+
+ Many utility programs "buffer" their output; i.e., they save
+ information to write to a disk file or terminal in memory, until
+ there is enough for it to be worthwhile to send the data to the
+ output device. This is often more efficient than writing every
little bit of information as soon as it is ready. However,
sometimes it is necessary to force a program to "flush" its
buffers; that is, write the information to its destination, even
if a buffer is not full. This is the purpose of the `fflush'
- function; `gawk' too buffers its output, and the `fflush' function
- can be used to force `gawk' to flush its buffers.
+ function--`gawk' also buffers its output and the `fflush' function
+ forces `gawk' to flush its buffers.
- `fflush' is a recent (1994) addition to the Bell Labs research
- version of `awk'; it is not part of the POSIX standard, and will
- not be available if `--posix' has been specified on the command
- line (*note Command Line Options: Options.).
+ `fflush' was added to the Bell Laboratories research version of
+ `awk' in 1994; it is not part of the POSIX standard and is not
+ available if `--posix' has been specified on the command line
+ (*note Command-Line Options: Options.).
`gawk' extends the `fflush' function in two ways. The first is to
allow no argument at all. In this case, the buffer for the
- standard output is flushed. The second way is to allow the null
- string (`""') as the argument. In this case, the buffers for _all_
- open output files and pipes are flushed.
+ standard output is flushed. The second is to allow the null string
+ (`""') as the argument. In this case, the buffers for _all_ open
+ output files and pipes are flushed.
+
+ `fflush' returns zero if the buffer is successfully flushed;
+ otherwise it returns -1. In the case where all buffers are
+ flushed, the return value is zero only if all buffers were flushed
+ successfully. Otherwise, it is -1, and `gawk' warns about the
+ FILENAME that had the problem.
- `fflush' returns zero if the buffer was successfully flushed, and
- nonzero otherwise.
+ `gawk' also issues a warning message if you attempt to flush a
+ file or pipe that was opened for reading (such as with `getline'),
+ or if FILENAME is not an open file, pipe, or coprocess. In such a
+ case, `fflush' returns -1 as well.
`system(COMMAND)'
The `system' function allows the user to execute operating system
commands and then return to the `awk' program. The `system'
function executes the command given by the string COMMAND. It
- returns, as its value, the status returned by the command that was
- executed.
+ returns the status returned by the command that was executed as
+ its value.
For example, if the following fragment of code is put in your `awk'
program:
@@ -8353,12 +9548,12 @@ parameters are enclosed in square brackets ("[" and "]").
system("date | mail -s 'awk run done' root")
}
- the system administrator will be sent mail when the `awk' program
+ the system administrator is sent mail when the `awk' program
finishes processing input and begins its end-of-input processing.
Note that redirecting `print' or `printf' into a pipe is often
enough to accomplish your task. If you need to run many commands,
- it will be more efficient to simply print them to a pipe to the
+ it is more efficient to simply print them down a pipeline to the
shell:
while (MORE STUFF TO DO)
@@ -8367,62 +9562,59 @@ parameters are enclosed in square brackets ("[" and "]").
However, if your `awk' program is interactive, `system' is useful
for cranking up large self-contained programs, such as a shell or
- an editor.
+ an editor. Some operating systems cannot implement the `system'
+ function. `system' causes a fatal error if it is not supported.
- Some operating systems cannot implement the `system' function.
- `system' causes a fatal error if it is not supported.
+Advanced Notes: Interactive Versus Non-Interactive Buffering
+------------------------------------------------------------
-Interactive vs. Non-Interactive Buffering
------------------------------------------
-
- As a side point, buffering issues can be even more confusing
-depending upon whether or not your program is "interactive", i.e.,
+ As a side point, buffering issues can be even more confusing,
+depending upon whether your program is "interactive"; i.e.,
communicating with a user sitting at a keyboard.(1)
- Interactive programs generally "line buffer" their output; they
+ Interactive programs generally "line buffer" their output; i.e., they
write out every line. Non-interactive programs wait until they have a
-full buffer, which may be many lines of output.
-
- Here is an example of the difference.
+full buffer, which may be many lines of output. Here is an example of
+the difference:
$ awk '{ print $1 + $2 }'
1 1
-| 2
2 3
-| 5
- Control-d
+ Ctrl-d
Each line of output is printed immediately. Compare that behavior with
-this example.
+this example:
$ awk '{ print $1 + $2 }' | cat
1 1
2 3
- Control-d
+ Ctrl-d
-| 2
-| 5
-Here, no output is printed until after the `Control-d' is typed, since
-it is all buffered, and sent down the pipe to `cat' in one shot.
+Here, no output is printed until after the `Ctrl-d' is typed, because
+it is all buffered and sent down the pipe to `cat' in one shot.
-Controlling Output Buffering with `system'
-------------------------------------------
+Advanced Notes: Controlling Output Buffering with `system'
+----------------------------------------------------------
The `fflush' function provides explicit control over output
buffering for individual files and pipes. However, its use is not
portable to many other `awk' implementations. An alternative method to
-flush output buffers is by calling `system' with a null string as its
+flush output buffers is to call `system' with a null string as its
argument:
system("") # flush output
-`gawk' treats this use of the `system' function as a special case, and
+`gawk' treats this use of the `system' function as a special case and
is smart enough not to run a shell (or other command interpreter) with
the empty command. Therefore, with `gawk', this idiom is not only
-useful, it is efficient. While this method should work with other
-`awk' implementations, it will not necessarily avoid starting an
+useful, it is also efficient. While this method should work with other
+`awk' implementations, it does not necessarily avoid starting an
unnecessary shell. (Other implementations may only flush the buffer
-associated with the standard output, and not necessarily all buffered
+associated with the standard output and not necessarily all buffered
output.)
If you think about what a programmer expects, it makes sense that
@@ -8434,20 +9626,20 @@ output.)
print "second print"
}
-must print
+must print:
first print
system echo
second print
-and not
+and not:
system echo
first print
second print
If `awk' did not flush its buffers before calling `system', the
-latter (undesirable) output is what you would see.
+latter (undesirable) output is what you see.
---------- Footnotes ----------
@@ -8455,57 +9647,89 @@ latter (undesirable) output is what you would see.
a terminal device.

-File: gawk.info, Node: Time Functions, Prev: I/O Functions, Up: Built-in
+File: gawk.info, Node: Time Functions, Next: Bitwise Functions, Prev: I/O Functions, Up: Built-in
-Functions for Dealing with Time Stamps
-======================================
+Using `gawk''s Timestamp Functions
+----------------------------------
A common use for `awk' programs is the processing of log files
-containing time stamp information, indicating when a particular log
-record was written. Many programs log their time stamp in the form
+containing timestamp information, indicating when a particular log
+record was written. Many programs log their timestamp in the form
returned by the `time' system call, which is the number of seconds
-since a particular epoch. On POSIX systems, it is the number of
-seconds since Midnight, January 1, 1970, UTC.
-
- In order to make it easier to process such log files, and to produce
-useful reports, `gawk' provides two functions for working with time
-stamps. Both of these are `gawk' extensions; they are not specified in
-the POSIX standard, nor are they in any other known version of `awk'.
-
- Optional parameters are enclosed in square brackets ("[" and "]").
+since a particular epoch. On POSIX-compliant systems, it is the number
+of seconds since 1970-01-01 00:00:00 UTC, not counting leap seconds.(1)
+All known POSIX-compliant systems support timestamps from 0 through
+2^31 - 1, which is sufficient to represent times through 2038-01-19
+03:14:07 UTC. Many systems support a wider range of timestamps,
+including negative timestamps that represent times before the epoch.
+
+ In order to make it easier to process such log files and to produce
+useful reports, `gawk' provides the following functions for working
+with timestamps. They are `gawk' extensions; they are not specified in
+the POSIX standard, nor are they in any other known version of `awk'.(2)
+Optional parameters are enclosed in square brackets ([ and ]):
`systime()'
This function returns the current time as the number of seconds
since the system epoch. On POSIX systems, this is the number of
- seconds since Midnight, January 1, 1970, UTC. It may be a
- different number on other systems.
+ seconds since 1970-01-01 00:00:00 UTC, not counting leap seconds.
+ It may be a different number on other systems.
+
+`mktime(DATESPEC)'
+ This function turns DATESPEC into a timestamp in the same form as
+ is returned by `systime'. It is similar to the function of the
+ same name in ISO C. The argument, DATESPEC, is a string of the
+ form `"YYYY MM DD HH MM SS [DST]"'. The string consists of six or
+ seven numbers representing, respectively, the full year including
+ century, the month from 1 to 12, the day of the month from 1 to
+ 31, the hour of the day from 0 to 23, the minute from 0 to 59, the
+ second from 0 to 60,(3) and an optional daylight savings flag.
+
+ The values of these numbers need not be within the ranges
+ specified; for example, an hour of -1 means 1 hour before midnight.
+ The origin-zero Gregorian calendar is assumed, with year 0
+ preceding year 1 and year -1 preceding year 0. The time is
+ assumed to be in the local timezone. If the daylight savings flag
+ is positive, the time is assumed to be daylight savings time; if
+ zero, the time is assumed to be standard time; and if negative
+ (the default), `mktime' attempts to determine whether daylight
+ savings time is in effect for the specified time.
+
+ If DATESPEC does not contain enough elements or if the resulting
+ time is out of range, `mktime' returns -1.
`strftime([FORMAT [, TIMESTAMP]])'
This function returns a string. It is similar to the function of
- the same name in ANSI C. The time specified by TIMESTAMP is used
- to produce a string, based on the contents of the FORMAT string.
- The TIMESTAMP is in the same format as the value returned by the
+ the same name in ISO C. The time specified by TIMESTAMP is used to
+ produce a string, based on the contents of the FORMAT string. The
+ TIMESTAMP is in the same format as the value returned by the
`systime' function. If no TIMESTAMP argument is supplied, `gawk'
- will use the current time of day as the time stamp. If no FORMAT
+ uses the current time of day as the timestamp. If no FORMAT
argument is supplied, `strftime' uses `"%a %b %d %H:%M:%S %Z %Y"'.
- This format string produces output (almost) equivalent to that of
- the `date' utility. (Versions of `gawk' prior to 3.0 require the
- FORMAT argument.)
+ This format string produces output that is (almost) equivalent to
+ that of the `date' utility. (Versions of `gawk' prior to 3.0
+ require the FORMAT argument.)
- The `systime' function allows you to compare a time stamp from a log
+ The `systime' function allows you to compare a timestamp from a log
file with the current time of day. In particular, it is easy to
determine how long ago a particular record was logged. It also allows
you to produce log records using the "seconds since the epoch" format.
- The `strftime' function allows you to easily turn a time stamp into
+ The `mktime' function allows you to convert a textual representation
+of a date and time into a timestamp. This makes it easy to do
+before/after comparisons of dates and times, particularly when dealing
+with date and time data coming from an external source, such as a log
+file.
+
+ The `strftime' function allows you to easily turn a timestamp into
human-readable information. It is similar in nature to the `sprintf'
-function (*note Built-in Functions for String Manipulation: String
-Functions.), in that it copies non-format specification characters
-verbatim to the returned string, while substituting date and time
-values for format specifications in the FORMAT string.
+function (*note String Manipulation Functions: String Functions.), in
+that it copies non-format specification characters verbatim to the
+returned string, while substituting date and time values for format
+specifications in the FORMAT string.
- `strftime' is guaranteed by the ANSI C standard to support the
-following date format specifications:
+ `strftime' is guaranteed by the 1999 ISO C standard(4) to support
+the following date format specifications:
`%a'
The locale's abbreviated weekday name.
@@ -8520,11 +9744,40 @@ following date format specifications:
The locale's full month name.
`%c'
- The locale's "appropriate" date and time representation.
+ The locale's "appropriate" date and time representation. (This is
+ `%A %B %d %T %Y' in the `"C"' locale.)
+
+`%C'
+ The century. This is the year divided by 100 and truncated to the
+ next lower integer.
`%d'
The day of the month as a decimal number (01-31).
+`%D'
+ Equivalent to specifying `%m/%d/%y'.
+
+`%e'
+ The day of the month, padded with a space if it is only one digit.
+
+`%F'
+ Equivalent to specifying `%Y-%m-%d'. This is the ISO 8601 date
+ format.
+
+`%g'
+ The year modulo 100 of the ISO week number, as a decimal number
+ (00-99). For example, January 1, 1993, is in week 53 of 1992.
+ Thus, the year of its ISO week number is 1992, even though its
+ year is 1993. Similarly, December 31, 1973, is in week 1 of 1974.
+ Thus, the year of its ISO week number is 1974, even though its
+ year is 1973.
+
+`%G'
+ The full year of the ISO week number, as a decimal number.
+
+`%h'
+ Equivalent to `%b'.
+
`%H'
The hour (24-hour clock) as a decimal number (00-23).
@@ -8540,17 +9793,44 @@ following date format specifications:
`%M'
The minute as a decimal number (00-59).
+`%n'
+ A newline character (ASCII LF).
+
`%p'
The locale's equivalent of the AM/PM designations associated with
a 12-hour clock.
+`%r'
+ The locale's 12-hour clock time. (This is `%I:%M:%S %p' in the
+ `"C"' locale.)
+
+`%R'
+ Equivalent to specifying `%H:%M'.
+
`%S'
- The second as a decimal number (00-60).(1)
+ The second as a decimal number (00-60).
+
+`%t'
+ A tab character.
+
+`%T'
+ Equivalent to specifying `%H:%M:%S'.
+
+`%u'
+ The weekday as a decimal number (1-7). Monday is day one.
`%U'
The week number of the year (the first Sunday as the first day of
week one) as a decimal number (00-53).
+`%V'
+ The week number of the year (the first Monday as the first day of
+ week one) as a decimal number (01-53). The method for determining
+ the week number is as specified by ISO 8601. (To wit: if the week
+ containing January 1 has four or more days in the new year, then
+ it is week one, otherwise it is week 53 of the previous year and
+ the next week is week one.)
+
`%w'
The weekday as a decimal number (0-6). Sunday is day zero.
@@ -8559,65 +9839,54 @@ following date format specifications:
week one) as a decimal number (00-53).
`%x'
- The locale's "appropriate" date representation.
+ The locale's "appropriate" date representation. (This is `%A %B
+ %d %Y' in the `"C"' locale.)
`%X'
- The locale's "appropriate" time representation.
+ The locale's "appropriate" time representation. (This is `%T' in
+ the `"C"' locale.)
`%y'
- The year without century as a decimal number (00-99).
+ The year modulo 100 as a decimal number (00-99).
`%Y'
- The year with century as a decimal number (e.g., 1995).
+ The full year as a decimal number (e.g., 1995).
+
+`%z'
+ The timezone offset in a +HHMM format (e.g., the format necessary
+ to produce RFC 822/RFC 1036 date headers).
`%Z'
- The time zone name or abbreviation, or no characters if no time
- zone is determinable.
+ The time zone name or abbreviation; no characters if no time zone
+ is determinable.
+
+`%Ec %EC %Ex %EX %Ey %EY %Od %Oe %OH'
+`%OI %Om %OM %OS %Ou %OU %OV %Ow %OW %Oy'
+ These are "alternate representations" for the specifications that
+ use only the second letter (`%c', `%C', and so on).(5) (These
+ facilitate compliance with the POSIX `date' utility.)
`%%'
A literal `%'.
If a conversion specifier is not one of the above, the behavior is
-undefined.(2)
+undefined.(6)
Informally, a "locale" is the geographic place in which a program is
meant to run. For example, a common way to abbreviate the date
-September 4, 1991 in the United States would be "9/4/91". In many
-countries in Europe, however, it would be abbreviated "4.9.91". Thus,
-the `%x' specification in a `"US"' locale might produce `9/4/91', while
-in a `"EUROPE"' locale, it might produce `4.9.91'. The ANSI C standard
+September 4, 1991 in the United States is "9/4/91." In many countries
+in Europe, however, it is abbreviated "4.9.91." Thus, the `%x'
+specification in a `"US"' locale might produce `9/4/91', while in a
+`"EUROPE"' locale, it might produce `4.9.91'. The ISO C standard
defines a default `"C"' locale, which is an environment that is typical
of what most C programmers are used to.
A public-domain C version of `strftime' is supplied with `gawk' for
-systems that are not yet fully ANSI-compliant. If that version is used
-to compile `gawk' (*note Installing `gawk': Installation.), then the
+systems that are not yet fully standards-compliant. It supports all of
+the just listed format specifications. If that version is used to
+compile `gawk' (*note Installing `gawk': Installation.), then the
following additional format specifications are available:
-`%D'
- Equivalent to specifying `%m/%d/%y'.
-
-`%e'
- The day of the month, padded with a space if it is only one digit.
-
-`%h'
- Equivalent to `%b', above.
-
-`%n'
- A newline character (ASCII LF).
-
-`%r'
- Equivalent to specifying `%I:%M:%S %p'.
-
-`%R'
- Equivalent to specifying `%H:%M'.
-
-`%T'
- Equivalent to specifying `%H:%M:%S'.
-
-`%t'
- A tab character.
-
`%k'
The hour (24-hour clock) as a decimal number (0-23). Single digit
numbers are padded with a space.
@@ -8626,66 +9895,41 @@ following additional format specifications are available:
The hour (12-hour clock) as a decimal number (1-12). Single digit
numbers are padded with a space.
-`%C'
- The century, as a number between 00 and 99.
+`%N'
+ The "Emperor/Era" name. Equivalent to `%C'.
-`%u'
- The weekday as a decimal number [1 (Monday)-7].
-
-`%V'
- The week number of the year (the first Monday as the first day of
- week one) as a decimal number (01-53). The method for determining
- the week number is as specified by ISO 8601 (to wit: if the week
- containing January 1 has four or more days in the new year, then
- it is week one, otherwise it is week 53 of the previous year and
- the next week is week one).
-
-`%G'
- The year with century of the ISO week number, as a decimal number.
-
- For example, January 1, 1993, is in week 53 of 1992. Thus, the year
- of its ISO week number is 1992, even though its year is 1993.
- Similarly, December 31, 1973, is in week 1 of 1974. Thus, the year
- of its ISO week number is 1974, even though its year is 1973.
-
-`%g'
- The year without century of the ISO week number, as a decimal
- number (00-99).
+`%o'
+ The "Emperor/Era" year. Equivalent to `%y'.
-`%Ec %EC %Ex %Ey %EY %Od %Oe %OH %OI'
-`%Om %OM %OS %Ou %OU %OV %Ow %OW %Oy'
- These are "alternate representations" for the specifications that
- use only the second letter (`%c', `%C', and so on). They are
- recognized, but their normal representations are used.(3) (These
- facilitate compliance with the POSIX `date' utility.)
+`%s'
+ The time as a decimal timestamp in seconds since the epoch.
`%v'
- The date in VMS format (e.g., 20-JUN-1991).
+ The date in VMS format (e.g., `20-JUN-1991').
-`%z'
- The timezone offset in a +HHMM format (e.g., the format necessary
- to produce RFC-822/RFC-1036 date headers).
+ Additionally, the alternate representations are recognized but their
+normal representations are used.
This example is an `awk' implementation of the POSIX `date' utility.
Normally, the `date' utility prints the current date and time of day
-in a well known format. However, if you provide an argument to it that
-begins with a `+', `date' will copy non-format specifier characters to
-the standard output, and will interpret the current time according to
-the format specifiers in the string. For example:
+in a well-known format. However, if you provide an argument to it that
+begins with a `+', `date' copies non-format specifier characters to the
+standard output and interprets the current time according to the format
+specifiers in the string. For example:
$ date '+Today is %A, %B %d, %Y.'
- -| Today is Thursday, July 11, 1991.
+ -| Today is Thursday, September 14, 2000.
Here is the `gawk' version of the `date' utility. It has a shell
-"wrapper", to handle the `-u' option, which requires that `date' run as
-if the time zone was set to UTC.
+"wrapper" to handle the `-u' option, which requires that `date' run as
+if the time zone is set to UTC:
#! /bin/sh
#
# date --- approximate the P1003.2 'date' command
case $1 in
- -u) TZ=GMT0 # use UTC
+ -u) TZ=UTC0 # use UTC
export TZ
shift ;;
esac
@@ -8707,27 +9951,184 @@ if the time zone was set to UTC.
---------- Footnotes ----------
- (1) Occasionally there are minutes in a year with a leap second,
+ (1) *Note Glossary::, especially the entries for "Epoch" and "UTC."
+
+ (2) The GNU `date' utility can also do many of the things described
+here. It's use may be preferable for simple time-related operations in
+shell scripts.
+
+ (3) Occasionally there are minutes in a year with a leap second,
which is why the seconds can go up to 60.
- (2) This is because ANSI C leaves the behavior of the C version of
-`strftime' undefined, and `gawk' will use the system's version of
-`strftime' if it's there. Typically, the conversion specifier will
-either not appear in the returned string, or it will appear literally.
+ (4) As this is a recent standard, not every system's `strftime'
+necessarily supports all of the conversions listed here.
- (3) If you don't understand any of this, don't worry about it; these
+ (5) If you don't understand any of this, don't worry about it; these
facilities are meant to make it easier to "internationalize" programs.
+Other internationalization features are described in *Note
+Internationalization with `gawk': Internationalization.
+
+ (6) This is because ISO C leaves the behavior of the C version of
+`strftime' undefined and `gawk' uses the system's version of `strftime'
+if it's there. Typically, the conversion specifier either does not
+appear in the returned string or it appears literally.

-File: gawk.info, Node: User-defined, Next: Invoking Gawk, Prev: Built-in, Up: Top
+File: gawk.info, Node: Bitwise Functions, Next: I18N Functions, Prev: Time Functions, Up: Built-in
+
+Using `gawk''s Bit Manipulation Functions
+-----------------------------------------
+
+ I can explain it for you, but I can't understand it for you.
+ Anonymous
+
+ Many languages provide the ability to perform "bitwise" operations
+on two integer numbers. In other words, the operation is performed on
+each successive pair of bits in the operands. Three common operations
+are bitwise AND, OR, and XOR. The operations are described by the
+following table:
+
+ Bit Operator
+ | AND | OR | XOR
+ |---+---+---+---+---+---
+ Operands | 0 | 1 | 0 | 1 | 0 | 1
+ ----------+---+---+---+---+---+---
+ 0 | 0 0 | 0 1 | 0 1
+ 1 | 0 1 | 1 1 | 1 0
+
+ As you can see, the result of an AND operation is 1 only when _both_
+bits are 1. The result of an OR operation is 1 if _either_ bit is 1.
+The result of an XOR operation is 1 if either bit is 1, but not both.
+The next operation is the "complement"; the complement of 1 is 0 and
+the complement of 0 is 1. Thus, this operation "flips" all the bits of
+a given value.
+
+ Finally, two other common operations are to shift the bits left or
+right. For example, if you have a bit string `10111001' and you shift
+it right by three bits, you end up with `00010111'.(1) If you start over
+again with `10111001' and shift it left by three bits, you end up with
+`11001000'. `gawk' provides built-in functions that implement the
+bitwise operations just described. They are:
+
+`and(V1, V2)' Return the bitwise AND of the values provided by V1
+ and V2.
+`or(V1, V2)' Return the bitwise OR of the values provided by V1 and
+ V2.
+`xor(V1, V2)' Return the bitwise XOR of the values provided by V1
+ and V2.
+`compl(VAL)' Return the bitwise complement of VAL.
+`lshift(VAL, COUNT)' Return the value of VAL, shifted left by COUNT bits.
+`rshift(VAL, COUNT)' Return the value of VAL, shifted right by COUNT bits.
+
+ For all of these functions, first the double-precision
+floating-point value is converted to a C `unsigned long', then the
+bitwise operation is performed and then the result is converted back
+into a C `double'. (If you don't understand this paragraph, don't worry
+about it.)
+
+ Here is a user-defined function (*note User-Defined Functions:
+User-defined.) that illustrates the use of these functions:
+
+ # bits2str --- turn a byte into readable 1's and 0's
+
+ function bits2str(bits, data, mask)
+ {
+ if (bits == 0)
+ return "0"
+
+ mask = 1
+ for (; bits != 0; bits = rshift(bits, 1))
+ data = (and(bits, mask) ? "1" : "0") data
+
+ while ((length(data) % 8) != 0)
+ data = "0" data
+
+ return data
+ }
+
+ BEGIN {
+ printf "123 = %s\n", bits2str(123)
+ printf "0123 = %s\n", bits2str(0123)
+ printf "0x99 = %s\n", bits2str(0x99)
+ comp = compl(0x99)
+ printf "compl(0x99) = %#x = %s\n", comp, bits2str(comp)
+ shift = lshift(0x99, 2)
+ printf "lshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+ shift = rshift(0x99, 2)
+ printf "rshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+ }
+
+This program produces the following output when run:
+
+ $ gawk -f testbits.awk
+ -| 123 = 01111011
+ -| 0123 = 01010011
+ -| 0x99 = 10011001
+ -| compl(0x99) = 0xffffff66 = 11111111111111111111111101100110
+ -| lshift(0x99, 2) = 0x264 = 0000001001100100
+ -| rshift(0x99, 2) = 0x26 = 00100110
+
+ The `bits2str' function turns a binary number into a string. The
+number `1' represents a binary value where the rightmost bit is set to
+1. Using this mask, the function repeatedly checks the rightmost bit.
+AND-ing the mask with the value indicates whether the rightmost bit is
+1 or not. If so, a `"1"' is concatenated onto the front of the string.
+Otherwise, a `"0"' is added. The value is then shifted right by one
+bit and the loop continues until there are no more 1 bits.
+
+ If the initial value is zero it returns a simple `"0"'. Otherwise,
+at the end, it pads the value with zeros to represent multiples of
+eight-bit quantities. This is typical in modern computers.
+
+ The main code in the `BEGIN' rule shows the difference between the
+decimal and octal values for the same numbers (*note Octal and
+Hexadecimal Numbers: Non-decimal-numbers.), and then demonstrates the
+results of the `compl', `lshift', and `rshift' functions.
+
+ ---------- Footnotes ----------
+
+ (1) This example shows that 0's come in on the left side. For
+`gawk', this is always true, but in some languages, it's possible to
+have the left side fill with 1's. Caveat emptor.
+
+
+File: gawk.info, Node: I18N Functions, Prev: Bitwise Functions, Up: Built-in
+
+Using `gawk''s String Translation Functions
+-------------------------------------------
+
+ `gawk' provides facilities for internationalizing `awk' programs.
+These include the functions described in the following list. The
+description here is purposely brief. *Note Internationalization with
+`gawk': Internationalization, for the full story. Optional parameters
+are enclosed in square brackets ([ and ]):
+
+`dcgettext(STRING [, DOMAIN [, CATEGORY]])'
+ This function returns the translation of STRING in text domain
+ DOMAIN for locale category CATEGORY. The default value for DOMAIN
+ is the current value of `TEXTDOMAIN'. The default value for
+ CATEGORY is `"LC_MESSAGES"'.
-User-defined Functions
-**********************
+`bindtextdomain(DIRECTORY [, DOMAIN])'
+ This function allows you to specify the directory where `gawk'
+ will look for message translation files, in case they will not or
+ cannot be placed in the "standard" locations (e.g., during
+ testing). It returns the directory where DOMAIN is "bound."
+
+ The default DOMAIN is the value of `TEXTDOMAIN'. If DIRECTORY is
+ the null string (`""'), then `bindtextdomain' returns the current
+ binding for the given DOMAIN.
+
+
+File: gawk.info, Node: User-defined, Prev: Built-in, Up: Functions
+
+User-Defined Functions
+======================
Complicated `awk' programs can often be simplified by defining your
own functions. User-defined functions can be called just like built-in
-ones (*note Function Calls::), but it is up to you to define them--to
-tell `awk' what they should do.
+ones (*note Function Calls::), but it is up to you to define them;
+i.e., to tell `awk' what they should do.
* Menu:
@@ -8736,19 +10137,20 @@ tell `awk' what they should do.
does.
* Function Caveats:: Things to watch out for.
* Return Statement:: Specifying the value a function returns.
+* Dynamic Typing:: How variable types can change at runtime.

File: gawk.info, Node: Definition Syntax, Next: Function Example, Prev: User-defined, Up: User-defined
Function Definition Syntax
-==========================
+--------------------------
Definitions of functions can appear anywhere between the rules of an
`awk' program. Thus, the general form of an `awk' program is extended
to include sequences of rules _and_ user-defined function definitions.
-There is no need in `awk' to put the definition of a function before
-all uses of the function. This is because `awk' reads the entire
-program before starting to execute any of it.
+There is no need to put the definition of a function before all uses of
+the function. This is because `awk' reads the entire program before
+starting to execute any of it.
The definition of a function named NAME looks like this:
@@ -8757,39 +10159,41 @@ program before starting to execute any of it.
BODY-OF-FUNCTION
}
-NAME is the name of the function to be defined. A valid function name
-is like a valid variable name: a sequence of letters, digits and
-underscores, not starting with a digit. Within a single `awk' program,
-any particular name can only be used as a variable, array or function.
+NAME is the name of the function to define. A valid function name is
+like a valid variable name: a sequence of letters, digits, and
+underscores, that doesn't start with a digit. Within a single `awk'
+program, any particular name can only be used as a variable, array, or
+function.
PARAMETER-LIST is a list of the function's arguments and local
variable names, separated by commas. When the function is called, the
argument names are used to hold the argument values given in the call.
The local variables are initialized to the empty string. A function
-cannot have two parameters with the same name.
+cannot have two parameters with the same name, nor may it have a
+parameter with the same name as the function itself.
The BODY-OF-FUNCTION consists of `awk' statements. It is the most
important part of the definition, because it says what the function
should actually _do_. The argument names exist to give the body a way
-to talk about the arguments; local variables, to give the body places
-to keep temporary values.
+to talk about the arguments; local variables exist to give the body
+places to keep temporary values.
Argument names are not distinguished syntactically from local
-variable names; instead, the number of arguments supplied when the
+variable names. Instead, the number of arguments supplied when the
function is called determines how many argument variables there are.
Thus, if three argument values are given, the first three names in
-PARAMETER-LIST are arguments, and the rest are local variables.
+PARAMETER-LIST are arguments and the rest are local variables.
It follows that if the number of arguments is not the same in all
calls to the function, some of the names in PARAMETER-LIST may be
arguments on some occasions and local variables on others. Another way
to think of this is that omitted arguments default to the null string.
- Usually when you write a function you know how many names you intend
-to use for arguments and how many you intend to use as local variables.
-It is conventional to place some extra space between the arguments and
-the local variables, to document how your function is supposed to be
-used.
+ Usually when you write a function, you know how many names you
+intend to use for arguments and how many you intend to use as local
+variables. It is conventional to place some extra space between the
+arguments and the local variables, in order to document how your
+function is supposed to be used.
During execution of the function body, the arguments and local
variable values hide or "shadow" any variables of the same names used
@@ -8803,25 +10207,26 @@ in the function's body.
body is executing. Once the body finishes, you can once again access
the variables that were shadowed while the function was running.
- The function body can contain expressions which call functions. They
+ The function body can contain expressions that call functions. They
can even call this function, either directly or by way of another
-function. When this happens, we say the function is "recursive".
+function. When this happens, we say the function is "recursive". The
+act of a function calling itself is called "recursion".
In many `awk' implementations, including `gawk', the keyword
`function' may be abbreviated `func'. However, POSIX only specifies
the use of the keyword `function'. This actually has some practical
-implications. If `gawk' is in POSIX-compatibility mode (*note Command
-Line Options: Options.), then the following statement will _not_ define
-a function:
+implications. If `gawk' is in POSIX-compatibility mode (*note
+Command-Line Options: Options.), then the following statement does
+_not_ define a function:
func foo() { a = sqrt($1) ; print a }
Instead it defines a rule that, for each record, concatenates the value
of the variable `func' with the return value of the function `foo'. If
the resulting string is non-null, the action is executed. This is
-probably not what was desired. (`awk' accepts this input as
-syntactically valid, since functions may be used before they are defined
-in `awk' programs.)
+probably not what is desired. (`awk' accepts this input as
+syntactically valid, because functions may be used before they are
+defined in `awk' programs.)
To ensure that your `awk' programs are portable, always use the
keyword `function' when defining a function.
@@ -8830,22 +10235,23 @@ keyword `function' when defining a function.
File: gawk.info, Node: Function Example, Next: Function Caveats, Prev: Definition Syntax, Up: User-defined
Function Definition Examples
-============================
+----------------------------
Here is an example of a user-defined function, called `myprint', that
-takes a number and prints it in a specific format.
+takes a number and prints it in a specific format:
function myprint(num)
{
printf "%6.3g\n", num
}
-To illustrate, here is an `awk' rule which uses our `myprint' function:
+To illustrate, here is an `awk' rule that uses our `myprint' function:
$3 > 0 { myprint($3) }
This program prints, in our special format, all the third fields that
-contain a positive number in our input. Therefore, when given:
+contain a positive number in our input. Therefore, when given the
+following:
1.2 3.4 5.6 7.8
9.10 11.12 -13.14 15.16
@@ -8856,7 +10262,7 @@ this program, using our function to format the results, prints:
5.6
21.2
- This function deletes all the elements in an array.
+ This function deletes all the elements in an array:
function delarray(a, i)
{
@@ -8867,13 +10273,16 @@ this program, using our function to format the results, prints:
When working with arrays, it is often necessary to delete all the
elements in an array and start over with a new list of elements (*note
The `delete' Statement: Delete.). Instead of having to repeat this
-loop everywhere in your program that you need to clear out an array,
-your program can just call `delarray'. (This guarantees portability.
-The usage `delete ARRAY' to delete the contents of an entire array is a
+loop everywhere that you need to clear out an array, your program can
+just call `delarray'. (This guarantees portability. The use of
+`delete ARRAY' to delete the contents of an entire array is a
non-standard extension.)
- Here is an example of a recursive function. It takes a string as an
-input parameter, and returns the string in backwards order.
+ The following is an example of a recursive function. It takes a
+string as an input parameter and returns the string in backwards order.
+Recursive functions must always have a test that stops the recursion.
+In this case, the recursion terminates when the starting position is
+zero; i.e., when there are no more characters left in the string.
function rev(str, start)
{
@@ -8883,18 +10292,17 @@ input parameter, and returns the string in backwards order.
return (substr(str, start, 1) rev(str, start - 1))
}
- If this function is in a file named `rev.awk', we can test it this
+ If this function is in a file named `rev.awk', it can be tested this
way:
$ echo "Don't Panic!" |
> gawk --source '{ print rev($0, length($0)) }' -f rev.awk
-| !cinaP t'noD
- Here is an example that uses the built-in function `strftime'.
-(*Note Functions for Dealing with Time Stamps: Time Functions, for more
-information on `strftime'.) The C `ctime' function takes a timestamp
-and returns it in a string, formatted in a well known fashion. Here is
-an `awk' version:
+ The C `ctime' function takes a timestamp and returns it in a string,
+formatted in a well-known fashion. The following example uses the
+built-in `strftime' function (*note Using `gawk''s Timestamp Functions:
+Time Functions.) to create an `awk' version of `ctime':
# ctime.awk
#
@@ -8911,23 +10319,23 @@ an `awk' version:

File: gawk.info, Node: Function Caveats, Next: Return Statement, Prev: Function Example, Up: User-defined
-Calling User-defined Functions
-==============================
+Calling User-Defined Functions
+------------------------------
"Calling a function" means causing the function to run and do its
-job. A function call is an expression, and its value is the value
+job. A function call is an expression and its value is the value
returned by the function.
A function call consists of the function name followed by the
-arguments in parentheses. What you write in the call for the arguments
-are `awk' expressions; each time the call is executed, these
+arguments in parentheses. `awk' expressions are what you write in the
+call for the arguments. Each time the call is executed, these
expressions are evaluated, and the values are the actual arguments. For
example, here is a call to `foo' with three arguments (the first being
a string concatenation):
foo(x y, "lose", 4 * z)
- *Caution:* whitespace characters (spaces and tabs) are not allowed
+ *Caution:* Whitespace characters (spaces and tabs) are not allowed
between the function name and the open-parenthesis of the argument list.
If you write whitespace by mistake, `awk' might think that you mean to
concatenate a variable with an expression in parentheses. However, it
@@ -8937,18 +10345,17 @@ reports an error.
When a function is called, it is given a _copy_ of the values of its
arguments. This is known as "call by value". The caller may use a
variable as the expression for the argument, but the called function
-does not know this: it only knows what value the argument had. For
-example, if you write this code:
+does not know this--it only knows what value the argument had. For
+example, if you write the following code:
foo = "bar"
z = myfunc(foo)
then you should not think of the argument to `myfunc' as being "the
-variable `foo'." Instead, think of the argument as the string value,
-`"bar"'.
-
- If the function `myfunc' alters the values of its local variables,
-this has no effect on any other variables. Thus, if `myfunc' does this:
+variable `foo'." Instead, think of the argument as the string value
+`"bar"'. If the function `myfunc' alters the values of its local
+variables, this has no effect on any other variables. Thus, if `myfunc'
+does this:
function myfunc(str)
{
@@ -8957,9 +10364,9 @@ this has no effect on any other variables. Thus, if `myfunc' does this:
print str
}
-to change its first argument variable `str', this _does not_ change the
+to change its first argument variable `str', it _does not_ change the
value of `foo' in the caller. The role of `foo' in calling `myfunc'
-ended when its value, `"bar"', was computed. If `str' also exists
+ended when its value (`"bar"') was computed. If `str' also exists
outside of `myfunc', the function body cannot alter this outer value,
because it is shadowed during the execution of `myfunc' and cannot be
seen or changed from there.
@@ -8968,7 +10375,9 @@ seen or changed from there.
copied. Instead, the array itself is made available for direct
manipulation by the function. This is usually called "call by
reference". Changes made to an array parameter inside the body of a
-function _are_ visible outside that function. This can be *very*
+function _are_ visible outside that function.
+
+ *Note:* Changing an array parameter inside a function can be very
dangerous if you do not watch what you are doing. For example:
function changeit(array, ind, nvalue)
@@ -8987,7 +10396,7 @@ This program prints `a[1] = 1, a[2] = two, a[3] = 3', because
`changeit' stores `"two"' in the second element of `a'.
Some `awk' implementations allow you to call a function that has not
-been defined, and only report a problem at run-time when the program
+been defined. They only report a problem at runtime when the program
actually tries to call the function. For example:
BEGIN {
@@ -8999,46 +10408,46 @@ actually tries to call the function. For example:
function bar() { ... }
# note that `foo' is not defined
-Since the `if' statement will never be true, it is not really a problem
-that `foo' has not been defined. Usually though, it is a problem if a
-program calls an undefined function.
+Because the `if' statement will never be true, it is not really a
+problem that `foo' has not been defined. Usually though, it is a
+problem if a program calls an undefined function.
- If `--lint' has been specified (*note Command Line Options:
-Options.), `gawk' will report about calls to undefined functions.
+ If `--lint' is specified (*note Command-Line Options: Options.),
+`gawk' reports calls to undefined functions.
- Some `awk' implementations generate a run-time error if you use the
+ Some `awk' implementations generate a runtime error if you use the
`next' statement (*note The `next' Statement: Next Statement.) inside
-a user-defined function. `gawk' does not have this problem.
+a user-defined function. `gawk' does not have this limitation.

-File: gawk.info, Node: Return Statement, Prev: Function Caveats, Up: User-defined
+File: gawk.info, Node: Return Statement, Next: Dynamic Typing, Prev: Function Caveats, Up: User-defined
The `return' Statement
-======================
+----------------------
The body of a user-defined function can contain a `return' statement.
-This statement returns control to the rest of the `awk' program. It
-can also be used to return a value for use in the rest of the `awk'
-program. It looks like this:
+This statement returns control to the calling part of the `awk'
+program. It can also be used to return a value for use in the rest of
+the `awk' program. It looks like this:
return [EXPRESSION]
The EXPRESSION part is optional. If it is omitted, then the returned
-value is undefined and, therefore, unpredictable.
+value is undefined, and therefore, unpredictable.
A `return' statement with no value expression is assumed at the end
of every function definition. So if control reaches the end of the
function body, then the function returns an unpredictable value. `awk'
-will _not_ warn you if you use the return value of such a function.
+does _not_ warn you if you use the return value of such a function.
Sometimes, you want to write a function for what it does, not for
what it returns. Such a function corresponds to a `void' function in C
or to a `procedure' in Pascal. Thus, it may be appropriate to not
-return any value; you should simply bear in mind that if you use the
-return value of such a function, you do so at your own risk.
+return any value; simply bear in mind that if you use the return value
+of such a function, you do so at your own risk.
- Here is an example of a user-defined function that returns a value
-for the largest number among the elements of an array:
+ The following is an example of a user-defined function that returns
+a value for the largest number among the elements of an array:
function maxelt(vec, i, ret)
{
@@ -9057,11 +10466,10 @@ function parameter list indicates that `i' and `ret' are not supposed
to be arguments. This is a convention that you should follow when you
define functions.
- Here is a program that uses our `maxelt' function. It loads an
+ The following program uses the `maxelt' function. It loads an
array, calls `maxelt', and then reports the maximum number in that
array:
- awk '
function maxelt(vec, i, ret)
{
for (i in vec) {
@@ -9079,7 +10487,7 @@ array:
END {
print maxelt(nums)
- }'
+ }
Given the following input:
@@ -9089,64 +10497,1166 @@ array:
-6 467 998 1101
99385 11 0 225
-our program tells us (predictably) that `99385' is the largest number
-in our array.
+the program reports (predictably) that `99385' is the largest number in
+the array.

-File: gawk.info, Node: Invoking Gawk, Next: Library Functions, Prev: User-defined, Up: Top
+File: gawk.info, Node: Dynamic Typing, Prev: Return Statement, Up: User-defined
-Running `awk'
-*************
+Functions and Their Effect on Variable Typing
+---------------------------------------------
- There are two ways to run `awk': with an explicit program, or with
-one or more program files. Here are templates for both of them; items
-enclosed in `[...]' in these templates are optional.
+ `awk' is a very fluid language. It is possible that `awk' can't
+tell if an identifier represents a regular variable or an array until
+runtime. Here is an annotated sample program:
- Besides traditional one-letter POSIX-style options, `gawk' also
-supports GNU long options.
+ function foo(a)
+ {
+ a[1] = 1 # parameter is an array
+ }
+
+ BEGIN {
+ b = 1
+ foo(b) # invalid: fatal type mismatch
+
+ foo(x) # x uninitialized, becomes an array dynamically
+ x = 1 # now not allowed, runtime error
+ }
- awk [OPTIONS] -f progfile [`--'] FILE ...
- awk [OPTIONS] [`--'] 'PROGRAM' FILE ...
+ Usually, such things aren't a big issue, but it's worth being aware
+of them.
- It is possible to invoke `awk' with an empty program:
+
+File: gawk.info, Node: Internationalization, Next: Advanced Features, Prev: Functions, Up: Top
+
+Internationalization with `gawk'
+********************************
+
+ Once upon a time, computer makers wrote software that only worked in
+English. Eventually, hardware and software vendors noticed that if
+their systems worked in the native languages of non-English-speaking
+countries, they were able to sell more systems. As a result,
+internationalization and localization of programs and software systems
+became a common practice.
+
+ Until recently, the ability to provide internationalization was
+largely restricted to programs written in C and C++. This major node
+describes the underlying library `gawk' uses for internationalization,
+as well as how `gawk' makes internationalization features available at
+the `awk' program level. Having internationalization available at the
+`awk' level gives software developers additional flexibility--they are
+no longer required to write in C when internationalization is a
+requirement.
+
+* Menu:
+
+* I18N and L10N:: Internationalization and Localization.
+* Explaining gettext:: How GNU `gettext' works.
+* Programmer i18n:: Features for the programmer.
+* Translator i18n:: Features for the translator.
+* I18N Example:: A simple i18n example.
+* Gawk I18N:: `gawk' is also internationalized.
+
+
+File: gawk.info, Node: I18N and L10N, Next: Explaining gettext, Prev: Internationalization, Up: Internationalization
+
+Internationalization and Localization
+=====================================
+
+ "Internationalization" means writing (or modifying) a program once,
+in such a way that it can use multiple languages without requiring
+further source code changes. "Localization" means providing the data
+necessary for an internationalized program to work in a particular
+language. Most typically, these terms refer to features such as the
+language used for printing error messages, the language used to read
+responses, and information related to how numerical and monetary values
+are printed and read.
+
+
+File: gawk.info, Node: Explaining gettext, Next: Programmer i18n, Prev: I18N and L10N, Up: Internationalization
+
+GNU `gettext'
+=============
+
+ The facilities in GNU `gettext' focus on messages; strings printed
+by a program, either directly or via formatting with `printf' or
+`sprintf'.(1)
+
+ When using GNU `gettext', each application has its own "text
+domain". This is a unique name such as `kpilot' or `gawk', that
+identifies the application. A complete application may have multiple
+components--programs written in C or C++, as well as scripts written in
+`sh' or `awk'. All of the components use the same text domain.
+
+ To make the discussion concrete, assume we're writing an application
+named `guide'. Internationalization consists of the following steps,
+in this order:
+
+ 1. The programmer goes through the source for all of `guide''s
+ components and marks each string that is a candidate for
+ translation. For example, `"`-F': option required"' is a good
+ candidate for translation. A table with strings of option names
+ is not (e.g., `gawk''s `--profile' option should remain the same,
+ no matter what the local language).
+
+ 2. The programmer indicates the application's text domain (`"guide"')
+ to the `gettext' library, by calling the `textdomain' function.
+
+ 3. Messages from the application are extracted from the source code
+ and collected into a Portable Object file (`guide.po'), which
+ lists the strings and their translations. The translations are
+ initially empty. The original (usually English) messages serve as
+ the key for lookup of the translations.
+
+ 4. For each language with a translator, `guide.po' is copied and
+ translations are created and shipped with the application.
+
+ 5. Each language's `.po' file is converted into a binary message
+ object (`.mo') file. A message object file contains the original
+ messages and their translations in a binary format that allows
+ fast lookup of translations at runtime.
+
+ 6. When `guide' is built and installed, the binary translation files
+ are installed in a standard place.
+
+ 7. For testing and development, it is possible to tell `gettext' to
+ use `.mo' files in a different directory than the standard one by
+ using the `bindtextdomain' function.
+
+ 8. At runtime, `guide' looks up each string via a call to `gettext'.
+ The returned string is the translated string if available, or the
+ original string if not.
+
+ 9. If necessary, it is possible to access messages from a different
+ text domain than the one belonging to the application, without
+ having to switch the application's default text domain back and
+ forth.
+
+ In C (or C++), the string marking and dynamic translation lookup are
+accomplished by wrapping each string in a call to `gettext':
+
+ printf(gettext("Don't Panic!\n"));
+
+ The tools that extract messages from source code pull out all
+strings enclosed in calls to `gettext'.
+
+ The GNU `gettext' developers, recognizing that typing `gettext' over
+and over again is both painful and ugly to look at, use the macro `_'
+(an underscore) to make things easier:
+
+ /* In the standard header file: */
+ #define _(str) gettext(str)
+
+ /* In the program text: */
+ printf(_("Don't Panic!\n"));
+
+This reduces the typing overhead to just three extra characters per
+string and is considerably easier to read as well. There are locale
+"categories" for different types of locale-related information. The
+defined locale categories that `gettext' knows about are:
+
+`LC_MESSAGES'
+ Text messages. This is the default category for `gettext'
+ operations, but it is possible to supply a different one
+ explicitly, if necessary. (It is almost never necessary to supply
+ a different category.)
+
+`LC_COLLATE'
+ Text collation information; i.e., how different characters and/or
+ groups of characters sort in a given language.
+
+`LC_CTYPE'
+ Character type information (alphabetic, digit, upper- or
+ lowercase, and so on). This information is accessed via the POSIX
+ character classes in regular expressions, such as `/[[:alnum:]]/'
+ (*note Regular Expression Operators: Regexp Operators.).
+
+`LC_MONETARY'
+ Monetary information, such as the currency symbol, and whether the
+ symbol goes before or after a number.
+
+`LC_NUMERIC'
+ Numeric information, such as which characters to use for the
+ decimal point and the thousands separator.(2)
+
+`LC_RESPONSE'
+ Response information, such as how "yes" and "no" appear in the
+ local language, and possibly other information as well.
+
+`LC_TIME'
+ Time and date related information, such as 12- or 24-hour clock,
+ month printed before or after day in a date, local month
+ abbreviations, and so on.
+
+`LC_ALL'
+ All of the above. (Not too useful in the context of `gettext'.)
+
+ ---------- Footnotes ----------
+
+ (1) For some operating systems, the `gawk' port doesn't support GNU
+`gettext'. This applies most notably to the PC operating systems. As
+such, these features are not available if you are using one of those
+operating systems. Sorry.
+
+ (2) Americans use a comma every three decimal places and a period
+for the decimal point, while many Europeans do exactly the opposite:
+`1,234.56' vs. `1.234,56'.
+
+
+File: gawk.info, Node: Programmer i18n, Next: Translator i18n, Prev: Explaining gettext, Up: Internationalization
+
+Internationalizing `awk' Programs
+=================================
+
+ `gawk' provides the following variables and functions for
+internationalization:
+
+`TEXTDOMAIN'
+ This variable indicates the application's text domain. For
+ compatibility with GNU `gettext', the default value is
+ `"messages"'.
+
+`_"your message here"'
+ String constants marked with a leading underscore are candidates
+ for translation at runtime. String constants without a leading
+ underscore are not translated.
+
+`dcgettext(STRING [, DOMAIN [, CATEGORY]])'
+ This built-in function returns the translation of STRING in text
+ domain DOMAIN for locale category CATEGORY. The default value for
+ DOMAIN is the current value of `TEXTDOMAIN'. The default value
+ for CATEGORY is `"LC_MESSAGES"'.
+
+ If you supply a value for CATEGORY, it must be a string equal to
+ one of the known locale categories described in *Note GNU
+ `gettext': Explaining gettext. You must also supply a text
+ domain. Use `TEXTDOMAIN' if you want to use the current domain.
+
+ *Caution:* The order of arguments to the `awk' version of the
+ `dcgettext' function is purposely different from the order for the
+ C version. The `awk' version's order was chosen to be simple and
+ to allow for reasonable `awk'-style default arguments.
+
+`bindtextdomain(DIRECTORY [, DOMAIN])'
+ This built-in function allows you to specify the directory where
+ `gettext' looks for `.mo' files, in case they will not or cannot
+ be placed in the standard locations (e.g., during testing). It
+ returns the directory where DOMAIN is "bound."
+
+ The default DOMAIN is the value of `TEXTDOMAIN'. If DIRECTORY is
+ the null string (`""'), then `bindtextdomain' returns the current
+ binding for the given DOMAIN.
+
+ To use these facilities in your `awk' program, follow the steps
+outlined in *Note GNU `gettext': Explaining gettext, like so:
+
+ 1. Set the variable `TEXTDOMAIN' to the text domain of your program.
+ This is best done in a `BEGIN' rule (*note The `BEGIN' and `END'
+ Special Patterns: BEGIN/END.), or it can also be done via the `-v'
+ command-line option (*note Command-Line Options: Options.):
+
+ BEGIN {
+ TEXTDOMAIN = "guide"
+ ...
+ }
+
+ 2. Mark all translatable strings with a leading underscore (`_')
+ character. It _must_ be adjacent to the opening quote of the
+ string. For example:
+
+ print _"hello, world"
+ x = _"you goofed"
+ printf(_"Number of users is %d\n", nusers)
+
+ 3. If you are creating strings dynamically, you can still translate
+ them, using the `dcgettext' built-in function.
+
+ message = nusers " users logged in"
+ message = dcgettext(message, "adminprog")
+ print message
+
+ Here, the call to `dcgettext' supplies a different text domain
+ (`"adminprog"') in which to find the message, but it uses the
+ default `"LC_MESSAGES"' category.
+
+ 4. During development, you might want to put the `.mo' file in a
+ private directory for testing. This is done with the
+ `bindtextdomain' built-in function:
+
+ BEGIN {
+ TEXTDOMAIN = "guide" # our text domain
+ if (Testing) {
+ # where to find our files
+ bindtextdomain("testdir")
+ # joe is in charge of adminprog
+ bindtextdomain("../joe/testdir", "adminprog")
+ }
+ ...
+ }
+
+
+ *Note A Simple Internationalization Example: I18N Example, for an
+example program showing the steps necessary to create and use
+translations from `awk'.
+
+
+File: gawk.info, Node: Translator i18n, Next: I18N Example, Prev: Programmer i18n, Up: Internationalization
+
+Translating `awk' Programs
+==========================
+
+ Once a program's translatable strings have been marked, they must be
+extracted to create the initial `.po' file. As part of translation, it
+is often helpful to rearrange the order in which arguments to `printf'
+are output.
+
+ `gawk''s `--gen-po' command-line option extracts the messages and is
+discussed next. After that, `printf''s ability to rearrange the order
+for `printf' arguments at runtime is covered.
+
+* Menu:
+
+* String Extraction:: Extracting marked strings.
+* Printf Ordering:: Rearranging `printf' arguments.
+* I18N Portability:: `awk'-level portability issues.
+
+
+File: gawk.info, Node: String Extraction, Next: Printf Ordering, Prev: Translator i18n, Up: Translator i18n
+
+Extracting Marked Strings
+-------------------------
+
+ Once your `awk' program is working, and all the strings have been
+marked and you've set (and perhaps bound) the text domain, it is time
+to produce translations. First, use the `--gen-po' command-line option
+to create the initial `.po' file:
+
+ $ gawk --gen-po -f guide.awk > guide.po
+
+ When run with `--gen-po', `gawk' does not execute your program.
+Instead, it parses it as usual and prints all marked strings to
+standard output in the format of a GNU `gettext' Portable Object file.
+Also included in the output are any constant strings that appear as the
+first argument to `dcgettext'.(1) *Note A Simple Internationalization
+Example: I18N Example, for the full list of steps to go through to
+create and test translations for `guide'.
+
+ ---------- Footnotes ----------
+
+ (1) Eventually, the `xgettext' utility that comes with GNU `gettext'
+will be taught to automatically run `gawk --gen-po' for `.awk' files,
+freeing the translator from having to do it manually.
+
+
+File: gawk.info, Node: Printf Ordering, Next: I18N Portability, Prev: String Extraction, Up: Translator i18n
+
+Rearranging `printf' Arguments
+------------------------------
+
+ Format strings for `printf' and `sprintf' (*note Using `printf'
+Statements for Fancier Printing: Printf.) present a special problem
+for translation. Consider the following:(1)
+
+ printf(_"String `%s' has %d characters\n",
+ string, length(string)))
+
+ A possible German translation for this might be:
+
+ "%d Zeichen lang ist die Zeichenkette `%s'\n"
+
+ The problem should be obvious: the order of the format
+specifications is different from the original! Even though `gettext'
+can return the translated string at runtime, it cannot change the
+argument order in the call to `printf'.
+
+ To solve this problem, `printf' format specificiers may have an
+additional optional element, which we call a "positional specifier".
+For example:
+
+ "%2$d Zeichen lang ist die Zeichenkette `%1$s'\n"
+
+ Here, the positional specifier consists of an integer count, which
+indicates which argument to use, and a `$'. Counts are one-based, and
+the format string itself is _not_ included. Thus, in the following
+example, `string' is the first argument and `length(string)' is the
+second.
+
+ $ gawk 'BEGIN {
+ > string = "Dont Panic"
+ > printf _"%2$d characters live in \"%1$s\"\n",
+ > string, length(string)
+ > }'
+ -| 10 characters live in "Dont Panic"
+
+ If present, positional specifiers come first in the format
+specification, before the flags, the field width, and/or the precision.
+
+ Positional specifiers can be used with the dynamic field width and
+precision capability:
+
+ $ gawk 'BEGIN {
+ > printf("%*.*s\n", 10, 20, "hello")
+ > printf("%3$*2$.*1$s\n", 20, 10, "hello")
+ > }'
+ -| hello
+ -| hello
+
+*Note:* When using `*' with a positional specifier, the `*' comes
+first, then the integer position, and then the `$'. This is somewhat
+counter-intutive.
+
+ `gawk' does not allow you to mix regular format specifiers and those
+with positional specifiers in the same string:
+
+ $ gawk 'BEGIN { printf _"%d %3$s\n", 1, 2, "hi" }'
+ error--> gawk: cmd. line:1: fatal: must use `count$' on all formats or none
+
+ *Note:* There are some pathological cases that `gawk' may fail to
+diagnose. In such cases, the output may not be what you expect. It's
+still a bad idea to try mixing them, even if `gawk' doesn't detect it.
+
+ Although positional specifiers can be used directly in `awk'
+programs, their primary purpose is to help in producing correct
+translations of format strings into languages different from the one in
+which the program is first written.
+
+ ---------- Footnotes ----------
+
+ (1) This example is borrowed from the GNU `gettext' manual.
+
+
+File: gawk.info, Node: I18N Portability, Prev: Printf Ordering, Up: Translator i18n
+
+`awk' Portability Issues
+------------------------
+
+ `gawk''s internationalization features were purposely chosen to have
+as little impact as possible on the portability of `awk' programs that
+use them to other versions of `awk'. Consider this program:
+
+ BEGIN {
+ TEXTDOMAIN = "guide"
+ if (Test_Guide) # set with -v
+ bindtextdomain("/test/guide/messages")
+ print _"don't panic!"
+ }
+
+As written, it won't work on other versions of `awk'. However, it is
+actually almost portable, requiring very little change.
+
+ * Assignments to `TEXTDOMAIN' won't have any effect, since
+ `TEXTDOMAIN' is not special in other `awk' implementations.
+
+ * Non-GNU versions of `awk' treat marked strings as the
+ concatenation of a variable named `_' with the string following
+ it.(1) Typically, the variable `_' has the null string (`""') as
+ its value, leaving the original string constant as the result.
+
+ * By defining "dummy" functions to replace `dcgettext' and
+ `bindtextdomain', the `awk' program can be made to run, but all
+ the messages are output in the original language. For example:
+
+ function bindtextdomain(dir, domain)
+ {
+ return dir
+ }
+
+ function dcgettext(string, domain, category)
+ {
+ return string
+ }
+
+ * The use of positional specifications in `printf' or `sprintf' is
+ _not_ portable. To support `gettext' at the C level, many
+ systems' C versions of `sprintf' do support positional specifiers.
+ But it works only if enough arguments are supplied in the
+ function call. Many versions of `awk' pass `printf' formats and
+ arguments unchanged to the underlying C library version of
+ `sprintf', but only one format and argument at a time. What
+ happens if a positional specification is used is anybody's guess.
+ However, since the positional specifications are primarily for use
+ in _translated_ format strings, and since non-GNU `awk's never
+ retrieve the translated string, this should not be a problem in
+ practice.
+
+ ---------- Footnotes ----------
+
+ (1) This is good fodder for an "Obfuscated `awk'" contest.
+
+
+File: gawk.info, Node: I18N Example, Next: Gawk I18N, Prev: Translator i18n, Up: Internationalization
+
+A Simple Internationalization Example
+=====================================
+
+ Now let's look at a step-by-step example of how to internationalize
+and localize a simple `awk' program, using `guide.awk' as our original
+source:
+
+ BEGIN {
+ TEXTDOMAIN = "guide"
+ bindtextdomain(".") # for testing
+ print _"Don't Panic"
+ print _"The Answer Is", 42
+ print "Pardon me, Zaphod who?"
+ }
+
+Run `gawk --gen-po' to create the `.po' file:
+
+ $ gawk --gen-po -f guide.awk > guide.po
+
+This produces:
+
+ #: guide.awk:4
+ msgid "Don't Panic"
+ msgstr ""
+
+ #: guide.awk:5
+ msgid "The Answer Is"
+ msgstr ""
+
+ This original portable object file is saved and reused for each
+language into which the application is translated. The `msgid' is the
+original string and the `msgstr' is the translation.
+
+ *Note:* Strings not marked with a leading underscore do not appear
+in the `guide.po' file.
+
+ Next, the messages must be translated. Here is a translation to a
+hypothetical dialect of English, called "Mellow":(1)
+
+ $ cp guide.po guide-mellow.po
+ ADD TRANSLATIONS TO guide-mellow.po ...
+
+Following are the translations:
+
+ #: guide.awk:4
+ msgid "Don't Panic"
+ msgstr "Hey man, relax!"
+
+ #: guide.awk:5
+ msgid "The Answer Is"
+ msgstr "Like, the scoop is"
+
+ The next step is to make the directory to hold the binary message
+object file and then to create the `guide.mo' file. The directory
+layout shown here is standard for GNU `gettext' on GNU/Linux systems.
+Other versions of `gettext' may use a different layout:
+
+ $ mkdir en_US en_US/LC_MESSAGES
+
+ The `msgfmt' utility does the conversion from human-readable `.po'
+file to machine-readable `.mo' file. By default, `msgfmt' creates a
+file named `messages'. This file must be renamed and placed in the
+proper directory so that `gawk' can find it:
+
+ $ msgfmt guide-mellow.po
+ $ mv messages en_US/LC_MESSAGES/guide.mo
+
+ Finally, we run the program to test it:
+
+ $ gawk -f guide.awk
+ -| Hey man, relax!
+ -| Like, the scoop is 42
+ -| Pardon me, Zaphod who?
+
+ If the two replacement functions for `dcgettext' and `bindtextdomain'
+(*note `awk' Portability Issues: I18N Portability.) are in a file
+named `libintl.awk', then we can run `guide.awk' unchanged as follows:
+
+ $ gawk --posix -f guide.awk -f libintl.awk
+ -| Don't Panic
+ -| The Answer Is 42
+ -| Pardon me, Zaphod who?
+
+ ---------- Footnotes ----------
+
+ (1) Perhaps it would be better if it were called "Hippy." Ah, well.
+
+
+File: gawk.info, Node: Gawk I18N, Prev: I18N Example, Up: Internationalization
+
+`gawk' Can Speak Your Language
+==============================
+
+ As of version 3.1, `gawk' itself has been internationalized using
+the GNU `gettext' package. (GNU `gettext' is described in complete
+detail in *Note Top::.) As of this writing, the latest version of GNU
+`gettext' is version 0.10.37
+(ftp://gnudist.gnu.org/gnu/gettext/gettext-0.10.37.tar.gz).
+
+ If a translation of `gawk''s messages exists, then `gawk' produces
+usage messages, warnings, and fatal errors in the local language.
+
+ On systems that do not use version 2 (or later) of the GNU C
+library, you should configure `gawk' with the `--with-included-gettext'
+option before compiling and installing it. *Note Additional
+Configuration Options::, for more information.
+
+
+File: gawk.info, Node: Advanced Features, Next: Invoking Gawk, Prev: Internationalization, Up: Top
+
+Advanced Features of `gawk'
+***************************
+
+ Write documentation as if whoever reads it is a violent psychopath
+ who knows where you live.
+ Steve English, as quoted by Peter Langston
+
+ This major node discusses advanced features in `gawk'. It's a bit
+of a "grab bag" of items that are otherwise unrelated to each other.
+First, a command-line option allows `gawk' to recognize non-decimal
+numbers in input data, not just in `awk' programs. Next, two-way I/O,
+discussed briefly in earlier parts of this Info file, is described in
+full detail, along with the basics of TCP/IP networking and BSD portal
+files. Finally, `gawk' can "profile" an `awk' program, making it
+possible to tune it for performance.
+
+ *Note Adding New Built-in Functions to `gawk': Dynamic Extensions,
+discusses the ability to dynamically add new built-in functions to
+`gawk'. As this feature is still immature and likely to change, its
+description is relegated to an appendix.
+
+* Menu:
+
+* Non-decimal Data:: Allowing non-decimal input data.
+* Two-way I/O:: Two-way communications with another process.
+* TCP/IP Networking:: Using `gawk' for network programming.
+* Portal Files:: Using `gawk' with BSD portals.
+* Profiling:: Profiling your `awk' programs.
+
+
+File: gawk.info, Node: Non-decimal Data, Next: Two-way I/O, Prev: Advanced Features, Up: Advanced Features
+
+Allowing Non-Decimal Input Data
+===============================
+
+ If you run `gawk' with the `--non-decimal-data' option, you can have
+non-decimal constants in your input data:
- $ awk '' datafile1 datafile2
+ $ echo 0123 123 0x123 |
+ > gawk --non-decimal-data '{ printf "%d, %d, %d\n",
+ > $1, $2, $3 }'
+ -| 83, 123, 291
-Doing so makes little sense though; `awk' will simply exit silently
-when given an empty program (d.c.). If `--lint' has been specified on
-the command line, `gawk' will issue a warning that the program is empty.
+ For this feature to work, write your program so that `gawk' treats
+your data as numeric:
+
+ $ echo 0123 123 0x123 | gawk '{ print $1, $2, $3 }'
+ -| 0123 123 0x123
+
+The `print' statement treats its expressions as strings. Although the
+fields can act as numbers when necessary, they are still strings, so
+`print' does not try to treat them numerically. You may need to add
+zero to a field to force it to be treated as a number. For example:
+
+ $ echo 0123 123 0x123 | gawk --non-decimal-data '
+ > { print $1, $2, $3
+ > print $1 + 0, $2 + 0, $3 + 0 }'
+ -| 0123 123 0x123
+ -| 83 123 291
+
+ Because it is common to have decimal data with leading zeros, and
+because using it could lead to surprising results, the default is to
+leave this facility disabled. If you want it, you must explicitly
+request it.
+
+ *Caution:* _Use of this option is not recommended._ It can break old
+programs very badly. Instead, use the `strtonum' function to convert
+your data (*note Octal and Hexadecimal Numbers: Non-decimal-numbers.).
+This makes your programs easier to write and easier to read, and leads
+to less surprising results.
+
+
+File: gawk.info, Node: Two-way I/O, Next: TCP/IP Networking, Prev: Non-decimal Data, Up: Advanced Features
+
+Two-Way Communications with Another Process
+===========================================
+
+ From: brennan@whidbey.com (Mike Brennan)
+ Newsgroups: comp.lang.awk
+ Subject: Re: Learn the SECRET to Attract Women Easily
+ Date: 4 Aug 1997 17:34:46 GMT
+ Message-ID: <5s53rm$eca@news.whidbey.com>
+
+ On 3 Aug 1997 13:17:43 GMT, Want More Dates???
+ <tracy78@kilgrona.com> wrote:
+ >Learn the SECRET to Attract Women Easily
+ >
+ >The SCENT(tm) Pheromone Sex Attractant For Men to Attract Women
+
+ The scent of awk programmers is a lot more attractive to women than
+ the scent of perl programmers.
+ --
+ Mike Brennan
+
+ It is often useful to be able to send data to a separate program for
+processing and then read the result. This can always be done with
+temporary files:
+
+ # write the data for processing
+ tempfile = ("/tmp/mydata." PROCINFO["pid"])
+ while (NOT DONE WITH DATA)
+ print DATA | ("subprogram > " tempfile)
+ close("subprogram > " tempfile)
+
+ # read the results, remove tempfile when done
+ while ((getline newdata < tempfile) > 0)
+ PROCESS newdata APPROPRIATELY
+ close(tempfile)
+ system("rm " tempfile)
+
+This works, but not elegantly.
+
+ Starting with version 3.1 of `gawk', it is possible to open a
+_two-way_ pipe to another process. The second process is termed a
+"coprocess", since it runs in parallel with `gawk'. The two-way
+connection is created using the new `|&' operator (borrowed from the
+Korn Shell, `ksh'):(1)
+
+ do {
+ print DATA |& "subprogram"
+ "subprogram" |& getline results
+ } while (DATA LEFT TO PROCESS)
+ close("subprogram")
+
+ The first time an I/O operation is executed using the `|&' operator,
+`gawk' creates a two-way pipeline to a child process that runs the
+other program. Output created with `print' or `printf' is written to
+the program's standard input, and output from the program's standard
+output can be read by the `gawk' program using `getline'. As is the
+case with processes started by `|', the subprogram can be any program,
+or pipeline of programs, that can be started by the shell.
+
+ There are some cautionary items to be aware of:
+
+ * As the code inside `gawk' currently stands, the coprocess's
+ standard error goes to the same place that the parent `gawk''s
+ standard error goes. It is not possible to read the child's
+ standard error separately.
+
+ * I/O buffering may be a problem. `gawk' automatically flushes all
+ output down the pipe to the child process. However, if the
+ coprocess does not flush its output, `gawk' may hang when doing a
+ `getline' in order to read the coprocess's results. This could
+ lead to a situation known as "deadlock", where each process is
+ waiting for the other one to do something.
+
+ It is possible to close just one end of the two-way pipe to a
+coprocess, by supplying a second argument to the `close' function of
+either `"to"' or `"from"' (*note Closing Input and Output Redirections:
+Close Files And Pipes.). These strings tell `gawk' to close the end of
+the pipe that sends data to the process or the end that reads from it,
+respectively.
+
+ This is particularly necessary in order to use the system `sort'
+utility as part of a coprocess; `sort' must read _all_ of its input
+data before it can produce any output. The `sort' program does not
+receive an end-of-file indication until `gawk' closes the write end of
+the pipe.
+
+ When you have finished writing data to the `sort' utility, you can
+close the `"to"' end of the pipe, and then start reading sorted data
+via `getline'. For example:
+
+ BEGIN {
+ command = "LC_ALL=C sort"
+ n = split("abcdefghijklmnopqrstuvwxyz", a, "")
+
+ for (i = n; i > 0; i--)
+ print a[i] |& command
+ close(command, "to")
+
+ while ((command |& getline line) > 0)
+ print "got", line
+ close(command)
+ }
+
+ This program writes the letters of the alphabet in reverse order, one
+per line, down the two-way pipe to `sort'. It then closes the write
+end of the pipe, so that `sort' receives an end-of-file indication.
+This causes `sort' to sort the data and write the sorted data back to
+the `gawk' program. Once all of the data has been read, `gawk'
+terminates the coprocess and exits.
+
+ As a side note, the assignment `LC_ALL=C' in the `sort' command
+ensures traditional Unix (ASCII) sorting from `sort'.
+
+ ---------- Footnotes ----------
+
+ (1) This is very different from the same operator in the C shell,
+`csh'.
+
+
+File: gawk.info, Node: TCP/IP Networking, Next: Portal Files, Prev: Two-way I/O, Up: Advanced Features
+
+Using `gawk' for Network Programming
+====================================
+
+ `EMISTERED': A host is a host from coast to coast,
+ and no-one can talk to host that's close,
+ unless the host that isn't close
+ is busy hung or dead.
+
+ In addition to being able to open a two-way pipeline to a coprocess
+on the same system (*note Two-Way Communications with Another Process:
+Two-way I/O.), it is possible to make a two-way connection to another
+process on another system across an IP networking connection.
+
+ You can think of this as just a _very long_ two-way pipeline to a
+coprocess. The way `gawk' decides that you want to use TCP/IP
+networking is by recognizing special file names that begin with
+`/inet/'.
+
+ The full syntax of the special file name is
+`/inet/PROTOCOL/LOCAL-PORT/REMOTE-HOST/REMOTE-PORT'. The meaning of
+the components are:
+
+PROTOCOL
+ The protocol to use over IP. This must be either `tcp', `udp', or
+ `raw', for a TCP, UDP, or raw IP connection, respectively. The
+ use of TCP is recommended for most applications.
+
+ *Caution:* The use of raw sockets is not currently supported in
+ version 3.1 of `gawk'.
+
+LOCAL-PORT
+ The local TCP or UDP port number to use. Use a port number of `0'
+ when you want the system to pick a port. This is what you should do
+ when writing a TCP or UDP client. You may also use a well-known
+ service name, such as `smtp' or `http', in which case `gawk'
+ attempts to determine the pre-defined port number using the C
+ `getservbyname' function.
+
+REMOTE-HOST
+ The IP address or fully-qualified domain name of the Internet host
+ to which you want to connect.
+
+REMOTE-PORT
+ The TCP or UDP port number to use on the given REMOTE-HOST.
+ Again, use `0' if you don't care, or else a well-known service
+ name.
+
+ Consider the following very simple example:
+
+ BEGIN {
+ Service = "/inet/tcp/0/localhost/daytime"
+ Service |& getline
+ print $0
+ close(Service)
+ }
+
+ This program reads the current date and time from the local system's
+TCP `daytime' server. It then prints the results and closes the
+connection.
+
+ Because this topic is extensive, the use of `gawk' for TCP/IP
+programming is documented separately. *Note Top::, for a much more
+complete introduction and discussion, as well as extensive examples.
+
+
+File: gawk.info, Node: Portal Files, Next: Profiling, Prev: TCP/IP Networking, Up: Advanced Features
+
+Using `gawk' with BSD Portals
+=============================
+
+ Similar to the `/inet' special files, if `gawk' is configured with
+the `--enable-portals' option (*note Compiling `gawk' for Unix: Quick
+Installation.), then `gawk' treats files whose pathnames begin with
+`/p' as 4.4 BSD-style portals.
+
+ When used with the `|&' operator, `gawk' opens the file for two-way
+communications. The operating system's portal mechanism then manages
+creating the process associated with the portal and the corresponding
+communications with the portal's process.
+
+
+File: gawk.info, Node: Profiling, Prev: Portal Files, Up: Advanced Features
+
+Profiling Your `awk' Programs
+=============================
+
+ Beginning with version 3.1 of `gawk', you may produce execution
+traces of your `awk' programs. This is done with a specially compiled
+version of `gawk', called `pgawk' ("profiling `gawk'").
+
+ `pgawk' is identical in every way to `gawk', except that when it has
+finished running, it creates a profile of your program in a file named
+`awkprof.out'. Because it is profiling, it also executes up to 45
+percent slower than `gawk' normally does.
+
+ As shown in the following example, the `--profile' option can be
+used to change the name of the file where `pgawk' will write the
+profile:
+
+ $ pgawk --profile=myprog.prof -f myprog.awk data1 data2
+
+In the above example, `pgawk' places the profile in `myprog.prof'
+instead of in `awkprof.out'.
+
+ Regular `gawk' also accepts this option. When called with just
+`--profile', `gawk' "pretty prints" the program into `awkprof.out',
+without any execution counts. You may supply an option to `--profile'
+to change the file name. Here is a sample session showing a simple
+`awk' program, its input data, and the results from running `pgawk'.
+First, the `awk' program:
+
+ BEGIN { print "First BEGIN rule" }
+
+ END { print "First END rule" }
+
+ /foo/ {
+ print "matched /foo/, gosh"
+ for (i = 1; i <= 3; i++)
+ sing()
+ }
+
+ {
+ if (/foo/)
+ print "if is true"
+ else
+ print "else is true"
+ }
+
+ BEGIN { print "Second BEGIN rule" }
+
+ END { print "Second END rule" }
+
+ function sing( dummy)
+ {
+ print "I gotta be me!"
+ }
+
+ Following is the input data:
+
+ foo
+ bar
+ baz
+ foo
+ junk
+
+ Here is the `awkprof.out' that results from running `pgawk' on this
+program and data. (This example also illustrates that `awk'
+programmers sometimes have to work late.):
+
+ # gawk profile, created Sun Aug 13 00:00:15 2000
+
+ # BEGIN block(s)
+
+ BEGIN {
+ 1 print "First BEGIN rule"
+ 1 print "Second BEGIN rule"
+ }
+
+ # Rule(s)
+
+ 5 /foo/ { # 2
+ 2 print "matched /foo/, gosh"
+ 6 for (i = 1; i <= 3; i++) {
+ 6 sing()
+ }
+ }
+
+ 5 {
+ 5 if (/foo/) { # 2
+ 2 print "if is true"
+ 3 } else {
+ 3 print "else is true"
+ }
+ }
+
+ # END block(s)
+
+ END {
+ 1 print "First END rule"
+ 1 print "Second END rule"
+ }
+
+ # Functions, listed alphabetically
+
+ 6 function sing(dummy)
+ {
+ 6 print "I gotta be me!"
+ }
+
+ The previous example illustrates many of the basic rules for
+profiling output. The rules are as follows:
+
+ * The program is printed in the order `BEGIN' rule, pattern/action
+ rules, `END' rule and functions, listed alphabetically. Multiple
+ `BEGIN' and `END' rules are merged together.
+
+ * Pattern-action rules have two counts. The first count, to the
+ left of the rule, shows how many times the rule's pattern was
+ _tested_. The second count, to the right of the rule's opening
+ left brace in a comment, shows how many times the rule's action
+ was _executed_. The difference between the two indicates how many
+ times the rule's pattern evaluated to false.
+
+ * Similarly, the count for an `if'-`else' statement shows how many
+ times the condition was tested. To the right of the opening left
+ brace for the `if''s body is a count showing how many times the
+ condition was true. The count for the `else' indicates how many
+ times the test failed.
+
+ * The count for a loop header (such as `for' or `while') shows how
+ many times the loop test was executed. (Because of this, you
+ can't just look at the count on the first statement in a rule to
+ determine how many times the rule was executed. If the first
+ statement is a loop, the count is misleading.)
+
+ * For user-defined functions, the count next to the `function'
+ keyword indicates how many times the function was called. The
+ counts next to the statements in the body show how many times
+ those statements were executed.
+
+ * The layout uses "K&R" style using tabs. Braces are used
+ everywhere, even when the body of an `if', `else', or loop is only
+ a single statement.
+
+ * Parentheses are used only where needed, as indicated by the
+ structure of the program and the precedence rules. For example,
+ `(3 + 5) * 4' means add three plus five, then multiply the total
+ by four. However, `3 + 5 * 4' has no parentheses, and means `3 +
+ (5 * 4)'.
+
+ * All string concatenations are parenthesized too. (This could be
+ made a bit smarter.)
+
+ * Parentheses are used around the arguments to `print' and `printf'
+ only when the `print' or `printf' statement is followed by a
+ redirection. Similarly, if the target of a redirection isn't a
+ scalar, it gets parenthesized.
+
+ * `pgawk' supplies leading comments in front of the `BEGIN' and
+ `END' rules, the pattern/action rules, and the functions.
+
+
+ The profiled version of your program may not look exactly like what
+you typed when you wrote it. This is because `pgawk' creates the
+profiled version by "pretty printing" its internal representation of
+the program. The advantage to this is that `pgawk' can produce a
+standard representation. The disadvantage is that all source code
+comments are lost, as are the distinctions among multiple `BEGIN' and
+`END' rules. Also, things such as:
+
+ /foo/
+
+come out as:
+
+ /foo/ {
+ print $0
+ }
+
+which is correct, but possibly surprising.
+
+ Besides creating profiles when a program has completed, `pgawk' can
+produce a profile while it is running. This is useful if your `awk'
+program goes into an infinite loop and you want to see what has been
+executed. To use this feature, run `pgawk' in the background:
+
+ $ pgawk -f myprog &
+ [1] 13992
+
+The shell prints a job number and process ID number, in this case,
+13992. Use the `kill' command to send the `USR1' signal to `pgawk':
+
+ $ kill -USR1 13992
+
+As usual, the profiled version of the program is written to
+`awkprof.out', or to a different file if you use the `--profile' option.
+
+ Along with the regular profile, as shown earlier, the profile
+includes a trace of any active functions:
+
+ # Function Call Stack:
+
+ # 3. baz
+ # 2. bar
+ # 1. foo
+ # -- main --
+
+ You may send `pgawk' the `USR1' signal as many times as you like.
+Each time, the profile and function call trace are appended to the
+output profile file.
+
+ If you use the `HUP' signal instead of the `USR1' signal, `pgawk'
+produces the profile and the function call trace, and then exits.
+
+
+File: gawk.info, Node: Invoking Gawk, Next: Library Functions, Prev: Advanced Features, Up: Top
+
+Running `awk' and `gawk'
+************************
+
+ This major node covers how to run awk, both POSIX-standard and
+`gawk'-specific command-line options, and what `awk' and `gawk' do with
+non-option arguments. It then proceeds to cover how `gawk' searches
+for source files, obsolete options and/or features, and known bugs in
+`gawk'. This major node rounds out the discussion of `awk' as a
+program and as a language.
+
+ While a number of the options and features described here were
+discussed in passing earlier in the book, this major node provides the
+full details.
* Menu:
-* Options:: Command line options and their meanings.
+* Command Line:: How to run `awk'.
+* Options:: Command-line options and their meanings.
* Other Arguments:: Input file names and variable assignments.
-* AWKPATH Variable:: Searching directories for `awk' programs.
+* AWKPATH Variable:: Searching directories for `awk'
+ programs.
* Obsolete:: Obsolete Options and/or features.
* Undocumented:: Undocumented Options and Features.
* Known Bugs:: Known Bugs in `gawk'.

-File: gawk.info, Node: Options, Next: Other Arguments, Prev: Invoking Gawk, Up: Invoking Gawk
+File: gawk.info, Node: Command Line, Next: Options, Prev: Invoking Gawk, Up: Invoking Gawk
+
+Invoking `awk'
+==============
+
+ There are two ways to run `awk'--with an explicit program or with
+one or more program files. Here are templates for both of them; items
+enclosed in [...] in these templates are optional:
+
+ awk [OPTIONS] -f progfile [`--'] FILE ...
+ awk [OPTIONS] [`--'] 'PROGRAM' FILE ...
+
+ Besides traditional one-letter POSIX-style options, `gawk' also
+supports GNU long options.
+
+ It is possible to invoke `awk' with an empty program:
-Command Line Options
+ awk '' datafile1 datafile2
+
+Doing so makes little sense though; `awk' exits silently when given an
+empty program. (d.c.) If `--lint' has been specified on the
+command-line, `gawk' issues a warning that the program is empty.
+
+
+File: gawk.info, Node: Options, Next: Other Arguments, Prev: Command Line, Up: Invoking Gawk
+
+Command-Line Options
====================
- Options begin with a dash, and consist of a single character. GNU
-style long options consist of two dashes and a keyword. The keyword
-can be abbreviated, as long the abbreviation allows the option to be
-uniquely identified. If the option takes an argument, then the keyword
-is either immediately followed by an equals sign (`=') and the
-argument's value, or the keyword and the argument's value are separated
-by whitespace. For brevity, the discussion below only refers to the
-traditional short options; however the long and short options are
-interchangeable in all contexts.
+ Options begin with a dash and consist of a single character.
+GNU-style long options consist of two dashes and a keyword. The
+keyword can be abbreviated, as long as the abbreviation allows the
+option to be uniquely identified. If the option takes an argument,
+then the keyword is either immediately followed by an equals sign (`=')
+and the argument's value, or the keyword and the argument's value are
+separated by whitespace. If a particular option with a value is given
+more than once, it is the last value that counts.
Each long option for `gawk' has a corresponding POSIX-style option.
-The options and their meanings are as follows:
+The long and short options are interchangeable in all contexts. The
+options and their meanings are as follows:
`-F FS'
`--field-separator FS'
- Sets the `FS' variable to FS (*note Specifying How Fields are
+ Sets the `FS' variable to FS (*note Specifying How Fields Are
Separated: Field Separators.).
`-f SOURCE-FILE'
@@ -9156,119 +11666,177 @@ The options and their meanings are as follows:
`-v VAR=VAL'
`--assign VAR=VAL'
- Sets the variable VAR to the value VAL *before* execution of the
+ Sets the variable VAR to the value VAL _before_ execution of the
program begins. Such variable values are available inside the
- `BEGIN' rule (*note Other Command Line Arguments: Other
+ `BEGIN' rule (*note Other Command-Line Arguments: Other
Arguments.).
- The `-v' option can only set one variable, but you can use it more
+ The `-v' option can only set one variable, but it can be used more
than once, setting another variable each time, like this: `awk
-v foo=1 -v bar=2 ...'.
- *Caution:* Using `-v' to set the values of the builtin variables
- may lead to suprising results. `awk' will reset the values of
+ *Caution:* Using `-v' to set the values of the built-in variables
+ may lead to surprising results. `awk' will reset the values of
those variables as it needs to, possibly ignoring any predefined
value you may have given.
-`-mf NNN'
-`-mr NNN'
- Set various memory limits to the value NNN. The `f' flag sets the
- maximum number of fields, and the `r' flag sets the maximum record
- size. These two flags and the `-m' option are from the Bell Labs
- research version of Unix `awk'. They are provided for
- compatibility, but otherwise ignored by `gawk', since `gawk' has
- no predefined limits.
+`-mf N'
+`-mr N'
+ Set various memory limits to the value N. The `f' flag sets the
+ maximum number of fields and the `r' flag sets the maximum record
+ size. These two flags and the `-m' option are from the Bell
+ Laboratories research version of Unix `awk'. They are provided
+ for compatibility but otherwise ignored by `gawk', since `gawk'
+ has no predefined limits. (The Bell Laboratories `awk' no longer
+ needs these options; it continues to accept them to avoid breaking
+ old programs.)
`-W GAWK-OPT'
- Following the POSIX standard, options that are implementation
- specific are supplied as arguments to the `-W' option. These
- options also have corresponding GNU style long options. See below.
+ Following the POSIX standard, implementation-specific options are
+ supplied as arguments to the `-W' option. These options also have
+ corresponding GNU-style long options. Note that the long options
+ may be abbreviated, as long as the abbreviations remain unique.
+ The full list of `gawk'-specific options is provided next.
`--'
- Signals the end of the command line options. The following
+ Signals the end of the command-line options. The following
arguments are not treated as options even if they begin with `-'.
This interpretation of `--' follows the POSIX argument parsing
conventions.
This is useful if you have file names that start with `-', or in
shell scripts, if you have file names that will be specified by
- the user which could start with `-'.
+ the user that could start with `-'.
- The following `gawk'-specific options are available:
+ The previous list described options mandated by the POSIX standard,
+as well as options available in the Bell Laboratories version of `awk'.
+The following list describes `gawk'-specific options:
-`-W traditional'
`-W compat'
-`--traditional'
+`-W traditional'
`--compat'
+`--traditional'
Specifies "compatibility mode", in which the GNU extensions to the
`awk' language are disabled, so that `gawk' behaves just like the
- Bell Labs research version of Unix `awk'. `--traditional' is the
- preferred form of this option. *Note Extensions in `gawk' Not in
- POSIX `awk': POSIX/GNU, which summarizes the extensions. Also see
- *Note Downward Compatibility and Debugging: Compatibility Mode.
+ Bell Laboratories research version of Unix `awk'. `--traditional'
+ is the preferred form of this option. *Note Extensions in `gawk'
+ Not in POSIX `awk': POSIX/GNU, which summarizes the extensions.
+ Also see *Note Downward Compatibility and Debugging: Compatibility
+ Mode.
-`-W copyleft'
`-W copyright'
-`--copyleft'
`--copyright'
- Print the short version of the General Public License, and then
- exit. This option may disappear in a future version of `gawk'.
+ Print the short version of the General Public License and then
+ exit.
+
+`-W copyleft'
+`--copyleft'
+ Just like `--copyright'. This option may disappear in a future
+ version of `gawk'.
+
+`-W dump-variables[=FILE]'
+`--dump-variables[=FILE]'
+ Print a sorted list of global variables, their types, and final
+ values to FILE. If no FILE is provided, `gawk' prints this list
+ to a file named `awkvars.out' in the current directory.
+
+ Having a list of all the global variables is a good way to look for
+ typographical errors in your programs. You would also use this
+ option if you have a large program with a lot of functions, and
+ you want to be sure that your functions don't inadvertently use
+ global variables that you meant to be local. (This is a
+ particularly easy mistake to make with simple variable names like
+ `i', `j', and so on.)
+
+`-W gen-po'
+`--gen-po'
+ Analyze the source program and generate a GNU `gettext' Portable
+ Object file on standard output for all string constants that have
+ been marked for translation. *Note Internationalization with
+ `gawk': Internationalization, for information about this option.
`-W help'
`-W usage'
`--help'
`--usage'
Print a "usage" message summarizing the short and long style
- options that `gawk' accepts, and then exit.
+ options that `gawk' accepts and then exit.
-`-W lint'
-`--lint'
+`-W lint[=fatal]'
+`--lint[=fatal]'
Warn about constructs that are dubious or non-portable to other
`awk' implementations. Some warnings are issued when `gawk' first
- reads your program. Others are issued at run-time, as your
- program executes.
+ reads your program. Others are issued at runtime, as your program
+ executes. With an optional argument of `fatal', lint warnings
+ become fatal errors. This may be drastic but its use will
+ certainly encourage the development of cleaner `awk' programs.
`-W lint-old'
`--lint-old'
Warn about constructs that are not available in the original
- Version 7 Unix version of `awk' (*note Major Changes between V7
- and SVR3.1: V7/SVR3.1.).
+ version of `awk' from Version 7 Unix (*note Major Changes Between
+ V7 and SVR3.1: V7/SVR3.1.).
+
+`-W non-decimal-data'
+`--non-decimal-data'
+ Enable automatic interpretation of octal and hexadecimal values in
+ input data (*note Allowing Non-Decimal Input Data: Non-decimal
+ Data.).
+
+ *Caution:* This option can severely break old programs. Use with
+ care.
`-W posix'
`--posix'
Operate in strict POSIX mode. This disables all `gawk' extensions
- (just like `--traditional'), and adds the following additional
+ (just like `--traditional') and adds the following additional
restrictions:
* `\x' escape sequences are not recognized (*note Escape
Sequences::).
* Newlines do not act as whitespace to separate fields when
- `FS' is equal to a single space.
+ `FS' is equal to a single space (*note Examining Fields:
+ Fields.).
+
+ * Newlines are not allowed after `?' or `:' (*note Conditional
+ Expressions: Conditional Exp.).
* The synonym `func' for the keyword `function' is not
recognized (*note Function Definition Syntax: Definition
Syntax.).
- * The operators `**' and `**=' cannot be used in place of `^'
+ * The `**' and `**=' operators cannot be used in place of `^'
and `^=' (*note Arithmetic Operators: Arithmetic Ops., and
also *note Assignment Expressions: Assignment Ops.).
- * Specifying `-Ft' on the command line does not set the value
+ * Specifying `-Ft' on the command-line does not set the value
of `FS' to be a single tab character (*note Specifying How
- Fields are Separated: Field Separators.).
+ Fields Are Separated: Field Separators.).
* The `fflush' built-in function is not supported (*note
- Built-in Functions for Input/Output: I/O Functions.).
+ Input/Output Functions: I/O Functions.).
- If you supply both `--traditional' and `--posix' on the command
- line, `--posix' will take precedence. `gawk' will also issue a
+ If you supply both `--traditional' and `--posix' on the
+ command-line, `--posix' takes precedence. `gawk' also issues a
warning if both options are supplied.
+`-W profile[=FILE]'
+`--profile[=FILE]'
+ Enable profiling of `awk' programs (*note Profiling Your `awk'
+ Programs: Profiling.). By default, profiles are created in a file
+ named `awkprof.out'. The optional FILE argument allows you to
+ specify a different file name for the profile file.
+
+ When run with `gawk', the profile is just a "pretty printed"
+ version of the program. When run with `pgawk', the profile
+ contains execution counts for each statement in the program in the
+ left margin, and function call counts for each function.
+
`-W re-interval'
`--re-interval'
Allow interval expressions (*note Regular Expression Operators:
- Regexp Operators.), in regexps. Because interval expressions were
+ Regexp Operators.) in regexps. Because interval expressions were
traditionally not available in `awk', `gawk' does not provide them
by default. This prevents old `awk' programs from breaking.
@@ -9276,73 +11844,76 @@ The options and their meanings are as follows:
`--source PROGRAM-TEXT'
Program source code is taken from the PROGRAM-TEXT. This option
allows you to mix source code in files with source code that you
- enter on the command line. This is particularly useful when you
- have library functions that you wish to use from your command line
+ enter on the command-line. This is particularly useful when you
+ have library functions that you want to use from your command-line
programs (*note The `AWKPATH' Environment Variable: AWKPATH
Variable.).
`-W version'
`--version'
- Prints version information for this particular copy of `gawk'.
+ Print version information for this particular copy of `gawk'.
This allows you to determine if your copy of `gawk' is up to date
with respect to whatever the Free Software Foundation is currently
distributing. It is also useful for bug reports (*note Reporting
Problems and Bugs: Bugs.).
- Any other options are flagged as invalid with a warning message, but
-are otherwise ignored.
+ As long as program text has been supplied, any other options are
+flagged as invalid with a warning message but are otherwise ignored.
In compatibility mode, as a special case, if the value of FS supplied
to the `-F' option is `t', then `FS' is set to the tab character
-(`"\t"'). This is only true for `--traditional', and not for `--posix'
-(*note Specifying How Fields are Separated: Field Separators.).
+(`"\t"'). This is only true for `--traditional' and not for `--posix'
+(*note Specifying How Fields Are Separated: Field Separators.).
- The `-f' option may be used more than once on the command line. If
+ The `-f' option may be used more than once on the command-line. If
it is, `awk' reads its program source from all of the named files, as
if they had been concatenated together into one big file. This is
-useful for creating libraries of `awk' functions. Useful functions can
-be written once, and then retrieved from a standard place, instead of
-having to be included into each individual program.
-
- You can type in a program at the terminal and still use library
-functions, by specifying `-f /dev/tty'. `awk' will read a file from
-the terminal to use as part of the `awk' program. After typing your
-program, type `Control-d' (the end-of-file character) to terminate it.
-(You may also use `-f -' to read program source from the standard
-input, but then you will not be able to also use the standard input as a
+useful for creating libraries of `awk' functions. These functions can
+be written once and then retrieved from a standard place, instead of
+having to be included into each individual program. (As mentioned in
+*Note Function Definition Syntax: Definition Syntax, function names
+must be unique.)
+
+ Library functions can still be used, even if the program is entered
+at the terminal, by specifying `-f /dev/tty'. After typing your
+program, type `Ctrl-d' (the end-of-file character) to terminate it.
+(You may also use `-f -' to read program source from the standard input
+but then you will not be able to also use the standard input as a
source of data.)
Because it is clumsy using the standard `awk' mechanisms to mix
-source file and command line `awk' programs, `gawk' provides the
+source file and command-line `awk' programs, `gawk' provides the
`--source' option. This does not require you to pre-empt the standard
-input for your source code, and allows you to easily mix command line
+input for your source code; it allows you to easily mix command-line
and library source code (*note The `AWKPATH' Environment Variable:
AWKPATH Variable.).
- If no `-f' or `--source' option is specified, then `gawk' will use
-the first non-option command line argument as the text of the program
+ If no `-f' or `--source' option is specified, then `gawk' uses the
+first non-option command-line argument as the text of the program
source code.
If the environment variable `POSIXLY_CORRECT' exists, then `gawk'
-will behave in strict POSIX mode, exactly as if you had supplied the
-`--posix' command line option. Many GNU programs look for this
-environment variable to turn on strict POSIX mode. If you supply
-`--lint' on the command line, and `gawk' turns on POSIX mode because of
-`POSIXLY_CORRECT', then it will print a warning message indicating that
-POSIX mode is in effect.
-
- You would typically set this variable in your shell's startup file.
-For a Bourne compatible shell (such as Bash), you would add these lines
-to the `.profile' file in your home directory.
+behaves in strict POSIX mode, exactly as if you had supplied the
+`--posix' command-line option. Many GNU programs look for this
+environment variable to turn on strict POSIX mode. If `--lint' is
+supplied on the command-line and `gawk' turns on POSIX mode because of
+`POSIXLY_CORRECT', then it issues a warning message indicating that
+POSIX mode is in effect. You would typically set this variable in your
+shell's startup file. For a Bourne-compatible shell (such as `bash'),
+you would add these lines to the `.profile' file in your home directory:
POSIXLY_CORRECT=true
export POSIXLY_CORRECT
For a `csh' compatible shell,(1) you would add this line to the
-`.login' file in your home directory.
+`.login' file in your home directory:
setenv POSIXLY_CORRECT true
+ Having `POSIXLY_CORRECT' set is not recommended for daily use, but
+it is good for testing the portability of your programs to other
+environments.
+
---------- Footnotes ----------
(1) Not recommended.
@@ -9350,16 +11921,18 @@ to the `.profile' file in your home directory.

File: gawk.info, Node: Other Arguments, Next: AWKPATH Variable, Prev: Options, Up: Invoking Gawk
-Other Command Line Arguments
+Other Command-Line Arguments
============================
- Any additional arguments on the command line are normally treated as
+ Any additional arguments on the command-line are normally treated as
input files to be processed in the order specified. However, an
argument that has the form `VAR=VALUE', assigns the value VALUE to the
-variable VAR--it does not specify a file at all.
+variable VAR--it does not specify a file at all. (This was discussed
+earlier in *Note Assigning Variables on the Command Line: Assignment
+Options.)
All these arguments are made available to your `awk' program in the
-`ARGV' array (*note Built-in Variables::). Command line options and
+`ARGV' array (*note Built-in Variables::). Command-line options and
the program text (if present) are omitted from `ARGV'. All other
arguments, including variable assignments, are included. As each
element of `ARGV' is processed, `gawk' sets the variable `ARGIND' to
@@ -9367,31 +11940,32 @@ the index in `ARGV' of the current element.
The distinction between file name arguments and variable-assignment
arguments is made when `awk' is about to open the next input file. At
-that point in execution, it checks the "file name" to see whether it is
+that point in execution, it checks the file name to see whether it is
really a variable assignment; if so, `awk' sets the variable instead of
reading a file.
Therefore, the variables actually receive the given values after all
previously specified files have been read. In particular, the values of
variables assigned in this fashion are _not_ available inside a `BEGIN'
-rule (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.), since
-such rules are run before `awk' begins scanning the argument list.
+rule (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.),
+because such rules are run before `awk' begins scanning the argument
+list.
- The variable values given on the command line are processed for
-escape sequences (d.c.) (*note Escape Sequences::).
+ The variable values given on the command-line are processed for
+escape sequences (*note Escape Sequences::). (d.c.)
In some earlier implementations of `awk', when a variable assignment
occurred before any file names, the assignment would happen _before_
the `BEGIN' rule was executed. `awk''s behavior was thus inconsistent;
-some command line assignments were available inside the `BEGIN' rule,
-while others were not. However, some applications came to depend upon
-this "feature." When `awk' was changed to be more consistent, the `-v'
-option was added to accommodate applications that depended upon the old
-behavior.
+some command-line assignments were available inside the `BEGIN' rule,
+while others were not. Unfortunately, some applications came to depend
+upon this "feature." When `awk' was changed to be more consistent, the
+`-v' option was added to accommodate applications that depended upon
+the old behavior.
The variable assignment feature is most useful for assigning to
variables such as `RS', `OFS', and `ORS', which control input and
-output formats, before scanning the data files. It is also useful for
+output formats before scanning the data files. It is also useful for
controlling state if multiple passes are needed over a data file. For
example:
@@ -9408,14 +11982,13 @@ File: gawk.info, Node: AWKPATH Variable, Next: Obsolete, Prev: Other Argument
The `AWKPATH' Environment Variable
==================================
- The previous section described how `awk' program files can be named
-on the command line with the `-f' option. In most `awk'
+ The previous minor node described how `awk' program files can be
+named on the command-line with the `-f' option. In most `awk'
implementations, you must supply a precise path name for each program
-file, unless the file is in the current directory.
-
- But in `gawk', if the file name supplied to the `-f' option does not
-contain a `/', then `gawk' searches a list of directories (called the
-"search path"), one by one, looking for a file with the specified name.
+file, unless the file is in the current directory. But in `gawk', if
+the file name supplied to the `-f' option does not contain a `/', then
+`gawk' searches a list of directories (called the "search path"), one
+by one, looking for a file with the specified name.
The search path is a string consisting of directory names separated
by colons. `gawk' gets its search path from the `AWKPATH' environment
@@ -9424,40 +11997,44 @@ which is `.:/usr/local/share/awk'.(1) (Programs written for use by
system administrators should use an `AWKPATH' variable that does not
include the current directory, `.'.)
- The search path feature is particularly useful for building up
-libraries of useful `awk' functions. The library files can be placed
-in a standard directory that is in the default path, and then specified
-on the command line with a short file name. Otherwise, the full file
-name would have to be typed for each file.
+ The search path feature is particularly useful for building libraries
+of useful `awk' functions. The library files can be placed in a
+standard directory in the default path and then specified on the
+command-line with a short file name. Otherwise, the full file name
+would have to be typed for each file.
- By using both the `--source' and `-f' options, your command line
+ By using both the `--source' and `-f' options, your command-line
`awk' programs can use facilities in `awk' library files. *Note A
-Library of `awk' Functions: Library Functions.
-
- Path searching is not done if `gawk' is in compatibility mode. This
-is true for both `--traditional' and `--posix'. *Note Command Line
-Options: Options.
+Library of `awk' Functions: Library Functions. Path searching is not
+done if `gawk' is in compatibility mode. This is true for both
+`--traditional' and `--posix'. *Note Command-Line Options: Options.
- *Note:* if you want files in the current directory to be found, you
+ *Note:* If you want files in the current directory to be found, you
must include the current directory in the path, either by including `.'
-explicitly in the path, or by writing a null entry in the path. (A
-null entry is indicated by starting or ending the path with a colon, or
-by placing two colons next to each other (`::').) If the current
+explicitly in the path or by writing a null entry in the path. (A null
+entry is indicated by starting or ending the path with a colon or by
+placing two colons next to each other (`::').) If the current
directory is not included in the path, then files cannot be found in
the current directory. This path search mechanism is identical to the
shell's.
Starting with version 3.0, if `AWKPATH' is not defined in the
-environment, `gawk' will place its default search path into
+environment, `gawk' places its default search path into
`ENVIRON["AWKPATH"]'. This makes it easy to determine the actual search
-path `gawk' will use.
+path that `gawk' will use from within an `awk' program.
+
+ While you can change `ENVIRON["AWKPATH"]' within your `awk' program,
+this has no effect on the running program's behavior. This makes
+sense: the `AWKPATH' environment variable is used to find the program
+source files. Once your program is running, all the files have been
+found, and `gawk' no longer needs to use `AWKPATH'.
---------- Footnotes ----------
(1) Your version of `gawk' may use a different directory; it will
-depend upon how `gawk' was built and installed. The actual directory
-will be the value of `$(datadir)' generated when `gawk' was configured.
-You probably don't need to worry about this though.
+depend upon how `gawk' was built and installed. The actual directory is
+the value of `$(datadir)' generated when `gawk' was configured. You
+probably don't need to worry about this though.

File: gawk.info, Node: Obsolete, Next: Undocumented, Prev: AWKPATH Variable, Up: Invoking Gawk
@@ -9465,15 +12042,23 @@ File: gawk.info, Node: Obsolete, Next: Undocumented, Prev: AWKPATH Variable,
Obsolete Options and/or Features
================================
- This section describes features and/or command line options from
+ This minor node describes features and/or command-line options from
previous releases of `gawk' that are either not available in the
-current version, or that are still supported but deprecated (meaning
-that they will _not_ be in the next release).
-
- For version 3.0.6 of `gawk', there are no command line options or
-other deprecated features from the previous version of `gawk'. This
-node is thus essentially a place holder, in case some option becomes
-obsolete in a future version of `gawk'.
+current version or that are still supported but deprecated (meaning that
+they will _not_ be in the next release).
+
+ For version 3.1 of `gawk', there are no deprecated command-line
+options from the previous version of `gawk'. The use of `next file'
+(two words) for `nextfile' was deprecated in `gawk' 3.0 but still
+worked. Starting with version 3.1, the two word usage is no longer
+accepted.
+
+ The process-related special files described in *Note Special Files
+for Process-Related Information: Special Process, work as described, but
+are now considered deprecated. `gawk' prints a warning message every
+time they are used. (Use `PROCINFO' instead; see *Note Built-in
+Variables That Convey Information: Auto-set.) They will be removed
+from the next release of `gawk'.

File: gawk.info, Node: Undocumented, Next: Known Bugs, Prev: Obsolete, Up: Invoking Gawk
@@ -9484,9 +12069,7 @@ Undocumented Options and Features
Use the Source, Luke!
Obi-Wan
-
-
- This section intentionally left blank.
+ This minor node intentionally left blank.

File: gawk.info, Node: Known Bugs, Prev: Undocumented, Up: Invoking Gawk
@@ -9494,24 +12077,15 @@ File: gawk.info, Node: Known Bugs, Prev: Undocumented, Up: Invoking Gawk
Known Bugs in `gawk'
====================
- * The `-F' option for changing the value of `FS' (*note Command Line
- Options: Options.) is not necessary given the command line
+ * The `-F' option for changing the value of `FS' (*note Command-Line
+ Options: Options.) is not necessary given the command-line
variable assignment feature; it remains only for backwards
compatibility.
- * If your system actually has support for `/dev/fd' and the
- associated `/dev/stdin', `/dev/stdout', and `/dev/stderr' files,
- you may get different output from `gawk' than you would get on a
- system without those files. When `gawk' interprets these files
- internally, it synchronizes output to the standard output with
- output to `/dev/stdout', while on a system with those files, the
- output is actually to different open files (*note Special File
- Names in `gawk': Special Files.).
-
* Syntactically invalid single character programs tend to overflow
the parse stack, generating a rather unhelpful message. Such
programs are surprisingly difficult to diagnose in the completely
- general case, and the effort to do so really is not worth it.
+ general case and the effort to do so really is not worth it.

File: gawk.info, Node: Library Functions, Next: Sample Programs, Prev: Invoking Gawk, Up: Top
@@ -9519,10 +12093,21 @@ File: gawk.info, Node: Library Functions, Next: Sample Programs, Prev: Invoki
A Library of `awk' Functions
****************************
- This chapter presents a library of useful `awk' functions. The
-sample programs presented later (*note Practical `awk' Programs: Sample
-Programs.) use these functions. The functions are presented here in a
-progression from simple to complex.
+ *Note User-Defined Functions: User-defined, describes how to write
+your own `awk' functions. Writing functions is important, because it
+allows you to encapsulate algorithms and program tasks in a single
+place. It simplifies programming, making program development more
+manageable, and making programs more readable.
+
+ One valuable way to learn a new programming language is to _read_
+programs in that language. To that end, this major node and *Note
+Practical `awk' Programs: Sample Programs, provide a good-sized body of
+code for you to read, and hopefully, to learn from.
+
+ This major node presents a library of useful `awk' functions. Many
+of the sample programs presented later in this Info file use these
+functions. The functions are presented here in a progression from
+simple to complex.
*Note Extracting Programs from Texinfo Source Files: Extract Program,
presents a program that you can use to extract the source code for
@@ -9531,122 +12116,206 @@ for this Info file. (This has already been done as part of the `gawk'
distribution.)
If you have written one or more useful, general purpose `awk'
-functions, and would like to contribute them for a subsequent edition
-of this Info file, please contact the author. *Note Reporting Problems
-and Bugs: Bugs, for information on doing this. Don't just send code,
-as you will be required to either place your code in the public domain,
-publish it under the GPL (*note GNU GENERAL PUBLIC LICENSE: Copying.),
-or assign the copyright in it to the Free Software Foundation.
+functions and would like to contribute them to the author's collection
+of `awk' programs, see *Note How to Contribute: How To Contribute, for
+more information.
+
+ The programs in this major node and in *Note Practical `awk'
+Programs: Sample Programs, freely use features that are `gawk'-specific.
+It is straightforward to rewrite these programs for different
+implementations of `awk'.
+
+ Diagnostic error messages are sent to `/dev/stderr'. Use `| "cat
+1>&2"' instead of `> "/dev/stderr"', if your system does not have a
+`/dev/stderr' or if you cannot use `gawk'.
+
+ A number of programs use `nextfile' (*note Using `gawk''s `nextfile'
+Statement: Nextfile Statement.) to skip any remaining input in the
+input file. *Note Implementing `nextfile' as a Function: Nextfile
+Function, shows you how to write a function that does the same thing.
+
+ Finally, some of the programs choose to ignore upper- and lowercase
+distinctions in their input. They do so by assigning one to
+`IGNORECASE'. You can achieve almost the same effect(1) by adding the
+following rule to the beginning of the program:
+
+ # ignore case
+ { $0 = tolower($0) }
+
+Also, verify that all regexp and string constants used in comparisons
+only use lowercase letters.
* Menu:
-* Portability Notes:: What to do if you don't have `gawk'.
-* Nextfile Function:: Two implementations of a `nextfile'
- function.
-* Assert Function:: A function for assertions in `awk'
- programs.
-* Round Function:: A function for rounding if `sprintf' does
- not do it correctly.
-* Ordinal Functions:: Functions for using characters as numbers and
- vice versa.
-* Join Function:: A function to join an array into a string.
-* Mktime Function:: A function to turn a date into a timestamp.
-* Gettimeofday Function:: A function to get formatted times.
-* Filetrans Function:: A function for handling data file transitions.
-* Getopt Function:: A function for processing command line
+* Library Names:: How to best name private global variables in
+ library functions.
+* General Functions:: Functions that are of general use.
+* Data File Management:: Functions for managing command-line data
+ files.
+* Getopt Function:: A function for processing command-line
arguments.
* Passwd Functions:: Functions for getting user information.
* Group Functions:: Functions for getting group information.
-* Library Names:: How to best name private global variables in
- library functions.
+
+ ---------- Footnotes ----------
+
+ (1) The effects are not identical. Output of the transformed record
+will be in all lowercase, while `IGNORECASE' preserves the original
+contents of the input record.

-File: gawk.info, Node: Portability Notes, Next: Nextfile Function, Prev: Library Functions, Up: Library Functions
+File: gawk.info, Node: Library Names, Next: General Functions, Prev: Library Functions, Up: Library Functions
-Simulating `gawk'-specific Features
-===================================
+Naming Library Function Global Variables
+========================================
- The programs in this chapter and in *Note Practical `awk' Programs:
-Sample Programs, freely use features that are specific to `gawk'. This
-section briefly discusses how you can rewrite these programs for
-different implementations of `awk'.
+ Due to the way the `awk' language evolved, variables are either
+"global" (usable by the entire program) or "local" (usable just by a
+specific function). There is no intermediate state analogous to
+`static' variables in C.
- Diagnostic error messages are sent to `/dev/stderr'. Use `| "cat
-1>&2"' instead of `> "/dev/stderr"', if your system does not have a
-`/dev/stderr', or if you cannot use `gawk'.
+ Library functions often need to have global variables that they can
+use to preserve state information between calls to the function--for
+example, `getopt''s variable `_opti' (*note Processing Command-Line
+Options: Getopt Function.). Such variables are called "private", since
+the only functions that need to use them are the ones in the library.
- A number of programs use `nextfile' (*note The `nextfile' Statement:
-Nextfile Statement.), to skip any remaining input in the input file.
-*Note Implementing `nextfile' as a Function: Nextfile Function, shows
-you how to write a function that will do the same thing.
+ When writing a library function, you should try to choose names for
+your private variables that will not conflict with any variables used by
+either another library function or a user's main program. For example,
+a name like `i' or `j' is not a good choice, because user programs
+often use variable names like these for their own purposes.
- Finally, some of the programs choose to ignore upper-case and
-lower-case distinctions in their input. They do this by assigning one
-to `IGNORECASE'. You can achieve the same effect by adding the
-following rule to the beginning of the program:
+ The example programs shown in this major node all start the names of
+their private variables with an underscore (`_'). Users generally
+don't use leading underscores in their variable names, so this
+convention immediately decreases the chances that the variable name
+will be accidentally shared with the user's program.
- # ignore case
- { $0 = tolower($0) }
+ In addition, several of the library functions use a prefix that helps
+indicate what function or set of functions use the variables--for
+example, `_pw_byname' in the user database routines (*note Reading the
+User Database: Passwd Functions.). This convention is recommended,
+since it even further decreases the chance of inadvertent conflict
+among variable names. Note that this convention is used equally well
+for variable names and for private function names as well.(1)
-Also, verify that all regexp and string constants used in comparisons
-only use lower-case letters.
+ As a final note on variable naming, if a function makes global
+variables available for use by a main program, it is a good convention
+to start that variable's name with a capital letter--for example,
+`getopt''s `Opterr' and `Optind' variables (*note Processing
+Command-Line Options: Getopt Function.). The leading capital letter
+indicates that it is global, while the fact that the variable name is
+not all capital letters indicates that the variable is not one of
+`awk''s built-in variables, such as `FS'.
+
+ It is also important that _all_ variables in library functions that
+do not need to save state are, in fact, declared local.(2) If this is
+not done, the variable could accidentally be used in the user's
+program, leading to bugs that are very difficult to track down:
+
+ function lib_func(x, y, l1, l2)
+ {
+ ...
+ USE VARIABLE some_var # some_var should be local
+ ... # but is not by oversight
+ }
+
+ A different convention, common in the Tcl community, is to use a
+single associative array to hold the values needed by the library
+function(s), or "package." This significantly decreases the number of
+actual global names in use. For example, the functions described in
+*Note Reading the User Database: Passwd Functions, might have used
+array elements `PW_data["inited"]', `PW_data["total"]',
+`PW_data["count"]', and `PW_data["awklib"]', instead of `_pw_inited',
+`_pw_awklib', `_pw_total', and `_pw_count'.
+
+ The conventions presented in this minor node are exactly that:
+conventions. You are not required to write your programs this way--we
+merely recommend that you do so.
+
+ ---------- Footnotes ----------
+
+ (1) While all the library routines could have been rewritten to use
+this convention, this was not done, in order to show how my own `awk'
+programming style has evolved, and to provide some basis for this
+discussion.
+
+ (2) `gawk''s `--dump-variables' command-line option is useful for
+verifying this.

-File: gawk.info, Node: Nextfile Function, Next: Assert Function, Prev: Portability Notes, Up: Library Functions
+File: gawk.info, Node: General Functions, Next: Data File Management, Prev: Library Names, Up: Library Functions
+
+General Programming
+===================
+
+ This minor node presents a number of functions that are of general
+programming use.
+
+* Menu:
+
+* Nextfile Function:: Two implementations of a `nextfile'
+ function.
+* Assert Function:: A function for assertions in `awk'
+ programs.
+* Round Function:: A function for rounding if `sprintf' does
+ not do it correctly.
+* Cliff Random Function:: The Cliff Random Number Generator.
+* Ordinal Functions:: Functions for using characters as numbers and
+ vice versa.
+* Join Function:: A function to join an array into a string.
+* Gettimeofday Function:: A function to get formatted times.
+
+
+File: gawk.info, Node: Nextfile Function, Next: Assert Function, Prev: General Functions, Up: General Functions
Implementing `nextfile' as a Function
-=====================================
+-------------------------------------
- The `nextfile' statement presented in *Note The `nextfile'
-Statement: Nextfile Statement, is a `gawk'-specific extension. It is
-not available in other implementations of `awk'. This section shows
-two versions of a `nextfile' function that you can use to simulate
-`gawk''s `nextfile' statement if you cannot use `gawk'.
+ The `nextfile' statement presented in *Note Using `gawk''s
+`nextfile' Statement: Nextfile Statement, is a `gawk'-specific
+extension--it is not available in most other implementations of `awk'.
+This minor node shows two versions of a `nextfile' function that you
+can use to simulate `gawk''s `nextfile' statement if you cannot use
+`gawk'.
- Here is a first attempt at writing a `nextfile' function.
+ A first attempt at writing a `nextfile' function is as follows:
# nextfile --- skip remaining records in current file
-
# this should be read in before the "main" awk program
function nextfile() { _abandon_ = FILENAME; next }
-
_abandon_ == FILENAME { next }
- This file should be included before the main program, because it
-supplies a rule that must be executed first. This rule compares the
-current data file's name (which is always in the `FILENAME' variable)
-to a private variable named `_abandon_'. If the file name matches,
-then the action part of the rule executes a `next' statement, to go on
-to the next record. (The use of `_' in the variable name is a
-convention. It is discussed more fully in *Note Naming Library
-Function Global Variables: Library Names.)
+ Because it supplies a rule that must be executed first, this file
+should be included before the main program. This rule compares the
+current data file's name (which is always in the `FILENAME' variable) to
+a private variable named `_abandon_'. If the file name matches, then
+the action part of the rule executes a `next' statement to go on to the
+next record. (The use of `_' in the variable name is a convention. It
+is discussed more fully in *Note Naming Library Function Global
+Variables: Library Names.)
The use of the `next' statement effectively creates a loop that reads
-all the records from the current data file. Eventually, the end of the
-file is reached, and a new data file is opened, changing the value of
+all the records from the current data file. The end of the file is
+eventually reached and a new data file is opened, changing the value of
`FILENAME'. Once this happens, the comparison of `_abandon_' to
-`FILENAME' fails, and execution continues with the first rule of the
+`FILENAME' fails and execution continues with the first rule of the
"real" program.
The `nextfile' function itself simply sets the value of `_abandon_'
-and then executes a `next' statement to start the loop going.(1)
-
- This initial version has a subtle problem. What happens if the same
-data file is listed _twice_ on the command line, one right after the
-other, or even with just a variable assignment between the two
-occurrences of the file name?
+and then executes a `next' statement to start the loop.
- In such a case, this code will skip right through the file, a second
-time, even though it should stop when it gets to the end of the first
-occurrence. Here is a second version of `nextfile' that remedies this
-problem.
+ This initial version has a subtle problem. If the same data file is
+listed _twice_ on the commandline, one right after the other or even
+with just a variable assignment between them, this code skips right
+through the file, a second time, even though it should stop when it
+gets to the end of the first occurrence. A second version of
+`nextfile' that remedies this problem is shown here:
# nextfile --- skip remaining records in current file
# correctly handle successive occurrences of the same file
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May, 1993
-
# this should be read in before the "main" awk program
function nextfile() { _abandon_ = FILENAME; next }
@@ -9658,56 +12327,46 @@ problem.
next
}
- The `nextfile' function has not changed. It sets `_abandon_' equal
-to the current file name and then executes a `next' satement. The
-`next' statement reads the next record and increments `FNR', so `FNR'
-is guaranteed to have a value of at least two. However, if `nextfile'
-is called for the last record in the file, then `awk' will close the
-current data file and move on to the next one. Upon doing so,
-`FILENAME' will be set to the name of the new file, and `FNR' will be
-reset to one. If this next file is the same as the previous one,
-`_abandon_' will still be equal to `FILENAME'. However, `FNR' will be
-equal to one, telling us that this is a new occurrence of the file, and
-not the one we were reading when the `nextfile' function was executed.
-In that case, `_abandon_' is reset to the empty string, so that further
-executions of this rule will fail (until the next time that `nextfile'
-is called).
-
- If `FNR' is not one, then we are still in the original data file,
-and the program executes a `next' statement to skip through it.
-
- An important question to ask at this point is: "Given that the
+ The `nextfile' function has not changed. It makes `_abandon_' equal
+to the current file name and then executes a `next' statement. The
+`next' statement reads the next record and increments `FNR' so that
+`FNR' is guaranteed to have a value of at least two. However, if
+`nextfile' is called for the last record in the file, then `awk' closes
+the current data file and moves on to the next one. Upon doing so,
+`FILENAME' is set to the name of the new file and `FNR' is reset to
+one. If this next file is the same as the previous one, `_abandon_' is
+still equal to `FILENAME'. However, `FNR' is equal to one, telling us
+that this is a new occurrence of the file and not the one we were
+reading when the `nextfile' function was executed. In that case,
+`_abandon_' is reset to the empty string, so that further executions of
+this rule fail (until the next time that `nextfile' is called).
+
+ If `FNR' is not one, then we are still in the original data file and
+the program executes a `next' statement to skip through it.
+
+ An important question to ask at this point is: given that the
functionality of `nextfile' can be provided with a library file, why is
-it built into `gawk'?" This is an important question. Adding features
-for little reason leads to larger, slower programs that are harder to
-maintain.
-
- The answer is that building `nextfile' into `gawk' provides
-significant gains in efficiency. If the `nextfile' function is executed
-at the beginning of a large data file, `awk' still has to scan the
-entire file, splitting it up into records, just to skip over it. The
-built-in `nextfile' can simply close the file immediately and proceed
-to the next one, saving a lot of time. This is particularly important
-in `awk', since `awk' programs are generally I/O bound (i.e. they
-spend most of their time doing input and output, instead of performing
-computations).
-
- ---------- Footnotes ----------
-
- (1) Some implementations of `awk' do not allow you to execute `next'
-from within a function body. Some other work-around will be necessary
-if you use such a version.
+it built into `gawk'? Adding features for little reason leads to
+larger, slower programs that are harder to maintain. The answer is
+that building `nextfile' into `gawk' provides significant gains in
+efficiency. If the `nextfile' function is executed at the beginning of
+a large data file, `awk' still has to scan the entire file, splitting
+it up into records, just to skip over it. The built-in `nextfile' can
+simply close the file immediately and proceed to the next one, which
+saves a lot of time. This is particularly important in `awk', because
+`awk' programs are generally I/O-bound (i.e., they spend most of their
+time doing input and output, instead of performing computations).

-File: gawk.info, Node: Assert Function, Next: Round Function, Prev: Nextfile Function, Up: Library Functions
+File: gawk.info, Node: Assert Function, Next: Round Function, Prev: Nextfile Function, Up: General Functions
Assertions
-==========
+----------
- When writing large programs, it is often useful to be able to know
-that a condition or set of conditions is true. Before proceeding with a
+ When writing large programs, it is often useful to know that a
+condition or set of conditions is true. Before proceeding with a
particular computation, you make a statement about what you believe to
-be the case. Such a statement is known as an "assertion." The C
+be the case. Such a statement is known as an "assertion". The C
language provides an `<assert.h>' header file and corresponding
`assert' macro that the programmer can use to make assertions. If an
assertion fails, the `assert' macro arranges to print a diagnostic
@@ -9718,24 +12377,20 @@ not, and then it kills the program. In C, using `assert' looks this:
int myfunc(int a, double b)
{
- assert(a <= 5 && b >= 17);
+ assert(a <= 5 && b >= 17.1);
...
}
- If the assertion failed, the program would print a message similar to
-this:
+ If the assertion fails, the program prints a message similar to this:
- prog.c:5: assertion failed: a <= 5 && b >= 17
+ prog.c:5: assertion failed: a <= 5 && b >= 17.1
- The ANSI C language makes it possible to turn the condition into a
-string for use in printing the diagnostic message. This is not
-possible in `awk', so this `assert' function also requires a string
-version of the condition that is being tested.
+ The C language makes it possible to turn the condition into a string
+for use in printing the diagnostic message. This is not possible in
+`awk', so this `assert' function also requires a string version of the
+condition that is being tested. Following is the function:
# assert --- assert that a condition is true. Otherwise exit.
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May, 1993
-
function assert(condition, string)
{
if (! condition) {
@@ -9754,60 +12409,57 @@ version of the condition that is being tested.
The `assert' function tests the `condition' parameter. If it is
false, it prints a message to standard error, using the `string'
parameter to describe the failed condition. It then sets the variable
-`_assert_exit' to one, and executes the `exit' statement. The `exit'
+`_assert_exit' to one and executes the `exit' statement. The `exit'
statement jumps to the `END' rule. If the `END' rules finds
-`_assert_exit' to be true, then it exits immediately.
-
- The purpose of the `END' rule with its test is to keep any other
-`END' rules from running. When an assertion fails, the program should
-exit immediately. If no assertions fail, then `_assert_exit' will
-still be false when the `END' rule is run normally, and the rest of the
-program's `END' rules will execute. For all of this to work correctly,
-`assert.awk' must be the first source file read by `awk'.
+`_assert_exit' to be true, it then exits immediately.
- You would use this function in your programs this way:
+ The purpose of the test in the `END' rule is to keep any other `END'
+rules from running. When an assertion fails, the program should exit
+immediately. If no assertions fail, then `_assert_exit' is still false
+when the `END' rule is run normally, and the rest of the program's
+`END' rules execute. For all of this to work correctly, `assert.awk'
+must be the first source file read by `awk'. The function can be used
+in a program in the following way:
function myfunc(a, b)
{
- assert(a <= 5 && b >= 17, "a <= 5 && b >= 17")
+ assert(a <= 5 && b >= 17.1, "a <= 5 && b >= 17.1")
...
}
-If the assertion failed, you would see a message like this:
+If the assertion fails, you see a message similar to the following:
- mydata:1357: assertion failed: a <= 5 && b >= 17
+ mydata:1357: assertion failed: a <= 5 && b >= 17.1
- There is a problem with this version of `assert', that it may not be
-possible to work around with standard `awk'. An `END' rule is
-automatically added to the program calling `assert'. Normally, if a
-program consists of just a `BEGIN' rule, the input files and/or
+ There is a small problem with this version of `assert'. An `END'
+rule is automatically added to the program calling `assert'. Normally,
+if a program consists of just a `BEGIN' rule, the input files and/or
standard input are not read. However, now that the program has an `END'
-rule, `awk' will attempt to read the input data files, or standard input
+rule, `awk' attempts to read the input data files or standard input
(*note Startup and Cleanup Actions: Using BEGIN/END.), most likely
-causing the program to hang, waiting for input.
+causing the program to hang as it waits for input.
+
+ There is a simple workaround to this: make sure the `BEGIN' rule
+always ends with an `exit' statement.

-File: gawk.info, Node: Round Function, Next: Ordinal Functions, Prev: Assert Function, Up: Library Functions
+File: gawk.info, Node: Round Function, Next: Cliff Random Function, Prev: Assert Function, Up: General Functions
Rounding Numbers
-================
+----------------
The way `printf' and `sprintf' (*note Using `printf' Statements for
-Fancier Printing: Printf.) do rounding will often depend upon the
+Fancier Printing: Printf.) perform rounding often depends upon the
system's C `sprintf' subroutine. On many machines, `sprintf' rounding
is "unbiased," which means it doesn't always round a trailing `.5' up,
contrary to naive expectations. In unbiased rounding, `.5' rounds to
even, rather than always up, so 1.5 rounds to 2 but 4.5 rounds to 4.
-The result is that if you are using a format that does rounding (e.g.,
-`"%.0f"') you should check what your system does. The following
+This means that if you are using a format that does rounding (e.g.,
+`"%.0f"'), you should check what your system does. The following
function does traditional rounding; it might be useful if your awk's
-`printf' does unbiased rounding.
+`printf' does unbiased rounding:
# round --- do normal rounding
- #
- # Arnold Robbins, arnold@gnu.org, August, 1996
- # Public Domain
-
function round(x, ival, aval, fraction)
{
ival = int(x) # integer part, int() truncates
@@ -9837,10 +12489,41 @@ function does traditional rounding; it might be useful if your awk's
{ print $0, round($0) }

-File: gawk.info, Node: Ordinal Functions, Next: Join Function, Prev: Round Function, Up: Library Functions
+File: gawk.info, Node: Cliff Random Function, Next: Ordinal Functions, Prev: Round Function, Up: General Functions
+
+The Cliff Random Number Generator
+---------------------------------
+
+ The Cliff random number generator(1) is a very simple random number
+generator that "passes the noise sphere test for randomness by showing
+no structure." It is easily programmed, in less than 10 lines of `awk'
+code:
+
+ # cliff_rand.awk --- generate Cliff random numbers
+ BEGIN { _cliff_seed = 0.1 }
+
+ function cliff_rand()
+ {
+ _cliff_seed = (100 * log(_cliff_seed)) % 1
+ if (_cliff_seed < 0)
+ _cliff_seed = - _cliff_seed
+ return _cliff_seed
+ }
+
+ This algorithm requires an initial "seed" of 0.1. Each new value
+uses the current seed as input for the calculation. If the built-in
+`rand' function (*note Numeric Functions::) isn't random enough, you
+might try using this function instead.
+
+ ---------- Footnotes ----------
+
+ (1) `http://mathworld.wolfram.com/CliffRandomNumberGenerator.hmtl'
+
+
+File: gawk.info, Node: Ordinal Functions, Next: Join Function, Prev: Cliff Random Function, Up: General Functions
Translating Between Characters and Numbers
-==========================================
+------------------------------------------
One commercial implementation of `awk' supplies a built-in function,
`ord', which takes a character and returns the numeric value for that
@@ -9849,23 +12532,14 @@ character in the machine's character set. If the string passed to
The inverse of this function is `chr' (from the function of the same
name in Pascal), which takes a number and returns the corresponding
-character.
-
- Both functions can be written very nicely in `awk'; there is no real
-reason to build them into the `awk' interpreter.
+character. Both functions are written very nicely in `awk'; there is
+no real reason to build them into the `awk' interpreter:
# ord.awk --- do ord and chr
- #
+
# Global identifiers:
# _ord_: numerical values indexed by characters
# _ord_init: function to initialize _ord_
- #
- # Arnold Robbins
- # arnold@gnu.org
- # Public Domain
- # 16 January, 1992
- # 20 July, 1992, revised
-
BEGIN { _ord_init() }
function _ord_init( low, high, i, t)
@@ -9891,15 +12565,15 @@ reason to build them into the `awk' interpreter.
Some explanation of the numbers used by `chr' is worthwhile. The
most prominent character set in use today is ASCII. Although an
-eight-bit byte can hold 256 distinct values (from zero to 255), ASCII
-only defines characters that use the values from zero to 127.(1) At
-least one computer manufacturer that we know of uses ASCII, but with
-mark parity, meaning that the leftmost bit in the byte is always one.
-What this means is that on those systems, characters have numeric
-values from 128 to 255. Finally, large mainframe systems use the
-EBCDIC character set, which uses all 256 values. While there are other
+eight-bit byte can hold 256 distinct values (from 0 to 255), ASCII only
+defines characters that use the values from 0 to 127.(1) In the now
+distant past, at least one minicomputer manufacturer used ASCII, but
+with mark parity, meaning that the leftmost bit in the byte is always
+1. This means that on those systems, characters have numeric values
+from 128 to 255. Finally, large mainframe systems use the EBCDIC
+character set, which uses all 256 values. While there are other
character sets in use on some older systems, they are not really worth
-worrying about.
+worrying about:
function ord(str, c)
{
@@ -9925,25 +12599,23 @@ worrying about.
# }
# }
- An obvious improvement to these functions would be to move the code
-for the `_ord_init' function into the body of the `BEGIN' rule. It was
-written this way initially for ease of development.
-
- There is a "test program" in a `BEGIN' rule, for testing the
-function. It is commented out for production use.
+ An obvious improvement to these functions is to move the code for the
+`_ord_init' function into the body of the `BEGIN' rule. It was written
+this way initially for ease of development. There is a "test program"
+in a `BEGIN' rule, to test the function. It is commented out for
+production use.
---------- Footnotes ----------
(1) ASCII has been extended in many countries to use the values from
128 to 255 for country-specific characters. If your system uses these
-extensions, you can simplify `_ord_init' to simply loop from zero to
-255.
+extensions, you can simplify `_ord_init' to simply loop from 0 to 255.

-File: gawk.info, Node: Join Function, Next: Mktime Function, Prev: Ordinal Functions, Up: Library Functions
+File: gawk.info, Node: Join Function, Next: Gettimeofday Function, Prev: Ordinal Functions, Up: General Functions
-Merging an Array Into a String
-==============================
+Merging an Array into a String
+------------------------------
When doing string processing, it is often useful to be able to join
all the strings in an array into one long string. The following
@@ -9951,18 +12623,15 @@ function, `join', accomplishes this task. It is used later in several
of the application programs (*note Practical `awk' Programs: Sample
Programs.).
- Good function design is important; this function needs to be
-general, but it should also have a reasonable default behavior. It is
-called with an array and the beginning and ending indices of the
+ Good function design is important; this function needs to be general
+but it should also have a reasonable default behavior. It is called
+with an array as well as the beginning and ending indices of the
elements in the array to be merged. This assumes that the array
indices are numeric--a reasonable assumption since the array was likely
-created with `split' (*note Built-in Functions for String Manipulation:
-String Functions.).
+created with `split' (*note String Manipulation Functions: String
+Functions.):
# join.awk --- join an array into a string
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
function join(array, start, end, sep, result, i)
{
if (sep == "")
@@ -9977,318 +12646,38 @@ String Functions.).
An optional additional argument is the separator to use when joining
the strings back together. If the caller supplies a non-empty value,
-`join' uses it. If it is not supplied, it will have a null value. In
-this case, `join' uses a single blank as a default separator for the
+`join' uses it; if it is not supplied, it has a null value. In this
+case, `join' uses a single blank as a default separator for the
strings. If the value is equal to `SUBSEP', then `join' joins the
strings with no separator between them. `SUBSEP' serves as a "magic"
value to indicate that there should be no separation between the
-component strings.
-
- It would be nice if `awk' had an assignment operator for
-concatenation. The lack of an explicit operator for concatenation
-makes string operations more difficult than they really need to be.
-
-
-File: gawk.info, Node: Mktime Function, Next: Gettimeofday Function, Prev: Join Function, Up: Library Functions
-
-Turning Dates Into Timestamps
-=============================
-
- The `systime' function built in to `gawk' returns the current time
-of day as a timestamp in "seconds since the Epoch." This timestamp can
-be converted into a printable date of almost infinitely variable format
-using the built-in `strftime' function. (For more information on
-`systime' and `strftime', *note Functions for Dealing with Time Stamps:
-Time Functions..)
-
- An interesting but difficult problem is to convert a readable
-representation of a date back into a timestamp. The ANSI C library
-provides a `mktime' function that does the basic job, converting a
-canonical representation of a date into a timestamp.
-
- It would appear at first glance that `gawk' would have to supply a
-`mktime' built-in function that was simply a "hook" to the C language
-version. In fact though, `mktime' can be implemented entirely in
-`awk'.(1)
-
- Here is a version of `mktime' for `awk'. It takes a simple
-representation of the date and time, and converts it into a timestamp.
-
- The code is presented here intermixed with explanatory prose. In
-*Note Extracting Programs from Texinfo Source Files: Extract Program,
-you will see how the Texinfo source file for this Info file can be
-processed to extract the code into a single source file.
-
- The program begins with a descriptive comment and a `BEGIN' rule
-that initializes a table `_tm_months'. This table is a two-dimensional
-array that has the lengths of the months. The first index is zero for
-regular years, and one for leap years. The values are the same for all
-the months in both kinds of years, except for February; thus the use of
-multiple assignment.
-
- # mktime.awk --- convert a canonical date representation
- # into a timestamp
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
- BEGIN \
- {
- # Initialize table of month lengths
- _tm_months[0,1] = _tm_months[1,1] = 31
- _tm_months[0,2] = 28; _tm_months[1,2] = 29
- _tm_months[0,3] = _tm_months[1,3] = 31
- _tm_months[0,4] = _tm_months[1,4] = 30
- _tm_months[0,5] = _tm_months[1,5] = 31
- _tm_months[0,6] = _tm_months[1,6] = 30
- _tm_months[0,7] = _tm_months[1,7] = 31
- _tm_months[0,8] = _tm_months[1,8] = 31
- _tm_months[0,9] = _tm_months[1,9] = 30
- _tm_months[0,10] = _tm_months[1,10] = 31
- _tm_months[0,11] = _tm_months[1,11] = 30
- _tm_months[0,12] = _tm_months[1,12] = 31
- }
-
- The benefit of merging multiple `BEGIN' rules (*note The `BEGIN' and
-`END' Special Patterns: BEGIN/END.) is particularly clear when writing
-library files. Functions in library files can cleanly initialize their
-own private data and also provide clean-up actions in private `END'
-rules.
-
- The next function is a simple one that computes whether a given year
-is or is not a leap year. If a year is evenly divisible by four, but
-not evenly divisible by 100, or if it is evenly divisible by 400, then
-it is a leap year. Thus, 1904 was a leap year, 1900 was not, but 2000
-will be.
-
- # decide if a year is a leap year
- function _tm_isleap(year, ret)
- {
- ret = (year % 4 == 0 && year % 100 != 0) ||
- (year % 400 == 0)
-
- return ret
- }
-
- This function is only used a few times in this file, and its
-computation could have been written "in-line" (at the point where it's
-used). Making it a separate function made the original development
-easier, and also avoids the possibility of typing errors when
-duplicating the code in multiple places.
-
- The next function is more interesting. It does most of the work of
-generating a timestamp, which is converting a date and time into some
-number of seconds since the Epoch. The caller passes an array (rather
-imaginatively named `a') containing six values: the year including
-century, the month as a number between one and 12, the day of the
-month, the hour as a number between zero and 23, the minute in the
-hour, and the seconds within the minute.
-
- The function uses several local variables to precompute the number of
-seconds in an hour, seconds in a day, and seconds in a year. Often,
-similar C code simply writes out the expression in-line, expecting the
-compiler to do "constant folding". E.g., most C compilers would turn
-`60 * 60' into `3600' at compile time, instead of recomputing it every
-time at run time. Precomputing these values makes the function more
-efficient.
-
- # convert a date into seconds
- function _tm_addup(a, total, yearsecs, daysecs,
- hoursecs, i, j)
- {
- hoursecs = 60 * 60
- daysecs = 24 * hoursecs
- yearsecs = 365 * daysecs
-
- total = (a[1] - 1970) * yearsecs
-
- # extra day for leap years
- for (i = 1970; i < a[1]; i++)
- if (_tm_isleap(i))
- total += daysecs
-
- j = _tm_isleap(a[1])
- for (i = 1; i < a[2]; i++)
- total += _tm_months[j, i] * daysecs
-
- total += (a[3] - 1) * daysecs
- total += a[4] * hoursecs
- total += a[5] * 60
- total += a[6]
-
- return total
- }
-
- The function starts with a first approximation of all the seconds
-between Midnight, January 1, 1970,(2) and the beginning of the current
-year. It then goes through all those years, and for every leap year,
-adds an additional day's worth of seconds.
-
- The variable `j' holds either one or zero, if the current year is or
-is not a leap year. For every month in the current year prior to the
-current month, it adds the number of seconds in the month, using the
-appropriate entry in the `_tm_months' array.
-
- Finally, it adds in the seconds for the number of days prior to the
-current day, and the number of hours, minutes, and seconds in the
-current day.
-
- The result is a count of seconds since January 1, 1970. This value
-is not yet what is needed though. The reason why is described shortly.
-
- The main `mktime' function takes a single character string argument.
-This string is a representation of a date and time in a "canonical"
-(fixed) form. This string should be `"YEAR MONTH DAY HOUR MINUTE
-SECOND"'.
-
- # mktime --- convert a date into seconds,
- # compensate for time zone
-
- function mktime(str, res1, res2, a, b, i, j, t, diff)
- {
- i = split(str, a, " ") # don't rely on FS
-
- if (i != 6)
- return -1
-
- # force numeric
- for (j in a)
- a[j] += 0
-
- # validate
- if (a[1] < 1970 ||
- a[2] < 1 || a[2] > 12 ||
- a[3] < 1 || a[3] > 31 ||
- a[4] < 0 || a[4] > 23 ||
- a[5] < 0 || a[5] > 59 ||
- a[6] < 0 || a[6] > 60 )
- return -1
-
- res1 = _tm_addup(a)
- t = strftime("%Y %m %d %H %M %S", res1)
-
- if (_tm_debug)
- printf("(%s) -> (%s)\n", str, t) > "/dev/stderr"
-
- split(t, b, " ")
- res2 = _tm_addup(b)
-
- diff = res1 - res2
-
- if (_tm_debug)
- printf("diff = %d seconds\n", diff) > "/dev/stderr"
-
- res1 += diff
-
- return res1
- }
-
- The function first splits the string into an array, using spaces and
-tabs as separators. If there are not six elements in the array, it
-returns an error, signaled as the value -1. Next, it forces each
-element of the array to be numeric, by adding zero to it. The
-following `if' statement then makes sure that each element is within an
-allowable range. (This checking could be extended further, e.g., to
-make sure that the day of the month is within the correct range for the
-particular month supplied.) All of this is essentially preliminary
-set-up and error checking.
-
- Recall that `_tm_addup' generated a value in seconds since Midnight,
-January 1, 1970. This value is not directly usable as the result we
-want, _since the calculation does not account for the local timezone_.
-In other words, the value represents the count in seconds since the
-Epoch, but only for UTC (Universal Coordinated Time). If the local
-timezone is east or west of UTC, then some number of hours should be
-either added to, or subtracted from the resulting timestamp.
-
- For example, 6:23 p.m. in Atlanta, Georgia (USA), is normally five
-hours west of (behind) UTC. It is only four hours behind UTC if
-daylight savings time is in effect. If you are calling `mktime' in
-Atlanta, with the argument `"1993 5 23 18 23 12"', the result from
-`_tm_addup' will be for 6:23 p.m. UTC, which is only 2:23 p.m. in
-Atlanta. It is necessary to add another four hours worth of seconds to
-the result.
-
- How can `mktime' determine how far away it is from UTC? This is
-surprisingly easy. The returned timestamp represents the time passed to
-`mktime' _as UTC_. This timestamp can be fed back to `strftime', which
-will format it as a _local_ time; i.e. as if it already had the UTC
-difference added in to it. This is done by giving
-`"%Y %m %d %H %M %S"' to `strftime' as the format argument. It returns
-the computed timestamp in the original string format. The result
-represents a time that accounts for the UTC difference. When the new
-time is converted back to a timestamp, the difference between the two
-timestamps is the difference (in seconds) between the local timezone
-and UTC. This difference is then added back to the original result.
-An example demonstrating this is presented below.
-
- Finally, there is a "main" program for testing the function.
-
- BEGIN {
- if (_tm_test) {
- printf "Enter date as yyyy mm dd hh mm ss: "
- getline _tm_test_date
- t = mktime(_tm_test_date)
- r = strftime("%Y %m %d %H %M %S", t)
- printf "Got back (%s)\n", r
- }
- }
-
- The entire program uses two variables that can be set on the command
-line to control debugging output and to enable the test in the final
-`BEGIN' rule. Here is the result of a test run. (Note that debugging
-output is to standard error, and test output is to standard output.)
-
- $ gawk -f mktime.awk -v _tm_test=1 -v _tm_debug=1
- -| Enter date as yyyy mm dd hh mm ss: 1993 5 23 15 35 10
- error--> (1993 5 23 15 35 10) -> (1993 05 23 11 35 10)
- error--> diff = 14400 seconds
- -| Got back (1993 05 23 15 35 10)
-
- The time entered was 3:35 p.m. (15:35 on a 24-hour clock), on May
-23, 1993. The first line of debugging output shows the resulting time
-as UTC--four hours ahead of the local time zone. The second line shows
-that the difference is 14400 seconds, which is four hours. (The
-difference is only four hours, since daylight savings time is in effect
-during May.) The final line of test output shows that the timezone
-compensation algorithm works; the returned time is the same as the
-entered time.
-
- This program does not solve the general problem of turning an
-arbitrary date representation into a timestamp. That problem is very
-involved. However, the `mktime' function provides a foundation upon
-which to build. Other software can convert month names into numeric
-months, and AM/PM times into 24-hour clocks, to generate the
-"canonical" format that `mktime' requires.
+component strings.(1)
---------- Footnotes ----------
- (1) July, 2000: Actually, I was mistaken when I wrote this. The
-version presented here doesn't always work correctly, and the next
-major version of `gawk' will provide `mktime' as a built-in function.
-
- (2) This is the Epoch on POSIX systems. It may be different on
-other systems.
+ (1) It would be nice if `awk' had an assignment operator for
+concatenation. The lack of an explicit operator for concatenation
+makes string operations more difficult than they really need to be.

-File: gawk.info, Node: Gettimeofday Function, Next: Filetrans Function, Prev: Mktime Function, Up: Library Functions
+File: gawk.info, Node: Gettimeofday Function, Prev: Join Function, Up: General Functions
Managing the Time of Day
-========================
+------------------------
- The `systime' and `strftime' functions described in *Note Functions
-for Dealing with Time Stamps: Time Functions, provide the minimum
+ The `systime' and `strftime' functions described in *Note Using
+`gawk''s Timestamp Functions: Time Functions, provide the minimum
functionality necessary for dealing with the time of day in human
readable form. While `strftime' is extensive, the control formats are
not necessarily easy to remember or intuitively obvious when reading a
program.
The following function, `gettimeofday', populates a user-supplied
-array with pre-formatted time information. It returns a string with
-the current time formatted in the same way as the `date' utility.
+array with preformatted time information. It returns a string with the
+current time formatted in the same way as the `date' utility:
- # gettimeofday --- get the time of day in a usable format
- # Arnold Robbins, arnold@gnu.org, Public Domain, May 1993
- #
+ # gettimeofday.awk --- get the time of day in a usable format
+
# Returns a string in the format of output of date(1)
# Populates the array argument time with individual values:
# time["second"] -- seconds (0 - 59)
@@ -10299,17 +12688,17 @@ the current time formatted in the same way as the `date' utility.
# time["month"] -- month of year (1 - 12)
# time["monthname"] -- name of the month
# time["shortmonth"] -- short name of the month
- # time["year"] -- year within century (0 - 99)
- # time["fullyear"] -- year with century (19xx or 20xx)
+ # time["year"] -- year modulo 100 (0 - 99)
+ # time["fullyear"] -- full year
# time["weekday"] -- day of week (Sunday = 0)
# time["altweekday"] -- day of week (Monday = 0)
- # time["weeknum"] -- week number, Sunday first day
- # time["altweeknum"] -- week number, Monday first day
# time["dayname"] -- name of weekday
# time["shortdayname"] -- short name of weekday
# time["yearday"] -- day of year (0 - 365)
# time["timezone"] -- abbreviation of timezone name
# time["ampm"] -- AM or PM designation
+ # time["weeknum"] -- week number, Sunday first day
+ # time["altweeknum"] -- week number, Monday first day
function gettimeofday(time, ret, now, i)
{
@@ -10320,8 +12709,7 @@ the current time formatted in the same way as the `date' utility.
ret = strftime("%a %b %d %H:%M:%S %Z %Y", now)
# clear out target array
- for (i in time)
- delete time[i]
+ delete time
# fill in values, force numeric values to be
# numeric by adding 0
@@ -10350,34 +12738,49 @@ the current time formatted in the same way as the `date' utility.
The string indices are easier to use and read than the various
formats required by `strftime'. The `alarm' program presented in *Note
-An Alarm Clock Program: Alarm Program, uses this function.
+An Alarm Clock Program: Alarm Program, uses this function. A more
+general design for the `gettimeofday' function would have allowed the
+user to supply an optional timestamp value to use instead of the
+current time.
+
+
+File: gawk.info, Node: Data File Management, Next: Getopt Function, Prev: General Functions, Up: Library Functions
- The `gettimeofday' function is presented above as it was written. A
-more general design for this function would have allowed the user to
-supply an optional timestamp value that would have been used instead of
-the current time.
+Data File Management
+====================
+
+ This minor node presents functions that are useful for managing
+command-line datafiles.
+
+* Menu:
+
+* Filetrans Function:: A function for handling data file transitions.
+* Rewind Function:: A function for rereading the current file.
+* File Checking:: Checking that data files are readable.
+* Ignoring Assigns:: Treating assignments as file names.

-File: gawk.info, Node: Filetrans Function, Next: Getopt Function, Prev: Gettimeofday Function, Up: Library Functions
+File: gawk.info, Node: Filetrans Function, Next: Rewind Function, Prev: Data File Management, Up: Data File Management
Noting Data File Boundaries
-===========================
+---------------------------
The `BEGIN' and `END' rules are each executed exactly once, at the
-beginning and end respectively of your `awk' program (*note The `BEGIN'
-and `END' Special Patterns: BEGIN/END.). We (the `gawk' authors) once
-had a user who mistakenly thought that the `BEGIN' rule was executed at
-the beginning of each data file and the `END' rule was executed at the
-end of each data file. When informed that this was not the case, the
-user requested that we add new special patterns to `gawk', named
-`BEGIN_FILE' and `END_FILE', that would have the desired behavior. He
-even supplied us the code to do so.
-
- However, after a little thought, I came up with the following
+beginning and end of your `awk' program, respectively (*note The
+`BEGIN' and `END' Special Patterns: BEGIN/END.). We (the `gawk'
+authors) once had a user who mistakenly thought that the `BEGIN' rule
+is executed at the beginning of each data file and the `END' rule is
+executed at the end of each data file. When informed that this was not
+the case, the user requested that we add new special patterns to
+`gawk', named `BEGIN_FILE' and `END_FILE', that would have the desired
+behavior. He even supplied us the code to do so.
+
+ Adding these special patterns to `gawk' wasn't necessary; the job
+can be done cleanly in `awk' itself, as illustrated by the following
library program. It arranges to call two user-supplied functions,
`beginfile' and `endfile', at the beginning and end of each data file.
Besides solving the problem in only nine(!) lines of code, it does so
-_portably_; this will work with any implementation of `awk'.
+_portably_; this works with any implementation of `awk':
# transfile.awk
#
@@ -10386,9 +12789,6 @@ _portably_; this will work with any implementation of `awk'.
# The user must supply functions beginfile() and endfile()
# that each take the name of the file being started or
# finished, respectively.
- #
- # Arnold Robbins, arnold@gnu.org, January 1992
- # Public Domain
FILENAME != _oldfilename \
{
@@ -10401,39 +12801,35 @@ _portably_; this will work with any implementation of `awk'.
END { endfile(FILENAME) }
This file must be loaded before the user's "main" program, so that
-the rule it supplies will be executed first.
+the rule it supplies is executed first.
This rule relies on `awk''s `FILENAME' variable that automatically
changes for each new data file. The current file name is saved in a
private variable, `_oldfilename'. If `FILENAME' does not equal
-`_oldfilename', then a new data file is being processed, and it is
-necessary to call `endfile' for the old file. Since `endfile' should
+`_oldfilename', then a new data file is being processed and it is
+necessary to call `endfile' for the old file. Because `endfile' should
only be called if a file has been processed, the program first checks
to make sure that `_oldfilename' is not the null string. The program
-then assigns the current file name to `_oldfilename', and calls
-`beginfile' for the file. Since, like all `awk' variables,
-`_oldfilename' will be initialized to the null string, this rule
-executes correctly even for the first data file.
+then assigns the current file name to `_oldfilename' and calls
+`beginfile' for the file. Because, like all `awk' variables,
+`_oldfilename' is initialized to the null string, this rule executes
+correctly even for the first data file.
- The program also supplies an `END' rule, to do the final processing
-for the last file. Since this `END' rule comes before any `END' rules
-supplied in the "main" program, `endfile' will be called first. Once
-again the value of multiple `BEGIN' and `END' rules should be clear.
+ The program also supplies an `END' rule to do the final processing
+for the last file. Because this `END' rule comes before any `END' rules
+supplied in the "main" program, `endfile' is called first. Once again
+the value of multiple `BEGIN' and `END' rules should be clear.
This version has same problem as the first version of `nextfile'
(*note Implementing `nextfile' as a Function: Nextfile Function.). If
-the same data file occurs twice in a row on command line, then
-`endfile' and `beginfile' will not be executed at the end of the first
-pass and at the beginning of the second pass. This version solves the
-problem.
+the same data file occurs twice in a row on the command line, then
+`endfile' and `beginfile' are not executed at the end of the first pass
+and at the beginning of the second pass. The following version solves
+the problem:
# ftrans.awk --- handle data file transitions
#
# user supplies beginfile() and endfile() functions
- #
- # Arnold Robbins, arnold@gnu.org, November 1992
- # Public Domain
-
FNR == 1 {
if (_filename_ != "")
endfile(_filename_)
@@ -10443,41 +12839,156 @@ problem.
END { endfile(_filename_) }
- In *Note Counting Things: Wc Program, you will see how this library
-function can be used, and how it simplifies writing the main program.
+ *Note Counting Things: Wc Program, shows how this library function
+can be used and how it simplifies writing the main program.
+
+
+File: gawk.info, Node: Rewind Function, Next: File Checking, Prev: Filetrans Function, Up: Data File Management
+
+Rereading the Current File
+--------------------------
+
+ Another request for a new built-in function was for a `rewind'
+function that would make it possible to reread the current file. The
+requesting user didn't want to have to use `getline' (*note Explicit
+Input with `getline': Getline.) inside a loop.
+
+ However, as long as you are not in the `END' rule, it is quite easy
+to arrange to immediately close the current input file and then start
+over with it from the top. For lack of a better name, we'll call it
+`rewind':
+
+ # rewind.awk --- rewind the current file and start over
+ function rewind( i)
+ {
+ # shift remaining arguments up
+ for (i = ARGC; i > ARGIND; i--)
+ ARGV[i] = ARGV[i-1]
+
+ # make sure gawk knows to keep going
+ ARGC++
+
+ # make current file next to get done
+ ARGV[ARGIND+1] = FILENAME
+
+ # do it
+ nextfile
+ }
+
+ This code relies on the `ARGIND' variable (*note Built-in Variables
+That Convey Information: Auto-set.), which is specific to `gawk'. If
+you are not using `gawk', you can use ideas presented in *Note Noting
+Data File Boundaries: Filetrans Function, to either update `ARGIND' on
+your own or modify this code as appropriate.
+
+ The `rewind' function also relies on the `nextfile' keyword (*note
+Using `gawk''s `nextfile' Statement: Nextfile Statement.). *Note
+Implementing `nextfile' as a Function: Nextfile Function, for a
+function version of `nextfile'.
+
+
+File: gawk.info, Node: File Checking, Next: Ignoring Assigns, Prev: Rewind Function, Up: Data File Management
+
+Checking for Readable Data Files
+--------------------------------
+
+ Normally, if you give `awk' a data file that isn't readable, it
+stops with a fatal error. There are times when you might want to just
+ignore such files and keep going. You can do this by prepending the
+following program to your `awk' program:
+
+ # readable.awk --- library file to skip over unreadable files
+ BEGIN {
+ for (i = 1; i < ARGC; i++) {
+ if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
+ || ARGV[i] == "-")
+ continue # assignment or standard input
+ else if ((getline junk < ARGV[i]) < 0) # unreadable
+ delete ARGV[i]
+ else
+ close(ARGV[i])
+ }
+ }
+
+ In `gawk', the `getline' won't be fatal (unless `--posix' is in
+force). Removing the element from `ARGV' with `delete' skips the file
+(since it's no longer in the list).
+
+
+File: gawk.info, Node: Ignoring Assigns, Prev: File Checking, Up: Data File Management
+
+Treating Assignments as File Names
+----------------------------------
+
+ Occasionally, you might not want `awk' to process command-line
+variable assignments (*note Assigning Variables on the Command Line:
+Assignment Options.). In particular, if you have file names that
+contain an `=' character, `awk' treats the file name as an assignment,
+and does not process it.
+
+ Some users have suggested an additional command-line option for
+`gawk' to disable command-line assignments. However, some simple
+programming with a library file does the trick:
+
+ # noassign.awk --- library file to avoid the need for a
+ # special option that disables command-line assignments
+ function disable_assigns(argc, argv, i)
+ {
+ for (i = 1; i < argc; i++)
+ if (argv[i] ~ /^[A-Za-z_][A-Za-z_0-9]*=.*/)
+ argv[i] = ("./" argv[i])
+ }
+
+ BEGIN {
+ if (No_command_assign)
+ disable_assigns(ARGC, ARGV)
+ }
+
+ You then run your program this way:
+
+ awk -v No_command_assign=1 -f noassign.awk -f yourprog.awk *
+
+ The function works by looping through the arguments. It prepends
+`./' to any argument that matches the form of a variable assignment,
+turning that argument into a file name.
+
+ The use of `No_command_assign' allows you to disable command-line
+assignments at invocation time, by giving the variable a true value.
+When not set, it is initially zero (i.e., false), so the command-line
+arguments are left alone.

-File: gawk.info, Node: Getopt Function, Next: Passwd Functions, Prev: Filetrans Function, Up: Library Functions
+File: gawk.info, Node: Getopt Function, Next: Passwd Functions, Prev: Data File Management, Up: Library Functions
-Processing Command Line Options
+Processing Command-Line Options
===============================
- Most utilities on POSIX compatible systems take options or
-"switches" on the command line that can be used to change the way a
-program behaves. `awk' is an example of such a program (*note Command
-Line Options: Options.). Often, options take "arguments", data that
-the program needs to correctly obey the command line option. For
-example, `awk''s `-F' option requires a string to use as the field
-separator. The first occurrence on the command line of either `--' or a
-string that does not begin with `-' ends the options.
-
- Most Unix systems provide a C function named `getopt' for processing
-command line arguments. The programmer provides a string describing
-the one letter options. If an option requires an argument, it is
-followed in the string with a colon. `getopt' is also passed the count
-and values of the command line arguments, and is called in a loop.
-`getopt' processes the command line arguments for option letters. Each
+ Most utilities on POSIX compatible systems take options, or
+"switches," on the command line that can be used to change the way a
+program behaves. `awk' is an example of such a program (*note
+Command-Line Options: Options.). Often, options take "arguments";
+i.e., data that the program needs to correctly obey the command-line
+option. For example, `awk''s `-F' option requires a string to use as
+the field separator. The first occurrence on the command line of
+either `--' or a string that does not begin with `-' ends the options.
+
+ Modern Unix systems provide a C function named `getopt' for
+processing command-line arguments. The programmer provides a string
+describing the one-letter options. If an option requires an argument,
+it is followed in the string with a colon. `getopt' is also passed the
+count and values of the command-line arguments and is called in a loop.
+`getopt' processes the command-line arguments for option letters. Each
time around the loop, it returns a single character representing the
-next option letter that it found, or `?' if it found an invalid option.
+next option letter that it finds, or `?' if it finds an invalid option.
When it returns -1, there are no options left on the command line.
When using `getopt', options that do not take arguments can be
grouped together. Furthermore, options that take arguments require
-that the argument be present. The argument can immediately follow the
-option letter, or it can be a separate command line argument.
+that the argument is present. The argument can immediately follow the
+option letter or it can be a separate command-line argument.
- Given a hypothetical program that takes three command line options,
-`-a', `-b', and `-c', and `-b' requires an argument, all of the
+ Given a hypothetical program that takes three command-line options,
+`-a', `-b', and `-c', where `-b' requires an argument, all of the
following are valid ways of invoking the program:
prog -a -b foo -c data1 data2 data3
@@ -10485,17 +12996,17 @@ following are valid ways of invoking the program:
prog -acbfoo data1 data2 data3
Notice that when the argument is grouped with its option, the rest of
-the command line argument is considered to be the option's argument.
-In the above example, `-acbfoo' indicates that all of the `-a', `-b',
-and `-c' options were supplied, and that `foo' is the argument to the
-`-b' option.
+the argument is considered to be the option's argument. In this
+example, `-acbfoo' indicates that all of the `-a', `-b', and `-c'
+options were supplied, and that `foo' is the argument to the `-b'
+option.
`getopt' provides four external variables that the programmer can
-use.
+use:
`optind'
The index in the argument value array (`argv') where the first
- non-option command line argument can be found.
+ non-option command-line argument can be found.
`optarg'
The string value of the argument to an option.
@@ -10503,14 +13014,13 @@ use.
`opterr'
Usually `getopt' prints an error message when it finds an invalid
option. Setting `opterr' to zero disables this feature. (An
- application might wish to print its own error message.)
+ application might want to print its own error message.)
`optopt'
- The letter representing the command line option. While not
- usually documented, most versions supply this variable.
+ The letter representing the command-line option.
- The following C fragment shows how `getopt' might process command
-line arguments for `awk'.
+ The following C fragment shows how `getopt' might process
+command-line arguments for `awk':
int
main(int argc, char *argv[])
@@ -10542,52 +13052,45 @@ line arguments for `awk'.
}
As a side point, `gawk' actually uses the GNU `getopt_long' function
-to process both normal and GNU-style long options (*note Command Line
+to process both normal and GNU-style long options (*note Command-Line
Options: Options.).
- The abstraction provided by `getopt' is very useful, and would be
-quite handy in `awk' programs as well. Here is an `awk' version of
+ The abstraction provided by `getopt' is very useful and is quite
+handy in `awk' programs as well. Following is an `awk' version of
`getopt'. This function highlights one of the greatest weaknesses in
`awk', which is that it is very poor at manipulating single characters.
Repeated calls to `substr' are necessary for accessing individual
-characters (*note Built-in Functions for String Manipulation: String
-Functions.).
+characters (*note String Manipulation Functions: String Functions.).(1)
- The discussion walks through the code a bit at a time.
+ The discussion that follows walks through the code a bit at a time:
- # getopt --- do C library getopt(3) function in awk
- #
- # arnold@gnu.org
- # Public domain
- #
- # Initial version: March, 1991
- # Revised: May, 1993
-
+ # getopt.awk --- do C library getopt(3) function in awk
# External variables:
- # Optind -- index of ARGV for first non-option argument
+ # Optind -- index in ARGV of first non-option argument
# Optarg -- string value of argument to current option
- # Opterr -- if non-zero, print our own diagnostic
+ # Opterr -- if nonzero, print our own diagnostic
# Optopt -- current option letter
- # Returns
+ # Returns:
# -1 at end of options
# ? for unrecognized option
# <c> a character representing the current option
- # Private Data
- # _opti index in multi-flag option, e.g., -abc
+ # Private Data:
+ # _opti -- index in multi-flag option, e.g., -abc
+
+ The function starts out with a list of the global variables it uses,
+what the return values are, what they mean, and any global variables
+that are "private" to this library function. Such documentation is
+essential for any program, and particularly for library functions.
- The function starts out with some documentation: who wrote the code,
-and when it was revised, followed by a list of the global variables it
-uses, what the return values are and what they mean, and any global
-variables that are "private" to this library function. Such
-documentation is essential for any program, and particularly for
-library functions.
+ The `getopt' function first checks that it was indeed called with a
+string of options (the `options' parameter). If `options' has a zero
+length, `getopt' immediately returns -1:
- function getopt(argc, argv, options, optl, thisopt, i)
+ function getopt(argc, argv, options, thisopt, i)
{
- optl = length(options)
- if (optl == 0) # no options given
+ if (length(options) == 0) # no options given
return -1
if (argv[Optind] == "--") { # all done
@@ -10599,21 +13102,17 @@ library functions.
return -1
}
- The function first checks that it was indeed called with a string of
-options (the `options' parameter). If `options' has a zero length,
-`getopt' immediately returns -1.
-
The next thing to check for is the end of the options. A `--' ends
-the command line options, as does any command line argument that does
+the command-line options, as does any command-line argument that does
not begin with a `-'. `Optind' is used to step through the array of
-command line arguments; it retains its value across calls to `getopt',
-since it is a global variable.
+command-line arguments; it retains its value across calls to `getopt',
+because it is a global variable.
- The regexp used, `/^-[^: \t\n\f\r\v\b]/', is perhaps a bit of
-overkill; it checks for a `-' followed by anything that is not
-whitespace and not a colon. If the current command line argument does
-not match this pattern, it is not an option, and it ends option
-processing.
+ The regular expression that is used, `/^-[^: \t\n\f\r\v\b]/', is
+perhaps a bit of overkill; it checks for a `-' followed by anything
+that is not whitespace and not a colon. If the current command-line
+argument does not match this pattern, it is not an option, and it ends
+option processing.
if (_opti == 0)
_opti = 2
@@ -10632,31 +13131,31 @@ processing.
return "?"
}
- The `_opti' variable tracks the position in the current command line
-argument (`argv[Optind]'). In the case that multiple options were
-grouped together with one `-' (e.g., `-abx'), it is necessary to return
-them to the user one at a time.
+ The `_opti' variable tracks the position in the current command-line
+argument (`argv[Optind]'). If multiple options are grouped together
+with one `-' (e.g., `-abx'), it is necessary to return them to the user
+one at a time.
- If `_opti' is equal to zero, it is set to two, the index in the
-string of the next character to look at (we skip the `-', which is at
-position one). The variable `thisopt' holds the character, obtained
+ If `_opti' is equal to zero, it is set to two, which is the index in
+the string of the next character to look at (we skip the `-', which is
+at position one). The variable `thisopt' holds the character, obtained
with `substr'. It is saved in `Optopt' for the main program to use.
If `thisopt' is not in the `options' string, then it is an invalid
-option. If `Opterr' is non-zero, `getopt' prints an error message on
+option. If `Opterr' is nonzero, `getopt' prints an error message on
the standard error that is similar to the message from the C version of
`getopt'.
- Since the option is invalid, it is necessary to skip it and move on
-to the next option character. If `_opti' is greater than or equal to
-the length of the current command line argument, then it is necessary
-to move on to the next one, so `Optind' is incremented and `_opti' is
+ Because the option is invalid, it is necessary to skip it and move
+on to the next option character. If `_opti' is greater than or equal
+to the length of the current command-line argument, it is necessary to
+move on to the next argument, so `Optind' is incremented and `_opti' is
reset to zero. Otherwise, `Optind' is left alone and `_opti' is merely
incremented.
- In any case, since the option was invalid, `getopt' returns `?'.
+ In any case, because the option is invalid, `getopt' returns `?'.
The main program can examine `Optopt' if it needs to know what the
-invalid option letter actually was.
+invalid option letter actually is. Continuing on:
if (substr(options, i + 1, 1) == ":") {
# get option argument
@@ -10670,11 +13169,11 @@ invalid option letter actually was.
If the option requires an argument, the option letter is followed by
a colon in the `options' string. If there are remaining characters in
-the current command line argument (`argv[Optind]'), then the rest of
-that string is assigned to `Optarg'. Otherwise, the next command line
+the current command-line argument (`argv[Optind]'), then the rest of
+that string is assigned to `Optarg'. Otherwise, the next command-line
argument is used (`-xFOO' vs. `-x FOO'). In either case, `_opti' is
-reset to zero, since there are no more characters left to examine in
-the current command line argument.
+reset to zero, because there are no more characters left to examine in
+the current command-line argument. Continuing:
if (_opti == 0 || _opti >= length(argv[Optind])) {
Optind++
@@ -10685,12 +13184,18 @@ the current command line argument.
}
Finally, if `_opti' is either zero or greater than the length of the
-current command line argument, it means this element in `argv' is
+current command-line argument, it means this element in `argv' is
through being processed, so `Optind' is incremented to point to the
next element in `argv'. If neither condition is true, then only
`_opti' is incremented, so that the next option letter can be processed
on the next call to `getopt'.
+ The `BEGIN' rule initializes both `Opterr' and `Optind' to one.
+`Opterr' is set to one, since the default behavior is for `getopt' to
+print a diagnostic message upon seeing an invalid option. `Optind' is
+set to one, since there's no reason to look at the program name, which
+is in `ARGV[0]':
+
BEGIN {
Opterr = 1 # default is to diagnose
Optind = 1 # skip ARGV[0]
@@ -10707,14 +13212,8 @@ on the next call to `getopt'.
}
}
- The `BEGIN' rule initializes both `Opterr' and `Optind' to one.
-`Opterr' is set to one, since the default behavior is for `getopt' to
-print a diagnostic message upon seeing an invalid option. `Optind' is
-set to one, since there's no reason to look at the program name, which
-is in `ARGV[0]'.
-
The rest of the `BEGIN' rule is a simple test program. Here is the
-result of two sample runs of the test program.
+result of two sample runs of the test program:
$ awk -f getopt.awk -v _getopt_test=1 -- -a -cbARG bax -x
-| c = <a>, optarg = <>
@@ -10732,61 +13231,56 @@ result of two sample runs of the test program.
-| ARGV[4] = <xyz>
-| ARGV[5] = <abc>
- The first `--' terminates the arguments to `awk', so that it does
-not try to interpret the `-a' etc. as its own options.
-
- Several of the sample programs presented in *Note Practical `awk'
+ In both runs, the first `--' terminates the arguments to `awk', so
+that it does not try to interpret the `-a', etc., as its own options.
+Several of the sample programs presented in *Note Practical `awk'
Programs: Sample Programs, use `getopt' to process their arguments.
+ ---------- Footnotes ----------
+
+ (1) This function was written before `gawk' acquired the ability to
+split strings into single characters using `""' as the separator. We
+have left it alone, since using `substr' is more portable.
+

File: gawk.info, Node: Passwd Functions, Next: Group Functions, Prev: Getopt Function, Up: Library Functions
Reading the User Database
=========================
- The `/dev/user' special file (*note Special File Names in `gawk':
-Special Files.) provides access to the current user's real and
-effective user and group id numbers, and if available, the user's
-supplementary group set. However, since these are numbers, they do not
-provide very useful information to the average user. There needs to be
-some way to find the user information associated with the user and
-group numbers. This section presents a suite of functions for
-retrieving information from the user database. *Note Reading the Group
-Database: Group Functions, for a similar suite that retrieves
-information from the group database.
+ The `PROCINFO' array (*note Built-in Variables::) provides access to
+the current user's real and effective user and group id numbers, and if
+available, the user's supplementary group set. However, because these
+are numbers, they do not provide very useful information to the average
+user. There needs to be some way to find the user information
+associated with the user and group numbers. This minor node presents a
+suite of functions for retrieving information from the user database.
+*Note Reading the Group Database: Group Functions, for a similar suite
+that retrieves information from the group database.
The POSIX standard does not define the file where user information is
kept. Instead, it provides the `<pwd.h>' header file and several C
language subroutines for obtaining user information. The primary
function is `getpwent', for "get password entry." The "password" comes
-from the original user database file, `/etc/passwd', which kept user
+from the original user database file, `/etc/passwd', which stores user
information, along with the encrypted passwords (hence the name).
- While an `awk' program could simply read `/etc/passwd' directly (the
-format is well known), because of the way password files are handled on
-networked systems, this file may not contain complete information about
-the system's set of users.
-
- To be sure of being able to produce a readable, complete version of
-the user database, it is necessary to write a small C program that
-calls `getpwent'. `getpwent' is defined to return a pointer to a
-`struct passwd'. Each time it is called, it returns the next entry in
-the database. When there are no more entries, it returns `NULL', the
-null pointer. When this happens, the C program should call `endpwent'
-to close the database. Here is `pwcat', a C program that "cats" the
-password database.
+ While an `awk' program could simply read `/etc/passwd' directly,
+this file may not contain complete information about the system's set
+of users.(1) To be sure you are able to produce a readable and complete
+version of the user database, it is necessary to write a small C
+program that calls `getpwent'. `getpwent' is defined as returning a
+pointer to a `struct passwd'. Each time it is called, it returns the
+next entry in the database. When there are no more entries, it returns
+`NULL', the null pointer. When this happens, the C program should call
+`endpwent' to close the database. Following is `pwcat', a C program
+that "cats" the password database.
/*
* pwcat.c
*
* Generate a printable version of the password database
- *
- * Arnold Robbins
- * arnold@gnu.org
- * May 1993
- * Public Domain
*/
-
#include <stdio.h>
#include <pwd.h>
@@ -10810,32 +13304,19 @@ password database.
`pwcat' is the user database, in the traditional `/etc/passwd' format
of colon-separated fields. The fields are:
-Login name
- The user's login name.
-
-Encrypted password
- The user's encrypted password. This may not be available on some
- systems.
-
-User-ID
- The user's numeric user-id number.
-
-Group-ID
- The user's numeric group-id number.
-
-Full name
- The user's full name, and perhaps other information associated
- with the user.
-
-Home directory
- The user's login, or "home" directory (familiar to shell
- programmers as `$HOME').
-
-Login shell
- The program that will be run when the user logs in. This is
- usually a shell, such as Bash (the Gnu Bourne-Again shell).
+Login name The user's login name.
+Encrypted password The user's encrypted password. This may not be
+ available on some systems.
+User-ID The user's numeric user-id number.
+Group-ID The user's numeric group-id number.
+Full name The user's full name, and perhaps other
+ information associated with the user.
+Home directory The user's login (or "home") directory
+ (familiar to shell programmers as `$HOME').
+Login shell The program that is run when the user logs in.
+ This is usually a shell, such as `bash'.
- Here are a few lines representative of `pwcat''s output.
+ A few lines representative of `pwcat''s output are as follows:
$ pwcat
-| root:3Ov02d5VaUPB6:0:1:Operator:/:/bin/sh
@@ -10848,28 +13329,28 @@ Login shell
-| andy:abcca2:113:10:Andy Jacobs:/home/andy:/bin/sh
...
- With that introduction, here is a group of functions for getting user
-information. There are several functions here, corresponding to the C
-functions of the same name.
+ With that introduction, following is a group of functions for
+getting user information. There are several functions here,
+corresponding to the C functions of the same names:
# passwd.awk --- access password file information
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
BEGIN {
# tailor this to suit your system
_pw_awklib = "/usr/local/libexec/awk/"
}
- function _pw_init( oldfs, oldrs, olddol0, pwcat)
+ function _pw_init( oldfs, oldrs, olddol0, pwcat, using_fw)
{
if (_pw_inited)
return
+
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
+
pwcat = _pw_awklib "pwcat"
while ((pwcat | getline) > 0) {
_pw_byname[$1] = $0
@@ -10880,34 +13361,46 @@ functions of the same name.
_pw_count = 0
_pw_inited = 1
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
}
The `BEGIN' rule sets a private variable to the directory where
-`pwcat' is stored. Since it is used to help out an `awk' library
-routine, we have chosen to put it in `/usr/local/libexec/awk'. You
-might want it to be in a different directory on your system.
+`pwcat' is stored. Because it is used to help out an `awk' library
+routine, we have chosen to put it in `/usr/local/libexec/awk'; however,
+you might want it to be in a different directory on your system.
The function `_pw_init' keeps three copies of the user information
-in three associative arrays. The arrays are indexed by user name
+in three associative arrays. The arrays are indexed by username
(`_pw_byname'), by user-id number (`_pw_byuid'), and by order of
-occurrence (`_pw_bycount').
-
- The variable `_pw_inited' is used for efficiency; `_pw_init' only
-needs to be called once.
-
- Since this function uses `getline' to read information from `pwcat',
-it first saves the values of `FS', `RS', and `$0'. Doing so is
-necessary, since these functions could be called from anywhere within a
-user's program, and the user may have his or her own values for `FS'
-and `RS'.
+occurrence (`_pw_bycount'). The variable `_pw_inited' is used for
+efficiency; `_pw_init' needs only to be called once.
+
+ Because this function uses `getline' to read information from
+`pwcat', it first saves the values of `FS', `RS', and `$0'. It notes
+in the variable `using_fw' whether field splitting with `FIELDWIDTHS'
+is in effect or not. Doing so is necessary, since these functions
+could be called from anywhere within a user's program, and the user may
+have his or her own way of splitting records and fields.
+
+ The `using_fw' variable checks `PROCINFO["FS"]', which is
+`"FIELDWIDTHS"' if field splitting is being done with `FIELDWIDTHS'.
+This makes it possible to restore the correct field-splitting mechanism
+later. The test can only be true for `gawk'. It is false if using
+`FS' or on some other `awk' implementation.
The main part of the function uses a loop to read database lines,
split the line into fields, and then store the line into each array as
necessary. When the loop is done, `_pw_init' cleans up by closing the
-pipeline, setting `_pw_inited' to one, and restoring `FS', `RS', and
-`$0'. The use of `_pw_count' will be explained below.
+pipeline, setting `_pw_inited' to one, and restoring `FS' (and
+`FIELDWIDTHS' if necessary), `RS', and `$0'. The use of `_pw_count' is
+explained shortly.
+
+ The `getpwnam' function takes a username as a string argument. If
+that user is in the database, it returns the appropriate line.
+Otherwise it returns the null string:
function getpwnam(name)
{
@@ -10917,9 +13410,9 @@ pipeline, setting `_pw_inited' to one, and restoring `FS', `RS', and
return ""
}
- The `getpwnam' function takes a user name as a string argument. If
-that user is in the database, it returns the appropriate line.
-Otherwise it returns the null string.
+ Similarly, the `getpwuid' function takes a user-id number argument.
+If that user number is in the database, it returns the appropriate
+line. Otherwise it returns the null string:
function getpwuid(uid)
{
@@ -10929,9 +13422,9 @@ Otherwise it returns the null string.
return ""
}
- Similarly, the `getpwuid' function takes a user-id number argument.
-If that user number is in the database, it returns the appropriate
-line. Otherwise it returns the null string.
+ The `getpwent' function simply steps through the database, one entry
+at a time. It uses `_pw_count' to track its current position in the
+`_pw_bycount' array:
function getpwent()
{
@@ -10941,67 +13434,62 @@ line. Otherwise it returns the null string.
return ""
}
- The `getpwent' function simply steps through the database, one entry
-at a time. It uses `_pw_count' to track its current position in the
-`_pw_bycount' array.
+ The `endpwent' function resets `_pw_count' to zero, so that
+subsequent calls to `getpwent' start over again:
function endpwent()
{
_pw_count = 0
}
- The `endpwent' function resets `_pw_count' to zero, so that
-subsequent calls to `getpwent' will start over again.
-
A conscious design decision in this suite is that each subroutine
calls `_pw_init' to initialize the database arrays. The overhead of
running a separate process to generate the user database, and the I/O
-to scan it, will only be incurred if the user's main program actually
-calls one of these functions. If this library file is loaded along
-with a user's program, but none of the routines are ever called, then
-there is no extra run-time overhead. (The alternative would be to move
-the body of `_pw_init' into a `BEGIN' rule, which would always run
-`pwcat'. This simplifies the code but runs an extra process that may
-never be needed.)
-
- In turn, calling `_pw_init' is not too expensive, since the
+to scan it, are only incurred if the user's main program actually calls
+one of these functions. If this library file is loaded along with a
+user's program, but none of the routines are ever called, then there is
+no extra runtime overhead. (The alternative is move the body of
+`_pw_init' into a `BEGIN' rule, which always runs `pwcat'. This
+simplifies the code but runs an extra process that may never be needed.)
+
+ In turn, calling `_pw_init' is not too expensive, because the
`_pw_inited' variable keeps the program from reading the data more than
once. If you are worried about squeezing every last cycle out of your
`awk' program, the check of `_pw_inited' could be moved out of
`_pw_init' and duplicated in all the other functions. In practice,
-this is not necessary, since most `awk' programs are I/O bound, and it
-would clutter up the code.
+this is not necessary, since most `awk' programs are I/O-bound, and it
+clutters up the code.
- The `id' program in *Note Printing Out User Information: Id Program,
+ The `id' program in *Note Printing out User Information: Id Program,
uses these functions.
+ ---------- Footnotes ----------
+
+ (1) It is often the case that password information is stored in a
+network database.
+

-File: gawk.info, Node: Group Functions, Next: Library Names, Prev: Passwd Functions, Up: Library Functions
+File: gawk.info, Node: Group Functions, Prev: Passwd Functions, Up: Library Functions
Reading the Group Database
==========================
Much of the discussion presented in *Note Reading the User Database:
Passwd Functions, applies to the group database as well. Although
-there has traditionally been a well known file, `/etc/group', in a well
-known format, the POSIX standard only provides a set of C library
+there has traditionally been a well-known file (`/etc/group') in a
+well-known format, the POSIX standard only provides a set of C library
routines (`<grp.h>' and `getgrent') for accessing the information.
Even though this file may exist, it likely does not have complete
information. Therefore, as with the user database, it is necessary to
have a small C program that generates the group database as its output.
- Here is `grcat', a C program that "cats" the group database.
+ `grcat', a C program that "cats" the group database, is as follows:
/*
* grcat.c
*
* Generate a printable version of the group database
- *
- * Arnold Robbins, arnold@gnu.org
- * May 1993
- * Public Domain
*/
-
#include <stdio.h>
#include <grp.h>
@@ -11027,27 +13515,23 @@ have a small C program that generates the group database as its output.
exit(0);
}
- Each line in the group database represent one group. The fields are
-separated with colons, and represent the following information.
-
-Group Name
- The name of the group.
-
-Group Password
- The encrypted group password. In practice, this field is never
- used. It is usually empty, or set to `*'.
-
-Group ID Number
- The numeric group-id number. This number should be unique within
- the file.
-
-Group Member List
- A comma-separated list of user names. These users are members of
- the group. Most Unix systems allow users to be members of several
- groups simultaneously. If your system does, then reading
- `/dev/user' will return those group-id numbers in `$5' through
- `$NF'. (Note that `/dev/user' is a `gawk' extension; *note
- Special File Names in `gawk': Special Files..)
+ Each line in the group database represents one group. The fields are
+separated with colons and represent the following information:
+
+Group name The group's name.
+Group password The group's encrypted password. In practice,
+ this field is never used; it is usually empty
+ or set to `*'.
+Group-ID The group's numeric group-id number; this
+ number should be unique within the file.
+Group member list A comma-separated list of usernames. These
+ users are members of the group. Modern Unix
+ systems allow users to be members of several
+ groups simultaneously. If your system does,
+ then there are elements `"group1"' through
+ `"groupN"' in `PROCINFO' for those group-id
+ numbers. (Note that `PROCINFO' is a `gawk'
+ extension; *note Built-in Variables::.)
Here is what running `grcat' might produce:
@@ -11062,19 +13546,17 @@ Group Member List
Here are the functions for obtaining information from the group
database. There are several, modeled after the C library functions of
-the same names.
+the same names:
# group.awk --- functions for dealing with the group file
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
BEGIN \
{
# Change to suit your system
_gr_awklib = "/usr/local/libexec/awk/"
}
- function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
+ function _gr_init( oldfs, oldrs, olddol0, grcat,
+ using_fw, n, a, i)
{
if (_gr_inited)
return
@@ -11082,6 +13564,7 @@ the same names.
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
@@ -11110,45 +13593,52 @@ the same names.
_gr_count = 0
_gr_inited++
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
}
The `BEGIN' rule sets a private variable to the directory where
-`grcat' is stored. Since it is used to help out an `awk' library
+`grcat' is stored. Because it is used to help out an `awk' library
routine, we have chosen to put it in `/usr/local/libexec/awk'. You
might want it to be in a different directory on your system.
These routines follow the same general outline as the user database
routines (*note Reading the User Database: Passwd Functions.). The
`_gr_inited' variable is used to ensure that the database is scanned no
-more than once. The `_gr_init' function first saves `FS', `RS', and
-`$0', and then sets `FS' and `RS' to the correct values for scanning
-the group information.
+more than once. The `_gr_init' function first saves `FS',
+`FIELDWIDTHS', `RS', and `$0', and then sets `FS' and `RS' to the
+correct values for scanning the group information.
The group information is stored is several associative arrays. The
arrays are indexed by group name (`_gr_byname'), by group-id number
(`_gr_bygid'), and by position in the database (`_gr_bycount'). There
-is an additional array indexed by user name (`_gr_groupsbyuser'), that
-is a space separated list of groups that each user belongs to.
+is an additional array indexed by username (`_gr_groupsbyuser'), which
+is a space-separated list of groups that each user belongs to.
Unlike the user database, it is possible to have multiple records in
the database for the same group. This is common when a group has a
-large number of members. Such a pair of entries might look like:
+large number of members. A pair of such entries might look like the
+following:
- tvpeople:*:101:johny,jay,arsenio
+ tvpeople:*:101:johnny,jay,arsenio
tvpeople:*:101:david,conan,tom,joan
For this reason, `_gr_init' looks to see if a group name or group-id
-number has already been seen. If it has, then the user names are
-simply concatenated onto the previous list of users. (There is
-actually a subtle problem with the code presented above. Suppose that
-the first time there were no names. This code adds the names with a
-leading comma. It also doesn't check that there is a `$4'.)
+number is already seen. If it is, then the usernames are simply
+concatenated onto the previous list of users. (There is actually a
+subtle problem with the code just presented. Suppose that the first
+time there were no names. This code adds the names with a leading
+comma. It also doesn't check that there is a `$4'.)
- Finally, `_gr_init' closes the pipeline to `grcat', restores `FS',
-`RS', and `$0', initializes `_gr_count' to zero (it is used later), and
-makes `_gr_inited' non-zero.
+ Finally, `_gr_init' closes the pipeline to `grcat', restores `FS'
+(and `FIELDWIDTHS' if necessary), `RS', and `$0', initializes
+`_gr_count' to zero (it is used later), and makes `_gr_inited' nonzero.
+
+ The `getgrnam' function takes a group name as its argument, and if
+that group exists, it is returned. Otherwise, `getgrnam' returns the
+null string:
function getgrnam(group)
{
@@ -11158,9 +13648,8 @@ makes `_gr_inited' non-zero.
return ""
}
- The `getgrnam' function takes a group name as its argument, and if
-that group exists, it is returned. Otherwise, `getgrnam' returns the
-null string.
+ The `getgrgid' function is similar, it takes a numeric group-id and
+looks up the information associated with that group-id:
function getgrgid(gid)
{
@@ -11170,8 +13659,8 @@ null string.
return ""
}
- The `getgrgid' function is similar, it takes a numeric group-id, and
-looks up the information associated with that group-id.
+ The `getgruser' function does not have a C counterpart. It takes a
+username and returns the list of groups that have the user as a member:
function getgruser(user)
{
@@ -11181,9 +13670,8 @@ looks up the information associated with that group-id.
return ""
}
- The `getgruser' function does not have a C counterpart. It takes a
-user name, and returns the list of groups that have the user as a
-member.
+ The `getgrent' function steps through the database one entry at a
+time. It uses `_gr_count' to track its position in the list:
function getgrent()
{
@@ -11193,17 +13681,14 @@ member.
return ""
}
- The `getgrent' function steps through the database one entry at a
-time. It uses `_gr_count' to track its position in the list.
+ The `endgrent' function resets `_gr_count' to zero so that
+`getgrent' can start over again:
function endgrent()
{
_gr_count = 0
}
- `endgrent' resets `_gr_count' to zero so that `getgrent' can start
-over again.
-
As with the user database routines, each function calls `_gr_init' to
initialize the arrays. Doing so only incurs the extra overhead of
running `grcat' if these functions are used (as opposed to moving the
@@ -11213,117 +13698,63 @@ body of `_gr_init' into a `BEGIN' rule).
associative arrays. The functions that the user calls are themselves
very simple, relying on `awk''s associative arrays to do work.
- The `id' program in *Note Printing Out User Information: Id Program,
+ The `id' program in *Note Printing out User Information: Id Program,
uses these functions.

-File: gawk.info, Node: Library Names, Prev: Group Functions, Up: Library Functions
-
-Naming Library Function Global Variables
-========================================
-
- Due to the way the `awk' language evolved, variables are either
-"global" (usable by the entire program), or "local" (usable just by a
-specific function). There is no intermediate state analogous to
-`static' variables in C.
-
- Library functions often need to have global variables that they can
-use to preserve state information between calls to the function. For
-example, `getopt''s variable `_opti' (*note Processing Command Line
-Options: Getopt Function.), and the `_tm_months' array used by `mktime'
-(*note Turning Dates Into Timestamps: Mktime Function.). Such
-variables are called "private", since the only functions that need to
-use them are the ones in the library.
+File: gawk.info, Node: Sample Programs, Next: Language History, Prev: Library Functions, Up: Top
- When writing a library function, you should try to choose names for
-your private variables so that they will not conflict with any
-variables used by either another library function or a user's main
-program. For example, a name like `i' or `j' is not a good choice,
-since user programs often use variable names like these for their own
-purposes.
+Practical `awk' Programs
+************************
- The example programs shown in this chapter all start the names of
-their private variables with an underscore (`_'). Users generally
-don't use leading underscores in their variable names, so this
-convention immediately decreases the chances that the variable name
-will be accidentally shared with the user's program.
+ *Note A Library of `awk' Functions: Library Functions, presents the
+idea that reading programs in a language contributes to learning that
+language. This major node continues that theme, presenting a potpourri
+of `awk' programs for your reading enjoyment.
- In addition, several of the library functions use a prefix that helps
-indicate what function or set of functions uses the variables. For
-example, `_tm_months' in `mktime' (*note Turning Dates Into Timestamps:
-Mktime Function.), and `_pw_byname' in the user data base routines
-(*note Reading the User Database: Passwd Functions.). This convention
-is recommended, since it even further decreases the chance of
-inadvertent conflict among variable names. Note that this convention
-can be used equally well both for variable names and for private
-function names too.
-
- While I could have re-written all the library routines to use this
-convention, I did not do so, in order to show how my own `awk'
-programming style has evolved, and to provide some basis for this
-discussion.
+ Many of these programs use the library functions presented in *Note
+A Library of `awk' Functions: Library Functions.
- As a final note on variable naming, if a function makes global
-variables available for use by a main program, it is a good convention
-to start that variable's name with a capital letter. For example,
-`getopt''s `Opterr' and `Optind' variables (*note Processing Command
-Line Options: Getopt Function.). The leading capital letter indicates
-that it is global, while the fact that the variable name is not all
-capital letters indicates that the variable is not one of `awk''s
-built-in variables, like `FS'.
+* Menu:
- It is also important that _all_ variables in library functions that
-do not need to save state are in fact declared local. If this is not
-done, the variable could accidentally be used in the user's program,
-leading to bugs that are very difficult to track down.
+* Running Examples:: How to run these examples.
+* Clones:: Clones of common utilities.
+* Miscellaneous Programs:: Some interesting `awk' programs.
- function lib_func(x, y, l1, l2)
- {
- ...
- USE VARIABLE some_var # some_var could be local
- ... # but is not by oversight
- }
+
+File: gawk.info, Node: Running Examples, Next: Clones, Prev: Sample Programs, Up: Sample Programs
- A different convention, common in the Tcl community, is to use a
-single associative array to hold the values needed by the library
-function(s), or "package." This significantly decreases the number of
-actual global names in use. For example, the functions described in
-*Note Reading the User Database: Passwd Functions, might have used
-`PW_data["inited"]', `PW_data["total"]', `PW_data["count"]' and
-`PW_data["awklib"]', instead of `_pw_inited', `_pw_awklib', `_pw_total',
-and `_pw_count'.
+Running the Example Programs
+============================
- The conventions presented in this section are exactly that,
-conventions. You are not required to write your programs this way, we
-merely recommend that you do so.
+ To run a given program, you would typically do something like this:
-
-File: gawk.info, Node: Sample Programs, Next: Language History, Prev: Library Functions, Up: Top
+ awk -f PROGRAM -- OPTIONS FILES
-Practical `awk' Programs
-************************
+Here, PROGRAM is the name of the `awk' program (such as `cut.awk'),
+OPTIONS are any command-line options for the program that start with a
+`-', and FILES are the actual data files.
- This chapter presents a potpourri of `awk' programs for your reading
-enjoyment.
+ If your system supports the `#!' executable interpreter mechanism
+(*note Executable `awk' Programs: Executable Scripts.), you can instead
+run your program directly:
- Many of these programs use the library functions presented in *Note
-A Library of `awk' Functions: Library Functions.
+ cut.awk -c1-8 myfiles > results
-* Menu:
+ If your `awk' is not `gawk', you may instead need to use this:
-* Clones:: Clones of common utilities.
-* Miscellaneous Programs:: Some interesting `awk' programs.
+ cut.awk -- -c1-8 myfiles > results

-File: gawk.info, Node: Clones, Next: Miscellaneous Programs, Prev: Sample Programs, Up: Sample Programs
+File: gawk.info, Node: Clones, Next: Miscellaneous Programs, Prev: Running Examples, Up: Sample Programs
-Re-inventing Wheels for Fun and Profit
-======================================
+Reinventing Wheels for Fun and Profit
+=====================================
- This section presents a number of POSIX utilities that are
-implemented in `awk'. Re-inventing these programs in `awk' is often
-enjoyable, since the algorithms can be very clearly expressed, and
-usually the code is very concise and simple. This is true because
+ This minor node presents a number of POSIX utilities that are
+implemented in `awk'. Reinventing these programs in `awk' is often
+enjoyable, because the algorithms can be very clearly expressed, and
+the code is usually very concise and simple. This is true because
`awk' does so much for you.
It should be noted that these programs are not necessarily intended
@@ -11335,30 +13766,29 @@ tasks.
* Menu:
-* Cut Program:: The `cut' utility.
-* Egrep Program:: The `egrep' utility.
-* Id Program:: The `id' utility.
-* Split Program:: The `split' utility.
-* Tee Program:: The `tee' utility.
-* Uniq Program:: The `uniq' utility.
-* Wc Program:: The `wc' utility.
+* Cut Program:: The `cut' utility.
+* Egrep Program:: The `egrep' utility.
+* Id Program:: The `id' utility.
+* Split Program:: The `split' utility.
+* Tee Program:: The `tee' utility.
+* Uniq Program:: The `uniq' utility.
+* Wc Program:: The `wc' utility.

File: gawk.info, Node: Cut Program, Next: Egrep Program, Prev: Clones, Up: Clones
-Cutting Out Fields and Columns
+Cutting out Fields and Columns
------------------------------
- The `cut' utility selects, or "cuts," either characters or fields
-from its standard input and sends them to its standard output. `cut'
-can cut out either a list of characters, or a list of fields. By
-default, fields are separated by tabs, but you may supply a command
-line option to change the field "delimiter", i.e. the field separator
-character. `cut''s definition of fields is less general than `awk''s.
+ The `cut' utility selects, or "cuts," characters or fields from its
+standard input and sends them to its standard output. Fields are
+separated by tabs by default, but you may supply a command-line option
+to change the field "delimiter" (i.e., the field separator character).
+`cut''s definition of fields is less general than `awk''s.
A common use of `cut' might be to pull out just the login name of
logged-on users from the output of `who'. For example, the following
-pipeline generates a sorted, unique list of the logged on users:
+pipeline generates a sorted, unique list of the logged-on users:
who | cut -c1-8 | sort | uniq
@@ -11368,7 +13798,7 @@ pipeline generates a sorted, unique list of the logged on users:
Use LIST as the list of characters to cut out. Items within the
list may be separated by commas, and ranges of characters can be
separated with dashes. The list `1-8,15,22-35' specifies
- characters one through eight, 15, and 22 through 35.
+ characters 1 through 8, 15, and 22 through 35.
`-f LIST'
Use LIST as the list of fields to cut out.
@@ -11381,24 +13811,23 @@ pipeline generates a sorted, unique list of the logged on users:
Suppress printing of lines that do not contain the field delimiter.
The `awk' implementation of `cut' uses the `getopt' library function
-(*note Processing Command Line Options: Getopt Function.), and the
-`join' library function (*note Merging an Array Into a String: Join
+(*note Processing Command-Line Options: Getopt Function.) and the
+`join' library function (*note Merging an Array into a String: Join
Function.).
- The program begins with a comment describing the options and a
-`usage' function which prints out a usage message and exits. `usage'
-is called if invalid arguments are supplied.
+ The program begins with a comment describing the options, the library
+functions needed, and a `usage' function that prints out a usage
+message and exits. `usage' is called if invalid arguments are supplied:
# cut.awk --- implement cut in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
# Options:
- # -f list Cut fields
- # -d c Field delimiter character
- # -c list Cut characters
+ # -f list Cut fields
+ # -d c Field delimiter character
+ # -c list Cut characters
#
- # -s Suppress lines without the delimiter character
+ # -s Suppress lines without the delimiter
+ #
+ # Requires getopt and join library functions
function usage( e1, e2)
{
@@ -11412,13 +13841,13 @@ is called if invalid arguments are supplied.
The variables `e1' and `e2' are used so that the function fits nicely
on the screen.
- Next comes a `BEGIN' rule that parses the command line options. It
-sets `FS' to a single tab character, since that is `cut''s default
+ Next comes a `BEGIN' rule that parses the command-line options. It
+sets `FS' to a single tab character, because that is `cut''s default
field separator. The output field separator is also set to be the same
as the input field separator. Then `getopt' is used to step through
-the command line options. One or the other of the variables
+the command-line options. One or the other of the variables
`by_fields' or `by_chars' is set to true, to indicate that processing
-should be done by fields or by characters respectively. When cutting
+should be done by fields or by characters, respectively. When cutting
by characters, the output field separator is set to the null string.
BEGIN \
@@ -11452,19 +13881,19 @@ by characters, the output field separator is set to the null string.
for (i = 1; i < Optind; i++)
ARGV[i] = ""
- Special care is taken when the field delimiter is a space. Using
-`" "' (a single space) for the value of `FS' is incorrect--`awk' would
-separate fields with runs of spaces, tabs and/or newlines, and we want
+ Special care is taken when the field delimiter is a space. Using a
+single space (`" "') for the value of `FS' is incorrect--`awk' would
+separate fields with runs of spaces, tabs, and/or newlines, and we want
them to be separated with individual spaces. Also, note that after
`getopt' is through, we have to clear out all the elements of `ARGV'
-from one to `Optind', so that `awk' will not try to process the command
-line options as file names.
+from 1 to `Optind', so that `awk' does not try to process the
+command-line options as file names.
- After dealing with the command line options, the program verifies
+ After dealing with the command-line options, the program verifies
that the options make sense. Only one or the other of `-c' and `-f'
-should be used, and both require a field list. Then either
-`set_fieldlist' or `set_charlist' is called to pull apart the list of
-fields or characters.
+should be used, and both require a field list. Then the program calls
+either `set_fieldlist' or `set_charlist' to pull apart the list of
+fields or characters:
if (by_fields && by_chars)
usage()
@@ -11483,14 +13912,13 @@ fields or characters.
set_charlist()
}
- Here is `set_fieldlist'. It first splits the field list apart at
-the commas, into an array. Then, for each element of the array, it
-looks to see if it is actually a range, and if so splits it apart. The
-range is verified to make sure the first number is smaller than the
-second. Each number in the list is added to the `flist' array, which
-simply lists the fields that will be printed. Normal field splitting
-is used. The program lets `awk' handle the job of doing the field
-splitting.
+ `set_fieldlist' is used to split the field list apart at the commas,
+and into an array. Then, for each element of the array, it looks to
+see if it is actually a range, and if so, splits it apart. The range is
+verified to make sure the first number is smaller than the second.
+Each number in the list is added to the `flist' array, which simply
+lists the fields that will be printed. Normal field splitting is used.
+The program lets `awk' handle the job of doing the field splitting:
function set_fieldlist( n, m, i, j, k, f, g)
{
@@ -11514,20 +13942,19 @@ splitting.
The `set_charlist' function is more complicated than `set_fieldlist'.
The idea here is to use `gawk''s `FIELDWIDTHS' variable (*note Reading
-Fixed-width Data: Constant Size.), which describes constant width
+Fixed-Width Data: Constant Size.), which describes constant width
input. When using a character list, that is exactly what we have.
Setting up `FIELDWIDTHS' is more complicated than simply listing the
fields that need to be printed. We have to keep track of the fields to
-be printed, and also the intervening characters that have to be skipped.
-For example, suppose you wanted characters one through eight, 15, and
-22 through 35. You would use `-c 1-8,15,22-35'. The necessary value
-for `FIELDWIDTHS' would be `"8 6 1 6 14"'. This gives us five fields,
-and what should be printed are `$1', `$3', and `$5'. The intermediate
-fields are "filler," stuff in between the desired data.
-
- `flist' lists the fields to be printed, and `t' tracks the complete
-field list, including filler fields.
+print and also the intervening characters that have to be skipped. For
+example, suppose you wanted characters 1 through 8, 15, and 22 through
+35. You would use `-c 1-8,15,22-35'. The necessary value for
+`FIELDWIDTHS' is `"8 6 1 6 14"'. This yields five fields, and the
+fields to print are `$1', `$3', and `$5'. The intermediate fields are
+"filler", which is stuff in between the desired data. `flist' lists
+the fields to print, and `t' tracks the complete field list, including
+filler fields:
function set_charlist( field, i, j, f, g, t,
filler, last, len)
@@ -11569,22 +13996,21 @@ field list, including filler fields.
nfields = j - 1
}
- Here is the rule that actually processes the data. If the `-s'
-option was given, then `suppress' will be true. The first `if'
-statement makes sure that the input record does have the field
-separator. If `cut' is processing fields, `suppress' is true, and the
-field separator character is not in the record, then the record is
-skipped.
+ Next is the rule that actually processes the data. If the `-s'
+option is given, then `suppress' is true. The first `if' statement
+makes sure that the input record does have the field separator. If
+`cut' is processing fields, `suppress' is true, and the field separator
+character is not in the record, then the record is skipped.
- If the record is valid, then at this point, `gawk' has split the data
-into fields, either using the character in `FS' or using fixed-length
-fields and `FIELDWIDTHS'. The loop goes through the list of fields
-that should be printed. If the corresponding field has data in it, it
-is printed. If the next field also has data, then the separator
-character is written out in between the fields.
+ If the record is valid, then `gawk' has split the data into fields,
+either using the character in `FS' or using fixed-length fields and
+`FIELDWIDTHS'. The loop goes through the list of fields that should be
+printed. The corresponding field is printed if it contains data. If
+the next field also has data, then the separator character is written
+out between the fields:
{
- if (by_fields && suppress && $0 !~ FS)
+ if (by_fields && suppress && index($0, FS) != 0)
next
for (i = 1; i <= nfields; i++) {
@@ -11598,11 +14024,11 @@ character is written out in between the fields.
}
This version of `cut' relies on `gawk''s `FIELDWIDTHS' variable to
-do the character-based cutting. While it would be possible in other
-`awk' implementations to use `substr' (*note Built-in Functions for
-String Manipulation: String Functions.), it would also be extremely
-painful to do so. The `FIELDWIDTHS' variable supplies an elegant
-solution to the problem of picking the input line apart by characters.
+do the character-based cutting. While it is possible in other `awk'
+implementations to use `substr' (*note String Manipulation Functions:
+String Functions.), it is also extremely painful. The `FIELDWIDTHS'
+variable supplies an elegant solution to the problem of picking the
+input line apart by characters.

File: gawk.info, Node: Egrep Program, Next: Id Program, Prev: Cut Program, Up: Clones
@@ -11612,57 +14038,55 @@ Searching for Regular Expressions in Files
The `egrep' utility searches files for patterns. It uses regular
expressions that are almost identical to those available in `awk'
-(*note Regular Expression Constants: Regexp Constants.). It is used
-this way:
+(*note Regular Expressions: Regexp.). It is used in the following
+manner:
egrep [ OPTIONS ] 'PATTERN' FILES ...
- The PATTERN is a regexp. In typical usage, the regexp is quoted to
-prevent the shell from expanding any of the special characters as file
-name wildcards. Normally, `egrep' prints the lines that matched. If
-multiple file names are provided on the command line, each output line
-is preceded by the name of the file and a colon.
+ The PATTERN is a regular expression. In typical usage, the regular
+expression is quoted to prevent the shell from expanding any of the
+special characters as file name wildcards. Normally, `egrep' prints
+the lines that matched. If multiple file names are provided on the
+command line, each output line is preceded by the name of the file and
+a colon.
- The options are:
+ The options to `egrep' are as follows:
`-c'
Print out a count of the lines that matched the pattern, instead
of the lines themselves.
`-s'
- Be silent. No output is produced, and the exit value indicates
- whether or not the pattern was matched.
+ Be silent. No output is produced and the exit value indicates
+ whether the pattern was matched.
`-v'
Invert the sense of the test. `egrep' prints the lines that do
- _not_ match the pattern, and exits successfully if the pattern was
+ _not_ match the pattern and exits successfully if the pattern is
not matched.
`-i'
Ignore case distinctions in both the pattern and the input data.
`-l'
- Only print the names of the files that matched, not the lines that
- matched.
+ Only print (list) the names of the files that matched, not the
+ lines that matched.
`-e PATTERN'
Use PATTERN as the regexp to match. The purpose of the `-e'
option is to allow patterns that start with a `-'.
This version uses the `getopt' library function (*note Processing
-Command Line Options: Getopt Function.), and the file transition
+Command-Line Options: Getopt Function.) and the file transition
library program (*note Noting Data File Boundaries: Filetrans
Function.).
- The program begins with a descriptive comment, and then a `BEGIN'
-rule that processes the command line arguments with `getopt'. The `-i'
+ The program begins with a descriptive comment and then a `BEGIN' rule
+that processes the command-line arguments with `getopt'. The `-i'
(ignore case) option is particularly easy with `gawk'; we just use the
-`IGNORECASE' built in variable (*note Built-in Variables::).
+`IGNORECASE' built-in variable (*note Built-in Variables::):
# egrep.awk --- simulate egrep in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
# Options:
# -c count of lines
# -s silent - use exit value
@@ -11670,6 +14094,8 @@ rule that processes the command line arguments with `getopt'. The `-i'
# -i ignore case
# -l print filenames only
# -e argument is pattern
+ #
+ # Requires getopt and file transition library functions
BEGIN {
while ((c = getopt(ARGC, ARGV, "ce:svil")) != -1) {
@@ -11689,17 +14115,13 @@ rule that processes the command line arguments with `getopt'. The `-i'
usage()
}
- Next comes the code that handles the `egrep' specific behavior. If no
-pattern was supplied with `-e', the first non-option on the command
-line is used. The `awk' command line arguments up to `ARGV[Optind]'
-are cleared, so that `awk' won't try to process them as files. If no
-files were specified, the standard input is used, and if multiple files
-were specified, we make sure to note this so that the file names can
-precede the matched lines in the output.
-
- The last two lines are commented out, since they are not needed in
-`gawk'. They should be uncommented if you have to use another version
-of `awk'.
+ Next comes the code that handles the `egrep'-specific behavior. If no
+pattern is supplied with `-e', the first non-option on the command line
+is used. The `awk' command-line arguments up to `ARGV[Optind]' are
+cleared, so that `awk' won't try to process them as files. If no files
+are specified, the standard input is used, and if multiple files are
+specified, we make sure to note this so that the file names can precede
+the matched lines in the output:
if (pattern == "")
pattern = ARGV[Optind++]
@@ -11716,10 +14138,14 @@ of `awk'.
# pattern = tolower(pattern)
}
+ The last two lines are commented out, since they are not needed in
+`gawk'. They should be uncommented if you have to use another version
+of `awk'.
+
The next set of lines should be uncommented if you are not using
`gawk'. This rule translates all the characters in the input line into
-lower-case if the `-i' option was specified. The rule is commented out
-since it is not necessary with `gawk'.
+lowercase if the `-i' option is specified.(1) The rule is commented out
+since it is not necessary with `gawk':
#{
# if (IGNORECASE)
@@ -11729,7 +14155,9 @@ since it is not necessary with `gawk'.
The `beginfile' function is called by the rule in `ftrans.awk' when
each new file is processed. In this case, it is very simple; all it
does is initialize a variable `fcount' to zero. `fcount' tracks how
-many lines in the current file matched the pattern.
+many lines in the current file matched the pattern. (Naming the
+parameter `junk' shows we know that `beginfile' is called with a
+parameter, but that we're not interested in its value.):
function beginfile(junk)
{
@@ -11737,13 +14165,13 @@ many lines in the current file matched the pattern.
}
The `endfile' function is called after each file has been processed.
-It is used only when the user wants a count of the number of lines that
-matched. `no_print' will be true only if the exit status is desired.
-`count_only' will be true if line counts are desired. `egrep' will
-therefore only print line counts if printing and counting are enabled.
-The output format must be adjusted depending upon the number of files
-to be processed. Finally, `fcount' is added to `total', so that we
-know how many lines altogether matched the pattern.
+It affects the output only when the user wants a count of the number of
+lines that matched. `no_print' is true only if the exit status is
+desired. `count_only' is true if line counts are desired. `egrep'
+therefore only prints line counts if printing and counting are enabled.
+The output format must be adjusted depending upon the number of files to
+process. Finally, `fcount' is added to `total', so that we know how
+many lines altogether matched the pattern:
function endfile(file)
{
@@ -11756,24 +14184,21 @@ know how many lines altogether matched the pattern.
total += fcount
}
- This rule does most of the work of matching lines. The variable
-`matches' will be true if the line matched the pattern. If the user
-wants lines that did not match, the sense of the `matches' is inverted
+ The following rule does most of the work of matching lines. The
+variable `matches' is true if the line matched the pattern. If the user
+wants lines that did not match, the sense of `matches' is inverted
using the `!' operator. `fcount' is incremented with the value of
-`matches', which will be either one or zero, depending upon a
-successful or unsuccessful match. If the line did not match, the
-`next' statement just moves on to the next record.
-
- There are several optimizations for performance in the following few
-lines of code. If the user only wants exit status (`no_print' is true),
-and we don't have to count lines, then it is enough to know that one
-line in this file matched, and we can skip on to the next file with
-`nextfile'. Along similar lines, if we are only printing file names,
-and we don't need to count lines, we can print the file name, and then
-skip to the next file with `nextfile'.
-
- Finally, each line is printed, with a leading filename and colon if
-necessary.
+`matches', which is either one or zero, depending upon a successful or
+unsuccessful match. If the line does not match, the `next' statement
+just moves on to the next record.
+
+ A number of additional tests are made, but they are only done if we
+are not counting lines. First, if the user only wants exit status
+(`no_print' is true), then it is enough to know that _one_ line in this
+file matched, and we can skip on to the next file with `nextfile'.
+Similarly, if we are only printing file names, we can print the file
+name, and then skip to the next file with `nextfile'. Finally, each
+line is printed, with a leading file name and colon if necessary:
{
matches = ($0 ~ pattern)
@@ -11785,22 +14210,24 @@ necessary.
if (! matches)
next
- if (no_print && ! count_only)
- nextfile
+ if (! count_only) {
+ if (no_print)
+ nextfile
- if (filenames_only && ! count_only) {
- print FILENAME
- nextfile
- }
+ if (filenames_only) {
+ print FILENAME
+ nextfile
+ }
- if (do_filenames && ! count_only)
- print FILENAME ":" $0
- else if (! count_only)
- print
+ if (do_filenames)
+ print FILENAME ":" $0
+ else
+ print
+ }
}
The `END' rule takes care of producing the correct exit status. If
-there were no matches, the exit status is one, otherwise it is zero.
+there are no matches, the exit status is one, otherwise it is zero:
END \
{
@@ -11810,11 +14237,12 @@ there were no matches, the exit status is one, otherwise it is zero.
}
The `usage' function prints a usage message in case of invalid
-options and then exits.
+options, and then exits:
function usage( e)
{
e = "Usage: egrep [-csvil] [-e pat] [files ...]"
+ e = e "\n\tegrep [-csvil] pat [files ...]"
print e > "/dev/stderr"
exit 1
}
@@ -11822,69 +14250,62 @@ options and then exits.
The variable `e' is used so that the function fits nicely on the
printed page.
- Just a note on programming style. You may have noticed that the `END'
+ Just a note on programming style: you may have noticed that the `END'
rule uses backslash continuation, with the open brace on a line by
itself. This is so that it more closely resembles the way functions
-are written. Many of the examples use this style. You can decide for
-yourself if you like writing your `BEGIN' and `END' rules this way, or
-not.
+are written. Many of the examples in this major node use this style.
+You can decide for yourself if you like writing your `BEGIN' and `END'
+rules this way or not.
+
+ ---------- Footnotes ----------
+
+ (1) It also introduces a subtle bug; if a match happens, we output
+the translated line, not the original.

File: gawk.info, Node: Id Program, Next: Split Program, Prev: Egrep Program, Up: Clones
-Printing Out User Information
+Printing out User Information
-----------------------------
The `id' utility lists a user's real and effective user-id numbers,
real and effective group-id numbers, and the user's group set, if any.
-`id' will only print the effective user-id and group-id if they are
-different from the real ones. If possible, `id' will also supply the
+`id' only prints the effective user-id and group-id if they are
+different from the real ones. If possible, `id' also supplies the
corresponding user and group names. The output might look like this:
$ id
-| uid=2076(arnold) gid=10(staff) groups=10(staff),4(tty)
- This information is exactly what is provided by `gawk''s `/dev/user'
-special file (*note Special File Names in `gawk': Special Files.).
-However, the `id' utility provides a more palatable output than just a
-string of numbers.
+ This information is part of what is provided by `gawk''s `PROCINFO'
+array (*note Built-in Variables::). However, the `id' utility provides
+a more palatable output than just individual numbers.
Here is a simple version of `id' written in `awk'. It uses the user
database library functions (*note Reading the User Database: Passwd
-Functions.), and the group database library functions (*note Reading
-the Group Database: Group Functions.).
+Functions.) and the group database library functions (*note Reading
+the Group Database: Group Functions.):
The program is fairly straightforward. All the work is done in the
-`BEGIN' rule. The user and group id numbers are obtained from
-`/dev/user'. If there is no support for `/dev/user', the program gives
-up.
-
- The code is repetitive. The entry in the user database for the real
-user-id number is split into parts at the `:'. The name is the first
-field. Similar code is used for the effective user-id number, and the
-group numbers.
+`BEGIN' rule. The user and group ID numbers are obtained from
+`PROCINFO'. The code is repetitive. The entry in the user database
+for the real user-id number is split into parts at the `:'. The name is
+the first field. Similar code is used for the effective user-id number
+and the group numbers.
# id.awk --- implement id in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
+ #
+ # Requires user and group library functions
# output is:
# uid=12(foo) euid=34(bar) gid=3(baz) \
# egid=5(blat) groups=9(nine),2(two),1(one)
BEGIN \
{
- if ((getline < "/dev/user") < 0) {
- err = "id: no /dev/user support - cannot run"
- print err > "/dev/stderr"
- exit 1
- }
- close("/dev/user")
-
- uid = $1
- euid = $2
- gid = $3
- egid = $4
+ uid = PROCINFO["uid"]
+ euid = PROCINFO["euid"]
+ gid = PROCINFO["gid"]
+ egid = PROCINFO["egid"]
printf("uid=%d", uid)
pw = getpwuid(uid)
@@ -11918,36 +14339,56 @@ group numbers.
}
}
- if (NF > 4) {
- printf(" groups=");
- for (i = 5; i <= NF; i++) {
- printf("%d", $i)
- pw = getgrgid($i)
- if (pw != "") {
- split(pw, a, ":")
- printf("(%s)", a[1])
- }
- if (i < NF)
- printf(",")
+ for (i = 1; ("group" i) in PROCINFO; i++) {
+ if (i == 1)
+ printf(" groups=")
+ group = PROCINFO["group" i]
+ printf("%d", group)
+ pw = getgrgid(group)
+ if (pw != "") {
+ split(pw, a, ":")
+ printf("(%s)", a[1])
}
+ if (("group" (i+1)) in PROCINFO)
+ printf(",")
}
+
print ""
}
+ The test in the `for' loop is worth noting. Any supplementary
+groups in the `PROCINFO' array have the indices `"group1"' through
+`"groupN"' for some N; i.e., the total number of supplementary groups.
+The problem is, we don't know in advance how many of these groups there
+are.
+
+ This loop works by starting at one, concatenating the value with
+`"group"', and then using `in' to see if that value is in the array.
+Eventually, `i' is incremented past the last group in the array and the
+loop exits.
+
+ The loop is also correct if there are _no_ supplementary groups;
+then the condition is false the first time it's tested, and the loop
+body never executes.
+

File: gawk.info, Node: Split Program, Next: Tee Program, Prev: Id Program, Up: Clones
-Splitting a Large File Into Pieces
+Splitting a Large File into Pieces
----------------------------------
- The `split' program splits large text files into smaller pieces. By
-default, the output files are named `xaa', `xab', and so on. Each file
-has 1000 lines in it, with the likely exception of the last file. To
-change the number of lines in each file, you supply a number on the
-command line preceded with a minus, e.g., `-500' for files with 500
+ The `split' program splits large text files into smaller pieces.
+The usage is as follows:
+
+ split [-COUNT] file [ PREFIX ]
+
+ By default, the output files are named `xaa', `xab', and so on. Each
+file has 1000 lines in it, with the likely exception of the last file.
+To change the number of lines in each file, supply a number on the
+command line preceded with a minus; e.g., `-500' for files with 500
lines in them instead of 1000. To change the name of the output files
-to something like `myfileaa', `myfileab', and so on, you supply an
-additional argument that specifies the filename.
+to something like `myfileaa', `myfileab', and so on, supply an
+additional argument that specifies the file name prefix.
Here is a version of `split' in `awk'. It uses the `ord' and `chr'
functions presented in *Note Translating Between Characters and
@@ -11958,13 +14399,12 @@ there are not too many arguments. It then looks at each argument in
turn. The first argument could be a minus followed by a number. If it
is, this happens to look like a negative number, so it is made
positive, and that is the count of lines. The data file name is
-skipped over, and the final argument is used as the prefix for the
-output file names.
+skipped over and the final argument is used as the prefix for the
+output file names:
# split.awk --- do split in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
+ #
+ # Requires ord and chr library functions
# usage: split [-num] [file] [outname]
BEGIN {
@@ -11997,20 +14437,21 @@ it is greater than `count', it is time to close the current file and
start a new one. `s1' and `s2' track the current suffixes for the file
name. If they are both `z', the file is just too big. Otherwise, `s1'
moves to the next letter in the alphabet and `s2' starts over again at
-`a'.
+`a':
{
if (++tcount > count) {
close(out)
if (s2 == "z") {
if (s1 == "z") {
- printf("split: %s is too large to split\n", \
+ printf("split: %s is too large to split\n",
FILENAME) > "/dev/stderr"
exit 1
}
s1 = chr(ord(s1) + 1)
s2 = "a"
- } else
+ }
+ else
s2 = chr(ord(s2) + 1)
out = (outfile s1 s2)
tcount = 1
@@ -12018,7 +14459,7 @@ moves to the next letter in the alphabet and `s2' starts over again at
print > out
}
- The `usage' function simply prints an error message and exits.
+The `usage' function simply prints an error message and exits:
function usage( e)
{
@@ -12030,39 +14471,37 @@ moves to the next letter in the alphabet and `s2' starts over again at
The variable `e' is used so that the function fits nicely on the screen.
This program is a bit sloppy; it relies on `awk' to close the last
-file for it automatically, instead of doing it in an `END' rule.
+file for it automatically, instead of doing it in an `END' rule. It
+also assumes that letters are contiguous in the character set, which
+isn't true for EBCDIC systems.

File: gawk.info, Node: Tee Program, Next: Uniq Program, Prev: Split Program, Up: Clones
-Duplicating Output Into Multiple Files
+Duplicating Output into Multiple Files
--------------------------------------
The `tee' program is known as a "pipe fitting." `tee' copies its
-standard input to its standard output, and also duplicates it to the
-files named on the command line. Its usage is:
+standard input to its standard output and also duplicates it to the
+files named on the command line. Its usage is as follows:
tee [-a] file ...
The `-a' option tells `tee' to append to the named files, instead of
truncating them and starting over.
- The `BEGIN' rule first makes a copy of all the command line
-arguments, into an array named `copy'. `ARGV[0]' is not copied, since
-it is not needed. `tee' cannot use `ARGV' directly, since `awk' will
-attempt to process each file named in `ARGV' as input data.
+ The `BEGIN' rule first makes a copy of all the command-line arguments
+into an array named `copy'. `ARGV[0]' is not copied, since it is not
+needed. `tee' cannot use `ARGV' directly, since `awk' attempts to
+process each file name in `ARGV' as input data.
If the first argument is `-a', then the flag variable `append' is
set to true, and both `ARGV[1]' and `copy[1]' are deleted. If `ARGC' is
-less than two, then no file names were supplied, and `tee' prints a
+less than two, then no file names were supplied and `tee' prints a
usage message and exits. Finally, `awk' is forced to read the standard
-input by setting `ARGV[1]' to `"-"', and `ARGC' to two.
+input by setting `ARGV[1]' to `"-"' and `ARGC' to two:
# tee.awk --- tee in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
- # Revised December 1995
-
BEGIN \
{
for (i = 1; i < ARGC; i++)
@@ -12085,7 +14524,7 @@ input by setting `ARGV[1]' to `"-"', and `ARGC' to two.
The single rule does all the work. Since there is no pattern, it is
executed for each line of input. The body of the rule simply prints the
line into each file on the command line, and then to the standard
-output.
+output:
{
# moving the if outside the loop makes it run faster
@@ -12098,7 +14537,7 @@ output.
print
}
- It would have been possible to code the loop this way:
+It is also possible to write the loop this way:
for (i in copy)
if (append)
@@ -12106,14 +14545,13 @@ output.
else
print > copy[i]
-This is more concise, but it is also less efficient. The `if' is
-tested for each record and for each output file. By duplicating the
-loop body, the `if' is only tested once for each input record. If
-there are N input records and M input files, the first method only
-executes N `if' statements, while the second would execute N`*'M `if'
-statements.
+This is more concise but it is also less efficient. The `if' is tested
+for each record and for each output file. By duplicating the loop
+body, the `if' is only tested once for each input record. If there are
+N input records and M output files, the first method only executes N
+`if' statements, while the second executes N`*'M `if' statements.
- Finally, the `END' rule cleans up, by closing all the output files.
+ Finally, the `END' rule cleans up by closing all the output files:
END \
{
@@ -12124,13 +14562,13 @@ statements.

File: gawk.info, Node: Uniq Program, Next: Wc Program, Prev: Tee Program, Up: Clones
-Printing Non-duplicated Lines of Text
+Printing Non-Duplicated Lines of Text
-------------------------------------
The `uniq' utility reads sorted lines of data on its standard input,
-and (by default) removes duplicate lines. In other words, only unique
-lines are printed, hence the name. `uniq' has a number of options. The
-usage is:
+and by default removes duplicate lines. In other words, it only prints
+unique lines--hence the name. `uniq' has a number of options. The
+usage is as follows:
uniq [-udc [-N]] [+N] [ INPUT FILE [ OUTPUT FILE ]]
@@ -12163,36 +14601,32 @@ usage is:
The generated output is sent to the named output file, instead of
to the standard output.
- Normally `uniq' behaves as if both the `-d' and `-u' options had
-been provided.
+ Normally `uniq' behaves as if both the `-d' and `-u' options are
+provided.
- Here is an `awk' implementation of `uniq'. It uses the `getopt'
-library function (*note Processing Command Line Options: Getopt
-Function.), and the `join' library function (*note Merging an Array
-Into a String: Join Function.).
+ `uniq' uses the `getopt' library function (*note Processing
+Command-Line Options: Getopt Function.) and the `join' library function
+(*note Merging an Array into a String: Join Function.).
The program begins with a `usage' function and then a brief outline
-of the options and their meanings in a comment.
-
- The `BEGIN' rule deals with the command line arguments and options.
-It uses a trick to get `getopt' to handle options of the form `-25',
-treating such an option as the option letter `2' with an argument of
-`5'. If indeed two or more digits were supplied (`Optarg' looks like a
-number), `Optarg' is concatenated with the option digit, and then
-result is added to zero to make it into a number. If there is only one
-digit in the option, then `Optarg' is not needed, and `Optind' must be
-decremented so that `getopt' will process it next time. This code is
-admittedly a bit tricky.
-
- If no options were supplied, then the default is taken, to print both
+of the options and their meanings in a comment. The `BEGIN' rule deals
+with the command-line arguments and options. It uses a trick to get
+`getopt' to handle options of the form `-25', treating such an option
+as the option letter `2' with an argument of `5'. If indeed two or more
+digits are supplied (`Optarg' looks like a number), `Optarg' is
+concatenated with the option digit and then the result is added to zero
+to make it into a number. If there is only one digit in the option,
+then `Optarg' is not needed. `Optind' must be decremented so that
+`getopt' processes it next time. This code is admittedly a bit tricky.
+
+ If no options are supplied, then the default is taken, to print both
repeated and non-repeated lines. The output file, if provided, is
-assigned to `outputfile'. Earlier, `outputfile' was initialized to the
-standard output, `/dev/stdout'.
+assigned to `outputfile'. Early on, `outputfile' is initialized to the
+standard output, `/dev/stdout':
# uniq.awk --- do uniq in awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
+ #
+ # Requires getopt and join library functions
function usage( e)
{
e = "Usage: uniq [-udc [-n]] [+n] [ in [ out ]]"
@@ -12250,22 +14684,17 @@ standard output, `/dev/stdout'.
The following function, `are_equal', compares the current line,
`$0', to the previous line, `last'. It handles skipping fields and
-characters.
-
- If no field count and no character count were specified, `are_equal'
-simply returns one or zero depending upon the result of a simple string
-comparison of `last' and `$0'. Otherwise, things get more complicated.
-
- If fields have to be skipped, each line is broken into an array using
-`split' (*note Built-in Functions for String Manipulation: String
-Functions.), and then the desired fields are joined back into a line
-using `join'. The joined lines are stored in `clast' and `cline'. If
-no fields are skipped, `clast' and `cline' are set to `last' and `$0'
-respectively.
-
- Finally, if characters are skipped, `substr' is used to strip off the
-leading `charcount' characters in `clast' and `cline'. The two strings
-are then compared, and `are_equal' returns the result.
+characters. If no field count and no character count are specified,
+`are_equal' simply returns one or zero depending upon the result of a
+simple string comparison of `last' and `$0'. Otherwise, things get more
+complicated. If fields have to be skipped, each line is broken into an
+array using `split' (*note String Manipulation Functions: String
+Functions.); the desired fields are then joined back into a line using
+`join'. The joined lines are stored in `clast' and `cline'. If no
+fields are skipped, `clast' and `cline' are set to `last' and `$0',
+respectively. Finally, if characters are skipped, `substr' is used to
+strip off the leading `charcount' characters in `clast' and `cline'.
+The two strings are then compared and `are_equal' returns the result:
function are_equal( n, m, clast, cline, alast, aline)
{
@@ -12294,20 +14723,20 @@ is executed only for the very first line of data. It sets `last' equal
to `$0', so that subsequent lines of text have something to be compared
to.
- The second rule does the work. The variable `equal' will be one or
-zero depending upon the results of `are_equal''s comparison. If `uniq'
-is counting repeated lines, then the `count' variable is incremented if
-the lines are equal. Otherwise the line is printed and `count' is
-reset, since the two lines are not equal.
+ The second rule does the work. The variable `equal' is one or zero,
+depending upon the results of `are_equal''s comparison. If `uniq' is
+counting repeated lines, and the lines are equal, then it increments
+the `count' variable. Otherwise it prints the line and resets `count',
+since the two lines are not equal.
- If `uniq' is not counting, `count' is incremented if the lines are
-equal. Otherwise, if `uniq' is counting repeated lines, and more than
-one line has been seen, or if `uniq' is counting non-repeated lines,
-and only one line has been seen, then the line is printed, and `count'
-is reset.
+ If `uniq' is not counting, and if the lines are equal, `count' is
+incremented. Nothing is printed, since the point is to remove
+duplicates. Otherwise, if `uniq' is counting repeated lines and more
+than one line is seen, or if `uniq' is counting non-repeated lines and
+only one line is seen, then the line is printed, and `count' is reset.
Finally, similar logic is used in the `END' rule to print the final
-line of input data.
+line of input data:
NR == 1 {
last = $0
@@ -12354,13 +14783,14 @@ Counting Things
---------------
The `wc' (word count) utility counts lines, words, and characters in
-one or more input files. Its usage is:
+one or more input files. Its usage is as follows:
wc [-lwc] [ FILES ... ]
If no files are specified on the command line, `wc' reads its
-standard input. If there are multiple files, it will also print total
-counts for all the files. The options and their meanings are:
+standard input. If there are multiple files, it also prints total
+counts for all the files. The options and their meanings are shown in
+the following list:
`-l'
Only count lines.
@@ -12375,27 +14805,24 @@ counts for all the files. The options and their meanings are:
Only count characters.
Implementing `wc' in `awk' is particularly elegant, since `awk' does
-a lot of the work for us; it splits lines into words (i.e. fields) and
-counts them, it counts lines (i.e. records) for us, and it can easily
-tell us how long a line is.
+a lot of the work for us; it splits lines into words (i.e., fields) and
+counts them, it counts lines (i.e., records), and it can easily tell us
+how long a line is.
- This version uses the `getopt' library function (*note Processing
-Command Line Options: Getopt Function.), and the file transition
+ This uses the `getopt' library function (*note Processing
+Command-Line Options: Getopt Function.) and the file transition
functions (*note Noting Data File Boundaries: Filetrans Function.).
- This version has one major difference from traditional versions of
-`wc'. Our version always prints the counts in the order lines, words,
-and characters. Traditional versions note the order of the `-l', `-w',
-and `-c' options on the command line, and print the counts in that
-order.
+ This version has one notable difference from traditional versions of
+`wc': it always prints the counts in the order lines, words, and
+characters. Traditional versions note the order of the `-l', `-w', and
+`-c' options on the command line, and print the counts in that order.
The `BEGIN' rule does the argument processing. The variable
-`print_total' will be true if more than one file was named on the
-command line.
+`print_total' is true if more than one file is named on the command
+line:
# wc.awk --- count lines, words, characters
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
# Options:
# -l only count lines
@@ -12403,6 +14830,8 @@ command line.
# -c only count characters
#
# Default is to count lines, words, characters
+ #
+ # Requires getopt and file transition library functions
BEGIN {
# let getopt print a message about
@@ -12427,18 +14856,19 @@ command line.
The `beginfile' function is simple; it just resets the counts of
lines, words, and characters to zero, and saves the current file name in
-`fname'.
+`fname':
+
+ function beginfile(file)
+ {
+ chars = lines = words = 0
+ fname = FILENAME
+ }
The `endfile' function adds the current file's numbers to the running
totals of lines, words, and characters. It then prints out those
numbers for the file that was just read. It relies on `beginfile' to
-reset the numbers for the following data file.
+reset the numbers for the following data file:
- function beginfile(file) {
- chars = lines = words = 0
- fname = FILENAME
- }
-
function endfile(file)
{
tchars += chars
@@ -12454,13 +14884,12 @@ reset the numbers for the following data file.
}
There is one rule that is executed for each line. It adds the length
-of the record to `chars'. It has to add one, since the newline
-character separating records (the value of `RS') is not part of the
-record itself. `lines' is incremented for each line read, and `words'
-is incremented by the value of `NF', the number of "words" on this
-line.(1)
-
- Finally, the `END' rule simply prints the totals for all the files.
+of the record, plus one, to `chars'. Adding one plus the record length
+is needed because the newline character separating records (the value
+of `RS') is not part of the record itself, and thus not included in its
+length. Next, `lines' is incremented for each line read, and `words'
+is incremented by the value of `NF', which is the number of "words" on
+this line:(1)
# do per line
{
@@ -12468,7 +14897,9 @@ line.(1)
lines++
words += NF
}
-
+
+ Finally, the `END' rule simply prints the totals for all the files.
+
END {
if (print_total) {
if (do_lines)
@@ -12483,9 +14914,10 @@ line.(1)
---------- Footnotes ----------
- (1) Examine the code in *Note Noting Data File Boundaries: Filetrans
-Function. Why must `wc' use a separate `lines' variable, instead of
-using the value of `FNR' in `endfile'?
+ (1) `wc' can't just use the value of `FNR' in `endfile'. If you
+examine the code in *Note Noting Data File Boundaries: Filetrans
+Function, you will see that `FNR' has already been reset by the time
+`endfile' is called.

File: gawk.info, Node: Miscellaneous Programs, Prev: Clones, Up: Sample Programs
@@ -12493,22 +14925,23 @@ File: gawk.info, Node: Miscellaneous Programs, Prev: Clones, Up: Sample Progr
A Grab Bag of `awk' Programs
============================
- This section is a large "grab bag" of miscellaneous programs. We
+ This minor node is a large "grab bag" of miscellaneous programs. We
hope you find them both interesting and enjoyable.
* Menu:
-* Dupword Program:: Finding duplicated words in a document.
-* Alarm Program:: An alarm clock.
-* Translate Program:: A program similar to the `tr' utility.
-* Labels Program:: Printing mailing labels.
-* Word Sorting:: A program to produce a word usage count.
-* History Sorting:: Eliminating duplicate entries from a history
- file.
-* Extract Program:: Pulling out programs from Texinfo source
- files.
-* Simple Sed:: A Simple Stream Editor.
-* Igawk Program:: A wrapper for `awk' that includes files.
+* Dupword Program:: Finding duplicated words in a document.
+* Alarm Program:: An alarm clock.
+* Translate Program:: A program similar to the `tr' utility.
+* Labels Program:: Printing mailing labels.
+* Word Sorting:: A program to produce a word usage count.
+* History Sorting:: Eliminating duplicate entries from a history
+ file.
+* Extract Program:: Pulling out programs from Texinfo source
+ files.
+* Simple Sed:: A Simple Stream Editor.
+* Igawk Program:: A wrapper for `awk' that includes
+ files.

File: gawk.info, Node: Dupword Program, Next: Alarm Program, Prev: Miscellaneous Programs, Up: Miscellaneous Programs
@@ -12517,30 +14950,37 @@ Finding Duplicated Words in a Document
--------------------------------------
A common error when writing large amounts of prose is to accidentally
-duplicate words. Often you will see this in text as something like "the
-the program does the following ...." When the text is on-line, often
-the duplicated words occur at the end of one line and the beginning of
-another, making them very difficult to spot.
+duplicate words. Typically you will see this in text as something like
+"the the program does the following ...." When the text is online,
+often the duplicated words occur at the end of one line and the
+beginning of another, making them very difficult to spot.
- This program, `dupword.awk', scans through a file one line at a time,
+ This program, `dupword.awk', scans through a file one line at a time
and looks for adjacent occurrences of the same word. It also saves the
last word on a line (in the variable `prev') for comparison with the
first word on the next line.
- The first two statements make sure that the line is all lower-case,
+ The first two statements make sure that the line is all lowercase,
so that, for example, "The" and "the" compare equal to each other. The
-second statement removes all non-alphanumeric and non-whitespace
-characters from the line, so that punctuation does not affect the
-comparison either. This sometimes leads to reports of duplicated words
-that really are different, but this is unusual.
-
- # dupword --- find duplicate words in text
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # December 1991
-
+next statement replaces non-alphanumeric and non-whitespace characters
+with spaces, so that punctuation does not affect the comparison either.
+The characters are replaced with spaces so that formatting controls
+don't create nonsense words (e.g., the Texinfo `@code{NF}' becomes
+`codeNF' if punctuation is simply deleted). The record is then
+re-split into fields, yielding just the actual words on the line, and
+insuring that there are no empty fields.
+
+ If there are no fields left after removing all the punctuation, the
+current record is skipped. Otherwise, the program loops through each
+word, comparing it to the previous one:
+
+ # dupword.awk --- find duplicate words in text
{
$0 = tolower($0)
- gsub(/[^A-Za-z0-9 \t]/, "");
+ gsub(/[^[:alnum:][:blank:]]/, " ");
+ $0 = $0 # re-split
+ if (NF == 0)
+ next
if ($1 == prev)
printf("%s:%d: duplicate %s\n",
FILENAME, FNR, $1)
@@ -12557,28 +14997,30 @@ File: gawk.info, Node: Alarm Program, Next: Translate Program, Prev: Dupword
An Alarm Clock Program
----------------------
+ Nothing cures insomnia like a ringing alarm clock.
+ Arnold Robbins
+
The following program is a simple "alarm clock" program. You give
-it a time of day, and an optional message. At the given time, it
+it a time of day and an optional message. At the specified time, it
prints the message on the standard output. In addition, you can give it
-the number of times to repeat the message, and also a delay between
+the number of times to repeat the message as well as a delay between
repetitions.
This program uses the `gettimeofday' function from *Note Managing
the Time of Day: Gettimeofday Function.
All the work is done in the `BEGIN' rule. The first part is argument
-checking and setting of defaults; the delay, the count, and the message
-to print. If the user supplied a message, but it does not contain the
-ASCII BEL character (known as the "alert" character, `\a'), then it is
-added to the message. (On many systems, printing the ASCII BEL
-generates some sort of audible alert. Thus, when the alarm goes off,
-the system calls attention to itself, in case the user is not looking
-at their computer or terminal.)
-
- # alarm --- set an alarm
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
+checking and setting of defaults: the delay, the count, and the message
+to print. If the user supplied a message without the ASCII BEL
+character (known as the "alert" character, `"\a"'), then it is added to
+the message. (On many systems, printing the ASCII BEL generates some
+sort of audible alert. Thus when the alarm goes off, the system calls
+attention to itself in case the user is not looking at their computer
+or terminal.):
+
+ # alarm.awk --- set an alarm
+ #
+ # Requires gettimeofday library function
# usage: alarm time [ "message" [ count [ delay ] ] ]
BEGIN \
@@ -12588,7 +15030,8 @@ at their computer or terminal.)
usage2 = sprintf("\t(%s) time ::= hh:mm", ARGV[1])
if (ARGC < 2) {
- print usage > "/dev/stderr"
+ print usage1 > "/dev/stderr"
+ print usage2 > "/dev/stderr"
exit 1
} else if (ARGC == 5) {
delay = ARGV[4] + 0
@@ -12615,13 +15058,14 @@ at their computer or terminal.)
else if (index(message, "\a") == 0)
message = "\a" message "\a"
- The next section of code turns the alarm time into hours and minutes,
-and converts it if necessary to a 24-hour clock. Then it turns that
-time into a count of the seconds since midnight. Next it turns the
-current time into a count of seconds since midnight. The difference
-between the two is how long to wait before setting off the alarm.
+ The next minor node of code turns the alarm time into hours and
+minutes, converts it (if necessary) to a 24-hour clock, and then turns
+that time into a count of the seconds since midnight. Next it turns
+the current time into a count of seconds since midnight. The
+difference between the two is how long to wait before setting off the
+alarm:
- # split up dest time
+ # split up alarm time
split(ARGV[1], atime, ":")
hour = atime[1] + 0 # force numeric
minute = atime[2] + 0 # force numeric
@@ -12649,13 +15093,13 @@ between the two is how long to wait before setting off the alarm.
exit 1
}
- Finally, the program uses the `system' function (*note Built-in
-Functions for Input/Output: I/O Functions.) to call the `sleep'
-utility. The `sleep' utility simply pauses for the given number of
-seconds. If the exit status is not zero, the program assumes that
-`sleep' was interrupted, and exits. If `sleep' exited with an OK status
-(zero), then the program prints the message in a loop, again using
-`sleep' to delay for however many seconds are necessary.
+ Finally, the program uses the `system' function (*note Input/Output
+Functions: I/O Functions.) to call the `sleep' utility. The `sleep'
+utility simply pauses for the given number of seconds. If the exit
+status is not zero, the program assumes that `sleep' was interrupted
+and exits. If `sleep' exited with an OK status (zero), then the program
+prints the message in a loop, again using `sleep' to delay for however
+many seconds are necessary:
# zzzzzz..... go away if interrupted
if (system(sprintf("sleep %d", naptime)) != 0)
@@ -12680,35 +15124,32 @@ Transliterating Characters
--------------------------
The system `tr' utility transliterates characters. For example, it
-is often used to map upper-case letters into lower-case, for further
-processing.
-
- GENERATE DATA | tr '[A-Z]' '[a-z]' | PROCESS DATA ...
-
- You give `tr' two lists of characters enclosed in square brackets.
-Usually, the lists are quoted to keep the shell from attempting to do a
-filename expansion.(1) When processing the input, the first character
-in the first list is replaced with the first character in the second
-list, the second character in the first list is replaced with the
-second character in the second list, and so on. If there are more
-characters in the "from" list than in the "to" list, the last character
-of the "to" list is used for the remaining characters in the "from"
-list.
+is often used to map uppercase letters into lowercase for further
+processing:
+
+ GENERATE DATA | tr 'A-Z' 'a-z' | PROCESS DATA ...
- Some time ago, a user proposed to us that we add a transliteration
-function to `gawk'. Being opposed to "creeping featurism," I wrote the
-following program to prove that character transliteration could be done
-with a user-level function. This program is not as complete as the
-system `tr' utility, but it will do most of the job.
+ `tr' requires two lists of characters.(1) When processing the
+input, the first character in the first list is replaced with the first
+character in the second list, the second character in the first list is
+replaced with the second character in the second list, and so on. If
+there are more characters in the "from" list than in the "to" list, the
+last character of the "to" list is used for the remaining characters in
+the "from" list.
+
+ Some time ago, a user proposed that a transliteration function should
+be added to `gawk'. The following program was written to prove that
+character transliteration could be done with a user-level function.
+This program is not as complete as the system `tr' utility but it does
+most of the job.
The `translate' program demonstrates one of the few weaknesses of
standard `awk': dealing with individual characters is very painful,
requiring repeated use of the `substr', `index', and `gsub' built-in
-functions (*note Built-in Functions for String Manipulation: String
-Functions.).(2)
+functions (*note String Manipulation Functions: String Functions.).(2)
There are two functions. The first, `stranslate', takes three
-arguments.
+arguments:
`from'
A list of characters to translate from.
@@ -12727,17 +15168,14 @@ used to change it to the corresponding `to' character.
The `translate' function simply calls `stranslate' using `$0' as the
target. The main program sets two global variables, `FROM' and `TO',
-from the command line, and then changes `ARGV' so that `awk' will read
-from the standard input.
+from the command line, and then changes `ARGV' so that `awk' reads from
+the standard input.
Finally, the processing rule simply calls `translate' for each
-record.
+record:
- # translate --- do tr like stuff
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # August 1989
-
- # bugs: does not handle things like: tr A-Z a-z, it has
+ # translate.awk --- do tr-like stuff
+ # Bugs: does not handle things like: tr A-Z a-z, it has
# to be spelled out. However, if `to' is shorter than `from',
# the last character in `to' is used for the rest of `from'.
@@ -12781,12 +15219,13 @@ record.
}
While it is possible to do character transliteration in a user-level
-function, it is not necessarily efficient, and we started to consider
-adding a built-in function. However, shortly after writing this
-program, we learned that the System V Release 4 `awk' had added the
-`toupper' and `tolower' functions. These functions handle the vast
+function, it is not necessarily efficient, and we (the `gawk' authors)
+started to consider adding a built-in function. However, shortly after
+writing this program, we learned that the System V Release 4 `awk' had
+added the `toupper' and `tolower' functions (*note String Manipulation
+Functions: String Functions.). These functions handle the vast
majority of the cases where character transliteration is necessary, and
-so we chose to simply add those functions to `gawk' as well, and then
+so we chose to simply add those functions to `gawk' as well and then
leave well enough alone.
An obvious improvement to this program would be to set up the `t_ar'
@@ -12796,12 +15235,13 @@ program.
---------- Footnotes ----------
- (1) On older, non-POSIX systems, `tr' often does not require that
-the lists be enclosed in square brackets and quoted. This is a feature.
+ (1) On some older System V systems, `tr' may require that the lists
+be written as range expressions enclosed in square brackets (`[a-z]')
+and quoted, to prevent the shell from attempting a file name expansion.
+This is not a feature.
(2) This program was written before `gawk' acquired the ability to
-split each character in a string into separate array elements. How
-might you use this new feature to simplify the program?
+split each character in a string into separate array elements.

File: gawk.info, Node: Labels Program, Next: Word Sorting, Prev: Translate Program, Up: Miscellaneous Programs
@@ -12810,10 +15250,10 @@ Printing Mailing Labels
-----------------------
Here is a "real world"(1) program. This script reads lists of names
-and addresses, and generates mailing labels. Each page of labels has
-20 labels on it, two across and ten down. The addresses are guaranteed
-to be no more than five lines of data. Each address is separated from
-the next by a blank line.
+and addresses and generates mailing labels. Each page of labels has 20
+labels on it, two across and ten down. The addresses are guaranteed to
+be no more than five lines of data. Each address is separated from the
+next by a blank line.
The basic idea is to read 20 labels worth of data. Each line of
each label is stored in the `line' array. The single rule takes care
@@ -12821,42 +15261,41 @@ of filling the `line' array and printing the page when 20 labels have
been read.
The `BEGIN' rule simply sets `RS' to the empty string, so that `awk'
-will split records at blank lines (*note How Input is Split into
-Records: Records.). It sets `MAXLINES' to 100, since `MAXLINE' is the
-maximum number of lines on the page (20 * 5 = 100).
+splits records at blank lines (*note How Input Is Split into Records:
+Records.). It sets `MAXLINES' to 100, since 100 is the maximum number
+of lines on the page (20 * 5 = 100).
Most of the work is done in the `printpage' function. The label
-lines are stored sequentially in the `line' array. But they have to be
-printed horizontally; `line[1]' next to `line[6]', `line[2]' next to
+lines are stored sequentially in the `line' array. But they have to
+print horizontally; `line[1]' next to `line[6]', `line[2]' next to
`line[7]', and so on. Two loops are used to accomplish this. The
outer loop, controlled by `i', steps through every 10 lines of data;
this is each row of labels. The inner loop, controlled by `j', goes
-through the lines within the row. As `j' goes from zero to four, `i+j'
-is the `j''th line in the row, and `i+j+5' is the entry next to it.
-The output ends up looking something like this:
+through the lines within the row. As `j' goes from 0 to 4, `i+j' is
+the `j''th line in the row, and `i+j+5' is the entry next to it. The
+output ends up looking something like this:
line 1 line 6
line 2 line 7
line 3 line 8
line 4 line 9
line 5 line 10
+ ...
- As a final note, at lines 21 and 61, an extra blank line is printed,
+ As a final note, an extra blank line is printed at lines 21 and 61,
to keep the output lined up on the labels. This is dependent on the
particular brand of labels in use when the program was written. You
will also note that there are two blank lines at the top and two blank
lines at the bottom.
The `END' rule arranges to flush the final page of labels; there may
-not have been an even multiple of 20 labels in the data.
+not have been an even multiple of 20 labels in the data:
- # labels.awk
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # June 1992
+ # labels.awk --- print mailing labels
- # Program to print labels. Each label is 5 lines of data
- # that may have blank lines. The label sheets have 2
- # blank lines at the top and 2 at the bottom.
+ # Each label is 5 lines of data that may have blank lines.
+ # The label sheets have 2 blank lines at the top and 2 at
+ # the bottom.
BEGIN { RS = "" ; MAXLINES = 100 }
@@ -12917,13 +15356,12 @@ Generating Word Usage Counts
The following `awk' program prints the number of occurrences of each
word in its input. It illustrates the associative nature of `awk'
-arrays by using strings as subscripts. It also demonstrates the `for X
-in ARRAY' construction. Finally, it shows how `awk' can be used in
+arrays by using strings as subscripts. It also demonstrates the `for
+INDEX in ARRAY' mechanism. Finally, it shows how `awk' is used in
conjunction with other utility programs to do a useful task of some
complexity with a minimum of effort. Some explanations follow the
-program listing.
+program listing:
- awk '
# Print list of word frequencies
{
for (i = 1; i <= NF; i++)
@@ -12933,50 +15371,49 @@ program listing.
END {
for (word in freq)
printf "%s\t%d\n", word, freq[word]
- }'
-
- The first thing to notice about this program is that it has two
-rules. The first rule, because it has an empty pattern, is executed on
-every line of the input. It uses `awk''s field-accessing mechanism
-(*note Examining Fields: Fields.) to pick out the individual words from
-the line, and the built-in variable `NF' (*note Built-in Variables::)
-to know how many fields are available.
+ }
- For each input word, an element of the array `freq' is incremented to
+ This program has two rules. The first rule, because it has an empty
+pattern, is executed for every input line. It uses `awk''s
+field-accessing mechanism (*note Examining Fields: Fields.) to pick out
+the individual words from the line, and the built-in variable `NF'
+(*note Built-in Variables::) to know how many fields are available.
+For each input word, it increments an element of the array `freq' to
reflect that the word has been seen an additional time.
The second rule, because it has the pattern `END', is not executed
until the input has been exhausted. It prints out the contents of the
-`freq' table that has been built up inside the first action.
-
- This program has several problems that would prevent it from being
-useful by itself on real text files:
+`freq' table that has been built up inside the first action. This
+program has several problems that would prevent it from being useful by
+itself on real text files:
* Words are detected using the `awk' convention that fields are
- separated by whitespace and that other characters in the input
+ separated just by whitespace. Other characters in the input
(except newlines) don't have any special meaning to `awk'. This
means that punctuation characters count as part of words.
- * The `awk' language considers upper- and lower-case characters to be
- distinct. Therefore, `bartender' and `Bartender' are not treated
- as the same word. This is undesirable since, in normal text, words
+ * The `awk' language considers upper- and lowercase characters to be
+ distinct. Therefore, "bartender" and "Bartender" are not treated
+ as the same word. This is undesirable, since in normal text, words
are capitalized if they begin sentences, and a frequency analyzer
should not be sensitive to capitalization.
* The output does not come out in any useful order. You're more
- likely to be interested in which words occur most frequently, or
+ likely to be interested in which words occur most frequently or in
having an alphabetized table of how frequently each word occurs.
- The way to solve these problems is to use some of the more advanced
-features of the `awk' language. First, we use `tolower' to remove case
+ The way to solve these problems is to use some of `awk''s more
+advanced features. First, we use `tolower' to remove case
distinctions. Next, we use `gsub' to remove punctuation characters.
Finally, we use the system `sort' utility to process the output of the
`awk' script. Here is the new version of the program:
- # Print list of word frequencies
+ # wordfreq.awk --- print list of word frequencies
+
{
$0 = tolower($0) # remove case distinctions
- gsub(/[^a-z0-9_ \t]/, "", $0) # remove punctuation
+ # remove punctuation
+ gsub(/[^[:alnum:]_[:blank:]]/, "", $0)
for (i = 1; i <= NF; i++)
freq[$i]++
}
@@ -12987,25 +15424,23 @@ Finally, we use the system `sort' utility to process the output of the
}
Assuming we have saved this program in a file named `wordfreq.awk',
-and that the data is in `file1', the following pipeline
+and that the data is in `file1', the following pipeline:
awk -f wordfreq.awk file1 | sort +1 -nr
produces a table of the words appearing in `file1' in order of
-decreasing frequency.
-
- The `awk' program suitably massages the data and produces a word
-frequency table, which is not ordered.
+decreasing frequency. The `awk' program suitably massages the data and
+produces a word frequency table, which is not ordered.
The `awk' script's output is then sorted by the `sort' utility and
-printed on the terminal. The options given to `sort' in this example
-specify to sort using the second field of each input line (skipping one
-field), that the sort keys should be treated as numeric quantities
-(otherwise `15' would come before `5'), and that the sorting should be
-done in descending (reverse) order.
+printed on the terminal. The options given to `sort' specify a sort
+that uses the second field of each input line (skipping one field),
+that the sort keys should be treated as numeric quantities (otherwise
+`15' would come before `5'), and that the sorting should be done in
+descending (reverse) order.
- We could have even done the `sort' from within the program, by
-changing the `END' action to:
+ The `sort' could even be done from within the program, by changing
+the `END' action to:
END {
sort = "sort +1 -nr"
@@ -13014,11 +15449,10 @@ changing the `END' action to:
close(sort)
}
- You would have to use this way of sorting on systems that do not
-have true pipes.
-
- See the general operating system documentation for more information
-on how to use the `sort' program.
+ This way of sorting must be used on systems that do not have true
+pipes at the command-line (or batch-file) level. See the general
+operating system documentation for more information on how to use the
+`sort' program.

File: gawk.info, Node: History Sorting, Next: Extract Program, Prev: Word Sorting, Up: Miscellaneous Programs
@@ -13026,31 +15460,26 @@ File: gawk.info, Node: History Sorting, Next: Extract Program, Prev: Word Sor
Removing Duplicates from Unsorted Text
--------------------------------------
- The `uniq' program (*note Printing Non-duplicated Lines of Text:
+ The `uniq' program (*note Printing Non-Duplicated Lines of Text:
Uniq Program.), removes duplicate lines from _sorted_ data.
Suppose, however, you need to remove duplicate lines from a data
-file, but that you wish to preserve the order the lines are in? A good
+file but that you want to preserve the order the lines are in. A good
example of this might be a shell history file. The history file keeps
a copy of all the commands you have entered, and it is not unusual to
-repeat a command several times in a row. Occasionally you might wish
+repeat a command several times in a row. Occasionally you might want
to compact the history by removing duplicate entries. Yet it is
desirable to maintain the order of the original commands.
This simple program does the job. It uses two arrays. The `data'
array is indexed by the text of each line. For each line, `data[$0]'
-is incremented.
-
- If a particular line has not been seen before, then `data[$0]' will
-be zero. In that case, the text of the line is stored in
+is incremented. If a particular line has not been seen before, then
+`data[$0]' is zero. In this case, the text of the line is stored in
`lines[count]'. Each element of `lines' is a unique command, and the
-indices of `lines' indicate the order in which those lines were
-encountered. The `END' rule simply prints out the lines, in order.
+indices of `lines' indicate the order in which those lines are
+encountered. The `END' rule simply prints out the lines, in order:
# histsort.awk --- compact a shell history file
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # May 1993
-
# Thanks to Byron Rakitzis for the general idea
{
if (data[$0]++ == 0)
@@ -13063,12 +15492,12 @@ encountered. The `END' rule simply prints out the lines, in order.
}
This program also provides a foundation for generating other useful
-information. For example, using the following `print' satement in the
-`END' rule would indicate how often a particular command was used.
+information. For example, using the following `print' statement in the
+`END' rule indicates how often a particular command is used:
print data[lines[i]], lines[i]
- This works because `data[$0]' was incremented each time a line was
+ This works because `data[$0]' is incremented each time a line is
seen.

@@ -13079,53 +15508,54 @@ Extracting Programs from Texinfo Source Files
The nodes *Note A Library of `awk' Functions: Library Functions, and
*Note Practical `awk' Programs: Sample Programs, are the top level
-nodes for a large number of `awk' programs. If you wish to experiment
+nodes for a large number of `awk' programs. If you want to experiment
with these programs, it is tedious to have to type them in by hand.
Here we present a program that can extract parts of a Texinfo input
file into separate files.
This Info file is written in Texinfo, the GNU project's document
formatting language. A single Texinfo source file can be used to
-produce both printed and on-line documentation. The Texinfo language
-is described fully, starting with *Note Introduction: (texi)Top.
+produce both printed and online documentation. The Texinfo language is
+described fully, starting with *Note Top::.
For our purposes, it is enough to know three things about Texinfo
-input files.
+input files:
- * The "at" symbol, `@', is special in Texinfo, much like `\' in C or
- `awk'. Literal `@' symbols are represented in Texinfo source
- files as `@@'.
+ * The "at" symbol (`@') is special in Texinfo, much as the backslash
+ (`\') is in C or `awk'. Literal `@' symbols are represented in
+ Texinfo source files as `@@'.
* Comments start with either `@c' or `@comment'. The file
- extraction program will work by using special comments that start
- at the beginning of a line.
+ extraction program works by using special comments that start at
+ the beginning of a line.
- * Example text that should not be split across a page boundary is
- bracketed between lines containing `@group' and `@end group'
- commands.
+ * Lines containing `@group' and `@end group' commands bracket
+ example text that should not be split across a page boundary.
+ (Unfortunately, TeX isn't always smart enough to do things exactly
+ right and we have to give it some help.)
The following program, `extract.awk', reads through a Texinfo source
-file, and does two things, based on the special comments. Upon seeing
+file and does two things, based on the special comments. Upon seeing
`@c system ...', it runs a command, by extracting the command text from
the control line and passing it on to the `system' function (*note
-Built-in Functions for Input/Output: I/O Functions.). Upon seeing `@c
-file FILENAME', each subsequent line is sent to the file FILENAME,
-until `@c endfile' is encountered. The rules in `extract.awk' will
-match either `@c' or `@comment' by letting the `omment' part be
-optional. Lines containing `@group' and `@end group' are simply
-removed. `extract.awk' uses the `join' library function (*note Merging
-an Array Into a String: Join Function.).
-
- The example programs in the on-line Texinfo source for `Effective
-AWK Programming' (`gawk.texi') have all been bracketed inside `file',
-and `endfile' lines. The `gawk' distribution uses a copy of
+Input/Output Functions: I/O Functions.). Upon seeing `@c file
+FILENAME', each subsequent line is sent to the file FILENAME, until `@c
+endfile' is encountered. The rules in `extract.awk' match either `@c'
+or `@comment' by letting the `omment' part be optional. Lines
+containing `@group' and `@end group' are simply removed. `extract.awk'
+uses the `join' library function (*note Merging an Array into a String:
+Join Function.).
+
+ The example programs in the online Texinfo source for `GAWK:
+Effective AWK Programming' (`gawk.texi') have all been bracketed inside
+`file' and `endfile' lines. The `gawk' distribution uses a copy of
`extract.awk' to extract the sample programs and install many of them
-in a standard directory, where `gawk' can find them. The Texinfo file
+in a standard directory where `gawk' can find them. The Texinfo file
looks something like this:
...
- This program has a @code{BEGIN} block,
- which prints a nice message:
+ This program has a @code{BEGIN} rule,
+ that prints a nice message:
@example
@c file examples/messages.awk
@@ -13143,16 +15573,14 @@ looks something like this:
...
`extract.awk' begins by setting `IGNORECASE' to one, so that mixed
-upper-case and lower-case letters in the directives won't matter.
+upper- and lowercase letters in the directives won't matter.
- The first rule handles calling `system', checking that a command was
-given (`NF' is at least three), and also checking that the command
-exited with a zero exit status, signifying OK.
+ The first rule handles calling `system', checking that a command is
+given (`NF' is at least three) and also checking that the command exits
+with a zero exit status, signifying OK:
# extract.awk --- extract files and run programs
# from texinfo files
- # Arnold Robbins, arnold@gnu.org, Public Domain, May 1993
-
BEGIN { IGNORECASE = 1 }
/^@c(omment)?[ \t]+system/ \
@@ -13176,34 +15604,32 @@ exited with a zero exit status, signifying OK.
The variable `e' is used so that the function fits nicely on the screen.
The second rule handles moving data into files. It verifies that a
-file name was given in the directive. If the file named is not the
-current file, then the current file is closed. This means that an `@c
-endfile' was not given for that file. (We should probably print a
-diagnostic in this case, although at the moment we do not.)
+file name is given in the directive. If the file named is not the
+current file, then the current file is closed. Keeping the current file
+open until a new file is encountered allows the use of the `>'
+redirection for printing the contents, keeping open file management
+simple.
The `for' loop does the work. It reads lines using `getline' (*note
Explicit Input with `getline': Getline.). For an unexpected end of
file, it calls the `unexpected_eof' function. If the line is an
"endfile" line, then it breaks out of the loop. If the line is an
-`@group' or `@end group' line, then it ignores it, and goes on to the
-next line. (These Texinfo control lines keep blocks of code together
-on one page; unfortunately, TeX isn't always smart enough to do things
-exactly right, and we have to give it some advice.)
+`@group' or `@end group' line, then it ignores it and goes on to the
+next line. Similarly, comments within examples are also ignored.
Most of the work is in the following few lines. If the line has no
-`@' symbols, it can be printed directly. Otherwise, each leading `@'
-must be stripped off.
-
- To remove the `@' symbols, the line is split into separate elements
-of the array `a', using the `split' function (*note Built-in Functions
-for String Manipulation: String Functions.). Each element of `a' that
-is empty indicates two successive `@' symbols in the original line.
-For each two empty elements (`@@' in the original file), we have to add
-back in a single `@' symbol.
+`@' symbols, the program can print it directly. Otherwise, each
+leading `@' must be stripped off. To remove the `@' symbols, the line
+is split into separate elements of the array `a', using the `split'
+function (*note String Manipulation Functions: String Functions.). The
+`@' symbol is used as the separator character. Each element of `a'
+that is empty indicates two successive `@' symbols in the original
+line. For each two empty elements (`@@' in the original file), we have
+to add a single `@' symbol back in.
When the processing of the array is finished, `join' is called with
the value of `SUBSEP', to rejoin the pieces back into a single line.
-That line is then printed to the output file.
+That line is then printed to the output file:
/^@c(omment)?[ \t]+file/ \
{
@@ -13225,6 +15651,8 @@ That line is then printed to the output file.
break
else if (line ~ /^@(end[ \t]+)?group/)
continue
+ else if (line ~ /^@c(omment+)?[ \t]+/)
+ continue
if (index(line, "@") == 0) {
print line > curfile
continue
@@ -13246,19 +15674,17 @@ That line is then printed to the output file.
An important thing to note is the use of the `>' redirection.
Output done with `>' only opens the file once; it stays open and
subsequent output is appended to the file (*note Redirecting Output of
-`print' and `printf': Redirection.). This allows us to easily mix
-program text and explanatory prose for the same sample source file (as
-has been done here!) without any hassle. The file is only closed when
-a new data file name is encountered, or at the end of the input file.
+`print' and `printf': Redirection.). This makes it easy to mix program
+text and explanatory prose for the same sample source file (as has been
+done here!) without any hassle. The file is only closed when a new
+data file name is encountered or at the end of the input file.
Finally, the function `unexpected_eof' prints an appropriate error
-message and then exits.
-
- The `END' rule handles the final cleanup, closing the open file.
+message and then exits. The `END' rule handles the final cleanup,
+closing the open file:
- function unexpected_eof()
- {
- printf("%s:%d: unexpected EOF or error\n", \
+ function unexpected_eof() {
+ printf("%s:%d: unexpected EOF or error\n",
FILENAME, FNR) > "/dev/stderr"
exit 1
}
@@ -13275,32 +15701,26 @@ A Simple Stream Editor
----------------------
The `sed' utility is a "stream editor," a program that reads a
-stream of data, makes changes to it, and passes the modified data on.
-It is often used to make global changes to a large file, or to a stream
-of data generated by a pipeline of commands.
-
- While `sed' is a complicated program in its own right, its most
-common use is to perform global substitutions in the middle of a
-pipeline:
+stream of data, makes changes to it, and passes it on. It is often
+used to make global changes to a large file or to a stream of data
+generated by a pipeline of commands. While `sed' is a complicated
+program in its own right, its most common use is to perform global
+substitutions in the middle of a pipeline:
command1 < orig.data | sed 's/old/new/g' | command2 > result
- Here, the `s/old/new/g' tells `sed' to look for the regexp `old' on
-each input line, and replace it with the text `new', globally (i.e. all
-the occurrences on a line). This is similar to `awk''s `gsub' function
-(*note Built-in Functions for String Manipulation: String Functions.).
+ Here, `s/old/new/g' tells `sed' to look for the regexp `old' on each
+input line and globally replace it with the text `new', (i.e., all the
+occurrences on a line). This is similar to `awk''s `gsub' function
+(*note String Manipulation Functions: String Functions.).
- The following program, `awksed.awk', accepts at least two command
-line arguments; the pattern to look for and the text to replace it
-with. Any additional arguments are treated as data file names to
-process. If none are provided, the standard input is used.
+ The following program, `awksed.awk', accepts at least two
+command-line arguments: the pattern to look for and the text to replace
+it with. Any additional arguments are treated as data file names to
+process. If none are provided, the standard input is used:
# awksed.awk --- do s/foo/bar/g using just print
# Thanks to Michael Brennan for the idea
-
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # August 1995
-
function usage()
{
print "usage: awksed pat repl [files...]" > "/dev/stderr"
@@ -13327,37 +15747,33 @@ process. If none are provided, the standard input is used.
print
}
- The program relies on `gawk''s ability to have `RS' be a regexp and
-on the setting of `RT' to the actual text that terminated the record
-(*note How Input is Split into Records: Records.).
+ The program relies on `gawk''s ability to have `RS' be a regexp, as
+well as on the setting of `RT' to the actual text that terminates the
+record (*note How Input Is Split into Records: Records.).
- The idea is to have `RS' be the pattern to look for. `gawk' will
-automatically set `$0' to the text between matches of the pattern.
-This is text that we wish to keep, unmodified. Then, by setting `ORS'
-to the replacement text, a simple `print' statement will output the
-text we wish to keep, followed by the replacement text.
+ The idea is to have `RS' be the pattern to look for. `gawk'
+automatically sets `$0' to the text between matches of the pattern.
+This is text that we want to keep, unmodified. Then, by setting `ORS'
+to the replacement text, a simple `print' statement outputs the text we
+want to keep, followed by the replacement text.
There is one wrinkle to this scheme, which is what to do if the last
-record doesn't end with text that matches `RS'? Using a `print'
+record doesn't end with text that matches `RS'. Using a `print'
statement unconditionally prints the replacement text, which is not
-correct.
-
- However, if the file did not end in text that matches `RS', `RT'
-will be set to the null string. In this case, we can print `$0' using
+correct. However, if the file did not end in text that matches `RS',
+`RT' is set to the null string. In this case, we can print `$0' using
`printf' (*note Using `printf' Statements for Fancier Printing:
Printf.).
The `BEGIN' rule handles the setup, checking for the right number of
-arguments, and calling `usage' if there is a problem. Then it sets `RS'
-and `ORS' from the command line arguments, and sets `ARGV[1]' and
-`ARGV[2]' to the null string, so that they will not be treated as file
-names (*note Using `ARGC' and `ARGV': ARGC and ARGV.).
-
- The `usage' function prints an error message and exits.
+arguments and calling `usage' if there is a problem. Then it sets `RS'
+and `ORS' from the command-line arguments and sets `ARGV[1]' and
+`ARGV[2]' to the null string, so that they are not treated as file names
+(*note Using `ARGC' and `ARGV': ARGC and ARGV.).
- Finally, the single rule handles the printing scheme outlined above,
-using `print' or `printf' as appropriate, depending upon the value of
-`RT'.
+ The `usage' function prints an error message and exits. Finally,
+the single rule handles the printing scheme outlined above, using
+`print' or `printf' as appropriate, depending upon the value of `RT'.

File: gawk.info, Node: Igawk Program, Prev: Simple Sed, Up: Miscellaneous Programs
@@ -13366,15 +15782,14 @@ An Easy Way to Use Library Functions
------------------------------------
Using library functions in `awk' can be very beneficial. It
-encourages code re-use and the writing of general functions. Programs
-are smaller, and therefore clearer. However, using library functions
-is only easy when writing `awk' programs; it is painful when running
-them, requiring multiple `-f' options. If `gawk' is unavailable, then
-so too is the `AWKPATH' environment variable and the ability to put
-`awk' functions into a library directory (*note Command Line Options:
-Options.).
-
- It would be nice to be able to write programs like so:
+encourages code reuse and the writing of general functions. Programs are
+smaller and therefore clearer. However, using library functions is
+only easy when writing `awk' programs; it is painful when running them,
+requiring multiple `-f' options. If `gawk' is unavailable, then so too
+is the `AWKPATH' environment variable and the ability to put `awk'
+functions into a library directory (*note Command-Line Options:
+Options.). It would be nice to be able to write programs in the
+following manner:
# library functions
@include getopt.awk
@@ -13389,16 +15804,16 @@ Options.).
}
The following program, `igawk.sh', provides this service. It
-simulates `gawk''s searching of the `AWKPATH' variable, and also allows
-"nested" includes; i.e. a file that has been included with `@include'
-can contain further `@include' statements. `igawk' will make an effort
-to only include files once, so that nested includes don't accidentally
-include a library function twice.
-
- `igawk' should behave externally just like `gawk'. This means it
-should accept all of `gawk''s command line arguments, including the
+simulates `gawk''s searching of the `AWKPATH' variable and also allows
+"nested" includes; i.e., a file that is included with `@include' can
+contain further `@include' statements. `igawk' makes an effort to only
+include files once, so that nested includes don't accidentally include
+a library function twice.
+
+ `igawk' should behave just like `gawk' externally. This means it
+should accept all of `gawk''s command-line arguments, including the
ability to have multiple source files specified via `-f', and the
-ability to mix command line and library source files.
+ability to mix command-line and library source files.
The program is written using the POSIX Shell (`sh') command language.
The way the program works is as follows:
@@ -13407,16 +15822,16 @@ The way the program works is as follows:
`awk' source code for later, when the expanded program is run.
2. For any arguments that do represent `awk' text, put the arguments
- into a temporary file that will be expanded. There are two cases.
+ into a temporary file that will be expanded. There are two cases:
a. Literal text, provided with `--source' or `--source='. This
- text is just echoed directly. The `echo' program will
- automatically supply a trailing newline.
+ text is just echoed directly. The `echo' program
+ automatically supplies a trailing newline.
- b. File names provided with `-f'. We use a neat trick, and echo
- `@include FILENAME' into the temporary file. Since the file
- inclusion program will work the way `gawk' does, this will
- get the text of the file included into the program at the
+ b. Source file names provided with `-f'. We use a neat trick
+ and echo `@include FILENAME' into the temporary file. Since
+ the file inclusion program works the way `gawk' does, this
+ gets the text of the file included into the program at the
correct point.
3. Run an `awk' program (naturally) over the temporary file to expand
@@ -13424,15 +15839,15 @@ The way the program works is as follows:
temporary file.
4. Run the expanded program with `gawk' and any other original
- command line arguments that the user supplied (such as the data
+ command-line arguments that the user supplied (such as the data
file names).
The initial part of the program turns on shell tracing if the first
-argument was `debug'. Otherwise, a shell `trap' statement arranges to
+argument is `debug'. Otherwise, a shell `trap' statement arranges to
clean up any temporary files on program exit or upon an interrupt.
- The next part loops through all the command line arguments. There
-are several cases of interest.
+ The next part loops through all the command-line arguments. There
+are several cases of interest:
`--'
This ends the arguments to `igawk'. Anything else should be
@@ -13445,50 +15860,36 @@ are several cases of interest.
programming trick. Don't worry about it if you are not familiar
with `sh'.)
-`-v'
-`-F'
+`-v, -F'
These are saved and passed on to `gawk'.
-`-f'
-`--file'
-`--file='
-`-Wfile='
+`-f, --file, --file=, -Wfile='
The file name is saved to the temporary file `/tmp/ig.s.$$' with an
`@include' statement. The `sed' utility is used to remove the
leading option part of the argument (e.g., `--file=').
-`--source'
-`--source='
-`-Wsource='
+`--source, --source=, -Wsource='
The source text is echoed into `/tmp/ig.s.$$'.
-`--version'
-`-Wversion'
- `igawk' prints its version number, and runs `gawk --version' to
- get the `gawk' version information, and then exits.
-
- If none of `-f', `--file', `-Wfile', `--source', or `-Wsource', were
-supplied, then the first non-option argument should be the `awk'
-program. If there are no command line arguments left, `igawk' prints
-an error message and exits. Otherwise, the first argument is echoed
-into `/tmp/ig.s.$$'.
+`--version, -Wversion'
+ `igawk' prints its version number, runs `gawk --version' to get
+ the `gawk' version information, and then exits.
- In any case, after the arguments have been processed, `/tmp/ig.s.$$'
-contains the complete text of the original `awk' program.
+ If none of the `-f', `--file', `-Wfile', `--source', or `-Wsource'
+arguments are supplied, then the first non-option argument should be
+the `awk' program. If there are no command-line arguments left,
+`igawk' prints an error message and exits. Otherwise, the first
+argument is echoed into `/tmp/ig.s.$$'. In any case, after the
+arguments have been processed, `/tmp/ig.s.$$' contains the complete
+text of the original `awk' program.
The `$$' in `sh' represents the current process ID number. It is
often used in shell programs to generate unique temporary file names.
This allows multiple users to run `igawk' without worrying that the
-temporary file names will clash.
-
- Here's the program:
+temporary file names will clash. The program is as follows:
#! /bin/sh
-
# igawk --- like gawk but do @include processing
- # Arnold Robbins, arnold@gnu.org, Public Domain
- # July 1993
-
if [ "$1" = debug ]
then
set -x
@@ -13522,15 +15923,15 @@ temporary file names will clash.
f=`echo "$1" | sed 's/-.file=//'`
echo @include "$f" >> /tmp/ig.s.$$ ;;
- -?file) # get arg, $2
+ -?file) # get arg, $2
echo @include "$2" >> /tmp/ig.s.$$
shift;;
- -?source=*) # -Wsource or --source
+ -?source=*) # -Wsource or --source
t=`echo "$1" | sed 's/-.source=//'`
echo "$t" >> /tmp/ig.s.$$ ;;
- -?source) # get arg, $2
+ -?source) # get arg, $2
echo "$2" >> /tmp/ig.s.$$
shift;;
@@ -13539,7 +15940,7 @@ temporary file names will clash.
gawk --version
exit 0 ;;
- -[W-]*) opts="$opts '$1'" ;;
+ -[W-]*) opts="$opts '$1'" ;;
*) break;;
esac
@@ -13561,10 +15962,10 @@ temporary file names will clash.
# at this point, /tmp/ig.s.$$ has the program
The `awk' program to process `@include' directives reads through the
-program, one line at a time using `getline' (*note Explicit Input with
+program, one line at a time, using `getline' (*note Explicit Input with
`getline': Getline.). The input file names and `@include' statements
are managed using a stack. As each `@include' is encountered, the
-current file name is "pushed" onto the stack, and the file named in the
+current file name is "pushed" onto the stack and the file named in the
`@include' directive becomes the current file name. As each file is
finished, the stack is "popped," and the previous input file becomes
the current input file again. The process is started by making the
@@ -13575,10 +15976,10 @@ file. It simulates `gawk''s behavior when searching the `AWKPATH'
environment variable (*note The `AWKPATH' Environment Variable: AWKPATH
Variable.). If a file name has a `/' in it, no path search is done.
Otherwise, the file name is concatenated with the name of each
-directory in the path, and an attempt is made to open the generated file
-name. The only way in `awk' to test if a file can be read is to go
-ahead and try to read it with `getline'; that is what `pathto' does.(1)
-If the file can be read, it is closed, and the file name is returned.
+directory in the path, and an attempt is made to open the generated
+file name. The only way to test if a file can be read in `awk' is to go
+ahead and try to read it with `getline'; this is what `pathto' does.(1)
+If the file can be read, it is closed and the file name is returned:
gawk -- '
# process @include directives
@@ -13602,7 +16003,7 @@ If the file can be read, it is closed, and the file name is returned.
The main program is contained inside one `BEGIN' rule. The first
thing it does is set up the `pathlist' array that `pathto' uses. After
splitting the path on `:', null elements are replaced with `"."', which
-represents the current directory.
+represents the current directory:
BEGIN {
path = ENVIRON["AWKPATH"]
@@ -13615,21 +16016,19 @@ represents the current directory.
The stack is initialized with `ARGV[1]', which will be
`/tmp/ig.s.$$'. The main loop comes next. Input lines are read in
succession. Lines that do not start with `@include' are printed
-verbatim.
+verbatim. If the line does start with `@include', the file name is in
+`$2'. `pathto' is called to generate the full path. If it cannot,
+then we print an error message and continue.
- If the line does start with `@include', the file name is in `$2'.
-`pathto' is called to generate the full path. If it could not, then we
-print an error message and continue.
-
- The next thing to check is if the file has been included already.
-The `processed' array is indexed by the full file name of each included
-file, and it tracks this information for us. If the file has been
-seen, a warning message is printed. Otherwise, the new file name is
-pushed onto the stack and processing continues.
+ The next thing to check is if the file is included already. The
+`processed' array is indexed by the full file name of each included
+file and it tracks this information for us. If the file is seen again,
+a warning message is printed. Otherwise, the new file name is pushed
+onto the stack and processing continues.
Finally, when `getline' encounters the end of the input file, the
file is closed and the stack is popped. When `stackptr' is less than
-zero, the program is done.
+zero, the program is done:
stackptr = 0
input[stackptr] = ARGV[1] # ARGV[1] is first file
@@ -13642,43 +16041,44 @@ zero, the program is done.
}
fpath = pathto($2)
if (fpath == "") {
- printf("igawk:%s:%d: cannot find %s\n", \
+ printf("igawk:%s:%d: cannot find %s\n",
input[stackptr], FNR, $2) > "/dev/stderr"
continue
}
if (! (fpath in processed)) {
processed[fpath] = input[stackptr]
- input[++stackptr] = fpath
+ input[++stackptr] = fpath # push onto stack
} else
- print $2, "included in", input[stackptr], \
- "already included in", \
+ print $2, "included in", input[stackptr],
+ "already included in",
processed[fpath] > "/dev/stderr"
}
close(input[stackptr])
}
}' /tmp/ig.s.$$ > /tmp/ig.e.$$
- The last step is to call `gawk' with the expanded program and the
-original options and command line arguments that the user supplied.
-`gawk''s exit status is passed back on to `igawk''s calling program.
+ The last step is to call `gawk' with the expanded program, along
+with the original options and command-line arguments that the user
+supplied. `gawk''s exit status is passed back on to `igawk''s calling
+program:
eval gawk -f /tmp/ig.e.$$ $opts -- "$@"
exit $?
This version of `igawk' represents my third attempt at this program.
-There are three key simplifications that made the program work better.
+There are three key simplifications that make the program work better:
- 1. Using `@include' even for the files named with `-f' makes building
+ * Using `@include' even for the files named with `-f' makes building
the initial collected `awk' program much simpler; all the
`@include' processing can be done once.
- 2. The `pathto' function doesn't try to save the line read with
+ * The `pathto' function doesn't try to save the line read with
`getline' when testing for the file's accessibility. Trying to
save this line for use with the main program complicates things
considerably.
- 3. Using a `getline' loop in the `BEGIN' rule does it all in one
+ * Using a `getline' loop in the `BEGIN' rule does it all in one
place. It is not necessary to call out to a separate loop for
processing nested `@include' statements.
@@ -13694,15 +16094,15 @@ there is no real reason to build `@include' processing into `gawk'
itself.
As an additional example of this, consider the idea of having two
-files in a directory in the search path.
+files in a directory in the search path:
`default.awk'
- This file would contain a set of default library functions, such
- as `getopt' and `assert'.
+ This file contains a set of default library functions, such as
+ `getopt' and `assert'.
`site.awk'
- This file would contain library functions that are specific to a
- site or installation, i.e. locally developed functions. Having a
+ This file contains library functions that are specific to a site or
+ installation; i.e., locally developed functions. Having a
separate file allows `default.awk' to change with new `gawk'
releases, without requiring the system administrator to update it
each time by adding the local functions.
@@ -13716,22 +16116,23 @@ for the desired library functions.
---------- Footnotes ----------
(1) On some very old versions of `awk', the test `getline junk < t'
-can loop forever if the file exists but is empty. Caveat Emptor.
+can loop forever if the file exists but is empty. Caveat emptor.

-File: gawk.info, Node: Language History, Next: Gawk Summary, Prev: Sample Programs, Up: Top
+File: gawk.info, Node: Language History, Next: Installation, Prev: Sample Programs, Up: Top
The Evolution of the `awk' Language
***********************************
This Info file describes the GNU implementation of `awk', which
-follows the POSIX specification. Many `awk' users are only familiar
-with the original `awk' implementation in Version 7 Unix. (This
-implementation was the basis for `awk' in Berkeley Unix, through
-4.3-Reno. The 4.4 release of Berkeley Unix uses `gawk' 2.15.2 for its
-version of `awk'.) This chapter briefly describes the evolution of the
-`awk' language, with cross references to other parts of the Info file
-where you can find more information.
+follows the POSIX specification. Many long-time `awk' users learned
+`awk' programming with the original `awk' implementation in Version 7
+Unix. (This implementation was the basis for `awk' in Berkeley Unix,
+through 4.3-Reno. Subsequent versions of Berkeley Unix, and systems
+derived from 4.4BSD-Lite, use various versions of `gawk' for their
+`awk'.) This major node briefly describes the evolution of the `awk'
+language, with cross references to other parts of the Info file where
+you can find more information.
* Menu:
@@ -13744,37 +16145,38 @@ where you can find more information.
version of `awk'.
* POSIX/GNU:: The extensions in `gawk' not in POSIX
`awk'.
+* Contributors:: The major contributors to `gawk'.

File: gawk.info, Node: V7/SVR3.1, Next: SVR4, Prev: Language History, Up: Language History
-Major Changes between V7 and SVR3.1
+Major Changes Between V7 and SVR3.1
===================================
The `awk' language evolved considerably between the release of
-Version 7 Unix (1978) and the new version first made generally
-available in System V Release 3.1 (1987). This section summarizes the
-changes, with cross-references to further details.
+Version 7 Unix (1978) and the new version that was first made generally
+available in System V Release 3.1 (1987). This minor node summarizes
+the changes, with cross-references to further details:
* The requirement for `;' to separate rules on a line (*note `awk'
Statements Versus Lines: Statements/Lines.).
- * User-defined functions, and the `return' statement (*note
- User-defined Functions: User-defined.).
+ * User-defined functions and the `return' statement (*note
+ User-Defined Functions: User-defined.).
* The `delete' statement (*note The `delete' Statement: Delete.).
* The `do'-`while' statement (*note The `do'-`while' Statement: Do
Statement.).
- * The built-in functions `atan2', `cos', `sin', `rand' and `srand'
- (*note Numeric Built-in Functions: Numeric Functions.).
+ * The built-in functions `atan2', `cos', `sin', `rand', and `srand'
+ (*note Numeric Functions::).
- * The built-in functions `gsub', `sub', and `match' (*note Built-in
- Functions for String Manipulation: String Functions.).
+ * The built-in functions `gsub', `sub', and `match' (*note String
+ Manipulation Functions: String Functions.).
- * The built-in functions `close', and `system' (*note Built-in
- Functions for Input/Output: I/O Functions.).
+ * The built-in functions `close' and `system' (*note Input/Output
+ Functions: I/O Functions.).
* The `ARGC', `ARGV', `FNR', `RLENGTH', `RSTART', and `SUBSEP'
built-in variables (*note Built-in Variables::).
@@ -13790,17 +16192,17 @@ changes, with cross-references to further details.
programs (*note Operator Precedence (How Operators Nest):
Precedence.).
- * Regexps as the value of `FS' (*note Specifying How Fields are
- Separated: Field Separators.), and as the third argument to the
- `split' function (*note Built-in Functions for String
- Manipulation: String Functions.).
+ * Regexps as the value of `FS' (*note Specifying How Fields Are
+ Separated: Field Separators.) and as the third argument to the
+ `split' function (*note String Manipulation Functions: String
+ Functions.).
* Dynamic regexps as operands of the `~' and `!~' operators (*note
How to Use Regular Expressions: Regexp Usage.).
* The escape sequences `\b', `\f', and `\r' (*note Escape
Sequences::). (Some vendors have updated their old versions of
- `awk' to recognize `\r', `\b', and `\f', but this is not something
+ `awk' to recognize `\b', `\f', and `\r', but this is not something
you can rely on.)
* Redirection of input for the `getline' function (*note Explicit
@@ -13809,37 +16211,37 @@ changes, with cross-references to further details.
* Multiple `BEGIN' and `END' rules (*note The `BEGIN' and `END'
Special Patterns: BEGIN/END.).
- * Multi-dimensional arrays (*note Multi-dimensional Arrays:
+ * Multidimensional arrays (*note Multidimensional Arrays:
Multi-dimensional.).

File: gawk.info, Node: SVR4, Next: POSIX, Prev: V7/SVR3.1, Up: Language History
-Changes between SVR3.1 and SVR4
+Changes Between SVR3.1 and SVR4
===============================
- The System V Release 4 version of Unix `awk' added these features
-(some of which originated in `gawk'):
+ The System V Release 4 (1989) version of Unix `awk' added these
+features (some of which originated in `gawk'):
* The `ENVIRON' variable (*note Built-in Variables::).
- * Multiple `-f' options on the command line (*note Command Line
+ * Multiple `-f' options on the command line (*note Command-Line
Options: Options.).
* The `-v' option for assigning variables before program execution
- begins (*note Command Line Options: Options.).
+ begins (*note Command-Line Options: Options.).
- * The `--' option for terminating command line options.
+ * The `--' option for terminating command-line options.
* The `\a', `\v', and `\x' escape sequences (*note Escape
Sequences::).
* A defined return value for the `srand' built-in function (*note
- Numeric Built-in Functions: Numeric Functions.).
+ Numeric Functions::).
* The `toupper' and `tolower' built-in string functions for case
- translation (*note Built-in Functions for String Manipulation:
- String Functions.).
+ translation (*note String Manipulation Functions: String
+ Functions.).
* A cleaner specification for the `%c' format-control letter in the
`printf' function (*note Format-Control Letters: Control Letters.).
@@ -13848,26 +16250,31 @@ Changes between SVR3.1 and SVR4
(`"%*.*d"') in the argument list of the `printf' function (*note
Format-Control Letters: Control Letters.).
- * The use of regexp constants such as `/foo/' as expressions, where
+ * The use of regexp constants, such as `/foo/', as expressions, where
they are equivalent to using the matching operator, as in `$0 ~
/foo/' (*note Using Regular Expression Constants: Using Constant
Regexps.).
+ * Processing of escape sequences inside command-line variable
+ assignments (*note Assigning Variables on the Command Line:
+ Assignment Options.).
+

File: gawk.info, Node: POSIX, Next: BTL, Prev: SVR4, Up: Language History
-Changes between SVR4 and POSIX `awk'
+Changes Between SVR4 and POSIX `awk'
====================================
- The POSIX Command Language and Utilities standard for `awk'
+ The POSIX Command Language and Utilities standard for `awk' (1992)
introduced the following changes into the language:
- * The use of `-W' for implementation-specific options.
+ * The use of `-W' for implementation-specific options (*note
+ Command-Line Options: Options.).
* The use of `CONVFMT' for controlling the conversion of numbers to
strings (*note Conversion of Strings and Numbers: Conversion.).
- * The concept of a numeric string, and tighter comparison rules to go
+ * The concept of a numeric string and tighter comparison rules to go
with it (*note Variable Typing and Comparison Expressions: Typing
and Comparison.).
@@ -13881,21 +16288,24 @@ standard:
Sequences::).
* Newlines do not act as whitespace to separate fields when `FS' is
- equal to a single space.
+ equal to a single space (*note Examining Fields: Fields.).
+
+ * Newlines are not allowed after `?' or `:' (*note Conditional
+ Expressions: Conditional Exp.).
* The synonym `func' for the keyword `function' is not recognized
(*note Function Definition Syntax: Definition Syntax.).
* The operators `**' and `**=' cannot be used in place of `^' and
- `^=' (*note Arithmetic Operators: Arithmetic Ops., and also *note
- Assignment Expressions: Assignment Ops.).
+ `^=' (*note Arithmetic Operators: Arithmetic Ops., and *Note
+ Assignment Expressions: Assignment Ops).
* Specifying `-Ft' on the command line does not set the value of
- `FS' to be a single tab character (*note Specifying How Fields are
+ `FS' to be a single tab character (*note Specifying How Fields Are
Separated: Field Separators.).
- * The `fflush' built-in function is not supported (*note Built-in
- Functions for Input/Output: I/O Functions.).
+ * The `fflush' built-in function is not supported (*note
+ Input/Output Functions: I/O Functions.).

File: gawk.info, Node: BTL, Next: POSIX/GNU, Prev: POSIX, Up: Language History
@@ -13904,127 +16314,158 @@ Extensions in the Bell Laboratories `awk'
=========================================
Brian Kernighan, one of the original designers of Unix `awk', has
-made his version available via anonymous `ftp' (*note Other Freely
-Available `awk' Implementations: Other Versions.). This section
+made his version available via his home page (*note Other Freely
+Available `awk' Implementations: Other Versions.). This minor node
describes extensions in his version of `awk' that are not in POSIX
`awk'.
- * The `-mf NNN' and `-mr NNN' command line options to set the
- maximum number of fields, and the maximum record size, respectively
- (*note Command Line Options: Options.).
+ * The `-mf N' and `-mr N' command-line options to set the maximum
+ number of fields and the maximum record size, respectively (*note
+ Command-Line Options: Options.). As a side note, his `awk' no
+ longer needs these options; it continues to accept them to avoid
+ breaking old programs.
* The `fflush' built-in function for flushing buffered output (*note
- Built-in Functions for Input/Output: I/O Functions.).
+ Input/Output Functions: I/O Functions.).
+
+ * The `**' and `**=' operators (*note Arithmetic Operators:
+ Arithmetic Ops. and *Note Assignment Expressions: Assignment Ops).
+ * The use of `func' as an abbreviation for `function' (*note
+ Function Definition Syntax: Definition Syntax.).
+
+
+ The Bell Laboratories `awk' also incorporates the following
+extensions, originally developed for `gawk':
+
+ * The `\x' escape sequence (*note Escape Sequences::).
+
+ * The `/dev/stdin', `/dev/stdout', and `/dev/stderr' special files
+ (*note Special File Names in `gawk': Special Files.).
+
+ * The ability for `FS' and for the third argument to `split' to be
+ null strings (*note Making Each Character a Separate Field: Single
+ Character Fields.).
+
+ * The `nextfile' statement (*note Using `gawk''s `nextfile'
+ Statement: Nextfile Statement.).
+
+ * The ability to delete all of an array at once with `delete ARRAY'
+ (*note The `delete' Statement: Delete.).

-File: gawk.info, Node: POSIX/GNU, Prev: BTL, Up: Language History
+File: gawk.info, Node: POSIX/GNU, Next: Contributors, Prev: BTL, Up: Language History
Extensions in `gawk' Not in POSIX `awk'
=======================================
- The GNU implementation, `gawk', adds a number of features. This
-sections lists them in the order they were added to `gawk'. They can
-all be disabled with either the `--traditional' or `--posix' options
-(*note Command Line Options: Options.).
+ The GNU implementation, `gawk', adds a large number of features.
+This minor node lists them in the order they were added to `gawk'.
+They can all be disabled with either the `--traditional' or `--posix'
+options (*note Command-Line Options: Options.).
- Version 2.10 of `gawk' introduced these features:
+ Version 2.10 of `gawk' introduced the following features:
* The `AWKPATH' environment variable for specifying a path search for
- the `-f' command line option (*note Command Line Options:
+ the `-f' command-line option (*note Command-Line Options:
Options.).
- * The `IGNORECASE' variable and its effects (*note Case-sensitivity
+ * The `IGNORECASE' variable and its effects (*note Case Sensitivity
in Matching: Case-sensitivity.).
- * The `/dev/stdin', `/dev/stdout', `/dev/stderr', and `/dev/fd/N'
- file name interpretation (*note Special File Names in `gawk':
- Special Files.).
+ * The `/dev/stdin', `/dev/stdout', `/dev/stderr' and `/dev/fd/N'
+ special file names (*note Special File Names in `gawk': Special
+ Files.).
- Version 2.13 of `gawk' introduced these features:
+ Version 2.13 of `gawk' introduced the following features:
* The `FIELDWIDTHS' variable and its effects (*note Reading
- Fixed-width Data: Constant Size.).
+ Fixed-Width Data: Constant Size.).
* The `systime' and `strftime' built-in functions for obtaining and
- printing time stamps (*note Functions for Dealing with Time
- Stamps: Time Functions.).
+ printing timestamps (*note Using `gawk''s Timestamp Functions:
+ Time Functions.).
- * The `-W lint' option to provide source code and run time error and
- portability checking (*note Command Line Options: Options.).
+ * The `-W lint' option to provide error and portability checking for
+ both the source code and at runtime (*note Command-Line Options:
+ Options.).
- * The `-W compat' option to turn off these extensions (*note Command
- Line Options: Options.).
+ * The `-W compat' option to turn off the GNU extensions (*note
+ Command-Line Options: Options.).
- * The `-W posix' option for full POSIX compliance (*note Command
- Line Options: Options.).
+ * The `-W posix' option for full POSIX compliance (*note
+ Command-Line Options: Options.).
- Version 2.14 of `gawk' introduced these features:
+ Version 2.14 of `gawk' introduced the following feature:
* The `next file' statement for skipping to the next data file
- (*note The `nextfile' Statement: Nextfile Statement.).
+ (*note Using `gawk''s `nextfile' Statement: Nextfile Statement.).
- Version 2.15 of `gawk' introduced these features:
+ Version 2.15 of `gawk' introduced the following features:
- * The `ARGIND' variable, that tracks the movement of `FILENAME'
+ * The `ARGIND' variable, which tracks the movement of `FILENAME'
through `ARGV' (*note Built-in Variables::).
- * The `ERRNO' variable, that contains the system error message when
- `getline' returns -1, or when `close' fails (*note Built-in
+ * The `ERRNO' variable, which contains the system error message when
+ `getline' returns -1 or when `close' fails (*note Built-in
Variables::).
- * The ability to use GNU-style long named options that start with
- `--' (*note Command Line Options: Options.).
-
- * The `--source' option for mixing command line and library file
- source code (*note Command Line Options: Options.).
-
* The `/dev/pid', `/dev/ppid', `/dev/pgrpid', and `/dev/user' file
name interpretation (*note Special File Names in `gawk': Special
Files.).
- Version 3.0 of `gawk' introduced these features:
+ * The ability to delete all of an array at once with `delete ARRAY'
+ (*note The `delete' Statement: Delete.).
- * The `next file' statement became `nextfile' (*note The `nextfile'
- Statement: Nextfile Statement.).
+ * The ability to use GNU-style long-named options that start with
+ `--' (*note Command-Line Options: Options.).
- * The `--lint-old' option to warn about constructs that are not
- available in the original Version 7 Unix version of `awk' (*note
- Major Changes between V7 and SVR3.1: V7/SVR3.1.).
+ * The `--source' option for mixing command-line and library file
+ source code (*note Command-Line Options: Options.).
- * The `--traditional' option was added as a better name for
- `--compat' (*note Command Line Options: Options.).
+ Version 3.0 of `gawk' introduced the following features:
- * The ability for `FS' to be a null string, and for the third
- argument to `split' to be the null string (*note Making Each
- Character a Separate Field: Single Character Fields.).
+ * `IGNORECASE' changed, now applying to string comparison as well as
+ regexp operations (*note Case Sensitivity in Matching:
+ Case-sensitivity.).
- * The ability for `RS' to be a regexp (*note How Input is Split into
- Records: Records.).
+ * The `RT' variable that contains the input text that matched `RS'
+ (*note How Input Is Split into Records: Records.).
- * The `RT' variable (*note How Input is Split into Records:
- Records.).
+ * Full support for both POSIX and GNU regexps (*note Regular
+ Expressions: Regexp.).
* The `gensub' function for more powerful text manipulation (*note
- Built-in Functions for String Manipulation: String Functions.).
+ String Manipulation Functions: String Functions.).
* The `strftime' function acquired a default time format, allowing
- it to be called with no arguments (*note Functions for Dealing
- with Time Stamps: Time Functions.).
+ it to be called with no arguments (*note Using `gawk''s Timestamp
+ Functions: Time Functions.).
- * Full support for both POSIX and GNU regexps (*note Regular
- Expressions: Regexp.).
+ * The ability for `FS' and for the third argument to `split' to be
+ null strings (*note Making Each Character a Separate Field: Single
+ Character Fields.).
+
+ * The ability for `RS' to be a regexp (*note How Input Is Split into
+ Records: Records.).
+
+ * The `next file' statement became `nextfile' (*note Using `gawk''s
+ `nextfile' Statement: Nextfile Statement.).
+
+ * The `--lint-old' option to warn about constructs that are not
+ available in the original Version 7 Unix version of `awk' (*note
+ Major Changes Between V7 and SVR3.1: V7/SVR3.1.).
+
+ * The `-m' option and the `fflush' function from the Bell
+ Laboratories research version of `awk' (*note Command-Line
+ Options: Options.; also *note Input/Output Functions: I/O
+ Functions.).
* The `--re-interval' option to provide interval expressions in
regexps (*note Regular Expression Operators: Regexp Operators.).
- * `IGNORECASE' changed, now applying to string comparison as well as
- regexp operations (*note Case-sensitivity in Matching:
- Case-sensitivity.).
-
- * The `-m' option and the `fflush' function from the Bell Labs
- research version of `awk' (*note Command Line Options: Options.;
- also *note Built-in Functions for Input/Output: I/O Functions.).
+ * The `--traditional' option was added as a better name for
+ `--compat' (*note Command-Line Options: Options.).
* The use of GNU Autoconf to control the configuration process
(*note Compiling `gawk' for Unix: Quick Installation.).
@@ -14033,1295 +16474,202 @@ all be disabled with either the `--traditional' or `--posix' options
Installation.).
-
-File: gawk.info, Node: Gawk Summary, Next: Installation, Prev: Language History, Up: Top
+ Version 3.1 of `gawk' introduced the following features:
-`gawk' Summary
-**************
+ * The `BINMODE' special variable for non-POSIX systems, which allows
+ binary I/O for input and/or output files (*note Using `gawk' on PC
+ Operating Systems: PC Using.).
- This appendix provides a brief summary of the `gawk' command line
-and the `awk' language. It is designed to serve as "quick reference."
-It is therefore terse, but complete.
+ * The `LINT' special variable, which dynamically controls lint
+ warnings (*note Built-in Variables::).
-* Menu:
+ * The `PROCINFO' array for providing process-related information
+ (*note Built-in Variables::).
-* Command Line Summary:: Recapitulation of the command line.
-* Language Summary:: A terse review of the language.
-* Variables/Fields:: Variables, fields, and arrays.
-* Rules Summary:: Patterns and Actions, and their component
- parts.
-* Actions Summary:: Quick overview of actions.
-* Functions Summary:: Defining and calling functions.
-* Historical Features:: Some undocumented but supported ``features''.
+ * The `TEXTDOMAIN' special variable for setting an application's
+ internationalization text domain (*note Built-in Variables::, and
+ *Note Internationalization with `gawk': Internationalization).
-
-File: gawk.info, Node: Command Line Summary, Next: Language Summary, Prev: Gawk Summary, Up: Gawk Summary
+ * The ability to use octal and hexadecimal constants in `awk'
+ program source code (*note Octal and Hexadecimal Numbers:
+ Non-decimal-numbers.).
-Command Line Options Summary
-============================
+ * The `|&' operator for two-way I/O to a coprocess (*note Two-Way
+ Communications with Another Process: Two-way I/O.).
- The command line consists of options to `gawk' itself, the `awk'
-program text (if not supplied via the `-f' option), and values to be
-made available in the `ARGC' and `ARGV' predefined `awk' variables:
+ * The `/inet' special files for TCP/IP networking using `|&' (*note
+ Using `gawk' for Network Programming: TCP/IP Networking.).
- gawk [POSIX OR GNU STYLE OPTIONS] -f SOURCE-FILE [`--'] FILE ...
- gawk [POSIX OR GNU STYLE OPTIONS] [`--'] 'PROGRAM' FILE ...
+ * The optional second argument to `close' that allows closing one end
+ of a two-way pipe to a coprocess (*note Two-Way Communications
+ with Another Process: Two-way I/O.).
- The options that `gawk' accepts are:
+ * The optional third argument to the `match' function for capturing
+ text-matching subexpressions within a regexp (*note String
+ Manipulation Functions: String Functions.).
-`-F FS'
-`--field-separator FS'
- Use FS for the input field separator (the value of the `FS'
- predefined variable).
+ * Positional specifiers in `printf' formats for making translations
+ easier (*note Rearranging `printf' Arguments: Printf Ordering.).
-`-f PROGRAM-FILE'
-`--file PROGRAM-FILE'
- Read the `awk' program source from the file PROGRAM-FILE, instead
- of from the first command line argument.
+ * The `asort' function for sorting arrays (*note Sorting Array
+ Values and Indices with `gawk': Array Sorting.).
-`-mf NNN'
-`-mr NNN'
- The `f' flag sets the maximum number of fields, and the `r' flag
- sets the maximum record size. These options are ignored by
- `gawk', since `gawk' has no predefined limits; they are only for
- compatibility with the Bell Labs research version of Unix `awk'.
+ * The `bindtextdomain' and `dcgettext' functions for
+ internationalization (*note Internationalizing `awk' Programs:
+ Programmer i18n.).
-`-v VAR=VAL'
-`--assign VAR=VAL'
- Assign the variable VAR the value VAL before program execution
- begins.
+ * The `extension' built-in function and the ability to add new
+ built-in functions dynamically (*note Adding New Built-in
+ Functions to `gawk': Dynamic Extensions.).
-`-W traditional'
-`-W compat'
-`--traditional'
-`--compat'
- Use compatibility mode, in which `gawk' extensions are turned off.
+ * The `mktime' built-in function for creating timestamps (*note
+ Using `gawk''s Timestamp Functions: Time Functions.).
-`-W copyleft'
-`-W copyright'
-`--copyleft'
-`--copyright'
- Print the short version of the General Public License on the
- standard output, and exit. This option may disappear in a future
- version of `gawk'.
+ * The `and', `or', `xor', `compl', `lshift', `rshift', and
+ `strtonum' built-in functions (*note Using `gawk''s Bit
+ Manipulation Functions: Bitwise Functions.).
-`-W help'
-`-W usage'
-`--help'
-`--usage'
- Print a relatively short summary of the available options on the
- standard output, and exit.
+ * The support for `next file' as two words was removed completely
+ (*note Using `gawk''s `nextfile' Statement: Nextfile Statement.).
-`-W lint'
-`--lint'
- Give warnings about dubious or non-portable `awk' constructs.
+ * The `--dump-variables' option to print a list of all global
+ variables (*note Command-Line Options: Options.).
-`-W lint-old'
-`--lint-old'
- Warn about constructs that are not available in the original
- Version 7 Unix version of `awk'.
+ * The `--gen-po' command-line option and the use of a leading
+ underscore to mark strings that should be translated (*note
+ Extracting Marked Strings: String Extraction.).
-`-W posix'
-`--posix'
- Use POSIX compatibility mode, in which `gawk' extensions are
- turned off and additional restrictions apply.
+ * The `--non-decimal-data' option to allow non-decimal input data
+ (*note Allowing Non-Decimal Input Data: Non-decimal Data.).
-`-W re-interval'
-`--re-interval'
- Allow interval expressions (*note Regular Expression Operators:
- Regexp Operators.), in regexps.
+ * The `--profile' option and `pgawk', the profiling version of
+ `gawk', for producing execution profiles of `awk' programs (*note
+ Profiling Your `awk' Programs: Profiling.).
-`-W source=PROGRAM-TEXT'
-`--source PROGRAM-TEXT'
- Use PROGRAM-TEXT as `awk' program source code. This option allows
- mixing command line source code with source code from files, and is
- particularly useful for mixing command line programs with library
- functions.
+ * The `--enable-portals' configuration option to enable special
+ treatment of pathnames that begin with `/p' as BSD portals (*note
+ Using `gawk' with BSD Portals: Portal Files.).
-`-W version'
-`--version'
- Print version information for this particular copy of `gawk' on
- the error output.
-
-`--'
- Signal the end of options. This is useful to allow further
- arguments to the `awk' program itself to start with a `-'. This
- is mainly for consistency with POSIX argument parsing conventions.
-
- Any other options are flagged as invalid, but are otherwise ignored.
-*Note Command Line Options: Options, for more details.
-
-
-File: gawk.info, Node: Language Summary, Next: Variables/Fields, Prev: Command Line Summary, Up: Gawk Summary
-
-Language Summary
-================
-
- An `awk' program consists of a sequence of zero or more
-pattern-action statements and optional function definitions. One or
-the other of the pattern and action may be omitted.
-
- PATTERN { ACTION STATEMENTS }
- PATTERN
- { ACTION STATEMENTS }
-
- function NAME(PARAMETER LIST) { ACTION STATEMENTS }
-
- `gawk' first reads the program source from the PROGRAM-FILE(s), if
-specified, or from the first non-option argument on the command line.
-The `-f' option may be used multiple times on the command line. `gawk'
-reads the program text from all the PROGRAM-FILE files, effectively
-concatenating them in the order they are specified. This is useful for
-building libraries of `awk' functions, without having to include them
-in each new `awk' program that uses them. To use a library function in
-a file from a program typed in on the command line, specify `--source
-'PROGRAM'', and type your program in between the single quotes. *Note
-Command Line Options: Options.
-
- The environment variable `AWKPATH' specifies a search path to use
-when finding source files named with the `-f' option. The default
-path, which is `.:/usr/local/share/awk'(1) is used if `AWKPATH' is not
-set. If a file name given to the `-f' option contains a `/' character,
-no path search is performed. *Note The `AWKPATH' Environment Variable:
-AWKPATH Variable.
-
- `gawk' compiles the program into an internal form, and then proceeds
-to read each file named in the `ARGV' array. The initial values of
-`ARGV' come from the command line arguments. If there are no files
-named on the command line, `gawk' reads the standard input.
-
- If a "file" named on the command line has the form `VAR=VAL', it is
-treated as a variable assignment: the variable VAR is assigned the
-value VAL. If any of the files have a value that is the null string,
-that element in the list is skipped.
-
- For each record in the input, `gawk' tests to see if it matches any
-PATTERN in the `awk' program. For each pattern that the record
-matches, the associated ACTION is executed.
-
- ---------- Footnotes ----------
-
- (1) The path may use a directory other than `/usr/local/share/awk',
-depending upon how `gawk' was built and installed.
-
-
-File: gawk.info, Node: Variables/Fields, Next: Rules Summary, Prev: Language Summary, Up: Gawk Summary
-
-Variables and Fields
-====================
-
- `awk' variables are not declared; they come into existence when they
-are first used. Their values are either floating-point numbers or
-strings. `awk' also has one-dimensional arrays; multiple-dimensional
-arrays may be simulated. There are several predefined variables that
-`awk' sets as a program runs; these are summarized below.
-
-* Menu:
-
-* Fields Summary:: Input field splitting.
-* Built-in Summary:: `awk''s built-in variables.
-* Arrays Summary:: Using arrays.
-* Data Type Summary:: Values in `awk' are numbers or strings.
-
-
-File: gawk.info, Node: Fields Summary, Next: Built-in Summary, Prev: Variables/Fields, Up: Variables/Fields
+ * The use of GNU Automake to help in standardizing the configuration
+ process (*note Compiling `gawk' for Unix: Quick Installation.).
-Fields
-------
+ * The use of GNU `gettext' for `gawk''s own message output (*note
+ `gawk' Can Speak Your Language: Gawk I18N.).
- As each input line is read, `gawk' splits the line into FIELDS,
-using the value of the `FS' variable as the field separator. If `FS'
-is a single character, fields are separated by that character.
-Otherwise, `FS' is expected to be a full regular expression. In the
-special case that `FS' is a single space, fields are separated by runs
-of spaces, tabs and/or newlines.(1) If `FS' is the null string (`""'),
-then each individual character in the record becomes a separate field.
-Note that the value of `IGNORECASE' (*note Case-sensitivity in
-Matching: Case-sensitivity.) also affects how fields are split when
-`FS' is a regular expression.
+ * BeOS support (*note Installing `gawk' on BeOS: BeOS Installation.).
- Each field in the input line may be referenced by its position, `$1',
-`$2', and so on. `$0' is the whole line. The value of a field may be
-assigned to as well. Field numbers need not be constants:
-
- n = 5
- print $n
-
-prints the fifth field in the input line. The variable `NF' is set to
-the total number of fields in the input line.
-
- References to non-existent fields (i.e. fields after `$NF') return
-the null string. However, assigning to a non-existent field (e.g.,
-`$(NF+2) = 5') increases the value of `NF', creates any intervening
-fields with the null string as their value, and causes the value of
-`$0' to be recomputed, with the fields being separated by the value of
-`OFS'. Decrementing `NF' causes the values of fields past the new
-value to be lost, and the value of `$0' to be recomputed, with the
-fields being separated by the value of `OFS'. *Note Reading Input
-Files: Reading Files.
-
- ---------- Footnotes ----------
-
- (1) In POSIX `awk', newline does not separate fields.
-
-
-File: gawk.info, Node: Built-in Summary, Next: Arrays Summary, Prev: Fields Summary, Up: Variables/Fields
-
-Built-in Variables
-------------------
-
- `gawk''s built-in variables are:
-
-`ARGC'
- The number of elements in `ARGV'. See below for what is actually
- included in `ARGV'.
-
-`ARGIND'
- The index in `ARGV' of the current file being processed. When
- `gawk' is processing the input data files, it is always true that
- `FILENAME == ARGV[ARGIND]'.
-
-`ARGV'
- The array of command line arguments. The array is indexed from
- zero to `ARGC' - 1. Dynamically changing `ARGC' and the contents
- of `ARGV' can control the files used for data. A null-valued
- element in `ARGV' is ignored. `ARGV' does not include the options
- to `awk' or the text of the `awk' program itself.
-
-`CONVFMT'
- The conversion format to use when converting numbers to strings.
-
-`FIELDWIDTHS'
- A space separated list of numbers describing the fixed-width input
- data.
-
-`ENVIRON'
- An array of environment variable values. The array is indexed by
- variable name, each element being the value of that variable.
- Thus, the environment variable `HOME' is `ENVIRON["HOME"]'. One
- possible value might be `/home/arnold'.
-
- Changing this array does not affect the environment seen by
- programs which `gawk' spawns via redirection or the `system'
- function. (This may change in a future version of `gawk'.)
-
- Some operating systems do not have environment variables. The
- `ENVIRON' array is empty when running on these systems.
-
-`ERRNO'
- The system error message when an error occurs using `getline' or
- `close'.
-
-`FILENAME'
- The name of the current input file. If no files are specified on
- the command line, the value of `FILENAME' is the null string.
-
-`FNR'
- The input record number in the current input file.
-
-`FS'
- The input field separator, a space by default.
-
-`IGNORECASE'
- The case-sensitivity flag for string comparisons and regular
- expression operations. If `IGNORECASE' has a non-zero value, then
- pattern matching in rules, record separating with `RS', field
- splitting with `FS', regular expression matching with `~' and
- `!~', and the `gensub', `gsub', `index', `match', `split' and
- `sub' built-in functions all ignore case when doing regular
- expression operations, and all string comparisons are done
- ignoring case. The value of `IGNORECASE' does _not_ affect array
- subscripting.
-
-`NF'
- The number of fields in the current input record.
-
-`NR'
- The total number of input records seen so far.
-
-`OFMT'
- The output format for numbers for the `print' statement, `"%.6g"'
- by default.
-
-`OFS'
- The output field separator, a space by default.
-
-`ORS'
- The output record separator, by default a newline.
-
-`RS'
- The input record separator, by default a newline. If `RS' is set
- to the null string, then records are separated by blank lines.
- When `RS' is set to the null string, then the newline character
- always acts as a field separator, in addition to whatever value
- `FS' may have. If `RS' is set to a multi-character string, it
- denotes a regexp; input text matching the regexp separates records.
-
-`RT'
- The input text that matched the text denoted by `RS', the record
- separator.
-
-`RSTART'
- The index of the first character last matched by `match'; zero if
- no match.
-
-`RLENGTH'
- The length of the string last matched by `match'; -1 if no match.
-
-`SUBSEP'
- The string used to separate multiple subscripts in array elements,
- by default `"\034"'.
-
- *Note Built-in Variables::, for more information.
-
-
-File: gawk.info, Node: Arrays Summary, Next: Data Type Summary, Prev: Built-in Summary, Up: Variables/Fields
-
-Arrays
-------
-
- Arrays are subscripted with an expression between square brackets
-(`[' and `]'). Array subscripts are _always_ strings; numbers are
-converted to strings as necessary, following the standard conversion
-rules (*note Conversion of Strings and Numbers: Conversion.).
-
- If you use multiple expressions separated by commas inside the square
-brackets, then the array subscript is a string consisting of the
-concatenation of the individual subscript values, converted to strings,
-separated by the subscript separator (the value of `SUBSEP').
-
- The special operator `in' may be used in a conditional context to
-see if an array has an index consisting of a particular value.
-
- if (val in array)
- print array[val]
-
- If the array has multiple subscripts, use `(i, j, ...) in ARRAY' to
-test for existence of an element.
-
- The `in' construct may also be used in a `for' loop to iterate over
-all the elements of an array. *Note Scanning All Elements of an Array:
-Scanning an Array.
-
- You can remove an element from an array using the `delete' statement.
-
- You can clear an entire array using `delete ARRAY'.
-
- *Note Arrays in `awk': Arrays.
-
-
-File: gawk.info, Node: Data Type Summary, Prev: Arrays Summary, Up: Variables/Fields
-
-Data Types
-----------
-
- The value of an `awk' expression is always either a number or a
-string.
-
- Some contexts (such as arithmetic operators) require numeric values.
-They convert strings to numbers by interpreting the text of the string
-as a number. If the string does not look like a number, it converts to
-zero.
-
- Other contexts (such as concatenation) require string values. They
-convert numbers to strings by effectively printing them with `sprintf'.
-*Note Conversion of Strings and Numbers: Conversion, for the details.
-
- To force conversion of a string value to a number, simply add zero
-to it. If the value you start with is already a number, this does not
-change it.
-
- To force conversion of a numeric value to a string, concatenate it
-with the null string.
-
- Comparisons are done numerically if both operands are numeric, or if
-one is numeric and the other is a numeric string. Otherwise one or
-both operands are converted to strings and a string comparison is
-performed. Fields, `getline' input, `FILENAME', `ARGV' elements,
-`ENVIRON' elements and the elements of an array created by `split' are
-the only items that can be numeric strings. String constants, such as
-`"3.1415927"' are not numeric strings, they are string constants. The
-full rules for comparisons are described in *Note Variable Typing and
-Comparison Expressions: Typing and Comparison.
-
- Uninitialized variables have the string value `""' (the null, or
-empty, string). In contexts where a number is required, this is
-equivalent to zero.
-
- *Note Variables::, for more information on variable naming and
-initialization; *note Conversion of Strings and Numbers: Conversion.,
-for more information on how variable values are interpreted.
-
-
-File: gawk.info, Node: Rules Summary, Next: Actions Summary, Prev: Variables/Fields, Up: Gawk Summary
-
-Patterns
-========
-
-* Menu:
-
-* Pattern Summary:: Quick overview of patterns.
-* Regexp Summary:: Quick overview of regular expressions.
-
- An `awk' program is mostly composed of rules, each consisting of a
-pattern followed by an action. The action is enclosed in `{' and `}'.
-Either the pattern may be missing, or the action may be missing, but
-not both. If the pattern is missing, the action is executed for every
-input record. A missing action is equivalent to `{ print }', which
-prints the entire line.
-
- Comments begin with the `#' character, and continue until the end of
-the line. Blank lines may be used to separate statements. Statements
-normally end with a newline; however, this is not the case for lines
-ending in a `,', `{', `?', `:', `&&', or `||'. Lines ending in `do' or
-`else' also have their statements automatically continued on the
-following line. In other cases, a line can be continued by ending it
-with a `\', in which case the newline is ignored.
-
- Multiple statements may be put on one line by separating each one
-with a `;'. This applies to both the statements within the action part
-of a rule (the usual case), and to the rule statements.
-
- *Note Comments in `awk' Programs: Comments, for information on
-`awk''s commenting convention; *note `awk' Statements Versus Lines:
-Statements/Lines., for a description of the line continuation mechanism
-in `awk'.
-
-
-File: gawk.info, Node: Pattern Summary, Next: Regexp Summary, Prev: Rules Summary, Up: Rules Summary
-
-Pattern Summary
----------------
-
- `awk' patterns may be one of the following:
-
- /REGULAR EXPRESSION/
- RELATIONAL EXPRESSION
- PATTERN && PATTERN
- PATTERN || PATTERN
- PATTERN ? PATTERN : PATTERN
- (PATTERN)
- ! PATTERN
- PATTERN1, PATTERN2
- BEGIN
- END
-
- `BEGIN' and `END' are two special kinds of patterns that are not
-tested against the input. The action parts of all `BEGIN' rules are
-concatenated as if all the statements had been written in a single
-`BEGIN' rule. They are executed before any of the input is read.
-Similarly, all the `END' rules are concatenated, and executed when all
-the input is exhausted (or when an `exit' statement is executed).
-`BEGIN' and `END' patterns cannot be combined with other patterns in
-pattern expressions. `BEGIN' and `END' rules cannot have missing
-action parts.
-
- For `/REGULAR-EXPRESSION/' patterns, the associated statement is
-executed for each input record that matches the regular expression.
-Regular expressions are summarized below.
-
- A RELATIONAL EXPRESSION may use any of the operators defined below in
-the section on actions. These generally test whether certain fields
-match certain regular expressions.
-
- The `&&', `||', and `!' operators are logical "and," logical "or,"
-and logical "not," respectively, as in C. They do short-circuit
-evaluation, also as in C, and are used for combining more primitive
-pattern expressions. As in most languages, parentheses may be used to
-change the order of evaluation.
-
- The `?:' operator is like the same operator in C. If the first
-pattern matches, then the second pattern is matched against the input
-record; otherwise, the third is matched. Only one of the second and
-third patterns is matched.
-
- The `PATTERN1, PATTERN2' form of a pattern is called a range
-pattern. It matches all input lines starting with a line that matches
-PATTERN1, and continuing until a line that matches PATTERN2, inclusive.
-A range pattern cannot be used as an operand of any of the pattern
-operators.
-
- *Note Pattern Elements: Pattern Overview.
-
-
-File: gawk.info, Node: Regexp Summary, Prev: Pattern Summary, Up: Rules Summary
-
-Regular Expressions
--------------------
-
- Regular expressions are based on POSIX EREs (extended regular
-expressions). The escape sequences allowed in string constants are
-also valid in regular expressions (*note Escape Sequences::). Regexps
-are composed of characters as follows:
-
-`C'
- matches the character C (assuming C is none of the characters
- listed below).
-
-`\C'
- matches the literal character C.
-
-`.'
- matches any character, _including_ newline. In strict POSIX mode,
- `.' does not match the NUL character, which is a character with
- all bits equal to zero.
-
-`^'
- matches the beginning of a string.
-
-`$'
- matches the end of a string.
-
-`[ABC...]'
- matches any of the characters ABC... (character list).
-
-`[[:CLASS:]]'
- matches any character in the character class CLASS. Allowable
- classes are `alnum', `alpha', `blank', `cntrl', `digit', `graph',
- `lower', `print', `punct', `space', `upper', and `xdigit'.
-
-`[[.SYMBOL.]]'
- matches the multi-character collating symbol SYMBOL. `gawk' does
- not currently support collating symbols.
-
-`[[=CLASSNAME=]]'
- matches any of the equivalent characters in the current locale
- named by the equivalence class CLASSNAME. `gawk' does not
- currently support equivalence classes.
-
-`[^ABC...]'
- matches any character except ABC... (negated character list).
-
-`R1|R2'
- matches either R1 or R2 (alternation).
-
-`R1R2'
- matches R1, and then R2 (concatenation).
-
-`R+'
- matches one or more R's.
-
-`R*'
- matches zero or more R's.
-
-`R?'
- matches zero or one R's.
-
-`(R)'
- matches R (grouping).
-
-`R{N}'
-`R{N,}'
-`R{N,M}'
- matches at least N, N to any number, or N to M occurrences of R
- (interval expressions).
-
-`\y'
- matches the empty string at either the beginning or the end of a
- word.
-
-`\B'
- matches the empty string within a word.
-
-`\<'
- matches the empty string at the beginning of a word.
-
-`\>'
- matches the empty string at the end of a word.
-
-`\w'
- matches any word-constituent character (alphanumeric characters and
- the underscore).
-
-`\W'
- matches any character that is not word-constituent.
-
-`\`'
- matches the empty string at the beginning of a buffer (same as a
- string in `gawk').
-
-`\''
- matches the empty string at the end of a buffer.
-
- The various command line options control how `gawk' interprets
-characters in regexps.
-
-No options
- In the default case, `gawk' provide all the facilities of POSIX
- regexps and the GNU regexp operators described above. However,
- interval expressions are not supported.
-
-`--posix'
- Only POSIX regexps are supported, the GNU operators are not special
- (e.g., `\w' matches a literal `w'). Interval expressions are
- allowed.
-
-`--traditional'
- Traditional Unix `awk' regexps are matched. The GNU operators are
- not special, interval expressions are not available, and neither
- are the POSIX character classes (`[[:alnum:]]' and so on).
- Characters described by octal and hexadecimal escape sequences are
- treated literally, even if they represent regexp metacharacters.
-
-`--re-interval'
- Allow interval expressions in regexps, even if `--traditional' has
- been provided.
-
- *Note Regular Expressions: Regexp.
-
-
-File: gawk.info, Node: Actions Summary, Next: Functions Summary, Prev: Rules Summary, Up: Gawk Summary
-
-Actions
-=======
-
- Action statements are enclosed in braces, `{' and `}'. A missing
-action statement is equivalent to `{ print }'.
-
- Action statements consist of the usual assignment, conditional, and
-looping statements found in most languages. The operators, control
-statements, and Input/Output statements available are similar to those
-in C.
-
- Comments begin with the `#' character, and continue until the end of
-the line. Blank lines may be used to separate statements. Statements
-normally end with a newline; however, this is not the case for lines
-ending in a `,', `{', `?', `:', `&&', or `||'. Lines ending in `do' or
-`else' also have their statements automatically continued on the
-following line. In other cases, a line can be continued by ending it
-with a `\', in which case the newline is ignored.
-
- Multiple statements may be put on one line by separating each one
-with a `;'. This applies to both the statements within the action part
-of a rule (the usual case), and to the rule statements.
-
- *Note Comments in `awk' Programs: Comments, for information on
-`awk''s commenting convention; *note `awk' Statements Versus Lines:
-Statements/Lines., for a description of the line continuation mechanism
-in `awk'.
-
-* Menu:
-
-* Operator Summary:: `awk' operators.
-* Control Flow Summary:: The control statements.
-* I/O Summary:: The I/O statements.
-* Printf Summary:: A summary of `printf'.
-* Special File Summary:: Special file names interpreted internally.
-* Built-in Functions Summary:: Built-in numeric and string functions.
-* Time Functions Summary:: Built-in time functions.
-* String Constants Summary:: Escape sequences in strings.
-
-
-File: gawk.info, Node: Operator Summary, Next: Control Flow Summary, Prev: Actions Summary, Up: Actions Summary
-
-Operators
----------
-
- The operators in `awk', in order of decreasing precedence, are:
-
-`(...)'
- Grouping.
-
-`$'
- Field reference.
-
-`++ --'
- Increment and decrement, both prefix and postfix.
-
-`^'
- Exponentiation (`**' may also be used, and `**=' for the assignment
- operator, but they are not specified in the POSIX standard).
-
-`+ - !'
- Unary plus, unary minus, and logical negation.
-
-`* / %'
- Multiplication, division, and modulus.
-
-`+ -'
- Addition and subtraction.
-
-`SPACE'
- String concatenation.
-
-`< <= > >= != =='
- The usual relational operators.
-
-`~ !~'
- Regular expression match, negated match.
-
-`in'
- Array membership.
-
-`&&'
- Logical "and".
-
-`||'
- Logical "or".
-
-`?:'
- A conditional expression. This has the form `EXPR1 ? EXPR2 :
- EXPR3'. If EXPR1 is true, the value of the expression is EXPR2;
- otherwise it is EXPR3. Only one of EXPR2 and EXPR3 is evaluated.
-
-`= += -= *= /= %= ^='
- Assignment. Both absolute assignment (`VAR=VALUE') and operator
- assignment (the other forms) are supported.
-
- *Note Expressions::.
-
-
-File: gawk.info, Node: Control Flow Summary, Next: I/O Summary, Prev: Operator Summary, Up: Actions Summary
-
-Control Statements
-------------------
-
- The control statements are as follows:
-
- if (CONDITION) STATEMENT [ else STATEMENT ]
- while (CONDITION) STATEMENT
- do STATEMENT while (CONDITION)
- for (EXPR1; EXPR2; EXPR3) STATEMENT
- for (VAR in ARRAY) STATEMENT
- break
- continue
- delete ARRAY[INDEX]
- delete ARRAY
- exit [ EXPRESSION ]
- { STATEMENTS }
-
- *Note Control Statements in Actions: Statements.
-
-
-File: gawk.info, Node: I/O Summary, Next: Printf Summary, Prev: Control Flow Summary, Up: Actions Summary
-
-I/O Statements
---------------
-
- The Input/Output statements are as follows:
-
-`getline'
- Set `$0' from next input record; set `NF', `NR', `FNR'. *Note
- Explicit Input with `getline': Getline.
-
-`getline <FILE'
- Set `$0' from next record of FILE; set `NF'.
-
-`getline VAR'
- Set VAR from next input record; set `NR', `FNR'.
-
-`getline VAR <FILE'
- Set VAR from next record of FILE.
-
-`COMMAND | getline'
- Run COMMAND, piping its output into `getline'; sets `$0', `NF',
- `NR'.
-
-`COMMAND | getline `var''
- Run COMMAND, piping its output into `getline'; sets VAR.
-
-`next'
- Stop processing the current input record. The next input record
- is read and processing starts over with the first pattern in the
- `awk' program. If the end of the input data is reached, the `END'
- rule(s), if any, are executed. *Note The `next' Statement: Next
- Statement.
-
-`nextfile'
- Stop processing the current input file. The next input record
- read comes from the next input file. `FILENAME' is updated, `FNR'
- is set to one, `ARGIND' is incremented, and processing starts over
- with the first pattern in the `awk' program. If the end of the
- input data is reached, the `END' rule(s), if any, are executed.
- Earlier versions of `gawk' used `next file'; this usage is still
- supported, but is considered to be deprecated. *Note The
- `nextfile' Statement: Nextfile Statement.
-
-`print'
- Prints the current record. *Note Printing Output: Printing.
-
-`print EXPR-LIST'
- Prints expressions.
-
-`print EXPR-LIST > FILE'
- Prints expressions to FILE. If FILE does not exist, it is created.
- If it does exist, its contents are deleted the first time the
- `print' is executed.
-
-`print EXPR-LIST >> FILE'
- Prints expressions to FILE. The previous contents of FILE are
- retained, and the output of `print' is appended to the file.
-
-`print EXPR-LIST | COMMAND'
- Prints expressions, sending the output down a pipe to COMMAND.
- The pipeline to the command stays open until the `close' function
- is called.
-
-`printf FMT, EXPR-LIST'
- Format and print.
-
-`printf FMT, EXPR-LIST > FILE'
- Format and print to FILE. If FILE does not exist, it is created.
- If it does exist, its contents are deleted the first time the
- `printf' is executed.
-
-`printf FMT, EXPR-LIST >> FILE'
- Format and print to FILE. The previous contents of FILE are
- retained, and the output of `printf' is appended to the file.
-
-`printf FMT, EXPR-LIST | COMMAND'
- Format and print, sending the output down a pipe to COMMAND. The
- pipeline to the command stays open until the `close' function is
- called.
-
- `getline' returns zero on end of file, and -1 on an error. In the
-event of an error, `getline' will set `ERRNO' to the value of a
-system-dependent string that describes the error.
-
-
-File: gawk.info, Node: Printf Summary, Next: Special File Summary, Prev: I/O Summary, Up: Actions Summary
-
-`printf' Summary
-----------------
-
- Conversion specification have the form
-`%'[FLAG][WIDTH][`.'PREC]FORMAT. Items in brackets are optional.
-
- The `awk' `printf' statement and `sprintf' function accept the
-following conversion specification formats:
-
-`%c'
- An ASCII character. If the argument used for `%c' is numeric, it
- is treated as a character and printed. Otherwise, the argument is
- assumed to be a string, and the only first character of that
- string is printed.
-
-`%d'
-`%i'
- A decimal number (the integer part).
-
-`%e'
-`%E'
- A floating point number of the form `[-]d.dddddde[+-]dd'. The
- `%E' format uses `E' instead of `e'.
-
-`%f'
- A floating point number of the form [`-']`ddd.dddddd'.
-
-`%g'
-`%G'
- Use either the `%e' or `%f' formats, whichever produces a shorter
- string, with non-significant zeros suppressed. `%G' will use `%E'
- instead of `%e'.
-
-`%o'
- An unsigned octal number (also an integer).
-
-`%u'
- An unsigned decimal number (again, an integer).
-
-`%s'
- A character string.
-
-`%x'
-`%X'
- An unsigned hexadecimal number (an integer). The `%X' format uses
- `A' through `F' instead of `a' through `f' for decimal 10 through
- 15.
-
-`%%'
- A single `%' character; no argument is converted.
-
- There are optional, additional parameters that may lie between the
-`%' and the control letter:
-
-`-'
- The expression should be left-justified within its field.
-
-`SPACE'
- For numeric conversions, prefix positive values with a space, and
- negative values with a minus sign.
-
-`+'
- The plus sign, used before the width modifier (see below), says to
- always supply a sign for numeric conversions, even if the data to
- be formatted is positive. The `+' overrides the space modifier.
-
-`#'
- Use an "alternate form" for certain control letters. For `o',
- supply a leading zero. For `x', and `X', supply a leading `0x' or
- `0X' for a non-zero result. For `e', `E', and `f', the result
- will always contain a decimal point. For `g', and `G', trailing
- zeros are not removed from the result.
-
-`0'
- A leading `0' (zero) acts as a flag, that indicates output should
- be padded with zeros instead of spaces. This applies even to
- non-numeric output formats. This flag only has an effect when the
- field width is wider than the value to be printed.
-
-`WIDTH'
- The field should be padded to this width. The field is normally
- padded with spaces. If the `0' flag has been used, it is padded
- with zeros.
-
-`.PREC'
- A number that specifies the precision to use when printing. For
- the `e', `E', and `f' formats, this specifies the number of digits
- you want printed to the right of the decimal point. For the `g',
- and `G' formats, it specifies the maximum number of significant
- digits. For the `d', `o', `i', `u', `x', and `X' formats, it
- specifies the minimum number of digits to print. For the `s'
- format, it specifies the maximum number of characters from the
- string that should be printed.
-
- Either or both of the WIDTH and PREC values may be specified as `*'.
-In that case, the particular value is taken from the argument list.
-
- *Note Using `printf' Statements for Fancier Printing: Printf.
-
-
-File: gawk.info, Node: Special File Summary, Next: Built-in Functions Summary, Prev: Printf Summary, Up: Actions Summary
-
-Special File Names
-------------------
-
- When doing I/O redirection from either `print' or `printf' into a
-file, or via `getline' from a file, `gawk' recognizes certain special
-file names internally. These file names allow access to open file
-descriptors inherited from `gawk''s parent process (usually the shell).
-The file names are:
-
-`/dev/stdin'
- The standard input.
-
-`/dev/stdout'
- The standard output.
-
-`/dev/stderr'
- The standard error output.
-
-`/dev/fd/N'
- The file denoted by the open file descriptor N.
-
- In addition, reading the following files provides process related
-information about the running `gawk' program. All returned records are
-terminated with a newline.
-
-`/dev/pid'
- Returns the process ID of the current process.
-
-`/dev/ppid'
- Returns the parent process ID of the current process.
-
-`/dev/pgrpid'
- Returns the process group ID of the current process.
-
-`/dev/user'
- At least four space-separated fields, containing the return values
- of the `getuid', `geteuid', `getgid', and `getegid' system calls.
- If there are any additional fields, they are the group IDs
- returned by `getgroups' system call. (Multiple groups may not be
- supported on all systems.)
-
-These file names may also be used on the command line to name data
-files. These file names are only recognized internally if you do not
-actually have files with these names on your system.
-
- *Note Special File Names in `gawk': Special Files, for a longer
-description that provides the motivation for this feature.
-
-
-File: gawk.info, Node: Built-in Functions Summary, Next: Time Functions Summary, Prev: Special File Summary, Up: Actions Summary
-
-Built-in Functions
-------------------
-
- `awk' provides a number of built-in functions for performing numeric
-operations, string related operations, and I/O related operations.
-
- The built-in arithmetic functions are:
-
-`atan2(Y, X)'
- the arctangent of Y/X in radians.
-
-`cos(EXPR)'
- the cosine of EXPR, which is in radians.
-
-`exp(EXPR)'
- the exponential function (`e ^ EXPR').
-
-`int(EXPR)'
- truncates to integer.
-
-`log(EXPR)'
- the natural logarithm of `expr'.
-
-`rand()'
- a random number between zero and one.
-
-`sin(EXPR)'
- the sine of EXPR, which is in radians.
-
-`sqrt(EXPR)'
- the square root function.
-
-`srand([EXPR])'
- use EXPR as a new seed for the random number generator. If no EXPR
- is provided, the time of day is used. The return value is the
- previous seed for the random number generator.
-
- `awk' has the following built-in string functions:
-
-`gensub(REGEX, SUBST, HOW [, TARGET])'
- If HOW is a string beginning with `g' or `G', then replace each
- match of REGEX in TARGET with SUBST. Otherwise, replace the
- HOW'th occurrence. If TARGET is not supplied, use `$0'. The
- return value is the changed string; the original TARGET is not
- modified. Within SUBST, `\N', where N is a digit from one to nine,
- can be used to indicate the text that matched the N'th
- parenthesized subexpression. This function is `gawk'-specific.
-
-`gsub(REGEX, SUBST [, TARGET])'
- for each substring matching the regular expression REGEX in the
- string TARGET, substitute the string SUBST, and return the number
- of substitutions. If TARGET is not supplied, use `$0'.
-
-`index(STR, SEARCH)'
- returns the index of the string SEARCH in the string STR, or zero
- if SEARCH is not present.
-
-`length([STR])'
- returns the length of the string STR. The length of `$0' is
- returned if no argument is supplied.
-
-`match(STR, REGEX)'
- returns the position in STR where the regular expression REGEX
- occurs, or zero if REGEX is not present, and sets the values of
- `RSTART' and `RLENGTH'.
-
-`split(STR, ARR [, REGEX])'
- splits the string STR into the array ARR on the regular expression
- REGEX, and returns the number of elements. If REGEX is omitted,
- `FS' is used instead. REGEX can be the null string, causing each
- character to be placed into its own array element. The array ARR
- is cleared first.
-
-`sprintf(FMT, EXPR-LIST)'
- prints EXPR-LIST according to FMT, and returns the resulting
- string.
-
-`sub(REGEX, SUBST [, TARGET])'
- just like `gsub', but only the first matching substring is
- replaced.
-
-`substr(STR, INDEX [, LEN])'
- returns the LEN-character substring of STR starting at INDEX. If
- LEN is omitted, the rest of STR is used.
-
-`tolower(STR)'
- returns a copy of the string STR, with all the upper-case
- characters in STR translated to their corresponding lower-case
- counterparts. Non-alphabetic characters are left unchanged.
-
-`toupper(STR)'
- returns a copy of the string STR, with all the lower-case
- characters in STR translated to their corresponding upper-case
- counterparts. Non-alphabetic characters are left unchanged.
-
- The I/O related functions are:
-
-`close(EXPR)'
- Close the open file or pipe denoted by EXPR.
-
-`fflush([EXPR])'
- Flush any buffered output for the output file or pipe denoted by
- EXPR. If EXPR is omitted, standard output is flushed. If EXPR is
- the null string (`""'), all output buffers are flushed.
-
-`system(CMD-LINE)'
- Execute the command CMD-LINE, and return the exit status. If your
- operating system does not support `system', calling it will
- generate a fatal error.
-
- `system("")' can be used to force `awk' to flush any pending
- output. This is more portable, but less obvious, than calling
- `fflush'.
-
-
-File: gawk.info, Node: Time Functions Summary, Next: String Constants Summary, Prev: Built-in Functions Summary, Up: Actions Summary
-
-Time Functions
---------------
+ * Tandem support (*note Installing `gawk' on a Tandem: Tandem
+ Installation.).
- The following two functions are available for getting the current
-time of day, and for formatting time stamps. They are specific to
-`gawk'.
+ * The Atari port became officially unsupported (*note Installing
+ `gawk' on the Atari ST: Atari Installation.).
-`systime()'
- returns the current time of day as the number of seconds since a
- particular epoch (Midnight, January 1, 1970 UTC, on POSIX systems).
+ * The source code now uses new-style function definitions, with
+ `ansi2knr' to convert the code on systems with old compilers.
-`strftime([FORMAT[, TIMESTAMP]])'
- formats TIMESTAMP according to the specification in FORMAT. The
- current time of day is used if no TIMESTAMP is supplied. A
- default format equivalent to the output of the `date' utility is
- used if no FORMAT is supplied. *Note Functions for Dealing with
- Time Stamps: Time Functions, for the details on the conversion
- specifiers that `strftime' accepts.

-File: gawk.info, Node: String Constants Summary, Prev: Time Functions Summary, Up: Actions Summary
-
-String Constants
-----------------
-
- String constants in `awk' are sequences of characters enclosed in
-double quotes (`"'). Within strings, certain "escape sequences" are
-recognized, as in C. These are:
+File: gawk.info, Node: Contributors, Prev: POSIX/GNU, Up: Language History
-`\\'
- A literal backslash.
-
-`\a'
- The "alert" character; usually the ASCII BEL character.
-
-`\b'
- Backspace.
-
-`\f'
- Formfeed.
-
-`\n'
- Newline.
-
-`\r'
- Carriage return.
-
-`\t'
- Horizontal tab.
-
-`\v'
- Vertical tab.
-
-`\xHEX DIGITS'
- The character represented by the string of hexadecimal digits
- following the `\x'. As in ANSI C, all following hexadecimal
- digits are considered part of the escape sequence. E.g., `"\x1B"'
- is a string containing the ASCII ESC (escape) character. (The `\x'
- escape sequence is not in POSIX `awk'.)
-
-`\DDD'
- The character represented by the one, two, or three digit sequence
- of octal digits. Thus, `"\033"' is also a string containing the
- ASCII ESC (escape) character.
+Major Contributors to `gawk'
+============================
-`\C'
- The literal character C, if C is not one of the above.
+ Always give credit where credit is due.
+ Anonymous
- The escape sequences may also be used inside constant regular
-expressions (e.g., the regexp `/[ \t\f\n\r\v]/' matches whitespace
-characters).
+ This minor node names the major contributors to `gawk' and/or this
+Info file, in approximate chronological order:
- *Note Escape Sequences::.
+ * Dr. Alfred V. Aho, Dr. Peter J. Weinberger, and Dr. Brian W.
+ Kernighan, all of Bell Laboratories, designed and implemented Unix
+ `awk', from which `gawk' gets the majority of its feature set.
-
-File: gawk.info, Node: Functions Summary, Next: Historical Features, Prev: Actions Summary, Up: Gawk Summary
+ * Paul Rubin did the initial design and implementation in 1986, and
+ wrote the first draft (around 40 pages) of this Info file.
-User-defined Functions
-======================
+ * Jay Fenlason finished the initial implementation.
- Functions in `awk' are defined as follows:
+ * Diane Close revised the first draft of this Info file, bringing it
+ to around 90 pages.
- function NAME(PARAMETER LIST) { STATEMENTS }
+ * Richard Stallman helped finish the implementation and the initial
+ draft of this Info file. He is also the founder of the FSF and
+ the GNU project.
- Actual parameters supplied in the function call are used to
-instantiate the formal parameters declared in the function. Arrays are
-passed by reference, other variables are passed by value.
+ * John Woods contributed parts of the code (mostly fixes) in the
+ initial version of `gawk'.
- If there are fewer arguments passed than there are names in
-PARAMETER-LIST, the extra names are given the null string as their
-value. Extra names have the effect of local variables.
+ * In 1988, David Trueman took over primary maintenance of `gawk',
+ making it compatible with "new" `awk', and greatly improving its
+ performance.
- The open-parenthesis in a function call of a user-defined function
-must immediately follow the function name, without any intervening
-white space. This is to avoid a syntactic ambiguity with the
-concatenation operator.
+ * Pat Rankin provided the VMS port and its documentation.
- The word `func' may be used in place of `function' (but not in POSIX
-`awk').
+ * Conrad Kwok, Scott Garfinkle, and Kent Williams did the initial
+ ports to MS-DOS with various versions of MSC.
- Use the `return' statement to return a value from a function.
+ * Hal Peterson provided help in porting `gawk' to Cray systems.
- *Note User-defined Functions: User-defined.
+ * Kai Uwe Rommel provided the port to OS/2 and its documentation.
-
-File: gawk.info, Node: Historical Features, Prev: Functions Summary, Up: Gawk Summary
+ * Michal Jaegermann provided the port to Atari systems and its
+ documentation. He continues to provide portability checking with
+ DEC Alpha systems, and has done a lot of work to make sure `gawk'
+ works on non-32-bit systems.
-Historical Features
-===================
+ * Fred Fish provided the port to Amiga systems and its documentation.
- There are two features of historical `awk' implementations that
-`gawk' supports.
+ * Scott Deifik currently maintains the MS-DOS port.
- First, it is possible to call the `length' built-in function not only
-with no arguments, but even without parentheses!
+ * Juan Grigera maintains the port to Win32 systems.
- a = length
+ * Dr. Darrel Hankerson acts as coordinator for the various ports to
+ different PC platforms and creates binary distributions for
+ various PC operating systems. He is also instrumental in keeping
+ the documentation up to date for the various PC platforms.
-is the same as either of
+ * Christos Zoulas provided the `extension' built-in function for
+ dynamically adding new modules.
- a = length()
- a = length($0)
+ * Ju"rgen Kahrs contributed the initial version of the TCP/IP
+ networking code and documentation, and motivated the inclusion of
+ the `|&' operator.
-For example:
+ * Stephen Davies provided the port to Tandem systems and its
+ documentation.
- $ echo abcdef | awk '{ print length }'
- -| 6
+ * Martin Brown provided the port to BeOS and its documentation.
-This feature is marked as "deprecated" in the POSIX standard, and
-`gawk' will issue a warning about its use if `--lint' is specified on
-the command line. (The ability to use `length' this way was actually
-an accident of the original Unix `awk' implementation. If any built-in
-function used `$0' as its default argument, it was possible to call
-that function without the parentheses. In particular, it was common
-practice to use the `length' function in this fashion, and this usage
-was documented in the `awk' manual page.)
+ * Arno Peters did the initial work to convert `gawk' to use GNU
+ Automake and `gettext'.
- The other historical feature is the use of either the `break'
-statement, or the `continue' statement outside the body of a `while',
-`for', or `do' loop. Traditional `awk' implementations have treated
-such usage as equivalent to the `next' statement. More recent versions
-of Unix `awk' do not allow it. `gawk' supports this usage if
-`--traditional' has been specified.
+ * Alan J. Broder provided the initial version of the `asort' function
+ as well as the code for the new optional third argument to the
+ `match' function.
- *Note Command Line Options: Options, for more information about the
-`--posix' and `--lint' options.
+ * Arnold Robbins has been working on `gawk' since 1988, at first
+ helping David Trueman, and as the primary maintainer since around
+ 1994.

-File: gawk.info, Node: Installation, Next: Notes, Prev: Gawk Summary, Up: Top
+File: gawk.info, Node: Installation, Next: Notes, Prev: Language History, Up: Top
Installing `gawk'
*****************
This appendix provides instructions for installing `gawk' on the
various platforms that are supported by the developers. The primary
-developers support Unix (and one day, GNU), while the other ports were
-contributed. The file `ACKNOWLEDGMENT' in the `gawk' distribution
-lists the electronic mail addresses of the people who did the
-respective ports, and they are also provided in *Note Reporting
-Problems and Bugs: Bugs.
+developer supports GNU/Linux (and Unix), whereas the other ports are
+contributed. *Note Reporting Problems and Bugs: Bugs, for the
+electronic mail addresses of the people who did the respective ports.
* Menu:
* Gawk Distribution:: What is in the `gawk' distribution.
-* Unix Installation:: Installing `gawk' under various versions
- of Unix.
-* VMS Installation:: Installing `gawk' on VMS.
-* PC Installation:: Installing and Compiling `gawk' on MS-DOS
- and OS/2
-* Atari Installation:: Installing `gawk' on the Atari ST.
-* Amiga Installation:: Installing `gawk' on an Amiga.
+* Unix Installation:: Installing `gawk' under various
+ versions of Unix.
+* Non-Unix Installation:: Installation on Other Operating Systems.
+* Unsupported:: Systems whose ports are no longer supported.
* Bugs:: Reporting Problems and Bugs.
* Other Versions:: Other freely available `awk'
implementations.
@@ -15332,8 +16680,8 @@ File: gawk.info, Node: Gawk Distribution, Next: Unix Installation, Prev: Inst
The `gawk' Distribution
=======================
- This section first describes how to get the `gawk' distribution, how
-to extract it, and then what is in the various files and subdirectories.
+ This minor node describes how to get the `gawk' distribution, how to
+extract it, and then what is in the various files and subdirectories.
* Menu:
@@ -15347,101 +16695,33 @@ File: gawk.info, Node: Getting, Next: Extracting, Prev: Gawk Distribution, U
Getting the `gawk' Distribution
-------------------------------
- There are three ways you can get GNU software.
+ There are three ways to get GNU software:
- 1. You can copy it from someone else who already has it.
+ * Copy it from someone else who already has it.
- 2. You can order `gawk' directly from the Free Software Foundation.
- Software distributions are available for Unix, MS-DOS, and VMS, on
- tape and CD-ROM. The address is:
+ * Order `gawk' directly from the Free Software Foundation. Software
+ distributions are available for Unix, MS-DOS, and VMS, on tape and
+ CD-ROM. Their address is:
Free Software Foundation
- 59 Temple Place--Suite 330
+ 59 Temple Place, Suite 330
Boston, MA 02111-1307 USA
Phone: +1-617-542-5942
Fax (including Japan): +1-617-542-2652
- Email: `gnu@gnu.org'
+ Email: <gnu@gnu.org>
URL: `http://www.gnu.org/'
Ordering from the FSF directly contributes to the support of the
foundation and to the production of more free software.
- 3. You can get `gawk' by using anonymous `ftp' to the Internet host
+ * Retrieve `gawk' by using anonymous `ftp' to the Internet host
`gnudist.gnu.org', in the directory `/gnu/gawk'.
- Here is a list of alternate `ftp' sites from which you can obtain
- GNU software. When a site is listed as "SITE`:'DIRECTORY" the
- DIRECTORY indicates the directory where GNU software is kept. You
- should use a site that is geographically close to you.
-
- Asia:
-
- `cair-archive.kaist.ac.kr:/pub/gnu'
- `ftp.cs.titech.ac.jp'
- `ftp.nectec.or.th:/pub/mirrors/gnu'
- `utsun.s.u-tokyo.ac.jp:/ftpsync/prep'
-
- Australia:
-
- `archie.au:/gnu'
- (`archie.oz' or `archie.oz.au' for ACSnet)
-
- Africa:
-
- `ftp.sun.ac.za:/pub/gnu'
-
- Middle East:
-
- `ftp.technion.ac.il:/pub/unsupported/gnu'
-
- Europe:
-
- `archive.eu.net'
- `ftp.denet.dk'
- `ftp.eunet.ch'
- `ftp.funet.fi:/pub/gnu'
- `ftp.ieunet.ie:pub/gnu'
- `ftp.informatik.rwth-aachen.de:/pub/gnu'
- `ftp.informatik.tu-muenchen.de'
- `ftp.luth.se:/pub/unix/gnu'
- `ftp.mcc.ac.uk'
- `ftp.stacken.kth.se'
- `ftp.sunet.se:/pub/gnu'
- `ftp.univ-lyon1.fr:pub/gnu'
- `ftp.win.tue.nl:/pub/gnu'
- `irisa.irisa.fr:/pub/gnu'
- `isy.liu.se'
- `nic.switch.ch:/mirror/gnu'
- `src.doc.ic.ac.uk:/gnu'
- `unix.hensa.ac.uk:/pub/uunet/systems/gnu'
-
- South America:
-
- `ftp.inf.utfsm.cl:/pub/gnu'
- `ftp.unicamp.br:/pub/gnu'
-
- Western Canada:
-
- `ftp.cs.ubc.ca:/mirror2/gnu'
-
- USA:
-
- `col.hp.com:/mirrors/gnu'
- `f.ms.uky.edu:/pub3/gnu'
- `ftp.cc.gatech.edu:/pub/gnu'
- `ftp.cs.columbia.edu:/archives/gnu/prep'
- `ftp.digex.net:/pub/gnu'
- `ftp.hawaii.edu:/mirrors/gnu'
- `ftp.kpc.com:/pub/mirror/gnu'
-
- USA (continued):
- `ftp.uu.net:/systems/gnu'
- `gatekeeper.dec.com:/pub/GNU'
- `jaguar.utah.edu:/gnustuff'
- `labrea.stanford.edu'
- `mrcnext.cso.uiuc.edu:/pub/gnu'
- `vixen.cso.uiuc.edu:/gnu'
- `wuarchive.wustl.edu:/systems/gnu'
+ The GNU software archive is mirrored around the world. The
+up-to-date list of mirror sites is available from the main FSF web site
+(http://www.gnu.org/order/ftp.html). Try to use one of the mirrors;
+they will be less busy, and you can usually find one closer to your
+site.

File: gawk.info, Node: Extracting, Next: Distribution contents, Prev: Getting, Up: Gawk Distribution
@@ -15452,29 +16732,26 @@ Extracting the Distribution
`gawk' is distributed as a `tar' file compressed with the GNU Zip
program, `gzip'.
- Once you have the distribution (for example, `gawk-3.0.6.tar.gz'),
-first use `gzip' to expand the file, and then use `tar' to extract it.
-You can use the following pipeline to produce the `gawk' distribution:
+ Once you have the distribution (for example, `gawk-3.1.0.tar.gz'),
+use `gzip' to expand the file and then use `tar' to extract it. You
+can use the following pipeline to produce the `gawk' distribution:
- # Under System V, add 'o' to the tar flags
- gzip -d -c gawk-3.0.6.tar.gz | tar -xvpf -
+ # Under System V, add 'o' to the tar options
+ gzip -d -c gawk-3.1.0.tar.gz | tar -xvpf -
-This will create a directory named `gawk-3.0.6' in the current
-directory.
+This creates a directory named `gawk-3.1.0' in the current directory.
- The distribution file name is of the form `gawk-V.R.N.tar.gz'. The
+ The distribution file name is of the form `gawk-V.R.P.tar.gz'. The
V represents the major version of `gawk', the R represents the current
-release of version V, and the N represents a "patch level", meaning
+release of version V, and the P represents a "patch level", meaning
that minor bugs have been fixed in the release. The current patch
-level is 6, but when retrieving distributions, you should get the
-version with the highest version, release, and patch level. (Note that
-release levels greater than or equal to 90 denote "beta," or
-non-production software; you may not wish to retrieve such a version
-unless you don't mind experimenting.)
-
- If you are not on a Unix system, you will need to make other
-arrangements for getting and extracting the `gawk' distribution. You
-should consult a local expert.
+level is 0, but when retrieving distributions, you should get the
+version with the highest version, release, and patch level. (Note,
+however, that patch levels greater than or equal to 80 denote "beta" or
+non-production software; you might not want to retrieve such a version
+unless you don't mind experimenting.) If you are not on a Unix system,
+you need to make other arrangements for getting and extracting the
+`gawk' distribution. You should consult a local expert.

File: gawk.info, Node: Distribution contents, Prev: Extracting, Up: Gawk Distribution
@@ -15483,31 +16760,23 @@ Contents of the `gawk' Distribution
-----------------------------------
The `gawk' distribution has a number of C source files,
-documentation files, subdirectories and files related to the
+documentation files, subdirectories, and files related to the
configuration process (*note Compiling and Installing `gawk' on Unix:
-Unix Installation.), and several subdirectories related to different,
-non-Unix, operating systems.
+Unix Installation.), as well as several subdirectories related to
+different non-Unix operating systems:
-various `.c', `.y', and `.h' files
+Various `.c', `.y', and `.h' files:
These files are the actual `gawk' source code.
`README'
`README_d/README.*'
- Descriptive files: `README' for `gawk' under Unix, and the rest
- for the various hardware and software combinations.
+ Descriptive files: `README' for `gawk' under Unix and the rest for
+ the various hardware and software combinations.
`INSTALL'
A file providing an overview of the configuration and installation
process.
-`PORTS'
- A list of systems to which `gawk' has been ported, and which have
- successfully run the test suite.
-
-`ACKNOWLEDGMENT'
- A list of the people who contributed major parts of the code or
- documentation.
-
`ChangeLog'
A detailed list of source code changes as bugs are fixed or
improvements made.
@@ -15519,9 +16788,9 @@ various `.c', `.y', and `.h' files
The GNU General Public License.
`FUTURES'
- A brief list of features and/or changes being contemplated for
- future releases, with some indication of the time frame for the
- feature, based on its difficulty.
+ A brief list of features and changes being contemplated for future
+ releases, with some indication of the time frame for the feature,
+ based on its difficulty.
`LIMITATIONS'
A list of those factors that limit `gawk''s performance. Most of
@@ -15530,10 +16799,7 @@ various `.c', `.y', and `.h' files
`POSIX.STD'
A description of one area where the POSIX standard for `awk' is
- incorrect, and how `gawk' handles the problem.
-
-`PROBLEMS'
- A file describing known problems with the current release.
+ incorrect as well as how `gawk' handles the problem.
`doc/awkforai.txt'
A short article describing why `gawk' is a good language for AI
@@ -15548,7 +16814,7 @@ various `.c', `.y', and `.h' files
`doc/no.colors'
`doc/setter.outline'
The `troff' source for a five-color `awk' reference card. A
- modern version of `troff', such as GNU Troff (`groff') is needed
+ modern version of `troff' such as GNU `troff' (`groff') is needed
to produce the color version. See the file `README.card' for
instructions if you have an older `troff'.
@@ -15559,11 +16825,19 @@ various `.c', `.y', and `.h' files
`doc/gawk.texi'
The Texinfo source file for this Info file. It should be
processed with TeX to produce a printed document, and with
- `makeinfo' to produce an Info file.
+ `makeinfo' to produce an Info or HTML file.
`doc/gawk.info'
The generated Info file for this Info file.
+`doc/gawkinet.texi'
+ The Texinfo source file for *Note Top::. It should be processed
+ with TeX to produce a printed document and with `makeinfo' to
+ produce an Info or HTML file.
+
+`doc/gawkinet.info'
+ The generated Info file for `TCP/IP Internetworking with `gawk''.
+
`doc/igawk.1'
The `troff' source for a manual page describing the `igawk'
program presented in *Note An Easy Way to Use Library Functions:
@@ -15573,159 +16847,458 @@ various `.c', `.y', and `.h' files
The input file used during the configuration process to generate
the actual `Makefile' for creating the documentation.
+`Makefile.am'
+`*/Makefile.am'
+ Files used by the GNU `automake' software for generating the
+ `Makefile.in' files used by `autoconf' and `configure'.
+
`Makefile.in'
`acconfig.h'
+`acinclude.m4'
`aclocal.m4'
`configh.in'
`configure.in'
`configure'
`custom.h'
-`missing/*'
- These files and subdirectory are used when configuring `gawk' for
- various Unix systems. They are explained in detail in *Note
- Compiling and Installing `gawk' on Unix: Unix Installation.
+`missing_d/*'
+`m4/*'
+ These files and subdirectories are used when configuring `gawk'
+ for various Unix systems. They are explained in *Note Compiling
+ and Installing `gawk' on Unix: Unix Installation.
+
+`intl/*'
+`po/*'
+ The `intl' directory provides the GNU `gettext' library, which
+ implements `gawk''s internationalization features, while the `po'
+ library contains message translations.
`awklib/extract.awk'
+`awklib/Makefile.am'
`awklib/Makefile.in'
+`awklib/eg/*'
The `awklib' directory contains a copy of `extract.awk' (*note
Extracting Programs from Texinfo Source Files: Extract Program.),
which can be used to extract the sample programs from the Texinfo
- source file for this Info file, and a `Makefile.in' file, which
- `configure' uses to generate a `Makefile'. As part of the process
- of building `gawk', the library functions from *Note A Library of
- `awk' Functions: Library Functions, and the `igawk' program from
- *Note An Easy Way to Use Library Functions: Igawk Program, are
- extracted into ready to use files. They are installed as part of
- the installation process.
-
-`atari/*'
- Files needed for building `gawk' on an Atari ST. *Note Installing
- `gawk' on the Atari ST: Atari Installation, for details.
+ source file for this Info file. It also contains a `Makefile.in'
+ file, which `configure' uses to generate a `Makefile'.
+ `Makefile.am' is used by GNU Automake to create `Makefile.in'.
+ The library functions from *Note A Library of `awk' Functions:
+ Library Functions, and the `igawk' program from *Note An Easy Way
+ to Use Library Functions: Igawk Program, are included as
+ ready-to-use files in the `gawk' distribution. They are installed
+ as part of the installation process. The rest of the programs in
+ this Info file are available in appropriate subdirectories of
+ `awklib/eg'.
+
+`unsupported/atari/*'
+ Files needed for building `gawk' on an Atari ST (*note Installing
+ `gawk' on the Atari ST: Atari Installation., for details).
+
+`unsupported/tandem/*'
+ Files needed for building `gawk' on a Tandem (*note Installing
+ `gawk' on a Tandem: Tandem Installation., for details).
+
+`posix/*'
+ Files needed for building `gawk' on POSIX-compliant systems.
`pc/*'
- Files needed for building `gawk' under MS-DOS and OS/2. *Note
- MS-DOS and OS/2 Installation and Compilation: PC Installation, for
- details.
+ Files needed for building `gawk' under MS-DOS, MS Windows and OS/2
+ (*note Installation on PC Operating Systems: PC Installation., for
+ details).
`vms/*'
- Files needed for building `gawk' under VMS. *Note How to Compile
- and Install `gawk' on VMS: VMS Installation, for details.
+ Files needed for building `gawk' under VMS (*note How to Compile
+ and Install `gawk' on VMS: VMS Installation., for details).
`test/*'
- A test suite for `gawk'. You can use `make check' from the top
- level `gawk' directory to run your version of `gawk' against the
- test suite. If `gawk' successfully passes `make check' then you
- can be confident of a successful port.
+ A test suite for `gawk'. You can use `make check' from the
+ top-level `gawk' directory to run your version of `gawk' against
+ the test suite. If `gawk' successfully passes `make check', then
+ you can be confident of a successful port.

-File: gawk.info, Node: Unix Installation, Next: VMS Installation, Prev: Gawk Distribution, Up: Installation
+File: gawk.info, Node: Unix Installation, Next: Non-Unix Installation, Prev: Gawk Distribution, Up: Installation
Compiling and Installing `gawk' on Unix
=======================================
Usually, you can compile and install `gawk' by typing only two
-commands. However, if you do use an unusual system, you may need to
+commands. However, if you use an unusual system, you may need to
configure `gawk' for your system yourself.
* Menu:
-* Quick Installation:: Compiling `gawk' under Unix.
-* Configuration Philosophy:: How it's all supposed to work.
+* Quick Installation:: Compiling `gawk' under Unix.
+* Additional Configuration Options:: Other compile-time options.
+* Configuration Philosophy:: How it's all supposed to work.

-File: gawk.info, Node: Quick Installation, Next: Configuration Philosophy, Prev: Unix Installation, Up: Unix Installation
+File: gawk.info, Node: Quick Installation, Next: Additional Configuration Options, Prev: Unix Installation, Up: Unix Installation
Compiling `gawk' for Unix
-------------------------
After you have extracted the `gawk' distribution, `cd' to
-`gawk-3.0.6'. Like most GNU software, `gawk' is configured
+`gawk-3.1.0'. Like most GNU software, `gawk' is configured
automatically for your Unix system by running the `configure' program.
-This program is a Bourne shell script that was generated automatically
+This program is a Bourne shell script that is generated automatically
using GNU `autoconf'. (The `autoconf' software is described fully
-starting with *Note Introduction: (autoconf)Top.)
+starting with *Note Top::.)
To configure `gawk', simply run `configure':
sh ./configure
This produces a `Makefile' and `config.h' tailored to your system.
-The `config.h' file describes various facts about your system. You may
-wish to edit the `Makefile' to change the `CFLAGS' variable, which
-controls the command line options that are passed to the C compiler
-(such as optimization levels, or compiling for debugging).
+The `config.h' file describes various facts about your system. You
+might want to edit the `Makefile' to change the `CFLAGS' variable,
+which controls the command-line options that are passed to the C
+compiler (such as optimization levels or compiling for debugging).
- Alternatively, you can add your own values for most `make'
-variables, such as `CC' and `CFLAGS', on the command line when running
+ Alternatively, you can add your own values for most `make' variables
+on the command line, such as `CC' and `CFLAGS', when running
`configure':
CC=cc CFLAGS=-g sh ./configure
See the file `INSTALL' in the `gawk' distribution for all the details.
- After you have run `configure', and possibly edited the `Makefile',
+ After you have run `configure' and possibly edited the `Makefile',
type:
make
-and shortly thereafter, you should have an executable version of `gawk'.
-That's all there is to it! (If these steps do not work, please send in
-a bug report; *note Reporting Problems and Bugs: Bugs..)
+Shortly thereafter, you should have an executable version of `gawk'.
+That's all there is to it! To verify that `gawk' is working properly,
+run `make check'. All of the tests should succeed. If these steps do
+not work, or if any of the tests fail, check the files in the
+`README_d' directory to see if you've found a known problem. If the
+failure is not described there, please send in a bug report (*note
+Reporting Problems and Bugs: Bugs..)

-File: gawk.info, Node: Configuration Philosophy, Prev: Quick Installation, Up: Unix Installation
+File: gawk.info, Node: Additional Configuration Options, Next: Configuration Philosophy, Prev: Quick Installation, Up: Unix Installation
+
+Additional Configuration Options
+--------------------------------
+
+ There are several additional options you may use on the `configure'
+command line when compiling `gawk' from scratch.
+
+`--enable-portals'
+ This option causes `gawk' to treat pathnames that begin with `/p'
+ as BSD portal files when doing two-way I/O with the `|&' operator
+ (*note Using `gawk' with BSD Portals: Portal Files.).
+
+`--with-included-gettext'
+ Use the version of the `gettext' library that comes with `gawk'.
+ This option should be used on systems that do _not_ use version 2
+ (or later) of the GNU C library. All known modern GNU/Linux
+ systems use Glibc 2. Use this option on any other system.
+
+`--disable-nls'
+ Disable all message translation facilities. This is usually not
+ desirable, but it may bring you some slight performance
+ improvement. You should also use this option if
+ `--with-included-gettext' doesn't work on your system.
+
+
+File: gawk.info, Node: Configuration Philosophy, Prev: Additional Configuration Options, Up: Unix Installation
The Configuration Process
-------------------------
- (This section is of interest only if you know something about using
-the C language and the Unix operating system.)
+ This minor node is of interest only if you know something about
+using the C language and the Unix operating system.
The source code for `gawk' generally attempts to adhere to formal
standards wherever possible. This means that `gawk' uses library
-routines that are specified by the ANSI C standard and by the POSIX
-operating system interface standard. When using an ANSI C compiler,
+routines that are specified by the ISO C standard and by the POSIX
+operating system interface standard. When using an ISO C compiler,
function prototypes are used to help improve the compile-time checking.
- Many Unix systems do not support all of either the ANSI or the POSIX
-standards. The `missing' subdirectory in the `gawk' distribution
-contains replacement versions of those subroutines that are most likely
+ Many Unix systems do not support all of either the ISO or the POSIX
+standards. The `missing_d' subdirectory in the `gawk' distribution
+contains replacement versions of those functions that are most likely
to be missing.
- The `config.h' file that is created by the `configure' program
-contains definitions that describe features of the particular operating
-system where you are attempting to compile `gawk'. The three things
-described by this file are what header files are available, so that
-they can be correctly included, what (supposedly) standard functions
-are actually available in your C libraries, and other miscellaneous
-facts about your variant of Unix. For example, there may not be an
-`st_blksize' element in the `stat' structure. In this case
-`HAVE_ST_BLKSIZE' would be undefined.
+ The `config.h' file that `configure' creates contains definitions
+that describe features of the particular operating system where you are
+attempting to compile `gawk'. The three things described by this file
+are: what header files are available, so that they can be correctly
+included, what (supposedly) standard functions are actually available
+in your C libraries, and various miscellaneous facts about your variant
+of Unix. For example, there may not be an `st_blksize' element in the
+`stat' structure. In this case, `HAVE_ST_BLKSIZE' is undefined.
It is possible for your C compiler to lie to `configure'. It may do
so by not exiting with an error when a library function is not
-available. To get around this, you can edit the file `custom.h'. Use
-an `#ifdef' that is appropriate for your system, and either `#define'
-any constants that `configure' should have defined but didn't, or
-`#undef' any constants that `configure' defined and should not have.
-`custom.h' is automatically included by `config.h'.
+available. To get around this, edit the file `custom.h'. Use an
+`#ifdef' that is appropriate for your system, and either `#define' any
+constants that `configure' should have defined but didn't, or `#undef'
+any constants that `configure' defined and should not have. `custom.h'
+is automatically included by `config.h'.
It is also possible that the `configure' program generated by
`autoconf' will not work on your system in some other fashion. If you
do have a problem, the file `configure.in' is the input for `autoconf'.
-You may be able to change this file, and generate a new version of
-`configure' that will work on your system. *Note Reporting Problems
-and Bugs: Bugs, for information on how to report problems in
-configuring `gawk'. The same mechanism may be used to send in updates
-to `configure.in' and/or `custom.h'.
+You may be able to change this file and generate a new version of
+`configure' that works on your system (*note Reporting Problems and
+Bugs: Bugs., for information on how to report problems in configuring
+`gawk'). The same mechanism may be used to send in updates to
+`configure.in' and/or `custom.h'.

-File: gawk.info, Node: VMS Installation, Next: PC Installation, Prev: Unix Installation, Up: Installation
+File: gawk.info, Node: Non-Unix Installation, Next: Unsupported, Prev: Unix Installation, Up: Installation
+
+Installation on Other Operating Systems
+=======================================
+
+ This minor node describes how to install `gawk' on various non-Unix
+systems.
+
+* Menu:
+
+* Amiga Installation:: Installing `gawk' on an Amiga.
+* BeOS Installation:: Installing `gawk' on BeOS.
+* PC Installation:: Installing and Compiling `gawk' on
+ MS-DOS and OS/2.
+* VMS Installation:: Installing `gawk' on VMS.
+
+
+File: gawk.info, Node: Amiga Installation, Next: BeOS Installation, Prev: Non-Unix Installation, Up: Non-Unix Installation
+
+Installing `gawk' on an Amiga
+-----------------------------
+
+ You can install `gawk' on an Amiga system using a Unix emulation
+environment, available via anonymous `ftp' from `ftp.ninemoons.com' in
+the directory `pub/ade/current'. This includes a shell based on
+`pdksh'. The primary component of this environment is a Unix emulation
+library, `ixemul.lib'.
+
+ A more complete distribution for the Amiga is available on the Geek
+Gadgets CD-ROM, available from:
+
+ CRONUS
+ 1840 E. Warner Road #105-265
+ Tempe, AZ 85284 USA
+ US Toll Free: (800) 804-0833
+ Phone: +1-602-491-0442
+ FAX: +1-602-491-0048
+ Email: <info@ninemoons.com>
+ WWW: `http://www.ninemoons.com'
+ Anonymous `ftp' site: `ftp.ninemoons.com'
+
+ Once you have the distribution, you can configure `gawk' simply by
+running `configure':
+
+ configure -v m68k-amigaos
+
+ Then run `make' and you should be all set! If these steps do not
+work, please send in a bug report (*note Reporting Problems and Bugs:
+Bugs.).
+
+
+File: gawk.info, Node: BeOS Installation, Next: PC Installation, Prev: Amiga Installation, Up: Non-Unix Installation
+
+Installing `gawk' on BeOS
+-------------------------
+
+ Since BeOS DR9, all the tools that you should need to build `gawk'
+are included with BeOS. The process is basically identical to the Unix
+process of running `configure' and then `make'. Full instructions are
+given below.
+
+ You can compile `gawk' under BeOS by extracting the standard sources
+and running `configure'. You _must_ specify the location prefix for the
+installation directory. For BeOS DR9 and beyond, the best directory to
+use is `/boot/home/config', so the `configure' command is:
+
+ configure --prefix=/boot/home/config
+
+ This installs the compiled application into `/boot/home/config/bin',
+which is already specified in the standard `PATH'.
+
+ Once the configuration process is completed, you can run `make', and
+then `make install':
+
+ $ make
+ ...
+ $ make install
+
+ BeOS uses `bash' as its shell; thus, you use `gawk' the same way you
+would under Unix. If these steps do not work, please send in a bug
+report (*note Reporting Problems and Bugs: Bugs.).
+
+
+File: gawk.info, Node: PC Installation, Next: VMS Installation, Prev: BeOS Installation, Up: Non-Unix Installation
+
+Installation on PC Operating Systems
+------------------------------------
+
+ This minor node covers installation and usage of `gawk' on x86
+machines running DOS, any version of Windows, or OS/2. In this minor
+node, the term "Win32" refers to any of Windows-95/98/ME/NT/2000.
+
+ The limitations of DOS (and DOS shells under Windows or OS/2) has
+meant that various "DOS extenders" are often used with programs such as
+`gawk'. The varying capabilities of Microsoft Windows 3.1 and Win32
+can add to the confusion. For an overview of the considerations,
+please refer to `README_d/README.pc' in the distribution.
+
+* Menu:
+
+* PC Binary Installation:: Installing a prepared distribution.
+* PC Compiling:: Compiling `gawk' for MS-DOS, Win32,
+ and OS/2.
+* PC Using:: Running `gawk' on MS-DOS, Win32 and
+ OS/2.
+
+
+File: gawk.info, Node: PC Binary Installation, Next: PC Compiling, Prev: PC Installation, Up: PC Installation
+
+Installing a Prepared Distribution for PC Systems
+.................................................
+
+ If you have received a binary distribution prepared by the DOS
+maintainers, then `gawk' and the necessary support files appear under
+the `gnu' directory, with executables in `gnu/bin', libraries in
+`gnu/lib/awk', and manual pages under `gnu/man'. This is designed for
+easy installation to a `/gnu' directory on your drive--however, the
+files can be installed anywhere provided `AWKPATH' is set properly.
+Regardless of the installation directory, the first line of `igawk.cmd'
+and `igawk.bat' (in `gnu/bin') may need to be edited.
+
+ The binary distribution contains a separate file describing the
+contents. In particular, it may include more than one version of the
+`gawk' executable. OS/2 binary distributions may have a different
+arrangement, but installation is similar.
+
+
+File: gawk.info, Node: PC Compiling, Next: PC Using, Prev: PC Binary Installation, Up: PC Installation
+
+Compiling `gawk' for PC Operating Systems
+.........................................
+
+ `gawk' can be compiled for MS-DOS, Win32, and OS/2 using the GNU
+development tools from DJ Delorie (DJGPP; MS-DOS only) or Eberhard
+Mattes (EMX; MS-DOS, Win32 and OS/2). Microsoft Visual C/C++ can be
+used to build a Win32 version, and Microsoft C/C++ can be used to build
+16-bit versions for MS-DOS and OS/2. The file `README_d/README.pc' in
+the `gawk' distribution contains additional notes, and `pc/Makefile'
+contains important information on compilation options.
+
+ To build `gawk', copy the files in the `pc' directory (_except_ for
+`ChangeLog') to the directory with the rest of the `gawk' sources. The
+`Makefile' contains a configuration section with comments and may need
+to be edited in order to work with your `make' utility.
+
+ The `Makefile' contains a number of targets for building various
+MS-DOS, Win32, and OS/2 versions. A list of targets is printed if the
+`make' command is given without a target. As an example, to build `gawk'
+using the DJGPP tools, enter `make djgpp'.
+
+ Using `make' to run the standard tests and to install `gawk'
+requires additional Unix-like tools, including `sh', `sed', and `cp'.
+In order to run the tests, the `test/*.ok' files may need to be
+converted so that they have the usual DOS-style end-of-line markers.
+Most of the tests work properly with Stewartson's shell along with the
+companion utilities or appropriate GNU utilities. However, some
+editing of `test/Makefile' is required. It is recommended that you copy
+the file `pc/Makefile.tst' over the file `test/Makefile' as a
+replacement. Details can be found in `README_d/README.pc' and in the
+file `pc/Makefile.tst'.
+
+
+File: gawk.info, Node: PC Using, Prev: PC Compiling, Up: PC Installation
+
+Using `gawk' on PC Operating Systems
+....................................
+
+ The OS/2 and MS-DOS versions of `gawk' search for program files as
+described in *Note The `AWKPATH' Environment Variable: AWKPATH Variable.
+However, semicolons (rather than colons) separate elements in the
+`AWKPATH' variable. If `AWKPATH' is not set or is empty, then the
+default search path is `".;c:/lib/awk;c:/gnu/lib/awk"'.
+
+ An `sh'-like shell (as opposed to `command.com' under MS-DOS or
+`cmd.exe' under OS/2) may be useful for `awk' programming. Ian
+Stewartson has written an excellent shell for MS-DOS and OS/2, Daisuke
+Aoyama has ported GNU `bash' to MS-DOS using the DJGPP tools, and
+several shells are available for OS/2, including `ksh'. The file
+`README_d/README.pc' in the `gawk' distribution contains information on
+these shells. Users of Stewartson's shell on DOS should examine its
+documentation for handling command lines; in particular, the setting
+for `gawk' in the shell configuration may need to be changed and the
+`ignoretype' option may also be of interest.
+
+ Under OS/2 and DOS, `gawk' (and many other text programs) silently
+translate end-of-line `"\r\n"' to `"\n"' on input and `"\n"' to
+`"\r\n"' on output. A special `BINMODE' variable allows control over
+these translations and is interpreted as follows.
+
+ * If `BINMODE' is `"r"', or `(BINMODE & 1)' is nonzero, then binary
+ mode is set on read (i.e., no translations on reads).
+
+ * If `BINMODE' is `"w"', or `(BINMODE & 2)' is nonzero, then binary
+ mode is set on write (i.e., no translations on writes).
+
+ * If `BINMODE' is `"rw"' or `"wr"', binary mode is set for both read
+ and write (same as `(BINMODE & 3)').
+
+ * `BINMODE=NON-NULL-STRING' is the same as `BINMODE=3' (i.e., no
+ translations on reads or writes). However, `gawk' issues a warning
+ message if the string is not one of `"rw"' or `"wr"'.
+
+The modes for standard input and standard output are set one time only
+(after the command line is read, but before processing any of the `awk'
+program). Setting `BINMODE' for standard input or standard output is
+accomplished by using an appropriate `-v BINMODE=N' option on the
+command line. `BINMODE' is set at the time a file or pipe is opened
+and cannot be changed mid-stream.
+
+ The name `BINMODE' was chosen to match `mawk' (*note Other Freely
+Available `awk' Implementations: Other Versions.). Both `mawk' and
+`gawk' handle `BINMODE' similarly; however, `mawk' adds a `-W
+BINMODE=N' option and an environment variable that can set `BINMODE',
+`RS', and `ORS'. The files `binmode[1-3].awk' (under `gnu/lib/awk' in
+some of the prepared distributions) have been chosen to match `mawk''s
+`-W BINMODE=N' option. These can be changed or discarded; in
+particular, the setting of `RS' giving the fewest "surprises" is open
+to debate. `mawk' uses `RS = "\r\n"' if binary mode is set on read,
+which is appropriate for files with the DOS-style end-of-line.
+
+ To Illustrate, the following examples set binary mode on writes for
+standard output and other files, and set `ORS' as the "usual" DOS-style
+end-of-line:
+
+ gawk -v BINMODE=2 -v ORS="\r\n" ...
+
+or:
+
+ gawk -v BINMODE=w -f binmode2.awk ...
+
+These give the same result as the `-W BINMODE=2' option in `mawk'. The
+following changes the record separator to `"\r\n"' and sets binary mode
+on reads, but does not affect the mode on standard input:
+
+ gawk -v RS="\r\n" --source "BEGIN { BINMODE = 1 }" ...
+
+or:
+
+ gawk -f binmode1.awk ...
+
+With proper quoting, in the first example the setting of `RS' can be
+moved into the `BEGIN' rule.
+
+
+File: gawk.info, Node: VMS Installation, Prev: PC Installation, Up: Non-Unix Installation
How to Compile and Install `gawk' on VMS
-========================================
+----------------------------------------
- This section describes how to compile and install `gawk' under VMS.
+ This node describes how to compile and install `gawk' under VMS.
* Menu:
@@ -15738,16 +17311,16 @@ How to Compile and Install `gawk' on VMS
File: gawk.info, Node: VMS Compilation, Next: VMS Installation Details, Prev: VMS Installation, Up: VMS Installation
Compiling `gawk' on VMS
------------------------
+.......................
To compile `gawk' under VMS, there is a `DCL' command procedure that
-will issue all the necessary `CC' and `LINK' commands, and there is
-also a `Makefile' for use with the `MMS' utility. From the source
-directory, use either
+issues all the necessary `CC' and `LINK' commands. There is also a
+`Makefile' for use with the `MMS' utility. From the source directory,
+use either:
$ @[.VMS]VMSBUILD.COM
-or
+or:
$ MMS/DESCRIPTION=[.VMS]DESCRIP.MMS GAWK
@@ -15768,62 +17341,64 @@ VAX C V2.x
GNU C
Edit `vmsbuild.com' or `descrip.mms'; the changes are different
- from those for VAX C V2.x, but equally straightforward. No
- changes to `config.h' should be needed.
+ from those for VAX C V2.x but equally straightforward. No changes
+ to `config.h' are needed.
DEC C
Edit `vmsbuild.com' or `descrip.mms' according to their comments.
- No changes to `config.h' should be needed.
+ No changes to `config.h' are needed.
- `gawk' has been tested under VAX/VMS 5.5-1 using VAX C V3.2, GNU C
-1.40 and 2.3. It should work without modifications for VMS V4.6 and up.
+ `gawk' has been tested under VAX/VMS 5.5-1 using VAX C V3.2, and GNU
+C 1.40 and 2.3. It should work without modifications for VMS V4.6 and
+up.

File: gawk.info, Node: VMS Installation Details, Next: VMS Running, Prev: VMS Compilation, Up: VMS Installation
Installing `gawk' on VMS
-------------------------
+........................
To install `gawk', all you need is a "foreign" command, which is a
`DCL' symbol whose value begins with a dollar sign. For example:
$ GAWK :== $disk1:[gnubin]GAWK
-(Substitute the actual location of `gawk.exe' for `$disk1:[gnubin]'.)
-The symbol should be placed in the `login.com' of any user who wishes
-to run `gawk', so that it will be defined every time the user logs on.
+Substitute the actual location of `gawk.exe' for `$disk1:[gnubin]'. The
+symbol should be placed in the `login.com' of any user who wants to run
+`gawk', so that it is defined every time the user logs on.
Alternatively, the symbol may be placed in the system-wide
-`sylogin.com' procedure, which will allow all users to run `gawk'.
+`sylogin.com' procedure, which allows all users to run `gawk'.
Optionally, the help entry can be loaded into a VMS help library:
$ LIBRARY/HELP SYS$HELP:HELPLIB [.VMS]GAWK.HLP
(You may want to substitute a site-specific help library rather than
-the standard VMS library `HELPLIB'.) After loading the help text,
+the standard VMS library `HELPLIB'.) After loading the help text, the
+command:
$ HELP GAWK
-will provide information about both the `gawk' implementation and the
-`awk' programming language.
+provides information about both the `gawk' implementation and the `awk'
+programming language.
The logical name `AWK_LIBRARY' can designate a default location for
-`awk' program files. For the `-f' option, if the specified filename
-has no device or directory path information in it, `gawk' will look in
-the current directory first, then in the directory specified by the
-translation of `AWK_LIBRARY' if the file was not found. If after
-searching in both directories, the file still is not found, then `gawk'
-appends the suffix `.awk' to the filename and the file search will be
-re-tried. If `AWK_LIBRARY' is not defined, that portion of the file
-search will fail benignly.
+`awk' program files. For the `-f' option, if the specified file name
+has no device or directory path information in it, `gawk' looks in the
+current directory first, then in the directory specified by the
+translation of `AWK_LIBRARY' if the file is not found. If, after
+searching in both directories, the file still is not found, `gawk'
+appends the suffix `.awk' to the filename and retries the file search.
+If `AWK_LIBRARY' is not defined, that portion of the file search fails
+benignly.

File: gawk.info, Node: VMS Running, Next: VMS POSIX, Prev: VMS Installation Details, Up: VMS Installation
Running `gawk' on VMS
----------------------
+.....................
- Command line parsing and quoting conventions are significantly
+ Command-line parsing and quoting conventions are significantly
different on VMS, so examples in this Info file or from other sources
often need minor changes. They _are_ minor though, and all `awk'
programs should run correctly.
@@ -15834,168 +17409,122 @@ programs should run correctly.
$ gawk -"W" version
! could also be -"W version" or "-W version"
-Note that upper-case and mixed-case text must be quoted.
+Note that uppercase and mixed-case text must be quoted.
The VMS port of `gawk' includes a `DCL'-style interface in addition
to the original shell-style interface (see the help entry for details).
-One side-effect of dual command line parsing is that if there is only a
+One side effect of dual command-line parsing is that if there is only a
single parameter (as in the quoted string program above), the command
becomes ambiguous. To work around this, the normally optional `--'
flag is required to force Unix style rather than `DCL' parsing. If any
-other dash-type options (or multiple parameters such as data files to be
-processed) are present, there is no ambiguity and `--' can be omitted.
+other dash-type options (or multiple parameters such as data files to
+process) are present, there is no ambiguity and `--' can be omitted.
- The default search path when looking for `awk' program files
-specified by the `-f' option is `"SYS$DISK:[],AWK_LIBRARY:"'. The
+ The default search path, when looking for `awk' program files
+specified by the `-f' option, is `"SYS$DISK:[],AWK_LIBRARY:"'. The
logical name `AWKPATH' can be used to override this default. The format
of `AWKPATH' is a comma-separated list of directory specifications.
When defining it, the value should be quoted so that it retains a single
-translation, and not a multi-translation `RMS' searchlist.
+translation and not a multitranslation `RMS' searchlist.

File: gawk.info, Node: VMS POSIX, Prev: VMS Running, Up: VMS Installation
Building and Using `gawk' on VMS POSIX
---------------------------------------
+......................................
Ignore the instructions above, although `vms/gawk.hlp' should still
be made available in a help library. The source tree should be unpacked
-into a container file subsystem rather than into the ordinary VMS file
-system. Make sure that the two scripts, `configure' and
+into a container file subsystem rather than into the ordinary VMS
+filesystem. Make sure that the two scripts, `configure' and
`vms/posix-cc.sh', are executable; use `chmod +x' on them if necessary.
Then execute the following two commands:
psx> CC=vms/posix-cc.sh configure
psx> make CC=c89 gawk
-The first command will construct files `config.h' and `Makefile' out of
+The first command constructs files `config.h' and `Makefile' out of
templates, using a script to make the C compiler fit `configure''s
-expectations. The second command will compile and link `gawk' using
-the C compiler directly; ignore any warnings from `make' about being
-unable to redefine `CC'. `configure' will take a very long time to
-execute, but at least it provides incremental feedback as it runs.
+expectations. The second command compiles and links `gawk' using the C
+compiler directly; ignore any warnings from `make' about being unable
+to redefine `CC'. `configure' takes a very long time to execute, but
+at least it provides incremental feedback as it runs.
This has been tested with VAX/VMS V6.2, VMS POSIX V2.0, and DEC C
V5.2.
- Once built, `gawk' will work like any other shell utility. Unlike
-the normal VMS port of `gawk', no special command line manipulation is
+ Once built, `gawk' works like any other shell utility. Unlike the
+normal VMS port of `gawk', no special command-line manipulation is
needed in the VMS POSIX environment.

-File: gawk.info, Node: PC Installation, Next: Atari Installation, Prev: VMS Installation, Up: Installation
-
-MS-DOS and OS/2 Installation and Compilation
-============================================
-
- If you have received a binary distribution prepared by the DOS
-maintainers, then `gawk' and the necessary support files will appear
-under the `gnu' directory, with executables in `gnu/bin', libraries in
-`gnu/lib/awk', and manual pages under `gnu/man'. This is designed for
-easy installation to a `/gnu' directory on your drive, but the files
-can be installed anywhere provided `AWKPATH' is set properly.
-Regardless of the installation directory, the first line of `igawk.cmd'
-and `igawk.bat' (in `gnu/bin') may need to be edited.
+File: gawk.info, Node: Unsupported, Next: Bugs, Prev: Non-Unix Installation, Up: Installation
- The binary distribution will contain a separate file describing the
-contents. In particular, it may include more than one version of the
-`gawk' executable. OS/2 binary distributions may have a different
-arrangement, but installation is similar.
-
- The OS/2 and MS-DOS versions of `gawk' search for program files as
-described in *Note The `AWKPATH' Environment Variable: AWKPATH Variable.
-However, semicolons (rather than colons) separate elements in the
-`AWKPATH' variable. If `AWKPATH' is not set or is empty, then the
-default search path is `".;c:/lib/awk;c:/gnu/lib/awk"'.
-
- An `sh'-like shell (as opposed to `command.com' under MS-DOS or
-`cmd.exe' under OS/2) may be useful for `awk' programming. Ian
-Stewartson has written an excellent shell for MS-DOS and OS/2, and a
-`ksh' clone and GNU Bash are available for OS/2. The file
-`README_d/README.pc' in the `gawk' distribution contains information on
-these shells. Users of Stewartson's shell on DOS should examine its
-documentation on handling of command-lines. In particular, the setting
-for `gawk' in the shell configuration may need to be changed, and the
-`ignoretype' option may also be of interest.
+Unsupported Operating System Ports
+==================================
- `gawk' can be compiled for MS-DOS and OS/2 using the GNU development
-tools from DJ Delorie (DJGPP, MS-DOS-only) or Eberhard Mattes (EMX,
-MS-DOS and OS/2). Microsoft C can be used to build 16-bit versions for
-MS-DOS and OS/2. The file `README_d/README.pc' in the `gawk'
-distribution contains additional notes, and `pc/Makefile' contains
-important notes on compilation options.
+ This sections describes systems for which the `gawk' port is no
+longer supported.
- To build `gawk', copy the files in the `pc' directory (_except_ for
-`ChangeLog') to the directory with the rest of the `gawk' sources. The
-`Makefile' contains a configuration section with comments, and may need
-to be edited in order to work with your `make' utility.
-
- The `Makefile' contains a number of targets for building various
-MS-DOS and OS/2 versions. A list of targets will be printed if the
-`make' command is given without a target. As an example, to build `gawk'
-using the DJGPP tools, enter `make djgpp'.
+* Menu:
- Using `make' to run the standard tests and to install `gawk'
-requires additional Unix-like tools, including `sh', `sed', and `cp'.
-In order to run the tests, the `test/*.ok' files may need to be
-converted so that they have the usual DOS-style end-of-line markers.
-Most of the tests will work properly with Stewartson's shell along with
-the companion utilities or appropriate GNU utilities. However, some
-editing of `test/Makefile' is required. It is recommended that the file
-`pc/Makefile.tst' be copied to `test/Makefile' as a replacement.
-Details can be found in `README_d/README.pc'.
+* Atari Installation:: Installing `gawk' on the Atari ST.
+* Tandem Installation:: Installing `gawk' on a Tandem.

-File: gawk.info, Node: Atari Installation, Next: Amiga Installation, Prev: PC Installation, Up: Installation
+File: gawk.info, Node: Atari Installation, Next: Tandem Installation, Prev: Unsupported, Up: Unsupported
Installing `gawk' on the Atari ST
-=================================
+---------------------------------
+
+ The Atari port is no longer supported. It is included for those who
+might want to use it but it is no longer being actively maintained.
There are no substantial differences when installing `gawk' on
various Atari models. Compiled `gawk' executables do not require a
-large amount of memory with most `awk' programs and should run on all
-Motorola processor based models (called further ST, even if that is not
+large amount of memory with most `awk' programs, and should run on all
+Motorola processor-based models (called further ST, even if that is not
exactly right).
In order to use `gawk', you need to have a shell, either text or
graphics, that does not map all the characters of a command line to
-upper-case. Maintaining case distinction in option flags is very
-important (*note Command Line Options: Options.). These days this is
-the default, and it may only be a problem for some very old machines.
-If your system does not preserve the case of option flags, you will
-need to upgrade your tools. Support for I/O redirection is necessary
-to make it easy to import `awk' programs from other environments.
-Pipes are nice to have, but not vital.
+uppercase. Maintaining case distinction in option flags is very
+important (*note Command-Line Options: Options.). These days this is
+the default and it may only be a problem for some very old machines.
+If your system does not preserve the case of option flags, you need to
+upgrade your tools. Support for I/O redirection is necessary to make
+it easy to import `awk' programs from other environments. Pipes are
+nice to have but not vital.
* Menu:
-* Atari Compiling:: Compiling `gawk' on Atari
-* Atari Using:: Running `gawk' on Atari
+* Atari Compiling:: Compiling `gawk' on Atari.
+* Atari Using:: Running `gawk' on Atari.

File: gawk.info, Node: Atari Compiling, Next: Atari Using, Prev: Atari Installation, Up: Atari Installation
Compiling `gawk' on the Atari ST
---------------------------------
+................................
A proper compilation of `gawk' sources when `sizeof(int)' differs
-from `sizeof(void *)' requires an ANSI C compiler. An initial port was
+from `sizeof(void *)' requires an ISO C compiler. An initial port was
done with `gcc'. You may actually prefer executables where `int's are
-four bytes wide, but the other variant works as well.
+four bytes wide but the other variant works as well.
You may need quite a bit of memory when trying to recompile the
`gawk' sources, as some source files (`regex.c' in particular) are quite
big. If you run out of memory compiling such a file, try reducing the
-optimization level for this particular file; this may help.
+optimization level for this particular file, which may help.
- With a reasonable shell (Bash will do), and in particular if you run
-Linux, MiNT or a similar operating system, you have a pretty good
-chance that the `configure' utility will succeed. Otherwise sample
-versions of `config.h' and `Makefile.st' are given in the `atari'
-subdirectory and can be edited and copied to the corresponding files in
-the main source directory. Even if `configure' produced something, it
-might be advisable to compare its results with the sample versions and
-possibly make adjustments.
+ With a reasonable shell (`bash' will do), you have a pretty good
+chance that the `configure' utility will succeed, and in particular if
+you run GNU/Linux, MiNT or a similar operating system. Otherwise
+sample versions of `config.h' and `Makefile.st' are given in the
+`atari' subdirectory and can be edited and copied to the corresponding
+files in the main source directory. Even if `configure' produces
+something, it might be advisable to compare its results with the sample
+versions and possibly make adjustments.
Some `gawk' source code fragments depend on a preprocessor define
`atarist'. This basically assumes the TOS environment with `gcc'.
@@ -16005,100 +17534,104 @@ environment. Also see the remarks about `AWKPATH' and `envsep' in
As shipped, the sample `config.h' claims that the `system' function
is missing from the libraries, which is not true, and an alternative
-implementation of this function is provided in `atari/system.c'.
-Depending upon your particular combination of shell and operating
-system, you may wish to change the file to indicate that `system' is
-available.
+implementation of this function is provided in
+`unsupported/atari/system.c'. Depending upon your particular
+combination of shell and operating system, you might want to change the
+file to indicate that `system' is available.

File: gawk.info, Node: Atari Using, Prev: Atari Compiling, Up: Atari Installation
Running `gawk' on the Atari ST
-------------------------------
+..............................
An executable version of `gawk' should be placed, as usual, anywhere
in your `PATH' where your shell can find it.
- While executing, `gawk' creates a number of temporary files. When
-using `gcc' libraries for TOS, `gawk' looks for either of the
-environment variables `TEMP' or `TMPDIR', in that order. If either one
-is found, its value is assumed to be a directory for temporary files.
-This directory must exist, and if you can spare the memory, it is a
-good idea to put it on a RAM drive. If neither `TEMP' nor `TMPDIR' are
-found, then `gawk' uses the current directory for its temporary files.
-
- The ST version of `gawk' searches for its program files as described
-in *Note The `AWKPATH' Environment Variable: AWKPATH Variable. The
-default value for the `AWKPATH' variable is taken from `DEFPATH'
+ While executing, the Atari version of `gawk' creates a number of
+temporary files. When using `gcc' libraries for TOS, `gawk' looks for
+either of the environment variables, `TEMP' or `TMPDIR', in that order.
+If either one is found, its value is assumed to be a directory for
+temporary files. This directory must exist, and if you can spare the
+memory, it is a good idea to put it on a RAM drive. If neither `TEMP'
+nor `TMPDIR' are found, then `gawk' uses the current directory for its
+temporary files.
+
+ The ST version of `gawk' searches for its program files, as
+described in *Note The `AWKPATH' Environment Variable: AWKPATH Variable.
+The default value for the `AWKPATH' variable is taken from `DEFPATH'
defined in `Makefile'. The sample `gcc'/TOS `Makefile' for the ST in
the distribution sets `DEFPATH' to `".,c:\lib\awk,c:\gnu\lib\awk"'.
The search path can be modified by explicitly setting `AWKPATH' to
-whatever you wish. Note that colons cannot be used on the ST to
-separate elements in the `AWKPATH' variable, since they have another,
-reserved, meaning. Instead, you must use a comma to separate elements
+whatever you want. Note that colons cannot be used on the ST to
+separate elements in the `AWKPATH' variable, since they have another
+reserved meaning. Instead, you must use a comma to separate elements
in the path. When recompiling, the separating character can be
-modified by initializing the `envsep' variable in `atari/gawkmisc.atr'
-to another value.
+modified by initializing the `envsep' variable in
+`unsupported/atari/gawkmisc.atr' to another value.
Although `awk' allows great flexibility in doing I/O redirections
from within a program, this facility should be used with care on the ST
-running under TOS. In some circumstances the OS routines for file
-handle pool processing lose track of certain events, causing the
-computer to crash, and requiring a reboot. Often a warm reboot is
-sufficient. Fortunately, this happens infrequently, and in rather
+running under TOS. In some circumstances, the OS routines for
+file-handle pool processing lose track of certain events, causing the
+computer to crash and requiring a reboot. Often a warm reboot is
+sufficient. Fortunately, this happens infrequently and in rather
esoteric situations. In particular, avoid having one part of an `awk'
program using `print' statements explicitly redirected to
-`"/dev/stdout"', while other `print' statements use the default
-standard output, and a calling shell has redirected standard output to
-a file.
+`/dev/stdout', while other `print' statements use the default standard
+output, and a calling shell has redirected standard output to a file.
When `gawk' is compiled with the ST version of `gcc' and its usual
-libraries, it will accept both `/' and `\' as path separators. While
-this is convenient, it should be remembered that this removes one,
-technically valid, character (`/') from your file names, and that it
-may create problems for external programs, called via the `system'
-function, which may not support this convention. Whenever it is
-possible that a file created by `gawk' will be used by some other
-program, use only backslashes. Also remember that in `awk',
-backslashes in strings have to be doubled in order to get literal
-backslashes (*note Escape Sequences::).
+libraries, it accepts both `/' and `\' as path separators. While this
+is convenient, it should be remembered that this removes one
+technically valid character (`/') from your file name. It may also
+create problems for external programs called via the `system' function,
+which may not support this convention. Whenever it is possible that a
+file created by `gawk' will be used by some other program, use only
+backslashes. Also remember that in `awk', backslashes in strings have
+to be doubled in order to get literal backslashes (*note Escape
+Sequences::).

-File: gawk.info, Node: Amiga Installation, Next: Bugs, Prev: Atari Installation, Up: Installation
-
-Installing `gawk' on an Amiga
-=============================
-
- You can install `gawk' on an Amiga system using a Unix emulation
-environment available via anonymous `ftp' from `ftp.ninemoons.com' in
-the directory `pub/ade/current'. This includes a shell based on
-`pdksh'. The primary component of this environment is a Unix emulation
-library, `ixemul.lib'.
-
- A more complete distribution for the Amiga is available on the Geek
-Gadgets CD-ROM from:
-
- CRONUS
- 1840 E. Warner Road #105-265
- Tempe, AZ 85284 USA
- US Toll Free: (800) 804-0833
- Phone: +1-602-491-0442
- FAX: +1-602-491-0048
- Email: `info@ninemoons.com'
- WWW: `http://www.ninemoons.com'
- Anonymous `ftp' site: `ftp.ninemoons.com'
+File: gawk.info, Node: Tandem Installation, Prev: Atari Installation, Up: Unsupported
- Once you have the distribution, you can configure `gawk' simply by
-running `configure':
-
- configure -v m68k-amigaos
+Installing `gawk' on a Tandem
+-----------------------------
- Then run `make', and you should be all set! (If these steps do not
-work, please send in a bug report; *note Reporting Problems and Bugs:
-Bugs..)
+ The Tandem port is only minimally supported. The port's contributor
+no longer has access to a Tandem system.
+
+ The Tandem port was done on a Cyclone machine running D20. The port
+is pretty clean and all facilities seem to work except for the I/O
+piping facilities (*note Using `getline' from a Pipe: Getline/Pipe.,
+*Note Using `getline' into a Variable from a Pipe:
+Getline/Variable/Pipe, and *Note Redirecting Output of `print' and
+`printf': Redirection), which is just too foreign a concept for Tandem.
+
+ To build a Tandem executable from source, download all of the files
+so that the file names on the Tandem box conform to the restrictions of
+D20. For example, `array.c' becomes `ARRAYC', and `awk.h' becomes
+`AWKH'. The totally Tandem-specific files are in the `tandem'
+"subvolume" (`unsupported/tandem' in the `gawk' distribution) and
+should be copied to the main source directory before building `gawk'.
+
+ The file `compit' can then be used to compile and bind an executable.
+Alas, there is no `configure' or `make'.
+
+ Usage is the same as for Unix, except that D20 requires all `{' and
+`}' characters to be escaped with `~' on the command line (but _not_ in
+script files). Also, the standard Tandem syntax for `/in filename,out
+filename/' must be used instead of the usual Unix `<' and `>' for file
+redirection. (Redirection options on `getline', `print' etc., are
+supported.)
+
+ The `-mr VAL' option (*note Command-Line Options: Options.) has
+been "stolen" to enable Tandem users to process fixed-length records
+with no "end-of-line" character. That is, `-mr 74' tells `gawk' to read
+the input file as fixed 74-byte records.

-File: gawk.info, Node: Bugs, Next: Other Versions, Prev: Amiga Installation, Up: Installation
+File: gawk.info, Node: Bugs, Next: Other Versions, Prev: Unsupported, Up: Installation
Reporting Problems and Bugs
===========================
@@ -16106,8 +17639,6 @@ Reporting Problems and Bugs
There is nothing more dangerous than a bored archeologist.
The Hitchhiker's Guide to the Galaxy
-
-
If you have problems with `gawk' or think that you have found a bug,
please report it to the developers; we cannot promise to do anything
but we might well want to fix it.
@@ -16121,56 +17652,52 @@ documentation!
Before reporting a bug or trying to fix it yourself, try to isolate
it to the smallest possible `awk' program and input data file that
reproduces the problem. Then send us the program and data file, some
-idea of what kind of Unix system you're using, and the exact results
-`gawk' gave you. Also say what you expected to occur; this will help
-us decide whether the problem was really in the documentation.
+idea of what kind of Unix system you're using, the compiler you used to
+compile `gawk', and the exact results `gawk' gave you. Also say what
+you expected to occur; this helps us decide whether the problem is
+really in the documentation.
Once you have a precise problem, send email to <bug-gawk@gnu.org>.
Please include the version number of `gawk' you are using. You can
get this information with the command `gawk --version'. Using this
-address will automatically send a carbon copy of your mail to Arnold
-Robbins. If necessary, he can be reached directly at <arnold@gnu.org>.
+address automatically sends a carbon copy of your mail to me. If
+necessary, I can be reached directly at <arnold@gnu.org>. The bug
+reporting address is preferred since the email list is archived at the
+GNU Project. _All email should be in English, since that is my native
+language._
- *Important!* Do _not_ try to report bugs in `gawk' by posting to the
+ *Caution:* Do _not_ try to report bugs in `gawk' by posting to the
Usenet/Internet newsgroup `comp.lang.awk'. While the `gawk' developers
do occasionally read this newsgroup, there is no guarantee that we will
-see your posting. The steps described above are the official,
+see your posting. The steps described above are the official
recognized ways for reporting bugs.
Non-bug suggestions are always welcome as well. If you have
questions about things that are unclear in the documentation or are
-just obscure features, ask Arnold Robbins; he will try to help you out,
-although he may not have the time to fix the problem. You can send him
-electronic mail at the Internet address above.
+just obscure features, ask me; I will try to help you out, although I
+may not have the time to fix the problem. You can send me electronic
+mail at the Internet address noted previously.
If you find bugs in one of the non-Unix ports of `gawk', please send
an electronic mail message to the person who maintains that port. They
-are listed below, and also in the `README' file in the `gawk'
-distribution. Information in the `README' file should be considered
-authoritative if it conflicts with this Info file.
-
- The people maintaining the non-Unix ports of `gawk' are:
-
-MS-DOS
- Scott Deifik, `scottd@amgen.com', and Darrel Hankerson,
- `hankedr@mail.auburn.edu'.
-
-OS/2
- Kai Uwe Rommel, `rommel@ars.de'.
+are named in the following list, as well as in the `README' file in the
+`gawk' distribution. Information in the `README' file should be
+considered authoritative if it conflicts with this Info file.
-VMS
- Pat Rankin, `rankin@eql.caltech.edu'.
+ The people maintaining the non-Unix ports of `gawk' are as follows:
-Atari ST
- Michal Jaegermann, `michal@gortel.phys.ualberta.ca'.
+Amiga Fred Fish, <fnf@ninemoons.com>.
+BeOS Martin Brown, <mc@whoever.com>.
+MS-DOS Scott Deifik, <scottd@amgen.com> and Darrel
+ Hankerson, <hankedr@mail.auburn.edu>.
+MS-Windows Juan Grigera, <juan@biophnet.unlp.edu.ar>.
+OS/2 Kai Uwe Rommel, <rommel@ars.de>.
+Tandem Stephen Davies, <scldad@sdc.com.au>.
+VMS Pat Rankin, <rankin@eql.caltech.edu>.
-Amiga
- Fred Fish, `fnf@ninemoons.com'.
-
- If your bug is also reproducible under Unix, please send copies of
-your report to the general GNU bug list, as well as to Arnold Robbins,
-at the addresses listed above.
+ If your bug is also reproducible under Unix, please send a copy of
+your report to the <bug-gawk@gnu.org> email list as well.

File: gawk.info, Node: Other Versions, Prev: Bugs, Up: Installation
@@ -16179,33 +17706,36 @@ Other Freely Available `awk' Implementations
============================================
It's kind of fun to put comments like this in your awk code.
- `// Do C++ comments work? answer: yes! of course'
+ `// Do C++ comments work? answer: yes! of course'
Michael Brennan
+ There are three other freely available `awk' implementations. This
+minor node briefly describes where to get them:
+Unix `awk'
+ Brian Kernighan has made his implementation of `awk' freely
+ available. You can retrieve this version via the World Wide Web
+ from his home page.(1) It is available in several archive formats:
- There are two other freely available `awk' implementations. This
-section briefly describes where to get them.
+ Shell archive
+ `http://cm.bell-labs.com/who/bwk/awk.shar'
-Unix `awk'
- Brian Kernighan has been able to make his implementation of `awk'
- freely available. You can get it via anonymous `ftp' to the host
- `netlib.bell-labs.com'. Change directory to `/netlib/research'.
- Use "binary" or "image" mode, and retrieve `awk.bundle.gz'.
+ Compressed `tar' file
+ `http://cm.bell-labs.com/who/bwk/awk.tar.gz'
- This is a shell archive that has been compressed with the GNU
- `gzip' utility. It can be uncompressed with the `gunzip' utility.
+ Zip file
+ `http://cm.bell-labs.com/who/bwk/awk.zip'
- You can also retrieve this version via the World Wide Web from his
- home page (http://cm.bell-labs.com/who/bwk).
+ This version requires an ISO C (1990 standard) compiler; the C
+ compiler from GCC (the GNU Compiler Collection) works quite nicely.
- This version requires an ANSI C compiler; GCC (the GNU C compiler)
- works quite nicely.
+ *Note Extensions in the Bell Laboratories `awk': BTL, for a list
+ of extensions in this `awk' that are not in POSIX `awk'.
`mawk'
Michael Brennan has written an independent implementation of `awk',
- called `mawk'. It is available under the GPL (*note GNU GENERAL
- PUBLIC LICENSE: Copying.), just as `gawk' is.
+ called `mawk'. It is available under the GPL (*note GNU General
+ Public License: Copying.), just as `gawk' is.
You can get it via anonymous `ftp' to the host `ftp.whidbey.net'.
Change directory to `/pub/brennan'. Use "binary" or "image" mode,
@@ -16216,22 +17746,73 @@ Unix `awk'
similar to `gawk''s (*note Compiling and Installing `gawk' on
Unix: Unix Installation.).
+ `mawk' has the following extensions that are not in POSIX `awk':
+
+ * The `fflush' built-in function for flushing buffered output
+ (*note Input/Output Functions: I/O Functions.).
+
+ * The `**' and `**=' operators (*note Arithmetic Operators:
+ Arithmetic Ops. and also see *Note Assignment Expressions:
+ Assignment Ops).
+
+ * The use of `func' as an abbreviation for `function' (*note
+ Function Definition Syntax: Definition Syntax.).
+
+ * The `\x' escape sequence (*note Escape Sequences::).
+
+ * The `/dev/stdout', and `/dev/stderr' special files (*note
+ Special File Names in `gawk': Special Files.). Use `"-"'
+ instead of `"/dev/stdin"' with `mawk'.
+
+ * The ability for `FS' and for the third argument to `split' to
+ be null strings (*note Making Each Character a Separate
+ Field: Single Character Fields.).
+
+ * The ability to delete all of an array at once with `delete
+ ARRAY' (*note The `delete' Statement: Delete.).
+
+ * The ability for `RS' to be a regexp (*note How Input Is Split
+ into Records: Records.).
+
+ * The `BINMODE' special variable for non-Unix operating systems
+ (*note Using `gawk' on PC Operating Systems: PC Using.).
+
+ The next version of `mawk' will support `nextfile'.
+
+`awka'
+ Written by Andrew Sumner, `awka' translates `awk' programs into C,
+ compiles them, and links them with a library of functions that
+ provides the core `awk' functionality. It also has a number of
+ extensions.
+
+ The `awk' translator is released under the GPL, and the library is
+ under the LGPL.
+
+ To get `awka', go to `http://awka.sourceforge.net'. You can reach
+ Andrew Sumner at <andrew_sumner@bigfoot.com>.
+
+ ---------- Footnotes ----------
+
+ (1) `http://cm.bell-labs.com/who/bwk'
+

-File: gawk.info, Node: Notes, Next: Glossary, Prev: Installation, Up: Top
+File: gawk.info, Node: Notes, Next: Basic Concepts, Prev: Installation, Up: Top
Implementation Notes
********************
This appendix contains information mainly of interest to
implementors and maintainers of `gawk'. Everything in it applies
-specifically to `gawk', and not to other implementations.
+specifically to `gawk' and not to other implementations.
* Menu:
-* Compatibility Mode:: How to disable certain `gawk' extensions.
+* Compatibility Mode:: How to disable certain `gawk'
+ extensions.
* Additions:: Making Additions To `gawk'.
+* Dynamic Extensions:: Adding new built-in functions to
+ `gawk'.
* Future Extensions:: New features that may be implemented one day.
-* Improvements:: Suggestions for improvements by volunteers.

File: gawk.info, Node: Compatibility Mode, Next: Additions, Prev: Notes, Up: Notes
@@ -16242,7 +17823,7 @@ Downward Compatibility and Debugging
*Note Extensions in `gawk' Not in POSIX `awk': POSIX/GNU, for a
summary of the GNU extensions to the `awk' language and program. All
of these features can be turned off by invoking `gawk' with the
-`--traditional' option, or with the `--posix' option.
+`--traditional' option or with the `--posix' option.
If `gawk' is compiled for debugging with `-DDEBUG', then there is
one more option available on the command line:
@@ -16252,28 +17833,30 @@ one more option available on the command line:
Print out the parse stack information as the program is being
parsed.
- This option is intended only for serious `gawk' developers, and not
+ This option is intended only for serious `gawk' developers and not
for the casual user. It probably has not even been compiled into your
version of `gawk', since it slows down execution.

-File: gawk.info, Node: Additions, Next: Future Extensions, Prev: Compatibility Mode, Up: Notes
+File: gawk.info, Node: Additions, Next: Dynamic Extensions, Prev: Compatibility Mode, Up: Notes
Making Additions to `gawk'
==========================
- If you should find that you wish to enhance `gawk' in a significant
+ If you find that you want to enhance `gawk' in a significant
fashion, you are perfectly free to do so. That is the point of having
-free software; the source code is available, and you are free to change
-it as you wish (*note GNU GENERAL PUBLIC LICENSE: Copying.).
+free software; the source code is available and you are free to change
+it as you want (*note GNU General Public License: Copying.).
- This section discusses the ways you might wish to change `gawk', and
-any considerations you should bear in mind.
+ This minor node discusses the ways you might want to change `gawk'
+as well as any considerations you should bear in mind.
* Menu:
-* Adding Code:: Adding code to the main body of `gawk'.
-* New Ports:: Porting `gawk' to a new operating system.
+* Adding Code:: Adding code to the main body of
+ `gawk'.
+* New Ports:: Porting `gawk' to a new operating
+ system.

File: gawk.info, Node: Adding Code, Next: New Ports, Prev: Additions, Up: Additions
@@ -16284,28 +17867,35 @@ Adding New Features
You are free to add any new features you like to `gawk'. However,
if you want your changes to be incorporated into the `gawk'
distribution, there are several steps that you need to take in order to
-make it possible for me to include your changes.
+make it possible for me to include your changes:
+
+ 1. Before building the new feature into `gawk' itself, consider
+ writing it as an extension module (*note Adding New Built-in
+ Functions to `gawk': Dynamic Extensions.). If that's not
+ possible, continue with the rest of the steps in this list.
- 1. Get the latest version. It is much easier for me to integrate
+ 2. Get the latest version. It is much easier for me to integrate
changes if they are relative to the most recent distributed
version of `gawk'. If your version of `gawk' is very old, I may
- not be able to integrate them at all. *Note Getting the `gawk'
+ not be able to integrate them at all. (*Note Getting the `gawk'
Distribution: Getting, for information on getting the latest
- version of `gawk'.
+ version of `gawk'.)
- 2. See *note (Version)Top:: standards, GNU Coding Standards. This
+ 3. See *note (Version)Top:: standards, GNU Coding Standards. This
document describes how GNU software should be written. If you
haven't read it, please do so, preferably _before_ starting to
- modify `gawk'. (The `GNU Coding Standards' are available as part
- of the Autoconf distribution, from the FSF.)
+ modify `gawk'. (The `GNU Coding Standards' are available from the
+ GNU Project's `ftp' site, at
+ `ftp://gnudist.gnu.org/gnu/GNUInfo/standards.text'. Texinfo,
+ Info, and DVI versions are also available.)
- 3. Use the `gawk' coding style. The C code for `gawk' follows the
+ 4. Use the `gawk' coding style. The C code for `gawk' follows the
instructions in the `GNU Coding Standards', with minor exceptions.
The code is formatted using the traditional "K&R" style,
- particularly as regards the placement of braces and the use of
- tabs. In brief, the coding rules for `gawk' are:
+ particularly as regards to the placement of braces and the use of
+ tabs. In brief, the coding rules for `gawk' are as follows:
- * Use old style (non-prototype) function headers when defining
+ * Use ANSI/ISO style (prototype) function headers when defining
functions.
* Put the name of the function at the beginning of its own line.
@@ -16314,34 +17904,35 @@ make it possible for me to include your changes.
the line above the line with the name and arguments of the
function.
- * The declarations for the function arguments should not be
- indented.
-
* Put spaces around parentheses used in control structures
- (`if', `while', `for', `do', `switch' and `return').
+ (`if', `while', `for', `do', `switch', and `return').
* Do not put spaces in front of parentheses used in function
calls.
- * Put spaces around all C operators, and after commas in
+ * Put spaces around all C operators and after commas in
function calls.
- * Do not use the comma operator to produce multiple
- side-effects, except in `for' loop initialization and
- increment parts, and in macro bodies.
+ * Do not use the comma operator to produce multiple side
+ effects, except in `for' loop initialization and increment
+ parts, and in macro bodies.
* Use real tabs for indenting, not spaces.
* Use the "K&R" brace layout style.
* Use comparisons against `NULL' and `'\0'' in the conditions of
- `if', `while' and `for' statements, and in the `case's of
- `switch' statements, instead of just the plain pointer or
+ `if', `while', and `for' statements, as well as in the `case's
+ of `switch' statements, instead of just the plain pointer or
character value.
- * Use the `TRUE', `FALSE', and `NULL' symbolic constants, and
- the character constant `'\0'' where appropriate, instead of
- `1' and `0'.
+ * Use the `TRUE', `FALSE' and `NULL' symbolic constants and the
+ character constant `'\0'' where appropriate, instead of `1'
+ and `0'.
+
+ * Use the `ISALPHA', `ISDIGIT', etc. macros, instead of the
+ traditional lowercase versions; these macros are better
+ behaved for non-ASCII character sets.
* Provide one-line descriptive comments for each function.
@@ -16349,54 +17940,54 @@ make it possible for me to include your changes.
it.
* Do not use the `alloca' function for allocating memory off
- the stack. Its use causes more portability trouble than the
- minor benefit of not having to free the storage. Instead, use
- `malloc' and `free'.
+ the stack. Its use causes more portability trouble than is
+ worth the minor benefit of not having to free the storage.
+ Instead, use `malloc' and `free'.
- If I have to reformat your code to follow the coding style used in
- `gawk', I may not bother.
+ *Note:* If I have to reformat your code to follow the coding style
+ used in `gawk', I may not bother to integrate your changes at all.
- 4. Be prepared to sign the appropriate paperwork. In order for the
+ 5. Be prepared to sign the appropriate paperwork. In order for the
FSF to distribute your changes, you must either place those
- changes in the public domain, and submit a signed statement to that
+ changes in the public domain and submit a signed statement to that
effect, or assign the copyright in your changes to the FSF. Both
- of these actions are easy to do, and _many_ people have done so
+ of these actions are easy to do and _many_ people have done so
already. If you have questions, please contact me (*note Reporting
- Problems and Bugs: Bugs.), or `gnu@gnu.org'.
+ Problems and Bugs: Bugs.), or <gnu@gnu.org>.
- 5. Update the documentation. Along with your new code, please supply
- new sections and or chapters for this Info file. If at all
+ 6. Update the documentation. Along with your new code, please supply
+ new sections and/or chapters for this Info file. If at all
possible, please use real Texinfo, instead of just supplying
unformatted ASCII text (although even that is better than no
- documentation at all). Conventions to be followed in `Effective
- AWK Programming' are provided after the `@bye' at the end of the
- Texinfo source file. If possible, please update the man page as
- well.
+ documentation at all). Conventions to be followed in `GAWK:
+ Effective AWK Programming' are provided after the `@bye' at the
+ end of the Texinfo source file. If possible, please update the
+ `man' page as well.
You will also have to sign paperwork for your documentation
changes.
- 6. Submit changes as context diffs or unified diffs. Use `diff -c -r
+ 7. Submit changes as context diffs or unified diffs. Use `diff -c -r
-N' or `diff -u -r -N' to compare the original `gawk' source tree
- with your version. (I find context diffs to be more readable, but
+ with your version. (I find context diffs to be more readable but
unified diffs are more compact.) I recommend using the GNU
version of `diff'. Send the output produced by either run of
- `diff' to me when you submit your changes. *Note Reporting
- Problems and Bugs: Bugs, for the electronic mail information.
+ `diff' to me when you submit your changes. (*Note Reporting
+ Problems and Bugs: Bugs, for the electronic mail information.)
Using this format makes it easy for me to apply your changes to the
master version of the `gawk' source code (using `patch'). If I
have to apply the changes manually, using a text editor, I may not
do so, particularly if there are lots of changes.
- 7. Include an entry for the `ChangeLog' file with your submission.
- This further helps minimize the amount of work I have to do,
+ 8. Include an entry for the `ChangeLog' file with your submission.
+ This helps further minimize the amount of work I have to do,
making it easier for me to accept patches.
Although this sounds like a lot of work, please remember that while
-you may write the new code, I have to maintain it and support it, and
-if it isn't possible for me to do that with a minimum of extra work,
-then I probably will not.
+you may write the new code, I have to maintain it and support it. If it
+isn't possible for me to do that with a minimum of extra work, then I
+probably will not.

File: gawk.info, Node: New Ports, Prev: Adding Code, Up: Additions
@@ -16404,37 +17995,37 @@ File: gawk.info, Node: New Ports, Prev: Adding Code, Up: Additions
Porting `gawk' to a New Operating System
----------------------------------------
- If you wish to port `gawk' to a new operating system, there are
-several steps to follow.
+ If you want to port `gawk' to a new operating system, there are
+several steps to follow:
1. Follow the guidelines in *Note Adding New Features: Adding Code,
concerning coding style, submission of diffs, and so on.
2. When doing a port, bear in mind that your code must co-exist
- peacefully with the rest of `gawk', and the other ports. Avoid
+ peacefully with the rest of `gawk' and the other ports. Avoid
gratuitous changes to the system-independent parts of the code. If
at all possible, avoid sprinkling `#ifdef's just for your port
throughout the code.
If the changes needed for a particular system affect too much of
the code, I probably will not accept them. In such a case, you
- will, of course, be able to distribute your changes on your own,
- as long as you comply with the GPL (*note GNU GENERAL PUBLIC
- LICENSE: Copying.).
+ can, of course, distribute your changes on your own, as long as
+ you comply with the GPL (*note GNU General Public License:
+ Copying.).
3. A number of the files that come with `gawk' are maintained by other
people at the Free Software Foundation. Thus, you should not
- change them unless it is for a very good reason. I.e. changes are
- not out of the question, but changes to these files will be
- scrutinized extra carefully. The files are `alloca.c',
- `getopt.h', `getopt.c', `getopt1.c', `regex.h', `regex.c', `dfa.h',
- `dfa.c', `install-sh', and `mkinstalldirs'.
+ change them unless it is for a very good reason; i.e., changes are
+ not out of the question, but changes to these files are
+ scrutinized extra carefully. The files are `getopt.h', `getopt.c',
+ `getopt1.c', `regex.h', `regex.c', `dfa.h', `dfa.c', `install-sh',
+ and `mkinstalldirs'.
4. Be willing to continue to maintain the port. Non-Unix operating
systems are supported by volunteers who maintain the code needed
- to compile and run `gawk' on their systems. If no-one volunteers
- to maintain a port, that port becomes unsupported, and it may be
- necessary to remove it from the distribution.
+ to compile and run `gawk' on their systems. If noone volunteers to
+ maintain a port, it becomes unsupported and it may be necessary to
+ remove it from the distribution.
5. Supply an appropriate `gawkmisc.???' file. Each port has its own
`gawkmisc.???' that implements certain operating system specific
@@ -16444,120 +18035,690 @@ several steps to follow.
subdirectory. Be sure to update it as well.
Each port's `gawkmisc.???' file has a suffix reminiscent of the
- machine or operating system for the port. For example,
+ machine or operating system for the port--for example,
`pc/gawkmisc.pc' and `vms/gawkmisc.vms'. The use of separate
suffixes, instead of plain `gawkmisc.c', makes it possible to move
files from a port's subdirectory into the main subdirectory,
without accidentally destroying the real `gawkmisc.c' file.
- (Currently, this is only an issue for the MS-DOS and OS/2 ports.)
-
- 6. Supply a `Makefile' and any other C source and header files that
- are necessary for your operating system. All your code should be
- in a separate subdirectory, with a name that is the same as, or
- reminiscent of, either your operating system or the computer
- system. If possible, try to structure things so that it is not
- necessary to move files out of the subdirectory into the main
- source directory. If that is not possible, then be sure to avoid
- using names for your files that duplicate the names of files in
- the main source directory.
+ (Currently, this is only an issue for the PC operating system
+ ports.)
+
+ 6. Supply a `Makefile' as well as any other C source and header files
+ that are necessary for your operating system. All your code
+ should be in a separate subdirectory, with a name that is the same
+ as, or reminiscent of, either your operating system or the
+ computer system. If possible, try to structure things so that it
+ is not necessary to move files out of the subdirectory into the
+ main source directory. If that is not possible, then be sure to
+ avoid using names for your files that duplicate the names of files
+ in the main source directory.
7. Update the documentation. Please write a section (or sections)
for this Info file describing the installation and compilation
- steps needed to install and/or compile `gawk' for your system.
+ steps needed to compile and/or install `gawk' for your system.
8. Be prepared to sign the appropriate paperwork. In order for the
FSF to distribute your code, you must either place your code in
- the public domain, and submit a signed statement to that effect,
- or assign the copyright in your code to the FSF. Both of these
- actions are easy to do, and _many_ people have done so already. If
- you have questions, please contact me, or `gnu@gnu.org'.
+ the public domain and submit a signed statement to that effect, or
+ assign the copyright in your code to the FSF. Both of these
+ actions are easy to do and _many_ people have done so already. If
+ you have questions, please contact me, or <gnu@gnu.org>.
+
+ Following these steps makes it much easier to integrate your changes
+into `gawk' and have them co-exist happily with other operating
+systems' code that is already there.
+
+ In the code that you supply and maintain, feel free to use a coding
+style and brace layout that suits your taste.
+
+
+File: gawk.info, Node: Dynamic Extensions, Next: Future Extensions, Prev: Additions, Up: Notes
+
+Adding New Built-in Functions to `gawk'
+=======================================
+
+ Danger Will Robinson! Danger!!
+ Warning! Warning!
+ The Robot
+
+ Beginning with `gawk' 3.1, it is possible to add new built-in
+functions to `gawk' using dynamically loaded libraries. This facility
+is available on systems (such as GNU/Linux) that support the `dlopen'
+and `dlsym' functions. This minor node describes how to write and use
+dynamically loaded extentions for `gawk'. Experience with programming
+in C or C++ is necessary when reading this minor node.
+
+ *Caution:* The facilities described in this minor node are very much
+subject to change in the next `gawk' release. Be aware that you may
+have to re-do everything, perhaps from scratch, upon the next release.
+
+* Menu:
+
+* Internals:: A brief look at some `gawk' internals.
+* Sample Library:: A example of new functions.
+
+
+File: gawk.info, Node: Internals, Next: Sample Library, Prev: Dynamic Extensions, Up: Dynamic Extensions
+
+A Minimal Introduction to `gawk' Internals
+------------------------------------------
+
+ The truth is that `gawk' was not designed for simple extensibility.
+The facilities for adding functions using shared libraries work, but
+are something of a "bag on the side." Thus, this tour is brief and
+simplistic; would-be `gawk' hackers are encouraged to spend some time
+reading the source code before trying to write extensions based on the
+material presented here. Of particular note are the files `awk.h',
+`builtin.c', and `eval.c'. Reading `awk.y' in order to see how the
+parse tree is built would also be of use.
+
+ With the disclaimers out of the way, the following types, structure
+members, functions, and macros are declared in `awk.h' and are of use
+when writing extensions. The next minor node shows how they are used:
+
+`AWKNUM'
+ An `AWKNUM' is the internal type of `awk' floating-point numbers.
+ Typically, it is a C `double'.
+
+`NODE'
+ Just about everything is done using objects of type `NODE'. These
+ contain both strings and numbers, as well as variables and arrays.
+
+`AWKNUM force_number(NODE *n)'
+ This macro forces a value to be numeric. It returns the actual
+ numeric value contained in the node. It may end up calling an
+ internal `gawk' function.
+
+`void force_string(NODE *n)'
+ This macro guarantees that a `NODE''s string value is current. It
+ may end up calling an internal `gawk' function. It also
+ guarantees that the string is zero-terminated.
+
+`n->param_cnt'
+ The number of parameters actually passed in a function call at
+ runtime.
+
+`n->stptr'
+`n->stlen'
+ The data and length of a `NODE''s string value, respectively. The
+ string is _not_ guaranteed to be zero-terminated. If you need to
+ pass the string value to a C library function, save the value in
+ `n->stptr[n->stlen]', assign `'\0'' to it, call the routine, and
+ then restore the value.
+
+`n->type'
+ The type of the `NODE'. This is a C `enum'. Values should be
+ either `Node_var' or `Node_var_array' for function parameters.
+
+`n->vname'
+ The "variable name" of a node. This is not of much use inside
+ externally written extensions.
+
+`void assoc_clear(NODE *n)'
+ Clears the associative array pointed to by `n'. Make sure that
+ `n->type == Node_var_array' first.
+
+`NODE **assoc_lookup(NODE *symbol, NODE *subs, int reference)'
+ Finds, and installs if necessary, array elements. `symbol' is the
+ array, `subs' is the subscript. This is usually a value created
+ with `tmp_string' (see below). `reference' should be `TRUE' if it
+ is an error to use the value before it is created. Typically,
+ `FALSE' is the correct value to use from extension functions.
+
+`NODE *make_string(char *s, size_t len)'
+ Take a C string and turn it into a pointer to a `NODE' that can be
+ stored appropriately. This is permanent storage; understanding of
+ `gawk' memory management is helpful.
+
+`NODE *make_number(AWKNUM val)'
+ Take an `AWKNUM' and turn it into a pointer to a `NODE' that can
+ be stored appropriately. This is permanent storage; understanding
+ of `gawk' memory management is helpful.
+
+`NODE *tmp_string(char *s, size_t len);'
+ Take a C string and turn it into a pointer to a `NODE' that can be
+ stored appropriately. This is temporary storage; understanding of
+ `gawk' memory management is helpful.
+
+`NODE *tmp_number(AWKNUM val)'
+ Take an `AWKNUM' and turn it into a pointer to a `NODE' that can
+ be stored appropriately. This is temporary storage; understanding
+ of `gawk' memory management is helpful.
+
+`NODE *dupnode(NODE *n)'
+ Duplicate a node. In most cases, this increments an internal
+ reference count instead of actually duplicating the entire `NODE';
+ understanding of `gawk' memory management is helpful.
+
+`void free_temp(NODE *n)'
+ This macro releases the memory associated with a `NODE' allocated
+ with `tmp_string' or `tmp_number'. Understanding of `gawk' memory
+ management is helpful.
+
+`void make_builtin(char *name, NODE *(*func)(NODE *), int count)'
+ Register a C function pointed to by `func' as new built-in
+ function `name'. `name' is a regular C string. `count' is the
+ maximum number of arguments that the function takes. The function
+ should be written in the following manner:
+
+ /* do_xxx --- do xxx function for gawk */
+
+ NODE *
+ do_xxx(NODE *tree)
+ {
+ ...
+ }
- Following these steps will make it much easier to integrate your
-changes into `gawk', and have them co-exist happily with the code for
-other operating systems that is already there.
+`NODE *get_argument(NODE *tree, int i)'
+ This function is called from within a C extension function to get
+ the `i''th argument from the function call. The first argument is
+ argument zero.
+
+`void set_value(NODE *tree)'
+ This function is called from within a C extension function to set
+ the return value from the extension function. This value is what
+ the `awk' program sees as the return value from the new `awk'
+ function.
+
+`void update_ERRNO(void)'
+ This function is called from within a C extension function to set
+ the value of `gawk''s `ERRNO' variable, based on the current value
+ of the C `errno' variable. It is provided as a convenience.
+
+ An argument that is supposed to be an array needs to be handled with
+some extra code, in case the array being passed in is actually from a
+function parameter. The following "boiler plate" code shows how to do
+this:
+
+ NODE *the_arg;
+
+ the_arg = get_argument(tree, 2); /* assume need 3rd arg, 0-based */
+
+ /* if a parameter, get it off the stack */
+ if (the_arg->type == Node_param_list)
+ the_arg = stack_ptr[the_arg->param_cnt];
+
+ /* parameter referenced an array, get it */
+ if (the_arg->type == Node_array_ref)
+ the_arg = the_arg->orig_array;
+
+ /* check type */
+ if (the_arg->type != Node_var && the_arg->type != Node_var_array)
+ fatal("newfunc: third argument is not an array");
+
+ /* force it to be an array, if necessary, clear it */
+ the_arg->type = Node_var_array;
+ assoc_clear(the_arg);
- In the code that you supply, and that you maintain, feel free to use
-a coding style and brace layout that suits your taste.
+ Again, you should spend time studying the `gawk' internals; don't
+just blindly copy this code.

-File: gawk.info, Node: Future Extensions, Next: Improvements, Prev: Additions, Up: Notes
+File: gawk.info, Node: Sample Library, Prev: Internals, Up: Dynamic Extensions
+
+Directory and File Operation Built-ins
+--------------------------------------
+
+ Two useful functions that are not in `awk' are `chdir' (so that an
+`awk' program can change its directory) and `stat' (so that an `awk'
+program can gather information about a file). This minor node
+implements these functions for `gawk' in an external extension library.
+
+* Menu:
+
+* Internal File Description:: What the new functions will do.
+* Internal File Ops:: The code for internal file operations.
+* Using Internal File Ops:: How to use an external extension.
+
+
+File: gawk.info, Node: Internal File Description, Next: Internal File Ops, Prev: Sample Library, Up: Sample Library
+
+Using `chdir' and `stat'
+........................
+
+ This minor node shows how to use the new functions at the `awk'
+level once they've been integrated into the running `gawk' interpreter.
+Using `chdir' is very straightforward. It takes one argument, the new
+directory to change to:
+
+ ...
+ newdir = "/home/arnold/funstuff"
+ ret = chdir(newdir)
+ if (ret < 0) {
+ printf("could not change to %s: %s\n",
+ newdir, ERRNO) > "/dev/stderr"
+ exit 1
+ }
+ ...
+
+ The return value is negative if the `chdir' failed, and `ERRNO'
+(*note Built-in Variables::) is set to a string indicating the error.
+
+ Using `stat' is a bit more complicated. The C `stat' function fills
+in a structure that has a fair amount of information. The right way to
+model this in `awk' is to fill in an associative array with the
+appropriate information:
+
+ file = "/home/arnold/.profile"
+ fdata[1] = "x" # force `fdata' to be an array
+ ret = stat(file, fdata)
+ if (ret < 0) {
+ printf("could not stat %s: %s\n",
+ file, ERRNO) > "/dev/stderr"
+ exit 1
+ }
+ printf("size of %s is %d bytes\n", file, fdata["size"])
+
+ The `stat' function always clears the data array, even if the `stat'
+fails. It fills in the following elements:
+
+`"name"'
+ The name of the file that was `stat''ed.
+
+`"dev"'
+`"ino"'
+ The file's device and inode numbers, respectively.
+
+`"mode"'
+ The file's mode, as a numeric value. This includes both the file's
+ type and its permissions.
+
+`"nlink"'
+ The number of hard links (directory entries) the file has.
+
+`"uid"'
+`"gid"'
+ The numeric user and group ID numbers of the file's owner.
+
+`"size"'
+ The size in bytes of the file.
+
+`"blocks"'
+ The number of disk blocks the file actually occupies. This may not
+ be a function of the file's size if the file has holes.
+
+`"atime"'
+`"mtime"'
+`"ctime"'
+ The file's last access, modification, and inode update times,
+ respectively. These are numeric timestamps, suitable for
+ formatting with `strftime' (*note Built-in Functions: Built-in.).
+
+`"pmode"'
+ The file's "printable mode." This is a string representation of
+ the file's type and permissions, such as what is produced by `ls
+ -l'--for example, `"drwxr-xr-x"'.
+
+`"type"'
+ A printable string representation of the file's type. The value
+ is one of the following:
+
+ `"blockdev"'
+ `"chardev"'
+ The file is a block or character device ("special file").
+
+ `"directory"'
+ The file is a directory.
+
+ `"fifo"'
+ The file is a named-pipe (also known as a FIFO).
+
+ `"file"'
+ The file is just a regular file.
+
+ `"socket"'
+ The file is an `AF_UNIX' ("Unix domain") socket in the
+ filesystem.
+
+ `"symlink"'
+ The file is a symbolic link.
+
+ Several additional elements may be present depending upon the
+operating system and the type of the file. You can test for them in
+your `awk' program by using the `in' operator (*note Referring to an
+Array Element: Reference to Elements.):
+
+`"blksize"'
+ The preferred block size for I/O to the file. This field is not
+ present on all POSIX-like systems in the C `stat' structure.
+
+`"linkval"'
+ If the file is a symbolic link, this element is the name of the
+ file the link points to (i.e., the value of the link).
+
+`"rdev"'
+`"major"'
+`"minor"'
+ If the file is a block or character device file, then these values
+ represent the numeric device number and the major and minor
+ components of that number, respectively.
+
+
+File: gawk.info, Node: Internal File Ops, Next: Using Internal File Ops, Prev: Internal File Description, Up: Sample Library
+
+C Code for `chdir' and `stat'
+.............................
+
+ Here is the C code for these extensions. They were written for
+GNU/Linux. The code needs some more work for complete portability to
+other POSIX-compliant systems:(1)
+
+ #include "awk.h"
+
+ #include <sys/sysmacros.h>
+
+ /* do_chdir --- provide dynamically loaded
+ chdir() builtin for gawk */
+
+ static NODE *
+ do_chdir(tree)
+ NODE *tree;
+ {
+ NODE *newdir;
+ int ret = -1;
+
+ newdir = get_argument(tree, 0);
+
+ The file includes the `"awk.h"' header file for definitions for the
+`gawk' internals. It includes `<sys/sysmacros.h>' for access to the
+`major' and `minor' macros.
+
+ By convention, for an `awk' function `foo', the function that
+implements it is called `do_foo'. The function should take a `NODE *'
+argument, usually called `tree', that represents the argument list to
+the function. The `newdir' variable represents the new directory to
+change to, retrieved with `get_argument'. Note that the first argument
+is numbered zero.
+
+ This code actually accomplishes the `chdir'. It first forces the
+argument to be a string and passes the string value to the `chdir'
+system call. If the `chdir' fails, `ERRNO' is updated. The result of
+`force_string' has to be freed with `free_temp':
+
+ if (newdir != NULL) {
+ (void) force_string(newdir);
+ ret = chdir(newdir->stptr);
+ if (ret < 0)
+ update_ERRNO();
+
+ free_temp(newdir);
+ }
+
+ Finally, the function returns the return value to the `awk' level,
+using `set_value'. Then it must return a value from the call to the new
+built-in (this value ignored by the interpreter):
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+ }
+
+ The `stat' built-in is more involved. First comes a function that
+turns a numeric mode into a printable representation (e.g., 644 becomes
+`-rw-r--r--'). This is omitted here for brevity:
+
+ /* format_mode --- turn a stat mode field
+ into something readable */
+
+ static char *
+ format_mode(fmode)
+ unsigned long fmode;
+ {
+ ...
+ }
+
+ Next comes the actual `do_stat' function itself. First come the
+variable declarations and argument checking:
+
+ /* do_stat --- provide a stat() function for gawk */
+
+ static NODE *
+ do_stat(tree)
+ NODE *tree;
+ {
+ NODE *file, *array;
+ struct stat sbuf;
+ int ret;
+ char *msg;
+ NODE **aptr;
+ char *pmode; /* printable mode */
+ char *type = "unknown";
+
+ /* check arg count */
+ if (tree->param_cnt != 2)
+ fatal(
+ "stat: called with %d arguments, should be 2",
+ tree->param_cnt);
+
+ Then comes the actual work. First, we get the arguments. Then, we
+always clear the array. To get the file information, we use `lstat',
+in case the file is a symbolic link. If there's an error, we set
+`ERRNO' and return:
+
+ /*
+ * directory is first arg,
+ * array to hold results is second
+ */
+ file = get_argument(tree, 0);
+ array = get_argument(tree, 1);
+
+ /* empty out the array */
+ assoc_clear(array);
+
+ /* lstat the file, if error, set ERRNO and return */
+ (void) force_string(file);
+ ret = lstat(file->stptr, & sbuf);
+ if (ret < 0) {
+ update_ERRNO();
+
+ set_value(tmp_number((AWKNUM) ret));
+
+ free_temp(file);
+ return tmp_number((AWKNUM) 0);
+ }
+
+ Now comes the tedious part: filling in the array. Only a few of the
+calls are shown here, since they all follow the same pattern:
+
+ /* fill in the array */
+ aptr = assoc_lookup(array, tmp_string("name", 4), FALSE);
+ *aptr = dupnode(file);
+
+ aptr = assoc_lookup(array, tmp_string("mode", 4), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_mode);
+
+ aptr = assoc_lookup(array, tmp_string("pmode", 5), FALSE);
+ pmode = format_mode(sbuf.st_mode);
+ *aptr = make_string(pmode, strlen(pmode));
+
+ When done, we free the temporary value containing the file name, set
+the return value, and return:
+
+ free_temp(file);
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+ }
+
+ Finally, it's necessary to provide the "glue" that loads the new
+function(s) into `gawk'. By convention, each library has a routine
+named `dlload' that does the job:
+
+ /* dlload --- load new builtins in this library */
+
+ NODE *
+ dlload(tree, dl)
+ NODE *tree;
+ void *dl;
+ {
+ make_builtin("chdir", do_chdir, 1);
+ make_builtin("stat", do_stat, 2);
+ return tmp_number((AWKNUM) 0);
+ }
+
+ And that's it! As an exercise, consider adding functions to
+implement system calls such as `chown', `chmod', and `umask'.
+
+ ---------- Footnotes ----------
+
+ (1) This version is edited slightly for presentation. The complete
+version can be found in `extension/filefuncs.c' in the `gawk'
+distribution.
+
+
+File: gawk.info, Node: Using Internal File Ops, Prev: Internal File Ops, Up: Sample Library
+
+Integrating the Extensions
+..........................
+
+ Now that the code is written, it must be possible to add it at
+runtime to the running `gawk' interpreter. First, the code must be
+compiled. Assuming that the functions are in a file named
+`filefuncs.c', and IDIR is the location of the `gawk' include files,
+the following steps create a GNU/Linux shared library:
+
+ $ gcc -shared -DHAVE_CONFIG_H -c -O -g -IIDIR filefuncs.c
+ $ ld -o filefuncs.so -shared filefuncs.o
+
+ Once the library exists, it is loaded by calling the `extension'
+built-in function. This function takes two arguments: the name of the
+library to load and the name of a function to call when the library is
+first loaded. This function adds the new functions to `gawk'. It
+returns the value returned by the initialization function within the
+shared library:
+
+ # file testff.awk
+ BEGIN {
+ extension("./filefuncs.so", "dlload")
+
+ chdir(".") # no-op
+
+ data[1] = 1 # force `data' to be an array
+ print "Info for testff.awk"
+ ret = stat("testff.awk", data)
+ print "ret =", ret
+ for (i in data)
+ printf "data[\"%s\"] = %s\n", i, data[i]
+ print "testff.awk modified:",
+ strftime("%m %d %y %H:%M:%S", data["mtime"])
+ }
+
+ Here are the results of running the program:
+
+ $ gawk -f testff.awk
+ -| Info for testff.awk
+ -| ret = 0
+ -| data["blksize"] = 4096
+ -| data["mtime"] = 932361936
+ -| data["mode"] = 33188
+ -| data["type"] = file
+ -| data["dev"] = 2065
+ -| data["gid"] = 10
+ -| data["ino"] = 878597
+ -| data["ctime"] = 971431797
+ -| data["blocks"] = 2
+ -| data["nlink"] = 1
+ -| data["name"] = testff.awk
+ -| data["atime"] = 971608519
+ -| data["pmode"] = -rw-r--r--
+ -| data["size"] = 607
+ -| data["uid"] = 2076
+ -| testff.awk modified: 07 19 99 08:25:36
+
+
+File: gawk.info, Node: Future Extensions, Prev: Dynamic Extensions, Up: Notes
Probable Future Extensions
==========================
AWK is a language similar to PERL, only considerably more elegant.
Arnold Robbins
-
+
Hey!
Larry Wall
+ This minor node briefly lists extensions and possible improvements
+that indicate the directions we are currently considering for `gawk'.
+The file `FUTURES' in the `gawk' distribution lists these extensions as
+well.
+ Following is a list of probable future changes visible at the `awk'
+language level:
- This section briefly lists extensions and possible improvements that
-indicate the directions we are currently considering for `gawk'. The
-file `FUTURES' in the `gawk' distributions lists these extensions as
-well.
+Loadable Module Interface
+ It is not clear that the `awk'-level interface to the modules
+ facility is as good as it should be. The interface needs to be
+ redesigned, particularly taking namespace issues into account, as
+ well as possibly including issues such as library search path order
+ and versioning.
- This is a list of probable future changes that will be usable by the
-`awk' language programmer.
+`RECLEN' variable for fixed length records
+ Along with `FIELDWIDTHS', this would speed up the processing of
+ fixed-length records. `PROCINFO["RS"]' would be `"RS"' or
+ `"RECLEN"', depending upon which kind of record processing is in
+ effect.
-Localization
- The GNU project is starting to support multiple languages. It
- will at least be possible to make `gawk' print its warnings and
- error messages in languages other than English. It may be
- possible for `awk' programs to also use the multiple language
- facilities, separate from `gawk' itself.
+Additional `printf' specifiers
+ The 1999 ISO C standard added a number of additional `printf'
+ format specifiers. These should be evaluated for possible
+ inclusion in `gawk'.
Databases
It may be possible to map a GDBM/NDBM/SDBM file into an `awk'
array.
-A `PROCINFO' Array
- The special files that provide process-related information (*note
- Special File Names in `gawk': Special Files.) will be superseded
- by a `PROCINFO' array that would provide the same information, in
- an easier to access fashion.
+Large Character Sets
+ It would be nice if `gawk' could handle UTF-8 and other character
+ sets that are larger than eight bits.
More `lint' warnings
There are more things that could be checked for portability.
-Control of subprocess environment
- Changes made in `gawk' to the array `ENVIRON' may be propagated to
- subprocesses run by `gawk'.
+ Following is a list of probable improvements that will make `gawk''s
+source code easier to work with:
+
+Loadable Module Mechanics
+ The current extension mechanism works (*note Adding New Built-in
+ Functions to `gawk': Dynamic Extensions.), but is rather
+ primitive. It requires a fair amount of manual work to create and
+ integrate a loadable module. Nor is the current mechanism as
+ portable as might be desired. The GNU `libtool' package provides
+ a number of features that would make using loadable modules much
+ easier. `gawk' should be changed to use `libtool'.
+
+Loadable Module Internals
+ The API to its internals that `gawk' "exports" should be revised.
+ Too many things are needlessly exposed. A new API should be
+ designed and implemented to make module writing easier.
+
+Better Array Subscript Management
+ `gawk''s management of array subscript storage could use revamping,
+ so that using the same value to index multiple arrays only stores
+ one copy of the index value.
- This is a list of probable improvements that will make `gawk'
-perform better.
+Integrating the DBUG Library
+ Integrating Fred Fish's DBUG library would be helpful during
+ development, but it's a lot of work to do.
+
+ Following is a list of probable improvements that will make `gawk'
+perform better:
An Improved Version of `dfa'
The `dfa' pattern matcher from GNU `grep' has some problems.
Either a new version or a fixed one will deal with some important
regexp matching issues.
-Use of GNU `malloc'
- The GNU version of `malloc' could potentially speed up `gawk',
- since it relies heavily on the use of dynamic memory allocation.
-
-
-File: gawk.info, Node: Improvements, Prev: Future Extensions, Up: Notes
-
-Suggestions for Improvements
-============================
-
- Here are some projects that would-be `gawk' hackers might like to
-take on. They vary in size from a few days to a few weeks of
-programming, depending on which one you choose and how fast a
-programmer you are. Please send any improvements you write to the
-maintainers at the GNU project. *Note Adding New Features: Adding Code,
-for guidelines to follow when adding new features to `gawk'. *Note
-Reporting Problems and Bugs: Bugs, for information on contacting the
-maintainers.
-
- 1. Compilation of `awk' programs: `gawk' uses a Bison (YACC-like)
- parser to convert the script given it into a syntax tree; the
- syntax tree is then executed by a simple recursive evaluator.
- This method incurs a lot of overhead, since the recursive
- evaluator performs many procedure calls to do even the simplest
- things.
+Compilation of `awk' programs
+ `gawk' uses a Bison (YACC-like) parser to convert the script given
+ it into a syntax tree; the syntax tree is then executed by a
+ simple recursive evaluator. This method incurs a lot of overhead,
+ since the recursive evaluator performs many procedure calls to do
+ even the simplest things.
It should be possible for `gawk' to convert the script's parse tree
into a C program which the user would then compile, using the
@@ -16565,21 +18726,330 @@ maintainers.
needed functions (regexps, fields, associative arrays, type
coercion, and so on).
- An easier possibility might be for an intermediate phase of `awk'
+ An easier possibility might be for an intermediate phase of `gawk'
to convert the parse tree into a linear byte code form like the
one used in GNU Emacs Lisp. The recursive evaluator would then be
replaced by a straight line byte code interpreter that would be
intermediate in speed between running a compiled program and doing
what `gawk' does now.
- 2. The programs in the test suite could use documenting in this
- Info file.
+ Finally, the programs in the test suite could use documenting in
+this Info file.
- 3. See the `FUTURES' file for more ideas. Contact us if you would
- seriously like to tackle any of the items listed there.
+ *Note Making Additions to `gawk': Additions, if you are interested
+in tackling any of these projects.

-File: gawk.info, Node: Glossary, Next: Copying, Prev: Notes, Up: Top
+File: gawk.info, Node: Basic Concepts, Next: Glossary, Prev: Notes, Up: Top
+
+Basic Programming Concepts
+**************************
+
+ This major node attempts to define some of the basic concepts and
+terms that are used throughout the rest of this Info file. As this
+Info file is specifically about `awk', and not about computer
+programming in general, the coverage here is by necessity fairly
+cursory and simplistic. (If you need more background, there are many
+other introductory texts that you should refer to instead.)
+
+* Menu:
+
+* Basic High Level:: The high level view.
+* Basic Data Typing:: A very quick intro to data types.
+* Floating Point Issues:: Stuff to know about floating-point numbers.
+
+
+File: gawk.info, Node: Basic High Level, Next: Basic Data Typing, Prev: Basic Concepts, Up: Basic Concepts
+
+What a Program Does
+===================
+
+ At the most basic level, the job of a program is to process some
+input data and produce results.
+
+ _______
+ +------+ / \ +---------+
+ | Data | -----> < Program > -----> | Results |
+ +------+ \_______/ +---------+
+
+ The "program" in the figure can be either a compiled program(1)
+(such as `ls'), or it may be "interpreted". In the latter case, a
+machine-executable program such as `awk' reads your program, and then
+uses the instructions in your program to process the data.
+
+ When you write a program, it usually consists of the following, very
+basic set of steps:
+
+ ______
+ +----------------+ / More \ No +----------+
+ | Initialization | -------> < Data > -------> | Clean Up |
+ +----------------+ ^ \ ? / +----------+
+ | +--+-+
+ | | Yes
+ | |
+ | V
+ | +---------+
+ +-----+ Process |
+ +---------+
+
+Initialization
+ These are the things you do before actually starting to process
+ data, such as checking arguments, initializing any data you need
+ to work with, and so on. This step corresponds to `awk''s `BEGIN'
+ rule (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.).
+
+ If you were baking a cake, this might consist of laying out all the
+ mixing bowls and the baking pan, and making sure you have all the
+ ingredients that you need.
+
+Processing
+ This is where the actual work is done. Your program reads data,
+ one logical chunk at a time, and processes it as appropriate.
+
+ In most programming languages, you have to manually manage the
+ reading of data, checking to see if there is more each time you
+ read a chunk. `awk''s pattern-action paradigm (*note Getting
+ Started with `awk': Getting Started.) handles the mechanics of
+ this for you.
+
+ In baking a cake, the processing corresponds to the actual labor:
+ breaking eggs, mixing the flour, water, and other ingredients, and
+ then putting the cake into the oven.
+
+Clean Up
+ Once you've processed all the data, you may have things you need to
+ do before exiting. This step corresponds to `awk''s `END' rule
+ (*note The `BEGIN' and `END' Special Patterns: BEGIN/END.).
+
+ After the cake comes out of the oven, you still have to wrap it in
+ plastic wrap to keep anyone from tasting it, as well as wash the
+ mixing bowls and other utensils.
+
+ An "algorithm" is a detailed set of instructions necessary to
+accomplish a task, or process data. It is much the same as a recipe
+for baking a cake. Programs implement algorithms. Often, it is up to
+you to design the algorithm and implement it, simultaneously.
+
+ The "logical chunks" we talked about previously are called "records",
+similar to the records a company keeps on employees, a school keeps for
+students, or a doctor keeps for patients. Each record has many
+component parts, such as first and last names, date of birth, address,
+and so on. The component parts are referred to as the "fields" of the
+record.
+
+ The act of reading data is termed "input", and that of generating
+results, not too surprisingly, is termed "output". They are often
+referred to together as "Input/Output," and even more often, as "I/O"
+for short. (You will also see "input" and "output" used as verbs.)
+
+ `awk' manages the reading of data for you, as well as the breaking
+it up into records and fields. Your program's job is to tell `awk'
+what to with the data. You do this by describing "patterns" in the
+data to look for, and "actions" to execute when those patterns are
+seen. This "data-driven" nature of `awk' programs usually makes them
+both easier to write and easier to read.
+
+ ---------- Footnotes ----------
+
+ (1) Compiled programs are typically written in lower-level languages
+such as C, C++, Fortran, or Ada, and then translated, or "compiled",
+into a form that the computer can execute directly.
+
+
+File: gawk.info, Node: Basic Data Typing, Next: Floating Point Issues, Prev: Basic High Level, Up: Basic Concepts
+
+Data Values in a Computer
+=========================
+
+ In a program, you keep track of information and values in things
+called "variables". A variable is just a name for a given value, such
+as `first_name', `last_name', `address', and so on. `awk' has several
+pre-defined variables, and it has special names to refer to the current
+input record and the fields of the record. You may also group multiple
+associated values under one name, as an array.
+
+ Data, particularly in `awk', consists of either numeric values, such
+as 42 or 3.1415927, or string values. String values are essentially
+anything that's not a number, such as a name. Strings are sometimes
+referred to as "character data", since they store the individual
+characters that comprise them. Individual variables, as well as
+numeric and string variables, are referred to as "scalar" values.
+Groups of values, such as arrays, are not scalars.
+
+ Within computers, there are two kinds of numeric values: "integers",
+and "floating-point". In school, integer values were referred to as
+"whole" numbers--that is, numbers without any fractional part, such as
+1, 42, or -17. The advantage to integer numbers is that they represent
+values exactly. The disadvantage is that their range is limited. On
+most modern systems, this range is -2,147,483,648 to 2,147,483,647.
+
+ Integer values come in two flavors: "signed" and "unsigned". Signed
+values may be negative or positive, with the range of values just
+described. Unsigned values are always positive. On most modern
+systems, the range is from 0 to 4,294,967,295.
+
+ Floating-point numbers represent what are called "real" numbers;
+i.e., those that do have a fractional part, such as 3.1415927. The
+advantage to floating-point numbers is that they can represent a much
+larger range of values. The disadvantage is that there are numbers
+that they cannot represent exactly. `awk' uses "double-precision"
+floating-point numbers, which can hold more digits than
+"single-precision" floating-point numbers. Floating-point issues are
+discussed more fully in *Note Floating-Point Number Caveats: Floating
+Point Issues.
+
+ At the very lowest level, computers store values as groups of binary
+digits, or "bits". Modern computers group bits into groups of eight,
+called "bytes". Advanced applications sometimes have to manipulate
+bits directly, and `gawk' provides functions for doing so.
+
+ While you are probably used to the idea of a number without a value
+(i.e., zero), it takes a bit more getting used to the idea of
+zero-length character data. Nevertheless, such a thing exists. It is
+called the "null string". The null string is character data that has
+no value. In other words, it is empty. It is written in `awk' programs
+like this: `""'.
+
+ Humans are used to working in decimal; i.e., base 10. In base 10,
+numbers go from 0 to 9, and then "roll over" into the next column.
+(Remember grade school? 42 is 4 times 10 plus 2.)
+
+ There are other number bases though. Computers commonly use base 2
+or "binary", base 8 or "octal", and base 16 or "hexadecimal". In
+binary, each column represents two times the value in the column to its
+right. Each column may contain either a 0 or a 1. Thus, binary 1010
+represents 1 times 8, plus 0 times 4, plus 1 times 2, plus 0 times 1,
+or decimal 10. Octal and hexadecimal are discussed more in *Note Octal
+and Hexadecimal Numbers: Non-decimal-numbers.
+
+ Programs are written in programming languages. Hundreds, if not
+thousands, of programming languages exist. One of the most popular is
+the C programming language. The C language had a very strong influence
+on the design of the `awk' language.
+
+ There have been several versions of C. The first is often referred
+to as "K&R" C, after the initials of Brian Kernighan and Dennis Ritchie,
+the authors of the first book on C. (Dennis Ritchie created the
+language, and Brian Kernighan was one of the creators of `awk'.)
+
+ In the mid-1980's, an effort began to produce an international
+standard for C. This work culminated in 1989, with the production of
+the ANSI standard for C. This standard became an ISO standard in 1990.
+Where it makes sense, POSIX `awk' is compatible with 1990 ISO C.
+
+ In 1999, a revised ISO C standard was approved and released. Future
+versions of `gawk' will be as compatible as possible with this standard.
+
+
+File: gawk.info, Node: Floating Point Issues, Prev: Basic Data Typing, Up: Basic Concepts
+
+Floating-Point Number Caveats
+=============================
+
+ As mentioned earlier, floating-point numbers represent what are
+called "real" numbers; i.e., those that have a fractional part. `awk'
+uses double-precision floating-point numbers to represent all numeric
+values. This minor node describes some of the issues involved in using
+floating-point numbers.
+
+ There is a very nice paper on floating-point arithmetic by David
+Goldberg, `What Every Computer Scientist Should Know About
+Floating-point Arithmetic', `ACM Computing Surveys' *23*, 1 (1991-03),
+5-48.(1) This is worth reading if you are interested in the details,
+but it does require a background in Computer Science.
+
+ Internally, `awk' keeps both the numeric value (double-precision
+floating-point) and the string value for a variable. Separately, `awk'
+keeps track of what type the variable has (*note Variable Typing and
+Comparison Expressions: Typing and Comparison.), which plays a role in
+how variables are used in comparisons.
+
+ It is important to note that the string value for a number may not
+reflect the full value (all the digits) that the numeric value actually
+contains. The following program (`values.awk') illustrates this:
+
+ {
+ $1 = $2 + $3
+ # see it for what it is
+ printf("$1 = %.12g\n", $1)
+ # use CONVFMT
+ a = "<" $1 ">"
+ print "a =", a
+ # use OFMT
+ print "$1 =", $1
+ }
+
+This program shows the full value of the sum of `$2' and `$3' using
+`printf', and then prints the string values obtained from both
+automatic conversion (via `CONVFMT') and from printing (via `OFMT').
+
+ Here is what happens when the program is run:
+
+ $ echo 2 3.654321 1.2345678 | awk -f values.awk
+ -| $1 = 4.8888888
+ -| a = <4.88889>
+ -| $1 = 4.88889
+
+ This makes it clear that the full numeric value is different from
+what the default string representations show.
+
+ `CONVFMT''s default value is `"%.6g"', which yields a value with at
+least six significant digits. For some applications, you might want to
+change it to specify more precision. On most modern machines, most of
+the time, 17 digits is enough to capture a floating-point number's
+value exactly.(2)
+
+ Unlike numbers in the abstract sense (such as what you studied in
+high school or college math), numbers stored in computers are limited
+in certain ways. They cannot represent an infinite number of digits,
+nor can they always represent things exactly. In particular,
+floating-point numbers cannot always represent values exactly. Here is
+an example:
+
+ $ awk '{ printf("%010d\n", $1 * 100) }'
+ 515.79
+ -| 0000051579
+ 515.80
+ -| 0000051579
+ 515.81
+ -| 0000051580
+ 515.82
+ -| 0000051582
+ Ctrl-d
+
+This shows that some values can be represented exactly, whereas others
+are only approximated. This is not a "bug" in `awk', but simply an
+artifact of how computers represent numbers.
+
+ Another peculiarity of floating-point numbers on modern systems is
+that they often have more than one representation for the number zero!
+In particular, it is possible to represent "minus zero" as well as
+regular, or "positive" zero.
+
+ This example shows that negative and positive zero are distinct
+values when stored internally, but that they are in fact equal to each
+other, as well as to "regular" zero:
+
+ $ gawk 'BEGIN { mz = -0 ; pz = 0
+ > printf "-0 = %g, +0 = %g, (-0 == +0) -> %d\n", mz, pz, mz == pz
+ > printf "mz == 0 -> %d, pz == 0 -> %d\n", mz == 0, pz == 0
+ > }'
+ -| -0 = -0, +0 = 0, (-0 == +0) -> 1
+ -| mz == 0 -> 1, pz == 0 -> 1
+
+ It helps to keep this in mind should you process numeric data that
+contains negative zero values; the fact that the zero is negative is
+noted and can affect comparisons.
+
+ ---------- Footnotes ----------
+
+ (1) `http://www.validgh.com/goldberg/paper.ps'
+
+ (2) Pathological cases can require up to 752 digits (!), but we
+doubt that you need to worry about this.
+
+
+File: gawk.info, Node: Glossary, Next: Copying, Prev: Basic Concepts, Up: Top
Glossary
********
@@ -16587,25 +19057,42 @@ Glossary
Action
A series of `awk' statements attached to a rule. If the rule's
pattern matches an input record, `awk' executes the rule's action.
- Actions are always enclosed in curly braces. *Note Overview of
- Actions: Action Overview.
+ Actions are always enclosed in curly braces. (*Note Actions:
+ Action Overview.)
Amazing `awk' Assembler
Henry Spencer at the University of Toronto wrote a retargetable
- assembler completely as `awk' scripts. It is thousands of lines
- long, including machine descriptions for several eight-bit
+ assembler completely as `sed' and `awk' scripts. It is thousands
+ of lines long, including machine descriptions for several eight-bit
microcomputers. It is a good example of a program that would have
- been better written in another language.
+ been better written in another language. You can get it from
+ `ftp://ftp.freefriends.org/arnold/Awkstuff/aaa.tgz'.
Amazingly Workable Formatter (`awf')
Henry Spencer at the University of Toronto wrote a formatter that
accepts a large subset of the `nroff -ms' and `nroff -man'
- formatting commands, using `awk' and `sh'.
+ formatting commands, using `awk' and `sh'. It is available over
+ the Internet from
+ `ftp://ftp.freefriends.org/arnold/Awkstuff/awf.tgz'.
+
+Anchor
+ The regexp metacharacters `^' and `$', which force the match to
+ the beginning or end of the string, respectively.
ANSI
The American National Standards Institute. This organization
produces many standards, among them the standards for the C and
- C++ programming languages.
+ C++ programming languages. These standards often become
+ international standards as well. See also "ISO."
+
+Array
+ A grouping of multiple values under the same name. Most languages
+ just provide sequential arrays. `awk' provides associative arrays.
+
+Assertion
+ A statement in a program that a condition is true at this point in
+ the program. Useful for reasoning about how a program is supposed
+ to behave.
Assignment
An `awk' expression that changes the value of some `awk' variable
@@ -16613,6 +19100,10 @@ Assignment
"lvalue". The assigned values are called "rvalues". *Note
Assignment Expressions: Assignment Ops.
+Associative Array
+ Arrays in which the indices may be numbers or strings, not just
+ sequential integers in a fixed range.
+
`awk' Language
The language in which `awk' programs are written.
@@ -16626,36 +19117,54 @@ Assignment
Another name for an `awk' program.
Bash
- The GNU version of the standard shell (the Bourne-Again shell).
- See "Bourne Shell."
+ The GNU version of the standard shell (the Bourne-Again SHell).
+ See also "Bourne Shell."
BBS
See "Bulletin Board System."
+Bit
+ Short for "Binary Digit." All values in computer memory
+ ultimately reduce to binary digits: values that are either zero or
+ one. Groups of bits may be interpreted differently--as integers,
+ floating-point numbers, character data, addresses of other memory
+ objects, or other data. `awk' lets you work with floating-point
+ numbers and strings. `gawk' lets you manipulate bit values with
+ the built-in functions described in *Note Using `gawk''s Bit
+ Manipulation Functions: Bitwise Functions.
+
+ Computers are often defined by how many bits they use to represent
+ integer values. Typical systems are 32-bit systems, but 64-bit
+ systems are becoming increasingly popular, and 16-bit systems are
+ waning in popularity.
+
Boolean Expression
- Named after the English mathematician Boole. See "Logical
+ Named after the English mathematician Boole. See also "Logical
Expression."
Bourne Shell
The standard shell (`/bin/sh') on Unix and Unix-like systems,
- originally written by Steven R. Bourne. Many shells (Bash, `ksh',
- `pdksh', `zsh') are generally upwardly compatible with the Bourne
- shell.
+ originally written by Steven R. Bourne. Many shells (`bash',
+ `ksh', `pdksh', `zsh') are generally upwardly compatible with the
+ Bourne shell.
Built-in Function
The `awk' language provides built-in functions that perform various
- numerical, time stamp related, and string computations. Examples
- are `sqrt' (for the square root of a number) and `substr' (for a
- substring of a string). *Note Built-in Functions: Built-in.
+ numerical, I/O-related, and string computations. Examples are
+ `sqrt' (for the square root of a number) and `substr' (for a
+ substring of a string). `gawk' provides functions for timestamp
+ management, bit manipulation, and runtime string translation.
+ (*Note Built-in Functions: Built-in.)
Built-in Variable
- `ARGC', `ARGIND', `ARGV', `CONVFMT', `ENVIRON', `ERRNO',
- `FIELDWIDTHS', `FILENAME', `FNR', `FS', `IGNORECASE', `NF', `NR',
- `OFMT', `OFS', `ORS', `RLENGTH', `RSTART', `RS', `RT', and
- `SUBSEP', are the variables that have special meaning to `awk'.
- Changing some of them affects `awk''s running environment.
- Several of these variables are specific to `gawk'. *Note Built-in
- Variables::.
+ `ARGC', `ARGV', `CONVFMT', `ENVIRON', `FILENAME', `FNR', `FS',
+ `NF', `NR', `OFMT', `OFS', `ORS', `RLENGTH', `RSTART', `RS', and
+ `SUBSEP' are the variables that have special meaning to `awk'. In
+ addition, `ARGIND', `BINMODE', `ERRNO', `FIELDWIDTHS',
+ `IGNORECASE', `LINT', `PROCINFO', `RT', and `TEXTDOMAIN' are the
+ variables that have special meaning to `gawk'. Changing some of
+ them affects `awk''s running environment. (*Note Built-in
+ Variables::.)
Braces
See "Curly Braces."
@@ -16671,6 +19180,13 @@ C
Info file points out similarities between `awk' and C when
appropriate.
+ In general, `gawk' attempts to be as similar to the 1990 version
+ of ISO C as makes sense. Future versions of `gawk' may adopt
+ features from the newer 1999 standard, as appropriate.
+
+C++
+ A popular object-oriented programming language derived from C.
+
Character Set
The set of numeric codes used by a computer system to represent the
characters (letters, numbers, punctuation, etc.) of a particular
@@ -16683,33 +19199,42 @@ CHEM
A preprocessor for `pic' that reads descriptions of molecules and
produces `pic' input for drawing them. It was written in `awk' by
Brian Kernighan and Jon Bentley, and is available from
- <netlib@research.bell-labs.com>.
+ `http://cm.bell-labs.com/netlib/typesetting/chem.gz'.
+
+Coprocess
+ A subordinate program with which two-way communications is
+ possible.
+
+Compiler
+ A program that translates human-readable source code into
+ machine-executable object code. The object code is then executed
+ directly by the computer. See also "Interpreter."
Compound Statement
A series of `awk' statements, enclosed in curly braces. Compound
- statements may be nested. *Note Control Statements in Actions:
- Statements.
+ statements may be nested. (*Note Control Statements in Actions:
+ Statements.)
Concatenation
Concatenating two strings means sticking them together, one after
- another, giving a new string. For example, the string `foo'
+ another, producing a new string. For example, the string `foo'
concatenated with the string `bar' gives the string `foobar'.
- *Note String Concatenation: Concatenation.
+ (*Note String Concatenation: Concatenation.)
Conditional Expression
An expression using the `?:' ternary operator, such as `EXPR1 ?
EXPR2 : EXPR3'. The expression EXPR1 is evaluated; if the result
- is true, the value of the whole expression is the value of EXPR2,
+ is true, the value of the whole expression is the value of EXPR2;
otherwise the value is EXPR3. In either case, only one of EXPR2
- and EXPR3 is evaluated. *Note Conditional Expressions:
- Conditional Exp.
+ and EXPR3 is evaluated. (*Note Conditional Expressions:
+ Conditional Exp.)
Comparison Expression
A relation that is either true or false, such as `(a < b)'.
Comparison expressions are used in `if', `while', `do', and `for'
statements, and in patterns to select which input records to
- process. *Note Variable Typing and Comparison Expressions: Typing
- and Comparison.
+ process. (*Note Variable Typing and Comparison Expressions:
+ Typing and Comparison.)
Curly Braces
The characters `{' and `}'. Curly braces are used in `awk' for
@@ -16718,26 +19243,35 @@ Curly Braces
Dark Corner
An area in the language where specifications often were (or still
are) not clear, leading to unexpected or undesirable behavior.
- Such areas are marked in this Info file with "(d.c.)" in the text,
+ Such areas are marked in this Info file with "(d.c.)" in the text
and are indexed under the heading "dark corner."
+Data Driven
+ A description of `awk' programs, where you specify the data you
+ are interested in processing, and what to do when that data is
+ seen.
+
Data Objects
These are numbers and strings of characters. Numbers are
- converted into strings and vice versa, as needed. *Note
- Conversion of Strings and Numbers: Conversion.
+ converted into strings and vice versa, as needed. (*Note
+ Conversion of Strings and Numbers: Conversion.)
+
+Deadlock
+ The situation in which two communicating processes are each waiting
+ for the other to perform an action.
-Double Precision
+Double-Precision
An internal representation of numbers that can have fractional
- parts. Double precision numbers keep track of more digits than do
- single precision numbers, but operations on them are more
- expensive. This is the way `awk' stores numeric values. It is
- the C type `double'.
+ parts. Double-precision numbers keep track of more digits than do
+ single-precision numbers, but operations on them are sometimes
+ more expensive. This is the way `awk' stores numeric values. It
+ is the C type `double'.
Dynamic Regular Expression
A dynamic regular expression is a regular expression written as an
ordinary expression. It could be a string constant, such as
`"foo"', but it may also be an expression whose value can vary.
- *Note Using Dynamic Regexps: Computed Regexps.
+ (*Note Using Dynamic Regexps: Computed Regexps.)
Environment
A collection of strings, of the form NAME`='VAL, that each program
@@ -16748,36 +19282,58 @@ Environment
Empty String
See "Null String."
+Epoch
+ The date used as the "beginning of time" for timestamps. Time
+ values in Unix systems are represented as seconds since the epoch,
+ with library functions available for converting these values into
+ standard date and time formats.
+
+ The epoch on Unix and POSIX systems is 1970-01-01 00:00:00 UTC.
+ See also "GMT" and "UTC."
+
Escape Sequences
A special sequence of characters used for describing non-printing
- characters, such as `\n' for newline, or `\033' for the ASCII ESC
- (escape) character. *Note Escape Sequences::.
+ characters, such as `\n' for newline or `\033' for the ASCII ESC
+ (Escape) character. (*Note Escape Sequences::.)
+
+FDL
+ See "Free Documentation License."
Field
When `awk' reads an input record, it splits the record into pieces
- separated by whitespace (or by a separator regexp which you can
+ separated by whitespace (or by a separator regexp that you can
change by setting the built-in variable `FS'). Such pieces are
called fields. If the pieces are of fixed length, you can use the
- built-in variable `FIELDWIDTHS' to describe their lengths. *Note
- Specifying How Fields are Separated: Field Separators, and also see
- *Note Reading Fixed-width Data: Constant Size.
+ built-in variable `FIELDWIDTHS' to describe their lengths. (*Note
+ Specifying How Fields Are Separated: Field Separators, and *Note
+ Reading Fixed-Width Data: Constant Size.)
+
+Flag
+ A variable whose truth value indicates the existence or
+ non-existence of some condition.
-Floating Point Number
- Often referred to in mathematical terms as a "rational" number,
- this is just a number that can have a fractional part. See
- "Double Precision" and "Single Precision."
+Floating-Point Number
+ Often referred to in mathematical terms as a "rational" or real
+ number, this is just a number that can have a fractional part.
+ See also "Double-Precision" and "Single-Precision."
Format
Format strings are used to control the appearance of output in the
- `printf' statement. Also, data conversions from numbers to strings
+ `strftime' and `sprintf' functions, and are used in the `printf'
+ statement as well. Also, data conversions from numbers to strings
are controlled by the format string contained in the built-in
- variable `CONVFMT'. *Note Format-Control Letters: Control Letters.
+ variable `CONVFMT'. (*Note Format-Control Letters: Control
+ Letters.)
+
+Free Documentation License
+ This document describes the terms under which this Info file is
+ published and may be copied. (*Note GNU Free Documentation
+ License::.)
Function
A specialized group of statements used to encapsulate general or
program-specific tasks. `awk' has a number of built-in functions,
- and also allows you to define your own. *Note Built-in Functions:
- Built-in, and *Note User-defined Functions: User-defined.
+ and also allows you to define your own. (*Note Functions::.)
FSF
See "Free Software Foundation."
@@ -16793,34 +19349,72 @@ Free Software Foundation
General Public License
This document describes the terms under which `gawk' and its source
- code may be distributed. (*note GNU GENERAL PUBLIC LICENSE:
+ code may be distributed. (*Note GNU General Public License:
Copying.)
+GMT
+ "Greenwich Mean Time." This is the old term for UTC. It is the
+ time of day used as the epoch for Unix and POSIX systems. See
+ also "Epoch" and "UTC."
+
GNU
"GNU's not Unix". An on-going project of the Free Software
Foundation to create a complete, freely distributable,
POSIX-compliant computing environment.
+GNU/Linux
+ A variant of the GNU system using the Linux kernel, instead of the
+ Free Software Foundation's Hurd kernel. Linux is a stable,
+ efficient, full-featured clone of Unix that has been ported to a
+ variety of architectures. It is most popular on PC-class systems,
+ but runs well on a variety of other systems too. The Linux kernel
+ source code is available under the terms of the GNU General Public
+ License, which is perhaps its most important aspect.
+
GPL
See "General Public License."
Hexadecimal
Base 16 notation, where the digits are `0'-`9' and `A'-`F', with
- `A' representing 10, `B' representing 11, and so on up to `F' for
+ `A' representing 10, `B' representing 11, and so on, up to `F' for
15. Hexadecimal numbers are written in C using a leading `0x', to
- indicate their base. Thus, `0x12' is 18 (one times 16 plus 2).
+ indicate their base. Thus, `0x12' is 18 (1 times 16 plus 2).
I/O
Abbreviation for "Input/Output," the act of moving data into and/or
out of a running program.
Input Record
- A single chunk of data read in by `awk'. Usually, an `awk' input
- record consists of one line of text. *Note How Input is Split
- into Records: Records.
+ A single chunk of data that is read in by `awk'. Usually, an
+ `awk' input record consists of one line of text. (*Note How Input
+ Is Split into Records: Records.)
Integer
- A whole number, i.e. a number that does not have a fractional part.
+ A whole number, i.e., a number that does not have a fractional
+ part.
+
+Internationalization
+ The process of writing or modifying a program so that it can use
+ multiple languages without requiring further source code changes.
+
+Interpreter
+ A program that reads human-readable source code directly, and uses
+ the instructions in it to process data and produce results. `awk'
+ is typically (but not always) implemented as an interpreter. See
+ also "Compiler."
+
+Interval Expression
+ A component of a regular expression that lets you specify repeated
+ matches of some part of the regexp. Interval expressions were not
+ traditionally available in `awk' programs.
+
+ISO
+ The International Standards Organization. This organization
+ produces international standards for many things, including
+ programming languages, such as C and C++. In the computer arena,
+ important standards like those for C, C++, and POSIX become both
+ American national and ISO international standards simultaneously.
+ This Info file refers to Standard C as "ISO C" throughout.
Keyword
In the `awk' language, a keyword is a word that has special
@@ -16831,6 +19425,21 @@ Keyword
`do...while', `for', `for...in', `break', `continue', `delete',
`next', `nextfile', `function', `func', and `exit'.
+Lesser General Public License
+ This document describes the terms under which binary library
+ archives or shared objects, and their source code may be
+ distributed.
+
+Linux
+ See "GNU/Linux."
+
+LGPL
+ See "Lesser General Public License."
+
+Localization
+ The process of providing the data necessary for an
+ internationalized program to work in a particular language.
+
Logical Expression
An expression using the operators for logic, AND, OR, and NOT,
written `&&', `||', and `!' in `awk'. Often called Boolean
@@ -16843,22 +19452,35 @@ Lvalue
elements. In `awk', a field designator can also be used as an
lvalue.
+Matching
+ The act of testing a string against a regular expression. If the
+ regexp describes the contents of the string, it is said to "match"
+ it.
+
+Metacharacters
+ Characters used within a regexp that do not stand for themselves.
+ Instead, they denote regular expression operations, such as
+ repetition, grouping, or alternation.
+
Null String
A string with no characters in it. It is represented explicitly in
- `awk' programs by placing two double-quote characters next to each
+ `awk' programs by placing two double quote characters next to each
other (`""'). It can appear in input data by having two successive
occurrences of the field separator appear next to each other.
Number
- A numeric valued data object. The `gawk' implementation uses
- double precision floating point to represent numbers. Very old
- `awk' implementations use single precision floating point.
+ A numeric-valued data object. Modern `awk' implementations use
+ double-precision floating-point to represent numbers. Very old
+ `awk' implementations use single-precision floating-point.
Octal
Base-eight notation, where the digits are `0'-`7'. Octal numbers
are written in C using a leading `0', to indicate their base.
Thus, `013' is 11 (one times 8 plus 3).
+P1003.2
+ See "POSIX."
+
Pattern
Patterns tell `awk' which input records are interesting to which
rules.
@@ -16866,43 +19488,48 @@ Pattern
A pattern is an arbitrary conditional expression against which
input is tested. If the condition is satisfied, the pattern is
said to "match" the input record. A typical pattern might compare
- the input record against a regular expression. *Note Pattern
- Elements: Pattern Overview.
+ the input record against a regular expression. (*Note Pattern
+ Elements: Pattern Overview.)
POSIX
- The name for a series of standards being developed by the IEEE
- that specify a Portable Operating System interface. The "IX"
- denotes the Unix heritage of these standards. The main standard
- of interest for `awk' users is `IEEE Standard for Information
- Technology, Standard 1003.2-1992, Portable Operating System
- Interface (POSIX) Part 2: Shell and Utilities'. Informally, this
- standard is often referred to as simply "P1003.2."
+ The name for a series of standards that specify a Portable
+ Operating System interface. The "IX" denotes the Unix heritage of
+ these standards. The main standard of interest for `awk' users is
+ `IEEE Standard for Information Technology, Standard 1003.2-1992,
+ Portable Operating System Interface (POSIX) Part 2: Shell and
+ Utilities'. Informally, this standard is often referred to as
+ simply "P1003.2."
+
+Precedence
+ The order in which operations are performed when operators are used
+ without explicit parentheses.
Private
Variables and/or functions that are meant for use exclusively by
- library functions, and not for the main `awk' program. Special
- care must be taken when naming such variables and functions.
- *Note Naming Library Function Global Variables: Library Names.
+ library functions and not for the main `awk' program. Special care
+ must be taken when naming such variables and functions. (*Note
+ Naming Library Function Global Variables: Library Names.)
Range (of input lines)
- A sequence of consecutive lines from the input file. A pattern
- can specify ranges of input lines for `awk' to process, or it can
- specify single lines. *Note Pattern Elements: Pattern Overview.
+ A sequence of consecutive lines from the input file(s). A pattern
+ can specify ranges of input lines for `awk' to process or it can
+ specify single lines. (*Note Pattern Elements: Pattern Overview.)
Recursion
When a function calls itself, either directly or indirectly. If
this isn't clear, refer to the entry for "recursion."
Redirection
- Redirection means performing input from other than the standard
- input stream, or output to other than the standard output stream.
+ Redirection means performing input from something other than the
+ standard input stream, or performing output to something other
+ than the standard output stream.
You can redirect the output of the `print' and `printf' statements
- to a file or a system command, using the `>', `>>', and `|'
+ to a file or a system command, using the `>', `>>', `|', and `|&'
operators. You can redirect input to the `getline' statement using
- the `<' and `|' operators. *Note Redirecting Output of `print'
- and `printf': Redirection, and *Note Explicit Input with
- `getline': Getline.
+ the `<', `|', and `|&' operators. (*Note Redirecting Output of
+ `print' and `printf': Redirection, and *Note Explicit Input with
+ `getline': Getline.)
Regexp
Short for "regular expression". A regexp is a pattern that
@@ -16910,7 +19537,7 @@ Regexp
the regexp `R.*xp' matches any string starting with the letter `R'
and ending with the letters `xp'. In `awk', regexps are used in
patterns and in conditional expressions. Regexps may contain
- escape sequences. *Note Regular Expressions: Regexp.
+ escape sequences. (*Note Regular Expressions: Regexp.)
Regular Expression
See "regexp."
@@ -16918,8 +19545,8 @@ Regular Expression
Regular Expression Constant
A regular expression constant is a regular expression written
within slashes, such as `/foo/'. This regular expression is chosen
- when you write the `awk' program, and cannot be changed doing its
- execution. *Note How to Use Regular Expressions: Regexp Usage.
+ when you write the `awk' program and cannot be changed during its
+ execution. (*Note How to Use Regular Expressions: Regexp Usage.)
Rule
A segment of an `awk' program that specifies how to process single
@@ -16933,77 +19560,111 @@ Rvalue
operator. In `awk', essentially every expression has a value.
These values are rvalues.
+Scalar
+ A single value, be it a number or a string. Regular variables are
+ scalars; arrays and functions are not.
+
+Search Path
+ In `gawk', a list of directories to search for `awk' program
+ source files. In the shell, a list of directories to search for
+ executable programs.
+
+Seed
+ The initial value, or starting point, for a sequence of random
+ numbers.
+
`sed'
See "Stream Editor."
+Shell
+ The command interpreter for Unix and POSIX-compliant systems. The
+ shell works both interactively, and as a programming language for
+ batch files, or shell scripts.
+
Short-Circuit
The nature of the `awk' logical operators `&&' and `||'. If the
- value of the entire expression can be deduced from evaluating just
- the left-hand side of these operators, the right-hand side will not
- be evaluated (*note Boolean Expressions: Boolean Ops.).
+ value of the entire expression is determinable from evaluating just
+ the lefthand side of these operators, the righthand side is not
+ evaluated. (*Note Boolean Expressions: Boolean Ops.)
Side Effect
A side effect occurs when an expression has an effect aside from
merely producing a value. Assignment expressions, increment and
- decrement expressions and function calls have side effects. *Note
- Assignment Expressions: Assignment Ops.
+ decrement expressions, and function calls have side effects.
+ (*Note Assignment Expressions: Assignment Ops.)
-Single Precision
+Single-Precision
An internal representation of numbers that can have fractional
- parts. Single precision numbers keep track of fewer digits than
- do double precision numbers, but operations on them are less
- expensive in terms of CPU time. This is the type used by some
- very old versions of `awk' to store numeric values. It is the C
- type `float'.
+ parts. Single-precision numbers keep track of fewer digits than
+ do double-precision numbers, but operations on them are sometimes
+ less expensive in terms of CPU time. This is the type used by
+ some very old versions of `awk' to store numeric values. It is
+ the C type `float'.
Space
The character generated by hitting the space bar on the keyboard.
Special File
A file name interpreted internally by `gawk', instead of being
- handed directly to the underlying operating system. For example,
- `/dev/stderr'. *Note Special File Names in `gawk': Special Files.
+ handed directly to the underlying operating system--for example,
+ `/dev/stderr'. (*Note Special File Names in `gawk': Special
+ Files.)
Stream Editor
A program that reads records from an input stream and processes
them one or more at a time. This is in contrast with batch
programs, which may expect to read their input files in entirety
- before starting to do anything, and with interactive programs,
- which require input from the user.
+ before starting to do anything, as well as with interactive
+ programs which require input from the user.
String
A datum consisting of a sequence of characters, such as `I am a
- string'. Constant strings are written with double-quotes in the
- `awk' language, and may contain escape sequences. *Note Escape
- Sequences::.
+ string'. Constant strings are written with double quotes in the
+ `awk' language and may contain escape sequences. (*Note Escape
+ Sequences::.)
Tab
The character generated by hitting the `TAB' key on the keyboard.
It usually expands to up to eight spaces upon output.
+Text Domain
+ A unique name that identifies an application. Used for grouping
+ messages that are translated at runtime into the local language.
+
+Timestamp
+ A value in the "seconds since the epoch" format used by Unix and
+ POSIX systems. Used for the `gawk' functions `mktime',
+ `strftime', and `systime'. See also "Epoch" and "UTC."
+
Unix
A computer operating system originally developed in the early
1970's at AT&T Bell Laboratories. It initially became popular in
- universities around the world, and later moved into commercial
- evnironments as a software development system and network server
+ universities around the world and later moved into commercial
+ environments as a software development system and network server
system. There are many commercial versions of Unix, as well as
several work-alike systems whose source code is freely available
- (such as Linux, NetBSD, and FreeBSD).
+ (such as GNU/Linux, NetBSD, FreeBSD, and OpenBSD).
+
+UTC
+ The accepted abbreviation for "Universal Coordinated Time." This
+ is standard time in Greenwich, England, which is used as a
+ reference time for day and date calculations. See also "Epoch"
+ and "GMT."
Whitespace
A sequence of space, tab, or newline characters occurring inside
an input record or a string.

-File: gawk.info, Node: Copying, Next: Index, Prev: Glossary, Up: Top
+File: gawk.info, Node: Copying, Next: GNU Free Documentation License, Prev: Glossary, Up: Top
-GNU GENERAL PUBLIC LICENSE
+GNU General Public License
**************************
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
- 59 Temple Place --- Suite 330, Boston, MA 02111-1307, USA
+ 59 Temple Place, Suite 330, Boston, MA 02111, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -17156,7 +19817,7 @@ modification follow.
c. Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
- allowed only for non-commercial distribution and only if you
+ allowed only for noncommercial distribution and only if you
received the program in object code or executable form with
such an offer, in accord with Subsection b above.)
@@ -17320,7 +19981,7 @@ the "copyright" line and a pointer to where the full notice is found.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place --- Suite 330, Boston, MA 02111-1307, USA.
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
Also add information on how to contact you by electronic and paper
mail.
@@ -17356,73 +20017,541 @@ if necessary. Here is a sample; alter the names:
program into proprietary programs. If your program is a subroutine
library, you may consider it more useful to permit linking proprietary
applications with the library. If this is what you want to do, use the
-GNU Library General Public License instead of this License.
+GNU Lesser General Public License instead of this License.
+
+
+File: gawk.info, Node: GNU Free Documentation License, Next: Index, Prev: Copying, Up: Top
+
+GNU Free Documentation License
+******************************
+
+ Version 1.1, March 2000
+
+ Copyright (C) 2000 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+
+ 0. PREAMBLE
+
+ The purpose of this License is to make a manual, textbook, or other
+ written document "free" in the sense of freedom: to assure everyone
+ the effective freedom to copy and redistribute it, with or without
+ modifying it, either commercially or noncommercially. Secondarily,
+ this License preserves for the author and publisher a way to get
+ credit for their work, while not being considered responsible for
+ modifications made by others.
+
+ This License is a kind of "copyleft", which means that derivative
+ works of the document must themselves be free in the same sense.
+ It complements the GNU General Public License, which is a copyleft
+ license designed for free software.
+
+ We have designed this License in order to use it for manuals for
+ free software, because free software needs free documentation: a
+ free program should come with manuals providing the same freedoms
+ that the software does. But this License is not limited to
+ software manuals; it can be used for any textual work, regardless
+ of subject matter or whether it is published as a printed book.
+ We recommend this License principally for works whose purpose is
+ instruction or reference.
+
+
+ 1. APPLICABILITY AND DEFINITIONS
+
+ This License applies to any manual or other work that contains a
+ notice placed by the copyright holder saying it can be distributed
+ under the terms of this License. The "Document", below, refers to
+ any such manual or work. Any member of the public is a licensee,
+ and is addressed as "you".
+
+ A "Modified Version" of the Document means any work containing the
+ Document or a portion of it, either copied verbatim, or with
+ modifications and/or translated into another language.
+
+ A "Secondary Section" is a named appendix or a front-matter
+ section of the Document that deals exclusively with the
+ relationship of the publishers or authors of the Document to the
+ Document's overall subject (or to related matters) and contains
+ nothing that could fall directly within that overall subject.
+ (For example, if the Document is in part a textbook of
+ mathematics, a Secondary Section may not explain any mathematics.)
+ The relationship could be a matter of historical connection with
+ the subject or with related matters, or of legal, commercial,
+ philosophical, ethical or political position regarding them.
+
+ The "Invariant Sections" are certain Secondary Sections whose
+ titles are designated, as being those of Invariant Sections, in
+ the notice that says that the Document is released under this
+ License.
+
+ The "Cover Texts" are certain short passages of text that are
+ listed, as Front-Cover Texts or Back-Cover Texts, in the notice
+ that says that the Document is released under this License.
+
+ A "Transparent" copy of the Document means a machine-readable copy,
+ represented in a format whose specification is available to the
+ general public, whose contents can be viewed and edited directly
+ and straightforwardly with generic text editors or (for images
+ composed of pixels) generic paint programs or (for drawings) some
+ widely available drawing editor, and that is suitable for input to
+ text formatters or for automatic translation to a variety of
+ formats suitable for input to text formatters. A copy made in an
+ otherwise Transparent file format whose markup has been designed
+ to thwart or discourage subsequent modification by readers is not
+ Transparent. A copy that is not "Transparent" is called "Opaque".
+
+ Examples of suitable formats for Transparent copies include plain
+ ASCII without markup, Texinfo input format, LaTeX input format,
+ SGML or XML using a publicly available DTD, and
+ standard-conforming simple HTML designed for human modification.
+ Opaque formats include PostScript, PDF, proprietary formats that
+ can be read and edited only by proprietary word processors, SGML
+ or XML for which the DTD and/or processing tools are not generally
+ available, and the machine-generated HTML produced by some word
+ processors for output purposes only.
+
+ The "Title Page" means, for a printed book, the title page itself,
+ plus such following pages as are needed to hold, legibly, the
+ material this License requires to appear in the title page. For
+ works in formats which do not have any title page as such, "Title
+ Page" means the text near the most prominent appearance of the
+ work's title, preceding the beginning of the body of the text.
+
+
+ 2. VERBATIM COPYING
+
+ You may copy and distribute the Document in any medium, either
+ commercially or noncommercially, provided that this License, the
+ copyright notices, and the license notice saying this License
+ applies to the Document are reproduced in all copies, and that you
+ add no other conditions whatsoever to those of this License. You
+ may not use technical measures to obstruct or control the reading
+ or further copying of the copies you make or distribute. However,
+ you may accept compensation in exchange for copies. If you
+ distribute a large enough number of copies you must also follow
+ the conditions in section 3.
+
+ You may also lend copies, under the same conditions stated above,
+ and you may publicly display copies.
+
+
+ 3. COPYING IN QUANTITY
+
+ If you publish printed copies of the Document numbering more than
+ 100, and the Document's license notice requires Cover Texts, you
+ must enclose the copies in covers that carry, clearly and legibly,
+ all these Cover Texts: Front-Cover Texts on the front cover, and
+ Back-Cover Texts on the back cover. Both covers must also clearly
+ and legibly identify you as the publisher of these copies. The
+ front cover must present the full title with all words of the
+ title equally prominent and visible. You may add other material
+ on the covers in addition. Copying with changes limited to the
+ covers, as long as they preserve the title of the Document and
+ satisfy these conditions, can be treated as verbatim copying in
+ other respects.
+
+ If the required texts for either cover are too voluminous to fit
+ legibly, you should put the first ones listed (as many as fit
+ reasonably) on the actual cover, and continue the rest onto
+ adjacent pages.
+
+ If you publish or distribute Opaque copies of the Document
+ numbering more than 100, you must either include a
+ machine-readable Transparent copy along with each Opaque copy, or
+ state in or with each Opaque copy a publicly-accessible
+ computer-network location containing a complete Transparent copy
+ of the Document, free of added material, which the general
+ network-using public has access to download anonymously at no
+ charge using public-standard network protocols. If you use the
+ latter option, you must take reasonably prudent steps, when you
+ begin distribution of Opaque copies in quantity, to ensure that
+ this Transparent copy will remain thus accessible at the stated
+ location until at least one year after the last time you
+ distribute an Opaque copy (directly or through your agents or
+ retailers) of that edition to the public.
+
+ It is requested, but not required, that you contact the authors of
+ the Document well before redistributing any large number of
+ copies, to give them a chance to provide you with an updated
+ version of the Document.
+
+
+ 4. MODIFICATIONS
+
+ You may copy and distribute a Modified Version of the Document
+ under the conditions of sections 2 and 3 above, provided that you
+ release the Modified Version under precisely this License, with
+ the Modified Version filling the role of the Document, thus
+ licensing distribution and modification of the Modified Version to
+ whoever possesses a copy of it. In addition, you must do these
+ things in the Modified Version:
+
+ A. Use in the Title Page (and on the covers, if any) a title
+ distinct from that of the Document, and from those of
+ previous versions (which should, if there were any, be listed
+ in the History section of the Document). You may use the
+ same title as a previous version if the original publisher of
+ that version gives permission.
+
+ B. List on the Title Page, as authors, one or more persons or
+ entities responsible for authorship of the modifications in
+ the Modified Version, together with at least five of the
+ principal authors of the Document (all of its principal
+ authors, if it has less than five).
+
+ C. State on the Title page the name of the publisher of the
+ Modified Version, as the publisher.
+
+ D. Preserve all the copyright notices of the Document.
+
+ E. Add an appropriate copyright notice for your modifications
+ adjacent to the other copyright notices.
+
+ F. Include, immediately after the copyright notices, a license
+ notice giving the public permission to use the Modified
+ Version under the terms of this License, in the form shown in
+ the Addendum below.
+
+ G. Preserve in that license notice the full lists of Invariant
+ Sections and required Cover Texts given in the Document's
+ license notice.
+
+ H. Include an unaltered copy of this License.
+
+ I. Preserve the section entitled "History", and its title, and
+ add to it an item stating at least the title, year, new
+ authors, and publisher of the Modified Version as given on
+ the Title Page. If there is no section entitled "History" in
+ the Document, create one stating the title, year, authors,
+ and publisher of the Document as given on its Title Page,
+ then add an item describing the Modified Version as stated in
+ the previous sentence.
+
+ J. Preserve the network location, if any, given in the Document
+ for public access to a Transparent copy of the Document, and
+ likewise the network locations given in the Document for
+ previous versions it was based on. These may be placed in
+ the "History" section. You may omit a network location for a
+ work that was published at least four years before the
+ Document itself, or if the original publisher of the version
+ it refers to gives permission.
+
+ K. In any section entitled "Acknowledgements" or "Dedications",
+ preserve the section's title, and preserve in the section all
+ the substance and tone of each of the contributor
+ acknowledgements and/or dedications given therein.
+
+ L. Preserve all the Invariant Sections of the Document,
+ unaltered in their text and in their titles. Section numbers
+ or the equivalent are not considered part of the section
+ titles.
+
+ M. Delete any section entitled "Endorsements". Such a section
+ may not be included in the Modified Version.
+
+ N. Do not retitle any existing section as "Endorsements" or to
+ conflict in title with any Invariant Section.
+
+ If the Modified Version includes new front-matter sections or
+ appendices that qualify as Secondary Sections and contain no
+ material copied from the Document, you may at your option
+ designate some or all of these sections as invariant. To do this,
+ add their titles to the list of Invariant Sections in the Modified
+ Version's license notice. These titles must be distinct from any
+ other section titles.
+
+ You may add a section entitled "Endorsements", provided it contains
+ nothing but endorsements of your Modified Version by various
+ parties-for example, statements of peer review or that the text has
+ been approved by an organization as the authoritative definition
+ of a standard.
+
+ You may add a passage of up to five words as a Front-Cover Text,
+ and a passage of up to 25 words as a Back-Cover Text, to the end
+ of the list of Cover Texts in the Modified Version. Only one
+ passage of Front-Cover Text and one of Back-Cover Text may be
+ added by (or through arrangements made by) any one entity. If the
+ Document already includes a cover text for the same cover,
+ previously added by you or by arrangement made by the same entity
+ you are acting on behalf of, you may not add another; but you may
+ replace the old one, on explicit permission from the previous
+ publisher that added the old one.
+
+ The author(s) and publisher(s) of the Document do not by this
+ License give permission to use their names for publicity for or to
+ assert or imply endorsement of any Modified Version.
+
+
+ 5. COMBINING DOCUMENTS
+
+ You may combine the Document with other documents released under
+ this License, under the terms defined in section 4 above for
+ modified versions, provided that you include in the combination
+ all of the Invariant Sections of all of the original documents,
+ unmodified, and list them all as Invariant Sections of your
+ combined work in its license notice.
+
+ The combined work need only contain one copy of this License, and
+ multiple identical Invariant Sections may be replaced with a single
+ copy. If there are multiple Invariant Sections with the same name
+ but different contents, make the title of each such section unique
+ by adding at the end of it, in parentheses, the name of the
+ original author or publisher of that section if known, or else a
+ unique number. Make the same adjustment to the section titles in
+ the list of Invariant Sections in the license notice of the
+ combined work.
+
+ In the combination, you must combine any sections entitled
+ "History" in the various original documents, forming one section
+ entitled "History"; likewise combine any sections entitled
+ "Acknowledgements", and any sections entitled "Dedications". You
+ must delete all sections entitled "Endorsements."
+
+
+ 6. COLLECTIONS OF DOCUMENTS
+
+ You may make a collection consisting of the Document and other
+ documents released under this License, and replace the individual
+ copies of this License in the various documents with a single copy
+ that is included in the collection, provided that you follow the
+ rules of this License for verbatim copying of each of the
+ documents in all other respects.
+
+ You may extract a single document from such a collection, and
+ distribute it individually under this License, provided you insert
+ a copy of this License into the extracted document, and follow
+ this License in all other respects regarding verbatim copying of
+ that document.
+
+
+ 7. AGGREGATION WITH INDEPENDENT WORKS
+
+ A compilation of the Document or its derivatives with other
+ separate and independent documents or works, in or on a volume of
+ a storage or distribution medium, does not as a whole count as a
+ Modified Version of the Document, provided no compilation
+ copyright is claimed for the compilation. Such a compilation is
+ called an "aggregate", and this License does not apply to the
+ other self-contained works thus compiled with the Document, on
+ account of their being thus compiled, if they are not themselves
+ derivative works of the Document.
+
+ If the Cover Text requirement of section 3 is applicable to these
+ copies of the Document, then if the Document is less than one
+ quarter of the entire aggregate, the Document's Cover Texts may be
+ placed on covers that surround only the Document within the
+ aggregate. Otherwise they must appear on covers around the whole
+ aggregate.
+
+
+ 8. TRANSLATION
+
+ Translation is considered a kind of modification, so you may
+ distribute translations of the Document under the terms of section
+ 4. Replacing Invariant Sections with translations requires special
+ permission from their copyright holders, but you may include
+ translations of some or all Invariant Sections in addition to the
+ original versions of these Invariant Sections. You may include a
+ translation of this License provided that you also include the
+ original English version of this License. In case of a
+ disagreement between the translation and the original English
+ version of this License, the original English version will prevail.
+
+
+ 9. TERMINATION
+
+ You may not copy, modify, sublicense, or distribute the Document
+ except as expressly provided for under this License. Any other
+ attempt to copy, modify, sublicense or distribute the Document is
+ void, and will automatically terminate your rights under this
+ License. However, parties who have received copies, or rights,
+ from you under this License will not have their licenses
+ terminated so long as such parties remain in full compliance.
+
+
+ 10. FUTURE REVISIONS OF THIS LICENSE
+
+ The Free Software Foundation may publish new, revised versions of
+ the GNU Free Documentation License from time to time. Such new
+ versions will be similar in spirit to the present version, but may
+ differ in detail to address new problems or concerns. See
+ `http://www.gnu.org/copyleft/'.
+
+ Each version of the License is given a distinguishing version
+ number. If the Document specifies that a particular numbered
+ version of this License "or any later version" applies to it, you
+ have the option of following the terms and conditions either of
+ that specified version or of any later version that has been
+ published (not as a draft) by the Free Software Foundation. If
+ the Document does not specify a version number of this License,
+ you may choose any version ever published (not as a draft) by the
+ Free Software Foundation.
+
+
+ADDENDUM: How to use this License for your documents
+====================================================
+
+ To use this License in a document you have written, include a copy of
+the License in the document and put the following copyright and license
+notices just after the title page:
+
+
+ Copyright (C) YEAR YOUR NAME.
+ Permission is granted to copy, distribute and/or modify this document
+ under the terms of the GNU Free Documentation License, Version 1.1
+ or any later version published by the Free Software Foundation;
+ with the Invariant Sections being LIST THEIR TITLES, with the
+ Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.
+ A copy of the license is included in the section entitled ``GNU
+ Free Documentation License''.
+If you have no Invariant Sections, write "with no Invariant
+Sections" instead of saying which ones are invariant. If you have no
+Front-Cover Texts, write "no Front-Cover Texts" instead of "Front-Cover
+Texts being LIST"; likewise for Back-Cover Texts.
+
+ If your document contains nontrivial examples of program code, we
+recommend releasing these examples in parallel under your choice of
+free software license, such as the GNU General Public License, to
+permit their use in free software.

-File: gawk.info, Node: Index, Prev: Copying, Up: Top
+File: gawk.info, Node: Index, Prev: GNU Free Documentation License, Up: Top
Index
*****
* Menu:
+* ! operator <1>: Egrep Program.
+* ! operator <2>: Ranges.
+* ! operator <3>: Precedence.
* ! operator: Boolean Ops.
+* != operator <1>: Precedence.
* != operator: Typing and Comparison.
-* !~ operator <1>: Typing and Comparison.
-* !~ operator <2>: Regexp Constants.
-* !~ operator <3>: Computed Regexps.
-* !~ operator <4>: Case-sensitivity.
+* !~ operator <1>: Precedence.
+* !~ operator <2>: Typing and Comparison.
+* !~ operator <3>: Regexp Constants.
+* !~ operator <4>: Computed Regexps.
+* !~ operator <5>: Case-sensitivity.
* !~ operator: Regexp Usage.
* # (comment): Comments.
* #! (executable scripts): Executable Scripts.
-* $ (field operator): Fields.
+* $ field operator <1>: Precedence.
+* $ field operator: Fields.
+* % operator: Precedence.
+* %= operator <1>: Precedence.
+* %= operator: Assignment Ops.
+* && operator <1>: Precedence.
* && operator: Boolean Ops.
+* * operator: Precedence.
+* ** operator: Precedence.
+* **= operator <1>: Precedence.
+* **= operator: Assignment Ops.
+* *= operator <1>: Precedence.
+* *= operator: Assignment Ops.
+* + operator: Precedence.
+* ++ operator <1>: Precedence.
+* ++ operator: Increment Ops.
+* += operator <1>: Precedence.
+* += operator: Assignment Ops.
+* - operator: Precedence.
+* -- operator <1>: Precedence.
+* -- operator: Increment Ops.
* --assign option: Options.
* --compat option: Options.
* --copyleft option: Options.
* --copyright option: Options.
+* --disable-nls configuration option: Additional Configuration Options.
+* --dump-variables option: Options.
+* --enable-portals configuration option <1>: Additional Configuration Options.
+* --enable-portals configuration option: Portal Files.
* --field-separator option: Options.
* --file option: Options.
+* --gen-po option <1>: Options.
+* --gen-po option: String Extraction.
* --help option: Options.
* --lint option: Options.
* --lint-old option: Options.
+* --non-decimal-data option <1>: Options.
+* --non-decimal-data option: Non-decimal Data.
* --posix option: Options.
+* --profile option: Options.
+* --re-interval option: Options.
* --source option: Options.
* --traditional option: Options.
* --usage option: Options.
* --version option: Options.
+* --with-included-gettext configuration option <1>: Additional Configuration Options.
+* --with-included-gettext configuration option: Gawk I18N.
+* -= operator <1>: Precedence.
+* -= operator: Assignment Ops.
* -f option: Options.
* -F option <1>: Options.
* -F option: Command Line Field Separator.
* -f option: Long.
+* -mf option: Options.
+* -mr option: Options.
* -v option: Options.
* -W option: Options.
-* /dev/fd: Special Files.
-* /dev/pgrpid: Special Files.
-* /dev/pid: Special Files.
-* /dev/ppid: Special Files.
-* /dev/stderr: Special Files.
-* /dev/stdin: Special Files.
-* /dev/stdout: Special Files.
-* /dev/user <1>: Passwd Functions.
-* /dev/user: Special Files.
+* / operator: Precedence.
+* /= operator <1>: Precedence.
+* /= operator: Assignment Ops.
+* /= operator vs. /=.../ regexp constant: Assignment Ops.
+* /dev/fd special files: Special FD.
+* /dev/pgrpid special file: Special Process.
+* /dev/pid special file: Special Process.
+* /dev/ppid special file: Special Process.
+* /dev/stderr special file: Special FD.
+* /dev/stdin special file: Special FD.
+* /dev/stdout special file: Special FD.
+* /dev/user special file: Special Process.
+* /inet special files: TCP/IP Networking.
+* /p special files: Portal Files.
+* < I/O operator: Getline/File.
+* < operator <1>: Precedence.
* < operator: Typing and Comparison.
+* <= operator <1>: Precedence.
* <= operator: Typing and Comparison.
+* = operator: Assignment Ops.
+* == operator <1>: Precedence.
* == operator: Typing and Comparison.
+* > I/O operator: Redirection.
+* > operator <1>: Precedence.
* > operator: Typing and Comparison.
+* >= operator <1>: Precedence.
* >= operator: Typing and Comparison.
+* >> I/O operator <1>: Precedence.
+* >> I/O operator: Redirection.
+* ?: operator: Precedence.
+* \" escape sequence: Escape Sequences.
* \' regexp operator: GNU Regexp Operators.
+* \/ escape sequence: Escape Sequences.
* \< regexp operator: GNU Regexp Operators.
* \> regexp operator: GNU Regexp Operators.
* \` regexp operator: GNU Regexp Operators.
+* \a escape sequence: Escape Sequences.
+* \b escape sequence: Escape Sequences.
* \B regexp operator: GNU Regexp Operators.
+* \f escape sequence: Escape Sequences.
+* \n escape sequence: Escape Sequences.
+* \NNN escape sequence (octal): Escape Sequences.
+* \r escape sequence: Escape Sequences.
+* \t escape sequence: Escape Sequences.
+* \v escape sequence: Escape Sequences.
* \W regexp operator: GNU Regexp Operators.
* \w regexp operator: GNU Regexp Operators.
+* \x escape sequence: Escape Sequences.
* \y regexp operator: GNU Regexp Operators.
-* _gr_init: Group Functions.
-* _pw_init: Passwd Functions.
-* _tm_addup: Mktime Function.
-* _tm_isleap: Mktime Function.
+* ^ operator: Precedence.
+* ^= operator <1>: Precedence.
+* ^= operator: Assignment Ops.
+* _ C macro (gettext): Explaining gettext.
+* _gr_init user-defined function: Group Functions.
+* _pw_init user-defined function: Passwd Functions.
* accessing fields: Fields.
* account information <1>: Group Functions.
* account information: Passwd Functions.
@@ -17434,91 +20563,165 @@ Index
* action, separating statements: Action Overview.
* adding new features: Adding Code.
* addition: Arithmetic Ops.
+* advanced features: Advanced Features.
+* advanced notes <1>: I/O Functions.
+* advanced notes <2>: Gory Details.
+* advanced notes <3>: Auto-set.
+* advanced notes <4>: Increment Ops.
+* advanced notes <5>: Assignment Ops.
+* advanced notes <6>: Non-decimal-numbers.
+* advanced notes <7>: Close Files And Pipes.
+* advanced notes <8>: Redirection.
+* advanced notes <9>: Records.
+* advanced notes <10>: Computed Regexps.
+* advanced notes <11>: Escape Sequences.
+* advanced notes: Executable Scripts.
+* Aho, Alfred <1>: Contributors.
* Aho, Alfred: History.
* AI programming, using gawk: Distribution contents.
-* alarm.awk: Alarm Program.
+* alarm.awk program: Alarm Program.
+* algorithm, definition of: Basic High Level.
+* amazing awk assembler (aaa): Glossary.
+* amazingly workable formatter (awf): Glossary.
+* ambiguity, syntactic: /= operator vs. /=.../ regexp constant: Assignment Ops.
* amiga: Amiga Installation.
* anchors in regexps: Regexp Operators.
-* and operator: Boolean Ops.
-* anonymous ftp <1>: Other Versions.
+* AND bitwise operation: Bitwise Functions.
+* and built-in function: Bitwise Functions.
+* AND logical operator: Boolean Ops.
* anonymous ftp: Getting.
-* applications of awk: When.
-* ARGC: Auto-set.
-* ARGIND <1>: Other Arguments.
-* ARGIND: Auto-set.
+* ANSI: Glossary.
+* applications of awk <1>: When.
+* applications of awk: Preface.
+* archeologists: Bugs.
+* ARGC variable: Auto-set.
+* ARGIND variable <1>: Other Arguments.
+* ARGIND variable: Auto-set.
* argument processing: Getopt Function.
* arguments in function call: Function Calls.
-* arguments, command line: Invoking Gawk.
-* ARGV <1>: Other Arguments.
-* ARGV: Auto-set.
+* arguments, command-line: Command Line.
+* ARGV variable <1>: Other Arguments.
+* ARGV variable: Auto-set.
* arithmetic operators: Arithmetic Ops.
* array assignment: Assigning Elements.
* array reference: Reference to Elements.
-* Array subscripts and IGNORECASE: Array Intro.
-* array subscripts, uninitialized variables: Uninitialized Subscripts.
* arrays: Array Intro.
* arrays, associative: Array Intro.
* arrays, definition of: Array Intro.
* arrays, deleting an element: Delete.
* arrays, deleting entire contents: Delete.
-* arrays, multi-dimensional subscripts: Multi-dimensional.
+* arrays, multidimensional subscripts: Multi-dimensional.
* arrays, presence of elements: Reference to Elements.
+* arrays, sorting: Array Sorting.
+* arrays, sorting and IGNORECASE: Array Sorting.
* arrays, sparse: Array Intro.
* arrays, special for statement: Scanning an Array.
+* arrays, subscripts, and IGNORECASE: Array Intro.
+* arrays, subscripts, uninitialized variables: Uninitialized Subscripts.
* arrays, the in operator: Reference to Elements.
* artificial intelligence, using gawk: Distribution contents.
* ASCII: Ordinal Functions.
-* assert: Assert Function.
-* assert, C version: Assert Function.
+* asort built-in function <1>: String Functions.
+* asort built-in function: Array Sorting.
+* assert C library function: Assert Function.
+* assert user-defined function: Assert Function.
* assertions: Assert Function.
* assignment operators: Assignment Ops.
* assignment to fields: Changing Fields.
+* assoc_clear internal function: Internals.
+* assoc_lookup internal function: Internals.
* associative arrays: Array Intro.
-* atan2: Numeric Functions.
+* atan2 built-in function: Numeric Functions.
* atari: Atari Installation.
* automatic initialization: More Complex.
+* automatic warnings <1>: Options.
+* automatic warnings <2>: I/O Functions.
+* automatic warnings <3>: String Functions.
+* automatic warnings <4>: Using Constant Regexps.
+* automatic warnings <5>: Special Caveats.
+* automatic warnings <6>: Special Process.
+* automatic warnings: Escape Sequences.
+* awf (amazingly workable formatter) program: Glossary.
* awk language, POSIX version <1>: Definition Syntax.
-* awk language, POSIX version <2>: String Functions.
-* awk language, POSIX version <3>: User-modified.
-* awk language, POSIX version <4>: Next Statement.
-* awk language, POSIX version <5>: Continue Statement.
-* awk language, POSIX version <6>: Break Statement.
-* awk language, POSIX version <7>: Precedence.
-* awk language, POSIX version <8>: Assignment Ops.
-* awk language, POSIX version <9>: Arithmetic Ops.
-* awk language, POSIX version <10>: Conversion.
-* awk language, POSIX version <11>: Format Modifiers.
-* awk language, POSIX version <12>: OFMT.
-* awk language, POSIX version <13>: Field Splitting Summary.
-* awk language, POSIX version <14>: Regexp Operators.
+* awk language, POSIX version <2>: Gory Details.
+* awk language, POSIX version <3>: String Functions.
+* awk language, POSIX version <4>: User-modified.
+* awk language, POSIX version <5>: Next Statement.
+* awk language, POSIX version <6>: Continue Statement.
+* awk language, POSIX version <7>: Break Statement.
+* awk language, POSIX version <8>: Precedence.
+* awk language, POSIX version <9>: Assignment Ops.
+* awk language, POSIX version <10>: Arithmetic Ops.
+* awk language, POSIX version <11>: Conversion.
+* awk language, POSIX version <12>: Format Modifiers.
+* awk language, POSIX version <13>: OFMT.
+* awk language, POSIX version <14>: Field Splitting Summary.
+* awk language, POSIX version <15>: Character Lists.
+* awk language, POSIX version <16>: Regexp Operators.
* awk language, POSIX version: Escape Sequences.
* awk language, V.4 version <1>: SVR4.
* awk language, V.4 version: Escape Sequences.
+* awka compiler for awk programs: Other Versions.
+* awka, source code: Other Versions.
+* AWKNUM internal type: Internals.
* AWKPATH environment variable: AWKPATH Variable.
-* awksed: Simple Sed.
+* awkprof.out profiling output file: Profiling.
+* awksed.awk program: Simple Sed.
+* awkvars.out global variable list output file: Options.
* backslash continuation <1>: Egrep Program.
* backslash continuation: Statements/Lines.
-* backslash continuation and comments: Statements/Lines.
-* backslash continuation in csh <1>: Statements/Lines.
-* backslash continuation in csh: More Complex.
+* backslash continuation, and comments: Statements/Lines.
+* backslash continuation, in csh <1>: Statements/Lines.
+* backslash continuation, in csh: More Complex.
* basic function of awk: Getting Started.
+* basic programming concepts: Basic Concepts.
* BBS-list file: Sample Data Files.
+* Beebe, Nelson: Acknowledgments.
* BEGIN special pattern: BEGIN/END.
-* beginfile: Filetrans Function.
+* beginfile user-defined function: Filetrans Function.
+* BeOS: BeOS Installation.
+* Berry, Karl: Acknowledgments.
+* binary I/O: User-modified.
+* bindtextdomain built-in function <1>: Programmer i18n.
+* bindtextdomain built-in function: I18N Functions.
+* bindtextdomain C library function: Explaining gettext.
+* bindtextdomain user-defined function: I18N Portability.
+* BINMODE variable <1>: PC Using.
+* BINMODE variable: User-modified.
+* bits2str user-defined function: Bitwise Functions.
+* bitwise complement: Bitwise Functions.
+* bitwise operations: Bitwise Functions.
+* bitwise shift: Bitwise Functions.
+* blocks, BEGIN and END <1>: Profiling.
+* blocks, BEGIN and END: BEGIN/END.
* body of a loop: While Statement.
* book, using this: This Manual.
* boolean expressions: Boolean Ops.
* boolean operators: Boolean Ops.
+* bracket expression: Regexp Operators.
+* Brandon, Dick: This Manual.
* break statement: Break Statement.
* break, outside of loops: Break Statement.
* Brennan, Michael <1>: Other Versions.
* Brennan, Michael <2>: Simple Sed.
+* Brennan, Michael <3>: Two-way I/O.
* Brennan, Michael: Delete.
+* Broder, Alan J.: Contributors.
+* Brown, Martin <1>: Bugs.
+* Brown, Martin <2>: Contributors.
+* Brown, Martin: Acknowledgments.
+* BSD portal files: Portal Files.
+* BSD-based operating systems <1>: Glossary.
+* BSD-based operating systems <2>: Portal Files.
+* BSD-based operating systems: Manual History.
* buffer matching operators: GNU Regexp Operators.
* buffering output: I/O Functions.
* buffering, interactive vs. non-interactive: I/O Functions.
* buffering, non-interactive vs. interactive: I/O Functions.
* buffers, flushing: I/O Functions.
+* bug reports: Bugs.
+* bug reports, email address, bug-gawk@gnu.org: Bugs.
+* bug-gawk@gnu.org bug reporting address: Bugs.
* bugs, known in gawk: Known Bugs.
* built-in functions: Built-in.
* built-in variables: Built-in Variables.
@@ -17532,91 +20735,180 @@ Index
* case sensitivity: Case-sensitivity.
* changing contents of a field: Changing Fields.
* changing the record separator: Records.
-* character classes: Regexp Operators.
+* character class <1>: Character Lists.
+* character class: Regexp Operators.
* character encodings: Ordinal Functions.
* character list: Regexp Operators.
* character list, complemented: Regexp Operators.
-* character sets: Ordinal Functions.
-* chr: Ordinal Functions.
-* close <1>: I/O Functions.
-* close: Close Files And Pipes.
+* character set (regexp component): Regexp Operators.
+* character sets (machine character encodings) <1>: Glossary.
+* character sets (machine character encodings): Ordinal Functions.
+* Chassell, Robert J.: Acknowledgments.
+* chem utility: Glossary.
+* chr user-defined function: Ordinal Functions.
+* Cliff random numbers: Cliff Random Function.
+* cliff_rand user-defined function: Cliff Random Function.
+* close built-in function <1>: I/O Functions.
+* close built-in function: Close Files And Pipes.
+* Close, Diane <1>: Contributors.
+* Close, Diane: Manual History.
+* close, return value: Close Files And Pipes.
+* closing coprocesses: Close Files And Pipes.
* closing input files and pipes: Close Files And Pipes.
* closing output files and pipes: Close Files And Pipes.
* coding style used in gawk: Adding Code.
-* collating elements: Regexp Operators.
-* collating symbols: Regexp Operators.
-* command line: Invoking Gawk.
-* command line formats: Running gawk.
+* collating elements: Character Lists.
+* collating symbols: Character Lists.
+* comma operator, not supported: For Statement.
+* command line: Command Line.
* command line, setting FS on: Command Line Field Separator.
+* command-line formats: Running gawk.
+* command-line option, --assign: Options.
+* command-line option, --compat: Options.
+* command-line option, --copyleft: Options.
+* command-line option, --copyright: Options.
+* command-line option, --dump-variables: Options.
+* command-line option, --field-separator: Options.
+* command-line option, --file: Options.
+* command-line option, --gen-po <1>: Options.
+* command-line option, --gen-po: String Extraction.
+* command-line option, --help: Options.
+* command-line option, --lint: Options.
+* command-line option, --lint-old: Options.
+* command-line option, --non-decimal-data <1>: Options.
+* command-line option, --non-decimal-data: Non-decimal Data.
+* command-line option, --posix: Options.
+* command-line option, --profile: Options.
+* command-line option, --re-interval: Options.
+* command-line option, --source: Options.
+* command-line option, --traditional: Options.
+* command-line option, --usage: Options.
+* command-line option, --version: Options.
+* command-line option, -f: Options.
+* command-line option, -F <1>: Options.
+* command-line option, -F: Command Line Field Separator.
+* command-line option, -f: Long.
+* command-line option, -mf: Options.
+* command-line option, -mr: Options.
+* command-line option, -v: Options.
+* command-line option, -W: Options.
* comments: Comments.
* comments and backslash continuation: Statements/Lines.
-* common mistakes <1>: Typing and Comparison.
-* common mistakes <2>: Print Examples.
-* common mistakes <3>: Basic Field Splitting.
-* common mistakes: Computed Regexps.
-* comp.lang.awk: Bugs.
+* common mistakes <1>: Options.
+* common mistakes <2>: String Functions.
+* common mistakes <3>: Typing and Comparison.
+* common mistakes <4>: Concatenation.
+* common mistakes <5>: Arithmetic Ops.
+* common mistakes <6>: Special FD.
+* common mistakes <7>: Redirection.
+* common mistakes <8>: Print Examples.
+* common mistakes <9>: Field Separators.
+* common mistakes <10>: Computed Regexps.
+* common mistakes: Escape Sequences.
+* comp.lang.awk Usenet news group: Bugs.
* comparison expressions: Typing and Comparison.
* comparisons, string vs. regexp: Typing and Comparison.
* compatibility mode <1>: POSIX/GNU.
* compatibility mode: Options.
+* compiled programs <1>: Glossary.
+* compiled programs: Basic High Level.
+* compl built-in function: Bitwise Functions.
+* complement, bitwise: Bitwise Functions.
* complemented character list: Regexp Operators.
* compound statement: Statements.
* computed regular expressions: Computed Regexps.
* concatenation: Concatenation.
+* concatenation evaluation order: Concatenation.
* conditional expression: Conditional Exp.
+* configuration option, --disable-nls: Additional Configuration Options.
+* configuration option, --enable-portals <1>: Additional Configuration Options.
+* configuration option, --enable-portals: Portal Files.
+* configuration option, --with-included-gettext <1>: Additional Configuration Options.
+* configuration option, --with-included-gettext: Gawk I18N.
* configuring gawk: Configuration Philosophy.
* constants, types of: Constants.
* continuation of lines: Statements/Lines.
* continue statement: Continue Statement.
* continue, outside of loops: Continue Statement.
+* contributors to gawk: Contributors.
* control statement: Statements.
+* conventions, programming <1>: Internal File Ops.
+* conventions, programming <2>: Nextfile Function.
+* conventions, programming <3>: Library Names.
+* conventions, programming <4>: Non-decimal Data.
+* conventions, programming <5>: Return Statement.
+* conventions, programming <6>: Definition Syntax.
+* conventions, programming <7>: Calling Built-in.
+* conventions, programming <8>: Auto-set.
+* conventions, programming: Exit Statement.
* conversion of case: String Functions.
* conversion of strings and numbers: Conversion.
* conversions, during subscripting: Numeric Array Subscripts.
-* converting dates to timestamps: Mktime Function.
-* CONVFMT <1>: Numeric Array Subscripts.
-* CONVFMT <2>: User-modified.
-* CONVFMT: Conversion.
-* cos: Numeric Functions.
+* converting dates to timestamps: Time Functions.
+* CONVFMT variable <1>: Numeric Array Subscripts.
+* CONVFMT variable <2>: User-modified.
+* CONVFMT variable: Conversion.
+* coprocess <1>: Two-way I/O.
+* coprocess <2>: Close Files And Pipes.
+* coprocess <3>: Redirection.
+* coprocess: Getline/Coprocess.
+* cos built-in function: Numeric Functions.
+* csh utility <1>: Options.
+* csh utility <2>: Two-way I/O.
+* csh utility <3>: Statements/Lines.
+* csh utility <4>: More Complex.
+* csh utility: Quoting.
* csh, backslash continuation <1>: Statements/Lines.
* csh, backslash continuation: More Complex.
* curly braces: Action Overview.
* custom.h configuration file: Configuration Philosophy.
* cut utility: Cut Program.
-* cut.awk: Cut Program.
-* d.c., see "dark corner": This Manual.
-* dark corner <1>: Other Arguments.
-* dark corner <2>: Invoking Gawk.
-* dark corner <3>: String Functions.
-* dark corner <4>: Uninitialized Subscripts.
-* dark corner <5>: Auto-set.
-* dark corner <6>: Exit Statement.
-* dark corner <7>: Continue Statement.
-* dark corner <8>: Break Statement.
-* dark corner <9>: Using BEGIN/END.
+* cut.awk program: Cut Program.
+* d.c., see "dark corner": Conventions.
+* dark corner <1>: Glossary.
+* dark corner <2>: Other Arguments.
+* dark corner <3>: Command Line.
+* dark corner <4>: String Functions.
+* dark corner <5>: Uninitialized Subscripts.
+* dark corner <6>: Auto-set.
+* dark corner <7>: Exit Statement.
+* dark corner <8>: Continue Statement.
+* dark corner <9>: Break Statement.
* dark corner <10>: Truth Values.
-* dark corner <11>: Conversion.
-* dark corner <12>: Assignment Options.
-* dark corner <13>: Using Constant Regexps.
-* dark corner <14>: Format Modifiers.
-* dark corner <15>: Control Letters.
-* dark corner <16>: OFMT.
-* dark corner <17>: Getline Summary.
-* dark corner <18>: Plain Getline.
-* dark corner <19>: Multiple Line.
-* dark corner <20>: Field Splitting Summary.
-* dark corner <21>: Single Character Fields.
-* dark corner <22>: Records.
-* dark corner <23>: Escape Sequences.
-* dark corner: This Manual.
+* dark corner <11>: Assignment Ops.
+* dark corner <12>: Conversion.
+* dark corner <13>: Assignment Options.
+* dark corner <14>: Using Constant Regexps.
+* dark corner <15>: Close Files And Pipes.
+* dark corner <16>: Format Modifiers.
+* dark corner <17>: Control Letters.
+* dark corner <18>: OFMT.
+* dark corner <19>: Getline Notes.
+* dark corner <20>: Multiple Line.
+* dark corner <21>: Field Splitting Summary.
+* dark corner <22>: Single Character Fields.
+* dark corner <23>: Changing Fields.
+* dark corner <24>: Records.
+* dark corner <25>: Escape Sequences.
+* dark corner: Conventions.
+* data files, non-readable, skipping: File Checking.
+* data files, readable, checking: File Checking.
+* data-driven languages <1>: Basic High Level.
* data-driven languages: Getting Started.
-* dates, converting to timestamps: Mktime Function.
+* dates, converting to timestamps: Time Functions.
+* Davies, Stephen <1>: Bugs.
+* Davies, Stephen: Contributors.
+* dcgettext built-in function <1>: Programmer i18n.
+* dcgettext built-in function: I18N Functions.
+* dcgettext user-defined function: I18N Portability.
+* deadlock: Two-way I/O.
* decrement operators: Increment Ops.
* default action: Very Simple.
* default pattern: Very Simple.
* defining functions: Definition Syntax.
* Deifik, Scott <1>: Bugs.
-* Deifik, Scott: Acknowledgements.
+* Deifik, Scott <2>: Contributors.
+* Deifik, Scott: Acknowledgments.
* delete statement: Delete.
* deleting elements of arrays: Delete.
* deleting entire arrays: Delete.
@@ -17627,62 +20919,88 @@ Index
* differences between gawk and awk <3>: Calling Built-in.
* differences between gawk and awk <4>: Delete.
* differences between gawk and awk <5>: ARGC and ARGV.
-* differences between gawk and awk <6>: Nextfile Statement.
-* differences between gawk and awk <7>: I/O And BEGIN/END.
-* differences between gawk and awk <8>: Conditional Exp.
-* differences between gawk and awk <9>: Arithmetic Ops.
-* differences between gawk and awk <10>: Using Constant Regexps.
-* differences between gawk and awk <11>: Scalar Constants.
-* differences between gawk and awk <12>: Close Files And Pipes.
-* differences between gawk and awk <13>: Special Files.
-* differences between gawk and awk <14>: Redirection.
-* differences between gawk and awk <15>: Getline Summary.
-* differences between gawk and awk <16>: Getline Intro.
-* differences between gawk and awk <17>: Single Character Fields.
-* differences between gawk and awk <18>: Records.
+* differences between gawk and awk <6>: User-modified.
+* differences between gawk and awk <7>: Nextfile Statement.
+* differences between gawk and awk <8>: I/O And BEGIN/END.
+* differences between gawk and awk <9>: Conditional Exp.
+* differences between gawk and awk <10>: Arithmetic Ops.
+* differences between gawk and awk <11>: Using Constant Regexps.
+* differences between gawk and awk <12>: Scalar Constants.
+* differences between gawk and awk <13>: Close Files And Pipes.
+* differences between gawk and awk <14>: Special FD.
+* differences between gawk and awk <15>: Redirection.
+* differences between gawk and awk <16>: Format Modifiers.
+* differences between gawk and awk <17>: Getline Notes.
+* differences between gawk and awk <18>: Getline/Coprocess.
+* differences between gawk and awk <19>: Getline.
+* differences between gawk and awk <20>: Single Character Fields.
+* differences between gawk and awk <21>: Records.
* differences between gawk and awk: Case-sensitivity.
+* directory search <1>: VMS Running.
+* directory search <2>: PC Using.
+* directory search <3>: Igawk Program.
* directory search: AWKPATH Variable.
* division: Arithmetic Ops.
+* do-while statement: Do Statement.
+* documentation, online: Manual History.
* documenting awk programs <1>: Library Names.
* documenting awk programs: Comments.
-* dupword.awk: Dupword Program.
+* double-precision floating-point, definition of: Basic Data Typing.
+* Drepper, Ulrich: Acknowledgments.
+* dupnode internal function: Internals.
+* dupword.awk program: Dupword Program.
+* dynamic profiling: Profiling.
* dynamic regular expressions: Computed Regexps.
+* dynamic regular expressions with embedded newlines: Computed Regexps.
* EBCDIC: Ordinal Functions.
-* egrep <1>: Regexp Operators.
-* egrep: One-shot.
-* egrep utility: Egrep Program.
-* egrep.awk: Egrep Program.
+* egrep utility <1>: Egrep Program.
+* egrep utility: Character Lists.
+* egrep.awk program: Egrep Program.
* element assignment: Assigning Elements.
* element of array: Reference to Elements.
+* emaill address for bug reports, bug-gawk@gnu.org: Bugs.
+* embedded newlines, in dynamic regexps: Computed Regexps.
+* EMISTERED: TCP/IP Networking.
* empty action: Very Simple.
* empty pattern: Empty.
-* empty program: Invoking Gawk.
+* empty program: Command Line.
* empty string <1>: Truth Values.
* empty string <2>: Conversion.
* empty string <3>: Regexp Field Splitting.
* empty string: Records.
+* empty string, definition of: Basic Data Typing.
* END special pattern: BEGIN/END.
-* endfile: Filetrans Function.
-* endgrent: Group Functions.
-* endpwent: Passwd Functions.
-* ENVIRON: Auto-set.
+* endfile user-defined function: Filetrans Function.
+* endgrent user-defined function: Group Functions.
+* endpwent user-defined function: Passwd Functions.
+* ENVIRON variable: Auto-set.
* environment variable, AWKPATH: AWKPATH Variable.
* environment variable, POSIXLY_CORRECT: Options.
-* equivalence classes: Regexp Operators.
-* ERRNO <1>: Auto-set.
-* ERRNO <2>: Close Files And Pipes.
-* ERRNO: Getline Intro.
-* errors, common <1>: Typing and Comparison.
-* errors, common <2>: Print Examples.
-* errors, common <3>: Basic Field Splitting.
-* errors, common: Computed Regexps.
-* escape processing, sub et. al.: String Functions.
+* epoch, definition of: Glossary.
+* equivalence classes: Character Lists.
+* ERRNO variable <1>: Auto-set.
+* ERRNO variable: Getline.
+* errors, common <1>: Options.
+* errors, common <2>: String Functions.
+* errors, common <3>: Typing and Comparison.
+* errors, common <4>: Concatenation.
+* errors, common <5>: Arithmetic Ops.
+* errors, common <6>: Special FD.
+* errors, common <7>: Redirection.
+* errors, common <8>: Print Examples.
+* errors, common <9>: Field Separators.
+* errors, common <10>: Computed Regexps.
+* errors, common: Escape Sequences.
+* escape processing, sub et. al.: Gory Details.
* escape sequence notation: Escape Sequences.
-* evaluation, order of: Calling Built-in.
+* evaluation, order of <1>: Calling Built-in.
+* evaluation, order of <2>: Increment Ops.
+* evaluation, order of: Concatenation.
* examining fields: Fields.
* executable scripts: Executable Scripts.
* exit statement: Exit Statement.
-* exp: Numeric Functions.
+* exp built-in function: Numeric Functions.
+* expand utility: Very Simple.
* explicit input: Getline.
* exponentiation: Arithmetic Ops.
* expression: Expressions.
@@ -17691,99 +21009,180 @@ Index
* expression, comparison: Typing and Comparison.
* expression, conditional: Conditional Exp.
* expression, matching: Typing and Comparison.
-* extract.awk: Extract Program.
-* features, adding: Adding Code.
-* fflush: I/O Functions.
+* extension built-in function: Using Internal File Ops.
+* extensions, Bell Laboratories awk: BTL.
+* extensions, mawk: Other Versions.
+* extract.awk program: Extract Program.
+* extraction, of marked strings (internationalization): String Extraction.
+* fatal errors <1>: File Checking.
+* fatal errors <2>: Options.
+* fatal errors <3>: I/O Functions.
+* fatal errors <4>: String Functions.
+* fatal errors <5>: Calling Built-in.
+* fatal errors <6>: Format Modifiers.
+* fatal errors: Constant Size.
+* FDL: GNU Free Documentation License.
+* features, adding to gawk: Adding Code.
+* features, advanced: Advanced Features.
+* features, undocumented: Undocumented.
+* Fenlason, Jay <1>: Contributors.
+* Fenlason, Jay: History.
+* fflush built-in function: I/O Functions.
* field operator $: Fields.
-* field separator, choice of: Basic Field Splitting.
-* field separator, FS: Basic Field Splitting.
+* field separator, choice of: Field Separators.
+* field separator, FS: Field Separators.
* field separator, on command line: Command Line Field Separator.
-* field, changing contents of: Changing Fields.
* fields: Fields.
-* fields, separating: Basic Field Splitting.
-* FIELDWIDTHS: User-modified.
-* file descriptors: Special Files.
+* fields, changing contents of: Changing Fields.
+* fields, definition of: Basic High Level.
+* fields, separating: Field Separators.
+* FIELDWIDTHS variable: User-modified.
+* file descriptors: Special FD.
* file, awk program: Long.
-* FILENAME <1>: Auto-set.
-* FILENAME <2>: Getline Summary.
-* FILENAME: Reading Files.
-* FILENAME, being set by getline: Getline Summary.
-* Fish, Fred: Bugs.
+* FILENAME variable <1>: Auto-set.
+* FILENAME variable <2>: Getline Notes.
+* FILENAME variable: Reading Files.
+* FILENAME, being set by getline: Getline Notes.
+* Fish, Fred <1>: Bugs.
+* Fish, Fred: Contributors.
+* flag variables <1>: Tee Program.
+* flag variables <2>: Ranges.
+* flag variables: Boolean Ops.
+* floating-point, definition of: Basic Data Typing.
+* floating-point, positive and negative values for zero: Floating Point Issues.
+* floating-point, precision issues: Floating Point Issues.
* flushing buffers: I/O Functions.
-* FNR <1>: Auto-set.
-* FNR: Records.
-* for (x in ...): Scanning an Array.
+* FNR variable <1>: Auto-set.
+* FNR variable: Records.
+* for (x in ...) statement: Scanning an Array.
* for statement: For Statement.
-* format specifier: Control Letters.
+* force_number internal function: Internals.
+* force_string internal function: Internals.
+* format specifier, printf: Control Letters.
+* format specifier, strftime: Time Functions.
+* format specifiers, mixing regular with positional specifiers (printf): Printf Ordering.
* format string: Basic Printf.
* format, numeric output: OFMT.
* formatted output: Printf.
* formatted timestamps: Gettimeofday Function.
-* Free Software Foundation <1>: Getting.
+* Free Documentation License: GNU Free Documentation License.
+* Free Software Foundation <1>: Glossary.
+* Free Software Foundation <2>: Getting.
* Free Software Foundation: Manual History.
+* free_temp internal macro: Internals.
+* FreeBSD <1>: Glossary.
* FreeBSD: Manual History.
-* Friedl, Jeffrey: Acknowledgements.
-* FS <1>: User-modified.
-* FS: Basic Field Splitting.
-* ftp, anonymous <1>: Other Versions.
+* FS variable <1>: User-modified.
+* FS variable: Field Separators.
+* FSF <1>: Glossary.
+* FSF <2>: Getting.
+* FSF: Manual History.
* ftp, anonymous: Getting.
* function call <1>: Function Caveats.
* function call: Function Calls.
* function definition: Definition Syntax.
* function, recursive: Definition Syntax.
+* function, user-defined: User-defined.
* functions, undefined: Function Caveats.
-* functions, user-defined: User-defined.
-* gawk coding style: Adding Code.
-* gensub: String Functions.
-* getgrent: Group Functions.
-* getgrent, C version: Group Functions.
-* getgrgid: Group Functions.
-* getgrnam: Group Functions.
-* getgruser: Group Functions.
-* getline: Getline.
-* getline, return values: Getline Intro.
-* getline, setting FILENAME: Getline Summary.
-* getopt: Getopt Function.
-* getopt, C version: Getopt Function.
-* getpwent: Passwd Functions.
-* getpwent, C version: Passwd Functions.
-* getpwnam: Passwd Functions.
-* getpwuid: Passwd Functions.
-* gettimeofday: Gettimeofday Function.
+* G-d: Acknowledgments.
+* Garfinkle, Scott: Contributors.
+* gawk, coding style: Adding Code.
+* gawk, source code: Getting.
+* General Public License <1>: Glossary.
+* General Public License <2>: New Ports.
+* General Public License <3>: Other Versions.
+* General Public License: Manual History.
+* gensub built-in function: String Functions.
+* gensub, escape processing: Gory Details.
+* get_argument internal function: Internals.
+* getgrent C library function: Group Functions.
+* getgrent user-defined function: Group Functions.
+* getgrgid user-defined function: Group Functions.
+* getgrnam user-defined function: Group Functions.
+* getgruser user-defined function: Group Functions.
+* getline built-in function: Getline.
+* getline, return values: Getline.
+* getline, setting FILENAME: Getline Notes.
+* getopt C library function: Getopt Function.
+* getopt user-defined function: Getopt Function.
+* getpwent C library function: Passwd Functions.
+* getpwent user-defined function: Passwd Functions.
+* getpwnam user-defined function: Passwd Functions.
+* getpwuid user-defined function: Passwd Functions.
+* getservbyname C library function: TCP/IP Networking.
+* gettext C library function: Explaining gettext.
+* gettext, how it works: Explaining gettext.
+* gettimeofday user-defined function: Gettimeofday Function.
* getting gawk: Getting.
+* GNITS mailing list: Acknowledgments.
+* GNU Free Documentation License: GNU Free Documentation License.
+* GNU General Public License <1>: Glossary.
+* GNU General Public License <2>: New Ports.
+* GNU General Public License <3>: Other Versions.
+* GNU General Public License: Manual History.
+* GNU Lesser General Public License <1>: Glossary.
+* GNU Lesser General Public License: Other Versions.
+* GNU Project <1>: Glossary.
* GNU Project: Manual History.
+* GNU/Linux <1>: Glossary.
+* GNU/Linux <2>: Using Internal File Ops.
+* GNU/Linux <3>: Internal File Ops.
+* GNU/Linux <4>: Dynamic Extensions.
+* GNU/Linux <5>: Atari Compiling.
+* GNU/Linux <6>: Additional Configuration Options.
+* GNU/Linux <7>: Installation.
+* GNU/Linux <8>: I18N Example.
+* GNU/Linux: Manual History.
+* GPL <1>: Glossary.
+* GPL <2>: New Ports.
+* GPL <3>: Other Versions.
+* GPL: Manual History.
* grcat program: Group Functions.
-* grcat.c: Group Functions.
+* Grigera, Juan <1>: Bugs.
+* Grigera, Juan: Contributors.
* group file: Group Functions.
* group information: Group Functions.
-* gsub: String Functions.
+* gsub built-in function: String Functions.
+* gsub, escape processing: Gory Details.
* gsub, third argument of: String Functions.
* Hankerson, Darrel <1>: Bugs.
-* Hankerson, Darrel: Acknowledgements.
-* historical features <1>: Historical Features.
-* historical features <2>: String Functions.
-* historical features <3>: Continue Statement.
-* historical features <4>: Break Statement.
+* Hankerson, Darrel <2>: Contributors.
+* Hankerson, Darrel: Acknowledgments.
+* Hartholz, Elaine: Acknowledgments.
+* Hartholz, Marshall: Acknowledgments.
+* hexadecimal numbers: Non-decimal-numbers.
+* historical features <1>: String Functions.
+* historical features <2>: Continue Statement.
+* historical features <3>: Break Statement.
* historical features: Command Line Field Separator.
* history of awk: History.
-* histsort.awk: History Sorting.
+* histsort.awk program: History Sorting.
* how awk works: Two Rules.
-* Hughes, Phil: Acknowledgements.
-* I/O from BEGIN and END: I/O And BEGIN/END.
+* Hughes, Phil: Acknowledgments.
+* HUP signal: Profiling.
+* I/O, binary: User-modified.
+* I/O, from BEGIN and END: I/O And BEGIN/END.
+* I/O, two-way: Two-way I/O.
* id utility: Id Program.
-* id.awk: Id Program.
+* id.awk program: Id Program.
* if-else statement: If Statement.
-* igawk.sh: Igawk Program.
-* IGNORECASE <1>: Array Intro.
-* IGNORECASE <2>: User-modified.
-* IGNORECASE: Case-sensitivity.
-* IGNORECASE and array subscripts: Array Intro.
+* igawk.sh program: Igawk Program.
+* IGNORECASE variable <1>: Array Sorting.
+* IGNORECASE variable <2>: Array Intro.
+* IGNORECASE variable <3>: User-modified.
+* IGNORECASE variable: Case-sensitivity.
+* IGNORECASE, and array sorting: Array Sorting.
+* IGNORECASE, and array subscripts: Array Intro.
* ignoring case: Case-sensitivity.
* implementation limits <1>: Redirection.
-* implementation limits: Getline Summary.
+* implementation limits: Getline Notes.
+* in operator <1>: Id Program.
+* in operator <2>: Scanning an Array.
+* in operator <3>: For Statement.
+* in operator <4>: Precedence.
* in operator: Typing and Comparison.
* increment operators: Increment Ops.
-* index: String Functions.
+* index built-in function: String Functions.
* initialization, automatic: More Complex.
* input: Reading Files.
* input file, sample: Sample Data Files.
@@ -17794,100 +21193,212 @@ Index
* input, getline command: Getline.
* input, multiple line records: Multiple Line.
* input, standard: Read Terminal.
+* insomnia, cure for: Alarm Program.
* installation, amiga: Amiga Installation.
* installation, atari: Atari Installation.
-* installation, MS-DOS and OS/2: PC Installation.
+* installation, beos: BeOS Installation.
+* installation, pc operating systems: PC Installation.
+* installation, tandem: Tandem Installation.
* installation, unix: Quick Installation.
* installation, vms: VMS Installation.
-* int: Numeric Functions.
+* int built-in function: Numeric Functions.
+* integer, definition of: Basic Data Typing.
+* integer, unsigned: Basic Data Typing.
* interaction, awk and other programs: I/O Functions.
* interactive buffering vs. non-interactive: I/O Functions.
+* internal function, assoc_clear: Internals.
+* internal function, assoc_lookup: Internals.
+* internal function, dupnode: Internals.
+* internal function, force_number: Internals.
+* internal function, force_string: Internals.
+* internal function, get_argument: Internals.
+* internal function, make_builtin: Internals.
+* internal function, make_number: Internals.
+* internal function, make_string: Internals.
+* internal function, set_value: Internals.
+* internal function, tmp_number: Internals.
+* internal function, tmp_string: Internals.
+* internal function, update_ERRNO: Internals.
+* internal macro, free_temp: Internals.
+* internal type, AWKNUM: Internals.
+* internal type, NODE: Internals.
+* internal variable, param_cnt: Internals.
+* internal variable, stlen: Internals.
+* internal variable, stptr: Internals.
+* internal variable, type: Internals.
+* internal variable, vname: Internals.
+* internationalization <1>: I18N and L10N.
+* internationalization: User-modified.
+* internationalization features in gawk: Internationalization.
+* internationalization of awk programs, portability issues: I18N Portability.
+* internationalization, marked strings: Programmer i18n.
+* internationalizing a program: Explaining gettext.
+* interpreted programs <1>: Glossary.
+* interpreted programs: Basic High Level.
* interval expressions: Regexp Operators.
* inventory-shipped file: Sample Data Files.
-* invocation of gawk: Invoking Gawk.
+* invocation of gawk: Command Line.
+* ISO: Glossary.
* ISO 8601: Time Functions.
* ISO 8859-1 <1>: Glossary.
* ISO 8859-1: Case-sensitivity.
* ISO Latin-1 <1>: Glossary.
* ISO Latin-1: Case-sensitivity.
-* Jaegermann, Michal <1>: Bugs.
-* Jaegermann, Michal: Acknowledgements.
-* join: Join Function.
-* Kernighan, Brian <1>: Other Versions.
-* Kernighan, Brian <2>: BTL.
-* Kernighan, Brian <3>: Concatenation.
-* Kernighan, Brian <4>: Acknowledgements.
+* Jacobs, Andrew: Passwd Functions.
+* Jaegermann, Michal <1>: Contributors.
+* Jaegermann, Michal: Acknowledgments.
+* Jedi knights: Undocumented.
+* join user-defined function: Join Function.
+* Kahrs, Ju"rgen <1>: Contributors.
+* Kahrs, Ju"rgen: Acknowledgments.
+* Kenobi, Obi-Wan: Undocumented.
+* Kernighan, Brian <1>: Basic Data Typing.
+* Kernighan, Brian <2>: Other Versions.
+* Kernighan, Brian <3>: Contributors.
+* Kernighan, Brian <4>: BTL.
+* Kernighan, Brian <5>: Concatenation.
+* Kernighan, Brian <6>: Acknowledgments.
+* Kernighan, Brian <7>: Conventions.
* Kernighan, Brian: History.
+* kill command: Profiling.
+* Knights, jedi: Undocumented.
* known bugs: Known Bugs.
-* labels.awk: Labels Program.
+* Kwok, Conrad: Contributors.
+* labels.awk program: Labels Program.
* language, awk: This Manual.
+* language, data-driven <1>: Basic High Level.
* language, data-driven: Getting Started.
* language, procedural: Getting Started.
+* LC_ALL locale category: Explaining gettext.
+* LC_COLLATE locale category: Explaining gettext.
+* LC_CTYPE locale category: Explaining gettext.
+* LC_MESSAGES locale category: Explaining gettext.
+* LC_MONETARY locale category: Explaining gettext.
+* LC_NUMERIC locale category: Explaining gettext.
+* LC_RESPONSE locale category: Explaining gettext.
+* LC_TIME locale category: Explaining gettext.
+* left shift, bitwise: Bitwise Functions.
* leftmost longest match <1>: Multiple Line.
* leftmost longest match: Leftmost Longest.
-* length: String Functions.
+* length built-in function: String Functions.
+* Lesser General Public License <1>: Glossary.
+* Lesser General Public License: Other Versions.
+* LGPL <1>: Glossary.
+* LGPL: Other Versions.
* limitations <1>: Redirection.
-* limitations: Getline Summary.
+* limitations: Getline Notes.
* line break: Statements/Lines.
* line continuation <1>: Conditional Exp.
* line continuation <2>: Boolean Ops.
* line continuation <3>: Print Examples.
* line continuation: Statements/Lines.
-* Linux <1>: Atari Compiling.
+* lint checks <1>: Options.
+* lint checks <2>: Command Line.
+* lint checks <3>: Function Caveats.
+* lint checks <4>: Uninitialized Subscripts.
+* lint checks <5>: Delete.
+* lint checks <6>: User-modified.
+* lint checks: Format Modifiers.
+* LINT variable: User-modified.
+* Linux <1>: Glossary.
+* Linux <2>: Using Internal File Ops.
+* Linux <3>: Internal File Ops.
+* Linux <4>: Dynamic Extensions.
+* Linux <5>: Atari Compiling.
+* Linux <6>: Additional Configuration Options.
+* Linux <7>: Installation.
+* Linux <8>: I18N Example.
* Linux: Manual History.
+* locale categories: Explaining gettext.
* locale, definition of: Time Functions.
-* log: Numeric Functions.
+* localization: I18N and L10N.
+* log built-in function: Numeric Functions.
* logical false: Truth Values.
-* logical operations: Boolean Ops.
+* logical operators: Boolean Ops.
* logical true: Truth Values.
* login information: Passwd Functions.
-* long options: Invoking Gawk.
+* long options: Command Line.
* loop: While Statement.
* loops, exiting: Break Statement.
+* Lost In Space: Dynamic Extensions.
+* ls utility: More Complex.
+* lshift built-in function: Bitwise Functions.
* lvalue: Assignment Ops.
+* make_builtin internal function: Internals.
+* make_number internal function: Internals.
+* make_string internal function: Internals.
* mark parity: Ordinal Functions.
-* match: String Functions.
+* marked string extraction (internationalization): String Extraction.
+* marked strings for internationalization: Programmer i18n.
+* Marx, Groucho: Increment Ops.
+* match built-in function: String Functions.
* matching ranges of lines: Ranges.
* matching, leftmost longest <1>: Multiple Line.
* matching, leftmost longest: Leftmost Longest.
-* mawk: Other Versions.
+* matching, the null string: Gory Details.
+* mawk, source code: Other Versions.
* merging strings: Join Function.
+* message object files (gettext): Explaining gettext.
* metacharacters: Regexp Operators.
-* mistakes, common <1>: Typing and Comparison.
-* mistakes, common <2>: Print Examples.
-* mistakes, common <3>: Basic Field Splitting.
-* mistakes, common: Computed Regexps.
-* mktime: Mktime Function.
+* mistakes, common <1>: Options.
+* mistakes, common <2>: String Functions.
+* mistakes, common <3>: Typing and Comparison.
+* mistakes, common <4>: Concatenation.
+* mistakes, common <5>: Arithmetic Ops.
+* mistakes, common <6>: Special FD.
+* mistakes, common <7>: Redirection.
+* mistakes, common <8>: Print Examples.
+* mistakes, common <9>: Field Separators.
+* mistakes, common <10>: Computed Regexps.
+* mistakes, common: Escape Sequences.
+* mktime built-in function: Time Functions.
* modifiers (in format specifiers): Format Modifiers.
-* multi-dimensional subscripts: Multi-dimensional.
+* msgfmt utility: I18N Example.
+* multidimensional subscripts: Multi-dimensional.
* multiple line records: Multiple Line.
* multiple passes over data: Other Arguments.
* multiple statements on one line: Statements/Lines.
* multiplication: Arithmetic Ops.
-* names, use of: Definition Syntax.
-* namespace issues in awk: Library Names.
-* namespaces: Definition Syntax.
+* mv utility: Redirection.
+* names, use of <1>: Library Names.
+* names, use of <2>: Definition Syntax.
+* names, use of: Arrays.
+* namespace issues in awk <1>: Library Names.
+* namespace issues in awk <2>: Definition Syntax.
+* namespace issues in awk: Arrays.
+* negative zero: Floating Point Issues.
+* NetBSD <1>: Glossary.
* NetBSD: Manual History.
+* networking, TCP/IP: TCP/IP Networking.
* new awk: History.
* new awk vs. old awk: Names.
* newline: Statements/Lines.
+* newlines, embedded in dynamic regexps: Computed Regexps.
+* next file statement <1>: POSIX/GNU.
* next file statement: Nextfile Statement.
* next statement: Next Statement.
* next, inside a user-defined function: Next Statement.
-* nextfile function: Nextfile Function.
* nextfile statement: Nextfile Statement.
-* NF <1>: Auto-set.
-* NF: Fields.
+* nextfile user-defined function: Nextfile Function.
+* nextfile, inside a user-defined function: Nextfile Statement.
+* NF variable <1>: Auto-set.
+* NF variable: Fields.
+* noassign.awk program: Ignoring Assigns.
+* NODE internal type: Internals.
* non-interactive buffering vs. interactive: I/O Functions.
-* not operator: Boolean Ops.
-* NR <1>: Auto-set.
-* NR: Records.
+* non-readable data files, skipping: File Checking.
+* NOT logical operator: Boolean Ops.
+* NR variable <1>: Auto-set.
+* NR variable: Records.
* null string <1>: Truth Values.
* null string <2>: Conversion.
* null string: Regexp Field Splitting.
* null string, as array subscript: Uninitialized Subscripts.
+* null string, definition of: Basic Data Typing.
* number of fields, NF: Fields.
* number of records, NR, FNR: Records.
+* numbers, hexadecimal: Non-decimal-numbers.
+* numbers, octal: Non-decimal-numbers.
* numbers, used as subscripts: Numeric Array Subscripts.
* numeric character values: Ordinal Functions.
* numeric constant: Scalar Constants.
@@ -17896,33 +21407,42 @@ Index
* numeric value: Scalar Constants.
* obsolete features: Obsolete.
* obsolete options: Obsolete.
-* OFMT <1>: User-modified.
-* OFMT <2>: Conversion.
-* OFMT: OFMT.
-* OFS <1>: User-modified.
-* OFS: Output Separators.
+* octal numbers: Non-decimal-numbers.
+* OFMT variable <1>: User-modified.
+* OFMT variable <2>: Conversion.
+* OFMT variable: OFMT.
+* OFS variable <1>: User-modified.
+* OFS variable: Output Separators.
* old awk: History.
* old awk vs. new awk: Names.
-* one-liners: One-liners.
-* operations, logical: Boolean Ops.
-* operator precedence: Precedence.
+* one-liners: Very Simple.
+* online documentation: Manual History.
+* OpenBSD <1>: Glossary.
+* OpenBSD: Manual History.
+* operator precedence <1>: Precedence.
+* operator precedence: Increment Ops.
* operators, arithmetic: Arithmetic Ops.
* operators, assignment: Assignment Ops.
* operators, boolean: Boolean Ops.
* operators, decrement: Increment Ops.
* operators, increment: Increment Ops.
+* operators, logical: Boolean Ops.
* operators, regexp matching: Regexp Usage.
* operators, relational: Typing and Comparison.
* operators, short-circuit: Boolean Ops.
* operators, string: Concatenation.
* operators, string-matching: Regexp Usage.
-* options, command line: Invoking Gawk.
-* options, long: Invoking Gawk.
-* or operator: Boolean Ops.
-* ord: Ordinal Functions.
+* options, command-line: Command Line.
+* options, long: Command Line.
+* OR bitwise operation: Bitwise Functions.
+* or built-in function: Bitwise Functions.
+* OR logical operator: Boolean Ops.
+* ord user-defined function: Ordinal Functions.
* order of evaluation: Calling Built-in.
-* ORS <1>: User-modified.
-* ORS: Output Separators.
+* order of evaluation, concatenation: Concatenation.
+* ORS variable <1>: User-modified.
+* ORS variable: Output Separators.
+* other awk implementations: Other Versions.
* output: Printing.
* output field separator, OFS: Output Separators.
* output format specifier, OFMT: OFMT.
@@ -17931,8 +21451,13 @@ Index
* output, buffering: I/O Functions.
* output, formatted: Printf.
* output, piping: Redirection.
+* P1003.2 POSIX standard: Glossary.
+* param_cnt internal variable: Internals.
* passes, multiple: Other Arguments.
* password file: Passwd Functions.
+* path, search <1>: VMS Running.
+* path, search <2>: PC Using.
+* path, search <3>: Igawk Program.
* path, search: AWKPATH Variable.
* pattern, BEGIN: BEGIN/END.
* pattern, default: Very Simple.
@@ -17941,485 +21466,747 @@ Index
* pattern, END: BEGIN/END.
* pattern, range: Ranges.
* pattern, regular expressions: Regexp.
-* patterns, types of: Kinds of Patterns.
-* per file initialization and clean-up: Filetrans Function.
+* patterns, types of: Pattern Overview.
+* per file initialization and cleanup: Filetrans Function.
* PERL: Future Extensions.
+* Peters, Arno: Contributors.
+* Peterson, Hal: Contributors.
+* pgawk program: Profiling.
* pipeline, input: Getline/Pipe.
* pipes for output: Redirection.
-* portability issues <1>: Portability Notes.
-* portability issues <2>: Definition Syntax.
-* portability issues <3>: I/O Functions.
-* portability issues <4>: String Functions.
-* portability issues <5>: Delete.
-* portability issues <6>: Close Files And Pipes.
-* portability issues <7>: Escape Sequences.
-* portability issues: Statements/Lines.
+* piping commands into the shell: Redirection.
+* portability issues <1>: Library Functions.
+* portability issues <2>: I18N Portability.
+* portability issues <3>: Function Caveats.
+* portability issues <4>: Definition Syntax.
+* portability issues <5>: I/O Functions.
+* portability issues <6>: String Functions.
+* portability issues <7>: Delete.
+* portability issues <8>: Precedence.
+* portability issues <9>: Increment Ops.
+* portability issues <10>: Assignment Ops.
+* portability issues <11>: Arithmetic Ops.
+* portability issues <12>: Close Files And Pipes.
+* portability issues <13>: Changing Fields.
+* portability issues <14>: Records.
+* portability issues <15>: Escape Sequences.
+* portability issues <16>: Statements/Lines.
+* portability issues: Executable Scripts.
+* portability issues, internationalization of awk programs: I18N Portability.
+* portable object files (gettext): Explaining gettext.
+* portal files: Portal Files.
* porting gawk: New Ports.
+* positional specifier, printf <1>: Printf Ordering.
+* positional specifier, printf: Format Modifiers.
+* positional specifiers, mixing with regular formats (printf): Printf Ordering.
+* positive zero: Floating Point Issues.
* POSIX awk <1>: Definition Syntax.
-* POSIX awk <2>: String Functions.
-* POSIX awk <3>: User-modified.
-* POSIX awk <4>: Next Statement.
-* POSIX awk <5>: Continue Statement.
-* POSIX awk <6>: Break Statement.
-* POSIX awk <7>: Precedence.
-* POSIX awk <8>: Assignment Ops.
-* POSIX awk <9>: Arithmetic Ops.
-* POSIX awk <10>: Conversion.
-* POSIX awk <11>: Format Modifiers.
-* POSIX awk <12>: OFMT.
-* POSIX awk <13>: Field Splitting Summary.
-* POSIX awk <14>: Regexp Operators.
+* POSIX awk <2>: Gory Details.
+* POSIX awk <3>: String Functions.
+* POSIX awk <4>: User-modified.
+* POSIX awk <5>: Next Statement.
+* POSIX awk <6>: Continue Statement.
+* POSIX awk <7>: Break Statement.
+* POSIX awk <8>: Precedence.
+* POSIX awk <9>: Assignment Ops.
+* POSIX awk <10>: Arithmetic Ops.
+* POSIX awk <11>: Conversion.
+* POSIX awk <12>: Format Modifiers.
+* POSIX awk <13>: OFMT.
+* POSIX awk <14>: Field Splitting Summary.
+* POSIX awk <15>: Character Lists.
+* POSIX awk <16>: Regexp Operators.
* POSIX awk: Escape Sequences.
* POSIX mode: Options.
* POSIXLY_CORRECT environment variable: Options.
-* precedence: Precedence.
+* precedence <1>: Precedence.
+* precedence: Increment Ops.
* precedence, regexp operators: Regexp Operators.
* print statement: Print.
+* printf statement: Printf.
* printf statement, syntax of: Basic Printf.
* printf, format-control characters: Control Letters.
+* printf, mixing positional specifiers with regular formats: Printf Ordering.
* printf, modifiers: Format Modifiers.
+* printf, positional specifier <1>: Printf Ordering.
+* printf, positional specifier: Format Modifiers.
* printing: Printing.
+* problem reports: Bugs.
* procedural languages: Getting Started.
-* process information: Special Files.
+* process information: Special Process.
* processing arguments: Getopt Function.
+* processing data: Basic High Level.
+* PROCINFO variable: Auto-set.
+* profiling awk programs: Profiling.
+* profiling output file (awkprof.out): Profiling.
+* profiling, dynamic: Profiling.
* program file: Long.
* program, awk: This Manual.
* program, definition of: Getting Started.
-* program, self contained: Executable Scripts.
+* program, self-contained: Executable Scripts.
+* programming concepts, basic: Basic Concepts.
+* programming conventions <1>: Internal File Ops.
+* programming conventions <2>: Nextfile Function.
+* programming conventions <3>: Library Names.
+* programming conventions <4>: Non-decimal Data.
+* programming conventions <5>: Return Statement.
+* programming conventions <6>: Definition Syntax.
+* programming conventions <7>: Calling Built-in.
+* programming conventions <8>: Auto-set.
+* programming conventions: Exit Statement.
+* programming language, recipe for: History.
+* programming, basic steps: Basic High Level.
+* programs, compiled: Basic High Level.
* programs, documenting <1>: Library Names.
* programs, documenting: Comments.
+* programs, interpreted: Basic High Level.
* pwcat program: Passwd Functions.
-* pwcat.c: Passwd Functions.
* quotient: Arithmetic Ops.
-* quoting, shell <1>: Long.
+* quoting rules, shell: Quoting.
+* quoting, shell <1>: Comments.
+* quoting, shell <2>: Long.
* quoting, shell: Read Terminal.
* Rakitzis, Byron: History Sorting.
-* rand: Numeric Functions.
+* rand built-in function: Numeric Functions.
+* random numbers, Cliff: Cliff Random Function.
* random numbers, seed of: Numeric Functions.
* range pattern: Ranges.
* Rankin, Pat <1>: Bugs.
-* Rankin, Pat <2>: Assignment Ops.
-* Rankin, Pat: Acknowledgements.
+* Rankin, Pat <2>: Contributors.
+* Rankin, Pat <3>: Assignment Ops.
+* Rankin, Pat: Acknowledgments.
+* readable data files, checking: File Checking.
+* readable.awk program: File Checking.
* reading files: Reading Files.
* reading files, getline command: Getline.
* reading files, multiple line records: Multiple Line.
+* recipe for a programming language: History.
* record separator, RS: Records.
* record terminator, RT: Records.
+* record, definition of <1>: Basic High Level.
* record, definition of: Records.
* records, multiple line: Multiple Line.
* recursive function: Definition Syntax.
* redirection of input: Getline/File.
* redirection of output: Redirection.
+* reference counting: Array Sorting.
* reference to array: Reference to Elements.
* regexp: Regexp.
* regexp as expression: Typing and Comparison.
* regexp comparison vs. string comparison: Typing and Comparison.
* regexp constant: Regexp Usage.
* regexp constants, difference between slashes and quotes: Computed Regexps.
-* regexp match/non-match operators <1>: Typing and Comparison.
-* regexp match/non-match operators: Regexp Usage.
-* regexp matching operators: Regexp Usage.
-* regexp operators: Regexp Operators.
+* regexp operators <1>: Typing and Comparison.
+* regexp operators <2>: Regexp Operators.
+* regexp operators: Regexp Usage.
* regexp operators, GNU specific: GNU Regexp Operators.
* regexp operators, precedence of: Regexp Operators.
* regexp, anchors: Regexp Operators.
* regexp, dynamic: Computed Regexps.
-* regexp, effect of command line options: GNU Regexp Operators.
+* regexp, dynamic, with embedded newlines: Computed Regexps.
+* regexp, effect of command-line options: GNU Regexp Operators.
* regular expression: Regexp.
* regular expression metacharacters: Regexp Operators.
-* regular expressions as field separators: Basic Field Splitting.
+* regular expressions as field separators: Field Separators.
* regular expressions as patterns: Regexp.
* regular expressions as record separators: Records.
* regular expressions, computed: Computed Regexps.
* relational operators: Typing and Comparison.
* remainder: Arithmetic Ops.
* removing elements of arrays: Delete.
+* reporting bugs: Bugs.
+* reporting problems: Bugs.
* return statement: Return Statement.
-* RFC-1036: Time Functions.
-* RFC-822: Time Functions.
-* RLENGTH <1>: String Functions.
-* RLENGTH: Auto-set.
-* Robbins, Miriam: Acknowledgements.
+* return value from close: Close Files And Pipes.
+* rewind user-defined function: Rewind Function.
+* RFC 1036: Time Functions.
+* RFC 822: Time Functions.
+* right shift, bitwise: Bitwise Functions.
+* Ritchie, Dennis: Basic Data Typing.
+* RLENGTH variable <1>: String Functions.
+* RLENGTH variable: Auto-set.
+* Robbins, Arnold <1>: Future Extensions.
+* Robbins, Arnold <2>: Bugs.
+* Robbins, Arnold <3>: Contributors.
+* Robbins, Arnold <4>: Alarm Program.
+* Robbins, Arnold <5>: Passwd Functions.
+* Robbins, Arnold <6>: Getline/Pipe.
+* Robbins, Arnold: Command Line Field Separator.
+* Robbins, Bill: Getline/Pipe.
+* Robbins, Harry: Acknowledgments.
+* Robbins, Jean: Acknowledgments.
+* Robbins, Miriam <1>: Passwd Functions.
+* Robbins, Miriam <2>: Getline/Pipe.
+* Robbins, Miriam: Acknowledgments.
+* Robinson, Will: Dynamic Extensions.
+* robot, the: Dynamic Extensions.
* Rommel, Kai Uwe <1>: Bugs.
-* Rommel, Kai Uwe: Acknowledgements.
-* round: Round Function.
+* Rommel, Kai Uwe <2>: Contributors.
+* Rommel, Kai Uwe: Acknowledgments.
+* round user-defined function: Round Function.
* rounding: Round Function.
-* RS <1>: User-modified.
-* RS: Records.
-* RSTART <1>: String Functions.
-* RSTART: Auto-set.
-* RT <1>: Auto-set.
-* RT <2>: Multiple Line.
-* RT: Records.
+* RS variable <1>: User-modified.
+* RS variable: Records.
+* rshift built-in function: Bitwise Functions.
+* RSTART variable <1>: String Functions.
+* RSTART variable: Auto-set.
+* RT variable <1>: Auto-set.
+* RT variable <2>: Multiple Line.
+* RT variable: Records.
+* Rubin, Paul <1>: Contributors.
+* Rubin, Paul: History.
* rule, definition of: Getting Started.
* running awk programs: Running gawk.
* running long programs: Long.
* rvalue: Assignment Ops.
-* sample input file: Sample Data Files.
+* sample input files: Sample Data Files.
+* scalar, definition of: Basic Data Typing.
* scanning an array: Scanning an Array.
+* Schreiber, Bert: Acknowledgments.
+* Schreiber, Rita: Acknowledgments.
* script, definition of: Getting Started.
* scripts, executable: Executable Scripts.
-* scripts, shell: Executable Scripts.
+* search path <1>: VMS Running.
+* search path <2>: PC Using.
+* search path <3>: Igawk Program.
* search path: AWKPATH Variable.
+* search path, for source files <1>: VMS Running.
+* search path, for source files <2>: PC Using.
+* search path, for source files <3>: Igawk Program.
* search path, for source files: AWKPATH Variable.
-* sed utility <1>: Igawk Program.
-* sed utility <2>: Simple Sed.
+* sed utility <1>: Glossary.
+* sed utility <2>: Igawk Program.
+* sed utility <3>: Simple Sed.
* sed utility: Field Splitting Summary.
* seed for random numbers: Numeric Functions.
-* self contained programs: Executable Scripts.
-* shell quoting <1>: Long.
+* self-contained programs: Executable Scripts.
+* set_value internal function: Internals.
+* sex, comparisons with <1>: Manual History.
+* sex, comparisons with: This Manual.
+* sex, programmer attractiveness: Two-way I/O.
+* shell and awk interaction: Using Shell Variables.
+* shell quoting <1>: Comments.
+* shell quoting <2>: Long.
* shell quoting: Read Terminal.
-* shell scripts: Executable Scripts.
+* shell quoting rules: Quoting.
+* shell quoting, tricks: Quoting.
+* shell varibles, using in awk programs: Using Shell Variables.
+* shell, piping commands into: Redirection.
+* shift, bitwise: Bitwise Functions.
* short-circuit operators: Boolean Ops.
-* side effect: Assignment Ops.
+* side effects <1>: Array Sorting.
+* side effects <2>: Reference to Elements.
+* side effects <3>: Action Overview.
+* side effects <4>: Function Calls.
+* side effects <5>: Conditional Exp.
+* side effects <6>: Boolean Ops.
+* side effects <7>: Increment Ops.
+* side effects <8>: Assignment Ops.
+* side effects <9>: Concatenation.
+* side effects: Getline Notes.
+* SIGHUP signal: Profiling.
+* signals, SIGHUP: Profiling.
+* signals, SIGUSR1: Profiling.
+* SIGUSR1 signal: Profiling.
* simple stream editor: Simple Sed.
-* sin: Numeric Functions.
-* single character fields: Single Character Fields.
+* sin built-in function: Numeric Functions.
* single quotes, why needed: One-shot.
+* single-character fields: Single Character Fields.
+* single-precision floating-point, definition of: Basic Data Typing.
* skipping input files: Nextfile Function.
* skipping lines between markers: Ranges.
+* Skywalker, Luke: Undocumented.
+* sleep utility: Alarm Program.
+* sort utility: Word Sorting.
+* source code, awka: Other Versions.
+* source code, gawk: Getting.
+* source code, mawk: Other Versions.
+* source code, Unix awk: Other Versions.
* sparse arrays: Array Intro.
-* split: String Functions.
+* Spencer, Henry: Glossary.
+* split built-in function: String Functions.
* split utility: Split Program.
-* split.awk: Split Program.
-* sprintf: String Functions.
-* sqrt: Numeric Functions.
-* srand: Numeric Functions.
-* Stallman, Richard <1>: Acknowledgements.
+* split.awk program: Split Program.
+* sprintf built-in function: String Functions.
+* sqrt built-in function: Numeric Functions.
+* srand built-in function: Numeric Functions.
+* Stallman, Richard <1>: Glossary.
+* Stallman, Richard <2>: Contributors.
+* Stallman, Richard <3>: Acknowledgments.
* Stallman, Richard: Manual History.
-* standard error output: Special Files.
-* standard input <1>: Special Files.
+* standard error output: Special FD.
+* standard input <1>: Special FD.
* standard input <2>: Reading Files.
* standard input: Read Terminal.
-* standard output: Special Files.
+* standard output: Special FD.
* statement, compound: Statements.
+* stlen internal variable: Internals.
+* stptr internal variable: Internals.
+* stream editor <1>: Igawk Program.
+* stream editor <2>: Simple Sed.
* stream editor: Field Splitting Summary.
* stream editor, simple: Simple Sed.
-* strftime: Time Functions.
+* strftime built-in function: Time Functions.
* string comparison vs. regexp comparison: Typing and Comparison.
-* string constants: Constants.
+* string constants: Scalar Constants.
+* string extraction (internationalization): String Extraction.
* string operators: Concatenation.
* string-matching operators: Regexp Usage.
-* sub: String Functions.
+* strtonum built-in function: String Functions.
+* sub built-in function: String Functions.
+* sub, escape processing: Gory Details.
* sub, third argument of: String Functions.
* subscripts in arrays: Multi-dimensional.
-* SUBSEP <1>: Multi-dimensional.
-* SUBSEP: User-modified.
-* substr: String Functions.
+* SUBSEP variable <1>: Multi-dimensional.
+* SUBSEP variable: User-modified.
+* substr built-in function: String Functions.
* subtraction: Arithmetic Ops.
-* system: I/O Functions.
-* systime: Time Functions.
+* Sumner, Andrew: Other Versions.
+* syntactic ambiguity: /= operator vs. /=.../ regexp constant: Assignment Ops.
+* system built-in function: I/O Functions.
+* systime built-in function: Time Functions.
+* tandem: Tandem Installation.
* Tcl: Library Names.
+* TCP/IP networking <1>: Portal Files.
+* TCP/IP networking: TCP/IP Networking.
* tee utility: Tee Program.
-* tee.awk: Tee Program.
+* tee.awk program: Tee Program.
* terminator, record: Records.
+* testbits.awk program: Bitwise Functions.
+* Texinfo <1>: Adding Code.
+* Texinfo <2>: Distribution contents.
+* Texinfo <3>: Extract Program.
+* Texinfo <4>: Dupword Program.
+* Texinfo <5>: Library Functions.
+* Texinfo <6>: Regexp Operators.
+* Texinfo <7>: Sample Data Files.
+* Texinfo <8>: Acknowledgments.
+* Texinfo: Conventions.
+* textdomain C library function: Explaining gettext.
+* TEXTDOMAIN variable <1>: Programmer i18n.
+* TEXTDOMAIN variable: User-modified.
* time of day: Time Functions.
* timestamps: Time Functions.
-* timestamps, converting from dates: Mktime Function.
+* timestamps, converting from dates: Time Functions.
* timestamps, formatted: Gettimeofday Function.
-* tolower: String Functions.
-* toupper: String Functions.
-* translate.awk: Translate Program.
-* Trueman, David: Acknowledgements.
+* tmp_number internal function: Internals.
+* tmp_string internal function: Internals.
+* tolower built-in function: String Functions.
+* Torvalds, Linus: Manual History.
+* toupper built-in function: String Functions.
+* tr utility: Translate Program.
+* translate.awk program: Translate Program.
+* Trueman, David <1>: Contributors.
+* Trueman, David <2>: Acknowledgments.
+* Trueman, David: History.
* truth values: Truth Values.
+* two-way I/O: Two-way I/O.
* type conversion: Conversion.
+* type internal variable: Internals.
* types of variables <1>: Typing and Comparison.
* types of variables: Assignment Ops.
* undefined functions: Function Caveats.
* undocumented features: Undocumented.
* uninitialized variables, as array subscripts: Uninitialized Subscripts.
* uniq utility: Uniq Program.
-* uniq.awk: Uniq Program.
+* uniq.awk program: Uniq Program.
+* Unix: Glossary.
+* Unix awk, source code: Other Versions.
+* unsigned integers: Basic Data Typing.
+* update_ERRNO internal function: Internals.
* use of comments: Comments.
* user information: Passwd Functions.
* user-defined functions: User-defined.
* user-defined variables: Using Variables.
-* uses of awk: What Is Awk.
+* uses of awk <1>: When.
+* uses of awk: Preface.
+* uses of gawk: Preface.
+* using shell variables in awk programs: Using Shell Variables.
* using this book: This Manual.
+* USR1 signal: Profiling.
* values of characters as numbers: Ordinal Functions.
+* values, numeric: Basic Data Typing.
+* values, string: Basic Data Typing.
* variable shadowing: Definition Syntax.
* variable typing: Typing and Comparison.
+* variable, definition of: Basic Data Typing.
* variables, user-defined: Using Variables.
+* vname internal variable: Internals.
+* w utility: Constant Size.
* Wall, Larry: Future Extensions.
+* warnings, automatic <1>: Options.
+* warnings, automatic <2>: I/O Functions.
+* warnings, automatic <3>: String Functions.
+* warnings, automatic <4>: Using Constant Regexps.
+* warnings, automatic <5>: Special Caveats.
+* warnings, automatic <6>: Special Process.
+* warnings, automatic: Escape Sequences.
* wc utility: Wc Program.
-* wc.awk: Wc Program.
+* wc.awk program: Wc Program.
+* Weinberger, Peter <1>: Contributors.
* Weinberger, Peter: History.
-* when to use awk: When.
* while statement: While Statement.
+* Williams, Kent: Contributors.
+* Woods, John: Contributors.
* word boundaries, matching: GNU Regexp Operators.
* word, regexp definition of: GNU Regexp Operators.
-* wordfreq.sh: Word Sorting.
+* wordfreq.awk program: Word Sorting.
+* xgettext utility: String Extraction.
+* XOR bitwise operation: Bitwise Functions.
+* xor built-in function: Bitwise Functions.
+* Zaretskii, Eli: Acknowledgments.
+* zero, negative vs. positive: Floating Point Issues.
+* Zoulas, Christos: Contributors.
+* | I/O operator <1>: Precedence.
+* | I/O operator <2>: Redirection.
+* | I/O operator: Getline/Pipe.
+* |& I/O operator <1>: Two-way I/O.
+* |& I/O operator <2>: Precedence.
+* |& I/O operator <3>: Redirection.
+* |& I/O operator: Getline/Coprocess.
+* || operator <1>: Precedence.
* || operator: Boolean Ops.
-* ~ operator <1>: Typing and Comparison.
-* ~ operator <2>: Regexp Constants.
-* ~ operator <3>: Computed Regexps.
-* ~ operator <4>: Case-sensitivity.
+* ~ operator <1>: Precedence.
+* ~ operator <2>: Typing and Comparison.
+* ~ operator <3>: Regexp Constants.
+* ~ operator <4>: Computed Regexps.
+* ~ operator <5>: Case-sensitivity.
* ~ operator: Regexp Usage.

Tag Table:
-Node: Top1206
-Node: Preface20764
-Ref: Preface-Footnote-121881
-Node: History22113
-Node: Manual History23471
-Node: Acknowledgements26913
-Node: What Is Awk30542
-Node: This Manual32196
-Node: Conventions34896
-Node: Sample Data Files36188
-Node: Getting Started39271
-Node: Names41579
-Ref: Names-Footnote-143076
-Node: Running gawk43148
-Node: One-shot44309
-Node: Read Terminal45696
-Node: Long47308
-Node: Executable Scripts48701
-Ref: Executable Scripts-Footnote-150664
-Ref: Executable Scripts-Footnote-250813
-Node: Comments51267
-Node: Very Simple53049
-Node: Two Rules55096
-Node: More Complex57275
-Node: Statements/Lines60391
-Node: Other Features64664
-Node: When65390
-Node: One-liners67324
-Node: Regexp70211
-Node: Regexp Usage71537
-Node: Escape Sequences73687
-Node: Regexp Operators79141
-Node: GNU Regexp Operators90174
-Node: Case-sensitivity93880
-Node: Leftmost Longest96995
-Node: Computed Regexps98486
-Node: Reading Files101143
-Node: Records102910
-Node: Fields109405
-Ref: Fields-Footnote-1112387
-Node: Non-Constant Fields112473
-Node: Changing Fields114759
-Node: Field Separators119166
-Node: Basic Field Splitting119868
-Node: Regexp Field Splitting123097
-Node: Single Character Fields125663
-Node: Command Line Field Separator126732
-Node: Field Splitting Summary129972
-Ref: Field Splitting Summary-Footnote-1131891
-Node: Constant Size131992
-Node: Multiple Line136029
-Node: Getline141431
-Node: Getline Intro142505
-Node: Plain Getline143468
-Node: Getline/Variable145732
-Node: Getline/File146874
-Node: Getline/Variable/File148184
-Node: Getline/Pipe150158
-Node: Getline/Variable/Pipe152366
-Node: Getline Summary153602
-Node: Printing155196
-Node: Print156264
-Node: Print Examples158364
-Node: Output Separators160971
-Node: OFMT162869
-Node: Printf164271
-Node: Basic Printf165175
-Node: Control Letters166709
-Node: Format Modifiers169591
-Node: Printf Examples173740
-Node: Redirection176519
-Node: Special Files181157
-Node: Close Files And Pipes186395
-Node: Expressions190456
-Node: Constants192662
-Node: Scalar Constants193141
-Ref: Scalar Constants-Footnote-1194001
-Node: Regexp Constants194145
-Node: Using Constant Regexps194607
-Node: Variables197808
-Node: Using Variables198462
-Node: Assignment Options199897
-Node: Conversion201841
-Node: Arithmetic Ops205035
-Ref: Arithmetic Ops-Footnote-1207359
-Node: Concatenation207552
-Node: Assignment Ops208976
-Node: Increment Ops214571
-Node: Truth Values217099
-Node: Typing and Comparison218147
-Node: Boolean Ops224156
-Node: Conditional Exp227849
-Node: Function Calls229619
-Node: Precedence232499
-Node: Patterns and Actions235887
-Node: Pattern Overview236313
-Node: Kinds of Patterns237088
-Node: Regexp Patterns238225
-Node: Expression Patterns238779
-Node: Ranges242431
-Node: BEGIN/END245155
-Node: Using BEGIN/END245624
-Node: I/O And BEGIN/END248586
-Node: Empty250602
-Node: Action Overview250901
-Node: Statements253472
-Node: If Statement255178
-Node: While Statement256681
-Node: Do Statement258712
-Node: For Statement259814
-Node: Break Statement263071
-Node: Continue Statement265342
-Node: Next Statement267338
-Node: Nextfile Statement269835
-Node: Exit Statement271749
-Node: Built-in Variables273760
-Node: User-modified274856
-Ref: User-modified-Footnote-1279714
-Node: Auto-set279776
-Ref: Auto-set-Footnote-1286099
-Node: ARGC and ARGV286305
-Node: Arrays290144
-Node: Array Intro291669
-Node: Reference to Elements295709
-Node: Assigning Elements297659
-Node: Array Example298161
-Node: Scanning an Array299880
-Node: Delete302210
-Node: Numeric Array Subscripts304464
-Node: Uninitialized Subscripts306370
-Node: Multi-dimensional308015
-Node: Multi-scanning311110
-Node: Array Efficiency312778
-Node: Built-in313742
-Node: Calling Built-in314731
-Node: Numeric Functions316702
-Ref: Numeric Functions-Footnote-1320245
-Node: String Functions320515
-Ref: String Functions-Footnote-1339714
-Ref: String Functions-Footnote-2339765
-Node: I/O Functions339893
-Ref: I/O Functions-Footnote-1345612
-Node: Time Functions345703
-Ref: Time Functions-Footnote-1354022
-Ref: Time Functions-Footnote-2354133
-Ref: Time Functions-Footnote-3354409
-Node: User-defined354553
-Node: Definition Syntax355265
-Node: Function Example359514
-Node: Function Caveats361972
-Node: Return Statement365843
-Node: Invoking Gawk368498
-Node: Options369733
-Ref: Options-Footnote-1378777
-Node: Other Arguments378802
-Node: AWKPATH Variable381448
-Ref: AWKPATH Variable-Footnote-1383896
-Node: Obsolete384159
-Node: Undocumented384825
-Node: Known Bugs385076
-Node: Library Functions386214
-Node: Portability Notes388633
-Node: Nextfile Function389917
-Ref: Nextfile Function-Footnote-1394615
-Node: Assert Function394785
-Node: Round Function398137
-Node: Ordinal Functions399775
-Ref: Ordinal Functions-Footnote-1403000
-Node: Join Function403219
-Node: Mktime Function405264
-Ref: Mktime Function-Footnote-1416745
-Ref: Mktime Function-Footnote-2416951
-Node: Gettimeofday Function417034
-Node: Filetrans Function421039
-Node: Getopt Function424702
-Node: Passwd Functions436051
-Node: Group Functions444372
-Node: Library Names452256
-Node: Sample Programs456181
-Node: Clones456672
-Node: Cut Program457766
-Node: Egrep Program467788
-Node: Id Program475443
-Node: Split Program478707
-Node: Tee Program482068
-Node: Uniq Program484857
-Node: Wc Program492394
-Ref: Wc Program-Footnote-1496618
-Node: Miscellaneous Programs496799
-Node: Dupword Program497709
-Node: Alarm Program499373
-Node: Translate Program503911
-Ref: Translate Program-Footnote-1508391
-Ref: Translate Program-Footnote-2508534
-Node: Labels Program508729
-Ref: Labels Program-Footnote-1512181
-Node: Word Sorting512265
-Node: History Sorting516609
-Node: Extract Program518571
-Node: Simple Sed526160
-Node: Igawk Program529497
-Ref: Igawk Program-Footnote-1542660
-Node: Language History542798
-Node: V7/SVR3.1544031
-Node: SVR4546684
-Node: POSIX548204
-Node: BTL549823
-Node: POSIX/GNU550587
-Node: Gawk Summary555018
-Node: Command Line Summary555842
-Node: Language Summary558818
-Ref: Language Summary-Footnote-1561075
-Node: Variables/Fields561198
-Node: Fields Summary561932
-Ref: Fields Summary-Footnote-1563660
-Node: Built-in Summary563718
-Node: Arrays Summary567433
-Node: Data Type Summary568726
-Node: Rules Summary570552
-Node: Pattern Summary572080
-Node: Regexp Summary574265
-Node: Actions Summary577647
-Node: Operator Summary579479
-Node: Control Flow Summary580706
-Node: I/O Summary581263
-Node: Printf Summary584252
-Node: Special File Summary587647
-Node: Built-in Functions Summary589325
-Node: Time Functions Summary593325
-Node: String Constants Summary594216
-Node: Functions Summary595536
-Node: Historical Features596597
-Node: Installation598095
-Node: Gawk Distribution599310
-Node: Getting599813
-Node: Extracting602800
-Node: Distribution contents604187
-Node: Unix Installation608963
-Node: Quick Installation609472
-Node: Configuration Philosophy610990
-Node: VMS Installation613392
-Node: VMS Compilation613931
-Node: VMS Installation Details615535
-Node: VMS Running617177
-Node: VMS POSIX618767
-Node: PC Installation620047
-Node: Atari Installation623450
-Node: Atari Compiling624634
-Node: Atari Using626543
-Node: Amiga Installation629389
-Node: Bugs630500
-Node: Other Versions633504
-Node: Notes635178
-Node: Compatibility Mode635785
-Node: Additions636628
-Node: Adding Code637326
-Node: New Ports642840
-Node: Future Extensions647000
-Node: Improvements648946
-Node: Glossary650814
-Node: Copying667885
-Node: Index687077
+Node: Top1365
+Node: Foreword25650
+Node: Preface29974
+Ref: Preface-Footnote-132860
+Node: History33092
+Node: Names35352
+Ref: Names-Footnote-136853
+Node: This Manual36925
+Ref: This Manual-Footnote-142290
+Node: Conventions42397
+Node: Manual History44274
+Ref: Manual History-Footnote-148037
+Ref: Manual History-Footnote-248078
+Node: How To Contribute48152
+Node: Acknowledgments48750
+Node: Getting Started52540
+Node: Running gawk54933
+Node: One-shot56139
+Node: Read Terminal57398
+Ref: Read Terminal-Footnote-159051
+Node: Long59222
+Node: Executable Scripts60623
+Ref: Executable Scripts-Footnote-162359
+Ref: Executable Scripts-Footnote-262510
+Node: Comments62955
+Node: Quoting65349
+Node: Sample Data Files69331
+Node: Very Simple72427
+Node: Two Rules77034
+Node: More Complex79239
+Ref: More Complex-Footnote-182161
+Ref: More Complex-Footnote-282647
+Node: Statements/Lines82730
+Ref: Statements/Lines-Footnote-187094
+Node: Other Features87403
+Node: When88268
+Node: Regexp90257
+Node: Regexp Usage91648
+Node: Escape Sequences93713
+Node: Regexp Operators99658
+Ref: Regexp Operators-Footnote-1106811
+Ref: Regexp Operators-Footnote-2106957
+Node: Character Lists107055
+Node: GNU Regexp Operators111565
+Node: Case-sensitivity115046
+Ref: Case-sensitivity-Footnote-1118168
+Node: Leftmost Longest118403
+Node: Computed Regexps119717
+Node: Reading Files123108
+Node: Records124895
+Ref: Records-Footnote-1132790
+Node: Fields132827
+Ref: Fields-Footnote-1135886
+Node: Non-Constant Fields135972
+Node: Changing Fields138227
+Node: Field Separators142929
+Node: Regexp Field Splitting146473
+Node: Single Character Fields148974
+Node: Command Line Field Separator150037
+Node: Field Splitting Summary153467
+Ref: Field Splitting Summary-Footnote-1155571
+Node: Constant Size155672
+Node: Multiple Line160252
+Node: Getline165684
+Node: Plain Getline167748
+Node: Getline/Variable169804
+Node: Getline/File170964
+Node: Getline/Variable/File172389
+Node: Getline/Pipe173999
+Node: Getline/Variable/Pipe176195
+Node: Getline/Coprocess177411
+Node: Getline/Variable/Coprocess178683
+Node: Getline Notes179431
+Node: Getline Summary180780
+Node: Printing181485
+Node: Print183174
+Node: Print Examples184554
+Node: Output Separators187451
+Node: OFMT189267
+Node: Printf190669
+Node: Basic Printf191583
+Node: Control Letters193166
+Node: Format Modifiers195752
+Node: Printf Examples200802
+Node: Redirection203572
+Node: Special Files210306
+Node: Special FD210935
+Node: Special Process213978
+Node: Special Network216264
+Node: Special Caveats217177
+Ref: Special Caveats-Footnote-1218387
+Node: Close Files And Pipes218770
+Ref: Close Files And Pipes-Footnote-1225952
+Node: Expressions226100
+Node: Constants228288
+Node: Scalar Constants228984
+Ref: Scalar Constants-Footnote-1229845
+Node: Non-decimal-numbers230027
+Node: Regexp Constants233200
+Node: Using Constant Regexps233665
+Node: Variables236825
+Node: Using Variables237476
+Node: Assignment Options239017
+Node: Conversion240962
+Ref: Conversion-Footnote-1244196
+Node: Arithmetic Ops244305
+Node: Concatenation246802
+Node: Assignment Ops249497
+Node: Increment Ops255817
+Node: Truth Values259304
+Node: Typing and Comparison260350
+Ref: Typing and Comparison-Footnote-1266904
+Node: Boolean Ops267049
+Node: Conditional Exp271158
+Node: Function Calls272954
+Node: Precedence275921
+Node: Patterns and Actions279365
+Node: Pattern Overview280418
+Node: Regexp Patterns282034
+Node: Expression Patterns282593
+Node: Ranges286199
+Node: BEGIN/END289297
+Node: Using BEGIN/END290037
+Ref: Using BEGIN/END-Footnote-1292821
+Node: I/O And BEGIN/END292927
+Node: Empty295266
+Node: Using Shell Variables295566
+Node: Action Overview297926
+Node: Statements300510
+Node: If Statement302216
+Node: While Statement303723
+Node: Do Statement305746
+Node: For Statement306887
+Node: Break Statement310075
+Node: Continue Statement312179
+Node: Next Statement314127
+Node: Nextfile Statement316496
+Node: Exit Statement319250
+Node: Built-in Variables321359
+Node: User-modified322455
+Ref: User-modified-Footnote-1330031
+Node: Auto-set330093
+Ref: Auto-set-Footnote-1338167
+Node: ARGC and ARGV338372
+Node: Arrays342234
+Node: Array Intro344164
+Node: Reference to Elements348432
+Node: Assigning Elements350323
+Node: Array Example350785
+Node: Scanning an Array352508
+Node: Delete354839
+Ref: Delete-Footnote-1357290
+Node: Numeric Array Subscripts357347
+Node: Uninitialized Subscripts359626
+Node: Multi-dimensional361248
+Node: Multi-scanning364298
+Node: Array Sorting365968
+Node: Functions368782
+Node: Built-in369519
+Node: Calling Built-in370502
+Node: Numeric Functions372481
+Ref: Numeric Functions-Footnote-1376235
+Ref: Numeric Functions-Footnote-2376561
+Node: String Functions376831
+Ref: String Functions-Footnote-1393299
+Ref: String Functions-Footnote-2393460
+Node: Gory Details393544
+Ref: Gory Details-Footnote-1400132
+Ref: Gory Details-Footnote-2400183
+Node: I/O Functions400390
+Ref: I/O Functions-Footnote-1407133
+Node: Time Functions407224
+Ref: Time Functions-Footnote-1418026
+Ref: Time Functions-Footnote-2418098
+Ref: Time Functions-Footnote-3418257
+Ref: Time Functions-Footnote-4418368
+Ref: Time Functions-Footnote-5418493
+Ref: Time Functions-Footnote-6418752
+Node: Bitwise Functions419017
+Ref: Bitwise Functions-Footnote-1423725
+Node: I18N Functions423909
+Node: User-defined425173
+Node: Definition Syntax425949
+Node: Function Example430340
+Node: Function Caveats432982
+Node: Return Statement436894
+Node: Dynamic Typing439564
+Node: Internationalization440300
+Node: I18N and L10N441718
+Node: Explaining gettext442427
+Ref: Explaining gettext-Footnote-1447361
+Ref: Explaining gettext-Footnote-2447600
+Node: Programmer i18n447766
+Node: Translator i18n451569
+Node: String Extraction452354
+Ref: String Extraction-Footnote-1453304
+Node: Printf Ordering453501
+Ref: Printf Ordering-Footnote-1456293
+Node: I18N Portability456357
+Ref: I18N Portability-Footnote-1458617
+Node: I18N Example458680
+Ref: I18N Example-Footnote-1461302
+Node: Gawk I18N461374
+Node: Advanced Features462202
+Node: Non-decimal Data463636
+Node: Two-way I/O465248
+Ref: Two-way I/O-Footnote-1469889
+Node: TCP/IP Networking469966
+Node: Portal Files472445
+Node: Profiling473108
+Node: Invoking Gawk480308
+Node: Command Line481485
+Node: Options482284
+Ref: Options-Footnote-1494190
+Node: Other Arguments494215
+Node: AWKPATH Variable496967
+Ref: AWKPATH Variable-Footnote-1499758
+Node: Obsolete500017
+Node: Undocumented501098
+Node: Known Bugs501350
+Node: Library Functions501969
+Ref: Library Functions-Footnote-1505152
+Node: Library Names505323
+Ref: Library Names-Footnote-1508932
+Ref: Library Names-Footnote-2509152
+Node: General Functions509238
+Node: Nextfile Function510174
+Node: Assert Function514638
+Node: Round Function517974
+Node: Cliff Random Function519529
+Ref: Cliff Random Function-Footnote-1520512
+Node: Ordinal Functions520583
+Ref: Ordinal Functions-Footnote-1523661
+Node: Join Function523877
+Ref: Join Function-Footnote-1525682
+Node: Gettimeofday Function525882
+Node: Data File Management529660
+Node: Filetrans Function530220
+Node: Rewind Function533772
+Node: File Checking535396
+Node: Ignoring Assigns536442
+Node: Getopt Function538026
+Ref: Getopt Function-Footnote-1549173
+Node: Passwd Functions549374
+Ref: Passwd Functions-Footnote-1558085
+Node: Group Functions558173
+Node: Sample Programs566271
+Node: Running Examples567001
+Node: Clones567772
+Node: Cut Program568897
+Node: Egrep Program578768
+Ref: Egrep Program-Footnote-1586632
+Node: Id Program586742
+Node: Split Program590434
+Node: Tee Program593950
+Node: Uniq Program596621
+Node: Wc Program604115
+Ref: Wc Program-Footnote-1608430
+Node: Miscellaneous Programs608654
+Node: Dupword Program609643
+Node: Alarm Program611699
+Node: Translate Program616315
+Ref: Translate Program-Footnote-1620617
+Ref: Translate Program-Footnote-2620854
+Node: Labels Program620988
+Ref: Labels Program-Footnote-1624355
+Node: Word Sorting624439
+Node: History Sorting628742
+Node: Extract Program630612
+Node: Simple Sed638193
+Node: Igawk Program641394
+Ref: Igawk Program-Footnote-1654472
+Node: Language History654610
+Node: V7/SVR3.1655977
+Node: SVR4658572
+Node: POSIX660219
+Node: BTL662007
+Node: POSIX/GNU663824
+Node: Contributors672461
+Node: Installation675554
+Node: Gawk Distribution676533
+Node: Getting677033
+Node: Extracting678270
+Node: Distribution contents679650
+Node: Unix Installation685262
+Node: Quick Installation685848
+Node: Additional Configuration Options687595
+Node: Configuration Philosophy688708
+Node: Non-Unix Installation691091
+Node: Amiga Installation691673
+Node: BeOS Installation692818
+Node: PC Installation693990
+Node: PC Binary Installation695019
+Node: PC Compiling696017
+Node: PC Using697840
+Node: VMS Installation701526
+Node: VMS Compilation702045
+Node: VMS Installation Details703634
+Node: VMS Running705251
+Node: VMS POSIX706835
+Node: Unsupported708099
+Node: Atari Installation708497
+Node: Atari Compiling709818
+Node: Atari Using711747
+Node: Tandem Installation714611
+Node: Bugs716417
+Node: Other Versions719667
+Ref: Other Versions-Footnote-1723253
+Node: Notes723295
+Node: Compatibility Mode723968
+Node: Additions724809
+Node: Adding Code725581
+Node: New Ports731627
+Node: Dynamic Extensions735742
+Node: Internals736758
+Node: Sample Library743097
+Node: Internal File Description743747
+Node: Internal File Ops747499
+Ref: Internal File Ops-Footnote-1752915
+Node: Using Internal File Ops753063
+Node: Future Extensions755084
+Node: Basic Concepts759427
+Node: Basic High Level760165
+Ref: Basic High Level-Footnote-1764332
+Node: Basic Data Typing764526
+Node: Floating Point Issues769020
+Ref: Floating Point Issues-Footnote-1772943
+Ref: Floating Point Issues-Footnote-2772994
+Node: Glossary773103
+Node: Copying797415
+Node: GNU Free Documentation License816614
+Node: Index836506

End Tag Table
diff --git a/doc/gawk.texi b/doc/gawk.texi
index 2657b146..808ef6e8 100644
--- a/doc/gawk.texi
+++ b/doc/gawk.texi
@@ -4,38 +4,74 @@
@settitle The GNU Awk User's Guide
@c %**end of header (This is for running Texinfo on a region.)
-@c inside ifinfo for older versions of texinfo.tex
-@ifinfo
-@c I hope this is the right category
-@dircategory Programming Languages
+@dircategory GNU Packages
@direntry
-* Gawk: (gawk). A Text Scanning and Processing Language.
+* Gawk: (gawk). A text scanning and processing language.
+@end direntry
+@dircategory Individual utilities
+@direntry
+* awk: (gawk)Invoking gawk. Text scanning and processing.
@end direntry
-@end ifinfo
@c @set xref-automatic-section-title
-@c @set DRAFT
@c The following information should be updated here only!
@c This sets the edition of the document, the version of gawk it
-@c applies to, and when the document was updated.
-@set TITLE Effective AWK Programming
+@c applies to and all the info about who's publishing this edition
+
+@c These apply across the board.
+@set UPDATE-MONTH March, 2001
+@set VERSION 3.1
+@set PATCHLEVEL 0
+
+@set FSF
+
+@set TITLE GAWK: Effective AWK Programming
@set SUBTITLE A User's Guide for GNU Awk
-@set PATCHLEVEL 6
-@set EDITION 1.0.@value{PATCHLEVEL}
-@set VERSION 3.0
-@set UPDATE-MONTH July, 2000
+@set EDITION 3
+
@iftex
@set DOCUMENT book
+@set CHAPTER chapter
+@set APPENDIX appendix
+@set SECTION section
+@set SUBSECTION subsection
+@set DARKCORNER @inmargin{@image{lflashlight,1cm}, @image{rflashlight,1cm}}
@end iftex
@ifinfo
@set DOCUMENT Info file
+@set CHAPTER major node
+@set APPENDIX major node
+@set SECTION minor node
+@set SUBSECTION node
+@set DARKCORNER (d.c.)
@end ifinfo
+@ifhtml
+@set DOCUMENT Web page
+@set CHAPTER chapter
+@set APPENDIX appendix
+@set SECTION section
+@set SUBSECTION subsection
+@set DARKCORNER (d.c.)
+@end ifhtml
+
+@c some special symbols
+@iftex
+@set LEQ @math{@leq}
+@end iftex
+@ifnottex
+@set LEQ <=
+@end ifnottex
+
+@set FN file name
+@set FFN File Name
+@set DF data file
+@set DDF Data File
+@set PVERSION version
@ignore
Some comments on the layout for TeX.
-1. Use at least texinfo.tex 2.159. It contains fixes that
- are needed to get the footings for draft mode to not appear.
+1. Use at least texinfo.tex 2000-09-06.09
2. I have done A LOT of work to make this look good. There are `@page' commands
and use of `@group ... @end group' in a number of places. If you muck
with anything, it's your responsibility not to break the layout.
@@ -56,48 +92,45 @@ Some comments on the layout for TeX.
@c unwise to comment it out when running a master in case there are
@c overfulls which are deemed okay.
-@ifclear DRAFT
@iftex
@finalout
@end iftex
-@end ifclear
+@c Comment out the "smallbook" for technical review. Saves
+@c considerable paper. Remember to turn it back on *before*
+@c starting the page-breaking work.
@smallbook
-@iftex
-@c @cropmarks
-@end iftex
@ifinfo
-This file documents @code{awk}, a program that you can use to select
+This file documents @command{awk}, a program that you can use to select
particular records in a file and perform operations upon them.
-This is Edition @value{EDITION} of @cite{@value{TITLE}},
+This is Edition @value{EDITION} of @cite{@value{TITLE}: @value{SUBTITLE}},
for the @value{VERSION}.@value{PATCHLEVEL} version of the GNU implementation of AWK.
-Copyright (C) 1989, 1991, 1992, 1993, 1996-2000 Free Software Foundation, Inc.
+Copyright (C) 1989, 1991, 1992, 1993, 1996-2001 Free Software Foundation, Inc.
-Permission is granted to make and distribute verbatim copies of
-this manual provided the copyright notice and this permission notice
-are preserved on all copies.
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being ``GNU General Public License'', the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+``GNU Free Documentation License''.
-@ignore
-Permission is granted to process this file through TeX and print the
-results, provided the printed document carries copying permission
-notice identical to this one except for the removal of this paragraph
-(this paragraph not being relevant to the printed manual).
+@enumerate a
+@item
+``A GNU Manual''
-@end ignore
-Permission is granted to copy and distribute modified versions of this
-manual under the conditions for verbatim copying, provided that the entire
-resulting derived work is distributed under the terms of a permission
-notice identical to this one.
-
-Permission is granted to copy and distribute translations of this manual
-into another language, under the above conditions for modified versions,
-except that this permission notice may be stated in a translation approved
-by the Foundation.
+@item
+``You have freedom to copy and modify this GNU Manual, like GNU
+software. Copies published by the Free Software Foundation raise
+funds for GNU development.''
+@end enumerate
@end ifinfo
+@c Uncomment this for the release. Leaving it off saves paper
+@c during editing and review.
@setchapternewpage odd
@titlepage
@@ -106,73 +139,72 @@ by the Foundation.
@subtitle Edition @value{EDITION}
@subtitle @value{UPDATE-MONTH}
@author Arnold D. Robbins
-@ignore
-@sp 1
-@author Based on @cite{The GAWK Manual},
-@author by Robbins, Close, Rubin, and Stallman
-@end ignore
@c Include the Distribution inside the titlepage environment so
@c that headings are turned off. Headings on and off do not work.
@page
@vskip 0pt plus 1filll
-@ifset LEGALJUNK
+@ignore
The programs and applications presented in this book have been
-included for their instructional value. They have been tested with care,
+included for their instructional value. They have been tested with care
but are not guaranteed for any particular purpose. The publisher does not
offer any warranties or representations, nor does it accept any
liabilities with respect to the programs or applications.
So there.
@sp 2
-UNIX is a registered trademark of X/Open, Ltd. @*
-Microsoft, MS, and MS-DOS are registered trademarks, and Windows is a
+UNIX is a registered trademark of The Open Group in the United States and other countries. @*
+Microsoft, MS and MS-DOS are registered trademarks, and Windows is a
trademark of Microsoft Corporation in the United States and other
countries. @*
-Atari, 520ST, 1040ST, TT, STE, Mega, and Falcon are registered trademarks
+Atari, 520ST, 1040ST, TT, STE, Mega and Falcon are registered trademarks
or trademarks of Atari Corporation. @*
-DEC, Digital, OpenVMS, ULTRIX, and VMS, are trademarks of Digital Equipment
+DEC, Digital, OpenVMS, ULTRIX and VMS are trademarks of Digital Equipment
Corporation. @*
-@end ifset
+@end ignore
``To boldly go where no man has gone before'' is a
Registered Trademark of Paramount Pictures Corporation. @*
@c sorry, i couldn't resist
@sp 3
-Copyright @copyright{} 1989, 1991, 1992, 1993, 1996-2000 Free Software Foundation, Inc.
+Copyright @copyright{} 1989, 1991, 1992, 1993, 1996-2001 Free Software Foundation, Inc.
@sp 2
-
-This is Edition @value{EDITION} of @cite{@value{TITLE}}, @*
-for the @value{VERSION}.@value{PATCHLEVEL} (or later) version of the GNU implementation of AWK.
+
+This is Edition @value{EDITION} of @cite{@value{TITLE}: @value{SUBTITLE}},
+for the @value{VERSION}.@value{PATCHLEVEL} (or later) version of the GNU
+implementation of AWK.
@sp 2
Published by:
+@sp 1
Free Software Foundation @*
59 Temple Place --- Suite 330 @*
Boston, MA 02111-1307 USA @*
Phone: +1-617-542-5942 @*
Fax: +1-617-542-2652 @*
-Email: @code{gnu@@gnu.org} @*
-URL: @code{http://www.gnu.org/} @*
+Email: @email{gnu@@gnu.org} @*
+URL: @uref{http://www.gnu.org/} @*
-@sp 1
-@c this ISBN can change!
-@c This one is correct for gawk 3.0 and edition 1.0 from the FSF
-ISBN 1-882114-26-4 @*
-
-Permission is granted to make and distribute verbatim copies of
-this manual provided the copyright notice and this permission notice
-are preserved on all copies.
-
-Permission is granted to copy and distribute modified versions of this
-manual under the conditions for verbatim copying, provided that the entire
-resulting derived work is distributed under the terms of a permission
-notice identical to this one.
-
-Permission is granted to copy and distribute translations of this manual
-into another language, under the above conditions for modified versions,
-except that this permission notice may be stated in a translation approved
-by the Foundation.
+@c This one is correct for gawk 3.1.0 from the FSF
+ISBN 1-882114-28-0 @*
+
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being ``GNU General Public License'', the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+``GNU Free Documentation License''.
+
+@enumerate a
+@item
+``A GNU Manual''
+
+@item
+``You have freedom to copy and modify this GNU Manual, like GNU
+software. Copies published by the Free Software Foundation raise
+funds for GNU development.''
+@end enumerate
@sp 2
Cover art by Etienne Suvasa.
@end titlepage
@@ -192,6 +224,7 @@ Cover art by Etienne Suvasa.
@center @i{To Nachum, for the added dimension.}
@sp 1
@center @i{To Malka, for the new beginning.}
+@w{ }
@page
@w{ }
@page
@@ -202,330 +235,401 @@ Cover art by Etienne Suvasa.
@headings off
@evenheading @thispage@ @ @ @strong{@value{TITLE}} @| @|
@oddheading @| @| @strong{@thischapter}@ @ @ @thispage
-@ifset DRAFT
-@evenfooting @today{} @| @emph{DRAFT!} @| Please Do Not Redistribute
-@oddfooting Please Do Not Redistribute @| @emph{DRAFT!} @| @today{}
-@end ifset
@end iftex
@ifinfo
-@node Top, Preface, (dir), (dir)
+@node Top, Foreword, (dir), (dir)
@top General Introduction
-@c Preface or Licensing nodes should come right after the Top
+@c Preface node should come right after the Top
@c node, in `unnumbered' sections, then the chapter, `What is gawk'.
+@c Licensing nodes are appendices, they're not central to AWK.
-This file documents @code{awk}, a program that you can use to select
+This file documents @command{awk}, a program that you can use to select
particular records in a file and perform operations upon them.
-This is Edition @value{EDITION} of @cite{@value{TITLE}}, @*
-for the @value{VERSION}.@value{PATCHLEVEL} version of the GNU implementation @*
+This is Edition @value{EDITION} of @cite{@value{TITLE}: @value{SUBTITLE}},
+for the @value{VERSION}.@value{PATCHLEVEL} version of the GNU implementation
of AWK.
@end ifinfo
@menu
-* Preface:: What this @value{DOCUMENT} is about; brief
- history and acknowledgements.
-* What Is Awk:: What is the @code{awk} language; using this
- @value{DOCUMENT}.
-* Getting Started:: A basic introduction to using @code{awk}. How
- to run an @code{awk} program. Command line
- syntax.
-* One-liners:: Short, sample @code{awk} programs.
-* Regexp:: All about matching things using regular
- expressions.
-* Reading Files:: How to read files and manipulate fields.
-* Printing:: How to print using @code{awk}. Describes the
- @code{print} and @code{printf} statements.
- Also describes redirection of output.
-* Expressions:: Expressions are the basic building blocks of
- statements.
-* Patterns and Actions:: Overviews of patterns and actions.
-* Statements:: The various control statements are described
- in detail.
-* Built-in Variables:: Built-in Variables
-* Arrays:: The description and use of arrays. Also
- includes array-oriented control statements.
-* Built-in:: The built-in functions are summarized here.
-* User-defined:: User-defined functions are described in
- detail.
-* Invoking Gawk:: How to run @code{gawk}.
-* Library Functions:: A Library of @code{awk} Functions.
-* Sample Programs:: Many @code{awk} programs with complete
- explanations.
-* Language History:: The evolution of the @code{awk} language.
-* Gawk Summary:: @code{gawk} Options and Language Summary.
-* Installation:: Installing @code{gawk} under various operating
- systems.
-* Notes:: Something about the implementation of
- @code{gawk}.
-* Glossary:: An explanation of some unfamiliar terms.
-* Copying:: Your right to copy and distribute @code{gawk}.
-* Index:: Concept and Variable Index.
-
-* History:: The history of @code{gawk} and @code{awk}.
-* Manual History:: Brief history of the GNU project and this
- @value{DOCUMENT}.
-* Acknowledgements:: Acknowledgements.
-* This Manual:: Using this @value{DOCUMENT}. Includes sample
- input files that you can use.
-* Conventions:: Typographical Conventions.
-* Sample Data Files:: Sample data files for use in the @code{awk}
- programs illustrated in this @value{DOCUMENT}.
-* Names:: What name to use to find @code{awk}.
-* Running gawk:: How to run @code{gawk} programs; includes
- command line syntax.
-* One-shot:: Running a short throw-away @code{awk} program.
-* Read Terminal:: Using no input files (input from terminal
- instead).
-* Long:: Putting permanent @code{awk} programs in
- files.
-* Executable Scripts:: Making self-contained @code{awk} programs.
-* Comments:: Adding documentation to @code{gawk} programs.
-* Very Simple:: A very simple example.
-* Two Rules:: A less simple one-line example with two rules.
-* More Complex:: A more complex example.
-* Statements/Lines:: Subdividing or combining statements into
- lines.
-* Other Features:: Other Features of @code{awk}.
-* When:: When to use @code{gawk} and when to use other
- things.
-* Regexp Usage:: How to Use Regular Expressions.
-* Escape Sequences:: How to write non-printing characters.
-* Regexp Operators:: Regular Expression Operators.
-* GNU Regexp Operators:: Operators specific to GNU software.
-* Case-sensitivity:: How to do case-insensitive matching.
-* Leftmost Longest:: How much text matches.
-* Computed Regexps:: Using Dynamic Regexps.
-* Records:: Controlling how data is split into records.
-* Fields:: An introduction to fields.
-* Non-Constant Fields:: Non-constant Field Numbers.
-* Changing Fields:: Changing the Contents of a Field.
-* Field Separators:: The field separator and how to change it.
-* Basic Field Splitting:: How fields are split with single characters or
- simple strings.
-* Regexp Field Splitting:: Using regexps as the field separator.
-* Single Character Fields:: Making each character a separate field.
-* Command Line Field Separator:: Setting @code{FS} from the command line.
-* Field Splitting Summary:: Some final points and a summary table.
-* Constant Size:: Reading constant width data.
-* Multiple Line:: Reading multi-line records.
-* Getline:: Reading files under explicit program control
- using the @code{getline} function.
-* Getline Intro:: Introduction to the @code{getline} function.
-* Plain Getline:: Using @code{getline} with no arguments.
-* Getline/Variable:: Using @code{getline} into a variable.
-* Getline/File:: Using @code{getline} from a file.
-* Getline/Variable/File:: Using @code{getline} into a variable from a
- file.
-* Getline/Pipe:: Using @code{getline} from a pipe.
-* Getline/Variable/Pipe:: Using @code{getline} into a variable from a
- pipe.
-* Getline Summary:: Summary Of @code{getline} Variants.
-* Print:: The @code{print} statement.
-* Print Examples:: Simple examples of @code{print} statements.
-* Output Separators:: The output separators and how to change them.
-* OFMT:: Controlling Numeric Output With @code{print}.
-* Printf:: The @code{printf} statement.
-* Basic Printf:: Syntax of the @code{printf} statement.
-* Control Letters:: Format-control letters.
-* Format Modifiers:: Format-specification modifiers.
-* Printf Examples:: Several examples.
-* Redirection:: How to redirect output to multiple files and
- pipes.
-* Special Files:: File name interpretation in @code{gawk}.
- @code{gawk} allows access to inherited file
- descriptors.
-* Close Files And Pipes:: Closing Input and Output Files and Pipes.
-* Constants:: String, numeric, and regexp constants.
-* Scalar Constants:: Numeric and string constants.
-* Regexp Constants:: Regular Expression constants.
-* Using Constant Regexps:: When and how to use a regexp constant.
-* Variables:: Variables give names to values for later use.
-* Using Variables:: Using variables in your programs.
-* Assignment Options:: Setting variables on the command line and a
- summary of command line syntax. This is an
- advanced method of input.
-* Conversion:: The conversion of strings to numbers and vice
- versa.
-* Arithmetic Ops:: Arithmetic operations (@samp{+}, @samp{-},
- etc.)
-* Concatenation:: Concatenating strings.
-* Assignment Ops:: Changing the value of a variable or a field.
-* Increment Ops:: Incrementing the numeric value of a variable.
-* Truth Values:: What is ``true'' and what is ``false''.
-* Typing and Comparison:: How variables acquire types, and how this
- affects comparison of numbers and strings with
- @samp{<}, etc.
-* Boolean Ops:: Combining comparison expressions using boolean
- operators @samp{||} (``or''), @samp{&&}
- (``and'') and @samp{!} (``not'').
-* Conditional Exp:: Conditional expressions select between two
- subexpressions under control of a third
- subexpression.
-* Function Calls:: A function call is an expression.
-* Precedence:: How various operators nest.
-* Pattern Overview:: What goes into a pattern.
-* Kinds of Patterns:: A list of all kinds of patterns.
-* Regexp Patterns:: Using regexps as patterns.
-* Expression Patterns:: Any expression can be used as a pattern.
-* Ranges:: Pairs of patterns specify record ranges.
-* BEGIN/END:: Specifying initialization and cleanup rules.
-* Using BEGIN/END:: How and why to use BEGIN/END rules.
-* I/O And BEGIN/END:: I/O issues in BEGIN/END rules.
-* Empty:: The empty pattern, which matches every record.
-* Action Overview:: What goes into an action.
-* If Statement:: Conditionally execute some @code{awk}
- statements.
-* While Statement:: Loop until some condition is satisfied.
-* Do Statement:: Do specified action while looping until some
- condition is satisfied.
-* For Statement:: Another looping statement, that provides
- initialization and increment clauses.
-* Break Statement:: Immediately exit the innermost enclosing loop.
-* Continue Statement:: Skip to the end of the innermost enclosing
- loop.
-* Next Statement:: Stop processing the current input record.
-* Nextfile Statement:: Stop processing the current file.
-* Exit Statement:: Stop execution of @code{awk}.
-* User-modified:: Built-in variables that you change to control
- @code{awk}.
-* Auto-set:: Built-in variables where @code{awk} gives you
- information.
-* ARGC and ARGV:: Ways to use @code{ARGC} and @code{ARGV}.
-* Array Intro:: Introduction to Arrays
-* Reference to Elements:: How to examine one element of an array.
-* Assigning Elements:: How to change an element of an array.
-* Array Example:: Basic Example of an Array
-* Scanning an Array:: A variation of the @code{for} statement. It
- loops through the indices of an array's
- existing elements.
-* Delete:: The @code{delete} statement removes an element
- from an array.
-* Numeric Array Subscripts:: How to use numbers as subscripts in
- @code{awk}.
-* Uninitialized Subscripts:: Using Uninitialized variables as subscripts.
-* Multi-dimensional:: Emulating multi-dimensional arrays in
- @code{awk}.
-* Multi-scanning:: Scanning multi-dimensional arrays.
-* Calling Built-in:: How to call built-in functions.
-* Numeric Functions:: Functions that work with numbers, including
- @code{int}, @code{sin} and @code{rand}.
-* String Functions:: Functions for string manipulation, such as
- @code{split}, @code{match}, and
- @code{sprintf}.
-* I/O Functions:: Functions for files and shell commands.
-* Time Functions:: Functions for dealing with time stamps.
-* Definition Syntax:: How to write definitions and what they mean.
-* Function Example:: An example function definition and what it
- does.
-* Function Caveats:: Things to watch out for.
-* Return Statement:: Specifying the value a function returns.
-* Options:: Command line options and their meanings.
-* Other Arguments:: Input file names and variable assignments.
-* AWKPATH Variable:: Searching directories for @code{awk} programs.
-* Obsolete:: Obsolete Options and/or features.
-* Undocumented:: Undocumented Options and Features.
-* Known Bugs:: Known Bugs in @code{gawk}.
-* Portability Notes:: What to do if you don't have @code{gawk}.
-* Nextfile Function:: Two implementations of a @code{nextfile}
- function.
-* Assert Function:: A function for assertions in @code{awk}
- programs.
-* Round Function:: A function for rounding if @code{sprintf} does
- not do it correctly.
-* Ordinal Functions:: Functions for using characters as numbers and
- vice versa.
-* Join Function:: A function to join an array into a string.
-* Mktime Function:: A function to turn a date into a timestamp.
-* Gettimeofday Function:: A function to get formatted times.
-* Filetrans Function:: A function for handling data file transitions.
-* Getopt Function:: A function for processing command line
- arguments.
-* Passwd Functions:: Functions for getting user information.
-* Group Functions:: Functions for getting group information.
-* Library Names:: How to best name private global variables in
- library functions.
-* Clones:: Clones of common utilities.
-* Cut Program:: The @code{cut} utility.
-* Egrep Program:: The @code{egrep} utility.
-* Id Program:: The @code{id} utility.
-* Split Program:: The @code{split} utility.
-* Tee Program:: The @code{tee} utility.
-* Uniq Program:: The @code{uniq} utility.
-* Wc Program:: The @code{wc} utility.
-* Miscellaneous Programs:: Some interesting @code{awk} programs.
-* Dupword Program:: Finding duplicated words in a document.
-* Alarm Program:: An alarm clock.
-* Translate Program:: A program similar to the @code{tr} utility.
-* Labels Program:: Printing mailing labels.
-* Word Sorting:: A program to produce a word usage count.
-* History Sorting:: Eliminating duplicate entries from a history
- file.
-* Extract Program:: Pulling out programs from Texinfo source
- files.
-* Simple Sed:: A Simple Stream Editor.
-* Igawk Program:: A wrapper for @code{awk} that includes files.
-* V7/SVR3.1:: The major changes between V7 and System V
- Release 3.1.
-* SVR4:: Minor changes between System V Releases 3.1
- and 4.
-* POSIX:: New features from the POSIX standard.
-* BTL:: New features from the Bell Laboratories
- version of @code{awk}.
-* POSIX/GNU:: The extensions in @code{gawk} not in POSIX
- @code{awk}.
-* Command Line Summary:: Recapitulation of the command line.
-* Language Summary:: A terse review of the language.
-* Variables/Fields:: Variables, fields, and arrays.
-* Fields Summary:: Input field splitting.
-* Built-in Summary:: @code{awk}'s built-in variables.
-* Arrays Summary:: Using arrays.
-* Data Type Summary:: Values in @code{awk} are numbers or strings.
-* Rules Summary:: Patterns and Actions, and their component
- parts.
-* Pattern Summary:: Quick overview of patterns.
-* Regexp Summary:: Quick overview of regular expressions.
-* Actions Summary:: Quick overview of actions.
-* Operator Summary:: @code{awk} operators.
-* Control Flow Summary:: The control statements.
-* I/O Summary:: The I/O statements.
-* Printf Summary:: A summary of @code{printf}.
-* Special File Summary:: Special file names interpreted internally.
-* Built-in Functions Summary:: Built-in numeric and string functions.
-* Time Functions Summary:: Built-in time functions.
-* String Constants Summary:: Escape sequences in strings.
-* Functions Summary:: Defining and calling functions.
-* Historical Features:: Some undocumented but supported ``features''.
-* Gawk Distribution:: What is in the @code{gawk} distribution.
-* Getting:: How to get the distribution.
-* Extracting:: How to extract the distribution.
-* Distribution contents:: What is in the distribution.
-* Unix Installation:: Installing @code{gawk} under various versions
- of Unix.
-* Quick Installation:: Compiling @code{gawk} under Unix.
-* Configuration Philosophy:: How it's all supposed to work.
-* VMS Installation:: Installing @code{gawk} on VMS.
-* VMS Compilation:: How to compile @code{gawk} under VMS.
-* VMS Installation Details:: How to install @code{gawk} under VMS.
-* VMS Running:: How to run @code{gawk} under VMS.
-* VMS POSIX:: Alternate instructions for VMS POSIX.
-* PC Installation:: Installing and Compiling @code{gawk} on MS-DOS
- and OS/2
-* Atari Installation:: Installing @code{gawk} on the Atari ST.
-* Atari Compiling:: Compiling @code{gawk} on Atari
-* Atari Using:: Running @code{gawk} on Atari
-* Amiga Installation:: Installing @code{gawk} on an Amiga.
-* Bugs:: Reporting Problems and Bugs.
-* Other Versions:: Other freely available @code{awk}
- implementations.
-* Compatibility Mode:: How to disable certain @code{gawk} extensions.
-* Additions:: Making Additions To @code{gawk}.
-* Adding Code:: Adding code to the main body of @code{gawk}.
-* New Ports:: Porting @code{gawk} to a new operating system.
-* Future Extensions:: New features that may be implemented one day.
-* Improvements:: Suggestions for improvements by volunteers.
-
+* Foreword:: Some nice words about this
+ @value{DOCUMENT}.
+* Preface:: What this @value{DOCUMENT} is about; brief
+ history and acknowledgments.
+* Getting Started:: A basic introduction to using
+ @command{awk}. How to run an @command{awk}
+ program. Command-line syntax.
+* Regexp:: All about matching things using regular
+ expressions.
+* Reading Files:: How to read files and manipulate fields.
+* Printing:: How to print using @command{awk}. Describes
+ the @code{print} and @code{printf}
+ statements. Also describes redirection of
+ output.
+* Expressions:: Expressions are the basic building blocks
+ of statements.
+* Patterns and Actions:: Overviews of patterns and actions.
+* Arrays:: The description and use of arrays. Also
+ includes array-oriented control statements.
+* Functions:: Built-in and user-defined functions.
+* Internationalization:: Getting @command{gawk} to speak your
+ language.
+* Advanced Features:: Stuff for advanced users, specific to
+ @command{gawk}.
+* Invoking Gawk:: How to run @command{gawk}.
+* Library Functions:: A Library of @command{awk} Functions.
+* Sample Programs:: Many @command{awk} programs with complete
+ explanations.
+* Language History:: The evolution of the @command{awk}
+ language.
+* Installation:: Installing @command{gawk} under various
+ operating systems.
+* Notes:: Notes about @command{gawk} extensions and
+ possible future work.
+* Basic Concepts:: A very quick intoduction to programming
+ concepts.
+* Glossary:: An explanation of some unfamiliar terms.
+* Copying:: Your right to copy and distribute
+ @command{gawk}.
+* GNU Free Documentation License:: The license for this @value{DOCUMENT}.
+* Index:: Concept and Variable Index.
+
+@detailmenu
+* History:: The history of @command{gawk} and
+ @command{awk}.
+* Names:: What name to use to find @command{awk}.
+* This Manual:: Using this @value{DOCUMENT}. Includes
+ sample input files that you can use.
+* Conventions:: Typographical Conventions.
+* Manual History:: Brief history of the GNU project and this
+ @value{DOCUMENT}.
+* How To Contribute:: Helping to save the world.
+* Acknowledgments:: Acknowledgments.
+* Running gawk:: How to run @command{gawk} programs;
+ includes command-line syntax.
+* One-shot:: Running a short throw-away @command{awk}
+ program.
+* Read Terminal:: Using no input files (input from terminal
+ instead).
+* Long:: Putting permanent @command{awk} programs in
+ files.
+* Executable Scripts:: Making self-contained @command{awk}
+ programs.
+* Comments:: Adding documentation to @command{gawk}
+ programs.
+* Quoting:: More discussion of shell quoting issues.
+* Sample Data Files:: Sample data files for use in the
+ @command{awk} programs illustrated in this
+ @value{DOCUMENT}.
+* Very Simple:: A very simple example.
+* Two Rules:: A less simple one-line example using two
+ rules.
+* More Complex:: A more complex example.
+* Statements/Lines:: Subdividing or combining statements into
+ lines.
+* Other Features:: Other Features of @command{awk}.
+* When:: When to use @command{gawk} and when to use
+ other things.
+* Regexp Usage:: How to Use Regular Expressions.
+* Escape Sequences:: How to write non-printing characters.
+* Regexp Operators:: Regular Expression Operators.
+* Character Lists:: What can go between @samp{[...]}.
+* GNU Regexp Operators:: Operators specific to GNU software.
+* Case-sensitivity:: How to do case-insensitive matching.
+* Leftmost Longest:: How much text matches.
+* Computed Regexps:: Using Dynamic Regexps.
+* Records:: Controlling how data is split into records.
+* Fields:: An introduction to fields.
+* Non-Constant Fields:: Non-constant Field Numbers.
+* Changing Fields:: Changing the Contents of a Field.
+* Field Separators:: The field separator and how to change it.
+* Regexp Field Splitting:: Using regexps as the field separator.
+* Single Character Fields:: Making each character a separate field.
+* Command Line Field Separator:: Setting @code{FS} from the command-line.
+* Field Splitting Summary:: Some final points and a summary table.
+* Constant Size:: Reading constant width data.
+* Multiple Line:: Reading multi-line records.
+* Getline:: Reading files under explicit program
+ control using the @code{getline} function.
+* Plain Getline:: Using @code{getline} with no arguments.
+* Getline/Variable:: Using @code{getline} into a variable.
+* Getline/File:: Using @code{getline} from a file.
+* Getline/Variable/File:: Using @code{getline} into a variable from a
+ file.
+* Getline/Pipe:: Using @code{getline} from a pipe.
+* Getline/Variable/Pipe:: Using @code{getline} into a variable from a
+ pipe.
+* Getline/Coprocess:: Using @code{getline} from a coprocess.
+* Getline/Variable/Coprocess:: Using @code{getline} into a variable from a
+ coprocess.
+* Getline Notes:: Important things to know about
+ @code{getline}.
+* Getline Summary:: Summary of @code{getline} Variants.
+* Print:: The @code{print} statement.
+* Print Examples:: Simple examples of @code{print} statements.
+* Output Separators:: The output separators and how to change
+ them.
+* OFMT:: Controlling Numeric Output With
+ @code{print}.
+* Printf:: The @code{printf} statement.
+* Basic Printf:: Syntax of the @code{printf} statement.
+* Control Letters:: Format-control letters.
+* Format Modifiers:: Format-specification modifiers.
+* Printf Examples:: Several examples.
+* Redirection:: How to redirect output to multiple files
+ and pipes.
+* Special Files:: File name interpretation in @command{gawk}.
+ @command{gawk} allows access to inherited
+ file descriptors.
+* Special FD:: Special files for I/O.
+* Special Process:: Special files for process information.
+* Special Network:: Special files for network communications.
+* Special Caveats:: Things to watch out for.
+* Close Files And Pipes:: Closing Input and Output Files and Pipes.
+* Constants:: String, numeric and regexp constants.
+* Scalar Constants:: Numeric and string constants.
+* Non-decimal-numbers:: What are octal and hex numbers.
+* Regexp Constants:: Regular Expression constants.
+* Using Constant Regexps:: When and how to use a regexp constant.
+* Variables:: Variables give names to values for later
+ use.
+* Using Variables:: Using variables in your programs.
+* Assignment Options:: Setting variables on the command-line and a
+ summary of command-line syntax. This is an
+ advanced method of input.
+* Conversion:: The conversion of strings to numbers and
+ vice versa.
+* Arithmetic Ops:: Arithmetic operations (@samp{+}, @samp{-},
+ etc.)
+* Concatenation:: Concatenating strings.
+* Assignment Ops:: Changing the value of a variable or a
+ field.
+* Increment Ops:: Incrementing the numeric value of a
+ variable.
+* Truth Values:: What is ``true'' and what is ``false''.
+* Typing and Comparison:: How variables acquire types and how this
+ affects comparison of numbers and strings
+ with @samp{<}, etc.
+* Boolean Ops:: Combining comparison expressions using
+ boolean operators @samp{||} (``or''),
+ @samp{&&} (``and'') and @samp{!} (``not'').
+* Conditional Exp:: Conditional expressions select between two
+ subexpressions under control of a third
+ subexpression.
+* Function Calls:: A function call is an expression.
+* Precedence:: How various operators nest.
+* Pattern Overview:: What goes into a pattern.
+* Regexp Patterns:: Using regexps as patterns.
+* Expression Patterns:: Any expression can be used as a pattern.
+* Ranges:: Pairs of patterns specify record ranges.
+* BEGIN/END:: Specifying initialization and cleanup
+ rules.
+* Using BEGIN/END:: How and why to use BEGIN/END rules.
+* I/O And BEGIN/END:: I/O issues in BEGIN/END rules.
+* Empty:: The empty pattern, which matches every
+ record.
+* Using Shell Variables:: How to use shell variables with
+ @command{awk}.
+* Action Overview:: What goes into an action.
+* Statements:: Describes the various control statements in
+ detail.
+* If Statement:: Conditionally execute some @command{awk}
+ statements.
+* While Statement:: Loop until some condition is satisfied.
+* Do Statement:: Do specified action while looping until
+ some condition is satisfied.
+* For Statement:: Another looping statement, that provides
+ initialization and increment clauses.
+* Break Statement:: Immediately exit the innermost enclosing
+ loop.
+* Continue Statement:: Skip to the end of the innermost enclosing
+ loop.
+* Next Statement:: Stop processing the current input record.
+* Nextfile Statement:: Stop processing the current file.
+* Exit Statement:: Stop execution of @command{awk}.
+* Built-in Variables:: Summarizes the built-in variables.
+* User-modified:: Built-in variables that you change to
+ control @command{awk}.
+* Auto-set:: Built-in variables where @command{awk}
+ gives you information.
+* ARGC and ARGV:: Ways to use @code{ARGC} and @code{ARGV}.
+* Array Intro:: Introduction to Arrays
+* Reference to Elements:: How to examine one element of an array.
+* Assigning Elements:: How to change an element of an array.
+* Array Example:: Basic Example of an Array
+* Scanning an Array:: A variation of the @code{for} statement. It
+ loops through the indices of an array's
+ existing elements.
+* Delete:: The @code{delete} statement removes an
+ element from an array.
+* Numeric Array Subscripts:: How to use numbers as subscripts in
+ @command{awk}.
+* Uninitialized Subscripts:: Using Uninitialized variables as
+ subscripts.
+* Multi-dimensional:: Emulating multidimensional arrays in
+ @command{awk}.
+* Multi-scanning:: Scanning multidimensional arrays.
+* Array Sorting:: Sorting array values and indices.
+* Built-in:: Summarizes the built-in functions.
+* Calling Built-in:: How to call built-in functions.
+* Numeric Functions:: Functions that work with numbers, including
+ @code{int}, @code{sin} and @code{rand}.
+* String Functions:: Functions for string manipulation, such as
+ @code{split}, @code{match} and
+ @code{sprintf}.
+* Gory Details:: More than you want to know about @samp{\}
+ and @samp{&} with @code{sub}, @code{gsub},
+ and @code{gensub}.
+* I/O Functions:: Functions for files and shell commands.
+* Time Functions:: Functions for dealing with timestamps.
+* Bitwise Functions:: Functions for bitwise operations.
+* I18N Functions:: Functions for string translation.
+* User-defined:: Describes User-defined functions in detail.
+* Definition Syntax:: How to write definitions and what they
+ mean.
+* Function Example:: An example function definition and what it
+ does.
+* Function Caveats:: Things to watch out for.
+* Return Statement:: Specifying the value a function returns.
+* Dynamic Typing:: How variable types can change at runtime.
+* I18N and L10N:: Internationalization and Localization.
+* Explaining gettext:: How GNU @code{gettext} works.
+* Programmer i18n:: Features for the programmer.
+* Translator i18n:: Features for the translator.
+* String Extraction:: Extracting marked strings.
+* Printf Ordering:: Rearranging @code{printf} arguments.
+* I18N Portability:: @command{awk}-level portability issues.
+* I18N Example:: A simple i18n example.
+* Gawk I18N:: @command{gawk} is also internationalized.
+* Non-decimal Data:: Allowing non-decimal input data.
+* Two-way I/O:: Two-way communications with another
+ process.
+* TCP/IP Networking:: Using @command{gawk} for network
+ programming.
+* Portal Files:: Using @command{gawk} with BSD portals.
+* Profiling:: Profiling your @command{awk} programs.
+* Command Line:: How to run @command{awk}.
+* Options:: Command-line options and their meanings.
+* Other Arguments:: Input file names and variable assignments.
+* AWKPATH Variable:: Searching directories for @command{awk}
+ programs.
+* Obsolete:: Obsolete Options and/or features.
+* Undocumented:: Undocumented Options and Features.
+* Known Bugs:: Known Bugs in @command{gawk}.
+* Library Names:: How to best name private global variables
+ in library functions.
+* General Functions:: Functions that are of general use.
+* Nextfile Function:: Two implementations of a @code{nextfile}
+ function.
+* Assert Function:: A function for assertions in @command{awk}
+ programs.
+* Round Function:: A function for rounding if @code{sprintf}
+ does not do it correctly.
+* Cliff Random Function:: The Cliff Random Number Generator.
+* Ordinal Functions:: Functions for using characters as numbers
+ and vice versa.
+* Join Function:: A function to join an array into a string.
+* Gettimeofday Function:: A function to get formatted times.
+* Data File Management:: Functions for managing command-line data
+ files.
+* Filetrans Function:: A function for handling data file
+ transitions.
+* Rewind Function:: A function for rereading the current file.
+* File Checking:: Checking that data files are readable.
+* Ignoring Assigns:: Treating assignments as file names.
+* Getopt Function:: A function for processing command-line
+ arguments.
+* Passwd Functions:: Functions for getting user information.
+* Group Functions:: Functions for getting group information.
+* Running Examples:: How to run these examples.
+* Clones:: Clones of common utilities.
+* Cut Program:: The @command{cut} utility.
+* Egrep Program:: The @command{egrep} utility.
+* Id Program:: The @command{id} utility.
+* Split Program:: The @command{split} utility.
+* Tee Program:: The @command{tee} utility.
+* Uniq Program:: The @command{uniq} utility.
+* Wc Program:: The @command{wc} utility.
+* Miscellaneous Programs:: Some interesting @command{awk} programs.
+* Dupword Program:: Finding duplicated words in a document.
+* Alarm Program:: An alarm clock.
+* Translate Program:: A program similar to the @command{tr}
+ utility.
+* Labels Program:: Printing mailing labels.
+* Word Sorting:: A program to produce a word usage count.
+* History Sorting:: Eliminating duplicate entries from a
+ history file.
+* Extract Program:: Pulling out programs from Texinfo source
+ files.
+* Simple Sed:: A Simple Stream Editor.
+* Igawk Program:: A wrapper for @command{awk} that includes
+ files.
+* V7/SVR3.1:: The major changes between V7 and System V
+ Release 3.1.
+* SVR4:: Minor changes between System V Releases 3.1
+ and 4.
+* POSIX:: New features from the POSIX standard.
+* BTL:: New features from the Bell Laboratories
+ version of @command{awk}.
+* POSIX/GNU:: The extensions in @command{gawk} not in
+ POSIX @command{awk}.
+* Contributors:: The major contributors to @command{gawk}.
+* Gawk Distribution:: What is in the @command{gawk} distribution.
+* Getting:: How to get the distribution.
+* Extracting:: How to extract the distribution.
+* Distribution contents:: What is in the distribution.
+* Unix Installation:: Installing @command{gawk} under various
+ versions of Unix.
+* Quick Installation:: Compiling @command{gawk} under Unix.
+* Additional Configuration Options:: Other compile-time options.
+* Configuration Philosophy:: How it's all supposed to work.
+* Non-Unix Installation:: Installation on Other Operating Systems.
+* Amiga Installation:: Installing @command{gawk} on an Amiga.
+* BeOS Installation:: Installing @command{gawk} on BeOS.
+* PC Installation:: Installing and Compiling @command{gawk} on
+ MS-DOS and OS/2.
+* PC Binary Installation:: Installing a prepared distribution.
+* PC Compiling:: Compiling @command{gawk} for MS-DOS, Win32,
+ and OS/2.
+* PC Using:: Running @command{gawk} on MS-DOS, Win32 and
+ OS/2.
+* VMS Installation:: Installing @command{gawk} on VMS.
+* VMS Compilation:: How to compile @command{gawk} under VMS.
+* VMS Installation Details:: How to install @command{gawk} under VMS.
+* VMS Running:: How to run @command{gawk} under VMS.
+* VMS POSIX:: Alternate instructions for VMS POSIX.
+* Unsupported:: Systems whose ports are no longer
+ supported.
+* Atari Installation:: Installing @command{gawk} on the Atari ST.
+* Atari Compiling:: Compiling @command{gawk} on Atari.
+* Atari Using:: Running @command{gawk} on Atari.
+* Tandem Installation:: Installing @command{gawk} on a Tandem.
+* Bugs:: Reporting Problems and Bugs.
+* Other Versions:: Other freely available @command{awk}
+ implementations.
+* Compatibility Mode:: How to disable certain @command{gawk}
+ extensions.
+* Additions:: Making Additions To @command{gawk}.
+* Adding Code:: Adding code to the main body of
+ @command{gawk}.
+* New Ports:: Porting @command{gawk} to a new operating
+ system.
+* Dynamic Extensions:: Adding new built-in functions to
+ @command{gawk}.
+* Internals:: A brief look at some @command{gawk}
+ internals.
+* Sample Library:: A example of new functions.
+* Internal File Description:: What the new functions will do.
+* Internal File Ops:: The code for internal file operations.
+* Using Internal File Ops:: How to use an external extension.
+* Future Extensions:: New features that may be implemented one
+ day.
+* Basic High Level:: The high level view.
+* Basic Data Typing:: A very quick intro to data types.
+* Floating Point Issues:: Stuff to know about floating-point numbers.
+@end detailmenu
@end menu
@c dedication for Info file
@@ -541,69 +645,560 @@ of AWK.
@center To Malka, for the new beginning.
@end ifinfo
-@node Preface, What Is Awk, Top, Top
-@unnumbered Preface
+@summarycontents
+@contents
+
+@node Foreword, Preface, Top, Top
+@unnumbered Foreword
+
+Arnold Robbins and I are good friends. We were introduced 11 years ago
+by circumstances---and our favorite programming language, AWK.
+The circumstances started a couple of years
+earlier. I was working at a new job and noticed an unplugged
+Unix computer sitting in the corner. No one knew how to use it,
+and neither did I. However,
+a couple of days later it was running, and
+I was @code{root} and the one-and-only user.
+That day, I began the transition from statistician to Unix programmer.
+
+On one of many trips to the library or bookstore in search of
+books on Unix, I found the gray AWK book, a.k.a. Aho, Kernighan and
+Weinberger, @cite{The AWK Programming Language}, Addison-Wesley,
+1988. AWK's simple programming paradigm---find a pattern in the
+input and then perform an action---often reduced complex or tedious
+data manipulations to few lines of code. I was excited to try my
+hand at programming in AWK.
+
+Alas, the @command{awk} on my computer was a limited version of the
+language described in the AWK book. I discovered that my computer
+had ``old @command{awk}'' and the AWK book described ``new @command{awk}.''
+I learned that this was typical; the old version refused to step
+aside or relinquish its name. If a system had a new @command{awk}, it was
+invariably called @command{nawk}, and few systems had it.
+The best way to get a new @command{awk} was to @command{ftp} the source code for
+@command{gawk} from @code{prep.ai.mit.edu}. @command{gawk} was a version of
+new @command{awk} written by David Trueman and Arnold, and available under
+the GNU General Public License.
+
+(Incidentally,
+it's no longer difficult to find a new @command{awk}. @command{gawk} ships with
+Linux, and you can download binaries or source code for almost
+any system; my wife uses @command{gawk} on her VMS box.)
+
+My Unix system started out unplugged from the wall; it certainly was not
+plugged into a network. So, oblivious to the existence of @command{gawk}
+and the Unix community in general, and desiring a new @command{awk}, I wrote
+my own, called @command{mawk}.
+Before I was finished I knew about @command{gawk},
+but it was too late to stop, so I eventually posted
+to a @code{comp.sources} newsgroup.
+
+A few days after my posting, I got a friendly email
+from Arnold introducing
+himself. He suggested we share design and algorithms and
+attached a draft of the POSIX standard so
+that I could update @command{mawk} to support language extensions added
+after publication of the AWK book.
+
+Frankly, if our roles had
+been reversed, I would not have been so open and we probably would
+have never met. I'm glad we did meet.
+He is an AWK expert's AWK expert and a genuinely nice person.
+Arnold contributes significant amounts of his
+expertise and time to the Free Software Foundation.
+
+This book is the @command{gawk} reference manual, but at its core it
+is a book about AWK programming that
+will appeal to a wide audience.
+It is a definitive reference to the AWK language as defined by the
+1987 Bell Labs release and codified in the 1992 POSIX Utilities
+standard.
+
+On the other hand, the novice AWK programmer can study
+a wealth of practical programs that emphasize
+the power of AWK's basic idioms:
+data driven control-flow, pattern matching with regular expressions,
+and associative arrays.
+Those looking for something new can try out @command{gawk}'s
+interface to network protocols via special @file{/inet} files.
+
+The programs in this book make clear that an AWK program is
+typically much smaller and faster to develop than
+a counterpart written in C.
+Consequently, there is often a payoff to prototype an
+algorithm or design in AWK to get it running quickly and expose
+problems early. Often, the interpreted performance is adequate
+and the AWK prototype becomes the product.
+
+The new @command{pgawk} (profiling @command{gawk}), produces
+program execution counts.
+I recently experimented with an algorithm that for
+@math{n} lines of input, exhibited
+@tex
+$\sim\! Cn^2$
+@end tex
+@ifnottex
+~ C n^2
+@end ifnottex
+performance, while
+theory predicted
+@tex
+$\sim\! Cn\log n$
+@end tex
+@ifnottex
+~ C n log n
+@end ifnottex
+behavior. A few minutes poring
+over the @file{awkprof.out} profile pinpointed the problem to
+a single line of code. @command{pgawk} is a welcome addition to
+my programmer's toolbox.
+
+Arnold has distilled over a decade of experience writing and
+using AWK programs, and developing @command{gawk}, into this book. If you use
+AWK or want to learn how, then read this book.
+@display
+Michael Brennan
+Author of @command{mawk}
+@end display
+
+@node Preface, Getting Started, Foreword, Top
+@unnumbered Preface
@c I saw a comment somewhere that the preface should describe the book itself,
@c and the introduction should describe what the book covers.
+@c
+@c 12/2000: Chuck wants the preface & intro combined.
+
+Several kinds of tasks occur repeatedly
+when working with text files.
+You might want to extract certain lines and discard the rest.
+Or you may need to make changes wherever certain patterns appear,
+but leave the rest of the file alone.
+Writing single-use programs for these tasks in languages such as C, C++ or Pascal
+is time-consuming and inconvenient.
+Such jobs are often easier with @command{awk}.
+The @command{awk} utility interprets a special-purpose programming language
+that makes it easy to handle simple data-reformatting jobs.
+
+The GNU implementation of @command{awk} is called @command{gawk}; it is fully
+compatible with the System V Release 4 version of
+@command{awk}. @command{gawk} is also compatible with the POSIX
+specification of the @command{awk} language. This means that all
+properly written @command{awk} programs should work with @command{gawk}.
+Thus, we usually don't distinguish between @command{gawk} and other
+@command{awk} implementations.
+
+@cindex uses of @command{awk}
+@cindex applications of @command{awk}
+Using @command{awk} allows you to:
+
+@itemize @bullet
+@item
+Manage small, personal databases
+
+@item
+Generate reports
-This @value{DOCUMENT} teaches you about the @code{awk} language and
+@item
+Validate data
+
+@item
+Produce indexes and perform other document preparation tasks
+
+@item
+Experiment with algorithms that you can adapt later to other computer
+languages.
+@end itemize
+
+@cindex uses of @command{gawk}
+In addition,
+@command{gawk}
+provides facilities that make it easy to:
+
+@itemize @bullet
+@item
+Extract bits and pieces of data for processing
+
+@item
+Sort data
+
+@item
+Perform simple network communications.
+@end itemize
+
+This @value{DOCUMENT} teaches you about the @command{awk} language and
how you can use it effectively. You should already be familiar with basic
-system commands, such as @code{cat} and @code{ls},@footnote{These commands
-are available on POSIX compliant systems, as well as on traditional Unix
+system commands, such as @command{cat} and @command{ls},@footnote{These commands
+are available on POSIX-compliant systems, as well as on traditional Unix
based systems. If you are using some other operating system, you still need to
-be familiar with the ideas of I/O redirection and pipes.} and basic shell
+be familiar with the ideas of I/O redirection and pipes.} as well as basic shell
facilities, such as Input/Output (I/O) redirection and pipes.
-Implementations of the @code{awk} language are available for many different
-computing environments. This @value{DOCUMENT}, while describing the @code{awk} language
-in general, also describes a particular implementation of @code{awk} called
-@code{gawk} (which stands for ``GNU Awk''). @code{gawk} runs on a broad range
-of Unix systems, ranging from 80386 PC-based computers, up through large scale
-systems, such as Crays. @code{gawk} has also been ported to MS-DOS and
-OS/2 PC's, Atari and Amiga micro-computers, and VMS.
+Implementations of the @command{awk} language are available for many
+different computing environments. This @value{DOCUMENT}, while describing
+the @command{awk} language in general, also describes the particular
+implementation of @command{awk} called @command{gawk} (which stands for
+``GNU awk''). @command{gawk} runs on a broad range of Unix systems,
+ranging from 80386 PC-based computers, up through large-scale systems,
+such as Crays. @command{gawk} has also been ported to Mac OS X,
+MS-DOS, Microsoft Windows (all versions) and OS/2 PC's, Atari and Amiga
+micro-computers, BeOS, Tandem D20, and VMS.
@menu
-* History:: The history of @code{gawk} and @code{awk}.
+* History:: The history of @command{gawk} and
+ @command{awk}.
+* Names:: What name to use to find @command{awk}.
+* This Manual:: Using this @value{DOCUMENT}. Includes sample
+ input files that you can use.
+* Conventions:: Typographical Conventions.
* Manual History:: Brief history of the GNU project and this
@value{DOCUMENT}.
-* Acknowledgements:: Acknowledgements.
+* How To Contribute:: Helping to save the world.
+* Acknowledgments:: Acknowledgments.
@end menu
-@node History, Manual History, Preface, Preface
-@unnumberedsec History of @code{awk} and @code{gawk}
+@node History, Names, Preface, Preface
+@unnumberedsec History of @command{awk} and @command{gawk}
+@cindex recipe for a programming language
+@cindex programming language, recipe for
+@center Recipe For A Programming Language
+
+@multitable {2 parts} {1 part @code{egrep}} {1 part @code{snobol}}
+@item @tab 1 part @code{egrep} @tab 1 part @code{snobol}
+@item @tab 2 parts @code{ed} @tab 3 parts C
+@end multitable
+
+@quotation
+Blend all parts well using @code{lex} and @code{yacc}.
+Document minimally and release.
+
+After eight years, add another part @code{egrep} and two
+more parts C. Document very well and release.
+@end quotation
@cindex acronym
-@cindex history of @code{awk}
+@cindex history of @command{awk}
@cindex Aho, Alfred
@cindex Weinberger, Peter
@cindex Kernighan, Brian
-@cindex old @code{awk}
-@cindex new @code{awk}
-The name @code{awk} comes from the initials of its designers: Alfred V.@:
-Aho, Peter J.@: Weinberger, and Brian W.@: Kernighan. The original version of
-@code{awk} was written in 1977 at AT&T Bell Laboratories.
-In 1985 a new version made the programming
+@cindex old @command{awk}
+@cindex new @command{awk}
+The name @command{awk} comes from the initials of its designers: Alfred V.@:
+Aho, Peter J.@: Weinberger and Brian W.@: Kernighan. The original version of
+@command{awk} was written in 1977 at AT&T Bell Laboratories.
+In 1985, a new version made the programming
language more powerful, introducing user-defined functions, multiple input
streams, and computed regular expressions.
-This new version became generally available with Unix System V Release 3.1.
-The version in System V Release 4 added some new features and also cleaned
+This new version became widely available with Unix System V
+Release 3.1 (SVR3.1).
+The version in SVR4 added some new features and cleaned
up the behavior in some of the ``dark corners'' of the language.
-The specification for @code{awk} in the POSIX Command Language
-and Utilities standard further clarified the language based on feedback
-from both the @code{gawk} designers, and the original Bell Labs @code{awk}
-designers.
+The specification for @command{awk} in the POSIX Command Language
+and Utilities standard further clarified the language.
+Both the @command{gawk} designers and the original Bell Laboratories @command{awk}
+designers provided feedback for the POSIX specification.
-The GNU implementation, @code{gawk}, was written in 1986 by Paul Rubin
-and Jay Fenlason, with advice from Richard Stallman. John Woods
+@cindex Rubin, Paul
+@cindex Fenlason, Jay
+@cindex Trueman, David
+Paul Rubin wrote the GNU implementation, @command{gawk}, in 1986.
+Jay Fenlason completed it, with advice from Richard Stallman. John Woods
contributed parts of the code as well. In 1988 and 1989, David Trueman, with
-help from Arnold Robbins, thoroughly reworked @code{gawk} for compatibility
-with the newer @code{awk}. Current development focuses on bug fixes,
+help from me, thoroughly reworked @command{gawk} for compatibility
+with the newer @command{awk}.
+Circa 1995, I became the primary maintainer.
+Current development focuses on bug fixes,
performance improvements, standards compliance, and occasionally, new features.
-@node Manual History, Acknowledgements, History, Preface
+In May of 1997, J@"urgen Kahrs felt the need for network access
+from @command{awk}, and with a little help from me, set about adding
+features to do this for @command{gawk}. At that time, he also
+wrote the bulk of
+@cite{TCP/IP Internetworking with @command{gawk}}
+(a separate document, available as part of the @command{gawk} distribution).
+His code finally became part of the main @command{gawk} distribution
+with @command{gawk} @value{PVERSION} 3.1.
+
+@xref{Contributors, ,Major Contributors to @command{gawk}},
+for a complete list of those who made important contributions to @command{gawk}.
+
+@node Names, This Manual, History, Preface
+@section A Rose by Any Other Name
+
+@cindex old @command{awk} vs. new @command{awk}
+@cindex new @command{awk} vs. old @command{awk}
+The @command{awk} language has evolved over the years. Full details are
+provided in @ref{Language History, ,The Evolution of the @command{awk} Language}.
+The language described in this @value{DOCUMENT}
+is often referred to as ``new @command{awk}'' (@command{nawk}).
+
+Because of this, many systems have multiple
+versions of @command{awk}.
+Some systems have an @command{awk} utility that implements the
+original version of the @command{awk} language and a @command{nawk} utility
+for the new
+version.
+Others have an @command{oawk} for the ``old @command{awk}''
+language and plain @command{awk} for the new one. Still others only
+have one version, which is usually the new one.@footnote{Often, these systems
+use @command{gawk} for their @command{awk} implementation!}
+
+All in all, this makes it difficult for you to know which version of
+@command{awk} you should run when writing your programs. The best advice
+I can give here is to check your local documentation. Look for @command{awk},
+@command{oawk}, and @command{nawk}, as well as for @command{gawk}.
+It is likely that you already
+have some version of new @command{awk} on your system, which is what
+you should use when running your programs. (Of course, if you're reading
+this @value{DOCUMENT}, chances are good that you have @command{gawk}!)
+
+Throughout this @value{DOCUMENT}, whenever we refer to a language feature
+that should be available in any complete implementation of POSIX @command{awk},
+we simply use the term @command{awk}. When referring to a feature that is
+specific to the GNU implementation, we use the term @command{gawk}.
+
+@node This Manual, Conventions, Names, Preface
+@section Using This Book
+@cindex book, using this
+@cindex using this book
+@cindex language, @command{awk}
+@cindex program, @command{awk}
+@ignore
+@cindex @command{awk} language
+@cindex @command{awk} program
+@end ignore
+@cindex Brandon, Dick
+@cindex sex, comparisons with
+@quotation
+@i{Documentation is like sex: when it is good, it is very, very good; and
+when it is bad, it is better than nothing.}@*
+Dick Brandon
+@end quotation
+
+The term @command{awk} refers to a particular program as well as to the language you
+use to tell this program what to do. When we need to be careful, we call
+the program ``the @command{awk} utility'' and the language ``the @command{awk}
+language.''
+This @value{DOCUMENT} explains
+both the @command{awk} language and how to run the @command{awk} utility.
+The term @dfn{@command{awk} program} refers to a program written by you in
+the @command{awk} programming language.
+
+Primarily, this @value{DOCUMENT} explains the features of @command{awk},
+as defined in the POSIX standard. It does so in the context of the
+@command{gawk} implementation. While doing so, it also
+attempts to describe important differences between @command{gawk}
+and other @command{awk} implementations.@footnote{All such differences
+appear in the index under the heading ``differences between @command{gawk} and
+@command{awk}.''} Finally, any @command{gawk} features that are not in
+the POSIX standard for @command{awk} are noted.
+
+@ifnotinfo
+This @value{DOCUMENT} has the difficult task of being both a tutorial and a reference.
+If you are a novice, feel free to skip over details that seem too complex.
+You should also ignore the many cross references; they are for the
+expert user and for the online Info version of the document.
+@end ifnotinfo
+
+There are
+subsections labelled
+as @strong{Advanced Notes}
+scattered throughout the @value{DOCUMENT}.
+They add a more complete explanation of points that are relevant, but not likely
+to be of interest on first reading.
+All appear in the index, under the heading ``advanced notes.''
+
+Most of the time, the examples use complete @command{awk} programs.
+In some of the more advanced sections, only the part of the @command{awk}
+program that illustrates the concept currently being described is shown.
+
+While this @value{DOCUMENT} is aimed principally at people who have not been
+exposed
+to @command{awk}, there is a lot of information here that even the @command{awk}
+expert should find useful. In particular, the description of POSIX
+@command{awk} and the example programs in
+@ref{Library Functions, ,A Library of @command{awk} Functions}, and in
+@ref{Sample Programs, ,Practical @command{awk} Programs},
+should be of interest.
+
+@ref{Getting Started, ,Getting Started with @command{awk}},
+provides the essentials you need to know to begin using @command{awk}.
+
+@ref{Regexp, ,Regular Expressions},
+introduces regular expressions in general, and in particular the flavors
+supported by POSIX @command{awk} and @command{gawk}.
+
+@ref{Reading Files, , Reading Input Files},
+describes how @command{awk} reads your data.
+It introduces the concepts of records and fields, as well
+as the @code{getline} command.
+I/O redirection is first described here.
+
+@ref{Printing, , Printing Output},
+describes how @command{awk} programs can produce output with
+@code{print} and @code{printf}.
+
+@ref{Expressions},
+describes expressions, which are the basic building blocks
+for getting most things done in a program.
+
+@ref{Patterns and Actions, ,Patterns Actions and Variables},
+describes how to write patterns for matching records, actions for
+doing something when a record is matched, and the built-in variables
+@command{awk} and @command{gawk} use.
+
+@ref{Arrays, ,Arrays in @command{awk}},
+covers @command{awk}'s one-and-only data structure: associative arrays.
+Deleting array elements and whole arrays is also described, as well as
+sorting arrays in @command{gawk}.
+
+@ref{Functions},
+describes the built-in functions @command{awk} and
+@command{gawk} provide for you, as well as how to define
+your own functions.
+
+@ref{Internationalization, ,Internationalization with @command{gawk}},
+describes special features in @command{gawk} for translating program
+messages into different languages at runtime.
+
+@ref{Advanced Features, ,Advanced Features of @command{gawk}},
+describes a number of @command{gawk}-specific advanced features.
+Of particular note
+are the abilities to have two-way communications with another process,
+perform TCP/IP networking, and
+profile your @command{awk} programs.
+
+@ref{Invoking Gawk, ,Running @command{awk} and @command{gawk}},
+describes how to run @command{gawk}, the meaning of its
+command-line options, and how it finds @command{awk}
+program source files.
+
+@ref{Library Functions, ,A Library of @command{awk} Functions}, and
+@ref{Sample Programs, ,Practical @command{awk} Programs},
+provide many sample @command{awk} programs.
+Reading them allows you to see @command{awk} being used
+for solving real problems.
+
+@ref{Language History, ,The Evolution of the @command{awk} Language},
+describes how the @command{awk} language has evolved since it was
+first released to present. It also describes how @command{gawk}
+has acquired features over time.
+
+@ref{Installation, ,Installing @command{gawk}},
+describes how to get @command{gawk}, how to compile it
+under Unix, and how to compile and use it on different
+non-Unix systems. It also describes how to report bugs
+in @command{gawk} and where to get three other freely
+available implementations of @command{awk}.
+
+@ref{Notes, ,Implementation Notes},
+describes how to disable @command{gawk}'s extensions, as
+well as how to contribute new code to @command{gawk},
+how to write extension libraries, and some possible
+future directions for @command{gawk} development.
+
+@ref{Basic Concepts, ,Basic Programming Concepts},
+provides some very cursory background material for those who
+are completely unfamiliar with computer programming.
+Also centralized there is a discussion of some of the issues
+involved in using floating-point numbers.
+
+The
+@ref{Glossary},
+defines most, if not all, the significant terms used
+throughout the book.
+If you find terms that you aren't familiar with, try looking them up.
+
+@ref{Copying, ,GNU General Public License}, and
+@ref{GNU Free Documentation License},
+present the licenses that cover the @command{gawk} source code,
+and this @value{DOCUMENT}, respectively.
+
+@node Conventions, Manual History, This Manual, Preface
+@section Typographical Conventions
+
+@cindex Texinfo
+This @value{DOCUMENT} is written using Texinfo, the GNU documentation
+formatting language.
+A single Texinfo source file is used to produce both the printed and online
+versions of the documentation.
+@iftex
+Because of this, the typographical conventions
+are slightly different than in other books you may have read.
+@end iftex
+@ifnottex
+This @value{SECTION} briefly documents the typographical conventions used in Texinfo.
+@end ifnottex
+
+Examples you would type at the command-line are preceded by the common
+shell primary and secondary prompts, @samp{$} and @samp{>}.
+Output from the command is preceded by the glyph ``@print{}''.
+This typically represents the command's standard output.
+Error messages, and other output on the command's standard error, are preceded
+by the glyph ``@error{}''. For example:
+
+@example
+$ echo hi on stdout
+@print{} hi on stdout
+$ echo hello on stderr 1>&2
+@error{} hello on stderr
+@end example
+
+@iftex
+In the text, command names appear in @code{this font}, while code segments
+appear in the same font and quoted, @samp{like this}. Some things are
+emphasized @emph{like this}, and if a point needs to be made
+strongly, it is done @strong{like this}. The first occurrence of
+a new term is usually its @dfn{definition} and appears in the same
+font as the previous occurrence of ``definition'' in this sentence.
+@value{FN}s are indicated like this: @file{/path/to/ourfile}.
+@end iftex
+
+Characters that you type at the keyboard look @kbd{like this}. In particular,
+there are special characters called ``control characters.'' These are
+characters that you type by holding down both the @kbd{CONTROL} key and
+another key, at the same time. For example, a @kbd{Ctrl-d} is typed
+by first pressing and holding the @kbd{CONTROL} key, next
+pressing the @kbd{d} key and finally releasing both keys.
+
+@c fakenode --- for prepinfo
+@subsubheading Dark Corners
+@cindex Kernighan, Brian
+@quotation
+@i{Dark corners are basically fractal --- no matter how much
+you illuminate, there's always a smaller but darker one.}@*
+Brian Kernighan
+@end quotation
+
+@cindex d.c., see ``dark corner''
+@cindex dark corner
+Until the POSIX standard (and @cite{The Gawk Manual}),
+many features of @command{awk} were either poorly documented or not
+documented at all. Descriptions of such features
+(often called ``dark corners'') are noted in this @value{DOCUMENT} with
+@iftex
+the picture of a flashlight in the margin, as shown here.
+@value{DARKCORNER}
+@end iftex
+@ifnottex
+``(d.c.)''.
+@end ifnottex
+They also appear in the index under the heading ``dark corner.''
+
+As noted by the opening quote, though, any
+coverage of dark corners
+is, by definition, something that is incomplete.
+
+@node Manual History, How To Contribute, Conventions, Preface
@unnumberedsec The GNU Project and This Book
+@cindex Torvalds, Linus
+@cindex sex, comparisons with
+@quotation
+@i{Software is like sex: it's better when it's free.}@*
+Linus Torvalds
+@end quotation
+@cindex FSF
@cindex Free Software Foundation
@cindex Stallman, Richard
The Free Software Foundation (FSF) is a non-profit organization dedicated
@@ -612,493 +1207,391 @@ It was founded by Richard M.@: Stallman, the author of the original
Emacs editor. GNU Emacs is the most widely used version of Emacs today.
@cindex GNU Project
-The GNU project is an on-going effort on the part of the Free Software
-Foundation to create a complete, freely distributable, POSIX compliant
-computing environment. (GNU stands for ``GNU's not Unix''.)
-The FSF uses the ``GNU General Public License'' (or GPL) to ensure that
-source code for their software is always available to the end user. A
-copy of the GPL is included for your reference
-(@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE}).
-The GPL applies to the C language source code for @code{gawk}.
+@cindex GPL
+@cindex General Public License
+@cindex GNU General Public License
+@cindex online documentation
+@cindex documentation, online
+The GNU@footnote{GNU stands for ``GNU's not Unix.''}
+Project is an ongoing effort on the part of the Free Software
+Foundation to create a complete, freely distributable, POSIX-compliant
+computing environment.
+The FSF uses the ``GNU General Public License'' (GPL) to ensure that
+their software's
+source code is always available to the end user. A
+copy of the GPL is included
+@ifnotinfo
+in this @value{DOCUMENT}
+@end ifnotinfo
+for your reference
+(@pxref{Copying, ,GNU General Public License}).
+The GPL applies to the C language source code for @command{gawk}.
+To find out more about the FSF and the GNU Project online,
+see @uref{http://www.gnu.org, the GNU Project's home page}.
+This @value{DOCUMENT} may also be read from
+@uref{http://www.gnu.org/manual/gawk/, their web site}.
A shell, an editor (Emacs), highly portable optimizing C, C++, and
-Objective-C compilers, a symbolic debugger, and dozens of large and
-small utilities (such as @code{gawk}), have all been completed and are
-freely available. As of this writing (early 1997), the GNU operating
-system kernel (the HURD), has been released, but is still in an early
+Objective-C compilers, a symbolic debugger and dozens of large and
+small utilities (such as @command{gawk}), have all been completed and are
+freely available. The GNU operating
+system kernel (the HURD), has been released but is still in an early
stage of development.
@cindex Linux
+@cindex GNU/Linux
+@cindex BSD-based operating systems
@cindex NetBSD
@cindex FreeBSD
+@cindex OpenBSD
Until the GNU operating system is more fully developed, you should
-consider using Linux, a freely distributable, Unix-like operating
-system for 80386, DEC Alpha, Sun SPARC and other systems. There are
-many books on Linux. One freely available one is @cite{Linux
+consider using GNU/Linux, a freely distributable, Unix-like operating
+system for Intel 80386, DEC Alpha, Sun SPARC, IBM S/390, and other
+systems.@footnote{The terminology ``GNU/Linux'' is explained
+in the @ref{Glossary}.}
+There are
+many books on GNU/Linux. One that is freely available is @cite{Linux
Installation and Getting Started}, by Matt Welsh.
-Many Linux distributions are available, often in computer stores or
-bundled on CD-ROM with books about Linux.
+Many GNU/Linux distributions are often available in computer stores or
+bundled on CD-ROMs with books about Linux.
(There are three other freely available, Unix-like operating systems for
-80386 and other systems, NetBSD, FreeBSD,and OpenBSD. All are based on the
+80386 and other systems: NetBSD, FreeBSD, and OpenBSD. All are based on the
4.4-Lite Berkeley Software Distribution, and they use recent versions
-of @code{gawk} for their versions of @code{awk}.)
+of @command{gawk} for their versions of @command{awk}.)
-@iftex
-This @value{DOCUMENT} you are reading now is actually free. The
-information in it is freely available to anyone, the machine readable
-source code for the @value{DOCUMENT} comes with @code{gawk}, and anyone
+@ifnotinfo
+The @value{DOCUMENT} you are reading now is actually free---at least, the
+information in it is free to anyone. The machine readable
+source code for the @value{DOCUMENT} comes with @command{gawk}; anyone
may take this @value{DOCUMENT} to a copying machine and make as many
-copies of it as they like. (Take a moment to check the copying
-permissions on the Copyright page.)
-
-If you paid money for this @value{DOCUMENT}, what you actually paid for
-was the @value{DOCUMENT}'s nice printing and binding, and the
-publisher's associated costs to produce it. We have made an effort to
-keep these costs reasonable; most people would prefer a bound book to
-over 330 pages of photo-copied text that would then have to be held in
-a loose-leaf binder (not to mention the time and labor involved in
-doing the copying). The same is true of producing this
-@value{DOCUMENT} from the machine readable source; the retail price is
-only slightly more than the cost per page of printing it
-on a laser printer.
-@end iftex
+copies of it as they like. (Take a moment to check the Free Documentation
+License; see @ref{GNU Free Documentation License}.)
+
+Although you could just print it out yourself, bound books are much
+easier to read and use. Furthermore,
+the proceeds from sales of this book go back to the FSF
+to help fund development of more free software.
+@end ifnotinfo
-This @value{DOCUMENT} itself has gone through several previous,
-preliminary editions. I started working on a preliminary draft of
-@cite{The GAWK Manual}, by Diane Close, Paul Rubin, and Richard
-Stallman in the fall of 1988.
-It was around 90 pages long, and barely described the original, ``old''
-version of @code{awk}. After substantial revision, the first version of
+@ignore
+@cindex Close, Diane
+The @value{DOCUMENT} itself has gone through several previous,
+preliminary editions.
+Paul Rubin wrote the very first draft of @cite{The GAWK Manual};
+it was around 40 pages in size.
+Diane Close and Richard Stallman improved it, yielding the
+version which I started working with in the fall of 1988.
+It was around 90 pages long and barely described the original, ``old''
+version of @command{awk}. After substantial revision, the first version of
the @cite{The GAWK Manual} to be released was Edition 0.11 Beta in
October of 1989. The manual then underwent more substantial revision
for Edition 0.13 of December 1991.
-David Trueman, Pat Rankin, and Michal Jaegermann contributed sections
+David Trueman, Pat Rankin and Michal Jaegermann contributed sections
of the manual for Edition 0.13.
That edition was published by the
-FSF as a bound book early in 1992. Since then there have been several
+FSF as a bound book early in 1992. Since then there were several
minor revisions, notably Edition 0.14 of November 1992 that was published
-by the FSF in January of 1993, and Edition 0.16 of August 1993.
+by the FSF in January of 1993 and Edition 0.16 of August 1993.
-Edition 1.0 of @cite{@value{TITLE}} represents a significant re-working
+Edition 1.0 of @cite{GAWK: The GNU Awk User's Guide} represented a significant re-working
of @cite{The GAWK Manual}, with much additional material.
-The FSF and I agree that I am now the primary author.
-I also felt that it needed a more descriptive title.
+The FSF and I agreed that I was now the primary author.
+@c I also felt that the manual needed a more descriptive title.
+
+In January 1996, SSC published Edition 1.0 under the title @cite{Effective AWK Programming}.
+In February 1997, they published Edition 1.0.3 which had minor changes
+as a ``second edition.''
+In 1999, the FSF published this same version as Edition 2
+of @cite{GAWK: The GNU Awk User's Guide}.
+
+Edition @value{EDITION} maintains the basic structure of Edition 1.0,
+but with significant additional material, reflecting the host of new features
+in @command{gawk} @value{PVERSION} @value{VERSION}.
+Of particular note is
+@ref{Array Sorting, ,Sorting Array Values and Indices with @command{gawk}},
+@ref{Bitwise Functions, ,Using @command{gawk}'s Bit Manipulation Functions},
+@ref{Internationalization, ,Internationalization with @command{gawk}},
+@ref{Advanced Features, ,Advanced Features of @command{gawk}},
+and
+@ref{Dynamic Extensions, ,Adding New Built-in Functions to @command{gawk}}.
+@end ignore
+
+@cindex Close, Diane
+The @value{DOCUMENT} itself has gone through a number of previous editions.
+Paul Rubin wrote the very first draft of @cite{The GAWK Manual};
+it was around 40 pages in size.
+Diane Close and Richard Stallman improved it, yielding a
+version that was
+around 90 pages long and barely described the original, ``old''
+version of @command{awk}.
+
+I started working with that version in the fall of 1988.
+As work on it progressed,
+the FSF published several preliminary versions (numbered 0.@var{x}).
+In 1996, Edition 1.0 was released with @command{gawk} 3.0.0.
+The FSF published the first two editions under
+the title @cite{The GNU Awk User's Guide}.
+
+This edition maintains the basic structure of Edition 1.0,
+but with significant additional material, reflecting the host of new features
+in @command{gawk} @value{PVERSION} @value{VERSION}.
+Of particular note is
+@ref{Array Sorting, ,Sorting Array Values and Indices with @command{gawk}},
+as well as
+@ref{Bitwise Functions, ,Using @command{gawk}'s Bit Manipulation Functions},
+@ref{Internationalization, ,Internationalization with @command{gawk}},
+and also
+@ref{Advanced Features, ,Advanced Features of @command{gawk}},
+and
+@ref{Dynamic Extensions, ,Adding New Built-in Functions to @command{gawk}}.
@cite{@value{TITLE}} will undoubtedly continue to evolve.
An electronic version
-comes with the @code{gawk} distribution from the FSF.
+comes with the @command{gawk} distribution from the FSF.
If you find an error in this @value{DOCUMENT}, please report it!
@xref{Bugs, ,Reporting Problems and Bugs}, for information on submitting
-problem reports electronically, or write to me in care of the FSF.
+problem reports electronically, or write to me in care of the publisher.
-@node Acknowledgements, , Manual History, Preface
-@unnumberedsec Acknowledgements
+@node How To Contribute, Acknowledgments, Manual History, Preface
+@unnumberedsec How to Contribute
-@cindex Stallman, Richard
-I would like to acknowledge Richard M.@: Stallman, for his vision of a
-better world, and for his courage in founding the FSF and starting the
-GNU project.
+As the maintainer of GNU @command{awk},
+I am starting a collection of publicly available @command{awk}
+programs.
+For more information,
+see @uref{ftp://ftp.freefriends.org/arnold/Awkstuff}.
+If you have written an interesting @command{awk} program, or have written a
+@command{gawk} extension that you would like to
+share with the rest of the world, please contact me (@email{arnold@@gnu.org}).
+Making things available on the Internet helps keep the
+@command{gawk} distribution down to manageable size.
+
+@node Acknowledgments, , How To Contribute, Preface
+@unnumberedsec Acknowledgments
-The initial draft of @cite{The GAWK Manual} had the following acknowledgements:
+The initial draft of @cite{The GAWK Manual} had the following acknowledgments:
@quotation
Many people need to be thanked for their assistance in producing this
manual. Jay Fenlason contributed many ideas and sample programs. Richard
Mlynarik and Robert Chassell gave helpful comments on drafts of this
-manual. The paper @cite{A Supplemental Document for @code{awk}} by John W.@:
+manual. The paper @cite{A Supplemental Document for @command{awk}} by John W.@:
Pierce of the Chemistry Department at UC San Diego, pinpointed several
-issues relevant both to @code{awk} implementation and to this manual, that
+issues relevant both to @command{awk} implementation and to this manual, that
would otherwise have escaped us.
@end quotation
-The following people provided many helpful comments on Edition 0.13 of
-@cite{The GAWK Manual}: Rick Adams, Michael Brennan, Rich Burridge, Diane Close,
-Christopher (``Topher'') Eliot, Michael Lijewski, Pat Rankin, Miriam Robbins,
-and Michal Jaegermann.
+@cindex Stallman, Richard
+I would like to acknowledge Richard M.@: Stallman, for his vision of a
+better world and for his courage in founding the FSF and starting the
+GNU project.
-The following people provided many helpful comments for Edition 1.0 of
-@cite{@value{TITLE}}: Karl Berry, Michael Brennan, Darrel
-Hankerson, Michal Jaegermann, Michael Lijewski, and Miriam Robbins.
-Pat Rankin, Michal Jaegermann, Darrel Hankerson and Scott Deifik
-updated their respective sections for Edition 1.0.
+The following people (in alphabetical order)
+provided helpful comments on various
+versions of this book, up to and including this edition.
+Rick Adams,
+Nelson H.F. Beebe,
+Karl Berry,
+Dr.@: Michael Brennan,
+Rich Burridge,
+Claire Coutier,
+Diane Close,
+Scott Deifik,
+Christopher (``Topher'') Eliot,
+Jeffrey Friedl,
+Dr.@: Darrel Hankerson,
+Michal Jaegermann,
+Dr.@: Richard J.@: LeBlanc,
+Michael Lijewski,
+Pat Rankin,
+Miriam Robbins,
+Mary Sheehan,
+and
+Chuck Toporek.
+@cindex Berry, Karl
+@cindex Chassell, Robert J.@:
+@cindex Texinfo
Robert J.@: Chassell provided much valuable advice on
-the use of Texinfo. He also deserves special thanks for
+the use of Texinfo.
+He also deserves special thanks for
convincing me @emph{not} to title this @value{DOCUMENT}
@cite{How To Gawk Politely}.
Karl Berry helped significantly with the @TeX{} part of Texinfo.
+@cindex Hartholz, Marshall
+@cindex Hartholz, Elaine
+@cindex Schreiber, Bert
+@cindex Schreiber, Rita
+I would like to thank Marshall and Elaine Hartholz of Seattle and
+Dr.@: Bert and Rita Schreiber of Detroit for large amounts of quiet vacation
+time in their homes, which allowed me to make significant progress on
+this @value{DOCUMENT} and on @command{gawk} itself.
+
+@cindex Hughes, Phil
+Phil Hughes of SSC
+contributed in a very important way by loaning me his laptop GNU/Linux
+system, not once, but twice, which allowed me to do a lot of work while
+away from home.
+
@cindex Trueman, David
David Trueman deserves special credit; he has done a yeoman job
-of evolving @code{gawk} so that it performs well, and without bugs.
-Although he is no longer involved with @code{gawk},
+of evolving @command{gawk} so that it performs well and without bugs.
+Although he is no longer involved with @command{gawk},
working with him on this project was a significant pleasure.
+@cindex Drepper, Ulrich
+@cindex GNITS mailing list
+The intrepid members of the GNITS mailing list, and most notably Ulrich
+Drepper, provided invaluable help and feedback for the design of the
+internationalization features.
+
+@cindex Beebe, Nelson
+@cindex Brown, Martin
@cindex Deifik, Scott
@cindex Hankerson, Darrel
-@cindex Rommel, Kai Uwe
-@cindex Rankin, Pat
@cindex Jaegermann, Michal
-Scott Deifik, Darrel Hankerson, Kai Uwe Rommel, Pat Rankin, and Michal
-Jaegermann (in no particular order) are long time members of the
-@code{gawk} ``crack portability team.'' Without their hard work and
-help, @code{gawk} would not be nearly the fine program it is today. It
+@cindex Kahrs, J@"urgen
+@cindex Rankin, Pat
+@cindex Rommel, Kai Uwe
+@cindex Zaretskii, Eli
+Nelson Beebe,
+Martin Brown,
+Scott Deifik,
+Darrel Hankerson,
+Michal Jaegermann,
+J@"urgen Kahrs,
+Pat Rankin,
+Kai Uwe Rommel,
+and Eli Zaretskii
+(in alphabetical order)
+are long-time members of the
+@command{gawk} ``crack portability team.'' Without their hard work and
+help, @command{gawk} would not be nearly the fine program it is today. It
has been and continues to be a pleasure working with this team of fine
people.
-@cindex Friedl, Jeffrey
-Jeffrey Friedl provided invaluable help in tracking down a number
-of last minute problems with regular expressions in @code{gawk} 3.0.
-
@cindex Kernighan, Brian
-David and I would like to thank Brian Kernighan of Bell Labs for
-invaluable assistance during the testing and debugging of @code{gawk}, and for
+David and I would like to thank Brian Kernighan of Bell Laboratories for
+invaluable assistance during the testing and debugging of @command{gawk}, and for
help in clarifying numerous points about the language. We could not have
-done nearly as good a job on either @code{gawk} or its documentation without
+done nearly as good a job on either @command{gawk} or its documentation without
his help.
-@cindex Hughes, Phil
-I would like to thank Marshall and Elaine Hartholz of Seattle, and Dr.@:
-Bert and Rita Schreiber of Detroit for large amounts of quiet vacation
-time in their homes, which allowed me to make significant progress on
-this @value{DOCUMENT} and on @code{gawk} itself. Phil Hughes of SSC
-contributed in a very important way by loaning me his laptop Linux
-system, not once, but twice, allowing me to do a lot of work while
-away from home.
+Chuck Toporek, Mary Sheehan, and Claire Coutier of O'Reilly & Associates contributed
+significant editorial help for this @value{DOCUMENT} for the
+3.1 release of @command{gawk}.
@cindex Robbins, Miriam
-Finally, I must thank my wonderful wife, Miriam, for her patience through
+@cindex Robbins, Jean
+@cindex Robbins, Harry
+@cindex G-d
+I must thank my wonderful wife, Miriam, for her patience through
the many versions of this project, for her proof-reading,
and for sharing me with the computer.
I would like to thank my parents for their love, and for the grace with
which they raised and educated me.
-I also must acknowledge my gratitude to G-d, for the many opportunities
+Finally, I also must acknowledge my gratitude to G-d, for the many opportunities
He has sent my way, as well as for the gifts He has given me with which to
take advantage of those opportunities.
@sp 2
@noindent
Arnold Robbins @*
-Atlanta, Georgia @*
-February, 1997
+Nof Ayalon @*
+ISRAEL @*
+March, 2001
@ignore
-Stuff still not covered anywhere:
-BASICS:
- Integer vs. floating point
- Hex vs. octal vs. decimal
- Interpreter vs compiler
- input/output
-@end ignore
-
-@node What Is Awk, Getting Started, Preface, Top
-@chapter Introduction
-
-If you are like many computer users, you would frequently like to make
-changes in various text files wherever certain patterns appear, or
-extract data from parts of certain lines while discarding the rest. To
-write a program to do this in a language such as C or Pascal is a
-time-consuming inconvenience that may take many lines of code. The job
-may be easier with @code{awk}.
-
-The @code{awk} utility interprets a special-purpose programming language
-that makes it possible to handle simple data-reformatting jobs
-with just a few lines of code.
-
-The GNU implementation of @code{awk} is called @code{gawk}; it is fully
-upward compatible with the System V Release 4 version of
-@code{awk}. @code{gawk} is also upward compatible with the POSIX
-specification of the @code{awk} language. This means that all
-properly written @code{awk} programs should work with @code{gawk}.
-Thus, we usually don't distinguish between @code{gawk} and other @code{awk}
-implementations.
-
-@cindex uses of @code{awk}
-Using @code{awk} you can:
+@c Try this
+@iftex
+@page
+@headings off
+@majorheading I@ @ @ @ The @command{awk} Language and @command{gawk}
+Part I describes the @command{awk} language and @command{gawk} program in detail.
+It starts with the basics, and continues through all of the features of @command{awk}
+and @command{gawk}. It contains the following chapters:
@itemize @bullet
@item
-manage small, personal databases
+@ref{Getting Started, ,Getting Started with @command{awk}}.
@item
-generate reports
+@ref{Regexp, ,Regular Expressions}.
@item
-validate data
+@ref{Reading Files, , Reading Input Files}.
@item
-produce indexes, and perform other document preparation tasks
+@ref{Printing, , Printing Output}.
@item
-even experiment with algorithms that can be adapted later to other computer
-languages
-@end itemize
-
-@menu
-* This Manual:: Using this @value{DOCUMENT}. Includes sample
- input files that you can use.
-* Conventions:: Typographical Conventions.
-* Sample Data Files:: Sample data files for use in the @code{awk}
- programs illustrated in this @value{DOCUMENT}.
-@end menu
-
-@node This Manual, Conventions, What Is Awk, What Is Awk
-@section Using This Book
-@cindex book, using this
-@cindex using this book
-@cindex language, @code{awk}
-@cindex program, @code{awk}
-@ignore
-@cindex @code{awk} language
-@cindex @code{awk} program
-@end ignore
-
-The term @code{awk} refers to a particular program, and to the language you
-use to tell this program what to do. When we need to be careful, we call
-the program ``the @code{awk} utility'' and the language ``the @code{awk}
-language.'' The term @code{gawk} refers to a version of @code{awk} developed
-as part the GNU project. The purpose of this @value{DOCUMENT} is to explain
-both the @code{awk} language and how to run the @code{awk} utility.
-
-The main purpose of the @value{DOCUMENT} is to explain the features
-of @code{awk}, as defined in the POSIX standard. It does so in the context
-of one particular implementation, @code{gawk}. While doing so, it will also
-attempt to describe important differences between @code{gawk} and other
-@code{awk} implementations. Finally, any @code{gawk} features that
-are not in the POSIX standard for @code{awk} will be noted.
-
-@iftex
-This @value{DOCUMENT} has the difficult task of being both tutorial and reference.
-If you are a novice, feel free to skip over details that seem too complex.
-You should also ignore the many cross references; they are for the
-expert user, and for the on-line Info version of the document.
-@end iftex
-
-The term @dfn{@code{awk} program} refers to a program written by you in
-the @code{awk} programming language.
-
-@xref{Getting Started, ,Getting Started with @code{awk}}, for the bare
-essentials you need to know to start using @code{awk}.
-
-Some useful ``one-liners'' are included to give you a feel for the
-@code{awk} language (@pxref{One-liners, ,Useful One Line Programs}).
-
-Many sample @code{awk} programs have been provided for you
-(@pxref{Library Functions, ,A Library of @code{awk} Functions}; also
-@pxref{Sample Programs, ,Practical @code{awk} Programs}).
-
-The entire @code{awk} language is summarized for quick reference in
-@ref{Gawk Summary, ,@code{gawk} Summary}. Look there if you just need
-to refresh your memory about a particular feature.
-
-If you find terms that you aren't familiar with, try looking them
-up in the glossary (@pxref{Glossary}).
-
-Most of the time complete @code{awk} programs are used as examples, but in
-some of the more advanced sections, only the part of the @code{awk} program
-that illustrates the concept being described is shown.
+@ref{Expressions}.
-While this @value{DOCUMENT} is aimed principally at people who have not been
-exposed
-to @code{awk}, there is a lot of information here that even the @code{awk}
-expert should find useful. In particular, the description of POSIX
-@code{awk}, and the example programs in
-@ref{Library Functions, ,A Library of @code{awk} Functions}, and
-@ref{Sample Programs, ,Practical @code{awk} Programs},
-should be of interest.
-
-@c fakenode --- for prepinfo
-@unnumberedsubsec Dark Corners
-@display
-@i{Who opened that window shade?!?}
-Count Dracula
-@end display
-@sp 1
+@item
+@ref{Patterns and Actions, ,Patterns Actions and Variables}.
-@cindex d.c., see ``dark corner''
-@cindex dark corner
-Until the POSIX standard (and @cite{The Gawk Manual}),
-many features of @code{awk} were either poorly documented, or not
-documented at all. Descriptions of such features
-(often called ``dark corners'') are noted in this @value{DOCUMENT} with
-``(d.c.)''.
-They also appear in the index under the heading ``dark corner.''
+@item
+@ref{Arrays, ,Arrays in @command{awk}}.
-@node Conventions, Sample Data Files, This Manual, What Is Awk
-@section Typographical Conventions
+@item
+@ref{Functions}.
-This @value{DOCUMENT} is written using Texinfo, the GNU documentation formatting language.
-A single Texinfo source file is used to produce both the printed and on-line
-versions of the documentation.
-@iftex
-Because of this, the typographical conventions
-are slightly different than in other books you may have read.
-@end iftex
-@ifinfo
-This section briefly documents the typographical conventions used in Texinfo.
-@end ifinfo
+@item
+@ref{Internationalization, ,Internationalization with @command{gawk}}.
-Examples you would type at the command line are preceded by the common
-shell primary and secondary prompts, @samp{$} and @samp{>}.
-Output from the command is preceded by the glyph ``@print{}''.
-This typically represents the command's standard output.
-Error messages, and other output on the command's standard error, are preceded
-by the glyph ``@error{}''. For example:
+@item
+@ref{Advanced Features, ,Advanced Features of @command{gawk}}.
-@example
-@group
-$ echo hi on stdout
-@print{} hi on stdout
-$ echo hello on stderr 1>&2
-@error{} hello on stderr
-@end group
-@end example
+@item
+@ref{Invoking Gawk, ,Running @command{awk} and @command{gawk}}.
+@end itemize
-@iftex
-In the text, command names appear in @code{this font}, while code segments
-appear in the same font and quoted, @samp{like this}. Some things will
-be emphasized @emph{like this}, and if a point needs to be made
-strongly, it will be done @strong{like this}. The first occurrence of
-a new term is usually its @dfn{definition}, and appears in the same
-font as the previous occurrence of ``definition'' in this sentence.
-File names are indicated like this: @file{/path/to/ourfile}.
+@page
+@evenheading @thispage@ @ @ @strong{@value{TITLE}} @| @|
+@oddheading @| @| @strong{@thischapter}@ @ @ @thispage
@end iftex
+@end ignore
-Characters that you type at the keyboard look @kbd{like this}. In particular,
-there are special characters called ``control characters.'' These are
-characters that you type by holding down both the @kbd{CONTROL} key and
-another key, at the same time. For example, a @kbd{Control-d} is typed
-by first pressing and holding the @kbd{CONTROL} key, next
-pressing the @kbd{d} key, and finally releasing both keys.
-
-@node Sample Data Files, , Conventions, What Is Awk
-@section Data Files for the Examples
-
-@cindex input file, sample
-@cindex sample input file
-@cindex @file{BBS-list} file
-Many of the examples in this @value{DOCUMENT} take their input from two sample
-data files. The first, called @file{BBS-list}, represents a list of
-computer bulletin board systems together with information about those systems.
-The second data file, called @file{inventory-shipped}, contains
-information about shipments on a monthly basis. In both files,
-each line is considered to be one @dfn{record}.
-
-In the file @file{BBS-list}, each record contains the name of a computer
-bulletin board, its phone number, the board's baud rate(s), and a code for
-the number of hours it is operational. An @samp{A} in the last column
-means the board operates 24 hours a day. A @samp{B} in the last
-column means the board operates evening and weekend hours, only. A
-@samp{C} means the board operates only on weekends.
-
-@c 2e: Update the baud rates to reflect today's faster modems
-@example
-@c system mkdir eg
-@c system mkdir eg/lib
-@c system mkdir eg/data
-@c system mkdir eg/prog
-@c system mkdir eg/misc
-@c file eg/data/BBS-list
-aardvark 555-5553 1200/300 B
-alpo-net 555-3412 2400/1200/300 A
-barfly 555-7685 1200/300 A
-bites 555-1675 2400/1200/300 A
-camelot 555-0542 300 C
-core 555-2912 1200/300 C
-fooey 555-1234 2400/1200/300 B
-foot 555-6699 1200/300 B
-macfoo 555-6480 1200/300 A
-sdace 555-3430 2400/1200/300 A
-sabafoo 555-2127 1200/300 C
-@c endfile
-@end example
-
-@cindex @file{inventory-shipped} file
-The second data file, called @file{inventory-shipped}, represents
-information about shipments during the year.
-Each record contains the month of the year, the number
-of green crates shipped, the number of red boxes shipped, the number of
-orange bags shipped, and the number of blue packages shipped,
-respectively. There are 16 entries, covering the 12 months of one year
-and four months of the next year.
-
-@example
-@c file eg/data/inventory-shipped
-Jan 13 25 15 115
-Feb 15 32 24 226
-Mar 15 24 34 228
-Apr 31 52 63 420
-May 16 34 29 208
-Jun 31 42 75 492
-Jul 24 34 67 436
-Aug 15 34 47 316
-Sep 13 55 37 277
-Oct 29 54 68 525
-Nov 20 87 82 577
-Dec 17 35 61 401
-
-Jan 21 36 64 620
-Feb 26 58 80 652
-Mar 24 75 70 495
-Apr 21 70 74 514
-@c endfile
-@end example
-
-@ifinfo
-If you are reading this in GNU Emacs using Info, you can copy the regions
-of text showing these sample files into your own test files. This way you
-can try out the examples shown in the remainder of this document. You do
-this by using the command @kbd{M-x write-region} to copy text from the Info
-file into a file for use with @code{awk}
-(@xref{Misc File Ops, , Miscellaneous File Operations, emacs, GNU Emacs Manual},
-for more information). Using this information, create your own
-@file{BBS-list} and @file{inventory-shipped} files, and practice what you
-learn in this @value{DOCUMENT}.
-
-If you are using the stand-alone version of Info,
-see @ref{Extract Program, ,Extracting Programs from Texinfo Source Files},
-for an @code{awk} program that will extract these data files from
-@file{gawk.texi}, the Texinfo source file for this Info file.
-@end ifinfo
-
-@node Getting Started, One-liners, What Is Awk, Top
-@chapter Getting Started with @code{awk}
+@node Getting Started, Regexp, Preface, Top
+@chapter Getting Started with @command{awk}
@cindex script, definition of
@cindex rule, definition of
@cindex program, definition of
-@cindex basic function of @code{awk}
+@cindex basic function of @command{awk}
-The basic function of @code{awk} is to search files for lines (or other
+The basic function of @command{awk} is to search files for lines (or other
units of text) that contain certain patterns. When a line matches one
-of the patterns, @code{awk} performs specified actions on that line.
-@code{awk} keeps processing input lines in this way until the end of the
-input files are reached.
+of the patterns, @command{awk} performs specified actions on that line.
+@command{awk} keeps processing input lines in this way until it reaches
+the end of the input files.
@cindex data-driven languages
@cindex procedural languages
@cindex language, data-driven
@cindex language, procedural
-Programs in @code{awk} are different from programs in most other languages,
-because @code{awk} programs are @dfn{data-driven}; that is, you describe
-the data you wish to work with, and then what to do when you find it.
+Programs in @command{awk} are different from programs in most other languages,
+because @command{awk} programs are @dfn{data-driven}; that is, you describe
+the data you want to work with and then what to do when you find it.
Most other languages are @dfn{procedural}; you have to describe, in great
detail, every step the program is to take. When working with procedural
languages, it is usually much
harder to clearly describe the data your program will process.
-For this reason, @code{awk} programs are often refreshingly easy to both
+For this reason, @command{awk} programs are often refreshingly easy to
write and read.
@cindex program, definition of
@cindex rule, definition of
-When you run @code{awk}, you specify an @code{awk} @dfn{program} that
-tells @code{awk} what to do. The program consists of a series of
+When you run @command{awk}, you specify an @command{awk} @dfn{program} that
+tells @command{awk} what to do. The program consists of a series of
@dfn{rules}. (It may also contain @dfn{function definitions},
-an advanced feature which we will ignore for now.
-@xref{User-defined, ,User-defined Functions}.) Each rule specifies one
-pattern to search for, and one action to perform when that pattern is found.
+an advanced feature that we will ignore for now.
+@xref{User-defined, ,User-Defined Functions}.) Each rule specifies one
+pattern to search for and one action to perform
+upon finding the pattern.
Syntactically, a rule consists of a pattern followed by an action. The
action is enclosed in curly braces to separate it from the pattern.
-Rules are usually separated by newlines. Therefore, an @code{awk}
+Newlines usually separate rules. Therefore, an @command{awk}
program looks like this:
@example
@@ -1108,70 +1601,34 @@ program looks like this:
@end example
@menu
-* Names:: What name to use to find @code{awk}.
-* Running gawk:: How to run @code{gawk} programs; includes
- command line syntax.
+* Running gawk:: How to run @command{gawk} programs; includes
+ command-line syntax.
+* Sample Data Files:: Sample data files for use in the @command{awk}
+ programs illustrated in this @value{DOCUMENT}.
* Very Simple:: A very simple example.
-* Two Rules:: A less simple one-line example with two rules.
+* Two Rules:: A less simple one-line example using two
+ rules.
* More Complex:: A more complex example.
* Statements/Lines:: Subdividing or combining statements into
lines.
-* Other Features:: Other Features of @code{awk}.
-* When:: When to use @code{gawk} and when to use other
- things.
+* Other Features:: Other Features of @command{awk}.
+* When:: When to use @command{gawk} and when to use
+ other things.
@end menu
-@node Names, Running gawk , Getting Started, Getting Started
-@section A Rose By Any Other Name
-
-@cindex old @code{awk} vs. new @code{awk}
-@cindex new @code{awk} vs. old @code{awk}
-The @code{awk} language has evolved over the years. Full details are
-provided in @ref{Language History, ,The Evolution of the @code{awk} Language}.
-The language described in this @value{DOCUMENT}
-is often referred to as ``new @code{awk}.''
-
-Because of this, many systems have multiple
-versions of @code{awk}.
-Some systems have an @code{awk} utility that implements the
-original version of the @code{awk} language, and a @code{nawk} utility
-for the new version. Others have an @code{oawk} for the ``old @code{awk}''
-language, and plain @code{awk} for the new one. Still others only
-have one version, usually the new one.@footnote{Often, these systems
-use @code{gawk} for their @code{awk} implementation!}
-
-All in all, this makes it difficult for you to know which version of
-@code{awk} you should run when writing your programs. The best advice
-we can give here is to check your local documentation. Look for @code{awk},
-@code{oawk}, and @code{nawk}, as well as for @code{gawk}. Chances are, you
-will have some version of new @code{awk} on your system, and that is what
-you should use when running your programs. (Of course, if you're reading
-this @value{DOCUMENT}, chances are good that you have @code{gawk}!)
-
-Throughout this @value{DOCUMENT}, whenever we refer to a language feature
-that should be available in any complete implementation of POSIX @code{awk},
-we simply use the term @code{awk}. When referring to a feature that is
-specific to the GNU implementation, we use the term @code{gawk}.
+@node Running gawk, Sample Data Files, Getting Started, Getting Started
+@section How to Run @command{awk} Programs
-@node Running gawk, Very Simple, Names, Getting Started
-@section How to Run @code{awk} Programs
-
-@cindex command line formats
-@cindex running @code{awk} programs
-There are several ways to run an @code{awk} program. If the program is
-short, it is easiest to include it in the command that runs @code{awk},
+@cindex command-line formats
+@cindex running @command{awk} programs
+There are several ways to run an @command{awk} program. If the program is
+short, it is easiest to include it in the command that runs @command{awk},
like this:
@example
awk '@var{program}' @var{input-file1} @var{input-file2} @dots{}
@end example
-@noindent
-where @var{program} consists of a series of patterns and actions, as
-described earlier.
-(The reason for the single quotes is described below, in
-@ref{One-shot, ,One-shot Throw-away @code{awk} Programs}.)
-
When the program is long, it is usually more convenient to put it in a file
and run it with a command like this:
@@ -1179,22 +1636,28 @@ and run it with a command like this:
awk -f @var{program-file} @var{input-file1} @var{input-file2} @dots{}
@end example
+This @value{SECTION} discusses both mechanisms, along with several
+variations of each.
+
@menu
-* One-shot:: Running a short throw-away @code{awk} program.
+* One-shot:: Running a short throw-away @command{awk}
+ program.
* Read Terminal:: Using no input files (input from terminal
instead).
-* Long:: Putting permanent @code{awk} programs in
+* Long:: Putting permanent @command{awk} programs in
files.
-* Executable Scripts:: Making self-contained @code{awk} programs.
-* Comments:: Adding documentation to @code{gawk} programs.
+* Executable Scripts:: Making self-contained @command{awk} programs.
+* Comments:: Adding documentation to @command{gawk}
+ programs.
+* Quoting:: More discussion of shell quoting issues.
@end menu
@node One-shot, Read Terminal, Running gawk, Running gawk
-@subsection One-shot Throw-away @code{awk} Programs
+@subsection One-Shot Throw-Away @command{awk} Programs
-Once you are familiar with @code{awk}, you will often type in simple
+Once you are familiar with @command{awk}, you will often type in simple
programs the moment you want to use them. Then you can write the
-program as the first argument of the @code{awk} command, like this:
+program as the first argument of the @command{awk} command, like this:
@example
awk '@var{program}' @var{input-file1} @var{input-file2} @dots{}
@@ -1206,21 +1669,27 @@ where @var{program} consists of a series of @var{patterns} and
@cindex single quotes, why needed
This command format instructs the @dfn{shell}, or command interpreter,
-to start @code{awk} and use the @var{program} to process records in the
-input file(s). There are single quotes around @var{program} so that
-the shell doesn't interpret any @code{awk} characters as special shell
-characters. They also cause the shell to treat all of @var{program} as
-a single argument for @code{awk} and allow @var{program} to be more
+to start @command{awk} and use the @var{program} to process records in the
+input file(s). There are single quotes around @var{program} so
+the shell won't interpret any @command{awk} characters as special shell
+characters. The quotes also cause the shell to treat all of @var{program} as
+a single argument for @command{awk}, and allow @var{program} to be more
than one line long.
-This format is also useful for running short or medium-sized @code{awk}
+This format is also useful for running short or medium-sized @command{awk}
programs from shell scripts, because it avoids the need for a separate
-file for the @code{awk} program. A self-contained shell script is more
-reliable since there are no other files to misplace.
-
-@ref{One-liners, , Useful One Line Programs}, presents several short,
+file for the @command{awk} program. A self-contained shell script is more
+reliable because there are no other files to misplace.
+
+@ref{Very Simple, ,Some Simple Examples},
+@ifnotinfo
+later in this @value{CHAPTER},
+@end ifnotinfo
+presents several short,
self-contained programs.
+@c Removed for gawk 3.1, doesn't really add anything here.
+@ignore
As an interesting side point, the command
@example
@@ -1230,34 +1699,35 @@ awk '/foo/' @var{files} @dots{}
@noindent
is essentially the same as
-@cindex @code{egrep}
+@cindex @command{egrep} utility
@example
egrep foo @var{files} @dots{}
@end example
+@end ignore
@node Read Terminal, Long, One-shot, Running gawk
-@subsection Running @code{awk} without Input Files
+@subsection Running @command{awk} Without Input Files
@cindex standard input
@cindex input, standard
-You can also run @code{awk} without any input files. If you type the
-command line:
+You can also run @command{awk} without any input files. If you type the
+following command line:
@example
awk '@var{program}'
@end example
@noindent
-then @code{awk} applies the @var{program} to the @dfn{standard input},
+@command{awk} applies the @var{program} to the @dfn{standard input},
which usually means whatever you type on the terminal. This continues
-until you indicate end-of-file by typing @kbd{Control-d}.
+until you indicate end-of-file by typing @kbd{Ctrl-d}.
(On other operating systems, the end-of-file character may be different.
-For example, on OS/2 and MS-DOS, it is @kbd{Control-z}.)
+For example, on OS/2 and MS-DOS, it is @kbd{Ctrl-z}.)
-For example, the following program prints a friendly piece of advice
-(from Douglas Adams' @cite{The Hitchhiker's Guide to the Galaxy}),
-to keep you from worrying about the complexities of computer programming
-(@samp{BEGIN} is a feature we haven't discussed yet).
+As an example, the following program prints a friendly piece of advice
+(from Douglas Adams's @cite{The Hitchhiker's Guide to the Galaxy}),
+to keep you from worrying about the complexities of computer programming.
+(@code{BEGIN} is a feature we haven't discussed yet.):
@example
$ awk "BEGIN @{ print \"Don't Panic!\" @}"
@@ -1267,11 +1737,14 @@ $ awk "BEGIN @{ print \"Don't Panic!\" @}"
@cindex quoting, shell
@cindex shell quoting
This program does not read any input. The @samp{\} before each of the
-inner double quotes is necessary because of the shell's quoting rules,
-in particular because it mixes both single quotes and double quotes.
-
-This next simple @code{awk} program
-emulates the @code{cat} utility; it copies whatever you type at the
+inner double quotes is necessary because of the shell's quoting
+rules---in particular because it mixes both single quotes and
+double quotes.@footnote{Although we generally recommend the use of single
+quotes around the program text, double quotes are needed here in order to
+put the single quote into the message.}
+
+This next simple @command{awk} program
+emulates the @command{cat} utility; it copies whatever you type at the
keyboard to its standard output. (Why this works is explained shortly.)
@example
@@ -1284,7 +1757,7 @@ Four score and seven years ago, ...
@print{} Four score and seven years ago, ...
What, me worry?
@print{} What, me worry?
-@kbd{Control-d}
+@kbd{Ctrl-d}
@end example
@node Long, Executable Scripts, Read Terminal, Running gawk
@@ -1292,18 +1765,19 @@ What, me worry?
@cindex running long programs
@cindex @code{-f} option
+@cindex command-line option, @code{-f}
@cindex program file
-@cindex file, @code{awk} program
-Sometimes your @code{awk} programs can be very long. In this case it is
-more convenient to put the program into a separate file. To tell
-@code{awk} to use that file for its program, you type:
+@cindex file, @command{awk} program
+Sometimes your @command{awk} programs can be very long. In this case, it is
+more convenient to put the program into a separate file. In order to tell
+@command{awk} to use that file for its program, you type:
@example
awk -f @var{source-file} @var{input-file1} @var{input-file2} @dots{}
@end example
-The @samp{-f} instructs the @code{awk} utility to get the @code{awk} program
-from the file @var{source-file}. Any file name can be used for
+The @option{-f} instructs the @command{awk} utility to get the @command{awk} program
+from the file @var{source-file}. Any @value{FN} can be used for
@var{source-file}. For example, you could put the program:
@example
@@ -1327,112 +1801,106 @@ awk "BEGIN @{ print \"Don't Panic!\" @}"
@cindex quoting, shell
@cindex shell quoting
@noindent
-which was explained earlier (@pxref{Read Terminal, ,Running @code{awk} without Input Files}).
-Note that you don't usually need single quotes around the file name that you
-specify with @samp{-f}, because most file names don't contain any of the shell's
-special characters. Notice that in @file{advice}, the @code{awk}
+This was explained earlier
+(@pxref{Read Terminal, ,Running @command{awk} Without Input Files}).
+Note that you don't usually need single quotes around the @value{FN} that you
+specify with @option{-f}, because most @value{FN}s don't contain any of the shell's
+special characters. Notice that in @file{advice}, the @command{awk}
program did not have single quotes around it. The quotes are only needed
-for programs that are provided on the @code{awk} command line.
+for programs that are provided on the @command{awk} command line.
-If you want to identify your @code{awk} program files clearly as such,
-you can add the extension @file{.awk} to the file name. This doesn't
-affect the execution of the @code{awk} program, but it does make
+If you want to identify your @command{awk} program files clearly as such,
+you can add the extension @file{.awk} to the @value{FN}. This doesn't
+affect the execution of the @command{awk} program but it does make
``housekeeping'' easier.
@node Executable Scripts, Comments, Long, Running gawk
-@subsection Executable @code{awk} Programs
+@subsection Executable @command{awk} Programs
@cindex executable scripts
@cindex scripts, executable
-@cindex self contained programs
-@cindex program, self contained
+@cindex self-contained programs
+@cindex program, self-contained
@cindex @code{#!} (executable scripts)
-Once you have learned @code{awk}, you may want to write self-contained
-@code{awk} scripts, using the @samp{#!} script mechanism. You can do
+Once you have learned @command{awk}, you may want to write self-contained
+@command{awk} scripts, using the @samp{#!} script mechanism. You can do
this on many Unix systems@footnote{The @samp{#!} mechanism works on
Linux systems,
-Unix systems derived from Berkeley Unix, System V Release 4, and some System
-V Release 3 systems.} (and someday on the GNU system).
-
+systems derived from the 4.4-Lite Berkeley Software Distribution,
+and most commercial Unix systems.} as well as on the GNU system.
For example, you could update the file @file{advice} to look like this:
@example
#! /bin/awk -f
-BEGIN @{ print "Don't Panic!" @}
+BEGIN @{ print "Don't Panic!" @}
@end example
@noindent
-After making this file executable (with the @code{chmod} utility), you
-can simply type @samp{advice}
-at the shell, and the system will arrange to run @code{awk}@footnote{The
-line beginning with @samp{#!} lists the full file name of an interpreter
-to be run, and an optional initial command line argument to pass to that
+After making this file executable (with the @command{chmod} utility),
+simply type @samp{advice}
+at the shell and the system arranges to run @command{awk}@footnote{The
+line beginning with @samp{#!} lists the full @value{FN} of an interpreter
+to run and an optional initial command-line argument to pass to that
interpreter. The operating system then runs the interpreter with the given
argument and the full argument list of the executed program. The first argument
-in the list is the full file name of the @code{awk} program. The rest of the
-argument list will either be options to @code{awk}, or data files,
-or both.} as if you had typed @samp{awk -f advice}.
+in the list is the full @value{FN} of the @command{awk} program. The rest of the
+argument list is either options to @command{awk}, or @value{DF}s,
+or both.} as if you had
+typed @samp{awk -f advice}:
@example
-@group
+$ chmod +x advice
$ advice
@print{} Don't Panic!
-@end group
@end example
@noindent
-Self-contained @code{awk} scripts are useful when you want to write a
-program which users can invoke without their having to know that the program is
-written in @code{awk}.
-
-@strong{Caution:} You should not put more than one argument on the @samp{#!}
-line after the path to @code{awk}. This will not work. The operating system
-treats the rest of the line as a single agument, and passes it to @code{awk}.
-Doing this will lead to confusing behavior: most likely a usage diagnostic
-of some sort from @code{awk}.
-
-@cindex shell scripts
-@cindex scripts, shell
-Some older systems do not support the @samp{#!} mechanism. You can get a
-similar effect using a regular shell script. It would look something
-like this:
+Self-contained @command{awk} scripts are useful when you want to write a
+program that users can invoke without their having to know that the program is
+written in @command{awk}.
-@example
-: The colon ensures execution by the standard shell.
-awk '@var{program}' "$@@"
-@end example
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Portability Issues with @samp{#!}
+@cindex advanced notes
-Using this technique, it is @emph{vital} to enclose the @var{program} in
-single quotes to protect it from interpretation by the shell. If you
-omit the quotes, only a shell wizard can predict the results.
+Some systems limit the length of the interpreter name to 32 characters.
+Often, this can be dealt with by using a symbolic link.
-The @code{"$@@"} causes the shell to forward all the command line
-arguments to the @code{awk} program, without interpretation. The first
-line, which starts with a colon, is used so that this shell script will
-work even if invoked by a user who uses the C shell. (Not all older systems
-obey this convention, but many do.)
-@c 2e:
-@c Someday: (See @cite{The Bourne Again Shell}, by ??.)
+You should not put more than one argument on the @samp{#!}
+line after the path to @command{awk}. It does not work. The operating system
+treats the rest of the line as a single argument and passes it to @command{awk}.
+Doing this leads to confusing behavior---most likely a usage diagnostic
+of some sort from @command{awk}.
-@node Comments, , Executable Scripts, Running gawk
-@subsection Comments in @code{awk} Programs
+@cindex portability issues
+Finally,
+the value of @code{ARGV[0]}
+(@pxref{Built-in Variables})
+varies depending upon your operating system.
+Some systems put @samp{awk} there, some put the full pathname
+of @command{awk} (such as @file{/bin/awk}), and some put the name
+of your script (@samp{advice}). Don't rely on the value of @code{ARGV[0]}
+to provide your script name.
+
+@node Comments, Quoting, Executable Scripts, Running gawk
+@subsection Comments in @command{awk} Programs
@cindex @code{#} (comment)
@cindex comments
@cindex use of comments
-@cindex documenting @code{awk} programs
+@cindex documenting @command{awk} programs
@cindex programs, documenting
A @dfn{comment} is some text that is included in a program for the sake
-of human readers; it is not really part of the program. Comments
-can explain what the program does, and how it works. Nearly all
-programming languages have provisions for comments, because programs are
-typically hard to understand without their extra help.
+of human readers; it is not really an executable part of the program. Comments
+can explain what the program does and how it works. Nearly all
+programming languages have provisions for comments, as programs are
+typically hard to understand without them.
-In the @code{awk} language, a comment starts with the sharp sign
-character, @samp{#}, and continues to the end of the line.
+In the @command{awk} language, a comment starts with the sharp sign
+character (@samp{#}) and continues to the end of the line.
The @samp{#} does not have to be the first character on the line. The
-@code{awk} language ignores the rest of a line following a sharp sign.
+@command{awk} language ignores the rest of a line following a sharp sign.
For example, we could have put the following into @file{advice}:
@example
@@ -1441,72 +1909,310 @@ For example, we could have put the following into @file{advice}:
BEGIN @{ print "Don't Panic!" @}
@end example
-You can put comment lines into keyboard-composed throw-away @code{awk}
-programs also, but this usually isn't very useful; the purpose of a
-comment is to help you or another person understand the program at
-a later time.
+You can put comment lines into keyboard-composed throw-away @command{awk}
+programs, but this usually isn't very useful; the purpose of a
+comment is to help you or another person understand the program
+when reading it at a later time.
+@cindex quoting, shell
+@cindex shell quoting
@strong{Caution:} As mentioned in
-@ref{One-shot, ,One-shot Throw-away @code{awk} Programs},
+@ref{One-shot, ,One-Shot Throw-Away @command{awk} Programs},
you can enclose small to medium programs in single quotes, in order to keep
your shell scripts self-contained. When doing so, @emph{don't} put
an apostrophe (i.e., a single quote) into a comment (or anywhere else
-in your program). The shell will interpret the quote as the closing
-quote for the entire program. As a result, usually the shell will
-print a message about mismatched quotes, and if @code{awk} actually
+in your program). The shell interprets the quote as the closing
+quote for the entire program. As a result, usually the shell
+prints a message about mismatched quotes, and if @command{awk} actually
runs, it will probably print strange messages about syntax errors.
-For example:
+For example, look at the following:
+
+@example
+$ awk '@{ print "hello" @} # let's be cute'
+>
+@end example
+
+The shell sees that the first two quotes match, and that
+a new quoted object begins at the end of the command-line.
+It therefore prompts with the secondary prompt, waiting for more input.
+With Unix @command{awk}, closing the quoted string produces this result:
+
+@example
+$ awk '@{ print "hello" @} # let's be cute'
+> '
+@error{} awk: can't open file be
+@error{} source line number 1
+@end example
+
+Putting a backslash before the single quote in @samp{let's} wouldn't help,
+since backslashes are not special inside single quotes.
+The next @value{SUBSECTION} describes the shell's quoting rules.
+
+@node Quoting, , Comments, Running gawk
+@subsection Shell Quoting Issues
+@c the indexing here is purposely different, until we
+@c get a way to mark the defining instance for an index entry
+@cindex quoting rules, shell
+@cindex shell quoting rules
+
+For short to medium length @command{awk} programs, it is most convenient
+to enter the program on the @command{awk} command line.
+This is best done by enclosing the entire program in single quotes.
+This is true whether you are entering the program interactively at
+the shell prompt, or writing it as part of a larger shell script:
@example
-awk 'BEGIN @{ print "hello" @} # let's be cute'
+awk '@var{program text}' @var{input-file1} @var{input-file2} @dots{}
@end example
-@node Very Simple, Two Rules, Running gawk, Getting Started
-@section A Very Simple Example
+@cindex @command{csh} utility
+Once you are working with the shell, it is helpful to have a basic
+knowledge of shell quoting rules. The following rules apply only to
+POSIX-compliant, Bourne-style shells (such as @command{bash}, the GNU Bourne-Again
+Shell). If you use @command{csh}, you're on your own.
+
+@itemize @bullet
+@item
+Quoted items can be concatenated with nonquoted items as well as with other
+quoted items. The shell turns everything into one argument for
+the command.
+
+@item
+Preceding any single character with a backslash (@samp{\}) quotes
+that character. The shell removes the backslash and passes the quoted
+character on to the command.
-The following command runs a simple @code{awk} program that searches the
-input file @file{BBS-list} for the string of characters: @samp{foo}. (A
+@item
+Single quotes protect everything between the opening and closing quotes.
+The shell does no interpretation of the quoted text, passing it on verbatim
+to the command.
+It is @emph{impossible} to embed a single quote inside single-quoted text.
+Refer back to
+@ref{Comments, ,Comments in @command{awk} Programs},
+for an example showing what happens if you try.
+
+@item
+Double quotes protect most things between the opening and closing quotes.
+The shell does at least variable and command substitution on the quoted text.
+Different shells may do additional kinds of processing on double-quoted text.
+
+Since certain characters within double-quoted text are processed by the shell,
+they must be @dfn{escaped} within the text. Of note are the characters
+@samp{$}, @samp{`}, @samp{\} and @samp{"}, all of which must be preceded by
+a backslash within double-quoted text if they are to be passed on literally
+to the program. (The leading backslash is stripped first.)
+Thus, the example seen
+@ifnotinfo
+previously
+@end ifnotinfo
+in @ref{Read Terminal, ,Running @command{awk} Without Input Files},
+is applicable:
+
+@example
+$ awk "BEGIN @{ print \"Don't Panic!\" @}"
+@print{} Don't Panic!
+@end example
+
+Note that the single quote is not special within double quotes.
+
+@item
+Null strings are removed when they occur as part of a non-null
+command-line argument, while explicit non-null objects are kept.
+For example, to specify that the field separator @code{FS} should
+be set to the null string, use:
+
+@example
+awk -F "" '@var{program}' @var{files} # correct
+@end example
+
+@noindent
+Don't use this:
+
+@example
+awk -F"" '@var{program}' @var{files} # wrong!
+@end example
+
+@noindent
+In the second case, @command{awk} will attempt to use the text of the program
+as the value of @code{FS}, and the first @value{FN} as the text of the program!
+This results in syntax errors at best, and confusing behavior at worst.
+@end itemize
+
+@cindex shell quoting, tricks
+Mixing single and double quotes is difficult. You have to resort
+to shell quoting tricks, like this:
+
+@example
+$ awk 'BEGIN @{ print "Here is a single quote <'"'"'>" @}'
+@print{} Here is a single quote <'>
+@end example
+
+@noindent
+This program consists of three concatenated quoted strings. The first and the
+third are single-quoted, the second is double-quoted.
+
+This can be ``simplified'' to:
+
+@example
+$ awk 'BEGIN @{ print "Here is a single quote <'\''>" @}'
+@print{} Here is a single quote <'>
+@end example
+
+@noindent
+Judge for yourself which of these two is the more readable.
+
+Another option is to use double quotes, escaping the embedded, @command{awk}-level
+double quotes:
+
+@example
+$ awk "BEGIN @{ print \"Here is a single quote <'>\" @}"
+@print{} Here is a single quote <'>
+@end example
+
+@noindent
+This option is also painful, because double quotes, backslashes, and dollar signs
+are very common in @command{awk} programs.
+
+If you really need both single and double quotes in your @command{awk}
+program, it is probably best to move it into a separate file, where
+the shell won't be part of the picture, and you can say what you mean.
+
+@node Sample Data Files, Very Simple, Running gawk, Getting Started
+@section @value{DDF}s for the Examples
+@c For gawk >= 3.2, update these data files. No-one has such slow modems!
+
+@cindex input file, sample
+@cindex sample input files
+@cindex @file{BBS-list} file
+Many of the examples in this @value{DOCUMENT} take their input from two sample
+@value{DF}s. The first, called @file{BBS-list}, represents a list of
+computer bulletin board systems together with information about those systems.
+The second @value{DF}, called @file{inventory-shipped}, contains
+information about monthly shipments. In both files,
+each line is considered to be one @dfn{record}.
+
+In the file @file{BBS-list}, each record contains the name of a computer
+bulletin board, its phone number, the board's baud rate(s), and a code for
+the number of hours it is operational. An @samp{A} in the last column
+means the board operates 24 hours a day. A @samp{B} in the last
+column means the board only operates on evening and weekend hours.
+A @samp{C} means the board operates only on weekends:
+
+@c 2e: Update the baud rates to reflect today's faster modems
+@example
+@c system if test ! -d eg ; then mkdir eg ; fi
+@c system if test ! -d eg/lib ; then mkdir eg/lib ; fi
+@c system if test ! -d eg/data ; then mkdir eg/data ; fi
+@c system if test ! -d eg/prog ; then mkdir eg/prog ; fi
+@c system if test ! -d eg/misc ; then mkdir eg/misc ; fi
+@c file eg/data/BBS-list
+aardvark 555-5553 1200/300 B
+alpo-net 555-3412 2400/1200/300 A
+barfly 555-7685 1200/300 A
+bites 555-1675 2400/1200/300 A
+camelot 555-0542 300 C
+core 555-2912 1200/300 C
+fooey 555-1234 2400/1200/300 B
+foot 555-6699 1200/300 B
+macfoo 555-6480 1200/300 A
+sdace 555-3430 2400/1200/300 A
+sabafoo 555-2127 1200/300 C
+@c endfile
+@end example
+
+@cindex @file{inventory-shipped} file
+The second @value{DF}, called @file{inventory-shipped}, represents
+information about shipments during the year.
+Each record contains the month, the number
+of green crates shipped, the number of red boxes shipped, the number of
+orange bags shipped, and the number of blue packages shipped,
+respectively. There are 16 entries, covering the 12 months of last year
+and the first four months of the current year.
+
+@example
+@c file eg/data/inventory-shipped
+Jan 13 25 15 115
+Feb 15 32 24 226
+Mar 15 24 34 228
+Apr 31 52 63 420
+May 16 34 29 208
+Jun 31 42 75 492
+Jul 24 34 67 436
+Aug 15 34 47 316
+Sep 13 55 37 277
+Oct 29 54 68 525
+Nov 20 87 82 577
+Dec 17 35 61 401
+
+Jan 21 36 64 620
+Feb 26 58 80 652
+Mar 24 75 70 495
+Apr 21 70 74 514
+@c endfile
+@end example
+
+@ifinfo
+If you are reading this in GNU Emacs using Info, you can copy the regions
+of text showing these sample files into your own test files. This way you
+can try out the examples shown in the remainder of this document. You do
+this by using the command @kbd{M-x write-region} to copy text from the Info
+file into a file for use with @command{awk}
+(@xref{Misc File Ops, , Miscellaneous File Operations, emacs, GNU Emacs Manual},
+for more information). Using this information, create your own
+@file{BBS-list} and @file{inventory-shipped} files and practice what you
+learn in this @value{DOCUMENT}.
+
+@cindex Texinfo
+If you are using the stand-alone version of Info,
+see @ref{Extract Program, ,Extracting Programs from Texinfo Source Files},
+for an @command{awk} program that extracts these @value{DF}s from
+@file{gawk.texi}, the Texinfo source file for this Info file.
+@end ifinfo
+
+@node Very Simple, Two Rules, Sample Data Files, Getting Started
+@section Some Simple Examples
+
+The following command runs a simple @command{awk} program that searches the
+input file @file{BBS-list} for the character string @samp{foo}. (A
string of characters is usually called a @dfn{string}.
-The term @dfn{string} is perhaps based on similar usage in English, such
-as ``a string of pearls,'' or, ``a string of cars in a train.'')
+The term @dfn{string} is based on similar usage in English, such
+as ``a string of pearls,'' or, ``a string of cars in a train.''):
@example
awk '/foo/ @{ print $0 @}' BBS-list
@end example
@noindent
-When lines containing @samp{foo} are found, they are printed, because
+When lines containing @samp{foo} are found, they are printed because
@w{@samp{print $0}} means print the current line. (Just @samp{print} by
itself means the same thing, so we could have written that
instead.)
-You will notice that slashes, @samp{/}, surround the string @samp{foo}
-in the @code{awk} program. The slashes indicate that @samp{foo}
-is a pattern to search for. This type of pattern is called a
-@dfn{regular expression}, and is covered in more detail later
+You will notice that slashes (@samp{/}) surround the string @samp{foo}
+in the @command{awk} program. The slashes indicate that @samp{foo}
+is the pattern to search for. This type of pattern is called a
+@dfn{regular expression}, which is covered in more detail later
(@pxref{Regexp, ,Regular Expressions}).
The pattern is allowed to match parts of words.
There are
-single-quotes around the @code{awk} program so that the shell won't
+single quotes around the @command{awk} program so that the shell won't
interpret any of it as special shell characters.
Here is what this program prints:
@example
-@group
$ awk '/foo/ @{ print $0 @}' BBS-list
@print{} fooey 555-1234 2400/1200/300 B
@print{} foot 555-6699 1200/300 B
@print{} macfoo 555-6480 1200/300 A
@print{} sabafoo 555-2127 1200/300 C
-@end group
@end example
@cindex action, default
@cindex pattern, default
@cindex default action
@cindex default pattern
-In an @code{awk} rule, either the pattern or the action can be omitted,
+In an @command{awk} rule, either the pattern or the action can be omitted,
but not both. If the pattern is omitted, then the action is performed
for @emph{every} input line. If the action is omitted, the default
action is to print all lines that match the pattern.
@@ -1514,28 +2220,133 @@ action is to print all lines that match the pattern.
@cindex empty action
@cindex action, empty
Thus, we could leave out the action (the @code{print} statement and the curly
-braces) in the above example, and the result would be the same: all
-lines matching the pattern @samp{foo} would be printed. By comparison,
+braces) in the above example and the result would be the same: all
+lines matching the pattern @samp{foo} are printed. By comparison,
omitting the @code{print} statement but retaining the curly braces makes an
-empty action that does nothing; then no lines would be printed.
+empty action that does nothing (i.e., no lines are printed).
+
+@cindex one-liners
+Many practical @command{awk} programs are just a line or two. Following is a
+collection of useful, short programs to get you started. Some of these
+programs contain constructs that haven't been covered yet. (The description
+of the program will give you a good idea of what is going on, but please
+read the rest of the @value{DOCUMENT} to become an @command{awk} expert!)
+Most of the examples use a @value{DF} named @file{data}. This is just a
+placeholder; if you use these programs yourself, substitute
+your own @value{FN}s for @file{data}.
+For future reference, note that there is often more than
+one way to do things in @command{awk}. At some point, you may want
+to look back at these examples and see if
+you can come up with different ways to do the same things shown here:
+
+@itemize @bullet
+@item
+Print the length of the longest input line:
+
+@example
+awk '@{ if (length($0) > max) max = length($0) @}
+ END @{ print max @}' data
+@end example
+
+@item
+Print every line that is longer than 80 characters:
+
+@example
+awk 'length($0) > 80' data
+@end example
+
+The sole rule has a relational expression as its pattern and it has no
+action---so the default action, printing the record, is used.
+
+@cindex @command{expand} utility
+@item
+Print the length of the longest line in @file{data}:
+
+@example
+expand data | awk '@{ if (x < length()) x = length() @}
+ END @{ print "maximum line length is " x @}'
+@end example
+
+The input is processed by the @command{expand} utility to change tabs
+into spaces, so the widths compared are actually the right-margin columns.
+
+@item
+Print every line that has at least one field:
+
+@example
+awk 'NF > 0' data
+@end example
+
+This is an easy way to delete blank lines from a file (or rather, to
+create a new file similar to the old file but from which the blank lines
+have been removed).
+
+@item
+Print seven random numbers from 0 to 100, inclusive:
+
+@example
+awk 'BEGIN @{ for (i = 1; i <= 7; i++)
+ print int(101 * rand()) @}'
+@end example
+
+@item
+Print the total number of bytes used by @var{files}:
+
+@example
+ls -l @var{files} | awk '@{ x += $5 @}
+ END @{ print "total bytes: " x @}'
+@end example
+
+@item
+Print the total number of kilobytes used by @var{files}:
+
+@c Don't use \ continuation, not discussed yet
+@example
+ls -l @var{files} | awk '@{ x += $5 @}
+ END @{ print "total K-bytes: " (x + 1023)/1024 @}'
+@end example
+
+@item
+Print a sorted list of the login names of all users:
+
+@example
+awk -F: '@{ print $1 @}' /etc/passwd | sort
+@end example
+
+@item
+Count lines in a file:
+
+@example
+awk 'END @{ print NR @}' data
+@end example
+
+@item
+Print the even-numbered lines in the @value{DF}:
+
+@example
+awk 'NR % 2 == 0' data
+@end example
+
+If you use the expression @samp{NR % 2 == 1} instead,
+it would print the odd-numbered lines.
+@end itemize
@node Two Rules, More Complex, Very Simple, Getting Started
@section An Example with Two Rules
-@cindex how @code{awk} works
+@cindex how @command{awk} works
-The @code{awk} utility reads the input files one line at a
-time. For each line, @code{awk} tries the patterns of each of the rules.
-If several patterns match then several actions are run, in the order in
-which they appear in the @code{awk} program. If no patterns match, then
+The @command{awk} utility reads the input files one line at a
+time. For each line, @command{awk} tries the patterns of each of the rules.
+If several patterns match, then several actions are run in the order in
+which they appear in the @command{awk} program. If no patterns match, then
no actions are run.
-After processing all the rules (perhaps none) that match the line,
-@code{awk} reads the next line (however,
+After processing all the rules that match the line (and perhaps there are none),
+@command{awk} reads the next line. (However,
@pxref{Next Statement, ,The @code{next} Statement},
-and also @pxref{Nextfile Statement, ,The @code{nextfile} Statement}).
+and also @pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
This continues until the end of the file is reached.
-
-For example, the @code{awk} program:
+For example, the following @command{awk} program contains two rules:
@example
/12/ @{ print $0 @}
@@ -1543,16 +2354,16 @@ For example, the @code{awk} program:
@end example
@noindent
-contains two rules. The first rule has the string @samp{12} as the
+The first rule has the string @samp{12} as the
pattern and @samp{print $0} as the action. The second rule has the
string @samp{21} as the pattern and also has @samp{print $0} as the
action. Each rule's action is enclosed in its own pair of braces.
-This @code{awk} program prints every line that contains the string
+This program prints every line that contains the string
@samp{12} @emph{or} the string @samp{21}. If a line contains both
strings, it is printed twice, once by each rule.
-This is what happens if we run this program on our two sample data files,
+This is what happens if we run this program on our two sample @value{DF}s,
@file{BBS-list} and @file{inventory-shipped}, as shown here:
@example
@@ -1574,53 +2385,51 @@ $ awk '/12/ @{ print $0 @}
@end example
@noindent
-Note how the line in @file{BBS-list} beginning with @samp{sabafoo}
-was printed twice, once for each rule.
+Note how the line beginning with @samp{sabafoo}
+in @file{BBS-list} was printed twice, once for each rule.
@node More Complex, Statements/Lines, Two Rules, Getting Started
@section A More Complex Example
-@ignore
-We have to use ls -lg here to get portable output across Unix systems.
-The POSIX ls matches this behavior too. Sigh.
-@end ignore
-Here is an example to give you an idea of what typical @code{awk}
-programs do. This example shows how @code{awk} can be used to
+Now that we've mastered some simple tasks, let's look at
+what typical @command{awk}
+programs do. This example shows how @command{awk} can be used to
summarize, select, and rearrange the output of another utility. It uses
features that haven't been covered yet, so don't worry if you don't
-understand all the details.
+understand all the details:
@example
-ls -lg | awk '$6 == "Nov" @{ sum += $5 @}
+ls -l | awk '$6 == "Nov" @{ sum += $5 @}
END @{ print sum @}'
@end example
-@cindex @code{csh}, backslash continuation
-@cindex backslash continuation in @code{csh}
+@cindex @command{csh} utility
+@cindex @command{csh}, backslash continuation
+@cindex backslash continuation, in @command{csh}
+@cindex @command{ls} utility
This command prints the total number of bytes in all the files in the
current directory that were last modified in November (of any year).
-(In the C shell you would need to type a semicolon and then a backslash
-at the end of the first line; in a POSIX-compliant shell, such as the
-Bourne shell or Bash, the GNU Bourne-Again shell, you can type the example
-as shown.)
-@ignore
-FIXME: how can users tell what shell they are running? Need a footnote
-or something, but getting into this is a distraction.
-@end ignore
-
-The @w{@samp{ls -lg}} part of this example is a system command that gives
-you a listing of the files in a directory, including file size and the date
+@footnote{In the C shell (@command{csh}), you need to type
+a semicolon and then a backslash at the end of the first line; see
+@ref{Statements/Lines, ,@command{awk} Statements Versus Lines}, for an
+explanation as to why. In a POSIX-compliant shell, such as the Bourne
+shell or @command{bash}, you can type the example as shown. If the command
+@samp{echo $path} produces an empty output line, you are most likely
+using a POSIX-compliant shell. Otherwise, you are probably using the
+C shell or a shell derived from it.}
+The @w{@samp{ls -l}} part of this example is a system command that gives
+you a listing of the files in a directory, including each file's size and the date
the file was last modified. Its output looks like this:
@example
-rw-r--r-- 1 arnold user 1933 Nov 7 13:05 Makefile
--rw-r--r-- 1 arnold user 10809 Nov 7 13:03 gawk.h
--rw-r--r-- 1 arnold user 983 Apr 13 12:14 gawk.tab.h
--rw-r--r-- 1 arnold user 31869 Jun 15 12:20 gawk.y
--rw-r--r-- 1 arnold user 22414 Nov 7 13:03 gawk1.c
--rw-r--r-- 1 arnold user 37455 Nov 7 13:03 gawk2.c
--rw-r--r-- 1 arnold user 27511 Dec 9 13:07 gawk3.c
--rw-r--r-- 1 arnold user 7989 Nov 7 13:03 gawk4.c
+-rw-r--r-- 1 arnold user 10809 Nov 7 13:03 awk.h
+-rw-r--r-- 1 arnold user 983 Apr 13 12:14 awk.tab.h
+-rw-r--r-- 1 arnold user 31869 Jun 15 12:20 awk.y
+-rw-r--r-- 1 arnold user 22414 Nov 7 13:03 awk1.c
+-rw-r--r-- 1 arnold user 37455 Nov 7 13:03 awk2.c
+-rw-r--r-- 1 arnold user 27511 Dec 9 13:07 awk3.c
+-rw-r--r-- 1 arnold user 7989 Nov 7 13:03 awk4.c
@end example
@noindent
@@ -1630,37 +2439,38 @@ the file. The fourth field identifies the group of the file.
The fifth field contains the size of the file in bytes. The
sixth, seventh and eighth fields contain the month, day, and time,
respectively, that the file was last modified. Finally, the ninth field
-contains the name of the file.
+contains the name of the file.@footnote{On some
+very old systems, you may need to use @samp{ls -lg} to get this output.}
@cindex automatic initialization
@cindex initialization, automatic
-The @samp{$6 == "Nov"} in our @code{awk} program is an expression that
-tests whether the sixth field of the output from @w{@samp{ls -lg}}
+The @samp{$6 == "Nov"} in our @command{awk} program is an expression that
+tests whether the sixth field of the output from @w{@samp{ls -l}}
matches the string @samp{Nov}. Each time a line has the string
@samp{Nov} for its sixth field, the action @samp{sum += $5} is
-performed. This adds the fifth field (the file size) to the variable
-@code{sum}. As a result, when @code{awk} has finished reading all the
-input lines, @code{sum} is the sum of the sizes of files whose
-lines matched the pattern. (This works because @code{awk} variables
+performed. This adds the fifth field (the file's size) to the variable
+@code{sum}. As a result, when @command{awk} has finished reading all the
+input lines, @code{sum} is the total of the sizes of the files whose
+lines matched the pattern. (This works because @command{awk} variables
are automatically initialized to zero.)
-After the last line of output from @code{ls} has been processed, the
-@code{END} rule is executed, and the value of @code{sum} is
-printed. In this example, the value of @code{sum} would be 80600.
+After the last line of output from @command{ls} has been processed, the
+@code{END} rule executes and prints the value of @code{sum}.
+In this example, the value of @code{sum} is 140963.
-These more advanced @code{awk} techniques are covered in later sections
-(@pxref{Action Overview, ,Overview of Actions}). Before you can move on to more
-advanced @code{awk} programming, you have to know how @code{awk} interprets
+These more advanced @command{awk} techniques are covered in later sections
+(@pxref{Action Overview, ,Actions}). Before you can move on to more
+advanced @command{awk} programming, you have to know how @command{awk} interprets
your input and displays your output. By manipulating fields and using
@code{print} statements, you can produce some very useful and impressive
looking reports.
@node Statements/Lines, Other Features, More Complex, Getting Started
-@section @code{awk} Statements Versus Lines
+@section @command{awk} Statements Versus Lines
@cindex line break
@cindex newline
-Most often, each line in an @code{awk} program is a separate statement or
+Most often, each line in an @command{awk} program is a separate statement or
separate rule, like this:
@example
@@ -1668,27 +2478,30 @@ awk '/12/ @{ print $0 @}
/21/ @{ print $0 @}' BBS-list inventory-shipped
@end example
-However, @code{gawk} will ignore newlines after any of the following:
+However, @command{gawk} ignores newlines after any of the following
+symbols and keywords:
@example
, @{ ? : || && do else
@end example
@noindent
-A newline at any other point is considered the end of the statement.
-(Splitting lines after @samp{?} and @samp{:} is a minor @code{gawk}
-extension. The @samp{?} and @samp{:} referred to here is the
-three operand conditional expression described in
-@ref{Conditional Exp, ,Conditional Expressions}.)
+A newline at any other point is considered the end of the
+statement.@footnote{The @samp{?} and @samp{:} referred to here is the
+three-operand conditional expression described in
+@ref{Conditional Exp, ,Conditional Expressions}.
+Splitting lines after @samp{?} and @samp{:} is a minor @command{gawk}
+extension; if @option{--posix} is specified
+(@pxref{Options, , Command-Line Options}), then this extension is disabled.}
@cindex backslash continuation
@cindex continuation of lines
@cindex line continuation
If you would like to split a single statement into two lines at a point
where a newline would terminate it, you can @dfn{continue} it by ending the
-first line with a backslash character, @samp{\}. The backslash must be
-the final character on the line to be recognized as a continuation
-character. This is allowed absolutely anywhere in the statement, even
+first line with a backslash character (@samp{\}). The backslash must be
+the final character on the line in order to be recognized as a continuation
+character. A backslash is allowed anywhere in the statement, even
in the middle of a string or regular expression. For example:
@example
@@ -1699,26 +2512,28 @@ awk '/This regular expression is too long, so continue it\
@noindent
@cindex portability issues
We have generally not used backslash continuation in the sample programs
-in this @value{DOCUMENT}. Since in @code{gawk} there is no limit on the
-length of a line, it is never strictly necessary; it just makes programs
-more readable. For this same reason, as well as for clarity, we have
-kept most statements short in the sample programs presented throughout
-the @value{DOCUMENT}. Backslash continuation is most useful when your
-@code{awk} program is in a separate source file, instead of typed in on
-the command line. You should also note that many @code{awk}
-implementations are more particular about where you may use backslash
-continuation. For example, they may not allow you to split a string
-constant using backslash continuation. Thus, for maximal portability of
-your @code{awk} programs, it is best not to split your lines in the
-middle of a regular expression or a string.
-
-@cindex @code{csh}, backslash continuation
-@cindex backslash continuation in @code{csh}
-@strong{Caution: backslash continuation does not work as described above
-with the C shell.} Continuation with backslash works for @code{awk}
-programs in files, and also for one-shot programs @emph{provided} you
-are using a POSIX-compliant shell, such as the Bourne shell or Bash, the
-GNU Bourne-Again shell. But the C shell (@code{csh}) behaves
+in this @value{DOCUMENT}. In @command{gawk}, there is no limit on the
+length of a line, so backslash continuation is never strictly necessary;
+it just makes programs more readable. For this same reason, as well as
+for clarity, we have kept most statements short in the sample programs
+presented throughout the @value{DOCUMENT}. Backslash continuation is
+most useful when your @command{awk} program is in a separate source file
+instead of entered from the command line. You should also note that
+many @command{awk} implementations are more particular about where you
+may use backslash continuation. For example, they may not allow you to
+split a string constant using backslash continuation. Thus, for maximum
+portability of your @command{awk} programs, it is best not to split your
+lines in the middle of a regular expression or a string.
+@c 10/2000: gawk, mawk, and current bell labs awk allow it,
+@c solaris 2.7 nawk does not. Solaris /usr/xpg4/bin/awk does though! sigh.
+
+@cindex @command{csh} utility
+@cindex @command{csh}, backslash continuation
+@cindex backslash continuation, in @command{csh}
+@strong{Caution:} @emph{Backslash continuation does not work as described
+above with the C shell.} It works for @command{awk} programs in files and
+for one-shot programs, @emph{provided} you are using a POSIX-compliant
+shell, such as the Unix Bourne shell or @command{bash}. But the C shell behaves
differently! There, you must use two backslashes in a row, followed by
a newline. Note also that when using the C shell, @emph{every} newline
in your awk program must be escaped with a backslash. To illustrate:
@@ -1735,185 +2550,117 @@ in your awk program must be escaped with a backslash. To illustrate:
Here, the @samp{%} and @samp{?} are the C shell's primary and secondary
prompts, analogous to the standard shell's @samp{$} and @samp{>}.
-@code{awk} is a line-oriented language. Each rule's action has to
+Compare the previous example to how it is done with a POSIX-compliant shell:
+
+@example
+$ awk 'BEGIN @{
+> print \
+> "hello, world"
+> @}'
+@print{} hello, world
+@end example
+
+@command{awk} is a line-oriented language. Each rule's action has to
begin on the same line as the pattern. To have the pattern and action
-on separate lines, you @emph{must} use backslash continuation---there
+on separate lines, you @emph{must} use backslash continuation; there
is no other way.
-@cindex backslash continuation and comments
+@cindex backslash continuation, and comments
@cindex comments and backslash continuation
-Note that backslash continuation and comments do not mix. As soon
-as @code{awk} sees the @samp{#} that starts a comment, it ignores
-@emph{everything} on the rest of the line. For example:
+Another thing to keep in mind is that backslash continuation and
+comments do not mix. As soon as @command{awk} sees the @samp{#} that
+starts a comment, it ignores @emph{everything} on the rest of the
+line. For example:
@example
-@group
$ gawk 'BEGIN @{ print "dont panic" # a friendly \
> BEGIN rule
> @}'
@error{} gawk: cmd. line:2: BEGIN rule
@error{} gawk: cmd. line:2: ^ parse error
-@end group
@end example
@noindent
-Here, it looks like the backslash would continue the comment onto the
+In this case, it looks like the backslash would continue the comment onto the
next line. However, the backslash-newline combination is never even
-noticed, since it is ``hidden'' inside the comment. Thus, the
-@samp{BEGIN} is noted as a syntax error.
+noticed because it is ``hidden'' inside the comment. Thus, the
+@code{BEGIN} is noted as a syntax error.
@cindex multiple statements on one line
-When @code{awk} statements within one rule are short, you might want to put
-more than one of them on a line. You do this by separating the statements
-with a semicolon, @samp{;}.
-
+When @command{awk} statements within one rule are short, you might want to put
+more than one of them on a line. This is accomplished by separating the statements
+with a semicolon (@samp{;}).
This also applies to the rules themselves.
-Thus, the previous program could have been written:
+Thus, the program shown at the start of this @value{SECTION}
+could also be written this way:
@example
/12/ @{ print $0 @} ; /21/ @{ print $0 @}
@end example
@noindent
-@strong{Note:} the requirement that rules on the same line must be
-separated with a semicolon was not in the original @code{awk}
+@strong{Note:} The requirement that states that rules on the same line must be
+separated with a semicolon was not in the original @command{awk}
language; it was added for consistency with the treatment of statements
within an action.
@node Other Features, When, Statements/Lines, Getting Started
-@section Other Features of @code{awk}
+@section Other Features of @command{awk}
-The @code{awk} language provides a number of predefined, or built-in variables, which
-your programs can use to get information from @code{awk}. There are other
-variables your program can set to control how @code{awk} processes your
-data.
+The @command{awk} language provides a number of predefined, or
+@dfn{built-in}, variables that your programs can use to get information
+from @command{awk}. There are other variables your program can set
+as well to control how @command{awk} processes your data.
-In addition, @code{awk} provides a number of built-in functions for doing
+In addition, @command{awk} provides a number of built-in functions for doing
common computational and string related operations.
+@command{gawk} provides built-in functions for working with timestamps,
+performing bit manipulation, and for runtime string translation.
-As we develop our presentation of the @code{awk} language, we introduce
+As we develop our presentation of the @command{awk} language, we introduce
most of the variables and many of the functions. They are defined
systematically in @ref{Built-in Variables}, and
@ref{Built-in, ,Built-in Functions}.
-@node When, , Other Features, Getting Started
-@section When to Use @code{awk}
+@node When, , Other Features, Getting Started
+@section When to Use @command{awk}
-@cindex when to use @code{awk}
-@cindex applications of @code{awk}
-You might wonder how @code{awk} might be useful for you. Using
+@cindex uses of @command{awk}
+@cindex applications of @command{awk}
+Now that you've seen some of what @command{awk} can do,
+you might wonder how @command{awk} could be useful for you. By using
utility programs, advanced patterns, field separators, arithmetic
statements, and other selection criteria, you can produce much more
-complex output. The @code{awk} language is very useful for producing
+complex output. The @command{awk} language is very useful for producing
reports from large amounts of raw data, such as summarizing information
-from the output of other utility programs like @code{ls}.
+from the output of other utility programs like @command{ls}.
(@xref{More Complex, ,A More Complex Example}.)
-Programs written with @code{awk} are usually much smaller than they would
-be in other languages. This makes @code{awk} programs easy to compose and
-use. Often, @code{awk} programs can be quickly composed at your terminal,
-used once, and thrown away. Since @code{awk} programs are interpreted, you
+Programs written with @command{awk} are usually much smaller than they would
+be in other languages. This makes @command{awk} programs easy to compose and
+use. Often, @command{awk} programs can be quickly composed at your terminal,
+used once, and thrown away. Because @command{awk} programs are interpreted, you
can avoid the (usually lengthy) compilation part of the typical
edit-compile-test-debug cycle of software development.
-Complex programs have been written in @code{awk}, including a complete
+Complex programs have been written in @command{awk}, including a complete
retargetable assembler for eight-bit microprocessors (@pxref{Glossary}, for
-more information) and a microcode assembler for a special purpose Prolog
-computer. However, @code{awk}'s capabilities are strained by tasks of
+more information), and a microcode assembler for a special purpose Prolog
+computer. However, @command{awk}'s capabilities are strained by tasks of
such complexity.
-If you find yourself writing @code{awk} scripts of more than, say, a few
+If you find yourself writing @command{awk} scripts of more than, say, a few
hundred lines, you might consider using a different programming
language. Emacs Lisp is a good choice if you need sophisticated string
or pattern matching capabilities. The shell is also good at string and
pattern matching; in addition, it allows powerful use of the system
-utilities. More conventional languages, such as C, C++, and Lisp, offer
+utilities. More conventional languages, such as C, C++, and Java, offer
better facilities for system programming and for managing the complexity
of large programs. Programs in these languages may require more lines
-of source code than the equivalent @code{awk} programs, but they are
+of source code than the equivalent @command{awk} programs, but they are
easier to maintain and usually run more efficiently.
-@node One-liners, Regexp, Getting Started, Top
-@chapter Useful One Line Programs
-
-@cindex one-liners
-Many useful @code{awk} programs are short, just a line or two. Here is a
-collection of useful, short programs to get you started. Some of these
-programs contain constructs that haven't been covered yet. The description
-of the program will give you a good idea of what is going on, but please
-read the rest of the @value{DOCUMENT} to become an @code{awk} expert!
-
-Most of the examples use a data file named @file{data}. This is just a
-placeholder; if you were to use these programs yourself, you would substitute
-your own file names for @file{data}.
-
-@ifinfo
-Since you are reading this in Info, each line of the example code is
-enclosed in quotes, to represent text that you would type literally.
-The examples themselves represent shell commands that use single quotes
-to keep the shell from interpreting the contents of the program.
-When reading the examples, focus on the text between the open and close
-quotes.
-@end ifinfo
-
-@table @code
-@item awk '@{ if (length($0) > max) max = length($0) @}
-@itemx @ @ @ @ @ END @{ print max @}' data
-This program prints the length of the longest input line.
-
-@item awk 'length($0) > 80' data
-This program prints every line that is longer than 80 characters. The sole
-rule has a relational expression as its pattern, and has no action (so the
-default action, printing the record, is used).
-
-@item expand@ data@ |@ awk@ '@{ if (x < length()) x = length() @}
-@itemx @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ END @{ print "maximum line length is " x @}'
-This program prints the length of the longest line in @file{data}. The input
-is processed by the @code{expand} program to change tabs into spaces,
-so the widths compared are actually the right-margin columns.
-
-@item awk 'NF > 0' data
-This program prints every line that has at least one field. This is an
-easy way to delete blank lines from a file (or rather, to create a new
-file similar to the old file but from which the blank lines have been
-deleted).
-
-@c Karl Berry points out that new users probably don't want to see
-@c multiple ways to do things, just the `best' way. He's probably
-@c right. At some point it might be worth adding something about there
-@c often being multiple ways to do things in awk, but for now we'll
-@c just take this one out.
-@ignore
-@item awk '@{ if (NF > 0) print @}' data
-This program also prints every line that has at least one field. Here we
-allow the rule to match every line, and then decide in the action whether
-to print.
-@end ignore
-
-@item awk@ 'BEGIN@ @{@ for (i = 1; i <= 7; i++)
-@itemx @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ print int(101 * rand()) @}'
-This program prints seven random numbers from zero to 100, inclusive.
-
-@item ls -lg @var{files} | awk '@{ x += $5 @} ; END @{ print "total bytes: " x @}'
-This program prints the total number of bytes used by @var{files}.
-
-@item ls -lg @var{files} | awk '@{ x += $5 @}
-@itemx @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ END @{ print "total K-bytes: " (x + 1023)/1024 @}'
-This program prints the total number of kilobytes used by @var{files}.
-
-@item awk -F: '@{ print $1 @}' /etc/passwd | sort
-This program prints a sorted list of the login names of all users.
-
-@item awk 'END @{ print NR @}' data
-This program counts lines in a file.
-
-@item awk 'NR % 2 == 0' data
-This program prints the even numbered lines in the data file.
-If you were to use the expression @samp{NR % 2 == 1} instead,
-it would print the odd numbered lines.
-@end table
-
-@node Regexp, Reading Files, One-liners, Top
+@node Regexp, Reading Files, Getting Started, Top
@chapter Regular Expressions
@cindex pattern, regular expressions
@cindex regexp
@@ -1922,29 +2669,30 @@ it would print the odd numbered lines.
A @dfn{regular expression}, or @dfn{regexp}, is a way of describing a
set of strings.
-Because regular expressions are such a fundamental part of @code{awk}
-programming, their format and use deserve a separate chapter.
+Because regular expressions are such a fundamental part of @command{awk}
+programming, their format and use deserve a separate @value{CHAPTER}.
A regular expression enclosed in slashes (@samp{/})
-is an @code{awk} pattern that matches every input record whose text
+is an @command{awk} pattern that matches every input record whose text
belongs to that set.
-
The simplest regular expression is a sequence of letters, numbers, or
both. Such a regexp matches any string that contains that sequence.
Thus, the regexp @samp{foo} matches any string containing @samp{foo}.
Therefore, the pattern @code{/foo/} matches any input record containing
-the three characters @samp{foo}, @emph{anywhere} in the record. Other
+the three characters @samp{foo} @emph{anywhere} in the record. Other
kinds of regexps let you specify more complicated classes of strings.
-@iftex
-Initially, the examples will be simple. As we explain more about how
-regular expressions work, we will present more complicated examples.
-@end iftex
+@ifnotinfo
+Initially, the examples in this @value{CHAPTER} are simple.
+As we explain more about how
+regular expressions work, we will present more complicated instances.
+@end ifnotinfo
@menu
* Regexp Usage:: How to Use Regular Expressions.
* Escape Sequences:: How to write non-printing characters.
* Regexp Operators:: Regular Expression Operators.
+* Character Lists:: What can go between @samp{[...]}.
* GNU Regexp Operators:: Operators specific to GNU software.
* Case-sensitivity:: How to do case-insensitive matching.
* Leftmost Longest:: How much text matches.
@@ -1957,53 +2705,49 @@ regular expressions work, we will present more complicated examples.
A regular expression can be used as a pattern by enclosing it in
slashes. Then the regular expression is tested against the
entire text of each record. (Normally, it only needs
-to match some part of the text in order to succeed.) For example, this
-prints the second field of each record that contains the three
-characters @samp{foo} anywhere in it:
+to match some part of the text in order to succeed.) For example, the
+following prints the second field of each record that contains the string
+@samp{foo} anywhere in it:
@example
-@group
$ awk '/foo/ @{ print $2 @}' BBS-list
@print{} 555-1234
@print{} 555-6699
@print{} 555-6480
@print{} 555-2127
-@end group
@end example
-@cindex regexp matching operators
+@cindex regexp operators
@cindex string-matching operators
@cindex operators, string-matching
@cindex operators, regexp matching
-@cindex regexp match/non-match operators
@cindex @code{~} operator
@cindex @code{!~} operator
Regular expressions can also be used in matching expressions. These
expressions allow you to specify the string to match against; it need
-not be the entire current input record. The two operators, @samp{~}
-and @samp{!~}, perform regular expression comparisons. Expressions
-using these operators can be used as patterns or in @code{if},
+not be the entire current input record. The two operators @samp{~}
+and @samp{!~} perform regular expression comparisons. Expressions
+using these operators can be used as patterns, or in @code{if},
@code{while}, @code{for}, and @code{do} statements.
-@ifinfo
-@c adding this xref in TeX screws up the formatting too much
(@xref{Statements, ,Control Statements in Actions}.)
-@end ifinfo
+For example:
-@table @code
-@item @var{exp} ~ /@var{regexp}/
-This is true if the expression @var{exp} (taken as a string)
-is matched by @var{regexp}. The following example matches, or selects,
-all input records with the upper-case letter @samp{J} somewhere in the
+@example
+@var{exp} ~ /@var{regexp}/
+@end example
+
+@noindent
+is true if the expression @var{exp} (taken as a string)
+matches @var{regexp}. The following example matches, or selects,
+all input records with the uppercase letter @samp{J} somewhere in the
first field:
@example
-@group
$ awk '$1 ~ /J/' inventory-shipped
@print{} Jan 13 25 15 115
@print{} Jun 31 42 75 492
@print{} Jul 24 34 67 436
@print{} Jan 21 36 64 620
-@end group
@end example
So does this:
@@ -2012,27 +2756,30 @@ So does this:
awk '@{ if ($1 ~ /J/) print @}' inventory-shipped
@end example
-@item @var{exp} !~ /@var{regexp}/
-This is true if the expression @var{exp} (taken as a character string)
-is @emph{not} matched by @var{regexp}. The following example matches,
+This next example is true if the expression @var{exp}
+(taken as a character string)
+does @emph{not} match @var{regexp}:
+
+@example
+@var{exp} !~ /@var{regexp}/
+@end example
+
+The following example matches,
or selects, all input records whose first field @emph{does not} contain
-the upper-case letter @samp{J}:
+the uppercase letter @samp{J}:
@example
-@group
$ awk '$1 !~ /J/' inventory-shipped
@print{} Feb 15 32 24 226
@print{} Mar 15 24 34 228
@print{} Apr 31 52 63 420
@print{} May 16 34 29 208
@dots{}
-@end group
@end example
-@end table
@cindex regexp constant
-When a regexp is written enclosed in slashes, like @code{/foo/}, we call it
-a @dfn{regexp constant}, much like @code{5.27} is a numeric constant, and
+When a regexp is enclosed in slashes, such as @code{/foo/}, we call it
+a @dfn{regexp constant}, much like @code{5.27} is a numeric constant and
@code{"foo"} is a string constant.
@node Escape Sequences, Regexp Operators, Regexp Usage, Regexp
@@ -2040,13 +2787,12 @@ a @dfn{regexp constant}, much like @code{5.27} is a numeric constant, and
@cindex escape sequence notation
Some characters cannot be included literally in string constants
-(@code{"foo"}) or regexp constants (@code{/foo/}). You represent them
-instead with @dfn{escape sequences}, which are character sequences
-beginning with a backslash (@samp{\}).
-
-One use of an escape sequence is to include a double-quote character in
-a string constant. Since a plain double-quote would end the string, you
-must use @samp{\"} to represent an actual double-quote character as a
+(@code{"foo"}) or regexp constants (@code{/foo/}).
+Instead, they should be represented with @dfn{escape sequences},
+which are character sequences beginning with a backslash (@samp{\}).
+One use of an escape sequence is to include a double quote character in
+a string constant. Because a plain double quote ends the string, you
+must use @samp{\"} to represent an actual double quote character as a
part of the string. For example:
@example
@@ -2055,7 +2801,7 @@ $ awk 'BEGIN @{ print "He said \"hi!\" to her." @}'
@end example
The backslash character itself is another character that cannot be
-included normally; you write @samp{\\} to put one backslash in the
+included normally; you must write @samp{\\} to put one backslash in the
string or regexp. Thus, the string whose contents are the two characters
@samp{"} and @samp{\} must be written @code{"\"\\"}.
@@ -2064,264 +2810,392 @@ such as tab or newline. While there is nothing to stop you from entering most
unprintable characters directly in a string constant or regexp constant,
they may look ugly.
-Here is a table of all the escape sequences used in @code{awk}, and
-what they represent. Unless noted otherwise, all of these escape
-sequences apply to both string constants and regexp constants.
+The following table lists
+all the escape sequences used in @command{awk} and
+what they represent. Unless noted otherwise, all these escape
+sequences apply to both string constants and regexp constants:
-@c @cartouche
@table @code
@item \\
A literal backslash, @samp{\}.
-@cindex @code{awk} language, V.4 version
+@cindex @command{awk} language, V.4 version
+@cindex @code{\a} escape sequence
@item \a
-The ``alert'' character, @kbd{Control-g}, ASCII code 7 (BEL).
+The ``alert'' character, @kbd{Ctrl-g}, ASCII code 7 (BEL).
+(This usually makes some sort of audible noise.)
+@cindex @code{\b} escape sequence
@item \b
-Backspace, @kbd{Control-h}, ASCII code 8 (BS).
+Backspace, @kbd{Ctrl-h}, ASCII code 8 (BS).
+@cindex @code{\f} escape sequence
@item \f
-Formfeed, @kbd{Control-l}, ASCII code 12 (FF).
+Formfeed, @kbd{Ctrl-l}, ASCII code 12 (FF).
+@cindex @code{\n} escape sequence
@item \n
-Newline, @kbd{Control-j}, ASCII code 10 (LF).
+Newline, @kbd{Ctrl-j}, ASCII code 10 (LF).
+@cindex @code{\r} escape sequence
@item \r
-Carriage return, @kbd{Control-m}, ASCII code 13 (CR).
+Carriage return, @kbd{Ctrl-m}, ASCII code 13 (CR).
+@cindex @code{\t} escape sequence
@item \t
-Horizontal tab, @kbd{Control-i}, ASCII code 9 (HT).
+Horizontal tab, @kbd{Ctrl-i}, ASCII code 9 (HT).
-@cindex @code{awk} language, V.4 version
+@cindex @command{awk} language, V.4 version
+@cindex @code{\v} escape sequence
@item \v
-Vertical tab, @kbd{Control-k}, ASCII code 11 (VT).
+Vertical tab, @kbd{Ctrl-k}, ASCII code 11 (VT).
+@cindex @code{\}@var{nnn} escape sequence (octal)
@item \@var{nnn}
-The octal value @var{nnn}, where @var{nnn} are one to three digits
+The octal value @var{nnn}, where @var{nnn} stands for 1 to 3 digits
between @samp{0} and @samp{7}. For example, the code for the ASCII ESC
(escape) character is @samp{\033}.
-@cindex @code{awk} language, V.4 version
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @code{\x} escape sequence
+@cindex @command{awk} language, V.4 version
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@item \x@var{hh}@dots{}
-The hexadecimal value @var{hh}, where @var{hh} are hexadecimal
-digits (@samp{0} through @samp{9} and either @samp{A} through @samp{F} or
-@samp{a} through @samp{f}). Like the same construct in ANSI C, the escape
-sequence continues until the first non-hexadecimal digit is seen. However,
-using more than two hexadecimal digits produces undefined results. (The
-@samp{\x} escape sequence is not allowed in POSIX @code{awk}.)
-
+The hexadecimal value @var{hh}, where @var{hh} stands for a sequence
+of hexadecimal digits (@samp{0} through @samp{9}, and either @samp{A}
+through @samp{F} or @samp{a} through @samp{f}). Like the same construct
+in ISO C, the escape sequence continues until the first non-hexadecimal
+digit is seen. However, using more than two hexadecimal digits produces
+undefined results. (The @samp{\x} escape sequence is not allowed in
+POSIX @command{awk}.)
+
+@cindex @code{\/} escape sequence
@item \/
A literal slash (necessary for regexp constants only).
-You use this when you wish to write a regexp
-constant that contains a slash. Since the regexp is delimited by
+This expression is used when you want to write a regexp
+constant that contains a slash. Because the regexp is delimited by
slashes, you need to escape the slash that is part of the pattern,
-in order to tell @code{awk} to keep processing the rest of the regexp.
+in order to tell @command{awk} to keep processing the rest of the regexp.
+@cindex @code{\"} escape sequence
@item \"
-A literal double-quote (necessary for string constants only).
-You use this when you wish to write a string
-constant that contains a double-quote. Since the string is delimited by
-double-quotes, you need to escape the quote that is part of the string,
-in order to tell @code{awk} to keep processing the rest of the string.
+A literal double quote (necessary for string constants only).
+This expression is used when you want to write a string
+constant that contains a double quote. Because the string is delimited by
+double quotes, you need to escape the quote that is part of the string,
+in order to tell @command{awk} to keep processing the rest of the string.
@end table
-@c @end cartouche
-
-In @code{gawk}, there are additional two character sequences that begin
-with backslash that have special meaning in regexps.
-@xref{GNU Regexp Operators, ,Additional Regexp Operators Only in @code{gawk}}.
-In a string constant,
-what happens if you place a backslash before something that is not one of
-the characters listed above? POSIX @code{awk} purposely leaves this case
-undefined. There are two choices.
+In @command{gawk}, a number of additional two-character sequences that begin
+with a backslash have special meaning in regexps.
+@xref{GNU Regexp Operators, ,@command{gawk}-Specific Regexp Operators}.
-@itemize @bullet
-@item
-Strip the backslash out. This is what Unix @code{awk} and @code{gawk} both do.
-For example, @code{"a\qc"} is the same as @code{"aqc"}.
-
-@item
-Leave the backslash alone. Some other @code{awk} implementations do this.
-In such implementations, @code{"a\qc"} is the same as if you had typed
-@code{"a\\qc"}.
-@end itemize
-
-In a regexp, a backslash before any character that is not in the above table,
+In a regexp, a backslash before any character that is not in the above table
and not listed in
-@ref{GNU Regexp Operators, ,Additional Regexp Operators Only in @code{gawk}},
+@ref{GNU Regexp Operators, ,@command{gawk}-Specific Regexp Operators},
means that the next character should be taken literally, even if it would
-normally be a regexp operator. E.g., @code{/a\+b/} matches the three
+normally be a regexp operator. For example, @code{/a\+b/} matches the three
characters @samp{a+b}.
@cindex portability issues
For complete portability, do not use a backslash before any character not
-listed in the table above.
-
-Another interesting question arises. Suppose you use an octal or hexadecimal
-escape to represent a regexp metacharacter
-(@pxref{Regexp Operators, , Regular Expression Operators}).
-Does @code{awk} treat the character as a literal character, or as a regexp
-operator?
-
-@cindex dark corner
-It turns out that historically, such characters were taken literally (d.c.).
-However, the POSIX standard indicates that they should be treated
-as real metacharacters, and this is what @code{gawk} does.
-However, in compatibility mode (@pxref{Options, ,Command Line Options}),
-@code{gawk} treats the characters represented by octal and hexadecimal
-escape sequences literally when used in regexp constants. Thus,
-@code{/a\52b/} is equivalent to @code{/a\*b/}.
+shown in the table above.
To summarize:
-@enumerate 1
+@itemize @bullet
@item
The escape sequences in the table above are always processed first,
for both string constants and regexp constants. This happens very early,
-as soon as @code{awk} reads your program.
+as soon as @command{awk} reads your program.
@item
-@code{gawk} processes both regexp constants and dynamic regexps
+@command{gawk} processes both regexp constants and dynamic regexps
(@pxref{Computed Regexps, ,Using Dynamic Regexps}),
for the special operators listed in
-@ref{GNU Regexp Operators, ,Additional Regexp Operators Only in @code{gawk}}.
+@ref{GNU Regexp Operators, ,@command{gawk}-Specific Regexp Operators}.
@item
A backslash before any other character means to treat that character
literally.
-@end enumerate
+@end itemize
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Backslash Before Regular Characters
+@cindex advanced notes
+
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+If you place a backslash in a string constant before something that is
+not one of the characters listed above, POSIX @command{awk} purposely
+leaves what happens as undefined. There are two choices:
+
+@cindex automatic warnings
+@cindex warnings, automatic
+@table @asis
+@item Strip the backslash out
+This is what Unix @command{awk} and @command{gawk} both do.
+For example, @code{"a\qc"} is the same as @code{"aqc"}.
+(Because this is such an easy bug to both introduce and to miss,
+@command{gawk} warns you about it.)
+Consider @samp{FS = @w{"[ \t]+\|[ \t]+"}} to use vertical bars
+surrounded by whitespace as the field separator. There should be
+two backslashes in the string, @samp{FS = @w{"[ \t]+\\|[ \t]+"}}.)
+@c I did this! This is why I added the warning.
+
+@item Leave the backslash alone
+Some other @command{awk} implementations do this.
+In such implementations, @code{"a\qc"} is the same as if you had typed
+@code{"a\\qc"}.
+@end table
-@node Regexp Operators, GNU Regexp Operators, Escape Sequences, Regexp
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Escape Sequences for Metacharacters
+@cindex advanced notes
+
+Suppose you use an octal or hexadecimal
+escape to represent a regexp metacharacter
+(@pxref{Regexp Operators, , Regular Expression Operators}).
+Does @command{awk} treat the character as a literal character or as a regexp
+operator?
+
+@cindex dark corner
+Historically, such characters were taken literally.
+@value{DARKCORNER}
+However, the POSIX standard indicates that they should be treated
+as real metacharacters, which is what @command{gawk} does.
+In compatibility mode (@pxref{Options, ,Command-Line Options}),
+@command{gawk} treats the characters represented by octal and hexadecimal
+escape sequences literally when used in regexp constants. Thus,
+@code{/a\52b/} is equivalent to @code{/a\*b/}.
+
+@node Regexp Operators, Character Lists, Escape Sequences, Regexp
@section Regular Expression Operators
@cindex metacharacters
@cindex regular expression metacharacters
@cindex regexp operators
-You can combine regular expressions with the following characters,
-called @dfn{regular expression operators}, or @dfn{metacharacters}, to
+You can combine regular expressions with special characters,
+called @dfn{regular expression operators} or @dfn{metacharacters}, to
increase the power and versatility of regular expressions.
The escape sequences described
-@iftex
-above
-@end iftex
+@ifnotinfo
+earlier
+@end ifnotinfo
in @ref{Escape Sequences},
-are valid inside a regexp. They are introduced by a @samp{\}. They
+are valid inside a regexp. They are introduced by a @samp{\}, and
are recognized and converted into the corresponding real characters as
the very first step in processing regexps.
-Here is a table of metacharacters. All characters that are not escape
-sequences and that are not listed in the table stand for themselves.
+Here is a list of metacharacters. All characters that are not escape
+sequences and that are not listed in the table stand for themselves:
@table @code
@item \
This is used to suppress the special meaning of a character when
-matching. For example:
-
-@example
-\$
-@end example
-
-@noindent
+matching. For example, @samp{\$}
matches the character @samp{$}.
-@c NEEDED
-@page
@cindex anchors in regexps
@cindex regexp, anchors
+@cindex Texinfo
@item ^
-This matches the beginning of a string. For example:
-
-@example
-^@@chapter
-@end example
-
-@noindent
-matches the @samp{@@chapter} at the beginning of a string, and can be used
+This matches the beginning of a string. For example, @samp{^@@chapter}
+matches @samp{@@chapter} at the beginning of a string, and can be used
to identify chapter beginnings in Texinfo source files.
-The @samp{^} is known as an @dfn{anchor}, since it anchors the pattern to
-matching only at the beginning of the string.
+The @samp{^} is known as an @dfn{anchor}, because it anchors the pattern to
+match only at the beginning of the string.
It is important to realize that @samp{^} does not match the beginning of
-a line embedded in a string. In this example the condition is not true:
+a line embedded in a string.
+The condition is not true in the following example:
@example
if ("line1\nLINE 2" ~ /^L/) @dots{}
@end example
@item $
-This is similar to @samp{^}, but it matches only at the end of a string.
-For example:
-
-@example
-p$
-@end example
-
-@noindent
-matches a record that ends with a @samp{p}. The @samp{$} is also an anchor,
-and also does not match the end of a line embedded in a string. In this
-example the condition is not true:
+This is similar to @samp{^} but it matches only at the end of a string.
+For example, @samp{p$}
+matches a record that ends with a @samp{p}. The @samp{$} is an anchor
+and does not match the end of a line embedded in a string.
+The condition is not true in the following example:
@example
if ("line1\nLINE 2" ~ /1$/) @dots{}
@end example
@item .
-The period, or dot, matches any single character,
-@emph{including} the newline character. For example:
-
-@example
-.P
-@end example
-
-@noindent
+This matches any single character,
+@emph{including} the newline character. For example, @samp{.P}
matches any single character followed by a @samp{P} in a string. Using
-concatenation we can make a regular expression like @samp{U.A}, which
+concatenation, we can make a regular expression such as @samp{U.A}, that
matches any three-character sequence that begins with @samp{U} and ends
with @samp{A}.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-In strict POSIX mode (@pxref{Options, ,Command Line Options}),
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+In strict POSIX mode (@pxref{Options, ,Command-Line Options}),
@samp{.} does not match the @sc{nul}
character, which is a character with all bits equal to zero.
-Otherwise, @sc{nul} is just another character. Other versions of @code{awk}
+Otherwise, @sc{nul} is just another character. Other versions of @command{awk}
may not be able to match the @sc{nul} character.
-@ignore
-2e: Add stuff that character list is the POSIX terminology. In other
- literature known as character set or character class.
-@end ignore
-
@cindex character list
+@cindex character set (regexp component)
+@cindex character class
+@cindex bracket expression
@item [@dots{}]
-This is called a @dfn{character list}. It matches any @emph{one} of the
-characters that are enclosed in the square brackets. For example:
+This is called a @dfn{character list}.@footnote{In other literature,
+you may see a character list referred to as either a
+@dfn{character set}, a @dfn{character class} or a @dfn{bracket expression}.}
+It matches any @emph{one} of the characters that are enclosed in
+the square brackets. For example, @samp{[MVX]} matches any one of
+the characters @samp{M}, @samp{V}, or @samp{X}, in a string. A full
+discussion of what can be inside the square brackets of a character list
+is given in
+@ref{Character Lists, ,Using Character Lists}.
-@example
-[MVX]
-@end example
+@cindex complemented character list
+@cindex character list, complemented
+@item [^ @dots{}]
+This is a @dfn{complemented character list}. The first character after
+the @samp{[} @emph{must} be a @samp{^}. It matches any characters
+@emph{except} those in the square brackets. For example, @samp{[^awk]}
+matches any character that is not an @samp{a}, a @samp{w},
+or a @samp{k}.
-@noindent
-matches any one of the characters @samp{M}, @samp{V}, or @samp{X} in a
-string.
+@item |
+This is the @dfn{alternation operator} and it is used to specify
+alternatives.
+The @samp{|} has the lowest precedence of all the regular
+expression operators.
+For example, @samp{^P|[[:digit:]]}
+matches any string that matches either @samp{^P} or @samp{[[:digit:]]}. This
+means it matches any string that starts with @samp{P} or contains a digit.
-Ranges of characters are indicated by using a hyphen between the beginning
-and ending characters, and enclosing the whole thing in brackets. For
-example:
+The alternation applies to the largest possible regexps on either side.
+
+@cindex Texinfo
+@item (@dots{})
+Parentheses are used for grouping in regular expressions, similar to
+arithmetic. They can be used to concatenate regular expressions
+containing the alternation operator, @samp{|}. For example,
+@samp{@@(samp|code)\@{[^@}]+\@}} matches both @samp{@@code@{foo@}} and
+@samp{@@samp@{bar@}}.
+(These are Texinfo formatting control sequences.)
+
+@item *
+This symbol means that the preceding regular expression should be
+repeated as many times as necessary to find a match. For example, @samp{ph*}
+applies the @samp{*} symbol to the preceding @samp{h} and looks for matches
+of one @samp{p} followed by any number of @samp{h}s. This also matches
+just @samp{p} if no @samp{h}s are present.
+
+The @samp{*} repeats the @emph{smallest} possible preceding expression.
+(Use parentheses if you want to repeat a larger expression.) It finds
+as many repetitions as possible. For example,
+@samp{awk '/\(c[ad][ad]*r x\)/ @{ print @}' sample}
+prints every record in @file{sample} containing a string of the form
+@samp{(car x)}, @samp{(cdr x)}, @samp{(cadr x)}, and so on.
+Notice the escaping of the parentheses by preceding them
+with backslashes.
+
+@item +
+This symbol is similar to @samp{*} except that the preceding expression must be
+matched at least once. This means that @samp{wh+y}
+would match @samp{why} and @samp{whhy}, but not @samp{wy}, whereas
+@samp{wh*y} would match all three of these strings.
+The following is a simpler
+way of writing the last @samp{*} example:
@example
-[0-9]
+awk '/\(c[ad]+r x\)/ @{ print @}' sample
@end example
-@noindent
-matches any digit.
-Multiple ranges are allowed. E.g., the list @code{@w{[A-Za-z0-9]}} is a
-common way to express the idea of ``all alphanumeric characters.''
+@item ?
+This symbol is similar to @samp{*} except that the preceding expression can be
+matched either once or not at all. For example, @samp{fe?d}
+matches @samp{fed} and @samp{fd}, but nothing else.
+
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@cindex interval expressions
+@item @{@var{n}@}
+@itemx @{@var{n},@}
+@itemx @{@var{n},@var{m}@}
+One or two numbers inside braces denote an @dfn{interval expression}.
+If there is one number in the braces, the preceding regexp is repeated
+@var{n} times.
+If there are two numbers separated by a comma, the preceding regexp is
+repeated @var{n} to @var{m} times.
+If there is one number followed by a comma, then the preceding regexp
+is repeated at least @var{n} times:
+
+@table @code
+@item wh@{3@}y
+Matches @samp{whhhy}, but not @samp{why} or @samp{whhhhy}.
+
+@item wh@{3,5@}y
+Matches @samp{whhhy}, @samp{whhhhy}, or @samp{whhhhhy}, only.
+
+@item wh@{2,@}y
+Matches @samp{whhy} or @samp{whhhy}, and so on.
+@end table
-To include one of the characters @samp{\}, @samp{]}, @samp{-} or @samp{^} in a
+Interval expressions were not traditionally available in @command{awk}.
+They were added as part of the POSIX standard to make @command{awk}
+and @command{egrep} consistent with each other.
+
+However, because old programs may use @samp{@{} and @samp{@}} in regexp
+constants, by default @command{gawk} does @emph{not} match interval expressions
+in regexps. If either @option{--posix} or @option{--re-interval} are specified
+(@pxref{Options, , Command-Line Options}), then interval expressions
+are allowed in regexps.
+
+For new programs that use @samp{@{} and @samp{@}} in regexp constants,
+it is good practice to always escape them with a backslash. Then the
+regexp constants are valid and work the way you want them to, using
+any version of @command{awk}.@footnote{Use two backslashes if you're
+using a string constant with a regexp operator or function.}
+@end table
+
+@cindex precedence, regexp operators
+@cindex regexp operators, precedence of
+In regular expressions, the @samp{*}, @samp{+}, and @samp{?} operators,
+as well as the braces @samp{@{} and @samp{@}},
+have
+the highest precedence, followed by concatenation, and finally by @samp{|}.
+As in arithmetic, parentheses can change how operators are grouped.
+
+In POSIX @command{awk} and @command{gawk}, the @samp{*}, @samp{+}, and @samp{?} operators
+stand for themselves when there is nothing in the regexp that precedes them.
+For example, @samp{/+/} matches a literal plus sign. However, many other versions of
+@command{awk} treat such a usage as a syntax error.
+
+If @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+POSIX character classes and interval expressions are not available in
+regular expressions.
+
+@node Character Lists, GNU Regexp Operators, Regexp Operators, Regexp
+@section Using Character Lists
+
+Within a character list, a @dfn{range expression} consists of two
+characters separated by a hyphen. It matches any single character that
+sorts between the two characters, using the locale's
+collating sequence and character set. For example, in the default C
+locale, @samp{[a-dx-z]} is equivalent to @samp{[abcdxyz]}. Many locales
+sort characters in dictionary order, and in these locales,
+@samp{[a-dx-z]} is typically not equivalent to @samp{[abcdxyz]}; instead it
+might be equivalent to @samp{[aBbCcDdxXyYz]}, for example. To obtain
+the traditional interpretation of bracket expressions, you can use the C
+locale by setting the @env{LC_ALL} environment variable to the value
+@samp{C}.
+
+To include one of the characters @samp{\}, @samp{]}, @samp{-}, or @samp{^} in a
character list, put a @samp{\} in front of it. For example:
@example
@@ -2329,32 +3203,37 @@ character list, put a @samp{\} in front of it. For example:
@end example
@noindent
-matches either @samp{d}, or @samp{]}.
+matches either @samp{d} or @samp{]}.
-@cindex @code{egrep}
+@cindex @command{egrep} utility
This treatment of @samp{\} in character lists
-is compatible with other @code{awk}
-implementations, and is also mandated by POSIX.
-The regular expressions in @code{awk} are a superset
+is compatible with other @command{awk}
+implementations and is also mandated by POSIX.
+The regular expressions in @command{awk} are a superset
of the POSIX specification for Extended Regular Expressions (EREs).
POSIX EREs are based on the regular expressions accepted by the
-traditional @code{egrep} utility.
+traditional @command{egrep} utility.
-@cindex character classes
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex character class
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@dfn{Character classes} are a new feature introduced in the POSIX standard.
A character class is a special notation for describing
-lists of characters that have a specific attribute, but where the
-actual characters themselves can vary from country to country and/or
+lists of characters that have a specific attribute, but the
+actual characters can vary from country to country and/or
from character set to character set. For example, the notion of what
-is an alphabetic character differs in the USA and in France.
+is an alphabetic character differs between the United States and France.
A character class is only valid in a regexp @emph{inside} the
brackets of a character list. Character classes consist of @samp{[:},
a keyword denoting the class, and @samp{:]}. Here are the character
-classes defined by the POSIX standard.
+classes defined by the POSIX standard:
+
+@c the regular table is commented out while trying out the multitable.
+@c leave it here in case we need to go back, but make sure the text
+@c still corresponds!
+@ignore
@table @code
@item [:alnum:]
Alphanumeric characters.
@@ -2372,366 +3251,233 @@ Control characters.
Numeric characters.
@item [:graph:]
-Characters that are printable and are also visible.
-(A space is printable, but not visible, while an @samp{a} is both.)
+Characters that are printable and visible.
+(A space is printable but not visible, whereas an @samp{a} is both.)
@item [:lower:]
-Lower-case alphabetic characters.
+Lowercase alphabetic characters.
@item [:print:]
-Printable characters (characters that are not control characters.)
+Printable characters (characters that are not control characters).
@item [:punct:]
-Punctuation characters (characters that are not letter, digits,
+Punctuation characters (characters that are not letters, digits,
control characters, or space characters).
@item [:space:]
Space characters (such as space, tab, and formfeed, to name a few).
@item [:upper:]
-Upper-case alphabetic characters.
+Uppercase alphabetic characters.
@item [:xdigit:]
Characters that are hexadecimal digits.
@end table
+@end ignore
-For example, before the POSIX standard, to match alphanumeric
-characters, you had to write @code{/[A-Za-z0-9]/}. If your
+@multitable {@code{[:xdigit:]}} {Characters that are both printable and visible. (A space is}
+@item @code{[:alnum:]} @tab Alphanumeric characters.
+@item @code{[:alpha:]} @tab Alphabetic characters.
+@item @code{[:blank:]} @tab Space and tab characters.
+@item @code{[:cntrl:]} @tab Control characters.
+@item @code{[:digit:]} @tab Numeric characters.
+@item @code{[:graph:]} @tab Characters that are both printable and visible.
+(A space is printable but not visible, whereas an @samp{a} is both.)
+@item @code{[:lower:]} @tab Lowercase alphabetic characters.
+@item @code{[:print:]} @tab Printable characters (characters that are not control characters).
+@item @code{[:punct:]} @tab Punctuation characters (characters that are not letters, digits,
+control characters, or space characters).
+@item @code{[:space:]} @tab Space characters (such as space, tab, and formfeed, to name a few).
+@item @code{[:upper:]} @tab Uppercase alphabetic characters.
+@item @code{[:xdigit:]} @tab Characters that are hexadecimal digits.
+@end multitable
+
+For example, before the POSIX standard, you had to write @code{/[A-Za-z0-9]/}
+to match alphanumeric characters. If your
character set had other alphabetic characters in it, this would not
-match them. With the POSIX character classes, you can write
-@code{/[[:alnum:]]/}, and this will match @emph{all} the alphabetic
+match them, and if your character set collated differently from
+ASCII, this might not even match the ASCII alphanumeric characters.
+With the POSIX character classes, you can write
+@code{/[[:alnum:]]/} to match the alphabetic
and numeric characters in your character set.
@cindex collating elements
Two additional special sequences can appear in character lists.
These apply to non-ASCII character sets, which can have single symbols
(called @dfn{collating elements}) that are represented with more than one
-character, as well as several characters that are equivalent for
-@dfn{collating}, or sorting, purposes. (E.g., in French, a plain ``e''
+character. They can also have several characters that are equivalent for
+@dfn{collating}, or sorting, purposes. (For example, in French, a plain ``e''
and a grave-accented ``@`e'' are equivalent.)
@table @asis
@cindex collating symbols
@item Collating Symbols
-A @dfn{collating symbol} is a multi-character collating element enclosed in
+A @dfn{collating symbol} is a multicharacter collating element enclosed between
@samp{[.} and @samp{.]}. For example, if @samp{ch} is a collating element,
-then @code{[[.ch.]]} is a regexp that matches this collating element, while
+then @code{[[.ch.]]} is a regexp that matches this collating element, whereas
@code{[ch]} is a regexp that matches either @samp{c} or @samp{h}.
@cindex equivalence classes
@item Equivalence Classes
An @dfn{equivalence class} is a locale-specific name for a list of
-characters that are equivalent. The name is enclosed in
+characters that are equal. The name is enclosed between
@samp{[=} and @samp{=]}.
For example, the name @samp{e} might be used to represent all of
-``e,'' ``@`e,'' and ``@'e.'' In this case, @code{[[=e]]} is a regexp
-that matches any of @samp{e}, @samp{@'e}, or @samp{@`e}.
+``e,'' ``@`e,'' and ``@'e.'' In this case, @code{[[=e=]]} is a regexp
+that matches any of @samp{e}, @samp{@'e}, or @samp{@`e}.
@end table
These features are very valuable in non-English speaking locales.
-@strong{Caution:} The library functions that @code{gawk} uses for regular
+@strong{Caution:} The library functions that @command{gawk} uses for regular
expression matching currently only recognize POSIX character classes;
they do not recognize collating symbols or equivalence classes.
@c maybe one day ...
-@cindex complemented character list
-@cindex character list, complemented
-@item [^ @dots{}]
-This is a @dfn{complemented character list}. The first character after
-the @samp{[} @emph{must} be a @samp{^}. It matches any characters
-@emph{except} those in the square brackets. For example:
-
-@example
-[^0-9]
-@end example
-
-@noindent
-matches any character that is not a digit.
-
-@item |
-This is the @dfn{alternation operator}, and it is used to specify
-alternatives. For example:
-
-@example
-^P|[0-9]
-@end example
-
-@noindent
-matches any string that matches either @samp{^P} or @samp{[0-9]}. This
-means it matches any string that starts with @samp{P} or contains a digit.
-
-The alternation applies to the largest possible regexps on either side.
-In other words, @samp{|} has the lowest precedence of all the regular
-expression operators.
-
-@item (@dots{})
-Parentheses are used for grouping in regular expressions as in
-arithmetic. They can be used to concatenate regular expressions
-containing the alternation operator, @samp{|}. For example,
-@samp{@@(samp|code)\@{[^@}]+\@}} matches both @samp{@@code@{foo@}} and
-@samp{@@samp@{bar@}}. (These are Texinfo formatting control sequences.)
-
-@item *
-This symbol means that the preceding regular expression is to be
-repeated as many times as necessary to find a match. For example:
-
-@example
-ph*
-@end example
-
-@noindent
-applies the @samp{*} symbol to the preceding @samp{h} and looks for matches
-of one @samp{p} followed by any number of @samp{h}s. This will also match
-just @samp{p} if no @samp{h}s are present.
-
-The @samp{*} repeats the @emph{smallest} possible preceding expression.
-(Use parentheses if you wish to repeat a larger expression.) It finds
-as many repetitions as possible. For example:
+@node GNU Regexp Operators, Case-sensitivity, Character Lists, Regexp
+@section @command{gawk}-Specific Regexp Operators
-@example
-awk '/\(c[ad][ad]*r x\)/ @{ print @}' sample
-@end example
-
-@noindent
-prints every record in @file{sample} containing a string of the form
-@samp{(car x)}, @samp{(cdr x)}, @samp{(cadr x)}, and so on.
-Notice the escaping of the parentheses by preceding them
-with backslashes.
-
-@item +
-This symbol is similar to @samp{*}, but the preceding expression must be
-matched at least once. This means that:
-
-@example
-wh+y
-@end example
-
-@noindent
-would match @samp{why} and @samp{whhy} but not @samp{wy}, whereas
-@samp{wh*y} would match all three of these strings. This is a simpler
-way of writing the last @samp{*} example:
-
-@example
-awk '/\(c[ad]+r x\)/ @{ print @}' sample
-@end example
-
-@item ?
-This symbol is similar to @samp{*}, but the preceding expression can be
-matched either once or not at all. For example:
-
-@example
-fe?d
-@end example
-
-@noindent
-will match @samp{fed} and @samp{fd}, but nothing else.
-
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-@cindex interval expressions
-@item @{@var{n}@}
-@itemx @{@var{n},@}
-@itemx @{@var{n},@var{m}@}
-One or two numbers inside braces denote an @dfn{interval expression}.
-If there is one number in the braces, the preceding regexp is repeated
-@var{n} times.
-If there are two numbers separated by a comma, the preceding regexp is
-repeated @var{n} to @var{m} times.
-If there is one number followed by a comma, then the preceding regexp
-is repeated at least @var{n} times.
-
-@table @code
-@item wh@{3@}y
-matches @samp{whhhy} but not @samp{why} or @samp{whhhhy}.
-
-@item wh@{3,5@}y
-matches @samp{whhhy} or @samp{whhhhy} or @samp{whhhhhy}, only.
-
-@item wh@{2,@}y
-matches @samp{whhy} or @samp{whhhy}, and so on.
-@end table
-
-Interval expressions were not traditionally available in @code{awk}.
-As part of the POSIX standard they were added, to make @code{awk}
-and @code{egrep} consistent with each other.
-
-However, since old programs may use @samp{@{} and @samp{@}} in regexp
-constants, by default @code{gawk} does @emph{not} match interval expressions
-in regexps. If either @samp{--posix} or @samp{--re-interval} are specified
-(@pxref{Options, , Command Line Options}), then interval expressions
-are allowed in regexps.
-@end table
-
-@cindex precedence, regexp operators
-@cindex regexp operators, precedence of
-In regular expressions, the @samp{*}, @samp{+}, and @samp{?} operators,
-as well as the braces @samp{@{} and @samp{@}},
-have
-the highest precedence, followed by concatenation, and finally by @samp{|}.
-As in arithmetic, parentheses can change how operators are grouped.
-
-If @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}),
-character classes and interval expressions are not available in
-regular expressions.
-
-The next
-@ifinfo
-node
-@end ifinfo
-@iftex
-section
-@end iftex
-discusses the GNU-specific regexp operators, and provides
-more detail concerning how command line options affect the way @code{gawk}
-interprets the characters in regular expressions.
-
-@node GNU Regexp Operators, Case-sensitivity, Regexp Operators, Regexp
-@section Additional Regexp Operators Only in @code{gawk}
-
-@c This section adapted from the regex-0.12 manual
+@c This section adapted (long ago) from the regex-0.12 manual
@cindex regexp operators, GNU specific
+@cindex word, regexp definition of
GNU software that deals with regular expressions provides a number of
additional regexp operators. These operators are described in this
-section, and are specific to @code{gawk}; they are not available in other
-@code{awk} implementations.
-
-@cindex word, regexp definition of
-Most of the additional operators are for dealing with word matching.
+@value{SECTION} and are specific to @command{gawk};
+they are not available in other @command{awk} implementations.
+Most of the additional operators deal with word matching.
For our purposes, a @dfn{word} is a sequence of one or more letters, digits,
-or underscores (@samp{_}).
+or underscores (@samp{_}):
@table @code
@cindex @code{\w} regexp operator
@item \w
-This operator matches any word-constituent character, i.e.@: any
-letter, digit, or underscore. Think of it as a short-hand for
-@c @w{@code{[A-Za-z0-9_]}} or
+Matches any word-constituent character---that is, it matches any
+letter, digit, or underscore. Think of it as short-hand for
@w{@code{[[:alnum:]_]}}.
@cindex @code{\W} regexp operator
@item \W
-This operator matches any character that is not word-constituent.
-Think of it as a short-hand for
-@c @w{@code{[^A-Za-z0-9_]}} or
+Matches any character that is not word-constituent.
+Think of it as short-hand for
@w{@code{[^[:alnum:]_]}}.
@cindex @code{\<} regexp operator
@item \<
-This operator matches the empty string at the beginning of a word.
-For example, @code{/\<away/} matches @samp{away}, but not
+Matches the empty string at the beginning of a word.
+For example, @code{/\<away/} matches @samp{away} but not
@samp{stowaway}.
@cindex @code{\>} regexp operator
@item \>
-This operator matches the empty string at the end of a word.
-For example, @code{/stow\>/} matches @samp{stow}, but not @samp{stowaway}.
+Matches the empty string at the end of a word.
+For example, @code{/stow\>/} matches @samp{stow} but not @samp{stowaway}.
@cindex @code{\y} regexp operator
@cindex word boundaries, matching
@item \y
-This operator matches the empty string at either the beginning or the
-end of a word (the word boundar@strong{y}). For example, @samp{\yballs?\y}
-matches either @samp{ball} or @samp{balls} as a separate word.
+Matches the empty string at either the beginning or the
+end of a word (i.e., the word boundar@strong{y}). For example, @samp{\yballs?\y}
+matches either @samp{ball} or @samp{balls}, as a separate word.
@cindex @code{\B} regexp operator
@item \B
-This operator matches the empty string within a word. In other words,
-@samp{\B} matches the empty string that occurs between two
+Matches the empty string that occurs between two
word-constituent characters. For example,
-@code{/\Brat\B/} matches @samp{crate}, but it does not match @samp{dirty rat}.
+@code{/\Brat\B/} matches @samp{crate} but it does not match @samp{dirty rat}.
@samp{\B} is essentially the opposite of @samp{\y}.
@end table
+@cindex buffer matching operators
There are two other operators that work on buffers. In Emacs, a
-@dfn{buffer} is, naturally, an Emacs buffer. For other programs, the
-regexp library routines that @code{gawk} uses consider the entire
-string to be matched as the buffer.
+@dfn{buffer} is, naturally, an Emacs buffer. For other programs,
+@command{gawk}'s regexp library routines consider the entire
+string to match as the buffer.
-For @code{awk}, since @samp{^} and @samp{$} always work in terms
-of the beginning and end of strings, these operators don't add any
-new capabilities. They are provided for compatibility with other GNU
-software.
-
-@cindex buffer matching operators
@table @code
-@cindex @code{\`} regexp operator
@item \`
-This operator matches the empty string at the
-beginning of the buffer.
+@cindex @code{\`} regexp operator
+Matches the empty string at the
+beginning of a buffer (string).
@cindex @code{\'} regexp operator
@item \'
-This operator matches the empty string at the
-end of the buffer.
+Matches the empty string at the
+end of a buffer (string).
@end table
-In other GNU software, the word boundary operator is @samp{\b}. However,
-that conflicts with the @code{awk} language's definition of @samp{\b}
-as backspace, so @code{gawk} uses a different letter.
+Because @samp{^} and @samp{$} always work in terms of the beginning
+and end of strings, these operators don't add any new capabilities
+for @command{awk}. They are provided for compatibility with other
+GNU software.
+In other GNU software, the word-boundary operator is @samp{\b}. However,
+that conflicts with the @command{awk} language's definition of @samp{\b}
+as backspace, so @command{gawk} uses a different letter.
An alternative method would have been to require two backslashes in the
-GNU operators, but this was deemed to be too confusing, and the current
+GNU operators, but this was deemed too confusing. The current
method of using @samp{\y} for the GNU @samp{\b} appears to be the
lesser of two evils.
@c NOTE!!! Keep this in sync with the same table in the summary appendix!
-@cindex regexp, effect of command line options
-The various command line options
-(@pxref{Options, ,Command Line Options})
-control how @code{gawk} interprets characters in regexps.
+@c
+@c Should really do this with file inclusion.
+@cindex regexp, effect of command-line options
+The various command-line options
+(@pxref{Options, ,Command-Line Options})
+control how @command{gawk} interprets characters in regexps:
@table @asis
@item No options
-In the default case, @code{gawk} provides all the facilities of
-POSIX regexps and the GNU regexp operators described
-@iftex
-above.
-@end iftex
-@ifinfo
+In the default case, @command{gawk} provides all the facilities of
+POSIX regexps and the
+@ifnotinfo
+previously described
+GNU regexp operators.
+@end ifnotinfo
+@ifnottex
+GNU regexp operators described
in @ref{Regexp Operators, ,Regular Expression Operators}.
-@end ifinfo
+@end ifnottex
However, interval expressions are not supported.
@item @code{--posix}
-Only POSIX regexps are supported, the GNU operators are not special
+Only POSIX regexps are supported; the GNU operators are not special
(e.g., @samp{\w} matches a literal @samp{w}). Interval expressions
are allowed.
@item @code{--traditional}
-Traditional Unix @code{awk} regexps are matched. The GNU operators
-are not special, interval expressions are not available, and neither
+Traditional Unix @command{awk} regexps are matched. The GNU operators
+are not special, interval expressions are not available, nor
are the POSIX character classes (@code{[[:alnum:]]} and so on).
Characters described by octal and hexadecimal escape sequences are
treated literally, even if they represent regexp metacharacters.
@item @code{--re-interval}
-Allow interval expressions in regexps, even if @samp{--traditional}
+Allow interval expressions in regexps, even if @option{--traditional}
has been provided.
@end table
@node Case-sensitivity, Leftmost Longest, GNU Regexp Operators, Regexp
-@section Case-sensitivity in Matching
+@section Case Sensitivity in Matching
@cindex case sensitivity
@cindex ignoring case
Case is normally significant in regular expressions, both when matching
-ordinary characters (i.e.@: not metacharacters), and inside character
-sets. Thus a @samp{w} in a regular expression matches only a lower-case
-@samp{w} and not an upper-case @samp{W}.
+ordinary characters (i.e., not metacharacters) and inside character
+sets. Thus, a @samp{w} in a regular expression matches only a lowercase
+@samp{w} and not an uppercase @samp{W}.
The simplest way to do a case-independent match is to use a character
-list: @samp{[Ww]}. However, this can be cumbersome if you need to use it
-often; and it can make the regular expressions harder to
-read. There are two alternatives that you might prefer.
+list---for example, @samp{[Ww]}. However, this can be cumbersome if
+you need to use it often and it can make the regular expressions harder
+to read. There are two alternatives that you might prefer.
-One way to do a case-insensitive match at a particular point in the
+One way to perform a case-insensitive match at a particular point in the
program is to convert the data to a single case, using the
@code{tolower} or @code{toupper} built-in string functions (which we
haven't discussed yet;
-@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+@pxref{String Functions, ,String Manipulation Functions}).
For example:
@example
@@ -2739,75 +3485,66 @@ tolower($1) ~ /foo/ @{ @dots{} @}
@end example
@noindent
-converts the first field to lower-case before matching against it.
-This will work in any POSIX-compliant implementation of @code{awk}.
+converts the first field to lowercase before matching against it.
+This works in any POSIX-compliant @command{awk}.
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
@cindex @code{~} operator
@cindex @code{!~} operator
-@vindex IGNORECASE
-Another method, specific to @code{gawk}, is to set the variable
-@code{IGNORECASE} to a non-zero value (@pxref{Built-in Variables}).
+@cindex @code{IGNORECASE} variable
+Another method, specific to @command{gawk}, is to set the variable
+@code{IGNORECASE} to a nonzero value (@pxref{Built-in Variables}).
When @code{IGNORECASE} is not zero, @emph{all} regexp and string
operations ignore case. Changing the value of
-@code{IGNORECASE} dynamically controls the case sensitivity of your
+@code{IGNORECASE} dynamically controls the case sensitivity of the
program as it runs. Case is significant by default because
-@code{IGNORECASE} (like most variables) is initialized to zero.
+@code{IGNORECASE} (like most variables) is initialized to zero:
@example
-@group
x = "aB"
if (x ~ /ab/) @dots{} # this test will fail
-@end group
-@group
IGNORECASE = 1
if (x ~ /ab/) @dots{} # now it will succeed
-@end group
@end example
In general, you cannot use @code{IGNORECASE} to make certain rules
-case-insensitive and other rules case-sensitive, because there is no way
-to set @code{IGNORECASE} just for the pattern of a particular rule.
-@ignore
-This isn't quite true. Consider:
-
- IGNORECASE=1 && /foObAr/ { .... }
- IGNORECASE=0 || /foobar/ { .... }
-
-But that's pretty bad style and I don't want to get into it at this
-late date.
-@end ignore
-To do this, you must use character lists or @code{tolower}. However, one
-thing you can do only with @code{IGNORECASE} is turn case-sensitivity on
-or off dynamically for all the rules at once.
-
-@code{IGNORECASE} can be set on the command line, or in a @code{BEGIN} rule
-(@pxref{Other Arguments, ,Other Command Line Arguments}; also
+case-insensitive and other rules case-sensitive, because there is no
+straightforward way
+to set @code{IGNORECASE} just for the pattern of
+a particular rule.@footnote{Experienced C and C++ programmers will note
+that it is possible, using something like
+@samp{IGNORECASE = 1 && /foObAr/ @{ @dots{} @}}
+and
+@samp{IGNORECASE = 0 || /foobar/ @{ @dots{} @}}.
+However, this is somewhat obscure and we don't recommend it.}
+To do this, use either character lists or @code{tolower}. However, one
+thing you can do with @code{IGNORECASE} only is dynamically turn
+case-sensitivity on or off for all the rules at once.
+
+@code{IGNORECASE} can be set on the command line or in a @code{BEGIN} rule
+(@pxref{Other Arguments, ,Other Command-Line Arguments}; also
@pxref{Using BEGIN/END, ,Startup and Cleanup Actions}).
Setting @code{IGNORECASE} from the command line is a way to make
a program case-insensitive without having to edit it.
-Prior to version 3.0 of @code{gawk}, the value of @code{IGNORECASE}
-only affected regexp operations. It did not affect string comparison
+Prior to @command{gawk} 3.0, the value of @code{IGNORECASE}
+affected regexp operations only. It did not affect string comparison
with @samp{==}, @samp{!=}, and so on.
-Beginning with version 3.0, both regexp and string comparison
-operations are affected by @code{IGNORECASE}.
+Beginning with @value{PVERSION} 3.0, both regexp and string comparison
+operations are also affected by @code{IGNORECASE}.
@cindex ISO 8859-1
@cindex ISO Latin-1
-Beginning with version 3.0 of @code{gawk}, the equivalences between upper-case
-and lower-case characters are based on the ISO-8859-1 (ISO Latin-1)
+Beginning with @command{gawk} 3.0,
+the equivalences between upper-
+and lowercase characters are based on the ISO-8859-1 (ISO Latin-1)
character set. This character set is a superset of the traditional 128
ASCII characters, that also provides a number of characters suitable
for use with European languages.
-@ignore
-A pure ASCII character set can be used instead if @code{gawk} is compiled
-with @samp{-DUSE_PURE_ASCII}.
-@end ignore
-The value of @code{IGNORECASE} has no effect if @code{gawk} is in
-compatibility mode (@pxref{Options, ,Command Line Options}).
+The value of @code{IGNORECASE} has no effect if @command{gawk} is in
+compatibility mode (@pxref{Options, ,Command-Line Options}).
Case is always significant in compatibility mode.
@node Leftmost Longest, Computed Regexps, Case-sensitivity, Regexp
@@ -2815,26 +3552,23 @@ Case is always significant in compatibility mode.
@cindex leftmost longest match
@cindex matching, leftmost longest
-Consider the following example:
+Consider the following:
@example
echo aaaabcd | awk '@{ sub(/a+/, "<A>"); print @}'
@end example
-This example uses the @code{sub} function (which we haven't discussed yet,
-@pxref{String Functions, ,Built-in Functions for String Manipulation})
+This example uses the @code{sub} function (which we haven't discussed yet;
+@pxref{String Functions, ,String Manipulation Functions})
to make a change to the input record. Here, the regexp @code{/a+/}
indicates ``one or more @samp{a} characters,'' and the replacement
text is @samp{<A>}.
-The input contains four @samp{a} characters. What will the output be?
-In other words, how many is ``one or more''---will @code{awk} match two,
-three, or all four @samp{a} characters?
-
-The answer is, @code{awk} (and POSIX) regular expressions always match
+The input contains four @samp{a} characters.
+@command{awk} (and POSIX) regular expressions always match
the leftmost, @emph{longest} sequence of input characters that can
-match. Thus, in this example, all four @samp{a} characters are
-replaced with @samp{<A>}.
+match. Thus, all four @samp{a} characters are
+replaced with @samp{<A>} in this example:
@example
$ echo aaaabcd | awk '@{ sub(/a+/, "<A>"); print @}'
@@ -2845,12 +3579,12 @@ For simple match/no-match tests, this is not so important. But when doing
text matching and substitutions with the @code{match}, @code{sub}, @code{gsub},
and @code{gensub} functions, it is very important.
@ifinfo
-@xref{String Functions, ,Built-in Functions for String Manipulation},
+@xref{String Functions, ,String Manipulation Functions},
for more information on these functions.
@end ifinfo
Understanding this principle is also important for regexp-based record
-and field splitting (@pxref{Records, ,How Input is Split into Records},
-and also @pxref{Field Separators, ,Specifying How Fields are Separated}).
+and field splitting (@pxref{Records, ,How Input Is Split into Records},
+and also @pxref{Field Separators, ,Specifying How Fields Are Separated}).
@node Computed Regexps, , Leftmost Longest, Regexp
@section Using Dynamic Regexps
@@ -2861,37 +3595,33 @@ and also @pxref{Field Separators, ,Specifying How Fields are Separated}).
@cindex regexp, dynamic
@cindex @code{~} operator
@cindex @code{!~} operator
-The right hand side of a @samp{~} or @samp{!~} operator need not be a
-regexp constant (i.e.@: a string of characters between slashes). It may
-be any expression. The expression is evaluated, and converted if
-necessary to a string; the contents of the string are used as the
+The righthand side of a @samp{~} or @samp{!~} operator need not be a
+regexp constant (i.e., a string of characters between slashes). It may
+be any expression. The expression is evaluated and converted to a string
+if necessary; the contents of the string are used as the
regexp. A regexp that is computed in this way is called a @dfn{dynamic
-regexp}. For example:
+regexp}:
@example
-BEGIN @{ identifier_regexp = "[A-Za-z_][A-Za-z_0-9]*" @}
-$0 ~ identifier_regexp @{ print @}
+BEGIN @{ digits_regexp = "[[:digit:]]+" @}
+$0 ~ digits_regexp @{ print @}
@end example
@noindent
-sets @code{identifier_regexp} to a regexp that describes @code{awk}
-variable names, and tests if the input record matches this regexp.
-
-@ignore
-Do we want to use "^[A-Za-z_][A-Za-z_0-9]*$" to restrict the entire
-record to just identifiers? Doing that also would disrupt the flow of
-the text.
-@end ignore
+This sets @code{digits_regexp} to a regexp that describes one or more digits,
+and tests whether the input record matches this regexp.
+@c @strong{Caution:}
+When using the @samp{~} and @samp{!~}
@strong{Caution:} When using the @samp{~} and @samp{!~}
operators, there is a difference between a regexp constant
-enclosed in slashes, and a string constant enclosed in double quotes.
+enclosed in slashes and a string constant enclosed in double quotes.
If you are going to use a string constant, you have to understand that
-the string is in essence scanned @emph{twice}; the first time when
-@code{awk} reads your program, and the second time when it goes to
-match the string on the left-hand side of the operator with the pattern
+the string is, in essence, scanned @emph{twice}: the first time when
+@command{awk} reads your program, and the second time when it goes to
+match the string on the lefthand side of the operator with the pattern
on the right. This is true of any string valued expression (such as
-@code{identifier_regexp} above), not just string constants.
+@code{digits_regexp} shown previously), not just string constants.
@cindex regexp constants, difference between slashes and quotes
What difference does it make if the string is
@@ -2901,8 +3631,8 @@ string, you have to type two backslashes.
For example, @code{/\*/} is a regexp constant for a literal @samp{*}.
Only one backslash is needed. To do the same thing with a string,
-you would have to type @code{"\\*"}. The first backslash escapes the
-second one, so that the string actually contains the
+you have to type @code{"\\*"}. The first backslash escapes the
+second one so that the string actually contains the
two characters @samp{\} and @samp{*}.
@cindex common mistakes
@@ -2910,26 +3640,58 @@ two characters @samp{\} and @samp{*}.
@cindex errors, common
Given that you can use both regexp and string constants to describe
regular expressions, which should you use? The answer is ``regexp
-constants,'' for several reasons.
+constants,'' for several reasons:
-@enumerate 1
+@itemize @bullet
@item
-String constants are more complicated to write, and
+String constants are more complicated to write and
more difficult to read. Using regexp constants makes your programs
less error-prone. Not understanding the difference between the two
kinds of constants is a common source of errors.
@item
-It is also more efficient to use regexp constants: @code{awk} can note
-that you have supplied a regexp and store it internally in a form that
+It is more efficient to use regexp constants. @command{awk} can note
+that you have supplied a regexp, and store it internally in a form that
makes pattern matching more efficient. When using a string constant,
-@code{awk} must first convert the string into this internal form, and
+@command{awk} must first convert the string into this internal form and
then perform the pattern matching.
@item
-Using regexp constants is better style; it shows clearly that you
+Using regexp constants is better form; it shows clearly that you
intend a regexp match.
-@end enumerate
+@end itemize
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Using @code{\n} in Character Lists of Dynamic Regexps
+@cindex advanced notes
+@cindex dynamic regular expressions with embedded newlines
+@cindex regexp, dynamic, with embedded newlines
+@cindex newlines, embedded in dynamic regexps
+@cindex embedded newlines, in dynamic regexps
+
+Some commercial versions of @command{awk} do not allow the newline
+character to be used inside a character list for a dynamic regexp:
+
+@example
+$ awk '$0 ~ "[ \t\n]"'
+@error{} awk: newline in character class [
+@error{} ]...
+@error{} source line number 1
+@error{} context is
+@error{} >>> <<<
+@end example
+
+But a newline in a regexp constant works with no problem:
+
+@example
+$ awk '$0 ~ /[ \t\n]/'
+here is a sample line
+@print{} here is a sample line
+@kbd{Ctrl-d}
+@end example
+
+@command{gawk} does not have this problem, and it isn't likely to
+occur often in practice, but it's worth noting for future reference.
@node Reading Files, Printing, Regexp, Top
@chapter Reading Input Files
@@ -2937,25 +3699,26 @@ intend a regexp match.
@cindex reading files
@cindex input
@cindex standard input
-@vindex FILENAME
-In the typical @code{awk} program, all input is read either from the
-standard input (by default the keyboard, but often a pipe from another
-command) or from files whose names you specify on the @code{awk} command
-line. If you specify input files, @code{awk} reads them in order, reading
-all the data from one before going on to the next. The name of the current
-input file can be found in the built-in variable @code{FILENAME}
+@cindex @code{FILENAME} variable
+In the typical @command{awk} program, all input is read either from the
+standard input (by default, this is the keyboard but often it is a pipe from another
+command), or from files whose names you specify on the @command{awk}
+command line. If you specify input files, @command{awk} reads them
+in order, processing all the data from one before going on to the next.
+The name of the current input file can be found in the built-in variable
+@code{FILENAME}
(@pxref{Built-in Variables}).
-The input is read in units called @dfn{records}, and processed by the
+The input is read in units called @dfn{records}, and is processed by the
rules of your program one record at a time.
By default, each record is one line. Each
record is automatically split into chunks called @dfn{fields}.
This makes it more convenient for programs to work on the parts of a record.
-On rare occasions you will need to use the @code{getline} command.
+On rare occasions, you may need to use the @code{getline} command.
The @code{getline} command is valuable, both because it
can do explicit input from any number of files, and because the files
-used with it do not have to be named on the @code{awk} command line
+used with it do not have to be named on the @command{awk} command line
(@pxref{Getline, ,Explicit Input with @code{getline}}).
@menu
@@ -2971,49 +3734,62 @@ used with it do not have to be named on the @code{awk} command line
@end menu
@node Records, Fields, Reading Files, Reading Files
-@section How Input is Split into Records
+@section How Input Is Split into Records
+
+@cindex number of records, @code{NR}, @code{FNR}
+@cindex @code{NR} variable
+@cindex @code{FNR} variable
+The @command{awk} utility divides the input for your @command{awk}
+program into records and fields.
+@command{awk} keeps track of the number of records that have
+been read
+so far
+from the current input file. This value is stored in a
+built-in variable called @code{FNR}. It is reset to zero when a new
+file is started. Another built-in variable, @code{NR}, is the total
+number of input records read so far from all @value{DF}s. It starts at zero,
+but is never automatically reset to zero.
@cindex record separator, @code{RS}
@cindex changing the record separator
@cindex record, definition of
-@vindex RS
-The @code{awk} utility divides the input for your @code{awk}
-program into records and fields.
+@cindex @code{RS} variable
Records are separated by a character called the @dfn{record separator}.
By default, the record separator is the newline character.
This is why records are, by default, single lines.
-You can use a different character for the record separator by
+A different character can be used for the record separator by
assigning the character to the built-in variable @code{RS}.
-You can change the value of @code{RS} in the @code{awk} program,
-like any other variable, with the
-assignment operator, @samp{=} (@pxref{Assignment Ops, ,Assignment Expressions}).
+Like any other variable,
+the value of @code{RS} can be changed in the @command{awk} program
+with the assignment operator, @samp{=}
+(@pxref{Assignment Ops, ,Assignment Expressions}).
The new record-separator character should be enclosed in quotation marks,
-which indicate
-a string constant. Often the right time to do this is at the beginning
-of execution, before any input has been processed, so that the very
-first record will be read with the proper separator. To do this, use
-the special @code{BEGIN} pattern
-(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}). For
-example:
+which indicate a string constant. Often the right time to do this is
+at the beginning of execution, before any input is processed,
+so that the very first record is read with the proper separator.
+To do this, use the special @code{BEGIN} pattern
+(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
+For example:
@example
-awk 'BEGIN @{ RS = "/" @} ; @{ print $0 @}' BBS-list
+awk 'BEGIN @{ RS = "/" @}
+ @{ print $0 @}' BBS-list
@end example
@noindent
changes the value of @code{RS} to @code{"/"}, before reading any input.
This is a string whose first character is a slash; as a result, records
are separated by slashes. Then the input file is read, and the second
-rule in the @code{awk} program (the action with no pattern) prints each
-record. Since each @code{print} statement adds a newline at the end of
-its output, the effect of this @code{awk} program is to copy the input
+rule in the @command{awk} program (the action with no pattern) prints each
+record. Because each @code{print} statement adds a newline at the end of
+its output, the effect of this @command{awk} program is to copy the input
with each slash changed to a newline. Here are the results of running
the program on @file{BBS-list}:
@example
-@group
-$ awk 'BEGIN @{ RS = "/" @} ; @{ print $0 @}' BBS-list
+$ awk 'BEGIN @{ RS = "/" @}
+> @{ print $0 @}' BBS-list
@print{} aardvark 555-5553 1200
@print{} 300 B
@print{} alpo-net 555-3412 2400
@@ -3040,13 +3816,12 @@ $ awk 'BEGIN @{ RS = "/" @} ; @{ print $0 @}' BBS-list
@print{} sabafoo 555-2127 1200
@print{} 300 C
@print{}
-@end group
@end example
@noindent
Note that the entry for the @samp{camelot} BBS is not split.
-In the original data file
-(@pxref{Sample Data Files, , Data Files for the Examples}),
+In the original @value{DF}
+(@pxref{Sample Data Files, ,@value{DDF}s for the Examples}),
the line looks like this:
@example
@@ -3054,11 +3829,16 @@ camelot 555-0542 300 C
@end example
@noindent
-It only has one baud rate; there are no slashes in the record.
+It has one baud rate only, so there are no slashes in the record,
+unlike the others which have two or more baud rates.
+In fact, this record is treated as part of the record
+for the @samp{core} BBS; the newline separating them in the output
+is the original newline in the @value{DF}, not the one added by
+@command{awk} when it printed the record!
Another way to change the record separator is on the command line,
using the variable-assignment feature
-(@pxref{Other Arguments, ,Other Command Line Arguments}).
+(@pxref{Other Arguments, ,Other Command-Line Arguments}):
@example
awk '@{ print $0 @}' RS="/" BBS-list
@@ -3069,44 +3849,43 @@ This sets @code{RS} to @samp{/} before processing @file{BBS-list}.
Using an unusual character such as @samp{/} for the record separator
produces correct behavior in the vast majority of cases. However,
-the following (extreme) pipeline prints a surprising @samp{1}. There
-is one field, consisting of a newline. The value of the built-in
-variable @code{NF} is the number of fields in the current record.
+the following (extreme) pipeline prints a surprising @samp{1}:
@example
-@group
$ echo | awk 'BEGIN @{ RS = "a" @} ; @{ print NF @}'
@print{} 1
-@end group
@end example
+There is one field, consisting of a newline. The value of the built-in
+variable @code{NF} is the number of fields in the current record.
+
@cindex dark corner
-@noindent
Reaching the end of an input file terminates the current input record,
-even if the last character in the file is not the character in @code{RS}
-(d.c.).
+even if the last character in the file is not the character in @code{RS}.
+@value{DARKCORNER}
@cindex empty string
-The empty string, @code{""} (a string of no characters), has a special meaning
-as the value of @code{RS}: it means that records are separated
-by one or more blank lines, and nothing else.
+The empty string @code{""} (a string without any characters)
+has a special meaning
+as the value of @code{RS}. It means that records are separated
+by one or more blank lines and nothing else.
@xref{Multiple Line, ,Multiple-Line Records}, for more details.
-If you change the value of @code{RS} in the middle of an @code{awk} run,
+If you change the value of @code{RS} in the middle of an @command{awk} run,
the new value is used to delimit subsequent records, but the record
-currently being processed (and records already processed) are not
+currently being processed, as well as records already processed, are not
affected.
-@vindex RT
+@cindex @code{RT} variable
@cindex record terminator, @code{RT}
@cindex terminator, record
-@cindex differences between @code{gawk} and @code{awk}
-After the end of the record has been determined, @code{gawk}
+@cindex differences between @command{gawk} and @command{awk}
+@cindex regular expressions as record separators
+After the end of the record has been determined, @command{gawk}
sets the variable @code{RT} to the text in the input that matched
@code{RS}.
-
-@cindex regular expressions as record separators
-The value of @code{RS} is in fact not limited to a one-character
+When using @command{gawk},
+the value of @code{RS} is not limited to a one-character
string. It can be any regular expression
(@pxref{Regexp, ,Regular Expressions}).
In general, each record
@@ -3116,18 +3895,17 @@ actually at work in the usual case, where @code{RS} contains just a
newline: a record ends at the beginning of the next matching string (the
next newline in the input) and the following record starts just after
the end of this string (at the first character of the following line).
-The newline, since it matches @code{RS}, is not part of either record.
+The newline, because it matches @code{RS}, is not part of either record.
-When @code{RS} is a single character, @code{RT} will
-contain the same single character. However, when @code{RS} is a
-regular expression, then @code{RT} becomes more useful; it contains
+When @code{RS} is a single character, @code{RT}
+contains the same single character. However, when @code{RS} is a
+regular expression, @code{RT} contains
the actual input text that matched the regular expression.
The following example illustrates both of these features.
It sets @code{RS} equal to a regular expression that
-matches either a newline, or a series of one or more upper-case letters
-with optional leading and/or trailing white space
-(@pxref{Regexp, , Regular Expressions}).
+matches either a newline or a series of one or more uppercase letters
+with optional leading and/or trailing whitespace:
@example
$ echo record 1 AAAA record 2 BBBB record 3 |
@@ -3141,29 +3919,55 @@ $ echo record 1 AAAA record 2 BBBB record 3 |
@noindent
The final line of output has an extra blank line. This is because the
-value of @code{RT} is a newline, and then the @code{print} statement
+value of @code{RT} is a newline, and the @code{print} statement
supplies its own terminating newline.
-
@xref{Simple Sed, ,A Simple Stream Editor}, for a more useful example
of @code{RS} as a regexp and @code{RT}.
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
The use of @code{RS} as a regular expression and the @code{RT}
-variable are @code{gawk} extensions; they are not available in
+variable are @command{gawk} extensions; they are not available in
compatibility mode
-(@pxref{Options, ,Command Line Options}).
+(@pxref{Options, ,Command-Line Options}).
In compatibility mode, only the first character of the value of
@code{RS} is used to determine the end of the record.
-@cindex number of records, @code{NR}, @code{FNR}
-@vindex NR
-@vindex FNR
-The @code{awk} utility keeps track of the number of records that have
-been read so far from the current input file. This value is stored in a
-built-in variable called @code{FNR}. It is reset to zero when a new
-file is started. Another built-in variable, @code{NR}, is the total
-number of input records read so far from all data files. It starts at zero
-but is never automatically reset to zero.
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: @code{RS = "\0"} Is Not Portable
+@cindex advanced notes
+@cindex portability issues
+
+There are times when you might want to treat an entire @value{DF} as a
+single record. The only way to make this happen is to give @code{RS}
+a value that you know doesn't occur in the input file. This is hard
+to do in a general way, such that a program always works for arbitrary
+input files.
+@c can you say `understatement' boys and girls?
+
+You might think that for text files, the @sc{nul} character, which
+consists of a character with all bits equal to zero, is a good
+value to use for @code{RS} in this case:
+
+@example
+BEGIN @{ RS = "\0" @} # whole file becomes one record?
+@end example
+
+@cindex differences between @command{gawk} and @command{awk}
+@command{gawk} in fact accepts this, and uses the @sc{nul}
+character for the record separator.
+However, this usage is @emph{not} portable
+to other @command{awk} implementations.
+
+@cindex dark corner
+All other @command{awk} implementations@footnote{At least that we know
+about.} store strings internally as C-style strings. C strings use the
+@sc{nul} character as the string terminator. In effect, this means that
+@samp{RS = "\0"} is the same as @samp{RS = ""}.
+@value{DARKCORNER}
+
+The best way to treat a whole file as a single record is to
+simply read the file in, one record at a time, concatenating each
+record onto the end of the previous ones.
@node Fields, Non-Constant Fields, Records, Reading Files
@section Examining Fields
@@ -3171,72 +3975,65 @@ but is never automatically reset to zero.
@cindex examining fields
@cindex fields
@cindex accessing fields
-When @code{awk} reads an input record, the record is
+When @command{awk} reads an input record, the record is
automatically separated or @dfn{parsed} by the interpreter into chunks
-called @dfn{fields}. By default, fields are separated by whitespace,
+called @dfn{fields}. By default, fields are separated by @dfn{whitespace},
like words in a line.
-Whitespace in @code{awk} means any string of one or more spaces,
-tabs or newlines;@footnote{In POSIX @code{awk}, newlines are not
-considered whitespace for separating fields.} other characters such as
-formfeed, and so on, that are
-considered whitespace by other languages are @emph{not} considered
-whitespace by @code{awk}.
+Whitespace in @command{awk} means any string of one or more spaces,
+tabs, or newlines;@footnote{In POSIX @command{awk}, newlines are not
+considered whitespace for separating fields.} other characters, such as
+formfeed, vertical tab, etc.@: that are
+considered whitespace by other languages, are @emph{not} considered
+whitespace by @command{awk}.
The purpose of fields is to make it more convenient for you to refer to
these pieces of the record. You don't have to use them---you can
-operate on the whole record if you wish---but fields are what make
-simple @code{awk} programs so powerful.
+operate on the whole record if you want---but fields are what make
+simple @command{awk} programs so powerful.
-@cindex @code{$} (field operator)
+@cindex @code{$} field operator
@cindex field operator @code{$}
-To refer to a field in an @code{awk} program, you use a dollar-sign,
-@samp{$}, followed by the number of the field you want. Thus, @code{$1}
-refers to the first field, @code{$2} to the second, and so on. For
-example, suppose the following is a line of input:
+A dollar-sign (@samp{$}) is used
+to refer to a field in an @command{awk} program,
+followed by the number of the field you want. Thus, @code{$1}
+refers to the first field, @code{$2} to the second, and so on.
+(Unlike the Unix shells, the field numbers are not limited to single digits.
+@code{$127} is the one hundred and twenty-seventh field in the record.)
+For example, suppose the following is a line of input:
@example
This seems like a pretty nice example.
@end example
@noindent
-Here the first field, or @code{$1}, is @samp{This}; the second field, or
-@code{$2}, is @samp{seems}; and so on. Note that the last field,
+Here the first field, or @code{$1}, is @samp{This}, the second field, or
+@code{$2}, is @samp{seems}, and so on. Note that the last field,
@code{$7}, is @samp{example.}. Because there is no space between the
@samp{e} and the @samp{.}, the period is considered part of the seventh
field.
-@vindex NF
+@cindex @code{NF} variable
@cindex number of fields, @code{NF}
-@code{NF} is a built-in variable whose value
-is the number of fields in the current record.
-@code{awk} updates the value of @code{NF} automatically, each time
-a record is read.
-
-No matter how many fields there are, the last field in a record can be
-represented by @code{$NF}. So, in the example above, @code{$NF} would
-be the same as @code{$7}, which is @samp{example.}. Why this works is
-explained below (@pxref{Non-Constant Fields, ,Non-constant Field Numbers}).
-If you try to reference a field beyond the last one, such as @code{$8}
-when the record has only seven fields, you get the empty string.
-@c the empty string acts like 0 in some contexts, but I don't want to
-@c get into that here....
-
-@code{$0}, which looks like a reference to the ``zeroth'' field, is
-a special case: it represents the whole input record. @code{$0} is
-used when you are not interested in fields.
-
-@c NEEDED
-@page
+@code{NF} is a built-in variable whose value is the number of fields
+in the current record. @command{awk} automatically updates the value
+of @code{NF} each time it reads a record. No matter how many fields
+there are, the last field in a record can be represented by @code{$NF}.
+So, @code{$NF} is the same as @code{$7}, which is @samp{example.}.
+If you try to reference a field beyond the last
+one (such as @code{$8} when the record has only seven fields), you get
+the empty string. (If used in a numeric operation, you get zero.)
+
+The use of @code{$0}, which looks like a reference to the ``zeroth'' field, is
+a special case: it represents the whole input record
+when you are not interested in specific fields.
Here are some more examples:
@example
-@group
$ awk '$1 ~ /foo/ @{ print $0 @}' BBS-list
@print{} fooey 555-1234 2400/1200/300 B
@print{} foot 555-6699 1200/300 B
@print{} macfoo 555-6480 1200/300 A
@print{} sabafoo 555-2127 1200/300 C
-@end group
@end example
@noindent
@@ -3249,24 +4046,21 @@ expression.
By contrast, the following example
looks for @samp{foo} in @emph{the entire record} and prints the first
-field and the last field for each input record containing a
-match.
+field and the last field for each matching input record:
@example
-@group
$ awk '/foo/ @{ print $1, $NF @}' BBS-list
@print{} fooey B
@print{} foot B
@print{} macfoo A
@print{} sabafoo C
-@end group
@end example
@node Non-Constant Fields, Changing Fields, Fields, Reading Files
-@section Non-constant Field Numbers
+@section Non-Constant Field Numbers
The number of a field does not need to be a constant. Any expression in
-the @code{awk} language can be used after a @samp{$} to refer to a
+the @command{awk} language can be used after a @samp{$} to refer to a
field. The value of the expression specifies the field number. If the
value is a string, rather than a number, it is converted to a number.
Consider this example:
@@ -3281,93 +4075,92 @@ first record, two in the second, etc. So this example prints the first
field of the first record, the second field of the second record, and so
on. For the twentieth record, field number 20 is printed; most likely,
the record has fewer than 20 fields, so this prints a blank line.
-
Here is another example of using expressions as field numbers:
@example
awk '@{ print $(2*2) @}' BBS-list
@end example
-@code{awk} must evaluate the expression @samp{(2*2)} and use
+@command{awk} evaluates the expression @samp{(2*2)} and uses
its value as the number of the field to print. The @samp{*} sign
represents multiplication, so the expression @samp{2*2} evaluates to four.
The parentheses are used so that the multiplication is done before the
@samp{$} operation; they are necessary whenever there is a binary
operator in the field-number expression. This example, then, prints the
hours of operation (the fourth field) for every line of the file
-@file{BBS-list}. (All of the @code{awk} operators are listed, in
+@file{BBS-list}. (All of the @command{awk} operators are listed, in
order of decreasing precedence, in
@ref{Precedence, , Operator Precedence (How Operators Nest)}.)
If the field number you compute is zero, you get the entire record.
-Thus, @code{$(2-2)} has the same value as @code{$0}. Negative field
-numbers are not allowed; trying to reference one will usually terminate
-your running @code{awk} program. (The POSIX standard does not define
-what happens when you reference a negative field number. @code{gawk}
-will notice this and terminate your program. Other @code{awk}
+Thus, @samp{$(2-2)} has the same value as @code{$0}. Negative field
+numbers are not allowed; trying to reference one usually terminates
+the program. (The POSIX standard does not define
+what happens when you reference a negative field number. @command{gawk}
+notices this and terminates your program. Other @command{awk}
implementations may behave differently.)
As mentioned in @ref{Fields, ,Examining Fields},
-the number of fields in the current record is stored in the built-in
+@command{awk} stores the current record's number of fields in the built-in
variable @code{NF} (also @pxref{Built-in Variables}). The expression
-@code{$NF} is not a special feature: it is the direct consequence of
+@code{$NF} is not a special feature---it is the direct consequence of
evaluating @code{NF} and using its value as a field number.
@node Changing Fields, Field Separators, Non-Constant Fields, Reading Files
@section Changing the Contents of a Field
-@cindex field, changing contents of
+@cindex fields, changing contents of
@cindex changing contents of a field
@cindex assignment to fields
-You can change the contents of a field as seen by @code{awk} within an
-@code{awk} program; this changes what @code{awk} perceives as the
-current input record. (The actual input is untouched; @code{awk} @emph{never}
+The contents of a field, as seen by @command{awk}, can be changed within an
+@command{awk} program; this changes what @command{awk} perceives as the
+current input record. (The actual input is untouched; @command{awk} @emph{never}
modifies the input file.)
-
Consider this example and its output:
@example
-@group
-$ awk '@{ $3 = $2 - 10; print $2, $3 @}' inventory-shipped
+$ awk '@{ nboxes = $3 ; $3 = $3 - 10
+> print nboxes, $3 @}' inventory-shipped
@print{} 13 3
@print{} 15 5
@print{} 15 5
@dots{}
-@end group
@end example
@noindent
+The program first saves the original value of field three in the variable
+@code{nboxes}.
The @samp{-} sign represents subtraction, so this program reassigns
-field three, @code{$3}, to be the value of field two minus ten,
-@samp{$2 - 10}. (@xref{Arithmetic Ops, ,Arithmetic Operators}.)
-Then field two, and the new value for field three, are printed.
-
-In order for this to work, the text in field @code{$2} must make sense
-as a number; the string of characters must be converted to a number in
-order for the computer to do arithmetic on it. The number resulting
-from the subtraction is converted back to a string of characters which
+field three, @code{$3}, as the original value of field three minus ten:
+@samp{$3 - 10}. (@xref{Arithmetic Ops, ,Arithmetic Operators}.)
+Then it prints the original and new values for field three.
+(Someone in the warehouse made a consistent mistake while inventorying
+the red boxes.)
+
+For this to work, the text in field @code{$2} must make sense
+as a number; the string of characters must be converted to a number
+for the computer to do arithmetic on it. The number resulting
+from the subtraction is converted back to a string of characters that
then becomes field three.
@xref{Conversion, ,Conversion of Strings and Numbers}.
-When you change the value of a field (as perceived by @code{awk}), the
+When the value of a field is changed (as perceived by @command{awk}), the
text of the input record is recalculated to contain the new field where
-the old one was. Therefore, @code{$0} changes to reflect the altered
+the old one was. In other words, @code{$0} changes to reflect the altered
field. Thus, this program
prints a copy of the input file, with 10 subtracted from the second
-field of each line.
+field of each line:
@example
-@group
$ awk '@{ $2 = $2 - 10; print $0 @}' inventory-shipped
@print{} Jan 3 25 15 115
@print{} Feb 5 32 24 226
@print{} Mar 5 24 34 228
@dots{}
-@end group
@end example
-You can also assign contents to fields that are out of range. For
-example:
+It is also possible to also assign contents to fields that are out
+of range. For example:
@example
$ awk '@{ $6 = ($5 + $4 + $3 + $2)
@@ -3384,17 +4177,17 @@ We've just created @code{$6}, whose value is the sum of fields
represents addition. For the file @file{inventory-shipped}, @code{$6}
represents the total number of parcels shipped for a particular month.
-Creating a new field changes @code{awk}'s internal copy of the current
-input record---the value of @code{$0}. Thus, if you do @samp{print $0}
+Creating a new field changes @command{awk}'s internal copy of the current
+input record, which is the value of @code{$0}. Thus, if you do @samp{print $0}
after adding a field, the record printed includes the new field, with
the appropriate number of field separators between it and the previously
existing fields.
This recomputation affects and is affected by
-@code{NF} (the number of fields; @pxref{Fields, ,Examining Fields}),
-and by a feature that has not been discussed yet,
+@code{NF} (the number of fields; @pxref{Fields, ,Examining Fields}).
+It is also affected by a feature that has not been discussed yet:
the @dfn{output field separator}, @code{OFS},
-which is used to separate the fields (@pxref{Output Separators}).
+used to separate the fields (@pxref{Output Separators}).
For example, the value of @code{NF} is set to the number of the highest
field you create.
@@ -3413,29 +4206,26 @@ else
@noindent
should print @samp{everything is normal}, because @code{NF+1} is certain
to be out of range. (@xref{If Statement, ,The @code{if}-@code{else} Statement},
-for more information about @code{awk}'s @code{if-else} statements.
+for more information about @command{awk}'s @code{if-else} statements.
@xref{Typing and Comparison, ,Variable Typing and Comparison Expressions},
for more information about the @samp{!=} operator.)
It is important to note that making an assignment to an existing field
-will change the
-value of @code{$0}, but will not change the value of @code{NF},
+changes the
+value of @code{$0} but does not change the value of @code{NF},
even when you assign the empty string to a field. For example:
@example
-@group
$ echo a b c d | awk '@{ OFS = ":"; $2 = ""
> print $0; print NF @}'
@print{} a::c:d
@print{} 4
-@end group
@end example
@noindent
-The field is still there; it just has an empty value. You can tell
-because there are two colons in a row.
-
-This example shows what happens if you create a new field.
+The field is still there; it just has an empty value, denoted by
+the two colons between @samp{a} and @samp{c}.
+This example shows what happens if you create a new field:
@example
$ echo a b c d | awk '@{ OFS = ":"; $2 = ""; $6 = "new"
@@ -3445,50 +4235,48 @@ $ echo a b c d | awk '@{ OFS = ":"; $2 = ""; $6 = "new"
@end example
@noindent
-The intervening field, @code{$5} is created with an empty value
+The intervening field, @code{$5}, is created with an empty value
(indicated by the second pair of adjacent colons),
and @code{NF} is updated with the value six.
-Finally, decrementing @code{NF} will lose the values of the fields
-after the new value of @code{NF}, and @code{$0} will be recomputed.
+@c FIXME: Verify that this is in POSIX
+@cindex dark corner
+Decrementing @code{NF} throws away the values of the fields
+after the new value of @code{NF} and recomputes @code{$0}.
+@value{DARKCORNER}
Here is an example:
@example
-$ echo a b c d e f | ../gawk '@{ print "NF =", NF;
-> NF = 3; print $0 @}'
+$ echo a b c d e f | awk '@{ print "NF =", NF;
+> NF = 3; print $0 @}'
@print{} NF = 6
@print{} a b c
@end example
-@node Field Separators, Constant Size, Changing Fields, Reading Files
-@section Specifying How Fields are Separated
+@cindex portability issues
+@strong{Caution:} Some versions of @command{awk} don't
+rebuild @code{$0} when @code{NF} is decremented. Caveat emptor.
-This section is rather long; it describes one of the most fundamental
-operations in @code{awk}.
+@node Field Separators, Constant Size, Changing Fields, Reading Files
+@section Specifying How Fields Are Separated
@menu
-* Basic Field Splitting:: How fields are split with single characters
- or simple strings.
* Regexp Field Splitting:: Using regexps as the field separator.
* Single Character Fields:: Making each character a separate field.
-* Command Line Field Separator:: Setting @code{FS} from the command line.
+* Command Line Field Separator:: Setting @code{FS} from the command-line.
* Field Splitting Summary:: Some final points and a summary table.
@end menu
-@node Basic Field Splitting, Regexp Field Splitting, Field Separators, Field Separators
-@subsection The Basics of Field Separating
-@vindex FS
+@cindex @code{FS} variable
@cindex fields, separating
@cindex field separator, @code{FS}
-
The @dfn{field separator}, which is either a single character or a regular
-expression, controls the way @code{awk} splits an input record into fields.
-@code{awk} scans the input record for character sequences that
+expression, controls the way @command{awk} splits an input record into fields.
+@command{awk} scans the input record for character sequences that
match the separator; the fields themselves are the text between the matches.
-In the examples below, we use the bullet symbol ``@bullet{}'' to represent
-spaces in the output.
-
+In the examples that follow, we use the bullet symbol (@bullet{}) to
+represent spaces in the output.
If the field separator is @samp{oo}, then the following line:
@example
@@ -3496,7 +4284,7 @@ moo goo gai pan
@end example
@noindent
-would be split into three fields: @samp{m}, @samp{@bullet{}g} and
+is split into three fields: @samp{m}, @samp{@bullet{}g}, and
@samp{@bullet{}gai@bullet{}pan}.
Note the leading spaces in the values of the second and third fields.
@@ -3504,15 +4292,15 @@ Note the leading spaces in the values of the second and third fields.
@cindex mistakes, common
@cindex errors, common
The field separator is represented by the built-in variable @code{FS}.
-Shell programmers take note! @code{awk} does @emph{not} use the name @code{IFS}
-which is used by the POSIX compatible shells (such as the Bourne shell,
-@code{sh}, or the GNU Bourne-Again Shell, Bash).
+Shell programmers take note: @command{awk} does @emph{not} use the
+name @code{IFS} that is used by the POSIX-compliant shells (such as
+the Unix Bourne shell, @command{sh}, or @command{bash}).
-You can change the value of @code{FS} in the @code{awk} program with the
+The value of @code{FS} can be changed in the @command{awk} program with the
assignment operator, @samp{=} (@pxref{Assignment Ops, ,Assignment Expressions}).
-Often the right time to do this is at the beginning of execution,
+Often the right time to do this is at the beginning of execution
before any input has been processed, so that the very first record
-will be read with the proper separator. To do this, use the special
+is read with the proper separator. To do this, use the special
@code{BEGIN} pattern
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
For example, here we set the value of @code{FS} to the string
@@ -3523,69 +4311,57 @@ awk 'BEGIN @{ FS = "," @} ; @{ print $2 @}'
@end example
@noindent
-Given the input line,
+Given the input line:
@example
John Q. Smith, 29 Oak St., Walamazoo, MI 42139
@end example
@noindent
-this @code{awk} program extracts and prints the string
+this @command{awk} program extracts and prints the string
@samp{@bullet{}29@bullet{}Oak@bullet{}St.}.
@cindex field separator, choice of
@cindex regular expressions as field separators
-Sometimes your input data will contain separator characters that don't
+Sometimes the input data contains separator characters that don't
separate fields the way you thought they would. For instance, the
person's name in the example we just used might have a title or
-suffix attached, such as @samp{John Q. Smith, LXIX}. From input
-containing such a name:
+suffix attached, such as:
@example
John Q. Smith, LXIX, 29 Oak St., Walamazoo, MI 42139
@end example
@noindent
-@c careful of an overfull hbox here!
-the above program would extract @samp{@bullet{}LXIX}, instead of
+The same program would extract @samp{@bullet{}LXIX}, instead of
@samp{@bullet{}29@bullet{}Oak@bullet{}St.}.
If you were expecting the program to print the
-address, you would be surprised. The moral is: choose your data layout and
+address, you would be surprised. The moral is to choose your data layout and
separator characters carefully to prevent such problems.
+(If the data is not in a form that is easy to process, perhaps you
+can massage it first with a separate @command{awk} program.)
-@iftex
-As you know, normally,
-@end iftex
-@ifinfo
-Normally,
-@end ifinfo
-fields are separated by whitespace sequences
-(spaces, tabs and newlines), not by single spaces: two spaces in a row do not
+Fields are normally separated by whitespace sequences
+(spaces, tabs, and newlines), not by single spaces. Two spaces in a row do not
delimit an empty field. The default value of the field separator @code{FS}
-is a string containing a single space, @w{@code{" "}}. If this value were
-interpreted in the usual way, each space character would separate
+is a string containing a single space, @w{@code{" "}}. If @command{awk}
+interpreted this value in the usual way, each space character would separate
fields, so two spaces in a row would make an empty field between them.
The reason this does not happen is that a single space as the value of
-@code{FS} is a special case: it is taken to specify the default manner
+@code{FS} is a special case---it is taken to specify the default manner
of delimiting fields.
If @code{FS} is any other single character, such as @code{","}, then
each occurrence of that character separates two fields. Two consecutive
occurrences delimit an empty field. If the character occurs at the
beginning or the end of the line, that too delimits an empty field. The
-space character is the only single character which does not follow these
+space character is the only single character that does not follow these
rules.
-@node Regexp Field Splitting, Single Character Fields, Basic Field Splitting, Field Separators
+@node Regexp Field Splitting, Single Character Fields, Field Separators, Field Separators
@subsection Using Regular Expressions to Separate Fields
-The previous
-@iftex
-subsection
-@end iftex
-@ifinfo
-node
-@end ifinfo
+The previous @value{SUBSECTION}
discussed the use of single characters or simple strings as the
value of @code{FS}.
More generally, the value of @code{FS} may be a string containing any
@@ -3598,33 +4374,33 @@ FS = ", \t"
@noindent
makes every area of an input line that consists of a comma followed by a
-space and a tab, into a field separator. (@samp{\t}
+space and a tab into a field separator.
+@ifinfo
+(@samp{\t}
is an @dfn{escape sequence} that stands for a tab;
@pxref{Escape Sequences},
for the complete list of similar escape sequences.)
+@end ifinfo
-For a less trivial example of a regular expression, suppose you want
-single spaces to separate fields the way single commas were used above.
-You can set @code{FS} to @w{@code{"[@ ]"}} (left bracket, space, right
+For a less trivial example of a regular expression, try using
+single spaces to separate fields the way single commas are used.
+@code{FS} can be set to @w{@code{"[@ ]"}} (left bracket, space, right
bracket). This regular expression matches a single space and nothing else
(@pxref{Regexp, ,Regular Expressions}).
There is an important difference between the two cases of @samp{FS = @w{" "}}
-(a single space) and @samp{FS = @w{"[ \t\n]+"}} (left bracket, space,
-backslash, ``t'', backslash, ``n'', right bracket, which is a regular
-expression matching one or more spaces, tabs, or newlines). For both
-values of @code{FS}, fields are separated by runs of spaces, tabs
-and/or newlines. However, when the value of @code{FS} is @w{@code{"
-"}}, @code{awk} will first strip leading and trailing whitespace from
-the record, and then decide where the fields are.
-
+(a single space) and @samp{FS = @w{"[ \t\n]+"}}
+(a regular expression matching one or more spaces, tabs, or newlines).
+For both values of @code{FS}, fields are separated by @dfn{runs}
+(multiple adjacent occurrences) of spaces, tabs,
+and/or newlines. However, when the value of @code{FS} is @w{@code{" "}},
+@command{awk} first strips leading and trailing whitespace from
+the record and then decides where the fields are.
For example, the following pipeline prints @samp{b}:
@example
-@group
$ echo ' a b c d ' | awk '@{ print $2 @}'
@print{} b
-@end group
@end example
@noindent
@@ -3632,7 +4408,7 @@ However, this pipeline prints @samp{a} (note the extra spaces around
each letter):
@example
-$ echo ' a b c d ' | awk 'BEGIN @{ FS = "[ \t]+" @}
+$ echo ' a b c d ' | awk 'BEGIN @{ FS = "[ \t\n]+" @}
> @{ print $2 @}'
@print{} a
@end example
@@ -3640,7 +4416,7 @@ $ echo ' a b c d ' | awk 'BEGIN @{ FS = "[ \t]+" @}
@noindent
@cindex null string
@cindex empty string
-In this case, the first field is @dfn{null}, or empty.
+In this case, the first field is @dfn{null} or empty.
The stripping of leading and trailing whitespace also comes into
play whenever @code{$0} is recomputed. For instance, study this pipeline:
@@ -3655,49 +4431,50 @@ $ echo ' a b c d' | awk '@{ print; $2 = $2; print @}'
The first @code{print} statement prints the record as it was read,
with leading whitespace intact. The assignment to @code{$2} rebuilds
@code{$0} by concatenating @code{$1} through @code{$NF} together,
-separated by the value of @code{OFS}. Since the leading whitespace
+separated by the value of @code{OFS}. Because the leading whitespace
was ignored when finding @code{$1}, it is not part of the new @code{$0}.
Finally, the last @code{print} statement prints the new @code{$0}.
@node Single Character Fields, Command Line Field Separator, Regexp Field Splitting, Field Separators
@subsection Making Each Character a Separate Field
-@cindex differences between @code{gawk} and @code{awk}
-@cindex single character fields
+@cindex differences between @command{gawk} and @command{awk}
+@cindex single-character fields
There are times when you may want to examine each character
-of a record separately. In @code{gawk}, this is easy to do, you
-simply assign the null string (@code{""}) to @code{FS}. In this case,
-each individual character in the record will become a separate field.
-Here is an example:
+of a record separately. This can be done in @command{gawk} by
+simply assigning the null string (@code{""}) to @code{FS}. In this case,
+each individual character in the record becomes a separate field.
+For example:
@example
-@group
$ echo a b | gawk 'BEGIN @{ FS = "" @}
-> @{
+> @{
> for (i = 1; i <= NF; i = i + 1)
> print "Field", i, "is", $i
> @}'
@print{} Field 1 is a
@print{} Field 2 is
@print{} Field 3 is b
-@end group
@end example
@cindex dark corner
-Traditionally, the behavior for @code{FS} equal to @code{""} was not defined.
-In this case, Unix @code{awk} would simply treat the entire record
-as only having one field (d.c.). In compatibility mode
-(@pxref{Options, ,Command Line Options}),
-if @code{FS} is the null string, then @code{gawk} will also
-behave this way.
+Traditionally, the behavior of @code{FS} equal to @code{""} was not defined.
+In this case, most versions of Unix @command{awk} simply treat the entire record
+as only having one field.
+@value{DARKCORNER}
+In compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+if @code{FS} is the null string, then @command{gawk} also
+behaves this way.
@node Command Line Field Separator, Field Splitting Summary, Single Character Fields, Field Separators
@subsection Setting @code{FS} from the Command Line
@cindex @code{-F} option
+@cindex command-line option, @code{-F}
@cindex field separator, on command line
@cindex command line, setting @code{FS} on
-@code{FS} can be set on the command line. You use the @samp{-F} option to
+@code{FS} can be set on the command line. Use the @option{-F} option to
do so. For example:
@example
@@ -3705,64 +4482,59 @@ awk -F, '@var{program}' @var{input-files}
@end example
@noindent
-sets @code{FS} to be the @samp{,} character. Notice that the option uses
-a capital @samp{F}. Contrast this with @samp{-f}, which specifies a file
-containing an @code{awk} program. Case is significant in command line options:
-the @samp{-F} and @samp{-f} options have nothing to do with each other.
+sets @code{FS} to the @samp{,} character. Notice that the option uses
+a capital @samp{F} instead of a lowercase @option{-f}, which specifies a file
+containing an @command{awk} program. Case is significant in command-line
+options:
+the @option{-F} and @option{-f} options have nothing to do with each other.
You can use both options at the same time to set the @code{FS} variable
-@emph{and} get an @code{awk} program from a file.
+@emph{and} get an @command{awk} program from a file.
-The value used for the argument to @samp{-F} is processed in exactly the
-same way as assignments to the built-in variable @code{FS}. This means that
-if the field separator contains special characters, they must be escaped
-appropriately. For example, to use a @samp{\} as the field separator, you
-would have to type:
+The value used for the argument to @option{-F} is processed in exactly the
+same way as assignments to the built-in variable @code{FS}.
+Any special characters in the field separator must be escaped
+appropriately. For example, to use a @samp{\} as the field separator
+on the command line, you would have to type:
@example
-# same as FS = "\\"
+# same as FS = "\\"
awk -F\\\\ '@dots{}' files @dots{}
@end example
@noindent
-Since @samp{\} is used for quoting in the shell, @code{awk} will see
-@samp{-F\\}. Then @code{awk} processes the @samp{\\} for escape
+Because @samp{\} is used for quoting in the shell, @command{awk} sees
+@samp{-F\\}. Then @command{awk} processes the @samp{\\} for escape
characters (@pxref{Escape Sequences}), finally yielding
-a single @samp{\} to be used for the field separator.
+a single @samp{\} to use for the field separator.
@cindex historical features
As a special case, in compatibility mode
-(@pxref{Options, ,Command Line Options}), if the
-argument to @samp{-F} is @samp{t}, then @code{FS} is set to the tab
-character. This is because if you type @samp{-F\t} at the shell,
-without any quotes, the @samp{\} gets deleted, so @code{awk} figures that you
-really want your fields to be separated with tabs, and not @samp{t}s.
-Use @samp{-v FS="t"} on the command line if you really do want to separate
-your fields with @samp{t}s
-(@pxref{Options, ,Command Line Options}).
+(@pxref{Options, ,Command-Line Options}),
+if the argument to @option{-F} is @samp{t}, then @code{FS} is set to
+the tab character. If you type @samp{-F\t} at the
+shell, without any quotes, the @samp{\} gets deleted, so @command{awk}
+figures that you really want your fields to be separated with tabs and
+not @samp{t}s. Use @samp{-v FS="t"} or @samp{-F"[t]"} on the command line
+if you really do want to separate your fields with @samp{t}s.
-For example, let's use an @code{awk} program file called @file{baud.awk}
-that contains the pattern @code{/300/}, and the action @samp{print $1}.
-Here is the program:
+For example, let's use an @command{awk} program file called @file{baud.awk}
+that contains the pattern @code{/300/} and the action @samp{print $1}:
@example
/300/ @{ print $1 @}
@end example
-Let's also set @code{FS} to be the @samp{-} character, and run the
+Let's also set @code{FS} to be the @samp{-} character and run the
program on the file @file{BBS-list}. The following command prints a
list of the names of the bulletin boards that operate at 300 baud and
the first three digits of their phone numbers:
@c tweaked to make the tex output look better in @smallbook
@example
-@group
$ awk -F- -f baud.awk BBS-list
@print{} aardvark 555
@print{} alpo
@print{} barfly 555
-@dots{}
-@end group
-@ignore
@print{} bites 555
@print{} camelot 555
@print{} core 555
@@ -3771,13 +4543,11 @@ $ awk -F- -f baud.awk BBS-list
@print{} macfoo 555
@print{} sdace 555
@print{} sabafoo 555
-@end ignore
@end example
@noindent
-Note the second line of output. In the original file
-(@pxref{Sample Data Files, ,Data Files for the Examples}),
-the second line looked like this:
+Note the second line of output. The second line
+in the original file looked like this:
@example
alpo-net 555-3412 2400/1200/300 A
@@ -3788,44 +4558,79 @@ separator, instead of the @samp{-} in the phone number that was
originally intended. This demonstrates why you have to be careful in
choosing your field and record separators.
+Perhaps the most common use of a single character as the field
+separator occurs when processing the Unix system password file.
On many Unix systems, each user has a separate entry in the system password
file, one line per user. The information in these lines is separated
-by colons. The first field is the user's logon name, and the second is
-the user's encrypted password. A password file entry might look like this:
+by colons. The first field is the user's logon name and the second is
+the user's (encrypted or shadow) password. A password file entry might look
+like this:
+@cindex Robbins, Arnold
@example
-arnold:xyzzy:2076:10:Arnold Robbins:/home/arnold:/bin/sh
+arnold:xyzzy:2076:10:Arnold Robbins:/home/arnold:/bin/bash
@end example
-The following program searches the system password file, and prints
+The following program searches the system password file and prints
the entries for users who have no password:
@example
awk -F: '$2 == ""' /etc/passwd
@end example
-@node Field Splitting Summary, , Command Line Field Separator, Field Separators
+@node Field Splitting Summary, , Command Line Field Separator, Field Separators
@subsection Field Splitting Summary
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-According to the POSIX standard, @code{awk} is supposed to behave
-as if each record is split into fields at the time that it is read.
-In particular, this means that you can change the value of @code{FS}
-after a record is read, and the value of the fields (i.e.@: how they were split)
+The following
+table
+summarizes how fields are split, based on the
+value of @code{FS}. (@samp{==} means ``is equal to.'')
+
+@table @code
+@item FS == " "
+Fields are separated by runs of whitespace. Leading and trailing
+whitespace are ignored. This is the default.
+
+@item FS == @var{any other single character}
+Fields are separated by each occurrence of the character. Multiple
+successive occurrences delimit empty fields, as do leading and
+trailing occurrences.
+The character can even be a regexp metacharacter; it does not need
+to be escaped.
+
+@item FS == @var{regexp}
+Fields are separated by occurrences of characters that match @var{regexp}.
+Leading and trailing matches of @var{regexp} delimit empty fields.
+
+@item FS == ""
+Each individual character in the record becomes a separate field.
+(This is a @command{gawk} extension; it is not specified by the
+POSIX standard.)
+@end table
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Changing @code{FS} Does Not Affect the Fields
+
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+According to the POSIX standard, @command{awk} is supposed to behave
+as if each record is split into fields at the time it is read.
+In particular, this means that if you change the value of @code{FS}
+after a record is read, the value of the fields (i.e., how they were split)
should reflect the old value of @code{FS}, not the new one.
@cindex dark corner
-@cindex @code{sed} utility
+@cindex @command{sed} utility
@cindex stream editor
-However, many implementations of @code{awk} do not work this way. Instead,
+However, many implementations of @command{awk} do not work this way. Instead,
they defer splitting the fields until a field is actually
-referenced. The fields will be split
-using the @emph{current} value of @code{FS}! (d.c.)
+referenced. The fields are split
+using the @emph{current} value of @code{FS}!
+@value{DARKCORNER}
This behavior can be difficult
to diagnose. The following example illustrates the difference
between the two methods.
-(The @code{sed}@footnote{The @code{sed} utility is a ``stream editor.''
+(The @command{sed}@footnote{The @command{sed} utility is a ``stream editor.''
Its behavior is also defined by the POSIX standard.}
command prints just the first line of @file{/etc/passwd}.)
@@ -3834,94 +4639,83 @@ sed 1q /etc/passwd | awk '@{ FS = ":" ; print $1 @}'
@end example
@noindent
-will usually print
+which usually prints:
@example
root
@end example
@noindent
-on an incorrect implementation of @code{awk}, while @code{gawk}
-will print something like
+on an incorrect implementation of @command{awk}, while @command{gawk}
+prints something like:
@example
root:nSijPlPhZZwgE:0:0:Root:/:
@end example
-The following table summarizes how fields are split, based on the
-value of @code{FS}. (@samp{==} means ``is equal to.'')
-
-@c @cartouche
-@table @code
-@item FS == " "
-Fields are separated by runs of whitespace. Leading and trailing
-whitespace are ignored. This is the default.
-
-@item FS == @var{any other single character}
-Fields are separated by each occurrence of the character. Multiple
-successive occurrences delimit empty fields, as do leading and
-trailing occurrences.
-The character can even be a regexp metacharacter; it does not need
-to be escaped.
-
-@item FS == @var{regexp}
-Fields are separated by occurrences of characters that match @var{regexp}.
-Leading and trailing matches of @var{regexp} delimit empty fields.
-
-@item FS == ""
-Each individual character in the record becomes a separate field.
-@end table
-@c @end cartouche
-
@node Constant Size, Multiple Line, Field Separators, Reading Files
-@section Reading Fixed-width Data
+@section Reading Fixed-Width Data
+
+@ifnotinfo
+@strong{Note:} This @value{SECTION} discusses an advanced
+feature of @command{gawk}. If you are a novice @command{awk} user,
+you might want to skip it on the first reading.
+@end ifnotinfo
-(This section discusses an advanced, experimental feature. If you are
-a novice @code{awk} user, you may wish to skip it on the first reading.)
+@ifinfo
+(This @value{SECTION} discusses an advanced feature of @command{awk}.
+If you are a novice @command{awk} user, you might want to skip it on
+the first reading.)
+@end ifinfo
-@code{gawk} version 2.13 introduced a new facility for dealing with
-fixed-width fields with no distinctive field separator. Data of this
-nature arises, for example, in the input for old FORTRAN programs where
-numbers are run together; or in the output of programs that did not
+@command{gawk} @value{PVERSION} 2.13 introduced a facility for dealing with
+fixed-width fields with no distinctive field separator. For example,
+data of this nature arises in the input for old Fortran programs where
+numbers are run together, or in the output of programs that did not
anticipate the use of their output as input for other programs.
An example of the latter is a table where all the columns are lined up by
the use of a variable number of spaces and @emph{empty fields are just
-spaces}. Clearly, @code{awk}'s normal field splitting based on @code{FS}
-will not work well in this case. Although a portable @code{awk} program
+spaces}. Clearly, @command{awk}'s normal field splitting based on @code{FS}
+does not work well in this case. Although a portable @command{awk} program
can use a series of @code{substr} calls on @code{$0}
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}),
+(@pxref{String Functions, ,String Manipulation Functions}),
this is awkward and inefficient for a large number of fields.
+@cindex fatal errors
+@cindex @command{w} utility
The splitting of an input record into fixed-width fields is specified by
assigning a string containing space-separated numbers to the built-in
-variable @code{FIELDWIDTHS}. Each number specifies the width of the field
+variable @code{FIELDWIDTHS}. Each number specifies the width of the field,
@emph{including} columns between fields. If you want to ignore the columns
between fields, you can specify the width as a separate field that is
subsequently ignored.
-
-The following data is the output of the Unix @code{w} utility. It is useful
-to illustrate the use of @code{FIELDWIDTHS}.
+It is a fatal error to supply a field width that is not a positive number.
+The following data is the output of the Unix @command{w} utility. It is useful
+to illustrate the use of @code{FIELDWIDTHS}:
@example
@group
10:06pm up 21 days, 14:04, 23 users
User tty login@ idle JCPU PCPU what
-hzuo ttyV0 8:58pm 9 5 vi p24.tex
-hzang ttyV3 6:37pm 50 -csh
-eklye ttyV5 9:53pm 7 1 em thes.tex
-dportein ttyV6 8:17pm 1:47 -csh
-gierd ttyD3 10:00pm 1 elm
-dave ttyD4 9:47pm 4 4 w
-brent ttyp0 26Jun91 4:46 26:46 4:41 bash
+hzuo ttyV0 8:58pm 9 5 vi p24.tex
+hzang ttyV3 6:37pm 50 -csh
+eklye ttyV5 9:53pm 7 1 em thes.tex
+dportein ttyV6 8:17pm 1:47 -csh
+gierd ttyD3 10:00pm 1 elm
+dave ttyD4 9:47pm 4 4 w
+brent ttyp0 26Jun91 4:46 26:46 4:41 bash
dave ttyq4 26Jun9115days 46 46 wnewmail
-@end group
+@end group
@end example
The following program takes the above input, converts the idle time to
-number of seconds and prints out the first two fields and the calculated
-idle time. (This program uses a number of @code{awk} features that
-haven't been introduced yet.)
+number of seconds, and prints out the first two fields and the calculated
+idle time.
+
+@strong{Note:}
+This program uses a number of @command{awk} features that
+haven't been introduced yet.
@example
BEGIN @{ FIELDWIDTHS = "9 6 10 6 7 7 35" @}
@@ -3930,22 +4724,18 @@ NR > 2 @{
sub(/^ */, "", idle) # strip leading spaces
if (idle == "")
idle = 0
-@group
if (idle ~ /:/) @{
split(idle, t, ":")
idle = t[1] * 60 + t[2]
@}
-@end group
-@group
if (idle ~ /days/)
idle *= 24 * 60 * 60
-
+
print $1, $2, idle
@}
-@end group
@end example
-Here is the result of running the program on the data:
+Running the program on the data produces the following results:
@example
hzuo ttyV0 0
@@ -3959,26 +4749,40 @@ dave ttyq4 1296000
@end example
Another (possibly more practical) example of fixed-width input data
-would be the input from a deck of balloting cards. In some parts of
+is the input from a deck of balloting cards. In some parts of
the United States, voters mark their choices by punching holes in computer
cards. These cards are then processed to count the votes for any particular
-candidate or on any particular issue. Since a voter may choose not to
-vote on some issue, any column on the card may be empty. An @code{awk}
+candidate or on any particular issue. Because a voter may choose not to
+vote on some issue, any column on the card may be empty. An @command{awk}
program for processing such data could use the @code{FIELDWIDTHS} feature
-to simplify reading the data. (Of course, getting @code{gawk} to run on
+to simplify reading the data. (Of course, getting @command{gawk} to run on
a system with card readers is another story!)
@ignore
Exercise: Write a ballot card reading program
@end ignore
-Assigning a value to @code{FS} causes @code{gawk} to return to using
+Assigning a value to @code{FS} causes @command{gawk} to return to using
@code{FS} for field splitting. Use @samp{FS = FS} to make this happen,
without having to know the current value of @code{FS}.
+In order to tell which kind of field splitting is in effect,
+use @code{PROCINFO["FS"]}
+(@pxref{Auto-set, ,Built-in Variables That Convey Information}).
+The value is @code{"FS"} if regular field splitting is being used,
+or it is @code{"FIELDWIDTHS"} if fixed-width field splitting is being used:
-This feature is still experimental, and may evolve over time.
-Note that in particular, @code{gawk} does not attempt to verify
-the sanity of the values used in the value of @code{FIELDWIDTHS}.
+@example
+if (PROCINFO["FS"] == "FS")
+ @var{regular field splitting} @dots{}
+else
+ @var{fixed-width field splitting} @dots{}
+@end example
+
+This information is useful when writing a function
+that needs to temporarily change @code{FS} or @code{FIELDWIDTHS},
+read some records, and then restore the original settings
+(@pxref{Passwd Functions, ,Reading the User Database},
+for an example of such a function).
@node Multiple Line, Getline, Constant Size, Reading Files
@section Multiple-Line Records
@@ -3987,17 +4791,13 @@ the sanity of the values used in the value of @code{FIELDWIDTHS}.
@cindex input, multiple line records
@cindex reading files, multiple line records
@cindex records, multiple line
-In some data bases, a single line cannot conveniently hold all the
-information in one entry. In such cases, you can use multi-line
-records.
-
-The first step in doing this is to choose your data format: when records
-are not defined as single lines, how do you want to define them?
-What should separate records?
+In some databases, a single line cannot conveniently hold all the
+information in one entry. In such cases, you can use multiline
+records. The first step in doing this is to choose your data format.
One technique is to use an unusual character or string to separate
records. For example, you could use the formfeed character (written
-@samp{\f} in @code{awk}, as in C) to separate them, making each record
+@samp{\f} in @command{awk}, as in C) to separate them, making each record
a page of the file. To do this, just set the variable @code{RS} to
@code{"\f"} (a string containing the formfeed character). Any
other character could equally well be used, as long as it won't be part
@@ -4005,57 +4805,57 @@ of the data in a record.
Another technique is to have blank lines separate records. By a special
dispensation, an empty string as the value of @code{RS} indicates that
-records are separated by one or more blank lines. If you set @code{RS}
-to the empty string, a record always ends at the first blank line
-encountered. And the next record doesn't start until the first non-blank
-line that follows---no matter how many blank lines appear in a row, they
-are considered one record-separator.
+records are separated by one or more blank lines. When @code{RS} is set
+to the empty string, each record always ends at the first blank line
+encountered. The next record doesn't start until the first non-blank
+line that follows. No matter how many blank lines appear in a row, they
+all act as one record separator.
+(Blank lines must be completely empty; lines that contain only
+whitespace do not count.)
@cindex leftmost longest match
@cindex matching, leftmost longest
You can achieve the same effect as @samp{RS = ""} by assigning the
string @code{"\n\n+"} to @code{RS}. This regexp matches the newline
-at the end of the record, and one or more blank lines after the record.
+at the end of the record and one or more blank lines after the record.
In addition, a regular expression always matches the longest possible
sequence when there is a choice
(@pxref{Leftmost Longest, ,How Much Text Matches?}).
So the next record doesn't start until
the first non-blank line that follows---no matter how many blank lines
-appear in a row, they are considered one record-separator.
+appear in a row, they are considered one record separator.
@cindex dark corner
There is an important difference between @samp{RS = ""} and
@samp{RS = "\n\n+"}. In the first case, leading newlines in the input
-data file are ignored, and if a file ends without extra blank lines
+@value{DF} are ignored, and if a file ends without extra blank lines
after the last record, the final newline is removed from the record.
-In the second case, this special processing is not done (d.c.).
+In the second case, this special processing is not done.
+@value{DARKCORNER}
Now that the input is separated into records, the second step is to
separate the fields in the record. One way to do this is to divide each
of the lines into fields in the normal manner. This happens by default
-as the result of a special feature: when @code{RS} is set to the empty
+as the result of a special feature. When @code{RS} is set to the empty
string, the newline character @emph{always} acts as a field separator.
This is in addition to whatever field separations result from @code{FS}.
The original motivation for this special exception was probably to provide
-useful behavior in the default case (i.e.@: @code{FS} is equal
+useful behavior in the default case (i.e., @code{FS} is equal
to @w{@code{" "}}). This feature can be a problem if you really don't
-want the newline character to separate fields, since there is no way to
+want the newline character to separate fields, because there is no way to
prevent it. However, you can work around this by using the @code{split}
function to break up the record manually
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
Another way to separate fields is to
put each field on a separate line: to do this, just set the
variable @code{FS} to the string @code{"\n"}. (This simple regular
expression matches a single newline.)
-
-A practical example of a data file organized this way might be a mailing
-list, where each entry is separated by blank lines. If we have a mailing
+A practical example of a @value{DF} organized this way might be a mailing
+list, where each entry is separated by blank lines. Consider a mailing
list in a file named @file{addresses}, that looks like this:
-@c NEEDED
-@page
@example
Jane Doe
123 Main Street
@@ -4068,10 +4868,9 @@ Smallville, MW 98765-4321
@end example
@noindent
-A simple program to process this file would look like this:
+A simple program to process this file is as follows:
@example
-@group
# addrs.awk --- simple mailing list program
# Records are separated by blank lines.
@@ -4084,39 +4883,41 @@ BEGIN @{ RS = "" ; FS = "\n" @}
print "City and State are:", $3
print ""
@}
-@end group
@end example
Running the program produces the following output:
@example
-@group
$ awk -f addrs.awk addresses
@print{} Name is: Jane Doe
@print{} Address is: 123 Main Street
@print{} City and State are: Anywhere, SE 12345-6789
@print{}
-@end group
-@group
@print{} Name is: John Smith
@print{} Address is: 456 Tree-lined Avenue
@print{} City and State are: Smallville, MW 98765-4321
@print{}
@dots{}
-@end group
@end example
@xref{Labels Program, ,Printing Mailing Labels}, for a more realistic
program that deals with address lists.
+The following
+table
+summarizes how records are split, based on the
+value of
+@ifinfo
+@code{RS}.
+(@samp{==} means ``is equal to.'')
+@end ifinfo
+@ifnotinfo
+@code{RS}:
+@end ifnotinfo
-The following table summarizes how records are split, based on the
-value of @code{RS}. (@samp{==} means ``is equal to.'')
-
-@c @cartouche
@table @code
@item RS == "\n"
Records are separated by the newline character (@samp{\n}). In effect,
-every line in the data file is a separate record, including blank lines.
+every line in the @value{DF} is a separate record, including blank lines.
This is the default.
@item RS == @var{any single character}
@@ -4131,78 +4932,78 @@ always serves as a field separator, in addition to whatever value
@item RS == @var{regexp}
Records are separated by occurrences of characters that match @var{regexp}.
Leading and trailing matches of @var{regexp} delimit empty records.
+(This is a @command{gawk} extension, it is not specified by the
+POSIX standard.)
@end table
-@c @end cartouche
-@vindex RT
-In all cases, @code{gawk} sets @code{RT} to the input text that matched the
+@cindex @code{RT} variable
+In all cases, @command{gawk} sets @code{RT} to the input text that matched the
value specified by @code{RS}.
@node Getline, , Multiple Line, Reading Files
@section Explicit Input with @code{getline}
-@findex getline
+@cindex @code{getline} built-in function
@cindex input, explicit
@cindex explicit input
@cindex input, @code{getline} command
@cindex reading files, @code{getline} command
-So far we have been getting our input data from @code{awk}'s main
+So far we have been getting our input data from @command{awk}'s main
input stream---either the standard input (usually your terminal, sometimes
the output from another program) or from the
-files specified on the command line. The @code{awk} language has a
+files specified on the command line. The @command{awk} language has a
special built-in command called @code{getline} that
can be used to read input under your explicit control.
-@menu
-* Getline Intro:: Introduction to the @code{getline} function.
-* Plain Getline:: Using @code{getline} with no arguments.
-* Getline/Variable:: Using @code{getline} into a variable.
-* Getline/File:: Using @code{getline} from a file.
-* Getline/Variable/File:: Using @code{getline} into a variable from a
- file.
-* Getline/Pipe:: Using @code{getline} from a pipe.
-* Getline/Variable/Pipe:: Using @code{getline} into a variable from a
- pipe.
-* Getline Summary:: Summary Of @code{getline} Variants.
-@end menu
-
-@node Getline Intro, Plain Getline, Getline, Getline
-@subsection Introduction to @code{getline}
-
-This command is used in several different ways, and should @emph{not} be
-used by beginners. It is covered here because this is the chapter on input.
+The @code{getline} command is used in several different ways and should
+@emph{not} be used by beginners.
The examples that follow the explanation of the @code{getline} command
include material that has not been covered yet. Therefore, come back
and study the @code{getline} command @emph{after} you have reviewed the
-rest of this @value{DOCUMENT} and have a good knowledge of how @code{awk} works.
+rest of this @value{DOCUMENT} and have a good knowledge of how @command{awk} works.
-@vindex ERRNO
-@cindex differences between @code{gawk} and @code{awk}
+@cindex @code{ERRNO} variable
+@cindex differences between @command{gawk} and @command{awk}
@cindex @code{getline}, return values
-@code{getline} returns one if it finds a record, and zero if the end of the
-file is encountered. If there is some error in getting a record, such
-as a file that cannot be opened, then @code{getline} returns @minus{}1.
-In this case, @code{gawk} sets the variable @code{ERRNO} to a string
-describing the error that occurred.
+The @code{getline} command returns one if it finds a record and zero if
+the end of the file is encountered. If there is some error in getting
+a record, such as a file that cannot be opened, then @code{getline}
+returns @minus{}1. In this case, @command{gawk} sets the variable
+@code{ERRNO} to a string describing the error that occurred.
In the following examples, @var{command} stands for a string value that
represents a shell command.
-@node Plain Getline, Getline/Variable, Getline Intro, Getline
+@menu
+* Plain Getline:: Using @code{getline} with no arguments.
+* Getline/Variable:: Using @code{getline} into a variable.
+* Getline/File:: Using @code{getline} from a file.
+* Getline/Variable/File:: Using @code{getline} into a variable from a
+ file.
+* Getline/Pipe:: Using @code{getline} from a pipe.
+* Getline/Variable/Pipe:: Using @code{getline} into a variable from a
+ pipe.
+* Getline/Coprocess:: Using @code{getline} from a coprocess.
+* Getline/Variable/Coprocess:: Using @code{getline} into a variable from a
+ coprocess.
+* Getline Notes:: Important things to know about @code{getline}.
+* Getline Summary:: Summary of @code{getline} Variants.
+@end menu
+
+@node Plain Getline, Getline/Variable, Getline, Getline
@subsection Using @code{getline} with No Arguments
The @code{getline} command can be used without arguments to read input
from the current input file. All it does in this case is read the next
input record and split it up into fields. This is useful if you've
-finished processing the current record, but you want to do some special
+finished processing the current record, but want to do some special
processing @emph{right now} on the next record. Here's an
example:
@example
-@group
-awk '@{
+@{
if ((t = index($0, "/*")) != 0) @{
- # value will be "" if t is 1
+ # value of `tmp' will be "" if t is 1
tmp = substr($0, 1, t - 1)
u = index(substr($0, t + 2), "*/")
while (u == 0) @{
@@ -4215,58 +5016,63 @@ awk '@{
t = -1
u = index($0, "*/")
@}
-@end group
-@group
# substr expression will be "" if */
# occurred at end of line
- $0 = tmp substr($0, t + u + 3)
+ $0 = tmp substr($0, u + 2)
@}
print $0
-@}'
-@end group
+@}
@end example
-This @code{awk} program deletes all C-style comments, @samp{/* @dots{}
-*/}, from the input. By replacing the @samp{print $0} with other
+This @command{awk} program deletes all C-style comments (@samp{/* @dots{}
+*/}) from the input. By replacing the @samp{print $0} with other
statements, you could perform more complicated processing on the
-decommented input, like searching for matches of a regular
-expression. This program has a subtle problem---it does not work if one
-comment ends and another begins on the same line.
+decommented input, such as searching for matches of a regular
+expression. (This program has a subtle problem---it does not work if one
+comment ends and another begins on the same line.)
@ignore
Exercise,
write a program that does handle multiple comments on the line.
@end ignore
-This form of the @code{getline} command sets @code{NF} (the number of
-fields; @pxref{Fields, ,Examining Fields}), @code{NR} (the number of
-records read so far; @pxref{Records, ,How Input is Split into Records}),
-@code{FNR} (the number of records read from this input file), and the
-value of @code{$0}.
+This form of the @code{getline} command sets @code{NF},
+@code{NR}, @code{FNR}, and the value of @code{$0}.
-@cindex dark corner
-@strong{Note:} the new value of @code{$0} is used in testing
+@strong{Note:} The new value of @code{$0} is used to test
the patterns of any subsequent rules. The original value
-of @code{$0} that triggered the rule which executed @code{getline}
-is lost (d.c.).
+of @code{$0} that triggered the rule that executed @code{getline}
+is lost.
By contrast, the @code{next} statement reads a new record
but immediately begins processing it normally, starting with the first
rule in the program. @xref{Next Statement, ,The @code{next} Statement}.
@node Getline/Variable, Getline/File, Plain Getline, Getline
-@subsection Using @code{getline} Into a Variable
+@subsection Using @code{getline} into a Variable
You can use @samp{getline @var{var}} to read the next record from
-@code{awk}'s input into the variable @var{var}. No other processing is
+@command{awk}'s input into the variable @var{var}. No other processing is
done.
-
-For example, suppose the next line is a comment, or a special string,
-and you want to read it, without triggering
+For example, suppose the next line is a comment or a special string,
+and you want to read it without triggering
any rules. This form of @code{getline} allows you to read that line
and store it in a variable so that the main
-read-a-line-and-check-each-rule loop of @code{awk} never sees it.
+read-a-line-and-check-each-rule loop of @command{awk} never sees it.
+The following example swaps every two lines of input.
+The program is as follows:
+
+@example
+@{
+ if ((getline tmp) > 0) @{
+ print tmp
+ print $0
+ @} else
+ print $0
+@}
+@end example
-The following example swaps every two lines of input. For example, given:
+@noindent
+It takes the following list:
@example
wan
@@ -4276,7 +5082,7 @@ phore
@end example
@noindent
-it outputs:
+and produces these results:
@example
tew
@@ -4285,21 +5091,6 @@ phore
free
@end example
-@noindent
-Here's the program:
-
-@example
-@group
-awk '@{
- if ((getline tmp) > 0) @{
- print tmp
- print $0
- @} else
- print $0
-@}'
-@end group
-@end example
-
The @code{getline} command used in this way sets only the variables
@code{NR} and @code{FNR} (and of course, @var{var}). The record is not
split into fields, so the values of the fields (including @code{$0}) and
@@ -4310,80 +5101,66 @@ the value of @code{NF} do not change.
@cindex input redirection
@cindex redirection of input
-Use @samp{getline < @var{file}} to read
-the next record from the file
-@var{file}. Here @var{file} is a string-valued expression that
-specifies the file name. @samp{< @var{file}} is called a @dfn{redirection}
-since it directs input to come from a different place.
-
+@cindex @code{<} I/O operator
+Use @samp{getline < @var{file}} to read the next record from @var{file}.
+Here @var{file} is a string-valued expression that
+specifies the @value{FN}. @samp{< @var{file}} is called a @dfn{redirection}
+because it directs input to come from a different place.
For example, the following
program reads its input record from the file @file{secondary.input} when it
encounters a first field with a value equal to 10 in the current input
-file.
+file:
@example
-@group
-awk '@{
+@{
if ($1 == 10) @{
getline < "secondary.input"
print
@} else
print
-@}'
-@end group
+@}
@end example
-Since the main input stream is not used, the values of @code{NR} and
-@code{FNR} are not changed. But the record read is split into fields in
-the normal manner, so the values of @code{$0} and other fields are
-changed. So is the value of @code{NF}.
+Because the main input stream is not used, the values of @code{NR} and
+@code{FNR} are not changed. However, the record it reads is split into fields in
+the normal manner, so the values of @code{$0} and the other fields are
+changed, resulting in a new value of @code{NF}.
@c Thanks to Paul Eggert for initial wording here
According to POSIX, @samp{getline < @var{expression}} is ambiguous if
@var{expression} contains unparenthesized operators other than
@samp{$}; for example, @samp{getline < dir "/" file} is ambiguous
-because the concatenation operator is not parenthesized, and you should
+because the concatenation operator is not parenthesized. You should
write it as @samp{getline < (dir "/" file)} if you want your program
-to be portable to other @code{awk} implementations.
+to be portable to other @command{awk} implementations.
+(It happens that @command{gawk} gets it right, but you should not
+rely on this. Parentheses make it easier to read.)
@node Getline/Variable/File, Getline/Pipe, Getline/File, Getline
-@subsection Using @code{getline} Into a Variable from a File
+@subsection Using @code{getline} into a Variable from a File
Use @samp{getline @var{var} < @var{file}} to read input
-the file
-@var{file} and put it in the variable @var{var}. As above, @var{file}
+from the file
+@var{file}, and put it in the variable @var{var}. As above, @var{file}
is a string-valued expression that specifies the file from which to read.
In this version of @code{getline}, none of the built-in variables are
-changed, and the record is not split into fields. The only variable
+changed and the record is not split into fields. The only variable
changed is @var{var}.
-
-@ifinfo
-@c Thanks to Paul Eggert for initial wording here
-According to POSIX, @samp{getline @var{var} < @var{expression}} is ambiguous if
-@var{expression} contains unparenthesized operators other than
-@samp{$}; for example, @samp{getline < dir "/" file} is ambiguous
-because the concatenation operator is not parenthesized, and you should
-write it as @samp{getline < (dir "/" file)} if you want your program
-to be portable to other @code{awk} implementations.
-@end ifinfo
-
For example, the following program copies all the input files to the
output, except for records that say @w{@samp{@@include @var{filename}}}.
Such a record is replaced by the contents of the file
-@var{filename}.
+@var{filename}:
@example
-@group
-awk '@{
+@{
if (NF == 2 && $1 == "@@include") @{
while ((getline line < $2) > 0)
print line
close($2)
@} else
print
-@}'
-@end group
+@}
@end example
Note here how the name of the extra input file is not built into
@@ -4393,11 +5170,11 @@ the @samp{@@include} line.
The @code{close} function is called to ensure that if two identical
@samp{@@include} lines appear in the input, the entire specified file is
included twice.
-@xref{Close Files And Pipes, ,Closing Input and Output Files and Pipes}.
+@xref{Close Files And Pipes, ,Closing Input and Output Redirections}.
One deficiency of this program is that it does not process nested
@samp{@@include} statements
-(@samp{@@include} statements in included files)
+(i.e., @samp{@@include} statements in included files)
the way a true macro preprocessor would.
@xref{Igawk Program, ,An Easy Way to Use Library Functions}, for a program
that does handle nested @samp{@@include} statements.
@@ -4405,21 +5182,20 @@ that does handle nested @samp{@@include} statements.
@node Getline/Pipe, Getline/Variable/Pipe, Getline/Variable/File, Getline
@subsection Using @code{getline} from a Pipe
+@cindex @code{|} I/O operator
@cindex input pipeline
@cindex pipeline, input
-You can pipe the output of a command into @code{getline}, using
+The output of a command can also be piped into @code{getline}, using
@samp{@var{command} | getline}. In
this case, the string @var{command} is run as a shell command and its output
-is piped into @code{awk} to be used as input. This form of @code{getline}
+is piped into @command{awk} to be used as input. This form of @code{getline}
reads one record at a time from the pipe.
-
For example, the following program copies its input to its output, except for
lines that begin with @samp{@@execute}, which are replaced by the output
produced by running the rest of the line as a shell command:
@example
-@group
-awk '@{
+@{
if ($1 == "@@execute") @{
tmp = substr($0, 10)
while ((tmp | getline) > 0)
@@ -4427,35 +5203,35 @@ awk '@{
close(tmp)
@} else
print
-@}'
-@end group
+@}
@end example
@noindent
The @code{close} function is called to ensure that if two identical
@samp{@@execute} lines appear in the input, the command is run for
each one.
-@xref{Close Files And Pipes, ,Closing Input and Output Files and Pipes}.
+@ifnottex
+@xref{Close Files And Pipes, ,Closing Input and Output Redirections}.
+@end ifnottex
@c Exercise!!
@c This example is unrealistic, since you could just use system
-
Given the input:
@example
-@group
foo
bar
baz
@@execute who
bletch
-@end group
@end example
@noindent
the program might produce:
+@cindex Robbins, Bill
+@cindex Robbins, Miriam
+@cindex Robbins, Arnold
@example
-@group
foo
bar
baz
@@ -4463,13 +5239,12 @@ arnold ttyv0 Jul 13 14:22
miriam ttyp0 Jul 13 14:23 (murphy:0)
bill ttyp1 Jul 13 14:23 (murphy:0)
bletch
-@end group
@end example
@noindent
-Notice that this program ran the command @code{who} and printed the result.
+Notice that this program ran the command @command{who} and printed the result.
(If you try this program yourself, you will of course get different results,
-showing you who is logged in on your system.)
+depending upon who is logged in on your system.)
This variation of @code{getline} splits the record into fields, sets the
value of @code{NF} and recomputes the value of @code{$0}. The values of
@@ -4478,112 +5253,190 @@ value of @code{NF} and recomputes the value of @code{$0}. The values of
@c Thanks to Paul Eggert for initial wording here
According to POSIX, @samp{@var{expression} | getline} is ambiguous if
@var{expression} contains unparenthesized operators other than
-@samp{$}; for example, @samp{"echo " "date" | getline} is ambiguous
-because the concatenation operator is not parenthesized, and you should
-write it as @samp{("echo " "date") | getline} if you want your program
-to be portable to other @code{awk} implementations.
-(It happens that @code{gawk} gets it right, but you should not
-rely on this. Parentheses make it easier to read, anyway.)
+@samp{$}---for example, @samp{@w{"echo "} "date" | getline} is ambiguous
+because the concatenation operator is not parenthesized. You should
+write it as @samp{(@w{"echo "} "date") | getline} if you want your program
+to be portable to other @command{awk} implementations.
+@ifinfo
+(It happens that @command{gawk} gets it right, but you should not
+rely on this. Parentheses make it easier to read, anyway.)
+@end ifinfo
-@node Getline/Variable/Pipe, Getline Summary, Getline/Pipe, Getline
-@subsection Using @code{getline} Into a Variable from a Pipe
+@node Getline/Variable/Pipe, Getline/Coprocess, Getline/Pipe, Getline
+@subsection Using @code{getline} into a Variable from a Pipe
When you use @samp{@var{command} | getline @var{var}}, the
-output of the command @var{command} is sent through a pipe to
+output of @var{command} is sent through a pipe to
@code{getline} and into the variable @var{var}. For example, the
following program reads the current date and time into the variable
-@code{current_time}, using the @code{date} utility, and then
-prints it.
+@code{current_time}, using the @command{date} utility, and then
+prints it:
@example
-@group
-awk 'BEGIN @{
+BEGIN @{
"date" | getline current_time
close("date")
print "Report printed on " current_time
-@}'
-@end group
+@}
@end example
In this version of @code{getline}, none of the built-in variables are
-changed, and the record is not split into fields.
+changed and the record is not split into fields.
@ifinfo
@c Thanks to Paul Eggert for initial wording here
According to POSIX, @samp{@var{expression} | getline @var{var}} is ambiguous if
@var{expression} contains unparenthesized operators other than
-@samp{$}; for example, @samp{"echo " "date" | getline @var{var}} is ambiguous
-because the concatenation operator is not parenthesized, and you should
-write it as @samp{("echo " "date") | getline @var{var}} if you want your
-program to be portable to other @code{awk} implementations.
-(It happens that @code{gawk} gets it right, but you should not
-rely on this. Parentheses make it easier to read, anyway.)
+@samp{$}; for example, @samp{@w{"echo "} "date" | getline @var{var}} is ambiguous
+because the concatenation operator is not parenthesized. You should
+write it as @samp{(@w{"echo "} "date") | getline @var{var}} if you want your
+program to be portable to other @command{awk} implementations.
+(It happens that @command{gawk} gets it right, but you should not
+rely on this. Parentheses make it easier to read, anyway.)
@end ifinfo
-@node Getline Summary, , Getline/Variable/Pipe, Getline
-@subsection Summary of @code{getline} Variants
+@node Getline/Coprocess, Getline/Variable/Coprocess, Getline/Variable/Pipe, Getline
+@subsection Using @code{getline} from a Coprocess
+@cindex coprocess
+@cindex @code{|&} I/O operator
+@cindex differences between @command{gawk} and @command{awk}
+
+Input into @code{getline} from a pipe is a one-way operation.
+The command that is started with @samp{@var{command} | getline} only
+sends data @emph{to} your @command{awk} program.
-With all the forms of @code{getline}, even though @code{$0} and @code{NF},
-may be updated, the record will not be tested against all the patterns
-in the @code{awk} program, in the way that would happen if the record
-were read normally by the main processing loop of @code{awk}. However
-the new record is tested against any subsequent rules.
+On occasion, you might want to send data to another program
+for processing and then read the results back.
+@command{gawk} allows you start a @dfn{coprocess}, with which two-way
+communications are possible. This is done with the @samp{|&}
+operator.
+Typically, you write data to the coprocess first, and then
+read results back, as shown in the following:
-@cindex differences between @code{gawk} and @code{awk}
+@example
+print "@var{some query}" |& "db_server"
+"db_server" |& getline
+@end example
+
+@noindent
+which sends a query to @command{db_server} and then reads the results.
+
+The values of @code{NR} and
+@code{FNR} are not changed,
+because the main input stream is not used.
+However, the record is split into fields in
+the normal manner, thus changing the values of @code{$0}, the other fields,
+and of @code{NF}.
+
+Coprocesses are an advanced feature. They are discussed here only because
+this is the @value{SECTION} on @code{getline}.
+@xref{Two-way I/O, ,Two-Way Communications with Another Process},
+where coprocesses are discussed in more detail.
+
+@node Getline/Variable/Coprocess, Getline Notes, Getline/Coprocess, Getline
+@subsection Using @code{getline} into a Variable from a Coprocess
+
+When you use @samp{@var{command} |& getline @var{var}}, the output from
+the coprocess @var{command} is sent through a two-way pipe to @code{getline}
+and into the variable @var{var}.
+
+In this version of @code{getline}, none of the built-in variables are
+changed and the record is not split into fields. The only variable
+changed is @var{var}.
+
+@ifinfo
+Coprocesses are an advanced feature. They are discussed here only because
+this is the @value{SECTION} on @code{getline}.
+@xref{Two-way I/O, ,Two-Way Communications with Another Process},
+where coprocesses are discussed in more detail.
+@end ifinfo
+
+@node Getline Notes, Getline Summary, Getline/Variable/Coprocess, Getline
+@subsection Points About @code{getline} to Remember
+Here are some miscellaneous points about @code{getline} that
+you should bear in mind:
+
+@itemize @bullet
+@item
+When @code{getline} changes the value of @code{$0} and @code{NF},
+@command{awk} does @emph{not} automatically jump to the start of the
+program and start testing the new record against every pattern.
+However, the new record is tested against any subsequent rules.
+
+@cindex differences between @command{gawk} and @command{awk}
@cindex limitations
@cindex implementation limits
-Many @code{awk} implementations limit the number of pipelines an @code{awk}
-program may have open to just one! In @code{gawk}, there is no such limit.
-You can open as many pipelines as the underlying operating system will
-permit.
+@item
+Many @command{awk} implementations limit the number of pipelines that an @command{awk}
+program may have open to just one. In @command{gawk}, there is no such limit.
+You can open as many pipelines (and coprocesses) as the underlying operating
+system permits.
-@vindex FILENAME
+@cindex side effects
+@cindex @code{FILENAME} variable
@cindex dark corner
@cindex @code{getline}, setting @code{FILENAME}
@cindex @code{FILENAME}, being set by @code{getline}
-An interesting side-effect occurs if you use @code{getline} (without a
-redirection) inside a @code{BEGIN} rule. Since an unredirected @code{getline}
-reads from the command line data files, the first @code{getline} command
-causes @code{awk} to set the value of @code{FILENAME}. Normally,
-@code{FILENAME} does not have a value inside @code{BEGIN} rules, since you
-have not yet started to process the command line data files (d.c.).
+@item
+An interesting side effect occurs if you use @code{getline} without a
+redirection inside a @code{BEGIN} rule. Because an unredirected @code{getline}
+reads from the command-line @value{DF}s, the first @code{getline} command
+causes @command{awk} to set the value of @code{FILENAME}. Normally,
+@code{FILENAME} does not have a value inside @code{BEGIN} rules, because you
+have not yet started to process the command-line @value{DF}s.
+@value{DARKCORNER}
(@xref{BEGIN/END, , The @code{BEGIN} and @code{END} Special Patterns},
-also @pxref{Auto-set, , Built-in Variables that Convey Information}.)
+also @pxref{Auto-set, ,Built-in Variables That Convey Information}.)
+@end itemize
-The following table summarizes the six variants of @code{getline},
+@node Getline Summary, , Getline Notes, Getline
+@subsection Summary of @code{getline} Variants
+
+The following table summarizes the eight variants of @code{getline},
listing which built-in variables are set by each one.
-@c @cartouche
-@table @code
-@item getline
-sets @code{$0}, @code{NF}, @code{FNR}, and @code{NR}.
+@multitable {@var{command} @code{|& getline} @var{var}} {1234567890123456789012345678901234567890}
+@item @code{getline} @tab Sets @code{$0}, @code{NF}, @code{FNR} and @code{NR}
-@item getline @var{var}
-sets @var{var}, @code{FNR}, and @code{NR}.
+@item @code{getline} @var{var} @tab Sets @var{var}, @code{FNR} and @code{NR}
-@item getline < @var{file}
-sets @code{$0}, and @code{NF}.
+@item @code{getline <} @var{file} @tab Sets @code{$0} and @code{NF}
-@item getline @var{var} < @var{file}
-sets @var{var}.
+@item @code{getline @var{var} < @var{file}} @tab Sets @var{var}
-@item @var{command} | getline
-sets @code{$0}, and @code{NF}.
+@item @var{command} @code{| getline} @tab Sets @code{$0} and @code{NF}
-@item @var{command} | getline @var{var}
-sets @var{var}.
-@end table
-@c @end cartouche
+@item @var{command} @code{| getline} @var{var} @tab Sets @var{var}
+
+@item @var{command} @code{|& getline} @tab Sets @code{$0} and @code{NF}
+(this is a @command{gawk} extension)
+
+@item @var{command} @code{|& getline} @var{var} @tab Sets @var{var}
+(this is a @command{gawk} extension)
+@end multitable
@node Printing, Expressions, Reading Files, Top
@chapter Printing Output
@cindex printing
@cindex output
-One of the most common actions is to @dfn{print}, or output,
-some or all of the input. You use the @code{print} statement
-for simple output. You use the @code{printf} statement
-for fancier formatting. Both are described in this chapter.
+One of the most common programming actions is to @dfn{print} or output,
+some or all of the input. Use the @code{print} statement
+for simple output, and the @code{printf} statement
+for fancier formatting.
+The @code{print} statement is not limited when
+computing @emph{which} values to print. However, with two exceptions,
+you cannot specify @emph{how} to print them---how many
+columns, whether to use exponential notation or not, and so on.
+(For the exceptions, @pxref{Output Separators}, and
+@ref{OFMT, ,Controlling Numeric Output with @code{print}}.)
+For that, you need the @code{printf} statement
+(@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing}).
+
+Besides basic and formatted printing, this @value{CHAPTER}
+also covers I/O redirections to files and pipes, introduces
+the special @value{FN}s that @command{gawk} processes internally,
+and discusses the @code{close} built-in function.
@menu
* Print:: The @code{print} statement.
@@ -4593,8 +5446,8 @@ for fancier formatting. Both are described in this chapter.
* Printf:: The @code{printf} statement.
* Redirection:: How to redirect output to multiple files and
pipes.
-* Special Files:: File name interpretation in @code{gawk}.
- @code{gawk} allows access to inherited file
+* Special Files:: File name interpretation in @command{gawk}.
+ @command{gawk} allows access to inherited file
descriptors.
* Close Files And Pipes:: Closing Input and Output Files and Pipes.
@end menu
@@ -4603,8 +5456,8 @@ for fancier formatting. Both are described in this chapter.
@section The @code{print} Statement
@cindex @code{print} statement
-The @code{print} statement does output with simple, standardized
-formatting. You specify only the strings or numbers to be printed, in a
+The @code{print} statement is used to produce output with simple, standardized
+formatting. Specify only the strings or numbers to print, in a
list separated by commas. They are output, separated by single spaces,
followed by a newline. The statement looks like this:
@@ -4613,67 +5466,53 @@ print @var{item1}, @var{item2}, @dots{}
@end example
@noindent
-The entire list of items may optionally be enclosed in parentheses. The
+The entire list of items may be optionally enclosed in parentheses. The
parentheses are necessary if any of the item expressions uses the @samp{>}
relational operator; otherwise it could be confused with a redirection
(@pxref{Redirection, ,Redirecting Output of @code{print} and @code{printf}}).
-The items to be printed can be constant strings or numbers, fields of the
-current record (such as @code{$1}), variables, or any @code{awk}
-expressions.
-Numeric values are converted to strings, and then printed.
-
-The @code{print} statement is completely general for
-computing @emph{what} values to print. However, with two exceptions,
-you cannot specify @emph{how} to print them---how many
-columns, whether to use exponential notation or not, and so on.
-(For the exceptions, @pxref{Output Separators}, and
-@ref{OFMT, ,Controlling Numeric Output with @code{print}}.)
-For that, you need the @code{printf} statement
-(@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing}).
+The items to print can be constant strings or numbers, fields of the
+current record (such as @code{$1}), variables, or any @command{awk}
+expression. Numeric values are converted to strings and then printed.
The simple statement @samp{print} with no items is equivalent to
@samp{print $0}: it prints the entire current record. To print a blank
line, use @samp{print ""}, where @code{""} is the empty string.
-
-To print a fixed piece of text, use a string constant such as
-@w{@code{"Don't Panic"}} as one item. If you forget to use the
-double-quote characters, your text will be taken as an @code{awk}
-expression, and you will probably get an error. Keep in mind that a
+To print a fixed piece of text, use a string constant, such as
+@w{@code{"Don't Panic"}}, as one item. If you forget to use the
+double quote characters, your text is taken as an @command{awk}
+expression and you will probably get an error. Keep in mind that a
space is printed between any two items.
-Each @code{print} statement makes at least one line of output. But it
-isn't limited to one line. If an item value is a string that contains a
-newline, the newline is output along with the rest of the string. A
-single @code{print} can make any number of lines this way.
-
@node Print Examples, Output Separators, Print, Printing
@section Examples of @code{print} Statements
-Here is an example of printing a string that contains embedded newlines
+Each @code{print} statement makes at least one line of output. However, it
+isn't limited to only one line. If an item value is a string that contains a
+newline, the newline is output along with the rest of the string. A
+single @code{print} statement can make any number of lines this way.
+
+The following is an example of printing a string that contains embedded newlines
(the @samp{\n} is an escape sequence, used to represent the newline
character; @pxref{Escape Sequences}):
@example
-@group
$ awk 'BEGIN @{ print "line one\nline two\nline three" @}'
@print{} line one
@print{} line two
@print{} line three
-@end group
@end example
-Here is an example that prints the first two fields of each input record,
-with a space between them:
+The next example, which is run on the @file{inventory-shipped} file,
+prints the first two fields of each input record, with a space between
+them:
@example
-@group
$ awk '@{ print $1, $2 @}' inventory-shipped
@print{} Jan 13
@print{} Feb 15
@print{} Mar 15
@dots{}
-@end group
@end example
@cindex common mistakes
@@ -4682,26 +5521,24 @@ $ awk '@{ print $1, $2 @}' inventory-shipped
A common mistake in using the @code{print} statement is to omit the comma
between two items. This often has the effect of making the items run
together in the output, with no space. The reason for this is that
-juxtaposing two string expressions in @code{awk} means to concatenate
+juxtaposing two string expressions in @command{awk} means to concatenate
them. Here is the same program, without the comma:
@example
-@group
$ awk '@{ print $1 $2 @}' inventory-shipped
@print{} Jan13
@print{} Feb15
@print{} Mar15
@dots{}
-@end group
@end example
-To someone unfamiliar with the file @file{inventory-shipped}, neither
+To someone unfamiliar with the @file{inventory-shipped} file, neither
example's output makes much sense. A heading line at the beginning
would make it clearer. Let's add some headings to our table of months
(@code{$1}) and green crates shipped (@code{$2}). We do this using the
@code{BEGIN} pattern
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns})
-to force the headings to be printed only once:
+so that the headings are only printed once:
@example
awk 'BEGIN @{ print "Month Crates"
@@ -4710,77 +5547,79 @@ awk 'BEGIN @{ print "Month Crates"
@end example
@noindent
-Did you already guess what happens? When run, the program prints
-the following:
+When run, the program prints the following:
@example
-@group
Month Crates
----- ------
Jan 13
Feb 15
Mar 15
@dots{}
-@end group
@end example
@noindent
-The headings and the table data don't line up! We can fix this by printing
-some spaces between the two fields:
+The only problem, however, is that the headings and the table data
+don't line up! We can fix this by printing some spaces between the
+two fields:
@example
+@group
awk 'BEGIN @{ print "Month Crates"
print "----- ------" @}
@{ print $1, " ", $2 @}' inventory-shipped
+@end group
@end example
-You can imagine that this way of lining up columns can get pretty
-complicated when you have many columns to fix. Counting spaces for two
-or three columns can be simple, but more than this and you can get
-lost quite easily. This is why the @code{printf} statement was
+Lining up columns this way can get pretty
+complicated when there are many columns to fix. Counting spaces for two
+or three columns is simple, but any more than this can take up
+a lot of time. This is why the @code{printf} statement was
created (@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing});
one of its specialties is lining up columns of data.
@cindex line continuation
-As a side point,
-you can continue either a @code{print} or @code{printf} statement simply
-by putting a newline after any comma
-(@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}).
+@strong{Note:} You can continue either a @code{print} or
+@code{printf} statement simply by putting a newline after any comma
+(@pxref{Statements/Lines, ,@command{awk} Statements Versus Lines}).
@node Output Separators, OFMT, Print Examples, Printing
@section Output Separators
@cindex output field separator, @code{OFS}
@cindex output record separator, @code{ORS}
-@vindex OFS
-@vindex ORS
+@cindex @code{OFS} variable
+@cindex @code{ORS} variable
As mentioned previously, a @code{print} statement contains a list
-of items, separated by commas. In the output, the items are normally
-separated by single spaces. This need not be the case; a
-single space is only the default. You can specify any string of
-characters to use as the @dfn{output field separator} by setting the
+of items separated by commas. In the output, the items are normally
+separated by single spaces. However, this doesn't need to be the case;
+a single space is only the default. Any string of
+characters may be used as the @dfn{output field separator} by setting the
built-in variable @code{OFS}. The initial value of this variable
-is the string @w{@code{" "}}, that is, a single space.
+is the string @w{@code{" "}}---that is, a single space.
The output from an entire @code{print} statement is called an
@dfn{output record}. Each @code{print} statement outputs one output
-record and then outputs a string called the @dfn{output record separator}.
-The built-in variable @code{ORS} specifies this string. The initial
-value of @code{ORS} is the string @code{"\n"}, i.e.@: a newline
-character; thus, normally each @code{print} statement makes a separate line.
+record, and then outputs a string called the @dfn{output record separator}
+(or @code{ORS}). The initial
+value of @code{ORS} is the string @code{"\n"}; i.e., a newline
+character. Thus, each @code{print} statement normally makes a separate line.
-You can change how output fields and records are separated by assigning
-new values to the variables @code{OFS} and/or @code{ORS}. The usual
+In order to change how output fields and records are separated, assign
+new values to the variables @code{OFS} and @code{ORS}. The usual
place to do this is in the @code{BEGIN} rule
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}), so
-that it happens before any input is processed. You may also do this
-with assignments on the command line, before the names of your input
-files, or using the @samp{-v} command line option
-(@pxref{Options, ,Command Line Options}).
+that it happens before any input is processed. It can also be done
+with assignments on the command line, before the names of the input
+files, or using the @option{-v} command-line option
+(@pxref{Options, ,Command-Line Options}).
+The following example prints the first and second fields of each input
+record, separated by a semicolon, with a blank line added after each
+newline:
@ignore
Exercise,
-Rewrite the
+Rewrite the
@example
awk 'BEGIN @{ print "Month Crates"
print "----- ------" @}
@@ -4789,12 +5628,7 @@ awk 'BEGIN @{ print "Month Crates"
program by using a new value of @code{OFS}.
@end ignore
-The following example prints the first and second fields of each input
-record separated by a semicolon, with a blank line added after each
-line:
-
@example
-@group
$ awk 'BEGIN @{ OFS = ";"; ORS = "\n\n" @}
> @{ print $1, $2 @}' BBS-list
@print{} aardvark;555-5553
@@ -4803,24 +5637,22 @@ $ awk 'BEGIN @{ OFS = ";"; ORS = "\n\n" @}
@print{}
@print{} barfly;555-7685
@dots{}
-@end group
@end example
-If the value of @code{ORS} does not contain a newline, all your output
-will be run together on a single line, unless you output newlines some
-other way.
+If the value of @code{ORS} does not contain a newline, the program's output
+is run together on a single line.
@node OFMT, Printf, Output Separators, Printing
@section Controlling Numeric Output with @code{print}
-@vindex OFMT
+@cindex @code{OFMT} variable
@cindex numeric output format
@cindex format, numeric output
@cindex output format specifier, @code{OFMT}
-When you use the @code{print} statement to print numeric values,
-@code{awk} internally converts the number to a string of characters,
-and prints that string. @code{awk} uses the @code{sprintf} function
+When the @code{print} statement is used to print numeric values,
+@command{awk} internally converts the number to a string of characters
+and prints that string. @command{awk} uses the @code{sprintf} function
to do this conversion
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
For now, it suffices to say that the @code{sprintf}
function accepts a @dfn{format specification} that tells it how to format
numbers (or strings), and that there are a number of different ways in which
@@ -4832,39 +5664,39 @@ The built-in variable @code{OFMT} contains the default format specification
that @code{print} uses with @code{sprintf} when it wants to convert a
number to a string for printing.
The default value of @code{OFMT} is @code{"%.6g"}.
-By supplying different format specifications
-as the value of @code{OFMT}, you can change how @code{print} will print
-your numbers. As a brief example:
+The way @code{print} prints numbers can be changed
+by supplying different format specifications
+as the value of @code{OFMT}, as shown in the following example:
@example
-@group
$ awk 'BEGIN @{
> OFMT = "%.0f" # print numbers as integers (rounds)
-> print 17.23 @}'
-@print{} 17
-@end group
+> print 17.23, 17.54 @}'
+@print{} 17 18
@end example
@noindent
@cindex dark corner
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-According to the POSIX standard, @code{awk}'s behavior will be undefined
-if @code{OFMT} contains anything but a floating point conversion specification
-(d.c.).
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+According to the POSIX standard, @command{awk}'s behavior is undefined
+if @code{OFMT} contains anything but a floating-point conversion specification.
+@value{DARKCORNER}
@node Printf, Redirection, OFMT, Printing
@section Using @code{printf} Statements for Fancier Printing
@cindex formatted output
@cindex output, formatted
+@cindex @code{printf} statement
-If you want more precise control over the output format than
-@code{print} gives you, use @code{printf}. With @code{printf} you can
-specify the width to use for each item, and you can specify various
-formatting choices for numbers (such as what radix to use, whether to
+For more precise control over the output format than what is
+normally provided by @code{print}, use @code{printf}.
+@code{printf} can be used to
+specify the width to use for each item, as well as various
+formatting choices for numbers (such as what output base to use, whether to
print an exponent, whether to print a sign, and how many digits to print
-after the decimal point). You do this by supplying a string, called
-the @dfn{format string}, which controls how and where to print the other
+after the decimal point). This is done by supplying a string, called
+the @dfn{format string}, that controls how and where to print the other
arguments.
@menu
@@ -4878,7 +5710,7 @@ arguments.
@subsection Introduction to the @code{printf} Statement
@cindex @code{printf} statement, syntax of
-The @code{printf} statement looks like this:
+A simple @code{printf} statement looks like this:
@example
printf @var{format}, @var{item1}, @var{item2}, @dots{}
@@ -4887,130 +5719,125 @@ printf @var{format}, @var{item1}, @var{item2}, @dots{}
@noindent
The entire list of arguments may optionally be enclosed in parentheses. The
parentheses are necessary if any of the item expressions use the @samp{>}
-relational operator; otherwise it could be confused with a redirection
+relational operator; otherwise it can be confused with a redirection
(@pxref{Redirection, ,Redirecting Output of @code{print} and @code{printf}}).
@cindex format string
The difference between @code{printf} and @code{print} is the @var{format}
argument. This is an expression whose value is taken as a string; it
-specifies how to output each of the other arguments. It is called
-the @dfn{format string}.
+specifies how to output each of the other arguments. It is called the
+@dfn{format string}.
-The format string is very similar to that in the ANSI C library function
-@code{printf}. Most of @var{format} is text to be output verbatim.
-Scattered among this text are @dfn{format specifiers}, one per item.
-Each format specifier says to output the next item in the argument list
+The format string is very similar to that in the ISO C library function
+@code{printf}. Most of @var{format} is text to output verbatim.
+Scattered among this text are @dfn{format specifiers}---one per item.
+Each format specifier says to output the next item in the argument list
at that place in the format.
-The @code{printf} statement does not automatically append a newline to its
-output. It outputs only what the format string specifies. So if you want
-a newline, you must include one in the format string. The output separator
-variables @code{OFS} and @code{ORS} have no effect on @code{printf}
-statements. For example:
+The @code{printf} statement does not automatically append a newline
+to its output. It outputs only what the format string specifies.
+So if a newline is needed, you must include one in the format string.
+The output separator variables @code{OFS} and @code{ORS} have no effect
+on @code{printf} statements. For example:
@example
-@group
-BEGIN @{
- ORS = "\nOUCH!\n"; OFS = "!"
- msg = "Don't Panic!"; printf "%s\n", msg
-@}
-@end group
+$ awk 'BEGIN @{
+> ORS = "\nOUCH!\n"; OFS = "+"
+> msg = "Dont Panic!"
+> printf "%s\n", msg
+> @}'
+@print{} Dont Panic!
@end example
-This program still prints the familiar @samp{Don't Panic!} message.
+@noindent
+Here, neither the @samp{+} nor the @samp{OUCH} appear when
+the message is printed.
@node Control Letters, Format Modifiers, Basic Printf, Printf
@subsection Format-Control Letters
@cindex @code{printf}, format-control characters
-@cindex format specifier
-
-A format specifier starts with the character @samp{%} and ends with a
-@dfn{format-control letter}; it tells the @code{printf} statement how
-to output one item. (If you actually want to output a @samp{%}, write
-@samp{%%}.) The format-control letter specifies what kind of value to
-print. The rest of the format specifier is made up of optional
-@dfn{modifiers} which are parameters to use, such as the field width.
+@cindex format specifier, @code{printf}
-Here is a list of the format-control letters:
+A format specifier starts with the character @samp{%} and ends with
+a @dfn{format-control letter}---it tells the @code{printf} statement
+how to output one item. The format-control letter specifies what @emph{kind}
+of value to print. The rest of the format specifier is made up of
+optional @dfn{modifiers} that control @emph{how} to print the value, such as
+the field width. Here is a list of the format-control letters:
@table @code
-@item c
-This prints a number as an ASCII character. Thus, @samp{printf "%c",
-65} outputs the letter @samp{A}. The output for a string value is
-the first character of the string.
+@item %c
+This prints a number as an ASCII character; thus, @samp{printf "%c",
+65} outputs the letter @samp{A}. (The output for a string value is
+the first character of the string.)
-@item d
-@itemx i
-These are equivalent. They both print a decimal integer.
-The @samp{%i} specification is for compatibility with ANSI C.
+@item %d@r{,} %i
+These are equivalent; they both print a decimal integer.
+(The @samp{%i} specification is for compatibility with ISO C.)
-@item e
-@itemx E
-This prints a number in scientific (exponential) notation.
-For example,
+@item %e@r{,} %E
+These print a number in scientific (exponential) notation;
+for example:
@example
printf "%4.3e\n", 1950
@end example
@noindent
-prints @samp{1.950e+03}, with a total of four significant figures of
-which three follow the decimal point. The @samp{4.3} are modifiers,
-discussed below. @samp{%E} uses @samp{E} instead of @samp{e} in the output.
+prints @samp{1.950e+03}, with a total of four significant figures, three of
+which follow the decimal point.
+(The @samp{4.3} represents two modifiers,
+discussed in the next @value{SUBSECTION}.)
+@samp{%E} uses @samp{E} instead of @samp{e} in the output.
-@item f
-This prints a number in floating point notation.
-For example,
+@item %f
+This prints a number in floating-point notation.
+For example:
@example
printf "%4.3f", 1950
@end example
@noindent
-prints @samp{1950.000}, with a total of four significant figures of
-which three follow the decimal point. The @samp{4.3} are modifiers,
-discussed below.
-
-@item g
-@itemx G
-This prints a number in either scientific notation or floating point
-notation, whichever uses fewer characters. If the result is printed in
+prints @samp{1950.000}, with a total of four significant figures, three of
+which follow the decimal point.
+(The @samp{4.3} represents two modifiers,
+discussed in the next @value{SUBSECTION}.)
+
+@item %g@r{,} %G
+These print a number in either scientific notation or in floating-point
+notation, whichever uses fewer characters; if the result is printed in
scientific notation, @samp{%G} uses @samp{E} instead of @samp{e}.
-@item o
+@item %o
This prints an unsigned octal integer.
-(In octal, or base-eight notation, the digits run from @samp{0} to @samp{7};
-the decimal number eight is represented as @samp{10} in octal.)
-@item s
+@item %s
This prints a string.
-@item u
-This prints an unsigned decimal number.
-(This format is of marginal use, since all numbers in @code{awk}
-are floating point. It is provided primarily for compatibility
-with C.)
-
-@item x
-@itemx X
-This prints an unsigned hexadecimal integer.
-(In hexadecimal, or base-16 notation, the digits are @samp{0} through @samp{9}
-and @samp{a} through @samp{f}. The hexadecimal digit @samp{f} represents
-the decimal number 15.) @samp{%X} uses the letters @samp{A} through @samp{F}
+@item %u
+This prints an unsigned decimal integer.
+(This format is of marginal use, because all numbers in @command{awk}
+are floating-point; it is provided primarily for compatibility with C.)
+
+@item %x@r{,} %X
+These print an unsigned hexadecimal integer;
+@samp{%X} uses the letters @samp{A} through @samp{F}
instead of @samp{a} through @samp{f}.
-@item %
-This isn't really a format-control letter, but it does have a meaning
-when used after a @samp{%}: the sequence @samp{%%} outputs one
-@samp{%}. It does not consume an argument, and it ignores any
-modifiers.
+@item %%
+This isn't a format-control letter but it does have meaning---the
+sequence @samp{%%} outputs one @samp{%}; it does not consume an
+argument and it ignores any modifiers.
@end table
@cindex dark corner
+@strong{Note:}
When using the integer format-control letters for values that are outside
-the range of a C @code{long} integer, @code{gawk} will switch to the
-@samp{%g} format specifier. Other versions of @code{awk} may print
-invalid values, or do something else entirely (d.c.).
+the range of a C @code{long} integer, @command{gawk} switches to the
+@samp{%g} format specifier. Other versions of @command{awk} may print
+invalid values or do something else entirely.
+@value{DARKCORNER}
@node Format Modifiers, Printf Examples, Control Letters, Printf
@subsection Modifiers for @code{printf} Formats
@@ -5018,18 +5845,46 @@ invalid values, or do something else entirely (d.c.).
@cindex @code{printf}, modifiers
@cindex modifiers (in format specifiers)
A format specification can also include @dfn{modifiers} that can control
-how much of the item's value is printed and how much space it gets. The
-modifiers come between the @samp{%} and the format-control letter.
-In the examples below, we use the bullet symbol ``@bullet{}'' to represent
+how much of the item's value is printed, as well as how much space it gets.
+The modifiers come between the @samp{%} and the format-control letter.
+We will use the bullet symbol ``@bullet{}'' in the following examples to
+represent
spaces in the output. Here are the possible modifiers, in the order in
which they may appear:
@table @code
+@cindex differences between @command{gawk} and @command{awk}
+@cindex @code{printf}, positional specifier
+@cindex positional specifier, @code{printf}
+@item @var{N}$
+An integer constant followed by a @samp{$} is a @dfn{positional specifier}.
+Normally, format specifications are applied to arguments in the order
+given in the format string. With a positional specifier, the format
+specification is applied to a specific argument, instead of what
+would be the next argument in the list. Positional specifiers begin
+counting with one:
+
+@example
+printf "%s %s\n", "don't", "panic"
+printf "%2$s %1$s\n", "panic", "don't"
+@end example
+
+@noindent
+prints the famous friendly message twice.
+
+At first glance, this feature doesn't seem to be of much use.
+It is in fact a @command{gawk} extension, intended for use in translating
+messages at runtime.
+@xref{Printf Ordering, , Rearranging @code{printf} Arguments},
+which describes how and why to use positional specifiers.
+For now, we will not use them.
+
@item -
-The minus sign, used before the width modifier (see below),
+The minus sign, used before the width modifier (see further on in
+this table),
says to left-justify
-the argument within its specified width. Normally the argument
-is printed right-justified in the specified width. Thus,
+the argument within its specified width. Normally, the argument
+is printed right-justified in the specified width. Thus:
@example
printf "%-4s", "foo"
@@ -5039,36 +5894,38 @@ printf "%-4s", "foo"
prints @samp{foo@bullet{}}.
@item @var{space}
-For numeric conversions, prefix positive values with a space, and
+For numeric conversions, prefix positive values with a space and
negative values with a minus sign.
@item +
-The plus sign, used before the width modifier (see below),
+The plus sign, used before the width modifier (see further on in
+this table),
says to always supply a sign for numeric conversions, even if the data
-to be formatted is positive. The @samp{+} overrides the space modifier.
+to format is positive. The @samp{+} overrides the space modifier.
@item #
Use an ``alternate form'' for certain control letters.
For @samp{%o}, supply a leading zero.
-For @samp{%x}, and @samp{%X}, supply a leading @samp{0x} or @samp{0X} for
-a non-zero result.
-For @samp{%e}, @samp{%E}, and @samp{%f}, the result will always contain a
+For @samp{%x} and @samp{%X}, supply a leading @samp{0x} or @samp{0X} for
+a nonzero result.
+For @samp{%e}, @samp{%E}, and @samp{%f}, the result always contains a
decimal point.
-For @samp{%g}, and @samp{%G}, trailing zeros are not removed from the result.
+For @samp{%g} and @samp{%G}, trailing zeros are not removed from the result.
@cindex dark corner
@item 0
-A leading @samp{0} (zero) acts as a flag, that indicates output should be
+A leading @samp{0} (zero) acts as a flag that indicates that output should be
padded with zeros instead of spaces.
-This applies even to non-numeric output formats (d.c.).
+This applies even to non-numeric output formats.
+@value{DARKCORNER}
This flag only has an effect when the field width is wider than the
-value to be printed.
+value to print.
@item @var{width}
This is a number specifying the desired minimum width of a field. Inserting any
-number between the @samp{%} sign and the format control character forces the
-field to be expanded to this width. The default way to do this is to
-pad with spaces on the left. For example,
+number between the @samp{%} sign and the format-control character forces the
+field to expand to this width. The default way to do this is to
+pad with spaces on the left. For example:
@example
printf "%4s", "foo"
@@ -5079,7 +5936,7 @@ prints @samp{@bullet{}foo}.
The value of @var{width} is a minimum width, not a maximum. If the item
value requires more than @var{width} characters, it can be as wide as
-necessary. Thus,
+necessary. Thus, the following:
@example
printf "%4s", "foobar"
@@ -5092,14 +5949,25 @@ Preceding the @var{width} with a minus sign causes the output to be
padded with spaces on the right, instead of on the left.
@item .@var{prec}
-This is a number that specifies the precision to use when printing.
-For the @samp{e}, @samp{E}, and @samp{f} formats, this specifies the
-number of digits you want printed to the right of the decimal point.
-For the @samp{g}, and @samp{G} formats, it specifies the maximum number
-of significant digits. For the @samp{d}, @samp{o}, @samp{i}, @samp{u},
-@samp{x}, and @samp{X} formats, it specifies the minimum number of
-digits to print. For a string, it specifies the maximum number of
-characters from the string that should be printed. Thus,
+A period followed by an integer constant
+specifies the precision to use when printing.
+The meaning of the precision varies by control letter:
+
+@table @asis
+@item @code{%e}, @code{%E}, @code{%f}
+Number of digits to the right of the decimal point.
+
+@item @code{%g}, @code{%G}
+Maximum number of significant digits.
+
+@item @code{%d}, @code{%i}, @code{%o}, @code{%u}, @code{%x}, @code{%X}
+Minimum number of digits to print.
+
+@item @code{%s}
+Maximum number of characters from the string that should print.
+@end table
+
+Thus, the following:
@example
printf "%.4s", "foobar"
@@ -5112,7 +5980,7 @@ prints @samp{foob}.
The C library @code{printf}'s dynamic @var{width} and @var{prec}
capability (for example, @code{"%*.*s"}) is supported. Instead of
supplying explicit @var{width} and/or @var{prec} values in the format
-string, you pass them in the argument list. For example:
+string, they are passed in the argument list. For example:
@example
w = 5
@@ -5122,7 +5990,7 @@ printf "%*.*s\n", w, p, s
@end example
@noindent
-is exactly equivalent to
+is exactly equivalent to:
@example
s = "abcdefg"
@@ -5131,8 +5999,7 @@ printf "%5.3s\n", s
@noindent
Both programs output @samp{@w{@bullet{}@bullet{}abc}}.
-
-Earlier versions of @code{awk} did not support this capability.
+Earlier versions of @command{awk} did not support this capability.
If you must use such a version, you may simulate this feature by using
concatenation to build up the format string, like so:
@@ -5144,35 +6011,40 @@ printf "%" w "." p "s\n", s
@end example
@noindent
-This is not particularly easy to read, but it does work.
-
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-C programmers may be used to supplying additional @samp{l} and @samp{h}
-flags in @code{printf} format strings. These are not valid in @code{awk}.
-Most @code{awk} implementations silently ignore these flags.
-If @samp{--lint} is provided on the command line
-(@pxref{Options, ,Command Line Options}),
-@code{gawk} will warn about their use. If @samp{--posix} is supplied,
+This is not particularly easy to read but it does work.
+
+@cindex fatal errors
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@cindex lint checks
+C programmers may be used to supplying additional
+@samp{l}, @samp{L}, and @samp{h}
+modifiers in @code{printf} format strings. These are not valid in @command{awk}.
+Most @command{awk} implementations silently ignore these modifiers.
+If @option{--lint} is provided on the command line
+(@pxref{Options, ,Command-Line Options}),
+@command{gawk} warns about their use. If @option{--posix} is supplied,
their use is a fatal error.
-@node Printf Examples, , Format Modifiers, Printf
+@node Printf Examples, , Format Modifiers, Printf
@subsection Examples Using @code{printf}
-Here is how to use @code{printf} to make an aligned table:
+The following is a simple example of
+how to use @code{printf} to make an aligned table:
@example
awk '@{ printf "%-10s %s\n", $1, $2 @}' BBS-list
@end example
@noindent
-prints the names of bulletin boards (@code{$1}) of the file
-@file{BBS-list} as a string of 10 characters, left justified. It also
-prints the phone numbers (@code{$2}) afterward on the line. This
-produces an aligned two-column table of names and phone numbers:
+This command
+prints the names of the bulletin boards (@code{$1}) in the file
+@file{BBS-list} as a string of 10 characters that are left-justified. It also
+prints the phone numbers (@code{$2}) next on the line. This
+produces an aligned two-column table of names and phone numbers,
+as shown here:
@example
-@group
$ awk '@{ printf "%-10s %s\n", $1, $2 @}' BBS-list
@print{} aardvark 555-5553
@print{} alpo-net 555-3412
@@ -5185,66 +6057,59 @@ $ awk '@{ printf "%-10s %s\n", $1, $2 @}' BBS-list
@print{} macfoo 555-6480
@print{} sdace 555-3430
@print{} sabafoo 555-2127
-@end group
@end example
-Did you notice that we did not specify that the phone numbers be printed
-as numbers? They had to be printed as strings because the numbers are
-separated by a dash.
-If we had tried to print the phone numbers as numbers, all we would have
-gotten would have been the first three digits, @samp{555}.
+In this case, the phone numbers had to be printed as strings because
+the numbers are separated by a dash. Printing the phone numbers as
+numbers would have produced just the first three digits: @samp{555}.
This would have been pretty confusing.
-We did not specify a width for the phone numbers because they are the
-last things on their lines. We don't need to put spaces after them.
+It wasn't necessary to specify a width for the phone numbers because
+they are last on their lines. They don't need to have spaces
+after them.
-We could make our table look even nicer by adding headings to the tops
-of the columns. To do this, we use the @code{BEGIN} pattern
+The table could be made to look even nicer by adding headings to the
+tops of the columns. This is done using the @code{BEGIN} pattern
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns})
-to force the header to be printed only once, at the beginning of
-the @code{awk} program:
+so that the headers are only printed once, at the beginning of
+the @command{awk} program:
@example
-@group
awk 'BEGIN @{ print "Name Number"
print "---- ------" @}
@{ printf "%-10s %s\n", $1, $2 @}' BBS-list
-@end group
@end example
-Did you notice that we mixed @code{print} and @code{printf} statements in
-the above example? We could have used just @code{printf} statements to get
-the same results:
+The above example mixed @code{print} and @code{printf} statements in
+the same program. Using just @code{printf} statements can produce the
+same results:
@example
-@group
awk 'BEGIN @{ printf "%-10s %s\n", "Name", "Number"
printf "%-10s %s\n", "----", "------" @}
@{ printf "%-10s %s\n", $1, $2 @}' BBS-list
-@end group
@end example
@noindent
-By printing each column heading with the same format specification
-used for the elements of the column, we have made sure that the headings
+Printing each column heading with the same format specification
+used for the column elements ensures that the headings
are aligned just like the columns.
The fact that the same format specification is used three times can be
emphasized by storing it in a variable, like this:
@example
-@group
awk 'BEGIN @{ format = "%-10s %s\n"
printf format, "Name", "Number"
printf format, "----", "------" @}
@{ printf format, $1, $2 @}' BBS-list
-@end group
@end example
@c !!! exercise
-See if you can use the @code{printf} statement to line up the headings and
-table data for our @file{inventory-shipped} example covered earlier in the
-section on the @code{print} statement
+At this point, it would be a worthwhile exercise to use the
+@code{printf} statement to line up the headings and table data for the
+@file{inventory-shipped} example that was covered earlier in the @value{SECTION}
+on the @code{print} statement
(@pxref{Print, ,The @code{print} Statement}).
@node Redirection, Special Files, Printf, Printing
@@ -5252,82 +6117,84 @@ section on the @code{print} statement
@cindex output redirection
@cindex redirection of output
-So far we have been dealing only with output that prints to the standard
-output, usually your terminal. Both @code{print} and @code{printf} can
+So far, the output from @code{print} and @code{printf} has gone
+to the standard
+output, usually the terminal. Both @code{print} and @code{printf} can
also send their output to other places.
This is called @dfn{redirection}.
A redirection appears after the @code{print} or @code{printf} statement.
-Redirections in @code{awk} are written just like redirections in shell
-commands, except that they are written inside the @code{awk} program.
+Redirections in @command{awk} are written just like redirections in shell
+commands, except that they are written inside the @command{awk} program.
-There are three forms of output redirection: output to a file,
-output appended to a file, and output through a pipe to another
-command.
-They are all shown for
-the @code{print} statement, but they work identically for @code{printf}
-also.
+There are four forms of output redirection: output to a file, output
+appended to a file, output through a pipe to another command, and output
+to a coprocess. They are all shown for the @code{print} statement,
+but they work identically for @code{printf}:
@table @code
+@cindex @code{>} I/O operator
@item print @var{items} > @var{output-file}
-This type of redirection prints the items into the output file
-@var{output-file}. The file name @var{output-file} can be any
+This type of redirection prints the items into the output file named
+@var{output-file}. The @value{FN} @var{output-file} can be any
expression. Its value is changed to a string and then used as a
-file name (@pxref{Expressions}).
+@value{FN} (@pxref{Expressions}).
When this type of redirection is used, the @var{output-file} is erased
-before the first output is written to it. Subsequent writes
-to the same @var{output-file} do not
-erase @var{output-file}, but append to it. If @var{output-file} does
-not exist, then it is created.
-
-For example, here is how an @code{awk} program can write a list of
-BBS names to a file @file{name-list} and a list of phone numbers to a
-file @file{phone-list}. Each output file contains one name or number
-per line.
+before the first output is written to it. Subsequent writes to the same
+@var{output-file} do not erase @var{output-file}, but append to it.
+(This is different from how you use redirections in shell scripts.)
+If @var{output-file} does not exist, it is created. For example, here
+is how an @command{awk} program can write a list of BBS names to one
+file named @file{name-list}, and a list of phone numbers to another file
+named @file{phone-list}:
@example
-@group
$ awk '@{ print $2 > "phone-list"
> print $1 > "name-list" @}' BBS-list
-@end group
-@group
$ cat phone-list
@print{} 555-5553
@print{} 555-3412
@dots{}
-@end group
-@group
$ cat name-list
@print{} aardvark
@print{} alpo-net
@dots{}
-@end group
@end example
+@noindent
+Each output file contains one name or number per line.
+
+@cindex @code{>>} I/O operator
@item print @var{items} >> @var{output-file}
This type of redirection prints the items into the pre-existing output file
-@var{output-file}. The difference between this and the
+named @var{output-file}. The difference between this and the
single-@samp{>} redirection is that the old contents (if any) of
-@var{output-file} are not erased. Instead, the @code{awk} output is
+@var{output-file} are not erased. Instead, the @command{awk} output is
appended to the file.
If @var{output-file} does not exist, then it is created.
+@cindex @code{|} I/O operator
@cindex pipes for output
@cindex output, piping
@item print @var{items} | @var{command}
It is also possible to send output to another program through a pipe
-instead of into a
-file. This type of redirection opens a pipe to @var{command} and writes
-the values of @var{items} through this pipe, to another process created
-to execute @var{command}.
+instead of into a file. This type of redirection opens a pipe to
+@var{command}, and writes the values of @var{items} through this pipe
+to another process created to execute @var{command}.
-The redirection argument @var{command} is actually an @code{awk}
-expression. Its value is converted to a string, whose contents give the
-shell command to be run.
+The redirection argument @var{command} is actually an @command{awk}
+expression. Its value is converted to a string whose contents give
+the shell command to be run. For example, the following produces two
+files, one unsorted list of BBS names, and one list sorted in reverse
+alphabetical order:
-For example, this produces two files, one unsorted list of BBS names
-and one list sorted in reverse alphabetical order:
+@ignore
+10/2000:
+This isn't the best style, since COMMAND is assigned for each
+record. It's done to avoid overfull hboxes in TeX. Leave it
+alone for now and let's hope no-one notices.
+@end ignore
@example
awk '@{ print $1 > "names.unsorted"
@@ -5335,12 +6202,12 @@ awk '@{ print $1 > "names.unsorted"
print $1 | command @}' BBS-list
@end example
-Here the unsorted list is written with an ordinary redirection while
-the sorted list is written by piping through the @code{sort} utility.
+The unsorted list is written with an ordinary redirection, while
+the sorted list is written by piping through the @command{sort} utility.
-This example uses redirection to mail a message to a mailing
+The next example uses redirection to mail a message to the mailing
list @samp{bug-system}. This might be useful when trouble is encountered
-in an @code{awk} script run periodically for system maintenance.
+in an @command{awk} script run periodically for system maintenance:
@example
report = "mail bug-system"
@@ -5351,42 +6218,121 @@ close(report)
@end example
The message is built using string concatenation and saved in the variable
-@code{m}. It is then sent down the pipeline to the @code{mail} program.
+@code{m}. It is then sent down the pipeline to the @command{mail} program.
+(The parentheses group the items to concatenate---see
+@ref{Concatenation, ,String Concatenation}.)
-We call the @code{close} function here because it's a good idea to close
+The @code{close} function is called here because it's a good idea to close
the pipe as soon as all the intended output has been sent to it.
-@xref{Close Files And Pipes, ,Closing Input and Output Files and Pipes},
-for more information
-on this. This example also illustrates the use of a variable to represent
-a @var{file} or @var{command}: it is not necessary to always
+@xref{Close Files And Pipes, ,Closing Input and Output Redirections},
+for more information on this.
+
+This example also illustrates the use of a variable to represent
+a @var{file} or @var{command}---it is not necessary to always
use a string constant. Using a variable is generally a good idea,
-since @code{awk} requires you to spell the string value identically
+because @command{awk} requires that the string value be spelled identically
every time.
+
+@cindex coprocess
+@cindex @code{|&} I/O operator
+@cindex differences between @command{gawk} and @command{awk}
+@item print @var{items} |& @var{command}
+This type of redirection prints the items to the input of @var{command}.
+The difference between this and the
+single-@samp{|} redirection is that the output from @var{command}
+can be read with @code{getline}.
+Thus @var{command} is a @dfn{coprocess}, that works together with,
+but subsidiary to, the @command{awk} program.
+
+This feature is a @command{gawk} extension, and is not available in
+POSIX @command{awk}.
+@xref{Two-way I/O, ,Two-Way Communications with Another Process},
+for a more complete discussion.
@end table
-Redirecting output using @samp{>}, @samp{>>}, or @samp{|} asks the system
-to open a file or pipe only if the particular @var{file} or @var{command}
-you've specified has not already been written to by your program, or if
-it has been closed since it was last written to.
+Redirecting output using @samp{>}, @samp{>>}, @samp{|}, or @samp{|&}
+asks the system to open a file, pipe, or coprocess, only if the particular
+@var{file} or @var{command} you specify has not already been written
+to by your program or if it has been closed since it was last written to.
+
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+It is a common error to use @samp{>} redirection for the first @code{print}
+to a file, and then to use @samp{>>} for subsequent output:
-@cindex differences between @code{gawk} and @code{awk}
+@example
+# clear the file
+print "Don't panic" > "guide.txt"
+@dots{}
+# append
+print "Avoid improbability generators" >> "guide.txt"
+@end example
+
+@noindent
+This is indeed how redirections must be used from the shell. But in
+@command{awk}, it isn't necessary. In this kind of case, a program should
+use @samp{>} for all the @code{print} statements, since the output file
+is only opened once.
+
+@cindex differences between @command{gawk} and @command{awk}
@cindex limitations
@cindex implementation limits
-@iftex
+@ifnotinfo
As mentioned earlier
-(@pxref{Getline Summary, , Summary of @code{getline} Variants}),
+(@pxref{Getline Notes, ,Points About @code{getline} to Remember}),
many
-@end iftex
-@ifinfo
+@end ifnotinfo
+@ifnottex
Many
-@end ifinfo
-@code{awk} implementations limit the number of pipelines an @code{awk}
-program may have open to just one! In @code{gawk}, there is no such limit.
-You can open as many pipelines as the underlying operating system will
-permit.
+@end ifnottex
+@command{awk} implementations limit the number of pipelines that an @command{awk}
+program may have open to just one! In @command{gawk}, there is no such limit.
+@command{gawk} allows a program to
+open as many pipelines as the underlying operating system permits.
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Piping into @command{sh}
+@cindex advanced notes
+@cindex shell, piping commands into
+@cindex piping commands into the shell
+
+A particularly powerful way to use redirection is to build command lines,
+and pipe them into the shell, @command{sh}. For example, suppose you
+have a list of files brought over from a system where all the @value{FN}s
+are stored in uppercase, and you wish to rename them to have names in
+all lowercase. The following program is both simple and efficient:
-@node Special Files, Close Files And Pipes , Redirection, Printing
-@section Special File Names in @code{gawk}
+@cindex @command{mv} utility
+@example
+@{ printf("mv %s %s\n", $0, tolower($0)) | "sh" @}
+
+END @{ close("sh") @}
+@end example
+
+The @code{tolower} function returns its argument string with all
+uppercase characters converted to lowercase
+(@pxref{String Functions, ,String Manipulation Functions}).
+The program builds up a list of command lines,
+using the @command{mv} utility to rename the files.
+It then sends the list to the shell for execution.
+
+@node Special Files, Close Files And Pipes, Redirection, Printing
+@section Special @value{FFN}s in @command{gawk}
+
+@command{gawk} provides a number of special @value{FN}s that it interprets
+internally. These @value{FN}s provide access to standard file descriptors,
+process-related information, and TCP/IP networking.
+
+@menu
+* Special FD:: Special files for I/O.
+* Special Process:: Special files for process information.
+* Special Network:: Special files for network communications.
+* Special Caveats:: Things to watch out for.
+@end menu
+
+@node Special FD, Special Process, Special Files, Special Files
+@subsection Special Files for Standard Descriptors
@cindex standard input
@cindex standard output
@cindex standard error output
@@ -5397,50 +6343,49 @@ already available to them for reading and writing. These are known as
the @dfn{standard input}, @dfn{standard output}, and @dfn{standard error
output}. These streams are, by default, connected to your terminal, but
they are often redirected with the shell, via the @samp{<}, @samp{<<},
-@samp{>}, @samp{>>}, @samp{>&} and @samp{|} operators. Standard error
-is typically used for writing error messages; the reason we have two separate
-streams, standard output and standard error, is so that they can be
+@samp{>}, @samp{>>}, @samp{>&}, and @samp{|} operators. Standard error
+is typically used for writing error messages; the reason there are two separate
+streams, standard output, and standard error, is so that they can be
redirected separately.
-@cindex differences between @code{gawk} and @code{awk}
-In other implementations of @code{awk}, the only way to write an error
-message to standard error in an @code{awk} program is as follows:
+@cindex differences between @command{gawk} and @command{awk}
+In other implementations of @command{awk}, the only way to write an error
+message to standard error in an @command{awk} program is as follows:
@example
print "Serious error detected!" | "cat 1>&2"
@end example
@noindent
-This works by opening a pipeline to a shell command which can access the
-standard error stream which it inherits from the @code{awk} process.
-This is far from elegant, and is also inefficient, since it requires a
-separate process. So people writing @code{awk} programs often
-neglect to do this. Instead, they send the error messages to the
+This works by opening a pipeline to a shell command that can access the
+standard error stream that it inherits from the @command{awk} process.
+This is far from elegant, and it is also inefficient, because it requires a
+separate process. So people writing @command{awk} programs often
+don't do this. Instead, they send the error messages to the
terminal, like this:
@example
-@group
print "Serious error detected!" > "/dev/tty"
-@end group
@end example
@noindent
-This usually has the same effect, but not always: although the
-standard error stream is usually the terminal, it can be redirected, and
-when that happens, writing to the terminal is not correct. In fact, if
-@code{awk} is run from a background job, it may not have a terminal at all.
-Then opening @file{/dev/tty} will fail.
-
-@code{gawk} provides special file names for accessing the three standard
-streams. When you redirect input or output in @code{gawk}, if the file name
-matches one of these special names, then @code{gawk} directly uses the
-stream it stands for.
-
-@cindex @file{/dev/stdin}
-@cindex @file{/dev/stdout}
-@cindex @file{/dev/stderr}
-@cindex @file{/dev/fd}
-@c @cartouche
+This usually has the same effect but not always: although the
+standard error stream is usually the terminal, it can be redirected; when
+that happens, writing to the terminal is not correct. In fact, if
+@command{awk} is run from a background job, it may not have a terminal at all.
+Then opening @file{/dev/tty} fails.
+
+@command{gawk} provides special @value{FN}s for accessing the three standard
+streams, as well as any other inherited open files. If the @value{FN} matches
+one of these special names when @command{gawk} redirects input or output,
+then it directly uses the stream that the @value{FN} stands for.
+(These special @value{FN}s work for all operating systems that @command{gawk}
+has been ported to, not just those that are POSIX-compliant.):
+
+@cindex @file{/dev/stdin} special file
+@cindex @file{/dev/stdout} special file
+@cindex @file{/dev/stderr} special file
+@cindex @file{/dev/fd} special files
@table @file
@item /dev/stdin
The standard input (file descriptor 0).
@@ -5452,49 +6397,58 @@ The standard output (file descriptor 1).
The standard error output (file descriptor 2).
@item /dev/fd/@var{N}
-The file associated with file descriptor @var{N}. Such a file must have
-been opened by the program initiating the @code{awk} execution (typically
-the shell). Unless you take special pains in the shell from which
-you invoke @code{gawk}, only descriptors 0, 1 and 2 are available.
+The file associated with file descriptor @var{N}. Such a file must
+be opened by the program initiating the @command{awk} execution (typically
+the shell). Unless special pains are taken in the shell from which
+@command{gawk} is invoked, only descriptors 0, 1, and 2 are available.
@end table
-@c @end cartouche
-The file names @file{/dev/stdin}, @file{/dev/stdout}, and @file{/dev/stderr}
+The @value{FN}s @file{/dev/stdin}, @file{/dev/stdout}, and @file{/dev/stderr}
are aliases for @file{/dev/fd/0}, @file{/dev/fd/1}, and @file{/dev/fd/2},
-respectively, but they are more self-explanatory.
-
-The proper way to write an error message in a @code{gawk} program
+respectively. However, they are more self-explanatory.
+The proper way to write an error message in a @command{gawk} program
is to use @file{/dev/stderr}, like this:
@example
print "Serious error detected!" > "/dev/stderr"
@end example
-@code{gawk} also provides special file names that give access to information
-about the running @code{gawk} process. Each of these ``files'' provides
-a single record of information. To read them more than once, you must
-first close them with the @code{close} function
-(@pxref{Close Files And Pipes, ,Closing Input and Output Files and Pipes}).
-The filenames are:
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+Note the use of quotes around the @value{FN}.
+Like any other redirection, the value must be a string.
+It is a common error to omit the quotes, which leads
+to confusing results.
+@c Exercise: What does it do? :-)
+
+@node Special Process, Special Network, Special FD, Special Files
+@subsection Special Files for Process-Related Information
+
+@command{gawk} also provides special @value{FN}s that give access to information
+about the running @command{gawk} process. Each of these ``files'' provides
+a single record of information. To read them more than once, they must
+first be closed with the @code{close} function
+(@pxref{Close Files And Pipes, ,Closing Input and Output Redirections}).
+The @value{FN}s are:
@cindex process information
-@cindex @file{/dev/pid}
-@cindex @file{/dev/pgrpid}
-@cindex @file{/dev/ppid}
-@cindex @file{/dev/user}
-@c @cartouche
+@cindex @file{/dev/pid} special file
+@cindex @file{/dev/pgrpid} special file
+@cindex @file{/dev/ppid} special file
+@cindex @file{/dev/user} special file
@table @file
@item /dev/pid
Reading this file returns the process ID of the current process,
-in decimal, terminated with a newline.
+in decimal form, terminated with a newline.
-@item /dev/ppid
+@item /dev/ppid
Reading this file returns the parent process ID of the current process,
-in decimal, terminated with a newline.
+in decimal form, terminated with a newline.
-@item /dev/pgrpid
+@item /dev/pgrpid
Reading this file returns the process group ID of the current process,
-in decimal, terminated with a newline.
+in decimal form, terminated with a newline.
@item /dev/user
Reading this file returns a single record terminated with a newline.
@@ -5520,64 +6474,126 @@ The return value of the @code{getegid} system call
@end table
If there are any additional fields, they are the group IDs returned by
-@code{getgroups} system call.
+the @code{getgroups} system call.
(Multiple groups may not be supported on all systems.)
@end table
-@c @end cartouche
-These special file names may be used on the command line as data
-files, as well as for I/O redirections within an @code{awk} program.
-They may not be used as source files with the @samp{-f} option.
+These special @value{FN}s may be used on the command line as @value{DF}s,
+as well as for I/O redirections within an @command{awk} program.
+They may not be used as source files with the @option{-f} option.
+
+@cindex automatic warnings
+@cindex warnings, automatic
+@strong{Note:}
+The special files that provide process-related information are now considered
+obsolete and will disappear entirely
+in the next release of @command{gawk}.
+@command{gawk} prints a warning message every time you use one of
+these files.
+To obtain process-related information, use the @code{PROCINFO} array.
+@xref{Auto-set, ,Built-in Variables That Convey Information}.
+
+@node Special Network, Special Caveats, Special Process, Special Files
+@subsection Special Files for Network Communications
+
+Starting with @value{PVERSION} 3.1 of @command{gawk}, @command{awk} programs
+can open a two-way
+TCP/IP connection, acting as either a client or server.
+This is done using a special @value{FN} of the form:
-Recognition of these special file names is disabled if @code{gawk} is in
-compatibility mode (@pxref{Options, ,Command Line Options}).
+@example
+@file{/inet/@var{protocol}/@var{local-port}/@var{remote-host}/@var{remote-port}}
+@end example
+
+The @var{protocol} is one of @samp{tcp}, @samp{udp}, or @samp{raw},
+and the other fields represent the other essential pieces of information
+for making a networking connection.
+These @value{FN}s are used with the @samp{|&} operator for communicating
+with a coprocess
+(@pxref{Two-way I/O, ,Two-Way Communications with Another Process}).
+This is an advanced feature, mentioned here only for completeness.
+Full discussion is delayed until
+@ref{TCP/IP Networking, ,Using @command{gawk} for Network Programming}.
+
+@node Special Caveats, , Special Network, Special Files
+@subsection Special @value{FFN} Caveats
+
+Here is a list of things to bear in mind when using the
+special @value{FN}s that @command{gawk} provides.
-@strong{Caution}: Unless your system actually has a @file{/dev/fd} directory
-(or any of the other above listed special files),
-the interpretation of these file names is done by @code{gawk} itself.
-For example, using @samp{/dev/fd/4} for output will actually write on
-file descriptor 4, and not on a new file descriptor that was @code{dup}'ed
-from file descriptor 4. Most of the time this does not matter; however, it
-is important to @emph{not} close any of the files related to file descriptors
-0, 1, and 2. If you do close one of these files, unpredictable behavior
-will result.
+@itemize @bullet
+@item
+Recognition of these special @value{FN}s is disabled if @command{gawk} is in
+compatibility mode (@pxref{Options, ,Command-Line Options}).
-The special files that provide process-related information will disappear
-in a future version of @code{gawk}.
-@xref{Future Extensions, ,Probable Future Extensions}.
+@cindex automatic warnings
+@cindex warnings, automatic
+@item
+@ifnottex
+The
+@end ifnottex
+@ifnotinfo
+As mentioned earlier, the
+@end ifnotinfo
+special files that provide process-related information are now considered
+obsolete and will disappear entirely
+in the next release of @command{gawk}.
+@command{gawk} prints a warning message every time you use one of
+these files.
+@ifnottex
+To obtain process-related information, use the @code{PROCINFO} array.
+@xref{Built-in Variables}.
+@end ifnottex
+
+@item
+Starting with @value{PVERSION} 3.1, @command{gawk} @emph{always}
+interprets these special @value{FN}s.@footnote{Older versions of
+@command{gawk} would only interpret these names internally if the system
+did not actually have a a @file{/dev/fd} directory or any of the other
+above listed special files. Usually this didn't make a difference,
+but sometimes it did; thus, it was decided to make @command{gawk}'s
+behavior consistent on all systems and to have it always interpret
+the special @value{FN}s itself.}
+For example, using @samp{/dev/fd/4}
+for output actually writes on file descriptor 4, and not on a new
+file descriptor that is @code{dup}'ed from file descriptor 4. Most of
+the time this does not matter; however, it is important to @emph{not}
+close any of the files related to file descriptors 0, 1, and 2.
+Doing so results in unpredictable behavior.
+@end itemize
@node Close Files And Pipes, , Special Files, Printing
-@section Closing Input and Output Files and Pipes
+@section Closing Input and Output Redirections
@cindex closing input files and pipes
@cindex closing output files and pipes
-@findex close
-
-If the same file name or the same shell command is used with
-@code{getline}
-(@pxref{Getline, ,Explicit Input with @code{getline}})
-more than once during the execution of an @code{awk}
-program, the file is opened (or the command is executed) only the first time.
+@cindex closing coprocesses
+@cindex coprocess
+@cindex @code{close} built-in function
+
+If the same @value{FN} or the same shell command is used with @code{getline}
+more than once during the execution of an @command{awk} program
+(@pxref{Getline, ,Explicit Input with @code{getline}}),
+the file is opened (or the command is executed) the first time only.
At that time, the first record of input is read from that file or command.
-The next time the same file or command is used in @code{getline}, another
-record is read from it, and so on.
+The next time the same file or command is used with @code{getline},
+another record is read from it, and so on.
-Similarly, when a file or pipe is opened for output, the file name or command
-associated with
-it is remembered by @code{awk} and subsequent writes to the same file or
-command are appended to the previous writes. The file or pipe stays
-open until @code{awk} exits.
+Similarly, when a file or pipe is opened for output, the @value{FN} or
+command associated with it is remembered by @command{awk}, and subsequent
+writes to the same file or command are appended to the previous writes.
+The file or pipe stays open until @command{awk} exits.
-This implies that if you want to start reading the same file again from
-the beginning, or if you want to rerun a shell command (rather than
-reading more output from the command), you must take special steps.
-What you must do is use the @code{close} function, as follows:
+This implies that special steps are necessary in order to read the same
+file again from the beginning, or to rerun a shell command (rather than
+reading more output from the same command). The @code{close} function
+makes these things possible:
@example
close(@var{filename})
@end example
@noindent
-or
+or:
@example
close(@var{command})
@@ -5601,12 +6617,11 @@ close("sort -r names")
Once this function call is executed, the next @code{getline} from that
file or command, or the next @code{print} or @code{printf} to that
-file or command, will reopen the file or rerun the command.
-
+file or command, reopens the file or reruns the command.
Because the expression that you use to close a file or pipeline must
exactly match the expression used to open the file or run the command,
-it is good practice to use a variable to store the file name or command.
-The previous example would become
+it is good practice to use a variable to store the @value{FN} or command.
+The previous example becomes the following:
@example
sortcom = "sort -r names"
@@ -5616,77 +6631,170 @@ close(sortcom)
@end example
@noindent
-This helps avoid hard-to-find typographical errors in your @code{awk}
-programs.
-
-Here are some reasons why you might need to close an output file:
+This helps avoid hard-to-find typographical errors in your @command{awk}
+programs. Here are some of the reasons for closing an output file:
@itemize @bullet
@item
-To write a file and read it back later on in the same @code{awk}
-program. Close the file when you are finished writing it; then
-you can start reading it with @code{getline}.
+To write a file and read it back later on in the same @command{awk}
+program. Close the file after writing it, then
+begin reading it with @code{getline}.
@item
-To write numerous files, successively, in the same @code{awk}
-program. If you don't close the files, eventually you may exceed a
-system limit on the number of open files in one process. So close
-each one when you are finished writing it.
+To write numerous files, successively, in the same @command{awk}
+program. If the files aren't closed, eventually @command{awk} may exceed a
+system limit on the number of open files in one process. It is best to
+close each one when the program has finished writing it.
@item
-To make a command finish. When you redirect output through a pipe,
+To make a command finish. When output is redirected through a pipe,
the command reading the pipe normally continues to try to read input
as long as the pipe is open. Often this means the command cannot
-really do its work until the pipe is closed. For example, if you
-redirect output to the @code{mail} program, the message is not
+really do its work until the pipe is closed. For example, if
+output is redirected to the @command{mail} program, the message is not
actually sent until the pipe is closed.
-@c NEEDED
-@page
@item
To run the same program a second time, with the same arguments.
This is not the same thing as giving more input to the first run!
-For example, suppose you pipe output to the @code{mail} program. If you
-output several lines redirected to this pipe without closing it, they make
-a single message of several lines. By contrast, if you close the pipe
-after each line of output, then each line makes a separate message.
+For example, suppose a program pipes output to the @command{mail} program.
+If it outputs several lines redirected to this pipe without closing
+it, they make a single message of several lines. By contrast, if the
+program closes the pipe after each line of output, then each line makes
+a separate message.
@end itemize
-@vindex ERRNO
-@cindex differences between @code{gawk} and @code{awk}
-@code{close} returns a value of zero if the close succeeded.
-Otherwise, the value will be non-zero.
-In this case, @code{gawk} sets the variable @code{ERRNO} to a string
-describing the error that occurred.
-
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
@cindex portability issues
If you use more files than the system allows you to have open,
-@code{gawk} will attempt to multiplex the available open files among
-your data files. @code{gawk}'s ability to do this depends upon the
-facilities of your operating system: it may not always work. It is
+@command{gawk} attempts to multiplex the available open files among
+your @value{DF}s. @command{gawk}'s ability to do this depends upon the
+facilities of your operating system, so it may not always work. It is
therefore both good practice and good portability advice to always
use @code{close} on your files when you are done with them.
+In fact, if you are using a lot of pipes, it is essential that
+you close commands when done. For example, consider something like this:
+
+@example
+@{
+ @dots{}
+ command = ("grep " $1 " /some/file | my_prog -q " $3)
+ while ((command | getline) > 0) @{
+ @var{process output of} command
+ @}
+ # need close(command) here
+@}
+@end example
+
+This example creates a new pipeline based on data in @emph{each} record.
+Without the call to @code{close} indicated in the comment, @command{awk}
+creates child processes to run the commands, until it eventually
+runs out of file descriptors for more pipelines.
+
+Even though each command has finished (as indicated by the end-of-file
+return status from @code{getline}), the child process is not
+terminated;@footnote{The technical terminology is rather morbid.
+The finished child is called a ``zombie,'' and cleaning up after
+it is referred to as ``reaping.''}
+@c Good old UNIX: give the marketing guys fits, that's the ticket
+more importantly, the file descriptor for the pipe
+is not closed and released until @code{close} is called or
+@command{awk} exits.
+
+@code{close} will silently do nothing if given an argument that
+does not represent a file, pipe or coprocess that was opened with
+a redirection.
+
+When using the @samp{|&} operator to communicate with a coprocess,
+it is occasionally useful to be able to close one end of the two-way
+pipe without closing the other.
+This is done by supplying a second argument to @code{close}.
+As in any other call to @code{close},
+the first argument is the name of the command or special file used
+to start the coprocess.
+The second argument should be a string, with either of the values
+@code{"to"} or @code{"from"}. Case does not matter.
+As this is an advanced feature, a more complete discussion is
+delayed until
+@ref{Two-way I/O, ,Two-Way Communications with Another Process},
+which discusses it in more detail and gives an example.
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Using @code{close}'s Return Value
+@cindex advanced notes
+@cindex dark corner
+@cindex differences between @command{gawk} and @command{awk}
+@cindex @code{close}, return value
+@cindex return value from @code{close}
+
+In many versions of Unix @command{awk}, the @code{close} function
+is actually a statement. It is a syntax error to try and use the return
+value from @code{close}:
+@value{DARKCORNER}
+
+@example
+command = "@dots{}"
+command | getline info
+retval = close(command) # syntax error in most Unix awks
+@end example
+
+@command{gawk} treats @code{close} as a function.
+The return value is @minus{}1 if the argument names something
+that was never opened with a redirection, or if there is
+a system problem closing the file or process.
+In these cases, @command{gawk} sets the built-in variable
+@code{ERRNO} to a string describing the problem.
+
+In @command{gawk},
+when closing a pipe or coprocess,
+the return value is the exit status of the command.
+Otherwise, it is the return value from the system's @code{close} or
+@code{fclose} C functions when closing input or output
+files, respectively.
+This value is zero if the close succeeds, or @minus{}1 if
+it fails.
+
+The return value for closing a pipeline is particularly useful.
+It allows you to get the output from a command as well as its
+exit status.
+
+For POSIX-compliant systems,
+if the exit status is a number above 128, then the program
+was terminated by a signal. Subtract 128 to get the signal number:
+
+@example
+exit_val = close(command)
+if (exit_val > 128)
+ print command, "died with signal", exit_val - 128
+else
+ print command, "exited with code", exit_val
+@end example
+
+Currently, in @command{gawk}, this only works for commands
+piping into @code{getline}. For commands piped into
+from @code{print} or @code{printf}, the
+return value from @code{close} is that of the library's
+@code{pclose} function.
@node Expressions, Patterns and Actions, Printing, Top
@chapter Expressions
@cindex expression
-Expressions are the basic building blocks of @code{awk} patterns
-and actions. An expression evaluates to a value, which you can print, test,
-store in a variable or pass to a function. Additionally, an expression
-can assign a new value to a variable or a field, with an assignment operator.
+Expressions are the basic building blocks of @command{awk} patterns
+and actions. An expression evaluates to a value that you can print, test,
+or pass to a function. Additionally, an expression
+can assign a new value to a variable or a field by using an assignment operator.
An expression can serve as a pattern or action statement on its own.
Most other kinds of
-statements contain one or more expressions which specify data on which to
-operate. As in other languages, expressions in @code{awk} include
+statements contain one or more expressions that specify the data on which to
+operate. As in other languages, expressions in @command{awk} include
variables, array references, constants, and function calls, as well as
combinations of these with various operators.
@menu
-* Constants:: String, numeric, and regexp constants.
+* Constants:: String, numeric and regexp constants.
* Using Constant Regexps:: When and how to use a regexp constant.
* Variables:: Variables give names to values for later use.
* Conversion:: The conversion of strings to numbers and vice
@@ -5697,7 +6805,7 @@ combinations of these with various operators.
* Assignment Ops:: Changing the value of a variable or a field.
* Increment Ops:: Incrementing the numeric value of a variable.
* Truth Values:: What is ``true'' and what is ``false''.
-* Typing and Comparison:: How variables acquire types, and how this
+* Typing and Comparison:: How variables acquire types and how this
affects comparison of numbers and strings with
@samp{<}, etc.
* Boolean Ops:: Combining comparison expressions using boolean
@@ -5713,27 +6821,33 @@ combinations of these with various operators.
@node Constants, Using Constant Regexps, Expressions, Expressions
@section Constant Expressions
@cindex constants, types of
-@cindex string constants
The simplest type of expression is the @dfn{constant}, which always has
-the same value. There are three types of constants: numeric constants,
-string constants, and regular expression constants.
+the same value. There are three types of constants: numeric,
+string, and regular expression.
+
+Each is used in the appropriate context when you need a data
+value that isn't going to change. Numeric constants can
+have different forms, but are stored identically internally.
@menu
* Scalar Constants:: Numeric and string constants.
+* Non-decimal-numbers:: What are octal and hex numbers.
* Regexp Constants:: Regular Expression constants.
@end menu
-@node Scalar Constants, Regexp Constants, Constants, Constants
+@node Scalar Constants, Non-decimal-numbers, Constants, Constants
@subsection Numeric and String Constants
@cindex numeric constant
@cindex numeric value
A @dfn{numeric constant} stands for a number. This number can be an
integer, a decimal fraction, or a number in scientific (exponential)
-notation.@footnote{The internal representation uses double-precision
-floating point numbers. If you don't know what that means, then don't
-worry about it.} Here are some examples of numeric constants, which all
+notation.@footnote{The internal representation of all numbers,
+including integers, uses double-precision
+floating-point numbers.
+On most modern systems, these are in IEEE 754 standard format.}
+Here are some examples of numeric constants that all
have the same value:
@example
@@ -5742,46 +6856,143 @@ have the same value:
1050e-1
@end example
+@cindex string constants
A string constant consists of a sequence of characters enclosed in
-double-quote marks. For example:
+double quote marks. For example:
@example
"parrot"
@end example
@noindent
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
represents the string whose contents are @samp{parrot}. Strings in
-@code{gawk} can be of any length and they can contain any of the possible
-eight-bit ASCII characters including ASCII NUL (character code zero).
-Other @code{awk}
+@command{gawk} can be of any length, and they can contain any of the possible
+eight-bit ASCII characters including ASCII @sc{nul} (character code zero).
+Other @command{awk}
implementations may have difficulty with some character codes.
-@node Regexp Constants, , Scalar Constants, Constants
+@node Non-decimal-numbers, Regexp Constants, Scalar Constants, Constants
+@subsection Octal and Hexadecimal Numbers
+@cindex octal numbers
+@cindex hexadecimal numbers
+@cindex numbers, octal
+@cindex numbers, hexadecimal
+
+In @command{awk}, all numbers are in decimal; i.e., base 10. Many other
+programming languages allow you to specify numbers in other bases, often
+octal (base 8) and hexadecimal (base 16).
+In octal, the numbers go 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, etc..
+Just as @samp{11} in decimal is 1 times 10 plus 1, so
+@samp{11} in octal is 1 times 8, plus 1. This equals nine in decimal.
+In hexadecimal, there are 16 digits. Since the everyday decimal
+number system only has ten digits (@samp{0}---@samp{9}), the letters
+@samp{a} through @samp{f} are used to represent the rest.
+(Case in the letters is usually irrelevant; hexadecimal @samp{a} and @samp{A}
+have the same value.)
+Thus, @samp{11} in
+hexadecimal is 1 times 16 plus 1, which equals 17 in decimal.
+
+Just by looking at plain @samp{11}, you can't tell what base it's in.
+So, in C, C++, and other languages derived from C,
+@c such as PERL, but we won't mention that....
+there is a special notation to help signify the base.
+Octal numbers start with a leading @samp{0},
+and hexadecimal numbers start with a leading @samp{0x} or @samp{0X}:
+
+@table @code
+@item 11
+Decimal 11.
+
+@item 011
+Octal 11, decimal value 9.
+
+@item 0x11
+Hexadecimal 11, decimal value 17.
+@end table
+
+This example shows the difference:
+
+@example
+$ gawk 'BEGIN @{ printf "%d, %d, %d\n", 011, 11, 0x11 @}'
+@print{} 9, 11, 17
+@end example
+
+Being able to use octal and hexadecimal constants in your programs is most
+useful when working with data that cannot be represented conveniently as
+characters or as regular numbers, such as binary data of various sorts.
+
+@command{gawk} allows the use of octal and hexadecimal
+constants in your program text. However, such numbers in the input data
+are not treated differently; doing so by default would break old
+programs.
+(If you really need to do this, use the @option{--non-decimal-data}
+command-line option,
+@pxref{Non-decimal Data, ,Allowing Non-Decimal Input Data}.)
+If you have octal or hexadecimal data,
+you can use the @code{strtonum} function
+(@pxref{String Functions, ,String Manipulation Functions})
+to convert the data into a number.
+Most of the time, you will want to use octal or hexadecimal constants
+when working with the built-in bit manipulation functions;
+see @ref{Bitwise Functions, ,Using @command{gawk}'s Bit Manipulation Functions},
+for more information.
+
+Unlike some early C implementations, @samp{8} and @samp{9} are not valid
+in octal constants; e.g., @command{gawk} treats @samp{018} as decimal 18.
+
+@example
+$ gawk 'BEGIN @{ print "021 is", 021 ; print 018 @}'
+@print{} 021 is 17
+@print{} 18
+@end example
+
+Octal and hexadecimal source code constants are a @command{gawk} extension.
+If @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+they are not available.
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: A Constant's Base Does Not Affect Its Value
+@cindex advanced notes
+
+Once a numeric constant has
+been converted internally into a number,
+@command{gawk} no longer remembers
+what the original form of the constant was; the internal value is
+always used. This has particular consequences for conversion of
+numbers to strings:
+
+@example
+$ gawk 'BEGIN @{ printf "0x11 is <%s>\n", 0x11 @}'
+@print{} 0x11 is <17>
+@end example
+
+@node Regexp Constants, , Non-decimal-numbers, Constants
@subsection Regular Expression Constants
@cindex @code{~} operator
@cindex @code{!~} operator
A regexp constant is a regular expression description enclosed in
slashes, such as @code{@w{/^beginning and end$/}}. Most regexps used in
-@code{awk} programs are constant, but the @samp{~} and @samp{!~}
+@command{awk} programs are constant, but the @samp{~} and @samp{!~}
matching operators can also match computed or ``dynamic'' regexps
(which are just ordinary strings or variables that contain a regexp).
@node Using Constant Regexps, Variables, Constants, Expressions
@section Using Regular Expression Constants
-When used on the right hand side of the @samp{~} or @samp{!~}
+@cindex dark corner
+When used on the righthand side of the @samp{~} or @samp{!~}
operators, a regexp constant merely stands for the regexp that is to be
matched.
-
-@cindex dark corner
-Regexp constants (such as @code{/foo/}) may be used like simple expressions.
+However, regexp constants (such as @code{/foo/}) may be used like simple expressions.
When a
regexp constant appears by itself, it has the same meaning as if it appeared
-in a pattern, i.e.@: @samp{($0 ~ /foo/)} (d.c.)
-(@pxref{Expression Patterns, ,Expressions as Patterns}).
-This means that the two code segments,
+in a pattern, i.e.; @samp{($0 ~ /foo/)}
+@value{DARKCORNER}
+@xref{Expression Patterns, ,Expressions as Patterns}.
+This means that the following two code segments:
@example
if ($0 ~ /barfly/ || $0 ~ /camelot/)
@@ -5789,7 +7000,7 @@ if ($0 ~ /barfly/ || $0 ~ /camelot/)
@end example
@noindent
-and
+and:
@example
if (/barfly/ || /camelot/)
@@ -5798,9 +7009,8 @@ if (/barfly/ || /camelot/)
@noindent
are exactly equivalent.
-
One rather bizarre consequence of this rule is that the following
-boolean expression is valid, but does not do what the user probably
+Boolean expression is valid, but does not do what the user probably
intended:
@example
@@ -5808,48 +7018,46 @@ intended:
if (/foo/ ~ $1) print "found foo"
@end example
+@cindex automatic warnings
+@cindex warnings, automatic
@noindent
This code is ``obviously'' testing @code{$1} for a match against the regexp
@code{/foo/}. But in fact, the expression @samp{/foo/ ~ $1} actually means
@samp{($0 ~ /foo/) ~ $1}. In other words, first match the input record
-against the regexp @code{/foo/}. The result will be either zero or one,
-depending upon the success or failure of the match. Then match that result
-against the first field in the record.
-
-Since it is unlikely that you would ever really wish to make this kind of
-test, @code{gawk} will issue a warning when it sees this construct in
+against the regexp @code{/foo/}. The result is either zero or one,
+depending upon the success or failure of the match. That result
+is then matched against the first field in the record.
+Because it is unlikely that you would ever really want to make this kind of
+test, @command{gawk} issues a warning when it sees this construct in
a program.
-
-Another consequence of this rule is that the assignment statement
+Another consequence of this rule is that the assignment statement:
@example
matches = /foo/
@end example
@noindent
-will assign either zero or one to the variable @code{matches}, depending
+assigns either zero or one to the variable @code{matches}, depending
upon the contents of the current input record.
-
-This feature of the language was never well documented until the
+This feature of the language has never been well documented until the
POSIX specification.
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
@cindex dark corner
Constant regular expressions are also used as the first argument for
-the @code{gensub}, @code{sub} and @code{gsub} functions, and as the
+the @code{gensub}, @code{sub}, and @code{gsub} functions, and as the
second argument of the @code{match} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
-Modern implementations of @code{awk}, including @code{gawk}, allow
-the third argument of @code{split} to be a regexp constant, while some
-older implementations do not (d.c.).
-
+(@pxref{String Functions, ,String Manipulation Functions}).
+Modern implementations of @command{awk}, including @command{gawk}, allow
+the third argument of @code{split} to be a regexp constant, but some
+older implementations do not.
+@value{DARKCORNER}
This can lead to confusion when attempting to use regexp constants
as arguments to user defined functions
-(@pxref{User-defined, , User-defined Functions}).
+(@pxref{User-defined, ,User-Defined Functions}).
For example:
@example
-@group
function mysub(pat, repl, str, global)
@{
if (global)
@@ -5858,40 +7066,38 @@ function mysub(pat, repl, str, global)
sub(pat, repl, str)
return str
@}
-@end group
-@group
@{
@dots{}
text = "hi! hi yourself!"
mysub(/hi/, "howdy", text, 1)
@dots{}
@}
-@end group
@end example
-In this example, the programmer wishes to pass a regexp constant to the
-user-defined function @code{mysub}, which will in turn pass it on to
+@cindex automatic warnings
+@cindex warnings, automatic
+In this example, the programmer wants to pass a regexp constant to the
+user-defined function @code{mysub}, which in turn passes it on to
either @code{sub} or @code{gsub}. However, what really happens is that
-the @code{pat} parameter will be either one or zero, depending upon whether
+the @code{pat} parameter is either one or zero, depending upon whether
or not @code{$0} matches @code{/hi/}.
-
-As it is unlikely that you would ever really wish to pass a truth value
-in this way, @code{gawk} will issue a warning when it sees a regexp
-constant used as a parameter to a user-defined function.
+@command{gawk} issues a warning when it sees a regexp constant used as
+a parameter to a user-defined function, since passing a truth value in
+this way is probably not what was intended.
@node Variables, Conversion, Using Constant Regexps, Expressions
@section Variables
Variables are ways of storing values at one point in your program for
-use later in another part of your program. You can manipulate them
-entirely within your program text, and you can also assign values to
-them on the @code{awk} command line.
+use later in another part of your program. They can be manipulated
+entirely within the program text, and they can also be assigned values
+on the @command{awk} command line.
@menu
* Using Variables:: Using variables in your programs.
-* Assignment Options:: Setting variables on the command line and a
- summary of command line syntax. This is an
+* Assignment Options:: Setting variables on the command-line and a
+ summary of command-line syntax. This is an
advanced method of input.
@end menu
@@ -5900,62 +7106,63 @@ them on the @code{awk} command line.
@cindex variables, user-defined
@cindex user-defined variables
-Variables let you give names to values and refer to them later. You have
-already seen variables in many of the examples. The name of a variable
-must be a sequence of letters, digits and underscores, but it may not begin
+Variables let you give names to values and refer to them later. Variables
+have already been used in many of the examples. The name of a variable
+must be a sequence of letters, digits, or underscores, and it may not begin
with a digit. Case is significant in variable names; @code{a} and @code{A}
are distinct variables.
A variable name is a valid expression by itself; it represents the
variable's current value. Variables are given new values with
-@dfn{assignment operators}, @dfn{increment operators} and
+@dfn{assignment operators}, @dfn{increment operators}, and
@dfn{decrement operators}.
@xref{Assignment Ops, ,Assignment Expressions}.
+@c NEXT ED: Can also be changed by sub, gsub, split
-A few variables have special built-in meanings, such as @code{FS}, the
-field separator, and @code{NF}, the number of fields in the current
-input record. @xref{Built-in Variables}, for a list of them. These
-built-in variables can be used and assigned just like all other
+A few variables have special built-in meanings, such as @code{FS} (the
+field separator), and @code{NF} (the number of fields in the current input
+record). @xref{Built-in Variables}, for a list of the built-in variables.
+These built-in variables can be used and assigned just like all other
variables, but their values are also used or changed automatically by
-@code{awk}. All built-in variables names are entirely upper-case.
+@command{awk}. All built-in variables' names are entirely uppercase.
-Variables in @code{awk} can be assigned either numeric or string
-values. By default, variables are initialized to the empty string, which
+Variables in @command{awk} can be assigned either numeric or string values.
+The kind of value a variable holds can change over the life of a program.
+By default, variables are initialized to the empty string, which
is zero if converted to a number. There is no need to
-``initialize'' each variable explicitly in @code{awk},
-the way you would in C and in most other traditional languages.
+``initialize'' each variable explicitly in @command{awk},
+which is what you would do in C and in most other traditional languages.
-@node Assignment Options, , Using Variables, Variables
+@node Assignment Options, , Using Variables, Variables
@subsection Assigning Variables on the Command Line
-You can set any @code{awk} variable by including a @dfn{variable assignment}
-among the arguments on the command line when you invoke @code{awk}
-(@pxref{Other Arguments, ,Other Command Line Arguments}). Such an assignment has
-this form:
+Any @command{awk} variable can be set by including a @dfn{variable assignment}
+among the arguments on the command line when @command{awk} is invoked
+(@pxref{Other Arguments, ,Other Command-Line Arguments}).
+Such an assignment has the following form:
@example
@var{variable}=@var{text}
@end example
@noindent
-With it, you can set a variable either at the beginning of the
-@code{awk} run or in between input files.
-
-If you precede the assignment with the @samp{-v} option, like this:
+With it, a variable is set either at the beginning of the
+@command{awk} run or in between input files.
+When the assignment is preceded with the @option{-v} option,
+as in the following:
@example
-v @var{variable}=@var{text}
@end example
@noindent
-then the variable is set at the very beginning, before even the
-@code{BEGIN} rules are run. The @samp{-v} option and its assignment
-must precede all the file name arguments, as well as the program text.
-(@xref{Options, ,Command Line Options}, for more information about
-the @samp{-v} option.)
-
+the variable is set at the very beginning, even before the
+@code{BEGIN} rules are run. The @option{-v} option and its assignment
+must precede all the @value{FN} arguments, as well as the program text.
+(@xref{Options, ,Command-Line Options}, for more information about
+the @option{-v} option.)
Otherwise, the variable assignment is performed at a time determined by
-its position among the input file arguments: after the processing of the
+its position among the input file arguments---after the processing of the
preceding input file argument. For example:
@example
@@ -5968,10 +7175,9 @@ the first file is read, the command line sets the variable @code{n}
equal to four. This causes the fourth field to be printed in lines from
the file @file{inventory-shipped}. After the first file has finished,
but before the second file is started, @code{n} is set to two, so that the
-second field is printed in lines from @file{BBS-list}.
+second field is printed in lines from @file{BBS-list}:
@example
-@group
$ awk '@{ print $n @}' n=4 inventory-shipped n=2 BBS-list
@print{} 15
@print{} 24
@@ -5979,27 +7185,27 @@ $ awk '@{ print $n @}' n=4 inventory-shipped n=2 BBS-list
@print{} 555-5553
@print{} 555-3412
@dots{}
-@end group
@end example
-Command line arguments are made available for explicit examination by
-the @code{awk} program in an array named @code{ARGV}
-(@pxref{ARGC and ARGV, ,Using @code{ARGC} and @code{ARGV}}).
-
@cindex dark corner
-@code{awk} processes the values of command line assignments for escape
-sequences (d.c.) (@pxref{Escape Sequences}).
+Command-line arguments are made available for explicit examination by
+the @command{awk} program in an array named @code{ARGV}
+(@pxref{ARGC and ARGV, ,Using @code{ARGC} and @code{ARGV}}).
+@command{awk} processes the values of command-line assignments for escape
+sequences
+@value{DARKCORNER}
+(@pxref{Escape Sequences}).
@node Conversion, Arithmetic Ops, Variables, Expressions
@section Conversion of Strings and Numbers
@cindex conversion of strings and numbers
-Strings are converted to numbers, and numbers to strings, if the context
-of the @code{awk} program demands it. For example, if the value of
+Strings are converted to numbers and numbers are converted to strings, if the context
+of the @command{awk} program demands it. For example, if the value of
either @code{foo} or @code{bar} in the expression @samp{foo + bar}
happens to be a string, it is converted to a number before the addition
is performed. If numeric values appear in string concatenation, they
-are converted to strings. Consider this:
+are converted to strings. Consider the following:
@example
two = 2; three = 3
@@ -6009,7 +7215,7 @@ print (two three) + 4
@noindent
This prints the (numeric) value 27. The numeric values of
the variables @code{two} and @code{three} are converted to strings and
-concatenated together, and the resulting string is converted back to the
+concatenated together. The resulting string is converted back to the
number 23, to which four is then added.
@cindex null string
@@ -6018,33 +7224,34 @@ number 23, to which four is then added.
If, for some reason, you need to force a number to be converted to a
string, concatenate the empty string, @code{""}, with that number.
To force a string to be converted to a number, add zero to that string.
-
A string is converted to a number by interpreting any numeric prefix
of the string as numerals:
@code{"2.5"} converts to 2.5, @code{"1e3"} converts to 1000, and @code{"25fix"}
has a numeric value of 25.
-Strings that can't be interpreted as valid numbers are converted to
-zero.
+Strings that can't be interpreted as valid numbers convert to zero.
-@vindex CONVFMT
+@cindex @code{CONVFMT} variable
The exact manner in which numbers are converted into strings is controlled
-by the @code{awk} built-in variable @code{CONVFMT} (@pxref{Built-in Variables}).
+by the @command{awk} built-in variable @code{CONVFMT} (@pxref{Built-in Variables}).
Numbers are converted using the @code{sprintf} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation})
with @code{CONVFMT} as the format
-specifier.
+specifier
+(@pxref{String Functions, ,String Manipulation Functions}).
@code{CONVFMT}'s default value is @code{"%.6g"}, which prints a value with
-at least six significant digits. For some applications you will want to
-change it to specify more precision. On most modern machines, you must
-print 17 digits to capture a floating point number's value exactly.
-
-Strange results can happen if you set @code{CONVFMT} to a string that doesn't
-tell @code{sprintf} how to format floating point numbers in a useful way.
-For example, if you forget the @samp{%} in the format, all numbers will be
-converted to the same constant string.
+at least six significant digits. For some applications, you might want to
+change it to specify more precision.
+On most modern machines,
+17 digits is enough to capture a floating-point number's
+value exactly,
+most of the time.@footnote{Pathological cases can require up to
+752 digits (!), but we doubt that you need to worry about this.}
@cindex dark corner
+Strange results can occur if you set @code{CONVFMT} to a string that doesn't
+tell @code{sprintf} how to format floating-point numbers in a useful way.
+For example, if you forget the @samp{%} in the format, @command{awk} converts
+all numbers to the same constant string.
As a special case, if a number is an integer, then the result of converting
it to a string is @emph{always} an integer, no matter what the value of
@code{CONVFMT} may be. Given the following code fragment:
@@ -6056,21 +7263,23 @@ b = a ""
@end example
@noindent
-@code{b} has the value @code{"12"}, not @code{"12.00"} (d.c.).
-
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-@vindex OFMT
-Prior to the POSIX standard, @code{awk} specified that the value
-of @code{OFMT} was used for converting numbers to strings. @code{OFMT}
+@code{b} has the value @code{"12"}, not @code{"12.00"}.
+@value{DARKCORNER}
+
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@cindex @code{OFMT} variable
+Prior to the POSIX standard, @command{awk} used the value
+of @code{OFMT} for converting numbers to strings. @code{OFMT}
specifies the output format to use when printing numbers with @code{print}.
@code{CONVFMT} was introduced in order to separate the semantics of
conversion from the semantics of printing. Both @code{CONVFMT} and
@code{OFMT} have the same default value: @code{"%.6g"}. In the vast majority
-of cases, old @code{awk} programs will not change their behavior.
-However, this use of @code{OFMT} is something to keep in mind if you must
-port your program to other implementations of @code{awk}; we recommend
-that instead of changing your programs, you just port @code{gawk} itself!
+of cases, old @command{awk} programs do not change their behavior.
+However, these semantics for @code{OFMT} are something to keep in mind if you must
+port your new style program to older implementations of @command{awk}.
+We recommend
+that instead of changing your programs, just port @command{gawk} itself.
@xref{Print, ,The @code{print} Statement},
for more information on the @code{print} statement.
@@ -6086,17 +7295,13 @@ for more information on the @code{print} statement.
@cindex quotient
@cindex exponentiation
-The @code{awk} language uses the common arithmetic operators when
+The @command{awk} language uses the common arithmetic operators when
evaluating expressions. All of these arithmetic operators follow normal
-precedence rules, and work as you would expect them to. Arithmetic
-operations are evaluated using double precision floating point, which
-has the usual problems of inexactness and exceptions.@footnote{David
-Goldberg, @uref{http://www.validgh.com/goldberg/paper.ps, @cite{What Every
-Computer Scientist Should Know About Floating-point Arithmetic}},
-@cite{ACM Computing Surveys} @strong{23}, 1 (1991-03), 5-48.}
+precedence rules and work as you would expect them to.
-Here is a file @file{grades} containing a list of student names and
-three test scores per student (it's a small class):
+The following example uses a file named @file{grades}, which contains
+a list of student names as well as three test scores per student (it's
+a small class):
@example
Pat 100 97 58
@@ -6105,8 +7310,8 @@ Chris 72 92 89
@end example
@noindent
-This programs takes the file @file{grades}, and prints the average
-of the scores.
+This programs takes the file @file{grades} and prints the average
+of the scores:
@example
$ awk '@{ sum = $2 + $3 + $4 ; avg = sum / 3
@@ -6116,39 +7321,58 @@ $ awk '@{ sum = $2 + $3 + $4 ; avg = sum / 3
@print{} Chris 84.3333
@end example
-This table lists the arithmetic operators in @code{awk}, in order from
-highest precedence to lowest:
+The following list provides the arithmetic operators in @command{awk}, in order from
+the highest precedence to the lowest:
-@c @cartouche
@table @code
@item - @var{x}
Negation.
@item + @var{x}
-Unary plus. The expression is converted to a number.
+Unary plus; the expression is converted to a number.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@item @var{x} ^ @var{y}
@itemx @var{x} ** @var{y}
-Exponentiation: @var{x} raised to the @var{y} power. @samp{2 ^ 3} has
-the value eight. The character sequence @samp{**} is equivalent to
-@samp{^}. (The POSIX standard only specifies the use of @samp{^}
-for exponentiation.)
+Exponentiation; @var{x} raised to the @var{y} power. @samp{2 ^ 3} has
+the value eight; the character sequence @samp{**} is equivalent to
+@samp{^}.
@item @var{x} * @var{y}
Multiplication.
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
@item @var{x} / @var{y}
-Division. Since all numbers in @code{awk} are
-floating point numbers, the result is not rounded to an integer: @samp{3 / 4}
-has the value 0.75.
+Division; because all numbers in @command{awk} are floating-point
+numbers, the result is @emph{not} rounded to an integer---@samp{3 / 4} has
+the value 0.75. (It is a common mistake, especially for C programmers,
+to forget that @emph{all} numbers in @command{awk} are floating-point,
+and that division of integer-looking constants produces a real number,
+not an integer.)
@item @var{x} % @var{y}
-@cindex differences between @code{gawk} and @code{awk}
-Remainder. The quotient is rounded toward zero to an integer,
-multiplied by @var{y} and this result is subtracted from @var{x}.
-This operation is sometimes known as ``trunc-mod.'' The following
+Remainder; further discussion is provided in the text, just
+after this list.
+
+@item @var{x} + @var{y}
+Addition.
+
+@item @var{x} - @var{y}
+Subtraction.
+@end table
+
+Unary plus and minus have the same precedence,
+the multiplication operators all have the same precedence, and
+addition and subtraction have the same precedence.
+
+@cindex differences between @command{gawk} and @command{awk}
+When computing the remainder of @code{@var{x} % @var{y}},
+the quotient is rounded toward zero to an integer and
+multiplied by @var{y}. This result is subtracted from @var{x};
+this operation is sometimes known as ``trunc-mod.'' The following
relation always holds:
@example
@@ -6156,38 +7380,29 @@ b * int(a / b) + (a % b) == a
@end example
One possibly undesirable effect of this definition of remainder is that
-@code{@var{x} % @var{y}} is negative if @var{x} is negative. Thus,
+@code{@var{x} % @var{y}} is negative if @var{x} is negative. Thus:
@example
-17 % 8 = -1
@end example
-In other @code{awk} implementations, the signedness of the remainder
+In other @command{awk} implementations, the signedness of the remainder
may be machine dependent.
@c !!! what does posix say?
-@item @var{x} + @var{y}
-Addition.
-
-@item @var{x} - @var{y}
-Subtraction.
-@end table
-@c @end cartouche
-
+@cindex portability issues
+@strong{Note:}
+The POSIX standard only specifies the use of @samp{^}
+for exponentiation.
For maximum portability, do not use the @samp{**} operator.
-Unary plus and minus have the same precedence,
-the multiplication operators all have the same precedence, and
-addition and subtraction have the same precedence.
-
@node Concatenation, Assignment Ops, Arithmetic Ops, Expressions
@section String Concatenation
@cindex Kernighan, Brian
-@display
-@i{It seemed like a good idea at the time.}
+@quotation
+@i{It seemed like a good idea at the time.}@*
Brian Kernighan
-@end display
-@sp 1
+@end quotation
@cindex string operators
@cindex operators, string
@@ -6197,39 +7412,35 @@ specific operator to represent it. Instead, concatenation is performed by
writing expressions next to one another, with no operator. For example:
@example
-@group
$ awk '@{ print "Field number one: " $1 @}' BBS-list
@print{} Field number one: aardvark
@print{} Field number one: alpo-net
@dots{}
-@end group
@end example
Without the space in the string constant after the @samp{:}, the line
-would run together. For example:
+runs together. For example:
@example
-@group
$ awk '@{ print "Field number one:" $1 @}' BBS-list
@print{} Field number one:aardvark
@print{} Field number one:alpo-net
@dots{}
-@end group
@end example
-Since string concatenation does not have an explicit operator, it is
-often necessary to insure that it happens where you want it to by
-using parentheses to enclose
-the items to be concatenated. For example, the
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+Because string concatenation does not have an explicit operator, it is
+often necessary to insure that it happens at the right time by using
+parentheses to enclose the items to concatenate. For example, the
following code fragment does not concatenate @code{file} and @code{name}
as you might expect:
@example
-@group
file = "file"
name = "name"
print "something meaningful" > file name
-@end group
@end example
@noindent
@@ -6239,8 +7450,84 @@ It is necessary to use the following:
print "something meaningful" > (file name)
@end example
-We recommend that you use parentheses around concatenation in all but the
-most common contexts (such as on the right-hand side of @samp{=}).
+@cindex order of evaluation, concatenation
+@cindex concatenation evaluation order
+@cindex evaluation, order of
+@cindex side effects
+Parentheses should be used around concatenation in all but the
+most common contexts, such as on the righthand side of @samp{=}.
+Be careful about the kinds of expressions used in string concatenation.
+In particular, the order of evaluation of expressions used for concatenation
+is undefined in the @command{awk} language. Consider this example:
+
+@example
+BEGIN @{
+ a = "don't"
+ print (a " " (a = "panic"))
+@}
+@end example
+
+@noindent
+It is not defined whether the assignment to @code{a} happens
+before or after the value of @code{a} is retrieved for producing the
+concatenated value. The result could be either @samp{don't panic},
+or @samp{panic panic}.
+@c see test/nasty.awk for a worse example
+The precedence of concatenation, when mixed with other operators, is often
+counter-intuitive. Consider this example:
+
+@ignore
+> To: bug-gnu-utils@@gnu.org
+> CC: arnold@gnu.org
+> Subject: gawk 3.0.4 bug with {print -12 " " -24}
+> From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
+> Date: Tue, 8 Feb 2000 19:56:08 -0700
+>
+> gawk 3.0.4 on NT gives me:
+>
+> prompt> cat bad.awk
+> BEGIN { print -12 " " -24; }
+>
+> prompt> gawk -f bad.awk
+> -12-24
+>
+> when I would expect
+>
+> -12 -24
+>
+> I have not investigated the source, or other implementations. The
+> bug is there on my NT and DOS versions 2.15.6 .
+@end ignore
+
+@example
+$ awk 'BEGIN @{ print -12 " " -24 @}'
+@print{} -12-24
+@end example
+
+This ``obviously'' is concatenating @minus{}12, a space, and @minus{}24.
+But where did the space disappear to?
+The answer lies in the combination of operator precedences and
+@command{awk}'s automatic conversion rules. To get the desired result,
+write the program in the following manner:
+
+@example
+$ awk 'BEGIN @{ print -12 " " (-24) @}'
+@print{} -12 -24
+@end example
+
+This forces @command{awk} to treat the @samp{-} on the @samp{-24} as unary.
+Otherwise, it's parsed as follows:
+
+@display
+ @minus{}12 (@code{"@ "} @minus{} 24)
+@result{} @minus{}12 (0 @minus{} 24)
+@result{} @minus{}12 (@minus{}24)
+@result{} @minus{}12@minus{}24
+@end display
+
+As mentioned earlier,
+when doing concatenation, @emph{parenthesize}. Otherwise,
+you're never quite sure what you'll get.
@node Assignment Ops, Increment Ops, Concatenation, Expressions
@section Assignment Expressions
@@ -6248,8 +7535,9 @@ most common contexts (such as on the right-hand side of @samp{=}).
@cindex operators, assignment
@cindex expression, assignment
-An @dfn{assignment} is an expression that stores a new value into a
-variable. For example, let's assign the value one to the variable
+@cindex @code{=} operator
+An @dfn{assignment} is an expression that stores a (usually different)
+value into a variable. For example, let's assign the value one to the variable
@code{z}:
@example
@@ -6259,7 +7547,8 @@ z = 1
After this expression is executed, the variable @code{z} has the value one.
Whatever old value @code{z} had before the assignment is forgotten.
-Assignments can store string values also. For example, this would store
+Assignments can also store string values. For example, the
+following stores
the value @code{"this food is good"} in the variable @code{message}:
@example
@@ -6269,45 +7558,41 @@ message = "this " thing " is " predicate
@end example
@noindent
-(This also illustrates string concatenation.)
-
+@cindex side effects
+This also illustrates string concatenation.
The @samp{=} sign is called an @dfn{assignment operator}. It is the
-simplest assignment operator because the value of the right-hand
+simplest assignment operator because the value of the righthand
operand is stored unchanged.
-
-@cindex side effect
Most operators (addition, concatenation, and so on) have no effect
-except to compute a value. If you ignore the value, you might as well
-not use the operator. An assignment operator is different; it does
-produce a value, but even if you ignore the value, the assignment still
+except to compute a value. If the value isn't used, there's no reason to
+use the operator. An assignment operator is different; it does
+produce a value, but even if you ignore it, the assignment still
makes itself felt through the alteration of the variable. We call this
a @dfn{side effect}.
@cindex lvalue
@cindex rvalue
-The left-hand operand of an assignment need not be a variable
+The lefthand operand of an assignment need not be a variable
(@pxref{Variables}); it can also be a field
(@pxref{Changing Fields, ,Changing the Contents of a Field}) or
-an array element (@pxref{Arrays, ,Arrays in @code{awk}}).
+an array element (@pxref{Arrays, ,Arrays in @command{awk}}).
These are all called @dfn{lvalues},
-which means they can appear on the left-hand side of an assignment operator.
-The right-hand operand may be any expression; it produces the new value
-which the assignment stores in the specified variable, field or array
+which means they can appear on the lefthand side of an assignment operator.
+The righthand operand may be any expression; it produces the new value
+that the assignment stores in the specified variable, field, or array
element. (Such values are called @dfn{rvalues}).
@cindex types of variables
It is important to note that variables do @emph{not} have permanent types.
-The type of a variable is simply the type of whatever value it happens
+A variable's type is simply the type of whatever value it happens
to hold at the moment. In the following program fragment, the variable
@code{foo} has a numeric value at first, and a string value later on:
@example
-@group
foo = 1
print foo
foo = "bar"
print foo
-@end group
@end example
@noindent
@@ -6315,7 +7600,7 @@ When the second assignment gives @code{foo} a string value, the fact that
it previously had a numeric value is forgotten.
String values that do not begin with a digit have a numeric value of
-zero. After executing this code, the value of @code{foo} is five:
+zero. After executing the following code, the value of @code{foo} is five:
@example
foo = "a string"
@@ -6323,32 +7608,36 @@ foo = foo + 5
@end example
@noindent
-(Note that using a variable as a number and then later as a string can
-be confusing and is poor programming style. The above examples illustrate how
-@code{awk} works, @emph{not} how you should write your own programs!)
+@strong{Note:} Using a variable as a number and then later as a string
+can be confusing and is poor programming style. The previous two examples
+illustrate how @command{awk} works, @emph{not} how you should write your
+own programs!
-An assignment is an expression, so it has a value: the same value that
-is assigned. Thus, @samp{z = 1} as an expression has the value one.
-One consequence of this is that you can write multiple assignments together:
+An assignment is an expression, so it has a value---the same value that
+is assigned. Thus, @samp{z = 1} is an expression with the value one.
+One consequence of this is that you can write multiple assignments together,
+such as:
@example
-x = y = z = 0
+x = y = z = 5
@end example
@noindent
-stores the value zero in all three variables. It does this because the
-value of @samp{z = 0}, which is zero, is stored into @code{y}, and then
-the value of @samp{y = z = 0}, which is zero, is stored into @code{x}.
-
-You can use an assignment anywhere an expression is called for. For
-example, it is valid to write @samp{x != (y = 1)} to set @code{y} to one
+This example stores the value five in all three variables
+(@code{x}, @code{y}, and @code{z}).
+It does so because the
+value of @samp{z = 5}, which is five, is stored into @code{y} and then
+the value of @samp{y = z = 5}, which is five, is stored into @code{x}.
+
+Assignments may be used anywhere an expression is called for. For
+example, it is valid to write @samp{x != (y = 1)} to set @code{y} to one,
and then test whether @code{x} equals one. But this style tends to make
-programs hard to read; except in a one-shot program, you should
-not use such nesting of assignments.
+programs hard to read; such nesting of assignments should be avoided,
+except perhaps in a one-shot program.
Aside from @samp{=}, there are several other assignment operators that
do arithmetic with the old value of the variable. For example, the
-operator @samp{+=} computes a new value by adding the right-hand value
+operator @samp{+=} computes a new value by adding the righthand value
to the old value of the variable. Thus, the following assignment adds
five to the value of @code{foo}:
@@ -6364,15 +7653,14 @@ foo = foo + 5
@end example
@noindent
-Use whichever one makes the meaning of your program clearer.
+Use whichever makes the meaning of your program clearer.
There are situations where using @samp{+=} (or any assignment operator)
-is @emph{not} the same as simply repeating the left-hand operand in the
-right-hand expression. For example:
+is @emph{not} the same as simply repeating the lefthand operand in the
+righthand expression. For example:
@cindex Rankin, Pat
@example
-@group
# Thanks to Pat Rankin for this example
BEGIN @{
foo[rand()] += 5
@@ -6383,20 +7671,18 @@ BEGIN @{
for (x in bar)
print x, bar[x]
@}
-@end group
@end example
@noindent
-The indices of @code{bar} are guaranteed to be different, because
-@code{rand} will return different values each time it is called.
+The indices of @code{bar} are practically guaranteed to be different, because
+@code{rand} returns different values each time it is called.
(Arrays and the @code{rand} function haven't been covered yet.
-@xref{Arrays, ,Arrays in @code{awk}},
-and see @ref{Numeric Functions, ,Numeric Built-in Functions}, for more information).
-This example illustrates an important fact about the assignment
-operators: the left-hand expression is only evaluated @emph{once}.
-
-It is also up to the implementation as to which expression is evaluated
-first, the left-hand one or the right-hand one.
+@xref{Arrays, ,Arrays in @command{awk}},
+and see @ref{Numeric Functions}, for more information).
+This example illustrates an important fact about assignment
+operators: the lefthand expression is only evaluated @emph{once}.
+It is up to the implementation as to which expression is evaluated
+first, the lefthand or the righthand.
Consider this example:
@example
@@ -6408,14 +7694,13 @@ a[i += 2] = i + 1
The value of @code{a[3]} could be either two or four.
Here is a table of the arithmetic assignment operators. In each
-case, the right-hand operand is an expression whose value is converted
+case, the righthand operand is an expression whose value is converted
to a number.
-@c @cartouche
+@ignore
@table @code
@item @var{lvalue} += @var{increment}
-Adds @var{increment} to the value of @var{lvalue} to make the new value
-of @var{lvalue}.
+Adds @var{increment} to the value of @var{lvalue}.
@item @var{lvalue} -= @var{decrement}
Subtracts @var{decrement} from the value of @var{lvalue}.
@@ -6429,102 +7714,212 @@ Divides the value of @var{lvalue} by @var{divisor}.
@item @var{lvalue} %= @var{modulus}
Sets @var{lvalue} to its remainder by @var{modulus}.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@item @var{lvalue} ^= @var{power}
@itemx @var{lvalue} **= @var{power}
Raises @var{lvalue} to the power @var{power}.
(Only the @samp{^=} operator is specified by POSIX.)
@end table
-@c @end cartouche
+@end ignore
+
+@cindex @code{+=} operator
+@cindex @code{-=} operator
+@cindex @code{*=} operator
+@cindex @code{/=} operator
+@cindex @code{%=} operator
+@cindex @code{^=} operator
+@cindex @code{**=} operator
+@multitable {@var{lvalue} *= @var{coefficient}} {Subtracts @var{decrement} from the value of @var{lvalue}.}
+@item @var{lvalue} @code{+=} @var{increment} @tab Adds @var{increment} to the value of @var{lvalue}.
+
+@item @var{lvalue} @code{-=} @var{decrement} @tab Subtracts @var{decrement} from the value of @var{lvalue}.
+
+@item @var{lvalue} @code{*=} @var{coefficient} @tab Multiplies the value of @var{lvalue} by @var{coefficient}.
+@item @var{lvalue} @code{/=} @var{divisor} @tab Divides the value of @var{lvalue} by @var{divisor}.
+
+@item @var{lvalue} @code{%=} @var{modulus} @tab Sets @var{lvalue} to its remainder by @var{modulus}.
+
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@item @var{lvalue} @code{^=} @var{power} @tab
+@item @var{lvalue} @code{**=} @var{power} @tab Raises @var{lvalue} to the power @var{power}.
+@end multitable
+
+@cindex portability issues
+@strong{Note:}
+Only the @samp{^=} operator is specified by POSIX.
For maximum portability, do not use the @samp{**=} operator.
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Syntactic Ambiguities Between @samp{/=} and Regular Expressions
+@cindex advanced notes
+
+@c derived from email from "Nelson H. F. Beebe" <beebe@math.utah.edu>
+@c Date: Mon, 1 Sep 1997 13:38:35 -0600 (MDT)
+
+@cindex dark corner
+@cindex ambiguity, syntactic: @code{/=} operator vs. @code{/=@dots{}/} regexp constant
+@cindex syntactic ambiguity: @code{/=} operator vs. @code{/=@dots{}/} regexp constant
+@cindex @code{/=} operator vs. @code{/=@dots{}/} regexp constant
+There is a syntactic ambiguity between the @samp{/=} assignment
+operator and regexp constants whose first character is an @samp{=}.
+@value{DARKCORNER}
+This is most notable in commercial @command{awk} versions.
+For example:
+
+@example
+$ awk /==/ /dev/null
+@error{} awk: syntax error at source line 1
+@error{} context is
+@error{} >>> /= <<<
+@error{} awk: bailing out at source line 1
+@end example
+
+@noindent
+A workaround is:
+
+@example
+awk '/[=]=/' /dev/null
+@end example
+
+@command{gawk} does not have this problem,
+nor do the other
+freely-available versions described in
+@ref{Other Versions, , Other Freely Available @command{awk} Implementations}.
+
@node Increment Ops, Truth Values, Assignment Ops, Expressions
@section Increment and Decrement Operators
@cindex increment operators
@cindex operators, increment
@dfn{Increment} and @dfn{decrement operators} increase or decrease the value of
-a variable by one. You could do the same thing with an assignment operator, so
-the increment operators add no power to the @code{awk} language; but they
+a variable by one. An assignment operator can do the same thing, so
+the increment operators add no power to the @command{awk} language; however they
are convenient abbreviations for very common operations.
-The operator to add one is written @samp{++}. It can be used to increment
+@cindex side effects
+The operator used for adding one is written @samp{++}. It can be used to increment
a variable either before or after taking its value.
-
-To pre-increment a variable @var{v}, write @samp{++@var{v}}. This adds
-one to the value of @var{v} and that new value is also the value of this
-expression. The assignment expression @samp{@var{v} += 1} is completely
-equivalent.
-
+To pre-increment a variable @code{v}, write @samp{++v}. This adds
+one to the value of @code{v}---that new value is also the value of the
+expression. (The assignment expression @samp{v += 1} is completely
+equivalent.)
Writing the @samp{++} after the variable specifies post-increment. This
increments the variable value just the same; the difference is that the
value of the increment expression itself is the variable's @emph{old}
value. Thus, if @code{foo} has the value four, then the expression @samp{foo++}
has the value four, but it changes the value of @code{foo} to five.
+In other words, the operator returns the old value of the variable,
+but with the side effect of incrementing it.
-The post-increment @samp{foo++} is nearly equivalent to writing @samp{(foo
+The post-increment @samp{foo++} is nearly the same as writing @samp{(foo
+= 1) - 1}. It is not perfectly equivalent because all numbers in
-@code{awk} are floating point: in floating point, @samp{foo + 1 - 1} does
+@command{awk} are floating-point---in floating-point, @samp{foo + 1 - 1} does
not necessarily equal @code{foo}. But the difference is minute as
long as you stick to numbers that are fairly small (less than 10e12).
-Any lvalue can be incremented. Fields and array elements are incremented
-just like variables. (Use @samp{$(i++)} when you wish to do a field reference
+Fields and array elements are incremented
+just like variables. (Use @samp{$(i++)} when you want to do a field reference
and a variable increment at the same time. The parentheses are necessary
-because of the precedence of the field reference operator, @samp{$}.)
+because of the precedence of the field reference operator @samp{$}.)
@cindex decrement operators
@cindex operators, decrement
-The decrement operator @samp{--} works just like @samp{++} except that
-it subtracts one instead of adding. Like @samp{++}, it can be used before
+The decrement operator @samp{--} works just like @samp{++}, except that
+it subtracts one instead of adding it. As with @samp{++}, it can be used before
the lvalue to pre-decrement or after it to post-decrement.
+Following is a summary of increment and decrement expressions:
-Here is a summary of increment and decrement expressions.
-
-@c @cartouche
@table @code
+@cindex @code{++} operator
@item ++@var{lvalue}
-This expression increments @var{lvalue} and the new value becomes the
+This expression increments @var{lvalue}, and the new value becomes the
value of the expression.
@item @var{lvalue}++
This expression increments @var{lvalue}, but
the value of the expression is the @emph{old} value of @var{lvalue}.
+@cindex @code{--} operator
@item --@var{lvalue}
-Like @samp{++@var{lvalue}}, but instead of adding, it subtracts. It
-decrements @var{lvalue} and delivers the value that results.
+This expression is
+like @samp{++@var{lvalue}}, but instead of adding, it subtracts. It
+decrements @var{lvalue} and delivers the value that is the result.
@item @var{lvalue}--
-Like @samp{@var{lvalue}++}, but instead of adding, it subtracts. It
+This expression is
+like @samp{@var{lvalue}++}, but instead of adding, it subtracts. It
decrements @var{lvalue}. The value of the expression is the @emph{old}
value of @var{lvalue}.
@end table
-@c @end cartouche
+
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Operator Evaluation Order
+@cindex advanced notes
+@cindex precedence
+@cindex operator precedence
+@cindex portability issues
+@cindex evaluation, order of
+@cindex Marx, Groucho
+@quotation
+@i{Doctor, doctor! It hurts when I do this!@*
+So don't do that!}@*
+Groucho Marx
+@end quotation
+
+@noindent
+What happens for something like the following?
+
+@example
+b = 6
+print b += b++
+@end example
+
+@noindent
+Or something even stranger?
+
+@example
+b = 6
+b += ++b + b++
+print b
+@end example
+
+@cindex side effects
+In other words, when do the various side effects prescribed by the
+postfix operators (@samp{b++}) take effect?
+When side effects happen is @dfn{implementation defined}.
+In other words, it is up to the particular version of @command{awk}.
+The result for the first example may be 12 or 13, and for the second, it
+may be 22 or 23.
+
+In short, doing things like this is not recommended and definitely
+not anything that you can rely upon for portability.
+You should avoid such things in your own programs.
+@c You'll sleep better at night and be able to look at yourself
+@c in the mirror in the morning.
@node Truth Values, Typing and Comparison, Increment Ops, Expressions
-@section True and False in @code{awk}
+@section True and False in @command{awk}
@cindex truth values
@cindex logical true
@cindex logical false
+@cindex null string
+@cindex empty string
Many programming languages have a special representation for the concepts
of ``true'' and ``false.'' Such languages usually use the special
-constants @code{true} and @code{false}, or perhaps their upper-case
+constants @code{true} and @code{false}, or perhaps their uppercase
equivalents.
-
-@cindex null string
-@cindex empty string
-@code{awk} is different. It borrows a very simple concept of true and
-false from C. In @code{awk}, any non-zero numeric value, @emph{or} any
+However, @command{awk} is different.
+It borrows a very simple concept of true and
+false from C. In @command{awk}, any nonzero numeric value @emph{or} any
non-empty string value is true. Any other value (zero or the null
-string, @code{""}) is false. The following program will print @samp{A strange
+string @code{""}) is false. The following program prints @samp{A strange
truth value} three times:
@example
-@group
BEGIN @{
if (3.1415927)
print "A strange truth value"
@@ -6533,12 +7928,12 @@ BEGIN @{
if (j = 57)
print "A strange truth value"
@}
-@end group
@end example
@cindex dark corner
-There is a surprising consequence of the ``non-zero or non-null'' rule:
-The string constant @code{"0"} is actually true, since it is non-null (d.c.).
+There is a surprising consequence of the ``nonzero or non-null'' rule:
+the string constant @code{"0"} is actually true, because it is non-null.
+@value{DARKCORNER}
@node Typing and Comparison, Boolean Ops, Truth Values, Expressions
@section Variable Typing and Comparison Expressions
@@ -6547,60 +7942,56 @@ The string constant @code{"0"} is actually true, since it is non-null (d.c.).
@cindex expression, matching
@cindex relational operators
@cindex operators, relational
-@cindex regexp match/non-match operators
+@cindex regexp operators
@cindex variable typing
@cindex types of variables
-@c 2e: consider splitting this section into subsections
-@display
-@i{The Guide is definitive. Reality is frequently inaccurate.}
+@quotation
+@i{The Guide is definitive. Reality is frequently inaccurate.}@*
The Hitchhiker's Guide to the Galaxy
-@end display
-@sp 1
+@end quotation
-Unlike other programming languages, @code{awk} variables do not have a
+Unlike other programming languages, @command{awk} variables do not have a
fixed type. Instead, they can be either a number or a string, depending
upon the value that is assigned to them.
@cindex numeric string
The 1992 POSIX standard introduced
the concept of a @dfn{numeric string}, which is simply a string that looks
-like a number, for example, @code{@w{" +2"}}. This concept is used
+like a number---for example, @code{@w{" +2"}}. This concept is used
for determining the type of a variable.
-
-The type of the variable is important, since the types of two variables
+The type of the variable is important because the types of two variables
determine how they are compared.
+In @command{gawk}, variable typing follows these rules:
-In @code{gawk}, variable typing follows these rules.
-
-@enumerate 1
+@itemize @bullet
@item
-A numeric literal or the result of a numeric operation has the @var{numeric}
+A numeric constant or the result of a numeric operation has the @var{numeric}
attribute.
@item
-A string literal or the result of a string operation has the @var{string}
+A string constant or the result of a string operation has the @var{string}
attribute.
@item
Fields, @code{getline} input, @code{FILENAME}, @code{ARGV} elements,
-@code{ENVIRON} elements and the
+@code{ENVIRON} elements, and the
elements of an array created by @code{split} that are numeric strings
have the @var{strnum} attribute. Otherwise, they have the @var{string}
attribute.
Uninitialized variables also have the @var{strnum} attribute.
@item
-Attributes propagate across assignments, but are not changed by
+Attributes propagate across assignments but are not changed by
any use.
-@c (Although a use may cause the entity to acquire an additional
-@c value such that it has both a numeric and string value -- this leaves the
+@c (Although a use may cause the entity to acquire an additional
+@c value such that it has both a numeric and string value, this leaves the
@c attribute unchanged.)
@c This is important but not relevant
-@end enumerate
+@end itemize
The last rule is particularly important. In the following program,
@code{a} has numeric type, even though it is later used in a string
-operation.
+operation:
@example
BEGIN @{
@@ -6611,8 +8002,8 @@ BEGIN @{
@end example
When two operands are compared, either string comparison or numeric comparison
-may be used, depending on the attributes of the operands, according to the
-following, symmetric, matrix:
+may be used. This depends upon the attributes of the operands, according to the
+following symmetric matrix:
@c thanks to Karl Berry, kb@cs.umb.edu, for major help with TeX tables
@tex
@@ -6657,24 +8048,34 @@ NUMERIC &&string &numeric &numeric\cr
STRNUM &&string &numeric &numeric\cr
}}}
@end tex
-@ifinfo
+@ifnottex
@display
- +----------------------------------------------
- | STRING NUMERIC STRNUM
+ +----------------------------------------------
+ | STRING NUMERIC STRNUM
--------+----------------------------------------------
- |
-STRING | string string string
- |
-NUMERIC | string numeric numeric
- |
-STRNUM | string numeric numeric
+ |
+STRING | string string string
+ |
+NUMERIC | string numeric numeric
+ |
+STRNUM | string numeric numeric
--------+----------------------------------------------
@end display
-@end ifinfo
-
-The basic idea is that user input that looks numeric, and @emph{only}
-user input, should be treated as numeric, even though it is actually
-made of characters, and is therefore also a string.
+@end ifnottex
+
+The basic idea is that user input that looks numeric---and @emph{only}
+user input---should be treated as numeric, even though it is actually
+made of characters and is therefore also a string.
+Thus, for example, the string constant @w{@code{" +3.14"}}
+is a string, even though it looks numeric,
+and is @emph{never} treated as number for comparison
+purposes.
+
+In short, when one operand is a ``pure'' string, such as a string
+constant, then a string comparison is performed. Otherwise, a
+numeric comparison is performed.@footnote{The POSIX standard is under
+revision. The revised standard's rules for typing and comparison are
+the same as just described for @command{gawk}.}
@dfn{Comparison expressions} compare strings or numbers for
relationships such as equality. They are written using @dfn{relational
@@ -6692,7 +8093,6 @@ them:
@cindex @code{~} operator
@cindex @code{!~} operator
@cindex @code{in} operator
-@c @cartouche
@table @code
@item @var{x} < @var{y}
True if @var{x} is less than @var{y}.
@@ -6721,26 +8121,24 @@ True if the string @var{x} does not match the regexp denoted by @var{y}.
@item @var{subscript} in @var{array}
True if the array @var{array} has an element with the subscript @var{subscript}.
@end table
-@c @end cartouche
Comparison expressions have the value one if true and zero if false.
-
When comparing operands of mixed types, numeric operands are converted
to strings using the value of @code{CONVFMT}
(@pxref{Conversion, ,Conversion of Strings and Numbers}).
Strings are compared
by comparing the first character of each, then the second character of each,
-and so on. Thus @code{"10"} is less than @code{"9"}. If there are two
+and so on. Thus, @code{"10"} is less than @code{"9"}. If there are two
strings where one is a prefix of the other, the shorter string is less than
-the longer one. Thus @code{"abc"} is less than @code{"abcd"}.
+the longer one. Thus, @code{"abc"} is less than @code{"abcd"}.
@cindex common mistakes
@cindex mistakes, common
@cindex errors, common
-It is very easy to accidentally mistype the @samp{==} operator, and
-leave off one of the @samp{=}s. The result is still valid @code{awk}
-code, but the program will not do what you mean:
+It is very easy to accidentally mistype the @samp{==} operator and
+leave off one of the @samp{=} characters. The result is still valid @command{awk}
+code, but the program does not do what is intended:
@example
if (a = b) # oops! should be a == b
@@ -6751,12 +8149,12 @@ else
@noindent
Unless @code{b} happens to be zero or the null string, the @code{if}
-part of the test will always succeed. Because the operators are
+part of the test always succeeds. Because the operators are
so similar, this kind of error is very difficult to spot when
scanning the source code.
-Here are some sample expressions, how @code{gawk} compares them, and what
-the result of the comparison is.
+The following table of expressions illustrates the kind of comparison
+@command{gawk} performs, as well as what the result of the comparison is:
@table @code
@item 1.5 <= 2.0
@@ -6776,41 +8174,37 @@ string comparison (true)
string comparison (true)
@item a = 2; b = " +2"
-@itemx a == b
+@item a == b
string comparison (false)
@end table
-In this example,
+In the next example:
@example
-@group
$ echo 1e2 3 | awk '@{ print ($1 < $2) ? "true" : "false" @}'
@print{} false
-@end group
@end example
+@cindex comparisons, string vs. regexp
+@cindex string comparison vs. regexp comparison
+@cindex regexp comparison vs. string comparison
@noindent
-the result is @samp{false} since both @code{$1} and @code{$2} are numeric
-strings and thus both have the @var{strnum} attribute,
-dictating a numeric comparison.
-
+the result is @samp{false} because both @code{$1} and @code{$2}
+are user input. They are numeric strings---therefore both have
+the @var{strnum} attribute, dictating a numeric comparison.
The purpose of the comparison rules and the use of numeric strings is
to attempt to produce the behavior that is ``least surprising,'' while
still ``doing the right thing.''
-
-@cindex comparisons, string vs. regexp
-@cindex string comparison vs. regexp comparison
-@cindex regexp comparison vs. string comparison
String comparisons and regular expression comparisons are very different.
-For example,
+For example:
@example
x == "foo"
@end example
@noindent
-has the value of one, or is true, if the variable @code{x}
-is precisely @samp{foo}. By contrast,
+has the value one, or is true if the variable @code{x}
+is precisely @samp{foo}. By contrast:
@example
x ~ /foo/
@@ -6820,97 +8214,86 @@ x ~ /foo/
has the value one if @code{x} contains @samp{foo}, such as
@code{"Oh, what a fool am I!"}.
-The right hand operand of the @samp{~} and @samp{!~} operators may be
-either a regexp constant (@code{/@dots{}/}), or an ordinary
-expression, in which case the value of the expression as a string is used as a
+The righthand operand of the @samp{~} and @samp{!~} operators may be
+either a regexp constant (@code{/@dots{}/}) or an ordinary
+expression. In the latter case, the value of the expression as a string is used as a
dynamic regexp (@pxref{Regexp Usage, ,How to Use Regular Expressions}; also
@pxref{Computed Regexps, ,Using Dynamic Regexps}).
@cindex regexp as expression
-In recent implementations of @code{awk}, a constant regular
+In modern implementations of @command{awk}, a constant regular
expression in slashes by itself is also an expression. The regexp
-@code{/@var{regexp}/} is an abbreviation for this comparison expression:
+@code{/@var{regexp}/} is an abbreviation for the following comparison expression:
@example
$0 ~ /@var{regexp}/
@end example
One special place where @code{/foo/} is @emph{not} an abbreviation for
-@samp{$0 ~ /foo/} is when it is the right-hand operand of @samp{~} or
-@samp{!~}!
+@samp{$0 ~ /foo/} is when it is the righthand operand of @samp{~} or
+@samp{!~}.
@xref{Using Constant Regexps, ,Using Regular Expression Constants},
where this is discussed in more detail.
-@c This paragraph has been here since day 1, and has always bothered
-@c me, especially since the expression doesn't really make a lot of
-@c sense. So, just take it out.
-@ignore
-In some contexts it may be necessary to write parentheses around the
-regexp to avoid confusing the @code{gawk} parser. For example,
-@samp{(/x/ - /y/) > threshold} is not allowed, but @samp{((/x/) - (/y/))
-> threshold} parses properly.
-@end ignore
-
@node Boolean Ops, Conditional Exp, Typing and Comparison, Expressions
@section Boolean Expressions
@cindex expression, boolean
@cindex boolean expressions
@cindex operators, boolean
@cindex boolean operators
-@cindex logical operations
-@cindex operations, logical
+@cindex logical operators
+@cindex operators, logical
@cindex short-circuit operators
@cindex operators, short-circuit
-@cindex and operator
-@cindex or operator
-@cindex not operator
+@cindex AND logical operator
+@cindex OR logical operator
+@cindex NOT logical operator
@cindex @code{&&} operator
@cindex @code{||} operator
@cindex @code{!} operator
-A @dfn{boolean expression} is a combination of comparison expressions or
-matching expressions, using the boolean operators ``or''
+A @dfn{Boolean expression} is a combination of comparison expressions or
+matching expressions, using the Boolean operators ``or''
(@samp{||}), ``and'' (@samp{&&}), and ``not'' (@samp{!}), along with
-parentheses to control nesting. The truth value of the boolean expression is
+parentheses to control nesting. The truth value of the Boolean expression is
computed by combining the truth values of the component expressions.
Boolean expressions are also referred to as @dfn{logical expressions}.
The terms are equivalent.
Boolean expressions can be used wherever comparison and matching
expressions can be used. They can be used in @code{if}, @code{while},
-@code{do} and @code{for} statements
+@code{do}, and @code{for} statements
(@pxref{Statements, ,Control Statements in Actions}).
-They have numeric values (one if true, zero if false), which come into play
-if the result of the boolean expression is stored in a variable, or
+They have numeric values (one if true, zero if false), that come into play
+if the result of the Boolean expression is stored in a variable or
used in arithmetic.
-In addition, every boolean expression is also a valid pattern, so
+In addition, every Boolean expression is also a valid pattern, so
you can use one as a pattern to control the execution of rules.
+The Boolean operators are:
-Here are descriptions of the three boolean operators, with examples.
-
-@c @cartouche
@table @code
@item @var{boolean1} && @var{boolean2}
True if both @var{boolean1} and @var{boolean2} are true. For example,
the following statement prints the current input record if it contains
-both @samp{2400} and @samp{foo}.
+both @samp{2400} and @samp{foo}:
@example
if ($0 ~ /2400/ && $0 ~ /foo/) print
@end example
+@cindex side effects
The subexpression @var{boolean2} is evaluated only if @var{boolean1}
is true. This can make a difference when @var{boolean2} contains
-expressions that have side effects: in the case of @samp{$0 ~ /foo/ &&
+expressions that have side effects. In the case of @samp{$0 ~ /foo/ &&
($2 == bar++)}, the variable @code{bar} is not incremented if there is
-no @samp{foo} in the record.
+no substring @samp{foo} in the record.
@item @var{boolean1} || @var{boolean2}
True if at least one of @var{boolean1} or @var{boolean2} is true.
For example, the following statement prints all records in the input
that contain @emph{either} @samp{2400} or
-@samp{foo}, or both.
+@samp{foo} or both:
@example
if ($0 ~ /2400/ || $0 ~ /foo/) print
@@ -6921,17 +8304,19 @@ is false. This can make a difference when @var{boolean2} contains
expressions that have side effects.
@item ! @var{boolean}
-True if @var{boolean} is false. For example, the following program prints
-all records in the input file @file{BBS-list} that do @emph{not} contain the
-string @samp{foo}.
+True if @var{boolean} is false. For example,
+the following program prints @samp{no home!} in
+the unusual event that the @env{HOME} environment
+variable is not defined:
-@c A better example would be `if (! (subscript in array)) ...' but we
-@c haven't done anything with arrays or `in' yet. Sigh.
@example
-awk '@{ if (! ($0 ~ /foo/)) print @}' BBS-list
+BEGIN @{ if (! ("HOME" in ENVIRON))
+ print "no home!" @}
@end example
+
+(The @code{in} operator is described in
+@ref{Reference to Elements, ,Referring to an Array Element}.)
@end table
-@c @end cartouche
The @samp{&&} and @samp{||} operators are called @dfn{short-circuit}
operators because of the way they work. Evaluation of the full expression
@@ -6939,48 +8324,56 @@ is ``short-circuited'' if the result can be determined part way through
its evaluation.
@cindex line continuation
-You can continue a statement that uses @samp{&&} or @samp{||} simply
+Statements that use @samp{&&} or @samp{||} can be continued simply
by putting a newline after them. But you cannot put a newline in front
of either of these operators without using backslash continuation
-(@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}).
+(@pxref{Statements/Lines, ,@command{awk} Statements Versus Lines}).
-The actual value of an expression using the @samp{!} operator will be
+@cindex flag variables
+The actual value of an expression using the @samp{!} operator is
either one or zero, depending upon the truth value of the expression it
is applied to.
-
The @samp{!} operator is often useful for changing the sense of a flag
variable from false to true and back again. For example, the following
program is one way to print lines in between special bracketing lines:
@example
-$1 == "START" @{ interested = ! interested @}
+$1 == "START" @{ interested = ! interested; next @}
interested == 1 @{ print @}
-$1 == "END" @{ interested = ! interested @}
+$1 == "END" @{ interested = ! interested; next @}
@end example
@noindent
-The variable @code{interested}, like all @code{awk} variables, starts
+The variable @code{interested}, as with all @command{awk} variables, starts
out initialized to zero, which is also false. When a line is seen whose
first field is @samp{START}, the value of @code{interested} is toggled
to true, using @samp{!}. The next rule prints lines as long as
@code{interested} is true. When a line is seen whose first field is
@samp{END}, @code{interested} is toggled back to false.
+
@ignore
-We should discuss using `next' in the two rules that toggle the
-variable, to avoid printing the bracketing lines, but that's more
-distraction than really needed.
+Scott Deifik points out that this program isn't robust against
+bogus input data, but the point is to illustrate the use of `!',
+so we'll leave well enough alone.
@end ignore
+@strong{Note:} The @code{next} statement is discussed in
+@ref{Next Statement, ,The @code{next} Statement}.
+@code{next} tells @command{awk} to skip the rest of the rules, get the
+next record, and start processing the rules over again at the top.
+The reason it's there is to avoid printing the bracketing
+@samp{START} and @samp{END} lines.
+
@node Conditional Exp, Function Calls, Boolean Ops, Expressions
@section Conditional Expressions
@cindex conditional expression
@cindex expression, conditional
-A @dfn{conditional expression} is a special kind of expression with
+A @dfn{conditional expression} is a special kind of expression that has
three operands. It allows you to use one expression's value to select
one of two other expressions.
-
-The conditional expression is the same as in the C language:
+The conditional expression is the same as in the C language,
+as shown here:
@example
@var{selector} ? @var{if-true-exp} : @var{if-false-exp}
@@ -6988,22 +8381,22 @@ The conditional expression is the same as in the C language:
@noindent
There are three subexpressions. The first, @var{selector}, is always
-computed first. If it is ``true'' (not zero and not null) then
+computed first. If it is ``true'' (not zero or not null), then
@var{if-true-exp} is computed next and its value becomes the value of
the whole expression. Otherwise, @var{if-false-exp} is computed next
and its value becomes the value of the whole expression.
-
-For example, this expression produces the absolute value of @code{x}:
+For example, the following expression produces the absolute value of @code{x}:
@example
-x > 0 ? x : -x
+x >= 0 ? x : -x
@end example
-Each time the conditional expression is computed, exactly one of
+@cindex side effects
+Each time the conditional expression is computed, only one of
@var{if-true-exp} and @var{if-false-exp} is used; the other is ignored.
This is important when the expressions have side effects. For example,
this conditional expression examines element @code{i} of either array
-@code{a} or array @code{b}, and increments @code{i}.
+@code{a} or array @code{b}, and increments @code{i}:
@example
x == y ? a[i++] : b[i++]
@@ -7011,46 +8404,48 @@ x == y ? a[i++] : b[i++]
@noindent
This is guaranteed to increment @code{i} exactly once, because each time
-only one of the two increment expressions is executed,
+only one of the two increment expressions is executed
and the other is not.
-@xref{Arrays, ,Arrays in @code{awk}},
+@xref{Arrays, ,Arrays in @command{awk}},
for more information about arrays.
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
@cindex line continuation
-As a minor @code{gawk} extension,
-you can continue a statement that uses @samp{?:} simply
+As a minor @command{gawk} extension,
+a statement that uses @samp{?:} can be continued simply
by putting a newline after either character.
-However, you cannot put a newline in front
-of either character without using backslash continuation
-(@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}).
-If @samp{--posix} is specified
-(@pxref{Options, , Command Line Options}), then this extension is disabled.
+However, putting a newline in front
+of either character does not work without using backslash continuation
+(@pxref{Statements/Lines, ,@command{awk} Statements Versus Lines}).
+If @option{--posix} is specified
+(@pxref{Options, , Command-Line Options}), then this extension is disabled.
@node Function Calls, Precedence, Conditional Exp, Expressions
@section Function Calls
@cindex function call
@cindex calling a function
-A @dfn{function} is a name for a particular calculation. Because it has
-a name, you can ask for it by name at any point in the program. For
+A @dfn{function} is a name for a particular calculation.
+This enables you to
+ask for it by name at any point in the program. For
example, the function @code{sqrt} computes the square root of a number.
A fixed set of functions are @dfn{built-in}, which means they are
-available in every @code{awk} program. The @code{sqrt} function is one
+available in every @command{awk} program. The @code{sqrt} function is one
of these. @xref{Built-in, ,Built-in Functions}, for a list of built-in
-functions and their descriptions. In addition, you can define your own
+functions and their descriptions. In addition, you can define
functions for use in your program.
-@xref{User-defined, ,User-defined Functions}, for how to do this.
+@xref{User-defined, ,User-Defined Functions},
+for instructions on how to do this.
@cindex arguments in function call
The way to use a function is with a @dfn{function call} expression,
which consists of the function name followed immediately by a list of
-@dfn{arguments} in parentheses. The arguments are expressions which
+@dfn{arguments} in parentheses. The arguments are expressions that
provide the raw materials for the function's calculations.
When there is more than one argument, they are separated by commas. If
-there are no arguments, write just @samp{()} after the function name.
-Here are some examples:
+there are no arguments, just write @samp{()} after the function name.
+The following examples show function calls with and without arguments:
@example
sqrt(x^2 + y^2) @i{one argument}
@@ -7058,40 +8453,41 @@ atan2(y, x) @i{two arguments}
rand() @i{no arguments}
@end example
-@strong{Do not put any space between the function name and the
-open-parenthesis!} A user-defined function name looks just like the name of
-a variable, and space would make the expression look like concatenation
-of a variable with an expression inside parentheses. Space before the
-parenthesis is harmless with built-in functions, but it is best not to get
-into the habit of using space to avoid mistakes with user-defined
-functions.
+@strong{Caution:}
+Do not put any space between the function name and the open-parenthesis!
+A user-defined function name looks just like the name of a
+variable---a space would make the expression look like concatenation of
+a variable with an expression inside parentheses.
-Each function expects a particular number of arguments. For example, the
-@code{sqrt} function must be called with a single argument, the number
-to take the square root of:
+With built-in functions, space before the parenthesis is harmless, but
+it is best not to get into the habit of using space to avoid mistakes
+with user-defined functions. Each function expects a particular number
+of arguments. For example, the @code{sqrt} function must be called with
+a single argument: the number to take the square root of:
@example
sqrt(@var{argument})
@end example
-Some of the built-in functions allow you to omit the final argument.
-If you do so, they use a reasonable default.
+Some of the built-in functions have one or
+more optional arguments.
+If those arguments are not supplied, the functions
+use a reasonable default value.
@xref{Built-in, ,Built-in Functions}, for full details. If arguments
are omitted in calls to user-defined functions, then those arguments are
-treated as local variables, initialized to the empty string
-(@pxref{User-defined, ,User-defined Functions}).
+treated as local variables and initialized to the empty string
+(@pxref{User-defined, ,User-Defined Functions}).
+@cindex side effects
Like every other expression, the function call has a value, which is
computed by the function based on the arguments you give it. In this
example, the value of @samp{sqrt(@var{argument})} is the square root of
@var{argument}. A function can also have side effects, such as assigning
values to certain variables or doing I/O.
-
-Here is a command to read numbers, one number per line, and print the
+The following program reads numbers, one number per line, and prints the
square root of each one:
@example
-@group
$ awk '@{ print "The square root of", $1, "is", sqrt($1) @}'
1
@print{} The square root of 1 is 1
@@ -7099,48 +8495,83 @@ $ awk '@{ print "The square root of", $1, "is", sqrt($1) @}'
@print{} The square root of 3 is 1.73205
5
@print{} The square root of 5 is 2.23607
-@kbd{Control-d}
-@end group
+@kbd{Ctrl-d}
@end example
-@node Precedence, , Function Calls, Expressions
+@node Precedence, , Function Calls, Expressions
@section Operator Precedence (How Operators Nest)
@cindex precedence
@cindex operator precedence
-@dfn{Operator precedence} determines how operators are grouped, when
+@dfn{Operator precedence} determines how operators are grouped when
different operators appear close by in one expression. For example,
@samp{*} has higher precedence than @samp{+}; thus, @samp{a + b * c}
means to multiply @code{b} and @code{c}, and then add @code{a} to the
-product (i.e.@: @samp{a + (b * c)}).
+product (i.e., @samp{a + (b * c)}).
-You can overrule the precedence of the operators by using parentheses.
-You can think of the precedence rules as saying where the
-parentheses are assumed to be if you do not write parentheses yourself. In
-fact, it is wise to always use parentheses whenever you have an unusual
+The normal precedence of the operators can be overruled by using parentheses.
+Think of the precedence rules as saying where the
+parentheses are assumed to be. In
+fact, it is wise to always use parentheses whenever there is an unusual
combination of operators, because other people who read the program may
-not remember what the precedence is in this case. You might forget,
-too; then you could make a mistake. Explicit parentheses will help prevent
-any such mistake.
+not remember what the precedence is in this case.
+Even experienced programmers occasionally forget the exact rules,
+which leads to mistakes.
+Explicit parentheses help prevent
+any such mistakes.
When operators of equal precedence are used together, the leftmost
-operator groups first, except for the assignment, conditional and
+operator groups first, except for the assignment, conditional, and
exponentiation operators, which group in the opposite order.
-Thus, @samp{a - b + c} groups as @samp{(a - b) + c}, and
+Thus, @samp{a - b + c} groups as @samp{(a - b) + c} and
@samp{a = b = c} groups as @samp{a = (b = c)}.
The precedence of prefix unary operators does not matter as long as only
unary operators are involved, because there is only one way to interpret
-them---innermost first. Thus, @samp{$++i} means @samp{$(++i)} and
+them: innermost first. Thus, @samp{$++i} means @samp{$(++i)} and
@samp{++$x} means @samp{++($x)}. However, when another operator follows
the operand, then the precedence of the unary operators can matter.
-Thus, @samp{$x^2} means @samp{($x)^2}, but @samp{-x^2} means
-@samp{-(x^2)}, because @samp{-} has lower precedence than @samp{^}
-while @samp{$} has higher precedence.
-
-Here is a table of @code{awk}'s operators, in order from highest
+@samp{$x^2} means @samp{($x)^2}, but @samp{-x^2} means
+@samp{-(x^2)}, because @samp{-} has lower precedence than @samp{^},
+whereas @samp{$} has higher precedence.
+This table presents @command{awk}'s operators, in order of highest
precedence to lowest:
+@page
+
+@cindex @code{$} field operator
+@cindex @code{+} operator
+@cindex @code{-} operator
+@cindex @code{!} operator
+@cindex @code{*} operator
+@cindex @code{/} operator
+@cindex @code{%} operator
+@cindex @code{^} operator
+@cindex @code{**} operator
+@cindex @code{++} operator
+@cindex @code{--} operator
+@cindex @code{<} operator
+@cindex @code{<=} operator
+@cindex @code{==} operator
+@cindex @code{!=} operator
+@cindex @code{>} operator
+@cindex @code{>=} operator
+@cindex @code{>>} I/O operator
+@cindex @code{|} I/O operator
+@cindex @code{|&} I/O operator
+@cindex @code{~} operator
+@cindex @code{!~} operator
+@cindex @code{in} operator
+@cindex @code{&&} operator
+@cindex @code{||} operator
+@cindex @code{?:} operator
+@cindex @code{+=} operator
+@cindex @code{-=} operator
+@cindex @code{*=} operator
+@cindex @code{/=} operator
+@cindex @code{%=} operator
+@cindex @code{^=} operator
+@cindex @code{**=} operator
@c use @code in the items, looks better in TeX w/o all the quotes
@table @code
@item (@dots{})
@@ -7152,14 +8583,11 @@ Field.
@item ++ --
Increment, decrement.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
@item ^ **
Exponentiation. These operators group right-to-left.
-(The @samp{**} operator is not specified by POSIX.)
@item + - !
-Unary plus, minus, logical ``not''.
+Unary plus, minus, logical ``not.''
@item * / %
Multiplication, division, modulus.
@@ -7167,23 +8595,24 @@ Multiplication, division, modulus.
@item + -
Addition, subtraction.
-@item @r{Concatenation}
-No special token is used to indicate concatenation.
-The operands are simply written side by side.
+@item @r{String Concatenation}
+No special symbol is used to indicate concatenation.
+The operands are simply written side by side
+(@pxref{Concatenation, ,String Concatenation}).
@item < <= == !=
-@itemx > >= >> |
-Relational, and redirection.
+@itemx > >= >> | |&
+Relational and redirection.
The relational operators and the redirections have the same precedence
level. Characters such as @samp{>} serve both as relationals and as
redirections; the context distinguishes between the two meanings.
Note that the I/O redirection operators in @code{print} and @code{printf}
statements belong to the statement level, not to expressions. The
-redirection does not produce an expression which could be the operand of
+redirection does not produce an expression that could be the operand of
another operator. As a result, it does not make sense to use a
-redirection operator near another operator of lower precedence, without
-parentheses. Such combinations, for example @samp{print foo > a ? b : c},
+redirection operator near another operator of lower precedence without
+parentheses. Such combinations (for example @samp{print foo > a ? b : c}),
result in syntax errors.
The correct way to write this statement is @samp{print foo > (a ? b : c)}.
@@ -7202,36 +8631,47 @@ Logical ``or''.
@item ?:
Conditional. This operator groups right-to-left.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
@item = += -= *=
@itemx /= %= ^= **=
Assignment. These operators group right-to-left.
-(The @samp{**=} operator is not specified by POSIX.)
@end table
-@node Patterns and Actions, Statements, Expressions, Top
-@chapter Patterns and Actions
+@cindex portability issues
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@strong{Note:}
+The @samp{|&}, @samp{**}, and @samp{**=} operators are not specified by POSIX.
+For maximum portability, do not use them.
+
+@node Patterns and Actions, Arrays, Expressions, Top
+@chapter Patterns, Actions, and Variables
@cindex pattern, definition of
-As you have already seen, each @code{awk} statement consists of
-a pattern with an associated action. This chapter describes how
-you build patterns and actions.
+As you have already seen, each @command{awk} statement consists of
+a pattern with an associated action. This @value{CHAPTER} describes how
+you build patterns and actions, what kinds of things you can do within
+actions, and @command{awk}'s built-in variables.
+
+The pattern-action rules and the statements available for use
+within actions form the core of @command{awk} programming.
+In a sense, everything covered
+up to here has been the foundation
+that programs are built on top of. Now it's time to start
+building something useful.
@menu
* Pattern Overview:: What goes into a pattern.
+* Using Shell Variables:: How to use shell variables with @command{awk}.
* Action Overview:: What goes into an action.
+* Statements:: Describes the various control statements in
+ detail.
+* Built-in Variables:: Summarizes the built-in variables.
@end menu
-@node Pattern Overview, Action Overview, Patterns and Actions, Patterns and Actions
+@node Pattern Overview, Using Shell Variables, Patterns and Actions, Patterns and Actions
@section Pattern Elements
-Patterns in @code{awk} control the execution of rules: a rule is
-executed when its pattern matches the current input record. This
-section explains all about how to write patterns.
-
@menu
-* Kinds of Patterns:: A list of all kinds of patterns.
* Regexp Patterns:: Using regexps as patterns.
* Expression Patterns:: Any expression can be used as a pattern.
* Ranges:: Pairs of patterns specify record ranges.
@@ -7239,33 +8679,32 @@ section explains all about how to write patterns.
* Empty:: The empty pattern, which matches every record.
@end menu
-@node Kinds of Patterns, Regexp Patterns, Pattern Overview, Pattern Overview
-@subsection Kinds of Patterns
@cindex patterns, types of
-
-Here is a summary of the types of patterns supported in @code{awk}.
+Patterns in @command{awk} control the execution of rules---a rule is
+executed when its pattern matches the current input record.
+The following is a summary of the types of patterns in @command{awk}:
@table @code
@item /@var{regular expression}/
-A regular expression as a pattern. It matches when the text of the
+A regular expression. It matches when the text of the
input record fits the regular expression.
(@xref{Regexp, ,Regular Expressions}.)
@item @var{expression}
A single expression. It matches when its value
-is non-zero (if a number) or non-null (if a string).
+is nonzero (if a number) or non-null (if a string).
(@xref{Expression Patterns, ,Expressions as Patterns}.)
@item @var{pat1}, @var{pat2}
A pair of patterns separated by a comma, specifying a range of records.
-The range includes both the initial record that matches @var{pat1}, and
+The range includes both the initial record that matches @var{pat1} and
the final record that matches @var{pat2}.
(@xref{Ranges, ,Specifying Record Ranges with Patterns}.)
@item BEGIN
@itemx END
-Special patterns for you to supply start-up or clean-up actions for your
-@code{awk} program.
+Special patterns for you to supply startup or cleanup actions for your
+@command{awk} program.
(@xref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}.)
@item @var{empty}
@@ -7273,10 +8712,11 @@ The empty pattern matches every input record.
(@xref{Empty, ,The Empty Pattern}.)
@end table
-@node Regexp Patterns, Expression Patterns, Kinds of Patterns, Pattern Overview
+@node Regexp Patterns, Expression Patterns, Pattern Overview, Pattern Overview
@subsection Regular Expressions as Patterns
-We have been using regular expressions as patterns since our early examples.
+Regular expressions are one of the first kinds of patterns presented
+in this book.
This kind of pattern is simply a regexp constant in the pattern part of
a rule. Its meaning is @samp{$0 ~ /@var{pattern}/}.
The pattern matches when the input record matches the regexp.
@@ -7290,55 +8730,54 @@ END @{ print buzzwords, "buzzwords seen" @}
@node Expression Patterns, Ranges, Regexp Patterns, Pattern Overview
@subsection Expressions as Patterns
-Any @code{awk} expression is valid as an @code{awk} pattern.
-Then the pattern matches if the expression's value is non-zero (if a
+Any @command{awk} expression is valid as an @command{awk} pattern.
+The pattern matches if the expression's value is nonzero (if a
number) or non-null (if a string).
-
The expression is reevaluated each time the rule is tested against a new
input record. If the expression uses fields such as @code{$1}, the
-value depends directly on the new input record's text; otherwise, it
-depends only on what has happened so far in the execution of the
-@code{awk} program, but that may still be useful.
-
-A very common kind of expression used as a pattern is the comparison
-expression, using the comparison operators described in
-@ref{Typing and Comparison, ,Variable Typing and Comparison Expressions}.
+value depends directly on the new input record's text; otherwise it
+depends on only what has happened so far in the execution of the
+@command{awk} program.
+Comparison expressions, using the comparison operators described in
+@ref{Typing and Comparison, ,Variable Typing and Comparison Expressions},
+are a very common kind of pattern.
Regexp matching and non-matching are also very common expressions.
The left operand of the @samp{~} and @samp{!~} operators is a string.
The right operand is either a constant regular expression enclosed in
-slashes (@code{/@var{regexp}/}), or any expression, whose string value
+slashes (@code{/@var{regexp}/}), or any expression whose string value
is used as a dynamic regular expression
(@pxref{Computed Regexps, , Using Dynamic Regexps}).
-
The following example prints the second field of each input record
-whose first field is precisely @samp{foo}.
+whose first field is precisely @samp{foo}:
@example
$ awk '$1 == "foo" @{ print $2 @}' BBS-list
@end example
@noindent
-(There is no output, since there is no BBS site named ``foo''.)
-Contrast this with the following regular expression match, which would
-accept any record with a first field that contains @samp{foo}:
+(There is no output, because there is no BBS site with the exact name @samp{foo}.)
+Contrast this with the following regular expression match, which
+accepts any record with a first field that contains @samp{foo}:
@example
-@group
$ awk '$1 ~ /foo/ @{ print $2 @}' BBS-list
@print{} 555-1234
@print{} 555-6699
@print{} 555-6480
@print{} 555-2127
-@end group
@end example
+A regexp constant as a pattern is also a special case of an expression
+pattern. The expression @code{/foo/} has the value one if @samp{foo}
+appears in the current input record. Thus, as a pattern, @code{/foo/}
+matches any record containing @samp{foo}.
+
Boolean expressions are also commonly used as patterns.
Whether the pattern
matches an input record depends on whether its subexpressions match.
-
-For example, the following command prints all records in
-@file{BBS-list} that contain both @samp{2400} and @samp{foo}.
+For example, the following command prints all the records in
+@file{BBS-list} that contain both @samp{2400} and @samp{foo}:
@example
$ awk '/2400/ && /foo/' BBS-list
@@ -7346,11 +8785,10 @@ $ awk '/2400/ && /foo/' BBS-list
@end example
The following command prints all records in
-@file{BBS-list} that contain @emph{either} @samp{2400} or @samp{foo}, or
-both.
+@file{BBS-list} that contain @emph{either} @samp{2400} or @samp{foo}
+(or both, of course):
@example
-@group
$ awk '/2400/ || /foo/' BBS-list
@print{} alpo-net 555-3412 2400/1200/300 A
@print{} bites 555-1675 2400/1200/300 A
@@ -7359,14 +8797,12 @@ $ awk '/2400/ || /foo/' BBS-list
@print{} macfoo 555-6480 1200/300 A
@print{} sdace 555-3430 2400/1200/300 A
@print{} sabafoo 555-2127 1200/300 C
-@end group
@end example
The following command prints all records in
-@file{BBS-list} that do @emph{not} contain the string @samp{foo}.
+@file{BBS-list} that do @emph{not} contain the string @samp{foo}:
@example
-@group
$ awk '! /foo/' BBS-list
@print{} aardvark 555-5553 1200/300 B
@print{} alpo-net 555-3412 2400/1200/300 A
@@ -7375,20 +8811,14 @@ $ awk '! /foo/' BBS-list
@print{} camelot 555-0542 300 C
@print{} core 555-2912 1200/300 C
@print{} sdace 555-3430 2400/1200/300 A
-@end group
@end example
-The subexpressions of a boolean operator in a pattern can be constant regular
-expressions, comparisons, or any other @code{awk} expressions. Range
-patterns are not expressions, so they cannot appear inside boolean
+The subexpressions of a Boolean operator in a pattern can be constant regular
+expressions, comparisons, or any other @command{awk} expressions. Range
+patterns are not expressions, so they cannot appear inside Boolean
patterns. Likewise, the special patterns @code{BEGIN} and @code{END},
which never match any input record, are not expressions and cannot
-appear inside boolean patterns.
-
-A regexp constant as a pattern is also a special case of an expression
-pattern. @code{/foo/} as an expression has the value one if @samp{foo}
-appears in the current input record; thus, as a pattern, @code{/foo/}
-matches any record containing @samp{foo}.
+appear inside Boolean patterns.
@node Ranges, BEGIN/END, Expression Patterns, Pattern Overview
@subsection Specifying Record Ranges with Patterns
@@ -7396,26 +8826,26 @@ matches any record containing @samp{foo}.
@cindex range pattern
@cindex pattern, range
@cindex matching ranges of lines
-A @dfn{range pattern} is made of two patterns separated by a comma, of
-the form @samp{@var{begpat}, @var{endpat}}. It matches ranges of
+A @dfn{range pattern} is made of two patterns separated by a comma, in
+the form @samp{@var{begpat}, @var{endpat}}. It is used to match ranges of
consecutive input records. The first pattern, @var{begpat}, controls
-where the range begins, and the second one, @var{endpat}, controls where
-it ends. For example,
+where the range begins, while @var{endpat} controls where
+the pattern ends. For example, the following:
@example
-awk '$1 == "on", $1 == "off"'
+awk '$1 == "on", $1 == "off"' myfile
@end example
@noindent
-prints every record between @samp{on}/@samp{off} pairs, inclusive.
-
-A range pattern starts out by matching @var{begpat}
-against every input record; when a record matches @var{begpat}, the
-range pattern becomes @dfn{turned on}. The range pattern matches this
-record. As long as it stays turned on, it automatically matches every
-input record read. It also matches @var{endpat} against
-every input record; when that succeeds, the range pattern is turned
-off again for the following record. Then it goes back to checking
+prints every record in @file{myfile} between @samp{on}/@samp{off} pairs, inclusive.
+
+A range pattern starts out by matching @var{begpat} against every
+input record. When a record matches @var{begpat}, the range pattern is
+@dfn{turned on} and the range pattern matches this record as well. As long as
+the range pattern stays turned on, it automatically matches every input
+record read. The range pattern also matches @var{endpat} against every
+input record; when this succeeds, the range pattern is turned off again
+for the following record. Then the range pattern goes back to checking
@var{begpat} against each record.
The record that turns on the range pattern and the one that turns it
@@ -7423,18 +8853,18 @@ off both match the range pattern. If you don't want to operate on
these records, you can write @code{if} statements in the rule's action
to distinguish them from the records you are interested in.
-It is possible for a pattern to be turned both on and off by the same
-record, if the record satisfies both conditions. Then the action is
+It is possible for a pattern to be turned on and off by the same
+record. If the record satisfies both conditions, then the action is
executed for just that record.
-
-For example, suppose you have text between two identical markers (say
-the @samp{%} symbol) that you wish to ignore. You might try to
+For example, suppose there is text between two identical markers (say
+the @samp{%} symbol), each on its own line, that should be ignored.
+A first attempt would be to
combine a range pattern that describes the delimited text with the
@code{next} statement
-(not discussed yet, @pxref{Next Statement, , The @code{next} Statement}),
-which causes @code{awk} to skip any further processing of the current
+(not discussed yet, @pxref{Next Statement, , The @code{next} Statement}).
+This causes @command{awk} to skip any further processing of the current
record and start over again with the next input record. Such a program
-would look like this:
+looks like this:
@example
/^%$/,/^%$/ @{ next @}
@@ -7443,28 +8873,37 @@ would look like this:
@noindent
@cindex skipping lines between markers
+@cindex flag variables
This program fails because the range pattern is both turned on and turned off
-by the first line with just a @samp{%} on it. To accomplish this task, you
-must write the program this way, using a flag:
+by the first line, which just has a @samp{%} on it. To accomplish this task,
+write the program in the following manner, using a flag:
+@cindex @code{!} operator
@example
/^%$/ @{ skip = ! skip; next @}
skip == 1 @{ next @} # skip lines with `skip' set
@end example
-Note that in a range pattern, the @samp{,} has the lowest precedence
-(is evaluated last) of all the operators. Thus, for example, the
-following program attempts to combine a range pattern with another,
-simpler test.
+In a range pattern, the comma (@samp{,}) has the lowest precedence of
+all the operators (i.e., it is evaluated last). Thus, the following
+program attempts to combine a range pattern with another simpler test:
@example
echo Yes | awk '/1/,/2/ || /Yes/'
@end example
-The author of this program intended it to mean @samp{(/1/,/2/) || /Yes/}.
-However, @code{awk} interprets this as @samp{/1/, (/2/ || /Yes/)}.
+The intent of this program is @samp{(/1/,/2/) || /Yes/}.
+However, @command{awk} interprets this as @samp{/1/, (/2/ || /Yes/)}.
This cannot be changed or worked around; range patterns do not combine
-with other patterns.
+with other patterns:
+
+@example
+$ echo yes | gawk '(/1/,/2/) || /Yes/'
+@error{} gawk: cmd. line:1: (/1/,/2/) || /Yes/
+@error{} gawk: cmd. line:1: ^ parse error
+@error{} gawk: cmd. line:2: (/1/,/2/) || /Yes/
+@error{} gawk: cmd. line:2: ^ unexpected newline
+@end example
@node BEGIN/END, Empty, Ranges, Pattern Overview
@subsection The @code{BEGIN} and @code{END} Special Patterns
@@ -7473,9 +8912,15 @@ with other patterns.
@cindex pattern, @code{BEGIN}
@cindex @code{END} special pattern
@cindex pattern, @code{END}
-@code{BEGIN} and @code{END} are special patterns. They are not used to
-match input records. Rather, they supply start-up or
-clean-up actions for your @code{awk} script.
+@cindex blocks, @code{BEGIN} and @code{END}
+All the patterns described so far are for matching input records.
+The @code{BEGIN} and @code{END} special patterns are different.
+They supply startup and cleanup actions for @command{awk} programs.
+@code{BEGIN} and @code{END} rules must have actions; there is no default
+action for these rules because there is no current record when they run.
+@code{BEGIN} and @code{END} rules are often referred to as
+``@code{BEGIN} and @code{END} blocks'' by long-time @command{awk}
+programmers.
@menu
* Using BEGIN/END:: How and why to use BEGIN/END rules.
@@ -7485,115 +8930,113 @@ clean-up actions for your @code{awk} script.
@node Using BEGIN/END, I/O And BEGIN/END, BEGIN/END, BEGIN/END
@subsubsection Startup and Cleanup Actions
-A @code{BEGIN} rule is executed, once, before the first input record
-has been read. An @code{END} rule is executed, once, after all the
-input has been read. For example:
+A @code{BEGIN} rule is executed once only, before the first input record
+is read. Likewise, an @code{END} rule is executed once only, after all the
+input is read. For example:
@example
-@group
$ awk '
> BEGIN @{ print "Analysis of \"foo\"" @}
> /foo/ @{ ++n @}
-> END @{ print "\"foo\" appears " n " times." @}' BBS-list
+> END @{ print "\"foo\" appears", n, "times." @}' BBS-list
@print{} Analysis of "foo"
@print{} "foo" appears 4 times.
-@end group
@end example
This program finds the number of records in the input file @file{BBS-list}
that contain the string @samp{foo}. The @code{BEGIN} rule prints a title
for the report. There is no need to use the @code{BEGIN} rule to
-initialize the counter @code{n} to zero, as @code{awk} does this
+initialize the counter @code{n} to zero, since @command{awk} does this
automatically (@pxref{Variables}).
-
The second rule increments the variable @code{n} every time a
record containing the pattern @samp{foo} is read. The @code{END} rule
prints the value of @code{n} at the end of the run.
The special patterns @code{BEGIN} and @code{END} cannot be used in ranges
-or with boolean operators (indeed, they cannot be used with any operators).
-
-An @code{awk} program may have multiple @code{BEGIN} and/or @code{END}
-rules. They are executed in the order they appear, all the @code{BEGIN}
-rules at start-up and all the @code{END} rules at termination.
+or with Boolean operators (indeed, they cannot be used with any operators).
+An @command{awk} program may have multiple @code{BEGIN} and/or @code{END}
+rules. They are executed in the order in which they appear: all the @code{BEGIN}
+rules at startup and all the @code{END} rules at termination.
@code{BEGIN} and @code{END} rules may be intermixed with other rules.
-This feature was added in the 1987 version of @code{awk}, and is included
-in the POSIX standard. The original (1978) version of @code{awk}
-required you to put the @code{BEGIN} rule at the beginning of the
-program, and the @code{END} rule at the end, and only allowed one of
-each. This is no longer required, but it is a good idea in terms of
-program organization and readability.
+This feature was added in the 1987 version of @command{awk} and is included
+in the POSIX standard.
+The original (1978) version of @command{awk}
+required the @code{BEGIN} rule to be placed at the beginning of the
+program, the @code{END} rule to be placed at the end, and only allowed one of
+each.
+This is no longer required, but it is a good idea to follow this template
+in terms of program organization and readability.
Multiple @code{BEGIN} and @code{END} rules are useful for writing
-library functions, since each library file can have its own @code{BEGIN} and/or
-@code{END} rule to do its own initialization and/or cleanup. Note that
-the order in which library functions are named on the command line
+library functions, because each library file can have its own @code{BEGIN} and/or
+@code{END} rule to do its own initialization and/or cleanup.
+The order in which library functions are named on the command line
controls the order in which their @code{BEGIN} and @code{END} rules are
-executed. Therefore you have to be careful to write such rules in
+executed. Therefore you have to be careful when writing such rules in
library files so that the order in which they are executed doesn't matter.
-@xref{Options, ,Command Line Options}, for more information on
+@xref{Options, ,Command-Line Options}, for more information on
using library functions.
-@xref{Library Functions, ,A Library of @code{awk} Functions},
+@xref{Library Functions, ,A Library of @command{awk} Functions},
for a number of useful library functions.
-@cindex dark corner
-If an @code{awk} program only has a @code{BEGIN} rule, and no other
-rules, then the program exits after the @code{BEGIN} rule has been run.
-(The original version of @code{awk} used to keep reading and ignoring input
-until end of file was seen.) However, if an @code{END} rule exists,
-then the input will be read, even if there are no other rules in
-the program. This is necessary in case the @code{END} rule checks the
-@code{FNR} and @code{NR} variables (d.c.).
-
-@code{BEGIN} and @code{END} rules must have actions; there is no default
-action for these rules since there is no current record when they run.
+If an @command{awk} program only has a @code{BEGIN} rule and no
+other rules, then the program exits after the @code{BEGIN} rule is
+run.@footnote{The original version of @command{awk} used to keep
+reading and ignoring input until end of file was seen.} However, if an
+@code{END} rule exists, then the input is read, even if there are
+no other rules in the program. This is necessary in case the @code{END}
+rule checks the @code{FNR} and @code{NR} variables.
@node I/O And BEGIN/END, , Using BEGIN/END, BEGIN/END
@subsubsection Input/Output from @code{BEGIN} and @code{END} Rules
-@cindex I/O from @code{BEGIN} and @code{END}
-There are several (sometimes subtle) issues involved when doing I/O
+@cindex I/O, from @code{BEGIN} and @code{END}
+There are several (sometimes subtle) points to remember when doing I/O
from a @code{BEGIN} or @code{END} rule.
-
The first has to do with the value of @code{$0} in a @code{BEGIN}
-rule. Since @code{BEGIN} rules are executed before any input is read,
+rule. Because @code{BEGIN} rules are executed before any input is read,
there simply is no input record, and therefore no fields, when
executing @code{BEGIN} rules. References to @code{$0} and the fields
yield a null string or zero, depending upon the context. One way
to give @code{$0} a real value is to execute a @code{getline} command
without a variable (@pxref{Getline, ,Explicit Input with @code{getline}}).
-Another way is to simply assign a value to it.
+Another way is to simply assign a value to @code{$0}.
-@cindex differences between @code{gawk} and @code{awk}
-The second point is similar to the first, but from the other direction.
-Inside an @code{END} rule, what is the value of @code{$0} and @code{NF}?
+@cindex differences between @command{gawk} and @command{awk}
+The second point is similar to the first but from the other direction.
Traditionally, due largely to implementation issues, @code{$0} and
@code{NF} were @emph{undefined} inside an @code{END} rule.
-The POSIX standard specified that @code{NF} was available in an @code{END}
-rule, containing the number of fields from the last input record.
-Due most probably to an oversight, the standard does not say that @code{$0}
+The POSIX standard specifies that @code{NF} is available in an @code{END}
+rule. It contains the number of fields from the last input record.
+Most probably due to an oversight, the standard does not say that @code{$0}
is also preserved, although logically one would think that it should be.
-In fact, @code{gawk} does preserve the value of @code{$0} for use in
-@code{END} rules. Be aware, however, that Unix @code{awk}, and possibly
+In fact, @command{gawk} does preserve the value of @code{$0} for use in
+@code{END} rules. Be aware, however, that Unix @command{awk}, and possibly
other implementations, do not.
-The third point follows from the first two. What is the meaning of
-@samp{print} inside a @code{BEGIN} or @code{END} rule? The meaning is
-the same as always, @samp{print $0}. If @code{$0} is the null string,
-then this prints an empty line. Many long time @code{awk} programmers
-use @samp{print} in @code{BEGIN} and @code{END} rules, to mean
-@samp{@w{print ""}}, relying on @code{$0} being null. While you might
-generally get away with this in @code{BEGIN} rules, in @code{gawk} at
-least, it is a very bad idea in @code{END} rules. It is also poor
-style, since if you want an empty line in the output, you
-should say so explicitly in your program.
-
-@node Empty, , BEGIN/END, Pattern Overview
+The third point follows from the first two. The meaning of @samp{print}
+inside a @code{BEGIN} or @code{END} rule is the same as always:
+@samp{print $0}. If @code{$0} is the null string, then this prints an
+empty line. Many long time @command{awk} programmers use an unadorned
+@samp{print} in @code{BEGIN} and @code{END} rules, to mean @samp{@w{print ""}},
+relying on @code{$0} being null. Although one might generally get away with
+this in @code{BEGIN} rules, it is a very bad idea in @code{END} rules,
+at least in @command{gawk}. It is also poor style, since if an empty
+line is needed in the output, the program should print one explicitly.
+
+Finally, the @code{next} and @code{nextfile} statements are not allowed
+in a @code{BEGIN} rule, because the implicit
+read-a-record-and-match-against-the-rules loop has not started yet. Similarly, those statements
+are not valid in an @code{END} rule, since all the input has been read.
+(@xref{Next Statement, ,The @code{next} Statement}, and see
+@ref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}.)
+
+@node Empty, , BEGIN/END, Pattern Overview
@subsection The Empty Pattern
@cindex empty pattern
@cindex pattern, empty
-An empty (i.e.@: non-existent) pattern is considered to match @emph{every}
+An empty (i.e., non-existent) pattern is considered to match @emph{every}
input record. For example, the program:
@example
@@ -7603,22 +9046,82 @@ awk '@{ print $1 @}' BBS-list
@noindent
prints the first field of every record.
-@node Action Overview, , Pattern Overview, Patterns and Actions
-@section Overview of Actions
+@node Using Shell Variables, Action Overview, Pattern Overview, Patterns and Actions
+@section Using Shell Variables in Programs
+@cindex shell varibles, using in @command{awk} programs
+@cindex using shell variables in @command{awk} programs
+@cindex shell and @command{awk} interaction
+
+@command{awk} programs are often used as components in larger
+programs written in shell.
+For example, it is very common to use a shell variable to
+hold a pattern that the @command{awk} program searches for.
+There are two ways to get the value of the shell variable
+into the body of the @command{awk} program.
+
+The most common method is to use shell quoting to substitute
+the variable's value into the program inside the script.
+For example, in the following program:
+
+@example
+echo -n "Enter search pattern: "
+read pattern
+awk "/$pattern/ "'@{ nmatches++ @}
+ END @{ print nmatches, "found" @}' /path/to/data
+@end example
+
+@noindent
+the @command{awk} program consists of two pieces of quoted text
+that are concatenated together to form the program.
+The first part is double-quoted, which allows substitution of
+the @code{pattern} variable inside the quotes.
+The second part is single-quoted.
+
+Variable substitution via quoting works, but can be potentially
+messy. It requires a good understanding of the shell's quoting rules
+(@pxref{Quoting, ,Shell Quoting Issues}),
+and it's often difficult to correctly
+match up the quotes when reading the program.
+
+A better method is to use @command{awk}'s variable assignment feature
+(@pxref{Assignment Options, ,Assigning Variables on the Command Line})
+to assign the shell variable's value to an @command{awk} variable's
+value. Then use dynamic regexps to match the pattern
+(@pxref{Computed Regexps, ,Using Dynamic Regexps}).
+The following shows how to redo the
+previous example using this technique:
+
+@example
+echo -n "Enter search pattern: "
+read pattern
+awk -v pat="$pattern" '$0 ~ pat @{ nmatches++ @}
+ END @{ print nmatches, "found" @}' /path/to/data
+@end example
+
+@noindent
+Now, the @command{awk} program is just one single-quoted string.
+The assignment @samp{-v pat="$pattern"} still requires double quotes,
+in case there is whitespace in the value of @code{$pattern}.
+The @command{awk} variable @code{pat} could be named @code{pattern}
+too, but that would be more confusing. Using a variable also
+provides more flexibility, since the variable can be used anywhere inside
+the program---for printing, as an array subscript, or for any other
+use---without requiring the quoting tricks at every point in the program.
+
+@node Action Overview, Statements, Using Shell Variables, Patterns and Actions
+@section Actions
@cindex action, definition of
@cindex curly braces
@cindex action, curly braces
@cindex action, separating statements
-An @code{awk} program or script consists of a series of
-rules and function definitions, interspersed. (Functions are
-described later. @xref{User-defined, ,User-defined Functions}.)
-
+An @command{awk} program or script consists of a series of
+rules and function definitions interspersed. (Functions are
+described later. @xref{User-defined, ,User-Defined Functions}.)
A rule contains a pattern and an action, either of which (but not
-both) may be
-omitted. The purpose of the @dfn{action} is to tell @code{awk} what to do
-once a match for the pattern is found. Thus, in outline, an @code{awk}
-program generally looks like this:
+both) may be omitted. The purpose of the @dfn{action} is to tell
+@command{awk} what to do once a match for the pattern is found. Thus,
+in outline, an @command{awk} program generally looks like this:
@example
@r{[}@var{pattern}@r{]} @r{[}@{ @var{action} @}@r{]}
@@ -7628,24 +9131,23 @@ function @var{name}(@var{args}) @{ @dots{} @}
@dots{}
@end example
-An action consists of one or more @code{awk} @dfn{statements}, enclosed
+An action consists of one or more @command{awk} @dfn{statements}, enclosed
in curly braces (@samp{@{} and @samp{@}}). Each statement specifies one
-thing to be done. The statements are separated by newlines or
-semicolons.
-
+thing to do. The statements are separated by newlines or semicolons.
The curly braces around an action must be used even if the action
-contains only one statement, or even if it contains no statements at
+contains only one statement, or if it contains no statements at
all. However, if you omit the action entirely, omit the curly braces as
-well. An omitted action is equivalent to @samp{@{ print $0 @}}.
+well. An omitted action is equivalent to @samp{@{ print $0 @}}:
@example
-/foo/ @{ @} # match foo, do nothing - empty action
-/foo/ # match foo, print the record - omitted action
+/foo/ @{ @} @i{match @code{foo}, do nothing --- empty action}
+/foo/ @i{match @code{foo}, print the record --- omitted action}
@end example
-Here are the kinds of statements supported in @code{awk}:
+The following types of statements are supported in @command{awk}:
@itemize @bullet
+@cindex side effects
@item
Expressions, which can call functions or assign values to variables
(@pxref{Expressions}). Executing
@@ -7654,60 +9156,54 @@ This is useful when the expression has side effects
(@pxref{Assignment Ops, ,Assignment Expressions}).
@item
-Control statements, which specify the control flow of @code{awk}
-programs. The @code{awk} language gives you C-like constructs
+Control statements, which specify the control flow of @command{awk}
+programs. The @command{awk} language gives you C-like constructs
(@code{if}, @code{for}, @code{while}, and @code{do}) as well as a few
special ones (@pxref{Statements, ,Control Statements in Actions}).
@item
Compound statements, which consist of one or more statements enclosed in
curly braces. A compound statement is used in order to put several
-statements together in the body of an @code{if}, @code{while}, @code{do}
+statements together in the body of an @code{if}, @code{while}, @code{do},
or @code{for} statement.
@item
-Input statements, using the @code{getline} command
+Input statements using the @code{getline} command
(@pxref{Getline, ,Explicit Input with @code{getline}}), the @code{next}
statement (@pxref{Next Statement, ,The @code{next} Statement}),
and the @code{nextfile} statement
-(@pxref{Nextfile Statement, ,The @code{nextfile} Statement}).
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
@item
-Output statements, @code{print} and @code{printf}.
+Output statements, such as @code{print} and @code{printf}.
@xref{Printing, ,Printing Output}.
@item
-Deletion statements, for deleting array elements.
+Deletion statements for deleting array elements.
@xref{Delete, ,The @code{delete} Statement}.
@end itemize
-@iftex
-The next chapter covers control statements in detail.
-@end iftex
-
-@node Statements, Built-in Variables, Patterns and Actions, Top
-@chapter Control Statements in Actions
+@node Statements, Built-in Variables, Action Overview, Patterns and Actions
+@section Control Statements in Actions
@cindex control statement
-@dfn{Control statements} such as @code{if}, @code{while}, and so on
-control the flow of execution in @code{awk} programs. Most of the
-control statements in @code{awk} are patterned on similar statements in
-C.
-
-All the control statements start with special keywords such as @code{if}
-and @code{while}, to distinguish them from simple expressions.
+@dfn{Control statements}, such as @code{if}, @code{while}, and so on,
+control the flow of execution in @command{awk} programs. Most of the
+control statements in @command{awk} are patterned on similar statements in C.
@cindex compound statement
@cindex statement, compound
-Many control statements contain other statements; for example, the
-@code{if} statement contains another statement which may or may not be
-executed. The contained statement is called the @dfn{body}. If you
-want to include more than one statement in the body, group them into a
+All the control statements start with special keywords, such as @code{if}
+and @code{while}, to distinguish them from simple expressions.
+Many control statements contain other statements. For example, the
+@code{if} statement contains another statement that may or may not be
+executed. The contained statement is called the @dfn{body}.
+To include more than one statement in the body, group them into a
single @dfn{compound statement} with curly braces, separating them with
newlines or semicolons.
@menu
-* If Statement:: Conditionally execute some @code{awk}
+* If Statement:: Conditionally execute some @command{awk}
statements.
* While Statement:: Loop until some condition is satisfied.
* Do Statement:: Do specified action while looping until some
@@ -7719,14 +9215,14 @@ newlines or semicolons.
loop.
* Next Statement:: Stop processing the current input record.
* Nextfile Statement:: Stop processing the current file.
-* Exit Statement:: Stop execution of @code{awk}.
+* Exit Statement:: Stop execution of @command{awk}.
@end menu
@node If Statement, While Statement, Statements, Statements
-@section The @code{if}-@code{else} Statement
+@subsection The @code{if}-@code{else} Statement
@cindex @code{if}-@code{else} statement
-The @code{if}-@code{else} statement is @code{awk}'s decision-making
+The @code{if}-@code{else} statement is @command{awk}'s decision-making
statement. It looks like this:
@example
@@ -7735,13 +9231,12 @@ if (@var{condition}) @var{then-body} @r{[}else @var{else-body}@r{]}
@noindent
The @var{condition} is an expression that controls what the rest of the
-statement will do. If @var{condition} is true, @var{then-body} is
+statement does. If the @var{condition} is true, @var{then-body} is
executed; otherwise, @var{else-body} is executed.
The @code{else} part of the statement is
optional. The condition is considered false if its value is zero or
-the null string, and true otherwise.
-
-Here is an example:
+the null string; otherwise the condition is true.
+Refer to the following:
@example
if (x % 2 == 0)
@@ -7751,14 +9246,14 @@ else
@end example
In this example, if the expression @samp{x % 2 == 0} is true (that is,
-the value of @code{x} is evenly divisible by two), then the first @code{print}
-statement is executed, otherwise the second @code{print} statement is
-executed.
-
-If the @code{else} appears on the same line as @var{then-body}, and
-@var{then-body} is not a compound statement (i.e.@: not surrounded by
+if the value of @code{x} is evenly divisible by two), then the first
+@code{print} statement is executed; otherwise the second @code{print}
+statement is executed.
+If the @code{else} keyword appears on the same line as @var{then-body} and
+@var{then-body} is not a compound statement (i.e., not surrounded by
curly braces), then a semicolon must separate @var{then-body} from
-@code{else}. To illustrate this, let's rewrite the previous example:
+the @code{else}.
+To illustrate this, the previous example can be rewritten as:
@example
if (x % 2 == 0) print "x is even"; else
@@ -7766,25 +9261,22 @@ if (x % 2 == 0) print "x is even"; else
@end example
@noindent
-If you forget the @samp{;}, @code{awk} won't be able to interpret the
-statement, and you will get a syntax error.
-
-We would not actually write this example this way, because a human
-reader might fail to see the @code{else} if it were not the first thing
-on its line.
+If the @samp{;} is left out, @command{awk} can't interpret the statement and
+it produces a syntax error. Don't actually write programs this way,
+because a human reader might fail to see the @code{else} if it is not
+the first thing on its line.
@node While Statement, Do Statement, If Statement, Statements
-@section The @code{while} Statement
+@subsection The @code{while} Statement
@cindex @code{while} statement
@cindex loop
@cindex body of a loop
-In programming, a @dfn{loop} means a part of a program that can
+In programming, a @dfn{loop} is a part of a program that can
be executed two or more times in succession.
-
The @code{while} statement is the simplest looping statement in
-@code{awk}. It repeatedly executes a statement as long as a condition is
-true. It looks like this:
+@command{awk}. It repeatedly executes a statement as long as a condition is
+true. For example:
@example
while (@var{condition})
@@ -7792,24 +9284,22 @@ while (@var{condition})
@end example
@noindent
-Here @var{body} is a statement that we call the @dfn{body} of the loop,
+@var{body} is a statement called the @dfn{body} of the loop,
and @var{condition} is an expression that controls how long the loop
keeps running.
-
-The first thing the @code{while} statement does is test @var{condition}.
-If @var{condition} is true, it executes the statement @var{body}.
+The first thing the @code{while} statement does is test the @var{condition}.
+If the @var{condition} is true, it executes the statement @var{body}.
@ifinfo
-(The @var{condition} is true when the value
+(The @var{condition} is true when the value
is not zero and not a null string.)
@end ifinfo
After @var{body} has been executed,
@var{condition} is tested again, and if it is still true, @var{body} is
-executed again. This process repeats until @var{condition} is no longer
-true. If @var{condition} is initially false, the body of the loop is
-never executed, and @code{awk} continues with the statement following
+executed again. This process repeats until the @var{condition} is no longer
+true. If the @var{condition} is initially false, the body of the loop is
+never executed and @command{awk} continues with the statement following
the loop.
-
-This example prints the first three fields of each record, one per line.
+This example prints the first three fields of each record, one per line:
@example
awk '@{ i = 1
@@ -7821,39 +9311,37 @@ awk '@{ i = 1
@end example
@noindent
-Here the body of the loop is a compound statement enclosed in braces,
+The body of this loop is a compound statement enclosed in braces,
containing two statements.
-
-The loop works like this: first, the value of @code{i} is set to one.
-Then, the @code{while} tests whether @code{i} is less than or equal to
+The loop works in the following manner: first, the value of @code{i} is set to one.
+Then, the @code{while} statement tests whether @code{i} is less than or equal to
three. This is true when @code{i} equals one, so the @code{i}-th
field is printed. Then the @samp{i++} increments the value of @code{i}
and the loop repeats. The loop terminates when @code{i} reaches four.
-As you can see, a newline is not required between the condition and the
-body; but using one makes the program clearer unless the body is a
-compound statement or is very simple. The newline after the open-brace
+A newline is not required between the condition and the
+body; however using one makes the program clearer unless the body is a
+compound statement or else is very simple. The newline after the open-brace
that begins the compound statement is not required either, but the
-program would be harder to read without it.
+program is harder to read without it.
@node Do Statement, For Statement, While Statement, Statements
-@section The @code{do}-@code{while} Statement
+@subsection The @code{do}-@code{while} Statement
+@cindex @code{do}-@code{while} statement
The @code{do} loop is a variation of the @code{while} looping statement.
-The @code{do} loop executes the @var{body} once, and then repeats @var{body}
-as long as @var{condition} is true. It looks like this:
+The @code{do} loop executes the @var{body} once and then repeats the
+@var{body} as long as the @var{condition} is true. It looks like this:
@example
-@group
do
@var{body}
while (@var{condition})
-@end group
@end example
-Even if @var{condition} is false at the start, @var{body} is executed at
-least once (and only once, unless executing @var{body} makes
-@var{condition} true). Contrast this with the corresponding
+Even if the @var{condition} is false at the start, the @var{body} is
+executed at least once (and only once, unless executing @var{body}
+makes @var{condition} true). Contrast this with the corresponding
@code{while} statement:
@example
@@ -7862,28 +9350,27 @@ while (@var{condition})
@end example
@noindent
-This statement does not execute @var{body} even once if @var{condition}
+This statement does not execute @var{body} even once if the @var{condition}
is false to begin with.
-
-Here is an example of a @code{do} statement:
+The following is an example of a @code{do} statement:
@example
-awk '@{ i = 1
+@{ i = 1
do @{
print $0
i++
@} while (i <= 10)
-@}'
+@}
@end example
@noindent
-This program prints each input record ten times. It isn't a very
+This program prints each input record ten times. However, it isn't a very
realistic example, since in this case an ordinary @code{while} would do
-just as well. But this reflects actual experience; there is only
-occasionally a real use for a @code{do} statement.
+just as well. This situation reflects actual experience; only
+occasionally is there a real use for a @code{do} statement.
@node For Statement, Break Statement, Do Statement, Statements
-@section The @code{for} Statement
+@subsection The @code{for} Statement
@cindex @code{for} statement
The @code{for} statement makes it more convenient to count iterations of a
@@ -7895,58 +9382,56 @@ for (@var{initialization}; @var{condition}; @var{increment})
@end example
@noindent
-The @var{initialization}, @var{condition} and @var{increment} parts are
-arbitrary @code{awk} expressions, and @var{body} stands for any
-@code{awk} statement.
+The @var{initialization}, @var{condition}, and @var{increment} parts are
+arbitrary @command{awk} expressions, and @var{body} stands for any
+@command{awk} statement.
The @code{for} statement starts by executing @var{initialization}.
Then, as long
-as @var{condition} is true, it repeatedly executes @var{body} and then
-@var{increment}. Typically @var{initialization} sets a variable to
+as the @var{condition} is true, it repeatedly executes @var{body} and then
+@var{increment}. Typically, @var{initialization} sets a variable to
either zero or one, @var{increment} adds one to it, and @var{condition}
compares it against the desired number of iterations.
-
-Here is an example of a @code{for} statement:
+For example:
@example
-@group
awk '@{ for (i = 1; i <= 3; i++)
print $i
@}' inventory-shipped
-@end group
@end example
@noindent
-This prints the first three fields of each input record, one field per
+This prints the first three fields of each input record, with one field per
line.
-You cannot set more than one variable in the
-@var{initialization} part unless you use a multiple assignment statement
-such as @samp{x = y = 0}, which is possible only if all the initial values
-are equal. (But you can initialize additional variables by writing
+It isn't possible to
+set more than one variable in the
+@var{initialization} part without using a multiple assignment statement
+such as @samp{x = y = 0}. This makes sense only if all the initial values
+are equal. (But it is possible to initialize additional variables by writing
their assignments as separate statements preceding the @code{for} loop.)
-The same is true of the @var{increment} part; to increment additional
-variables, you must write separate statements at the end of the loop.
-The C compound expression, using C's comma operator, would be useful in
-this context, but it is not supported in @code{awk}.
+@cindex comma operator, not supported
+The same is true of the @var{increment} part. Incrementing additional
+variables requires separate statements at the end of the loop.
+The C compound expression, using C's comma operator, is useful in
+this context but it is not supported in @command{awk}.
-Most often, @var{increment} is an increment expression, as in the
-example above. But this is not required; it can be any expression
-whatever. For example, this statement prints all the powers of two
-between one and 100:
+Most often, @var{increment} is an increment expression, as in the previous
+example. But this is not required; it can be any expression
+whatsoever. For example, the following statement prints all the powers of two
+between 1 and 100:
@example
for (i = 1; i <= 100; i *= 2)
print i
@end example
-Any of the three expressions in the parentheses following the @code{for} may
-be omitted if there is nothing to be done there. Thus, @w{@samp{for (; x
-> 0;)}} is equivalent to @w{@samp{while (x > 0)}}. If the
-@var{condition} is omitted, it is treated as @var{true}, effectively
-yielding an @dfn{infinite loop} (i.e.@: a loop that will never
-terminate).
+If there is nothing to be done, any of the three expressions in the
+parentheses following the @code{for} keyword may be omitted. Thus,
+@w{@samp{for (; x > 0;)}} is equivalent to @w{@samp{while (x > 0)}}. If the
+@var{condition} is omitted, it is treated as true, effectively
+yielding an @dfn{infinite loop} (i.e., a loop that never terminates).
In most cases, a @code{for} loop is an abbreviation for a @code{while}
loop, as shown here:
@@ -7962,10 +9447,18 @@ while (@var{condition}) @{
@noindent
The only exception is when the @code{continue} statement
(@pxref{Continue Statement, ,The @code{continue} Statement}) is used
-inside the loop; changing a @code{for} statement to a @code{while}
+inside the loop. Changing a @code{for} statement to a @code{while}
statement in this way can change the effect of the @code{continue}
statement inside the loop.
+The @command{awk} language has a @code{for} statement in addition to a
+@code{while} statement because a @code{for} loop is often both less work to
+type and more natural to think of. Counting the number of iterations is
+very common in loops. It can be easier to think of this counting as part
+of looping rather than as something to do inside the loop.
+
+@ifinfo
+@cindex @code{in} operator
There is an alternate version of the @code{for} loop, for iterating over
all the indices of an array:
@@ -7977,157 +9470,114 @@ for (i in array)
@noindent
@xref{Scanning an Array, ,Scanning All Elements of an Array},
for more information on this version of the @code{for} loop.
-
-The @code{awk} language has a @code{for} statement in addition to a
-@code{while} statement because often a @code{for} loop is both less work to
-type and more natural to think of. Counting the number of iterations is
-very common in loops. It can be easier to think of this counting as part
-of looping rather than as something to do inside the loop.
-
-The next section has more complicated examples of @code{for} loops.
+@end ifinfo
@node Break Statement, Continue Statement, For Statement, Statements
-@section The @code{break} Statement
+@subsection The @code{break} Statement
@cindex @code{break} statement
@cindex loops, exiting
The @code{break} statement jumps out of the innermost @code{for},
-@code{while}, or @code{do} loop that encloses it. The
-following example finds the smallest divisor of any integer, and also
-identifies prime numbers:
+@code{while}, or @code{do} loop that encloses it. The following example
+finds the smallest divisor of any integer, and also identifies prime
+numbers:
@example
-awk '# find smallest divisor of num
- @{ num = $1
-@group
- for (div = 2; div*div <= num; div++)
- if (num % div == 0)
- break
-@end group
- if (num % div == 0)
- printf "Smallest divisor of %d is %d\n", num, div
- else
- printf "%d is prime\n", num
- @}'
+# find smallest divisor of num
+@{
+ num = $1
+ for (div = 2; div*div <= num; div++)
+ if (num % div == 0)
+ break
+ if (num % div == 0)
+ printf "Smallest divisor of %d is %d\n", num, div
+ else
+ printf "%d is prime\n", num
+@}
@end example
-When the remainder is zero in the first @code{if} statement, @code{awk}
+When the remainder is zero in the first @code{if} statement, @command{awk}
immediately @dfn{breaks out} of the containing @code{for} loop. This means
-that @code{awk} proceeds immediately to the statement following the loop
+that @command{awk} proceeds immediately to the statement following the loop
and continues processing. (This is very different from the @code{exit}
-statement which stops the entire @code{awk} program.
+statement, which stops the entire @command{awk} program.
@xref{Exit Statement, ,The @code{exit} Statement}.)
-Here is another program equivalent to the previous one. It illustrates how
-the @var{condition} of a @code{for} or @code{while} could just as well be
-replaced with a @code{break} inside an @code{if}:
+Th following program illustrates how the @var{condition} of a @code{for}
+or @code{while} statement could be replaced with a @code{break} inside
+an @code{if}:
@example
-@group
-awk '# find smallest divisor of num
- @{ num = $1
- for (div = 2; ; div++) @{
- if (num % div == 0) @{
- printf "Smallest divisor of %d is %d\n", num, div
- break
- @}
- if (div*div > num) @{
- printf "%d is prime\n", num
- break
- @}
- @}
-@}'
-@end group
+# find smallest divisor of num
+@{
+ num = $1
+ for (div = 2; ; div++) @{
+ if (num % div == 0) @{
+ printf "Smallest divisor of %d is %d\n", num, div
+ break
+ @}
+ if (div*div > num) @{
+ printf "%d is prime\n", num
+ break
+ @}
+ @}
+@}
@end example
@cindex @code{break}, outside of loops
@cindex historical features
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@cindex dark corner
-As described above, the @code{break} statement has no meaning when
+The @code{break} statement has no meaning when
used outside the body of a loop. However, although it was never documented,
-historical implementations of @code{awk} have treated the @code{break}
+historical implementations of @command{awk} treated the @code{break}
statement outside of a loop as if it were a @code{next} statement
(@pxref{Next Statement, ,The @code{next} Statement}).
-Recent versions of Unix @code{awk} no longer allow this usage.
-@code{gawk} will support this use of @code{break} only if @samp{--traditional}
+Recent versions of Unix @command{awk} no longer allow this usage.
+@command{gawk} supports this use of @code{break} only
+if @option{--traditional}
has been specified on the command line
-(@pxref{Options, ,Command Line Options}).
-Otherwise, it will be treated as an error, since the POSIX standard
+(@pxref{Options, ,Command-Line Options}).
+Otherwise, it is treated as an error, since the POSIX standard
specifies that @code{break} should only be used inside the body of a
-loop (d.c.).
+loop.
+@value{DARKCORNER}
@node Continue Statement, Next Statement, Break Statement, Statements
-@section The @code{continue} Statement
+@subsection The @code{continue} Statement
@cindex @code{continue} statement
-The @code{continue} statement, like @code{break}, is used only inside
+As with @code{break}, the @code{continue} statement is used only inside
@code{for}, @code{while}, and @code{do} loops. It skips
over the rest of the loop body, causing the next cycle around the loop
to begin immediately. Contrast this with @code{break}, which jumps out
of the loop altogether.
-@c The point of this program was to illustrate the use of continue with
-@c a while loop. But Karl Berry points out that that is done adequately
-@c below, and that this example is very un-awk-like. So for now, we'll
-@c omit it.
-@ignore
-In Texinfo source files, text that the author wishes to ignore can be
-enclosed between lines that start with @samp{@@ignore} and end with
-@samp{@atend ignore}. Here is a program that strips out lines between
-@samp{@@ignore} and @samp{@atend ignore} pairs.
-
-@example
-BEGIN @{
- while (getline > 0) @{
- if (/^@@ignore/)
- ignoring = 1
- else if (/^@@end[ \t]+ignore/) @{
- ignoring = 0
- continue
- @}
- if (ignoring)
- continue
- print
- @}
-@}
-@end example
-
-When an @samp{@@ignore} is seen, the @code{ignoring} flag is set to one (true).
-When @samp{@atend ignore} is seen, the flag is reset to zero (false). As long
-as the flag is true, the input record is not printed, because the
-@code{continue} restarts the @code{while} loop, skipping over the @code{print}
-statement.
-
-@c Exercise!!!
-@c How could this program be written to make better use of the awk language?
-@end ignore
-
-The @code{continue} statement in a @code{for} loop directs @code{awk} to
-skip the rest of the body of the loop, and resume execution with the
+The @code{continue} statement in a @code{for} loop directs @command{awk} to
+skip the rest of the body of the loop and resume execution with the
increment-expression of the @code{for} statement. The following program
illustrates this fact:
@example
-awk 'BEGIN @{
+BEGIN @{
for (x = 0; x <= 20; x++) @{
if (x == 5)
continue
printf "%d ", x
@}
print ""
-@}'
+@}
@end example
@noindent
-This program prints all the numbers from zero to 20, except for five, for
-which the @code{printf} is skipped. Since the increment @samp{x++}
+This program prints all the numbers from 0 to 20---except for five, for
+which the @code{printf} is skipped. Because the increment @samp{x++}
is not skipped, @code{x} does not remain stuck at five. Contrast the
-@code{for} loop above with this @code{while} loop:
+@code{for} loop from the previous example with the following @code{while} loop:
@example
-awk 'BEGIN @{
+BEGIN @{
x = 0
while (x <= 20) @{
if (x == 5)
@@ -8136,186 +9586,203 @@ awk 'BEGIN @{
x++
@}
print ""
-@}'
+@}
@end example
@noindent
-This program loops forever once @code{x} gets to five.
+This program loops forever once @code{x} reaches five.
@cindex @code{continue}, outside of loops
@cindex historical features
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@cindex dark corner
-As described above, the @code{continue} statement has no meaning when
-used outside the body of a loop. However, although it was never documented,
-historical implementations of @code{awk} have treated the @code{continue}
-statement outside of a loop as if it were a @code{next} statement
+The @code{continue} statement has no meaning when used outside the body of
+a loop. Historical versions of @command{awk} treated a @code{continue}
+statement outside a loop the same way they treated a @code{break}
+statement outside a loop: as if it were a @code{next}
+statement
(@pxref{Next Statement, ,The @code{next} Statement}).
-Recent versions of Unix @code{awk} no longer allow this usage.
-@code{gawk} will support this use of @code{continue} only if
-@samp{--traditional} has been specified on the command line
-(@pxref{Options, ,Command Line Options}).
-Otherwise, it will be treated as an error, since the POSIX standard
-specifies that @code{continue} should only be used inside the body of a
-loop (d.c.).
+Recent versions of Unix @command{awk} no longer work this way, and
+@command{gawk} allows it only if @option{--traditional} is specified on
+the command line (@pxref{Options, ,Command-Line Options}). Just like the
+@code{break} statement, the POSIX standard specifies that @code{continue}
+should only be used inside the body of a loop.
+@value{DARKCORNER}
@node Next Statement, Nextfile Statement, Continue Statement, Statements
-@section The @code{next} Statement
+@subsection The @code{next} Statement
@cindex @code{next} statement
-The @code{next} statement forces @code{awk} to immediately stop processing
+The @code{next} statement forces @command{awk} to immediately stop processing
the current record and go on to the next record. This means that no
-further rules are executed for the current record. The rest of the
-current rule's action is not executed either.
+further rules are executed for the current record, and the rest of the
+current rule's action isn't executed.
Contrast this with the effect of the @code{getline} function
-(@pxref{Getline, ,Explicit Input with @code{getline}}). That too causes
-@code{awk} to read the next record immediately, but it does not alter the
-flow of control in any way. So the rest of the current action executes
-with a new input record.
+(@pxref{Getline, ,Explicit Input with @code{getline}}). That also causes
+@command{awk} to read the next record immediately, but it does not alter the
+flow of control in any way (i.e., the rest of the current action executes
+with a new input record).
-At the highest level, @code{awk} program execution is a loop that reads
+At the highest level, @command{awk} program execution is a loop that reads
an input record and then tests each rule's pattern against it. If you
think of this loop as a @code{for} statement whose body contains the
rules, then the @code{next} statement is analogous to a @code{continue}
-statement: it skips to the end of the body of this implicit loop, and
+statement. It skips to the end of the body of this implicit loop and
executes the increment (which reads another record).
-For example, if your @code{awk} program works only on records with four
-fields, and you don't want it to fail when given bad input, you might
-use this rule near the beginning of the program:
+For example, suppose an @command{awk} program works only on records
+with four fields, and it shouldn't fail when given bad input. To avoid
+complicating the rest of the program, write a ``weed out'' rule near
+the beginning, in the following manner:
@example
-@group
NF != 4 @{
err = sprintf("%s:%d: skipped: NF != 4\n", FILENAME, FNR)
print err > "/dev/stderr"
next
@}
-@end group
@end example
@noindent
-so that the following rules will not see the bad record. The error
+Because of the @code{next} statement,
+the program's subsequent rules won't see the bad record. The error
message is redirected to the standard error output stream, as error
-messages should be. @xref{Special Files, ,Special File Names in @code{gawk}}.
+messages should be.
+@xref{Special Files, ,Special @value{FFN}s in @command{gawk}}.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@cindex @code{next}, inside a user-defined function
According to the POSIX standard, the behavior is undefined if
the @code{next} statement is used in a @code{BEGIN} or @code{END} rule.
-@code{gawk} will treat it as a syntax error.
+@command{gawk} treats it as a syntax error.
Although POSIX permits it,
-some other @code{awk} implementations don't allow the @code{next}
+some other @command{awk} implementations don't allow the @code{next}
statement inside function bodies
-(@pxref{User-defined, ,User-defined Functions}).
-Just as any other @code{next} statement, a @code{next} inside a
+(@pxref{User-defined, ,User-Defined Functions}).
+Just as with any other @code{next} statement, a @code{next} statement inside a
function body reads the next record and starts processing it with the
first rule in the program.
-
If the @code{next} statement causes the end of the input to be reached,
-then the code in any @code{END} rules will be executed.
+then the code in any @code{END} rules is executed.
@xref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}.
-@cindex @code{next}, inside a user-defined function
-@strong{Caution:} Some @code{awk} implementations generate a run-time
-error if you use the @code{next} statement inside a user-defined function
-(@pxref{User-defined, , User-defined Functions}).
-@code{gawk} does not have this problem.
-
@node Nextfile Statement, Exit Statement, Next Statement, Statements
-@section The @code{nextfile} Statement
+@subsection Using @command{gawk}'s @code{nextfile} Statement
@cindex @code{nextfile} statement
-@cindex differences between @code{gawk} and @code{awk}
+@cindex differences between @command{gawk} and @command{awk}
-@code{gawk} provides the @code{nextfile} statement,
+@command{gawk} provides the @code{nextfile} statement,
which is similar to the @code{next} statement.
However, instead of abandoning processing of the current record, the
-@code{nextfile} statement instructs @code{gawk} to stop processing the
-current data file.
+@code{nextfile} statement instructs @command{gawk} to stop processing the
+current @value{DF}.
+
+The @code{nextfile} statement is a @command{gawk} extension.
+In most other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+@code{nextfile} is not special.
Upon execution of the @code{nextfile} statement, @code{FILENAME} is
-updated to the name of the next data file listed on the command line,
+updated to the name of the next @value{DF} listed on the command line,
@code{FNR} is reset to one, @code{ARGIND} is incremented, and processing
-starts over with the first rule in the progam. @xref{Built-in Variables}.
-
+starts over with the first rule in the program.
+(@code{ARGIND} hasn't been introduced yet. @xref{Built-in Variables}.)
If the @code{nextfile} statement causes the end of the input to be reached,
-then the code in any @code{END} rules will be executed.
+then the code in any @code{END} rules is executed.
@xref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}.
-The @code{nextfile} statement is a @code{gawk} extension; it is not
-(currently) available in any other @code{awk} implementation.
-@xref{Nextfile Function, ,Implementing @code{nextfile} as a Function},
-for a user-defined function you can use to simulate the @code{nextfile}
+The @code{nextfile} statement is useful when there are many @value{DF}s
+to process but it isn't necessary to process every record in every file.
+Normally, in order to move on to the next @value{DF}, a program
+has to continue scanning the unwanted records. The @code{nextfile}
+statement accomplishes this much more efficiently.
+
+While one might think that @samp{close(FILENAME)} would accomplish
+the same as @code{nextfile}, this isn't true. @code{close} is
+reserved for closing files, pipes, and coprocesses that are
+opened with redirections. It is not related to the main processing that
+@command{awk} does with the files listed in @code{ARGV}.
+
+If it's necessary to use an @command{awk} version that doesn't support
+@code{nextfile}, see
+@ref{Nextfile Function, ,Implementing @code{nextfile} as a Function},
+for a user-defined function that simulates the @code{nextfile}
statement.
-The @code{nextfile} statement would be useful if you have many data
-files to process, and you expect that you
-would not want to process every record in every file.
-Normally, in order to move on to
-the next data file, you would have to continue scanning the unwanted
-records. The @code{nextfile} statement accomplishes this much more
-efficiently.
+@cindex @code{nextfile}, inside a user-defined function
+The current version of the Bell Laboratories @command{awk}
+(@pxref{Other Versions, ,Other Freely Available @command{awk} Implementations})
+also supports @code{nextfile}. However, it doesn't allow the @code{nextfile}
+statement inside function bodies
+(@pxref{User-defined, ,User-Defined Functions}).
+@command{gawk} does; a @code{nextfile} inside a
+function body reads the next record and starts processing it with the
+first rule in the program, just as any other @code{nextfile} statement.
@cindex @code{next file} statement
-@strong{Caution:} Versions of @code{gawk} prior to 3.0 used two
-words (@samp{next file}) for the @code{nextfile} statement. This was
-changed in 3.0 to one word, since the treatment of @samp{file} was
-inconsistent. When it appeared after @code{next}, it was a keyword.
-Otherwise, it was a regular identifier. The old usage is still
-accepted. However, @code{gawk} will generate a warning message, and
-support for @code{next file} will eventually be discontinued in a
-future version of @code{gawk}.
-
-@node Exit Statement, , Nextfile Statement, Statements
-@section The @code{exit} Statement
+@strong{Caution:} Versions of @command{gawk} prior to 3.0 used two
+words (@samp{next file}) for the @code{nextfile} statement.
+In @value{PVERSION} 3.0, this was changed
+to one word, because the treatment of @samp{file} was
+inconsistent. When it appeared after @code{next}, @samp{file} was a keyword;
+otherwise, it was a regular identifier. The old usage is no longer
+accepted; @samp{next file} generates a syntax error.
+
+@node Exit Statement, , Nextfile Statement, Statements
+@subsection The @code{exit} Statement
@cindex @code{exit} statement
-The @code{exit} statement causes @code{awk} to immediately stop
+The @code{exit} statement causes @command{awk} to immediately stop
executing the current rule and to stop processing input; any remaining input
-is ignored. It looks like this:
+is ignored. The @code{exit} statement is written as follows:
@example
exit @r{[}@var{return code}@r{]}
@end example
-If an @code{exit} statement is executed from a @code{BEGIN} rule the
+When an @code{exit} statement is executed from a @code{BEGIN} rule, the
program stops processing everything immediately. No input records are
-read. However, if an @code{END} rule is present, it is executed
+read. However, if an @code{END} rule is present,
+as part of executing the @code{exit} statement,
+the @code{END} rule is executed
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
-
If @code{exit} is used as part of an @code{END} rule, it causes
the program to stop immediately.
-An @code{exit} statement that is not part
-of a @code{BEGIN} or @code{END} rule stops the execution of any further
-automatic rules for the current record, skips reading any remaining input
-records, and executes
-the @code{END} rule if there is one.
+An @code{exit} statement that is not part of a @code{BEGIN} or @code{END}
+rule stops the execution of any further automatic rules for the current
+record, skips reading any remaining input records, and executes the
+@code{END} rule if there is one.
-If you do not want the @code{END} rule to do its job in this case, you
-can set a variable to non-zero before the @code{exit} statement, and check
-that variable in the @code{END} rule.
+In such a case,
+if you don't want the @code{END} rule to do its job, set a variable
+to nonzero before the @code{exit} statement and check that variable in
+the @code{END} rule.
@xref{Assert Function, ,Assertions},
for an example that does this.
@cindex dark corner
If an argument is supplied to @code{exit}, its value is used as the exit
-status code for the @code{awk} process. If no argument is supplied,
+status code for the @command{awk} process. If no argument is supplied,
@code{exit} returns status zero (success). In the case where an argument
is supplied to a first @code{exit} statement, and then @code{exit} is
-called a second time with no argument, the previously supplied exit value
-is used (d.c.).
+called a second time from an @code{END} rule with no argument,
+@command{awk} uses the previously supplied exit value.
+@value{DARKCORNER}
-For example, let's say you've discovered an error condition you really
-don't know how to handle. Conventionally, programs report this by
-exiting with a non-zero status. Your @code{awk} program can do this
-using an @code{exit} statement with a non-zero argument. Here is an
-example:
+@cindex conventions, programming
+@cindex programming conventions
+For example, suppose an error condition occurs that is difficult or
+impossible to handle. Conventionally, programs report this by
+exiting with a nonzero status. An @command{awk} program can do this
+using an @code{exit} statement with a nonzero argument, as shown
+in the following example:
@example
-@group
BEGIN @{
if (("date" | getline date_now) <= 0) @{
print "Can't get system date" > "/dev/stderr"
@@ -8324,317 +9791,452 @@ BEGIN @{
print "current date is", date_now
close("date")
@}
-@end group
@end example
-@node Built-in Variables, Arrays, Statements, Top
-@chapter Built-in Variables
+@node Built-in Variables, , Statements, Patterns and Actions
+@section Built-in Variables
@cindex built-in variables
-Most @code{awk} variables are available for you to use for your own
-purposes; they never change except when your program assigns values to
-them, and never affect anything except when your program examines them.
-However, a few variables in @code{awk} have special built-in meanings.
-Some of them @code{awk} examines automatically, so that they enable you
-to tell @code{awk} how to do certain things. Others are set
-automatically by @code{awk}, so that they carry information from the
-internal workings of @code{awk} to your program.
+Most @command{awk} variables are available for you to use for your own
+purposes; they never change unless your program assigns values to
+them, and they never affect anything unless your program examines them.
+However, a few variables in @command{awk} have special built-in meanings.
+@command{awk} examines some of these automatically, so that they enable you
+to tell @command{awk} how to do certain things. Others are set
+automatically by @command{awk}, so that they carry information from the
+internal workings of @command{awk} to your program.
-This chapter documents all the built-in variables of @code{gawk}. Most
-of them are also documented in the chapters describing their areas of
-activity.
+This @value{SECTION} documents all the built-in variables of
+@command{gawk}, most of which are also documented in the chapters
+describing their areas of activity.
@menu
* User-modified:: Built-in variables that you change to control
- @code{awk}.
-* Auto-set:: Built-in variables where @code{awk} gives you
- information.
+ @command{awk}.
+* Auto-set:: Built-in variables where @command{awk} gives
+ you information.
* ARGC and ARGV:: Ways to use @code{ARGC} and @code{ARGV}.
@end menu
@node User-modified, Auto-set, Built-in Variables, Built-in Variables
-@section Built-in Variables that Control @code{awk}
+@subsection Built-in Variables That Control @command{awk}
@cindex built-in variables, user modifiable
-This is an alphabetical list of the variables which you can change to
-control how @code{awk} does certain things. Those variables that are
-specific to @code{gawk} are marked with an asterisk, @samp{*}.
+The following is an alphabetical list of variables that you can change to
+control how @command{awk} does certain things. The variables that are
+specific to @command{gawk} are marked with a pound sign (@samp{#}).
@table @code
-@vindex CONVFMT
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @code{BINMODE} variable
+@cindex binary I/O
+@cindex I/O, binary
+@cindex differences between @command{gawk} and @command{awk}
+@item BINMODE #
+On non-POSIX systems, this variable specifies use of ``binary'' mode for all I/O.
+Numeric values of one, two, or three, specify that input files, output files, or
+all files, respectively, should use binary I/O.
+Alternatively,
+string values of @code{"r"} or @code{"w"} specify that input files and
+output files, respectively, should use binary I/O.
+A string value of @code{"rw"} or @code{"wr"} indicates that all
+files should use binary I/O.
+Any other string value is equivalent to @code{"rw"}, but @command{gawk}
+generates a warning message.
+@code{BINMODE} is described in more detail in
+@ref{PC Using, ,Using @command{gawk} on PC Operating Systems}.
+
+This variable is a @command{gawk} extension.
+In other @command{awk} implementations
+(except @command{mawk},
+@pxref{Other Versions, , Other Freely Available @command{awk} Implementations}),
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+it is not special.
+
+@cindex @code{CONVFMT} variable
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
@item CONVFMT
This string controls conversion of numbers to
strings (@pxref{Conversion, ,Conversion of Strings and Numbers}).
It works by being passed, in effect, as the first argument to the
@code{sprintf} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
Its default value is @code{"%.6g"}.
@code{CONVFMT} was introduced by the POSIX standard.
-@vindex FIELDWIDTHS
-@item FIELDWIDTHS *
-This is a space separated list of columns that tells @code{gawk}
-how to split input with fixed, columnar boundaries. It is an
-experimental feature. Assigning to @code{FIELDWIDTHS}
+@cindex @code{FIELDWIDTHS} variable
+@item FIELDWIDTHS #
+This is a space-separated list of columns that tells @command{gawk}
+how to split input with fixed columnar boundaries.
+Assigning a value to @code{FIELDWIDTHS}
overrides the use of @code{FS} for field splitting.
-@xref{Constant Size, ,Reading Fixed-width Data}, for more information.
+@xref{Constant Size, ,Reading Fixed-Width Data}, for more information.
-If @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}), then @code{FIELDWIDTHS}
-has no special meaning, and field splitting operations are done based
+If @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}), then @code{FIELDWIDTHS}
+has no special meaning, and field-splitting operations occur based
exclusively on the value of @code{FS}.
-@vindex FS
+@cindex @code{FS} variable
@item FS
-@code{FS} is the input field separator
-(@pxref{Field Separators, ,Specifying How Fields are Separated}).
+This is the input field separator
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}).
The value is a single-character string or a multi-character regular
expression that matches the separations between fields in an input
record. If the value is the null string (@code{""}), then each
character in the record becomes a separate field.
+(This behavior is a @command{gawk} extension. POSIX @command{awk} does not
+specify the behavior when @code{FS} is the null string.)
+@c NEXT ED: Mark as common extension
The default value is @w{@code{" "}}, a string consisting of a single
space. As a special exception, this value means that any
sequence of spaces, tabs, and/or newlines is a single separator.@footnote{In
-POSIX @code{awk}, newline does not count as whitespace.} It also causes
+POSIX @command{awk}, newline does not count as whitespace.} It also causes
spaces, tabs, and newlines at the beginning and end of a record to be ignored.
You can set the value of @code{FS} on the command line using the
-@samp{-F} option:
+@option{-F} option:
@example
awk -F, '@var{program}' @var{input-files}
@end example
-If @code{gawk} is using @code{FIELDWIDTHS} for field-splitting,
-assigning a value to @code{FS} will cause @code{gawk} to return to
-the normal, @code{FS}-based, field splitting. An easy way to do this
+If @command{gawk} is using @code{FIELDWIDTHS} for field splitting,
+assigning a value to @code{FS} causes @command{gawk} to return to
+the normal, @code{FS}-based field splitting. An easy way to do this
is to simply say @samp{FS = FS}, perhaps with an explanatory comment.
-@vindex IGNORECASE
-@item IGNORECASE *
-If @code{IGNORECASE} is non-zero or non-null, then all string comparisons,
+@cindex @code{IGNORECASE} variable
+@item IGNORECASE #
+If @code{IGNORECASE} is nonzero or non-null, then all string comparisons
and all regular expression matching are case-independent. Thus, regexp
-matching with @samp{~} and @samp{!~}, and the @code{gensub},
-@code{gsub}, @code{index}, @code{match}, @code{split} and @code{sub}
+matching with @samp{~} and @samp{!~}, as well as the @code{gensub},
+@code{gsub}, @code{index}, @code{match}, @code{split}, and @code{sub}
functions, record termination with @code{RS}, and field splitting with
-@code{FS} all ignore case when doing their particular regexp operations.
-The value of @code{IGNORECASE} does @emph{not} affect array subscripting.
-@xref{Case-sensitivity, ,Case-sensitivity in Matching}.
+@code{FS}, all ignore case when doing their particular regexp operations.
+However, the value of @code{IGNORECASE} does @emph{not} affect array subscripting.
+@xref{Case-sensitivity, ,Case Sensitivity in Matching}.
-If @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}),
-then @code{IGNORECASE} has no special meaning, and string
+If @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+then @code{IGNORECASE} has no special meaning. Thus, string
and regexp operations are always case-sensitive.
-@vindex OFMT
+@cindex @code{LINT} variable
+@cindex differences between @command{gawk} and @command{awk}
+@cindex lint checks
+@item LINT #
+When this variable is true (nonzero or non-null), @command{gawk}
+behaves as if the @option{--lint} command-line option is in effect.
+(@pxref{Options, ,Command-Line Options}).
+With a value of @code{"fatal"}, lint warnings become fatal errors.
+Any other true value prints non-fatal warnings.
+Assigning a false value to @code{LINT} turns off the lint warnings.
+
+This variable is a @command{gawk} extension. It is not special
+in other @command{awk} implementations. Unlike the other special variables,
+changing @code{LINT} does affect the production of lint warnings,
+even if @command{gawk} is in compatibility mode. Much as
+the @option{--lint} and @option{--traditional} options independently
+control different aspects of @command{gawk}'s behavior, the control
+of lint warnings during program execution is independent of the flavor
+of @command{awk} being executed.
+
+@cindex @code{OFMT} variable
@item OFMT
This string controls conversion of numbers to
strings (@pxref{Conversion, ,Conversion of Strings and Numbers}) for
-printing with the @code{print} statement. It works by being passed, in
-effect, as the first argument to the @code{sprintf} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
-Its default value is @code{"%.6g"}. Earlier versions of @code{awk}
+printing with the @code{print} statement. It works by being passed
+as the first argument to the @code{sprintf} function
+(@pxref{String Functions, ,String Manipulation Functions}).
+Its default value is @code{"%.6g"}. Earlier versions of @command{awk}
also used @code{OFMT} to specify the format for converting numbers to
strings in general expressions; this is now done by @code{CONVFMT}.
-@vindex OFS
+@cindex @code{OFS} variable
@item OFS
This is the output field separator (@pxref{Output Separators}). It is
-output between the fields output by a @code{print} statement. Its
+output between the fields printed by a @code{print} statement. Its
default value is @w{@code{" "}}, a string consisting of a single space.
-@vindex ORS
+@cindex @code{ORS} variable
@item ORS
This is the output record separator. It is output at the end of every
-@code{print} statement. Its default value is @code{"\n"}.
-(@xref{Output Separators}.)
+@code{print} statement. Its default value is @code{"\n"}, the newline
+character. (@xref{Output Separators}.)
-@vindex RS
+@cindex @code{RS} variable
@item RS
-This is @code{awk}'s input record separator. Its default value is a string
+This is @command{awk}'s input record separator. Its default value is a string
containing a single newline character, which means that an input record
consists of a single line of text.
It can also be the null string, in which case records are separated by
-runs of blank lines, or a regexp, in which case records are separated by
+runs of blank lines.
+If it is a regexp, records are separated by
matches of the regexp in the input text.
-(@xref{Records, ,How Input is Split into Records}.)
+(@xref{Records, ,How Input Is Split into Records}.)
+
+The ability for @code{RS} to be a regular expression
+is a @command{gawk} extension.
+In most other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+just the first character of @code{RS}'s value is used.
-@vindex SUBSEP
+@cindex @code{SUBSEP} variable
@item SUBSEP
-@code{SUBSEP} is the subscript separator. It has the default value of
-@code{"\034"}, and is used to separate the parts of the indices of a
-multi-dimensional array. Thus, the expression @code{@w{foo["A", "B"]}}
+This is the subscript separator. It has the default value of
+@code{"\034"} and is used to separate the parts of the indices of a
+multidimensional array. Thus, the expression @code{@w{foo["A", "B"]}}
really accesses @code{foo["A\034B"]}
-(@pxref{Multi-dimensional, ,Multi-dimensional Arrays}).
+(@pxref{Multi-dimensional, ,Multidimensional Arrays}).
+
+@cindex @code{TEXTDOMAIN} variable
+@cindex internationalization
+@item TEXTDOMAIN #
+This variable is used for internationalization of programs at the
+@command{awk} level. It sets the default text domain for specially
+marked string constants in the source text, as well as for the
+@code{dcgettext} and @code{bindtextdomain} functions
+(@pxref{Internationalization, ,Internationalization with @command{gawk}}).
+The default value of @code{TEXTDOMAIN} is @code{"messages"}.
+
+This variable is a @command{gawk} extension.
+In other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+it is not special.
@end table
@node Auto-set, ARGC and ARGV, User-modified, Built-in Variables
-@section Built-in Variables that Convey Information
+@subsection Built-in Variables That Convey Information
@cindex built-in variables, convey information
-This is an alphabetical list of the variables that are set
-automatically by @code{awk} on certain occasions in order to provide
-information to your program. Those variables that are specific to
-@code{gawk} are marked with an asterisk, @samp{*}.
+The following is an alphabetical list of variables that @command{awk}
+sets automatically on certain occasions in order to provide
+information to your program. The variables that are specific to
+@command{gawk} are marked with an asterisk (@samp{*}).
@table @code
-@vindex ARGC
-@vindex ARGV
-@item ARGC
-@itemx ARGV
-The command-line arguments available to @code{awk} programs are stored in
+@cindex @code{ARGC} variable
+@cindex @code{ARGV} variable
+@item ARGC@r{,} ARGV
+The command-line arguments available to @command{awk} programs are stored in
an array called @code{ARGV}. @code{ARGC} is the number of command-line
-arguments present. @xref{Other Arguments, ,Other Command Line Arguments}.
-Unlike most @code{awk} arrays,
-@code{ARGV} is indexed from zero to @code{ARGC} @minus{} 1. For example:
+arguments present. @xref{Other Arguments, ,Other Command-Line Arguments}.
+Unlike most @command{awk} arrays,
+@code{ARGV} is indexed from 0 to @code{ARGC} @minus{} 1.
+In the following example:
@example
-@group
$ awk 'BEGIN @{
-> for (i = 0; i < ARGC; i++)
-> print ARGV[i]
+> for (i = 0; i < ARGC; i++)
+> print ARGV[i]
> @}' inventory-shipped BBS-list
@print{} awk
@print{} inventory-shipped
@print{} BBS-list
-@end group
@end example
@noindent
-In this example, @code{ARGV[0]} contains @code{"awk"}, @code{ARGV[1]}
-contains @code{"inventory-shipped"}, and @code{ARGV[2]} contains
+@code{ARGV[0]} contains @code{"awk"}, @code{ARGV[1]}
+contains @code{"inventory-shipped"} and @code{ARGV[2]} contains
@code{"BBS-list"}. The value of @code{ARGC} is three, one more than the
-index of the last element in @code{ARGV}, since the elements are numbered
+index of the last element in @code{ARGV}, because the elements are numbered
from zero.
+@cindex conventions, programming
+@cindex programming conventions
The names @code{ARGC} and @code{ARGV}, as well as the convention of indexing
-the array from zero to @code{ARGC} @minus{} 1, are derived from the C language's
-method of accessing command line arguments.
+the array from 0 to @code{ARGC} @minus{} 1, are derived from the C language's
+method of accessing command-line arguments.
+
+The value of @code{ARGV[0]} can vary from system to system.
+Also, you should note that the program text is @emph{not} included in
+@code{ARGV}, nor are any of @command{awk}'s command-line options.
@xref{ARGC and ARGV, , Using @code{ARGC} and @code{ARGV}}, for information
-about how @code{awk} uses these variables.
+about how @command{awk} uses these variables.
-@vindex ARGIND
-@item ARGIND *
-The index in @code{ARGV} of the current file being processed.
-Every time @code{gawk} opens a new data file for processing, it sets
-@code{ARGIND} to the index in @code{ARGV} of the file name.
-When @code{gawk} is processing the input files, it is always
-true that @samp{FILENAME == ARGV[ARGIND]}.
+@cindex @code{ARGIND} variable
+@item ARGIND #
+This is the index in @code{ARGV} of the current file being processed.
+Every time @command{gawk} opens a new @value{DF} for processing, it sets
+@code{ARGIND} to the index in @code{ARGV} of the @value{FN}.
+When @command{gawk} is processing the input files,
+@samp{FILENAME == ARGV[ARGIND]} is always true.
This variable is useful in file processing; it allows you to tell how far
-along you are in the list of data files, and to distinguish between
-successive instances of the same filename on the command line.
+along you are in the list of @value{DF}s as well as to distinguish between
+successive instances of the same @value{FN} on the command line.
-While you can change the value of @code{ARGIND} within your @code{awk}
-program, @code{gawk} will automatically set it to a new value when the
+While you can change the value of @code{ARGIND} within your @command{awk}
+program, @command{gawk} automatically sets it to a new value when the
next file is opened.
-This variable is a @code{gawk} extension. In other @code{awk} implementations,
-or if @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}),
+This variable is a @command{gawk} extension.
+In other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
it is not special.
-@vindex ENVIRON
+@cindex @code{ENVIRON} variable
@item ENVIRON
An associative array that contains the values of the environment. The array
-indices are the environment variable names; the values are the values of
+indices are the environment variable names; the elements are the values of
the particular environment variables. For example,
@code{ENVIRON["HOME"]} might be @file{/home/arnold}. Changing this array
does not affect the environment passed on to any programs that
-@code{awk} may spawn via redirection or the @code{system} function.
-(In a future version of @code{gawk}, it may do so.)
+@command{awk} may spawn via redirection or the @code{system} function.
+@c (In a future version of @command{gawk}, it may do so.)
Some operating systems may not have environment variables.
On such systems, the @code{ENVIRON} array is empty (except for
-@w{@code{ENVIRON["AWKPATH"]}}).
+@w{@code{ENVIRON["AWKPATH"]}},
+@pxref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}).
-@vindex ERRNO
-@item ERRNO *
-If a system error occurs either doing a redirection for @code{getline},
+@cindex @code{ERRNO} variable
+@item ERRNO #
+If a system error occurs during a redirection for @code{getline},
during a read for @code{getline}, or during a @code{close} operation,
-then @code{ERRNO} will contain a string describing the error.
+then @code{ERRNO} contains a string describing the error.
-This variable is a @code{gawk} extension. In other @code{awk} implementations,
-or if @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}),
+This variable is a @command{gawk} extension.
+In other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
it is not special.
@cindex dark corner
-@vindex FILENAME
+@cindex @code{FILENAME} variable
@item FILENAME
-This is the name of the file that @code{awk} is currently reading.
-When no data files are listed on the command line, @code{awk} reads
-from the standard input, and @code{FILENAME} is set to @code{"-"}.
+This is the name of the file that @command{awk} is currently reading.
+When no @value{DF}s are listed on the command line, @command{awk} reads
+from the standard input and @code{FILENAME} is set to @code{"-"}.
@code{FILENAME} is changed each time a new file is read
(@pxref{Reading Files, ,Reading Input Files}).
Inside a @code{BEGIN} rule, the value of @code{FILENAME} is
@code{""}, since there are no input files being processed
-yet.@footnote{Some early implementations of Unix @code{awk} initialized
-@code{FILENAME} to @code{"-"}, even if there were data files to be
-processed. This behavior was incorrect, and should not be relied
-upon in your programs.} (d.c.)
+yet.@footnote{Some early implementations of Unix @command{awk} initialized
+@code{FILENAME} to @code{"-"}, even if there were @value{DF}s to be
+processed. This behavior was incorrect and should not be relied
+upon in your programs.}
+@value{DARKCORNER}
+Note though, that using @code{getline}
+(@pxref{Getline, ,Explicit Input with @code{getline}})
+inside a @code{BEGIN} rule can give
+@code{FILENAME} a value.
-@vindex FNR
+@cindex @code{FNR} variable
@item FNR
-@code{FNR} is the current record number in the current file. @code{FNR} is
+This is the current record number in the current file. @code{FNR} is
incremented each time a new record is read
(@pxref{Getline, ,Explicit Input with @code{getline}}). It is reinitialized
to zero each time a new input file is started.
-@vindex NF
+@cindex @code{NF} variable
@item NF
-@code{NF} is the number of fields in the current input record.
+This is the number of fields in the current input record.
@code{NF} is set each time a new record is read, when a new field is
-created, or when @code{$0} changes (@pxref{Fields, ,Examining Fields}).
+created or when @code{$0} changes (@pxref{Fields, ,Examining Fields}).
-@vindex NR
+@cindex @code{NR} variable
@item NR
-This is the number of input records @code{awk} has processed since
+This is the number of input records @command{awk} has processed since
the beginning of the program's execution
-(@pxref{Records, ,How Input is Split into Records}).
-@code{NR} is set each time a new record is read.
+(@pxref{Records, ,How Input Is Split into Records}).
+@code{NR} is incremented each time a new record is read.
+
+@cindex @code{PROCINFO} variable
+@item PROCINFO #
+The elements of this array provide access to information about the
+running @command{awk} program.
+The following elements (listed alphabetically)
+are guaranteed to be available:
+
+@table @code
+@item PROCINFO["egid"]
+The value of the @code{getegid} system call.
+
+@item PROCINFO["euid"]
+The value of the @code{geteuid} system call.
+
+@item PROCINFO["FS"]
+This is
+@code{"FS"} if field splitting with @code{FS} is in effect, or it is
+@code{"FIELDWIDTHS"} if field splitting with @code{FIELDWIDTHS} is in effect.
+
+@item PROCINFO["gid"]
+The value of the @code{getgid} system call.
+
+@item PROCINFO["pgrpid"]
+The process group ID of the current process.
+
+@item PROCINFO["pid"]
+The process ID of the current process.
+
+@item PROCINFO["ppid"]
+The parent process ID of the current process.
+
+@item PROCINFO["uid"]
+The value of the @code{getuid} system call.
+@end table
+
+On some systems, there may be elements in the array, @code{"group1"}
+through @code{"group@var{N}"} for some @var{N}. @var{N} is the number of
+supplementary groups that the process has. Use the @code{in} operator
+to test for these elements
+(@pxref{Reference to Elements, , Referring to an Array Element}).
-@vindex RLENGTH
+This array is a @command{gawk} extension.
+In other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+it is not special.
+
+@cindex @code{RLENGTH} variable
@item RLENGTH
-@code{RLENGTH} is the length of the substring matched by the
+This is the length of the substring matched by the
@code{match} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
@code{RLENGTH} is set by invoking the @code{match} function. Its value
-is the length of the matched string, or @minus{}1 if no match was found.
+is the length of the matched string, or @minus{}1 if no match is found.
-@vindex RSTART
+@cindex @code{RSTART} variable
@item RSTART
-@code{RSTART} is the start-index in characters of the substring matched by the
+This is the start-index in characters of the substring that is matched by the
@code{match} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
@code{RSTART} is set by invoking the @code{match} function. Its value
is the position of the string where the matched substring starts, or zero
if no match was found.
-@vindex RT
-@item RT *
-@code{RT} is set each time a record is read. It contains the input text
+@cindex @code{RT} variable
+@item RT #
+This is set each time a record is read. It contains the input text
that matched the text denoted by @code{RS}, the record separator.
-This variable is a @code{gawk} extension. In other @code{awk} implementations,
-or if @code{gawk} is in compatibility mode
-(@pxref{Options, ,Command Line Options}),
+This variable is a @command{gawk} extension.
+In other @command{awk} implementations,
+or if @command{gawk} is in compatibility mode
+(@pxref{Options, ,Command-Line Options}),
it is not special.
@end table
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Changing @code{NR} and @code{FNR}
+@cindex advanced notes
@cindex dark corner
-A side note about @code{NR} and @code{FNR}.
-@code{awk} simply increments both of these variables
+@command{awk} increments @code{NR} and @code{FNR}
each time it reads a record, instead of setting them to the absolute
-value of the number of records read. This means that your program can
-change these variables, and their new values will be incremented for
-each record (d.c.). For example:
+value of the number of records read. This means that a program can
+change these variables and their new values are incremented for
+each record.
+@value{DARKCORNER}
+This is demonstrated in the following example:
@example
-@group
$ echo '1
> 2
> 3
@@ -8644,46 +10246,42 @@ $ echo '1
@print{} 17
@print{} 18
@print{} 19
-@end group
@end example
@noindent
-Before @code{FNR} was added to the @code{awk} language
-(@pxref{V7/SVR3.1, ,Major Changes between V7 and SVR3.1}),
-many @code{awk} programs used this feature to track the number of
+Before @code{FNR} was added to the @command{awk} language
+(@pxref{V7/SVR3.1, ,Major Changes Between V7 and SVR3.1}),
+many @command{awk} programs used this feature to track the number of
records in a file by resetting @code{NR} to zero when @code{FILENAME}
changed.
@node ARGC and ARGV, , Auto-set, Built-in Variables
-@section Using @code{ARGC} and @code{ARGV}
+@subsection Using @code{ARGC} and @code{ARGV}
-In @ref{Auto-set, , Built-in Variables that Convey Information},
-you saw this program describing the information contained in @code{ARGC}
+@ref{Auto-set, ,Built-in Variables That Convey Information},
+presented the following program describing the information contained in @code{ARGC}
and @code{ARGV}:
@example
-@group
$ awk 'BEGIN @{
-> for (i = 0; i < ARGC; i++)
-> print ARGV[i]
+> for (i = 0; i < ARGC; i++)
+> print ARGV[i]
> @}' inventory-shipped BBS-list
@print{} awk
@print{} inventory-shipped
@print{} BBS-list
-@end group
@end example
@noindent
-In this example, @code{ARGV[0]} contains @code{"awk"}, @code{ARGV[1]}
-contains @code{"inventory-shipped"}, and @code{ARGV[2]} contains
-@code{"BBS-list"}.
-
-Notice that the @code{awk} program is not entered in @code{ARGV}. The
-other special command line options, with their arguments, are also not
-entered. This includes variable assignments done with the @samp{-v}
-option (@pxref{Options, ,Command Line Options}).
+In this example, @code{ARGV[0]} contains @samp{awk}, @code{ARGV[1]}
+contains @samp{inventory-shipped}, and @code{ARGV[2]} contains
+@samp{BBS-list}.
+Notice that the @command{awk} program is not entered in @code{ARGV}. The
+other special command-line options, with their arguments, are also not
+entered. This includes variable assignments done with the @option{-v}
+option (@pxref{Options, ,Command-Line Options}).
Normal variable assignments on the command line @emph{are}
-treated as arguments, and do show up in the @code{ARGV} array.
+treated as arguments and do show up in the @code{ARGV} array:
@example
$ cat showargs.awk
@@ -8695,51 +10293,49 @@ $ cat showargs.awk
@print{} END @{ printf "A=%d, B=%d\n", A, B @}
$ awk -v A=1 -f showargs.awk B=2 /dev/null
@print{} A=1, B=0
-@print{} ARGV[0] = awk
-@print{} ARGV[1] = B=2
-@print{} ARGV[2] = /dev/null
+@print{} ARGV[0] = awk
+@print{} ARGV[1] = B=2
+@print{} ARGV[2] = /dev/null
@print{} A=1, B=2
@end example
-Your program can alter @code{ARGC} and the elements of @code{ARGV}.
-Each time @code{awk} reaches the end of an input file, it uses the next
+A program can alter @code{ARGC} and the elements of @code{ARGV}.
+Each time @command{awk} reaches the end of an input file, it uses the next
element of @code{ARGV} as the name of the next input file. By storing a
-different string there, your program can change which files are read.
-You can use @code{"-"} to represent the standard input. By storing
-additional elements and incrementing @code{ARGC} you can cause
+different string there, a program can change which files are read.
+Use @code{"-"} to represent the standard input. Storing
+additional elements and incrementing @code{ARGC} causes
additional files to be read.
-If you decrease the value of @code{ARGC}, that eliminates input files
+If the value of @code{ARGC} is decreased, that eliminates input files
from the end of the list. By recording the old value of @code{ARGC}
-elsewhere, your program can treat the eliminated arguments as
-something other than file names.
+elsewhere, a program can treat the eliminated arguments as
+something other than @value{FN}s.
To eliminate a file from the middle of the list, store the null string
(@code{""}) into @code{ARGV} in place of the file's name. As a
-special feature, @code{awk} ignores file names that have been
+special feature, @command{awk} ignores @value{FN}s that have been
replaced with the null string.
-You may also use the @code{delete} statement to remove elements from
+Another option is to
+use the @code{delete} statement to remove elements from
@code{ARGV} (@pxref{Delete, ,The @code{delete} Statement}).
-All of these actions are typically done from the @code{BEGIN} rule,
+All of these actions are typically done in the @code{BEGIN} rule,
before actual processing of the input begins.
-@xref{Split Program, ,Splitting a Large File Into Pieces}, and see
-@ref{Tee Program, ,Duplicating Output Into Multiple Files}, for an example
+@xref{Split Program, ,Splitting a Large File into Pieces}, and see
+@ref{Tee Program, ,Duplicating Output into Multiple Files}, for examples
of each way of removing elements from @code{ARGV}.
-
The following fragment processes @code{ARGV} in order to examine, and
-then remove, command line options.
+then remove, command-line options:
+@c NEXT ED: Add xref to rewind() function
@example
-@group
BEGIN @{
for (i = 1; i < ARGC; i++) @{
if (ARGV[i] == "-v")
verbose = 1
else if (ARGV[i] == "-d")
debug = 1
-@end group
-@group
else if (ARGV[i] ~ /^-?/) @{
e = sprintf("%s: unrecognized option -- %c",
ARGV[0], substr(ARGV[i], 1, ,1))
@@ -8749,44 +10345,55 @@ BEGIN @{
delete ARGV[i]
@}
@}
-@end group
@end example
-To actually get the options into the @code{awk} program, you have to
-end the @code{awk} options with @samp{--}, and then supply your options,
-like so:
+To actually get the options into the @command{awk} program,
+end the @command{awk} options with @option{--} and then supply
+the @command{awk} program's options, in the following manner:
@example
awk -f myprog -- -v -d file1 file2 @dots{}
@end example
-@cindex differences between @code{gawk} and @code{awk}
-This is not necessary in @code{gawk}: Unless @samp{--posix} has been
-specified, @code{gawk} silently puts any unrecognized options into
-@code{ARGV} for the @code{awk} program to deal with.
-
-As soon as it
-sees an unknown option, @code{gawk} stops looking for other options it might
-otherwise recognize. The above example with @code{gawk} would be:
+@cindex differences between @command{gawk} and @command{awk}
+This is not necessary in @command{gawk}. Unless @option{--posix} has
+been specified, @command{gawk} silently puts any unrecognized options
+into @code{ARGV} for the @command{awk} program to deal with. As soon
+as it sees an unknown option, @command{gawk} stops looking for other
+options that it might otherwise recognize. The previous example with
+@command{gawk} would be:
@example
gawk -f myprog -d -v file1 file2 @dots{}
@end example
@noindent
-Since @samp{-d} is not a valid @code{gawk} option, the following @samp{-v}
-is passed on to the @code{awk} program.
+Because @option{-d} is not a valid @command{gawk} option,
+it and the following @option{-v}
+are passed on to the @command{awk} program.
-@node Arrays, Built-in, Built-in Variables, Top
-@chapter Arrays in @code{awk}
+@node Arrays, Functions, Patterns and Actions, Top
+@chapter Arrays in @command{awk}
-An @dfn{array} is a table of values, called @dfn{elements}. The
+An @dfn{array} is a table of values called @dfn{elements}. The
elements of an array are distinguished by their indices. @dfn{Indices}
-may be either numbers or strings. @code{awk} maintains a single set
-of names that may be used for naming variables, arrays and functions
-(@pxref{User-defined, ,User-defined Functions}).
+may be either numbers or strings.
+
+This @value{CHAPTER} describes how arrays work in @command{awk},
+how to use array elements, how to scan through every element in an array,
+and how to remove array elements.
+It also describes how @command{awk} simulates multidimensional
+arrays, as well as some of the less obvious points about array usage.
+The @value{CHAPTER} finishes with a discussion of @command{gawk}'s facility
+for sorting an array based on its indices.
+
+@cindex names, use of
+@cindex namespace issues in @command{awk}
+@command{awk} maintains a single set
+of names that may be used for naming variables, arrays, and functions
+(@pxref{User-defined, ,User-Defined Functions}).
Thus, you cannot have a variable and an array with the same name in the
-same @code{awk} program.
+same @command{awk} program.
@menu
* Array Intro:: Introduction to Arrays
@@ -8799,49 +10406,51 @@ same @code{awk} program.
* Delete:: The @code{delete} statement removes an element
from an array.
* Numeric Array Subscripts:: How to use numbers as subscripts in
- @code{awk}.
+ @command{awk}.
* Uninitialized Subscripts:: Using Uninitialized variables as subscripts.
-* Multi-dimensional:: Emulating multi-dimensional arrays in
- @code{awk}.
-* Multi-scanning:: Scanning multi-dimensional arrays.
-* Array Efficiency:: Implementation-specific tips.
+* Multi-dimensional:: Emulating multidimensional arrays in
+ @command{awk}.
+* Multi-scanning:: Scanning multidimensional arrays.
+* Array Sorting:: Sorting array values and indices.
@end menu
@node Array Intro, Reference to Elements, Arrays, Arrays
@section Introduction to Arrays
@cindex arrays
-The @code{awk} language provides one-dimensional @dfn{arrays} for storing groups
-of related strings or numbers.
-
-Every @code{awk} array must have a name. Array names have the same
+The @command{awk} language provides one-dimensional arrays
+for storing groups of related strings or numbers.
+Every @command{awk} array must have a name. Array names have the same
syntax as variable names; any valid variable name would also be a valid
-array name. But you cannot use one name in both ways (as an array and
-as a variable) in one @code{awk} program.
-
-Arrays in @code{awk} superficially resemble arrays in other programming
-languages; but there are fundamental differences. In @code{awk}, you
-don't need to specify the size of an array before you start to use it.
-Additionally, any number or string in @code{awk} may be used as an
-array index, not just consecutive integers.
-
-In most other languages, you have to @dfn{declare} an array and specify
-how many elements or components it contains. In such languages, the
+array name. But one name cannot be used in both ways (as an array and
+as a variable) in the same @command{awk} program.
+
+Arrays in @command{awk} superficially resemble arrays in other programming
+languages, but there are fundamental differences. In @command{awk}, it
+isn't necessary to specify the size of an array before starting to use it.
+Additionally, any number or string in @command{awk}, not just consecutive integers,
+may be used as an array index.
+
+In most other languages, arrays must be @dfn{declared} before use,
+including a specification of
+how many elements or components they contain. In such languages, the
declaration causes a contiguous block of memory to be allocated for that
-many elements. An index in the array usually must be a positive integer; for
-example, the index zero specifies the first element in the array, which is
+many elements. Usually, an index in the array must be a positive integer.
+For example, the index zero specifies the first element in the array, which is
actually stored at the beginning of the block of memory. Index one
specifies the second element, which is stored in memory right after the
first element, and so on. It is impossible to add more elements to the
-array, because it has room for only as many elements as you declared.
-(Some languages allow arbitrary starting and ending indices,
-e.g., @samp{15 .. 27}, but the size of the array is still fixed when
+array, because it has room only for as many elements as given in
+the declaration.
+(Some languages allow arbitrary starting and ending
+indices---e.g., @samp{15 .. 27}---but the size of the array is still fixed when
the array is declared.)
-A contiguous array of four elements might look like this,
-conceptually, if the element values are eight, @code{"foo"},
-@code{""} and 30:
+A contiguous array of four elements might look like the following example,
+conceptually, if the element values are 8, @code{"foo"},
+@code{""}, and 30:
+@c NEXT ED: Use real images here
@iftex
@c from Karl Berry, much thanks for the help.
@tex
@@ -8852,10 +10461,10 @@ conceptually, if the element values are eight, @code{"foo"},
\centerline{\vbox{
\halign{\strut\hfil\ignorespaces#&&\vrule#&\hbox to\width{\hfil#\unskip\hfil}\cr
\noalign{\hrule width\hwidth}
- &&{\tt 8} &&{\tt "foo"} &&{\tt ""} &&{\tt 30} &&\quad value\cr
+ &&{\tt 8} &&{\tt "foo"} &&{\tt ""} &&{\tt 30} &&\quad Value\cr
\noalign{\hrule width\hwidth}
\noalign{\smallskip}
- &\omit&0&\omit &1 &\omit&2 &\omit&3 &\omit&\quad index\cr
+ &\omit&0&\omit &1 &\omit&2 &\omit&3 &\omit&\quad Index\cr
}
}}
@end tex
@@ -8863,56 +10472,55 @@ conceptually, if the element values are eight, @code{"foo"},
@ifinfo
@example
+---------+---------+--------+---------+
-| 8 | "foo" | "" | 30 | @r{value}
+| 8 | "foo" | "" | 30 | @r{Value}
+---------+---------+--------+---------+
- 0 1 2 3 @r{index}
+ 0 1 2 3 @r{Index}
@end example
@end ifinfo
@noindent
Only the values are stored; the indices are implicit from the order of
-the values. Eight is the value at index zero, because eight appears in the
+the values. 8 is the value at index zero, because 8 appears in the
position with zero elements before it.
@cindex arrays, definition of
@cindex associative arrays
@cindex arrays, associative
-Arrays in @code{awk} are different: they are @dfn{associative}. This means
+Arrays in @command{awk} are different---they are @dfn{associative}. This means
that each array is a collection of pairs: an index, and its corresponding
array element value:
@example
-@r{Element} 4 @r{Value} 30
-@r{Element} 2 @r{Value} "foo"
-@r{Element} 1 @r{Value} 8
-@r{Element} 3 @r{Value} ""
+@r{Element} 3 @r{Value} 30
+@r{Element} 1 @r{Value} "foo"
+@r{Element} 0 @r{Value} 8
+@r{Element} 2 @r{Value} ""
@end example
@noindent
-We have shown the pairs in jumbled order because their order is irrelevant.
+The pairs are shown in jumbled order because their order is irrelevant.
One advantage of associative arrays is that new pairs can be added
-at any time. For example, suppose we add to the above array a tenth element
-whose value is @w{@code{"number ten"}}. The result is this:
+at any time. For example, suppose a tenth element is added to the array
+whose value is @w{@code{"number ten"}}. The result is:
@example
@r{Element} 10 @r{Value} "number ten"
-@r{Element} 4 @r{Value} 30
-@r{Element} 2 @r{Value} "foo"
-@r{Element} 1 @r{Value} 8
-@r{Element} 3 @r{Value} ""
+@r{Element} 3 @r{Value} 30
+@r{Element} 1 @r{Value} "foo"
+@r{Element} 0 @r{Value} 8
+@r{Element} 2 @r{Value} ""
@end example
@noindent
@cindex sparse arrays
@cindex arrays, sparse
-Now the array is @dfn{sparse}, which just means some indices are missing:
-it has elements 1--4 and 10, but doesn't have elements 5, 6, 7, 8, or 9.
-@c ok, I should spell out the above, but ...
+Now the array is @dfn{sparse}, which just means some indices are missing.
+It has elements 0--3 and 10, but doesn't have elements 4, 5, 6, 7, 8, or 9.
Another consequence of associative arrays is that the indices don't
have to be positive integers. Any number, or even a string, can be
-an index. For example, here is an array which translates words from
+an index. For example, the following is an array that translates words from
English into French:
@example
@@ -8926,21 +10534,25 @@ English into French:
Here we decided to translate the number one in both spelled-out and
numeric form---thus illustrating that a single array can have both
numbers and strings as indices.
-(In fact, array subscripts are always strings; this is discussed
+In fact, array subscripts are always strings; this is discussed
in more detail in
-@ref{Numeric Array Subscripts, ,Using Numbers to Subscript Arrays}.)
+@ref{Numeric Array Subscripts, ,Using Numbers to Subscript Arrays}.
+Here, the number @code{1} isn't double-quoted, since @command{awk}
+automatically converts it to a string.
-@cindex Array subscripts and @code{IGNORECASE}
-@cindex @code{IGNORECASE} and array subscripts
-@vindex IGNORECASE
+@cindex arrays, subscripts, and @code{IGNORECASE}
+@cindex @code{IGNORECASE}, and array subscripts
+@cindex @code{IGNORECASE} variable
The value of @code{IGNORECASE} has no effect upon array subscripting.
-You must use the exact same string value to retrieve an array element
-as you used to store it.
-
-When @code{awk} creates an array for you, e.g., with the @code{split}
-built-in function,
+The identical string value used to store an array element must be used
+to retrieve it.
+When @command{awk} creates an array (e.g., with the @code{split}
+built-in function),
that array's indices are consecutive integers starting at one.
-(@xref{String Functions, ,Built-in Functions for String Manipulation}.)
+(@xref{String Functions, ,String Manipulation Functions}.)
+
+@command{awk}'s arrays are efficient---the time to access an element
+is independent of the number of elements in the array.
@node Reference to Elements, Assigning Elements, Array Intro, Arrays
@section Referring to an Array Element
@@ -8948,8 +10560,8 @@ that array's indices are consecutive integers starting at one.
@cindex element of array
@cindex reference to array
-The principal way of using an array is to refer to one of its elements.
-An array reference is an expression which looks like this:
+The principal way to use an array is to refer to one of its elements.
+An array reference is an expression as follows:
@example
@var{array}[@var{index}]
@@ -8957,48 +10569,48 @@ An array reference is an expression which looks like this:
@noindent
Here, @var{array} is the name of an array. The expression @var{index} is
-the index of the element of the array that you want.
+the index of the desired element of the array.
The value of the array reference is the current value of that array
element. For example, @code{foo[4.3]} is an expression for the element
of array @code{foo} at index @samp{4.3}.
-If you refer to an array element that has no recorded value, the value
-of the reference is @code{""}, the null string. This includes elements
-to which you have not assigned any value, and elements that have been
+A reference to an array element that has no recorded value yields a value of
+@code{""}, the null string. This includes elements
+that have not been assigned any value as well as elements that have been
deleted (@pxref{Delete, ,The @code{delete} Statement}). Such a reference
automatically creates that array element, with the null string as its value.
(In some cases, this is unfortunate, because it might waste memory inside
-@code{awk}.)
+@command{awk}.)
@cindex arrays, presence of elements
@cindex arrays, the @code{in} operator
-You can find out if an element exists in an array at a certain index with
-the expression:
+To determine whether an element exists in an array at a certain index, use
+the following expression:
@example
@var{index} in @var{array}
@end example
+@cindex side effects
@noindent
This expression tests whether or not the particular index exists,
without the side effect of creating that element if it is not present.
The expression has the value one (true) if @code{@var{array}[@var{index}]}
-exists, and zero (false) if it does not exist.
-
-For example, to test whether the array @code{frequencies} contains the
-index @samp{2}, you could write this statement:
+exists and zero (false) if it does not exist.
+For example, this statement tests whether the array @code{frequencies}
+contains the index @samp{2}:
@example
if (2 in frequencies)
print "Subscript 2 is present."
@end example
-Note that this is @emph{not} a test of whether or not the array
+Note that this is @emph{not} a test of whether the array
@code{frequencies} contains an element whose @emph{value} is two.
-(There is no way to do that except to scan all the elements.) Also, this
+There is no way to do that except to scan all the elements. Also, this
@emph{does not} create @code{frequencies[2]}, while the following
-(incorrect) alternative would do so:
+(incorrect) alternative does:
@example
if (frequencies[2] != "")
@@ -9010,39 +10622,38 @@ if (frequencies[2] != "")
@cindex array assignment
@cindex element assignment
-Array elements are lvalues: they can be assigned values just like
-@code{awk} variables:
+Array elements can be assigned values just like
+@command{awk} variables:
@example
@var{array}[@var{subscript}] = @var{value}
@end example
@noindent
-Here @var{array} is the name of your array. The expression
-@var{subscript} is the index of the element of the array that you want
-to assign a value. The expression @var{value} is the value you are
-assigning to that element of the array.
+@var{array} is the name of an array. The expression
+@var{subscript} is the index of the element of the array that is
+assigned a value. The expression @var{value} is the value to
+assign to that element of the array.
@node Array Example, Scanning an Array, Assigning Elements, Arrays
@section Basic Array Example
The following program takes a list of lines, each beginning with a line
-number, and prints them out in order of line number. The line numbers are
-not in order, however, when they are first read: they are scrambled. This
-program sorts the lines by making an array using the line numbers as
-subscripts. It then prints out the lines in sorted order of their numbers.
-It is a very simple program, and gets confused if it encounters repeated
-numbers, gaps, or lines that don't begin with a number.
+number, and prints them out in order of line number. The line numbers
+are not in order when they are first read---instead they
+are scrambled. This program sorts the lines by making an array using
+the line numbers as subscripts. The program then prints out the lines
+in sorted order of their numbers. It is a very simple program and gets
+confused upon encountering repeated numbers, gaps, or lines that don't
+begin with a number:
@example
-@group
@c file eg/misc/arraymax.awk
@{
if ($1 > max)
max = $1
arr[$1] = $0
@}
-@end group
END @{
for (x = 1; x <= max; x++)
@@ -9054,14 +10665,11 @@ END @{
The first rule keeps track of the largest line number seen so far;
it also stores each line into the array @code{arr}, at an index that
is the line's number.
-
The second rule runs after all the input has been read, to print out
all the lines.
-
When this program is run with the following input:
@example
-@group
@c file eg/misc/arraymax.data
5 I am the Five man
2 Who are you? The new number two!
@@ -9069,11 +10677,10 @@ When this program is run with the following input:
1 Who is number one?
3 I three you.
@c endfile
-@end group
@end example
@noindent
-its output is this:
+its output is:
@example
1 Who is number one?
@@ -9085,9 +10692,8 @@ its output is this:
If a line number is repeated, the last line with a given number overrides
the others.
-
Gaps in the line numbers can be handled with an easy improvement to the
-program's @code{END} rule:
+program's @code{END} rule, as follows:
@example
END @{
@@ -9099,19 +10705,19 @@ END @{
@node Scanning an Array, Delete, Array Example, Arrays
@section Scanning All Elements of an Array
-@cindex @code{for (x in @dots{})}
+@cindex @code{for (x in @dots{})} statement
@cindex arrays, special @code{for} statement
@cindex scanning an array
+@cindex @code{in} operator
-In programs that use arrays, you often need a loop that executes
-once for each element of an array. In other languages, where arrays are
-contiguous and indices are limited to positive integers, this is
-easy: you can
-find all the valid indices by counting from the lowest index
-up to the highest. This
-technique won't do the job in @code{awk}, since any number or string
-can be an array index. So @code{awk} has a special kind of @code{for}
-statement for scanning an array:
+In programs that use arrays, it is often necessary to use a loop that
+executes once for each element of an array. In other languages, where
+arrays are contiguous and indices are limited to positive integers,
+this is easy: all the valid indices can be found by counting from
+the lowest index up to the highest. This technique won't do the job
+in @command{awk}, because any number or string can be an array index.
+So @command{awk} has a special kind of @code{for} statement for scanning
+an array:
@example
for (@var{var} in @var{array})
@@ -9119,27 +10725,27 @@ for (@var{var} in @var{array})
@end example
@noindent
-This loop executes @var{body} once for each index in @var{array} that your
-program has previously used, with the
-variable @var{var} set to that index.
+This loop executes @var{body} once for each index in @var{array} that the
+program has previously used, with the variable @var{var} set to that index.
-Here is a program that uses this form of the @code{for} statement. The
+The following program uses this form of the @code{for} statement. The
first rule scans the input records and notes which words appear (at
least once) in the input, by storing a one into the array @code{used} with
the word as index. The second rule scans the elements of @code{used} to
find all the distinct words that appear in the input. It prints each
-word that is more than 10 characters long, and also prints the number of
-such words. @xref{String Functions, ,Built-in Functions for String Manipulation}, for more information
-on the built-in function @code{length}.
+word that is more than 10 characters long and also prints the number of
+such words.
+@xref{String Functions, ,String Manipulation Functions},
+for more information on the built-in function @code{length}.
@example
-# Record a 1 for each word that is used at least once.
+# Record a 1 for each word that is used at least once
@{
for (i = 1; i <= NF; i++)
used[$i] = 1
@}
-# Find number of distinct words more than 10 characters long.
+# Find number of distinct words more than 10 characters long
END @{
for (x in used)
if (length(x) > 10) @{
@@ -9156,9 +10762,9 @@ for a more detailed example of this type.
The order in which elements of the array are accessed by this statement
is determined by the internal arrangement of the array elements within
-@code{awk} and cannot be controlled or changed. This can lead to
+@command{awk} and cannot be controlled or changed. This can lead to
problems if new elements are added to @var{array} by statements in
-the loop body; you cannot predict whether or not the @code{for} loop will
+the loop body; it is not predictable whether or not the @code{for} loop will
reach them. Similarly, changing @var{var} inside the loop may produce
strange results. It is best to avoid such things.
@@ -9169,18 +10775,17 @@ strange results. It is best to avoid such things.
@cindex removing elements of arrays
@cindex arrays, deleting an element
-You can remove an individual element of an array using the @code{delete}
+To remove an individual element of an array, use the @code{delete}
statement:
@example
delete @var{array}[@var{index}]
@end example
-Once you have deleted an array element, you can no longer obtain any
-value the element once had. It is as if you had never referred
-to it and had never given it any value.
-
-Here is an example of deleting elements in an array:
+Once an array element has been deleted, any value the element once
+had is no longer available. It is as if the element had never
+been referred to or had been given a value.
+The following is an example of deleting elements in an array:
@example
for (i in frequencies)
@@ -9189,10 +10794,9 @@ for (i in frequencies)
@noindent
This example removes all the elements from the array @code{frequencies}.
-
-If you delete an element, a subsequent @code{for} statement to scan the array
-will not report that element, and the @code{in} operator to check for
-the presence of that element will return zero (i.e.@: false):
+Once an element is deleted, a subsequent @code{for} statement to scan the array
+does not report that element and the @code{in} operator to check for
+the presence of that element returns zero (i.e., false):
@example
delete foo[4]
@@ -9202,6 +10806,7 @@ if (4 in foo)
It is important to note that deleting an element is @emph{not} the
same as assigning it a null value (the empty string, @code{""}).
+For example:
@example
foo[4] = ""
@@ -9209,46 +10814,49 @@ if (4 in foo)
print "This is printed, even though foo[4] is empty"
@end example
+@cindex lint checks
It is not an error to delete an element that does not exist.
+If @option{--lint} is provided on the command line
+(@pxref{Options, ,Command-Line Options}),
+@command{gawk} issues a warning message when an element that
+is not in the array is deleted.
@cindex arrays, deleting entire contents
@cindex deleting entire arrays
-@cindex differences between @code{gawk} and @code{awk}
-You can delete all the elements of an array with a single statement,
-by leaving off the subscript in the @code{delete} statement.
+@cindex differences between @command{gawk} and @command{awk}
+All the elements of an array may be deleted with a single statement
+by leaving off the subscript in the @code{delete} statement,
+as follows:
@example
delete @var{array}
@end example
-This ability is a @code{gawk} extension; it is not available in
-compatibility mode (@pxref{Options, ,Command Line Options}).
+This ability is a @command{gawk} extension; it is not available in
+compatibility mode (@pxref{Options, ,Command-Line Options}).
Using this version of the @code{delete} statement is about three times
more efficient than the equivalent loop that deletes each element one
at a time.
@cindex portability issues
-The following statement provides a portable, but non-obvious way to clear
-out an array.
-
@cindex Brennan, Michael
+The following statement provides a portable but non-obvious way to clear
+out an array:@footnote{Thanks to Michael Brennan for pointing this out.}
+
@example
-@group
-# thanks to Michael Brennan for pointing this out
split("", array)
-@end group
@end example
The @code{split} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation})
+(@pxref{String Functions, ,String Manipulation Functions})
clears out the target array first. This call asks it to split
-apart the null string. Since there is no data to split out, the
+apart the null string. Because there is no data to split out, the
function simply clears the array and then returns.
@strong{Caution:} Deleting an array does not change its type; you cannot
-delete an array and then use the array's name as a scalar. For
-example, this will not work:
+delete an array and then use the array's name as a scalar
+(i.e., a regular variable). For example, the following does not work:
@example
a[1] = 3; delete a; a = 3
@@ -9257,69 +10865,78 @@ a[1] = 3; delete a; a = 3
@node Numeric Array Subscripts, Uninitialized Subscripts, Delete, Arrays
@section Using Numbers to Subscript Arrays
-An important aspect of arrays to remember is that @emph{array subscripts
-are always strings}. If you use a numeric value as a subscript,
-it will be converted to a string value before it is used for subscripting
-(@pxref{Conversion, ,Conversion of Strings and Numbers}).
-
@cindex conversions, during subscripting
@cindex numbers, used as subscripts
-@vindex CONVFMT
-This means that the value of the built-in variable @code{CONVFMT} can potentially
+@cindex @code{CONVFMT} variable
+An important aspect about arrays to remember is that @emph{array subscripts
+are always strings}. When a numeric value is used as a subscript,
+it is converted to a string value before being used for subscripting
+(@pxref{Conversion, ,Conversion of Strings and Numbers}).
+This means that the value of the built-in variable @code{CONVFMT} can
affect how your program accesses elements of an array. For example:
@example
xyz = 12.153
data[xyz] = 1
CONVFMT = "%2.2f"
-@group
if (xyz in data)
printf "%s is in data\n", xyz
else
printf "%s is not in data\n", xyz
-@end group
@end example
@noindent
This prints @samp{12.15 is not in data}. The first statement gives
@code{xyz} a numeric value. Assigning to
@code{data[xyz]} subscripts @code{data} with the string value @code{"12.153"}
-(using the default conversion value of @code{CONVFMT}, @code{"%.6g"}),
-and assigns one to @code{data["12.153"]}. The program then changes
+(using the default conversion value of @code{CONVFMT}, @code{"%.6g"}).
+Thus, the array element @code{data["12.153"]} is assigned the value one.
+The program then changes
the value of @code{CONVFMT}. The test @samp{(xyz in data)} generates a new
-string value from @code{xyz}, this time @code{"12.15"}, since the value of
+string value from @code{xyz}---this time @code{"12.15"}---because the value of
@code{CONVFMT} only allows two significant digits. This test fails,
since @code{"12.15"} is a different string from @code{"12.153"}.
According to the rules for conversions
(@pxref{Conversion, ,Conversion of Strings and Numbers}), integer
values are always converted to strings as integers, no matter what the
-value of @code{CONVFMT} may happen to be. So the usual case of:
+value of @code{CONVFMT} may happen to be. So the usual case of
+the following works:
@example
for (i = 1; i <= maxsub; i++)
@i{do something with} array[i]
@end example
-@noindent
-will work, no matter what the value of @code{CONVFMT}.
+The ``integer values always convert to strings as integers'' rule
+has an additional consequence for array indexing.
+Octal and hexadecimal constants
+(@pxref{Non-decimal-numbers, ,Octal and Hexadecimal Numbers})
+are converted internally into numbers and their original form
+is forgotten.
+This means, for example, that
+@code{array[17]},
+@code{array[021]},
+and
+@code{array[0x11]}
+all refer to the same element!
-Like many things in @code{awk}, the majority of the time things work
-as you would expect them to work. But it is useful to have a precise
-knowledge of the actual rules, since sometimes they can have a subtle
+As with many things in @command{awk}, the majority of the time
+things work as one would expect them to. But it is useful to have a precise
+knowledge of the actual rules which sometimes can have a subtle
effect on your programs.
@node Uninitialized Subscripts, Multi-dimensional, Numeric Array Subscripts, Arrays
@section Using Uninitialized Variables as Subscripts
@cindex uninitialized variables, as array subscripts
-@cindex array subscripts, uninitialized variables
-Suppose you want to print your input data in reverse order.
-A reasonable attempt at a program to do so (with some test
+@cindex arrays, subscripts, uninitialized variables
+Suppose it's necessary to write a program
+to print the input data in reverse order.
+A reasonable attempt to do so (with some test
data) might look like this:
@example
-@group
$ echo 'line 1
> line 2
> line 3' | awk '@{ l[lines] = $0; ++lines @}
@@ -9329,7 +10946,6 @@ $ echo 'line 1
> @}'
@print{} line 3
@print{} line 2
-@end group
@end example
Unfortunately, the very first line of input data did not come out in the
@@ -9337,13 +10953,12 @@ output!
At first glance, this program should have worked. The variable @code{lines}
is uninitialized, and uninitialized variables have the numeric value zero.
-So, @code{awk} should have printed the value of @code{l[0]}.
+So, @command{awk} should have printed the value of @code{l[0]}.
-The issue here is that subscripts for @code{awk} arrays are @strong{always}
-strings. And uninitialized variables, when used as strings, have the
-value @code{""}, not zero. Thus, @samp{line 1} ended up stored in
+The issue here is that subscripts for @command{awk} arrays are @emph{always}
+strings. Uninitialized variables, when used as strings, have the
+value @code{""}, not zero. Thus, @samp{line 1} ends up stored in
@code{l[""]}.
-
The following version of the program works correctly:
@example
@@ -9355,33 +10970,36 @@ END @{
@end example
Here, the @samp{++} forces @code{lines} to be numeric, thus making
-the ``old value'' numeric zero, which is then converted to @code{"0"}
+the ``old value'' numeric zero. This is then converted to @code{"0"}
as the array subscript.
@cindex null string, as array subscript
@cindex dark corner
-As we have just seen, even though it is somewhat unusual, the null string
-(@code{""}) is a valid array subscript (d.c.). If @samp{--lint} is provided
-on the command line (@pxref{Options, ,Command Line Options}),
-@code{gawk} will warn about the use of the null string as a subscript.
+@cindex lint checks
+Even though it is somewhat unusual, the null string
+(@code{""}) is a valid array subscript.
+@value{DARKCORNER}
+@command{gawk} warns about the use of the null string as a subscript
+if @option{--lint} is provided
+on the command line (@pxref{Options, ,Command-Line Options}).
@node Multi-dimensional, Multi-scanning, Uninitialized Subscripts, Arrays
-@section Multi-dimensional Arrays
+@section Multidimensional Arrays
@cindex subscripts in arrays
-@cindex arrays, multi-dimensional subscripts
-@cindex multi-dimensional subscripts
-A multi-dimensional array is an array in which an element is identified
-by a sequence of indices, instead of a single index. For example, a
+@cindex arrays, multidimensional subscripts
+@cindex multidimensional subscripts
+A multidimensional array is an array in which an element is identified
+by a sequence of indices instead of a single index. For example, a
two-dimensional array requires two indices. The usual way (in most
-languages, including @code{awk}) to refer to an element of a
+languages, including @command{awk}) to refer to an element of a
two-dimensional array named @code{grid} is with
@code{grid[@var{x},@var{y}]}.
-@vindex SUBSEP
-Multi-dimensional arrays are supported in @code{awk} through
-concatenation of indices into one string. What happens is that
-@code{awk} converts the indices into strings
+@cindex @code{SUBSEP} variable
+Multidimensional arrays are supported in @command{awk} through
+concatenation of indices into one string.
+@command{awk} converts the indices into strings
(@pxref{Conversion, ,Conversion of Strings and Numbers}) and
concatenates them together, with a separator between them. This creates
a single string that describes the values of the separate indices. The
@@ -9390,32 +11008,30 @@ one-dimensional array. The separator used is the value of the built-in
variable @code{SUBSEP}.
For example, suppose we evaluate the expression @samp{foo[5,12] = "value"}
-when the value of @code{SUBSEP} is @code{"@@"}. The numbers five and 12 are
+when the value of @code{SUBSEP} is @code{"@@"}. The numbers 5 and 12 are
converted to strings and
concatenated with an @samp{@@} between them, yielding @code{"5@@12"}; thus,
the array element @code{foo["5@@12"]} is set to @code{"value"}.
-Once the element's value is stored, @code{awk} has no record of whether
+Once the element's value is stored, @command{awk} has no record of whether
it was stored with a single index or a sequence of indices. The two
expressions @samp{foo[5,12]} and @w{@samp{foo[5 SUBSEP 12]}} are always
equivalent.
The default value of @code{SUBSEP} is the string @code{"\034"},
which contains a non-printing character that is unlikely to appear in an
-@code{awk} program or in most input data.
-
+@command{awk} program or in most input data.
The usefulness of choosing an unlikely character comes from the fact
-that index values that contain a string matching @code{SUBSEP} lead to
-combined strings that are ambiguous. Suppose that @code{SUBSEP} were
+that index values that contain a string matching @code{SUBSEP} can lead to
+combined strings that are ambiguous. Suppose that @code{SUBSEP} is
@code{"@@"}; then @w{@samp{foo["a@@b", "c"]}} and @w{@samp{foo["a",
-"b@@c"]}} would be indistinguishable because both would actually be
+"b@@c"]}} are indistinguishable because both are actually
stored as @samp{foo["a@@b@@c"]}.
-You can test whether a particular index-sequence exists in a
-``multi-dimensional'' array with the same operator @samp{in} used for single
-dimensional arrays. Instead of a single index as the left-hand operand,
-write the whole sequence of indices, separated by commas, in
-parentheses:
+To test whether a particular index sequence exists in a
+``multidimensional'' array, use the same operator (@samp{in}) that is
+used for single dimensional arrays. Write the whole sequence of indices
+in parentheses, separated by commas, as the left operand:
@example
(@var{subscript1}, @var{subscript2}, @dots{}) in @var{array}
@@ -9427,190 +11043,260 @@ result. It assumes that all lines have the same number of
elements.
@example
-@group
-awk '@{
+@{
if (max_nf < NF)
max_nf = NF
max_nr = NR
for (x = 1; x <= NF; x++)
vector[x, NR] = $x
@}
-@end group
-@group
END @{
for (x = 1; x <= max_nf; x++) @{
for (y = max_nr; y >= 1; --y)
printf("%s ", vector[x, y])
printf("\n")
@}
-@}'
-@end group
+@}
@end example
@noindent
When given the input:
@example
-@group
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
-@end group
@end example
@noindent
-it produces:
+the program produces the following output:
@example
-@group
4 3 2 1
5 4 3 2
6 5 4 3
1 6 5 4
2 1 6 5
3 2 1 6
-@end group
@end example
-@node Multi-scanning, Array Efficiency, Multi-dimensional, Arrays
-@section Scanning Multi-dimensional Arrays
+@node Multi-scanning, Array Sorting, Multi-dimensional, Arrays
+@section Scanning Multidimensional Arrays
There is no special @code{for} statement for scanning a
-``multi-dimensional'' array; there cannot be one, because in truth there
-are no multi-dimensional arrays or elements; there is only a
-multi-dimensional @emph{way of accessing} an array.
+``multidimensional'' array. There cannot be one, because in truth there
+are no multidimensional arrays or elements---there is only a
+multidimensional @emph{way of accessing} an array.
However, if your program has an array that is always accessed as
-multi-dimensional, you can get the effect of scanning it by combining
+multidimensional, you can get the effect of scanning it by combining
the scanning @code{for} statement
(@pxref{Scanning an Array, ,Scanning All Elements of an Array}) with the
-@code{split} built-in function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
-It works like this:
+built-in @code{split} function
+(@pxref{String Functions, ,String Manipulation Functions}).
+It works in the following manner:
@example
for (combined in array) @{
- split(combined, separate, SUBSEP)
- @dots{}
+ split(combined, separate, SUBSEP)
+ @dots{}
@}
@end example
@noindent
-This sets @code{combined} to
-each concatenated, combined index in the array, and splits it
+This sets the variable @code{combined} to
+each concatenated combined index in the array, and splits it
into the individual indices by breaking it apart where the value of
-@code{SUBSEP} appears. The split-out indices become the elements of
+@code{SUBSEP} appears. The individual indices then become the elements of
the array @code{separate}.
-Thus, suppose you have previously stored a value in @code{array[1, "foo"]};
-then an element with index @code{"1\034foo"} exists in
-@code{array}. (Recall that the default value of @code{SUBSEP} is
-the character with code 034.) Sooner or later the @code{for} statement
-will find that index and do an iteration with @code{combined} set to
-@code{"1\034foo"}. Then the @code{split} function is called as
-follows:
+Thus, if a value is previously stored in @code{array[1, "foo"]}; then
+an element with index @code{"1\034foo"} exists in @code{array}. (Recall
+that the default value of @code{SUBSEP} is the character with code 034.)
+Sooner or later, the @code{for} statement finds that index and does an
+iteration with the variable @code{combined} set to @code{"1\034foo"}.
+Then the @code{split} function is called as follows:
@example
split("1\034foo", separate, "\034")
@end example
@noindent
-The result of this is to set @code{separate[1]} to @code{"1"} and
-@code{separate[2]} to @code{"foo"}. Presto, the original sequence of
-separate indices has been recovered.
+The result is to set @code{separate[1]} to @code{"1"} and
+@code{separate[2]} to @code{"foo"}. Presto! The original sequence of
+separate indices is recovered.
+
+@node Array Sorting, , Multi-scanning, Arrays
+@section Sorting Array Values and Indices with @command{gawk}
+
+@cindex arrays, sorting
+@cindex @code{asort} built-in function
+The order in which an array is scanned with a @samp{for (i in array)}
+loop is essentially arbitrary.
+In most @command{awk} implementations, sorting an array requires
+writing a @code{sort} function.
+While this can be educational for exploring different sorting algorithms,
+usually that's not the point of the program.
+@command{gawk} provides the built-in @code{asort} function
+(@pxref{String Functions, ,String Manipulation Functions})
+that sorts an array. For example:
+
+@example
+@var{populate the array} data
+n = asort(data)
+for (i = 1; i <= n; i++)
+ @var{do something with} data[i]
+@end example
+
+After the call to @code{asort}, the array @code{data} is indexed from 1
+to some number @var{n}, the total number of elements in @code{data}.
+(This count is @code{asort}'s return value.)
+@code{data[1]} @value{LEQ} @code{data[2]} @value{LEQ} @code{data[3]}, and so on.
+The comparison of array elements is done
+using @command{gawk}'s usual comparison rules
+(@pxref{Typing and Comparison, ,Variable Typing and Comparison Expressions}).
+
+@cindex side effects
+An important side effect of calling @code{asort} is that
+@emph{the array's original indices are irrevocably lost}.
+As this isn't always desirable, @code{asort} accepts a
+second argument:
+
+@example
+@var{populate the array} source
+n = asort(source, dest)
+for (i = 1; i <= n; i++)
+ @var{do something with} dest[i]
+@end example
+
+In this case, @command{gawk} copies the @code{source} array into the
+@code{dest} array and then sorts @code{dest}, destroying its indices.
+However, the @code{source} array is not affected.
+
+Often, what's needed is to sort on the values of the @emph{indices}
+instead of the values of the elements. To do this, use a helper array
+to hold the sorted index values, and then access the original array's
+elements. It works in the following way:
+
+@example
+@var{populate the array} data
+# copy indices
+j = 1
+for (i in data) @{
+ ind[j] = i # index value becomes element value
+ j++
+@}
+n = asort(ind) # index values are now sorted
+for (i = 1; i <= n; i++)
+ @var{do something with} data[ind[i]]
+@end example
+
+Sorting the array by replacing the indices provides maximal flexibility.
+To traverse the elements in decreasing order, use a loop that goes from
+@var{n} down to 1, either over the elements or over the indices.
+
+@cindex reference counting
+Copying array indices and elements isn't expensive in terms of memory.
+Internally, @command{gawk} maintains @dfn{reference counts} to data.
+For example, when @code{asort} copies the first array to the second one,
+there is only one copy of the original array elements' data, even though
+both arrays use the values. Similarly, when copying the indices from
+@code{data} to @code{ind}, there is only one copy of the actual index
+strings.
-@node Array Efficiency, , Multi-scanning, Arrays
-@section Using Array Memory Efficiently
+@cindex arrays, sorting and @code{IGNORECASE}
+@cindex @code{IGNORECASE}, and array sorting
+@cindex @code{IGNORECASE} variable
+As with array subscripts, the value of @code{IGNORECASE}
+does not affect array sorting.
-This section applies just to @code{gawk}.
+@node Functions, Internationalization, Arrays, Top
+@chapter Functions
-It is often useful to use the same bit of data as an index
-into multiple arrays.
-Due to the way @code{gawk} implements associative arrays,
-when you need to use input data as an index for multiple
-arrays, it is much more effecient to assign the input field
-to a separate variable, and then use that variable as the index.
+This @value{CHAPTER} describes @command{awk}'s built-in functions,
+which fall into three categories: numeric, string, and I/O.
+@command{gawk} provides additional groups of functions
+to work with values that represent time, do
+bit manipulation, and to internationalize and localize programs.
-@example
-@{
- name = $1
- ssn = $2
- nkids = $3
- @dots{}
- seniority[name]++ # better than seniority[$1]++
- kids[name] = nkids # better than kids[$1] = nkids
-@}
-@end example
+Besides the built-in functions, @command{awk} has provisions for
+writing new functions that the rest of a program can use.
+The second half of this @value{CHAPTER} describes these
+@dfn{user-defined} functions.
-Using separate variables with mnemonic names for the input fields
-makes programs more readable, in any case.
-It is an eventual goal to make @code{gawk}'s array indexing as efficient
-as possible, no matter what the source of the index value.
+@menu
+* Built-in:: Summarizes the built-in functions.
+* User-defined:: Describes User-defined functions in detail.
+@end menu
-@node Built-in, User-defined, Arrays, Top
-@chapter Built-in Functions
+@node Built-in, User-defined, Functions, Functions
+@section Built-in Functions
@c 2e: USE TEXINFO-2 FUNCTION DEFINITION STUFF!!!!!!!!!!!!!
@cindex built-in functions
-@dfn{Built-in} functions are functions that are always available for
-your @code{awk} program to call. This chapter defines all the built-in
-functions in @code{awk}; some of them are mentioned in other sections,
-but they are summarized here for your convenience. (You can also define
-new functions yourself. @xref{User-defined, ,User-defined Functions}.)
+@dfn{Built-in} functions are always available for
+your @command{awk} program to call. This @value{SECTION} defines all
+the built-in
+functions in @command{awk}; some of these are mentioned in other sections
+but are summarized here for your convenience.
@menu
* Calling Built-in:: How to call built-in functions.
* Numeric Functions:: Functions that work with numbers, including
@code{int}, @code{sin} and @code{rand}.
* String Functions:: Functions for string manipulation, such as
- @code{split}, @code{match}, and
- @code{sprintf}.
+ @code{split}, @code{match} and @code{sprintf}.
* I/O Functions:: Functions for files and shell commands.
-* Time Functions:: Functions for dealing with time stamps.
+* Time Functions:: Functions for dealing with timestamps.
+* Bitwise Functions:: Functions for bitwise operations.
+* I18N Functions:: Functions for string translation.
@end menu
@node Calling Built-in, Numeric Functions, Built-in, Built-in
-@section Calling Built-in Functions
+@subsection Calling Built-in Functions
-To call a built-in function, write the name of the function followed
+To call one of @command{awk}'s built-in functions, write the name of
+the function followed
by arguments in parentheses. For example, @samp{atan2(y + z, 1)}
-is a call to the function @code{atan2}, with two arguments.
+is a call to the function @code{atan2}, and has two arguments.
+@cindex conventions, programming
+@cindex programming conventions
Whitespace is ignored between the built-in function name and the
-open-parenthesis, but we recommend that you avoid using whitespace
+open parenthesis, and it is good practice to avoid using whitespace
there. User-defined functions do not permit whitespace in this way, and
-you will find it easier to avoid mistakes by following a simple
-convention which always works: no whitespace after a function name.
+it is easier to avoid mistakes by following a simple
+convention that always works---no whitespace after a function name.
-@cindex differences between @code{gawk} and @code{awk}
+@cindex fatal errors
+@cindex differences between @command{gawk} and @command{awk}
Each built-in function accepts a certain number of arguments.
In some cases, arguments can be omitted. The defaults for omitted
arguments vary from function to function and are described under the
-individual functions. In some @code{awk} implementations, extra
-arguments given to built-in functions are ignored. However, in @code{gawk},
+individual functions. In some @command{awk} implementations, extra
+arguments given to built-in functions are ignored. However, in @command{gawk},
it is a fatal error to give extra arguments to a built-in function.
When a function is called, expressions that create the function's actual
-parameters are evaluated completely before the function call is performed.
-For example, in the code fragment:
+parameters are evaluated completely before the call is performed.
+For example, in the following code fragment:
@example
i = 4
j = sqrt(i++)
@end example
-@noindent
-the variable @code{i} is set to five before @code{sqrt} is called
-with a value of four for its actual parameter.
-
@cindex evaluation, order of
@cindex order of evaluation
+@noindent
+the variable @code{i} is incremented to the value five before @code{sqrt}
+is called with a value of four for its actual parameter.
The order of evaluation of the expressions used for the function's
-parameters is undefined. Thus, you should not write programs that
+parameters is undefined. Thus, avoid writing programs that
assume that parameters are evaluated from left to right or from
-right to left. For example,
+right to left. For example:
@example
i = 5
@@ -9618,62 +11304,69 @@ j = atan2(i++, i *= 2)
@end example
If the order of evaluation is left to right, then @code{i} first becomes
-six, and then 12, and @code{atan2} is called with the two arguments six
+six, and then 12, and @code{atan2} is called with the two arguments 6
and 12. But if the order of evaluation is right to left, @code{i}
-first becomes 10, and then 11, and @code{atan2} is called with the
+first becomes 10, then 11, and @code{atan2} is called with the
two arguments 11 and 10.
@node Numeric Functions, String Functions, Calling Built-in, Built-in
-@section Numeric Built-in Functions
+@subsection Numeric Functions
-Here is a full list of built-in functions that work with numbers.
-Optional parameters are enclosed in square brackets (``['' and ``]'').
+The following list describes all of
+the built-in functions that work with numbers.
+Optional parameters are enclosed in square brackets ([ and ]):
@table @code
@item int(@var{x})
-@findex int
-This produces the nearest integer to @var{x}, located between @var{x} and zero,
+@cindex @code{int} built-in function
+This returns the nearest integer to @var{x}, located between @var{x} and zero and
truncated toward zero.
For example, @code{int(3)} is three, @code{int(3.9)} is three, @code{int(-3.9)}
is @minus{}3, and @code{int(-3)} is @minus{}3 as well.
@item sqrt(@var{x})
-@findex sqrt
-This gives you the positive square root of @var{x}. It reports an error
+@cindex @code{sqrt} built-in function
+This returns the positive square root of @var{x}.
+@command{gawk} reports an error
if @var{x} is negative. Thus, @code{sqrt(4)} is two.
@item exp(@var{x})
-@findex exp
-This gives you the exponential of @var{x} (@code{e ^ @var{x}}), or reports
+@cindex @code{exp} built-in function
+This returns the exponential of @var{x} (@code{e ^ @var{x}}) or reports
an error if @var{x} is out of range. The range of values @var{x} can have
-depends on your machine's floating point representation.
+depends on your machine's floating-point representation.
@item log(@var{x})
-@findex log
-This gives you the natural logarithm of @var{x}, if @var{x} is positive;
+@cindex @code{log} built-in function
+This returns the natural logarithm of @var{x}, if @var{x} is positive;
otherwise, it reports an error.
@item sin(@var{x})
-@findex sin
-This gives you the sine of @var{x}, with @var{x} in radians.
+@cindex @code{sin} built-in function
+This returns the sine of @var{x}, with @var{x} in radians.
@item cos(@var{x})
-@findex cos
-This gives you the cosine of @var{x}, with @var{x} in radians.
+@cindex @code{cos} built-in function
+This returns the cosine of @var{x}, with @var{x} in radians.
@item atan2(@var{y}, @var{x})
-@findex atan2
-This gives you the arctangent of @code{@var{y} / @var{x}} in radians.
+@cindex @code{atan2} built-in function
+This returns the arctangent of @code{@var{y} / @var{x}} in radians.
@item rand()
-@findex rand
-This gives you a random number. The values of @code{rand} are
-uniformly-distributed between zero and one.
-The value is never zero and never one.
+@cindex @code{rand} built-in function
+This returns a random number. The values of @code{rand} are
+uniformly distributed between zero and one.
+The value is never zero and never one.@footnote{The C version of @code{rand}
+is known to produce fairly poor sequences of random numbers.
+However, nothing requires that an @command{awk} implementation use the C
+@code{rand} to implement the @command{awk} version of @code{rand}.
+In fact, @command{gawk} uses the BSD @code{random} function, which is
+considerably better than @code{rand}, to produce random numbers.}
-Often you want random integers instead. Here is a user-defined function
-you can use to obtain a random non-negative integer less than @var{n}:
+Often random integers are needed instead. Following is a user-defined function
+that can be used to obtain a random non-negative integer less than @var{n}:
@example
function randint(n) @{
@@ -9683,45 +11376,40 @@ function randint(n) @{
@noindent
The multiplication produces a random number greater than zero and less
-than @code{n}. We then make it an integer (using @code{int}) between zero
-and @code{n} @minus{} 1, inclusive.
+than @code{n}. Using @code{int}, this result is made into
+an integer between zero and @code{n} @minus{} 1, inclusive.
-Here is an example where a similar function is used to produce
-random integers between one and @var{n}. This program
-prints a new random number for each input record.
+The following example uses a similar function to produce random integers
+between one and @var{n}. This program prints a new random number for
+each input record.
@example
-@group
-awk '
# Function to roll a simulated die.
function roll(n) @{ return 1 + int(rand() * n) @}
-@end group
-@group
# Roll 3 six-sided dice and
# print total number of points.
@{
printf("%d points\n",
roll(6)+roll(6)+roll(6))
-@}'
-@end group
+@}
@end example
@cindex seed for random numbers
@cindex random numbers, seed of
-@comment MAWK uses a different seed each time.
-@strong{Caution:} In most @code{awk} implementations, including @code{gawk},
+@c MAWK uses a different seed each time.
+@strong{Caution:} In most @command{awk} implementations, including @command{gawk},
@code{rand} starts generating numbers from the same
-starting number, or @dfn{seed}, each time you run @code{awk}. Thus,
-a program will generate the same results each time you run it.
-The numbers are random within one @code{awk} run, but predictable
+starting number, or @dfn{seed}, each time you run @command{awk}. Thus,
+a program generates the same results each time you run it.
+The numbers are random within one @command{awk} run but predictable
from run to run. This is convenient for debugging, but if you want
a program to do different things each time it is used, you must change
-the seed to a value that will be different in each run. To do this,
+the seed to a value that is different in each run. To do this,
use @code{srand}.
@item srand(@r{[}@var{x}@r{]})
-@findex srand
+@cindex @code{srand} built-in function
The function @code{srand} sets the starting point, or seed,
for generating random numbers to the value @var{x}.
@@ -9730,31 +11418,83 @@ numbers.@footnote{Computer generated random numbers really are not truly
random. They are technically known as ``pseudo-random.'' This means
that while the numbers in a sequence appear to be random, you can in
fact generate the same sequence of random numbers over and over again.}
-Thus, if you set the seed to the same value a second time, you will get
-the same sequence of random numbers again.
+Thus, if the seed is set to the same value a second time,
+the same sequence of random numbers is produced again.
-If you omit the argument @var{x}, as in @code{srand()}, then the current
+Different @command{awk} implementations use different random number
+generators internally. Don't expect the same @command{awk} program
+to produce the same series of random numbers when executed by
+different versions of @command{awk}.
+
+If the argument @var{x} is omitted, as in @samp{srand()}, then the current
date and time of day are used for a seed. This is the way to get random
numbers that are truly unpredictable.
The return value of @code{srand} is the previous seed. This makes it
-easy to keep track of the seeds for use in consistently reproducing
+easy to keep track of the seeds in case you need to consistently reproduce
sequences of random numbers.
@end table
@node String Functions, I/O Functions, Numeric Functions, Built-in
-@section Built-in Functions for String Manipulation
+@subsection String Manipulation Functions
-The functions in this section look at or change the text of one or more
+The functions in this @value{SECTION} look at or change the text of one or more
strings.
-Optional parameters are enclosed in square brackets (``['' and ``]'').
+Optional parameters are enclosed in square brackets ([ and ]).
+Those functions that are
+specific to @command{gawk} are marked with a pound sign (@samp{#}):
+
+@menu
+* Gory Details:: More than you want to know about @samp{\} and
+ @samp{&} with @code{sub}, @code{gsub}, and
+ @code{gensub}.
+@end menu
@table @code
+@item asort(@var{source} @r{[}, @var{dest}@r{]}) #
+@cindex @code{asort} built-in function
+@code{asort} is a @command{gawk}-specific extension, returning the number of
+elements in the array @var{source}. The contents of @var{source} are
+sorted using @command{gawk}'s normal rules for comparing values, and the indices
+of the sorted values of @var{source} are replaced with sequential
+integers starting with one. If the optional array @var{dest} is specified,
+then @var{source} is duplicated into @var{dest}. @var{dest} is then
+sorted, leaving the indices of @var{source} unchanged.
+For example, if the contents of @code{a} are as follows:
+
+@example
+a["last"] = "de"
+a["first"] = "sac"
+a["middle"] = "cul"
+@end example
+
+@noindent
+A call to @code{asort}:
+
+@example
+asort(a)
+@end example
+
+@noindent
+results in the following contents of @code{a}:
+
+@example
+a[1] = "cul"
+a[2] = "de"
+a[3] = "sac"
+@end example
+
+@cindex differences between @command{gawk} and @command{awk}
+The @code{asort} function is described in more detail in
+@ref{Array Sorting, ,Sorting Array Values and Indices with @command{gawk}}.
+@code{asort} is a @command{gawk} extension; it is not available
+in compatibility mode (@pxref{Options, ,Command-Line Options}).
+
@item index(@var{in}, @var{find})
-@findex index
+@cindex @code{index} built-in function
This searches the string @var{in} for the first occurrence of the string
@var{find}, and returns the position in characters where that occurrence
-begins in the string @var{in}. For example:
+begins in the string @var{in}. Consider the following example:
@example
$ awk 'BEGIN @{ print index("peanut", "an") @}'
@@ -9763,14 +11503,14 @@ $ awk 'BEGIN @{ print index("peanut", "an") @}'
@noindent
If @var{find} is not found, @code{index} returns zero.
-(Remember that string indices in @code{awk} start at one.)
+(Remember that string indices in @command{awk} start at one.)
@item length(@r{[}@var{string}@r{]})
-@findex length
-This gives you the number of characters in @var{string}. If
+@cindex @code{length} built-in function
+This returns the number of characters in @var{string}. If
@var{string} is a number, the length of the digit string representing
-that number is returned. For example, @code{length("abcde")} is five. By
-contrast, @code{length(15 * 35)} works out to three. How? Well, 15 * 35 =
+that number is returned. For example, @code{length("abcde")} is 5. By
+contrast, @code{length(15 * 35)} works out to 3. In this example, 15 * 35 =
525, and 525 is then converted to the string @code{"525"}, which has
three characters.
@@ -9778,25 +11518,33 @@ If no argument is supplied, @code{length} returns the length of @code{$0}.
@cindex historical features
@cindex portability issues
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-In older versions of @code{awk}, you could call the @code{length} function
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+@strong{Note:}
+In older versions of @command{awk}, the @code{length} function could
+be called
without any parentheses. Doing so is marked as ``deprecated'' in the
-POSIX standard. This means that while you can do this in your
-programs, it is a feature that can eventually be removed from a future
-version of the standard. Therefore, for maximal portability of your
-@code{awk} programs, you should always supply the parentheses.
-
-@item match(@var{string}, @var{regexp})
-@findex match
-The @code{match} function searches the string, @var{string}, for the
-longest, leftmost substring matched by the regular expression,
-@var{regexp}. It returns the character position, or @dfn{index}, of
+POSIX standard. This means that while a program can do this,
+it is a feature that can eventually be removed from a future
+version of the standard. Therefore, for programs to be maximally portable,
+always supply the parentheses.
+
+@item match(@var{string}, @var{regexp} @r{[}, @var{array}@r{]})
+@cindex @code{match} built-in function
+The @code{match} function searches @var{string} for the
+longest leftmost substring matched by the regular expression,
+@var{regexp}. It returns the character position, or @dfn{index},
where that substring begins (one, if it starts at the beginning of
@var{string}). If no match is found, it returns zero.
-@vindex RSTART
-@vindex RLENGTH
+The order of the first two arguments is backwards from most other string
+functions that work with regular expressions, such as
+@code{sub} and @code{gsub}. It might help to remember that
+for @code{match}, the order is the same as for the @samp{~} operator:
+@samp{@var{string} ~ @var{regexp}}.
+
+@cindex @code{RSTART} variable
+@cindex @code{RLENGTH} variable
The @code{match} function sets the built-in variable @code{RSTART} to
the index. It also sets the built-in variable @code{RLENGTH} to the
length in characters of the matched substring. If no match is found,
@@ -9805,27 +11553,25 @@ length in characters of the matched substring. If no match is found,
For example:
@example
-@group
-@c file eg/misc/findpat.sh
-awk '@{
+@c file eg/misc/findpat.awk
+@{
if ($1 == "FIND")
regex = $2
else @{
where = match($0, regex)
if (where != 0)
- print "Match of", regex, "found at", \
+ print "Match of", regex, "found at",
where, "in", $0
@}
-@}'
+@}
@c endfile
-@end group
@end example
@noindent
This program looks for lines that match the regular expression stored in
the variable @code{regex}. This regular expression can be changed. If the
first word on a line is @samp{FIND}, @code{regex} is changed to be the
-second word on that line. Therefore, given:
+second word on that line. Therefore, if given:
@example
@c file eg/misc/findpat.data
@@ -9840,16 +11586,38 @@ Melvin was here.
@end example
@noindent
-@code{awk} prints:
+@command{awk} prints:
@example
Match of ru+n found at 12 in My program runs
Match of Melvin found at 1 in Melvin was here.
@end example
+@cindex differences between @command{gawk} and @command{awk}
+If @var{array} is present, it is cleared, and then the 0'th element
+of @var{array} is set to the entire portion of @var{string}
+matched by @var{regexp}. If @var{regexp} contains parentheses,
+the integer-indexed elements of @var{array} are set to contain the
+portion of @var{string} matching the corresponding parenthesized
+sub-expression.
+For example:
+
+@example
+$ echo foooobazbarrrrr |
+> gawk '@{ match($0, /(fo+).+(ba*r)/, arr)
+> print arr[1], arr[2] @}'
+@print{} foooo barrrrr
+@end example
+
+@cindex fatal errors
+The @var{array} argument to @code{match} is a
+@command{gawk} extension. In compatibility mode
+(@pxref{Options, ,Command-Line Options}),
+using a third argument is a fatal error.
+
@item split(@var{string}, @var{array} @r{[}, @var{fieldsep}@r{]})
-@findex split
-This divides @var{string} into pieces separated by @var{fieldsep},
+@cindex @code{split} built-in function
+This function divides @var{string} into pieces separated by @var{fieldsep},
and stores the pieces in @var{array}. The first piece is stored in
@code{@var{array}[1]}, the second piece in @code{@var{array}[2]}, and so
forth. The string value of the third argument, @var{fieldsep}, is
@@ -9857,6 +11625,8 @@ a regexp describing where to split @var{string} (much as @code{FS} can
be a regexp describing where to split input records). If
the @var{fieldsep} is omitted, the value of @code{FS} is used.
@code{split} returns the number of elements created.
+If @var{string} does not match @var{fieldsep}, @var{array} is empty
+and @code{split} returns zero.
The @code{split} function splits strings into pieces in a
manner similar to the way input lines are split into fields. For example:
@@ -9878,68 +11648,78 @@ a[3] = "sac"
@noindent
The value returned by this call to @code{split} is three.
+@cindex differences between @command{gawk} and @command{awk}
As with input field-splitting, when the value of @var{fieldsep} is
-@w{@code{" "}}, leading and trailing whitespace is ignored, and the elements
+@w{@code{" "}}, leading and trailing whitespace is ignored and the elements
are separated by runs of whitespace.
-
-@cindex differences between @code{gawk} and @code{awk}
Also as with input field-splitting, if @var{fieldsep} is the null string, each
individual character in the string is split into its own array element.
-(This is a @code{gawk}-specific extension.)
+(This is a @command{gawk}-specific extension.)
@cindex dark corner
-Recent implementations of @code{awk}, including @code{gawk}, allow
-the third argument to be a regexp constant (@code{/abc/}), as well as a
-string (d.c.). The POSIX standard allows this as well.
+Modern implementations of @command{awk}, including @command{gawk}, allow
+the third argument to be a regexp constant (@code{/abc/}) as well as a
+string.
+@value{DARKCORNER}
+The POSIX standard allows this as well.
Before splitting the string, @code{split} deletes any previously existing
-elements in the array @var{array} (d.c.).
-
-If @var{string} does not match @var{fieldsep} at all, @var{array} will have
-one element. The value of that element will be the original
-@var{string}.
+elements in the array @var{array}.
+If @var{string} does not match @var{fieldsep} at all, @var{array} has
+one element only. The value of that element is the original @var{string}.
-@item sprintf(@var{format}, @var{expression1},@dots{})
-@findex sprintf
+@item sprintf(@var{format}, @var{expression1}, @dots{})
+@cindex @code{sprintf} built-in function
This returns (without printing) the string that @code{printf} would
have printed out with the same arguments
(@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing}).
For example:
@example
-sprintf("pi = %.2f (approx.)", 22/7)
+pival = sprintf("pi = %.2f (approx.)", 22/7)
@end example
@noindent
-returns the string @w{@code{"pi = 3.14 (approx.)"}}.
+assigns the string @w{@code{"pi = 3.14 (approx.)"}} to the variable @code{pival}.
+
+@cindex @code{strtonum} built-in function
+@item strtonum(@var{str}) #
+Examines @var{str} and returns its numeric value. If @var{str}
+begins with a leading @samp{0}, @code{strtonum} assumes that @var{str}
+is an octal number. If @var{str} begins with a leading @samp{0x} or
+@samp{0X}, @code{strtonum} assumes that @var{str} is a hexadecimal number.
+For example:
-@ignore
-2e: For sub, gsub, and gensub, either here or in the "how much matches"
- section, we need some explanation that it is possible to match the
- null string when using closures like *. E.g.,
+@example
+$ echo 0x11 |
+> gawk '@{ printf "%d\n", strtonum($1) @}'
+@print{} 17
+@end example
- $ echo abc | awk '{ gsub(/m*/, "X"); print }'
- @print{} XaXbXcX
+Using the @code{strtonum} function is @emph{not} the same as adding zero
+to a string value; the automatic coercion of strings to numbers
+works only for decimal data, not for octal or hexadecimal.@footnote{Unless
+you use the @option{--non-decimal-data} option, which isn't recommended.
+@xref{Non-decimal Data, ,Allowing Non-Decimal Input Data}, for more information.}
- Although this makes a certain amount of sense, it can be very
- suprising.
-@end ignore
+@cindex differences between @command{gawk} and @command{awk}
+@code{strtonum} is a @command{gawk} extension; it is not available
+in compatibility mode (@pxref{Options, ,Command-Line Options}).
@item sub(@var{regexp}, @var{replacement} @r{[}, @var{target}@r{]})
-@findex sub
+@cindex @code{sub} built-in function
The @code{sub} function alters the value of @var{target}.
It searches this value, which is treated as a string, for the
-leftmost longest substring matched by the regular expression, @var{regexp},
-extending this match as far as possible. Then the entire string is
+leftmost longest substring matched by the regular expression @var{regexp}.
+Then the entire string is
changed by replacing the matched text with @var{replacement}.
The modified string becomes the new value of @var{target}.
This function is peculiar because @var{target} is not simply
-used to compute a value, and not just any expression will do: it
-must be a variable, field or array element, so that @code{sub} can
+used to compute a value, and not just any expression will do---it
+must be a variable, field, or array element so that @code{sub} can
store a modified value there. If this argument is omitted, then the
default is to use and alter @code{$0}.
-
For example:
@example
@@ -9949,7 +11729,7 @@ sub(/at/, "ith", str)
@noindent
sets @code{str} to @w{@code{"wither, water, everywhere"}}, by replacing the
-leftmost, longest occurrence of @samp{at} with @samp{ith}.
+leftmost longest occurrence of @samp{at} with @samp{ith}.
The @code{sub} function returns the number of substitutions made (either
one or zero).
@@ -9960,26 +11740,25 @@ the regexp can match more than one string, then this precise substring
may vary.) For example:
@example
-awk '@{ sub(/candidate/, "& and his wife"); print @}'
+@{ sub(/candidate/, "& and his wife"); print @}
@end example
@noindent
changes the first occurrence of @samp{candidate} to @samp{candidate
and his wife} on each input line.
-
Here is another example:
@example
-awk 'BEGIN @{
- str = "daabaaa"
- sub(/a+/, "C&C", str)
- print str
-@}'
+$ awk 'BEGIN @{
+> str = "daabaaa"
+> sub(/a+/, "C&C", str)
+> print str
+> @}'
@print{} dCaaCbaaa
@end example
@noindent
-This shows how @samp{&} can represent a non-constant string, and also
+This shows how @samp{&} can represent a non-constant string and also
illustrates the ``leftmost, longest'' rule in regexp matching
(@pxref{Leftmost Longest, ,How Much Text Matches?}).
@@ -9987,46 +11766,47 @@ The effect of this special character (@samp{&}) can be turned off by putting a
backslash before it in the string. As usual, to insert one backslash in
the string, you must write two backslashes. Therefore, write @samp{\\&}
in a string constant to include a literal @samp{&} in the replacement.
-For example, here is how to replace the first @samp{|} on each line with
+For example, following is shown how to replace the first @samp{|} on each line with
an @samp{&}:
@example
-awk '@{ sub(/\|/, "\\&"); print @}'
+@{ sub(/\|/, "\\&"); print @}
@end example
@cindex @code{sub}, third argument of
@cindex @code{gsub}, third argument of
-@strong{Note:} As mentioned above, the third argument to @code{sub} must
+As mentioned, the third argument to @code{sub} must
be a variable, field or array reference.
-Some versions of @code{awk} allow the third argument to
-be an expression which is not an lvalue. In such a case, @code{sub}
-would still search for the pattern and return zero or one, but the result of
-the substitution (if any) would be thrown away because there is no place
-to put it. Such versions of @code{awk} accept expressions like
-this:
+Some versions of @command{awk} allow the third argument to
+be an expression that is not an lvalue. In such a case, @code{sub}
+still searches for the pattern and returns zero or one, but the result of
+the substitution (if any) is thrown away because there is no place
+to put it. Such versions of @command{awk} accept expressions
+such as the following:
@example
sub(/USA/, "United States", "the USA and Canada")
@end example
@noindent
-For historical compatibility, @code{gawk} will accept erroneous code,
-such as in the above example. However, using any other non-changeable
-object as the third parameter will cause a fatal error, and your program
+@cindex fatal errors
+For historical compatibility, @command{gawk} accepts erroneous code,
+such as in the previous example. However, using any other non-changeable
+object as the third parameter causes a fatal error and your program
will not run.
Finally, if the @var{regexp} is not a regexp constant, it is converted into a
-string and then the value of that string is treated as the regexp to match.
+string, and then the value of that string is treated as the regexp to match.
@item gsub(@var{regexp}, @var{replacement} @r{[}, @var{target}@r{]})
-@findex gsub
+@cindex @code{gsub} built-in function
This is similar to the @code{sub} function, except @code{gsub} replaces
@emph{all} of the longest, leftmost, @emph{non-overlapping} matching
substrings it can find. The @samp{g} in @code{gsub} stands for
``global,'' which means replace everywhere. For example:
@example
-awk '@{ gsub(/Britain/, "United Kingdom"); print @}'
+@{ gsub(/Britain/, "United Kingdom"); print @}
@end example
@noindent
@@ -10034,35 +11814,31 @@ replaces all occurrences of the string @samp{Britain} with @samp{United
Kingdom} for all input records.
The @code{gsub} function returns the number of substitutions made. If
-the variable to be searched and altered, @var{target}, is
-omitted, then the entire input record, @code{$0}, is used.
-
+the variable to search and alter (@var{target}) is
+omitted, then the entire input record (@code{$0}) is used.
As in @code{sub}, the characters @samp{&} and @samp{\} are special,
-and the third argument must be an lvalue.
-@end table
+and the third argument must be assignable.
-@table @code
-@item gensub(@var{regexp}, @var{replacement}, @var{how} @r{[}, @var{target}@r{]})
-@findex gensub
+@item gensub(@var{regexp}, @var{replacement}, @var{how} @r{[}, @var{target}@r{]}) #
+@cindex @code{gensub} built-in function
@code{gensub} is a general substitution function. Like @code{sub} and
@code{gsub}, it searches the target string @var{target} for matches of
-the regular expression @var{regexp}. Unlike @code{sub} and
-@code{gsub}, the modified string is returned as the result of the
-function, and the original target string is @emph{not} changed. If
-@var{how} is a string beginning with @samp{g} or @samp{G}, then it
-replaces all matches of @var{regexp} with @var{replacement}.
-Otherwise, @var{how} is a number indicating which match of @var{regexp}
-to replace. If no @var{target} is supplied, @code{$0} is used instead.
+the regular expression @var{regexp}. Unlike @code{sub} and @code{gsub},
+the modified string is returned as the result of the function and the
+original target string is @emph{not} changed. If @var{how} is a string
+beginning with @samp{g} or @samp{G}, then it replaces all matches of
+@var{regexp} with @var{replacement}. Otherwise, @var{how} is treated
+as a number that indicates which match of @var{regexp} to replace. If
+no @var{target} is supplied, @code{$0} is used.
@code{gensub} provides an additional feature that is not available
-in @code{sub} or @code{gsub}: the ability to specify components of
-a regexp in the replacement text. This is done by using parentheses
-in the regexp to mark the components, and then specifying @samp{\@var{n}}
-in the replacement text, where @var{n} is a digit from one to nine.
+in @code{sub} or @code{gsub}: the ability to specify components of a
+regexp in the replacement text. This is done by using parentheses in
+the regexp to mark the components and then specifying @samp{\@var{N}}
+in the replacement text, where @var{N} is a digit from 1 to 9.
For example:
@example
-@group
$ gawk '
> BEGIN @{
> a = "abc def"
@@ -10070,18 +11846,17 @@ $ gawk '
> print b
> @}'
@print{} def abc
-@end group
@end example
@noindent
-As described above for @code{sub}, you must type two backslashes in order
+As with @code{sub}, you must type two backslashes in order
to get one into the string.
In the replacement text, the sequence @samp{\0} represents the entire
matched text, as does the character @samp{&}.
-This example shows how you can use the third argument to control
-which match of the regexp should be changed.
+The following example shows how you can use the third argument to control
+which match of the regexp should be changed:
@example
$ echo a b c a b c |
@@ -10093,23 +11868,27 @@ In this case, @code{$0} is used as the default target string.
@code{gensub} returns the new string as its result, which is
passed directly to @code{print} for printing.
+@cindex automatic warnings
+@cindex warnings, automatic
If the @var{how} argument is a string that does not begin with @samp{g} or
-@samp{G}, or if it is a number that is less than zero, only one
-substitution is performed.
+@samp{G}, or if it is a number that is less than or equal to zero, only one
+substitution is performed. If @var{how} is zero, @command{gawk} issues
+a warning message.
If @var{regexp} does not match @var{target}, @code{gensub}'s return value
-is the original, unchanged value of @var{target}.
+is the original unchanged value of @var{target}.
-@cindex differences between @code{gawk} and @code{awk}
-@code{gensub} is a @code{gawk} extension; it is not available
-in compatibility mode (@pxref{Options, ,Command Line Options}).
+@cindex differences between @command{gawk} and @command{awk}
+@code{gensub} is a @command{gawk} extension; it is not available
+in compatibility mode (@pxref{Options, ,Command-Line Options}).
@item substr(@var{string}, @var{start} @r{[}, @var{length}@r{]})
-@findex substr
+@cindex @code{substr} built-in function
This returns a @var{length}-character-long substring of @var{string},
starting at character number @var{start}. The first character of a
-string is character number one. For example,
-@code{substr("washington", 5, 3)} returns @code{"ing"}.
+string is character number one.@footnote{This is different from
+C and C++, where the first character is number zero.}
+For example, @code{substr("washington", 5, 3)} returns @code{"ing"}.
If @var{length} is not present, this function returns the whole suffix of
@var{string} that begins at character number @var{start}. For example,
@@ -10118,9 +11897,12 @@ suffix is also returned
if @var{length} is greater than the number of characters remaining
in the string, counting from character number @var{start}.
-@strong{Note:} The string returned by @code{substr} @emph{cannot} be
-assigned to. Thus, it is a mistake to attempt to change a portion of
-a string, like this:
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+The string returned by @code{substr} @emph{cannot} be
+assigned. Thus, it is a mistake to attempt to change a portion of
+a string, as shown in the following example:
@example
string = "abcdef"
@@ -10129,57 +11911,72 @@ substr(string, 3, 3) = "CDE"
@end example
@noindent
-or to use @code{substr} as the third agument of @code{sub} or @code{gsub}:
+It is also a mistake to use @code{substr} as the third argument
+of @code{sub} or @code{gsub}:
@example
gsub(/xyz/, "pdq", substr($0, 5, 20)) # WRONG
@end example
+@cindex portability issues
+(Some commercial versions of @command{awk} do in fact let you use
+@code{substr} this way, but doing so is not portable.)
+
+If you need to replace bits and pieces of a string, combine @code{substr}
+with string concatenation, in the following manner:
+
+@example
+string = "abcdef"
+@dots{}
+string = substr(string, 1, 2) "CDE" substr(string, 6)
+@end example
+
@cindex case conversion
@cindex conversion of case
@item tolower(@var{string})
-@findex tolower
-This returns a copy of @var{string}, with each upper-case character
-in the string replaced with its corresponding lower-case character.
+@cindex @code{tolower} built-in function
+This returns a copy of @var{string}, with each uppercase character
+in the string replaced with its corresponding lowercase character.
Non-alphabetic characters are left unchanged. For example,
@code{tolower("MiXeD cAsE 123")} returns @code{"mixed case 123"}.
@item toupper(@var{string})
-@findex toupper
-This returns a copy of @var{string}, with each lower-case character
-in the string replaced with its corresponding upper-case character.
+@cindex @code{toupper} built-in function
+This returns a copy of @var{string}, with each lowercase character
+in the string replaced with its corresponding uppercase character.
Non-alphabetic characters are left unchanged. For example,
@code{toupper("MiXeD cAsE 123")} returns @code{"MIXED CASE 123"}.
@end table
-@c fakenode --- for prepinfo
-@subheading More About @samp{\} and @samp{&} with @code{sub}, @code{gsub} and @code{gensub}
+@node Gory Details, , String Functions, String Functions
+@subsubsection More About @samp{\} and @samp{&} with @code{sub}, @code{gsub}, and @code{gensub}
@cindex escape processing, @code{sub} et. al.
-When using @code{sub}, @code{gsub} or @code{gensub}, and trying to get literal
+@cindex @code{sub}, escape processing
+@cindex @code{gsub}, escape processing
+@cindex @code{gensub}, escape processing
+When using @code{sub}, @code{gsub}, or @code{gensub}, and trying to get literal
backslashes and ampersands into the replacement text, you need to remember
that there are several levels of @dfn{escape processing} going on.
-First, there is the @dfn{lexical} level, which is when @code{awk} reads
-your program, and builds an internal copy of your program that can
-be executed.
-
-Then there is the run-time level, when @code{awk} actually scans the
+First, there is the @dfn{lexical} level, which is when @command{awk} reads
+your program
+and builds an internal copy of it that can be executed.
+Then there is the runtime level, which is when @command{awk} actually scans the
replacement string to determine what to generate.
-At both levels, @code{awk} looks for a defined set of characters that
+At both levels, @command{awk} looks for a defined set of characters that
can come after a backslash. At the lexical level, it looks for the
escape sequences listed in @ref{Escape Sequences}.
-Thus, for every @samp{\} that @code{awk} will process at the run-time
-level, you type two @samp{\}s at the lexical level.
+Thus, for every @samp{\} that @command{awk} processes at the runtime
+level, type two backslashes at the lexical level.
When a character that is not valid for an escape sequence follows the
-@samp{\}, Unix @code{awk} and @code{gawk} both simply remove the initial
-@samp{\}, and put the following character into the string. Thus, for
+@samp{\}, Unix @command{awk} and @command{gawk} both simply remove the initial
+@samp{\} and put the next character into the string. Thus, for
example, @code{"a\qb"} is treated as @code{"aqb"}.
-At the run-time level, the various functions handle sequences of
+At the runtime level, the various functions handle sequences of
@samp{\} and @samp{&} differently. The situation is (sadly) somewhat complex.
-
Historically, the @code{sub} and @code{gsub} functions treated the two
character sequence @samp{\&} specially; this sequence was replaced in
the generated text with a single @samp{&}. Any other @samp{\} within
@@ -10206,7 +12003,7 @@ through unchanged. To illustrate with a table:
}
@bigskip}
@end tex
-@ifinfo
+@ifnottex
@display
You type @code{sub} sees @code{sub} generates
-------- ---------- ---------------
@@ -10218,25 +12015,24 @@ through unchanged. To illustrate with a table:
@code{\\\\\\&} @code{\\\&} a literal @samp{\\&}
@code{\\q} @code{\q} a literal @samp{\q}
@end display
-@end ifinfo
+@end ifnottex
@noindent
-This table shows both the lexical level processing, where
-an odd number of backslashes becomes an even number at the run time level,
-and the run-time processing done by @code{sub}.
+This table shows both the lexical-level processing, where
+an odd number of backslashes becomes an even number at the runtime level,
+as well as the runtime processing done by @code{sub}.
(For the sake of simplicity, the rest of the tables below only show the
-case of even numbers of @samp{\}s entered at the lexical level.)
+case of even numbers of backslashes entered at the lexical level.)
The problem with the historical approach is that there is no way to get
a literal @samp{\} followed by the matched text.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
The 1992 POSIX standard attempted to fix this problem. The standard
says that @code{sub} and @code{gsub} look for either a @samp{\} or an @samp{&}
after the @samp{\}. If either one follows a @samp{\}, that character is
-output literally. The interpretation of @samp{\} and @samp{&} then becomes
-like this:
+output literally. The interpretation of @samp{\} and @samp{&} then becomes:
@c thanks to Karl Berry for formatting this table
@tex
@@ -10255,7 +12051,7 @@ like this:
}
@bigskip}
@end tex
-@ifinfo
+@ifnottex
@display
You type @code{sub} sees @code{sub} generates
-------- ---------- ---------------
@@ -10264,34 +12060,32 @@ like this:
@code{\\\\&} @code{\\&} a literal @samp{\}, then the matched text
@code{\\\\\\&} @code{\\\&} a literal @samp{\&}
@end display
-@end ifinfo
+@end ifnottex
@noindent
-This would appear to solve the problem.
+This appears to solve the problem.
Unfortunately, the phrasing of the standard is unusual. It
says, in effect, that @samp{\} turns off the special meaning of any
-following character, but that for anything other than @samp{\} and @samp{&},
-such special meaning is undefined. This wording leads to two problems.
+following character, but for anything other than @samp{\} and @samp{&},
+such special meaning is undefined. This wording leads to two problems:
-@enumerate
+@itemize @bullet
@item
Backslashes must now be doubled in the @var{replacement} string, breaking
-historical @code{awk} programs.
+historical @command{awk} programs.
@item
-To make sure that an @code{awk} program is portable, @emph{every} character
+To make sure that an @command{awk} program is portable, @emph{every} character
in the @var{replacement} string must be preceded with a
backslash.@footnote{This consequence was certainly unintended.}
@c I can say that, 'cause I was involved in making this change
-@end enumerate
+@end itemize
-The POSIX standard is under revision.@footnote{As of @value{UPDATE-MONTH},
-with final approval and publication as part of the Austin Group
-Standards hopefully sometime in 2001.}
-Because of the above problems, proposed text for the revised standard
+The POSIX standard is under revision.
+Because of the problems just listed, proposed text for the revised standard
reverts to rules that correspond more closely to the original existing
practice. The proposed rules have special cases that make it possible
-to produce a @samp{\} preceding the matched text.
+to produce a @samp{\} preceding the matched text:
@tex
\vbox{\bigskip
@@ -10320,26 +12114,30 @@ to produce a @samp{\} preceding the matched text.
@end display
@end ifinfo
-In a nutshell, at the run-time level, there are now three special sequences
-of characters, @samp{\\\&}, @samp{\\&} and @samp{\&}, whereas historically,
+In a nutshell, at the runtime level, there are now three special sequences
+of characters (@samp{\\\&}, @samp{\\&} and @samp{\&}) whereas historically
there was only one. However, as in the historical case, any @samp{\} that
-is not part of one of these three sequences is not special, and appears
+is not part of one of these three sequences is not special and appears
in the output literally.
-@code{gawk} 3.0 follows these proposed POSIX rules for @code{sub} and
+@command{gawk} 3.0 and 3.1 follow these proposed POSIX rules for @code{sub} and
@code{gsub}.
@c As much as we think it's a lousy idea. You win some, you lose some. Sigh.
Whether these proposed rules will actually become codified into the
-standard is unknown at this point. Subsequent @code{gawk} releases will
+standard is unknown at this point. Subsequent @command{gawk} releases will
track the standard and implement whatever the final version specifies;
-this @value{DOCUMENT} will be updated as well.
-
-The rules for @code{gensub} are considerably simpler. At the run-time
-level, whenever @code{gawk} sees a @samp{\}, if the following character
+this @value{DOCUMENT} will be updated as
+well.@footnote{As this @value{DOCUMENT} was being finalized,
+we learned that the POSIX standard will not use these rules.
+However, it was too late to change @command{gawk} for the 3.1 release.
+@command{gawk} behaves as described here.}
+
+The rules for @code{gensub} are considerably simpler. At the runtime
+level, whenever @command{gawk} sees a @samp{\}, if the following character
is a digit, then the text that matched the corresponding parenthesized
subexpression is placed in the generated output. Otherwise,
-no matter what the character after the @samp{\} is, that character will
-appear in the generated text, and the @samp{\} will not.
+no matter what the character after the @samp{\} is, it
+appears in the generated text and the @samp{\} does not:
@tex
\vbox{\bigskip
@@ -10359,7 +12157,7 @@ appear in the generated text, and the @samp{\} will not.
}
@bigskip}
@end tex
-@ifinfo
+@ifnottex
@display
You type @code{gensub} sees @code{gensub} generates
-------- ------------- ------------------
@@ -10370,73 +12168,110 @@ appear in the generated text, and the @samp{\} will not.
@code{\\\\\\&} @code{\\\&} a literal @samp{\&}
@code{\\q} @code{\q} a literal @samp{q}
@end display
-@end ifinfo
+@end ifnottex
-Because of the complexity of the lexical and run-time level processing,
+Because of the complexity of the lexical and runtime level processing
and the special cases for @code{sub} and @code{gsub},
-we recommend the use of @code{gawk} and @code{gensub} for when you have
+we recommend the use of @command{gawk} and @code{gensub} when you have
to do substitutions.
+@c fakenode --- for prepinfo
+@subheading Advanced Notes: Matching the Null String
+@cindex advanced notes
+@cindex matching, the null string
+
+In @command{awk}, the @samp{*} operator can match the null string.
+This is particularly important for the @code{sub}, @code{gsub},
+and @code{gensub} functions. For example:
+
+@example
+$ echo abc | awk '@{ gsub(/m*/, "X"); print @}'
+@print{} XaXbXcX
+@end example
+
+@noindent
+Although this makes a certain amount of sense, it can be surprising.
+
@node I/O Functions, Time Functions, String Functions, Built-in
-@section Built-in Functions for Input/Output
+@subsection Input/Output Functions
-The following functions are related to Input/Output (I/O).
-Optional parameters are enclosed in square brackets (``['' and ``]'').
+The following functions relate to Input/Output (I/O).
+Optional parameters are enclosed in square brackets ([ and ]):
@table @code
-@item close(@var{filename})
-@findex close
-Close the file @var{filename}, for input or output. The argument may
-alternatively be a shell command that was used for redirecting to or
-from a pipe; then the pipe is closed.
-@xref{Close Files And Pipes, ,Closing Input and Output Files and Pipes},
+@item close(@var{filename} @r{[}, @var{how}@r{]})
+@cindex @code{close} built-in function
+Close the file @var{filename} for input or output. Alternatively, the
+argument may be a shell command that was used for creating a coprocess, or
+for redirecting to or from a pipe; then the coprocess or pipe is closed.
+@xref{Close Files And Pipes, ,Closing Input and Output Redirections},
for more information.
+When closing a coprocess, it is occasionally useful to first close
+one end of the two-way pipe, and then to close the other. This is done
+by providing a second argument to @code{close}. This second argument
+should be one of the two string values @code{"to"} or @code{"from"},
+indicating which end of the pipe to close. Case in the string does
+not matter.
+@xref{Two-way I/O, ,Two-Way Communications with Another Process},
+which discusses this feature in more detail and gives an example.
+
@item fflush(@r{[}@var{filename}@r{]})
-@findex fflush
+@cindex @code{fflush} built-in function
@cindex portability issues
@cindex flushing buffers
@cindex buffers, flushing
@cindex buffering output
@cindex output, buffering
-Flush any buffered output associated @var{filename}, which is either a
-file opened for writing, or a shell command for redirecting output to
-a pipe.
+Flush any buffered output associated with @var{filename}, which is either a
+file opened for writing or a shell command for redirecting output to
+a pipe or coprocess.
-Many utility programs will @dfn{buffer} their output; they save information
-to be written to a disk file or terminal in memory, until there is enough
-for it to be worthwhile to send the data to the ouput device.
+Many utility programs @dfn{buffer} their output; i.e., they save information
+to write to a disk file or terminal in memory, until there is enough
+for it to be worthwhile to send the data to the output device.
This is often more efficient than writing
every little bit of information as soon as it is ready. However, sometimes
it is necessary to force a program to @dfn{flush} its buffers; that is,
write the information to its destination, even if a buffer is not full.
-This is the purpose of the @code{fflush} function; @code{gawk} too
-buffers its output, and the @code{fflush} function can be used to force
-@code{gawk} to flush its buffers.
+This is the purpose of the @code{fflush} function---@command{gawk} also
+buffers its output and the @code{fflush} function forces
+@command{gawk} to flush its buffers.
-@code{fflush} is a recent (1994) addition to the Bell Labs research
-version of @code{awk}; it is not part of the POSIX standard, and will
-not be available if @samp{--posix} has been specified on the command
-line (@pxref{Options, ,Command Line Options}).
+@code{fflush} was added to the Bell Laboratories research
+version of @command{awk} in 1994; it is not part of the POSIX standard and is
+not available if @option{--posix} has been specified on the
+command line (@pxref{Options, ,Command-Line Options}).
-@code{gawk} extends the @code{fflush} function in two ways. The first
+@command{gawk} extends the @code{fflush} function in two ways. The first
is to allow no argument at all. In this case, the buffer for the
-standard output is flushed. The second way is to allow the null string
+standard output is flushed. The second is to allow the null string
(@w{@code{""}}) as the argument. In this case, the buffers for
@emph{all} open output files and pipes are flushed.
-@code{fflush} returns zero if the buffer was successfully flushed,
-and nonzero otherwise.
+@cindex automatic warnings
+@cindex warnings, automatic
+@code{fflush} returns zero if the buffer is successfully flushed;
+otherwise it returns @minus{}1.
+In the case where all buffers are flushed, the return value is zero
+only if all buffers were flushed successfully. Otherwise, it is
+@minus{}1, and @command{gawk} warns about the @var{filename} that had the problem.
+
+@command{gawk} also issues a warning message if you attempt to flush
+a file or pipe that was opened for reading (such as with @code{getline}),
+or if @var{filename} is not an open file, pipe, or coprocess.
+In such a case, @code{fflush} returns @minus{}1 as well.
@item system(@var{command})
-@findex system
-@cindex interaction, @code{awk} and other programs
-The @code{system} function allows the user to execute operating system commands
-and then return to the @code{awk} program. The @code{system} function
-executes the command given by the string @var{command}. It returns, as
-its value, the status returned by the command that was executed.
-
-For example, if the following fragment of code is put in your @code{awk}
+@cindex @code{system} built-in function
+@cindex interaction, @command{awk} and other programs
+The @code{system} function allows the user to execute operating system
+commands and then return to the @command{awk} program. The @code{system}
+function executes the command given by the string @var{command}.
+It returns the status returned by the command that was executed as
+its value.
+
+For example, if the following fragment of code is put in your @command{awk}
program:
@example
@@ -10446,12 +12281,12 @@ END @{
@end example
@noindent
-the system administrator will be sent mail when the @code{awk} program
+the system administrator is sent mail when the @command{awk} program
finishes processing input and begins its end-of-input processing.
Note that redirecting @code{print} or @code{printf} into a pipe is often
enough to accomplish your task. If you need to run many commands, it
-will be more efficient to simply print them to a pipe to the shell:
+is more efficient to simply print them down a pipeline to the shell:
@example
while (@var{more stuff to do})
@@ -10460,34 +12295,34 @@ close("/bin/sh")
@end example
@noindent
-However, if your @code{awk}
+@cindex fatal errors
+However, if your @command{awk}
program is interactive, @code{system} is useful for cranking up large
self-contained programs, such as a shell or an editor.
-
Some operating systems cannot implement the @code{system} function.
@code{system} causes a fatal error if it is not supported.
@end table
@c fakenode --- for prepinfo
-@subheading Interactive vs. Non-Interactive Buffering
+@subheading Advanced Notes: Interactive Versus Non-Interactive Buffering
+@cindex advanced notes
@cindex buffering, interactive vs. non-interactive
@cindex buffering, non-interactive vs. interactive
@cindex interactive buffering vs. non-interactive
@cindex non-interactive buffering vs. interactive
-As a side point, buffering issues can be even more confusing depending
-upon whether or not your program is @dfn{interactive}, i.e., communicating
+As a side point, buffering issues can be even more confusing, depending
+upon whether your program is @dfn{interactive}; i.e., communicating
with a user sitting at a keyboard.@footnote{A program is interactive
if the standard output is connected
to a terminal device.}
-Interactive programs generally @dfn{line buffer} their output; they
-write out every line. Non-interactive programs wait until they have
-a full buffer, which may be many lines of output.
-
@c Thanks to Walter.Mecky@dresdnerbank.de for this example, and for
@c motivating me to write this section.
-Here is an example of the difference.
+Interactive programs generally @dfn{line buffer} their output; i.e., they
+write out every line. Non-interactive programs wait until they have
+a full buffer, which may be many lines of output.
+Here is an example of the difference:
@example
$ awk '@{ print $1 + $2 @}'
@@ -10495,28 +12330,29 @@ $ awk '@{ print $1 + $2 @}'
@print{} 2
2 3
@print{} 5
-@kbd{Control-d}
+@kbd{Ctrl-d}
@end example
@noindent
Each line of output is printed immediately. Compare that behavior
-with this example.
+with this example:
@example
$ awk '@{ print $1 + $2 @}' | cat
1 1
2 3
-@kbd{Control-d}
+@kbd{Ctrl-d}
@print{} 2
@print{} 5
@end example
@noindent
-Here, no output is printed until after the @kbd{Control-d} is typed, since
-it is all buffered, and sent down the pipe to @code{cat} in one shot.
+Here, no output is printed until after the @kbd{Ctrl-d} is typed, because
+it is all buffered and sent down the pipe to @command{cat} in one shot.
@c fakenode --- for prepinfo
-@subheading Controlling Output Buffering with @code{system}
+@subheading Advanced Notes: Controlling Output Buffering with @code{system}
+@cindex advanced notes
@cindex flushing buffers
@cindex buffers, flushing
@cindex buffering output
@@ -10524,21 +12360,21 @@ it is all buffered, and sent down the pipe to @code{cat} in one shot.
The @code{fflush} function provides explicit control over output buffering for
individual files and pipes. However, its use is not portable to many other
-@code{awk} implementations. An alternative method to flush output
-buffers is by calling @code{system} with a null string as its argument:
+@command{awk} implementations. An alternative method to flush output
+buffers is to call @code{system} with a null string as its argument:
@example
system("") # flush output
@end example
@noindent
-@code{gawk} treats this use of the @code{system} function as a special
-case, and is smart enough not to run a shell (or other command
-interpreter) with the empty command. Therefore, with @code{gawk}, this
-idiom is not only useful, it is efficient. While this method should work
-with other @code{awk} implementations, it will not necessarily avoid
+@command{gawk} treats this use of the @code{system} function as a special
+case and is smart enough not to run a shell (or other command
+interpreter) with the empty command. Therefore, with @command{gawk}, this
+idiom is not only useful, it is also efficient. While this method should work
+with other @command{awk} implementations, it does not necessarily avoid
starting an unnecessary shell. (Other implementations may only
-flush the buffer associated with the standard output, and not necessarily
+flush the buffer associated with the standard output and not necessarily
all buffered output.)
If you think about what a programmer expects, it makes sense that
@@ -10553,7 +12389,7 @@ BEGIN @{
@end example
@noindent
-must print
+must print:
@example
first print
@@ -10562,7 +12398,7 @@ second print
@end example
@noindent
-and not
+and not:
@example
system echo
@@ -10570,67 +12406,114 @@ first print
second print
@end example
-If @code{awk} did not flush its buffers before calling @code{system}, the
-latter (undesirable) output is what you would see.
+If @command{awk} did not flush its buffers before calling @code{system}, the
+latter (undesirable) output is what you see.
-@node Time Functions, , I/O Functions, Built-in
-@section Functions for Dealing with Time Stamps
+@node Time Functions, Bitwise Functions, I/O Functions, Built-in
+@subsection Using @command{gawk}'s Timestamp Functions
@cindex timestamps
@cindex time of day
-A common use for @code{awk} programs is the processing of log files
-containing time stamp information, indicating when a
-particular log record was written. Many programs log their time stamp
+A common use for @command{awk} programs is the processing of log files
+containing timestamp information, indicating when a
+particular log record was written. Many programs log their timestamp
in the form returned by the @code{time} system call, which is the
-number of seconds since a particular epoch. On POSIX systems,
-it is the number of seconds since Midnight, January 1, 1970, UTC.
-
-In order to make it easier to process such log files, and to produce
-useful reports, @code{gawk} provides two functions for working with time
-stamps. Both of these are @code{gawk} extensions; they are not specified
-in the POSIX standard, nor are they in any other known version
-of @code{awk}.
-
-Optional parameters are enclosed in square brackets (``['' and ``]'').
+number of seconds since a particular epoch. On POSIX-compliant systems,
+it is the number of seconds since
+1970-01-01 00:00:00 UTC, not counting leap seconds.@footnote{@xref{Glossary},
+especially the entries for ``Epoch'' and ``UTC.''}
+All known POSIX-compliant systems support timestamps from 0 through
+@math{2^31 - 1}, which is sufficient to represent times through
+2038-01-19 03:14:07 UTC. Many systems support a wider range of timestamps,
+including negative timestamps that represent times before the
+epoch.
+
+In order to make it easier to process such log files and to produce
+useful reports, @command{gawk} provides the following functions for
+working with timestamps. They are @command{gawk} extensions; they are
+not specified in the POSIX standard, nor are they in any other known
+version of @command{awk}.@footnote{The GNU @command{date} utility can
+also do many of the things described here. It's use may be preferable
+for simple time-related operations in shell scripts.}
+Optional parameters are enclosed in square brackets ([ and ]):
@table @code
@item systime()
-@findex systime
+@cindex @code{systime} built-in function
This function returns the current time as the number of seconds since
the system epoch. On POSIX systems, this is the number of seconds
-since Midnight, January 1, 1970, UTC. It may be a different number on
+since 1970-01-01 00:00:00 UTC, not counting leap seconds.
+It may be a different number on
other systems.
+@item mktime(@var{datespec})
+@cindex @code{mktime} built-in function
+This function turns @var{datespec} into a timestamp in the same form
+as is returned by @code{systime}. It is similar to the function of the
+same name in ISO C. The argument, @var{datespec}, is a string of the form
+@w{@code{"@var{YYYY} @var{MM} @var{DD} @var{HH} @var{MM} @var{SS} [@var{DST}]"}}.
+The string consists of six or seven numbers representing, respectively,
+the full year including century, the month from 1 to 12, the day of the month
+from 1 to 31, the hour of the day from 0 to 23, the minute from 0 to
+59, the second from 0 to 60,@footnote{Occasionally there are
+minutes in a year with a leap second, which is why the
+seconds can go up to 60.}
+and an optional daylight savings flag.
+
+The values of these numbers need not be within the ranges specified;
+for example, an hour of @minus{}1 means 1 hour before midnight.
+The origin-zero Gregorian calendar is assumed, with year 0 preceding
+year 1 and year @minus{}1 preceding year 0.
+The time is assumed to be in the local timezone.
+If the daylight savings flag is positive, the time is assumed to be
+daylight savings time; if zero, the time is assumed to be standard
+time; and if negative (the default), @code{mktime} attempts to determine
+whether daylight savings time is in effect for the specified time.
+
+If @var{datespec} does not contain enough elements or if the resulting time
+is out of range, @code{mktime} returns @minus{}1.
+
@item strftime(@r{[}@var{format} @r{[}, @var{timestamp}@r{]]})
-@findex strftime
+@cindex @code{strftime} built-in function
This function returns a string. It is similar to the function of the
-same name in ANSI C. The time specified by @var{timestamp} is used to
+same name in ISO C. The time specified by @var{timestamp} is used to
produce a string, based on the contents of the @var{format} string.
The @var{timestamp} is in the same format as the value returned by the
@code{systime} function. If no @var{timestamp} argument is supplied,
-@code{gawk} will use the current time of day as the time stamp.
+@command{gawk} uses the current time of day as the timestamp.
If no @var{format} argument is supplied, @code{strftime} uses
@code{@w{"%a %b %d %H:%M:%S %Z %Y"}}. This format string produces
-output (almost) equivalent to that of the @code{date} utility.
-(Versions of @code{gawk} prior to 3.0 require the @var{format} argument.)
+output that is (almost) equivalent to that of the @command{date} utility.
+(Versions of @command{gawk} prior to 3.0 require the @var{format} argument.)
@end table
-The @code{systime} function allows you to compare a time stamp from a
+The @code{systime} function allows you to compare a timestamp from a
log file with the current time of day. In particular, it is easy to
determine how long ago a particular record was logged. It also allows
you to produce log records using the ``seconds since the epoch'' format.
-The @code{strftime} function allows you to easily turn a time stamp
+@cindex converting dates to timestamps
+@cindex dates, converting to timestamps
+@cindex timestamps, converting from dates
+The @code{mktime} function allows you to convert a textual representation
+of a date and time into a timestamp. This makes it easy to do before/after
+comparisons of dates and times, particularly when dealing with date and
+time data coming from an external source, such as a log file.
+
+The @code{strftime} function allows you to easily turn a timestamp
into human-readable information. It is similar in nature to the @code{sprintf}
function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}),
+(@pxref{String Functions, ,String Manipulation Functions}),
in that it copies non-format specification characters verbatim to the
returned string, while substituting date and time values for format
specifications in the @var{format} string.
-@code{strftime} is guaranteed by the ANSI C standard to support
-the following date format specifications:
+@code{strftime} is guaranteed by the 1999 ISO C standard@footnote{As this
+is a recent standard, not every system's @code{strftime} necessarily
+supports all of the conversions listed here.}
+to support the following date format specifications:
+@cindex format specifier, @code{strftime}
@table @code
@item %a
The locale's abbreviated weekday name.
@@ -10646,10 +12529,38 @@ The locale's full month name.
@item %c
The locale's ``appropriate'' date and time representation.
+(This is @samp{%A %B %d %T %Y} in the @code{"C"} locale.)
+
+@item %C
+The century. This is the year divided by 100 and truncated to the next
+lower integer.
@item %d
The day of the month as a decimal number (01--31).
+@item %D
+Equivalent to specifying @samp{%m/%d/%y}.
+
+@item %e
+The day of the month, padded with a space if it is only one digit.
+
+@item %F
+Equivalent to specifying @samp{%Y-%m-%d}.
+This is the ISO 8601 date format.
+
+@item %g
+The year modulo 100 of the ISO week number, as a decimal number (00--99).
+For example, January 1, 1993, is in week 53 of 1992. Thus, the year
+of its ISO week number is 1992, even though its year is 1993.
+Similarly, December 31, 1973, is in week 1 of 1974. Thus, the year
+of its ISO week number is 1974, even though its year is 1973.
+
+@item %G
+The full year of the ISO week number, as a decimal number.
+
+@item %h
+Equivalent to @samp{%b}.
+
@item %H
The hour (24-hour clock) as a decimal number (00--23).
@@ -10665,19 +12576,45 @@ The month as a decimal number (01--12).
@item %M
The minute as a decimal number (00--59).
+@item %n
+A newline character (ASCII LF).
+
@item %p
The locale's equivalent of the AM/PM designations associated
with a 12-hour clock.
+@item %r
+The locale's 12-hour clock time.
+(This is @samp{%I:%M:%S %p} in the @code{"C"} locale.)
+
+@item %R
+Equivalent to specifying @samp{%H:%M}.
+
@item %S
-The second as a decimal number (00--60).@footnote{Occasionally there are
-minutes in a year with a leap second, which is why the
-seconds can go up to 60.}
+The second as a decimal number (00--60).
+
+@item %t
+A tab character.
+
+@item %T
+Equivalent to specifying @samp{%H:%M:%S}.
+
+@item %u
+The weekday as a decimal number (1--7). Monday is day one.
@item %U
The week number of the year (the first Sunday as the first day of week one)
as a decimal number (00--53).
+@cindex ISO 8601
+@item %V
+The week number of the year (the first Monday as the first
+day of week one) as a decimal number (01--53).
+The method for determining the week number is as specified by ISO 8601.
+(To wit: if the week containing January 1 has four or more days in the
+new year, then it is week one, otherwise it is week 53 of the previous year
+and the next week is week one.)
+
@item %w
The weekday as a decimal number (0--6). Sunday is day zero.
@@ -10687,165 +12624,129 @@ as a decimal number (00--53).
@item %x
The locale's ``appropriate'' date representation.
+(This is @samp{%A %B %d %Y} in the @code{"C"} locale.)
@item %X
The locale's ``appropriate'' time representation.
+(This is @samp{%T} in the @code{"C"} locale.)
@item %y
-The year without century as a decimal number (00--99).
+The year modulo 100 as a decimal number (00--99).
@item %Y
-The year with century as a decimal number (e.g., 1995).
+The full year as a decimal number (e.g., 1995).
+
+@cindex RFC 822
+@cindex RFC 1036
+@item %z
+The timezone offset in a +HHMM format (e.g., the format necessary to
+produce RFC 822/RFC 1036 date headers).
@item %Z
-The time zone name or abbreviation, or no characters if
+The time zone name or abbreviation; no characters if
no time zone is determinable.
+@item %Ec %EC %Ex %EX %Ey %EY %Od %Oe %OH
+@itemx %OI %Om %OM %OS %Ou %OU %OV %Ow %OW %Oy
+These are ``alternate representations'' for the specifications
+that use only the second letter (@samp{%c}, @samp{%C},
+and so on).@footnote{If you don't understand any of this, don't worry about
+it; these facilities are meant to make it easier to ``internationalize''
+programs.
+Other internationalization features are described in
+@ref{Internationalization, ,Internationalization with @command{gawk}}.}
+(These facilitate compliance with the POSIX @command{date} utility.)
+
@item %%
A literal @samp{%}.
@end table
If a conversion specifier is not one of the above, the behavior is
-undefined.@footnote{This is because ANSI C leaves the
-behavior of the C version of @code{strftime} undefined, and @code{gawk}
-will use the system's version of @code{strftime} if it's there.
-Typically, the conversion specifier will either not appear in the
-returned string, or it will appear literally.}
+undefined.@footnote{This is because ISO C leaves the
+behavior of the C version of @code{strftime} undefined and @command{gawk}
+uses the system's version of @code{strftime} if it's there.
+Typically, the conversion specifier either does not appear in the
+returned string or it appears literally.}
@cindex locale, definition of
Informally, a @dfn{locale} is the geographic place in which a program
is meant to run. For example, a common way to abbreviate the date
-September 4, 1991 in the United States would be ``9/4/91''.
-In many countries in Europe, however, it would be abbreviated ``4.9.91''.
+September 4, 1991 in the United States is ``9/4/91.''
+In many countries in Europe, however, it is abbreviated ``4.9.91.''
Thus, the @samp{%x} specification in a @code{"US"} locale might produce
@samp{9/4/91}, while in a @code{"EUROPE"} locale, it might produce
-@samp{4.9.91}. The ANSI C standard defines a default @code{"C"}
+@samp{4.9.91}. The ISO C standard defines a default @code{"C"}
locale, which is an environment that is typical of what most C programmers
are used to.
-A public-domain C version of @code{strftime} is supplied with @code{gawk}
-for systems that are not yet fully ANSI-compliant. If that version is
-used to compile @code{gawk} (@pxref{Installation, ,Installing @code{gawk}}),
+A public-domain C version of @code{strftime} is supplied with @command{gawk}
+for systems that are not yet fully standards-compliant.
+It supports all of the just listed format specifications.
+If that version is
+used to compile @command{gawk} (@pxref{Installation, ,Installing @command{gawk}}),
then the following additional format specifications are available:
@table @code
-@item %D
-Equivalent to specifying @samp{%m/%d/%y}.
-
-@item %e
-The day of the month, padded with a space if it is only one digit.
-
-@item %h
-Equivalent to @samp{%b}, above.
-
-@item %n
-A newline character (ASCII LF).
-
-@item %r
-Equivalent to specifying @samp{%I:%M:%S %p}.
-
-@item %R
-Equivalent to specifying @samp{%H:%M}.
-
-@item %T
-Equivalent to specifying @samp{%H:%M:%S}.
-
-@item %t
-A tab character.
-
@item %k
-The hour (24-hour clock) as a decimal number (0-23).
+The hour (24-hour clock) as a decimal number (0--23).
Single digit numbers are padded with a space.
@item %l
-The hour (12-hour clock) as a decimal number (1-12).
+The hour (12-hour clock) as a decimal number (1--12).
Single digit numbers are padded with a space.
-@item %C
-The century, as a number between 00 and 99.
-
-@item %u
-The weekday as a decimal number
-[1 (Monday)--7].
-
-@cindex ISO 8601
-@item %V
-The week number of the year (the first Monday as the first
-day of week one) as a decimal number (01--53).
-The method for determining the week number is as specified by ISO 8601
-(to wit: if the week containing January 1 has four or more days in the
-new year, then it is week one, otherwise it is week 53 of the previous year
-and the next week is week one).
-
-@item %G
-The year with century of the ISO week number, as a decimal number.
-
-For example, January 1, 1993, is in week 53 of 1992. Thus, the year
-of its ISO week number is 1992, even though its year is 1993.
-Similarly, December 31, 1973, is in week 1 of 1974. Thus, the year
-of its ISO week number is 1974, even though its year is 1973.
+@item %N
+The ``Emperor/Era'' name.
+Equivalent to @code{%C}.
-@item %g
-The year without century of the ISO week number, as a decimal number (00--99).
+@item %o
+The ``Emperor/Era'' year.
+Equivalent to @code{%y}.
-@item %Ec %EC %Ex %Ey %EY %Od %Oe %OH %OI
-@itemx %Om %OM %OS %Ou %OU %OV %Ow %OW %Oy
-These are ``alternate representations'' for the specifications
-that use only the second letter (@samp{%c}, @samp{%C}, and so on).
-They are recognized, but their normal representations are
-used.@footnote{If you don't understand any of this, don't worry about
-it; these facilities are meant to make it easier to ``internationalize''
-programs.}
-(These facilitate compliance with the POSIX @code{date} utility.)
+@item %s
+The time as a decimal timestamp in seconds since the epoch.
@item %v
-The date in VMS format (e.g., 20-JUN-1991).
-
-@cindex RFC-822
-@cindex RFC-1036
-@item %z
-The timezone offset in a +HHMM format (e.g., the format necessary to
-produce RFC-822/RFC-1036 date headers).
+The date in VMS format (e.g., @samp{20-JUN-1991}).
@end table
-This example is an @code{awk} implementation of the POSIX
-@code{date} utility. Normally, the @code{date} utility prints the
-current date and time of day in a well known format. However, if you
-provide an argument to it that begins with a @samp{+}, @code{date}
-will copy non-format specifier characters to the standard output, and
-will interpret the current time according to the format specifiers in
+Additionally, the alternate representations are recognized but their
+normal representations are used.
+
+This example is an @command{awk} implementation of the POSIX
+@command{date} utility. Normally, the @command{date} utility prints the
+current date and time of day in a well-known format. However, if you
+provide an argument to it that begins with a @samp{+}, @command{date}
+copies non-format specifier characters to the standard output and
+interprets the current time according to the format specifiers in
the string. For example:
@example
$ date '+Today is %A, %B %d, %Y.'
-@print{} Today is Thursday, July 11, 1991.
+@print{} Today is Thursday, September 14, 2000.
@end example
-Here is the @code{gawk} version of the @code{date} utility.
-It has a shell ``wrapper'', to handle the @samp{-u} option,
-which requires that @code{date} run as if the time zone
-was set to UTC.
+Here is the @command{gawk} version of the @command{date} utility.
+It has a shell ``wrapper'' to handle the @option{-u} option,
+which requires that @command{date} run as if the time zone
+is set to UTC:
@example
-@group
#! /bin/sh
#
# date --- approximate the P1003.2 'date' command
case $1 in
--u) TZ=GMT0 # use UTC
+-u) TZ=UTC0 # use UTC
export TZ
shift ;;
esac
-@end group
-@group
+@c FIXME: One day, change %d to %e, when C 99 is common.
gawk 'BEGIN @{
format = "%a %b %d %H:%M:%S %Z %Y"
exitval = 0
-@end group
-@group
if (ARGC > 2)
exitval = 1
else if (ARGC == 2) @{
@@ -10856,18 +12757,291 @@ gawk 'BEGIN @{
print strftime(format)
exit exitval
@}' "$@@"
-@end group
@end example
-@node User-defined, Invoking Gawk, Built-in, Top
-@chapter User-defined Functions
+@node Bitwise Functions, I18N Functions, Time Functions, Built-in
+@subsection Using @command{gawk}'s Bit Manipulation Functions
+@cindex bitwise operations
+@quotation
+@i{I can explain it for you, but I can't understand it for you.}@*
+Anonymous
+@end quotation
+
+@cindex AND bitwise operation
+@cindex OR bitwise operation
+@cindex XOR bitwise operation
+Many languages provide the ability to perform @dfn{bitwise} operations
+on two integer numbers. In other words, the operation is performed on
+each successive pair of bits in the operands.
+Three common operations are bitwise AND, OR, and XOR.
+The operations are described by the following table:
+
+@ifnottex
+@display
+ Bit Operator
+ | AND | OR | XOR
+ |---+---+---+---+---+---
+Operands | 0 | 1 | 0 | 1 | 0 | 1
+----------+---+---+---+---+---+---
+ 0 | 0 0 | 0 1 | 0 1
+ 1 | 0 1 | 1 1 | 1 0
+@end display
+@end ifnottex
+@tex
+\centerline{
+\vbox{\bigskip % space above the table (about 1 linespace)
+% Because we have vertical rules, we can't let TeX insert interline space
+% in its usual way.
+\offinterlineskip
+\halign{\strut\hfil#\quad\hfil % operands
+ &\vrule#&\quad#\quad % rule, 0 (of and)
+ &\vrule#&\quad#\quad % rule, 1 (of and)
+ &\vrule# % rule between and and or
+ &\quad#\quad % 0 (of or)
+ &\vrule#&\quad#\quad % rule, 1 (of of)
+ &\vrule# % rule between or and xor
+ &\quad#\quad % 0 of xor
+ &\vrule#&\quad#\quad % rule, 1 of xor
+ \cr
+&\omit&\multispan{11}\hfil\bf Bit operator\hfil\cr
+\noalign{\smallskip}
+& &\multispan3\hfil AND\hfil&&\multispan3\hfil OR\hfil
+ &&\multispan3\hfil XOR\hfil\cr
+\bf Operands&&0&&1&&0&&1&&0&&1\cr
+\noalign{\hrule}
+\omit&height 2pt&&\omit&&&&\omit&&&&\omit\cr
+\noalign{\hrule height0pt}% without this the rule does not extend; why?
+0&&0&\omit&0&&0&\omit&1&&0&\omit&1\cr
+1&&0&\omit&1&&1&\omit&1&&1&\omit&0\cr
+}}}
+@end tex
+
+@cindex bitwise complement
+@cindex complement, bitwise
+As you can see, the result of an AND operation is 1 only when @emph{both}
+bits are 1.
+The result of an OR operation is 1 if @emph{either} bit is 1.
+The result of an XOR operation is 1 if either bit is 1,
+but not both.
+The next operation is the @dfn{complement}; the complement of 1 is 0 and
+the complement of 0 is 1. Thus, this operation ``flips'' all the bits
+of a given value.
+
+@cindex bitwise shift
+@cindex left shift, bitwise
+@cindex right shift, bitwise
+@cindex shift, bitwise
+Finally, two other common operations are to shift the bits left or right.
+For example, if you have a bit string @samp{10111001} and you shift it
+right by three bits, you end up with @samp{00010111}.@footnote{This example
+shows that 0's come in on the left side. For @command{gawk}, this is
+always true, but in some languages, it's possible to have the left side
+fill with 1's. Caveat emptor.}
+@c Purposely decided to use 0's and 1's here. 2/2001.
+If you start over
+again with @samp{10111001} and shift it left by three bits, you end up
+with @samp{11001000}.
+@command{gawk} provides built-in functions that implement the
+bitwise operations just described. They are:
+
+@ignore
+@table @code
+@cindex @code{and} built-in function
+@item and(@var{v1}, @var{v2})
+Return the bitwise AND of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{or} built-in function
+@item or(@var{v1}, @var{v2})
+Return the bitwise OR of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{xor} built-in function
+@item xor(@var{v1}, @var{v2})
+Return the bitwise XOR of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{compl} built-in function
+@item compl(@var{val})
+Return the bitwise complement of @var{val}.
+
+@cindex @code{lshift} built-in function
+@item lshift(@var{val}, @var{count})
+Return the value of @var{val}, shifted left by @var{count} bits.
+
+@cindex @code{rshift} built-in function
+@item rshift(@var{val}, @var{count})
+Return the value of @var{val}, shifted right by @var{count} bits.
+@end table
+@end ignore
+
+@multitable {@code{rshift(@var{val}, @var{count})}} {Return the value of @var{val}, shifted right by @var{count} bits.}
+@cindex @code{and} built-in function
+@item @code{and(@var{v1}, @var{v2})}
+@tab Return the bitwise AND of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{or} built-in function
+@item @code{or(@var{v1}, @var{v2})}
+@tab Return the bitwise OR of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{xor} built-in function
+@item @code{xor(@var{v1}, @var{v2})}
+@tab Return the bitwise XOR of the values provided by @var{v1} and @var{v2}.
+
+@cindex @code{compl} built-in function
+@item @code{compl(@var{val})}
+@tab Return the bitwise complement of @var{val}.
+
+@cindex @code{lshift} built-in function
+@item @code{lshift(@var{val}, @var{count})}
+@tab Return the value of @var{val}, shifted left by @var{count} bits.
+
+@cindex @code{rshift} built-in function
+@item @code{rshift(@var{val}, @var{count})}
+@tab Return the value of @var{val}, shifted right by @var{count} bits.
+@end multitable
+
+For all of these functions, first the double-precision floating-point value is
+converted to a C @code{unsigned long}, then the bitwise operation is
+performed and then the result is converted back into a C @code{double}. (If
+you don't understand this paragraph, don't worry about it.)
+
+Here is a user-defined function
+(@pxref{User-defined, ,User-Defined Functions})
+that illustrates the use of these functions:
+
+@cindex @code{bits2str} user-defined function
+@cindex @code{testbits.awk} program
+@smallexample
+@group
+@c file eg/lib/bits2str.awk
+# bits2str --- turn a byte into readable 1's and 0's
+
+function bits2str(bits, data, mask)
+@{
+ if (bits == 0)
+ return "0"
+
+ mask = 1
+ for (; bits != 0; bits = rshift(bits, 1))
+ data = (and(bits, mask) ? "1" : "0") data
+
+ while ((length(data) % 8) != 0)
+ data = "0" data
+
+ return data
+@}
+@c endfile
+@end group
+
+@c this is a hack to make testbits.awk self-contained
+@ignore
+@c file eg/prog/testbits.awk
+# bits2str --- turn a byte into readable 1's and 0's
+
+function bits2str(bits, data, mask)
+@{
+ if (bits == 0)
+ return "0"
+
+ mask = 1
+ for (; bits != 0; bits = rshift(bits, 1))
+ data = (and(bits, mask) ? "1" : "0") data
+
+ while ((length(data) % 8) != 0)
+ data = "0" data
+
+ return data
+@}
+@c endfile
+@end ignore
+@c file eg/prog/testbits.awk
+BEGIN @{
+ printf "123 = %s\n", bits2str(123)
+ printf "0123 = %s\n", bits2str(0123)
+ printf "0x99 = %s\n", bits2str(0x99)
+ comp = compl(0x99)
+ printf "compl(0x99) = %#x = %s\n", comp, bits2str(comp)
+ shift = lshift(0x99, 2)
+ printf "lshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+ shift = rshift(0x99, 2)
+ printf "rshift(0x99, 2) = %#x = %s\n", shift, bits2str(shift)
+@}
+@c endfile
+@end smallexample
+
+@noindent
+This program produces the following output when run:
+
+@smallexample
+$ gawk -f testbits.awk
+@print{} 123 = 01111011
+@print{} 0123 = 01010011
+@print{} 0x99 = 10011001
+@print{} compl(0x99) = 0xffffff66 = 11111111111111111111111101100110
+@print{} lshift(0x99, 2) = 0x264 = 0000001001100100
+@print{} rshift(0x99, 2) = 0x26 = 00100110
+@end smallexample
+
+The @code{bits2str} function turns a binary number into a string.
+The number @code{1} represents a binary value where the rightmost bit
+is set to 1. Using this mask,
+the function repeatedly checks the rightmost bit.
+AND-ing the mask with the value indicates whether the
+rightmost bit is 1 or not. If so, a @code{"1"} is concatenated onto the front
+of the string.
+Otherwise, a @code{"0"} is added.
+The value is then shifted right by one bit and the loop continues
+until there are no more 1 bits.
+
+If the initial value is zero it returns a simple @code{"0"}.
+Otherwise, at the end, it pads the value with zeros to represent multiples
+of eight-bit quantities. This is typical in modern computers.
+
+The main code in the @code{BEGIN} rule shows the difference between the
+decimal and octal values for the same numbers
+(@pxref{Non-decimal-numbers, ,Octal and Hexadecimal Numbers}),
+and then demonstrates the
+results of the @code{compl}, @code{lshift}, and @code{rshift} functions.
+
+@node I18N Functions, , Bitwise Functions, Built-in
+@subsection Using @command{gawk}'s String Translation Functions
+
+@command{gawk} provides facilities for internationalizing @command{awk} programs.
+These include the functions described in the following list.
+The description here is purposely brief.
+@xref{Internationalization, ,Internationalization with @command{gawk}},
+for the full story.
+Optional parameters are enclosed in square brackets ([ and ]):
+
+@table @code
+@cindex @code{dcgettext} built-in function
+@item dcgettext(@var{string} @r{[}, @var{domain} @r{[}, @var{category}@r{]]})
+This function returns the translation of @var{string} in
+text domain @var{domain} for locale category @var{category}.
+The default value for @var{domain} is the current value of @code{TEXTDOMAIN}.
+The default value for @var{category} is @code{"LC_MESSAGES"}.
+
+@cindex @code{bindtextdomain} built-in function
+@item bindtextdomain(@var{directory} @r{[}, @var{domain}@r{]})
+This function allows you to specify the directory where
+@command{gawk} will look for message translation files, in case they
+will not or cannot be placed in the ``standard'' locations
+(e.g., during testing).
+It returns the directory where @var{domain} is ``bound.''
+
+The default @var{domain} is the value of @code{TEXTDOMAIN}.
+If @var{directory} is the null string (@code{""}), then
+@code{bindtextdomain} returns the current binding for the
+given @var{domain}.
+@end table
+
+@node User-defined, , Built-in, Functions
+@section User-Defined Functions
@cindex user-defined functions
-@cindex functions, user-defined
-Complicated @code{awk} programs can often be simplified by defining
+@cindex function, user-defined
+Complicated @command{awk} programs can often be simplified by defining
your own functions. User-defined functions can be called just like
built-in ones (@pxref{Function Calls}), but it is up to you to define
-them---to tell @code{awk} what they should do.
+them; i.e., to tell @command{awk} what they should do.
@menu
* Definition Syntax:: How to write definitions and what they mean.
@@ -10875,22 +13049,24 @@ them---to tell @code{awk} what they should do.
does.
* Function Caveats:: Things to watch out for.
* Return Statement:: Specifying the value a function returns.
+* Dynamic Typing:: How variable types can change at runtime.
@end menu
@node Definition Syntax, Function Example, User-defined, User-defined
-@section Function Definition Syntax
+@subsection Function Definition Syntax
@cindex defining functions
@cindex function definition
Definitions of functions can appear anywhere between the rules of an
-@code{awk} program. Thus, the general form of an @code{awk} program is
+@command{awk} program. Thus, the general form of an @command{awk} program is
extended to include sequences of rules @emph{and} user-defined function
definitions.
-There is no need in @code{awk} to put the definition of a function
-before all uses of the function. This is because @code{awk} reads the
+There is no need to put the definition of a function
+before all uses of the function. This is because @command{awk} reads the
entire program before starting to execute any of it.
The definition of a function named @var{name} looks like this:
+@c NEXT ED: put [ ] around parameter list
@example
function @var{name}(@var{parameter-list})
@@ -10900,31 +13076,33 @@ function @var{name}(@var{parameter-list})
@end example
@cindex names, use of
-@cindex namespaces
+@cindex namespace issues in @command{awk}
@noindent
-@var{name} is the name of the function to be defined. A valid function
-name is like a valid variable name: a sequence of letters, digits and
-underscores, not starting with a digit.
-Within a single @code{awk} program, any particular name can only be
-used as a variable, array or function.
+@var{name} is the name of the function to define. A valid function
+name is like a valid variable name: a sequence of letters, digits, and
+underscores, that doesn't start with a digit.
+Within a single @command{awk} program, any particular name can only be
+used as a variable, array, or function.
+@c NEXT ED: parameter-list is an OPTIONAL list of ...
@var{parameter-list} is a list of the function's arguments and local
variable names, separated by commas. When the function is called,
the argument names are used to hold the argument values given in
the call. The local variables are initialized to the empty string.
-A function cannot have two parameters with the same name.
+A function cannot have two parameters with the same name, nor may it
+have a parameter with the same name as the function itself.
-The @var{body-of-function} consists of @code{awk} statements. It is the
+The @var{body-of-function} consists of @command{awk} statements. It is the
most important part of the definition, because it says what the function
should actually @emph{do}. The argument names exist to give the body a
-way to talk about the arguments; local variables, to give the body
+way to talk about the arguments; local variables exist to give the body
places to keep temporary values.
Argument names are not distinguished syntactically from local variable
-names; instead, the number of arguments supplied when the function is
+names. Instead, the number of arguments supplied when the function is
called determines how many argument variables there are. Thus, if three
argument values are given, the first three names in @var{parameter-list}
-are arguments, and the rest are local variables.
+are arguments and the rest are local variables.
It follows that if the number of arguments is not the same in all calls
to the function, some of the names in @var{parameter-list} may be
@@ -10932,10 +13110,12 @@ arguments on some occasions and local variables on others. Another
way to think of this is that omitted arguments default to the
null string.
-Usually when you write a function you know how many names you intend to
+@cindex conventions, programming
+@cindex programming conventions
+Usually when you write a function, you know how many names you intend to
use for arguments and how many you intend to use as local variables. It is
conventional to place some extra space between the arguments and
-the local variables, to document how your function is supposed to be used.
+the local variables, in order to document how your function is supposed to be used.
@cindex variable shadowing
During execution of the function body, the arguments and local variable
@@ -10943,7 +13123,7 @@ values hide or @dfn{shadow} any variables of the same names used in the
rest of the program. The shadowed variables are not accessible in the
function definition, because there is no way to name them while their
names have been taken away for the local variables. All other variables
-used in the @code{awk} program can be referenced or set normally in the
+used in the @command{awk} program can be referenced or set normally in the
function's body.
The arguments and local variables last only as long as the function body
@@ -10952,19 +13132,20 @@ variables that were shadowed while the function was running.
@cindex recursive function
@cindex function, recursive
-The function body can contain expressions which call functions. They
+The function body can contain expressions that call functions. They
can even call this function, either directly or by way of another
function. When this happens, we say the function is @dfn{recursive}.
+The act of a function calling itself is called @dfn{recursion}.
-@cindex @code{awk} language, POSIX version
-@cindex POSIX @code{awk}
-In many @code{awk} implementations, including @code{gawk},
+@cindex @command{awk} language, POSIX version
+@cindex POSIX @command{awk}
+In many @command{awk} implementations, including @command{gawk},
the keyword @code{function} may be
abbreviated @code{func}. However, POSIX only specifies the use of
the keyword @code{function}. This actually has some practical implications.
-If @code{gawk} is in POSIX-compatibility mode
-(@pxref{Options, ,Command Line Options}), then the following
-statement will @emph{not} define a function:
+If @command{gawk} is in POSIX-compatibility mode
+(@pxref{Options, ,Command-Line Options}), then the following
+statement does @emph{not} define a function:
@example
func foo() @{ a = sqrt($1) ; print a @}
@@ -10974,19 +13155,20 @@ func foo() @{ a = sqrt($1) ; print a @}
Instead it defines a rule that, for each record, concatenates the value
of the variable @samp{func} with the return value of the function @samp{foo}.
If the resulting string is non-null, the action is executed.
-This is probably not what was desired. (@code{awk} accepts this input as
-syntactically valid, since functions may be used before they are defined
-in @code{awk} programs.)
+This is probably not what is desired. (@command{awk} accepts this input as
+syntactically valid, because functions may be used before they are defined
+in @command{awk} programs.)
+@c NEXT ED: This won't actually run, since foo() is undefined ...
@cindex portability issues
-To ensure that your @code{awk} programs are portable, always use the
+To ensure that your @command{awk} programs are portable, always use the
keyword @code{function} when defining a function.
@node Function Example, Function Caveats, Definition Syntax, User-defined
-@section Function Definition Examples
+@subsection Function Definition Examples
Here is an example of a user-defined function, called @code{myprint}, that
-takes a number and prints it in a specific format.
+takes a number and prints it in a specific format:
@example
function myprint(num)
@@ -10996,7 +13178,7 @@ function myprint(num)
@end example
@noindent
-To illustrate, here is an @code{awk} rule which uses our @code{myprint}
+To illustrate, here is an @command{awk} rule that uses our @code{myprint}
function:
@example
@@ -11005,14 +13187,12 @@ $3 > 0 @{ myprint($3) @}
@noindent
This program prints, in our special format, all the third fields that
-contain a positive number in our input. Therefore, when given:
+contain a positive number in our input. Therefore, when given the following:
@example
-@group
1.2 3.4 5.6 7.8
9.10 11.12 -13.14 15.16
17.18 19.20 21.22 23.24
-@end group
@end example
@noindent
@@ -11023,7 +13203,8 @@ this program, using our function to format the results, prints:
21.2
@end example
-This function deletes all the elements in an array.
+@page
+This function deletes all the elements in an array:
@example
function delarray(a, i)
@@ -11037,13 +13218,16 @@ When working with arrays, it is often necessary to delete all the elements
in an array and start over with a new list of elements
(@pxref{Delete, ,The @code{delete} Statement}).
Instead of having
-to repeat this loop everywhere in your program that you need to clear out
+to repeat this loop everywhere that you need to clear out
an array, your program can just call @code{delarray}.
-(This guarantees portability. The usage @samp{delete @var{array}} to delete
+(This guarantees portability. The use of @samp{delete @var{array}} to delete
the contents of an entire array is a non-standard extension.)
-Here is an example of a recursive function. It takes a string
-as an input parameter, and returns the string in backwards order.
+The following is an example of a recursive function. It takes a string
+as an input parameter and returns the string in backwards order.
+Recursive functions must always have a test that stops the recursion.
+In this case, the recursion terminates when the starting position
+is zero; i.e., when there are no more characters left in the string.
@example
function rev(str, start)
@@ -11055,7 +13239,7 @@ function rev(str, start)
@}
@end example
-If this function is in a file named @file{rev.awk}, we can test it
+If this function is in a file named @file{rev.awk}, it can be tested
this way:
@example
@@ -11064,19 +13248,19 @@ $ echo "Don't Panic!" |
@print{} !cinaP t'noD
@end example
-Here is an example that uses the built-in function @code{strftime}.
-(@xref{Time Functions, ,Functions for Dealing with Time Stamps},
-for more information on @code{strftime}.)
The C @code{ctime} function takes a timestamp and returns it in a string,
-formatted in a well known fashion. Here is an @code{awk} version:
+formatted in a well-known fashion.
+The following example uses the built-in @code{strftime} function
+(@pxref{Time Functions, ,Using @command{gawk}'s Timestamp Functions})
+to create an @command{awk} version of @code{ctime}:
+@c FIXME: One day, change %d to %e, when C 99 is common.
@example
@c file eg/lib/ctime.awk
# ctime.awk
#
# awk version of C ctime(3) function
-@group
function ctime(ts, format)
@{
format = "%a %b %d %H:%M:%S %Z %Y"
@@ -11085,23 +13269,20 @@ function ctime(ts, format)
return strftime(format, ts)
@}
@c endfile
-@end group
@end example
@node Function Caveats, Return Statement, Function Example, User-defined
-@section Calling User-defined Functions
+@subsection Calling User-Defined Functions
-@cindex call by value
-@cindex call by reference
@cindex calling a function
@cindex function call
@dfn{Calling a function} means causing the function to run and do its job.
-A function call is an expression, and its value is the value returned by
+A function call is an expression and its value is the value returned by
the function.
A function call consists of the function name followed by the arguments
-in parentheses. What you write in the call for the arguments are
-@code{awk} expressions; each time the call is executed, these
+in parentheses. @command{awk} expressions are what you write in the
+call for the arguments. Each time the call is executed, these
expressions are evaluated, and the values are the actual arguments. For
example, here is a call to @code{foo} with three arguments (the first
being a string concatenation):
@@ -11110,9 +13291,9 @@ being a string concatenation):
foo(x y, "lose", 4 * z)
@end example
-@strong{Caution:} whitespace characters (spaces and tabs) are not allowed
+@strong{Caution:} Whitespace characters (spaces and tabs) are not allowed
between the function name and the open-parenthesis of the argument list.
-If you write whitespace by mistake, @code{awk} might think that you mean
+If you write whitespace by mistake, @command{awk} might think that you mean
to concatenate a variable with an expression in parentheses. However, it
notices that you used a function name and not a variable name, and reports
an error.
@@ -11121,8 +13302,8 @@ an error.
When a function is called, it is given a @emph{copy} of the values of
its arguments. This is known as @dfn{call by value}. The caller may use
a variable as the expression for the argument, but the called function
-does not know this: it only knows what value the argument had. For
-example, if you write this code:
+does not know this---it only knows what value the argument had. For
+example, if you write the following code:
@example
foo = "bar"
@@ -11132,27 +13313,24 @@ z = myfunc(foo)
@noindent
then you should not think of the argument to @code{myfunc} as being
``the variable @code{foo}.'' Instead, think of the argument as the
-string value, @code{"bar"}.
-
+string value @code{"bar"}.
If the function @code{myfunc} alters the values of its local variables,
this has no effect on any other variables. Thus, if @code{myfunc}
does this:
@example
-@group
function myfunc(str)
@{
print str
str = "zzz"
print str
@}
-@end group
@end example
@noindent
-to change its first argument variable @code{str}, this @emph{does not}
+to change its first argument variable @code{str}, it @emph{does not}
change the value of @code{foo} in the caller. The role of @code{foo} in
-calling @code{myfunc} ended when its value, @code{"bar"}, was computed.
+calling @code{myfunc} ended when its value (@code{"bar"}) was computed.
If @code{str} also exists outside of @code{myfunc}, the function body
cannot alter this outer value, because it is shadowed during the
execution of @code{myfunc} and cannot be seen or changed from there.
@@ -11162,23 +13340,17 @@ However, when arrays are the parameters to functions, they are @emph{not}
copied. Instead, the array itself is made available for direct manipulation
by the function. This is usually called @dfn{call by reference}.
Changes made to an array parameter inside the body of a function @emph{are}
-visible outside that function.
-@ifinfo
-This can be @strong{very} dangerous if you do not watch what you are
-doing. For example:
-@end ifinfo
-@iftex
-@emph{This can be very dangerous if you do not watch what you are
-doing.} For example:
-@end iftex
+visible outside that function.
+
+@strong{Note:} Changing an array parameter inside a function
+can be very dangerous if you do not watch what you are doing.
+For example:
@example
-@group
function changeit(array, ind, nvalue)
@{
array[ind] = nvalue
@}
-@end group
BEGIN @{
a[1] = 1; a[2] = 2; a[3] = 3
@@ -11194,12 +13366,11 @@ This program prints @samp{a[1] = 1, a[2] = two, a[3] = 3}, because
@cindex undefined functions
@cindex functions, undefined
-Some @code{awk} implementations allow you to call a function that
-has not been defined, and only report a problem at run-time when the
+Some @command{awk} implementations allow you to call a function that
+has not been defined. They only report a problem at runtime when the
program actually tries to call the function. For example:
@example
-@group
BEGIN @{
if (0)
foo()
@@ -11208,36 +13379,32 @@ BEGIN @{
@}
function bar() @{ @dots{} @}
# note that `foo' is not defined
-@end group
@end example
@noindent
-Since the @samp{if} statement will never be true, it is not really a
+Because the @samp{if} statement will never be true, it is not really a
problem that @code{foo} has not been defined. Usually though, it is a
problem if a program calls an undefined function.
-@ignore
-At one point, I had gawk dieing on this, but later decided that this might
-break old programs and/or test suites.
-@end ignore
-
-If @samp{--lint} has been specified
-(@pxref{Options, ,Command Line Options}),
-@code{gawk} will report about calls to undefined functions.
+@cindex lint checks
+If @option{--lint} is specified
+(@pxref{Options, ,Command-Line Options}),
+@command{gawk} reports calls to undefined functions.
-Some @code{awk} implementations generate a run-time
+@cindex portability issues
+Some @command{awk} implementations generate a runtime
error if you use the @code{next} statement
(@pxref{Next Statement, , The @code{next} Statement})
inside a user-defined function.
-@code{gawk} does not have this problem.
+@command{gawk} does not have this limitation.
-@node Return Statement, , Function Caveats, User-defined
-@section The @code{return} Statement
+@node Return Statement, Dynamic Typing, Function Caveats, User-defined
+@subsection The @code{return} Statement
@cindex @code{return} statement
The body of a user-defined function can contain a @code{return} statement.
-This statement returns control to the rest of the @code{awk} program. It
-can also be used to return a value for use in the rest of the @code{awk}
+This statement returns control to the calling part of the @command{awk} program. It
+can also be used to return a value for use in the rest of the @command{awk}
program. It looks like this:
@example
@@ -11245,24 +13412,23 @@ return @r{[}@var{expression}@r{]}
@end example
The @var{expression} part is optional. If it is omitted, then the returned
-value is undefined and, therefore, unpredictable.
+value is undefined, and therefore, unpredictable.
A @code{return} statement with no value expression is assumed at the end of
every function definition. So if control reaches the end of the function
-body, then the function returns an unpredictable value. @code{awk}
-will @emph{not} warn you if you use the return value of such a function.
+body, then the function returns an unpredictable value. @command{awk}
+does @emph{not} warn you if you use the return value of such a function.
Sometimes, you want to write a function for what it does, not for
what it returns. Such a function corresponds to a @code{void} function
in C or to a @code{procedure} in Pascal. Thus, it may be appropriate to not
-return any value; you should simply bear in mind that if you use the return
+return any value; simply bear in mind that if you use the return
value of such a function, you do so at your own risk.
-Here is an example of a user-defined function that returns a value
+The following is an example of a user-defined function that returns a value
for the largest number among the elements of an array:
@example
-@group
function maxelt(vec, i, ret)
@{
for (i in vec) @{
@@ -11271,9 +13437,10 @@ function maxelt(vec, i, ret)
@}
return ret
@}
-@end group
@end example
+@cindex conventions, programming
+@cindex programming conventions
@noindent
You call @code{maxelt} with one argument, which is an array name. The local
variables @code{i} and @code{ret} are not intended to be arguments;
@@ -11283,13 +13450,11 @@ to @code{maxelt}, the results would be strange. The extra space before
@code{ret} are not supposed to be arguments. This is a convention that
you should follow when you define functions.
-Here is a program that uses our @code{maxelt} function. It loads an
+The following program uses the @code{maxelt} function. It loads an
array, calls @code{maxelt}, and then reports the maximum number in that
array:
@example
-@group
-awk '
function maxelt(vec, i, ret)
@{
for (i in vec) @{
@@ -11298,9 +13463,7 @@ function maxelt(vec, i, ret)
@}
return ret
@}
-@end group
-@group
# Load all fields of each record into nums.
@{
for(i = 1; i <= NF; i++)
@@ -11309,203 +13472,1660 @@ function maxelt(vec, i, ret)
END @{
print maxelt(nums)
-@}'
-@end group
+@}
@end example
Given the following input:
@example
-@group
1 5 23 8 16
44 3 5 2 8 26
256 291 1396 2962 100
-6 467 998 1101
99385 11 0 225
+@end example
+
+@noindent
+the program reports (predictably) that @code{99385} is the largest number
+in the array.
+
+@node Dynamic Typing, , Return Statement, User-defined
+@subsection Functions and Their Effect on Variable Typing
+
+@command{awk} is a very fluid language.
+It is possible that @command{awk} can't tell if an identifier
+represents a regular variable or an array until runtime.
+Here is an annotated sample program:
+
+@example
+function foo(a)
+@{
+ a[1] = 1 # parameter is an array
+@}
+
+BEGIN @{
+ b = 1
+ foo(b) # invalid: fatal type mismatch
+
+ foo(x) # x uninitialized, becomes an array dynamically
+ x = 1 # now not allowed, runtime error
+@}
+@end example
+
+Usually, such things aren't a big issue, but it's worth
+being aware of them.
+
+@node Internationalization, Advanced Features, Functions, Top
+@chapter Internationalization with @command{gawk}
+
+Once upon a time, computer makers
+wrote software that only worked in English.
+Eventually, hardware and software vendors noticed that if their
+systems worked in the native languages of non-English-speaking
+countries, they were able to sell more systems.
+As a result, internationalization and localization
+of programs and software systems became a common practice.
+
+@cindex internationalization features in @command{gawk}
+Until recently, the ability to provide internationalization
+was largely restricted to programs written in C and C++.
+This @value{CHAPTER} describes the underlying library @command{gawk}
+uses for internationalization, as well as how
+@command{gawk} makes internationalization
+features available at the @command{awk} program level.
+Having internationalization available at the @command{awk} level
+gives software developers additional flexibility---they are no
+longer required to write in C when internationalization is
+a requirement.
+
+@menu
+* I18N and L10N:: Internationalization and Localization.
+* Explaining gettext:: How GNU @code{gettext} works.
+* Programmer i18n:: Features for the programmer.
+* Translator i18n:: Features for the translator.
+* I18N Example:: A simple i18n example.
+* Gawk I18N:: @command{gawk} is also internationalized.
+@end menu
+
+@node I18N and L10N, Explaining gettext, Internationalization, Internationalization
+@section Internationalization and Localization
+
+@cindex internationalization
+@cindex localization
+@dfn{Internationalization} means writing (or modifying) a program once,
+in such a way that it can use multiple languages without requiring
+further source code changes.
+@dfn{Localization} means providing the data necessary for an
+internationalized program to work in a particular language.
+Most typically, these terms refer to features such as the language
+used for printing error messages, the language used to read
+responses, and information related to how numerical and
+monetary values are printed and read.
+
+@node Explaining gettext, Programmer i18n, I18N and L10N, Internationalization
+@section GNU @code{gettext}
+
+@cindex @code{gettext}, how it works
+@cindex internationalizing a program
+The facilities in GNU @code{gettext} focus on messages; strings printed
+by a program, either directly or via formatting with @code{printf} or
+@code{sprintf}.@footnote{For some operating systems, the @command{gawk}
+port doesn't support GNU @code{gettext}. This applies most notably to
+the PC operating systems. As such, these features are not available
+if you are using one of those operating systems. Sorry.}
+
+When using GNU @code{gettext}, each application has its own
+@dfn{text domain}. This is a unique name such as @samp{kpilot} or @samp{gawk},
+that identifies the application.
+A complete application may have multiple components---programs written
+in C or C++, as well as scripts written in @command{sh} or @command{awk}.
+All of the components use the same text domain.
+
+To make the discussion concrete, assume we're writing an application
+named @command{guide}. Internationalization consists of the
+following steps, in this order:
+
+@enumerate
+@item
+The programmer goes
+through the source for all of @command{guide}'s components
+and marks each string that is a candidate for translation.
+For example, @code{"`-F': option required"} is a good candidate for translation.
+A table with strings of option names is not (e.g., @command{gawk}'s
+@option{--profile} option should remain the same, no matter what the local
+language).
+
+@cindex @code{textdomain} C library function
+@item
+The programmer indicates the application's text domain
+(@code{"guide"}) to the @code{gettext} library,
+by calling the @code{textdomain} function.
+
+@item
+Messages from the application are extracted from the source code and
+collected into a Portable Object file (@file{guide.po}),
+which lists the strings and their translations.
+The translations are initially empty.
+The original (usually English) messages serve as the key for
+lookup of the translations.
+
+@cindex portable object files (@code{gettext})
+@item
+For each language with a translator, @file{guide.po}
+is copied and translations are created and shipped with the application.
+
+@cindex message object files (@code{gettext})
+@item
+Each language's @file{.po} file is converted into a binary
+message object (@file{.mo}) file.
+A message object file contains the original messages and their
+translations in a binary format that allows fast lookup of translations
+at runtime.
+
+@item
+When @command{guide} is built and installed, the binary translation files
+are installed in a standard place.
+
+@cindex @code{bindtextdomain} C library function
+@item
+For testing and development, it is possible to tell @code{gettext}
+to use @file{.mo} files in a different directory than the standard
+one by using the @code{bindtextdomain} function.
+
+@item
+At runtime, @command{guide} looks up each string via a call
+to @code{gettext}. The returned string is the translated string
+if available, or the original string if not.
+
+@item
+If necessary, it is possible to access messages from a different
+text domain than the one belonging to the application, without
+having to switch the application's default text domain back
+and forth.
+@end enumerate
+
+@cindex @code{gettext} C library function
+In C (or C++), the string marking and dynamic translation lookup
+are accomplished by wrapping each string in a call to @code{gettext}:
+
+@example
+printf(gettext("Don't Panic!\n"));
+@end example
+
+The tools that extract messages from source code pull out all
+strings enclosed in calls to @code{gettext}.
+
+@cindex @code{_} C macro (@code{gettext})
+The GNU @code{gettext} developers, recognizing that typing
+@samp{gettext} over and over again is both painful and ugly to look
+at, use the macro @samp{_} (an underscore) to make things easier:
+
+@example
+/* In the standard header file: */
+#define _(str) gettext(str)
+
+/* In the program text: */
+printf(_("Don't Panic!\n"));
+@end example
+
+@cindex locale categories
+@noindent
+This reduces the typing overhead to just three extra characters per string
+and is considerably easier to read as well.
+There are locale @dfn{categories}
+for different types of locale-related information.
+The defined locale categories that @code{gettext} knows about are:
+
+@table @code
+@cindex @code{LC_MESSAGES} locale category
+@item LC_MESSAGES
+Text messages. This is the default category for @code{gettext}
+operations, but it is possible to supply a different one explicitly,
+if necessary. (It is almost never necessary to supply a different category.)
+
+@cindex @code{LC_COLLATE} locale category
+@item LC_COLLATE
+Text collation information; i.e., how different characters
+and/or groups of characters sort in a given language.
+
+@cindex @code{LC_CTYPE} locale category
+@item LC_CTYPE
+Character type information (alphabetic, digit, upper- or lowercase, and
+so on).
+This information is accessed via the
+POSIX character classes in regular expressions,
+such as @code{/[[:alnum:]]/}
+(@pxref{Regexp Operators, ,Regular Expression Operators}).
+
+@cindex @code{LC_MONETARY} locale category
+@item LC_MONETARY
+Monetary information, such as the currency symbol, and whether the
+symbol goes before or after a number.
+
+@cindex @code{LC_NUMERIC} locale category
+@item LC_NUMERIC
+Numeric information, such as which characters to use for the decimal
+point and the thousands separator.@footnote{Americans
+use a comma every three decimal places and a period for the decimal
+point, while many Europeans do exactly the opposite:
+@code{1,234.56} vs.@: @code{1.234,56}.}
+
+@cindex @code{LC_RESPONSE} locale category
+@item LC_RESPONSE
+Response information, such as how ``yes'' and ``no'' appear in the
+local language, and possibly other information as well.
+
+@cindex @code{LC_TIME} locale category
+@item LC_TIME
+Time and date related information, such as 12- or 24-hour clock, month printed
+before or after day in a date, local month abbreviations, and so on.
+
+@cindex @code{LC_ALL} locale category
+@item LC_ALL
+All of the above. (Not too useful in the context of @code{gettext}.)
+@end table
+
+@node Programmer i18n, Translator i18n, Explaining gettext, Internationalization
+@section Internationalizing @command{awk} Programs
+
+@command{gawk} provides the following variables and functions for
+internationalization:
+
+@table @code
+@cindex @code{TEXTDOMAIN} variable
+@item TEXTDOMAIN
+This variable indicates the application's text domain.
+For compatibility with GNU @code{gettext}, the default
+value is @code{"messages"}.
+
+@cindex internationalization, marked strings
+@cindex marked strings for internationalization
+@item _"your message here"
+String constants marked with a leading underscore
+are candidates for translation at runtime.
+String constants without a leading underscore are not translated.
+
+@cindex @code{dcgettext} built-in function
+@item dcgettext(@var{string} @r{[}, @var{domain} @r{[}, @var{category}@r{]]})
+This built-in function returns the translation of @var{string} in
+text domain @var{domain} for locale category @var{category}.
+The default value for @var{domain} is the current value of @code{TEXTDOMAIN}.
+The default value for @var{category} is @code{"LC_MESSAGES"}.
+
+If you supply a value for @var{category}, it must be a string equal to
+one of the known locale categories described in
+@ifnotinfo
+the previous @value{SECTION}.
+@end ifnotinfo
+@ifinfo
+@ref{Explaining gettext, ,GNU @code{gettext}}.
+@end ifinfo
+You must also supply a text domain. Use @code{TEXTDOMAIN} if
+you want to use the current domain.
+
+@strong{Caution:} The order of arguments to the @command{awk} version
+of the @code{dcgettext} function is purposely different from the order for
+the C version. The @command{awk} version's order was
+chosen to be simple and to allow for reasonable @command{awk}-style
+default arguments.
+
+@cindex @code{bindtextdomain} built-in function
+@item bindtextdomain(@var{directory} @r{[}, @var{domain}@r{]})
+This built-in function allows you to specify the directory where
+@code{gettext} looks for @file{.mo} files, in case they
+will not or cannot be placed in the standard locations
+(e.g., during testing).
+It returns the directory where @var{domain} is ``bound.''
+
+The default @var{domain} is the value of @code{TEXTDOMAIN}.
+If @var{directory} is the null string (@code{""}), then
+@code{bindtextdomain} returns the current binding for the
+given @var{domain}.
+@end table
+
+To use these facilities in your @command{awk} program, follow the steps
+outlined in
+@ifnotinfo
+the previous @value{SECTION},
+@end ifnotinfo
+@ifinfo
+@ref{Explaining gettext, ,GNU @code{gettext}},
+@end ifinfo
+like so:
+
+@enumerate
+@item
+Set the variable @code{TEXTDOMAIN} to the text domain of
+your program. This is best done in a @code{BEGIN} rule
+(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}),
+or it can also be done via the @option{-v} command-line
+option (@pxref{Options, ,Command-Line Options}):
+
+@example
+BEGIN @{
+ TEXTDOMAIN = "guide"
+ @dots{}
+@}
+@end example
+
+@item
+Mark all translatable strings with a leading underscore (@samp{_})
+character. It @emph{must} be adjacent to the opening
+quote of the string. For example:
+
+@example
+print _"hello, world"
+x = _"you goofed"
+printf(_"Number of users is %d\n", nusers)
+@end example
+
+@item
+If you are creating strings dynamically, you can
+still translate them, using the @code{dcgettext}
+built-in function.
+
+@example
+message = nusers " users logged in"
+message = dcgettext(message, "adminprog")
+print message
+@end example
+
+Here, the call to @code{dcgettext} supplies a different
+text domain (@code{"adminprog"}) in which to find the
+message, but it uses the default @code{"LC_MESSAGES"} category.
+
+@item
+During development, you might want to put the @file{.mo}
+file in a private directory for testing. This is done
+with the @code{bindtextdomain} built-in function:
+
+@example
+BEGIN @{
+ TEXTDOMAIN = "guide" # our text domain
+ if (Testing) @{
+ # where to find our files
+ bindtextdomain("testdir")
+ # joe is in charge of adminprog
+ bindtextdomain("../joe/testdir", "adminprog")
+ @}
+ @dots{}
+@}
+@end example
+
+@end enumerate
+
+@xref{I18N Example, ,A Simple Internationalization Example},
+for an example program showing the steps necessary to create
+and use translations from @command{awk}.
+
+@node Translator i18n, I18N Example, Programmer i18n, Internationalization
+@section Translating @command{awk} Programs
+
+Once a program's translatable strings have been marked, they must
+be extracted to create the initial @file{.po} file.
+As part of translation, it is often helpful to rearrange the order
+in which arguments to @code{printf} are output.
+
+@command{gawk}'s @option{--gen-po} command-line option extracts
+the messages and is discussed next.
+After that, @code{printf}'s ability to
+rearrange the order for @code{printf} arguments at runtime
+is covered.
+
+@menu
+* String Extraction:: Extracting marked strings.
+* Printf Ordering:: Rearranging @code{printf} arguments.
+* I18N Portability:: @command{awk}-level portability issues.
+@end menu
+
+@node String Extraction, Printf Ordering, Translator i18n, Translator i18n
+@subsection Extracting Marked Strings
+@cindex string extraction (internationalization)
+@cindex marked string extraction (internationalization)
+@cindex extraction, of marked strings (internationalization)
+
+@cindex @code{--gen-po} option
+@cindex command-line option, @code{--gen-po}
+Once your @command{awk} program is working, and all the strings have
+been marked and you've set (and perhaps bound) the text domain,
+it is time to produce translations.
+First, use the @option{--gen-po} command-line option to create
+the initial @file{.po} file:
+
+@example
+$ gawk --gen-po -f guide.awk > guide.po
+@end example
+
+@cindex @code{xgettext} utility
+When run with @option{--gen-po}, @command{gawk} does not execute your
+program. Instead, it parses it as usual and prints all marked strings
+to standard output in the format of a GNU @code{gettext} Portable Object
+file. Also included in the output are any constant strings that
+appear as the first argument to @code{dcgettext}.@footnote{Eventually,
+the @command{xgettext} utility that comes with GNU @code{gettext} will be
+taught to automatically run @samp{gawk --gen-po} for @file{.awk} files,
+freeing the translator from having to do it manually.}
+@xref{I18N Example, ,A Simple Internationalization Example},
+for the full list of steps to go through to create and test
+translations for @command{guide}.
+
+@node Printf Ordering, I18N Portability, String Extraction, Translator i18n
+@subsection Rearranging @code{printf} Arguments
+
+@cindex @code{printf}, positional specifier
+@cindex positional specifier, @code{printf}
+Format strings for @code{printf} and @code{sprintf}
+(@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing})
+present a special problem for translation.
+Consider the following:@footnote{This example is borrowed
+from the GNU @code{gettext} manual.}
+
+@c line broken here only for smallbook format
+@example
+printf(_"String `%s' has %d characters\n",
+ string, length(string)))
+@end example
+
+A possible German translation for this might be:
+
+@example
+"%d Zeichen lang ist die Zeichenkette `%s'\n"
+@end example
+
+The problem should be obvious: the order of the format
+specifications is different from the original!
+Even though @code{gettext} can return the translated string
+at runtime,
+it cannot change the argument order in the call to @code{printf}.
+
+To solve this problem, @code{printf} format specificiers may have
+an additional optional element, which we call a @dfn{positional specifier}.
+For example:
+
+@example
+"%2$d Zeichen lang ist die Zeichenkette `%1$s'\n"
+@end example
+
+Here, the positional specifier consists of an integer count, which indicates which
+argument to use, and a @samp{$}. Counts are one-based, and the
+format string itself is @emph{not} included. Thus, in the following
+example, @samp{string} is the first argument and @samp{length(string)} is the second.
+
+@example
+$ gawk 'BEGIN @{
+> string = "Dont Panic"
+> printf _"%2$d characters live in \"%1$s\"\n",
+> string, length(string)
+> @}'
+@print{} 10 characters live in "Dont Panic"
+@end example
+
+If present, positional specifiers come first in the format specification,
+before the flags, the field width, and/or the precision.
+
+Positional specifiers can be used with the dynamic field width and
+precision capability:
+
+@example
+$ gawk 'BEGIN @{
+> printf("%*.*s\n", 10, 20, "hello")
+> printf("%3$*2$.*1$s\n", 20, 10, "hello")
+> @}'
+@print{} hello
+@print{} hello
+@end example
+
+@noindent
+@strong{Note:} When using @samp{*} with a positional specifier, the @samp{*}
+comes first, then the integer position, and then the @samp{$}.
+This is somewhat counter-intutive.
+
+@cindex @code{printf}, mixing positional specifiers with regular formats
+@cindex positional specifiers, mixing with regular formats (@code{printf})
+@cindex format specifiers, mixing regular with positional specifiers (@code{printf})
+@command{gawk} does not allow you to mix regular format specifiers
+and those with positional specifiers in the same string:
+
+@smallexample
+$ gawk 'BEGIN @{ printf _"%d %3$s\n", 1, 2, "hi" @}'
+@error{} gawk: cmd. line:1: fatal: must use `count$' on all formats or none
+@end smallexample
+
+@strong{Note:} There are some pathological cases that @command{gawk} may fail to
+diagnose. In such cases, the output may not be what you expect.
+It's still a bad idea to try mixing them, even if @command{gawk}
+doesn't detect it.
+
+Although positional specifiers can be used directly in @command{awk} programs,
+their primary purpose is to help in producing correct translations of
+format strings into languages different from the one in which the program
+is first written.
+
+@node I18N Portability, , Printf Ordering, Translator i18n
+@subsection @command{awk} Portability Issues
+
+@cindex portability issues
+@cindex portability issues, internationalization of @command{awk} programs
+@cindex internationalization of @command{awk} programs, portability issues
+@command{gawk}'s internationalization features were purposely chosen to
+have as little impact as possible on the portability of @command{awk}
+programs that use them to other versions of @command{awk}.
+Consider this program:
+
+@example
+BEGIN @{
+ TEXTDOMAIN = "guide"
+ if (Test_Guide) # set with -v
+ bindtextdomain("/test/guide/messages")
+ print _"don't panic!"
+@}
+@end example
+
+@noindent
+As written, it won't work on other versions of @command{awk}.
+However, it is actually almost portable, requiring very little
+change.
+
+@itemize @bullet
+@item
+Assignments to @code{TEXTDOMAIN} won't have any effect,
+since @code{TEXTDOMAIN} is not special in other @command{awk} implementations.
+
+@item
+Non-GNU versions of @command{awk} treat marked strings
+as the concatenation of a variable named @code{_} with the string
+following it.@footnote{This is good fodder for an ``Obfuscated
+@command{awk}'' contest.} Typically, the variable @code{_} has
+the null string (@code{""}) as its value, leaving the original string constant as
+the result.
+
+@item
+By defining ``dummy'' functions to replace @code{dcgettext}
+and @code{bindtextdomain}, the @command{awk} program can be made to run, but
+all the messages are output in the original language.
+For example:
+
+@cindex @code{bindtextdomain} user-defined function
+@cindex @code{dcgettext} user-defined function
+@example
+@c file eg/lib/libintl.awk
+function bindtextdomain(dir, domain)
+@{
+ return dir
+@}
+
+function dcgettext(string, domain, category)
+@{
+ return string
+@}
+@c endfile
+@end example
+
+@item
+The use of positional specifications in @code{printf} or
+@code{sprintf} is @emph{not} portable.
+To support @code{gettext} at the C level, many systems' C versions of
+@code{sprintf} do support positional specifiers. But it works only if
+enough arguments are supplied in the function call. Many versions of
+@command{awk} pass @code{printf} formats and arguments unchanged to the
+underlying C library version of @code{sprintf}, but only one format and
+argument at a time. What happens if a positional specification is
+used is anybody's guess.
+However, since the positional specifications are primarily for use in
+@emph{translated} format strings, and since non-GNU @command{awk}s never
+retrieve the translated string, this should not be a problem in practice.
+@end itemize
+
+@node I18N Example, Gawk I18N, Translator i18n, Internationalization
+@section A Simple Internationalization Example
+
+Now let's look at a step-by-step example of how to internationalize and
+localize a simple @command{awk} program, using @file{guide.awk} as our
+original source:
+
+@example
+@c file eg/prog/guide.awk
+BEGIN @{
+ TEXTDOMAIN = "guide"
+ bindtextdomain(".") # for testing
+ print _"Don't Panic"
+ print _"The Answer Is", 42
+ print "Pardon me, Zaphod who?"
+@}
+@c endfile
+@end example
+
+@noindent
+Run @samp{gawk --gen-po} to create the @file{.po} file:
+
+@example
+$ gawk --gen-po -f guide.awk > guide.po
+@end example
+
+@noindent
+This produces:
+
+@example
+@c file eg/data/guide.po
+#: guide.awk:4
+msgid "Don't Panic"
+msgstr ""
+
+#: guide.awk:5
+msgid "The Answer Is"
+msgstr ""
+
+@c endfile
+@end example
+
+This original portable object file is saved and reused for each language
+into which the application is translated. The @code{msgid}
+is the original string and the @code{msgstr} is the translation.
+
+@strong{Note:} Strings not marked with a leading underscore do not
+appear in the @file{guide.po} file.
+
+Next, the messages must be translated.
+Here is a translation to a hypothetical dialect of English,
+called ``Mellow'':@footnote{Perhaps it would be better if it were
+called ``Hippy.'' Ah, well.}
+
+@example
+@group
+$ cp guide.po guide-mellow.po
+@var{Add translations to} guide-mellow.po @dots{}
@end group
@end example
@noindent
-our program tells us (predictably) that @code{99385} is the largest number
-in our array.
+Following are the translations:
+
+@example
+@c file eg/data/guide-mellow.po
+#: guide.awk:4
+msgid "Don't Panic"
+msgstr "Hey man, relax!"
+
+#: guide.awk:5
+msgid "The Answer Is"
+msgstr "Like, the scoop is"
+
+@c endfile
+@end example
+
+@cindex Linux
+@cindex GNU/Linux
+The next step is to make the directory to hold the binary message object
+file and then to create the @file{guide.mo} file.
+The directory layout shown here is standard for GNU @code{gettext} on
+GNU/Linux systems. Other versions of @code{gettext} may use a different
+layout:
+
+@example
+$ mkdir en_US en_US/LC_MESSAGES
+@end example
+
+@cindex @command{msgfmt} utility
+The @command{msgfmt} utility does the conversion from human-readable
+@file{.po} file to machine-readable @file{.mo} file.
+By default, @command{msgfmt} creates a file named @file{messages}.
+This file must be renamed and placed in the proper directory so that
+@command{gawk} can find it:
+
+@example
+$ msgfmt guide-mellow.po
+$ mv messages en_US/LC_MESSAGES/guide.mo
+@end example
+
+Finally, we run the program to test it:
+
+@example
+$ gawk -f guide.awk
+@print{} Hey man, relax!
+@print{} Like, the scoop is 42
+@print{} Pardon me, Zaphod who?
+@end example
+
+If the two replacement functions for @code{dcgettext}
+and @code{bindtextdomain}
+(@pxref{I18N Portability, ,@command{awk} Portability Issues})
+are in a file named @file{libintl.awk},
+then we can run @file{guide.awk} unchanged as follows:
+
+@example
+$ gawk --posix -f guide.awk -f libintl.awk
+@print{} Don't Panic
+@print{} The Answer Is 42
+@print{} Pardon me, Zaphod who?
+@end example
+
+@node Gawk I18N, , I18N Example, Internationalization
+@section @command{gawk} Can Speak Your Language
+
+As of @value{PVERSION} 3.1, @command{gawk} itself has been internationalized
+using the GNU @code{gettext} package.
+@ifinfo
+(GNU @code{gettext} is described in
+complete detail in
+@ref{Top}.)
+@end ifinfo
+@ifnotinfo
+(GNU @code{gettext} is described in
+complete detail in
+@cite{GNU gettext tools}.)
+@end ifnotinfo
+As of this writing, the latest version of GNU @code{gettext} is
+@uref{ftp://gnudist.gnu.org/gnu/gettext/gettext-0.10.37.tar.gz, @value{PVERSION} 0.10.37}.
+
+If a translation of @command{gawk}'s messages exists,
+then @command{gawk} produces usage messages, warnings,
+and fatal errors in the local language.
+
+@cindex @code{--with-included-gettext} configuration option
+@cindex configuration option, @code{--with-included-gettext}
+On systems that do not use @value{PVERSION} 2 (or later) of the GNU C library, you should
+configure @command{gawk} with the @option{--with-included-gettext} option
+before compiling and installing it.
+@xref{Additional Configuration Options},
+for more information.
+
+@node Advanced Features, Invoking Gawk, Internationalization, Top
+@chapter Advanced Features of @command{gawk}
+@cindex advanced features
+@cindex features, advanced
+@ignore
+Contributed by: Peter Langston <pud!psl@bellcore.bellcore.com>
+
+ Found in Steve English's "signature" line:
+
+"Write documentation as if whoever reads it is a violent psychopath
+who knows where you live."
+@end ignore
+@quotation
+@i{Write documentation as if whoever reads it is
+a violent psychopath who knows where you live.}@*
+Steve English, as quoted by Peter Langston
+@end quotation
+
+This @value{CHAPTER} discusses advanced features in @command{gawk}.
+It's a bit of a ``grab bag'' of items that are otherwise unrelated
+to each other.
+First, a command-line option allows @command{gawk} to recognize
+non-decimal numbers in input data, not just in @command{awk}
+programs. Next, two-way I/O, discussed briefly in earlier parts of this
+@value{DOCUMENT}, is described in full detail, along with the basics
+of TCP/IP networking and BSD portal files. Finally, @command{gawk}
+can @dfn{profile} an @command{awk} program, making it possible to tune
+it for performance.
+
+@ref{Dynamic Extensions, ,Adding New Built-in Functions to @command{gawk}},
+discusses the ability to dynamically add new built-in functions to
+@command{gawk}. As this feature is still immature and likely to change,
+its description is relegated to an appendix.
+
+@menu
+* Non-decimal Data:: Allowing non-decimal input data.
+* Two-way I/O:: Two-way communications with another process.
+* TCP/IP Networking:: Using @command{gawk} for network programming.
+* Portal Files:: Using @command{gawk} with BSD portals.
+* Profiling:: Profiling your @command{awk} programs.
+@end menu
+
+@node Non-decimal Data, Two-way I/O, Advanced Features, Advanced Features
+@section Allowing Non-Decimal Input Data
+@cindex @code{--non-decimal-data} option
+@cindex command-line option, @code{--non-decimal-data}
+
+If you run @command{gawk} with the @option{--non-decimal-data} option,
+you can have non-decimal constants in your input data:
+
+@c line break here for small book format
+@example
+$ echo 0123 123 0x123 |
+> gawk --non-decimal-data '@{ printf "%d, %d, %d\n",
+> $1, $2, $3 @}'
+@print{} 83, 123, 291
+@end example
+
+For this feature to work, write your program so that
+@command{gawk} treats your data as numeric:
+
+@example
+$ echo 0123 123 0x123 | gawk '@{ print $1, $2, $3 @}'
+@print{} 0123 123 0x123
+@end example
+
+@noindent
+The @code{print} statement treats its expressions as strings.
+Although the fields can act as numbers when necessary,
+they are still strings, so @code{print} does not try to treat them
+numerically. You may need to add zero to a field to force it to
+be treated as a number. For example:
+
+@example
+$ echo 0123 123 0x123 | gawk --non-decimal-data '
+> @{ print $1, $2, $3
+> print $1 + 0, $2 + 0, $3 + 0 @}'
+@print{} 0123 123 0x123
+@print{} 83 123 291
+@end example
+
+Because it is common to have decimal data with leading zeros, and because
+using it could lead to surprising results, the default is to leave this
+facility disabled. If you want it, you must explicitly request it.
+
+@cindex conventions, programming
+@cindex programming conventions
+@strong{Caution:}
+@emph{Use of this option is not recommended.}
+It can break old programs very badly.
+Instead, use the @code{strtonum} function to convert your data
+(@pxref{Non-decimal-numbers, ,Octal and Hexadecimal Numbers}).
+This makes your programs easier to write and easier to read, and
+leads to less surprising results.
+
+@node Two-way I/O, TCP/IP Networking, Non-decimal Data, Advanced Features
+@section Two-Way Communications with Another Process
+@cindex Brennan, Michael
+@cindex sex, programmer attractiveness
+@smallexample
+@c Path: cssun.mathcs.emory.edu!gatech!newsxfer3.itd.umich.edu!news-peer.sprintlink.net!news-sea-19.sprintlink.net!news-in-west.sprintlink.net!news.sprintlink.net!Sprint!204.94.52.5!news.whidbey.com!brennan
+From: brennan@@whidbey.com (Mike Brennan)
+Newsgroups: comp.lang.awk
+Subject: Re: Learn the SECRET to Attract Women Easily
+Date: 4 Aug 1997 17:34:46 GMT
+@c Organization: WhidbeyNet
+@c Lines: 12
+Message-ID: <5s53rm$eca@@news.whidbey.com>
+@c References: <5s20dn$2e1@chronicle.concentric.net>
+@c Reply-To: brennan@whidbey.com
+@c NNTP-Posting-Host: asn202.whidbey.com
+@c X-Newsreader: slrn (0.9.4.1 UNIX)
+@c Xref: cssun.mathcs.emory.edu comp.lang.awk:5403
+
+On 3 Aug 1997 13:17:43 GMT, Want More Dates???
+<tracy78@@kilgrona.com> wrote:
+>Learn the SECRET to Attract Women Easily
+>
+>The SCENT(tm) Pheromone Sex Attractant For Men to Attract Women
+
+The scent of awk programmers is a lot more attractive to women than
+the scent of perl programmers.
+--
+Mike Brennan
+@c brennan@@whidbey.com
+@end smallexample
+
+It is often useful to be able to
+send data to a separate program for
+processing and then read the result. This can always be
+done with temporary files:
+
+@example
+# write the data for processing
+tempfile = ("/tmp/mydata." PROCINFO["pid"])
+while (@var{not done with data})
+ print @var{data} | ("subprogram > " tempfile)
+close("subprogram > " tempfile)
+
+# read the results, remove tempfile when done
+while ((getline newdata < tempfile) > 0)
+ @var{process} newdata @var{appropriately}
+close(tempfile)
+system("rm " tempfile)
+@end example
+
+@noindent
+This works, but not elegantly.
+
+@cindex coprocess
+@cindex two-way I/O
+@cindex I/O, two-way
+@cindex @code{|&} I/O operator
+@cindex @command{csh} utility
+Starting with @value{PVERSION} 3.1 of @command{gawk}, it is possible to
+open a @emph{two-way} pipe to another process. The second process is
+termed a @dfn{coprocess}, since it runs in parallel with @command{gawk}.
+The two-way connection is created using the new @samp{|&} operator
+(borrowed from the Korn Shell, @command{ksh}):@footnote{This is very
+different from the same operator in the C shell, @command{csh}.}
+
+@example
+do @{
+ print @var{data} |& "subprogram"
+ "subprogram" |& getline results
+@} while (@var{data left to process})
+close("subprogram")
+@end example
+
+The first time an I/O operation is executed using the @samp{|&}
+operator, @command{gawk} creates a two-way pipeline to a child process
+that runs the other program. Output created with @code{print}
+or @code{printf} is written to the program's standard input, and
+output from the program's standard output can be read by the @command{gawk}
+program using @code{getline}.
+As is the case with processes started by @samp{|}, the subprogram
+can be any program, or pipeline of programs, that can be started by
+the shell.
+
+There are some cautionary items to be aware of:
+
+@itemize @bullet
+@item
+As the code inside @command{gawk} currently stands, the coprocess's
+standard error goes to the same place that the parent @command{gawk}'s
+standard error goes. It is not possible to read the child's
+standard error separately.
+
+@cindex deadlock
+@item
+I/O buffering may be a problem. @command{gawk} automatically
+flushes all output down the pipe to the child process.
+However, if the coprocess does not flush its output,
+@command{gawk} may hang when doing a @code{getline} in order to read
+the coprocess's results. This could lead to a situation
+known as @dfn{deadlock}, where each process is waiting for the
+other one to do something.
+@end itemize
+
+It is possible to close just one end of the two-way pipe to
+a coprocess, by supplying a second argument to the @code{close}
+function of either @code{"to"} or @code{"from"}
+(@pxref{Close Files And Pipes, ,Closing Input and Output Redirections}).
+These strings tell @command{gawk} to close the end of the pipe
+that sends data to the process or the end that reads from it,
+respectively.
+
+This is particularly necessary in order to use
+the system @command{sort} utility as part of a coprocess;
+@command{sort} must read @emph{all} of its input
+data before it can produce any output.
+The @command{sort} program does not receive an end-of-file indication
+until @command{gawk} closes the write end of the pipe.
+
+When you have finished writing data to the @command{sort}
+utility, you can close the @code{"to"} end of the pipe, and
+then start reading sorted data via @code{getline}.
+For example:
+
+@example
+BEGIN @{
+ command = "LC_ALL=C sort"
+ n = split("abcdefghijklmnopqrstuvwxyz", a, "")
+
+ for (i = n; i > 0; i--)
+ print a[i] |& command
+ close(command, "to")
+
+ while ((command |& getline line) > 0)
+ print "got", line
+ close(command)
+@}
+@end example
+
+This program writes the letters of the alphabet in reverse order, one
+per line, down the two-way pipe to @command{sort}. It then closes the
+write end of the pipe, so that @command{sort} receives an end-of-file
+indication. This causes @command{sort} to sort the data and write the
+sorted data back to the @command{gawk} program. Once all of the data
+has been read, @command{gawk} terminates the coprocess and exits.
+
+As a side note, the assignment @samp{LC_ALL=C} in the @command{sort}
+command ensures traditional Unix (ASCII) sorting from @command{sort}.
+
+@node TCP/IP Networking, Portal Files, Two-way I/O, Advanced Features
+@section Using @command{gawk} for Network Programming
+@cindex networking, TCP/IP
+@cindex TCP/IP networking
+@cindex @file{/inet} special files
+@cindex @code{EMISTERED}
+@quotation
+@code{EMISTERED}: @i{A host is a host from coast to coast,@*
+and no-one can talk to host that's close,@*
+unless the host that isn't close@*
+is busy hung or dead.}
+@end quotation
+
+In addition to being able to open a two-way pipeline to a coprocess
+on the same system
+(@pxref{Two-way I/O, ,Two-Way Communications with Another Process}),
+it is possible to make a two-way connection to
+another process on another system across an IP networking connection.
+
+You can think of this as just a @emph{very long} two-way pipeline to
+a coprocess.
+The way @command{gawk} decides that you want to use TCP/IP networking is
+by recognizing special @value{FN}s that begin with @samp{/inet/}.
+
+The full syntax of the special @value{FN} is
+@file{/inet/@var{protocol}/@var{local-port}/@var{remote-host}/@var{remote-port}}.
+The meaning of the components are:
+
+@table @var
+@item protocol
+The protocol to use over IP. This must be either @samp{tcp},
+@samp{udp}, or @samp{raw}, for a TCP, UDP, or raw IP connection,
+respectively. The use of TCP is recommended for most applications.
+
+@strong{Caution:} The use of raw sockets is not currently supported
+in @value{PVERSION} 3.1 of @command{gawk}.
+
+@item local-port
+@cindex @code{getservbyname} C library function
+The local TCP or UDP port number to use. Use a port number of @samp{0}
+when you want the system to pick a port. This is what you should do
+when writing a TCP or UDP client.
+You may also use a well-known service name, such as @samp{smtp}
+or @samp{http}, in which case @command{gawk} attempts to determine
+the pre-defined port number using the C @code{getservbyname} function.
+
+@item remote-host
+The IP address or fully-qualified domain name of the Internet
+host to which you want to connect.
+
+@item remote-port
+The TCP or UDP port number to use on the given @var{remote-host}.
+Again, use @samp{0} if you don't care, or else a well-known
+service name.
+@end table
+
+Consider the following very simple example:
+
+@example
+BEGIN @{
+ Service = "/inet/tcp/0/localhost/daytime"
+ Service |& getline
+ print $0
+ close(Service)
+@}
+@end example
+
+This program reads the current date and time from the local system's
+TCP @samp{daytime} server.
+It then prints the results and closes the connection.
+
+Because this topic is extensive, the use of @command{gawk} for
+TCP/IP programming is documented separately.
+@ifinfo
+@xref{Top},
+@end ifinfo
+@ifnotinfo
+See @cite{TCP/IP Internetworking with @command{gawk}},
+which comes as part of the @command{gawk} distribution,
+@end ifnotinfo
+for a much more complete introduction and discussion, as well as
+extensive examples.
+
+@node Portal Files, Profiling, TCP/IP Networking, Advanced Features
+@section Using @command{gawk} with BSD Portals
+@cindex portal files
+@cindex BSD portal files
+@cindex TCP/IP networking
+@cindex @file{/p} special files
+@cindex @code{--enable-portals} configuration option
+@cindex configuration option, @code{--enable-portals}
+@cindex BSD-based operating systems
+
+Similar to the @file{/inet} special files, if @command{gawk}
+is configured with the @option{--enable-portals} option
+(@pxref{Quick Installation, , Compiling @command{gawk} for Unix}),
+then @command{gawk} treats
+files whose pathnames begin with @code{/p} as 4.4 BSD-style portals.
+
+When used with the @samp{|&} operator, @command{gawk} opens the file
+for two-way communications. The operating system's portal mechanism
+then manages creating the process associated with the portal and
+the corresponding communications with the portal's process.
+
+@node Profiling, , Portal Files, Advanced Features
+@section Profiling Your @command{awk} Programs
+@cindex profiling @command{awk} programs
+@cindex @command{pgawk} program
+
+Beginning with @value{PVERSION} 3.1 of @command{gawk}, you may produce execution
+traces of your @command{awk} programs.
+This is done with a specially compiled version of @command{gawk},
+called @command{pgawk} (``profiling @command{gawk}'').
+
+@cindex @file{awkprof.out} profiling output file
+@cindex profiling output file (@file{awkprof.out})
+@command{pgawk} is identical in every way to @command{gawk}, except that when
+it has finished running, it creates a profile of your program in a file
+named @file{awkprof.out}.
+Because it is profiling, it also executes up to 45 percent slower than
+@command{gawk} normally does.
+
+As shown in the following example,
+the @option{--profile} option can be used to change the name of the file
+where @command{pgawk} will write the profile:
+
+@example
+$ pgawk --profile=myprog.prof -f myprog.awk data1 data2
+@end example
+
+@noindent
+In the above example, @command{pgawk} places the profile in
+@file{myprog.prof} instead of in @file{awkprof.out}.
+
+Regular @command{gawk} also accepts this option. When called with just
+@option{--profile}, @command{gawk} ``pretty prints'' the program into
+@file{awkprof.out}, without any execution counts. You may supply an
+option to @option{--profile} to change the @value{FN}. Here is a sample
+session showing a simple @command{awk} program, its input data, and the
+results from running @command{pgawk}. First, the @command{awk} program:
+
+@example
+BEGIN @{ print "First BEGIN rule" @}
+
+END @{ print "First END rule" @}
+
+/foo/ @{
+ print "matched /foo/, gosh"
+ for (i = 1; i <= 3; i++)
+ sing()
+@}
+
+@{
+ if (/foo/)
+ print "if is true"
+ else
+ print "else is true"
+@}
+
+BEGIN @{ print "Second BEGIN rule" @}
+
+END @{ print "Second END rule" @}
+
+function sing( dummy)
+@{
+ print "I gotta be me!"
+@}
+@end example
+
+Following is the input data:
+
+@example
+foo
+bar
+baz
+foo
+junk
+@end example
+
+Here is the @file{awkprof.out} that results from running @command{pgawk}
+on this program and data. (This example also illustrates that @command{awk}
+programmers sometimes have to work late.):
+
+@cindex blocks, @code{BEGIN} and @code{END}
+@example
+ # gawk profile, created Sun Aug 13 00:00:15 2000
+
+ # BEGIN block(s)
+
+ BEGIN @{
+ 1 print "First BEGIN rule"
+ 1 print "Second BEGIN rule"
+ @}
+
+ # Rule(s)
+
+ 5 /foo/ @{ # 2
+ 2 print "matched /foo/, gosh"
+ 6 for (i = 1; i <= 3; i++) @{
+ 6 sing()
+ @}
+ @}
+
+ 5 @{
+ 5 if (/foo/) @{ # 2
+ 2 print "if is true"
+ 3 @} else @{
+ 3 print "else is true"
+ @}
+ @}
+
+ # END block(s)
+
+ END @{
+ 1 print "First END rule"
+ 1 print "Second END rule"
+ @}
+
+ # Functions, listed alphabetically
-@node Invoking Gawk, Library Functions, User-defined, Top
-@chapter Running @code{awk}
+ 6 function sing(dummy)
+ @{
+ 6 print "I gotta be me!"
+ @}
+@end example
+
+The previous example illustrates many of the basic rules for profiling output.
+The rules are as follows:
+
+@itemize @bullet
+@item
+The program is printed in the order @code{BEGIN} rule,
+pattern/action rules, @code{END} rule and functions, listed
+alphabetically.
+Multiple @code{BEGIN} and @code{END} rules are merged together.
+
+@item
+Pattern-action rules have two counts.
+The first count, to the left of the rule, shows how many times
+the rule's pattern was @emph{tested}.
+The second count, to the right of the rule's opening left brace
+in a comment,
+shows how many times the rule's action was @emph{executed}.
+The difference between the two indicates how many times the rule's
+pattern evaluated to false.
+
+@item
+Similarly,
+the count for an @code{if}-@code{else} statement shows how many times
+the condition was tested.
+To the right of the opening left brace for the @code{if}'s body
+is a count showing how many times the condition was true.
+The count for the @code{else}
+indicates how many times the test failed.
+
+@item
+The count for a loop header (such as @code{for}
+or @code{while}) shows how many times the loop test was executed.
+(Because of this, you can't just look at the count on the first
+statement in a rule to determine how many times the rule was executed.
+If the first statement is a loop, the count is misleading.)
+
+@item
+For user-defined functions, the count next to the @code{function}
+keyword indicates how many times the function was called.
+The counts next to the statements in the body show how many times
+those statements were executed.
+
+@item
+The layout uses ``K&R'' style using tabs.
+Braces are used everywhere, even when
+the body of an @code{if}, @code{else}, or loop is only a single statement.
+
+@item
+Parentheses are used only where needed, as indicated by the structure
+of the program and the precedence rules.
+@c extra verbiage here satisfies the copyeditor. ugh.
+For example, @samp{(3 + 5) * 4} means add three plus five, then multiply
+the total by four. However, @samp{3 + 5 * 4} has no parentheses, and
+means @samp{3 + (5 * 4)}.
+
+@item
+All string concatenations are parenthesized too.
+(This could be made a bit smarter.)
+
+@item
+Parentheses are used around the arguments to @code{print}
+and @code{printf} only when
+the @code{print} or @code{printf} statement is followed by a redirection.
+Similarly, if
+the target of a redirection isn't a scalar, it gets parenthesized.
+
+@item
+@command{pgawk} supplies leading comments in
+front of the @code{BEGIN} and @code{END} rules,
+the pattern/action rules, and the functions.
+
+@end itemize
+
+The profiled version of your program may not look exactly like what you
+typed when you wrote it. This is because @command{pgawk} creates the
+profiled version by ``pretty printing'' its internal representation of
+the program. The advantage to this is that @command{pgawk} can produce
+a standard representation. The disadvantage is that all source code
+comments are lost, as are the distinctions among multiple @code{BEGIN}
+and @code{END} rules. Also, things such as:
+
+@example
+/foo/
+@end example
+
+@noindent
+come out as:
+
+@example
+/foo/ @{
+ print $0
+@}
+@end example
+
+@noindent
+which is correct, but possibly surprising.
+
+@cindex dynamic profiling
+@cindex profiling, dynamic
+Besides creating profiles when a program has completed,
+@command{pgawk} can produce a profile while it is running.
+This is useful if your @command{awk} program goes into an
+infinite loop and you want to see what has been executed.
+To use this feature, run @command{pgawk} in the background:
+
+@example
+$ pgawk -f myprog &
+[1] 13992
+@end example
+
+@cindex @command{kill} command
+@cindex @code{SIGUSR1} signal
+@cindex @code{USR1} signal
+@cindex signals, @code{SIGUSR1}
+@noindent
+The shell prints a job number and process ID number, in this case, 13992.
+Use the @command{kill} command to send the @code{USR1} signal
+to @command{pgawk}:
+
+@example
+$ kill -USR1 13992
+@end example
+
+@noindent
+As usual, the profiled version of the program is written to
+@file{awkprof.out}, or to a different file if you use the @option{--profile}
+option.
+
+Along with the regular profile, as shown earlier, the profile
+includes a trace of any active functions:
+
+@example
+# Function Call Stack:
+
+# 3. baz
+# 2. bar
+# 1. foo
+# -- main --
+@end example
+
+You may send @command{pgawk} the @code{USR1} signal as many times as you like.
+Each time, the profile and function call trace are appended to the output
+profile file.
+
+@cindex @code{SIGHUP} signal
+@cindex @code{HUP} signal
+@cindex signals, @code{SIGHUP}
+If you use the @code{HUP} signal instead of the @code{USR1} signal,
+@command{pgawk} produces the profile and the function call trace, and then exits.
+
+@node Invoking Gawk, Library Functions, Advanced Features, Top
+@chapter Running @command{awk} and @command{gawk}
+
+This @value{CHAPTER} covers how to run awk, both POSIX-standard
+and @command{gawk}-specific command-line options, and what
+@command{awk} and
+@command{gawk} do with non-option arguments.
+It then proceeds to cover how @command{gawk} searches for source files,
+obsolete options and/or features, and known bugs in @command{gawk}.
+This @value{CHAPTER} rounds out the discussion of @command{awk}
+as a program and as a language.
+
+While a number of the options and features described here were
+discussed in passing earlier in the book, this @value{CHAPTER} provides the
+full details.
+
+@menu
+* Command Line:: How to run @command{awk}.
+* Options:: Command-line options and their meanings.
+* Other Arguments:: Input file names and variable assignments.
+* AWKPATH Variable:: Searching directories for @command{awk}
+ programs.
+* Obsolete:: Obsolete Options and/or features.
+* Undocumented:: Undocumented Options and Features.
+* Known Bugs:: Known Bugs in @command{gawk}.
+@end menu
+
+@node Command Line, Options, Invoking Gawk, Invoking Gawk
+@section Invoking @command{awk}
@cindex command line
-@cindex invocation of @code{gawk}
-@cindex arguments, command line
-@cindex options, command line
+@cindex invocation of @command{gawk}
+@cindex arguments, command-line
+@cindex options, command-line
@cindex long options
@cindex options, long
-There are two ways to run @code{awk}: with an explicit program, or with
+There are two ways to run @command{awk}---with an explicit program or with
one or more program files. Here are templates for both of them; items
-enclosed in @samp{@r{[}@dots{}@r{]}} in these templates are optional.
-
-Besides traditional one-letter POSIX-style options, @code{gawk} also
-supports GNU long options.
+enclosed in [@dots{}] in these templates are optional:
@example
awk @r{[@var{options}]} -f progfile @r{[@code{--}]} @var{file} @dots{}
awk @r{[@var{options}]} @r{[@code{--}]} '@var{program}' @var{file} @dots{}
@end example
+Besides traditional one-letter POSIX-style options, @command{gawk} also
+supports GNU long options.
+
@cindex empty program
@cindex dark corner
-It is possible to invoke @code{awk} with an empty program:
+@cindex lint checks
+It is possible to invoke @command{awk} with an empty program:
@example
-$ awk '' datafile1 datafile2
+awk '' datafile1 datafile2
@end example
@noindent
-Doing so makes little sense though; @code{awk} will simply exit
-silently when given an empty program (d.c.). If @samp{--lint} has
-been specified on the command line, @code{gawk} will issue a
+Doing so makes little sense though; @command{awk} exits
+silently when given an empty program.
+@value{DARKCORNER}
+If @option{--lint} has
+been specified on the command-line, @command{gawk} issues a
warning that the program is empty.
-@menu
-* Options:: Command line options and their meanings.
-* Other Arguments:: Input file names and variable assignments.
-* AWKPATH Variable:: Searching directories for @code{awk} programs.
-* Obsolete:: Obsolete Options and/or features.
-* Undocumented:: Undocumented Options and Features.
-* Known Bugs:: Known Bugs in @code{gawk}.
-@end menu
-
-@node Options, Other Arguments, Invoking Gawk, Invoking Gawk
-@section Command Line Options
+@node Options, Other Arguments, Command Line, Invoking Gawk
+@section Command-Line Options
-Options begin with a dash, and consist of a single character.
-GNU style long options consist of two dashes and a keyword.
-The keyword can be abbreviated, as long the abbreviation allows the option
+Options begin with a dash and consist of a single character.
+GNU-style long options consist of two dashes and a keyword.
+The keyword can be abbreviated, as long as the abbreviation allows the option
to be uniquely identified. If the option takes an argument, then the
keyword is either immediately followed by an equals sign (@samp{=}) and the
argument's value, or the keyword and the argument's value are separated
-by whitespace. For brevity, the discussion below only refers to the
-traditional short options; however the long and short options are
-interchangeable in all contexts.
+by whitespace.
+If a particular option with a value is given more than once, it is the
+last value that counts.
-Each long option for @code{gawk} has a corresponding
-POSIX-style option. The options and their meanings are as follows:
+Each long option for @command{gawk} has a corresponding
+POSIX-style option.
+The long and short options are
+interchangeable in all contexts.
+The options and their meanings are as follows:
@table @code
@item -F @var{fs}
@itemx --field-separator @var{fs}
@cindex @code{-F} option
+@cindex command-line option, @code{-F}
@cindex @code{--field-separator} option
+@cindex command-line option, @code{--field-separator}
Sets the @code{FS} variable to @var{fs}
-(@pxref{Field Separators, ,Specifying How Fields are Separated}).
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}).
@item -f @var{source-file}
@itemx --file @var{source-file}
@cindex @code{-f} option
+@cindex command-line option, @code{-f}
@cindex @code{--file} option
-Indicates that the @code{awk} program is to be found in @var{source-file}
+@cindex command-line option, @code{--file}
+Indicates that the @command{awk} program is to be found in @var{source-file}
instead of in the first non-option argument.
@item -v @var{var}=@var{val}
@itemx --assign @var{var}=@var{val}
@cindex @code{-v} option
+@cindex command-line option, @code{-v}
@cindex @code{--assign} option
-Sets the variable @var{var} to the value @var{val} @strong{before}
+@cindex command-line option, @code{--assign}
+Sets the variable @var{var} to the value @var{val} @emph{before}
execution of the program begins. Such variable values are available
inside the @code{BEGIN} rule
-(@pxref{Other Arguments, ,Other Command Line Arguments}).
+(@pxref{Other Arguments, ,Other Command-Line Arguments}).
-The @samp{-v} option can only set one variable, but you can use
-it more than once, setting another variable each time, like this:
+The @option{-v} option can only set one variable, but it can be used
+more than once, setting another variable each time, like this:
@samp{awk @w{-v foo=1} @w{-v bar=2} @dots{}}.
-@strong{Caution:} Using @samp{-v} to set the values of the builtin
-variables may lead to suprising results. @code{awk} will reset the
+@strong{Caution:} Using @option{-v} to set the values of the built-in
+variables may lead to surprising results. @command{awk} will reset the
values of those variables as it needs to, possibly ignoring any
predefined value you may have given.
-@item -mf @var{NNN}
-@itemx -mr @var{NNN}
-Set various memory limits to the value @var{NNN}. The @samp{f} flag sets
-the maximum number of fields, and the @samp{r} flag sets the maximum
-record size. These two flags and the @samp{-m} option are from the
-Bell Labs research version of Unix @code{awk}. They are provided
-for compatibility, but otherwise ignored by
-@code{gawk}, since @code{gawk} has no predefined limits.
+@item -mf @var{N}
+@itemx -mr @var{N}
+@cindex @code{-mf} option
+@cindex command-line option, @code{-mf}
+@cindex @code{-mr} option
+@cindex command-line option, @code{-mr}
+Set various memory limits to the value @var{N}. The @samp{f} flag sets
+the maximum number of fields and the @samp{r} flag sets the maximum
+record size. These two flags and the @option{-m} option are from the
+Bell Laboratories research version of Unix @command{awk}. They are provided
+for compatibility but otherwise ignored by
+@command{gawk}, since @command{gawk} has no predefined limits.
+(The Bell Laboratories @command{awk} no longer needs these options;
+it continues to accept them to avoid breaking old programs.)
@item -W @var{gawk-opt}
@cindex @code{-W} option
-Following the POSIX standard, options that are implementation
-specific are supplied as arguments to the @samp{-W} option. These options
-also have corresponding GNU style long options.
-See below.
+@cindex command-line option, @code{-W}
+Following the POSIX standard, implementation-specific
+options are supplied as arguments to the @option{-W} option. These options
+also have corresponding GNU-style long options.
+Note that the long options may be abbreviated, as long as
+the abbreviations remain unique.
+The full list of @command{gawk}-specific options is provided next.
@item --
-Signals the end of the command line options. The following arguments
+Signals the end of the command-line options. The following arguments
are not treated as options even if they begin with @samp{-}. This
-interpretation of @samp{--} follows the POSIX argument parsing
+interpretation of @option{--} follows the POSIX argument parsing
conventions.
-This is useful if you have file names that start with @samp{-},
-or in shell scripts, if you have file names that will be specified
-by the user which could start with @samp{-}.
+This is useful if you have @value{FN}s that start with @samp{-},
+or in shell scripts, if you have @value{FN}s that will be specified
+by the user that could start with @samp{-}.
@end table
-The following @code{gawk}-specific options are available:
+The previous list described options mandated by the POSIX standard,
+as well as options available in the Bell Laboratories version of @command{awk}.
+The following list describes @command{gawk}-specific options:
@table @code
-@item -W traditional
-@itemx -W compat
-@itemx --traditional
+@item -W compat
+@itemx -W traditional
@itemx --compat
+@itemx --traditional
@cindex @code{--compat} option
+@cindex command-line option, @code{--compat}
@cindex @code{--traditional} option
+@cindex command-line option, @code{--traditional}
@cindex compatibility mode
Specifies @dfn{compatibility mode}, in which the GNU extensions to
-the @code{awk} language are disabled, so that @code{gawk} behaves just
-like the Bell Labs research version of Unix @code{awk}.
-@samp{--traditional} is the preferred form of this option.
-@xref{POSIX/GNU, ,Extensions in @code{gawk} Not in POSIX @code{awk}},
+the @command{awk} language are disabled, so that @command{gawk} behaves just
+like the Bell Laboratories research version of Unix @command{awk}.
+@option{--traditional} is the preferred form of this option.
+@xref{POSIX/GNU, ,Extensions in @command{gawk} Not in POSIX @command{awk}},
which summarizes the extensions. Also see
@ref{Compatibility Mode, ,Downward Compatibility and Debugging}.
+@item -W copyright
+@itemx --copyright
+@cindex @code{--copyright} option
+@cindex command-line option, @code{--copyright}
+Print the short version of the General Public License and then exit.
+
@item -W copyleft
-@itemx -W copyright
@itemx --copyleft
-@itemx --copyright
@cindex @code{--copyleft} option
-@cindex @code{--copyright} option
-Print the short version of the General Public License, and then exit.
-This option may disappear in a future version of @code{gawk}.
+@cindex command-line option, @code{--copyleft}
+Just like @option{--copyright}.
+This option may disappear in a future version of @command{gawk}.
+
+@cindex @code{--dump-variables} option
+@cindex command-line option, @code{--dump-variables}
+@cindex @file{awkvars.out} global variable list output file
+@item -W dump-variables@r{[}=@var{file}@r{]}
+@itemx --dump-variables@r{[}=@var{file}@r{]}
+Print a sorted list of global variables, their types, and final values
+to @var{file}. If no @var{file} is provided, @command{gawk} prints this
+list to a file named @file{awkvars.out} in the current directory.
+
+@cindex common mistakes
+@cindex mistakes, common
+@cindex errors, common
+Having a list of all the global variables is a good way to look for
+typographical errors in your programs.
+You would also use this option if you have a large program with a lot of
+functions, and you want to be sure that your functions don't
+inadvertently use global variables that you meant to be local.
+(This is a particularly easy mistake to make with simple variable
+names like @code{i}, @code{j}, and so on.)
+
+@item -W gen-po
+@itemx --gen-po
+@cindex @code{--gen-po} option
+@cindex command-line option, @code{--gen-po}
+Analyze the source program and
+generate a GNU @code{gettext} Portable Object file on standard
+output for all string constants that have been marked for translation.
+@xref{Internationalization, ,Internationalization with @command{gawk}},
+for information about this option.
@item -W help
@itemx -W usage
@itemx --help
@itemx --usage
@cindex @code{--help} option
+@cindex command-line option, @code{--help}
@cindex @code{--usage} option
+@cindex command-line option, @code{--usage}
Print a ``usage'' message summarizing the short and long style options
-that @code{gawk} accepts, and then exit.
+that @command{gawk} accepts and then exit.
-@item -W lint
-@itemx --lint
+@item -W lint@r{[}=fatal@r{]}
+@itemx --lint@r{[}=fatal@r{]}
@cindex @code{--lint} option
+@cindex command-line option, @code{--lint}
+@cindex lint checks
+@cindex fatal errors
Warn about constructs that are dubious or non-portable to
-other @code{awk} implementations.
-Some warnings are issued when @code{gawk} first reads your program. Others
-are issued at run-time, as your program executes.
+other @command{awk} implementations.
+Some warnings are issued when @command{gawk} first reads your program. Others
+are issued at runtime, as your program executes.
+With an optional argument of @samp{fatal},
+lint warnings become fatal errors.
+This may be drastic but its use will certainly encourage the
+development of cleaner @command{awk} programs.
@item -W lint-old
@itemx --lint-old
@cindex @code{--lint-old} option
-Warn about constructs that are not available in
-the original Version 7 Unix version of @code{awk}
-(@pxref{V7/SVR3.1, , Major Changes between V7 and SVR3.1}).
+@cindex command-line option, @code{--lint-old}
+@cindex lint checks
+Warn about constructs that are not available in the original version of
+@command{awk} from Version 7 Unix
+(@pxref{V7/SVR3.1, ,Major Changes Between V7 and SVR3.1}).
+
+@item -W non-decimal-data
+@itemx --non-decimal-data
+@cindex @code{--non-decimal-data} option
+@cindex command-line option, @code{--non-decimal-data}
+Enable automatic interpretation of octal and hexadecimal
+values in input data
+(@pxref{Non-decimal Data, ,Allowing Non-Decimal Input Data}).
+
+@strong{Caution:} This option can severely break old programs.
+Use with care.
@item -W posix
@itemx --posix
@cindex @code{--posix} option
+@cindex command-line option, @code{--posix}
@cindex POSIX mode
-Operate in strict POSIX mode. This disables all @code{gawk}
-extensions (just like @samp{--traditional}), and adds the following additional
+Operate in strict POSIX mode. This disables all @command{gawk}
+extensions (just like @option{--traditional}) and adds the following additional
restrictions:
@c IMPORTANT! Keep this list in sync with the one in node POSIX
@@ -11517,147 +15137,182 @@ restrictions:
@item
Newlines do not act as whitespace to separate fields when @code{FS} is
-equal to a single space.
+equal to a single space
+(@pxref{Fields, , Examining Fields}).
+
+@item
+Newlines are not allowed after @samp{?} or @samp{:}
+(@pxref{Conditional Exp, ,Conditional Expressions}).
@item
The synonym @code{func} for the keyword @code{function} is not
recognized (@pxref{Definition Syntax, ,Function Definition Syntax}).
@item
-The operators @samp{**} and @samp{**=} cannot be used in
+The @samp{**} and @samp{**=} operators cannot be used in
place of @samp{^} and @samp{^=} (@pxref{Arithmetic Ops, ,Arithmetic Operators},
and also @pxref{Assignment Ops, ,Assignment Expressions}).
@item
-Specifying @samp{-Ft} on the command line does not set the value
+Specifying @samp{-Ft} on the command-line does not set the value
of @code{FS} to be a single tab character
-(@pxref{Field Separators, ,Specifying How Fields are Separated}).
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}).
@item
The @code{fflush} built-in function is not supported
-(@pxref{I/O Functions, , Built-in Functions for Input/Output}).
+(@pxref{I/O Functions, ,Input/Output Functions}).
@end itemize
-If you supply both @samp{--traditional} and @samp{--posix} on the
-command line, @samp{--posix} will take precedence. @code{gawk}
-will also issue a warning if both options are supplied.
+@cindex automatic warnings
+@cindex warnings, automatic
+If you supply both @option{--traditional} and @option{--posix} on the
+command-line, @option{--posix} takes precedence. @command{gawk}
+also issues a warning if both options are supplied.
+
+@item -W profile@r{[}=@var{file}@r{]}
+@itemx --profile@r{[}=@var{file}@r{]}
+@cindex @code{--profile} option
+@cindex command-line option, @code{--profile}
+Enable profiling of @command{awk} programs
+(@pxref{Profiling, ,Profiling Your @command{awk} Programs}).
+By default, profiles are created in a file named @file{awkprof.out}.
+The optional @var{file} argument allows you to specify a different
+@value{FN} for the profile file.
+
+When run with @command{gawk}, the profile is just a ``pretty printed'' version
+of the program. When run with @command{pgawk}, the profile contains execution
+counts for each statement in the program in the left margin, and function
+call counts for each function.
@item -W re-interval
@itemx --re-interval
+@cindex @code{--re-interval} option
+@cindex command-line option, @code{--re-interval}
Allow interval expressions
-(@pxref{Regexp Operators, , Regular Expression Operators}),
+(@pxref{Regexp Operators, , Regular Expression Operators})
in regexps.
-Because interval expressions were traditionally not available in @code{awk},
-@code{gawk} does not provide them by default. This prevents old @code{awk}
+Because interval expressions were traditionally not available in @command{awk},
+@command{gawk} does not provide them by default. This prevents old @command{awk}
programs from breaking.
@item -W source @var{program-text}
@itemx --source @var{program-text}
@cindex @code{--source} option
+@cindex command-line option, @code{--source}
Program source code is taken from the @var{program-text}. This option
allows you to mix source code in files with source
-code that you enter on the command line. This is particularly useful
-when you have library functions that you wish to use from your command line
-programs (@pxref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}).
+code that you enter on the command-line. This is particularly useful
+when you have library functions that you want to use from your command-line
+programs (@pxref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}).
@item -W version
@itemx --version
@cindex @code{--version} option
-Prints version information for this particular copy of @code{gawk}.
-This allows you to determine if your copy of @code{gawk} is up to date
+@cindex command-line option, @code{--version}
+Print version information for this particular copy of @command{gawk}.
+This allows you to determine if your copy of @command{gawk} is up to date
with respect to whatever the Free Software Foundation is currently
distributing.
It is also useful for bug reports
(@pxref{Bugs, , Reporting Problems and Bugs}).
@end table
-Any other options are flagged as invalid with a warning message, but
+As long as program text has been supplied,
+any other options are flagged as invalid with a warning message but
are otherwise ignored.
In compatibility mode, as a special case, if the value of @var{fs} supplied
-to the @samp{-F} option is @samp{t}, then @code{FS} is set to the tab
-character (@code{"\t"}). This is only true for @samp{--traditional}, and not
-for @samp{--posix}
-(@pxref{Field Separators, ,Specifying How Fields are Separated}).
+to the @option{-F} option is @samp{t}, then @code{FS} is set to the tab
+character (@code{"\t"}). This is only true for @option{--traditional} and not
+for @option{--posix}
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}).
-The @samp{-f} option may be used more than once on the command line.
-If it is, @code{awk} reads its program source from all of the named files, as
+The @option{-f} option may be used more than once on the command-line.
+If it is, @command{awk} reads its program source from all of the named files, as
if they had been concatenated together into one big file. This is
-useful for creating libraries of @code{awk} functions. Useful functions
-can be written once, and then retrieved from a standard place, instead
+useful for creating libraries of @command{awk} functions. These functions
+can be written once and then retrieved from a standard place, instead
of having to be included into each individual program.
+(As mentioned in
+@ref{Definition Syntax, ,Function Definition Syntax},
+function names must be unique.)
-You can type in a program at the terminal and still use library functions,
-by specifying @samp{-f /dev/tty}. @code{awk} will read a file from the terminal
-to use as part of the @code{awk} program. After typing your program,
-type @kbd{Control-d} (the end-of-file character) to terminate it.
+Library functions can still be used, even if the program is entered at the terminal,
+by specifying @samp{-f /dev/tty}. After typing your program,
+type @kbd{Ctrl-d} (the end-of-file character) to terminate it.
(You may also use @samp{-f -} to read program source from the standard
-input, but then you will not be able to also use the standard input as a
+input but then you will not be able to also use the standard input as a
source of data.)
-Because it is clumsy using the standard @code{awk} mechanisms to mix source
-file and command line @code{awk} programs, @code{gawk} provides the
-@samp{--source} option. This does not require you to pre-empt the standard
-input for your source code, and allows you to easily mix command line
+Because it is clumsy using the standard @command{awk} mechanisms to mix source
+file and command-line @command{awk} programs, @command{gawk} provides the
+@option{--source} option. This does not require you to pre-empt the standard
+input for your source code; it allows you to easily mix command-line
and library source code
-(@pxref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}).
+(@pxref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}).
-If no @samp{-f} or @samp{--source} option is specified, then @code{gawk}
-will use the first non-option command line argument as the text of the
+If no @option{-f} or @option{--source} option is specified, then @command{gawk}
+uses the first non-option command-line argument as the text of the
program source code.
@cindex @code{POSIXLY_CORRECT} environment variable
@cindex environment variable, @code{POSIXLY_CORRECT}
-If the environment variable @code{POSIXLY_CORRECT} exists,
-then @code{gawk} will behave in strict POSIX mode, exactly as if
-you had supplied the @samp{--posix} command line option.
+@cindex lint checks
+If the environment variable @env{POSIXLY_CORRECT} exists,
+then @command{gawk} behaves in strict POSIX mode, exactly as if
+you had supplied the @option{--posix} command-line option.
Many GNU programs look for this environment variable to turn on
-strict POSIX mode. If you supply @samp{--lint} on the command line,
-and @code{gawk} turns on POSIX mode because of @code{POSIXLY_CORRECT},
-then it will print a warning message indicating that POSIX
+strict POSIX mode. If @option{--lint} is supplied on the command-line
+and @command{gawk} turns on POSIX mode because of @env{POSIXLY_CORRECT},
+then it issues a warning message indicating that POSIX
mode is in effect.
-
You would typically set this variable in your shell's startup file.
-For a Bourne compatible shell (such as Bash), you would add these
-lines to the @file{.profile} file in your home directory.
+For a Bourne-compatible shell (such as @command{bash}), you would add these
+lines to the @file{.profile} file in your home directory:
@example
-@group
POSIXLY_CORRECT=true
export POSIXLY_CORRECT
-@end group
@end example
-For a @code{csh} compatible shell,@footnote{Not recommended.}
-you would add this line to the @file{.login} file in your home directory.
+@cindex @command{csh} utility
+For a @command{csh} compatible
+shell,@footnote{Not recommended.}
+you would add this line to the @file{.login} file in your home directory:
@example
setenv POSIXLY_CORRECT true
@end example
+Having @env{POSIXLY_CORRECT} set is not recommended for daily use,
+but it is good for testing the portability of your programs to other
+environments.
+
@node Other Arguments, AWKPATH Variable, Options, Invoking Gawk
-@section Other Command Line Arguments
+@section Other Command-Line Arguments
-Any additional arguments on the command line are normally treated as
+Any additional arguments on the command-line are normally treated as
input files to be processed in the order specified. However, an
argument that has the form @code{@var{var}=@var{value}}, assigns
the value @var{value} to the variable @var{var}---it does not specify a
file at all.
+(This was discussed earlier in
+@ref{Assignment Options, ,Assigning Variables on the Command Line}.)
-@vindex ARGIND
-@vindex ARGV
-All these arguments are made available to your @code{awk} program in the
-@code{ARGV} array (@pxref{Built-in Variables}). Command line options
+@cindex @code{ARGIND} variable
+@cindex @code{ARGV} variable
+All these arguments are made available to your @command{awk} program in the
+@code{ARGV} array (@pxref{Built-in Variables}). Command-line options
and the program text (if present) are omitted from @code{ARGV}.
All other arguments, including variable assignments, are
-included. As each element of @code{ARGV} is processed, @code{gawk}
+included. As each element of @code{ARGV} is processed, @command{gawk}
sets the variable @code{ARGIND} to the index in @code{ARGV} of the
current element.
-The distinction between file name arguments and variable-assignment
-arguments is made when @code{awk} is about to open the next input file.
-At that point in execution, it checks the ``file name'' to see whether
-it is really a variable assignment; if so, @code{awk} sets the variable
+The distinction between @value{FN} arguments and variable-assignment
+arguments is made when @command{awk} is about to open the next input file.
+At that point in execution, it checks the @value{FN} to see whether
+it is really a variable assignment; if so, @command{awk} sets the variable
instead of reading a file.
Therefore, the variables actually receive the given values after all
@@ -11665,26 +15320,27 @@ previously specified files have been read. In particular, the values of
variables assigned in this fashion are @emph{not} available inside a
@code{BEGIN} rule
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}),
-since such rules are run before @code{awk} begins scanning the argument list.
+because such rules are run before @command{awk} begins scanning the argument list.
@cindex dark corner
-The variable values given on the command line are processed for escape
-sequences (d.c.) (@pxref{Escape Sequences}).
-
-In some earlier implementations of @code{awk}, when a variable assignment
-occurred before any file names, the assignment would happen @emph{before}
-the @code{BEGIN} rule was executed. @code{awk}'s behavior was thus
-inconsistent; some command line assignments were available inside the
-@code{BEGIN} rule, while others were not. However,
+The variable values given on the command-line are processed for escape
+sequences (@pxref{Escape Sequences}).
+@value{DARKCORNER}
+
+In some earlier implementations of @command{awk}, when a variable assignment
+occurred before any @value{FN}s, the assignment would happen @emph{before}
+the @code{BEGIN} rule was executed. @command{awk}'s behavior was thus
+inconsistent; some command-line assignments were available inside the
+@code{BEGIN} rule, while others were not. Unfortunately,
some applications came to depend
-upon this ``feature.'' When @code{awk} was changed to be more consistent,
-the @samp{-v} option was added to accommodate applications that depended
+upon this ``feature.'' When @command{awk} was changed to be more consistent,
+the @option{-v} option was added to accommodate applications that depended
upon the old behavior.
The variable assignment feature is most useful for assigning to variables
such as @code{RS}, @code{OFS}, and @code{ORS}, which control input and
-output formats, before scanning the data files. It is also useful for
-controlling state if multiple passes are needed over a data file. For
+output formats before scanning the @value{DF}s. It is also useful for
+controlling state if multiple passes are needed over a @value{DF}. For
example:
@cindex multiple passes over data
@@ -11694,71 +15350,78 @@ awk 'pass == 1 @{ @var{pass 1 stuff} @}
pass == 2 @{ @var{pass 2 stuff} @}' pass=1 mydata pass=2 mydata
@end example
-Given the variable assignment feature, the @samp{-F} option for setting
+Given the variable assignment feature, the @option{-F} option for setting
the value of @code{FS} is not
strictly necessary. It remains for historical compatibility.
@node AWKPATH Variable, Obsolete, Other Arguments, Invoking Gawk
-@section The @code{AWKPATH} Environment Variable
-@cindex @code{AWKPATH} environment variable
-@cindex environment variable, @code{AWKPATH}
+@section The @env{AWKPATH} Environment Variable
+@cindex @env{AWKPATH} environment variable
+@cindex environment variable, @env{AWKPATH}
@cindex search path
@cindex directory search
@cindex path, search
-@cindex differences between @code{gawk} and @code{awk}
-
-The previous section described how @code{awk} program files can be named
-on the command line with the @samp{-f} option. In most @code{awk}
+@cindex search path, for source files
+@cindex differences between @command{gawk} and @command{awk}
+@ifinfo
+The previous @value{SECTION} described how @command{awk} program files can be named
+on the command-line with the @option{-f} option.
+@end ifinfo
+In most @command{awk}
implementations, you must supply a precise path name for each program
file, unless the file is in the current directory.
-
-@cindex search path, for source files
-But in @code{gawk}, if the file name supplied to the @samp{-f} option
-does not contain a @samp{/}, then @code{gawk} searches a list of
+But in @command{gawk}, if the @value{FN} supplied to the @option{-f} option
+does not contain a @samp{/}, then @command{gawk} searches a list of
directories (called the @dfn{search path}), one by one, looking for a
file with the specified name.
The search path is a string consisting of directory names
-separated by colons. @code{gawk} gets its search path from the
-@code{AWKPATH} environment variable. If that variable does not exist,
-@code{gawk} uses a default path, which is
-@samp{.:/usr/local/share/awk}.@footnote{Your version of @code{gawk}
+separated by colons. @command{gawk} gets its search path from the
+@env{AWKPATH} environment variable. If that variable does not exist,
+@command{gawk} uses a default path, which is
+@samp{.:/usr/local/share/awk}.@footnote{Your version of @command{gawk}
may use a different directory; it
-will depend upon how @code{gawk} was built and installed. The actual
-directory will be the value of @samp{$(datadir)} generated when
-@code{gawk} was configured. You probably don't need to worry about this
+will depend upon how @command{gawk} was built and installed. The actual
+directory is the value of @samp{$(datadir)} generated when
+@command{gawk} was configured. You probably don't need to worry about this
though.} (Programs written for use by
-system administrators should use an @code{AWKPATH} variable that
+system administrators should use an @env{AWKPATH} variable that
does not include the current directory, @file{.}.)
-The search path feature is particularly useful for building up libraries
-of useful @code{awk} functions. The library files can be placed in a
-standard directory that is in the default path, and then specified on
-the command line with a short file name. Otherwise, the full file name
+The search path feature is particularly useful for building libraries
+of useful @command{awk} functions. The library files can be placed in a
+standard directory in the default path and then specified on
+the command-line with a short @value{FN}. Otherwise, the full @value{FN}
would have to be typed for each file.
-By using both the @samp{--source} and @samp{-f} options, your command line
-@code{awk} programs can use facilities in @code{awk} library files.
-@xref{Library Functions, , A Library of @code{awk} Functions}.
+By using both the @option{--source} and @option{-f} options, your command-line
+@command{awk} programs can use facilities in @command{awk} library files.
+@xref{Library Functions, , A Library of @command{awk} Functions}.
+Path searching is not done if @command{gawk} is in compatibility mode.
+This is true for both @option{--traditional} and @option{--posix}.
+@xref{Options, ,Command-Line Options}.
-Path searching is not done if @code{gawk} is in compatibility mode.
-This is true for both @samp{--traditional} and @samp{--posix}.
-@xref{Options, ,Command Line Options}.
-
-@strong{Note:} if you want files in the current directory to be found,
+@strong{Note:} If you want files in the current directory to be found,
you must include the current directory in the path, either by including
-@file{.} explicitly in the path, or by writing a null entry in the
+@file{.} explicitly in the path or by writing a null entry in the
path. (A null entry is indicated by starting or ending the path with a
-colon, or by placing two colons next to each other (@samp{::}).) If the
+colon or by placing two colons next to each other (@samp{::}).) If the
current directory is not included in the path, then files cannot be
found in the current directory. This path search mechanism is identical
to the shell's.
@c someday, @cite{The Bourne Again Shell}....
-Starting with version 3.0, if @code{AWKPATH} is not defined in the
-environment, @code{gawk} will place its default search path into
+Starting with @value{PVERSION} 3.0, if @env{AWKPATH} is not defined in the
+environment, @command{gawk} places its default search path into
@code{ENVIRON["AWKPATH"]}. This makes it easy to determine
-the actual search path @code{gawk} will use.
+the actual search path that @command{gawk} will use
+from within an @command{awk} program.
+
+While you can change @code{ENVIRON["AWKPATH"]} within your @command{awk}
+program, this has no effect on the running program's behavior. This makes
+sense: the @env{AWKPATH} environment variable is used to find the program
+source files. Once your program is running, all the files have been
+found, and @command{gawk} no longer needs to use @env{AWKPATH}.
@node Obsolete, Undocumented, AWKPATH Variable, Invoking Gawk
@section Obsolete Options and/or Features
@@ -11767,72 +15430,78 @@ the actual search path @code{gawk} will use.
@cindex obsolete options
@cindex deprecated features
@cindex obsolete features
-This section describes features and/or command line options from
-previous releases of @code{gawk} that are either not available in the
-current version, or that are still supported but deprecated (meaning that
+This @value{SECTION} describes features and/or command-line options from
+previous releases of @command{gawk} that are either not available in the
+current version or that are still supported but deprecated (meaning that
they will @emph{not} be in the next release).
@c update this section for each release!
-For version @value{VERSION}.@value{PATCHLEVEL} of @code{gawk}, there are no
-command line options
-or other deprecated features from the previous version of @code{gawk}.
-@iftex
-This section
-@end iftex
-@ifinfo
-This node
-@end ifinfo
-is thus essentially a place holder,
-in case some option becomes obsolete in a future version of @code{gawk}.
+For @value{PVERSION} @value{VERSION} of @command{gawk}, there are no
+deprecated command-line options
+@c or other deprecated features
+from the previous version of @command{gawk}.
+The use of @samp{next file} (two words) for @code{nextfile} was deprecated
+in @command{gawk} 3.0 but still worked. Starting with @value{PVERSION} 3.1, the
+two word usage is no longer accepted.
+
+The process-related special files described in
+@ref{Special Process, ,Special Files for Process-Related Information},
+work as described, but
+are now considered deprecated.
+@command{gawk} prints a warning message every time they are used.
+(Use @code{PROCINFO} instead; see
+@ref{Auto-set, ,Built-in Variables That Convey Information}.)
+They will be removed from the next release of @command{gawk}.
@ignore
-@c This is pretty old news...
-The public-domain version of @code{strftime} that is distributed with
-@code{gawk} changed for the 2.14 release. The @samp{%V} conversion specifier
-that used to generate the date in VMS format was changed to @samp{%v}.
-This is because the POSIX standard for the @code{date} utility now
-specifies a @samp{%V} conversion specifier.
-@xref{Time Functions, ,Functions for Dealing with Time Stamps}, for details.
+This @value{SECTION}
+is thus essentially a place holder,
+in case some option becomes obsolete in a future version of @command{gawk}.
@end ignore
@node Undocumented, Known Bugs, Obsolete, Invoking Gawk
@section Undocumented Options and Features
@cindex undocumented features
-@display
-@i{Use the Source, Luke!}
+@cindex features, undocumented
+@cindex Skywalker, Luke
+@cindex Kenobi, Obi-Wan
+@cindex Jedi knights
+@cindex Knights, jedi
+@quotation
+@i{Use the Source, Luke!}@*
Obi-Wan
-@end display
-@sp 1
-
-This section intentionally left blank.
+@end quotation
-@c Read The Source, Luke!
+This @value{SECTION} intentionally left
+blank.
@ignore
@c If these came out in the Info file or TeX document, then they wouldn't
@c be undocumented, would they?
-@code{gawk} has one undocumented option:
+@command{gawk} has one undocumented option:
@table @code
@item -W nostalgia
@itemx --nostalgia
Print the message @code{"awk: bailing out near line 1"} and dump core.
This option was inspired by the common behavior of very early versions of
-Unix @code{awk}, and by a t--shirt.
+Unix @command{awk} and by a t--shirt.
+The message is @emph{not} subject to translation in non-English locales.
+@c so there! nyah, nyah.
@end table
-Early versions of @code{awk} used to not require any separator (either
-a newline or @samp{;}) between the rules in @code{awk} programs. Thus,
+Early versions of @command{awk} used to not require any separator (either
+a newline or @samp{;}) between the rules in @command{awk} programs. Thus,
it was common to see one-line programs like:
@example
awk '@{ sum += $1 @} END @{ print sum @}'
@end example
-@code{gawk} actually supports this, but it is purposely undocumented
-since it is considered bad style. The correct way to write such a program
+@command{gawk} actually supports this but it is purposely undocumented
+because it is considered bad style. The correct way to write such a program
is either
@example
@@ -11848,109 +15517,123 @@ awk '@{ sum += $1 @}
@end example
@noindent
-@xref{Statements/Lines, ,@code{awk} Statements Versus Lines}, for a fuller
+@xref{Statements/Lines, ,@command{awk} Statements Versus Lines}, for a fuller
explanation.
+You can insert newlines after the @samp{;} in @code{for} loops.
+This seems to have been a long-undocumented feature in Unix @command{awk}.
+
+If the environment variable @env{WHINY_USERS} exists
+when @command{gawk} is run,
+then the associative @code{for} loop will go through the array
+indices in sorted order.
+The comparison used for sorting is simple string comparison;
+any non-English or non-ASCII locales are not taken into account.
+@code{IGNORECASE} does not affect the comparison either.
+
@end ignore
@node Known Bugs, , Undocumented, Invoking Gawk
-@section Known Bugs in @code{gawk}
-@cindex bugs, known in @code{gawk}
+@section Known Bugs in @command{gawk}
+@cindex bugs, known in @command{gawk}
@cindex known bugs
@itemize @bullet
@item
-The @samp{-F} option for changing the value of @code{FS}
-(@pxref{Options, ,Command Line Options})
-is not necessary given the command line variable
+The @option{-F} option for changing the value of @code{FS}
+(@pxref{Options, ,Command-Line Options})
+is not necessary given the command-line variable
assignment feature; it remains only for backwards compatibility.
@item
-If your system actually has support for @file{/dev/fd} and the
-associated @file{/dev/stdin}, @file{/dev/stdout}, and
-@file{/dev/stderr} files, you may get different output from @code{gawk}
-than you would get on a system without those files. When @code{gawk}
-interprets these files internally, it synchronizes output to the
-standard output with output to @file{/dev/stdout}, while on a system
-with those files, the output is actually to different open files
-(@pxref{Special Files, ,Special File Names in @code{gawk}}).
-
-@item
Syntactically invalid single character programs tend to overflow
the parse stack, generating a rather unhelpful message. Such programs
-are surprisingly difficult to diagnose in the completely general case,
+are surprisingly difficult to diagnose in the completely general case
and the effort to do so really is not worth it.
@end itemize
+@ignore
+@c Try this
+@iftex
+@page
+@headings off
+@majorheading II@ @ @ Using @command{awk} and @command{gawk}
+Part II shows how to use @command{awk} and @command{gawk} for problem solving.
+There is lots of code here for you to read and learn from.
+It contains the following chapters:
+
+@itemize @bullet
+@item
+@ref{Library Functions, ,A Library of @command{awk} Functions}.
+
+@item
+@ref{Sample Programs, ,Practical @command{awk} Programs}.
+
+@end itemize
+
+@page
+@evenheading @thispage@ @ @ @strong{@value{TITLE}} @| @|
+@oddheading @| @| @strong{@thischapter}@ @ @ @thispage
+@end iftex
+@end ignore
+
@node Library Functions, Sample Programs, Invoking Gawk, Top
-@chapter A Library of @code{awk} Functions
+@chapter A Library of @command{awk} Functions
+
+@ref{User-defined, ,User-Defined Functions}, describes how to write
+your own @command{awk} functions. Writing functions is important, because
+it allows you to encapsulate algorithms and program tasks in a single
+place. It simplifies programming, making program development more
+manageable, and making programs more readable.
+
+One valuable way to learn a new programming language is to @emph{read}
+programs in that language. To that end, this @value{CHAPTER}
+and @ref{Sample Programs, ,Practical @command{awk} Programs},
+provide a good-sized body of code for you to read,
+and hopefully, to learn from.
@c 2e: USE TEXINFO-2 FUNCTION DEFINITION STUFF!!!!!!!!!!!!!
-This chapter presents a library of useful @code{awk} functions. The
-sample programs presented later
-(@pxref{Sample Programs, ,Practical @code{awk} Programs})
+This @value{CHAPTER} presents a library of useful @command{awk} functions.
+Many of the sample programs presented later in this @value{DOCUMENT}
use these functions.
The functions are presented here in a progression from simple to complex.
+@cindex Texinfo
@ref{Extract Program, ,Extracting Programs from Texinfo Source Files},
presents a program that you can use to extract the source code for
these example library functions and programs from the Texinfo source
for this @value{DOCUMENT}.
-(This has already been done as part of the @code{gawk} distribution.)
+(This has already been done as part of the @command{gawk} distribution.)
-If you have written one or more useful, general purpose @code{awk} functions,
-and would like to contribute them for a subsequent edition of this @value{DOCUMENT},
-please contact the author. @xref{Bugs, ,Reporting Problems and Bugs},
-for information on doing this. Don't just send code, as you will be
-required to either place your code in the public domain,
-publish it under the GPL (@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE}),
-or assign the copyright in it to the Free Software Foundation.
-
-@menu
-* Portability Notes:: What to do if you don't have @code{gawk}.
-* Nextfile Function:: Two implementations of a @code{nextfile}
- function.
-* Assert Function:: A function for assertions in @code{awk}
- programs.
-* Round Function:: A function for rounding if @code{sprintf} does
- not do it correctly.
-* Ordinal Functions:: Functions for using characters as numbers and
- vice versa.
-* Join Function:: A function to join an array into a string.
-* Mktime Function:: A function to turn a date into a timestamp.
-* Gettimeofday Function:: A function to get formatted times.
-* Filetrans Function:: A function for handling data file transitions.
-* Getopt Function:: A function for processing command line
- arguments.
-* Passwd Functions:: Functions for getting user information.
-* Group Functions:: Functions for getting group information.
-* Library Names:: How to best name private global variables in
- library functions.
-@end menu
+If you have written one or more useful, general purpose @command{awk} functions
+and would like to contribute them to the author's collection of @command{awk}
+programs, see
+@ref{How To Contribute, ,How to Contribute}, for more information.
-@node Portability Notes, Nextfile Function, Library Functions, Library Functions
-@section Simulating @code{gawk}-specific Features
@cindex portability issues
-
-The programs in this chapter and in
-@ref{Sample Programs, ,Practical @code{awk} Programs},
-freely use features that are specific to @code{gawk}.
-This section briefly discusses how you can rewrite these programs for
-different implementations of @code{awk}.
+The programs in this @value{CHAPTER} and in
+@ref{Sample Programs, ,Practical @command{awk} Programs},
+freely use features that are @command{gawk}-specific.
+It is straightforward to rewrite these programs for
+different implementations of @command{awk}.
Diagnostic error messages are sent to @file{/dev/stderr}.
Use @samp{| "cat 1>&2"} instead of @samp{> "/dev/stderr"}, if your system
-does not have a @file{/dev/stderr}, or if you cannot use @code{gawk}.
+does not have a @file{/dev/stderr} or if you cannot use @command{gawk}.
A number of programs use @code{nextfile}
-(@pxref{Nextfile Statement, ,The @code{nextfile} Statement}),
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement})
to skip any remaining input in the input file.
@ref{Nextfile Function, ,Implementing @code{nextfile} as a Function},
-shows you how to write a function that will do the same thing.
-
-Finally, some of the programs choose to ignore upper-case and lower-case
-distinctions in their input. They do this by assigning one to @code{IGNORECASE}.
-You can achieve the same effect by adding the following rule to the
+shows you how to write a function that does the same thing.
+
+@c 12/2000: Thanks to Nelson Beebe for pointing out the output issue.
+Finally, some of the programs choose to ignore upper- and lowercase
+distinctions in their input. They do so by assigning one to @code{IGNORECASE}.
+You can achieve almost the same effect@footnote{The effects are
+not identical. Output of the transformed
+record will be in all lowercase, while @code{IGNORECASE} preserves the original
+contents of the input record.} by adding the following rule to the
beginning of the program:
@example
@@ -11960,174 +15643,302 @@ beginning of the program:
@noindent
Also, verify that all regexp and string constants used in
-comparisons only use lower-case letters.
+comparisons only use lowercase letters.
+
+@menu
+* Library Names:: How to best name private global variables in
+ library functions.
+* General Functions:: Functions that are of general use.
+* Data File Management:: Functions for managing command-line data
+ files.
+* Getopt Function:: A function for processing command-line
+ arguments.
+* Passwd Functions:: Functions for getting user information.
+* Group Functions:: Functions for getting group information.
+@end menu
+
+@node Library Names, General Functions, Library Functions, Library Functions
+@section Naming Library Function Global Variables
+
+@cindex names, use of
+@cindex namespace issues in @command{awk}
+@cindex documenting @command{awk} programs
+@cindex programs, documenting
+Due to the way the @command{awk} language evolved, variables are either
+@dfn{global} (usable by the entire program) or @dfn{local} (usable just by
+a specific function). There is no intermediate state analogous to
+@code{static} variables in C.
+
+Library functions often need to have global variables that they can use to
+preserve state information between calls to the function---for example,
+@code{getopt}'s variable @code{_opti}
+(@pxref{Getopt Function, ,Processing Command-Line Options}).
+Such variables are called @dfn{private}, since the only functions that need to
+use them are the ones in the library.
+
+When writing a library function, you should try to choose names for your
+private variables that will not conflict with any variables used by
+either another library function or a user's main program. For example, a
+name like @samp{i} or @samp{j} is not a good choice, because user programs
+often use variable names like these for their own purposes.
+
+@cindex conventions, programming
+@cindex programming conventions
+The example programs shown in this @value{CHAPTER} all start the names of their
+private variables with an underscore (@samp{_}). Users generally don't use
+leading underscores in their variable names, so this convention immediately
+decreases the chances that the variable name will be accidentally shared
+with the user's program.
+
+In addition, several of the library functions use a prefix that helps
+indicate what function or set of functions use the variables---for example,
+@code{_pw_byname} in the user database routines
+(@pxref{Passwd Functions, ,Reading the User Database}).
+This convention is recommended, since it even further decreases the
+chance of inadvertent conflict among variable names. Note that this
+convention is used equally well for variable names and for private
+function names as well.@footnote{While all the library routines could have
+been rewritten to use this convention, this was not done, in order to
+show how my own @command{awk} programming style has evolved, and to
+provide some basis for this discussion.}
+
+As a final note on variable naming, if a function makes global variables
+available for use by a main program, it is a good convention to start that
+variable's name with a capital letter---for
+example, @code{getopt}'s @code{Opterr} and @code{Optind} variables
+(@pxref{Getopt Function, ,Processing Command-Line Options}).
+The leading capital letter indicates that it is global, while the fact that
+the variable name is not all capital letters indicates that the variable is
+not one of @command{awk}'s built-in variables, such as @code{FS}.
+
+It is also important that @emph{all} variables in library
+functions that do not need to save state are, in fact, declared
+local.@footnote{@command{gawk}'s @option{--dump-variables} command-line
+option is useful for verifying this.} If this is not done, the variable
+could accidentally be used in the user's program, leading to bugs that
+are very difficult to track down:
+
+@example
+function lib_func(x, y, l1, l2)
+@{
+ @dots{}
+ @var{use variable} some_var # some_var should be local
+ @dots{} # but is not by oversight
+@}
+@end example
+
+@cindex Tcl
+A different convention, common in the Tcl community, is to use a single
+associative array to hold the values needed by the library function(s), or
+``package.'' This significantly decreases the number of actual global names
+in use. For example, the functions described in
+@ref{Passwd Functions, , Reading the User Database},
+might have used array elements @code{@w{PW_data["inited"]}}, @code{@w{PW_data["total"]}},
+@code{@w{PW_data["count"]}}, and @code{@w{PW_data["awklib"]}}, instead of
+@code{@w{_pw_inited}}, @code{@w{_pw_awklib}}, @code{@w{_pw_total}},
+and @code{@w{_pw_count}}.
+
+The conventions presented in this @value{SECTION} are exactly
+that: conventions. You are not required to write your programs this
+way---we merely recommend that you do so.
+
+@node General Functions, Data File Management, Library Names, Library Functions
+@section General Programming
+
+This @value{SECTION} presents a number of functions that are of general
+programming use.
+
+@menu
+* Nextfile Function:: Two implementations of a @code{nextfile}
+ function.
+* Assert Function:: A function for assertions in @command{awk}
+ programs.
+* Round Function:: A function for rounding if @code{sprintf} does
+ not do it correctly.
+* Cliff Random Function:: The Cliff Random Number Generator.
+* Ordinal Functions:: Functions for using characters as numbers and
+ vice versa.
+* Join Function:: A function to join an array into a string.
+* Gettimeofday Function:: A function to get formatted times.
+@end menu
-@node Nextfile Function, Assert Function, Portability Notes, Library Functions
-@section Implementing @code{nextfile} as a Function
+@node Nextfile Function, Assert Function, General Functions, General Functions
+@subsection Implementing @code{nextfile} as a Function
@cindex skipping input files
@cindex input files, skipping
The @code{nextfile} statement presented in
-@ref{Nextfile Statement, ,The @code{nextfile} Statement},
-is a @code{gawk}-specific extension. It is not available in other
-implementations of @code{awk}. This section shows two versions of a
-@code{nextfile} function that you can use to simulate @code{gawk}'s
-@code{nextfile} statement if you cannot use @code{gawk}.
+@ref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement},
+is a @command{gawk}-specific extension---it is not available in most other
+implementations of @command{awk}. This @value{SECTION} shows two versions of a
+@code{nextfile} function that you can use to simulate @command{gawk}'s
+@code{nextfile} statement if you cannot use @command{gawk}.
-Here is a first attempt at writing a @code{nextfile} function.
+A first attempt at writing a @code{nextfile} function is as follows:
@example
-@group
# nextfile --- skip remaining records in current file
-
# this should be read in before the "main" awk program
function nextfile() @{ _abandon_ = FILENAME; next @}
-
_abandon_ == FILENAME @{ next @}
-@end group
@end example
-This file should be included before the main program, because it supplies
-a rule that must be executed first. This rule compares the current data
-file's name (which is always in the @code{FILENAME} variable) to a private
-variable named @code{_abandon_}. If the file name matches, then the action
-part of the rule executes a @code{next} statement, to go on to the next
-record. (The use of @samp{_} in the variable name is a convention.
-It is discussed more fully in
+@cindex conventions, programming
+@cindex programming conventions
+Because it supplies a rule that must be executed first, this file should
+be included before the main program. This rule compares the current
+@value{DF}'s name (which is always in the @code{FILENAME} variable) to
+a private variable named @code{_abandon_}. If the @value{FN} matches,
+then the action part of the rule executes a @code{next} statement to
+go on to the next record. (The use of @samp{_} in the variable name is
+a convention. It is discussed more fully in
@ref{Library Names, , Naming Library Function Global Variables}.)
The use of the @code{next} statement effectively creates a loop that reads
-all the records from the current data file.
-Eventually, the end of the file is reached, and
-a new data file is opened, changing the value of @code{FILENAME}.
+all the records from the current @value{DF}.
+The end of the file is eventually reached and
+a new @value{DF} is opened, changing the value of @code{FILENAME}.
Once this happens, the comparison of @code{_abandon_} to @code{FILENAME}
-fails, and execution continues with the first rule of the ``real'' program.
+fails and execution continues with the first rule of the ``real'' program.
The @code{nextfile} function itself simply sets the value of @code{_abandon_}
-and then executes a @code{next} statement to start the loop
-going.@footnote{Some implementations of @code{awk} do not allow you to
-execute @code{next} from within a function body. Some other work-around
-will be necessary if you use such a version.}
-@c mawk is what we're talking about.
-
-This initial version has a subtle problem. What happens if the same data
-file is listed @emph{twice} on the command line, one right after the other,
-or even with just a variable assignment between the two occurrences of
-the file name?
-
-@c @findex nextfile
-@c do it this way, since all the indices are merged
-@cindex @code{nextfile} function
-In such a case,
-this code will skip right through the file, a second time, even though
+and then executes a @code{next} statement to start the
+loop.
+@ignore
+@c If the function can't be used on other versions of awk, this whole
+@c section is pointless, no? Sigh.
+@footnote{@command{gawk} is the only known @command{awk} implementation
+that allows you to
+execute @code{next} from within a function body. Some other workaround
+is necessary if you are not using @command{gawk}.}
+@end ignore
+
+@cindex @code{nextfile} user-defined function
+This initial version has a subtle problem.
+If the same @value{DF} is listed @emph{twice} on the commandline,
+one right after the other
+or even with just a variable assignment between them,
+this code skips right through the file, a second time, even though
it should stop when it gets to the end of the first occurrence.
-Here is a second version of @code{nextfile} that remedies this problem.
+A second version of @code{nextfile} that remedies this problem
+is shown here:
@example
@c file eg/lib/nextfile.awk
# nextfile --- skip remaining records in current file
# correctly handle successive occurrences of the same file
+@c endfile
+@ignore
+@c file eg/lib/nextfile.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May, 1993
+@c endfile
+@end ignore
+@c file eg/lib/nextfile.awk
# this should be read in before the "main" awk program
function nextfile() @{ _abandon_ = FILENAME; next @}
-@group
_abandon_ == FILENAME @{
if (FNR == 1)
_abandon_ = ""
else
next
@}
-@end group
@c endfile
@end example
-The @code{nextfile} function has not changed. It sets @code{_abandon_}
-equal to the current file name and then executes a @code{next} satement.
-The @code{next} statement reads the next record and increments @code{FNR},
-so @code{FNR} is guaranteed to have a value of at least two.
+The @code{nextfile} function has not changed. It makes @code{_abandon_}
+equal to the current @value{FN} and then executes a @code{next} statement.
+The @code{next} statement reads the next record and increments @code{FNR}
+so that @code{FNR} is guaranteed to have a value of at least two.
However, if @code{nextfile} is called for the last record in the file,
-then @code{awk} will close the current data file and move on to the next
-one. Upon doing so, @code{FILENAME} will be set to the name of the new file,
-and @code{FNR} will be reset to one. If this next file is the same as
-the previous one, @code{_abandon_} will still be equal to @code{FILENAME}.
-However, @code{FNR} will be equal to one, telling us that this is a new
-occurrence of the file, and not the one we were reading when the
+then @command{awk} closes the current @value{DF} and moves on to the next
+one. Upon doing so, @code{FILENAME} is set to the name of the new file
+and @code{FNR} is reset to one. If this next file is the same as
+the previous one, @code{_abandon_} is still equal to @code{FILENAME}.
+However, @code{FNR} is equal to one, telling us that this is a new
+occurrence of the file and not the one we were reading when the
@code{nextfile} function was executed. In that case, @code{_abandon_}
is reset to the empty string, so that further executions of this rule
-will fail (until the next time that @code{nextfile} is called).
+fail (until the next time that @code{nextfile} is called).
-If @code{FNR} is not one, then we are still in the original data file,
+If @code{FNR} is not one, then we are still in the original @value{DF}
and the program executes a @code{next} statement to skip through it.
-An important question to ask at this point is: ``Given that the
+An important question to ask at this point is: given that the
functionality of @code{nextfile} can be provided with a library file,
-why is it built into @code{gawk}?'' This is an important question. Adding
+why is it built into @command{gawk}? Adding
features for little reason leads to larger, slower programs that are
harder to maintain.
-
-The answer is that building @code{nextfile} into @code{gawk} provides
+The answer is that building @code{nextfile} into @command{gawk} provides
significant gains in efficiency. If the @code{nextfile} function is executed
-at the beginning of a large data file, @code{awk} still has to scan the entire
-file, splitting it up into records, just to skip over it. The built-in
+at the beginning of a large @value{DF}, @command{awk} still has to scan the entire
+file, splitting it up into records,
+@c at least conceptually
+just to skip over it. The built-in
@code{nextfile} can simply close the file immediately and proceed to the
-next one, saving a lot of time. This is particularly important in
-@code{awk}, since @code{awk} programs are generally I/O bound (i.e.@:
+next one, which saves a lot of time. This is particularly important in
+@command{awk}, because @command{awk} programs are generally I/O-bound (i.e.,
they spend most of their time doing input and output, instead of performing
computations).
-@node Assert Function, Round Function, Nextfile Function, Library Functions
-@section Assertions
+@node Assert Function, Round Function, Nextfile Function, General Functions
+@subsection Assertions
@cindex assertions
-@cindex @code{assert}, C version
-When writing large programs, it is often useful to be able to know
+@cindex @code{assert} C library function
+When writing large programs, it is often useful to know
that a condition or set of conditions is true. Before proceeding with a
particular computation, you make a statement about what you believe to be
the case. Such a statement is known as an
-``assertion.'' The C language provides an @code{<assert.h>} header file
+@dfn{assertion}. The C language provides an @code{<assert.h>} header file
and corresponding @code{assert} macro that the programmer can use to make
assertions. If an assertion fails, the @code{assert} macro arranges to
print a diagnostic message describing the condition that should have
been true but was not, and then it kills the program. In C, using
@code{assert} looks this:
-@c NEEDED
-@page
@example
#include <assert.h>
int myfunc(int a, double b)
@{
- assert(a <= 5 && b >= 17);
+ assert(a <= 5 && b >= 17.1);
@dots{}
@}
@end example
-If the assertion failed, the program would print a message similar to
-this:
+If the assertion fails, the program prints a message similar to this:
@example
-prog.c:5: assertion failed: a <= 5 && b >= 17
+prog.c:5: assertion failed: a <= 5 && b >= 17.1
@end example
-@findex assert
-The ANSI C language makes it possible to turn the condition into a string for use
-in printing the diagnostic message. This is not possible in @code{awk}, so
+@cindex @code{assert} user-defined function
+The C language makes it possible to turn the condition into a string for use
+in printing the diagnostic message. This is not possible in @command{awk}, so
this @code{assert} function also requires a string version of the condition
that is being tested.
+Following is the function:
@example
-@c @group
@c file eg/lib/assert.awk
# assert --- assert that a condition is true. Otherwise exit.
+@c endfile
+@ignore
+@c file eg/lib/assert.awk
+
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May, 1993
+@c endfile
+@end ignore
+@c file eg/lib/assert.awk
function assert(condition, string)
@{
if (! condition) @{
@@ -12138,85 +15949,90 @@ function assert(condition, string)
@}
@}
+@group
END @{
if (_assert_exit)
exit 1
@}
+@end group
@c endfile
-@c @end group
@end example
The @code{assert} function tests the @code{condition} parameter. If it
is false, it prints a message to standard error, using the @code{string}
parameter to describe the failed condition. It then sets the variable
-@code{_assert_exit} to one, and executes the @code{exit} statement.
+@code{_assert_exit} to one and executes the @code{exit} statement.
The @code{exit} statement jumps to the @code{END} rule. If the @code{END}
-rules finds @code{_assert_exit} to be true, then it exits immediately.
+rules finds @code{_assert_exit} to be true, it then exits immediately.
-The purpose of the @code{END} rule with its test is to
+The purpose of the test in the @code{END} rule is to
keep any other @code{END} rules from running. When an assertion fails, the
program should exit immediately.
-If no assertions fail, then @code{_assert_exit} will still be
+If no assertions fail, then @code{_assert_exit} is still
false when the @code{END} rule is run normally, and the rest of the
-program's @code{END} rules will execute.
+program's @code{END} rules execute.
For all of this to work correctly, @file{assert.awk} must be the
-first source file read by @code{awk}.
-
-@c NEEDED
-@page
-You would use this function in your programs this way:
+first source file read by @command{awk}.
+The function can be used in a program in the following way:
@example
function myfunc(a, b)
@{
- assert(a <= 5 && b >= 17, "a <= 5 && b >= 17")
+ assert(a <= 5 && b >= 17.1, "a <= 5 && b >= 17.1")
@dots{}
@}
@end example
@noindent
-If the assertion failed, you would see a message like this:
+If the assertion fails, you see a message similar to the following:
@example
-mydata:1357: assertion failed: a <= 5 && b >= 17
+mydata:1357: assertion failed: a <= 5 && b >= 17.1
@end example
-There is a problem with this version of @code{assert}, that it may not
-be possible to work around with standard @code{awk}.
+There is a small problem with this version of @code{assert}.
An @code{END} rule is automatically added
to the program calling @code{assert}. Normally, if a program consists
of just a @code{BEGIN} rule, the input files and/or standard input are
-not read. However, now that the program has an @code{END} rule, @code{awk}
-will attempt to read the input data files, or standard input
+not read. However, now that the program has an @code{END} rule, @command{awk}
+attempts to read the input @value{DF}s or standard input
(@pxref{Using BEGIN/END, , Startup and Cleanup Actions}),
-most likely causing the program to hang, waiting for input.
+most likely causing the program to hang as it waits for input.
-@node Round Function, Ordinal Functions, Assert Function, Library Functions
-@section Rounding Numbers
+There is a simple workaround to this:
+make sure the @code{BEGIN} rule always ends
+with an @code{exit} statement.
+
+@node Round Function, Cliff Random Function, Assert Function, General Functions
+@subsection Rounding Numbers
@cindex rounding
The way @code{printf} and @code{sprintf}
(@pxref{Printf, , Using @code{printf} Statements for Fancier Printing})
-do rounding will often depend
-upon the system's C @code{sprintf} subroutine.
-On many machines,
-@code{sprintf} rounding is ``unbiased,'' which means it doesn't always
-round a trailing @samp{.5} up, contrary to naive expectations. In unbiased
-rounding, @samp{.5} rounds to even, rather than always up, so 1.5 rounds to
-2 but 4.5 rounds to 4.
-The result is that if you are using a format that does
-rounding (e.g., @code{"%.0f"}) you should check what your system does.
-The following function does traditional rounding;
-it might be useful if your awk's @code{printf} does unbiased rounding.
-
-@findex round
+perform rounding often depends upon the system's C @code{sprintf}
+subroutine. On many machines, @code{sprintf} rounding is ``unbiased,''
+which means it doesn't always round a trailing @samp{.5} up, contrary
+to naive expectations. In unbiased rounding, @samp{.5} rounds to even,
+rather than always up, so 1.5 rounds to 2 but 4.5 rounds to 4. This means
+that if you are using a format that does rounding (e.g., @code{"%.0f"}),
+you should check what your system does. The following function does
+traditional rounding; it might be useful if your awk's @code{printf}
+does unbiased rounding:
+
+@cindex @code{round} user-defined function
@example
@c file eg/lib/round.awk
# round --- do normal rounding
+@c endfile
+@ignore
+@c file eg/lib/round.awk
#
-# Arnold Robbins, arnold@@gnu.org, August, 1996
-# Public Domain
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# August, 1996
+@c endfile
+@end ignore
+@c file eg/lib/round.awk
function round(x, ival, aval, fraction)
@{
ival = int(x) # integer part, int() truncates
@@ -12229,12 +16045,10 @@ function round(x, ival, aval, fraction)
aval = -x # absolute value
ival = int(aval)
fraction = aval - ival
-@group
if (fraction >= .5)
return int(x) - 1 # -2.5 --> -3
else
return int(x) # -2.3 --> -2
-@end group
@} else @{
fraction = x - ival
if (fraction >= .5)
@@ -12249,45 +16063,86 @@ function round(x, ival, aval, fraction)
@c endfile
@end example
-@node Ordinal Functions, Join Function, Round Function, Library Functions
-@section Translating Between Characters and Numbers
+@node Cliff Random Function, Ordinal Functions, Round Function, General Functions
+@subsection The Cliff Random Number Generator
+@cindex random numbers, Cliff
+@cindex Cliff random numbers
+
+The Cliff random number
+generator@footnote{@uref{http://mathworld.wolfram.com/CliffRandomNumberGenerator.hmtl}}
+is a very simple random number generator that ``passes the noise sphere test
+for randomness by showing no structure.''
+It is easily programmed, in less than 10 lines of @command{awk} code:
+
+@cindex @code{cliff_rand} user-defined function
+@example
+@c file eg/lib/cliff_rand.awk
+# cliff_rand.awk --- generate Cliff random numbers
+@c endfile
+@ignore
+@c file eg/lib/cliff_rand.awk
+#
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# December 2000
+
+@c endfile
+@end ignore
+@c file eg/lib/cliff_rand.awk
+BEGIN @{ _cliff_seed = 0.1 @}
+
+function cliff_rand()
+@{
+ _cliff_seed = (100 * log(_cliff_seed)) % 1
+ if (_cliff_seed < 0)
+ _cliff_seed = - _cliff_seed
+ return _cliff_seed
+@}
+@c endfile
+@end example
+
+This algorithm requires an initial ``seed'' of 0.1. Each new value
+uses the current seed as input for the calculation.
+If the built-in @code{rand} function
+(@pxref{Numeric Functions})
+isn't random enough, you might try using this function instead.
+
+@node Ordinal Functions, Join Function, Cliff Random Function, General Functions
+@subsection Translating Between Characters and Numbers
@cindex numeric character values
@cindex values of characters as numbers
-One commercial implementation of @code{awk} supplies a built-in function,
+One commercial implementation of @command{awk} supplies a built-in function,
@code{ord}, which takes a character and returns the numeric value for that
character in the machine's character set. If the string passed to
@code{ord} has more than one character, only the first one is used.
The inverse of this function is @code{chr} (from the function of the same
name in Pascal), which takes a number and returns the corresponding character.
+Both functions are written very nicely in @command{awk}; there is no real
+reason to build them into the @command{awk} interpreter:
-Both functions can be written very nicely in @code{awk}; there is no real
-reason to build them into the @code{awk} interpreter.
-
-@findex ord
-@findex chr
+@cindex @code{ord} user-defined function
+@cindex @code{chr} user-defined function
@example
-@group
@c file eg/lib/ord.awk
# ord.awk --- do ord and chr
-#
+
# Global identifiers:
# _ord_: numerical values indexed by characters
# _ord_init: function to initialize _ord_
+@c endfile
+@ignore
+@c file eg/lib/ord.awk
#
-# Arnold Robbins
-# arnold@@gnu.org
-# Public Domain
+# Arnold Robbins, arnold@@gnu.org, Public Domain
# 16 January, 1992
# 20 July, 1992, revised
-BEGIN @{ _ord_init() @}
@c endfile
-@end group
-
-@c @group
+@end ignore
@c file eg/lib/ord.awk
+BEGIN @{ _ord_init() @}
+
function _ord_init( low, high, i, t)
@{
low = sprintf("%c", 7) # BEL is ascii 7
@@ -12309,33 +16164,32 @@ function _ord_init( low, high, i, t)
@}
@}
@c endfile
-@c @end group
@end example
-@cindex character sets
+@cindex character sets (machine character encodings)
@cindex character encodings
@cindex ASCII
@cindex EBCDIC
@cindex mark parity
Some explanation of the numbers used by @code{chr} is worthwhile.
The most prominent character set in use today is ASCII. Although an
-eight-bit byte can hold 256 distinct values (from zero to 255), ASCII only
-defines characters that use the values from zero to 127.@footnote{ASCII
+eight-bit byte can hold 256 distinct values (from 0 to 255), ASCII only
+defines characters that use the values from 0 to 127.@footnote{ASCII
has been extended in many countries to use the values from 128 to 255
for country-specific characters. If your system uses these extensions,
-you can simplify @code{_ord_init} to simply loop from zero to 255.}
-At least one computer manufacturer that we know of
+you can simplify @code{_ord_init} to simply loop from 0 to 255.}
+In the now distant past,
+at least one minicomputer manufacturer
@c Pr1me, blech
-uses ASCII, but with mark parity, meaning that the leftmost bit in the byte
-is always one. What this means is that on those systems, characters
+used ASCII, but with mark parity, meaning that the leftmost bit in the byte
+is always 1. This means that on those systems, characters
have numeric values from 128 to 255.
Finally, large mainframe systems use the EBCDIC character set, which
uses all 256 values.
While there are other character sets in use on some older systems,
-they are not really worth worrying about.
+they are not really worth worrying about:
@example
-@group
@c file eg/lib/ord.awk
function ord(str, c)
@{
@@ -12343,21 +16197,14 @@ function ord(str, c)
c = substr(str, 1, 1)
return _ord_[c]
@}
-@c endfile
-@end group
-@group
-@c file eg/lib/ord.awk
function chr(c)
@{
# force c to be numeric by adding 0
return sprintf("%c", c + 0)
@}
@c endfile
-@end group
-@group
-@c file eg/lib/ord.awk
#### test code ####
# BEGIN \
# @{
@@ -12369,41 +16216,45 @@ function chr(c)
# @}
# @}
@c endfile
-@end group
@end example
-An obvious improvement to these functions would be to move the code for the
+An obvious improvement to these functions is to move the code for the
@code{@w{_ord_init}} function into the body of the @code{BEGIN} rule. It was
written this way initially for ease of development.
-
-There is a ``test program'' in a @code{BEGIN} rule, for testing the
+There is a ``test program'' in a @code{BEGIN} rule, to test the
function. It is commented out for production use.
-@node Join Function, Mktime Function, Ordinal Functions, Library Functions
-@section Merging an Array Into a String
+@node Join Function, Gettimeofday Function, Ordinal Functions, General Functions
+@subsection Merging an Array into a String
@cindex merging strings
When doing string processing, it is often useful to be able to join
all the strings in an array into one long string. The following function,
@code{join}, accomplishes this task. It is used later in several of
the application programs
-(@pxref{Sample Programs, ,Practical @code{awk} Programs}).
+(@pxref{Sample Programs, ,Practical @command{awk} Programs}).
-Good function design is important; this function needs to be general, but it
+Good function design is important; this function needs to be general but it
should also have a reasonable default behavior. It is called with an array
-and the beginning and ending indices of the elements in the array to be
+as well as the beginning and ending indices of the elements in the array to be
merged. This assumes that the array indices are numeric---a reasonable
assumption since the array was likely created with @code{split}
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}):
-@findex join
+@cindex @code{join} user-defined function
@example
-@group
@c file eg/lib/join.awk
# join.awk --- join an array into a string
+@c endfile
+@ignore
+@c file eg/lib/join.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/lib/join.awk
function join(array, start, end, sep, result, i)
@{
if (sep == "")
@@ -12416,368 +16267,50 @@ function join(array, start, end, sep, result, i)
return result
@}
@c endfile
-@end group
@end example
An optional additional argument is the separator to use when joining the
strings back together. If the caller supplies a non-empty value,
-@code{join} uses it. If it is not supplied, it will have a null
+@code{join} uses it; if it is not supplied, it has a null
value. In this case, @code{join} uses a single blank as a default
separator for the strings. If the value is equal to @code{SUBSEP},
then @code{join} joins the strings with no separator between them.
@code{SUBSEP} serves as a ``magic'' value to indicate that there should
-be no separation between the component strings.
-
-It would be nice if @code{awk} had an assignment operator for concatenation.
+be no separation between the component strings.@footnote{It would
+be nice if @command{awk} had an assignment operator for concatenation.
The lack of an explicit operator for concatenation makes string operations
-more difficult than they really need to be.
-
-@node Mktime Function, Gettimeofday Function, Join Function, Library Functions
-@section Turning Dates Into Timestamps
-
-The @code{systime} function built in to @code{gawk}
-returns the current time of day as
-a timestamp in ``seconds since the Epoch.'' This timestamp
-can be converted into a printable date of almost infinitely variable
-format using the built-in @code{strftime} function.
-(For more information on @code{systime} and @code{strftime},
-@pxref{Time Functions, ,Functions for Dealing with Time Stamps}.)
-
-@cindex converting dates to timestamps
-@cindex dates, converting to timestamps
-@cindex timestamps, converting from dates
-An interesting but difficult problem is to convert a readable representation
-of a date back into a timestamp. The ANSI C library provides a @code{mktime}
-function that does the basic job, converting a canonical representation of a
-date into a timestamp.
-
-It would appear at first glance that @code{gawk} would have to supply a
-@code{mktime} built-in function that was simply a ``hook'' to the C language
-version. In fact though, @code{mktime} can be implemented entirely in
-@code{awk}.@footnote{@value{UPDATE-MONTH}: Actually, I was mistaken when
-I wrote this. The version presented here doesn't always work correctly,
-and the next major version of @code{gawk} will provide @code{mktime}
-as a built-in function.}
-@c sigh.
-
-Here is a version of @code{mktime} for @code{awk}. It takes a simple
-representation of the date and time, and converts it into a timestamp.
-
-The code is presented here intermixed with explanatory prose. In
-@ref{Extract Program, ,Extracting Programs from Texinfo Source Files},
-you will see how the Texinfo source file for this @value{DOCUMENT}
-can be processed to extract the code into a single source file.
-
-The program begins with a descriptive comment and a @code{BEGIN} rule
-that initializes a table @code{_tm_months}. This table is a two-dimensional
-array that has the lengths of the months. The first index is zero for
-regular years, and one for leap years. The values are the same for all the
-months in both kinds of years, except for February; thus the use of multiple
-assignment.
-
-@example
-@c @group
-@c file eg/lib/mktime.awk
-# mktime.awk --- convert a canonical date representation
-# into a timestamp
-# Arnold Robbins, arnold@@gnu.org, Public Domain
-# May 1993
-
-BEGIN \
-@{
- # Initialize table of month lengths
- _tm_months[0,1] = _tm_months[1,1] = 31
- _tm_months[0,2] = 28; _tm_months[1,2] = 29
- _tm_months[0,3] = _tm_months[1,3] = 31
- _tm_months[0,4] = _tm_months[1,4] = 30
- _tm_months[0,5] = _tm_months[1,5] = 31
- _tm_months[0,6] = _tm_months[1,6] = 30
- _tm_months[0,7] = _tm_months[1,7] = 31
- _tm_months[0,8] = _tm_months[1,8] = 31
- _tm_months[0,9] = _tm_months[1,9] = 30
- _tm_months[0,10] = _tm_months[1,10] = 31
- _tm_months[0,11] = _tm_months[1,11] = 30
- _tm_months[0,12] = _tm_months[1,12] = 31
-@}
-@c endfile
-@c @end group
-@end example
-
-The benefit of merging multiple @code{BEGIN} rules
-(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns})
-is particularly clear when writing library files. Functions in library
-files can cleanly initialize their own private data and also provide clean-up
-actions in private @code{END} rules.
-
-The next function is a simple one that computes whether a given year is or
-is not a leap year. If a year is evenly divisible by four, but not evenly
-divisible by 100, or if it is evenly divisible by 400, then it is a leap
-year. Thus, 1904 was a leap year, 1900 was not, but 2000 will be.
-@c Change this after the year 2000 to ``2000 was'' (:-)
-
-@findex _tm_isleap
-@example
-@group
-@c file eg/lib/mktime.awk
-# decide if a year is a leap year
-function _tm_isleap(year, ret)
-@{
- ret = (year % 4 == 0 && year % 100 != 0) ||
- (year % 400 == 0)
-
- return ret
-@}
-@c endfile
-@end group
-@end example
-
-This function is only used a few times in this file, and its computation
-could have been written @dfn{in-line} (at the point where it's used).
-Making it a separate function made the original development easier, and also
-avoids the possibility of typing errors when duplicating the code in
-multiple places.
-
-The next function is more interesting. It does most of the work of
-generating a timestamp, which is converting a date and time into some number
-of seconds since the Epoch. The caller passes an array (rather
-imaginatively named @code{a}) containing six
-values: the year including century, the month as a number between one and 12,
-the day of the month, the hour as a number between zero and 23, the minute in
-the hour, and the seconds within the minute.
-
-The function uses several local variables to precompute the number of
-seconds in an hour, seconds in a day, and seconds in a year. Often,
-similar C code simply writes out the expression in-line, expecting the
-compiler to do @dfn{constant folding}. E.g., most C compilers would
-turn @samp{60 * 60} into @samp{3600} at compile time, instead of recomputing
-it every time at run time. Precomputing these values makes the
-function more efficient.
-
-@findex _tm_addup
-@example
-@c @group
-@c file eg/lib/mktime.awk
-# convert a date into seconds
-function _tm_addup(a, total, yearsecs, daysecs,
- hoursecs, i, j)
-@{
- hoursecs = 60 * 60
- daysecs = 24 * hoursecs
- yearsecs = 365 * daysecs
-
- total = (a[1] - 1970) * yearsecs
-
-@group
- # extra day for leap years
- for (i = 1970; i < a[1]; i++)
- if (_tm_isleap(i))
- total += daysecs
-@end group
-
-@group
- j = _tm_isleap(a[1])
- for (i = 1; i < a[2]; i++)
- total += _tm_months[j, i] * daysecs
-@end group
-
- total += (a[3] - 1) * daysecs
- total += a[4] * hoursecs
- total += a[5] * 60
- total += a[6]
-
- return total
-@}
-@c endfile
-@c @end group
-@end example
-
-The function starts with a first approximation of all the seconds between
-Midnight, January 1, 1970,@footnote{This is the Epoch on POSIX systems.
-It may be different on other systems.} and the beginning of the current
-year. It then goes through all those years, and for every leap year,
-adds an additional day's worth of seconds.
-
-The variable @code{j} holds either one or zero, if the current year is or is not
-a leap year.
-For every month in the current year prior to the current month, it adds
-the number of seconds in the month, using the appropriate entry in the
-@code{_tm_months} array.
-
-Finally, it adds in the seconds for the number of days prior to the current
-day, and the number of hours, minutes, and seconds in the current day.
-
-The result is a count of seconds since January 1, 1970. This value is not
-yet what is needed though. The reason why is described shortly.
-
-The main @code{mktime} function takes a single character string argument.
-This string is a representation of a date and time in a ``canonical''
-(fixed) form. This string should be
-@code{"@var{year} @var{month} @var{day} @var{hour} @var{minute} @var{second}"}.
-
-@findex mktime
-@example
-@c @group
-@c file eg/lib/mktime.awk
-# mktime --- convert a date into seconds,
-# compensate for time zone
-
-function mktime(str, res1, res2, a, b, i, j, t, diff)
-@{
- i = split(str, a, " ") # don't rely on FS
-
- if (i != 6)
- return -1
-
- # force numeric
- for (j in a)
- a[j] += 0
-
-@group
- # validate
- if (a[1] < 1970 ||
- a[2] < 1 || a[2] > 12 ||
- a[3] < 1 || a[3] > 31 ||
- a[4] < 0 || a[4] > 23 ||
- a[5] < 0 || a[5] > 59 ||
- a[6] < 0 || a[6] > 60 )
- return -1
-@end group
-
- res1 = _tm_addup(a)
- t = strftime("%Y %m %d %H %M %S", res1)
-
- if (_tm_debug)
- printf("(%s) -> (%s)\n", str, t) > "/dev/stderr"
+more difficult than they really need to be.}
- split(t, b, " ")
- res2 = _tm_addup(b)
-
- diff = res1 - res2
-
- if (_tm_debug)
- printf("diff = %d seconds\n", diff) > "/dev/stderr"
-
- res1 += diff
-
- return res1
-@}
-@c endfile
-@c @end group
-@end example
-
-The function first splits the string into an array, using spaces and tabs as
-separators. If there are not six elements in the array, it returns an
-error, signaled as the value @minus{}1.
-Next, it forces each element of the array to be numeric, by adding zero to it.
-The following @samp{if} statement then makes sure that each element is
-within an allowable range. (This checking could be extended further, e.g.,
-to make sure that the day of the month is within the correct range for the
-particular month supplied.) All of this is essentially preliminary set-up
-and error checking.
-
-Recall that @code{_tm_addup} generated a value in seconds since Midnight,
-January 1, 1970. This value is not directly usable as the result we want,
-@emph{since the calculation does not account for the local timezone}. In other
-words, the value represents the count in seconds since the Epoch, but only
-for UTC (Universal Coordinated Time). If the local timezone is east or west
-of UTC, then some number of hours should be either added to, or subtracted from
-the resulting timestamp.
-
-For example, 6:23 p.m. in Atlanta, Georgia (USA), is normally five hours west
-of (behind) UTC. It is only four hours behind UTC if daylight savings
-time is in effect.
-If you are calling @code{mktime} in Atlanta, with the argument
-@code{@w{"1993 5 23 18 23 12"}}, the result from @code{_tm_addup} will be
-for 6:23 p.m. UTC, which is only 2:23 p.m. in Atlanta. It is necessary to
-add another four hours worth of seconds to the result.
-
-How can @code{mktime} determine how far away it is from UTC? This is
-surprisingly easy. The returned timestamp represents the time passed to
-@code{mktime} @emph{as UTC}. This timestamp can be fed back to
-@code{strftime}, which will format it as a @emph{local} time; i.e.@: as
-if it already had the UTC difference added in to it. This is done by
-giving @code{@w{"%Y %m %d %H %M %S"}} to @code{strftime} as the format
-argument. It returns the computed timestamp in the original string
-format. The result represents a time that accounts for the UTC
-difference. When the new time is converted back to a timestamp, the
-difference between the two timestamps is the difference (in seconds)
-between the local timezone and UTC. This difference is then added back
-to the original result. An example demonstrating this is presented below.
-
-Finally, there is a ``main'' program for testing the function.
-
-@example
-@c there used to be a blank line after the getline,
-@c squished out for page formatting reasons
-@c @group
-@c file eg/lib/mktime.awk
-BEGIN @{
- if (_tm_test) @{
- printf "Enter date as yyyy mm dd hh mm ss: "
- getline _tm_test_date
- t = mktime(_tm_test_date)
- r = strftime("%Y %m %d %H %M %S", t)
- printf "Got back (%s)\n", r
- @}
-@}
-@c endfile
-@c @end group
-@end example
-
-The entire program uses two variables that can be set on the command
-line to control debugging output and to enable the test in the final
-@code{BEGIN} rule. Here is the result of a test run. (Note that debugging
-output is to standard error, and test output is to standard output.)
-
-@example
-@c @group
-$ gawk -f mktime.awk -v _tm_test=1 -v _tm_debug=1
-@print{} Enter date as yyyy mm dd hh mm ss: 1993 5 23 15 35 10
-@error{} (1993 5 23 15 35 10) -> (1993 05 23 11 35 10)
-@error{} diff = 14400 seconds
-@print{} Got back (1993 05 23 15 35 10)
-@c @end group
-@end example
-
-The time entered was 3:35 p.m. (15:35 on a 24-hour clock), on May 23, 1993.
-The first line
-of debugging output shows the resulting time as UTC---four hours ahead of
-the local time zone. The second line shows that the difference is 14400
-seconds, which is four hours. (The difference is only four hours, since
-daylight savings time is in effect during May.)
-The final line of test output shows that the timezone compensation
-algorithm works; the returned time is the same as the entered time.
-
-This program does not solve the general problem of turning an arbitrary date
-representation into a timestamp. That problem is very involved. However,
-the @code{mktime} function provides a foundation upon which to build. Other
-software can convert month names into numeric months, and AM/PM times into
-24-hour clocks, to generate the ``canonical'' format that @code{mktime}
-requires.
-
-@node Gettimeofday Function, Filetrans Function, Mktime Function, Library Functions
-@section Managing the Time of Day
+@node Gettimeofday Function, , Join Function, General Functions
+@subsection Managing the Time of Day
@cindex formatted timestamps
@cindex timestamps, formatted
The @code{systime} and @code{strftime} functions described in
-@ref{Time Functions, ,Functions for Dealing with Time Stamps},
+@ref{Time Functions, ,Using @command{gawk}'s Timestamp Functions},
provide the minimum functionality necessary for dealing with the time of day
in human readable form. While @code{strftime} is extensive, the control
formats are not necessarily easy to remember or intuitively obvious when
reading a program.
The following function, @code{gettimeofday}, populates a user-supplied array
-with pre-formatted time information. It returns a string with the current
-time formatted in the same way as the @code{date} utility.
+with preformatted time information. It returns a string with the current
+time formatted in the same way as the @command{date} utility:
-@findex gettimeofday
+@cindex @code{gettimeofday} user-defined function
@example
-@c @group
@c file eg/lib/gettime.awk
-# gettimeofday --- get the time of day in a usable format
+# gettimeofday.awk --- get the time of day in a usable format
+@c endfile
+@ignore
+@c file eg/lib/gettime.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain, May 1993
#
+@c endfile
+@end ignore
+@c file eg/lib/gettime.awk
+
# Returns a string in the format of output of date(1)
# Populates the array argument time with individual values:
# time["second"] -- seconds (0 - 59)
@@ -12788,17 +16321,17 @@ time formatted in the same way as the @code{date} utility.
# time["month"] -- month of year (1 - 12)
# time["monthname"] -- name of the month
# time["shortmonth"] -- short name of the month
-# time["year"] -- year within century (0 - 99)
-# time["fullyear"] -- year with century (19xx or 20xx)
+# time["year"] -- year modulo 100 (0 - 99)
+# time["fullyear"] -- full year
# time["weekday"] -- day of week (Sunday = 0)
# time["altweekday"] -- day of week (Monday = 0)
-# time["weeknum"] -- week number, Sunday first day
-# time["altweeknum"] -- week number, Monday first day
# time["dayname"] -- name of weekday
# time["shortdayname"] -- short name of weekday
# time["yearday"] -- day of year (0 - 365)
# time["timezone"] -- abbreviation of timezone name
# time["ampm"] -- AM or PM designation
+# time["weeknum"] -- week number, Sunday first day
+# time["altweeknum"] -- week number, Monday first day
function gettimeofday(time, ret, now, i)
@{
@@ -12809,8 +16342,7 @@ function gettimeofday(time, ret, now, i)
ret = strftime("%a %b %d %H:%M:%S %Z %Y", now)
# clear out target array
- for (i in time)
- delete time[i]
+ delete time
# fill in values, force numeric values to be
# numeric by adding 0
@@ -12843,35 +16375,46 @@ The string indices are easier to use and read than the various formats
required by @code{strftime}. The @code{alarm} program presented in
@ref{Alarm Program, ,An Alarm Clock Program},
uses this function.
+A more general design for the @code{gettimeofday} function would have
+allowed the user to supply an optional timestamp value to use instead
+of the current time.
-@c exercise!!!
-The @code{gettimeofday} function is presented above as it was written. A
-more general design for this function would have allowed the user to supply
-an optional timestamp value that would have been used instead of the current
-time.
+@node Data File Management, Getopt Function, General Functions, Library Functions
+@section @value{DDF} Management
+
+This @value{SECTION} presents functions that are useful for managing
+command-line datafiles.
-@node Filetrans Function, Getopt Function, Gettimeofday Function, Library Functions
-@section Noting Data File Boundaries
+@menu
+* Filetrans Function:: A function for handling data file transitions.
+* Rewind Function:: A function for rereading the current file.
+* File Checking:: Checking that data files are readable.
+* Ignoring Assigns:: Treating assignments as file names.
+@end menu
-@cindex per file initialization and clean-up
+@node Filetrans Function, Rewind Function, Data File Management, Data File Management
+@subsection Noting @value{DDF} Boundaries
+
+@cindex per file initialization and cleanup
The @code{BEGIN} and @code{END} rules are each executed exactly once, at
-the beginning and end respectively of your @code{awk} program
+the beginning and end of your @command{awk} program, respectively
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
-We (the @code{gawk} authors) once had a user who mistakenly thought that the
-@code{BEGIN} rule was executed at the beginning of each data file and the
-@code{END} rule was executed at the end of each data file. When informed
+We (the @command{gawk} authors) once had a user who mistakenly thought that the
+@code{BEGIN} rule is executed at the beginning of each @value{DF} and the
+@code{END} rule is executed at the end of each @value{DF}. When informed
that this was not the case, the user requested that we add new special
-patterns to @code{gawk}, named @code{BEGIN_FILE} and @code{END_FILE}, that
+patterns to @command{gawk}, named @code{BEGIN_FILE} and @code{END_FILE}, that
would have the desired behavior. He even supplied us the code to do so.
-However, after a little thought, I came up with the following library program.
+Adding these special patterns to @command{gawk} wasn't necessary;
+the job can be done cleanly in @command{awk} itself, as illustrated
+by the following library program.
It arranges to call two user-supplied functions, @code{beginfile} and
-@code{endfile}, at the beginning and end of each data file.
+@code{endfile}, at the beginning and end of each @value{DF}.
Besides solving the problem in only nine(!) lines of code, it does so
-@emph{portably}; this will work with any implementation of @code{awk}.
+@emph{portably}; this works with any implementation of @command{awk}:
@example
-@c @group
# transfile.awk
#
# Give the user a hook for filename transitions
@@ -12879,9 +16422,9 @@ Besides solving the problem in only nine(!) lines of code, it does so
# The user must supply functions beginfile() and endfile()
# that each take the name of the file being started or
# finished, respectively.
-#
-# Arnold Robbins, arnold@@gnu.org, January 1992
-# Public Domain
+@c #
+@c # Arnold Robbins, arnold@@gnu.org, Public Domain
+@c # January 1992
FILENAME != _oldfilename \
@{
@@ -12892,49 +16435,53 @@ FILENAME != _oldfilename \
@}
END @{ endfile(FILENAME) @}
-@c @end group
@end example
This file must be loaded before the user's ``main'' program, so that the
-rule it supplies will be executed first.
+rule it supplies is executed first.
-This rule relies on @code{awk}'s @code{FILENAME} variable that
-automatically changes for each new data file. The current file name is
+This rule relies on @command{awk}'s @code{FILENAME} variable that
+automatically changes for each new @value{DF}. The current @value{FN} is
saved in a private variable, @code{_oldfilename}. If @code{FILENAME} does
-not equal @code{_oldfilename}, then a new data file is being processed, and
-it is necessary to call @code{endfile} for the old file. Since
+not equal @code{_oldfilename}, then a new @value{DF} is being processed and
+it is necessary to call @code{endfile} for the old file. Because
@code{endfile} should only be called if a file has been processed, the
program first checks to make sure that @code{_oldfilename} is not the null
-string. The program then assigns the current file name to
-@code{_oldfilename}, and calls @code{beginfile} for the file.
-Since, like all @code{awk} variables, @code{_oldfilename} will be
+string. The program then assigns the current @value{FN} to
+@code{_oldfilename} and calls @code{beginfile} for the file.
+Because, like all @command{awk} variables, @code{_oldfilename} is
initialized to the null string, this rule executes correctly even for the
-first data file.
+first @value{DF}.
-The program also supplies an @code{END} rule, to do the final processing for
-the last file. Since this @code{END} rule comes before any @code{END} rules
-supplied in the ``main'' program, @code{endfile} will be called first. Once
+The program also supplies an @code{END} rule to do the final processing for
+the last file. Because this @code{END} rule comes before any @code{END} rules
+supplied in the ``main'' program, @code{endfile} is called first. Once
again the value of multiple @code{BEGIN} and @code{END} rules should be clear.
-@findex beginfile
-@findex endfile
+@cindex @code{beginfile} user-defined function
+@cindex @code{endfile} user-defined function
This version has same problem as the first version of @code{nextfile}
(@pxref{Nextfile Function, ,Implementing @code{nextfile} as a Function}).
-If the same data file occurs twice in a row on command line, then
-@code{endfile} and @code{beginfile} will not be executed at the end of the
+If the same @value{DF} occurs twice in a row on the command line, then
+@code{endfile} and @code{beginfile} are not executed at the end of the
first pass and at the beginning of the second pass.
-This version solves the problem.
+The following version solves the problem:
@example
-@c @group
@c file eg/lib/ftrans.awk
# ftrans.awk --- handle data file transitions
#
# user supplies beginfile() and endfile() functions
+@c endfile
+@ignore
+@c file eg/lib/ftrans.awk
#
-# Arnold Robbins, arnold@@gnu.org, November 1992
-# Public Domain
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# November 1992
+@c endfile
+@end ignore
+@c file eg/lib/ftrans.awk
FNR == 1 @{
if (_filename_ != "")
endfile(_filename_)
@@ -12944,69 +16491,239 @@ FNR == 1 @{
END @{ endfile(_filename_) @}
@c endfile
-@c @end group
@end example
-In @ref{Wc Program, ,Counting Things},
-you will see how this library function can be used, and
+@ref{Wc Program, ,Counting Things},
+shows how this library function can be used and
how it simplifies writing the main program.
-@node Getopt Function, Passwd Functions, Filetrans Function, Library Functions
-@section Processing Command Line Options
+@node Rewind Function, File Checking, Filetrans Function, Data File Management
+@subsection Rereading the Current File
+
+Another request for a new built-in function was for a @code{rewind}
+function that would make it possible to reread the current file.
+The requesting user didn't want to have to use @code{getline}
+(@pxref{Getline, , Explicit Input with @code{getline}})
+inside a loop.
+
+However, as long as you are not in the @code{END} rule, it is
+quite easy to arrange to immediately close the current input file
+and then start over with it from the top.
+For lack of a better name, we'll call it @code{rewind}:
+
+@cindex @code{rewind} user-defined function
+@example
+@c file eg/lib/rewind.awk
+# rewind.awk --- rewind the current file and start over
+@c endfile
+@ignore
+@c file eg/lib/rewind.awk
+#
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# September 2000
+
+@c endfile
+@end ignore
+@c file eg/lib/rewind.awk
+function rewind( i)
+@{
+ # shift remaining arguments up
+ for (i = ARGC; i > ARGIND; i--)
+ ARGV[i] = ARGV[i-1]
+
+ # make sure gawk knows to keep going
+ ARGC++
+
+ # make current file next to get done
+ ARGV[ARGIND+1] = FILENAME
-@cindex @code{getopt}, C version
+ # do it
+ nextfile
+@}
+@c endfile
+@end example
+
+This code relies on the @code{ARGIND} variable
+(@pxref{Auto-set, ,Built-in Variables That Convey Information}),
+which is specific to @command{gawk}.
+If you are not using
+@command{gawk}, you can use ideas presented in
+@iftex
+the previous @value{SECTION}
+@end iftex
+@ifnottex
+@ref{Filetrans Function, ,Noting @value{DDF} Boundaries},
+@end ifnottex
+to either update @code{ARGIND} on your own
+or modify this code as appropriate.
+
+The @code{rewind} function also relies on the @code{nextfile} keyword
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
+@xref{Nextfile Function, ,Implementing @code{nextfile} as a Function},
+for a function version of @code{nextfile}.
+
+@node File Checking, Ignoring Assigns, Rewind Function, Data File Management
+@subsection Checking for Readable @value{DDF}s
+
+@cindex fatal errors
+@cindex readable @value{DF}s, checking
+@cindex non-readable @value{DF}s, skipping
+@cindex @value{DF}s, non-readable, skipping
+@cindex @value{DF}s, readable, checking
+Normally, if you give @command{awk} a @value{DF} that isn't readable,
+it stops with a fatal error. There are times when you
+might want to just ignore such files and keep going. You can
+do this by prepending the following program to your @command{awk}
+program:
+
+@cindex @code{readable.awk} program
+@example
+@c file eg/lib/readable.awk
+# readable.awk --- library file to skip over unreadable files
+@c endfile
+@ignore
+@c file eg/lib/readable.awk
+#
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# October 2000
+
+@c endfile
+@end ignore
+@c file eg/lib/readable.awk
+BEGIN @{
+ for (i = 1; i < ARGC; i++) @{
+ if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
+ || ARGV[i] == "-")
+ continue # assignment or standard input
+ else if ((getline junk < ARGV[i]) < 0) # unreadable
+ delete ARGV[i]
+ else
+ close(ARGV[i])
+ @}
+@}
+@c endfile
+@end example
+
+@cindex fatal errors
+In @command{gawk}, the @code{getline} won't be fatal (unless
+@option{--posix} is in force).
+Removing the element from @code{ARGV} with @code{delete}
+skips the file (since it's no longer in the list).
+
+@c This doesn't handle /dev/stdin etc. Not worth the hassle to mention or fix.
+
+@node Ignoring Assigns, , File Checking, Data File Management
+@subsection Treating Assignments as @value{FFN}s
+
+Occasionally, you might not want @command{awk} to process command-line
+variable assignments
+(@pxref{Assignment Options, ,Assigning Variables on the Command Line}).
+In particular, if you have @value{FN}s that contain an @samp{=} character,
+@command{awk} treats the @value{FN} as an assignment, and does not process it.
+
+Some users have suggested an additional command-line option for @command{gawk}
+to disable command-line assignments. However, some simple programming with
+a library file does the trick:
+
+@cindex @code{noassign.awk} program
+@example
+@c file eg/lib/noassign.awk
+# noassign.awk --- library file to avoid the need for a
+# special option that disables command-line assignments
+@c endfile
+@ignore
+@c file eg/lib/noassign.awk
+#
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# October 1999
+
+@c endfile
+@end ignore
+@c file eg/lib/noassign.awk
+function disable_assigns(argc, argv, i)
+@{
+ for (i = 1; i < argc; i++)
+ if (argv[i] ~ /^[A-Za-z_][A-Za-z_0-9]*=.*/)
+ argv[i] = ("./" argv[i])
+@}
+
+BEGIN @{
+ if (No_command_assign)
+ disable_assigns(ARGC, ARGV)
+@}
+@c endfile
+@end example
+
+You then run your program this way:
+
+@example
+awk -v No_command_assign=1 -f noassign.awk -f yourprog.awk *
+@end example
+
+The function works by looping through the arguments.
+It prepends @samp{./} to
+any argument that matches the form
+of a variable assignment, turning that argument into a @value{FN}.
+
+The use of @code{No_command_assign} allows you to disable command-line
+assignments at invocation time, by giving the variable a true value.
+When not set, it is initially zero (i.e., false), so the command-line arguments
+are left alone.
+
+@node Getopt Function, Passwd Functions, Data File Management, Library Functions
+@section Processing Command-Line Options
+
+@cindex @code{getopt} C library function
@cindex processing arguments
@cindex argument processing
-Most utilities on POSIX compatible systems take options or ``switches'' on
+Most utilities on POSIX compatible systems take options, or ``switches,'' on
the command line that can be used to change the way a program behaves.
-@code{awk} is an example of such a program
-(@pxref{Options, ,Command Line Options}).
-Often, options take @dfn{arguments}, data that the program needs to
-correctly obey the command line option. For example, @code{awk}'s
-@samp{-F} option requires a string to use as the field separator.
-The first occurrence on the command line of either @samp{--} or a
+@command{awk} is an example of such a program
+(@pxref{Options, ,Command-Line Options}).
+Often, options take @dfn{arguments}; i.e., data that the program needs to
+correctly obey the command-line option. For example, @command{awk}'s
+@option{-F} option requires a string to use as the field separator.
+The first occurrence on the command line of either @option{--} or a
string that does not begin with @samp{-} ends the options.
-Most Unix systems provide a C function named @code{getopt} for processing
-command line arguments. The programmer provides a string describing the one
-letter options. If an option requires an argument, it is followed in the
+Modern Unix systems provide a C function named @code{getopt} for processing
+command-line arguments. The programmer provides a string describing the
+one-letter options. If an option requires an argument, it is followed in the
string with a colon. @code{getopt} is also passed the
-count and values of the command line arguments, and is called in a loop.
-@code{getopt} processes the command line arguments for option letters.
+count and values of the command-line arguments and is called in a loop.
+@code{getopt} processes the command-line arguments for option letters.
Each time around the loop, it returns a single character representing the
-next option letter that it found, or @samp{?} if it found an invalid option.
+next option letter that it finds, or @samp{?} if it finds an invalid option.
When it returns @minus{}1, there are no options left on the command line.
When using @code{getopt}, options that do not take arguments can be
grouped together. Furthermore, options that take arguments require that the
-argument be present. The argument can immediately follow the option letter,
-or it can be a separate command line argument.
+argument is present. The argument can immediately follow the option letter
+or it can be a separate command-line argument.
Given a hypothetical program that takes
-three command line options, @samp{-a}, @samp{-b}, and @samp{-c}, and
-@samp{-b} requires an argument, all of the following are valid ways of
+three command-line options, @option{-a}, @option{-b}, and @option{-c}, where
+@option{-b} requires an argument, all of the following are valid ways of
invoking the program:
@example
-@c @group
prog -a -b foo -c data1 data2 data3
prog -ac -bfoo -- data1 data2 data3
prog -acbfoo data1 data2 data3
-@c @end group
@end example
Notice that when the argument is grouped with its option, the rest of
-the command line argument is considered to be the option's argument.
-In the above example, @samp{-acbfoo} indicates that all of the
-@samp{-a}, @samp{-b}, and @samp{-c} options were supplied,
-and that @samp{foo} is the argument to the @samp{-b} option.
+the argument is considered to be the option's argument.
+In this example, @option{-acbfoo} indicates that all of the
+@option{-a}, @option{-b}, and @option{-c} options were supplied,
+and that @samp{foo} is the argument to the @option{-b} option.
-@code{getopt} provides four external variables that the programmer can use.
+@code{getopt} provides four external variables that the programmer can use:
@table @code
@item optind
The index in the argument value array (@code{argv}) where the first
-non-option command line argument can be found.
+non-option command-line argument can be found.
@item optarg
The string value of the argument to an option.
@@ -13014,26 +16731,23 @@ The string value of the argument to an option.
@item opterr
Usually @code{getopt} prints an error message when it finds an invalid
option. Setting @code{opterr} to zero disables this feature. (An
-application might wish to print its own error message.)
+application might want to print its own error message.)
@item optopt
-The letter representing the command line option.
-While not usually documented, most versions supply this variable.
+The letter representing the command-line option.
+@c While not usually documented, most versions supply this variable.
@end table
-The following C fragment shows how @code{getopt} might process command line
-arguments for @code{awk}.
+The following C fragment shows how @code{getopt} might process command-line
+arguments for @command{awk}:
@example
-@group
int
main(int argc, char *argv[])
@{
@dots{}
/* print our own message */
opterr = 0;
-@end group
-@group
while ((c = getopt(argc, argv, "v:f:F:W:")) != -1) @{
switch (c) @{
case 'f': /* file */
@@ -13056,98 +16770,100 @@ main(int argc, char *argv[])
@}
@dots{}
@}
-@end group
@end example
-As a side point, @code{gawk} actually uses the GNU @code{getopt_long}
+As a side point, @command{gawk} actually uses the GNU @code{getopt_long}
function to process both normal and GNU-style long options
-(@pxref{Options, ,Command Line Options}).
+(@pxref{Options, ,Command-Line Options}).
-The abstraction provided by @code{getopt} is very useful, and would be quite
-handy in @code{awk} programs as well. Here is an @code{awk} version of
-@code{getopt}. This function highlights one of the greatest weaknesses in
-@code{awk}, which is that it is very poor at manipulating single characters.
-Repeated calls to @code{substr} are necessary for accessing individual
-characters (@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+The abstraction provided by @code{getopt} is very useful and is quite
+handy in @command{awk} programs as well. Following is an @command{awk}
+version of @code{getopt}. This function highlights one of the
+greatest weaknesses in @command{awk}, which is that it is very poor at
+manipulating single characters. Repeated calls to @code{substr} are
+necessary for accessing individual characters
+(@pxref{String Functions, ,String Manipulation Functions}).@footnote{This
+function was written before @command{gawk} acquired the ability to
+split strings into single characters using @code{""} as the separator.
+We have left it alone, since using @code{substr} is more portable.}
-The discussion walks through the code a bit at a time.
+The discussion that follows walks through the code a bit at a time:
@example
-@c @group
@c file eg/lib/getopt.awk
-# getopt --- do C library getopt(3) function in awk
+# getopt.awk --- do C library getopt(3) function in awk
+@c endfile
+@ignore
+@c file eg/lib/getopt.awk
#
-# arnold@@gnu.org
-# Public domain
+# Arnold Robbins, arnold@@gnu.org, Public Domain
#
# Initial version: March, 1991
# Revised: May, 1993
-@group
+@c endfile
+@end ignore
+@c file eg/lib/getopt.awk
# External variables:
-# Optind -- index of ARGV for first non-option argument
+# Optind -- index in ARGV of first non-option argument
# Optarg -- string value of argument to current option
-# Opterr -- if non-zero, print our own diagnostic
+# Opterr -- if nonzero, print our own diagnostic
# Optopt -- current option letter
-@end group
-# Returns
+# Returns:
# -1 at end of options
# ? for unrecognized option
# <c> a character representing the current option
-# Private Data
-# _opti index in multi-flag option, e.g., -abc
+# Private Data:
+# _opti -- index in multi-flag option, e.g., -abc
@c endfile
-@c @end group
@end example
-The function starts out with some documentation: who wrote the code,
-and when it was revised, followed by a list of the global variables it uses,
-what the return values are and what they mean, and any global variables that
+The function starts out with
+a list of the global variables it uses,
+what the return values are, what they mean, and any global variables that
are ``private'' to this library function. Such documentation is essential
for any program, and particularly for library functions.
-@findex getopt
+The @code{getopt} function first checks that it was indeed called with a string of options
+(the @code{options} parameter). If @code{options} has a zero length,
+@code{getopt} immediately returns @minus{}1:
+
+@cindex @code{getopt} user-defined function
@example
-@c @group
@c file eg/lib/getopt.awk
-function getopt(argc, argv, options, optl, thisopt, i)
+function getopt(argc, argv, options, thisopt, i)
@{
- optl = length(options)
- if (optl == 0) # no options given
+ if (length(options) == 0) # no options given
return -1
+@group
if (argv[Optind] == "--") @{ # all done
Optind++
_opti = 0
return -1
+@end group
@} else if (argv[Optind] !~ /^-[^: \t\n\f\r\v\b]/) @{
_opti = 0
return -1
@}
@c endfile
-@c @end group
@end example
-The function first checks that it was indeed called with a string of options
-(the @code{options} parameter). If @code{options} has a zero length,
-@code{getopt} immediately returns @minus{}1.
+The next thing to check for is the end of the options. A @option{--}
+ends the command-line options, as does any command-line argument that
+does not begin with a @samp{-}. @code{Optind} is used to step through
+the array of command-line arguments; it retains its value across calls
+to @code{getopt}, because it is a global variable.
-The next thing to check for is the end of the options. A @samp{--} ends the
-command line options, as does any command line argument that does not begin
-with a @samp{-}. @code{Optind} is used to step through the array of command
-line arguments; it retains its value across calls to @code{getopt}, since it
-is a global variable.
-
-The regexp used, @code{@w{/^-[^: \t\n\f\r\v\b]/}}, is
+The regular expression that is used, @code{@w{/^-[^: \t\n\f\r\v\b]/}}, is
perhaps a bit of overkill; it checks for a @samp{-} followed by anything
that is not whitespace and not a colon.
-If the current command line argument does not match this pattern,
+If the current command-line argument does not match this pattern,
it is not an option, and it ends option processing.
@example
-@group
@c file eg/lib/getopt.awk
if (_opti == 0)
_opti = 2
@@ -13166,37 +16882,36 @@ it is not an option, and it ends option processing.
return "?"
@}
@c endfile
-@end group
@end example
-The @code{_opti} variable tracks the position in the current command line
-argument (@code{argv[Optind]}). In the case that multiple options were
-grouped together with one @samp{-} (e.g., @samp{-abx}), it is necessary
+The @code{_opti} variable tracks the position in the current command-line
+argument (@code{argv[Optind]}). If multiple options are
+grouped together with one @samp{-} (e.g., @option{-abx}), it is necessary
to return them to the user one at a time.
-If @code{_opti} is equal to zero, it is set to two, the index in the string
-of the next character to look at (we skip the @samp{-}, which is at position
-one). The variable @code{thisopt} holds the character, obtained with
-@code{substr}. It is saved in @code{Optopt} for the main program to use.
+If @code{_opti} is equal to zero, it is set to two, which is the index in
+the string of the next character to look at (we skip the @samp{-}, which
+is at position one). The variable @code{thisopt} holds the character,
+obtained with @code{substr}. It is saved in @code{Optopt} for the main
+program to use.
If @code{thisopt} is not in the @code{options} string, then it is an
-invalid option. If @code{Opterr} is non-zero, @code{getopt} prints an error
+invalid option. If @code{Opterr} is nonzero, @code{getopt} prints an error
message on the standard error that is similar to the message from the C
version of @code{getopt}.
-Since the option is invalid, it is necessary to skip it and move on to the
+Because the option is invalid, it is necessary to skip it and move on to the
next option character. If @code{_opti} is greater than or equal to the
-length of the current command line argument, then it is necessary to move on
-to the next one, so @code{Optind} is incremented and @code{_opti} is reset
+length of the current command-line argument, it is necessary to move on
+to the next argument, so @code{Optind} is incremented and @code{_opti} is reset
to zero. Otherwise, @code{Optind} is left alone and @code{_opti} is merely
incremented.
-In any case, since the option was invalid, @code{getopt} returns @samp{?}.
+In any case, because the option is invalid, @code{getopt} returns @samp{?}.
The main program can examine @code{Optopt} if it needs to know what the
-invalid option letter actually was.
+invalid option letter actually is. Continuing on:
@example
-@group
@c file eg/lib/getopt.awk
if (substr(options, i + 1, 1) == ":") @{
# get option argument
@@ -13208,19 +16923,17 @@ invalid option letter actually was.
@} else
Optarg = ""
@c endfile
-@end group
@end example
If the option requires an argument, the option letter is followed by a colon
in the @code{options} string. If there are remaining characters in the
-current command line argument (@code{argv[Optind]}), then the rest of that
-string is assigned to @code{Optarg}. Otherwise, the next command line
-argument is used (@samp{-xFOO} vs. @samp{@w{-x FOO}}). In either case,
-@code{_opti} is reset to zero, since there are no more characters left to
-examine in the current command line argument.
+current command-line argument (@code{argv[Optind]}), then the rest of that
+string is assigned to @code{Optarg}. Otherwise, the next command-line
+argument is used (@samp{-xFOO} vs.@: @samp{@w{-x FOO}}). In either case,
+@code{_opti} is reset to zero, because there are no more characters left to
+examine in the current command-line argument. Continuing:
@example
-@c @group
@c file eg/lib/getopt.awk
if (_opti == 0 || _opti >= length(argv[Optind])) @{
Optind++
@@ -13230,18 +16943,22 @@ examine in the current command line argument.
return thisopt
@}
@c endfile
-@c @end group
@end example
Finally, if @code{_opti} is either zero or greater than the length of the
-current command line argument, it means this element in @code{argv} is
+current command-line argument, it means this element in @code{argv} is
through being processed, so @code{Optind} is incremented to point to the
next element in @code{argv}. If neither condition is true, then only
@code{_opti} is incremented, so that the next option letter can be processed
on the next call to @code{getopt}.
+The @code{BEGIN} rule initializes both @code{Opterr} and @code{Optind} to one.
+@code{Opterr} is set to one, since the default behavior is for @code{getopt}
+to print a diagnostic message upon seeing an invalid option. @code{Optind}
+is set to one, since there's no reason to look at the program name, which is
+in @code{ARGV[0]}:
+
@example
-@c @group
@c file eg/lib/getopt.awk
BEGIN @{
Opterr = 1 # default is to diagnose
@@ -13259,20 +16976,12 @@ BEGIN @{
@}
@}
@c endfile
-@c @end group
@end example
-The @code{BEGIN} rule initializes both @code{Opterr} and @code{Optind} to one.
-@code{Opterr} is set to one, since the default behavior is for @code{getopt}
-to print a diagnostic message upon seeing an invalid option. @code{Optind}
-is set to one, since there's no reason to look at the program name, which is
-in @code{ARGV[0]}.
-
The rest of the @code{BEGIN} rule is a simple test program. Here is the
-result of two sample runs of the test program.
+result of two sample runs of the test program:
@example
-@group
$ awk -f getopt.awk -v _getopt_test=1 -- -a -cbARG bax -x
@print{} c = <a>, optarg = <>
@print{} c = <c>, optarg = <>
@@ -13280,9 +16989,7 @@ $ awk -f getopt.awk -v _getopt_test=1 -- -a -cbARG bax -x
@print{} non-option arguments:
@print{} ARGV[3] = <bax>
@print{} ARGV[4] = <-x>
-@end group
-@group
$ awk -f getopt.awk -v _getopt_test=1 -- -a -x -- xyz abc
@print{} c = <a>, optarg = <>
@error{} x -- invalid option
@@ -13290,32 +16997,30 @@ $ awk -f getopt.awk -v _getopt_test=1 -- -a -x -- xyz abc
@print{} non-option arguments:
@print{} ARGV[4] = <xyz>
@print{} ARGV[5] = <abc>
-@end group
@end example
-The first @samp{--} terminates the arguments to @code{awk}, so that it does
-not try to interpret the @samp{-a} etc. as its own options.
-
+In both runs,
+the first @option{--} terminates the arguments to @command{awk}, so that it does
+not try to interpret the @option{-a}, etc., as its own options.
Several of the sample programs presented in
-@ref{Sample Programs, ,Practical @code{awk} Programs},
+@ref{Sample Programs, ,Practical @command{awk} Programs},
use @code{getopt} to process their arguments.
@node Passwd Functions, Group Functions, Getopt Function, Library Functions
@section Reading the User Database
-@cindex @file{/dev/user}
-The @file{/dev/user} special file
-(@pxref{Special Files, ,Special File Names in @code{gawk}})
+The @code{PROCINFO} array
+(@pxref{Built-in Variables})
provides access to the current user's real and effective user and group id
numbers, and if available, the user's supplementary group set.
-However, since these are numbers, they do not provide very useful
+However, because these are numbers, they do not provide very useful
information to the average user. There needs to be some way to find the
user information associated with the user and group numbers. This
-section presents a suite of functions for retrieving information from the
+@value{SECTION} presents a suite of functions for retrieving information from the
user database. @xref{Group Functions, ,Reading the Group Database},
for a similar suite that retrieves information from the group database.
-@cindex @code{getpwent}, C version
+@cindex @code{getpwent} C library function
@cindex user information
@cindex login information
@cindex account information
@@ -13325,40 +17030,42 @@ kept. Instead, it provides the @code{<pwd.h>} header file
and several C language subroutines for obtaining user information.
The primary function is @code{getpwent}, for ``get password entry.''
The ``password'' comes from the original user database file,
-@file{/etc/passwd}, which kept user information, along with the
+@file{/etc/passwd}, which stores user information, along with the
encrypted passwords (hence the name).
-While an @code{awk} program could simply read @file{/etc/passwd} directly
-(the format is well known), because of the way password
-files are handled on networked systems,
-this file may not contain complete information about the system's set of users.
-
-@cindex @code{pwcat} program
-To be sure of being
-able to produce a readable, complete version of the user database, it is
-necessary to write a small C program that calls @code{getpwent}.
-@code{getpwent} is defined to return a pointer to a @code{struct passwd}.
-Each time it is called, it returns the next entry in the database.
-When there are no more entries, it returns @code{NULL}, the null pointer.
-When this happens, the C program should call @code{endpwent} to close the
-database.
-Here is @code{pwcat}, a C program that ``cats'' the password database.
-
-@findex pwcat.c
-@example
-@c @group
+@cindex @command{pwcat} program
+While an @command{awk} program could simply read @file{/etc/passwd}
+directly, this file may not contain complete information about the
+system's set of users.@footnote{It is often the case that password
+information is stored in a network database.} To be sure you are able to
+produce a readable and complete version of the user database, it is necessary
+to write a small C program that calls @code{getpwent}. @code{getpwent}
+is defined as returning a pointer to a @code{struct passwd}. Each time it
+is called, it returns the next entry in the database. When there are
+no more entries, it returns @code{NULL}, the null pointer. When this
+happens, the C program should call @code{endpwent} to close the database.
+Following is @command{pwcat}, a C program that ``cats'' the password database.
+
+@c Use old style function header for portability to old systems (SunOS, HP/UX).
+
+@example
@c file eg/lib/pwcat.c
/*
* pwcat.c
*
* Generate a printable version of the password database
- *
- * Arnold Robbins
- * arnold@@gnu.org
- * May 1993
+ */
+@c endfile
+@ignore
+@c file eg/lib/pwcat.c
+/*
+ * Arnold Robbins, arnold@@gnu.org, May 1993
* Public Domain
*/
+@c endfile
+@end ignore
+@c file eg/lib/pwcat.c
#include <stdio.h>
#include <pwd.h>
@@ -13378,13 +17085,13 @@ char **argv;
exit(0);
@}
@c endfile
-@c @end group
@end example
If you don't understand C, don't worry about it.
-The output from @code{pwcat} is the user database, in the traditional
+The output from @command{pwcat} is the user database, in the traditional
@file{/etc/passwd} format of colon-separated fields. The fields are:
+@ignore
@table @asis
@item Login name
The user's login name.
@@ -13403,18 +17110,40 @@ The user's full name, and perhaps other information associated with the
user.
@item Home directory
-The user's login, or ``home'' directory (familiar to shell programmers as
+The user's login (or ``home'') directory (familiar to shell programmers as
@code{$HOME}).
@item Login shell
-The program that will be run when the user logs in. This is usually a
-shell, such as Bash (the Gnu Bourne-Again shell).
+The program that is run when the user logs in. This is usually a
+shell, such as @command{bash}.
@end table
+@end ignore
+
+@multitable {Encrypted password} {1234567890123456789012345678901234567890123456}
+@item Login name @tab The user's login name.
+
+@item Encrypted password @tab The user's encrypted password. This may not be available on some systems.
-Here are a few lines representative of @code{pwcat}'s output.
+@item User-ID @tab The user's numeric user-id number.
+@item Group-ID @tab The user's numeric group-id number.
+
+@item Full name @tab The user's full name, and perhaps other information associated with the
+user.
+
+@item Home directory @tab The user's login (or ``home'') directory (familiar to shell programmers as
+@code{$HOME}).
+
+@item Login shell @tab The program that is run when the user logs in. This is usually a
+shell, such as @command{bash}.
+@end multitable
+
+A few lines representative of @command{pwcat}'s output are as follows:
+
+@cindex Jacobs, Andrew
+@cindex Robbins, Arnold
+@cindex Robbins, Miriam
@example
-@c @group
$ pwcat
@print{} root:3Ov02d5VaUPB6:0:1:Operator:/:/bin/sh
@print{} nobody:*:65534:65534::/:
@@ -13425,37 +17154,47 @@ $ pwcat
@print{} miriam:yxaay:112:10:Miriam Robbins:/home/miriam:/bin/sh
@print{} andy:abcca2:113:10:Andy Jacobs:/home/andy:/bin/sh
@dots{}
-@c @end group
@end example
-With that introduction, here is a group of functions for getting user
+With that introduction, following is a group of functions for getting user
information. There are several functions here, corresponding to the C
-functions of the same name.
+functions of the same names:
-@findex _pw_init
+@c Exercise: simplify all these functions that return values.
+@c Answer: return foo[key] returns "" if key not there, no need to check with `in'.
+
+@cindex @code{_pw_init} user-defined function
@example
@c file eg/lib/passwdawk.in
-@group
# passwd.awk --- access password file information
+@c endfile
+@ignore
+@c file eg/lib/passwdawk.in
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+# Revised October 2000
+@c endfile
+@end ignore
+@c file eg/lib/passwdawk.in
BEGIN @{
# tailor this to suit your system
_pw_awklib = "/usr/local/libexec/awk/"
@}
-@end group
-@group
-function _pw_init( oldfs, oldrs, olddol0, pwcat)
+function _pw_init( oldfs, oldrs, olddol0, pwcat, using_fw)
@{
if (_pw_inited)
return
+
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
+
pwcat = _pw_awklib "pwcat"
while ((pwcat | getline) > 0) @{
_pw_byname[$1] = $0
@@ -13466,42 +17205,56 @@ function _pw_init( oldfs, oldrs, olddol0, pwcat)
_pw_count = 0
_pw_inited = 1
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
@}
@c endfile
-@end group
@end example
The @code{BEGIN} rule sets a private variable to the directory where
-@code{pwcat} is stored. Since it is used to help out an @code{awk} library
-routine, we have chosen to put it in @file{/usr/local/libexec/awk}.
-You might want it to be in a different directory on your system.
+@command{pwcat} is stored. Because it is used to help out an @command{awk} library
+routine, we have chosen to put it in @file{/usr/local/libexec/awk};
+however, you might want it to be in a different directory on your system.
The function @code{_pw_init} keeps three copies of the user information
-in three associative arrays. The arrays are indexed by user name
+in three associative arrays. The arrays are indexed by username
(@code{_pw_byname}), by user-id number (@code{_pw_byuid}), and by order of
occurrence (@code{_pw_bycount}).
-
-The variable @code{_pw_inited} is used for efficiency; @code{_pw_init} only
-needs to be called once.
-
-Since this function uses @code{getline} to read information from
-@code{pwcat}, it first saves the values of @code{FS}, @code{RS}, and
-@code{$0}. Doing so is necessary, since these functions could be called
-from anywhere within a user's program, and the user may have his or her
-own values for @code{FS} and @code{RS}.
-@ignore
-Problem, what if FIELDWIDTHS is in use? Sigh.
-@end ignore
+The variable @code{_pw_inited} is used for efficiency; @code{_pw_init}
+needs only to be called once.
+
+Because this function uses @code{getline} to read information from
+@command{pwcat}, it first saves the values of @code{FS}, @code{RS}, and @code{$0}.
+It notes in the variable @code{using_fw} whether field splitting
+with @code{FIELDWIDTHS} is in effect or not.
+Doing so is necessary, since these functions could be called
+from anywhere within a user's program, and the user may have his
+or her
+own way of splitting records and fields.
+
+The @code{using_fw} variable checks @code{PROCINFO["FS"]}, which
+is @code{"FIELDWIDTHS"} if field splitting is being done with
+@code{FIELDWIDTHS}. This makes it possible to restore the correct
+field-splitting mechanism later. The test can only be true for
+@command{gawk}. It is false if using @code{FS} or on some other
+@command{awk} implementation.
The main part of the function uses a loop to read database lines, split
the line into fields, and then store the line into each array as necessary.
When the loop is done, @code{@w{_pw_init}} cleans up by closing the pipeline,
-setting @code{@w{_pw_inited}} to one, and restoring @code{FS}, @code{RS}, and
-@code{$0}. The use of @code{@w{_pw_count}} will be explained below.
+setting @code{@w{_pw_inited}} to one, and restoring @code{FS} (and @code{FIELDWIDTHS}
+if necessary), @code{RS}, and @code{$0}.
+The use of @code{@w{_pw_count}} is explained shortly.
+
+@c NEXT ED: All of these functions don't need the ... in ... test. Just
+@c return the array element, which will be "" if not already there. Duh.
+The @code{getpwnam} function takes a username as a string argument. If that
+user is in the database, it returns the appropriate line. Otherwise it
+returns the null string:
-@findex getpwnam
+@cindex @code{getpwnam} user-defined function
@example
@group
@c file eg/lib/passwdawk.in
@@ -13516,13 +17269,13 @@ function getpwnam(name)
@end group
@end example
-The @code{getpwnam} function takes a user name as a string argument. If that
-user is in the database, it returns the appropriate line. Otherwise it
-returns the null string.
+Similarly,
+the @code{getpwuid} function takes a user-id number argument. If that
+user number is in the database, it returns the appropriate line. Otherwise it
+returns the null string:
-@findex getpwuid
+@cindex @code{getpwuid} user-defined function
@example
-@group
@c file eg/lib/passwdawk.in
function getpwuid(uid)
@{
@@ -13532,17 +17285,14 @@ function getpwuid(uid)
return ""
@}
@c endfile
-@end group
@end example
-Similarly,
-the @code{getpwuid} function takes a user-id number argument. If that
-user number is in the database, it returns the appropriate line. Otherwise it
-returns the null string.
+The @code{getpwent} function simply steps through the database, one entry at
+a time. It uses @code{_pw_count} to track its current position in the
+@code{_pw_bycount} array:
-@findex getpwent
+@cindex @code{getpwent} user-defined function
@example
-@c @group
@c file eg/lib/passwdawk.in
function getpwent()
@{
@@ -13552,60 +17302,53 @@ function getpwent()
return ""
@}
@c endfile
-@c @end group
@end example
-The @code{getpwent} function simply steps through the database, one entry at
-a time. It uses @code{_pw_count} to track its current position in the
-@code{_pw_bycount} array.
+The @code{@w{endpwent}} function resets @code{@w{_pw_count}} to zero, so that
+subsequent calls to @code{getpwent} start over again:
-@findex endpwent
+@cindex @code{endpwent} user-defined function
@example
-@c @group
@c file eg/lib/passwdawk.in
function endpwent()
@{
_pw_count = 0
@}
@c endfile
-@c @end group
@end example
-The @code{@w{endpwent}} function resets @code{@w{_pw_count}} to zero, so that
-subsequent calls to @code{getpwent} will start over again.
-
A conscious design decision in this suite is that each subroutine calls
@code{@w{_pw_init}} to initialize the database arrays. The overhead of running
a separate process to generate the user database, and the I/O to scan it,
-will only be incurred if the user's main program actually calls one of these
+are only incurred if the user's main program actually calls one of these
functions. If this library file is loaded along with a user's program, but
-none of the routines are ever called, then there is no extra run-time overhead.
-(The alternative would be to move the body of @code{@w{_pw_init}} into a
-@code{BEGIN} rule, which would always run @code{pwcat}. This simplifies the
+none of the routines are ever called, then there is no extra runtime overhead.
+(The alternative is move the body of @code{@w{_pw_init}} into a
+@code{BEGIN} rule, which always runs @command{pwcat}. This simplifies the
code but runs an extra process that may never be needed.)
-In turn, calling @code{_pw_init} is not too expensive, since the
+In turn, calling @code{_pw_init} is not too expensive, because the
@code{_pw_inited} variable keeps the program from reading the data more than
once. If you are worried about squeezing every last cycle out of your
-@code{awk} program, the check of @code{_pw_inited} could be moved out of
+@command{awk} program, the check of @code{_pw_inited} could be moved out of
@code{_pw_init} and duplicated in all the other functions. In practice,
-this is not necessary, since most @code{awk} programs are I/O bound, and it
-would clutter up the code.
+this is not necessary, since most @command{awk} programs are I/O-bound, and it
+clutters up the code.
-The @code{id} program in @ref{Id Program, ,Printing Out User Information},
+The @command{id} program in @ref{Id Program, ,Printing out User Information},
uses these functions.
-@node Group Functions, Library Names, Passwd Functions, Library Functions
+@node Group Functions, , Passwd Functions, Library Functions
@section Reading the Group Database
-@cindex @code{getgrent}, C version
+@cindex @code{getgrent} C library function
@cindex group information
@cindex account information
@cindex group file
Much of the discussion presented in
@ref{Passwd Functions, ,Reading the User Database},
applies to the group database as well. Although there has traditionally
-been a well known file, @file{/etc/group}, in a well known format, the POSIX
+been a well-known file (@file{/etc/group}) in a well-known format, the POSIX
standard only provides a set of C library routines
(@code{<grp.h>} and @code{getgrent})
for accessing the information.
@@ -13613,27 +17356,31 @@ Even though this file may exist, it likely does not have
complete information. Therefore, as with the user database, it is necessary
to have a small C program that generates the group database as its output.
-@cindex @code{grcat} program
-Here is @code{grcat}, a C program that ``cats'' the group database.
+@cindex @command{grcat} program
+@command{grcat}, a C program that ``cats'' the group database,
+is as follows:
-@findex grcat.c
@example
-@c @group
@c file eg/lib/grcat.c
/*
* grcat.c
*
* Generate a printable version of the group database
- *
- * Arnold Robbins, arnold@@gnu.org
- * May 1993
+ */
+@c endfile
+@ignore
+@c file eg/lib/grcat.c
+/*
+ * Arnold Robbins, arnold@@gnu.org, May 1993
* Public Domain
*/
+@c endfile
+@end ignore
+@c file eg/lib/grcat.c
#include <stdio.h>
#include <grp.h>
-@group
int
main(argc, argv)
int argc;
@@ -13641,54 +17388,73 @@ char **argv;
@{
struct group *g;
int i;
-@end group
-@group
while ((g = getgrent()) != NULL) @{
printf("%s:%s:%d:", g->gr_name, g->gr_passwd,
g->gr_gid);
-@end group
for (i = 0; g->gr_mem[i] != NULL; i++) @{
printf("%s", g->gr_mem[i]);
+@group
if (g->gr_mem[i+1] != NULL)
putchar(',');
@}
+@end group
putchar('\n');
@}
endgrent();
exit(0);
@}
@c endfile
-@c @end group
@end example
-Each line in the group database represent one group. The fields are
-separated with colons, and represent the following information.
+Each line in the group database represents one group. The fields are
+separated with colons and represent the following information:
+@ignore
@table @asis
@item Group Name
The name of the group.
@item Group Password
The encrypted group password. In practice, this field is never used. It is
-usually empty, or set to @samp{*}.
+usually empty or set to @samp{*}.
@item Group ID Number
The numeric group-id number. This number should be unique within the file.
@item Group Member List
-A comma-separated list of user names. These users are members of the group.
-Most Unix systems allow users to be members of several groups
-simultaneously. If your system does, then reading @file{/dev/user} will
-return those group-id numbers in @code{$5} through @code{$NF}.
-(Note that @file{/dev/user} is a @code{gawk} extension;
-@pxref{Special Files, ,Special File Names in @code{gawk}}.)
+A comma-separated list of usernames. These users are members of the group.
+Modern Unix systems allow users to be members of several groups
+simultaneously. If your system does, then there are elements
+@code{"group1"} through @code{"group@var{N}"} in @code{PROCINFO}
+for those group-id numbers.
+(Note that @code{PROCINFO} is a @command{gawk} extension;
+@pxref{Built-in Variables}.)
@end table
+@end ignore
+
+@multitable {Encrypted password} {1234567890123456789012345678901234567890123456}
+@item Group name @tab The group's name.
+
+@item Group password @tab The group's encrypted password. In practice, this field is never used;
+it is usually empty or set to @samp{*}.
+
+@item Group-ID @tab
+The group's numeric group-id number; this number should be unique within the file.
-Here is what running @code{grcat} might produce:
+@item Group member list @tab
+A comma-separated list of usernames. These users are members of the group.
+Modern Unix systems allow users to be members of several groups
+simultaneously. If your system does, then there are elements
+@code{"group1"} through @code{"group@var{N}"} in @code{PROCINFO}
+for those group-id numbers.
+(Note that @code{PROCINFO} is a @command{gawk} extension;
+@pxref{Built-in Variables}.)
+@end multitable
+
+Here is what running @command{grcat} might produce:
@example
-@group
$ grcat
@print{} wheel:*:0:arnold
@print{} nogroup:*:65534:
@@ -13697,45 +17463,46 @@ $ grcat
@print{} staff:*:10:arnold,miriam,andy
@print{} other:*:20:
@dots{}
-@end group
@end example
Here are the functions for obtaining information from the group database.
-There are several, modeled after the C library functions of the same names.
+There are several, modeled after the C library functions of the same names:
-@findex _gr_init
+@cindex @code{_gr_init} user-defined function
@example
-@group
@c file eg/lib/groupawk.in
# group.awk --- functions for dealing with the group file
+@c endfile
+@ignore
+@c file eg/lib/groupawk.in
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+# Revised October 2000
+@c endfile
+@end ignore
+@c line break on _gr_init for smallbook
+@c file eg/lib/groupawk.in
BEGIN \
@{
# Change to suit your system
_gr_awklib = "/usr/local/libexec/awk/"
@}
-@c endfile
-@end group
-@group
-@c file eg/lib/groupawk.in
-function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
+function _gr_init( oldfs, oldrs, olddol0, grcat,
+ using_fw, n, a, i)
@{
if (_gr_inited)
return
-@end group
-@group
oldfs = FS
oldrs = RS
olddol0 = $0
+ using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
FS = ":"
RS = "\n"
-@end group
-@group
grcat = _gr_awklib "grcat"
while ((grcat | getline) > 0) @{
if ($1 in _gr_byname)
@@ -13748,34 +17515,29 @@ function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i)
_gr_bygid[$3] = $0
n = split($4, a, "[ \t]*,[ \t]*")
-@end group
-@group
for (i = 1; i <= n; i++)
if (a[i] in _gr_groupsbyuser)
_gr_groupsbyuser[a[i]] = \
_gr_groupsbyuser[a[i]] " " $1
else
_gr_groupsbyuser[a[i]] = $1
-@end group
-@group
_gr_bycount[++_gr_count] = $0
@}
-@end group
-@group
close(grcat)
_gr_count = 0
_gr_inited++
FS = oldfs
+ if (using_fw)
+ FIELDWIDTHS = FIELDWIDTHS
RS = oldrs
$0 = olddol0
@}
@c endfile
-@end group
@end example
The @code{BEGIN} rule sets a private variable to the directory where
-@code{grcat} is stored. Since it is used to help out an @code{awk} library
+@command{grcat} is stored. Because it is used to help out an @command{awk} library
routine, we have chosen to put it in @file{/usr/local/libexec/awk}. You might
want it to be in a different directory on your system.
@@ -13783,39 +17545,43 @@ These routines follow the same general outline as the user database routines
(@pxref{Passwd Functions, ,Reading the User Database}).
The @code{@w{_gr_inited}} variable is used to
ensure that the database is scanned no more than once.
-The @code{@w{_gr_init}} function first saves @code{FS}, @code{RS}, and
+The @code{@w{_gr_init}} function first saves @code{FS}, @code{FIELDWIDTHS}, @code{RS}, and
@code{$0}, and then sets @code{FS} and @code{RS} to the correct values for
scanning the group information.
The group information is stored is several associative arrays.
The arrays are indexed by group name (@code{@w{_gr_byname}}), by group-id number
(@code{@w{_gr_bygid}}), and by position in the database (@code{@w{_gr_bycount}}).
-There is an additional array indexed by user name (@code{@w{_gr_groupsbyuser}}),
-that is a space separated list of groups that each user belongs to.
+There is an additional array indexed by username (@code{@w{_gr_groupsbyuser}}),
+which is a space-separated list of groups that each user belongs to.
Unlike the user database, it is possible to have multiple records in the
database for the same group. This is common when a group has a large number
-of members. Such a pair of entries might look like:
+of members. A pair of such entries might look like the following:
@example
-tvpeople:*:101:johny,jay,arsenio
+tvpeople:*:101:johnny,jay,arsenio
tvpeople:*:101:david,conan,tom,joan
@end example
For this reason, @code{_gr_init} looks to see if a group name or
-group-id number has already been seen. If it has, then the user names are
+group-id number is already seen. If it is, then the usernames are
simply concatenated onto the previous list of users. (There is actually a
-subtle problem with the code presented above. Suppose that
+subtle problem with the code just presented. Suppose that
the first time there were no names. This code adds the names with
a leading comma. It also doesn't check that there is a @code{$4}.)
-Finally, @code{_gr_init} closes the pipeline to @code{grcat}, restores
-@code{FS}, @code{RS}, and @code{$0}, initializes @code{_gr_count} to zero
-(it is used later), and makes @code{_gr_inited} non-zero.
+Finally, @code{_gr_init} closes the pipeline to @command{grcat}, restores
+@code{FS} (and @code{FIELDWIDTHS} if necessary), @code{RS}, and @code{$0},
+initializes @code{_gr_count} to zero
+(it is used later), and makes @code{_gr_inited} nonzero.
+
+The @code{getgrnam} function takes a group name as its argument, and if that
+group exists, it is returned. Otherwise, @code{getgrnam} returns the null
+string:
-@findex getgrnam
+@cindex @code{getgrnam} user-defined function
@example
-@c @group
@c file eg/lib/groupawk.in
function getgrnam(group)
@{
@@ -13825,16 +17591,13 @@ function getgrnam(group)
return ""
@}
@c endfile
-@c @end group
@end example
-The @code{getgrnam} function takes a group name as its argument, and if that
-group exists, it is returned. Otherwise, @code{getgrnam} returns the null
-string.
+The @code{getgrgid} function is similar, it takes a numeric group-id and
+looks up the information associated with that group-id:
-@findex getgrgid
+@cindex @code{getgrgid} user-defined function
@example
-@c @group
@c file eg/lib/groupawk.in
function getgrgid(gid)
@{
@@ -13844,15 +17607,13 @@ function getgrgid(gid)
return ""
@}
@c endfile
-@c @end group
@end example
-The @code{getgrgid} function is similar, it takes a numeric group-id, and
-looks up the information associated with that group-id.
+The @code{getgruser} function does not have a C counterpart. It takes a
+username and returns the list of groups that have the user as a member:
-@findex getgruser
+@cindex @code{getgruser} user-defined function
@example
-@group
@c file eg/lib/groupawk.in
function getgruser(user)
@{
@@ -13862,15 +17623,13 @@ function getgruser(user)
return ""
@}
@c endfile
-@end group
@end example
-The @code{getgruser} function does not have a C counterpart. It takes a
-user name, and returns the list of groups that have the user as a member.
+The @code{getgrent} function steps through the database one entry at a time.
+It uses @code{_gr_count} to track its position in the list:
-@findex getgrent
+@cindex @code{getgrent} user-defined function
@example
-@c @group
@c file eg/lib/groupawk.in
function getgrent()
@{
@@ -13880,197 +17639,149 @@ function getgrent()
return ""
@}
@c endfile
-@c @end group
@end example
-The @code{getgrent} function steps through the database one entry at a time.
-It uses @code{_gr_count} to track its position in the list.
+The @code{endgrent} function resets @code{_gr_count} to zero so that @code{getgrent} can
+start over again:
-@findex endgrent
+@cindex @code{endgrent} user-defined function
@example
-@group
@c file eg/lib/groupawk.in
function endgrent()
@{
_gr_count = 0
@}
@c endfile
-@end group
@end example
-@code{endgrent} resets @code{_gr_count} to zero so that @code{getgrent} can
-start over again.
-
As with the user database routines, each function calls @code{_gr_init} to
initialize the arrays. Doing so only incurs the extra overhead of running
-@code{grcat} if these functions are used (as opposed to moving the body of
+@command{grcat} if these functions are used (as opposed to moving the body of
@code{_gr_init} into a @code{BEGIN} rule).
Most of the work is in scanning the database and building the various
associative arrays. The functions that the user calls are themselves very
-simple, relying on @code{awk}'s associative arrays to do work.
+simple, relying on @command{awk}'s associative arrays to do work.
-The @code{id} program in @ref{Id Program, ,Printing Out User Information},
+The @command{id} program in @ref{Id Program, ,Printing out User Information},
uses these functions.
-@node Library Names, , Group Functions, Library Functions
-@section Naming Library Function Global Variables
-
-@cindex namespace issues in @code{awk}
-@cindex documenting @code{awk} programs
-@cindex programs, documenting
-Due to the way the @code{awk} language evolved, variables are either
-@dfn{global} (usable by the entire program), or @dfn{local} (usable just by
-a specific function). There is no intermediate state analogous to
-@code{static} variables in C.
-
-Library functions often need to have global variables that they can use to
-preserve state information between calls to the function. For example,
-@code{getopt}'s variable @code{_opti}
-(@pxref{Getopt Function, ,Processing Command Line Options}),
-and the @code{_tm_months} array used by @code{mktime}
-(@pxref{Mktime Function, ,Turning Dates Into Timestamps}).
-Such variables are called @dfn{private}, since the only functions that need to
-use them are the ones in the library.
+@node Sample Programs, Language History, Library Functions, Top
+@chapter Practical @command{awk} Programs
-When writing a library function, you should try to choose names for your
-private variables so that they will not conflict with any variables used by
-either another library function or a user's main program. For example, a
-name like @samp{i} or @samp{j} is not a good choice, since user programs
-often use variable names like these for their own purposes.
+@ref{Library Functions, ,A Library of @command{awk} Functions},
+presents the idea that reading programs in a language contributes to
+learning that language. This @value{CHAPTER} continues that theme,
+presenting a potpourri of @command{awk} programs for your reading
+enjoyment.
+@ifnotinfo
+There are three sections.
+The first describes how to run the programs presented
+in this @value{CHAPTER}.
-The example programs shown in this chapter all start the names of their
-private variables with an underscore (@samp{_}). Users generally don't use
-leading underscores in their variable names, so this convention immediately
-decreases the chances that the variable name will be accidentally shared
-with the user's program.
+The second presents @command{awk}
+versions of several common POSIX utilities.
+These are programs that you are hopefully already familiar with,
+and therefore, whose problems are understood.
+By reimplementing these programs in @command{awk},
+you can focus on the @command{awk}-related aspects of solving
+the programming problem.
+
+The third is a grab bag of interesting programs.
+These solve a number of different data-manipulation and management
+problems. Many of the programs are short, which emphasizes @command{awk}'s
+ability to do a lot in just a few lines of code.
+@end ifnotinfo
-In addition, several of the library functions use a prefix that helps
-indicate what function or set of functions uses the variables. For example,
-@code{_tm_months} in @code{mktime}
-(@pxref{Mktime Function, ,Turning Dates Into Timestamps}), and
-@code{_pw_byname} in the user data base routines
-(@pxref{Passwd Functions, ,Reading the User Database}).
-This convention is recommended, since it even further decreases the chance
-of inadvertent conflict among variable names.
-Note that this convention can be used equally well both for variable names
-and for private function names too.
+Many of these programs use the library functions presented in
+@ref{Library Functions, ,A Library of @command{awk} Functions}.
-While I could have re-written all the library routines to use this
-convention, I did not do so, in order to show how my own @code{awk}
-programming style has evolved, and to provide some basis for this
-discussion.
+@menu
+* Running Examples:: How to run these examples.
+* Clones:: Clones of common utilities.
+* Miscellaneous Programs:: Some interesting @command{awk} programs.
+@end menu
-As a final note on variable naming, if a function makes global variables
-available for use by a main program, it is a good convention to start that
-variable's name with a capital letter.
-For example, @code{getopt}'s @code{Opterr} and @code{Optind} variables
-(@pxref{Getopt Function, ,Processing Command Line Options}).
-The leading capital letter indicates that it is global, while the fact that
-the variable name is not all capital letters indicates that the variable is
-not one of @code{awk}'s built-in variables, like @code{FS}.
+@node Running Examples, Clones, Sample Programs, Sample Programs
+@section Running the Example Programs
-It is also important that @emph{all} variables in library functions
-that do not need to save state are in fact declared local. If this is
-not done, the variable could accidentally be used in the user's program,
-leading to bugs that are very difficult to track down.
+To run a given program, you would typically do something like this:
@example
-function lib_func(x, y, l1, l2)
-@{
- @dots{}
- @var{use variable} some_var # some_var could be local
- @dots{} # but is not by oversight
-@}
+awk -f @var{program} -- @var{options} @var{files}
@end example
-@cindex Tcl
-A different convention, common in the Tcl community, is to use a single
-associative array to hold the values needed by the library function(s), or
-``package.'' This significantly decreases the number of actual global names
-in use. For example, the functions described in
-@ref{Passwd Functions, , Reading the User Database},
-might have used @code{@w{PW_data["inited"]}}, @code{@w{PW_data["total"]}},
-@code{@w{PW_data["count"]}} and @code{@w{PW_data["awklib"]}}, instead of
-@code{@w{_pw_inited}}, @code{@w{_pw_awklib}}, @code{@w{_pw_total}},
-and @code{@w{_pw_count}}.
-
-The conventions presented in this section are exactly that, conventions. You
-are not required to write your programs this way, we merely recommend that
-you do so.
+@noindent
+Here, @var{program} is the name of the @command{awk} program (such as
+@file{cut.awk}), @var{options} are any command-line options for the
+program that start with a @samp{-}, and @var{files} are the actual @value{DF}s.
-@node Sample Programs, Language History, Library Functions, Top
-@chapter Practical @code{awk} Programs
+If your system supports the @samp{#!} executable interpreter mechanism
+(@pxref{Executable Scripts, , Executable @command{awk} Programs}),
+you can instead run your program directly:
-This chapter presents a potpourri of @code{awk} programs for your reading
-enjoyment.
-@iftex
-There are two sections. The first presents @code{awk}
-versions of several common POSIX utilities.
-The second is a grab-bag of interesting programs.
-@end iftex
+@example
+cut.awk -c1-8 myfiles > results
+@end example
-Many of these programs use the library functions presented in
-@ref{Library Functions, ,A Library of @code{awk} Functions}.
+If your @command{awk} is not @command{gawk}, you may instead need to use this:
-@menu
-* Clones:: Clones of common utilities.
-* Miscellaneous Programs:: Some interesting @code{awk} programs.
-@end menu
+@example
+cut.awk -- -c1-8 myfiles > results
+@end example
-@node Clones, Miscellaneous Programs, Sample Programs, Sample Programs
-@section Re-inventing Wheels for Fun and Profit
+@node Clones, Miscellaneous Programs, Running Examples, Sample Programs
+@section Reinventing Wheels for Fun and Profit
-This section presents a number of POSIX utilities that are implemented in
-@code{awk}. Re-inventing these programs in @code{awk} is often enjoyable,
-since the algorithms can be very clearly expressed, and usually the code is
-very concise and simple. This is true because @code{awk} does so much for you.
+This @value{SECTION} presents a number of POSIX utilities that are implemented in
+@command{awk}. Reinventing these programs in @command{awk} is often enjoyable,
+because the algorithms can be very clearly expressed, and the code is usually
+very concise and simple. This is true because @command{awk} does so much for you.
It should be noted that these programs are not necessarily intended to
replace the installed versions on your system. Instead, their
-purpose is to illustrate @code{awk} language programming for ``real world''
+purpose is to illustrate @command{awk} language programming for ``real world''
tasks.
The programs are presented in alphabetical order.
@menu
-* Cut Program:: The @code{cut} utility.
-* Egrep Program:: The @code{egrep} utility.
-* Id Program:: The @code{id} utility.
-* Split Program:: The @code{split} utility.
-* Tee Program:: The @code{tee} utility.
-* Uniq Program:: The @code{uniq} utility.
-* Wc Program:: The @code{wc} utility.
+* Cut Program:: The @command{cut} utility.
+* Egrep Program:: The @command{egrep} utility.
+* Id Program:: The @command{id} utility.
+* Split Program:: The @command{split} utility.
+* Tee Program:: The @command{tee} utility.
+* Uniq Program:: The @command{uniq} utility.
+* Wc Program:: The @command{wc} utility.
@end menu
@node Cut Program, Egrep Program, Clones, Clones
-@subsection Cutting Out Fields and Columns
+@subsection Cutting out Fields and Columns
-@cindex @code{cut} utility
-The @code{cut} utility selects, or ``cuts,'' either characters or fields
-from its standard
-input and sends them to its standard output. @code{cut} can cut out either
-a list of characters, or a list of fields. By default, fields are separated
-by tabs, but you may supply a command line option to change the field
-@dfn{delimiter}, i.e.@: the field separator character. @code{cut}'s definition
-of fields is less general than @code{awk}'s.
+@cindex @command{cut} utility
+The @command{cut} utility selects, or ``cuts,'' characters or fields
+from its standard input and sends them to its standard output.
+Fields are separated by tabs by default,
+but you may supply a command-line option to change the field
+@dfn{delimiter} (i.e., the field separator character). @command{cut}'s
+definition of fields is less general than @command{awk}'s.
-A common use of @code{cut} might be to pull out just the login name of
-logged-on users from the output of @code{who}. For example, the following
-pipeline generates a sorted, unique list of the logged on users:
+A common use of @command{cut} might be to pull out just the login name of
+logged-on users from the output of @command{who}. For example, the following
+pipeline generates a sorted, unique list of the logged-on users:
@example
who | cut -c1-8 | sort | uniq
@end example
-The options for @code{cut} are:
+The options for @command{cut} are:
@table @code
@item -c @var{list}
Use @var{list} as the list of characters to cut out. Items within the list
may be separated by commas, and ranges of characters can be separated with
-dashes. The list @samp{1-8,15,22-35} specifies characters one through
-eight, 15, and 22 through 35.
+dashes. The list @samp{1-8,15,22-35} specifies characters 1 through
+8, 15, and 22 through 35.
@item -f @var{list}
Use @var{list} as the list of fields to cut out.
@@ -14083,30 +17794,40 @@ character.
Suppress printing of lines that do not contain the field delimiter.
@end table
-The @code{awk} implementation of @code{cut} uses the @code{getopt} library
-function (@pxref{Getopt Function, ,Processing Command Line Options}),
+The @command{awk} implementation of @command{cut} uses the @code{getopt} library
+function (@pxref{Getopt Function, ,Processing Command-Line Options})
and the @code{join} library function
-(@pxref{Join Function, ,Merging an Array Into a String}).
+(@pxref{Join Function, ,Merging an Array into a String}).
-The program begins with a comment describing the options and a @code{usage}
-function which prints out a usage message and exits. @code{usage} is called
-if invalid arguments are supplied.
+The program begins with a comment describing the options, the library
+functions needed, and a @code{usage} function that prints out a usage
+message and exits. @code{usage} is called if invalid arguments are
+supplied:
-@findex cut.awk
+@cindex @code{cut.awk} program
@example
-@c @group
@c file eg/prog/cut.awk
# cut.awk --- implement cut in awk
+@c endfile
+@ignore
+@c file eg/prog/cut.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/prog/cut.awk
# Options:
-# -f list Cut fields
-# -d c Field delimiter character
-# -c list Cut characters
+# -f list Cut fields
+# -d c Field delimiter character
+# -c list Cut characters
#
-# -s Suppress lines without the delimiter character
+# -s Suppress lines without the delimiter
+#
+# Requires getopt and join library functions
+@group
function usage( e1, e2)
@{
e1 = "usage: cut [-f list] [-d c] [-s] [files...]"
@@ -14115,32 +17836,31 @@ function usage( e1, e2)
print e2 > "/dev/stderr"
exit 1
@}
+@end group
@c endfile
-@c @end group
@end example
@noindent
The variables @code{e1} and @code{e2} are used so that the function
fits nicely on the
-@iftex
+@ifnotinfo
page.
-@end iftex
-@ifinfo
+@end ifnotinfo
+@ifnottex
screen.
-@end ifinfo
+@end ifnottex
-Next comes a @code{BEGIN} rule that parses the command line options.
-It sets @code{FS} to a single tab character, since that is @code{cut}'s
+Next comes a @code{BEGIN} rule that parses the command-line options.
+It sets @code{FS} to a single tab character, because that is @command{cut}'s
default field separator. The output field separator is also set to be the
same as the input field separator. Then @code{getopt} is used to step
-through the command line options. One or the other of the variables
+through the command-line options. One or the other of the variables
@code{by_fields} or @code{by_chars} is set to true, to indicate that
-processing should be done by fields or by characters respectively.
+processing should be done by fields or by characters, respectively.
When cutting by characters, the output field separator is set to the null
string.
@example
-@c @group
@c file eg/prog/cut.awk
BEGIN \
@{
@@ -14154,7 +17874,6 @@ BEGIN \
by_chars = 1
fieldlist = Optarg
OFS = ""
-@group
@} else if (c == "d") @{
if (length(Optarg) > 1) @{
printf("Using first character of %s" \
@@ -14170,31 +17889,28 @@ BEGIN \
else
usage()
@}
-@end group
for (i = 1; i < Optind; i++)
ARGV[i] = ""
@c endfile
-@c @end group
@end example
-Special care is taken when the field delimiter is a space. Using
-@code{@w{" "}} (a single space) for the value of @code{FS} is
-incorrect---@code{awk} would
-separate fields with runs of spaces, tabs and/or newlines, and we want them to be
-separated with individual spaces. Also, note that after @code{getopt} is
-through, we have to clear out all the elements of @code{ARGV} from one to
-@code{Optind}, so that @code{awk} will not try to process the command line
-options as file names.
+Special care is taken when the field delimiter is a space. Using
+a single space (@code{@w{" "}}) for the value of @code{FS} is
+incorrect---@command{awk} would separate fields with runs of spaces,
+tabs, and/or newlines, and we want them to be separated with individual
+spaces. Also, note that after @code{getopt} is through, we have to
+clear out all the elements of @code{ARGV} from 1 to @code{Optind},
+so that @command{awk} does not try to process the command-line options
+as @value{FN}s.
-After dealing with the command line options, the program verifies that the
-options make sense. Only one or the other of @samp{-c} and @samp{-f} should
-be used, and both require a field list. Then either @code{set_fieldlist} or
-@code{set_charlist} is called to pull apart the list of fields or
-characters.
+After dealing with the command-line options, the program verifies that the
+options make sense. Only one or the other of @option{-c} and @option{-f}
+should be used, and both require a field list. Then the program calls
+either @code{set_fieldlist} or @code{set_charlist} to pull apart the
+list of fields or characters:
@example
-@c @group
@c file eg/prog/cut.awk
if (by_fields && by_chars)
usage()
@@ -14207,28 +17923,24 @@ characters.
exit 1
@}
-@group
if (by_fields)
set_fieldlist()
else
set_charlist()
@}
@c endfile
-@end group
@end example
-Here is @code{set_fieldlist}. It first splits the field list apart
-at the commas, into an array. Then, for each element of the array, it
-looks to see if it is actually a range, and if so splits it apart. The range
+@code{set_fieldlist} is used to split the field list apart at the commas,
+and into an array. Then, for each element of the array, it looks to
+see if it is actually a range, and if so, splits it apart. The range
is verified to make sure the first number is smaller than the second.
-Each number in the list is added to the @code{flist} array, which simply
-lists the fields that will be printed.
-Normal field splitting is used.
-The program lets @code{awk}
-handle the job of doing the field splitting.
+Each number in the list is added to the @code{flist} array, which
+simply lists the fields that will be printed. Normal field splitting
+is used. The program lets @command{awk} handle the job of doing the
+field splitting:
@example
-@c @group
@c file eg/prog/cut.awk
function set_fieldlist( n, m, i, j, k, f, g)
@{
@@ -14237,11 +17949,13 @@ function set_fieldlist( n, m, i, j, k, f, g)
for (i = 1; i <= n; i++) @{
if (index(f[i], "-") != 0) @{ # a range
m = split(f[i], g, "-")
+@group
if (m != 2 || g[1] >= g[2]) @{
printf("bad field list: %s\n",
f[i]) > "/dev/stderr"
exit 1
@}
+@end group
for (k = g[1]; k <= g[2]; k++)
flist[j++] = k
@} else
@@ -14250,29 +17964,28 @@ function set_fieldlist( n, m, i, j, k, f, g)
nfields = j - 1
@}
@c endfile
-@c @end group
@end example
The @code{set_charlist} function is more complicated than @code{set_fieldlist}.
-The idea here is to use @code{gawk}'s @code{FIELDWIDTHS} variable
-(@pxref{Constant Size, ,Reading Fixed-width Data}),
+The idea here is to use @command{gawk}'s @code{FIELDWIDTHS} variable
+(@pxref{Constant Size, ,Reading Fixed-Width Data}),
which describes constant width input. When using a character list, that is
exactly what we have.
Setting up @code{FIELDWIDTHS} is more complicated than simply listing the
-fields that need to be printed. We have to keep track of the fields to be
-printed, and also the intervening characters that have to be skipped.
-For example, suppose you wanted characters one through eight, 15, and
+fields that need to be printed. We have to keep track of the fields to
+print and also the intervening characters that have to be skipped.
+For example, suppose you wanted characters 1 through 8, 15, and
22 through 35. You would use @samp{-c 1-8,15,22-35}. The necessary value
-for @code{FIELDWIDTHS} would be @code{@w{"8 6 1 6 14"}}. This gives us five
-fields, and what should be printed are @code{$1}, @code{$3}, and @code{$5}.
-The intermediate fields are ``filler,'' stuff in between the desired data.
-
-@code{flist} lists the fields to be printed, and @code{t} tracks the
-complete field list, including filler fields.
+for @code{FIELDWIDTHS} is @code{@w{"8 6 1 6 14"}}. This yields five
+fields, and the fields to print
+are @code{$1}, @code{$3}, and @code{$5}.
+The intermediate fields are @dfn{filler},
+which is stuff in between the desired data.
+@code{flist} lists the fields to print, and @code{t} tracks the
+complete field list, including filler fields:
@example
-@c @group
@c file eg/prog/cut.awk
function set_charlist( field, i, j, f, g, t,
filler, last, len)
@@ -14293,8 +18006,10 @@ function set_charlist( field, i, j, f, g, t,
filler = g[1] - last - 1
else
filler = 0
+@group
if (filler)
t[field++] = filler
+@end group
t[field++] = len # length of field
last = g[2]
flist[j++] = field - 1
@@ -14310,34 +18025,29 @@ function set_charlist( field, i, j, f, g, t,
flist[j++] = field - 1
@}
@}
-@group
FIELDWIDTHS = join(t, 1, field - 1)
nfields = j - 1
@}
-@end group
@c endfile
@end example
-Here is the rule that actually processes the data. If the @samp{-s} option
-was given, then @code{suppress} will be true. The first @code{if} statement
+Next is the rule that actually processes the data. If the @option{-s} option
+is given, then @code{suppress} is true. The first @code{if} statement
makes sure that the input record does have the field separator. If
-@code{cut} is processing fields, @code{suppress} is true, and the field
+@command{cut} is processing fields, @code{suppress} is true, and the field
separator character is not in the record, then the record is skipped.
-If the record is valid, then at this point, @code{gawk} has split the data
+If the record is valid, then @command{gawk} has split the data
into fields, either using the character in @code{FS} or using fixed-length
fields and @code{FIELDWIDTHS}. The loop goes through the list of fields
-that should be printed. If the corresponding field has data in it, it is
-printed. If the next field also has data, then the separator character is
-written out in between the fields.
-
-@c 2e: Could use `index($0, FS) != 0' instead of `$0 !~ FS', below
+that should be printed. The corresponding field is printed if it contains data.
+If the next field also has data, then the separator character is
+written out between the fields:
@example
-@c @group
@c file eg/prog/cut.awk
@{
- if (by_fields && suppress && $0 !~ FS)
+ if (by_fields && suppress && index($0, FS) != 0)
next
for (i = 1; i <= nfields; i++) @{
@@ -14350,37 +18060,39 @@ written out in between the fields.
print ""
@}
@c endfile
-@c @end group
@end example
-This version of @code{cut} relies on @code{gawk}'s @code{FIELDWIDTHS}
-variable to do the character-based cutting. While it would be possible in
-other @code{awk} implementations to use @code{substr}
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}),
-it would also be extremely painful to do so.
+This version of @command{cut} relies on @command{gawk}'s @code{FIELDWIDTHS}
+variable to do the character-based cutting. While it is possible in
+other @command{awk} implementations to use @code{substr}
+(@pxref{String Functions, ,String Manipulation Functions}),
+it is also extremely painful.
The @code{FIELDWIDTHS} variable supplies an elegant solution to the problem
of picking the input line apart by characters.
+@c Exercise: Rewrite using split with "".
+
@node Egrep Program, Id Program, Cut Program, Clones
@subsection Searching for Regular Expressions in Files
-@cindex @code{egrep} utility
-The @code{egrep} utility searches files for patterns. It uses regular
-expressions that are almost identical to those available in @code{awk}
-(@pxref{Regexp Constants, ,Regular Expression Constants}). It is used this way:
+@cindex @command{egrep} utility
+The @command{egrep} utility searches files for patterns. It uses regular
+expressions that are almost identical to those available in @command{awk}
+(@pxref{Regexp, ,Regular Expressions}).
+It is used in the following manner:
@example
egrep @r{[} @var{options} @r{]} '@var{pattern}' @var{files} @dots{}
@end example
-The @var{pattern} is a regexp.
-In typical usage, the regexp is quoted to prevent the shell from expanding
-any of the special characters as file name wildcards.
-Normally, @code{egrep} prints the
-lines that matched. If multiple file names are provided on the command
-line, each output line is preceded by the name of the file and a colon.
+The @var{pattern} is a regular expression. In typical usage, the regular
+expression is quoted to prevent the shell from expanding any of the
+special characters as @value{FN} wildcards. Normally, @command{egrep}
+prints the lines that matched. If multiple @value{FN}s are provided on
+the command line, each output line is preceded by the name of the file
+and a colon.
-The options are:
+The options to @command{egrep} are as follows:
@table @code
@item -c
@@ -14388,44 +18100,50 @@ Print out a count of the lines that matched the pattern, instead of the
lines themselves.
@item -s
-Be silent. No output is produced, and the exit value indicates whether
-or not the pattern was matched.
+Be silent. No output is produced and the exit value indicates whether
+the pattern was matched.
@item -v
-Invert the sense of the test. @code{egrep} prints the lines that do
-@emph{not} match the pattern, and exits successfully if the pattern was not
+Invert the sense of the test. @command{egrep} prints the lines that do
+@emph{not} match the pattern and exits successfully if the pattern is not
matched.
@item -i
Ignore case distinctions in both the pattern and the input data.
@item -l
-Only print the names of the files that matched, not the lines that matched.
+Only print (list) the names of the files that matched, not the lines that matched.
@item -e @var{pattern}
-Use @var{pattern} as the regexp to match. The purpose of the @samp{-e}
+Use @var{pattern} as the regexp to match. The purpose of the @option{-e}
option is to allow patterns that start with a @samp{-}.
@end table
This version uses the @code{getopt} library function
-(@pxref{Getopt Function, ,Processing Command Line Options}),
+(@pxref{Getopt Function, ,Processing Command-Line Options})
and the file transition library program
-(@pxref{Filetrans Function, ,Noting Data File Boundaries}).
+(@pxref{Filetrans Function, ,Noting @value{DDF} Boundaries}).
-The program begins with a descriptive comment, and then a @code{BEGIN} rule
-that processes the command line arguments with @code{getopt}. The @samp{-i}
-(ignore case) option is particularly easy with @code{gawk}; we just use the
-@code{IGNORECASE} built in variable
-(@pxref{Built-in Variables}).
+The program begins with a descriptive comment and then a @code{BEGIN} rule
+that processes the command-line arguments with @code{getopt}. The @option{-i}
+(ignore case) option is particularly easy with @command{gawk}; we just use the
+@code{IGNORECASE} built-in variable
+(@pxref{Built-in Variables}):
-@findex egrep.awk
+@cindex @code{egrep.awk} program
@example
-@c @group
@c file eg/prog/egrep.awk
# egrep.awk --- simulate egrep in awk
+@c endfile
+@ignore
+@c file eg/prog/egrep.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/prog/egrep.awk
# Options:
# -c count of lines
# -s silent - use exit value
@@ -14433,6 +18151,8 @@ that processes the command line arguments with @code{getopt}. The @samp{-i}
# -i ignore case
# -l print filenames only
# -e argument is pattern
+#
+# Requires getopt and file transition library functions
BEGIN @{
while ((c = getopt(ARGC, ARGV, "ce:svil")) != -1) @{
@@ -14452,23 +18172,17 @@ BEGIN @{
usage()
@}
@c endfile
-@c @end group
@end example
-Next comes the code that handles the @code{egrep} specific behavior. If no
-pattern was supplied with @samp{-e}, the first non-option on the command
-line is used. The @code{awk} command line arguments up to @code{ARGV[Optind]}
-are cleared, so that @code{awk} won't try to process them as files. If no
-files were specified, the standard input is used, and if multiple files were
-specified, we make sure to note this so that the file names can precede the
-matched lines in the output.
-
-The last two lines are commented out, since they are not needed in
-@code{gawk}. They should be uncommented if you have to use another version
-of @code{awk}.
+Next comes the code that handles the @command{egrep}-specific behavior. If no
+pattern is supplied with @option{-e}, the first non-option on the
+command line is used. The @command{awk} command-line arguments up to @code{ARGV[Optind]}
+are cleared, so that @command{awk} won't try to process them as files. If no
+files are specified, the standard input is used, and if multiple files are
+specified, we make sure to note this so that the @value{FN}s can precede the
+matched lines in the output:
@example
-@c @group
@c file eg/prog/egrep.awk
if (pattern == "")
pattern = ARGV[Optind++]
@@ -14485,53 +18199,57 @@ of @code{awk}.
# pattern = tolower(pattern)
@}
@c endfile
-@c @end group
@end example
+The last two lines are commented out, since they are not needed in
+@command{gawk}. They should be uncommented if you have to use another version
+of @command{awk}.
+
The next set of lines should be uncommented if you are not using
-@code{gawk}. This rule translates all the characters in the input line
-into lower-case if the @samp{-i} option was specified. The rule is
-commented out since it is not necessary with @code{gawk}.
-@c bug: if a match happens, we output the translated line, not the original
+@command{gawk}. This rule translates all the characters in the input line
+into lowercase if the @option{-i} option is specified.@footnote{It
+also introduces a subtle bug;
+if a match happens, we output the translated line, not the original.}
+The rule is
+commented out since it is not necessary with @command{gawk}:
+
+@c Exercise: Fix this, w/array and new line as key to original line
@example
-@c @group
@c file eg/prog/egrep.awk
#@{
# if (IGNORECASE)
# $0 = tolower($0)
#@}
@c endfile
-@c @end group
@end example
The @code{beginfile} function is called by the rule in @file{ftrans.awk}
when each new file is processed. In this case, it is very simple; all it
does is initialize a variable @code{fcount} to zero. @code{fcount} tracks
how many lines in the current file matched the pattern.
+(Naming the parameter @code{junk} shows we know that @code{beginfile}
+is called with a parameter, but that we're not interested in its value.):
@example
-@group
@c file eg/prog/egrep.awk
function beginfile(junk)
@{
fcount = 0
@}
@c endfile
-@end group
@end example
The @code{endfile} function is called after each file has been processed.
-It is used only when the user wants a count of the number of lines that
-matched. @code{no_print} will be true only if the exit status is desired.
-@code{count_only} will be true if line counts are desired. @code{egrep}
-will therefore only print line counts if printing and counting are enabled.
-The output format must be adjusted depending upon the number of files to be
-processed. Finally, @code{fcount} is added to @code{total}, so that we
-know how many lines altogether matched the pattern.
+It affects the output only when the user wants a count of the number of lines that
+matched. @code{no_print} is true only if the exit status is desired.
+@code{count_only} is true if line counts are desired. @command{egrep}
+therefore only prints line counts if printing and counting are enabled.
+The output format must be adjusted depending upon the number of files to
+process. Finally, @code{fcount} is added to @code{total}, so that we
+know how many lines altogether matched the pattern:
@example
-@group
@c file eg/prog/egrep.awk
function endfile(file)
@{
@@ -14544,30 +18262,38 @@ function endfile(file)
total += fcount
@}
@c endfile
-@end group
@end example
-This rule does most of the work of matching lines. The variable
-@code{matches} will be true if the line matched the pattern. If the user
-wants lines that did not match, the sense of the @code{matches} is inverted
+The following rule does most of the work of matching lines. The variable
+@code{matches} is true if the line matched the pattern. If the user
+wants lines that did not match, the sense of @code{matches} is inverted
using the @samp{!} operator. @code{fcount} is incremented with the value of
-@code{matches}, which will be either one or zero, depending upon a
-successful or unsuccessful match. If the line did not match, the
+@code{matches}, which is either one or zero, depending upon a
+successful or unsuccessful match. If the line does not match, the
@code{next} statement just moves on to the next record.
-There are several optimizations for performance in the following few lines
-of code. If the user only wants exit status (@code{no_print} is true), and
-we don't have to count lines, then it is enough to know that one line in
-this file matched, and we can skip on to the next file with @code{nextfile}.
-Along similar lines, if we are only printing file names, and we
-don't need to count lines, we can print the file name, and then skip to the
-next file with @code{nextfile}.
+A number of additional tests are made, but they are only done if we
+are not counting lines. First, if the user only wants exit status
+(@code{no_print} is true), then it is enough to know that @emph{one}
+line in this file matched, and we can skip on to the next file with
+@code{nextfile}. Similarly, if we are only printing @value{FN}s, we can
+print the @value{FN}, and then skip to the next file with @code{nextfile}.
+Finally, each line is printed, with a leading @value{FN} and colon
+if necessary:
-Finally, each line is printed, with a leading filename and colon if
-necessary.
+@cindex @code{!} operator
+@example
+@c file eg/prog/egrep.awk
+@{
+ matches = ($0 ~ pattern)
+ if (invert)
+ matches = ! matches
+
+ fcount += matches # 1 or 0
+
+ if (! matches)
+ next
-@ignore
-2e: note, probably better to recode the last few lines as
if (! count_only) @{
if (no_print)
nextfile
@@ -14582,47 +18308,14 @@ necessary.
else
print
@}
-@end ignore
-
-@example
-@c @group
-@c file eg/prog/egrep.awk
-@{
- matches = ($0 ~ pattern)
- if (invert)
- matches = ! matches
-
- fcount += matches # 1 or 0
-
- if (! matches)
- next
-
- if (no_print && ! count_only)
- nextfile
-
- if (filenames_only && ! count_only) @{
- print FILENAME
- nextfile
- @}
-
- if (do_filenames && ! count_only)
- print FILENAME ":" $0
-@group
- else if (! count_only)
- print
-@end group
@}
@c endfile
-@c @end group
@end example
-@c @strong{Exercise}: rearrange the code inside @samp{if (! count_only)}.
-
The @code{END} rule takes care of producing the correct exit status. If
-there were no matches, the exit status is one, otherwise it is zero.
+there are no matches, the exit status is one, otherwise it is zero:
@example
-@c @group
@c file eg/prog/egrep.awk
END \
@{
@@ -14631,48 +18324,44 @@ END \
exit 0
@}
@c endfile
-@c @end group
@end example
-The @code{usage} function prints a usage message in case of invalid options
-and then exits.
+The @code{usage} function prints a usage message in case of invalid options,
+and then exits:
@example
-@c @group
@c file eg/prog/egrep.awk
function usage( e)
@{
e = "Usage: egrep [-csvil] [-e pat] [files ...]"
+ e = e "\n\tegrep [-csvil] pat [files ...]"
print e > "/dev/stderr"
exit 1
@}
@c endfile
-@c @end group
@end example
The variable @code{e} is used so that the function fits nicely
on the printed page.
@cindex backslash continuation
-Just a note on programming style. You may have noticed that the @code{END}
+Just a note on programming style: you may have noticed that the @code{END}
rule uses backslash continuation, with the open brace on a line by
itself. This is so that it more closely resembles the way functions
are written. Many of the examples
-@iftex
-in this chapter
-@end iftex
+in this @value{CHAPTER}
use this style. You can decide for yourself if you like writing
-your @code{BEGIN} and @code{END} rules this way,
+your @code{BEGIN} and @code{END} rules this way
or not.
@node Id Program, Split Program, Egrep Program, Clones
-@subsection Printing Out User Information
+@subsection Printing out User Information
-@cindex @code{id} utility
-The @code{id} utility lists a user's real and effective user-id numbers,
+@cindex @command{id} utility
+The @command{id} utility lists a user's real and effective user-id numbers,
real and effective group-id numbers, and the user's group set, if any.
-@code{id} will only print the effective user-id and group-id if they are
-different from the real ones. If possible, @code{id} will also supply the
+@command{id} only prints the effective user-id and group-id if they are
+different from the real ones. If possible, @command{id} also supplies the
corresponding user and group names. The output might look like this:
@example
@@ -14680,61 +18369,61 @@ $ id
@print{} uid=2076(arnold) gid=10(staff) groups=10(staff),4(tty)
@end example
-This information is exactly what is provided by @code{gawk}'s
-@file{/dev/user} special file (@pxref{Special Files, ,Special File Names in @code{gawk}}).
-However, the @code{id} utility provides a more palatable output than just a
-string of numbers.
+This information is part of what is provided by @command{gawk}'s
+@code{PROCINFO} array (@pxref{Built-in Variables}).
+However, the @command{id} utility provides a more palatable output than just
+individual numbers.
-Here is a simple version of @code{id} written in @code{awk}.
+Here is a simple version of @command{id} written in @command{awk}.
It uses the user database library functions
-(@pxref{Passwd Functions, ,Reading the User Database}),
+(@pxref{Passwd Functions, ,Reading the User Database})
and the group database library functions
-(@pxref{Group Functions, ,Reading the Group Database}).
+(@pxref{Group Functions, ,Reading the Group Database}):
The program is fairly straightforward. All the work is done in the
-@code{BEGIN} rule. The user and group id numbers are obtained from
-@file{/dev/user}. If there is no support for @file{/dev/user}, the program
-gives up.
-
+@code{BEGIN} rule. The user and group ID numbers are obtained from
+@code{PROCINFO}.
The code is repetitive. The entry in the user database for the real user-id
number is split into parts at the @samp{:}. The name is the first field.
-Similar code is used for the effective user-id number, and the group
+Similar code is used for the effective user-id number and the group
numbers.
-@findex id.awk
+@cindex @code{id.awk} program
@example
-@c @group
@c file eg/prog/id.awk
# id.awk --- implement id in awk
+#
+# Requires user and group library functions
+@c endfile
+@ignore
+@c file eg/prog/id.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+# Revised February 1996
+@c endfile
+@end ignore
+@c file eg/prog/id.awk
# output is:
# uid=12(foo) euid=34(bar) gid=3(baz) \
# egid=5(blat) groups=9(nine),2(two),1(one)
+@group
BEGIN \
@{
- if ((getline < "/dev/user") < 0) @{
- err = "id: no /dev/user support - cannot run"
- print err > "/dev/stderr"
- exit 1
- @}
- close("/dev/user")
-
- uid = $1
- euid = $2
- gid = $3
- egid = $4
+ uid = PROCINFO["uid"]
+ euid = PROCINFO["euid"]
+ gid = PROCINFO["gid"]
+ egid = PROCINFO["egid"]
+@end group
printf("uid=%d", uid)
pw = getpwuid(uid)
-@group
if (pw != "") @{
split(pw, a, ":")
printf("(%s)", a[1])
@}
-@end group
if (euid != uid) @{
printf(" euid=%d", euid)
@@ -14761,48 +18450,70 @@ BEGIN \
@}
@}
- if (NF > 4) @{
- printf(" groups=");
- for (i = 5; i <= NF; i++) @{
- printf("%d", $i)
- pw = getgrgid($i)
- if (pw != "") @{
- split(pw, a, ":")
- printf("(%s)", a[1])
- @}
-@group
- if (i < NF)
- printf(",")
-@end group
+ for (i = 1; ("group" i) in PROCINFO; i++) @{
+ if (i == 1)
+ printf(" groups=")
+ group = PROCINFO["group" i]
+ printf("%d", group)
+ pw = getgrgid(group)
+ if (pw != "") @{
+ split(pw, a, ":")
+ printf("(%s)", a[1])
@}
+ if (("group" (i+1)) in PROCINFO)
+ printf(",")
@}
+
print ""
@}
@c endfile
-@c @end group
@end example
+@cindex @code{in} operator
+The test in the @code{for} loop is worth noting.
+Any supplementary groups in the @code{PROCINFO} array have the
+indices @code{"group1"} through @code{"group@var{N}"} for some
+@var{N}; i.e., the total number of supplementary groups.
+The problem is, we don't know in advance how many of these groups
+there are.
+
+This loop works by starting at one, concatenating the value with
+@code{"group"}, and then using @code{in} to see if that value is
+in the array. Eventually, @code{i} is incremented past
+the last group in the array and the loop exits.
+
+The loop is also correct if there are @emph{no} supplementary
+groups; then the condition is false the first time it's
+tested, and the loop body never executes.
+
@c exercise!!!
@ignore
-The POSIX version of @code{id} takes arguments that control which
+The POSIX version of @command{id} takes arguments that control which
information is printed. Modify this version to accept the same
arguments and perform in the same way.
@end ignore
@node Split Program, Tee Program, Id Program, Clones
-@subsection Splitting a Large File Into Pieces
+@subsection Splitting a Large File into Pieces
@cindex @code{split} utility
-The @code{split} program splits large text files into smaller pieces. By default,
+The @code{split} program splits large text files into smaller pieces.
+The usage is as follows:
+
+@example
+split @r{[}-@var{count}@r{]} file @r{[} @var{prefix} @r{]}
+@end example
+
+By default,
the output files are named @file{xaa}, @file{xab}, and so on. Each file has
1000 lines in it, with the likely exception of the last file. To change the
-number of lines in each file, you supply a number on the command line
-preceded with a minus, e.g., @samp{-500} for files with 500 lines in them
+number of lines in each file, supply a number on the command line
+preceded with a minus; e.g., @samp{-500} for files with 500 lines in them
instead of 1000. To change the name of the output files to something like
-@file{myfileaa}, @file{myfileab}, and so on, you supply an additional
-argument that specifies the filename.
+@file{myfileaa}, @file{myfileab}, and so on, supply an additional
+argument that specifies the @value{FN} prefix.
-Here is a version of @code{split} in @code{awk}. It uses the @code{ord} and
+Here is a version of @code{split} in @command{awk}. It uses the @code{ord} and
@code{chr} functions presented in
@ref{Ordinal Functions, ,Translating Between Characters and Numbers}.
@@ -14810,17 +18521,25 @@ The program first sets its defaults, and then tests to make sure there are
not too many arguments. It then looks at each argument in turn. The
first argument could be a minus followed by a number. If it is, this happens
to look like a negative number, so it is made positive, and that is the
-count of lines. The data file name is skipped over, and the final argument
-is used as the prefix for the output file names.
+count of lines. The data @value{FN} is skipped over and the final argument
+is used as the prefix for the output @value{FN}s:
-@findex split.awk
+@cindex @code{split.awk} program
@example
-@c @group
@c file eg/prog/split.awk
# split.awk --- do split in awk
+#
+# Requires ord and chr library functions
+@c endfile
+@ignore
+@c file eg/prog/split.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/prog/split.awk
# usage: split [-num] [file] [outname]
BEGIN @{
@@ -14847,46 +18566,49 @@ BEGIN @{
out = (outfile s1 s2)
@}
@c endfile
-@c @end group
@end example
The next rule does most of the work. @code{tcount} (temporary count) tracks
how many lines have been printed to the output file so far. If it is greater
than @code{count}, it is time to close the current file and start a new one.
-@code{s1} and @code{s2} track the current suffixes for the file name. If
+@code{s1} and @code{s2} track the current suffixes for the @value{FN}. If
they are both @samp{z}, the file is just too big. Otherwise, @code{s1}
moves to the next letter in the alphabet and @code{s2} starts over again at
-@samp{a}.
+@samp{a}:
+@c else on separate line here for page breaking
@example
-@c @group
@c file eg/prog/split.awk
@{
if (++tcount > count) @{
close(out)
if (s2 == "z") @{
if (s1 == "z") @{
- printf("split: %s is too large to split\n", \
+ printf("split: %s is too large to split\n",
FILENAME) > "/dev/stderr"
exit 1
@}
s1 = chr(ord(s1) + 1)
s2 = "a"
- @} else
+ @}
+@group
+ else
s2 = chr(ord(s2) + 1)
+@end group
out = (outfile s1 s2)
tcount = 1
@}
print > out
@}
@c endfile
-@c @end group
@end example
-The @code{usage} function simply prints an error message and exits.
+@c Exercise: do this with just awk builtin functions, index("abc..."), substr, etc.
+
+@noindent
+The @code{usage} function simply prints an error message and exits:
@example
-@c @group
@c file eg/prog/split.awk
function usage( e)
@{
@@ -14895,97 +18617,95 @@ function usage( e)
exit 1
@}
@c endfile
-@c @end group
@end example
@noindent
The variable @code{e} is used so that the function
fits nicely on the
-@iftex
-page.
-@end iftex
@ifinfo
screen.
@end ifinfo
+@ifnotinfo
+page.
+@end ifnotinfo
-This program is a bit sloppy; it relies on @code{awk} to close the last file
+This program is a bit sloppy; it relies on @command{awk} to close the last file
for it automatically, instead of doing it in an @code{END} rule.
+It also assumes that letters are contiguous in the character set,
+which isn't true for EBCDIC systems.
+@c BFD...
@node Tee Program, Uniq Program, Split Program, Clones
-@subsection Duplicating Output Into Multiple Files
+@subsection Duplicating Output into Multiple Files
@cindex @code{tee} utility
The @code{tee} program is known as a ``pipe fitting.'' @code{tee} copies
-its standard input to its standard output, and also duplicates it to the
-files named on the command line. Its usage is:
+its standard input to its standard output and also duplicates it to the
+files named on the command line. Its usage is as follows:
@example
tee @r{[}-a@r{]} file @dots{}
@end example
-The @samp{-a} option tells @code{tee} to append to the named files, instead of
+The @option{-a} option tells @code{tee} to append to the named files, instead of
truncating them and starting over.
-The @code{BEGIN} rule first makes a copy of all the command line arguments,
+The @code{BEGIN} rule first makes a copy of all the command-line arguments
into an array named @code{copy}.
@code{ARGV[0]} is not copied, since it is not needed.
-@code{tee} cannot use @code{ARGV} directly, since @code{awk} will attempt to
-process each file named in @code{ARGV} as input data.
+@code{tee} cannot use @code{ARGV} directly, since @command{awk} attempts to
+process each @value{FN} in @code{ARGV} as input data.
-If the first argument is @samp{-a}, then the flag variable
+@cindex flag variables
+If the first argument is @option{-a}, then the flag variable
@code{append} is set to true, and both @code{ARGV[1]} and
-@code{copy[1]} are deleted. If @code{ARGC} is less than two, then no file
-names were supplied, and @code{tee} prints a usage message and exits.
-Finally, @code{awk} is forced to read the standard input by setting
-@code{ARGV[1]} to @code{"-"}, and @code{ARGC} to two.
+@code{copy[1]} are deleted. If @code{ARGC} is less than two, then no
+@value{FN}s were supplied and @code{tee} prints a usage message and exits.
+Finally, @command{awk} is forced to read the standard input by setting
+@code{ARGV[1]} to @code{"-"} and @code{ARGC} to two:
-@c 2e: the `ARGC--' in the `if (ARGV[1] == "-a")' isn't needed.
-
-@findex tee.awk
+@c NEXT ED: Add more leading commentary in this program
+@cindex @code{tee.awk} program
@example
-@group
@c file eg/prog/tee.awk
# tee.awk --- tee in awk
+@c endfile
+@ignore
+@c file eg/prog/tee.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
# Revised December 1995
-@end group
-@group
+@c endfile
+@end ignore
+@c file eg/prog/tee.awk
BEGIN \
@{
for (i = 1; i < ARGC; i++)
copy[i] = ARGV[i]
-@end group
-@group
if (ARGV[1] == "-a") @{
append = 1
delete ARGV[1]
delete copy[1]
ARGC--
@}
-@end group
-@group
if (ARGC < 2) @{
print "usage: tee [-a] file ..." > "/dev/stderr"
exit 1
@}
-@end group
-@group
ARGV[1] = "-"
ARGC = 2
@}
@c endfile
-@end group
@end example
The single rule does all the work. Since there is no pattern, it is
executed for each line of input. The body of the rule simply prints the
-line into each file on the command line, and then to the standard output.
+line into each file on the command line, and then to the standard output:
@example
-@group
@c file eg/prog/tee.awk
@{
# moving the if outside the loop makes it run faster
@@ -14998,10 +18718,10 @@ line into each file on the command line, and then to the standard output.
print
@}
@c endfile
-@end group
@end example
-It would have been possible to code the loop this way:
+@noindent
+It is also possible to write the loop this way:
@example
for (i in copy)
@@ -15012,17 +18732,16 @@ for (i in copy)
@end example
@noindent
-This is more concise, but it is also less efficient. The @samp{if} is
+This is more concise but it is also less efficient. The @samp{if} is
tested for each record and for each output file. By duplicating the loop
body, the @samp{if} is only tested once for each input record. If there are
-@var{N} input records and @var{M} input files, the first method only
-executes @var{N} @samp{if} statements, while the second would execute
+@var{N} input records and @var{M} output files, the first method only
+executes @var{N} @samp{if} statements, while the second executes
@var{N}@code{*}@var{M} @samp{if} statements.
-Finally, the @code{END} rule cleans up, by closing all the output files.
+Finally, the @code{END} rule cleans up by closing all the output files:
@example
-@c @group
@c file eg/prog/tee.awk
END \
@{
@@ -15030,16 +18749,16 @@ END \
close(copy[i])
@}
@c endfile
-@c @end group
@end example
@node Uniq Program, Wc Program, Tee Program, Clones
-@subsection Printing Non-duplicated Lines of Text
+@subsection Printing Non-Duplicated Lines of Text
-@cindex @code{uniq} utility
-The @code{uniq} utility reads sorted lines of data on its standard input,
-and (by default) removes duplicate lines. In other words, only unique lines
-are printed, hence the name. @code{uniq} has a number of options. The usage is:
+@cindex @command{uniq} utility
+The @command{uniq} utility reads sorted lines of data on its standard
+input, and by default removes duplicate lines. In other words, it only
+prints unique lines---hence the name. @command{uniq} has a number of
+options. The usage is as follows:
@example
uniq @r{[}-udc @r{[}-@var{n}@r{]]} @r{[}+@var{n}@r{]} @r{[} @var{input file} @r{[} @var{output file} @r{]]}
@@ -15055,12 +18774,12 @@ Only print repeated lines.
Only print non-repeated lines.
@item -c
-Count lines. This option overrides @samp{-d} and @samp{-u}. Both repeated
+Count lines. This option overrides @option{-d} and @option{-u}. Both repeated
and non-repeated lines are counted.
@item -@var{n}
Skip @var{n} fields before comparing lines. The definition of fields
-is similar to @code{awk}'s default: non-whitespace characters separated
+is similar to @command{awk}'s default: non-whitespace characters separated
by runs of spaces and/or tabs.
@item +@var{n}
@@ -15076,49 +18795,57 @@ The generated output is sent to the named output file, instead of to the
standard output.
@end table
-Normally @code{uniq} behaves as if both the @samp{-d} and @samp{-u} options
-had been provided.
+Normally @command{uniq} behaves as if both the @option{-d} and
+@option{-u} options are provided.
-Here is an @code{awk} implementation of @code{uniq}. It uses the
+@command{uniq} uses the
@code{getopt} library function
-(@pxref{Getopt Function, ,Processing Command Line Options}),
+(@pxref{Getopt Function, ,Processing Command-Line Options})
and the @code{join} library function
-(@pxref{Join Function, ,Merging an Array Into a String}).
+(@pxref{Join Function, ,Merging an Array into a String}).
The program begins with a @code{usage} function and then a brief outline of
the options and their meanings in a comment.
-
-The @code{BEGIN} rule deals with the command line arguments and options. It
+The @code{BEGIN} rule deals with the command-line arguments and options. It
uses a trick to get @code{getopt} to handle options of the form @samp{-25},
treating such an option as the option letter @samp{2} with an argument of
-@samp{5}. If indeed two or more digits were supplied (@code{Optarg} looks
+@samp{5}. If indeed two or more digits are supplied (@code{Optarg} looks
like a number), @code{Optarg} is
-concatenated with the option digit, and then result is added to zero to make
+concatenated with the option digit and then the result is added to zero to make
it into a number. If there is only one digit in the option, then
-@code{Optarg} is not needed, and @code{Optind} must be decremented so that
-@code{getopt} will process it next time. This code is admittedly a bit
+@code{Optarg} is not needed. @code{Optind} must be decremented so that
+@code{getopt} processes it next time. This code is admittedly a bit
tricky.
-If no options were supplied, then the default is taken, to print both
+If no options are supplied, then the default is taken, to print both
repeated and non-repeated lines. The output file, if provided, is assigned
-to @code{outputfile}. Earlier, @code{outputfile} was initialized to the
-standard output, @file{/dev/stdout}.
+to @code{outputfile}. Early on, @code{outputfile} is initialized to the
+standard output, @file{/dev/stdout}:
-@findex uniq.awk
+@cindex @code{uniq.awk} program
@example
@c file eg/prog/uniq.awk
+@group
# uniq.awk --- do uniq in awk
+#
+# Requires getopt and join library functions
+@end group
+@c endfile
+@ignore
+@c file eg/prog/uniq.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
-@group
+@c endfile
+@end ignore
+@c file eg/prog/uniq.awk
function usage( e)
@{
e = "Usage: uniq [-udc [-n]] [+n] [ in [ out ]]"
print e > "/dev/stderr"
exit 1
@}
-@end group
# -c count lines. overrides -d and -u
# -d only repeated lines
@@ -15143,12 +18870,10 @@ BEGIN \
# this messes us up for things like -5
if (Optarg ~ /^[0-9]+$/)
fcount = (c Optarg) + 0
-@group
else @{
fcount = c + 0
Optind--
@}
-@end group
@} else
usage()
@}
@@ -15175,26 +18900,22 @@ BEGIN \
The following function, @code{are_equal}, compares the current line,
@code{$0}, to the
previous line, @code{last}. It handles skipping fields and characters.
-
-If no field count and no character count were specified, @code{are_equal}
+If no field count and no character count are specified, @code{are_equal}
simply returns one or zero depending upon the result of a simple string
comparison of @code{last} and @code{$0}. Otherwise, things get more
complicated.
-
If fields have to be skipped, each line is broken into an array using
@code{split}
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}),
-and then the desired fields are joined back into a line using @code{join}.
+(@pxref{String Functions, ,String Manipulation Functions});
+the desired fields are then joined back into a line using @code{join}.
The joined lines are stored in @code{clast} and @code{cline}.
If no fields are skipped, @code{clast} and @code{cline} are set to
-@code{last} and @code{$0} respectively.
-
+@code{last} and @code{$0}, respectively.
Finally, if characters are skipped, @code{substr} is used to strip off the
leading @code{charcount} characters in @code{clast} and @code{cline}. The
-two strings are then compared, and @code{are_equal} returns the result.
+two strings are then compared and @code{are_equal} returns the result:
@example
-@c @group
@c file eg/prog/uniq.awk
function are_equal( n, m, clast, cline, alast, aline)
@{
@@ -15218,38 +18939,35 @@ function are_equal( n, m, clast, cline, alast, aline)
return (clast == cline)
@}
@c endfile
-@c @end group
@end example
The following two rules are the body of the program. The first one is
executed only for the very first line of data. It sets @code{last} equal to
@code{$0}, so that subsequent lines of text have something to be compared to.
-The second rule does the work. The variable @code{equal} will be one or zero
-depending upon the results of @code{are_equal}'s comparison. If @code{uniq}
-is counting repeated lines, then the @code{count} variable is incremented if
-the lines are equal. Otherwise the line is printed and @code{count} is
-reset, since the two lines are not equal.
-
-If @code{uniq} is not counting, @code{count} is incremented if the lines are
-equal. Otherwise, if @code{uniq} is counting repeated lines, and more than
-one line has been seen, or if @code{uniq} is counting non-repeated lines,
-and only one line has been seen, then the line is printed, and @code{count}
+The second rule does the work. The variable @code{equal} is one or zero,
+depending upon the results of @code{are_equal}'s comparison. If @command{uniq}
+is counting repeated lines, and the lines are equal, then it increments the @code{count} variable.
+Otherwise it prints the line and resets @code{count},
+since the two lines are not equal.
+
+If @command{uniq} is not counting, and if the lines are equal, @code{count} is incremented.
+Nothing is printed, since the point is to remove duplicates.
+Otherwise, if @command{uniq} is counting repeated lines and more than
+one line is seen, or if @command{uniq} is counting non-repeated lines
+and only one line is seen, then the line is printed, and @code{count}
is reset.
Finally, similar logic is used in the @code{END} rule to print the final
-line of input data.
+line of input data:
@example
-@c @group
@c file eg/prog/uniq.awk
-@group
NR == 1 @{
last = $0
next
@}
-@end group
-
+
@{
equal = are_equal()
@@ -15275,7 +18993,6 @@ NR == 1 @{
@}
@}
-@group
END @{
if (do_count)
printf("%4d %s\n", count, last) > outputfile
@@ -15283,25 +19000,23 @@ END @{
(non_repeated_only && count == 1))
print last > outputfile
@}
-@end group
@c endfile
-@c @end group
@end example
-@node Wc Program, , Uniq Program, Clones
+@node Wc Program, , Uniq Program, Clones
@subsection Counting Things
-@cindex @code{wc} utility
-The @code{wc} (word count) utility counts lines, words, and characters in
-one or more input files. Its usage is:
+@cindex @command{wc} utility
+The @command{wc} (word count) utility counts lines, words, and characters in
+one or more input files. Its usage is as follows:
@example
wc @r{[}-lwc@r{]} @r{[} @var{files} @dots{} @r{]}
@end example
-If no files are specified on the command line, @code{wc} reads its standard
-input. If there are multiple files, it will also print total counts for all
-the files. The options and their meanings are:
+If no files are specified on the command line, @command{wc} reads its standard
+input. If there are multiple files, it also prints total counts for all
+the files. The options and their meanings are shown in the following list:
@table @code
@item -l
@@ -15310,40 +19025,46 @@ Only count lines.
@item -w
Only count words.
A ``word'' is a contiguous sequence of non-whitespace characters, separated
-by spaces and/or tabs. Happily, this is the normal way @code{awk} separates
+by spaces and/or tabs. Happily, this is the normal way @command{awk} separates
fields in its input data.
@item -c
Only count characters.
@end table
-Implementing @code{wc} in @code{awk} is particularly elegant, since
-@code{awk} does a lot of the work for us; it splits lines into words (i.e.@:
-fields) and counts them, it counts lines (i.e.@: records) for us, and it can
-easily tell us how long a line is.
+Implementing @command{wc} in @command{awk} is particularly elegant,
+since @command{awk} does a lot of the work for us; it splits lines into
+words (i.e., fields) and counts them, it counts lines (i.e., records),
+and it can easily tell us how long a line is.
-This version uses the @code{getopt} library function
-(@pxref{Getopt Function, ,Processing Command Line Options}),
+This uses the @code{getopt} library function
+(@pxref{Getopt Function, ,Processing Command-Line Options})
and the file transition functions
-(@pxref{Filetrans Function, ,Noting Data File Boundaries}).
+(@pxref{Filetrans Function, ,Noting @value{DDF} Boundaries}).
-This version has one major difference from traditional versions of @code{wc}.
-Our version always prints the counts in the order lines, words,
-and characters. Traditional versions note the order of the @samp{-l},
-@samp{-w}, and @samp{-c} options on the command line, and print the counts
-in that order.
+This version has one notable difference from traditional versions of
+@command{wc}: it always prints the counts in the order lines, words,
+and characters. Traditional versions note the order of the @option{-l},
+@option{-w}, and @option{-c} options on the command line, and print the
+counts in that order.
-The @code{BEGIN} rule does the argument processing.
-The variable @code{print_total} will
-be true if more than one file was named on the command line.
+The @code{BEGIN} rule does the argument processing. The variable
+@code{print_total} is true if more than one file is named on the
+command line:
-@findex wc.awk
+@cindex @code{wc.awk} program
@example
-@c @group
@c file eg/prog/wc.awk
# wc.awk --- count lines, words, characters
+@c endfile
+@ignore
+@c file eg/prog/wc.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/prog/wc.awk
# Options:
# -l only count lines
@@ -15351,6 +19072,8 @@ be true if more than one file was named on the command line.
# -c only count characters
#
# Default is to count lines, words, characters
+#
+# Requires getopt and file transition library functions
BEGIN @{
# let getopt print a message about
@@ -15373,28 +19096,31 @@ BEGIN @{
print_total = (ARGC - i > 2)
@}
@c endfile
-@c @end group
@end example
The @code{beginfile} function is simple; it just resets the counts of lines,
-words, and characters to zero, and saves the current file name in
-@code{fname}.
-
-The @code{endfile} function adds the current file's numbers to the running
-totals of lines, words, and characters. It then prints out those numbers
-for the file that was just read. It relies on @code{beginfile} to reset the
-numbers for the following data file.
+words, and characters to zero, and saves the current @value{FN} in
+@code{fname}:
+@c NEXT ED: make it lines = words = chars = 0
@example
-@c left brace on line with `function' because of page breaking
@c file eg/prog/wc.awk
-@group
-function beginfile(file) @{
+function beginfile(file)
+@{
chars = lines = words = 0
fname = FILENAME
@}
-@end group
+@c endfile
+@end example
+
+The @code{endfile} function adds the current file's numbers to the running
+totals of lines, words, and characters. It then prints out those numbers
+for the file that was just read. It relies on @code{beginfile} to reset the
+numbers for the following @value{DF}:
+@c NEXT ED: make order for += be lines, words, chars
+@example
+@c file eg/prog/wc.awk
function endfile(file)
@{
tchars += chars
@@ -15402,8 +19128,10 @@ function endfile(file)
twords += words
if (do_lines)
printf "\t%d", lines
+@group
if (do_words)
printf "\t%d", words
+@end group
if (do_chars)
printf "\t%d", chars
printf "\t%s\n", fname
@@ -15411,20 +19139,20 @@ function endfile(file)
@c endfile
@end example
-There is one rule that is executed for each line. It adds the length of the
-record to @code{chars}. It has to add one, since the newline character
-separating records (the value of @code{RS}) is not part of the record
-itself. @code{lines} is incremented for each line read, and @code{words} is
-incremented by the value of @code{NF}, the number of ``words'' on this
-line.@footnote{Examine the code in
-@ref{Filetrans Function, ,Noting Data File Boundaries}.
-Why must @code{wc} use a separate @code{lines} variable, instead of using
-the value of @code{FNR} in @code{endfile}?}
-
-Finally, the @code{END} rule simply prints the totals for all the files.
+There is one rule that is executed for each line. It adds the length of
+the record, plus one, to @code{chars}. Adding one plus the record length
+is needed because the newline character separating records (the value
+of @code{RS}) is not part of the record itself, and thus not included
+in its length. Next, @code{lines} is incremented for each line read,
+and @code{words} is incremented by the value of @code{NF}, which is the
+number of ``words'' on this line:@footnote{@command{wc} can't just use
+the value of @code{FNR} in @code{endfile}. If you examine the code in
+@ref{Filetrans Function, ,Noting @value{DDF} Boundaries},
+you will see that @code{FNR} has already been reset by the time
+@code{endfile} is called.}
+@c ONE DAY: make the above an exercise, instead of giving away the answer.
@example
-@c @group
@c file eg/prog/wc.awk
# do per line
@{
@@ -15432,7 +19160,13 @@ Finally, the @code{END} rule simply prints the totals for all the files.
lines++
words += NF
@}
+@c endfile
+@end example
+Finally, the @code{END} rule simply prints the totals for all the files.
+
+@example
+@c file eg/prog/wc.awk
END @{
if (print_total) @{
if (do_lines)
@@ -15445,64 +19179,80 @@ END @{
@}
@}
@c endfile
-@c @end group
@end example
-@node Miscellaneous Programs, , Clones, Sample Programs
-@section A Grab Bag of @code{awk} Programs
+@node Miscellaneous Programs, , Clones, Sample Programs
+@section A Grab Bag of @command{awk} Programs
-This section is a large ``grab bag'' of miscellaneous programs.
+This @value{SECTION} is a large ``grab bag'' of miscellaneous programs.
We hope you find them both interesting and enjoyable.
@menu
-* Dupword Program:: Finding duplicated words in a document.
-* Alarm Program:: An alarm clock.
-* Translate Program:: A program similar to the @code{tr} utility.
-* Labels Program:: Printing mailing labels.
-* Word Sorting:: A program to produce a word usage count.
-* History Sorting:: Eliminating duplicate entries from a history
- file.
-* Extract Program:: Pulling out programs from Texinfo source
- files.
-* Simple Sed:: A Simple Stream Editor.
-* Igawk Program:: A wrapper for @code{awk} that includes files.
+* Dupword Program:: Finding duplicated words in a document.
+* Alarm Program:: An alarm clock.
+* Translate Program:: A program similar to the @command{tr} utility.
+* Labels Program:: Printing mailing labels.
+* Word Sorting:: A program to produce a word usage count.
+* History Sorting:: Eliminating duplicate entries from a history
+ file.
+* Extract Program:: Pulling out programs from Texinfo source
+ files.
+* Simple Sed:: A Simple Stream Editor.
+* Igawk Program:: A wrapper for @command{awk} that includes
+ files.
@end menu
@node Dupword Program, Alarm Program, Miscellaneous Programs, Miscellaneous Programs
@subsection Finding Duplicated Words in a Document
A common error when writing large amounts of prose is to accidentally
-duplicate words. Often you will see this in text as something like ``the
-the program does the following @dots{}.'' When the text is on-line, often
+duplicate words. Typically you will see this in text as something like ``the
+the program does the following @dots{}.'' When the text is online, often
the duplicated words occur at the end of one line and the beginning of
another, making them very difficult to spot.
@c as here!
-This program, @file{dupword.awk}, scans through a file one line at a time,
+This program, @file{dupword.awk}, scans through a file one line at a time
and looks for adjacent occurrences of the same word. It also saves the last
word on a line (in the variable @code{prev}) for comparison with the first
word on the next line.
-The first two statements make sure that the line is all lower-case, so that,
-for example,
-``The'' and ``the'' compare equal to each other. The second statement
-removes all non-alphanumeric and non-whitespace characters from the line, so
-that punctuation does not affect the comparison either. This sometimes
-leads to reports of duplicated words that really are different, but this is
-unusual.
+@cindex Texinfo
+The first two statements make sure that the line is all lowercase,
+so that, for example, ``The'' and ``the'' compare equal to each other.
+The next statement replaces non-alphanumeric and non-whitespace characters
+with spaces, so that punctuation does not affect the comparison either.
+The characters are replaced with spaces so that formatting controls
+don't create nonsense words (e.g., the Texinfo @samp{@@code@{NF@}}
+becomes @samp{codeNF} if punctuation is simply deleted). The record is
+then re-split into fields, yielding just the actual words on the line,
+and insuring that there are no empty fields.
+
+If there are no fields left after removing all the punctuation, the
+current record is skipped. Otherwise, the program loops through each
+word, comparing it to the previous one:
-@c FIXME: add check for $i != ""
-@findex dupword.awk
+@cindex @code{dupword.awk} program
@example
-@group
@c file eg/prog/dupword.awk
-# dupword --- find duplicate words in text
+# dupword.awk --- find duplicate words in text
+@c endfile
+@ignore
+@c file eg/prog/dupword.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# December 1991
+# Revised October 2000
+@c endfile
+@end ignore
+@c file eg/prog/dupword.awk
@{
$0 = tolower($0)
- gsub(/[^A-Za-z0-9 \t]/, "");
+ gsub(/[^[:alnum:][:blank:]]/, " ");
+ $0 = $0 # re-split
+ if (NF == 0)
+ next
if ($1 == prev)
printf("%s:%d: duplicate %s\n",
FILENAME, FNR, $1)
@@ -15513,37 +19263,50 @@ unusual.
prev = $NF
@}
@c endfile
-@end group
@end example
@node Alarm Program, Translate Program, Dupword Program, Miscellaneous Programs
@subsection An Alarm Clock Program
+@cindex insomnia, cure for
+@cindex Robbins, Arnold
+@quotation
+@i{Nothing cures insomnia like a ringing alarm clock.}@*
+Arnold Robbins
+@end quotation
The following program is a simple ``alarm clock'' program.
-You give it a time of day, and an optional message. At the given time,
+You give it a time of day and an optional message. At the specified time,
it prints the message on the standard output. In addition, you can give it
-the number of times to repeat the message, and also a delay between
+the number of times to repeat the message as well as a delay between
repetitions.
This program uses the @code{gettimeofday} function from
@ref{Gettimeofday Function, ,Managing the Time of Day}.
All the work is done in the @code{BEGIN} rule. The first part is argument
-checking and setting of defaults; the delay, the count, and the message to
-print. If the user supplied a message, but it does not contain the ASCII BEL
-character (known as the ``alert'' character, @samp{\a}), then it is added to
+checking and setting of defaults: the delay, the count, and the message to
+print. If the user supplied a message without the ASCII BEL
+character (known as the ``alert'' character, @code{"\a"}), then it is added to
the message. (On many systems, printing the ASCII BEL generates some sort
-of audible alert. Thus, when the alarm goes off, the system calls attention
-to itself, in case the user is not looking at their computer or terminal.)
+of audible alert. Thus when the alarm goes off, the system calls attention
+to itself in case the user is not looking at their computer or terminal.):
-@findex alarm.awk
+@cindex @code{alarm.awk} program
@example
-@c @group
@c file eg/prog/alarm.awk
-# alarm --- set an alarm
+# alarm.awk --- set an alarm
+#
+# Requires gettimeofday library function
+@c endfile
+@ignore
+@c file eg/prog/alarm.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
+@c endfile
+@end ignore
+@c file eg/prog/alarm.awk
# usage: alarm time [ "message" [ count [ delay ] ] ]
BEGIN \
@@ -15553,7 +19316,8 @@ BEGIN \
usage2 = sprintf("\t(%s) time ::= hh:mm", ARGV[1])
if (ARGC < 2) @{
- print usage > "/dev/stderr"
+ print usage1 > "/dev/stderr"
+ print usage2 > "/dev/stderr"
exit 1
@} else if (ARGC == 5) @{
delay = ARGV[4] + 0
@@ -15573,27 +19337,26 @@ BEGIN \
# set defaults for once we reach the desired time
if (delay == 0)
delay = 180 # 3 minutes
+@group
if (count == 0)
count = 5
-@group
+@end group
if (message == "")
message = sprintf("\aIt is now %s!\a", ARGV[1])
else if (index(message, "\a") == 0)
message = "\a" message "\a"
-@end group
@c endfile
@end example
-The next section of code turns the alarm time into hours and minutes,
-and converts it if necessary to a 24-hour clock. Then it turns that
+The next @value{SECTION} of code turns the alarm time into hours and minutes,
+converts it (if necessary) to a 24-hour clock, and then turns that
time into a count of the seconds since midnight. Next it turns the current
time into a count of seconds since midnight. The difference between the two
-is how long to wait before setting off the alarm.
+is how long to wait before setting off the alarm:
@example
-@c @group
@c file eg/prog/alarm.awk
- # split up dest time
+ # split up alarm time
split(ARGV[1], atime, ":")
hour = atime[1] + 0 # force numeric
minute = atime[2] + 0 # force numeric
@@ -15621,25 +19384,23 @@ is how long to wait before setting off the alarm.
exit 1
@}
@c endfile
-@c @end group
@end example
+@cindex @command{sleep} utility
Finally, the program uses the @code{system} function
-(@pxref{I/O Functions, ,Built-in Functions for Input/Output})
-to call the @code{sleep} utility. The @code{sleep} utility simply pauses
+(@pxref{I/O Functions, ,Input/Output Functions})
+to call the @command{sleep} utility. The @command{sleep} utility simply pauses
for the given number of seconds. If the exit status is not zero,
-the program assumes that @code{sleep} was interrupted, and exits. If
-@code{sleep} exited with an OK status (zero), then the program prints the
-message in a loop, again using @code{sleep} to delay for however many
-seconds are necessary.
+the program assumes that @command{sleep} was interrupted and exits. If
+@command{sleep} exited with an OK status (zero), then the program prints the
+message in a loop, again using @command{sleep} to delay for however many
+seconds are necessary:
@example
@c file eg/prog/alarm.awk
-@group
# zzzzzz..... go away if interrupted
if (system(sprintf("sleep %d", naptime)) != 0)
exit 1
-@end group
# time to notify!
command = sprintf("sleep %d", delay)
@@ -15658,46 +19419,48 @@ seconds are necessary.
@node Translate Program, Labels Program, Alarm Program, Miscellaneous Programs
@subsection Transliterating Characters
-The system @code{tr} utility transliterates characters. For example, it is
-often used to map upper-case letters into lower-case, for further
-processing.
+@cindex @command{tr} utility
+The system @command{tr} utility transliterates characters. For example, it is
+often used to map uppercase letters into lowercase for further processing:
@example
-@var{generate data} | tr '[A-Z]' '[a-z]' | @var{process data} @dots{}
+@var{generate data} | tr 'A-Z' 'a-z' | @var{process data} @dots{}
@end example
-You give @code{tr} two lists of characters enclosed in square brackets.
-Usually, the lists are quoted to keep the shell from attempting to do a
-filename expansion.@footnote{On older, non-POSIX systems, @code{tr} often
-does not require that the lists be enclosed in square brackets and quoted.
-This is a feature.} When processing the input, the
-first character in the first list is replaced with the first character in the
-second list, the second character in the first list is replaced with the
-second character in the second list, and so on.
-If there are more characters in the ``from'' list than in the ``to'' list,
-the last character of the ``to'' list is used for the remaining characters
-in the ``from'' list.
+@command{tr} requires two lists of characters.@footnote{On some older
+System V systems,
+@command{tr} may require that the lists be written as
+range expressions enclosed in square brackets (@samp{[a-z]}) and quoted,
+to prevent the shell from attempting a @value{FN} expansion. This is
+not a feature.} When processing the input, the first character in the
+first list is replaced with the first character in the second list,
+the second character in the first list is replaced with the second
+character in the second list, and so on. If there are more characters
+in the ``from'' list than in the ``to'' list, the last character of the
+``to'' list is used for the remaining characters in the ``from'' list.
Some time ago,
@c early or mid-1989!
-a user proposed to us that we add a transliteration function to @code{gawk}.
-Being opposed to ``creeping featurism,'' I wrote the following program to
+a user proposed that a transliteration function should
+be added to @command{gawk}.
+@c Wishing to avoid gratuitous new features,
+@c at least theoretically
+The following program was written to
prove that character transliteration could be done with a user-level
-function. This program is not as complete as the system @code{tr} utility,
-but it will do most of the job.
-
-The @code{translate} program demonstrates one of the few weaknesses of
-standard
-@code{awk}: dealing with individual characters is very painful, requiring
-repeated use of the @code{substr}, @code{index}, and @code{gsub} built-in
-functions
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).@footnote{This
-program was written before @code{gawk} acquired the ability to
-split each character in a string into separate array elements.
-How might you use this new feature to simplify the program?}
+function. This program is not as complete as the system @command{tr} utility
+but it does most of the job.
+
+The @command{translate} program demonstrates one of the few weaknesses
+of standard @command{awk}: dealing with individual characters is very
+painful, requiring repeated use of the @code{substr}, @code{index},
+and @code{gsub} built-in functions
+(@pxref{String Functions, ,String Manipulation Functions}).@footnote{This
+program was written before @command{gawk} acquired the ability to
+split each character in a string into separate array elements.}
+@c Exercise: How might you use this new feature to simplify the program?
There are two functions. The first, @code{stranslate}, takes three
-arguments.
+arguments:
@table @code
@item from
@@ -15719,19 +19482,25 @@ is used to change it to the corresponding @code{to} character.
The @code{translate} function simply calls @code{stranslate} using @code{$0}
as the target. The main program sets two global variables, @code{FROM} and
@code{TO}, from the command line, and then changes @code{ARGV} so that
-@code{awk} will read from the standard input.
+@command{awk} reads from the standard input.
-Finally, the processing rule simply calls @code{translate} for each record.
+Finally, the processing rule simply calls @code{translate} for each record:
-@findex translate.awk
+@cindex @code{translate.awk} program
@example
-@c @group
@c file eg/prog/translate.awk
-# translate --- do tr like stuff
+# translate.awk --- do tr-like stuff
+@c endfile
+@ignore
+@c file eg/prog/translate.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# August 1989
-# bugs: does not handle things like: tr A-Z a-z, it has
+@c endfile
+@end ignore
+@c file eg/prog/translate.awk
+# Bugs: does not handle things like: tr A-Z a-z, it has
# to be spelled out. However, if `to' is shorter than `from',
# the last character in `to' is used for the rest of `from'.
@@ -15757,9 +19526,9 @@ function translate(from, to)
return $0 = stranslate(from, to, $0)
@}
-@group
# main program
BEGIN @{
+@group
if (ARGC < 3) @{
print "usage: translate from to" > "/dev/stderr"
exit
@@ -15776,16 +19545,17 @@ BEGIN @{
print
@}
@c endfile
-@c @end group
@end example
While it is possible to do character transliteration in a user-level
-function, it is not necessarily efficient, and we started to consider adding
-a built-in function. However, shortly after writing this program, we learned
-that the System V Release 4 @code{awk} had added the @code{toupper} and
-@code{tolower} functions. These functions handle the vast majority of the
+function, it is not necessarily efficient, and we (the @command{gawk}
+authors) started to consider adding a built-in function. However,
+shortly after writing this program, we learned that the System V Release 4
+@command{awk} had added the @code{toupper} and @code{tolower} functions
+(@pxref{String Functions, ,String Manipulation Functions}).
+These functions handle the vast majority of the
cases where character transliteration is necessary, and so we chose to
-simply add those functions to @code{gawk} as well, and then leave well
+simply add those functions to @command{gawk} as well and then leave well
enough alone.
An obvious improvement to this program would be to set up the
@@ -15798,8 +19568,9 @@ will never change throughout the lifetime of the program.
Here is a ``real world''@footnote{``Real world'' is defined as
``a program actually used to get something done.''}
-program. This script reads lists of names and
-addresses, and generates mailing labels. Each page of labels has 20 labels
+program. This
+script reads lists of names and
+addresses and generates mailing labels. Each page of labels has 20 labels
on it, two across and ten down. The addresses are guaranteed to be no more
than five lines of data. Each address is separated from the next by a blank
line.
@@ -15809,19 +19580,19 @@ is stored in the @code{line} array. The single rule takes care of filling
the @code{line} array and printing the page when 20 labels have been read.
The @code{BEGIN} rule simply sets @code{RS} to the empty string, so that
-@code{awk} will split records at blank lines
-(@pxref{Records, ,How Input is Split into Records}).
-It sets @code{MAXLINES} to 100, since @code{MAXLINE} is the maximum number
+@command{awk} splits records at blank lines
+(@pxref{Records, ,How Input Is Split into Records}).
+It sets @code{MAXLINES} to 100, since 100 is the maximum number
of lines on the page (20 * 5 = 100).
Most of the work is done in the @code{printpage} function.
The label lines are stored sequentially in the @code{line} array. But they
-have to be printed horizontally; @code{line[1]} next to @code{line[6]},
+have to print horizontally; @code{line[1]} next to @code{line[6]},
@code{line[2]} next to @code{line[7]}, and so on. Two loops are used to
accomplish this. The outer loop, controlled by @code{i}, steps through
every 10 lines of data; this is each row of labels. The inner loop,
controlled by @code{j}, goes through the lines within the row.
-As @code{j} goes from zero to four, @samp{i+j} is the @code{j}'th line in
+As @code{j} goes from 0 to 4, @samp{i+j} is the @code{j}'th line in
the row, and @samp{i+j+5} is the entry next to it. The output ends up
looking something like this:
@@ -15831,27 +19602,34 @@ line 2 line 7
line 3 line 8
line 4 line 9
line 5 line 10
+@dots{}
@end example
-As a final note, at lines 21 and 61, an extra blank line is printed, to keep
+As a final note, an extra blank line is printed at lines 21 and 61, to keep
the output lined up on the labels. This is dependent on the particular
brand of labels in use when the program was written. You will also note
that there are two blank lines at the top and two blank lines at the bottom.
The @code{END} rule arranges to flush the final page of labels; there may
-not have been an even multiple of 20 labels in the data.
+not have been an even multiple of 20 labels in the data:
-@findex labels.awk
+@cindex @code{labels.awk} program
@example
-@c @group
@c file eg/prog/labels.awk
-# labels.awk
+# labels.awk --- print mailing labels
+@c endfile
+@ignore
+@c file eg/prog/labels.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# June 1992
+@c endfile
+@end ignore
+@c file eg/prog/labels.awk
-# Program to print labels. Each label is 5 lines of data
-# that may have blank lines. The label sheets have 2
-# blank lines at the top and 2 at the bottom.
+# Each label is 5 lines of data that may have blank lines.
+# The label sheets have 2 blank lines at the top and 2 at
+# the bottom.
BEGIN @{ RS = "" ; MAXLINES = 100 @}
@@ -15899,102 +19677,100 @@ END \
printpage()
@}
@c endfile
-@c @end group
@end example
@node Word Sorting, History Sorting, Labels Program, Miscellaneous Programs
@subsection Generating Word Usage Counts
-The following @code{awk} program prints
+@c NEXT ED: Rewrite this whole section and example
+The following @command{awk} program prints
the number of occurrences of each word in its input. It illustrates the
-associative nature of @code{awk} arrays by using strings as subscripts. It
-also demonstrates the @samp{for @var{x} in @var{array}} construction.
-Finally, it shows how @code{awk} can be used in conjunction with other
+associative nature of @command{awk} arrays by using strings as subscripts. It
+also demonstrates the @samp{for @var{index} in @var{array}} mechanism.
+Finally, it shows how @command{awk} is used in conjunction with other
utility programs to do a useful task of some complexity with a minimum of
-effort. Some explanations follow the program listing.
+effort. Some explanations follow the program listing:
@example
-awk '
# Print list of word frequencies
@{
for (i = 1; i <= NF; i++)
freq[$i]++
@}
-@group
END @{
for (word in freq)
printf "%s\t%d\n", word, freq[word]
-@}'
-@end group
+@}
@end example
-The first thing to notice about this program is that it has two rules. The
-first rule, because it has an empty pattern, is executed on every line of
-the input. It uses @code{awk}'s field-accessing mechanism
+@c Exercise: Use asort() here
+
+This program has two rules. The
+first rule, because it has an empty pattern, is executed for every input line.
+It uses @command{awk}'s field-accessing mechanism
(@pxref{Fields, ,Examining Fields}) to pick out the individual words from
the line, and the built-in variable @code{NF} (@pxref{Built-in Variables})
to know how many fields are available.
-
-For each input word, an element of the array @code{freq} is incremented to
+For each input word, it increments an element of the array @code{freq} to
reflect that the word has been seen an additional time.
The second rule, because it has the pattern @code{END}, is not executed
until the input has been exhausted. It prints out the contents of the
@code{freq} table that has been built up inside the first action.
-
This program has several problems that would prevent it from being
useful by itself on real text files:
@itemize @bullet
@item
-Words are detected using the @code{awk} convention that fields are
-separated by whitespace and that other characters in the input (except
-newlines) don't have any special meaning to @code{awk}. This means that
+Words are detected using the @command{awk} convention that fields are
+separated just by whitespace. Other characters in the input (except
+newlines) don't have any special meaning to @command{awk}. This means that
punctuation characters count as part of words.
@item
-The @code{awk} language considers upper- and lower-case characters to be
-distinct. Therefore, @samp{bartender} and @samp{Bartender} are not treated
-as the same word. This is undesirable since, in normal text, words
+The @command{awk} language considers upper- and lowercase characters to be
+distinct. Therefore, ``bartender'' and ``Bartender'' are not treated
+as the same word. This is undesirable, since in normal text, words
are capitalized if they begin sentences, and a frequency analyzer should not
be sensitive to capitalization.
@item
The output does not come out in any useful order. You're more likely to be
-interested in which words occur most frequently, or having an alphabetized
+interested in which words occur most frequently or in having an alphabetized
table of how frequently each word occurs.
@end itemize
-The way to solve these problems is to use some of the more advanced
-features of the @code{awk} language. First, we use @code{tolower} to remove
+@cindex @command{sort} utility
+The way to solve these problems is to use some of @command{awk}'s more advanced
+features. First, we use @code{tolower} to remove
case distinctions. Next, we use @code{gsub} to remove punctuation
-characters. Finally, we use the system @code{sort} utility to process the
-output of the @code{awk} script. Here is the new version of
+characters. Finally, we use the system @command{sort} utility to process the
+output of the @command{awk} script. Here is the new version of
the program:
-@findex wordfreq.sh
+@cindex @code{wordfreq.awk} program
@example
@c file eg/prog/wordfreq.awk
-# Print list of word frequencies
+# wordfreq.awk --- print list of word frequencies
+
@{
$0 = tolower($0) # remove case distinctions
- gsub(/[^a-z0-9_ \t]/, "", $0) # remove punctuation
+ # remove punctuation
+ gsub(/[^[:alnum:]_[:blank:]]/, "", $0)
for (i = 1; i <= NF; i++)
freq[$i]++
@}
-@c endfile
-@group
END @{
for (word in freq)
printf "%s\t%d\n", word, freq[word]
@}
-@end group
+@c endfile
@end example
Assuming we have saved this program in a file named @file{wordfreq.awk},
-and that the data is in @file{file1}, the following pipeline
+and that the data is in @file{file1}, the following pipeline:
@example
awk -f wordfreq.awk file1 | sort +1 -nr
@@ -16002,20 +19778,18 @@ awk -f wordfreq.awk file1 | sort +1 -nr
@noindent
produces a table of the words appearing in @file{file1} in order of
-decreasing frequency.
-
-The @code{awk} program suitably massages the data and produces a word
-frequency table, which is not ordered.
+decreasing frequency. The @command{awk} program suitably massages the
+data and produces a word frequency table, which is not ordered.
-The @code{awk} script's output is then sorted by the @code{sort} utility and
-printed on the terminal. The options given to @code{sort} in this example
-specify to sort using the second field of each input line (skipping one field),
-that the sort keys should be treated as numeric quantities (otherwise
-@samp{15} would come before @samp{5}), and that the sorting should be done
-in descending (reverse) order.
+The @command{awk} script's output is then sorted by the @command{sort}
+utility and printed on the terminal. The options given to @command{sort}
+specify a sort that uses the second field of each input line (skipping
+one field), that the sort keys should be treated as numeric quantities
+(otherwise @samp{15} would come before @samp{5}), and that the sorting
+should be done in descending (reverse) order.
-We could have even done the @code{sort} from within the program, by
-changing the @code{END} action to:
+The @command{sort} could even be done from within the program, by changing
+the @code{END} action to:
@example
@c file eg/prog/wordfreq.awk
@@ -16028,147 +19802,158 @@ END @{
@c endfile
@end example
-You would have to use this way of sorting on systems that do not
-have true pipes.
-
+This way of sorting must be used on systems that do not
+have true pipes at the command-line (or batch-file) level.
See the general operating system documentation for more information on how
-to use the @code{sort} program.
+to use the @command{sort} program.
@node History Sorting, Extract Program, Word Sorting, Miscellaneous Programs
@subsection Removing Duplicates from Unsorted Text
-The @code{uniq} program
-(@pxref{Uniq Program, ,Printing Non-duplicated Lines of Text}),
+The @command{uniq} program
+(@pxref{Uniq Program, ,Printing Non-Duplicated Lines of Text}),
removes duplicate lines from @emph{sorted} data.
-Suppose, however, you need to remove duplicate lines from a data file, but
-that you wish to preserve the order the lines are in? A good example of
+Suppose, however, you need to remove duplicate lines from a @value{DF} but
+that you want to preserve the order the lines are in. A good example of
this might be a shell history file. The history file keeps a copy of all
the commands you have entered, and it is not unusual to repeat a command
-several times in a row. Occasionally you might wish to compact the history
+several times in a row. Occasionally you might want to compact the history
by removing duplicate entries. Yet it is desirable to maintain the order
of the original commands.
This simple program does the job. It uses two arrays. The @code{data}
array is indexed by the text of each line.
For each line, @code{data[$0]} is incremented.
-
If a particular line has not
-been seen before, then @code{data[$0]} will be zero.
-In that case, the text of the line is stored in @code{lines[count]}.
+been seen before, then @code{data[$0]} is zero.
+In this case, the text of the line is stored in @code{lines[count]}.
Each element of @code{lines} is a unique command, and the indices of
-@code{lines} indicate the order in which those lines were encountered.
-The @code{END} rule simply prints out the lines, in order.
+@code{lines} indicate the order in which those lines are encountered.
+The @code{END} rule simply prints out the lines, in order:
@cindex Rakitzis, Byron
-@findex histsort.awk
+@cindex @code{histsort.awk} program
@example
-@group
@c file eg/prog/histsort.awk
# histsort.awk --- compact a shell history file
+# Thanks to Byron Rakitzis for the general idea
+@c endfile
+@ignore
+@c file eg/prog/histsort.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# May 1993
-# Thanks to Byron Rakitzis for the general idea
+@c endfile
+@end ignore
+@c file eg/prog/histsort.awk
+@group
@{
if (data[$0]++ == 0)
lines[++count] = $0
@}
+@end group
END @{
for (i = 1; i <= count; i++)
print lines[i]
@}
@c endfile
-@end group
@end example
This program also provides a foundation for generating other useful
-information. For example, using the following @code{print} satement in the
-@code{END} rule would indicate how often a particular command was used.
+information. For example, using the following @code{print} statement in the
+@code{END} rule indicates how often a particular command is used:
@example
print data[lines[i]], lines[i]
@end example
-This works because @code{data[$0]} was incremented each time a line was
+This works because @code{data[$0]} is incremented each time a line is
seen.
@node Extract Program, Simple Sed, History Sorting, Miscellaneous Programs
@subsection Extracting Programs from Texinfo Source Files
-@iftex
+@ifnotinfo
Both this chapter and the previous chapter
-(@ref{Library Functions, ,A Library of @code{awk} Functions}),
-present a large number of @code{awk} programs.
-@end iftex
+(@ref{Library Functions, ,A Library of @command{awk} Functions})
+present a large number of @command{awk} programs.
+@end ifnotinfo
@ifinfo
The nodes
-@ref{Library Functions, ,A Library of @code{awk} Functions},
-and @ref{Sample Programs, ,Practical @code{awk} Programs},
-are the top level nodes for a large number of @code{awk} programs.
+@ref{Library Functions, ,A Library of @command{awk} Functions},
+and @ref{Sample Programs, ,Practical @command{awk} Programs},
+are the top level nodes for a large number of @command{awk} programs.
@end ifinfo
-If you wish to experiment with these programs, it is tedious to have to type
+If you want to experiment with these programs, it is tedious to have to type
them in by hand. Here we present a program that can extract parts of a
Texinfo input file into separate files.
+@cindex Texinfo
This @value{DOCUMENT} is written in Texinfo, the GNU project's document
-formatting language. A single Texinfo source file can be used to produce both
-printed and on-line documentation.
-@iftex
-Texinfo is fully documented in @cite{Texinfo---The GNU Documentation Format},
+formatting
+language.
+A single Texinfo source file can be used to produce both
+printed and online documentation.
+@ifnotinfo
+Texinfo is fully documented in the book
+@cite{Texinfo---The GNU Documentation Format},
available from the Free Software Foundation.
-@end iftex
+@end ifnotinfo
@ifinfo
The Texinfo language is described fully, starting with
-@ref{Top, , Introduction, texi, Texinfo---The GNU Documentation Format}.
+@ref{Top}.
@end ifinfo
For our purposes, it is enough to know three things about Texinfo input
-files.
+files:
@itemize @bullet
@item
-The ``at'' symbol, @samp{@@}, is special in Texinfo, much like @samp{\} in C
-or @code{awk}. Literal @samp{@@} symbols are represented in Texinfo source
+The ``at'' symbol (@samp{@@}) is special in Texinfo, much as
+the backslash (@samp{\}) is in C
+or @command{awk}. Literal @samp{@@} symbols are represented in Texinfo source
files as @samp{@@@@}.
@item
Comments start with either @samp{@@c} or @samp{@@comment}.
-The file extraction program will work by using special comments that start
+The file extraction program works by using special comments that start
at the beginning of a line.
@item
-Example text that should not be split across a page boundary is bracketed
-between lines containing @samp{@@group} and @samp{@@end group} commands.
+Lines containing @samp{@@group} and @samp{@@end group} commands bracket
+example text that should not be split across a page boundary.
+(Unfortunately, @TeX{} isn't always smart enough to do things exactly right
+and we have to give it some help.)
@end itemize
The following program, @file{extract.awk}, reads through a Texinfo source
-file, and does two things, based on the special comments.
+file and does two things, based on the special comments.
Upon seeing @samp{@w{@@c system @dots{}}},
it runs a command, by extracting the command text from the
control line and passing it on to the @code{system} function
-(@pxref{I/O Functions, ,Built-in Functions for Input/Output}).
+(@pxref{I/O Functions, ,Input/Output Functions}).
Upon seeing @samp{@@c file @var{filename}}, each subsequent line is sent to
the file @var{filename}, until @samp{@@c endfile} is encountered.
-The rules in @file{extract.awk} will match either @samp{@@c} or
+The rules in @file{extract.awk} match either @samp{@@c} or
@samp{@@comment} by letting the @samp{omment} part be optional.
Lines containing @samp{@@group} and @samp{@@end group} are simply removed.
@file{extract.awk} uses the @code{join} library function
-(@pxref{Join Function, ,Merging an Array Into a String}).
-
-The example programs in the on-line Texinfo source for @cite{@value{TITLE}}
-(@file{gawk.texi}) have all been bracketed inside @samp{file},
-and @samp{endfile} lines. The @code{gawk} distribution uses a copy of
-@file{extract.awk} to extract the sample
-programs and install many of them in a standard directory, where
-@code{gawk} can find them.
+(@pxref{Join Function, ,Merging an Array into a String}).
+
+The example programs in the online Texinfo source for @cite{@value{TITLE}}
+(@file{gawk.texi}) have all been bracketed inside @samp{file} and
+@samp{endfile} lines. The @command{gawk} distribution uses a copy of
+@file{extract.awk} to extract the sample programs and install many
+of them in a standard directory where @command{gawk} can find them.
The Texinfo file looks something like this:
@example
@dots{}
-This program has a @@code@{BEGIN@} block,
-which prints a nice message:
+This program has a @@code@{BEGIN@} rule,
+that prints a nice message:
@@example
@@c file examples/messages.awk
@@ -16187,23 +19972,30 @@ END @@@{ print "Always avoid bored archeologists!" @@@}
@end example
@file{extract.awk} begins by setting @code{IGNORECASE} to one, so that
-mixed upper-case and lower-case letters in the directives won't matter.
+mixed upper- and lowercase letters in the directives won't matter.
-The first rule handles calling @code{system}, checking that a command was
-given (@code{NF} is at least three), and also checking that the command
-exited with a zero exit status, signifying OK.
+The first rule handles calling @code{system}, checking that a command is
+given (@code{NF} is at least three) and also checking that the command
+exits with a zero exit status, signifying OK:
-@findex extract.awk
+@cindex @code{extract.awk} program
@example
-@c @group
@c file eg/prog/extract.awk
# extract.awk --- extract files and run programs
# from texinfo files
-# Arnold Robbins, arnold@@gnu.org, Public Domain, May 1993
+@c endfile
+@ignore
+@c file eg/prog/extract.awk
+#
+# Arnold Robbins, arnold@@gnu.org, Public Domain
+# May 1993
+# Revised September 2000
+@c endfile
+@end ignore
+@c file eg/prog/extract.awk
BEGIN @{ IGNORECASE = 1 @}
-@group
/^@@c(omment)?[ \t]+system/ \
@{
if (NF < 3) @{
@@ -16221,25 +20013,25 @@ BEGIN @{ IGNORECASE = 1 @}
print e > "/dev/stderr"
@}
@}
-@end group
@c endfile
@end example
@noindent
The variable @code{e} is used so that the function
fits nicely on the
-@iftex
+@ifnotinfo
page.
-@end iftex
-@ifinfo
+@end ifnotinfo
+@ifnottex
screen.
-@end ifinfo
+@end ifnottex
-The second rule handles moving data into files. It verifies that a file
-name was given in the directive. If the file named is not the current file,
-then the current file is closed. This means that an @samp{@@c endfile} was
-not given for that file. (We should probably print a diagnostic in this
-case, although at the moment we do not.)
+The second rule handles moving data into files. It verifies that a
+@value{FN} is given in the directive. If the file named is not the
+current file, then the current file is closed. Keeping the current file
+open until a new file is encountered allows the use of the @samp{>}
+redirection for printing the contents, keeping open file management
+simple.
The @samp{for} loop does the work. It reads lines using @code{getline}
(@pxref{Getline, ,Explicit Input with @code{getline}}).
@@ -16247,30 +20039,26 @@ For an unexpected end of file, it calls the @code{@w{unexpected_eof}}
function. If the line is an ``endfile'' line, then it breaks out of
the loop.
If the line is an @samp{@@group} or @samp{@@end group} line, then it
-ignores it, and goes on to the next line.
-(These Texinfo control lines keep blocks of code together on one page;
-unfortunately, @TeX{} isn't always smart enough to do things exactly right,
-and we have to give it some advice.)
+ignores it and goes on to the next line.
+Similarly, comments within examples are also ignored.
Most of the work is in the following few lines. If the line has no @samp{@@}
-symbols, it can be printed directly. Otherwise, each leading @samp{@@} must be
-stripped off.
-
+symbols, the program can print it directly.
+Otherwise, each leading @samp{@@} must be stripped off.
To remove the @samp{@@} symbols, the line is split into separate elements of
the array @code{a}, using the @code{split} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
+The @samp{@@} symbol is used as the separator character.
Each element of @code{a} that is empty indicates two successive @samp{@@}
symbols in the original line. For each two empty elements (@samp{@@@@} in
-the original file), we have to add back in a single @samp{@@} symbol.
+the original file), we have to add a single @samp{@@} symbol back in.
When the processing of the array is finished, @code{join} is called with the
value of @code{SUBSEP}, to rejoin the pieces back into a single
-line. That line is then printed to the output file.
+line. That line is then printed to the output file:
@example
-@c @group
@c file eg/prog/extract.awk
-@group
/^@@c(omment)?[ \t]+file/ \
@{
if (NF != 3) @{
@@ -16278,7 +20066,6 @@ line. That line is then printed to the output file.
print e > "/dev/stderr"
next
@}
-@end group
if ($3 != curfile) @{
if (curfile != "")
close(curfile)
@@ -16292,15 +20079,15 @@ line. That line is then printed to the output file.
break
else if (line ~ /^@@(end[ \t]+)?group/)
continue
+ else if (line ~ /^@@c(omment+)?[ \t]+/)
+ continue
if (index(line, "@@") == 0) @{
print line > curfile
continue
@}
n = split(line, a, "@@")
-@group
# if a[1] == "", means leading @@,
# don't add one back in.
-@end group
for (i = 2; i <= n; i++) @{
if (a[i] == "") @{ # was an @@@@
a[i] = "@@"
@@ -16312,29 +20099,27 @@ line. That line is then printed to the output file.
@}
@}
@c endfile
-@c @end group
@end example
An important thing to note is the use of the @samp{>} redirection.
Output done with @samp{>} only opens the file once; it stays open and
subsequent output is appended to the file
(@pxref{Redirection, , Redirecting Output of @code{print} and @code{printf}}).
-This allows us to easily mix program text and explanatory prose for the same
+This makes it easy to mix program text and explanatory prose for the same
sample source file (as has been done here!) without any hassle. The file is
-only closed when a new data file name is encountered, or at the end of the
+only closed when a new data @value{FN} is encountered or at the end of the
input file.
Finally, the function @code{@w{unexpected_eof}} prints an appropriate
error message and then exits.
+The @code{END} rule handles the final cleanup, closing the open file:
-The @code{END} rule handles the final cleanup, closing the open file.
-
+@c function lb put on same line for page breaking. sigh
@example
@c file eg/prog/extract.awk
@group
-function unexpected_eof()
-@{
- printf("%s:%d: unexpected EOF or error\n", \
+function unexpected_eof() @{
+ printf("%s:%d: unexpected EOF or error\n",
FILENAME, FNR) > "/dev/stderr"
exit 1
@}
@@ -16350,55 +20135,58 @@ END @{
@node Simple Sed, Igawk Program, Extract Program, Miscellaneous Programs
@subsection A Simple Stream Editor
-@cindex @code{sed} utility
-The @code{sed} utility is a ``stream editor,'' a program that reads a
-stream of data, makes changes to it, and passes the modified data on.
-It is often used to make global changes to a large file, or to a stream
+@cindex @command{sed} utility
+@cindex stream editor
+The @command{sed} utility is a ``stream editor,'' a program that reads a
+stream of data, makes changes to it, and passes it on.
+It is often used to make global changes to a large file or to a stream
of data generated by a pipeline of commands.
-
-While @code{sed} is a complicated program in its own right, its most common
+While @command{sed} is a complicated program in its own right, its most common
use is to perform global substitutions in the middle of a pipeline:
@example
command1 < orig.data | sed 's/old/new/g' | command2 > result
@end example
-Here, the @samp{s/old/new/g} tells @code{sed} to look for the regexp
-@samp{old} on each input line, and replace it with the text @samp{new},
-globally (i.e.@: all the occurrences on a line). This is similar to
-@code{awk}'s @code{gsub} function
-(@pxref{String Functions, , Built-in Functions for String Manipulation}).
+Here, @samp{s/old/new/g} tells @command{sed} to look for the regexp
+@samp{old} on each input line and globally replace it with the text
+@samp{new}, (i.e., all the occurrences on a line). This is similar to
+@command{awk}'s @code{gsub} function
+(@pxref{String Functions, ,String Manipulation Functions}).
-The following program, @file{awksed.awk}, accepts at least two command line
-arguments; the pattern to look for and the text to replace it with. Any
-additional arguments are treated as data file names to process. If none
-are provided, the standard input is used.
+The following program, @file{awksed.awk}, accepts at least two command-line
+arguments: the pattern to look for and the text to replace it with. Any
+additional arguments are treated as data @value{FN}s to process. If none
+are provided, the standard input is used:
@cindex Brennan, Michael
-@cindex @code{awksed}
+@cindex @command{awksed.awk} program
@cindex simple stream editor
@cindex stream editor, simple
@example
-@c @group
@c file eg/prog/awksed.awk
# awksed.awk --- do s/foo/bar/g using just print
# Thanks to Michael Brennan for the idea
-
+@c endfile
+@ignore
+@c file eg/prog/awksed.awk
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# August 1995
+@c endfile
+@end ignore
+@c file eg/prog/awksed.awk
function usage()
@{
print "usage: awksed pat repl [files...]" > "/dev/stderr"
exit 1
@}
-@group
BEGIN @{
# validate arguments
if (ARGC < 3)
usage()
-@end group
RS = ARGV[1]
ORS = ARGV[2]
@@ -16407,6 +20195,7 @@ BEGIN @{
ARGV[1] = ARGV[2] = ""
@}
+@group
# look ma, no hands!
@{
if (RT == "")
@@ -16414,38 +20203,36 @@ BEGIN @{
else
print
@}
+@end group
@c endfile
-@c @end group
@end example
-The program relies on @code{gawk}'s ability to have @code{RS} be a regexp
-and on the setting of @code{RT} to the actual text that terminated the
-record (@pxref{Records, ,How Input is Split into Records}).
+The program relies on @command{gawk}'s ability to have @code{RS} be a regexp,
+as well as on the setting of @code{RT} to the actual text that terminates the
+record (@pxref{Records, ,How Input Is Split into Records}).
-The idea is to have @code{RS} be the pattern to look for. @code{gawk}
-will automatically set @code{$0} to the text between matches of the pattern.
-This is text that we wish to keep, unmodified. Then, by setting @code{ORS}
-to the replacement text, a simple @code{print} statement will output the
-text we wish to keep, followed by the replacement text.
+The idea is to have @code{RS} be the pattern to look for. @command{gawk}
+automatically sets @code{$0} to the text between matches of the pattern.
+This is text that we want to keep, unmodified. Then, by setting @code{ORS}
+to the replacement text, a simple @code{print} statement outputs the
+text we want to keep, followed by the replacement text.
There is one wrinkle to this scheme, which is what to do if the last record
-doesn't end with text that matches @code{RS}? Using a @code{print}
+doesn't end with text that matches @code{RS}. Using a @code{print}
statement unconditionally prints the replacement text, which is not correct.
-
However, if the file did not end in text that matches @code{RS}, @code{RT}
-will be set to the null string. In this case, we can print @code{$0} using
+is set to the null string. In this case, we can print @code{$0} using
@code{printf}
(@pxref{Printf, ,Using @code{printf} Statements for Fancier Printing}).
The @code{BEGIN} rule handles the setup, checking for the right number
-of arguments, and calling @code{usage} if there is a problem. Then it sets
-@code{RS} and @code{ORS} from the command line arguments, and sets
-@code{ARGV[1]} and @code{ARGV[2]} to the null string, so that they will
-not be treated as file names
+of arguments and calling @code{usage} if there is a problem. Then it sets
+@code{RS} and @code{ORS} from the command-line arguments and sets
+@code{ARGV[1]} and @code{ARGV[2]} to the null string, so that they are
+not treated as @value{FN}s
(@pxref{ARGC and ARGV, , Using @code{ARGC} and @code{ARGV}}).
The @code{usage} function prints an error message and exits.
-
Finally, the single rule handles the printing scheme outlined above,
using @code{print} or @code{printf} as appropriate, depending upon the
value of @code{RT}.
@@ -16473,16 +20260,15 @@ Others?
@node Igawk Program, , Simple Sed, Miscellaneous Programs
@subsection An Easy Way to Use Library Functions
-Using library functions in @code{awk} can be very beneficial. It
-encourages code re-use and the writing of general functions. Programs are
-smaller, and therefore clearer.
-However, using library functions is only easy when writing @code{awk}
-programs; it is painful when running them, requiring multiple @samp{-f}
-options. If @code{gawk} is unavailable, then so too is the @code{AWKPATH}
-environment variable and the ability to put @code{awk} functions into a
-library directory (@pxref{Options, ,Command Line Options}).
-
-It would be nice to be able to write programs like so:
+Using library functions in @command{awk} can be very beneficial. It
+encourages code reuse and the writing of general functions. Programs are
+smaller and therefore clearer.
+However, using library functions is only easy when writing @command{awk}
+programs; it is painful when running them, requiring multiple @option{-f}
+options. If @command{gawk} is unavailable, then so too is the @env{AWKPATH}
+environment variable and the ability to put @command{awk} functions into a
+library directory (@pxref{Options, ,Command-Line Options}).
+It would be nice to be able to write programs in the following manner:
@example
# library functions
@@ -16499,127 +20285,124 @@ BEGIN @{
@end example
The following program, @file{igawk.sh}, provides this service.
-It simulates @code{gawk}'s searching of the @code{AWKPATH} variable,
-and also allows @dfn{nested} includes; i.e.@: a file that has been included
+It simulates @command{gawk}'s searching of the @env{AWKPATH} variable
+and also allows @dfn{nested} includes; i.e., a file that is included
with @samp{@@include} can contain further @samp{@@include} statements.
-@code{igawk} will make an effort to only include files once, so that nested
+@command{igawk} makes an effort to only include files once, so that nested
includes don't accidentally include a library function twice.
-@code{igawk} should behave externally just like @code{gawk}. This means it
-should accept all of @code{gawk}'s command line arguments, including the
-ability to have multiple source files specified via @samp{-f}, and the
-ability to mix command line and library source files.
+@command{igawk} should behave just like @command{gawk} externally. This
+means it should accept all of @command{gawk}'s command-line arguments,
+including the ability to have multiple source files specified via
+@option{-f}, and the ability to mix command-line and library source files.
-The program is written using the POSIX Shell (@code{sh}) command language.
+The program is written using the POSIX Shell (@command{sh}) command language.
The way the program works is as follows:
@enumerate
@item
Loop through the arguments, saving anything that doesn't represent
-@code{awk} source code for later, when the expanded program is run.
+@command{awk} source code for later, when the expanded program is run.
@item
-For any arguments that do represent @code{awk} text, put the arguments into
-a temporary file that will be expanded. There are two cases.
+For any arguments that do represent @command{awk} text, put the arguments into
+a temporary file that will be expanded. There are two cases:
@enumerate a
@item
-Literal text, provided with @samp{--source} or @samp{--source=}. This
-text is just echoed directly. The @code{echo} program will automatically
-supply a trailing newline.
+Literal text, provided with @option{--source} or @option{--source=}. This
+text is just echoed directly. The @command{echo} program automatically
+supplies a trailing newline.
@item
-File names provided with @samp{-f}. We use a neat trick, and echo
+Source @value{FN}s provided with @option{-f}. We use a neat trick and echo
@samp{@@include @var{filename}} into the temporary file. Since the file
-inclusion program will work the way @code{gawk} does, this will get the text
+inclusion program works the way @command{gawk} does, this gets the text
of the file included into the program at the correct point.
@end enumerate
@item
-Run an @code{awk} program (naturally) over the temporary file to expand
+Run an @command{awk} program (naturally) over the temporary file to expand
@samp{@@include} statements. The expanded program is placed in a second
temporary file.
@item
-Run the expanded program with @code{gawk} and any other original command line
-arguments that the user supplied (such as the data file names).
+Run the expanded program with @command{gawk} and any other original command-line
+arguments that the user supplied (such as the data @value{FN}s).
@end enumerate
The initial part of the program turns on shell tracing if the first
-argument was @samp{debug}. Otherwise, a shell @code{trap} statement
+argument is @samp{debug}. Otherwise, a shell @code{trap} statement
arranges to clean up any temporary files on program exit or upon an
interrupt.
@c 2e: For the temp file handling, go with Darrel's ig=${TMP:-/tmp}/igs.$$
@c 2e: or something as similar as possible.
-The next part loops through all the command line arguments.
-There are several cases of interest.
+The next part loops through all the command-line arguments.
+There are several cases of interest:
@table @code
@item --
-This ends the arguments to @code{igawk}. Anything else should be passed on
-to the user's @code{awk} program without being evaluated.
+This ends the arguments to @command{igawk}. Anything else should be passed on
+to the user's @command{awk} program without being evaluated.
@item -W
-This indicates that the next option is specific to @code{gawk}. To make
-argument processing easier, the @samp{-W} is appended to the front of the
-remaining arguments and the loop continues. (This is an @code{sh}
+This indicates that the next option is specific to @command{gawk}. To make
+argument processing easier, the @option{-W} is appended to the front of the
+remaining arguments and the loop continues. (This is an @command{sh}
programming trick. Don't worry about it if you are not familiar with
-@code{sh}.)
+@command{sh}.)
-@item -v
-@itemx -F
-These are saved and passed on to @code{gawk}.
-
-@item -f
-@itemx --file
-@itemx --file=
-@itemx -Wfile=
-The file name is saved to the temporary file @file{/tmp/ig.s.$$} with an
+@item -v@r{,} -F
+These are saved and passed on to @command{gawk}.
+
+@item -f@r{,} --file@r{,} --file=@r{,} -Wfile=
+The @value{FN} is saved to the temporary file @file{/tmp/ig.s.$$} with an
@samp{@@include} statement.
-The @code{sed} utility is used to remove the leading option part of the
+The @command{sed} utility is used to remove the leading option part of the
argument (e.g., @samp{--file=}).
-@item --source
-@itemx --source=
-@itemx -Wsource=
+@item --source@r{,} --source=@r{,} -Wsource=
The source text is echoed into @file{/tmp/ig.s.$$}.
-@item --version
-@itemx -Wversion
-@code{igawk} prints its version number, and runs @samp{gawk --version}
-to get the @code{gawk} version information, and then exits.
+@item --version@r{,} -Wversion
+@command{igawk} prints its version number, runs @samp{gawk --version}
+to get the @command{gawk} version information, and then exits.
@end table
-If none of @samp{-f}, @samp{--file}, @samp{-Wfile}, @samp{--source},
-or @samp{-Wsource}, were supplied, then the first non-option argument
-should be the @code{awk} program. If there are no command line
-arguments left, @code{igawk} prints an error message and exits.
+If none of the @option{-f}, @option{--file}, @option{-Wfile}, @option{--source},
+or @option{-Wsource} arguments are supplied, then the first non-option argument
+should be the @command{awk} program. If there are no command-line
+arguments left, @command{igawk} prints an error message and exits.
Otherwise, the first argument is echoed into @file{/tmp/ig.s.$$}.
-
In any case, after the arguments have been processed,
-@file{/tmp/ig.s.$$} contains the complete text of the original @code{awk}
+@file{/tmp/ig.s.$$} contains the complete text of the original @command{awk}
program.
-The @samp{$$} in @code{sh} represents the current process ID number.
-It is often used in shell programs to generate unique temporary file
-names. This allows multiple users to run @code{igawk} without worrying
-that the temporary file names will clash.
-
-@cindex @code{sed} utility
-Here's the program:
+@cindex @command{sed} utility
+@cindex stream editor
+The @samp{$$} in @command{sh} represents the current process ID number.
+It is often used in shell programs to generate unique temporary @value{FN}s.
+This allows multiple users to run @command{igawk} without worrying
+that the temporary @value{FN}s will clash.
+The program is as follows:
-@findex igawk.sh
+@cindex @code{igawk.sh} program
@example
-@c @group
@c file eg/prog/igawk.sh
#! /bin/sh
-
# igawk --- like gawk but do @@include processing
+@c endfile
+@ignore
+@c file eg/prog/igawk.sh
+#
# Arnold Robbins, arnold@@gnu.org, Public Domain
# July 1993
+@c endfile
+@end ignore
+@c file eg/prog/igawk.sh
if [ "$1" = debug ]
then
set -x
@@ -16646,24 +20429,22 @@ do
-f) echo @@include "$2" >> /tmp/ig.s.$$
shift;;
-@group
-f*) f=`echo "$1" | sed 's/-f//'`
echo @@include "$f" >> /tmp/ig.s.$$ ;;
-@end group
-?file=*) # -Wfile or --file
f=`echo "$1" | sed 's/-.file=//'`
echo @@include "$f" >> /tmp/ig.s.$$ ;;
- -?file) # get arg, $2
+ -?file) # get arg, $2
echo @@include "$2" >> /tmp/ig.s.$$
shift;;
- -?source=*) # -Wsource or --source
+ -?source=*) # -Wsource or --source
t=`echo "$1" | sed 's/-.source=//'`
echo "$t" >> /tmp/ig.s.$$ ;;
- -?source) # get arg, $2
+ -?source) # get arg, $2
echo "$2" >> /tmp/ig.s.$$
shift;;
@@ -16672,7 +20453,7 @@ do
gawk --version
exit 0 ;;
- -[W-]*) opts="$opts '$1'" ;;
+ -[W-]*) opts="$opts '$1'" ;;
*) break;;
esac
@@ -16681,10 +20462,12 @@ done
if [ ! -s /tmp/ig.s.$$ ]
then
+@group
if [ -z "$1" ]
then
echo igawk: no program! 1>&2
exit 1
+@end group
else
echo "$1" > /tmp/ig.s.$$
shift
@@ -16693,40 +20476,38 @@ fi
# at this point, /tmp/ig.s.$$ has the program
@c endfile
-@c @end group
@end example
-The @code{awk} program to process @samp{@@include} directives reads through
-the program, one line at a time using @code{getline}
-(@pxref{Getline, ,Explicit Input with @code{getline}}).
-The input file names and @samp{@@include} statements are managed using a
-stack. As each @samp{@@include} is encountered, the current file name is
-``pushed'' onto the stack, and the file named in the @samp{@@include}
-directive becomes
-the current file name. As each file is finished, the stack is ``popped,''
-and the previous input file becomes the current input file again.
-The process is started by making the original file the first one on the
-stack.
-
-The @code{pathto} function does the work of finding the full path to a
-file. It simulates @code{gawk}'s behavior when searching the @code{AWKPATH}
-environment variable
-(@pxref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}).
-If a file name has a @samp{/} in it, no path search
-is done. Otherwise, the file name is concatenated with the name of each
-directory in the path, and an attempt is made to open the generated file
-name. The only way in @code{awk} to test if a file can be read is to go
-ahead and try to read it with @code{getline}; that is what @code{pathto}
-does.@footnote{On some very old versions of @code{awk}, the test
+The @command{awk} program to process @samp{@@include} directives
+reads through the program, one line at a time, using @code{getline}
+(@pxref{Getline, ,Explicit Input with @code{getline}}). The input
+@value{FN}s and @samp{@@include} statements are managed using a stack.
+As each @samp{@@include} is encountered, the current @value{FN} is
+``pushed'' onto the stack and the file named in the @samp{@@include}
+directive becomes the current @value{FN}. As each file is finished,
+the stack is ``popped,'' and the previous input file becomes the current
+input file again. The process is started by making the original file
+the first one on the stack.
+
+The @code{pathto} function does the work of finding the full path to
+a file. It simulates @command{gawk}'s behavior when searching the
+@env{AWKPATH} environment variable
+(@pxref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}).
+If a @value{FN} has a @samp{/} in it, no path search is done. Otherwise,
+the @value{FN} is concatenated with the name of each directory in
+the path, and an attempt is made to open the generated @value{FN}.
+The only way to test if a file can be read in @command{awk} is to go
+ahead and try to read it with @code{getline}; this is what @code{pathto}
+does.@footnote{On some very old versions of @command{awk}, the test
@samp{getline junk < t} can loop forever if the file exists but is empty.
-Caveat Emptor.}
-If the file can be read, it is closed, and the file name is
-returned.
+Caveat emptor.} If the file can be read, it is closed and the @value{FN}
+is returned:
+
@ignore
An alternative way to test for the file's existence would be to call
-@samp{system("test -r " t)}, which uses the @code{test} utility to
+@samp{system("test -r " t)}, which uses the @command{test} utility to
see if the file exists and is readable. The disadvantage to this method
-is that it requires creating an extra process, and can thus be slightly
+is that it requires creating an extra process and can thus be slightly
slower.
@end ignore
@@ -16734,10 +20515,7 @@ slower.
@c file eg/prog/igawk.sh
gawk -- '
# process @@include directives
-@c endfile
-@group
-@c file eg/prog/igawk.sh
function pathto(file, i, t, junk)
@{
if (index(file, "/") != 0)
@@ -16745,25 +20523,25 @@ function pathto(file, i, t, junk)
for (i = 1; i <= ndirs; i++) @{
t = (pathlist[i] "/" file)
+@group
if ((getline junk < t) > 0) @{
# found it
close(t)
return t
@}
+@end group
@}
return ""
@}
@c endfile
-@end group
@end example
The main program is contained inside one @code{BEGIN} rule. The first thing it
does is set up the @code{pathlist} array that @code{pathto} uses. After
splitting the path on @samp{:}, null elements are replaced with @code{"."},
-which represents the current directory.
+which represents the current directory:
@example
-@group
@c file eg/prog/igawk.sh
BEGIN @{
path = ENVIRON["AWKPATH"]
@@ -16773,29 +20551,26 @@ BEGIN @{
pathlist[i] = "."
@}
@c endfile
-@end group
@end example
The stack is initialized with @code{ARGV[1]}, which will be @file{/tmp/ig.s.$$}.
The main loop comes next. Input lines are read in succession. Lines that
do not start with @samp{@@include} are printed verbatim.
-
-If the line does start with @samp{@@include}, the file name is in @code{$2}.
-@code{pathto} is called to generate the full path. If it could not, then we
+If the line does start with @samp{@@include}, the @value{FN} is in @code{$2}.
+@code{pathto} is called to generate the full path. If it cannot, then we
print an error message and continue.
-The next thing to check is if the file has been included already. The
-@code{processed} array is indexed by the full file name of each included
-file, and it tracks this information for us. If the file has been
-seen, a warning message is printed. Otherwise, the new file name is
+The next thing to check is if the file is included already. The
+@code{processed} array is indexed by the full @value{FN} of each included
+file and it tracks this information for us. If the file is
+seen again, a warning message is printed. Otherwise, the new @value{FN} is
pushed onto the stack and processing continues.
Finally, when @code{getline} encounters the end of the input file, the file
is closed and the stack is popped. When @code{stackptr} is less than zero,
-the program is done.
+the program is done:
@example
-@c @group
@c file eg/prog/igawk.sh
stackptr = 0
input[stackptr] = ARGV[1] # ARGV[1] is first file
@@ -16807,65 +20582,62 @@ the program is done.
continue
@}
fpath = pathto($2)
+@group
if (fpath == "") @{
- printf("igawk:%s:%d: cannot find %s\n", \
+ printf("igawk:%s:%d: cannot find %s\n",
input[stackptr], FNR, $2) > "/dev/stderr"
continue
@}
-@group
+@end group
if (! (fpath in processed)) @{
processed[fpath] = input[stackptr]
- input[++stackptr] = fpath
+ input[++stackptr] = fpath # push onto stack
@} else
- print $2, "included in", input[stackptr], \
- "already included in", \
+ print $2, "included in", input[stackptr],
+ "already included in",
processed[fpath] > "/dev/stderr"
@}
-@end group
-@group
close(input[stackptr])
@}
@}' /tmp/ig.s.$$ > /tmp/ig.e.$$
-@end group
@c endfile
-@c @end group
@end example
-The last step is to call @code{gawk} with the expanded program and the original
-options and command line arguments that the user supplied. @code{gawk}'s
-exit status is passed back on to @code{igawk}'s calling program.
+The last step is to call @command{gawk} with the expanded program,
+along with the original
+options and command-line arguments that the user supplied. @command{gawk}'s
+exit status is passed back on to @command{igawk}'s calling program:
@c this causes more problems than it solves, so leave it out.
@ignore
-The special file @file{/dev/null} is passed as a data file to @code{gawk}
+The special file @file{/dev/null} is passed as a @value{DF} to @command{gawk}
to handle an interesting case. Suppose that the user's program only has
-a @code{BEGIN} rule, and there are no data files to read. The program should exit without reading any data
-files. However, suppose that an included library file defines an @code{END}
-rule of its own. In this case, @code{gawk} will hang, reading standard
-input. In order to avoid this, @file{/dev/null} is explicitly to the
-command line. Reading from @file{/dev/null} always returns an immediate
+a @code{BEGIN} rule and there are no @value{DF}s to read.
+The program should exit without reading any @value{DF}s.
+However, suppose that an included library file defines an @code{END}
+rule of its own. In this case, @command{gawk} will hang, reading standard
+input. In order to avoid this, @file{/dev/null} is explicitly added to the
+command-line. Reading from @file{/dev/null} always returns an immediate
end of file indication.
@c Hmm. Add /dev/null if $# is 0? Still messes up ARGV. Sigh.
@end ignore
@example
-@c @group
@c file eg/prog/igawk.sh
eval gawk -f /tmp/ig.e.$$ $opts -- "$@@"
exit $?
@c endfile
-@c @end group
@end example
-This version of @code{igawk} represents my third attempt at this program.
-There are three key simplifications that made the program work better.
+This version of @command{igawk} represents my third attempt at this program.
+There are three key simplifications that make the program work better:
-@enumerate
+@itemize @bullet
@item
-Using @samp{@@include} even for the files named with @samp{-f} makes building
-the initial collected @code{awk} program much simpler; all the
+Using @samp{@@include} even for the files named with @option{-f} makes building
+the initial collected @command{awk} program much simpler; all the
@samp{@@include} processing can be done once.
@item
@@ -16879,55 +20651,101 @@ this line for use with the main program complicates things considerably.
Using a @code{getline} loop in the @code{BEGIN} rule does it all in one
place. It is not necessary to call out to a separate loop for processing
nested @samp{@@include} statements.
-@end enumerate
+@end itemize
Also, this program illustrates that it is often worthwhile to combine
-@code{sh} and @code{awk} programming together. You can usually accomplish
-quite a lot, without having to resort to low-level programming in C or C++, and it
-is frequently easier to do certain kinds of string and argument manipulation
-using the shell than it is in @code{awk}.
+@command{sh} and @command{awk} programming together. You can usually
+accomplish quite a lot, without having to resort to low-level programming
+in C or C++, and it is frequently easier to do certain kinds of string
+and argument manipulation using the shell than it is in @command{awk}.
-Finally, @code{igawk} shows that it is not always necessary to add new
-features to a program; they can often be layered on top. With @code{igawk},
+Finally, @command{igawk} shows that it is not always necessary to add new
+features to a program; they can often be layered on top. With @command{igawk},
there is no real reason to build @samp{@@include} processing into
-@code{gawk} itself.
+@command{gawk} itself.
+@cindex search path
+@cindex directory search
+@cindex path, search
+@cindex search path, for source files
As an additional example of this, consider the idea of having two
-files in a directory in the search path.
+files in a directory in the search path:
@table @file
@item default.awk
-This file would contain a set of default library functions, such
+This file contains a set of default library functions, such
as @code{getopt} and @code{assert}.
@item site.awk
-This file would contain library functions that are specific to a site or
-installation, i.e.@: locally developed functions.
+This file contains library functions that are specific to a site or
+installation; i.e., locally developed functions.
Having a separate file allows @file{default.awk} to change with
-new @code{gawk} releases, without requiring the system administrator to
+new @command{gawk} releases, without requiring the system administrator to
update it each time by adding the local functions.
@end table
One user
@c Karl Berry, karl@ileaf.com, 10/95
-suggested that @code{gawk} be modified to automatically read these files
-upon startup. Instead, it would be very simple to modify @code{igawk}
-to do this. Since @code{igawk} can process nested @samp{@@include}
+suggested that @command{gawk} be modified to automatically read these files
+upon startup. Instead, it would be very simple to modify @command{igawk}
+to do this. Since @command{igawk} can process nested @samp{@@include}
directives, @file{default.awk} could simply contain @samp{@@include}
statements for the desired library functions.
@c Exercise: make this change
-@node Language History, Gawk Summary, Sample Programs, Top
-@chapter The Evolution of the @code{awk} Language
+@ignore
+@c Try this
+@iftex
+@page
+@headings off
+@majorheading III@ @ @ Appendixes
+Part III provides the appendixes, the Glossary, and two licenses that cover
+the @command{gawk} source code and this @value{DOCUMENT}, respectively.
+It contains the following appendixes:
+
+@itemize @bullet
+@item
+@ref{Language History, ,The Evolution of the @command{awk} Language}.
+
+@item
+@ref{Installation, ,Installing @command{gawk}}.
+
+@item
+@ref{Notes, ,Implementation Notes}.
+
+@item
+@ref{Basic Concepts, ,Basic Programming Concepts}.
+
+@item
+@ref{Glossary}.
+
+@item
+@ref{Copying, ,GNU General Public License}.
+
+@item
+@ref{GNU Free Documentation License}.
+@end itemize
+
+@page
+@evenheading @thispage@ @ @ @strong{@value{TITLE}} @| @|
+@oddheading @| @| @strong{@thischapter}@ @ @ @thispage
+@end iftex
+@end ignore
-This @value{DOCUMENT} describes the GNU implementation of @code{awk}, which follows
-the POSIX specification. Many @code{awk} users are only familiar
-with the original @code{awk} implementation in Version 7 Unix.
-(This implementation was the basis for @code{awk} in Berkeley Unix,
-through 4.3--Reno. The 4.4 release of Berkeley Unix uses @code{gawk} 2.15.2
-for its version of @code{awk}.) This chapter briefly describes the
-evolution of the @code{awk} language, with cross references to other parts
+@node Language History, Installation, Sample Programs, Top
+@appendix The Evolution of the @command{awk} Language
+
+This @value{DOCUMENT} describes the GNU implementation of @command{awk}, which follows
+the POSIX specification.
+Many long-time @command{awk} users learned @command{awk} programming
+with the original @command{awk} implementation in Version 7 Unix.
+(This implementation was the basis for @command{awk} in Berkeley Unix,
+through 4.3--Reno. Subsequent versions of Berkeley Unix, and systems
+derived from 4.4BSD--Lite, use various versions of @command{gawk}
+for their @command{awk}.)
+This @value{CHAPTER} briefly describes the
+evolution of the @command{awk} language, with cross references to other parts
of the @value{DOCUMENT} where you can find more information.
@menu
@@ -16937,27 +20755,28 @@ of the @value{DOCUMENT} where you can find more information.
and 4.
* POSIX:: New features from the POSIX standard.
* BTL:: New features from the Bell Laboratories
- version of @code{awk}.
-* POSIX/GNU:: The extensions in @code{gawk} not in POSIX
- @code{awk}.
+ version of @command{awk}.
+* POSIX/GNU:: The extensions in @command{gawk} not in POSIX
+ @command{awk}.
+* Contributors:: The major contributors to @command{gawk}.
@end menu
@node V7/SVR3.1, SVR4, Language History, Language History
-@section Major Changes between V7 and SVR3.1
+@appendixsec Major Changes Between V7 and SVR3.1
-The @code{awk} language evolved considerably between the release of
-Version 7 Unix (1978) and the new version first made generally available in
-System V Release 3.1 (1987). This section summarizes the changes, with
-cross-references to further details.
+The @command{awk} language evolved considerably between the release of
+Version 7 Unix (1978) and the new version that was first made generally available in
+System V Release 3.1 (1987). This @value{SECTION} summarizes the changes, with
+cross-references to further details:
@itemize @bullet
@item
The requirement for @samp{;} to separate rules on a line
-(@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}).
+(@pxref{Statements/Lines, ,@command{awk} Statements Versus Lines}).
@item
-User-defined functions, and the @code{return} statement
-(@pxref{User-defined, ,User-defined Functions}).
+User-defined functions and the @code{return} statement
+(@pxref{User-defined, ,User-Defined Functions}).
@item
The @code{delete} statement (@pxref{Delete, ,The @code{delete} Statement}).
@@ -16967,16 +20786,16 @@ The @code{do}-@code{while} statement
(@pxref{Do Statement, ,The @code{do}-@code{while} Statement}).
@item
-The built-in functions @code{atan2}, @code{cos}, @code{sin}, @code{rand} and
-@code{srand} (@pxref{Numeric Functions, ,Numeric Built-in Functions}).
+The built-in functions @code{atan2}, @code{cos}, @code{sin}, @code{rand}, and
+@code{srand} (@pxref{Numeric Functions}).
@item
The built-in functions @code{gsub}, @code{sub}, and @code{match}
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
@item
-The built-in functions @code{close}, and @code{system}
-(@pxref{I/O Functions, ,Built-in Functions for Input/Output}).
+The built-in functions @code{close} and @code{system}
+(@pxref{I/O Functions, ,Input/Output Functions}).
@item
The @code{ARGC}, @code{ARGV}, @code{FNR}, @code{RLENGTH}, @code{RSTART},
@@ -16992,14 +20811,14 @@ The exponentiation operator @samp{^}
form @samp{^=} (@pxref{Assignment Ops, ,Assignment Expressions}).
@item
-C-compatible operator precedence, which breaks some old @code{awk}
+C-compatible operator precedence, which breaks some old @command{awk}
programs (@pxref{Precedence, ,Operator Precedence (How Operators Nest)}).
@item
Regexps as the value of @code{FS}
-(@pxref{Field Separators, ,Specifying How Fields are Separated}), and as the
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}) and as the
third argument to the @code{split} function
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
@item
Dynamic regexps as operands of the @samp{~} and @samp{!~} operators
@@ -17008,8 +20827,8 @@ Dynamic regexps as operands of the @samp{~} and @samp{!~} operators
@item
The escape sequences @samp{\b}, @samp{\f}, and @samp{\r}
(@pxref{Escape Sequences}).
-(Some vendors have updated their old versions of @code{awk} to
-recognize @samp{\r}, @samp{\b}, and @samp{\f}, but this is not
+(Some vendors have updated their old versions of @command{awk} to
+recognize @samp{\b}, @samp{\f}, and @samp{\r}, but this is not
something you can rely on.)
@item
@@ -17021,44 +20840,48 @@ Multiple @code{BEGIN} and @code{END} rules
(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
@item
-Multi-dimensional arrays
-(@pxref{Multi-dimensional, ,Multi-dimensional Arrays}).
+Multidimensional arrays
+(@pxref{Multi-dimensional, ,Multidimensional Arrays}).
@end itemize
@node SVR4, POSIX, V7/SVR3.1, Language History
-@section Changes between SVR3.1 and SVR4
+@appendixsec Changes Between SVR3.1 and SVR4
-@cindex @code{awk} language, V.4 version
-The System V Release 4 version of Unix @code{awk} added these features
-(some of which originated in @code{gawk}):
+@cindex @command{awk} language, V.4 version
+The System V Release 4 (1989) version of Unix @command{awk} added these features
+(some of which originated in @command{gawk}):
@itemize @bullet
@item
The @code{ENVIRON} variable (@pxref{Built-in Variables}).
+@c gawk and MKS awk
@item
-Multiple @samp{-f} options on the command line
-(@pxref{Options, ,Command Line Options}).
+Multiple @option{-f} options on the command line
+(@pxref{Options, ,Command-Line Options}).
+@c MKS awk
@item
-The @samp{-v} option for assigning variables before program execution begins
-(@pxref{Options, ,Command Line Options}).
+The @option{-v} option for assigning variables before program execution begins
+(@pxref{Options, ,Command-Line Options}).
+@c GNU, Bell Laboratories & MKS together
@item
-The @samp{--} option for terminating command line options.
+The @option{--} option for terminating command-line options.
@item
The @samp{\a}, @samp{\v}, and @samp{\x} escape sequences
(@pxref{Escape Sequences}).
+@c GNU, for ANSI C compat
@item
A defined return value for the @code{srand} built-in function
-(@pxref{Numeric Functions, ,Numeric Built-in Functions}).
+(@pxref{Numeric Functions}).
@item
The @code{toupper} and @code{tolower} built-in string functions
for case translation
-(@pxref{String Functions, ,Built-in Functions for String Manipulation}).
+(@pxref{String Functions, ,String Manipulation Functions}).
@item
A cleaner specification for the @samp{%c} format-control letter in the
@@ -17071,27 +20894,32 @@ in the argument list of the @code{printf} function
(@pxref{Control Letters, ,Format-Control Letters}).
@item
-The use of regexp constants such as @code{/foo/} as expressions, where
+The use of regexp constants, such as @code{/foo/}, as expressions, where
they are equivalent to using the matching operator, as in @samp{$0 ~ /foo/}
(@pxref{Using Constant Regexps, ,Using Regular Expression Constants}).
+
+@item
+Processing of escape sequences inside command-line variable assignments
+(@pxref{Assignment Options, ,Assigning Variables on the Command Line}).
@end itemize
@node POSIX, BTL, SVR4, Language History
-@section Changes between SVR4 and POSIX @code{awk}
+@appendixsec Changes Between SVR4 and POSIX @command{awk}
-The POSIX Command Language and Utilities standard for @code{awk}
+The POSIX Command Language and Utilities standard for @command{awk} (1992)
introduced the following changes into the language:
@itemize @bullet
@item
-The use of @samp{-W} for implementation-specific options.
+The use of @option{-W} for implementation-specific options
+(@pxref{Options, ,Command-Line Options}).
@item
The use of @code{CONVFMT} for controlling the conversion of numbers
to strings (@pxref{Conversion, ,Conversion of Strings and Numbers}).
@item
-The concept of a numeric string, and tighter comparison rules to go
+The concept of a numeric string and tighter comparison rules to go
with it (@pxref{Typing and Comparison, ,Variable Typing and Comparison Expressions}).
@item
@@ -17111,7 +20939,12 @@ standard:
@item
Newlines do not act as whitespace to separate fields when @code{FS} is
-equal to a single space.
+equal to a single space
+(@pxref{Fields, ,Examining Fields}).
+
+@item
+Newlines are not allowed after @samp{?} or @samp{:}
+(@pxref{Conditional Exp, ,Conditional Expressions}).
@item
The synonym @code{func} for the keyword @code{function} is not
@@ -17120,1523 +20953,588 @@ recognized (@pxref{Definition Syntax, ,Function Definition Syntax}).
@item
The operators @samp{**} and @samp{**=} cannot be used in
place of @samp{^} and @samp{^=} (@pxref{Arithmetic Ops, ,Arithmetic Operators},
-and also @pxref{Assignment Ops, ,Assignment Expressions}).
+and @ref{Assignment Ops, ,Assignment Expressions}).
@item
Specifying @samp{-Ft} on the command line does not set the value
of @code{FS} to be a single tab character
-(@pxref{Field Separators, ,Specifying How Fields are Separated}).
+(@pxref{Field Separators, ,Specifying How Fields Are Separated}).
@item
The @code{fflush} built-in function is not supported
-(@pxref{I/O Functions, , Built-in Functions for Input/Output}).
+(@pxref{I/O Functions, ,Input/Output Functions}).
@end itemize
@node BTL, POSIX/GNU, POSIX, Language History
-@section Extensions in the Bell Laboratories @code{awk}
+@appendixsec Extensions in the Bell Laboratories @command{awk}
+@cindex extensions, Bell Laboratories @command{awk}
@cindex Kernighan, Brian
-Brian Kernighan, one of the original designers of Unix @code{awk},
-has made his version available via anonymous @code{ftp}
-(@pxref{Other Versions, ,Other Freely Available @code{awk} Implementations}).
-This section describes extensions in his version of @code{awk} that are
-not in POSIX @code{awk}.
+Brian Kernighan, one of the original designers of Unix @command{awk},
+has made his version available via his home page
+(@pxref{Other Versions, ,Other Freely Available @command{awk} Implementations}).
+This @value{SECTION} describes extensions in his version of @command{awk} that are
+not in POSIX @command{awk}.
@itemize @bullet
@item
-The @samp{-mf @var{NNN}} and @samp{-mr @var{NNN}} command line options
-to set the maximum number of fields, and the maximum
+The @samp{-mf @var{N}} and @samp{-mr @var{N}} command-line options
+to set the maximum number of fields and the maximum
record size, respectively
-(@pxref{Options, ,Command Line Options}).
+(@pxref{Options, ,Command-Line Options}).
+As a side note, his @command{awk} no longer needs these options;
+it continues to accept them to avoid breaking old programs.
@item
The @code{fflush} built-in function for flushing buffered output
-(@pxref{I/O Functions, ,Built-in Functions for Input/Output}).
+(@pxref{I/O Functions, ,Input/Output Functions}).
+
+@item
+The @samp{**} and @samp{**=} operators
+(@pxref{Arithmetic Ops, ,Arithmetic Operators}
+and
+@ref{Assignment Ops, ,Assignment Expressions}).
+
+@item
+The use of @code{func} as an abbreviation for @code{function}
+(@pxref{Definition Syntax, ,Function Definition Syntax}).
@ignore
@item
-The @code{SYMTAB} array, that allows access to the internal symbol
-table of @code{awk}. This feature is not documented, largely because
+The @code{SYMTAB} array, that allows access to @command{awk}'s internal symbol
+table. This feature is not documented, largely because
it is somewhat shakily implemented. For instance, you cannot access arrays
or array elements through it.
@end ignore
@end itemize
-@node POSIX/GNU, , BTL, Language History
-@section Extensions in @code{gawk} Not in POSIX @code{awk}
+The Bell Laboratories @command{awk} also incorporates the following extensions,
+originally developed for @command{gawk}:
+
+@itemize @bullet
+@item
+The @samp{\x} escape sequence
+(@pxref{Escape Sequences}).
+
+@item
+The @file{/dev/stdin}, @file{/dev/stdout}, and @file{/dev/stderr}
+special files
+(@pxref{Special Files, ,Special @value{FFN}s in @command{gawk}}).
+
+@item
+The ability for @code{FS} and for the third
+argument to @code{split} to be null strings
+(@pxref{Single Character Fields, , Making Each Character a Separate Field}).
+
+@item
+The @code{nextfile} statement
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
+
+@item
+The ability to delete all of an array at once with @samp{delete @var{array}}
+(@pxref{Delete, ,The @code{delete} Statement}).
+@end itemize
+
+@node POSIX/GNU, Contributors, BTL, Language History
+@appendixsec Extensions in @command{gawk} Not in POSIX @command{awk}
+
+@ignore
+I've tried to follow this general order, esp. for the 3.0 and 3.1 sections:
+ variables
+ special files
+ language changes (e.g., hex constants)
+ differences in standard awk functions
+ new gawk functions
+ new keywords
+ new command-line options
+ new ports
+Within each category, be alphabetical.
+@end ignore
@cindex compatibility mode
-The GNU implementation, @code{gawk}, adds a number of features.
-This sections lists them in the order they were added to @code{gawk}.
-They can all be disabled with either the @samp{--traditional} or
-@samp{--posix} options
-(@pxref{Options, ,Command Line Options}).
+The GNU implementation, @command{gawk}, adds a large number of features.
+This @value{SECTION} lists them in the order they were added to @command{gawk}.
+They can all be disabled with either the @option{--traditional} or
+@option{--posix} options
+(@pxref{Options, ,Command-Line Options}).
-Version 2.10 of @code{gawk} introduced these features:
+Version 2.10 of @command{gawk} introduced the following features:
@itemize @bullet
@item
-The @code{AWKPATH} environment variable for specifying a path search for
-the @samp{-f} command line option
-(@pxref{Options, ,Command Line Options}).
+The @env{AWKPATH} environment variable for specifying a path search for
+the @option{-f} command-line option
+(@pxref{Options, ,Command-Line Options}).
@item
The @code{IGNORECASE} variable and its effects
-(@pxref{Case-sensitivity, ,Case-sensitivity in Matching}).
+(@pxref{Case-sensitivity, ,Case Sensitivity in Matching}).
@item
-The @file{/dev/stdin}, @file{/dev/stdout}, @file{/dev/stderr}, and
-@file{/dev/fd/@var{n}} file name interpretation
-(@pxref{Special Files, ,Special File Names in @code{gawk}}).
+The @file{/dev/stdin}, @file{/dev/stdout}, @file{/dev/stderr} and
+@file{/dev/fd/@var{N}} special @value{FN}s
+(@pxref{Special Files, ,Special @value{FFN}s in @command{gawk}}).
@end itemize
-Version 2.13 of @code{gawk} introduced these features:
+Version 2.13 of @command{gawk} introduced the following features:
@itemize @bullet
@item
The @code{FIELDWIDTHS} variable and its effects
-(@pxref{Constant Size, ,Reading Fixed-width Data}).
+(@pxref{Constant Size, ,Reading Fixed-Width Data}).
@item
The @code{systime} and @code{strftime} built-in functions for obtaining
-and printing time stamps
-(@pxref{Time Functions, ,Functions for Dealing with Time Stamps}).
+and printing timestamps
+(@pxref{Time Functions, ,Using @command{gawk}'s Timestamp Functions}).
@item
-The @samp{-W lint} option to provide source code and run time error
-and portability checking
-(@pxref{Options, ,Command Line Options}).
+The @option{-W lint} option to provide error and portability checking
+for both the source code and at runtime
+(@pxref{Options, ,Command-Line Options}).
@item
-The @samp{-W compat} option to turn off these extensions
-(@pxref{Options, ,Command Line Options}).
+The @option{-W compat} option to turn off the GNU extensions
+(@pxref{Options, ,Command-Line Options}).
@item
-The @samp{-W posix} option for full POSIX compliance
-(@pxref{Options, ,Command Line Options}).
+The @option{-W posix} option for full POSIX compliance
+(@pxref{Options, ,Command-Line Options}).
@end itemize
-Version 2.14 of @code{gawk} introduced these features:
+Version 2.14 of @command{gawk} introduced the following feature:
@itemize @bullet
@item
-The @code{next file} statement for skipping to the next data file
-(@pxref{Nextfile Statement, ,The @code{nextfile} Statement}).
+The @code{next file} statement for skipping to the next @value{DF}
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
@end itemize
-Version 2.15 of @code{gawk} introduced these features:
+Version 2.15 of @command{gawk} introduced the following features:
@itemize @bullet
@item
-The @code{ARGIND} variable, that tracks the movement of @code{FILENAME}
+The @code{ARGIND} variable, which tracks the movement of @code{FILENAME}
through @code{ARGV} (@pxref{Built-in Variables}).
@item
-The @code{ERRNO} variable, that contains the system error message when
-@code{getline} returns @minus{}1, or when @code{close} fails
+The @code{ERRNO} variable, which contains the system error message when
+@code{getline} returns @minus{}1 or when @code{close} fails
(@pxref{Built-in Variables}).
@item
-The ability to use GNU-style long named options that start with @samp{--}
-(@pxref{Options, ,Command Line Options}).
+The @file{/dev/pid}, @file{/dev/ppid}, @file{/dev/pgrpid}, and
+@file{/dev/user} @value{FN} interpretation
+(@pxref{Special Files, ,Special @value{FFN}s in @command{gawk}}).
@item
-The @samp{--source} option for mixing command line and library
-file source code
-(@pxref{Options, ,Command Line Options}).
+The ability to delete all of an array at once with @samp{delete @var{array}}
+(@pxref{Delete, ,The @code{delete} Statement}).
@item
-The @file{/dev/pid}, @file{/dev/ppid}, @file{/dev/pgrpid}, and
-@file{/dev/user} file name interpretation
-(@pxref{Special Files, ,Special File Names in @code{gawk}}).
+The ability to use GNU-style long-named options that start with @option{--}
+(@pxref{Options, ,Command-Line Options}).
+
+@item
+The @option{--source} option for mixing command-line and library
+file source code
+(@pxref{Options, ,Command-Line Options}).
@end itemize
-Version 3.0 of @code{gawk} introduced these features:
+Version 3.0 of @command{gawk} introduced the following features:
@itemize @bullet
@item
-The @code{next file} statement became @code{nextfile}
-(@pxref{Nextfile Statement, ,The @code{nextfile} Statement}).
+@code{IGNORECASE} changed, now applying to string comparison as well
+as regexp operations
+(@pxref{Case-sensitivity, ,Case Sensitivity in Matching}).
@item
-The @samp{--lint-old} option to
-warn about constructs that are not available in
-the original Version 7 Unix version of @code{awk}
-(@pxref{V7/SVR3.1, , Major Changes between V7 and SVR3.1}).
+The @code{RT} variable that contains the input text that
+matched @code{RS}
+(@pxref{Records, ,How Input Is Split into Records}).
@item
-The @samp{--traditional} option was added as a better name for
-@samp{--compat} (@pxref{Options, ,Command Line Options}).
+Full support for both POSIX and GNU regexps
+(@pxref{Regexp, , Regular Expressions}).
@item
-The ability for @code{FS} to be a null string, and for the third
-argument to @code{split} to be the null string
-(@pxref{Single Character Fields, , Making Each Character a Separate Field}).
+The @code{gensub} function for more powerful text manipulation
+(@pxref{String Functions, ,String Manipulation Functions}).
@item
-The ability for @code{RS} to be a regexp
-(@pxref{Records, , How Input is Split into Records}).
+The @code{strftime} function acquired a default time format,
+allowing it to be called with no arguments
+(@pxref{Time Functions, ,Using @command{gawk}'s Timestamp Functions}).
@item
-The @code{RT} variable
-(@pxref{Records, , How Input is Split into Records}).
+The ability for @code{FS} and for the third
+argument to @code{split} to be null strings
+(@pxref{Single Character Fields, , Making Each Character a Separate Field}).
@item
-The @code{gensub} function for more powerful text manipulation
-(@pxref{String Functions, , Built-in Functions for String Manipulation}).
+The ability for @code{RS} to be a regexp
+(@pxref{Records, ,How Input Is Split into Records}).
@item
-The @code{strftime} function acquired a default time format,
-allowing it to be called with no arguments
-(@pxref{Time Functions, , Functions for Dealing with Time Stamps}).
+The @code{next file} statement became @code{nextfile}
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
@item
-Full support for both POSIX and GNU regexps
-(@pxref{Regexp, , Regular Expressions}).
+The @option{--lint-old} option to
+warn about constructs that are not available in
+the original Version 7 Unix version of @command{awk}
+(@pxref{V7/SVR3.1, ,Major Changes Between V7 and SVR3.1}).
@item
-The @samp{--re-interval} option to provide interval expressions in regexps
-(@pxref{Regexp Operators, , Regular Expression Operators}).
+The @option{-m} option and the @code{fflush} function from the
+Bell Laboratories research version of @command{awk}
+(@pxref{Options, ,Command-Line Options}; also
+@pxref{I/O Functions, ,Input/Output Functions}).
@item
-@code{IGNORECASE} changed, now applying to string comparison as well
-as regexp operations
-(@pxref{Case-sensitivity, ,Case-sensitivity in Matching}).
+The @option{--re-interval} option to provide interval expressions in regexps
+(@pxref{Regexp Operators, , Regular Expression Operators}).
@item
-The @samp{-m} option and the @code{fflush} function from the
-Bell Labs research version of @code{awk}
-(@pxref{Options, ,Command Line Options}; also
-@pxref{I/O Functions, ,Built-in Functions for Input/Output}).
+The @option{--traditional} option was added as a better name for
+@option{--compat} (@pxref{Options, ,Command-Line Options}).
@item
The use of GNU Autoconf to control the configuration process
-(@pxref{Quick Installation, , Compiling @code{gawk} for Unix}).
+(@pxref{Quick Installation, , Compiling @command{gawk} for Unix}).
@item
Amiga support
-(@pxref{Amiga Installation, ,Installing @code{gawk} on an Amiga}).
-
-@c XXX ADD MORE STUFF HERE
+(@pxref{Amiga Installation, ,Installing @command{gawk} on an Amiga}).
@end itemize
-@node Gawk Summary, Installation, Language History, Top
-@appendix @code{gawk} Summary
-
-This appendix provides a brief summary of the @code{gawk} command line and the
-@code{awk} language. It is designed to serve as ``quick reference.'' It is
-therefore terse, but complete.
-
-@menu
-* Command Line Summary:: Recapitulation of the command line.
-* Language Summary:: A terse review of the language.
-* Variables/Fields:: Variables, fields, and arrays.
-* Rules Summary:: Patterns and Actions, and their component
- parts.
-* Actions Summary:: Quick overview of actions.
-* Functions Summary:: Defining and calling functions.
-* Historical Features:: Some undocumented but supported ``features''.
-@end menu
-
-@node Command Line Summary, Language Summary, Gawk Summary, Gawk Summary
-@appendixsec Command Line Options Summary
-
-The command line consists of options to @code{gawk} itself, the
-@code{awk} program text (if not supplied via the @samp{-f} option), and
-values to be made available in the @code{ARGC} and @code{ARGV}
-predefined @code{awk} variables:
-
-@example
-gawk @r{[@var{POSIX or GNU style options}]} -f @var{source-file} @r{[@code{--}]} @var{file} @dots{}
-gawk @r{[@var{POSIX or GNU style options}]} @r{[@code{--}]} '@var{program}' @var{file} @dots{}
-@end example
-
-The options that @code{gawk} accepts are:
-
-@table @code
-@item -F @var{fs}
-@itemx --field-separator @var{fs}
-Use @var{fs} for the input field separator (the value of the @code{FS}
-predefined variable).
-
-@item -f @var{program-file}
-@itemx --file @var{program-file}
-Read the @code{awk} program source from the file @var{program-file}, instead
-of from the first command line argument.
-
-@item -mf @var{NNN}
-@itemx -mr @var{NNN}
-The @samp{f} flag sets
-the maximum number of fields, and the @samp{r} flag sets the maximum
-record size. These options are ignored by @code{gawk}, since @code{gawk}
-has no predefined limits; they are only for compatibility with the
-Bell Labs research version of Unix @code{awk}.
-
-@item -v @var{var}=@var{val}
-@itemx --assign @var{var}=@var{val}
-Assign the variable @var{var} the value @var{val} before program execution
-begins.
-
-@item -W traditional
-@itemx -W compat
-@itemx --traditional
-@itemx --compat
-Use compatibility mode, in which @code{gawk} extensions are turned
-off.
-
-@item -W copyleft
-@itemx -W copyright
-@itemx --copyleft
-@itemx --copyright
-Print the short version of the General Public License on the standard
-output, and exit. This option may disappear in a future version of @code{gawk}.
-
-@item -W help
-@itemx -W usage
-@itemx --help
-@itemx --usage
-Print a relatively short summary of the available options on the standard
-output, and exit.
-
-@item -W lint
-@itemx --lint
-Give warnings about dubious or non-portable @code{awk} constructs.
-
-@item -W lint-old
-@itemx --lint-old
-Warn about constructs that are not available in
-the original Version 7 Unix version of @code{awk}.
+Version 3.1 of @command{gawk} introduced the following features:
-@item -W posix
-@itemx --posix
-Use POSIX compatibility mode, in which @code{gawk} extensions
-are turned off and additional restrictions apply.
-
-@item -W re-interval
-@itemx --re-interval
-Allow interval expressions
-(@pxref{Regexp Operators, , Regular Expression Operators}),
-in regexps.
-
-@item -W source=@var{program-text}
-@itemx --source @var{program-text}
-Use @var{program-text} as @code{awk} program source code. This option allows
-mixing command line source code with source code from files, and is
-particularly useful for mixing command line programs with library functions.
-
-@item -W version
-@itemx --version
-Print version information for this particular copy of @code{gawk} on the error
-output.
-
-@item --
-Signal the end of options. This is useful to allow further arguments to the
-@code{awk} program itself to start with a @samp{-}. This is mainly for
-consistency with POSIX argument parsing conventions.
-@end table
-
-Any other options are flagged as invalid, but are otherwise ignored.
-@xref{Options, ,Command Line Options}, for more details.
-
-@node Language Summary, Variables/Fields, Command Line Summary, Gawk Summary
-@appendixsec Language Summary
-
-An @code{awk} program consists of a sequence of zero or more pattern-action
-statements and optional function definitions. One or the other of the
-pattern and action may be omitted.
-
-@example
-@var{pattern} @{ @var{action statements} @}
-@var{pattern}
- @{ @var{action statements} @}
-
-function @var{name}(@var{parameter list}) @{ @var{action statements} @}
-@end example
-
-@code{gawk} first reads the program source from the
-@var{program-file}(s), if specified, or from the first non-option
-argument on the command line. The @samp{-f} option may be used multiple
-times on the command line. @code{gawk} reads the program text from all
-the @var{program-file} files, effectively concatenating them in the
-order they are specified. This is useful for building libraries of
-@code{awk} functions, without having to include them in each new
-@code{awk} program that uses them. To use a library function in a file
-from a program typed in on the command line, specify
-@samp{--source '@var{program}'}, and type your program in between the single
-quotes.
-@xref{Options, ,Command Line Options}.
-
-The environment variable @code{AWKPATH} specifies a search path to use
-when finding source files named with the @samp{-f} option. The default
-path, which is
-@samp{.:/usr/local/share/awk}@footnote{The path may use a directory
-other than @file{/usr/local/share/awk}, depending upon how @code{gawk}
-was built and installed.} is used if @code{AWKPATH} is not set.
-If a file name given to the @samp{-f} option contains a @samp{/} character,
-no path search is performed.
-@xref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}.
-
-@code{gawk} compiles the program into an internal form, and then proceeds to
-read each file named in the @code{ARGV} array.
-The initial values of @code{ARGV} come from the command line arguments.
-If there are no files named
-on the command line, @code{gawk} reads the standard input.
-
-If a ``file'' named on the command line has the form
-@samp{@var{var}=@var{val}}, it is treated as a variable assignment: the
-variable @var{var} is assigned the value @var{val}.
-If any of the files have a value that is the null string, that
-element in the list is skipped.
-
-For each record in the input, @code{gawk} tests to see if it matches any
-@var{pattern} in the @code{awk} program. For each pattern that the record
-matches, the associated @var{action} is executed.
-
-@node Variables/Fields, Rules Summary, Language Summary, Gawk Summary
-@appendixsec Variables and Fields
-
-@code{awk} variables are not declared; they come into existence when they are
-first used. Their values are either floating-point numbers or strings.
-@code{awk} also has one-dimensional arrays; multiple-dimensional arrays
-may be simulated. There are several predefined variables that
-@code{awk} sets as a program runs; these are summarized below.
-
-@menu
-* Fields Summary:: Input field splitting.
-* Built-in Summary:: @code{awk}'s built-in variables.
-* Arrays Summary:: Using arrays.
-* Data Type Summary:: Values in @code{awk} are numbers or strings.
-@end menu
-
-@node Fields Summary, Built-in Summary, Variables/Fields, Variables/Fields
-@appendixsubsec Fields
-
-As each input line is read, @code{gawk} splits the line into
-@var{fields}, using the value of the @code{FS} variable as the field
-separator. If @code{FS} is a single character, fields are separated by
-that character. Otherwise, @code{FS} is expected to be a full regular
-expression. In the special case that @code{FS} is a single space,
-fields are separated by runs of spaces, tabs and/or newlines.@footnote{In
-POSIX @code{awk}, newline does not separate fields.}
-If @code{FS} is the null string (@code{""}), then each individual
-character in the record becomes a separate field.
-Note that the value
-of @code{IGNORECASE} (@pxref{Case-sensitivity, ,Case-sensitivity in Matching})
-also affects how fields are split when @code{FS} is a regular expression.
-
-Each field in the input line may be referenced by its position, @code{$1},
-@code{$2}, and so on. @code{$0} is the whole line. The value of a field may
-be assigned to as well. Field numbers need not be constants:
-
-@example
-n = 5
-print $n
-@end example
-
-@noindent
-prints the fifth field in the input line. The variable @code{NF} is set to
-the total number of fields in the input line.
-
-References to non-existent fields (i.e.@: fields after @code{$NF}) return
-the null string. However, assigning to a non-existent field (e.g.,
-@code{$(NF+2) = 5}) increases the value of @code{NF}, creates any
-intervening fields with the null string as their value, and causes the
-value of @code{$0} to be recomputed, with the fields being separated by
-the value of @code{OFS}.
-Decrementing @code{NF} causes the values of fields past the new value to
-be lost, and the value of @code{$0} to be recomputed, with the fields being
-separated by the value of @code{OFS}.
-@xref{Reading Files, ,Reading Input Files}.
-
-@node Built-in Summary, Arrays Summary, Fields Summary, Variables/Fields
-@appendixsubsec Built-in Variables
-
-@code{gawk}'s built-in variables are:
-
-@table @code
-@item ARGC
-The number of elements in @code{ARGV}. See below for what is actually
-included in @code{ARGV}.
-
-@item ARGIND
-The index in @code{ARGV} of the current file being processed.
-When @code{gawk} is processing the input data files,
-it is always true that @samp{FILENAME == ARGV[ARGIND]}.
-
-@item ARGV
-The array of command line arguments. The array is indexed from zero to
-@code{ARGC} @minus{} 1. Dynamically changing @code{ARGC} and
-the contents of @code{ARGV}
-can control the files used for data. A null-valued element in
-@code{ARGV} is ignored. @code{ARGV} does not include the options to
-@code{awk} or the text of the @code{awk} program itself.
-
-@item CONVFMT
-The conversion format to use when converting numbers to strings.
-
-@item FIELDWIDTHS
-A space separated list of numbers describing the fixed-width input data.
-
-@item ENVIRON
-An array of environment variable values. The array
-is indexed by variable name, each element being the value of that
-variable. Thus, the environment variable @code{HOME} is
-@code{ENVIRON["HOME"]}. One possible value might be @file{/home/arnold}.
-
-Changing this array does not affect the environment seen by programs
-which @code{gawk} spawns via redirection or the @code{system} function.
-(This may change in a future version of @code{gawk}.)
-
-Some operating systems do not have environment variables.
-The @code{ENVIRON} array is empty when running on these systems.
-
-@item ERRNO
-The system error message when an error occurs using @code{getline}
-or @code{close}.
-
-@item FILENAME
-The name of the current input file. If no files are specified on the command
-line, the value of @code{FILENAME} is the null string.
-
-@item FNR
-The input record number in the current input file.
-
-@item FS
-The input field separator, a space by default.
-
-@item IGNORECASE
-The case-sensitivity flag for string comparisons and regular expression
-operations. If @code{IGNORECASE} has a non-zero value, then pattern
-matching in rules, record separating with @code{RS}, field splitting
-with @code{FS}, regular expression matching with @samp{~} and
-@samp{!~}, and the @code{gensub}, @code{gsub}, @code{index},
-@code{match}, @code{split} and @code{sub} built-in functions all
-ignore case when doing regular expression operations, and all string
-comparisons are done ignoring case.
-The value of @code{IGNORECASE} does @emph{not} affect array subscripting.
-
-@item NF
-The number of fields in the current input record.
-
-@item NR
-The total number of input records seen so far.
-
-@item OFMT
-The output format for numbers for the @code{print} statement,
-@code{"%.6g"} by default.
-
-@item OFS
-The output field separator, a space by default.
-
-@item ORS
-The output record separator, by default a newline.
-
-@item RS
-The input record separator, by default a newline.
-If @code{RS} is set to the null string, then records are separated by
-blank lines. When @code{RS} is set to the null string, then the newline
-character always acts as a field separator, in addition to whatever value
-@code{FS} may have. If @code{RS} is set to a multi-character
-string, it denotes a regexp; input text matching the regexp
-separates records.
-
-@item RT
-The input text that matched the text denoted by @code{RS},
-the record separator.
-
-@item RSTART
-The index of the first character last matched by @code{match}; zero if no match.
-
-@item RLENGTH
-The length of the string last matched by @code{match}; @minus{}1 if no match.
-
-@item SUBSEP
-The string used to separate multiple subscripts in array elements, by
-default @code{"\034"}.
-@end table
-
-@xref{Built-in Variables}, for more information.
-
-@node Arrays Summary, Data Type Summary, Built-in Summary, Variables/Fields
-@appendixsubsec Arrays
-
-Arrays are subscripted with an expression between square brackets
-(@samp{[} and @samp{]}). Array subscripts are @emph{always} strings;
-numbers are converted to strings as necessary, following the standard
-conversion rules
-(@pxref{Conversion, ,Conversion of Strings and Numbers}).
-
-If you use multiple expressions separated by commas inside the square
-brackets, then the array subscript is a string consisting of the
-concatenation of the individual subscript values, converted to strings,
-separated by the subscript separator (the value of @code{SUBSEP}).
-
-The special operator @code{in} may be used in a conditional context
-to see if an array has an index consisting of a particular value.
-
-@example
-if (val in array)
- print array[val]
-@end example
-
-If the array has multiple subscripts, use @samp{(i, j, @dots{}) in @var{array}}
-to test for existence of an element.
-
-The @code{in} construct may also be used in a @code{for} loop to iterate
-over all the elements of an array.
-@xref{Scanning an Array, ,Scanning All Elements of an Array}.
-
-You can remove an element from an array using the @code{delete} statement.
-
-You can clear an entire array using @samp{delete @var{array}}.
-
-@xref{Arrays, ,Arrays in @code{awk}}.
-
-@node Data Type Summary, , Arrays Summary, Variables/Fields
-@appendixsubsec Data Types
-
-The value of an @code{awk} expression is always either a number
-or a string.
-
-Some contexts (such as arithmetic operators) require numeric
-values. They convert strings to numbers by interpreting the text
-of the string as a number. If the string does not look like a
-number, it converts to zero.
-
-Other contexts (such as concatenation) require string values.
-They convert numbers to strings by effectively printing them
-with @code{sprintf}.
-@xref{Conversion, ,Conversion of Strings and Numbers}, for the details.
-
-To force conversion of a string value to a number, simply add zero
-to it. If the value you start with is already a number, this
-does not change it.
-
-To force conversion of a numeric value to a string, concatenate it with
-the null string.
-
-Comparisons are done numerically if both operands are numeric, or if
-one is numeric and the other is a numeric string. Otherwise one or
-both operands are converted to strings and a string comparison is
-performed. Fields, @code{getline} input, @code{FILENAME}, @code{ARGV}
-elements, @code{ENVIRON} elements and the elements of an array created
-by @code{split} are the only items that can be numeric strings. String
-constants, such as @code{"3.1415927"} are not numeric strings, they are
-string constants. The full rules for comparisons are described in
-@ref{Typing and Comparison, ,Variable Typing and Comparison Expressions}.
-
-Uninitialized variables have the string value @code{""} (the null, or
-empty, string). In contexts where a number is required, this is
-equivalent to zero.
-
-@xref{Variables}, for more information on variable naming and initialization;
-@pxref{Conversion, ,Conversion of Strings and Numbers}, for more information
-on how variable values are interpreted.
-
-@node Rules Summary, Actions Summary, Variables/Fields, Gawk Summary
-@appendixsec Patterns
-
-@menu
-* Pattern Summary:: Quick overview of patterns.
-* Regexp Summary:: Quick overview of regular expressions.
-@end menu
-
-An @code{awk} program is mostly composed of rules, each consisting of a
-pattern followed by an action. The action is enclosed in @samp{@{} and
-@samp{@}}. Either the pattern may be missing, or the action may be
-missing, but not both. If the pattern is missing, the
-action is executed for every input record. A missing action is
-equivalent to @samp{@w{@{ print @}}}, which prints the entire line.
-
-@c These paragraphs repeated for both patterns and actions. I don't
-@c like this, but I also don't see any way around it. Update both copies
-@c if they need fixing.
-Comments begin with the @samp{#} character, and continue until the end of the
-line. Blank lines may be used to separate statements. Statements normally
-end with a newline; however, this is not the case for lines ending in a
-@samp{,}, @samp{@{}, @samp{?}, @samp{:}, @samp{&&}, or @samp{||}. Lines
-ending in @code{do} or @code{else} also have their statements automatically
-continued on the following line. In other cases, a line can be continued by
-ending it with a @samp{\}, in which case the newline is ignored.
-
-Multiple statements may be put on one line by separating each one with
-a @samp{;}.
-This applies to both the statements within the action part of a rule (the
-usual case), and to the rule statements.
-
-@xref{Comments, ,Comments in @code{awk} Programs}, for information on
-@code{awk}'s commenting convention;
-@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}, for a
-description of the line continuation mechanism in @code{awk}.
-
-@node Pattern Summary, Regexp Summary, Rules Summary, Rules Summary
-@appendixsubsec Pattern Summary
-
-@code{awk} patterns may be one of the following:
-
-@example
-/@var{regular expression}/
-@var{relational expression}
-@var{pattern} && @var{pattern}
-@var{pattern} || @var{pattern}
-@var{pattern} ? @var{pattern} : @var{pattern}
-(@var{pattern})
-! @var{pattern}
-@var{pattern1}, @var{pattern2}
-BEGIN
-END
-@end example
-
-@code{BEGIN} and @code{END} are two special kinds of patterns that are not
-tested against the input. The action parts of all @code{BEGIN} rules are
-concatenated as if all the statements had been written in a single @code{BEGIN}
-rule. They are executed before any of the input is read. Similarly, all the
-@code{END} rules are concatenated, and executed when all the input is exhausted (or
-when an @code{exit} statement is executed). @code{BEGIN} and @code{END}
-patterns cannot be combined with other patterns in pattern expressions.
-@code{BEGIN} and @code{END} rules cannot have missing action parts.
-
-For @code{/@var{regular-expression}/} patterns, the associated statement is
-executed for each input record that matches the regular expression. Regular
-expressions are summarized below.
-
-A @var{relational expression} may use any of the operators defined below in
-the section on actions. These generally test whether certain fields match
-certain regular expressions.
-
-The @samp{&&}, @samp{||}, and @samp{!} operators are logical ``and,''
-logical ``or,'' and logical ``not,'' respectively, as in C. They do
-short-circuit evaluation, also as in C, and are used for combining more
-primitive pattern expressions. As in most languages, parentheses may be
-used to change the order of evaluation.
-
-The @samp{?:} operator is like the same operator in C. If the first
-pattern matches, then the second pattern is matched against the input
-record; otherwise, the third is matched. Only one of the second and
-third patterns is matched.
-
-The @samp{@var{pattern1}, @var{pattern2}} form of a pattern is called a
-range pattern. It matches all input lines starting with a line that
-matches @var{pattern1}, and continuing until a line that matches
-@var{pattern2}, inclusive. A range pattern cannot be used as an operand
-of any of the pattern operators.
-
-@xref{Pattern Overview, ,Pattern Elements}.
-
-@node Regexp Summary, , Pattern Summary, Rules Summary
-@appendixsubsec Regular Expressions
-
-Regular expressions are based on POSIX EREs (extended regular expressions).
-The escape sequences allowed in string constants are also valid in
-regular expressions (@pxref{Escape Sequences}).
-Regexps are composed of characters as follows:
-
-@table @code
-@item @var{c}
-matches the character @var{c} (assuming @var{c} is none of the characters
-listed below).
-
-@item \@var{c}
-matches the literal character @var{c}.
-
-@item .
-matches any character, @emph{including} newline.
-In strict POSIX mode, @samp{.} does not match the @sc{nul}
-character, which is a character with all bits equal to zero.
-
-@item ^
-matches the beginning of a string.
-
-@item $
-matches the end of a string.
-
-@item [@var{abc}@dots{}]
-matches any of the characters @var{abc}@dots{} (character list).
-
-@item [[:@var{class}:]]
-matches any character in the character class @var{class}. Allowable classes
-are @code{alnum}, @code{alpha}, @code{blank}, @code{cntrl},
-@code{digit}, @code{graph}, @code{lower}, @code{print}, @code{punct},
-@code{space}, @code{upper}, and @code{xdigit}.
-
-@item [[.@var{symbol}.]]
-matches the multi-character collating symbol @var{symbol}.
-@code{gawk} does not currently support collating symbols.
-
-@item [[=@var{classname}=]]
-matches any of the equivalent characters in the current locale named by the
-equivalence class @var{classname}.
-@code{gawk} does not currently support equivalence classes.
-
-@item [^@var{abc}@dots{}]
-matches any character except @var{abc}@dots{} (negated
-character list).
-
-@item @var{r1}|@var{r2}
-matches either @var{r1} or @var{r2} (alternation).
-
-@item @var{r1r2}
-matches @var{r1}, and then @var{r2} (concatenation).
-
-@item @var{r}+
-matches one or more @var{r}'s.
-
-@item @var{r}*
-matches zero or more @var{r}'s.
-
-@item @var{r}?
-matches zero or one @var{r}'s.
-
-@item (@var{r})
-matches @var{r} (grouping).
-
-@item @var{r}@{@var{n}@}
-@itemx @var{r}@{@var{n},@}
-@itemx @var{r}@{@var{n},@var{m}@}
-matches at least @var{n}, @var{n} to any number, or @var{n} to @var{m}
-occurrences of @var{r} (interval expressions).
-
-@item \y
-matches the empty string at either the beginning or the
-end of a word.
-
-@item \B
-matches the empty string within a word.
-
-@item \<
-matches the empty string at the beginning of a word.
-
-@item \>
-matches the empty string at the end of a word.
-
-@item \w
-matches any word-constituent character (alphanumeric characters and
-the underscore).
-
-@item \W
-matches any character that is not word-constituent.
-
-@item \`
-matches the empty string at the beginning of a buffer (same as a string
-in @code{gawk}).
-
-@item \'
-matches the empty string at the end of a buffer.
-@end table
-
-The various command line options
-control how @code{gawk} interprets characters in regexps.
-
-@c NOTE!!! Keep this in sync with the same table in the regexp chapter!
-@table @asis
-@item No options
-In the default case, @code{gawk} provide all the facilities of
-POSIX regexps and the GNU regexp operators described above.
-However, interval expressions are not supported.
-
-@item @code{--posix}
-Only POSIX regexps are supported, the GNU operators are not special
-(e.g., @samp{\w} matches a literal @samp{w}). Interval expressions
-are allowed.
-
-@item @code{--traditional}
-Traditional Unix @code{awk} regexps are matched. The GNU operators
-are not special, interval expressions are not available, and neither
-are the POSIX character classes (@code{[[:alnum:]]} and so on).
-Characters described by octal and hexadecimal escape sequences are
-treated literally, even if they represent regexp metacharacters.
-
-@item @code{--re-interval}
-Allow interval expressions in regexps, even if @samp{--traditional}
-has been provided.
-@end table
-
-@xref{Regexp, ,Regular Expressions}.
-
-@node Actions Summary, Functions Summary, Rules Summary, Gawk Summary
-@appendixsec Actions
-
-Action statements are enclosed in braces, @samp{@{} and @samp{@}}.
-A missing action statement is equivalent to @samp{@w{@{ print @}}}.
-
-Action statements consist of the usual assignment, conditional, and looping
-statements found in most languages. The operators, control statements,
-and Input/Output statements available are similar to those in C.
-
-@c These paragraphs repeated for both patterns and actions. I don't
-@c like this, but I also don't see any way around it. Update both copies
-@c if they need fixing.
-Comments begin with the @samp{#} character, and continue until the end of the
-line. Blank lines may be used to separate statements. Statements normally
-end with a newline; however, this is not the case for lines ending in a
-@samp{,}, @samp{@{}, @samp{?}, @samp{:}, @samp{&&}, or @samp{||}. Lines
-ending in @code{do} or @code{else} also have their statements automatically
-continued on the following line. In other cases, a line can be continued by
-ending it with a @samp{\}, in which case the newline is ignored.
-
-Multiple statements may be put on one line by separating each one with
-a @samp{;}.
-This applies to both the statements within the action part of a rule (the
-usual case), and to the rule statements.
-
-@xref{Comments, ,Comments in @code{awk} Programs}, for information on
-@code{awk}'s commenting convention;
-@pxref{Statements/Lines, ,@code{awk} Statements Versus Lines}, for a
-description of the line continuation mechanism in @code{awk}.
-
-@menu
-* Operator Summary:: @code{awk} operators.
-* Control Flow Summary:: The control statements.
-* I/O Summary:: The I/O statements.
-* Printf Summary:: A summary of @code{printf}.
-* Special File Summary:: Special file names interpreted internally.
-* Built-in Functions Summary:: Built-in numeric and string functions.
-* Time Functions Summary:: Built-in time functions.
-* String Constants Summary:: Escape sequences in strings.
-@end menu
-
-@node Operator Summary, Control Flow Summary, Actions Summary, Actions Summary
-@appendixsubsec Operators
-
-The operators in @code{awk}, in order of decreasing precedence, are:
-
-@table @code
-@item (@dots{})
-Grouping.
-
-@item $
-Field reference.
-
-@item ++ --
-Increment and decrement, both prefix and postfix.
-
-@item ^
-Exponentiation (@samp{**} may also be used, and @samp{**=} for the assignment
-operator, but they are not specified in the POSIX standard).
-
-@item + - !
-Unary plus, unary minus, and logical negation.
-
-@item * / %
-Multiplication, division, and modulus.
-
-@item + -
-Addition and subtraction.
-
-@item @var{space}
-String concatenation.
-
-@item < <= > >= != ==
-The usual relational operators.
-
-@item ~ !~
-Regular expression match, negated match.
-
-@item in
-Array membership.
-
-@item &&
-Logical ``and''.
-
-@item ||
-Logical ``or''.
-
-@item ?:
-A conditional expression. This has the form @samp{@var{expr1} ?
-@var{expr2} : @var{expr3}}. If @var{expr1} is true, the value of the
-expression is @var{expr2}; otherwise it is @var{expr3}. Only one of
-@var{expr2} and @var{expr3} is evaluated.
-
-@item = += -= *= /= %= ^=
-Assignment. Both absolute assignment (@code{@var{var}=@var{value}})
-and operator assignment (the other forms) are supported.
-@end table
-
-@xref{Expressions}.
-
-@node Control Flow Summary, I/O Summary, Operator Summary, Actions Summary
-@appendixsubsec Control Statements
-
-The control statements are as follows:
-
-@example
-if (@var{condition}) @var{statement} @r{[} else @var{statement} @r{]}
-while (@var{condition}) @var{statement}
-do @var{statement} while (@var{condition})
-for (@var{expr1}; @var{expr2}; @var{expr3}) @var{statement}
-for (@var{var} in @var{array}) @var{statement}
-break
-continue
-delete @var{array}[@var{index}]
-delete @var{array}
-exit @r{[} @var{expression} @r{]}
-@{ @var{statements} @}
-@end example
-
-@xref{Statements, ,Control Statements in Actions}.
-
-@node I/O Summary, Printf Summary, Control Flow Summary, Actions Summary
-@appendixsubsec I/O Statements
-
-The Input/Output statements are as follows:
-
-@table @code
-@item getline
-Set @code{$0} from next input record; set @code{NF}, @code{NR}, @code{FNR}.
-@xref{Getline, ,Explicit Input with @code{getline}}.
-
-@item getline <@var{file}
-Set @code{$0} from next record of @var{file}; set @code{NF}.
-
-@item getline @var{var}
-Set @var{var} from next input record; set @code{NR}, @code{FNR}.
-
-@item getline @var{var} <@var{file}
-Set @var{var} from next record of @var{file}.
-
-@item @var{command} | getline
-Run @var{command}, piping its output into @code{getline}; sets @code{$0},
-@code{NF}, @code{NR}.
-
-@item @var{command} | getline @code{var}
-Run @var{command}, piping its output into @code{getline}; sets @var{var}.
-
-@item next
-Stop processing the current input record. The next input record is read and
-processing starts over with the first pattern in the @code{awk} program.
-If the end of the input data is reached, the @code{END} rule(s), if any,
-are executed.
-@xref{Next Statement, ,The @code{next} Statement}.
-
-@item nextfile
-Stop processing the current input file. The next input record read comes
-from the next input file. @code{FILENAME} is updated, @code{FNR} is set to one,
-@code{ARGIND} is incremented,
-and processing starts over with the first pattern in the @code{awk} program.
-If the end of the input data is reached, the @code{END} rule(s), if any,
-are executed.
-Earlier versions of @code{gawk} used @samp{next file}; this usage is still
-supported, but is considered to be deprecated.
-@xref{Nextfile Statement, ,The @code{nextfile} Statement}.
-
-@item print
-Prints the current record.
-@xref{Printing, ,Printing Output}.
-
-@item print @var{expr-list}
-Prints expressions.
-
-@item print @var{expr-list} > @var{file}
-Prints expressions to @var{file}. If @var{file} does not exist, it is
-created. If it does exist, its contents are deleted the first time the
-@code{print} is executed.
-
-@item print @var{expr-list} >> @var{file}
-Prints expressions to @var{file}. The previous contents of @var{file}
-are retained, and the output of @code{print} is appended to the file.
-
-@item print @var{expr-list} | @var{command}
-Prints expressions, sending the output down a pipe to @var{command}.
-The pipeline to the command stays open until the @code{close} function
-is called.
-
-@item printf @var{fmt}, @var{expr-list}
-Format and print.
-
-@item printf @var{fmt}, @var{expr-list} > @var{file}
-Format and print to @var{file}. If @var{file} does not exist, it is
-created. If it does exist, its contents are deleted the first time the
-@code{printf} is executed.
-
-@item printf @var{fmt}, @var{expr-list} >> @var{file}
-Format and print to @var{file}. The previous contents of @var{file}
-are retained, and the output of @code{printf} is appended to the file.
-
-@item printf @var{fmt}, @var{expr-list} | @var{command}
-Format and print, sending the output down a pipe to @var{command}.
-The pipeline to the command stays open until the @code{close} function
-is called.
-@end table
-
-@code{getline} returns zero on end of file, and @minus{}1 on an error.
-In the event of an error, @code{getline} will set @code{ERRNO} to
-the value of a system-dependent string that describes the error.
-
-@node Printf Summary, Special File Summary, I/O Summary, Actions Summary
-@appendixsubsec @code{printf} Summary
-
-Conversion specification have the form
-@code{%}[@var{flag}][@var{width}][@code{.}@var{prec}]@var{format}.
-@c whew!
-Items in brackets are optional.
-
-The @code{awk} @code{printf} statement and @code{sprintf} function
-accept the following conversion specification formats:
-
-@table @code
-@item %c
-An ASCII character. If the argument used for @samp{%c} is numeric, it is
-treated as a character and printed. Otherwise, the argument is assumed to
-be a string, and the only first character of that string is printed.
-
-@item %d
-@itemx %i
-A decimal number (the integer part).
-
-@item %e
-@itemx %E
-A floating point number of the form
-@samp{@r{[}-@r{]}d.dddddde@r{[}+-@r{]}dd}.
-The @samp{%E} format uses @samp{E} instead of @samp{e}.
-
-@item %f
-A floating point number of the form
-@r{[}@code{-}@r{]}@code{ddd.dddddd}.
-
-@item %g
-@itemx %G
-Use either the @samp{%e} or @samp{%f} formats, whichever produces a shorter
-string, with non-significant zeros suppressed.
-@samp{%G} will use @samp{%E} instead of @samp{%e}.
-
-@item %o
-An unsigned octal number (also an integer).
-
-@item %u
-An unsigned decimal number (again, an integer).
-
-@item %s
-A character string.
-
-@item %x
-@itemx %X
-An unsigned hexadecimal number (an integer).
-The @samp{%X} format uses @samp{A} through @samp{F} instead of
-@samp{a} through @samp{f} for decimal 10 through 15.
-
-@item %%
-A single @samp{%} character; no argument is converted.
-@end table
-
-There are optional, additional parameters that may lie between the @samp{%}
-and the control letter:
-
-@table @code
-@item -
-The expression should be left-justified within its field.
-
-@item @var{space}
-For numeric conversions, prefix positive values with a space, and
-negative values with a minus sign.
-
-@item +
-The plus sign, used before the width modifier (see below),
-says to always supply a sign for numeric conversions, even if the data
-to be formatted is positive. The @samp{+} overrides the space modifier.
-
-@item #
-Use an ``alternate form'' for certain control letters.
-For @samp{o}, supply a leading zero.
-For @samp{x}, and @samp{X}, supply a leading @samp{0x} or @samp{0X} for
-a non-zero result.
-For @samp{e}, @samp{E}, and @samp{f}, the result will always contain a
-decimal point.
-For @samp{g}, and @samp{G}, trailing zeros are not removed from the result.
-
-@item 0
-A leading @samp{0} (zero) acts as a flag, that indicates output should be
-padded with zeros instead of spaces.
-This applies even to non-numeric output formats.
-This flag only has an effect when the field width is wider than the
-value to be printed.
-
-@item @var{width}
-The field should be padded to this width. The field is normally padded
-with spaces. If the @samp{0} flag has been used, it is padded with zeros.
-
-@item .@var{prec}
-A number that specifies the precision to use when printing.
-For the @samp{e}, @samp{E}, and @samp{f} formats, this specifies the
-number of digits you want printed to the right of the decimal point.
-For the @samp{g}, and @samp{G} formats, it specifies the maximum number
-of significant digits. For the @samp{d}, @samp{o}, @samp{i}, @samp{u},
-@samp{x}, and @samp{X} formats, it specifies the minimum number of
-digits to print. For the @samp{s} format, it specifies the maximum number of
-characters from the string that should be printed.
-@end table
-
-Either or both of the @var{width} and @var{prec} values may be specified
-as @samp{*}. In that case, the particular value is taken from the argument
-list.
-
-@xref{Printf, ,Using @code{printf} Statements for Fancier Printing}.
-
-@node Special File Summary, Built-in Functions Summary, Printf Summary, Actions Summary
-@appendixsubsec Special File Names
-
-When doing I/O redirection from either @code{print} or @code{printf} into a
-file, or via @code{getline} from a file, @code{gawk} recognizes certain special
-file names internally. These file names allow access to open file descriptors
-inherited from @code{gawk}'s parent process (usually the shell). The
-file names are:
-
-@table @file
-@item /dev/stdin
-The standard input.
-
-@item /dev/stdout
-The standard output.
-
-@item /dev/stderr
-The standard error output.
-
-@item /dev/fd/@var{n}
-The file denoted by the open file descriptor @var{n}.
-@end table
-
-In addition, reading the following files provides process related information
-about the running @code{gawk} program. All returned records are terminated
-with a newline.
-
-@table @file
-@item /dev/pid
-Returns the process ID of the current process.
-
-@item /dev/ppid
-Returns the parent process ID of the current process.
-
-@item /dev/pgrpid
-Returns the process group ID of the current process.
-
-@item /dev/user
-At least four space-separated fields, containing the return values of
-the @code{getuid}, @code{geteuid}, @code{getgid}, and @code{getegid}
-system calls.
-If there are any additional fields, they are the group IDs returned by
-@code{getgroups} system call.
-(Multiple groups may not be supported on all systems.)
-@end table
+@itemize @bullet
+@item
+The @code{BINMODE} special variable for non-POSIX systems,
+which allows binary I/O for input and/or output files
+(@pxref{PC Using, ,Using @command{gawk} on PC Operating Systems}).
-@noindent
-These file names may also be used on the command line to name data files.
-These file names are only recognized internally if you do not
-actually have files with these names on your system.
+@item
+The @code{LINT} special variable, which dynamically controls lint warnings
+(@pxref{Built-in Variables}).
-@xref{Special Files, ,Special File Names in @code{gawk}}, for a longer description that
-provides the motivation for this feature.
+@item
+The @code{PROCINFO} array for providing process-related information
+(@pxref{Built-in Variables}).
-@node Built-in Functions Summary, Time Functions Summary, Special File Summary, Actions Summary
-@appendixsubsec Built-in Functions
+@item
+The @code{TEXTDOMAIN} special variable for setting an application's
+internationalization text domain
+(@pxref{Built-in Variables},
+and
+@ref{Internationalization, ,Internationalization with @command{gawk}}).
-@code{awk} provides a number of built-in functions for performing
-numeric operations, string related operations, and I/O related operations.
+@item
+The ability to use octal and hexadecimal constants in @command{awk}
+program source code
+(@pxref{Non-decimal-numbers, ,Octal and Hexadecimal Numbers}).
-@c NEEDED
-@page
-The built-in arithmetic functions are:
+@item
+The @samp{|&} operator for two-way I/O to a coprocess
+(@pxref{Two-way I/O, ,Two-Way Communications with Another Process}).
-@table @code
-@item atan2(@var{y}, @var{x})
-the arctangent of @var{y/x} in radians.
+@item
+The @file{/inet} special files for TCP/IP networking using @samp{|&}
+(@pxref{TCP/IP Networking, , Using @command{gawk} for Network Programming}).
-@item cos(@var{expr})
-the cosine of @var{expr}, which is in radians.
+@item
+The optional second argument to @code{close} that allows closing one end
+of a two-way pipe to a coprocess
+(@pxref{Two-way I/O, ,Two-Way Communications with Another Process}).
-@item exp(@var{expr})
-the exponential function (@code{e ^ @var{expr}}).
+@item
+The optional third argument to the @code{match} function
+for capturing text-matching subexpressions within a regexp
+(@pxref{String Functions, , String Manipulation Functions}).
-@item int(@var{expr})
-truncates to integer.
+@item
+Positional specifiers in @code{printf} formats for
+making translations easier
+(@pxref{Printf Ordering, , Rearranging @code{printf} Arguments}).
-@item log(@var{expr})
-the natural logarithm of @code{expr}.
+@item
+The @code{asort} function for sorting arrays
+(@pxref{Array Sorting, ,Sorting Array Values and Indices with @command{gawk}}).
-@item rand()
-a random number between zero and one.
+@item
+The @code{bindtextdomain} and @code{dcgettext} functions
+for internationalization
+(@pxref{Programmer i18n, ,Internationalizing @command{awk} Programs}).
-@item sin(@var{expr})
-the sine of @var{expr}, which is in radians.
+@item
+The @code{extension} built-in function and the ability to add
+new built-in functions dynamically
+(@pxref{Dynamic Extensions, , Adding New Built-in Functions to @command{gawk}}).
-@item sqrt(@var{expr})
-the square root function.
+@item
+The @code{mktime} built-in function for creating timestamps
+(@pxref{Time Functions, ,Using @command{gawk}'s Timestamp Functions}).
-@item srand(@r{[}@var{expr}@r{]})
-use @var{expr} as a new seed for the random number generator. If no @var{expr}
-is provided, the time of day is used. The return value is the previous
-seed for the random number generator.
-@end table
+@item
+The
+@code{and},
+@code{or},
+@code{xor},
+@code{compl},
+@code{lshift},
+@code{rshift},
+and
+@code{strtonum} built-in
+functions
+(@pxref{Bitwise Functions, ,Using @command{gawk}'s Bit Manipulation Functions}).
-@code{awk} has the following built-in string functions:
+@item
+@cindex @code{next file} statement
+The support for @samp{next file} as two words was removed completely
+(@pxref{Nextfile Statement, ,Using @command{gawk}'s @code{nextfile} Statement}).
-@table @code
-@item gensub(@var{regex}, @var{subst}, @var{how} @r{[}, @var{target}@r{]})
-If @var{how} is a string beginning with @samp{g} or @samp{G}, then
-replace each match of @var{regex} in @var{target} with @var{subst}.
-Otherwise, replace the @var{how}'th occurrence. If @var{target} is not
-supplied, use @code{$0}. The return value is the changed string; the
-original @var{target} is not modified. Within @var{subst},
-@samp{\@var{n}}, where @var{n} is a digit from one to nine, can be used to
-indicate the text that matched the @var{n}'th parenthesized
-subexpression.
-This function is @code{gawk}-specific.
-
-@item gsub(@var{regex}, @var{subst} @r{[}, @var{target}@r{]})
-for each substring matching the regular expression @var{regex} in the string
-@var{target}, substitute the string @var{subst}, and return the number of
-substitutions. If @var{target} is not supplied, use @code{$0}.
-
-@item index(@var{str}, @var{search})
-returns the index of the string @var{search} in the string @var{str}, or
-zero if
-@var{search} is not present.
-
-@item length(@r{[}@var{str}@r{]})
-returns the length of the string @var{str}. The length of @code{$0}
-is returned if no argument is supplied.
-
-@item match(@var{str}, @var{regex})
-returns the position in @var{str} where the regular expression @var{regex}
-occurs, or zero if @var{regex} is not present, and sets the values of
-@code{RSTART} and @code{RLENGTH}.
-
-@item split(@var{str}, @var{arr} @r{[}, @var{regex}@r{]})
-splits the string @var{str} into the array @var{arr} on the regular expression
-@var{regex}, and returns the number of elements. If @var{regex} is omitted,
-@code{FS} is used instead. @var{regex} can be the null string, causing
-each character to be placed into its own array element.
-The array @var{arr} is cleared first.
-
-@item sprintf(@var{fmt}, @var{expr-list})
-prints @var{expr-list} according to @var{fmt}, and returns the resulting string.
-
-@item sub(@var{regex}, @var{subst} @r{[}, @var{target}@r{]})
-just like @code{gsub}, but only the first matching substring is replaced.
-
-@item substr(@var{str}, @var{index} @r{[}, @var{len}@r{]})
-returns the @var{len}-character substring of @var{str} starting at @var{index}.
-If @var{len} is omitted, the rest of @var{str} is used.
-
-@item tolower(@var{str})
-returns a copy of the string @var{str}, with all the upper-case characters in
-@var{str} translated to their corresponding lower-case counterparts.
-Non-alphabetic characters are left unchanged.
-
-@item toupper(@var{str})
-returns a copy of the string @var{str}, with all the lower-case characters in
-@var{str} translated to their corresponding upper-case counterparts.
-Non-alphabetic characters are left unchanged.
-@end table
+@item
+The @option{--dump-variables} option to print a list of all global variables
+(@pxref{Options, ,Command-Line Options}).
-The I/O related functions are:
+@item
+The @option{--gen-po} command-line option and the use of a leading
+underscore to mark strings that should be translated
+(@pxref{String Extraction, ,Extracting Marked Strings}).
-@table @code
-@item close(@var{expr})
-Close the open file or pipe denoted by @var{expr}.
+@item
+The @option{--non-decimal-data} option to allow non-decimal
+input data
+(@pxref{Non-decimal Data, ,Allowing Non-Decimal Input Data}).
-@item fflush(@r{[}@var{expr}@r{]})
-Flush any buffered output for the output file or pipe denoted by @var{expr}.
-If @var{expr} is omitted, standard output is flushed.
-If @var{expr} is the null string (@code{""}), all output buffers are flushed.
+@item
+The @option{--profile} option and @command{pgawk}, the
+profiling version of @command{gawk}, for producing execution
+profiles of @command{awk} programs
+(@pxref{Profiling, ,Profiling Your @command{awk} Programs}).
-@item system(@var{cmd-line})
-Execute the command @var{cmd-line}, and return the exit status.
-If your operating system does not support @code{system}, calling it will
-generate a fatal error.
+@item
+The @option{--enable-portals} configuration option to enable special treatment of
+pathnames that begin with @file{/p} as BSD portals
+(@pxref{Portal Files, , Using @command{gawk} with BSD Portals}).
-@samp{system("")} can be used to force @code{awk} to flush any pending
-output. This is more portable, but less obvious, than calling @code{fflush}.
-@end table
+@item
+The use of GNU Automake to help in standardizing the configuration process
+(@pxref{Quick Installation, , Compiling @command{gawk} for Unix}).
-@node Time Functions Summary, String Constants Summary, Built-in Functions Summary, Actions Summary
-@appendixsubsec Time Functions
+@item
+The use of GNU @code{gettext} for @command{gawk}'s own message output
+(@pxref{Gawk I18N, ,@command{gawk} Can Speak Your Language}).
-The following two functions are available for getting the current
-time of day, and for formatting time stamps.
-They are specific to @code{gawk}.
+@item
+BeOS support
+(@pxref{BeOS Installation, , Installing @command{gawk} on BeOS}).
-@table @code
-@item systime()
-returns the current time of day as the number of seconds since a particular
-epoch (Midnight, January 1, 1970 UTC, on POSIX systems).
-
-@item strftime(@r{[}@var{format}@r{[}, @var{timestamp}@r{]]})
-formats @var{timestamp} according to the specification in @var{format}.
-The current time of day is used if no @var{timestamp} is supplied.
-A default format equivalent to the output of the @code{date} utility is used if
-no @var{format} is supplied.
-@xref{Time Functions, ,Functions for Dealing with Time Stamps}, for the
-details on the conversion specifiers that @code{strftime} accepts.
-@end table
+@item
+Tandem support
+(@pxref{Tandem Installation, ,Installing @command{gawk} on a Tandem}).
-@iftex
-@xref{Built-in, ,Built-in Functions}, for a description of all of
-@code{awk}'s built-in functions.
-@end iftex
+@item
+The Atari port became officially unsupported
+(@pxref{Atari Installation, ,Installing @command{gawk} on the Atari ST}).
-@node String Constants Summary, , Time Functions Summary, Actions Summary
-@appendixsubsec String Constants
+@item
+The source code now uses new-style function definitions, with
+@command{ansi2knr} to convert the code on systems with old compilers.
-String constants in @code{awk} are sequences of characters enclosed
-in double quotes (@code{"}). Within strings, certain @dfn{escape sequences}
-are recognized, as in C. These are:
+@end itemize
-@table @code
-@item \\
-A literal backslash.
+@c XXX ADD MORE STUFF HERE
-@item \a
-The ``alert'' character; usually the ASCII BEL character.
+@node Contributors, , POSIX/GNU, Language History
+@appendixsec Major Contributors to @command{gawk}
+@cindex contributors to @command{gawk}
+@quotation
+@i{Always give credit where credit is due.}@*
+Anonymous
+@end quotation
-@item \b
-Backspace.
+This @value{SECTION} names the major contributors to @command{gawk}
+and/or this @value{DOCUMENT}, in approximate chronological order:
-@item \f
-Formfeed.
+@itemize @bullet
+@item
+@cindex Aho, Alfred
+@cindex Weinberger, Peter
+@cindex Kernighan, Brian
+Dr.@: Alfred V.@: Aho,
+Dr.@: Peter J.@: Weinberger, and
+Dr.@: Brian W.@: Kernighan, all of Bell Laboratories,
+designed and implemented Unix @command{awk},
+from which @command{gawk} gets the majority of its feature set.
-@item \n
-Newline.
+@item
+@cindex Rubin, Paul
+Paul Rubin
+did the initial design and implementation in 1986, and wrote
+the first draft (around 40 pages) of this @value{DOCUMENT}.
-@item \r
-Carriage return.
+@item
+@cindex Fenlason, Jay
+Jay Fenlason
+finished the initial implementation.
-@item \t
-Horizontal tab.
+@item
+@cindex Close, Diane
+Diane Close
+revised the first draft of this @value{DOCUMENT}, bringing it
+to around 90 pages.
-@item \v
-Vertical tab.
-
-@item \x@var{hex digits}
-The character represented by the string of hexadecimal digits following
-the @samp{\x}. As in ANSI C, all following hexadecimal digits are
-considered part of the escape sequence. E.g., @code{"\x1B"} is a
-string containing the ASCII ESC (escape) character. (The @samp{\x}
-escape sequence is not in POSIX @code{awk}.)
-
-@item \@var{ddd}
-The character represented by the one, two, or three digit sequence of octal
-digits. Thus, @code{"\033"} is also a string containing the ASCII ESC
-(escape) character.
-
-@item \@var{c}
-The literal character @var{c}, if @var{c} is not one of the above.
-@end table
+@item
+@cindex Stallman, Richard
+Richard Stallman
+helped finish the implementation and the initial draft of this
+@value{DOCUMENT}.
+He is also the founder of the FSF and the GNU project.
-The escape sequences may also be used inside constant regular expressions
-(e.g., the regexp @code{@w{/[@ \t\f\n\r\v]/}} matches whitespace
-characters).
+@item
+@cindex Woods, John
+John Woods
+contributed parts of the code (mostly fixes) in
+the initial version of @command{gawk}.
-@xref{Escape Sequences}.
+@item
+@cindex Trueman, David
+In 1988,
+David Trueman
+took over primary maintenance of @command{gawk},
+making it compatible with ``new'' @command{awk}, and
+greatly improving its performance.
-@node Functions Summary, Historical Features, Actions Summary, Gawk Summary
-@appendixsec User-defined Functions
+@item
+@cindex Rankin, Pat
+Pat Rankin
+provided the VMS port and its documentation.
-Functions in @code{awk} are defined as follows:
+@item
+@cindex Kwok, Conrad
+@cindex Garfinkle, Scott
+@cindex Williams, Kent
+Conrad Kwok,
+Scott Garfinkle,
+and
+Kent Williams
+did the initial ports to MS-DOS with various versions of MSC.
-@example
-function @var{name}(@var{parameter list}) @{ @var{statements} @}
-@end example
+@item
+@cindex Peterson, Hal
+Hal Peterson
+provided help in porting @command{gawk} to Cray systems.
-Actual parameters supplied in the function call are used to instantiate
-the formal parameters declared in the function. Arrays are passed by
-reference, other variables are passed by value.
+@item
+@cindex Rommel, Kai Uwe
+Kai Uwe Rommel
+provided the port to OS/2 and its documentation.
-If there are fewer arguments passed than there are names in @var{parameter-list},
-the extra names are given the null string as their value. Extra names have the
-effect of local variables.
+@item
+@cindex Jaegermann, Michal
+Michal Jaegermann
+provided the port to Atari systems and its documentation.
+He continues to provide portability checking with DEC Alpha
+systems, and has done a lot of work to make sure @command{gawk}
+works on non-32-bit systems.
-The open-parenthesis in a function call of a user-defined function must
-immediately follow the function name, without any intervening white space.
-This is to avoid a syntactic ambiguity with the concatenation operator.
+@item
+@cindex Fish, Fred
+Fred Fish
+provided the port to Amiga systems and its documentation.
-The word @code{func} may be used in place of @code{function} (but not in
-POSIX @code{awk}).
+@item
+@cindex Deifik, Scott
+Scott Deifik
+currently maintains the MS-DOS port.
-Use the @code{return} statement to return a value from a function.
+@item
+@cindex Grigera, Juan
+Juan Grigera
+maintains the port to Win32 systems.
-@xref{User-defined, ,User-defined Functions}.
+@item
+@cindex Hankerson, Darrel
+Dr.@: Darrel Hankerson
+acts as coordinator for the various ports to different PC platforms
+and creates binary distributions for various PC operating systems.
+He is also instrumental in keeping the documentation up to date for
+the various PC platforms.
-@node Historical Features, , Functions Summary, Gawk Summary
-@appendixsec Historical Features
+@item
+@cindex Zoulas, Christos
+Christos Zoulas
+provided the @code{extension}
+built-in function for dynamically adding new modules.
-@cindex historical features
-There are two features of historical @code{awk} implementations that
-@code{gawk} supports.
+@item
+@cindex Kahrs, J@"urgen
+J@"urgen Kahrs
+contributed the initial version of the TCP/IP networking
+code and documentation, and motivated the inclusion of the @samp{|&} operator.
-First, it is possible to call the @code{length} built-in function not only
-with no arguments, but even without parentheses!
+@item
+@cindex Davies, Stephen
+Stephen Davies
+provided the port to Tandem systems and its documentation.
-@example
-a = length
-@end example
+@item
+@cindex Brown, Martin
+Martin Brown
+provided the port to BeOS and its documentation.
-@noindent
-is the same as either of
+@item
+@cindex Peters, Arno
+Arno Peters
+did the initial work to convert @command{gawk} to use
+GNU Automake and @code{gettext}.
-@example
-a = length()
-a = length($0)
-@end example
+@item
+@cindex Broder, Alan J.@:
+Alan J.@: Broder
+provided the initial version of the @code{asort} function
+as well as the code for the new optional third argument to the @code{match} function.
-@noindent
-For example:
+@item
+@cindex Robbins, Arnold
+Arnold Robbins
+has been working on @command{gawk} since 1988, at first
+helping David Trueman, and as the primary maintainer since around 1994.
+@end itemize
-@example
-$ echo abcdef | awk '@{ print length @}'
-@print{} 6
-@end example
+@node Installation, Notes, Language History, Top
+@appendix Installing @command{gawk}
-@noindent
-This feature is marked as ``deprecated'' in the POSIX standard, and
-@code{gawk} will issue a warning about its use if @samp{--lint} is
-specified on the command line.
-(The ability to use @code{length} this way was actually an accident of the
-original Unix @code{awk} implementation. If any built-in function used
-@code{$0} as its default argument, it was possible to call that function
-without the parentheses. In particular, it was common practice to use
-the @code{length} function in this fashion, and this usage was documented
-in the @code{awk} manual page.)
-
-The other historical feature is the use of either the @code{break} statement,
-or the @code{continue} statement
-outside the body of a @code{while}, @code{for}, or @code{do} loop. Traditional
-@code{awk} implementations have treated such usage as equivalent to the
-@code{next} statement. More recent versions of Unix @code{awk} do not allow
-it. @code{gawk} supports this usage if @samp{--traditional} has been
-specified.
-
-@xref{Options, ,Command Line Options}, for more information about the
-@samp{--posix} and @samp{--lint} options.
-
-@node Installation, Notes, Gawk Summary, Top
-@appendix Installing @code{gawk}
-
-This appendix provides instructions for installing @code{gawk} on the
+@cindex Linux
+@cindex GNU/Linux
+This appendix provides instructions for installing @command{gawk} on the
various platforms that are supported by the developers. The primary
-developers support Unix (and one day, GNU), while the other ports were
-contributed. The file @file{ACKNOWLEDGMENT} in the @code{gawk}
-distribution lists the electronic mail addresses of the people who did
-the respective ports, and they are also provided in
-@ref{Bugs, , Reporting Problems and Bugs}.
+developer supports GNU/Linux (and Unix), whereas the other ports are
+contributed.
+@xref{Bugs, , Reporting Problems and Bugs},
+for the electronic mail addresses of the people who did
+the respective ports.
@menu
-* Gawk Distribution:: What is in the @code{gawk} distribution.
-* Unix Installation:: Installing @code{gawk} under various versions
- of Unix.
-* VMS Installation:: Installing @code{gawk} on VMS.
-* PC Installation:: Installing and Compiling @code{gawk} on MS-DOS
- and OS/2
-* Atari Installation:: Installing @code{gawk} on the Atari ST.
-* Amiga Installation:: Installing @code{gawk} on an Amiga.
+* Gawk Distribution:: What is in the @command{gawk} distribution.
+* Unix Installation:: Installing @command{gawk} under various
+ versions of Unix.
+* Non-Unix Installation:: Installation on Other Operating Systems.
+* Unsupported:: Systems whose ports are no longer supported.
* Bugs:: Reporting Problems and Bugs.
-* Other Versions:: Other freely available @code{awk}
+* Other Versions:: Other freely available @command{awk}
implementations.
@end menu
@node Gawk Distribution, Unix Installation, Installation, Installation
-@appendixsec The @code{gawk} Distribution
+@appendixsec The @command{gawk} Distribution
-This section first describes how to get the @code{gawk}
+This @value{SECTION} describes how to get the @command{gawk}
distribution, how to extract it, and then what is in the various files and
subdirectories.
@@ -18647,228 +21545,135 @@ subdirectories.
@end menu
@node Getting, Extracting, Gawk Distribution, Gawk Distribution
-@appendixsubsec Getting the @code{gawk} Distribution
-@cindex getting @code{gawk}
-@cindex anonymous @code{ftp}
-@cindex @code{ftp}, anonymous
-@cindex Free Software Foundation
-There are three ways you can get GNU software.
+@appendixsubsec Getting the @command{gawk} Distribution
+@cindex getting @command{gawk}
+@cindex anonymous @command{ftp}
+@cindex @command{ftp}, anonymous
+@cindex source code, @command{gawk}
+@cindex @command{gawk}, source code
+There are three ways to get GNU software:
-@enumerate
+@itemize @bullet
@item
-You can copy it from someone else who already has it.
+Copy it from someone else who already has it.
+@cindex FSF
@cindex Free Software Foundation
@item
-You can order @code{gawk} directly from the Free Software Foundation.
+Order @command{gawk} directly from the Free Software Foundation.
Software distributions are available for Unix, MS-DOS, and VMS, on
-tape and CD-ROM. The address is:
+tape and CD-ROM. Their address is:
-@quotation
-Free Software Foundation @*
-59 Temple Place---Suite 330 @*
-Boston, MA 02111-1307 USA @*
-Phone: +1-617-542-5942 @*
-Fax (including Japan): +1-617-542-2652 @*
-Email: @code{gnu@@gnu.org} @*
-URL: @code{http://www.gnu.org/} @*
-@end quotation
+@display
+Free Software Foundation
+59 Temple Place, Suite 330
+Boston, MA 02111-1307 USA
+Phone: +1-617-542-5942
+Fax (including Japan): +1-617-542-2652
+Email: @email{gnu@@gnu.org}
+URL: @uref{http://www.gnu.org/}
+@end display
@noindent
Ordering from the FSF directly contributes to the support of the foundation
and to the production of more free software.
@item
-You can get @code{gawk} by using anonymous @code{ftp} to the Internet host
+Retrieve @command{gawk} by using anonymous @command{ftp} to the Internet host
@code{gnudist.gnu.org}, in the directory @file{/gnu/gawk}.
+@end itemize
-Here is a list of alternate @code{ftp} sites from which you can obtain GNU
-software. When a site is listed as ``@var{site}@code{:}@var{directory}'' the
-@var{directory} indicates the directory where GNU software is kept.
-You should use a site that is geographically close to you.
-
-@table @asis
-@item Asia:
-@table @code
-@item cair-archive.kaist.ac.kr:/pub/gnu
-@itemx ftp.cs.titech.ac.jp
-@itemx ftp.nectec.or.th:/pub/mirrors/gnu
-@itemx utsun.s.u-tokyo.ac.jp:/ftpsync/prep
-@end table
-
-@c NEEDED
-@page
-@item Australia:
-@table @code
-@item archie.au:/gnu
-(@code{archie.oz} or @code{archie.oz.au} for ACSnet)
-@end table
-
-@item Africa:
-@table @code
-@item ftp.sun.ac.za:/pub/gnu
-@end table
-
-@item Middle East:
-@table @code
-@item ftp.technion.ac.il:/pub/unsupported/gnu
-@end table
-
-@item Europe:
-@table @code
-@item archive.eu.net
-@itemx ftp.denet.dk
-@itemx ftp.eunet.ch
-@itemx ftp.funet.fi:/pub/gnu
-@itemx ftp.ieunet.ie:pub/gnu
-@itemx ftp.informatik.rwth-aachen.de:/pub/gnu
-@itemx ftp.informatik.tu-muenchen.de
-@itemx ftp.luth.se:/pub/unix/gnu
-@itemx ftp.mcc.ac.uk
-@itemx ftp.stacken.kth.se
-@itemx ftp.sunet.se:/pub/gnu
-@itemx ftp.univ-lyon1.fr:pub/gnu
-@itemx ftp.win.tue.nl:/pub/gnu
-@itemx irisa.irisa.fr:/pub/gnu
-@itemx isy.liu.se
-@itemx nic.switch.ch:/mirror/gnu
-@itemx src.doc.ic.ac.uk:/gnu
-@itemx unix.hensa.ac.uk:/pub/uunet/systems/gnu
-@end table
-
-@item South America:
-@table @code
-@item ftp.inf.utfsm.cl:/pub/gnu
-@itemx ftp.unicamp.br:/pub/gnu
-@end table
-
-@item Western Canada:
-@table @code
-@item ftp.cs.ubc.ca:/mirror2/gnu
-@end table
-
-@item USA:
-@table @code
-@item col.hp.com:/mirrors/gnu
-@itemx f.ms.uky.edu:/pub3/gnu
-@itemx ftp.cc.gatech.edu:/pub/gnu
-@itemx ftp.cs.columbia.edu:/archives/gnu/prep
-@itemx ftp.digex.net:/pub/gnu
-@itemx ftp.hawaii.edu:/mirrors/gnu
-@itemx ftp.kpc.com:/pub/mirror/gnu
-@end table
-
-@c NEEDED
-@page
-@item USA (continued):
-@table @code
-@itemx ftp.uu.net:/systems/gnu
-@itemx gatekeeper.dec.com:/pub/GNU
-@itemx jaguar.utah.edu:/gnustuff
-@itemx labrea.stanford.edu
-@itemx mrcnext.cso.uiuc.edu:/pub/gnu
-@itemx vixen.cso.uiuc.edu:/gnu
-@itemx wuarchive.wustl.edu:/systems/gnu
-@end table
-@end table
-@end enumerate
+The GNU software archive is mirrored around the world.
+The up-to-date list of mirror sites is available from
+@uref{http://www.gnu.org/order/ftp.html, the main FSF web site}.
+Try to use one of the mirrors; they
+will be less busy, and you can usually find one closer to your site.
@node Extracting, Distribution contents, Getting, Gawk Distribution
@appendixsubsec Extracting the Distribution
-@code{gawk} is distributed as a @code{tar} file compressed with the
+@command{gawk} is distributed as a @code{tar} file compressed with the
GNU Zip program, @code{gzip}.
Once you have the distribution (for example,
-@file{gawk-@value{VERSION}.@value{PATCHLEVEL}.tar.gz}), first use @code{gzip} to expand the
-file, and then use @code{tar} to extract it. You can use the following
-pipeline to produce the @code{gawk} distribution:
+@file{gawk-@value{VERSION}.@value{PATCHLEVEL}.tar.gz}),
+use @code{gzip} to expand the
+file and then use @code{tar} to extract it. You can use the following
+pipeline to produce the @command{gawk} distribution:
@example
-# Under System V, add 'o' to the tar flags
+# Under System V, add 'o' to the tar options
gzip -d -c gawk-@value{VERSION}.@value{PATCHLEVEL}.tar.gz | tar -xvpf -
@end example
@noindent
-This will create a directory named @file{gawk-@value{VERSION}.@value{PATCHLEVEL}} in the current
-directory.
+This creates a directory named @file{gawk-@value{VERSION}.@value{PATCHLEVEL}}
+in the current directory.
-The distribution file name is of the form
-@file{gawk-@var{V}.@var{R}.@var{n}.tar.gz}.
-The @var{V} represents the major version of @code{gawk},
+The distribution @value{FN} is of the form
+@file{gawk-@var{V}.@var{R}.@var{P}.tar.gz}.
+The @var{V} represents the major version of @command{gawk},
the @var{R} represents the current release of version @var{V}, and
-the @var{n} represents a @dfn{patch level}, meaning that minor bugs have
+the @var{P} represents a @dfn{patch level}, meaning that minor bugs have
been fixed in the release. The current patch level is @value{PATCHLEVEL},
-but when
-retrieving distributions, you should get the version with the highest
-version, release, and patch level. (Note that release levels greater than
-or equal to 90 denote ``beta,'' or non-production software; you may not wish
+but when retrieving distributions, you should get the version with the highest
+version, release, and patch level. (Note, however, that patch levels greater than
+or equal to 80 denote ``beta'' or non-production software; you might not want
to retrieve such a version unless you don't mind experimenting.)
-
-If you are not on a Unix system, you will need to make other arrangements
-for getting and extracting the @code{gawk} distribution. You should consult
+If you are not on a Unix system, you need to make other arrangements
+for getting and extracting the @command{gawk} distribution. You should consult
a local expert.
-@node Distribution contents, , Extracting, Gawk Distribution
-@appendixsubsec Contents of the @code{gawk} Distribution
+@node Distribution contents, , Extracting, Gawk Distribution
+@appendixsubsec Contents of the @command{gawk} Distribution
-The @code{gawk} distribution has a number of C source files,
+The @command{gawk} distribution has a number of C source files,
documentation files,
-subdirectories and files related to the configuration process
-(@pxref{Unix Installation, ,Compiling and Installing @code{gawk} on Unix}),
-and several subdirectories related to different, non-Unix,
-operating systems.
+subdirectories, and files related to the configuration process
+(@pxref{Unix Installation, ,Compiling and Installing @command{gawk} on Unix}),
+as well as several subdirectories related to different non-Unix
+operating systems:
@table @asis
-@item various @samp{.c}, @samp{.y}, and @samp{.h} files
-These files are the actual @code{gawk} source code.
+@item Various @samp{.c}, @samp{.y}, and @samp{.h} files:
+These files are the actual @command{gawk} source code.
@end table
@table @file
@item README
@itemx README_d/README.*
-Descriptive files: @file{README} for @code{gawk} under Unix, and the
+Descriptive files: @file{README} for @command{gawk} under Unix and the
rest for the various hardware and software combinations.
@item INSTALL
A file providing an overview of the configuration and installation process.
-@item PORTS
-A list of systems to which @code{gawk} has been ported, and which
-have successfully run the test suite.
-
-@item ACKNOWLEDGMENT
-A list of the people who contributed major parts of the code or documentation.
-
@item ChangeLog
A detailed list of source code changes as bugs are fixed or improvements made.
@item NEWS
-A list of changes to @code{gawk} since the last release or patch.
+A list of changes to @command{gawk} since the last release or patch.
@item COPYING
The GNU General Public License.
@item FUTURES
-A brief list of features and/or changes being contemplated for future
+A brief list of features and changes being contemplated for future
releases, with some indication of the time frame for the feature, based
on its difficulty.
@item LIMITATIONS
-A list of those factors that limit @code{gawk}'s performance.
+A list of those factors that limit @command{gawk}'s performance.
Most of these depend on the hardware or operating system software, and
-are not limits in @code{gawk} itself.
+are not limits in @command{gawk} itself.
@item POSIX.STD
-A description of one area where the POSIX standard for @code{awk} is
-incorrect, and how @code{gawk} handles the problem.
+A description of one area where the POSIX standard for @command{awk} is
+incorrect as well as how @command{gawk} handles the problem.
-@item PROBLEMS
-A file describing known problems with the current release.
-
-@cindex artificial intelligence, using @code{gawk}
-@cindex AI programming, using @code{gawk}
+@cindex artificial intelligence, using @command{gawk}
+@cindex AI programming, using @command{gawk}
@item doc/awkforai.txt
-A short article describing why @code{gawk} is a good language for
+A short article describing why @command{gawk} is a good language for
AI (Artificial Intelligence) programming.
@item doc/README.card
@@ -18879,25 +21684,41 @@ AI (Artificial Intelligence) programming.
@itemx doc/macros
@itemx doc/no.colors
@itemx doc/setter.outline
-The @code{troff} source for a five-color @code{awk} reference card.
-A modern version of @code{troff}, such as GNU Troff (@code{groff}) is
+The @command{troff} source for a five-color @command{awk} reference card.
+A modern version of @command{troff} such as GNU @command{troff} (@command{groff}) is
needed to produce the color version. See the file @file{README.card}
-for instructions if you have an older @code{troff}.
+for instructions if you have an older @command{troff}.
@item doc/gawk.1
-The @code{troff} source for a manual page describing @code{gawk}.
+The @command{troff} source for a manual page describing @command{gawk}.
This is distributed for the convenience of Unix users.
+@cindex Texinfo
@item doc/gawk.texi
The Texinfo source file for this @value{DOCUMENT}.
It should be processed with @TeX{} to produce a printed document, and
-with @code{makeinfo} to produce an Info file.
+with @command{makeinfo} to produce an Info or HTML file.
@item doc/gawk.info
The generated Info file for this @value{DOCUMENT}.
+@item doc/gawkinet.texi
+The Texinfo source file for
+@ifinfo
+@xref{Top}.
+@end ifinfo
+@ifnotinfo
+@cite{TCP/IP Internetworking with @command{gawk}}.
+@end ifnotinfo
+It should be processed with @TeX{} to produce a printed document and
+with @command{makeinfo} to produce an Info or HTML file.
+
+@item doc/gawkinet.info
+The generated Info file for
+@cite{TCP/IP Internetworking with @command{gawk}}.
+
@item doc/igawk.1
-The @code{troff} source for a manual page describing the @code{igawk}
+The @command{troff} source for a manual page describing the @command{igawk}
program presented in
@ref{Igawk Program, ,An Easy Way to Use Library Functions}.
@@ -18905,86 +21726,113 @@ program presented in
The input file used during the configuration process to generate the
actual @file{Makefile} for creating the documentation.
+@item Makefile.am
+@itemx */Makefile.am
+Files used by the GNU @command{automake} software for generating
+the @file{Makefile.in} files used by @command{autoconf} and
+@command{configure}.
+
@item Makefile.in
@itemx acconfig.h
+@itemx acinclude.m4
@itemx aclocal.m4
@itemx configh.in
@itemx configure.in
@itemx configure
@itemx custom.h
-@itemx missing/*
-These files and subdirectory are used when configuring @code{gawk}
-for various Unix systems. They are explained in detail in
-@ref{Unix Installation, ,Compiling and Installing @code{gawk} on Unix}.
+@itemx missing_d/*
+@itemx m4/*
+These files and subdirectories are used when configuring @command{gawk}
+for various Unix systems. They are explained in
+@ref{Unix Installation, ,Compiling and Installing @command{gawk} on Unix}.
+
+@item intl/*
+@itemx po/*
+The @file{intl} directory provides the GNU @code{gettext} library, which implements
+@command{gawk}'s internationalization features, while the @file{po} library
+contains message translations.
@item awklib/extract.awk
+@itemx awklib/Makefile.am
@itemx awklib/Makefile.in
+@itemx awklib/eg/*
The @file{awklib} directory contains a copy of @file{extract.awk}
(@pxref{Extract Program, ,Extracting Programs from Texinfo Source Files}),
which can be used to extract the sample programs from the Texinfo
-source file for this @value{DOCUMENT}, and a @file{Makefile.in} file, which
-@code{configure} uses to generate a @file{Makefile}.
-As part of the process of building @code{gawk}, the library functions from
-@ref{Library Functions, , A Library of @code{awk} Functions},
-and the @code{igawk} program from
+source file for this @value{DOCUMENT}. It also contains a @file{Makefile.in} file, which
+@command{configure} uses to generate a @file{Makefile}.
+@file{Makefile.am} is used by GNU Automake to create @file{Makefile.in}.
+The library functions from
+@ref{Library Functions, , A Library of @command{awk} Functions},
+and the @command{igawk} program from
@ref{Igawk Program, , An Easy Way to Use Library Functions},
-are extracted into ready to use files.
+are included as ready-to-use files in the @command{gawk} distribution.
They are installed as part of the installation process.
+The rest of the programs in this @value{DOCUMENT} are available in appropriate
+subdirectories of @file{awklib/eg}.
+
+@item unsupported/atari/*
+Files needed for building @command{gawk} on an Atari ST
+(@pxref{Atari Installation, ,Installing @command{gawk} on the Atari ST}, for details).
-@item atari/*
-Files needed for building @code{gawk} on an Atari ST.
-@xref{Atari Installation, ,Installing @code{gawk} on the Atari ST}, for details.
+@item unsupported/tandem/*
+Files needed for building @command{gawk} on a Tandem
+(@pxref{Tandem Installation, ,Installing @command{gawk} on a Tandem}, for details).
+
+@item posix/*
+Files needed for building @command{gawk} on POSIX-compliant systems.
@item pc/*
-Files needed for building @code{gawk} under MS-DOS and OS/2.
-@xref{PC Installation, ,MS-DOS and OS/2 Installation and Compilation}, for details.
+Files needed for building @command{gawk} under MS-DOS, MS Windows and OS/2
+(@pxref{PC Installation, ,Installation on PC Operating Systems}, for details).
@item vms/*
-Files needed for building @code{gawk} under VMS.
-@xref{VMS Installation, ,How to Compile and Install @code{gawk} on VMS}, for details.
+Files needed for building @command{gawk} under VMS
+(@pxref{VMS Installation, ,How to Compile and Install @command{gawk} on VMS}, for details).
@item test/*
A test suite for
-@code{gawk}. You can use @samp{make check} from the top level @code{gawk}
-directory to run your version of @code{gawk} against the test suite.
-If @code{gawk} successfully passes @samp{make check} then you can
+@command{gawk}. You can use @samp{make check} from the top-level @command{gawk}
+directory to run your version of @command{gawk} against the test suite.
+If @command{gawk} successfully passes @samp{make check}, then you can
be confident of a successful port.
@end table
-@node Unix Installation, VMS Installation, Gawk Distribution, Installation
-@appendixsec Compiling and Installing @code{gawk} on Unix
+@node Unix Installation, Non-Unix Installation, Gawk Distribution, Installation
+@appendixsec Compiling and Installing @command{gawk} on Unix
-Usually, you can compile and install @code{gawk} by typing only two
-commands. However, if you do use an unusual system, you may need
-to configure @code{gawk} for your system yourself.
+Usually, you can compile and install @command{gawk} by typing only two
+commands. However, if you use an unusual system, you may need
+to configure @command{gawk} for your system yourself.
@menu
-* Quick Installation:: Compiling @code{gawk} under Unix.
-* Configuration Philosophy:: How it's all supposed to work.
+* Quick Installation:: Compiling @command{gawk} under Unix.
+* Additional Configuration Options:: Other compile-time options.
+* Configuration Philosophy:: How it's all supposed to work.
@end menu
-@node Quick Installation, Configuration Philosophy, Unix Installation, Unix Installation
-@appendixsubsec Compiling @code{gawk} for Unix
+@node Quick Installation, Additional Configuration Options, Unix Installation, Unix Installation
+@appendixsubsec Compiling @command{gawk} for Unix
@cindex installation, unix
-After you have extracted the @code{gawk} distribution, @code{cd}
+After you have extracted the @command{gawk} distribution, @command{cd}
to @file{gawk-@value{VERSION}.@value{PATCHLEVEL}}. Like most GNU software,
-@code{gawk} is configured
-automatically for your Unix system by running the @code{configure} program.
-This program is a Bourne shell script that was generated automatically using
-GNU @code{autoconf}.
-@iftex
-(The @code{autoconf} software is
+@command{gawk} is configured
+automatically for your Unix system by running the @command{configure} program.
+This program is a Bourne shell script that is generated automatically using
+GNU @command{autoconf}.
+@ifnotinfo
+(The @command{autoconf} software is
described fully in
@cite{Autoconf---Generating Automatic Configuration Scripts},
which is available from the Free Software Foundation.)
-@end iftex
+@end ifnotinfo
@ifinfo
-(The @code{autoconf} software is described fully starting with
-@ref{Top, , Introduction, autoconf, Autoconf---Generating Automatic Configuration Scripts}.)
+(The @command{autoconf} software is described fully starting with
+@ref{Top}.)
@end ifinfo
-To configure @code{gawk}, simply run @code{configure}:
+To configure @command{gawk}, simply run @command{configure}:
@example
sh ./configure
@@ -18992,24 +21840,24 @@ sh ./configure
This produces a @file{Makefile} and @file{config.h} tailored to your system.
The @file{config.h} file describes various facts about your system.
-You may wish to edit the @file{Makefile} to
+You might want to edit the @file{Makefile} to
change the @code{CFLAGS} variable, which controls
-the command line options that are passed to the C compiler (such as
-optimization levels, or compiling for debugging).
+the command-line options that are passed to the C compiler (such as
+optimization levels or compiling for debugging).
-Alternatively, you can add your own values for most @code{make}
-variables, such as @code{CC} and @code{CFLAGS}, on the command line when
-running @code{configure}:
+Alternatively, you can add your own values for most @command{make}
+variables on the command line, such as @code{CC} and @code{CFLAGS}, when
+running @command{configure}:
@example
CC=cc CFLAGS=-g sh ./configure
@end example
@noindent
-See the file @file{INSTALL} in the @code{gawk} distribution for
+See the file @file{INSTALL} in the @command{gawk} distribution for
all the details.
-After you have run @code{configure}, and possibly edited the @file{Makefile},
+After you have run @command{configure} and possibly edited the @file{Makefile},
type:
@example
@@ -19017,91 +21865,406 @@ make
@end example
@noindent
-and shortly thereafter, you should have an executable version of @code{gawk}.
+Shortly thereafter, you should have an executable version of @command{gawk}.
That's all there is to it!
-(If these steps do not work, please send in a bug report;
-@pxref{Bugs, ,Reporting Problems and Bugs}.)
+To verify that @command{gawk} is working properly,
+run @samp{make check}. All of the tests should succeed.
+If these steps do not work, or if any of the tests fail,
+check the files in the @file{README_d} directory to see if you've
+found a known problem. If the failure is not described there,
+please send in a bug report
+(@pxref{Bugs, ,Reporting Problems and Bugs}.)
+
+@node Additional Configuration Options, Configuration Philosophy, Quick Installation, Unix Installation
+@appendixsubsec Additional Configuration Options
-@node Configuration Philosophy, , Quick Installation, Unix Installation
+There are several additional options you may use on the @command{configure}
+command line when compiling @command{gawk} from scratch.
+
+@table @code
+@cindex @code{--enable-portals} configuration option
+@cindex configuration option, @code{--enable-portals}
+@item --enable-portals
+This option causes @command{gawk} to treat pathnames that begin
+with @file{/p} as BSD portal files when doing two-way I/O with
+the @samp{|&} operator
+(@pxref{Portal Files, , Using @command{gawk} with BSD Portals}).
+
+@cindex Linux
+@cindex GNU/Linux
+@cindex @code{--with-included-gettext} configuration option
+@cindex configuration option, @code{--with-included-gettext}
+@item --with-included-gettext
+Use the version of the @code{gettext} library that comes with @command{gawk}.
+This option should be used on systems that do @emph{not} use @value{PVERSION} 2 (or later)
+of the GNU C library.
+All known modern GNU/Linux systems use Glibc 2. Use this option on any other system.
+
+@cindex @code{--disable-nls} configuration option
+@cindex configuration option, @code{--disable-nls}
+@item --disable-nls
+Disable all message translation facilities.
+This is usually not desirable, but it may bring you some slight performance
+improvement.
+You should also use this option if @option{--with-included-gettext}
+doesn't work on your system.
+@end table
+
+@node Configuration Philosophy, , Additional Configuration Options, Unix Installation
@appendixsubsec The Configuration Process
-@cindex configuring @code{gawk}
-(This section is of interest only if you know something about using the
-C language and the Unix operating system.)
+@cindex configuring @command{gawk}
+This @value{SECTION} is of interest only if you know something about using the
+C language and the Unix operating system.
-The source code for @code{gawk} generally attempts to adhere to formal
-standards wherever possible. This means that @code{gawk} uses library
-routines that are specified by the ANSI C standard and by the POSIX
-operating system interface standard. When using an ANSI C compiler,
+The source code for @command{gawk} generally attempts to adhere to formal
+standards wherever possible. This means that @command{gawk} uses library
+routines that are specified by the ISO C standard and by the POSIX
+operating system interface standard. When using an ISO C compiler,
function prototypes are used to help improve the compile-time checking.
-Many Unix systems do not support all of either the ANSI or the
-POSIX standards. The @file{missing} subdirectory in the @code{gawk}
-distribution contains replacement versions of those subroutines that are
+Many Unix systems do not support all of either the ISO or the
+POSIX standards. The @file{missing_d} subdirectory in the @command{gawk}
+distribution contains replacement versions of those functions that are
most likely to be missing.
-The @file{config.h} file that is created by the @code{configure} program
-contains definitions that describe features of the particular operating
-system where you are attempting to compile @code{gawk}. The three things
-described by this file are what header files are available, so that
-they can be correctly included,
-what (supposedly) standard functions are actually available in your C
-libraries, and
-other miscellaneous facts about your
-variant of Unix. For example, there may not be an @code{st_blksize}
-element in the @code{stat} structure. In this case @samp{HAVE_ST_BLKSIZE}
-would be undefined.
+The @file{config.h} file that @command{configure} creates contains
+definitions that describe features of the particular operating system
+where you are attempting to compile @command{gawk}. The three things
+described by this file are: what header files are available, so that
+they can be correctly included, what (supposedly) standard functions
+are actually available in your C libraries, and various miscellaneous
+facts about your variant of Unix. For example, there may not be an
+@code{st_blksize} element in the @code{stat} structure. In this case,
+@samp{HAVE_ST_BLKSIZE} is undefined.
@cindex @code{custom.h} configuration file
-It is possible for your C compiler to lie to @code{configure}. It may
+It is possible for your C compiler to lie to @command{configure}. It may
do so by not exiting with an error when a library function is not
-available. To get around this, you can edit the file @file{custom.h}.
+available. To get around this, edit the file @file{custom.h}.
Use an @samp{#ifdef} that is appropriate for your system, and either
-@code{#define} any constants that @code{configure} should have defined but
-didn't, or @code{#undef} any constants that @code{configure} defined and
+@code{#define} any constants that @command{configure} should have defined but
+didn't, or @code{#undef} any constants that @command{configure} defined and
should not have. @file{custom.h} is automatically included by
@file{config.h}.
-It is also possible that the @code{configure} program generated by
-@code{autoconf}
-will not work on your system in some other fashion. If you do have a problem,
-the file
-@file{configure.in} is the input for @code{autoconf}. You may be able to
-change this file, and generate a new version of @code{configure} that will
-work on your system. @xref{Bugs, ,Reporting Problems and Bugs}, for
-information on how to report problems in configuring @code{gawk}. The same
-mechanism may be used to send in updates to @file{configure.in} and/or
-@file{custom.h}.
+It is also possible that the @command{configure} program generated by
+@command{autoconf} will not work on your system in some other fashion.
+If you do have a problem, the file @file{configure.in} is the input for
+@command{autoconf}. You may be able to change this file and generate a
+new version of @command{configure} that works on your system
+(@pxref{Bugs, ,Reporting Problems and Bugs},
+for information on how to report problems in configuring @command{gawk}).
+The same mechanism may be used to send in updates to @file{configure.in}
+and/or @file{custom.h}.
+
+@node Non-Unix Installation, Unsupported, Unix Installation, Installation
+@appendixsec Installation on Other Operating Systems
+
+This @value{SECTION} describes how to install @command{gawk} on
+various non-Unix systems.
+
+@menu
+* Amiga Installation:: Installing @command{gawk} on an Amiga.
+* BeOS Installation:: Installing @command{gawk} on BeOS.
+* PC Installation:: Installing and Compiling @command{gawk} on
+ MS-DOS and OS/2.
+* VMS Installation:: Installing @command{gawk} on VMS.
+@end menu
+
+@node Amiga Installation, BeOS Installation, Non-Unix Installation, Non-Unix Installation
+@appendixsubsec Installing @command{gawk} on an Amiga
+
+@cindex amiga
+@cindex installation, amiga
+You can install @command{gawk} on an Amiga system using a Unix emulation
+environment, available via anonymous @command{ftp} from
+@code{ftp.ninemoons.com} in the directory @file{pub/ade/current}.
+This includes a shell based on @command{pdksh}. The primary component of
+this environment is a Unix emulation library, @file{ixemul.lib}.
+@c could really use more background here, who wrote this, etc.
+
+A more complete distribution for the Amiga is available on
+the Geek Gadgets CD-ROM, available from:
-@node VMS Installation, PC Installation, Unix Installation, Installation
-@appendixsec How to Compile and Install @code{gawk} on VMS
+@display
+CRONUS
+1840 E. Warner Road #105-265
+Tempe, AZ 85284 USA
+US Toll Free: (800) 804-0833
+Phone: +1-602-491-0442
+FAX: +1-602-491-0048
+Email: @email{info@@ninemoons.com}
+WWW: @uref{http://www.ninemoons.com}
+Anonymous @command{ftp} site: @code{ftp.ninemoons.com}
+@end display
+
+Once you have the distribution, you can configure @command{gawk} simply by
+running @command{configure}:
+
+@example
+configure -v m68k-amigaos
+@end example
+
+Then run @command{make} and you should be all set!
+If these steps do not work, please send in a bug report
+(@pxref{Bugs, ,Reporting Problems and Bugs}).
+
+@node BeOS Installation, PC Installation, Amiga Installation, Non-Unix Installation
+@appendixsubsec Installing @command{gawk} on BeOS
+@cindex BeOS
+@cindex installation, beos
+
+@c From email contributed by Martin Brown, mc@whoever.com
+Since BeOS DR9, all the tools that you should need to build @code{gawk} are
+included with BeOS. The process is basically identical to the Unix process
+of running @command{configure} and then @command{make}. Full instructions are given below.
+
+You can compile @command{gawk} under BeOS by extracting the standard sources
+and running @command{configure}. You @emph{must} specify the location
+prefix for the installation directory. For BeOS DR9 and beyond, the best directory to
+use is @file{/boot/home/config}, so the @command{configure} command is:
+
+@example
+configure --prefix=/boot/home/config
+@end example
+
+This installs the compiled application into @file{/boot/home/config/bin},
+which is already specified in the standard @env{PATH}.
+
+Once the configuration process is completed, you can run @command{make},
+and then @samp{make install}:
+
+@example
+$ make
+@dots{}
+$ make install
+@end example
+
+BeOS uses @command{bash} as its shell; thus, you use @command{gawk} the same way you would
+under Unix.
+If these steps do not work, please send in a bug report
+(@pxref{Bugs, ,Reporting Problems and Bugs}).
+
+@c Rewritten by Scott Deifik <scottd@amgen.com>
+@c and Darrel Hankerson <hankedr@mail.auburn.edu>
+
+@node PC Installation, VMS Installation, BeOS Installation, Non-Unix Installation
+@appendixsubsec Installation on PC Operating Systems
+
+@cindex installation, pc operating systems
+This @value{SECTION} covers installation and usage of @command{gawk} on x86 machines
+running DOS, any version of Windows, or OS/2.
+In this @value{SECTION}, the term ``Win32''
+refers to any of Windows-95/98/ME/NT/2000.
+
+The limitations of DOS (and DOS shells under Windows or OS/2) has meant
+that various ``DOS extenders'' are often used with programs such as
+@command{gawk}. The varying capabilities of Microsoft Windows 3.1
+and Win32 can add to the confusion. For an overview of the
+considerations, please refer to @file{README_d/README.pc} in the
+distribution.
+
+@menu
+* PC Binary Installation:: Installing a prepared distribution.
+* PC Compiling:: Compiling @command{gawk} for MS-DOS, Win32,
+ and OS/2.
+* PC Using:: Running @command{gawk} on MS-DOS, Win32 and
+ OS/2.
+@end menu
+
+@node PC Binary Installation, PC Compiling, PC Installation, PC Installation
+@appendixsubsubsec Installing a Prepared Distribution for PC Systems
+
+If you have received a binary distribution prepared by the DOS
+maintainers, then @command{gawk} and the necessary support files appear
+under the @file{gnu} directory, with executables in @file{gnu/bin},
+libraries in @file{gnu/lib/awk}, and manual pages under @file{gnu/man}.
+This is designed for easy installation to a @file{/gnu} directory on your
+drive---however, the files can be installed anywhere provided @env{AWKPATH} is
+set properly. Regardless of the installation directory, the first line of
+@file{igawk.cmd} and @file{igawk.bat} (in @file{gnu/bin}) may need to be
+edited.
+
+The binary distribution contains a separate file describing the
+contents. In particular, it may include more than one version of the
+@command{gawk} executable. OS/2 binary distributions may have a
+different arrangement, but installation is similar.
+
+@node PC Compiling, PC Using, PC Binary Installation, PC Installation
+@appendixsubsubsec Compiling @command{gawk} for PC Operating Systems
+
+@command{gawk} can be compiled for MS-DOS, Win32, and OS/2 using the GNU
+development tools from DJ Delorie (DJGPP; MS-DOS only) or Eberhard
+Mattes (EMX; MS-DOS, Win32 and OS/2). Microsoft Visual C/C++ can be used
+to build a Win32 version, and Microsoft C/C++ can be
+used to build 16-bit versions for MS-DOS and OS/2. The file
+@file{README_d/README.pc} in the @command{gawk} distribution contains
+additional notes, and @file{pc/Makefile} contains important information on
+compilation options.
+
+To build @command{gawk}, copy the files in the @file{pc} directory
+(@emph{except} for @file{ChangeLog}) to the directory with the rest of
+the @command{gawk} sources. The @file{Makefile} contains a configuration
+section with comments and may need to be edited in order to work with
+your @command{make} utility.
+
+The @file{Makefile} contains a number of targets for building various MS-DOS,
+Win32, and OS/2 versions. A list of targets is printed if the @command{make}
+command is given without a target. As an example, to build @command{gawk}
+using the DJGPP tools, enter @samp{make djgpp}.
+
+Using @command{make} to run the standard tests and to install @command{gawk}
+requires additional Unix-like tools, including @command{sh}, @command{sed}, and
+@command{cp}. In order to run the tests, the @file{test/*.ok} files may need to
+be converted so that they have the usual DOS-style end-of-line markers. Most
+of the tests work properly with Stewartson's shell along with the
+companion utilities or appropriate GNU utilities. However, some editing of
+@file{test/Makefile} is required. It is recommended that you copy the file
+@file{pc/Makefile.tst} over the file @file{test/Makefile} as a
+replacement. Details can be found in @file{README_d/README.pc}
+and in the file @file{pc/Makefile.tst}.
+
+@node PC Using, , PC Compiling, PC Installation
+@appendixsubsubsec Using @command{gawk} on PC Operating Systems
+
+@cindex search path
+@cindex directory search
+@cindex path, search
+@cindex search path, for source files
+The OS/2 and MS-DOS versions of @command{gawk} search for program files as
+described in @ref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}.
+However, semicolons (rather than colons) separate elements
+in the @env{AWKPATH} variable. If @env{AWKPATH} is not set or is empty,
+then the default search path is @code{@w{".;c:/lib/awk;c:/gnu/lib/awk"}}.
+
+An @command{sh}-like shell (as opposed to @command{command.com} under MS-DOS
+or @command{cmd.exe} under OS/2) may be useful for @command{awk} programming.
+Ian Stewartson has written an excellent shell for MS-DOS and OS/2,
+Daisuke Aoyama has ported GNU @command{bash} to MS-DOS using the DJGPP tools,
+and several shells are available for OS/2, including @command{ksh}. The file
+@file{README_d/README.pc} in the @command{gawk} distribution contains
+information on these shells. Users of Stewartson's shell on DOS should
+examine its documentation for handling command lines; in particular,
+the setting for @command{gawk} in the shell configuration may need to be
+changed and the @code{ignoretype} option may also be of interest.
+
+@cindex @code{BINMODE} variable
+Under OS/2 and DOS, @command{gawk} (and many other text programs) silently
+translate end-of-line @code{"\r\n"} to @code{"\n"} on input and @code{"\n"}
+to @code{"\r\n"} on output. A special @code{BINMODE} variable allows
+control over these translations and is interpreted as follows.
+
+@itemize @bullet
+@item
+If @code{BINMODE} is @samp{"r"}, or
+@code{(BINMODE & 1)} is nonzero, then
+binary mode is set on read (i.e., no translations on reads).
+
+@item
+If @code{BINMODE} is @code{"w"}, or
+@code{(BINMODE & 2)} is nonzero, then
+binary mode is set on write (i.e., no translations on writes).
+
+@item
+If @code{BINMODE} is @code{"rw"} or @code{"wr"},
+binary mode is set for both read and write
+(same as @code{(BINMODE & 3)}).
+
+@item
+@code{BINMODE=@var{non-null-string}} is
+the same as @samp{BINMODE=3} (i.e., no translations on
+reads or writes). However, @command{gawk} issues a warning
+message if the string is not one of @code{"rw"} or @code{"wr"}.
+@end itemize
+
+@noindent
+The modes for standard input and standard output are set one time
+only (after the
+command line is read, but before processing any of the @command{awk} program).
+Setting @code{BINMODE} for standard input or
+standard output is accomplished by using an
+appropriate @samp{-v BINMODE=@var{N}} option on the command line.
+@code{BINMODE} is set at the time a file or pipe is opened and cannot be
+changed mid-stream.
+
+The name @code{BINMODE} was chosen to match @command{mawk}
+(@pxref{Other Versions, , Other Freely Available @command{awk} Implementations}).
+Both @command{mawk} and @command{gawk} handle @code{BINMODE} similarly; however,
+@command{mawk} adds a @samp{-W BINMODE=@var{N}} option and an environment
+variable that can set @code{BINMODE}, @code{RS}, and @code{ORS}. The
+files @file{binmode[1-3].awk} (under @file{gnu/lib/awk} in some of the
+prepared distributions) have been chosen to match @command{mawk}'s @samp{-W
+BINMODE=@var{N}} option. These can be changed or discarded; in particular,
+the setting of @code{RS} giving the fewest ``surprises'' is open to debate.
+@command{mawk} uses @samp{RS = "\r\n"} if binary mode is set on read, which is
+appropriate for files with the DOS-style end-of-line.
+
+To Illustrate, the following examples set binary mode on writes for standard
+output and other files, and set @code{ORS} as the ``usual'' DOS-style
+end-of-line:
+
+@example
+gawk -v BINMODE=2 -v ORS="\r\n" @dots{}
+@end example
+
+@noindent
+or:
+
+@example
+gawk -v BINMODE=w -f binmode2.awk @dots{}
+@end example
+
+@noindent
+These give the same result as the @samp{-W BINMODE=2} option in
+@command{mawk}.
+The following changes the record separator to @code{"\r\n"} and sets binary
+mode on reads, but does not affect the mode on standard input:
+
+@example
+gawk -v RS="\r\n" --source "BEGIN @{ BINMODE = 1 @}" @dots{}
+@end example
+
+@noindent
+or:
+
+@example
+gawk -f binmode1.awk @dots{}
+@end example
+
+@noindent
+With proper quoting, in the first example the setting of @code{RS} can be
+moved into the @code{BEGIN} rule.
+
+@node VMS Installation, , PC Installation, Non-Unix Installation
+@appendixsubsec How to Compile and Install @command{gawk} on VMS
@c based on material from Pat Rankin <rankin@eql.caltech.edu>
@cindex installation, vms
-This section describes how to compile and install @code{gawk} under VMS.
+This @value{SUBSECTION} describes how to compile and install @command{gawk} under VMS.
@menu
-* VMS Compilation:: How to compile @code{gawk} under VMS.
-* VMS Installation Details:: How to install @code{gawk} under VMS.
-* VMS Running:: How to run @code{gawk} under VMS.
+* VMS Compilation:: How to compile @command{gawk} under VMS.
+* VMS Installation Details:: How to install @command{gawk} under VMS.
+* VMS Running:: How to run @command{gawk} under VMS.
* VMS POSIX:: Alternate instructions for VMS POSIX.
@end menu
@node VMS Compilation, VMS Installation Details, VMS Installation, VMS Installation
-@appendixsubsec Compiling @code{gawk} on VMS
+@appendixsubsubsec Compiling @command{gawk} on VMS
-To compile @code{gawk} under VMS, there is a @code{DCL} command procedure that
-will issue all the necessary @code{CC} and @code{LINK} commands, and there is
+To compile @command{gawk} under VMS, there is a @code{DCL} command procedure that
+issues all the necessary @code{CC} and @code{LINK} commands. There is
also a @file{Makefile} for use with the @code{MMS} utility. From the source
-directory, use either
+directory, use either:
@example
$ @@[.VMS]VMSBUILD.COM
@end example
@noindent
-or
+or:
@example
$ MMS/DESCRIPTION=[.VMS]DESCRIP.MMS GAWK
@@ -19125,21 +22288,21 @@ and comment out or delete the two lines @samp{#define __STDC__ 0} and
@item GNU C
Edit @file{vmsbuild.com} or @file{descrip.mms}; the changes are different
-from those for VAX C V2.x, but equally straightforward. No changes to
-@file{config.h} should be needed.
+from those for VAX C V2.x but equally straightforward. No changes to
+@file{config.h} are needed.
@item DEC C
Edit @file{vmsbuild.com} or @file{descrip.mms} according to their comments.
-No changes to @file{config.h} should be needed.
+No changes to @file{config.h} are needed.
@end table
-@code{gawk} has been tested under VAX/VMS 5.5-1 using VAX C V3.2,
+@command{gawk} has been tested under VAX/VMS 5.5-1 using VAX C V3.2, and
GNU C 1.40 and 2.3. It should work without modifications for VMS V4.6 and up.
@node VMS Installation Details, VMS Running, VMS Compilation, VMS Installation
-@appendixsubsec Installing @code{gawk} on VMS
+@appendixsubsubsec Installing @command{gawk} on VMS
-To install @code{gawk}, all you need is a ``foreign'' command, which is
+To install @command{gawk}, all you need is a ``foreign'' command, which is
a @code{DCL} symbol whose value begins with a dollar sign. For example:
@example
@@ -19147,13 +22310,13 @@ $ GAWK :== $disk1:[gnubin]GAWK
@end example
@noindent
-(Substitute the actual location of @code{gawk.exe} for
-@samp{$disk1:[gnubin]}.) The symbol should be placed in the
-@file{login.com} of any user who wishes to run @code{gawk},
-so that it will be defined every time the user logs on.
+Substitute the actual location of @command{gawk.exe} for
+@samp{$disk1:[gnubin]}. The symbol should be placed in the
+@file{login.com} of any user who wants to run @command{gawk},
+so that it is defined every time the user logs on.
Alternatively, the symbol may be placed in the system-wide
-@file{sylogin.com} procedure, which will allow all users
-to run @code{gawk}.
+@file{sylogin.com} procedure, which allows all users
+to run @command{gawk}.
Optionally, the help entry can be loaded into a VMS help library:
@@ -19164,31 +22327,32 @@ $ LIBRARY/HELP SYS$HELP:HELPLIB [.VMS]GAWK.HLP
@noindent
(You may want to substitute a site-specific help library rather than
the standard VMS library @samp{HELPLIB}.) After loading the help text,
+the command:
@example
$ HELP GAWK
@end example
@noindent
-will provide information about both the @code{gawk} implementation and the
-@code{awk} programming language.
+provides information about both the @command{gawk} implementation and the
+@command{awk} programming language.
The logical name @samp{AWK_LIBRARY} can designate a default location
-for @code{awk} program files. For the @samp{-f} option, if the specified
-filename has no device or directory path information in it, @code{gawk}
-will look in the current directory first, then in the directory specified
-by the translation of @samp{AWK_LIBRARY} if the file was not found.
-If after searching in both directories, the file still is not found,
-then @code{gawk} appends the suffix @samp{.awk} to the filename and the
-file search will be re-tried. If @samp{AWK_LIBRARY} is not defined, that
-portion of the file search will fail benignly.
+for @command{awk} program files. For the @option{-f} option, if the specified
+@value{FN} has no device or directory path information in it, @command{gawk}
+looks in the current directory first, then in the directory specified
+by the translation of @samp{AWK_LIBRARY} if the file is not found.
+If, after searching in both directories, the file still is not found,
+@command{gawk} appends the suffix @samp{.awk} to the filename and retries
+the file search. If @samp{AWK_LIBRARY} is not defined, that
+portion of the file search fails benignly.
@node VMS Running, VMS POSIX, VMS Installation Details, VMS Installation
-@appendixsubsec Running @code{gawk} on VMS
+@appendixsubsubsec Running @command{gawk} on VMS
-Command line parsing and quoting conventions are significantly different
+Command-line parsing and quoting conventions are significantly different
on VMS, so examples in this @value{DOCUMENT} or from other sources often need minor
-changes. They @emph{are} minor though, and all @code{awk} programs
+changes. They @emph{are} minor though, and all @command{awk} programs
should run correctly.
Here are a couple of trivial tests:
@@ -19200,284 +22364,246 @@ $ gawk -"W" version
@end example
@noindent
-Note that upper-case and mixed-case text must be quoted.
+Note that uppercase and mixed-case text must be quoted.
-The VMS port of @code{gawk} includes a @code{DCL}-style interface in addition
+The VMS port of @command{gawk} includes a @code{DCL}-style interface in addition
to the original shell-style interface (see the help entry for details).
-One side-effect of dual command line parsing is that if there is only a
+One side effect of dual command-line parsing is that if there is only a
single parameter (as in the quoted string program above), the command
-becomes ambiguous. To work around this, the normally optional @samp{--}
+becomes ambiguous. To work around this, the normally optional @option{--}
flag is required to force Unix style rather than @code{DCL} parsing. If any
-other dash-type options (or multiple parameters such as data files to be
-processed) are present, there is no ambiguity and @samp{--} can be omitted.
+other dash-type options (or multiple parameters such as @value{DF}s to
+process) are present, there is no ambiguity and @option{--} can be omitted.
-The default search path when looking for @code{awk} program files specified
-by the @samp{-f} option is @code{"SYS$DISK:[],AWK_LIBRARY:"}. The logical
+@cindex search path
+@cindex directory search
+@cindex path, search
+@cindex search path, for source files
+The default search path, when looking for @command{awk} program files specified
+by the @option{-f} option, is @code{"SYS$DISK:[],AWK_LIBRARY:"}. The logical
name @samp{AWKPATH} can be used to override this default. The format
of @samp{AWKPATH} is a comma-separated list of directory specifications.
When defining it, the value should be quoted so that it retains a single
-translation, and not a multi-translation @code{RMS} searchlist.
+translation and not a multitranslation @code{RMS} searchlist.
-@node VMS POSIX, , VMS Running, VMS Installation
-@appendixsubsec Building and Using @code{gawk} on VMS POSIX
+@node VMS POSIX, , VMS Running, VMS Installation
+@appendixsubsubsec Building and Using @command{gawk} on VMS POSIX
Ignore the instructions above, although @file{vms/gawk.hlp} should still
be made available in a help library. The source tree should be unpacked
-into a container file subsystem rather than into the ordinary VMS file
-system. Make sure that the two scripts, @file{configure} and
+into a container file subsystem rather than into the ordinary VMS filesystem.
+Make sure that the two scripts, @file{configure} and
@file{vms/posix-cc.sh}, are executable; use @samp{chmod +x} on them if
necessary. Then execute the following two commands:
@example
-@group
psx> CC=vms/posix-cc.sh configure
psx> make CC=c89 gawk
-@end group
@end example
@noindent
-The first command will construct files @file{config.h} and @file{Makefile} out
-of templates, using a script to make the C compiler fit @code{configure}'s
-expectations. The second command will compile and link @code{gawk} using
-the C compiler directly; ignore any warnings from @code{make} about being
-unable to redefine @code{CC}. @code{configure} will take a very long
-time to execute, but at least it provides incremental feedback as it
-runs.
+The first command constructs files @file{config.h} and @file{Makefile} out
+of templates, using a script to make the C compiler fit @command{configure}'s
+expectations. The second command compiles and links @command{gawk} using
+the C compiler directly; ignore any warnings from @command{make} about being
+unable to redefine @code{CC}. @command{configure} takes a very long
+time to execute, but at least it provides incremental feedback as it runs.
This has been tested with VAX/VMS V6.2, VMS POSIX V2.0, and DEC C V5.2.
-Once built, @code{gawk} will work like any other shell utility. Unlike
-the normal VMS port of @code{gawk}, no special command line manipulation is
+Once built, @command{gawk} works like any other shell utility. Unlike
+the normal VMS port of @command{gawk}, no special command-line manipulation is
needed in the VMS POSIX environment.
-@c Rewritten by Scott Deifik <scottd@amgen.com>
-@c and Darrel Hankerson <hankedr@mail.auburn.edu>
-@node PC Installation, Atari Installation, VMS Installation, Installation
-@appendixsec MS-DOS and OS/2 Installation and Compilation
+@node Unsupported, Bugs, Non-Unix Installation, Installation
+@appendixsec Unsupported Operating System Ports
-@cindex installation, MS-DOS and OS/2
-If you have received a binary distribution prepared by the DOS
-maintainers, then @code{gawk} and the necessary support files will appear
-under the @file{gnu} directory, with executables in @file{gnu/bin},
-libraries in @file{gnu/lib/awk}, and manual pages under @file{gnu/man}.
-This is designed for easy installation to a @file{/gnu} directory on your
-drive, but the files can be installed anywhere provided @code{AWKPATH} is
-set properly. Regardless of the installation directory, the first line of
-@file{igawk.cmd} and @file{igawk.bat} (in @file{gnu/bin}) may need to be
-edited.
+This sections describes systems for which
+the @command{gawk} port is no longer supported.
-The binary distribution will contain a separate file describing the
-contents. In particular, it may include more than one version of the
-@code{gawk} executable. OS/2 binary distributions may have a
-different arrangement, but installation is similar.
-
-The OS/2 and MS-DOS versions of @code{gawk} search for program files as
-described in @ref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}.
-However, semicolons (rather than colons) separate elements
-in the @code{AWKPATH} variable. If @code{AWKPATH} is not set or is empty,
-then the default search path is @code{@w{".;c:/lib/awk;c:/gnu/lib/awk"}}.
+@menu
+* Atari Installation:: Installing @command{gawk} on the Atari ST.
+* Tandem Installation:: Installing @command{gawk} on a Tandem.
+@end menu
-An @code{sh}-like shell (as opposed to @code{command.com} under MS-DOS
-or @code{cmd.exe} under OS/2) may be useful for @code{awk} programming.
-Ian Stewartson has written an excellent shell for MS-DOS and OS/2, and a
-@code{ksh} clone and GNU Bash are available for OS/2. The file
-@file{README_d/README.pc} in the @code{gawk} distribution contains
-information on these shells. Users of Stewartson's shell on DOS should
-examine its documentation on handling of command-lines. In particular,
-the setting for @code{gawk} in the shell configuration may need to be
-changed, and the @code{ignoretype} option may also be of interest.
-
-@code{gawk} can be compiled for MS-DOS and OS/2 using the GNU development tools
-from DJ Delorie (DJGPP, MS-DOS-only) or Eberhard Mattes (EMX, MS-DOS and OS/2).
-Microsoft C can be used to build 16-bit versions for MS-DOS and OS/2. The file
-@file{README_d/README.pc} in the @code{gawk} distribution contains additional
-notes, and @file{pc/Makefile} contains important notes on compilation options.
-
-To build @code{gawk}, copy the files in the @file{pc} directory (@emph{except}
-for @file{ChangeLog}) to the
-directory with the rest of the @code{gawk} sources. The @file{Makefile}
-contains a configuration section with comments, and may need to be
-edited in order to work with your @code{make} utility.
-
-The @file{Makefile} contains a number of targets for building various MS-DOS
-and OS/2 versions. A list of targets will be printed if the @code{make}
-command is given without a target. As an example, to build @code{gawk}
-using the DJGPP tools, enter @samp{make djgpp}.
+@node Atari Installation, Tandem Installation, Unsupported, Unsupported
+@appendixsubsec Installing @command{gawk} on the Atari ST
-Using @code{make} to run the standard tests and to install @code{gawk}
-requires additional Unix-like tools, including @code{sh}, @code{sed}, and
-@code{cp}. In order to run the tests, the @file{test/*.ok} files may need to
-be converted so that they have the usual DOS-style end-of-line markers. Most
-of the tests will work properly with Stewartson's shell along with the
-companion utilities or appropriate GNU utilities. However, some editing of
-@file{test/Makefile} is required. It is recommended that the file
-@file{pc/Makefile.tst} be copied to @file{test/Makefile} as a
-replacement. Details can be found in @file{README_d/README.pc}.
-
-@node Atari Installation, Amiga Installation, PC Installation, Installation
-@appendixsec Installing @code{gawk} on the Atari ST
+The Atari port is no longer supported. It is
+included for those who might want to use it but it is no longer being
+actively maintained.
@c based on material from Michal Jaegermann <michal@gortel.phys.ualberta.ca>
-
@cindex atari
@cindex installation, atari
-There are no substantial differences when installing @code{gawk} on
-various Atari models. Compiled @code{gawk} executables do not require
-a large amount of memory with most @code{awk} programs and should run on all
-Motorola processor based models (called further ST, even if that is not
+There are no substantial differences when installing @command{gawk} on
+various Atari models. Compiled @command{gawk} executables do not require
+a large amount of memory with most @command{awk} programs, and should run on all
+Motorola processor-based models (called further ST, even if that is not
exactly right).
-In order to use @code{gawk}, you need to have a shell, either text or
+In order to use @command{gawk}, you need to have a shell, either text or
graphics, that does not map all the characters of a command line to
-upper-case. Maintaining case distinction in option flags is very
-important (@pxref{Options, ,Command Line Options}).
-These days this is the default, and it may only be a problem for some
+uppercase. Maintaining case distinction in option flags is very
+important (@pxref{Options, ,Command-Line Options}).
+These days this is the default and it may only be a problem for some
very old machines. If your system does not preserve the case of option
-flags, you will need to upgrade your tools. Support for I/O
-redirection is necessary to make it easy to import @code{awk} programs
-from other environments. Pipes are nice to have, but not vital.
+flags, you need to upgrade your tools. Support for I/O
+redirection is necessary to make it easy to import @command{awk} programs
+from other environments. Pipes are nice to have but not vital.
@menu
-* Atari Compiling:: Compiling @code{gawk} on Atari
-* Atari Using:: Running @code{gawk} on Atari
+* Atari Compiling:: Compiling @command{gawk} on Atari.
+* Atari Using:: Running @command{gawk} on Atari.
@end menu
@node Atari Compiling, Atari Using, Atari Installation, Atari Installation
-@appendixsubsec Compiling @code{gawk} on the Atari ST
+@appendixsubsubsec Compiling @command{gawk} on the Atari ST
-A proper compilation of @code{gawk} sources when @code{sizeof(int)}
-differs from @code{sizeof(void *)} requires an ANSI C compiler. An initial
-port was done with @code{gcc}. You may actually prefer executables
-where @code{int}s are four bytes wide, but the other variant works as well.
+A proper compilation of @command{gawk} sources when @code{sizeof(int)}
+differs from @code{sizeof(void *)} requires an ISO C compiler. An initial
+port was done with @command{gcc}. You may actually prefer executables
+where @code{int}s are four bytes wide but the other variant works as well.
-You may need quite a bit of memory when trying to recompile the @code{gawk}
+You may need quite a bit of memory when trying to recompile the @command{gawk}
sources, as some source files (@file{regex.c} in particular) are quite
big. If you run out of memory compiling such a file, try reducing the
-optimization level for this particular file; this may help.
+optimization level for this particular file, which may help.
@cindex Linux
-With a reasonable shell (Bash will do), and in particular if you run
-Linux, MiNT or a similar operating system, you have a pretty good
-chance that the @code{configure} utility will succeed. Otherwise
+@cindex GNU/Linux
+With a reasonable shell (@command{bash} will do), you have a pretty good chance
+that the @command{configure} utility will succeed, and in particular if
+you run GNU/Linux, MiNT or a similar operating system. Otherwise
sample versions of @file{config.h} and @file{Makefile.st} are given in the
@file{atari} subdirectory and can be edited and copied to the
corresponding files in the main source directory. Even if
-@code{configure} produced something, it might be advisable to compare
+@command{configure} produces something, it might be advisable to compare
its results with the sample versions and possibly make adjustments.
-Some @code{gawk} source code fragments depend on a preprocessor define
-@samp{atarist}. This basically assumes the TOS environment with @code{gcc}.
+Some @command{gawk} source code fragments depend on a preprocessor define
+@samp{atarist}. This basically assumes the TOS environment with @command{gcc}.
Modify these sections as appropriate if they are not right for your
-environment. Also see the remarks about @code{AWKPATH} and @code{envsep} in
-@ref{Atari Using, ,Running @code{gawk} on the Atari ST}.
+environment. Also see the remarks about @env{AWKPATH} and @code{envsep} in
+@ref{Atari Using, ,Running @command{gawk} on the Atari ST}.
As shipped, the sample @file{config.h} claims that the @code{system}
function is missing from the libraries, which is not true, and an
alternative implementation of this function is provided in
-@file{atari/system.c}. Depending upon your particular combination of
-shell and operating system, you may wish to change the file to indicate
+@file{unsupported/atari/system.c}.
+Depending upon your particular combination of
+shell and operating system, you might want to change the file to indicate
that @code{system} is available.
@node Atari Using, , Atari Compiling, Atari Installation
-@appendixsubsec Running @code{gawk} on the Atari ST
+@appendixsubsubsec Running @command{gawk} on the Atari ST
-An executable version of @code{gawk} should be placed, as usual,
-anywhere in your @code{PATH} where your shell can find it.
+An executable version of @command{gawk} should be placed, as usual,
+anywhere in your @env{PATH} where your shell can find it.
-While executing, @code{gawk} creates a number of temporary files. When
-using @code{gcc} libraries for TOS, @code{gawk} looks for either of
-the environment variables @code{TEMP} or @code{TMPDIR}, in that order.
+While executing, the Atari version of @command{gawk} creates a number of temporary files. When
+using @command{gcc} libraries for TOS, @command{gawk} looks for either of
+the environment variables, @env{TEMP} or @env{TMPDIR}, in that order.
If either one is found, its value is assumed to be a directory for
temporary files. This directory must exist, and if you can spare the
memory, it is a good idea to put it on a RAM drive. If neither
-@code{TEMP} nor @code{TMPDIR} are found, then @code{gawk} uses the
+@env{TEMP} nor @env{TMPDIR} are found, then @command{gawk} uses the
current directory for its temporary files.
-The ST version of @code{gawk} searches for its program files as described in
-@ref{AWKPATH Variable, ,The @code{AWKPATH} Environment Variable}.
-The default value for the @code{AWKPATH} variable is taken from
-@code{DEFPATH} defined in @file{Makefile}. The sample @code{gcc}/TOS
+The ST version of @command{gawk} searches for its program files, as described in
+@ref{AWKPATH Variable, ,The @env{AWKPATH} Environment Variable}.
+The default value for the @env{AWKPATH} variable is taken from
+@code{DEFPATH} defined in @file{Makefile}. The sample @command{gcc}/TOS
@file{Makefile} for the ST in the distribution sets @code{DEFPATH} to
@code{@w{".,c:\lib\awk,c:\gnu\lib\awk"}}. The search path can be
-modified by explicitly setting @code{AWKPATH} to whatever you wish.
+modified by explicitly setting @env{AWKPATH} to whatever you want.
Note that colons cannot be used on the ST to separate elements in the
-@code{AWKPATH} variable, since they have another, reserved, meaning.
+@env{AWKPATH} variable, since they have another reserved meaning.
Instead, you must use a comma to separate elements in the path. When
recompiling, the separating character can be modified by initializing
-the @code{envsep} variable in @file{atari/gawkmisc.atr} to another
+the @code{envsep} variable in @file{unsupported/atari/gawkmisc.atr} to another
value.
-Although @code{awk} allows great flexibility in doing I/O redirections
+Although @command{awk} allows great flexibility in doing I/O redirections
from within a program, this facility should be used with care on the ST
-running under TOS. In some circumstances the OS routines for file
-handle pool processing lose track of certain events, causing the
-computer to crash, and requiring a reboot. Often a warm reboot is
-sufficient. Fortunately, this happens infrequently, and in rather
+running under TOS. In some circumstances, the OS routines for file-handle
+pool processing lose track of certain events, causing the
+computer to crash and requiring a reboot. Often a warm reboot is
+sufficient. Fortunately, this happens infrequently and in rather
esoteric situations. In particular, avoid having one part of an
-@code{awk} program using @code{print} statements explicitly redirected
-to @code{"/dev/stdout"}, while other @code{print} statements use the
+@command{awk} program using @code{print} statements explicitly redirected
+to @file{/dev/stdout}, while other @code{print} statements use the
default standard output, and a calling shell has redirected standard
output to a file.
+@c 10/2000: Is this still true, now that gawk does /dev/stdout internally?
-When @code{gawk} is compiled with the ST version of @code{gcc} and its
-usual libraries, it will accept both @samp{/} and @samp{\} as path separators.
-While this is convenient, it should be remembered that this removes one,
-technically valid, character (@samp{/}) from your file names, and that
-it may create problems for external programs, called via the @code{system}
+When @command{gawk} is compiled with the ST version of @command{gcc} and its
+usual libraries, it accepts both @samp{/} and @samp{\} as path separators.
+While this is convenient, it should be remembered that this removes one
+technically valid character (@samp{/}) from your @value{FN}.
+It may also create problems for external programs called via the @code{system}
function, which may not support this convention. Whenever it is possible
-that a file created by @code{gawk} will be used by some other program,
-use only backslashes. Also remember that in @code{awk}, backslashes in
+that a file created by @command{gawk} will be used by some other program,
+use only backslashes. Also remember that in @command{awk}, backslashes in
strings have to be doubled in order to get literal backslashes
(@pxref{Escape Sequences}).
-@node Amiga Installation, Bugs, Atari Installation, Installation
-@appendixsec Installing @code{gawk} on an Amiga
-
-@cindex amiga
-@cindex installation, amiga
-You can install @code{gawk} on an Amiga system using a Unix emulation
-environment available via anonymous @code{ftp} from
-@code{ftp.ninemoons.com} in the directory @file{pub/ade/current}.
-This includes a shell based on @code{pdksh}. The primary component of
-this environment is a Unix emulation library, @file{ixemul.lib}.
-@c could really use more background here, who wrote this, etc.
-
-A more complete distribution for the Amiga is available on
-the Geek Gadgets CD-ROM from:
-
-@quotation
-CRONUS @*
-1840 E. Warner Road #105-265 @*
-Tempe, AZ 85284 USA @*
-US Toll Free: (800) 804-0833 @*
-Phone: +1-602-491-0442 @*
-FAX: +1-602-491-0048 @*
-Email: @code{info@@ninemoons.com} @*
-WWW: @code{http://www.ninemoons.com} @*
-Anonymous @code{ftp} site: @code{ftp.ninemoons.com} @*
-@end quotation
-
-Once you have the distribution, you can configure @code{gawk} simply by
-running @code{configure}:
-
-@example
-configure -v m68k-amigaos
-@end example
+@node Tandem Installation, , Atari Installation, Unsupported
+@appendixsubsec Installing @command{gawk} on a Tandem
+@cindex tandem
+@cindex installation, tandem
-Then run @code{make}, and you should be all set!
-(If these steps do not work, please send in a bug report;
-@pxref{Bugs, ,Reporting Problems and Bugs}.)
+The Tandem port is only minimally supported.
+The port's contributor no longer has access to a Tandem system.
-@node Bugs, Other Versions, Amiga Installation, Installation
+@c This section based on README.Tandem by Stephen Davies (scldad@sdc.com.au)
+The Tandem port was done on a Cyclone machine running D20.
+The port is pretty clean and all facilities seem to work except for
+the I/O piping facilities
+(@pxref{Getline/Pipe, , Using @code{getline} from a Pipe},
+@ref{Getline/Variable/Pipe, ,Using @code{getline} into a Variable from a Pipe},
+and
+@ref{Redirection, ,Redirecting Output of @code{print} and @code{printf}}),
+which is just too foreign a concept for Tandem.
+
+To build a Tandem executable from source, download all of the files so
+that the @value{FN}s on the Tandem box conform to the restrictions of D20.
+For example, @file{array.c} becomes @file{ARRAYC}, and @file{awk.h}
+becomes @file{AWKH}. The totally Tandem-specific files are in the
+@file{tandem} ``subvolume'' (@file{unsupported/tandem} in the @command{gawk}
+distribution) and should be copied to the main source directory before
+building @command{gawk}.
+
+The file @file{compit} can then be used to compile and bind an executable.
+Alas, there is no @command{configure} or @command{make}.
+
+Usage is the same as for Unix, except that D20 requires all @samp{@{} and
+@samp{@}} characters to be escaped with @samp{~} on the command line
+(but @emph{not} in script files). Also, the standard Tandem syntax for
+@samp{/in filename,out filename/} must be used instead of the usual
+Unix @samp{<} and @samp{>} for file redirection. (Redirection options
+on @code{getline}, @code{print} etc., are supported.)
+
+The @samp{-mr @var{val}} option
+(@pxref{Options, ,Command-Line Options})
+has been ``stolen'' to enable Tandem users to process fixed-length
+records with no ``end-of-line'' character. That is, @samp{-mr 74} tells
+@command{gawk} to read the input file as fixed 74-byte records.
+
+@node Bugs, Other Versions, Unsupported, Installation
@appendixsec Reporting Problems and Bugs
-@display
-@i{There is nothing more dangerous than a bored archeologist.}
+@cindex archeologists
+@quotation
+@i{There is nothing more dangerous than a bored archeologist.}@*
The Hitchhiker's Guide to the Galaxy
+@end quotation
@c the radio show, not the book. :-)
-@end display
-@sp 1
-If you have problems with @code{gawk} or think that you have found a bug,
+@cindex bug reports
+@cindex problem reports
+@cindex reporting bugs
+@cindex reporting problems
+If you have problems with @command{gawk} or think that you have found a bug,
please report it to the developers; we cannot promise to do anything
but we might well want to fix it.
@@ -19487,74 +22613,114 @@ what you're trying to do. If it's not clear whether you should be able
to do something or not, report that too; it's a bug in the documentation!
Before reporting a bug or trying to fix it yourself, try to isolate it
-to the smallest possible @code{awk} program and input data file that
-reproduces the problem. Then send us the program and data file,
-some idea of what kind of Unix system you're using, and the exact results
-@code{gawk} gave you. Also say what you expected to occur; this will help
-us decide whether the problem was really in the documentation.
-
+to the smallest possible @command{awk} program and input @value{DF} that
+reproduces the problem. Then send us the program and @value{DF},
+some idea of what kind of Unix system you're using,
+the compiler you used to compile @command{gawk}, and the exact results
+@command{gawk} gave you. Also say what you expected to occur; this helps
+us decide whether the problem is really in the documentation.
+
+@cindex @code{bug-gawk@@gnu.org} bug reporting address
+@cindex emaill address for bug reports, @code{bug-gawk@@gnu.org}
+@cindex bug reports, email address, @code{bug-gawk@@gnu.org}
Once you have a precise problem, send email to @email{bug-gawk@@gnu.org}.
-Please include the version number of @code{gawk} you are using.
+@cindex Robbins, Arnold
+Please include the version number of @command{gawk} you are using.
You can get this information with the command @samp{gawk --version}.
-Using this address will automatically send a carbon copy of your
-mail to Arnold Robbins. If necessary, he can be reached directly at
-@email{arnold@@gnu.org}.
-
-@cindex @code{comp.lang.awk}
-@strong{Important!} Do @emph{not} try to report bugs in @code{gawk} by
+Using this address automatically sends a carbon copy of your
+mail to me. If necessary, I can be reached directly at
+@email{arnold@@gnu.org}. The bug reporting address is preferred since the
+email list is archived at the GNU Project.
+@emph{All email should be in English, since that is my native language.}
+
+@cindex @code{comp.lang.awk} Usenet news group
+@strong{Caution:} Do @emph{not} try to report bugs in @command{gawk} by
posting to the Usenet/Internet newsgroup @code{comp.lang.awk}.
-While the @code{gawk} developers do occasionally read this newsgroup,
+While the @command{gawk} developers do occasionally read this newsgroup,
there is no guarantee that we will see your posting. The steps described
-above are the official, recognized ways for reporting bugs.
+above are the official recognized ways for reporting bugs.
Non-bug suggestions are always welcome as well. If you have questions
about things that are unclear in the documentation or are just obscure
-features, ask Arnold Robbins; he will try to help you out, although he
-may not have the time to fix the problem. You can send him electronic
-mail at the Internet address above.
+features, ask me; I will try to help you out, although I
+may not have the time to fix the problem. You can send me electronic
+mail at the Internet address noted previously.
-If you find bugs in one of the non-Unix ports of @code{gawk}, please send
+If you find bugs in one of the non-Unix ports of @command{gawk}, please send
an electronic mail message to the person who maintains that port. They
-are listed below, and also in the @file{README} file in the @code{gawk}
+are named in the following list, as well as in the @file{README} file in the @command{gawk}
distribution. Information in the @file{README} file should be considered
authoritative if it conflicts with this @value{DOCUMENT}.
-@c NEEDED for looks
-@page
-The people maintaining the non-Unix ports of @code{gawk} are:
+The people maintaining the non-Unix ports of @command{gawk} are
+as follows:
-@cindex Deifik, Scott
+@ignore
+@table @asis
@cindex Fish, Fred
+@item Amiga
+Fred Fish, @email{fnf@@ninemoons.com}.
+
+@cindex Brown, Martin
+@item BeOS
+Martin Brown, @email{mc@@whoever.com}.
+
+@cindex Deifik, Scott
@cindex Hankerson, Darrel
-@cindex Jaegermann, Michal
-@cindex Rankin, Pat
-@cindex Rommel, Kai Uwe
-@table @asis
@item MS-DOS
-Scott Deifik, @samp{scottd@@amgen.com}, and
-Darrel Hankerson, @samp{hankedr@@mail.auburn.edu}.
+Scott Deifik, @email{scottd@@amgen.com} and
+Darrel Hankerson, @email{hankedr@@mail.auburn.edu}.
+@cindex Grigera, Juan
+@item MS-Windows
+Juan Grigera, @email{juan@@biophnet.unlp.edu.ar}.
+
+@cindex Rommel, Kai Uwe
@item OS/2
-Kai Uwe Rommel, @samp{rommel@@ars.de}.
+Kai Uwe Rommel, @email{rommel@@ars.de}.
+@cindex Davies, Stephen
+@item Tandem
+Stephen Davies, @email{scldad@@sdc.com.au}.
+
+@cindex Rankin, Pat
@item VMS
-Pat Rankin, @samp{rankin@@eql.caltech.edu}.
+Pat Rankin, @email{rankin@@eql.caltech.edu}.
+@end table
+@end ignore
-@item Atari ST
-Michal Jaegermann, @samp{michal@@gortel.phys.ualberta.ca}.
+@multitable {MS-Windows} {123456789012345678901234567890123456789001234567890}
+@cindex Fish, Fred
+@item Amiga @tab Fred Fish, @email{fnf@@ninemoons.com}.
-@item Amiga
-Fred Fish, @samp{fnf@@ninemoons.com}.
-@end table
+@cindex Brown, Martin
+@item BeOS @tab Martin Brown, @email{mc@@whoever.com}.
+
+@cindex Deifik, Scott
+@cindex Hankerson, Darrel
+@item MS-DOS @tab Scott Deifik, @email{scottd@@amgen.com} and
+Darrel Hankerson, @email{hankedr@@mail.auburn.edu}.
+
+@cindex Grigera, Juan
+@item MS-Windows @tab Juan Grigera, @email{juan@@biophnet.unlp.edu.ar}.
+
+@cindex Rommel, Kai Uwe
+@item OS/2 @tab Kai Uwe Rommel, @email{rommel@@ars.de}.
+
+@cindex Davies, Stephen
+@item Tandem @tab Stephen Davies, @email{scldad@@sdc.com.au}.
-If your bug is also reproducible under Unix, please send copies of your
-report to the general GNU bug list, as well as to Arnold Robbins, at the
-addresses listed above.
+@cindex Rankin, Pat
+@item VMS @tab Pat Rankin, @email{rankin@@eql.caltech.edu}.
+@end multitable
+
+If your bug is also reproducible under Unix, please send a copy of your
+report to the @email{bug-gawk@@gnu.org} email list as well.
@node Other Versions, , Bugs, Installation
-@appendixsec Other Freely Available @code{awk} Implementations
-@cindex Brennan, Michael
+@appendixsec Other Freely Available @command{awk} Implementations
+@cindex other @command{awk} implementations
@ignore
From: emory!amc.com!brennan (Michael Brennan)
Subject: C++ comments in awk programs
@@ -19562,77 +22728,168 @@ To: arnold@gnu.ai.mit.edu (Arnold Robbins)
Date: Wed, 4 Sep 1996 08:11:48 -0700 (PDT)
@end ignore
-@display
-@i{It's kind of fun to put comments like this in your awk code.}
- @code{// Do C++ comments work? answer: yes! of course}
+@cindex Brennan, Michael
+@quotation
+@i{It's kind of fun to put comments like this in your awk code.}@*
+@ @ @ @ @ @ @code{// Do C++ comments work? answer: yes! of course}@*
Michael Brennan
-@end display
-@sp 1
+@end quotation
-There are two other freely available @code{awk} implementations.
-This section briefly describes where to get them.
+There are three other freely available @command{awk} implementations.
+This @value{SECTION} briefly describes where to get them:
@table @asis
@cindex Kernighan, Brian
-@cindex anonymous @code{ftp}
-@cindex @code{ftp}, anonymous
-@item Unix @code{awk}
-Brian Kernighan has been able to make his implementation of
-@code{awk} freely available. You can get it via anonymous @code{ftp}
-to the host @code{@w{netlib.bell-labs.com}}. Change directory to
-@file{/netlib/research}. Use ``binary'' or ``image'' mode, and
-retrieve @file{awk.bundle.gz}.
-
-This is a shell archive that has been compressed with the GNU @code{gzip}
-utility. It can be uncompressed with the @code{gunzip} utility.
-
-You can also retrieve this version via the World Wide Web from his
-@uref{http://cm.bell-labs.com/who/bwk, home page}.
-
-This version requires an ANSI C compiler; GCC (the GNU C compiler)
+@cindex Unix @command{awk}, source code
+@cindex source code, Unix @command{awk}
+@item Unix @command{awk}
+Brian Kernighan has made his implementation of
+@command{awk} freely available.
+You can retrieve this version via the World Wide Web from
+his home page.@footnote{@uref{http://cm.bell-labs.com/who/bwk}}
+It is available in several archive formats:
+
+@table @asis
+@item Shell archive
+@uref{http://cm.bell-labs.com/who/bwk/awk.shar}
+
+@item Compressed @command{tar} file
+@uref{http://cm.bell-labs.com/who/bwk/awk.tar.gz}
+
+@item Zip file
+@uref{http://cm.bell-labs.com/who/bwk/awk.zip}
+@end table
+
+This version requires an ISO C (1990 standard) compiler;
+the C compiler from
+GCC (the GNU Compiler Collection)
works quite nicely.
+@xref{BTL, ,Extensions in the Bell Laboratories @command{awk}},
+for a list of extensions in this @command{awk} that are not in POSIX @command{awk}.
+
+@cindex GPL
+@cindex General Public License
+@cindex GNU General Public License
@cindex Brennan, Michael
-@cindex @code{mawk}
-@item @code{mawk}
-Michael Brennan has written an independent implementation of @code{awk},
-called @code{mawk}. It is available under the GPL
-(@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE}),
-just as @code{gawk} is.
-
-You can get it via anonymous @code{ftp} to the host
+@cindex @command{mawk}, source code
+@cindex source code, @command{mawk}
+@item @command{mawk}
+Michael Brennan has written an independent implementation of @command{awk},
+called @command{mawk}. It is available under the GPL
+(@pxref{Copying, ,GNU General Public License}),
+just as @command{gawk} is.
+
+You can get it via anonymous @command{ftp} to the host
@code{@w{ftp.whidbey.net}}. Change directory to @file{/pub/brennan}.
Use ``binary'' or ``image'' mode, and retrieve @file{mawk1.3.3.tar.gz}
(or the latest version that is there).
-@code{gunzip} may be used to decompress this file. Installation
-is similar to @code{gawk}'s
-(@pxref{Unix Installation, , Compiling and Installing @code{gawk} on Unix}).
+@command{gunzip} may be used to decompress this file. Installation
+is similar to @command{gawk}'s
+(@pxref{Unix Installation, , Compiling and Installing @command{gawk} on Unix}).
+
+@cindex extensions, @command{mawk}
+@command{mawk} has the following extensions that are not in POSIX @command{awk}:
+
+@itemize @bullet
+@item
+The @code{fflush} built-in function for flushing buffered output
+(@pxref{I/O Functions, ,Input/Output Functions}).
+
+@item
+The @samp{**} and @samp{**=} operators
+(@pxref{Arithmetic Ops, ,Arithmetic Operators}
+and also see
+@ref{Assignment Ops, ,Assignment Expressions}).
+
+@item
+The use of @code{func} as an abbreviation for @code{function}
+(@pxref{Definition Syntax, ,Function Definition Syntax}).
+
+@item
+The @samp{\x} escape sequence
+(@pxref{Escape Sequences}).
+
+@item
+The @file{/dev/stdout}, and @file{/dev/stderr}
+special files
+(@pxref{Special Files, ,Special @value{FFN}s in @command{gawk}}).
+Use @code{"-"} instead of @code{"/dev/stdin"} with @command{mawk}.
+
+@item
+The ability for @code{FS} and for the third
+argument to @code{split} to be null strings
+(@pxref{Single Character Fields, , Making Each Character a Separate Field}).
+
+@item
+The ability to delete all of an array at once with @samp{delete @var{array}}
+(@pxref{Delete, ,The @code{delete} Statement}).
+
+@item
+The ability for @code{RS} to be a regexp
+(@pxref{Records, ,How Input Is Split into Records}).
+
+@item
+The @code{BINMODE} special variable for non-Unix operating systems
+(@pxref{PC Using, ,Using @command{gawk} on PC Operating Systems}).
+@end itemize
+
+The next version of @command{mawk} will support @code{nextfile}.
+
+@cindex Sumner, Andrew
+@cindex @command{awka} compiler for @command{awk} programs
+@cindex @command{awka}, source code
+@cindex source code, @command{awka}
+@item @command{awka}
+Written by Andrew Sumner,
+@command{awka} translates @command{awk} programs into C, compiles them,
+and links them with a library of functions that provides the core
+@command{awk} functionality.
+It also has a number of extensions.
+
+@cindex GPL
+@cindex General Public License
+@cindex GNU General Public License
+@cindex LGPL
+@cindex Lesser General Public License
+@cindex GNU Lesser General Public License
+The @command{awk} translator is released under the GPL, and the library
+is under the LGPL.
+
+@ignore
+To get @command{awka}, go to its home page at
+Go to @uref{http://awka.sourceforge.net}.
+@end ignore
+To get @command{awka}, go to @uref{http://awka.sourceforge.net}.
+You can reach Andrew Sumner at @email{andrew_sumner@@bigfoot.com}.
@end table
-@node Notes, Glossary, Installation, Top
+@node Notes, Basic Concepts, Installation, Top
@appendix Implementation Notes
This appendix contains information mainly of interest to implementors and
-maintainers of @code{gawk}. Everything in it applies specifically to
-@code{gawk}, and not to other implementations.
+maintainers of @command{gawk}. Everything in it applies specifically to
+@command{gawk} and not to other implementations.
@menu
-* Compatibility Mode:: How to disable certain @code{gawk} extensions.
-* Additions:: Making Additions To @code{gawk}.
+* Compatibility Mode:: How to disable certain @command{gawk}
+ extensions.
+* Additions:: Making Additions To @command{gawk}.
+* Dynamic Extensions:: Adding new built-in functions to
+ @command{gawk}.
* Future Extensions:: New features that may be implemented one day.
-* Improvements:: Suggestions for improvements by volunteers.
@end menu
@node Compatibility Mode, Additions, Notes, Notes
@appendixsec Downward Compatibility and Debugging
-@xref{POSIX/GNU, ,Extensions in @code{gawk} Not in POSIX @code{awk}},
-for a summary of the GNU extensions to the @code{awk} language and program.
-All of these features can be turned off by invoking @code{gawk} with the
-@samp{--traditional} option, or with the @samp{--posix} option.
+@xref{POSIX/GNU, ,Extensions in @command{gawk} Not in POSIX @command{awk}},
+for a summary of the GNU extensions to the @command{awk} language and program.
+All of these features can be turned off by invoking @command{gawk} with the
+@option{--traditional} option or with the @option{--posix} option.
-If @code{gawk} is compiled for debugging with @samp{-DDEBUG}, then there
+If @command{gawk} is compiled for debugging with @samp{-DDEBUG}, then there
is one more option available on the command line:
@table @code
@@ -19641,70 +22898,82 @@ is one more option available on the command line:
Print out the parse stack information as the program is being parsed.
@end table
-This option is intended only for serious @code{gawk} developers,
+This option is intended only for serious @command{gawk} developers
and not for the casual user. It probably has not even been compiled into
-your version of @code{gawk}, since it slows down execution.
+your version of @command{gawk}, since it slows down execution.
-@node Additions, Future Extensions, Compatibility Mode, Notes
-@appendixsec Making Additions to @code{gawk}
+@node Additions, Dynamic Extensions, Compatibility Mode, Notes
+@appendixsec Making Additions to @command{gawk}
-If you should find that you wish to enhance @code{gawk} in a significant
+If you find that you want to enhance @command{gawk} in a significant
fashion, you are perfectly free to do so. That is the point of having
-free software; the source code is available, and you are free to change
-it as you wish (@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE}).
+free software; the source code is available and you are free to change
+it as you want (@pxref{Copying, ,GNU General Public License}).
-This section discusses the ways you might wish to change @code{gawk},
-and any considerations you should bear in mind.
+This @value{SECTION} discusses the ways you might want to change @command{gawk}
+as well as any considerations you should bear in mind.
@menu
-* Adding Code:: Adding code to the main body of @code{gawk}.
-* New Ports:: Porting @code{gawk} to a new operating system.
+* Adding Code:: Adding code to the main body of
+ @command{gawk}.
+* New Ports:: Porting @command{gawk} to a new operating
+ system.
@end menu
@node Adding Code, New Ports, Additions, Additions
@appendixsubsec Adding New Features
@cindex adding new features
-@cindex features, adding
-You are free to add any new features you like to @code{gawk}.
-However, if you want your changes to be incorporated into the @code{gawk}
+@cindex features, adding to @command{gawk}
+You are free to add any new features you like to @command{gawk}.
+However, if you want your changes to be incorporated into the @command{gawk}
distribution, there are several steps that you need to take in order to
-make it possible for me to include your changes.
+make it possible for me to include your changes:
@enumerate 1
@item
+Before building the new feature into @command{gawk} itself,
+consider writing it as an extension module
+(@pxref{Dynamic Extensions, ,Adding New Built-in Functions to @command{gawk}}).
+If that's not possible, continue with the rest of the steps in this list.
+
+@item
Get the latest version.
It is much easier for me to integrate changes if they are relative to
-the most recent distributed version of @code{gawk}. If your version of
-@code{gawk} is very old, I may not be able to integrate them at all.
-@xref{Getting, ,Getting the @code{gawk} Distribution},
-for information on getting the latest version of @code{gawk}.
+the most recent distributed version of @command{gawk}. If your version of
+@command{gawk} is very old, I may not be able to integrate them at all.
+(@xref{Getting, ,Getting the @command{gawk} Distribution},
+for information on getting the latest version of @command{gawk}.)
@item
-@iftex
+@ifnotinfo
Follow the @cite{GNU Coding Standards}.
-@end iftex
+@end ifnotinfo
@ifinfo
See @inforef{Top, , Version, standards, GNU Coding Standards}.
@end ifinfo
This document describes how GNU software should be written. If you haven't
-read it, please do so, preferably @emph{before} starting to modify @code{gawk}.
-(The @cite{GNU Coding Standards} are available as part of the Autoconf
-distribution, from the FSF.)
-
-@cindex @code{gawk} coding style
-@cindex coding style used in @code{gawk}
+read it, please do so, preferably @emph{before} starting to modify @command{gawk}.
+(The @cite{GNU Coding Standards} are available from
+the GNU Project's
+@command{ftp}
+site, at
+@uref{ftp://gnudist.gnu.org/gnu/GNUInfo/standards.text}.
+Texinfo, Info, and DVI versions are also available.)
+
+@cindex @command{gawk}, coding style
+@cindex coding style used in @command{gawk}
@item
-Use the @code{gawk} coding style.
-The C code for @code{gawk} follows the instructions in the
+Use the @command{gawk} coding style.
+The C code for @command{gawk} follows the instructions in the
@cite{GNU Coding Standards}, with minor exceptions. The code is formatted
-using the traditional ``K&R'' style, particularly as regards the placement
-of braces and the use of tabs. In brief, the coding rules for @code{gawk}
-are:
+using the traditional ``K&R'' style, particularly as regards to the placement
+of braces and the use of tabs. In brief, the coding rules for @command{gawk}
+are as follows:
@itemize @bullet
@item
-Use old style (non-prototype) function headers when defining functions.
+Use ANSI/ISO style (prototype) function headers when defining functions.
@item
Put the name of the function at the beginning of its own line.
@@ -19714,21 +22983,18 @@ Put the return type of the function, even if it is @code{int}, on the
line above the line with the name and arguments of the function.
@item
-The declarations for the function arguments should not be indented.
-
-@item
Put spaces around parentheses used in control structures
-(@code{if}, @code{while}, @code{for}, @code{do}, @code{switch}
+(@code{if}, @code{while}, @code{for}, @code{do}, @code{switch},
and @code{return}).
@item
Do not put spaces in front of parentheses used in function calls.
@item
-Put spaces around all C operators, and after commas in function calls.
+Put spaces around all C operators and after commas in function calls.
@item
-Do not use the comma operator to produce multiple side-effects, except
+Do not use the comma operator to produce multiple side effects, except
in @code{for} loop initialization and increment parts, and in macro bodies.
@item
@@ -19739,16 +23005,21 @@ Use the ``K&R'' brace layout style.
@item
Use comparisons against @code{NULL} and @code{'\0'} in the conditions of
-@code{if}, @code{while} and @code{for} statements, and in the @code{case}s
+@code{if}, @code{while}, and @code{for} statements, as well as in the @code{case}s
of @code{switch} statements, instead of just the
plain pointer or character value.
@item
-Use the @code{TRUE}, @code{FALSE}, and @code{NULL} symbolic constants,
+Use the @code{TRUE}, @code{FALSE} and @code{NULL} symbolic constants
and the character constant @code{'\0'} where appropriate, instead of @code{1}
and @code{0}.
@item
+Use the @code{ISALPHA}, @code{ISDIGIT}, etc.@: macros, instead of the
+traditional lowercase versions; these macros are better behaved for
+non-ASCII character sets.
+
+@item
Provide one-line descriptive comments for each function.
@item
@@ -19756,104 +23027,113 @@ Do not use @samp{#elif}. Many older Unix C compilers cannot handle it.
@item
Do not use the @code{alloca} function for allocating memory off the stack.
-Its use causes more portability trouble than the minor benefit of not having
+Its use causes more portability trouble than is worth the minor benefit of not having
to free the storage. Instead, use @code{malloc} and @code{free}.
@end itemize
+@strong{Note:}
If I have to reformat your code to follow the coding style used in
-@code{gawk}, I may not bother.
+@command{gawk}, I may not bother to integrate your changes at all.
@item
Be prepared to sign the appropriate paperwork.
In order for the FSF to distribute your changes, you must either place
-those changes in the public domain, and submit a signed statement to that
+those changes in the public domain and submit a signed statement to that
effect, or assign the copyright in your changes to the FSF.
-Both of these actions are easy to do, and @emph{many} people have done so
+Both of these actions are easy to do and @emph{many} people have done so
already. If you have questions, please contact me
(@pxref{Bugs, , Reporting Problems and Bugs}),
-or @code{gnu@@gnu.org}.
+or @email{gnu@@gnu.org}.
+@cindex Texinfo
@item
Update the documentation.
-Along with your new code, please supply new sections and or chapters
+Along with your new code, please supply new sections and/or chapters
for this @value{DOCUMENT}. If at all possible, please use real
Texinfo, instead of just supplying unformatted ASCII text (although
even that is better than no documentation at all).
Conventions to be followed in @cite{@value{TITLE}} are provided
-after the @samp{@@bye} at the end of the Texinfo source file.
-If possible, please update the man page as well.
+after the @samp{@@bye} at the end of the Texinfo source file.
+If possible, please update the @command{man} page as well.
You will also have to sign paperwork for your documentation changes.
@item
Submit changes as context diffs or unified diffs.
Use @samp{diff -c -r -N} or @samp{diff -u -r -N} to compare
-the original @code{gawk} source tree with your version.
-(I find context diffs to be more readable, but unified diffs are
+the original @command{gawk} source tree with your version.
+(I find context diffs to be more readable but unified diffs are
more compact.)
-I recommend using the GNU version of @code{diff}.
-Send the output produced by either run of @code{diff} to me when you
+I recommend using the GNU version of @command{diff}.
+Send the output produced by either run of @command{diff} to me when you
submit your changes.
-@xref{Bugs, , Reporting Problems and Bugs}, for the electronic mail
-information.
+(@xref{Bugs, , Reporting Problems and Bugs}, for the electronic mail
+information.)
Using this format makes it easy for me to apply your changes to the
-master version of the @code{gawk} source code (using @code{patch}).
+master version of the @command{gawk} source code (using @code{patch}).
If I have to apply the changes manually, using a text editor, I may
not do so, particularly if there are lots of changes.
@item
Include an entry for the @file{ChangeLog} file with your submission.
-This further helps minimize the amount of work I have to do,
+This helps further minimize the amount of work I have to do,
making it easier for me to accept patches.
@end enumerate
Although this sounds like a lot of work, please remember that while you
-may write the new code, I have to maintain it and support it, and if it
+may write the new code, I have to maintain it and support it. If it
isn't possible for me to do that with a minimum of extra work, then I
probably will not.
-
@node New Ports, , Adding Code, Additions
-@appendixsubsec Porting @code{gawk} to a New Operating System
+@appendixsubsec Porting @command{gawk} to a New Operating System
-@cindex porting @code{gawk}
-If you wish to port @code{gawk} to a new operating system, there are
-several steps to follow.
+@cindex porting @command{gawk}
+If you want to port @command{gawk} to a new operating system, there are
+several steps to follow:
@enumerate 1
@item
Follow the guidelines in
+@ifinfo
@ref{Adding Code, ,Adding New Features},
+@end ifinfo
+@ifnotinfo
+the previous @value{SECTION}
+@end ifnotinfo
concerning coding style, submission of diffs, and so on.
@item
When doing a port, bear in mind that your code must co-exist peacefully
-with the rest of @code{gawk}, and the other ports. Avoid gratuitous
+with the rest of @command{gawk} and the other ports. Avoid gratuitous
changes to the system-independent parts of the code. If at all possible,
avoid sprinkling @samp{#ifdef}s just for your port throughout the
code.
+@cindex GPL
+@cindex General Public License
+@cindex GNU General Public License
If the changes needed for a particular system affect too much of the
-code, I probably will not accept them. In such a case, you will, of course,
-be able to distribute your changes on your own, as long as you comply
+code, I probably will not accept them. In such a case, you can, of course,
+distribute your changes on your own, as long as you comply
with the GPL
-(@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE}).
+(@pxref{Copying, ,GNU General Public License}).
@item
-A number of the files that come with @code{gawk} are maintained by other
+A number of the files that come with @command{gawk} are maintained by other
people at the Free Software Foundation. Thus, you should not change them
-unless it is for a very good reason. I.e.@: changes are not out of the
-question, but changes to these files will be scrutinized extra carefully.
-The files are @file{alloca.c}, @file{getopt.h}, @file{getopt.c},
+unless it is for a very good reason; i.e., changes are not out of the
+question, but changes to these files are scrutinized extra carefully.
+The files are @file{getopt.h}, @file{getopt.c},
@file{getopt1.c}, @file{regex.h}, @file{regex.c}, @file{dfa.h},
@file{dfa.c}, @file{install-sh}, and @file{mkinstalldirs}.
@item
Be willing to continue to maintain the port.
Non-Unix operating systems are supported by volunteers who maintain
-the code needed to compile and run @code{gawk} on their systems. If no-one
-volunteers to maintain a port, that port becomes unsupported, and it may
+the code needed to compile and run @command{gawk} on their systems. If noone
+volunteers to maintain a port, it becomes unsupported and it may
be necessary to remove it from the distribution.
@item
@@ -19866,15 +23146,15 @@ the main source directory includes the appropriate
Be sure to update it as well.
Each port's @file{gawkmisc.???} file has a suffix reminiscent of the machine
-or operating system for the port. For example, @file{pc/gawkmisc.pc} and
+or operating system for the port---for example, @file{pc/gawkmisc.pc} and
@file{vms/gawkmisc.vms}. The use of separate suffixes, instead of plain
@file{gawkmisc.c}, makes it possible to move files from a port's subdirectory
into the main subdirectory, without accidentally destroying the real
-@file{gawkmisc.c} file. (Currently, this is only an issue for the MS-DOS
-and OS/2 ports.)
+@file{gawkmisc.c} file. (Currently, this is only an issue for the
+PC operating system ports.)
@item
-Supply a @file{Makefile} and any other C source and header files that are
+Supply a @file{Makefile} as well as any other C source and header files that are
necessary for your operating system. All your code should be in a
separate subdirectory, with a name that is the same as, or reminiscent
of, either your operating system or the computer system. If possible,
@@ -19886,38 +23166,705 @@ duplicate the names of files in the main source directory.
@item
Update the documentation.
Please write a section (or sections) for this @value{DOCUMENT} describing the
-installation and compilation steps needed to install and/or compile
-@code{gawk} for your system.
+installation and compilation steps needed to compile and/or install
+@command{gawk} for your system.
@item
Be prepared to sign the appropriate paperwork.
In order for the FSF to distribute your code, you must either place
-your code in the public domain, and submit a signed statement to that
+your code in the public domain and submit a signed statement to that
effect, or assign the copyright in your code to the FSF.
@ifinfo
-Both of these actions are easy to do, and @emph{many} people have done so
+Both of these actions are easy to do and @emph{many} people have done so
already. If you have questions, please contact me, or
-@code{gnu@@gnu.org}.
+@email{gnu@@gnu.org}.
@end ifinfo
@end enumerate
-Following these steps will make it much easier to integrate your changes
-into @code{gawk}, and have them co-exist happily with the code for other
-operating systems that is already there.
+Following these steps makes it much easier to integrate your changes
+into @command{gawk} and have them co-exist happily with other
+operating systems' code that is already there.
-In the code that you supply, and that you maintain, feel free to use a
+In the code that you supply and maintain, feel free to use a
coding style and brace layout that suits your taste.
-@node Future Extensions, Improvements, Additions, Notes
+@node Dynamic Extensions, Future Extensions, Additions, Notes
+@appendixsec Adding New Built-in Functions to @command{gawk}
+@cindex Robinson, Will
+@cindex robot, the
+@cindex Lost In Space
+@quotation
+@i{Danger Will Robinson! Danger!!@*
+Warning! Warning!}@*
+The Robot
+@end quotation
+
+@cindex Linux
+@cindex GNU/Linux
+Beginning with @command{gawk} 3.1, it is possible to add new built-in
+functions to @command{gawk} using dynamically loaded libraries. This
+facility is available on systems (such as GNU/Linux) that support
+the @code{dlopen} and @code{dlsym} functions.
+This @value{SECTION} describes how to write and use dynamically
+loaded extentions for @command{gawk}.
+Experience with programming in
+C or C++ is necessary when reading this @value{SECTION}.
+
+@strong{Caution:} The facilities described in this @value{SECTION}
+are very much subject to change in the next @command{gawk} release.
+Be aware that you may have to re-do everything, perhaps from scratch,
+upon the next release.
+
+@menu
+* Internals:: A brief look at some @command{gawk} internals.
+* Sample Library:: A example of new functions.
+@end menu
+
+@node Internals, Sample Library, Dynamic Extensions, Dynamic Extensions
+@appendixsubsec A Minimal Introduction to @command{gawk} Internals
+
+The truth is that @command{gawk} was not designed for simple extensibility.
+The facilities for adding functions using shared libraries work, but
+are something of a ``bag on the side.'' Thus, this tour is
+brief and simplistic; would-be @command{gawk} hackers are encouraged to
+spend some time reading the source code before trying to write
+extensions based on the material presented here. Of particular note
+are the files @file{awk.h}, @file{builtin.c}, and @file{eval.c}.
+Reading @file{awk.y} in order to see how the parse tree is built
+would also be of use.
+
+With the disclaimers out of the way, the following types, structure
+members, functions, and macros are declared in @file{awk.h} and are of
+use when writing extensions. The next @value{SECTION}
+shows how they are used:
+
+@table @code
+@cindex @code{AWKNUM} internal type
+@cindex internal type, @code{AWKNUM}
+@item AWKNUM
+An @code{AWKNUM} is the internal type of @command{awk}
+floating-point numbers. Typically, it is a C @code{double}.
+
+@cindex @code{NODE} internal type
+@cindex internal type, @code{NODE}
+@item NODE
+Just about everything is done using objects of type @code{NODE}.
+These contain both strings and numbers, as well as variables and arrays.
+
+@cindex @code{force_number} internal function
+@cindex internal function, @code{force_number}
+@item AWKNUM force_number(NODE *n)
+This macro forces a value to be numeric. It returns the actual
+numeric value contained in the node.
+It may end up calling an internal @command{gawk} function.
+
+@cindex @code{force_string} internal function
+@cindex internal function, @code{force_string}
+@item void force_string(NODE *n)
+This macro guarantees that a @code{NODE}'s string value is current.
+It may end up calling an internal @command{gawk} function.
+It also guarantees that the string is zero-terminated.
+
+@cindex @code{param_cnt} internal variable
+@cindex internal variable, @code{param_cnt}
+@item n->param_cnt
+The number of parameters actually passed in a function call at runtime.
+
+@cindex @code{stptr} internal variable
+@cindex @code{stlen} internal variable
+@cindex internal variable, @code{stptr}
+@cindex internal variable, @code{stlen}
+@item n->stptr
+@itemx n->stlen
+The data and length of a @code{NODE}'s string value, respectively.
+The string is @emph{not} guaranteed to be zero-terminated.
+If you need to pass the string value to a C library function, save
+the value in @code{n->stptr[n->stlen]}, assign @code{'\0'} to it,
+call the routine, and then restore the value.
+
+@cindex @code{type} internal variable
+@cindex internal variable, @code{type}
+@item n->type
+The type of the @code{NODE}. This is a C @code{enum}. Values should
+be either @code{Node_var} or @code{Node_var_array} for function
+parameters.
+
+@cindex @code{vname} internal variable
+@cindex internal variable, @code{vname}
+@item n->vname
+The ``variable name'' of a node. This is not of much use inside
+externally written extensions.
+
+@cindex @code{assoc_clear} internal function
+@cindex internal function, @code{assoc_clear}
+@item void assoc_clear(NODE *n)
+Clears the associative array pointed to by @code{n}.
+Make sure that @samp{n->type == Node_var_array} first.
+
+@cindex @code{assoc_lookup} internal function
+@cindex internal function, @code{assoc_lookup}
+@item NODE **assoc_lookup(NODE *symbol, NODE *subs, int reference)
+Finds, and installs if necessary, array elements.
+@code{symbol} is the array, @code{subs} is the subscript.
+This is usually a value created with @code{tmp_string} (see below).
+@code{reference} should be @code{TRUE} if it is an error to use the
+value before it is created. Typically, @code{FALSE} is the
+correct value to use from extension functions.
+
+@cindex @code{make_string} internal function
+@cindex internal function, @code{make_string}
+@item NODE *make_string(char *s, size_t len)
+Take a C string and turn it into a pointer to a @code{NODE} that
+can be stored appropriately. This is permanent storage; understanding
+of @command{gawk} memory management is helpful.
+
+@cindex @code{make_number} internal function
+@cindex internal function, @code{make_number}
+@item NODE *make_number(AWKNUM val)
+Take an @code{AWKNUM} and turn it into a pointer to a @code{NODE} that
+can be stored appropriately. This is permanent storage; understanding
+of @command{gawk} memory management is helpful.
+
+@cindex @code{tmp_string} internal function
+@item NODE *tmp_string(char *s, size_t len);
+@cindex internal function, @code{tmp_string}
+Take a C string and turn it into a pointer to a @code{NODE} that
+can be stored appropriately. This is temporary storage; understanding
+of @command{gawk} memory management is helpful.
+
+@cindex @code{tmp_number} internal function
+@item NODE *tmp_number(AWKNUM val)
+@cindex internal function, @code{tmp_number}
+Take an @code{AWKNUM} and turn it into a pointer to a @code{NODE} that
+can be stored appropriately. This is temporary storage;
+understanding of @command{gawk} memory management is helpful.
+
+@cindex @code{dupnode} internal function
+@cindex internal function, @code{dupnode}
+@item NODE *dupnode(NODE *n)
+Duplicate a node. In most cases, this increments an internal
+reference count instead of actually duplicating the entire @code{NODE};
+understanding of @command{gawk} memory management is helpful.
+
+@cindex @code{free_temp} internal macro
+@cindex internal macro, @code{free_temp}
+@item void free_temp(NODE *n)
+This macro releases the memory associated with a @code{NODE}
+allocated with @code{tmp_string} or @code{tmp_number}.
+Understanding of @command{gawk} memory management is helpful.
+
+@cindex @code{make_builtin} internal function
+@cindex internal function, @code{make_builtin}
+@item void make_builtin(char *name, NODE *(*func)(NODE *), int count)
+Register a C function pointed to by @code{func} as new built-in
+function @code{name}. @code{name} is a regular C string. @code{count}
+is the maximum number of arguments that the function takes.
+The function should be written in the following manner:
+
+@example
+/* do_xxx --- do xxx function for gawk */
+
+NODE *
+do_xxx(NODE *tree)
+@{
+ @dots{}
+@}
+@end example
+
+@cindex @code{get_argument} internal function
+@cindex internal function, @code{get_argument}
+@item NODE *get_argument(NODE *tree, int i)
+This function is called from within a C extension function to get
+the @code{i}'th argument from the function call.
+The first argument is argument zero.
+
+@cindex @code{set_value} internal function
+@item void set_value(NODE *tree)
+@cindex internal function, @code{set_value}
+This function is called from within a C extension function to set
+the return value from the extension function. This value is
+what the @command{awk} program sees as the return value from the
+new @command{awk} function.
+
+@cindex @code{update_ERRNO} internal function
+@item void update_ERRNO(void)
+@cindex internal function, @code{update_ERRNO}
+This function is called from within a C extension function to set
+the value of @command{gawk}'s @code{ERRNO} variable, based on the current
+value of the C @code{errno} variable.
+It is provided as a convenience.
+@end table
+
+An argument that is supposed to be an array needs to be handled with
+some extra code, in case the array being passed in is actually
+from a function parameter.
+The following ``boiler plate'' code shows how to do this:
+
+@smallexample
+NODE *the_arg;
+
+the_arg = get_argument(tree, 2); /* assume need 3rd arg, 0-based */
+
+/* if a parameter, get it off the stack */
+if (the_arg->type == Node_param_list)
+ the_arg = stack_ptr[the_arg->param_cnt];
+
+/* parameter referenced an array, get it */
+if (the_arg->type == Node_array_ref)
+ the_arg = the_arg->orig_array;
+
+/* check type */
+if (the_arg->type != Node_var && the_arg->type != Node_var_array)
+ fatal("newfunc: third argument is not an array");
+
+/* force it to be an array, if necessary, clear it */
+the_arg->type = Node_var_array;
+assoc_clear(the_arg);
+@end smallexample
+
+Again, you should spend time studying the @command{gawk} internals;
+don't just blindly copy this code.
+
+@node Sample Library, , Internals, Dynamic Extensions
+@appendixsubsec Directory and File Operation Built-ins
+
+Two useful functions that are not in @command{awk} are @code{chdir}
+(so that an @command{awk} program can change its directory) and
+@code{stat} (so that an @command{awk} program can gather information about
+a file).
+This @value{SECTION} implements these functions for @command{gawk} in an
+external extension library.
+
+@menu
+* Internal File Description:: What the new functions will do.
+* Internal File Ops:: The code for internal file operations.
+* Using Internal File Ops:: How to use an external extension.
+@end menu
+
+@node Internal File Description, Internal File Ops, Sample Library, Sample Library
+@appendixsubsubsec Using @code{chdir} and @code{stat}
+
+This @value{SECTION} shows how to use the new functions at the @command{awk}
+level once they've been integrated into the running @command{gawk}
+interpreter.
+Using @code{chdir} is very straightforward. It takes one argument,
+the new directory to change to:
+
+@example
+@dots{}
+newdir = "/home/arnold/funstuff"
+ret = chdir(newdir)
+if (ret < 0) @{
+ printf("could not change to %s: %s\n",
+ newdir, ERRNO) > "/dev/stderr"
+ exit 1
+@}
+@dots{}
+@end example
+
+The return value is negative if the @code{chdir} failed,
+and @code{ERRNO}
+(@pxref{Built-in Variables})
+is set to a string indicating the error.
+
+Using @code{stat} is a bit more complicated.
+The C @code{stat} function fills in a structure that has a fair
+amount of information.
+The right way to model this in @command{awk} is to fill in an associative
+array with the appropriate information:
+
+@c broke printf for page breaking
+@example
+file = "/home/arnold/.profile"
+fdata[1] = "x" # force `fdata' to be an array
+ret = stat(file, fdata)
+if (ret < 0) @{
+ printf("could not stat %s: %s\n",
+ file, ERRNO) > "/dev/stderr"
+ exit 1
+@}
+printf("size of %s is %d bytes\n", file, fdata["size"])
+@end example
+
+The @code{stat} function always clears the data array, even if
+the @code{stat} fails. It fills in the following elements:
+
+@table @code
+@item "name"
+The name of the file that was @code{stat}'ed.
+
+@item "dev"
+@itemx "ino"
+The file's device and inode numbers, respectively.
+
+@item "mode"
+The file's mode, as a numeric value. This includes both the file's
+type and its permissions.
+
+@item "nlink"
+The number of hard links (directory entries) the file has.
+
+@item "uid"
+@itemx "gid"
+The numeric user and group ID numbers of the file's owner.
+
+@item "size"
+The size in bytes of the file.
+
+@item "blocks"
+The number of disk blocks the file actually occupies. This may not
+be a function of the file's size if the file has holes.
+
+@item "atime"
+@itemx "mtime"
+@itemx "ctime"
+The file's last access, modification, and inode update times,
+respectively. These are numeric timestamps, suitable for formatting
+with @code{strftime}
+(@pxref{Built-in, ,Built-in Functions}).
+
+@item "pmode"
+The file's ``printable mode.'' This is a string representation of
+the file's type and permissions, such as what is produced by
+@samp{ls -l}---for example, @code{"drwxr-xr-x"}.
+
+@item "type"
+A printable string representation of the file's type. The value
+is one of the following:
+
+@table @code
+@item "blockdev"
+@itemx "chardev"
+The file is a block or character device (``special file'').
+
+@ignore
+@item "door"
+The file is a Solaris ``door'' (special file used for
+interprocess communications).
+@end ignore
+
+@item "directory"
+The file is a directory.
+
+@item "fifo"
+The file is a named-pipe (also known as a FIFO).
+
+@item "file"
+The file is just a regular file.
+
+@item "socket"
+The file is an @code{AF_UNIX} (``Unix domain'') socket in the
+filesystem.
+
+@item "symlink"
+The file is a symbolic link.
+@end table
+@end table
+
+Several additional elements may be present depending upon the operating
+system and the type of the file. You can test for them in your @command{awk}
+program by using the @code{in} operator
+(@pxref{Reference to Elements, ,Referring to an Array Element}):
+
+@table @code
+@item "blksize"
+The preferred block size for I/O to the file. This field is not
+present on all POSIX-like systems in the C @code{stat} structure.
+
+@item "linkval"
+If the file is a symbolic link, this element is the name of the
+file the link points to (i.e., the value of the link).
+
+@item "rdev"
+@itemx "major"
+@itemx "minor"
+If the file is a block or character device file, then these values
+represent the numeric device number and the major and minor components
+of that number, respectively.
+@end table
+
+@node Internal File Ops, Using Internal File Ops, Internal File Description, Sample Library
+@appendixsubsubsec C Code for @code{chdir} and @code{stat}
+
+@cindex Linux
+@cindex GNU/Linux
+Here is the C code for these extensions. They were written for
+GNU/Linux. The code needs some more work for complete portability
+to other POSIX-compliant systems:@footnote{This version is edited
+slightly for presentation. The complete version can be found in
+@file{extension/filefuncs.c} in the @command{gawk} distribution.}
+
+@c break line for page breaking
+@example
+#include "awk.h"
+
+#include <sys/sysmacros.h>
+
+/* do_chdir --- provide dynamically loaded
+ chdir() builtin for gawk */
+
+static NODE *
+do_chdir(tree)
+NODE *tree;
+@{
+ NODE *newdir;
+ int ret = -1;
+
+ newdir = get_argument(tree, 0);
+@end example
+
+The file includes the @code{"awk.h"} header file for definitions
+for the @command{gawk} internals. It includes @code{<sys/sysmacros.h>}
+for access to the @code{major} and @code{minor} macros.
+
+@cindex conventions, programming
+@cindex programming conventions
+By convention, for an @command{awk} function @code{foo}, the function that
+implements it is called @samp{do_foo}. The function should take
+a @samp{NODE *} argument, usually called @code{tree}, that
+represents the argument list to the function. The @code{newdir}
+variable represents the new directory to change to, retrieved
+with @code{get_argument}. Note that the first argument is
+numbered zero.
+
+This code actually accomplishes the @code{chdir}. It first forces
+the argument to be a string and passes the string value to the
+@code{chdir} system call. If the @code{chdir} fails, @code{ERRNO}
+is updated.
+The result of @code{force_string} has to be freed with @code{free_temp}:
+
+@example
+ if (newdir != NULL) @{
+ (void) force_string(newdir);
+ ret = chdir(newdir->stptr);
+ if (ret < 0)
+ update_ERRNO();
+
+ free_temp(newdir);
+ @}
+@end example
+
+Finally, the function returns the return value to the @command{awk} level,
+using @code{set_value}. Then it must return a value from the call to
+the new built-in (this value ignored by the interpreter):
+
+@example
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+@}
+@end example
+
+The @code{stat} built-in is more involved. First comes a function
+that turns a numeric mode into a printable representation
+(e.g., 644 becomes @samp{-rw-r--r--}). This is omitted here for brevity:
+
+@c break line for page breaking
+@example
+/* format_mode --- turn a stat mode field
+ into something readable */
+
+static char *
+format_mode(fmode)
+unsigned long fmode;
+@{
+ @dots{}
+@}
+@end example
+
+Next comes the actual @code{do_stat} function itself. First come the
+variable declarations and argument checking:
+
+@ignore
+Changed message for page breaking. Used to be:
+ "stat: called with incorrect number of arguments (%d), should be 2",
+@end ignore
+@example
+/* do_stat --- provide a stat() function for gawk */
+
+static NODE *
+do_stat(tree)
+NODE *tree;
+@{
+ NODE *file, *array;
+ struct stat sbuf;
+ int ret;
+ char *msg;
+ NODE **aptr;
+ char *pmode; /* printable mode */
+ char *type = "unknown";
+
+ /* check arg count */
+ if (tree->param_cnt != 2)
+ fatal(
+ "stat: called with %d arguments, should be 2",
+ tree->param_cnt);
+@end example
+
+Then comes the actual work. First, we get the arguments.
+Then, we always clear the array. To get the file information,
+we use @code{lstat}, in case the file is a symbolic link.
+If there's an error, we set @code{ERRNO} and return:
+
+@c comment made multiline for page breaking
+@example
+ /*
+ * directory is first arg,
+ * array to hold results is second
+ */
+ file = get_argument(tree, 0);
+ array = get_argument(tree, 1);
+
+ /* empty out the array */
+ assoc_clear(array);
+
+ /* lstat the file, if error, set ERRNO and return */
+ (void) force_string(file);
+ ret = lstat(file->stptr, & sbuf);
+ if (ret < 0) @{
+ update_ERRNO();
+
+ set_value(tmp_number((AWKNUM) ret));
+
+ free_temp(file);
+ return tmp_number((AWKNUM) 0);
+ @}
+@end example
+
+Now comes the tedious part: filling in the array. Only a few of the
+calls are shown here, since they all follow the same pattern:
+
+@example
+ /* fill in the array */
+ aptr = assoc_lookup(array, tmp_string("name", 4), FALSE);
+ *aptr = dupnode(file);
+
+ aptr = assoc_lookup(array, tmp_string("mode", 4), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_mode);
+
+ aptr = assoc_lookup(array, tmp_string("pmode", 5), FALSE);
+ pmode = format_mode(sbuf.st_mode);
+ *aptr = make_string(pmode, strlen(pmode));
+@end example
+
+When done, we free the temporary value containing the @value{FN},
+set the return value, and return:
+
+@example
+ free_temp(file);
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+@}
+@end example
+
+@cindex conventions, programming
+@cindex programming conventions
+Finally, it's necessary to provide the ``glue'' that loads the
+new function(s) into @command{gawk}. By convention, each library has
+a routine named @code{dlload} that does the job:
+
+@example
+/* dlload --- load new builtins in this library */
+
+NODE *
+dlload(tree, dl)
+NODE *tree;
+void *dl;
+@{
+ make_builtin("chdir", do_chdir, 1);
+ make_builtin("stat", do_stat, 2);
+ return tmp_number((AWKNUM) 0);
+@}
+@end example
+
+And that's it! As an exercise, consider adding functions to
+implement system calls such as @code{chown}, @code{chmod}, and @code{umask}.
+
+@node Using Internal File Ops, , Internal File Ops, Sample Library
+@appendixsubsubsec Integrating the Extensions
+
+@cindex Linux
+@cindex GNU/Linux
+Now that the code is written, it must be possible to add it at
+runtime to the running @command{gawk} interpreter. First, the
+code must be compiled. Assuming that the functions are in
+a file named @file{filefuncs.c}, and @var{idir} is the location
+of the @command{gawk} include files,
+the following steps create
+a GNU/Linux shared library:
+
+@example
+$ gcc -shared -DHAVE_CONFIG_H -c -O -g -I@var{idir} filefuncs.c
+$ ld -o filefuncs.so -shared filefuncs.o
+@end example
+
+@cindex @code{extension} built-in function
+Once the library exists, it is loaded by calling the @code{extension}
+built-in function.
+This function takes two arguments: the name of the
+library to load and the name of a function to call when the library
+is first loaded. This function adds the new functions to @command{gawk}.
+It returns the value returned by the initialization function
+within the shared library:
+
+@example
+# file testff.awk
+BEGIN @{
+ extension("./filefuncs.so", "dlload")
+
+ chdir(".") # no-op
+
+ data[1] = 1 # force `data' to be an array
+ print "Info for testff.awk"
+ ret = stat("testff.awk", data)
+ print "ret =", ret
+ for (i in data)
+ printf "data[\"%s\"] = %s\n", i, data[i]
+ print "testff.awk modified:",
+ strftime("%m %d %y %H:%M:%S", data["mtime"])
+@}
+@end example
+
+Here are the results of running the program:
+
+@example
+$ gawk -f testff.awk
+@print{} Info for testff.awk
+@print{} ret = 0
+@print{} data["blksize"] = 4096
+@print{} data["mtime"] = 932361936
+@print{} data["mode"] = 33188
+@print{} data["type"] = file
+@print{} data["dev"] = 2065
+@print{} data["gid"] = 10
+@print{} data["ino"] = 878597
+@print{} data["ctime"] = 971431797
+@print{} data["blocks"] = 2
+@print{} data["nlink"] = 1
+@print{} data["name"] = testff.awk
+@print{} data["atime"] = 971608519
+@print{} data["pmode"] = -rw-r--r--
+@print{} data["size"] = 607
+@print{} data["uid"] = 2076
+@print{} testff.awk modified: 07 19 99 08:25:36
+@end example
+
+@node Future Extensions, , Dynamic Extensions, Notes
@appendixsec Probable Future Extensions
@ignore
From emory!scalpel.netlabs.com!lwall Tue Oct 31 12:43:17 1995
Return-Path: <emory!scalpel.netlabs.com!lwall>
Message-Id: <9510311732.AA28472@scalpel.netlabs.com>
To: arnold@skeeve.atl.ga.us (Arnold D. Robbins)
-Subject: Re: May I quote you?
+Subject: Re: May I quote you?
In-Reply-To: Your message of "Tue, 31 Oct 95 09:11:00 EST."
- <m0tAHPQ-00014MC@skeeve.atl.ga.us>
+ <m0tAHPQ-00014MC@skeeve.atl.ga.us>
Date: Tue, 31 Oct 95 09:32:46 -0800
From: Larry Wall <emory!scalpel.netlabs.com!lwall>
@@ -19925,7 +23872,7 @@ From: Larry Wall <emory!scalpel.netlabs.com!lwall>
: thoroughly updated manual. One of the sections deals with planned future
: extensions and enhancements. I have the following at the beginning
: of it:
-:
+:
: @cindex PERL
: @cindex Wall, Larry
: @display
@@ -19935,7 +23882,7 @@ From: Larry Wall <emory!scalpel.netlabs.com!lwall>
: @i{Hey!} @*
: Larry Wall
: @end display
-:
+:
: Before I actually release this for publication, I wanted to get your
: permission to quote you. (Hopefully, in the spirit of much of GNU, the
: implied humor is visible... :-)
@@ -19946,213 +23893,790 @@ Larry
@end ignore
@cindex PERL
@cindex Wall, Larry
-@display
-@i{AWK is a language similar to PERL, only considerably more elegant.}
+@cindex Robbins, Arnold
+@quotation
+@i{AWK is a language similar to PERL, only considerably more elegant.}@*
Arnold Robbins
-@i{Hey!}
+@i{Hey!}@*
Larry Wall
-@end display
-@sp 1
+@end quotation
-This section briefly lists extensions and possible improvements
+This @value{SECTION} briefly lists extensions and possible improvements
that indicate the directions we are
-currently considering for @code{gawk}. The file @file{FUTURES} in the
-@code{gawk} distributions lists these extensions as well.
+currently considering for @command{gawk}. The file @file{FUTURES} in the
+@command{gawk} distribution lists these extensions as well.
-This is a list of probable future changes that will be usable by the
-@code{awk} language programmer.
+Following is a list of probable future changes visible at the
+@command{awk} language level:
@c these are ordered by likelihood
@table @asis
-@item Localization
-The GNU project is starting to support multiple languages.
-It will at least be possible to make @code{gawk} print its warnings and
-error messages in languages other than English.
-It may be possible for @code{awk} programs to also use the multiple
-language facilities, separate from @code{gawk} itself.
+@item Loadable Module Interface
+It is not clear that the @command{awk}-level interface to the
+modules facility is as good as it should be. The interface needs to be
+redesigned, particularly taking namespace issues into account, as
+well as possibly including issues such as library search path order
+and versioning.
+
+@item @code{RECLEN} variable for fixed length records
+Along with @code{FIELDWIDTHS}, this would speed up the processing of
+fixed-length records.
+@code{PROCINFO["RS"]} would be @code{"RS"} or @code{"RECLEN"},
+depending upon which kind of record processing is in effect.
+
+@item Additional @code{printf} specifiers
+The 1999 ISO C standard added a number of additional @code{printf}
+format specifiers. These should be evaluated for possible inclusion
+in @command{gawk}.
+
+@ignore
+@item A @samp{%'d} flag
+Add @samp{%'d} for putting in commas in formatting numeric values.
+@end ignore
@item Databases
-It may be possible to map a GDBM/NDBM/SDBM file into an @code{awk} array.
+It may be possible to map a GDBM/NDBM/SDBM file into an @command{awk} array.
-@item A @code{PROCINFO} Array
-The special files that provide process-related information
-(@pxref{Special Files, ,Special File Names in @code{gawk}})
-will be superseded by a @code{PROCINFO} array that would provide the same
-information, in an easier to access fashion.
+@item Large Character Sets
+It would be nice if @command{gawk} could handle UTF-8 and other
+character sets that are larger than eight bits.
@item More @code{lint} warnings
There are more things that could be checked for portability.
+@end table
-@item Control of subprocess environment
-Changes made in @code{gawk} to the array @code{ENVIRON} may be
-propagated to subprocesses run by @code{gawk}.
-
-@ignore
-@item @code{RECLEN} variable for fixed length records
-Along with @code{FIELDWIDTHS}, this would speed up the processing of
-fixed-length records.
+Following is a list of probable improvements that will make @command{gawk}'s
+source code easier to work with:
-@item A @code{restart} keyword
-After modifying @code{$0}, @code{restart} would restart the pattern
-matching loop, without reading a new record from the input.
-
-@item A @samp{|&} redirection
-The @samp{|&} redirection, in place of @samp{|}, would open a two-way
-pipeline for communication with a sub-process (via @code{getline} and
-@code{print} and @code{printf}).
-
-@item Function valued variables
-It would be possible to assign the name of a user-defined or built-in
-function to a regular @code{awk} variable, and then call the function
-indirectly, by using the regular variable. This would make it possible
-to write general purpose sorting and comparing routines, for example,
-by simply passing the name of one function into another.
-
-@item A built-in @code{stat} function
-The @code{stat} function would provide an easy-to-use hook to the
-@code{stat} system call so that @code{awk} programs could determine information
-about files.
-
-@item A built-in @code{ftw} function
-Combined with function valued variables and the @code{stat} function,
-@code{ftw} (file tree walk) would make it easy for an @code{awk} program
-to walk an entire file tree.
-@end ignore
+@table @asis
+@item Loadable Module Mechanics
+The current extension mechanism works
+(@pxref{Dynamic Extensions, ,Adding New Built-in Functions to @command{gawk}}),
+but is rather primitive. It requires a fair amount of manual work
+to create and integrate a loadable module.
+Nor is the current mechanism as portable as might be desired.
+The GNU @command{libtool} package provides a number of features that
+would make using loadable modules much easier.
+@command{gawk} should be changed to use @command{libtool}.
+
+@item Loadable Module Internals
+The API to its internals that @command{gawk} ``exports'' should be revised.
+Too many things are needlessly exposed. A new API should be designed
+and implemented to make module writing easier.
+
+@item Better Array Subscript Management
+@command{gawk}'s management of array subscript storage could use revamping,
+so that using the same value to index multiple arrays only
+stores one copy of the index value.
+
+@item Integrating the DBUG Library
+Integrating Fred Fish's DBUG library would be helpful during development,
+but it's a lot of work to do.
@end table
-This is a list of probable improvements that will make @code{gawk}
-perform better.
+Following is a list of probable improvements that will make @command{gawk}
+perform better:
@table @asis
@item An Improved Version of @code{dfa}
-The @code{dfa} pattern matcher from GNU @code{grep} has some
+The @code{dfa} pattern matcher from GNU @command{grep} has some
problems. Either a new version or a fixed one will deal with some
important regexp matching issues.
-@item Use of GNU @code{malloc}
-The GNU version of @code{malloc} could potentially speed up @code{gawk},
-since it relies heavily on the use of dynamic memory allocation.
-
-@end table
-
-@node Improvements, , Future Extensions, Notes
-@appendixsec Suggestions for Improvements
-
-Here are some projects that would-be @code{gawk} hackers might like to take
-on. They vary in size from a few days to a few weeks of programming,
-depending on which one you choose and how fast a programmer you are. Please
-send any improvements you write to the maintainers at the GNU project.
-@xref{Adding Code, , Adding New Features},
-for guidelines to follow when adding new features to @code{gawk}.
-@xref{Bugs, ,Reporting Problems and Bugs}, for information on
-contacting the maintainers.
-
-@enumerate
-@item
-Compilation of @code{awk} programs: @code{gawk} uses a Bison (YACC-like)
+@c NEXT ED: remove this item. awka and mawk do these respectively
+@item Compilation of @command{awk} programs
+@command{gawk} uses a Bison (YACC-like)
parser to convert the script given it into a syntax tree; the syntax
tree is then executed by a simple recursive evaluator. This method incurs
a lot of overhead, since the recursive evaluator performs many procedure
calls to do even the simplest things.
-It should be possible for @code{gawk} to convert the script's parse tree
+It should be possible for @command{gawk} to convert the script's parse tree
into a C program which the user would then compile, using the normal
-C compiler and a special @code{gawk} library to provide all the needed
-functions (regexps, fields, associative arrays, type coercion, and so
-on).
+C compiler and a special @command{gawk} library to provide all the needed
+functions (regexps, fields, associative arrays, type coercion, and so on).
-An easier possibility might be for an intermediate phase of @code{awk} to
+An easier possibility might be for an intermediate phase of @command{gawk} to
convert the parse tree into a linear byte code form like the one used
in GNU Emacs Lisp. The recursive evaluator would then be replaced by
a straight line byte code interpreter that would be intermediate in speed
-between running a compiled program and doing what @code{gawk} does
+between running a compiled program and doing what @command{gawk} does
now.
+@end table
-@item
-The programs in the test suite could use documenting in this @value{DOCUMENT}.
+Finally,
+the programs in the test suite could use documenting in this @value{DOCUMENT}.
-@item
-See the @file{FUTURES} file for more ideas. Contact us if you would
-seriously like to tackle any of the items listed there.
-@end enumerate
+@xref{Additions, ,Making Additions to @command{gawk}},
+if you are interested in tackling any of these projects.
+
+@node Basic Concepts, Glossary, Notes, Top
+@appendix Basic Programming Concepts
+@cindex basic programming concepts
+@cindex programming concepts, basic
+
+This @value{APPENDIX} attempts to define some of the basic concepts
+and terms that are used throughout the rest of this @value{DOCUMENT}.
+As this @value{DOCUMENT} is specifically about @command{awk},
+and not about computer programming in general, the coverage here
+is by necessity fairly cursory and simplistic.
+(If you need more background, there are many
+other introductory texts that you should refer to instead.)
+
+@menu
+* Basic High Level:: The high level view.
+* Basic Data Typing:: A very quick intro to data types.
+* Floating Point Issues:: Stuff to know about floating-point numbers.
+@end menu
+
+@node Basic High Level, Basic Data Typing, Basic Concepts, Basic Concepts
+@appendixsec What a Program Does
+
+@cindex processing data
+At the most basic level, the job of a program is to process
+some input data and produce results.
+
+@c NEXT ED: Use real images here
+@iftex
+@tex
+\expandafter\ifx\csname graph\endcsname\relax \csname newbox\endcsname\graph\fi
+\expandafter\ifx\csname graphtemp\endcsname\relax \csname newdimen\endcsname\graphtemp\fi
+\setbox\graph=\vtop{\vskip 0pt\hbox{%
+ \special{pn 20}%
+ \special{pa 2425 200}%
+ \special{pa 2850 200}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 20}%
+ \special{pa 2750 175}%
+ \special{pa 2850 200}%
+ \special{pa 2750 225}%
+ \special{pa 2750 175}%
+ \special{fp}%
+ \special{pn 20}%
+ \special{pa 850 200}%
+ \special{pa 1250 200}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 20}%
+ \special{pa 1150 175}%
+ \special{pa 1250 200}%
+ \special{pa 1150 225}%
+ \special{pa 1150 175}%
+ \special{fp}%
+ \special{pn 20}%
+ \special{pa 2950 400}%
+ \special{pa 3650 400}%
+ \special{pa 3650 0}%
+ \special{pa 2950 0}%
+ \special{pa 2950 400}%
+ \special{fp}%
+ \special{pn 10}%
+ \special{ar 1800 200 450 200 0 6.28319}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 3.300in\lower\graphtemp\hbox to 0pt{\hss Results\hss}}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 1.800in\lower\graphtemp\hbox to 0pt{\hss Program\hss}}%
+ \special{pn 10}%
+ \special{pa 0 400}%
+ \special{pa 700 400}%
+ \special{pa 700 0}%
+ \special{pa 0 0}%
+ \special{pa 0 400}%
+ \special{fp}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 0.350in\lower\graphtemp\hbox to 0pt{\hss Data\hss}}%
+ \hbox{\vrule depth0.400in width0pt height 0pt}%
+ \kern 3.650in
+ }%
+}%
+\centerline{\box\graph}
+@end tex
+@end iftex
+@ifnottex
+@example
+ _______
++------+ / \ +---------+
+| Data | -----> < Program > -----> | Results |
++------+ \_______/ +---------+
+@end example
+@end ifnottex
+
+@cindex compiled programs
+@cindex programs, compiled
+@cindex interpreted programs
+@cindex programs, interpreted
+The ``program'' in the figure can be either a compiled
+program@footnote{Compiled programs are typically written
+in lower-level languages such as C, C++, Fortran, or Ada,
+and then translated, or @dfn{compiled}, into a form that
+the computer can execute directly.}
+(such as @command{ls}),
+or it may be @dfn{interpreted}. In the latter case, a machine-executable
+program such as @command{awk} reads your program, and then uses the
+instructions in your program to process the data.
+
+@cindex programming, basic steps
+When you write a program, it usually consists
+of the following, very basic set of steps:
+
+@c NEXT ED: Use real images here
+@iftex
+@tex
+\expandafter\ifx\csname graph\endcsname\relax \csname newbox\endcsname\graph\fi
+\expandafter\ifx\csname graphtemp\endcsname\relax \csname newdimen\endcsname\graphtemp\fi
+\setbox\graph=\vtop{\vskip 0pt\hbox{%
+ \graphtemp=.5ex\advance\graphtemp by 0.600in
+ \rlap{\kern 2.800in\lower\graphtemp\hbox to 0pt{\hss Yes\hss}}%
+ \graphtemp=.5ex\advance\graphtemp by 0.100in
+ \rlap{\kern 3.300in\lower\graphtemp\hbox to 0pt{\hss No\hss}}%
+ \special{pn 8}%
+ \special{pa 2100 1000}%
+ \special{pa 1600 1000}%
+ \special{pa 1600 1000}%
+ \special{pa 1600 300}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 8}%
+ \special{pa 1575 400}%
+ \special{pa 1600 300}%
+ \special{pa 1625 400}%
+ \special{pa 1575 400}%
+ \special{fp}%
+ \special{pn 8}%
+ \special{pa 2600 500}%
+ \special{pa 2600 900}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 8}%
+ \special{pa 2625 800}%
+ \special{pa 2600 900}%
+ \special{pa 2575 800}%
+ \special{pa 2625 800}%
+ \special{fp}%
+ \special{pn 8}%
+ \special{pa 3200 200}%
+ \special{pa 4000 200}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 8}%
+ \special{pa 3900 175}%
+ \special{pa 4000 200}%
+ \special{pa 3900 225}%
+ \special{pa 3900 175}%
+ \special{fp}%
+ \special{pn 8}%
+ \special{pa 1400 200}%
+ \special{pa 2100 200}%
+ \special{fp}%
+ \special{sh 1.000}%
+ \special{pn 8}%
+ \special{pa 2000 175}%
+ \special{pa 2100 200}%
+ \special{pa 2000 225}%
+ \special{pa 2000 175}%
+ \special{fp}%
+ \special{pn 8}%
+ \special{ar 2600 1000 400 100 0 6.28319}%
+ \graphtemp=.5ex\advance\graphtemp by 1.000in
+ \rlap{\kern 2.600in\lower\graphtemp\hbox to 0pt{\hss Process\hss}}%
+ \special{pn 8}%
+ \special{pa 2200 400}%
+ \special{pa 3100 400}%
+ \special{pa 3100 0}%
+ \special{pa 2200 0}%
+ \special{pa 2200 400}%
+ \special{fp}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 2.688in\lower\graphtemp\hbox to 0pt{\hss More Data?\hss}}%
+ \special{pn 8}%
+ \special{ar 650 200 650 200 0 6.28319}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 0.613in\lower\graphtemp\hbox to 0pt{\hss Initialization\hss}}%
+ \special{pn 8}%
+ \special{ar 0 200 0 0 0 6.28319}%
+ \special{pn 8}%
+ \special{ar 4550 200 450 100 0 6.28319}%
+ \graphtemp=.5ex\advance\graphtemp by 0.200in
+ \rlap{\kern 4.600in\lower\graphtemp\hbox to 0pt{\hss Clean Up\hss}}%
+ \hbox{\vrule depth1.100in width0pt height 0pt}%
+ \kern 5.000in
+ }%
+}%
+\centerline{\box\graph}
+@end tex
+@end iftex
+@ifnottex
+@example
+ ______
++----------------+ / More \ No +----------+
+| Initialization | -------> < Data > -------> | Clean Up |
++----------------+ ^ \ ? / +----------+
+ | +--+-+
+ | | Yes
+ | |
+ | V
+ | +---------+
+ +-----+ Process |
+ +---------+
+@end example
+@end ifnottex
+
+@table @asis
+@item Initialization
+These are the things you do before actually starting to process
+data, such as checking arguments, initializing any data you need
+to work with, and so on.
+This step corresponds to @command{awk}'s @code{BEGIN} rule
+(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
+
+If you were baking a cake, this might consist of laying out all the
+mixing bowls and the baking pan, and making sure you have all the
+ingredients that you need.
+
+@item Processing
+This is where the actual work is done. Your program reads data,
+one logical chunk at a time, and processes it as appropriate.
+
+In most programming languages, you have to manually manage the reading
+of data, checking to see if there is more each time you read a chunk.
+@command{awk}'s pattern-action paradigm
+(@pxref{Getting Started, ,Getting Started with @command{awk}})
+handles the mechanics of this for you.
+
+In baking a cake, the processing corresponds to the actual labor:
+breaking eggs, mixing the flour, water, and other ingredients, and then putting the cake
+into the oven.
+
+@item Clean Up
+Once you've processed all the data, you may have things you need to
+do before exiting.
+This step corresponds to @command{awk}'s @code{END} rule
+(@pxref{BEGIN/END, ,The @code{BEGIN} and @code{END} Special Patterns}).
+
+After the cake comes out of the oven, you still have to wrap it in
+plastic wrap to keep anyone from tasting it, as well as wash
+the mixing bowls and other utensils.
+@end table
+
+@cindex algorithm, definition of
+An @dfn{algorithm} is a detailed set of instructions necessary to accomplish
+a task, or process data. It is much the same as a recipe for baking
+a cake. Programs implement algorithms. Often, it is up to you to design
+the algorithm and implement it, simultaneously.
+
+@cindex record, definition of
+@cindex fields, definition of
+The ``logical chunks'' we talked about previously are called @dfn{records},
+similar to the records a company keeps on employees, a school keeps for
+students, or a doctor keeps for patients.
+Each record has many component parts, such as first and last names,
+date of birth, address, and so on. The component parts are referred
+to as the @dfn{fields} of the record.
+
+The act of reading data is termed @dfn{input}, and that of
+generating results, not too surprisingly, is termed @dfn{output}.
+They are often referred to together as ``Input/Output,''
+and even more often, as ``I/O'' for short.
+(You will also see ``input'' and ``output'' used as verbs.)
+
+@cindex data-driven languages
+@cindex language, data-driven
+@command{awk} manages the reading of data for you, as well as the
+breaking it up into records and fields. Your program's job is to
+tell @command{awk} what to with the data. You do this by describing
+@dfn{patterns} in the data to look for, and @dfn{actions} to execute
+when those patterns are seen. This @dfn{data-driven} nature of
+@command{awk} programs usually makes them both easier to write
+and easier to read.
+
+@node Basic Data Typing, Floating Point Issues, Basic High Level, Basic Concepts
+@appendixsec Data Values in a Computer
+
+@cindex variable, definition of
+In a program,
+you keep track of information and values in things called @dfn{variables}.
+A variable is just a name for a given value, such as @code{first_name},
+@code{last_name}, @code{address}, and so on.
+@command{awk} has several pre-defined variables, and it has
+special names to refer to the current input record
+and the fields of the record.
+You may also group multiple
+associated values under one name, as an array.
+
+@cindex values, numeric
+@cindex values, string
+@cindex scalar, definition of
+Data, particularly in @command{awk}, consists of either numeric
+values, such as 42 or 3.1415927, or string values.
+String values are essentially anything that's not a number, such as a name.
+Strings are sometimes referred to as @dfn{character data}, since they
+store the individual characters that comprise them.
+Individual variables, as well as numeric and string variables, are
+referred to as @dfn{scalar} values.
+Groups of values, such as arrays, are not scalars.
+
+@cindex integer, definition of
+@cindex floating-point, definition of
+Within computers, there are two kinds of numeric values: @dfn{integers},
+and @dfn{floating-point}.
+In school, integer values were referred to as ``whole'' numbers---that is,
+numbers without any fractional part, such as 1, 42, or @minus{}17.
+The advantage to integer numbers is that they represent values exactly.
+The disadvantage is that their range is limited. On most modern systems,
+this range is @minus{}2,147,483,648 to 2,147,483,647.
+
+@cindex unsigned integers
+@cindex integer, unsigned
+Integer values come in two flavors: @dfn{signed} and @dfn{unsigned}.
+Signed values may be negative or positive, with the range of values just
+described.
+Unsigned values are always positive. On most modern systems,
+the range is from 0 to 4,294,967,295.
+
+@cindex double-precision floating-point, definition of
+@cindex single-precision floating-point, definition of
+Floating-point numbers represent what are called ``real'' numbers; i.e.,
+those that do have a fractional part, such as 3.1415927.
+The advantage to floating-point numbers is that they
+can represent a much larger range of values.
+The disadvantage is that there are numbers that they cannot represent
+exactly.
+@command{awk} uses @dfn{double-precision} floating-point numbers, which
+can hold more digits than @dfn{single-precision}
+floating-point numbers.
+Floating-point issues are discussed more fully in
+@ref{Floating Point Issues, ,Floating-Point Number Caveats}.
+
+At the very lowest level, computers store values as groups of binary digits,
+or @dfn{bits}. Modern computers group bits into groups of eight, called @dfn{bytes}.
+Advanced applications sometimes have to manipulate bits directly,
+and @command{gawk} provides functions for doing so.
+
+@cindex null string, definition of
+@cindex empty string, definition of
+While you are probably used to the idea of a number without a value (i.e., zero),
+it takes a bit more getting used to the idea of zero-length character data.
+Nevertheless, such a thing exists.
+It is called the @dfn{null string}.
+The null string is character data that has no value.
+In other words, it is empty. It is written in @command{awk} programs
+like this: @code{""}.
+
+Humans are used to working in decimal; i.e., base 10. In base 10,
+numbers go from 0 to 9, and then ``roll over'' into the next
+column. (Remember grade school? 42 is 4 times 10 plus 2.)
+
+There are other number bases though. Computers commonly use base 2
+or @dfn{binary}, base 8 or @dfn{octal}, and base 16 or @dfn{hexadecimal}.
+In binary, each column represents two times the value in the column to
+its right. Each column may contain either a 0 or a 1.
+Thus, binary 1010 represents 1 times 8, plus 0 times 4, plus 1 times 2,
+plus 0 times 1, or decimal 10.
+Octal and hexadecimal are discussed more in
+@ref{Non-decimal-numbers, ,Octal and Hexadecimal Numbers}.
+
+Programs are written in programming languages.
+Hundreds, if not thousands, of programming languages exist.
+One of the most popular is the C programming language.
+The C language had a very strong influence on the design of
+the @command{awk} language.
+
+@cindex Kernighan, Brian
+@cindex Ritchie, Dennis
+There have been several versions of C. The first is often referred to
+as ``K&R'' C, after the initials of Brian Kernighan and Dennis Ritchie,
+the authors of the first book on C. (Dennis Ritchie created the language,
+and Brian Kernighan was one of the creators of @command{awk}.)
+
+In the mid-1980's, an effort began to produce an international standard
+for C. This work culminated in 1989, with the production of the ANSI
+standard for C. This standard became an ISO standard in 1990.
+Where it makes sense, POSIX @command{awk} is compatible with 1990 ISO C.
+
+In 1999, a revised ISO C standard was approved and released.
+Future versions of @command{gawk} will be as compatible as possible
+with this standard.
+
+@node Floating Point Issues, , Basic Data Typing, Basic Concepts
+@appendixsec Floating-Point Number Caveats
+
+As mentioned earlier, floating-point numbers represent what are called
+``real'' numbers; i.e., those that have a fractional part. @command{awk}
+uses double-precision floating-point numbers to represent all
+numeric values. This @value{SECTION} describes some of the issues
+involved in using floating-point numbers.
+
+There is a very nice paper on floating-point arithmetic by
+David Goldberg, @cite{What Every
+Computer Scientist Should Know About Floating-point Arithmetic},
+@cite{ACM Computing Surveys} @strong{23}, 1 (1991-03),
+5-48.@footnote{@uref{http://www.validgh.com/goldberg/paper.ps}}
+This is worth reading if you are interested in the details,
+but it does require a background in Computer Science.
+
+Internally, @command{awk} keeps both the numeric value
+(double-precision floating-point) and the string value for a variable.
+Separately, @command{awk} keeps
+track of what type the variable has
+(@pxref{Typing and Comparison, ,Variable Typing and Comparison Expressions}),
+which plays a role in how variables are used in comparisons.
+
+It is important to note that the string value for a number may not
+reflect the full value (all the digits) that the numeric value
+actually contains.
+The following program (@file{values.awk}) illustrates this:
+
+@example
+@{
+ $1 = $2 + $3
+ # see it for what it is
+ printf("$1 = %.12g\n", $1)
+ # use CONVFMT
+ a = "<" $1 ">"
+ print "a =", a
+@group
+ # use OFMT
+ print "$1 =", $1
+@end group
+@}
+@end example
+
+@noindent
+This program shows the full value of the sum of @code{$2} and @code{$3}
+using @code{printf}, and then prints the string values obtained
+from both automatic conversion (via @code{CONVFMT}) and
+from printing (via @code{OFMT}).
+
+Here is what happens when the program is run:
+
+@example
+$ echo 2 3.654321 1.2345678 | awk -f values.awk
+@print{} $1 = 4.8888888
+@print{} a = <4.88889>
+@print{} $1 = 4.88889
+@end example
+
+This makes it clear that the full numeric value is different from
+what the default string representations show.
+
+@code{CONVFMT}'s default value is @code{"%.6g"}, which yields a value with
+at least six significant digits. For some applications, you might want to
+change it to specify more precision.
+On most modern machines, most of the time,
+17 digits is enough to capture a floating-point number's
+value exactly.@footnote{Pathological cases can require up to
+752 digits (!), but we doubt that you need to worry about this.}
+
+@cindex floating-point, precision issues
+Unlike numbers in the abstract sense (such as what you studied in high school
+or college math), numbers stored in computers are limited in certain ways.
+They cannot represent an infinite number of digits, nor can they always
+represent things exactly.
+In particular,
+floating-point numbers cannot
+always represent values exactly. Here is an example:
-@node Glossary, Copying, Notes, Top
-@appendix Glossary
+@example
+$ awk '@{ printf("%010d\n", $1 * 100) @}'
+515.79
+@print{} 0000051579
+515.80
+@print{} 0000051579
+515.81
+@print{} 0000051580
+515.82
+@print{} 0000051582
+@kbd{Ctrl-d}
+@end example
+
+@noindent
+This shows that some values can be represented exactly,
+whereas others are only approximated. This is not a ``bug''
+in @command{awk}, but simply an artifact of how computers
+represent numbers.
+
+@cindex negative zero
+@cindex positive zero
+@cindex zero, negative vs.@: positive
+@cindex floating-point, positive and negative values for zero
+Another peculiarity of floating-point numbers on modern systems
+is that they often have more than one representation for the number zero!
+In particular, it is possible to represent ``minus zero'' as well as
+regular, or ``positive'' zero.
+
+This example shows that negative and positive zero are distinct values
+when stored internally, but that they are in fact equal to each other,
+as well as to ``regular'' zero:
+
+@smallexample
+$ gawk 'BEGIN @{ mz = -0 ; pz = 0
+> printf "-0 = %g, +0 = %g, (-0 == +0) -> %d\n", mz, pz, mz == pz
+> printf "mz == 0 -> %d, pz == 0 -> %d\n", mz == 0, pz == 0
+> @}'
+@print{} -0 = -0, +0 = 0, (-0 == +0) -> 1
+@print{} mz == 0 -> 1, pz == 0 -> 1
+@end smallexample
+
+It helps to keep this in mind should you process numeric data
+that contains negative zero values; the fact that the zero is negative
+is noted and can affect comparisons.
+
+@node Glossary, Copying, Basic Concepts, Top
+@unnumbered Glossary
@table @asis
@item Action
-A series of @code{awk} statements attached to a rule. If the rule's
-pattern matches an input record, @code{awk} executes the
+A series of @command{awk} statements attached to a rule. If the rule's
+pattern matches an input record, @command{awk} executes the
rule's action. Actions are always enclosed in curly braces.
-@xref{Action Overview, ,Overview of Actions}.
+(@xref{Action Overview, ,Actions}.)
-@item Amazing @code{awk} Assembler
+@cindex Spencer, Henry
+@cindex @command{sed} utility
+@cindex amazing @command{awk} assembler (@command{aaa})
+@item Amazing @command{awk} Assembler
Henry Spencer at the University of Toronto wrote a retargetable assembler
-completely as @code{awk} scripts. It is thousands of lines long, including
-machine descriptions for several eight-bit microcomputers.
-It is a good example of a
-program that would have been better written in another language.
-
-@item Amazingly Workable Formatter (@code{awf})
+completely as @command{sed} and @command{awk} scripts. It is thousands
+of lines long, including machine descriptions for several eight-bit
+microcomputers. It is a good example of a program that would have been
+better written in another language.
+You can get it from @uref{ftp://ftp.freefriends.org/arnold/Awkstuff/aaa.tgz}.
+
+@cindex amazingly workable formatter (@command{awf})
+@cindex @command{awf} (amazingly workable formatter) program
+@item Amazingly Workable Formatter (@command{awf})
Henry Spencer at the University of Toronto wrote a formatter that accepts
a large subset of the @samp{nroff -ms} and @samp{nroff -man} formatting
-commands, using @code{awk} and @code{sh}.
+commands, using @command{awk} and @command{sh}.
+It is available over the Internet
+from @uref{ftp://ftp.freefriends.org/arnold/Awkstuff/awf.tgz}.
+
+@item Anchor
+The regexp metacharacters @samp{^} and @samp{$}, which force the match
+to the beginning or end of the string, respectively.
+@cindex ANSI
@item ANSI
The American National Standards Institute. This organization produces
many standards, among them the standards for the C and C++ programming
languages.
+These standards often become international standards as well. See also
+``ISO.''
+
+@item Array
+A grouping of multiple values under the same name.
+Most languages just provide sequential arrays.
+@command{awk} provides associative arrays.
+
+@item Assertion
+A statement in a program that a condition is true at this point in the program.
+Useful for reasoning about how a program is supposed to behave.
@item Assignment
-An @code{awk} expression that changes the value of some @code{awk}
+An @command{awk} expression that changes the value of some @command{awk}
variable or data object. An object that you can assign to is called an
@dfn{lvalue}. The assigned values are called @dfn{rvalues}.
@xref{Assignment Ops, ,Assignment Expressions}.
-@item @code{awk} Language
-The language in which @code{awk} programs are written.
+@item Associative Array
+Arrays in which the indices may be numbers or strings, not just
+sequential integers in a fixed range.
+
+@item @command{awk} Language
+The language in which @command{awk} programs are written.
-@item @code{awk} Program
-An @code{awk} program consists of a series of @dfn{patterns} and
+@item @command{awk} Program
+An @command{awk} program consists of a series of @dfn{patterns} and
@dfn{actions}, collectively known as @dfn{rules}. For each input record
given to the program, the program's rules are all processed in turn.
-@code{awk} programs may also contain function definitions.
+@command{awk} programs may also contain function definitions.
-@item @code{awk} Script
-Another name for an @code{awk} program.
+@item @command{awk} Script
+Another name for an @command{awk} program.
@item Bash
-The GNU version of the standard shell (the Bourne-Again shell).
-See ``Bourne Shell.''
+The GNU version of the standard shell
+@iftex
+(the @b{B}ourne-@b{A}gain @b{SH}ell).
+@end iftex
+@ifnottex
+(the Bourne-Again SHell).
+@end ifnottex
+See also ``Bourne Shell.''
@item BBS
See ``Bulletin Board System.''
+@item Bit
+Short for ``Binary Digit.''
+All values in computer memory ultimately reduce to binary digits: values
+that are either zero or one.
+Groups of bits may be interpreted differently---as integers,
+floating-point numbers, character data, addresses of other
+memory objects, or other data.
+@command{awk} lets you work with floating-point numbers and strings.
+@command{gawk} lets you manipulate bit values with the built-in
+functions described in
+@ref{Bitwise Functions, ,Using @command{gawk}'s Bit Manipulation Functions}.
+
+Computers are often defined by how many bits they use to represent integer
+values. Typical systems are 32-bit systems, but 64-bit systems are
+becoming increasingly popular, and 16-bit systems are waning in
+popularity.
+
@item Boolean Expression
-Named after the English mathematician Boole. See ``Logical Expression.''
+Named after the English mathematician Boole. See also ``Logical Expression.''
@item Bourne Shell
The standard shell (@file{/bin/sh}) on Unix and Unix-like systems,
originally written by Steven R.@: Bourne.
-Many shells (Bash, @code{ksh}, @code{pdksh}, @code{zsh}) are
+Many shells (@command{bash}, @command{ksh}, @command{pdksh}, @command{zsh}) are
generally upwardly compatible with the Bourne shell.
@item Built-in Function
-The @code{awk} language provides built-in functions that perform various
-numerical, time stamp related, and string computations. Examples are
+The @command{awk} language provides built-in functions that perform various
+numerical, I/O-related, and string computations. Examples are
@code{sqrt} (for the square root of a number) and @code{substr} (for a
-substring of a string). @xref{Built-in, ,Built-in Functions}.
+substring of a string).
+@command{gawk} provides functions for timestamp management, bit manipulation,
+and runtime string translation.
+(@xref{Built-in, ,Built-in Functions}.)
@item Built-in Variable
-@code{ARGC}, @code{ARGIND}, @code{ARGV}, @code{CONVFMT}, @code{ENVIRON},
-@code{ERRNO}, @code{FIELDWIDTHS}, @code{FILENAME}, @code{FNR}, @code{FS},
-@code{IGNORECASE}, @code{NF}, @code{NR}, @code{OFMT}, @code{OFS}, @code{ORS},
-@code{RLENGTH}, @code{RSTART}, @code{RS}, @code{RT}, and @code{SUBSEP},
-are the variables that have special meaning to @code{awk}.
-Changing some of them affects @code{awk}'s running environment.
-Several of these variables are specific to @code{gawk}.
-@xref{Built-in Variables}.
+@code{ARGC},
+@code{ARGV},
+@code{CONVFMT},
+@code{ENVIRON},
+@code{FILENAME},
+@code{FNR},
+@code{FS},
+@code{NF},
+@code{NR},
+@code{OFMT},
+@code{OFS},
+@code{ORS},
+@code{RLENGTH},
+@code{RSTART},
+@code{RS},
+and
+@code{SUBSEP}
+are the variables that have special meaning to @command{awk}.
+In addition,
+@code{ARGIND},
+@code{BINMODE},
+@code{ERRNO},
+@code{FIELDWIDTHS},
+@code{IGNORECASE},
+@code{LINT},
+@code{PROCINFO},
+@code{RT},
+and
+@code{TEXTDOMAIN}
+are the variables that have special meaning to @command{gawk}.
+Changing some of them affects @command{awk}'s running environment.
+(@xref{Built-in Variables}.)
@item Braces
See ``Curly Braces.''
@@ -20164,11 +24688,19 @@ board.
@item C
The system programming language that most GNU software is written in. The
-@code{awk} programming language has C-like syntax, and this @value{DOCUMENT}
-points out similarities between @code{awk} and C when appropriate.
+@command{awk} programming language has C-like syntax, and this @value{DOCUMENT}
+points out similarities between @command{awk} and C when appropriate.
+
+In general, @command{gawk} attempts to be as similar to the 1990 version
+of ISO C as makes sense. Future versions of @command{gawk} may adopt features
+from the newer 1999 standard, as appropriate.
+
+@item C++
+A popular object-oriented programming language derived from C.
@cindex ISO 8859-1
@cindex ISO Latin-1
+@cindex character sets (machine character encodings)
@item Character Set
The set of numeric codes used by a computer system to represent the
characters (letters, numbers, punctuation, etc.) of a particular country
@@ -20176,156 +24708,255 @@ or place. The most common character set in use today is ASCII (American
Standard Code for Information Interchange). Many European
countries use an extension of ASCII known as ISO-8859-1 (ISO Latin-1).
+@cindex @command{chem} utility
@item CHEM
-A preprocessor for @code{pic} that reads descriptions of molecules
-and produces @code{pic} input for drawing them. It was written in @code{awk}
+A preprocessor for @command{pic} that reads descriptions of molecules
+and produces @command{pic} input for drawing them.
+It was written in @command{awk}
by Brian Kernighan and Jon Bentley, and is available from
-@email{@w{netlib@@research.bell-labs.com}}.
+@uref{http://cm.bell-labs.com/netlib/typesetting/chem.gz}.
+
+@item Coprocess
+A subordinate program with which two-way communications is possible.
+
+@cindex compiled programs
+@item Compiler
+A program that translates human-readable source code into
+machine-executable object code. The object code is then executed
+directly by the computer.
+See also ``Interpreter.''
@item Compound Statement
-A series of @code{awk} statements, enclosed in curly braces. Compound
+A series of @command{awk} statements, enclosed in curly braces. Compound
statements may be nested.
-@xref{Statements, ,Control Statements in Actions}.
+(@xref{Statements, ,Control Statements in Actions}.)
@item Concatenation
Concatenating two strings means sticking them together, one after another,
-giving a new string. For example, the string @samp{foo} concatenated with
+producing a new string. For example, the string @samp{foo} concatenated with
the string @samp{bar} gives the string @samp{foobar}.
-@xref{Concatenation, ,String Concatenation}.
+(@xref{Concatenation, ,String Concatenation}.)
@item Conditional Expression
An expression using the @samp{?:} ternary operator, such as
@samp{@var{expr1} ? @var{expr2} : @var{expr3}}. The expression
@var{expr1} is evaluated; if the result is true, the value of the whole
-expression is the value of @var{expr2}, otherwise the value is
+expression is the value of @var{expr2}; otherwise the value is
@var{expr3}. In either case, only one of @var{expr2} and @var{expr3}
-is evaluated. @xref{Conditional Exp, ,Conditional Expressions}.
+is evaluated. (@xref{Conditional Exp, ,Conditional Expressions}.)
@item Comparison Expression
A relation that is either true or false, such as @samp{(a < b)}.
Comparison expressions are used in @code{if}, @code{while}, @code{do},
and @code{for}
statements, and in patterns to select which input records to process.
-@xref{Typing and Comparison, ,Variable Typing and Comparison Expressions}.
+(@xref{Typing and Comparison, ,Variable Typing and Comparison Expressions}.)
@item Curly Braces
The characters @samp{@{} and @samp{@}}. Curly braces are used in
-@code{awk} for delimiting actions, compound statements, and function
+@command{awk} for delimiting actions, compound statements, and function
bodies.
+@cindex dark corner
@item Dark Corner
An area in the language where specifications often were (or still
are) not clear, leading to unexpected or undesirable behavior.
-Such areas are marked in this @value{DOCUMENT} with ``(d.c.)'' in the
-text, and are indexed under the heading ``dark corner.''
+Such areas are marked in this @value{DOCUMENT} with
+@iftex
+the picture of a flashlight in the margin
+@end iftex
+@ifnottex
+``(d.c.)'' in the text
+@end ifnottex
+and are indexed under the heading ``dark corner.''
+
+@item Data Driven
+A description of @command{awk} programs, where you specify the data you
+are interested in processing, and what to do when that data is seen.
@item Data Objects
These are numbers and strings of characters. Numbers are converted into
strings and vice versa, as needed.
-@xref{Conversion, ,Conversion of Strings and Numbers}.
+(@xref{Conversion, ,Conversion of Strings and Numbers}.)
+
+@item Deadlock
+The situation in which two communicating processes are each waiting
+for the other to perform an action.
-@item Double Precision
+@item Double-Precision
An internal representation of numbers that can have fractional parts.
-Double precision numbers keep track of more digits than do single precision
-numbers, but operations on them are more expensive. This is the way
-@code{awk} stores numeric values. It is the C type @code{double}.
+Double-precision numbers keep track of more digits than do single-precision
+numbers, but operations on them are sometimes more expensive. This is the way
+@command{awk} stores numeric values. It is the C type @code{double}.
@item Dynamic Regular Expression
A dynamic regular expression is a regular expression written as an
ordinary expression. It could be a string constant, such as
@code{"foo"}, but it may also be an expression whose value can vary.
-@xref{Computed Regexps, , Using Dynamic Regexps}.
+(@xref{Computed Regexps, , Using Dynamic Regexps}.)
@item Environment
A collection of strings, of the form @var{name@code{=}val}, that each
program has available to it. Users generally place values into the
environment in order to provide information to various programs. Typical
-examples are the environment variables @code{HOME} and @code{PATH}.
+examples are the environment variables @env{HOME} and @env{PATH}.
@item Empty String
See ``Null String.''
+@cindex epoch, definition of
+@item Epoch
+The date used as the ``beginning of time'' for timestamps.
+Time values in Unix systems are represented as seconds since the epoch,
+with library functions available for converting these values into
+standard date and time formats.
+
+The epoch on Unix and POSIX systems is 1970-01-01 00:00:00 UTC.
+See also ``GMT'' and ``UTC.''
+
@item Escape Sequences
A special sequence of characters used for describing non-printing
-characters, such as @samp{\n} for newline, or @samp{\033} for the ASCII
-ESC (escape) character. @xref{Escape Sequences}.
+characters, such as @samp{\n} for newline or @samp{\033} for the ASCII
+ESC (Escape) character. (@xref{Escape Sequences}.)
+
+@item FDL
+See ``Free Documentation License.''
@item Field
-When @code{awk} reads an input record, it splits the record into pieces
-separated by whitespace (or by a separator regexp which you can
+When @command{awk} reads an input record, it splits the record into pieces
+separated by whitespace (or by a separator regexp that you can
change by setting the built-in variable @code{FS}). Such pieces are
called fields. If the pieces are of fixed length, you can use the built-in
variable @code{FIELDWIDTHS} to describe their lengths.
-@xref{Field Separators, ,Specifying How Fields are Separated},
-and also see
-@xref{Constant Size, , Reading Fixed-width Data}.
+(@xref{Field Separators, ,Specifying How Fields Are Separated},
+and
+@ref{Constant Size, ,Reading Fixed-Width Data}.)
-@item Floating Point Number
-Often referred to in mathematical terms as a ``rational'' number, this is
-just a number that can have a fractional part.
-See ``Double Precision'' and ``Single Precision.''
+@item Flag
+A variable whose truth value indicates the existence or non-existence
+of some condition.
+
+@item Floating-Point Number
+Often referred to in mathematical terms as a ``rational'' or real number,
+this is just a number that can have a fractional part.
+See also ``Double-Precision'' and ``Single-Precision.''
@item Format
Format strings are used to control the appearance of output in the
-@code{printf} statement. Also, data conversions from numbers to strings
+@code{strftime} and @code{sprintf} functions, and are used in the
+@code{printf} statement as well. Also, data conversions from numbers to strings
are controlled by the format string contained in the built-in variable
-@code{CONVFMT}. @xref{Control Letters, ,Format-Control Letters}.
+@code{CONVFMT}. (@xref{Control Letters, ,Format-Control Letters}.)
+
+@item Free Documentation License
+This document describes the terms under which this @value{DOCUMENT}
+is published and may be copied. (@xref{GNU Free Documentation License}.)
@item Function
A specialized group of statements used to encapsulate general
-or program-specific tasks. @code{awk} has a number of built-in
+or program-specific tasks. @command{awk} has a number of built-in
functions, and also allows you to define your own.
-@xref{Built-in, ,Built-in Functions},
-and @ref{User-defined, ,User-defined Functions}.
+(@xref{Functions}.)
@item FSF
See ``Free Software Foundation.''
+@cindex FSF
+@cindex Free Software Foundation
+@cindex Stallman, Richard
@item Free Software Foundation
A non-profit organization dedicated
to the production and distribution of freely distributable software.
It was founded by Richard M.@: Stallman, the author of the original
Emacs editor. GNU Emacs is the most widely used version of Emacs today.
-@item @code{gawk}
-The GNU implementation of @code{awk}.
+@item @command{gawk}
+The GNU implementation of @command{awk}.
+@cindex GPL
+@cindex General Public License
+@cindex GNU General Public License
@item General Public License
-This document describes the terms under which @code{gawk} and its source
-code may be distributed. (@pxref{Copying, ,GNU GENERAL PUBLIC LICENSE})
+This document describes the terms under which @command{gawk} and its source
+code may be distributed. (@xref{Copying, ,GNU General Public License}.)
+
+@item GMT
+``Greenwich Mean Time.''
+This is the old term for UTC.
+It is the time of day used as the epoch for Unix and POSIX systems.
+See also ``Epoch'' and ``UTC.''
+@cindex FSF
+@cindex Free Software Foundation
+@cindex GNU Project
@item GNU
``GNU's not Unix''. An on-going project of the Free Software Foundation
to create a complete, freely distributable, POSIX-compliant computing
environment.
+@item GNU/Linux
+A variant of the GNU system using the Linux kernel, instead of the
+Free Software Foundation's Hurd kernel.
+Linux is a stable, efficient, full-featured clone of Unix that has
+been ported to a variety of architectures.
+It is most popular on PC-class systems, but runs well on a variety of
+other systems too.
+The Linux kernel source code is available under the terms of the GNU General
+Public License, which is perhaps its most important aspect.
+
@item GPL
See ``General Public License.''
@item Hexadecimal
-Base 16 notation, where the digits are @code{0}-@code{9} and
-@code{A}-@code{F}, with @samp{A}
-representing 10, @samp{B} representing 11, and so on up to @samp{F} for 15.
+Base 16 notation, where the digits are @code{0}--@code{9} and
+@code{A}--@code{F}, with @samp{A}
+representing 10, @samp{B} representing 11, and so on, up to @samp{F} for 15.
Hexadecimal numbers are written in C using a leading @samp{0x},
-to indicate their base. Thus, @code{0x12} is 18 (one times 16 plus 2).
+to indicate their base. Thus, @code{0x12} is 18 (1 times 16 plus 2).
@item I/O
Abbreviation for ``Input/Output,'' the act of moving data into and/or
out of a running program.
@item Input Record
-A single chunk of data read in by @code{awk}. Usually, an @code{awk} input
+A single chunk of data that is read in by @command{awk}. Usually, an @command{awk} input
record consists of one line of text.
-@xref{Records, ,How Input is Split into Records}.
+(@xref{Records, ,How Input Is Split into Records}.)
@item Integer
-A whole number, i.e.@: a number that does not have a fractional part.
+A whole number, i.e., a number that does not have a fractional part.
+
+@item Internationalization
+The process of writing or modifying a program so
+that it can use multiple languages without requiring
+further source code changes.
+
+@cindex interpreted programs
+@item Interpreter
+A program that reads human-readable source code directly, and uses
+the instructions in it to process data and produce results.
+@command{awk} is typically (but not always) implemented as an interpreter.
+See also ``Compiler.''
+
+@item Interval Expression
+A component of a regular expression that lets you specify repeated matches of
+some part of the regexp. Interval expressions were not traditionally available
+in @command{awk} programs.
+
+@cindex ISO
+@item ISO
+The International Standards Organization.
+This organization produces international standards for many things, including
+programming languages, such as C and C++.
+In the computer arena, important standards like those for C, C++, and POSIX
+become both American national and ISO international standards simultaneously.
+This @value{DOCUMENT} refers to Standard C as ``ISO C'' throughout.
@item Keyword
-In the @code{awk} language, a keyword is a word that has special
+In the @command{awk} language, a keyword is a word that has special
meaning. Keywords are reserved and may not be used as variable names.
-@code{gawk}'s keywords are:
+@command{gawk}'s keywords are:
@code{BEGIN},
@code{END},
@code{if},
@@ -20341,88 +24972,124 @@ meaning. Keywords are reserved and may not be used as variable names.
@code{nextfile},
@code{function},
@code{func},
-and @code{exit}.
+and
+@code{exit}.
+
+@cindex LGPL
+@cindex Lesser General Public License
+@cindex GNU Lesser General Public License
+@item Lesser General Public License
+This document describes the terms under which binary library archives
+or shared objects,
+and their source code may be distributed.
+
+@item Linux
+See ``GNU/Linux.''
+
+@item LGPL
+See ``Lesser General Public License.''
+
+@item Localization
+The process of providing the data necessary for an
+internationalized program to work in a particular language.
@item Logical Expression
An expression using the operators for logic, AND, OR, and NOT, written
-@samp{&&}, @samp{||}, and @samp{!} in @code{awk}. Often called Boolean
+@samp{&&}, @samp{||}, and @samp{!} in @command{awk}. Often called Boolean
expressions, after the mathematician who pioneered this kind of
mathematical logic.
@item Lvalue
An expression that can appear on the left side of an assignment
operator. In most languages, lvalues can be variables or array
-elements. In @code{awk}, a field designator can also be used as an
+elements. In @command{awk}, a field designator can also be used as an
lvalue.
+@item Matching
+The act of testing a string against a regular expression. If the
+regexp describes the contents of the string, it is said to @dfn{match} it.
+
+@item Metacharacters
+Characters used within a regexp that do not stand for themselves.
+Instead, they denote regular expression operations, such as repetition,
+grouping, or alternation.
+
@item Null String
A string with no characters in it. It is represented explicitly in
-@code{awk} programs by placing two double-quote characters next to
+@command{awk} programs by placing two double quote characters next to
each other (@code{""}). It can appear in input data by having two successive
occurrences of the field separator appear next to each other.
@item Number
-A numeric valued data object. The @code{gawk} implementation uses double
-precision floating point to represent numbers.
-Very old @code{awk} implementations use single precision floating
-point.
+A numeric-valued data object. Modern @command{awk} implementations use
+double-precision floating-point to represent numbers.
+Very old @command{awk} implementations use single-precision floating-point.
@item Octal
-Base-eight notation, where the digits are @code{0}-@code{7}.
+Base-eight notation, where the digits are @code{0}--@code{7}.
Octal numbers are written in C using a leading @samp{0},
to indicate their base. Thus, @code{013} is 11 (one times 8 plus 3).
+@cindex P1003.2 POSIX standard
+@item P1003.2
+See ``POSIX.''
+
@item Pattern
-Patterns tell @code{awk} which input records are interesting to which
+Patterns tell @command{awk} which input records are interesting to which
rules.
A pattern is an arbitrary conditional expression against which input is
tested. If the condition is satisfied, the pattern is said to @dfn{match}
the input record. A typical pattern might compare the input record against
-a regular expression. @xref{Pattern Overview, ,Pattern Elements}.
+a regular expression. (@xref{Pattern Overview, ,Pattern Elements}.)
@item POSIX
-The name for a series of standards being developed by the IEEE
+The name for a series of standards
+@c being developed by the IEEE
that specify a Portable Operating System interface. The ``IX'' denotes
the Unix heritage of these standards. The main standard of interest for
-@code{awk} users is
+@command{awk} users is
@cite{IEEE Standard for Information Technology, Standard 1003.2-1992,
Portable Operating System Interface (POSIX) Part 2: Shell and Utilities}.
Informally, this standard is often referred to as simply ``P1003.2.''
+@item Precedence
+The order in which operations are performed when operators are used
+without explicit parentheses.
+
@item Private
Variables and/or functions that are meant for use exclusively by library
-functions, and not for the main @code{awk} program. Special care must be
+functions and not for the main @command{awk} program. Special care must be
taken when naming such variables and functions.
-@xref{Library Names, , Naming Library Function Global Variables}.
+(@xref{Library Names, , Naming Library Function Global Variables}.)
@item Range (of input lines)
-A sequence of consecutive lines from the input file. A pattern
-can specify ranges of input lines for @code{awk} to process, or it can
-specify single lines. @xref{Pattern Overview, ,Pattern Elements}.
+A sequence of consecutive lines from the input file(s). A pattern
+can specify ranges of input lines for @command{awk} to process or it can
+specify single lines. (@xref{Pattern Overview, ,Pattern Elements}.)
@item Recursion
When a function calls itself, either directly or indirectly.
If this isn't clear, refer to the entry for ``recursion.''
@item Redirection
-Redirection means performing input from other than the standard input
-stream, or output to other than the standard output stream.
+Redirection means performing input from something other than the standard input
+stream, or performing output to something other than the standard output stream.
You can redirect the output of the @code{print} and @code{printf} statements
-to a file or a system command, using the @samp{>}, @samp{>>}, and @samp{|}
+to a file or a system command, using the @samp{>}, @samp{>>}, @samp{|}, and @samp{|&}
operators. You can redirect input to the @code{getline} statement using
-the @samp{<} and @samp{|} operators.
-@xref{Redirection, ,Redirecting Output of @code{print} and @code{printf}},
-and @ref{Getline, ,Explicit Input with @code{getline}}.
+the @samp{<}, @samp{|}, and @samp{|&} operators.
+(@xref{Redirection, ,Redirecting Output of @code{print} and @code{printf}},
+and @ref{Getline, ,Explicit Input with @code{getline}}.)
@item Regexp
Short for @dfn{regular expression}. A regexp is a pattern that denotes a
set of strings, possibly an infinite set. For example, the regexp
@samp{R.*xp} matches any string starting with the letter @samp{R}
-and ending with the letters @samp{xp}. In @code{awk}, regexps are
+and ending with the letters @samp{xp}. In @command{awk}, regexps are
used in patterns and in conditional expressions. Regexps may contain
-escape sequences. @xref{Regexp, ,Regular Expressions}.
+escape sequences. (@xref{Regexp, ,Regular Expressions}.)
@item Regular Expression
See ``regexp.''
@@ -20430,89 +25097,129 @@ See ``regexp.''
@item Regular Expression Constant
A regular expression constant is a regular expression written within
slashes, such as @code{/foo/}. This regular expression is chosen
-when you write the @code{awk} program, and cannot be changed doing
-its execution. @xref{Regexp Usage, ,How to Use Regular Expressions}.
+when you write the @command{awk} program and cannot be changed during
+its execution. (@xref{Regexp Usage, ,How to Use Regular Expressions}.)
@item Rule
-A segment of an @code{awk} program that specifies how to process single
+A segment of an @command{awk} program that specifies how to process single
input records. A rule consists of a @dfn{pattern} and an @dfn{action}.
-@code{awk} reads an input record; then, for each rule, if the input record
-satisfies the rule's pattern, @code{awk} executes the rule's action.
+@command{awk} reads an input record; then, for each rule, if the input record
+satisfies the rule's pattern, @command{awk} executes the rule's action.
Otherwise, the rule does nothing for that input record.
@item Rvalue
A value that can appear on the right side of an assignment operator.
-In @code{awk}, essentially every expression has a value. These values
+In @command{awk}, essentially every expression has a value. These values
are rvalues.
-@item @code{sed}
+@item Scalar
+A single value, be it a number or a string.
+Regular variables are scalars; arrays and functions are not.
+
+@item Search Path
+In @command{gawk}, a list of directories to search for @command{awk} program source files.
+In the shell, a list of directories to search for executable programs.
+
+@item Seed
+The initial value, or starting point, for a sequence of random numbers.
+
+@item @command{sed}
See ``Stream Editor.''
+@item Shell
+The command interpreter for Unix and POSIX-compliant systems.
+The shell works both interactively, and as a programming language
+for batch files, or shell scripts.
+
@item Short-Circuit
-The nature of the @code{awk} logical operators @samp{&&} and @samp{||}.
-If the value of the entire expression can be deduced from evaluating just
-the left-hand side of these operators, the right-hand side will not
-be evaluated
-(@pxref{Boolean Ops, ,Boolean Expressions}).
+The nature of the @command{awk} logical operators @samp{&&} and @samp{||}.
+If the value of the entire expression is determinable from evaluating just
+the lefthand side of these operators, the righthand side is not
+evaluated.
+(@xref{Boolean Ops, ,Boolean Expressions}.)
@item Side Effect
A side effect occurs when an expression has an effect aside from merely
producing a value. Assignment expressions, increment and decrement
-expressions and function calls have side effects.
-@xref{Assignment Ops, ,Assignment Expressions}.
+expressions, and function calls have side effects.
+(@xref{Assignment Ops, ,Assignment Expressions}.)
-@item Single Precision
+@item Single-Precision
An internal representation of numbers that can have fractional parts.
-Single precision numbers keep track of fewer digits than do double precision
-numbers, but operations on them are less expensive in terms of CPU time.
-This is the type used by some very old versions of @code{awk} to store
+Single-precision numbers keep track of fewer digits than do double-precision
+numbers, but operations on them are sometimes less expensive in terms of CPU time.
+This is the type used by some very old versions of @command{awk} to store
numeric values. It is the C type @code{float}.
@item Space
The character generated by hitting the space bar on the keyboard.
@item Special File
-A file name interpreted internally by @code{gawk}, instead of being handed
-directly to the underlying operating system. For example, @file{/dev/stderr}.
-@xref{Special Files, ,Special File Names in @code{gawk}}.
+A @value{FN} interpreted internally by @command{gawk}, instead of being handed
+directly to the underlying operating system---for example, @file{/dev/stderr}.
+(@xref{Special Files, ,Special @value{FFN}s in @command{gawk}}.)
@item Stream Editor
A program that reads records from an input stream and processes them one
or more at a time. This is in contrast with batch programs, which may
expect to read their input files in entirety before starting to do
-anything, and with interactive programs, which require input from the
+anything, as well as with interactive programs which require input from the
user.
@item String
A datum consisting of a sequence of characters, such as @samp{I am a
-string}. Constant strings are written with double-quotes in the
-@code{awk} language, and may contain escape sequences.
-@xref{Escape Sequences}.
+string}. Constant strings are written with double quotes in the
+@command{awk} language and may contain escape sequences.
+(@xref{Escape Sequences}.)
@item Tab
The character generated by hitting the @kbd{TAB} key on the keyboard.
It usually expands to up to eight spaces upon output.
+@item Text Domain
+A unique name that identifies an application.
+Used for grouping messages that are translated at runtime
+into the local language.
+
+@item Timestamp
+A value in the ``seconds since the epoch'' format used by Unix
+and POSIX systems. Used for the @command{gawk} functions
+@code{mktime}, @code{strftime}, and @code{systime}.
+See also ``Epoch'' and ``UTC.''
+
+@cindex Linux
+@cindex GNU/Linux
+@cindex Unix
+@cindex BSD-based operating systems
+@cindex NetBSD
+@cindex FreeBSD
+@cindex OpenBSD
@item Unix
A computer operating system originally developed in the early 1970's at
AT&T Bell Laboratories. It initially became popular in universities around
-the world, and later moved into commercial evnironments as a software
+the world and later moved into commercial environments as a software
development system and network server system. There are many commercial
versions of Unix, as well as several work-alike systems whose source code
-is freely available (such as Linux, NetBSD, and FreeBSD).
+is freely available (such as GNU/Linux, NetBSD, FreeBSD, and OpenBSD).
+
+@item UTC
+The accepted abbreviation for ``Universal Coordinated Time.''
+This is standard time in Greenwich, England, which is used as a
+reference time for day and date calculations.
+See also ``Epoch'' and ``GMT.''
@item Whitespace
A sequence of space, tab, or newline characters occurring inside an input
record or a string.
@end table
-@node Copying, Index, Glossary, Top
-@unnumbered GNU GENERAL PUBLIC LICENSE
+@node Copying, GNU Free Documentation License, Glossary, Top
+@unnumbered GNU General Public License
@center Version 2, June 1991
@display
Copyright @copyright{} 1989, 1991 Free Software Foundation, Inc.
-59 Temple Place --- Suite 330, Boston, MA 02111-1307, USA
+59 Temple Place, Suite 330, Boston, MA 02111, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -20569,10 +25276,10 @@ patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
-@iftex
+@ifnotinfo
@c fakenode --- for prepinfo
-@unnumberedsec TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-@end iftex
+@unnumberedsec Terms and Conditions for Copying, Distribution and Modification
+@end ifnotinfo
@ifinfo
@center TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
@end ifinfo
@@ -20680,7 +25387,7 @@ customarily used for software interchange; or,
@item
Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
-allowed only for non-commercial distribution and only if you
+allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
@end enumerate
@@ -20795,10 +25502,10 @@ make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
-@iftex
+@ifnotinfo
@c fakenode --- for prepinfo
@heading NO WARRANTY
-@end iftex
+@end ifnotinfo
@ifinfo
@center NO WARRANTY
@end ifinfo
@@ -20826,10 +25533,10 @@ PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
@end enumerate
-@iftex
+@ifnotinfo
@c fakenode --- for prepinfo
@heading END OF TERMS AND CONDITIONS
-@end iftex
+@end ifnotinfo
@ifinfo
@center END OF TERMS AND CONDITIONS
@end ifinfo
@@ -20863,7 +25570,7 @@ GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place --- Suite 330, Boston, MA 02111-1307, USA.
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
@end smallexample
Also add information on how to contact you by electronic and paper mail.
@@ -20875,7 +25582,7 @@ when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) @var{year} @var{name of author}
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details
type `show w'. This is free software, and you are welcome
-to redistribute it under certain conditions; type `show c'
+to redistribute it under certain conditions; type `show c'
for details.
@end smallexample
@@ -20893,7 +25600,7 @@ necessary. Here is a sample; alter the names:
@group
Yoyodyne, Inc., hereby disclaims all copyright
interest in the program `Gnomovision'
-(which makes passes at compilers) written
+(which makes passes at compilers) written
by James Hacker.
@var{signature of Ty Coon}, 1 April 1989
@@ -20904,15 +25611,413 @@ Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
-library. If this is what you want to do, use the GNU Library General
+library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License.
-@node Index, , Copying, Top
+@node GNU Free Documentation License, Index, Copying, Top
+@unnumbered GNU Free Documentation License
+@center Version 1.1, March 2000
+@cindex FDL
+@cindex Free Documentation License
+@cindex GNU Free Documentation License
+
+@display
+Copyright (C) 2000 Free Software Foundation, Inc.
+59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Everyone is permitted to copy and distribute verbatim copies
+of this license document, but changing it is not allowed.
+@end display
+@sp 1
+@enumerate 0
+@item
+PREAMBLE
+
+The purpose of this License is to make a manual, textbook, or other
+written document ``free'' in the sense of freedom: to assure everyone
+the effective freedom to copy and redistribute it, with or without
+modifying it, either commercially or noncommercially. Secondarily,
+this License preserves for the author and publisher a way to get
+credit for their work, while not being considered responsible for
+modifications made by others.
+
+This License is a kind of ``copyleft'', which means that derivative
+works of the document must themselves be free in the same sense. It
+complements the GNU General Public License, which is a copyleft
+license designed for free software.
+
+We have designed this License in order to use it for manuals for free
+software, because free software needs free documentation: a free
+program should come with manuals providing the same freedoms that the
+software does. But this License is not limited to software manuals;
+it can be used for any textual work, regardless of subject matter or
+whether it is published as a printed book. We recommend this License
+principally for works whose purpose is instruction or reference.
+
+@sp 1
+@item
+APPLICABILITY AND DEFINITIONS
+
+This License applies to any manual or other work that contains a
+notice placed by the copyright holder saying it can be distributed
+under the terms of this License. The ``Document'', below, refers to any
+such manual or work. Any member of the public is a licensee, and is
+addressed as ``you''.
+
+A ``Modified Version'' of the Document means any work containing the
+Document or a portion of it, either copied verbatim, or with
+modifications and/or translated into another language.
+
+A ``Secondary Section'' is a named appendix or a front-matter section of
+the Document that deals exclusively with the relationship of the
+publishers or authors of the Document to the Document's overall subject
+(or to related matters) and contains nothing that could fall directly
+within that overall subject. (For example, if the Document is in part a
+textbook of mathematics, a Secondary Section may not explain any
+mathematics.) The relationship could be a matter of historical
+connection with the subject or with related matters, or of legal,
+commercial, philosophical, ethical or political position regarding
+them.
+
+The ``Invariant Sections'' are certain Secondary Sections whose titles
+are designated, as being those of Invariant Sections, in the notice
+that says that the Document is released under this License.
+
+The ``Cover Texts'' are certain short passages of text that are listed,
+as Front-Cover Texts or Back-Cover Texts, in the notice that says that
+the Document is released under this License.
+
+A ``Transparent'' copy of the Document means a machine-readable copy,
+represented in a format whose specification is available to the
+general public, whose contents can be viewed and edited directly and
+straightforwardly with generic text editors or (for images composed of
+pixels) generic paint programs or (for drawings) some widely available
+drawing editor, and that is suitable for input to text formatters or
+for automatic translation to a variety of formats suitable for input
+to text formatters. A copy made in an otherwise Transparent file
+format whose markup has been designed to thwart or discourage
+subsequent modification by readers is not Transparent. A copy that is
+not ``Transparent'' is called ``Opaque''.
+
+Examples of suitable formats for Transparent copies include plain
+ASCII without markup, Texinfo input format, LaTeX input format, SGML
+or XML using a publicly available DTD, and standard-conforming simple
+HTML designed for human modification. Opaque formats include
+PostScript, PDF, proprietary formats that can be read and edited only
+by proprietary word processors, SGML or XML for which the DTD and/or
+processing tools are not generally available, and the
+machine-generated HTML produced by some word processors for output
+purposes only.
+
+The ``Title Page'' means, for a printed book, the title page itself,
+plus such following pages as are needed to hold, legibly, the material
+this License requires to appear in the title page. For works in
+formats which do not have any title page as such, ``Title Page'' means
+the text near the most prominent appearance of the work's title,
+preceding the beginning of the body of the text.
+@sp 1
+@item
+VERBATIM COPYING
+
+You may copy and distribute the Document in any medium, either
+commercially or noncommercially, provided that this License, the
+copyright notices, and the license notice saying this License applies
+to the Document are reproduced in all copies, and that you add no other
+conditions whatsoever to those of this License. You may not use
+technical measures to obstruct or control the reading or further
+copying of the copies you make or distribute. However, you may accept
+compensation in exchange for copies. If you distribute a large enough
+number of copies you must also follow the conditions in section 3.
+
+You may also lend copies, under the same conditions stated above, and
+you may publicly display copies.
+@sp 1
+@item
+COPYING IN QUANTITY
+
+If you publish printed copies of the Document numbering more than 100,
+and the Document's license notice requires Cover Texts, you must enclose
+the copies in covers that carry, clearly and legibly, all these Cover
+Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on
+the back cover. Both covers must also clearly and legibly identify
+you as the publisher of these copies. The front cover must present
+the full title with all words of the title equally prominent and
+visible. You may add other material on the covers in addition.
+Copying with changes limited to the covers, as long as they preserve
+the title of the Document and satisfy these conditions, can be treated
+as verbatim copying in other respects.
+
+If the required texts for either cover are too voluminous to fit
+legibly, you should put the first ones listed (as many as fit
+reasonably) on the actual cover, and continue the rest onto adjacent
+pages.
+
+If you publish or distribute Opaque copies of the Document numbering
+more than 100, you must either include a machine-readable Transparent
+copy along with each Opaque copy, or state in or with each Opaque copy
+a publicly-accessible computer-network location containing a complete
+Transparent copy of the Document, free of added material, which the
+general network-using public has access to download anonymously at no
+charge using public-standard network protocols. If you use the latter
+option, you must take reasonably prudent steps, when you begin
+distribution of Opaque copies in quantity, to ensure that this
+Transparent copy will remain thus accessible at the stated location
+until at least one year after the last time you distribute an Opaque
+copy (directly or through your agents or retailers) of that edition to
+the public.
+
+It is requested, but not required, that you contact the authors of the
+Document well before redistributing any large number of copies, to give
+them a chance to provide you with an updated version of the Document.
+@sp 1
+@item
+MODIFICATIONS
+
+You may copy and distribute a Modified Version of the Document under
+the conditions of sections 2 and 3 above, provided that you release
+the Modified Version under precisely this License, with the Modified
+Version filling the role of the Document, thus licensing distribution
+and modification of the Modified Version to whoever possesses a copy
+of it. In addition, you must do these things in the Modified Version:
+
+@enumerate A
+@item
+Use in the Title Page (and on the covers, if any) a title distinct
+from that of the Document, and from those of previous versions
+(which should, if there were any, be listed in the History section
+of the Document). You may use the same title as a previous version
+if the original publisher of that version gives permission.
+
+@item
+List on the Title Page, as authors, one or more persons or entities
+responsible for authorship of the modifications in the Modified
+Version, together with at least five of the principal authors of the
+Document (all of its principal authors, if it has less than five).
+
+@item
+State on the Title page the name of the publisher of the
+Modified Version, as the publisher.
+
+@item
+Preserve all the copyright notices of the Document.
+
+@item
+Add an appropriate copyright notice for your modifications
+adjacent to the other copyright notices.
+
+@item
+Include, immediately after the copyright notices, a license notice
+giving the public permission to use the Modified Version under the
+terms of this License, in the form shown in the Addendum below.
+
+@item
+Preserve in that license notice the full lists of Invariant Sections
+and required Cover Texts given in the Document's license notice.
+
+@item
+Include an unaltered copy of this License.
+
+@item
+Preserve the section entitled ``History'', and its title, and add to
+it an item stating at least the title, year, new authors, and
+publisher of the Modified Version as given on the Title Page. If
+there is no section entitled ``History'' in the Document, create one
+stating the title, year, authors, and publisher of the Document as
+given on its Title Page, then add an item describing the Modified
+Version as stated in the previous sentence.
+
+@item
+Preserve the network location, if any, given in the Document for
+public access to a Transparent copy of the Document, and likewise
+the network locations given in the Document for previous versions
+it was based on. These may be placed in the ``History'' section.
+You may omit a network location for a work that was published at
+least four years before the Document itself, or if the original
+publisher of the version it refers to gives permission.
+
+@item
+In any section entitled ``Acknowledgements'' or ``Dedications'',
+preserve the section's title, and preserve in the section all the
+substance and tone of each of the contributor acknowledgements
+and/or dedications given therein.
+
+@item
+Preserve all the Invariant Sections of the Document,
+unaltered in their text and in their titles. Section numbers
+or the equivalent are not considered part of the section titles.
+
+@item
+Delete any section entitled ``Endorsements''. Such a section
+may not be included in the Modified Version.
+
+@item
+Do not retitle any existing section as ``Endorsements''
+or to conflict in title with any Invariant Section.
+@end enumerate
+
+If the Modified Version includes new front-matter sections or
+appendices that qualify as Secondary Sections and contain no material
+copied from the Document, you may at your option designate some or all
+of these sections as invariant. To do this, add their titles to the
+list of Invariant Sections in the Modified Version's license notice.
+These titles must be distinct from any other section titles.
+
+You may add a section entitled ``Endorsements'', provided it contains
+nothing but endorsements of your Modified Version by various
+parties--for example, statements of peer review or that the text has
+been approved by an organization as the authoritative definition of a
+standard.
+
+You may add a passage of up to five words as a Front-Cover Text, and a
+passage of up to 25 words as a Back-Cover Text, to the end of the list
+of Cover Texts in the Modified Version. Only one passage of
+Front-Cover Text and one of Back-Cover Text may be added by (or
+through arrangements made by) any one entity. If the Document already
+includes a cover text for the same cover, previously added by you or
+by arrangement made by the same entity you are acting on behalf of,
+you may not add another; but you may replace the old one, on explicit
+permission from the previous publisher that added the old one.
+
+The author(s) and publisher(s) of the Document do not by this License
+give permission to use their names for publicity for or to assert or
+imply endorsement of any Modified Version.
+@sp 1
+@item
+COMBINING DOCUMENTS
+
+You may combine the Document with other documents released under this
+License, under the terms defined in section 4 above for modified
+versions, provided that you include in the combination all of the
+Invariant Sections of all of the original documents, unmodified, and
+list them all as Invariant Sections of your combined work in its
+license notice.
+
+The combined work need only contain one copy of this License, and
+multiple identical Invariant Sections may be replaced with a single
+copy. If there are multiple Invariant Sections with the same name but
+different contents, make the title of each such section unique by
+adding at the end of it, in parentheses, the name of the original
+author or publisher of that section if known, or else a unique number.
+Make the same adjustment to the section titles in the list of
+Invariant Sections in the license notice of the combined work.
+
+In the combination, you must combine any sections entitled ``History''
+in the various original documents, forming one section entitled
+``History''; likewise combine any sections entitled ``Acknowledgements'',
+and any sections entitled ``Dedications''. You must delete all sections
+entitled ``Endorsements.''
+@sp 1
+@item
+COLLECTIONS OF DOCUMENTS
+
+You may make a collection consisting of the Document and other documents
+released under this License, and replace the individual copies of this
+License in the various documents with a single copy that is included in
+the collection, provided that you follow the rules of this License for
+verbatim copying of each of the documents in all other respects.
+
+You may extract a single document from such a collection, and distribute
+it individually under this License, provided you insert a copy of this
+License into the extracted document, and follow this License in all
+other respects regarding verbatim copying of that document.
+@sp 1
+@item
+AGGREGATION WITH INDEPENDENT WORKS
+
+A compilation of the Document or its derivatives with other separate
+and independent documents or works, in or on a volume of a storage or
+distribution medium, does not as a whole count as a Modified Version
+of the Document, provided no compilation copyright is claimed for the
+compilation. Such a compilation is called an ``aggregate'', and this
+License does not apply to the other self-contained works thus compiled
+with the Document, on account of their being thus compiled, if they
+are not themselves derivative works of the Document.
+
+If the Cover Text requirement of section 3 is applicable to these
+copies of the Document, then if the Document is less than one quarter
+of the entire aggregate, the Document's Cover Texts may be placed on
+covers that surround only the Document within the aggregate.
+Otherwise they must appear on covers around the whole aggregate.
+@sp 1
+@item
+TRANSLATION
+
+Translation is considered a kind of modification, so you may
+distribute translations of the Document under the terms of section 4.
+Replacing Invariant Sections with translations requires special
+permission from their copyright holders, but you may include
+translations of some or all Invariant Sections in addition to the
+original versions of these Invariant Sections. You may include a
+translation of this License provided that you also include the
+original English version of this License. In case of a disagreement
+between the translation and the original English version of this
+License, the original English version will prevail.
+@sp 1
+@item
+TERMINATION
+
+You may not copy, modify, sublicense, or distribute the Document except
+as expressly provided for under this License. Any other attempt to
+copy, modify, sublicense or distribute the Document is void, and will
+automatically terminate your rights under this License. However,
+parties who have received copies, or rights, from you under this
+License will not have their licenses terminated so long as such
+parties remain in full compliance.
+@sp 1
+@item
+FUTURE REVISIONS OF THIS LICENSE
+
+The Free Software Foundation may publish new, revised versions
+of the GNU Free Documentation License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns. See
+@uref{http://www.gnu.org/copyleft/}.
+
+Each version of the License is given a distinguishing version number.
+If the Document specifies that a particular numbered version of this
+License ``or any later version'' applies to it, you have the option of
+following the terms and conditions either of that specified version or
+of any later version that has been published (not as a draft) by the
+Free Software Foundation. If the Document does not specify a version
+number of this License, you may choose any version ever published (not
+as a draft) by the Free Software Foundation.
+
+@end enumerate
+
+@c fakenode --- for prepinfo
+@unnumberedsec ADDENDUM: How to use this License for your documents
+
+To use this License in a document you have written, include a copy of
+the License in the document and put the following copyright and
+license notices just after the title page:
+
+@smallexample
+@group
+
+ Copyright (C) @var{year} @var{your name}.
+ Permission is granted to copy, distribute and/or modify this document
+ under the terms of the GNU Free Documentation License, Version 1.1
+ or any later version published by the Free Software Foundation;
+ with the Invariant Sections being @var{list their titles}, with the
+ Front-Cover Texts being @var{list}, and with the Back-Cover Texts being @var{list}.
+ A copy of the license is included in the section entitled ``GNU
+ Free Documentation License''.
+@end group
+@end smallexample
+If you have no Invariant Sections, write ``with no Invariant Sections''
+instead of saying which ones are invariant. If you have no
+Front-Cover Texts, write ``no Front-Cover Texts'' instead of
+``Front-Cover Texts being @var{list}''; likewise for Back-Cover Texts.
+
+If your document contains nontrivial examples of program code, we
+recommend releasing these examples in parallel under your choice of
+free software license, such as the GNU General Public License,
+to permit their use in free software.
+
+@node Index, , GNU Free Documentation License, Top
@unnumbered Index
@printindex cp
-@summarycontents
-@contents
@bye
Unresolved Issues:
@@ -20936,19 +26041,30 @@ Consistency issues:
Use ESC and not ESCAPE
Use space and not blank to describe the space bar's character
The term "blank" is thus basically reserved for "blank lines" etc.
- The `(d.c.)' should appear inside the closing `.' of a sentence
- It should come before (pxref{...})
+ To make dark corners work, the @value{DARKCORNER} has to be outside
+ closing `.' of a sentence and after (pxref{...}). This is
+ a change from earlier versions.
" " should have an @w{} around it
Use "non-" everywhere
- Use @code{ftp} when talking about anonymous ftp
- Use upper-case and lower-case, not "upper case" and "lower case"
+ Use @command{ftp} when talking about anonymous ftp
+ Use uppercase and lowercase, not "upper-case" and "lower-case"
+ or "upper case" and "lower case"
+ Use "single precision" and "double precision", not "single-precision" or "double-precision"
Use alphanumeric, not alpha-numeric
+ Use POSIX-compliant, not POSIX compliant
Use --foo, not -Wfoo when describing long options
- Use findex for all programs and functions in the example chapters
Use "Bell Laboratories", but not "Bell Labs".
Use "behavior" instead of "behaviour".
Use "zeros" instead of "zeroes".
+ Use "nonzero" not "non-zero".
+ Use "runtime" not "run time" or "run-time".
+ Use "command-line" not "command line".
+ Use "online" not "on-line".
+ Use "whitespace" not "white space".
Use "Input/Output", not "input/output". Also "I/O", not "i/o".
+ Use "lefthand"/"righthand", not "left-hand"/"right-hand".
+ Use "workaround", not "work-around".
+ Use "startup"/"cleanup", not "start-up"/"clean-up"
Use @code{do}, and not @code{do}-@code{while}, except where
actually discussing the do-while.
The words "a", "and", "as", "between", "for", "from", "in", "of",
@@ -20957,20 +26073,39 @@ Consistency issues:
"Into" and "How" should.
Search for @dfn; make sure important items are also indexed.
"e.g." should always be followed by a comma.
- "i.e." should never be followed by a comma, and should be followed
- by `@:'.
+ "i.e." should always be followed by a comma.
The numbers zero through ten should be spelled out, except when
talking about file descriptor numbers. > 10 and < 0, it's
ok to use numbers.
- In tables, put command line options in @code, while in the text,
- put them in @samp.
+ In tables, put command-line options in @code, while in the text,
+ put them in @option.
When using @strong, use "Note:" or "Caution:" with colons and
not exclamation points. Do not surround the paragraphs
with @quotation ... @end quotation.
+ For most cases, do NOT put a comma before "and", "or" or "but".
+ But exercise taste with this rule.
+ Don't show the awk command with a program in quotes when it's
+ just the program. I.e.
+
+ {
+ ....
+ }
+
+ not
+ awk '{
+ ...
+ }'
+
+ Do show it when showing command-line arguments, data files, etc, even
+ if there is no output shown.
+
+ Use numbered lists only to show a sequential series of steps.
+
+ Use @code{xxx} for the xxx operator in indexing statements, not @samp.
Date: Wed, 13 Apr 94 15:20:52 -0400
-From: rsm@gnu.ai.mit.edu (Richard Stallman)
-To: gnu-prog@gnu.ai.mit.edu
+From: rms@gnu.org (Richard Stallman)
+To: gnu-prog@gnu.org
Subject: A reminder: no pathnames in GNU
It's a GNU convention to use the term "file name" for the name of a
@@ -20984,6 +26119,9 @@ have used "pathname".
Note that "file name" should be two words when it appears as ordinary
text. It's ok as one word when it's a metasyntactic variable, though.
+------------------------
+ORA uses filename, thus the macro.
+
Suggestions:
------------
Enhance FIELDWIDTHS with some way to indicate "the rest of the record".
@@ -20991,4 +26129,41 @@ E.g., a length of 0 or -1 or something. May be "n"?
Make FIELDWIDTHS be an array?
-What if FIELDWIDTHS has invalid values in it?
+% Next edition:
+% 1. Talk about common extensions, those in nawk, gawk, mawk
+% 2. Use @code{foo} for variables and @code{foo()} for functions
+% 3. Standardize the error messages from the functions and programs
+% in Chapters 12 and 13.
+% 4. Nuke the BBS stuff and use something that won't be obsolete
+% 5. Reorg chapters 5 & 7 like so:
+%Chapter 5:
+% - Constants, Variables, and Conversions
+% + Constant Expressions
+% + Using Regular Expression Constants
+% + Variables
+% + Conversion of Strings and Numbers
+% - Operators
+% + Arithmetic Operators
+% + String Concatenation
+% + Assignment Expressions
+% + Increment and Decrement Operators
+% - Truth Values and Conditions
+% + True and False in Awk
+% + Boolean Expressions
+% + Conditional Expressions
+% - Function Calls
+% - Operator Precedence
+%
+%Chapter 7:
+% - Array Basics
+% + Introduction to Arrays
+% + Referring to an Array Element
+% + Assigning Array Elements
+% + Basic Array Example
+% + Scanning All Elements of an Array
+% - The delete Statement
+% - Using Numbers to Subscript Arrays
+% - Using Uninitialized Variables as Subscripts
+% - Multidimensional Arrays
+% + Scanning Multidimensional Arrays
+% - Sorting Array Values and Indices with gawk
diff --git a/doc/gawkinet.info b/doc/gawkinet.info
new file mode 100644
index 00000000..3d5e5d3f
--- /dev/null
+++ b/doc/gawkinet.info
@@ -0,0 +1,4246 @@
+This is gawkinet.info, produced by makeinfo version 4.0 from
+gawkinet.texi.
+
+INFO-DIR-SECTION GNU Packages
+START-INFO-DIR-ENTRY
+* Gawkinet: (gawkinet). TCP/IP Internetworking With `gawk'.
+END-INFO-DIR-ENTRY
+
+ This file documents the networking features in GNU `awk'.
+
+ This is Edition 1.1 of `TCP/IP Internetworking With `gawk'', for the
+3.1.0 (or later) version of the GNU implementation of AWK.
+
+ Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+
+ Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being "GNU General Public License", the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+"GNU Free Documentation License".
+
+ a. "A GNU Manual"
+
+ b. "You have freedom to copy and modify this GNU Manual, like GNU
+ software. Copies published by the Free Software Foundation raise
+ funds for GNU development."
+
+
+File: gawkinet.info, Node: Top, Next: Preface, Prev: (dir), Up: (dir)
+
+General Introduction
+********************
+
+ This file documents the networking features in GNU Awk (`gawk')
+version 3.1 and later.
+
+* Menu:
+
+* Preface:: About this document.
+* Introduction:: About networkiing.
+* Using Networking:: Some examples.
+* Some Applications and Techniques:: More extended examples.
+* Links:: Where to find the stuff mentioned in this
+ document.
+* GNU Free Documentation License:: The license for this document.
+* Index:: The index.
+
+* Stream Communications:: Sending data streams.
+* Datagram Communications:: Sending self-contained messages.
+* The TCP/IP Protocols:: How these models work in the Internet.
+* Basic Protocols:: The basic protocols.
+* Ports:: The idea behind ports.
+* Making Connections:: Making TCP/IP connections.
+* Gawk Special Files:: How to do `gawk' networking.
+* Special File Fields:: The fields in the special file name.
+* Comparing Protocols:: Differences between the protocols.
+* File /inet/tcp:: The TCP special file.
+* File /inet/udp:: The UDB special file.
+* File /inet/raw:: The RAW special file.
+* TCP Connecting:: Making a TCP connection.
+* Troubleshooting:: Troubleshooting TCP/IP connections.
+* Interacting:: Interacting with a service.
+* Setting Up:: Setting up a service.
+* Email:: Reading email.
+* Web page:: Reading a Web page.
+* Primitive Service:: A primitive Web service.
+* Interacting Service:: A Web service with interaction.
+* CGI Lib:: A simple CGI library.
+* Simple Server:: A simple Web server.
+* Caveats:: Network programming caveats.
+* Challenges:: Where to go from here.
+* PANIC:: An Emergency Web Server.
+* GETURL:: Retrieving Web Pages.
+* REMCONF:: Remote Configuration Of Embedded Systems.
+* URLCHK:: Look For Changed Web Pages.
+* WEBGRAB:: Extract Links From A Page.
+* STATIST:: Graphing A Statistical Distribution.
+* MAZE:: Walking Through A Maze In Virtual Reality.
+* MOBAGWHO:: A Simple Mobile Agent.
+* STOXPRED:: Stock Market Prediction As A Service.
+* PROTBASE:: Searching Through A Protein Database.
+
+
+File: gawkinet.info, Node: Preface, Next: Introduction, Prev: Top, Up: Top
+
+Preface
+*******
+
+ In May of 1997, Ju"rgen Kahrs felt the need for network access from
+`awk', and, with a little help from me, set about adding features to do
+this for `gawk'. At that time, he wrote the bulk of this Info file.
+
+ The code and documentation were added to the `gawk' 3.1 development
+tree, and languished somewhat until I could finally get down to some
+serious work on that version of `gawk'. This finally happened in the
+middle of 2000.
+
+ Meantime, Ju"rgen wrote an article about the Internet special files
+and `|&' operator for `Linux Journal', and made a networking patch for
+the production versions of `gawk' available from his home page. In
+August of 2000 (for `gawk' 3.0.6), this patch also made it to the main
+GNU `ftp' distribution site.
+
+ For release with `gawk', I edited Ju"rgen's prose for English
+grammar and style, as he is not a native English speaker. I also
+rearranged the material somewhat for what I felt was a better order of
+presentation, and (re)wrote some of the introductory material.
+
+ The majority of this document and the code are his work, and the
+high quality and interesting ideas speak for themselves. It is my hope
+that these features will be of significant value to the `awk' community.
+
+
+Arnold Robbins
+Nof Ayalon, ISRAEL
+March, 2001
+
+
+File: gawkinet.info, Node: Introduction, Next: Using Networking, Prev: Preface, Up: Top
+
+Networking Concepts
+*******************
+
+ This major node provides a (necessarily) brief intoduction to
+computer networking concepts. For many applications of `gawk' to
+TCP/IP networking, we hope that this is enough. For more advanced
+tasks, you will need deeper background, and it may be necessary to
+switch to lower-level programming in C or C++.
+
+ There are two real-life models for the way computers send messages
+to each other over a network. While the analogies are not perfect,
+they are close enough to convey the major concepts. These two models
+are the phone system (reliable byte-stream communications), and the
+postal system (best-effort datagrams).
+
+* Menu:
+
+* Stream Communications:: Sending data streams.
+* Datagram Communications:: Sending self-contained messages.
+* The TCP/IP Protocols:: How these models work in the Internet.
+* Making Connections:: Making TCP/IP connections.
+
+
+File: gawkinet.info, Node: Stream Communications, Next: Datagram Communications, Prev: Introduction, Up: Introduction
+
+Reliable Byte-streams (Phone Calls)
+===================================
+
+ When you make a phone call, the following steps occur:
+
+ 1. You dial a number.
+
+ 2. The phone system connects to the called party, telling them there
+ is an incoming call. (Their phone rings.)
+
+ 3. The other party answers the call, or, in the case of a computer
+ network, refuses to answer the call.
+
+ 4. Assuming the other party answers, the connection between you is
+ now a "duplex" (two-way), "reliable" (no data lost), sequenced
+ (data comes out in the order sent) data stream.
+
+ 5. You and your friend may now talk freely, with the phone system
+ moving the data (your voices) from one end to the other. From
+ your point of view, you have a direct end-to-end connection with
+ the person on the other end.
+
+ The same steps occur in a duplex reliable computer networking
+connection. There is considerably more overhead in setting up the
+communications, but once it's done, data moves in both directions,
+reliably, in sequence.
+
+
+File: gawkinet.info, Node: Datagram Communications, Next: The TCP/IP Protocols, Prev: Stream Communications, Up: Introduction
+
+Best-effort Datagrams (Mailed Letters)
+======================================
+
+ Suppose you mail three different documents to your office on the
+other side of the country on two different days. Doing so entails the
+following.
+
+ 1. Each document travels in its own envelope.
+
+ 2. Each envelope contains both the sender and the recipient address.
+
+ 3. Each envelope may travel a different route to its destination.
+
+ 4. The envelopes may arrive in a different order from the one in
+ which they were sent.
+
+ 5. One or more may get lost in the mail. (Although, fortunately,
+ this does not occur very often.)
+
+ 6. In a computer network, one or more "packets" may also arrive
+ multiple times. (This doesn't happen with the postal system!)
+
+
+ The important characteristics of datagram communications, like those
+of the postal system are thus:
+
+ * Delivery is "best effort;" the data may never get there.
+
+ * Each message is self-contained, including the source and
+ destination addresses.
+
+ * Delivery is _not_ sequenced; packets may arrive out of order,
+ and/or multiple times.
+
+ * Unlike the phone system, overhead is considerably lower. It is
+ not necessary to set up the call first.
+
+ The price the user pays for the lower overhead of datagram
+communications is exactly the lower reliability; it is often necessary
+for user-level protocols that use datagram communications to add their
+own reliabilty features on top of the basic communications.
+
+
+File: gawkinet.info, Node: The TCP/IP Protocols, Next: Making Connections, Prev: Datagram Communications, Up: Introduction
+
+The Internet Protocols
+======================
+
+ The Internet Protocol Suite (usually referred as just TCP/IP)(1)
+consists of a number of different protocols at different levels or
+"layers." For our purposes, three protocols provide the fundamental
+communications mechanisms. All other defined protocols are referred to
+as user-level protocols (e.g., HTTP, used later in this Info file).
+
+* Menu:
+
+* Basic Protocols:: The basic protocols.
+* Ports:: The idea behind ports.
+
+ ---------- Footnotes ----------
+
+ (1) It should be noted that although the Internet seems to have
+conquered the world, there are other networking protocol suites in
+existence and in use.
+
+
+File: gawkinet.info, Node: Basic Protocols, Next: Ports, Prev: The TCP/IP Protocols, Up: The TCP/IP Protocols
+
+The Basic Internet Protocols
+----------------------------
+
+IP
+ The Internet Protocol. This protocol is almost never used
+ directly by applications. It provides the basic packet delivery
+ and routing infrastructure of the Internet. Much like the phone
+ company's switching centers or the Post Office's trucks, it is not
+ of much day-to-day interest to the regular user (or programmer).
+ It happens to be a best effort datagram protocol.
+
+UDP
+ The User Datagram Protocol. This is a best effort datagram
+ protocol. It provides a small amount of extra reliability over
+ IP, and adds the notion of "ports", described in *Note TCP and UDP
+ Ports: Ports.
+
+TCP
+ The Transmission Control Protocol. This is a duplex, reliable,
+ sequenced byte-stream protocol, again layered on top of IP, and
+ also providing the notion of ports. This is the protocol that you
+ will most likely use when using `gawk' for network programming.
+
+ All other user-level protocols use either TCP or UDP to do their
+basic communications. Examples are SMTP (Simple Mail Transfer
+Protocol), FTP (File Transfer Protocol) and HTTP (HyperText Transfer
+Protocol).
+
+
+File: gawkinet.info, Node: Ports, Prev: Basic Protocols, Up: The TCP/IP Protocols
+
+TCP and UDP Ports
+-----------------
+
+ In the postal system, the address on an envelope indicates a physical
+location, such as a residence or office building. But there may be
+more than one person at the location; thus you have to further quantify
+the recipient by putting a person or company name on the envelope.
+
+ In the phone system, one phone number may represent an entire
+company, in which case you need a person's extension number in order to
+reach that individual directly. Or, when you call a home, you have to
+say, "May I please speak to ..." before talking to the person directly.
+
+ IP networking provides the concept of addressing. An IP address
+represents a particular computer, but no more. In order to reach the
+mail service on a system, or the FTP or WWW service on a system, you
+have to have some way to further specify which service you want. In
+the Internet Protocol suite, this is done with "port numbers", which
+represent the services, much like an extension number used with a phone
+number.
+
+ Port numbers are 16-bit integers. Unix and Unix-like systems
+reserve ports below 1024 for "well known" services, such as SMTP, FTP,
+and HTTP. Numbers above 1024 may be used by any application, although
+there is no promise made that a particular port number is always
+available.
+
+
+File: gawkinet.info, Node: Making Connections, Prev: The TCP/IP Protocols, Up: Introduction
+
+Making TCP/IP Connections (And Some Terminology)
+================================================
+
+ Two terms come up repeatedly when discussing networking: "client"
+and "server". For now, we'll discuss these terms at the "connection
+level", when first establishing connections between two processes on
+different systems over a network. (Once the connection is established,
+the higher level, or "application level" protocols, such as HTTP or
+FTP, determine who is the client and who is the server. Often, it
+turns out that the client and server are the same in both roles.)
+
+ The "server" is the system providing the service, such as the web
+server or email server. It is the "host" (system) which is _connected
+to_ in a transaction. For this to work though, the server must be
+expecting connections. Much as there has to be someone at the office
+building to answer the phone(1), the server process (usually) has to be
+started first and waiting for a connection.
+
+ The "client" is the system requesting the service. It is the system
+_initiating the connection_ in a transaction. (Just as when you pick
+up the phone to call an office or store.)
+
+ In the TCP/IP framework, each end of a connection is represented by
+a pair of (ADDRESS, PORT) pairs. For the duration of the connection,
+the ports in use at each end are unique, and cannot be used
+simultaneously by other processes on the same system. (Only after
+closing a connection can a new one be built up on the same port. This
+is contrary to the usual behavior of fully developed web servers which
+have to avoid situations in which they are not reachable. We have to
+pay this price in order to enjoy the benefits of a simple communication
+paradigm in `gawk'.)
+
+ Furthermore, once the connection is established, communications are
+"synchronous". I.e., each end waits on the other to finish
+transmitting, before replying. This is much like two people in a phone
+conversation. While both could talk simultaneously, doing so usually
+doesn't work too well.
+
+ In the case of TCP, the synchronicity is enforced by the protocol
+when sending data. Data writes "block" until the data have been
+received on the other end. For both TCP and UDP, data reads block
+until there is incoming data waiting to be read. This is summarized in
+the following table, where an "X" indicates that the given action
+blocks.
+
+TCP X X
+UDP X
+RAW X
+
+ ---------- Footnotes ----------
+
+ (1) In the days before voice mail systems!
+
+
+File: gawkinet.info, Node: Using Networking, Next: Some Applications and Techniques, Prev: Introduction, Up: Top
+
+Networking With `gawk'
+**********************
+
+ The `awk' programming language was originally developed as a
+pattern-matching language for writing short programs to perform data
+manipulation tasks. `awk''s strength is the manipulation of textual
+data that is stored in files. It was never meant to be used for
+networking purposes. To exploit its features in a networking context,
+it's necessary to use an access mode for network connections that
+resembles the access of files as closely as possible.
+
+ `awk' is also meant to be a prototyping language. It is used to
+demonstrate feasibility and to play with features and user interfaces.
+This can be done with file-like handling of network connections.
+`gawk' trades the lack of many of the advanced features of the TCP/IP
+family of protocols for the convenience of simple connection handling.
+The advanced features are available when programming in C or Perl. In
+fact, the network programming in this major node is very similar to
+what is described in books like `Internet Programming with Python',
+`Advanced Perl Programming', or `Web Client Programming with Perl'.
+But it's done here without first having to learn object-oriented
+ideology, underlying languages such as Tcl/Tk, Perl, Python, or all of
+the libraries necessary to extend these languages before they are ready
+for the Internet.
+
+ This major node demonstrates how to use the TCP protocol. The other
+protocols are much less important for most users (UDP) or even
+untractable (RAW).
+
+* Menu:
+
+* Gawk Special Files:: How to do `gawk' networking.
+* TCP Connecting:: Making a TCP connection.
+* Troubleshooting:: Troubleshooting TCP/IP connections.
+* Interacting:: Interacting with a service.
+* Setting Up:: Setting up a service.
+* Email:: Reading email.
+* Web page:: Reading a Web page.
+* Primitive Service:: A primitive Web service.
+* Interacting Service:: A Web service with interaction.
+* Simple Server:: A simple Web server.
+* Caveats:: Network programming caveats.
+* Challenges:: Where to go from here.
+
+
+File: gawkinet.info, Node: Gawk Special Files, Next: TCP Connecting, Prev: Using Networking, Up: Using Networking
+
+`gawk' Networking Mechanisms
+============================
+
+ The `|&' operator introduced in `gawk' 3.1 for use in communicating
+with a "co-process" is described in *Note Two-way Communications With
+Another Process: (gawk)Two-way I/O. It shows how to do two-way I/O to a
+separate process, sending it data with `print' or `printf' and reading
+data with `getline'. If you haven't read it already, you should detour
+there to do so.
+
+ `gawk' transparently extends the two-way I/O mechanism to simple
+networking through the use of special file names. When a "co-process"
+is started that matches the special files we are about to describe,
+`gawk' creates the appropriate network connection, and then two-way I/O
+proceeds as usual.
+
+ At the C, C++ (and basic Perl) level, networking is accomplished via
+"sockets", an Application Programming Interface (API) originally
+developed at the University of California at Berkeley that is now used
+almost universally for TCP/IP networking. Socket level programming,
+while fairly straightforward, requires paying attention to a number of
+details, as well as using binary data. It is not well-suited for use
+from a high-level language like `awk'. The special files provided in
+`gawk' hide the details from the programmer, making things much simpler
+and easier to use.
+
+ The special file name for network access is made up of several
+fields, all of them mandatory, none of them optional:
+
+ /inet/PROTOCOL/LOCALPORT/HOSTNAME/REMOTEPORT
+
+ The `/inet/' field is, of course, constant when accessing the
+network. The LOCALPORT and REMOTEPORT fields do not have a meaning
+when used with `/inet/raw' because "ports" only apply to TCP and UDP.
+So, when using `/inet/raw', the port fields always have to be `0'.
+
+* Menu:
+
+* Special File Fields:: The fields in the special file name.
+* Comparing Protocols:: Differences between the protocols.
+
+
+File: gawkinet.info, Node: Special File Fields, Next: Comparing Protocols, Prev: Gawk Special Files, Up: Gawk Special Files
+
+The Fields of the Special File Name
+-----------------------------------
+
+ This node explains the meaning of all the other fields, as well as
+the range of values and the defaults. All of the fields are mandatory.
+To let the system pick a value, or if the field doesn't apply to the
+protocol, specify it as `0'.
+
+PROTOCOL
+ Determines which member of the TCP/IP family of protocols is
+ selected to transport the data across the network. There are three
+ possible values (always written in lowercase): `tcp', `udp', and
+ `raw'. The exact meaning of each is explained later in this node.
+
+LOCALPORT
+ Determines which port on the local machine is used to communicate
+ across the network. It has no meaning with `/inet/raw' and must
+ therefore be `0'. Application level clients usually use `0' to
+ indicate they do not care which local port is used--instead they
+ specify a remote port to connect to. It is vital for application
+ level servers to use a number different from `0' here because
+ their service has to be available at a specific publicly-known
+ port number. It is possible to use a name from `/etc/services'
+ here.
+
+HOSTNAME
+ Determines which remote host is to be at the other end of the
+ connection. Application level servers must fill this field with a
+ `0' to indicate their being open for all other hosts to connect to
+ them and enforce connection level server behavior this way. It is
+ not possible for an application level server to restrict its
+ availability to one remote host by entering a host name here.
+ Application level clients must enter a name different from `0'.
+ The name can be either symbolic (e.g., `jpl-devvax.jpl.nasa.gov')
+ or numeric (e.g., `128.149.1.143').
+
+REMOTEPORT
+ Determines which port on the remote machine is used to communicate
+ across the network. It has no meaning with `/inet/raw' and must
+ therefore be 0. For `/inet/tcp' and `/inet/udp', application
+ level clients _must_ use a number other than `0' to indicate which
+ port on the remote machine they want to connect to. Application
+ level servers must not fill this field with a `0'. Instead they
+ specify a local port for clients to connect to. It is possible to
+ use a name from `/etc/services' here.
+
+ Experts in network programming will notice that the usual
+client/server asymmetry found at the level of the socket API is not
+visible here. This is for the sake of simplicity of the high-level
+concept. If this asymmetry is necessary for your application, use
+another language. For `gawk', it is more important to enable users to
+write a client program with a minimum of code. What happens when first
+accessing a network connection is seen in the following pseudo-code:
+
+ if ((name of remote host given) && (other side accepts connection)) {
+ rendez-vous successful; transmit with getline or print
+ } else {
+ if ((other side did not accept) && (localport == 0))
+ exit unsuccessful
+ if (TCP) {
+ set up a server accepting connections
+ this means waiting for the client on the other side to connect
+ } else
+ ready
+ }
+
+ The exact behavior of this algorithm depends on the values of the
+fields of the special file name. When in doubt, the following table
+gives you the combinations of values and their meaning. If this table
+is too complicated, focus on the three lines printed in *bold*. All the
+examples in *Note Networking With `gawk': Using Networking, use only the
+patterns printed in bold letters.
+
+PROTOCOL LOCAL HOST REMOTE RESULTING CONNECTION LEVEL
+ PORT NAME PORT BEHAVIOR
+*tcp* *0* *x* *x* *Dedicated client, fails
+ if immediately connecting
+ to a server
+ on the other side fails*
+udp 0 x x Dedicated client
+raw 0 x 0 Dedicated client, works
+ only as `root'
+*tcp, udp* *x* *x* *x* *Client, switches to
+ dedicated server if
+ necessary*
+*tcp, udp* *x* *0* *0* *Dedicated server*
+raw 0 0 0 Dedicated server, works
+ only as `root'
+tcp, udp, raw x x 0 Invalid
+tcp, udp, raw 0 0 x Invalid
+tcp, udp, raw x 0 x Invalid
+tcp, udp 0 0 0 Invalid
+tcp, udp 0 x 0 Invalid
+raw x 0 0 Invalid
+raw 0 x x Invalid
+raw x x x Invalid
+
+ In general, TCP is the preferred mechanism to use. It is the
+simplest protocol to understand and to use. Use the others only if
+circumstances demand low-overhead.
+
+
+File: gawkinet.info, Node: Comparing Protocols, Prev: Special File Fields, Up: Gawk Special Files
+
+Comparing Protocols
+-------------------
+
+ This node develops a pair of programs (sender and receiver) that do
+nothing but send a timestamp from one machine to another. The sender
+and the receiver are implemented with each of the three protocols
+available and demonstrate the differences between them.
+
+* Menu:
+
+* File /inet/tcp:: The TCP special file.
+* File /inet/udp:: The UDB special file.
+* File /inet/raw:: The RAW special file.
+
+
+File: gawkinet.info, Node: File /inet/tcp, Next: File /inet/udp, Prev: Comparing Protocols, Up: Comparing Protocols
+
+`/inet/tcp'
+...........
+
+ Once again, always use TCP. (Use UDP when low-overhead is a
+necessity, and use RAW for network experimentation.) The first example
+is the sender program:
+
+ # Server
+ BEGIN {
+ print strftime() |& "/inet/tcp/8888/0/0"
+ close("/inet/tcp/8888/0/0")
+ }
+
+ The receiver is very simple:
+
+ # Client
+ BEGIN {
+ "/inet/tcp/0/localhost/8888" |& getline
+ print $0
+ close("/inet/tcp/0/localhost/8888")
+ }
+
+ TCP guarantees that the bytes arrive at the receiving end in exactly
+the same order that they were sent. No byte is lost (except for broken
+connections), doubled, or out of order. Some overhead is necessary to
+accomplish this, but this is the price to pay for a reliable service.
+It does matter which side starts first. The sender/server has to be
+started first, and it waits for the receiver to read a line.
+
+
+File: gawkinet.info, Node: File /inet/udp, Next: File /inet/raw, Prev: File /inet/tcp, Up: Comparing Protocols
+
+`/inet/udp'
+...........
+
+ The server and client programs that use UDP are almost identical to
+their TCP counterparts; only the PROTOCOL has changed. As before, it
+does matter which side starts first. The receiving side blocks and
+waits for the sender. In this case, the receiver/client has to be
+started first:
+
+ # Server
+ BEGIN {
+ print strftime() |& "/inet/udp/8888/0/0"
+ close("/inet/udp/8888/0/0")
+ }
+
+ The receiver is almost identical to the TCP receiver:
+
+ # Client
+ BEGIN {
+ "/inet/udp/0/localhost/8888" |& getline
+ print $0
+ close("/inet/udp/0/localhost/8888")
+ }
+
+ UDP cannot guarantee that the datagrams at the receiving end will
+arrive in exactly the same order they were sent. Some datagrams could be
+lost, some doubled, and some out of order. But no overhead is necessary
+to accomplish this. This unreliable behavior is good enough for tasks
+such as data acquisition, logging, and even stateless services like NFS.
+
+
+File: gawkinet.info, Node: File /inet/raw, Prev: File /inet/udp, Up: Comparing Protocols
+
+`/inet/raw'
+...........
+
+ This is an IP-level protocol. Only `root' is allowed to access this
+special file. It is meant to be the basis for implementing and
+experimenting with transport level protocols.(1) In the most general
+case, the sender has to supply the encapsulating header bytes in front
+of the packet and the receiver has to strip the additional bytes from
+the message.
+
+ RAW receivers cannot receive packets sent with TCP or UDP because the
+operating system does not deliver the packets to a RAW receiver. The
+operating system knows about some of the protocols on top of IP and
+decides on its own which packet to deliver to which process. (d.c.)
+Therefore, the UDP receiver must be used for receiving UDP datagrams
+sent with the RAW sender. This is a dark corner, not only of `gawk',
+but also of TCP/IP.
+
+ For extended experimentation with protocols, look into the approach
+implemented in a tool called SPAK. This tool reflects the hierarchical
+layering of protocols (encapsulation) in the way data streams are piped
+out of one program into the next one. It shows which protocol is based
+on which other (lower-level) protocol by looking at the command-line
+ordering of the program calls. Cleverly thought out, SPAK is much
+better than `gawk''s `/inet' for learning the meaning of each and every
+bit in the protocol headers.
+
+ The next example uses the RAW protocol to emulate the behavior of
+UDP. The sender program is the same as above, but with some additional
+bytes that fill the places of the UDP fields:
+
+ BEGIN {
+ Message = "Hello world\n"
+ SourcePort = 0
+ DestinationPort = 8888
+ MessageLength = length(Message)+8
+ RawService = "/inet/raw/0/localhost/0"
+ printf("%c%c%c%c%c%c%c%c%s",
+ SourcePort/256, SourcePort%256,
+ DestinationPort/256, DestinationPort%256,
+ MessageLength/256, MessageLength%256,
+ 0, 0, Message) |& RawService
+ fflush(RawService)
+ close(RawService)
+ }
+
+ Since this program tries to emulate the behavior of UDP, it checks if
+the RAW sender is understood by the UDP receiver but not if the RAW
+receiver can understand the UDP sender. In a real network, the RAW
+receiver is hardly of any use because it gets every IP packet that
+comes across the network. There are usually so many packets that `gawk'
+would be too slow for processing them. Only on a network with little
+traffic can the IP-level receiver program be tested. Programs for
+analyzing IP traffic on modem or ISDN channels should be possible.
+
+ Port numbers do not have a meaning when using `/inet/raw'. Their
+fields have to be `0'. Only TCP and UDP use ports. Receiving data from
+`/inet/raw' is difficult, not only because of processing speed but also
+because data is usually binary and not restricted to ASCII. This
+implies that line separation with `RS' does not work as usual.
+
+ ---------- Footnotes ----------
+
+ (1) This special file is reserved, but not otherwise currently
+implemented.
+
+
+File: gawkinet.info, Node: TCP Connecting, Next: Troubleshooting, Prev: Gawk Special Files, Up: Using Networking
+
+Establishing a TCP Connection
+=============================
+
+ Let's observe a network connection at work. Type in the following
+program and watch the output. Within a second, it connects via TCP
+(`/inet/tcp') to the machine it is running on (`localhost'), and asks
+the service `daytime' on the machine what time it is:
+
+ BEGIN {
+ "/inet/tcp/0/localhost/daytime" |& getline
+ print $0
+ close("/inet/tcp/0/localhost/daytime")
+ }
+
+ Even experienced `awk' users will find the second line strange in two
+respects:
+
+ * A special file is used as a shell command that pipes its output
+ into `getline'. One would rather expect to see the special file
+ being read like any other file (`getline <
+ "/inet/tcp/0/localhost/daytime")'.
+
+ * The operator `|&' has not been part of any `awk' implementation
+ (until now). It is actually the only extension of the `awk'
+ language needed (apart from the special files) to introduce
+ network access.
+
+ The `|&' operator was introduced in `gawk' 3.1 in order to overcome
+the crucial restriction that access to files and pipes in `awk' is
+always unidirectional. It was formerly impossible to use both access
+modes on the same file or pipe. Instead of changing the whole concept
+of file access, the `|&' operator behaves exactly like the usual pipe
+operator except for two additions:
+
+ * Normal shell commands connected to their `gawk' program with a `|&'
+ pipe can be accessed bidirectionally. The `|&' turns out to be a
+ quite general, useful, and natural extension of `awk'.
+
+ * Pipes that consist of a special file name for network connections
+ are not executed as shell commands. Instead, they can be read and
+ written to, just like a full-duplex network connection.
+
+ In the earlier example, the `|&' operator tells `getline' to read a
+line from the special file `/inet/tcp/0/localhost/daytime'. We could
+also have printed a line into the special file. But instead we just
+read a line with the time, printed it, and closed the connection.
+(While we could just let `gawk' close the connection by finishing the
+program, in this Info file we are pedantic, and always explicitly close
+the connections.)
+
+
+File: gawkinet.info, Node: Troubleshooting, Next: Interacting, Prev: TCP Connecting, Up: Using Networking
+
+Troubleshooting Connection Problems
+===================================
+
+ It may well be that for some reason the above program does not run
+on your machine. When looking at possible reasons for this, you will
+learn much about typical problems that arise in network programming.
+First of all, your implementation of `gawk' may not support network
+access because it is a pre-3.1 version or you do not have a network
+interface in your machine. Perhaps your machine uses some other
+protocol like DECnet or Novell's IPX. For the rest of this major node,
+we will assume you work on a Unix machine that supports TCP/IP. If the
+above program does not run on such a machine, it may help to replace
+the name `localhost' with the name of your machine or its IP address.
+If it does, you could replace `localhost' with the name of another
+machine in your vicinity. This way, the program connects to another
+machine. Now you should see the date and time being printed by the
+program. Otherwise your machine may not support the `daytime' service.
+Try changing the service to `chargen' or `ftp'. This way, the program
+connects to other services that should give you some response. If you
+are curious, you should have a look at your file `/etc/services'. It
+could look like this:
+
+ # /etc/services:
+ #
+ # Network services, Internet style
+ #
+ # Name Number/Protcol Alternate name # Comments
+
+ echo 7/tcp
+ echo 7/udp
+ discard 9/tcp sink null
+ discard 9/udp sink null
+ daytime 13/tcp
+ daytime 13/udp
+ chargen 19/tcp ttytst source
+ chargen 19/udp ttytst source
+ ftp 21/tcp
+ telnet 23/tcp
+ smtp 25/tcp mail
+ finger 79/tcp
+ www 80/tcp http # WorldWideWeb HTTP
+ www 80/udp # HyperText Transfer Protocol
+ pop-2 109/tcp postoffice # POP version 2
+ pop-2 109/udp
+ pop-3 110/tcp # POP version 3
+ pop-3 110/udp
+ nntp 119/tcp readnews untp # USENET News
+ irc 194/tcp # Internet Relay Chat
+ irc 194/udp
+ ...
+
+ Here, you find a list of services that traditional Unix machines
+usually support. If your GNU/Linux machine does not do so, it may be
+that these services are switched off in some startup script. Systems
+running some flavor of Microsoft Windows usually do _not_ support such
+services. Nevertheless, it _is_ possible to do networking with `gawk'
+on Microsoft Windows.(1) The first column of the file gives the name of
+the service, the second a unique number, and the protocol that one can
+use to connect to this service. The rest of the line is treated as a
+comment. You see that some services (`echo') support TCP as well as
+UDP.
+
+ ---------- Footnotes ----------
+
+ (1) Microsoft prefered to ignore the TCP/IP family of protocols
+until 1995. Then came the rise of the Netscape browser as a landmark
+"killer application." Microsoft added TCP/IP support and their own
+browser to Microsoft Windows 95 at the last minute. They even
+back-ported their TCP/IP implementation to Microsoft Windows for
+Workgroups 3.11, but it was a rather rudimentary and half-hearted
+implementation. Nevertheless, the equivalent of `/etc/services' resides
+under `c:\windows\services' on Microsoft Windows.
+
+
+File: gawkinet.info, Node: Interacting, Next: Setting Up, Prev: Troubleshooting, Up: Using Networking
+
+Interacting with a Network Service
+==================================
+
+ The next program makes use of the possibility to really interact
+with a network service by printing something into the special file. It
+asks the so-called `finger' service if a user of the machine is logged
+in. When testing this program, try to change `localhost' to some other
+machine name in your local network:
+
+ BEGIN {
+ NetService = "/inet/tcp/0/localhost/finger"
+ print "NAME" |& NetService
+ while ((NetService |& getline) > 0)
+ print $0
+ close(NetService)
+ }
+
+ After telling the service on the machine which user to look for, the
+program repeatedly reads lines that come as a reply. When no more lines
+are coming (because the service has closed the connection), the program
+also closes the connection. Try replacing `"NAME"' with your login name
+(or the name of someone else logged in). For a list of all users
+currently logged in, replace NAME with an empty string `""'.
+
+ The final `close' command could be safely deleted from the above
+script, because the operating system closes any open connection by
+default when a script reaches the end of execution. In order to avoid
+portability problems, it is best to always close connections explicitly.
+With the Linux kernel, for example, proper closing results in flushing
+of buffers. Letting the close happen by default may result in
+discarding buffers.
+
+ When looking at `/etc/services' you may have noticed that the
+`daytime' service is also available with `udp'. In the earlier example,
+change `tcp' to `udp', and change `finger' to `daytime'. After
+starting the modified program, you see the expected day and time
+message. The program then hangs, because it waits for more lines
+coming from the service. However, they never come. This behavior is a
+consequence of the differences between TCP and UDP. When using UDP,
+neither party is automatically informed about the other closing the
+connection. Continuing to experiment this way reveals many other subtle
+differences between TCP and UDP. To avoid such trouble, one should
+always remember the advice Douglas E. Comer and David Stevens give in
+Volume III of their series `Internetworking With TCP' (page 14):
+
+ When designing client-server applications, beginners are strongly
+ advised to use TCP because it provides reliable,
+ connection-oriented communication. Programs only use UDP if the
+ application protocol handles reliability, the application requires
+ hardware broadcast or multicast, or the application cannot
+ tolerate virtual circuit overhead.
+
+
+File: gawkinet.info, Node: Setting Up, Next: Email, Prev: Interacting, Up: Using Networking
+
+Setting Up a Service
+====================
+
+ The preceding programs behaved as clients that connect to a server
+somewhere on the Internet and request a particular service. Now we set
+up such a service to mimic the behavior of the `daytime' service. Such
+a server does not know in advance who is going to connect to it over
+the network. Therefore we cannot insert a name for the host to connect
+to in our special file name.
+
+ Start the following program in one window. Notice that the service
+does not have the name `daytime', but the number `8888'. From looking
+at `/etc/services', you know that names like `daytime' are just
+mnemonics for predetermined 16-bit integers. Only the system
+administrator (`root') could enter our new service into `/etc/services'
+with an appropriate name. Also notice that the service name has to be
+entered into a different field of the special file name because we are
+setting up a server, not a client:
+
+ BEGIN {
+ print strftime() |& "/inet/tcp/8888/0/0"
+ close("/inet/tcp/8888/0/0")
+ }
+
+ Now open another window on the same machine. Copy the client
+program given as the first example (*note Establishing a TCP
+Connection: TCP Connecting.) to a new file and edit it, changing the
+name `daytime' to `8888'. Then start the modified client. You should
+get a reply like this:
+
+ Sat Sep 27 19:08:16 CEST 1997
+
+Both programs explicitly close the connection.
+
+ Now we will intentionally make a mistake to see what happens when
+the name `8888' (the so-called port) is already used by another service.
+Start the server program in both windows. The first one works, but the
+second one complains that it could not open the connection. Each port
+on a single machine can only be used by one server program at a time.
+Now terminate the server program and change the name `8888' to `echo'.
+After restarting it, the server program does not run any more and you
+know why: there already is an `echo' service running on your machine.
+But even if this isn't true, you would not get your own `echo' server
+running on a Unix machine, because the ports with numbers smaller than
+1024 (`echo' is at port 7) are reserved for `root'. On machines
+running some flavor of Microsoft Windows, there is no restriction that
+reserves ports 1 to 1024 for a privileged user; hence you can start an
+`echo' server there.
+
+ Turning this short server program into something really useful is
+simple. Imagine a server that first reads a file name from the client
+through the network connection, then does something with the file and
+sends a result back to the client. The server-side processing could be:
+
+ BEGIN {
+ NetService = "/inet/tcp/8888/0/0"
+ NetService |& getline
+ CatPipe = ("cat " $1) # sets $0 and the fields
+ while ((CatPipe | getline) > 0)
+ print $0 |& NetService
+ close(NetService)
+ }
+
+and we would have a remote copying facility. Such a server reads the
+name of a file from any client that connects to it and transmits the
+contents of the named file across the net. The server-side processing
+could also be the execution of a command that is transmitted across the
+network. From this example, you can see how simple it is to open up a
+security hole on your machine. If you allow clients to connect to your
+machine and execute arbitrary commands, anyone would be free to do `rm
+-rf *'.
+
+
+File: gawkinet.info, Node: Email, Next: Web page, Prev: Setting Up, Up: Using Networking
+
+Reading Email
+=============
+
+ The distribution of email is usually done by dedicated email servers
+that communicate with your machine using special protocols. To receive
+email, we will use the Post Office Protocol (POP). Sending can be done
+with the much older Simple Mail Transfer Protocol (SMTP).
+
+ When you type in the following program, replace the EMAILHOST by the
+name of your local email server. Ask your administrator if the server
+has a POP service, and then use its name or number in the program below.
+Now the program is ready to connect to your email server, but it will
+not succeed in retrieving your mail because it does not yet know your
+login name or password. Replace them in the program and it shows you
+the first email the server has in store:
+
+ BEGIN {
+ POPService = "/inet/tcp/0/EMAILHOST/pop3"
+ RS = ORS = "\r\n"
+ print "user NAME" |& POPService
+ POPService |& getline
+ print "pass PASSWORD" |& POPService
+ POPService |& getline
+ print "retr 1" |& POPService
+ POPService |& getline
+ if ($1 != "+OK") exit
+ print "quit" |& POPService
+ RS = "\r\n\\.\r\n"
+ POPService |& getline
+ print $0
+ close(POPService)
+ }
+
+ The record separators `RS' and `ORS' are redefined because the
+protocol (POP) requires CR-LF to separate lines. After identifying
+yourself to the email service, the command `retr 1' instructs the
+service to send the first of all your email messages in line. If the
+service replies with something other than `+OK', the program exits;
+maybe there is no email. Otherwise, the program first announces that it
+intends to finish reading email, and then redefines `RS' in order to
+read the entire email as multiline input in one record. From the POP
+RFC, we know that the body of the email always ends with a single line
+containing a single dot. The program looks for this using `RS =
+"\r\n\\.\r\n"'. When it finds this sequence in the mail message, it
+quits. You can invoke this program as often as you like; it does not
+delete the message it reads, but instead leaves it on the server.
+
+
+File: gawkinet.info, Node: Web page, Next: Primitive Service, Prev: Email, Up: Using Networking
+
+Reading a Web Page
+==================
+
+ Retrieving a web page from a web server is as simple as retrieving
+email from an email server. We only have to use a similar, but not
+identical, protocol and a different port. The name of the protocol is
+HyperText Transfer Protocol (HTTP) and the port number is usually 80.
+As in the preceding node, ask your administrator about the name of your
+local web server or proxy web server and its port number for HTTP
+requests.
+
+ The following program employs a rather crude approach toward
+retrieving a web page. It uses the prehistoric syntax of HTTP 0.9,
+which almost all web servers still support. The most noticeable thing
+about it is that the program directs the request to the local proxy
+server whose name you insert in the special file name (which in turn
+calls `www.yahoo.com'):
+
+ BEGIN {
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/0/PROXY/80"
+ print "GET http://www.yahoo.com" |& HttpService
+ while ((HttpService |& getline) > 0)
+ print $0
+ close(HttpService)
+ }
+
+ Again, lines are separated by a redefined `RS' and `ORS'. The `GET'
+request that we send to the server is the only kind of HTTP request
+that existed when the web was created in the early 1990s. HTTP calls
+this `GET' request a "method," which tells the service to transmit a
+web page (here the home page of the Yahoo! search engine). Version 1.0
+added the request methods `HEAD' and `POST'. The current version of
+HTTP is 1.1,(1) and knows the additional request methods `OPTIONS',
+`PUT', `DELETE', and `TRACE'. You can fill in any valid web address,
+and the program prints the HTML code of that page to your screen.
+
+ Notice the similarity between the responses of the POP and HTTP
+services. First, you get a header that is terminated by an empty line,
+and then you get the body of the page in HTML. The lines of the
+headers also have the same form as in POP. There is the name of a
+parameter, then a colon, and finally the value of that parameter.
+
+ Images (`.png' or `.gif' files) can also be retrieved this way, but
+then you get binary data that should be redirected into a file. Another
+application is calling a CGI (Common Gateway Interface) script on some
+server. CGI scripts are used when the contents of a web page are not
+constant, but generated instantly at the moment you send a request for
+the page. For example, to get a detailed report about the current
+quotes of Motorola stock shares, call a CGI script at Yahoo! with the
+following:
+
+ get = "GET http://quote.yahoo.com/q?s=MOT&d=t"
+ print get |& HttpService
+
+ You can also request weather reports this way.
+
+ ---------- Footnotes ----------
+
+ (1) Version 1.0 of HTTP was defined in RFC 1945. HTTP 1.1 was
+initially specified in RFC 2068. In June 1999, RFC 2068 was made
+obsolete by RFC 2616. It is an update without any substantial changes.
+
+
+File: gawkinet.info, Node: Primitive Service, Next: Interacting Service, Prev: Web page, Up: Using Networking
+
+A Primitive Web Service
+=======================
+
+ Now we know enough about HTTP to set up a primitive web service that
+just says `"Hello, world"' when someone connects to it with a browser.
+Compared to the situation in the preceding node, our program changes
+the role. It tries to behave just like the server we have observed.
+Since we are setting up a server here, we have to insert the port
+number in the `localport' field of the special file name. The other two
+fields (HOSTNAME and REMOTEPORT) have to contain a `0' because we do
+not know in advance which host will connect to our service.
+
+ In the early 1990s, all a server had to do was send an HTML document
+and close the connection. Here, we adhere to the modern syntax of HTTP.
+The steps are as follows:
+
+ 1. Send a status line telling the web browser that everything is OK.
+
+ 2. Send a line to tell the browser how many bytes follow in the body
+ of the message. This was not necessary earlier because both
+ parties knew that the document ended when the connection closed.
+ Nowadays it is possible to stay connected after the transmission
+ of one web page. This is to avoid the network traffic necessary
+ for repeatedly establishing TCP connections for requesting several
+ images. Thus, there is the need to tell the receiving party how
+ many bytes will be sent. The header is terminated as usual with an
+ empty line.
+
+ 3. Send the `"Hello, world"' body in HTML. The useless `while' loop
+ swallows the request of the browser. We could actually omit the
+ loop, and on most machines the program would still work. First,
+ start the following program:
+
+ BEGIN {
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/8080/0/0"
+ Hello = "<HTML><HEAD>" \
+ "<TITLE>A Famous Greeting</TITLE></HEAD>" \
+ "<BODY><H1>Hello, world</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+ }
+
+ Now, on the same machine, start your favorite browser and let it
+point to `http://localhost:8080' (the browser needs to know on which
+port our server is listening for requests). If this does not work, the
+browser probably tries to connect to a proxy server that does not know
+your machine. If so, change the browser's configuration so that the
+browser does not try to use a proxy to connect to your machine.
+
+
+File: gawkinet.info, Node: Interacting Service, Next: Simple Server, Prev: Primitive Service, Up: Using Networking
+
+A Web Service with Interaction
+==============================
+
+ This node shows how to set up a simple web server. The subnode is a
+library file that we will use with all the examples in *Note Some
+Applications and Techniques::.
+
+* Menu:
+
+* CGI Lib:: A simple CGI library.
+
+ Setting up a web service that allows user interaction is more
+difficult and shows us the limits of network access in `gawk'. In this
+node, we develop a main program (a `BEGIN' pattern and its action)
+that will become the core of event-driven execution controlled by a
+graphical user interface (GUI). Each HTTP event that the user triggers
+by some action within the browser is received in this central
+procedure. Parameters and menu choices are extracted from this request
+and an appropriate measure is taken according to the user's choice.
+For example:
+
+ BEGIN {
+ if (MyHost == "") {
+ "uname -n" | getline MyHost
+ close("uname -n")
+ }
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ MyPrefix = "http://" MyHost ":" MyPort
+ SetUpServer()
+ while ("awk" != "complex") {
+ # header lines are terminated this way
+ RS = ORS = "\r\n"
+ Status = 200 # this means OK
+ Reason = "OK"
+ Header = TopHeader
+ Document = TopDoc
+ Footer = TopFooter
+ if (GETARG["Method"] == "GET") {
+ HandleGET()
+ } else if (GETARG["Method"] == "HEAD") {
+ # not yet implemented
+ } else if (GETARG["Method"] != "") {
+ print "bad method", GETARG["Method"]
+ }
+ Prompt = Header Document Footer
+ print "HTTP/1.0", Status, Reason |& HttpService
+ print "Connection: Close" |& HttpService
+ print "Pragma: no-cache" |& HttpService
+ len = length(Prompt) + length(ORS)
+ print "Content-length:", len |& HttpService
+ print ORS Prompt |& HttpService
+ # ignore all the header lines
+ while ((HttpService |& getline) > 0)
+ ;
+ # stop talking to this client
+ close(HttpService)
+ # wait for new client request
+ HttpService |& getline
+ # do some logging
+ print systime(), strftime(), $0
+ # read request parameters
+ CGI_setup($1, $2, $3)
+ }
+ }
+
+ This web server presents menu choices in the form of HTML links.
+Therefore, it has to tell the browser the name of the host it is
+residing on. When starting the server, the user may supply the name of
+the host from the command line with `gawk -v MyHost="Rumpelstilzchen"'.
+If the user does not do this, the server looks up the name of the host
+it is running on for later use as a web address in HTML documents. The
+same applies to the port number. These values are inserted later into
+the HTML content of the web pages to refer to the home system.
+
+ Each server that is built around this core has to initialize some
+application-dependent variables (such as the default home page) in a
+procedure `SetUpServer', which is called immediately before entering the
+infinite loop of the server. For now, we will write an instance that
+initiates a trivial interaction. With this home page, the client user
+can click on two possible choices, and receive the current date either
+in human-readable format or in seconds since 1970:
+
+ function SetUpServer() {
+ TopHeader = "<HTML><HEAD>"
+ TopHeader = TopHeader \
+ "<title>My name is GAWK, GNU AWK</title></HEAD>"
+ TopDoc = "<BODY><h2>\
+ Do you prefer your date <A HREF=" MyPrefix \
+ "/human>human</A> or \
+ <A HREF=" MyPrefix "/POSIX>POSIXed</A>?</h2>" ORS ORS
+ TopFooter = "</BODY></HTML>"
+ }
+
+ On the first run through the main loop, the default line terminators
+are set and the default home page is copied to the actual home page.
+Since this is the first run, `GETARG["Method"]' is not initialized yet,
+hence the case selection over the method does nothing. Now that the
+home page is initialized, the server can start communicating to a
+client browser.
+
+ It does so by printing the HTTP header into the network connection
+(`print ... |& HttpService'). This command blocks execution of the
+server script until a client connects. If this server script is
+compared with the primitive one we wrote before, you will notice two
+additional lines in the header. The first instructs the browser to
+close the connection after each request. The second tells the browser
+that it should never try to _remember_ earlier requests that had
+identical web addresses (no caching). Otherwise, it could happen that
+the browser retrieves the time of day in the previous example just once,
+and later it takes the web page from the cache, always displaying the
+same time of day although time advances each second.
+
+ Having supplied the initial home page to the browser with a valid
+document stored in the parameter `Prompt', it closes the connection and
+waits for the next request. When the request comes, a log line is
+printed that allows us to see which request the server receives. The
+final step in the loop is to call the function `CGI_setup', which reads
+all the lines of the request (coming from the browser), processes them,
+and stores the transmitted parameters in the array `PARAM'. The complete
+text of these application-independent functions can be found in *Note A
+Simple CGI Library: CGI Lib. For now, we use a simplified version of
+`CGI_setup':
+
+ function CGI_setup( method, uri, version, i) {
+ delete GETARG; delete MENU; delete PARAM
+ GETARG["Method"] = $1
+ GETARG["URI"] = $2
+ GETARG["Version"] = $3
+ i = index($2, "?")
+ # is there a "?" indicating a CGI request?
+ if (i > 0) {
+ split(substr($2, 1, i-1), MENU, "[/:]")
+ split(substr($2, i+1), PARAM, "&")
+ for (i in PARAM) {
+ j = index(PARAM[i], "=")
+ GETARG[substr(PARAM[i], 1, j-1)] = \
+ substr(PARAM[i], j+1)
+ }
+ } else { # there is no "?", no need for splitting PARAMs
+ split($2, MENU, "[/:]")
+ }
+ }
+
+ At first, the function clears all variables used for global storage
+of request parameters. The rest of the function serves the purpose of
+filling the global parameters with the extracted new values. To
+accomplish this, the name of the requested resource is split into parts
+and stored for later evaluation. If the request contains a `?', then
+the request has CGI variables seamlessly appended to the web address.
+Everything in front of the `?' is split up into menu items, and
+everything behind the `?' is a list of `VARIABLE=VALUE' pairs
+(separated by `&') that also need splitting. This way, CGI variables are
+isolated and stored. This procedure lacks recognition of special
+characters that are transmitted in coded form(1). Here, any optional
+request header and body parts are ignored. We do not need header
+parameters and the request body. However, when refining our approach or
+working with the `POST' and `PUT' methods, reading the header and body
+becomes inevitable. Header parameters should then be stored in a global
+array as well as the body.
+
+ On each subsequent run through the main loop, one request from a
+browser is received, evaluated, and answered according to the user's
+choice. This can be done by letting the value of the HTTP method guide
+the main loop into execution of the procedure `HandleGET', which
+evaluates the user's choice. In this case, we have only one
+hierarchical level of menus, but in the general case, menus are nested.
+The menu choices at each level are separated by `/', just as in file
+names. Notice how simple it is to construct menus of arbitrary depth:
+
+ function HandleGET() {
+ if ( MENU[2] == "human") {
+ Footer = strftime() TopFooter
+ } else if (MENU[2] == "POSIX") {
+ Footer = systime() TopFooter
+ }
+ }
+
+ The disadvantage of this approach is that our server is slow and can
+handle only one request at a time. Its main advantage, however, is that
+the server consists of just one `gawk' program. No need for installing
+an `httpd', and no need for static separate HTML files, CGI scripts, or
+`root' privileges. This is rapid prototyping. This program can be
+started on the same host that runs your browser. Then let your browser
+point to `http://localhost:8080'.
+
+ It is also possible to include images into the HTML pages. Most
+browsers support the not very well-known `.xbm' format, which may
+contain only monochrome pictures but is an ASCII format. Binary images
+are possible but not so easy to handle. Another way of including images
+is to generate them with a tool such as GNUPlot, by calling the tool
+with the `system' function or through a pipe.
+
+ ---------- Footnotes ----------
+
+ (1) As defined in RFC 2068.
+
+
+File: gawkinet.info, Node: CGI Lib, Prev: Interacting Service, Up: Interacting Service
+
+A Simple CGI Library
+--------------------
+
+ HTTP is like being married: you have to be able to handle whatever
+ you're given, while being very careful what you send back.
+ Phil Smith III,
+ `http://www.netfunny.com/rhf/jokes/99/Mar/http.html'
+
+ In *Note A Web Service with Interaction: Interacting Service, we saw
+the function `CGI_setup' as part of the web server "core logic"
+framework. The code presented there handles almost everything necessary
+for CGI requests. One thing it doesn't do is handle encoded characters
+in the requests. For example, an `&' is encoded as a percent sign
+followed by the hexadecimal value--`%26'. These encoded values should
+be decoded. Following is a simple library to perform these tasks.
+This code is used for all web server examples used throughout the rest
+of this Info file. If you want to use it for your own web server,
+store the source code into a file named `inetlib.awk'. Then you can
+include these functions into your code by placing the following
+statement into your program:
+
+ @include inetlib.awk
+
+on the first line of your script. But beware, this mechanism is only
+possible if you invoke your web server script with `igawk' instead of
+the usual `awk' or `gawk'. Here is the code:
+
+ # CGI Library and core of a web server
+ # Global arrays
+ # GETARG --- arguments to CGI GET command
+ # MENU --- menu items (path names)
+ # PARAM --- parameters of form x=y
+
+ # Optional variable MyHost contains host address
+ # Optional variable MyPort contains port number
+ # Needs TopHeader, TopDoc, TopFooter
+ # Sets MyPrefix, HttpService, Status, Reason
+
+ BEGIN {
+ if (MyHost == "") {
+ "uname -n" | getline MyHost
+ close("uname -n")
+ }
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ MyPrefix = "http://" MyHost ":" MyPort
+ SetUpServer()
+ while ("awk" != "complex") {
+ # header lines are terminated this way
+ RS = ORS = "\r\n"
+ Status = 200 # this means OK
+ Reason = "OK"
+ Header = TopHeader
+ Document = TopDoc
+ Footer = TopFooter
+ if (GETARG["Method"] == "GET") {
+ HandleGET()
+ } else if (GETARG["Method"] == "HEAD") {
+ # not yet implemented
+ } else if (GETARG["Method"] != "") {
+ print "bad method", GETARG["Method"]
+ }
+ Prompt = Header Document Footer
+ print "HTTP/1.0", Status, Reason |& HttpService
+ print "Connection: Close" |& HttpService
+ print "Pragma: no-cache" |& HttpService
+ len = length(Prompt) + length(ORS)
+ print "Content-length:", len |& HttpService
+ print ORS Prompt |& HttpService
+ # ignore all the header lines
+ while ((HttpService |& getline) > 0)
+ continue
+ # stop talking to this client
+ close(HttpService)
+ # wait for new client request
+ HttpService |& getline
+ # do some logging
+ print systime(), strftime(), $0
+ CGI_setup($1, $2, $3)
+ }
+ }
+
+ function CGI_setup( method, uri, version, i)
+ {
+ delete GETARG
+ delete MENU
+ delete PARAM
+ GETARG["Method"] = method
+ GETARG["URI"] = uri
+ GETARG["Version"] = version
+
+ i = index(uri, "?")
+ if (i > 0) { # is there a "?" indicating a CGI request?
+ split(substr(uri, 1, i-1), MENU, "[/:]")
+ split(substr(uri, i+1), PARAM, "&")
+ for (i in PARAM) {
+ PARAM[i] = _CGI_decode(PARAM[i])
+ j = index(PARAM[i], "=")
+ GETARG[substr(PARAM[i], 1, j-1)] = \
+ substr(PARAM[i], j+1)
+ }
+ } else { # there is no "?", no need for splitting PARAMs
+ split(uri, MENU, "[/:]")
+ }
+ for (i in MENU) # decode characters in path
+ if (i > 4) # but not those in host name
+ MENU[i] = _CGI_decode(MENU[i])
+ }
+
+ This isolates details in a single function, `CGI_setup'. Decoding
+of encoded characters is pushed off to a helper function,
+`_CGI_decode'. The use of the leading underscore (`_') in the function
+name is intended to indicate that it is an "internal" function,
+although there is nothing to enforce this:
+
+ function _CGI_decode(str, hexdigs, i, pre, code1, code2,
+ val, result)
+ {
+ hexdigs = "123456789abcdef"
+
+ i = index(str, "%")
+ if (i == 0) # no work to do
+ return str
+
+ do {
+ pre = substr(str, 1, i-1) # part before %xx
+ code1 = substr(str, i+1, 1) # first hex digit
+ code2 = substr(str, i+2, 1) # second hex digit
+ str = substr(str, i+3) # rest of string
+
+ code1 = tolower(code1)
+ code2 = tolower(code2)
+ val = index(hexdigs, code1) * 16 \
+ + index(hexdigs, code2)
+
+ result = result pre sprintf("%c", val)
+ i = index(str, "%")
+ } while (i != 0)
+ if (length(str) > 0)
+ result = result str
+ return result
+ }
+
+ This works by splitting the string apart around an encoded character.
+The two digits are converted to lowercase and looked up in a string of
+hex digits. Note that `0' is not in the string on purpose; `index'
+returns zero when it's not found, automatically giving the correct
+value! Once the hexadecimal value is converted from characters in a
+string into a numerical value, `sprintf' converts the value back into a
+real character. The following is a simple test harness for the above
+functions:
+
+ BEGIN {
+ CGI_setup("GET",
+ "http://www.gnu.org/cgi-bin/foo?p1=stuff&p2=stuff%26junk" \
+ "&percent=a %25 sign",
+ "1.0")
+ for (i in MENU)
+ printf "MENU[\"%s\"] = %s\n", i, MENU[i]
+ for (i in PARAM)
+ printf "PARAM[\"%s\"] = %s\n", i, PARAM[i]
+ for (i in GETARG)
+ printf "GETARG[\"%s\"] = %s\n", i, GETARG[i]
+ }
+
+ And this is the result when we run it:
+
+ $ gawk -f testserv.awk
+ -| MENU["4"] = www.gnu.org
+ -| MENU["5"] = cgi-bin
+ -| MENU["6"] = foo
+ -| MENU["1"] = http
+ -| MENU["2"] =
+ -| MENU["3"] =
+ -| PARAM["1"] = p1=stuff
+ -| PARAM["2"] = p2=stuff&junk
+ -| PARAM["3"] = percent=a % sign
+ -| GETARG["p1"] = stuff
+ -| GETARG["percent"] = a % sign
+ -| GETARG["p2"] = stuff&junk
+ -| GETARG["Method"] = GET
+ -| GETARG["Version"] = 1.0
+ -| GETARG["URI"] = http://www.gnu.org/cgi-bin/foo?p1=stuff&
+ p2=stuff%26junk&percent=a %25 sign
+
+
+File: gawkinet.info, Node: Simple Server, Next: Caveats, Prev: Interacting Service, Up: Using Networking
+
+A Simple Web Server
+===================
+
+ In the preceding node, we built the core logic for event driven GUIs.
+In this node, we finally extend the core to a real application. No one
+would actually write a commercial web server in `gawk', but it is
+instructive to see that it is feasible in principle.
+
+ The application is ELIZA, the famous program by Joseph Weizenbaum
+that mimics the behavior of a professional psychotherapist when talking
+to you. Weizenbaum would certainly object to this description, but
+this is part of the legend around ELIZA. Take the site-independent
+core logic and append the following code:
+
+ function SetUpServer() {
+ SetUpEliza()
+ TopHeader = \
+ "<HTML><title>An HTTP-based System with GAWK</title>\
+ <HEAD><META HTTP-EQUIV=\"Content-Type\"\
+ CONTENT=\"text/html; charset=iso-8859-1\"></HEAD>\
+ <BODY BGCOLOR=\"#ffffff\" TEXT=\"#000000\"\
+ LINK=\"#0000ff\" VLINK=\"#0000ff\"\
+ ALINK=\"#0000ff\"> <A NAME=\"top\">"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI>\
+ <A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ </LI><LI>\
+ <A HREF=" MyPrefix "/AboutELIZA>About Eliza</A></LI>\
+ <LI>\
+ <A HREF=" MyPrefix \
+ "/StartELIZA>Start talking to Eliza</A></LI></UL>"
+ TopFooter = "</BODY></HTML>"
+ }
+
+ `SetUpServer' is similar to the previous example, except for calling
+another function, `SetUpEliza'. This approach can be used to implement
+other kinds of servers. The only changes needed to do so are hidden in
+the functions `SetUpServer' and `HandleGET'. Perhaps it might be
+necessary to implement other HTTP methods. The `igawk' program that
+comes with `gawk' may be useful for this process.
+
+ When extending this example to a complete application, the first
+thing to do is to implement the function `SetUpServer' to initialize
+the HTML pages and some variables. These initializations determine the
+way your HTML pages look (colors, titles, menu items, etc.).
+
+ The function `HandleGET' is a nested case selection that decides
+which page the user wants to see next. Each nesting level refers to a
+menu level of the GUI. Each case implements a certain action of the
+menu. On the deepest level of case selection, the handler essentially
+knows what the user wants and stores the answer into the variable that
+holds the HTML page contents:
+
+ function HandleGET() {
+ # A real HTTP server would treat some parts of the URI as a file name.
+ # We take parts of the URI as menu choices and go on accordingly.
+ if(MENU[2] == "AboutServer") {
+ Document = "This is not a CGI script.\
+ This is an httpd, an HTML file, and a CGI script all \
+ in one GAWK script. It needs no separate www-server, \
+ no installation, and no root privileges.\
+ <p>To run it, do this:</p><ul>\
+ <li> start this script with \"gawk -f httpserver.awk\",</li>\
+ <li> and on the same host let your www browser open location\
+ \"http://localhost:8080\"</li>\
+ </ul>\<p>\ Details of HTTP come from:</p><ul>\
+ <li>Hethmon: Illustrated Guide to HTTP</p>\
+ <li>RFC 2068</li></ul><p>JK 14.9.1997</p>"
+ } else if (MENU[2] == "AboutELIZA") {
+ Document = "This is an implementation of the famous ELIZA\
+ program by Joseph Weizenbaum. It is written in GAWK and\
+ /bin/sh: expad: command not found
+ } else if (MENU[2] == "StartELIZA") {
+ gsub(/\+/, " ", GETARG["YouSay"])
+ # Here we also have to substitute coded special characters
+ Document = "<form method=GET>" \
+ "<h3>" ElizaSays(GETARG["YouSay"]) "</h3>\
+ <p><input type=text name=YouSay value=\"\" size=60>\
+ <br><input type=submit value=\"Tell her about it\"></p></form>"
+ }
+ }
+
+ Now we are down to the heart of ELIZA, so you can see how it works.
+Initially the user does not say anything; then ELIZA resets its money
+counter and asks the user to tell what comes to mind open heartedly.
+The subsequent answers are converted to uppercase and stored for later
+comparison. ELIZA presents the bill when being confronted with a
+sentence that contains the phrase "shut up." Otherwise, it looks for
+keywords in the sentence, conjugates the rest of the sentence, remembers
+the keyword for later use, and finally selects an answer from the set of
+possible answers:
+
+ function ElizaSays(YouSay) {
+ if (YouSay == "") {
+ cost = 0
+ answer = "HI, IM ELIZA, TELL ME YOUR PROBLEM"
+ } else {
+ q = toupper(YouSay)
+ gsub("'", "", q)
+ if(q == qold) {
+ answer = "PLEASE DONT REPEAT YOURSELF !"
+ } else {
+ if (index(q, "SHUT UP") > 0) {
+ answer = "WELL, PLEASE PAY YOUR BILL. ITS EXACTLY ... $"\
+ int(100*rand()+30+cost/100)
+ } else {
+ qold = q
+ w = "-" # no keyword recognized yet
+ for (i in k) { # search for keywords
+ if (index(q, i) > 0) {
+ w = i
+ break
+ }
+ }
+ if (w == "-") { # no keyword, take old subject
+ w = wold
+ subj = subjold
+ } else { # find subject
+ subj = substr(q, index(q, w) + length(w)+1)
+ wold = w
+ subjold = subj # remember keyword and subject
+ }
+ for (i in conj)
+ gsub(i, conj[i], q) # conjugation
+ # from all answers to this keyword, select one randomly
+ answer = r[indices[int(split(k[w], indices) * rand()) + 1]]
+ # insert subject into answer
+ gsub("_", subj, answer)
+ }
+ }
+ }
+ cost += length(answer) # for later payment : 1 cent per character
+ return answer
+ }
+
+ In the long but simple function `SetUpEliza', you can see tables for
+conjugation, keywords, and answers.(1) The associative array `k'
+contains indices into the array of answers `r'. To choose an answer,
+ELIZA just picks an index randomly:
+
+ function SetUpEliza() {
+ srand()
+ wold = "-"
+ subjold = " "
+
+ # table for conjugation
+ conj[" ARE " ] = " AM "
+ conj["WERE " ] = "WAS "
+ conj[" YOU " ] = " I "
+ conj["YOUR " ] = "MY "
+ conj[" IVE " ] =\
+ conj[" I HAVE " ] = " YOU HAVE "
+ conj[" YOUVE " ] =\
+ conj[" YOU HAVE "] = " I HAVE "
+ conj[" IM " ] =\
+ conj[" I AM " ] = " YOU ARE "
+ conj[" YOURE " ] =\
+ conj[" YOU ARE " ] = " I AM "
+
+ # table of all answers
+ r[1] = "DONT YOU BELIEVE THAT I CAN _"
+ r[2] = "PERHAPS YOU WOULD LIKE TO BE ABLE TO _ ?"
+ ...
+
+ # table for looking up answers that
+ # fit to a certain keyword
+ k["CAN YOU"] = "1 2 3"
+ k["CAN I"] = "4 5"
+ k["YOU ARE"] =\
+ k["YOURE"] = "6 7 8 9"
+ ...
+
+ }
+
+ Some interesting remarks and details (including the original source
+code of ELIZA) are found on Mark Humphrys' home page. Yahoo! also has
+a page with a collection of ELIZA-like programs. Many of them are
+written in Java, some of them disclosing the Java source code, and a
+few even explain how to modify the Java source code.
+
+ ---------- Footnotes ----------
+
+ (1) The version shown here is abbreviated. The full version comes
+with the `gawk' distribution.
+
+
+File: gawkinet.info, Node: Caveats, Next: Challenges, Prev: Simple Server, Up: Using Networking
+
+Network Programming Caveats
+===========================
+
+ By now it should be clear that debugging a networked application is
+more complicated than debugging a single-process single-hosted
+application. The behavior of a networked application sometimes looks
+non-causal because it is not reproducible in a strong sense. Whether a
+network application works or not sometimes depends on the following:
+
+ * How crowded the underlying network is.
+
+ * If the party at the other end is running or not.
+
+ * The state of the party at the other end.
+
+ The most difficult problems for a beginner arise from the hidden
+states of the underlying network. After closing a TCP connection, it's
+often necessary to wait a short while before reopening the connection.
+Even more difficult is the establishment of a connection that
+previously ended with a "broken pipe." Those connections have to "time
+out" for a minute or so before they can reopen. Check this with the
+command `netstat -a', which provides a list of still "active"
+connections.
+
+
+File: gawkinet.info, Node: Challenges, Prev: Caveats, Up: Using Networking
+
+Where To Go From Here
+=====================
+
+ Now, you have learned enough to build your own application. You
+could, for example, take part in the Loebner Contest to win $100,000.
+The Loebner Prize is the first formal instantiation of a Turing Test.
+Hugh Loebner agreed with The Cambridge Center for Behavioral Studies to
+underwrite a contest designed to implement the Turing Test. Dr.
+Loebner pledged a Grand Prize of $100,000 for the first computer whose
+responses were indistinguishable from a human's. Each year an annual
+prize of $2000 and a bronze medal is awarded to the _most_ human
+computer. The winner of the annual contest is the best entry relative
+to other entries that year, irrespective of how good it is in an
+absolute sense. Here is an example of a conversation with the winning
+program of 1997:
+
+ (c)1997 Cambridge Center For Behavioral Studies all rights reserved [CONVERSE]
+ [Intelligent Research Ltd.] Start at: [1997/04/29 08:59:40]
+ PROGRAM[10:39:20]Hi, my name is Catherine, what's yours?
+ JUDGE02[10:39:36]My name is Nathan.
+ PROGRAM[10:39:37]Well, it's nice to meet you, Nathan.
+ PROGRAM[10:39:45]Did you see that story on CNN last night about the lesbian
+ PROGRAM[10:40:03]couple who came out at a White House party on Sunday?
+ JUDGE02[10:40:45]No. I'm sorry I missed that. How did the Prez take it?
+ PROGRAM[10:40:47]Ellen Degeneres was one of them - she was kissing her lover
+ PROGRAM[10:41:08]in front of Bill Clinton. Do you think he was very
+ PROGRAM[10:41:21]embarrassed?
+ JUDGE02[10:41:37]You tell me. I didn't see it.
+ PROGRAM[10:41:38]Are you still a Friend of Bill Clinton?
+ JUDGE02[10:42:22]Yes. I would like to talk about something else. Do you know anything about sculpture.
+ PROGRAM[10:42:24]Well, I suppose he's doing his best like most of us, but he
+ PROGRAM[10:42:35]does seem to attract an UNUSUAL amount of bad publicity,
+ PROGRAM[10:42:51]wouldnt you say--can it all be bad luck?
+ JUDGE02[10:43:20]I asked you if you knew anything about sculpture.
+ PROGRAM[10:43:21]OK, but what happens now--does it all drift on, with
+ PROGRAM[10:43:36]everyone waiting to see how much his friends have said about
+ PROGRAM[10:43:47]him under threat of lots and lots of jail-or will something
+ PROGRAM[10:44:01]dramatic actually happen?
+ JUDGE02[10:44:19]Do you know what sculpture is?
+ PROGRAM[10:44:20]Well, youre more a fan of his than I am I guess---though I
+ PROGRAM[10:44:34]cant SWEAR what Id have done in that locked hotel room, I
+ PROGRAM[10:44:51]must say.
+ JUDGE02[10:45:26]Have you ever been to the Salmagundi Club?
+ PROGRAM[10:45:29]Never. to go back to the original discussion Time to get
+ PROGRAM[10:45:43]off this one I think and onto something more down to earth!
+ JUDGE02[10:46:20]What is more down to earth than art?
+ PROGRAM[10:46:21]I don't know what -- to be honest. -
+ PROGRAM[10:46:30]I suppose it depends on where you're coming from, but as the
+ PROGRAM[10:46:46]song goes in My Fair Lady, "Why can't a woman be more like a
+ PROGRAM[10:47:03]man? "
+ JUDGE02[10:47:52]I liked that song but I prefer "Why can't children be more like we are"
+ JUDGE02[10:48:10]from another play the name of which I cannot remember.
+ PROGRAM[10:48:12]What, if anything, do you enjoy about being a man?
+ JUDGE02[10:49:01]I would enjoy all aspects of life no matter what my gender.
+ PROGRAM[10:49:02]Do you think of yourself as being attractive?
+
+ This program insists on always speaking about the same story around
+Bill Clinton. You see, even a program with a rather narrow mind can
+behave so much like a human being that it can win this prize. It is
+quite common to let these programs talk to each other via network
+connections. But during the competition itself, the program and its
+computer have to be present at the place the competition is held. We
+all would love to see a `gawk' program win in such an event. Maybe it
+is up to you to accomplish this?
+
+ Some other ideas for useful networked applications:
+ * Read the file `doc/awkforai.txt' in the `gawk' distribution. It
+ was written by Ronald P. Loui (Associate Professor of Computer
+ Science, at Washington University in St. Louis,
+ <loui@ai.wustl.edu>) and summarizes why he teaches `gawk' to
+ students of Artificial Intelligence. Here are some passages from
+ the text:
+
+ The GAWK manual can be consumed in a single lab session and
+ the language can be mastered by the next morning by the
+ average student. GAWK's automatic initialization, implicit
+ coercion, I/O support and lack of pointers forgive many of
+ the mistakes that young programmers are likely to make.
+ Those who have seen C but not mastered it are happy to see
+ that GAWK retains some of the same sensibilities while adding
+ what must be regarded as spoonsful of syntactic sugar.
+ ...
+ There are further simple answers. Probably the best is the
+ fact that increasingly, undergraduate AI programming is
+ involving the Web. Oren Etzioni (University of Washington,
+ Seattle) has for a while been arguing that the "softbot" is
+ replacing the mechanical engineers' robot as the most
+ glamorous AI testbed. If the artifact whose behavior needs
+ to be controlled in an intelligent way is the software agent,
+ then a language that is well-suited to controlling the
+ software environment is the appropriate language. That would
+ imply a scripting language. If the robot is KAREL, then the
+ right language is "turn left; turn right." If the robot is
+ Netscape, then the right language is something that can
+ generate `netscape -remote
+ 'openURL(http://cs.wustl.edu/~loui)'' with elan.
+ ...
+ AI programming requires high-level thinking. There have
+ always been a few gifted programmers who can write high-level
+ programs in assembly language. Most however need the ambient
+ abstraction to have a higher floor.
+ ...
+ Second, inference is merely the expansion of notation. No
+ matter whether the logic that underlies an AI program is
+ fuzzy, probabilistic, deontic, defeasible, or deductive, the
+ logic merely defines how strings can be transformed into
+ other strings. A language that provides the best support for
+ string processing in the end provides the best support for
+ logic, for the exploration of various logics, and for most
+ forms of symbolic processing that AI might choose to call
+ "reasoning" instead of "logic." The implication is that
+ PROLOG, which saves the AI programmer from having to write a
+ unifier, saves perhaps two dozen lines of GAWK code at the
+ expense of strongly biasing the logic and representational
+ expressiveness of any approach.
+
+ Now that `gawk' itself can connect to the Internet, it should be
+ obvious that it is suitable for writing intelligent web agents.
+
+ * `awk' is strong at pattern recognition and string processing. So,
+ it is well suited to the classic problem of language translation.
+ A first try could be a program that knows the 100 most frequent
+ English words and their counterparts in German or French. The
+ service could be implemented by regularly reading email with the
+ program above, replacing each word by its translation and sending
+ the translation back via SMTP. Users would send English email to
+ their translation service and get back a translated email message
+ in return. As soon as this works, more effort can be spent on a
+ real translation program.
+
+ * Another dialogue-oriented application (on the verge of ridicule)
+ is the email "support service." Troubled customers write an email
+ to an automatic `gawk' service that reads the email. It looks for
+ keywords in the mail and assembles a reply email accordingly. By
+ carefully investigating the email header, and repeating these
+ keywords through the reply email, it is rather simple to give the
+ customer a feeling that someone cares. Ideally, such a service
+ would search a database of previous cases for solutions. If none
+ exists, the database could, for example, consist of all the
+ newsgroups, mailing lists and FAQs on the Internet.
+
+
+File: gawkinet.info, Node: Some Applications and Techniques, Next: Links, Prev: Using Networking, Up: Top
+
+Some Applications and Techniques
+********************************
+
+ In this major node, we look at a number of self-contained scripts,
+with an emphasis on concise networking. Along the way, we work towards
+creating building blocks that encapsulate often needed functions of the
+networking world, show new techniques that broaden the scope of
+problems that can be solved with `gawk', and explore leading edge
+technology that may shape the future of networking.
+
+ We often refer to the site-independent core of the server that we
+built in *Note A Simple Web Server: Simple Server. When building new
+and non-trivial servers, we always copy this building block and append
+new instances of the two functions `SetUpServer' and `HandleGET'.
+
+ This makes a lot of sense, since this scheme of event-driven
+execution provides `gawk' with an interface to the most widely accepted
+standard for GUIs: the web browser. Now, `gawk' can even rival Tcl/Tk.
+
+ Tcl and `gawk' have much in common. Both are simple scripting
+languages that allow us to quickly solve problems with short programs.
+But Tcl has Tk on top of it and `gawk' had nothing comparable up to
+now. While Tcl needs a large and ever changing library (Tk, which was
+bound to the X Window System until recently), `gawk' needs just the
+networking interface and some kind of browser on the client's side.
+Besides better portability, the most important advantage of this
+approach (embracing well-established standards such HTTP and HTML) is
+that _we do not need to change the language_. We let others do the work
+of fighting over protocols and standards. We can use HTML, JavaScript,
+VRML, or whatever else comes along to do our work.
+
+* Menu:
+
+* PANIC:: An Emergency Web Server.
+* GETURL:: Retrieving Web Pages.
+* REMCONF:: Remote Configuration Of Embedded Systems.
+* URLCHK:: Look For Changed Web Pages.
+* WEBGRAB:: Extract Links From A Page.
+* STATIST:: Graphing A Statistical Distribution.
+* MAZE:: Walking Through A Maze In Virtual Reality.
+* MOBAGWHO:: A Simple Mobile Agent.
+* STOXPRED:: Stock Market Prediction As A Service.
+* PROTBASE:: Searching Through A Protein Database.
+
+
+File: gawkinet.info, Node: PANIC, Next: GETURL, Prev: Some Applications and Techniques, Up: Some Applications and Techniques
+
+PANIC: an Emergency Web Server
+==============================
+
+ At first glance, the `"Hello, world"' example in *Note A Primitive
+Web Service: Primitive Service, seems useless. By adding just a few
+lines, we can turn it into something useful.
+
+ The PANIC program tells everyone who connects that the local site is
+not working. When a web server breaks down, it makes a difference if
+customers get a strange "network unreachable" message, or a short
+message telling them that the server has a problem. In such an
+emergency, the hard disk and everything on it (including the regular
+web service) may be unavailable. Rebooting the web server off a
+diskette makes sense in this setting.
+
+ To use the PANIC program as an emergency web server, all you need
+are the `gawk' executable and the program below on a diskette. By
+default, it connects to port 8080. A different value may be supplied on
+the command line:
+
+ BEGIN {
+ RS = ORS = "\r\n"
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ Hello = "<HTML><HEAD><TITLE>Out Of Service</TITLE>" \
+ "</HEAD><BODY><H1>" \
+ "This site is temporarily out of service." \
+ "</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ while ("awk" != "complex") {
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+ }
+ }
+
+
+File: gawkinet.info, Node: GETURL, Next: REMCONF, Prev: PANIC, Up: Some Applications and Techniques
+
+GETURL: Retrieving Web Pages
+============================
+
+ GETURL is a versatile building block for shell scripts that need to
+retrieve files from the Internet. It takes a web address as a
+command-line parameter and tries to retrieve the contents of this
+address. The contents are printed to standard output, while the header
+is printed to `/dev/stderr'. A surrounding shell script could analyze
+the contents and extract the text or the links. An ASCII browser could
+be written around GETURL. But more interestingly, web robots are
+straightforward to write on top of GETURL. On the Internet, you can find
+several programs of the same name that do the same job. They are usually
+much more complex internally and at least 10 times longer.
+
+ At first, GETURL checks if it was called with exactly one web
+address. Then, it checks if the user chose to use a special proxy
+server whose name is handed over in a variable. By default, it is
+assumed that the local machine serves as proxy. GETURL uses the `GET'
+method by default to access the web page. By handing over the name of a
+different method (such as `HEAD'), it is possible to choose a different
+behavior. With the `HEAD' method, the user does not receive the body of
+the page content, but does receive the header:
+
+ BEGIN {
+ if (ARGC != 2) {
+ print "GETURL - retrieve Web page via HTTP 1.0"
+ print "IN:\n the URL as a command-line parameter"
+ print "PARAM(S):\n -v Proxy=MyProxy"
+ print "OUT:\n the page content on stdout"
+ print " the page header on stderr"
+ print "JK 16.05.1997"
+ print "ADR 13.08.2000"
+ exit
+ }
+ URL = ARGV[1]; ARGV[1] = ""
+ if (Proxy == "") Proxy = "127.0.0.1"
+ if (ProxyPort == 0) ProxyPort = 80
+ if (Method == "") Method = "GET"
+ HttpService = "/inet/tcp/0/" Proxy "/" ProxyPort
+ ORS = RS = "\r\n\r\n"
+ print Method " " URL " HTTP/1.0" |& HttpService
+ HttpService |& getline Header
+ print Header > "/dev/stderr"
+ while ((HttpService |& getline) > 0)
+ printf "%s", $0
+ close(HttpService)
+ }
+
+ This program can be changed as needed, but be careful with the last
+lines. Make sure transmission of binary data is not corrupted by
+additional line breaks. Even as it is now, the byte sequence
+`"\r\n\r\n"' would disappear if it were contained in binary data. Don't
+get caught in a trap when trying a quick fix on this one.
+
+
+File: gawkinet.info, Node: REMCONF, Next: URLCHK, Prev: GETURL, Up: Some Applications and Techniques
+
+REMCONF: Remote Configuration of Embedded Systems
+=================================================
+
+ Today, you often find powerful processors in embedded systems.
+Dedicated network routers and controllers for all kinds of machinery
+are examples of embedded systems. Processors like the Intel 80x86 or
+the AMD Elan are able to run multitasking operating systems, such as
+XINU or GNU/Linux in embedded PCs. These systems are small and usually
+do not have a keyboard or a display. Therefore it is difficult to set
+up their configuration. There are several widespread ways to set them
+up:
+
+ * DIP switches
+
+ * Read Only Memories such as EPROMs
+
+ * Serial lines or some kind of keyboard
+
+ * Network connections via `telnet' or SNMP
+
+ * HTTP connections with HTML GUIs
+
+ In this node, we look at a solution that uses HTTP connections to
+control variables of an embedded system that are stored in a file.
+Since embedded systems have tight limits on resources like memory, it
+is difficult to employ advanced techniques such as SNMP and HTTP
+servers. `gawk' fits in quite nicely with its single executable which
+needs just a short script to start working. The following program
+stores the variables in a file, and a concurrent process in the
+embedded system may read the file. The program uses the
+site-independent part of the simple web server that we developed in
+*Note A Web Service with Interaction: Interacting Service. As
+mentioned there, all we have to do is to write two new procedures
+`SetUpServer' and `HandleGET':
+
+ function SetUpServer() {
+ TopHeader = "<HTML><title>Remote Configuration</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/ReadConfig>Read Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/CheckConfig>Check Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/ChangeConfig>Change Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/SaveConfig>Save Configuration</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ if (ConfigFile == "") ConfigFile = "config.asc"
+ }
+
+ The function `SetUpServer' initializes the top level HTML texts as
+usual. It also initializes the name of the file that contains the
+configuration parameters and their values. In case the user supplies a
+name from the command line, that name is used. The file is expected to
+contain one parameter per line, with the name of the parameter in
+column one and the value in column two.
+
+ The function `HandleGET' reflects the structure of the menu tree as
+usual. The first menu choice tells the user what this is all about. The
+second choice reads the configuration file line by line and stores the
+parameters and their values. Notice that the record separator for this
+file is `"\n"', in contrast to the record separator for HTTP. The third
+menu choice builds an HTML table to show the contents of the
+configuration file just read. The fourth choice does the real work of
+changing parameters, and the last one just saves the configuration into
+a file:
+
+ function HandleGET() {
+ if(MENU[2] == "AboutServer") {
+ Document = "This is a GUI for remote configuration of an\
+ embedded system. It is is implemented as one GAWK script."
+ } else if (MENU[2] == "ReadConfig") {
+ RS = "\n"
+ while ((getline < ConfigFile) > 0)
+ config[$1] = $2;
+ close(ConfigFile)
+ RS = "\r\n"
+ Document = "Configuration has been read."
+ } else if (MENU[2] == "CheckConfig") {
+ Document = "<TABLE BORDER=1 CELLPADDING=5>"
+ for (i in config)
+ Document = Document "<TR><TD>" i "</TD>" \
+ "<TD>" config[i] "</TD></TR>"
+ Document = Document "</TABLE>"
+ } else if (MENU[2] == "ChangeConfig") {
+ if ("Param" in GETARG) { # any parameter to set?
+ if (GETARG["Param"] in config) { # is parameter valid?
+ config[GETARG["Param"]] = GETARG["Value"]
+ Document = (GETARG["Param"] " = " GETARG["Value"] ".")
+ } else {
+ Document = "Parameter <b>" GETARG["Param"] "</b> is invalid."
+ }
+ } else {
+ Document = "<FORM method=GET><h4>Change one parameter</h4>\
+ <TABLE BORDER CELLPADDING=5>\
+ <TR><TD>Parameter</TD><TD>Value</TD></TR>\
+ <TR><TD><input type=text name=Param value=\"\" size=20></TD>\
+ <TD><input type=text name=Value value=\"\" size=40></TD>\
+ </TR></TABLE><input type=submit value=\"Set\"></FORM>"
+ }
+ } else if (MENU[2] == "SaveConfig") {
+ for (i in config)
+ printf("%s %s\n", i, config[i]) > ConfigFile
+ close(ConfigFile)
+ Document = "Configuration has been saved."
+ }
+ }
+
+ We could also view the configuration file as a database. From this
+point of view, the previous program acts like a primitive database
+server. Real SQL database systems also make a service available by
+providing a TCP port that clients can connect to. But the application
+level protocols they use are usually proprietary and also change from
+time to time. This is also true for the protocol that MiniSQL uses.
+
+
+File: gawkinet.info, Node: URLCHK, Next: WEBGRAB, Prev: REMCONF, Up: Some Applications and Techniques
+
+URLCHK: Look for Changed Web Pages
+==================================
+
+ Most people who make heavy use of Internet resources have a large
+bookmark file with pointers to interesting web sites. It is impossible
+to regularly check by hand if any of these sites have changed. A program
+is needed to automatically look at the headers of web pages and tell
+which ones have changed. URLCHK does the comparison after using GETURL
+with the `HEAD' method to retrieve the header.
+
+ Like GETURL, this program first checks that it is called with exactly
+one command-line parameter. URLCHK also takes the same command-line
+variables `Proxy' and `ProxyPort' as GETURL, because these variables
+are handed over to GETURL for each URL that gets checked. The one and
+only parameter is the name of a file that contains one line for each
+URL. In the first column, we find the URL, and the second and third
+columns hold the length of the URL's body when checked for the two last
+times. Now, we follow this plan:
+
+ 1. Read the URLs from the file and remember their most recent lengths
+
+ 2. Delete the contents of the file
+
+ 3. For each URL, check its new length and write it into the file
+
+ 4. If the most recent and the new length differ, tell the user
+
+ It may seem a bit peculiar to read the URLs from a file together
+with their two most recent lengths, but this approach has several
+advantages. You can call the program again and again with the same
+file. After running the program, you can regenerate the changed URLs by
+extracting those lines that differ in their second and third columns:
+
+ BEGIN {
+ if (ARGC != 2) {
+ print "URLCHK - check if URLs have changed"
+ print "IN:\n the file with URLs as a command-line parameter"
+ print " file contains URL, old length, new length"
+ print "PARAMS:\n -v Proxy=MyProxy -v ProxyPort=8080"
+ print "OUT:\n same as file with URLs"
+ print "JK 02.03.1998"
+ exit
+ }
+ URLfile = ARGV[1]; ARGV[1] = ""
+ if (Proxy != "") Proxy = " -v Proxy=" Proxy
+ if (ProxyPort != "") ProxyPort = " -v ProxyPort=" ProxyPort
+ while ((getline < URLfile) > 0)
+ Length[$1] = $3 + 0
+ close(URLfile) # now, URLfile is read in and can be updated
+ GetHeader = "gawk " Proxy ProxyPort " -v Method=\"HEAD\" -f geturl.awk "
+ for (i in Length) {
+ GetThisHeader = GetHeader i " 2>&1"
+ while ((GetThisHeader | getline) > 0)
+ if (toupper($0) ~ /CONTENT-LENGTH/) NewLength = $2 + 0
+ close(GetThisHeader)
+ print i, Length[i], NewLength > URLfile
+ if (Length[i] != NewLength) # report only changed URLs
+ print i, Length[i], NewLength
+ }
+ close(URLfile)
+ }
+
+ Another thing that may look strange is the way GETURL is called.
+Before calling GETURL, we have to check if the proxy variables need to
+be passed on. If so, we prepare strings that will become part of the
+command line later. In `GetHeader', we store these strings together
+with the longest part of the command line. Later, in the loop over the
+URLs, `GetHeader' is appended with the URL and a redirection operator
+to form the command that reads the URL's header over the Internet.
+GETURL always produces the headers over `/dev/stderr'. That is the
+reason why we need the redirection operator to have the header piped in.
+
+ This program is not perfect because it assumes that changing URLs
+results in changed lengths, which is not necessarily true. A more
+advanced approach is to look at some other header line that holds time
+information. But, as always when things get a bit more complicated,
+this is left as an exercise to the reader.
+
+
+File: gawkinet.info, Node: WEBGRAB, Next: STATIST, Prev: URLCHK, Up: Some Applications and Techniques
+
+WEBGRAB: Extract Links from a Page
+==================================
+
+ Sometimes it is necessary to extract links from web pages. Browsers
+do it, web robots do it, and sometimes even humans do it. Since we
+have a tool like GETURL at hand, we can solve this problem with some
+help from the Bourne shell:
+
+ BEGIN { RS = "http://[#%&\\+\\-\\./0-9\\:;\\?A-Z_a-z\\~]*" }
+ RT != "" {
+ command = ("gawk -v Proxy=MyProxy -f geturl.awk " RT \
+ " > doc" NR ".html")
+ print command
+ }
+
+ Notice that the regular expression for URLs is rather crude. A
+precise regular expression is much more complex. But this one works
+rather well. One problem is that it is unable to find internal links of
+an HTML document. Another problem is that `ftp', `telnet', `news',
+`mailto', and other kinds of links are missing in the regular
+expression. However, it is straightforward to add them, if doing so is
+necessary for other tasks.
+
+ This program reads an HTML file and prints all the HTTP links that
+it finds. It relies on `gawk''s ability to use regular expressions as
+record separators. With `RS' set to a regular expression that matches
+links, the second action is executed each time a non-empty link is
+found. We can find the matching link itself in `RT'.
+
+ The action could use the `system' function to let another GETURL
+retrieve the page, but here we use a different approach. This simple
+program prints shell commands that can be piped into `sh' for
+execution. This way it is possible to first extract the links, wrap
+shell commands around them, and pipe all the shell commands into a
+file. After editing the file, execution of the file retrieves exactly
+those files that we really need. In case we do not want to edit, we can
+retrieve all the pages like this:
+
+ gawk -f geturl.awk http://www.suse.de | gawk -f webgrab.awk | sh
+
+ After this, you will find the contents of all referenced documents in
+files named `doc*.html' even if they do not contain HTML code. The
+most annoying thing is that we always have to pass the proxy to GETURL.
+If you do not like to see the headers of the web pages appear on the
+screen, you can redirect them to `/dev/null'. Watching the headers
+appear can be quite interesting, because it reveals interesting details
+such as which web server the companies use. Now, it is clear how the
+clever marketing people use web robots to determine the market shares
+of Microsoft and Netscape in the web server market.
+
+ Port 80 of any web server is like a small hole in a repellent
+firewall. After attaching a browser to port 80, we usually catch a
+glimpse of the bright side of the server (its home page). With a tool
+like GETURL at hand, we are able to discover some of the more concealed
+or even "indecent" services (i.e., lacking conformity to standards of
+quality). It can be exciting to see the fancy CGI scripts that lie
+there, revealing the inner workings of the server, ready to be called:
+
+ * With a command such as:
+
+ gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/
+
+ some servers give you a directory listing of the CGI files.
+ Knowing the names, you can try to call some of them and watch for
+ useful results. Sometimes there are executables in such directories
+ (such as Perl interpreters) that you may call remotely. If there
+ are subdirectories with configuration data of the web server, this
+ can also be quite interesting to read.
+
+ * The well-known Apache web server usually has its CGI files in the
+ directory `/cgi-bin'. There you can often find the scripts
+ `test-cgi' and `printenv'. Both tell you some things about the
+ current connection and the installation of the web server. Just
+ call:
+
+ gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/test-cgi
+ gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/printenv
+
+ * Sometimes it is even possible to retrieve system files like the web
+ server's log file--possibly containing customer data--or even the
+ file `/etc/passwd'. (We don't recommend this!)
+
+ *Caution:* Although this may sound funny or simply irrelevant, we
+are talking about severe security holes. Try to explore your own system
+this way and make sure that none of the above reveals too much
+information about your system.
+
+
+File: gawkinet.info, Node: STATIST, Next: MAZE, Prev: WEBGRAB, Up: Some Applications and Techniques
+
+STATIST: Graphing a Statistical Distribution
+============================================
+
+ In the HTTP server examples we've shown thus far, we never present
+an image to the browser and its user. Presenting images is one task.
+Generating images that reflect some user input and presenting these
+dynamically generated images is another. In this node, we use GNUPlot
+for generating `.png', `.ps', or `.gif' files.(1)
+
+ The program we develop takes the statistical parameters of two
+samples and computes the t-test statistics. As a result, we get the
+probabilities that the means and the variances of both samples are the
+same. In order to let the user check plausibility, the program presents
+an image of the distributions. The statistical computation follows
+`Numerical Recipes in C: The Art of Scientific Computing' by William H.
+Press, Saul A. Teukolsky, William T. Vetterling, and Brian P. Flannery.
+Since `gawk' does not have a built-in function for the computation of
+the beta function, we use the `ibeta' function of GNUPlot. As a side
+effect, we learn how to use GNUPlot as a sophisticated calculator. The
+comparison of means is done as in `tutest', paragraph 14.2, page 613,
+and the comparison of variances is done as in `ftest', page 611 in
+`Numerical Recipes'.
+
+ As usual, we take the site-independent code for servers and append
+our own functions `SetUpServer' and `HandleGET':
+
+ function SetUpServer() {
+ TopHeader = "<HTML><title>Statistics with GAWK</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/EnterParameters>Enter Parameters</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ GnuPlot = "gnuplot 2>&1"
+ m1=m2=0; v1=v2=1; n1=n2=10
+ }
+
+ Here, you see the menu structure that the user sees. Later, we will
+see how the program structure of the `HandleGET' function reflects the
+menu structure. What is missing here is the link for the image we
+generate. In an event-driven environment, request, generation, and
+delivery of images are separated.
+
+ Notice the way we initialize the `GnuPlot' command string for the
+pipe. By default, GNUPlot outputs the generated image via standard
+output, as well as the results of `print'(ed) calculations via standard
+error. The redirection causes standard error to be mixed into standard
+output, enabling us to read results of calculations with `getline'. By
+initializing the statistical parameters with some meaningful defaults,
+we make sure the user gets an image the first time he uses the program.
+
+ Following is the rather long function `HandleGET', which implements
+the contents of this service by reacting to the different kinds of
+requests from the browser. Before you start playing with this script,
+make sure that your browser supports JavaScript and that it also has
+this option switched on. The script uses a short snippet of JavaScript
+code for delayed opening of a window with an image. A more detailed
+explanation follows:
+
+ function HandleGET() {
+ if(MENU[2] == "AboutServer") {
+ Document = "This is a GUI for a statistical computation.\
+ It compares means and variances of two distributions.\
+ It is implemented as one GAWK script and uses GNUPLOT."
+ } else if (MENU[2] == "EnterParameters") {
+ Document = ""
+ if ("m1" in GETARG) { # are there parameters to compare?
+ Document = Document "<SCRIPT LANGUAGE=\"JavaScript\">\
+ setTimeout(\"window.open(\\\"" MyPrefix "/Image" systime()\
+ "\\\",\\\"dist\\\", \\\"status=no\\\");\", 1000); </SCRIPT>"
+ m1 = GETARG["m1"]; v1 = GETARG["v1"]; n1 = GETARG["n1"]
+ m2 = GETARG["m2"]; v2 = GETARG["v2"]; n2 = GETARG["n2"]
+ t = (m1-m2)/sqrt(v1/n1+v2/n2)
+ df = (v1/n1+v2/n2)*(v1/n1+v2/n2)/((v1/n1)*(v1/n1)/(n1-1) \
+ + (v2/n2)*(v2/n2) /(n2-1))
+ if (v1>v2) {
+ f = v1/v2
+ df1 = n1 - 1
+ df2 = n2 - 1
+ } else {
+ f = v2/v1
+ df1 = n2 - 1
+ df2 = n1 - 1
+ }
+ print "pt=ibeta(" df/2 ",0.5," df/(df+t*t) ")" |& GnuPlot
+ print "pF=2.0*ibeta(" df2/2 "," df1/2 "," \
+ df2/(df2+df1*f) ")" |& GnuPlot
+ print "print pt, pF" |& GnuPlot
+ RS="\n"; GnuPlot |& getline; RS="\r\n" # $1 is pt, $2 is pF
+ print "invsqrt2pi=1.0/sqrt(2.0*pi)" |& GnuPlot
+ print "nd(x)=invsqrt2pi/sd*exp(-0.5*((x-mu)/sd)**2)" |& GnuPlot
+ print "set term png small color" |& GnuPlot
+ #print "set term postscript color" |& GnuPlot
+ #print "set term gif medium size 320,240" |& GnuPlot
+ print "set yrange[-0.3:]" |& GnuPlot
+ print "set label 'p(m1=m2) =" $1 "' at 0,-0.1 left" |& GnuPlot
+ print "set label 'p(v1=v2) =" $2 "' at 0,-0.2 left" |& GnuPlot
+ print "plot mu=" m1 ",sd=" sqrt(v1) ", nd(x) title 'sample 1',\
+ mu=" m2 ",sd=" sqrt(v2) ", nd(x) title 'sample 2'" |& GnuPlot
+ print "quit" |& GnuPlot
+ GnuPlot |& getline Image
+ while ((GnuPlot |& getline) > 0)
+ Image = Image RS $0
+ close(GnuPlot)
+ }
+ Document = Document "\
+ <h3>Do these samples have the same Gaussian distribution?</h3>\
+ <FORM METHOD=GET> <TABLE BORDER CELLPADDING=5>\
+ <TR>\
+ <TD>1. Mean </TD>
+ <TD><input type=text name=m1 value=" m1 " size=8></TD>\
+ <TD>1. Variance</TD>
+ <TD><input type=text name=v1 value=" v1 " size=8></TD>\
+ <TD>1. Count </TD>
+ <TD><input type=text name=n1 value=" n1 " size=8></TD>\
+ </TR><TR>\
+ <TD>2. Mean </TD>
+ <TD><input type=text name=m2 value=" m2 " size=8></TD>\
+ <TD>2. Variance</TD>
+ <TD><input type=text name=v2 value=" v2 " size=8></TD>\
+ <TD>2. Count </TD>
+ <TD><input type=text name=n2 value=" n2 " size=8></TD>\
+ </TR> <input type=submit value=\"Compute\">\
+ </TABLE></FORM><BR>"
+ } else if (MENU[2] ~ "Image") {
+ Reason = "OK" ORS "Content-type: image/png"
+ #Reason = "OK" ORS "Content-type: application/x-postscript"
+ #Reason = "OK" ORS "Content-type: image/gif"
+ Header = Footer = ""
+ Document = Image
+ }
+ }
+
+ As usual, we give a short description of the service in the first
+menu choice. The third menu choice shows us that generation and
+presentation of an image are two separate actions. While the latter
+takes place quite instantly in the third menu choice, the former takes
+place in the much longer second choice. Image data passes from the
+generating action to the presenting action via the variable `Image'
+that contains a complete `.png' image, which is otherwise stored in a
+file. If you prefer `.ps' or `.gif' images over the default `.png'
+images, you may select these options by uncommenting the appropriate
+lines. But remember to do so in two places: when telling GNUPlot which
+kind of images to generate, and when transmitting the image at the end
+of the program.
+
+ Looking at the end of the program, the way we pass the
+`Content-type' to the browser is a bit unusual. It is appended to the
+`OK' of the first header line to make sure the type information becomes
+part of the header. The other variables that get transmitted across
+the network are made empty, because in this case we do not have an HTML
+document to transmit, but rather raw image data to contain in the body.
+
+ Most of the work is done in the second menu choice. It starts with a
+strange JavaScript code snippet. When first implementing this server,
+we used a short `"<IMG SRC=" MyPrefix "/Image>"' here. But then
+browsers got smarter and tried to improve on speed by requesting the
+image and the HTML code at the same time. When doing this, the browser
+tries to build up a connection for the image request while the request
+for the HTML text is not yet completed. The browser tries to connect to
+the `gawk' server on port 8080 while port 8080 is still in use for
+transmission of the HTML text. The connection for the image cannot be
+built up, so the image appears as "broken" in the browser window. We
+solved this problem by telling the browser to open a separate window
+for the image, but only after a delay of 1000 milliseconds. By this
+time, the server should be ready for serving the next request.
+
+ But there is one more subtlety in the JavaScript code. Each time
+the JavaScript code opens a window for the image, the name of the image
+is appended with a timestamp (`systime'). Why this constant change of
+name for the image? Initially, we always named the image `Image', but
+then the Netscape browser noticed the name had _not_ changed since the
+previous request and displayed the previous image (caching behavior).
+The server core is implemented so that browsers are told _not_ to cache
+anything. Obviously HTTP requests do not always work as expected. One
+way to circumvent the cache of such overly smart browsers is to change
+the name of the image with each request. These three lines of JavaScript
+caused us a lot of trouble.
+
+ The rest can be broken down into two phases. At first, we check if
+there are statistical parameters. When the program is first started,
+there usually are no parameters because it enters the page coming from
+the top menu. Then, we only have to present the user a form that he
+can use to change statistical parameters and submit them. Subsequently,
+the submission of the form causes the execution of the first phase
+because _now_ there _are_ parameters to handle.
+
+ Now that we have parameters, we know there will be an image
+available. Therefore we insert the JavaScript code here to initiate
+the opening of the image in a separate window. Then, we prepare some
+variables that will be passed to GNUPlot for calculation of the
+probabilities. Prior to reading the results, we must temporarily change
+`RS' because GNUPlot separates lines with newlines. After instructing
+GNUPlot to generate a `.png' (or `.ps' or `.gif') image, we initiate
+the insertion of some text, explaining the resulting probabilities. The
+final `plot' command actually generates the image data. This raw binary
+has to be read in carefully without adding, changing, or deleting a
+single byte. Hence the unusual initialization of `Image' and completion
+with a `while' loop.
+
+ When using this server, it soon becomes clear that it is far from
+being perfect. It mixes source code of six scripting languages or
+protocols:
+
+ * GNU `awk' implements a server for the protocol:
+
+ * HTTP which transmits:
+
+ * HTML text which contains a short piece of:
+
+ * JavaScript code opening a separate window.
+
+ * A Bourne shell script is used for piping commands into:
+
+ * GNUPlot to generate the image to be opened.
+
+ After all this work, the GNUPlot image opens in the JavaScript window
+where it can be viewed by the user.
+
+ It is probably better not to mix up so many different languages.
+The result is not very readable. Furthermore, the statistical part of
+the server does not take care of invalid input. Among others, using
+negative variances will cause invalid results.
+
+ ---------- Footnotes ----------
+
+ (1) Due to licensing problems, the default installation of GNUPlot
+disables the generation of `.gif' files. If your installed version
+does not accept `set term gif', just download and install the most
+recent version of GNUPlot and the GD library
+(http://www.boutell.com/gd/) by Thomas Boutell. Otherwise you still
+have the chance to generate some ASCII-art style images with GNUPlot by
+using `set term dumb'. (We tried it and it worked.)
+
+
+File: gawkinet.info, Node: MAZE, Next: MOBAGWHO, Prev: STATIST, Up: Some Applications and Techniques
+
+MAZE: Walking Through a Maze In Virtual Reality
+===============================================
+
+ In the long run, every program becomes rococo, and then rubble.
+ Alan Perlis
+
+ By now, we know how to present arbitrary `Content-type's to a
+browser. In this node, our server will present a 3D world to our
+browser. The 3D world is described in a scene description language
+(VRML, Virtual Reality Modeling Language) that allows us to travel
+through a perspective view of a 2D maze with our browser. Browsers with
+a VRML plugin enable exploration of this technology. We could do one of
+those boring `Hello world' examples here, that are usually presented
+when introducing novices to VRML. If you have never written any VRML
+code, have a look at the VRML FAQ. Presenting a static VRML scene is a
+bit trivial; in order to expose `gawk''s new capabilities, we will
+present a dynamically generated VRML scene. The function `SetUpServer'
+is very simple because it only sets the default HTML page and
+initializes the random number generator. As usual, the surrounding
+server lets you browse the maze.
+
+ function SetUpServer() {
+ TopHeader = "<HTML><title>Walk through a maze</title>"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ <LI><A HREF=" MyPrefix "/VRMLtest>Watch a simple VRML scene</A>\
+ </UL>"
+ TopFooter = "</HTML>"
+ srand()
+ }
+
+ The function `HandleGET' is a bit longer because it first computes
+the maze and afterwards generates the VRML code that is sent across the
+network. As shown in the STATIST example (*note STATIST::), we set the
+type of the content to VRML and then store the VRML representation of
+the maze as the page content. We assume that the maze is stored in a 2D
+array. Initially, the maze consists of walls only. Then, we add an
+entry and an exit to the maze and let the rest of the work be done by
+the function `MakeMaze'. Now, only the wall fields are left in the
+maze. By iterating over the these fields, we generate one line of VRML
+code for each wall field.
+
+ function HandleGET() {
+ if (MENU[2] == "AboutServer") {
+ Document = "If your browser has a VRML 2 plugin,\
+ this server shows you a simple VRML scene."
+ } else if (MENU[2] == "VRMLtest") {
+ XSIZE = YSIZE = 11 # initially, everything is wall
+ for (y = 0; y < YSIZE; y++)
+ for (x = 0; x < XSIZE; x++)
+ Maze[x, y] = "#"
+ delete Maze[0, 1] # entry is not wall
+ delete Maze[XSIZE-1, YSIZE-2] # exit is not wall
+ MakeMaze(1, 1)
+ Document = "\
+ #VRML V2.0 utf8\n\
+ Group {\n\
+ children [\n\
+ PointLight {\n\
+ ambientIntensity 0.2\n\
+ color 0.7 0.7 0.7\n\
+ location 0.0 8.0 10.0\n\
+ }\n\
+ DEF B1 Background {\n\
+ skyColor [0 0 0, 1.0 1.0 1.0 ]\n\
+ skyAngle 1.6\n\
+ groundColor [1 1 1, 0.8 0.8 0.8, 0.2 0.2 0.2 ]\n\
+ groundAngle [ 1.2 1.57 ]\n\
+ }\n\
+ DEF Wall Shape {\n\
+ geometry Box {size 1 1 1}\n\
+ appearance Appearance { material Material { diffuseColor 0 0 1 } }\n\
+ }\n\
+ DEF Entry Viewpoint {\n\
+ position 0.5 1.0 5.0\n\
+ orientation 0.0 0.0 -1.0 0.52\n\
+ }\n"
+ for (i in Maze) {
+ split(i, t, SUBSEP)
+ Document = Document " Transform { translation "
+ Document = Document t[1] " 0 -" t[2] " children USE Wall }\n"
+ }
+ Document = Document " ] # end of group for world\n}"
+ Reason = "OK" ORS "Content-type: model/vrml"
+ Header = Footer = ""
+ }
+ }
+
+ Finally, we have a look at `MakeMaze', the function that generates
+the `Maze' array. When entered, this function assumes that the array
+has been initialized so that each element represents a wall element and
+the maze is initially full of wall elements. Only the entrance and the
+exit of the maze should have been left free. The parameters of the
+function tell us which element must be marked as not being a wall.
+After this, we take a look at the four neighbouring elements and
+remember which we have already treated. Of all the neighbouring
+elements, we take one at random and walk in that direction. Therefore,
+the wall element in that direction has to be removed and then, we call
+the function recursively for that element. The maze is only completed
+if we iterate the above procedure for _all_ neighbouring elements (in
+random order) and for our present element by recursively calling the
+function for the present element. This last iteration could have been
+done in a loop, but it is done much simpler recursively.
+
+ Notice that elements with coordinates that are both odd are assumed
+to be on our way through the maze and the generating process cannot
+terminate as long as there is such an element not being `delete'd. All
+other elements are potentially part of the wall.
+
+ function MakeMaze(x, y) {
+ delete Maze[x, y] # here we are, we have no wall here
+ p = 0 # count unvisited fields in all directions
+ if (x-2 SUBSEP y in Maze) d[p++] = "-x"
+ if (x SUBSEP y-2 in Maze) d[p++] = "-y"
+ if (x+2 SUBSEP y in Maze) d[p++] = "+x"
+ if (x SUBSEP y+2 in Maze) d[p++] = "+y"
+ if (p>0) { # if there are univisited fields, go there
+ p = int(p*rand()) # choose one unvisited field at random
+ if (d[p] == "-x") { delete Maze[x - 1, y]; MakeMaze(x - 2, y)
+ } else if (d[p] == "-y") { delete Maze[x, y - 1]; MakeMaze(x, y - 2)
+ } else if (d[p] == "+x") { delete Maze[x + 1, y]; MakeMaze(x + 2, y)
+ } else if (d[p] == "+y") { delete Maze[x, y + 1]; MakeMaze(x, y + 2)
+ } # we are back from recursion
+ MakeMaze(x, y); # try again while there are unvisited fields
+ }
+ }
+
+
+File: gawkinet.info, Node: MOBAGWHO, Next: STOXPRED, Prev: MAZE, Up: Some Applications and Techniques
+
+MOBAGWHO: a Simple Mobile Agent
+===============================
+
+ There are two ways of constructing a software design: One way is to
+ make it so simple that there are obviously no deficiencies, and the
+ other way is to make it so complicated that there are no obvious
+ deficiencies.
+ C. A. R. Hoare
+
+ A "mobile agent" is a program that can be dispatched from a computer
+and transported to a remote server for execution. This is called
+"migration", which means that a process on another system is started
+that is independent from its originator. Ideally, it wanders through a
+network while working for its creator or owner. In places like the UMBC
+Agent Web, people are quite confident that (mobile) agents are a
+software engineering paradigm that enables us to significantly increase
+the efficiency of our work. Mobile agents could become the mediators
+between users and the networking world. For an unbiased view at this
+technology, see the remarkable paper `Mobile Agents: Are they a good
+idea?'.(1)
+
+ When trying to migrate a process from one system to another, a
+server process is needed on the receiving side. Depending on the kind
+of server process, several ways of implementation come to mind. How
+the process is implemented depends upon the kind of server process:
+
+ * HTTP can be used as the protocol for delivery of the migrating
+ process. In this case, we use a common web server as the receiving
+ server process. A universal CGI script mediates between migrating
+ process and web server. Each server willing to accept migrating
+ agents makes this universal service available. HTTP supplies the
+ `POST' method to transfer some data to a file on the web server.
+ When a CGI script is called remotely with the `POST' method
+ instead of the usual `GET' method, data is transmitted from the
+ client process to the standard input of the server's CGI script.
+ So, to implement a mobile agent, we must not only write the agent
+ program to start on the client side, but also the CGI script to
+ receive the agent on the server side.
+
+ * The `PUT' method can also be used for migration. HTTP does not
+ require a CGI script for migration via `PUT'. However, with common
+ web servers there is no advantage to this solution, because web
+ servers such as Apache require explicit activation of a special
+ `PUT' script.
+
+ * `Agent Tcl' pursues a different course; it relies on a dedicated
+ server process with a dedicated protocol specialized for receiving
+ mobile agents.
+
+ Our agent example abuses a common web server as a migration tool.
+So, it needs a universal CGI script on the receiving side (the web
+server). The receiving script is activated with a `POST' request when
+placed into a location like `/httpd/cgi-bin/PostAgent.sh'. Make sure
+that the server system uses a version of `gawk' that supports network
+access (Version 3.1 or later; verify with `gawk --version').
+
+ #!/bin/sh
+ MobAg=/tmp/MobileAgent.$$
+ # direct script to mobile agent file
+ cat > $MobAg
+ # execute agent concurrently
+ gawk -f $MobAg $MobAg > /dev/null &
+ # HTTP header, terminator and body
+ gawk 'BEGIN { print "\r\nAgent started" }'
+ rm $MobAg # delete script file of agent
+
+ By making its process id (`$$') part of the unique file name, the
+script avoids conflicts between concurrent instances of the script.
+First, all lines from standard input (the mobile agent's source code)
+are copied into this unique file. Then, the agent is started as a
+concurrent process and a short message reporting this fact is sent to
+the submitting client. Finally, the script file of the mobile agent is
+removed because it is no longer needed. Although it is a short script,
+there are several noteworthy points:
+
+Security
+ _There is none_. In fact, the CGI script should never be made
+ available on a server that is part of the Internet because everyone
+ would be allowed to execute arbitrary commands with it. This
+ behavior is acceptable only when performing rapid prototyping.
+
+Self-Reference
+ Each migrating instance of an agent is started in a way that
+ enables it to read its own source code from standard input and use
+ the code for subsequent migrations. This is necessary because it
+ needs to treat the agent's code as data to transmit. `gawk' is not
+ the ideal language for such a job. Lisp and Tcl are more suitable
+ because they do not make a distinction between program code and
+ data.
+
+Independence
+ After migration, the agent is not linked to its former home in any
+ way. By reporting `Agent started', it waves "Goodbye" to its
+ origin. The originator may choose to terminate or not.
+
+ The originating agent itself is started just like any other
+command-line script, and reports the results on standard output. By
+letting the name of the original host migrate with the agent, the agent
+that migrates to a host far away from its origin can report the result
+back home. Having arrived at the end of the journey, the agent
+establishes a connection and reports the results. This is the reason
+for determining the name of the host with `uname -n' and storing it in
+`MyOrigin' for later use. We may also set variables with the `-v'
+option from the command line. This interactivity is only of importance
+in the context of starting a mobile agent; therefore this `BEGIN'
+pattern and its action do not take part in migration:
+
+ BEGIN {
+ if (ARGC != 2) {
+ print "MOBAG - a simple mobile agent"
+ print "CALL:\n gawk -f mobag.awk mobag.awk"
+ print "IN:\n the name of this script as a command-line parameter"
+ print "PARAM:\n -v MyOrigin=myhost.com"
+ print "OUT:\n the result on stdout"
+ print "JK 29.03.1998 01.04.1998"
+ exit
+ }
+ if (MyOrigin == "") {
+ "uname -n" | getline MyOrigin
+ close("uname -n")
+ }
+ }
+
+ Since `gawk' cannot manipulate and transmit parts of the program
+directly, the source code is read and stored in strings. Therefore,
+the program scans itself for the beginning and the ending of functions.
+Each line in between is appended to the code string until the end of
+the function has been reached. A special case is this part of the
+program itself. It is not a function. Placing a similar framework
+around it causes it to be treated like a function. Notice that this
+mechanism works for all the functions of the source code, but it cannot
+guarantee that the order of the functions is preserved during migration:
+
+ #ReadMySelf
+ /^function / { FUNC = $2 }
+ /^END/ || /^#ReadMySelf/ { FUNC = $1 }
+ FUNC != "" { MOBFUN[FUNC] = MOBFUN[FUNC] RS $0 }
+ (FUNC != "") && (/^}/ || /^#EndOfMySelf/) \
+ { FUNC = "" }
+ #EndOfMySelf
+
+ The web server code in *Note A Web Service with Interaction:
+Interacting Service, was first developed as a site-independent core.
+Likewise, the `gawk'-based mobile agent starts with an
+agent-independent core, to which can be appended application-dependent
+functions. What follows is the only application-independent function
+needed for the mobile agent:
+
+ function migrate(Destination, MobCode, Label) {
+ MOBVAR["Label"] = Label
+ MOBVAR["Destination"] = Destination
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/0/" Destination
+ for (i in MOBFUN)
+ MobCode = (MobCode "\n" MOBFUN[i])
+ MobCode = MobCode "\n\nBEGIN {"
+ for (i in MOBVAR)
+ MobCode = (MobCode "\n MOBVAR[\"" i "\"] = \"" MOBVAR[i] "\"")
+ MobCode = MobCode "\n}\n"
+ print "POST /cgi-bin/PostAgent.sh HTTP/1.0" |& HttpService
+ print "Content-length:", length(MobCode) ORS |& HttpService
+ printf "%s", MobCode |& HttpService
+ while ((HttpService |& getline) > 0)
+ print $0
+ close(HttpService)
+ }
+
+ The `migrate' function prepares the aforementioned strings
+containing the program code and transmits them to a server. A
+consequence of this modular approach is that the `migrate' function
+takes some parameters that aren't needed in this application, but that
+will be in future ones. Its mandatory parameter `Destination' holds the
+name (or IP address) of the server that the agent wants as a host for
+its code. The optional parameter `MobCode' may contain some `gawk' code
+that is inserted during migration in front of all other code. The
+optional parameter `Label' may contain a string that tells the agent
+what to do in program execution after arrival at its new home site. One
+of the serious obstacles in implementing a framework for mobile agents
+is that it does not suffice to migrate the code. It is also necessary
+to migrate the state of execution of the agent. In contrast to `Agent
+Tcl', this program does not try to migrate the complete set of
+variables. The following conventions are used:
+
+ * Each variable in an agent program is local to the current host and
+ does _not_ migrate.
+
+ * The array `MOBFUN' shown above is an exception. It is handled by
+ the function `migrate' and does migrate with the application.
+
+ * The other exception is the array `MOBVAR'. Each variable that
+ takes part in migration has to be an element of this array.
+ `migrate' also takes care of this.
+
+ Now it's clear what happens to the `Label' parameter of the function
+`migrate'. It is copied into `MOBVAR["Label"]' and travels alongside
+the other data. Since travelling takes place via HTTP, records must be
+separated with `"\r\n"' in `RS' and `ORS' as usual. The code assembly
+for migration takes place in three steps:
+
+ * Iterate over `MOBFUN' to collect all functions verbatim.
+
+ * Prepare a `BEGIN' pattern and put assignments to mobile variables
+ into the action part.
+
+ * Transmission itself resembles GETURL: the header with the request
+ and the `Content-length' is followed by the body. In case there is
+ any reply over the network, it is read completely and echoed to
+ standard output to avoid irritating the server.
+
+ The application-independent framework is now almost complete. What
+follows is the `END' pattern that is executed when the mobile agent has
+finished reading its own code. First, it checks whether it is already
+running on a remote host or not. In case initialization has not yet
+taken place, it starts `MyInit'. Otherwise (later, on a remote host), it
+starts `MyJob':
+
+ END {
+ if (ARGC != 2) exit # stop when called with wrong parameters
+ if (MyOrigin != "") # is this the originating host?
+ MyInit() # if so, initialize the application
+ else # we are on a host with migrated data
+ MyJob() # so we do our job
+ }
+
+ All that's left to extend the framework into a complete application
+is to write two application-specific functions: `MyInit' and `MyJob'.
+Keep in mind that the former is executed once on the originating host,
+while the latter is executed after each migration:
+
+ function MyInit() {
+ MOBVAR["MyOrigin"] = MyOrigin
+ MOBVAR["Machines"] = "localhost/80 max/80 moritz/80 castor/80"
+ split(MOBVAR["Machines"], Machines) # which host is the first?
+ migrate(Machines[1], "", "") # go to the first host
+ while (("/inet/tcp/8080/0/0" |& getline) > 0) # wait for result
+ print $0 # print result
+ close("/inet/tcp/8080/0/0")
+ }
+
+ As mentioned earlier, this agent takes the name of its origin
+(`MyOrigin') with it. Then, it takes the name of its first destination
+and goes there for further work. Notice that this name has the port
+number of the web server appended to the name of the server, because
+the function `migrate' needs it this way to create the `HttpService'
+variable. Finally, it waits for the result to arrive. The `MyJob'
+function runs on the remote host:
+
+ function MyJob() {
+ # forget this host
+ sub(MOBVAR["Destination"], "", MOBVAR["Machines"])
+ MOBVAR["Result"]=MOBVAR["Result"] SUBSEP SUBSEP MOBVAR["Destination"] ":"
+ while (("who" | getline) > 0) # who is logged in?
+ MOBVAR["Result"] = MOBVAR["Result"] SUBSEP $0
+ close("who")
+ if (index(MOBVAR["Machines"], "/") > 0) { # any more machines to visit?
+ split(MOBVAR["Machines"], Machines) # which host is next?
+ migrate(Machines[1], "", "") # go there
+ } else { # no more machines
+ gsub(SUBSEP, "\n", MOBVAR["Result"]) # send result to origin
+ print MOBVAR["Result"] |& "/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080"
+ close("/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080")
+ }
+ }
+
+ After migrating, the first thing to do in `MyJob' is to delete the
+name of the current host from the list of hosts to visit. Now, it is
+time to start the real work by appending the host's name to the result
+string, and reading line by line who is logged in on this host. A very
+annoying circumstance is the fact that the elements of `MOBVAR' cannot
+hold the newline character (`"\n"'). If they did, migration of this
+string did not work because the string didn't obey the syntax rule for
+a string in `gawk'. `SUBSEP' is used as a temporary replacement. If
+the list of hosts to visit holds at least one more entry, the agent
+migrates to that place to go on working there. Otherwise, we replace
+the `SUBSEP's with a newline character in the resulting string, and
+report it to the originating host, whose name is stored in
+`MOBVAR["MyOrigin"]'.
+
+ ---------- Footnotes ----------
+
+ (1) `http://www.research.ibm.com/massive/mobag.ps'
+
+
+File: gawkinet.info, Node: STOXPRED, Next: PROTBASE, Prev: MOBAGWHO, Up: Some Applications and Techniques
+
+STOXPRED: Stock Market Prediction As A Service
+==============================================
+
+ Far out in the uncharted backwaters of the unfashionable end of
+ the Western Spiral arm of the Galaxy lies a small unregarded
+ yellow sun.
+
+ Orbiting this at a distance of roughly ninety-two million miles is
+ an utterly insignificant little blue-green planet whose
+ ape-descendent life forms are so amazingly primitive that they
+ still think digital watches are a pretty neat idea.
+
+ This planet has -- or rather had -- a problem, which was this:
+ most of the people living on it were unhappy for pretty much of
+ the time. Many solutions were suggested for this problem, but
+ most of these were largely concerned with the movements of small
+ green pieces of paper, which is odd because it wasn't the small
+ green pieces of paper that were unhappy.
+ Douglas Adams, `The Hitch Hiker's Guide to the Galaxy'
+
+ Valuable services on the Internet are usually _not_ implemented as
+mobile agents. There are much simpler ways of implementing services.
+All Unix systems provide, for example, the `cron' service. Unix system
+users can write a list of tasks to be done each day, each week, twice a
+day, or just once. The list is entered into a file named `crontab'.
+For example, to distribute a newsletter on a daily basis this way, use
+`cron' for calling a script each day early in the morning.
+
+ # run at 8 am on weekdays, distribute the newsletter
+ 0 8 * * 1-5 $HOME/bin/daily.job >> $HOME/log/newsletter 2>&1
+
+ The script first looks for interesting information on the Internet,
+assembles it in a nice form and sends the results via email to the
+customers.
+
+ The following is an example of a primitive newsletter on stock
+market prediction. It is a report which first tries to predict the
+change of each share in the Dow Jones Industrial Index for the
+particular day. Then it mentions some especially promising shares as
+well as some shares which look remarkably bad on that day. The report
+ends with the usual disclaimer which tells every child _not_ to try
+this at home and hurt anybody.
+
+ Good morning Uncle Scrooge,
+
+ This is your daily stock market report for Monday, October 16, 2000.
+ Here are the predictions for today:
+
+ AA neutral
+ GE up
+ JNJ down
+ MSFT neutral
+ ...
+ UTX up
+ DD down
+ IBM up
+ MO down
+ WMT up
+ DIS up
+ INTC up
+ MRK down
+ XOM down
+ EK down
+ IP down
+
+ The most promising shares for today are these:
+
+ INTC http://biz.yahoo.com/n/i/intc.html
+
+ The stock shares to avoid today are these:
+
+ EK http://biz.yahoo.com/n/e/ek.html
+ IP http://biz.yahoo.com/n/i/ip.html
+ DD http://biz.yahoo.com/n/d/dd.html
+ ...
+
+ The script as a whole is rather long. In order to ease the pain of
+studying other people's source code, we have broken the script up into
+meaningful parts which are invoked one after the other. The basic
+structure of the script is as follows:
+
+ BEGIN {
+ Init()
+ ReadQuotes()
+ CleanUp()
+ Prediction()
+ Report()
+ SendMail()
+ }
+
+ The earlier parts store data into variables and arrays which are
+subsequently used by later parts of the script. The `Init' function
+first checks if the script is invoked correctly (without any
+parameters). If not, it informs the user of the correct usage. What
+follows are preparations for the retrieval of the historical quote
+data. The names of the 30 stock shares are stored in an array `name'
+along with the current date in `day', `month', and `year'.
+
+ All users who are separated from the Internet by a firewall and have
+to direct their Internet accesses to a proxy must supply the name of
+the proxy to this script with the `-v Proxy=NAME' option. For most
+users, the default proxy and port number should suffice.
+
+ function Init() {
+ if (ARGC != 1) {
+ print "STOXPRED - daily stock share prediction"
+ print "IN:\n no parameters, nothing on stdin"
+ print "PARAM:\n -v Proxy=MyProxy -v ProxyPort=80"
+ print "OUT:\n commented predictions as email"
+ print "JK 09.10.2000"
+ exit
+ }
+ # Remember ticker symbols from Dow Jones Industrial Index
+ StockCount = split("AA GE JNJ MSFT AXP GM JPM PG BA HD KO \
+ SBC C HON MCD T CAT HWP MMM UTX DD IBM MO WMT DIS INTC \
+ MRK XOM EK IP", name);
+ # Remember the current date as the end of the time series
+ day = strftime("%d")
+ month = strftime("%m")
+ year = strftime("%Y")
+ if (Proxy == "") Proxy = "chart.yahoo.com"
+ if (ProxyPort == 0) ProxyPort = 80
+ YahooData = "/inet/tcp/0/" Proxy "/" ProxyPort
+ }
+
+ There are two really interesting parts in the script. One is the
+function which reads the historical stock quotes from an Internet
+server. The other is the one that does the actual prediction. In the
+following function we see how the quotes are read from the Yahoo
+server. The data which comes from the server is in CSV format
+(comma-separated values):
+
+ Date,Open,High,Low,Close,Volume
+ 9-Oct-00,22.75,22.75,21.375,22.375,7888500
+ 6-Oct-00,23.8125,24.9375,21.5625,22,10701100
+ 5-Oct-00,24.4375,24.625,23.125,23.50,5810300
+
+ Lines contain values of the same time instant, whereas columns are
+separated by commas and contain the kind of data that is described in
+the header (first) line. At first, `gawk' is instructed to separate
+columns by commas (`FS = ","'). In the loop that follows, a connection
+to the Yahoo server is first opened, then a download takes place, and
+finally the connection is closed. All this happens once for each ticker
+symbol. In the body of this loop, an Internet address is built up as a
+string according to the rules of the Yahoo server. The starting and
+ending date are chosen to be exactly the same, but one year apart in
+the past. All the action is initiated within the `printf' command which
+transmits the request for data to the Yahoo server.
+
+ In the inner loop, the server's data is first read and then scanned
+line by line. Only lines which have six columns and the name of a month
+in the first column contain relevant data. This data is stored in the
+two-dimensional array `quote'; one dimension being time, the other
+being the ticker symbol. During retrieval of the first stock's data,
+the calendar names of the time instances are stored in the array `day'
+because we need them later.
+
+ function ReadQuotes() {
+ # Retrieve historical data for each ticker symbol
+ FS = ","
+ for (stock = 1; stock <= StockCount; stock++) {
+ URL = "http://chart.yahoo.com/table.csv?s=" name[stock] \
+ "&a=" month "&b=" day "&c=" year-1 \
+ "&d=" month "&e=" day "&f=" year \
+ "g=d&q=q&y=0&z=" name[stock] "&x=.csv"
+ printf("GET " URL " HTTP/1.0\r\n\r\n") |& YahooData
+ while ((YahooData |& getline) > 0) {
+ if (NF == 6 && $1 ~ /Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec/) {
+ if (stock == 1)
+ days[++daycount] = $1;
+ quote[$1, stock] = $5
+ }
+ }
+ close(YahooData)
+ }
+ FS = " "
+ }
+
+ Now that we _have_ the data, it can be checked once again to make
+sure that no individual stock is missing or invalid, and that all the
+stock quotes are aligned correctly. Furthermore, we renumber the time
+instances. The most recent day gets day number 1 and all other days get
+consecutive numbers. All quotes are rounded toward the nearest whole
+number in US Dollars.
+
+ function CleanUp() {
+ # clean up time series; eliminate incomplete data sets
+ for (d = 1; d <= daycount; d++) {
+ for (stock = 1; stock <= StockCount; stock++)
+ if (! ((days[d], stock) in quote))
+ stock = StockCount + 10
+ if (stock > StockCount + 1)
+ continue
+ datacount++
+ for (stock = 1; stock <= StockCount; stock++)
+ data[datacount, stock] = int(0.5 + quote[days[d], stock])
+ }
+ delete quote
+ delete days
+ }
+
+ Now we have arrived at the second really interesting part of the
+whole affair. What we present here is a very primitive prediction
+algorithm: _If a stock fell yesterday, assume it will also fall today;
+if it rose yesterday, assume it will rise today_. (Feel free to
+replace this algorithm with a smarter one.) If a stock changed in the
+same direction on two consecutive days, this is an indication which
+should be highlighted. Two-day advances are stored in `hot' and
+two-day declines in `avoid'.
+
+ The rest of the function is a sanity check. It counts the number of
+correct predictions in relation to the total number of predictions one
+could have made in the year before.
+
+ function Prediction() {
+ # Predict each ticker symbol by prolonging yesterday's trend
+ for (stock = 1; stock <= StockCount; stock++) {
+ if (data[1, stock] > data[2, stock]) {
+ predict[stock] = "up"
+ } else if (data[1, stock] < data[2, stock]) {
+ predict[stock] = "down"
+ } else {
+ predict[stock] = "neutral"
+ }
+ if ((data[1, stock] > data[2, stock]) && (data[2, stock] > data[3, stock]))
+ hot[stock] = 1
+ if ((data[1, stock] < data[2, stock]) && (data[2, stock] < data[3, stock]))
+ avoid[stock] = 1
+ }
+ # Do a plausibility check: how many predictions proved correct?
+ for (s = 1; s <= StockCount; s++) {
+ for (d = 1; d <= datacount-2; d++) {
+ if (data[d+1, s] > data[d+2, s]) {
+ UpCount++
+ } else if (data[d+1, s] < data[d+2, s]) {
+ DownCount++
+ } else {
+ NeutralCount++
+ }
+ if (((data[d, s] > data[d+1, s]) && (data[d+1, s] > data[d+2, s])) ||
+ ((data[d, s] < data[d+1, s]) && (data[d+1, s] < data[d+2, s])) ||
+ ((data[d, s] == data[d+1, s]) && (data[d+1, s] == data[d+2, s])))
+ CorrectCount++
+ }
+ }
+ }
+
+ At this point the hard work has been done: the array `predict'
+contains the predictions for all the ticker symbols. It is up to the
+function `Report' to find some nice words to introduce the desired
+information.
+
+ function Report() {
+ # Generate report
+ report = "\nThis is your daily "
+ report = report "stock market report for "strftime("%A, %B %d, %Y")".\n"
+ report = report "Here are the predictions for today:\n\n"
+ for (stock = 1; stock <= StockCount; stock++)
+ report = report "\t" name[stock] "\t" predict[stock] "\n"
+ for (stock in hot) {
+ if (HotCount++ == 0)
+ report = report "\nThe most promising shares for today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ }
+ for (stock in avoid) {
+ if (AvoidCount++ == 0)
+ report = report "\nThe stock shares to avoid today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ }
+ report = report "\nThis sums up to " HotCount+0 " winners and " AvoidCount+0
+ report = report " losers. When using this kind\nof prediction scheme for"
+ report = report " the 12 months which lie behind us,\nwe get " UpCount
+ report = report " 'ups' and " DownCount " 'downs' and " NeutralCount
+ report = report " 'neutrals'. Of all\nthese " UpCount+DownCount+NeutralCount
+ report = report " predictions " CorrectCount " proved correct next day.\n"
+ report = report "A success rate of "\
+ int(100*CorrectCount/(UpCount+DownCount+NeutralCount)) "%.\n"
+ report = report "Random choice would have produced a 33% success rate.\n"
+ report = report "Disclaimer: Like every other prediction of the stock\n"
+ report = report "market, this report is, of course, complete nonsense.\n"
+ report = report "If you are stupid enough to believe these predictions\n"
+ report = report "you should visit a doctor who can treat your ailment."
+ }
+
+ The function `SendMail' goes through the list of customers and opens
+a pipe to the `mail' command for each of them. Each one receives an
+email message with a proper subject heading and is addressed with his
+full name.
+
+ function SendMail() {
+ # send report to customers
+ customer["uncle.scrooge@ducktown.gov"] = "Uncle Scrooge"
+ customer["more@utopia.org" ] = "Sir Thomas More"
+ customer["spinoza@denhaag.nl" ] = "Baruch de Spinoza"
+ customer["marx@highgate.uk" ] = "Karl Marx"
+ customer["keynes@the.long.run" ] = "John Maynard Keynes"
+ customer["bierce@devil.hell.org" ] = "Ambrose Bierce"
+ customer["laplace@paris.fr" ] = "Pierre Simon de Laplace"
+ for (c in customer) {
+ MailPipe = "mail -s 'Daily Stock Prediction Newsletter'" c
+ print "Good morning " customer[c] "," | MailPipe
+ print report "\n.\n" | MailPipe
+ close(MailPipe)
+ }
+ }
+
+ Be patient when running the script by hand. Retrieving the data for
+all the ticker symbols and sending the emails may take several minutes
+to complete, depending upon network traffic and the speed of the
+available Internet link. The quality of the prediction algorithm is
+likely to be disappointing. Try to find a better one. Should you find
+one with a success rate of more than 50%, please tell us about it! It
+is only for the sake of curiosity, of course. `:-)'
+
+
+File: gawkinet.info, Node: PROTBASE, Prev: STOXPRED, Up: Some Applications and Techniques
+
+PROTBASE: Searching Through A Protein Database
+==============================================
+
+ Hoare's Law of Large Problems: Inside every large problem is a
+ small problem struggling to get out.
+
+ Yahoo's database of stock market data is just one among the many
+large databases on the Internet. Another one is located at NCBI
+(National Center for Biotechnology Information). Established in 1988 as
+a national resource for molecular biology information, NCBI creates
+public databases, conducts research in computational biology, develops
+software tools for analyzing genome data, and disseminates biomedical
+information. In this section, we look at one of NCBI's public services,
+which is called BLAST (Basic Local Alignment Search Tool).
+
+ You probably know that the information necessary for reproducing
+living cells is encoded in the genetic material of the cells. The
+genetic material is a very long chain of four base nucleotides. It is
+the order of appearance (the sequence) of nucleotides which contains
+the information about the substance to be produced. Scientists in
+biotechnology often find a specific fragment, determine the nucleotide
+sequence, and need to know where the sequence at hand comes from. This
+is where the large databases enter the game. At NCBI, databases store
+the knowledge about which sequences have ever been found and where they
+have been found. When the scientist sends his sequence to the BLAST
+service, the server looks for regions of genetic material in its
+database which look the most similar to the delivered nucleotide
+sequence. After a search time of some seconds or minutes the server
+sends an answer to the scientist. In order to make access simple, NCBI
+chose to offer their database service through popular Internet
+protocols. There are four basic ways to use the so-called BLAST
+services:
+
+ * The easiest way to use BLAST is through the web. Users may simply
+ point their browsers at the NCBI home page and link to the BLAST
+ pages. NCBI provides a stable URL that may be used to perform
+ BLAST searches without interactive use of a web browser. This is
+ what we will do later in this section. A demonstration client and
+ a `README' file demonstrate how to access this URL.
+
+ * Currently, `blastcl3' is the standard network BLAST client. You
+ can download `blastcl3' from the anonymous FTP location.
+
+ * BLAST 2.0 can be run locally as a full executable and can be used
+ to run BLAST searches against private local databases, or
+ downloaded copies of the NCBI databases. BLAST 2.0 executables may
+ be found on the NCBI anonymous FTP server.
+
+ * The NCBI BLAST Email server is the best option for people without
+ convenient access to the web. A similarity search can be performed
+ by sending a properly formatted mail message containing the
+ nucleotide or protein query sequence to <blast@ncbi.nlm.nih.gov>.
+ The query sequence is compared against the specified database
+ using the BLAST algorithm and the results are returned in an email
+ message. For more information on formulating email BLAST searches,
+ you can send a message consisting of the word "HELP" to the same
+ address, <blast@ncbi.nlm.nih.gov>.
+
+ Our starting point is the demonstration client mentioned in the
+first option. The `README' file that comes along with the client
+explains the whole process in a nutshell. In the rest of this section,
+we first show what such requests look like. Then we show how to use
+`gawk' to implement a client in about 10 lines of code. Finally, we
+show how to interpret the result returned from the service.
+
+ Sequences are expected to be represented in the standard IUB/IUPAC
+amino acid and nucleic acid codes, with these exceptions: lower-case
+letters are accepted and are mapped into upper-case; a single hyphen or
+dash can be used to represent a gap of indeterminate length; and in
+amino acid sequences, `U' and `*' are acceptable letters (see below).
+Before submitting a request, any numerical digits in the query sequence
+should either be removed or replaced by appropriate letter codes (e.g.,
+`N' for unknown nucleic acid residue or `X' for unknown amino acid
+residue). The nucleic acid codes supported are:
+
+ A --> adenosine M --> A C (amino)
+ C --> cytidine S --> G C (strong)
+ G --> guanine W --> A T (weak)
+ T --> thymidine B --> G T C
+ U --> uridine D --> G A T
+ R --> G A (purine) H --> A C T
+ Y --> T C (pyrimidine) V --> G C A
+ K --> G T (keto) N --> A G C T (any)
+ - gap of indeterminate length
+
+ Now you know the alphabet of nucleotide sequences. The last two lines
+of the following example query show you such a sequence, which is
+obviously made up only of elements of the alphabet just described.
+Store this example query into a file named `protbase.request'. You are
+now ready to send it to the server with the demonstration client.
+
+ PROGRAM blastn
+ DATALIB month
+ EXPECT 0.75
+ BEGIN
+ >GAWK310 the gawking gene GNU AWK
+ tgcttggctgaggagccataggacgagagcttcctggtgaagtgtgtttcttgaaatcat
+ caccaccatggacagcaaa
+
+ The actual search request begins with the mandatory parameter
+`PROGRAM' in the first column followed by the value `blastn' (the name
+of the program) for searching nucleic acids. The next line contains
+the mandatory search parameter `DATALIB' with the value `month' for the
+newest nucleic acid sequences. The third line contains an optional
+`EXPECT' parameter and the value desired for it. The fourth line
+contains the mandatory `BEGIN' directive, followed by the query
+sequence in FASTA/Pearson format. Each line of information must be
+less than 80 characters in length.
+
+ The "month" database contains all new or revised sequences released
+in the last 30 days and is useful for searching against new sequences.
+There are five different blast programs, `blastn' being the one that
+compares a nucleotide query sequence against a nucleotide sequence
+database.
+
+ The last server directive that must appear in every request is the
+`BEGIN' directive. The query sequence should immediately follow the
+`BEGIN' directive and must appear in FASTA/Pearson format. A sequence
+in FASTA/Pearson format begins with a single-line description. The
+description line, which is required, is distinguished from the lines of
+sequence data that follow it by having a greater-than (`>') symbol in
+the first column. For the purposes of the BLAST server, the text of
+the description is arbitrary.
+
+ If you prefer to use a client written in `gawk', just store the
+following 10 lines of code into a file named `protbase.awk' and use
+this client instead. Invoke it with `gawk -f protbase.awk
+protbase.request'. Then wait a minute and watch the result coming in.
+In order to replicate the demonstration client's behaviour as closely
+as possible, this client does not use a proxy server. We could also
+have extended the client program in *Note Retrieving Web Pages: GETURL,
+to implement the client request from `protbase.awk' as a special case.
+
+ { request = request "\n" $0 }
+
+ END {
+ BLASTService = "/inet/tcp/0/www.ncbi.nlm.nih.gov/80"
+ printf "POST /cgi-bin/BLAST/nph-blast_report HTTP/1.0\n" |& BLASTService
+ printf "Content-Length: " length(request) "\n\n" |& BLASTService
+ printf request |& BLASTService
+ while ((BLASTService |& getline) > 0)
+ print $0
+ close(BLASTService)
+ }
+
+ The demonstration client from NCBI is 214 lines long (written in C)
+and it is not immediately obvious what it does. Our client is so short
+that it _is_ obvious what it does. First it loops over all lines of the
+query and stores the whole query into a variable. Then the script
+establishes an Internet connection to the NCBI server and transmits the
+query by framing it with a proper HTTP request. Finally it receives and
+prints the complete result coming from the server.
+
+ Now, let us look at the result. It begins with an HTTP header, which
+you can ignore. Then there are some comments about the query having been
+filtered to avoid spuriously high scores. After this, there is a
+reference to the paper that describes the software being used for
+searching the data base. After a repitition of the original query's
+description we find the list of significant alignments:
+
+ Sequences producing significant alignments: (bits) Value
+
+ gb|AC021182.14|AC021182 Homo sapiens chromosome 7 clone RP11-733... 38 0.20
+ gb|AC021056.12|AC021056 Homo sapiens chromosome 3 clone RP11-115... 38 0.20
+ emb|AL160278.10|AL160278 Homo sapiens chromosome 9 clone RP11-57... 38 0.20
+ emb|AL391139.11|AL391139 Homo sapiens chromosome X clone RP11-35... 38 0.20
+ emb|AL365192.6|AL365192 Homo sapiens chromosome 6 clone RP3-421H... 38 0.20
+ emb|AL138812.9|AL138812 Homo sapiens chromosome 11 clone RP1-276... 38 0.20
+ gb|AC073881.3|AC073881 Homo sapiens chromosome 15 clone CTD-2169... 38 0.20
+
+ This means that the query sequence was found in seven human
+chromosomes. But the value 0.20 (20%) means that the probability of an
+accidental match is rather high (20%) in all cases and should be taken
+into account. You may wonder what the first column means. It is a key
+to the specific database in which this occurence was found. The unique
+sequence identifiers reported in the search results can be used as
+sequence retrieval keys via the NCBI server. The syntax of sequence
+header lines used by the NCBI BLAST server depends on the database from
+which each sequence was obtained. The table below lists the
+identifiers for the databases from which the sequences were derived.
+
+ Database Name Identifier Syntax
+ ============================ ========================
+ GenBank gb|accession|locus
+ EMBL Data Library emb|accession|locus
+ DDBJ, DNA Database of Japan dbj|accession|locus
+ NBRF PIR pir||entry
+ Protein Research Foundation prf||name
+ SWISS-PROT sp|accession|entry name
+ Brookhaven Protein Data Bank pdb|entry|chain
+ Kabat's Sequences of Immuno... gnl|kabat|identifier
+ Patents pat|country|number
+ GenInfo Backbone Id bbs|number
+
+ For example, an identifier might be `gb|AC021182.14|AC021182', where
+the `gb' tag indicates that the identifier refers to a GenBank sequence,
+`AC021182.14' is its GenBank ACCESSION, and `AC021182' is the GenBank
+LOCUS. The identifier contains no spaces, so that a space indicates
+the end of the identifier.
+
+ Let us continue in the result listing. Each of the seven alignments
+mentioned above is subsequently described in detail. We will have a
+closer look at the first of them.
+
+ >gb|AC021182.14|AC021182 Homo sapiens chromosome 7 clone RP11-733N23, WORKING DRAFT SEQUENCE, 4
+ unordered pieces
+ Length = 176383
+
+ Score = 38.2 bits (19), Expect = 0.20
+ Identities = 19/19 (100%)
+ Strand = Plus / Plus
+
+ Query: 35 tggtgaagtgtgtttcttg 53
+ |||||||||||||||||||
+ Sbjct: 69786 tggtgaagtgtgtttcttg 69804
+
+ This alignment was located on the human chromosome 7. The fragment
+on which part of the query was found had a total length of 176383. Only
+19 of the nucleotides matched and the matching sequence ran from
+character 35 to 53 in the query sequence and from 69786 to 69804 in the
+fragment on chromosome 7. If you are still reading at this point, you
+are probably interested in finding out more about Computational Biology
+and you might appreciate the following hints.
+
+ 1. There is a book called `Introduction to Computational Biology' by
+ Michael S. Waterman, which is worth reading if you are seriously
+ interested. You can find a good book review on the Internet.
+
+ 2. While Waterman's book can explain to you the algorithms employed
+ internally in the database search engines, most practicioners
+ prefer to approach the subject differently. The applied side of
+ Computational Biology is called Bioinformatics, and emphasizes the
+ tools available for day-to-day work as well as how to actually
+ _use_ them. One of the very few affordable books on Bioinformatics
+ is `Developing Bioinformatics Computer Skills'.
+
+ 3. The sequences _gawk_ and _gnuawk_ are in widespread use in the
+ genetic material of virtually every earthly living being. Let us
+ take this as a clear indication that the divine creator has
+ intended `gawk' to prevail over other scripting languages such as
+ `perl', `tcl', or `python' which are not even proper sequences.
+ (:-)
+
+
+File: gawkinet.info, Node: Links, Next: GNU Free Documentation License, Prev: Some Applications and Techniques, Up: Top
+
+Related Links
+*************
+
+ This section lists the URLs for various items discussed in this
+major node. They are presented in the order in which they appear.
+
+`Internet Programming with Python'
+ `http://www.fsbassociates.com/books/python.htm'
+
+`Advanced Perl Programming'
+ `http://www.oreilly.com/catalog/advperl'
+
+`Web Client Programming with Perl'
+ `http://www.oreilly.com/catalog/webclient'
+
+Richard Stevens's home page and book
+ `http://www.kohala.com/~rstevens'
+
+The SPAK home page
+ `http://www.userfriendly.net/linux/RPM/contrib/libc6/i386/spak-0.6b-1.i386.html'
+
+Volume III of `Internetworking with TCP/IP', by Comer and Stevens
+ `http://www.cs.purdue.edu/homes/dec/tcpip3s.cont.html'
+
+XBM Graphics File Format
+ `http://www.wotsit.org/download.asp?f=xbm'
+
+GNUPlot
+ `http://www.cs.dartmouth.edu/gnuplot_info.html'
+
+Mark Humphrys' Eliza page
+ `http://www.compapp.dcu.ie/~humphrys/eliza.html'
+
+Yahoo! Eliza Information
+ `http://dir.yahoo.com/Recreation/Games/Computer_Games/Internet_Games/Web_Games/Artificial_Intelligence'
+
+Java versions of Eliza
+ `http://www.tjhsst.edu/Psych/ch1/eliza.html'
+
+Java versions of Eliza with source code
+ `http://home.adelphia.net/~lifeisgood/eliza/eliza.htm'
+
+Eliza Programs with Explanations
+ `http://chayden.net/chayden/eliza/Eliza.shtml'
+
+Loebner Contest
+ `http://acm.org/~loebner/loebner-prize.htmlx'
+
+Tck/Tk Information
+ `http://www.scriptics.com/'
+
+Intel 80x86 Processors
+ `http://developer.intel.com/design/platform/embedpc/what_is.htm'
+
+AMD Elan Processors
+ `http://www.amd.com/products/epd/processors/4.32bitcont/32bitcont/index.html'
+
+XINU
+ `http://willow.canberra.edu.au/~chrisc/xinu.html'
+
+GNU/Linux
+ `http://uclinux.lineo.com/'
+
+Embedded PCs
+ `http://dir.yahoo.com/Business_and_Economy/Business_to_Business/Computers/Hardware/Embedded_Control/'
+
+MiniSQL
+ `http://www.hughes.com.au/library/'
+
+Market Share Surveys
+ `http://www.netcraft.com/survey'
+
+`Numerical Recipes in C: The Art of Scientific Computing'
+ `http://www.nr.com'
+
+VRML
+ `http://www.vrml.org'
+
+The VRML FAQ
+ `http://www.vrml.org/technicalinfo/specifications/specifications.htm#FAQ'
+
+The UMBC Agent Web
+ `http://www.cs.umbc.edu/agents'
+
+Apache Web Server
+ `http://www.apache.org'
+
+National Center for Biotechnology Information (NCBI)
+ `http://www.ncbi.nlm.nih.gov'
+
+Basic Local Alignment Search Tool (BLAST)
+ `http://www.ncbi.nlm.nih.gov/BLAST/blast_overview.html'
+
+NCBI Home Page
+ `http://www.ncbi.nlm.nih.gov'
+
+BLAST Pages
+ `http://www.ncbi.nlm.nih.gov/BLAST'
+
+BLAST Demonstration Client
+ `ftp://ncbi.nlm.nih.gov/blast/blasturl/'
+
+BLAST anonymous FTP location
+ `ftp://ncbi.nlm.nih.gov/blast/network/netblast/'
+
+BLAST 2.0 Executables
+ `ftp://ncbi.nlm.nih.gov/blast/executables/'
+
+IUB/IUPAC Amino Acid and Nucleic Acid Codes
+ `http://www.uthscsa.edu/geninfo/blastmail.html#item6'
+
+FASTA/Pearson Format
+ `http://www.ncbi.nlm.nih.gov/BLAST/fasta.html'
+
+Fasta/Pearson Sequence in Java
+ `http://www.kazusa.or.jp/java/codon_table_java/'
+
+Book Review of `Introduction to Computational Biology'
+ `http://www.acm.org/crossroads/xrds5-1/introcb.html'
+
+`Developing Bioinformatics Computer Skills'
+ `http://www.oreilly.com/catalog/bioskills/'
+
+
+File: gawkinet.info, Node: GNU Free Documentation License, Next: Index, Prev: Links, Up: Top
+
+GNU Free Documentation License
+******************************
+
+ Version 1.1, March 2000
+
+ Copyright (C) 2000 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+
+ 0. PREAMBLE
+
+ The purpose of this License is to make a manual, textbook, or other
+ written document "free" in the sense of freedom: to assure everyone
+ the effective freedom to copy and redistribute it, with or without
+ modifying it, either commercially or noncommercially. Secondarily,
+ this License preserves for the author and publisher a way to get
+ credit for their work, while not being considered responsible for
+ modifications made by others.
+
+ This License is a kind of "copyleft", which means that derivative
+ works of the document must themselves be free in the same sense.
+ It complements the GNU General Public License, which is a copyleft
+ license designed for free software.
+
+ We have designed this License in order to use it for manuals for
+ free software, because free software needs free documentation: a
+ free program should come with manuals providing the same freedoms
+ that the software does. But this License is not limited to
+ software manuals; it can be used for any textual work, regardless
+ of subject matter or whether it is published as a printed book.
+ We recommend this License principally for works whose purpose is
+ instruction or reference.
+
+
+ 1. APPLICABILITY AND DEFINITIONS
+
+ This License applies to any manual or other work that contains a
+ notice placed by the copyright holder saying it can be distributed
+ under the terms of this License. The "Document", below, refers to
+ any such manual or work. Any member of the public is a licensee,
+ and is addressed as "you".
+
+ A "Modified Version" of the Document means any work containing the
+ Document or a portion of it, either copied verbatim, or with
+ modifications and/or translated into another language.
+
+ A "Secondary Section" is a named appendix or a front-matter
+ section of the Document that deals exclusively with the
+ relationship of the publishers or authors of the Document to the
+ Document's overall subject (or to related matters) and contains
+ nothing that could fall directly within that overall subject.
+ (For example, if the Document is in part a textbook of
+ mathematics, a Secondary Section may not explain any mathematics.)
+ The relationship could be a matter of historical connection with
+ the subject or with related matters, or of legal, commercial,
+ philosophical, ethical or political position regarding them.
+
+ The "Invariant Sections" are certain Secondary Sections whose
+ titles are designated, as being those of Invariant Sections, in
+ the notice that says that the Document is released under this
+ License.
+
+ The "Cover Texts" are certain short passages of text that are
+ listed, as Front-Cover Texts or Back-Cover Texts, in the notice
+ that says that the Document is released under this License.
+
+ A "Transparent" copy of the Document means a machine-readable copy,
+ represented in a format whose specification is available to the
+ general public, whose contents can be viewed and edited directly
+ and straightforwardly with generic text editors or (for images
+ composed of pixels) generic paint programs or (for drawings) some
+ widely available drawing editor, and that is suitable for input to
+ text formatters or for automatic translation to a variety of
+ formats suitable for input to text formatters. A copy made in an
+ otherwise Transparent file format whose markup has been designed
+ to thwart or discourage subsequent modification by readers is not
+ Transparent. A copy that is not "Transparent" is called "Opaque".
+
+ Examples of suitable formats for Transparent copies include plain
+ ASCII without markup, Texinfo input format, LaTeX input format,
+ SGML or XML using a publicly available DTD, and
+ standard-conforming simple HTML designed for human modification.
+ Opaque formats include PostScript, PDF, proprietary formats that
+ can be read and edited only by proprietary word processors, SGML
+ or XML for which the DTD and/or processing tools are not generally
+ available, and the machine-generated HTML produced by some word
+ processors for output purposes only.
+
+ The "Title Page" means, for a printed book, the title page itself,
+ plus such following pages as are needed to hold, legibly, the
+ material this License requires to appear in the title page. For
+ works in formats which do not have any title page as such, "Title
+ Page" means the text near the most prominent appearance of the
+ work's title, preceding the beginning of the body of the text.
+
+
+ 2. VERBATIM COPYING
+
+ You may copy and distribute the Document in any medium, either
+ commercially or noncommercially, provided that this License, the
+ copyright notices, and the license notice saying this License
+ applies to the Document are reproduced in all copies, and that you
+ add no other conditions whatsoever to those of this License. You
+ may not use technical measures to obstruct or control the reading
+ or further copying of the copies you make or distribute. However,
+ you may accept compensation in exchange for copies. If you
+ distribute a large enough number of copies you must also follow
+ the conditions in section 3.
+
+ You may also lend copies, under the same conditions stated above,
+ and you may publicly display copies.
+
+
+ 3. COPYING IN QUANTITY
+
+ If you publish printed copies of the Document numbering more than
+ 100, and the Document's license notice requires Cover Texts, you
+ must enclose the copies in covers that carry, clearly and legibly,
+ all these Cover Texts: Front-Cover Texts on the front cover, and
+ Back-Cover Texts on the back cover. Both covers must also clearly
+ and legibly identify you as the publisher of these copies. The
+ front cover must present the full title with all words of the
+ title equally prominent and visible. You may add other material
+ on the covers in addition. Copying with changes limited to the
+ covers, as long as they preserve the title of the Document and
+ satisfy these conditions, can be treated as verbatim copying in
+ other respects.
+
+ If the required texts for either cover are too voluminous to fit
+ legibly, you should put the first ones listed (as many as fit
+ reasonably) on the actual cover, and continue the rest onto
+ adjacent pages.
+
+ If you publish or distribute Opaque copies of the Document
+ numbering more than 100, you must either include a
+ machine-readable Transparent copy along with each Opaque copy, or
+ state in or with each Opaque copy a publicly-accessible
+ computer-network location containing a complete Transparent copy
+ of the Document, free of added material, which the general
+ network-using public has access to download anonymously at no
+ charge using public-standard network protocols. If you use the
+ latter option, you must take reasonably prudent steps, when you
+ begin distribution of Opaque copies in quantity, to ensure that
+ this Transparent copy will remain thus accessible at the stated
+ location until at least one year after the last time you
+ distribute an Opaque copy (directly or through your agents or
+ retailers) of that edition to the public.
+
+ It is requested, but not required, that you contact the authors of
+ the Document well before redistributing any large number of
+ copies, to give them a chance to provide you with an updated
+ version of the Document.
+
+
+ 4. MODIFICATIONS
+
+ You may copy and distribute a Modified Version of the Document
+ under the conditions of sections 2 and 3 above, provided that you
+ release the Modified Version under precisely this License, with
+ the Modified Version filling the role of the Document, thus
+ licensing distribution and modification of the Modified Version to
+ whoever possesses a copy of it. In addition, you must do these
+ things in the Modified Version:
+
+ A. Use in the Title Page (and on the covers, if any) a title
+ distinct from that of the Document, and from those of
+ previous versions (which should, if there were any, be listed
+ in the History section of the Document). You may use the
+ same title as a previous version if the original publisher of
+ that version gives permission.
+
+ B. List on the Title Page, as authors, one or more persons or
+ entities responsible for authorship of the modifications in
+ the Modified Version, together with at least five of the
+ principal authors of the Document (all of its principal
+ authors, if it has less than five).
+
+ C. State on the Title page the name of the publisher of the
+ Modified Version, as the publisher.
+
+ D. Preserve all the copyright notices of the Document.
+
+ E. Add an appropriate copyright notice for your modifications
+ adjacent to the other copyright notices.
+
+ F. Include, immediately after the copyright notices, a license
+ notice giving the public permission to use the Modified
+ Version under the terms of this License, in the form shown in
+ the Addendum below.
+
+ G. Preserve in that license notice the full lists of Invariant
+ Sections and required Cover Texts given in the Document's
+ license notice.
+
+ H. Include an unaltered copy of this License.
+
+ I. Preserve the section entitled "History", and its title, and
+ add to it an item stating at least the title, year, new
+ authors, and publisher of the Modified Version as given on
+ the Title Page. If there is no section entitled "History" in
+ the Document, create one stating the title, year, authors,
+ and publisher of the Document as given on its Title Page,
+ then add an item describing the Modified Version as stated in
+ the previous sentence.
+
+ J. Preserve the network location, if any, given in the Document
+ for public access to a Transparent copy of the Document, and
+ likewise the network locations given in the Document for
+ previous versions it was based on. These may be placed in
+ the "History" section. You may omit a network location for a
+ work that was published at least four years before the
+ Document itself, or if the original publisher of the version
+ it refers to gives permission.
+
+ K. In any section entitled "Acknowledgements" or "Dedications",
+ preserve the section's title, and preserve in the section all
+ the substance and tone of each of the contributor
+ acknowledgements and/or dedications given therein.
+
+ L. Preserve all the Invariant Sections of the Document,
+ unaltered in their text and in their titles. Section numbers
+ or the equivalent are not considered part of the section
+ titles.
+
+ M. Delete any section entitled "Endorsements". Such a section
+ may not be included in the Modified Version.
+
+ N. Do not retitle any existing section as "Endorsements" or to
+ conflict in title with any Invariant Section.
+
+ If the Modified Version includes new front-matter sections or
+ appendices that qualify as Secondary Sections and contain no
+ material copied from the Document, you may at your option
+ designate some or all of these sections as invariant. To do this,
+ add their titles to the list of Invariant Sections in the Modified
+ Version's license notice. These titles must be distinct from any
+ other section titles.
+
+ You may add a section entitled "Endorsements", provided it contains
+ nothing but endorsements of your Modified Version by various
+ parties-for example, statements of peer review or that the text has
+ been approved by an organization as the authoritative definition
+ of a standard.
+
+ You may add a passage of up to five words as a Front-Cover Text,
+ and a passage of up to 25 words as a Back-Cover Text, to the end
+ of the list of Cover Texts in the Modified Version. Only one
+ passage of Front-Cover Text and one of Back-Cover Text may be
+ added by (or through arrangements made by) any one entity. If the
+ Document already includes a cover text for the same cover,
+ previously added by you or by arrangement made by the same entity
+ you are acting on behalf of, you may not add another; but you may
+ replace the old one, on explicit permission from the previous
+ publisher that added the old one.
+
+ The author(s) and publisher(s) of the Document do not by this
+ License give permission to use their names for publicity for or to
+ assert or imply endorsement of any Modified Version.
+
+
+ 5. COMBINING DOCUMENTS
+
+ You may combine the Document with other documents released under
+ this License, under the terms defined in section 4 above for
+ modified versions, provided that you include in the combination
+ all of the Invariant Sections of all of the original documents,
+ unmodified, and list them all as Invariant Sections of your
+ combined work in its license notice.
+
+ The combined work need only contain one copy of this License, and
+ multiple identical Invariant Sections may be replaced with a single
+ copy. If there are multiple Invariant Sections with the same name
+ but different contents, make the title of each such section unique
+ by adding at the end of it, in parentheses, the name of the
+ original author or publisher of that section if known, or else a
+ unique number. Make the same adjustment to the section titles in
+ the list of Invariant Sections in the license notice of the
+ combined work.
+
+ In the combination, you must combine any sections entitled
+ "History" in the various original documents, forming one section
+ entitled "History"; likewise combine any sections entitled
+ "Acknowledgements", and any sections entitled "Dedications". You
+ must delete all sections entitled "Endorsements."
+
+
+ 6. COLLECTIONS OF DOCUMENTS
+
+ You may make a collection consisting of the Document and other
+ documents released under this License, and replace the individual
+ copies of this License in the various documents with a single copy
+ that is included in the collection, provided that you follow the
+ rules of this License for verbatim copying of each of the
+ documents in all other respects.
+
+ You may extract a single document from such a collection, and
+ distribute it individually under this License, provided you insert
+ a copy of this License into the extracted document, and follow
+ this License in all other respects regarding verbatim copying of
+ that document.
+
+
+ 7. AGGREGATION WITH INDEPENDENT WORKS
+
+ A compilation of the Document or its derivatives with other
+ separate and independent documents or works, in or on a volume of
+ a storage or distribution medium, does not as a whole count as a
+ Modified Version of the Document, provided no compilation
+ copyright is claimed for the compilation. Such a compilation is
+ called an "aggregate", and this License does not apply to the
+ other self-contained works thus compiled with the Document, on
+ account of their being thus compiled, if they are not themselves
+ derivative works of the Document.
+
+ If the Cover Text requirement of section 3 is applicable to these
+ copies of the Document, then if the Document is less than one
+ quarter of the entire aggregate, the Document's Cover Texts may be
+ placed on covers that surround only the Document within the
+ aggregate. Otherwise they must appear on covers around the whole
+ aggregate.
+
+
+ 8. TRANSLATION
+
+ Translation is considered a kind of modification, so you may
+ distribute translations of the Document under the terms of section
+ 4. Replacing Invariant Sections with translations requires special
+ permission from their copyright holders, but you may include
+ translations of some or all Invariant Sections in addition to the
+ original versions of these Invariant Sections. You may include a
+ translation of this License provided that you also include the
+ original English version of this License. In case of a
+ disagreement between the translation and the original English
+ version of this License, the original English version will prevail.
+
+
+ 9. TERMINATION
+
+ You may not copy, modify, sublicense, or distribute the Document
+ except as expressly provided for under this License. Any other
+ attempt to copy, modify, sublicense or distribute the Document is
+ void, and will automatically terminate your rights under this
+ License. However, parties who have received copies, or rights,
+ from you under this License will not have their licenses
+ terminated so long as such parties remain in full compliance.
+
+
+ 10. FUTURE REVISIONS OF THIS LICENSE
+
+ The Free Software Foundation may publish new, revised versions of
+ the GNU Free Documentation License from time to time. Such new
+ versions will be similar in spirit to the present version, but may
+ differ in detail to address new problems or concerns. See
+ `http://www.gnu.org/copyleft/'.
+
+ Each version of the License is given a distinguishing version
+ number. If the Document specifies that a particular numbered
+ version of this License "or any later version" applies to it, you
+ have the option of following the terms and conditions either of
+ that specified version or of any later version that has been
+ published (not as a draft) by the Free Software Foundation. If
+ the Document does not specify a version number of this License,
+ you may choose any version ever published (not as a draft) by the
+ Free Software Foundation.
+
+
+ADDENDUM: How to use this License for your documents
+====================================================
+
+ To use this License in a document you have written, include a copy of
+the License in the document and put the following copyright and license
+notices just after the title page:
+
+
+ Copyright (C) YEAR YOUR NAME.
+ Permission is granted to copy, distribute and/or modify this document
+ under the terms of the GNU Free Documentation License, Version 1.1
+ or any later version published by the Free Software Foundation;
+ with the Invariant Sections being LIST THEIR TITLES, with the
+ Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.
+ A copy of the license is included in the section entitled ``GNU
+ Free Documentation License''.
+If you have no Invariant Sections, write "with no Invariant
+Sections" instead of saying which ones are invariant. If you have no
+Front-Cover Texts, write "no Front-Cover Texts" instead of "Front-Cover
+Texts being LIST"; likewise for Back-Cover Texts.
+
+ If your document contains nontrivial examples of program code, we
+recommend releasing these examples in parallel under your choice of
+free software license, such as the GNU General Public License, to
+permit their use in free software.
+
+
+File: gawkinet.info, Node: Index, Prev: GNU Free Documentation License, Up: Top
+
+Index
+*****
+
+* Menu:
+
+* /inet/raw special files: File /inet/raw.
+* /inet/tcp special files: File /inet/tcp.
+* /inet/udp special files: File /inet/udp.
+* agent <1>: MOBAGWHO.
+* agent: Challenges.
+* AI: Challenges.
+* apache <1>: MOBAGWHO.
+* apache: WEBGRAB.
+* Bioinformatics: PROTBASE.
+* BLAST, Basic Local Alignment Search Tool: PROTBASE.
+* blocking: Making Connections.
+* Boutell, Thomas: STATIST.
+* CGI <1>: MOBAGWHO.
+* CGI <2>: Interacting Service.
+* CGI: Web page.
+* client: Making Connections.
+* Clinton, Bill: Challenges.
+* Computational Biology: PROTBASE.
+* Contest: Challenges.
+* cron: STOXPRED.
+* CSV format: STOXPRED.
+* dark corner: File /inet/raw.
+* Dow Jones Industrial Index: STOXPRED.
+* ELIZA program: Simple Server.
+* FASTA/Pearson format: PROTBASE.
+* finger utility: Setting Up.
+* FTP: Basic Protocols.
+* getline built-in function: TCP Connecting.
+* GETURL program: GETURL.
+* gif image format <1>: STATIST.
+* gif image format: Web page.
+* GNU/Linux <1>: REMCONF.
+* GNU/Linux <2>: Interacting.
+* GNU/Linux: Troubleshooting.
+* GNUPlot utility <1>: STATIST.
+* GNUPlot utility: Interacting Service.
+* GUI <1>: Simple Server.
+* GUI: Interacting Service.
+* Hoare, C.A.R. <1>: PROTBASE.
+* Hoare, C.A.R.: MOBAGWHO.
+* HTML: Web page.
+* HTTP <1>: Web page.
+* HTTP: Basic Protocols.
+* HTTP server, core logic: Interacting Service.
+* Humphrys, Mark: Simple Server.
+* image format <1>: STATIST.
+* image format: Interacting Service.
+* JavaScript <1>: STATIST.
+* JavaScript: Some Applications and Techniques.
+* Linux <1>: REMCONF.
+* Linux <2>: Interacting.
+* Linux: Troubleshooting.
+* Lisp: MOBAGWHO.
+* Loebner, Hugh: Challenges.
+* Loui, Ronald P.: Challenges.
+* MAZE: MAZE.
+* Microsoft Windows <1>: WEBGRAB.
+* Microsoft Windows <2>: Setting Up.
+* Microsoft Windows: Troubleshooting.
+* MiniSQL: REMCONF.
+* MOBAGWHO program: MOBAGWHO.
+* NCBI, National Center for Biotechnology Information: PROTBASE.
+* network <1>: Caveats.
+* network <2>: Gawk Special Files.
+* network: Using Networking.
+* Numerical Recipes: STATIST.
+* PANIC program: PANIC.
+* Perl: Using Networking.
+* Perlis, Alan: MAZE.
+* png image format <1>: STATIST.
+* png image format: Web page.
+* POP: Email.
+* PostScript: STATIST.
+* PROLOG: Challenges.
+* PROTBASE: PROTBASE.
+* ps image format: STATIST.
+* Python: Using Networking.
+* RAW: File /inet/raw.
+* REMCONF program: REMCONF.
+* reserved ports: Setting Up.
+* RFC 1939: Email.
+* RFC 1945: Web page.
+* RFC 2068 <1>: Interacting Service.
+* RFC 2068: Web page.
+* RFC 2616: Web page.
+* RFC 821: Email.
+* robot <1>: WEBGRAB.
+* robot <2>: GETURL.
+* robot: Challenges.
+* server <1>: Setting Up.
+* server: Making Connections.
+* SMTP <1>: Email.
+* SMTP: Basic Protocols.
+* SPAK utility: File /inet/raw.
+* STATIST program: STATIST.
+* STOXPRED program: STOXPRED.
+* synchronous communications: Making Connections.
+* Tcl/Tk <1>: Some Applications and Techniques.
+* Tcl/Tk: Using Networking.
+* TCP <1>: Interacting.
+* TCP: File /inet/tcp.
+* UDP <1>: Interacting.
+* UDP: File /inet/udp.
+* URLCHK program: URLCHK.
+* VRML: MAZE.
+* WEBGRAB program: WEBGRAB.
+* Weizenbaum, Joseph: Simple Server.
+* xbm image format: Interacting Service.
+* Yahoo: STOXPRED.
+* Yahoo! <1>: REMCONF.
+* Yahoo! <2>: Simple Server.
+* Yahoo!: Web page.
+* |& I/O operator: TCP Connecting.
+
+
+
+Tag Table:
+Node: Top1119
+Node: Preface3953
+Node: Introduction5331
+Node: Stream Communications6355
+Node: Datagram Communications7523
+Node: The TCP/IP Protocols9148
+Ref: The TCP/IP Protocols-Footnote-19824
+Node: Basic Protocols9981
+Node: Ports11288
+Node: Making Connections12685
+Ref: Making Connections-Footnote-115256
+Node: Using Networking15303
+Node: Gawk Special Files17627
+Node: Special File Fields19649
+Node: Comparing Protocols24957
+Node: File /inet/tcp25537
+Node: File /inet/udp26550
+Node: File /inet/raw27658
+Ref: File /inet/raw-Footnote-130678
+Node: TCP Connecting30758
+Node: Troubleshooting33093
+Ref: Troubleshooting-Footnote-136090
+Node: Interacting36609
+Node: Setting Up39332
+Node: Email42818
+Node: Web page45139
+Ref: Web page-Footnote-147939
+Node: Primitive Service48142
+Node: Interacting Service50869
+Ref: Interacting Service-Footnote-159992
+Node: CGI Lib60024
+Node: Simple Server66994
+Ref: Simple Server-Footnote-174716
+Node: Caveats74817
+Node: Challenges75958
+Node: Some Applications and Techniques84617
+Node: PANIC87073
+Node: GETURL88786
+Node: REMCONF91404
+Node: URLCHK96875
+Node: WEBGRAB100705
+Node: STATIST105150
+Ref: STATIST-Footnote-1116851
+Node: MAZE117296
+Node: MOBAGWHO123476
+Ref: MOBAGWHO-Footnote-1137412
+Node: STOXPRED137467
+Node: PROTBASE151742
+Node: Links164833
+Node: GNU Free Documentation License168265
+Node: Index188159
+
+End Tag Table
diff --git a/doc/gawkinet.texi b/doc/gawkinet.texi
new file mode 100644
index 00000000..2ffb5814
--- /dev/null
+++ b/doc/gawkinet.texi
@@ -0,0 +1,5075 @@
+\input texinfo @c -*-texinfo-*-
+@c %**start of header (This is for running Texinfo on a region.)
+@setfilename gawkinet.info
+@settitle TCP/IP Internetworking With @command{gawk}
+@c %**end of header (This is for running Texinfo on a region.)
+
+@c inside ifinfo for older versions of texinfo.tex
+@ifinfo
+@dircategory GNU Packages
+@direntry
+* Gawkinet: (gawkinet). TCP/IP Internetworking With @command{gawk}.
+@end direntry
+@end ifinfo
+
+@iftex
+@set DOCUMENT book
+@set CHAPTER chapter
+@set SECTION section
+@set DARKCORNER @inmargin{@image{lflashlight,1cm}, @image{rflashlight,1cm}}
+@end iftex
+@ifinfo
+@set DOCUMENT Info file
+@set CHAPTER major node
+@set SECTION node
+@set DARKCORNER (d.c.)
+@end ifinfo
+@ifhtml
+@set DOCUMENT web page
+@set CHAPTER chapter
+@set SECTION section
+@set DARKCORNER (d.c.)
+@end ifhtml
+
+@set FSF
+
+@set FN file name
+@set FFN File Name
+
+@c merge the function and variable indexes into the concept index
+@ifinfo
+@synindex fn cp
+@synindex vr cp
+@end ifinfo
+@iftex
+@syncodeindex fn cp
+@syncodeindex vr cp
+@end iftex
+
+@c If "finalout" is commented out, the printed output will show
+@c black boxes that mark lines that are too long. Thus, it is
+@c unwise to comment it out when running a master in case there are
+@c overfulls which are deemed okay.
+
+@iftex
+@finalout
+@end iftex
+
+@smallbook
+
+@c Special files are described in chapter 6 Printing Output under
+@c 6.7 Special File Names in gawk. I think the networking does not
+@c fit into that chapter, thus this separate document. At over 50
+@c pages, I think this is the right decision. ADR.
+
+@set TITLE TCP/IP Internetworking With @command{gawk}
+@set EDITION 1.1
+@set UPDATE-MONTH March, 2001
+@c gawk versions:
+@set VERSION 3.1
+@set PATCHLEVEL 0
+
+@ifinfo
+This file documents the networking features in GNU @command{awk}.
+
+This is Edition @value{EDITION} of @cite{@value{TITLE}},
+for the @value{VERSION}.@value{PATCHLEVEL} (or later) version of the GNU
+implementation of AWK.
+
+Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being ``GNU General Public License'', the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+``GNU Free Documentation License''.
+
+@enumerate a
+@item
+``A GNU Manual''
+
+@item
+``You have freedom to copy and modify this GNU Manual, like GNU
+software. Copies published by the Free Software Foundation raise
+funds for GNU development.''
+@end enumerate
+@end ifinfo
+
+@setchapternewpage odd
+
+@titlepage
+@title @value{TITLE}
+@subtitle Edition @value{EDITION}
+@subtitle @value{UPDATE-MONTH}
+@author J@"urgen Kahrs
+@author with Arnold D. Robbins
+
+@c Include the Distribution inside the titlepage environment so
+@c that headings are turned off. Headings on and off do not work.
+
+@page
+@vskip 0pt plus 1filll
+Copyright @copyright{} 2000, 2001 Free Software Foundation, Inc.
+@sp 1
+@b{User Friendly} Copyright @copyright{} 2000 J.D.@: ``Iliad'' Frazier.
+Reprinted by permission.
+@sp 2
+
+This is Edition @value{EDITION} of @cite{@value{TITLE}},
+for the @value{VERSION}.@value{PATCHLEVEL} (or later) version of the GNU
+implementation of AWK.
+
+@sp 2
+Published by:
+@sp 1
+
+Free Software Foundation @*
+59 Temple Place --- Suite 330 @*
+Boston, MA 02111-1307 USA @*
+Phone: +1-617-542-5942 @*
+Fax: +1-617-542-2652 @*
+Email: @email{gnu@@gnu.org} @*
+URL: @uref{http://www.gnu.org/} @*
+
+ISBN 1-882114-93-0 @*
+
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.1 or
+any later version published by the Free Software Foundation; with the
+Invariant Sections being ``GNU General Public License'', the Front-Cover
+texts being (a) (see below), and with the Back-Cover Texts being (b)
+(see below). A copy of the license is included in the section entitled
+``GNU Free Documentation License''.
+
+@enumerate a
+@item
+``A GNU Manual''
+
+@item
+``You have freedom to copy and modify this GNU Manual, like GNU
+software. Copies published by the Free Software Foundation raise
+funds for GNU development.''
+@end enumerate
+@c @sp 2
+@c Cover art by ?????.
+@end titlepage
+
+@iftex
+@headings off
+@evenheading @thispage@ @ @ @strong{@value{TITLE}} @| @|
+@oddheading @| @| @strong{@thischapter}@ @ @ @thispage
+@end iftex
+
+@ifinfo
+@node Top, Preface, (dir), (dir)
+@top General Introduction
+@comment node-name, next, previous, up
+
+This file documents the networking features in GNU Awk (@command{gawk})
+version 3.1 and later.
+@end ifinfo
+
+@menu
+* Preface:: About this document.
+* Introduction:: About networkiing.
+* Using Networking:: Some examples.
+* Some Applications and Techniques:: More extended examples.
+* Links:: Where to find the stuff mentioned in this
+ document.
+* GNU Free Documentation License:: The license for this document.
+* Index:: The index.
+
+@detailmenu
+* Stream Communications:: Sending data streams.
+* Datagram Communications:: Sending self-contained messages.
+* The TCP/IP Protocols:: How these models work in the Internet.
+* Basic Protocols:: The basic protocols.
+* Ports:: The idea behind ports.
+* Making Connections:: Making TCP/IP connections.
+* Gawk Special Files:: How to do @command{gawk} networking.
+* Special File Fields:: The fields in the special file name.
+* Comparing Protocols:: Differences between the protocols.
+* File /inet/tcp:: The TCP special file.
+* File /inet/udp:: The UDB special file.
+* File /inet/raw:: The RAW special file.
+* TCP Connecting:: Making a TCP connection.
+* Troubleshooting:: Troubleshooting TCP/IP connections.
+* Interacting:: Interacting with a service.
+* Setting Up:: Setting up a service.
+* Email:: Reading email.
+* Web page:: Reading a Web page.
+* Primitive Service:: A primitive Web service.
+* Interacting Service:: A Web service with interaction.
+* CGI Lib:: A simple CGI library.
+* Simple Server:: A simple Web server.
+* Caveats:: Network programming caveats.
+* Challenges:: Where to go from here.
+* PANIC:: An Emergency Web Server.
+* GETURL:: Retrieving Web Pages.
+* REMCONF:: Remote Configuration Of Embedded Systems.
+* URLCHK:: Look For Changed Web Pages.
+* WEBGRAB:: Extract Links From A Page.
+* STATIST:: Graphing A Statistical Distribution.
+* MAZE:: Walking Through A Maze In Virtual Reality.
+* MOBAGWHO:: A Simple Mobile Agent.
+* STOXPRED:: Stock Market Prediction As A Service.
+* PROTBASE:: Searching Through A Protein Database.
+@end detailmenu
+@end menu
+
+@contents
+
+@node Preface, Introduction, Top, Top
+@unnumbered Preface
+
+In May of 1997, J@"urgen Kahrs felt the need for network access
+from @command{awk}, and, with a little help from me, set about adding
+features to do this for @command{gawk}. At that time, he
+wrote the bulk of this @value{DOCUMENT}.
+
+The code and documentation were added to the @command{gawk} 3.1 development
+tree, and languished somewhat until I could finally get
+down to some serious work on that version of @command{gawk}.
+This finally happened in the middle of 2000.
+
+Meantime, J@"urgen wrote an article about the Internet special
+files and @samp{|&} operator for @cite{Linux Journal}, and made a
+networking patch for the production versions of @command{gawk}
+available from his home page.
+In August of 2000 (for @command{gawk} 3.0.6), this patch
+also made it to the main GNU @command{ftp} distribution site.
+
+For release with @command{gawk}, I edited J@"urgen's prose
+for English grammar and style, as he is not a native English
+speaker. I also
+rearranged the material somewhat for what I felt was a better order of
+presentation, and (re)wrote some of the introductory material.
+
+The majority of this document and the code are his work, and the
+high quality and interesting ideas speak for themselves. It is my
+hope that these features will be of significant value to the @command{awk}
+community.
+
+@sp 1
+@noindent
+Arnold Robbins @*
+Nof Ayalon, ISRAEL @*
+March, 2001
+
+@node Introduction, Using Networking, Preface, Top
+@chapter Networking Concepts
+
+This @value{CHAPTER} provides a (necessarily) brief intoduction to
+computer networking concepts. For many applications of @command{gawk}
+to TCP/IP networking, we hope that this is enough. For more
+advanced tasks, you will need deeper background, and it may be necessary
+to switch to lower-level programming in C or C++.
+
+There are two real-life models for the way computers send messages
+to each other over a network. While the analogies are not perfect,
+they are close enough to convey the major concepts.
+These two models are the phone system (reliable byte-stream communications),
+and the postal system (best-effort datagrams).
+
+@menu
+* Stream Communications:: Sending data streams.
+* Datagram Communications:: Sending self-contained messages.
+* The TCP/IP Protocols:: How these models work in the Internet.
+* Making Connections:: Making TCP/IP connections.
+@end menu
+
+@node Stream Communications, Datagram Communications, Introduction, Introduction
+@section Reliable Byte-streams (Phone Calls)
+
+When you make a phone call, the following steps occur:
+
+@enumerate
+@item
+You dial a number.
+
+@item
+The phone system connects to the called party, telling
+them there is an incoming call. (Their phone rings.)
+
+@item
+The other party answers the call, or, in the case of a
+computer network, refuses to answer the call.
+
+@item
+Assuming the other party answers, the connection between
+you is now a @dfn{duplex} (two-way), @dfn{reliable} (no data lost),
+sequenced (data comes out in the order sent) data stream.
+
+@item
+You and your friend may now talk freely, with the phone system
+moving the data (your voices) from one end to the other.
+From your point of view, you have a direct end-to-end
+connection with the person on the other end.
+@end enumerate
+
+The same steps occur in a duplex reliable computer networking connection.
+There is considerably more overhead in setting up the communications,
+but once it's done, data moves in both directions, reliably, in sequence.
+
+@node Datagram Communications, The TCP/IP Protocols, Stream Communications, Introduction
+@section Best-effort Datagrams (Mailed Letters)
+
+Suppose you mail three different documents to your office on the
+other side of the country on two different days. Doing so
+entails the following.
+
+@enumerate
+@item
+Each document travels in its own envelope.
+
+@item
+Each envelope contains both the sender and the
+recipient address.
+
+@item
+Each envelope may travel a different route to its destination.
+
+@item
+The envelopes may arrive in a different order from the one
+in which they were sent.
+
+@item
+One or more may get lost in the mail.
+(Although, fortunately, this does not occur very often.)
+
+@item
+In a computer network, one or more @dfn{packets}
+may also arrive multiple times. (This doesn't happen
+with the postal system!)
+
+@end enumerate
+
+The important characteristics of datagram communications, like
+those of the postal system are thus:
+
+@itemize @bullet
+@item
+Delivery is ``best effort;'' the data may never get there.
+
+@item
+Each message is self-contained, including the source and
+destination addresses.
+
+@item
+Delivery is @emph{not} sequenced; packets may arrive out
+of order, and/or multiple times.
+
+@item
+Unlike the phone system, overhead is considerably lower.
+It is not necessary to set up the call first.
+@end itemize
+
+The price the user pays for the lower overhead of datagram communications
+is exactly the lower reliability; it is often necessary for user-level
+protocols that use datagram communications to add their own reliabilty
+features on top of the basic communications.
+
+@node The TCP/IP Protocols, Making Connections, Datagram Communications, Introduction
+@section The Internet Protocols
+
+The Internet Protocol Suite (usually referred as just TCP/IP)@footnote{
+It should be noted that although the Internet seems to have conquered the
+world, there are other networking protocol suites in existence and in use.}
+consists of a number of different protocols at different levels or ``layers.''
+For our purposes, three protocols provide the fundamental communications
+mechanisms. All other defined protocols are referred to as user-level
+protocols (e.g., HTTP, used later in this @value{DOCUMENT}).
+
+@menu
+* Basic Protocols:: The basic protocols.
+* Ports:: The idea behind ports.
+@end menu
+
+@node Basic Protocols, Ports, The TCP/IP Protocols, The TCP/IP Protocols
+@subsection The Basic Internet Protocols
+
+@table @asis
+@item IP
+The Internet Protocol. This protocol is almost never used directly by
+applications. It provides the basic packet delivery and routing infrastructure
+of the Internet. Much like the phone company's switching centers or the Post
+Office's trucks, it is not of much day-to-day interest to the regular user
+(or programmer).
+It happens to be a best effort datagram protocol.
+
+@item UDP
+The User Datagram Protocol. This is a best effort datagram protocol.
+It provides a small amount of extra reliability over IP, and adds
+the notion of @dfn{ports}, described in @ref{Ports, ,TCP and UDP Ports}.
+
+@item TCP
+The Transmission Control Protocol. This is a duplex, reliable, sequenced
+byte-stream protocol, again layered on top of IP, and also providing the
+notion of ports. This is the protocol that you will most likely use
+when using @command{gawk} for network programming.
+@end table
+
+All other user-level protocols use either TCP or UDP to do their basic
+communications. Examples are SMTP (Simple Mail Transfer Protocol),
+FTP (File Transfer Protocol) and HTTP (HyperText Transfer Protocol).
+@cindex SMTP
+@cindex FTP
+@cindex HTTP
+
+@node Ports, , Basic Protocols, The TCP/IP Protocols
+@subsection TCP and UDP Ports
+
+In the postal system, the address on an envelope indicates a physical
+location, such as a residence or office building. But there may be
+more than one person at the location; thus you have to further quantify
+the recipient by putting a person or company name on the envelope.
+
+In the phone system, one phone number may represent an entire company,
+in which case you need a person's extension number in order to
+reach that individual directly. Or, when you call a home, you have to
+say, ``May I please speak to ...'' before talking to the person directly.
+
+IP networking provides the concept of addressing. An IP address represents
+a particular computer, but no more. In order to reach the mail service
+on a system, or the FTP or WWW service on a system, you have to have some
+way to further specify which service you want. In the Internet Protocol suite,
+this is done with @dfn{port numbers}, which represent the services, much
+like an extension number used with a phone number.
+
+Port numbers are 16-bit integers. Unix and Unix-like systems reserve ports
+below 1024 for ``well known'' services, such as SMTP, FTP, and HTTP.
+Numbers above 1024 may be used by any application, although there is no
+promise made that a particular port number is always available.
+
+@node Making Connections, , The TCP/IP Protocols, Introduction
+@section Making TCP/IP Connections (And Some Terminology)
+
+Two terms come up repeatedly when discussing networking:
+@dfn{client} and @dfn{server}. For now, we'll discuss these terms
+at the @dfn{connection level}, when first establishing connections
+between two processes on different systems over a network.
+(Once the connection is established, the higher level, or
+@dfn{application level} protocols,
+such as HTTP or FTP, determine who is the client and who is the
+server. Often, it turns out that the client and server are the
+same in both roles.)
+
+@cindex server
+The @dfn{server} is the system providing the service, such as the
+web server or email server. It is the @dfn{host} (system) which
+is @emph{connected to} in a transaction.
+For this to work though, the server must be expecting connections.
+Much as there has to be someone at the office building to answer
+the phone@footnote{In the days before voice mail systems!}, the
+server process (usually) has to be started first and waiting
+for a connection.
+
+@cindex client
+The @dfn{client} is the system requesting the service.
+It is the system @emph{initiating the connection} in a transaction.
+(Just as when you pick up the phone to call an office or store.)
+
+In the TCP/IP framework, each end of a connection is represented by a pair
+of (@var{address}, @var{port}) pairs. For the duration of the connection,
+the ports in use at each end are unique, and cannot be used simultaneously
+by other processes on the same system. (Only after closing a connection
+can a new one be built up on the same port. This is contrary to the usual
+behavior of fully developed web servers which have to avoid situations
+in which they are not reachable. We have to pay this price in order to
+enjoy the benefits of a simple communication paradigm in @command{gawk}.)
+
+@cindex blocking
+@cindex synchronous communications
+Furthermore, once the connection is established, communications
+are @dfn{synchronous}. I.e., each end waits on the other to finish
+transmitting, before replying. This is much like two people in a phone
+conversation. While both could talk simultaneously, doing so usually
+doesn't work too well.
+
+In the case of TCP, the synchronicity is enforced by the protocol when
+sending data. Data writes @dfn{block} until the data have been received on the
+other end. For both TCP and UDP, data reads block until there is incoming
+data waiting to be read. This is summarized in the following table,
+where an ``X'' indicates that the given action blocks.
+
+@ifnottex
+@multitable {Protocol} {Reads} {Writes}
+@item TCP @tab X @tab X
+@item UDP @tab X @tab
+@item RAW @tab X @tab
+@end multitable
+@end ifnottex
+@tex
+\centerline{
+\vbox{\bigskip % space above the table (about 1 linespace)
+% Because we have vertical rules, we can't let TeX insert interline space
+% in its usual way.
+\offinterlineskip
+\halign{\hfil\strut# &\vrule #& \hfil#\hfil& \hfil#\hfil\cr
+Protocol&&\quad Reads\quad &Writes\cr
+\noalign{\hrule}
+\omit&height 2pt\cr
+\noalign{\hrule height0pt}% without this the rule does not extend; why?
+TCP&&X&X\cr
+UDP&&X&\cr
+RAW&&X&\cr
+}}}
+@end tex
+
+@node Using Networking, Some Applications and Techniques, Introduction, Top
+@comment node-name, next, previous, up
+@chapter Networking With @command{gawk}
+
+@cindex network
+The @command{awk} programming language was originally developed as a
+pattern-matching language for writing short programs to perform
+data manipulation tasks.
+@command{awk}'s strength is the manipulation of textual data
+that is stored in files.
+It was never meant to be used for networking purposes.
+To exploit its features in a
+networking context, it's necessary to use an access mode for network connections
+that resembles the access of files as closely as possible.
+
+@cindex Perl
+@cindex Python
+@cindex Tcl/Tk
+@command{awk} is also meant to be a prototyping language. It is used
+to demonstrate feasibility and to play with features and user interfaces.
+This can be done with file-like handling of network
+connections.
+@command{gawk} trades the lack
+of many of the advanced features of the TCP/IP family of protocols
+for the convenience of simple connection handling.
+The advanced
+features are available when programming in C or Perl. In fact, the
+network programming
+in this @value{CHAPTER}
+is very similar to what is described in books like
+@cite{Internet Programming with Python},
+@cite{Advanced Perl Programming},
+or
+@cite{Web Client Programming with Perl}.
+But it's done here without first having to learn object-oriented ideology, underlying
+languages such as Tcl/Tk, Perl, Python, or all of the libraries necessary to
+extend these languages before they are ready for the Internet.
+
+This @value{CHAPTER} demonstrates how to use the TCP protocol. The
+other protocols are much less important for most users (UDP) or even
+untractable (RAW).
+
+@menu
+* Gawk Special Files:: How to do @command{gawk} networking.
+* TCP Connecting:: Making a TCP connection.
+* Troubleshooting:: Troubleshooting TCP/IP connections.
+* Interacting:: Interacting with a service.
+* Setting Up:: Setting up a service.
+* Email:: Reading email.
+* Web page:: Reading a Web page.
+* Primitive Service:: A primitive Web service.
+* Interacting Service:: A Web service with interaction.
+* Simple Server:: A simple Web server.
+* Caveats:: Network programming caveats.
+* Challenges:: Where to go from here.
+@end menu
+
+@node Gawk Special Files, TCP Connecting, Using Networking, Using Networking
+@comment node-name, next, previous, up
+@section @command{gawk} Networking Mechanisms
+@cindex network
+
+The @samp{|&} operator introduced in @command{gawk} 3.1 for use in
+communicating with a @dfn{co-process} is described in
+@ref{Two-way I/O, ,Two-way Communications With Another Process, gawk, GAWK: Effective AWK Programming}.
+It shows how to do two-way I/O to a
+separate process, sending it data with @code{print} or @code{printf} and
+reading data with @code{getline}. If you haven't read it already, you should
+detour there to do so.
+
+@command{gawk} transparently extends the two-way I/O mechanism to simple networking through
+the use of special @value{FN}s. When a ``co-process'' is started that matches
+the special files we are about to describe, @command{gawk} creates the appropriate network
+connection, and then two-way I/O proceeds as usual.
+
+At the C, C++ (and basic Perl) level, networking is accomplished
+via @dfn{sockets}, an Application Programming Interface (API) originally
+developed at the University of California at Berkeley that is now used
+almost universally for TCP/IP networking.
+Socket level programming, while fairly straightforward, requires paying
+attention to a number of details, as well as using binary data. It is not
+well-suited for use from a high-level language like @command{awk}.
+The special files provided in @command{gawk} hide the details from
+the programmer, making things much simpler and easier to use.
+@c Who sez we can't toot our own horn occasionally?
+
+The special @value{FN} for network access is made up of several fields, all
+of them mandatory, none of them optional:
+
+@example
+/inet/@var{protocol}/@var{localport}/@var{hostname}/@var{remoteport}
+@end example
+
+The @file{/inet/} field is, of course, constant when accessing the network.
+The @var{localport} and @var{remoteport} fields do not have a meaning
+when used with @file{/inet/raw} because ``ports'' only apply to
+TCP and UDP. So, when using @file{/inet/raw}, the port fields always have
+to be @samp{0}.
+
+@menu
+* Special File Fields:: The fields in the special file name.
+* Comparing Protocols:: Differences between the protocols.
+@end menu
+
+@node Special File Fields, Comparing Protocols, Gawk Special Files, Gawk Special Files
+@subsection The Fields of the Special @value{FFN}
+This @value{SECTION} explains the meaning of all the other fields,
+as well as the range of values and the defaults.
+All of the fields are mandatory. To let the system pick a value,
+or if the field doesn't apply to the protocol, specify it as @samp{0}.
+
+@table @var
+@item protocol
+Determines which member of the TCP/IP
+family of protocols is selected to transport the data across the
+network. There are three possible values (always written in lowercase):
+@samp{tcp}, @samp{udp}, and @samp{raw}. The exact meaning of each is
+explained later in this @value{SECTION}.
+
+@item localport
+Determines which port on the local
+machine is used to communicate across the network. It has no meaning
+with @file{/inet/raw} and must therefore be @samp{0}. Application level clients
+usually use @samp{0} to indicate they do not care which local port is
+used---instead they specify a remote port to connect to. It is vital for
+application level servers to use a number different from @samp{0} here
+because their service has to be available at a specific publicly-known
+port number. It is possible to use a name from @file{/etc/services} here.
+
+@item hostname
+Determines which remote host is to
+be at the other end of the connection. Application level servers must fill
+this field with a @samp{0} to indicate their being open for all other hosts
+to connect to them and enforce connection level server behavior this way.
+It is not possible for an application level server to restrict its
+availability to one remote host by entering a host name here.
+Application level clients must enter a name different from @samp{0}.
+The name can be either symbolic
+(e.g., @samp{jpl-devvax.jpl.nasa.gov}) or numeric (e.g., @samp{128.149.1.143}).
+
+@item remoteport
+Determines which port on the remote
+machine is used to communicate across the network. It has no meaning
+with @file{/inet/raw} and must therefore be 0.
+For @file{/inet/tcp} and @file{/inet/udp},
+application level clients @emph{must} use a number
+other than @samp{0} to indicate which port on the remote machine
+they want to connect to. Application level servers must not fill this field with
+a @samp{0}. Instead they specify a local port for clients to connect to.
+It is possible to use a name from @file{/etc/services} here.
+@end table
+
+Experts in network programming will notice that the usual
+client/server asymmetry found at the level of the socket API is not visible
+here. This is for the sake of simplicity of the high-level concept. If this
+asymmetry is necessary for your application,
+use another language.
+For @command{gawk}, it is
+more important to enable users to write a client program with a minimum
+of code. What happens when first accessing a network connection is seen
+in the following pseudo-code:
+
+@smallexample
+if ((name of remote host given) && (other side accepts connection)) @{
+ rendez-vous successful; transmit with getline or print
+@} else @{
+ if ((other side did not accept) && (localport == 0))
+ exit unsuccessful
+ if (TCP) @{
+ set up a server accepting connections
+ this means waiting for the client on the other side to connect
+ @} else
+ ready
+@}
+@end smallexample
+
+The exact behavior of this algorithm depends on the values of the
+fields of the special @value{FN}. When in doubt, the following table
+gives you the combinations of values and their meaning. If this
+table is too complicated, focus on the three lines printed in
+@strong{bold}. All the examples in
+@ref{Using Networking, ,Networking With @command{gawk}},
+use only the
+patterns printed in bold letters.
+
+@multitable {12345678901234} {123456} {123456} {1234567} {1234567890123456789012345}
+@item @sc{protocol} @tab @sc{local port} @tab @sc{host name}
+@tab @sc{remote port} @tab @sc{Resulting connection level behavior}
+@item @strong{tcp} @tab @strong{0} @tab @strong{x} @tab @strong{x} @tab
+ @strong{Dedicated client, fails if immediately connecting to a
+ server on the other side fails}
+@item udp @tab 0 @tab x @tab x @tab Dedicated client
+@item raw @tab 0 @tab x @tab 0 @tab Dedicated client, works only as @code{root}
+@item @strong{tcp, udp} @tab @strong{x} @tab @strong{x} @tab @strong{x} @tab
+ @strong{Client, switches to dedicated server if necessary}
+@item @strong{tcp, udp} @tab @strong{x} @tab @strong{0} @tab @strong{0} @tab
+ @strong{Dedicated server}
+@item raw @tab 0 @tab 0 @tab 0 @tab Dedicated server, works only as @code{root}
+@item tcp, udp, raw @tab x @tab x @tab 0 @tab Invalid
+@item tcp, udp, raw @tab 0 @tab 0 @tab x @tab Invalid
+@item tcp, udp, raw @tab x @tab 0 @tab x @tab Invalid
+@item tcp, udp @tab 0 @tab 0 @tab 0 @tab Invalid
+@item tcp, udp @tab 0 @tab x @tab 0 @tab Invalid
+@item raw @tab x @tab 0 @tab 0 @tab Invalid
+@item raw @tab 0 @tab x @tab x @tab Invalid
+@item raw @tab x @tab x @tab x @tab Invalid
+@end multitable
+
+In general, TCP is the preferred mechanism to use. It is the simplest
+protocol to understand and to use. Use the others only if circumstances
+demand low-overhead.
+
+@node Comparing Protocols, , Special File Fields, Gawk Special Files
+@subsection Comparing Protocols
+
+This @value{SECTION} develops a pair of programs (sender and receiver)
+that do nothing but send a timestamp from one machine to another. The
+sender and the receiver are implemented with each of the three protocols
+available and demonstrate the differences between them.
+
+@menu
+* File /inet/tcp:: The TCP special file.
+* File /inet/udp:: The UDB special file.
+* File /inet/raw:: The RAW special file.
+@end menu
+
+@node File /inet/tcp, File /inet/udp, Comparing Protocols, Comparing Protocols
+@subsubsection @file{/inet/tcp}
+@cindex @file{/inet/tcp} special files
+@cindex TCP
+Once again, always use TCP.
+(Use UDP when low-overhead is a necessity, and use RAW for
+network experimentation.)
+The first example is the sender
+program:
+
+@example
+# Server
+BEGIN @{
+ print strftime() |& "/inet/tcp/8888/0/0"
+ close("/inet/tcp/8888/0/0")
+@}
+@end example
+
+The receiver is very simple:
+
+@example
+# Client
+BEGIN @{
+ "/inet/tcp/0/localhost/8888" |& getline
+ print $0
+ close("/inet/tcp/0/localhost/8888")
+@}
+@end example
+
+TCP guarantees that the bytes arrive at the receiving end in exactly
+the same order that they were sent. No byte is lost
+(except for broken connections), doubled, or out of order. Some
+overhead is necessary to accomplish this, but this is the price to pay for
+a reliable service.
+It does matter which side starts first. The sender/server has to be started
+first, and it waits for the receiver to read a line.
+
+@node File /inet/udp, File /inet/raw, File /inet/tcp, Comparing Protocols
+@subsubsection @file{/inet/udp}
+@cindex @file{/inet/udp} special files
+@cindex UDP
+The server and client programs that use UDP are almost identical to their TCP counterparts;
+only the @var{protocol} has changed. As before, it does matter which side
+starts first. The receiving side blocks and waits for the sender.
+In this case, the receiver/client has to be started first:
+
+@page
+@example
+# Server
+BEGIN @{
+ print strftime() |& "/inet/udp/8888/0/0"
+ close("/inet/udp/8888/0/0")
+@}
+@end example
+
+The receiver is almost identical to the TCP receiver:
+
+@example
+# Client
+BEGIN @{
+ "/inet/udp/0/localhost/8888" |& getline
+ print $0
+ close("/inet/udp/0/localhost/8888")
+@}
+@end example
+
+UDP cannot guarantee that the datagrams at the receiving end will arrive in exactly
+the same order they were sent. Some datagrams could be
+lost, some doubled, and some out of order. But no overhead is necessary to
+accomplish this. This unreliable behavior is good enough for tasks
+such as data acquisition, logging, and even stateless services like NFS.
+
+@node File /inet/raw, , File /inet/udp, Comparing Protocols
+@subsubsection @file{/inet/raw}
+@cindex @file{/inet/raw} special files
+@cindex RAW
+
+This is an IP-level protocol. Only @code{root} is allowed to access this
+special file. It is meant to be the basis for implementing
+and experimenting with transport level protocols.@footnote{This special file
+is reserved, but not otherwise currently implemented.}
+In the most general case,
+the sender has to supply the encapsulating header bytes in front of the
+packet and the receiver has to strip the additional bytes from the message.
+
+@cindex dark corner
+RAW receivers cannot receive packets sent with TCP or UDP because the
+operating system does not deliver the packets to a RAW receiver. The
+operating system knows about some of the protocols on top of IP
+and decides on its own which packet to deliver to which process.
+@value{DARKCORNER}
+Therefore, the UDP receiver must be used for receiving UDP
+datagrams sent with the RAW sender. This is a dark corner, not only of
+@command{gawk}, but also of TCP/IP.
+
+@cindex SPAK utility
+For extended experimentation with protocols, look into
+the approach implemented in a tool called SPAK.
+This tool reflects the hierarchical layering of protocols (encapsulation)
+in the way data streams are piped out of one program into the next one.
+It shows which protocol is based on which other (lower-level) protocol
+by looking at the command-line ordering of the program calls.
+Cleverly thought out, SPAK is much better than @command{gawk}'s
+@file{/inet} for learning the meaning of each and every bit in the
+protocol headers.
+
+The next example uses the RAW protocol to emulate
+the behavior of UDP. The sender program is the same as above, but with some
+additional bytes that fill the places of the UDP fields:
+
+@example
+@group
+BEGIN @{
+ Message = "Hello world\n"
+ SourcePort = 0
+ DestinationPort = 8888
+ MessageLength = length(Message)+8
+ RawService = "/inet/raw/0/localhost/0"
+ printf("%c%c%c%c%c%c%c%c%s",
+ SourcePort/256, SourcePort%256,
+ DestinationPort/256, DestinationPort%256,
+ MessageLength/256, MessageLength%256,
+ 0, 0, Message) |& RawService
+ fflush(RawService)
+ close(RawService)
+@}
+@end group
+@end example
+
+Since this program tries
+to emulate the behavior of UDP, it checks if
+the RAW sender is understood by the UDP receiver but not if the RAW receiver
+can understand the UDP sender. In a real network, the
+RAW receiver is hardly
+of any use because it gets every IP packet that
+comes across the network. There are usually so many packets that
+@command{gawk} would be too slow for processing them.
+Only on a network with little
+traffic can the IP-level receiver program be tested. Programs for analyzing
+IP traffic on modem or ISDN channels should be possible.
+
+Port numbers do not have a meaning when using @file{/inet/raw}. Their fields
+have to be @samp{0}. Only TCP and UDP use ports. Receiving data from
+@file{/inet/raw} is difficult, not only because of processing speed but also
+because data is usually binary and not restricted to ASCII. This
+implies that line separation with @code{RS} does not work as usual.
+
+@node TCP Connecting, Troubleshooting, Gawk Special Files, Using Networking
+@section Establishing a TCP Connection
+
+Let's observe a network connection at work. Type in the following program
+and watch the output. Within a second, it connects via TCP (@file{/inet/tcp})
+to the machine it is running on (@samp{localhost}), and asks the service
+@samp{daytime} on the machine what time it is:
+
+@cindex @code{|&} I/O operator
+@cindex @code{getline} built-in function
+@example
+BEGIN @{
+ "/inet/tcp/0/localhost/daytime" |& getline
+ print $0
+ close("/inet/tcp/0/localhost/daytime")
+@}
+@end example
+
+Even experienced @command{awk} users will find the second line strange in two
+respects:
+
+@itemize @bullet
+@item
+A special file is used as a shell command that pipes its output
+into @code{getline}. One would rather expect to see the special file
+being read like any other file (@samp{getline <
+"/inet/tcp/0/localhost/daytime")}.
+
+@item
+The operator @samp{|&} has not been part of any @command{awk}
+implementation (until now).
+It is actually the only extension of the @command{awk}
+language needed (apart from the special files) to introduce network access.
+@end itemize
+
+The @samp{|&} operator was introduced in @command{gawk} 3.1 in order to
+overcome the crucial restriction that access to files and pipes in
+@command{awk} is always unidirectional. It was formerly impossible to use
+both access modes on the same file or pipe. Instead of changing the whole
+concept of file access, the @samp{|&} operator
+behaves exactly like the usual pipe operator except for two additions:
+
+@itemize @bullet
+@item
+Normal shell commands connected to their @command{gawk} program with a @samp{|&}
+pipe can be accessed bidirectionally. The @samp{|&} turns out to be a quite
+general, useful, and natural extension of @command{awk}.
+
+@item
+Pipes that consist of a special @value{FN} for network connections are not
+executed as shell commands. Instead, they can be read and written to, just
+like a full-duplex network connection.
+@end itemize
+
+In the earlier example, the @samp{|&} operator tells @code{getline}
+to read a line from the special file @file{/inet/tcp/0/localhost/daytime}.
+We could also have printed a line into the special file. But instead we just
+read a line with the time, printed it, and closed the connection.
+(While we could just let @command{gawk} close the connection by finishing
+the program, in this @value{DOCUMENT}
+we are pedantic, and always explicitly close the connections.)
+
+@node Troubleshooting, Interacting, TCP Connecting, Using Networking
+@section Troubleshooting Connection Problems
+It may well be that for some reason the above program does not run on your
+machine. When looking at possible reasons for this, you will learn much
+about typical problems that arise in network programming. First of all,
+your implementation of @command{gawk} may not support network access
+because it is
+a pre-3.1 version or you do not have a network interface in your machine.
+Perhaps your machine uses some other protocol
+like DECnet or Novell's IPX. For the rest of this @value{CHAPTER},
+we will assume
+you work on a Unix machine that supports TCP/IP. If the above program does
+not run on such a machine, it may help to replace the name
+@samp{localhost} with the name of your machine or its IP address. If it
+does, you could replace @samp{localhost} with the name of another machine
+in your vicinity. This way, the program connects to another machine.
+Now you should see the date and time being printed by the program.
+Otherwise your machine may not support the @samp{daytime} service.
+Try changing the service to @samp{chargen} or @samp{ftp}. This way, the program
+connects to other services that should give you some response. If you are
+curious, you should have a look at your file @file{/etc/services}. It could
+look like this:
+
+@ignore
+@multitable {1234567890123} {1234567890123} {123456789012345678901234567890123456789012}
+@item Service @strong{name} @tab Service @strong{number}
+@item echo @tab 7/tcp @tab echo sends back each line it receivces
+@item echo @tab 7/udp @tab echo is good for testing purposes
+@item discard @tab 9/tcp @tab discard behaves like @file{/dev/null}
+@item discard @tab 9/udp @tab discard just throws away each line
+@item daytime @tab 13/tcp @tab daytime sends date & time once per connection
+@item daytime @tab 13/udp
+@item chargen @tab 19/tcp @tab chargen infinitely produces character sets
+@item chargen @tab 19/udp @tab chargen is good for testing purposes
+@item ftp @tab 21/tcp @tab ftp is the usual file transfer protocol
+@item telnet @tab 23/tcp @tab telnet is the usual login facility
+@item smtp @tab 25/tcp @tab smtp is the Simple Mail Transfer Protocol
+@item finger @tab 79/tcp @tab finger tells you who is logged in
+@item www @tab 80/tcp @tab www is the HyperText Transfer Protocol
+@item pop2 @tab 109/tcp @tab pop2 is an older version of pop3
+@item pop2 @tab 109/udp
+@item pop3 @tab 110/tcp @tab pop3 is the Post Office Protocol
+@item pop3 @tab 110/udp @tab pop3 is used for receiving email
+@item nntp @tab 119/tcp @tab nntp is the USENET News Transfer Protocol
+@item irc @tab 194/tcp @tab irc is the Internet Relay Chat
+@item irc @tab 194/udp
+@end multitable
+@end ignore
+
+@smallexample
+# /etc/services:
+#
+# Network services, Internet style
+#
+# Name Number/Protcol Alternate name # Comments
+
+echo 7/tcp
+echo 7/udp
+discard 9/tcp sink null
+discard 9/udp sink null
+daytime 13/tcp
+daytime 13/udp
+chargen 19/tcp ttytst source
+chargen 19/udp ttytst source
+ftp 21/tcp
+telnet 23/tcp
+smtp 25/tcp mail
+finger 79/tcp
+www 80/tcp http # WorldWideWeb HTTP
+www 80/udp # HyperText Transfer Protocol
+pop-2 109/tcp postoffice # POP version 2
+pop-2 109/udp
+pop-3 110/tcp # POP version 3
+pop-3 110/udp
+nntp 119/tcp readnews untp # USENET News
+irc 194/tcp # Internet Relay Chat
+irc 194/udp
+@dots{}
+@end smallexample
+
+@cindex Linux
+@cindex GNU/Linux
+@cindex Microsoft Windows
+Here, you find a list of services that traditional Unix machines usually
+support. If your GNU/Linux machine does not do so, it may be that these
+services are switched off in some startup script. Systems running some
+flavor of Microsoft Windows usually do @emph{not} support such services.
+Nevertheless, it @emph{is} possible to do networking with @command{gawk} on
+Microsoft
+Windows.@footnote{Microsoft prefered to ignore the TCP/IP
+family of protocols until 1995. Then came the rise of the Netscape browser
+as a landmark ``killer application.'' Microsoft added TCP/IP support and
+their own browser to Microsoft Windows 95 at the last minute. They even back-ported
+their TCP/IP implementation to Microsoft Windows for Workgroups 3.11, but it was
+a rather rudimentary and half-hearted implementation. Nevertheless,
+the equivalent of @file{/etc/services} resides under
+@file{c:\windows\services} on Microsoft Windows.}
+The first column of the file gives the name of the service,
+the second a unique number, and the protocol that one can use to connect to
+this service.
+The rest of the line is treated as a comment.
+You see that some services (@samp{echo}) support TCP as
+well as UDP.
+
+@node Interacting, Setting Up, Troubleshooting, Using Networking
+@section Interacting with a Network Service
+
+The next program makes use of the possibility to really interact with a
+network service by printing something into the special file. It asks the
+so-called @command{finger} service if a user of the machine is logged in. When
+testing this program, try to change @samp{localhost} to
+some other machine name in your local network:
+
+@c system if test ! -d eg ; then mkdir eg ; fi
+@c system if test ! -d eg/network ; then mkdir eg/network ; fi
+@example
+@c file eg/network/fingerclient.awk
+BEGIN @{
+ NetService = "/inet/tcp/0/localhost/finger"
+ print "@var{name}" |& NetService
+ while ((NetService |& getline) > 0)
+ print $0
+ close(NetService)
+@}
+@c endfile
+@end example
+
+After telling the service on the machine which user to look for,
+the program repeatedly reads lines that come as a reply. When no more
+lines are coming (because the service has closed the connection), the
+program also closes the connection. Try replacing @code{"@var{name}"} with your
+login name (or the name of someone else logged in). For a list
+of all users currently logged in, replace @var{name} with an empty string
+@code{""}.
+
+@cindex Linux
+@cindex GNU/Linux
+The final @code{close} command could be safely deleted from
+the above script, because the operating system closes any open connection
+by default when a script reaches the end of execution. In order to avoid
+portability problems, it is best to always close connections explicitly.
+With the Linux kernel,
+for example, proper closing results in flushing of buffers. Letting
+the close happen by default may result in discarding buffers.
+
+@ignore
+@c Chuck comments that this seems out of place. He's right. I dunno
+@c where to put it though.
+@cindex @command{finger} utility
+@cindex RFC 1288
+In the early days of the Internet (up until about 1992), you could use
+such a program to check if some user in another country was logged in on
+a specific machine.
+RFC 1288@footnote{@uref{http://www.cis.ohio-state.edu/htbin/rfc/rfc1288.html}}
+provides the exact definition of the @command{finger} protocol.
+Every contemporary Unix system also has a command named @command{finger},
+which functions as a client for the protocol of the same name.
+Still today, some people maintain simple information systems
+with this ancient protocol. For example, by typing
+@samp{finger quake@@seismo.unr.edu}
+you get the latest @dfn{Earthquake Bulletin} for the state of Nevada.
+
+@cindex Earthquake Bulletin
+@smallexample
+$ finger quake@@seismo.unr.edu
+
+[@dots{}]
+
+DATE-(UTC)-TIME LAT LON DEP MAG COMMENTS
+yy/mm/dd hh:mm:ss deg. deg. km
+
+98/12/14 21:09:22 37.47N 116.30W 0.0 2.3Md 76.4 km S of WARM SPRINGS, NEVA
+98/12/14 22:05:09 39.69N 120.41W 11.9 2.1Md 53.8 km WNW of RENO, NEVADA
+98/12/15 14:14:19 38.04N 118.60W 2.0 2.3Md 51.0 km S of HAWTHORNE, NEVADA
+98/12/17 01:49:02 36.06N 117.58W 13.9 3.0Md 74.9 km SE of LONE PINE, CALIFOR
+98/12/17 05:39:26 39.95N 120.87W 6.2 2.6Md 101.6 km WNW of RENO, NEVADA
+98/12/22 06:07:42 38.68N 119.82W 5.2 2.3Md 50.7 km S of CARSON CITY, NEVAD
+@end smallexample
+
+@noindent
+This output from @command{finger} contains the time, location, depth,
+magnitude, and a short comment about
+the earthquakes registered in that region during the last 10 days.
+In many places today the use of such services is restricted
+because most networks have firewalls and proxy servers between them
+and the Internet. Most firewalls are programmed to not let
+@command{finger} requests go beyond the local network.
+
+@cindex Coke machine
+Another (ab)use of the @command{finger} protocol are several Coke machines
+that are connected to the Internet. There is a short list of such
+Coke machines.@footnote{@uref{http://ca.yahoo.com/Computers_and_Internet/Internet/Devices_Connected_to_the_Internet/Soda_Machines/}}
+You can access them either from the command-line or with a simple
+@command{gawk} script. They usually tell you about the different
+flavors of Coke and beer available there. If you have an account there,
+you can even order some drink this way.
+@end ignore
+
+When looking at @file{/etc/services} you may have noticed that the
+@samp{daytime} service is also available with @samp{udp}. In the earlier
+example, change @samp{tcp} to @samp{udp},
+and change @samp{finger} to @samp{daytime}.
+After starting the modified program, you see the expected day and time message.
+The program then hangs, because it waits for more lines coming from the
+service. However, they never come. This behavior is a consequence of the
+differences between TCP and UDP. When using UDP, neither party is
+automatically informed about the other closing the connection.
+Continuing to experiment this way reveals many other subtle
+differences between TCP and UDP. To avoid such trouble, one should always
+remember the advice Douglas E.@: Comer and David Stevens give in
+Volume III of their series @cite{Internetworking With TCP}
+(page 14):
+
+@cindex TCP
+@cindex UDP
+@quotation
+When designing client-server applications, beginners are strongly
+advised to use TCP because it provides reliable, connection-oriented
+communication. Programs only use UDP if the application protocol handles
+reliability, the application requires hardware broadcast or multicast,
+or the application cannot tolerate virtual circuit overhead.
+@end quotation
+
+@node Setting Up, Email, Interacting, Using Networking
+@section Setting Up a Service
+The preceding programs behaved as clients that connect to a server somewhere
+on the Internet and request a particular service. Now we set up such a
+service to mimic the behavior of the @samp{daytime} service.
+Such a server does not know in advance who is going to connect to it over
+the network. Therefore we cannot insert a name for the host to connect to
+in our special @value{FN}.
+
+Start the following program in one window. Notice that the service does
+not have the name @samp{daytime}, but the number @samp{8888}.
+From looking at @file{/etc/services}, you know that names like @samp{daytime}
+are just mnemonics for predetermined 16-bit integers.
+Only the system administrator (@code{root}) could enter
+our new service into @file{/etc/services} with an appropriate name.
+Also notice that the service name has to be entered into a different field
+of the special @value{FN} because we are setting up a server, not a client:
+
+@cindex @command{finger} utility
+@cindex server
+@example
+BEGIN @{
+ print strftime() |& "/inet/tcp/8888/0/0"
+ close("/inet/tcp/8888/0/0")
+@}
+@end example
+
+Now open another window on the same machine.
+Copy the client program given as the first example
+(@pxref{TCP Connecting, ,Establishing a TCP Connection})
+to a new file and edit it, changing the name @samp{daytime} to
+@samp{8888}. Then start the modified client. You should get a reply
+like this:
+
+@example
+Sat Sep 27 19:08:16 CEST 1997
+@end example
+
+@noindent
+Both programs explicitly close the connection.
+
+@cindex Microsoft Windows
+@cindex reserved ports
+Now we will intentionally make a mistake to see what happens when the name
+@samp{8888} (the so-called port) is already used by another service.
+Start the server
+program in both windows. The first one works, but the second one
+complains that it could not open the connection. Each port on a single
+machine can only be used by one server program at a time. Now terminate the
+server program and change the name @samp{8888} to @samp{echo}. After restarting it,
+the server program does not run any more and you know why: there already is
+an @samp{echo} service running on your machine. But even if this isn't true,
+you would not get
+your own @samp{echo} server running on a Unix machine,
+because the ports with numbers smaller
+than 1024 (@samp{echo} is at port 7) are reserved for @code{root}.
+On machines running some flavor of Microsoft Windows, there is no restriction
+that reserves ports 1 to 1024 for a privileged user; hence you can start
+an @samp{echo} server there.
+
+Turning this short server program into something really useful is simple.
+Imagine a server that first reads a @value{FN} from the client through the
+network connection, then does something with the file and
+sends a result back to the client. The server-side processing
+could be:
+
+@example
+BEGIN @{
+ NetService = "/inet/tcp/8888/0/0"
+ NetService |& getline
+ CatPipe = ("cat " $1) # sets $0 and the fields
+ while ((CatPipe | getline) > 0)
+ print $0 |& NetService
+ close(NetService)
+@}
+@end example
+
+@noindent
+and we would
+have a remote copying facility. Such a server reads the name of a file
+from any client that connects to it and transmits the contents of the
+named file across the net. The server-side processing could also be
+the execution of a command that is transmitted across the network. From this
+example, you can see how simple it is to open up a security hole on your
+machine. If you allow clients to connect to your machine and
+execute arbitrary commands, anyone would be free to do @samp{rm -rf *}.
+
+@node Email, Web page, Setting Up, Using Networking
+@section Reading Email
+@cindex POP
+@cindex SMTP
+@cindex RFC 1939
+@cindex RFC 821
+The distribution of email is usually done by dedicated email servers that
+communicate with your machine using special protocols. To receive email, we
+will use the Post Office Protocol (POP). Sending can be done with the much
+older Simple Mail Transfer Protocol (SMTP).
+@ignore
+@footnote{RFC 1939 defines POP.
+RFC 821 defines SMTP. See
+@uref{http://rfc.fh-koeln.de/doc/rfc/html/rfc.html, RFCs in HTML}.}
+@end ignore
+
+When you type in the following program, replace the @var{emailhost} by the
+name of your local email server. Ask your administrator if the server has a
+POP service, and then use its name or number in the program below.
+Now the program is ready to connect to your email server, but it will not
+succeed in retrieving your mail because it does not yet know your login
+name or password. Replace them in the program and it
+shows you the first email the server has in store:
+
+@example
+BEGIN @{
+ POPService = "/inet/tcp/0/@var{emailhost}/pop3"
+ RS = ORS = "\r\n"
+ print "user @var{name}" |& POPService
+ POPService |& getline
+ print "pass @var{password}" |& POPService
+ POPService |& getline
+ print "retr 1" |& POPService
+ POPService |& getline
+ if ($1 != "+OK") exit
+ print "quit" |& POPService
+ RS = "\r\n\\.\r\n"
+ POPService |& getline
+ print $0
+ close(POPService)
+@}
+@end example
+
+@cindex RFC 1939
+The record separators @code{RS} and @code{ORS} are redefined because the
+protocol (POP) requires CR-LF to separate lines. After identifying
+yourself to the email service, the command @samp{retr 1} instructs the
+service to send the first of all your email messages in line. If the service
+replies with something other than @samp{+OK}, the program exits; maybe there
+is no email. Otherwise, the program first announces that it intends to finish
+reading email, and then redefines @code{RS} in order to read the entire
+email as multiline input in one record. From the POP RFC, we know that the body
+of the email always ends with a single line containing a single dot.
+The program looks for this using @samp{RS = "\r\n\\.\r\n"}.
+When it finds this sequence in the mail message, it quits.
+You can invoke this program as often as you like; it does not delete the
+message it reads, but instead leaves it on the server.
+
+@node Web page, Primitive Service, Email, Using Networking
+@section Reading a Web Page
+@cindex HTTP
+@cindex RFC 2068
+@cindex RFC 2616
+
+Retrieving a web page from a web server is as simple as
+retrieving email from an email server. We only have to use a
+similar, but not identical, protocol and a different port. The name of the
+protocol is HyperText Transfer Protocol (HTTP) and the port number is usually
+80. As in the preceding @value{SECTION}, ask your administrator about the
+name of your local web server or proxy web server and its port number
+for HTTP requests.
+
+@ignore
+@c Chuck says this stuff isn't necessary
+More detailed information about HTTP can be found at
+the home of the web protocols,@footnote{@uref{http://www.w3.org/pub/WWW/Protocols}}
+including the specification of HTTP in RFC 2068. The protocol specification
+in RFC 2068 is concise and you can get it for free. If you need more
+explanation and you are willing to pay for a book, you might be
+interested in one of these books:
+
+@enumerate
+
+@item
+When we started writing web clients and servers with @command{gawk},
+the only book available with details about HTTP was the one by Paul Hethmon
+called
+@cite{Illustrated Guide to HTTP}.@footnote{@uref{http://www.browsebooks.com/Hethmon/?882}}
+Hethmon not only describes HTTP,
+he also implements a simple web server in C++.
+
+@item
+Since July 2000, O'Reilly offers the book by Clinton Wong called
+@cite{HTTP Pocket Reference}.@footnote{@uref{http://www.oreilly.com/catalog/httppr}}
+It only has 75 pages but its
+focus definitely is HTTP. This pocket reference is not a replacement
+for the RFC, but I wish I had had it back in 1997 when I started writing
+scripts to handle HTTP.
+
+@item
+Another small booklet about HTTP is the one by Toexcell Incorporated Staff,
+ISBN 1-58348-270-9, called
+@cite{Hypertext Transfer Protocol Http 1.0 Specifications}
+
+@end enumerate
+@end ignore
+
+The following program employs a rather crude approach toward retrieving a
+web page. It uses the prehistoric syntax of HTTP 0.9, which almost all
+web servers still support. The most noticeable thing about it is that the
+program directs the request to the local proxy server whose name you insert
+in the special @value{FN} (which in turn calls @samp{www.yahoo.com}):
+
+@example
+BEGIN @{
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/0/@var{proxy}/80"
+ print "GET http://www.yahoo.com" |& HttpService
+ while ((HttpService |& getline) > 0)
+ print $0
+ close(HttpService)
+@}
+@end example
+
+@cindex RFC 1945
+@cindex HTML
+@cindex Yahoo!
+Again, lines are separated by a redefined @code{RS} and @code{ORS}.
+The @code{GET} request that we send to the server is the only kind of
+HTTP request that existed when the web was created in the early 1990s.
+HTTP calls this @code{GET} request a ``method,'' which tells the
+service to transmit a web page (here the home page of the Yahoo! search
+engine). Version 1.0 added the request methods @code{HEAD} and
+@code{POST}. The current version of HTTP is 1.1,@footnote{Version 1.0 of
+HTTP was defined in RFC 1945. HTTP 1.1 was initially specified in RFC
+2068. In June 1999, RFC 2068 was made obsolete by RFC 2616. It is an update
+without any substantial changes.} and knows the additional request
+methods @code{OPTIONS}, @code{PUT}, @code{DELETE}, and @code{TRACE}.
+You can fill in any valid web address, and the program prints the
+HTML code of that page to your screen.
+
+Notice the similarity between the responses of the POP and HTTP
+services. First, you get a header that is terminated by an empty line, and
+then you get the body of the page in HTML. The lines of the headers also
+have the same form as in POP. There is the name of a parameter,
+then a colon, and finally the value of that parameter.
+
+@cindex CGI
+@cindex @file{gif} image format
+@cindex @file{png} image format
+Images (@file{.png} or @file{.gif} files) can also be retrieved this way,
+but then you
+get binary data that should be redirected into a file. Another
+application is calling a CGI (Common Gateway Interface) script on some
+server. CGI scripts are used when the contents of a web page are not
+constant, but generated instantly at the moment you send a request
+for the page. For example, to get a detailed report about the current
+quotes of Motorola stock shares, call a CGI script at Yahoo! with
+the following:
+
+@example
+get = "GET http://quote.yahoo.com/q?s=MOT&d=t"
+print get |& HttpService
+@end example
+
+You can also request weather reports this way.
+@ignore
+@cindex Boutell, Thomas
+A good book to go on with is
+the
+@cite{HTML Source Book}.@footnote{@uref{http://www.utoronto.ca/webdocs/HTMLdocs/NewHTML/book.html}}
+There are also some books on CGI programming
+like @cite{CGI Programming in C & Perl},
+by Thomas Boutell@footnote{@uref{http://cseng.aw.com/bookdetail.qry?ISBN=0-201-42219-0&ptype=0}},
+and @cite{The CGI Book}.@footnote{@uref{http://www.cgibook.com}}
+Another good source is @cite{The CGI Resource Index}}.@footnote{@uref{http://www.cgi-resources.com}}
+@end ignore
+
+@node Primitive Service, Interacting Service, Web page, Using Networking
+@section A Primitive Web Service
+Now we know enough about HTTP to set up a primitive web service that just
+says @code{"Hello, world"} when someone connects to it with a browser.
+Compared
+to the situation in the preceding @value{SECTION}, our program changes the role. It
+tries to behave just like the server we have observed. Since we are setting
+up a server here, we have to insert the port number in the @samp{localport}
+field of the special @value{FN}. The other two fields (@var{hostname} and
+@var{remoteport}) have to contain a @samp{0} because we do not know in
+advance which host will connect to our service.
+
+In the early 1990s, all a server had to do was send an HTML document and
+close the connection. Here, we adhere to the modern syntax of HTTP.
+The steps are as follows:
+
+@enumerate 1
+@item
+Send a status line telling the web browser that everything
+is OK.
+
+@item
+Send a line to tell the browser how many bytes follow in the
+body of the message. This was not necessary earlier because both
+parties knew that the document ended when the connection closed. Nowadays
+it is possible to stay connected after the transmission of one web page.
+This is to avoid the network traffic necessary for repeatedly establishing
+TCP connections for requesting several images. Thus, there is the need to tell
+the receiving party how many bytes will be sent. The header is terminated
+as usual with an empty line.
+
+@item
+Send the @code{"Hello, world"} body
+in HTML.
+The useless @code{while} loop swallows the request of the browser.
+We could actually omit the loop, and on most machines the program would still
+work.
+First, start the following program:
+@end enumerate
+
+@example
+@c file eg/network/hello-serv.awk
+BEGIN @{
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/8080/0/0"
+ Hello = "<HTML><HEAD>" \
+ "<TITLE>A Famous Greeting</TITLE></HEAD>" \
+ "<BODY><H1>Hello, world</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+@}
+@c endfile
+@end example
+
+Now, on the same machine, start your favorite browser and let it point to
+@uref{http://localhost:8080} (the browser needs to know on which port
+our server is listening for requests). If this does not work, the browser
+probably tries to connect to a proxy server that does not know your machine.
+If so, change the browser's configuration so that the browser does not try to
+use a proxy to connect to your machine.
+
+@node Interacting Service, Simple Server, Primitive Service, Using Networking
+@section A Web Service with Interaction
+@cindex GUI
+@ifinfo
+This node shows how to set up a simple web server.
+The subnode is a library file that we will use with all the examples in
+@ref{Some Applications and Techniques}.
+@end ifinfo
+
+@menu
+* CGI Lib:: A simple CGI library.
+@end menu
+
+Setting up a web service that allows user interaction is more difficult and
+shows us the limits of network access in @command{gawk}. In this @value{SECTION},
+we develop a main program (a @code{BEGIN} pattern and its action)
+that will become the core of event-driven execution controlled by a
+graphical user interface (GUI).
+Each HTTP event that the user triggers by some action within the browser
+is received in this central procedure. Parameters and menu choices are
+extracted from this request and an appropriate measure is taken according to
+the user's choice.
+For example:
+
+@cindex HTTP server, core logic
+@example
+BEGIN @{
+ if (MyHost == "") @{
+ "uname -n" | getline MyHost
+ close("uname -n")
+ @}
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ MyPrefix = "http://" MyHost ":" MyPort
+ SetUpServer()
+ while ("awk" != "complex") @{
+ # header lines are terminated this way
+ RS = ORS = "\r\n"
+ Status = 200 # this means OK
+ Reason = "OK"
+ Header = TopHeader
+ Document = TopDoc
+ Footer = TopFooter
+ if (GETARG["Method"] == "GET") @{
+ HandleGET()
+ @} else if (GETARG["Method"] == "HEAD") @{
+ # not yet implemented
+ @} else if (GETARG["Method"] != "") @{
+ print "bad method", GETARG["Method"]
+ @}
+ Prompt = Header Document Footer
+ print "HTTP/1.0", Status, Reason |& HttpService
+ print "Connection: Close" |& HttpService
+ print "Pragma: no-cache" |& HttpService
+ len = length(Prompt) + length(ORS)
+ print "Content-length:", len |& HttpService
+ print ORS Prompt |& HttpService
+ # ignore all the header lines
+ while ((HttpService |& getline) > 0)
+ ;
+ # stop talking to this client
+ close(HttpService)
+ # wait for new client request
+ HttpService |& getline
+ # do some logging
+ print systime(), strftime(), $0
+ # read request parameters
+ CGI_setup($1, $2, $3)
+ @}
+@}
+@end example
+
+This web server presents menu choices in the form of HTML links.
+Therefore, it has to tell the browser the name of the host it is
+residing on. When starting the server, the user may supply the name
+of the host from the command line with @samp{gawk -v MyHost="Rumpelstilzchen"}.
+If the user does not do this, the server looks up the name of the host it is
+running on for later use as a web address in HTML documents. The same
+applies to the port number. These values are inserted later into the
+HTML content of the web pages to refer to the home system.
+
+Each server that is built around this core has to initialize some
+application-dependent variables (such as the default home page) in a procedure
+@code{SetUpServer}, which is called immediately before entering the
+infinite loop of the server. For now, we will write an instance that
+initiates a trivial interaction. With this home page, the client user
+can click on two possible choices, and receive the current date either
+in human-readable format or in seconds since 1970:
+
+@example
+function SetUpServer() @{
+ TopHeader = "<HTML><HEAD>"
+ TopHeader = TopHeader \
+ "<title>My name is GAWK, GNU AWK</title></HEAD>"
+ TopDoc = "<BODY><h2>\
+ Do you prefer your date <A HREF=" MyPrefix \
+ "/human>human</A> or \
+ <A HREF=" MyPrefix "/POSIX>POSIXed</A>?</h2>" ORS ORS
+ TopFooter = "</BODY></HTML>"
+@}
+@end example
+
+On the first run through the main loop, the default line terminators are
+set and the default home page is copied to the actual home page. Since this
+is the first run, @code{GETARG["Method"]} is not initialized yet, hence the
+case selection over the method does nothing. Now that the home page is
+initialized, the server can start communicating to a client browser.
+
+@cindex RFC 2068
+@cindex CGI
+It does so by printing the HTTP header into the network connection
+(@samp{print @dots{} |& HttpService}). This command blocks execution of
+the server script until a client connects. If this server
+script is compared with the primitive one we wrote before, you will notice
+two additional lines in the header. The first instructs the browser
+to close the connection after each request. The second tells the
+browser that it should never try to @emph{remember} earlier requests
+that had identical web addresses (no caching). Otherwise, it could happen
+that the browser retrieves the time of day in the previous example just once,
+and later it takes the web page from the cache, always displaying the same
+time of day although time advances each second.
+
+Having supplied the initial home page to the browser with a valid document
+stored in the parameter @code{Prompt}, it closes the connection and waits
+for the next request. When the request comes, a log line is printed that
+allows us to see which request the server receives. The final step in the
+loop is to call the function @code{CGI_setup}, which reads all the lines
+of the request (coming from the browser), processes them, and stores the
+transmitted parameters in the array @code{PARAM}. The complete
+text of these application-independent functions can be found in
+@ref{CGI Lib, ,A Simple CGI Library}.
+For now, we use a simplified version of @code{CGI_setup}:
+
+@example
+function CGI_setup( method, uri, version, i) @{
+ delete GETARG; delete MENU; delete PARAM
+ GETARG["Method"] = $1
+ GETARG["URI"] = $2
+ GETARG["Version"] = $3
+ i = index($2, "?")
+ # is there a "?" indicating a CGI request?
+@group
+ if (i > 0) @{
+ split(substr($2, 1, i-1), MENU, "[/:]")
+ split(substr($2, i+1), PARAM, "&")
+ for (i in PARAM) @{
+ j = index(PARAM[i], "=")
+ GETARG[substr(PARAM[i], 1, j-1)] = \
+ substr(PARAM[i], j+1)
+ @}
+ @} else @{ # there is no "?", no need for splitting PARAMs
+ split($2, MENU, "[/:]")
+ @}
+@end group
+@}
+@end example
+
+At first, the function clears all variables used for
+global storage of request parameters. The rest of the function serves
+the purpose of filling the global parameters with the extracted new values.
+To accomplish this, the name of the requested resource is split into
+parts and stored for later evaluation. If the request contains a @samp{?},
+then the request has CGI variables seamlessly appended to the web address.
+Everything in front of the @samp{?} is split up into menu items, and
+everything behind the @samp{?} is a list of @samp{@var{variable}=@var{value}} pairs
+(separated by @samp{&}) that also need splitting. This way, CGI variables are
+isolated and stored. This procedure lacks recognition of special characters
+that are transmitted in coded form@footnote{As defined in RFC 2068.}. Here, any
+optional request header and body parts are ignored. We do not need
+header parameters and the request body. However, when refining our approach or
+working with the @code{POST} and @code{PUT} methods, reading the header
+and body
+becomes inevitable. Header parameters should then be stored in a global
+array as well as the body.
+
+On each subsequent run through the main loop, one request from a browser is
+received, evaluated, and answered according to the user's choice. This can be
+done by letting the value of the HTTP method guide the main loop into
+execution of the procedure @code{HandleGET}, which evaluates the user's
+choice. In this case, we have only one hierarchical level of menus,
+but in the general case,
+menus are nested.
+The menu choices at each level are
+separated by @samp{/}, just as in @value{FN}s. Notice how simple it is to
+construct menus of arbitrary depth:
+
+@example
+function HandleGET() @{
+ if ( MENU[2] == "human") @{
+ Footer = strftime() TopFooter
+ @} else if (MENU[2] == "POSIX") @{
+ Footer = systime() TopFooter
+ @}
+@}
+@end example
+
+@cindex CGI
+The disadvantage of this approach is that our server is slow and can
+handle only one request at a time. Its main advantage, however, is that
+the server
+consists of just one @command{gawk} program. No need for installing an
+@command{httpd}, and no need for static separate HTML files, CGI scripts, or
+@code{root} privileges. This is rapid prototyping.
+This program can be started on the same host that runs your browser.
+Then let your browser point to @uref{http://localhost:8080}.
+
+@cindex @file{xbm} image format
+@cindex image format
+@cindex GNUPlot utility
+It is also possible to include images into the HTML pages.
+Most browsers support the not very well-known
+@file{.xbm} format,
+which may contain only
+monochrome pictures but is an ASCII format. Binary images are possible but
+not so easy to handle. Another way of including images is to generate them
+with a tool such as GNUPlot,
+by calling the tool with the @code{system} function or through a pipe.
+
+@node CGI Lib, , Interacting Service, Interacting Service
+@subsection A Simple CGI Library
+@quotation
+@i{HTTP is like being married: you have to be able to handle whatever
+you're given, while being very careful what you send back.}@*
+Phil Smith III,@*
+@uref{http://www.netfunny.com/rhf/jokes/99/Mar/http.html}
+@end quotation
+
+In @ref{Interacting Service, ,A Web Service with Interaction},
+we saw the function @code{CGI_setup} as part of the web server
+``core logic'' framework. The code presented there handles almost
+everything necessary for CGI requests.
+One thing it doesn't do is handle encoded characters in the requests.
+For example, an @samp{&} is encoded as a percent sign followed by
+the hexadecimal value---@samp{%26}. These encoded values should be
+decoded.
+Following is a simple library to perform these tasks.
+This code is used for all web server examples
+used throughout the rest of this @value{DOCUMENT}.
+If you want to use it for your own web server, store the source code
+into a file named @file{inetlib.awk}. Then you can include
+these functions into your code by placing the following statement
+into your program:
+
+@example
+@@include inetlib.awk
+@end example
+
+@noindent
+on the first line of your script. But beware, this mechanism is
+only possible if you invoke your web server script with @command{igawk}
+instead of the usual @command{awk} or @command{gawk}.
+Here is the code:
+
+@example
+@c file eg/network/coreserv.awk
+# CGI Library and core of a web server
+@c endfile
+@ignore
+@c file eg/network/coreserv.awk
+#
+# Juergen Kahrs, Juergen.Kahrs@@vr-web.de
+# with Arnold Robbins, arnold@@gnu.org
+# September 2000
+
+@c endfile
+@end ignore
+@c file eg/network/coreserv.awk
+# Global arrays
+# GETARG --- arguments to CGI GET command
+# MENU --- menu items (path names)
+# PARAM --- parameters of form x=y
+
+# Optional variable MyHost contains host address
+# Optional variable MyPort contains port number
+# Needs TopHeader, TopDoc, TopFooter
+# Sets MyPrefix, HttpService, Status, Reason
+
+BEGIN @{
+ if (MyHost == "") @{
+ "uname -n" | getline MyHost
+ close("uname -n")
+ @}
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ MyPrefix = "http://" MyHost ":" MyPort
+ SetUpServer()
+ while ("awk" != "complex") @{
+ # header lines are terminated this way
+ RS = ORS = "\r\n"
+ Status = 200 # this means OK
+ Reason = "OK"
+ Header = TopHeader
+ Document = TopDoc
+ Footer = TopFooter
+ if (GETARG["Method"] == "GET") @{
+ HandleGET()
+ @} else if (GETARG["Method"] == "HEAD") @{
+ # not yet implemented
+ @} else if (GETARG["Method"] != "") @{
+ print "bad method", GETARG["Method"]
+ @}
+ Prompt = Header Document Footer
+ print "HTTP/1.0", Status, Reason |& HttpService
+ print "Connection: Close" |& HttpService
+ print "Pragma: no-cache" |& HttpService
+ len = length(Prompt) + length(ORS)
+ print "Content-length:", len |& HttpService
+ print ORS Prompt |& HttpService
+ # ignore all the header lines
+ while ((HttpService |& getline) > 0)
+ continue
+ # stop talking to this client
+ close(HttpService)
+ # wait for new client request
+ HttpService |& getline
+ # do some logging
+ print systime(), strftime(), $0
+ CGI_setup($1, $2, $3)
+ @}
+@}
+
+function CGI_setup( method, uri, version, i)
+@{
+ delete GETARG
+ delete MENU
+ delete PARAM
+ GETARG["Method"] = method
+ GETARG["URI"] = uri
+ GETARG["Version"] = version
+
+ i = index(uri, "?")
+ if (i > 0) @{ # is there a "?" indicating a CGI request?
+ split(substr(uri, 1, i-1), MENU, "[/:]")
+ split(substr(uri, i+1), PARAM, "&")
+ for (i in PARAM) @{
+ PARAM[i] = _CGI_decode(PARAM[i])
+ j = index(PARAM[i], "=")
+ GETARG[substr(PARAM[i], 1, j-1)] = \
+ substr(PARAM[i], j+1)
+ @}
+ @} else @{ # there is no "?", no need for splitting PARAMs
+ split(uri, MENU, "[/:]")
+ @}
+ for (i in MENU) # decode characters in path
+ if (i > 4) # but not those in host name
+ MENU[i] = _CGI_decode(MENU[i])
+@}
+@c endfile
+@end example
+
+This isolates details in a single function, @code{CGI_setup}.
+Decoding of encoded characters is pushed off to a helper function,
+@code{_CGI_decode}. The use of the leading underscore (@samp{_}) in
+the function name is intended to indicate that it is an ``internal''
+function, although there is nothing to enforce this:
+
+@example
+@c file eg/network/coreserv.awk
+function _CGI_decode(str, hexdigs, i, pre, code1, code2,
+ val, result)
+@{
+ hexdigs = "123456789abcdef"
+
+ i = index(str, "%")
+ if (i == 0) # no work to do
+ return str
+
+ do @{
+ pre = substr(str, 1, i-1) # part before %xx
+ code1 = substr(str, i+1, 1) # first hex digit
+ code2 = substr(str, i+2, 1) # second hex digit
+ str = substr(str, i+3) # rest of string
+
+ code1 = tolower(code1)
+ code2 = tolower(code2)
+ val = index(hexdigs, code1) * 16 \
+ + index(hexdigs, code2)
+
+ result = result pre sprintf("%c", val)
+ i = index(str, "%")
+ @} while (i != 0)
+ if (length(str) > 0)
+ result = result str
+ return result
+@}
+@c endfile
+@end example
+
+This works by splitting the string apart around an encoded character.
+The two digits are converted to lowercase and looked up in a string
+of hex digits. Note that @code{0} is not in the string on purpose;
+@code{index} returns zero when it's not found, automatically giving
+the correct value! Once the hexadecimal value is converted from
+characters in a string into a numerical value, @code{sprintf}
+converts the value back into a real character.
+The following is a simple test harness for the above functions:
+
+@example
+@c file eg/network/testserv.awk
+BEGIN @{
+ CGI_setup("GET",
+ "http://www.gnu.org/cgi-bin/foo?p1=stuff&p2=stuff%26junk" \
+ "&percent=a %25 sign",
+ "1.0")
+ for (i in MENU)
+ printf "MENU[\"%s\"] = %s\n", i, MENU[i]
+ for (i in PARAM)
+ printf "PARAM[\"%s\"] = %s\n", i, PARAM[i]
+ for (i in GETARG)
+ printf "GETARG[\"%s\"] = %s\n", i, GETARG[i]
+@}
+@c endfile
+@end example
+
+And this is the result when we run it:
+
+@c artificial line wrap in last output line
+@example
+$ gawk -f testserv.awk
+@print{} MENU["4"] = www.gnu.org
+@print{} MENU["5"] = cgi-bin
+@print{} MENU["6"] = foo
+@print{} MENU["1"] = http
+@print{} MENU["2"] =
+@print{} MENU["3"] =
+@print{} PARAM["1"] = p1=stuff
+@print{} PARAM["2"] = p2=stuff&junk
+@print{} PARAM["3"] = percent=a % sign
+@print{} GETARG["p1"] = stuff
+@print{} GETARG["percent"] = a % sign
+@print{} GETARG["p2"] = stuff&junk
+@print{} GETARG["Method"] = GET
+@print{} GETARG["Version"] = 1.0
+@print{} GETARG["URI"] = http://www.gnu.org/cgi-bin/foo?p1=stuff&
+p2=stuff%26junk&percent=a %25 sign
+@end example
+
+@node Simple Server, Caveats, Interacting Service, Using Networking
+@section A Simple Web Server
+@cindex GUI
+In the preceding @value{SECTION}, we built the core logic for event driven GUIs.
+In this @value{SECTION}, we finally extend the core to a real application.
+No one would actually write a commercial web server in @command{gawk}, but
+it is instructive to see that it is feasible in principle.
+
+@iftex
+@image{uf002331,4in}
+@end iftex
+
+@cindex ELIZA program
+@cindex Weizenbaum, Joseph
+The application is ELIZA, the famous program by Joseph Weizenbaum that
+mimics the behavior of a professional psychotherapist when talking to you.
+Weizenbaum would certainly object to this description, but this is part of
+the legend around ELIZA.
+Take the site-independent core logic and append the following code:
+
+@example
+@c file eg/network/eliza.awk
+function SetUpServer() @{
+ SetUpEliza()
+ TopHeader = \
+ "<HTML><title>An HTTP-based System with GAWK</title>\
+ <HEAD><META HTTP-EQUIV=\"Content-Type\"\
+ CONTENT=\"text/html; charset=iso-8859-1\"></HEAD>\
+ <BODY BGCOLOR=\"#ffffff\" TEXT=\"#000000\"\
+ LINK=\"#0000ff\" VLINK=\"#0000ff\"\
+ ALINK=\"#0000ff\"> <A NAME=\"top\">"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI>\
+ <A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ </LI><LI>\
+ <A HREF=" MyPrefix "/AboutELIZA>About Eliza</A></LI>\
+ <LI>\
+ <A HREF=" MyPrefix \
+ "/StartELIZA>Start talking to Eliza</A></LI></UL>"
+ TopFooter = "</BODY></HTML>"
+@}
+@c endfile
+@end example
+
+@code{SetUpServer} is similar to the previous example,
+except for calling another function, @code{SetUpEliza}.
+This approach can be used to implement other kinds of servers.
+The only changes needed to do so are hidden in the functions
+@code{SetUpServer} and @code{HandleGET}. Perhaps it might be necessary to
+implement other HTTP methods.
+The @command{igawk} program that comes with @command{gawk}
+may be useful for this process.
+
+When extending this example to a complete application, the first
+thing to do is to implement the function @code{SetUpServer} to
+initialize the HTML pages and some variables. These initializations
+determine the way your HTML pages look (colors, titles, menu
+items, etc.).
+
+@cindex GUI
+The function @code{HandleGET} is a nested case selection that decides
+which page the user wants to see next. Each nesting level refers to a menu
+level of the GUI. Each case implements a certain action of the menu. On the
+deepest level of case selection, the handler essentially knows what the
+user wants and stores the answer into the variable that holds the HTML
+page contents:
+
+@smallexample
+@c file eg/network/eliza.awk
+function HandleGET() @{
+ # A real HTTP server would treat some parts of the URI as a file name.
+ # We take parts of the URI as menu choices and go on accordingly.
+ if(MENU[2] == "AboutServer") @{
+ Document = "This is not a CGI script.\
+ This is an httpd, an HTML file, and a CGI script all \
+ in one GAWK script. It needs no separate www-server, \
+ no installation, and no root privileges.\
+ <p>To run it, do this:</p><ul>\
+ <li> start this script with \"gawk -f httpserver.awk\",</li>\
+ <li> and on the same host let your www browser open location\
+ \"http://localhost:8080\"</li>\
+ </ul>\<p>\ Details of HTTP come from:</p><ul>\
+ <li>Hethmon: Illustrated Guide to HTTP</p>\
+ <li>RFC 2068</li></ul><p>JK 14.9.1997</p>"
+ @} else if (MENU[2] == "AboutELIZA") @{
+ Document = "This is an implementation of the famous ELIZA\
+ program by Joseph Weizenbaum. It is written in GAWK and\
+/bin/sh: expad: command not found
+ @} else if (MENU[2] == "StartELIZA") @{
+ gsub(/\+/, " ", GETARG["YouSay"])
+ # Here we also have to substitute coded special characters
+ Document = "<form method=GET>" \
+ "<h3>" ElizaSays(GETARG["YouSay"]) "</h3>\
+ <p><input type=text name=YouSay value=\"\" size=60>\
+ <br><input type=submit value=\"Tell her about it\"></p></form>"
+ @}
+@}
+@c endfile
+@end smallexample
+
+Now we are down to the heart of ELIZA, so you can see how it works.
+Initially the user does not say anything; then ELIZA resets its money
+counter and asks the user to tell what comes to mind open heartedly.
+The subsequent answers are converted to uppercase and stored for
+later comparison. ELIZA presents the bill when being confronted with
+a sentence that contains the phrase ``shut up.'' Otherwise, it looks for
+keywords in the sentence, conjugates the rest of the sentence, remembers
+the keyword for later use, and finally selects an answer from the set of
+possible answers:
+
+@smallexample
+@c file eg/network/eliza.awk
+function ElizaSays(YouSay) @{
+ if (YouSay == "") @{
+ cost = 0
+ answer = "HI, IM ELIZA, TELL ME YOUR PROBLEM"
+ @} else @{
+ q = toupper(YouSay)
+ gsub("'", "", q)
+ if(q == qold) @{
+ answer = "PLEASE DONT REPEAT YOURSELF !"
+ @} else @{
+ if (index(q, "SHUT UP") > 0) @{
+ answer = "WELL, PLEASE PAY YOUR BILL. ITS EXACTLY ... $"\
+ int(100*rand()+30+cost/100)
+ @} else @{
+ qold = q
+ w = "-" # no keyword recognized yet
+ for (i in k) @{ # search for keywords
+ if (index(q, i) > 0) @{
+ w = i
+ break
+ @}
+ @}
+ if (w == "-") @{ # no keyword, take old subject
+ w = wold
+ subj = subjold
+ @} else @{ # find subject
+ subj = substr(q, index(q, w) + length(w)+1)
+ wold = w
+ subjold = subj # remember keyword and subject
+ @}
+ for (i in conj)
+ gsub(i, conj[i], q) # conjugation
+ # from all answers to this keyword, select one randomly
+ answer = r[indices[int(split(k[w], indices) * rand()) + 1]]
+ # insert subject into answer
+ gsub("_", subj, answer)
+ @}
+ @}
+ @}
+ cost += length(answer) # for later payment : 1 cent per character
+ return answer
+@}
+@c endfile
+@end smallexample
+
+In the long but simple function @code{SetUpEliza}, you can see tables
+for conjugation, keywords, and answers.@footnote{The version shown
+here is abbreviated. The full version comes with the @command{gawk}
+distribution.} The associative array @code{k}
+contains indices into the array of answers @code{r}. To choose an
+answer, ELIZA just picks an index randomly:
+
+@example
+@c file eg/network/eliza.awk
+function SetUpEliza() @{
+ srand()
+ wold = "-"
+ subjold = " "
+
+ # table for conjugation
+ conj[" ARE " ] = " AM "
+ conj["WERE " ] = "WAS "
+ conj[" YOU " ] = " I "
+ conj["YOUR " ] = "MY "
+ conj[" IVE " ] =\
+ conj[" I HAVE " ] = " YOU HAVE "
+ conj[" YOUVE " ] =\
+ conj[" YOU HAVE "] = " I HAVE "
+ conj[" IM " ] =\
+ conj[" I AM " ] = " YOU ARE "
+ conj[" YOURE " ] =\
+ conj[" YOU ARE " ] = " I AM "
+
+ # table of all answers
+ r[1] = "DONT YOU BELIEVE THAT I CAN _"
+ r[2] = "PERHAPS YOU WOULD LIKE TO BE ABLE TO _ ?"
+@c endfile
+ @dots{}
+@end example
+@ignore
+@c file eg/network/eliza.awk
+ r[3] = "YOU WANT ME TO BE ABLE TO _ ?"
+ r[4] = "PERHAPS YOU DONT WANT TO _ "
+ r[5] = "DO YOU WANT TO BE ABLE TO _ ?"
+ r[6] = "WHAT MAKES YOU THINK I AM _ ?"
+ r[7] = "DOES IT PLEASE YOU TO BELIEVE I AM _ ?"
+ r[8] = "PERHAPS YOU WOULD LIKE TO BE _ ?"
+ r[9] = "DO YOU SOMETIMES WISH YOU WERE _ ?"
+ r[10] = "DONT YOU REALLY _ ?"
+ r[11] = "WHY DONT YOU _ ?"
+ r[12] = "DO YOU WISH TO BE ABLE TO _ ?"
+ r[13] = "DOES THAT TROUBLE YOU ?"
+ r[14] = "TELL ME MORE ABOUT SUCH FEELINGS"
+ r[15] = "DO YOU OFTEN FEEL _ ?"
+ r[16] = "DO YOU ENJOY FEELING _ ?"
+ r[17] = "DO YOU REALLY BELIEVE I DONT _ ?"
+ r[18] = "PERHAPS IN GOOD TIME I WILL _ "
+ r[19] = "DO YOU WANT ME TO _ ?"
+ r[20] = "DO YOU THINK YOU SHOULD BE ABLE TO _ ?"
+ r[21] = "WHY CANT YOU _ ?"
+ r[22] = "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM _ ?"
+ r[23] = "WOULD YOU PREFER IF I WERE NOT _ ?"
+ r[24] = "PERHAPS IN YOUR FANTASIES I AM _ "
+ r[25] = "HOW DO YOU KNOW YOU CANT _ ?"
+ r[26] = "HAVE YOU TRIED ?"
+ r[27] = "PERHAPS YOU CAN NOW _ "
+ r[28] = "DID YOU COME TO ME BECAUSE YOU ARE _ ?"
+ r[29] = "HOW LONG HAVE YOU BEEN _ ?"
+ r[30] = "DO YOU BELIEVE ITS NORMAL TO BE _ ?"
+ r[31] = "DO YOU ENJOY BEING _ ?"
+ r[32] = "WE WERE DISCUSSING YOU -- NOT ME"
+ r[33] = "Oh, I _"
+ r[34] = "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU ?"
+ r[35] = "WHAT WOULD IT MEAN TO YOU, IF YOU GOT _ ?"
+ r[36] = "WHY DO YOU WANT _ ?"
+ r[37] = "SUPPOSE YOU SOON GOT _"
+ r[38] = "WHAT IF YOU NEVER GOT _ ?"
+ r[39] = "I SOMETIMES ALSO WANT _"
+ r[40] = "WHY DO YOU ASK ?"
+ r[41] = "DOES THAT QUESTION INTEREST YOU ?"
+ r[42] = "WHAT ANSWER WOULD PLEASE YOU THE MOST ?"
+ r[43] = "WHAT DO YOU THINK ?"
+ r[44] = "ARE SUCH QUESTIONS IN YOUR MIND OFTEN ?"
+ r[45] = "WHAT IS IT THAT YOU REALLY WANT TO KNOW ?"
+ r[46] = "HAVE YOU ASKED ANYONE ELSE ?"
+ r[47] = "HAVE YOU ASKED SUCH QUESTIONS BEFORE ?"
+ r[48] = "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT ?"
+ r[49] = "NAMES DON'T INTEREST ME"
+ r[50] = "I DONT CARE ABOUT NAMES -- PLEASE GO ON"
+ r[51] = "IS THAT THE REAL REASON ?"
+ r[52] = "DONT ANY OTHER REASONS COME TO MIND ?"
+ r[53] = "DOES THAT REASON EXPLAIN ANYTHING ELSE ?"
+ r[54] = "WHAT OTHER REASONS MIGHT THERE BE ?"
+ r[55] = "PLEASE DON'T APOLOGIZE !"
+ r[56] = "APOLOGIES ARE NOT NECESSARY"
+ r[57] = "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE ?"
+ r[58] = "DON'T BE SO DEFENSIVE"
+ r[59] = "WHAT DOES THAT DREAM SUGGEST TO YOU ?"
+ r[60] = "DO YOU DREAM OFTEN ?"
+ r[61] = "WHAT PERSONS APPEAR IN YOUR DREAMS ?"
+ r[62] = "ARE YOU DISTURBED BY YOUR DREAMS ?"
+ r[63] = "HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM"
+ r[64] = "YOU DON'T SEEM QUITE CERTAIN"
+ r[65] = "WHY THE UNCERTAIN TONE ?"
+ r[66] = "CAN'T YOU BE MORE POSITIVE ?"
+ r[67] = "YOU AREN'T SURE ?"
+ r[68] = "DON'T YOU KNOW ?"
+ r[69] = "WHY NO _ ?"
+ r[70] = "DON'T SAY NO, IT'S ALWAYS SO NEGATIVE"
+ r[71] = "WHY NOT ?"
+ r[72] = "ARE YOU SURE ?"
+ r[73] = "WHY NO ?"
+ r[74] = "WHY ARE YOU CONCERNED ABOUT MY _ ?"
+ r[75] = "WHAT ABOUT YOUR OWN _ ?"
+ r[76] = "CAN'T YOU THINK ABOUT A SPECIFIC EXAMPLE ?"
+ r[77] = "WHEN ?"
+ r[78] = "WHAT ARE YOU THINKING OF ?"
+ r[79] = "REALLY, ALWAYS ?"
+ r[80] = "DO YOU REALLY THINK SO ?"
+ r[81] = "BUT YOU ARE NOT SURE YOU _ "
+ r[82] = "DO YOU DOUBT YOU _ ?"
+ r[83] = "IN WHAT WAY ?"
+ r[84] = "WHAT RESEMBLANCE DO YOU SEE ?"
+ r[85] = "WHAT DOES THE SIMILARITY SUGGEST TO YOU ?"
+ r[86] = "WHAT OTHER CONNECTION DO YOU SEE ?"
+ r[87] = "COULD THERE REALLY BE SOME CONNECTIONS ?"
+ r[88] = "HOW ?"
+ r[89] = "YOU SEEM QUITE POSITIVE"
+ r[90] = "ARE YOU SURE ?"
+ r[91] = "I SEE"
+ r[92] = "I UNDERSTAND"
+ r[93] = "WHY DO YOU BRING UP THE TOPIC OF FRIENDS ?"
+ r[94] = "DO YOUR FRIENDS WORRY YOU ?"
+ r[95] = "DO YOUR FRIENDS PICK ON YOU ?"
+ r[96] = "ARE YOU SURE YOU HAVE ANY FRIENDS ?"
+ r[97] = "DO YOU IMPOSE ON YOUR FRIENDS ?"
+ r[98] = "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU"
+ r[99] = "DO COMPUTERS WORRY YOU ?"
+ r[100] = "ARE YOU TALKING ABOUT ME IN PARTICULAR ?"
+ r[101] = "ARE YOU FRIGHTENED BY MACHINES ?"
+ r[102] = "WHY DO YOU MENTION COMPUTERS ?"
+ r[103] = "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEMS ?"
+ r[104] = "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE ?"
+ r[105] = "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU ?"
+ r[106] = "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS ?"
+ r[107] = "WHAT DOES THAT SUGGEST TO YOU ?"
+ r[108] = "I SEE"
+ r[109] = "IM NOT SURE I UNDERSTAND YOU FULLY"
+ r[110] = "COME COME ELUCIDATE YOUR THOUGHTS"
+ r[111] = "CAN YOU ELABORATE ON THAT ?"
+ r[112] = "THAT IS QUITE INTERESTING"
+ r[113] = "WHY DO YOU HAVE PROBLEMS WITH MONEY ?"
+ r[114] = "DO YOU THINK MONEY IS EVERYTHING ?"
+ r[115] = "ARE YOU SURE THAT MONEY IS THE PROBLEM ?"
+ r[116] = "I THINK WE WANT TO TALK ABOUT YOU, NOT ABOUT ME"
+ r[117] = "WHAT'S ABOUT ME ?"
+ r[118] = "WHY DO YOU ALWAYS BRING UP MY NAME ?"
+@c endfile
+@end ignore
+
+@example
+@c file eg/network/eliza.awk
+ # table for looking up answers that
+ # fit to a certain keyword
+ k["CAN YOU"] = "1 2 3"
+ k["CAN I"] = "4 5"
+ k["YOU ARE"] =\
+ k["YOURE"] = "6 7 8 9"
+@c endfile
+ @dots{}
+@end example
+@ignore
+@c file eg/network/eliza.awk
+ k["I DONT"] = "10 11 12 13"
+ k["I FEEL"] = "14 15 16"
+ k["WHY DONT YOU"] = "17 18 19"
+ k["WHY CANT I"] = "20 21"
+ k["ARE YOU"] = "22 23 24"
+ k["I CANT"] = "25 26 27"
+ k["I AM"] =\
+ k["IM "] = "28 29 30 31"
+ k["YOU "] = "32 33 34"
+ k["I WANT"] = "35 36 37 38 39"
+ k["WHAT"] =\
+ k["HOW"] =\
+ k["WHO"] =\
+ k["WHERE"] =\
+ k["WHEN"] =\
+ k["WHY"] = "40 41 42 43 44 45 46 47 48"
+ k["NAME"] = "49 50"
+ k["CAUSE"] = "51 52 53 54"
+ k["SORRY"] = "55 56 57 58"
+ k["DREAM"] = "59 60 61 62"
+ k["HELLO"] =\
+ k["HI "] = "63"
+ k["MAYBE"] = "64 65 66 67 68"
+ k[" NO "] = "69 70 71 72 73"
+ k["YOUR"] = "74 75"
+ k["ALWAYS"] = "76 77 78 79"
+ k["THINK"] = "80 81 82"
+ k["LIKE"] = "83 84 85 86 87 88 89"
+ k["YES"] = "90 91 92"
+ k["FRIEND"] = "93 94 95 96 97 98"
+ k["COMPUTER"] = "99 100 101 102 103 104 105"
+ k["-"] = "106 107 108 109 110 111 112"
+ k["MONEY"] = "113 114 115"
+ k["ELIZA"] = "116 117 118"
+@c endfile
+@end ignore
+@example
+@c file eg/network/eliza.awk
+@}
+@c endfile
+@end example
+
+@cindex Humphrys, Mark
+@cindex ELIZA program
+@cindex Yahoo!
+Some interesting remarks and details (including the original source code
+of ELIZA) are found on Mark Humphrys' home page. Yahoo! also has a
+page with a collection of ELIZA-like programs. Many of them are written
+in Java, some of them disclosing the Java source code, and a few even
+explain how to modify the Java source code.
+
+@node Caveats, Challenges, Simple Server, Using Networking
+@section Network Programming Caveats
+
+By now it should be clear
+that debugging a networked application is more
+complicated than debugging a single-process single-hosted application.
+The behavior of a networked application sometimes looks non-causal because
+it is not reproducible in a strong sense. Whether a network application
+works or not sometimes depends on the following:
+
+@itemize @bullet
+@item
+How crowded the underlying network is.
+
+@item
+If the party at the other end is running or not.
+
+@item
+The state of the party at the other end.
+@end itemize
+
+@cindex network
+The most difficult problems for a beginner arise from the hidden states of the
+underlying network. After closing a TCP connection, it's often necessary to wait
+a short while before reopening the connection. Even more difficult is the
+establishment of a connection that previously ended with a ``broken pipe.''
+Those connections have to ``time out'' for a minute or so
+before they can reopen.
+Check this with the command @samp{netstat -a}, which
+provides a list of still ``active'' connections.
+
+@node Challenges, , Caveats, Using Networking
+@section Where To Go From Here
+
+@cindex Loebner, Hugh
+@cindex Contest
+Now, you have learned enough to build your own application. You could,
+for example, take part in the
+Loebner Contest
+to win $100,000. The Loebner Prize is the first formal instantiation of
+a Turing Test. Hugh Loebner agreed with The Cambridge Center for Behavioral
+Studies to underwrite a contest designed to implement the Turing Test.
+Dr.@: Loebner pledged a Grand Prize of $100,000 for the first computer whose
+responses were indistinguishable from a human's. Each year an annual prize
+of $2000 and a bronze medal is awarded to the @emph{most} human computer.
+The winner of the annual contest is the best entry relative to other entries
+that year, irrespective of how good it is in an absolute sense. Here is
+an example of a conversation with the winning program of 1997:
+
+@smallexample
+(c)1997 Cambridge Center For Behavioral Studies all rights reserved [CONVERSE]
+[Intelligent Research Ltd.] Start at: [1997/04/29 08:59:40]
+PROGRAM[10:39:20]Hi, my name is Catherine, what's yours?
+JUDGE02[10:39:36]My name is Nathan.
+PROGRAM[10:39:37]Well, it's nice to meet you, Nathan.
+PROGRAM[10:39:45]Did you see that story on CNN last night about the lesbian
+PROGRAM[10:40:03]couple who came out at a White House party on Sunday?
+JUDGE02[10:40:45]No. I'm sorry I missed that. How did the Prez take it?
+PROGRAM[10:40:47]Ellen Degeneres was one of them - she was kissing her lover
+PROGRAM[10:41:08]in front of Bill Clinton. Do you think he was very
+PROGRAM[10:41:21]embarrassed?
+JUDGE02[10:41:37]You tell me. I didn't see it.
+PROGRAM[10:41:38]Are you still a Friend of Bill Clinton?
+JUDGE02[10:42:22]Yes. I would like to talk about something else. Do you know anything about sculpture.
+PROGRAM[10:42:24]Well, I suppose he's doing his best like most of us, but he
+PROGRAM[10:42:35]does seem to attract an UNUSUAL amount of bad publicity,
+PROGRAM[10:42:51]wouldnt you say--can it all be bad luck?
+JUDGE02[10:43:20]I asked you if you knew anything about sculpture.
+PROGRAM[10:43:21]OK, but what happens now--does it all drift on, with
+PROGRAM[10:43:36]everyone waiting to see how much his friends have said about
+PROGRAM[10:43:47]him under threat of lots and lots of jail-or will something
+PROGRAM[10:44:01]dramatic actually happen?
+JUDGE02[10:44:19]Do you know what sculpture is?
+PROGRAM[10:44:20]Well, youre more a fan of his than I am I guess---though I
+PROGRAM[10:44:34]cant SWEAR what Id have done in that locked hotel room, I
+PROGRAM[10:44:51]must say.
+JUDGE02[10:45:26]Have you ever been to the Salmagundi Club?
+PROGRAM[10:45:29]Never. to go back to the original discussion Time to get
+PROGRAM[10:45:43]off this one I think and onto something more down to earth!
+JUDGE02[10:46:20]What is more down to earth than art?
+PROGRAM[10:46:21]I don't know what -- to be honest. -
+PROGRAM[10:46:30]I suppose it depends on where you're coming from, but as the
+PROGRAM[10:46:46]song goes in My Fair Lady, "Why can't a woman be more like a
+PROGRAM[10:47:03]man? "
+JUDGE02[10:47:52]I liked that song but I prefer "Why can't children be more like we are"
+JUDGE02[10:48:10]from another play the name of which I cannot remember.
+PROGRAM[10:48:12]What, if anything, do you enjoy about being a man?
+JUDGE02[10:49:01]I would enjoy all aspects of life no matter what my gender.
+PROGRAM[10:49:02]Do you think of yourself as being attractive?
+@end smallexample
+
+@cindex Clinton, Bill
+This program insists on always speaking about the same story around Bill
+Clinton. You see, even a program with a rather narrow mind can behave so
+much like a human being that it can win this prize. It is quite common to
+let these programs talk to each other via network connections. But during the
+competition itself, the program and its computer have to be present at the
+place the competition is held. We all would love to see a @command{gawk}
+program win in such an event. Maybe it is up to you to accomplish this?
+
+Some other ideas for useful networked applications:
+@itemize @bullet
+@item
+Read the file @file{doc/awkforai.txt} in the @command{gawk} distribution.
+It was written by Ronald P.@: Loui (Associate Professor of
+Computer Science, at Washington University in St. Louis,
+@email{loui@@ai.wustl.edu}) and summarizes why
+he teaches @command{gawk} to students of Artificial Intelligence. Here are
+some passages from the text:
+
+@cindex AI
+@cindex PROLOG
+@cindex Loui, Ronald P.
+@cindex agent
+@quotation
+The GAWK manual can
+be consumed in a single lab session and the language can be mastered by
+the next morning by the average student. GAWK's automatic
+initialization, implicit coercion, I/O support and lack of pointers
+forgive many of the mistakes that young programmers are likely to make.
+Those who have seen C but not mastered it are happy to see that GAWK
+retains some of the same sensibilities while adding what must be
+regarded as spoonsful of syntactic sugar.@*
+@dots{}@*
+@cindex robot
+There are further simple answers. Probably the best is the fact that
+increasingly, undergraduate AI programming is involving the Web. Oren
+Etzioni (University of Washington, Seattle) has for a while been arguing
+that the ``softbot'' is replacing the mechanical engineers' robot as the
+most glamorous AI testbed. If the artifact whose behavior needs to be
+controlled in an intelligent way is the software agent, then a language
+that is well-suited to controlling the software environment is the
+appropriate language. That would imply a scripting language. If the
+robot is KAREL, then the right language is ``turn left; turn right.'' If
+the robot is Netscape, then the right language is something that can
+generate @samp{netscape -remote 'openURL(http://cs.wustl.edu/~loui)'} with
+elan.@*
+@dots{}@*
+AI programming requires high-level thinking. There have always been a few
+gifted programmers who can write high-level programs in assembly language.
+Most however need the ambient abstraction to have a higher floor.@*
+@dots{}@*
+Second, inference is merely the expansion of notation. No matter whether
+the logic that underlies an AI program is fuzzy, probabilistic, deontic,
+defeasible, or deductive, the logic merely defines how strings can be
+transformed into other strings. A language that provides the best
+support for string processing in the end provides the best support for
+logic, for the exploration of various logics, and for most forms of
+symbolic processing that AI might choose to call ``reasoning'' instead of
+``logic.'' The implication is that PROLOG, which saves the AI programmer
+from having to write a unifier, saves perhaps two dozen lines of GAWK
+code at the expense of strongly biasing the logic and representational
+expressiveness of any approach.
+@end quotation
+
+Now that @command{gawk} itself can connect to the Internet, it should be obvious
+that it is suitable for writing intelligent web agents.
+
+@item
+@command{awk} is strong at pattern recognition and string processing.
+So, it is well suited to the classic problem of language translation.
+A first try could be a program that knows the 100 most frequent English
+words and their counterparts in German or French. The service could be
+implemented by regularly reading email with the program above, replacing
+each word by its translation and sending the translation back via SMTP.
+Users would send English email to their translation service and get
+back a translated email message in return. As soon as this works,
+more effort can be spent on a real translation program.
+
+@item
+Another dialogue-oriented application (on the verge
+of ridicule) is the email ``support service.'' Troubled customers write an
+email to an automatic @command{gawk} service that reads the email. It looks
+for keywords in the mail and assembles a reply email accordingly. By carefully
+investigating the email header, and repeating these keywords through the
+reply email, it is rather simple to give the customer a feeling that
+someone cares. Ideally, such a service would search a database of previous
+cases for solutions. If none exists, the database could, for example, consist
+of all the newsgroups, mailing lists and FAQs on the Internet.
+@end itemize
+
+@node Some Applications and Techniques, Links, Using Networking, Top
+@comment node-name, next, previous, up
+
+@chapter Some Applications and Techniques
+In this @value{CHAPTER}, we look at a number of self-contained
+scripts, with an emphasis on concise networking. Along the way, we
+work towards creating building blocks that encapsulate often needed
+functions of the networking world, show new techniques that
+broaden the scope of problems that can be solved with @command{gawk}, and
+explore leading edge technology that may shape the future of networking.
+
+We often refer to the site-independent core of the server that
+we built in
+@ref{Simple Server, ,A Simple Web Server}.
+When building new and non-trivial servers, we
+always copy this building block and append new instances of the two
+functions @code{SetUpServer} and @code{HandleGET}.
+
+This makes a lot of sense, since
+this scheme of event-driven
+execution provides @command{gawk} with an interface to the most widely
+accepted standard for GUIs: the web browser. Now, @command{gawk} can even rival
+Tcl/Tk.
+
+@cindex Tcl/Tk
+@cindex JavaScript
+Tcl and @command{gawk} have much in common. Both are simple scripting languages
+that allow us to quickly solve problems with short programs. But Tcl has Tk
+on top of it and @command{gawk} had nothing comparable up to now. While Tcl
+needs a large and ever changing library (Tk, which was bound to the X Window
+System until recently), @command{gawk} needs just the networking interface
+and some kind of browser on the client's side. Besides better portability,
+the most important advantage of this approach (embracing well-established
+standards such HTTP and HTML) is that @emph{we do not need to change the
+language}. We let others do the work of fighting over protocols and standards.
+We can use HTML, JavaScript, VRML, or whatever else comes along to do our work.
+
+@menu
+* PANIC:: An Emergency Web Server.
+* GETURL:: Retrieving Web Pages.
+* REMCONF:: Remote Configuration Of Embedded Systems.
+* URLCHK:: Look For Changed Web Pages.
+* WEBGRAB:: Extract Links From A Page.
+* STATIST:: Graphing A Statistical Distribution.
+* MAZE:: Walking Through A Maze In Virtual Reality.
+* MOBAGWHO:: A Simple Mobile Agent.
+* STOXPRED:: Stock Market Prediction As A Service.
+* PROTBASE:: Searching Through A Protein Database.
+@end menu
+
+@node PANIC, GETURL, Some Applications and Techniques, Some Applications and Techniques
+@section PANIC: an Emergency Web Server
+@cindex PANIC program
+At first glance, the @code{"Hello, world"} example in
+@ref{Primitive Service, ,A Primitive Web Service},
+seems useless. By adding just a few lines, we can turn it into something useful.
+
+The PANIC program tells everyone who connects that the local
+site is not working. When a web server breaks down, it makes a difference
+if customers get a strange ``network unreachable'' message, or a short message
+telling them that the server has a problem. In such an emergency,
+the hard disk and everything on it (including the regular web service) may
+be unavailable. Rebooting the web server off a diskette makes sense in this
+setting.
+
+To use the PANIC program as an emergency web server, all you need are the
+@command{gawk} executable and the program below on a diskette. By default,
+it connects to port 8080. A different value may be supplied on the
+command line:
+
+@example
+@c file eg/network/panic.awk
+BEGIN @{
+ RS = ORS = "\r\n"
+ if (MyPort == 0) MyPort = 8080
+ HttpService = "/inet/tcp/" MyPort "/0/0"
+ Hello = "<HTML><HEAD><TITLE>Out Of Service</TITLE>" \
+ "</HEAD><BODY><H1>" \
+ "This site is temporarily out of service." \
+ "</H1></BODY></HTML>"
+ Len = length(Hello) + length(ORS)
+ while ("awk" != "complex") @{
+ print "HTTP/1.0 200 OK" |& HttpService
+ print "Content-Length: " Len ORS |& HttpService
+ print Hello |& HttpService
+ while ((HttpService |& getline) > 0)
+ continue;
+ close(HttpService)
+ @}
+@}
+@c endfile
+@end example
+
+@node GETURL, REMCONF, PANIC, Some Applications and Techniques
+@section GETURL: Retrieving Web Pages
+@cindex GETURL program
+@cindex robot
+GETURL is a versatile building block for shell scripts that need to retrieve
+files from the Internet. It takes a web address as a command-line parameter and
+tries to retrieve the contents of this address. The contents are printed
+to standard output, while the header is printed to @file{/dev/stderr}.
+A surrounding shell script
+could analyze the contents and extract the text or the links. An ASCII
+browser could be written around GETURL. But more interestingly, web robots are
+straightforward to write on top of GETURL. On the Internet, you can find
+several programs of the same name that do the same job. They are usually
+much more complex internally and at least 10 times longer.
+
+At first, GETURL checks if it was called with exactly one web address.
+Then, it checks if the user chose to use a special proxy server whose name
+is handed over in a variable. By default, it is assumed that the local
+machine serves as proxy. GETURL uses the @code{GET} method by default
+to access the web page. By handing over the name of a different method
+(such as @code{HEAD}), it is possible to choose a different behavior. With
+the @code{HEAD} method, the user does not receive the body of the page
+content, but does receive the header:
+
+@example
+@c file eg/network/geturl.awk
+BEGIN @{
+ if (ARGC != 2) @{
+ print "GETURL - retrieve Web page via HTTP 1.0"
+ print "IN:\n the URL as a command-line parameter"
+ print "PARAM(S):\n -v Proxy=MyProxy"
+ print "OUT:\n the page content on stdout"
+ print " the page header on stderr"
+ print "JK 16.05.1997"
+ print "ADR 13.08.2000"
+ exit
+ @}
+ URL = ARGV[1]; ARGV[1] = ""
+ if (Proxy == "") Proxy = "127.0.0.1"
+ if (ProxyPort == 0) ProxyPort = 80
+ if (Method == "") Method = "GET"
+ HttpService = "/inet/tcp/0/" Proxy "/" ProxyPort
+ ORS = RS = "\r\n\r\n"
+ print Method " " URL " HTTP/1.0" |& HttpService
+ HttpService |& getline Header
+ print Header > "/dev/stderr"
+ while ((HttpService |& getline) > 0)
+ printf "%s", $0
+ close(HttpService)
+@}
+@c endfile
+@end example
+
+This program can be changed as needed, but be careful with the last lines.
+Make sure transmission of binary data is not corrupted by additional line
+breaks. Even as it is now, the byte sequence @code{"\r\n\r\n"} would
+disappear if it were contained in binary data. Don't get caught in a
+trap when trying a quick fix on this one.
+
+@node REMCONF, URLCHK, GETURL, Some Applications and Techniques
+@section REMCONF: Remote Configuration of Embedded Systems
+@cindex REMCONF program
+@cindex Linux
+@cindex GNU/Linux
+@cindex Yahoo!
+Today, you often find powerful processors in embedded systems. Dedicated
+network routers and controllers for all kinds of machinery are examples
+of embedded systems. Processors like the Intel 80x86 or the AMD Elan are
+able to run multitasking operating systems, such as XINU or GNU/Linux
+in embedded PCs. These systems are small and usually do not have
+a keyboard or a display. Therefore it is difficult to set up their
+configuration. There are several widespread ways to set them up:
+
+@itemize @bullet
+@item
+DIP switches
+
+@item
+Read Only Memories such as EPROMs
+
+@item
+Serial lines or some kind of keyboard
+
+@item
+Network connections via @command{telnet} or SNMP
+
+@item
+HTTP connections with HTML GUIs
+@end itemize
+
+In this @value{SECTION}, we look at a solution that uses HTTP connections
+to control variables of an embedded system that are stored in a file.
+Since embedded systems have tight limits on resources like memory,
+it is difficult to employ advanced techniques such as SNMP and HTTP
+servers. @command{gawk} fits in quite nicely with its single executable
+which needs just a short script to start working.
+The following program stores the variables in a file, and a concurrent
+process in the embedded system may read the file. The program uses the
+site-independent part of the simple web server that we developed in
+@ref{Interacting Service, ,A Web Service with Interaction}.
+As mentioned there, all we have to do is to write two new procedures
+@code{SetUpServer} and @code{HandleGET}:
+
+@smallexample
+@c file eg/network/remconf.awk
+function SetUpServer() @{
+ TopHeader = "<HTML><title>Remote Configuration</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/ReadConfig>Read Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/CheckConfig>Check Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/ChangeConfig>Change Configuration</A></LI>\
+ <LI><A HREF=" MyPrefix "/SaveConfig>Save Configuration</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ if (ConfigFile == "") ConfigFile = "config.asc"
+@}
+@c endfile
+@end smallexample
+
+The function @code{SetUpServer} initializes the top level HTML texts
+as usual. It also initializes the name of the file that contains the
+configuration parameters and their values. In case the user supplies
+a name from the command line, that name is used. The file is expected to
+contain one parameter per line, with the name of the parameter in
+column one and the value in column two.
+
+The function @code{HandleGET} reflects the structure of the menu
+tree as usual. The first menu choice tells the user what this is all
+about. The second choice reads the configuration file line by line
+and stores the parameters and their values. Notice that the record
+separator for this file is @code{"\n"}, in contrast to the record separator
+for HTTP. The third menu choice builds an HTML table to show
+the contents of the configuration file just read. The fourth choice
+does the real work of changing parameters, and the last one just saves
+the configuration into a file:
+
+@smallexample
+@c file eg/network/remconf.awk
+function HandleGET() @{
+ if(MENU[2] == "AboutServer") @{
+ Document = "This is a GUI for remote configuration of an\
+ embedded system. It is is implemented as one GAWK script."
+ @} else if (MENU[2] == "ReadConfig") @{
+ RS = "\n"
+ while ((getline < ConfigFile) > 0)
+ config[$1] = $2;
+ close(ConfigFile)
+ RS = "\r\n"
+ Document = "Configuration has been read."
+ @} else if (MENU[2] == "CheckConfig") @{
+ Document = "<TABLE BORDER=1 CELLPADDING=5>"
+ for (i in config)
+ Document = Document "<TR><TD>" i "</TD>" \
+ "<TD>" config[i] "</TD></TR>"
+ Document = Document "</TABLE>"
+ @} else if (MENU[2] == "ChangeConfig") @{
+ if ("Param" in GETARG) @{ # any parameter to set?
+ if (GETARG["Param"] in config) @{ # is parameter valid?
+ config[GETARG["Param"]] = GETARG["Value"]
+ Document = (GETARG["Param"] " = " GETARG["Value"] ".")
+ @} else @{
+ Document = "Parameter <b>" GETARG["Param"] "</b> is invalid."
+ @}
+ @} else @{
+ Document = "<FORM method=GET><h4>Change one parameter</h4>\
+ <TABLE BORDER CELLPADDING=5>\
+ <TR><TD>Parameter</TD><TD>Value</TD></TR>\
+ <TR><TD><input type=text name=Param value=\"\" size=20></TD>\
+ <TD><input type=text name=Value value=\"\" size=40></TD>\
+ </TR></TABLE><input type=submit value=\"Set\"></FORM>"
+ @}
+ @} else if (MENU[2] == "SaveConfig") @{
+ for (i in config)
+ printf("%s %s\n", i, config[i]) > ConfigFile
+ close(ConfigFile)
+ Document = "Configuration has been saved."
+ @}
+@}
+@c endfile
+@end smallexample
+
+@cindex MiniSQL
+We could also view the configuration file as a database. From this
+point of view, the previous program acts like a primitive database server.
+Real SQL database systems also make a service available by providing
+a TCP port that clients can connect to. But the application level protocols
+they use are usually proprietary and also change from time to time.
+This is also true for the protocol that
+MiniSQL uses.
+
+@node URLCHK, WEBGRAB, REMCONF, Some Applications and Techniques
+@section URLCHK: Look for Changed Web Pages
+@cindex URLCHK program
+Most people who make heavy use of Internet resources have a large
+bookmark file with pointers to interesting web sites. It is impossible
+to regularly check by hand if any of these sites have changed. A program
+is needed to automatically look at the headers of web pages and tell
+which ones have changed. URLCHK does the comparison after using GETURL
+with the @code{HEAD} method to retrieve the header.
+
+Like GETURL, this program first checks that it is called with exactly
+one command-line parameter. URLCHK also takes the same command-line variables
+@code{Proxy} and @code{ProxyPort} as GETURL,
+because these variables are handed over to GETURL for each URL
+that gets checked. The one and only parameter is the name of a file that
+contains one line for each URL. In the first column, we find the URL, and
+the second and third columns hold the length of the URL's body when checked
+for the two last times. Now, we follow this plan:
+
+@enumerate
+@item
+Read the URLs from the file and remember their most recent lengths
+
+@item
+Delete the contents of the file
+
+@item
+For each URL, check its new length and write it into the file
+
+@item
+If the most recent and the new length differ, tell the user
+@end enumerate
+
+It may seem a bit peculiar to read the URLs from a file together
+with their two most recent lengths, but this approach has several
+advantages. You can call the program again and again with the same
+file. After running the program, you can regenerate the changed URLs
+by extracting those lines that differ in their second and third columns:
+
+@c inspired by URLCHK in iX 5/97 166.
+@smallexample
+@c file eg/network/urlchk.awk
+BEGIN @{
+ if (ARGC != 2) @{
+ print "URLCHK - check if URLs have changed"
+ print "IN:\n the file with URLs as a command-line parameter"
+ print " file contains URL, old length, new length"
+ print "PARAMS:\n -v Proxy=MyProxy -v ProxyPort=8080"
+ print "OUT:\n same as file with URLs"
+ print "JK 02.03.1998"
+ exit
+ @}
+ URLfile = ARGV[1]; ARGV[1] = ""
+ if (Proxy != "") Proxy = " -v Proxy=" Proxy
+ if (ProxyPort != "") ProxyPort = " -v ProxyPort=" ProxyPort
+ while ((getline < URLfile) > 0)
+ Length[$1] = $3 + 0
+ close(URLfile) # now, URLfile is read in and can be updated
+ GetHeader = "gawk " Proxy ProxyPort " -v Method=\"HEAD\" -f geturl.awk "
+ for (i in Length) @{
+ GetThisHeader = GetHeader i " 2>&1"
+ while ((GetThisHeader | getline) > 0)
+ if (toupper($0) ~ /CONTENT-LENGTH/) NewLength = $2 + 0
+ close(GetThisHeader)
+ print i, Length[i], NewLength > URLfile
+ if (Length[i] != NewLength) # report only changed URLs
+ print i, Length[i], NewLength
+ @}
+ close(URLfile)
+@}
+@c endfile
+@end smallexample
+
+Another thing that may look strange is the way GETURL is called.
+Before calling GETURL, we have to check if the proxy variables need
+to be passed on. If so, we prepare strings that will become part
+of the command line later. In @code{GetHeader}, we store these strings
+together with the longest part of the command line. Later, in the loop
+over the URLs, @code{GetHeader} is appended with the URL and a redirection
+operator to form the command that reads the URL's header over the Internet.
+GETURL always produces the headers over @file{/dev/stderr}. That is
+the reason why we need the redirection operator to have the header
+piped in.
+
+This program is not perfect because it assumes that changing URLs
+results in changed lengths, which is not necessarily true. A more
+advanced approach is to look at some other header line that
+holds time information. But, as always when things get a bit more
+complicated, this is left as an exercise to the reader.
+
+@node WEBGRAB, STATIST, URLCHK, Some Applications and Techniques
+@section WEBGRAB: Extract Links from a Page
+@cindex WEBGRAB program
+@c Inspired by iX 1/98 157.
+@cindex robot
+Sometimes it is necessary to extract links from web pages.
+Browsers do it, web robots do it, and sometimes even humans do it.
+Since we have a tool like GETURL at hand, we can solve this problem with
+some help from the Bourne shell:
+
+@example
+@c file eg/network/webgrab.awk
+BEGIN @{ RS = "http://[#%&\\+\\-\\./0-9\\:;\\?A-Z_a-z\\~]*" @}
+RT != "" @{
+ command = ("gawk -v Proxy=MyProxy -f geturl.awk " RT \
+ " > doc" NR ".html")
+ print command
+@}
+@c endfile
+@end example
+
+Notice that the regular expression for URLs is rather crude. A precise
+regular expression is much more complex. But this one works
+rather well. One problem is that it is unable to find internal links of
+an HTML document. Another problem is that
+@samp{ftp}, @samp{telnet}, @samp{news}, @samp{mailto}, and other kinds
+of links are missing in the regular expression.
+However, it is straightforward to add them, if doing so is necessary for other tasks.
+
+This program reads an HTML file and prints all the HTTP links that it finds.
+It relies on @command{gawk}'s ability to use regular expressions as record
+separators. With @code{RS} set to a regular expression that matches links,
+the second action is executed each time a non-empty link is found.
+We can find the matching link itself in @code{RT}.
+
+The action could use the @code{system} function to let another GETURL
+retrieve the page, but here we use a different approach.
+This simple program prints shell commands that can be piped into @command{sh}
+for execution. This way it is possible to first extract
+the links, wrap shell commands around them, and pipe all the shell commands
+into a file. After editing the file, execution of the file retrieves
+exactly those files that we really need. In case we do not want to edit,
+we can retrieve all the pages like this:
+
+@smallexample
+gawk -f geturl.awk http://www.suse.de | gawk -f webgrab.awk | sh
+@end smallexample
+
+@cindex Microsoft Windows
+After this, you will find the contents of all referenced documents in
+files named @file{doc*.html} even if they do not contain HTML code.
+The most annoying thing is that we always have to pass the proxy to
+GETURL. If you do not like to see the headers of the web pages
+appear on the screen, you can redirect them to @file{/dev/null}.
+Watching the headers appear can be quite interesting, because
+it reveals
+interesting details such as which web server the companies use.
+Now, it is clear how the clever marketing people
+use web robots to determine the
+market shares
+of Microsoft and Netscape in the web server market.
+
+Port 80 of any web server is like a small hole in a repellent firewall.
+After attaching a browser to port 80, we usually catch a glimpse
+of the bright side of the server (its home page). With a tool like GETURL
+at hand, we are able to discover some of the more concealed
+or even ``indecent'' services (i.e., lacking conformity to standards of quality).
+It can be exciting to see the fancy CGI scripts that lie
+there, revealing the inner workings of the server, ready to be called:
+
+@itemize @bullet
+@item
+With a command such as:
+
+@example
+gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/
+@end example
+
+some servers give you a directory listing of the CGI files.
+Knowing the names, you can try to call some of them and watch
+for useful results. Sometimes there are executables in such directories
+(such as Perl interpreters) that you may call remotely. If there are
+subdirectories with configuration data of the web server, this can also
+be quite interesting to read.
+
+@item
+@cindex apache
+The well-known Apache web server usually has its CGI files in the
+directory @file{/cgi-bin}. There you can often find the scripts
+@file{test-cgi} and @file{printenv}. Both tell you some things
+about the current connection and the installation of the web server.
+Just call:
+
+@smallexample
+gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/test-cgi
+gawk -f geturl.awk http://any.host.on.the.net/cgi-bin/printenv
+@end smallexample
+
+@item
+Sometimes it is even possible to retrieve system files like the web
+server's log file---possibly containing customer data---or even the file
+@file{/etc/passwd}.
+(We don't recommend this!)
+@end itemize
+
+@strong{Caution:}
+Although this may sound funny or simply irrelevant, we are talking about
+severe security holes. Try to explore your own system this way and make
+sure that none of the above reveals too much information about your system.
+
+@node STATIST, MAZE, WEBGRAB, Some Applications and Techniques
+@section STATIST: Graphing a Statistical Distribution
+@cindex STATIST program
+
+@cindex GNUPlot utility
+@cindex image format
+@cindex @file{gif} image format
+@cindex @file{png} image format
+@cindex @file{ps} image format
+@cindex Boutell, Thomas
+@iftex
+@image{statist,3in}
+@end iftex
+In the HTTP server examples we've shown thus far, we never present an image
+to the browser and its user. Presenting images is one task. Generating
+images that reflect some user input and presenting these dynamically
+generated images is another. In this @value{SECTION}, we use GNUPlot
+for generating @file{.png}, @file{.ps}, or @file{.gif}
+files.@footnote{Due to licensing problems, the default
+installation of GNUPlot disables the generation of @file{.gif} files.
+If your installed version does not accept @samp{set term gif},
+just download and install the most recent version of GNUPlot and the
+@uref{http://www.boutell.com/gd/, GD library}
+by Thomas Boutell.
+Otherwise you still have the chance to generate some
+ASCII-art style images with GNUPlot by using @samp{set term dumb}.
+(We tried it and it worked.)}
+
+The program we develop takes the statistical parameters of two samples
+and computes the t-test statistics. As a result, we get the probabilities
+that the means and the variances of both samples are the same. In order to
+let the user check plausibility, the program presents an image of the
+distributions. The statistical computation follows
+@cite{Numerical Recipes in C: The Art of Scientific Computing}
+by William H.@: Press, Saul A.@: Teukolsky, William T.@: Vetterling, and Brian P. Flannery.
+Since @command{gawk} does not have a built-in function
+for the computation of the beta function, we use the @code{ibeta} function
+of GNUPlot. As a side effect, we learn how to use GNUPlot as a
+sophisticated calculator. The comparison of means is done as in @code{tutest},
+paragraph 14.2, page 613, and the comparison of variances is done as in @code{ftest},
+page 611 in @cite{Numerical Recipes}.
+@cindex Numerical Recipes
+
+As usual, we take the site-independent code for servers and append
+our own functions @code{SetUpServer} and @code{HandleGET}:
+
+@smallexample
+@c file eg/network/statist.awk
+function SetUpServer() @{
+ TopHeader = "<HTML><title>Statistics with GAWK</title>"
+ TopDoc = "<BODY>\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A></LI>\
+ <LI><A HREF=" MyPrefix "/EnterParameters>Enter Parameters</A></LI>\
+ </UL>"
+ TopFooter = "</BODY></HTML>"
+ GnuPlot = "gnuplot 2>&1"
+ m1=m2=0; v1=v2=1; n1=n2=10
+@}
+@c endfile
+@end smallexample
+
+Here, you see the menu structure that the user sees. Later, we
+will see how the program structure of the @code{HandleGET} function
+reflects the menu structure. What is missing here is the link for the
+image we generate. In an event-driven environment, request,
+generation, and delivery of images are separated.
+
+Notice the way we initialize the @code{GnuPlot} command string for
+the pipe. By default,
+GNUPlot outputs the generated image via standard output, as well as
+the results of @code{print}(ed) calculations via standard error.
+The redirection causes standard error to be mixed into standard
+output, enabling us to read results of calculations with @code{getline}.
+By initializing the statistical parameters with some meaningful
+defaults, we make sure the user gets an image the first time
+he uses the program.
+
+@cindex JavaScript
+Following is the rather long function @code{HandleGET}, which
+implements the contents of this service by reacting to the different
+kinds of requests from the browser. Before you start playing with
+this script, make sure that your browser supports JavaScript and that it also
+has this option switched on. The script uses a short snippet of
+JavaScript code for delayed opening of a window with an image.
+A more detailed explanation follows:
+
+@smallexample
+@c file eg/network/statist.awk
+function HandleGET() @{
+ if(MENU[2] == "AboutServer") @{
+ Document = "This is a GUI for a statistical computation.\
+ It compares means and variances of two distributions.\
+ It is implemented as one GAWK script and uses GNUPLOT."
+ @} else if (MENU[2] == "EnterParameters") @{
+ Document = ""
+ if ("m1" in GETARG) @{ # are there parameters to compare?
+ Document = Document "<SCRIPT LANGUAGE=\"JavaScript\">\
+ setTimeout(\"window.open(\\\"" MyPrefix "/Image" systime()\
+ "\\\",\\\"dist\\\", \\\"status=no\\\");\", 1000); </SCRIPT>"
+ m1 = GETARG["m1"]; v1 = GETARG["v1"]; n1 = GETARG["n1"]
+ m2 = GETARG["m2"]; v2 = GETARG["v2"]; n2 = GETARG["n2"]
+ t = (m1-m2)/sqrt(v1/n1+v2/n2)
+ df = (v1/n1+v2/n2)*(v1/n1+v2/n2)/((v1/n1)*(v1/n1)/(n1-1) \
+ + (v2/n2)*(v2/n2) /(n2-1))
+ if (v1>v2) @{
+ f = v1/v2
+ df1 = n1 - 1
+ df2 = n2 - 1
+ @} else @{
+ f = v2/v1
+ df1 = n2 - 1
+ df2 = n1 - 1
+ @}
+ print "pt=ibeta(" df/2 ",0.5," df/(df+t*t) ")" |& GnuPlot
+ print "pF=2.0*ibeta(" df2/2 "," df1/2 "," \
+ df2/(df2+df1*f) ")" |& GnuPlot
+ print "print pt, pF" |& GnuPlot
+ RS="\n"; GnuPlot |& getline; RS="\r\n" # $1 is pt, $2 is pF
+ print "invsqrt2pi=1.0/sqrt(2.0*pi)" |& GnuPlot
+ print "nd(x)=invsqrt2pi/sd*exp(-0.5*((x-mu)/sd)**2)" |& GnuPlot
+ print "set term png small color" |& GnuPlot
+ #print "set term postscript color" |& GnuPlot
+ #print "set term gif medium size 320,240" |& GnuPlot
+ print "set yrange[-0.3:]" |& GnuPlot
+ print "set label 'p(m1=m2) =" $1 "' at 0,-0.1 left" |& GnuPlot
+ print "set label 'p(v1=v2) =" $2 "' at 0,-0.2 left" |& GnuPlot
+ print "plot mu=" m1 ",sd=" sqrt(v1) ", nd(x) title 'sample 1',\
+ mu=" m2 ",sd=" sqrt(v2) ", nd(x) title 'sample 2'" |& GnuPlot
+ print "quit" |& GnuPlot
+ GnuPlot |& getline Image
+ while ((GnuPlot |& getline) > 0)
+ Image = Image RS $0
+ close(GnuPlot)
+ @}
+ Document = Document "\
+ <h3>Do these samples have the same Gaussian distribution?</h3>\
+ <FORM METHOD=GET> <TABLE BORDER CELLPADDING=5>\
+ <TR>\
+ <TD>1. Mean </TD>
+ <TD><input type=text name=m1 value=" m1 " size=8></TD>\
+ <TD>1. Variance</TD>
+ <TD><input type=text name=v1 value=" v1 " size=8></TD>\
+ <TD>1. Count </TD>
+ <TD><input type=text name=n1 value=" n1 " size=8></TD>\
+ </TR><TR>\
+ <TD>2. Mean </TD>
+ <TD><input type=text name=m2 value=" m2 " size=8></TD>\
+ <TD>2. Variance</TD>
+ <TD><input type=text name=v2 value=" v2 " size=8></TD>\
+ <TD>2. Count </TD>
+ <TD><input type=text name=n2 value=" n2 " size=8></TD>\
+ </TR> <input type=submit value=\"Compute\">\
+ </TABLE></FORM><BR>"
+ @} else if (MENU[2] ~ "Image") @{
+ Reason = "OK" ORS "Content-type: image/png"
+ #Reason = "OK" ORS "Content-type: application/x-postscript"
+ #Reason = "OK" ORS "Content-type: image/gif"
+ Header = Footer = ""
+ Document = Image
+ @}
+@}
+@c endfile
+@end smallexample
+
+@cindex PostScript
+As usual, we give a short description of the service in the first
+menu choice. The third menu choice shows us that generation and
+presentation of an image are two separate actions. While the latter
+takes place quite instantly in the third menu choice, the former
+takes place in the much longer second choice. Image data passes from the
+generating action to the presenting action via the variable @code{Image}
+that contains a complete @file{.png} image, which is otherwise stored
+in a file. If you prefer @file{.ps} or @file{.gif} images over the
+default @file{.png} images, you may select these options by uncommenting
+the appropriate lines. But remember to do so in two places: when
+telling GNUPlot which kind of images to generate, and when transmitting the
+image at the end of the program.
+
+Looking at the end of the program,
+the way we pass the @samp{Content-type} to the browser is a bit unusual.
+It is appended to the @samp{OK} of the first header line
+to make sure the type information becomes part of the header.
+The other variables that get transmitted across the network are
+made empty, because in this case we do not have an HTML document to
+transmit, but rather raw image data to contain in the body.
+
+Most of the work is done in the second menu choice. It starts with a
+strange JavaScript code snippet. When first implementing this server,
+we used a short @code{@w{"<IMG SRC="} MyPrefix "/Image>"} here. But then
+browsers got smarter and tried to improve on speed by requesting the
+image and the HTML code at the same time. When doing this, the browser
+tries to build up a connection for the image request while the request for
+the HTML text is not yet completed. The browser tries to connect
+to the @command{gawk} server on port 8080 while port 8080 is still in use for
+transmission of the HTML text. The connection for the image cannot be
+built up, so the image appears as ``broken'' in the browser window.
+We solved this problem by telling the browser to open a separate window
+for the image, but only after a delay of 1000 milliseconds.
+By this time, the server should be ready for serving the next request.
+
+But there is one more subtlety in the JavaScript code.
+Each time the JavaScript code opens a window for the image, the
+name of the image is appended with a timestamp (@code{systime}).
+Why this constant change of name for the image? Initially, we always named
+the image @code{Image}, but then the Netscape browser noticed the name
+had @emph{not} changed since the previous request and displayed the
+previous image (caching behavior). The server core
+is implemented so that browsers are told @emph{not} to cache anything.
+Obviously HTTP requests do not always work as expected. One way to
+circumvent the cache of such overly smart browsers is to change the
+name of the image with each request. These three lines of JavaScript
+caused us a lot of trouble.
+
+The rest can be broken
+down into two phases. At first, we check if there are statistical
+parameters. When the program is first started, there usually are no
+parameters because it enters the page coming from the top menu.
+Then, we only have to present the user a form that he can use to change
+statistical parameters and submit them. Subsequently, the submission of
+the form causes the execution of the first phase because @emph{now}
+there @emph{are} parameters to handle.
+
+Now that we have parameters, we know there will be an image available.
+Therefore we insert the JavaScript code here to initiate the opening
+of the image in a separate window. Then,
+we prepare some variables that will be passed to GNUPlot for calculation
+of the probabilities. Prior to reading the results, we must temporarily
+change @code{RS} because GNUPlot separates lines with newlines.
+After instructing GNUPlot to generate a @file{.png} (or @file{.ps} or
+@file{.gif}) image, we initiate the insertion of some text,
+explaining the resulting probabilities. The final @samp{plot} command
+actually generates the image data. This raw binary has to be read in carefully
+without adding, changing, or deleting a single byte. Hence the unusual
+initialization of @code{Image} and completion with a @code{while} loop.
+
+When using this server, it soon becomes clear that it is far from being
+perfect. It mixes source code of six scripting languages or protocols:
+
+@itemize @bullet
+@item GNU @command{awk} implements a server for the protocol:
+@item HTTP which transmits:
+@item HTML text which contains a short piece of:
+@item JavaScript code opening a separate window.
+@item A Bourne shell script is used for piping commands into:
+@item GNUPlot to generate the image to be opened.
+@end itemize
+
+After all this work, the GNUPlot image opens in the JavaScript window
+where it can be viewed by the user.
+
+It is probably better not to mix up so many different languages.
+The result is not very readable. Furthermore, the
+statistical part of the server does not take care of invalid input.
+Among others, using negative variances will cause invalid results.
+
+@node MAZE, MOBAGWHO, STATIST, Some Applications and Techniques
+@section MAZE: Walking Through a Maze In Virtual Reality
+@cindex MAZE
+@cindex VRML
+@c VRML in iX 11/96 134.
+@quotation
+@cindex Perlis, Alan
+@i{In the long run, every program becomes rococo, and then rubble.}@*
+Alan Perlis
+@end quotation
+
+By now, we know how to present arbitrary @samp{Content-type}s to a browser.
+In this @value{SECTION}, our server will present a 3D world to our browser.
+The 3D world is described in a scene description language (VRML,
+Virtual Reality Modeling Language) that allows us to travel through a
+perspective view of a 2D maze with our browser. Browsers with a
+VRML plugin enable exploration of this technology. We could do
+one of those boring @samp{Hello world} examples here, that are usually
+presented when introducing novices to
+VRML. If you have never written
+any VRML code, have a look at
+the VRML FAQ.
+Presenting a static VRML scene is a bit trivial; in order to expose
+@command{gawk}'s new capabilities, we will present a dynamically generated
+VRML scene. The function @code{SetUpServer} is very simple because it
+only sets the default HTML page and initializes the random number
+generator. As usual, the surrounding server lets you browse the maze.
+
+@smallexample
+@c file eg/network/maze.awk
+function SetUpServer() @{
+ TopHeader = "<HTML><title>Walk through a maze</title>"
+ TopDoc = "\
+ <h2>Please choose one of the following actions:</h2>\
+ <UL>\
+ <LI><A HREF=" MyPrefix "/AboutServer>About this server</A>\
+ <LI><A HREF=" MyPrefix "/VRMLtest>Watch a simple VRML scene</A>\
+ </UL>"
+ TopFooter = "</HTML>"
+ srand()
+@}
+@c endfile
+@end smallexample
+
+The function @code{HandleGET} is a bit longer because it first computes
+the maze and afterwards generates the VRML code that is sent across
+the network. As shown in the STATIST example
+(@pxref{STATIST}),
+we set the type of the
+content to VRML and then store the VRML representation of the maze as the
+page content. We assume that the maze is stored in a 2D array. Initially,
+the maze consists of walls only. Then, we add an entry and an exit to the
+maze and let the rest of the work be done by the function @code{MakeMaze}.
+Now, only the wall fields are left in the maze. By iterating over the these
+fields, we generate one line of VRML code for each wall field.
+
+@smallexample
+@c file eg/network/maze.awk
+function HandleGET() @{
+ if (MENU[2] == "AboutServer") @{
+ Document = "If your browser has a VRML 2 plugin,\
+ this server shows you a simple VRML scene."
+ @} else if (MENU[2] == "VRMLtest") @{
+ XSIZE = YSIZE = 11 # initially, everything is wall
+ for (y = 0; y < YSIZE; y++)
+ for (x = 0; x < XSIZE; x++)
+ Maze[x, y] = "#"
+ delete Maze[0, 1] # entry is not wall
+ delete Maze[XSIZE-1, YSIZE-2] # exit is not wall
+ MakeMaze(1, 1)
+ Document = "\
+#VRML V2.0 utf8\n\
+Group @{\n\
+ children [\n\
+ PointLight @{\n\
+ ambientIntensity 0.2\n\
+ color 0.7 0.7 0.7\n\
+ location 0.0 8.0 10.0\n\
+ @}\n\
+ DEF B1 Background @{\n\
+ skyColor [0 0 0, 1.0 1.0 1.0 ]\n\
+ skyAngle 1.6\n\
+ groundColor [1 1 1, 0.8 0.8 0.8, 0.2 0.2 0.2 ]\n\
+ groundAngle [ 1.2 1.57 ]\n\
+ @}\n\
+ DEF Wall Shape @{\n\
+ geometry Box @{size 1 1 1@}\n\
+ appearance Appearance @{ material Material @{ diffuseColor 0 0 1 @} @}\n\
+ @}\n\
+ DEF Entry Viewpoint @{\n\
+ position 0.5 1.0 5.0\n\
+ orientation 0.0 0.0 -1.0 0.52\n\
+ @}\n"
+ for (i in Maze) @{
+ split(i, t, SUBSEP)
+ Document = Document " Transform @{ translation "
+ Document = Document t[1] " 0 -" t[2] " children USE Wall @}\n"
+ @}
+ Document = Document " ] # end of group for world\n@}"
+ Reason = "OK" ORS "Content-type: model/vrml"
+ Header = Footer = ""
+ @}
+@}
+@c endfile
+@end smallexample
+
+Finally, we have a look at @code{MakeMaze}, the function that generates
+the @code{Maze} array. When entered, this function assumes that the array
+has been initialized so that each element represents a wall element and
+the maze is initially full of wall elements. Only the entrance and the exit
+of the maze should have been left free. The parameters of the function tell
+us which element must be marked as not being a wall. After this, we take
+a look at the four neighbouring elements and remember which we have already
+treated. Of all the neighbouring elements, we take one at random and
+walk in that direction. Therefore, the wall element in that direction has
+to be removed and then, we call the function recursively for that element.
+The maze is only completed if we iterate the above procedure for
+@emph{all} neighbouring elements (in random order) and for our present
+element by recursively calling the function for the present element. This
+last iteration could have been done in a loop,
+but it is done much simpler recursively.
+
+Notice that elements with coordinates that are both odd are assumed to be
+on our way through the maze and the generating process cannot terminate
+as long as there is such an element not being @code{delete}d. All other
+elements are potentially part of the wall.
+
+@smallexample
+@c file eg/network/maze.awk
+function MakeMaze(x, y) @{
+ delete Maze[x, y] # here we are, we have no wall here
+ p = 0 # count unvisited fields in all directions
+ if (x-2 SUBSEP y in Maze) d[p++] = "-x"
+ if (x SUBSEP y-2 in Maze) d[p++] = "-y"
+ if (x+2 SUBSEP y in Maze) d[p++] = "+x"
+ if (x SUBSEP y+2 in Maze) d[p++] = "+y"
+ if (p>0) @{ # if there are univisited fields, go there
+ p = int(p*rand()) # choose one unvisited field at random
+ if (d[p] == "-x") @{ delete Maze[x - 1, y]; MakeMaze(x - 2, y)
+ @} else if (d[p] == "-y") @{ delete Maze[x, y - 1]; MakeMaze(x, y - 2)
+ @} else if (d[p] == "+x") @{ delete Maze[x + 1, y]; MakeMaze(x + 2, y)
+ @} else if (d[p] == "+y") @{ delete Maze[x, y + 1]; MakeMaze(x, y + 2)
+ @} # we are back from recursion
+ MakeMaze(x, y); # try again while there are unvisited fields
+ @}
+@}
+@c endfile
+@end smallexample
+
+@node MOBAGWHO, STOXPRED, MAZE, Some Applications and Techniques
+@section MOBAGWHO: a Simple Mobile Agent
+@cindex MOBAGWHO program
+@cindex agent
+@quotation
+@cindex Hoare, C.A.R.
+@i{There are two ways of constructing a software design: One way is to
+make it so simple that there are obviously no deficiencies, and the
+other way is to make it so complicated that there are no obvious
+deficiencies.} @*
+C. A. R. Hoare
+@end quotation
+
+A @dfn{mobile agent} is a program that can be dispatched from a computer and
+transported to a remote server for execution. This is called @dfn{migration},
+which means that a process on another system is started that is independent
+from its originator. Ideally, it wanders through
+a network while working for its creator or owner. In places like
+the UMBC Agent Web,
+people are quite confident that (mobile) agents are a software engineering
+paradigm that enables us to significantly increase the efficiency
+of our work. Mobile agents could become the mediators between users and
+the networking world. For an unbiased view at this technology,
+see the remarkable paper @cite{Mobile Agents: Are they a good
+idea?}.@footnote{@uref{http://www.research.ibm.com/massive/mobag.ps}}
+
+@ignore
+@c Chuck says to take all of this out.
+@cindex Tcl/Tk
+A good instance of this paradigm is
+@cite{Agent Tcl},@footnote{@uref{http://agent.cs.dartmouth.edu/software/agent2.0/}}
+an extension of the Tcl language. After introducing a typical
+development environment, the aforementioned paper shows a nice little
+example application that we will try to rebuild in @command{gawk}. The
+@command{who} agent takes a list of servers and wanders from one server
+to the next one, always looking to see who is logged in.
+Having reached the last
+one, it sends back a message with a list of all users it found on each
+machine.
+
+But before implementing something that might or might not be a mobile
+agent, let us clarify the concept and some important terms. The agent
+paradigm in general is such a young scientific discipline that it has
+not yet developed a widely-accepted terminology. Some authors try to
+give precise definitions, but their scope is often not wide enough
+to be generally accepted. Franklin and Graesser ask
+@cite{Is it an Agent or just a Program: A Taxonomy for Autonomous
+Agents}@footnote{@uref{http://www.msci.memphis.edu/~franklin/AgentProg.html}}
+and give even better answers than Caglayan and Harrison in their
+@cite{Agent Sourcebook}.@footnote{@uref{http://www.aminda.com/mazzu/sourcebook/}}
+
+@itemize @minus
+@item
+@i{An autonomous agent is a system situated within and a part of
+an environment that senses that environment and acts on it, over time, in
+pursuit of its own agenda and so as to effect what it senses in the future.}
+(Quoted from Franklin and Graesser.)
+@item
+A mobile agent is able to transport itself from one machine to another.
+@item
+The term @dfn{migration} often denotes this process of moving.
+But neither of the two sources above even mentions this term, while others
+use it regularly.
+@end itemize
+
+Before delving into the (rather demanding) details of
+implementation, let us give just one more quotation as a final
+motivation. Steven Farley published an excellent paper called
+@cite{Mobile Agent System Architecture},@footnote{This often
+cited text originally appeared as a conference paper here:
+@uref{http://www.sigs.com/publications/docs/java/9705/farley.html}
+Many bibliographies on the Internet point to this dead link. Meanwhile,
+the paper appeared as a contribution to a book called More Java Gems here:
+@uref{http://uk.cambridge.org/computerscience/object/catalogue/0521774772/default.htm}}
+in which he asks ``Why use an agent architecture?''
+
+@quotation
+If client-server systems are the currently established norm and distributed
+object systems such as CORBA are defining the future standards, why bother
+with agents? Agent architectures have certain advantages over these other
+types. Three of the most important advantages are:
+@cindex CORBA
+
+@enumerate
+@item
+An agent performs much processing at the server where local bandwidth
+is high, thus reducing the amount of network bandwidth consumed and increasing
+overall performance. In contrast, a CORBA client object with the equivalent
+functionality of a given agent must make repeated remote method calls to
+the server object because CORBA objects cannot move across the network
+at runtime.
+
+@item
+An agent operates independently of the application from which the
+agent was invoked. The agent operates asynchronously, meaning that the
+client application does not need to wait for the results. This is especially
+important for mobile users who are not always connected to the network.
+
+@item
+The use of agents allows for the injection of new functionality into
+a system at run time. An agent system essentially contains its own automatic
+software distribution mechanism. Since CORBA has no built-in support for
+mobile code, new functionality generally has to be installed manually.
+
+@end enumerate
+
+Of course a non-agent system can exhibit these same features with some
+work. But the mobile code paradigm supports the transfer of executable
+code to a remote location for asynchronous execution from the start. An
+agent architecture should be considered for systems where the above features
+are primary requirements.
+@end quotation
+@end ignore
+
+When trying to migrate a process from one system to another,
+a server process is needed on the receiving side. Depending on the kind
+of server process, several ways of implementation come to mind.
+How the process is implemented depends upon the kind of server process:
+
+@itemize @bullet
+@item
+HTTP can be used as the protocol for delivery of the migrating
+process. In this case, we use a common web
+server as the receiving server process. A universal CGI script
+mediates between migrating process and web server.
+Each server willing to accept migrating agents makes this universal
+service available. HTTP supplies the @code{POST} method to transfer
+some data to a file on the web server. When a CGI script is called
+remotely with the @code{POST} method instead of the usual @code{GET} method,
+data is transmitted from the client process to the standard input
+of the server's CGI script. So, to implement a mobile agent,
+we must not only write the agent program to start on the client
+side, but also the CGI script to receive the agent on the server side.
+
+@cindex CGI
+@cindex apache
+@item
+The @code{PUT} method can also be used for migration. HTTP does not
+require a CGI script for migration via @code{PUT}. However, with common web
+servers there is no advantage to this solution, because web servers such as
+Apache
+require explicit activation of a special @code{PUT} script.
+
+@item
+@cite{Agent Tcl} pursues a different course; it relies on a dedicated server
+process with a dedicated protocol specialized for receiving mobile agents.
+@end itemize
+
+Our agent example abuses a common web server as a migration tool. So, it needs a
+universal CGI script on the receiving side (the web server). The receiving script is
+activated with a @code{POST} request when placed into a location like
+@file{/httpd/cgi-bin/PostAgent.sh}. Make sure that the server system uses a
+version of @command{gawk} that supports network access (Version 3.1 or later;
+verify with @samp{gawk --version}).
+
+@example
+@c file eg/network/PostAgent.sh
+#!/bin/sh
+MobAg=/tmp/MobileAgent.$$
+# direct script to mobile agent file
+cat > $MobAg
+# execute agent concurrently
+gawk -f $MobAg $MobAg > /dev/null &
+# HTTP header, terminator and body
+gawk 'BEGIN @{ print "\r\nAgent started" @}'
+rm $MobAg # delete script file of agent
+@c endfile
+@end example
+
+By making its process id (@code{$$}) part of the unique @value{FN}, the
+script avoids conflicts between concurrent instances of the script.
+First, all lines
+from standard input (the mobile agent's source code) are copied into
+this unique file. Then, the agent is started as a concurrent process
+and a short message reporting this fact is sent to the submitting client.
+Finally, the script file of the mobile agent is removed because it is
+no longer needed. Although it is a short script, there are several noteworthy
+points:
+
+@table @asis
+@item Security
+@emph{There is none}. In fact, the CGI script should never
+be made available on a server that is part of the Internet because everyone
+would be allowed to execute arbitrary commands with it. This behavior is
+acceptable only when performing rapid prototyping.
+
+@item Self-Reference
+Each migrating instance of an agent is started
+in a way that enables it to read its own source code from standard input
+and use the code for subsequent
+migrations. This is necessary because it needs to treat the agent's code
+as data to transmit. @command{gawk} is not the ideal language for such
+a job. Lisp and Tcl are more suitable because they do not make a distinction
+between program code and data.
+
+@item Independence
+After migration, the agent is not linked to its
+former home in any way. By reporting @samp{Agent started}, it waves
+``Goodbye'' to its origin. The originator may choose to terminate or not.
+@end table
+
+@cindex Lisp
+The originating agent itself is started just like any other command-line
+script, and reports the results on standard output. By letting the name
+of the original host migrate with the agent, the agent that migrates
+to a host far away from its origin can report the result back home.
+Having arrived at the end of the journey, the agent establishes
+a connection and reports the results. This is the reason for
+determining the name of the host with @samp{uname -n} and storing it
+in @code{MyOrigin} for later use. We may also set variables with the
+@option{-v} option from the command line. This interactivity is only
+of importance in the context of starting a mobile agent; therefore this
+@code{BEGIN} pattern and its action do not take part in migration:
+
+@smallexample
+@c file eg/network/mobag.awk
+BEGIN @{
+ if (ARGC != 2) @{
+ print "MOBAG - a simple mobile agent"
+ print "CALL:\n gawk -f mobag.awk mobag.awk"
+ print "IN:\n the name of this script as a command-line parameter"
+ print "PARAM:\n -v MyOrigin=myhost.com"
+ print "OUT:\n the result on stdout"
+ print "JK 29.03.1998 01.04.1998"
+ exit
+ @}
+ if (MyOrigin == "") @{
+ "uname -n" | getline MyOrigin
+ close("uname -n")
+ @}
+@}
+@c endfile
+@end smallexample
+
+Since @command{gawk} cannot manipulate and transmit parts of the program
+directly, the source code is read and stored in strings.
+Therefore, the program scans itself for
+the beginning and the ending of functions.
+Each line in between is appended to the code string until the end of
+the function has been reached. A special case is this part of the program
+itself. It is not a function.
+Placing a similar framework around it causes it to be treated
+like a function. Notice that this mechanism works for all the
+functions of the source code, but it cannot guarantee that the order
+of the functions is preserved during migration:
+
+@smallexample
+@c file eg/network/mobag.awk
+#ReadMySelf
+/^function / @{ FUNC = $2 @}
+/^END/ || /^#ReadMySelf/ @{ FUNC = $1 @}
+FUNC != "" @{ MOBFUN[FUNC] = MOBFUN[FUNC] RS $0 @}
+(FUNC != "") && (/^@}/ || /^#EndOfMySelf/) \
+ @{ FUNC = "" @}
+#EndOfMySelf
+@c endfile
+@end smallexample
+
+The web server code in
+@ref{Interacting Service, ,A Web Service with Interaction},
+was first developed as a site-independent core. Likewise, the
+@command{gawk}-based mobile agent
+starts with an agent-independent core, to which can be appended
+application-dependent functions. What follows is the only
+application-independent function needed for the mobile agent:
+
+@smallexample
+@c file eg/network/mobag.awk
+function migrate(Destination, MobCode, Label) @{
+ MOBVAR["Label"] = Label
+ MOBVAR["Destination"] = Destination
+ RS = ORS = "\r\n"
+ HttpService = "/inet/tcp/0/" Destination
+ for (i in MOBFUN)
+ MobCode = (MobCode "\n" MOBFUN[i])
+ MobCode = MobCode "\n\nBEGIN @{"
+ for (i in MOBVAR)
+ MobCode = (MobCode "\n MOBVAR[\"" i "\"] = \"" MOBVAR[i] "\"")
+ MobCode = MobCode "\n@}\n"
+ print "POST /cgi-bin/PostAgent.sh HTTP/1.0" |& HttpService
+ print "Content-length:", length(MobCode) ORS |& HttpService
+ printf "%s", MobCode |& HttpService
+ while ((HttpService |& getline) > 0)
+ print $0
+ close(HttpService)
+@}
+@c endfile
+@end smallexample
+
+The @code{migrate} function prepares the
+aforementioned strings containing the program code and transmits them to a
+server. A consequence of this modular approach is that the @code{migrate}
+function takes some parameters that aren't needed in this application,
+but that will be in future ones. Its mandatory parameter @code{Destination} holds the
+name (or IP address) of the server that the agent wants as a host for its
+code. The optional parameter @code{MobCode} may contain some @command{gawk}
+code that is inserted during migration in front of all other code.
+The optional parameter @code{Label} may contain
+a string that tells the agent what to do in program execution after
+arrival at its new home site. One of the serious obstacles in implementing
+a framework for mobile agents is that it does not suffice to migrate the
+code. It is also necessary to migrate the state of execution of the agent. In
+contrast to @cite{Agent Tcl}, this program does not try to migrate the complete set
+of variables. The following conventions are used:
+
+@itemize @bullet
+@item
+Each variable in an agent program is local to the current host and does
+@emph{not} migrate.
+
+@item
+The array @code{MOBFUN} shown above is an exception. It is handled
+by the function @code{migrate} and does migrate with the application.
+
+@item
+The other exception is the array @code{MOBVAR}. Each variable that
+takes part in migration has to be an element of this array.
+@code{migrate} also takes care of this.
+@end itemize
+
+Now it's clear what happens to the @code{Label} parameter of the
+function @code{migrate}. It is copied into @code{MOBVAR["Label"]} and
+travels alongside the other data. Since travelling takes place via HTTP,
+records must be separated with @code{"\r\n"} in @code{RS} and
+@code{ORS} as usual. The code assembly for migration takes place in
+three steps:
+
+@itemize @bullet
+@item
+Iterate over @code{MOBFUN} to collect all functions verbatim.
+
+@item
+Prepare a @code{BEGIN} pattern and put assignments to mobile
+variables into the action part.
+
+@item
+Transmission itself resembles GETURL: the header with the request
+and the @code{Content-length} is followed by the body. In case there is
+any reply over the network, it is read completely and echoed to
+standard output to avoid irritating the server.
+@end itemize
+
+The application-independent framework is now almost complete. What follows
+is the @code{END} pattern that is executed when the mobile agent has
+finished reading its own code. First, it checks whether it is already
+running on a remote host or not. In case initialization has not yet taken
+place, it starts @code{MyInit}. Otherwise (later, on a remote host), it
+starts @code{MyJob}:
+
+@smallexample
+@c file eg/network/mobag.awk
+END @{
+ if (ARGC != 2) exit # stop when called with wrong parameters
+ if (MyOrigin != "") # is this the originating host?
+ MyInit() # if so, initialize the application
+ else # we are on a host with migrated data
+ MyJob() # so we do our job
+@}
+@c endfile
+@end smallexample
+
+All that's left to extend the framework into a complete application
+is to write two application-specific functions: @code{MyInit} and
+@code{MyJob}. Keep in mind that the former is executed once on the
+originating host, while the latter is executed after each migration:
+
+@smallexample
+@c file eg/network/mobag.awk
+function MyInit() @{
+ MOBVAR["MyOrigin"] = MyOrigin
+ MOBVAR["Machines"] = "localhost/80 max/80 moritz/80 castor/80"
+ split(MOBVAR["Machines"], Machines) # which host is the first?
+ migrate(Machines[1], "", "") # go to the first host
+ while (("/inet/tcp/8080/0/0" |& getline) > 0) # wait for result
+ print $0 # print result
+ close("/inet/tcp/8080/0/0")
+@}
+@c endfile
+@end smallexample
+
+As mentioned earlier, this agent takes the name of its origin
+(@code{MyOrigin}) with it. Then, it takes the name of its first
+destination and goes there for further work. Notice that this name has
+the port number of the web server appended to the name of the server,
+because the function @code{migrate} needs it this way to create
+the @code{HttpService} variable. Finally, it waits for the result to arrive.
+The @code{MyJob} function runs on the remote host:
+
+@smallexample
+@c file eg/network/mobag.awk
+function MyJob() @{
+ # forget this host
+ sub(MOBVAR["Destination"], "", MOBVAR["Machines"])
+ MOBVAR["Result"]=MOBVAR["Result"] SUBSEP SUBSEP MOBVAR["Destination"] ":"
+ while (("who" | getline) > 0) # who is logged in?
+ MOBVAR["Result"] = MOBVAR["Result"] SUBSEP $0
+ close("who")
+ if (index(MOBVAR["Machines"], "/") > 0) @{ # any more machines to visit?
+ split(MOBVAR["Machines"], Machines) # which host is next?
+ migrate(Machines[1], "", "") # go there
+ @} else @{ # no more machines
+ gsub(SUBSEP, "\n", MOBVAR["Result"]) # send result to origin
+ print MOBVAR["Result"] |& "/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080"
+ close("/inet/tcp/0/" MOBVAR["MyOrigin"] "/8080")
+ @}
+@}
+@c endfile
+@end smallexample
+
+After migrating, the first thing to do in @code{MyJob} is to delete
+the name of the current host from the list of hosts to visit. Now, it
+is time to start the real work by appending the host's name to the
+result string, and reading line by line who is logged in on this host.
+A very annoying circumstance is the fact that the elements of
+@code{MOBVAR} cannot hold the newline character (@code{"\n"}). If they
+did, migration of this string did not work because the string didn't
+obey the syntax rule for a string in @command{gawk}.
+@code{SUBSEP} is used as a temporary replacement.
+If the list of hosts to visit holds
+at least one more entry, the agent migrates to that place to go on
+working there. Otherwise, we replace the @code{SUBSEP}s
+with a newline character in the resulting string, and report it to
+the originating host, whose name is stored in @code{MOBVAR["MyOrigin"]}.
+
+@node STOXPRED, PROTBASE, MOBAGWHO, Some Applications and Techniques
+@section STOXPRED: Stock Market Prediction As A Service
+@cindex STOXPRED program
+@cindex Yahoo
+@quotation
+@i{Far out in the uncharted backwaters of the unfashionable end of
+the Western Spiral arm of the Galaxy lies a small unregarded yellow sun.}
+
+@i{Orbiting this at a distance of roughly ninety-two million miles is an
+utterly insignificant little blue-green planet whose ape-descendent life
+forms are so amazingly primitive that they still think digital watches are
+a pretty neat idea.}
+
+@i{This planet has --- or rather had --- a problem, which was this:
+most of the people living on it were unhappy for pretty much of the time.
+Many solutions were suggested for this problem, but most of these were
+largely concerned with the movements of small green pieces of paper,
+which is odd because it wasn't the small green pieces of paper that
+were unhappy.} @*
+Douglas Adams, @cite{The Hitch Hiker's Guide to the Galaxy}
+@end quotation
+
+@cindex @command{cron}
+Valuable services on the Internet are usually @emph{not} implemented
+as mobile agents. There are much simpler ways of implementing services.
+All Unix systems provide, for example, the @command{cron} service.
+Unix system users can write a list of tasks to be done each day, each
+week, twice a day, or just once. The list is entered into a file named
+@file{crontab}. For example, to distribute a newsletter on a daily
+basis this way, use @command{cron} for calling a script each day early
+in the morning.
+
+@example
+# run at 8 am on weekdays, distribute the newsletter
+0 8 * * 1-5 $HOME/bin/daily.job >> $HOME/log/newsletter 2>&1
+@end example
+
+The script first looks for interesting information on the Internet,
+assembles it in a nice form and sends the results via email to
+the customers.
+
+The following is an example of a primitive
+newsletter on stock market prediction. It is a report which first
+tries to predict the change of each share in the Dow Jones Industrial
+Index for the particular day. Then it mentions some especially
+promising shares as well as some shares which look remarkably bad
+on that day. The report ends with the usual disclaimer which tells
+every child @emph{not} to try this at home and hurt anybody.
+@cindex Dow Jones Industrial Index
+
+@smallexample
+Good morning Uncle Scrooge,
+
+This is your daily stock market report for Monday, October 16, 2000.
+Here are the predictions for today:
+
+ AA neutral
+ GE up
+ JNJ down
+ MSFT neutral
+ @dots{}
+ UTX up
+ DD down
+ IBM up
+ MO down
+ WMT up
+ DIS up
+ INTC up
+ MRK down
+ XOM down
+ EK down
+ IP down
+
+The most promising shares for today are these:
+
+ INTC http://biz.yahoo.com/n/i/intc.html
+
+The stock shares to avoid today are these:
+
+ EK http://biz.yahoo.com/n/e/ek.html
+ IP http://biz.yahoo.com/n/i/ip.html
+ DD http://biz.yahoo.com/n/d/dd.html
+ @dots{}
+@end smallexample
+
+@ignore
+@c Chuck suggests removing this paragraph
+If you are not into stock market prediction but want to earn money
+with a more humane service, you might prefer to send out horoscopes
+to your customers. Or, once every refrigerator in every household on this side
+of the Chinese Wall is connected to the Internet, such a service could
+inspect the contents of your customer's refrigerators each day and
+advise them on nutrition. Big Brother is watching them.
+@end ignore
+
+The script as a whole is rather long. In order to ease the pain of
+studying other people's source code, we have broken the script
+up into meaningful parts which are invoked one after the other.
+The basic structure of the script is as follows:
+
+@example
+@c file eg/network/stoxpred.awk
+BEGIN @{
+ Init()
+ ReadQuotes()
+ CleanUp()
+ Prediction()
+ Report()
+ SendMail()
+@}
+@c endfile
+@end example
+
+The earlier parts store data into variables and arrays which are
+subsequently used by later parts of the script. The @code{Init} function
+first checks if the script is invoked correctly (without any parameters).
+If not, it informs the user of the correct usage. What follows are preparations
+for the retrieval of the historical quote data. The names of the 30 stock
+shares are stored in an array @code{name} along with the current date
+in @code{day}, @code{month}, and @code{year}.
+
+All users who are separated
+from the Internet by a firewall and have to direct their Internet accesses
+to a proxy must supply the name of the proxy to this script with the
+@samp{-v Proxy=@var{name}} option. For most users, the default proxy and
+port number should suffice.
+
+@example
+@c file eg/network/stoxpred.awk
+function Init() @{
+ if (ARGC != 1) @{
+ print "STOXPRED - daily stock share prediction"
+ print "IN:\n no parameters, nothing on stdin"
+ print "PARAM:\n -v Proxy=MyProxy -v ProxyPort=80"
+ print "OUT:\n commented predictions as email"
+ print "JK 09.10.2000"
+ exit
+ @}
+ # Remember ticker symbols from Dow Jones Industrial Index
+ StockCount = split("AA GE JNJ MSFT AXP GM JPM PG BA HD KO \
+ SBC C HON MCD T CAT HWP MMM UTX DD IBM MO WMT DIS INTC \
+ MRK XOM EK IP", name);
+ # Remember the current date as the end of the time series
+ day = strftime("%d")
+ month = strftime("%m")
+ year = strftime("%Y")
+ if (Proxy == "") Proxy = "chart.yahoo.com"
+ if (ProxyPort == 0) ProxyPort = 80
+ YahooData = "/inet/tcp/0/" Proxy "/" ProxyPort
+@}
+@c endfile
+@end example
+
+@cindex CSV format
+There are two really interesting parts in the script. One is the
+function which reads the historical stock quotes from an Internet
+server. The other is the one that does the actual prediction. In
+the following function we see how the quotes are read from the
+Yahoo server. The data which comes from the server is in
+CSV format (comma-separated values):
+
+@example
+@c file eg/network/stoxdata.txt
+Date,Open,High,Low,Close,Volume
+9-Oct-00,22.75,22.75,21.375,22.375,7888500
+6-Oct-00,23.8125,24.9375,21.5625,22,10701100
+5-Oct-00,24.4375,24.625,23.125,23.50,5810300
+@c endfile
+@end example
+
+Lines contain values of the same time instant, whereas columns are
+separated by commas and contain the kind of data that is described
+in the header (first) line. At first, @command{gawk} is instructed to
+separate columns by commas (@samp{FS = ","}). In the loop that follows,
+a connection to the Yahoo server is first opened, then a download takes
+place, and finally the connection is closed. All this happens once for
+each ticker symbol. In the body of this loop, an Internet address is
+built up as a string according to the rules of the Yahoo server. The
+starting and ending date are chosen to be exactly the same, but one year
+apart in the past. All the action is initiated within the @code{printf}
+command which transmits the request for data to the Yahoo server.
+
+In the inner loop, the server's data is first read and then scanned
+line by line. Only lines which have six columns and the name of a month
+in the first column contain relevant data. This data is stored
+in the two-dimensional array @code{quote}; one dimension
+being time, the other being the ticker symbol. During retrieval of the
+first stock's data, the calendar names of the time instances are stored
+in the array @code{day} because we need them later.
+
+@smallexample
+@c file eg/network/stoxpred.awk
+function ReadQuotes() @{
+ # Retrieve historical data for each ticker symbol
+ FS = ","
+ for (stock = 1; stock <= StockCount; stock++) @{
+ URL = "http://chart.yahoo.com/table.csv?s=" name[stock] \
+ "&a=" month "&b=" day "&c=" year-1 \
+ "&d=" month "&e=" day "&f=" year \
+ "g=d&q=q&y=0&z=" name[stock] "&x=.csv"
+ printf("GET " URL " HTTP/1.0\r\n\r\n") |& YahooData
+ while ((YahooData |& getline) > 0) @{
+ if (NF == 6 && $1 ~ /Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec/) @{
+ if (stock == 1)
+ days[++daycount] = $1;
+ quote[$1, stock] = $5
+ @}
+ @}
+ close(YahooData)
+ @}
+ FS = " "
+@}
+@c endfile
+@end smallexample
+
+Now that we @emph{have} the data, it can be checked once again to make sure
+that no individual stock is missing or invalid, and that all the stock quotes are
+aligned correctly. Furthermore, we renumber the time instances. The
+most recent day gets day number 1 and all other days get consecutive
+numbers. All quotes are rounded toward the nearest whole number in US Dollars.
+
+@smallexample
+@c file eg/network/stoxpred.awk
+function CleanUp() @{
+ # clean up time series; eliminate incomplete data sets
+ for (d = 1; d <= daycount; d++) @{
+ for (stock = 1; stock <= StockCount; stock++)
+ if (! ((days[d], stock) in quote))
+ stock = StockCount + 10
+ if (stock > StockCount + 1)
+ continue
+ datacount++
+ for (stock = 1; stock <= StockCount; stock++)
+ data[datacount, stock] = int(0.5 + quote[days[d], stock])
+ @}
+ delete quote
+ delete days
+@}
+@c endfile
+@end smallexample
+
+Now we have arrived at the second really interesting part of the whole affair.
+What we present here is a very primitive prediction algorithm:
+@emph{If a stock fell yesterday, assume it will also fall today; if
+it rose yesterday, assume it will rise today}. (Feel free to replace this
+algorithm with a smarter one.) If a stock changed in the same direction
+on two consecutive days, this is an indication which should be highlighted.
+Two-day advances are stored in @code{hot} and two-day declines in
+@code{avoid}.
+
+The rest of the function is a sanity check. It counts the number of
+correct predictions in relation to the total number of predictions
+one could have made in the year before.
+
+@smallexample
+@c file eg/network/stoxpred.awk
+function Prediction() @{
+ # Predict each ticker symbol by prolonging yesterday's trend
+ for (stock = 1; stock <= StockCount; stock++) @{
+ if (data[1, stock] > data[2, stock]) @{
+ predict[stock] = "up"
+ @} else if (data[1, stock] < data[2, stock]) @{
+ predict[stock] = "down"
+ @} else @{
+ predict[stock] = "neutral"
+ @}
+ if ((data[1, stock] > data[2, stock]) && (data[2, stock] > data[3, stock]))
+ hot[stock] = 1
+ if ((data[1, stock] < data[2, stock]) && (data[2, stock] < data[3, stock]))
+ avoid[stock] = 1
+ @}
+ # Do a plausibility check: how many predictions proved correct?
+ for (s = 1; s <= StockCount; s++) @{
+ for (d = 1; d <= datacount-2; d++) @{
+ if (data[d+1, s] > data[d+2, s]) @{
+ UpCount++
+ @} else if (data[d+1, s] < data[d+2, s]) @{
+ DownCount++
+ @} else @{
+ NeutralCount++
+ @}
+ if (((data[d, s] > data[d+1, s]) && (data[d+1, s] > data[d+2, s])) ||
+ ((data[d, s] < data[d+1, s]) && (data[d+1, s] < data[d+2, s])) ||
+ ((data[d, s] == data[d+1, s]) && (data[d+1, s] == data[d+2, s])))
+ CorrectCount++
+ @}
+ @}
+@}
+@c endfile
+@end smallexample
+
+At this point the hard work has been done: the array @code{predict}
+contains the predictions for all the ticker symbols. It is up to the
+function @code{Report} to find some nice words to introduce the
+desired information.
+
+@smallexample
+@c file eg/network/stoxpred.awk
+function Report() @{
+ # Generate report
+ report = "\nThis is your daily "
+ report = report "stock market report for "strftime("%A, %B %d, %Y")".\n"
+ report = report "Here are the predictions for today:\n\n"
+ for (stock = 1; stock <= StockCount; stock++)
+ report = report "\t" name[stock] "\t" predict[stock] "\n"
+ for (stock in hot) @{
+ if (HotCount++ == 0)
+ report = report "\nThe most promising shares for today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ @}
+ for (stock in avoid) @{
+ if (AvoidCount++ == 0)
+ report = report "\nThe stock shares to avoid today are these:\n\n"
+ report = report "\t" name[stock] "\t\thttp://biz.yahoo.com/n/" \
+ tolower(substr(name[stock], 1, 1)) "/" tolower(name[stock]) ".html\n"
+ @}
+ report = report "\nThis sums up to " HotCount+0 " winners and " AvoidCount+0
+ report = report " losers. When using this kind\nof prediction scheme for"
+ report = report " the 12 months which lie behind us,\nwe get " UpCount
+ report = report " 'ups' and " DownCount " 'downs' and " NeutralCount
+ report = report " 'neutrals'. Of all\nthese " UpCount+DownCount+NeutralCount
+ report = report " predictions " CorrectCount " proved correct next day.\n"
+ report = report "A success rate of "\
+ int(100*CorrectCount/(UpCount+DownCount+NeutralCount)) "%.\n"
+ report = report "Random choice would have produced a 33% success rate.\n"
+ report = report "Disclaimer: Like every other prediction of the stock\n"
+ report = report "market, this report is, of course, complete nonsense.\n"
+ report = report "If you are stupid enough to believe these predictions\n"
+ report = report "you should visit a doctor who can treat your ailment."
+@}
+@c endfile
+@end smallexample
+
+The function @code{SendMail} goes through the list of customers and opens
+a pipe to the @code{mail} command for each of them. Each one receives an
+email message with a proper subject heading and is addressed with his full name.
+
+@smallexample
+@c file eg/network/stoxpred.awk
+function SendMail() @{
+ # send report to customers
+ customer["uncle.scrooge@@ducktown.gov"] = "Uncle Scrooge"
+ customer["more@@utopia.org" ] = "Sir Thomas More"
+ customer["spinoza@@denhaag.nl" ] = "Baruch de Spinoza"
+ customer["marx@@highgate.uk" ] = "Karl Marx"
+ customer["keynes@@the.long.run" ] = "John Maynard Keynes"
+ customer["bierce@@devil.hell.org" ] = "Ambrose Bierce"
+ customer["laplace@@paris.fr" ] = "Pierre Simon de Laplace"
+ for (c in customer) @{
+ MailPipe = "mail -s 'Daily Stock Prediction Newsletter'" c
+ print "Good morning " customer[c] "," | MailPipe
+ print report "\n.\n" | MailPipe
+ close(MailPipe)
+ @}
+@}
+@c endfile
+@end smallexample
+
+Be patient when running the script by hand.
+Retrieving the data for all the ticker symbols and sending the emails
+may take several minutes to complete, depending upon network traffic
+and the speed of the available Internet link.
+The quality of the prediction algorithm is likely to be disappointing.
+Try to find a better one.
+Should you find one with a success rate of more than 50%, please tell
+us about it! It is only for the sake of curiosity, of course. @code{:-)}
+
+@ignore
+@c chuck says to remove this
+Let us give you one final indication as to what one can expect from
+a prediction of stock data, which is sometimes said to contain much
+randomness. One theory says that all relevant information to be taken
+into account when estimating the price of a stock is contained in the
+stock quotes. Every bit of useful information has influenced the
+fair price. Therefore (the theory says) temporary changes (i.e., fluctuations
+within a minute) have to be purely random. But what is the cause of
+short-term changes in stock prices?
+
+Stock prices are fixed when supply and demand meet each other.
+What people are willing to pay reflects human expectations.
+Human expectations are not necessarily random. On the Internet,
+you can find an elucidating paper about predictability and human
+expectations:
+@uref{http://it.ucsd.edu/IT/Newsletter/archives/meir/05meir.html,
+@cite{Reflections on ``Universal Prediction of Individual Sequences''}}
+The authors (Feder, Merhav, Gutman) introduce the reader to the subject
+by telling a thrilling anecdote.
+@cindex Shannon, Claude
+@quotation
+In the early 50's, at Bell Laboratories, David Hagelbarger built a
+simple ``mind reading'' machine, whose purpose was to play the ``penny
+matching'' game. In this game, a player chooses head or tail, while a
+``mind reading'' machine tries to predict and match his choice.
+Surprisingly, as Robert Lucky tells in his book ``Silicon Dreams'',
+Hagelbarger's simple, 8-state machine, was able to match the ``pennies''
+of its human opponent 5,218 times over the course of 9,795 plays.
+Random guessing would lead to such a high success rate with a probability
+less than one out of 10 billion! Shannon, who was interested in prediction,
+information, and thinking machines, closely followed Hagelbarger's
+machine, and eventually built his own stripped-down version of the machine,
+having the same states, but one that used a simpler strategy at each state.
+As the legend goes, in a duel between the two machines, Shannon's machine
+won by a slight margin! No one knows if this was due to a superior algorithm
+or just a chance happening associated with the specific sequence at that game.
+In any event, the success of both these machines against ``untrained'' human
+opponents was explained by the fact that the human opponents cannot draw
+completely random
+bits.
+@end quotation
+@end ignore
+
+@node PROTBASE, , STOXPRED, Some Applications and Techniques
+@section PROTBASE: Searching Through A Protein Database
+@cindex PROTBASE
+@cindex NCBI, National Center for Biotechnology Information
+@cindex BLAST, Basic Local Alignment Search Tool
+@cindex Hoare, C.A.R.
+@quotation
+@i{Hoare's Law of Large Problems: Inside every large problem is a small
+ problem struggling to get out.}
+@end quotation
+
+Yahoo's database of stock market data is just one among the many large
+databases on the Internet. Another one is located at NCBI
+(National Center for Biotechnology
+Information). Established in 1988 as a national resource for molecular
+biology information, NCBI creates public databases, conducts research
+in computational biology, develops software tools for analyzing genome
+data, and disseminates biomedical information. In this section, we
+look at one of NCBI's public services, which is called BLAST
+(Basic Local Alignment Search Tool).
+
+You probably know that the information necessary for reproducing living
+cells is encoded in the genetic material of the cells. The genetic material
+is a very long chain of four base nucleotides. It is the order of
+appearance (the sequence) of nucleotides which contains the information
+about the substance to be produced. Scientists in biotechnology often
+find a specific fragment, determine the nucleotide sequence, and need
+to know where the sequence at hand comes from. This is where the large
+databases enter the game. At NCBI, databases store the knowledge
+about which sequences have ever been found and where they have been found.
+When the scientist sends his sequence to the BLAST service, the server
+looks for regions of genetic material in its database which
+look the most similar to the delivered nucleotide sequence. After a
+search time of some seconds or minutes the server sends an answer to
+the scientist. In order to make access simple, NCBI chose to offer
+their database service through popular Internet protocols. There are
+four basic ways to use the so-called BLAST services:
+
+@itemize @bullet
+@item
+The easiest way to use BLAST is through the web. Users may simply point
+their browsers at the NCBI home page
+and link to the BLAST pages.
+NCBI provides a stable URL that may be used to perform BLAST searches
+without interactive use of a web browser. This is what we will do later
+in this section.
+A demonstration client
+and a @file{README} file demonstrate how to access this URL.
+
+@item
+Currently,
+@command{blastcl3} is the standard network BLAST client.
+You can download @command{blastcl3} from the
+anonymous FTP location.
+
+@item
+BLAST 2.0 can be run locally as a full executable and can be used to run
+BLAST searches against private local databases, or downloaded copies of the
+NCBI databases. BLAST 2.0 executables may be found on the NCBI
+anonymous FTP server.
+
+@item
+The NCBI BLAST Email server is the best option for people without convenient
+access to the web. A similarity search can be performed by sending a properly
+formatted mail message containing the nucleotide or protein query sequence to
+@email{blast@@ncbi.nlm.nih.gov}. The query sequence is compared against the
+specified database using the BLAST algorithm and the results are returned in
+an email message. For more information on formulating email BLAST searches,
+you can send a message consisting of the word ``HELP'' to the same address,
+@email{blast@@ncbi.nlm.nih.gov}.
+@end itemize
+
+Our starting point is the demonstration client mentioned in the first option.
+The @file{README} file that comes along with the client explains the whole
+process in a nutshell. In the rest of this section, we first show
+what such requests look like. Then we show how to use @command{gawk} to
+implement a client in about 10 lines of code. Finally, we show how to
+interpret the result returned from the service.
+
+Sequences are expected to be represented in the standard
+IUB/IUPAC amino acid and nucleic acid codes,
+with these exceptions: lower-case letters are accepted and are mapped
+into upper-case; a single hyphen or dash can be used to represent a gap
+of indeterminate length; and in amino acid sequences, @samp{U} and @samp{*}
+are acceptable letters (see below). Before submitting a request, any numerical
+digits in the query sequence should either be removed or replaced by
+appropriate letter codes (e.g., @samp{N} for unknown nucleic acid residue
+or @samp{X} for unknown amino acid residue).
+The nucleic acid codes supported are:
+
+@example
+A --> adenosine M --> A C (amino)
+C --> cytidine S --> G C (strong)
+G --> guanine W --> A T (weak)
+T --> thymidine B --> G T C
+U --> uridine D --> G A T
+R --> G A (purine) H --> A C T
+Y --> T C (pyrimidine) V --> G C A
+K --> G T (keto) N --> A G C T (any)
+ - gap of indeterminate length
+@end example
+
+Now you know the alphabet of nucleotide sequences. The last two lines
+of the following example query show you such a sequence, which is obviously
+made up only of elements of the alphabet just described. Store this example
+query into a file named @file{protbase.request}. You are now ready to send
+it to the server with the demonstration client.
+
+@example
+@c file eg/network/protbase.request
+PROGRAM blastn
+DATALIB month
+EXPECT 0.75
+BEGIN
+>GAWK310 the gawking gene GNU AWK
+tgcttggctgaggagccataggacgagagcttcctggtgaagtgtgtttcttgaaatcat
+caccaccatggacagcaaa
+@c endfile
+@end example
+
+@cindex FASTA/Pearson format
+The actual search request begins with the mandatory parameter @samp{PROGRAM}
+in the first column followed by the value @samp{blastn} (the name of the
+program) for searching nucleic acids. The next line contains the mandatory
+search parameter @samp{DATALIB} with the value @samp{month} for the newest
+nucleic acid sequences. The third line contains an optional @samp{EXPECT}
+parameter and the value desired for it. The fourth line contains the
+mandatory @samp{BEGIN} directive, followed by the query sequence in
+FASTA/Pearson format.
+Each line of information must be less than 80 characters in length.
+
+The ``month'' database contains all new or revised sequences released in the
+last 30 days and is useful for searching against new sequences.
+There are five different blast programs, @command{blastn} being the one that
+compares a nucleotide query sequence against a nucleotide sequence database.
+
+The last server directive that must appear in every request is the
+@samp{BEGIN} directive. The query sequence should immediately follow the
+@samp{BEGIN} directive and must appear in FASTA/Pearson format.
+A sequence in
+FASTA/Pearson format begins with a single-line description.
+The description line, which is required, is distinguished from the lines of
+sequence data that follow it by having a greater-than (@samp{>}) symbol
+in the first column. For the purposes of the BLAST server, the text of
+the description is arbitrary.
+
+If you prefer to use a client written in @command{gawk}, just store the following
+10 lines of code into a file named @file{protbase.awk} and use this client
+instead. Invoke it with @samp{gawk -f protbase.awk protbase.request}.
+Then wait a minute and watch the result coming in. In order to replicate
+the demonstration client's behaviour as closely as possible, this client
+does not use a proxy server. We could also have extended the client program
+in @ref{GETURL, ,Retrieving Web Pages}, to implement the client request from
+@file{protbase.awk} as a special case.
+
+@smallexample
+@c file eg/network/protbase.awk
+@{ request = request "\n" $0 @}
+
+END @{
+ BLASTService = "/inet/tcp/0/www.ncbi.nlm.nih.gov/80"
+ printf "POST /cgi-bin/BLAST/nph-blast_report HTTP/1.0\n" |& BLASTService
+ printf "Content-Length: " length(request) "\n\n" |& BLASTService
+ printf request |& BLASTService
+ while ((BLASTService |& getline) > 0)
+ print $0
+ close(BLASTService)
+@}
+@c endfile
+@end smallexample
+
+The demonstration client from NCBI is 214 lines long (written in C) and
+it is not immediately obvious what it does. Our client is so short that
+it @emph{is} obvious what it does. First it loops over all lines of the
+query and stores the whole query into a variable. Then the script
+establishes an Internet connection to the NCBI server and transmits the
+query by framing it with a proper HTTP request. Finally it receives
+and prints the complete result coming from the server.
+
+Now, let us look at the result. It begins with an HTTP header, which you
+can ignore. Then there are some comments about the query having been
+filtered to avoid spuriously high scores. After this, there is a reference
+to the paper that describes the software being used for searching the data
+base. After a repitition of the original query's description we find the
+list of significant alignments:
+
+@smallexample
+@c file eg/network/protbase.result
+Sequences producing significant alignments: (bits) Value
+
+gb|AC021182.14|AC021182 Homo sapiens chromosome 7 clone RP11-733... 38 0.20
+gb|AC021056.12|AC021056 Homo sapiens chromosome 3 clone RP11-115... 38 0.20
+emb|AL160278.10|AL160278 Homo sapiens chromosome 9 clone RP11-57... 38 0.20
+emb|AL391139.11|AL391139 Homo sapiens chromosome X clone RP11-35... 38 0.20
+emb|AL365192.6|AL365192 Homo sapiens chromosome 6 clone RP3-421H... 38 0.20
+emb|AL138812.9|AL138812 Homo sapiens chromosome 11 clone RP1-276... 38 0.20
+gb|AC073881.3|AC073881 Homo sapiens chromosome 15 clone CTD-2169... 38 0.20
+@c endfile
+@end smallexample
+
+This means that the query sequence was found in seven human chromosomes.
+But the value 0.20 (20%) means that the probability of an accidental match
+is rather high (20%) in all cases and should be taken into account.
+You may wonder what the first column means. It is a key to the specific
+database in which this occurence was found. The unique sequence identifiers
+reported in the search results can be used as sequence retrieval keys
+via the NCBI server. The syntax of sequence header lines used by the NCBI
+BLAST server depends on the database from which each sequence was obtained.
+The table below lists the identifiers for the databases from which the
+sequences were derived.
+
+@ifinfo
+@example
+Database Name Identifier Syntax
+============================ ========================
+GenBank gb|accession|locus
+EMBL Data Library emb|accession|locus
+DDBJ, DNA Database of Japan dbj|accession|locus
+NBRF PIR pir||entry
+Protein Research Foundation prf||name
+SWISS-PROT sp|accession|entry name
+Brookhaven Protein Data Bank pdb|entry|chain
+Kabat's Sequences of Immuno@dots{} gnl|kabat|identifier
+Patents pat|country|number
+GenInfo Backbone Id bbs|number
+@end example
+@end ifinfo
+
+@ifnotinfo
+@multitable {Kabat's Sequences of Immuno@dots{}} {@code{@w{sp|accession|entry name}}}
+@item GenBank @tab @code{gb|accession|locus}
+@item EMBL Data Library @tab @code{emb|accession|locus}
+@item DDBJ, DNA Database of Japan @tab @code{dbj|accession|locus}
+@item NBRF PIR @tab @code{pir||entry}
+@item Protein Research Foundation @tab @code{prf||name}
+@item SWISS-PROT @tab @code{@w{sp|accession|entry name}}
+@item Brookhaven Protein Data Bank @tab @code{pdb|entry|chain}
+@item Kabat's Sequences of Immuno@dots{} @tab @code{gnl|kabat|identifier}
+@item Patents @tab @code{pat|country|number}
+@item GenInfo Backbone Id @tab @code{bbs|number}
+@end multitable
+@end ifnotinfo
+
+
+For example, an identifier might be @samp{gb|AC021182.14|AC021182}, where the
+@samp{gb} tag indicates that the identifier refers to a GenBank sequence,
+@samp{AC021182.14} is its GenBank ACCESSION, and @samp{AC021182} is the GenBank LOCUS.
+The identifier contains no spaces, so that a space indicates the end of the
+identifier.
+
+Let us continue in the result listing. Each of the seven alignments mentioned
+above is subsequently described in detail. We will have a closer look at
+the first of them.
+
+@smallexample
+>gb|AC021182.14|AC021182 Homo sapiens chromosome 7 clone RP11-733N23, WORKING DRAFT SEQUENCE, 4
+ unordered pieces
+ Length = 176383
+
+ Score = 38.2 bits (19), Expect = 0.20
+ Identities = 19/19 (100%)
+ Strand = Plus / Plus
+
+Query: 35 tggtgaagtgtgtttcttg 53
+ |||||||||||||||||||
+Sbjct: 69786 tggtgaagtgtgtttcttg 69804
+@end smallexample
+
+This alignment was located on the human chromosome 7. The fragment on which
+part of the query was found had a total length of 176383. Only 19 of the
+nucleotides matched and the matching sequence ran from character 35 to 53
+in the query sequence and from 69786 to 69804 in the fragment on chromosome 7.
+If you are still reading at this point, you are probably interested in finding
+out more about Computational Biology and you might appreciate the following
+hints.
+
+@cindex Computational Biology
+@cindex Bioinformatics
+@enumerate
+@item
+There is a book called @cite{Introduction to Computational Biology}
+by Michael S. Waterman, which is worth reading if you are seriously
+interested. You can find a good
+book review
+on the Internet.
+
+@item
+While Waterman's book can explain to you the algorithms employed internally
+in the database search engines, most practicioners prefer to approach
+the subject differently. The applied side of Computational Biology is
+called Bioinformatics, and emphasizes the tools available for day-to-day
+work as well as how to actually @emph{use} them. One of the very few affordable
+books on Bioinformatics is
+@cite{Developing Bioinformatics Computer Skills}.
+
+@item
+The sequences @emph{gawk} and @emph{gnuawk} are in widespread use in
+the genetic material of virtually every earthly living being. Let us
+take this as a clear indication that the divine creator has intended
+@code{gawk} to prevail over other scripting languages such as @code{perl},
+@code{tcl}, or @code{python} which are not even proper sequences. (:-)
+@end enumerate
+
+@node Links, GNU Free Documentation License, Some Applications and Techniques, Top
+@chapter Related Links
+
+This section lists the URLs for various items discussed in this @value{CHAPTER}.
+They are presented in the order in which they appear.
+
+@table @asis
+
+@item @cite{Internet Programming with Python}
+@uref{http://www.fsbassociates.com/books/python.htm}
+
+@item @cite{Advanced Perl Programming}
+@uref{http://www.oreilly.com/catalog/advperl}
+
+@item @cite{Web Client Programming with Perl}
+@uref{http://www.oreilly.com/catalog/webclient}
+
+@item Richard Stevens's home page and book
+@uref{http://www.kohala.com/~rstevens}
+
+@item The SPAK home page
+@uref{http://www.userfriendly.net/linux/RPM/contrib/libc6/i386/spak-0.6b-1.i386.html}
+
+@item Volume III of @cite{Internetworking with TCP/IP}, by Comer and Stevens
+@uref{http://www.cs.purdue.edu/homes/dec/tcpip3s.cont.html}
+
+@item XBM Graphics File Format
+@uref{http://www.wotsit.org/download.asp?f=xbm}
+
+@item GNUPlot
+@uref{http://www.cs.dartmouth.edu/gnuplot_info.html}
+
+@item Mark Humphrys' Eliza page
+@uref{http://www.compapp.dcu.ie/~humphrys/eliza.html}
+
+@item Yahoo! Eliza Information
+@uref{http://dir.yahoo.com/Recreation/Games/Computer_Games/Internet_Games/Web_Games/Artificial_Intelligence}
+
+@item Java versions of Eliza
+@uref{http://www.tjhsst.edu/Psych/ch1/eliza.html}
+
+@item Java versions of Eliza with source code
+@uref{http://home.adelphia.net/~lifeisgood/eliza/eliza.htm}
+
+@item Eliza Programs with Explanations
+@uref{http://chayden.net/chayden/eliza/Eliza.shtml}
+
+@item Loebner Contest
+@uref{http://acm.org/~loebner/loebner-prize.htmlx}
+
+@item Tck/Tk Information
+@uref{http://www.scriptics.com/}
+
+@item Intel 80x86 Processors
+@uref{http://developer.intel.com/design/platform/embedpc/what_is.htm}
+
+@item AMD Elan Processors
+@uref{http://www.amd.com/products/epd/processors/4.32bitcont/32bitcont/index.html}
+
+@item XINU
+@uref{http://willow.canberra.edu.au/~chrisc/xinu.html }
+
+@item GNU/Linux
+@uref{http://uclinux.lineo.com/}
+
+@item Embedded PCs
+@uref{http://dir.yahoo.com/Business_and_Economy/Business_to_Business/Computers/Hardware/Embedded_Control/}
+
+@item MiniSQL
+@uref{http://www.hughes.com.au/library/}
+
+@item Market Share Surveys
+@uref{http://www.netcraft.com/survey}
+
+@item @cite{Numerical Recipes in C: The Art of Scientific Computing}
+@uref{http://www.nr.com}
+
+@item VRML
+@uref{http://www.vrml.org}
+
+@item The VRML FAQ
+@uref{http://www.vrml.org/technicalinfo/specifications/specifications.htm#FAQ}
+
+@item The UMBC Agent Web
+@uref{http://www.cs.umbc.edu/agents }
+
+@item Apache Web Server
+@uref{http://www.apache.org}
+
+@item National Center for Biotechnology Information (NCBI)
+@uref{http://www.ncbi.nlm.nih.gov}
+
+@item Basic Local Alignment Search Tool (BLAST)
+@uref{http://www.ncbi.nlm.nih.gov/BLAST/blast_overview.html}
+
+@item NCBI Home Page
+@uref{http://www.ncbi.nlm.nih.gov}
+
+@item BLAST Pages
+@uref{http://www.ncbi.nlm.nih.gov/BLAST}
+
+@item BLAST Demonstration Client
+@uref{ftp://ncbi.nlm.nih.gov/blast/blasturl/}
+
+@item BLAST anonymous FTP location
+@uref{ftp://ncbi.nlm.nih.gov/blast/network/netblast/}
+
+@item BLAST 2.0 Executables
+@uref{ftp://ncbi.nlm.nih.gov/blast/executables/}
+
+@item IUB/IUPAC Amino Acid and Nucleic Acid Codes
+@uref{http://www.uthscsa.edu/geninfo/blastmail.html#item6}
+
+@item FASTA/Pearson Format
+@uref{http://www.ncbi.nlm.nih.gov/BLAST/fasta.html}
+
+@item Fasta/Pearson Sequence in Java
+@uref{http://www.kazusa.or.jp/java/codon_table_java/}
+
+@item Book Review of @cite{Introduction to Computational Biology}
+@uref{http://www.acm.org/crossroads/xrds5-1/introcb.html}
+
+@item @cite{Developing Bioinformatics Computer Skills}
+@uref{http://www.oreilly.com/catalog/bioskills/}
+
+@end table
+
+@node GNU Free Documentation License, Index, Links, Top
+@unnumbered GNU Free Documentation License
+@center Version 1.1, March 2000
+
+@display
+Copyright (C) 2000 Free Software Foundation, Inc.
+59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Everyone is permitted to copy and distribute verbatim copies
+of this license document, but changing it is not allowed.
+@end display
+@sp 1
+@enumerate 0
+@item
+PREAMBLE
+
+The purpose of this License is to make a manual, textbook, or other
+written document ``free'' in the sense of freedom: to assure everyone
+the effective freedom to copy and redistribute it, with or without
+modifying it, either commercially or noncommercially. Secondarily,
+this License preserves for the author and publisher a way to get
+credit for their work, while not being considered responsible for
+modifications made by others.
+
+This License is a kind of ``copyleft'', which means that derivative
+works of the document must themselves be free in the same sense. It
+complements the GNU General Public License, which is a copyleft
+license designed for free software.
+
+We have designed this License in order to use it for manuals for free
+software, because free software needs free documentation: a free
+program should come with manuals providing the same freedoms that the
+software does. But this License is not limited to software manuals;
+it can be used for any textual work, regardless of subject matter or
+whether it is published as a printed book. We recommend this License
+principally for works whose purpose is instruction or reference.
+
+@sp 1
+@item
+APPLICABILITY AND DEFINITIONS
+
+This License applies to any manual or other work that contains a
+notice placed by the copyright holder saying it can be distributed
+under the terms of this License. The ``Document'', below, refers to any
+such manual or work. Any member of the public is a licensee, and is
+addressed as ``you''.
+
+A ``Modified Version'' of the Document means any work containing the
+Document or a portion of it, either copied verbatim, or with
+modifications and/or translated into another language.
+
+A ``Secondary Section'' is a named appendix or a front-matter section of
+the Document that deals exclusively with the relationship of the
+publishers or authors of the Document to the Document's overall subject
+(or to related matters) and contains nothing that could fall directly
+within that overall subject. (For example, if the Document is in part a
+textbook of mathematics, a Secondary Section may not explain any
+mathematics.) The relationship could be a matter of historical
+connection with the subject or with related matters, or of legal,
+commercial, philosophical, ethical or political position regarding
+them.
+
+The ``Invariant Sections'' are certain Secondary Sections whose titles
+are designated, as being those of Invariant Sections, in the notice
+that says that the Document is released under this License.
+
+The ``Cover Texts'' are certain short passages of text that are listed,
+as Front-Cover Texts or Back-Cover Texts, in the notice that says that
+the Document is released under this License.
+
+A ``Transparent'' copy of the Document means a machine-readable copy,
+represented in a format whose specification is available to the
+general public, whose contents can be viewed and edited directly and
+straightforwardly with generic text editors or (for images composed of
+pixels) generic paint programs or (for drawings) some widely available
+drawing editor, and that is suitable for input to text formatters or
+for automatic translation to a variety of formats suitable for input
+to text formatters. A copy made in an otherwise Transparent file
+format whose markup has been designed to thwart or discourage
+subsequent modification by readers is not Transparent. A copy that is
+not ``Transparent'' is called ``Opaque''.
+
+Examples of suitable formats for Transparent copies include plain
+ASCII without markup, Texinfo input format, LaTeX input format, SGML
+or XML using a publicly available DTD, and standard-conforming simple
+HTML designed for human modification. Opaque formats include
+PostScript, PDF, proprietary formats that can be read and edited only
+by proprietary word processors, SGML or XML for which the DTD and/or
+processing tools are not generally available, and the
+machine-generated HTML produced by some word processors for output
+purposes only.
+
+The ``Title Page'' means, for a printed book, the title page itself,
+plus such following pages as are needed to hold, legibly, the material
+this License requires to appear in the title page. For works in
+formats which do not have any title page as such, ``Title Page'' means
+the text near the most prominent appearance of the work's title,
+preceding the beginning of the body of the text.
+@sp 1
+@item
+VERBATIM COPYING
+
+You may copy and distribute the Document in any medium, either
+commercially or noncommercially, provided that this License, the
+copyright notices, and the license notice saying this License applies
+to the Document are reproduced in all copies, and that you add no other
+conditions whatsoever to those of this License. You may not use
+technical measures to obstruct or control the reading or further
+copying of the copies you make or distribute. However, you may accept
+compensation in exchange for copies. If you distribute a large enough
+number of copies you must also follow the conditions in section 3.
+
+You may also lend copies, under the same conditions stated above, and
+you may publicly display copies.
+@sp 1
+@item
+COPYING IN QUANTITY
+
+If you publish printed copies of the Document numbering more than 100,
+and the Document's license notice requires Cover Texts, you must enclose
+the copies in covers that carry, clearly and legibly, all these Cover
+Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on
+the back cover. Both covers must also clearly and legibly identify
+you as the publisher of these copies. The front cover must present
+the full title with all words of the title equally prominent and
+visible. You may add other material on the covers in addition.
+Copying with changes limited to the covers, as long as they preserve
+the title of the Document and satisfy these conditions, can be treated
+as verbatim copying in other respects.
+
+If the required texts for either cover are too voluminous to fit
+legibly, you should put the first ones listed (as many as fit
+reasonably) on the actual cover, and continue the rest onto adjacent
+pages.
+
+If you publish or distribute Opaque copies of the Document numbering
+more than 100, you must either include a machine-readable Transparent
+copy along with each Opaque copy, or state in or with each Opaque copy
+a publicly-accessible computer-network location containing a complete
+Transparent copy of the Document, free of added material, which the
+general network-using public has access to download anonymously at no
+charge using public-standard network protocols. If you use the latter
+option, you must take reasonably prudent steps, when you begin
+distribution of Opaque copies in quantity, to ensure that this
+Transparent copy will remain thus accessible at the stated location
+until at least one year after the last time you distribute an Opaque
+copy (directly or through your agents or retailers) of that edition to
+the public.
+
+It is requested, but not required, that you contact the authors of the
+Document well before redistributing any large number of copies, to give
+them a chance to provide you with an updated version of the Document.
+@sp 1
+@item
+MODIFICATIONS
+
+You may copy and distribute a Modified Version of the Document under
+the conditions of sections 2 and 3 above, provided that you release
+the Modified Version under precisely this License, with the Modified
+Version filling the role of the Document, thus licensing distribution
+and modification of the Modified Version to whoever possesses a copy
+of it. In addition, you must do these things in the Modified Version:
+
+@enumerate A
+@item
+Use in the Title Page (and on the covers, if any) a title distinct
+from that of the Document, and from those of previous versions
+(which should, if there were any, be listed in the History section
+of the Document). You may use the same title as a previous version
+if the original publisher of that version gives permission.
+
+@item
+List on the Title Page, as authors, one or more persons or entities
+responsible for authorship of the modifications in the Modified
+Version, together with at least five of the principal authors of the
+Document (all of its principal authors, if it has less than five).
+
+@item
+State on the Title page the name of the publisher of the
+Modified Version, as the publisher.
+
+@item
+Preserve all the copyright notices of the Document.
+
+@item
+Add an appropriate copyright notice for your modifications
+adjacent to the other copyright notices.
+
+@item
+Include, immediately after the copyright notices, a license notice
+giving the public permission to use the Modified Version under the
+terms of this License, in the form shown in the Addendum below.
+
+@item
+Preserve in that license notice the full lists of Invariant Sections
+and required Cover Texts given in the Document's license notice.
+
+@item
+Include an unaltered copy of this License.
+
+@item
+Preserve the section entitled ``History'', and its title, and add to
+it an item stating at least the title, year, new authors, and
+publisher of the Modified Version as given on the Title Page. If
+there is no section entitled ``History'' in the Document, create one
+stating the title, year, authors, and publisher of the Document as
+given on its Title Page, then add an item describing the Modified
+Version as stated in the previous sentence.
+
+@item
+Preserve the network location, if any, given in the Document for
+public access to a Transparent copy of the Document, and likewise
+the network locations given in the Document for previous versions
+it was based on. These may be placed in the ``History'' section.
+You may omit a network location for a work that was published at
+least four years before the Document itself, or if the original
+publisher of the version it refers to gives permission.
+
+@item
+In any section entitled ``Acknowledgements'' or ``Dedications'',
+preserve the section's title, and preserve in the section all the
+substance and tone of each of the contributor acknowledgements
+and/or dedications given therein.
+
+@item
+Preserve all the Invariant Sections of the Document,
+unaltered in their text and in their titles. Section numbers
+or the equivalent are not considered part of the section titles.
+
+@item
+Delete any section entitled ``Endorsements''. Such a section
+may not be included in the Modified Version.
+
+@item
+Do not retitle any existing section as ``Endorsements''
+or to conflict in title with any Invariant Section.
+@end enumerate
+
+If the Modified Version includes new front-matter sections or
+appendices that qualify as Secondary Sections and contain no material
+copied from the Document, you may at your option designate some or all
+of these sections as invariant. To do this, add their titles to the
+list of Invariant Sections in the Modified Version's license notice.
+These titles must be distinct from any other section titles.
+
+You may add a section entitled ``Endorsements'', provided it contains
+nothing but endorsements of your Modified Version by various
+parties--for example, statements of peer review or that the text has
+been approved by an organization as the authoritative definition of a
+standard.
+
+You may add a passage of up to five words as a Front-Cover Text, and a
+passage of up to 25 words as a Back-Cover Text, to the end of the list
+of Cover Texts in the Modified Version. Only one passage of
+Front-Cover Text and one of Back-Cover Text may be added by (or
+through arrangements made by) any one entity. If the Document already
+includes a cover text for the same cover, previously added by you or
+by arrangement made by the same entity you are acting on behalf of,
+you may not add another; but you may replace the old one, on explicit
+permission from the previous publisher that added the old one.
+
+The author(s) and publisher(s) of the Document do not by this License
+give permission to use their names for publicity for or to assert or
+imply endorsement of any Modified Version.
+@sp 1
+@item
+COMBINING DOCUMENTS
+
+You may combine the Document with other documents released under this
+License, under the terms defined in section 4 above for modified
+versions, provided that you include in the combination all of the
+Invariant Sections of all of the original documents, unmodified, and
+list them all as Invariant Sections of your combined work in its
+license notice.
+
+The combined work need only contain one copy of this License, and
+multiple identical Invariant Sections may be replaced with a single
+copy. If there are multiple Invariant Sections with the same name but
+different contents, make the title of each such section unique by
+adding at the end of it, in parentheses, the name of the original
+author or publisher of that section if known, or else a unique number.
+Make the same adjustment to the section titles in the list of
+Invariant Sections in the license notice of the combined work.
+
+In the combination, you must combine any sections entitled ``History''
+in the various original documents, forming one section entitled
+``History''; likewise combine any sections entitled ``Acknowledgements'',
+and any sections entitled ``Dedications''. You must delete all sections
+entitled ``Endorsements.''
+@sp 1
+@item
+COLLECTIONS OF DOCUMENTS
+
+You may make a collection consisting of the Document and other documents
+released under this License, and replace the individual copies of this
+License in the various documents with a single copy that is included in
+the collection, provided that you follow the rules of this License for
+verbatim copying of each of the documents in all other respects.
+
+You may extract a single document from such a collection, and distribute
+it individually under this License, provided you insert a copy of this
+License into the extracted document, and follow this License in all
+other respects regarding verbatim copying of that document.
+@sp 1
+@item
+AGGREGATION WITH INDEPENDENT WORKS
+
+A compilation of the Document or its derivatives with other separate
+and independent documents or works, in or on a volume of a storage or
+distribution medium, does not as a whole count as a Modified Version
+of the Document, provided no compilation copyright is claimed for the
+compilation. Such a compilation is called an ``aggregate'', and this
+License does not apply to the other self-contained works thus compiled
+with the Document, on account of their being thus compiled, if they
+are not themselves derivative works of the Document.
+
+If the Cover Text requirement of section 3 is applicable to these
+copies of the Document, then if the Document is less than one quarter
+of the entire aggregate, the Document's Cover Texts may be placed on
+covers that surround only the Document within the aggregate.
+Otherwise they must appear on covers around the whole aggregate.
+@sp 1
+@item
+TRANSLATION
+
+Translation is considered a kind of modification, so you may
+distribute translations of the Document under the terms of section 4.
+Replacing Invariant Sections with translations requires special
+permission from their copyright holders, but you may include
+translations of some or all Invariant Sections in addition to the
+original versions of these Invariant Sections. You may include a
+translation of this License provided that you also include the
+original English version of this License. In case of a disagreement
+between the translation and the original English version of this
+License, the original English version will prevail.
+@sp 1
+@item
+TERMINATION
+
+You may not copy, modify, sublicense, or distribute the Document except
+as expressly provided for under this License. Any other attempt to
+copy, modify, sublicense or distribute the Document is void, and will
+automatically terminate your rights under this License. However,
+parties who have received copies, or rights, from you under this
+License will not have their licenses terminated so long as such
+parties remain in full compliance.
+@sp 1
+@item
+FUTURE REVISIONS OF THIS LICENSE
+
+The Free Software Foundation may publish new, revised versions
+of the GNU Free Documentation License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns. See
+@uref{http://www.gnu.org/copyleft/}.
+
+Each version of the License is given a distinguishing version number.
+If the Document specifies that a particular numbered version of this
+License ``or any later version'' applies to it, you have the option of
+following the terms and conditions either of that specified version or
+of any later version that has been published (not as a draft) by the
+Free Software Foundation. If the Document does not specify a version
+number of this License, you may choose any version ever published (not
+as a draft) by the Free Software Foundation.
+
+@end enumerate
+
+@c fakenode --- for prepinfo
+@unnumberedsec ADDENDUM: How to use this License for your documents
+
+To use this License in a document you have written, include a copy of
+the License in the document and put the following copyright and
+license notices just after the title page:
+
+@smallexample
+@group
+
+ Copyright (C) @var{year} @var{your name}.
+ Permission is granted to copy, distribute and/or modify this document
+ under the terms of the GNU Free Documentation License, Version 1.1
+ or any later version published by the Free Software Foundation;
+ with the Invariant Sections being @var{list their titles}, with the
+ Front-Cover Texts being @var{list}, and with the Back-Cover Texts being @var{list}.
+ A copy of the license is included in the section entitled ``GNU
+ Free Documentation License''.
+@end group
+@end smallexample
+If you have no Invariant Sections, write ``with no Invariant Sections''
+instead of saying which ones are invariant. If you have no
+Front-Cover Texts, write ``no Front-Cover Texts'' instead of
+``Front-Cover Texts being @var{list}''; likewise for Back-Cover Texts.
+
+If your document contains nontrivial examples of program code, we
+recommend releasing these examples in parallel under your choice of
+free software license, such as the GNU General Public License,
+to permit their use in free software.
+
+@node Index, , GNU Free Documentation License, Top
+@comment node-name, next, previous, up
+
+@unnumbered Index
+@printindex cp
+@bye
+
+Conventions:
+1. Functions, built-in or otherwise, do NOT have () after them.
+2. Gawk built-in vars and functions are in @code. Also program vars and
+ functions.
+3. HTTP method names are in @code.
+4. Protocols such as echo, ftp, etc are in @samp.
+5. URLs are in @url.
+6. All RFC's in the index. Put a space between `RFC' and the number.
diff --git a/doc/lflashlight.eps b/doc/lflashlight.eps
new file mode 100644
index 00000000..fdb8cf31
--- /dev/null
+++ b/doc/lflashlight.eps
@@ -0,0 +1,135 @@
+%!
+%%Creator: arnold@skeeve (Aharon Robbins)
+%%Title: rflashlight.small.xpic (xpic)
+%%CreationDate: Tue Dec 12 09:51:27 2000
+%%Pages: 1
+%%BoundingBox: 0 0 72 28.8
+% (in inches) at 0 0, width 1, height 0.4
+%%EndComments
+% Prolog for xpic to PostScript converter
+% Author: Mark Moraes
+% $Header: x2ps.pro,v 1.2 88/03/19 16:50:09 moraes Exp
+% %d D - change style SOLID, DOTTED, SHORT-DASH, LONG-DASH, DOT-DASH
+% %s F - change font to fontname
+% %d S - change size (font size in points)
+% (%s) rj %d t - text right just. (%d is TOPLINE, MIDLINE, BOTLINE)
+% (%s) lj %d t - text left just. (%d is TOPLINE, MIDLINE, BOTLINE)
+% (%s) ce %d t - text centered (%d is TOPLINE, MIDLINE, BOTLINE)
+% %d %d l - lineto
+% %d %d m - moveto
+% %d %d s - spline segment
+% x - flush line, spline
+% <wid> <ht> <x> <y> b - box
+% <wid> <ht> <x> <y> e - ellipse
+% %d ss - setscale
+% %d W - change linewidth
+% getpagesize - gets the values of PAGEHEIGHT and PAGEWIDTH
+% %d %d flip - translate by %d, PAGEHEIGHT - %d (this
+% transforms to X windows coordinates)
+save 50 dict begin /xpic exch def
+/StartXpic {newpath 0 0 moveto [] 0 setdash 0 setgray 1 setlinecap} def
+% Set defaults
+/fontname /Times-Roman def
+/ptsize 12 def
+% halign has the values for MIDLINE, TOPLINE, BOTLINE
+/halign 3 array def
+/s {rcurveto} def
+/x {stroke} def
+/l {lineto} def
+/m {moveto} def
+/b {
+ /ury exch def /urx exch def /lly exch def /llx exch def
+ llx lly moveto urx lly lineto urx ury lineto
+ llx ury lineto llx lly lineto stroke
+} def
+/mtrx matrix def
+/e {
+ /yc exch def /xc exch def /yrad exch def /xrad exch def
+ xc xrad add yc moveto
+ /savematrix mtrx currentmatrix def
+ xc yc translate
+ xrad yrad scale
+ 0 0 1 0 360 arc
+ savematrix setmatrix stroke
+} def
+% The next three take the text string, and moveto the right horiz. position
+% leaving the string on the stack.
+/lj {} def
+/rj {dup stringwidth pop neg 0 rmoveto} def
+/ce {dup stringwidth pop 2 div neg 0 rmoveto} def
+% And this is invoked after one of the three above, and
+% computes the vert. pos, and then displays the string.
+/t {halign exch get 0 exch rmoveto show newpath} def
+% Store an array of patterns in /styles - a pattern is an array consisting
+% of an array and an offset. Corresp to xpic patterns
+% solid, dotted, short-dashed, long-dashed, dot-dashed
+/styles [ [] 0 ] [ [1 3] 0 ] [ [4 4] 0 ] [ [8 4] 0 ] [ [1 4 4 4] 0 ]
+ 5 array astore def
+% change style to arg.
+/D {stroke styles exch get aload pop setdash newpath} def
+/W {stroke 0.5 mul setlinewidth newpath} def
+% fontbox takes a fontname off the stack, and returns an array
+% containing the values of the bottom line of the bounding box, the
+% mid line of the bounding box, and the top line of the bounding box
+% of that font, taken from the baseline, scaled to a font of size 1
+/fontbox {
+ findfont dup /FontMatrix get /fm exch def /FontBBox get aload pop
+ /ytop exch def pop /ybot exch def pop
+ /ymid ytop ybot sub 2 div def
+ 0 ybot fm dtransform exch pop % botline
+ dup neg exch % midline - this works better than (ytop-ybot)/2!
+ 0 ytop fm dtransform exch pop exch %topline
+ % now in the order midline, topline, botline.
+ 3 array astore
+} def
+% select font
+/F {
+ dup /fontname exch def fontbox
+ /thisfontbox exch def SF
+} def
+% set point size
+/S {/ptsize exch def SF} def
+% actually set font
+/SF {
+ fontname findfont ptsize curscale div scalefont setfont
+ thisfontbox aload pop
+ 1 1 3 {
+ pop ptsize mul curscale div neg 3 1 roll
+ } for
+ halign astore pop
+} def
+% sets the scale to 72 / n, where n is on the stack, and stores the value
+% in curscale for font scaling
+/curscale 1 def
+/getpagesize{newpath clippath pathbbox /pageheight exch def
+ /pagewidth exch def pop pop newpath} def
+/flip{pageheight exch sub translate} def
+/ss {/curscale exch 72 exch div dup dup scale def} def
+/land {90 rotate} def
+StartXpic
+%%EndProlog
+80 ss
+0.5 W
+0 D
+80 32 m
+64 24 l
+x
+32 24 m
+56 32 l
+x
+32 8 m
+56 0 l
+x
+8 16 56 16 e
+0 24 32 8 b
+64 16 m
+80 16 l
+x
+64 8 m
+80 0 l
+x
+%%Trailer
+showpage
+% Trailer for xpic to PostScript converter
+% $Header: x2ps.tra,v 1.2 89/07/02 15:59:53 moraes Exp $
+xpic end restore
diff --git a/doc/no.colors b/doc/no.colors
index 974f985b..d5fb0380 100644
--- a/doc/no.colors
+++ b/doc/no.colors
@@ -1,6 +1,6 @@
.\" AWK Reference Card --- Arnold Robbins, arnold@gnu.org
.\" This file is for troff which does not know what to do
-.\" with a literal Poscript and cannot use macros from 'colors'.
+.\" with literal Poscript and cannot use the macros from 'colors'.
.\"
.\" Copyright (C) 1996 Free Software Foundation, Inc.
.\"
diff --git a/doc/rflashlight.eps b/doc/rflashlight.eps
new file mode 100644
index 00000000..28cb7e25
--- /dev/null
+++ b/doc/rflashlight.eps
@@ -0,0 +1,141 @@
+%!
+%%Creator: arnold@skeeve (Aharon Robbins)
+%%Title: flashlight.small.xpic (xpic)
+%%CreationDate: Tue Oct 24 14:41:28 2000
+%%Pages: 1
+%%BoundingBox: 0 0 72 28.8
+% (in inches) at 0 0, width 1, height 0.4
+%%EndComments
+% Prolog for xpic to PostScript converter
+% Author: Mark Moraes
+% $Header: x2ps.pro,v 1.2 88/03/19 16:50:09 moraes Exp
+% %d D - change style SOLID, DOTTED, SHORT-DASH, LONG-DASH, DOT-DASH
+% %s F - change font to fontname
+% %d S - change size (font size in points)
+% (%s) rj %d t - text right just. (%d is TOPLINE, MIDLINE, BOTLINE)
+% (%s) lj %d t - text left just. (%d is TOPLINE, MIDLINE, BOTLINE)
+% (%s) ce %d t - text centered (%d is TOPLINE, MIDLINE, BOTLINE)
+% %d %d l - lineto
+% %d %d m - moveto
+% %d %d s - spline segment
+% x - flush line, spline
+% <wid> <ht> <x> <y> b - box
+% <wid> <ht> <x> <y> e - ellipse
+% %d ss - setscale
+% %d W - change linewidth
+% getpagesize - gets the values of PAGEHEIGHT and PAGEWIDTH
+% %d %d flip - translate by %d, PAGEHEIGHT - %d (this
+% transforms to X windows coordinates)
+save 50 dict begin /xpic exch def
+/StartXpic {newpath 0 0 moveto [] 0 setdash 0 setgray 1 setlinecap} def
+% Set defaults
+/fontname /Times-Roman def
+/ptsize 12 def
+% halign has the values for MIDLINE, TOPLINE, BOTLINE
+/halign 3 array def
+/s {rcurveto} def
+/x {stroke} def
+/l {lineto} def
+/m {moveto} def
+/b {
+ /ury exch def /urx exch def /lly exch def /llx exch def
+ llx lly moveto urx lly lineto urx ury lineto
+ llx ury lineto llx lly lineto stroke
+} def
+/mtrx matrix def
+/e {
+ /yc exch def /xc exch def /yrad exch def /xrad exch def
+ xc xrad add yc moveto
+ /savematrix mtrx currentmatrix def
+ xc yc translate
+ xrad yrad scale
+ 0 0 1 0 360 arc
+ savematrix setmatrix stroke
+} def
+% The next three take the text string, and moveto the right horiz. position
+% leaving the string on the stack.
+/lj {} def
+/rj {dup stringwidth pop neg 0 rmoveto} def
+/ce {dup stringwidth pop 2 div neg 0 rmoveto} def
+% And this is invoked after one of the three above, and
+% computes the vert. pos, and then displays the string.
+/t {halign exch get 0 exch rmoveto show newpath} def
+% Store an array of patterns in /styles - a pattern is an array consisting
+% of an array and an offset. Corresp to xpic patterns
+% solid, dotted, short-dashed, long-dashed, dot-dashed
+/styles [ [] 0 ] [ [1 3] 0 ] [ [4 4] 0 ] [ [8 4] 0 ] [ [1 4 4 4] 0 ]
+ 5 array astore def
+% change style to arg.
+/D {stroke styles exch get aload pop setdash newpath} def
+/W {stroke 0.5 mul setlinewidth newpath} def
+% fontbox takes a fontname off the stack, and returns an array
+% containing the values of the bottom line of the bounding box, the
+% mid line of the bounding box, and the top line of the bounding box
+% of that font, taken from the baseline, scaled to a font of size 1
+/fontbox {
+ findfont dup /FontMatrix get /fm exch def /FontBBox get aload pop
+ /ytop exch def pop /ybot exch def pop
+ /ymid ytop ybot sub 2 div def
+ 0 ybot fm dtransform exch pop % botline
+ dup neg exch % midline - this works better than (ytop-ybot)/2!
+ 0 ytop fm dtransform exch pop exch %topline
+ % now in the order midline, topline, botline.
+ 3 array astore
+} def
+% select font
+/F {
+ dup /fontname exch def fontbox
+ /thisfontbox exch def SF
+} def
+% set point size
+/S {/ptsize exch def SF} def
+% actually set font
+/SF {
+ fontname findfont ptsize curscale div scalefont setfont
+ thisfontbox aload pop
+ 1 1 3 {
+ pop ptsize mul curscale div neg 3 1 roll
+ } for
+ halign astore pop
+} def
+% sets the scale to 72 / n, where n is on the stack, and stores the value
+% in curscale for font scaling
+/curscale 1 def
+/getpagesize{newpath clippath pathbbox /pageheight exch def
+ /pagewidth exch def pop pop newpath} def
+/flip{pageheight exch sub translate} def
+/ss {/curscale exch 72 exch div dup dup scale def} def
+/land {90 rotate} def
+StartXpic
+%%EndProlog
+80 ss
+0.5 W
+0 D
+8 16 24 16 e
+24 32 m
+48 24 l
+x
+24 0 m
+48 8 l
+x
+48 24 m
+0 0 0 -5.33333 0 -16 s
+x
+48 24 80 8 b
+0 8 m
+0 8 l
+x
+0 0 m
+16 8 l
+x
+0 16 m
+16 16 l
+x
+16 24 m
+0 32 l
+x
+%%Trailer
+showpage
+% Trailer for xpic to PostScript converter
+% $Header: x2ps.tra,v 1.2 89/07/02 15:59:53 moraes Exp $
+xpic end restore
diff --git a/doc/statist.eps b/doc/statist.eps
new file mode 100644
index 00000000..1e1f09fa
--- /dev/null
+++ b/doc/statist.eps
@@ -0,0 +1,557 @@
+%!PS-Adobe-2.0
+%%Creator: gnuplot 3.7 patchlevel 0.1
+%%CreationDate: Sun Jan 7 14:23:12 2001
+%%DocumentFonts: (atend)
+%%BoundingBox: 50 50 554 770
+%%Orientation: Portrait
+%%Pages: (atend)
+%%EndComments
+/gnudict 256 dict def
+gnudict begin
+/Color true def
+/Solid false def
+/gnulinewidth 5.000 def
+/userlinewidth gnulinewidth def
+/vshift -46 def
+/dl {10 mul} def
+/hpt_ 31.5 def
+/vpt_ 31.5 def
+/hpt hpt_ def
+/vpt vpt_ def
+/M {moveto} bind def
+/L {lineto} bind def
+/R {rmoveto} bind def
+/V {rlineto} bind def
+/vpt2 vpt 2 mul def
+/hpt2 hpt 2 mul def
+/Lshow { currentpoint stroke M
+ 0 vshift R show } def
+/Rshow { currentpoint stroke M
+ dup stringwidth pop neg vshift R show } def
+/Cshow { currentpoint stroke M
+ dup stringwidth pop -2 div vshift R show } def
+/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
+ /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
+/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
+ {pop pop pop Solid {pop []} if 0 setdash} ifelse } def
+/BL { stroke gnulinewidth 2 mul setlinewidth } def
+/AL { stroke gnulinewidth 2 div setlinewidth } def
+/UL { gnulinewidth mul /userlinewidth exch def } def
+/PL { stroke userlinewidth setlinewidth } def
+/LTb { BL [] 0 0 0 DL } def
+/LTa { AL [1 dl 2 dl] 0 setdash 0 0 0 setrgbcolor } def
+/LT0 { PL [] 1 0 0 DL } def
+/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
+/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
+/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
+/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
+/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
+/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
+/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
+/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
+/Pnt { stroke [] 0 setdash
+ gsave 1 setlinecap M 0 0 V stroke grestore } def
+/Dia { stroke [] 0 setdash 2 copy vpt add M
+ hpt neg vpt neg V hpt vpt neg V
+ hpt vpt V hpt neg vpt V closepath stroke
+ Pnt } def
+/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
+ currentpoint stroke M
+ hpt neg vpt neg R hpt2 0 V stroke
+ } def
+/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
+ 0 vpt2 neg V hpt2 0 V 0 vpt2 V
+ hpt2 neg 0 V closepath stroke
+ Pnt } def
+/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
+ hpt2 vpt2 neg V currentpoint stroke M
+ hpt2 neg 0 R hpt2 vpt2 V stroke } def
+/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
+ hpt neg vpt -1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt 1.62 mul V closepath stroke
+ Pnt } def
+/Star { 2 copy Pls Crs } def
+/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
+ 0 vpt2 neg V hpt2 0 V 0 vpt2 V
+ hpt2 neg 0 V closepath fill } def
+/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
+ hpt neg vpt -1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt 1.62 mul V closepath fill } def
+/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
+ hpt neg vpt 1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt -1.62 mul V closepath stroke
+ Pnt } def
+/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
+ hpt neg vpt 1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt -1.62 mul V closepath fill} def
+/DiaF { stroke [] 0 setdash vpt add M
+ hpt neg vpt neg V hpt vpt neg V
+ hpt vpt V hpt neg vpt V closepath fill } def
+/Pent { stroke [] 0 setdash 2 copy gsave
+ translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
+ closepath stroke grestore Pnt } def
+/PentF { stroke [] 0 setdash gsave
+ translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
+ closepath fill grestore } def
+/Circle { stroke [] 0 setdash 2 copy
+ hpt 0 360 arc stroke Pnt } def
+/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
+/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
+/C1 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 90 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C2 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 90 180 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C3 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 180 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C4 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 180 270 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C5 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 90 arc
+ 2 copy moveto
+ 2 copy vpt 180 270 arc closepath fill
+ vpt 0 360 arc } bind def
+/C6 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 90 270 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C7 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 270 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C8 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 270 360 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C9 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 270 450 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
+ 2 copy moveto
+ 2 copy vpt 90 180 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C11 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 180 arc closepath fill
+ 2 copy moveto
+ 2 copy vpt 270 360 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C12 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 180 360 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C13 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 0 90 arc closepath fill
+ 2 copy moveto
+ 2 copy vpt 180 360 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/C14 { BL [] 0 setdash 2 copy moveto
+ 2 copy vpt 90 360 arc closepath fill
+ vpt 0 360 arc } bind def
+/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
+ vpt 0 360 arc closepath } bind def
+/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
+ neg 0 rlineto closepath } bind def
+/Square { dup Rec } bind def
+/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
+/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
+/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
+/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
+/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
+/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
+/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
+ exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
+/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
+/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
+ 2 copy vpt Square fill
+ Bsquare } bind def
+/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
+/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
+/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
+ Bsquare } bind def
+/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
+ Bsquare } bind def
+/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
+/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
+ 2 copy vpt Square fill Bsquare } bind def
+/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
+ 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
+/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
+/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
+/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
+/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
+/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
+/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
+/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
+/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
+/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
+/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
+/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
+/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
+/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
+/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
+/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
+/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
+/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
+/DiaE { stroke [] 0 setdash vpt add M
+ hpt neg vpt neg V hpt vpt neg V
+ hpt vpt V hpt neg vpt V closepath stroke } def
+/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
+ 0 vpt2 neg V hpt2 0 V 0 vpt2 V
+ hpt2 neg 0 V closepath stroke } def
+/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
+ hpt neg vpt -1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt 1.62 mul V closepath stroke } def
+/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
+ hpt neg vpt 1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt -1.62 mul V closepath stroke } def
+/PentE { stroke [] 0 setdash gsave
+ translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
+ closepath stroke grestore } def
+/CircE { stroke [] 0 setdash
+ hpt 0 360 arc stroke } def
+/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
+/DiaW { stroke [] 0 setdash vpt add M
+ hpt neg vpt neg V hpt vpt neg V
+ hpt vpt V hpt neg vpt V Opaque stroke } def
+/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
+ 0 vpt2 neg V hpt2 0 V 0 vpt2 V
+ hpt2 neg 0 V Opaque stroke } def
+/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
+ hpt neg vpt -1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt 1.62 mul V Opaque stroke } def
+/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
+ hpt neg vpt 1.62 mul V
+ hpt 2 mul 0 V
+ hpt neg vpt -1.62 mul V Opaque stroke } def
+/PentW { stroke [] 0 setdash gsave
+ translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
+ Opaque stroke grestore } def
+/CircW { stroke [] 0 setdash
+ hpt 0 360 arc Opaque stroke } def
+/BoxFill { gsave Rec 1 setgray fill grestore } def
+end
+%%EndProlog
+%%Page: 1 1
+gnudict begin
+gsave
+50 50 translate
+0.100 0.100 scale
+0 setgray
+newpath
+(Helvetica) findfont 140 scalefont setfont
+1.000 UL
+LTb
+574 280 M
+63 0 V
+4165 0 R
+-63 0 V
+490 280 M
+(-0.3) Rshow
+574 1245 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(-0.2) Rshow
+574 2209 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(-0.1) Rshow
+574 3174 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(0) Rshow
+574 4138 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(0.1) Rshow
+574 5103 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(0.2) Rshow
+574 6067 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(0.3) Rshow
+574 7032 M
+63 0 V
+4165 0 R
+-63 0 V
+-4249 0 R
+(0.4) Rshow
+574 280 M
+0 63 V
+0 6689 R
+0 -63 V
+574 140 M
+(-10) Cshow
+1631 280 M
+0 63 V
+0 6689 R
+0 -63 V
+0 -6829 R
+(-5) Cshow
+2688 280 M
+0 63 V
+0 6689 R
+0 -63 V
+0 -6829 R
+(0) Cshow
+3745 280 M
+0 63 V
+0 6689 R
+0 -63 V
+0 -6829 R
+(5) Cshow
+4802 280 M
+0 63 V
+0 6689 R
+0 -63 V
+0 -6829 R
+(10) Cshow
+1.000 UL
+LTb
+574 280 M
+4228 0 V
+0 6752 V
+-4228 0 V
+574 280 L
+2688 2209 M
+(p\(m1=m2\) =0.0863798346775753) Lshow
+2688 1245 M
+(p\(v1=v2\) =0.31647637745891) Lshow
+1.000 UL
+LT0
+4151 6899 M
+(sample 1) Rshow
+4235 6899 M
+399 0 V
+574 3174 M
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 1 V
+43 2 V
+43 4 V
+42 8 V
+43 13 V
+43 24 V
+42 41 V
+43 65 V
+43 101 V
+43 146 V
+42 205 V
+43 271 V
+43 340 V
+42 404 V
+43 450 V
+43 470 V
+43 452 V
+42 390 V
+43 288 V
+43 153 V
+42 0 V
+43 -153 V
+43 -288 V
+42 -390 V
+43 -452 V
+43 -470 V
+43 -450 V
+42 -404 V
+43 -340 V
+43 -271 V
+42 -205 V
+43 -146 V
+43 -101 V
+43 -65 V
+42 -41 V
+43 -24 V
+43 -13 V
+42 -8 V
+43 -4 V
+43 -2 V
+42 -1 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+1.000 UL
+LT1
+4151 6759 M
+(sample 2) Rshow
+4235 6759 M
+399 0 V
+574 3174 M
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 1 V
+43 1 V
+43 1 V
+42 3 V
+43 4 V
+43 6 V
+42 9 V
+43 13 V
+43 19 V
+42 27 V
+43 37 V
+43 51 V
+43 66 V
+42 85 V
+43 106 V
+43 130 V
+42 155 V
+43 179 V
+43 201 V
+43 219 V
+42 231 V
+43 236 V
+43 229 V
+42 214 V
+43 187 V
+43 149 V
+42 104 V
+43 52 V
+43 -3 V
+43 -57 V
+42 -109 V
+43 -154 V
+43 -189 V
+42 -216 V
+43 -231 V
+43 -235 V
+43 -231 V
+42 -217 V
+43 -199 V
+43 -177 V
+42 -152 V
+43 -127 V
+43 -104 V
+42 -83 V
+43 -65 V
+43 -49 V
+43 -36 V
+42 -26 V
+43 -19 V
+43 -12 V
+42 -9 V
+43 -6 V
+43 -3 V
+43 -3 V
+42 -1 V
+43 -1 V
+43 -1 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+43 0 V
+43 0 V
+42 0 V
+43 0 V
+stroke
+grestore
+end
+showpage
+%%Trailer
+%%DocumentFonts: Helvetica
+%%Pages: 1
diff --git a/doc/statist.jpg b/doc/statist.jpg
new file mode 100644
index 00000000..92428f25
--- /dev/null
+++ b/doc/statist.jpg
Binary files differ
diff --git a/doc/texinfo.tex b/doc/texinfo.tex
index ebf58d8e..0b5b9033 100644
--- a/doc/texinfo.tex
+++ b/doc/texinfo.tex
@@ -3,10 +3,10 @@
% Load plain if necessary, i.e., if running under initex.
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
%
-\def\texinfoversion{1999-10-01.07}
+\def\texinfoversion{2001-03-28.08}
%
-% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99
-% Free Software Foundation, Inc.
+% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
+% 2000, 01 Free Software Foundation, Inc.
%
% This texinfo.tex file is free software; you can redistribute it and/or
% modify it under the terms of the GNU General Public License as
@@ -214,6 +214,9 @@
\normalturnoffactive % \ in index entries must not stay \, e.g., if
% the page break happens to be in the middle of an example.
\shipout\vbox{%
+ % Do this early so pdf references go to the beginning of the page.
+ \ifpdfmakepagedest \pdfmkdest{\the\pageno} \fi
+ %
\ifcropmarks \vbox to \outervsize\bgroup
\hsize = \outerhsize
\vskip-\topandbottommargin
@@ -243,8 +246,6 @@
\unvbox\footlinebox
\fi
%
- \ifpdfmakepagedest \pdfmkdest{\the\pageno} \fi
- %
\ifcropmarks
\egroup % end of \vbox\bgroup
\hfil\egroup % end of (centering) \line\bgroup
@@ -687,16 +688,54 @@ where each line of input produces a line of output.}
\def\nofillexdentyyy #1{{\advance \leftskip by -\exdentamount
\leftline{\hskip\leftskip{\rm#1}}}}
-% @inmargin{TEXT} puts TEXT in the margin next to the current paragraph.
-
-\def\inmargin#1{%
-\strut\vadjust{\nobreak\kern-\strutdepth
- \vtop to \strutdepth{\baselineskip\strutdepth\vss
- \llap{\rightskip=\inmarginspacing \vbox{\noindent #1}}\null}}}
+% @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current
+% paragraph. For more general purposes, use the \margin insertion
+% class. WHICH is `l' or `r'.
+%
\newskip\inmarginspacing \inmarginspacing=1cm
\def\strutdepth{\dp\strutbox}
-
-%\hbox{{\rm#1}}\hfil\break}}
+%
+\def\doinmargin#1#2{\strut\vadjust{%
+ \nobreak
+ \kern-\strutdepth
+ \vtop to \strutdepth{%
+ \baselineskip=\strutdepth
+ \vss
+ % if you have multiple lines of stuff to put here, you'll need to
+ % make the vbox yourself of the appropriate size.
+ \ifx#1l%
+ \llap{\ignorespaces #2\hskip\inmarginspacing}%
+ \else
+ \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}%
+ \fi
+ \null
+ }%
+}}
+\def\inleftmargin{\doinmargin l}
+\def\inrightmargin{\doinmargin r}
+%
+% @inmargin{TEXT [, RIGHT-TEXT]}
+% (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;
+% else use TEXT for both).
+%
+\def\inmargin#1{\parseinmargin #1,,\finish}
+\def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.
+ \setbox0 = \hbox{\ignorespaces #2}%
+ \ifdim\wd0 > 0pt
+ \def\lefttext{#1}% have both texts
+ \def\righttext{#2}%
+ \else
+ \def\lefttext{#1}% have only one text
+ \def\righttext{#1}%
+ \fi
+ %
+ \ifodd\pageno
+ \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin
+ \else
+ \def\temp{\inleftmargin\lefttext}%
+ \fi
+ \temp
+}
% @include file insert text of that file as input.
% Allow normal characters that we make active in the argument (a file name).
@@ -885,13 +924,17 @@ where each line of input produces a line of output.}
\fi
\ifx\empty\imagewidth\else width \imagewidth \fi
\ifx\empty\imageheight\else height \imageheight \fi
- {#1.pdf}%
+ \ifnum\pdftexversion<13
+ #1.pdf%
+ \else
+ {#1.pdf}%
+ \fi
\ifnum\pdftexversion < 14 \else
\pdfrefximage \pdflastximage
\fi}
- \def\pdfmkdest#1{\pdfdest name{#1@} xyz}
+ \def\pdfmkdest#1{\pdfdest name{#1} xyz}
\def\pdfmkpgn#1{#1@}
- \let\linkcolor = \Cyan
+ \let\linkcolor = \Blue % was Cyan, but that seems light?
\def\endlink{\Black\pdfendlink}
% Adding outlines to PDF; macros for calculating structure of outlines
% come from Petr Olsak
@@ -906,7 +949,8 @@ where each line of input produces a line of output.}
\closein 1
\indexnofonts
\def\tt{}
- % thanh's hack / proper braces in bookmarks
+ \let\_ = \normalunderscore
+ % Thanh's hack / proper braces in bookmarks
\edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
\edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
%
@@ -1670,7 +1714,10 @@ where each line of input produces a line of output.}
}
% Subroutines used in generating headings
-% Produces Day Month Year style of output.
+% This produces Day Month Year style of output.
+% Only define if not already defined, in case a txi-??.tex file has set
+% up a different format (e.g., txi-cs.tex does this).
+\ifx\today\undefined
\def\today{%
\number\day\space
\ifcase\month
@@ -1679,6 +1726,7 @@ where each line of input produces a line of output.}
\or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec
\fi
\space\number\year}
+\fi
% @settitle line... specifies the title of the document, for headings.
% It generates no output of its own.
@@ -2587,42 +2635,48 @@ width0pt\relax} \fi
}
% @defindex foo == \newindex{foo}
-
+%
\def\defindex{\parsearg\newindex}
% Define @defcodeindex, like @defindex except put all entries in @code.
-
+%
+\def\defcodeindex{\parsearg\newcodeindex}
+%
\def\newcodeindex#1{%
\iflinks
\expandafter\newwrite \csname#1indfile\endcsname
\openout \csname#1indfile\endcsname \jobname.#1
\fi
\expandafter\xdef\csname#1index\endcsname{%
- \noexpand\docodeindex{#1}}
+ \noexpand\docodeindex{#1}}%
}
-\def\defcodeindex{\parsearg\newcodeindex}
% @synindex foo bar makes index foo feed into index bar.
% Do this instead of @defindex foo if you don't want it as a separate index.
-% The \closeout helps reduce unnecessary open files; the limit on the
-% Acorn RISC OS is a mere 16 files.
-\def\synindex#1 #2 {%
- \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
- \expandafter\closeout\csname#1indfile\endcsname
- \expandafter\let\csname#1indfile\endcsname=\synindexfoo
- \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
- \noexpand\doindex{#2}}%
-}
-
+%
% @syncodeindex foo bar similar, but put all entries made for index foo
% inside @code.
-\def\syncodeindex#1 #2 {%
- \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
- \expandafter\closeout\csname#1indfile\endcsname
- \expandafter\let\csname#1indfile\endcsname=\synindexfoo
- \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
- \noexpand\docodeindex{#2}}%
+%
+\def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}}
+\def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}}
+
+% #1 is \doindex or \docodeindex, #2 the index getting redefined (foo),
+% #3 the target index (bar).
+\def\dosynindex#1#2#3{%
+ % Only do \closeout if we haven't already done it, else we'll end up
+ % closing the target index.
+ \expandafter \ifx\csname donesynindex#2\endcsname \undefined
+ % The \closeout helps reduce unnecessary open files; the limit on the
+ % Acorn RISC OS is a mere 16 files.
+ \expandafter\closeout\csname#2indfile\endcsname
+ \expandafter\let\csname\donesynindex#2\endcsname = 1
+ \fi
+ % redefine \fooindfile:
+ \expandafter\let\expandafter\temp\expandafter=\csname#3indfile\endcsname
+ \expandafter\let\csname#2indfile\endcsname=\temp
+ % redefine \fooindex:
+ \expandafter\xdef\csname#2index\endcsname{\noexpand#1{#3}}%
}
% Define \doindex, the driver for all \fooindex macros.
@@ -2854,16 +2908,17 @@ width0pt\relax} \fi
% Now the real index entry with the fonts.
\toks0 = {#2}%
%
- % If third (subentry) arg is present, add it to the index
- % string. And include a space.
+ % If the third (subentry) arg is present, add it to the index
+ % line to write.
\ifx\thirdarg\emptymacro \else
- \toks0 = \expandafter{\the\toks0 \space #3}%
+ \toks0 = \expandafter{\the\toks0{#3}}%
\fi
%
- % Set up the complete index entry, with both the sort key
- % and the original text, including any font commands. We write
- % three arguments to \entry to the .?? file, texindex reduces to
- % two when writing the .??s sorted result.
+ % Set up the complete index entry, with both the sort key and
+ % the original text, including any font commands. We write
+ % three arguments to \entry to the .?? file (four in the
+ % subentry case), texindex reduces to two when writing the .??s
+ % sorted result.
\edef\temp{%
\write\csname#1indfile\endcsname{%
\realbackslash entry{\indexsorttmp}{\folio}{\the\toks0}}%
@@ -3085,11 +3140,18 @@ width0pt\relax} \fi
\def\primary #1{\line{#1\hfil}}
\newskip\secondaryindent \secondaryindent=0.5cm
-
-\def\secondary #1#2{
-{\parfillskip=0in \parskip=0in
-\hangindent =1in \hangafter=1
-\noindent\hskip\secondaryindent\hbox{#1}\indexdotfill #2\par
+\def\secondary#1#2{{%
+ \parfillskip=0in
+ \parskip=0in
+ \hangindent=1in
+ \hangafter=1
+ \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill
+ \ifpdf
+ \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph.
+ \else
+ #2
+ \fi
+ \par
}}
% Define two-column mode, which we use to typeset indexes.
@@ -3149,7 +3211,6 @@ width0pt\relax} \fi
%
% Double the \vsize as well. (We don't need a separate register here,
% since nobody clobbers \vsize.)
- \advance\vsize by -\ht\partialpage
\vsize = 2\vsize
}
@@ -3163,6 +3224,7 @@ width0pt\relax} \fi
% previous page.
\dimen@ = \vsize
\divide\dimen@ by 2
+ \advance\dimen@ by -\ht\partialpage
%
% box0 will be the left-hand column, box2 the right.
\setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
@@ -3170,15 +3232,18 @@ width0pt\relax} \fi
\unvbox255
\penalty\outputpenalty
}
+%
+% Re-output the contents of the output page -- any previous material,
+% followed by the two boxes we just split, in box0 and box2.
\def\pagesofar{%
- % Re-output the contents of the output page -- any previous material,
- % followed by the two boxes we just split, in box0 and box2.
\unvbox\partialpage
%
\hsize = \doublecolumnhsize
\wd0=\hsize \wd2=\hsize
\hbox to\pagewidth{\box0\hfil\box2}%
}
+%
+% All done with double columns.
\def\enddoublecolumns{%
\output = {%
% Split the last of the double-column material. Leave it on the
@@ -3203,8 +3268,9 @@ width0pt\relax} \fi
% \endgroup where \vsize got restored).
\pagegoal = \vsize
}
+%
+% Called at the end of the double column material.
\def\balancecolumns{%
- % Called at the end of the double column material.
\setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120.
\dimen@ = \ht0
\advance\dimen@ by \topskip
@@ -4265,6 +4331,7 @@ width0pt\relax} \fi
\gobble
}
+
% @quotation does normal linebreaking (hence we can't use \nonfillstart)
% and narrows the margins.
%
@@ -4287,6 +4354,158 @@ width0pt\relax} \fi
}
+% LaTeX-like @verbatim...@end verbatim and @verb{<char>...<char>}
+% If we want to allow any <char> as delimiter,
+% we need the curly braces so that makeinfo sees the @verb command, eg:
+% `@verbx...x' would look like the '@verbx' command. --janneke@gnu.org
+%
+% [Knuth]: Donald Ervin Knuth, 1996. The TeXbook.
+%
+% [Knuth] p. 344; only we need to do '@' too
+\def\dospecials{%
+ \do\ \do\\\do\@\do\{\do\}\do\$\do\&%
+ \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
+%
+% [Knuth] p. 380
+\def\uncatcodespecials{%
+ \def\do##1{\catcode`##1=12}\dospecials}
+%
+% [Knuth] pp. 380,381,391
+% Disable Spanish ligatures ?` and !` of \tt font
+\begingroup
+ \catcode`\`=\active\gdef`{\relax\lq}
+\endgroup
+%
+% Setup for the @verb command.
+%
+% Eight spaces for a tab
+\begingroup
+ \catcode`\^^I=\active
+ \gdef\tabeightspaces{\catcode`\^^I=\active\def^^I{\ \ \ \ \ \ \ \ }}
+\endgroup
+%
+\def\setupverb{%
+ \tt % easiest (and conventionally used) font for verbatim
+ \def\par{\leavevmode\endgraf}%
+ \catcode`\`=\active
+ \tabeightspaces
+ % Respect line breaks,
+ % print special symbols as themselves, and
+ % make each space count
+ % must do in this order:
+ \obeylines \uncatcodespecials \sepspaces
+}
+
+% Setup for the @verbatim environment
+%
+% Real tab expansion
+\newdimen\tabw \setbox0=\hbox{\tt\space} \tabw=8\wd0 % tab amount
+%
+\def\starttabbox{\setbox0=\hbox\bgroup}
+\begingroup
+ \catcode`\^^I=\active
+ \gdef\tabexpand{%
+ \catcode`\^^I=\active
+ \def^^I{\leavevmode\egroup
+ \dimen0=\wd0 % the width so far, or since the previous tab
+ \divide\dimen0 by\tabw
+ \multiply\dimen0 by\tabw % compute previous multiple of \tabw
+ \advance\dimen0 by\tabw % advance to next multiple of \tabw
+ \wd0=\dimen0 \box0 \starttabbox
+ }%
+ }
+\endgroup
+\def\setupverbatim{%
+ % Easiest (and conventionally used) font for verbatim
+ \tt
+ \def\par{\leavevmode\egroup\box0\endgraf}%
+ \catcode`\`=\active
+ \tabexpand
+ % Respect line breaks,
+ % print special symbols as themselves, and
+ % make each space count
+ % must do in this order:
+ \obeylines \uncatcodespecials \sepspaces
+ \everypar{\starttabbox}%
+}
+
+% Do the @verb magic: verbatim text is quoted by unique
+% delimiter characters. Before first delimiter expect a
+% right brace, after last delimiter expect closing brace:
+%
+% \def\doverb'{'<char>#1<char>'}'{#1}
+%
+% [Knuth] p. 382; only eat outer {}
+\begingroup
+ \catcode`[=1\catcode`]=2\catcode`\{=12\catcode`\}=12
+ \gdef\doverb{#1[\def\next##1#1}[##1\endgroup]\next]
+\endgroup
+%
+\def\verb{\begingroup\setupverb\doverb}
+%
+%
+% Do the @verbatim magic: define the macro \doverbatim so that
+% the (first) argument ends when '@end verbatim' is reached, ie:
+%
+% \def\doverbatim#1@end verbatim{#1}
+%
+% For Texinfo it's a lot easier than for LaTeX,
+% because texinfo's \verbatim doesn't stop at '\end{verbatim}':
+% we need not redefine '\', '{' and '}'
+%
+% Inspired by LaTeX's verbatim command set [latex.ltx]
+%% Include LaTeX hack for completeness -- never know
+%% \begingroup
+%% \catcode`|=0 \catcode`[=1
+%% \catcode`]=2\catcode`\{=12\catcode`\}=12\catcode`\ =\active
+%% \catcode`\\=12|gdef|doverbatim#1@end verbatim[
+%% #1|endgroup|def|Everbatim[]|end[verbatim]]
+%% |endgroup
+\begingroup
+ \catcode`\ =\active
+ \gdef\doverbatim#1@end verbatim{#1\end{verbatim}}
+\endgroup
+%
+\def\verbatim{%
+ \def\Everbatim{\nonfillfinish\endgroup}%
+ \begingroup
+ \nonfillstart
+ \advance\leftskip by -\defbodyindent
+ \begingroup\setupverbatim\doverbatim
+}
+
+% @verbatiminclude FILE - insert text of file in verbatim environment.
+%
+% Allow normal characters that we make active in the argument (a file name).
+\def\verbatiminclude{%
+ \begingroup
+ \catcode`\\=12
+ \catcode`~=12
+ \catcode`^=12
+ \catcode`_=12
+ \catcode`|=12
+ \catcode`<=12
+ \catcode`>=12
+ \catcode`+=12
+ \parsearg\doverbatiminclude
+}
+\def\setupverbatiminclude{%
+ \begingroup
+ \nonfillstart
+ \advance\leftskip by -\defbodyindent
+ \begingroup\setupverbatim
+}
+%
+\def\doverbatiminclude#1{%
+ % Restore active chars for included file.
+ \endgroup
+ \begingroup
+ \def\thisfile{#1}%
+ \expandafter\expandafter\setupverbatiminclude\input\thisfile
+ \endgroup\nonfillfinish\endgroup
+}
+
+
\message{defuns,}
% @defun etc.
@@ -4710,7 +4929,8 @@ width0pt\relax} \fi
\def\deftypeivarheader#1#2#3{%
\dosubind{vr}{\code{#3}}{\putwordof\ \code{#1}}% entry in variable index
\begingroup
- \defname{#3}{\putwordInstanceVariableof\ \code{#1}}%
+ \defname{\defheaderxcond#2\relax$$$#3}
+ {\putwordInstanceVariableof\ \code{#1}}%
\defvarargs{#3}%
\endgroup
}
@@ -5628,7 +5848,8 @@ width0pt\relax} \fi
\setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
\setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
\begingroup
- \catcode`\^^M = 5 % in case we're inside an example
+ \catcode`\^^M = 5 % in case we're inside an example
+ \normalturnoffactive % allow _ et al. in names
% If the image is by itself, center it.
\ifvmode
\nobreak\bigskip
@@ -5740,6 +5961,15 @@ should work if nowhere else does.}
\setemergencystretch
}
+% Use `small' versions.
+%
+\def\smallenvironments{%
+ \let\smalldisplay = \smalldisplayx
+ \let\smallexample = \smalllispx
+ \let\smallformat = \smallformatx
+ \let\smalllisp = \smalllispx
+}
+
% @letterpaper (the default).
\def\letterpaper{{\globaldefs = 1
\parskip = 3pt plus 2pt minus 1pt
@@ -5762,11 +5992,7 @@ should work if nowhere else does.}
\contentsrightmargin = 0pt
\deftypemargin = 0pt
\defbodyindent = .5cm
- %
- \let\smalldisplay = \smalldisplayx
- \let\smallexample = \smalllispx
- \let\smallformat = \smallformatx
- \let\smalllisp = \smalllispx
+ \smallenvironments
}}
% Use @afourpaper to print on European A4 paper.
@@ -5780,6 +6006,26 @@ should work if nowhere else does.}
\hfuzz = 1pt
}}
+% Use @afivepaper to print on European A5 paper.
+% From romildo@urano.iceb.ufop.br, 2 July 2000.
+% He also recommends making @example and @lisp be small.
+\def\afivepaper{{\globaldefs = 1
+ \setleading{12.5pt}%
+ \parskip = 2pt plus 1pt minus 0.1pt
+ %
+ \internalpagesizes{166mm}{120mm}{\voffset}{-8mm}{\bindingoffset}{8pt}%
+ %
+ \lispnarrowing = 0.2in
+ \tolerance = 800
+ \hfuzz = 1.2pt
+ \contentsrightmargin = 0mm
+ \deftypemargin = 0pt
+ \defbodyindent = 2mm
+ \tableindent = 12mm
+ %
+ \smallenvironments
+}}
+
% A specific text layout, 24x15cm overall, intended for A4 paper. Top margin
% 29mm, hence bottom margin 28mm, nominal side margin 3cm.
\def\afourlatex{{\globaldefs = 1
diff --git a/doc/uf002331.eps b/doc/uf002331.eps
new file mode 100644
index 00000000..89791cfd
--- /dev/null
+++ b/doc/uf002331.eps
@@ -0,0 +1,1155 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%Title: /home/jkahrs/uf002331.ps
+%%Creator: XV Version 3.10a Rev: 12/29/94 (PNG patch 1.2) - by John Bradley
+%%CreationDate: Oct 14 22:02
+%%For:jkahrs jkahrs
+%%Pages: 1
+%%DocumentFonts:
+%%BoundingBox: -1 259 595 529
+%%BeginPreview: 597 269 1 269
+% 000000000000000080000000202018000400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% f0f0f8d8f0c0c80080000078302000000600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 982080c89040580090000010202000181400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 982080c898c07000f8c400303030382c3c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% b020f8a888403000c44c0010202008046400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% e02080a888c02000842800303020083c4600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% b02080b898403000c4300010202008444400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 9060c898f0c83000c83000303030084c6c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 98f0f898e07c2000f8200078181c083c3c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 000000000000000000200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+% ab6aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa000d55555555555555555555555555555555555555555555555555555555500155555555555555555555555555555555555555540
+% fffffffffffffffffffffffffffffffffffffffffffff000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffff803fffffffffffffffffffffffffffffffffffffffe0
+% fffffffffffffffffffffffffffffffffffffffffffff001ffffffffffffffffffffffffffffffffffffffffffffffffffffffffff003fffffffffffffffffffffffffffffffffffffffe0
+% 555555555555555555555555555555555555555555557000eaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab803aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa0
+% 000000000000000000000000000000000000000000007001c00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007780e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000070fdc00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007000e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000070fcc00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000070dbe00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 00000000000000000000000000000000000000000000708dc00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 00000000000000000000000000000000000000000000718be00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 00000000000000000000000000000000000000000000707bc00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007000e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007181c00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000070fce00000000000000000000000000000000000000000000000000000000380380f00bc3c1c09f020f3cffffc3030e0e700f1cf00
+% 000000000000000000000000000000000000000000007001c00000000000000000000000000000000000000000000000000000000300301f51b83e1ec9c020db6cfffe2078f1e780fbe980
+% 000000000000000000000000000000000000000000007070e000000000000000000000000000000000000000000000000000000003803804516013324d00608a38002260419b34c0223980
+% 0000000000000000000000000000000000000000000070d9c000000000000000000000000000000000000000000000000000000003003006196c31a34960608a6b082240810a1460343f00
+% 00000000000000000000000000000000000000000000718ce000000000000000000000000000000000000000000000000000000003803804097c31634de070d3df102180b90a1460143f00
+% 0000000000000000000000000000000000000000000070cdc0000000000000000000000000000000000000000000000000000000030030040b4011426d0060e3900821818e1e3440142880
+% 000000000000000000000000000000000000000000007078e0000000000000000000000000000000000000000000000000000000038038040e403246e800f082501821818e1424c0146880
+% 000000000000000000000000000000000000000000007001c0000000000000000000000000000000000000000000000000000000030030040646164699309082519061011a366583344980
+% 00000000000000000000000000000000000000000000700ce00000000000000000000000000000000000000000000000000000000380380f067c1c6cd9f090c25f182101f1e3c701f7cf00
+% 00000000000000000000000000000000000000000000700dc00000000000000000000000000000000000000000000000000000000300301c0638183889c010826e102100c1c38600e38c00
+% 000000000000000000000000000000000000000000007180e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000070f1c00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 00000000000000000000000000000000000000000000701ee0000000000000000000000000000000000000000000000000000000038038073e1f3e821808618f7bf7dc037c7130b8093de0
+% 00000000000000000000000000000000000000000000707bc000000000000000000000000000000000000000000000000000000003003007be1938a2380871dc6fff1e0366f928be0971a0
+% 0000000000000000000000000000000000000000000071c1e00000000000000000000000000000000000000000000000000000000380380ce00920b26008c3104444130322892ca3094080
+% 000000000000000000000000000000000000000000007000c000000000000000000000000000000000000000000000000000000003003008660f3cb25c1c821f4c4f91876d8f2ca1097da0
+% 0000000000000000000000000000000000000000000077fde0000000000000000000000000000000000000000000000000000000038038187e0b78b2fc1d863c58cf3185390a2ca10ef0e0
+% 000000000000000000000000000000000000000000007000c000000000000000000000000000000000000000000000000000000003003018f009a0aa861d041070481107290a2ab30f41e0
+% 000000000000000000000000000000000000000000007779e000000000000000000000000000000000000000000000000000000003803810a00881aa841d1c7040cc1207ed0a2aa6094120
+% 0000000000000000000000000000000000000000000077f8c000000000000000000000000000000000000000000000000000000003003011a00ba7ae9c3534d3c0c8d60ca5126bbc0b47a0
+% 000000000000000000000000000000000000000000007089e00000000000000000000000000000000000000000000000000000000380381f200e3ca6f825e79f40c79c08e7f3e9981b7d80
+% 00000000000000000000000000000000000000000000718cc000000000000000000000000000000000000000000000000000000003003004200810804004c2084006000080c18000003000
+% 0000000000000000000000000000000000000000000070f9e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007000c00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000001000000000
+% 000000000000000000000000000000000000000000007059e00000000000000000000000000000000000000000000000000000000380380f8633defe1e73c1fa4df0466f917ffe08700160
+% 0000000000000000000000000000000000000000000070fcc00000000000000000000000000000000000000000000000000000000300300c647719fe3edb61fe4ff0666fdb75fac8f04160
+% 000000000000000000000000000000000000000000007081e00000000000000000000000000000000000000000000000000000000380380828c41910208920224c40ee64d64862cd804940
+% 0000000000000000000000000000000000000000000070fcc00000000000000000000000000000000000000000000000000000000300301f3887d310378f60269c40ecf59e7c62edb04960
+% 0000000000000000000000000000000000000000000070f9e00000000000000000000000000000000000000000000000000000000380381c11871e103d0dc0239440feb7bef862e9f85960
+% 000000000000000000000000000000000000000000007000c00000000000000000000000000000000000000000000000000000000300301839041c10310b40269c40b6e7924062ed585b40
+% 0000000000000000000000000000000000000000000070e9e0000000000000000000000000000000000000000000000000000000038038182d0c1810210a40261ec0b6f4924662bb187b40
+% 0000000000000000000000000000000000000000000071acc00000000000000000000000000000000000000000000000000000000300300be734f01021132064a2408394936e629b706640
+% 0000000000000000000000000000000000000000000070ede00000000000000000000000000000000000000000000000000000000380380f43e7d81031f32026a2408394d17c62cbe02660
+% 000000000000000000000000000000000000000000007078c00000000000000000000000000000000000000000000000000000000300300400c3001000c020000240021410304289800020
+% 000000000000000000000000000000000000000000007001e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000076f8c00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% 0000000000000000000000000000000000000000000074a9e000000000000000000000000000000000000000000000000000000003803807fff7c1c7820a4bfc7004fa107c4de3ff000000
+% 000000000000000000000000000000000000000000007080c00000000000000000000000000000000000000000000000000000000300300c7106034cc24e4fc4e864820826497611000000
+% 000000000000000000000000000000000000000000007081e00000000000000000000000000000000000000000000000000000000380381811040608424e5c45806482d8224d1001000000
+% 0000000000000000000000000000000000000000000070fcc0000c346f87cf9fbfffc08071f27efc3f66f80783080406000000000300301f11f5c7c8424cd4c3f026f2d061c91fc7000000
+% 000000000000000000000000000000000000000000007001e00004646887fedc7fffe180f91afdfc3865ec1fb3180c46000000000380380f13c787e842c794c0f875e2d023891f0e000000
+% 000000000000000000000000000000000000000000007480c000066c68c4285006023303811ac1006064040217380e62000000000300300191040030c2d6dcc0087483d062893408000000
+% 467efe7f0000000007f1bf00037e3181fcc63dff000077fde000038c4984699f84061603f932ddb87e441c0217781a620000000003803801111c04708334b4c1884c8b7026896420000000
+% 46f0e678000000000239b3c186e6610018c4f6d800007080c00001884b05cfbe06061c03f9e6f9f8f87c780204d81272000000000300301b113d06d98134a6c1b84cbb782cd944e0000000
+% 46c0424000000000060db0c0ccc361000987c01800007181e00001885e078db004040c000fc6c1806074600604d81ed2000000000380380e11e503cf0334a6c0f04cf22838f983c8000000
+% c4dc464e00000000060db040498161000985fc1800007080c000018858060890440608020b0681004044400604c81e5a000000000300300410c40106000080006004402000600308000000
+% 7dfe7cfe00000000020d3040798343000905fe18000070fde0000188ca040891c40408031906812063c40006040832ce000000000380380000000000000000000000000000000000000000
+% f4806cc0000000000619b1c03302c1000904031800007000c000010fcb0408df04061801f106c1a03e44601f840823c6000000000300300000000000000000000000000000000000000000
+% c480c4c100000000023133803306c3020b0d8618000070e9e00001060804084c04001000610000001800201800080004000000000380380000000000000000000000000000000000000000
+% c487c6c30000000003611700219c6f0399bdce10000071acc00000000000000000000000000000000000000000000000000000000300300000000000000000000000000000000000000000
+% c4fe467e0000000003c19c0061f87f01f9fcfc18000071ade00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 4478c27800000000010008002040100020401000000070f8c000019f3fd3e8708801837f3e60c0871f81873f0080df00000000000300300000000000000000000000000000000000000000
+% 000000000000000000000000000000000000000000007001e0000198f6370cd1c801a16d6060c08d18188d30018859c0000000000380380000000000000000000000000000000000000000
+% 00000000000000000030701c2100057180102061c0007010c000038886340881d801b1084040c1981018982001cc58c0000000000300300000000000000000000000000000000000000000
+% d608fcfc0000000000f9f9fc330c1ff3e01867ffe00070f9e000029b8636e9835801b10c7e40c19b9f98907e01cc5060000000000380380000000000000000000000000000000000000000
+% b718f1ce0000000001c9858073181d863038ce08300071acc000028f0637c9025801b188f84081b7de18907c034c5040000000000300300000000000000000000000000000000000000000
+% 371980c60000000007018d007330018c1039cc00300070ede000039b06361b03d801390c40c081b05014b06003ce58c0000000000380380000000000000000000000000000000000000000
+% 3739bccc0000000007f98bf8d3e00198102dcfe0e00070c8c00007d906340b0b5041ad0840c18120d056a0e0834b5980000000000300300000000000000000000000000000000000000000
+% 35ebe0f800000000000df380d320019810266c07800070a9e000045986341b3679c1270847cf9da391f3a3278669db00000000000380380000000001800000000000000000000000000000
+% 34c900d8000000000005c300fb30019830266c02000071f8c0000458863419e47f81a3087e7cf9be1f319e3e0268ce00000000000300300000000001800000000000000000000000000000
+% 34c9028c00000000060d83079b10011060226c3800007009e0000050802008c00c010108306060180c009c1800204000000000000380380000000001000000000000000000000000000000
+% 340d0ecc8000000003b9013d0b180119e0206cf00000700cc00000000000000000000000000000000000000000000000000000000300300000000001000000000000000000000000000000
+% 340cfcc68000000001f181f90a08010f802027c3000070f9e00000000000000000000000000000000000000000000000000000000380380000000001000000000000000000000000000000
+% 200440000000000000000000000000000000000000007000c00000f98b7ffe07ffc44242c4307fe2fc03c6319fbfdf8f7f8000000300300000000001000000000000000000000000000000
+% 00000000000000000000000000000000000000000000700de00003898b6c600c0c466246c4306c66c0074e7198be301d6c00000003803800000000010000000080701c40818811e0387000
+% 00000000000000000000000000000000000000000000700cc000030d0b0c40040c4e634c86600c64800c0e63988620300c00000003003000000000030000000081fcfe619fcc37f1fff800
+% 000000000000000000000000000000000000000000007081e00006070b087e0dc98e637882c00c44fc1fce7299863f7f0c000000038038000000000100000000818580e3380c7211818c00
+% 0000000000000000000000000000000000000000000071e0c000044f0b0cf807cf8a737881800c7df00febb2df063c3f8c000000030030000000000300000001808d80e7110e6273018c00
+% 00000000000000000000000800000000000000000000703de000047b0b08400c0d9e5b4d81800c64800029b7db042000cc00000003803800000000020000000181f9fcbd3f96f3f3f9b800
+% 00000000000000000000000c0000000000000000000070e0c00004321b08430c089b4a4587000c4486086936510420a18c00000003003000000000020000000181f3809db013b21301f000
+% 0000000000000000000000040000000000000000000070e1e00007f33b0c470408934e469d000c448e0ce814518633b38c00000003803800000000020000000181998099b013b20b019000
+% 00000000000000000000000400000000000000000000703cc00003d3fb087c0408d146c2f9000c44f807c81858841f1f0c00000003003000000000020000000181890689b0f1321b0f1800
+% 0000000000000000000000040000000000000000000070f9e00000108208300408410200610000046003001050840c0c00000000038038000000000200000001818d9e81b3d012f33d8800
+% 000000000000000000000006000000000000000000007180c00000000000000000000000000000000000000000000000000000000300300000000006000000018184f0809e101381e10c00
+% 0000000000000000000000020000000000000000000070e1e000004000300850100009c000030c060000000000000000000000000380380000000004000000000000000000000000000000
+% 00000000000000000000000200000000000000000000703cc00001f213f80cfc7c4689f018bf7f7e0000000000000000000000000300300000000004000000000000000000000000000000
+% 000000000000000000000002000000000000000000007079e000019b13001cc4e6448d3c18b02160000000000000000000000000038038000000000400000000000000000000078c040f00
+% 0000000000000000000000010000000000000000000071c0c000030b1b001c44c2c68d8c18a023400000000000000000000000000300300000000004000000000278634fc7f03fcc06ff80
+% 000000000000000000000000000000000000000000007039e000060d93f014dd8285cd04193f26fc00000000000000000000000003803800000000040000000186fc636e6700780c06ff00
+% 0000000000000000000000010000000000000000000070f8c000060b9b0016790285e50c1f703ce0000000000000000000000000030030000000000c00000001998642246c00230c060e00
+% 000000000000000000000001000000000000000000007181e000041aca001ed90685ad98192026c0000000000000000000000000038038000000000c000000009902c224efe07f8c0c1800
+% 000000000000000000000001000000000000000000007180c00004327208368d0c853d381121a2c30000000000000000000000000300300000000008000000007306820f9f007e080c3820
+% 0000000000000000000000018000000000000000000070f9e00006723338228d9c9d9df01123a2474000000000000000000000000380380000000008000000006206820e8c0060180e3020
+% 00000000000000000000000080000000000000000000703cc00007c231f02285f0fd08c0113e237c400000000000000000000000030030000000000800000000620c820c481060c8346060
+% 0000000000000000000000008000000000000000000071c1e00000000000000000000000000000000000000000000000000000000380380000000008000000004318de0c6cf077cdecffe0
+% 000000000000000000000000800000000000000000007038c000000000000000000000000000000000000000000000000000000003003000000000080000000041f0fe0c67c03f9fccff60
+% 000000000000000000000000c0000000000000000000703de000000000000000000000000000000000000000000000000000000003803800000000080000000000c0200022001c0f04e000
+% 0000000000000000000000004000000000000000000071e0c00000000000000000000000000000000000000000000000000000000300300000000008000000000000000000000000000000
+% 000000000000000000000000400000000000000000007781e00000000000000000000000000000000000000000000000000000000380380000000000000000000000000000000000000000
+% 00000000000000000000000040000000000000000000707cc00000000000000000000000000000000000000000000000000000000300300000000008000000000000000000000000000000
+% 000000000000000000000000600000000000000000007009e0000000000000000000000000000000000000000000000000000000038038000000001000000000000000000c000000000000
+% 000000000000000000000000200000000000000000007780c00000000000000000000000000000000000000000000000000000000300300000000010000000000000000004000000000000
+% 0000000000000000000000002000000000000000000070fde00000000000000000000000000000000000000000000000000000000380380000000010000000000000000006000000000000
+% 000000000000000000000000000000000000000000007000c00000000000000000000000000000000000000000000000000000000300300000000010000000000000000002000000000000
+% 000000000000000000000000000000000000000000007189e00000000000000000000000000000000000000000000000000000000380380000000010000000000000000001000000000000
+% 00000000000000000000000000000000000000000000708cc00000000000000000000000000000000000000000000000000000000300300000000010000000000000000001000000000000
+% 000000000000000000000000007c00000000000000007021e000000000000000000000000000000000000003e0000000000000000380380000000030000000000000000001800003e00000
+% 00000000000000000000000001ffc00000000000000070f8c00000000300000000000000000000000000000ffe00000000000000030030000000003000000000000000000080000ffe0000
+% 00000000000000000000000003007000000000000000718de00000000300000000000000000000000000001803800000000000000380380000000020000000000000000000c00018038000
+% 0000000000000000000000000e001800000000000000708cc00000000200000000000000000000000000007000c0000000000000030030000000002000000000000000000040007000c000
+% 0000000000000000000000001800060000000000000070ffe0000000020000000000000000000000000000c000300000000000000380380000000020000000000000000000200080003000
+% 000000000000000000000000300003000000000000007001c00000000200000000000000000000000000018000180000000000000300300000000020000000000000000000300180001800
+% 000000000000000000000000300001800000000000007084e000000002000000000000000000000000000100000c0000000000000380380000000020000000000000000000100100000800
+% 000000000000000000000000300000c000000000000073fdc00000000200000000000000000000000000010000040000000000000300300000000060000000000000000000100300000c00
+% 0000000000000000000000002020004000000000000073f8e00000000600000000000000000000000000030100060000000000000380380000000060000000000000000000080301000600
+% 00000000000000000000000063f800400000000000007085c00000000400000000000000000000000000031dc002000000000000030030000000004000000000000000000008021d800200
+% 00000000000000000000000066c8002000000000000073fce00000000400000000000000000000000000037640030000000000000380380000000040000000000000000000040276400300
+% 0000000000000000000000006866002000000000000073f9c0000000040000000000000000000000000002c3200100000000000003003000000000400000000000000000000402c3600100
+% 000000000000000000000000382200300000000000007000e00000000400000000000000000000000000018130018000000000000380380000000040000000000000000000020381200180
+% 000000000000000000000000303200180000000000007079c0000000040000000000000000000000000001819000c000000000000300300000000040000000000000000000020301b00080
+% 0000000000000000000000002031000c00000000000071a8e00000000c000000000000000000000000000100900060000000000003803800000000c0000000000000000000010300900040
+% 000000000000000000000000201100040000000000007081c000000008000000000000000000000000000100980020000000000003003000000000c0000000000000000000018200980060
+% 0000000000000000000000000012600400000000000077f8e00000000800000000000000000000000000000093002000000000000380380000000080000000000000000000008000930040
+% 0000000000000000000000000012f80400000000000077fdc00000000800000000000000000000000000000097c0200000000000030030000000008000000000000000000000c00097c060
+% 0000000000000000000000000011dc040000000000007000e0000000080000000000000000000000000000009e6020000000000003803800000000800000000000000000000000009d6060
+% 000000000000000000000000001b86040000000000007001c000000008000000000000000000000000000000dc3060000000000003003000000000800000000000000000000000003c3040
+% 000000000000000000000000080d8b040000000000007000e0000000080000000000000000000000000000406c5020000000000003803800000000800000000000000000000000c0cc5060
+% 0000000000000000000000000c38090c0000000000007001c000000008000000000000000000000000000061c0686000000000000300300000000180000000000000000000000061804040
+% 0000000000000000000000000c681b0c0000000000007000e0000000100000000000000000000000000000634098600000000000038038000000018000000000000000000000006300d840
+% 0000000000000000000000000cd003880000000000007001c0000000100000000000000000000000000000e680184000000000000300300000000100000000000000000000000066801840
+% 0000000000000000000000003fb01c8c0000000000007000e0000000100000000000000000000000000001fd80e440000000000003803800000001000000000000000000000003fd80ec40
+% 0000000000000000000000003fc000c80000000000007001c0000000100000000000000000000000000001be000440000000000003003000000001000000000000000000000003b6000440
+% 000000000000000000000000280000c40000000000007000e0000000100000000000000000000000000001c0000420000000000003803800000001000000000000000000000001c0000440
+% 000000000000000000000000680000440000000000007001c00000001000000000000000000000000000034000062000000000000300300000000100000000000000000000000240000660
+% 000000000000000000000000abc000460000000000007000e000000010000000000000000000000000000cde00023000000000000380380000000100000000000000000000000dde000220
+% 000000000000000000000001be7000620000000000007001c000000010000000000000000000000000001db380031000000000000300300000000100000000000000000000001df3800300
+% 000000000000000000000002041800210000000000007000e000000030000000000000000000000000001020c0030800000000000380380000000000000000000000000000003021c00300
+% 0000000000000000000000020c0e00308000000000007001c00000002000000000000000000000000000106060018400000000000300300000000100000000000000000000001063600180
+% 000000000000000000000001fa860030c000000000007000e000000020000000000000000000000000001f9020018600000000000380380000000200000000000000000000001f9f200180
+% 00000000000000000000000003c20038c000000000007001c0000000200000000000000000000000000000182001c60000000000030030000000020000000000000000000000001fa00180
+% 00000000000000000000000001c20008c000000000007000e0000000200000000000000000000000000000081000660000000000038038000000020000000000000000000000000f300040
+% 00000000000000000000000001c3000c6000000000007001c00000002000000000000000000000000000000c1800630000000000030030000000020000000000000000000000000e180060
+% 0000000000000000000000000103801e2000000000007000e0000000600000000000000000000000000000081c00f3000000000003803800000002000000000000000000000000103c00e0
+% 000000000000000000000000030280162000000000007001c000000060000000000000000000000000000018240091000000000003003000000002000000000000000000000000182400a0
+% 000000000000000000000000030080321000000000007000e000000040000000000000000000000000000018040191800000000003803800000006000000000000000000000000180401a0
+% 000000000000000000000000030080221000000000007001c00000004000000000000000000000000000001804031080000000000300300000000600000000000000000000000018040300
+% 0000000000000000000000000300c02318000000000077f8e000000040000000000000000000000000000018060318c0000000000380380000000400000000000000000000000010040320
+% 000000000000000000000000010040478800000000007089c00000004000000000000000000000000000000802022c40000000000300300000000400000000000000000000000018020220
+% 000000000000000000000000018041cce40000000000718ce000000040000000000000000000000000000008020c6760000000000380380000000400000000000000000000000008020c60
+% 0000000000000000000000000180cf8db6000000000070f9c0000000c000000000000000000000000000000c067c6db000000000030030000000040000000000000000000000000804fc60
+% 00000000000000000000000000c0fa1bd300000000007060e0000000c000000000000000000000000000000407d0dc9800000000038038000000040000000000000000000000000c07b0c0
+% 00000000000000000000000000c0803b118000000000700dc0000000800000000000000000000000000000040401db88000000000300300000000c0000000000000000000000000c040180
+% 0000000000000000000000000041806270800000000071f8e0000000800000000000000000000000000000020c033584000000000380380000000c000000000000000000000000020c0320
+% 00000000000000000000000000e301d750c00000000071adc000000080000000000000000000000000000007180e3284000000000300300000000800000000000000000000000007180e60
+% 000000000000000000000000008307bd50400000000070bce0000000800000000000000000000000000000041839ea8600000000038038000000080000000000000000000000000c1039e0
+% 00000000000000000000000000821c765840000000007011c00000018000000000000000000000000000000410ebb2c600000000030030000000080000000000000000000000000c10eba0
+% 0000000000000000000000000182fadfa840000000007000e00000018000000000000000000000000000000c17d6fac6000000000380380000000800000000000000000f0000000837d6e0
+% 0000000000000000000000000107c5b1aec00000000076f9c0000001000000000000000000000000000000083e2f4d640000000003003000000008000000000000000008000000087d2d80
+% 000000000000000000000000010f29ed9780000000007000e0000001000000000000000000000000000000087aceacbc000000000380380000001800000000000000001000000018795b60
+% 000000000000000000000000037fabcad4c00000000077f9c00000010000000000000000000000000000001b7c9eaeb4000000000300300000001800000000000000002180000003fe9e40
+% 000000000000000000000000023fd6ead6800000000077fce000000100000000000000000000000000000013fd7556b0000000000380380000001000000000000000000380000011fd7540
+% 000000000000000000000000020faccad600000000007001c0000001000000000000000000000000000000117d6d56a00000000003003000000010000000000000000004000000127e6d40
+% 000000000000000000000000024fadb564000000000077f8e0000003000000000000000000000000000000127eeaab300000000003803800000010000000000000000000018000127cdaa0
+% 000000000000000000000000035fdb957600000000007001c00000020000000000000000000000000000001efcdaabb00000000003003000000010000000000000000001ffc0001e7edaa0
+% 000000000000000000000000018f992aaa000000000077f8e00000020000000000000000000000000000000c7ecd55500000000003803800000000000000000000000003d870000cfcdaa0
+% 000000000000000000000000000fdb6ab3000000000077fdc0000002000000000000000000000000000000007d9aab58000000000300300000000000000000000000000e08d80001fd9aa0
+% 000000000000000000000000000fb74abb00000000007000e0000002000000000000000000000000000000007db9555800000000038038000000000000000000000000120ccc0007fdb540
+% 000000000000000000000000001fb35ab200000000007001c000000200000000000000000000000000000000fddd55d000000000030030000000000000000000000000e64cb60006fddd40
+% 000000000000000000000000000fbbaab700000000007000e0000002000000000000000000000000000000007d995598000000000380380000000000000000000000018c44a58018fd1940
+% 000000000000000000000000000fb3555b000000000070e1c0000002000000000000000000000000000000007d3b55d80000000003003000000000000000000000000236cd9ac036ff5b40
+% 000000000000000000000000001fb7555b000000000077f8e000000000000000000000000000000000000000ff5a5598000000000380380000000000000000000000066385a57064ff5a40
+% 000000000000000000000000001fab55590000000000760dc000000200000000000000000000000000000000fd59aaa800000000030030000000000000000000000003c709d530d5ff55a0
+% 000000000000000000000000001feb555b000000000077b8e000000400000000000000000000000000000000ff5a55a8000000000380380000000000000000000000014c9bd559aaff5940
+% 000000000000000000000000001feb555d000000000070e1c000000400000000000000000000000000000000ff5daad80000000003003000000000000000000000000038912aa72aff5aa0
+% 000000000000000000000000001feb555900000000007040e000000000000000000000000000000000000000ff5aaaa80000000003803800000000000000000000000008e355576afe5aa0
+% 000000000000000000000000001fcb555b000000000073f9c000000000000000000000000000000000000000fe5aaad80000000003003000000000000000000000000009c35556aaff5540
+% 000000000000000000000000001feb555d0000000000760ce000000000000000000000000000000000000000ffd95588000000000380380000000000000000000000000f0195572afe5540
+% 000000000000000000000000001fab5553000000000077bdc000000000000000000000000000000000000000fc5d55b8000000000300300000000000000000000000000000e55754fcdaa0
+% 000000000000000000000000001fab2ab5000000000070f0e000000000000000000000000000000000000000fd5955c80000000003803800000000000000000000000000007aaeabfd5d40
+% 000000000000000000000000001fab555500000000007001c000000000000000000000000000000000000000fd5d55980000000003003000000000000000000000000000001d5f56fd5940
+% 000000000000000000000000001fd7555b000000000073f0e000000000000000000000000000000000000000fd5955a80000000003803800000000000000000000000000000658acfd5d40
+% 000000000000000000000000001fabaab30000000000761dc000000000000000000000000000000000000000fd5d55d8000000000300300000000000000000000000000000038b4cfd5940
+% 000000000000000000000000001f95555b0000000000760ce0003fff40000000000000000000000000000000fead559800000000038038000fffd000000000000000000c0001f158fd5b40
+% 000000000000000000000000001fabaab2000000000073f1c001f4005c000000000000000000000000000000fd5955b000000000030030007d0017000000000000000007c0003e70fd5d40
+% 000000000000000000000000001fd3555b00000000007000e003008006000000000000000000000000000000fe5b5598000000000380380042200180000000000000000000000fe0fd5140
+% 000000000000000000000000001fab2abb000000000073cdc0037a0001800000000000000000000000000000fd5a55d80000000003003000d4800060000000000000000800000180fd5d40
+% 000000000000000000000000001fab553300000000007668e006048000800000000000000000000000000000fd5955500000000003803801911000300000000000000007e0000000fd5aa0
+% 000000000000000003800000001fcbaaba0000000000743dc007f00000c00000000000000000000000000000fe5aab580000000003003001fc4000100000000000000001c0000000fe5540
+% 000000000000000002000000001fdb2ab30000000000731ce00d7c8000400000000000000000000000000000fedd55d800000000038038035f000010000000000000000000000000fed540
+% 000000000000000004c00000001feb555b00000000007001c00a840000600000000000000000000000000000ff5955180000000003003003a1000030000000000000000000000000fd5d40
+% 000000000000000004800000001fcb555a00000000007000e00aa60000a00000000000000000000000000000fe5b55d0000000000380380229900038000000000000000000000000fe52a0
+% 000000000000000000800000003fdb555b00000000007001c00d260000a00000000000000000000000000000feba55580000000003003002c9800028000000000000000000000000fedaa0
+% 000000000000000001000000003fcb2ab300000000007000e019420000a00000000000000000000000000000fea955d8000000000380380650800028000000000000000000000000fd5940
+% 000000000000000000008000017fd5f55b000000000071fcc00d520001a00000000000000000000000000000ff5faa980000000003003002aa80006c000000000000000000000000feafa0
+% 0000000000000000007fedf07fdfebc55b00000000007707e009230eff300000000000000000000000000000fe5e55d80000000003803806a0c3bf88000000000000000000000000fe5e40
+% 000000000000000000c13b7fe99fcbf55500000000007001c01d49fb80200000000000000000000000000000ff5faaa80000000003003003547ed008000000000000000000000000ff5fa0
+% 0000000000000000008219894adfd5955980000000007098e009200000200000000000000000000000000000fe4d55a8000000000380380248000004000000000000000000000000fead40
+% 000000000000000000ff4b6ab55fd5d5558000000000718dc01a4400003000000000000000000000000000007f5caaa80000000003003006910000080000000000000000000000007e5ca0
+% 000000000000000000225b55555febd55d0000000000708ce00a9000002000000000000000000000000000007eaf55980000000003803802a400000c0000000000000000000000007eaf40
+% 00000000000000000026d155555fcb6ab5800000000070f9c00d400300200000000000000000000000000000ff5a556c00000000030030035000c008000000000000000000000000ff5240
+% 0000000000000000003f932aaa9feb155580000000007000e0090805002000000000000000000000000000007f59554800000000038038064200c0080000000000000000000000007ebac0
+% 0000000000000000002013aaaaafeb6ab280000000007603c01aa003002000000000000000000000000000007f36ab5c0000000003003006a801c0080000000000000000000000007e5280
+% 00000000000000000036132aaaafeaaab5800000000073fce01d0802002000000000000000000000000000007f5955a80000000003803805420080080000000000000000000000007f5aa0
+% 0000000000000000001c11550aaff6aaba80000000007001c018a000002000000000000000000000000000007fb355ac0000000003003006a80000080000000000000000000000007eb540
+% 00000000000000000007dfa9f94fc6aab280000000007000e0150000002000000000000000000000000000007e3655280000000003803806400000080000000000000000000000007eb540
+% 00000000000000000000012fdffff6553580000000007001c01a5200006000000000000000000000000000007eb4d5ac0000000003003006948000000000000000000000000000007ebaa0
+% 0000000000000000000001fc000fcf556a80000000007000e01a8c00002000000000000000000000000000007f732b280000000003803806a1000008000000000000000000000000fe72a0
+% 0000000000000000000000c0001fed55658000000000708dc01a080000200000000000000000000000000000fe7aab6c0000000003003006430000000000000000000000000000007f76a0
+% 000000000000000000000000000fce556a800000000073fce0194800002000000000000000000000000000007ef555a80000000003803806920000080000000000000000000000007e72a0
+% 0000000000000000000c0000000fddaaaa80000000007081c01a0800002000000000000000000000000000007e6aab2c000000000300300522000000000000000000000000000000fd6aa0
+% 00000000000000000003c000001fcd5575800000000070fce014a80000200000000000000000000000000000ff6555a8000000000380380642000008000000000000000000000000ff6aa0
+% 000000000000000000000000001fdcaaaa80000000007181c019080000200000000000000000000000000000fe6aab2c000000000300300692000000000000000000000000000000fe6aa0
+% 0000000000000000000c6000001fed556580000000007080e01a480000600000000000000000000000000000feeaab68000000000380380542000008000000000000000000000000feeaa0
+% 00000000000000000007c000001fcd556a800000000077f9c014080000200000000000000000000000000000fe6aaaac000000000300300613000000000000000000000000000000fe6aa0
+% 000000000000000000000000001fed556a800000000077fce019480000400000000000000000000000000000fecaaaa8000000000380380542000008000000000000000000000000fed540
+% 000000000000000000000000001f99555580000000007001c00a080000200000000000000000000000000000feeaabac000000000300300281000008000000000000000000000000fccaa0
+% 000000000000000000000000003fdb556a800000000070fee014880000200000000000000000000000000001fdcaab28000000000380380652000008000000000000000000000000fdeaa0
+% 000000000000000000000000001f1a556a8000000000708bc01a080000200000000000000000000000000000f8daab6c000000000300300682000008000000000000000000000001fad540
+% 000000000000000000000000001f79aad580000000007189e018480000200000000000000000000000000000fdcaaaa8000000000380380601000008000000000000000000000000facaa0
+% 000000000000000000000000000f9d554ac00000000070dfc0150c00002000000000000000000000000000007ad5572c00000000030030055100000800000000000000000000000079daa0
+% 000000000000000000000000000f5aaad4c0000000007061e0180c00003000000000000000000000000000007aeaaa5400000000038038060000000c0000000000000000000000007ad2a0
+% 00000000000000000000000000035d556a800000000074b8c01a840000200000000000000000000000000000159556d400000000030030054100000800000000000000000000000052ad40
+% 00000000000000000000000000015aaaaac00000000076f9e0180c000020000000000000000000000000000012d556ac0000000003803806110000080000000000000000000000001ad540
+% 000000000000000000000000000312aad4c0000000007000c019080000300000000000000000000000000000199554a4000000000300300680000008000000000000000000000000199540
+% 0000000000000000000000000001dd55eb80000000007181e0120c00002000000000000000000000000000000eaaaf1c0000000003803804410000080000000000000000000000000daaa0
+% 0000000000000000000000000000f2aabf000000000070fcc01884000010000000000000000000000000000007d557f800000000030030070100000c000000000000000000000000079540
+% 0000000000000000000000000000d9559400000000007001e01404000020000000000000000000000000000006caaca000000000038038042100000800000000000000000000000006caa0
+% 0000000000000000000000000000ef11a600000000007000c011040001f0000000000000000000000000000006788ab000000000030030048100007c000000000000000000000000067880
+% 0000000000000000000000000000edff2c000000000071e1e01c02001f100000000000000000000000000000076ffd600000000003803807008007c400000000000000000000000006dfe0
+% 0000000000000000000000000001eac6ec0000000000703cc037d37ff08800000000000000000000000000000f563560000000000300300df4dffc220000000000000000000000000f4e60
+% 0000000000000000000000000000ed67280000000000703fe0607fe0038800000000000000000000000000000f57954000000000038038081fe801e20000000000000000000000000ed720
+% 0000000000000000000000000001eabc58000000000071c1c0400680184400000000000000000000000000000769eac0000000000300301001b006110000000000000000000000000769e0
+% 0000000000000000000000000000eaa5d000000000007020e0400cd007b400000000000000000000000000000f4a2ac00000000003803810013400ed0000000000000000000000000f5500
+% 0000000000000000000000000001bd5518000000000070f9c0800cd00c6400000000000000000000000000000d6aaa800000000003003030013403198000000000000000000000000f6560
+% 0000000000000000000000000001a555700000000000718ce08007b0018400000000000000000000000000000db55580000000000380382001e400f100000000000000000000000007b540
+% 0000124924800000000000000001b6aa900000000000708ce880000002020000012492480000000000000000073555800000000003003920000400008000002492490000000000000f3540
+% ffffffffffc00000000000000001b3aab0000000000070fffffffffffffffffffffffffe00000000000000000dda95800000000003803fffffffffffffffffffffff8000000000000f5d40
+% efdfeeeeeec00000000000000001bdd6b000000000007001f7df6efff6fef7dfbedddddc00000000000000000d6d75000000000003003ddfbb75ffdf7fdfbfdddddd800000000000096e60
+% bd7abbbbbbc00000000000000001bcfca000000000007000ed75fbd55fabdd7aebf7777600000000000000000967cb000000000003803b7aefdf5575d57af57777778000000000000b67e0
+% ebd7eeeeeec00000000000000001b61360000000000070f9ffdfaebffaff77d7bf5ddddc00000000000000000db8b3000000000003003fd7bd75ffdf7fd7afdddddd8000000000000db080
+% bebebbbbbdc00000000000000001b355400000000000708cf5757dd557aaaebeeaf7776e00000000000000000d9d56000000000003803d7eebdf556ad57d7d77777b800000000000099aa0
+% ffffffffffc000000000000000019dd5600000000000718dfffffffffffffffffffffffc000000000000000009aeab000000000003003fffffffffffffffffffffff8000000000000dbea0
+% 0000000000000000000000000001b55560000000000070f8c000400094aac0000000000000000000000000000dd2ab00000000000380300010000aaaa000000000000000000000000dcaa0
+% 000000000000000000000000000155557000000000007061e0002025295580000000000000000000000000000d95538000000000030038000801555560000000000000000000000009aaa0
+% 00000000000000000000000000019aaae000000000007000c0001008aaab000000000000000000000000000009d557000000000003803000040429554000000000000000000000000d9540
+% 0000000000000000000000000001b555f000000000007339e0001002555200000000000000000000000000000daaaf00000000000300380006214aaa8000000000000000000000000daaa0
+% 0000000000000000000000000001baa9200000000000760cc0000848aaac000000000000000000000000000009d5490000000000038030000204155580000000000000000000000009d540
+% 00000000000000000000000000013957600000000000740de00006010aa800000000000000000000000000001daabb0000000000030038000100aaaa0000000000000000000000001beaa0
+% 0000000000000000000000000001b54ea000000000007608c000020a5550000000000000000000000000000019aa6500000000000380300000910154000000000000000000000000198a60
+% 0000000000000000000000000001353920000000000073f9e0000100922000000000000000000000000000000989cb00000000000300300000402a880000000000000000000000000d29c0
+% fffffffffffffffffffffffffffffffffffffffffffff040ffffffffffffffffffffffffffffffffffffffffffffffffffffffffff803fffffffffffffffffffffffffffffffffffffffe0
+% fffffffffffffffffffffffffffffffffffffffffffff001ffffffffffffffffffffffffffffffffffffffffffffffffffffffffff003fffffffffffffffffffffffffffffffffffffffe0
+%%EndImage
+%%EndPreview
+save
+countdictstack
+mark
+newpath
+/showpage {} def
+%%EndProlog
+%%Page 1 1
+%%DocumentFonts:
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 90 string def
+
+% define space for color conversions
+/grays 720 string def % space for gray scale line
+/npixls 0 def
+/rgbindx 0 def
+
+% lower left corner
+-53 259 translate
+
+% size of image (on paper, in 1/72inch coords)
+720.00000 274.03200 scale
+
+% dimensions of data
+720 274 1
+
+% mapping matrix
+[720 0 0 -274 0 274]
+
+{currentfile pix readhexstring pop}
+image
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+fffdfffffffffffffffffffffffffbfffffffefeff3fffdfffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f670f070fff8787878393879f9bffbfffffc3e7effffffcfffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f77773f37ff9f33efbf9bb7dfd3ffb7fffff7efeffff3f5fffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f773f7f37ff9fb3efbf9bb39fc7ff839dffe7e7e7e3e9e1fffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f779f0727ff87a7ef83abbbdfe7ff9dd9fff7efeffbfdcdfffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f77cfbf0fff9f8fefbfabbb9fefffbdebffe7e7effbe1dcfffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f67777f2fffbf27efbfa3b3dfe7ff9de7fff7efeffbddddfffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f27273727ff9fb7cf9bb3879be7ff9be7ffe7e7e7fbd9c9fffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+f8f8f8777ff9fb38783b38fc1efff83efffc3f3f1fbe1e1fffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+fffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffff
+aaaaaaaaaaaaaaa4aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafff95555555555
+555555555555555555555555555555555555555555555557ff5555555555555555555555
+555555555555555555555555555555555555
+00000000000000000000000000000000000000000000000000000000007ff80000000000
+000000000000000000000000000000000000000000000003fe0000000000000000000000
+000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000007ff00000000000
+000000000000000000000000000000000000000000000007fe0000000000000000000000
+000000000000000000000000000000000000
+15555555555555555555555555555555555555555555555555555555547ff8aaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa3fe2aaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff1ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc43f8ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7811ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff8ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7819ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7920ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7b91ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc73a0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7c21ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff8ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc73f1ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7818ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f87fa1e1f1fb07ef86180
+001e7e78f8c7f87187fffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff1ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f05723e0f09b1fef92498
+000efc3870c3f820b3fffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7c78ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fdd74ff666d97fcfbae3f
+feecfdf32659feee33fffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7931ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fcf349e72e5b4fcfbaca7
+beedfbf7af5cfe5e07fffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7398ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fdfb41e74e590fc796107
+7ef3fa37af5cff5e07fffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7991ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fdfa5ff75ec97fcf8e37f
+bef3f38f0e5dff5ebbfffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7c38ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fdf8dfe6dc8bff87bed7f
+3ef3f38f5ed9ff5cbbfffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff1ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fdfcdcf4dcb367b7bed73
+7cf7f72e4cd3e65db3fffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7f98ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f87cc1f1c99307b79ed07
+3ef7f070e1c7f04187fffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7f91ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f1fce3f3e3bb1ff7bec8f
+7ef7f9f1e3cff8e39ffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc73f8ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7871ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7f08ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fc60f060bef3fbcf38420
+411fe41c767a3fb61061fffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7c21ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fc20f363aee3fbc711c80
+070fe4c836ba0fb47247fffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc71f0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f98ffb6fa6cffb9e77ddd
+df67e6ebb69ae7b5fb5ffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fbccf861a6d1f1bef059d
+8373c493869af7b41243fffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc4010ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f3c0fa43a681f13ce1d39
+8673d637ae9af7887887fffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f387fb2faabcf17df7c7d
+bf77c6b7aeaa6785f0dffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc4430ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f7affbbf2abdf171c7df9
+9f6fc097aeaacfb5f6dffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc4039ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f72ffa2c28b1e565961f9
+b94f9ad76ca21fa5c258fffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7bb0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f06ff8e1ac83ed0c305f9
+c31fb8c060b33f2413417ffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7399ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fdeffbf7bfdffd9efbdff
+cffffbf9f3fffffe7f6ffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7830ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+ffffffffff7ffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7d30ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f83ce61080f0c61f02d90
+7dcc8374000fbc7ff4107d20fffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7819ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f9cdc47300e0924f00d80
+7ccc81245029b87df471dd27fffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7bf0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fbeb9df377efbb6feed9d
+f88cd94dbce993fdb5f7cd3ffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7819ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f063bc1677e4384fecb1d
+f898530c1ce8927db4104d21fffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7830ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f1f73c70f7e1791fee35d
+f80a42083ce8b03d34e1cd43fffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f3e37df1f7e77a5fecb1d
+fa48c36dfce8953d25f7d56ffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc78b0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f3e979f3f7ef7adfecf09
+fa485b6dccea273c25e7d15ffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7299ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fa0c6587f7ef766fcdaed
+fbe35b648ceb247ccd861968bffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7890ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f85e0c13f7e7066fecaed
+fbe359741ce9a0fecc30d9613ffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7c39ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fdff9e7ff7ff9feffffed
+ffef5f7e7debb3fffef9ff77fffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc4839ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc5ab0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fc00041f1c3efada01c7f
+d82f7c1d90e007fffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7bf9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7f9c77cfe599ed8d81d8bc
+dbefbecdb44f77fffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7bf0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3f3f77dfcfbded8d1dd3fc
+dbe93eed977ff7fffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7819ffff9e5c83
+c183020001fbfc706c081e04c83fc3e7bfdfcfffffffffe7fe7f077051c1bded9959e07e
+c8697cf1b701c7fffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff0ffffdcdcbb
+c0091c0000f3f83728101e3cd09f02673f9dcfffffffffe3fe3f8761c3c0bde9c359f83c
+50e97ee3b7078ffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc5bf9ffffcc9cb9
+debd7fcfee67e3f729f7fcfcdfdfef463f8cefffffffffe7fe7ff377dffe79e94919ffbc
+5be17cebb65fbffffffffffffffffffffff8
+1fff3b01f9f005cc080c07ffffffffc07207ffe40e73f019ce1007fffc4010ffffe39db3
+dcb303dfcf4fe03669123c0ddf1fef443f2cefffffffffe3fe3ff7771fdc7be65a59f3bd
+9ba47ecbb4defffffffffffffffffffffff8
+3fff3b0efbf005c878cc3fffffffffee3261f3c8ccf7ff39d8493ffffc7bf9fffff3bda7
+d1820fcfcf1fe030c830383c1c3fefd93f6c6fffffffffe7fe7f277617c933f65ac9f23d
+9a243e9935d8fffffffffffffffffffffff8
+1fff3b7e73ff3dc9fdedffffffffffcf9279f999e4f7ffb3c1ff3ffffc73f0fffff3bd0f
+c3927fdfdf9fff81c9f3fcfc5cffcfd93f096fffffffffe3fe3f8f70d7e187e65ac9f87d
+986ebe3833e1bffffffffffffffffffffff8
+3fff3a6367ff39d91dcd8fffffffffcf927dfdb3f4f7ffb3d01f3ffffc7bf9fffff3bd3f
+cfbb7ddfcfbfefa7cbf7fdfdddffcfd9bf0d2fffffffffe7fe7fdf79dff7cffffbfffcff
+ddfefffcffe7bffffffffffffffffffffff8
+1fff02030fff3c100c180fffffffffef967dfc33e5e7ffb7d00f3ffffc7810fffff3b9af
+dfbb71dfdfbfe737cbf6fce1dfffcfdfbe698fffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff127f9fff385bfc99ffffffffffcf3271fe67e9f7ffb7dfe73ffffc7ff9fffff781a7
+dfb907dfcf3ff077c9f2fe0ddcff03dfbee1cfffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff7a7d9fff79dbf9d9f7ffffffffee7663fe67c9e7efa793cf3ffffc78b0fffff7cfbf
+dfbd9fdfff7ffcf7ffffff3ffeff3fffbfffdfffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff72789fff79dbc1c9e7ffffffffe4f747fef31c87e332118f7ffffc7299ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff7701bfff79d80dcc0fffffffffe1f31ffcf03c07f030181f3ffffc7290ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff738f3fff7ddc39ec3ffffffffff7ffbffefdff7ffefdff7ffffffc7839fffff30601
+60bc7bbff3e4060cf9fbc703f3c607fbf907ffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7ff0fffff3384e
+479971bff2f494fcf9fb973f3b967ff3bd31ffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffffffffffffffffffffffffffe7c7f1ef7ffd473ff7efcf1fffc7f79ffffe3bbce
+5fbbf13ff277bdfdf9f33f7f3b3efff19d39ffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fffe1efc1fc014fb8181ffffffffff830301e679f0060ff3cc000fffc7830ffffeb23ce
+48b3e53ff2779c0df9f323033b7c0ff19d7cffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fffc04fc078024738718ffffffffff1b3d3fc673f13ce7e398fbe7ffc7299ffffeb87ce
+41b7ed3ff273b83dfbf2410f3b7c1fe59d7dffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff8e4fce3fde4733f9cfffffffffc7f397fc667ff39f7e319ffe7ffc7890ffffe327ce
+4f27e13ff6379df9fbf27d7f5a7cffe18d39ffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff9f4fdfbf9e4632199fffffffffc033a03960fff33f7e9180f8fffc79b9ffffc137ce
+5fa7a57df297bdf9f3f6f97d4af8fbe5a533ffffffffffe7fe7fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff3f4fcfa0de50a0f83fffffffffff9063f966fff33f7ecc9fc3fffc7ab0ffffdd33ce
+5f264c31f6c7bdc18312e37062e6c3ccb127ffffffffffe3fe3ffffffffff3ffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff3e5fcf329e59b7f93fffffffffffd1e7f8267ff33e7ecc9feffffc7039ffffdd3bce
+5f30dc03f2e7bc0c18320f06730e0fecb98fffffffffffe7fe7ffffffffff3ffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff7c5fce7f9e59b7eb9fffffffffcf93e7c3277ff77cfeec9e3ffffc7fb0fffffd7bfe
+ffb9ff9ff7f7be7cfcff3f9ffb1f3ffefdffffffffffffe3fe3ffffffffff7ffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fff38de08ff9e5f97899bffffffffe237f617a73ff730fefc987ffffc7f99ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7ffffffffff7ffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fff01c0e1ff9e5f9819cbfffffffff073f037afbff783fefec1e7fffc7830ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3ffffffffff7ffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fffefe7f7fffeffddfffffffffffffffffffffffffffffffffffffffc7ff9fffff833a4
+000fc001ddede9de7c00e81fe1ce730201038403ffffffe7fe7ffffffffff7ffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7f90ffffe3b3a4
+9cff9f9dccedc9de7c9cc9ffc58c733a0e7f149fffffffe3fe3ffffffffff7fffffffbfc
+7f1dfbf3bf70fe3c7ffee7fff7fffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7f99ffffe797a7
+9dffdf9d8ce59bccff9cdbff9f8ce33bcefe7f9fffffffe7fe7fffffffffe7fffffffbf0
+180cf3019e4070003f7c81ce73fffffffff8
+1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc7bf0ffffcfc7a7
+bc0f91b38ce43be9ff9dd81f018c6b33ce04079fffffffe3fe3ffffffffff7fffffffbf3
+d3f8e63f9c6f73f39f3d9cce77fffffffff8
+3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffc70f9ffffdd87a7
+983fc183ac643bf3ff9c107f80a26907ce1e039fffffffe7fe7fffffffffe7fffffff3fb
+93f8c7778cec67f39f993ede67fffffffff8
+1fffffffffffffffffffffffffffffffffffbffffffffffffffffffffc7e10ffffdc27a7
+bdff9f930d2593f3ff9cdbfffeb24127defff99fffffffe3fe3fffffffffeffffffff3f0
+301a1603486060323fc67e9eeffffffffff8
+3fffffffffffffffffffffffffffffffffff9ffffffffffffffffffffc78f9ffffde6f27
+bde79fbb25add3c7ff9ddbcfbcb64d77defaf39fffffffe7fe7fffffffffeffffffff3f0
+63fb127f626f67f07fe67c9ecffffffffff8
+1fffffffffffffffffffffffffffffffffffdffffffffffffffffffffc78f0ffffc06627
+9dc7dfbb658dcb17ff9ddb8f98bf5d73ce62639fffffffe3fe3fffffffffeffffffff3f3
+33fb327f626fa7f37feefc9ecffffffffff8
+3fffffffffffffffffffffffffffffffffffdffffffffffffffffffffc7e19ffffe16027
+bc1fdfb975c9e837ff9dd83fc1bf3d3bdf07079fffffffe7fe7fffffffffeffffffff3f3
+b7cbb278766f27873fcef99cfffffffffff8
+1fffffffffffffffffffffffffffffffffffdffffffffffffffffffffc7830ffffff7bef
+be7fdfbdf7effcf7ffffdcffe7ff7d7bdf9f9fffffffffe3fe3fffffffffeffffffff3f3
+930bf2617f686613bfce6398dffffffffff8
+3fffffffffffffffffffffffffffffffffffcffffffffffffffffffffc73f9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffcffffffff3f3
+d87bfb0f7f63f0f79fdf0fc29ffffffffff8
+1ffffffff3ffffffffffffffffffffffffffeffffffffffffffffffffc78f0fffffdfffe
+7fbd7f7fffb1ffffe79fcfffffffffffffffffffffffffe3fe3fffffffffdfffffffffff
+fffffffffffffffffffffffffffffffffff8
+3ffffffff7ffffffffffffffffffffffffffeffffffffffffffffffffc7e19fffff06f60
+3f981c1dcbb07f3a04040fffffffffffffffffffffffffe7fe7fffffffffdfffffffffff
+fffffffffffffffffffffffffffffffffff8
+1ffffffff7ffffffffffffffffffffffffffeffffffffffffffffffffc7c30fffff32767
+ff19d8cddb961f3a7ef4ffffffffffffffffffffffffffe3fe3fffffffffdfffffffffff
+ffffffffffc39fdf87dffffffffffffffff8
+3ffffffff7fffffffffffffffffffffffffff7fffffffffffffffffffc71f9ffffe7a727
+ff1dd9e9cb939f3afee5ffffffffffffffffffffffffffe7fe7fffffffffdfffffffffec
+3ce581c07e019fc8039f3ffffffffffffff8
+1ffffffff7fffffffffffffffffffffffffffffffffffffffffffffffc7e30ffffcf9360
+7f5913ebd197df3606c81fffffffffffffffffffffffffe3fe3fffffffffdffffffff3c8
+1ce48cc7fc3f9fc8071f7ffffffffffffff8
+3ffffffff7fffffffffffffffffffffffffff7fffffffffffffffffffc7839ffffcfa327
+ff4c37ebd0d79f047e18ffffffffffffffffffffffffffe7fe7fffffffff9ffffffff333
+cdeedc9ffee79fcf8f0f7ffffffffffffff8
+1ffffffff7fffffffffffffffffffffffffff7fffffffffffffffffffc73f0ffffdf29af
+ff0937cbd2933f36fec9ffffffffffffffffffffffffffe3fe3fffffffff9ffffffffb37
+e9eed880fc039f9f3f4e7ffffffffffffff8
+3ffffffff7fffffffffffffffffffffffffff7fffffffffffffffffffc73f9ffffde6c6f
+be4b979bd6163f76f2e9e7ffffffffffffffffffffffffe7fe7fffffffffbffffffffc67
+cbef8307fc0fbf9e3e6efffffffffffffff8
+1ffffffff7fffffffffffffffffffffffffff3fffffffffffffffffffc7830ffffcc6e66
+3eeb931b13107f76e2edc5ffffffffffffffffffffffffe3fe3fffffffffbffffffffcef
+cbef8b9ffcff3f8e7e0efffffffffffffff8
+3fffffffe7fffffffffffffffffffffffffffbfffffffffffffffffffc7e19ffffc1ee70
+7eebd07817b9ff760ee41dffffffffffffffffffffffffe7fe7fffffffffbffffffffcef
+9bef9dbf7cf9be5cfc0efffffffffffffff8
+1fffffffe7fffffffffffffffffffffffffffbfffffffffffffffffffc71f0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffbffffffffde7
+390f9c987c41909800e7fffffffffffffff8
+3fffffffeffffffffffffffffffffffffffffbfffffffffffffffffffc7e39ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffbffffffffdf0
+780f9cc1fe03019804e4fffffffffffffff8
+1fffffffeffffffffffffffffffffffffffff9fffffffffffffffffffc7e10ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffbffffffffff9
+fefffeefff1f87d8ffe5fffffffffffffff8
+3fffffffeffffffffffffffffffffffffffffdfffffffffffffffffffc70f9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffbfffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fffffffeffffffffffffffffffffffffffffdfffffffffffffffffffc43f0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffffffffffffffff
+fffffffffffffffffffffffffffffffffff8
+3fffffffeffffffffffffffffffffffffffffdfffffffffffffffffffc7c19ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffffbfffffffffff
+fffffffffffffffffffffffffffffffffff8
+1fffffffeffffffffffffffffffffffffffffcfffffffffffffffffffc7fb0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffff7fffffffffff
+ffffff9ffffffffffffffffffffffffffff8
+3fffffffcffffffffffffffffffffffffffffefffffffffffffffffffc43f9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffff7fffffffffff
+ffffffdffffffffffffffffffffffffffff8
+1fffffffcffffffffffffffffffffffffffffefffffffffffffffffffc7810ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffff7fffffffffff
+ffffffcffffffffffffffffffffffffffff8
+3fffffffdffffffffffffffffffffffffffffffffffffffffffffffffc7ff9ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffff7fffffffffff
+ffffffeffffffffffffffffffffffffffff8
+1fffffffdffffffffffffffffffffffffffffffffffffffffffffffffc73b0ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe3fe3fffffffff7fffffffffff
+fffffff7fffffffffffffffffffffffffff8
+3fffffffdffffffffffffffffffffffffffffffffffffffffffffffffc7b99ffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffe7fe7fffffffff7fffffffffff
+fffffff7fffffffffffffffffffffffffff8
+1fffffffdffffffffffffffffffffffffffffffc1ffffffffffffffffc7ef0ffffffffff
+ffffffffffffffffffffffffffffe0ffffffffffffffffe3fe3ffffffffe7fffffffffff
+fffffff3ffffe0fffffffffffffffffffff8
+3fffffffdffffffffffffffffffffffffffffff001fffffffffffffffc7839ffffffffe7
+ffffffffffffffffffffffffffff800fffffffffffffffe7fe7ffffffffe7fffffffffff
+fffffffbffff800ffffffffffffffffffff8
+1fffffffdfffffffffffffffffffffffffffffe7fc7ffffffffffffffc7390ffffffffe7
+ffffffffffffffffffffffffffff3fe3ffffffffffffffe3fe3ffffffffeffffffffffff
+fffffff9ffff3fe3fffffffffffffffffff8
+3fffffff9fffffffffffffffffffffffffffff8fff3ffffffffffffffc7b99ffffffffef
+fffffffffffffffffffffffffffc7ff9ffffffffffffffe7fe7ffffffffeffffffffffff
+fffffffdfffc7ff9fffffffffffffffffff8
+1fffffff9fffffffffffffffffffffffffffff3fffcffffffffffffffc7800ffffffffef
+fffffffffffffffffffffffffff9fffe7fffffffffffffe3fe3ffffffffeffffffffffff
+fffffffefffbfffe7ffffffffffffffffff8
+3fffffffbffffffffffffffffffffffffffffe7fffe7fffffffffffffc7ff1ffffffffef
+fffffffffffffffffffffffffff3ffff3fffffffffffffe7fe7ffffffffeffffffffffff
+fffffffe7ff3ffff3ffffffffffffffffff8
+1fffffffbffffffffffffffffffffffffffffe7ffff3fffffffffffffc7bd8ffffffffef
+fffffffffffffffffffffffffff7ffff9fffffffffffffe3fe3ffffffffeffffffffffff
+ffffffff7ff7ffffbffffffffffffffffff8
+3fffffffbffffffffffffffffffffffffffffe7ffff9fffffffffffffc6011ffffffffef
+fffffffffffffffffffffffffff7ffffdfffffffffffffe7fe7ffffffffcffffffffffff
+ffffffff7fe7ffff9ffffffffffffffffff8
+1fffffffbffffffffffffffffffffffffffffefefffdfffffffffffffc6038ffffffffcf
+ffffffffffffffffffffffffffe7f7ffcfffffffffffffe3fe3ffffffffcffffffffffff
+ffffffffbfe7f7ffcffffffffffffffffff8
+3fffffffbffffffffffffffffffffffffffffce03ffdfffffffffffffc7bd1ffffffffdf
+ffffffffffffffffffffffffffe711ffefffffffffffffe7fe7ffffffffdffffffffffff
+ffffffffbfef13ffeffffffffffffffffff8
+1fffffffbffffffffffffffffffffffffffffcc9bffefffffffffffffc6018ffffffffdf
+ffffffffffffffffffffffffffe44dffe7ffffffffffffe3fe3ffffffffdffffffffffff
+ffffffffdfec4dffe7fffffffffffffffff8
+3fffffffbffffffffffffffffffffffffffffcbccffefffffffffffffc6031ffffffffdf
+ffffffffffffffffffffffffffe9e6fff7ffffffffffffe7fe7ffffffffdffffffffffff
+ffffffffdfe9e4fff7fffffffffffffffff8
+1fffffff3ffffffffffffffffffffffffffffe3eeffe7ffffffffffffc7ff8ffffffffdf
+fffffffffffffffffffffffffff3f67ff3ffffffffffffe3fe3ffffffffdffffffffffff
+ffffffffefe3f6fff3fffffffffffffffff8
+3fffffff3ffffffffffffffffffffffffffffe7e6fff3ffffffffffffc7c31ffffffffdf
+fffffffffffffffffffffffffff3f37ff9ffffffffffffe7fe7ffffffffdffffffffffff
+ffffffffefe7f27ffbfffffffffffffffff8
+1fffffff7ffffffffffffffffffffffffffffefe77ff9ffffffffffffc72b8ffffffff9f
+fffffffffffffffffffffffffff7fb7ffcffffffffffffe3fe3ffffffff9ffffffffffff
+fffffffff7e7fb7ffdfffffffffffffffff8
+3fffffff7ffffffffffffffffffffffffffffeff77ffdffffffffffffc7bf1ffffffffbf
+fffffffffffffffffffffffffff7fb3ffeffffffffffffe7fe7ffffffff9ffffffffffff
+fffffffff3effb3ffcfffffffffffffffff8
+1fffffff7fffffffffffffffffffffffffffffff6cffdffffffffffffc4038ffffffffbf
+fffffffffffffffffffffffffffffb67feffffffffffffe3fe3ffffffffbffffffffffff
+fffffffffbfffb67fdfffffffffffffffff8
+3fffffff7fffffffffffffffffffffffffffffff683fdffffffffffffc4011ffffffffbf
+fffffffffffffffffffffffffffffb41feffffffffffffe7fe7ffffffffbffffffffffff
+fffffffff9fffb41fcfffffffffffffffff8
+1fffffff7fffffffffffffffffffffffffffffff711fdffffffffffffc7ff8ffffffffbf
+fffffffffffffffffffffffffffffb0cfeffffffffffffe3fe3ffffffffbffffffffffff
+fffffffffffffb14fcfffffffffffffffff8
+3fffffff7fffffffffffffffffffffffffffffff23cfdffffffffffffc7ff1ffffffffbf
+fffffffffffffffffffffffffffff91e7cffffffffffffe7fe7ffffffffbffffffffffff
+fffffffffffffe1e7dfffffffffffffffff8
+1fffffff7fffffffffffffffffffffffffffffbf93a7dffffffffffffc7ff8ffffffffbf
+fffffffffffffffffffffffffffdfc9d7effffffffffffe3fe3ffffffffbffffffffffff
+fffffffffff9f99d7cfffffffffffffffff8
+3fffffff7fffffffffffffffffffffffffffff9e3fb79ffffffffffffc7ff1ffffffffbf
+fffffffffffffffffffffffffffcf1fcbcffffffffffffe7fe7ffffffff3ffffffffffff
+fffffffffffcf3fdfdfffffffffffffffff8
+1ffffffeffffffffffffffffffffffffffffff9cbf279ffffffffffffc7ff8ffffffff7f
+fffffffffffffffffffffffffffce5fb3cffffffffffffe3fe3ffffffff3ffffffffffff
+fffffffffffce7f93dfffffffffffffffff8
+3ffffffeffffffffffffffffffffffffffffff997fe3bffffffffffffc7ff1ffffffff7f
+fffffffffffffffffffffffffff8cbff3dffffffffffffe7fe7ffffffff7ffffffffffff
+fffffffffffccbff3dfffffffffffffffff8
+1ffffffefffffffffffffffffffffffffffffe027f1b9ffffffffffffc7ff8ffffffff7f
+fffffffffffffffffffffffffff013f8ddffffffffffffe3fe3ffffffff7ffffffffffff
+ffffffffffe013f89dfffffffffffffffff8
+3ffffffefffffffffffffffffffffffffffffe01fff9bffffffffffffc7ff1ffffffff7f
+fffffffffffffffffffffffffff20fffddffffffffffffe7fe7ffffffff7ffffffffffff
+ffffffffffe24fffddfffffffffffffffff8
+1ffffffefffffffffffffffffffffffffffffebffff9dffffffffffffc7ff8ffffffff7f
+fffffffffffffffffffffffffff1ffffdeffffffffffffe3fe3ffffffff7ffffffffffff
+fffffffffff1ffffddfffffffffffffffff8
+3ffffffefffffffffffffffffffffffffffffcbffffddffffffffffffc7ff1ffffffff7f
+ffffffffffffffffffffffffffe5ffffceffffffffffffe7fe7ffffffff7ffffffffffff
+ffffffffffedffffccfffffffffffffffff8
+1ffffffefffffffffffffffffffffffffffffaa1fffdcffffffffffffc7ff8ffffffff7f
+ffffffffffffffffffffffffff990fffee7fffffffffffe3fe3ffffffff7ffffffffffff
+ffffffffff910fffee7ffffffffffffffff8
+3ffffffefffffffffffffffffffffffffffff20c7ffceffffffffffffc7ff1ffffffff7f
+ffffffffffffffffffffffffff1263ffe77fffffffffffe7fe7ffffffff7ffffffffffff
+ffffffffff1063ffe77ffffffffffffffff8
+1ffffffeffffffffffffffffffffffffffffefdf3ffef7fffffffffffc7ff8fffffffe7f
+ffffffffffffffffffffffffff7ef9ffe7bfffffffffffe3fe3fffffffffffffffffffff
+fffffffffe7ef1ffe7bffffffffffffffff8
+3ffffffeffffffffffffffffffffffffffffef9f8ffe7bfffffffffffc7ff1fffffffeff
+ffffffffffffffffffffffffff7cfcfff3dfffffffffffe7fe7ffffffff7ffffffffffff
+ffffffffff7ce4fff3dffffffffffffffff8
+1ffffffcfffffffffffffffffffffffffffff02bcffe79fffffffffffc7ff8fffffffeff
+ffffffffffffffffffffffffff037efff3cfffffffffffe3fe3fffffffefffffffffffff
+ffffffffff0306fff3dffffffffffffffff8
+3ffffffeffffffffffffffffffffffffffffffe1effe39fffffffffffc7ff1fffffffeff
+ffffffffffffffffffffffffffff3efff1cfffffffffffe7fe7fffffffefffffffffffff
+ffffffffffff02fff3cffffffffffffffff8
+1ffffffcfffffffffffffffffffffffffffffff1efffb9fffffffffffc7ff8fffffffeff
+ffffffffffffffffffffffffffffbf7ffccfffffffffffe3fe3fffffffefffffffffffff
+ffffffffffff867ffdcffffffffffffffff8
+3ffffffdfffffffffffffffffffffffffffffff1e7ff9cfffffffffffc7ff1fffffffeff
+ffffffffffffffffffffffffffff9f3ffce7ffffffffffe7fe7fffffffefffffffffffff
+ffffffffffff8f3ffceffffffffffffffff8
+1ffffffdfffffffffffffffffffffffffffffff7e3ff0efffffffffffc7ff8fffffffcff
+ffffffffffffffffffffffffffffbf1ff867ffffffffffe3fe3fffffffefffffffffffff
+ffffffffffff7e1ff86ffffffffffffffff8
+3ffffffdffffffffffffffffffffffffffffffe7ebff4efffffffffffc7ff1fffffffcff
+ffffffffffffffffffffffffffff3edffb77ffffffffffe7fe7fffffffefffffffffffff
+ffffffffffff3edffa67fffffffffffffff8
+1ffffffdffffffffffffffffffffffffffffffe7fbfe6f7ffffffffffc7ff8fffffffdff
+ffffffffffffffffffffffffffff3fdff373ffffffffffe3fe3fffffffcfffffffffffff
+ffffffffffff3fdff273fffffffffffffff8
+3ffffffdffffffffffffffffffffffffffffffe7fbfeef7ffffffffffc7ff1fffffffdff
+ffffffffffffffffffffffffffff3fdfe77bffffffffffe7fe7fffffffcfffffffffffff
+ffffffffffff3fdfe773fffffffffffffff8
+1ffffffdffffffffffffffffffffffffffffffe7f9fee73ffffffffffc4038fffffffdff
+ffffffffffffffffffffffffffff3fcfe739ffffffffffe3fe3fffffffdfffffffffffff
+ffffffffffff7fdfe639fffffffffffffff8
+3ffffff9fffffffffffffffffffffffffffffff7fdfdc3bffffffffffc7bb1fffffffdff
+ffffffffffffffffffffffffffffbfefee9dffffffffffe7fe7fffffffdfffffffffffff
+ffffffffffff3fefee9dfffffffffffffff8
+1ffffff9fffffffffffffffffffffffffffffff3fdf198dffffffffffc7398fffffffdff
+ffffffffffffffffffffffffffffbfef9cc4ffffffffffe3fe3fffffffdfffffffffffff
+ffffffffffffbfef9cccfffffffffffffff8
+3ffffffbfffffffffffffffffffffffffffffff3f983924ffffffffffc7831fffffff9ff
+ffffffffffffffffffffffffffff9fcc1c927fffffffffe7fe7fffffffdfffffffffffff
+ffffffffffffbfd81c827ffffffffffffff8
+1ffffffbfffffffffffffffffffffffffffffff9f82f2167fffffffffc7cf8fffffff9ff
+ffffffffffffffffffffffffffffdfc1791b3fffffffffe3fe3fffffffdfffffffffffff
+ffffffffffff9fc279133ffffffffffffff8
+3ffffffbfffffffffffffffffffffffffffffff9fbfe2773fffffffffc7f91fffffffbff
+ffffffffffffffffffffffffffffdfdff123bfffffffffe7fe7fffffff9fffffffffffff
+ffffffffffff9fdff333bffffffffffffff8
+1ffffffbfffffffffffffffffffffffffffffffdf3fcec7bfffffffffc7038fffffffbff
+ffffffffffffffffffffffffffffef9fe653dfffffffffe3fe3fffffff9fffffffffffff
+ffffffffffffef9fe6539ffffffffffffff8
+3ffffffbfffffffffffffffffffffffffffffff8e7f14579fffffffffc7291fffffffbff
+ffffffffffffffffffffffffffffc73f8e6bdfffffffffe7fe7fffffffbfffffffffffff
+ffffffffffffc73f8c73dffffffffffffff8
+1ffffffbfffffffffffffffffffffffffffffffbe7c2157dfffffffffc7a18fffffffbff
+ffffffffffffffffffffffffffffdf3e30abcfffffffffe3fe3fffffffbfffffffffffff
+ffffffffffff9f7e308bcffffffffffffff8
+3ffffff3fffffffffffffffffffffffffffffffbef1c4d3dfffffffffc7f71fffffff3ff
+ffffffffffffffffffffffffffffdf78a269cfffffffffe7fe7fffffffbfffffffffffff
+ffffffffffff9f78a279cffffffffffffff8
+1ffffff3fffffffffffffffffffffffffffffff3e82902bdfffffffffc7ff8fffffff3ff
+ffffffffffffffffffffffffffff9f414829cfffffffffe3fe3fffffffbfffffffffffff
+ffff87ffffffbe414829cffffffffffffff8
+3ffffff7fffffffffffffffffffffffffffffff7c1d27289fffffffffc4831fffffff7ff
+ffffffffffffffffffffffffffffbe0e8594dfffffffffe7fe7fffffffbfffffffffffff
+ffffbfffffffbc169394dffffffffffffff8
+1ffffff7fffffffffffffffffffffffffffffff786b09343fffffffffc7ff8fffffff7ff
+ffffffffffffffffffffffffffffbc298a9a1fffffffffe3fe3fffffff3fffffffffffff
+ffff7fffffff3c3524961ffffffffffffff8
+3ffffff7ffffffffffffffffffffffffffffffe402a1a959fffffffffc4031fffffff7ff
+ffffffffffffffffffffffffffff241b0a8a5fffffffffe7fe7fffffff3fffffffffffff
+fffef3ffffffe00b0d4adffffffffffffff8
+1ffffff7ffffffffffffffffffffffffffffffee0148a94bfffffffffc4018fffffff7ff
+ffffffffffffffffffffffffffff6014554a7fffffffffe3fe3fffffff7fffffffffffff
+ffffe3ffffff7014554adffffffffffffff8
+3ffffff7ffffffffffffffffffffffffffffffef8299a94ffffffffffc7ff1fffffff7ff
+ffffffffffffffffffffffffffff7414954affffffffffe7fe7fffffff7fffffffffffff
+ffffdfffffff6c0c954afffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffed829254dffffffffffc4038ffffffe7ff
+ffffffffffffffffffffffffffff6c08aaa67fffffffffe3fe3fffffff7fffffffffffff
+fffffff3ffff6c192aa4fffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffe50123544ffffffffffc7ff1ffffffefff
+ffffffffffffffffffffffffffff08192aa27fffffffffe7fe7fffffff7fffffffffffff
+fffff001ffff0c092aa67ffffffffffffff8
+1ffffffffffffffffffffffffffffffffffffff38336aaaffffffffffc4038ffffffefff
+ffffffffffffffffffffffffffff9c0995557fffffffffe3fe3fffffffffffffffffffff
+ffffe13c7fff98192aa4fffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff8124aa67fffffffffc4011ffffffefff
+fffffffffffffffffffffffffffffc132aa53fffffffffe7fe7fffffffffffffffffffff
+ffff8fb93ffff0132aa37ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff8245aa27fffffffffc7ff8ffffffefff
+fffffffffffffffffffffffffffffc1235553fffffffffe3fe3fffffffffffffffffffff
+ffff6f999fffc01255567ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff02652a6ffffffffffc7ff1ffffffefff
+fffffffffffffffffffffffffffff81115517fffffffffe7fe7fffffffffffffffffffff
+fff8cd9a4fffc81115517ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff8222aa47fffffffffc7ff8ffffffefff
+fffffffffffffffffffffffffffffc1335533fffffffffe3fe3fffffffffffffffffffff
+fff39ddad3ff381735527ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff82655527fffffffffc78f1ffffffefff
+fffffffffffffffffffffffffffffc1625513fffffffffe7fe7fffffffffffffffffffff
+ffee499329fe480525537ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff02455527fffffffffc4038ffffffffff
+fffffffffffffffffffffffffffff8052d533fffffffffe3fe3fffffffffffffffffffff
+ffcce3d2d47cd8052d513ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff02a55537fffffffffc4f91ffffffefff
+fffffffffffffffffffffffffffff81532aabfffffffffe7fe7fffffffffffffffffffff
+ffe1c7b15679500552ab3ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff00a55527fffffffffc4238ffffffdfff
+fffffffffffffffffffffffffffff8052d52bfffffffffe3fe3fffffffffffffffffffff
+fff59b215532a80535517ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff00a55517fffffffffc78f1ffffffdfff
+fffffffffffffffffffffffffffff80512a93fffffffffe7fe7fffffffffffffffffffff
+fffe3b76aac6a8052aa93ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff00a55537fffffffffc7df8ffffffffff
+fffffffffffffffffffffffffffff8052aaabfffffffffe3fe3fffffffffffffffffffff
+ffffb8e55544a80d2aab3ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff01a55527fffffffffc6031ffffffffff
+fffffffffffffffffffffffffffff80d2aa93fffffffffe7fe7fffffffffffffffffffff
+ffffb1e5554aa80555527ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff00a55517fffffffffc4f98ffffffffff
+fffffffffffffffffffffffffffff8013553bfffffffffe3fe3fffffffffffffffffffff
+ffff87f35546a80d55513ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff02a55567fffffffffc4211ffffffffff
+fffffffffffffffffffffffffffff81d15523fffffffffe7fe7fffffffffffffffffffff
+fffffff8d54558192ab33ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff02a6aa57fffffffffc7878ffffffffff
+fffffffffffffffffffffffffffff8153551bfffffffffe3fe3fffffffffffffffffffff
+fffffffc2a8aa01515517ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff02a55557fffffffffc7ff1ffffffffff
+fffffffffffffffffffffffffffff81515533fffffffffe7fe7fffffffffffffffffffff
+ffffffff1505481535533ffffffffffffff8
+1fffffffffffffffffffffffffffffffffffffff01455527fffffffffc6078ffffffffff
+fffffffffffffffffffffffffffff8153552bfffffffffe3fe3fffffffffffffffffffff
+ffffffffcd3a981515523ffffffffffffff8
+3fffffffffffffffffffffffffffffffffffffff02a2aa67fffffffffc4f11ffffffffff
+fffffffffffffffffffffffffffff81515513fffffffffe7fe7fffffffffffffffffffff
+ffffffffe3a5981535537ffffffffffffff8
+1fffc000bfffffffffffffffffffffffffffffff03555527fffffffffc4f98fffe0005ff
+fffffffffffffffffffffffffffff80a95533fffffffffe3fe3fff80017fffffffffffff
+ffff9ffff075381525527ffffffffffffff8
+3ffe0bffa3ffffffffffffffffffffffffffffff02a2aa6ffffffffffc6071fff05ffd1f
+fffffffffffffffffffffffffffff81535527fffffffffe7fe7ffc17ff47ffffffffffff
+ffffc1fffe0c781515517ffffffffffffff8
+1ffef77ff9ffffffffffffffffffffffffffffff01655527fffffffffc7ff8ffe7fbffcf
+fffffffffffffffffffffffffffff80d25533fffffffffe3fe3ffdeefff3ffffffffffff
+ffffffffff80f81575537ffffffffffffff8
+3ffcadfffe7fffffffffffffffffffffffffffff02a6aa27fffffffffc6191ffe42ffff3
+fffffffffffffffffffffffffffff8152d513fffffffffe7fe7ff95bfffcffffffffffff
+ffffbffffff3f81515527ffffffffffffff8
+1ff9bbbfff3fffffffffffffffffffffffffffff02a55667fffffffffc4cb8ffcfdbfffb
+fffffffffffffffffffffffffffff81535557fffffffffe3fe3ff3777ffe7fffffffffff
+ffffc0fffffff8152aa57ffffffffffffff8
+3ff80effffbfffffffffffffffffffe3ffffffff01a2aa2ffffffffffc5e11ffc07ffff9
+fffffffffffffffffffffffffffff80d2aa53fffffffffe7fe7ff01dffff7fffffffffff
+fffff1fffffff80d55527ffffffffffffff8
+1ff283ffffbfffffffffffffffffffefffffffff0126aa67fffffffffc6718ff941bfffd
+fffffffffffffffffffffffffffff80915513fffffffffe3fe3fe507ffff7fffffffffff
+fffffffffffff80955557ffffffffffffff8
+3ff17bffff3fffffffffffffffffffd9ffffffff00a55527fffffffffc7ff1ffabdffffc
+fffffffffffffffffffffffffffff80535573fffffffffe7fe7fe2f7fffe7fffffffffff
+fffffffffffff81515557ffffffffffffff8
+1ff7597fff1fffffffffffffffffffdbffffffff01a5552ffffffffffc7ff8ffaacffffa
+fffffffffffffffffffffffffffff80d25517fffffffffe3fe3feeb37ffe3fffffffffff
+fffffffffffff80d6aa27ffffffffffffff8
+3ff4d9ffff5ffffffffffffffffffffbfffffffe01255527fffffffffc7ff1ff96cffffa
+fffffffffffffffffffffffffffff80a2d553fffffffffe7fe7fe9b3fffebfffffffffff
+fffffffffffff8092aa97ffffffffffffff8
+1fe6bdffff5ffffffffffffffffffff7fffffffe01a6aa67fffffffffc7ff8ff35effffa
+fffffffffffffffffffffffffffff80ab5513fffffffffe3fe3fcd7bfffebfffffffffff
+fffffffffffff81535537ffffffffffffff8
+3ff2adfffe4ffffffffffffffffffffffbfffff401505527fffffffffc7019ff956ffff2
+fffffffffffffffffffffffffffff80502ab3fffffffffe7fe7feaabfffc9fffffffffff
+fffffffffffff80a82aa7ffffffffffffff8
+1fe6dcf101dffffffffffffffffffffc00907c0100a1d527fffffffffc47c0ffb6e78806
+7ffffffffffffffffffffffffffff80d0d513fffffffffe3fe3fcaf9e203bfffffffffff
+fffffffffffff80d0d513ffffffffffffff8
+3ff4b604bfdffffffffffffffffffff9f62400b301a05557fffffffffc7ff1ff15b023fe
+fffffffffffffffffffffffffffff80502aabfffffffffe7fe7fe55c097fbfffffffffff
+fffffffffffff80502ab7ffffffffffffff8
+1ff37fffffeffffffffffffffffffffbef33b5a901535533fffffffffc7b38ffb6fffffe
+fffffffffffffffffffffffffffff80d9552bfffffffffe3fe3fedbfffffdfffffffffff
+fffffffffffff80a95513ffffffffffffff8
+3fe6d7ffffdffffffffffffffffffff805a4aa5501515553fffffffffc7391ff2ddffffe
+7ffffffffffffffffffffffffffffc051aaabfffffffffe7fe7fcb77ffffbfffffffffff
+fffffffffffffc0d1aaabffffffffffffff8
+1ff4bfffffcffffffffffffffffffffeed25555500a15517fffffffffc7b98ffab7ffffe
+fffffffffffffffffffffffffffffc0a85533fffffffffe3fe3feadfffff9fffffffffff
+fffffffffffffc0a85533ffffffffffffff8
+3ff5dbfcffdffffffffffffffffffffec975555501a4aa53fffffffffc7831ff95ffe7fe
+fffffffffffffffffffffffffffff8052d549fffffffffe7fe7fe57ff9ffbfffffffffff
+fffffffffffff8056d54bffffffffffffff8
+1ff2bffcffdffffffffffffffffffffe0366aaab00a75553fffffffffc7ff8ffb7bfd7fe
+fffffffffffffffffffffffffffffc053555bfffffffffe3fe3fcdeff9ffbfffffffffff
+fffffffffffffc0a29529ffffffffffffff8
+3fe577f8ffdffffffffffffffffffffeff62aaaa80a4aa6bfffffffffc4fe1ff2affe7fe
+fffffffffffffffffffffffffffffc064aa51fffffffffe7fe7fcabff1ffbfffffffffff
+fffffffffffffc0d6b529ffffffffffffff8
+1fe5dffdffdffffffffffffffffffffe4f66aaaa80aaaa53fffffffffc6018ff17bfeffe
+fffffffffffffffffffffffffffffc053552bfffffffffe3fe3fd5effbffbfffffffffff
+fffffffffffffc052a52bffffffffffffff8
+3feabfffffdfffffffffffffffffffff1f7557aa804aaa2bfffffffffc7ff1ff3afffffe
+fffffffffffffffffffffffffffffc0265529fffffffffe7fe7fcabfffffbfffffffffff
+fffffffffffffc0a55a69ffffffffffffff8
+1fe377ffffdfffffffffffffffffffffc102b03581caaa6bfffffffffc7ff8ff57fffffe
+fffffffffffffffffffffffffffffc0e4d56bfffffffffe3fe3fcdffffffbfffffffffff
+fffffffffffffc0a55529ffffffffffffff8
+3fe6ddfffffffffffffffffffffffffffff68100004d5653fffffffffc7ff1ff2d6ffffc
+fffffffffffffffffffffffffffffc0a59529fffffffffe7fe7fcb5bffffffffffffffff
+fffffffffffffc0a2aa69ffffffffffffff8
+1feafbffffdffffffffffffffffffffffff01fff818554abfffffffffc7ff8ff2b9ffffe
+fffffffffffffffffffffffffffffc0466a6bfffffffffe3fe3fcaf7ffffbfffffffffff
+fffffffffffff80c6aa4bffffffffffffff8
+3fe5b3fffffffffffffffffffffffffffff9ffff009554d3fffffffffc7b91ff2fbffffe
+fffffffffffffffffffffffffffff80c2aa49fffffffffe7fe7fcde7ffffffffffffffff
+fffffffffffffc044aa59ffffffffffffff8
+1feb77ffffdfffffffffffffffffffffffffffff818d54abfffffffffc6018ff35bffffe
+fffffffffffffffffffffffffffffc085552bfffffffffe3fe3fcb6fffffbfffffffffff
+fffffffffffffc0c6aaa9ffffffffffffff8
+3fe2f7ffffffffffffffffffffffffff9fffffff8112aaabfffffffffc7bf1ff2fbffffe
+fffffffffffffffffffffffffffffc0caaa69fffffffffe7fe7fd6efffffffffffffffff
+fffffffffffff814aaaabffffffffffffff8
+1fedb7ffffdfffffffffffffffffffffe1ffffff01955453fffffffffc7818ff5abffffe
+fffffffffffffffffffffffffffff804d552bfffffffffe3fe3fcdefffffbfffffffffff
+fffffffffffff804aaa29ffffffffffffff8
+3fe6f7ffffffffffffffffffffffffffffffffff011aaaabfffffffffc73f1ff37bffffe
+fffffffffffffffffffffffffffff80caaa69fffffffffe7fe7fcb6fffffffffffffffff
+fffffffffffff80caaa69ffffffffffffff8
+1fe5b7ffffdfffffffffffffffffffff9cffffff009554d3fffffffffc7bf8ff2dbffffc
+fffffffffffffffffffffffffffff808aaa4bfffffffffe3fe3fd5efffffbfffffffffff
+fffffffffffff808aaa49ffffffffffffff8
+3fe6f3ffffffffffffffffffffffffffc1ffffff019554abfffffffffc4031ff5fbffffe
+fffffffffffffffffffffffffffff80caaaa9fffffffffe7fe7fcf67ffffffffffffffff
+fffffffffffff80caaadbffffffffffffff8
+1fe5f7ffffdfffffffffffffffffffffffffffff009554abfffffffffc4018ff35bffffd
+fffffffffffffffffffffffffffff809aaaabfffffffffe3fe3fd5efffffbfffffffffff
+fffffffffffff80955491ffffffffffffff8
+3ff5b7ffffdfffffffffffffffffffffffffffff03355553fffffffffc7ff1ffafbffffe
+fffffffffffffffffffffffffffff808aaa29fffffffffe7fe7febf7ffffbfffffffffff
+fffffffffffff819aaa69ffffffffffffff8
+1ff6fbffffdffffffffffffffffffffffffffffe012554abfffffffffc7808ff5bbffffe
+fffffffffffffffffffffffffffff011aaa6bfffffffffe3fe3fcd6fffffbfffffffffff
+fffffffffffff810aaaabffffffffffffff8
+3fe5f7ffffdfffffffffffffffffffffffffffff072d54abfffffffffc7ba1ff2fbffffe
+fffffffffffffffffffffffffffff8392aa49fffffffffe7fe7fcbefffffbfffffffffff
+fffffffffffff029554a9ffffffffffffff8
+1fe7bbffffdfffffffffffffffffffffffffffff0432a953fffffffffc73b0ff3dbffffe
+fffffffffffffffffffffffffffff811aaaabfffffffffe3fe3fcff7ffffbfffffffffff
+fffffffffffff829aaaa9ffffffffffffff8
+3feafbffffdfffffffffffffffffffffffffffff831555a9fffffffffc7901ff579ffffe
+fffffffffffffffffffffffffffffc2955469fffffffffe7fe7fd577ffffbfffffffffff
+fffffffffffffc312aaa9ffffffffffffff8
+1fe5ffffffcfffffffffffffffffffffffffffff852aa959fffffffffc7cf0ff3f9ffffe
+7ffffffffffffffffffffffffffffc28aaad5fffffffffe3fe3fcfffffff9fffffffffff
+fffffffffffffc296aa55ffffffffffffff8
+3fe7bbffffdfffffffffffffffffffffffffffffe51554abfffffffffc5a39ff2bdffffe
+ffffffffffffffffffffffffffffff5355495fffffffffe7fe7fd5f7ffffbfffffffffff
+fffffffffffffd6a954d5ffffffffffffff8
+1fe6fbffffdffffffffffffffffffffffffffffff52aaaa9fffffffffc4830ff3f9ffffe
+ffffffffffffffffffffffffffffff69554a9fffffffffe3fe3fcf77ffffbfffffffffff
+ffffffffffffff2955555ffffffffffffff8
+3fedffffffdfffffffffffffffffffffffffffffe76aa959fffffffffc7ff9ff37bffffe
+7fffffffffffffffffffffffffffff33555adfffffffffe7fe7fcbffffffbfffffffffff
+ffffffffffffff3355559ffffffffffffff8
+1febbbffffdffffffffffffffffffffffffffffff11550a3fffffffffc73f0ff6f9ffffe
+ffffffffffffffffffffffffffffff8aaa871fffffffffe3fe3fddf7ffffbfffffffffff
+ffffffffffffff92aa8b1ffffffffffffff8
+3fe5fbffffcffffffffffffffffffffffffffffff86aaa07fffffffffc7819ff3bdfffff
+7fffffffffffffffffffffffffffffc155403fffffffffe7fe7fc7f7ffff9fffffffffff
+ffffffffffffffc355407ffffffffffffff8
+1feffbffffdffffffffffffffffffffffffffffff935535ffffffffffc7ff0ff5fdffffe
+ffffffffffffffffffffffffffffffc9aa9affffffffffe3fe3fdef7ffffbfffffffffff
+ffffffffffffffc9aa9afffffffffffffff8
+3fe77bfffe0ffffffffffffffffffffffffffffff88772cffffffffffc7ff9ff77dffff0
+7fffffffffffffffffffffffffffffcc3baa7fffffffffe7fe7fdbf7fffc1fffffffffff
+ffffffffffffffcc3baafffffffffffffff8
+1fe1fdffe0effffffffffffffffffffffffffffff890069ffffffffffc70f0ff1fefff07
+7fffffffffffffffffffffffffffffc48014ffffffffffe3fe3fc7fbffc1dfffffffffff
+ffffffffffffffc90014fffffffffffffff8
+3fc82c800f77fffffffffffffffffffffffffffff0a9c89ffffffffffc7e19fe4164007b
+bfffffffffffffffffffffffffffff854e54ffffffffffe7fe7f9059001eefffffffffff
+ffffffffffffff858cd4fffffffffffffff8
+1fdf805ff877fffffffffffffffffffffffffffff894c6bffffffffffc7e00fcfc00ffe3
+bfffffffffffffffffffffffffffff854355ffffffffffe3fe3fbf00bff0efffffffffff
+ffffffffffffff894655fffffffffffffff8
+3fbff93fe7bbfffffffffffffffffffffffffffff0aa1d3ffffffffffc71f1fdffcbff3d
+dfffffffffffffffffffffffffffffc4b0a9ffffffffffe7fe7f7ff27fcf77ffffffffff
+ffffffffffffffc4b0a9fffffffffffffff8
+1fbffb2ffc4bfffffffffffffffffffffffffffff8aad17ffffffffffc7ef8fdff997fc2
+5fffffffffffffffffffffffffffff85aea9ffffffffffe3fe3f7ff65ff897ffffffffff
+ffffffffffffff8557a9fffffffffffffff8
+3fbffb2ff399fffffffffffffffffffffffffffff215573ffffffffffc7831fbff997f9c
+dfffffffffffffffffffffffffffff94aaabffffffffffe7fe7e7ff65fe733ffffffffff
+ffffffffffffff84d429fffffffffffffff8
+1f7ff84ffc3bfffffffffffffffffffffffffffff2d5547ffffffffffc7398fbffc27ff3
+dfffffffffffffffffffffffffffff925553ffffffffffe3fe3efff0dff877ffffffffff
+ffffffffffffffc255d3fffffffffffffff8
+167ffffffffdffffff6db6dbfffffffffffffffff24aab7ffffffffffc7b98bbffffffef
+effffff6db6dbfffffffffffffffffc65553ffffffffffe7fe36ffffdffffbfffffedb6d
+b7ffffffffffff865557fffffffffffffff8
+000000000000000000000001fffffffffffffffff262aa7ffffffffffc78000000000000
+0000000000000fffffffffffffffff912b53ffffffffffe3fe0000000000000000000000
+03ffffffffffff851553fffffffffffffff8
+088449200082008100888889fffffffffffffffff2114a7ffffffffffc7ff04104880048
+0841020911111fffffffffffffffff949457ffffffffffe7fe1102245001040102011111
+13ffffffffffffb48ca7fffffffffffffff8
+1111040aaa28aa142a222221fffffffffffffffff2181afffffffffffc7ff89450215502
+a11428a044444fffffffffffffffffb4c1a7ffffffffffe3fe2428810554515428544444
+43ffffffffffffa4c0a7fffffffffffffff8
+022450a0008200a140888889fffffffffffffffff24f64fffffffffffc783001028a0028
+0441420511111fffffffffffffffff923a67ffffffffffe7fe0142145001040142811111
+13ffffffffffff927baffffffffffffffff8
+1488850aaa54aa0a0a222211fffffffffffffffff26555fffffffffffc7b985454115542
+aa8a08a844448fffffffffffffffff93154fffffffffffe3fe1408a10554a95414144444
+23ffffffffffffb32a4ffffffffffffffff8
+000000000000000000000001fffffffffffffffff31154fffffffffffc73900000000000
+0000000000001fffffffffffffffffb28aa7ffffffffffe7fe0000000000000000000000
+03ffffffffffff920aaffffffffffffffff8
+1fffbfffd5557ffffffffffffffffffffffffffff25554fffffffffffc7839fffdfffb5a
+a9ffffffffffffffffffffffffffff916aa7ffffffffffe3fe7fff7fffaaaaffffffffff
+ffffffffffffff91aaa7fffffffffffffff8
+3fffdffaaaaa7ffffffffffffffffffffffffffff555547ffffffffffc7cf0fffefed6b5
+53ffffffffffffffffffffffffffff935563ffffffffffe7fe3fffbff55554ffffffffff
+ffffffffffffffb2aaa3fffffffffffffff8
+1fffefb75aaafffffffffffffffffffffffffffff32aa8fffffffffffc7ff9ffff7fbaaa
+a7ffffffffffffffffffffffffffffb15547ffffffffffe3fe7fffdfdeb555ffffffffff
+ffffffffffffff935547fffffffffffffff8
+3fffe7eed555fffffffffffffffffffffffffffff255507ffffffffffc6630ffff7fed55
+6fffffffffffffffffffffffffffff92aa87ffffffffffe7fe3fffcef5aaabffffffffff
+ffffffffffffff92aa87fffffffffffffff8
+1ffff3fdaaa9fffffffffffffffffffffffffffff22ab6fffffffffffc4f99ffffbdbaaa
+9fffffffffffffffffffffffffffffb155b7ffffffffffe3fe7fffefdf5553ffffffffff
+ffffffffffffffb155b7fffffffffffffff8
+3ffffbdb5557fffffffffffffffffffffffffffff63544fffffffffffc5f90ffffcff7aa
+bfffffffffffffffffffffffffffff12aa27ffffffffffe7fe3ffff7faaaafffffffffff
+ffffffffffffff20aa27fffffffffffffff8
+1ffffdfefaaffffffffffffffffffffffffffffff2558afffffffffffc4fb9ffffefad55
+7fffffffffffffffffffffffffffff32acd7ffffffffffe3fe7ffffb77f55fffffffffff
+ffffffffffffff33ac6ffffffffffffffff8
+3ffffeffd5dffffffffffffffffffffffffffffff65636fffffffffffc6030fffff7fb6e
+ffffffffffffffffffffffffffffffb3b1a7ffffffffffe7fe7ffffdfeabbfffffffffff
+ffffffffffffff96b1a7fffffffffffffff8
+00000000000000000000000000000000000000000000000000000000007df80000000000
+000000000000000000000000000000000000000000000003fe0000000000000000000000
+000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000007ff00000000000
+000000000000000000000000000000000000000000000007fe0000000000000000000000
+000000000000000000000000000000000000
+
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
+cleartomark
+countdictstack exch sub { end } repeat
+restore
+%%EOF
diff --git a/doc/uf002331.jpg b/doc/uf002331.jpg
new file mode 100644
index 00000000..3fd1b784
--- /dev/null
+++ b/doc/uf002331.jpg
Binary files differ
diff --git a/eval.c b/eval.c
index 62a7f453..e584afe7 100644
--- a/eval.c
+++ b/eval.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -33,12 +33,14 @@ static int eval_condition P((NODE *tree));
static NODE *op_assign P((NODE *tree));
static NODE *func_call P((NODE *name, NODE *arg_list));
static NODE *match_op P((NODE *tree));
-static void push_args P((int count, NODE *arglist, NODE **oldstack, char *func_name));
+static void push_args P((int count, NODE *arglist, NODE **oldstack,
+ char *func_name, char **varnames));
static void pop_fcall_stack P((void));
static void pop_fcall P((void));
static int in_function P((void));
char *nodetype2str P((NODETYPE type));
char *flags2str P((int flagval));
+static int comp_func P((const void *p1, const void *p2));
#if __GNUC__ < 2
NODE *_t; /* used as a temporary in macros */
@@ -52,6 +54,13 @@ int ORSlen;
int OFMTidx;
int CONVFMTidx;
+/* Profiling stuff */
+#ifdef PROFILING
+#define INCREMENT(n) n++
+#else
+#define INCREMENT(n) /* nothing */
+#endif
+
/* Macros and variables to save and restore function and loop bindings */
/*
* the val variable allows return/continue/break-out-of-context to be
@@ -112,7 +121,8 @@ char casetable[] = {
'\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167',
/* 'x' 'y' 'z' '{' '|' '}' '~' */
'\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177',
-#ifndef USE_PURE_ASCII
+
+ /* Latin 1: */
C('\200'), C('\201'), C('\202'), C('\203'), C('\204'), C('\205'), C('\206'), C('\207'),
C('\210'), C('\211'), C('\212'), C('\213'), C('\214'), C('\215'), C('\216'), C('\217'),
C('\220'), C('\221'), C('\222'), C('\223'), C('\224'), C('\225'), C('\226'), C('\227'),
@@ -129,24 +139,6 @@ char casetable[] = {
C('\350'), C('\351'), C('\352'), C('\353'), C('\354'), C('\355'), C('\356'), C('\357'),
C('\360'), C('\361'), C('\362'), C('\363'), C('\364'), C('\365'), C('\366'), C('\367'),
C('\370'), C('\371'), C('\372'), C('\373'), C('\374'), C('\375'), C('\376'), C('\377'),
-#else
- C('\200'), C('\201'), C('\202'), C('\203'), C('\204'), C('\205'), C('\206'), C('\207'),
- C('\210'), C('\211'), C('\212'), C('\213'), C('\214'), C('\215'), C('\216'), C('\217'),
- C('\220'), C('\221'), C('\222'), C('\223'), C('\224'), C('\225'), C('\226'), C('\227'),
- C('\230'), C('\231'), C('\232'), C('\233'), C('\234'), C('\235'), C('\236'), C('\237'),
- C('\240'), C('\241'), C('\242'), C('\243'), C('\244'), C('\245'), C('\246'), C('\247'),
- C('\250'), C('\251'), C('\252'), C('\253'), C('\254'), C('\255'), C('\256'), C('\257'),
- C('\260'), C('\261'), C('\262'), C('\263'), C('\264'), C('\265'), C('\266'), C('\267'),
- C('\270'), C('\271'), C('\272'), C('\273'), C('\274'), C('\275'), C('\276'), C('\277'),
- C('\300'), C('\301'), C('\302'), C('\303'), C('\304'), C('\305'), C('\306'), C('\307'),
- C('\310'), C('\311'), C('\312'), C('\313'), C('\314'), C('\315'), C('\316'), C('\317'),
- C('\320'), C('\321'), C('\322'), C('\323'), C('\324'), C('\325'), C('\326'), C('\327'),
- C('\330'), C('\331'), C('\332'), C('\333'), C('\334'), C('\335'), C('\336'), C('\337'),
- C('\340'), C('\341'), C('\342'), C('\343'), C('\344'), C('\345'), C('\346'), C('\347'),
- C('\350'), C('\351'), C('\352'), C('\353'), C('\354'), C('\355'), C('\356'), C('\357'),
- C('\360'), C('\361'), C('\362'), C('\363'), C('\364'), C('\365'), C('\366'), C('\367'),
- C('\370'), C('\371'), C('\372'), C('\373'), C('\374'), C('\375'), C('\376'), C('\377'),
-#endif
};
#else
#include "You lose. You will need a translation table for your character set."
@@ -221,6 +213,7 @@ static char *nodetypes[] = {
"Node_redirect_pipe",
"Node_redirect_pipein",
"Node_redirect_input",
+ "Node_redirect_twoway",
"Node_var",
"Node_var_array",
"Node_val",
@@ -234,114 +227,94 @@ static char *nodetypes[] = {
"Node_hashnode",
"Node_ahash",
"Node_array_ref",
- "Node_NF",
- "Node_NR",
+ "Node_BINMODE",
+ "Node_CONVFMT",
+ "Node_FIELDWIDTHS",
"Node_FNR",
"Node_FS",
- "Node_RS",
- "Node_FIELDWIDTHS",
"Node_IGNORECASE",
+ "Node_LINT",
+ "Node_NF",
+ "Node_NR",
+ "Node_OFMT",
"Node_OFS",
"Node_ORS",
- "Node_OFMT",
- "Node_CONVFMT",
- "Node_final",
+ "Node_RS",
+ "Node_TEXTDOMAIN",
+ "Node_final --- this should never appear",
NULL
};
+/* nodetype2str --- convert a node type into a printable value */
+
char *
-nodetype2str(type)
-NODETYPE type;
+nodetype2str(NODETYPE type)
{
static char buf[40];
if (type >= Node_illegal && type <= Node_final)
return nodetypes[(int) type];
- sprintf(buf, "unknown nodetype %d", (int) type);
+ sprintf(buf, _("unknown nodetype %d"), (int) type);
return buf;
}
/* flags2str --- make a flags value readable */
char *
-flags2str(flagval)
-int flagval;
+flags2str(int flagval)
+{
+ static struct flagtab values[] = {
+ { MALLOC, "MALLOC" },
+ { TEMP, "TEMP" },
+ { PERM, "PERM" },
+ { STRING, "STRING" },
+ { STR, "STR" },
+ { NUM, "NUM" },
+ { NUMBER, "NUMBER" },
+ { MAYBE_NUM, "MAYBE_NUM" },
+ { ARRAYMAXED, "ARRAYMAXED" },
+ { SCALAR, "SCALAR" },
+ { FUNC, "FUNC" },
+ { FIELD, "FIELD" },
+ { INTLSTR, "INTLSTR" },
+ { UNINITIALIZED, "UNINITIALIZED" },
+ { 0, NULL },
+ };
+
+ return genflags2str(flagval, values);
+}
+
+/* genflags2str --- general routine to convert a flag value to a string */
+
+char *
+genflags2str(int flagval, struct flagtab *tab)
{
static char buffer[BUFSIZ];
char *sp;
+ int i, space_left, space_needed;
sp = buffer;
-
- if (flagval & MALLOC) {
- strcpy(sp, "MALLOC");
- sp += strlen(sp);
- }
- if (flagval & TEMP) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "TEMP");
- sp += strlen(sp);
- }
- if (flagval & PERM) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "PERM");
- sp += strlen(sp);
- }
- if (flagval & STRING) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "STRING");
- sp += strlen(sp);
- }
- if (flagval & STR) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "STR");
- sp += strlen(sp);
- }
- if (flagval & NUM) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "NUM");
- sp += strlen(sp);
- }
- if (flagval & NUMBER) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "NUMBER");
- sp += strlen(sp);
- }
- if (flagval & MAYBE_NUM) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "MAYBE_NUM");
- sp += strlen(sp);
- }
- if (flagval & ARRAYMAXED) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "ARRAYMAXED");
- sp += strlen(sp);
- }
- if (flagval & SCALAR) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "SCALAR");
- sp += strlen(sp);
- }
- if (flagval & FUNC) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "FUNC");
- sp += strlen(sp);
- }
- if (flagval & FIELD) {
- if (sp != buffer)
- *sp++ = '|';
- strcpy(sp, "FIELD");
- sp += strlen(sp);
+ space_left = BUFSIZ;
+ for (i = 0; tab[i].name != NULL; i++) {
+ /*
+ * note the trick, we want 1 or 0 for whether we need
+ * the '|' character.
+ */
+ space_needed = (strlen(tab[i].name) + (sp != buffer));
+ if (space_left < space_needed)
+ fatal(_("buffer overflow in genflags2str"));
+
+ if ((flagval & tab[i].val) != 0) {
+ if (sp != buffer) {
+ *sp++ = '|';
+ space_left--;
+ }
+ strcpy(sp, tab[i].name);
+ /* note ordering! */
+ space_left -= strlen(sp);
+ sp += strlen(sp);
+ }
}
return buffer;
@@ -353,8 +326,7 @@ int flagval;
* statement
*/
int
-interpret(tree)
-register NODE *volatile tree;
+interpret(register NODE *volatile tree)
{
jmp_buf volatile loop_tag_stack; /* shallow binding stack for loop_tag */
static jmp_buf rule_tag; /* tag the rule currently being run, for NEXT
@@ -383,12 +355,17 @@ register NODE *volatile tree;
tree = t->lnode;
sourceline = tree->source_line;
source = tree->source_file;
+ INCREMENT(tree->exec_count);
switch (setjmp(rule_tag)) {
case 0: /* normal non-jump */
/* test pattern, if any */
if (tree->lnode == NULL ||
- eval_condition(tree->lnode))
+ eval_condition(tree->lnode)) {
+ /* using the lnode exec_count is kludgey */
+ if (tree->lnode != NULL)
+ INCREMENT(tree->lnode->exec_count);
(void) interpret(tree->rnode);
+ }
break;
case TAG_CONTINUE: /* NEXT statement */
return 1;
@@ -408,10 +385,13 @@ register NODE *volatile tree;
break;
case Node_K_if:
- if (eval_condition(tree->lnode))
+ INCREMENT(tree->exec_count);
+ if (eval_condition(tree->lnode)) {
+ INCREMENT(tree->rnode->exec_count);
(void) interpret(tree->rnode->lnode);
- else
+ } else {
(void) interpret(tree->rnode->rnode);
+ }
break;
case Node_K_while:
@@ -419,6 +399,7 @@ register NODE *volatile tree;
stable_tree = tree;
while (eval_condition(stable_tree->lnode)) {
+ INCREMENT(stable_tree->exec_count);
switch (setjmp(loop_tag)) {
case 0: /* normal non-jump */
(void) interpret(stable_tree->rnode);
@@ -439,6 +420,7 @@ register NODE *volatile tree;
PUSH_BINDING(loop_tag_stack, loop_tag, loop_tag_valid);
stable_tree = tree;
do {
+ INCREMENT(stable_tree->exec_count);
switch (setjmp(loop_tag)) {
case 0: /* normal non-jump */
(void) interpret(stable_tree->rnode);
@@ -460,6 +442,7 @@ register NODE *volatile tree;
(void) interpret(tree->forloop->init);
stable_tree = tree;
while (eval_condition(stable_tree->forloop->cond)) {
+ INCREMENT(stable_tree->exec_count);
switch (setjmp(loop_tag)) {
case 0: /* normal non-jump */
(void) interpret(stable_tree->lnode);
@@ -479,26 +462,65 @@ register NODE *volatile tree;
case Node_K_arrayfor:
{
- volatile struct search l; /* For array_for */
Func_ptr after_assign = NULL;
+ NODE **list = 0;
+ NODE *volatile array;
+ volatile size_t i;
+ size_t j, num_elems;
+ volatile int retval = 0;
+ static int first = TRUE;
+ static int sort_indices = FALSE;
#define hakvar forloop->init
#define arrvar forloop->incr
+ /* get the array */
+ array = tree->arrvar;
+ if (array->type == Node_param_list)
+ array = stack_ptr[array->param_cnt];
+ if (array->type == Node_array_ref)
+ array = array->orig_array;
+ if ((array->flags & SCALAR) != 0)
+ fatal(_("attempt to use scalar `%s' as array"), array->vname);
+
+ /* sanity: do nothing if empty */
+ if (array->type == Node_var || array->var_array == NULL
+ || array->table_size == 0) {
+ break; /* from switch */
+ }
+
+ /* allocate space for array */
+ num_elems = array->table_size;
+ emalloc(list, NODE **, num_elems * sizeof(NODE *), "for_loop");
+
+ /* populate it */
+ for (i = j = 0; i < array->array_size; i++) {
+ NODE *t = array->var_array[i];
+
+ if (t == NULL)
+ continue;
+
+ for (; t != NULL; t = t->ahnext) {
+ list[j++] = dupnode(t->ahname);
+ }
+ }
+
+ if (first) {
+ first = FALSE;
+ sort_indices = (getenv("WHINY_USERS") != 0);
+ }
+
+ if (sort_indices)
+ qsort(list, num_elems, sizeof(NODE *), comp_func); /* shazzam! */
+
+ /* now we can run the loop */
PUSH_BINDING(loop_tag_stack, loop_tag, loop_tag_valid);
- lhs = get_lhs(tree->hakvar, &after_assign);
- t = tree->arrvar;
- if (t->type == Node_param_list)
- t = stack_ptr[t->param_cnt];
- if (t->type == Node_array_ref)
- t = t->orig_array;
+
+ lhs = get_lhs(tree->hakvar, &after_assign, FALSE);
stable_tree = tree;
- if ((t->flags & SCALAR) != 0)
- fatal("attempt to use scalar as array");
- for (assoc_scan(t, (struct search *)&l);
- l.retval;
- assoc_next((struct search *)&l)) {
+ for (i = 0; i < num_elems; i++) {
+ INCREMENT(stable_tree->exec_count);
unref(*((NODE **) lhs));
- *lhs = dupnode(l.retval);
+ *lhs = dupnode(list[i]);
if (after_assign)
(*after_assign)();
switch (setjmp(loop_tag)) {
@@ -508,17 +530,33 @@ register NODE *volatile tree;
break;
case TAG_BREAK:
- RESTORE_BINDING(loop_tag_stack, loop_tag, loop_tag_valid);
- return 1;
+ retval = 1;
+ goto done;
+
default:
cant_happen();
}
}
+
+ done:
RESTORE_BINDING(loop_tag_stack, loop_tag, loop_tag_valid);
+
+ if (do_lint && num_elems != array->table_size)
+ lintwarn(_("for loop: array `%s' changed size from %d to %d during loop execution"),
+ array->vname, num_elems, array->table_size);
+
+ for (i = 0; i < num_elems; i++)
+ unref(list[i]);
+
+ free(list);
+
+ if (retval == 1)
+ return 1;
break;
}
case Node_K_break:
+ INCREMENT(tree->exec_count);
if (! loop_tag_valid) {
/*
* Old AT&T nawk treats break outside of loops like
@@ -528,11 +566,11 @@ register NODE *volatile tree;
static int warned = FALSE;
if (do_lint && ! warned) {
- warning("use of `break' outside a loop is not portable");
+ lintwarn(_("`break' outside a loop is not portable"));
warned = TRUE;
}
if (! do_traditional || do_posix)
- fatal("use of `break' outside a loop is not allowed");
+ fatal(_("`break' outside a loop is not allowed"));
if (in_function())
pop_fcall_stack();
longjmp(rule_tag, TAG_CONTINUE);
@@ -541,6 +579,7 @@ register NODE *volatile tree;
break;
case Node_K_continue:
+ INCREMENT(tree->exec_count);
if (! loop_tag_valid) {
/*
* Old AT&T nawk treats continue outside of loops like
@@ -550,11 +589,11 @@ register NODE *volatile tree;
static int warned = FALSE;
if (do_lint && ! warned) {
- warning("use of `continue' outside a loop is not portable");
+ lintwarn(_("`continue' outside a loop is not portable"));
warned = TRUE;
}
if (! do_traditional || do_posix)
- fatal("use of `continue' outside a loop is not allowed");
+ fatal(_("`continue' outside a loop is not allowed"));
if (in_function())
pop_fcall_stack();
longjmp(rule_tag, TAG_CONTINUE);
@@ -563,14 +602,17 @@ register NODE *volatile tree;
break;
case Node_K_print:
+ INCREMENT(tree->exec_count);
do_print(tree);
break;
case Node_K_printf:
+ INCREMENT(tree->exec_count);
do_printf(tree);
break;
case Node_K_delete:
+ INCREMENT(tree->exec_count);
do_delete(tree->lnode, tree->rnode);
break;
@@ -579,11 +621,13 @@ register NODE *volatile tree;
break;
case Node_K_next:
+ INCREMENT(tree->exec_count);
if (in_begin_rule)
- fatal("`next' cannot be called from a BEGIN rule");
+ fatal(_("`next' cannot be called from a BEGIN rule"));
else if (in_end_rule)
- fatal("`next' cannot be called from an END rule");
+ fatal(_("`next' cannot be called from an END rule"));
+ /* could add a lint check here */
if (in_function())
pop_fcall_stack();
@@ -591,11 +635,13 @@ register NODE *volatile tree;
break;
case Node_K_nextfile:
+ INCREMENT(tree->exec_count);
if (in_begin_rule)
- fatal("`nextfile' cannot be called from a BEGIN rule");
+ fatal(_("`nextfile' cannot be called from a BEGIN rule"));
else if (in_end_rule)
- fatal("`nextfile' cannot be called from an END rule");
+ fatal(_("`nextfile' cannot be called from an END rule"));
+ /* could add a lint check here */
if (in_function())
pop_fcall_stack();
@@ -603,6 +649,7 @@ register NODE *volatile tree;
break;
case Node_K_exit:
+ INCREMENT(tree->exec_count);
/*
* In A,K,&W, p. 49, it says that an exit statement "...
* causes the program to behave as if the end of input had
@@ -620,6 +667,7 @@ register NODE *volatile tree;
break;
case Node_K_return:
+ INCREMENT(tree->exec_count);
t = tree_eval(tree->lnode);
ret_node = dupnode(t);
free_temp(t);
@@ -632,7 +680,8 @@ register NODE *volatile tree;
* value.
*/
if (do_lint && tree->type == Node_var)
- warning("statement has no effect");
+ lintwarn(_("statement has no effect"));
+ INCREMENT(tree->exec_count);
t = tree_eval(tree);
free_temp(t);
break;
@@ -643,9 +692,7 @@ register NODE *volatile tree;
/* r_tree_eval --- evaluate a subtree */
NODE *
-r_tree_eval(tree, iscond)
-register NODE *tree;
-int iscond;
+r_tree_eval(register NODE *tree, int iscond)
{
register NODE *r, *t1, *t2; /* return value & temporary subtrees */
register NODE **lhs;
@@ -655,9 +702,8 @@ int iscond;
#ifdef _CRAY
long lx2;
#endif
- char namebuf[100];
-#ifdef DEBUG
+#ifdef GAWKDEBUG
if (tree == NULL)
return Nnull_string;
else if (tree->type == Node_val) {
@@ -667,28 +713,39 @@ int iscond;
} else if (tree->type == Node_var) {
if (tree->var_value->stref <= 0)
cant_happen();
+ if ((tree->flags & UNINITIALIZED) != 0)
+ warning(_("reference to uninitialized variable `%s'"),
+ tree->vname);
return tree->var_value;
}
#endif
if (tree->type == Node_param_list) {
- int paramnum = tree->param_cnt + 1;
-
if ((tree->flags & FUNC) != 0)
- fatal("can't use function name `%s' as variable or array",
+ fatal(_("can't use function name `%s' as variable or array"),
tree->vname);
tree = stack_ptr[tree->param_cnt];
- if (tree == NULL)
+
+ if (tree == NULL) {
+ if (do_lint)
+ lintwarn(_("reference to uninitialized argument `%s'"),
+ tree->vname);
return Nnull_string;
- sprintf(namebuf, "parameter #%d", paramnum);
- tree->vname = namebuf;
- }
+ }
+
+ if (do_lint && (tree->flags & UNINITIALIZED) != 0)
+ lintwarn(_("reference to uninitialized argument `%s'"),
+ tree->vname);
+ }
if (tree->type == Node_array_ref)
tree = tree->orig_array;
switch (tree->type) {
case Node_var:
+ if (do_lint && (tree->flags & UNINITIALIZED) != 0)
+ lintwarn(_("reference to uninitialized variable `%s'"),
+ tree->vname);
return tree->var_value;
case Node_and:
@@ -729,11 +786,14 @@ int iscond;
case Node_ORS:
case Node_OFMT:
case Node_CONVFMT:
- lhs = get_lhs(tree, (Func_ptr *) NULL);
+ case Node_BINMODE:
+ case Node_LINT:
+ case Node_TEXTDOMAIN:
+ lhs = get_lhs(tree, (Func_ptr *) NULL, TRUE);
return *lhs;
case Node_var_array:
- fatal("attempt to use array `%s' in a scalar context",
+ fatal(_("attempt to use array `%s' in a scalar context"),
tree->vname);
case Node_unary_minus:
@@ -753,26 +813,20 @@ int iscond;
return match_op(tree);
case Node_func:
- fatal("function `%s' called with space between name and (,\n%s",
+ fatal(_("function `%s' called with space between name and `(',\n%s"),
tree->lnode->param,
- "or used in other expression context");
+ _("or used in other expression context"));
/* assignments */
case Node_assign:
{
Func_ptr after_assign = NULL;
- if (iscond && do_lint)
- warning("assignment used in conditional context");
+ if (do_lint && iscond)
+ lintwarn(_("assignment used in conditional context"));
r = tree_eval(tree->rnode);
- lhs = get_lhs(tree->lnode, &after_assign);
- if (r != *lhs) {
- NODE *save;
-
- save = *lhs;
- *lhs = dupnode(r);
- unref(save);
- }
+ lhs = get_lhs(tree->lnode, &after_assign, FALSE);
+ assign_val(lhs, r);
free_temp(r);
tree->lnode->flags |= SCALAR;
if (after_assign)
@@ -788,6 +842,7 @@ int iscond;
register NODE **treep;
register NODE **strp;
register size_t len;
+ register size_t supposed_len;
char *str;
register char *dest;
int alloc_count, str_count;
@@ -810,7 +865,8 @@ int iscond;
* use as a sentinel. Thus, start alloc_count at 2.
*/
save_tree = tree;
- for (alloc_count = 2; tree && tree->type == Node_concat; tree = tree->lnode)
+ for (alloc_count = 2; tree != NULL && tree->type == Node_concat;
+ tree = tree->lnode)
alloc_count++;
tree = save_tree;
emalloc(treelist, NODE **, sizeof(NODE *) * alloc_count, "tree_eval");
@@ -818,7 +874,7 @@ int iscond;
/* Now, here we go. */
treep = treelist;
- while (tree && tree->type == Node_concat) {
+ while (tree != NULL && tree->type == Node_concat) {
*treep++ = tree->rnode;
tree = tree->lnode;
}
@@ -832,11 +888,21 @@ int iscond;
* lengthes, in case one of the expressions has a
* side effect that changes one of the others.
* See test/nasty.awk.
+ *
+ * dupnode the results a la do_print, to give us
+ * more predicable behavior; compare gawk 3.0.6 to
+ * nawk/mawk on test/nasty.awk.
*/
strp = strlist;
- len = 0;
+ supposed_len = len = 0;
while (treep >= treelist) {
- *strp = force_string(tree_eval(*treep--));
+ NODE *n;
+
+ /* Here lies the wumpus's brother. R.I.P. */
+ n = force_string(tree_eval(*treep--));
+ *strp = dupnode(n);
+ free_temp(n);
+ supposed_len += (*strp)->stlen;
strp++;
}
*strp = NULL;
@@ -847,14 +913,16 @@ int iscond;
len += (*strp)->stlen;
strp++;
}
+ if (do_lint && supposed_len != len)
+ lintwarn(_("concatenation: side effects in one expression have changed the length of another!"));
emalloc(str, char *, len+2, "tree_eval");
str[len] = str[len+1] = '\0'; /* for good measure */
dest = str;
strp = strlist;
- while (*strp) {
+ while (*strp != NULL) {
memcpy(dest, (*strp)->stptr, (*strp)->stlen);
dest += (*strp)->stlen;
- free_temp(*strp);
+ unref(*strp);
strp++;
}
r = make_str_node(str, len, ALREADY_MALLOCED);
@@ -941,7 +1009,7 @@ int iscond;
case Node_quotient:
if (x2 == 0)
- fatal("division by zero attempted");
+ fatal(_("division by zero attempted"));
#ifdef _CRAY
/* special case for integer division, put in for Cray */
lx2 = x2;
@@ -956,7 +1024,7 @@ int iscond;
case Node_mod:
if (x2 == 0)
- fatal("division by zero attempted in mod");
+ fatal(_("division by zero attempted in `%%'"));
#ifdef HAVE_FMOD
return tmp_number(fmod(x1, x2));
#else /* ! HAVE_FMOD */
@@ -971,11 +1039,11 @@ int iscond;
return tmp_number(x1 - x2);
case Node_var_array:
- fatal("attempt to use array `%s' in a scalar context",
+ fatal(_("attempt to use array `%s' in a scalar context"),
tree->vname);
default:
- fatal("illegal type (%s) in tree_eval", nodetype2str(tree->type));
+ fatal(_("illegal type (%s) in tree_eval"), nodetype2str(tree->type));
}
return 0;
}
@@ -983,8 +1051,7 @@ int iscond;
/* eval_condition --- is TREE true or false? Returns 0==false, non-zero==true */
static int
-eval_condition(tree)
-register NODE *tree;
+eval_condition(register NODE *tree)
{
register NODE *t1;
register int ret;
@@ -1036,8 +1103,7 @@ register NODE *tree;
/* cmp_nodes --- compare two nodes, returning negative, 0, positive */
int
-cmp_nodes(t1, t2)
-register NODE *t1, *t2;
+cmp_nodes(register NODE *t1, register NODE *t2)
{
register int ret;
register size_t len1, len2;
@@ -1081,8 +1147,7 @@ register NODE *t1, *t2;
/* op_assign --- do +=, -=, etc. */
static NODE *
-op_assign(tree)
-register NODE *tree;
+op_assign(register NODE *tree)
{
AWKNUM rval, lval;
NODE **lhs;
@@ -1100,7 +1165,7 @@ register NODE *tree;
switch(tree->type) {
case Node_preincrement:
case Node_predecrement:
- lhs = get_lhs(tree->lnode, &after_assign);
+ lhs = get_lhs(tree->lnode, &after_assign, TRUE);
lval = force_number(*lhs);
unref(*lhs);
*lhs = make_number(lval +
@@ -1112,7 +1177,7 @@ register NODE *tree;
case Node_postincrement:
case Node_postdecrement:
- lhs = get_lhs(tree->lnode, &after_assign);
+ lhs = get_lhs(tree->lnode, &after_assign, TRUE);
lval = force_number(*lhs);
unref(*lhs);
*lhs = make_number(lval +
@@ -1133,7 +1198,7 @@ register NODE *tree;
rval = force_number(tmp);
free_temp(tmp);
- lhs = get_lhs(tree->lnode, &after_assign);
+ lhs = get_lhs(tree->lnode, &after_assign, FALSE);
lval = force_number(*lhs);
unref(*lhs);
@@ -1160,7 +1225,7 @@ register NODE *tree;
case Node_assign_quotient:
if (rval == (AWKNUM) 0)
- fatal("division by zero attempted in /=");
+ fatal(_("division by zero attempted in `/='"));
#ifdef _CRAY
/* special case for integer division, put in for Cray */
ltemp = rval;
@@ -1178,7 +1243,7 @@ register NODE *tree;
case Node_assign_mod:
if (rval == (AWKNUM) 0)
- fatal("division by zero attempted in %%=");
+ fatal(_("division by zero attempted in `%%='"));
#ifdef HAVE_FMOD
*lhs = make_number(fmod(lval, rval));
#else /* ! HAVE_FMOD */
@@ -1250,14 +1315,34 @@ pop_fcall()
if (arg->type == Node_param_list)
arg = stack_ptr[arg->param_cnt];
n = *sp++;
- if ((arg->type == Node_var /* || arg->type == Node_var_array */)
- && n->type == Node_var_array) {
- /* should we free arg->var_value ? */
- arg->var_array = n->var_array;
- arg->type = Node_var_array;
- arg->array_size = n->array_size;
- arg->table_size = n->table_size;
- arg->flags = n->flags;
+ if (n->type == Node_var_array || n->type == Node_array_ref) {
+ NODETYPE old_type; /* for check, below */
+
+ old_type = arg->type;
+
+ /*
+ * subtlety: if arg->type is Node_var but n->type
+ * is Node_var_array, then the array routines noticed
+ * that a variable name was really an array and
+ * changed the type. But when v->name was pushed
+ * on the stack, it came out of the varnames array,
+ * and was not malloc'ed, so we shouldn't free it.
+ * See the corresponding code in push_args().
+ * Thanks to Juergen Kahrs for finding a test case
+ * that shows this.
+ */
+ if (old_type == Node_var_array || old_type == Node_array_ref)
+ free(n->vname);
+
+ if (arg->type == Node_var) {
+ /* type changed, copy array back for call by reference */
+ /* should we free arg->var_value ? */
+ arg->var_array = n->var_array;
+ arg->type = Node_var_array;
+ arg->array_size = n->array_size;
+ arg->table_size = n->table_size;
+ arg->flags = n->flags;
+ }
}
/* n->lnode overlays the array size, don't unref it if array */
if (n->type != Node_var_array && n->type != Node_array_ref)
@@ -1293,14 +1378,18 @@ pop_fcall_stack()
/* push_args --- push function arguments onto the stack */
static void
-push_args(count, arglist, oldstack, func_name)
-int count;
-NODE *arglist;
-NODE **oldstack;
-char *func_name;
+push_args(int count,
+ NODE *arglist,
+ NODE **oldstack,
+ char *func_name,
+ char **varnames)
{
struct fcall *f;
NODE *arg, *argp, *r, **sp, *n;
+ int i;
+ int num_args;
+
+ num_args = count; /* save for later use */
if (fcall_list_size == 0) { /* first time */
emalloc(fcall_list, struct fcall *, 10 * sizeof(struct fcall),
@@ -1317,7 +1406,7 @@ char *func_name;
memset(f, '\0', sizeof(struct fcall));
if (count > 0)
- emalloc(f->stack, NODE **, count*sizeof(NODE *), "func_call");
+ emalloc(f->stack, NODE **, count*sizeof(NODE *), "push_args");
f->count = count;
f->fname = func_name; /* not used, for debugging, just in case */
f->arglist = arglist;
@@ -1326,11 +1415,12 @@ char *func_name;
sp = f->stack;
/* for each calling arg. add NODE * on stack */
- for (argp = arglist; count > 0 && argp != NULL; argp = argp->rnode) {
+ for (argp = arglist, i = 0; count > 0 && argp != NULL; argp = argp->rnode) {
+ static char from[] = N_("%s (from %s)");
arg = argp->lnode;
getnode(r);
r->type = Node_var;
-
+ r->flags = 0;
/* call by reference for arrays; see below also */
if (arg->type == Node_param_list) {
/* we must also reassign f here; see below */
@@ -1338,26 +1428,43 @@ char *func_name;
arg = f->prevstack[arg->param_cnt];
}
if (arg->type == Node_var_array) {
+ char *p;
+ size_t len;
+
r->type = Node_array_ref;
r->flags &= ~SCALAR;
r->orig_array = arg;
- r->vname = arg->vname;
+ len = strlen(varnames[i]) + strlen(arg->vname)
+ + strlen(gettext(from)) - 4 + 1;
+ emalloc(p, char *, len, "push_args");
+ sprintf(p, _(from), varnames[i], arg->vname);
+ r->vname = p;
} else if (arg->type == Node_array_ref) {
- *r = *arg;
+ char *p;
+ size_t len;
+
+ *r = *arg;
+ len = strlen(varnames[i]) + strlen(arg->vname)
+ + strlen(gettext(from)) - 4 + 1;
+ emalloc(p, char *, len, "push_args");
+ sprintf(p, _(from), varnames[i], arg->vname);
+ r->vname = p;
} else {
n = tree_eval(arg);
r->lnode = dupnode(n);
r->rnode = (NODE *) NULL;
if ((n->flags & SCALAR) != 0)
r->flags |= SCALAR;
+ r->vname = varnames[i];
free_temp(n);
}
*sp++ = r;
+ i++;
count--;
}
if (argp != NULL) /* left over calling args. */
warning(
- "function `%s' called with more arguments than declared",
+ _("function `%s' called with more arguments than declared"),
func_name);
/* add remaining params. on stack with null value */
@@ -1367,6 +1474,9 @@ char *func_name;
r->lnode = Nnull_string;
r->flags &= ~SCALAR;
r->rnode = (NODE *) NULL;
+ r->vname = varnames[i++];
+ r->flags = UNINITIALIZED;
+ r->param_cnt = num_args - count;
*sp++ = r;
}
@@ -1387,9 +1497,8 @@ char *func_name;
NODE **stack_ptr;
static NODE *
-func_call(name, arg_list)
-NODE *name; /* name is a Node_val giving function name */
-NODE *arg_list; /* Node_expression_list of calling args. */
+func_call(NODE *name, /* name is a Node_val giving function name */
+ NODE *arg_list) /* Node_expression_list of calling args. */
{
register NODE *r;
NODE *f;
@@ -1402,11 +1511,12 @@ NODE *arg_list; /* Node_expression_list of calling args. */
/* retrieve function definition node */
f = lookup(name->stptr);
if (f == NULL || f->type != Node_func)
- fatal("function `%s' not defined", name->stptr);
+ fatal(_("function `%s' not defined"), name->stptr);
#ifdef FUNC_TRACE
- fprintf(stderr, "function %s called\n", name->stptr);
+ fprintf(stderr, _("function %s called\n"), name->stptr);
#endif
- push_args(f->lnode->param_cnt, arg_list, stack_ptr, name->stptr);
+ push_args(f->lnode->param_cnt, arg_list, stack_ptr, name->stptr,
+ f->parmlist);
/*
* Execute function body, saving context, as a return statement
@@ -1429,6 +1539,7 @@ NODE *arg_list; /* Node_expression_list of calling args. */
PUSH_BINDING(func_tag_stack, func_tag, func_tag_valid);
save_ret_node = ret_node;
ret_node = Nnull_string; /* default return value */
+ INCREMENT(f->exec_count); /* count function calls */
if (setjmp(func_tag) == 0)
(void) interpret(f->rnode);
@@ -1450,6 +1561,24 @@ NODE *arg_list; /* Node_expression_list of calling args. */
return r;
}
+#ifdef PROFILING
+/* dump_fcall_stack --- print a backtrace of the awk function calls */
+
+void
+dump_fcall_stack(FILE *fp)
+{
+ int i;
+
+ if (curfcall < 0)
+ return;
+
+ fprintf(fp, _("\n\t# Function Call Stack:\n\n"));
+ for (i = curfcall; i >= 0; i--)
+ fprintf(fp, "\t# %3d. %s\n", i+1, fcall_list[i].fname);
+ fprintf(fp, _("\t# -- main --\n"));
+}
+#endif /* PROFILING */
+
/*
* r_get_lhs:
* This returns a POINTER to a node pointer. get_lhs(ptr) is the current
@@ -1462,9 +1591,7 @@ NODE *arg_list; /* Node_expression_list of calling args. */
*/
NODE **
-r_get_lhs(ptr, assign)
-register NODE *ptr;
-Func_ptr *assign;
+r_get_lhs(register NODE *ptr, Func_ptr *assign, int reference)
{
register NODE **aptr = NULL;
register NODE *n;
@@ -1473,19 +1600,25 @@ Func_ptr *assign;
*assign = NULL; /* for safety */
if (ptr->type == Node_param_list) {
if ((ptr->flags & FUNC) != 0)
- fatal("can't use function name `%s' as variable or array", ptr->vname);
+ fatal(_("can't use function name `%s' as variable or array"), ptr->vname);
ptr = stack_ptr[ptr->param_cnt];
}
switch (ptr->type) {
case Node_array_ref:
case Node_var_array:
- fatal("attempt to use array `%s' in a scalar context",
+ fatal(_("attempt to use array `%s' in a scalar context"),
ptr->vname);
case Node_var:
+ if (! reference)
+ ptr->flags &= ~UNINITIALIZED;
+ else if (do_lint && (ptr->flags & UNINITIALIZED) != 0)
+ lintwarn(_("reference to uninitialized variable `%s'"),
+ ptr->vname);
+
aptr = &(ptr->var_value);
-#ifdef DEBUG
+#ifdef GAWKDEBUG
if (ptr->var_value->stref <= 0)
cant_happen();
#endif
@@ -1547,6 +1680,18 @@ Func_ptr *assign;
*assign = set_IGNORECASE;
break;
+ case Node_BINMODE:
+ aptr = &(BINMODE_node->var_value);
+ if (assign != NULL)
+ *assign = set_BINMODE;
+ break;
+
+ case Node_LINT:
+ aptr = &(LINT_node->var_value);
+ if (assign != NULL)
+ *assign = set_LINT;
+ break;
+
case Node_OFMT:
aptr = &(OFMT_node->var_value);
if (assign != NULL)
@@ -1571,8 +1716,32 @@ Func_ptr *assign;
*assign = set_OFS;
break;
+ case Node_TEXTDOMAIN:
+ aptr = &(TEXTDOMAIN_node->var_value);
+ if (assign != NULL)
+ *assign = set_TEXTDOMAIN;
+ break;
+
case Node_param_list:
- aptr = &(stack_ptr[ptr->param_cnt]->var_value);
+ {
+ NODE *n = stack_ptr[ptr->param_cnt];
+
+ /*
+ * This test should always be true, due to the code
+ * above, before the switch, that handles parameters.
+ */
+ if (n->type != Node_var_array)
+ aptr = &n->var_value;
+ else
+ fatal(_("attempt to use array `%s' in a scalar context"),
+ n->vname);
+
+ if (! reference)
+ n->flags &= ~UNINITIALIZED;
+ else if (do_lint && (n->flags & UNINITIALIZED) != 0)
+ lintwarn(_("reference to uninitialized argument `%s'"),
+ n->vname);
+ }
break;
case Node_field_spec:
@@ -1580,10 +1749,17 @@ Func_ptr *assign;
int field_num;
n = tree_eval(ptr->lnode);
+ if (do_lint) {
+ if ((n->flags & NUMBER) == 0) {
+ lintwarn(_("attempt to field reference from non-numeric value"));
+ if (n->stlen == 0)
+ lintwarn(_("attempt to reference from null string"));
+ }
+ }
field_num = (int) force_number(n);
free_temp(n);
if (field_num < 0)
- fatal("attempt to access field %d", field_num);
+ fatal(_("attempt to access field %d"), field_num);
if (field_num == 0 && field0_valid) { /* short circuit */
aptr = &fields_arr[0];
if (assign != NULL)
@@ -1593,32 +1769,45 @@ Func_ptr *assign;
aptr = get_field(field_num, assign);
break;
}
+
case Node_subscript:
n = ptr->lnode;
if (n->type == Node_param_list) {
- int i = n->param_cnt + 1;
-
n = stack_ptr[n->param_cnt];
if ((n->flags & SCALAR) != 0)
- fatal("attempt to use scalar parameter %d as an array", i);
+ fatal(_("attempt to use scalar parameter `%s' as an array"), n->vname);
}
if (n->type == Node_array_ref) {
n = n->orig_array;
assert(n->type == Node_var_array || n->type == Node_var);
}
if (n->type == Node_func) {
- fatal("attempt to use function `%s' as array",
+ fatal(_("attempt to use function `%s' as array"),
n->lnode->param);
}
- aptr = assoc_lookup(n, concat_exp(ptr->rnode));
+ aptr = assoc_lookup(n, concat_exp(ptr->rnode), reference);
break;
case Node_func:
- fatal("`%s' is a function, assignment is not allowed",
+ fatal(_("`%s' is a function, assignment is not allowed"),
ptr->lnode->param);
case Node_builtin:
- fatal("assignment is not allowed to result of builtin function");
+#if 1
+ /* in gawk for a while */
+ fatal(_("assignment is not allowed to result of builtin function"));
+#else
+ /*
+ * This is how Christos at Deshaw did it.
+ * Does this buy us anything?
+ */
+ if (ptr->proc == NULL)
+ fatal(_("assignment is not allowed to result of builtin function"));
+ ptr->callresult = (*ptr->proc)(ptr->subnode);
+ aptr = &ptr->callresult;
+ break;
+#endif
+
default:
fprintf(stderr, "type = %s\n", nodetype2str(ptr->type));
fflush(stderr);
@@ -1630,8 +1819,7 @@ Func_ptr *assign;
/* match_op --- do ~ and !~ */
static NODE *
-match_op(tree)
-register NODE *tree;
+match_op(register NODE *tree)
{
register NODE *t1;
register Regexp *rp;
@@ -1678,7 +1866,7 @@ set_IGNORECASE()
if ((do_lint || do_traditional) && ! warned) {
warned = TRUE;
- warning("IGNORECASE not supported in compatibility mode");
+ lintwarn(_("`IGNORECASE' is a gawk extension"));
}
if (do_traditional)
IGNORECASE = FALSE;
@@ -1694,6 +1882,59 @@ set_IGNORECASE()
set_FS_if_not_FIELDWIDTHS();
}
+/* set_BINMODE --- set translation mode (OS/2, DOS, others) */
+
+void
+set_BINMODE()
+{
+ static int warned = FALSE;
+ char *p, *cp, save;
+ NODE *v;
+ int digits = FALSE;
+
+ if ((do_lint || do_traditional) && ! warned) {
+ warned = TRUE;
+ lintwarn(_("`BINMODE' is a gawk extension"));
+ }
+ if (do_traditional)
+ BINMODE = 0;
+ else if ((BINMODE_node->var_value->flags & STRING) != 0) {
+ v = BINMODE_node->var_value;
+ p = v->stptr;
+ save = p[v->stlen];
+ p[v->stlen] = '\0';
+
+ for (cp = p; *cp != '\0'; cp++) {
+ if (ISDIGIT(*cp)) {
+ digits = TRUE;
+ break;
+ }
+ }
+
+ if (! digits || (BINMODE_node->var_value->flags & MAYBE_NUM) == 0) {
+ BINMODE = 0;
+ if (strcmp(p, "r") == 0)
+ BINMODE = 1;
+ else if (strcmp(p, "w") == 0)
+ BINMODE = 2;
+ else if (strcmp(p, "rw") == 0 || strcmp(p, "wr") == 0)
+ BINMODE = 3;
+
+ if (BINMODE == 0 && v->stlen != 0) {
+ /* arbitrary string, assume both */
+ BINMODE = 3;
+ warning("BINMODE: arbitary string value treated as \"rw\"");
+ }
+ } else
+ BINMODE = (int) force_number(BINMODE_node->var_value);
+
+ p[v->stlen] = save;
+ } else if ((BINMODE_node->var_value->flags & NUMBER) != 0)
+ BINMODE = (int) force_number(BINMODE_node->var_value);
+ else
+ BINMODE = 0; /* shouldn't happen */
+}
+
/* set_OFS --- update OFS related variables when OFS assigned to */
void
@@ -1721,8 +1962,7 @@ static int fmt_ok P((NODE *n));
static int fmt_index P((NODE *n));
static int
-fmt_ok(n)
-NODE *n;
+fmt_ok(NODE *n)
{
NODE *tmp = force_string(n);
char *p = tmp->stptr;
@@ -1731,13 +1971,13 @@ NODE *n;
return 0;
while (*p && strchr(" +-#", *p) != NULL) /* flags */
p++;
- while (*p && isdigit(*p)) /* width - %*.*g is NOT allowed */
+ while (*p && ISDIGIT(*p)) /* width - %*.*g is NOT allowed */
p++;
- if (*p == '\0' || (*p != '.' && ! isdigit(*p)))
+ if (*p == '\0' || (*p != '.' && ! ISDIGIT(*p)))
return 0;
if (*p == '.')
p++;
- while (*p && isdigit(*p)) /* precision */
+ while (*p && ISDIGIT(*p)) /* precision */
p++;
if (*p == '\0' || strchr("efgEG", *p) == NULL)
return 0;
@@ -1749,8 +1989,7 @@ NODE *n;
/* fmt_index --- track values of OFMT and CONVFMT to keep semantics correct */
static int
-fmt_index(n)
-NODE *n;
+fmt_index(NODE *n)
{
register int ix = 0;
static int fmt_num = 4;
@@ -1767,10 +2006,10 @@ NODE *n;
/* not found */
n->stptr[n->stlen] = '\0';
if (do_lint && ! fmt_ok(n))
- warning("bad %sFMT specification",
+ lintwarn(_("bad `%sFMT' specification `%s'"),
n == CONVFMT_node->var_value ? "CONV"
: n == OFMT_node->var_value ? "O"
- : "");
+ : "", n->stptr);
if (fmt_hiwater >= fmt_num) {
fmt_num *= 2;
@@ -1797,3 +2036,117 @@ set_CONVFMT()
CONVFMTidx = fmt_index(CONVFMT_node->var_value);
CONVFMT = fmt_list[CONVFMTidx]->stptr;
}
+
+/* set_LINT --- update LINT as appropriate */
+
+void
+set_LINT()
+{
+ int old_lint = do_lint;
+
+ if ((LINT_node->var_value->flags & (STRING|STR)) != 0) {
+ if ((LINT_node->var_value->flags & MAYBE_NUM) == 0) {
+ char *lintval;
+ size_t lintlen;
+
+ do_lint = (force_string(LINT_node->var_value)->stlen > 0);
+ lintval = LINT_node->var_value->stptr;
+ lintlen = LINT_node->var_value->stlen;
+ if (do_lint) {
+ if (lintlen == 5 && strncmp(lintval, "fatal", 5) == 0)
+ lintfunc = r_fatal;
+ else
+ lintfunc = warning;
+ } else
+ lintfunc = warning;
+ } else
+ do_lint = (force_number(LINT_node->var_value) != 0.0);
+ } else if ((LINT_node->var_value->flags & (NUM|NUMBER)) != 0) {
+ do_lint = (force_number(LINT_node->var_value) != 0.0);
+ lintfunc = warning;
+ } else
+ do_lint = FALSE; /* shouldn't happen */
+
+ if (! do_lint)
+ lintfunc = warning;
+
+ /* explicitly use warning() here, in case lintfunc == r_fatal */
+ if (old_lint != do_lint && old_lint)
+ warning(_("turning off `--lint' due to assignment to `LINT'"));
+}
+
+/* set_TEXTDOMAIN --- update TEXTDOMAIN variable when TEXTDOMAIN assigned to */
+
+void
+set_TEXTDOMAIN()
+{
+ int len;
+
+ TEXTDOMAIN = force_string(TEXTDOMAIN_node->var_value)->stptr;
+ len = TEXTDOMAIN_node->var_value->stlen;
+ TEXTDOMAIN[len] = '\0';
+ /*
+ * Note: don't call textdomain(); this value is for
+ * the awk program, not for gawk itself.
+ */
+}
+
+/*
+ * assign_val --- do mechanics of assignment, for calling from multiple
+ * places.
+ */
+
+NODE *
+assign_val(NODE **lhs_p, NODE *rhs)
+{
+ NODE *save;
+
+ if (rhs != *lhs_p) {
+ save = *lhs_p;
+ *lhs_p = dupnode(rhs);
+ unref(save);
+ }
+ return *lhs_p;
+}
+
+/* update_ERRNO --- update the value of ERRNO */
+
+void
+update_ERRNO()
+{
+ char *cp;
+
+ cp = strerror(errno);
+ cp = gettext(cp);
+ unref(ERRNO_node->var_value);
+ ERRNO_node->var_value = make_string(cp, strlen(cp));
+}
+
+/* comp_func --- array index comparison function for qsort */
+
+static int
+comp_func(const void *p1, const void *p2)
+{
+ size_t len1, len2;
+ char *str1, *str2;
+ NODE *t1, *t2;
+
+ t1 = *((NODE **) p1);
+ t2 = *((NODE **) p2);
+
+/*
+ t1 = force_string(t1);
+ t2 = force_string(t2);
+*/
+ len1 = t1->stlen;
+ str1 = t1->stptr;
+
+ len2 = t2->stlen;
+ str2 = t2->stptr;
+
+ /* Array indexes are strings, compare as such, always! */
+ if (len1 == len2 || len1 < len2)
+ return strncmp(str1, str2, len1);
+ else
+ return strncmp(str1, str2, len2);
+}
diff --git a/eval_p.c b/eval_p.c
new file mode 100644
index 00000000..b01bec19
--- /dev/null
+++ b/eval_p.c
@@ -0,0 +1,27 @@
+/*
+ * eval_p.c - compile eval.c with profiling turned on.
+ */
+
+/*
+ * Copyright (C) 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#define PROFILING 1
+#include "eval.c"
diff --git a/ext.c b/ext.c
new file mode 100644
index 00000000..1ed7e2d4
--- /dev/null
+++ b/ext.c
@@ -0,0 +1,186 @@
+/*
+ * ext.c - Builtin function that links external gawk functions and related
+ * utilities.
+ *
+ * Christos Zoulas, Thu Jun 29 17:40:41 EDT 1995
+ * Arnold Robbins, update for 3.1, Mon Nov 23 12:53:39 EST 1998
+ */
+
+/*
+ * Copyright (C) 1995 - 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#include "awk.h"
+
+#ifdef DYNAMIC
+
+#include <dlfcn.h>
+
+#ifdef __GNUC__
+static unsigned long long dummy; /* fake out gcc for dynamic loading? */
+#endif
+
+extern int errcount;
+
+/* do_ext --- load an extension */
+
+NODE *
+do_ext(NODE *tree)
+{
+ NODE *obj;
+ NODE *fun;
+ NODE *(*func) P((NODE *, void *));
+ void *dl;
+ int flags = RTLD_LAZY;
+
+#ifdef __GNUC__
+ AWKNUM junk;
+
+ junk = (AWKNUM) dummy;
+#endif
+
+ if (do_lint)
+ lintwarn(_("`extension' is a gawk extension"));
+
+ if (do_traditional || do_posix) {
+ errcount++;
+ error(_("`extension' is a gawk extension"));
+ }
+
+ obj = tree_eval(tree->lnode);
+ force_string(obj);
+
+#ifdef RTLD_GLOBAL
+ flags |= RTLD_GLOBAL;
+#endif
+ if ((dl = dlopen(obj->stptr, flags)) == NULL)
+ fatal(_("extension: cannot open `%s' (%s)\n"), obj->stptr,
+ dlerror());
+
+ fun = tree_eval(tree->rnode->lnode);
+ force_string(fun);
+
+ func = (NODE *(*) P((NODE *, void *))) dlsym(dl, fun->stptr);
+ if (func == NULL)
+ fatal(_("extension: library `%s': cannot call function `%s' (%s)\n"),
+ obj->stptr, fun->stptr, dlerror());
+ free_temp(obj);
+ free_temp(fun);
+
+ return (*func)(tree, dl);
+}
+
+/* make_builtin --- register name to be called as func with a builtin body */
+
+void
+make_builtin(char *name, NODE *(*func) P((NODE *)), int count)
+{
+ NODE *p, *b, *f;
+ char **vnames, *parm_names, *sp;
+ char buf[200];
+ int space_needed, i;
+
+ /* count parameters, create artificial list of param names */
+ space_needed = 0;
+ for (i = 0; i < count; i++) {
+ sprintf(buf, "p%d", i);
+ space_needed += strlen(buf) + 1;
+ }
+ emalloc(parm_names, char *, space_needed, "make_builtin");
+ emalloc(vnames, char **, count * sizeof(char *), "make_builtin");
+ sp = parm_names;
+ for (i = 0; i < count; i++) {
+ sprintf(sp, "p%d",i);
+ vnames[i] = sp;
+ sp += strlen(sp) + 1;
+ }
+
+ getnode(p);
+ p->type = Node_param_list;
+ p->rnode = NULL;
+ p->param = name;
+ p->param_cnt = count;
+#if 0
+ /* setting these blows away the param_cnt. dang unions! */
+ p->source_line = __LINE__;
+ p->source_file = __FILE__;
+#endif
+
+ getnode(b);
+ b->type = Node_builtin;
+ b->proc = func;
+ b->subnode = p;
+ b->source_line = __LINE__;
+ b->source_file = __FILE__;
+
+ f = node(p, Node_func, b);
+ f->parmlist = vnames;
+ install(name, f);
+}
+
+/* get_argument --- Get the n'th argument of a dynamically linked function */
+
+NODE *
+get_argument(NODE *tree, int i)
+{
+ extern NODE **stack_ptr;
+
+ if (i < 0 || i >= tree->param_cnt)
+ return NULL;
+
+ tree = stack_ptr[i];
+ if (tree->lnode == Nnull_string)
+ return NULL;
+
+ if (tree->type == Node_array_ref)
+ tree = tree->orig_array;
+
+ if (tree->type == Node_var_array)
+ return tree;
+
+ return tree->lnode;
+}
+
+/* set_value --- set the return value of a dynamically linked function */
+
+void
+set_value(NODE *tree)
+{
+ extern NODE *ret_node;
+
+ if (tree)
+ ret_node = tree;
+ else
+ ret_node = Nnull_string;
+}
+#else
+
+/* do_ext --- dummy version if extensions not available */
+
+NODE *
+do_ext(NODE *tree)
+{
+ char *emsg = _("Operation Not Supported");
+
+ unref(ERRNO_node->var_value);
+ ERRNO_node->var_value = make_string(emsg, strlen(emsg));
+ return tmp_number((AWKNUM) -1);
+}
+#endif
diff --git a/extension/dl.c b/extension/dl.c
new file mode 100644
index 00000000..0f1e1c5c
--- /dev/null
+++ b/extension/dl.c
@@ -0,0 +1,96 @@
+/*
+ * dl.c - Example of adding a new builtin function to gawk.
+ *
+ * Christos Zoulas, Thu Jun 29 17:40:41 EDT 1995
+ * Arnold Robbins, update for 3.1, Wed Sep 13 09:38:56 2000
+ */
+
+/*
+ * Copyright (C) 1995 - 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#include "awk.h"
+#include <dlfcn.h>
+
+static void *sdl = NULL;
+
+static NODE *
+zaxxon(tree)
+NODE *tree;
+{
+ NODE *obj;
+ int i;
+ int comma = 0;
+
+ /*
+ * Print the arguments
+ */
+ printf("External linkage %s(", tree->param);
+
+ for (i = 0; i < tree->param_cnt; i++) {
+
+ obj = get_argument(tree, i);
+
+ if (obj == NULL)
+ break;
+
+ force_string(obj);
+
+ printf(comma ? ", %s" : "%s", obj->stptr);
+ free_temp(obj);
+ comma = 1;
+ }
+
+ printf(");\n");
+
+ /*
+ * Do something useful
+ */
+ obj = get_argument(tree, 0);
+
+ if (obj != NULL) {
+ force_string(obj);
+ if (strcmp(obj->stptr, "unload") == 0 && sdl) {
+ /*
+ * XXX: How to clean up the function?
+ * I would like the ability to remove a function...
+ */
+ dlclose(sdl);
+ sdl = NULL;
+ }
+ free_temp(obj);
+ }
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) 3.14));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+}
+
+NODE *
+dlload(tree, dl)
+NODE *tree;
+void *dl;
+{
+ sdl = dl;
+ make_builtin("zaxxon", zaxxon, 4);
+ return tmp_number((AWKNUM) 0);
+}
diff --git a/extension/doit b/extension/doit
new file mode 100755
index 00000000..29dff7d8
--- /dev/null
+++ b/extension/doit
@@ -0,0 +1 @@
+../gawk -f foo.awk
diff --git a/extension/filefuncs.c b/extension/filefuncs.c
new file mode 100644
index 00000000..12badb5b
--- /dev/null
+++ b/extension/filefuncs.c
@@ -0,0 +1,339 @@
+/*
+ * filefuncs.c - Builtin functions that provide initial minimal iterface
+ * to the file system.
+ *
+ * Arnold Robbins, update for 3.1, Mon Nov 23 12:53:39 EST 1998
+ */
+
+/*
+ * Copyright (C) 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#include "awk.h"
+
+#include <sys/sysmacros.h>
+
+/* do_chdir --- provide dynamically loaded chdir() builtin for gawk */
+
+static NODE *
+do_chdir(tree)
+NODE *tree;
+{
+ NODE *newdir;
+ int ret = -1;
+
+ if (do_lint && tree->param_cnt > 1)
+ lintwarn("chdir: called with too many arguments");
+
+ newdir = get_argument(tree, 0);
+ if (newdir != NULL) {
+ (void) force_string(newdir);
+ ret = chdir(newdir->stptr);
+ if (ret < 0)
+ update_ERRNO();
+
+ free_temp(newdir);
+ } else if (do_lint)
+ lintwarn("chdir: called with no arguments");
+
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+}
+
+/* format_mode --- turn a stat mode field into something readable */
+
+static char *
+format_mode(fmode)
+unsigned long fmode;
+{
+ static char outbuf[12];
+ int i;
+
+ strcpy(outbuf, "----------");
+ /* first, get the file type */
+ i = 0;
+ switch (fmode & S_IFMT) {
+#ifdef S_IFSOCK
+ case S_IFSOCK:
+ outbuf[i] = 's';
+ break;
+#endif
+#ifdef S_IFLNK
+ case S_IFLNK:
+ outbuf[i] = 'l';
+ break;
+#endif
+ case S_IFREG:
+ outbuf[i] = '-'; /* redundant */
+ break;
+ case S_IFBLK:
+ outbuf[i] = 'b';
+ break;
+ case S_IFDIR:
+ outbuf[i] = 'd';
+ break;
+#ifdef S_IFDOOR /* Solaris weirdness */
+ case S_IFDOOR:
+ outbuf[i] = 'D';
+ break;
+#endif /* S_IFDOOR */
+ case S_IFCHR:
+ outbuf[i] = 'c';
+ break;
+#ifdef S_IFIFO
+ case S_IFIFO:
+ outbuf[i] = 'p';
+ break;
+#endif
+ }
+
+ i++;
+ if ((fmode & S_IRUSR) != 0)
+ outbuf[i] = 'r';
+ i++;
+ if ((fmode & S_IWUSR) != 0)
+ outbuf[i] = 'w';
+ i++;
+ if ((fmode & S_IXUSR) != 0)
+ outbuf[i] = 'x';
+ i++;
+
+ if ((fmode & S_IRGRP) != 0)
+ outbuf[i] = 'r';
+ i++;
+ if ((fmode & S_IWGRP) != 0)
+ outbuf[i] = 'w';
+ i++;
+ if ((fmode & S_IXGRP) != 0)
+ outbuf[i] = 'x';
+ i++;
+
+ if ((fmode & S_IROTH) != 0)
+ outbuf[i] = 'r';
+ i++;
+ if ((fmode & S_IWOTH) != 0)
+ outbuf[i] = 'w';
+ i++;
+ if ((fmode & S_IXOTH) != 0)
+ outbuf[i] = 'x';
+ i++;
+
+ outbuf[i] = '\0';
+
+ if ((fmode & S_ISUID) != 0) {
+ if (outbuf[3] == 'x')
+ outbuf[3] = 's';
+ else
+ outbuf[3] = 'S';
+ }
+
+ /* setgid without execute == locking */
+ if ((fmode & S_ISGID) != 0) {
+ if (outbuf[6] == 'x')
+ outbuf[6] = 's';
+ else
+ outbuf[6] = 'l';
+ }
+
+ if ((fmode & S_ISVTX) != 0) {
+ if (outbuf[9] == 'x')
+ outbuf[9] = 't';
+ else
+ outbuf[9] = 'T';
+ }
+
+ return outbuf;
+}
+
+/* do_stat --- provide a stat() function for gawk */
+
+static NODE *
+do_stat(tree)
+NODE *tree;
+{
+ NODE *file, *array;
+ struct stat sbuf;
+ int ret;
+ NODE **aptr;
+ char *pmode; /* printable mode */
+ char *type = "unknown";
+
+ /* check arg count */
+ if (tree->param_cnt != 2)
+ fatal(
+ "stat: called with incorrect number of arguments (%d), should be 2",
+ tree->param_cnt);
+
+ /* directory is first arg, array to hold results is second */
+ file = get_argument(tree, 0);
+ array = get_argument(tree, 1);
+
+ /* empty out the array */
+ assoc_clear(array);
+
+ /* lstat the file, if error, set ERRNO and return */
+ (void) force_string(file);
+ ret = lstat(file->stptr, & sbuf);
+ if (ret < 0) {
+ update_ERRNO();
+
+ set_value(tmp_number((AWKNUM) ret));
+
+ free_temp(file);
+ return tmp_number((AWKNUM) 0);
+ }
+
+ /* fill in the array */
+ aptr = assoc_lookup(array, tmp_string("name", 4), FALSE);
+ *aptr = dupnode(file);
+
+ aptr = assoc_lookup(array, tmp_string("dev", 3), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_dev);
+
+ aptr = assoc_lookup(array, tmp_string("ino", 3), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_ino);
+
+ aptr = assoc_lookup(array, tmp_string("mode", 4), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_mode);
+
+ aptr = assoc_lookup(array, tmp_string("nlink", 5), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_nlink);
+
+ aptr = assoc_lookup(array, tmp_string("uid", 3), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_uid);
+
+ aptr = assoc_lookup(array, tmp_string("gid", 3), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_gid);
+
+ aptr = assoc_lookup(array, tmp_string("size", 4), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_size);
+
+ aptr = assoc_lookup(array, tmp_string("blocks", 6), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_blocks);
+
+ aptr = assoc_lookup(array, tmp_string("atime", 5), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_atime);
+
+ aptr = assoc_lookup(array, tmp_string("mtime", 5), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_mtime);
+
+ aptr = assoc_lookup(array, tmp_string("ctime", 5), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_ctime);
+
+ /* for block and character devices, add rdev, major and minor numbers */
+ if (S_ISBLK(sbuf.st_mode) || S_ISCHR(sbuf.st_mode)) {
+ aptr = assoc_lookup(array, tmp_string("rdev", 4), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_rdev);
+
+ aptr = assoc_lookup(array, tmp_string("major", 5), FALSE);
+ *aptr = make_number((AWKNUM) major(sbuf.st_rdev));
+
+ aptr = assoc_lookup(array, tmp_string("minor", 5), FALSE);
+ *aptr = make_number((AWKNUM) minor(sbuf.st_rdev));
+ }
+
+#ifdef HAVE_ST_BLKSIZE
+ aptr = assoc_lookup(array, tmp_string("blksize", 7), FALSE);
+ *aptr = make_number((AWKNUM) sbuf.st_blksize);
+#endif /* HAVE_ST_BLKSIZE */
+
+ aptr = assoc_lookup(array, tmp_string("pmode", 5), FALSE);
+ pmode = format_mode(sbuf.st_mode);
+ *aptr = make_string(pmode, strlen(pmode));
+
+ /* for symbolic links, add a linkval field */
+ if (S_ISLNK(sbuf.st_mode)) {
+ char buf[BUFSIZ*2];
+ int linksize;
+
+ linksize = readlink(file->stptr, buf, sizeof buf);
+ /* should make this smarter */
+ if (linksize == sizeof(buf))
+ fatal("size of symbolic link too big");
+ buf[linksize] = '\0';
+
+ aptr = assoc_lookup(array, tmp_string("linkval", 7), FALSE);
+ *aptr = make_string(buf, linksize);
+ }
+
+ /* add a type field */
+ switch (sbuf.st_mode & S_IFMT) {
+#ifdef S_IFSOCK
+ case S_IFSOCK:
+ type = "socket";
+ break;
+#endif
+#ifdef S_IFLNK
+ case S_IFLNK:
+ type = "symlink";
+ break;
+#endif
+ case S_IFREG:
+ type = "file";
+ break;
+ case S_IFBLK:
+ type = "blockdev";
+ break;
+ case S_IFDIR:
+ type = "directory";
+ break;
+#ifdef S_IFDOOR
+ case S_IFDOOR:
+ type = "door";
+ break;
+#endif
+ case S_IFCHR:
+ type = "chardev";
+ break;
+#ifdef S_IFIFO
+ case S_IFIFO:
+ type = "fifo";
+ break;
+#endif
+ }
+
+ aptr = assoc_lookup(array, tmp_string("type", 4), FALSE);
+ *aptr = make_string(type, strlen(type));
+
+ free_temp(file);
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+}
+
+/* dlload --- load new builtins in this library */
+
+NODE *
+dlload(tree, dl)
+NODE *tree;
+void *dl;
+{
+ make_builtin("chdir", do_chdir, 1);
+ make_builtin("stat", do_stat, 2);
+
+ return tmp_number((AWKNUM) 0);
+}
diff --git a/extension/foo.awk b/extension/foo.awk
new file mode 100644
index 00000000..00a89e5b
--- /dev/null
+++ b/extension/foo.awk
@@ -0,0 +1,9 @@
+BEGIN {
+ extension("./dl.so","dlload")
+ zaxxon("hi there", "this is", "a test", "of argument passing")
+ zaxxon(1)
+ zaxxon(1,2)
+ z = zaxxon(1,2,3,4)
+ z = zaxxon(1,zaxxon(zaxxon("foo")),3,4)
+ print z
+}
diff --git a/extension/fork.c b/extension/fork.c
new file mode 100644
index 00000000..038a1689
--- /dev/null
+++ b/extension/fork.c
@@ -0,0 +1,106 @@
+/*
+ * fork.c - Provide fork and waitpid functions for gawk.
+ */
+
+/*
+ * Copyright (C) 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#include "awk.h"
+#include <sys/wait.h>
+
+/* do_fork --- provide dynamically loaded fork() builtin for gawk */
+
+static NODE *
+do_fork(tree)
+NODE *tree;
+{
+ int ret = -1;
+ NODE **aptr;
+
+ if (do_lint && tree->param_cnt > 0)
+ lintwarn("fork: called with too many arguments");
+
+ ret = fork();
+
+ if (ret < 0)
+ update_ERRNO();
+ else if (ret == 0) {
+ /* update PROCINFO in the child */
+
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("pid", 3), FALSE);
+ (*aptr)->numbr = (AWKNUM) getpid();
+
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("ppid", 4), FALSE);
+ (*aptr)->numbr = (AWKNUM) getppid();
+ }
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+}
+
+
+/* do_waitpid --- provide dynamically loaded waitpid() builtin for gawk */
+
+static NODE *
+do_waitpid(tree)
+NODE *tree;
+{
+ NODE *pidnode;
+ int ret = -1;
+ double pidval;
+ pid_t pid;
+ int options = 0;
+
+ if (do_lint && tree->param_cnt > 1)
+ lintwarn("waitpid: called with too many arguments");
+
+ pidnode = get_argument(tree, 0);
+ if (pidnode != NULL) {
+ pidval = force_number(pidnode);
+ pid = (int) pidval;
+ options = WNOHANG|WUNTRACED;
+ ret = waitpid(pid, NULL, options);
+ if (ret < 0)
+ update_ERRNO();
+ } else if (do_lint)
+ lintwarn("wait: called with no arguments");
+
+ /* Set the return value */
+ set_value(tmp_number((AWKNUM) ret));
+
+ /* Just to make the interpreter happy */
+ return tmp_number((AWKNUM) 0);
+}
+
+/* dlload --- load new builtins in this library */
+
+NODE *
+dlload(tree, dl)
+NODE *tree;
+void *dl;
+{
+ make_builtin("fork", do_fork, 0);
+ make_builtin("waitpid", do_waitpid, 1);
+ return tmp_number((AWKNUM) 0);
+}
diff --git a/extension/steps b/extension/steps
new file mode 100755
index 00000000..61a9e6eb
--- /dev/null
+++ b/extension/steps
@@ -0,0 +1,9 @@
+# what to do under linux to make dl.so
+# Tue Nov 24 15:04:14 EST 1998
+
+gcc -shared -Wall -DHAVE_CONFIG_H -c -O -g -I.. dl.c
+gcc -shared -Wall -DHAVE_CONFIG_H -c -O -g -I.. filefuncs.c
+gcc -shared -Wall -DHAVE_CONFIG_H -c -O -g -I.. fork.c
+ld -o dl.so -shared dl.o
+ld -o filefuncs.so -shared filefuncs.o
+ld -o fork.so -shared fork.o
diff --git a/extension/testff.awk b/extension/testff.awk
new file mode 100644
index 00000000..0a0a9b2f
--- /dev/null
+++ b/extension/testff.awk
@@ -0,0 +1,30 @@
+BEGIN {
+ extension("./filefuncs.so", "dlload")
+
+# printf "before: "
+# fflush()
+# system("pwd")
+#
+# chdir("..")
+#
+# printf "after: "
+# fflush()
+# system("pwd")
+
+ chdir(".")
+
+ data[1] = 1
+ print "Info for testff.awk"
+ ret = stat("testff.awk", data)
+ print "ret =", ret
+ for (i in data)
+ printf "data[\"%s\"] = %s\n", i, data[i]
+ print "testff.awk modified:", strftime("%m %d %y %H:%M:%S", data["mtime"])
+
+ print "\nInfo for JUNK"
+ ret = stat("JUNK", data)
+ print "ret =", ret
+ for (i in data)
+ printf "data[\"%s\"] = %s\n", i, data[i]
+ print "JUNK modified:", strftime("%m %d %y %H:%M:%S", data["mtime"])
+}
diff --git a/extension/testfork.awk b/extension/testfork.awk
new file mode 100644
index 00000000..ca00dca8
--- /dev/null
+++ b/extension/testfork.awk
@@ -0,0 +1,20 @@
+BEGIN {
+ extension("./fork.so", "dlload")
+
+ printf "before fork, pid = %d, ppid = %d\n", PROCINFO["pid"],
+ PROCINFO["ppid"]
+
+ fflush()
+ ret = fork()
+ if (ret < 0)
+ printf("ret = %d, ERRNO = %s\n", ret, ERRNO)
+ else if (ret == 0)
+ printf "child, pid = %d, ppid = %d\n", PROCINFO["pid"],
+ PROCINFO["ppid"]
+ else {
+ system("sleep 3")
+ printf "parent, ret = %d\n", ret
+ printf "parent, pid = %d, ppid = %d\n", PROCINFO["pid"],
+ PROCINFO["ppid"]
+ }
+}
diff --git a/field.c b/field.c
index 8cb62775..7ce6fd0a 100644
--- a/field.c
+++ b/field.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -45,6 +45,7 @@ static long fw_parse_field P((long, char **, int, NODE *,
static void set_element P((long num, char * str, long len, NODE *arr));
static void grow_fields_arr P((long num));
static void set_field P((long num, char *str, long len, NODE *dummy));
+static void update_PROCINFO P((char *subscript, char *str));
static char *parse_extent; /* marks where to restart parse of record */
@@ -90,8 +91,7 @@ init_fields()
/* grow_fields --- acquire new fields as needed */
static void
-grow_fields_arr(num)
-long num;
+grow_fields_arr(long num)
{
register int t;
register NODE *n;
@@ -109,11 +109,10 @@ long num;
/*ARGSUSED*/
static void
-set_field(num, str, len, dummy)
-long num;
-char *str;
-long len;
-NODE *dummy; /* not used -- just to make interface same as set_element */
+set_field(long num,
+ char *str,
+ long len,
+ NODE *dummy) /* not used -- just to make interface same as set_element */
{
register NODE *n;
@@ -183,12 +182,13 @@ rebuild_record()
/*
* Since we are about to unref fields_arr[0], we want to find
* any fields that still point into it, and have them point
- * into the new field zero.
+ * into the new field zero. This has to be done intelligently,
+ * so that unrefing a field doesn't try to unref into the old $0.
*/
for (cops = ops, i = 1; i <= NF; i++) {
if (fields_arr[i]->stlen > 0) {
- NODE *n;
- getnode(n);
+ NODE *n;
+ getnode(n);
if ((fields_arr[i]->flags & FIELD) == 0) {
*n = *Null_field;
@@ -226,10 +226,9 @@ rebuild_record()
* but better correct than fast.
*/
void
-set_record(buf, cnt, freeold)
-char *buf; /* ignored if ! freeold */
-int cnt; /* ignored if ! freeold */
-int freeold;
+set_record(char *buf, /* ignored if ! freeold */
+ int cnt, /* ignored if ! freeold */
+ int freeold)
{
register int i;
NODE *n;
@@ -261,12 +260,19 @@ int freeold;
if (databuf_size == 0) { /* first time */
emalloc(databuf, char *, INITIAL_SIZE, "set_record");
databuf_size = INITIAL_SIZE;
+ memset(databuf, '\0', INITIAL_SIZE);
+
}
- /* make sure there's enough room */
- if (cnt > databuf_size) {
- while (cnt > databuf_size && databuf_size <= MAX_SIZE)
+ /*
+ * Make sure there's enough room. Since we sometimes need
+ * to place a sentinel at the end, we make sure
+ * databuf_size is > cnt after allocation.
+ */
+ if (cnt >= databuf_size) {
+ while (cnt >= databuf_size && databuf_size <= MAX_SIZE)
databuf_size *= 2;
erealloc(databuf, char *, databuf_size, "set_record");
+ memset(databuf, '\0', databuf_size);
}
/* copy the data */
memcpy(databuf, buf, cnt);
@@ -338,14 +344,13 @@ set_NF()
* expression -- either user-defined or because RS=="" and FS==" "
*/
static long
-re_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+re_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register long nf = parse_high_water;
@@ -397,14 +402,13 @@ NODE *n;
*/
static long
-def_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+def_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register long nf = parse_high_water;
@@ -465,14 +469,13 @@ NODE *n;
*/
static long
-posix_def_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+posix_def_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register long nf = parse_high_water;
@@ -530,14 +533,13 @@ NODE *n;
* via (*parse_field)(). This variation is for when FS is the null string.
*/
static long
-null_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+null_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register long nf = parse_high_water;
@@ -563,14 +565,13 @@ NODE *n;
* other than space.
*/
static long
-sc_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+sc_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register char fschar;
@@ -590,9 +591,9 @@ NODE *n;
else
fschar = fs->stptr[0];
- onecase = (IGNORECASE && isalpha(fschar));
+ onecase = (IGNORECASE && ISALPHA(fschar));
if (onecase)
- fschar = casetable[(int) fschar];
+ fschar = casetable[(unsigned char) fschar];
/* before doing anything save the char at *end */
sav = *end;
@@ -602,7 +603,7 @@ NODE *n;
for (; nf < up_to;) {
field = scan;
if (onecase) {
- while (casetable[(int) *scan] != fschar)
+ while (casetable[(unsigned char) *scan] != fschar)
scan++;
} else {
while (*scan != fschar)
@@ -632,14 +633,13 @@ NODE *n;
* via (*parse_field)(). This variation is for fields are fixed widths.
*/
static long
-fw_parse_field(up_to, buf, len, fs, rp, set, n)
-long up_to; /* parse only up to this field number */
-char **buf; /* on input: string to parse; on output: point to start next */
-int len;
-NODE *fs;
-Regexp *rp;
-Setfunc set; /* routine to set the value of the parsed field */
-NODE *n;
+fw_parse_field(long up_to, /* parse only up to this field number */
+ char **buf, /* on input: string to parse; on output: point to start next */
+ int len,
+ NODE *fs,
+ Regexp *rp,
+ Setfunc set, /* routine to set the value of the parsed field */
+ NODE *n)
{
register char *scan = *buf;
register long nf = parse_high_water;
@@ -664,10 +664,10 @@ NODE *n;
/* get_field --- return a particular $n */
+/* assign is not NULL if this field is on the LHS of an assign */
+
NODE **
-get_field(requested, assign)
-register long requested;
-Func_ptr *assign; /* this field is on the LHS of an assign */
+get_field(register long requested, Func_ptr *assign)
{
/*
* if requesting whole line but some other field has been altered,
@@ -740,24 +740,19 @@ Func_ptr *assign; /* this field is on the LHS of an assign */
/* set_element --- set an array element, used by do_split() */
static void
-set_element(num, s, len, n)
-long num;
-char *s;
-long len;
-NODE *n;
+set_element(long num, char *s, long len, NODE *n)
{
register NODE *it;
it = make_string(s, len);
it->flags |= MAYBE_NUM;
- *assoc_lookup(n, tmp_number((AWKNUM) (num))) = it;
+ *assoc_lookup(n, tmp_number((AWKNUM) (num)), FALSE) = it;
}
/* do_split --- implement split(), semantics are same as for field splitting */
NODE *
-do_split(tree)
-NODE *tree;
+do_split(NODE *tree)
{
NODE *src, *arr, *sep, *tmp;
NODE *fs;
@@ -789,19 +784,36 @@ NODE *tree;
if (arr->type == Node_array_ref)
arr = arr->orig_array;
if (arr->type != Node_var && arr->type != Node_var_array)
- fatal("second argument of split is not an array");
+ fatal(_("split: second argument is not an array"));
arr->type = Node_var_array;
assoc_clear(arr);
+ if (src->stlen == 0) {
+ /*
+ * Skip the work if first arg is the null string.
+ * Check after clearing the array, to preserve
+ * correct semantics.
+ */
+ tmp = tmp_number((AWKNUM) 0);
+ goto out;
+ }
+
if ((sep->re_flags & FS_DFLT) != 0 && ! using_FIELDWIDTHS()) {
parseit = parse_field;
fs = force_string(FS_node->var_value);
rp = FS_regexp;
} else {
tmp = force_string(tree_eval(sep->re_exp));
- if (tmp->stlen == 0)
+ if (tmp->stlen == 0) {
+ static short warned = FALSE;
+
parseit = null_parse_field;
- else if (tmp->stlen == 1 && (sep->re_flags & CONST) == 0) {
+
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ lintwarn(_("split: null string for third arg is a gawk extension"));
+ }
+ } else if (tmp->stlen == 1 && (sep->re_flags & CONST) == 0) {
if (tmp->stptr[0] == ' ') {
if (do_posix)
parseit = posix_def_parse_field;
@@ -819,6 +831,7 @@ NODE *tree;
s = src->stptr;
tmp = tmp_number((AWKNUM) (*parseit)(HUGE, &s, (int) src->stlen,
fs, rp, set_element, arr));
+out:
unref(src);
free_temp(sep);
return tmp;
@@ -838,7 +851,7 @@ set_FIELDWIDTHS()
if (do_lint && ! warned) {
warned = TRUE;
- warning("use of FIELDWIDTHS is a gawk extension");
+ lintwarn(_("`FIELDWIDTHS' is a gawk extension"));
}
if (do_traditional) /* quick and dirty, does the trick */
return;
@@ -864,9 +877,13 @@ set_FIELDWIDTHS()
FIELDWIDTHS[i] = (int) strtod(scan, &end);
if (end == scan)
break;
+ if (FIELDWIDTHS[i] <= 0)
+ fatal(_("field %d in FIELDWIDTHS, must be > 0"), i);
scan = end;
}
FIELDWIDTHS[i] = -1;
+
+ update_PROCINFO("FS", "FIELDWIDTHS");
}
void
@@ -908,9 +925,16 @@ set_FS()
buf[0] = '\0';
default_FS = FALSE;
fs = force_string(FS_node->var_value);
- if (! do_traditional && fs->stlen == 0)
+ if (! do_traditional && fs->stlen == 0) {
+ static short warned = FALSE;
+
parse_field = null_parse_field;
- else if (fs->stlen > 1)
+
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ lintwarn(_("null string for `FS' is a gawk extension"));
+ }
+ } else if (fs->stlen > 1)
parse_field = re_parse_field;
else if (RS_is_null) {
parse_field = sc_parse_field;
@@ -929,7 +953,7 @@ set_FS()
if (fs->stptr[0] == ' ' && fs->stlen == 1)
default_FS = TRUE;
else if (fs->stptr[0] != ' ' && fs->stlen == 1) {
- if (! IGNORECASE || ! isalpha(fs->stptr[0]))
+ if (! ISALPHA(fs->stptr[0]) || ! IGNORECASE)
parse_field = sc_parse_field;
else if (fs->stptr[0] == '\\')
/* yet another special case */
@@ -945,6 +969,8 @@ set_FS()
FS_regexp = make_regexp(fs->stptr, fs->stlen, IGNORECASE, TRUE);
} else
FS_regexp = NULL;
+
+ update_PROCINFO("FS", "FS");
}
/* using_fieldwidths --- is FS or FIELDWIDTHS in use? */
@@ -954,3 +980,17 @@ using_fieldwidths()
{
return using_FIELDWIDTHS();
}
+
+/* update_PROCINFO --- update PROCINFO[sub] when FS or FIELDWIDTHS set */
+
+static void
+update_PROCINFO(char *subscript, char *str)
+{
+ NODE **aptr;
+
+ if (PROCINFO_node == NULL)
+ return;
+
+ aptr = assoc_lookup(PROCINFO_node, tmp_string(subscript, strlen(subscript)), FALSE);
+ assign_val(aptr, tmp_string(str, strlen(str)));
+}
diff --git a/fixvers b/fixvers
new file mode 100755
index 00000000..f7e419b2
--- /dev/null
+++ b/fixvers
@@ -0,0 +1,58 @@
+#! /bin/sh
+
+# fixvers --- make sure version.c and patchlev.h reflect
+# the reality in configure.in
+#
+# Copyright (C) 2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
+line=`grep AM_INIT_AUTOMAKE configure.in`
+
+case $1 in
+-v)
+ VERS=`echo $line | sed 's/.*, *\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\))/\1.\2/'`
+ sed "s/X\.Y/$VERS/" < version.in > version.new
+ if cmp version.c version.new
+ then
+ :
+ else
+ mv version.new version.c
+ fi
+ touch version.c
+ ;;
+
+-p)
+ LEV=`echo $line | sed 's/.*, *\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\))/\3/'`
+ echo "#define PATCHLEVEL $LEV" > patchlev.new
+ if cmp patchlev.h patchlev.new
+ then
+ :
+ else
+ mv patchlev.new patchlev.h
+ fi
+ touch patchlev.h
+ ;;
+
+*)
+ echo "usage: $0 -v|-p" 1>&2
+ exit 1
+ ;;
+esac
+
+exit 0
diff --git a/gawkmisc.c b/gawkmisc.c
index 23ab42fa..35e5bf9a 100644
--- a/gawkmisc.c
+++ b/gawkmisc.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -25,21 +25,29 @@
#include "awk.h"
+#if defined(HAVE_FCNTL_H)
+#include <fcntl.h>
+#endif
+
/* some old compilers don't grok #elif. sigh */
#if defined(MSDOS) || defined(OS2) || defined(WIN32)
#include "gawkmisc.pc"
-#else
+#else /* not MSDOS, not OS2, not WIN32 */
#if defined(VMS)
#include "vms/gawkmisc.vms"
-#else
+#else /* not VMS */
#if defined(atarist)
-#include "atari/gawkmisc.atr"
-#else
+#include "unsupported/atari/gawkmisc.atr"
+#else /* not atarist */
+#if defined(TANDEM)
+#include "tmiscc"
+#else /* not TANDEM */
#include "posix/gawkmisc.c"
-#endif
-#endif
-#endif
+#endif /* not TANDEM */
+#endif /* not atarist */
+#endif /* not VMS */
+#endif /* not MSDOS, not OS2, not WIN32 */
/* xmalloc --- provide this so that other GNU library routines work */
@@ -52,8 +60,7 @@ typedef char *pointer;
extern pointer xmalloc P((size_t bytes)); /* get rid of gcc warning */
pointer
-xmalloc(bytes)
-size_t bytes;
+xmalloc(size_t bytes)
{
pointer p;
diff --git a/getopt.c b/getopt.c
index eac576b8..0ecad382 100644
--- a/getopt.c
+++ b/getopt.c
@@ -1,14 +1,11 @@
/* Getopt for GNU.
NOTE: getopt is now part of the C library, so if you don't know what
- "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu
+ "Keep this file name-space clean" means, talk to drepper@gnu.org
before changing it!
- Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97
+ Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
Free Software Foundation, Inc.
- This file is part of the GNU C Library. Its master source is NOT part of
- the C library, however. The master source lives in /gd/gnu/lib.
-
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
@@ -27,19 +24,19 @@
/* This tells Alpha OSF/1 not to define a getopt prototype in <stdio.h>.
Ditto for AIX 3.2 and <stdlib.h>. */
#ifndef _NO_PROTO
-#define _NO_PROTO
+# define _NO_PROTO
#endif
#ifdef HAVE_CONFIG_H
-#include <config.h>
+# include <config.h>
#endif
-#if !defined (__STDC__) || !__STDC__
+#if !defined __STDC__ || !__STDC__
/* This is a separate conditional since some stdc systems
reject `defined (const)'. */
-#ifndef const
-#define const
-#endif
+# ifndef const
+# define const
+# endif
#endif
#include <stdio.h>
@@ -53,11 +50,11 @@
it is simpler to just do this in the source for each such file. */
#define GETOPT_INTERFACE_VERSION 2
-#if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2
-#include <gnu-versions.h>
-#if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
-#define ELIDE_CODE
-#endif
+#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
+# include <gnu-versions.h>
+# if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
+# define ELIDE_CODE
+# endif
#endif
#ifndef ELIDE_CODE
@@ -68,32 +65,27 @@
#ifdef __GNU_LIBRARY__
/* Don't include stdlib.h for non-GNU C libraries because some of them
contain conflicting prototypes for getopt. */
-#include <stdlib.h>
-#include <unistd.h>
+# include <stdlib.h>
+# include <unistd.h>
#endif /* GNU C library. */
#ifdef VMS
-#include <unixlib.h>
-#if HAVE_STRING_H - 0
-#include <string.h>
-#endif
-#endif
-
-#if defined (WIN32) && !defined (__CYGWIN32__)
-/* It's not Unix, really. See? Capital letters. */
-#include <windows.h>
-#define getpid() GetCurrentProcessId()
+# include <unixlib.h>
+# if HAVE_STRING_H - 0
+# include <string.h>
+# endif
#endif
#ifndef _
-/* This is for other GNU distributions with internationalized messages.
- When compiling libc, the _ macro is predefined. */
-#ifdef HAVE_LIBINTL_H
-# include <libintl.h>
-# define _(msgid) gettext (msgid)
-#else
-# define _(msgid) (msgid)
-#endif
+/* This is for other GNU distributions with internationalized messages. */
+# if defined HAVE_LIBINTL_H || defined _LIBC
+# include <libintl.h>
+# ifndef _
+# define _(msgid) gettext (msgid)
+# endif
+# else
+# define _(msgid) (msgid)
+# endif
#endif
/* This version of `getopt' appears to the caller like standard Unix `getopt'
@@ -118,7 +110,7 @@
Also, when `ordering' is RETURN_IN_ORDER,
each non-option ARGV-element is returned here. */
-char *optarg = NULL;
+char *optarg;
/* Index in ARGV of the next element to be scanned.
This is used for communication to and from the caller
@@ -139,7 +131,7 @@ int optind = 1;
causes problems with re-calling getopt as programs generally don't
know that. */
-int __getopt_initialized = 0;
+int __getopt_initialized;
/* The next char to be scanned in the option-element
in which the last option character we returned was found.
@@ -203,14 +195,22 @@ static char *posixly_correct;
because there are many ways it can cause trouble.
On some systems, it contains special magic macros that don't work
in GCC. */
-#include <string.h>
-#define my_index strchr
+# include <string.h>
+# define my_index strchr
#else
+# if HAVE_STRING_H
+# include <string.h>
+# else
+# include <strings.h>
+# endif
+
/* Avoid depending on library functions or files
whose names are inconsistent. */
-char *getenv ();
+#ifndef getenv
+extern char *getenv ();
+#endif
static char *
my_index (str, chr)
@@ -231,11 +231,11 @@ my_index (str, chr)
#ifdef __GNUC__
/* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h.
That was relevant to code that was here before. */
-#if !defined (__STDC__) || !__STDC__
+# if (!defined __STDC__ || !__STDC__) && !defined strlen
/* gcc with -traditional declares the built-in strlen to return int,
and has done so at least since version 2.4.5. -- rms. */
extern int strlen (const char *);
-#endif /* not __STDC__ */
+# endif /* not __STDC__ */
#endif /* __GNUC__ */
#endif /* not __GNU_LIBRARY__ */
@@ -253,7 +253,10 @@ static int last_nonopt;
/* Bash 2.0 gives us an environment variable containing flags
indicating ARGV elements that should not be considered arguments. */
-static const char *nonoption_flags;
+/* Defined in getopt_init.c */
+extern char *__getopt_nonoption_flags;
+
+static int nonoption_flags_max_len;
static int nonoption_flags_len;
static int original_argc;
@@ -262,17 +265,29 @@ static char *const *original_argv;
/* Make sure the environment variable bash 2.0 puts in the environment
is valid for the getopt call we must make sure that the ARGV passed
to getopt is that one passed to the process. */
-static void store_args (int argc, char *const *argv) __attribute__ ((unused));
static void
-store_args (int argc, char *const *argv)
+__attribute__ ((unused))
+store_args_and_env (int argc, char *const *argv)
{
/* XXX This is no good solution. We should rather copy the args so
that we can compare them later. But we must not use malloc(3). */
original_argc = argc;
original_argv = argv;
}
-text_set_element (__libc_subinit, store_args);
-#endif
+# ifdef text_set_element
+text_set_element (__libc_subinit, store_args_and_env);
+# endif /* text_set_element */
+
+# define SWAP_FLAGS(ch1, ch2) \
+ if (nonoption_flags_len > 0) \
+ { \
+ char __tmp = __getopt_nonoption_flags[ch1]; \
+ __getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \
+ __getopt_nonoption_flags[ch2] = __tmp; \
+ }
+#else /* !_LIBC */
+# define SWAP_FLAGS(ch1, ch2)
+#endif /* _LIBC */
/* Exchange two adjacent subsequences of ARGV.
One subsequence is elements [first_nonopt,last_nonopt)
@@ -283,7 +298,7 @@ text_set_element (__libc_subinit, store_args);
`first_nonopt' and `last_nonopt' are relocated so that they describe
the new indices of the non-options in ARGV after they are moved. */
-#if defined (__STDC__) && __STDC__
+#if defined __STDC__ && __STDC__
static void exchange (char **);
#endif
@@ -301,6 +316,28 @@ exchange (argv)
It leaves the longer segment in the right place overall,
but it consists of two parts that need to be swapped next. */
+#ifdef _LIBC
+ /* First make sure the handling of the `__getopt_nonoption_flags'
+ string can work normally. Our top argument must be in the range
+ of the string. */
+ if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len)
+ {
+ /* We must extend the array. The user plays games with us and
+ presents new arguments. */
+ char *new_str = malloc (top + 1);
+ if (new_str == NULL)
+ nonoption_flags_len = nonoption_flags_max_len = 0;
+ else
+ {
+ memset (__mempcpy (new_str, __getopt_nonoption_flags,
+ nonoption_flags_max_len),
+ '\0', top + 1 - nonoption_flags_max_len);
+ nonoption_flags_max_len = top + 1;
+ __getopt_nonoption_flags = new_str;
+ }
+ }
+#endif
+
while (top > middle && middle > bottom)
{
if (top - middle > middle - bottom)
@@ -315,6 +352,7 @@ exchange (argv)
tem = argv[bottom + i];
argv[bottom + i] = argv[top - (middle - bottom) + i];
argv[top - (middle - bottom) + i] = tem;
+ SWAP_FLAGS (bottom + i, top - (middle - bottom) + i);
}
/* Exclude the moved bottom segment from further swapping. */
top -= len;
@@ -331,6 +369,7 @@ exchange (argv)
tem = argv[bottom + i];
argv[bottom + i] = argv[middle + i];
argv[middle + i] = tem;
+ SWAP_FLAGS (bottom + i, middle + i);
}
/* Exclude the moved top segment from further swapping. */
bottom += len;
@@ -345,7 +384,7 @@ exchange (argv)
/* Initialize the internal data when the first call is made. */
-#if defined (__STDC__) && __STDC__
+#if defined __STDC__ && __STDC__
static const char *_getopt_initialize (int, char *const *, const char *);
#endif
static const char *
@@ -358,7 +397,7 @@ _getopt_initialize (argc, argv, optstring)
is the program name); the sequence of previously skipped
non-option ARGV-elements is empty. */
- first_nonopt = last_nonopt = optind = 1;
+ first_nonopt = last_nonopt = optind;
nextchar = NULL;
@@ -385,17 +424,27 @@ _getopt_initialize (argc, argv, optstring)
if (posixly_correct == NULL
&& argc == original_argc && argv == original_argv)
{
- /* Bash 2.0 puts a special variable in the environment for each
- command it runs, specifying which ARGV elements are the results of
- file name wildcard expansion and therefore should not be
- considered as options. */
- char var[100];
- sprintf (var, "_%d_GNU_nonoption_argv_flags_", getpid ());
- nonoption_flags = getenv (var);
- if (nonoption_flags == NULL)
- nonoption_flags_len = 0;
- else
- nonoption_flags_len = strlen (nonoption_flags);
+ if (nonoption_flags_max_len == 0)
+ {
+ if (__getopt_nonoption_flags == NULL
+ || __getopt_nonoption_flags[0] == '\0')
+ nonoption_flags_max_len = -1;
+ else
+ {
+ const char *orig_str = __getopt_nonoption_flags;
+ int len = nonoption_flags_max_len = strlen (orig_str);
+ if (nonoption_flags_max_len < argc)
+ nonoption_flags_max_len = argc;
+ __getopt_nonoption_flags =
+ (char *) malloc (nonoption_flags_max_len);
+ if (__getopt_nonoption_flags == NULL)
+ nonoption_flags_max_len = -1;
+ else
+ memset (__mempcpy (__getopt_nonoption_flags, orig_str, len),
+ '\0', nonoption_flags_max_len - len);
+ }
+ }
+ nonoption_flags_len = nonoption_flags_max_len;
}
else
nonoption_flags_len = 0;
@@ -469,12 +518,20 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
int *longind;
int long_only;
{
+ int print_errors = opterr;
+ if (optstring[0] == ':')
+ print_errors = 0;
+
+ if (argc < 1)
+ return -1;
+
optarg = NULL;
- if (!__getopt_initialized || optind == 0)
+ if (optind == 0 || !__getopt_initialized)
{
+ if (optind == 0)
+ optind = 1; /* Don't scan ARGV[0], the program name. */
optstring = _getopt_initialize (argc, argv, optstring);
- optind = 1; /* Don't scan ARGV[0], the program name. */
__getopt_initialized = 1;
}
@@ -483,11 +540,11 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
from the shell indicating it is not an option. The later information
is only used when the used in the GNU libc. */
#ifdef _LIBC
-#define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \
- || (optind < nonoption_flags_len \
- && nonoption_flags[optind] == '1'))
+# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \
+ || (optind < nonoption_flags_len \
+ && __getopt_nonoption_flags[optind] == '1'))
#else
-#define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0')
+# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0')
#endif
if (nextchar == NULL || *nextchar == '\0')
@@ -617,14 +674,17 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
pfound = p;
indfound = option_index;
}
- else
+ else if (long_only
+ || pfound->has_arg != p->has_arg
+ || pfound->flag != p->flag
+ || pfound->val != p->val)
/* Second or later nonexact match found. */
ambig = 1;
}
if (ambig && !exact)
{
- if (opterr)
+ if (print_errors)
fprintf (stderr, _("%s: option `%s' is ambiguous\n"),
argv[0], argv[optind]);
nextchar += strlen (nextchar);
@@ -645,17 +705,19 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
optarg = nameend + 1;
else
{
- if (opterr)
- if (argv[optind - 1][1] == '-')
- /* --option */
- fprintf (stderr,
- _("%s: option `--%s' doesn't allow an argument\n"),
- argv[0], pfound->name);
- else
- /* +option or -option */
- fprintf (stderr,
- _("%s: option `%c%s' doesn't allow an argument\n"),
- argv[0], argv[optind - 1][0], pfound->name);
+ if (print_errors)
+ {
+ if (argv[optind - 1][1] == '-')
+ /* --option */
+ fprintf (stderr,
+ _("%s: option `--%s' doesn't allow an argument\n"),
+ argv[0], pfound->name);
+ else
+ /* +option or -option */
+ fprintf (stderr,
+ _("%s: option `%c%s' doesn't allow an argument\n"),
+ argv[0], argv[optind - 1][0], pfound->name);
+ }
nextchar += strlen (nextchar);
@@ -669,7 +731,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
optarg = argv[optind++];
else
{
- if (opterr)
+ if (print_errors)
fprintf (stderr,
_("%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]);
@@ -696,7 +758,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
if (!long_only || argv[optind][1] == '-'
|| my_index (optstring, *nextchar) == NULL)
{
- if (opterr)
+ if (print_errors)
{
if (argv[optind][1] == '-')
/* --option */
@@ -726,7 +788,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
if (temp == NULL || c == ':')
{
- if (opterr)
+ if (print_errors)
{
if (posixly_correct)
/* 1003.2 specifies the format of this message. */
@@ -760,7 +822,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
}
else if (optind == argc)
{
- if (opterr)
+ if (print_errors)
{
/* 1003.2 specifies the format of this message. */
fprintf (stderr, _("%s: option requires an argument -- %c\n"),
@@ -809,7 +871,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
}
if (ambig && !exact)
{
- if (opterr)
+ if (print_errors)
fprintf (stderr, _("%s: option `-W %s' is ambiguous\n"),
argv[0], argv[optind]);
nextchar += strlen (nextchar);
@@ -827,7 +889,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
optarg = nameend + 1;
else
{
- if (opterr)
+ if (print_errors)
fprintf (stderr, _("\
%s: option `-W %s' doesn't allow an argument\n"),
argv[0], pfound->name);
@@ -842,7 +904,7 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
optarg = argv[optind++];
else
{
- if (opterr)
+ if (print_errors)
fprintf (stderr,
_("%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]);
@@ -889,12 +951,12 @@ _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
}
else if (optind == argc)
{
- if (opterr)
+ if (print_errors)
{
/* 1003.2 specifies the format of this message. */
fprintf (stderr,
- _("%s: option requires an argument -- %c\n"),
- argv[0], c);
+ _("%s: option requires an argument -- %c\n"),
+ argv[0], c);
}
optopt = c;
if (optstring[0] == ':')
diff --git a/getopt.h b/getopt.h
index 7dad11b7..64390209 100644
--- a/getopt.h
+++ b/getopt.h
@@ -1,8 +1,6 @@
/* Declarations for getopt.
- Copyright (C) 1989,90,91,92,93,94,96,97 Free Software Foundation, Inc.
-
- This file is part of the GNU C Library. Its master source is NOT part of
- the C library, however. The master source lives in /gd/gnu/lib.
+ Copyright (C) 1989,90,91,92,93,94,96,97,98,99 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
@@ -20,7 +18,21 @@
Boston, MA 02111-1307, USA. */
#ifndef _GETOPT_H
-#define _GETOPT_H 1
+
+#ifndef __need_getopt
+# define _GETOPT_H 1
+#endif
+
+/* If __GNU_LIBRARY__ is not already defined, either we are being used
+ standalone, or this is the first header included in the source file.
+ If we are being used with glibc, we need to include <features.h>, but
+ that does not exist if we are standalone. So: if __GNU_LIBRARY__ is
+ not defined, include <ctype.h>, which will pull in <features.h> for us
+ if it's from glibc. (Why ctype.h? It's guaranteed to exist and it
+ doesn't flood the namespace with stuff the way some other headers do.) */
+#if !defined __GNU_LIBRARY__
+# include <ctype.h>
+#endif
#ifdef __cplusplus
extern "C" {
@@ -57,6 +69,7 @@ extern int opterr;
extern int optopt;
+#ifndef __need_getopt
/* Describe the long-named options requested by the application.
The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector
of `struct option' terminated by an element containing a name which is
@@ -80,11 +93,11 @@ extern int optopt;
struct option
{
-#if defined (__STDC__) && __STDC__
+# if defined __STDC__ && __STDC__
const char *name;
-#else
+# else
char *name;
-#endif
+# endif
/* has_arg can't be an enum because some compilers complain about
type mismatches in all the code that assumes it is an int. */
int has_arg;
@@ -94,40 +107,74 @@ struct option
/* Names for the values of the `has_arg' field of `struct option'. */
-#define no_argument 0
-#define required_argument 1
-#define optional_argument 2
+# define no_argument 0
+# define required_argument 1
+# define optional_argument 2
+#endif /* need getopt */
+
+
+/* Get definitions and prototypes for functions to process the
+ arguments in ARGV (ARGC of them, minus the program name) for
+ options given in OPTS.
-#if defined (__STDC__) && __STDC__
-#ifdef __GNU_LIBRARY__
+ Return the option character from OPTS just read. Return -1 when
+ there are no more options. For unrecognized options, or options
+ missing arguments, `optopt' is set to the option letter, and '?' is
+ returned.
+
+ The OPTS string is a list of characters which are recognized option
+ letters, optionally followed by colons, specifying that that letter
+ takes an argument, to be placed in `optarg'.
+
+ If a letter in OPTS is followed by two colons, its argument is
+ optional. This behavior is specific to the GNU `getopt'.
+
+ The argument `--' causes premature termination of argument
+ scanning, explicitly telling `getopt' that there are no more
+ options.
+
+ If OPTS begins with `--', then non-option arguments are treated as
+ arguments to the option '\0'. This behavior is specific to the GNU
+ `getopt'. */
+
+#if defined __STDC__ && __STDC__
+# ifdef __GNU_LIBRARY__
/* Many other libraries have conflicting prototypes for getopt, with
differences in the consts, in stdlib.h. To avoid compilation
errors, only prototype getopt for the GNU C library. */
-extern int getopt (int argc, char *const *argv, const char *shortopts);
-#else /* not __GNU_LIBRARY__ */
+extern int getopt (int __argc, char *const *__argv, const char *__shortopts);
+# else /* not __GNU_LIBRARY__ */
extern int getopt ();
-#endif /* __GNU_LIBRARY__ */
-extern int getopt_long (int argc, char *const *argv, const char *shortopts,
- const struct option *longopts, int *longind);
-extern int getopt_long_only (int argc, char *const *argv,
- const char *shortopts,
- const struct option *longopts, int *longind);
+# endif /* __GNU_LIBRARY__ */
+
+# ifndef __need_getopt
+extern int getopt_long (int, char *const *, const char *,
+ const struct option *, int *);
+extern int getopt_long_only (int , char *const *,
+ const char *,
+ const struct option *, int *);
/* Internal only. Users should not call this directly. */
-extern int _getopt_internal (int argc, char *const *argv,
- const char *shortopts,
- const struct option *longopts, int *longind,
- int long_only);
+extern int _getopt_internal (int __argc, char *const *__argv,
+ const char *__shortopts,
+ const struct option *__longopts, int *__longind,
+ int __long_only);
+# endif
#else /* not __STDC__ */
extern int getopt ();
+# ifndef __need_getopt
extern int getopt_long ();
extern int getopt_long_only ();
extern int _getopt_internal ();
+# endif
#endif /* __STDC__ */
#ifdef __cplusplus
}
#endif
-#endif /* _GETOPT_H */
+/* Make sure we later can get all the definitions and declarations. */
+#undef __need_getopt
+
+#endif /* getopt.h */
diff --git a/getopt1.c b/getopt1.c
index 8347bb13..3d264f2d 100644
--- a/getopt1.c
+++ b/getopt1.c
@@ -1,8 +1,7 @@
/* getopt_long and getopt_long_only entry points for GNU getopt.
- Copyright (C) 1987,88,89,90,91,92,93,94,96,97 Free Software Foundation, Inc.
-
- This file is part of the GNU C Library. Its master source is NOT part of
- the C library, however. The master source lives in /gd/gnu/lib.
+ Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98
+ Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
@@ -25,7 +24,7 @@
#include "getopt.h"
-#if !defined (__STDC__) || !__STDC__
+#if !defined __STDC__ || !__STDC__
/* This is a separate conditional since some stdc systems
reject `defined (const)'. */
#ifndef const
@@ -44,7 +43,7 @@
it is simpler to just do this in the source for each such file. */
#define GETOPT_INTERFACE_VERSION 2
-#if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2
+#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
#include <gnu-versions.h>
#if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
#define ELIDE_CODE
diff --git a/intl/ChangeLog b/intl/ChangeLog
new file mode 100644
index 00000000..19895015
--- /dev/null
+++ b/intl/ChangeLog
@@ -0,0 +1,1086 @@
+1998-04-29 Ulrich Drepper <drepper@cygnus.com>
+
+ * intl/localealias.c (read_alias_file): Use unsigned char for
+ local variables. Remove unused variable tp.
+ * intl/l10nflist.c (_nl_normalize_codeset): Use unsigned char *
+ for type of codeset. For loosing Solaris systems.
+ * intl/loadinfo.h: Adapt prototype of _nl_normalize_codeset.
+ * intl/bindtextdom.c (BINDTEXTDOMAIN): Don't define local variable
+ len if not needed.
+ Patches by Jim Meyering.
+
+1998-04-28 Ulrich Drepper <drepper@cygnus.com>
+
+ * loadmsgcat.c (_nl_load_domain): Don't assign the element use_mmap if
+ mmap is not supported.
+
+ * hash-string.h: Don't include <values.h>.
+
+1998-04-27 Ulrich Drepper <drepper@cygnus.com>
+
+ * textdomain.c: Use strdup is available.
+
+ * localealias.c: Define HAVE_MEMPCPY so that we can use this
+ function. Define and use semapahores to protect modfication of
+ global objects when compiling for glibc. Add code to allow
+ freeing alias table.
+
+ * l10nflist.c: Don't assume stpcpy not being a macro.
+
+ * gettextP.h: Define internal_function macri if not already done.
+ Use glibc byte-swap macros instead of defining SWAP when compiled
+ for glibc.
+ (struct loaded_domain): Add elements to allow unloading.
+
+ * Makefile.in (distclean): Don't remove libintl.h here.
+
+ * bindtextdomain.c: Carry over changes from glibc. Use strdup if
+ available.
+
+ * dcgettext.c: Don't assume stpcpy not being a macro. Mark internal
+ functions. Add memory freeing code for glibc.
+
+ * dgettext.c: Update copyright.
+
+ * explodename.c: Include stdlib.h and string.h only if they exist.
+ Use strings.h eventually.
+
+ * finddomain.c: Mark internal functions. Use strdup if available.
+ Add memory freeing code for glibc.
+
+1997-10-10 20:00 Ulrich Drepper <drepper@cygnus.com>
+
+ * libgettext.h: Fix dummy textdomain and bindtextdomain macros.
+ They should return reasonable values.
+ Reported by Tom Tromey <tromey@cygnus.com>.
+
+1997-09-16 03:33 Ulrich Drepper <drepper@cygnus.com>
+
+ * libgettext.h: Define PARAMS also to `args' if __cplusplus is defined.
+ * intlh.inst.in: Likewise.
+ Reported by Jean-Marc Lasgouttes <Jean-Marc.Lasgouttes@inria.fr>.
+
+ * libintl.glibc: Update from current glibc version.
+
+1997-09-06 02:10 Ulrich Drepper <drepper@cygnus.com>
+
+ * intlh.inst.in: Reformat copyright.
+
+1997-08-19 15:22 Ulrich Drepper <drepper@cygnus.com>
+
+ * dcgettext.c (DCGETTEXT): Remove wrong comment.
+
+1997-08-16 00:13 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (install-data): Don't change directory to install.
+
+1997-08-01 14:30 Ulrich Drepper <drepper@cygnus.com>
+
+ * cat-compat.c: Fix copyright.
+
+ * localealias.c: Don't define strchr unless !HAVE_STRCHR.
+
+ * loadmsgcat.c: Update copyright. Fix typos.
+
+ * l10nflist.c: Don't define strchr unless !HAVE_STRCHR.
+ (_nl_make_l10nflist): Handle sponsor and revision correctly.
+
+ * gettext.c: Update copyright.
+ * gettext.h: Likewise.
+ * hash-string.h: Likewise.
+
+ * finddomain.c: Remoave dead code. Define strchr only if
+ !HAVE_STRCHR.
+
+ * explodename.c: Include <sys/types.h>.
+
+ * explodename.c: Reformat copyright text.
+ (_nl_explode_name): Fix typo.
+
+ * dcgettext.c: Define and use __set_errno.
+ (guess_category_value): Don't use setlocale if HAVE_LC_MESSAGES is
+ not defined.
+
+ * bindtextdom.c: Pretty printing.
+
+1997-05-01 02:25 Ulrich Drepper <drepper@cygnus.com>
+
+ * dcgettext.c (guess_category_value): Don't depend on
+ HAVE_LC_MESSAGES. We don't need the macro here.
+ Patch by Bruno Haible <haible@ilog.fr>.
+
+ * cat-compat.c (textdomain): DoN't refer to HAVE_SETLOCALE_NULL
+ macro. Instead use HAVE_LOCALE_NULL and define it when using
+ glibc, as in dcgettext.c.
+ Patch by Bruno Haible <haible@ilog.fr>.
+
+ * Makefile.in (CPPFLAGS): New variable. Reported by Franc,ois
+ Pinard.
+
+Mon Mar 10 06:51:17 1997 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in: Implement handling of libtool.
+
+ * gettextP.h: Change data structures for use of generic lowlevel
+ i18n file handling.
+
+Wed Dec 4 20:21:18 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * textdomain.c: Put parentheses around arguments of memcpy macro
+ definition.
+ * localealias.c: Likewise.
+ * l10nflist.c: Likewise.
+ * finddomain.c: Likewise.
+ * bindtextdom.c: Likewise.
+ Reported by Thomas Esken.
+
+Mon Nov 25 22:57:51 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * textdomain.c: Move definition of `memcpy` macro to right
+ position.
+
+Fri Nov 22 04:01:58 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * finddomain.c [!HAVE_STRING_H && !_LIBC]: Define memcpy using
+ bcopy if not already defined. Reported by Thomas Esken.
+ * bindtextdom.c: Likewise.
+ * l10nflist.c: Likewise.
+ * localealias.c: Likewise.
+ * textdomain.c: Likewise.
+
+Tue Oct 29 11:10:27 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (libdir): Change to use exec_prefix instead of
+ prefix. Reported by Knut-HåvardAksnes <etokna@eto.ericsson.se>.
+
+Sat Aug 31 03:07:09 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * l10nflist.c (_nl_normalize_codeset): We convert to lower case,
+ so don't prepend uppercase `ISO' for only numeric arg.
+
+Fri Jul 19 00:15:46 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * l10nflist.c: Move inclusion of argz.h, ctype.h, stdlib.h after
+ definition of _GNU_SOURCE. Patch by Roland McGrath.
+
+ * Makefile.in (uninstall): Fix another bug with `for' loop and
+ empty arguments. Patch by Jim Meyering. Correct name os
+ uninstalled files: no intl- prefix anymore.
+
+ * Makefile.in (install-data): Again work around shells which
+ cannot handle mpty for list. Reported by Jim Meyering.
+
+Sat Jul 13 18:11:35 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (install): Split goal. Now depend on install-exec
+ and install-data.
+ (install-exec, install-data): New goals. Created from former
+ install goal.
+ Reported by Karl Berry.
+
+Sat Jun 22 04:58:14 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (MKINSTALLDIRS): New variable. Path to
+ mkinstalldirs script.
+ (install): use MKINSTALLDIRS variable or if the script is not present
+ try to find it in the $top_scrdir).
+
+Wed Jun 19 02:56:56 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * l10nflist.c: Linux libc *partly* includes the argz_* functions.
+ Grr. Work around by renaming the static version and use macros
+ for renaming.
+
+Tue Jun 18 20:11:17 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * l10nflist.c: Correct presence test macros of __argz_* functions.
+
+ * l10nflist.c: Include <argz.h> based on test of it instead when
+ __argz_* functions are available.
+ Reported by Andreas Schwab.
+
+Thu Jun 13 15:17:44 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * explodename.c, l10nflist.c: Define NULL for dumb systems.
+
+Tue Jun 11 17:05:13 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * intlh.inst.in, libgettext.h (dcgettext): Rename local variable
+ result to __result to prevent name clash.
+
+ * l10nflist.c, localealias.c, dcgettext.c: Define _GNU_SOURCE to
+ get prototype for stpcpy and strcasecmp.
+
+ * intlh.inst.in, libgettext.h: Move declaration of
+ `_nl_msg_cat_cntr' outside __extension__ block to prevent warning
+ from gcc's -Wnested-extern option.
+
+Fri Jun 7 01:58:00 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (install): Remove comment.
+
+Thu Jun 6 17:28:17 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (install): Work around for another Buglix stupidity.
+ Always use an `else' close for `if's. Reported by Nelson Beebe.
+
+ * Makefile.in (intlh.inst): Correct typo in phony rule.
+ Reported by Nelson Beebe.
+
+Thu Jun 6 01:49:52 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * dcgettext.c (read_alias_file): Rename variable alloca_list to
+ block_list as the macro calls assume.
+ Patch by Eric Backus.
+
+ * localealias.c [!HAVE_ALLOCA]: Define alloca as macro using
+ malloc.
+ (read_alias_file): Rename varriabe alloca_list to block_list as the
+ macro calls assume.
+ Patch by Eric Backus.
+
+ * l10nflist.c: Correct conditional for <argz.h> inclusion.
+ Reported by Roland McGrath.
+
+ * Makefile.in (all): Depend on all-@USE_INCLUDED_LIBINTL@, not
+ all-@USE_NLS@.
+
+ * Makefile.in (install): intlh.inst comes from local dir, not
+ $(srcdir).
+
+ * Makefile.in (intlh.inst): Special handling of this goal. If
+ used in gettext, this is really a rul to construct this file. If
+ used in any other package it is defined as a .PHONY rule with
+ empty body.
+
+ * finddomain.c: Extract locale file information handling into
+ l10nfile.c. Rename local stpcpy__ function to stpcpy.
+
+ * dcgettext.c (stpcpy): Add local definition.
+
+ * l10nflist.c: Solve some portability problems. Patches partly by
+ Thomas Esken. Add local definition of stpcpy.
+
+Tue Jun 4 02:47:49 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * intlh.inst.in: Don't depend including <locale.h> on
+ HAVE_LOCALE_H. Instead configure must rewrite this fiile
+ depending on the result of the configure run.
+
+ * Makefile.in (install): libintl.inst is now called intlh.inst.
+ Add rules for updating intlh.inst from intlh.inst.in.
+
+ * libintl.inst: Renamed to intlh.inst.in.
+
+ * localealias.c, dcgettext.c [__GNUC__]: Define HAVE_ALLOCA to 1
+ because gcc has __buitlin_alloca.
+ Reported by Roland McGrath.
+
+Mon Jun 3 00:32:16 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile.in (installcheck): New goal to fulfill needs of
+ automake's distcheck.
+
+ * Makefile.in (install): Reorder commands so that VERSION is
+ found.
+
+ * Makefile.in (gettextsrcdir): Now use subdirectory intl/ in
+ @datadir@/gettext.
+ (COMSRCS): Add l10nfile.c.
+ (OBJECTS): Add l10nfile.o.
+ (DISTFILES): Rename to DISTFILE.normal. Remove $(DISTFILES.common).
+ (DISTFILE.gettext): Remove $(DISTFILES.common).
+ (all-gettext): Remove goal.
+ (install): If $(PACKAGE) = gettext install, otherwose do nothing. No
+ package but gettext itself should install libintl.h + headers.
+ (dist): Extend goal to work for gettext, too.
+ (dist-gettext): Remove goal.
+
+ * dcgettext.c [!HAVE_ALLOCA]: Define macro alloca by using malloc.
+
+Sun Jun 2 17:33:06 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * loadmsgcat.c (_nl_load_domain): Parameter is now comes from
+ find_l10nfile.
+
+Sat Jun 1 02:23:03 1996 Ulrich Drepper <drepper@cygnus.com>
+
+ * l10nflist.c (__argz_next): Add definition.
+
+ * dcgettext.c [!HAVE_ALLOCA]: Add code for handling missing alloca
+ code. Use new l10nfile handling.
+
+ * localealias.c [!HAVE_ALLOCA]: Add code for handling missing
+ alloca code.
+
+ * l10nflist.c: Initial revision.
+
+Tue Apr 2 18:51:18 1996 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (all-gettext): New goal. Same as all-yes.
+
+Thu Mar 28 23:01:22 1996 Karl Eichwalder <ke@ke.central.de>
+
+ * Makefile.in (gettextsrcdir): Define using @datadir@.
+
+Tue Mar 26 12:39:14 1996 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c: Include <ctype.h>. Reported by Roland McGrath.
+
+Sat Mar 23 02:00:35 1996 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (stpcpy): Rename to stpcpy__ to prevent clashing
+ with external declaration.
+
+Sat Mar 2 00:47:09 1996 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (all-no): Rename from all_no.
+
+Sat Feb 17 00:25:59 1996 Ulrich Drepper <drepper@myware>
+
+ * gettextP.h [loaded_domain]: Array `successor' must now contain up
+ to 63 elements (because of codeset name normalization).
+
+ * finddomain.c: Implement codeset name normalization.
+
+Thu Feb 15 04:39:09 1996 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (all): Define to `all-@USE_NLS@'.
+ (all-yes, all_no): New goals. `all-no' is noop, `all-yes'
+ is former all.
+
+Mon Jan 15 21:46:01 1996 Howard Gayle <howard@hal.com>
+
+ * localealias.c (alias_compare): Increment string pointers in loop
+ of strcasecmp replacement.
+
+Fri Dec 29 21:16:34 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (install-src): Who commented this goal out ? :-)
+
+Fri Dec 29 15:08:16 1995 Ulrich Drepper <drepper@myware>
+
+ * dcgettext.c (DCGETTEXT): Save `errno'. Failing system calls
+ should not effect it because a missing catalog is no error.
+ Reported by Harald K<o:>nig <koenig@tat.physik.uni-tuebingen.de>.
+
+Tue Dec 19 22:09:13 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (Makefile): Explicitly use $(SHELL) for running
+ shell scripts.
+
+Fri Dec 15 17:34:59 1995 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * Makefile.in (install-src): Only install library and header when
+ we use the own implementation. Don't do it when using the
+ system's gettext or catgets functions.
+
+ * dcgettext.c (find_msg): Must not swap domain->hash_size here.
+
+Sat Dec 9 16:24:37 1995 Ulrich Drepper <drepper@myware>
+
+ * localealias.c, libintl.inst, libgettext.h, hash-string.h,
+ gettextP.h, finddomain.c, dcgettext.c, cat-compat.c:
+ Use PARAMS instead of __P. Suggested by Roland McGrath.
+
+Tue Dec 5 11:39:14 1995 Larry Schwimmer <rosebud@cyclone.stanford.edu>
+
+ * libgettext.h: Use `#if !defined (_LIBINTL_H)' instead of `#if
+ !_LIBINTL_H' because Solaris defines _LIBINTL_H as empty.
+
+Mon Dec 4 15:42:07 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (install-src):
+ Install libintl.inst instead of libintl.h.install.
+
+Sat Dec 2 22:51:38 1995 Marcus Daniels <marcus@sysc.pdx.edu>
+
+ * cat-compat.c (textdomain):
+ Reverse order in which files are tried you load. First
+ try local file, when this failed absolute path.
+
+Wed Nov 29 02:03:53 1995 Nelson H. F. Beebe <beebe@math.utah.edu>
+
+ * cat-compat.c (bindtextdomain): Add missing { }.
+
+Sun Nov 26 18:21:41 1995 Ulrich Drepper <drepper@myware>
+
+ * libintl.inst: Add missing __P definition. Reported by Nelson Beebe.
+
+ * Makefile.in:
+ Add dummy `all' and `dvi' goals. Reported by Tom Tromey.
+
+Sat Nov 25 16:12:01 1995 Franc,ois Pinard <pinard@iro.umontreal.ca>
+
+ * hash-string.h: Capitalize arguments of macros.
+
+Sat Nov 25 12:01:36 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (DISTFILES): Prevent files names longer than 13
+ characters. libintl.h.glibc->libintl.glibc,
+ libintl.h.install->libintl.inst. Reported by Joshua R. Poulson.
+
+Sat Nov 25 11:31:12 1995 Eric Backus <ericb@lsid.hp.com>
+
+ * dcgettext.c: Fix bug in preprocessor conditionals.
+
+Sat Nov 25 02:35:27 1995 Nelson H. F. Beebe <beebe@math.utah.edu>
+
+ * libgettext.h: Solaris cc does not understand
+ #if !SYMBOL1 && !SYMBOL2. Sad but true.
+
+Thu Nov 23 16:22:14 1995 Ulrich Drepper <drepper@myware>
+
+ * hash-string.h (hash_string):
+ Fix for machine with >32 bit `unsigned long's.
+
+ * dcgettext.c (DCGETTEXT):
+ Fix horrible bug in loop for alternative translation.
+
+Thu Nov 23 01:45:29 1995 Ulrich Drepper <drepper@myware>
+
+ * po2tbl.sed.in, linux-msg.sed, xopen-msg.sed:
+ Some further simplifications in message number generation.
+
+Mon Nov 20 21:08:43 1995 Ulrich Drepper <drepper@myware>
+
+ * libintl.h.glibc: Use __const instead of const in prototypes.
+
+ * Makefile.in (install-src):
+ Install libintl.h.install instead of libintl.h. This
+ is a stripped-down version. Suggested by Peter Miller.
+
+ * libintl.h.install, libintl.h.glibc: Initial revision.
+
+ * localealias.c (_nl_expand_alias, read_alias_file):
+ Protect prototypes in type casts by __P.
+
+Tue Nov 14 16:43:58 1995 Ulrich Drepper <drepper@myware>
+
+ * hash-string.h: Correct prototype for hash_string.
+
+Sun Nov 12 12:42:30 1995 Ulrich Drepper <drepper@myware>
+
+ * hash-string.h (hash_string): Add prototype.
+
+ * gettextP.h: Fix copyright.
+ (SWAP): Add prototype.
+
+Wed Nov 8 22:56:33 1995 Ulrich Drepper <drepper@myware>
+
+ * localealias.c (read_alias_file): Forgot sizeof.
+ Avoid calling *printf function. This introduces a big overhead.
+ Patch by Roland McGrath.
+
+Tue Nov 7 14:21:08 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c, cat-compat.c: Wrong indentation in #if for stpcpy.
+
+ * finddomain.c (stpcpy):
+ Define substitution function local. The macro was to flaky.
+
+ * cat-compat.c: Fix typo.
+
+ * xopen-msg.sed, linux-msg.sed:
+ While bringing message number to right place only accept digits.
+
+ * linux-msg.sed, xopen-msg.sed: Now that the counter does not have
+ leading 0s we don't need to remove them. Reported by Marcus
+ Daniels.
+
+ * Makefile.in (../po/cat-id-tbl.o): Use $(top_srdir) in
+ dependency. Reported by Marcus Daniels.
+
+ * cat-compat.c: (stpcpy) [!_LIBC && !HAVE_STPCPY]: Define replacement.
+ Generally cleanup using #if instead of #ifndef.
+
+ * Makefile.in: Correct typos in comment. By Franc,ois Pinard.
+
+Mon Nov 6 00:27:02 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (install-src): Don't install libintl.h and libintl.a
+ if we use an available gettext implementation.
+
+Sun Nov 5 22:02:08 1995 Ulrich Drepper <drepper@myware>
+
+ * libgettext.h: Fix typo: HAVE_CATGETTS -> HAVE_CATGETS. Reported
+ by Franc,ois Pinard.
+
+ * libgettext.h: Use #if instead of #ifdef/#ifndef.
+
+ * finddomain.c:
+ Comments describing what has to be done should start with FIXME.
+
+Sun Nov 5 19:38:01 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (DISTFILES): Split. Use DISTFILES with normal meaning.
+ DISTFILES.common names the files common to both dist goals.
+ DISTFILES.gettext are the files only distributed in GNU gettext.
+
+Sun Nov 5 17:32:54 1995 Ulrich Drepper <drepper@myware>
+
+ * dcgettext.c (DCGETTEXT): Correct searching in derived locales.
+ This was necessary since a change in _nl_find_msg several weeks
+ ago. I really don't know this is still not fixed.
+
+Sun Nov 5 12:43:12 1995 Ulrich Drepper <drepper@myware>
+
+ * loadmsgcat.c (_nl_load_domain): Test for FILENAME == NULL. This
+ might mark a special condition.
+
+ * finddomain.c (make_entry_rec): Don't make illegal entry as decided.
+
+ * Makefile.in (dist): Suppress error message when ln failed.
+ Get files from $(srcdir) explicitly.
+
+ * libgettext.h (gettext_const): Rename to gettext_noop.
+
+Fri Nov 3 07:36:50 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (make_entry_rec):
+ Protect against wrong locale names by testing mask.
+
+ * libgettext.h (gettext_const): Add macro definition.
+ Capitalize macro arguments.
+
+Thu Nov 2 23:15:51 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (_nl_find_domain):
+ Test for pointer != NULL before accessing value.
+ Reported by Tom Tromey.
+
+ * gettext.c (NULL):
+ Define as (void*)0 instad of 0. Reported by Franc,ois Pinard.
+
+Mon Oct 30 21:28:52 1995 Ulrich Drepper <drepper@myware>
+
+ * po2tbl.sed.in: Serious typo bug fixed by Jim Meyering.
+
+Sat Oct 28 23:20:47 1995 Ulrich Drepper <drepper@myware>
+
+ * libgettext.h: Disable dcgettext optimization for Solaris 2.3.
+
+ * localealias.c (alias_compare):
+ Peter Miller reported that tolower in some systems is
+ even dumber than I thought. Protect call by `isupper'.
+
+Fri Oct 27 22:22:51 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (libdir, includedir): New variables.
+ (install-src): Install libintl.a and libintl.h in correct dirs.
+
+Fri Oct 27 22:07:29 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (SOURCES): Fix typo: intrl.compat.c -> intl-compat.c.
+
+ * po2tbl.sed.in: Patch for buggy SEDs by Christian von Roques.
+
+ * localealias.c:
+ Fix typo and superflous test. Reported by Christian von Roques.
+
+Fri Oct 6 11:52:05 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (_nl_find_domain):
+ Correct some remainder from the pre-CEN syntax. Now
+ we don't have a constant number of successors anymore.
+
+Wed Sep 27 21:41:13 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (DISTFILES): Add libintl.h.glibc.
+
+ * Makefile.in (dist-libc): Add goal for packing sources for glibc.
+ (COMSRCS, COMHDRS): Splitted to separate sources shared with glibc.
+
+ * loadmsgcat.c: Forget to continue #if line.
+
+ * localealias.c:
+ [_LIBC]: Rename strcasecmp to __strcasecmp to keep ANSI C name
+ space clean.
+
+ * dcgettext.c, finddomain.c: Better comment to last change.
+
+ * loadmsgcat.c:
+ [_LIBC]: Rename fstat, open, close, read, mmap, and munmap to
+ __fstat, __open, __close, __read, __mmap, and __munmap resp
+ to keep ANSI C name space clean.
+
+ * finddomain.c:
+ [_LIBC]: Rename stpcpy to __stpcpy to keep ANSI C name space clean.
+
+ * dcgettext.c:
+ [_LIBC]: Rename getced and stpcpy to __getcwd and __stpcpy resp to
+ keep ANSI C name space clean.
+
+ * libgettext.h:
+ Include sys/types.h for those old SysV systems out there.
+ Reported by Francesco Potorti`.
+
+ * loadmsgcat.c (use_mmap): Define if compiled for glibc.
+
+ * bindtextdom.c: Include all those standard headers
+ unconditionally if _LIBC is defined.
+
+ * finddomain.c: Fix 2 times defiend -> defined.
+
+ * textdomain.c: Include libintl.h instead of libgettext.h when
+ compiling for glibc. Include all those standard headers
+ unconditionally if _LIBC is defined.
+
+ * localealias.c, loadmsgcat.c: Prepare to be compiled in glibc.
+
+ * gettext.c:
+ Include libintl.h instead of libgettext.h when compiling for glibc.
+ Get NULL from stddef.h if we compile for glibc.
+
+ * finddomain.c: Include libintl.h instead of libgettext.h when
+ compiling for glibc. Include all those standard headers
+ unconditionally if _LIBC is defined.
+
+ * dcgettext.c: Include all those standard headers unconditionally
+ if _LIBC is defined.
+
+ * dgettext.c: If compiled in glibc include libintl.h instead of
+ libgettext.h.
+ (locale.h): Don't rely on HAVE_LOCALE_H when compiling for glibc.
+
+ * dcgettext.c: If compiled in glibc include libintl.h instead of
+ libgettext.h.
+ (getcwd): Don't rely on HAVE_GETCWD when compiling for glibc.
+
+ * bindtextdom.c:
+ If compiled in glibc include libintl.h instead of libgettext.h.
+
+Mon Sep 25 22:23:06 1995 Ulrich Drepper <drepper@myware>
+
+ * localealias.c (_nl_expand_alias): Don't call bsearch if NMAP <= 0.
+ Reported by Marcus Daniels.
+
+ * cat-compat.c (bindtextdomain):
+ String used in putenv must not be recycled.
+ Reported by Marcus Daniels.
+
+ * libgettext.h (__USE_GNU_GETTEXT):
+ Additional symbol to signal that we use GNU gettext
+ library.
+
+ * cat-compat.c (bindtextdomain):
+ Fix bug with the strange stpcpy replacement.
+ Reported by Nelson Beebe.
+
+Sat Sep 23 08:23:51 1995 Ulrich Drepper <drepper@myware>
+
+ * cat-compat.c: Include <string.h> for stpcpy prototype.
+
+ * localealias.c (read_alias_file):
+ While expand strdup code temporary variable `cp' hided
+ higher level variable with same name. Rename to `tp'.
+
+ * textdomain.c (textdomain):
+ Avoid warning by using temporary variable in strdup code.
+
+ * finddomain.c (_nl_find_domain): Remove unused variable `application'.
+
+Thu Sep 21 15:51:44 1995 Ulrich Drepper <drepper@myware>
+
+ * localealias.c (alias_compare):
+ Use strcasecmp() only if available. Else use
+ implementation in place.
+
+ * intl-compat.c:
+ Wrapper functions now call *__ functions instead of __*.
+
+ * libgettext.h: Declare prototypes for *__ functions instead for __*.
+
+ * cat-compat.c, loadmsgcat.c:
+ Don't use xmalloc, xstrdup, and stpcpy. These functions are not part
+ of the standard libc and so prevent libintl.a from being used
+ standalone.
+
+ * bindtextdom.c:
+ Don't use xmalloc, xstrdup, and stpcpy. These functions are not part
+ of the standard libc and so prevent libintl.a from being used
+ standalone.
+ Rename to bindtextdomain__ if not used in GNU C Library.
+
+ * dgettext.c:
+ Rename function to dgettext__ if not used in GNU C Library.
+
+ * gettext.c:
+ Don't use xmalloc, xstrdup, and stpcpy. These functions are not part
+ of the standard libc and so prevent libintl.a from being used
+ standalone.
+ Functions now called gettext__ if not used in GNU C Library.
+
+ * dcgettext.c, localealias.c, textdomain.c, finddomain.c:
+ Don't use xmalloc, xstrdup, and stpcpy. These functions are not part
+ of the standard libc and so prevent libintl.a from being used
+ standalone.
+
+Sun Sep 17 23:14:49 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c: Correct some bugs in handling of CEN standard
+ locale definitions.
+
+Thu Sep 7 01:49:28 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c: Implement CEN syntax.
+
+ * gettextP.h (loaded_domain): Extend number of successors to 31.
+
+Sat Aug 19 19:25:29 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (aliaspath): Remove path to X11 locale dir.
+
+ * Makefile.in: Make install-src depend on install. This helps
+ gettext to install the sources and other packages can use the
+ install goal.
+
+Sat Aug 19 15:19:33 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (uninstall): Remove stuff installed by install-src.
+
+Tue Aug 15 13:13:53 1995 Ulrich Drepper <drepper@myware>
+
+ * VERSION.in: Initial revision.
+
+ * Makefile.in (DISTFILES):
+ Add VERSION file. This is not necessary for gettext, but
+ for other packages using this library.
+
+Tue Aug 15 06:16:44 1995 Ulrich Drepper <drepper@myware>
+
+ * gettextP.h (_nl_find_domain):
+ New prototype after changing search strategy.
+
+ * finddomain.c (_nl_find_domain):
+ We now try only to find a specified catalog. Fall back to other
+ catalogs listed in the locale list is now done in __dcgettext.
+
+ * dcgettext.c (__dcgettext):
+ Now we provide message fall back even to different languages.
+ I.e. if a message is not available in one language all the other
+ in the locale list a tried. Formerly fall back was only possible
+ within one language. Implemented by moving one loop from
+ _nl_find_domain to here.
+
+Mon Aug 14 23:45:50 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (gettextsrcdir):
+ Directory where source of GNU gettext library are made
+ available.
+ (INSTALL, INSTALL_DATA): Programs used for installing sources.
+ (gettext-src): New. Rule to install GNU gettext sources for use in
+ gettextize shell script.
+
+Sun Aug 13 14:40:48 1995 Ulrich Drepper <drepper@myware>
+
+ * loadmsgcat.c (_nl_load_domain):
+ Use mmap for loading only when munmap function is
+ also available.
+
+ * Makefile.in (install): Depend on `all' goal.
+
+Wed Aug 9 11:04:33 1995 Ulrich Drepper <drepper@myware>
+
+ * localealias.c (read_alias_file):
+ Do not overwrite '\n' when terminating alias value string.
+
+ * localealias.c (read_alias_file):
+ Handle long lines. Ignore the rest not fitting in
+ the buffer after the initial `fgets' call.
+
+Wed Aug 9 00:54:29 1995 Ulrich Drepper <drepper@myware>
+
+ * gettextP.h (_nl_load_domain):
+ Add prototype, replacing prototype for _nl_load_msg_cat.
+
+ * finddomain.c (_nl_find_domain):
+ Remove unneeded variable filename and filename_len.
+ (expand_alias): Remove prototype because functions does not
+ exist anymore.
+
+ * localealias.c (read_alias_file):
+ Change type of fname_len parameter to int.
+ (xmalloc): Add prototype.
+
+ * loadmsgcat.c: Better prototypes for xmalloc.
+
+Tue Aug 8 22:30:39 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (_nl_find_domain):
+ Allow alias name to be constructed from the four components.
+
+ * Makefile.in (aliaspath): New variable. Set to preliminary value.
+ (SOURCES): Add localealias.c.
+ (OBJECTS): Add localealias.o.
+
+ * gettextP.h: Add prototype for _nl_expand_alias.
+
+ * finddomain.c: Aliasing handled in intl/localealias.c.
+
+ * localealias.c: Aliasing for locale names.
+
+ * bindtextdom.c: Better prototypes for xmalloc and xstrdup.
+
+Mon Aug 7 23:47:42 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (DISTFILES): gettext.perl is now found in misc/.
+
+ * cat-compat.c (bindtextdomain):
+ Correct implementation. dirname parameter was not used.
+ Reported by Marcus Daniels.
+
+ * gettextP.h (loaded_domain):
+ New fields `successor' and `decided' for oo, lazy
+ message handling implementation.
+
+ * dcgettext.c:
+ Adopt for oo, lazy message handliing.
+ Now we can inherit translations from less specific locales.
+ (find_msg): New function.
+
+ * loadmsgcat.c, finddomain.c:
+ Complete rewrite. Implement oo, lazy message handling :-).
+ We now have an additional environment variable `LANGUAGE' with
+ a higher priority than LC_ALL for the LC_MESSAGE locale.
+ Here we can set a colon separated list of specifications each
+ of the form `language[_territory[.codeset]][@modifier]'.
+
+Sat Aug 5 09:55:42 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (unistd.h):
+ Include to get _PC_PATH_MAX defined on system having it.
+
+Fri Aug 4 22:42:00 1995 Ulrich Drepper <drepper@myware>
+
+ * finddomain.c (stpcpy): Include prototype.
+
+ * Makefile.in (dist): Remove `copying instead' message.
+
+Wed Aug 2 18:52:03 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (ID, TAGS): Do not use $^.
+
+Tue Aug 1 20:07:11 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (TAGS, ID): Use $^ as command argument.
+ (TAGS): Give etags -o option t write to current directory,
+ not $(srcdir).
+ (ID): Use $(srcdir) instead os $(top_srcdir)/src.
+ (distclean): Remove ID.
+
+Sun Jul 30 11:51:46 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (gnulocaledir):
+ New variable, always using share/ for data directory.
+ (DEFS): Add GNULOCALEDIR, used in finddomain.c.
+
+ * finddomain.c (_nl_default_dirname):
+ Set to GNULOCALEDIR, because it always has to point
+ to the directory where GNU gettext Library writes it to.
+
+ * intl-compat.c (textdomain, bindtextdomain):
+ Undefine macros before function definition.
+
+Sat Jul 22 01:10:02 1995 Ulrich Drepper <drepper@myware>
+
+ * libgettext.h (_LIBINTL_H):
+ Protect definition in case where this file is included as
+ libgettext.h on Solaris machines. Add comment about this.
+
+Wed Jul 19 02:36:42 1995 Ulrich Drepper <drepper@myware>
+
+ * intl-compat.c (textdomain): Correct typo.
+
+Wed Jul 19 01:51:35 1995 Ulrich Drepper <drepper@myware>
+
+ * dcgettext.c (dcgettext): Function now called __dcgettext.
+
+ * dgettext.c (dgettext): Now called __dgettext and calls
+ __dcgettext.
+
+ * gettext.c (gettext):
+ Function now called __gettext and calls __dgettext.
+
+ * textdomain.c (textdomain): Function now called __textdomain.
+
+ * bindtextdom.c (bindtextdomain): Function now called
+ __bindtextdomain.
+
+ * intl-compat.c: Initial revision.
+
+ * Makefile.in (SOURCES): Add intl-compat.c.
+ (OBJECTS): We always compile the GNU gettext library functions.
+ OBJECTS contains all objects but cat-compat.o, ../po/cat-if-tbl.o,
+ and intl-compat.o.
+ (GETTOBJS): Contains now only intl-compat.o.
+
+ * libgettext.h:
+ Re-include protection matches dualistic character of libgettext.h.
+ For all functions in GNU gettext library define __ counter part.
+
+ * finddomain.c (strchr): Define as index if not found in C library.
+ (_nl_find_domain): For relative paths paste / in between.
+
+Tue Jul 18 16:37:45 1995 Ulrich Drepper <drepper@myware>
+
+ * loadmsgcat.c, finddomain.c: Add inclusion of sys/types.h.
+
+ * xopen-msg.sed: Fix bug with `msgstr ""' lines.
+ A little bit better comments.
+
+Tue Jul 18 01:18:27 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in:
+ po-mode.el, makelinks, combine-sh are now found in ../misc.
+
+ * po-mode.el, makelinks, combine-sh, elisp-comp:
+ Moved to ../misc/.
+
+ * libgettext.h, gettextP.h, gettext.h: Uniform test for __STDC__.
+
+Sun Jul 16 22:33:02 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (INSTALL, INSTALL_DATA): New variables.
+ (install-data, uninstall): Install/uninstall .elc file.
+
+ * po-mode.el (Installation comment):
+ Add .pox as possible extension of .po files.
+
+Sun Jul 16 13:23:27 1995 Ulrich Drepper <drepper@myware>
+
+ * elisp-comp: Complete new version by Franc,ois: This does not
+ fail when not compiling in the source directory.
+
+Sun Jul 16 00:12:17 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (../po/cat-id-tbl.o):
+ Use $(MAKE) instead of make for recursive make.
+
+ * Makefile.in (.el.elc): Use $(SHELL) instead of /bin/sh.
+ (install-exec): Add missing dummy goal.
+ (install-data, uninstall): @ in multi-line shell command at
+ beginning, not in front of echo. Reported by Eric Backus.
+
+Sat Jul 15 00:21:28 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (DISTFILES):
+ Rename libgettext.perl to gettext.perl to fit in 14 chars
+ file systems.
+
+ * gettext.perl:
+ Rename to gettext.perl to fit in 14 chars file systems.
+
+Thu Jul 13 23:17:20 1995 Ulrich Drepper <drepper@myware>
+
+ * cat-compat.c: If !STDC_HEADERS try to include malloc.h.
+
+Thu Jul 13 20:55:02 1995 Ulrich Drepper <drepper@myware>
+
+ * po2tbl.sed.in: Pretty printing.
+
+ * linux-msg.sed, xopen-msg.sed:
+ Correct bugs with handling substitute flags in branches.
+
+ * hash-string.h (hash_string):
+ Old K&R compilers don't under stand `unsigned char'.
+
+ * gettext.h (nls_uint32):
+ Some old K&R compilers (eg HP) don't understand `unsigned int'.
+
+ * cat-compat.c (msg_to_cat_id): De-ANSI-fy prototypes.
+
+Thu Jul 13 01:34:33 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (ELCFILES): New variable.
+ (DISTFILES): Add elisp-comp.
+ Add implicit rule for .el -> .elc compilation.
+ (install-data): install $ELCFILES
+ (clean): renamed po-to-tbl and po-to-msg to po2tbl and po2msg resp.
+
+ * elisp-comp: Initial revision
+
+Wed Jul 12 16:14:52 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in:
+ cat-id-tbl.c is now found in po/. This enables us to use an identical
+ intl/ directory in all packages.
+
+ * dcgettext.c (dcgettext): hashing does not work for table size <= 2.
+
+ * textdomain.c: fix typo (#if def -> #if defined)
+
+Tue Jul 11 18:44:43 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in (stamp-cat-id): use top_srcdir to address source files
+ (DISTFILES,distclean): move tupdate.perl to src/
+
+ * po-to-tbl.sed.in:
+ add additional jump to clear change flag to recognize multiline strings
+
+Tue Jul 11 01:32:50 1995 Ulrich Drepper <drepper@myware>
+
+ * textdomain.c: Protect inclusion of stdlib.h and string.h.
+
+ * loadmsgcat.c: Protect inclusion of stdlib.h.
+
+ * libgettext.h: Protect inclusion of locale.h.
+ Allow use in C++ programs.
+ Define NULL is not happened already.
+
+ * Makefile.in (DISTFILES): ship po-to-tbl.sed.in instead of
+ po-to-tbl.sed.
+ (distclean): remove po-to-tbl.sed and tupdate.perl.
+
+ * tupdate.perl.in: Substitute Perl path even in exec line.
+ Don't include entries without translation from old .po file.
+
+Tue Jul 4 00:41:51 1995 Ulrich Drepper <drepper@myware>
+
+ * tupdate.perl.in: use "Updated: " in msgid "".
+
+ * cat-compat.c: Fix typo (LOCALDIR -> LOCALEDIR).
+ Define getenv if !__STDC__.
+
+ * bindtextdom.c: Protect stdlib.h and string.h inclusion.
+ Define free if !__STDC__.
+
+ * finddomain.c: Change DEF_MSG_DOM_DIR to LOCALEDIR.
+ Define free if !__STDC__.
+
+ * cat-compat.c: Change DEF_MSG_DOM_DIR to LOCALEDIR.
+
+Mon Jul 3 23:56:30 1995 Ulrich Drepper <drepper@myware>
+
+ * Makefile.in: Use LOCALEDIR instead of DEF_MSG_DOM_DIR.
+ Remove unneeded $(srcdir) from Makefile.in dependency.
+
+ * makelinks: Add copyright and short description.
+
+ * po-mode.el: Last version for 0.7.
+
+ * tupdate.perl.in: Fix die message.
+
+ * dcgettext.c: Protect include of string.h.
+
+ * gettext.c: Protect include of stdlib.h and further tries to get NULL.
+
+ * finddomain.c: Some corrections in includes.
+
+ * Makefile.in (INCLUDES): Prune list correct path to Makefile.in.
+
+ * po-to-tbl.sed: Adopt for new .po file format.
+
+ * linux-msg.sed, xopen-msg.sed: Adopt for new .po file format.
+
+Sun Jul 2 23:55:03 1995 Ulrich Drepper <drepper@myware>
+
+ * tupdate.perl.in: Complete rewrite for new .po file format.
+
+Sun Jul 2 02:06:50 1995 Ulrich Drepper <drepper@myware>
+
+ * First official release. This directory contains all the code
+ needed to internationalize own packages. It provides functions
+ which allow to use the X/Open catgets function with an interface
+ like the Uniforum gettext function. For system which does not
+ have neither of those a complete implementation is provided.
diff --git a/intl/Makefile.in b/intl/Makefile.in
new file mode 100644
index 00000000..423a5a21
--- /dev/null
+++ b/intl/Makefile.in
@@ -0,0 +1,218 @@
+# Makefile for directory with message catalog handling in GNU NLS Utilities.
+# Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+PACKAGE = @PACKAGE@
+VERSION = @VERSION@
+
+SHELL = /bin/sh
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+top_builddir = ..
+VPATH = @srcdir@
+
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+transform = @program_transform_name@
+libdir = $(exec_prefix)/lib
+includedir = $(prefix)/include
+datadir = $(prefix)/@DATADIRNAME@
+localedir = $(datadir)/locale
+gnulocaledir = $(prefix)/share/locale
+gettextsrcdir = @datadir@/gettext/intl
+aliaspath = $(localedir):.
+subdir = intl
+
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+
+l = @l@
+
+AR = ar
+CC = @CC@
+LIBTOOL = @LIBTOOL@
+RANLIB = @RANLIB@
+
+DEFS = -DLOCALEDIR=\"$(localedir)\" -DGNULOCALEDIR=\"$(gnulocaledir)\" \
+-DLOCALE_ALIAS_PATH=\"$(aliaspath)\" @DEFS@
+CPPFLAGS = @CPPFLAGS@
+CFLAGS = @CFLAGS@
+LDFLAGS = @LDFLAGS@
+
+COMPILE = $(CC) -c $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) $(XCFLAGS)
+
+HEADERS = $(COMHDRS) libgettext.h loadinfo.h
+COMHDRS = gettext.h gettextP.h hash-string.h
+SOURCES = $(COMSRCS) intl-compat.c cat-compat.c
+COMSRCS = bindtextdom.c dcgettext.c dgettext.c gettext.c \
+finddomain.c loadmsgcat.c localealias.c textdomain.c l10nflist.c \
+explodename.c
+OBJECTS = @INTLOBJS@ bindtextdom.$lo dcgettext.$lo dgettext.$lo gettext.$lo \
+finddomain.$lo loadmsgcat.$lo localealias.$lo textdomain.$lo l10nflist.$lo \
+explodename.$lo
+CATOBJS = cat-compat.$lo ../po/cat-id-tbl.$lo
+GETTOBJS = intl-compat.$lo
+DISTFILES.common = ChangeLog Makefile.in linux-msg.sed po2tbl.sed.in \
+xopen-msg.sed $(HEADERS) $(SOURCES)
+DISTFILES.normal = VERSION
+DISTFILES.gettext = libintl.glibc intlh.inst.in
+
+.SUFFIXES:
+.SUFFIXES: .c .o .lo
+.c.o:
+ $(COMPILE) $<
+.c.lo:
+ $(LIBTOOL) --mode=compile $(COMPILE) $<
+
+INCLUDES = -I$(top_srcdir) -I.. -I. -I$(top_srcdir)/intl -I$(top_srcdir)/lib
+
+all: all-@USE_INCLUDED_LIBINTL@
+
+all-yes: libintl.$la intlh.inst
+all-no:
+
+libintl.a: $(OBJECTS)
+ rm -f $@
+ $(AR) cru $@ $(OBJECTS)
+ $(RANLIB) $@
+
+libintl.la: $(OBJECTS)
+ $(LIBTOOL) --mode=link $(CC) $(LDFLAGS) -o $@ $(OBJECTS) \
+ -version-info 1:0 -rpath $(libdir)
+
+../po/cat-id-tbl.$lo: ../po/cat-id-tbl.c $(top_srcdir)/po/$(PACKAGE).pot
+ cd ../po && $(MAKE) cat-id-tbl.$lo
+
+check: all
+
+# This installation goal is only used in GNU gettext. Packages which
+# only use the library should use install instead.
+
+# We must not install the libintl.h/libintl.a files if we are on a
+# system which has the gettext() function in its C library or in a
+# separate library or use the catgets interface. A special case is
+# where configure found a previously installed GNU gettext library.
+# If you want to use the one which comes with this version of the
+# package, you have to use `configure --with-included-gettext'.
+install: install-exec install-data
+install-exec: all
+ if test "$(PACKAGE)" = "gettext" \
+ && test '@INTLOBJS@' = '$(GETTOBJS)'; then \
+ if test -r $(MKINSTALLDIRS); then \
+ $(MKINSTALLDIRS) $(libdir) $(includedir); \
+ else \
+ $(top_srcdir)/mkinstalldirs $(libdir) $(includedir); \
+ fi; \
+ $(INSTALL_DATA) intlh.inst $(includedir)/libintl.h; \
+ $(INSTALL_DATA) libintl.a $(libdir)/libintl.a; \
+ else \
+ : ; \
+ fi
+install-data: all
+ if test "$(PACKAGE)" = "gettext"; then \
+ if test -r $(MKINSTALLDIRS); then \
+ $(MKINSTALLDIRS) $(gettextsrcdir); \
+ else \
+ $(top_srcdir)/mkinstalldirs $(gettextsrcdir); \
+ fi; \
+ $(INSTALL_DATA) VERSION $(gettextsrcdir)/VERSION; \
+ dists="$(DISTFILES.common)"; \
+ for file in $$dists; do \
+ $(INSTALL_DATA) $(srcdir)/$$file $(gettextsrcdir)/$$file; \
+ done; \
+ else \
+ : ; \
+ fi
+
+# Define this as empty until I found a useful application.
+installcheck:
+
+uninstall:
+ if test "$(PACKAGE)" = "gettext"; then \
+ dists="$(DISTFILES.common)"; \
+ for file in $$dists; do \
+ rm -f $(gettextsrcdir)/$$file; \
+ done; \
+ else \
+ : ; \
+ fi
+
+info dvi:
+
+$(OBJECTS): ../config.h libgettext.h
+bindtextdom.$lo finddomain.$lo loadmsgcat.$lo: gettextP.h gettext.h loadinfo.h
+dcgettext.$lo: gettextP.h gettext.h hash-string.h loadinfo.h
+
+tags: TAGS
+
+TAGS: $(HEADERS) $(SOURCES)
+ here=`pwd`; cd $(srcdir) && etags -o $$here/TAGS $(HEADERS) $(SOURCES)
+
+id: ID
+
+ID: $(HEADERS) $(SOURCES)
+ here=`pwd`; cd $(srcdir) && mkid -f$$here/ID $(HEADERS) $(SOURCES)
+
+
+mostlyclean:
+ rm -f *.a *.o *.lo core core.*
+
+clean: mostlyclean
+
+distclean: clean
+ rm -f Makefile ID TAGS po2msg.sed po2tbl.sed
+
+maintainer-clean: distclean
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+
+
+# GNU gettext needs not contain the file `VERSION' but contains some
+# other files which should not be distributed in other packages.
+distdir = ../$(PACKAGE)-$(VERSION)/$(subdir)
+dist distdir: Makefile $(DISTFILES)
+ if test "$(PACKAGE)" = gettext; then \
+ additional="$(DISTFILES.gettext)"; \
+ else \
+ additional="$(DISTFILES.normal)"; \
+ fi; \
+ for file in $(DISTFILES.common) $$additional; do \
+ ln $(srcdir)/$$file $(distdir) 2> /dev/null \
+ || cp -p $(srcdir)/$$file $(distdir); \
+ done
+
+dist-libc:
+ tar zcvf intl-glibc.tar.gz $(COMSRCS) $(COMHDRS) libintl.h.glibc
+
+Makefile: Makefile.in ../config.status
+ cd .. \
+ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
+
+# The dependency for intlh.inst is different in gettext and all other
+# packages. Because we cannot you GNU make features we have to solve
+# the problem while rewriting Makefile.in.
+@GT_YES@intlh.inst: intlh.inst.in ../config.status
+@GT_YES@ cd .. \
+@GT_YES@ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= \
+@GT_YES@ $(SHELL) ./config.status
+@GT_NO@.PHONY: intlh.inst
+@GT_NO@intlh.inst:
+
+# Tell versions [3.59,3.63) of GNU make not to export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/intl/VERSION b/intl/VERSION
new file mode 100644
index 00000000..ee66b061
--- /dev/null
+++ b/intl/VERSION
@@ -0,0 +1 @@
+GNU gettext library from gettext-0.10.35
diff --git a/intl/bindtextdom.c b/intl/bindtextdom.c
new file mode 100644
index 00000000..d9c3f349
--- /dev/null
+++ b/intl/bindtextdom.c
@@ -0,0 +1,203 @@
+/* Implementation of the bindtextdomain(3) function
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#else
+# ifdef HAVE_MALLOC_H
+# include <malloc.h>
+# else
+void free ();
+# endif
+#endif
+
+#if defined HAVE_STRING_H || defined _LIBC
+# include <string.h>
+#else
+# include <strings.h>
+# ifndef memcpy
+# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
+# endif
+#endif
+
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+#include "gettext.h"
+#include "gettextP.h"
+
+/* @@ end of prolog @@ */
+
+/* Contains the default location of the message catalogs. */
+extern const char _nl_default_dirname[];
+
+/* List with bindings of specific domains. */
+extern struct binding *_nl_domain_bindings;
+
+
+/* Names for the libintl functions are a problem. They must not clash
+ with existing names and they should follow ANSI C. But this source
+ code is also used in GNU C Library where the names have a __
+ prefix. So we have to make a difference here. */
+#ifdef _LIBC
+# define BINDTEXTDOMAIN __bindtextdomain
+# ifndef strdup
+# define strdup(str) __strdup (str)
+# endif
+#else
+# define BINDTEXTDOMAIN bindtextdomain__
+#endif
+
+/* Specify that the DOMAINNAME message catalog will be found
+ in DIRNAME rather than in the system locale data base. */
+char *
+BINDTEXTDOMAIN (domainname, dirname)
+ const char *domainname;
+ const char *dirname;
+{
+ struct binding *binding;
+
+ /* Some sanity checks. */
+ if (domainname == NULL || domainname[0] == '\0')
+ return NULL;
+
+ for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
+ {
+ int compare = strcmp (domainname, binding->domainname);
+ if (compare == 0)
+ /* We found it! */
+ break;
+ if (compare < 0)
+ {
+ /* It is not in the list. */
+ binding = NULL;
+ break;
+ }
+ }
+
+ if (dirname == NULL)
+ /* The current binding has be to returned. */
+ return binding == NULL ? (char *) _nl_default_dirname : binding->dirname;
+
+ if (binding != NULL)
+ {
+ /* The domain is already bound. If the new value and the old
+ one are equal we simply do nothing. Otherwise replace the
+ old binding. */
+ if (strcmp (dirname, binding->dirname) != 0)
+ {
+ char *new_dirname;
+
+ if (strcmp (dirname, _nl_default_dirname) == 0)
+ new_dirname = (char *) _nl_default_dirname;
+ else
+ {
+#if defined _LIBC || defined HAVE_STRDUP
+ new_dirname = strdup (dirname);
+ if (new_dirname == NULL)
+ return NULL;
+#else
+ size_t len = strlen (dirname) + 1;
+ new_dirname = (char *) malloc (len);
+ if (new_dirname == NULL)
+ return NULL;
+
+ memcpy (new_dirname, dirname, len);
+#endif
+ }
+
+ if (binding->dirname != _nl_default_dirname)
+ free (binding->dirname);
+
+ binding->dirname = new_dirname;
+ }
+ }
+ else
+ {
+ /* We have to create a new binding. */
+#if !defined _LIBC && !defined HAVE_STRDUP
+ size_t len;
+#endif
+ struct binding *new_binding =
+ (struct binding *) malloc (sizeof (*new_binding));
+
+ if (new_binding == NULL)
+ return NULL;
+
+#if defined _LIBC || defined HAVE_STRDUP
+ new_binding->domainname = strdup (domainname);
+ if (new_binding->domainname == NULL)
+ return NULL;
+#else
+ len = strlen (domainname) + 1;
+ new_binding->domainname = (char *) malloc (len);
+ if (new_binding->domainname == NULL)
+ return NULL;
+ memcpy (new_binding->domainname, domainname, len);
+#endif
+
+ if (strcmp (dirname, _nl_default_dirname) == 0)
+ new_binding->dirname = (char *) _nl_default_dirname;
+ else
+ {
+#if defined _LIBC || defined HAVE_STRDUP
+ new_binding->dirname = strdup (dirname);
+ if (new_binding->dirname == NULL)
+ return NULL;
+#else
+ len = strlen (dirname) + 1;
+ new_binding->dirname = (char *) malloc (len);
+ if (new_binding->dirname == NULL)
+ return NULL;
+ memcpy (new_binding->dirname, dirname, len);
+#endif
+ }
+
+ /* Now enqueue it. */
+ if (_nl_domain_bindings == NULL
+ || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
+ {
+ new_binding->next = _nl_domain_bindings;
+ _nl_domain_bindings = new_binding;
+ }
+ else
+ {
+ binding = _nl_domain_bindings;
+ while (binding->next != NULL
+ && strcmp (domainname, binding->next->domainname) > 0)
+ binding = binding->next;
+
+ new_binding->next = binding->next;
+ binding->next = new_binding;
+ }
+
+ binding = new_binding;
+ }
+
+ return binding->dirname;
+}
+
+#ifdef _LIBC
+/* Alias for function name in GNU C Library. */
+weak_alias (__bindtextdomain, bindtextdomain);
+#endif
diff --git a/intl/cat-compat.c b/intl/cat-compat.c
new file mode 100644
index 00000000..867d901b
--- /dev/null
+++ b/intl/cat-compat.c
@@ -0,0 +1,262 @@
+/* Compatibility code for gettext-using-catgets interface.
+ Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <stdio.h>
+
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# include <string.h>
+#else
+char *getenv ();
+# ifdef HAVE_MALLOC_H
+# include <malloc.h>
+# endif
+#endif
+
+#ifdef HAVE_NL_TYPES_H
+# include <nl_types.h>
+#endif
+
+#include "libgettext.h"
+
+/* @@ end of prolog @@ */
+
+/* XPG3 defines the result of `setlocale (category, NULL)' as:
+ ``Directs `setlocale()' to query `category' and return the current
+ setting of `local'.''
+ However it does not specify the exact format. And even worse: POSIX
+ defines this not at all. So we can use this feature only on selected
+ system (e.g. those using GNU C Library). */
+#ifdef _LIBC
+# define HAVE_LOCALE_NULL
+#endif
+
+/* The catalog descriptor. */
+static nl_catd catalog = (nl_catd) -1;
+
+/* Name of the default catalog. */
+static const char default_catalog_name[] = "messages";
+
+/* Name of currently used catalog. */
+static const char *catalog_name = default_catalog_name;
+
+/* Get ID for given string. If not found return -1. */
+static int msg_to_cat_id PARAMS ((const char *msg));
+
+/* Substitution for systems lacking this function in their C library. */
+#if !_LIBC && !HAVE_STPCPY
+static char *stpcpy PARAMS ((char *dest, const char *src));
+#endif
+
+
+/* Set currently used domain/catalog. */
+char *
+textdomain (domainname)
+ const char *domainname;
+{
+ nl_catd new_catalog;
+ char *new_name;
+ size_t new_name_len;
+ char *lang;
+
+#if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES \
+ && defined HAVE_LOCALE_NULL
+ lang = setlocale (LC_MESSAGES, NULL);
+#else
+ lang = getenv ("LC_ALL");
+ if (lang == NULL || lang[0] == '\0')
+ {
+ lang = getenv ("LC_MESSAGES");
+ if (lang == NULL || lang[0] == '\0')
+ lang = getenv ("LANG");
+ }
+#endif
+ if (lang == NULL || lang[0] == '\0')
+ lang = "C";
+
+ /* See whether name of currently used domain is asked. */
+ if (domainname == NULL)
+ return (char *) catalog_name;
+
+ if (domainname[0] == '\0')
+ domainname = default_catalog_name;
+
+ /* Compute length of added path element. */
+ new_name_len = sizeof (LOCALEDIR) - 1 + 1 + strlen (lang)
+ + sizeof ("/LC_MESSAGES/") - 1 + sizeof (PACKAGE) - 1
+ + sizeof (".cat");
+
+ new_name = (char *) malloc (new_name_len);
+ if (new_name == NULL)
+ return NULL;
+
+ strcpy (new_name, PACKAGE);
+ new_catalog = catopen (new_name, 0);
+
+ if (new_catalog == (nl_catd) -1)
+ {
+ /* NLSPATH search didn't work, try absolute path */
+ sprintf (new_name, "%s/%s/LC_MESSAGES/%s.cat", LOCALEDIR, lang,
+ PACKAGE);
+ new_catalog = catopen (new_name, 0);
+
+ if (new_catalog == (nl_catd) -1)
+ {
+ free (new_name);
+ return (char *) catalog_name;
+ }
+ }
+
+ /* Close old catalog. */
+ if (catalog != (nl_catd) -1)
+ catclose (catalog);
+ if (catalog_name != default_catalog_name)
+ free ((char *) catalog_name);
+
+ catalog = new_catalog;
+ catalog_name = new_name;
+
+ return (char *) catalog_name;
+}
+
+char *
+bindtextdomain (domainname, dirname)
+ const char *domainname;
+ const char *dirname;
+{
+#if HAVE_SETENV || HAVE_PUTENV
+ char *old_val, *new_val, *cp;
+ size_t new_val_len;
+
+ /* This does not make much sense here but to be compatible do it. */
+ if (domainname == NULL)
+ return NULL;
+
+ /* Compute length of added path element. If we use setenv we don't need
+ the first byts for NLSPATH=, but why complicate the code for this
+ peanuts. */
+ new_val_len = sizeof ("NLSPATH=") - 1 + strlen (dirname)
+ + sizeof ("/%L/LC_MESSAGES/%N.cat");
+
+ old_val = getenv ("NLSPATH");
+ if (old_val == NULL || old_val[0] == '\0')
+ {
+ old_val = NULL;
+ new_val_len += 1 + sizeof (LOCALEDIR) - 1
+ + sizeof ("/%L/LC_MESSAGES/%N.cat");
+ }
+ else
+ new_val_len += strlen (old_val);
+
+ new_val = (char *) malloc (new_val_len);
+ if (new_val == NULL)
+ return NULL;
+
+# if HAVE_SETENV
+ cp = new_val;
+# else
+ cp = stpcpy (new_val, "NLSPATH=");
+# endif
+
+ cp = stpcpy (cp, dirname);
+ cp = stpcpy (cp, "/%L/LC_MESSAGES/%N.cat:");
+
+ if (old_val == NULL)
+ {
+# if __STDC__
+ stpcpy (cp, LOCALEDIR "/%L/LC_MESSAGES/%N.cat");
+# else
+
+ cp = stpcpy (cp, LOCALEDIR);
+ stpcpy (cp, "/%L/LC_MESSAGES/%N.cat");
+# endif
+ }
+ else
+ stpcpy (cp, old_val);
+
+# if HAVE_SETENV
+ setenv ("NLSPATH", new_val, 1);
+ free (new_val);
+# else
+ putenv (new_val);
+ /* Do *not* free the environment entry we just entered. It is used
+ from now on. */
+# endif
+
+#endif
+
+ return (char *) domainname;
+}
+
+#undef gettext
+char *
+gettext (msg)
+ const char *msg;
+{
+ int msgid;
+
+ if (msg == NULL || catalog == (nl_catd) -1)
+ return (char *) msg;
+
+ /* Get the message from the catalog. We always use set number 1.
+ The message ID is computed by the function `msg_to_cat_id'
+ which works on the table generated by `po-to-tbl'. */
+ msgid = msg_to_cat_id (msg);
+ if (msgid == -1)
+ return (char *) msg;
+
+ return catgets (catalog, 1, msgid, (char *) msg);
+}
+
+/* Look through the table `_msg_tbl' which has `_msg_tbl_length' entries
+ for the one equal to msg. If it is found return the ID. In case when
+ the string is not found return -1. */
+static int
+msg_to_cat_id (msg)
+ const char *msg;
+{
+ int cnt;
+
+ for (cnt = 0; cnt < _msg_tbl_length; ++cnt)
+ if (strcmp (msg, _msg_tbl[cnt]._msg) == 0)
+ return _msg_tbl[cnt]._msg_number;
+
+ return -1;
+}
+
+
+/* @@ begin of epilog @@ */
+
+/* We don't want libintl.a to depend on any other library. So we
+ avoid the non-standard function stpcpy. In GNU C Library this
+ function is available, though. Also allow the symbol HAVE_STPCPY
+ to be defined. */
+#if !_LIBC && !HAVE_STPCPY
+static char *
+stpcpy (dest, src)
+ char *dest;
+ const char *src;
+{
+ while ((*dest++ = *src++) != '\0')
+ /* Do nothing. */ ;
+ return dest - 1;
+}
+#endif
diff --git a/intl/dcgettext.c b/intl/dcgettext.c
new file mode 100644
index 00000000..0f7bb486
--- /dev/null
+++ b/intl/dcgettext.c
@@ -0,0 +1,655 @@
+/* Implementation of the dcgettext(3) function.
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <sys/types.h>
+
+#if defined __GNUC__ && !defined C_ALLOCA
+# define alloca __builtin_alloca
+# define HAVE_ALLOCA 1
+#else
+# if (defined HAVE_ALLOCA_H || defined _LIBC) && !defined C_ALLOCA
+# include <alloca.h>
+# else
+# ifdef _AIX
+ #pragma alloca
+# else
+# ifndef alloca
+char *alloca ();
+# endif
+# endif
+# endif
+#endif
+
+#include <errno.h>
+#ifndef errno
+extern int errno;
+#endif
+#ifndef __set_errno
+# define __set_errno(val) errno = (val)
+#endif
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#else
+char *getenv ();
+# ifdef HAVE_MALLOC_H
+# include <malloc.h>
+# else
+void free ();
+# endif
+#endif
+
+#if defined HAVE_STRING_H || defined _LIBC
+# ifndef _GNU_SOURCE
+# define _GNU_SOURCE 1
+# endif
+# include <string.h>
+#else
+# include <strings.h>
+#endif
+#if !HAVE_STRCHR && !defined _LIBC
+# ifndef strchr
+# define strchr index
+# endif
+#endif
+
+#if defined HAVE_UNISTD_H || defined _LIBC
+# include <unistd.h>
+#endif
+
+#include "gettext.h"
+#include "gettextP.h"
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+#include "hash-string.h"
+
+/* @@ end of prolog @@ */
+
+#ifdef _LIBC
+/* Rename the non ANSI C functions. This is required by the standard
+ because some ANSI C functions will require linking with this object
+ file and the name space must not be polluted. */
+# define getcwd __getcwd
+# ifndef stpcpy
+# define stpcpy __stpcpy
+# endif
+#else
+# if !defined HAVE_GETCWD
+char *getwd ();
+# define getcwd(buf, max) getwd (buf)
+# else
+char *getcwd ();
+# endif
+# ifndef HAVE_STPCPY
+static char *stpcpy PARAMS ((char *dest, const char *src));
+# endif
+#endif
+
+/* Amount to increase buffer size by in each try. */
+#define PATH_INCR 32
+
+/* The following is from pathmax.h. */
+/* Non-POSIX BSD systems might have gcc's limits.h, which doesn't define
+ PATH_MAX but might cause redefinition warnings when sys/param.h is
+ later included (as on MORE/BSD 4.3). */
+#if defined(_POSIX_VERSION) || (defined(HAVE_LIMITS_H) && !defined(__GNUC__))
+# include <limits.h>
+#endif
+
+#ifndef _POSIX_PATH_MAX
+# define _POSIX_PATH_MAX 255
+#endif
+
+#if !defined(PATH_MAX) && defined(_PC_PATH_MAX)
+# define PATH_MAX (pathconf ("/", _PC_PATH_MAX) < 1 ? 1024 : pathconf ("/", _PC_PATH_MAX))
+#endif
+
+/* Don't include sys/param.h if it already has been. */
+#if defined(HAVE_SYS_PARAM_H) && !defined(PATH_MAX) && !defined(MAXPATHLEN)
+# include <sys/param.h>
+#endif
+
+#if !defined(PATH_MAX) && defined(MAXPATHLEN)
+# define PATH_MAX MAXPATHLEN
+#endif
+
+#ifndef PATH_MAX
+# define PATH_MAX _POSIX_PATH_MAX
+#endif
+
+/* XPG3 defines the result of `setlocale (category, NULL)' as:
+ ``Directs `setlocale()' to query `category' and return the current
+ setting of `local'.''
+ However it does not specify the exact format. And even worse: POSIX
+ defines this not at all. So we can use this feature only on selected
+ system (e.g. those using GNU C Library). */
+#ifdef _LIBC
+# define HAVE_LOCALE_NULL
+#endif
+
+/* Name of the default domain used for gettext(3) prior any call to
+ textdomain(3). The default value for this is "messages". */
+const char _nl_default_default_domain[] = "messages";
+
+/* Value used as the default domain for gettext(3). */
+const char *_nl_current_default_domain = _nl_default_default_domain;
+
+/* Contains the default location of the message catalogs. */
+const char _nl_default_dirname[] = GNULOCALEDIR;
+
+/* List with bindings of specific domains created by bindtextdomain()
+ calls. */
+struct binding *_nl_domain_bindings;
+
+/* Prototypes for local functions. */
+static char *find_msg PARAMS ((struct loaded_l10nfile *domain_file,
+ const char *msgid)) internal_function;
+static const char *category_to_name PARAMS ((int category)) internal_function;
+static const char *guess_category_value PARAMS ((int category,
+ const char *categoryname))
+ internal_function;
+
+
+/* For those loosing systems which don't have `alloca' we have to add
+ some additional code emulating it. */
+#ifdef HAVE_ALLOCA
+/* Nothing has to be done. */
+# define ADD_BLOCK(list, address) /* nothing */
+# define FREE_BLOCKS(list) /* nothing */
+#else
+struct block_list
+{
+ void *address;
+ struct block_list *next;
+};
+# define ADD_BLOCK(list, addr) \
+ do { \
+ struct block_list *newp = (struct block_list *) malloc (sizeof (*newp)); \
+ /* If we cannot get a free block we cannot add the new element to \
+ the list. */ \
+ if (newp != NULL) { \
+ newp->address = (addr); \
+ newp->next = (list); \
+ (list) = newp; \
+ } \
+ } while (0)
+# define FREE_BLOCKS(list) \
+ do { \
+ while (list != NULL) { \
+ struct block_list *old = list; \
+ list = list->next; \
+ free (old); \
+ } \
+ } while (0)
+# undef alloca
+# define alloca(size) (malloc (size))
+#endif /* have alloca */
+
+
+/* Names for the libintl functions are a problem. They must not clash
+ with existing names and they should follow ANSI C. But this source
+ code is also used in GNU C Library where the names have a __
+ prefix. So we have to make a difference here. */
+#ifdef _LIBC
+# define DCGETTEXT __dcgettext
+#else
+# define DCGETTEXT dcgettext__
+#endif
+
+/* Checking whether the binaries runs SUID must be done and glibc provides
+ easier methods therefore we make a difference here. */
+#ifdef _LIBC
+# define ENABLE_SECURE __libc_enable_secure
+# define DETERMINE_SECURE
+#else
+static int enable_secure;
+# define ENABLE_SECURE (enable_secure == 1)
+# define DETERMINE_SECURE \
+ if (enable_secure == 0) \
+ { \
+ if (getuid () != geteuid () || getgid () != getegid ()) \
+ enable_secure = 1; \
+ else \
+ enable_secure = -1; \
+ }
+#endif
+
+/* Look up MSGID in the DOMAINNAME message catalog for the current CATEGORY
+ locale. */
+char *
+DCGETTEXT (domainname, msgid, category)
+ const char *domainname;
+ const char *msgid;
+ int category;
+{
+#ifndef HAVE_ALLOCA
+ struct block_list *block_list = NULL;
+#endif
+ struct loaded_l10nfile *domain;
+ struct binding *binding;
+ const char *categoryname;
+ const char *categoryvalue;
+ char *dirname, *xdomainname;
+ char *single_locale;
+ char *retval;
+ int saved_errno = errno;
+
+ /* If no real MSGID is given return NULL. */
+ if (msgid == NULL)
+ return NULL;
+
+ /* See whether this is a SUID binary or not. */
+ DETERMINE_SECURE;
+
+ /* If DOMAINNAME is NULL, we are interested in the default domain. If
+ CATEGORY is not LC_MESSAGES this might not make much sense but the
+ definition left this undefined. */
+ if (domainname == NULL)
+ domainname = _nl_current_default_domain;
+
+ /* First find matching binding. */
+ for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
+ {
+ int compare = strcmp (domainname, binding->domainname);
+ if (compare == 0)
+ /* We found it! */
+ break;
+ if (compare < 0)
+ {
+ /* It is not in the list. */
+ binding = NULL;
+ break;
+ }
+ }
+
+ if (binding == NULL)
+ dirname = (char *) _nl_default_dirname;
+ else if (binding->dirname[0] == '/')
+ dirname = binding->dirname;
+ else
+ {
+ /* We have a relative path. Make it absolute now. */
+ size_t dirname_len = strlen (binding->dirname) + 1;
+ size_t path_max;
+ char *ret;
+
+ path_max = (unsigned int) PATH_MAX;
+ path_max += 2; /* The getcwd docs say to do this. */
+
+ dirname = (char *) alloca (path_max + dirname_len);
+ ADD_BLOCK (block_list, dirname);
+
+ __set_errno (0);
+ while ((ret = getcwd (dirname, path_max)) == NULL && errno == ERANGE)
+ {
+ path_max += PATH_INCR;
+ dirname = (char *) alloca (path_max + dirname_len);
+ ADD_BLOCK (block_list, dirname);
+ __set_errno (0);
+ }
+
+ if (ret == NULL)
+ {
+ /* We cannot get the current working directory. Don't signal an
+ error but simply return the default string. */
+ FREE_BLOCKS (block_list);
+ __set_errno (saved_errno);
+ return (char *) msgid;
+ }
+
+ stpcpy (stpcpy (strchr (dirname, '\0'), "/"), binding->dirname);
+ }
+
+ /* Now determine the symbolic name of CATEGORY and its value. */
+ categoryname = category_to_name (category);
+ categoryvalue = guess_category_value (category, categoryname);
+
+ xdomainname = (char *) alloca (strlen (categoryname)
+ + strlen (domainname) + 5);
+ ADD_BLOCK (block_list, xdomainname);
+
+ stpcpy (stpcpy (stpcpy (stpcpy (xdomainname, categoryname), "/"),
+ domainname),
+ ".mo");
+
+ /* Creating working area. */
+ single_locale = (char *) alloca (strlen (categoryvalue) + 1);
+ ADD_BLOCK (block_list, single_locale);
+
+
+ /* Search for the given string. This is a loop because we perhaps
+ got an ordered list of languages to consider for the translation. */
+ while (1)
+ {
+ /* Make CATEGORYVALUE point to the next element of the list. */
+ while (categoryvalue[0] != '\0' && categoryvalue[0] == ':')
+ ++categoryvalue;
+ if (categoryvalue[0] == '\0')
+ {
+ /* The whole contents of CATEGORYVALUE has been searched but
+ no valid entry has been found. We solve this situation
+ by implicitly appending a "C" entry, i.e. no translation
+ will take place. */
+ single_locale[0] = 'C';
+ single_locale[1] = '\0';
+ }
+ else
+ {
+ char *cp = single_locale;
+ while (categoryvalue[0] != '\0' && categoryvalue[0] != ':')
+ *cp++ = *categoryvalue++;
+ *cp = '\0';
+
+ /* When this is a SUID binary we must not allow accessing files
+ outside the dedicated directories. */
+ if (ENABLE_SECURE
+ && (memchr (single_locale, '/',
+ _nl_find_language (single_locale) - single_locale)
+ != NULL))
+ /* Ingore this entry. */
+ continue;
+ }
+
+ /* If the current locale value is C (or POSIX) we don't load a
+ domain. Return the MSGID. */
+ if (strcmp (single_locale, "C") == 0
+ || strcmp (single_locale, "POSIX") == 0)
+ {
+ FREE_BLOCKS (block_list);
+ __set_errno (saved_errno);
+ return (char *) msgid;
+ }
+
+
+ /* Find structure describing the message catalog matching the
+ DOMAINNAME and CATEGORY. */
+ domain = _nl_find_domain (dirname, single_locale, xdomainname);
+
+ if (domain != NULL)
+ {
+ retval = find_msg (domain, msgid);
+
+ if (retval == NULL)
+ {
+ int cnt;
+
+ for (cnt = 0; domain->successor[cnt] != NULL; ++cnt)
+ {
+ retval = find_msg (domain->successor[cnt], msgid);
+
+ if (retval != NULL)
+ break;
+ }
+ }
+
+ if (retval != NULL)
+ {
+ FREE_BLOCKS (block_list);
+ __set_errno (saved_errno);
+ return retval;
+ }
+ }
+ }
+ /* NOTREACHED */
+}
+
+#ifdef _LIBC
+/* Alias for function name in GNU C Library. */
+weak_alias (__dcgettext, dcgettext);
+#endif
+
+
+static char *
+internal_function
+find_msg (domain_file, msgid)
+ struct loaded_l10nfile *domain_file;
+ const char *msgid;
+{
+ size_t act = 0;
+ size_t top, bottom;
+ struct loaded_domain *domain;
+
+ if (domain_file->decided == 0)
+ _nl_load_domain (domain_file);
+
+ if (domain_file->data == NULL)
+ return NULL;
+
+ domain = (struct loaded_domain *) domain_file->data;
+
+ /* Locate the MSGID and its translation. */
+ if (domain->hash_size > 2 && domain->hash_tab != NULL)
+ {
+ /* Use the hashing table. */
+ nls_uint32 len = strlen (msgid);
+ nls_uint32 hash_val = hash_string (msgid);
+ nls_uint32 idx = hash_val % domain->hash_size;
+ nls_uint32 incr = 1 + (hash_val % (domain->hash_size - 2));
+ nls_uint32 nstr = W (domain->must_swap, domain->hash_tab[idx]);
+
+ if (nstr == 0)
+ /* Hash table entry is empty. */
+ return NULL;
+
+ if (W (domain->must_swap, domain->orig_tab[nstr - 1].length) == len
+ && strcmp (msgid,
+ domain->data + W (domain->must_swap,
+ domain->orig_tab[nstr - 1].offset)) == 0)
+ return (char *) domain->data + W (domain->must_swap,
+ domain->trans_tab[nstr - 1].offset);
+
+ while (1)
+ {
+ if (idx >= domain->hash_size - incr)
+ idx -= domain->hash_size - incr;
+ else
+ idx += incr;
+
+ nstr = W (domain->must_swap, domain->hash_tab[idx]);
+ if (nstr == 0)
+ /* Hash table entry is empty. */
+ return NULL;
+
+ if (W (domain->must_swap, domain->orig_tab[nstr - 1].length) == len
+ && strcmp (msgid,
+ domain->data + W (domain->must_swap,
+ domain->orig_tab[nstr - 1].offset))
+ == 0)
+ return (char *) domain->data
+ + W (domain->must_swap, domain->trans_tab[nstr - 1].offset);
+ }
+ /* NOTREACHED */
+ }
+
+ /* Now we try the default method: binary search in the sorted
+ array of messages. */
+ bottom = 0;
+ top = domain->nstrings;
+ while (bottom < top)
+ {
+ int cmp_val;
+
+ act = (bottom + top) / 2;
+ cmp_val = strcmp (msgid, domain->data
+ + W (domain->must_swap,
+ domain->orig_tab[act].offset));
+ if (cmp_val < 0)
+ top = act;
+ else if (cmp_val > 0)
+ bottom = act + 1;
+ else
+ break;
+ }
+
+ /* If an translation is found return this. */
+ return bottom >= top ? NULL : (char *) domain->data
+ + W (domain->must_swap,
+ domain->trans_tab[act].offset);
+}
+
+
+/* Return string representation of locale CATEGORY. */
+static const char *
+internal_function
+category_to_name (category)
+ int category;
+{
+ const char *retval;
+
+ switch (category)
+ {
+#ifdef LC_COLLATE
+ case LC_COLLATE:
+ retval = "LC_COLLATE";
+ break;
+#endif
+#ifdef LC_CTYPE
+ case LC_CTYPE:
+ retval = "LC_CTYPE";
+ break;
+#endif
+#ifdef LC_MONETARY
+ case LC_MONETARY:
+ retval = "LC_MONETARY";
+ break;
+#endif
+#ifdef LC_NUMERIC
+ case LC_NUMERIC:
+ retval = "LC_NUMERIC";
+ break;
+#endif
+#ifdef LC_TIME
+ case LC_TIME:
+ retval = "LC_TIME";
+ break;
+#endif
+#ifdef LC_MESSAGES
+ case LC_MESSAGES:
+ retval = "LC_MESSAGES";
+ break;
+#endif
+#ifdef LC_RESPONSE
+ case LC_RESPONSE:
+ retval = "LC_RESPONSE";
+ break;
+#endif
+#ifdef LC_ALL
+ case LC_ALL:
+ /* This might not make sense but is perhaps better than any other
+ value. */
+ retval = "LC_ALL";
+ break;
+#endif
+ default:
+ /* If you have a better idea for a default value let me know. */
+ retval = "LC_XXX";
+ }
+
+ return retval;
+}
+
+/* Guess value of current locale from value of the environment variables. */
+static const char *
+internal_function
+guess_category_value (category, categoryname)
+ int category;
+ const char *categoryname;
+{
+ const char *retval;
+
+ /* The highest priority value is the `LANGUAGE' environment
+ variable. This is a GNU extension. */
+ retval = getenv ("LANGUAGE");
+ if (retval != NULL && retval[0] != '\0')
+ return retval;
+
+ /* `LANGUAGE' is not set. So we have to proceed with the POSIX
+ methods of looking to `LC_ALL', `LC_xxx', and `LANG'. On some
+ systems this can be done by the `setlocale' function itself. */
+#if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
+ return setlocale (category, NULL);
+#else
+ /* Setting of LC_ALL overwrites all other. */
+ retval = getenv ("LC_ALL");
+ if (retval != NULL && retval[0] != '\0')
+ return retval;
+
+ /* Next comes the name of the desired category. */
+ retval = getenv (categoryname);
+ if (retval != NULL && retval[0] != '\0')
+ return retval;
+
+ /* Last possibility is the LANG environment variable. */
+ retval = getenv ("LANG");
+ if (retval != NULL && retval[0] != '\0')
+ return retval;
+
+ /* We use C as the default domain. POSIX says this is implementation
+ defined. */
+ return "C";
+#endif
+}
+
+/* @@ begin of epilog @@ */
+
+/* We don't want libintl.a to depend on any other library. So we
+ avoid the non-standard function stpcpy. In GNU C Library this
+ function is available, though. Also allow the symbol HAVE_STPCPY
+ to be defined. */
+#if !_LIBC && !HAVE_STPCPY
+static char *
+stpcpy (dest, src)
+ char *dest;
+ const char *src;
+{
+ while ((*dest++ = *src++) != '\0')
+ /* Do nothing. */ ;
+ return dest - 1;
+}
+#endif
+
+
+#ifdef _LIBC
+/* If we want to free all resources we have to do some work at
+ program's end. */
+static void __attribute__ ((unused))
+free_mem (void)
+{
+ struct binding *runp;
+
+ for (runp = _nl_domain_bindings; runp != NULL; runp = runp->next)
+ {
+ free (runp->domainname);
+ if (runp->dirname != _nl_default_dirname)
+ /* Yes, this is a pointer comparison. */
+ free (runp->dirname);
+ }
+
+ if (_nl_current_default_domain != _nl_default_default_domain)
+ /* Yes, again a pointer comparison. */
+ free ((char *) _nl_current_default_domain);
+}
+
+text_set_element (__libc_subfreeres, free_mem);
+#endif
diff --git a/intl/dgettext.c b/intl/dgettext.c
new file mode 100644
index 00000000..0510c2b0
--- /dev/null
+++ b/intl/dgettext.c
@@ -0,0 +1,59 @@
+/* Implementation of the dgettext(3) function
+ Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#if defined HAVE_LOCALE_H || defined _LIBC
+# include <locale.h>
+#endif
+
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+
+/* @@ end of prolog @@ */
+
+/* Names for the libintl functions are a problem. They must not clash
+ with existing names and they should follow ANSI C. But this source
+ code is also used in GNU C Library where the names have a __
+ prefix. So we have to make a difference here. */
+#ifdef _LIBC
+# define DGETTEXT __dgettext
+# define DCGETTEXT __dcgettext
+#else
+# define DGETTEXT dgettext__
+# define DCGETTEXT dcgettext__
+#endif
+
+/* Look up MSGID in the DOMAINNAME message catalog of the current
+ LC_MESSAGES locale. */
+char *
+DGETTEXT (domainname, msgid)
+ const char *domainname;
+ const char *msgid;
+{
+ return DCGETTEXT (domainname, msgid, LC_MESSAGES);
+}
+
+#ifdef _LIBC
+/* Alias for function name in GNU C Library. */
+weak_alias (__dgettext, dgettext);
+#endif
diff --git a/intl/explodename.c b/intl/explodename.c
new file mode 100644
index 00000000..7f480973
--- /dev/null
+++ b/intl/explodename.c
@@ -0,0 +1,198 @@
+/* Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#endif
+
+#if defined HAVE_STRING_H || defined _LIBC
+# include <string.h>
+#else
+# include <strings.h>
+#endif
+#include <sys/types.h>
+
+#include "loadinfo.h"
+
+/* On some strange systems still no definition of NULL is found. Sigh! */
+#ifndef NULL
+# if defined __STDC__ && __STDC__
+# define NULL ((void *) 0)
+# else
+# define NULL 0
+# endif
+#endif
+
+/* @@ end of prolog @@ */
+
+char *
+_nl_find_language (name)
+ const char *name;
+{
+ while (name[0] != '\0' && name[0] != '_' && name[0] != '@'
+ && name[0] != '+' && name[0] != ',')
+ ++name;
+
+ return (char *) name;
+}
+
+
+int
+_nl_explode_name (name, language, modifier, territory, codeset,
+ normalized_codeset, special, sponsor, revision)
+ char *name;
+ const char **language;
+ const char **modifier;
+ const char **territory;
+ const char **codeset;
+ const char **normalized_codeset;
+ const char **special;
+ const char **sponsor;
+ const char **revision;
+{
+ enum { undecided, xpg, cen } syntax;
+ char *cp;
+ int mask;
+
+ *modifier = NULL;
+ *territory = NULL;
+ *codeset = NULL;
+ *normalized_codeset = NULL;
+ *special = NULL;
+ *sponsor = NULL;
+ *revision = NULL;
+
+ /* Now we determine the single parts of the locale name. First
+ look for the language. Termination symbols are `_' and `@' if
+ we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */
+ mask = 0;
+ syntax = undecided;
+ *language = cp = name;
+ cp = _nl_find_language (*language);
+
+ if (*language == cp)
+ /* This does not make sense: language has to be specified. Use
+ this entry as it is without exploding. Perhaps it is an alias. */
+ cp = strchr (*language, '\0');
+ else if (cp[0] == '_')
+ {
+ /* Next is the territory. */
+ cp[0] = '\0';
+ *territory = ++cp;
+
+ while (cp[0] != '\0' && cp[0] != '.' && cp[0] != '@'
+ && cp[0] != '+' && cp[0] != ',' && cp[0] != '_')
+ ++cp;
+
+ mask |= TERRITORY;
+
+ if (cp[0] == '.')
+ {
+ /* Next is the codeset. */
+ syntax = xpg;
+ cp[0] = '\0';
+ *codeset = ++cp;
+
+ while (cp[0] != '\0' && cp[0] != '@')
+ ++cp;
+
+ mask |= XPG_CODESET;
+
+ if (*codeset != cp && (*codeset)[0] != '\0')
+ {
+ *normalized_codeset = _nl_normalize_codeset (*codeset,
+ cp - *codeset);
+ if (strcmp (*codeset, *normalized_codeset) == 0)
+ free ((char *) *normalized_codeset);
+ else
+ mask |= XPG_NORM_CODESET;
+ }
+ }
+ }
+
+ if (cp[0] == '@' || (syntax != xpg && cp[0] == '+'))
+ {
+ /* Next is the modifier. */
+ syntax = cp[0] == '@' ? xpg : cen;
+ cp[0] = '\0';
+ *modifier = ++cp;
+
+ while (syntax == cen && cp[0] != '\0' && cp[0] != '+'
+ && cp[0] != ',' && cp[0] != '_')
+ ++cp;
+
+ mask |= XPG_MODIFIER | CEN_AUDIENCE;
+ }
+
+ if (syntax != xpg && (cp[0] == '+' || cp[0] == ',' || cp[0] == '_'))
+ {
+ syntax = cen;
+
+ if (cp[0] == '+')
+ {
+ /* Next is special application (CEN syntax). */
+ cp[0] = '\0';
+ *special = ++cp;
+
+ while (cp[0] != '\0' && cp[0] != ',' && cp[0] != '_')
+ ++cp;
+
+ mask |= CEN_SPECIAL;
+ }
+
+ if (cp[0] == ',')
+ {
+ /* Next is sponsor (CEN syntax). */
+ cp[0] = '\0';
+ *sponsor = ++cp;
+
+ while (cp[0] != '\0' && cp[0] != '_')
+ ++cp;
+
+ mask |= CEN_SPONSOR;
+ }
+
+ if (cp[0] == '_')
+ {
+ /* Next is revision (CEN syntax). */
+ cp[0] = '\0';
+ *revision = ++cp;
+
+ mask |= CEN_REVISION;
+ }
+ }
+
+ /* For CEN syntax values it might be important to have the
+ separator character in the file name, not for XPG syntax. */
+ if (syntax == xpg)
+ {
+ if (*territory != NULL && (*territory)[0] == '\0')
+ mask &= ~TERRITORY;
+
+ if (*codeset != NULL && (*codeset)[0] == '\0')
+ mask &= ~XPG_CODESET;
+
+ if (*modifier != NULL && (*modifier)[0] == '\0')
+ mask &= ~XPG_MODIFIER;
+ }
+
+ return mask;
+}
diff --git a/intl/finddomain.c b/intl/finddomain.c
new file mode 100644
index 00000000..81ea29bf
--- /dev/null
+++ b/intl/finddomain.c
@@ -0,0 +1,216 @@
+/* Handle list of needed message catalogs
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <ctype.h>
+#include <errno.h>
+#include <stdio.h>
+#include <sys/types.h>
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#else
+# ifdef HAVE_MALLOC_H
+# include <malloc.h>
+# else
+void free ();
+# endif
+#endif
+
+#if defined HAVE_STRING_H || defined _LIBC
+# include <string.h>
+#else
+# include <strings.h>
+# ifndef memcpy
+# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
+# endif
+#endif
+#if !HAVE_STRCHR && !defined _LIBC
+# ifndef strchr
+# define strchr index
+# endif
+#endif
+
+#if defined HAVE_UNISTD_H || defined _LIBC
+# include <unistd.h>
+#endif
+
+#include "gettext.h"
+#include "gettextP.h"
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+
+/* @@ end of prolog @@ */
+/* List of already loaded domains. */
+static struct loaded_l10nfile *_nl_loaded_domains;
+
+
+/* Return a data structure describing the message catalog described by
+ the DOMAINNAME and CATEGORY parameters with respect to the currently
+ established bindings. */
+struct loaded_l10nfile *
+internal_function
+_nl_find_domain (dirname, locale, domainname)
+ const char *dirname;
+ char *locale;
+ const char *domainname;
+{
+ struct loaded_l10nfile *retval;
+ const char *language;
+ const char *modifier;
+ const char *territory;
+ const char *codeset;
+ const char *normalized_codeset;
+ const char *special;
+ const char *sponsor;
+ const char *revision;
+ const char *alias_value;
+ int mask;
+
+ /* LOCALE can consist of up to four recognized parts for the XPG syntax:
+
+ language[_territory[.codeset]][@modifier]
+
+ and six parts for the CEN syntax:
+
+ language[_territory][+audience][+special][,[sponsor][_revision]]
+
+ Beside the first part all of them are allowed to be missing. If
+ the full specified locale is not found, the less specific one are
+ looked for. The various parts will be stripped off according to
+ the following order:
+ (1) revision
+ (2) sponsor
+ (3) special
+ (4) codeset
+ (5) normalized codeset
+ (6) territory
+ (7) audience/modifier
+ */
+
+ /* If we have already tested for this locale entry there has to
+ be one data set in the list of loaded domains. */
+ retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
+ strlen (dirname) + 1, 0, locale, NULL, NULL,
+ NULL, NULL, NULL, NULL, NULL, domainname, 0);
+ if (retval != NULL)
+ {
+ /* We know something about this locale. */
+ int cnt;
+
+ if (retval->decided == 0)
+ _nl_load_domain (retval);
+
+ if (retval->data != NULL)
+ return retval;
+
+ for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
+ {
+ if (retval->successor[cnt]->decided == 0)
+ _nl_load_domain (retval->successor[cnt]);
+
+ if (retval->successor[cnt]->data != NULL)
+ break;
+ }
+ return cnt >= 0 ? retval : NULL;
+ /* NOTREACHED */
+ }
+
+ /* See whether the locale value is an alias. If yes its value
+ *overwrites* the alias name. No test for the original value is
+ done. */
+ alias_value = _nl_expand_alias (locale);
+ if (alias_value != NULL)
+ {
+#if defined _LIBC || defined HAVE_STRDUP
+ locale = strdup (alias_value);
+ if (locale == NULL)
+ return NULL;
+#else
+ size_t len = strlen (alias_value) + 1;
+ locale = (char *) malloc (len);
+ if (locale == NULL)
+ return NULL;
+
+ memcpy (locale, alias_value, len);
+#endif
+ }
+
+ /* Now we determine the single parts of the locale name. First
+ look for the language. Termination symbols are `_' and `@' if
+ we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */
+ mask = _nl_explode_name (locale, &language, &modifier, &territory,
+ &codeset, &normalized_codeset, &special,
+ &sponsor, &revision);
+
+ /* Create all possible locale entries which might be interested in
+ generalization. */
+ retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
+ strlen (dirname) + 1, mask, language, territory,
+ codeset, normalized_codeset, modifier, special,
+ sponsor, revision, domainname, 1);
+ if (retval == NULL)
+ /* This means we are out of core. */
+ return NULL;
+
+ if (retval->decided == 0)
+ _nl_load_domain (retval);
+ if (retval->data == NULL)
+ {
+ int cnt;
+ for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
+ {
+ if (retval->successor[cnt]->decided == 0)
+ _nl_load_domain (retval->successor[cnt]);
+ if (retval->successor[cnt]->data != NULL)
+ break;
+ }
+ }
+
+ /* The room for an alias was dynamically allocated. Free it now. */
+ if (alias_value != NULL)
+ free (locale);
+
+ return retval;
+}
+
+
+#ifdef _LIBC
+static void __attribute__ ((unused))
+free_mem (void)
+{
+ struct loaded_l10nfile *runp = _nl_loaded_domains;
+
+ while (runp != NULL)
+ {
+ struct loaded_l10nfile *here = runp;
+ if (runp->data != NULL)
+ _nl_unload_domain ((struct loaded_domain *) runp->data);
+ runp = runp->next;
+ free (here);
+ }
+}
+
+text_set_element (__libc_subfreeres, free_mem);
+#endif
diff --git a/intl/gettext.c b/intl/gettext.c
new file mode 100644
index 00000000..d929f98d
--- /dev/null
+++ b/intl/gettext.c
@@ -0,0 +1,70 @@
+/* Implementation of gettext(3) function.
+ Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#ifdef _LIBC
+# define __need_NULL
+# include <stddef.h>
+#else
+# ifdef STDC_HEADERS
+# include <stdlib.h> /* Just for NULL. */
+# else
+# ifdef HAVE_STRING_H
+# include <string.h>
+# else
+# define NULL ((void *) 0)
+# endif
+# endif
+#endif
+
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+
+/* @@ end of prolog @@ */
+
+/* Names for the libintl functions are a problem. They must not clash
+ with existing names and they should follow ANSI C. But this source
+ code is also used in GNU C Library where the names have a __
+ prefix. So we have to make a difference here. */
+#ifdef _LIBC
+# define GETTEXT __gettext
+# define DGETTEXT __dgettext
+#else
+# define GETTEXT gettext__
+# define DGETTEXT dgettext__
+#endif
+
+/* Look up MSGID in the current default message catalog for the current
+ LC_MESSAGES locale. If not found, returns MSGID itself (the default
+ text). */
+char *
+GETTEXT (msgid)
+ const char *msgid;
+{
+ return DGETTEXT (NULL, msgid);
+}
+
+#ifdef _LIBC
+/* Alias for function name in GNU C Library. */
+weak_alias (__gettext, gettext);
+#endif
diff --git a/intl/gettext.h b/intl/gettext.h
new file mode 100644
index 00000000..3cd23d7d
--- /dev/null
+++ b/intl/gettext.h
@@ -0,0 +1,105 @@
+/* Internal header for GNU gettext internationalization functions.
+ Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+#ifndef _GETTEXT_H
+#define _GETTEXT_H 1
+
+#include <stdio.h>
+
+#if HAVE_LIMITS_H || _LIBC
+# include <limits.h>
+#endif
+
+/* @@ end of prolog @@ */
+
+/* The magic number of the GNU message catalog format. */
+#define _MAGIC 0x950412de
+#define _MAGIC_SWAPPED 0xde120495
+
+/* Revision number of the currently used .mo (binary) file format. */
+#define MO_REVISION_NUMBER 0
+
+/* The following contortions are an attempt to use the C preprocessor
+ to determine an unsigned integral type that is 32 bits wide. An
+ alternative approach is to use autoconf's AC_CHECK_SIZEOF macro, but
+ doing that would require that the configure script compile and *run*
+ the resulting executable. Locally running cross-compiled executables
+ is usually not possible. */
+
+#if __STDC__
+# define UINT_MAX_32_BITS 4294967295U
+#else
+# define UINT_MAX_32_BITS 0xFFFFFFFF
+#endif
+
+/* If UINT_MAX isn't defined, assume it's a 32-bit type.
+ This should be valid for all systems GNU cares about because
+ that doesn't include 16-bit systems, and only modern systems
+ (that certainly have <limits.h>) have 64+-bit integral types. */
+
+#ifndef UINT_MAX
+# define UINT_MAX UINT_MAX_32_BITS
+#endif
+
+#if UINT_MAX == UINT_MAX_32_BITS
+typedef unsigned nls_uint32;
+#else
+# if USHRT_MAX == UINT_MAX_32_BITS
+typedef unsigned short nls_uint32;
+# else
+# if ULONG_MAX == UINT_MAX_32_BITS
+typedef unsigned long nls_uint32;
+# else
+ /* The following line is intended to throw an error. Using #error is
+ not portable enough. */
+ "Cannot determine unsigned 32-bit data type."
+# endif
+# endif
+#endif
+
+
+/* Header for binary .mo file format. */
+struct mo_file_header
+{
+ /* The magic number. */
+ nls_uint32 magic;
+ /* The revision number of the file format. */
+ nls_uint32 revision;
+ /* The number of strings pairs. */
+ nls_uint32 nstrings;
+ /* Offset of table with start offsets of original strings. */
+ nls_uint32 orig_tab_offset;
+ /* Offset of table with start offsets of translation strings. */
+ nls_uint32 trans_tab_offset;
+ /* Size of hashing table. */
+ nls_uint32 hash_tab_size;
+ /* Offset of first hashing entry. */
+ nls_uint32 hash_tab_offset;
+};
+
+struct string_desc
+{
+ /* Length of addressed string. */
+ nls_uint32 length;
+ /* Offset of string in file. */
+ nls_uint32 offset;
+};
+
+/* @@ begin of epilog @@ */
+
+#endif /* gettext.h */
diff --git a/intl/gettextP.h b/intl/gettextP.h
new file mode 100644
index 00000000..00c52031
--- /dev/null
+++ b/intl/gettextP.h
@@ -0,0 +1,89 @@
+/* Header describing internals of gettext library
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifndef _GETTEXTP_H
+#define _GETTEXTP_H
+
+#include "loadinfo.h"
+
+/* @@ end of prolog @@ */
+
+#ifndef PARAMS
+# if __STDC__
+# define PARAMS(args) args
+# else
+# define PARAMS(args) ()
+# endif
+#endif
+
+#ifndef internal_function
+# define internal_function
+#endif
+
+#ifndef W
+# define W(flag, data) ((flag) ? SWAP (data) : (data))
+#endif
+
+
+#ifdef _LIBC
+# include <byteswap.h>
+# define SWAP(i) bswap_32 (i)
+#else
+static nls_uint32 SWAP PARAMS ((nls_uint32 i));
+
+static inline nls_uint32
+SWAP (i)
+ nls_uint32 i;
+{
+ return (i << 24) | ((i & 0xff00) << 8) | ((i >> 8) & 0xff00) | (i >> 24);
+}
+#endif
+
+
+struct loaded_domain
+{
+ const char *data;
+ int use_mmap;
+ size_t mmap_size;
+ int must_swap;
+ nls_uint32 nstrings;
+ struct string_desc *orig_tab;
+ struct string_desc *trans_tab;
+ nls_uint32 hash_size;
+ nls_uint32 *hash_tab;
+};
+
+struct binding
+{
+ struct binding *next;
+ char *domainname;
+ char *dirname;
+};
+
+struct loaded_l10nfile *_nl_find_domain PARAMS ((const char *__dirname,
+ char *__locale,
+ const char *__domainname))
+ internal_function;
+void _nl_load_domain PARAMS ((struct loaded_l10nfile *__domain))
+ internal_function;
+void _nl_unload_domain PARAMS ((struct loaded_domain *__domain))
+ internal_function;
+
+/* @@ begin of epilog @@ */
+
+#endif /* gettextP.h */
diff --git a/intl/hash-string.h b/intl/hash-string.h
new file mode 100644
index 00000000..939e9582
--- /dev/null
+++ b/intl/hash-string.h
@@ -0,0 +1,59 @@
+/* Implements a string hashing function.
+ Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+/* @@ end of prolog @@ */
+
+#ifndef PARAMS
+# if __STDC__
+# define PARAMS(Args) Args
+# else
+# define PARAMS(Args) ()
+# endif
+#endif
+
+/* We assume to have `unsigned long int' value with at least 32 bits. */
+#define HASHWORDBITS 32
+
+
+/* Defines the so called `hashpjw' function by P.J. Weinberger
+ [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools,
+ 1986, 1987 Bell Telephone Laboratories, Inc.] */
+static unsigned long int hash_string PARAMS ((const char *__str_param));
+
+static inline unsigned long int
+hash_string (str_param)
+ const char *str_param;
+{
+ unsigned long int hval, g;
+ const char *str = str_param;
+
+ /* Compute the hash value for the given string. */
+ hval = 0;
+ while (*str != '\0')
+ {
+ hval <<= 4;
+ hval += (unsigned long int) *str++;
+ g = hval & ((unsigned long int) 0xf << (HASHWORDBITS - 4));
+ if (g != 0)
+ {
+ hval ^= g >> (HASHWORDBITS - 8);
+ hval ^= g;
+ }
+ }
+ return hval;
+}
diff --git a/intl/intl-compat.c b/intl/intl-compat.c
new file mode 100644
index 00000000..503efa0f
--- /dev/null
+++ b/intl/intl-compat.c
@@ -0,0 +1,76 @@
+/* intl-compat.c - Stub functions to call gettext functions from GNU gettext
+ Library.
+ Copyright (C) 1995 Software Foundation, Inc.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include "libgettext.h"
+
+/* @@ end of prolog @@ */
+
+
+#undef gettext
+#undef dgettext
+#undef dcgettext
+#undef textdomain
+#undef bindtextdomain
+
+
+char *
+bindtextdomain (domainname, dirname)
+ const char *domainname;
+ const char *dirname;
+{
+ return bindtextdomain__ (domainname, dirname);
+}
+
+
+char *
+dcgettext (domainname, msgid, category)
+ const char *domainname;
+ const char *msgid;
+ int category;
+{
+ return dcgettext__ (domainname, msgid, category);
+}
+
+
+char *
+dgettext (domainname, msgid)
+ const char *domainname;
+ const char *msgid;
+{
+ return dgettext__ (domainname, msgid);
+}
+
+
+char *
+gettext (msgid)
+ const char *msgid;
+{
+ return gettext__ (msgid);
+}
+
+
+char *
+textdomain (domainname)
+ const char *domainname;
+{
+ return textdomain__ (domainname);
+}
diff --git a/intl/l10nflist.c b/intl/l10nflist.c
new file mode 100644
index 00000000..30f5f645
--- /dev/null
+++ b/intl/l10nflist.c
@@ -0,0 +1,411 @@
+/* Handle list of needed message catalogs
+ Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+ Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+
+#if defined HAVE_STRING_H || defined _LIBC
+# ifndef _GNU_SOURCE
+# define _GNU_SOURCE 1
+# endif
+# include <string.h>
+#else
+# include <strings.h>
+# ifndef memcpy
+# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
+# endif
+#endif
+#if !HAVE_STRCHR && !defined _LIBC
+# ifndef strchr
+# define strchr index
+# endif
+#endif
+
+#if defined _LIBC || defined HAVE_ARGZ_H
+# include <argz.h>
+#endif
+#include <ctype.h>
+#include <sys/types.h>
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#endif
+
+#include "loadinfo.h"
+
+/* On some strange systems still no definition of NULL is found. Sigh! */
+#ifndef NULL
+# if defined __STDC__ && __STDC__
+# define NULL ((void *) 0)
+# else
+# define NULL 0
+# endif
+#endif
+
+/* @@ end of prolog @@ */
+
+#ifdef _LIBC
+/* Rename the non ANSI C functions. This is required by the standard
+ because some ANSI C functions will require linking with this object
+ file and the name space must not be polluted. */
+# ifndef stpcpy
+# define stpcpy(dest, src) __stpcpy(dest, src)
+# endif
+#else
+# ifndef HAVE_STPCPY
+static char *stpcpy PARAMS ((char *dest, const char *src));
+# endif
+#endif
+
+/* Define function which are usually not available. */
+
+#if !defined _LIBC && !defined HAVE___ARGZ_COUNT
+/* Returns the number of strings in ARGZ. */
+static size_t argz_count__ PARAMS ((const char *argz, size_t len));
+
+static size_t
+argz_count__ (argz, len)
+ const char *argz;
+ size_t len;
+{
+ size_t count = 0;
+ while (len > 0)
+ {
+ size_t part_len = strlen (argz);
+ argz += part_len + 1;
+ len -= part_len + 1;
+ count++;
+ }
+ return count;
+}
+# undef __argz_count
+# define __argz_count(argz, len) argz_count__ (argz, len)
+#endif /* !_LIBC && !HAVE___ARGZ_COUNT */
+
+#if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
+/* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
+ except the last into the character SEP. */
+static void argz_stringify__ PARAMS ((char *argz, size_t len, int sep));
+
+static void
+argz_stringify__ (argz, len, sep)
+ char *argz;
+ size_t len;
+ int sep;
+{
+ while (len > 0)
+ {
+ size_t part_len = strlen (argz);
+ argz += part_len;
+ len -= part_len + 1;
+ if (len > 0)
+ *argz++ = sep;
+ }
+}
+# undef __argz_stringify
+# define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
+#endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
+
+#if !defined _LIBC && !defined HAVE___ARGZ_NEXT
+static char *argz_next__ PARAMS ((char *argz, size_t argz_len,
+ const char *entry));
+
+static char *
+argz_next__ (argz, argz_len, entry)
+ char *argz;
+ size_t argz_len;
+ const char *entry;
+{
+ if (entry)
+ {
+ if (entry < argz + argz_len)
+ entry = strchr (entry, '\0') + 1;
+
+ return entry >= argz + argz_len ? NULL : (char *) entry;
+ }
+ else
+ if (argz_len > 0)
+ return argz;
+ else
+ return 0;
+}
+# undef __argz_next
+# define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
+#endif /* !_LIBC && !HAVE___ARGZ_NEXT */
+
+
+/* Return number of bits set in X. */
+static int pop PARAMS ((int x));
+
+static inline int
+pop (x)
+ int x;
+{
+ /* We assume that no more than 16 bits are used. */
+ x = ((x & ~0x5555) >> 1) + (x & 0x5555);
+ x = ((x & ~0x3333) >> 2) + (x & 0x3333);
+ x = ((x >> 4) + x) & 0x0f0f;
+ x = ((x >> 8) + x) & 0xff;
+
+ return x;
+}
+
+
+struct loaded_l10nfile *
+_nl_make_l10nflist (l10nfile_list, dirlist, dirlist_len, mask, language,
+ territory, codeset, normalized_codeset, modifier, special,
+ sponsor, revision, filename, do_allocate)
+ struct loaded_l10nfile **l10nfile_list;
+ const char *dirlist;
+ size_t dirlist_len;
+ int mask;
+ const char *language;
+ const char *territory;
+ const char *codeset;
+ const char *normalized_codeset;
+ const char *modifier;
+ const char *special;
+ const char *sponsor;
+ const char *revision;
+ const char *filename;
+ int do_allocate;
+{
+ char *abs_filename;
+ struct loaded_l10nfile *last = NULL;
+ struct loaded_l10nfile *retval;
+ char *cp;
+ size_t entries;
+ int cnt;
+
+ /* Allocate room for the full file name. */
+ abs_filename = (char *) malloc (dirlist_len
+ + strlen (language)
+ + ((mask & TERRITORY) != 0
+ ? strlen (territory) + 1 : 0)
+ + ((mask & XPG_CODESET) != 0
+ ? strlen (codeset) + 1 : 0)
+ + ((mask & XPG_NORM_CODESET) != 0
+ ? strlen (normalized_codeset) + 1 : 0)
+ + (((mask & XPG_MODIFIER) != 0
+ || (mask & CEN_AUDIENCE) != 0)
+ ? strlen (modifier) + 1 : 0)
+ + ((mask & CEN_SPECIAL) != 0
+ ? strlen (special) + 1 : 0)
+ + (((mask & CEN_SPONSOR) != 0
+ || (mask & CEN_REVISION) != 0)
+ ? (1 + ((mask & CEN_SPONSOR) != 0
+ ? strlen (sponsor) + 1 : 0)
+ + ((mask & CEN_REVISION) != 0
+ ? strlen (revision) + 1 : 0)) : 0)
+ + 1 + strlen (filename) + 1);
+
+ if (abs_filename == NULL)
+ return NULL;
+
+ retval = NULL;
+ last = NULL;
+
+ /* Construct file name. */
+ memcpy (abs_filename, dirlist, dirlist_len);
+ __argz_stringify (abs_filename, dirlist_len, ':');
+ cp = abs_filename + (dirlist_len - 1);
+ *cp++ = '/';
+ cp = stpcpy (cp, language);
+
+ if ((mask & TERRITORY) != 0)
+ {
+ *cp++ = '_';
+ cp = stpcpy (cp, territory);
+ }
+ if ((mask & XPG_CODESET) != 0)
+ {
+ *cp++ = '.';
+ cp = stpcpy (cp, codeset);
+ }
+ if ((mask & XPG_NORM_CODESET) != 0)
+ {
+ *cp++ = '.';
+ cp = stpcpy (cp, normalized_codeset);
+ }
+ if ((mask & (XPG_MODIFIER | CEN_AUDIENCE)) != 0)
+ {
+ /* This component can be part of both syntaces but has different
+ leading characters. For CEN we use `+', else `@'. */
+ *cp++ = (mask & CEN_AUDIENCE) != 0 ? '+' : '@';
+ cp = stpcpy (cp, modifier);
+ }
+ if ((mask & CEN_SPECIAL) != 0)
+ {
+ *cp++ = '+';
+ cp = stpcpy (cp, special);
+ }
+ if ((mask & (CEN_SPONSOR | CEN_REVISION)) != 0)
+ {
+ *cp++ = ',';
+ if ((mask & CEN_SPONSOR) != 0)
+ cp = stpcpy (cp, sponsor);
+ if ((mask & CEN_REVISION) != 0)
+ {
+ *cp++ = '_';
+ cp = stpcpy (cp, revision);
+ }
+ }
+
+ *cp++ = '/';
+ stpcpy (cp, filename);
+
+ /* Look in list of already loaded domains whether it is already
+ available. */
+ last = NULL;
+ for (retval = *l10nfile_list; retval != NULL; retval = retval->next)
+ if (retval->filename != NULL)
+ {
+ int compare = strcmp (retval->filename, abs_filename);
+ if (compare == 0)
+ /* We found it! */
+ break;
+ if (compare < 0)
+ {
+ /* It's not in the list. */
+ retval = NULL;
+ break;
+ }
+
+ last = retval;
+ }
+
+ if (retval != NULL || do_allocate == 0)
+ {
+ free (abs_filename);
+ return retval;
+ }
+
+ retval = (struct loaded_l10nfile *)
+ malloc (sizeof (*retval) + (__argz_count (dirlist, dirlist_len)
+ * (1 << pop (mask))
+ * sizeof (struct loaded_l10nfile *)));
+ if (retval == NULL)
+ return NULL;
+
+ retval->filename = abs_filename;
+ retval->decided = (__argz_count (dirlist, dirlist_len) != 1
+ || ((mask & XPG_CODESET) != 0
+ && (mask & XPG_NORM_CODESET) != 0));
+ retval->data = NULL;
+
+ if (last == NULL)
+ {
+ retval->next = *l10nfile_list;
+ *l10nfile_list = retval;
+ }
+ else
+ {
+ retval->next = last->next;
+ last->next = retval;
+ }
+
+ entries = 0;
+ /* If the DIRLIST is a real list the RETVAL entry corresponds not to
+ a real file. So we have to use the DIRLIST separation mechanism
+ of the inner loop. */
+ cnt = __argz_count (dirlist, dirlist_len) == 1 ? mask - 1 : mask;
+ for (; cnt >= 0; --cnt)
+ if ((cnt & ~mask) == 0
+ && ((cnt & CEN_SPECIFIC) == 0 || (cnt & XPG_SPECIFIC) == 0)
+ && ((cnt & XPG_CODESET) == 0 || (cnt & XPG_NORM_CODESET) == 0))
+ {
+ /* Iterate over all elements of the DIRLIST. */
+ char *dir = NULL;
+
+ while ((dir = __argz_next ((char *) dirlist, dirlist_len, dir))
+ != NULL)
+ retval->successor[entries++]
+ = _nl_make_l10nflist (l10nfile_list, dir, strlen (dir) + 1, cnt,
+ language, territory, codeset,
+ normalized_codeset, modifier, special,
+ sponsor, revision, filename, 1);
+ }
+ retval->successor[entries] = NULL;
+
+ return retval;
+}
+
+/* Normalize codeset name. There is no standard for the codeset
+ names. Normalization allows the user to use any of the common
+ names. */
+const char *
+_nl_normalize_codeset (codeset, name_len)
+ const char *codeset;
+ size_t name_len;
+{
+ int len = 0;
+ int only_digit = 1;
+ char *retval;
+ char *wp;
+ size_t cnt;
+
+ for (cnt = 0; cnt < name_len; ++cnt)
+ if (isalnum (codeset[cnt]))
+ {
+ ++len;
+
+ if (isalpha (codeset[cnt]))
+ only_digit = 0;
+ }
+
+ retval = (char *) malloc ((only_digit ? 3 : 0) + len + 1);
+
+ if (retval != NULL)
+ {
+ if (only_digit)
+ wp = stpcpy (retval, "iso");
+ else
+ wp = retval;
+
+ for (cnt = 0; cnt < name_len; ++cnt)
+ if (isalpha (codeset[cnt]))
+ *wp++ = tolower (codeset[cnt]);
+ else if (isdigit (codeset[cnt]))
+ *wp++ = codeset[cnt];
+
+ *wp = '\0';
+ }
+
+ return (const char *) retval;
+}
+
+
+/* @@ begin of epilog @@ */
+
+/* We don't want libintl.a to depend on any other library. So we
+ avoid the non-standard function stpcpy. In GNU C Library this
+ function is available, though. Also allow the symbol HAVE_STPCPY
+ to be defined. */
+#if !_LIBC && !HAVE_STPCPY
+static char *
+stpcpy (dest, src)
+ char *dest;
+ const char *src;
+{
+ while ((*dest++ = *src++) != '\0')
+ /* Do nothing. */ ;
+ return dest - 1;
+}
+#endif
diff --git a/intl/libgettext.h b/intl/libgettext.h
new file mode 100644
index 00000000..5bed8bbb
--- /dev/null
+++ b/intl/libgettext.h
@@ -0,0 +1,182 @@
+/* Message catalogs for internationalization.
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+/* Because on some systems (e.g. Solaris) we sometimes have to include
+ the systems libintl.h as well as this file we have more complex
+ include protection above. But the systems header might perhaps also
+ define _LIBINTL_H and therefore we have to protect the definition here. */
+
+#if !defined _LIBINTL_H || !defined _LIBGETTEXT_H
+#ifndef _LIBINTL_H
+# define _LIBINTL_H 1
+#endif
+#define _LIBGETTEXT_H 1
+
+/* We define an additional symbol to signal that we use the GNU
+ implementation of gettext. */
+#define __USE_GNU_GETTEXT 1
+
+#include <sys/types.h>
+
+#if HAVE_LOCALE_H
+# include <locale.h>
+#endif
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* @@ end of prolog @@ */
+
+#ifndef PARAMS
+# if __STDC__ || defined __cplusplus
+# define PARAMS(args) args
+# else
+# define PARAMS(args) ()
+# endif
+#endif
+
+#ifndef NULL
+# if !defined __cplusplus || defined __GNUC__
+# define NULL ((void *) 0)
+# else
+# define NULL (0)
+# endif
+#endif
+
+#if !HAVE_LC_MESSAGES
+/* This value determines the behaviour of the gettext() and dgettext()
+ function. But some system does not have this defined. Define it
+ to a default value. */
+# define LC_MESSAGES (-1)
+#endif
+
+
+/* Declarations for gettext-using-catgets interface. Derived from
+ Jim Meyering's libintl.h. */
+struct _msg_ent
+{
+ const char *_msg;
+ int _msg_number;
+};
+
+
+#if HAVE_CATGETS
+/* These two variables are defined in the automatically by po-to-tbl.sed
+ generated file `cat-id-tbl.c'. */
+extern const struct _msg_ent _msg_tbl[];
+extern int _msg_tbl_length;
+#endif
+
+
+/* For automatical extraction of messages sometimes no real
+ translation is needed. Instead the string itself is the result. */
+#define gettext_noop(Str) Str
+
+/* Look up MSGID in the current default message catalog for the current
+ LC_MESSAGES locale. If not found, returns MSGID itself (the default
+ text). */
+extern char *gettext PARAMS ((const char *__msgid));
+extern char *gettext__ PARAMS ((const char *__msgid));
+
+/* Look up MSGID in the DOMAINNAME message catalog for the current
+ LC_MESSAGES locale. */
+extern char *dgettext PARAMS ((const char *__domainname, const char *__msgid));
+extern char *dgettext__ PARAMS ((const char *__domainname,
+ const char *__msgid));
+
+/* Look up MSGID in the DOMAINNAME message catalog for the current CATEGORY
+ locale. */
+extern char *dcgettext PARAMS ((const char *__domainname, const char *__msgid,
+ int __category));
+extern char *dcgettext__ PARAMS ((const char *__domainname,
+ const char *__msgid, int __category));
+
+
+/* Set the current default message catalog to DOMAINNAME.
+ If DOMAINNAME is null, return the current default.
+ If DOMAINNAME is "", reset to the default of "messages". */
+extern char *textdomain PARAMS ((const char *__domainname));
+extern char *textdomain__ PARAMS ((const char *__domainname));
+
+/* Specify that the DOMAINNAME message catalog will be found
+ in DIRNAME rather than in the system locale data base. */
+extern char *bindtextdomain PARAMS ((const char *__domainname,
+ const char *__dirname));
+extern char *bindtextdomain__ PARAMS ((const char *__domainname,
+ const char *__dirname));
+
+#if ENABLE_NLS
+
+/* Solaris 2.3 has the gettext function but dcgettext is missing.
+ So we omit this optimization for Solaris 2.3. BTW, Solaris 2.4
+ has dcgettext. */
+# if !HAVE_CATGETS && (!HAVE_GETTEXT || HAVE_DCGETTEXT)
+
+# define gettext(Msgid) \
+ dgettext (NULL, Msgid)
+
+# define dgettext(Domainname, Msgid) \
+ dcgettext (Domainname, Msgid, LC_MESSAGES)
+
+# if defined __GNUC__ && __GNUC__ == 2 && __GNUC_MINOR__ >= 7
+/* This global variable is defined in loadmsgcat.c. We need a sign,
+ whether a new catalog was loaded, which can be associated with all
+ translations. */
+extern int _nl_msg_cat_cntr;
+
+# define dcgettext(Domainname, Msgid, Category) \
+ (__extension__ \
+ ({ \
+ char *__result; \
+ if (__builtin_constant_p (Msgid)) \
+ { \
+ static char *__translation__; \
+ static int __catalog_counter__; \
+ if (! __translation__ || __catalog_counter__ != _nl_msg_cat_cntr) \
+ { \
+ __translation__ = \
+ dcgettext__ (Domainname, Msgid, Category); \
+ __catalog_counter__ = _nl_msg_cat_cntr; \
+ } \
+ __result = __translation__; \
+ } \
+ else \
+ __result = dcgettext__ (Domainname, Msgid, Category); \
+ __result; \
+ }))
+# endif
+# endif
+
+#else
+
+# define gettext(Msgid) (Msgid)
+# define dgettext(Domainname, Msgid) (Msgid)
+# define dcgettext(Domainname, Msgid, Category) (Msgid)
+# define textdomain(Domainname) ((char *) Domainname)
+# define bindtextdomain(Domainname, Dirname) ((char *) Dirname)
+
+#endif
+
+/* @@ begin of epilog @@ */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif
diff --git a/intl/linux-msg.sed b/intl/linux-msg.sed
new file mode 100644
index 00000000..5918e720
--- /dev/null
+++ b/intl/linux-msg.sed
@@ -0,0 +1,100 @@
+# po2msg.sed - Convert Uniforum style .po file to Linux style .msg file
+# Copyright (C) 1995 Free Software Foundation, Inc.
+# Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+#
+# The first directive in the .msg should be the definition of the
+# message set number. We use always set number 1.
+#
+1 {
+ i\
+$set 1 # Automatically created by po2msg.sed
+ h
+ s/.*/0/
+ x
+}
+#
+# Mitch's old catalog format does not allow comments.
+#
+# We copy the original message as a comment into the .msg file.
+#
+/^msgid/ {
+ s/msgid[ ]*"//
+#
+# This does not work now with the new format.
+# /"$/! {
+# s/\\$//
+# s/$/ ... (more lines following)"/
+# }
+ x
+# The following nice solution is by
+# Bruno <Haible@ma2s2.mathematik.uni-karlsruhe.de>
+ td
+# Increment a decimal number in pattern space.
+# First hide trailing `9' digits.
+ :d
+ s/9\(_*\)$/_\1/
+ td
+# Assure at least one digit is available.
+ s/^\(_*\)$/0\1/
+# Increment the last digit.
+ s/8\(_*\)$/9\1/
+ s/7\(_*\)$/8\1/
+ s/6\(_*\)$/7\1/
+ s/5\(_*\)$/6\1/
+ s/4\(_*\)$/5\1/
+ s/3\(_*\)$/4\1/
+ s/2\(_*\)$/3\1/
+ s/1\(_*\)$/2\1/
+ s/0\(_*\)$/1\1/
+# Convert the hidden `9' digits to `0's.
+ s/_/0/g
+ x
+ G
+ s/\(.*\)"\n\([0-9]*\)/$ #\2 Original Message:(\1)/p
+}
+#
+# The .msg file contains, other then the .po file, only the translations
+# but each given a unique ID. Starting from 1 and incrementing by 1 for
+# each message we assign them to the messages.
+# It is important that the .po file used to generate the cat-id-tbl.c file
+# (with po-to-tbl) is the same as the one used here. (At least the order
+# of declarations must not be changed.)
+#
+/^msgstr/ {
+ s/msgstr[ ]*"\(.*\)"/# \1/
+# Clear substitution flag.
+ tb
+# Append the next line.
+ :b
+ N
+# Look whether second part is continuation line.
+ s/\(.*\n\)"\(.*\)"/\1\2/
+# Yes, then branch.
+ ta
+ P
+ D
+# Note that D includes a jump to the start!!
+# We found a continuation line. But before printing insert '\'.
+ :a
+ s/\(.*\)\(\n.*\)/\1\\\2/
+ P
+# We cannot use D here.
+ s/.*\n\(.*\)/\1/
+ tb
+}
+d
diff --git a/intl/loadinfo.h b/intl/loadinfo.h
new file mode 100644
index 00000000..1c4524ab
--- /dev/null
+++ b/intl/loadinfo.h
@@ -0,0 +1,78 @@
+/* Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifndef PARAMS
+# if __STDC__
+# define PARAMS(args) args
+# else
+# define PARAMS(args) ()
+# endif
+#endif
+
+/* Encoding of locale name parts. */
+#define CEN_REVISION 1
+#define CEN_SPONSOR 2
+#define CEN_SPECIAL 4
+#define XPG_NORM_CODESET 8
+#define XPG_CODESET 16
+#define TERRITORY 32
+#define CEN_AUDIENCE 64
+#define XPG_MODIFIER 128
+
+#define CEN_SPECIFIC (CEN_REVISION|CEN_SPONSOR|CEN_SPECIAL|CEN_AUDIENCE)
+#define XPG_SPECIFIC (XPG_CODESET|XPG_NORM_CODESET|XPG_MODIFIER)
+
+
+struct loaded_l10nfile
+{
+ const char *filename;
+ int decided;
+
+ const void *data;
+
+ struct loaded_l10nfile *next;
+ struct loaded_l10nfile *successor[1];
+};
+
+
+extern const char *_nl_normalize_codeset PARAMS ((const char *codeset,
+ size_t name_len));
+
+extern struct loaded_l10nfile *
+_nl_make_l10nflist PARAMS ((struct loaded_l10nfile **l10nfile_list,
+ const char *dirlist, size_t dirlist_len, int mask,
+ const char *language, const char *territory,
+ const char *codeset,
+ const char *normalized_codeset,
+ const char *modifier, const char *special,
+ const char *sponsor, const char *revision,
+ const char *filename, int do_allocate));
+
+
+extern const char *_nl_expand_alias PARAMS ((const char *name));
+
+extern int _nl_explode_name PARAMS ((char *name, const char **language,
+ const char **modifier,
+ const char **territory,
+ const char **codeset,
+ const char **normalized_codeset,
+ const char **special,
+ const char **sponsor,
+ const char **revision));
+
+extern char *_nl_find_language PARAMS ((const char *name));
diff --git a/intl/loadmsgcat.c b/intl/loadmsgcat.c
new file mode 100644
index 00000000..ed3be019
--- /dev/null
+++ b/intl/loadmsgcat.c
@@ -0,0 +1,221 @@
+/* Load needed message catalogs.
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <fcntl.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#endif
+
+#if defined HAVE_UNISTD_H || defined _LIBC
+# include <unistd.h>
+#endif
+
+#define DISALLOW_MMAP 1 /* ADR */
+#if (defined HAVE_MMAP && defined HAVE_MUNMAP && !defined DISALLOW_MMAP) \
+ || (defined _LIBC && defined _POSIX_MAPPED_FILES)
+# include <sys/mman.h>
+# undef HAVE_MMAP
+# define HAVE_MMAP 1
+#else
+# undef HAVE_MMAP
+#endif
+
+#include "gettext.h"
+#include "gettextP.h"
+
+/* @@ end of prolog @@ */
+
+#ifdef _LIBC
+/* Rename the non ISO C functions. This is required by the standard
+ because some ISO C functions will require linking with this object
+ file and the name space must not be polluted. */
+# define open __open
+# define close __close
+# define read __read
+# define mmap __mmap
+# define munmap __munmap
+#endif
+
+/* We need a sign, whether a new catalog was loaded, which can be associated
+ with all translations. This is important if the translations are
+ cached by one of GCC's features. */
+int _nl_msg_cat_cntr = 0;
+
+
+/* Load the message catalogs specified by FILENAME. If it is no valid
+ message catalog do nothing. */
+void
+internal_function
+_nl_load_domain (domain_file)
+ struct loaded_l10nfile *domain_file;
+{
+ int fd;
+ size_t size;
+ struct stat st;
+ struct mo_file_header *data = (struct mo_file_header *) -1;
+ int use_mmap = 0;
+ struct loaded_domain *domain;
+
+ domain_file->decided = 1;
+ domain_file->data = NULL;
+
+ /* If the record does not represent a valid locale the FILENAME
+ might be NULL. This can happen when according to the given
+ specification the locale file name is different for XPG and CEN
+ syntax. */
+ if (domain_file->filename == NULL)
+ return;
+
+ /* Try to open the addressed file. */
+ fd = open (domain_file->filename, O_RDONLY);
+ if (fd == -1)
+ return;
+
+ /* We must know about the size of the file. */
+ if (fstat (fd, &st) != 0
+ || (size = (size_t) st.st_size) != st.st_size
+ || size < sizeof (struct mo_file_header))
+ {
+ /* Something went wrong. */
+ close (fd);
+ return;
+ }
+
+#ifdef HAVE_MMAP
+ /* Now we are ready to load the file. If mmap() is available we try
+ this first. If not available or it failed we try to load it. */
+ data = (struct mo_file_header *) mmap (NULL, size, PROT_READ,
+ MAP_PRIVATE, fd, 0);
+
+ if (data != (struct mo_file_header *) -1)
+ {
+ /* mmap() call was successful. */
+ close (fd);
+ use_mmap = 1;
+ }
+#endif
+
+ /* If the data is not yet available (i.e. mmap'ed) we try to load
+ it manually. */
+ if (data == (struct mo_file_header *) -1)
+ {
+ size_t to_read;
+ char *read_ptr;
+
+ data = (struct mo_file_header *) malloc (size);
+ if (data == NULL)
+ return;
+
+ to_read = size;
+ read_ptr = (char *) data;
+ do
+ {
+ long int nb = (long int) read (fd, read_ptr, to_read);
+ if (nb == -1)
+ {
+ close (fd);
+ return;
+ }
+
+ read_ptr += nb;
+ to_read -= nb;
+ }
+ while (to_read > 0);
+
+ close (fd);
+ }
+
+ /* Using the magic number we can test whether it really is a message
+ catalog file. */
+ if (data->magic != _MAGIC && data->magic != _MAGIC_SWAPPED)
+ {
+ /* The magic number is wrong: not a message catalog file. */
+#ifdef HAVE_MMAP
+ if (use_mmap)
+ munmap ((caddr_t) data, size);
+ else
+#endif
+ free (data);
+ return;
+ }
+
+ domain_file->data
+ = (struct loaded_domain *) malloc (sizeof (struct loaded_domain));
+ if (domain_file->data == NULL)
+ return;
+
+ domain = (struct loaded_domain *) domain_file->data;
+ domain->data = (char *) data;
+ domain->use_mmap = use_mmap;
+ domain->mmap_size = size;
+ domain->must_swap = data->magic != _MAGIC;
+
+ /* Fill in the information about the available tables. */
+ switch (W (domain->must_swap, data->revision))
+ {
+ case 0:
+ domain->nstrings = W (domain->must_swap, data->nstrings);
+ domain->orig_tab = (struct string_desc *)
+ ((char *) data + W (domain->must_swap, data->orig_tab_offset));
+ domain->trans_tab = (struct string_desc *)
+ ((char *) data + W (domain->must_swap, data->trans_tab_offset));
+ domain->hash_size = W (domain->must_swap, data->hash_tab_size);
+ domain->hash_tab = (nls_uint32 *)
+ ((char *) data + W (domain->must_swap, data->hash_tab_offset));
+ break;
+ default:
+ /* This is an invalid revision. */
+#ifdef HAVE_MMAP
+ if (use_mmap)
+ munmap ((caddr_t) data, size);
+ else
+#endif
+ free (data);
+ free (domain);
+ domain_file->data = NULL;
+ return;
+ }
+
+ /* Show that one domain is changed. This might make some cached
+ translations invalid. */
+ ++_nl_msg_cat_cntr;
+}
+
+
+#ifdef _LIBC
+void
+internal_function
+_nl_unload_domain (domain)
+ struct loaded_domain *domain;
+{
+#ifdef _POSIX_MAPPED_FILES
+ if (domain->use_mmap)
+ munmap ((caddr_t) domain->data, domain->mmap_size);
+ else
+#endif /* _POSIX_MAPPED_FILES */
+ free ((void *) domain->data);
+
+ free (domain);
+}
+#endif
diff --git a/intl/localealias.c b/intl/localealias.c
new file mode 100644
index 00000000..a6f054a9
--- /dev/null
+++ b/intl/localealias.c
@@ -0,0 +1,438 @@
+/* Handle aliases for locale names.
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <ctype.h>
+#include <stdio.h>
+#include <sys/types.h>
+
+#ifdef __GNUC__
+# define alloca __builtin_alloca
+# define HAVE_ALLOCA 1
+#else
+# if defined HAVE_ALLOCA_H || defined _LIBC
+# include <alloca.h>
+# else
+# ifdef _AIX
+ #pragma alloca
+# else
+# ifndef alloca
+char *alloca ();
+# endif
+# endif
+# endif
+#endif
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#else
+char *getenv ();
+# ifdef HAVE_MALLOC_H
+# include <malloc.h>
+# else
+void free ();
+# endif
+#endif
+
+#if defined HAVE_STRING_H || defined _LIBC
+# ifndef _GNU_SOURCE
+# define _GNU_SOURCE 1
+# endif
+# include <string.h>
+#else
+# include <strings.h>
+# ifndef memcpy
+# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
+# endif
+#endif
+#if !HAVE_STRCHR && !defined _LIBC
+# ifndef strchr
+# define strchr index
+# endif
+#endif
+
+#include "gettext.h"
+#include "gettextP.h"
+
+/* @@ end of prolog @@ */
+
+#ifdef _LIBC
+/* Rename the non ANSI C functions. This is required by the standard
+ because some ANSI C functions will require linking with this object
+ file and the name space must not be polluted. */
+# define strcasecmp __strcasecmp
+
+# ifndef mempcpy
+# define mempcpy __mempcpy
+# endif
+# define HAVE_MEMPCPY 1
+
+/* We need locking here since we can be called from different places. */
+# include <bits/libc-lock.h>
+
+__libc_lock_define_initialized (static, lock);
+#endif
+
+#ifndef internal_function
+# define internal_function
+#endif
+
+/* For those loosing systems which don't have `alloca' we have to add
+ some additional code emulating it. */
+#ifdef HAVE_ALLOCA
+/* Nothing has to be done. */
+# define ADD_BLOCK(list, address) /* nothing */
+# define FREE_BLOCKS(list) /* nothing */
+#else
+struct block_list
+{
+ void *address;
+ struct block_list *next;
+};
+# define ADD_BLOCK(list, addr) \
+ do { \
+ struct block_list *newp = (struct block_list *) malloc (sizeof (*newp)); \
+ /* If we cannot get a free block we cannot add the new element to \
+ the list. */ \
+ if (newp != NULL) { \
+ newp->address = (addr); \
+ newp->next = (list); \
+ (list) = newp; \
+ } \
+ } while (0)
+# define FREE_BLOCKS(list) \
+ do { \
+ while (list != NULL) { \
+ struct block_list *old = list; \
+ list = list->next; \
+ free (old); \
+ } \
+ } while (0)
+# undef alloca
+# define alloca(size) (malloc (size))
+#endif /* have alloca */
+
+#if defined _LIBC_REENTRANT || defined HAVE_FGETS_UNLOCKED
+# undef fgets
+# define fgets(buf, len, s) fgets_unlocked (buf, len, s)
+#endif
+#if defined _LIBC_REENTRANT || defined HAVE_FEOF_UNLOCKED
+# undef feof
+# define feof(s) feof_unlocked (s)
+#endif
+
+
+struct alias_map
+{
+ const char *alias;
+ const char *value;
+};
+
+
+static char *string_space = NULL;
+static size_t string_space_act = 0;
+static size_t string_space_max = 0;
+static struct alias_map *map;
+static size_t nmap = 0;
+static size_t maxmap = 0;
+
+
+/* Prototypes for local functions. */
+static size_t read_alias_file PARAMS ((const char *fname, int fname_len))
+ internal_function;
+static void extend_alias_table PARAMS ((void));
+static int alias_compare PARAMS ((const struct alias_map *map1,
+ const struct alias_map *map2));
+
+
+const char *
+_nl_expand_alias (name)
+ const char *name;
+{
+ static const char *locale_alias_path = LOCALE_ALIAS_PATH;
+ struct alias_map *retval;
+ const char *result = NULL;
+ size_t added;
+
+#ifdef _LIBC
+ __libc_lock_lock (lock);
+#endif
+
+ do
+ {
+ struct alias_map item;
+
+ item.alias = name;
+
+ if (nmap > 0)
+ retval = (struct alias_map *) bsearch (&item, map, nmap,
+ sizeof (struct alias_map),
+ (int (*) PARAMS ((const void *,
+ const void *))
+ ) alias_compare);
+ else
+ retval = NULL;
+
+ /* We really found an alias. Return the value. */
+ if (retval != NULL)
+ {
+ result = retval->value;
+ break;
+ }
+
+ /* Perhaps we can find another alias file. */
+ added = 0;
+ while (added == 0 && locale_alias_path[0] != '\0')
+ {
+ const char *start;
+
+ while (locale_alias_path[0] == ':')
+ ++locale_alias_path;
+ start = locale_alias_path;
+
+ while (locale_alias_path[0] != '\0' && locale_alias_path[0] != ':')
+ ++locale_alias_path;
+
+ if (start < locale_alias_path)
+ added = read_alias_file (start, locale_alias_path - start);
+ }
+ }
+ while (added != 0);
+
+#ifdef _LIBC
+ __libc_lock_unlock (lock);
+#endif
+
+ return result;
+}
+
+
+static size_t
+internal_function
+read_alias_file (fname, fname_len)
+ const char *fname;
+ int fname_len;
+{
+#ifndef HAVE_ALLOCA
+ struct block_list *block_list = NULL;
+#endif
+ FILE *fp;
+ char *full_fname;
+ size_t added;
+ static const char aliasfile[] = "/locale.alias";
+
+ full_fname = (char *) alloca (fname_len + sizeof aliasfile);
+ ADD_BLOCK (block_list, full_fname);
+#ifdef HAVE_MEMPCPY
+ mempcpy (mempcpy (full_fname, fname, fname_len),
+ aliasfile, sizeof aliasfile);
+#else
+ memcpy (full_fname, fname, fname_len);
+ memcpy (&full_fname[fname_len], aliasfile, sizeof aliasfile);
+#endif
+
+ fp = fopen (full_fname, "r");
+ if (fp == NULL)
+ {
+ FREE_BLOCKS (block_list);
+ return 0;
+ }
+
+ added = 0;
+ while (!feof (fp))
+ {
+ /* It is a reasonable approach to use a fix buffer here because
+ a) we are only interested in the first two fields
+ b) these fields must be usable as file names and so must not
+ be that long
+ */
+ char buf[BUFSIZ];
+ char *alias;
+ char *value;
+ char *cp;
+
+ if (fgets (buf, sizeof buf, fp) == NULL)
+ /* EOF reached. */
+ break;
+
+ /* Possibly not the whole line fits into the buffer. Ignore
+ the rest of the line. */
+ if (strchr (buf, '\n') == NULL)
+ {
+ char altbuf[BUFSIZ];
+ do
+ if (fgets (altbuf, sizeof altbuf, fp) == NULL)
+ /* Make sure the inner loop will be left. The outer loop
+ will exit at the `feof' test. */
+ break;
+ while (strchr (altbuf, '\n') == NULL);
+ }
+
+ cp = buf;
+ /* Ignore leading white space. */
+ while (isspace (cp[0]))
+ ++cp;
+
+ /* A leading '#' signals a comment line. */
+ if (cp[0] != '\0' && cp[0] != '#')
+ {
+ alias = cp++;
+ while (cp[0] != '\0' && !isspace (cp[0]))
+ ++cp;
+ /* Terminate alias name. */
+ if (cp[0] != '\0')
+ *cp++ = '\0';
+
+ /* Now look for the beginning of the value. */
+ while (isspace (cp[0]))
+ ++cp;
+
+ if (cp[0] != '\0')
+ {
+ size_t alias_len;
+ size_t value_len;
+
+ value = cp++;
+ while (cp[0] != '\0' && !isspace (cp[0]))
+ ++cp;
+ /* Terminate value. */
+ if (cp[0] == '\n')
+ {
+ /* This has to be done to make the following test
+ for the end of line possible. We are looking for
+ the terminating '\n' which do not overwrite here. */
+ *cp++ = '\0';
+ *cp = '\n';
+ }
+ else if (cp[0] != '\0')
+ *cp++ = '\0';
+
+ if (nmap >= maxmap)
+ extend_alias_table ();
+
+ alias_len = strlen (alias) + 1;
+ value_len = strlen (value) + 1;
+
+ if (string_space_act + alias_len + value_len > string_space_max)
+ {
+ /* Increase size of memory pool. */
+ size_t new_size = (string_space_max
+ + (alias_len + value_len > 1024
+ ? alias_len + value_len : 1024));
+ char *new_pool = (char *) realloc (string_space, new_size);
+ if (new_pool == NULL)
+ {
+ FREE_BLOCKS (block_list);
+ return added;
+ }
+ string_space = new_pool;
+ string_space_max = new_size;
+ }
+
+ map[nmap].alias = (char *) memcpy (&string_space[string_space_act],
+ alias, alias_len);
+ string_space_act += alias_len;
+
+ map[nmap].value = (char *) memcpy (&string_space[string_space_act],
+ value, value_len);
+ string_space_act += value_len;
+
+ ++nmap;
+ ++added;
+ }
+ }
+ }
+
+ /* Should we test for ferror()? I think we have to silently ignore
+ errors. --drepper */
+ fclose (fp);
+
+ if (added > 0)
+ qsort (map, nmap, sizeof (struct alias_map),
+ (int (*) PARAMS ((const void *, const void *))) alias_compare);
+
+ FREE_BLOCKS (block_list);
+ return added;
+}
+
+
+static void
+extend_alias_table ()
+{
+ size_t new_size;
+ struct alias_map *new_map;
+
+ new_size = maxmap == 0 ? 100 : 2 * maxmap;
+ new_map = (struct alias_map *) realloc (map, (new_size
+ * sizeof (struct alias_map)));
+ if (new_map == NULL)
+ /* Simply don't extend: we don't have any more core. */
+ return;
+
+ map = new_map;
+ maxmap = new_size;
+}
+
+
+#ifdef _LIBC
+static void __attribute__ ((unused))
+free_mem (void)
+{
+ if (string_space != NULL)
+ free (string_space);
+ if (map != NULL)
+ free (map);
+}
+text_set_element (__libc_subfreeres, free_mem);
+#endif
+
+
+static int
+alias_compare (map1, map2)
+ const struct alias_map *map1;
+ const struct alias_map *map2;
+{
+#if defined _LIBC || defined HAVE_STRCASECMP
+ return strcasecmp (map1->alias, map2->alias);
+#else
+ const unsigned char *p1 = (const unsigned char *) map1->alias;
+ const unsigned char *p2 = (const unsigned char *) map2->alias;
+ unsigned char c1, c2;
+
+ if (p1 == p2)
+ return 0;
+
+ do
+ {
+ /* I know this seems to be odd but the tolower() function in
+ some systems libc cannot handle nonalpha characters. */
+ c1 = isupper (*p1) ? tolower (*p1) : *p1;
+ c2 = isupper (*p2) ? tolower (*p2) : *p2;
+ if (c1 == '\0')
+ break;
+ ++p1;
+ ++p2;
+ }
+ while (c1 == c2);
+
+ return c1 - c2;
+#endif
+}
diff --git a/intl/po2tbl.sed.in b/intl/po2tbl.sed.in
new file mode 100644
index 00000000..b3bcca4d
--- /dev/null
+++ b/intl/po2tbl.sed.in
@@ -0,0 +1,102 @@
+# po2tbl.sed - Convert Uniforum style .po file to lookup table for catgets
+# Copyright (C) 1995 Free Software Foundation, Inc.
+# Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+1 {
+ i\
+/* Automatically generated by po2tbl.sed from @PACKAGE NAME@.pot. */\
+\
+#if HAVE_CONFIG_H\
+# include <config.h>\
+#endif\
+\
+#include "libgettext.h"\
+\
+const struct _msg_ent _msg_tbl[] = {
+ h
+ s/.*/0/
+ x
+}
+#
+# Write msgid entries in C array form.
+#
+/^msgid/ {
+ s/msgid[ ]*\(".*"\)/ {\1/
+ tb
+# Append the next line
+ :b
+ N
+# Look whether second part is continuation line.
+ s/\(.*\)"\(\n\)"\(.*"\)/\1\2\3/
+# Yes, then branch.
+ ta
+# Because we assume that the input file correctly formed the line
+# just read cannot be again be a msgid line. So it's safe to ignore
+# it.
+ s/\(.*\)\n.*/\1/
+ bc
+# We found a continuation line. But before printing insert '\'.
+ :a
+ s/\(.*\)\(\n.*\)/\1\\\2/
+ P
+# We cannot use D here.
+ s/.*\n\(.*\)/\1/
+# Some buggy seds do not clear the `successful substitution since last ``t'''
+# flag on `N', so we do a `t' here to clear it.
+ tb
+# Not reached
+ :c
+ x
+# The following nice solution is by
+# Bruno <Haible@ma2s2.mathematik.uni-karlsruhe.de>
+ td
+# Increment a decimal number in pattern space.
+# First hide trailing `9' digits.
+ :d
+ s/9\(_*\)$/_\1/
+ td
+# Assure at least one digit is available.
+ s/^\(_*\)$/0\1/
+# Increment the last digit.
+ s/8\(_*\)$/9\1/
+ s/7\(_*\)$/8\1/
+ s/6\(_*\)$/7\1/
+ s/5\(_*\)$/6\1/
+ s/4\(_*\)$/5\1/
+ s/3\(_*\)$/4\1/
+ s/2\(_*\)$/3\1/
+ s/1\(_*\)$/2\1/
+ s/0\(_*\)$/1\1/
+# Convert the hidden `9' digits to `0's.
+ s/_/0/g
+ x
+ G
+ s/\(.*\)\n\([0-9]*\)/\1, \2},/
+ s/\(.*\)"$/\1/
+ p
+}
+#
+# Last line.
+#
+$ {
+ i\
+};\
+
+ g
+ s/0*\(.*\)/int _msg_tbl_length = \1;/p
+}
+d
diff --git a/intl/textdomain.c b/intl/textdomain.c
new file mode 100644
index 00000000..88557460
--- /dev/null
+++ b/intl/textdomain.c
@@ -0,0 +1,108 @@
+/* Implementation of the textdomain(3) function.
+ Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+#endif
+
+#if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
+# include <string.h>
+#else
+# include <strings.h>
+# ifndef memcpy
+# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
+# endif
+#endif
+
+#ifdef _LIBC
+# include <libintl.h>
+#else
+# include "libgettext.h"
+#endif
+
+/* @@ end of prolog @@ */
+
+/* Name of the default text domain. */
+extern const char _nl_default_default_domain[];
+
+/* Default text domain in which entries for gettext(3) are to be found. */
+extern const char *_nl_current_default_domain;
+
+
+/* Names for the libintl functions are a problem. They must not clash
+ with existing names and they should follow ANSI C. But this source
+ code is also used in GNU C Library where the names have a __
+ prefix. So we have to make a difference here. */
+#ifdef _LIBC
+# define TEXTDOMAIN __textdomain
+# ifndef strdup
+# define strdup(str) __strdup (str)
+# endif
+#else
+# define TEXTDOMAIN textdomain__
+#endif
+
+/* Set the current default message catalog to DOMAINNAME.
+ If DOMAINNAME is null, return the current default.
+ If DOMAINNAME is "", reset to the default of "messages". */
+char *
+TEXTDOMAIN (domainname)
+ const char *domainname;
+{
+ char *old;
+
+ /* A NULL pointer requests the current setting. */
+ if (domainname == NULL)
+ return (char *) _nl_current_default_domain;
+
+ old = (char *) _nl_current_default_domain;
+
+ /* If domain name is the null string set to default domain "messages". */
+ if (domainname[0] == '\0'
+ || strcmp (domainname, _nl_default_default_domain) == 0)
+ _nl_current_default_domain = _nl_default_default_domain;
+ else
+ {
+ /* If the following malloc fails `_nl_current_default_domain'
+ will be NULL. This value will be returned and so signals we
+ are out of core. */
+#if defined _LIBC || defined HAVE_STRDUP
+ _nl_current_default_domain = strdup (domainname);
+#else
+ size_t len = strlen (domainname) + 1;
+ char *cp = (char *) malloc (len);
+ if (cp != NULL)
+ memcpy (cp, domainname, len);
+ _nl_current_default_domain = cp;
+#endif
+ }
+
+ if (old != _nl_default_default_domain)
+ free (old);
+
+ return (char *) _nl_current_default_domain;
+}
+
+#ifdef _LIBC
+/* Alias for function name in GNU C Library. */
+weak_alias (__textdomain, textdomain);
+#endif
diff --git a/intl/xopen-msg.sed b/intl/xopen-msg.sed
new file mode 100644
index 00000000..b19c0bbd
--- /dev/null
+++ b/intl/xopen-msg.sed
@@ -0,0 +1,104 @@
+# po2msg.sed - Convert Uniforum style .po file to X/Open style .msg file
+# Copyright (C) 1995 Free Software Foundation, Inc.
+# Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+#
+# The first directive in the .msg should be the definition of the
+# message set number. We use always set number 1.
+#
+1 {
+ i\
+$set 1 # Automatically created by po2msg.sed
+ h
+ s/.*/0/
+ x
+}
+#
+# We copy all comments into the .msg file. Perhaps they can help.
+#
+/^#/ s/^#[ ]*/$ /p
+#
+# We copy the original message as a comment into the .msg file.
+#
+/^msgid/ {
+# Does not work now
+# /"$/! {
+# s/\\$//
+# s/$/ ... (more lines following)"/
+# }
+ s/^msgid[ ]*"\(.*\)"$/$ Original Message: \1/
+ p
+}
+#
+# The .msg file contains, other then the .po file, only the translations
+# but each given a unique ID. Starting from 1 and incrementing by 1 for
+# each message we assign them to the messages.
+# It is important that the .po file used to generate the cat-id-tbl.c file
+# (with po-to-tbl) is the same as the one used here. (At least the order
+# of declarations must not be changed.)
+#
+/^msgstr/ {
+ s/msgstr[ ]*"\(.*\)"/\1/
+ x
+# The following nice solution is by
+# Bruno <Haible@ma2s2.mathematik.uni-karlsruhe.de>
+ td
+# Increment a decimal number in pattern space.
+# First hide trailing `9' digits.
+ :d
+ s/9\(_*\)$/_\1/
+ td
+# Assure at least one digit is available.
+ s/^\(_*\)$/0\1/
+# Increment the last digit.
+ s/8\(_*\)$/9\1/
+ s/7\(_*\)$/8\1/
+ s/6\(_*\)$/7\1/
+ s/5\(_*\)$/6\1/
+ s/4\(_*\)$/5\1/
+ s/3\(_*\)$/4\1/
+ s/2\(_*\)$/3\1/
+ s/1\(_*\)$/2\1/
+ s/0\(_*\)$/1\1/
+# Convert the hidden `9' digits to `0's.
+ s/_/0/g
+ x
+# Bring the line in the format `<number> <message>'
+ G
+ s/^[^\n]*$/& /
+ s/\(.*\)\n\([0-9]*\)/\2 \1/
+# Clear flag from last substitution.
+ tb
+# Append the next line.
+ :b
+ N
+# Look whether second part is a continuation line.
+ s/\(.*\n\)"\(.*\)"/\1\2/
+# Yes, then branch.
+ ta
+ P
+ D
+# Note that `D' includes a jump to the start!!
+# We found a continuation line. But before printing insert '\'.
+ :a
+ s/\(.*\)\(\n.*\)/\1\\\2/
+ P
+# We cannot use the sed command `D' here
+ s/.*\n\(.*\)/\1/
+ tb
+}
+d
diff --git a/io.c b/io.c
index 5023b977..7589185c 100644
--- a/io.c
+++ b/io.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1976, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1976, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -24,7 +24,6 @@
*/
#include "awk.h"
-#undef HAVE_MMAP /* for now, probably forever */
#ifdef HAVE_SYS_PARAM_H
#undef RE_DUP_MAX /* avoid spurious conflict w/regex.h */
@@ -35,13 +34,6 @@
#include <sys/wait.h>
#endif /* HAVE_SYS_WAIT_H */
-#ifdef HAVE_MMAP
-#include <sys/mman.h>
-#ifndef MAP_FAILED
-#define MAP_FAILED ((caddr_t) -1)
-#endif /* ! defined (MAP_FAILED) */
-#endif /* HAVE_MMAP */
-
#ifndef O_RDONLY
#include <fcntl.h>
#endif
@@ -49,32 +41,65 @@
#define O_ACCMODE (O_RDONLY|O_WRONLY|O_RDWR)
#endif
+#ifdef HAVE_SOCKETS
+#ifdef HAVE_SYS_SOCKET_H
+#include <sys/socket.h>
+#else
+#include <socket.h>
+#endif /* HAVE_SYS_SOCKET_H */
+#ifdef HAVE_NETINET_IN_H
+#include <netinet/in.h>
+#else
+#include <in.h>
+#endif /* HAVE_NETINET_IN_H */
+#ifdef HAVE_NETDB_H
+#include <netdb.h>
+#endif /* HAVE_NETDB_H */
+#endif /* HAVE_SOCKETS */
+
#if ! defined(S_ISREG) && defined(S_IFREG)
#define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
#endif
-#if ! defined(S_ISDIR) && defined(S_IFDIR)
-#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
-#endif
-
#ifndef ENFILE
#define ENFILE EMFILE
#endif
+extern int MRL;
+
+#ifdef HAVE_SOCKETS
+enum inet_prot { INET_NONE, INET_TCP, INET_UDP, INET_RAW };
+
+#ifndef SHUT_RD
+#define SHUT_RD 0
+#endif
+
+#ifndef SHUT_WR
+#define SHUT_WR 1
+#endif
+
+#ifndef SHUT_RDWR
+#define SHUT_RDWR 2
+#endif
+
+#endif /* HAVE_SOCKETS */
+
#ifdef atarist
#include <stddef.h>
#endif
-#if defined(MSDOS) || defined(OS2) || defined(WIN32)
+#if defined(MSDOS) || defined(OS2) || defined(WIN32) || defined(TANDEM)
#define PIPES_SIMULATED
#endif
+typedef enum { CLOSE_ALL, CLOSE_TO, CLOSE_FROM } two_way_close_type;
+
static IOBUF *nextfile P((int skipping));
static int inrec P((IOBUF *iop));
static int iop_close P((IOBUF *iop));
struct redirect *redirect P((NODE *tree, int *errflg));
static void close_one P((void));
-static int close_redir P((struct redirect *rp, int exitwarn));
+static int close_redir P((struct redirect *rp, int exitwarn, two_way_close_type how));
#ifndef PIPES_SIMULATED
static int wait_any P((int interesting));
#endif
@@ -84,16 +109,14 @@ static IOBUF *iop_alloc P((int fd, const char *name, IOBUF *buf));
static int gawk_pclose P((struct redirect *rp));
static int do_pathopen P((const char *file));
static int get_a_record P((char **out, IOBUF *iop, int rs, Regexp *RSre, int *errcode));
-#ifdef HAVE_MMAP
-static int mmap_get_record P((char **out, IOBUF *iop, int rs, Regexp *RSre, int *errcode));
-#endif /* HAVE_MMAP */
static int str2mode P((const char *mode));
static void spec_setup P((IOBUF *iop, int len, int allocate));
static int specfdopen P((IOBUF *iop, const char *name, const char *mode));
static int pidopen P((IOBUF *iop, const char *name, const char *mode));
static int useropen P((IOBUF *iop, const char *name, const char *mode));
+static int two_way_open P((char *str, struct redirect *rp));
-#if defined (HAVE_POPEN_H)
+#if defined(HAVE_POPEN_H)
#include "popen.h"
#endif
@@ -112,6 +135,27 @@ extern NODE **fields_arr;
static jmp_buf filebuf; /* for do_nextfile() */
+#if defined(MSDOS) || defined(OS2)
+static const char *
+binmode(char *mode)
+{
+ switch (mode[0]) {
+ case 'r':
+ if ((BINMODE & 1) != 0)
+ mode = "rb";
+ break;
+ case 'w':
+ case 'a':
+ if ((BINMODE & 2) != 0)
+ mode = (mode[0] == 'w' ? "wb" : "ab");
+ break;
+ }
+ return mode;
+}
+#else
+#define binmode(mode) (mode)
+#endif
+
#ifdef VMS
/* File pointers have an extra level of indirection, and there are cases where
`stdin' can be null. That can crash gawk if fileno() is used as-is. */
@@ -133,8 +177,7 @@ do_nextfile()
/* nextfile --- move to the next input data file */
static IOBUF *
-nextfile(skipping)
-int skipping;
+nextfile(int skipping)
{
static long i = 1;
static int files = 0;
@@ -157,7 +200,7 @@ int skipping;
return curfile;
}
for (; i < (long) (ARGC_node->lnode->numbr); i++) {
- arg = *assoc_lookup(ARGV_node, tmp_number((AWKNUM) i));
+ arg = *assoc_lookup(ARGV_node, tmp_number((AWKNUM) i), FALSE);
if (arg->stlen == 0)
continue;
arg->stptr[arg->stlen] = '\0';
@@ -168,7 +211,7 @@ int skipping;
if (! arg_assign(arg->stptr)) {
files++;
fname = arg->stptr;
- curfile = iop_open(fname, "r", &mybuf);
+ curfile = iop_open(fname, binmode("r"), &mybuf);
if (curfile == NULL)
goto give_up;
curfile->flag |= IOP_NOFREE_OBJ;
@@ -186,7 +229,7 @@ int skipping;
/* FNR is init'ed to 0 */
FILENAME_node->var_value = make_string("-", 1);
fname = "-";
- curfile = iop_open(fname, "r", &mybuf);
+ curfile = iop_open(fname, binmode("r"), &mybuf);
if (curfile == NULL)
goto give_up;
curfile->flag |= IOP_NOFREE_OBJ;
@@ -194,7 +237,7 @@ int skipping;
return curfile;
give_up:
- fatal("cannot open file `%s' for reading (%s)",
+ fatal(_("cannot open file `%s' for reading (%s)"),
fname, strerror(errno));
/* NOTREACHED */
return 0;
@@ -219,16 +262,14 @@ set_NR()
/* inrec --- This reads in a record from the input file */
static int
-inrec(iop)
-IOBUF *iop;
+inrec(IOBUF *iop)
{
char *begin;
register int cnt;
int retval = 0;
if ((cnt = iop->cnt) != EOF)
- cnt = (*(iop->getrec))
- (&begin, iop, RS->stptr[0], RS_regexp, NULL);
+ cnt = get_a_record(&begin, iop, RS->stptr[0], RS_regexp, NULL);
if (cnt == EOF) {
cnt = 0;
retval = 1;
@@ -244,8 +285,7 @@ IOBUF *iop;
/* iop_close --- close an open IOP */
static int
-iop_close(iop)
-IOBUF *iop;
+iop_close(IOBUF *iop)
{
int ret;
@@ -271,14 +311,13 @@ IOBUF *iop;
/* Don't close standard files or else crufty code elsewhere will lose */
if (iop->fd == fileno(stdin)
|| iop->fd == fileno(stdout)
- || iop->fd == fileno(stderr)
- || (iop->flag & IOP_MMAPPED) != 0)
+ || iop->fd == fileno(stderr))
ret = 0;
else
ret = close(iop->fd);
if (ret == -1)
- warning("close of fd %d (`%s') failed (%s)", iop->fd,
+ warning(_("close of fd %d (`%s') failed (%s)"), iop->fd,
iop->name, strerror(errno));
if ((iop->flag & IOP_NO_FREE) == 0) {
/*
@@ -297,12 +336,7 @@ IOBUF *iop;
fields_arr[0] = t;
reset_record();
}
- if ((iop->flag & IOP_MMAPPED) == 0)
- free(iop->buf);
-#ifdef HAVE_MMAP
- else
- (void) munmap(iop->buf, iop->size);
-#endif
+ free(iop->buf);
}
if ((iop->flag & IOP_NOFREE_OBJ) == 0)
free((char *) iop);
@@ -324,21 +358,37 @@ do_input()
if (inrec(iop) == 0)
while (interpret(expression_value) && inrec(iop) == 0)
continue;
-#ifdef C_ALLOCA
- /* recover any space from C based alloca */
- (void) alloca(0);
-#endif
if (exiting)
break;
}
}
+/* redflags2str --- turn redirection flags into a string, for debugging */
+
+char *
+redflags2str(int flags)
+{
+ static struct flagtab redtab[] = {
+ { RED_FILE, "RED_FILE" },
+ { RED_PIPE, "RED_PIPE" },
+ { RED_READ, "RED_READ" },
+ { RED_WRITE, "RED_WRITE" },
+ { RED_APPEND, "RED_APPEND" },
+ { RED_NOBUF, "RED_NOBUF" },
+ { RED_EOF, "RED_EOF" },
+ { RED_TWOWAY, "RED_TWOWAY" },
+ { RED_SOCKET, "RED_SOCKET" },
+ { RED_TCP, "RED_TCP" },
+ { 0, NULL }
+ };
+
+ return genflags2str(flags, redtab);
+}
+
/* redirect --- Redirection for printf and print commands */
struct redirect *
-redirect(tree, errflg)
-NODE *tree;
-int *errflg;
+redirect(NODE *tree, int *errflg)
{
register NODE *tmp;
register struct redirect *rp;
@@ -374,31 +424,57 @@ int *errflg;
tflag = (RED_FILE|RED_READ);
what = "<";
break;
+ case Node_redirect_twoway:
+ tflag = (RED_READ|RED_WRITE|RED_TWOWAY);
+ what = "|&";
+ break;
default:
- fatal("invalid tree type %d in redirect()", tree->type);
+ fatal(_("invalid tree type %s in redirect()"),
+ nodetype2str(tree->type));
break;
}
tmp = tree_eval(tree->subnode);
if (do_lint && (tmp->flags & STR) == 0)
- warning("expression in `%s' redirection only has numeric value",
+ lintwarn(_("expression in `%s' redirection only has numeric value"),
what);
tmp = force_string(tmp);
str = tmp->stptr;
if (str == NULL || *str == '\0')
- fatal("expression for `%s' redirection has null string value",
+ fatal(_("expression for `%s' redirection has null string value"),
what);
if (do_lint
&& (STREQN(str, "0", tmp->stlen) || STREQN(str, "1", tmp->stlen)))
- warning("filename `%s' for `%s' redirection may be result of logical expression", str, what);
- for (rp = red_head; rp != NULL; rp = rp->next)
+ lintwarn(_("filename `%s' for `%s' redirection may be result of logical expression"), str, what);
+
+#ifdef HAVE_SOCKETS
+ if (STREQN(str, "/inet/", 6)) {
+ tflag |= RED_SOCKET;
+ if (STREQN(str + 6, "tcp/", 4))
+ tflag |= RED_TCP; /* use shutdown when closing */
+ }
+#endif /* HAVE_SOCKETS */
+
+ for (rp = red_head; rp != NULL; rp = rp->next) {
if (strlen(rp->value) == tmp->stlen
&& STREQN(rp->value, str, tmp->stlen)
&& ((rp->flag & ~(RED_NOBUF|RED_EOF)) == tflag
|| (outflag != 0
- && (rp->flag & (RED_FILE|RED_WRITE)) == outflag)))
+ && (rp->flag & (RED_FILE|RED_WRITE)) == outflag))) {
+
+ int rpflag = (rp->flag & ~(RED_NOBUF|RED_EOF));
+ int newflag = (tflag & ~(RED_NOBUF|RED_EOF));
+
+ if (do_lint && rpflag != newflag)
+ lintwarn(
+ _("unnecessary mixing of `>' and `>>' for file `%.*s'"),
+ tmp->stlen, rp->value);
+
break;
+ }
+ }
+
if (rp == NULL) {
emalloc(rp, struct redirect *, sizeof(struct redirect),
"redirect");
@@ -419,6 +495,7 @@ int *errflg;
red_head = rp;
} else
str = rp->value; /* get \0 terminated string */
+
while (rp->fp == NULL && rp->iop == NULL) {
if (rp->flag & RED_EOF)
/*
@@ -430,31 +507,48 @@ int *errflg;
errno = 0;
switch (tree->type) {
case Node_redirect_output:
- mode = "w";
+ mode = binmode("w");
if ((rp->flag & RED_USED) != 0)
- mode = "a";
+ mode = (rp->mode[1] == 'b') ? "ab" : "a";
break;
case Node_redirect_append:
- mode = "a";
+ mode = binmode("a");
break;
case Node_redirect_pipe:
/* synchronize output before new pipe */
(void) flush_io();
- if ((rp->fp = popen(str, "w")) == NULL)
- fatal("can't open pipe (\"%s\") for output (%s)",
+ os_restore_mode(fileno(stdin));
+ if ((rp->fp = popen(str, binmode("w"))) == NULL)
+ fatal(_("can't open pipe `%s' for output (%s)"),
str, strerror(errno));
+ /* set close-on-exec */
+ os_close_on_exec(fileno(rp->fp), str, "pipe", "to");
rp->flag |= RED_NOBUF;
break;
case Node_redirect_pipein:
direction = "from";
if (gawk_popen(str, rp) == NULL)
- fatal("can't open pipe (\"%s\") for input (%s)",
+ fatal(_("can't open pipe `%s' for input (%s)"),
str, strerror(errno));
break;
case Node_redirect_input:
direction = "from";
- rp->iop = iop_open(str, "r", NULL);
+ rp->iop = iop_open(str, binmode("r"), NULL);
+ break;
+ case Node_redirect_twoway:
+ direction = "to/from";
+ if (!two_way_open(str, rp)) {
+#ifdef HAVE_SOCKETS
+ /* multiple messages make life easier for translators */
+ if (STREQN(str, "/inet/", 6))
+ fatal(_("can't open two way socket `%s' for input/output (%s)"),
+ str, strerror(errno));
+ else
+#endif
+ fatal(_("can't open two way pipe `%s' for input/output (%s)"),
+ str, strerror(errno));
+ }
break;
default:
cant_happen();
@@ -470,7 +564,16 @@ int *errflg;
else if (fd == fileno(stderr))
rp->fp = stderr;
else {
- rp->fp = fdopen(fd, (char *) mode);
+#if defined(F_GETFL) && defined(O_APPEND)
+ int fd_flags;
+
+ fd_flags = fcntl(fd, F_GETFL);
+ if (fd_flags != -1 && (fd_flags & O_APPEND) == O_APPEND)
+ rp->fp = fdopen(fd, binmode("a"));
+ else
+#endif
+ rp->fp = fdopen(fd, (char *) mode);
+ rp->mode = (char *) mode;
/* don't leak file descriptors */
if (rp->fp == NULL)
close(fd);
@@ -492,9 +595,7 @@ int *errflg;
/* too many files open -- close one and try again */
if (errno == EMFILE || errno == ENFILE)
close_one();
-#if defined __MINGW32__ || defined HAVE_MMAP
- /* this works for solaris 2.5, not sunos */
- /* it is also needed for MINGW32 */
+#if defined __MINGW32__ || defined solaris
else if (errno == 0) /* HACK! */
close_one();
#endif
@@ -518,10 +619,15 @@ int *errflg;
if (errflg != NULL)
*errflg = errno;
if (tree->type == Node_redirect_output
- || tree->type == Node_redirect_append)
- fatal("can't redirect %s `%s' (%s)",
- direction, str, strerror(errno));
- else {
+ || tree->type == Node_redirect_append) {
+ /* multiple messages make life easier for translators */
+ if (*direction == 'f')
+ fatal(_("can't redirect from `%s' (%s)"),
+ str, strerror(errno));
+ else
+ fatal(_("can't redirect to `%s' (%s)"),
+ str, strerror(errno));
+ } else {
free_temp(tmp);
return NULL;
}
@@ -535,9 +641,7 @@ int *errflg;
/* getredirect --- find the struct redirect for this file or pipe */
struct redirect *
-getredirect(str, len)
-char *str;
-int len;
+getredirect(char *str, int len)
{
struct redirect *rp;
@@ -556,6 +660,13 @@ close_one()
register struct redirect *rp;
register struct redirect *rplast = NULL;
+ static short warned = FALSE;
+
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ lintwarn(_("reached system limit for open files: starting to multiplex file descriptors"));
+ }
+
/* go to end of list first, to pick up least recently used entry */
for (rp = red_head; rp != NULL; rp = rp->next)
rplast = rp;
@@ -565,26 +676,39 @@ close_one()
rp->flag |= RED_USED;
errno = 0;
if (/* do_lint && */ fclose(rp->fp) != 0)
- warning("close of \"%s\" failed (%s).",
+ warning(_("close of `%s' failed (%s)."),
rp->value, strerror(errno));
rp->fp = NULL;
break;
}
if (rp == NULL)
/* surely this is the only reason ??? */
- fatal("too many pipes or input files open");
+ fatal(_("too many pipes or input files open"));
}
/* do_close --- completely close an open file or pipe */
NODE *
-do_close(tree)
-NODE *tree;
+do_close(NODE *tree)
{
- NODE *tmp;
+ NODE *tmp, *tmp2;
register struct redirect *rp;
-
- tmp = force_string(tree_eval(tree->subnode));
+ two_way_close_type how = CLOSE_ALL; /* default */
+
+ tmp = force_string(tree_eval(tree->lnode)); /* 1st arg: redir to close */
+
+ if (tree->rnode != NULL) {
+ /* 2nd arg if present: "to" or "from" for two-way pipe */
+ /* DO NOT use _() on the strings here! */
+ tmp2 = force_string(tree->rnode->lnode);
+ if (strcasecmp(tmp2->stptr, "to") == 0)
+ how = CLOSE_TO;
+ else if (strcasecmp(tmp2->stptr, "from") == 0)
+ how = CLOSE_FROM;
+ else
+ fatal(_("close: second argument must be `to' or `from'"));
+ free_temp(tmp2);
+ }
for (rp = red_head; rp != NULL; rp = rp->next) {
if (strlen(rp->value) == tmp->stlen
@@ -592,22 +716,24 @@ NODE *tree;
break;
}
- if (rp == NULL) { /* no match */
- /* icky special case: close(FILENAME) called. */
- if (tree->subnode == FILENAME_node
- || (tmp->stlen == FILENAME_node->var_value->stlen
- && STREQN(tmp->stptr, FILENAME_node->var_value->stptr, tmp->stlen))) {
- (void) nextfile(TRUE);
- } else if (do_lint)
- warning("close: `%.*s' is not an open file or pipe",
+ if (rp == NULL) { /* no match, return -1 */
+ char *cp;
+
+ if (do_lint)
+ lintwarn(_("close: `%.*s' is not an open file, pipe or co-process"),
tmp->stlen, tmp->stptr);
+ /* update ERRNO manually, using errno = ENOENT is a stretch. */
+ cp = _("close of redirection that was never opened");
+ unref(ERRNO_node->var_value);
+ ERRNO_node->var_value = make_string(cp, strlen(cp));
+
free_temp(tmp);
- return tmp_number((AWKNUM) 0.0);
+ return tmp_number((AWKNUM) -1.0);
}
free_temp(tmp);
fflush(stdout); /* synchronize regular output */
- tmp = tmp_number((AWKNUM) close_redir(rp, FALSE));
+ tmp = tmp_number((AWKNUM) close_redir(rp, FALSE, how));
rp = NULL;
return tmp;
}
@@ -615,33 +741,63 @@ NODE *tree;
/* close_redir --- close an open file or pipe */
static int
-close_redir(rp, exitwarn)
-register struct redirect *rp;
-int exitwarn;
+close_redir(register struct redirect *rp, int exitwarn, two_way_close_type how)
{
int status = 0;
- char *what;
if (rp == NULL)
return 0;
if (rp->fp == stdout || rp->fp == stderr)
return 0;
+
+ if (do_lint && (rp->flag & RED_TWOWAY) == 0 && how != CLOSE_ALL)
+ lintwarn(_("close: redirection `%s' not opened with `|&', second argument ignored"),
+ rp->value);
+
errno = 0;
- if ((rp->flag & (RED_PIPE|RED_WRITE)) == (RED_PIPE|RED_WRITE))
+ if ((rp->flag & RED_TWOWAY) != 0) { /* two-way pipe */
+ /* write end: */
+ if ((how == CLOSE_ALL || how == CLOSE_TO) && rp->fp != NULL) {
+#ifdef HAVE_SOCKETS
+ if ((rp->flag & RED_TCP) != 0)
+ (void) shutdown(fileno(rp->fp), SHUT_WR);
+#endif /* HAVE_SOCKETS */
+ status = fclose(rp->fp);
+ rp->fp = NULL;
+ }
+
+ /* read end: */
+ if (how == CLOSE_ALL || how == CLOSE_FROM) {
+ if ((rp->flag & RED_SOCKET) != 0 && rp->iop != NULL) {
+#ifdef HAVE_SOCKETS
+ if ((rp->flag & RED_TCP) != 0)
+ (void) shutdown(rp->iop->fd, SHUT_RD);
+#endif /* HAVE_SOCKETS */
+ (void) iop_close(rp->iop);
+ } else
+ status = gawk_pclose(rp);
+
+ rp->iop = NULL;
+ }
+ } else if ((rp->flag & (RED_PIPE|RED_WRITE)) == (RED_PIPE|RED_WRITE)) { /* write to pipe */
status = pclose(rp->fp);
- else if (rp->fp != NULL)
+ if ((BINMODE & 1) != 0)
+ os_setbinmode(fileno(stdin), O_BINARY);
+
+ rp->fp = NULL;
+ } else if (rp->fp != NULL) { /* write to file */
status = fclose(rp->fp);
- else if (rp->iop != NULL) {
- if ((rp->flag & RED_PIPE) != 0)
+ rp->fp = NULL;
+ } else if (rp->iop != NULL) { /* read from pipe/file */
+ if ((rp->flag & RED_PIPE) != 0) /* read from pipe */
status = gawk_pclose(rp);
- else {
+ /* gawk_pclose sets rp->iop to null */
+ else { /* read from file */
status = iop_close(rp->iop);
rp->iop = NULL;
}
}
- what = ((rp->flag & RED_PIPE) != 0) ? "pipe" : "file";
-
/* SVR4 awk checks and warns about status of close */
if (status != 0) {
char *s = strerror(errno);
@@ -650,29 +806,55 @@ int exitwarn;
* Too many people have complained about this.
* As of 2.15.6, it is now under lint control.
*/
- if (do_lint)
- warning("failure status (%d) on %s close of \"%s\" (%s)",
- status, what, rp->value, s);
+ if (do_lint) {
+ if ((rp->flag & RED_PIPE) != 0)
+ lintwarn(_("failure status (%d) on pipe close of `%s' (%s)"),
+ status, rp->value, s);
+ else
+ lintwarn(_("failure status (%d) on file close of `%s' (%s)"),
+ status, rp->value, s);
+ }
if (! do_traditional) {
/* set ERRNO too so that program can get at it */
- unref(ERRNO_node->var_value);
- ERRNO_node->var_value = make_string(s, strlen(s));
+ update_ERRNO();
}
}
- if (exitwarn)
- warning("no explicit close of %s `%s' provided",
- what, rp->value);
+ if (exitwarn) {
+ /*
+ * Don't use lintwarn() here. If lint warnings are fatal,
+ * doing so prevents us from closing other open redirections.
+ *
+ * Using multiple full messages instead of string parameters
+ * for the types makes message translation easier.
+ */
+ if ((rp->flag & RED_SOCKET) != 0)
+ warning(_("no explicit close of socket `%s' provided"),
+ rp->value);
+ else if ((rp->flag & RED_TWOWAY) != 0)
+ warning(_("no explicit close of co-process `%s' provided"),
+ rp->value);
+ else if ((rp->flag & RED_PIPE) != 0)
+ warning(_("no explicit close of pipe `%s' provided"),
+ rp->value);
+ else
+ warning(_("no explicit close of file `%s' provided"),
+ rp->value);
+ }
+
+ /* remove it from the list if closing both or both ends have been closed */
+ if (how == CLOSE_ALL || (rp->iop == NULL && rp->fp == NULL)) {
+ if (rp->next != NULL)
+ rp->next->prev = rp->prev;
+ if (rp->prev != NULL)
+ rp->prev->next = rp->next;
+ else
+ red_head = rp->next;
+ free(rp->value);
+ free((char *) rp);
+ }
- if (rp->next != NULL)
- rp->next->prev = rp->prev;
- if (rp->prev != NULL)
- rp->prev->next = rp->next;
- else
- red_head = rp->next;
- free(rp->value);
- free((char *) rp);
return status;
}
@@ -686,23 +868,31 @@ flush_io()
errno = 0;
if (fflush(stdout)) {
- warning("error writing standard output (%s)", strerror(errno));
+ warning(_("error writing standard output (%s)"), strerror(errno));
status++;
}
if (fflush(stderr)) {
- warning("error writing standard error (%s)", strerror(errno));
+ warning(_("error writing standard error (%s)"), strerror(errno));
status++;
}
for (rp = red_head; rp != NULL; rp = rp->next)
/* flush both files and pipes, what the heck */
if ((rp->flag & RED_WRITE) && rp->fp != NULL) {
if (fflush(rp->fp)) {
- warning("%s flush of \"%s\" failed (%s).",
- (rp->flag & RED_PIPE) ? "pipe" :
- "file", rp->value, strerror(errno));
+ if (rp->flag & RED_PIPE)
+ warning(_("pipe flush of `%s' failed (%s)."),
+ rp->value, strerror(errno));
+ else if (rp->flag & RED_TWOWAY)
+ warning(_("co-process flush of pipe to `%s' failed (%s)."),
+ rp->value, strerror(errno));
+ else
+ warning(_("file flush of `%s' failed (%s)."),
+ rp->value, strerror(errno));
status++;
}
}
+ if (status != 0)
+ status = -1; /* canonicalize it */
return status;
}
@@ -722,7 +912,7 @@ close_io()
* close_redir() will print a message if needed
* if do_lint, warn about lack of explicit close
*/
- if (close_redir(rp, do_lint))
+ if (close_redir(rp, do_lint, CLOSE_ALL))
status++;
rp = NULL;
}
@@ -732,11 +922,11 @@ close_io()
* them, we just flush them, and do that across the board.
*/
if (fflush(stdout)) {
- warning("error writing standard output (%s)", strerror(errno));
+ warning(_("error writing standard output (%s)"), strerror(errno));
status++;
}
if (fflush(stderr)) {
- warning("error writing standard error (%s)", strerror(errno));
+ warning(_("error writing standard error (%s)"), strerror(errno));
status++;
}
return status;
@@ -745,31 +935,167 @@ close_io()
/* str2mode --- convert a string mode to an integer mode */
static int
-str2mode(mode)
-const char *mode;
+str2mode(const char *mode)
{
int ret;
+ const char *second = & mode[1];
+
+ if (*second == 'b')
+ second++;
switch(mode[0]) {
case 'r':
ret = O_RDONLY;
+ if (*second == '+' || *second == 'w')
+ ret = O_RDWR;
break;
case 'w':
ret = O_WRONLY|O_CREAT|O_TRUNC;
+ if (*second == '+' || *second == 'r')
+ ret = O_RDWR|O_CREAT|O_TRUNC;
break;
case 'a':
ret = O_WRONLY|O_APPEND|O_CREAT;
+ if (*second == '+')
+ ret = O_RDWR|O_APPEND|O_CREAT;
break;
default:
ret = 0; /* lint */
cant_happen();
}
+ if (strchr(mode, 'b') != NULL)
+ ret |= O_BINARY;
return ret;
}
+#ifdef HAVE_SOCKETS
+/* socketopen --- open a socket and set it into connected state */
+
+int
+socketopen(enum inet_prot type, int localport, int remoteport, char *remotehostname)
+{
+ struct hostent *hp = gethostbyname(remotehostname);
+ struct sockaddr_in local_addr, remote_addr;
+ int socket_fd;
+ int any_remote_host = strcmp(remotehostname, "0");
+
+ socket_fd = INVALID_HANDLE;
+ switch (type) {
+ case INET_TCP:
+ if (localport != 0 || remoteport != 0) {
+ int on = 1;
+#ifdef SO_LINGER
+ struct linger linger;
+
+ memset(& linger, '\0', sizeof(linger));
+#endif
+ socket_fd = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
+ setsockopt(socket_fd, SOL_SOCKET, SO_REUSEADDR,
+ (char *) & on, sizeof(on));
+#ifdef SO_LINGER
+ linger.l_onoff = 1;
+ linger.l_linger = 30; /* linger for 30/100 second */
+ setsockopt(socket_fd, SOL_SOCKET, SO_LINGER,
+ (char *) & linger, sizeof(linger));
+#endif
+ }
+ break;
+ case INET_UDP:
+ if (localport != 0 || remoteport != 0)
+ socket_fd = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
+ break;
+ case INET_RAW:
+#ifdef SOCK_RAW
+ if (localport == 0 && remoteport == 0)
+ socket_fd = socket(AF_INET, SOCK_RAW, IPPROTO_RAW);
+#endif
+ break;
+ case INET_NONE:
+ /* fall through */
+ default:
+ cant_happen();
+ break;
+ }
+
+ if (socket_fd < 0 || socket_fd == INVALID_HANDLE
+ || (hp == NULL && any_remote_host != 0))
+ return INVALID_HANDLE;
+
+ local_addr.sin_family = remote_addr.sin_family = AF_INET;
+ local_addr.sin_addr.s_addr = htonl(INADDR_ANY);
+ remote_addr.sin_addr.s_addr = htonl(INADDR_ANY);
+ local_addr.sin_port = htons(localport);
+ remote_addr.sin_port = htons(remoteport);
+ if (bind(socket_fd, (struct sockaddr *) &local_addr, sizeof(local_addr)) == 0) {
+ if (any_remote_host != 0) { /* not ANY => create a client */
+ if (type == INET_TCP || type == INET_UDP) {
+ memcpy(&remote_addr.sin_addr, hp->h_addr,
+ sizeof(remote_addr.sin_addr));
+ if (connect(socket_fd,
+ (struct sockaddr *) &remote_addr,
+ sizeof(remote_addr)) != 0) {
+ close(socket_fd);
+ if (localport == 0)
+ socket_fd = INVALID_HANDLE;
+ else
+ socket_fd = socketopen(type, localport, 0, "0");
+ }
+ } else {
+ /* /inet/raw client not ready yet */
+ fatal(_("/inet/raw client not ready yet, sorry"));
+ if (geteuid() != 0)
+ fatal(_("only root may use `/inet/raw'."));
+ }
+ } else { /* remote host is ANY => create a server */
+ if (type == INET_TCP) {
+ int clientsocket_fd = INVALID_HANDLE;
+ int namelen = sizeof(remote_addr);
+
+ if (listen(socket_fd, 1) >= 0
+ && (clientsocket_fd = accept(socket_fd,
+ (struct sockaddr *) &remote_addr,
+ &namelen)) >= 0) {
+ close(socket_fd);
+ socket_fd = clientsocket_fd;
+ } else {
+ close(socket_fd);
+ socket_fd = INVALID_HANDLE;
+ }
+ } else if (type == INET_UDP) {
+ char buf[10];
+ int readle;
+
+#ifdef MSG_PEEK
+ if (recvfrom(socket_fd, buf, 1, MSG_PEEK,
+ (struct sockaddr *) & remote_addr,
+ & readle) < 1
+ || readle != sizeof(remote_addr)
+ || connect(socket_fd,
+ (struct sockaddr *)& remote_addr,
+ readle) != 0) {
+ close(socket_fd);
+ socket_fd = INVALID_HANDLE;
+ }
+#endif
+ } else {
+ /* /inet/raw server not ready yet */
+ fatal(_("/inet/raw server not ready yet, sorry"));
+ if (geteuid() != 0)
+ fatal(_("only root may use `/inet/raw'."));
+ }
+ }
+ } else {
+ close(socket_fd);
+ socket_fd = INVALID_HANDLE;
+ }
+
+ return socket_fd;
+}
+#endif /* HAVE_SOCKETS */
+
/* devopen --- handle /dev/std{in,out,err}, /dev/fd/N, regular files */
/*
@@ -779,33 +1105,38 @@ const char *mode;
* no sense to use them for output.
*/
+/*
+ * Strictly speaking, "name" is not a "const char *" because we temporarily
+ * change the string.
+ */
+
int
-devopen(name, mode)
-const char *name, *mode;
+devopen(const char *name, const char *mode)
{
int openfd;
- const char *cp;
+ char *cp;
char *ptr;
int flag = 0;
- struct stat buf;
extern double strtod();
flag = str2mode(mode);
if (STREQ(name, "-"))
- openfd = fileno(stdin);
- else
- openfd = INVALID_HANDLE;
+ return fileno(stdin);
+
+ openfd = INVALID_HANDLE;
if (do_traditional)
goto strictopen;
- if ((openfd = os_devopen(name, flag)) >= 0)
+ if ((openfd = os_devopen(name, flag)) != INVALID_HANDLE) {
+ os_close_on_exec(openfd, name, "file", "");
return openfd;
+ }
+
+ if (STREQN(name, "/dev/", 5)) {
+ cp = (char *) name + 5;
- if (STREQN(name, "/dev/", 5) && stat((char *) name, &buf) == -1) {
- cp = name + 5;
-
if (STREQ(cp, "stdin") && (flag & O_ACCMODE) == O_RDONLY)
openfd = fileno(stdin);
else if (STREQ(cp, "stdout") && (flag & O_ACCMODE) == O_WRONLY)
@@ -818,14 +1149,115 @@ const char *name, *mode;
if (openfd <= INVALID_HANDLE || ptr == cp)
openfd = INVALID_HANDLE;
}
+ /* do not set close-on-exec for inherited fd's */
+ if (openfd != INVALID_HANDLE)
+ return openfd;
+ } else if (STREQN(name, "/inet/", 6)) {
+#ifdef HAVE_SOCKETS
+ /* /inet/protocol/localport/hostname/remoteport */
+ enum inet_prot protocol = INET_NONE;
+ int localport, remoteport;
+ char *hostname;
+ char *hostnameslastcharp;
+ char *localpname;
+ char proto[4];
+ struct servent *service;
+
+ cp = (char *) name + 6;
+ /* which protocol? */
+ if (STREQN(cp, "tcp/", 4))
+ protocol = INET_TCP;
+ else if (STREQN(cp, "udp/", 4))
+ protocol = INET_UDP;
+ else if (STREQN(cp, "raw/", 4))
+ protocol = INET_RAW;
+ else
+ fatal(_("no (known) protocol supplied in special filename `%s'"),
+ name);
+
+ proto[0] = cp[0];
+ proto[1] = cp[1];
+ proto[2] = cp[2];
+ proto[3] = '\0';
+ cp += 4;
+
+ /* which localport? */
+ localpname = cp;
+ while (*cp != '/' && *cp != '\0')
+ cp++;
+ /*
+ * Require a port, let them explicitly put 0 if
+ * they don't care.
+ */
+ if (*cp != '/' || cp == localpname)
+ fatal(_("special file name `%s' is incomplete"), name);
+ /* We change the special file name temporarily because we
+ * need a 0-terminated string here for conversion with atoi().
+ * By using atoi() the use of decimal numbers is enforced.
+ */
+ *cp = '\0';
+
+ localport = atoi(localpname);
+ if (strcmp(localpname, "0") != 0
+ && (localport <= 0 || localport > 65535)) {
+ service = getservbyname(localpname, proto);
+ if (service == NULL)
+ fatal(_("local port invalid in `%s'"), name);
+ else
+ localport = ntohs(service->s_port);
+ }
+ *cp = '/';
+
+ /* which hostname? */
+ cp++;
+ hostname = cp;
+ while (*cp != '/' && *cp != '\0')
+ cp++;
+ if (*cp != '/' || cp == hostname)
+ fatal(_("must supply a remote hostname to `/inet'"));
+ *cp = '\0';
+ hostnameslastcharp = cp;
+
+ /* which remoteport? */
+ cp++;
+ /*
+ * The remote port ends the special file name.
+ * This means there already is a 0 at the end of the string.
+ * Therefore no need to patch any string ending.
+ *
+ * Here too, require a port, let them explicitly put 0 if
+ * they don't care.
+ */
+ if (*cp == '\0')
+ fatal(_("must supply a remote port to `/inet'"));
+ remoteport = atoi(cp);
+ if (strcmp(cp, "0") != 0
+ && (remoteport <= 0 || remoteport > 65535)) {
+ service = getservbyname(cp, proto);
+ if (service == NULL)
+ fatal(_("remote port invalid in `%s'"), name);
+ else
+ remoteport = ntohs(service->s_port);
+ }
+
+ /* Open Sesame! */
+ openfd = socketopen(protocol, localport, remoteport, hostname);
+ *hostnameslastcharp = '/';
+
+#else /* ! HAVE_SOCKETS */
+ fatal(_("TCP/IP communications are not supported"));
+#endif /* HAVE_SOCKETS */
}
strictopen:
if (openfd == INVALID_HANDLE)
openfd = open(name, flag, 0666);
- if (openfd != INVALID_HANDLE && fstat(openfd, &buf) > 0)
- if (S_ISDIR(buf.st_mode))
- fatal("file `%s' is a directory", name);
+ if (openfd != INVALID_HANDLE) {
+ if (os_isdir(openfd))
+ fatal(_("file `%s' is a directory"), name);
+
+ os_close_on_exec(openfd, name, "file", "");
+ }
return openfd;
}
@@ -833,10 +1265,7 @@ strictopen:
/* spec_setup --- setup an IOBUF for a special internal file */
static void
-spec_setup(iop, len, allocate)
-IOBUF *iop;
-int len;
-int allocate;
+spec_setup(IOBUF *iop, int len, int allocate)
{
char *cp;
@@ -855,15 +1284,12 @@ int allocate;
iop->end = iop->buf + len;
iop->fd = -1;
iop->flag = IOP_IS_INTERNAL;
- iop->getrec = get_a_record;
}
/* specfdopen --- open an fd special file */
static int
-specfdopen(iop, name, mode)
-IOBUF *iop;
-const char *name, *mode;
+specfdopen(IOBUF *iop, const char *name, const char *mode)
{
int fd;
IOBUF *tp;
@@ -892,12 +1318,13 @@ const char *name, *mode;
/* pidopen --- "open" /dev/pid, /dev/ppid, and /dev/pgrpid */
static int
-pidopen(iop, name, mode)
-IOBUF *iop;
-const char *name, *mode;
+pidopen(IOBUF *iop, const char *name, const char *mode)
{
char tbuf[BUFSIZ];
int i;
+ const char *cp = name + 5;
+
+ warning(_("use `PROCINFO[\"%s\"]' instead of `%s'"), cp, name);
if (name[6] == 'g')
sprintf(tbuf, "%d\n", (int) getpgrp(getpgrp_arg()));
@@ -924,9 +1351,7 @@ const char *name, *mode;
*/
static int
-useropen(iop, name, mode)
-IOBUF *iop;
-const char *name, *mode;
+useropen(IOBUF *iop, const char *name, const char *mode)
{
char tbuf[BUFSIZ], *cp;
int i;
@@ -935,13 +1360,15 @@ const char *name, *mode;
int ngroups;
#endif
+ warning(_("use `PROCINFO[...]' instead of `/dev/user'"));
+
sprintf(tbuf, "%d %d %d %d", (int) getuid(), (int) geteuid(), (int) getgid(), (int) getegid());
cp = tbuf + strlen(tbuf);
#if defined(NGROUPS_MAX) && NGROUPS_MAX > 0
ngroups = getgroups(NGROUPS_MAX, groupset);
if (ngroups == -1)
- fatal("could not find groups: %s", strerror(errno));
+ fatal(_("could not find groups: %s"), strerror(errno));
for (i = 0; i < ngroups; i++) {
*cp++ = ' ';
@@ -961,13 +1388,10 @@ const char *name, *mode;
/* iop_open --- handle special and regular files for input */
static IOBUF *
-iop_open(name, mode, iop)
-const char *name, *mode;
-IOBUF *iop;
+iop_open(const char *name, const char *mode, IOBUF *iop)
{
int openfd = INVALID_HANDLE;
int flag = 0;
- struct stat buf;
static struct internal {
const char *name;
int compare;
@@ -978,6 +1402,7 @@ IOBUF *iop;
{ "/dev/stdin", 10, specfdopen },
{ "/dev/stdout", 11, specfdopen },
{ "/dev/stderr", 11, specfdopen },
+ { "/inet/", 6, specfdopen },
{ "/dev/pid", 8, pidopen },
{ "/dev/ppid", 9, pidopen },
{ "/dev/pgrpid", 11, pidopen },
@@ -987,15 +1412,11 @@ IOBUF *iop;
flag = str2mode(mode);
- /*
- * FIXME: remove the stat call, and always process these files
- * internally.
- */
if (STREQ(name, "-"))
openfd = fileno(stdin);
else if (do_traditional)
goto strictopen;
- else if (STREQN(name, "/dev/", 5) && stat((char *) name, &buf) == -1) {
+ else if (STREQN(name, "/dev/", 5) || STREQN(name, "/inet/", 6)) {
int i;
for (i = 0; i < devcount; i++) {
@@ -1008,30 +1429,185 @@ IOBUF *iop;
} else if ((*table[i].fp)(iop, name, mode) == 0)
return iop;
else {
- warning("could not open %s, mode `%s'",
+ warning(_("could not open `%s', mode `%s'"),
name, mode);
return NULL;
}
}
}
+ /* not in table, fall through to regular code */
}
strictopen:
if (openfd == INVALID_HANDLE)
openfd = open(name, flag, 0666);
- if (openfd != INVALID_HANDLE && fstat(openfd, &buf) > 0)
- if (S_ISDIR(buf.st_mode))
- fatal("file `%s' is a directory", name);
+ if (openfd != INVALID_HANDLE) {
+ if (os_isdir(openfd))
+ fatal(_("file `%s' is a directory"), name);
+
+ os_close_on_exec(openfd, name, "file", "");
+ }
return iop_alloc(openfd, name, iop);
}
+/* two_way_open --- open a two way communications channel */
+
+static int
+two_way_open(char *str, struct redirect *rp)
+{
+#ifdef HAVE_SOCKETS
+ /* case 1: socket */
+ if (STREQN(str, "/inet/", 6)) {
+ int fd, newfd;
+
+ fd = devopen(str, "rw");
+ if (fd == INVALID_HANDLE)
+ return FALSE;
+ rp->fp = fdopen(fd, "w");
+ if (rp->fp == NULL) {
+ close(fd);
+ return FALSE;
+ }
+ newfd = dup(fd);
+ if (newfd < 0) {
+ fclose(rp->fp);
+ return FALSE;
+ }
+ os_close_on_exec(newfd, str, "socket", "to/from");
+ rp->iop = iop_alloc(newfd, str, NULL);
+ if (rp->iop == NULL) {
+ fclose(rp->fp);
+ return FALSE;
+ }
+ rp->flag |= RED_SOCKET;
+ return TRUE;
+ }
+#endif /* HAVE_SOCKETS */
+
+#ifdef HAVE_PORTALS
+ /* case 1.5: portal */
+ if (STREQN(str, "/p/", 3)) {
+ int fd, newfd;
+
+ fd = open(str, O_RDWR);
+ if (fd == INVALID_HANDLE)
+ return FALSE;
+ rp->fp = fdopen(fd, "w");
+ if (rp->fp == NULL) {
+ close(fd);
+ return FALSE;
+ }
+ newfd = dup(fd);
+ if (newfd < 0) {
+ fclose(rp->fp);
+ return FALSE;
+ }
+ os_close_on_exec(newfd, str, "portal", "to/from");
+ rp->iop = iop_alloc(newfd, str, NULL);
+ if (rp->iop == NULL) {
+ fclose(rp->fp);
+ return FALSE;
+ }
+ rp->flag |= RED_SOCKET;
+ return TRUE;
+ }
+#endif /* HAVE_PORTALS */
+
+#ifndef PIPES_SIMULATED /* real pipes */
+ /* case 2: two way pipe to a child process */
+ {
+ int ptoc[2], ctop[2];
+ int pid;
+ int save_errno;
+
+ if (pipe(ptoc) < 0)
+ return FALSE; /* errno set, diagnostic from caller */
+
+ if (pipe(ctop) < 0) {
+ save_errno = errno;
+ close(ptoc[0]);
+ close(ptoc[1]);
+ errno = save_errno;
+ return FALSE;
+ }
+
+ if ((pid = fork()) < 0) {
+ save_errno = errno;
+ close(ptoc[0]); close(ptoc[1]);
+ close(ctop[0]); close(ctop[1]);
+ errno = save_errno;
+ return FALSE;
+ }
+
+ if (pid == 0) { /* child */
+ if (close(1) == -1)
+ fatal(_("close of stdout in child failed (%s)"),
+ strerror(errno));
+ if (dup(ctop[1]) != 1)
+ fatal(_("moving pipe to stdout in child failed (dup: %s)"), strerror(errno));
+ if (close(0) == -1)
+ fatal(_("close of stdin in child failed (%s)"),
+ strerror(errno));
+ if (dup(ptoc[0]) != 0)
+ fatal(_("moving pipe to stdin in child failed (dup: %s)"), strerror(errno));
+ if ( close(ptoc[0]) == -1 || close(ptoc[1]) == -1
+ || close(ctop[0]) == -1 || close(ctop[1]) == -1)
+ fatal(_("close of pipe failed (%s)"), strerror(errno));
+ /* stderr does NOT get dup'ed onto child's stdout */
+ execl("/bin/sh", "sh", "-c", str, NULL);
+ _exit(127);
+ }
+
+ /* parent */
+ rp->pid = pid;
+ rp->iop = iop_alloc(ctop[0], str, NULL);
+ if (rp->iop == NULL) {
+ (void) close(ctop[0]);
+ (void) close(ctop[1]);
+ (void) close(ptoc[0]);
+ (void) close(ptoc[1]);
+ (void) kill(pid, SIGKILL); /* overkill? (pardon pun) */
+ return FALSE;
+ }
+ rp->fp = fdopen(ptoc[1], "w");
+ if (rp->fp == NULL) {
+ iop_close(rp->iop);
+ rp->iop = NULL;
+ (void) close(ctop[0]);
+ (void) close(ctop[1]);
+ (void) close(ptoc[0]);
+ (void) close(ptoc[1]);
+ (void) kill(pid, SIGKILL); /* overkill? (pardon pun) */
+ return FALSE;
+ }
+ if (fcntl(ctop[0], F_SETFD, 1) < 0) {
+ warning(_("pipe from `%s': could not set close-on-exec (fcntl: %s)"),
+ str, strerror(errno));;
+ }
+ if (fcntl(ptoc[1], F_SETFD, 1) < 0) {
+ warning(_("pipe to `%s': could not set close-on-exec (fcntl: %s)"),
+ str, strerror(errno));;
+ }
+ (void) close(ptoc[0]);
+ (void) close(ctop[1]);
+ return TRUE;
+ }
+
+#else /*PIPES_SIMULATED*/
+
+ fatal(_("`|&' not supported"));
+ /*NOTREACHED*/
+ return FALSE;
+
+#endif
+}
+
#ifndef PIPES_SIMULATED /* real pipes */
/* wait_any --- wait for a child process, close associated pipe */
static int
-wait_any(interesting)
-int interesting; /* pid of interest, if any */
+wait_any(int interesting) /* pid of interest, if any */
{
RETSIGTYPE (*hstat)(), (*istat)(), (*qstat)();
int pid;
@@ -1070,9 +1646,7 @@ int interesting; /* pid of interest, if any */
/* gawk_popen --- open an IOBUF on a child process */
static IOBUF *
-gawk_popen(cmd, rp)
-char *cmd;
-struct redirect *rp;
+gawk_popen(char *cmd, struct redirect *rp)
{
int p[2];
register int pid;
@@ -1085,23 +1659,24 @@ struct redirect *rp;
/*(void) wait_any(0);*/ /* wait for outstanding processes */
if (pipe(p) < 0)
- fatal("cannot open pipe \"%s\" (%s)", cmd, strerror(errno));
+ fatal(_("cannot open pipe `%s' (%s)"), cmd, strerror(errno));
if ((pid = fork()) == 0) {
if (close(1) == -1)
- fatal("close of stdout in child failed (%s)",
+ fatal(_("close of stdout in child failed (%s)"),
strerror(errno));
if (dup(p[1]) != 1)
- fatal("dup of pipe failed (%s)", strerror(errno));
+ fatal(_("moving pipe to stdout in child failed (dup: %s)"), strerror(errno));
if (close(p[0]) == -1 || close(p[1]) == -1)
- fatal("close of pipe failed (%s)", strerror(errno));
+ fatal(_("close of pipe failed (%s)"), strerror(errno));
execl("/bin/sh", "sh", "-c", cmd, NULL);
_exit(127);
}
if (pid == -1)
- fatal("cannot fork for \"%s\" (%s)", cmd, strerror(errno));
+ fatal(_("cannot create child process for `%s' (fork: %s)"), cmd, strerror(errno));
rp->pid = pid;
if (close(p[1]) == -1)
- fatal("close of pipe failed (%s)", strerror(errno));
+ fatal(_("close of pipe failed (%s)"), strerror(errno));
+ os_close_on_exec(p[0], cmd, "pipe", "from");
rp->iop = iop_alloc(p[0], cmd, NULL);
if (rp->iop == NULL)
(void) close(p[0]);
@@ -1111,18 +1686,18 @@ struct redirect *rp;
/* gawk_pclose --- close an open child pipe */
static int
-gawk_pclose(rp)
-struct redirect *rp;
+gawk_pclose(struct redirect *rp)
{
- (void) iop_close(rp->iop);
+ if (rp->iop != NULL)
+ (void) iop_close(rp->iop);
rp->iop = NULL;
/* process previously found, return stored status */
if (rp->pid == -1)
- return (rp->status >> 8) & 0xFF;
+ return (rp->status >> 8) + ((rp->status &0xFF) ? 128 + (rp->status & 0xF) : 0);
rp->status = wait_any(rp->pid);
rp->pid = -1;
- return (rp->status >> 8) & 0xFF;
+ return (rp->status >> 8) + ((rp->status &0xFF) ? 128 + (rp->status & 0xF) : 0);
}
#else /* PIPES_SIMULATED */
@@ -1132,19 +1707,22 @@ struct redirect *rp;
* except if popen() provides real pipes too
*/
-#if defined(VMS) || defined(OS2) || defined (MSDOS) || defined(WIN32)
+#if defined(VMS) || defined(OS2) || defined (MSDOS) || defined(WIN32) || defined(TANDEM)
/* gawk_popen --- open an IOBUF on a child process */
static IOBUF *
-gawk_popen(cmd, rp)
-char *cmd;
-struct redirect *rp;
+gawk_popen(char *cmd, struct redirect *rp)
{
FILE *current;
- if ((current = popen(cmd, "r")) == NULL)
+ os_restore_mode(fileno(stdin));
+ current = popen(cmd, binmode("r"));
+ if ((BINMODE & 1) != 0)
+ os_setbinmode(fileno(stdin), O_BINARY);
+ if (current == NULL)
return NULL;
+ os_close_on_exec(fileno(current), cmd, "pipe", "from");
rp->iop = iop_alloc(fileno(current), cmd, NULL);
if (rp->iop == NULL) {
(void) pclose(current);
@@ -1157,19 +1735,20 @@ struct redirect *rp;
/* gawk_pclose --- close an open child pipe */
static int
-gawk_pclose(rp)
-struct redirect *rp;
+gawk_pclose(struct redirect *rp)
{
int rval, aval, fd = rp->iop->fd;
- rp->iop->fd = dup(fd); /* kludge to allow close() + pclose() */
- rval = iop_close(rp->iop);
+ if (rp->iop != NULL) {
+ rp->iop->fd = dup(fd); /* kludge to allow close() + pclose() */
+ rval = iop_close(rp->iop);
+ }
rp->iop = NULL;
aval = pclose(rp->ifp);
rp->ifp = NULL;
return (rval < 0 ? rval : aval);
}
-#else /* not (VMS || OS2 || MSDOS) */
+#else /* not (VMS || OS2 || MSDOS || TANDEM) */
static struct pipeinfo {
char *command;
@@ -1179,9 +1758,7 @@ static struct pipeinfo {
/* gawk_popen --- open an IOBUF on a child process */
static IOBUF *
-gawk_popen(cmd, rp)
-char *cmd;
-struct redirect *rp;
+gawk_popen(char *cmd, struct redirect *rp)
{
extern char *strdup P((const char *));
int current;
@@ -1197,6 +1774,7 @@ struct redirect *rp;
return NULL;
pipes[current].name = name;
pipes[current].command = strdup(cmd);
+ os_close_on_exec(current, cmd, "pipe", "from");
rp->iop = iop_alloc(current, name, NULL);
if (rp->iop == NULL)
(void) close(current);
@@ -1206,13 +1784,13 @@ struct redirect *rp;
/* gawk_pclose --- close an open child pipe */
static int
-gawk_pclose(rp)
-struct redirect *rp;
+gawk_pclose(struct redirect *rp)
{
int cur = rp->iop->fd;
- int rval;
+ int rval = 0;
- rval = iop_close(rp->iop);
+ if (rp->iop != NULL)
+ rval = iop_close(rp->iop);
rp->iop = NULL;
/* check for an open file */
@@ -1224,15 +1802,14 @@ struct redirect *rp;
free(pipes[cur].command);
return rval;
}
-#endif /* not (VMS || OS2 || MSDOS) */
+#endif /* not (VMS || OS2 || MSDOS || TANDEM) */
#endif /* PIPES_SIMULATED */
/* do_getline --- read in a line, into var and with redirection, as needed */
NODE *
-do_getline(tree)
-NODE *tree;
+do_getline(NODE *tree)
{
struct redirect *rp = NULL;
IOBUF *iop;
@@ -1250,13 +1827,9 @@ NODE *tree;
rp = redirect(tree->rnode, &redir_error);
if (rp == NULL && redir_error) { /* failed redirect */
- if (! do_traditional) {
- s = strerror(redir_error);
+ if (! do_traditional)
+ update_ERRNO();
- unref(ERRNO_node->var_value);
- ERRNO_node->var_value =
- make_string(s, strlen(s));
- }
return tmp_number((AWKNUM) -1.0);
}
iop = rp->iop;
@@ -1264,14 +1837,11 @@ NODE *tree;
return tmp_number((AWKNUM) 0.0);
}
errcode = 0;
- cnt = (*(iop->getrec))(&s, iop, RS->stptr[0], RS_regexp, &errcode);
+ cnt = get_a_record(&s, iop, RS->stptr[0], RS_regexp, &errcode);
if (errcode != 0) {
- if (! do_traditional) {
- s = strerror(errcode);
+ if (! do_traditional)
+ update_ERRNO();
- unref(ERRNO_node->var_value);
- ERRNO_node->var_value = make_string(s, strlen(s));
- }
return tmp_number((AWKNUM) -1.0);
}
if (cnt == EOF) {
@@ -1281,7 +1851,7 @@ NODE *tree;
* reading from a pipe; otherwise
* gawk_pclose will not be called.
*/
- if ((rp->flag & RED_PIPE) == 0) {
+ if ((rp->flag & (RED_PIPE|RED_TWOWAY)) == 0) {
(void) iop_close(iop);
rp->iop = NULL;
}
@@ -1300,7 +1870,7 @@ NODE *tree;
Func_ptr after_assign = NULL;
NODE **lhs;
- lhs = get_lhs(tree->lnode, &after_assign);
+ lhs = get_lhs(tree->lnode, &after_assign, FALSE);
unref(*lhs);
*lhs = make_string(s, cnt);
(*lhs)->flags |= MAYBE_NUM;
@@ -1315,8 +1885,7 @@ NODE *tree;
/* pathopen --- pathopen with default file extension handling */
int
-pathopen(file)
-const char *file;
+pathopen(const char *file)
{
int fd = do_pathopen(file);
@@ -1349,8 +1918,7 @@ const char *file;
/* do_pathopen --- search $AWKPATH for source file */
static int
-do_pathopen(file)
-const char *file;
+do_pathopen(const char *file)
{
static const char *savepath = NULL;
static int first = TRUE;
@@ -1410,8 +1978,7 @@ const char *file;
int bufsize = 8192;
void
-fatal(s)
-char *s;
+fatal(char *s)
{
printf("%s\n", s);
exit(1);
@@ -1421,10 +1988,7 @@ char *s;
/* iop_alloc --- allocate an IOBUF structure for an open fd */
static IOBUF *
-iop_alloc(fd, name, iop)
-int fd;
-const char *name;
-IOBUF *iop;
+iop_alloc(int fd, const char *name, IOBUF *iop)
{
struct stat sbuf;
@@ -1437,63 +2001,16 @@ IOBUF *iop;
iop->flag |= IOP_IS_TTY;
iop->size = optimal_bufsize(fd, & sbuf);
if (do_lint && S_ISREG(sbuf.st_mode) && sbuf.st_size == 0)
- warning("data file `%s' is empty", name);
+ lintwarn(_("data file `%s' is empty"), name);
iop->secsiz = -2;
errno = 0;
iop->fd = fd;
iop->off = iop->buf = NULL;
iop->cnt = 0;
iop->name = name;
- iop->getrec = get_a_record;
-#ifdef HAVE_MMAP
- /* Use mmap only for regular files with positive sizes.
- The size must fit into size_t, so that mmap works correctly.
- Also, it must fit into int, so that iop->cnt won't overflow. */
- if (S_ISREG(sbuf.st_mode) && sbuf.st_size > 0
- && sbuf.st_size == (size_t) sbuf.st_size
- && sbuf.st_size == (int) sbuf.st_size) {
- register char *cp;
-
- iop->buf = iop->off = mmap((caddr_t) 0, sbuf.st_size,
- PROT_READ|PROT_WRITE, MAP_PRIVATE,
- fd, 0L);
- /* cast is for buggy compilers (e.g. DEC OSF/1) */
- if (iop->buf == (caddr_t)MAP_FAILED) {
- iop->buf = iop->off = NULL;
- goto out;
- }
-
- iop->flag |= IOP_MMAPPED;
- iop->size = sbuf.st_size;
- iop->secsiz = 0;
- iop->end = iop->buf + iop->size;
- iop->cnt = sbuf.st_size;
- iop->getrec = mmap_get_record;
- (void) close(fd);
- iop->fd = INVALID_HANDLE;
-
-#if defined(HAVE_MADVISE) && defined(MADV_SEQUENTIAL)
- madvise(iop->buf, iop->size, MADV_SEQUENTIAL);
-#endif
- /*
- * The following is a really gross hack.
- * We want to ensure that we have a copy of the input
- * data that won't go away, on the off chance that someone
- * will truncate the data file we've just mmap'ed.
- * So, we go through and touch each page, forcing the
- * system to give us a private copy. A page size of 512
- * guarantees this will work, even on the least common
- * denominator system (like, oh say, a VAX).
- */
- for (cp = iop->buf; cp < iop->end; cp += 512)
- *cp = *cp;
- }
-out:
-#endif /* HAVE_MMAP */
return iop;
}
-/* These macros used by both record reading routines */
#define set_RT_to_null() \
(void)(! do_traditional && (unref(RT_node->var_value), \
RT_node->var_value = Nnull_string))
@@ -1522,12 +2039,11 @@ out:
*/
static int
-get_a_record(out, iop, grRS, RSre, errcode)
-char **out; /* pointer to pointer to data */
-IOBUF *iop; /* input IOP */
-register int grRS; /* first char in RS->stptr */
-Regexp *RSre; /* regexp for RS */
-int *errcode; /* pointer to error variable */
+get_a_record(char **out, /* pointer to pointer to data */
+ IOBUF *iop, /* input IOP */
+ register int grRS, /* first char in RS->stptr */
+ Regexp *RSre, /* regexp for RS */
+ int *errcode) /* pointer to error variable */
{
register char *bp = iop->off;
char *bufend;
@@ -1538,11 +2054,21 @@ int *errcode; /* pointer to error variable */
int continuing = FALSE, continued = FALSE; /* used for re matching */
int onecase;
+#ifdef TANDEM
+ char *mend;
+#endif
+
+#ifdef TANDEM
+#define not_past_end() (bp < mend)
+#else
+#define not_past_end() (1)
+#endif
+
/* first time through */
if (RS_null_re == NULL) {
RS_null_re = make_regexp("\n\n+", 3, TRUE, TRUE);
if (RS_null_re == NULL)
- fatal("internal error: file `%s', line %d\n",
+ fatal(_("internal error: file `%s', line %d\n"),
__FILE__, __LINE__);
}
@@ -1552,14 +2078,21 @@ int *errcode; /* pointer to error variable */
return EOF;
}
+#ifdef TANDEM
+ if (MRL)
+ mend = start + MRL;
+ else
+ mend = (char *) LONG_MAX;
+#endif
+
if (RS_is_null) /* special case: RS == "" */
rs = '\n';
else
rs = (char) grRS;
- onecase = (IGNORECASE && isalpha(rs));
+ onecase = (IGNORECASE && ISALPHA(rs));
if (onecase)
- rs = casetable[rs];
+ rs = casetable[(unsigned char) rs];
/* set up sentinel */
if (iop->buf) {
@@ -1609,6 +2142,10 @@ int *errcode; /* pointer to error variable */
}
bp = iop->end = iop->off = iop->buf + iop->secsiz;
start = bp - len;
+#ifdef TANDEM
+ if (MRL)
+ mend = start + MRL;
+#endif
if (oldbuf != NULL) {
free(oldbuf);
oldbuf = NULL;
@@ -1633,7 +2170,7 @@ int *errcode; /* pointer to error variable */
iop->cnt = EOF;
break;
} else
- fatal("error reading input file `%s': %s",
+ fatal(_("error reading input file `%s': %s"),
iop->name, strerror(errno));
} else if (iop->cnt == 0) {
/*
@@ -1685,6 +2222,14 @@ int *errcode; /* pointer to error variable */
* that until we try to add more to the buffer. Thus, we
* set a flag to indicate, that if eof really does happen,
* don't break early.
+ *
+ * Still more subtlety. Suppose RS is a multi-character regexp,
+ * but it doesn't have the metacharacters that would let it
+ * match an arbitrary number of characters. So it's an exact
+ * string match. We need to check for this, in the case where
+ * there is an exact match at the end, and NOT read more
+ * data. Otherwise, this might bite us for an interactive
+ * networking program that uses CR-LF as the line terminator.
*/
continuing = FALSE;
if (rsre != NULL) {
@@ -1713,20 +2258,34 @@ int *errcode; /* pointer to error variable */
/* case 3, regex match at exact end */
if (start + REEND(rsre, start) >= iop->end) {
if (iop->cnt != EOF) {
- bp = iop->end;
- continuing = continued = TRUE;
- continue;
+ /*
+ * Only do the test if not at EOF
+ */
+ int isstring;
+
+ isstring = reisstring(RS->stptr,
+ RS->stlen, rsre, start);
+ if (isstring == FALSE) {
+ bp = iop->end;
+ continuing = continued = TRUE;
+ continue;
+ }
}
}
/* got a match! */
/*
* Leading newlines at the beginning of the file
* should be ignored. Whew!
- *
- * Is this code ever executed?
*/
- if (RS_is_null && RESTART(rsre, start) == 0) {
- start += REEND(rsre, start);
+ if (RS_is_null && *start == '\n') {
+ /*
+ * have to catch the case of a
+ * single newline at the front of
+ * the record, which the regex
+ * doesn't. gurr.
+ */
+ while (*start == '\n' && start < iop->end)
+ start++;
goto again;
}
bp = start + RESTART(rsre, start);
@@ -1737,10 +2296,10 @@ int *errcode; /* pointer to error variable */
}
/* search for RS, #2, RS = <single char> */
if (onecase) {
- while (casetable[(int) *bp++] != rs)
+ while (casetable[(unsigned char) *bp++] != rs && not_past_end())
continue;
} else {
- while (*bp++ != rs)
+ while (*bp++ != rs && not_past_end())
continue;
}
set_RT(bp - 1, 1);
@@ -1762,15 +2321,12 @@ int *errcode; /* pointer to error variable */
}
if (do_traditional || rsre == NULL) {
- char *bstart;
-
- bstart = iop->off = bp;
+ iop->off = bp;
bp--;
- if (onecase ? casetable[(int) *bp] != rs : *bp != rs) {
+ if (onecase ? casetable[(unsigned char) *bp] != rs : *bp != rs)
bp++;
- bstart = bp;
- }
- *bp = '\0';
+ if (MRL == 0)
+ *bp = '\0';
} else if (RS_is_null && iop->cnt == EOF) {
/*
* special case, delete trailing newlines,
@@ -1787,9 +2343,7 @@ int *errcode; /* pointer to error variable */
#ifdef TEST
int
-main(argc, argv)
-int argc;
-char *argv[];
+main(int argc, char *argv[])
{
IOBUF *iop;
char *out;
@@ -1810,145 +2364,6 @@ char *argv[];
}
#endif
-#ifdef HAVE_MMAP
-/* mmap_get_record --- pull a record out of a memory-mapped file */
-
-static int
-mmap_get_record(out, iop, grRS, RSre, errcode)
-char **out; /* pointer to pointer to data */
-IOBUF *iop; /* input IOP */
-register int grRS; /* first char in RS->stptr */
-Regexp *RSre; /* regexp for RS */
-int *errcode; /* pointer to error variable */
-{
- register char *bp = iop->off;
- char *start = iop->off; /* beginning of record */
- int rs;
- static Regexp *RS_null_re = NULL;
- Regexp *rsre = NULL;
- int onecase;
- register char *end = iop->end;
- int cnt;
-
- /* first time through */
- if (RS_null_re == NULL) {
- RS_null_re = make_regexp("\n\n+", 3, TRUE, TRUE);
- if (RS_null_re == NULL)
- fatal("internal error: file `%s', line %d\n",
- __FILE__, __LINE__);
- }
-
- if (iop->off >= iop->end) { /* previous record was last */
- *out = NULL;
- set_RT_to_null();
- iop->cnt = EOF; /* tested by higher level code */
- return EOF;
- }
-
- if (RS_is_null) /* special case: RS == "" */
- rs = '\n';
- else
- rs = (char) grRS;
-
- onecase = (IGNORECASE && isalpha(rs));
- if (onecase)
- rs = casetable[rs];
-
- /* if RS = "", skip leading newlines at the front of the file */
- if (RS_is_null && iop->off == iop->buf) {
- for (bp = iop->off; *bp == '\n'; bp++)
- continue;
-
- if (bp != iop->off)
- iop->off = start = bp;
- }
-
- /*
- * Regexp based searching. Either RS = "" or RS = <regex>
- * See comments in get_a_record.
- */
- if (! do_traditional && RSre != NULL) /* regexp */
- rsre = RSre;
- else if (RS_is_null) /* RS = "" */
- rsre = RS_null_re;
- else
- rsre = NULL;
-
- /*
- * Look for regexp match of RS. Non-match conditions are:
- * 1. No match at all
- * 2. Match of a null string
- * 3. Match ends at exact end of buffer
- *
- * #1 means that the record ends the file
- * and there is no text that actually matched RS.
- *
- * #2: is probably like #1.
- *
- * #3 is simple; since we have the whole file mapped, it's
- * the last record in the file.
- */
- if (rsre != NULL) {
- if (research(rsre, start, 0, iop->end - start, TRUE) == -1
- || RESTART(rsre, start) == REEND(rsre, start)) {
- /* no matching text, we have the record */
- *out = start;
- iop->off = iop->end; /* all done with the record */
- set_RT_to_null();
- /* special case, don't allow trailing newlines */
- if (RS_is_null && *(iop->end - 1) == '\n')
- return iop->end - start - 1;
- else
- return iop->end - start;
-
- }
- /* have a match */
- *out = start;
- bp = start + RESTART(rsre, start);
- set_RT(bp, REEND(rsre, start) - RESTART(rsre, start));
- *bp = '\0';
- iop->off = start + REEND(rsre, start);
- return bp - start;
- }
-
- /*
- * RS = "?", i.e., one character based searching.
- *
- * Alas, we can't just plug the sentinel character in at
- * the end of the mmapp'ed file ( *(iop->end) = rs; ). This
- * works if we're lucky enough to have a file that does not
- * take up all of its last disk block. But if we end up with
- * file whose size is an even multiple of the disk block size,
- * assigning past the end of it delivers a SIGBUS. So, we have to
- * add the extra test in the while loop at the front that looks
- * for going past the end of the mapped object. Sigh.
- */
- /* search for RS, #2, RS = <single char> */
- if (onecase) {
- while (bp < end && casetable[*bp++] != rs)
- continue;
- } else {
- while (bp < end && *bp++ != rs)
- continue;
- }
- cnt = (bp - start) - 1;
- if (bp >= iop->end) {
- /* at end, may have actually seen rs, or may not */
- if (*(bp-1) == rs)
- set_RT(bp - 1, 1); /* real RS seen */
- else {
- cnt++;
- set_RT_to_null();
- }
- } else
- set_RT(bp - 1, 1);
-
- iop->off = bp;
- *out = start;
- return cnt;
-}
-#endif /* HAVE_MMAP */
-
/* set_RS --- update things as appropriate when RS is set */
void
@@ -1974,7 +2389,7 @@ set_RS()
RS_regexp = make_regexp(RS->stptr, RS->stlen, IGNORECASE, TRUE);
if (do_lint && ! warned) {
- warning("multicharacter value of `RS' is not portable");
+ lintwarn(_("multicharacter value of `RS' is a gawk extension"));
warned = TRUE;
}
}
diff --git a/m4/arch.m4 b/m4/arch.m4
new file mode 100644
index 00000000..e837ccf1
--- /dev/null
+++ b/m4/arch.m4
@@ -0,0 +1,59 @@
+dnl
+dnl arch.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 1995, 1996, 1998, 1999, 2000 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+dnl
+
+dnl Check for AIX and add _XOPEN_SOURCE_EXTENDED
+AC_DEFUN(GAWK_AC_AIX_TWEAK, [
+AC_MSG_CHECKING([for AIX compilation hacks])
+AC_CACHE_VAL(gawk_cv_aix_hack, [
+if test -d /lpp/bos
+then
+ CFLAGS="$CFLAGS -D_XOPEN_SOURCE_EXTENDED=1"
+ gawk_cv_aix_hack=yes
+else
+ gawk_cv_aix_hack=no
+fi
+])dnl
+AC_MSG_RESULT([${gawk_cv_aix_hack}])
+])dnl
+
+dnl Check for Alpha Linux systems
+AC_DEFUN(GAWK_AC_LINUX_ALPHA, [
+AC_MSG_CHECKING([for Linux/Alpha compilation hacks])
+AC_CACHE_VAL(gawk_cv_linux_alpha_hack, [
+if test "Linux" = "`uname`" && test "alpha" = "`uname -m`"
+then
+ # this isn't necessarily always true,
+ # the vendor's compiler is also often found
+ if test "$GCC" = yes
+ then
+ CFLAGS="$CFLAGS -mieee"
+ gawk_cv_linux_alpha_hack=yes
+ else
+ gawk_cv_linux_alpha_hack=no
+ fi
+else
+ gawk_cv_linux_alpha_hack=no
+fi
+])dnl
+AC_MSG_RESULT([${gawk_cv_linux_alpha_hack}])
+])dnl
diff --git a/m4/gettext.m4 b/m4/gettext.m4
new file mode 100644
index 00000000..8eeb3e34
--- /dev/null
+++ b/m4/gettext.m4
@@ -0,0 +1,322 @@
+# Macro to add for using GNU gettext.
+# Ulrich Drepper <drepper@cygnus.com>, 1995.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 107
+
+AC_PREREQ(2.13) dnl Minimum Autoconf version required.
+
+AC_DEFUN(AM_WITH_NLS,
+ [AC_MSG_CHECKING([whether NLS is requested])
+ dnl Default is enabled NLS
+ AC_ARG_ENABLE(nls,
+ [ --disable-nls do not use Native Language Support],
+ USE_NLS=$enableval, USE_NLS=yes)
+ AC_MSG_RESULT($USE_NLS)
+ AC_SUBST(USE_NLS)
+
+ USE_INCLUDED_LIBINTL=no
+
+ dnl If we use NLS figure out what method
+ if test "$USE_NLS" = "yes"; then
+ AC_DEFINE(ENABLE_NLS, 1, [Define to 1 if NLS is requested.])
+ AC_MSG_CHECKING([whether included gettext is requested])
+ AC_ARG_WITH(included-gettext,
+ [ --with-included-gettext use the GNU gettext library included here],
+ nls_cv_force_use_gnu_gettext=$withval,
+ nls_cv_force_use_gnu_gettext=no)
+ AC_MSG_RESULT($nls_cv_force_use_gnu_gettext)
+
+ nls_cv_use_gnu_gettext="$nls_cv_force_use_gnu_gettext"
+ if test "$nls_cv_force_use_gnu_gettext" != "yes"; then
+ dnl User does not insist on using GNU NLS library. Figure out what
+ dnl to use. If gettext or catgets are available (in this order) we
+ dnl use this. Else we have to fall back to GNU NLS library.
+ dnl catgets is only used if permitted by option --with-catgets.
+ nls_cv_header_intl=
+ nls_cv_header_libgt=
+ CATOBJEXT=NONE
+
+ AC_CHECK_HEADER(libintl.h,
+ [AC_CACHE_CHECK([for gettext in libc], gt_cv_func_gettext_libc,
+ [AC_TRY_LINK([#include <libintl.h>], [return (int) gettext ("")],
+ gt_cv_func_gettext_libc=yes, gt_cv_func_gettext_libc=no)])
+
+ if test "$gt_cv_func_gettext_libc" != "yes"; then
+ AC_CHECK_LIB(intl, bindtextdomain,
+ [AC_CHECK_LIB(intl, gettext)])
+ fi
+
+ if test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$ac_cv_lib_intl_gettext" = "yes"; then
+ AC_DEFINE(HAVE_GETTEXT, 1,
+ [Define to 1 if you have gettext and don't want to use GNU gettext.])
+ AM_PATH_PROG_WITH_TEST(MSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], no)dnl
+ if test "$MSGFMT" != "no"; then
+ AC_CHECK_FUNCS(dcgettext)
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, $MSGFMT)
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ AC_TRY_LINK(, [extern int _nl_msg_cat_cntr;
+ return _nl_msg_cat_cntr],
+ [CATOBJEXT=.gmo
+ DATADIRNAME=share],
+ [CATOBJEXT=.mo
+ DATADIRNAME=lib])
+ INSTOBJEXT=.mo
+ fi
+ fi
+ ])
+
+ if test "$CATOBJEXT" = "NONE"; then
+ AC_MSG_CHECKING([whether catgets can be used])
+ AC_ARG_WITH(catgets,
+ [ --with-catgets use catgets functions if available],
+ nls_cv_use_catgets=$withval, nls_cv_use_catgets=no)
+ AC_MSG_RESULT($nls_cv_use_catgets)
+
+ if test "$nls_cv_use_catgets" = "yes"; then
+ dnl No gettext in C library. Try catgets next.
+ AC_CHECK_LIB(i, main)
+ AC_CHECK_FUNC(catgets,
+ [AC_DEFINE(HAVE_CATGETS, 1,
+ [Define as 1 if you have catgets and don't want to use GNU gettext.])
+ INTLOBJS="\$(CATOBJS)"
+ AC_PATH_PROG(GENCAT, gencat, no)dnl
+ if test "$GENCAT" != "no"; then
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, no)
+ if test "$GMSGFMT" = "no"; then
+ AM_PATH_PROG_WITH_TEST(GMSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], no)
+ fi
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.cat
+ INSTOBJEXT=.cat
+ DATADIRNAME=lib
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi])
+ fi
+ fi
+
+ if (test "$gt_cv_func_gettext_libc" = "yes" \
+ || test "$gt_cv_func_gettext_libintl" = "yes") \
+ && test "$ac_cv_func_dcgettext" = no; then
+ dnl gettext is there but dcgettext is not
+ nls_cv_use_gnu_gettext=yes
+ elif test "$CATOBJEXT" = "NONE"; then
+ dnl Neither gettext nor catgets in included in the C library.
+ dnl Fall back on GNU gettext library.
+ nls_cv_use_gnu_gettext=yes
+ fi
+ fi
+
+ if test "$nls_cv_use_gnu_gettext" = "yes"; then
+ dnl Mark actions used to generate GNU NLS library.
+ INTLOBJS="\$(GETTOBJS)"
+ AM_PATH_PROG_WITH_TEST(MSGFMT, msgfmt,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep 'dv '`"], msgfmt)
+ AC_PATH_PROG(GMSGFMT, gmsgfmt, $MSGFMT)
+ AM_PATH_PROG_WITH_TEST(XGETTEXT, xgettext,
+ [test -z "`$ac_dir/$ac_word -h 2>&1 | grep '(HELP)'`"], :)
+ AC_SUBST(MSGFMT)
+ USE_INCLUDED_LIBINTL=yes
+ CATOBJEXT=.gmo
+ INSTOBJEXT=.mo
+ DATADIRNAME=share
+ INTLDEPS='$(top_builddir)/intl/libintl.a'
+ INTLLIBS=$INTLDEPS
+ LIBS=`echo $LIBS | sed -e 's/-lintl//'`
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+
+ dnl Test whether we really found GNU xgettext.
+ if test "$XGETTEXT" != ":"; then
+ dnl If it is no GNU xgettext we define it as : so that the
+ dnl Makefiles still can work.
+ if $XGETTEXT --omit-header /dev/null 2> /dev/null; then
+ : ;
+ else
+ AC_MSG_RESULT(
+ [found xgettext program is not GNU xgettext; ignore it])
+ XGETTEXT=":"
+ fi
+ fi
+
+ # We need to process the po/ directory.
+ POSUB=po
+ else
+ DATADIRNAME=share
+ nls_cv_header_intl=intl/libintl.h
+ nls_cv_header_libgt=intl/libgettext.h
+ fi
+ if test -z "$nls_cv_header_intl"; then
+ # Clean out junk possibly left behind by a previous configuration.
+ rm -f intl/libintl.h
+ fi
+ AC_LINK_FILES($nls_cv_header_libgt, $nls_cv_header_intl)
+ AC_OUTPUT_COMMANDS(
+ [case "$CONFIG_FILES" in *po/Makefile.in*)
+ sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile
+ esac])
+
+
+ # If this is used in GNU gettext we have to set USE_NLS to `yes'
+ # because some of the sources are only built for this goal.
+ if test "$PACKAGE" = gettext; then
+ USE_NLS=yes
+ USE_INCLUDED_LIBINTL=yes
+ fi
+
+ dnl These rules are solely for the distribution goal. While doing this
+ dnl we only have to keep exactly one list of the available catalogs
+ dnl in configure.in.
+ for lang in $ALL_LINGUAS; do
+ GMOFILES="$GMOFILES $lang.gmo"
+ POFILES="$POFILES $lang.po"
+ done
+
+ dnl Make all variables we use known to autoconf.
+ AC_SUBST(USE_INCLUDED_LIBINTL)
+ AC_SUBST(CATALOGS)
+ AC_SUBST(CATOBJEXT)
+ AC_SUBST(DATADIRNAME)
+ AC_SUBST(GMOFILES)
+ AC_SUBST(INSTOBJEXT)
+ AC_SUBST(INTLDEPS)
+ AC_SUBST(INTLLIBS)
+ AC_SUBST(INTLOBJS)
+ AC_SUBST(POFILES)
+ AC_SUBST(POSUB)
+ ])
+
+AC_DEFUN(AM_GNU_GETTEXT,
+ [AC_REQUIRE([AC_PROG_MAKE_SET])dnl
+ AC_REQUIRE([AC_PROG_CC])dnl
+ AC_REQUIRE([AC_PROG_RANLIB])dnl
+ AC_REQUIRE([AC_ISC_POSIX])dnl
+ AC_REQUIRE([AC_HEADER_STDC])dnl
+ AC_REQUIRE([AC_C_CONST])dnl
+ AC_REQUIRE([AC_C_INLINE])dnl
+ AC_REQUIRE([AC_TYPE_OFF_T])dnl
+ AC_REQUIRE([AC_TYPE_SIZE_T])dnl
+ AC_REQUIRE([AC_FUNC_ALLOCA])dnl
+ AC_REQUIRE([AC_FUNC_MMAP])dnl
+
+ AC_CHECK_HEADERS([argz.h limits.h locale.h nl_types.h malloc.h string.h \
+unistd.h sys/param.h])
+ AC_CHECK_FUNCS([getcwd munmap putenv setenv setlocale strchr strcasecmp \
+strdup __argz_count __argz_stringify __argz_next])
+
+ if test "${ac_cv_func_stpcpy+set}" != "set"; then
+ AC_CHECK_FUNCS(stpcpy)
+ fi
+ if test "${ac_cv_func_stpcpy}" = "yes"; then
+ AC_DEFINE(HAVE_STPCPY, 1, [Define to 1 if you have the stpcpy function.])
+ fi
+
+ AM_LC_MESSAGES
+ AM_WITH_NLS
+
+ if test "x$CATOBJEXT" != "x"; then
+ if test "x$ALL_LINGUAS" = "x"; then
+ LINGUAS=
+ else
+ AC_MSG_CHECKING(for catalogs to be installed)
+ NEW_LINGUAS=
+ for lang in ${LINGUAS=$ALL_LINGUAS}; do
+ case "$ALL_LINGUAS" in
+ *$lang*) NEW_LINGUAS="$NEW_LINGUAS $lang" ;;
+ esac
+ done
+ LINGUAS=$NEW_LINGUAS
+ AC_MSG_RESULT($LINGUAS)
+ fi
+
+ dnl Construct list of names of catalog files to be constructed.
+ if test -n "$LINGUAS"; then
+ for lang in $LINGUAS; do CATALOGS="$CATALOGS $lang$CATOBJEXT"; done
+ fi
+ fi
+
+ dnl The reference to <locale.h> in the installed <libintl.h> file
+ dnl must be resolved because we cannot expect the users of this
+ dnl to define HAVE_LOCALE_H.
+ if test $ac_cv_header_locale_h = yes; then
+ INCLUDE_LOCALE_H="#include <locale.h>"
+ else
+ INCLUDE_LOCALE_H="\
+/* The system does not provide the header <locale.h>. Take care yourself. */"
+ fi
+ AC_SUBST(INCLUDE_LOCALE_H)
+
+ dnl Determine which catalog format we have (if any is needed)
+ dnl For now we know about two different formats:
+ dnl Linux libc-5 and the normal X/Open format
+ test -d intl || mkdir intl
+ if test "$CATOBJEXT" = ".cat"; then
+ AC_CHECK_HEADER(linux/version.h, msgformat=linux, msgformat=xopen)
+
+ dnl Transform the SED scripts while copying because some dumb SEDs
+ dnl cannot handle comments.
+ sed -e '/^#/d' $srcdir/intl/$msgformat-msg.sed > intl/po2msg.sed
+ fi
+ dnl po2tbl.sed is always needed.
+ sed -e '/^#.*[^\\]$/d' -e '/^#$/d' \
+ $srcdir/intl/po2tbl.sed.in > intl/po2tbl.sed
+
+ dnl In the intl/Makefile.in we have a special dependency which makes
+ dnl only sense for gettext. We comment this out for non-gettext
+ dnl packages.
+ if test "$PACKAGE" = "gettext"; then
+ GT_NO="#NO#"
+ GT_YES=
+ else
+ GT_NO=
+ GT_YES="#YES#"
+ fi
+ AC_SUBST(GT_NO)
+ AC_SUBST(GT_YES)
+
+ dnl If the AC_CONFIG_AUX_DIR macro for autoconf is used we possibly
+ dnl find the mkinstalldirs script in another subdir but ($top_srcdir).
+ dnl Try to locate is.
+ MKINSTALLDIRS=
+ if test -n "$ac_aux_dir"; then
+ MKINSTALLDIRS="$ac_aux_dir/mkinstalldirs"
+ fi
+ if test -z "$MKINSTALLDIRS"; then
+ MKINSTALLDIRS="\$(top_srcdir)/mkinstalldirs"
+ fi
+ AC_SUBST(MKINSTALLDIRS)
+
+ dnl *** For now the libtool support in intl/Makefile is not for real.
+ l=
+ AC_SUBST(l)
+
+ dnl Generate list of files to be processed by xgettext which will
+ dnl be included in po/Makefile.
+ test -d po || mkdir po
+ case "$srcdir" in
+ .)
+ posrcprefix="../" ;;
+ /* | [[A-Za-z]]:*)
+ posrcprefix="$srcdir/" ;;
+ *)
+ posrcprefix="../$srcdir/" ;;
+ esac
+ rm -f po/POTFILES
+ sed -e "/^#/d" -e "/^\$/d" -e "s,.*, $posrcprefix& \\\\," -e "\$s/\(.*\) \\\\/\1/" \
+ < $srcdir/po/POTFILES.in > po/POTFILES
+ ])
diff --git a/m4/jm-mktime.m4 b/m4/jm-mktime.m4
new file mode 100644
index 00000000..be4191f4
--- /dev/null
+++ b/m4/jm-mktime.m4
@@ -0,0 +1,178 @@
+#serial 7
+
+dnl From Jim Meyering.
+dnl A wrapper around AC_FUNC_MKTIME.
+
+AC_DEFUN(jm_FUNC_MKTIME,
+[AC_REQUIRE([AC_FUNC_MKTIME])dnl
+
+ dnl mktime.c uses localtime_r if it exists. Check for it.
+ AC_CHECK_FUNCS(localtime_r)
+
+ if test $ac_cv_func_working_mktime = no; then
+ AC_DEFINE_UNQUOTED(mktime, rpl_mktime,
+ [Define to rpl_mktime if the replacement function should be used.])
+ fi
+])
+
+# AC_FUNC_MKTIME
+# --------------
+# Stolen from CVS Autoconf. Should be removed once you use Autoconf 2.15.
+AC_DEFUN(AC_FUNC_MKTIME,
+[AC_REQUIRE([AC_HEADER_TIME])dnl
+AC_CHECK_HEADERS(sys/time.h unistd.h)
+AC_CHECK_FUNCS(alarm)
+AC_CACHE_CHECK([for working mktime], ac_cv_func_working_mktime,
+[AC_TRY_RUN(
+[/* Test program from Paul Eggert (eggert@twinsun.com)
+ and Tony Leneis (tony@plaza.ds.adp.com). */
+#if TIME_WITH_SYS_TIME
+# include <sys/time.h>
+# include <time.h>
+#else
+# if HAVE_SYS_TIME_H
+# include <sys/time.h>
+# else
+# include <time.h>
+# endif
+#endif
+
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+
+#if !HAVE_ALARM
+# define alarm(X) /* empty */
+#endif
+
+/* Work around redefinition to rpl_putenv by other config tests. */
+#undef putenv
+
+static time_t time_t_max;
+
+/* Values we'll use to set the TZ environment variable. */
+static const char *const tz_strings[] = {
+ (const char *) 0, "TZ=GMT0", "TZ=JST-9",
+ "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
+};
+#define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
+
+/* Fail if mktime fails to convert a date in the spring-forward gap.
+ Based on a problem report from Andreas Jaeger. */
+static void
+spring_forward_gap ()
+{
+ /* glibc (up to about 1998-10-07) failed this test) */
+ struct tm tm;
+
+ /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
+ instead of "TZ=America/Vancouver" in order to detect the bug even
+ on systems that don't support the Olson extension, or don't have the
+ full zoneinfo tables installed. */
+ putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
+
+ tm.tm_year = 98;
+ tm.tm_mon = 3;
+ tm.tm_mday = 5;
+ tm.tm_hour = 2;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ if (mktime (&tm) == (time_t)-1)
+ exit (1);
+}
+
+static void
+mktime_test (now)
+ time_t now;
+{
+ struct tm *lt;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+ now = time_t_max - now;
+ if ((lt = localtime (&now)) && mktime (lt) != now)
+ exit (1);
+}
+
+static void
+irix_6_4_bug ()
+{
+ /* Based on code from Ariel Faigon. */
+ struct tm tm;
+ tm.tm_year = 96;
+ tm.tm_mon = 3;
+ tm.tm_mday = 0;
+ tm.tm_hour = 0;
+ tm.tm_min = 0;
+ tm.tm_sec = 0;
+ tm.tm_isdst = -1;
+ mktime (&tm);
+ if (tm.tm_mon != 2 || tm.tm_mday != 31)
+ exit (1);
+}
+
+static void
+bigtime_test (j)
+ int j;
+{
+ struct tm tm;
+ time_t now;
+ tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j;
+ now = mktime (&tm);
+ if (now != (time_t) -1)
+ {
+ struct tm *lt = localtime (&now);
+ if (! (lt
+ && lt->tm_year == tm.tm_year
+ && lt->tm_mon == tm.tm_mon
+ && lt->tm_mday == tm.tm_mday
+ && lt->tm_hour == tm.tm_hour
+ && lt->tm_min == tm.tm_min
+ && lt->tm_sec == tm.tm_sec
+ && lt->tm_yday == tm.tm_yday
+ && lt->tm_wday == tm.tm_wday
+ && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst)
+ == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst))))
+ exit (1);
+ }
+}
+
+int
+main ()
+{
+ time_t t, delta;
+ int i, j;
+
+ /* This test makes some buggy mktime implementations loop.
+ Give up after 60 seconds; a mktime slower than that
+ isn't worth using anyway. */
+ alarm (60);
+
+ for (time_t_max = 1; 0 < time_t_max; time_t_max *= 2)
+ continue;
+ time_t_max--;
+ delta = time_t_max / 997; /* a suitable prime number */
+ for (i = 0; i < N_STRINGS; i++)
+ {
+ if (tz_strings[i])
+ putenv (tz_strings[i]);
+
+ for (t = 0; t <= time_t_max - delta; t += delta)
+ mktime_test (t);
+ mktime_test ((time_t) 60 * 60);
+ mktime_test ((time_t) 60 * 60 * 24);
+
+ for (j = 1; 0 < j; j *= 2)
+ bigtime_test (j);
+ bigtime_test (j - 1);
+ }
+ irix_6_4_bug ();
+ spring_forward_gap ();
+ exit (0);
+}],
+ac_cv_func_working_mktime=yes, ac_cv_func_working_mktime=no,
+ac_cv_func_working_mktime=no)])
+if test $ac_cv_func_working_mktime = no; then
+ LIBOBJS="$LIBOBJS mktime.${ac_objext}"
+fi
+])# AC_FUNC_MKTIME \ No newline at end of file
diff --git a/m4/largefile.m4 b/m4/largefile.m4
new file mode 100644
index 00000000..db38757d
--- /dev/null
+++ b/m4/largefile.m4
@@ -0,0 +1,92 @@
+#serial 19
+
+dnl By default, many hosts won't let programs access large files;
+dnl one must use special compiler options to get large-file access to work.
+dnl For more details about this brain damage please see:
+dnl http://www.sas.com/standards/large.file/x_open.20Mar96.html
+
+dnl Written by Paul Eggert <eggert@twinsun.com>.
+
+dnl Internal subroutine of AC_SYS_LARGEFILE.
+dnl AC_SYS_LARGEFILE_TEST_INCLUDES
+AC_DEFUN(AC_SYS_LARGEFILE_TEST_INCLUDES,
+ [[#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+ We can't simply "#define LARGE_OFF_T 9223372036854775807",
+ since some C++ compilers masquerading as C compilers
+ incorrectly reject 9223372036854775807. */
+# define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+ int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+ && LARGE_OFF_T % 2147483647 == 1)
+ ? 1 : -1];
+ ]])
+
+dnl Internal subroutine of AC_SYS_LARGEFILE.
+dnl AC_SYS_LARGEFILE_MACRO_VALUE(C-MACRO, VALUE, CACHE-VAR, COMMENT, INCLUDES, FUNCTION-BODY)
+AC_DEFUN(AC_SYS_LARGEFILE_MACRO_VALUE,
+ [AC_CACHE_CHECK([for $1 value needed for large files], $3,
+ [$3=no
+ AC_TRY_COMPILE([$5],
+ [$6],
+ ,
+ [AC_TRY_COMPILE([#define $1 $2]
+[$5]
+ ,
+ [$6],
+ [$3=$2])])])
+ if test "[$]$3" != no; then
+ AC_DEFINE_UNQUOTED([$1], [$]$3, [$4])
+ fi])
+
+AC_DEFUN(AC_SYS_LARGEFILE,
+ [AC_REQUIRE([AC_PROG_CC])
+ AC_ARG_ENABLE(largefile,
+ [ --disable-largefile omit support for large files])
+ if test "$enable_largefile" != no; then
+
+ AC_CACHE_CHECK([for special C compiler options needed for large files],
+ ac_cv_sys_largefile_CC,
+ [ac_cv_sys_largefile_CC=no
+ if test "$GCC" != yes; then
+ # IRIX 6.2 and later do not support large files by default,
+ # so use the C compiler's -n32 option if that helps.
+ AC_TRY_COMPILE(AC_SYS_LARGEFILE_TEST_INCLUDES, , ,
+ [ac_save_CC="$CC"
+ CC="$CC -n32"
+ AC_TRY_COMPILE(AC_SYS_LARGEFILE_TEST_INCLUDES, ,
+ ac_cv_sys_largefile_CC=' -n32')
+ CC="$ac_save_CC"])
+ fi])
+ if test "$ac_cv_sys_largefile_CC" != no; then
+ CC="$CC$ac_cv_sys_largefile_CC"
+ fi
+
+ AC_SYS_LARGEFILE_MACRO_VALUE(_FILE_OFFSET_BITS, 64,
+ ac_cv_sys_file_offset_bits,
+ [Number of bits in a file offset, on hosts where this is settable.],
+ AC_SYS_LARGEFILE_TEST_INCLUDES)
+ AC_SYS_LARGEFILE_MACRO_VALUE(_LARGE_FILES, 1,
+ ac_cv_sys_large_files,
+ [Define for large files, on AIX-style hosts.],
+ AC_SYS_LARGEFILE_TEST_INCLUDES)
+ fi
+ ])
+
+AC_DEFUN(AC_FUNC_FSEEKO,
+ [AC_SYS_LARGEFILE_MACRO_VALUE(_LARGEFILE_SOURCE, 1,
+ ac_cv_sys_largefile_source,
+ [Define to make fseeko visible on some hosts (e.g. glibc 2.2).],
+ [#include <stdio.h>], [return !fseeko;])
+ # We used to try defining _XOPEN_SOURCE=500 too, to work around a bug
+ # in glibc 2.1.3, but that breaks too many other things.
+ # If you want fseeko and ftello with glibc, upgrade to a fixed glibc.
+
+ AC_CACHE_CHECK([for fseeko], ac_cv_func_fseeko,
+ [ac_cv_func_fseeko=no
+ AC_TRY_LINK([#include <stdio.h>],
+ [return fseeko && fseeko (stdin, 0, 0);],
+ [ac_cv_func_fseeko=yes])])
+ if test $ac_cv_func_fseeko != no; then
+ AC_DEFINE(HAVE_FSEEKO, 1,
+ [Define if fseeko (and presumably ftello) exists and is declared.])
+ fi])
diff --git a/m4/lcmessage.m4 b/m4/lcmessage.m4
new file mode 100644
index 00000000..7ff8b759
--- /dev/null
+++ b/m4/lcmessage.m4
@@ -0,0 +1,22 @@
+# Check whether LC_MESSAGES is available in <locale.h>.
+# Ulrich Drepper <drepper@cygnus.com>, 1995.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 2
+
+AC_PREREQ(2.13) dnl Minimum Autoconf version required.
+
+AC_DEFUN(AM_LC_MESSAGES,
+ [if test $ac_cv_header_locale_h = yes; then
+ AC_CACHE_CHECK([for LC_MESSAGES], am_cv_val_LC_MESSAGES,
+ [AC_TRY_LINK([#include <locale.h>], [return LC_MESSAGES],
+ am_cv_val_LC_MESSAGES=yes, am_cv_val_LC_MESSAGES=no)])
+ if test $am_cv_val_LC_MESSAGES = yes; then
+ AC_DEFINE(HAVE_LC_MESSAGES, 1,
+ [Define if your locale.h file contains LC_MESSAGES.])
+ fi
+ fi])
diff --git a/m4/progtest.m4 b/m4/progtest.m4
new file mode 100644
index 00000000..2482d4a9
--- /dev/null
+++ b/m4/progtest.m4
@@ -0,0 +1,47 @@
+# Search path for a program which passes the given test.
+# Ulrich Drepper <drepper@cygnus.com>, 1996.
+#
+# This file can be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+# serial 1
+
+dnl AM_PATH_PROG_WITH_TEST(VARIABLE, PROG-TO-CHECK-FOR,
+dnl TEST-PERFORMED-ON-FOUND_PROGRAM [, VALUE-IF-NOT-FOUND [, PATH]])
+AC_DEFUN(AM_PATH_PROG_WITH_TEST,
+[# Extract the first word of "$2", so it can be a program name with args.
+set dummy $2; ac_word=[$]2
+AC_MSG_CHECKING([for $ac_word])
+AC_CACHE_VAL(ac_cv_path_$1,
+[case "[$]$1" in
+ /*)
+ ac_cv_path_$1="[$]$1" # Let the user override the test with a path.
+ ;;
+ *)
+ IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+ for ac_dir in ifelse([$5], , $PATH, [$5]); do
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$ac_word; then
+ if [$3]; then
+ ac_cv_path_$1="$ac_dir/$ac_word"
+ break
+ fi
+ fi
+ done
+ IFS="$ac_save_ifs"
+dnl If no 4th arg is given, leave the cache variable unset,
+dnl so AC_PATH_PROGS will keep looking.
+ifelse([$4], , , [ test -z "[$]ac_cv_path_$1" && ac_cv_path_$1="$4"
+])dnl
+ ;;
+esac])dnl
+$1="$ac_cv_path_$1"
+if test -n "[$]$1"; then
+ AC_MSG_RESULT([$]$1)
+else
+ AC_MSG_RESULT(no)
+fi
+AC_SUBST($1)dnl
+])
diff --git a/m4/socket.m4 b/m4/socket.m4
new file mode 100644
index 00000000..e0cbb7be
--- /dev/null
+++ b/m4/socket.m4
@@ -0,0 +1,85 @@
+dnl
+dnl socket.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 1995, 96, 98, 99, 2000 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+dnl
+
+dnl Find the socket libraries
+dnl largely stolen from AC_PATH_XTRA
+AC_DEFUN(GAWK_AC_LIB_SOCKETS, [
+gawk_have_sockets=no
+# Check for system-dependent location of socket libraries
+
+SOCKET_LIBS=
+if test "$ISC" = yes; then
+ SOCKET_LIBS="-lnsl_s -linet"
+else
+ # Martyn.Johnson@cl.cam.ac.uk says this is needed for Ultrix, if the X
+ # libraries were built with DECnet support. And karl@cs.umb.edu says
+ # the Alpha needs dnet_stub (dnet does not exist).
+ #
+ # ADR: Is this needed just for sockets???
+# AC_CHECK_LIB(dnet, dnet_ntoa, [SOCKET_LIBS="$SOCKET_LIBS -ldnet"])
+# if test $ac_cv_lib_dnet_ntoa = no; then
+# AC_CHECK_LIB(dnet_stub, dnet_ntoa,
+# [SOCKET_LIBS="$SOCKET_LIBS -ldnet_stub"])
+# fi
+
+ # msh@cis.ufl.edu says -lnsl (and -lsocket) are needed for his 386/AT,
+ # to get the SysV transport functions.
+ # chad@anasazi.com says the Pyramid MIS-ES running DC/OSx (SVR4)
+ # needs -lnsl.
+ # The nsl library prevents programs from opening the X display
+ # on Irix 5.2, according to dickey@clark.net.
+ AC_CHECK_FUNC(gethostbyname)
+ if test $ac_cv_func_gethostbyname = no; then
+ AC_CHECK_LIB(nsl, gethostbyname, SOCKET_LIBS="$SOCKET_LIBS -lnsl")
+ fi
+
+ # lieder@skyler.mavd.honeywell.com says without -lsocket,
+ # socket/setsockopt and other routines are undefined under SCO ODT
+ # 2.0. But -lsocket is broken on IRIX 5.2 (and is not necessary
+ # on later versions), says simon@lia.di.epfl.ch: it contains
+ # gethostby* variants that don't use the nameserver (or something).
+ # -lsocket must be given before -lnsl if both are needed.
+ # We assume that if connect needs -lnsl, so does gethostbyname.
+ AC_CHECK_FUNC(connect)
+ if test $ac_cv_func_connect = no; then
+ AC_CHECK_LIB(socket, connect, SOCKET_LIBS="-lsocket $SOCKET_LIBS"
+ gawk_have_sockets=yes, ,
+ $SOCKET_LIBS)
+ else
+ gawk_have_sockets=yes
+ fi
+fi
+
+if test "${gawk_have_sockets}" = "yes"
+then
+ AC_MSG_CHECKING([where to find the socket library calls])
+ case "${SOCKET_LIBS}" in
+ ?*) gawk_lib_loc="${SOCKET_LIBS}" ;;
+ *) gawk_lib_loc="the standard library" ;;
+ esac
+ AC_MSG_RESULT([${gawk_lib_loc}])
+
+ AC_DEFINE(HAVE_SOCKETS)
+fi
+AC_SUBST(SOCKET_LIBS)dnl
+])dnl
diff --git a/m4/ssize_t.m4 b/m4/ssize_t.m4
new file mode 100644
index 00000000..2645c1ae
--- /dev/null
+++ b/m4/ssize_t.m4
@@ -0,0 +1,24 @@
+#serial 1
+
+dnl AC_PREREQ(2.14a)
+
+dnl This is a specialization of AC_CHECK_TYPE applied to `ssize_t' with
+dnl the difference that it also includes unistd.h on systems that have it.
+dnl On Fujitsu UXP/V systems ssize_t is defined in unistd.h.
+AC_DEFUN(GAWK_AC_TYPE_SSIZE_T,
+ [
+ AC_CHECK_HEADERS(unistd.h)
+ AC_CHECK_TYPE(ssize_t, int,
+ [
+#include <sys/types.h>
+#if STDC_HEADERS
+# include <stdlib.h>
+# include <stddef.h>
+#endif
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+ ]
+ )
+ ]
+)
diff --git a/m4/strtod.m4 b/m4/strtod.m4
new file mode 100644
index 00000000..a719fb92
--- /dev/null
+++ b/m4/strtod.m4
@@ -0,0 +1,58 @@
+dnl
+dnl strtod.m4 --- autoconf input file for gawk
+dnl
+dnl Copyright (C) 2001 the Free Software Foundation, Inc.
+dnl
+dnl This file is part of GAWK, the GNU implementation of the
+dnl AWK Progamming Language.
+dnl
+dnl GAWK is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl GAWK is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
+dnl Check for strtod with C89 semantics
+
+AC_DEFUN(GAWK_AC_FUNC_STRTOD_C89,
+[
+AC_CHECK_HEADERS(stdlib.h)
+AC_CHECK_FUNCS(strtod)
+AC_CACHE_CHECK([for strtod with C89 semantics], gawk_ac_cv_func_strtod_c89,
+[AC_TRY_RUN(
+[/* Test program from Arnold Robbins (arnold@skeeve.com) */
+#if HAVE_STDLIB_H
+#include <stdlib.h>
+#else
+extern double strtod();
+#endif
+
+int
+main ()
+{
+#if ! HAVE_STRTOD
+ exit(1);
+#else
+ double d;
+ char *str = "0x345a";
+
+ d = strtod(str, 0);
+ if (d == 0)
+ exit (0);
+ else
+ exit (1);
+}],
+gawk_ac_cv_func_strtod_c89=yes, gawk_ac_cv_func_strtod_c89=no,
+gawk_ac_cv_func_strtod_c89=no)])
+if test $gawk_ac_cv_func_strtod_c89 = no; then
+ AC_DEFINE(STRTOD_NOT_C89)
+fi
+])# GAWK_FUNC_STRTOD_C89
diff --git a/main.c b/main.c
index aeb6ab2a..35308f88 100644
--- a/main.c
+++ b/main.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -25,7 +25,24 @@
#include "awk.h"
#include "getopt.h"
-#include "patchlevel.h"
+#ifdef TANDEM
+#include "ptchlvl.h" /* blech */
+#else
+#include "patchlev.h"
+#endif
+
+#ifndef O_BINARY
+#include <fcntl.h>
+#endif
+
+#ifdef HAVE_MCHECK_H
+#include <mcheck.h>
+#endif
+
+#define DEFAULT_PROFILE "awkprof.out" /* where to put profile */
+#define DEFAULT_VARFILE "awkvars.out" /* where to put vars */
+
+static char *varfile = DEFAULT_VARFILE;
static void usage P((int exitval, FILE *fp));
static void copyleft P((void));
@@ -36,20 +53,25 @@ static void pre_assign P((char *v));
RETSIGTYPE catchsig P((int sig, int code));
static void nostalgia P((void));
static void version P((void));
+static void init_fds P((void));
/* These nodes store all the special variables AWK uses */
-NODE *ARGC_node, *ARGIND_node, *ARGV_node, *CONVFMT_node, *ENVIRON_node;
-NODE *ERRNO_node, *FIELDWIDTHS_node, *FILENAME_node, *FNR_node, *FS_node;
-NODE *IGNORECASE_node, *NF_node, *NR_node, *OFMT_node, *OFS_node;
-NODE *ORS_node, *RLENGTH_node, *RSTART_node, *RS_node, *RT_node, *SUBSEP_node;
-
+NODE *ARGC_node, *ARGIND_node, *ARGV_node, *BINMODE_node, *CONVFMT_node;
+NODE *ENVIRON_node, *ERRNO_node, *FIELDWIDTHS_node, *FILENAME_node, *FNR_node;
+NODE *FS_node, *IGNORECASE_node, *NF_node, *NR_node, *OFMT_node, *OFS_node;
+NODE *ORS_node, *PROCINFO_node, *RLENGTH_node, *RSTART_node, *RS_node;
+NODE *RT_node, *SUBSEP_node, *LINT_node, *TEXTDOMAIN_node;
+
long NF;
long NR;
long FNR;
+int BINMODE;
int IGNORECASE;
char *OFS;
char *ORS;
char *OFMT;
+char *TEXTDOMAIN;
+int MRL; /* See -mr option for use of this variable */
/*
* CONVFMT is a convenience pointer for the current number to string format.
@@ -59,6 +81,7 @@ char *OFMT;
*/
char *CONVFMT = "%.6g";
+
int errcount = 0; /* error counter, used by yyerror() */
NODE *Nnull_string; /* The global null string */
@@ -75,7 +98,7 @@ NODE *end_block = NULL;
int exiting = FALSE; /* Was an "exit" statement executed? */
int exit_val = 0; /* optional exit value */
-#if defined(YYDEBUG) || defined(DEBUG)
+#if defined(YYDEBUG) || defined(GAWKDEBUG)
extern int yydebug;
#endif
@@ -86,8 +109,13 @@ int do_traditional = FALSE; /* no gnu extensions, add traditional weirdnesses */
int do_posix = FALSE; /* turn off gnu and unix extensions */
int do_lint = FALSE; /* provide warnings about questionable stuff */
int do_lint_old = FALSE; /* warn about stuff not in V7 awk */
+int do_intl = FALSE; /* dump locale-izable strings to stdout */
+int do_non_decimal_data = FALSE; /* allow octal/hex C style DATA. Use with caution! */
int do_nostalgia = FALSE; /* provide a blast from the past */
int do_intervals = FALSE; /* allow {...,...} in regexps */
+int do_profiling = FALSE; /* profile and pretty print the program */
+int do_dump_vars = FALSE; /* dump all global variables at end */
+int do_tidy_mem = FALSE; /* release vars when done */
int in_begin_rule = FALSE; /* we're in a BEGIN rule */
int in_end_rule = FALSE; /* we're in a END rule */
@@ -99,24 +127,34 @@ extern char *version_string; /* current version, for printing */
/* The parse tree is stored here. */
NODE *expression_value;
+#if _MSC_VER == 510
+void (*lintfunc) P((va_list va_alist, ...)) = warning;
+#else
+void (*lintfunc) P((char *mesg, ...)) = warning;
+#endif
+
static struct option optab[] = {
{ "compat", no_argument, & do_traditional, 1 },
{ "traditional", no_argument, & do_traditional, 1 },
- { "lint", no_argument, & do_lint, 1 },
+ { "lint", optional_argument, NULL, 'l' },
{ "lint-old", no_argument, & do_lint_old, 1 },
{ "posix", no_argument, & do_posix, 1 },
{ "nostalgia", no_argument, & do_nostalgia, 1 },
+ { "gen-po", no_argument, & do_intl, 1 },
+ { "non-decimal-data", no_argument, & do_non_decimal_data, 1 },
+ { "profile", optional_argument, NULL, 'p' },
{ "copyleft", no_argument, NULL, 'C' },
{ "copyright", no_argument, NULL, 'C' },
{ "field-separator", required_argument, NULL, 'F' },
{ "file", required_argument, NULL, 'f' },
- { "re-interval", no_argument, & do_intervals, 1 },
+ { "re-interval", no_argument, & do_intervals, 1 },
{ "source", required_argument, NULL, 's' },
+ { "dump-variables", optional_argument, NULL, 'd' },
{ "assign", required_argument, NULL, 'v' },
{ "version", no_argument, NULL, 'V' },
{ "usage", no_argument, NULL, 'u' },
{ "help", no_argument, NULL, 'u' },
-#ifdef DEBUG
+#ifdef GAWKDEBUG
{ "parsedebug", no_argument, NULL, 'D' },
#endif
{ NULL, 0, NULL, '\0' }
@@ -125,9 +163,7 @@ static struct option optab[] = {
/* main --- process args, parse program, run it, clean up */
int
-main(argc, argv)
-int argc;
-char **argv;
+main(int argc, char **argv)
{
int c;
char *scan;
@@ -139,8 +175,21 @@ char **argv;
extern int opterr;
extern char *optarg;
+ /* do these checks early */
+ if (getenv("TIDYMEM") != NULL)
+ do_tidy_mem = TRUE;
+
+#ifdef HAVE_MCHECK_H
+ if (do_tidy_mem)
+ mtrace();
+#endif /* HAVE_MCHECK_H */
+
+
setlocale(LC_CTYPE, "");
setlocale(LC_COLLATE, "");
+ /* setlocale (LC_ALL, ""); */
+ bindtextdomain(PACKAGE, LOCALEDIR);
+ textdomain(PACKAGE);
(void) signal(SIGFPE, (RETSIGTYPE (*) P((int))) catchsig);
(void) signal(SIGSEGV, (RETSIGTYPE (*) P((int))) catchsig);
@@ -186,6 +235,9 @@ char **argv;
*/
init_fields();
+ /* Robustness: check that 0, 1, 2, exist */
+ init_fds();
+
/* worst case */
emalloc(srcfiles, struct src *, argc * sizeof(struct src), "main");
memset(srcfiles, '\0', argc * sizeof(struct src));
@@ -237,15 +289,26 @@ char **argv;
* -mr nnn set record length, ditto
*/
if (do_lint)
- warning("-m[fr] option irrelevant in gawk");
+ lintwarn(_("`-m[fr]' option irrelevant in gawk"));
if (optarg[0] != 'r' && optarg[0] != 'f')
- warning("-m option usage: `-m[fr] nnn'");
- if (optarg[1] == '\0')
+ warning(_("-m option usage: `-m[fr] nnn'"));
+ /*
+ * Set fixed length records for Tandem,
+ * ignored on other platforms (see io.c:get_a_record).
+ */
+ if (optarg[0] == 'r') {
+ if (ISDIGIT(optarg[1]))
+ MRL = atoi(optarg+1);
+ else {
+ MRL = atoi(argv[optind]);
+ optind++;
+ }
+ } else if (optarg[1] == '\0')
optind++;
break;
case 'W': /* gawk specific options - now in getopt_long */
- fprintf(stderr, "%s: option `-W %s' unrecognized, ignored\n",
+ fprintf(stderr, _("%s: option `-W %s' unrecognized, ignored\n"),
argv[0], optarg);
break;
@@ -254,9 +317,29 @@ char **argv;
copyleft();
break;
+ case 'd':
+ do_dump_vars = TRUE;
+ if (optarg != NULL && optarg[0] != '\0')
+ varfile = optarg;
+ break;
+
+ case 'l':
+ do_lint = TRUE;
+ if (optarg != NULL && strcmp(optarg, "fatal") == 0)
+ lintfunc = r_fatal;
+ break;
+
+ case 'p':
+ do_profiling = TRUE;
+ if (optarg != NULL)
+ set_prof_file(optarg);
+ else
+ set_prof_file(DEFAULT_PROFILE);
+ break;
+
case 's':
if (optarg[0] == '\0')
- warning("empty argument to --source ignored");
+ warning(_("empty argument to `--source' ignored"));
else {
srcfiles[++numfiles].stype = CMDLINE;
srcfiles[numfiles].val = optarg;
@@ -271,7 +354,7 @@ char **argv;
version();
break;
-#ifdef DEBUG
+#ifdef GAWKDEBUG
case 'D':
yydebug = 2;
break;
@@ -311,7 +394,7 @@ char **argv;
} else if (optopt != '\0')
/* Use 1003.2 required message format */
fprintf(stderr,
- "%s: option requires an argument -- %c\n",
+ _("%s: option requires an argument -- %c\n"),
myname, optopt);
/* else
let getopt print error message for us */
@@ -327,13 +410,13 @@ out:
if (! do_posix && getenv("POSIXLY_CORRECT") != NULL) {
do_posix = TRUE;
if (do_lint)
- warning(
- "environment variable `POSIXLY_CORRECT' set: turning on --posix");
+ lintwarn(
+ _("environment variable `POSIXLY_CORRECT' set: turning on `--posix'"));
}
if (do_posix) {
if (do_traditional) /* both on command line */
- warning("--posix overrides --traditional");
+ warning(_("`--posix' overrides `--traditional'"));
else
do_traditional = TRUE;
/*
@@ -342,6 +425,14 @@ out:
*/
}
+ if (do_traditional && do_non_decimal_data) {
+ do_non_decimal_data = FALSE;
+ warning(_("`--posix'/`--traditional' overrides `--non-decimal-data'"));
+ }
+
+ if (do_lint && os_is_setuid())
+ warning(_("runing %s setuid root may be a security problem"), myname);
+
/*
* Tell the regex routines how they should work.
* Do this again, after argument processing, since do_posix
@@ -359,7 +450,25 @@ out:
set_FS();
}
-#ifdef DEBUG
+ /*
+ * Initialize profiling info, do after parsing args,
+ * in case this is pgawk. Don't bother if the command
+ * line already set profling up.
+ */
+ if (! do_profiling)
+ init_profiling(& do_profiling, DEFAULT_PROFILE);
+
+ if ((BINMODE & 1) != 0)
+ if (os_setbinmode(fileno(stdin), O_BINARY) == -1)
+ fatal(_("can't set mode on stdin (%s)"), strerror(errno));
+ if ((BINMODE & 2) != 0) {
+ if (os_setbinmode(fileno(stdout), O_BINARY) == -1)
+ fatal(_("can't set mode on stdout (%s)"), strerror(errno));
+ if (os_setbinmode(fileno(stderr), O_BINARY) == -1)
+ fatal(_("can't set mode on stderr (%s)"), strerror(errno));
+ }
+
+#ifdef GAWKDEBUG
setbuf(stdout, (char *) NULL); /* make debugging easier */
#endif
if (isatty(fileno(stdout)))
@@ -379,14 +488,18 @@ out:
/* Read in the program */
if (yyparse() != 0 || errcount != 0)
exit(1);
- /* recover any space from C based alloca */
-#ifdef C_ALLOCA
- (void) alloca(0);
-#endif
+
+ if (do_intl)
+ exit(0);
if (do_lint && begin_block == NULL && expression_value == NULL
&& end_block == NULL)
- warning("no program");
+ lintwarn(_("no program text at all!"));
+
+ if (do_lint)
+ shadow_funcs();
+
+ init_profiling_signals();
if (begin_block != NULL) {
in_begin_rule = TRUE;
@@ -402,6 +515,18 @@ out:
in_end_rule = FALSE;
if (close_io() != 0 && exit_val == 0)
exit_val = 1;
+
+ if (do_profiling) {
+ dump_prog(begin_block, expression_value, end_block);
+ dump_funcs();
+ }
+
+ if (do_dump_vars)
+ dump_vars(varfile);
+
+ if (do_tidy_mem)
+ release_all_vars();
+
exit(exit_val); /* more portable */
return exit_val; /* to suppress warnings */
}
@@ -409,43 +534,46 @@ out:
/* usage --- print usage information and exit */
static void
-usage(exitval, fp)
-int exitval;
-FILE *fp;
+usage(int exitval, FILE *fp)
{
- char *opt1 = " -f progfile [--]";
- char *regops = " [POSIX or GNU style options]";
-
- fprintf(fp, "Usage: %s%s%s file ...\n\t%s%s [--] %cprogram%c file ...\n",
- myname, regops, opt1, myname, regops, quote, quote);
-
- /* GNU long options info. Gack. */
- fputs("POSIX options:\t\tGNU long options:\n", fp);
- fputs("\t-f progfile\t\t--file=progfile\n", fp);
- fputs("\t-F fs\t\t\t--field-separator=fs\n", fp);
- fputs("\t-v var=val\t\t--assign=var=val\n", fp);
- fputs("\t-m[fr] val\n", fp);
- fputs("\t-W compat\t\t--compat\n", fp);
- fputs("\t-W copyleft\t\t--copyleft\n", fp);
- fputs("\t-W copyright\t\t--copyright\n", fp);
- fputs("\t-W help\t\t\t--help\n", fp);
- fputs("\t-W lint\t\t\t--lint\n", fp);
- fputs("\t-W lint-old\t\t--lint-old\n", fp);
+ /* Not factoring out common stuff makes it easier to translate. */
+
+ fprintf(fp, _("Usage: %s [POSIX or GNU style options] -f progfile [--] file ...\n"),
+ myname);
+ fprintf(fp, _("Usage: %s [POSIX or GNU style options] [--] %cprogram%c file ...\n"),
+ myname, quote, quote);
+
+ /* GNU long options info. This is too many options. */
+
+ fputs(_("POSIX options:\t\tGNU long options:\n"), fp);
+ fputs(_("\t-f progfile\t\t--file=progfile\n"), fp);
+ fputs(_("\t-F fs\t\t\t--field-separator=fs\n"), fp);
+ fputs(_("\t-v var=val\t\t--assign=var=val\n"), fp);
+ fputs(_("\t-m[fr] val\n"), fp);
+ fputs(_("\t-W compat\t\t--compat\n"), fp);
+ fputs(_("\t-W copyleft\t\t--copyleft\n"), fp);
+ fputs(_("\t-W copyright\t\t--copyright\n"), fp);
+ fputs(_("\t-W dump-variables[=file]\t--dump-variables[=file]\n"), fp);
+ fputs(_("\t-W gen-po\t\t--gen-po\n"), fp);
+ fputs(_("\t-W help\t\t\t--help\n"), fp);
+ fputs(_("\t-W lint[=fatal]\t\t--lint[=fatal]\n"), fp);
+ fputs(_("\t-W lint-old\t\t--lint-old\n"), fp);
+ fputs(_("\t-W non-decimal-data\t--non-decimal-data\n"), fp);
#ifdef NOSTALGIA
- fputs("\t-W nostalgia\t\t--nostalgia\n", fp);
+ fputs(_("\t-W nostalgia\t\t--nostalgia\n"), fp);
#endif
-#ifdef DEBUG
- fputs("\t-W parsedebug\t\t--parsedebug\n", fp);
+#ifdef GAWKDEBUG
+ fputs(_("\t-W parsedebug\t\t--parsedebug\n"), fp);
#endif
- fputs("\t-W posix\t\t--posix\n", fp);
- fputs("\t-W re-interval\t\t--re-interval\n", fp);
- fputs("\t-W source=program-text\t--source=program-text\n", fp);
- fputs("\t-W traditional\t\t--traditional\n", fp);
- fputs("\t-W usage\t\t--usage\n", fp);
- fputs("\t-W version\t\t--version\n", fp);
- fputs("\nTo report bugs, see node `Bugs' in `gawk.info', which\n", fp);
- fputs("is section `Reporting Problems and Bugs' in the\n", fp);
- fputs("printed version.\n", fp);
+ fputs(_("\t-W profile[=file]\t--profile[=file]\n"), fp);
+ fputs(_("\t-W posix\t\t--posix\n"), fp);
+ fputs(_("\t-W re-interval\t\t--re-interval\n"), fp);
+ fputs(_("\t-W source=program-text\t--source=program-text\n"), fp);
+ fputs(_("\t-W traditional\t\t--traditional\n"), fp);
+ fputs(_("\t-W usage\t\t--usage\n"), fp);
+ fputs(_("\t-W version\t\t--version\n"), fp);
+ fputs(_("\nTo report bugs, see node `Bugs' in `gawk.info', which is\n"), fp);
+ fputs(_("section `Reporting Problems and Bugs' in the printed version.\n"), fp);
exit(exitval);
}
@@ -455,28 +583,28 @@ static void
copyleft()
{
static char blurb_part1[] =
-"Copyright (C) 1989, 1991-2000 Free Software Foundation.\n\
+ N_("Copyright (C) 1989, 1991-2001 Free Software Foundation.\n\
\n\
This program is free software; you can redistribute it and/or modify\n\
it under the terms of the GNU General Public License as published by\n\
the Free Software Foundation; either version 2 of the License, or\n\
(at your option) any later version.\n\
-\n";
+\n");
static char blurb_part2[] =
-"This program is distributed in the hope that it will be useful,\n\
+ N_("This program is distributed in the hope that it will be useful,\n\
but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\
GNU General Public License for more details.\n\
-\n";
+\n");
static char blurb_part3[] =
-"You should have received a copy of the GNU General Public License\n\
+ N_("You should have received a copy of the GNU General Public License\n\
along with this program; if not, write to the Free Software\n\
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n";
-
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n");
+
/* multiple blurbs are needed for some brain dead compilers. */
- fputs(blurb_part1, stdout);
- fputs(blurb_part2, stdout);
- fputs(blurb_part3, stdout);
+ fputs(_(blurb_part1), stdout);
+ fputs(_(blurb_part2), stdout);
+ fputs(_(blurb_part3), stdout);
fflush(stdout);
exit(0);
}
@@ -484,12 +612,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n";
/* cmdline_fs --- set FS from the command line */
static void
-cmdline_fs(str)
-char *str;
+cmdline_fs(char *str)
{
register NODE **tmp;
- tmp = get_lhs(FS_node, (Func_ptr *) 0);
+ tmp = get_lhs(FS_node, (Func_ptr *) 0, FALSE);
unref(*tmp);
/*
* Only if in full compatibility mode check for the stupid special
@@ -500,7 +627,7 @@ char *str;
*/
if (str[0] == 't' && str[1] == '\0') {
if (do_lint)
- warning("-Ft does not set FS to tab in POSIX awk");
+ lintwarn(_("-Ft does not set FS to tab in POSIX awk"));
if (do_traditional && ! do_posix)
str[0] = '\t';
}
@@ -511,26 +638,25 @@ char *str;
/* init_args --- set up ARGV from stuff on the command line */
static void
-init_args(argc0, argc, argv0, argv)
-int argc0, argc;
-char *argv0;
-char **argv;
+init_args(int argc0, int argc, char *argv0, char **argv)
{
int i, j;
NODE **aptr;
ARGV_node = install("ARGV", node(Nnull_string, Node_var_array, (NODE *) NULL));
- aptr = assoc_lookup(ARGV_node, tmp_number(0.0));
+ aptr = assoc_lookup(ARGV_node, tmp_number(0.0), FALSE);
*aptr = make_string(argv0, strlen(argv0));
(*aptr)->flags |= MAYBE_NUM;
for (i = argc0, j = 1; i < argc; i++) {
- aptr = assoc_lookup(ARGV_node, tmp_number((AWKNUM) j));
+ aptr = assoc_lookup(ARGV_node, tmp_number((AWKNUM) j), FALSE);
*aptr = make_string(argv[i], strlen(argv[i]));
(*aptr)->flags |= MAYBE_NUM;
+ (*aptr)->flags &= ~UNINITIALIZED;
j++;
}
ARGC_node = install("ARGC",
node(make_number((AWKNUM) j), Node_var, (NODE *) NULL));
+ ARGC_node->flags &= ~UNINITIALIZED;
}
/*
@@ -567,6 +693,9 @@ static struct varinit varinit[] = {
{&ARGIND_node, "ARGIND", Node_var, NULL, 0, NULL },
{&ERRNO_node, "ERRNO", Node_var, NULL, 0, NULL },
{&RT_node, "RT", Node_var, "", 0, NULL },
+{&BINMODE_node, "BINMODE", Node_BINMODE, NULL, 0, NULL },
+{&LINT_node, "LINT", Node_LINT, NULL, 0, NULL },
+{&TEXTDOMAIN_node, "TEXTDOMAIN", Node_TEXTDOMAIN, "messages", 0, set_TEXTDOMAIN },
{0, NULL, Node_illegal, NULL, 0, NULL },
};
@@ -584,6 +713,7 @@ init_vars()
strlen(vp->strval)),
vp->type, (NODE *) NULL));
(*(vp->spec))->flags |= SCALAR;
+ (*(vp->spec))->flags &= ~UNINITIALIZED;
if (vp->assign)
(*(vp->assign))();
}
@@ -594,10 +724,11 @@ init_vars()
void
load_environ()
{
+#if ! defined(TANDEM)
#if ! (defined(MSDOS) && !defined(DJGPP)) && ! defined(OS2) && ! (defined(VMS) && defined(__DECC))
extern char **environ;
#endif
- register char *var, *val, *cp;
+ register char *var, *val;
NODE **aptr;
register int i;
@@ -612,7 +743,8 @@ load_environ()
*val++ = '\0';
else
val = nullstr;
- aptr = assoc_lookup(ENVIRON_node, tmp_string(var, strlen(var)));
+ aptr = assoc_lookup(ENVIRON_node,tmp_string(var, strlen(var)),
+ FALSE);
*aptr = make_string(val, strlen(val));
(*aptr)->flags |= (MAYBE_NUM|SCALAR);
@@ -622,20 +754,94 @@ load_environ()
}
/*
* Put AWKPATH into ENVIRON if it's not there.
- * This allows querying it from outside gawk.
+ * This allows querying it from within awk programs.
*/
- if ((cp = getenv("AWKPATH")) == NULL) {
- aptr = assoc_lookup(ENVIRON_node, tmp_string("AWKPATH", 7));
+ if (getenv("AWKPATH") == NULL) {
+ aptr = assoc_lookup(ENVIRON_node, tmp_string("AWKPATH", 7), FALSE);
*aptr = make_string(defpath, strlen(defpath));
(*aptr)->flags |= SCALAR;
}
+#endif /* TANDEM */
+}
+
+/* load_procinfo --- populate the PROCINFO array */
+
+void
+load_procinfo()
+{
+ int i;
+ NODE **aptr;
+ char name[100];
+ AWKNUM value;
+#if defined(NGROUPS_MAX) && NGROUPS_MAX > 0
+ GETGROUPS_T groupset[NGROUPS_MAX];
+ int ngroups;
+#endif
+
+ PROCINFO_node = install("PROCINFO",
+ node(Nnull_string, Node_var, (NODE *) NULL));
+
+#ifdef GETPGRP_VOID
+#define getpgrp_arg() /* nothing */
+#else
+#define getpgrp_arg() getpid()
+#endif
+
+ value = getpgrp(getpgrp_arg());
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("pgrpid", 6), FALSE);
+ *aptr = make_number(value);
+
+ /*
+ * could put a lot of this into a table, but then there's
+ * portability problems declaring all the functions. so just
+ * do it the slow and stupid way. sigh.
+ */
+
+ value = getpid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("pid", 3), FALSE);
+ *aptr = make_number(value);
+
+ value = getppid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("ppid", 4), FALSE);
+ *aptr = make_number(value);
+
+ value = getuid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("uid", 3), FALSE);
+ *aptr = make_number(value);
+
+ value = geteuid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("euid", 4), FALSE);
+ *aptr = make_number(value);
+
+ value = getgid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("gid", 3), FALSE);
+ *aptr = make_number(value);
+
+ value = getegid();
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("egid", 4), FALSE);
+ *aptr = make_number(value);
+
+ aptr = assoc_lookup(PROCINFO_node, tmp_string("FS", 2), FALSE);
+ *aptr = make_string("FS", 2);
+
+#if defined(NGROUPS_MAX) && NGROUPS_MAX > 0
+ ngroups = getgroups(NGROUPS_MAX, groupset);
+ if (ngroups == -1)
+ fatal(_("could not find groups: %s"), strerror(errno));
+
+ for (i = 0; i < ngroups; i++) {
+ sprintf(name, "group%d", i + 1);
+ value = groupset[i];
+ aptr = assoc_lookup(PROCINFO_node, tmp_string(name, strlen(name)), FALSE);
+ *aptr = make_number(value);
+ }
+#endif
}
/* arg_assign --- process a command-line assignment */
char *
-arg_assign(arg)
-char *arg;
+arg_assign(char *arg)
{
char *cp, *cp2;
int badvar;
@@ -649,18 +855,18 @@ char *arg;
*cp++ = '\0';
/* first check that the variable name has valid syntax */
badvar = FALSE;
- if (! isalpha(arg[0]) && arg[0] != '_')
+ if (! ISALPHA(arg[0]) && arg[0] != '_')
badvar = TRUE;
else
for (cp2 = arg+1; *cp2; cp2++)
- if (! isalnum(*cp2) && *cp2 != '_') {
+ if (! ISALNUM(*cp2) && *cp2 != '_') {
badvar = TRUE;
break;
}
if (badvar) {
if (do_lint)
- warning("illegal name `%s' in variable assignment", arg);
+ lintwarn(_("invalid syntax in name `%s' for variable assignment"), arg);
*--cp = '='; /* restore original text of ARGV */
return NULL;
}
@@ -672,7 +878,7 @@ char *arg;
it = make_str_node(cp, strlen(cp), SCAN);
it->flags |= (MAYBE_NUM|SCALAR);
var = variable(arg, FALSE, Node_var);
- lhs = get_lhs(var, &after_assign);
+ lhs = get_lhs(var, &after_assign, FALSE);
unref(*lhs);
*lhs = it;
if (after_assign != NULL)
@@ -685,35 +891,58 @@ char *arg;
/* pre_assign --- handle -v, print a message and die if a problem */
static void
-pre_assign(v)
-char *v;
+pre_assign(char *v)
{
- if (arg_assign(v) == NULL) {
+ char *cp;
+ /*
+ * There is a problem when doing profiling. For -v x=y,
+ * the variable x gets installed into the symbol table pointing
+ * at the value in argv. This is what gets dumped. The string
+ * ends up containing the full x=y, leading to stuff in the profile
+ * of the form:
+ *
+ * if (x=y) ...
+ *
+ * Needless to say, this is gross, ugly and wrong. To fix, we
+ * malloc a private copy of the storage that we can tweak to
+ * our heart's content.
+ *
+ * This can't depend upon do_profiling; that variable isn't set up yet.
+ * Sigh.
+ */
+
+ emalloc(cp, char *, strlen(v) + 1, "pre_assign");
+ strcpy(cp, v);
+
+ if (arg_assign(cp) == NULL) {
fprintf(stderr,
"%s: `%s' argument to `-v' not in `var=value' form\n",
myname, v);
usage(1, stderr);
}
+
+ cp = strchr(cp, '=');
+ assert(cp);
+ *cp = '\0';
}
/* catchsig --- catch signals */
RETSIGTYPE
-catchsig(sig, code)
-int sig, code;
+catchsig(int sig, int code)
{
#ifdef lint
code = 0; sig = code; code = sig;
#endif
if (sig == SIGFPE) {
- fatal("floating point exception");
+ fatal(_("floating point exception"));
} else if (sig == SIGSEGV
#ifdef SIGBUS
|| sig == SIGBUS
#endif
) {
set_loc(__FILE__, __LINE__);
- msg("fatal error: internal error");
+ msg(_("fatal error: internal error"));
/* fatal won't abort() if not compiled for debugging */
abort();
} else
@@ -726,7 +955,12 @@ int sig, code;
static void
nostalgia()
{
+ /*
+ * N.B.: This string is not gettextized, on purpose.
+ * So there.
+ */
fprintf(stderr, "awk: bailing out near line 1\n");
+ fflush(stderr);
abort();
}
@@ -743,3 +977,28 @@ version()
copyleft();
exit(0);
}
+
+/* init_fds --- check for 0, 1, 2, open on /dev/null if possible */
+
+static void
+init_fds()
+{
+ struct stat sbuf;
+ int fd;
+ int newfd;
+
+ /* maybe no stderr, don't bother with error mesg */
+ for (fd = 0; fd <= 2; fd++) {
+ if (fstat(fd, &sbuf) < 0) {
+#if MAKE_A_HEROIC_EFFORT
+ if (do_lint)
+ lintwarn(_("no pre-opened fd %d"), fd);
+#endif
+ newfd = devopen("/dev/null", "r+");
+#ifdef MAKE_A_HEROIC_EFFORT
+ if (do_lint && newfd < 0)
+ lintwarn(_("could not pre-open /dev/null for fd %d"), fd);
+#endif
+ }
+ }
+}
diff --git a/missing b/missing
new file mode 100755
index 00000000..5f9da906
--- /dev/null
+++ b/missing
@@ -0,0 +1,265 @@
+#! /bin/sh
+# Common stub for a few missing GNU programs while installing.
+# Copyright 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
+# Originally by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+if test $# -eq 0; then
+ echo 1>&2 "Try \`$0 --help' for more information"
+ exit 1
+fi
+
+run=:
+
+case "$1" in
+--run)
+ # Try to run requested program, and just exit if it succeeds.
+ run=
+ shift
+ "$@" && exit 0
+ ;;
+esac
+
+# If it does not exist, or fails to run (possibly an outdated version),
+# try to emulate it.
+case "$1" in
+
+ -h|--h|--he|--hel|--help)
+ echo "\
+$0 [OPTION]... PROGRAM [ARGUMENT]...
+
+Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an
+error status if there is no known handling for PROGRAM.
+
+Options:
+ -h, --help display this help and exit
+ -v, --version output version information and exit
+ --run try to run the given command, and emulate it if it fails
+
+Supported PROGRAM values:
+ aclocal touch file \`aclocal.m4'
+ autoconf touch file \`configure'
+ autoheader touch file \`config.h.in'
+ automake touch all \`Makefile.in' files
+ bison create \`y.tab.[ch]', if possible, from existing .[ch]
+ flex create \`lex.yy.c', if possible, from existing .c
+ help2man touch the output file
+ lex create \`lex.yy.c', if possible, from existing .c
+ makeinfo touch the output file
+ tar try tar, gnutar, gtar, then tar without non-portable flags
+ yacc create \`y.tab.[ch]', if possible, from existing .[ch]"
+ ;;
+
+ -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
+ echo "missing 0.3 - GNU automake"
+ ;;
+
+ -*)
+ echo 1>&2 "$0: Unknown \`$1' option"
+ echo 1>&2 "Try \`$0 --help' for more information"
+ exit 1
+ ;;
+
+ aclocal)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified \`acinclude.m4' or \`configure.in'. You might want
+ to install the \`Automake' and \`Perl' packages. Grab them from
+ any GNU archive site."
+ touch aclocal.m4
+ ;;
+
+ autoconf)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified \`configure.in'. You might want to install the
+ \`Autoconf' and \`GNU m4' packages. Grab them from any GNU
+ archive site."
+ touch configure
+ ;;
+
+ autoheader)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified \`acconfig.h' or \`configure.in'. You might want
+ to install the \`Autoconf' and \`GNU m4' packages. Grab them
+ from any GNU archive site."
+ files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' configure.in`
+ test -z "$files" && files="config.h"
+ touch_files=
+ for f in $files; do
+ case "$f" in
+ *:*) touch_files="$touch_files "`echo "$f" |
+ sed -e 's/^[^:]*://' -e 's/:.*//'`;;
+ *) touch_files="$touch_files $f.in";;
+ esac
+ done
+ touch $touch_files
+ ;;
+
+ automake)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified \`Makefile.am', \`acinclude.m4' or \`configure.in'.
+ You might want to install the \`Automake' and \`Perl' packages.
+ Grab them from any GNU archive site."
+ find . -type f -name Makefile.am -print |
+ sed 's/\.am$/.in/' |
+ while read f; do touch "$f"; done
+ ;;
+
+ bison|yacc)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified a \`.y' file. You may need the \`Bison' package
+ in order for those modifications to take effect. You can get
+ \`Bison' from any GNU archive site."
+ rm -f y.tab.c y.tab.h
+ if [ $# -ne 1 ]; then
+ eval LASTARG="\${$#}"
+ case "$LASTARG" in
+ *.y)
+ SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" y.tab.c
+ fi
+ SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" y.tab.h
+ fi
+ ;;
+ esac
+ fi
+ if [ ! -f y.tab.h ]; then
+ echo >y.tab.h
+ fi
+ if [ ! -f y.tab.c ]; then
+ echo 'main() { return 0; }' >y.tab.c
+ fi
+ ;;
+
+ lex|flex)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified a \`.l' file. You may need the \`Flex' package
+ in order for those modifications to take effect. You can get
+ \`Flex' from any GNU archive site."
+ rm -f lex.yy.c
+ if [ $# -ne 1 ]; then
+ eval LASTARG="\${$#}"
+ case "$LASTARG" in
+ *.l)
+ SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" lex.yy.c
+ fi
+ ;;
+ esac
+ fi
+ if [ ! -f lex.yy.c ]; then
+ echo 'main() { return 0; }' >lex.yy.c
+ fi
+ ;;
+
+ help2man)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified a dependency of a manual page. You may need the
+ \`Help2man' package in order for those modifications to take
+ effect. You can get \`Help2man' from any GNU archive site."
+
+ file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'`
+ if test -z "$file"; then
+ file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'`
+ fi
+ if [ -f "$file" ]; then
+ touch $file
+ else
+ test -z "$file" || exec >$file
+ echo ".ab help2man is required to generate this page"
+ exit 1
+ fi
+ ;;
+
+ makeinfo)
+ echo 1>&2 "\
+WARNING: \`$1' is missing on your system. You should only need it if
+ you modified a \`.texi' or \`.texinfo' file, or any other file
+ indirectly affecting the aspect of the manual. The spurious
+ call might also be the consequence of using a buggy \`make' (AIX,
+ DU, IRIX). You might want to install the \`Texinfo' package or
+ the \`GNU make' package. Grab either from any GNU archive site."
+ file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'`
+ if test -z "$file"; then
+ file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'`
+ file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file`
+ fi
+ touch $file
+ ;;
+
+ tar)
+ shift
+ if test -n "$run"; then
+ echo 1>&2 "ERROR: \`tar' requires --run"
+ exit 1
+ fi
+
+ # We have already tried tar in the generic part.
+ # Look for gnutar/gtar before invocation to avoid ugly error
+ # messages.
+ if (gnutar --version > /dev/null 2>&1); then
+ gnutar ${1+"$@"} && exit 0
+ fi
+ if (gtar --version > /dev/null 2>&1); then
+ gtar ${1+"$@"} && exit 0
+ fi
+ firstarg="$1"
+ if shift; then
+ case "$firstarg" in
+ *o*)
+ firstarg=`echo "$firstarg" | sed s/o//`
+ tar "$firstarg" ${1+"$@"} && exit 0
+ ;;
+ esac
+ case "$firstarg" in
+ *h*)
+ firstarg=`echo "$firstarg" | sed s/h//`
+ tar "$firstarg" ${1+"$@"} && exit 0
+ ;;
+ esac
+ fi
+
+ echo 1>&2 "\
+WARNING: I can't seem to be able to run \`tar' with the given arguments.
+ You may want to install GNU tar or Free paxutils, or check the
+ command line arguments."
+ exit 1
+ ;;
+
+ *)
+ echo 1>&2 "\
+WARNING: \`$1' is needed, and you do not seem to have it handy on your
+ system. You might have modified some files without having the
+ proper tools for further handling them. Check the \`README' file,
+ it often tells you about the needed prerequirements for installing
+ this package. You may also peek at any GNU archive site, in case
+ some other package would contain this missing \`$1' program."
+ exit 1
+ ;;
+esac
+
+exit 0
diff --git a/missing_d/COPYING.LIB b/missing_d/COPYING.LIB
new file mode 100644
index 00000000..161a3d1d
--- /dev/null
+++ b/missing_d/COPYING.LIB
@@ -0,0 +1,482 @@
+ GNU LIBRARY GENERAL PUBLIC LICENSE
+ Version 2, June 1991
+
+ Copyright (C) 1991 Free Software Foundation, Inc.
+ 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+[This is the first released version of the library GPL. It is
+ numbered 2 because it goes with version 2 of the ordinary GPL.]
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+Licenses are intended to guarantee your freedom to share and change
+free software--to make sure the software is free for all its users.
+
+ This license, the Library General Public License, applies to some
+specially designated Free Software Foundation software, and to any
+other libraries whose authors decide to use it. You can use it for
+your libraries, too.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+ To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if
+you distribute copies of the library, or if you modify it.
+
+ For example, if you distribute copies of the library, whether gratis
+or for a fee, you must give the recipients all the rights that we gave
+you. You must make sure that they, too, receive or can get the source
+code. If you link a program with the library, you must provide
+complete object files to the recipients so that they can relink them
+with the library, after making changes to the library and recompiling
+it. And you must show them these terms so they know their rights.
+
+ Our method of protecting your rights has two steps: (1) copyright
+the library, and (2) offer you this license which gives you legal
+permission to copy, distribute and/or modify the library.
+
+ Also, for each distributor's protection, we want to make certain
+that everyone understands that there is no warranty for this free
+library. If the library is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original
+version, so that any problems introduced by others will not reflect on
+the original authors' reputations.
+
+ Finally, any free program is threatened constantly by software
+patents. We wish to avoid the danger that companies distributing free
+software will individually obtain patent licenses, thus in effect
+transforming the program into proprietary software. To prevent this,
+we have made it clear that any patent must be licensed for everyone's
+free use or not licensed at all.
+
+ Most GNU software, including some libraries, is covered by the ordinary
+GNU General Public License, which was designed for utility programs. This
+license, the GNU Library General Public License, applies to certain
+designated libraries. This license is quite different from the ordinary
+one; be sure to read it in full, and don't assume that anything in it is
+the same as in the ordinary license.
+
+ The reason we have a separate public license for some libraries is that
+they blur the distinction we usually make between modifying or adding to a
+program and simply using it. Linking a program with a library, without
+changing the library, is in some sense simply using the library, and is
+analogous to running a utility program or application program. However, in
+a textual and legal sense, the linked executable is a combined work, a
+derivative of the original library, and the ordinary General Public License
+treats it as such.
+
+ Because of this blurred distinction, using the ordinary General
+Public License for libraries did not effectively promote software
+sharing, because most developers did not use the libraries. We
+concluded that weaker conditions might promote sharing better.
+
+ However, unrestricted linking of non-free programs would deprive the
+users of those programs of all benefit from the free status of the
+libraries themselves. This Library General Public License is intended to
+permit developers of non-free programs to use free libraries, while
+preserving your freedom as a user of such programs to change the free
+libraries that are incorporated in them. (We have not seen how to achieve
+this as regards changes in header files, but we have achieved it as regards
+changes in the actual functions of the Library.) The hope is that this
+will lead to faster development of free libraries.
+
+ The precise terms and conditions for copying, distribution and
+modification follow. Pay close attention to the difference between a
+"work based on the library" and a "work that uses the library". The
+former contains code derived from the library, while the latter only
+works together with the library.
+
+ Note that it is possible for a library to be covered by the ordinary
+General Public License rather than by this special one.
+
+ GNU LIBRARY GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License Agreement applies to any software library which
+contains a notice placed by the copyright holder or other authorized
+party saying it may be distributed under the terms of this Library
+General Public License (also called "this License"). Each licensee is
+addressed as "you".
+
+ A "library" means a collection of software functions and/or data
+prepared so as to be conveniently linked with application programs
+(which use some of those functions and data) to form executables.
+
+ The "Library", below, refers to any such software library or work
+which has been distributed under these terms. A "work based on the
+Library" means either the Library or any derivative work under
+copyright law: that is to say, a work containing the Library or a
+portion of it, either verbatim or with modifications and/or translated
+straightforwardly into another language. (Hereinafter, translation is
+included without limitation in the term "modification".)
+
+ "Source code" for a work means the preferred form of the work for
+making modifications to it. For a library, complete source code means
+all the source code for all modules it contains, plus any associated
+interface definition files, plus the scripts used to control compilation
+and installation of the library.
+
+ Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running a program using the Library is not restricted, and output from
+such a program is covered only if its contents constitute a work based
+on the Library (independent of the use of the Library in a tool for
+writing it). Whether that is true depends on what the Library does
+and what the program that uses the Library does.
+
+ 1. You may copy and distribute verbatim copies of the Library's
+complete source code as you receive it, in any medium, provided that
+you conspicuously and appropriately publish on each copy an
+appropriate copyright notice and disclaimer of warranty; keep intact
+all the notices that refer to this License and to the absence of any
+warranty; and distribute a copy of this License along with the
+Library.
+
+ You may charge a fee for the physical act of transferring a copy,
+and you may at your option offer warranty protection in exchange for a
+fee.
+
+ 2. You may modify your copy or copies of the Library or any portion
+of it, thus forming a work based on the Library, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) The modified work must itself be a software library.
+
+ b) You must cause the files modified to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ c) You must cause the whole of the work to be licensed at no
+ charge to all third parties under the terms of this License.
+
+ d) If a facility in the modified Library refers to a function or a
+ table of data to be supplied by an application program that uses
+ the facility, other than as an argument passed when the facility
+ is invoked, then you must make a good faith effort to ensure that,
+ in the event an application does not supply such function or
+ table, the facility still operates, and performs whatever part of
+ its purpose remains meaningful.
+
+ (For example, a function in a library to compute square roots has
+ a purpose that is entirely well-defined independent of the
+ application. Therefore, Subsection 2d requires that any
+ application-supplied function or table used by this function must
+ be optional: if the application does not supply it, the square
+ root function must still compute square roots.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Library,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Library, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote
+it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Library.
+
+In addition, mere aggregation of another work not based on the Library
+with the Library (or with a work based on the Library) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may opt to apply the terms of the ordinary GNU General Public
+License instead of this License to a given copy of the Library. To do
+this, you must alter all the notices that refer to this License, so
+that they refer to the ordinary GNU General Public License, version 2,
+instead of to this License. (If a newer version than version 2 of the
+ordinary GNU General Public License has appeared, then you can specify
+that version instead if you wish.) Do not make any other change in
+these notices.
+
+ Once this change is made in a given copy, it is irreversible for
+that copy, so the ordinary GNU General Public License applies to all
+subsequent copies and derivative works made from that copy.
+
+ This option is useful when you wish to copy part of the code of
+the Library into a program that is not a library.
+
+ 4. You may copy and distribute the Library (or a portion or
+derivative of it, under Section 2) in object code or executable form
+under the terms of Sections 1 and 2 above provided that you accompany
+it with the complete corresponding machine-readable source code, which
+must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange.
+
+ If distribution of object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the
+source code from the same place satisfies the requirement to
+distribute the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 5. A program that contains no derivative of any portion of the
+Library, but is designed to work with the Library by being compiled or
+linked with it, is called a "work that uses the Library". Such a
+work, in isolation, is not a derivative work of the Library, and
+therefore falls outside the scope of this License.
+
+ However, linking a "work that uses the Library" with the Library
+creates an executable that is a derivative of the Library (because it
+contains portions of the Library), rather than a "work that uses the
+library". The executable is therefore covered by this License.
+Section 6 states terms for distribution of such executables.
+
+ When a "work that uses the Library" uses material from a header file
+that is part of the Library, the object code for the work may be a
+derivative work of the Library even though the source code is not.
+Whether this is true is especially significant if the work can be
+linked without the Library, or if the work is itself a library. The
+threshold for this to be true is not precisely defined by law.
+
+ If such an object file uses only numerical parameters, data
+structure layouts and accessors, and small macros and small inline
+functions (ten lines or less in length), then the use of the object
+file is unrestricted, regardless of whether it is legally a derivative
+work. (Executables containing this object code plus portions of the
+Library will still fall under Section 6.)
+
+ Otherwise, if the work is a derivative of the Library, you may
+distribute the object code for the work under the terms of Section 6.
+Any executables containing that work also fall under Section 6,
+whether or not they are linked directly with the Library itself.
+
+ 6. As an exception to the Sections above, you may also compile or
+link a "work that uses the Library" with the Library to produce a
+work containing portions of the Library, and distribute that work
+under terms of your choice, provided that the terms permit
+modification of the work for the customer's own use and reverse
+engineering for debugging such modifications.
+
+ You must give prominent notice with each copy of the work that the
+Library is used in it and that the Library and its use are covered by
+this License. You must supply a copy of this License. If the work
+during execution displays copyright notices, you must include the
+copyright notice for the Library among them, as well as a reference
+directing the user to the copy of this License. Also, you must do one
+of these things:
+
+ a) Accompany the work with the complete corresponding
+ machine-readable source code for the Library including whatever
+ changes were used in the work (which must be distributed under
+ Sections 1 and 2 above); and, if the work is an executable linked
+ with the Library, with the complete machine-readable "work that
+ uses the Library", as object code and/or source code, so that the
+ user can modify the Library and then relink to produce a modified
+ executable containing the modified Library. (It is understood
+ that the user who changes the contents of definitions files in the
+ Library will not necessarily be able to recompile the application
+ to use the modified definitions.)
+
+ b) Accompany the work with a written offer, valid for at
+ least three years, to give the same user the materials
+ specified in Subsection 6a, above, for a charge no more
+ than the cost of performing this distribution.
+
+ c) If distribution of the work is made by offering access to copy
+ from a designated place, offer equivalent access to copy the above
+ specified materials from the same place.
+
+ d) Verify that the user has already received a copy of these
+ materials or that you have already sent this user a copy.
+
+ For an executable, the required form of the "work that uses the
+Library" must include any data and utility programs needed for
+reproducing the executable from it. However, as a special exception,
+the source code distributed need not include anything that is normally
+distributed (in either source or binary form) with the major
+components (compiler, kernel, and so on) of the operating system on
+which the executable runs, unless that component itself accompanies
+the executable.
+
+ It may happen that this requirement contradicts the license
+restrictions of other proprietary libraries that do not normally
+accompany the operating system. Such a contradiction means you cannot
+use both them and the Library together in an executable that you
+distribute.
+
+ 7. You may place library facilities that are a work based on the
+Library side-by-side in a single library together with other library
+facilities not covered by this License, and distribute such a combined
+library, provided that the separate distribution of the work based on
+the Library and of the other library facilities is otherwise
+permitted, and provided that you do these two things:
+
+ a) Accompany the combined library with a copy of the same work
+ based on the Library, uncombined with any other library
+ facilities. This must be distributed under the terms of the
+ Sections above.
+
+ b) Give prominent notice with the combined library of the fact
+ that part of it is a work based on the Library, and explaining
+ where to find the accompanying uncombined form of the same work.
+
+ 8. You may not copy, modify, sublicense, link with, or distribute
+the Library except as expressly provided under this License. Any
+attempt otherwise to copy, modify, sublicense, link with, or
+distribute the Library is void, and will automatically terminate your
+rights under this License. However, parties who have received copies,
+or rights, from you under this License will not have their licenses
+terminated so long as such parties remain in full compliance.
+
+ 9. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Library or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Library (or any work based on the
+Library), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Library or works based on it.
+
+ 10. Each time you redistribute the Library (or any work based on the
+Library), the recipient automatically receives a license from the
+original licensor to copy, distribute, link with or modify the Library
+subject to these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+ 11. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Library at all. For example, if a patent
+license would not permit royalty-free redistribution of the Library by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Library.
+
+If any portion of this section is held invalid or unenforceable under any
+particular circumstance, the balance of the section is intended to apply,
+and the section as a whole is intended to apply in other circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 12. If the distribution and/or use of the Library is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Library under this License may add
+an explicit geographical distribution limitation excluding those countries,
+so that distribution is permitted only in or among countries not thus
+excluded. In such case, this License incorporates the limitation as if
+written in the body of this License.
+
+ 13. The Free Software Foundation may publish revised and/or new
+versions of the Library General Public License from time to time.
+Such new versions will be similar in spirit to the present version,
+but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Library
+specifies a version number of this License which applies to it and
+"any later version", you have the option of following the terms and
+conditions either of that version or of any later version published by
+the Free Software Foundation. If the Library does not specify a
+license version number, you may choose any version ever published by
+the Free Software Foundation.
+
+ 14. If you wish to incorporate parts of the Library into other free
+programs whose distribution conditions are incompatible with these,
+write to the author to ask for permission. For software which is
+copyrighted by the Free Software Foundation, write to the Free
+Software Foundation; we sometimes make exceptions for this. Our
+decision will be guided by the two goals of preserving the free status
+of all derivatives of our free software and of promoting the sharing
+and reuse of software generally.
+
+ NO WARRANTY
+
+ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ Appendix: How to Apply These Terms to Your New Libraries
+
+ If you develop a new library, and you want it to be of the greatest
+possible use to the public, we recommend making it free software that
+everyone can redistribute and change. You can do so by permitting
+redistribution under these terms (or, alternatively, under the terms of the
+ordinary General Public License).
+
+ To apply these terms, attach the following notices to the library. It is
+safest to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least the
+"copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the library's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with this library; if not, write to the Free
+ Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+ MA 02111-1307, USA
+
+Also add information on how to contact you by electronic and paper mail.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the library, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the
+ library `Frob' (a library for tweaking knobs) written by James Random Hacker.
+
+ <signature of Ty Coon>, 1 April 1990
+ Ty Coon, President of Vice
+
+That's all there is to it!
diff --git a/missing/memcmp.c b/missing_d/memcmp.c
index 63cb5f8f..63cb5f8f 100644
--- a/missing/memcmp.c
+++ b/missing_d/memcmp.c
diff --git a/missing/memcpy.c b/missing_d/memcpy.c
index 3c4accdf..3c4accdf 100644
--- a/missing/memcpy.c
+++ b/missing_d/memcpy.c
diff --git a/missing/memset.c b/missing_d/memset.c
index 1ff4458b..1ff4458b 100644
--- a/missing/memset.c
+++ b/missing_d/memset.c
diff --git a/missing_d/mktime.c b/missing_d/mktime.c
new file mode 100644
index 00000000..fab599d8
--- /dev/null
+++ b/missing_d/mktime.c
@@ -0,0 +1,425 @@
+/* Copyright (C) 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Paul Eggert (eggert@twinsun.com).
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public License as
+ published by the Free Software Foundation; either version 2 of the
+ License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+/* Define this to have a standalone program to test this implementation of
+ mktime. */
+/* #define DEBUG 1 */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#ifdef _LIBC
+# define HAVE_LIMITS_H 1
+# define HAVE_LOCALTIME_R 1
+# define STDC_HEADERS 1
+#endif
+
+/* Assume that leap seconds are possible, unless told otherwise.
+ If the host has a `zic' command with a `-L leapsecondfilename' option,
+ then it supports leap seconds; otherwise it probably doesn't. */
+#ifndef LEAP_SECONDS_POSSIBLE
+#define LEAP_SECONDS_POSSIBLE 1
+#endif
+
+#ifndef VMS
+#include <sys/types.h> /* Some systems define `time_t' here. */
+#else
+#include <stddef.h>
+#endif
+#include <time.h>
+
+#if HAVE_LIMITS_H
+#include <limits.h>
+#endif
+
+#if DEBUG
+#include <stdio.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+/* Make it work even if the system's libc has its own mktime routine. */
+#define mktime my_mktime
+#endif /* DEBUG */
+
+#ifndef __P
+#if defined (__GNUC__) || (defined (__STDC__) && __STDC__)
+#define __P(args) args
+#else
+#define __P(args) ()
+#endif /* GCC. */
+#endif /* Not __P. */
+
+#ifndef CHAR_BIT
+#define CHAR_BIT 8
+#endif
+
+#ifndef INT_MIN
+#define INT_MIN (~0 << (sizeof (int) * CHAR_BIT - 1))
+#endif
+#ifndef INT_MAX
+#define INT_MAX (~0 - INT_MIN)
+#endif
+
+#ifndef TIME_T_MIN
+#define TIME_T_MIN (0 < (time_t) -1 ? (time_t) 0 \
+ : ~ (time_t) 0 << (sizeof (time_t) * CHAR_BIT - 1))
+#endif
+#ifndef TIME_T_MAX
+#define TIME_T_MAX (~ (time_t) 0 - TIME_T_MIN)
+#endif
+
+#define TM_YEAR_BASE 1900
+#define EPOCH_YEAR 1970
+
+#ifndef __isleap
+/* Nonzero if YEAR is a leap year (every 4 years,
+ except every 100th isn't, and every 400th is). */
+#define __isleap(year) \
+ ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
+#endif
+
+/* How many days come before each month (0-12). */
+const unsigned short int __mon_yday[2][13] =
+ {
+ /* Normal years. */
+ { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
+ /* Leap years. */
+ { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
+ };
+
+static time_t ydhms_tm_diff __P ((int, int, int, int, int, const struct tm *));
+time_t __mktime_internal __P ((struct tm *,
+ struct tm *(*) (const time_t *, struct tm *),
+ time_t *));
+
+
+static struct tm *my_localtime_r __P ((const time_t *, struct tm *));
+static struct tm *
+my_localtime_r (t, tp)
+ const time_t *t;
+ struct tm *tp;
+{
+ struct tm *l = localtime (t);
+ if (! l)
+ return 0;
+ *tp = *l;
+ return tp;
+}
+
+
+/* Yield the difference between (YEAR-YDAY HOUR:MIN:SEC) and (*TP),
+ measured in seconds, ignoring leap seconds.
+ YEAR uses the same numbering as TM->tm_year.
+ All values are in range, except possibly YEAR.
+ If overflow occurs, yield the low order bits of the correct answer. */
+static time_t
+ydhms_tm_diff (year, yday, hour, min, sec, tp)
+ int year, yday, hour, min, sec;
+ const struct tm *tp;
+{
+ /* Compute intervening leap days correctly even if year is negative.
+ Take care to avoid int overflow. time_t overflow is OK, since
+ only the low order bits of the correct time_t answer are needed.
+ Don't convert to time_t until after all divisions are done, since
+ time_t might be unsigned. */
+ int a4 = (year >> 2) + (TM_YEAR_BASE >> 2) - ! (year & 3);
+ int b4 = (tp->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (tp->tm_year & 3);
+ int a100 = a4 / 25 - (a4 % 25 < 0);
+ int b100 = b4 / 25 - (b4 % 25 < 0);
+ int a400 = a100 >> 2;
+ int b400 = b100 >> 2;
+ int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400);
+ time_t years = year - (time_t) tp->tm_year;
+ time_t days = (365 * years + intervening_leap_days
+ + (yday - tp->tm_yday));
+ return (60 * (60 * (24 * days + (hour - tp->tm_hour))
+ + (min - tp->tm_min))
+ + (sec - tp->tm_sec));
+}
+
+
+static time_t localtime_offset;
+
+/* Convert *TP to a time_t value. */
+time_t
+mktime (tp)
+ struct tm *tp;
+{
+#ifdef _LIBC
+ /* POSIX.1 8.1.1 requires that whenever mktime() is called, the
+ time zone names contained in the external variable `tzname' shall
+ be set as if the tzset() function had been called. */
+ __tzset ();
+#endif
+
+ return __mktime_internal (tp, my_localtime_r, &localtime_offset);
+}
+
+/* Convert *TP to a time_t value, inverting
+ the monotonic and mostly-unit-linear conversion function CONVERT.
+ Use *OFFSET to keep track of a guess at the offset of the result,
+ compared to what the result would be for UTC without leap seconds.
+ If *OFFSET's guess is correct, only one CONVERT call is needed. */
+time_t
+__mktime_internal (tp, convert, offset)
+ struct tm *tp;
+ struct tm *(*convert) __P ((const time_t *, struct tm *));
+ time_t *offset;
+{
+ time_t t, dt, t0;
+ struct tm tm;
+
+ /* The maximum number of probes (calls to CONVERT) should be enough
+ to handle any combinations of time zone rule changes, solar time,
+ and leap seconds. Posix.1 prohibits leap seconds, but some hosts
+ have them anyway. */
+ int remaining_probes = 4;
+
+ /* Time requested. Copy it in case CONVERT modifies *TP; this can
+ occur if TP is localtime's returned value and CONVERT is localtime. */
+ int sec = tp->tm_sec;
+ int min = tp->tm_min;
+ int hour = tp->tm_hour;
+ int mday = tp->tm_mday;
+ int mon = tp->tm_mon;
+ int year_requested = tp->tm_year;
+ int isdst = tp->tm_isdst;
+
+ /* Ensure that mon is in range, and set year accordingly. */
+ int mon_remainder = mon % 12;
+ int negative_mon_remainder = mon_remainder < 0;
+ int mon_years = mon / 12 - negative_mon_remainder;
+ int year = year_requested + mon_years;
+
+ /* The other values need not be in range:
+ the remaining code handles minor overflows correctly,
+ assuming int and time_t arithmetic wraps around.
+ Major overflows are caught at the end. */
+
+ /* Calculate day of year from year, month, and day of month.
+ The result need not be in range. */
+ int yday = ((__mon_yday[__isleap (year + TM_YEAR_BASE)]
+ [mon_remainder + 12 * negative_mon_remainder])
+ + mday - 1);
+
+#if LEAP_SECONDS_POSSIBLE
+ /* Handle out-of-range seconds specially,
+ since ydhms_tm_diff assumes every minute has 60 seconds. */
+ int sec_requested = sec;
+ if (sec < 0)
+ sec = 0;
+ if (59 < sec)
+ sec = 59;
+#endif
+
+ /* Invert CONVERT by probing. First assume the same offset as last time.
+ Then repeatedly use the error to improve the guess. */
+
+ tm.tm_year = EPOCH_YEAR - TM_YEAR_BASE;
+ tm.tm_yday = tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
+ t0 = ydhms_tm_diff (year, yday, hour, min, sec, &tm);
+
+ for (t = t0 + *offset;
+ (dt = ydhms_tm_diff (year, yday, hour, min, sec, (*convert) (&t, &tm)));
+ t += dt)
+ if (--remaining_probes == 0)
+ return -1;
+
+ /* Check whether tm.tm_isdst has the requested value, if any. */
+ if (0 <= isdst && 0 <= tm.tm_isdst)
+ {
+ int dst_diff = (isdst != 0) - (tm.tm_isdst != 0);
+ if (dst_diff)
+ {
+ /* Move two hours in the direction indicated by the disagreement,
+ probe some more, and switch to a new time if found.
+ The largest known fallback due to daylight savings is two hours:
+ once, in Newfoundland, 1988-10-30 02:00 -> 00:00. */
+ time_t ot = t - 2 * 60 * 60 * dst_diff;
+ while (--remaining_probes != 0)
+ {
+ struct tm otm;
+ if (! (dt = ydhms_tm_diff (year, yday, hour, min, sec,
+ (*convert) (&ot, &otm))))
+ {
+ t = ot;
+ tm = otm;
+ break;
+ }
+ if ((ot += dt) == t)
+ break; /* Avoid a redundant probe. */
+ }
+ }
+ }
+
+ *offset = t - t0;
+
+#if LEAP_SECONDS_POSSIBLE
+ if (sec_requested != tm.tm_sec)
+ {
+ /* Adjust time to reflect the tm_sec requested, not the normalized value.
+ Also, repair any damage from a false match due to a leap second. */
+ t += sec_requested - sec + (sec == 0 && tm.tm_sec == 60);
+ (*convert) (&t, &tm);
+ }
+#endif
+
+ if (TIME_T_MAX / INT_MAX / 366 / 24 / 60 / 60 < 3)
+ {
+ /* time_t isn't large enough to rule out overflows in ydhms_tm_diff,
+ so check for major overflows. A gross check suffices,
+ since if t has overflowed, it is off by a multiple of
+ TIME_T_MAX - TIME_T_MIN + 1. So ignore any component of
+ the difference that is bounded by a small value. */
+
+ double dyear = (double) year_requested + mon_years - tm.tm_year;
+ double dday = 366 * dyear + mday;
+ double dsec = 60 * (60 * (24 * dday + hour) + min) + sec_requested;
+
+ if (TIME_T_MAX / 3 - TIME_T_MIN / 3 < (dsec < 0 ? - dsec : dsec))
+ return -1;
+ }
+
+ *tp = tm;
+ return t;
+}
+
+#ifdef weak_alias
+weak_alias (mktime, timelocal)
+#endif
+
+#if DEBUG
+
+static int
+not_equal_tm (a, b)
+ struct tm *a;
+ struct tm *b;
+{
+ return ((a->tm_sec ^ b->tm_sec)
+ | (a->tm_min ^ b->tm_min)
+ | (a->tm_hour ^ b->tm_hour)
+ | (a->tm_mday ^ b->tm_mday)
+ | (a->tm_mon ^ b->tm_mon)
+ | (a->tm_year ^ b->tm_year)
+ | (a->tm_mday ^ b->tm_mday)
+ | (a->tm_yday ^ b->tm_yday)
+ | (a->tm_isdst ^ b->tm_isdst));
+}
+
+static void
+print_tm (tp)
+ struct tm *tp;
+{
+ printf ("%04d-%02d-%02d %02d:%02d:%02d yday %03d wday %d isdst %d",
+ tp->tm_year + TM_YEAR_BASE, tp->tm_mon + 1, tp->tm_mday,
+ tp->tm_hour, tp->tm_min, tp->tm_sec,
+ tp->tm_yday, tp->tm_wday, tp->tm_isdst);
+}
+
+static int
+check_result (tk, tmk, tl, tml)
+ time_t tk;
+ struct tm tmk;
+ time_t tl;
+ struct tm tml;
+{
+ if (tk != tl || not_equal_tm (&tmk, &tml))
+ {
+ printf ("mktime (");
+ print_tm (&tmk);
+ printf (")\nyields (");
+ print_tm (&tml);
+ printf (") == %ld, should be %ld\n", (long) tl, (long) tk);
+ return 1;
+ }
+
+ return 0;
+}
+
+int
+main (argc, argv)
+ int argc;
+ char **argv;
+{
+ int status = 0;
+ struct tm tm, tmk, tml;
+ time_t tk, tl;
+ char trailer;
+
+ if ((argc == 3 || argc == 4)
+ && (sscanf (argv[1], "%d-%d-%d%c",
+ &tm.tm_year, &tm.tm_mon, &tm.tm_mday, &trailer)
+ == 3)
+ && (sscanf (argv[2], "%d:%d:%d%c",
+ &tm.tm_hour, &tm.tm_min, &tm.tm_sec, &trailer)
+ == 3))
+ {
+ tm.tm_year -= TM_YEAR_BASE;
+ tm.tm_mon--;
+ tm.tm_isdst = argc == 3 ? -1 : atoi (argv[3]);
+ tmk = tm;
+ tl = mktime (&tmk);
+ tml = *localtime (&tl);
+ printf ("mktime returns %ld == ", (long) tl);
+ print_tm (&tmk);
+ printf ("\n");
+ status = check_result (tl, tmk, tl, tml);
+ }
+ else if (argc == 4 || (argc == 5 && strcmp (argv[4], "-") == 0))
+ {
+ time_t from = atol (argv[1]);
+ time_t by = atol (argv[2]);
+ time_t to = atol (argv[3]);
+
+ if (argc == 4)
+ for (tl = from; tl <= to; tl += by)
+ {
+ tml = *localtime (&tl);
+ tmk = tml;
+ tk = mktime (&tmk);
+ status |= check_result (tk, tmk, tl, tml);
+ }
+ else
+ for (tl = from; tl <= to; tl += by)
+ {
+ /* Null benchmark. */
+ tml = *localtime (&tl);
+ tmk = tml;
+ tk = tl;
+ status |= check_result (tk, tmk, tl, tml);
+ }
+ }
+ else
+ printf ("Usage:\
+\t%s YYYY-MM-DD HH:MM:SS [ISDST] # Test given time.\n\
+\t%s FROM BY TO # Test values FROM, FROM+BY, ..., TO.\n\
+\t%s FROM BY TO - # Do not test those values (for benchmark).\n",
+ argv[0], argv[0], argv[0]);
+
+ return status;
+}
+
+#endif /* DEBUG */
+
+/*
+Local Variables:
+compile-command: "gcc -DDEBUG=1 -Wall -O -g mktime.c -o mktime"
+End:
+*/
diff --git a/missing/strchr.c b/missing_d/strchr.c
index 7da479fc..7da479fc 100644
--- a/missing/strchr.c
+++ b/missing_d/strchr.c
diff --git a/missing/strerror.c b/missing_d/strerror.c
index 6a725995..6a725995 100644
--- a/missing/strerror.c
+++ b/missing_d/strerror.c
diff --git a/missing/strftime.3 b/missing_d/strftime.3
index 0ccd7d33..b017bf45 100644
--- a/missing/strftime.3
+++ b/missing_d/strftime.3
@@ -9,13 +9,14 @@ strftime \- generate formatted time information
.sp
size_t strftime(char *s, size_t maxsize, const char *format,
const struct tm *timeptr);
+.fi
.SH DESCRIPTION
-The following description is transcribed verbatim from the December 7, 1988
-draft standard for ANSI C.
+The following description is transcribed verbatim from the January 18, 1999
+draft standard for ISO C.
This draft is essentially identical in technical content
to the final version of the standard.
.LP
-The
+``The
.B strftime
function places characters into the array pointed to by
.B s
@@ -28,7 +29,12 @@ The
string consists of zero or more conversion specifiers and ordinary
multibyte characters. A conversion specifier consists of a
.B %
-character followed by a character that determines the behavior of the
+character, possibly followed by an
+.B E
+or
+.B O
+modifier character (described below),
+followed by a character that determines the behavior of the
conversion specifier.
All ordinary multibyte characters (including the terminating null
character) are copied unchanged into the array.
@@ -36,13 +42,18 @@ If copying takes place between objects that overlap the behavior is undefined.
No more than
.B maxsize
characters are placed into the array.
-Each conversion specifier is replaced by appropriate characters as described
+.PP
+``Each conversion specifier is replaced by appropriate characters as described
in the following list.
The appropriate characters are determined by the
.B LC_TIME
-category of the current locale and by the values contained in the
+category of the current locale and by the values
+of zero or more members of the broken-down time
structure pointed to by
-.BR timeptr .
+.BR timeptr ,
+as specified by brackets in the description.
+If any of the specified values is outside the normal range, the characters
+stored are unspecified.''
.TP
.B %a
is replaced by the locale's abbreviated weekday name.
@@ -58,11 +69,47 @@ is replaced by the locale's full month name.
.TP
.B %c
is replaced by the locale's appropriate date and time representation.
+(This is
+.B "%A %B %d %T %Y"
+in the \fB"C"\fR
+locale.)
+.TP
+.B %C
+is replaced by the year divided by 100 and truncated to an integer,
+as a decimal number
+.RB ( 00 - 99 ).
.TP
.B %d
is replaced by the day of the month as a decimal number
.RB ( 01 - 31 ).
.TP
+.B %D
+is equivalent to
+.BR %m/%d/%y .
+.TP
+.B %e
+is replaced by the day of the month as a decimal number
+.RB ( 1 - 31 );
+a single digit is preceded by a space.
+.TP
+.B %F
+is equivalent to
+.B %Y\-%m\-%d
+(the ISO 8601 date format).
+.TP
+.B %g
+is replaced by the year without century of the ISO week number
+as a decimal number
+.RB ( 00 - 99 ).
+.TP
+.B %G
+is replaced by the year with century of the ISO week number
+as a decimal number.
+.TP
+.B %h
+is equivalent to
+.BR %b .
+.TP
.B %H
is replaced by the hour (24-hour clock) as a decimal number
.RB ( 00 - 23 ).
@@ -83,19 +130,49 @@ is replaced by the month as a decimal number
is replaced by the minute as a decimal number
.RB ( 00 - 59 ).
.TP
+.B %n
+is replaced with a newline character (\s-1ASCII LF\s+1).
+.TP
.B %p
is replaced by the locale's equivalent of the AM/PM designations associated
with a 12-hour clock.
.TP
+.B %r
+is replaced by the locale's 12-hour clock time.
+(This is
+.B "%I:%M:%S %p"
+in the \fB"C"\fR
+locale.)
+.TP
+.B %R
+is equivalent to
+.BR %H:%M .
+.TP
.B %S
is replaced by the second as a decimal number
.RB ( 00 - 60 ).
.TP
+.B %t
+is replaced with a \s-1TAB\s+1 character.
+.TP
+.B %T
+is equivalent to
+.BR %H:%M:%S .
+.TP
+.B %u
+is replaced by the ISO 8601 weekday as a decimal number
+.RB [ "1 " (Monday)- 7 ].
+.TP
.B %U
is replaced by the week number of the year (the first Sunday as the first
day of week 1) as a decimal number
.RB ( 00 - 53 ).
.TP
+.B %V
+is replaced by the ISO 8601 week number of the year (the first Monday as the first
+day of week 1) as a decimal number
+.RB ( 01 - 53 ).
+.TP
.B %w
is replaced by the weekday as a decimal number
.RB [ "0 " (Sunday)- 6 ].
@@ -107,9 +184,17 @@ day of week 1) as a decimal number
.TP
.B %x
is replaced by the locale's appropriate date representation.
+(This is
+.B "%A %B %d %Y"
+in the \fB"C"\fR
+locale.)
.TP
.B %X
is replaced by the locale's appropriate time representation.
+(This is
+.B "%T"
+in the \fB"C"\fR
+locale.)
.TP
.B %y
is replaced by the year without century as a decimal number
@@ -118,6 +203,10 @@ is replaced by the year without century as a decimal number
.B %Y
is replaced by the year with century as a decimal number.
.TP
+.B %z
+The timezone offset in a +HHMM format (e.g. the format necessary to
+produce RFC-822/RFC-1036 date headers).
+.TP
.B %Z
is replaced by the time zone name or abbreviation, or by no characters if
no time zone is determinable.
@@ -139,48 +228,44 @@ by
.B s
not including the terminating null character.
Otherwise, zero is returned and the contents of the array are indeterminate.
-.SH NON-ANSI EXTENSIONS
-If
-.B SYSV_EXT
-is defined when the routine is compiled, then the following additional
-conversions will be available.
-These are borrowed from the System V
-.IR cftime (3)
-and
-.IR ascftime (3)
-routines.
-.TP
-.B %D
-is equivalent to specifying
-.BR %m/%d/%y .
-.TP
-.B %e
-is replaced by the day of the month,
-padded with a blank if it is only one digit.
-.TP
-.B %h
-is equivalent to
-.BR %b ,
-above.
-.TP
-.B %n
-is replaced with a newline character (\s-1ASCII LF\s+1).
-.TP
-.B %r
-is equivalent to specifying
-.BR "%I:%M:%S %p" .
-.TP
-.B %R
-is equivalent to specifying
-.BR %H:%M .
-.TP
-.B %T
-is equivalent to specifying
-.BR %H:%M:%S .
-.TP
-.B %t
-is replaced with a \s-1TAB\s+1 character.
+.SH ISO 8601
+The method for determining the week number as specified by ISO 8601 is:
+if the week containing January 1 has four or more days in the
+new year, then it is week 1, otherwise it is the highest numbered
+week of the previous year (52 or 53)
+and the next week is week 1.
+All days in a new year preceding the first Monday are considered to be
+in week 0.
.PP
+For example, January 1, 1993, is in week 53 of 1992. Thus, the year
+of its ISO week number is 1992, even though its year is 1993.
+Similarly, December 31, 1973, is in week 1 of 1974. Thus, the year
+of its ISO week number is 1974, even though its year is 1973.
+.SH ALTERNATE REPRESENTATIONS
+The alternate representations
+.BR %Ec ,
+.BR %EC ,
+.BR %Ex ,
+.BR %EX ,
+.BR %Ey ,
+.BR %EY ,
+.BR %Od ,
+.BR %Oe ,
+.BR %OH ,
+.BR %OI ,
+.BR %Om ,
+.BR %OM ,
+.BR %OS ,
+.BR %Ou ,
+.BR %OU ,
+.BR %OV ,
+.BR %Ow ,
+.BR %OW ,
+and
+.B %Oy
+are recognized, but their normal representations are used.
+.SH NON-ISO EXTENSIONS
+.SS SunOS Extensions
If
.B SUNOS_EXT
is defined when the routine is compiled, then the following additional
@@ -197,7 +282,7 @@ Single digit numbers are padded with a blank.
is replaced by the hour (12-hour clock) as a decimal number
.RB ( 1 - 12 ).
Single digit numbers are padded with a blank.
-.PP
+.SS HP/UX Extensions
If
.B HPUX_EXT
is defined when the routine is compiled, then the following additional
@@ -205,21 +290,6 @@ conversions will be available.
These are borrowed from the HP-UX version of
.IR date .
.TP
-.B %E
-The combined ``Emporer/Era'' name and year
-(same as
-.B %Y ).
-This is only available if
-.B POSIX2_DATE
-is
-.I not
-defined.
-.TP
-.B %F
-Same as
-.BR %B .
-(Marked as obsolescent in the HP-UX documentation.)
-.TP
.B %N
The ``Emporer/Era'' name.
Typically, this is equivalent to the century
@@ -231,128 +301,26 @@ The ``Emporer/Era'' year.
Typically, this is equivalent to the year
(same as
.B %y ).
-.TP
-.B %z
-The timezone name or abbreviation.
-This is only available if
-.B MAILHEADER_EXT
-is
-.I not
-defined.
-.SH POSIX 1003.2 EXTENSIONS
-If
-.B POSIX2_DATE
-is defined, then all of the conversions available with
-.B SYSV_EXT
-and
-.B SUNOS_EXT
-are available, as well as the
-following additional conversions:
-.TP
-.B %C
-The century, as a number between 00 and 99.
-.TP
-.B %u
-is replaced by the weekday as a decimal number
-.RB [ "1 " (Monday)- 7 ].
-.TP
-.B %V
-is replaced by the week number of the year (the first Monday as the first
-day of week 1) as a decimal number
-.RB ( 01 - 53 ).
-The method for determining the week number is as specified by ISO 8601
-(to wit: if the week containing January 1 has four or more days in the
-new year, then it is week 1, otherwise it is the highest numbered
-week of the previous year (52 or 53)
-and the next week is week 1).
-.LP
-The text of the POSIX standard for the
-.I date
-utility describes
-.B %U
-and
-.B %W
-this way:
-.TP
-.B %U
-is replaced by the week number of the year (the first Sunday as the first
-day of week 1) as a decimal number
-.RB ( 00 - 53 ).
-All days in a new year preceding the first Sunday are considered to be
-in week 0.
-.TP
-.B %W
-is replaced by the week number of the year (the first Monday as the first
-day of week 1) as a decimal number
-.RB ( 00 - 53 ).
-All days in a new year preceding the first Monday are considered to be
-in week 0.
-.LP
-In addition, the alternate representations
-.BR %Ec ,
-.BR %EC ,
-.BR %Ex ,
-.BR %Ey ,
-.BR %EY ,
-.BR %Od ,
-.BR %Oe ,
-.BR %OH ,
-.BR %OI ,
-.BR %Om ,
-.BR %OM ,
-.BR %OS ,
-.BR %Ou ,
-.BR %OU ,
-.BR %OV ,
-.BR %Ow ,
-.BR %OW ,
-and
-.B %Oy
-are recognized, but their normal representations are used.
-.SH VMS EXTENSIONS
+.SS VMS Extensions
If
.B VMS_EXT
is defined, then the following additional conversion is available:
.TP
.B %v
The date in VMS format (e.g. 20-JUN-1991).
-.SH MAIL HEADER EXTENSIONS
-If
-.B MAILHEADER_EXT
-is defined, then the following additional conversion is available:
-.TP
-.B %z
-The timezone offset in a +HHMM format (e.g. the format necessary to
-produce RFC-822/RFC-1036 date headers).
-.SH ISO DATE FORMAT EXTENSIONS
+.SS Other Extensions
If
-.B ISO_DATE_EXT
-is defined, then all of the conversions available with
-.BR POSIX2_DATE,
-.BR SYSV_EXT,
-and
-.B SUNOS_EXT
-are available, as well as the
-following additional conversions:
-.TP
-.B %G
-is replaced by the year with century of the ISO week number (see
-.BR %V ,
-above) as a decimal number.
+.B HAVE_MKTIME
+is defined, then this conversion is available:
.TP
-.B %g
-is replaced by the year without century of the ISO week number,
-as a decimal number
-.RB ( 00 - 99 ).
-.PP
-For example, January 1, 1993, is in week 53 of 1992. Thus, the year
-of its ISO week number is 1992, even though its year is 1993.
-Similarly, December 31, 1973, is in week 1 of 1974. Thus, the year
-of its ISO week number is 1974, even though its year is 1973.
+.B %s
+The time in ``seconds since the Epoch,''
+usually Midnight January 1, 1970, UTC.
.SH SEE ALSO
.IR time (2),
.IR ctime (3),
.IR localtime (3),
+.IR mktime (3),
.IR tzset (3)
.SH BUGS
This version does not handle multibyte characters or pay attention to the
@@ -365,7 +333,7 @@ The ``appropriate'' values used for
.BR %x ,
are
.B %X
-are those specified by the 1003.2 standard for the POSIX locale.
+are always those specified by the 1999 ISO C standard for the \fB"C"\fR locale.
.SH CAVEATS
The pre-processor symbol
.B POSIX_SEMANTICS
@@ -379,11 +347,7 @@ If this routine will be used in an application that will not be changing
then there may be some performance improvements by not defining
.BR POSIX_SEMANTICS .
.SH AUTHOR
-.nf
-Arnold Robbins
-.sp
-INTERNET: arnold@skeeve.com
-.fi
+Arnold Robbins <arnold@skeeve.com>
.SH ACKNOWLEDGEMENTS
Thanks to Geoff Clare <gwc@root.co.uk> for helping debug earlier
versions of this routine, and for advice about POSIX semantics.
diff --git a/missing/strftime.c b/missing_d/strftime.c
index 56412d21..d291e8fd 100644
--- a/missing/strftime.c
+++ b/missing_d/strftime.c
@@ -1,21 +1,21 @@
/*
* strftime.c
*
- * Public-domain implementation of ANSI C library routine.
+ * Public-domain implementation of ISO C library routine.
*
- * It's written in old-style C for maximal portability.
- * However, since I'm used to prototypes, I've included them too.
+ * If you can't do prototypes, get GCC.
+ *
+ * The C99 standard now specifies just about all of the formats
+ * that were additional in the earlier versions of this file.
*
- * If you want stuff in the System V ascftime routine, add the SYSV_EXT define.
* For extensions from SunOS, add SUNOS_EXT.
- * For stuff needed to implement the P1003.2 date command, add POSIX2_DATE.
+ * For extensions from HP/UX, add HPUX_EXT.
* For VMS dates, add VMS_EXT.
- * For an RFC822 time format, add MAILHEADER_EXT.
- * For ISO week years, add ISO_DATE_EXT.
* For complete POSIX semantics, add POSIX_SEMANTICS.
*
- * The code for %c, %x, and %X now follows the 1003.2 specification for
- * the POSIX locale.
+ * The code for %c, %x, and %X follows the C99 specification for
+ * the "C" locale.
+ *
* This version ignores LOCALE information.
* It also doesn't worry about multi-byte characters.
* So there.
@@ -34,25 +34,27 @@
* Updated January, 1996
* Updated July, 1997
* Updated October, 1999
+ * Updated September, 2000
*
- * Fixes from ado@elsie.nci.nih.gov
+ * Fixes from ado@elsie.nci.nih.gov,
* February 1991, May 1992
- * Fixes from Tor Lillqvist tml@tik.vtt.fi
- * May, 1993
- * Further fixes from ado@elsie.nci.nih.gov
+ * Fixes from Tor Lillqvist tml@tik.vtt.fi,
+ * May 1993
+ * Further fixes from ado@elsie.nci.nih.gov,
* February 1994
- * %z code from chip@chinacat.unicom.com
+ * %z code from chip@chinacat.unicom.com,
* Applied September 1995
* %V code fixed (again) and %G, %g added,
* January 1996
- * %v code fixed, better configuration
+ * %v code fixed, better configuration,
* July 1997
+ * Moved to C99 specification.
+ * September 2000
*/
#ifndef GAWK
#include <stdio.h>
#include <ctype.h>
-#include <string.h>
#include <time.h>
#endif
#if defined(TM_IN_SYS_TIME) || ! defined(GAWK)
@@ -60,61 +62,22 @@
#include <sys/time.h>
#endif
+#include <stdlib.h>
+#include <string.h>
+
/* defaults: season to taste */
-#define SYSV_EXT 1 /* stuff in System V ascftime routine */
#define SUNOS_EXT 1 /* stuff in SunOS strftime routine */
-#define POSIX2_DATE 1 /* stuff in Posix 1003.2 date command */
#define VMS_EXT 1 /* include %v for VMS date format */
-#define MAILHEADER_EXT 1 /* add %z for HHMM format */
-#define ISO_DATE_EXT 1 /* %G and %g for year of ISO week */
-#define HPUX_EXT 1 /* stuff in HP-UX date command */
+#define HPUX_EXT 1 /* non-conflicting stuff in HP-UX date */
#ifndef GAWK
#define POSIX_SEMANTICS 1 /* call tzset() if TZ changes */
#endif
-#if defined(ISO_DATE_EXT)
-#if ! defined(POSIX2_DATE)
-#define POSIX2_DATE 1
-#endif
-#endif
-
-#if defined(POSIX2_DATE)
-#if ! defined(SYSV_EXT)
-#define SYSV_EXT 1
-#endif
-#if ! defined(SUNOS_EXT)
-#define SUNOS_EXT 1
-#endif
-#endif
-
-#if defined(POSIX2_DATE)
-#define adddecl(stuff) stuff
-#else
-#define adddecl(stuff)
-#endif
-
#undef strchr /* avoid AIX weirdness */
-#ifndef __STDC__
-#define const /**/
-extern void tzset();
-static int weeknumber();
-adddecl(static int iso8601wknum();)
-#else
extern void tzset(void);
static int weeknumber(const struct tm *timeptr, int firstweekday);
-adddecl(static int iso8601wknum(const struct tm *timeptr);)
-#endif
-
-#ifdef STDC_HEADERS
-#include <stdlib.h>
-#include <string.h>
-#else
-extern void *malloc();
-extern void *realloc();
-extern char *getenv();
-extern char *strchr();
-#endif
+static int iso8601wknum(const struct tm *timeptr);
#ifdef __GNUC__
#define inline __inline__
@@ -138,14 +101,8 @@ extern int timezone, altzone;
/* min --- return minimum of two numbers */
-#ifndef __STDC__
-static inline int
-min(a, b)
-int a, b;
-#else
static inline int
min(int a, int b)
-#endif
{
return (a < b ? a : b);
}
@@ -154,31 +111,16 @@ min(int a, int b)
/* max --- return maximum of two numbers */
-#ifndef __STDC__
-static inline int
-max(a, b)
-int a, b;
-#else
static inline int
max(int a, int b)
-#endif
{
return (a > b ? a : b);
}
/* strftime --- produce formatted time */
-#ifndef __STDC__
-size_t
-strftime(s, maxsize, format, timeptr)
-char *s;
-size_t maxsize;
-const char *format;
-const struct tm *timeptr;
-#else
size_t
strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
-#endif
{
char *endp = s + maxsize;
char *start = s;
@@ -293,19 +235,14 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
strcpy(tbuf, days_l[timeptr->tm_wday]);
break;
-#ifdef SYSV_EXT
- case 'h': /* abbreviated month name */
-#endif
case 'b': /* abbreviated month name */
+ short_month:
if (timeptr->tm_mon < 0 || timeptr->tm_mon > 11)
strcpy(tbuf, "?");
else
strcpy(tbuf, months_a[timeptr->tm_mon]);
break;
-#ifdef HPUX_EXT
- case 'F':
-#endif
case 'B': /* full month name */
if (timeptr->tm_mon < 0 || timeptr->tm_mon > 11)
strcpy(tbuf, "?");
@@ -314,7 +251,19 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
break;
case 'c': /* appropriate date and time representation */
- strftime(tbuf, sizeof tbuf, "%a %b %e %H:%M:%S %Y", timeptr);
+ /*
+ * This used to be:
+ *
+ * strftime(tbuf, sizeof tbuf, "%a %b %e %H:%M:%S %Y", timeptr);
+ *
+ * Now, per the ISO 1999 C standard, it this:
+ */
+ strftime(tbuf, sizeof tbuf, "%A %B %d %T %Y", timeptr);
+ break;
+
+ case 'C':
+ century:
+ sprintf(tbuf, "%02d", (timeptr->tm_year + 1900) / 100);
break;
case 'd': /* day of the month, 01 - 31 */
@@ -322,6 +271,50 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
sprintf(tbuf, "%02d", i);
break;
+ case 'D': /* date as %m/%d/%y */
+ strftime(tbuf, sizeof tbuf, "%m/%d/%y", timeptr);
+ break;
+
+ case 'e': /* day of month, blank padded */
+ sprintf(tbuf, "%2d", range(1, timeptr->tm_mday, 31));
+ break;
+
+ case 'E':
+ /* POSIX (now C99) locale extensions, ignored for now */
+ goto again;
+
+ case 'F': /* ISO 8601 date representation */
+ strftime(tbuf, sizeof tbuf, "%Y-%m-%d", timeptr);
+ break;
+
+ case 'g':
+ case 'G':
+ /*
+ * Year of ISO week.
+ *
+ * If it's December but the ISO week number is one,
+ * that week is in next year.
+ * If it's January but the ISO week number is 52 or
+ * 53, that week is in last year.
+ * Otherwise, it's this year.
+ */
+ w = iso8601wknum(timeptr);
+ if (timeptr->tm_mon == 11 && w == 1)
+ y = 1900 + timeptr->tm_year + 1;
+ else if (timeptr->tm_mon == 0 && w >= 52)
+ y = 1900 + timeptr->tm_year - 1;
+ else
+ y = 1900 + timeptr->tm_year;
+
+ if (*format == 'G')
+ sprintf(tbuf, "%d", y);
+ else
+ sprintf(tbuf, "%02d", y % 100);
+ break;
+
+ case 'h': /* abbreviated month name */
+ goto short_month;
+
case 'H': /* hour, 24-hour clock, 00 - 23 */
i = range(0, timeptr->tm_hour, 23);
sprintf(tbuf, "%02d", i);
@@ -350,20 +343,14 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
sprintf(tbuf, "%02d", i);
break;
-#ifdef HPUX_EXT
- case 'N': /* Emperor/Era name */
- /* this is essentially the same as the century */
- goto century; /* %C */
-
- case 'o': /* Emperor/Era year */
- goto year; /* %y */
-
-#ifndef POSIX2_DATE
- case 'E': /* Combined Emporer/Era name and year */
- goto fullyear; /* %Y */
+ case 'n': /* same as \n */
+ tbuf[0] = '\n';
+ tbuf[1] = '\0';
+ break;
-#endif /* POSIX2_DATE */
-#endif /* HPUX_EXT */
+ case 'O':
+ /* POSIX (now C99) locale extensions, ignored for now */
+ goto again;
case 'p': /* am or pm based on 12-hour clock */
i = range(0, timeptr->tm_hour, 23);
@@ -373,15 +360,54 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
strcpy(tbuf, ampm[1]);
break;
+ case 'r': /* time as %I:%M:%S %p */
+ strftime(tbuf, sizeof tbuf, "%I:%M:%S %p", timeptr);
+ break;
+
+ case 'R': /* time as %H:%M */
+ strftime(tbuf, sizeof tbuf, "%H:%M", timeptr);
+ break;
+
+#if defined(HAVE_MKTIME) || defined(GAWK)
+ case 's': /* time as seconds since the Epoch */
+ {
+ struct tm non_const_timeptr;
+
+ non_const_timeptr = *timeptr;
+ sprintf(tbuf, "%ld", mktime(& non_const_timeptr));
+ break;
+ }
+#endif /* defined(HAVE_MKTIME) || defined(GAWK) */
+
case 'S': /* second, 00 - 60 */
i = range(0, timeptr->tm_sec, 60);
sprintf(tbuf, "%02d", i);
break;
+ case 't': /* same as \t */
+ tbuf[0] = '\t';
+ tbuf[1] = '\0';
+ break;
+
+ case 'T': /* time as %H:%M:%S */
+ the_time:
+ strftime(tbuf, sizeof tbuf, "%H:%M:%S", timeptr);
+ break;
+
+ case 'u':
+ /* ISO 8601: Weekday as a decimal number [1 (Monday) - 7] */
+ sprintf(tbuf, "%d", timeptr->tm_wday == 0 ? 7 :
+ timeptr->tm_wday);
+ break;
+
case 'U': /* week of year, Sunday is first day of week */
sprintf(tbuf, "%02d", weeknumber(timeptr, 0));
break;
+ case 'V': /* week of year according ISO 8601 */
+ sprintf(tbuf, "%02d", iso8601wknum(timeptr));
+ break;
+
case 'w': /* weekday, Sunday == 0, 0 - 6 */
i = range(0, timeptr->tm_wday, 6);
sprintf(tbuf, "%d", i);
@@ -392,11 +418,11 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
break;
case 'x': /* appropriate date representation */
- strftime(tbuf, sizeof tbuf, "%m/%d/%y", timeptr);
+ strftime(tbuf, sizeof tbuf, "%A %B %d %Y", timeptr);
break;
case 'X': /* appropriate time representation */
- strftime(tbuf, sizeof tbuf, "%H:%M:%S", timeptr);
+ goto the_time;
break;
case 'y': /* year without a century, 00 - 99 */
@@ -410,7 +436,6 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
sprintf(tbuf, "%d", 1900 + timeptr->tm_year);
break;
-#ifdef MAILHEADER_EXT
/*
* From: Chip Rosenthal <chip@chinacat.unicom.com>
* Date: Sun, 19 Mar 1995 00:33:29 -0600 (CST)
@@ -460,11 +485,7 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
}
sprintf(tbuf+1, "%02d%02d", off/60, off%60);
break;
-#endif /* MAILHEADER_EXT */
-#if defined(HPUX_EXT) && ! defined(MAILHEADER_EXT)
- case 'z':
-#endif
case 'Z': /* time zone name or abbrevation */
#ifdef HAVE_TZNAME
i = (daylight && timeptr->tm_isdst > 0); /* 0 or 1 */
@@ -484,38 +505,6 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
#endif /* HAVE_TZNAME */
break;
-#ifdef SYSV_EXT
- case 'n': /* same as \n */
- tbuf[0] = '\n';
- tbuf[1] = '\0';
- break;
-
- case 't': /* same as \t */
- tbuf[0] = '\t';
- tbuf[1] = '\0';
- break;
-
- case 'D': /* date as %m/%d/%y */
- strftime(tbuf, sizeof tbuf, "%m/%d/%y", timeptr);
- break;
-
- case 'e': /* day of month, blank padded */
- sprintf(tbuf, "%2d", range(1, timeptr->tm_mday, 31));
- break;
-
- case 'r': /* time as %I:%M:%S %p */
- strftime(tbuf, sizeof tbuf, "%I:%M:%S %p", timeptr);
- break;
-
- case 'R': /* time as %H:%M */
- strftime(tbuf, sizeof tbuf, "%H:%M", timeptr);
- break;
-
- case 'T': /* time as %H:%M:%S */
- strftime(tbuf, sizeof tbuf, "%H:%M:%S", timeptr);
- break;
-#endif
-
#ifdef SUNOS_EXT
case 'k': /* hour, 24-hour clock, blank pad */
sprintf(tbuf, "%2d", range(0, timeptr->tm_hour, 23));
@@ -531,6 +520,15 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
break;
#endif
+#ifdef HPUX_EXT
+ case 'N': /* Emperor/Era name */
+ /* this is essentially the same as the century */
+ goto century; /* %C */
+
+ case 'o': /* Emperor/Era year */
+ goto year; /* %y */
+#endif /* HPUX_EXT */
+
#ifdef VMS_EXT
case 'v': /* date as dd-bbb-YYYY */
@@ -544,56 +542,6 @@ strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
break;
#endif
-
-#ifdef POSIX2_DATE
- case 'C':
- century:
- sprintf(tbuf, "%02d", (timeptr->tm_year + 1900) / 100);
- break;
-
-
- case 'E':
- case 'O':
- /* POSIX locale extensions, ignored for now */
- goto again;
-
- case 'V': /* week of year according ISO 8601 */
- sprintf(tbuf, "%02d", iso8601wknum(timeptr));
- break;
-
- case 'u':
- /* ISO 8601: Weekday as a decimal number [1 (Monday) - 7] */
- sprintf(tbuf, "%d", timeptr->tm_wday == 0 ? 7 :
- timeptr->tm_wday);
- break;
-#endif /* POSIX2_DATE */
-
-#ifdef ISO_DATE_EXT
- case 'G':
- case 'g':
- /*
- * Year of ISO week.
- *
- * If it's December but the ISO week number is one,
- * that week is in next year.
- * If it's January but the ISO week number is 52 or
- * 53, that week is in last year.
- * Otherwise, it's this year.
- */
- w = iso8601wknum(timeptr);
- if (timeptr->tm_mon == 11 && w == 1)
- y = 1900 + timeptr->tm_year + 1;
- else if (timeptr->tm_mon == 0 && w >= 52)
- y = 1900 + timeptr->tm_year - 1;
- else
- y = 1900 + timeptr->tm_year;
-
- if (*format == 'G')
- sprintf(tbuf, "%d", y);
- else
- sprintf(tbuf, "%02d", y % 100);
- break;
-#endif /* ISO_DATE_EXT */
default:
tbuf[0] = '%';
tbuf[1] = *format;
@@ -619,30 +567,17 @@ out:
/* isleap --- is a year a leap year? */
-#ifndef __STDC__
-static int
-isleap(year)
-int year;
-#else
static int
isleap(int year)
-#endif
{
return ((year % 4 == 0 && year % 100 != 0) || year % 400 == 0);
}
-#ifdef POSIX2_DATE
/* iso8601wknum --- compute week number according to ISO 8601 */
-#ifndef __STDC__
-static int
-iso8601wknum(timeptr)
-const struct tm *timeptr;
-#else
static int
iso8601wknum(const struct tm *timeptr)
-#endif
{
/*
* From 1003.2:
@@ -747,21 +682,13 @@ iso8601wknum(const struct tm *timeptr)
return weeknum;
}
-#endif
/* weeknumber --- figure how many weeks into the year */
/* With thanks and tip of the hatlo to ado@elsie.nci.nih.gov */
-#ifndef __STDC__
-static int
-weeknumber(timeptr, firstweekday)
-const struct tm *timeptr;
-int firstweekday;
-#else
static int
weeknumber(const struct tm *timeptr, int firstweekday)
-#endif
{
int wday = timeptr->tm_wday;
int ret;
diff --git a/missing/strncasecmp.c b/missing_d/strncasecmp.c
index 9d17c648..9d17c648 100644
--- a/missing/strncasecmp.c
+++ b/missing_d/strncasecmp.c
diff --git a/missing/strtod.c b/missing_d/strtod.c
index 7e6cc0c4..cdcefe9f 100644
--- a/missing/strtod.c
+++ b/missing_d/strtod.c
@@ -19,6 +19,9 @@
* For speed, we don't do the conversion ourselves. Instead, we find
* the end of the number and then call atof() to do the dirty work.
* This bought us a 10% speedup on a sample program at uunet.uu.net.
+ *
+ * Fall 2000: Changed to enforce C89 semantics, so that 0x... returns 0.
+ * C99 has hexadecimal floating point numbers.
*/
#if 0
@@ -28,13 +31,13 @@
extern double atof();
double
-strtod(s, ptr)
-register char *s;
-register char **ptr;
+gawk_strtod(s, ptr)
+register const char *s;
+register const char **ptr;
{
double ret = 0.0;
- char *start = s;
- char *begin = NULL;
+ const char *start = s;
+ const char *begin = NULL;
int success = 0;
/* optional white space */
@@ -55,8 +58,10 @@ register char **ptr;
begin = s;
while (isdigit(*s)) {
+ /* don't succeed on 0x... */
+ if (*s > '0')
+ success++;
s++;
- success++;
}
if (*s == '.') {
@@ -77,13 +82,11 @@ register char **ptr;
* followed by an integer
*/
- if (*s == 'e' || *s == 'E') {
+ if ((*s == 'e' || *s == 'E')
+ && (isdigit(s[1])
+ || ((s[1] == '-' || s[1] == '+') && isdigit(s[2])))) {
s++;
- /* XXX - atof probably doesn't allow spaces here */
- while (isspace(*s))
- s++;
-
if (*s == '+' || *s == '-')
s++;
diff --git a/missing/system.c b/missing_d/system.c
index 11db9925..11db9925 100644
--- a/missing/system.c
+++ b/missing_d/system.c
diff --git a/missing/tzset.c b/missing_d/tzset.c
index 678ec66d..678ec66d 100644
--- a/missing/tzset.c
+++ b/missing_d/tzset.c
diff --git a/msg.c b/msg.c
index f8d2de8a..8b113c86 100644
--- a/msg.c
+++ b/msg.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -38,26 +38,23 @@ void err P((const char *s, const char *emsg, va_list argp));
/* VARARGS2 */
void
-err(s, emsg, argp)
-const char *s;
-const char *emsg;
-va_list argp;
+err(const char *s, const char *emsg, va_list argp)
{
char *file;
(void) fflush(stdout);
(void) fprintf(stderr, "%s: ", myname);
-#ifdef DEBUG
+#ifdef GAWKDEBUG
if (srcfile != NULL) {
fprintf(stderr, "%s:%d:", srcfile, srcline);
srcfile = NULL;
}
-#endif /* DEBUG */
+#endif /* GAWKDEBUG */
if (sourceline != 0) {
if (source != NULL)
(void) fprintf(stderr, "%s:", source);
else
- (void) fprintf(stderr, "cmd. line:");
+ (void) fprintf(stderr, _("cmd. line:"));
(void) fprintf(stderr, "%d: ", sourceline);
}
@@ -76,14 +73,18 @@ va_list argp;
/* msg --- take a varargs error message and print it */
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+/*
+ * Function identifier purposely indented to avoid mangling
+ * by ansi2knr. Sigh.
+ */
+
void
-msg(char *mesg, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ msg(char *mesg, ...)
#else
/*VARARGS0*/
-void
-msg(va_alist)
-va_dcl
+ msg(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -101,14 +102,13 @@ va_dcl
/* warning --- print a warning message */
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
void
-warning(char *mesg, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ warning(char *mesg, ...)
#else
/*VARARGS0*/
-void
-warning(va_alist)
-va_dcl
+ warning(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -120,18 +120,17 @@ va_dcl
va_start(args);
mesg = va_arg(args, char *);
#endif
- err("warning: ", mesg, args);
+ err(_("warning: "), mesg, args);
va_end(args);
}
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
void
-error(char *mesg, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ error(char *mesg, ...)
#else
/*VARARGS0*/
-void
-error(va_alist)
-va_dcl
+ error(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -143,16 +142,14 @@ va_dcl
va_start(args);
mesg = va_arg(args, char *);
#endif
- err("error: ", mesg, args);
+ err(_("error: "), mesg, args);
va_end(args);
}
/* set_loc --- set location where a fatal error happened */
void
-set_loc(file, line)
-char *file;
-int line;
+set_loc(char *file, int line)
{
srcfile = file;
srcline = line;
@@ -160,14 +157,13 @@ int line;
/* fatal --- print an error message and die */
-#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
void
-r_fatal(char *mesg, ...)
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ r_fatal(char *mesg, ...)
#else
/*VARARGS0*/
-void
-r_fatal(va_alist)
-va_dcl
+ r_fatal(va_alist)
+ va_dcl
#endif
{
va_list args;
@@ -179,11 +175,10 @@ va_dcl
va_start(args);
mesg = va_arg(args, char *);
#endif
- err("fatal: ", mesg, args);
+ err(_("fatal: "), mesg, args);
va_end(args);
-#ifdef DEBUG
+#ifdef GAWKDEBUG
abort();
#endif
exit(2);
}
-
diff --git a/node.c b/node.c
index 3a7b5f4a..a814f6e1 100644
--- a/node.c
+++ b/node.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -28,8 +28,7 @@
/* r_force_number --- force a value to be numeric */
AWKNUM
-r_force_number(n)
-register NODE *n;
+r_force_number(register NODE *n)
{
register char *cp;
register char *cpend;
@@ -38,7 +37,7 @@ register NODE *n;
unsigned int newflags;
extern double strtod();
-#ifdef DEBUG
+#ifdef GAWKDEBUG
if (n == NULL)
cant_happen();
if (n->type != Node_val)
@@ -53,19 +52,29 @@ register NODE *n;
n->numbr = 0.0;
n->flags |= NUM;
+ n->flags &= ~UNINITIALIZED;
- if (n->stlen == 0)
+ if (n->stlen == 0) {
+ if (0 && do_lint)
+ lintwarn(_("can't convert string to float"));
return 0.0;
+ }
cp = n->stptr;
- if (ISALPHA(*cp))
+ if (ISALPHA(*cp)) {
+ if (0 && do_lint)
+ lintwarn(_("can't convert string to float"));
return 0.0;
+ }
cpend = cp + n->stlen;
- while (cp < cpend && isspace(*cp))
+ while (cp < cpend && ISSPACE(*cp))
cp++;
- if (cp == cpend || isalpha(*cp))
+ if (cp == cpend || ISALPHA(*cp)) {
+ if (0 && do_lint)
+ lintwarn(_("can't convert string to float"));
return 0.0;
+ }
if (n->flags & MAYBE_NUM) {
newflags = NUMBER;
@@ -76,17 +85,18 @@ register NODE *n;
if (ISDIGIT(*cp)) {
n->numbr = (AWKNUM)(*cp - '0');
n->flags |= newflags;
- }
+ } else if (0 && do_lint)
+ lintwarn(_("can't convert string to float"));
return n->numbr;
}
-#ifdef NONDECDATA
- errno = 0;
- if (! do_traditional && isnondecimal(cp)) {
- n->numbr = nondec2awknum(cp, cpend - cp);
- goto finish;
+ if (do_non_decimal_data) {
+ errno = 0;
+ if (! do_traditional && isnondecimal(cp)) {
+ n->numbr = nondec2awknum(cp, cpend - cp);
+ goto finish;
+ }
}
-#endif /* NONDECDATA */
errno = 0;
save = *cpend;
@@ -99,10 +109,13 @@ register NODE *n;
*cpend = save;
finish:
/* the >= should be ==, but for SunOS 3.5 strtod() */
- if (errno == 0 && ptr >= cpend)
+ if (errno == 0 && ptr >= cpend) {
n->flags |= newflags;
- else
+ } else {
+ if (0 && do_lint && ptr < cpend)
+ lintwarn(_("can't convert string to float"));
errno = 0;
+ }
return n->numbr;
}
@@ -129,14 +142,23 @@ static const char *values[] = {
/* format_val --- format a numeric value based on format */
NODE *
-format_val(format, index, s)
-char *format;
-int index;
-register NODE *s;
+format_val(char *format, int index, register NODE *s)
{
- char buf[128];
+ char buf[BUFSIZ];
register char *sp = buf;
double val;
+ char *orig, *trans, save;
+
+ if (! do_traditional && (s->flags & INTLSTR) != 0) {
+ save = s->stptr[s->stlen];
+ s->stptr[s->stlen] = '\0';
+
+ orig = s->stptr;
+ trans = dgettext(TEXTDOMAIN, orig);
+
+ s->stptr[s->stlen] = save;
+ return tmp_string(trans, strlen(trans));
+ }
/* not an integral value, or out of range */
if ((val = double_to_int(s->numbr)) != s->numbr
@@ -153,16 +175,16 @@ register NODE *s;
NODE *dummy, *r;
unsigned short oflags;
- extern NODE *format_tree P((const char *, int, NODE *));
extern NODE **fmt_list; /* declared in eval.c */
/* create dummy node for a sole use of format_tree */
getnode(dummy);
+ dummy->type = Node_expression_list;
dummy->lnode = s;
dummy->rnode = NULL;
oflags = s->flags;
s->flags |= PERM; /* prevent from freeing by format_tree() */
- r = format_tree(format, fmt_list[index]->stlen, dummy);
+ r = format_tree(format, fmt_list[index]->stlen, dummy, 2);
s->flags = oflags;
s->stfmt = (char) index;
s->stlen = r->stlen;
@@ -189,24 +211,21 @@ register NODE *s;
no_malloc:
s->stref = 1;
s->flags |= STR;
+ s->flags &= ~UNINITIALIZED;
return s;
}
/* r_force_string --- force a value to be a string */
NODE *
-r_force_string(s)
-register NODE *s;
+r_force_string(register NODE *s)
{
-#ifdef DEBUG
+ NODE *ret;
+#ifdef GAWKDEBUG
if (s == NULL)
cant_happen();
if (s->type != Node_val)
cant_happen();
-/*
- if ((s->flags & NUM) == 0)
- cant_happen();
-*/
if (s->stref <= 0)
cant_happen();
if ((s->flags & STR) != 0
@@ -214,7 +233,8 @@ register NODE *s;
return s;
#endif
- return format_val(CONVFMT, CONVFMTidx, s);
+ ret = format_val(CONVFMT, CONVFMTidx, s);
+ return ret;
}
/*
@@ -224,8 +244,7 @@ register NODE *s;
*/
NODE *
-dupnode(n)
-NODE *n;
+dupnode(NODE *n)
{
register NODE *r;
@@ -234,6 +253,8 @@ NODE *n;
n->flags |= MALLOC;
return n;
}
+ if ((n->flags & PERM) != 0)
+ return n;
if ((n->flags & (MALLOC|STR)) == (MALLOC|STR)) {
if (n->stref < LONG_MAX)
n->stref++;
@@ -252,12 +273,26 @@ NODE *n;
return r;
}
+/* copy_node --- force a brand new copy of a node to be allocated */
+
+NODE *
+copynode(NODE *old)
+{
+ NODE *new;
+ int saveflags;
+
+ assert(old != NULL);
+ saveflags = old->flags;
+ old->flags &= ~(MALLOC|PERM);
+ new = dupnode(old);
+ old->flags = saveflags;
+ return new;
+}
+
/* mk_number --- allocate a node with defined number */
NODE *
-mk_number(x, flags)
-AWKNUM x;
-unsigned int flags;
+mk_number(AWKNUM x, unsigned int flags)
{
register NODE *r;
@@ -265,7 +300,7 @@ unsigned int flags;
r->type = Node_val;
r->numbr = x;
r->flags = flags | SCALAR;
-#ifdef DEBUG
+#ifdef GAWKDEBUG
r->stref = 1;
r->stptr = NULL;
r->stlen = 0;
@@ -276,10 +311,7 @@ unsigned int flags;
/* make_str_node --- make a string node */
NODE *
-make_str_node(s, len, flags)
-char *s;
-size_t len;
-int flags;
+make_str_node(char *s, size_t len, int flags)
{
register NODE *r;
@@ -307,7 +339,7 @@ int flags;
c = parse_escape(&pf);
if (c < 0) {
if (do_lint)
- warning("backslash at end of string");
+ lintwarn(_("backslash at end of string"));
c = '\\';
}
*ptm++ = c;
@@ -329,9 +361,7 @@ int flags;
/* tmp_string --- allocate a temporary string */
NODE *
-tmp_string(s, len)
-char *s;
-size_t len;
+tmp_string(char *s, size_t len)
{
register NODE *r;
@@ -352,9 +382,13 @@ more_nodes()
register NODE *np;
/* get more nodes and initialize list */
- emalloc(nextfree, NODE *, NODECHUNK * sizeof(NODE), "newnode");
+ emalloc(nextfree, NODE *, NODECHUNK * sizeof(NODE), "more_nodes");
for (np = nextfree; np <= &nextfree[NODECHUNK - 1]; np++) {
np->flags = 0;
+ np->flags |= UNINITIALIZED;
+#ifndef NO_PROFILING
+ np->exec_count = 0;
+#endif
np->nextp = np + 1;
}
--np;
@@ -364,37 +398,40 @@ more_nodes()
return np;
}
-#ifdef DEBUG
+#ifdef MEMDEBUG
+#undef freenode
/* freenode --- release a node back to the pool */
void
-freenode(it)
-NODE *it;
+freenode(NODE *it)
{
it->flags &= ~SCALAR;
+ it->flags |= UNINITIALIZED;
#ifdef MPROF
it->stref = 0;
free((char *) it);
#else /* not MPROF */
+#ifndef NO_PROFILING
+ it->exec_count = 0;
+#endif
/* add it to head of freelist */
it->nextp = nextfree;
nextfree = it;
#endif /* not MPROF */
}
-#endif /* DEBUG */
+#endif /* GAWKDEBUG */
/* unref --- remove reference to a particular node */
void
-unref(tmp)
-register NODE *tmp;
+unref(register NODE *tmp)
{
if (tmp == NULL)
return;
if ((tmp->flags & PERM) != 0)
return;
- if ((tmp->flags & (MALLOC|TEMP)) != 0) {
- tmp->flags &= ~TEMP;
+ tmp->flags &= ~TEMP;
+ if ((tmp->flags & MALLOC) != 0) {
if ((tmp->flags & STR) != 0) {
if (tmp->stref > 1) {
if (tmp->stref != LONG_MAX)
@@ -432,8 +469,7 @@ register NODE *tmp;
*/
int
-parse_escape(string_ptr)
-char **string_ptr;
+parse_escape(char **string_ptr)
{
register int c = *(*string_ptr)++;
register int i;
@@ -485,13 +521,13 @@ char **string_ptr;
if (! didwarn) {
didwarn = TRUE;
- warning("POSIX does not allow \"\\x\" escapes");
+ lintwarn(_("POSIX does not allow `\\x' escapes"));
}
}
if (do_posix)
return ('x');
- if (! isxdigit((*string_ptr)[0])) {
- warning("no hex digits in \\x escape sequence");
+ if (! ISXDIGIT((*string_ptr)[0])) {
+ warning(_("no hex digits in `\\x' escape sequence"));
return ('x');
}
i = 0;
@@ -512,19 +548,22 @@ char **string_ptr;
}
}
return i;
+ case '\\':
+ case '"':
+ return c;
default:
- if (do_lint) {
- static short warned[256];
- unsigned char uc = (unsigned char) c;
+ {
+ static short warned[256];
+ unsigned char uc = (unsigned char) c;
- /* N.B.: use unsigned char here to avoid Latin-1 problems */
+ /* N.B.: use unsigned char here to avoid Latin-1 problems */
- if (! warned[uc]) {
- warned[uc] = TRUE;
+ if (! warned[uc]) {
+ warned[uc] = TRUE;
- warning("escape sequence `\\%c' treated as plain `%c'", uc, uc);
- }
+ warning(_("escape sequence `\\%c' treated as plain `%c'"), uc, uc);
}
+ }
return c;
}
}
diff --git a/patchlev.h b/patchlev.h
new file mode 100644
index 00000000..2867bba9
--- /dev/null
+++ b/patchlev.h
@@ -0,0 +1 @@
+#define PATCHLEVEL 0
diff --git a/patchlevel.h b/patchlevel.h
deleted file mode 100644
index e44bc091..00000000
--- a/patchlevel.h
+++ /dev/null
@@ -1 +0,0 @@
-#define PATCHLEVEL 6
diff --git a/pc/ChangeLog b/pc/ChangeLog
index 84c48ecb..c572b1bb 100644
--- a/pc/ChangeLog
+++ b/pc/ChangeLog
@@ -1,3 +1,70 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Tue Jan 30 10:56:05 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * config.h: Per Kay Uwe Rommel, turn on HAVE_FCNTL_H for
+ all PC platforms so that BINMODE works on all.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * gawkmisc.pc (gawk_name): Support file names with mixed forward-
+ and back-slashes.
+ (orig_tty_mode): New variable.
+ (os_setbinmode): Save the original mode of the console device.
+ [__DJGPP__]: Allow the program to be interrupted with Ctrl-C even
+ though the console was switched to binary mode.
+ (os_restore_mode): New function.
+
+Wed Jan 17 10:59:32 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * gawkmisc.pc (os_close_on_exec) [__DJGPP__]: Don't print the
+ warning about failure to set close-on-exec bit, unless it's DJGPP
+ 2.04 or later.
+
+Wed Jan 3 19:11:00 2001 Darrel Hankerson <hankedr@auburn.edu>
+
+ * popen.c: write script files in binary only if the shell is
+ unix-like.
+ * Makefile: set threshold (-Gt) on MSC 16bit versions to obtain
+ sufficient stack. 3.0.91 builtin.c compiles with optimization,
+ in MSC[67], so remove the special compile
+
+Wed Jan 3 19:54:12 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * config.h, gawkmisc.pc: Allow fcntl if DGJPP. From Scott.
+
+Sun Dec 3 16:53:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.pc (os_setbinmode): new function.
+
+Sun Dec 3 14:56:38 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile, Makefile.tst, gawkmisc.pc: updated from Scottd.
+ * popen.c: updated from Darrell Hankerson.
+
+Wed Nov 22 11:47:00 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawk.rsp, pc_popen.c, pc_popen.h, Makefile, Makefile.tst,
+ gawkmisc.pc: Synched with diffs from Scott Deifik.
+ * config.h: Updated from main dist, best guess by me, will
+ probably need tweaking.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.pc (os_is_setuid): new function.
+
+Thu Nov 5 16:50:09 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * gawkmisc.pc (os_devopen): handle "/dev/null".
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Close-on-exec changes:
+ gawkmisc.pc: (os_close_on_exec, os_isdir): new functions.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -16,7 +83,7 @@ Thu May 18 14:07:52 2000 Scott Deifik <scottd@amgen.com>
* config.h: Define HAVE_LIMITS_H as 1.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Sun Jun 27 12:27:00 1999 Darrel Hankerson <hankedr@mail.auburn.edu>
@@ -65,14 +132,6 @@ Thu Nov 08 09:11:44 1998 Scott Deifik <scottd@amgen.com>
test/Makefile.in. In addition, made to work in Windows 9x
with non-LFN tools.
-Wed Nov 4 11:32:24 1998 Arnold D. Robbins <arnold@gnu.org>
-
- * BETA Release 3.0.41: Release tar file made.
-
-Thu Oct 8 19:36:57 1998 Arnold D. Robbins <arnold@gnu.org>
-
- * BETA Release 3.0.40: Release tar file made.
-
Thu May 15 12:49:08 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
* Release 3.0.3: Release tar file made.
diff --git a/pc/Makefile b/pc/Makefile
index 627a9612..9dd8f350 100755..100644
--- a/pc/Makefile
+++ b/pc/Makefile
@@ -1,4 +1,4 @@
-# Makefile for gawk (GNU awk) 31 Oct 1998
+# Makefile for gawk (GNU awk) Dec 2000
#
# - for GNU C (djgpp) [32bit executable for DOS]
# - for GNU C (emx) [32bit executable for OS/2 or DOS or Win32]
@@ -182,8 +182,8 @@ STDARGV = setargv.obj
# Optimization and library options:
# Os == optimize for size, Ot == optimize for speed, G2 == 286 or better
-#MSCOPT = -Os -G2
-MSCOPT = -Ot # -G2
+#MSCOPT = -Gt3600 -Os -G2
+MSCOPT = -Gt3600 -Ot # -G2
# Alternate lib, does not use math coprocessor.
#MSCLIB = llibca
#MSCCL = -FPa
@@ -192,7 +192,8 @@ MSCLIB = llibce
MSCCL = -FPi
#MSCCL = -FPc
-LMSC = link $(LF) $(LNKRSP) $(STDARGV)/NOE,$@,,/NOD:llibce $(MSCLIB)$(LF2)/STACK:0x4990,nul
+# If the stack gets much smaller than 3000, the "longwrds" test fails.
+LMSC = link $(LF) $(LNKRSP) $(STDARGV)/NOE,$@,,/NOD:llibce $(MSCLIB)$(LF2)/STACK:0x4320,nul
# CLMSC-linking works when building under OS/2
CLMSC = $(CC) -o $@ $(LF) $(GAWKOBJS) $(STDARGV) $(LF2) -link /NOE/NOI/STACK:0x6f00
@@ -225,8 +226,8 @@ msc-debug:
LNK=LMSC LF2=/CO P=+
msc6:
- $(MAK) builtin.obj \
- "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -Za $(MSCOPT) -Od"
+# $(MAK) builtin.obj \
+# "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -Za $(MSCOPT) -Od"
$(MAK) all \
"CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -Za $(MSCOPT)" \
OBJ=popen.obj \
@@ -235,15 +236,15 @@ Lmsc6 = $(LMSC) # for broken makes (nmake) which cannot expand $($X)
Bmsc6 =
msc6os2:
- $(MAK) builtin.obj \
- "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -DOS2 -UMSDOS $(MSCOPT) -Od"
+# $(MAK) builtin.obj \
+# "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -DOS2 -UMSDOS $(MSCOPT) -Od"
$(MAK) all \
"CC=cl $(MSCCL)" O=.obj "CF=-AL -DOS2 -UMSDOS $(MSCOPT)" \
LNK=LMSC "LF2=p,gawk.def" P=+
msc6bnd:
- $(MAK) builtin.obj \
- "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -DOS2 $(MSCOPT) -Od"
+# $(MAK) builtin.obj \
+# "CC=cl -nologo $(MSCCL)" O=.obj "CF=-AL -DOS2 $(MSCOPT) -Od"
$(MAK) all \
"CC=cl $(MSCCL)" O=.obj "CF=-AL -DOS2 $(MSCOPT)" \
OBJ=popen.obj \
@@ -288,10 +289,10 @@ CFLAGS = $(CF) -DGAWK -I. -DHAVE_CONFIG_H
# object files
AWKOBJS1 = array$O builtin$O eval$O field$O gawkmisc$O io$O main$O
-AWKOBJS2 = missing$O msg$O node$O re$O version$O
+AWKOBJS2 = ext$O msg$O node$O profile$O re$O version$O
AWKOBJS = $(AWKOBJS1) $(AWKOBJS2)
-ALLOBJS = $(AWKOBJS) awktab$O getid$O $(OBJ)
+ALLOBJS = $(AWKOBJS) awkgram$O getid$O $(OBJ)
# LIBOBJS
# GNU and other stuff that gawk uses as library routines.
@@ -316,7 +317,7 @@ gawk.exe:: $(GAWKOBJS) $(RSP)
$(RSPFILE) : $(GAWKOBJS)
echo $(AWKOBJS1)$P > $@
echo $(AWKOBJS2)$P >> $@
- echo awktab$O getid$O $(OBJ) $(LIBOBJS)$P >> $@
+ echo awkgram$O getid$O $(OBJ) $(LIBOBJS)$P >> $@
$(ALLOBJS): awk.h dfa.h regex.h config.h
@@ -326,14 +327,14 @@ getopt$O: getopt.h
getopt1$O: getopt.h
-main$O: patchlevel.h
+main$O: patchlev.h
# A bug in ndmake requires the following rule
-awktab$O: awk.h awktab.c
- $(CC) -c $(CFLAGS) awktab.c
+awkgram$O: awk.h awkgram.c
+ $(CC) -c $(CFLAGS) awkgram.c
-awktab.c: awk.y
- bison -o $@ awk.y
+awkgram.c: awkgram.y
+ bison -o $@ awkgram.y
alloca$O: alloca.c
diff --git a/pc/Makefile.tst b/pc/Makefile.tst
index 4ad5d2ef..af62e8b8 100755..100644
--- a/pc/Makefile.tst
+++ b/pc/Makefile.tst
@@ -1,6 +1,6 @@
# Makefile for GNU Awk test suite.
#
-# Copyright (C) 1988-2000 the Free Software Foundation, Inc.
+# Copyright (C) 1988-2001 the Free Software Foundation, Inc.
#
# This file is part of GAWK, the GNU implementation of the
# AWK Programming Language.
@@ -41,37 +41,18 @@
# need: rm, tr, cmp (or diff, see above), cat, wc, and sh.
# You should also have a UNIX-compatible date program.
#
-# 3. You will need a \tmp directory on the same drive as the test directory
-# for the poundba (called poundbang in the UNIX makefile) test.
-#
# The makefile has only been tested with dmake 3.8 and DJGPP Make 3.74 or
# later. After making all of these changes, typing "dmake bigtest extra"
# or "make bigtest extra" (with DJGPP Make) should run successfully.
-# So far, most of the testing has been with Stewartson's sh 2.3 under
-# MS-DOS & OS/2. That version of sh will sometimes send long
-# command-line arguments to programs using the @ notation. You may need
-# to disable this feature of sh for programs that you have which don't support
-# that feature. The DJGPP response file facility is incompatible with the
-# one used by Stewartson's sh, so you will certainly need to disable it if you
-# use DJGPP tools to run the tests. For more information about the @ notation
-# please refer to the sh documentation.
-#
-# A beta of the Bash shell (compiled with djgpp) was tested for gawk-3.0.1,
-# and worked very well with the djgpp-compiled gawk. See README.pc for
+# The Bash shell (compiled with djgpp) works very well with the
+# MSC & djgpp-compiled gawks. It is currently the recommended shell to use
+# for testing, along with DJGPP make. See README.pc for
# more information on OS/2 and DOS shells.
# You will almost certainly need to change some of the values (MACROS)
# defined on the next few lines.
-# .USESHELL is used by dmake.
-.USESHELL = yes
-
-# Using EMXSHELL=/bin/sh with emx versions can exhaust lower mem.
-# Lower mem can also be exhausted on some of the tests even with MSC gawk.
-# The .SWAP setting forces (DOS-only) dmake to swap itself out.
-.SWAP: childin fflush getlnhd tweakfld pipeio1 pipeio2 getlnbuf
-
# This won't work unless you have "sh" and set SHELL equal to it (Make 3.74
# or later which comes with DJGPP will work with SHELL=/bin/sh if you have
# sh.exe anywhere on your PATH).
@@ -80,6 +61,9 @@ SHELL = /bin/sh
# Point to gawk
AWK = ../gawk.exe
+# Also point to gawk but for DOS commands needing backslashes. We need
+# the forward slash version too or 'arrayparam' fails.
+AWK2 = '..\gawk.exe'
# Set your cmp command here (you can use most versions of diff instead of cmp
# if you don't want to convert the .ok files to the DOS CR/LF format).
@@ -100,20 +84,20 @@ CMP = env LFN=n diff
#CMP = diff -c
#CMP = gcmp
-# Set your "cp" and "mkdir" commands here. Note: cp must take forward
-# slashes. Using "command -c" may work for MS-DOS with Stewartson's shell
-# (but not bash) if "command=noexpand switch export" is set in extend.lst.
-# `true &&' is needed to force DJGPP Make to call the shell, or else the
-# conversion of `command -c' won't work.
+# Set your "cp" and "mkdir" commands here. Note: DOS's copy must take forward
+# slashes.
#CP = cp
-CP = true && command -c copy
+#CP = : && command -c copy
+CP = command.com /c copy
#MKDIR = mkdir
-MKDIR = true && command -c mkdir
+#MKDIR = gmkdir
+#MKDIR = : && command -c mkdir
+MKDIR = command.com /c mkdir
# Set your unix-style date function here
-DATE = gdate
#DATE = date
+DATE = gdate
# ============================================================================
# You shouldn't need to modify anything below this line.
@@ -121,39 +105,39 @@ DATE = gdate
srcdir = .
-bigtest: basic unix-tests gawk.extensions
+bigtest: basic unix-tests gawk-extensions
-basic: msg swaplns messages argarray longwrds \
- getline fstabplus compare arrayref rs fsrs rand \
- fsbs negexp asgext anchgsub splitargv awkpath nfset reparse \
- convfmt arrayparm paramdup nonl defref nofmtch litoct resplit \
- rswhite prmarscl sclforin sclifin intprec childin noeffect \
- numsubstr pcntplus prmreuse math fldchg fldchgnf reindops \
- sprintfc backgsub tweakfld clsflnam mmap8k fnarray \
- dynlj substr eofsplit prt1eval gsubasgn prtoeval gsubtest splitwht \
- back89 tradanch nlfldsep splitvar intest nfldstr nors fnarydel \
- noparms funstack clobber delarprm prdupval nasty zeroflag \
- getnr2tm getnr2tb printf1 funsmnam fnamedat numindex subslash \
- opasnslf opasnidx arynocls getlnbuf arysubnm fnparydl
+# message stuff is to make it a little easier to follow
+check: msg \
+ basic-msg-start basic basic-msg-end \
+ unix-msg-start unix-tests unix-msg-end \
+ extend-msg-start gawk-extensions extend-msg-end
-unix-tests: poundba fflush getlnhd pipeio1 pipeio2 strftlng pid
+# try to keep these sorted
+basic: addcomma anchgsub argarray arrayparm arrayref arynasty arynocls \
+ arysubnm asgext awkpath back89 backgsub childin clobber clsflnam \
+ compare convfmt datanonl defref delarprm dynlj eofsplit fldchg \
+ fldchgnf fnamedat fnarray fnarydel fnaryscl fnasgnm fnparydl \
+ fsbs fsrs fstabplus funsmnam funstack getline getlnbuf getnr2tb \
+ getnr2tm gsubasgn gsubtest hsprint intest intprec leaddig litoct \
+ longwrds math messages mmap8k nasty nasty2 negexp nfldstr nfset \
+ nlfldsep nlinstr nlstrina noeffect nofmtch nonl noparms nors \
+ numindex numsubstr octsub ofmt ofmtbig ofmts opasnidx opasnslf \
+ paramdup paramtyp parseme pcntplus prdupval printf1 prmarscl \
+ prmreuse prt1eval prtoeval psx96sub rand rebt8b1 rebt8b2 redfilnm \
+ regeq reindops reparse resplit rs rsnul1nl rswhite sclforin \
+ sclifin splitargv splitdef splitvar splitwht sprintfc strtod \
+ subslash substr swaplns tradanch tweakfld zeroflag
-gawk.extensions: fieldwdth ignrcase posix manyfiles igncfs argtest \
- badargs strftime gensub gnureops reint igncdym
-# add this back for 3.1
-# nondec
+unix-tests: fflush getlnhd pid pipeio1 pipeio2 poundba strftlng
-extra: regtes inftest
+gawk-extensions: argtest badargs clos1way fieldwdth fsfwfs gensub \
+ gnuops2 gnureops igncdym igncfs ignrcase lint manyfiles nondec \
+ posix procinfs regx8bit reint shadow sort1 strftime
-poundba::
-# The need for "basename" has been removed for MS-DOS & OS/2 systems which
-# lack it.
-# @cp $(AWK) /tmp/gawk && $(srcdir)/poundbang $(srcdir)/poundbang >_`basename $@`
- $(CP) $(AWK) /tmp/gawk.exe && $(srcdir)/poundbang $(srcdir)/poundbang >_$@
-# @rm -f /tmp/gawk
- rm -f /tmp/gawk.exe
-# $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@`
- $(CMP) $(srcdir)/poundbang.ok _$@ && rm -f _$@
+extra: regtes inftest inet
+
+inet: inetmesg inetechu inetecht inetdayu inetdayt
msg::
@echo 'Any output from "cmp" is bad news, although some differences'
@@ -161,21 +145,55 @@ msg::
@echo 'some systems may omit a leading zero and the floating point'
@echo 'precision may lead to slightly different output in a few cases.'
+basic-msg-start:
+ @echo "======== Starting basic tests ========"
+
+basic-msg-end:
+ @echo "======== Done with basic tests ========"
+
+unix-msg-start:
+ @echo "======== Starting Unix tests ========"
+
+unix-msg-end:
+ @echo "======== Done with Unix tests ========"
+
+extend-msg-start:
+ @echo "======== Starting gawk extension tests ========"
+
+extend-msg-end:
+ @echo "======== Done with gawk extension tests ========"
+
+# This test is a PITA because increasingly, /tmp is getting
+# mounted noexec. So, we'll test it. Sigh.
+poundba::
+# @cp $(AWK) /tmp/gawk
+ @$(CP) $(AWK2) '\tmp\gawk.exe'
+# @if /tmp/gawk 'BEGIN { print "OK" }' | grep OK > /dev/null ; \
+# then \
+# $(srcdir)/poundbang.awk $(srcdir)/poundbang.awk >_`basename $@` ; \
+# $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@` && echo poundbang is ok ; \
+# else \
+# echo "*** /tmp is apparently mounted noexec, skipping poundbang test." ; \
+# fi
+ @if /tmp/gawk 'BEGIN { print "OK" }' | grep OK > NUL ; \
+ then \
+ $(srcdir)/poundbang.awk $(srcdir)/poundbang.awk >_`basename $@` ; \
+ $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@` && echo poundbang is ok ; \
+ else \
+ echo "*** /tmp is apparently mounted noexec, skipping poundbang test." ; \
+ fi
+# @rm -f /tmp/gawk
+ @rm -f /tmp/gawk.exe
+
swaplns::
@echo 'If swaplns fails make sure that all of the .ok files have CR/LFs.'
+ @echo 'Or, set CMP to use diff.'
@$(AWK) -f $(srcdir)/swaplns.awk $(srcdir)/swaplns.in >_$@
- $(CMP) $(srcdir)/swaplns.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/swaplns.ok _$@ && rm -f _$@
messages::
- @echo 'If messages fails, set sh to swap to disk only (in sh.rc).'
@$(AWK) -f $(srcdir)/messages.awk >out2 2>out3
-# { $(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && \
-# $(CMP) $(srcdir)/out3.ok out3 && rm -f out1 out2 out3; } || \
-# { { test -d /dev/fd || test -d /proc/self/fd; } && \
-# echo IT IS OK THAT THIS TEST FAILED; }
- { $(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && \
- $(CMP) $(srcdir)/out3.ok out3; } || test -d /dev/fd
- rm -f out1 out2 out3
+ -$(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && $(CMP) $(srcdir)/out3.ok out3 && rm -f out1 out2 out3
argarray::
@case $(srcdir) in \
@@ -183,47 +201,43 @@ argarray::
*) cp $(srcdir)/argarray.in . ;; \
esac
@TEST=test echo just a test | $(AWK) -f $(srcdir)/argarray.awk ./argarray.in - >_$@
- @echo 'If argarray fails, set try setting LFN=n in your environment'
- @echo "before running make. If that still doesn't work, read the"
- @echo 'the comment in this makefile about setting CMP for information'
- @echo 'about what may be happenning.'
- $(CMP) $(srcdir)/argarray.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/argarray.ok _$@ && rm -f _$@
fstabplus::
@echo '1 2' | $(AWK) -f $(srcdir)/fstabplus.awk >_$@
- $(CMP) $(srcdir)/fstabplus.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fstabplus.ok _$@ && rm -f _$@
fsrs::
@$(AWK) -f $(srcdir)/fsrs.awk $(srcdir)/fsrs.in >_$@
- $(CMP) $(srcdir)/fsrs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fsrs.ok _$@ && rm -f _$@
igncfs::
@$(AWK) -f $(srcdir)/igncfs.awk $(srcdir)/igncfs.in >_$@
- $(CMP) $(srcdir)/igncfs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/igncfs.ok _$@ && rm -f _$@
longwrds::
@$(AWK) -f $(srcdir)/longwrds.awk $(srcdir)/manpage | (LC_ALL=C sort) >_$@
- $(CMP) $(srcdir)/longwrds.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/longwrds.ok _$@ && rm -f _$@
fieldwdth::
@echo '123456789' | $(AWK) -v FIELDWIDTHS="2 3 4" '{ print $$2}' >_$@
- $(CMP) $(srcdir)/fieldwdth.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fieldwdth.ok _$@ && rm -f _$@
ignrcase::
@echo xYz | $(AWK) -v IGNORECASE=1 '{ sub(/y/, ""); print}' >_$@
- $(CMP) $(srcdir)/ignrcase.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/ignrcase.ok _$@ && rm -f _$@
regtes::
@echo 'Some of the output from regtest is very system specific, do not'
@echo 'be distressed if your output differs from that distributed.'
@echo 'Manual inspection is called for.'
+# AWK=`pwd`/$(AWK) $(srcdir)/regtest.awk
AWK=`pwd`/$(AWK) CMP="$(CMP)" $(srcdir)/regtest
posix::
@echo 'posix test may fail due to 1.500000e+000 not being equal to'
@echo '1.500000e+00 for MSC gawk.'
@echo '1:2,3 4' | $(AWK) -f $(srcdir)/posix.awk >_$@
-# $(CMP) $(srcdir)/posix.ok _$@ && rm -f _$@
-$(CMP) $(srcdir)/posix.ok _$@ && rm -f _$@
manyfiles::
@@ -237,208 +251,203 @@ manyfiles::
@echo 'without quoting the "junk/*" argument.'
# @echo "This number better be 1 ->" | tr -d '\012'
@echo "This number better be 1 ->" | tr -d '\012\015'
-# @wc -l junk/* | $(AWK) '$$1 != 2' | wc -l
- @wc -l "junk/*" | $(AWK) '$$1 != 2' | wc -l
-# The quotes above are for people with a "wc" that doesn't support sh's "@"
-# argument passing.
+ @wc -l junk/* | $(AWK) '$$1 != 2' | wc -l
+# @wc -l "junk/*" | $(AWK) '$$1 != 2' | wc -l
+# The quotes above are for people with a "wc" that doesn't too long a command
+# line.
@rm -rf junk _$@
compare::
@$(AWK) -f $(srcdir)/compare.awk 0 1 $(srcdir)/compare.in >_$@
- $(CMP) $(srcdir)/compare.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/compare.ok _$@ && rm -f _$@
arrayref::
@$(AWK) -f $(srcdir)/arrayref.awk >_$@
- $(CMP) $(srcdir)/arrayref.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arrayref.ok _$@ && rm -f _$@
rs::
@$(AWK) -v RS="" '{ print $$1, $$2}' $(srcdir)/rs.in >_$@
- $(CMP) $(srcdir)/rs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rs.ok _$@ && rm -f _$@
fsbs::
@$(AWK) -v FS='\' '{ print $$1, $$2 }' $(srcdir)/fsbs.in >_$@
- $(CMP) $(srcdir)/fsbs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fsbs.ok _$@ && rm -f _$@
inftest::
@echo This test is very machine specific...
- @echo 'MSC 7.0 gawk generates a floating point exception.'
+ @echo 'Both MSC 7.0 and 8.0 gawk generate a floating point exception.'
@echo 'EMX gawk uses #INF rather than Inf.'
# @$(AWK) -f $(srcdir)/inftest.awk >_$@
@-$(AWK) -f $(srcdir)/inftest.awk >_$@
-# $(CMP) $(srcdir)/inftest.ok _$@ && rm -f _$@
-$(CMP) $(srcdir)/inftest.ok _$@ && rm -f _$@
getline::
@$(AWK) -f $(srcdir)/getline.awk $(srcdir)/getline.awk $(srcdir)/getline.awk >_$@
- $(CMP) $(srcdir)/getline.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getline.ok _$@ && rm -f _$@
rand::
@$(AWK) -f $(srcdir)/rand.awk >_$@
- $(CMP) $(srcdir)/rand.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rand.ok _$@ && rm -f _$@
negexp::
@$(AWK) 'BEGIN { a = -2; print 10^a }' >_$@
- $(CMP) $(srcdir)/negexp.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/negexp.ok _$@ && rm -f _$@
asgext::
@$(AWK) -f $(srcdir)/asgext.awk $(srcdir)/asgext.in >_$@
- $(CMP) $(srcdir)/asgext.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/asgext.ok _$@ && rm -f _$@
anchgsub::
@$(AWK) -f $(srcdir)/anchgsub.awk $(srcdir)/anchgsub.in >_$@
- $(CMP) $(srcdir)/anchgsub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/anchgsub.ok _$@ && rm -f _$@
splitargv::
@$(AWK) -f $(srcdir)/splitargv.awk $(srcdir)/splitargv.in >_$@
- $(CMP) $(srcdir)/splitargv.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitargv.ok _$@ && rm -f _$@
awkpath::
# MS-DOS and OS/2 use ; as a PATH delimiter
# @AWKPATH="$(srcdir):$(srcdir)/lib" $(AWK) -f awkpath.awk >_$@
@AWKPATH="$(srcdir);$(srcdir)/lib" $(AWK) -f awkpath.awk >_$@
- $(CMP) $(srcdir)/awkpath.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/awkpath.ok _$@ && rm -f _$@
nfset::
@$(AWK) -f $(srcdir)/nfset.awk $(srcdir)/nfset.in >_$@
- $(CMP) $(srcdir)/nfset.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nfset.ok _$@ && rm -f _$@
reparse::
@$(AWK) -f $(srcdir)/reparse.awk $(srcdir)/reparse.in >_$@
- $(CMP) $(srcdir)/reparse.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reparse.ok _$@ && rm -f _$@
argtest::
@$(AWK) -f $(srcdir)/argtest.awk -x -y abc >_$@
- $(CMP) $(srcdir)/argtest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/argtest.ok _$@ && rm -f _$@
badargs::
# For MS-DOS & OS/2, we use " rather than ' in the usage statement.
@-$(AWK) -f 2>&1 | grep -v patchlevel >_$@
# Next line converts " to ' for $(CMP) to work with UNIX badargs.ok
@cat _$@ | tr '\042' '\047' > _$@.2
-# $(CMP) $(srcdir)/badargs.ok _$@ && rm -f _$@
- $(CMP) $(srcdir)/badargs.ok _$@.2 && rm -f _$@ _$@.2
+# -$(CMP) $(srcdir)/badargs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/badargs.ok _$@.2 && rm -f _$@ _$@.2
convfmt::
@$(AWK) -f $(srcdir)/convfmt.awk >_$@
- $(CMP) $(srcdir)/convfmt.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/convfmt.ok _$@ && rm -f _$@
arrayparm::
@-AWKPATH=$(srcdir) $(AWK) -f arrayparm.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/arrayparm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arrayparm.ok _$@ && rm -f _$@
paramdup::
@-AWKPATH=$(srcdir) $(AWK) -f paramdup.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/paramdup.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/paramdup.ok _$@ && rm -f _$@
nonl::
# @-AWKPATH=$(srcdir) $(AWK) --lint -f nonl.awk /dev/null >_$@ 2>&1
@-AWKPATH=$(srcdir) $(AWK) --lint -f nonl.awk NUL >_$@ 2>&1
- $(CMP) $(srcdir)/nonl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nonl.ok _$@ && rm -f _$@
defref::
@-AWKPATH=$(srcdir) $(AWK) --lint -f defref.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/defref.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/defref.ok _$@ && rm -f _$@
nofmtch::
@-AWKPATH=$(srcdir) $(AWK) --lint -f nofmtch.awk >_$@ 2>&1
- $(CMP) $(srcdir)/nofmtch.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nofmtch.ok _$@ && rm -f _$@
strftime::
: this test could fail on slow machines or on a second boundary,
: so if it does, double check the actual results
+ @echo 'It will also fail using DJGPP because DJGPP does not'
+ @echo 'have a default timezone.'
# @LC_ALL=C; export LC_ALL; LANG=C; export LANG; \
# date | $(AWK) -v OUTPUT=_$@ -f $(srcdir)/strftime.awk
@LC_ALL=C; export LC_ALL; LANG=C; export LANG; \
$(DATE) | $(AWK) -v OUTPUT=_$@ -f $(srcdir)/strftime.awk
- $(CMP) strftime.ok _$@ && rm -f _$@ strftime.ok || exit 0
+ -$(CMP) strftime.ok _$@ && rm -f _$@ strftime.ok || exit 0
litoct::
@echo ab | $(AWK) --traditional -f $(srcdir)/litoct.awk >_$@
- $(CMP) $(srcdir)/litoct.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/litoct.ok _$@ && rm -f _$@
gensub::
@$(AWK) -f $(srcdir)/gensub.awk $(srcdir)/gensub.in >_$@
- $(CMP) $(srcdir)/gensub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gensub.ok _$@ && rm -f _$@
resplit::
- @echo 'If resplit fails, check extend.lst and remove "unix" by the "gawk=" line'
@echo a:b:c d:e:f | $(AWK) '{ FS = ":"; $$0 = $$0; print $$2 }' > _$@
- $(CMP) $(srcdir)/resplit.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/resplit.ok _$@ && rm -f _$@
rswhite::
@$(AWK) -f $(srcdir)/rswhite.awk $(srcdir)/rswhite.in > _$@
- $(CMP) $(srcdir)/rswhite.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rswhite.ok _$@ && rm -f _$@
prmarscl::
@-AWKPATH=$(srcdir) $(AWK) -f prmarscl.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/prmarscl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prmarscl.ok _$@ && rm -f _$@
sclforin::
@-AWKPATH=$(srcdir) $(AWK) -f sclforin.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/sclforin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sclforin.ok _$@ && rm -f _$@
sclifin::
@-AWKPATH=$(srcdir) $(AWK) -f sclifin.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/sclifin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sclifin.ok _$@ && rm -f _$@
intprec::
@-$(AWK) -f $(srcdir)/intprec.awk > _$@ 2>&1
- $(CMP) $(srcdir)/intprec.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/intprec.ok _$@ && rm -f _$@
childin::
@echo hi | $(AWK) 'BEGIN { "cat" | getline; print; close("cat") }' > _$@
- $(CMP) $(srcdir)/childin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/childin.ok _$@ && rm -f _$@
noeffect::
@-AWKPATH=$(srcdir) $(AWK) --lint -f noeffect.awk > _$@ 2>&1
- $(CMP) $(srcdir)/noeffect.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/noeffect.ok _$@ && rm -f _$@
numsubstr::
@-AWKPATH=$(srcdir) $(AWK) -f numsubstr.awk $(srcdir)/numsubstr.in >_$@
- $(CMP) $(srcdir)/numsubstr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/numsubstr.ok _$@ && rm -f _$@
gnureops::
@$(AWK) -f $(srcdir)/gnureops.awk >_$@
- $(CMP) $(srcdir)/gnureops.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gnureops.ok _$@ && rm -f _$@
pcntplus::
@$(AWK) -f $(srcdir)/pcntplus.awk >_$@
- $(CMP) $(srcdir)/pcntplus.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/pcntplus.ok _$@ && rm -f _$@
prmreuse::
@$(AWK) -f $(srcdir)/prmreuse.awk >_$@
- $(CMP) $(srcdir)/prmreuse.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prmreuse.ok _$@ && rm -f _$@
math::
@$(AWK) -f $(srcdir)/math.awk >_$@
- $(CMP) $(srcdir)/math.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/math.ok _$@ && rm -f _$@
fflush::
@$(srcdir)/fflush.sh >_$@
- $(CMP) $(srcdir)/fflush.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fflush.ok _$@ && rm -f _$@
fldchg::
@$(AWK) -f $(srcdir)/fldchg.awk $(srcdir)/fldchg.in >_$@
- $(CMP) $(srcdir)/fldchg.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fldchg.ok _$@ && rm -f _$@
fldchgnf::
@$(AWK) -f $(srcdir)/fldchgnf.awk $(srcdir)/fldchgnf.in >_$@
- $(CMP) $(srcdir)/fldchgnf.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fldchgnf.ok _$@ && rm -f _$@
reindops::
@$(AWK) -f $(srcdir)/reindops.awk $(srcdir)/reindops.in >_$@
- $(CMP) $(srcdir)/reindops.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reindops.ok _$@ && rm -f _$@
sprintfc::
@$(AWK) -f $(srcdir)/sprintfc.awk $(srcdir)/sprintfc.in >_$@
- $(CMP) $(srcdir)/sprintfc.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sprintfc.ok _$@ && rm -f _$@
getlnhd::
- @echo 'Getlnhd is set to ignore errors. However, there should not be any.'
- @echo 'If getlnhd fails, set sh to swap to disk only (in sh.rc).'
- @echo 'If it still hangs with EMX gawk type ^C, then try the test when'
- @echo 'not using DPMI and RSX (in particular, run outside MS-Windows).'
- @echo 'If it fails with MSC, run make from the test directory.'
# In 3.0.3, COMSPEC=$(SHELL) was used for MSC and MINGW32 which do
# not honor SHELL.
# COMSPEC=$(SHELL) $(AWK) -f $(srcdir)/getlnhd.awk >_$@
@@ -447,77 +456,77 @@ getlnhd::
backgsub::
@$(AWK) -f $(srcdir)/backgsub.awk $(srcdir)/backgsub.in >_$@
- $(CMP) $(srcdir)/backgsub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/backgsub.ok _$@ && rm -f _$@
tweakfld::
@$(AWK) -f $(srcdir)/tweakfld.awk $(srcdir)/tweakfld.in >_$@
@rm -f errors.cleanup
- $(CMP) $(srcdir)/tweakfld.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/tweakfld.ok _$@ && rm -f _$@
clsflnam::
- @$(AWK) -f $(srcdir)/clsflnam.awk $(srcdir)/clsflnam.in >_$@
- $(CMP) $(srcdir)/clsflnam.ok _$@ && rm -f _$@
+ @$(AWK) -f $(srcdir)/clsflnam.awk $(srcdir)/clsflnam.in >_$@ 2>&1
+ -$(CMP) $(srcdir)/clsflnam.ok _$@ && rm -f _$@
mmap8k::
@echo 'If mmap8k fails make sure that mmap8k.in has CR/LFs.'
@$(AWK) '{ print }' $(srcdir)/mmap8k.in >_$@
- $(CMP) $(srcdir)/mmap8k.in _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/mmap8k.in _$@ && rm -f _$@
fnarray::
@-AWKPATH=$(srcdir) $(AWK) -f fnarray.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/fnarray.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnarray.ok _$@ && rm -f _$@
dynlj::
@$(AWK) -f $(srcdir)/dynlj.awk >_$@
- $(CMP) $(srcdir)/dynlj.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/dynlj.ok _$@ && rm -f _$@
substr::
@$(AWK) -f $(srcdir)/substr.awk >_$@
- $(CMP) $(srcdir)/substr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/substr.ok _$@ && rm -f _$@
eofsplit::
@$(AWK) -f $(srcdir)/eofsplit.awk >_$@
- $(CMP) $(srcdir)/eofsplit.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/eofsplit.ok _$@ && rm -f _$@
prt1eval::
@$(AWK) -f $(srcdir)/prt1eval.awk >_$@
- $(CMP) $(srcdir)/prt1eval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prt1eval.ok _$@ && rm -f _$@
gsubasgn::
@-AWKPATH=$(srcdir) $(AWK) -f gsubasgn.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/gsubasgn.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gsubasgn.ok _$@ && rm -f _$@
prtoeval::
@$(AWK) -f $(srcdir)/prtoeval.awk >_$@
- $(CMP) $(srcdir)/prtoeval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prtoeval.ok _$@ && rm -f _$@
gsubtest::
@$(AWK) -f $(srcdir)/gsubtest.awk >_$@
- $(CMP) $(srcdir)/gsubtest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gsubtest.ok _$@ && rm -f _$@
splitwht::
@$(AWK) -f $(srcdir)/splitwht.awk >_$@
- $(CMP) $(srcdir)/splitwht.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitwht.ok _$@ && rm -f _$@
back89::
@$(AWK) '/a\8b/' $(srcdir)/back89.in >_$@
- $(CMP) $(srcdir)/back89.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/back89.ok _$@ && rm -f _$@
tradanch::
@$(AWK) --traditional -f $(srcdir)/tradanch.awk $(srcdir)/tradanch.in >_$@
- $(CMP) $(srcdir)/tradanch.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/tradanch.ok _$@ && rm -f _$@
nlfldsep::
@$(AWK) -f $(srcdir)/nlfldsep.awk $(srcdir)/nlfldsep.in > _$@
- $(CMP) $(srcdir)/nlfldsep.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nlfldsep.ok _$@ && rm -f _$@
splitvar::
@$(AWK) -f $(srcdir)/splitvar.awk $(srcdir)/splitvar.in >_$@
- $(CMP) $(srcdir)/splitvar.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitvar.ok _$@ && rm -f _$@
intest::
@$(AWK) -f $(srcdir)/intest.awk >_$@
- $(CMP) $(srcdir)/intest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/intest.ok _$@ && rm -f _$@
# AIX /bin/sh exec's the last command in a list, therefore issue a ":"
# command so that pid.sh is fork'ed as a child before being exec'ed.
@@ -535,34 +544,30 @@ strftlng::
@if $(CMP) -s $(srcdir)/strftlng.ok _$@ ; then : ; else \
env TZ=UTC0; $(AWK) -f $(srcdir)/strftlng.awk >_$@ ; \
fi
- $(CMP) $(srcdir)/strftlng.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/strftlng.ok _$@ && rm -f _$@
nfldstr::
@echo | $(AWK) '$$1 == 0 { print "bug" }' > _$@
- $(CMP) $(srcdir)/nfldstr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nfldstr.ok _$@ && rm -f _$@
nors::
# @echo A B C D E | tr -d '\12' | $(AWK) '{ print $$NF }' - $(srcdir)/nors.in > _$@
@echo A B C D E | tr -d '\15\12' | $(AWK) '{ print $$NF }' - $(srcdir)/nors.in > _$@
- $(CMP) $(srcdir)/nors.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nors.ok _$@ && rm -f _$@
fnarydel::
@$(AWK) -f $(srcdir)/fnarydel.awk >_$@
- $(CMP) $(srcdir)/fnarydel.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnarydel.ok _$@ && rm -f _$@
reint::
@$(AWK) --re-interval -f $(srcdir)/reint.awk $(srcdir)/reint.in >_$@
- $(CMP) $(srcdir)/reint.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reint.ok _$@ && rm -f _$@
noparms::
@-AWKPATH=$(srcdir) $(AWK) -f noparms.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/noparms.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/noparms.ok _$@ && rm -f _$@
pipeio1::
- @echo 'Pipeio1 is set to ignore errors. However, there should not be any.'
- @echo 'If pipeio1 fails, set sh to swap to disk only (in sh.rc).'
- @echo 'If it still hangs with EMX gawk type ^C, then try the test when'
- @echo 'not using DPMI and RSX (in particular, run outside MS-Windows).'
@$(AWK) -f $(srcdir)/pipeio1.awk >_$@
@rm -f test1 test2
-$(CMP) $(srcdir)/pipeio1.ok _$@ && rm -f _$@
@@ -570,111 +575,291 @@ pipeio1::
pipeio2::
# This would fail were it not for the "cat" line due to DOS's ECHO command.
@echo 'pipeio may fail due to the way that your tr & echo work in DOS'
- @echo 'You may also need to set tr=noexpand switch if you use'
- @echo "Stewartson's sh."
@$(AWK) -v SRCDIR=$(srcdir) -f $(srcdir)/pipeio2.awk >_$@
@cat _$@ | $(AWK) '{ sub("ECHO is.*","",$$0); print $$0 } ' > _$@.2
-# $(CMP) $(srcdir)/pipeio2.ok _$@ && rm -f _$@
+# -$(CMP) $(srcdir)/pipeio2.ok _$@ && rm -f _$@
-diff -w $(srcdir)/pipeio2.ok _$@.2 && rm -f _$@ _$@.2
funstack::
@echo 'Expect funstack to fail with MSC DOS versions.'
# @$(AWK) -f $(srcdir)/funstack.awk $(srcdir)/funstack.in >_$@
@-$(AWK) -f $(srcdir)/funstack.awk $(srcdir)/funstack.in >_$@
-# $(CMP) $(srcdir)/funstack.ok _$@ && rm -f _$@
-$(CMP) $(srcdir)/funstack.ok _$@ && rm -f _$@
clobber::
@$(AWK) -f $(srcdir)/clobber.awk >_$@
- $(CMP) $(srcdir)/clobber.ok seq && $(CMP) $(srcdir)/clobber.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/clobber.ok seq && $(CMP) $(srcdir)/clobber.ok _$@ && rm -f _$@
@rm -f seq
delarprm::
@$(AWK) -f $(srcdir)/delarprm.awk >_$@
- $(CMP) $(srcdir)/delarprm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/delarprm.ok _$@ && rm -f _$@
prdupval::
@$(AWK) -f $(srcdir)/prdupval.awk $(srcdir)/prdupval.in >_$@
- $(CMP) $(srcdir)/prdupval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prdupval.ok _$@ && rm -f _$@
nondec::
+# @if grep BITOP ../config.h | grep define > /dev/null; \
+# then \
+# $(AWK) -f $(srcdir)/nondec.awk >_$@; \
+# else \
+# cp $(srcdir)/nondec.ok _$@; \
+# fi
@if grep BITOP ../config.h | grep define > /dev/null; \
then \
$(AWK) -f $(srcdir)/nondec.awk >_$@; \
else \
- cp $(srcdir)/nondec.ok _$@; \
+ $(CP) $(srcdir)\\nondec.ok _$@; \
fi
- $(CMP) $(srcdir)/nondec.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nondec.ok _$@ && rm -f _$@
nasty::
@$(AWK) -f $(srcdir)/nasty.awk >_$@
- $(CMP) $(srcdir)/nasty.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nasty.ok _$@ && rm -f _$@
+
+nasty2::
+ @$(AWK) -f $(srcdir)/nasty2.awk >_$@
+ -$(CMP) $(srcdir)/nasty2.ok _$@ && rm -f _$@
zeroflag::
@$(AWK) -f $(srcdir)/zeroflag.awk >_$@
- $(CMP) $(srcdir)/zeroflag.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/zeroflag.ok _$@ && rm -f _$@
getnr2tm::
@$(AWK) -f $(srcdir)/getnr2tm.awk $(srcdir)/getnr2tm.in >_$@
- $(CMP) $(srcdir)/getnr2tm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getnr2tm.ok _$@ && rm -f _$@
getnr2tb::
@$(AWK) -f $(srcdir)/getnr2tb.awk $(srcdir)/getnr2tb.in >_$@
- $(CMP) $(srcdir)/getnr2tb.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getnr2tb.ok _$@ && rm -f _$@
printf1::
@$(AWK) -f $(srcdir)/printf1.awk >_$@
- $(CMP) $(srcdir)/printf1.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/printf1.ok _$@ && rm -f _$@
funsmnam::
@-AWKPATH=$(srcdir) $(AWK) -f funsmnam.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/funsmnam.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/funsmnam.ok _$@ && rm -f _$@
fnamedat::
@-AWKPATH=$(srcdir) $(AWK) -f fnamedat.awk < $(srcdir)/fnamedat.in >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/fnamedat.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnamedat.ok _$@ && rm -f _$@
numindex::
@-AWKPATH=$(srcdir) $(AWK) -f numindex.awk < $(srcdir)/numindex.in >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/numindex.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/numindex.ok _$@ && rm -f _$@
subslash::
@-AWKPATH=$(srcdir) $(AWK) -f subslash.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/subslash.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/subslash.ok _$@ && rm -f _$@
opasnslf::
@-AWKPATH=$(srcdir) $(AWK) -f opasnslf.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/opasnslf.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/opasnslf.ok _$@ && rm -f _$@
opasnidx::
@-AWKPATH=$(srcdir) $(AWK) -f opasnidx.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/opasnidx.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/opasnidx.ok _$@ && rm -f _$@
arynocls::
@-AWKPATH=$(srcdir) $(AWK) -v INPUT=$(srcdir)/arynocls.in -f arynocls.awk >_$@
- $(CMP) $(srcdir)/arynocls.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arynocls.ok _$@ && rm -f _$@
igncdym::
@-AWKPATH=$(srcdir) $(AWK) -f igncdym.awk $(srcdir)/igncdym.in >_$@
- $(CMP) $(srcdir)/igncdym.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/igncdym.ok _$@ && rm -f _$@
getlnbuf::
+ @echo getlnbuf runs out of memory with MSC gawk.
@-AWKPATH=$(srcdir) $(AWK) -f getlnbuf.awk $(srcdir)/getlnbuf.in > _$@
@-AWKPATH=$(srcdir) $(AWK) -f gtlnbufv.awk $(srcdir)/getlnbuf.in > _2$@
- $(CMP) $(srcdir)/getlnbuf.ok _$@ && $(CMP) $(srcdir)/getlnbuf.ok _2$@ && rm -f _$@ _2$@
+ -$(CMP) $(srcdir)/getlnbuf.ok _$@ && $(CMP) $(srcdir)/getlnbuf.ok _2$@ && rm -f _$@ _2$@
arysubnm::
@-AWKPATH=$(srcdir) $(AWK) -f arysubnm.awk >_$@
- $(CMP) $(srcdir)/arysubnm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arysubnm.ok _$@ && rm -f _$@
fnparydl::
@-AWKPATH=$(srcdir) $(AWK) -f fnparydl.awk >_$@
- $(CMP) $(srcdir)/fnparydl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnparydl.ok _$@ && rm -f _$@
+
+nlstrina::
+ @-AWKPATH=$(srcdir) $(AWK) -f nlstrina.awk >_$@
+ -$(CMP) $(srcdir)/nlstrina.ok _$@ && rm -f _$@
+
+octsub::
+ @-AWKPATH=$(srcdir) $(AWK) -f octsub.awk >_$@
+ -$(CMP) $(srcdir)/octsub.ok _$@ && rm -f _$@
+
+nlinstr::
+ @$(AWK) -f $(srcdir)/nlinstr.awk $(srcdir)/nlinstr.in >_$@
+ -$(CMP) $(srcdir)/nlinstr.ok _$@ && rm -f _$@
+
+ofmt::
+ @$(AWK) -f $(srcdir)/ofmt.awk $(srcdir)/ofmt.in >_$@
+ -$(CMP) $(srcdir)/ofmt.ok _$@ && rm -f _$@
+
+hsprint::
+ @echo 'hsprint test may fail due to 1.27e+01 not being equal to'
+ @echo '1.27e+001 (and similarly for other numbers) for MSC gawk.'
+ @$(AWK) -f $(srcdir)/hsprint.awk >_$@
+ -$(CMP) $(srcdir)/hsprint.ok _$@ && rm -f _$@
+
+fsfwfs::
+ @$(AWK) -f $(srcdir)/fsfwfs.awk $(srcdir)/fsfwfs.in >_$@
+ -$(CMP) $(srcdir)/fsfwfs.ok _$@ && rm -f _$@
+
+ofmts::
+ @$(AWK) -f $(srcdir)/ofmts.awk $(srcdir)/ofmts.in >_$@
+ -$(CMP) $(srcdir)/ofmts.ok _$@ && rm -f _$@
+
+parseme::
+ @-AWKPATH=$(srcdir) $(AWK) -f parseme.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/parseme.ok _$@ && rm -f _$@
+
+splitdef::
+ @$(AWK) -f $(srcdir)/splitdef.awk >_$@
+ -$(CMP) $(srcdir)/splitdef.ok _$@ && rm -f _$@
+
+fnaryscl::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnaryscl.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnaryscl.ok _$@ && rm -f _$@
+
+fnasgnm::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnasgnm.awk < $(srcdir)/fnasgnm.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnasgnm.ok _$@ && rm -f _$@
+
+lint::
+ @-AWKPATH=$(srcdir) $(AWK) -f lint.awk > _$@ 2>&1
+ -$(CMP) $(srcdir)/lint.ok _$@ && rm -f _$@
+
+procinfs::
+ @-$(AWK) -f $(srcdir)/procinfs.awk > _$@
+ -$(CMP) $(srcdir)/procinfs.ok _$@ && rm -f _$@
+
+sort1::
+ @-$(AWK) -f $(srcdir)/sort1.awk > _$@
+ -$(CMP) $(srcdir)/sort1.ok _$@ && rm -f _$@
+
+ofmtbig::
+ @$(AWK) -f $(srcdir)/ofmtbig.awk $(srcdir)/ofmtbig.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/ofmtbig.ok _$@ && rm -f _$@
+
+inetmesg::
+ @echo These tests only work if your system supports the services
+ @echo "'discard'" at port 9 and "'daytimed" at port 13. Check your
+ @echo file /etc/services and do "'netstat -a'".
+
+inetechu::
+ @echo inetechu fails with MSC and DJGPP because "|&" is not supported.
+ @echo This test is for establishing UDP connections
+# @$(AWK) 'BEGIN {print "" |& "/inet/udp/0/127.0.0.1/9"}'
+ @-$(AWK) 'BEGIN {print "" |& "/inet/udp/0/127.0.0.1/9"}'
+
+inetecht::
+ @echo inetecht fails with MSC and DJGPP because "|&" is not supported.
+ @echo This test is for establishing TCP connections
+# @$(AWK) 'BEGIN {print "" |& "/inet/tcp/0/127.0.0.1/9"}'
+ @-$(AWK) 'BEGIN {print "" |& "/inet/tcp/0/127.0.0.1/9"}'
+
+inetdayu::
+ @echo inetdayu fails with MSC and DJGPP because "|&" is not supported.
+ @echo This test is for bidirectional UDP transmission
+# @$(AWK) 'BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13"; \
+# "/inet/udp/0/127.0.0.1/13" |& getline; print $0}'
+ @-$(AWK) 'BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13"; \
+ "/inet/udp/0/127.0.0.1/13" |& getline; print $0}'
+
+inetdayt::
+ @echo inetdayt fails with MSC and DJGPP because "|&" is not supported.
+ @echo This test is for bidirectional TCP transmission
+# @$(AWK) 'BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13"; \
+# "/inet/tcp/0/127.0.0.1/13" |& getline; print $0}'
+ @-$(AWK) 'BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13"; \
+ "/inet/tcp/0/127.0.0.1/13" |& getline; print $0}'
+
+paramtyp::
+ @$(AWK) -f $(srcdir)/paramtyp.awk >_$@
+ -$(CMP) $(srcdir)/paramtyp.ok _$@ && rm -f _$@
+
+rsnul1nl::
+ @$(AWK) -f $(srcdir)/rsnul1nl.awk $(srcdir)/rsnul1nl.in >_$@
+ -$(CMP) $(srcdir)/rsnul1nl.ok _$@ && rm -f _$@
+
+datanonl::
+ @$(AWK) -f $(srcdir)/datanonl.awk $(srcdir)/datanonl.in >_$@
+ -$(CMP) $(srcdir)/datanonl.ok _$@ && rm -f _$@
+
+regeq::
+ @$(AWK) -f $(srcdir)/regeq.awk $(srcdir)/regeq.in >_$@
+ -$(CMP) $(srcdir)/regeq.ok _$@ && rm -f _$@
+
+redfilnm::
+ @$(AWK) -f $(srcdir)/redfilnm.awk srcdir=$(srcdir) $(srcdir)/redfilnm.in >_$@
+ -$(CMP) $(srcdir)/redfilnm.ok _$@ && rm -f _$@
+
+strtod::
+ @$(AWK) -f $(srcdir)/strtod.awk $(srcdir)/strtod.in >_$@
+ -$(CMP) $(srcdir)/strtod.ok _$@ && rm -f _$@
+
+leaddig::
+ @$(AWK) -v x=2E -f $(srcdir)/leaddig.awk >_$@
+ -$(CMP) $(srcdir)/leaddig.ok _$@ && rm -f _$@
+
+clos1way::
+ @echo clos1way fails with MSC and DJGPP because "|&" is not supported.
+# @$(AWK) -f $(srcdir)/clos1way.awk >_$@
+ @-$(AWK) -f $(srcdir)/clos1way.awk >_$@
+ -$(CMP) $(srcdir)/clos1way.ok _$@ && rm -f _$@
+
+arynasty::
+ @$(AWK) -f $(srcdir)/arynasty.awk >_$@
+ -$(CMP) $(srcdir)/arynasty.ok _$@ && rm -f _$@
+
+shadow::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f shadow.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/shadow.ok _$@ && rm -f _$@
+
+regx8bit::
+ @$(AWK) -f $(srcdir)/regx8bit.awk >_$@
+ -$(CMP) $(srcdir)/regx8bit.ok _$@ && rm -f _$@
+
+psx96sub::
+ @$(AWK) -f $(srcdir)/psx96sub.awk >_$@
+ -$(CMP) $(srcdir)/psx96sub.ok _$@ && rm -f _$@
+
+addcomma::
+ @echo 'If addcomma fails, set try setting LFN=n in your environment'
+ @echo "before running make. If that still doesn't work, read the"
+ @echo 'the comment in this makefile about setting CMP for information'
+ @echo 'about what may be happenning.'
+ @$(AWK) -f $(srcdir)/addcomma.awk $(srcdir)/addcomma.in >_$@
+ -$(CMP) $(srcdir)/addcomma.ok _$@ && rm -f _$@
+
+gnuops2::
+ @$(AWK) -f $(srcdir)/gnuops2.awk >_$@
+ -$(CMP) $(srcdir)/gnuops2.ok _$@ && rm -f _$@
+
+rebt8b1::
+ @$(AWK) -f $(srcdir)/rebt8b1.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b1.ok _$@ && rm -f _$@
+
+rebt8b2::
+ @$(AWK) -f $(srcdir)/rebt8b2.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b2.ok _$@ && rm -f _$@
clean:
rm -fr _* core junk out1 out2 out3 strftime.ok test1 test2 seq *~
-distclean: clean
- rm -f Makefile
-
-maintainer-clean: distclean
+# This target for my convenience to look at all the results
+diffout:
+ for i in _* ; \
+ do \
+ echo ============== $$i ============= ; \
+ diff -c $${i#_}.ok $$i ; \
+ done | more
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/pc/config.h b/pc/config.h
index 3b3a7744..626027cf 100755..100644
--- a/pc/config.h
+++ b/pc/config.h
@@ -1,25 +1,25 @@
/* config.h. Generated automatically by configure. */
-/* configh.in. Generated automatically from configure.in by autoheader. */
+/* config.h.in. Generated automatically from configure.in by autoheader. */
/*
* acconfig.h -- configuration definitions for gawk.
*/
-/*
- * Copyright (C) 1995-2000 the Free Software Foundation, Inc.
- *
+/*
+ * Copyright (C) 1995-2001 the Free Software Foundation, Inc.
+ *
* This file is part of GAWK, the GNU implementation of the
- * AWK Progamming Language.
- *
+ * AWK Programming Language.
+ *
* GAWK is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
- *
+ *
* GAWK is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
@@ -67,9 +67,18 @@
/* Define if you don't have vprintf but do have _doprnt. */
/* #undef HAVE_DOPRNT */
+/* Define if you have a working `mmap' system call. */
+/* #undef HAVE_MMAP */
+
/* Define if your struct stat has st_blksize. */
#define HAVE_ST_BLKSIZE 1
+/* Define if you have the ANSI # stringizing operator in cpp. */
+#define HAVE_STRINGIZE 1
+
+/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */
+/* #undef HAVE_SYS_WAIT_H */
+
/* Define if your struct tm has tm_zone. */
/* #undef HAVE_TM_ZONE */
@@ -80,9 +89,15 @@
/* Define if you have the vprintf function. */
#define HAVE_VPRINTF 1
+/* Define as __inline if that's what the C compiler calls it. */
+/* #undef inline */
+
/* Define if on MINIX. */
/* #undef _MINIX */
+/* Define to `long' if <sys/types.h> doesn't define. */
+/* #undef off_t */
+
/* Define to `int' if <sys/types.h> doesn't define. */
/* #undef pid_t */
@@ -102,9 +117,9 @@
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at run-time.
- STACK_DIRECTION > 0 => grows toward higher addresses
- STACK_DIRECTION < 0 => grows toward lower addresses
- STACK_DIRECTION = 0 => direction of growth unknown
+ STACK_DIRECTION > 0 => grows toward higher addresses
+ STACK_DIRECTION < 0 => grows toward lower addresses
+ STACK_DIRECTION = 0 => direction of growth unknown
*/
/* #undef STACK_DIRECTION */
@@ -120,20 +135,38 @@
/* Define to `int' if <sys/types.h> doesn't define. */
/* #undef uid_t */
-/* #undef GETPGRP_IS_STANDARD */ /* getpgrp does/does not take an argument */
-/* #undef HAVE_BCOPY */ /* we have the bcopy function */
-#define HAVE_MEMCPY 1 /* we have the memcpy function */
-#define HAVE_STRINGIZE 1 /* can use ANSI # operator in cpp */
-#define HAVE_STRING_H 1 /* the <string.h> header file */
-#define REGEX_MALLOC 1 /* use malloc instead of alloca in regex.c */
-#define SPRINTF_RET int /* return type of sprintf */
+#define REGEX_MALLOC 1 /* use malloc instead of alloca in regex.c */
+#define SPRINTF_RET int /* return type of sprintf */
+/* #undef HAVE_MKTIME */ /* we have the mktime function */
+/* #undef HAVE_SOCKETS */ /* we have sockets on this system */
+/* #undef HAVE_PORTALS */ /* we have portals on /p on this system */
+/* #undef DYNAMIC */ /* allow dynamic addition of builtins */
+/* #undef STRTOD_NOT_C89 */ /* strtod doesn't have C89 semantics */
-/* #undef BITOPS */ /* bitwise ops (undocumented feature) */
-/* #undef NONDECDATA */ /* non-decimal input data (undocumented feature) */
+/* Define if you have the __argz_count function. */
+#define HAVE___ARGZ_COUNT 1
+
+/* Define if you have the __argz_next function. */
+#define HAVE___ARGZ_NEXT 1
+
+/* Define if you have the __argz_stringify function. */
+#define HAVE___ARGZ_STRINGIFY 1
+
+/* Define if you have the alarm function. */
+#define HAVE_ALARM 1
+
+/* Define if you have the dcgettext function. */
+/* #undef HAVE_DCGETTEXT */
/* Define if you have the fmod function. */
#define HAVE_FMOD 1
+/* Define if you have the getcwd function. */
+/* #undef HAVE_GETCWD */
+
+/* Define if you have the getpagesize function. */
+/* #undef HAVE_GETPAGESIZE */
+
/* Define if you have the memcmp function. */
#define HAVE_MEMCMP 1
@@ -143,12 +176,30 @@
/* Define if you have the memset function. */
#define HAVE_MEMSET 1
-/* Define if you have the random function. */
-#define HAVE_RANDOM 1
+/* Define if you have the munmap function. */
+/* #undef HAVE_MUNMAP */
+
+/* Define if you have the putenv function. */
+/* #undef HAVE_PUTENV */
+
+/* Define if you have the setenv function. */
+/* #define HAVE_SETENV */
+
+/* Define if you have the setlocale function. */
+/* #undef HAVE_SETLOCALE */
+
+/* Define if you have the stpcpy function. */
+/* #undef HAVE_STPCPY */
+
+/* Define if you have the strcasecmp function. */
+/* #undef HAVE_STRCASECMP */
/* Define if you have the strchr function. */
#define HAVE_STRCHR 1
+/* Define if you have the strdup function. */
+#define HAVE_STRDUP 1
+
/* Define if you have the strerror function. */
#define HAVE_STRERROR 1
@@ -167,24 +218,107 @@
/* Define if you have the tzset function. */
#define HAVE_TZSET 1
+/* Define if you have the <argz.h> header file. */
+/* #undef HAVE_ARGZ_H */
+
+/* Define if you have the <fcntl.h> header file. */
+#define HAVE_FCNTL_H 1
+
+/* Define if you have the <libintl.h> header file. */
+/* #undef HAVE_LIBINTL_H */
+
+/* Define if you have the <limits.h> header file. */
+/* #undef HAVE_LIMITS_H */
+
+/* Define if you have the <locale.h> header file. */
+/* #undef HAVE_LOCALE_H */
+
+/* Define if you have the <malloc.h> header file. */
+/* #undef HAVE_MALLOC_H */
+
/* Define if you have the <memory.h> header file. */
#define HAVE_MEMORY_H 1
+/* Define if you have the <netdb.h> header file. */
+/* #undef HAVE_NETDB_H */
+
+/* Define if you have the <netinet/in.h> header file. */
+/* #undef HAVE_NETINET_IN_H */
+
+/* Define if you have the <nl_types.h> header file. */
+/* #undef HAVE_NL_TYPES_H */
+
/* Define if you have the <signum.h> header file. */
/* #undef HAVE_SIGNUM_H */
/* Define if you have the <stdarg.h> header file. */
#define HAVE_STDARG_H 1
+/* Define if you have the <stdlib.h> header file. */
+/* #undef HAVE_STDLIB_H */
+
+/* Define if you have the <string.h> header file. */
+#define HAVE_STRING_H 1
+
/* Define if you have the <strings.h> header file. */
/* #undef HAVE_STRINGS_H */
/* Define if you have the <sys/param.h> header file. */
#define HAVE_SYS_PARAM_H 1
+/* Define if you have the <sys/socket.h> header file. */
+/* #undef HAVE_SYS_SOCKET_H */
+
+/* Define if you have the <sys/time.h> header file. */
+/* #undef HAVE_SYS_TIME_H */
+
/* Define if you have the <unistd.h> header file. */
#define HAVE_UNISTD_H 1
+/* Define if you have the i library (-li). */
+/* #undef HAVE_LIBI */
+
+/* Define if you have the intl library (-lintl). */
+/* #undef HAVE_LIBINTL */
+
+/* Define if you have the m library (-lm). */
+#define HAVE_LIBM 1
+
+/* Name of package */
+#define PACKAGE "gawk"
+
+/* Version number of package */
+#define VERSION "3.0.89"
+
+/* Number of bits in a file offset, on hosts where this is settable. */
+/* #undef _FILE_OFFSET_BITS */
+
+/* Define to make ftello visible on some hosts (e.g. HP-UX 10.20). */
+/* #undef _LARGEFILE_SOURCE */
+
+/* Define for large files, on AIX-style hosts. */
+/* #undef _LARGE_FILES */
+
+/* Define to make ftello visible on some hosts (e.g. glibc 2.1.3). */
+/* #undef _XOPEN_SOURCE */
+
+/* Define if compiler has function prototypes */
+#define PROTOTYPES 1
+
+/* Define to 1 if you have the stpcpy function. */
+/* #undef HAVE_STPCPY */
+
+/* Define if your locale.h file contains LC_MESSAGES. */
+/* #undef HAVE_LC_MESSAGES */
+
+/* Define to 1 if NLS is requested. */
+/* #undef ENABLE_NLS */
+
+/* Define to 1 if you have gettext and don't want to use GNU gettext. */
+/* #undef HAVE_GETTEXT */
+
+/* Define as 1 if you have catgets and don't want to use GNU gettext. */
+/* #undef HAVE_CATGETS */
/* Library search path */
#define DEFPATH ".;c:/lib/awk;c:/gnu/lib/awk"
@@ -196,14 +330,10 @@
#undef HAVE_UNISTD_H
#undef HAVE_SYS_PARAM_H
#undef HAVE_RANDOM
-#define RANDOM_MISSING
/* msc strftime is incomplete, use supplied version */
#undef HAVE_STRFTIME
/* #define HAVE_TM_ZONE */
#define altzone timezone
-#if defined(OS2) /* declare alloca for bison */
-void * alloca(unsigned);
-#endif
#endif
# define HAVE_POPEN_H
diff --git a/pc/gawkmisc.pc b/pc/gawkmisc.pc
index 9912dcf3..860e6b71 100644
--- a/pc/gawkmisc.pc
+++ b/pc/gawkmisc.pc
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991 - 96 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991 - 2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Progamming Language.
@@ -44,7 +44,8 @@ const char *filespec;
/* OS/2 allows / for directory separator too */
if ((q = strrchr(p, '\\')) != NULL)
p = q + 1;
- if ((q = strrchr(p, '/')) != NULL)
+ if ((q = strrchr(p, '/')) != NULL
+ && (p == NULL || q > p)) /* support mixed d:\foo/bar\gawk.exe */
p = q + 1;
if ((q = strchr(p, '.')) != NULL)
*q = '\0';
@@ -73,7 +74,12 @@ os_devopen(name, flag)
const char *name;
int flag;
{
- /* no-op */
+ if (strcmp(name, "/dev/null") == 0)
+ return open("NUL", flag);
+ /* FIXME: */
+ /* else if (strcmp(name, "/dev/tty") == 0)
+ * return open("???", flag);
+ */
return -1;
}
@@ -132,3 +138,75 @@ int c;
return (strchr(":\\/", c) != NULL);
}
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+const char *name, *what, *dir;
+{
+#if ! defined(_MSC_VER) && ! defined(__MINGW32__)
+#if defined(__DJGPP__) && (__DJGPP__ > 2 || __DJGPP_MINOR__ >= 4)
+ if (fcntl(fd, F_SETFD, 1) < 0)
+ warning("%s %s `%s': could not set close-on-exec: %s",
+ what, dir, name, strerror(errno));
+#endif
+#endif
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+#if ! defined(S_ISDIR) && defined(S_IFDIR)
+#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
+
+int
+os_isdir(fd)
+int fd;
+{
+ struct stat sbuf;
+
+ return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode));
+}
+
+/* os_is_setuid --- true if running setuid root */
+
+int
+os_is_setuid()
+{
+ return 0;
+}
+
+/* os_setbinmode --- set binary mode on file */
+
+#ifdef __DJGPP__
+#include <sys/exceptn.h>
+#endif
+static int orig_tty_mode = -1;
+
+int
+os_setbinmode (fd, mode)
+int fd, mode;
+{
+ int prev_mode = setmode(fd, mode);
+
+#ifdef __DJGPP__
+ if ((mode & O_BINARY) != 0)
+ __djgpp_set_ctrl_c(1); /* allow to interrupt with Ctrl-C */
+#endif
+ /* Save the original tty mode as we found it. */
+ if (orig_tty_mode == -1 && fd >= 0 && fd <= 2)
+ orig_tty_mode = prev_mode;
+ return prev_mode;
+}
+
+/* os_restore_mode --- restore the original mode of the console device */
+
+void
+os_restore_mode (fd)
+int fd;
+{
+ if (orig_tty_mode != -1) {
+ setmode(fd, orig_tty_mode);
+ }
+}
diff --git a/pc/popen.c b/pc/popen.c
index 88de3e29..28e1ebd5 100644
--- a/pc/popen.c
+++ b/pc/popen.c
@@ -21,12 +21,10 @@
#endif
static char template[] = "piXXXXXX";
-typedef enum { unopened = 0, reading, writing } pipemode;
-static
-struct {
- char *command;
- char *name;
- pipemode pmode;
+static struct {
+ char *command;
+ char *name;
+ char pmode[4];
} pipes[_NFILE];
@@ -41,8 +39,7 @@ struct {
#if defined(_MSC_VER) || defined(__MINGW32__)
static int
-unixshell(p)
-char *p;
+unixshell(char *p)
{
static char *shell[] = {"sh", "bash", "csh", "tcsh", "sh32", "sh16", "ksh", NULL};
char **shellp = shell, *s, *q;
@@ -64,8 +61,7 @@ char *p;
}
static char *
-slashify(p, s)
-char *p, *s;
+slashify(char *p, char *s)
{
if (unixshell(s))
while (s = strchr(p, '\\')) *s = '/';
@@ -75,8 +71,7 @@ char *p, *s;
}
static char *
-scriptify(command)
-char *command;
+scriptify(char *command)
{
FILE *fp;
char *cmd, *name, *s, *p;
@@ -90,25 +85,26 @@ char *command;
p = s;
}
slashify(name, p);
- if (! unixshell(p)) {
+ if (! (i = unixshell(p))) {
realloc(name, strlen(name) + 5);
strcat(name, ".bat");
}
if (s) sprintf(cmd + strlen(cmd), " %cc ", unixshell(s) ? '-' : '/');
strcpy(p = cmd + strlen(cmd), name); free(name);
- i = strlen(command);
- if ( ((fp = fopen(p, "wb")) == NULL) || (fwrite(command, 1, i, fp) < i)
- || (fputc('\n', fp) == EOF)) {
- cmd = NULL;
- }
+ if ((fp = fopen(p, i ? "wb" : "w")) != NULL) {
+ if (! i) fputs("@echo off\n", fp);
+ i = strlen(command);
+ if ((fwrite(command, 1, i, fp) < i) || (fputc('\n', fp) == EOF))
+ cmd = NULL;
+ } else
+ cmd = NULL;
if (fp) fclose(fp);
return(cmd);
}
static void
-unlink_and_free(cmd)
-char *cmd;
+unlink_and_free(char *cmd)
{
char *s;
@@ -120,8 +116,7 @@ char *cmd;
}
int
-os_system(cmd)
-char *cmd;
+os_system(char *cmd)
{
char *s;
int i;
@@ -145,31 +140,26 @@ char *cmd;
FILE *
-os_popen( char *command, char *mode ) {
+os_popen( char *command, char *mode )
+{
FILE *current;
char *name;
int cur;
- pipemode curmode;
+ char curmode[4];
#if defined(OS2) && (_MSC_VER != 510)
if (_osmode == OS2_MODE)
return(popen(command, mode));
#endif
- /*
- ** decide on mode.
- */
- if(strcmp(mode,"r") == 0)
- curmode = reading;
- else if(strcmp(mode,"w") == 0)
- curmode = writing;
- else
- return NULL;
+ if (*mode != 'r' && *mode != 'w')
+ return NULL;
+ strncpy(curmode, mode, 3); curmode[3] = '\0';
#if defined(__MINGW32__) || (defined(_MSC_VER) && defined(WIN32))
current = popen(command = scriptify(command), mode);
cur = fileno(current);
- pipes[cur].pmode = curmode;
+ strcpy(pipes[cur].pmode, curmode);
pipes[cur].command = command;
return(current);
#endif
@@ -183,32 +173,36 @@ os_popen( char *command, char *mode ) {
** If we're reading, just call system to get a file filled with
** output.
*/
- if(curmode == reading) {
+ if (*curmode == 'r') {
FILE *fp;
if ((cur = dup(fileno(stdout))) == -1)
return NULL;
- if ((current = freopen(name, "w", stdout)) == NULL)
+ *curmode = 'w';
+ if ((current = freopen(name, curmode, stdout)) == NULL)
return NULL;
os_system(command);
if (dup2(cur, fileno(stdout)) == -1)
return NULL;
close(cur);
- if((current = fopen(name,"r")) == NULL)
+ *curmode = 'r';
+ if ((current = fopen(name, curmode)) == NULL)
return NULL;
} else {
- if((current = fopen(name,"w")) == NULL)
+ if ((current = fopen(name, curmode)) == NULL)
return NULL;
}
cur = fileno(current);
pipes[cur].name = name;
- pipes[cur].pmode = curmode;
+ strcpy(pipes[cur].pmode, curmode);
pipes[cur].command = strdup(command);
return current;
}
int
-os_pclose( FILE * current) {
- int cur = fileno(current),rval;
+os_pclose( FILE * current)
+{
+ int cur = fileno(current);
+ int fd, rval;
#if defined(OS2) && (_MSC_VER != 510)
if (_osmode == OS2_MODE)
@@ -217,7 +211,7 @@ os_pclose( FILE * current) {
#if defined(__MINGW32__) || (defined(_MSC_VER) && defined(WIN32))
rval = pclose(current);
- pipes[cur].pmode = unopened;
+ *pipes[cur].pmode = '\0';
unlink_and_free(pipes[cur].command);
return rval;
#endif
@@ -225,24 +219,24 @@ os_pclose( FILE * current) {
/*
** check for an open file.
*/
- if(pipes[cur].pmode == unopened)
- return -1;
- if(pipes[cur].pmode == reading) {
+ switch (*pipes[cur].pmode) {
+ case 'r':
/*
** input pipes are just files we're done with.
*/
rval = fclose(current);
unlink(pipes[cur].name);
- } else {
+ break;
+ case 'w':
/*
** output pipes are temporary files we have
** to cram down the throats of programs.
*/
- int fd;
fclose(current);
rval = -1;
if ((fd = dup(fileno(stdin))) != -1) {
- if (current = freopen(pipes[cur].name, "r", stdin)) {
+ char *mode = pipes[cur].pmode; *mode = 'r';
+ if (current = freopen(pipes[cur].name, mode, stdin)) {
rval = os_system(pipes[cur].command);
fclose(current);
if (dup2(fd, fileno(stdin)) == -1) rval = -1;
@@ -250,11 +244,14 @@ os_pclose( FILE * current) {
}
}
unlink(pipes[cur].name);
+ break;
+ default:
+ return -1;
}
/*
** clean up current pipe.
*/
- pipes[cur].pmode = unopened;
+ *pipes[cur].pmode = '\0';
free(pipes[cur].name);
free(pipes[cur].command);
return rval;
diff --git a/pc/popen.h b/pc/popen.h
index 3735f455..cc5d7cc3 100644
--- a/pc/popen.h
+++ b/pc/popen.h
@@ -15,7 +15,7 @@
# endif
# define popen(c, m) os_popen(c, m)
# define pclose(f) os_pclose(f)
- extern FILE *os_popen( char *, char * );
+ extern FILE *os_popen( char *, const char * );
extern int os_pclose( FILE * );
# endif
#endif
diff --git a/po/Makefile.in.in b/po/Makefile.in.in
new file mode 100644
index 00000000..ea54aaef
--- /dev/null
+++ b/po/Makefile.in.in
@@ -0,0 +1,263 @@
+# -*- Makefile -*- for program source directory in GNU NLS utilities package.
+# Copyright (C) 1995, 1996, 1997, 2000 by Ulrich Drepper <drepper@gnu.ai.mit.edu>
+#
+# This file file be copied and used freely without restrictions. It can
+# be used in projects which are not available under the GNU Public License
+# but which still want to provide support for the GNU gettext functionality.
+# Please note that the actual code is *not* freely available.
+
+PACKAGE = @PACKAGE@
+VERSION = @VERSION@
+
+SHELL = /bin/sh
+@SET_MAKE@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+datadir = $(prefix)/@DATADIRNAME@
+localedir = $(datadir)/locale
+gnulocaledir = $(prefix)/share/locale
+gettextsrcdir = $(prefix)/share/gettext/po
+subdir = po
+
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+
+CC = @CC@
+GENCAT = @GENCAT@
+GMSGFMT = PATH=../src:$$PATH @GMSGFMT@
+MSGFMT = @MSGFMT@
+XGETTEXT = PATH=../src:$$PATH @XGETTEXT@
+MSGMERGE = PATH=../src:$$PATH msgmerge
+
+DEFS = @DEFS@
+CFLAGS = @CFLAGS@
+CPPFLAGS = @CPPFLAGS@
+
+INCLUDES = -I.. -I$(top_srcdir)/intl
+
+COMPILE = $(CC) -c $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) $(XCFLAGS)
+
+SOURCES = cat-id-tbl.c
+POFILES = @POFILES@
+GMOFILES = @GMOFILES@
+DISTFILES = Makefile.in.in POTFILES.in $(PACKAGE).pot \
+stamp-cat-id $(POFILES) $(GMOFILES) $(SOURCES)
+
+POTFILES = \
+
+CATALOGS = @CATALOGS@
+CATOBJEXT = @CATOBJEXT@
+INSTOBJEXT = @INSTOBJEXT@
+
+.SUFFIXES:
+.SUFFIXES: .c .o .po .pox .gmo .mo .msg .cat
+
+.c.o:
+ $(COMPILE) $<
+
+.po.pox:
+ $(MAKE) $(PACKAGE).pot
+ $(MSGMERGE) $< $(srcdir)/$(PACKAGE).pot -o $*.pox
+
+.po.mo:
+ $(MSGFMT) -o $@ $<
+
+.po.gmo:
+ file=$(srcdir)/`echo $* | sed 's,.*/,,'`.gmo \
+ && rm -f $$file && $(GMSGFMT) -o $$file $<
+
+.po.cat:
+ sed -f ../intl/po2msg.sed < $< > $*.msg \
+ && rm -f $@ && $(GENCAT) $@ $*.msg
+
+
+all: all-@USE_NLS@
+
+all-yes: cat-id-tbl.c $(CATALOGS)
+all-no:
+
+$(srcdir)/$(PACKAGE).pot: $(POTFILES)
+ $(XGETTEXT) --default-domain=$(PACKAGE) --directory=$(top_srcdir) \
+ --add-comments --keyword=_ --keyword=N_ \
+ --files-from=$(srcdir)/POTFILES.in \
+ && test ! -f $(PACKAGE).po \
+ || ( rm -f $(srcdir)/$(PACKAGE).pot \
+ && mv $(PACKAGE).po $(srcdir)/$(PACKAGE).pot )
+
+$(srcdir)/cat-id-tbl.c: stamp-cat-id; @:
+$(srcdir)/stamp-cat-id: $(PACKAGE).pot
+ rm -f cat-id-tbl.tmp
+ sed -f ../intl/po2tbl.sed $(srcdir)/$(PACKAGE).pot \
+ | sed -e "s/@PACKAGE NAME@/$(PACKAGE)/" > cat-id-tbl.tmp
+ if cmp -s cat-id-tbl.tmp $(srcdir)/cat-id-tbl.c; then \
+ rm cat-id-tbl.tmp; \
+ else \
+ echo cat-id-tbl.c changed; \
+ rm -f $(srcdir)/cat-id-tbl.c; \
+ mv cat-id-tbl.tmp $(srcdir)/cat-id-tbl.c; \
+ fi
+ cd $(srcdir) && rm -f stamp-cat-id && echo timestamp > stamp-cat-id
+
+
+install: install-exec install-data
+install-exec:
+install-data: install-data-@USE_NLS@
+install-data-no: all
+install-data-yes: all
+ if test -x "$(MKINSTALLDIRS)"; then \
+ $(MKINSTALLDIRS) $(DESTDIR)$(datadir); \
+ else \
+ $(SHELL) $(top_srcdir)/mkinstalldirs $(DESTDIR)$(datadir); \
+ fi
+ @catalogs='$(CATALOGS)'; \
+ for cat in $$catalogs; do \
+ cat=`basename $$cat`; \
+ case "$$cat" in \
+ *.gmo) destdir=$(DESTDIR)$(gnulocaledir);; \
+ *) destdir=$(DESTDIR)$(localedir);; \
+ esac; \
+ lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
+ dir=$$destdir/$$lang/LC_MESSAGES; \
+ if test -r "$(MKINSTALLDIRS)"; then \
+ $(MKINSTALLDIRS) $$dir; \
+ else \
+ $(SHELL) $(top_srcdir)/mkinstalldirs $$dir; \
+ fi; \
+ if test -r $$cat; then \
+ $(INSTALL_DATA) $$cat $$dir/$(PACKAGE)$(INSTOBJEXT); \
+ echo "installing $$cat as $$dir/$(PACKAGE)$(INSTOBJEXT)"; \
+ else \
+ $(INSTALL_DATA) $(srcdir)/$$cat $$dir/$(PACKAGE)$(INSTOBJEXT); \
+ echo "installing $(srcdir)/$$cat as" \
+ "$$dir/$(PACKAGE)$(INSTOBJEXT)"; \
+ fi; \
+ if test -r $$cat.m; then \
+ $(INSTALL_DATA) $$cat.m $$dir/$(PACKAGE)$(INSTOBJEXT).m; \
+ echo "installing $$cat.m as $$dir/$(PACKAGE)$(INSTOBJEXT).m"; \
+ else \
+ if test -r $(srcdir)/$$cat.m ; then \
+ $(INSTALL_DATA) $(srcdir)/$$cat.m \
+ $$dir/$(PACKAGE)$(INSTOBJEXT).m; \
+ echo "installing $(srcdir)/$$cat as" \
+ "$$dir/$(PACKAGE)$(INSTOBJEXT).m"; \
+ else \
+ true; \
+ fi; \
+ fi; \
+ timedir=$$destdir/$$lang/LC_TIME; \
+ rm -fr $$timedir; \
+ ln -s LC_MESSAGES $$timedir \
+ || (mkdir $$timedir && ln $$dir/* $$timedir); \
+ echo "installing $$timedir as an alias for $$dir"; \
+ done
+ if test "$(PACKAGE)" = "gettext"; then \
+ if test -x "$(MKINSTALLDIRS)"; then \
+ $(MKINSTALLDIRS) $(DESTDIR)$(gettextsrcdir); \
+ else \
+ $(SHELL) $(top_srcdir)/mkinstalldirs $(DESTDIR)$(gettextsrcdir); \
+ fi; \
+ $(INSTALL_DATA) $(srcdir)/Makefile.in.in \
+ $(DESTDIR)$(gettextsrcdir)/Makefile.in.in; \
+ else \
+ : ; \
+ fi
+
+# Define this as empty until I found a useful application.
+installcheck:
+
+uninstall:
+ catalogs='$(CATALOGS)'; \
+ for cat in $$catalogs; do \
+ cat=`basename $$cat`; \
+ lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
+ for dir in $(localedir) $(gnulocaledir); do \
+ for lc in LC_MESSAGES LC_TIME; do \
+ for x in '' .m; do \
+ rm -f $(DESTDIR)$$dir/$$lang/$$lc/$(PACKAGE)$(INSTOBJEXT)$$x; \
+ done; \
+ done; \
+ done; \
+ done
+
+check: all
+
+cat-id-tbl.o: ../intl/libgettext.h
+
+dvi info tags TAGS ID:
+
+mostlyclean:
+ rm -f core core.* *.pox $(PACKAGE).po *.old.po cat-id-tbl.tmp
+ rm -fr *.o
+
+clean: mostlyclean
+
+distclean: clean
+ rm -f Makefile Makefile.in POTFILES *.mo *.msg *.cat *.cat.m
+
+maintainer-clean: distclean
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+ rm -f $(GMOFILES)
+
+distdir = ../$(PACKAGE)-$(VERSION)/$(subdir)
+dist distdir: update-po $(DISTFILES)
+ dists="$(DISTFILES)"; \
+ for file in $$dists; do \
+ cp -p $(srcdir)/$$file $(distdir); \
+ done
+
+update-po: Makefile
+ $(MAKE) $(PACKAGE).pot
+ catalogs='$(CATALOGS)'; \
+ for cat in $$catalogs; do \
+ cat=`basename $$cat`; \
+ lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
+ echo "$$lang:"; \
+ if $(MSGMERGE) $(srcdir)/$$lang.po \
+ $(srcdir)/$(PACKAGE).pot -o $$lang.new.po; then \
+ if cmp $$lang.new.po $(srcdir)/$$lang.po >/dev/null; then \
+ echo "$$lang.po is unchanged"; \
+ rm -f $$lang.new.po; \
+ else \
+ echo "updating $$lang.po"; \
+ rm -f $(srcdir)/$$lang.po; \
+ mv $$lang.new.po $(srcdir)/$$lang.po; \
+ fi; \
+ else \
+ echo "msgmerge for $$cat failed!"; \
+ rm -f $$lang.new.po; \
+ exit 1; \
+ fi; \
+ done
+
+POTFILES: POTFILES.in
+ ( if test 'x$(srcdir)' != 'x.'; then \
+ posrcprefix='$(top_srcdir)/'; \
+ else \
+ posrcprefix="../"; \
+ fi; \
+ rm -f $@-t $@ \
+ && (sed -e '/^#/d' -e '/^[ ]*$$/d' \
+ -e "s@.*@ $$posrcprefix& \\\\@" < $(srcdir)/$@.in \
+ | sed -e '$$s/\\$$//') > $@-t \
+ && chmod a-w $@-t \
+ && mv $@-t $@ )
+
+Makefile: Makefile.in.in ../config.status POTFILES
+ cd .. \
+ && CONFIG_FILES=$(subdir)/$@.in CONFIG_HEADERS= \
+ $(SHELL) ./config.status
+
+# Tell versions [3.59,3.63) of GNU make not to export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
+
+# Tell version 3.79 and up of GNU make to not build goals in this
+# directory in parallel.
+.NOTPARALLEL:
diff --git a/po/POTFILES.in b/po/POTFILES.in
new file mode 100644
index 00000000..d5f623e2
--- /dev/null
+++ b/po/POTFILES.in
@@ -0,0 +1,23 @@
+# List of source files containing translatable strings.
+# Copyright (C) 1999 Free Software Foundation, Inc.
+
+array.c
+builtin.c
+ext.c
+getopt.c
+main.c
+profile.c
+regex.c
+awkgram.c
+dfa.c
+field.c
+getopt1.c
+msg.c
+random.c
+version.c
+eval.c
+gawkmisc.c
+io.c
+node.c
+re.c
+posix/gawkmisc.c
diff --git a/po/cat-id-tbl.c b/po/cat-id-tbl.c
new file mode 100644
index 00000000..ba3581c3
--- /dev/null
+++ b/po/cat-id-tbl.c
@@ -0,0 +1,411 @@
+/* Automatically generated by po2tbl.sed from gawk.pot. */
+
+#if HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include "libgettext.h"
+
+const struct _msg_ent _msg_tbl[] = {
+ {"", 1},
+ {"attempt to use scalar `%s' as array", 2},
+ {"reference to uninitialized element `%s[\"%s\"]'", 3},
+ {"subscript of array `%s' is null string", 4},
+ {"delete: illegal use of variable `%s' as array", 5},
+ {"delete: index `%s' not in array `%s'", 6},
+ {"%s: empty (null)\n", 7},
+ {"%s: empty (zero)\n", 8},
+ {"%s: table_size = %d, array_size = %d\n", 9},
+ {"%s: is paramater\n", 10},
+ {"%s: array_ref to %s\n", 11},
+ {"asort: first argument is not an array", 12},
+ {"asort: second argument is not an array", 13},
+ {"%s to \"%s\" failed (%s)", 14},
+ {"standard output", 15},
+ {"reason unknown", 16},
+ {"exp: received non-numeric argument", 17},
+ {"exp: argument %g is out of range", 18},
+ {"fflush: cannot flush: pipe `%s' opened for reading, not writing", 19},
+ {"fflush: cannot flush: file `%s' opened for reading, not writing", 20},
+ {"fflush: `%s' is not an open file, pipe or co-process", 21},
+ {"index: received non-string first argument", 22},
+ {"index: received non-string second argument", 23},
+ {"int: received non-numeric argument", 24},
+ {"length: received non-string argument", 25},
+ {"log: received non-numeric argument", 26},
+ {"log: received negative argument %g", 27},
+ {"`$' is not permitted in awk formats", 28},
+ {"arg count with `$' must be > 0", 29},
+ {"arg count %d greater than total number of supplied arguments", 30},
+ {"`$' not permitted after period in format", 31},
+ {"no `$' supplied for positional field width or precision", 32},
+ {"`l' is meaningless in awk formats; ignored", 33},
+ {"`l' is not permitted in POSIX awk formats", 34},
+ {"`L' is meaningless in awk formats; ignored", 35},
+ {"`L' is not permitted in POSIX awk formats", 36},
+ {"`h' is meaningless in awk formats; ignored", 37},
+ {"`h' is not permitted in POSIX awk formats", 38},
+ {"not enough arguments to satisfy format string", 39},
+ {"^ ran out for this one", 40},
+ {"[s]printf: format specifier does not have control letter", 41},
+ {"too many arguments supplied for format string", 42},
+ {"printf: no arguments", 43},
+ {"sqrt: received non-numeric argument", 44},
+ {"sqrt: called with negative argument %g", 45},
+ {"substr: start index %g is invalid, using 1", 46},
+ {"substr: non-integer start index %g will be truncated", 47},
+ {"substr: length %g is <= 0", 48},
+ {"substr: non-integer length %g will be truncated", 49},
+ {"substr: source string is zero length", 50},
+ {"\
+substr: length %d at start index %d exceeds length of first argument (%d)", 51},
+ {"substr: start index %d is past end of string", 52},
+ {"strftime: recieved non-string first argument", 53},
+ {"strftime: received empty format string", 54},
+ {"strftime: recieved non-numeric second argument", 55},
+ {"mktime: received non-string argument", 56},
+ {"system: recieved non-string argument", 57},
+ {"tolower: recieved non-string argument", 58},
+ {"toupper: recieved non-string argument", 59},
+ {"atan2: received non-numeric first argument", 60},
+ {"atan2: received non-numeric second argument", 61},
+ {"sin: received non-numeric argument", 62},
+ {"cos: received non-numeric argument", 63},
+ {"srand: received non-numeric argument", 64},
+ {"match: third argument is not an array", 65},
+ {"gensub: 3rd argument of 0 treated as 1", 66},
+ {"lshift: received non-numeric first argument", 67},
+ {"lshift(%lf, %lf): negative values will give strange results", 68},
+ {"lshift(%lf, %lf): fractional values will be truncated", 69},
+ {"lshift(%lf, %lf): too large shift value will give strange results", 70},
+ {"rshift: received non-numeric first argument", 71},
+ {"rshift(%lf, %lf): negative values will give strange results", 72},
+ {"rshift(%lf, %lf): fractional values will be truncated", 73},
+ {"rshift(%lf, %lf): too large shift value will give strange results", 74},
+ {"and: received non-numeric first argument", 75},
+ {"and(%lf, %lf): negative values will give strange results", 76},
+ {"and(%lf, %lf): fractional values will be truncated", 77},
+ {"or: received non-numeric first argument", 78},
+ {"or(%lf, %lf): negative values will give strange results", 79},
+ {"or(%lf, %lf): fractional values will be truncated", 80},
+ {"xor: received non-numeric first argument", 81},
+ {"xor(%lf, %lf): negative values will give strange results", 82},
+ {"xor(%lf, %lf): fractional values will be truncated", 83},
+ {"compl: received non-numeric argument", 84},
+ {"compl(%lf): negative value will give strange results", 85},
+ {"compl(%lf): fractional value will be truncated", 86},
+ {"dcgettext: `%s' is not a valid locale category", 87},
+ {"`extension' is a gawk extension", 88},
+ {"extension: cannot open `%s' (%s)\n", 89},
+ {"extension: library `%s': cannot call function `%s' (%s)\n", 90},
+ {"Operation Not Supported", 91},
+ {"%s: option `%s' is ambiguous\n", 92},
+ {"%s: option `--%s' doesn't allow an argument\n", 93},
+ {"%s: option `%c%s' doesn't allow an argument\n", 94},
+ {"%s: option `%s' requires an argument\n", 95},
+ {"%s: unrecognized option `--%s'\n", 96},
+ {"%s: unrecognized option `%c%s'\n", 97},
+ {"%s: illegal option -- %c\n", 98},
+ {"%s: invalid option -- %c\n", 99},
+ {"%s: option requires an argument -- %c\n", 100},
+ {"%s: option `-W %s' is ambiguous\n", 101},
+ {"%s: option `-W %s' doesn't allow an argument\n", 102},
+ {"`-m[fr]' option irrelevant in gawk", 103},
+ {"-m option usage: `-m[fr] nnn'", 104},
+ {"%s: option `-W %s' unrecognized, ignored\n", 105},
+ {"empty argument to `--source' ignored", 106},
+ {"environment variable `POSIXLY_CORRECT' set: turning on `--posix'", 107},
+ {"`--posix' overrides `--traditional'", 108},
+ {"`--posix'/`--traditional' overrides `--non-decimal-data'", 109},
+ {"runing %s setuid root may be a security problem", 110},
+ {"can't set mode on stdin (%s)", 111},
+ {"can't set mode on stdout (%s)", 112},
+ {"can't set mode on stderr (%s)", 113},
+ {"no program text at all!", 114},
+ {"Usage: %s [POSIX or GNU style options] -f progfile [--] file ...\n", 115},
+ {"Usage: %s [POSIX or GNU style options] [--] %cprogram%c file ...\n", 116},
+ {"POSIX options:\t\tGNU long options:\n", 117},
+ {"\t-f progfile\t\t--file=progfile\n", 118},
+ {"\t-F fs\t\t\t--field-separator=fs\n", 119},
+ {"\t-v var=val\t\t--assign=var=val\n", 120},
+ {"\t-m[fr] val\n", 121},
+ {"\t-W compat\t\t--compat\n", 122},
+ {"\t-W copyleft\t\t--copyleft\n", 123},
+ {"\t-W copyright\t\t--copyright\n", 124},
+ {"\t-W dump-variables[=file]\t--dump-variables[=file]\n", 125},
+ {"\t-W gen-po\t\t--gen-po\n", 126},
+ {"\t-W help\t\t\t--help\n", 127},
+ {"\t-W lint[=fatal]\t\t--lint[=fatal]\n", 128},
+ {"\t-W lint-old\t\t--lint-old\n", 129},
+ {"\t-W non-decimal-data\t--non-decimal-data\n", 130},
+ {"\t-W nostalgia\t\t--nostalgia\n", 131},
+ {"\t-W parsedebug\t\t--parsedebug\n", 132},
+ {"\t-W profile[=file]\t--profile[=file]\n", 133},
+ {"\t-W posix\t\t--posix\n", 134},
+ {"\t-W re-interval\t\t--re-interval\n", 135},
+ {"\t-W source=program-text\t--source=program-text\n", 136},
+ {"\t-W traditional\t\t--traditional\n", 137},
+ {"\t-W usage\t\t--usage\n", 138},
+ {"\t-W version\t\t--version\n", 139},
+ {"\
+\n\
+To report bugs, see node `Bugs' in `gawk.info', which is\n", 140},
+ {"section `Reporting Problems and Bugs' in the printed version.\n", 141},
+ {"\
+Copyright (C) 1989, 1991-2001 Free Software Foundation.\n\
+\n\
+This program is free software; you can redistribute it and/or modify\n\
+it under the terms of the GNU General Public License as published by\n\
+the Free Software Foundation; either version 2 of the License, or\n\
+(at your option) any later version.\n\
+\n", 142},
+ {"\
+This program is distributed in the hope that it will be useful,\n\
+but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\
+GNU General Public License for more details.\n\
+\n", 143},
+ {"\
+You should have received a copy of the GNU General Public License\n\
+along with this program; if not, write to the Free Software\n\
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n", 144},
+ {"-Ft does not set FS to tab in POSIX awk", 145},
+ {"could not find groups: %s", 146},
+ {"invalid syntax in name `%s' for variable assignment", 147},
+ {"floating point exception", 148},
+ {"fatal error: internal error", 149},
+ {"no pre-opened fd %d", 150},
+ {"could not pre-open /dev/null for fd %d", 151},
+ {"could not open `%s' for writing: %s", 152},
+ {"sending profile to standard error", 153},
+ {"internal error: Node_var with null vname", 154},
+ {"internal error: Node_var_array with null vname", 155},
+ {"\
+function `%s' called with space between name and `(',\n\
+%s", 156},
+ {"or used in other expression context", 157},
+ {"attempt to use array `%s' in a scalar context", 158},
+ {"illegal type (%s) in tree_eval", 159},
+ {"attempt to use function `%s' as array", 160},
+ {"`%s' is a function, assignment is not allowed", 161},
+ {"assignment is not allowed to result of builtin function", 162},
+ {"\t# gawk profile, created %s\n", 163},
+ {"\
+\t# BEGIN block(s)\n\
+\n", 164},
+ {"\
+\t# Rule(s)\n\
+\n", 165},
+ {"\
+\t# END block(s)\n\
+\n", 166},
+ {"\
+\n\
+\t# Functions, listed alphabetically\n", 167},
+ {"unexpected type %s in prec_level", 168},
+ {"Success", 169},
+ {"No match", 170},
+ {"Invalid regular expression", 171},
+ {"Invalid collation character", 172},
+ {"Invalid character class name", 173},
+ {"Trailing backslash", 174},
+ {"Invalid back reference", 175},
+ {"Unmatched [ or [^", 176},
+ {"Unmatched ( or \\(", 177},
+ {"Unmatched \\{", 178},
+ {"Invalid content of \\{\\}", 179},
+ {"Invalid range end", 180},
+ {"Memory exhausted", 181},
+ {"Invalid preceding regular expression", 182},
+ {"Premature end of regular expression", 183},
+ {"Regular expression too big", 184},
+ {"Unmatched ) or \\)", 185},
+ {"No previous regular expression", 186},
+ {"BEGIN blocks must have an action part", 187},
+ {"END blocks must have an action part", 188},
+ {"`%s' is a built-in function, it cannot be redefined", 189},
+ {"statement may have no effect", 190},
+ {"plain `print' in BEGIN or END rule should probably be `print \"\"'", 191},
+ {"`next' used in BEGIN or END action", 192},
+ {"`nextfile' is a gawk extension", 193},
+ {"`nextfile' used in BEGIN or END action", 194},
+ {"`return' used outside function context", 195},
+ {"`delete array' is a gawk extension", 196},
+ {"multistage two-way pipelines don't work", 197},
+ {"regular expression on right of assignment", 198},
+ {"non-redirected `getline' undefined inside END action", 199},
+ {"regular expression on left of `~' or `!~' operator", 200},
+ {"regexp constant `/%s/' looks like a C comment, but is not", 201},
+ {"regular expression on right of comparison", 202},
+ {"non-redirected `getline' undefined inside BEGIN or END action", 203},
+ {"call of `length' without parentheses is not portable", 204},
+ {"call of `length' without parentheses is deprecated by POSIX", 205},
+ {"invalid subscript expression", 206},
+ {"fptr %x not in tokentab\n", 207},
+ {"unexpected newline", 208},
+ {"empty program text on command line", 209},
+ {"can't open source file `%s' for reading (%s)", 210},
+ {"can't read sourcefile `%s' (%s)", 211},
+ {"source file `%s' is empty", 212},
+ {"source file does not end in newline", 213},
+ {"unterminated regexp ends with `\\' at end of file", 214},
+ {"unterminated regexp", 215},
+ {"unterminated regexp at end of file", 216},
+ {"use of `\\ #...' line continuation is not portable", 217},
+ {"backslash not last character on line", 218},
+ {"POSIX does not allow operator `**='", 219},
+ {"old awk does not support operator `**='", 220},
+ {"POSIX does not allow operator `**'", 221},
+ {"old awk does not support operator `**'", 222},
+ {"operator `^=' is not supported in old awk", 223},
+ {"operator `^' is not supported in old awk", 224},
+ {"unterminated string", 225},
+ {"invalid char '%c' in expression", 226},
+ {"`%s' is a gawk extension", 227},
+ {"`%s' is a Bell Labs extension", 228},
+ {"POSIX does not allow `%s'", 229},
+ {"`%s' is not supported in old awk", 230},
+ {"`goto' considered harmful!\n", 231},
+ {"%d is invalid as number of arguments for %s", 232},
+ {"match: third argument is a gawk extension", 233},
+ {"%s: string literal as last arg of substitute has no effect", 234},
+ {"sub third parameter is not a changeable object", 235},
+ {"gsub third parameter is not a changeable object", 236},
+ {"close: second argument is a gawk extension", 237},
+ {"use of dcgettext(_\"...\") is incorrect: remove leading underscore", 238},
+ {"function `%s': parameter #%d, `%s', duplicates parameter #%d", 239},
+ {"function `%s': parameter `%s' shadows global variable", 240},
+ {"could not open `%s' for writing (%s)", 241},
+ {"%s: close failed (%s)", 242},
+ {"shadow_funcs() called twice!", 243},
+ {"function `%s': can't use function name as parameter name", 244},
+ {"function name `%s' previously defined", 245},
+ {"function `%s' called but never defined", 246},
+ {"function `%s' defined but never called", 247},
+ {"regexp constant for parameter #%d yields boolean value", 248},
+ {"Unfinished \\ escape", 249},
+ {"unfinished repeat count", 250},
+ {"malformed repeat count", 251},
+ {"Unbalanced [", 252},
+ {"Unbalanced (", 253},
+ {"No regexp syntax bits specified", 254},
+ {"Unbalanced )", 255},
+ {"out of memory", 256},
+ {"split: second argument is not an array", 257},
+ {"split: null string for third arg is a gawk extension", 258},
+ {"`FIELDWIDTHS' is a gawk extension", 259},
+ {"field %d in FIELDWIDTHS, must be > 0", 260},
+ {"null string for `FS' is a gawk extension", 261},
+ {"cmd. line:", 262},
+ {"warning: ", 263},
+ {"error: ", 264},
+ {"fatal: ", 265},
+ {"unknown nodetype %d", 266},
+ {"buffer overflow in genflags2str", 267},
+ {"for loop: array `%s' changed size from %d to %d during loop execution", 268},
+ {"`break' outside a loop is not portable", 269},
+ {"`break' outside a loop is not allowed", 270},
+ {"`continue' outside a loop is not portable", 271},
+ {"`continue' outside a loop is not allowed", 272},
+ {"`next' cannot be called from a BEGIN rule", 273},
+ {"`next' cannot be called from an END rule", 274},
+ {"`nextfile' cannot be called from a BEGIN rule", 275},
+ {"`nextfile' cannot be called from an END rule", 276},
+ {"statement has no effect", 277},
+ {"reference to uninitialized variable `%s'", 278},
+ {"can't use function name `%s' as variable or array", 279},
+ {"reference to uninitialized argument `%s'", 280},
+ {"assignment used in conditional context", 281},
+ {"\
+concatenation: side effects in one expression have changed the length of \
+another!", 282},
+ {"division by zero attempted", 283},
+ {"division by zero attempted in `%%'", 284},
+ {"division by zero attempted in `/='", 285},
+ {"division by zero attempted in `%%='", 286},
+ {"%s (from %s)", 287},
+ {"function `%s' called with more arguments than declared", 288},
+ {"function `%s' not defined", 289},
+ {"function %s called\n", 290},
+ {"\
+\n\
+\t# Function Call Stack:\n\
+\n", 291},
+ {"\t# -- main --\n", 292},
+ {"attempt to field reference from non-numeric value", 293},
+ {"attempt to reference from null string", 294},
+ {"attempt to access field %d", 295},
+ {"attempt to use scalar parameter `%s' as an array", 296},
+ {"`IGNORECASE' is a gawk extension", 297},
+ {"`BINMODE' is a gawk extension", 298},
+ {"bad `%sFMT' specification `%s'", 299},
+ {"turning off `--lint' due to assignment to `LINT'", 300},
+ {"cannot open file `%s' for reading (%s)", 301},
+ {"close of fd %d (`%s') failed (%s)", 302},
+ {"invalid tree type %s in redirect()", 303},
+ {"expression in `%s' redirection only has numeric value", 304},
+ {"expression for `%s' redirection has null string value", 305},
+ {"filename `%s' for `%s' redirection may be result of logical expression", 306},
+ {"unnecessary mixing of `>' and `>>' for file `%.*s'", 307},
+ {"can't open pipe `%s' for output (%s)", 308},
+ {"can't open pipe `%s' for input (%s)", 309},
+ {"can't open two way socket `%s' for input/output (%s)", 310},
+ {"can't open two way pipe `%s' for input/output (%s)", 311},
+ {"can't redirect from `%s' (%s)", 312},
+ {"can't redirect to `%s' (%s)", 313},
+ {"\
+reached system limit for open files: starting to multiplex file descriptors", 314},
+ {"close of `%s' failed (%s).", 315},
+ {"too many pipes or input files open", 316},
+ {"close: second argument must be `to' or `from'", 317},
+ {"close: `%.*s' is not an open file, pipe or co-process", 318},
+ {"close of redirection that was never opened", 319},
+ {"close: redirection `%s' not opened with `|&', second argument ignored", 320},
+ {"failure status (%d) on pipe close of `%s' (%s)", 321},
+ {"failure status (%d) on file close of `%s' (%s)", 322},
+ {"no explicit close of socket `%s' provided", 323},
+ {"no explicit close of co-process `%s' provided", 324},
+ {"no explicit close of pipe `%s' provided", 325},
+ {"no explicit close of file `%s' provided", 326},
+ {"error writing standard output (%s)", 327},
+ {"error writing standard error (%s)", 328},
+ {"pipe flush of `%s' failed (%s).", 329},
+ {"co-process flush of pipe to `%s' failed (%s).", 330},
+ {"file flush of `%s' failed (%s).", 331},
+ {"/inet/raw client not ready yet, sorry", 332},
+ {"only root may use `/inet/raw'.", 333},
+ {"/inet/raw server not ready yet, sorry", 334},
+ {"no (known) protocol supplied in special filename `%s'", 335},
+ {"special file name `%s' is incomplete", 336},
+ {"local port invalid in `%s'", 337},
+ {"must supply a remote hostname to `/inet'", 338},
+ {"must supply a remote port to `/inet'", 339},
+ {"remote port invalid in `%s'", 340},
+ {"TCP/IP communications are not supported", 341},
+ {"file `%s' is a directory", 342},
+ {"use `PROCINFO[\"%s\"]' instead of `%s'", 343},
+ {"use `PROCINFO[...]' instead of `/dev/user'", 344},
+ {"could not open `%s', mode `%s'", 345},
+ {"close of stdout in child failed (%s)", 346},
+ {"moving pipe to stdout in child failed (dup: %s)", 347},
+ {"close of stdin in child failed (%s)", 348},
+ {"moving pipe to stdin in child failed (dup: %s)", 349},
+ {"close of pipe failed (%s)", 350},
+ {"pipe from `%s': could not set close-on-exec (fcntl: %s)", 351},
+ {"pipe to `%s': could not set close-on-exec (fcntl: %s)", 352},
+ {"`|&' not supported", 353},
+ {"cannot open pipe `%s' (%s)", 354},
+ {"cannot create child process for `%s' (fork: %s)", 355},
+ {"data file `%s' is empty", 356},
+ {"internal error: file `%s', line %d\n", 357},
+ {"error reading input file `%s': %s", 358},
+ {"multicharacter value of `RS' is a gawk extension", 359},
+ {"can't convert string to float", 360},
+ {"backslash at end of string", 361},
+ {"POSIX does not allow `\\x' escapes", 362},
+ {"no hex digits in `\\x' escape sequence", 363},
+ {"escape sequence `\\%c' treated as plain `%c'", 364},
+ {"%s %s `%s': could not set close-on-exec: %s", 365},
+};
+
+int _msg_tbl_length = 365;
diff --git a/po/gawk.pot b/po/gawk.pot
new file mode 100644
index 00000000..57a26254
--- /dev/null
+++ b/po/gawk.pot
@@ -0,0 +1,1696 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR Free Software Foundation, Inc.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2001-05-15 19:48+0300\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=CHARSET\n"
+"Content-Transfer-Encoding: ENCODING\n"
+
+#: array.c:243 array.c:278 eval.c:483
+#, c-format
+msgid "attempt to use scalar `%s' as array"
+msgstr ""
+
+#: array.c:302
+#, c-format
+msgid "reference to uninitialized element `%s[\"%s\"]'"
+msgstr ""
+
+#: array.c:308
+#, c-format
+msgid "subscript of array `%s' is null string"
+msgstr ""
+
+#: array.c:371 array.c:454
+#, c-format
+msgid "delete: illegal use of variable `%s' as array"
+msgstr ""
+
+#: array.c:404
+#, c-format
+msgid "delete: index `%s' not in array `%s'"
+msgstr ""
+
+#: array.c:569
+#, c-format
+msgid "%s: empty (null)\n"
+msgstr ""
+
+#: array.c:574
+#, c-format
+msgid "%s: empty (zero)\n"
+msgstr ""
+
+#: array.c:578
+#, c-format
+msgid "%s: table_size = %d, array_size = %d\n"
+msgstr ""
+
+#: array.c:610
+#, c-format
+msgid "%s: is paramater\n"
+msgstr ""
+
+#: array.c:615
+#, c-format
+msgid "%s: array_ref to %s\n"
+msgstr ""
+
+#: array.c:842
+msgid "asort: first argument is not an array"
+msgstr ""
+
+#: array.c:851
+msgid "asort: second argument is not an array"
+msgstr ""
+
+#: builtin.c:107
+#, c-format
+msgid "%s to \"%s\" failed (%s)"
+msgstr ""
+
+#: builtin.c:108
+msgid "standard output"
+msgstr ""
+
+#: builtin.c:109
+msgid "reason unknown"
+msgstr ""
+
+#: builtin.c:122
+msgid "exp: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:128
+#, c-format
+msgid "exp: argument %g is out of range"
+msgstr ""
+
+#: builtin.c:186
+#, c-format
+msgid "fflush: cannot flush: pipe `%s' opened for reading, not writing"
+msgstr ""
+
+#: builtin.c:189
+#, c-format
+msgid "fflush: cannot flush: file `%s' opened for reading, not writing"
+msgstr ""
+
+#: builtin.c:201
+#, c-format
+msgid "fflush: `%s' is not an open file, pipe or co-process"
+msgstr ""
+
+#: builtin.c:222
+msgid "index: received non-string first argument"
+msgstr ""
+
+#: builtin.c:224
+msgid "index: received non-string second argument"
+msgstr ""
+
+#: builtin.c:287
+msgid "int: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:304
+msgid "length: received non-string argument"
+msgstr ""
+
+#: builtin.c:320
+msgid "log: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:323
+#, c-format
+msgid "log: received negative argument %g"
+msgstr ""
+
+#: builtin.c:583
+msgid "`$' is not permitted in awk formats"
+msgstr ""
+
+#: builtin.c:589
+msgid "arg count with `$' must be > 0"
+msgstr ""
+
+#: builtin.c:591
+#, c-format
+msgid "arg count %d greater than total number of supplied arguments"
+msgstr ""
+
+#: builtin.c:593
+msgid "`$' not permitted after period in format"
+msgstr ""
+
+#: builtin.c:606
+msgid "no `$' supplied for positional field width or precision"
+msgstr ""
+
+#: builtin.c:664
+msgid "`l' is meaningless in awk formats; ignored"
+msgstr ""
+
+#: builtin.c:668
+msgid "`l' is not permitted in POSIX awk formats"
+msgstr ""
+
+#: builtin.c:679
+msgid "`L' is meaningless in awk formats; ignored"
+msgstr ""
+
+#: builtin.c:683
+msgid "`L' is not permitted in POSIX awk formats"
+msgstr ""
+
+#: builtin.c:694
+msgid "`h' is meaningless in awk formats; ignored"
+msgstr ""
+
+#: builtin.c:698
+msgid "`h' is not permitted in POSIX awk formats"
+msgstr ""
+
+#: builtin.c:947
+msgid "not enough arguments to satisfy format string"
+msgstr ""
+
+#: builtin.c:949
+msgid "^ ran out for this one"
+msgstr ""
+
+#: builtin.c:954
+msgid "[s]printf: format specifier does not have control letter"
+msgstr ""
+
+#: builtin.c:957
+msgid "too many arguments supplied for format string"
+msgstr ""
+
+#: builtin.c:1000 builtin.c:1003
+msgid "printf: no arguments"
+msgstr ""
+
+#: builtin.c:1036
+msgid "sqrt: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:1040
+#, c-format
+msgid "sqrt: called with negative argument %g"
+msgstr ""
+
+#: builtin.c:1062
+#, c-format
+msgid "substr: start index %g is invalid, using 1"
+msgstr ""
+
+#: builtin.c:1067
+#, c-format
+msgid "substr: non-integer start index %g will be truncated"
+msgstr ""
+
+#: builtin.c:1081
+#, c-format
+msgid "substr: length %g is <= 0"
+msgstr ""
+
+#: builtin.c:1087
+#, c-format
+msgid "substr: non-integer length %g will be truncated"
+msgstr ""
+
+#: builtin.c:1094
+msgid "substr: source string is zero length"
+msgstr ""
+
+#: builtin.c:1101
+#, c-format
+msgid ""
+"substr: length %d at start index %d exceeds length of first argument (%d)"
+msgstr ""
+
+#: builtin.c:1107
+#, c-format
+msgid "substr: start index %d is past end of string"
+msgstr ""
+
+#: builtin.c:1143
+msgid "strftime: recieved non-string first argument"
+msgstr ""
+
+#: builtin.c:1149
+msgid "strftime: received empty format string"
+msgstr ""
+
+#: builtin.c:1158
+msgid "strftime: recieved non-numeric second argument"
+msgstr ""
+
+#: builtin.c:1221
+msgid "mktime: received non-string argument"
+msgstr ""
+
+#: builtin.c:1266
+msgid "system: recieved non-string argument"
+msgstr ""
+
+#: builtin.c:1386
+msgid "tolower: recieved non-string argument"
+msgstr ""
+
+#: builtin.c:1407
+msgid "toupper: recieved non-string argument"
+msgstr ""
+
+#: builtin.c:1430
+msgid "atan2: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:1432
+msgid "atan2: received non-numeric second argument"
+msgstr ""
+
+#: builtin.c:1451
+msgid "sin: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:1467
+msgid "cos: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:1511
+msgid "srand: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:1545
+msgid "match: third argument is not an array"
+msgstr ""
+
+#: builtin.c:1942
+msgid "gensub: 3rd argument of 0 treated as 1"
+msgstr ""
+
+#: builtin.c:2053 builtin.c:2055
+msgid "lshift: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:2057
+#, c-format
+msgid "lshift(%lf, %lf): negative values will give strange results"
+msgstr ""
+
+#: builtin.c:2059
+#, c-format
+msgid "lshift(%lf, %lf): fractional values will be truncated"
+msgstr ""
+
+#: builtin.c:2061
+#, c-format
+msgid "lshift(%lf, %lf): too large shift value will give strange results"
+msgstr ""
+
+#: builtin.c:2090 builtin.c:2092
+msgid "rshift: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:2094
+#, c-format
+msgid "rshift(%lf, %lf): negative values will give strange results"
+msgstr ""
+
+#: builtin.c:2096
+#, c-format
+msgid "rshift(%lf, %lf): fractional values will be truncated"
+msgstr ""
+
+#: builtin.c:2098
+#, c-format
+msgid "rshift(%lf, %lf): too large shift value will give strange results"
+msgstr ""
+
+#: builtin.c:2127 builtin.c:2129
+msgid "and: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:2131
+#, c-format
+msgid "and(%lf, %lf): negative values will give strange results"
+msgstr ""
+
+#: builtin.c:2133
+#, c-format
+msgid "and(%lf, %lf): fractional values will be truncated"
+msgstr ""
+
+#: builtin.c:2162 builtin.c:2164
+msgid "or: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:2166
+#, c-format
+msgid "or(%lf, %lf): negative values will give strange results"
+msgstr ""
+
+#: builtin.c:2168
+#, c-format
+msgid "or(%lf, %lf): fractional values will be truncated"
+msgstr ""
+
+#: builtin.c:2197 builtin.c:2199
+msgid "xor: received non-numeric first argument"
+msgstr ""
+
+#: builtin.c:2201
+#, c-format
+msgid "xor(%lf, %lf): negative values will give strange results"
+msgstr ""
+
+#: builtin.c:2203
+#, c-format
+msgid "xor(%lf, %lf): fractional values will be truncated"
+msgstr ""
+
+#: builtin.c:2231
+msgid "compl: received non-numeric argument"
+msgstr ""
+
+#: builtin.c:2233
+#, c-format
+msgid "compl(%lf): negative value will give strange results"
+msgstr ""
+
+#: builtin.c:2235
+#, c-format
+msgid "compl(%lf): fractional value will be truncated"
+msgstr ""
+
+#. not there
+#: builtin.c:2429
+#, c-format
+msgid "dcgettext: `%s' is not a valid locale category"
+msgstr ""
+
+#: ext.c:60 ext.c:64
+msgid "`extension' is a gawk extension"
+msgstr ""
+
+#: ext.c:74
+#, c-format
+msgid "extension: cannot open `%s' (%s)\n"
+msgstr ""
+
+#: ext.c:82
+#, c-format
+msgid "extension: library `%s': cannot call function `%s' (%s)\n"
+msgstr ""
+
+#: ext.c:180
+msgid "Operation Not Supported"
+msgstr ""
+
+#: getopt.c:688
+#, c-format
+msgid "%s: option `%s' is ambiguous\n"
+msgstr ""
+
+#: getopt.c:713
+#, c-format
+msgid "%s: option `--%s' doesn't allow an argument\n"
+msgstr ""
+
+#: getopt.c:718
+#, c-format
+msgid "%s: option `%c%s' doesn't allow an argument\n"
+msgstr ""
+
+#: getopt.c:736 getopt.c:909
+#, c-format
+msgid "%s: option `%s' requires an argument\n"
+msgstr ""
+
+#. --option
+#: getopt.c:765
+#, c-format
+msgid "%s: unrecognized option `--%s'\n"
+msgstr ""
+
+#. +option or -option
+#: getopt.c:769
+#, c-format
+msgid "%s: unrecognized option `%c%s'\n"
+msgstr ""
+
+#. 1003.2 specifies the format of this message.
+#: getopt.c:795
+#, c-format
+msgid "%s: illegal option -- %c\n"
+msgstr ""
+
+#: getopt.c:798
+#, c-format
+msgid "%s: invalid option -- %c\n"
+msgstr ""
+
+#. 1003.2 specifies the format of this message.
+#: getopt.c:828 getopt.c:958 main.c:397
+#, c-format
+msgid "%s: option requires an argument -- %c\n"
+msgstr ""
+
+#: getopt.c:875
+#, c-format
+msgid "%s: option `-W %s' is ambiguous\n"
+msgstr ""
+
+#: getopt.c:893
+#, c-format
+msgid "%s: option `-W %s' doesn't allow an argument\n"
+msgstr ""
+
+#: main.c:292
+msgid "`-m[fr]' option irrelevant in gawk"
+msgstr ""
+
+#: main.c:294
+msgid "-m option usage: `-m[fr] nnn'"
+msgstr ""
+
+#. gawk specific options - now in getopt_long
+#: main.c:311
+#, c-format
+msgid "%s: option `-W %s' unrecognized, ignored\n"
+msgstr ""
+
+#: main.c:342
+msgid "empty argument to `--source' ignored"
+msgstr ""
+
+#: main.c:414
+msgid "environment variable `POSIXLY_CORRECT' set: turning on `--posix'"
+msgstr ""
+
+#. both on command line
+#: main.c:419
+msgid "`--posix' overrides `--traditional'"
+msgstr ""
+
+#: main.c:430
+msgid "`--posix'/`--traditional' overrides `--non-decimal-data'"
+msgstr ""
+
+#: main.c:434
+#, c-format
+msgid "runing %s setuid root may be a security problem"
+msgstr ""
+
+#: main.c:463
+#, c-format
+msgid "can't set mode on stdin (%s)"
+msgstr ""
+
+#: main.c:466
+#, c-format
+msgid "can't set mode on stdout (%s)"
+msgstr ""
+
+#: main.c:468
+#, c-format
+msgid "can't set mode on stderr (%s)"
+msgstr ""
+
+#: main.c:497
+msgid "no program text at all!"
+msgstr ""
+
+#. Not factoring out common stuff makes it easier to translate.
+#: main.c:541
+#, c-format
+msgid "Usage: %s [POSIX or GNU style options] -f progfile [--] file ...\n"
+msgstr ""
+
+#: main.c:543
+#, c-format
+msgid "Usage: %s [POSIX or GNU style options] [--] %cprogram%c file ...\n"
+msgstr ""
+
+#. GNU long options info. This is too many options.
+#: main.c:548
+msgid "POSIX options:\t\tGNU long options:\n"
+msgstr ""
+
+#: main.c:549
+msgid "\t-f progfile\t\t--file=progfile\n"
+msgstr ""
+
+#: main.c:550
+msgid "\t-F fs\t\t\t--field-separator=fs\n"
+msgstr ""
+
+#: main.c:551
+msgid "\t-v var=val\t\t--assign=var=val\n"
+msgstr ""
+
+#: main.c:552
+msgid "\t-m[fr] val\n"
+msgstr ""
+
+#: main.c:553
+msgid "\t-W compat\t\t--compat\n"
+msgstr ""
+
+#: main.c:554
+msgid "\t-W copyleft\t\t--copyleft\n"
+msgstr ""
+
+#: main.c:555
+msgid "\t-W copyright\t\t--copyright\n"
+msgstr ""
+
+#: main.c:556
+msgid "\t-W dump-variables[=file]\t--dump-variables[=file]\n"
+msgstr ""
+
+#: main.c:557
+msgid "\t-W gen-po\t\t--gen-po\n"
+msgstr ""
+
+#: main.c:558
+msgid "\t-W help\t\t\t--help\n"
+msgstr ""
+
+#: main.c:559
+msgid "\t-W lint[=fatal]\t\t--lint[=fatal]\n"
+msgstr ""
+
+#: main.c:560
+msgid "\t-W lint-old\t\t--lint-old\n"
+msgstr ""
+
+#: main.c:561
+msgid "\t-W non-decimal-data\t--non-decimal-data\n"
+msgstr ""
+
+#: main.c:563
+msgid "\t-W nostalgia\t\t--nostalgia\n"
+msgstr ""
+
+#: main.c:566
+msgid "\t-W parsedebug\t\t--parsedebug\n"
+msgstr ""
+
+#: main.c:568
+msgid "\t-W profile[=file]\t--profile[=file]\n"
+msgstr ""
+
+#: main.c:569
+msgid "\t-W posix\t\t--posix\n"
+msgstr ""
+
+#: main.c:570
+msgid "\t-W re-interval\t\t--re-interval\n"
+msgstr ""
+
+#: main.c:571
+msgid "\t-W source=program-text\t--source=program-text\n"
+msgstr ""
+
+#: main.c:572
+msgid "\t-W traditional\t\t--traditional\n"
+msgstr ""
+
+#: main.c:573
+msgid "\t-W usage\t\t--usage\n"
+msgstr ""
+
+#: main.c:574
+msgid "\t-W version\t\t--version\n"
+msgstr ""
+
+#: main.c:575
+msgid ""
+"\n"
+"To report bugs, see node `Bugs' in `gawk.info', which is\n"
+msgstr ""
+
+#: main.c:576
+msgid "section `Reporting Problems and Bugs' in the printed version.\n"
+msgstr ""
+
+#: main.c:586
+msgid ""
+"Copyright (C) 1989, 1991-2001 Free Software Foundation.\n"
+"\n"
+"This program is free software; you can redistribute it and/or modify\n"
+"it under the terms of the GNU General Public License as published by\n"
+"the Free Software Foundation; either version 2 of the License, or\n"
+"(at your option) any later version.\n"
+"\n"
+msgstr ""
+
+#: main.c:594
+msgid ""
+"This program is distributed in the hope that it will be useful,\n"
+"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
+"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
+"GNU General Public License for more details.\n"
+"\n"
+msgstr ""
+
+#: main.c:600
+msgid ""
+"You should have received a copy of the GNU General Public License\n"
+"along with this program; if not, write to the Free Software\n"
+"Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n"
+msgstr ""
+
+#: main.c:630
+msgid "-Ft does not set FS to tab in POSIX awk"
+msgstr ""
+
+#: io.c:1371 main.c:830
+#, c-format
+msgid "could not find groups: %s"
+msgstr ""
+
+#: main.c:869
+#, c-format
+msgid "invalid syntax in name `%s' for variable assignment"
+msgstr ""
+
+#: main.c:938
+msgid "floating point exception"
+msgstr ""
+
+#: main.c:945
+msgid "fatal error: internal error"
+msgstr ""
+
+#: main.c:995
+#, c-format
+msgid "no pre-opened fd %d"
+msgstr ""
+
+#: main.c:1000
+#, c-format
+msgid "could not pre-open /dev/null for fd %d"
+msgstr ""
+
+#: profile.c:94
+#, c-format
+msgid "could not open `%s' for writing: %s"
+msgstr ""
+
+#: awkgram.y:2281 profile.c:96
+msgid "sending profile to standard error"
+msgstr ""
+
+#: profile.c:402
+msgid "internal error: Node_var with null vname"
+msgstr ""
+
+#: profile.c:508
+msgid "internal error: Node_var_array with null vname"
+msgstr ""
+
+#: eval.c:816 profile.c:531
+#, c-format
+msgid ""
+"function `%s' called with space between name and `(',\n"
+"%s"
+msgstr ""
+
+#: eval.c:818 profile.c:533
+msgid "or used in other expression context"
+msgstr ""
+
+#: eval.c:796 eval.c:1042 eval.c:1610 eval.c:1736 profile.c:610 profile.c:738
+#, c-format
+msgid "attempt to use array `%s' in a scalar context"
+msgstr ""
+
+#: eval.c:1046 profile.c:614
+#, c-format
+msgid "illegal type (%s) in tree_eval"
+msgstr ""
+
+#: eval.c:1785 profile.c:815
+#, c-format
+msgid "attempt to use function `%s' as array"
+msgstr ""
+
+#: eval.c:1792 profile.c:829
+#, c-format
+msgid "`%s' is a function, assignment is not allowed"
+msgstr ""
+
+#. in gawk for a while
+#: eval.c:1798 eval.c:1805 profile.c:833
+msgid "assignment is not allowed to result of builtin function"
+msgstr ""
+
+#. \n on purpose, with \n in ctime() output
+#: profile.c:1083
+#, c-format
+msgid "\t# gawk profile, created %s\n"
+msgstr ""
+
+#: profile.c:1086
+msgid ""
+"\t# BEGIN block(s)\n"
+"\n"
+msgstr ""
+
+#: profile.c:1096
+msgid ""
+"\t# Rule(s)\n"
+"\n"
+msgstr ""
+
+#: profile.c:1102
+msgid ""
+"\t# END block(s)\n"
+"\n"
+msgstr ""
+
+#: profile.c:1122
+msgid ""
+"\n"
+"\t# Functions, listed alphabetically\n"
+msgstr ""
+
+#: profile.c:1325
+#, c-format
+msgid "unexpected type %s in prec_level"
+msgstr ""
+
+#: regex.c:1017
+msgid "Success"
+msgstr ""
+
+#. REG_NOERROR
+#: regex.c:1018
+msgid "No match"
+msgstr ""
+
+#. REG_NOMATCH
+#: regex.c:1019
+msgid "Invalid regular expression"
+msgstr ""
+
+#. REG_BADPAT
+#: regex.c:1020
+msgid "Invalid collation character"
+msgstr ""
+
+#. REG_ECOLLATE
+#: regex.c:1021
+msgid "Invalid character class name"
+msgstr ""
+
+#. REG_ECTYPE
+#: regex.c:1022
+msgid "Trailing backslash"
+msgstr ""
+
+#. REG_EESCAPE
+#: regex.c:1023
+msgid "Invalid back reference"
+msgstr ""
+
+#. REG_ESUBREG
+#: regex.c:1024
+msgid "Unmatched [ or [^"
+msgstr ""
+
+#. REG_EBRACK
+#: regex.c:1025
+msgid "Unmatched ( or \\("
+msgstr ""
+
+#. REG_EPAREN
+#: regex.c:1026
+msgid "Unmatched \\{"
+msgstr ""
+
+#. REG_EBRACE
+#: regex.c:1027
+msgid "Invalid content of \\{\\}"
+msgstr ""
+
+#. REG_BADBR
+#: regex.c:1028
+msgid "Invalid range end"
+msgstr ""
+
+#. REG_ERANGE
+#: dfa.c:167 dfa.c:178 dfa.c:189 regex.c:1029
+msgid "Memory exhausted"
+msgstr ""
+
+#. REG_ESPACE
+#: regex.c:1030
+msgid "Invalid preceding regular expression"
+msgstr ""
+
+#. REG_BADRPT
+#: regex.c:1031
+msgid "Premature end of regular expression"
+msgstr ""
+
+#. REG_EEND
+#: regex.c:1032
+msgid "Regular expression too big"
+msgstr ""
+
+#. REG_ESIZE
+#: regex.c:1033
+msgid "Unmatched ) or \\)"
+msgstr ""
+
+#: regex.c:5531
+msgid "No previous regular expression"
+msgstr ""
+
+#: awkgram.y:230
+msgid "BEGIN blocks must have an action part"
+msgstr ""
+
+#: awkgram.y:236
+msgid "END blocks must have an action part"
+msgstr ""
+
+#: awkgram.y:272
+#, c-format
+msgid "`%s' is a built-in function, it cannot be redefined"
+msgstr ""
+
+#: awkgram.y:360
+msgid "statement may have no effect"
+msgstr ""
+
+#: awkgram.y:457
+msgid "plain `print' in BEGIN or END rule should probably be `print \"\"'"
+msgstr ""
+
+#: awkgram.y:469
+msgid "`next' used in BEGIN or END action"
+msgstr ""
+
+#: awkgram.y:476 awkgram.y:483
+msgid "`nextfile' is a gawk extension"
+msgstr ""
+
+#: awkgram.y:488
+msgid "`nextfile' used in BEGIN or END action"
+msgstr ""
+
+#: awkgram.y:497
+msgid "`return' used outside function context"
+msgstr ""
+
+#: awkgram.y:506 awkgram.y:513
+msgid "`delete array' is a gawk extension"
+msgstr ""
+
+#: awkgram.y:571
+msgid "multistage two-way pipelines don't work"
+msgstr ""
+
+#: awkgram.y:662
+msgid "regular expression on right of assignment"
+msgstr ""
+
+#: awkgram.y:680
+msgid "non-redirected `getline' undefined inside END action"
+msgstr ""
+
+#: awkgram.y:690
+msgid "regular expression on left of `~' or `!~' operator"
+msgstr ""
+
+#: awkgram.y:700
+#, c-format
+msgid "regexp constant `/%s/' looks like a C comment, but is not"
+msgstr ""
+
+#: awkgram.y:716
+msgid "regular expression on right of comparison"
+msgstr ""
+
+#: awkgram.y:743
+msgid "non-redirected `getline' undefined inside BEGIN or END action"
+msgstr ""
+
+#: awkgram.y:798
+msgid "call of `length' without parentheses is not portable"
+msgstr ""
+
+#: awkgram.y:801
+msgid "call of `length' without parentheses is deprecated by POSIX"
+msgstr ""
+
+#: awkgram.y:851
+msgid "invalid subscript expression"
+msgstr ""
+
+#: awkgram.y:985
+#, c-format
+msgid "fptr %x not in tokentab\n"
+msgstr ""
+
+#: awkgram.y:1019
+msgid "unexpected newline"
+msgstr ""
+
+#: awkgram.y:1098
+msgid "empty program text on command line"
+msgstr ""
+
+#: awkgram.y:1155
+#, c-format
+msgid "can't open source file `%s' for reading (%s)"
+msgstr ""
+
+#: awkgram.y:1190
+#, c-format
+msgid "can't read sourcefile `%s' (%s)"
+msgstr ""
+
+#: awkgram.y:1198
+#, c-format
+msgid "source file `%s' is empty"
+msgstr ""
+
+#: awkgram.y:1312 awkgram.y:1417 awkgram.y:1435 awkgram.y:1778 awkgram.y:1840
+msgid "source file does not end in newline"
+msgstr ""
+
+#: awkgram.y:1373
+msgid "unterminated regexp ends with `\\' at end of file"
+msgstr ""
+
+#: awkgram.y:1394
+msgid "unterminated regexp"
+msgstr ""
+
+#: awkgram.y:1397
+msgid "unterminated regexp at end of file"
+msgstr ""
+
+#: awkgram.y:1461
+msgid "use of `\\ #...' line continuation is not portable"
+msgstr ""
+
+#: awkgram.y:1473
+msgid "backslash not last character on line"
+msgstr ""
+
+#: awkgram.y:1514
+msgid "POSIX does not allow operator `**='"
+msgstr ""
+
+#: awkgram.y:1516
+msgid "old awk does not support operator `**='"
+msgstr ""
+
+#: awkgram.y:1525
+msgid "POSIX does not allow operator `**'"
+msgstr ""
+
+#: awkgram.y:1527
+msgid "old awk does not support operator `**'"
+msgstr ""
+
+#: awkgram.y:1560
+msgid "operator `^=' is not supported in old awk"
+msgstr ""
+
+#: awkgram.y:1568
+msgid "operator `^' is not supported in old awk"
+msgstr ""
+
+#: awkgram.y:1650 awkgram.y:1664
+msgid "unterminated string"
+msgstr ""
+
+#: awkgram.y:1815
+#, c-format
+msgid "invalid char '%c' in expression"
+msgstr ""
+
+#: awkgram.y:1861
+#, c-format
+msgid "`%s' is a gawk extension"
+msgstr ""
+
+#: awkgram.y:1864
+#, c-format
+msgid "`%s' is a Bell Labs extension"
+msgstr ""
+
+#: awkgram.y:1867
+#, c-format
+msgid "POSIX does not allow `%s'"
+msgstr ""
+
+#: awkgram.y:1871
+#, c-format
+msgid "`%s' is not supported in old awk"
+msgstr ""
+
+#: awkgram.y:1899
+msgid "`goto' considered harmful!\n"
+msgstr ""
+
+#: awkgram.y:1963
+#, c-format
+msgid "%d is invalid as number of arguments for %s"
+msgstr ""
+
+#: awkgram.y:1982 awkgram.y:1985
+msgid "match: third argument is a gawk extension"
+msgstr ""
+
+#: awkgram.y:2001
+#, c-format
+msgid "%s: string literal as last arg of substitute has no effect"
+msgstr ""
+
+#: awkgram.y:2005
+msgid "sub third parameter is not a changeable object"
+msgstr ""
+
+#: awkgram.y:2007
+msgid "gsub third parameter is not a changeable object"
+msgstr ""
+
+#: awkgram.y:2033 awkgram.y:2036
+msgid "close: second argument is a gawk extension"
+msgstr ""
+
+#: awkgram.y:2046
+msgid "use of dcgettext(_\"...\") is incorrect: remove leading underscore"
+msgstr ""
+
+#: awkgram.y:2139
+#, c-format
+msgid "function `%s': parameter #%d, `%s', duplicates parameter #%d"
+msgstr ""
+
+#: awkgram.y:2171
+#, c-format
+msgid "function `%s': parameter `%s' shadows global variable"
+msgstr ""
+
+#: awkgram.y:2280
+#, c-format
+msgid "could not open `%s' for writing (%s)"
+msgstr ""
+
+#: awkgram.y:2311
+#, c-format
+msgid "%s: close failed (%s)"
+msgstr ""
+
+#: awkgram.y:2421
+msgid "shadow_funcs() called twice!"
+msgstr ""
+
+#: awkgram.y:2496
+#, c-format
+msgid "function `%s': can't use function name as parameter name"
+msgstr ""
+
+#: awkgram.y:2506
+#, c-format
+msgid "function name `%s' previously defined"
+msgstr ""
+
+#: awkgram.y:2654 awkgram.y:2660
+#, c-format
+msgid "function `%s' called but never defined"
+msgstr ""
+
+#: awkgram.y:2663
+#, c-format
+msgid "function `%s' defined but never called"
+msgstr ""
+
+#: awkgram.y:2690
+#, c-format
+msgid "regexp constant for parameter #%d yields boolean value"
+msgstr ""
+
+#: dfa.c:451
+msgid "Unfinished \\ escape"
+msgstr ""
+
+#. Cases:
+#. {M} - exact count
+#. {M,} - minimum count, maximum is infinity
+#. {M,N} - M through N
+#: dfa.c:584 dfa.c:590 dfa.c:600 dfa.c:608 dfa.c:623
+msgid "unfinished repeat count"
+msgstr ""
+
+#: dfa.c:597 dfa.c:614 dfa.c:622 dfa.c:626
+msgid "malformed repeat count"
+msgstr ""
+
+#: dfa.c:691 dfa.c:694 dfa.c:721 dfa.c:725 dfa.c:726 dfa.c:729 dfa.c:742
+#: dfa.c:743
+msgid "Unbalanced ["
+msgstr ""
+
+#: dfa.c:889
+msgid "Unbalanced ("
+msgstr ""
+
+#: dfa.c:1003
+msgid "No regexp syntax bits specified"
+msgstr ""
+
+#: dfa.c:1011
+msgid "Unbalanced )"
+msgstr ""
+
+#: dfa.c:2002
+msgid "out of memory"
+msgstr ""
+
+#: field.c:787
+msgid "split: second argument is not an array"
+msgstr ""
+
+#: field.c:814
+msgid "split: null string for third arg is a gawk extension"
+msgstr ""
+
+#: field.c:854
+msgid "`FIELDWIDTHS' is a gawk extension"
+msgstr ""
+
+#: field.c:881
+#, c-format
+msgid "field %d in FIELDWIDTHS, must be > 0"
+msgstr ""
+
+#: field.c:935
+msgid "null string for `FS' is a gawk extension"
+msgstr ""
+
+#: msg.c:57
+msgid "cmd. line:"
+msgstr ""
+
+#: msg.c:123
+msgid "warning: "
+msgstr ""
+
+#: msg.c:145
+msgid "error: "
+msgstr ""
+
+#: msg.c:178
+msgid "fatal: "
+msgstr ""
+
+#: eval.c:258
+#, c-format
+msgid "unknown nodetype %d"
+msgstr ""
+
+#: eval.c:306
+msgid "buffer overflow in genflags2str"
+msgstr ""
+
+#: eval.c:545
+#, c-format
+msgid "for loop: array `%s' changed size from %d to %d during loop execution"
+msgstr ""
+
+#: eval.c:569
+msgid "`break' outside a loop is not portable"
+msgstr ""
+
+#: eval.c:573
+msgid "`break' outside a loop is not allowed"
+msgstr ""
+
+#: eval.c:592
+msgid "`continue' outside a loop is not portable"
+msgstr ""
+
+#: eval.c:596
+msgid "`continue' outside a loop is not allowed"
+msgstr ""
+
+#: eval.c:626
+msgid "`next' cannot be called from a BEGIN rule"
+msgstr ""
+
+#: eval.c:628
+msgid "`next' cannot be called from an END rule"
+msgstr ""
+
+#: eval.c:640
+msgid "`nextfile' cannot be called from a BEGIN rule"
+msgstr ""
+
+#: eval.c:642
+msgid "`nextfile' cannot be called from an END rule"
+msgstr ""
+
+#: eval.c:683
+msgid "statement has no effect"
+msgstr ""
+
+#: eval.c:717 eval.c:747 eval.c:1617
+#, c-format
+msgid "reference to uninitialized variable `%s'"
+msgstr ""
+
+#: eval.c:725 eval.c:1603
+#, c-format
+msgid "can't use function name `%s' as variable or array"
+msgstr ""
+
+#: eval.c:732 eval.c:738 eval.c:1742
+#, c-format
+msgid "reference to uninitialized argument `%s'"
+msgstr ""
+
+#: eval.c:826
+msgid "assignment used in conditional context"
+msgstr ""
+
+#: eval.c:917
+msgid ""
+"concatenation: side effects in one expression have changed the length of "
+"another!"
+msgstr ""
+
+#: eval.c:1012
+msgid "division by zero attempted"
+msgstr ""
+
+#: eval.c:1027
+msgid "division by zero attempted in `%%'"
+msgstr ""
+
+#: eval.c:1228
+msgid "division by zero attempted in `/='"
+msgstr ""
+
+#: eval.c:1246
+msgid "division by zero attempted in `%%='"
+msgstr ""
+
+#: eval.c:1419
+#, c-format
+msgid "%s (from %s)"
+msgstr ""
+
+#: eval.c:1467
+#, c-format
+msgid "function `%s' called with more arguments than declared"
+msgstr ""
+
+#: eval.c:1514
+#, c-format
+msgid "function `%s' not defined"
+msgstr ""
+
+#: eval.c:1516
+#, c-format
+msgid "function %s called\n"
+msgstr ""
+
+#: eval.c:1575
+msgid ""
+"\n"
+"\t# Function Call Stack:\n"
+"\n"
+msgstr ""
+
+#: eval.c:1578
+msgid "\t# -- main --\n"
+msgstr ""
+
+#: eval.c:1754
+msgid "attempt to field reference from non-numeric value"
+msgstr ""
+
+#: eval.c:1756
+msgid "attempt to reference from null string"
+msgstr ""
+
+#: eval.c:1762
+#, c-format
+msgid "attempt to access field %d"
+msgstr ""
+
+#: eval.c:1778
+#, c-format
+msgid "attempt to use scalar parameter `%s' as an array"
+msgstr ""
+
+#: eval.c:1869
+msgid "`IGNORECASE' is a gawk extension"
+msgstr ""
+
+#: eval.c:1897
+msgid "`BINMODE' is a gawk extension"
+msgstr ""
+
+#: eval.c:2009
+#, c-format
+msgid "bad `%sFMT' specification `%s'"
+msgstr ""
+
+#: eval.c:2075
+msgid "turning off `--lint' due to assignment to `LINT'"
+msgstr ""
+
+#: io.c:240
+#, c-format
+msgid "cannot open file `%s' for reading (%s)"
+msgstr ""
+
+#: io.c:320
+#, c-format
+msgid "close of fd %d (`%s') failed (%s)"
+msgstr ""
+
+#: io.c:432
+#, c-format
+msgid "invalid tree type %s in redirect()"
+msgstr ""
+
+#: io.c:438
+#, c-format
+msgid "expression in `%s' redirection only has numeric value"
+msgstr ""
+
+#: io.c:444
+#, c-format
+msgid "expression for `%s' redirection has null string value"
+msgstr ""
+
+#: io.c:449
+#, c-format
+msgid "filename `%s' for `%s' redirection may be result of logical expression"
+msgstr ""
+
+#: io.c:471
+#, c-format
+msgid "unnecessary mixing of `>' and `>>' for file `%.*s'"
+msgstr ""
+
+#: io.c:523
+#, c-format
+msgid "can't open pipe `%s' for output (%s)"
+msgstr ""
+
+#: io.c:532
+#, c-format
+msgid "can't open pipe `%s' for input (%s)"
+msgstr ""
+
+#: io.c:545
+#, c-format
+msgid "can't open two way socket `%s' for input/output (%s)"
+msgstr ""
+
+#: io.c:549
+#, c-format
+msgid "can't open two way pipe `%s' for input/output (%s)"
+msgstr ""
+
+#: io.c:625
+#, c-format
+msgid "can't redirect from `%s' (%s)"
+msgstr ""
+
+#: io.c:628
+#, c-format
+msgid "can't redirect to `%s' (%s)"
+msgstr ""
+
+#: io.c:667
+msgid ""
+"reached system limit for open files: starting to multiplex file descriptors"
+msgstr ""
+
+#. do_lint &&
+#: io.c:679
+#, c-format
+msgid "close of `%s' failed (%s)."
+msgstr ""
+
+#. surely this is the only reason ???
+#: io.c:686
+msgid "too many pipes or input files open"
+msgstr ""
+
+#: io.c:709
+msgid "close: second argument must be `to' or `from'"
+msgstr ""
+
+#: io.c:723
+#, c-format
+msgid "close: `%.*s' is not an open file, pipe or co-process"
+msgstr ""
+
+#. update ERRNO manually, using errno = ENOENT is a stretch.
+#: io.c:727
+msgid "close of redirection that was never opened"
+msgstr ""
+
+#: io.c:754
+#, c-format
+msgid "close: redirection `%s' not opened with `|&', second argument ignored"
+msgstr ""
+
+#: io.c:811
+#, c-format
+msgid "failure status (%d) on pipe close of `%s' (%s)"
+msgstr ""
+
+#: io.c:814
+#, c-format
+msgid "failure status (%d) on file close of `%s' (%s)"
+msgstr ""
+
+#: io.c:833
+#, c-format
+msgid "no explicit close of socket `%s' provided"
+msgstr ""
+
+#: io.c:836
+#, c-format
+msgid "no explicit close of co-process `%s' provided"
+msgstr ""
+
+#: io.c:839
+#, c-format
+msgid "no explicit close of pipe `%s' provided"
+msgstr ""
+
+#: io.c:842
+#, c-format
+msgid "no explicit close of file `%s' provided"
+msgstr ""
+
+#: io.c:871 io.c:925
+#, c-format
+msgid "error writing standard output (%s)"
+msgstr ""
+
+#: io.c:875 io.c:929
+#, c-format
+msgid "error writing standard error (%s)"
+msgstr ""
+
+#: io.c:883
+#, c-format
+msgid "pipe flush of `%s' failed (%s)."
+msgstr ""
+
+#: io.c:886
+#, c-format
+msgid "co-process flush of pipe to `%s' failed (%s)."
+msgstr ""
+
+#: io.c:889
+#, c-format
+msgid "file flush of `%s' failed (%s)."
+msgstr ""
+
+#. /inet/raw client not ready yet
+#: io.c:1048
+msgid "/inet/raw client not ready yet, sorry"
+msgstr ""
+
+#: io.c:1050 io.c:1087
+msgid "only root may use `/inet/raw'."
+msgstr ""
+
+#. /inet/raw server not ready yet
+#: io.c:1085
+msgid "/inet/raw server not ready yet, sorry"
+msgstr ""
+
+#: io.c:1175
+#, c-format
+msgid "no (known) protocol supplied in special filename `%s'"
+msgstr ""
+
+#: io.c:1193
+#, c-format
+msgid "special file name `%s' is incomplete"
+msgstr ""
+
+#: io.c:1205
+#, c-format
+msgid "local port invalid in `%s'"
+msgstr ""
+
+#: io.c:1217
+msgid "must supply a remote hostname to `/inet'"
+msgstr ""
+
+#: io.c:1232
+msgid "must supply a remote port to `/inet'"
+msgstr ""
+
+#: io.c:1238
+#, c-format
+msgid "remote port invalid in `%s'"
+msgstr ""
+
+#: io.c:1248
+msgid "TCP/IP communications are not supported"
+msgstr ""
+
+#: io.c:1257 io.c:1446
+#, c-format
+msgid "file `%s' is a directory"
+msgstr ""
+
+#: io.c:1327
+#, c-format
+msgid "use `PROCINFO[\"%s\"]' instead of `%s'"
+msgstr ""
+
+#: io.c:1363
+msgid "use `PROCINFO[...]' instead of `/dev/user'"
+msgstr ""
+
+#: io.c:1432
+#, c-format
+msgid "could not open `%s', mode `%s'"
+msgstr ""
+
+#: io.c:1544 io.c:1665
+#, c-format
+msgid "close of stdout in child failed (%s)"
+msgstr ""
+
+#: io.c:1547 io.c:1668
+#, c-format
+msgid "moving pipe to stdout in child failed (dup: %s)"
+msgstr ""
+
+#: io.c:1549
+#, c-format
+msgid "close of stdin in child failed (%s)"
+msgstr ""
+
+#: io.c:1552
+#, c-format
+msgid "moving pipe to stdin in child failed (dup: %s)"
+msgstr ""
+
+#: io.c:1555 io.c:1670 io.c:1678
+#, c-format
+msgid "close of pipe failed (%s)"
+msgstr ""
+
+#: io.c:1584
+#, c-format
+msgid "pipe from `%s': could not set close-on-exec (fcntl: %s)"
+msgstr ""
+
+#: io.c:1588
+#, c-format
+msgid "pipe to `%s': could not set close-on-exec (fcntl: %s)"
+msgstr ""
+
+#: io.c:1598
+msgid "`|&' not supported"
+msgstr ""
+
+#: io.c:1662
+#, c-format
+msgid "cannot open pipe `%s' (%s)"
+msgstr ""
+
+#: io.c:1675
+#, c-format
+msgid "cannot create child process for `%s' (fork: %s)"
+msgstr ""
+
+#: io.c:2004
+#, c-format
+msgid "data file `%s' is empty"
+msgstr ""
+
+#: io.c:2071
+#, c-format
+msgid "internal error: file `%s', line %d\n"
+msgstr ""
+
+#: io.c:2173
+#, c-format
+msgid "error reading input file `%s': %s"
+msgstr ""
+
+#: io.c:2392
+msgid "multicharacter value of `RS' is a gawk extension"
+msgstr ""
+
+#: node.c:59 node.c:66 node.c:75 node.c:89 node.c:116
+msgid "can't convert string to float"
+msgstr ""
+
+#: node.c:342
+msgid "backslash at end of string"
+msgstr ""
+
+#: node.c:524
+msgid "POSIX does not allow `\\x' escapes"
+msgstr ""
+
+#: node.c:530
+msgid "no hex digits in `\\x' escape sequence"
+msgstr ""
+
+#: node.c:564
+#, c-format
+msgid "escape sequence `\\%c' treated as plain `%c'"
+msgstr ""
+
+#: posix/gawkmisc.c:122
+#, c-format
+msgid "%s %s `%s': could not set close-on-exec: %s"
+msgstr ""
diff --git a/po/he.gmo b/po/he.gmo
new file mode 100644
index 00000000..1905a85d
--- /dev/null
+++ b/po/he.gmo
Binary files differ
diff --git a/po/he.po b/po/he.po
new file mode 100644
index 00000000..519aadd0
--- /dev/null
+++ b/po/he.po
@@ -0,0 +1,1745 @@
+# Hebrew messages for GNU Awk -*- coding: hebrew-iso-8bit -*-
+# Copyright (C) 2001 Free Software Foundation, Inc.
+# Eli Zaretskii <eliz@is.elta.co.il>, 2001.
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: gawk 3.0.97\n"
+"POT-Creation-Date: 2001-05-15 19:48+0300\n"
+"PO-Revision-Date: 2001-05-19 12:36:42 IDT\n"
+"Last-Translator: Eli Zaretskii <eliz@gnu.org>\n"
+"Language-Team: Hebrew <eliz@gnu.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=ISO-8859-8\n"
+"Content-Transfer-Encoding: 8-bit\n"
+
+#: array.c:243 array.c:278 eval.c:483
+#, c-format
+msgid "attempt to use scalar `%s' as array"
+msgstr "êøòîë `%s' øàì÷ñá éåâù ùåîéù"
+
+#: array.c:302
+#, c-format
+msgid "reference to uninitialized element `%s[\"%s\"]'"
+msgstr "ìçåúî åðéàù `%s[\"%s\"]' èðîìàì äééðô"
+
+#: array.c:308
+#, c-format
+msgid "subscript of array `%s' is null string"
+msgstr "`%s' êøòî ïééöîë ä÷éø úæåøçîá ùåîéù"
+
+#: array.c:371 array.c:454
+#, c-format
+msgid "delete: illegal use of variable `%s' as array"
+msgstr "êøòîë `%s' äðúùîá éåâù ùåîéù :delete"
+
+#: array.c:404
+#, c-format
+msgid "delete: index `%s' not in array `%s'"
+msgstr "`%s' ïééöî ìéëî åðéà `%s' êøòî :delete"
+
+#: array.c:569
+#, c-format
+msgid "%s: empty (null)\n"
+msgstr "%s: (ñôåàî) ÷éø\n"
+
+#: array.c:574
+#, c-format
+msgid "%s: empty (zero)\n"
+msgstr "%s: (ä÷éø hash úìáè) ÷éø\n"
+
+#: array.c:578
+#, c-format
+msgid "%s: table_size = %d, array_size = %d\n"
+msgstr ""
+
+#: array.c:610
+#, c-format
+msgid "%s: is paramater\n"
+msgstr "øèîøô åðéä %s\n"
+
+#: array.c:615
+#, c-format
+msgid "%s: array_ref to %s\n"
+msgstr "%s: %s-ì (array_ref) äéðôä\n"
+
+#: array.c:842
+msgid "asort: first argument is not an array"
+msgstr "êøòî åðéà ïåùàø èðîåâøà :asort"
+
+#: array.c:851
+msgid "asort: second argument is not an array"
+msgstr "êøòî åðéà éðù èðîåâøà :asort"
+
+#: builtin.c:107
+#, c-format
+msgid "%s to \"%s\" failed (%s)"
+msgstr "%s é\"ò \"%s\"-ì äáéúëá (%s) äì÷ú"
+
+#: builtin.c:108
+msgid "standard output"
+msgstr "úéèøãðèñ èìô úãéçé"
+
+#: builtin.c:109
+msgid "reason unknown"
+msgstr "äòåãé-éúìá äáéñî"
+
+#: builtin.c:122
+msgid "exp: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :exp"
+
+#: builtin.c:128
+#, c-format
+msgid "exp: argument %g is out of range"
+msgstr "øúåîä íåçúá åðéà %g èðîåâøà :exp"
+
+#: builtin.c:186
+#, c-format
+msgid "fflush: cannot flush: pipe `%s' opened for reading, not writing"
+msgstr "äáéúëì àì ,äàéø÷ì çåúô `%s' ÷éôà :õöåçä ï÷åøì ïúéð àì :fflush"
+
+#: builtin.c:189
+#, c-format
+msgid "fflush: cannot flush: file `%s' opened for reading, not writing"
+msgstr "äáéúëì àì ,äàéø÷ì çåúô `%s' õáå÷ :õöåçä ï÷åøì ïúéð àì :fflush"
+
+#: builtin.c:201
+#, c-format
+msgid "fflush: `%s' is not an open file, pipe or co-process"
+msgstr "ìéá÷î êéìäú åà çåúô ÷éôà ,çåúô õáå÷ åðéà `%s' :fflush"
+
+#: builtin.c:222
+msgid "index: received non-string first argument"
+msgstr "úæåøçî åðéà ïåùàø èðîåâøà :index"
+
+#: builtin.c:224
+msgid "index: received non-string second argument"
+msgstr "úæåøçî åðéà éðù èðîåâøà :index"
+
+#: builtin.c:287
+msgid "int: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :int"
+
+#: builtin.c:304
+msgid "length: received non-string argument"
+msgstr "úæåøçî åðéà èðîåâøà :length"
+
+#: builtin.c:320
+msgid "log: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :log"
+
+#: builtin.c:323
+#, c-format
+msgid "log: received negative argument %g"
+msgstr "%g éìéìù èðîåâøà íò àø÷ð :log"
+
+#: builtin.c:583
+msgid "`$' is not permitted in awk formats"
+msgstr "awk ìù íéèîøåôá ùåîéùì øåñà `$'"
+
+#: builtin.c:589
+msgid "arg count with `$' must be > 0"
+msgstr "0-î ìåãâ úåéäì áééç `$' ãéì èðîåâøàä äðåî"
+
+#: builtin.c:591
+#, c-format
+msgid "arg count %d greater than total number of supplied arguments"
+msgstr "íéèðîåâøàä ìù ììåëä íøôñîî ìåãâ %d èðîåâøàä äðåî"
+
+#: builtin.c:593
+msgid "`$' not permitted after period in format"
+msgstr "èîøåôá äãå÷ðä éøçà òéôåäì ìåëé åðéà `$'"
+
+#: builtin.c:606
+msgid "no `$' supplied for positional field width or precision"
+msgstr "å÷åéã åà äãù áçåø ïééöîá èðîåâøàä äðåî øåáò `$' àöîð àì"
+
+#: builtin.c:664
+msgid "`l' is meaningless in awk formats; ignored"
+msgstr "çðæåä ;awk ìù èîøåôá úåòîùî øñç åðéä `l'"
+
+#: builtin.c:668
+msgid "`l' is not permitted in POSIX awk formats"
+msgstr "POSIX éô-ìò awk ìù èîøåôá òéôåäì ìåëé åðéà `l'"
+
+#: builtin.c:679
+msgid "`L' is meaningless in awk formats; ignored"
+msgstr "çðæåä ;awk ìù èîøåôá úåòîùî øñç åðéä `L'"
+
+#: builtin.c:683
+msgid "`L' is not permitted in POSIX awk formats"
+msgstr "POSIX éô-ìò awk ìù èîøåôá òéôåäì ìåëé åðéà `L'"
+
+#: builtin.c:694
+msgid "`h' is meaningless in awk formats; ignored"
+msgstr "çðæåä ;awk ìù èîøåôá úåòîùî øñç åðéä `h'"
+
+#: builtin.c:698
+msgid "`h' is not permitted in POSIX awk formats"
+msgstr "POSIX éô-ìò awk ìù èîøåôá òéôåäì ìåëé åðéà `h'"
+
+#: builtin.c:947
+msgid "not enough arguments to satisfy format string"
+msgstr "èîøåôä øåáò íéèðîåâøà ÷éôñî ïéà"
+
+#: builtin.c:949
+msgid "^ ran out for this one"
+msgstr "^ íéèðîåâøàä éì åøîâð ïàë"
+
+#: builtin.c:954
+msgid "[s]printf: format specifier does not have control letter"
+msgstr "äøîää úø÷á úåà ìéëî åðéà èîøåôä :[s]printf"
+
+#: builtin.c:957
+msgid "too many arguments supplied for format string"
+msgstr "èîøåôä øåáò íéèðîåâøà éãî øúåé"
+
+#: builtin.c:1000 builtin.c:1003
+msgid "printf: no arguments"
+msgstr "èðîåâøà óà ïéà :printf"
+
+#: builtin.c:1036
+msgid "sqrt: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :sqrt"
+
+#: builtin.c:1040
+#, c-format
+msgid "sqrt: called with negative argument %g"
+msgstr "%g éìéìù èðîåâøà íò àø÷ð :sqrt"
+
+#: builtin.c:1062
+#, c-format
+msgid "substr: start index %g is invalid, using 1"
+msgstr "1-á óìçåä ,éåâù åðéä %g äìçúä ïééöî :substr"
+
+#: builtin.c:1067
+#, c-format
+msgid "substr: non-integer start index %g will be truncated"
+msgstr "õöå÷é ,íìù øôñî åðéàù, %g äìçúä ïééöî ìù åëøò :substr"
+
+#: builtin.c:1081
+#, c-format
+msgid "substr: length %g is <= 0"
+msgstr "0-î ìåãâ øôñî åððéà %g êøåà :substr"
+
+#: builtin.c:1087
+#, c-format
+msgid "substr: non-integer length %g will be truncated"
+msgstr "õöå÷é ,íìù øôñî åðéàù ,%g êøåà :substr"
+
+#: builtin.c:1094
+msgid "substr: source string is zero length"
+msgstr "ñôà êøåàá äðéä øå÷îä úæåøçî :substr"
+
+#: builtin.c:1101
+#, c-format
+msgid ""
+"substr: length %d at start index %d exceeds length of first argument (%d)"
+msgstr ""
+"%d äëøåàå %d ïééöîá äúìéçúù úæåøçî-úúì ÷éôñî åðéà (%d) úæåøçî êøåà :substr"
+
+#: builtin.c:1107
+#, c-format
+msgid "substr: start index %d is past end of string"
+msgstr "úæåøçîä óåñì øáòî åðéä %d äìçúä ïééöî :substr"
+
+#: builtin.c:1143
+msgid "strftime: recieved non-string first argument"
+msgstr "úæåøçî åðéà ïåùàø èðîåâøà :strftime"
+
+#: builtin.c:1149
+msgid "strftime: received empty format string"
+msgstr "ä÷éø èîøåô úæåøçî :strftime"
+
+#: builtin.c:1158
+msgid "strftime: recieved non-numeric second argument"
+msgstr "øôñî åðéà éðù èðîåâøà :strftime"
+
+#: builtin.c:1221
+msgid "mktime: received non-string argument"
+msgstr "úæåøçî åðéà èðîåâøà :mktime"
+
+#: builtin.c:1266
+msgid "system: recieved non-string argument"
+msgstr "úæåøçî åðéà èðîåâøà :system"
+
+#: builtin.c:1386
+msgid "tolower: recieved non-string argument"
+msgstr "úæåøçî åðéà èðîåâøà :tolower"
+
+#: builtin.c:1407
+msgid "toupper: recieved non-string argument"
+msgstr "úæåøçî åðéà èðîåâøà :toupper"
+
+#: builtin.c:1430
+msgid "atan2: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :atan2"
+
+#: builtin.c:1432
+msgid "atan2: received non-numeric second argument"
+msgstr "øôñî åðéà éðù èðîåâøà :atan2"
+
+#: builtin.c:1451
+msgid "sin: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :sin"
+
+#: builtin.c:1467
+msgid "cos: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :cos"
+
+#: builtin.c:1511
+msgid "srand: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :srand"
+
+#: builtin.c:1545
+msgid "match: third argument is not an array"
+msgstr "êøòî åðéà éùéìù èðîåâøà :match"
+
+#: builtin.c:1942
+msgid "gensub: 3rd argument of 0 treated as 1"
+msgstr "1-á óìçåä 0 åëøòù éùéìù èðîåâøà :gensub"
+
+#: builtin.c:2053 builtin.c:2055
+msgid "lshift: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :lshift"
+
+#: builtin.c:2057
+#, c-format
+msgid "lshift(%lf, %lf): negative values will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú åáéðé íééìéìù íéëøò :lshift(%lf, %lf)"
+
+#: builtin.c:2059
+#, c-format
+msgid "lshift(%lf, %lf): fractional values will be truncated"
+msgstr "åööå÷é íéøåáù íéëøò :lshift(%lf, %lf)"
+
+#: builtin.c:2061
+#, c-format
+msgid "lshift(%lf, %lf): too large shift value will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú áéðé éãî ìåãâ äææä øåòéù :lshift(%lf, %lf)"
+
+#: builtin.c:2090 builtin.c:2092
+msgid "rshift: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :rshift"
+
+#: builtin.c:2094
+#, c-format
+msgid "rshift(%lf, %lf): negative values will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú åáéðé íééìéìù íéëøò :rshift(%lf, %lf)"
+
+#: builtin.c:2096
+#, c-format
+msgid "rshift(%lf, %lf): fractional values will be truncated"
+msgstr "åööå÷é íéøåáù íéëøò :rshift(%lf, %lf)"
+
+#: builtin.c:2098
+#, c-format
+msgid "rshift(%lf, %lf): too large shift value will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú áéðé éãî ìåãâ äææä øåòéù :rshift(%lf, %lf)"
+
+#: builtin.c:2127 builtin.c:2129
+msgid "and: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :and"
+
+#: builtin.c:2131
+#, c-format
+msgid "and(%lf, %lf): negative values will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú åáéðé íééìéìù íéëøò :and(%lf, %lf)"
+
+#: builtin.c:2133
+#, c-format
+msgid "and(%lf, %lf): fractional values will be truncated"
+msgstr "åööå÷é íéøåáù íéëøò :and(%lf, %lf)"
+
+#: builtin.c:2162 builtin.c:2164
+msgid "or: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :or"
+
+#: builtin.c:2166
+#, c-format
+msgid "or(%lf, %lf): negative values will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú åáéðé íééìéìù íéëøò :or(%lf, %lf)"
+
+#: builtin.c:2168
+#, c-format
+msgid "or(%lf, %lf): fractional values will be truncated"
+msgstr "åööå÷é íéøåáù íéëøò :or(%lf, %lf)"
+
+#: builtin.c:2197 builtin.c:2199
+msgid "xor: received non-numeric first argument"
+msgstr "øôñî åðéà ïåùàø èðîåâøà :xor"
+
+#: builtin.c:2201
+#, c-format
+msgid "xor(%lf, %lf): negative values will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú åáéðé íééìéìù íéëøò :xor(%lf, %lf)"
+
+#: builtin.c:2203
+#, c-format
+msgid "xor(%lf, %lf): fractional values will be truncated"
+msgstr "åööå÷é íéøåáù íéëøò :xor(%lf, %lf)"
+
+#: builtin.c:2231
+msgid "compl: received non-numeric argument"
+msgstr "øôñî åðéà èðîåâøà :compl"
+
+#: builtin.c:2233
+#, c-format
+msgid "compl(%lf): negative value will give strange results"
+msgstr "úåéåôö-éúìá úåàöåú áéðé éìéìù êøò :compl(%lf)"
+
+#: builtin.c:2235
+#, c-format
+msgid "compl(%lf): fractional value will be truncated"
+msgstr "õöå÷é øåáù êøò :compl(%lf)"
+
+#. not there
+#: builtin.c:2429
+#, c-format
+msgid "dcgettext: `%s' is not a valid locale category"
+msgstr "äðé÷ú íå÷éî úééøåâè÷ åðéà `%s' :dcgettext"
+
+#: ext.c:60 ext.c:64
+msgid "`extension' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä äðéä `extension'"
+
+#: ext.c:74
+#, c-format
+msgid "extension: cannot open `%s' (%s)\n"
+msgstr "`%s' úçéúô úòá (%s) äì÷ú äòøéà :extension\n"
+
+#: ext.c:82
+#, c-format
+msgid "extension: library `%s': cannot call function `%s' (%s)\n"
+msgstr "`%s' äéøôñî `%s' äéö÷ðåôì äàéø÷á (%s) äì÷ú äòøéà :extension\n"
+
+#: ext.c:180
+msgid "Operation Not Supported"
+msgstr "úëîúð äðéà åæ äìåòô"
+
+# The way the leading "%s:" is translated is a terrible kludge,
+# but what can I do? FIXME.
+#: getopt.c:688
+#, c-format
+msgid "%s: option `%s' is ambiguous\n"
+msgstr "%s úéðëú øåáò éòîùî-ãç åðéà `%s' ïééôàî\n"
+
+#: getopt.c:713
+#, c-format
+msgid "%s: option `--%s' doesn't allow an argument\n"
+msgstr "%s úéðëú øåáò èðîåâøà ìá÷î åðéà `--%s' ïééôàî\n"
+
+#: getopt.c:718
+#, c-format
+msgid "%s: option `%c%s' doesn't allow an argument\n"
+msgstr "%s úéðëú øåáò èðîåâøà ìá÷î åðéà `%c%s' ïééôàî\n"
+
+#: getopt.c:736 getopt.c:909
+#, c-format
+msgid "%s: option `%s' requires an argument\n"
+msgstr "%s úéðëú øåáò èðîåâøà áééçî `%s' ïééôàî\n"
+
+#. --option
+#: getopt.c:765
+#, c-format
+msgid "%s: unrecognized option `--%s'\n"
+msgstr "%s úéðëú øåáò `--%s' ääåæî-éúìá ïééôàî\n"
+
+#. +option or -option
+#: getopt.c:769
+#, c-format
+msgid "%s: unrecognized option `%c%s'\n"
+msgstr "%s úéðëú øåáò `%c%s' ääåæî-éúìá ïééôàî\n"
+
+# "Illegal" is against GNU coding standards, but since Posix requires
+# it (see the comment below), let's say that in Hebrew as well...
+#. 1003.2 specifies the format of this message.
+#: getopt.c:795
+#, c-format
+msgid "%s: illegal option -- %c\n"
+msgstr "%s: é÷åç-éúìá ïééôàî -- %c\n"
+
+#: getopt.c:798
+#, c-format
+msgid "%s: invalid option -- %c\n"
+msgstr "%s úéðëú øåáò éåâù ïééôàî -- %c\n"
+
+#. 1003.2 specifies the format of this message.
+#: getopt.c:828 getopt.c:958 main.c:397
+#, c-format
+msgid "%s: option requires an argument -- %c\n"
+msgstr "%s: èðîåâøà áééçî ïééôàî -- %c\n"
+
+#: getopt.c:875
+#, c-format
+msgid "%s: option `-W %s' is ambiguous\n"
+msgstr "%s úéðëú øåáò éòîùî-ãç åðéà `-W %s' ïééôàî\n"
+
+#: getopt.c:893
+#, c-format
+msgid "%s: option `-W %s' doesn't allow an argument\n"
+msgstr "%s úéðëú øåáò èðîåâøà ìá÷î åðéà `-W %s' ïééôàî\n"
+
+#: main.c:292
+msgid "`-m[fr]' option irrelevant in gawk"
+msgstr "gawk øåáò éèðååìø åðéà `-m[fr]' ïééôàî"
+
+#: main.c:294
+msgid "-m option usage: `-m[fr] nnn'"
+msgstr "`-m[fr] nnn' :-m ïééôàîá ùåîéù ïôåà"
+
+#. gawk specific options - now in getopt_long
+#: main.c:311
+#, c-format
+msgid "%s: option `-W %s' unrecognized, ignored\n"
+msgstr "çðæåä ,%s úéðëú øåáò øëåî åðéà `-W %s' ïééôàî\n"
+
+#: main.c:342
+msgid "empty argument to `--source' ignored"
+msgstr "çðæåä `--source'-ì ÷éø èðîåâøà"
+
+#: main.c:414
+msgid "environment variable `POSIXLY_CORRECT' set: turning on `--posix'"
+msgstr "`--posix' ìéòôî :øãâåî `POSIXLY_CORRECT' äáéáñ äðúùî"
+
+#. both on command line
+#: main.c:419
+msgid "`--posix' overrides `--traditional'"
+msgstr "`--traditional' ìò øáåâ `--posix'"
+
+#: main.c:430
+msgid "`--posix'/`--traditional' overrides `--non-decimal-data'"
+msgstr "`--non-decimal-data' ìò øáåâ `--posix'/`--traditional'"
+
+#: main.c:434
+#, c-format
+msgid "runing %s setuid root may be a security problem"
+msgstr "òãéî úçèáàá òåâôì äìåìò setuid root-ë %s úöøä"
+
+#: main.c:463
+#, c-format
+msgid "can't set mode on stdin (%s)"
+msgstr "stdin úìåòô ïôåà úòéá÷á (%s) äì÷ú"
+
+#: main.c:466
+#, c-format
+msgid "can't set mode on stdout (%s)"
+msgstr "stdout úìåòô ïôåà úòéá÷á (%s) äì÷ú"
+
+#: main.c:468
+#, c-format
+msgid "can't set mode on stderr (%s)"
+msgstr "stderr úìåòô ïôåà úòéá÷á (%s) äì÷ú"
+
+#: main.c:497
+msgid "no program text at all!"
+msgstr "!ììë àöîðá äéä àì úéðëú ìù èñ÷è"
+
+#. Not factoring out common stuff makes it easier to translate.
+#: main.c:541
+#, c-format
+msgid "Usage: %s [POSIX or GNU style options] -f progfile [--] file ...\n"
+msgstr ""
+"%s [GNU åà POSIX ïåðâñá íéðééôàî] -f úéðëú-íù [--] õáå÷-íù ... :ùåîéù ïôåà\n"
+
+#: main.c:543
+#, c-format
+msgid "Usage: %s [POSIX or GNU style options] [--] %cprogram%c file ...\n"
+msgstr ""
+"%s [GNU åà POSIX ïåðâñá íéðééôàî] [--] %cúéðëú%c õáå÷-íù ... :ùåîéù ïôåà\n"
+
+#. GNU long options info. This is too many options.
+#: main.c:548
+msgid "POSIX options:\t\tGNU long options:\n"
+msgstr ":POSIX éðééôàî\t\t:íéëåøà GNU éðééôàî\n"
+
+#: main.c:549
+msgid "\t-f progfile\t\t--file=progfile\n"
+msgstr "\t-f úéðëú-õáå÷\t\t--file=úéðëú-õáå÷\n"
+
+#: main.c:550
+msgid "\t-F fs\t\t\t--field-separator=fs\n"
+msgstr "\t-F úåãù-ãéøôî\t\t--field-separator=úåãù-ãéøôî\n"
+
+#: main.c:551
+msgid "\t-v var=val\t\t--assign=var=val\n"
+msgstr "\t-v äðúùî=êøò\t\t--assign=äðúùî=êøò\n"
+
+#: main.c:552
+msgid "\t-m[fr] val\n"
+msgstr "\t-m[fr] êøò\n"
+
+#: main.c:553
+msgid "\t-W compat\t\t--compat\n"
+msgstr ""
+
+#: main.c:554
+msgid "\t-W copyleft\t\t--copyleft\n"
+msgstr ""
+
+#: main.c:555
+msgid "\t-W copyright\t\t--copyright\n"
+msgstr ""
+
+#: main.c:556
+msgid "\t-W dump-variables[=file]\t--dump-variables[=file]\n"
+msgstr "\t-W dump-variables[=õáå÷-íù]\t--dump-variables[=õáå÷-íù]\n"
+
+#: main.c:557
+msgid "\t-W gen-po\t\t--gen-po\n"
+msgstr ""
+
+#: main.c:558
+msgid "\t-W help\t\t\t--help\n"
+msgstr ""
+
+#: main.c:559
+msgid "\t-W lint[=fatal]\t\t--lint[=fatal]\n"
+msgstr ""
+
+#: main.c:560
+msgid "\t-W lint-old\t\t--lint-old\n"
+msgstr ""
+
+#: main.c:561
+msgid "\t-W non-decimal-data\t--non-decimal-data\n"
+msgstr ""
+
+#: main.c:563
+msgid "\t-W nostalgia\t\t--nostalgia\n"
+msgstr ""
+
+#: main.c:566
+msgid "\t-W parsedebug\t\t--parsedebug\n"
+msgstr ""
+
+#: main.c:568
+msgid "\t-W profile[=file]\t--profile[=file]\n"
+msgstr "\t-W profile[=õáå÷-íù]\t--profile[=õáå÷-íù]\n"
+
+#: main.c:569
+msgid "\t-W posix\t\t--posix\n"
+msgstr ""
+
+#: main.c:570
+msgid "\t-W re-interval\t\t--re-interval\n"
+msgstr ""
+
+#: main.c:571
+msgid "\t-W source=program-text\t--source=program-text\n"
+msgstr "\t-W source=úéðëú-èñ÷è\t--source=úéðëú-èñ÷è\n"
+
+#: main.c:572
+msgid "\t-W traditional\t\t--traditional\n"
+msgstr ""
+
+#: main.c:573
+msgid "\t-W usage\t\t--usage\n"
+msgstr ""
+
+#: main.c:574
+msgid "\t-W version\t\t--version\n"
+msgstr ""
+
+#: main.c:575
+msgid ""
+"\n"
+"To report bugs, see node `Bugs' in `gawk.info', which is\n"
+msgstr ""
+"\n"
+"àåäù ,`gawk.info' õáå÷á `Bugs' úîåö äàø ,úåì÷ú ìò çååéãì\n"
+
+#: main.c:576
+msgid "section `Reporting Problems and Bugs' in the printed version.\n"
+msgstr ".ñôãåîä êéøãîá `Reporting Problems and Bugs' ä÷ñô\n"
+
+#: main.c:586
+#, fuzzy
+msgid ""
+"Copyright (C) 1989, 1991-2001 Free Software Foundation.\n"
+"\n"
+"This program is free software; you can redistribute it and/or modify\n"
+"it under the terms of the GNU General Public License as published by\n"
+"the Free Software Foundation; either version 2 of the License, or\n"
+"(at your option) any later version.\n"
+"\n"
+msgstr ""
+"Free Software Foundation-ì úåøåîù úåéåëæä ìë (C) 1989, 1991-2000\n"
+"\n"
+"óåôëá äúåðùì åà/å äöéôäì íëúåëæ ;úéùôç äðëú äðéä åæ úéðëú\n"
+"é\"ò øåàì àöåéä ,GNU General Public License ïåéùøä éàðúì\n"
+"íàå ,ïåéùøä ìù 2 àñøâá íà ;Free Software Foundation\n"
+" .øúåé úøçåàî àñøâ ìëá (íëì äøåîùä äéöôåàë)\n"
+
+#: main.c:594
+msgid ""
+"This program is distributed in the hope that it will be useful,\n"
+"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
+"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
+"GNU General Public License for more details.\n"
+"\n"
+msgstr ""
+",úìòåú àéáú àéäù äåå÷ú êåúî úöôåî åæ úéðëú\n"
+"òîúùîá-úåéøçà àì åìéôà ;úåéøçà áúë ìë àìì íìåà\n"
+",íéèøôì .úîéåñî úéìëú åæéàì äîàúä åà úåøéçñ ìù\n"
+" .GNU General Public License-á åðééò àðà\n"
+
+#: main.c:600
+msgid ""
+"You should have received a copy of the GNU General Public License\n"
+"along with this program; if not, write to the Free Software\n"
+"Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n"
+msgstr ""
+";GNU General Public License ìù ÷úåòá äååìî úåéäì äøåîà åæ úéðëú\n"
+"Free Software Foundation, Inc.-ì åáúë àðà ,åúåà íúìáé÷ àì íà\n"
+".59 Temple Place - Suite 330, Boston, MA 02111-1307, USA\n"
+
+#: main.c:630
+msgid "-Ft does not set FS to tab in POSIX awk"
+msgstr "awk ìù POSIX úñøâá TAB úåéäì FS-ì íøåâ åðéà -Ft"
+
+#: io.c:1371 main.c:830
+#, c-format
+msgid "could not find groups: %s"
+msgstr "%s :úëøòîá íéùîúùî úåöåá÷ ìò òãéî ïéà"
+
+#: main.c:869
+#, c-format
+msgid "invalid syntax in name `%s' for variable assignment"
+msgstr "êøò úîùäá `%s' äðúùî íù ìù éåâù øéáçú"
+
+#: main.c:938
+msgid "floating point exception"
+msgstr "äôö äãå÷ð éáåùéçá äâéøç"
+
+#: main.c:945
+msgid "fatal error: internal error"
+msgstr "úéîéðô äðëú úàéâù :äøåîç äì÷ú"
+
+# FIXME: I wonder how many people will understand what "fd 2" means.
+#: main.c:995
+#, c-format
+msgid "no pre-opened fd %d"
+msgstr "ùàøî çåúô åðéà %d èìô/èì÷ õåøò"
+
+# FIXME: /dev/null might not be known to all.
+#: main.c:1000
+#, c-format
+msgid "could not pre-open /dev/null for fd %d"
+msgstr "/dev/null-ì %d èìô/èì÷ õåøò çåúôì ïúéð àì"
+
+#: profile.c:94
+#, c-format
+msgid "could not open `%s' for writing: %s"
+msgstr "äáéúë êøåöì `%s' úçéúô úòá (%s) äì÷ú"
+
+#: awkgram.y:2281 profile.c:96
+msgid "sending profile to standard error"
+msgstr "éð÷ú úåàéâù õåøòì çìùð òåöéá ìéôåøô"
+
+#: profile.c:402
+msgid "internal error: Node_var with null vname"
+msgstr "ñôåàî åìù vname-äù Node_var :úéîéðô äðëú úàéâù"
+
+#: profile.c:508
+msgid "internal error: Node_var_array with null vname"
+msgstr "ñôåàî åìù vname-äù Node_var_array :úéîéðô äðëú úàéâù"
+
+#: eval.c:816 profile.c:531
+#, c-format
+msgid ""
+"function `%s' called with space between name and `(',\n"
+"%s"
+msgstr ""
+",`(' ïéáì äîù ïéá íéçååø íò `%s' äéö÷ðåôì äàéø÷\n"
+"%s"
+
+#: eval.c:818 profile.c:533
+msgid "or used in other expression context"
+msgstr "øçà éåèéá ìù èñ÷èðå÷á äá ùåîéù åà"
+
+#: eval.c:796 eval.c:1042 eval.c:1610 eval.c:1736 profile.c:610 profile.c:738
+#, c-format
+msgid "attempt to use array `%s' in a scalar context"
+msgstr "øàì÷ñ ùøåãä èñ÷èðå÷á `%s' êøòîá ùåîéù ïåéñð"
+
+#: eval.c:1046 profile.c:614
+#, c-format
+msgid "illegal type (%s) in tree_eval"
+msgstr "tree_eval-á (%s) éåâù âåñ"
+
+#: eval.c:1785 profile.c:815
+#, c-format
+msgid "attempt to use function `%s' as array"
+msgstr "êøòîë `%s' äéö÷ðåôá ùåîéù ïåéñð"
+
+#: eval.c:1792 profile.c:829
+#, c-format
+msgid "`%s' is a function, assignment is not allowed"
+msgstr "äøåñà äá êøò úîùä ,äéö÷ðåô àéä `%s'"
+
+#. in gawk for a while
+#: eval.c:1798 eval.c:1805 profile.c:833
+msgid "assignment is not allowed to result of builtin function"
+msgstr "úéðáåî äéö÷ðåô ìù äàöåúá êøò áéöäì ïéà"
+
+#. \n on purpose, with \n in ctime() output
+#: profile.c:1083
+#, c-format
+msgid "\t# gawk profile, created %s\n"
+msgstr "\t# %s êéøàúî gawk ìù ìéôåøô\n"
+
+#: profile.c:1086
+msgid ""
+"\t# BEGIN block(s)\n"
+"\n"
+msgstr ""
+"\t# BEGIN ÷åìá\n"
+"\n"
+
+#: profile.c:1096
+msgid ""
+"\t# Rule(s)\n"
+"\n"
+msgstr ""
+"\t# (íé)ììë\n"
+"\n"
+
+#: profile.c:1102
+msgid ""
+"\t# END block(s)\n"
+"\n"
+msgstr ""
+"\t# END ÷åìá\n"
+"\n"
+
+#: profile.c:1122
+msgid ""
+"\n"
+"\t# Functions, listed alphabetically\n"
+msgstr ""
+"\n"
+"\t# úéá-óìà øãñá ,úåéö÷ðåô\n"
+
+#: profile.c:1325
+#, c-format
+msgid "unexpected type %s in prec_level"
+msgstr "prec_level-á %s éåâù âåñ"
+
+#: regex.c:1017
+msgid "Success"
+msgstr "äçìöä"
+
+#. REG_NOERROR
+#: regex.c:1018
+msgid "No match"
+msgstr "äîéàúî úæåøçî äàöîð àì"
+
+#. REG_NOMATCH
+#: regex.c:1019
+msgid "Invalid regular expression"
+msgstr "éåâù éøìåâø éåèéá"
+
+#. REG_BADPAT
+#: regex.c:1020
+msgid "Invalid collation character"
+msgstr "øãâåî-éúìá øåãéñ åú"
+
+#. REG_ECOLLATE
+#: regex.c:1021
+msgid "Invalid character class name"
+msgstr "íéåú úöåá÷ ìù øãâåî-éúìá íù"
+
+#. REG_ECTYPE
+#: regex.c:1022
+msgid "Trailing backslash"
+msgstr "`\\' éøåçà ïñëåìá íééúñî éøìåâø éåèéá"
+
+#. REG_EESCAPE
+#: regex.c:1023
+msgid "Invalid back reference"
+msgstr "íãå÷ éåèéá-úúì äéåâù äééðôä"
+
+#. REG_ESUBREG
+#: regex.c:1024
+msgid "Unmatched [ or [^"
+msgstr "âåæ-ïá åì ïéàù [^ åà ["
+
+#. REG_EBRACK
+#: regex.c:1025
+msgid "Unmatched ( or \\("
+msgstr "âåæ-ïá åì ïéàù \\( åà ("
+
+#. REG_EPAREN
+#: regex.c:1026
+msgid "Unmatched \\{"
+msgstr "âåæ-ïá åì ïéàù \\{"
+
+#. REG_EBRACE
+#: regex.c:1027
+msgid "Invalid content of \\{\\}"
+msgstr "\\{\\} êåúá éåâù äðáî"
+
+#. REG_BADBR
+#: regex.c:1028
+msgid "Invalid range end"
+msgstr "íéåú íåçú ìù äéåâù äøãâä"
+
+#. REG_ERANGE
+#: dfa.c:167 dfa.c:178 dfa.c:189 regex.c:1029
+msgid "Memory exhausted"
+msgstr "ïåøëæä øîâð"
+
+#. REG_ESPACE
+#: regex.c:1030
+msgid "Invalid preceding regular expression"
+msgstr "íéé÷ åðéà åà éåâù íãå÷ éøìåâø éåèéá"
+
+#. REG_BADRPT
+#: regex.c:1031
+msgid "Premature end of regular expression"
+msgstr "éãî íã÷åî íééúñî éøìåâø éåèéá"
+
+#. REG_EEND
+#: regex.c:1032
+msgid "Regular expression too big"
+msgstr "éãî áëøåî åà ìåãâ éøìåâø éåèéá"
+
+#. REG_ESIZE
+#: regex.c:1033
+msgid "Unmatched ) or \\)"
+msgstr "âåæ-ïá åì ïéàù \\) åà )"
+
+#: regex.c:5531
+msgid "No previous regular expression"
+msgstr "íãå÷ éøìåâø éåèéá ïéà"
+
+#: awkgram.y:230
+msgid "BEGIN blocks must have an action part"
+msgstr "äìåòô úøãâä ìåìëì áééç BEGIN ÷åìá"
+
+#: awkgram.y:236
+msgid "END blocks must have an action part"
+msgstr "äìåòô úøãâä ìåìëì áééç END ÷åìá"
+
+#: awkgram.y:272
+#, c-format
+msgid "`%s' is a built-in function, it cannot be redefined"
+msgstr "äúøãâä úà úåðùì ïéà ,úéðáåî äéö÷ðåô äðéä `%s'"
+
+#: awkgram.y:360
+msgid "statement may have no effect"
+msgstr "úéìëú íåù äéäú àì äæ éåèéáìù ïëúé"
+
+#: awkgram.y:457
+msgid "plain `print' in BEGIN or END rule should probably be `print \"\"'"
+msgstr "`print \"\"' úåéäì íúñä ïî êéøö END åà BEGIN éììëá èåùô `print'"
+
+#: awkgram.y:469
+msgid "`next' used in BEGIN or END action"
+msgstr "END åà BEGIN ìù äìåòô úøãâäá `next'-á ùåîéù"
+
+#: awkgram.y:476 awkgram.y:483
+msgid "`nextfile' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `nextfile'"
+
+#: awkgram.y:488
+msgid "`nextfile' used in BEGIN or END action"
+msgstr "END åà BEGIN ìù äìåòô úøãâäá `nextfile'-á ùåîéù"
+
+#: awkgram.y:497
+msgid "`return' used outside function context"
+msgstr "äéö÷ðåô ìù èñ÷èðå÷á àìù `return'-á ùåîéù"
+
+#: awkgram.y:506 awkgram.y:513
+msgid "`delete array' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `delete array'"
+
+#: awkgram.y:571
+msgid "multistage two-way pipelines don't work"
+msgstr "íéãáåò íðéà íéáìù éáåøî íééðååéë-åã íé÷éôà"
+
+#: awkgram.y:662
+msgid "regular expression on right of assignment"
+msgstr "êøò úîùä úàøåä ìù ïéîé ãöá éøìåâø éåèéá"
+
+#: awkgram.y:680
+msgid "non-redirected `getline' undefined inside END action"
+msgstr "END úìåòô êåúá øãâåî åðéà äééðôä àìì `getline'"
+
+#: awkgram.y:690
+msgid "regular expression on left of `~' or `!~' operator"
+msgstr "`!~' åà `~' øåèøôåàì ìàîùî éøìåâø éåèéá"
+
+#: awkgram.y:700
+#, c-format
+msgid "regexp constant `/%s/' looks like a C comment, but is not"
+msgstr "äøòä åðéà êà ,C úôùá äøòä åîë äàøð `/%s/' éøìåâø éåèéá"
+
+#: awkgram.y:716
+msgid "regular expression on right of comparison"
+msgstr "äàååùä ìù ïéîé ãöá éøìåâø éåèéá"
+
+#: awkgram.y:743
+msgid "non-redirected `getline' undefined inside BEGIN or END action"
+msgstr "END åà BEGIN úìåòô êåúá øãâåî åðéà äééðôä àìì `getline'"
+
+#: awkgram.y:798
+msgid "call of `length' without parentheses is not portable"
+msgstr "úéìéáèøåô äðéà íééøâåñ àìì `length'-ì äàéø÷"
+
+#: awkgram.y:801
+msgid "call of `length' without parentheses is deprecated by POSIX"
+msgstr "POSIX ï÷úì ãåâéðá äðéä íééøâåñ àìì `length'-ì äàéø÷"
+
+#: awkgram.y:851
+msgid "invalid subscript expression"
+msgstr "êøòî ïééöîá éåâù øéáçú ìòá éåèéá"
+
+#: awkgram.y:985
+#, c-format
+msgid "fptr %x not in tokentab\n"
+msgstr "tokentab-á àöîð àì fptr %x\n"
+
+#: awkgram.y:1019
+msgid "unexpected newline"
+msgstr "éåôö-éúìá íå÷îá äøåù óåñ"
+
+#: awkgram.y:1098
+msgid "empty program text on command line"
+msgstr "äãå÷ôä úøåùî äìá÷úä ä÷éø úéðëú"
+
+#: awkgram.y:1155
+#, c-format
+msgid "can't open source file `%s' for reading (%s)"
+msgstr "åúàéø÷ íùì `%s' øå÷î õáå÷ úçéúôá (%s) äì÷ú"
+
+#: awkgram.y:1190
+#, c-format
+msgid "can't read sourcefile `%s' (%s)"
+msgstr "`%s' øå÷î õáå÷î äàéø÷á (%s) äì÷ú"
+
+#: awkgram.y:1198
+#, c-format
+msgid "source file `%s' is empty"
+msgstr "÷éø åðéä `%s' øå÷î õáå÷"
+
+#: awkgram.y:1312 awkgram.y:1417 awkgram.y:1435 awkgram.y:1778 awkgram.y:1840
+msgid "source file does not end in newline"
+msgstr "äøåù-óåñ åúá íééúñî åðéà øå÷îä õáå÷"
+
+#: awkgram.y:1373
+msgid "unterminated regexp ends with `\\' at end of file"
+msgstr "õáå÷ä óñá `\\'-á íééúñî øåîâ-éúìá éøìåâø éåèéá"
+
+#: awkgram.y:1394
+msgid "unterminated regexp"
+msgstr "øåîâ-éúìá éøìåâø éåèéá"
+
+#: awkgram.y:1397
+msgid "unterminated regexp at end of file"
+msgstr "õáå÷ä óåñá øåîâ-éúìá éøìåâø éåèéá"
+
+#: awkgram.y:1461
+msgid "use of `\\ #...' line continuation is not portable"
+msgstr "éìéáèøåô åðéà äøåù êùîäì ïîéñë `\\ #...'-á ùåîéù"
+
+#: awkgram.y:1473
+msgid "backslash not last character on line"
+msgstr "äøåùá ïåøçà åú åðéàù êåôä ïñëåì"
+
+#: awkgram.y:1514
+msgid "POSIX does not allow operator `**='"
+msgstr "`**=' øåèøôåà äùøî åðéà POSIX"
+
+#: awkgram.y:1516
+msgid "old awk does not support operator `**='"
+msgstr "`**=' øåèøôåàá êîåú åðéà ïùé awk"
+
+#: awkgram.y:1525
+msgid "POSIX does not allow operator `**'"
+msgstr "`**' øåèøôåà äùøî åðéà POSIX"
+
+#: awkgram.y:1527
+msgid "old awk does not support operator `**'"
+msgstr "`**' øåèøôåàá êîåú åðéà ïùé awk"
+
+#: awkgram.y:1560
+msgid "operator `^=' is not supported in old awk"
+msgstr "ïùé awk-á êîúð åðéà `^=' øåèøôåà"
+
+#: awkgram.y:1568
+msgid "operator `^' is not supported in old awk"
+msgstr "ïùé awk-á êîúð åðéà `^' øåèøôåà"
+
+#: awkgram.y:1650 awkgram.y:1664
+msgid "unterminated string"
+msgstr "äøåîâ-éúìá úæåøçî"
+
+#: awkgram.y:1815
+#, c-format
+msgid "invalid char '%c' in expression"
+msgstr "éåèéáá '%c' éåâù åú"
+
+#: awkgram.y:1861
+#, c-format
+msgid "`%s' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä äðéä `%s'"
+
+#: awkgram.y:1864
+#, c-format
+msgid "`%s' is a Bell Labs extension"
+msgstr "Bell úåãáòî úñøâá awk-ì úéôéöôñ äáçøä åðéä `%s'"
+
+#: awkgram.y:1867
+#, c-format
+msgid "POSIX does not allow `%s'"
+msgstr "`%s' äùøî åðéà POSIX"
+
+#: awkgram.y:1871
+#, c-format
+msgid "`%s' is not supported in old awk"
+msgstr "ïùé awk-á êîúð åðéà `%s'"
+
+#: awkgram.y:1899
+msgid "`goto' considered harmful!\n"
+msgstr "!òø-òâô áùçð `goto'\n"
+
+#: awkgram.y:1963
+#, c-format
+msgid "%d is invalid as number of arguments for %s"
+msgstr "íéèðîåâøà øôñîë %d ìá÷ì ìåëé åðéà %s"
+
+#: awkgram.y:1982 awkgram.y:1985
+msgid "match: third argument is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `match' ìù éùéìù èðîåâøà"
+
+#: awkgram.y:2001
+#, c-format
+msgid "%s: string literal as last arg of substitute has no effect"
+msgstr "úéìëú íåù äì ïéà `%s' ìù ïåøçà èðîåâøàë äòåá÷ úæåøçî"
+
+#: awkgram.y:2005
+msgid "sub third parameter is not a changeable object"
+msgstr "éåðéù-øá è÷ééáåà åðéà `sub' ìù éùéìù èðîåâøà"
+
+#: awkgram.y:2007
+msgid "gsub third parameter is not a changeable object"
+msgstr "éåðéù-øá è÷ééáåà åðéà `gsub' ìù éùéìù èðîåâøà"
+
+#: awkgram.y:2033 awkgram.y:2036
+msgid "close: second argument is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `close' ìù éðù èðîåâøà"
+
+#: awkgram.y:2046
+msgid "use of dcgettext(_\"...\") is incorrect: remove leading underscore"
+msgstr "èðîåâøà úîã÷áù ïåúçú-ó÷î ÷ìñì ùé :dcgettext(_\"...\")-á éåâù ùåîéù"
+
+#: awkgram.y:2139
+#, c-format
+msgid "function `%s': parameter #%d, `%s', duplicates parameter #%d"
+msgstr "`%s' äéö÷ðåôá %d 'ñî øèîøôì ääæ ,`%s' ,%d 'ñî øèîøô ìù åîù"
+
+#: awkgram.y:2171
+#, c-format
+msgid "function `%s': parameter `%s' shadows global variable"
+msgstr "éìáåìâ äðúùî ìò ìéôàî `%s' äéö÷ðåôá `%s' øèîøô"
+
+#: awkgram.y:2280
+#, c-format
+msgid "could not open `%s' for writing (%s)"
+msgstr "äáéúë íùì `%s' úçéúôá (%s) äì÷ú"
+
+#: awkgram.y:2311
+#, c-format
+msgid "%s: close failed (%s)"
+msgstr "`%s' úøéâñ úòá (%s) äì÷ú"
+
+#: awkgram.y:2421
+msgid "shadow_funcs() called twice!"
+msgstr "!íééîòô äàø÷ð shadow_funcs()"
+
+#: awkgram.y:2496
+#, c-format
+msgid "function `%s': can't use function name as parameter name"
+msgstr "øèîøô íùë ùîùì ìåëé åðéà äéö÷ðåô íù :`%s' äéö÷ðåôá"
+
+#: awkgram.y:2506
+#, c-format
+msgid "function name `%s' previously defined"
+msgstr "úøãâåî øáë `%s' íùá äéö÷ðåô"
+
+#: awkgram.y:2654 awkgram.y:2660
+#, c-format
+msgid "function `%s' called but never defined"
+msgstr "úøãâåî äðéàù `%s' äéö÷ðåôì äàéø÷"
+
+#: awkgram.y:2663
+#, c-format
+msgid "function `%s' defined but never called"
+msgstr "úàø÷ð àì êà ,äøãâåä `%s' äéö÷ðåô"
+
+#: awkgram.y:2690
+#, c-format
+msgid "regexp constant for parameter #%d yields boolean value"
+msgstr "éðàéìåá êøò áéðî %d 'ñî øèîøôë òåá÷ éøìåâø éåèéá"
+
+#: dfa.c:451
+msgid "Unfinished \\ escape"
+msgstr "äøåîâ-éúìá \\ äø÷á úøãñ"
+
+#. Cases:
+#. {M} - exact count
+#. {M,} - minimum count, maximum is infinity
+#. {M,N} - M through N
+#: dfa.c:584 dfa.c:590 dfa.c:600 dfa.c:608 dfa.c:623
+msgid "unfinished repeat count"
+msgstr "äøåîâ-éúìá úåðùéä äðåî úøãâä"
+
+#: dfa.c:597 dfa.c:614 dfa.c:622 dfa.c:626
+msgid "malformed repeat count"
+msgstr "úåðùéä äðåî úøãâäá éåâù øéáçú"
+
+#: dfa.c:691 dfa.c:694 dfa.c:721 dfa.c:725 dfa.c:726 dfa.c:729 dfa.c:742
+#: dfa.c:743
+msgid "Unbalanced ["
+msgstr "âåæ-ïá åì ïéàù ["
+
+#: dfa.c:889
+msgid "Unbalanced ("
+msgstr "âåæ-ïá åì ïéàù ("
+
+#: dfa.c:1003
+msgid "No regexp syntax bits specified"
+msgstr "íééøìåâø íééåèéá ìù øéáçú úøãâä ïéà"
+
+#: dfa.c:1011
+msgid "Unbalanced )"
+msgstr "âåæ-ïá åì ïéàù )"
+
+#: dfa.c:2002
+msgid "out of memory"
+msgstr "ïåøëæä øîâð"
+
+#: field.c:787
+msgid "split: second argument is not an array"
+msgstr "êøòî åðéà `split' ìù éðùä èðîåâøàä"
+
+#: field.c:814
+msgid "split: null string for third arg is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä äðéä `split'-ì éùéìù èðåîâøàë úñôåàî úæåøçî"
+
+#: field.c:854
+msgid "`FIELDWIDTHS' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `FIELDWIDTHS'"
+
+#: field.c:881
+#, c-format
+msgid "field %d in FIELDWIDTHS, must be > 0"
+msgstr "0-î ìåãâ úåéäì áééç FIELDWIDTHS-á %d 'ñî äãù"
+
+#: field.c:935
+msgid "null string for `FS' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä äðéä `FS'-ë úñôåàî úæåøçî"
+
+# The next 4 strings are untranslated because msg.c prints the actual
+# message after "warning:", "error:", etc., which will look terribly
+# wrong if both these headings and the message text after them is in
+# Hebrew, due to changed directionality.
+#: msg.c:57
+msgid "cmd. line:"
+msgstr ""
+
+#: msg.c:123
+msgid "warning: "
+msgstr ""
+
+#: msg.c:145
+msgid "error: "
+msgstr ""
+
+#: msg.c:178
+msgid "fatal: "
+msgstr ""
+
+#: eval.c:258
+#, c-format
+msgid "unknown nodetype %d"
+msgstr "%d ääåæî-éúìá âåñ ìòá node"
+
+#: eval.c:306
+msgid "buffer overflow in genflags2str"
+msgstr "genflags2str-á õöåç úùéìâ"
+
+#: eval.c:545
+#, c-format
+msgid "for loop: array `%s' changed size from %d to %d during loop execution"
+msgstr "(`%s' êøòî) äàìåìä òåöéá êìäîá %d-î %d-ì äðåù êøòî ìù åìãåâ :for úàìåì"
+
+#: eval.c:569
+msgid "`break' outside a loop is not portable"
+msgstr "éìéáèøåô åðéà äàìåìì õåçî `break'"
+
+#: eval.c:573
+msgid "`break' outside a loop is not allowed"
+msgstr "äàìåìì õåçî `break'-á ùîúùäì ïéà"
+
+#: eval.c:592
+msgid "`continue' outside a loop is not portable"
+msgstr "éìéáèøåô åðéà äàìåìì õåçî `continue'"
+
+#: eval.c:596
+msgid "`continue' outside a loop is not allowed"
+msgstr "äàìåìì õåçî `continue'-á ùîúùäì ïéà"
+
+#: eval.c:626
+msgid "`next' cannot be called from a BEGIN rule"
+msgstr "BEGIN éììë êåúî `next'-ì àåø÷ì ïéà"
+
+#: eval.c:628
+msgid "`next' cannot be called from an END rule"
+msgstr "END éììë êåúî `next'-ì àåø÷ì ïéà"
+
+#: eval.c:640
+msgid "`nextfile' cannot be called from a BEGIN rule"
+msgstr "BEGIN éììë êåúî `nextfile'-ì àåø÷ì ïéà"
+
+#: eval.c:642
+msgid "`nextfile' cannot be called from an END rule"
+msgstr "END éììë êåúî `nextfile'-ì àåø÷ì ïéà"
+
+#: eval.c:683
+msgid "statement has no effect"
+msgstr "úéìëú-úìåèð äàøåä"
+
+#: eval.c:717 eval.c:747 eval.c:1617
+#, c-format
+msgid "reference to uninitialized variable `%s'"
+msgstr "`%s' ìçåúî-éúìá äðúùîì äéðôä"
+
+#: eval.c:725 eval.c:1603
+#, c-format
+msgid "can't use function name `%s' as variable or array"
+msgstr "êøòî åà äðúùîë `%s' äéö÷ðåô íùá ùîúùäì ïéà"
+
+#: eval.c:732 eval.c:738 eval.c:1742
+#, c-format
+msgid "reference to uninitialized argument `%s'"
+msgstr "`%s' ìçåúî-éúìá èðîåâøàì äéðôä"
+
+#: eval.c:826
+msgid "assignment used in conditional context"
+msgstr "éàðú ìù èñ÷èðå÷á äîùäá ùåîéù"
+
+#: eval.c:917
+msgid ""
+"concatenation: side effects in one expression have changed the length of "
+"another!"
+msgstr ""
+"!øçà éåèéá ìù åëøåà éåðéùì åîøâ ãçà éåèéá áåùéç ìù éàåì-úåòôåú :concatenation"
+
+#: eval.c:1012
+msgid "division by zero attempted"
+msgstr "ñôàá ä÷åìç ïåéñð"
+
+#: eval.c:1027
+msgid "division by zero attempted in `%%'"
+msgstr "`%%'-á ñôàá ä÷åìç ïåéñð"
+
+#: eval.c:1228
+msgid "division by zero attempted in `/='"
+msgstr "`/='-á ñôàá ä÷åìç ïåéñð"
+
+#: eval.c:1246
+msgid "division by zero attempted in `%%='"
+msgstr "`%%='-á ñôàá ä÷åìç ïåéñð"
+
+# This is not translated because it cannot be reworded in Hebrew
+# without looking awkward.
+#: eval.c:1419
+#, c-format
+msgid "%s (from %s)"
+msgstr ""
+
+#: eval.c:1467
+#, c-format
+msgid "function `%s' called with more arguments than declared"
+msgstr "äúæøëäá øùàî íéèðîåâøà øúåé íò `%s' äéö÷ðåôì äàéø÷"
+
+#: eval.c:1514
+#, c-format
+msgid "function `%s' not defined"
+msgstr "úøãâåî äðéà `%s' äéö÷ðåô"
+
+#: eval.c:1516
+#, c-format
+msgid "function %s called\n"
+msgstr "`%s' äéö÷ðåôì äàéø÷\n"
+
+#: eval.c:1575
+msgid ""
+"\n"
+"\t# Function Call Stack:\n"
+"\n"
+msgstr ""
+"\n"
+"\t# :úåéö÷ðåôì úåàéø÷ä úéðñçî\n"
+"\n"
+
+#: eval.c:1578
+msgid "\t# -- main --\n"
+msgstr ""
+
+#: eval.c:1754
+msgid "attempt to field reference from non-numeric value"
+msgstr "øôñî åðéàù êøò úåòöîàá äãùì äéðôä ïåéñð"
+
+#: eval.c:1756
+msgid "attempt to reference from null string"
+msgstr "ä÷éø úæåøçî úåòöîàá äãùì äéðôä ïåéñð"
+
+#: eval.c:1762
+#, c-format
+msgid "attempt to access field %d"
+msgstr "%d 'ñî äãùì äùéâ ïåéñð"
+
+#: eval.c:1778
+#, c-format
+msgid "attempt to use scalar parameter `%s' as an array"
+msgstr "êøòî äéä åìéàë `%s' éøì÷ñ øèîøôá ùåîéù ïåéñð"
+
+#: eval.c:1869
+msgid "`IGNORECASE' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `IGNORECASE'"
+
+#: eval.c:1897
+msgid "`BINMODE' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä åðéä `BINMODE'"
+
+#: eval.c:2009
+#, c-format
+msgid "bad `%sFMT' specification `%s'"
+msgstr "äðé÷ú `%sFMT' úøãâä åðéà `%s'"
+
+#: eval.c:2075
+msgid "turning off `--lint' due to assignment to `LINT'"
+msgstr "`LINT'-ì êøò úîùä á÷ò `--lint' ìèáî"
+
+#: io.c:240
+#, c-format
+msgid "cannot open file `%s' for reading (%s)"
+msgstr "åúàéø÷ íùì `%s' õáå÷ úçéúôá (%s) äì÷ú"
+
+#: io.c:320
+#, c-format
+msgid "close of fd %d (`%s') failed (%s)"
+msgstr "(%d èìô/èì÷ õåøò) `%s' úøéâñá (%s) äì÷ú"
+
+#: io.c:432
+#, c-format
+msgid "invalid tree type %s in redirect()"
+msgstr "redirect() äéö÷ðåôá %s éåâù õò âåñ"
+
+#: io.c:438
+#, c-format
+msgid "expression in `%s' redirection only has numeric value"
+msgstr "ãáìá éøîåð êøò áéðî `%s' èìô/èì÷ úééðôäá éåèéá"
+
+#: io.c:444
+#, c-format
+msgid "expression for `%s' redirection has null string value"
+msgstr "ä÷éø úæåøçî áéðî `%s' èìô/èì÷ úééðôäá éåèéá"
+
+#: io.c:449
+#, c-format
+msgid "filename `%s' for `%s' redirection may be result of logical expression"
+msgstr "éâåì éåèéá ìù äàöåú úåéäì ìåìò `%s' õáå÷ íù `%s' èìô/èì÷ úééðôäá"
+
+#: io.c:471
+#, c-format
+msgid "unnecessary mixing of `>' and `>>' for file `%.*s'"
+msgstr "`%.*s' õáå÷ øåáò `>>'-á ïäå `>'-á ïä øúåéî ùåîéù"
+
+#: io.c:523
+#, c-format
+msgid "can't open pipe `%s' for output (%s)"
+msgstr "èìô êøåöì `%s' ÷éôà úçéúôá (%s) äì÷ú"
+
+#: io.c:532
+#, c-format
+msgid "can't open pipe `%s' for input (%s)"
+msgstr "èì÷ êøåöì `%s' ÷éôà úçéúôá (%s) äì÷ú"
+
+#: io.c:545
+#, c-format
+msgid "can't open two way socket `%s' for input/output (%s)"
+msgstr "èìô/èì÷ êøåöì éðååéë-åã (socket) ò÷ùë `%s' úçéúôá (%s) äì÷ú"
+
+#: io.c:549
+#, c-format
+msgid "can't open two way pipe `%s' for input/output (%s)"
+msgstr "èìô/èì÷ êøåöì éðååéë-åã (pipe) ÷éôàë `%s' úçéúôá (%s) äì÷ú"
+
+#: io.c:625
+#, c-format
+msgid "can't redirect from `%s' (%s)"
+msgstr "`%s'-î äééðôäá (%s) äì÷ú"
+
+#: io.c:628
+#, c-format
+msgid "can't redirect to `%s' (%s)"
+msgstr "`%s' ìà äééðôäá (%s) äì÷ú"
+
+#: io.c:667
+msgid ""
+"reached system limit for open files: starting to multiplex file descriptors"
+msgstr "èìô/èì÷ éöåøò áåáéø úìéçú ;íéçåúô íéöá÷ øôñî ìù úëøòî úìáâîì äòâä"
+
+#. do_lint &&
+#: io.c:679
+#, c-format
+msgid "close of `%s' failed (%s)."
+msgstr "`%s' úøéâñá (%s) äì÷ú"
+
+#. surely this is the only reason ???
+#: io.c:686
+msgid "too many pipes or input files open"
+msgstr "úéðîæ-åá íéçåúô èì÷ éöá÷ åà (pipes) íé÷éôà éãî øúåé"
+
+#: io.c:709
+msgid "close: second argument must be `to' or `from'"
+msgstr "`from' åà `to' úåéäì áééç `close' ìù éðùä èðîåâøàä"
+
+#: io.c:723
+#, c-format
+msgid "close: `%.*s' is not an open file, pipe or co-process"
+msgstr "ìéá÷î êéìäú åà çåúô ÷éôà ,çåúô õáå÷ åðéà `%.*s' :close"
+
+#. update ERRNO manually, using errno = ENOENT is a stretch.
+#: io.c:727
+msgid "close of redirection that was never opened"
+msgstr "íìåòî äçúôð àìù äééðôä úøéâñ"
+
+#: io.c:754
+#, c-format
+msgid "close: redirection `%s' not opened with `|&', second argument ignored"
+msgstr "çðæåä éðùä èðîåâøàä ,`|&' é\"ò äçúôð àì `%s' äééðôä"
+
+#: io.c:811
+#, c-format
+msgid "failure status (%d) on pipe close of `%s' (%s)"
+msgstr "(%d äì÷ú ãå÷) `%s'-ì ÷éôà úøéâñá (%s) äì÷ú"
+
+#: io.c:814
+#, c-format
+msgid "failure status (%d) on file close of `%s' (%s)"
+msgstr "(%d äì÷ú ãå÷) `%s' õáå÷ úøéâñá (%s) äì÷ú"
+
+#: io.c:833
+#, c-format
+msgid "no explicit close of socket `%s' provided"
+msgstr "ùøåôîá øâñð àì (socket) `%s' ò÷ù"
+
+#: io.c:836
+#, c-format
+msgid "no explicit close of co-process `%s' provided"
+msgstr "ùøåôîá øâñð àì (co-process) `%s' ìéá÷î êéìäú"
+
+#: io.c:839
+#, c-format
+msgid "no explicit close of pipe `%s' provided"
+msgstr "ùøåôîá øâñð àì (pipe) `%s' ÷éôà"
+
+#: io.c:842
+#, c-format
+msgid "no explicit close of file `%s' provided"
+msgstr "ùøåôîá øâñð àì `%s' õáå÷"
+
+#: io.c:871 io.c:925
+#, c-format
+msgid "error writing standard output (%s)"
+msgstr "éð÷ú èìô õåøòì äáéúëá (%s) äì÷ú"
+
+#: io.c:875 io.c:929
+#, c-format
+msgid "error writing standard error (%s)"
+msgstr "éð÷ú úåàéâù õåøòì äáéúëá (%s) äì÷ú"
+
+#: io.c:883
+#, c-format
+msgid "pipe flush of `%s' failed (%s)."
+msgstr "`%s'-ì ÷éôà ìù õöåç ïå÷éøá (%s) äì÷ú"
+
+#: io.c:886
+#, c-format
+msgid "co-process flush of pipe to `%s' failed (%s)."
+msgstr "`%s'-ì ìéá÷î êéìäú ÷éôà ìù õöåç ïå÷éøá (%s) äì÷ú"
+
+#: io.c:889
+#, c-format
+msgid "file flush of `%s' failed (%s)."
+msgstr "`%s' ìù õáå÷ éðåúð õöåç ïå÷éøá (%s) äì÷ú"
+
+#. /inet/raw client not ready yet
+#: io.c:1048
+msgid "/inet/raw client not ready yet, sorry"
+msgstr "ïëåî íøè /inet/raw çå÷ì ,íéøòèöî"
+
+#: io.c:1050 io.c:1087
+msgid "only root may use `/inet/raw'."
+msgstr "ãáìá root ùîúùîì øúåî `inet/raw'-á ùåîéù"
+
+#. /inet/raw server not ready yet
+#: io.c:1085
+msgid "/inet/raw server not ready yet, sorry"
+msgstr "ïëåî íøè /inet/raw úøù ,íéøòèöî"
+
+#: io.c:1175
+#, c-format
+msgid "no (known) protocol supplied in special filename `%s'"
+msgstr "`%s' ãçåéî õáå÷ íùá ääåæî-éúìá åà øñç ìå÷åèåøô"
+
+#: io.c:1193
+#, c-format
+msgid "special file name `%s' is incomplete"
+msgstr "íìù åðéà `%s' ãçåéî õáå÷"
+
+#: io.c:1205
+#, c-format
+msgid "local port invalid in `%s'"
+msgstr "`%s'-á äéåâù úéîå÷î äàéöé"
+
+#: io.c:1217
+msgid "must supply a remote hostname to `/inet'"
+msgstr "`/inet' øåáò ÷çåøî çøàî-áùçî íù øéãâäì äáåç"
+
+#: io.c:1232
+msgid "must supply a remote port to `/inet'"
+msgstr "`/inet' øåáò ú÷çåøî äàéöé øéãâäì äáåç"
+
+#: io.c:1238
+#, c-format
+msgid "remote port invalid in `%s'"
+msgstr "`%s'-á äéåâù ú÷çåøî äàéöé"
+
+#: io.c:1248
+msgid "TCP/IP communications are not supported"
+msgstr "TCP/IP úøåù÷úá äëéîú ïéà"
+
+#: io.c:1257 io.c:1446
+#, c-format
+msgid "file `%s' is a directory"
+msgstr "äé÷éú åðéä `%s' õáå÷"
+
+#: io.c:1327
+#, c-format
+msgid "use `PROCINFO[\"%s\"]' instead of `%s'"
+msgstr "`PROCINFO[\"%s\"]'-á ùîúùäì óéãò `%s' íå÷îá"
+
+#: io.c:1363
+msgid "use `PROCINFO[...]' instead of `/dev/user'"
+msgstr "`/dev/user' éðô-ìò óéãò `PROCINFO[...]'-á ùåîéù"
+
+# This probably sounds nonsensical in Hebrew, but what can I do,
+# given the original message text?
+#: io.c:1432
+#, c-format
+msgid "could not open `%s', mode `%s'"
+msgstr "`%s' øåáò `%s' äìåòô ïôåà úçéúôá ïåìùë"
+
+#: io.c:1544 io.c:1665
+#, c-format
+msgid "close of stdout in child failed (%s)"
+msgstr "úá-úéðëúá stdout úøéâñá (%s) äì÷ú"
+
+#: io.c:1547 io.c:1668
+#, c-format
+msgid "moving pipe to stdout in child failed (dup: %s)"
+msgstr "úá-úéðëúá stdout-ì ÷éôà ìåôëùá (dup: %s) äì÷ú"
+
+#: io.c:1549
+#, c-format
+msgid "close of stdin in child failed (%s)"
+msgstr "úá-úéðëúá stdin úøéâñá (%s) äì÷ú"
+
+#: io.c:1552
+#, c-format
+msgid "moving pipe to stdin in child failed (dup: %s)"
+msgstr "úá-úéðëúá stdin-ì ÷éôà ìåôëùá (dup: %s) äì÷ú"
+
+#: io.c:1555 io.c:1670 io.c:1678
+#, c-format
+msgid "close of pipe failed (%s)"
+msgstr "÷éôà úøéâñá (%s) äì÷ú"
+
+#: io.c:1584
+#, c-format
+msgid "pipe from `%s': could not set close-on-exec (fcntl: %s)"
+msgstr "`%s'-î èì÷ ÷éôà øåáò close-on-exec ïééôàî úìòôäá (fcntl: %s) äì÷ú"
+
+#: io.c:1588
+#, c-format
+msgid "pipe to `%s': could not set close-on-exec (fcntl: %s)"
+msgstr "`%s'-ì èìô ÷éôà øåáò close-on-exec ïééôàî úìòôäá (fcntl: %s) äì÷ú"
+
+#: io.c:1598
+msgid "`|&' not supported"
+msgstr "`|&'-á äëéîú ïéà"
+
+#: io.c:1662
+#, c-format
+msgid "cannot open pipe `%s' (%s)"
+msgstr "`%s' ÷éôà úçéúôá (%s) äì÷ú"
+
+#: io.c:1675
+#, c-format
+msgid "cannot create child process for `%s' (fork: %s)"
+msgstr "`%s' úá-úéðëúì êéìäú úøéöéá (fork: %s) äì÷ú"
+
+#: io.c:2004
+#, c-format
+msgid "data file `%s' is empty"
+msgstr "÷éø åðéä `%s' íéðåúð õáå÷"
+
+#: io.c:2071
+#, c-format
+msgid "internal error: file `%s', line %d\n"
+msgstr "`%s' õáå÷ ìù %d äøåùá úéîéðô äðëú äàéâù\n"
+
+#: io.c:2173
+#, c-format
+msgid "error reading input file `%s': %s"
+msgstr "`%s' õáå÷ úàéø÷á (%s) äì÷ú"
+
+#: io.c:2392
+msgid "multicharacter value of `RS' is a gawk extension"
+msgstr "gawk-ì úéôéöôñ äáçøä äðéä `RS' ìù êøòá íéåú øôñîá äëéîú"
+
+#: node.c:59 node.c:66 node.c:75 node.c:89 node.c:116
+msgid "can't convert string to float"
+msgstr "øôñîì äøîäì úðúéð äðéà úæåøçî"
+
+#: node.c:342
+msgid "backslash at end of string"
+msgstr "úæåøçî óåñá êåôä ïñëåì"
+
+#: node.c:524
+msgid "POSIX does not allow `\\x' escapes"
+msgstr "`\\x' âåñî äø÷á úåøãñ äùøî åðéà POSIX ï÷ú"
+
+#: node.c:530
+msgid "no hex digits in `\\x' escape sequence"
+msgstr "`\\x' äø÷á úøãñá úåéìîéöãñ÷ä úåøôñá ùîúùäì ïéà"
+
+#: node.c:564
+#, c-format
+msgid "escape sequence `\\%c' treated as plain `%c'"
+msgstr "éìåìéî åúë ìôåè `\\%c' äø÷á úøãñá `%c' åú"
+
+# Not translated because it's impossible to reword this in Hebrew:
+# the leading "%s %s `%s'" gets converted to "pipe from `foo'", where
+# both "file" and "from" are in English. FIXME.
+#: posix/gawkmisc.c:122
+#, c-format
+msgid "%s %s `%s': could not set close-on-exec: %s"
+msgstr ""
diff --git a/po/stamp-cat-id b/po/stamp-cat-id
new file mode 100644
index 00000000..9788f702
--- /dev/null
+++ b/po/stamp-cat-id
@@ -0,0 +1 @@
+timestamp
diff --git a/posix/ChangeLog b/posix/ChangeLog
index f0d1419c..359a635a 100644
--- a/posix/ChangeLog
+++ b/posix/ChangeLog
@@ -1,3 +1,29 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * gawkmisc.c (os_restore_mode): New function.
+
+Sun Dec 3 16:53:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.c (os_setbinmode): new function.
+
+Tue Nov 14 16:13:08 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.c: Remove all includes. Done by ../gawkmisc.c.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.c (os_is_setuid): new function.
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Close-on-exec changes:
+ gawkmisc.c: (os_close_on_exec, os_isdir): new functions.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -7,7 +33,7 @@ Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.5: Release tar file made.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Thu May 15 12:49:08 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
diff --git a/posix/gawkmisc.c b/posix/gawkmisc.c
index 68bfb5dd..4f94683d 100644
--- a/posix/gawkmisc.c
+++ b/posix/gawkmisc.c
@@ -1,6 +1,6 @@
/* gawkmisc.c --- miscellanious gawk routines that are OS specific.
- Copyright (C) 1986, 1988, 1989, 1991 - 96 the Free Software Foundation, Inc.
+ Copyright (C) 1986, 1988, 1989, 1991 - 98, 2001 the Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -20,6 +20,11 @@ char quote = '\'';
char *defpath = DEFPATH;
char envsep = ':';
+#ifndef INVALID_HANDLE
+/* FIXME: is this value for INVALID_HANDLE correct? */
+#define INVALID_HANDLE -1
+#endif
+
/* gawk_name --- pull out the "gawk" part from how the OS called us */
char *
@@ -106,3 +111,61 @@ int c;
return (c == '/');
}
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+const char *name, *what, *dir;
+{
+ if (fcntl(fd, F_SETFD, 1) < 0)
+ warning(_("%s %s `%s': could not set close-on-exec: %s"),
+ what, dir, name, strerror(errno));
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+#if ! defined(S_ISDIR) && defined(S_IFDIR)
+#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
+
+int
+os_isdir(fd)
+int fd;
+{
+ struct stat sbuf;
+
+ return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode));
+}
+
+/* os_is_setuid --- true if running setuid root */
+
+int
+os_is_setuid()
+{
+ long uid, euid;
+
+ uid = getuid();
+ euid = geteuid();
+
+ return (euid == 0 && euid != uid);
+}
+
+/* os_setbinmode --- set binary mode on file */
+
+int
+os_setbinmode (fd, mode)
+int fd, mode;
+{
+ return 0;
+}
+
+/* os_restore_mode --- restore the original mode of the console device */
+
+void
+os_restore_mode (fd)
+int fd;
+{
+ /* no-op */
+ return;
+}
diff --git a/profile.c b/profile.c
new file mode 100644
index 00000000..1dced87a
--- /dev/null
+++ b/profile.c
@@ -0,0 +1,1381 @@
+/*
+ * profile.c - gawk parse tree pretty-printer with counts
+ */
+
+/*
+ * Copyright (C) 1999-2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#include "awk.h"
+
+/* where to place redirections for getline, print, printf */
+enum redir_placement {
+ BEFORE = 0,
+ AFTER = 1
+};
+
+#undef tree_eval
+static void tree_eval P((NODE *tree));
+static void parenthesize P((NODETYPE parent_type, NODE *tree));
+static void eval_condition P((NODE *tree));
+static void pp_op_assign P((NODE *tree));
+static void pp_func_call P((NODE *name, NODE *arg_list));
+static void pp_match_op P((NODE *tree));
+static void pp_lhs P((NODE *ptr));
+static void pp_print_stmt P((const char *command, NODE *tree));
+static void pp_delete P((NODE *tree));
+static void pp_in_array P((NODE *array, NODE *subscript));
+static void pp_getline P((NODE *tree));
+static void pp_builtin P((NODE *tree));
+static void pp_list P((NODE *tree));
+static void pp_string P((char *str, size_t len, int delim));
+static int is_scalar P((NODETYPE type));
+static int prec_level P((NODETYPE type));
+#ifdef PROFILING
+static RETSIGTYPE dump_and_exit P((int signum));
+static RETSIGTYPE just_dump P((int signum));
+#endif
+
+/* pretty printing related functions and variables */
+
+static char **fparms; /* function parameter names */
+static FILE *prof_fp; /* where to send the profile */
+
+static long indent_level = 0;
+
+static int in_BEGIN_or_END = FALSE;
+
+static int in_expr = FALSE;
+
+#define SPACEOVER 0
+
+/* init_profiling --- do needed initializations, see also main.c */
+
+void
+init_profiling(int *flag, const char *def_file)
+{
+ /* run time init avoids glibc innovations */
+ prof_fp = stderr;
+
+#ifdef PROFILING
+ if (*flag == FALSE) {
+ *flag = TRUE;
+ set_prof_file(def_file);
+ }
+#endif
+}
+
+/* set_prof_file --- set the output file for profiling */
+
+void
+set_prof_file(const char *file)
+{
+ assert(file != NULL);
+
+ prof_fp = fopen(file, "w");
+ if (prof_fp == NULL) {
+ warning(_("could not open `%s' for writing: %s"),
+ file, strerror(errno));
+ warning(_("sending profile to standard error"));
+ prof_fp = stderr;
+ }
+}
+
+void
+init_profiling_signals()
+{
+#ifdef PROFILING
+#ifdef SIGHUP
+ signal(SIGHUP, dump_and_exit);
+#endif
+#ifdef SIGUSR1
+ signal(SIGUSR1, just_dump);
+#endif
+#endif
+}
+
+/* indent --- print out enough tabs */
+
+static void
+indent(long count)
+{
+ int i;
+
+ if (count == 0)
+ putc('\t', prof_fp);
+ else
+ fprintf(prof_fp, "%6ld ", count);
+
+ assert(indent_level >= 0);
+ for (i = 0; i < indent_level; i++)
+ putc('\t', prof_fp);
+}
+
+/* indent_in --- increase the level, with error checking */
+
+static void
+indent_in()
+{
+ assert(indent_level >= 0);
+ indent_level++;
+}
+
+/* indent_out --- decrease the level, with error checking */
+
+static void
+indent_out()
+{
+ indent_level--;
+ assert(indent_level >= 0);
+}
+
+/*
+ * pprint:
+ * Tree is a bunch of rules to run. Returns zero if it hit an exit()
+ * statement
+ */
+static void
+pprint(register NODE *volatile tree)
+{
+ register NODE *volatile t = NULL; /* temporary */
+ int volatile traverse = TRUE; /* True => loop thru tree (Node_rule_list) */
+
+ /* avoid false source indications */
+ source = NULL;
+ sourceline = 0;
+
+ if (tree == NULL)
+ return;
+ sourceline = tree->source_line;
+ source = tree->source_file;
+ switch (tree->type) {
+ case Node_rule_node:
+ traverse = FALSE; /* False => one for-loop iteration only */
+ /* FALL THROUGH */
+ case Node_rule_list:
+ for (t = tree; t != NULL; t = t->rnode) {
+ if (traverse)
+ tree = t->lnode;
+ sourceline = tree->source_line;
+ source = tree->source_file;
+
+ if (! in_BEGIN_or_END)
+ indent(tree->exec_count);
+
+ if (tree->lnode) {
+ eval_condition(tree->lnode);
+ if (tree->rnode)
+ fprintf(prof_fp, "\t");
+ }
+
+ if (tree->rnode) {
+ if (! in_BEGIN_or_END) {
+ fprintf(prof_fp, "{");
+ if (tree->lnode != NULL
+ && tree->lnode->exec_count)
+ fprintf(prof_fp, " # %ld",
+ tree->lnode->exec_count);
+ fprintf(prof_fp, "\n");
+ }
+ indent_in();
+ pprint(tree->rnode);
+ indent_out();
+ if (! in_BEGIN_or_END) {
+ indent(SPACEOVER);
+ fprintf(prof_fp, "}\n");
+ }
+ }
+
+ if (! traverse) /* case Node_rule_node */
+ break; /* don't loop */
+
+ if (t->rnode && ! in_BEGIN_or_END)
+ fprintf(prof_fp, "\n");
+ }
+ break;
+
+ case Node_statement_list:
+ for (t = tree; t != NULL; t = t->rnode) {
+ pprint(t->lnode);
+ }
+ break;
+
+ case Node_K_if:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "if (");
+ in_expr++;
+ eval_condition(tree->lnode);
+ in_expr--;
+ fprintf(prof_fp, ") {");
+#ifdef PROFILING
+ if (tree->rnode->exec_count)
+ fprintf(prof_fp, " # %ld", tree->rnode->exec_count);
+#endif
+ fprintf(prof_fp, "\n");
+ indent_in();
+ pprint(tree->rnode->lnode);
+ indent_out();
+ if (tree->rnode->rnode != NULL) {
+ if (tree->exec_count - tree->rnode->exec_count > 0)
+ indent(tree->exec_count - tree->rnode->exec_count);
+ else
+ indent(0);
+ fprintf(prof_fp, "} else {\n");
+ indent_in();
+ pprint(tree->rnode->rnode);
+ indent_out();
+ }
+ indent(SPACEOVER);
+ fprintf(prof_fp, "}\n");
+ break;
+
+ case Node_K_while:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "while (");
+ in_expr++;
+ eval_condition(tree->lnode);
+ in_expr--;
+ fprintf(prof_fp, ") {\n");
+ indent_in();
+ pprint(tree->rnode);
+ indent_out();
+ indent(SPACEOVER);
+ fprintf(prof_fp, "}\n");
+ break;
+
+ case Node_K_do:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "do {\n");
+ indent_in();
+ pprint(tree->rnode);
+ indent_out();
+ indent(SPACEOVER);
+ fprintf(prof_fp, "} while (");
+ in_expr++;
+ eval_condition(tree->lnode);
+ in_expr--;
+ fprintf(prof_fp, ")\n");
+ break;
+
+ case Node_K_for:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "for (");
+ in_expr++;
+ pprint(tree->forloop->init);
+ fprintf(prof_fp, "; ");
+ eval_condition(tree->forloop->cond);
+ fprintf(prof_fp, "; ");
+ pprint(tree->forloop->incr);
+ fprintf(prof_fp, ") {\n");
+ in_expr--;
+ indent_in();
+ pprint(tree->lnode);
+ indent_out();
+ indent(SPACEOVER);
+ fprintf(prof_fp, "}\n");
+ break;
+
+ case Node_K_arrayfor:
+#define hakvar forloop->init
+#define arrvar forloop->incr
+ indent(tree->exec_count);
+ fprintf(prof_fp, "for (");
+ in_expr++;
+ pp_lhs(tree->hakvar);
+ in_expr--;
+ fprintf(prof_fp, " in ");
+ t = tree->arrvar;
+ if (t->type == Node_param_list)
+ fprintf(prof_fp, "%s", fparms[t->param_cnt]);
+ else
+ fprintf(prof_fp, "%s", t->vname);
+ fprintf(prof_fp, ") {\n");
+ indent_in();
+ pprint(tree->lnode);
+ indent_out();
+ indent(SPACEOVER);
+ fprintf(prof_fp, "}\n");
+ break;
+
+ case Node_K_break:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "break\n");
+ break;
+
+ case Node_K_continue:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "continue\n");
+ break;
+
+ case Node_K_print:
+ pp_print_stmt("print", tree);
+ break;
+
+ case Node_K_printf:
+ pp_print_stmt("printf", tree);
+ break;
+
+ case Node_K_delete:
+ pp_delete(tree);
+ break;
+
+ case Node_K_next:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "next\n");
+ break;
+
+ case Node_K_nextfile:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "nextfile\n");
+ break;
+
+ case Node_K_exit:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "exit");
+ if (tree->lnode != NULL) {
+ fprintf(prof_fp, " ");
+ tree_eval(tree->lnode);
+ }
+ fprintf(prof_fp, "\n");
+ break;
+
+ case Node_K_return:
+ indent(tree->exec_count);
+ fprintf(prof_fp, "return");
+ if (tree->lnode != NULL) {
+ fprintf(prof_fp, " ");
+ tree_eval(tree->lnode);
+ }
+ fprintf(prof_fp, "\n");
+ break;
+
+ default:
+ /*
+ * Appears to be an expression statement.
+ * Throw away the value.
+ */
+ if (in_expr)
+ tree_eval(tree);
+ else {
+ indent(tree->exec_count);
+ tree_eval(tree);
+ fprintf(prof_fp, "\n");
+ }
+ break;
+ }
+}
+
+/* tree_eval --- evaluate a subtree */
+
+static void
+tree_eval(register NODE *tree)
+{
+ if (tree == NULL)
+ return;
+
+ switch (tree->type) {
+ case Node_param_list:
+ fprintf(prof_fp, "%s", fparms[tree->param_cnt]);
+ return;
+
+ case Node_var:
+ if (tree->vname != NULL)
+ fprintf(prof_fp, "%s", tree->vname);
+ else
+ fatal(_("internal error: Node_var with null vname"));
+ return;
+
+ case Node_val:
+ if ((tree->flags & (NUM|NUMBER)) != 0)
+ fprintf(prof_fp, "%g", tree->numbr);
+ else {
+ if ((tree->flags & INTLSTR) != 0)
+ fprintf(prof_fp, "_");
+ pp_string(tree->stptr, tree->stlen, '"');
+ }
+ return;
+
+ case Node_and:
+ eval_condition(tree->lnode);
+ fprintf(prof_fp, " && ");
+ eval_condition(tree->rnode);
+ return;
+
+ case Node_or:
+ eval_condition(tree->lnode);
+ fprintf(prof_fp, " || ");
+ eval_condition(tree->rnode);
+ return;
+
+ case Node_not:
+ parenthesize(tree->type, tree->lnode);
+ return;
+
+ /* Builtins */
+ case Node_builtin:
+ pp_builtin(tree);
+ return;
+
+ case Node_in_array:
+ in_expr++;
+ pp_in_array(tree->lnode, tree->rnode);
+ in_expr--;
+ return;
+
+ case Node_func_call:
+ pp_func_call(tree->rnode, tree->lnode);
+ return;
+
+ case Node_K_getline:
+ pp_getline(tree);
+ return;
+
+ /* unary operations */
+ case Node_NR:
+ fprintf(prof_fp, "NR");
+ return;
+
+ case Node_FNR:
+ fprintf(prof_fp, "FNR");
+ return;
+
+ case Node_NF:
+ fprintf(prof_fp, "NF");
+ return;
+
+ case Node_FIELDWIDTHS:
+ fprintf(prof_fp, "FIELDWIDTHS");
+ return;
+
+ case Node_FS:
+ fprintf(prof_fp, "FS");
+ return;
+
+ case Node_RS:
+ fprintf(prof_fp, "RS");
+ return;
+
+ case Node_IGNORECASE:
+ fprintf(prof_fp, "IGNORECASE");
+ return;
+
+ case Node_OFS:
+ fprintf(prof_fp, "OFS");
+ return;
+
+ case Node_ORS:
+ fprintf(prof_fp, "ORS");
+ return;
+
+ case Node_OFMT:
+ fprintf(prof_fp, "OFMT");
+ return;
+
+ case Node_CONVFMT:
+ fprintf(prof_fp, "CONVFMT");
+ return;
+
+ case Node_BINMODE:
+ fprintf(prof_fp, "BINMODE");
+ return;
+
+ case Node_field_spec:
+ case Node_subscript:
+ pp_lhs(tree);
+ return;
+
+ case Node_var_array:
+ if (tree->vname != NULL)
+ fprintf(prof_fp, "%s", tree->vname);
+ else
+ fatal(_("internal error: Node_var_array with null vname"));
+ return;
+
+ case Node_unary_minus:
+ fprintf(prof_fp, " -");
+ tree_eval(tree->subnode);
+ return;
+
+ case Node_cond_exp:
+ eval_condition(tree->lnode);
+ fprintf(prof_fp, " ? ");
+ tree_eval(tree->rnode->lnode);
+ fprintf(prof_fp, " : ");
+ tree_eval(tree->rnode->rnode);
+ return;
+
+ case Node_match:
+ case Node_nomatch:
+ case Node_regex:
+ pp_match_op(tree);
+ return;
+
+ case Node_func:
+ fatal(_("function `%s' called with space between name and `(',\n%s"),
+ tree->lnode->param,
+ _("or used in other expression context"));
+
+ /* assignments */
+ case Node_assign:
+ tree_eval(tree->lnode);
+ fprintf(prof_fp, " = ");
+ tree_eval(tree->rnode);
+ return;
+
+ case Node_concat:
+ fprintf(prof_fp, "(");
+ tree_eval(tree->lnode);
+ fprintf(prof_fp, " ");
+ tree_eval(tree->rnode);
+ fprintf(prof_fp, ")");
+ return;
+
+ /* other assignment types are easier because they are numeric */
+ case Node_preincrement:
+ case Node_predecrement:
+ case Node_postincrement:
+ case Node_postdecrement:
+ case Node_assign_exp:
+ case Node_assign_times:
+ case Node_assign_quotient:
+ case Node_assign_mod:
+ case Node_assign_plus:
+ case Node_assign_minus:
+ pp_op_assign(tree);
+ return;
+
+ default:
+ break; /* handled below */
+ }
+
+ /* handle binary ops */
+ in_expr++;
+ parenthesize(tree->type, tree->lnode);
+
+ switch (tree->type) {
+ case Node_geq:
+ fprintf(prof_fp, " >= ");
+ break;
+ case Node_leq:
+ fprintf(prof_fp, " <= ");
+ break;
+ case Node_greater:
+ fprintf(prof_fp, " > ");
+ break;
+ case Node_less:
+ fprintf(prof_fp, " < ");
+ break;
+ case Node_notequal:
+ fprintf(prof_fp, " != ");
+ break;
+ case Node_equal:
+ fprintf(prof_fp, " == ");
+ break;
+ case Node_exp:
+ fprintf(prof_fp, " ^ ");
+ break;
+ case Node_times:
+ fprintf(prof_fp, " * ");
+ break;
+ case Node_quotient:
+ fprintf(prof_fp, " / ");
+ break;
+ case Node_mod:
+ fprintf(prof_fp, " %% ");
+ break;
+ case Node_plus:
+ fprintf(prof_fp, " + ");
+ break;
+ case Node_minus:
+ fprintf(prof_fp, " - ");
+ break;
+ case Node_var_array:
+ fatal(_("attempt to use array `%s' in a scalar context"),
+ tree->vname);
+ return;
+ default:
+ fatal(_("illegal type (%s) in tree_eval"), nodetype2str(tree->type));
+ }
+ parenthesize(tree->type, tree->rnode);
+ in_expr--;
+
+ return;
+}
+
+/* eval_condition --- is TREE true or false */
+
+static void
+eval_condition(register NODE *tree)
+{
+ if (tree == NULL) /* Null trees are the easiest kinds */
+ return;
+
+ if (tree->type == Node_line_range) {
+ /* /.../, /.../ */
+ eval_condition(tree->condpair->lnode);
+ fprintf(prof_fp,", ");
+ eval_condition(tree->condpair->rnode);
+ return;
+ }
+
+ /*
+ * Could just be J.random expression. in which case, null and 0 are
+ * false, anything else is true
+ */
+
+ tree_eval(tree);
+ return;
+}
+
+/* pp_op_assign --- do +=, -=, etc. */
+
+static void
+pp_op_assign(register NODE *tree)
+{
+ char *op = NULL;
+ enum Order {
+ NA = 0,
+ PRE = 1,
+ POST = 2
+ } order = NA;
+
+ switch(tree->type) {
+ case Node_preincrement:
+ op = "++";
+ order = PRE;
+ break;
+
+ case Node_predecrement:
+ op = "--";
+ order = PRE;
+ break;
+
+ case Node_postincrement:
+ op = "++";
+ order = POST;
+ break;
+
+ case Node_postdecrement:
+ op = "--";
+ order = POST;
+ break;
+
+ default:
+ break; /* handled below */
+ }
+
+ if (order == PRE) {
+ fprintf(prof_fp, "%s", op);
+ pp_lhs(tree->lnode);
+ return;
+ } else if (order == POST) {
+ pp_lhs(tree->lnode);
+ fprintf(prof_fp, "%s", op);
+ return;
+ }
+
+ /* a binary op */
+ pp_lhs(tree->lnode);
+
+ switch(tree->type) {
+ case Node_assign_exp:
+ fprintf(prof_fp, " ^= ");
+ break;
+
+ case Node_assign_times:
+ fprintf(prof_fp, " *= ");
+ break;
+
+ case Node_assign_quotient:
+ fprintf(prof_fp, " /= ");
+ break;
+
+ case Node_assign_mod:
+ fprintf(prof_fp, " %%= ");
+ break;
+
+ case Node_assign_plus:
+ fprintf(prof_fp, " += ");
+ break;
+
+ case Node_assign_minus:
+ fprintf(prof_fp, " -= ");
+ break;
+
+ default:
+ cant_happen();
+ }
+
+ tree_eval(tree->rnode);
+}
+
+/* pp_lhs --- print the lhs */
+
+static void
+pp_lhs(register NODE *ptr)
+{
+ register NODE *n;
+
+ switch (ptr->type) {
+ case Node_var_array:
+ fatal(_("attempt to use array `%s' in a scalar context"),
+ ptr->vname);
+
+ case Node_var:
+ fprintf(prof_fp, "%s", ptr->vname);
+ break;
+
+ case Node_FIELDWIDTHS:
+ fprintf(prof_fp, "FIELDWIDTHS");
+ break;
+
+ case Node_RS:
+ fprintf(prof_fp, "RS");
+ break;
+
+ case Node_FS:
+ fprintf(prof_fp, "FS");
+ break;
+
+ case Node_FNR:
+ fprintf(prof_fp, "FNR");
+ break;
+
+ case Node_NR:
+ fprintf(prof_fp, "NR");
+ break;
+
+ case Node_NF:
+ fprintf(prof_fp, "NF");
+ break;
+
+ case Node_IGNORECASE:
+ fprintf(prof_fp, "IGNORECASE");
+ break;
+
+ case Node_BINMODE:
+ fprintf(prof_fp, "BINMODE");
+ break;
+
+ case Node_LINT:
+ fprintf(prof_fp, "LINT");
+ break;
+
+ case Node_OFMT:
+ fprintf(prof_fp, "OFMT");
+ break;
+
+ case Node_CONVFMT:
+ fprintf(prof_fp, "CONVFMT");
+ break;
+
+ case Node_ORS:
+ fprintf(prof_fp, "ORS");
+ break;
+
+ case Node_OFS:
+ fprintf(prof_fp, "OFS");
+ break;
+
+ case Node_param_list:
+ fprintf(prof_fp, "%s", fparms[ptr->param_cnt]);
+ break;
+
+ case Node_field_spec:
+ fprintf(prof_fp, "$");
+ if (is_scalar(ptr->lnode->type))
+ tree_eval(ptr->lnode);
+ else {
+ fprintf(prof_fp, "(");
+ tree_eval(ptr->lnode);
+ fprintf(prof_fp, ")");
+ }
+ break;
+
+ case Node_subscript:
+ n = ptr->lnode;
+ if (n->type == Node_func) {
+ fatal(_("attempt to use function `%s' as array"),
+ n->lnode->param);
+ } else if (n->type == Node_param_list) {
+ fprintf(prof_fp, "%s[", fparms[n->param_cnt]);
+ } else
+ fprintf(prof_fp, "%s[", n->vname);
+ if (ptr->rnode->type == Node_expression_list)
+ pp_list(ptr->rnode);
+ else
+ tree_eval(ptr->rnode);
+ fprintf(prof_fp, "]");
+ break;
+
+ case Node_func:
+ fatal(_("`%s' is a function, assignment is not allowed"),
+ ptr->lnode->param);
+
+ case Node_builtin:
+ fatal(_("assignment is not allowed to result of builtin function"));
+
+ default:
+ cant_happen();
+ }
+}
+
+/* match_op --- do ~ and !~ */
+
+static void
+pp_match_op(register NODE *tree)
+{
+ register NODE *re;
+ char *op;
+ char *restr;
+ size_t relen;
+ NODE *text = NULL;
+
+ if (tree->type == Node_regex)
+ re = tree->re_exp;
+ else {
+ re = tree->rnode->re_exp;
+ text = tree->lnode;
+ }
+
+ if ((re->re_flags & CONST) != 0) {
+ restr = re->stptr;
+ relen = re->stlen;
+ } else {
+ restr = re->stptr;
+ relen = re->stlen;
+ }
+
+ if (tree->type == Node_regex) {
+ pp_string(restr, relen, '/');
+ return;
+ }
+
+ if (tree->type == Node_nomatch)
+ op = "!~";
+ else if (tree->type == Node_match)
+ op = "~";
+ else
+ op = "";
+
+ tree_eval(text);
+ fprintf(prof_fp, " %s ", op);
+ fprintf(prof_fp, "/%.*s/", (int) relen, restr);
+}
+
+/* pp_redir --- print a redirection */
+
+static void
+pp_redir(register NODE *tree, enum redir_placement dir)
+{
+ char *op = "[BOGUS]"; /* should never be seen */
+
+ if (tree == NULL)
+ return;
+
+ switch (tree->type) {
+ case Node_redirect_output:
+ op = ">";
+ break;
+ case Node_redirect_append:
+ op = ">>";
+ break;
+ case Node_redirect_pipe:
+ op = "|";
+ break;
+ case Node_redirect_pipein:
+ op = "|";
+ break;
+ case Node_redirect_input:
+ op = "<";
+ break;
+ case Node_redirect_twoway:
+ op = "|&";
+ break;
+ default:
+ cant_happen();
+ }
+
+ if (dir == BEFORE) {
+ if (! is_scalar(tree->subnode->type)) {
+ fprintf(prof_fp, "(");
+ tree_eval(tree->subnode);
+ fprintf(prof_fp, ")");
+ } else
+ tree_eval(tree->subnode);
+ fprintf(prof_fp, " %s ", op);
+ } else {
+ fprintf(prof_fp, " %s ", op);
+ if (! is_scalar(tree->subnode->type)) {
+ fprintf(prof_fp, "(");
+ tree_eval(tree->subnode);
+ fprintf(prof_fp, ")");
+ } else
+ tree_eval(tree->subnode);
+ }
+}
+
+/* pp_list --- dump a list of arguments, without parens */
+
+static void
+pp_list(register NODE *tree)
+{
+ for (; tree != NULL; tree = tree->rnode) {
+ if (tree->type != Node_expression_list) {
+ fprintf(stderr, "pp_list: got %s\n",
+ nodetype2str(tree->type));
+ fflush(stderr);
+ }
+ assert(tree->type == Node_expression_list);
+ tree_eval(tree->lnode);
+ if (tree->rnode != NULL)
+ fprintf(prof_fp, ", ");
+ }
+}
+
+/* pp_print_stmt --- print a "print" or "printf" statement */
+
+static void
+pp_print_stmt(const char *command, register NODE *tree)
+{
+ NODE *redir = tree->rnode;
+
+ indent(tree->exec_count);
+ fprintf(prof_fp, "%s", command);
+ if (redir != NULL) { /* parenthesize if have a redirection */
+ fprintf(prof_fp, "(");
+ pp_list(tree->lnode);
+ fprintf(prof_fp, ")");
+ pp_redir(redir, AFTER);
+ } else {
+ fprintf(prof_fp, " ");
+ pp_list(tree->lnode);
+ }
+ fprintf(prof_fp, "\n");
+}
+
+/* pp_delete --- print a "delete" statement */
+
+static void
+pp_delete(register NODE *tree)
+{
+ NODE *array, *subscript;
+
+ array = tree->lnode;
+ subscript = tree->rnode;
+ indent(array->exec_count);
+ if (array->type == Node_param_list)
+ fprintf(prof_fp, "delete %s", fparms[array->param_cnt]);
+ else
+ fprintf(prof_fp, "delete %s", array->vname);
+ if (subscript != NULL) {
+ fprintf(prof_fp, "[");
+ pp_list(subscript);
+ fprintf(prof_fp, "]");
+ }
+ fprintf(prof_fp, "\n");
+}
+
+/* pp_in_array --- pretty print "foo in array" test */
+
+static void
+pp_in_array(NODE *array, NODE *subscript)
+{
+ if (subscript->type == Node_expression_list) {
+ fprintf(prof_fp, "(");
+ pp_list(subscript);
+ fprintf(prof_fp, ")");
+ } else
+ pprint(subscript);
+
+ if (array->type == Node_param_list)
+ fprintf(prof_fp, " in %s", fparms[array->param_cnt]);
+ else
+ fprintf(prof_fp, " in %s", array->vname);
+}
+
+/* pp_getline --- print a getline statement */
+
+static void
+pp_getline(register NODE *tree)
+{
+ NODE *redir = tree->rnode;
+ int before, after;
+
+ /*
+ * command | getline
+ * or
+ * command |& getline
+ * or
+ * getline < file
+ */
+ if (redir != NULL) {
+ before = (redir->type == Node_redirect_pipein
+ || redir->type == Node_redirect_twoway);
+ after = ! before;
+ } else
+ before = after = FALSE;
+
+ if (before)
+ pp_redir(redir, BEFORE);
+
+ fprintf(prof_fp, "getline");
+ if (tree->lnode != NULL) { /* optional var */
+ fprintf(prof_fp, " ");
+ pp_lhs(tree->lnode);
+ }
+
+ if (after)
+ pp_redir(redir, AFTER);
+}
+
+/* pp_builtin --- print a builtin function */
+
+static void
+pp_builtin(register NODE *tree)
+{
+ fprintf(prof_fp, "%s(", getfname(tree->proc));
+ pp_list(tree->subnode);
+ fprintf(prof_fp, ")");
+}
+
+/* pp_func_call --- print a function call */
+
+static void
+pp_func_call(NODE *name, NODE *arglist)
+{
+ fprintf(prof_fp, "%s(", name->stptr);
+ pp_list(arglist);
+ fprintf(prof_fp, ")");
+}
+
+/* dump_prog --- dump the program */
+
+/*
+ * XXX: I am not sure it is right to have the strings in the dump
+ * be translated, but I'll leave it alone for now.
+ */
+
+void
+dump_prog(NODE *begin, NODE *prog, NODE *end)
+{
+ time_t now;
+
+ (void) time(& now);
+ /* \n on purpose, with \n in ctime() output */
+ fprintf(prof_fp, _("\t# gawk profile, created %s\n"), ctime(& now));
+
+ if (begin != NULL) {
+ fprintf(prof_fp, _("\t# BEGIN block(s)\n\n"));
+ fprintf(prof_fp, "\tBEGIN {\n");
+ in_BEGIN_or_END = TRUE;
+ pprint(begin);
+ in_BEGIN_or_END = FALSE;
+ fprintf(prof_fp, "\t}\n");
+ if (prog != NULL || end != NULL)
+ fprintf(prof_fp, "\n");
+ }
+ if (prog != NULL) {
+ fprintf(prof_fp, _("\t# Rule(s)\n\n"));
+ pprint(prog);
+ if (end != NULL)
+ fprintf(prof_fp, "\n");
+ }
+ if (end != NULL) {
+ fprintf(prof_fp, _("\t# END block(s)\n\n"));
+ fprintf(prof_fp, "\tEND {\n");
+ in_BEGIN_or_END = TRUE;
+ pprint(end);
+ in_BEGIN_or_END = FALSE;
+ fprintf(prof_fp, "\t}\n");
+ }
+}
+
+/* pp_func --- pretty print a function */
+
+void
+pp_func(char *name, size_t namelen, NODE *f)
+{
+ int j;
+ char **pnames;
+ static int first = TRUE;
+
+ if (first) {
+ first = FALSE;
+ fprintf(prof_fp, _("\n\t# Functions, listed alphabetically\n"));
+ }
+
+ fprintf(prof_fp, "\n");
+ indent(f->exec_count);
+ fprintf(prof_fp, "function %.*s(", (int) namelen, name);
+ pnames = f->parmlist;
+ fparms = pnames;
+ for (j = 0; j < f->lnode->param_cnt; j++) {
+ fprintf(prof_fp, "%s", pnames[j]);
+ if (j < f->lnode->param_cnt - 1)
+ fprintf(prof_fp, ", ");
+ }
+ fprintf(prof_fp, ")\n\t{\n");
+ indent_in();
+ pprint(f->rnode); /* body */
+ indent_out();
+ fprintf(prof_fp, "\t}\n");
+}
+
+/* pp_string --- pretty print a string or regex constant */
+
+static void
+pp_string(char *str, size_t len, int delim)
+{
+ pp_string_fp(prof_fp, str, len, delim, FALSE);
+}
+
+/* pp_string_fp --- printy print a string to the fp */
+
+/*
+ * This routine concentrates string pretty printing in one place,
+ * so that it can be called from multiple places within gawk.
+ */
+
+void
+pp_string_fp(FILE *fp, char *in_str, size_t len, int delim, int breaklines)
+{
+ static char escapes[] = "\b\f\n\r\t\v\\";
+ static char printables[] = "bfnrtv\\";
+ char *cp;
+ int i;
+ int count;
+#define BREAKPOINT 70 /* arbitrary */
+ unsigned char *str = (unsigned char *) in_str;
+
+ fprintf(fp, "%c", delim);
+ for (count = 0; len > 0; len--, str++) {
+ if (++count >= BREAKPOINT && breaklines) {
+ fprintf(fp, "%c\n%c", delim, delim);
+ count = 0;
+ }
+ if (*str == delim) {
+ fprintf(fp, "\\%c", delim);
+ count++;
+ } else if (*str == BELL) {
+ fprintf(fp, "\\a");
+ count++;
+ } else if ((cp = strchr(escapes, *str)) != NULL) {
+ i = cp - escapes;
+ putc('\\', fp);
+ count++;
+ putc(printables[i], fp);
+ if (breaklines && *str == '\n' && delim == '"') {
+ fprintf(fp, "\"\n\"");
+ count = 0;
+ }
+ /* NB: Deliberate use of lower-case versions. */
+ } else if (isascii(*str) && isprint(*str)) {
+ putc(*str, fp);
+ } else {
+ char buf[10];
+
+ sprintf(buf, "\\%03o", *str & 0xff);
+ count += strlen(buf) - 1;
+ fprintf(fp, "%s", buf);
+ }
+ }
+ fprintf(fp, "%c", delim);
+}
+
+/* is_scalar --- true or false if we'll get a scalar value */
+
+static int
+is_scalar(NODETYPE type)
+{
+ switch (type) {
+ case Node_var:
+ case Node_var_array:
+ case Node_val:
+ case Node_BINMODE:
+ case Node_CONVFMT:
+ case Node_FIELDWIDTHS:
+ case Node_FNR:
+ case Node_FS:
+ case Node_IGNORECASE:
+ case Node_LINT:
+ case Node_NF:
+ case Node_NR:
+ case Node_OFMT:
+ case Node_OFS:
+ case Node_ORS:
+ case Node_RS:
+ case Node_subscript:
+ return TRUE;
+ default:
+ return FALSE;
+ }
+}
+
+/* prec_level --- return the precedence of an operator, for paren tests */
+
+static int
+prec_level(NODETYPE type)
+{
+ switch (type) {
+ case Node_var:
+ case Node_var_array:
+ case Node_param_list:
+ case Node_subscript:
+ case Node_func_call:
+ case Node_val:
+ case Node_builtin:
+ case Node_BINMODE:
+ case Node_CONVFMT:
+ case Node_FIELDWIDTHS:
+ case Node_FNR:
+ case Node_FS:
+ case Node_IGNORECASE:
+ case Node_LINT:
+ case Node_NF:
+ case Node_NR:
+ case Node_OFMT:
+ case Node_OFS:
+ case Node_ORS:
+ case Node_RS:
+ return 15;
+
+ case Node_field_spec:
+ return 14;
+
+ case Node_exp:
+ return 13;
+
+ case Node_preincrement:
+ case Node_predecrement:
+ case Node_postincrement:
+ case Node_postdecrement:
+ return 12;
+
+ case Node_unary_minus:
+ case Node_not:
+ return 11;
+
+ case Node_times:
+ case Node_quotient:
+ case Node_mod:
+ return 10;
+
+ case Node_plus:
+ case Node_minus:
+ return 9;
+
+ case Node_concat:
+ return 8;
+
+ case Node_equal:
+ case Node_notequal:
+ case Node_greater:
+ case Node_leq:
+ case Node_geq:
+ case Node_match:
+ case Node_nomatch:
+ return 7;
+
+ case Node_K_getline:
+ return 6;
+
+ case Node_less:
+ return 5;
+
+ case Node_in_array:
+ return 5;
+
+ case Node_and:
+ return 4;
+
+ case Node_or:
+ return 3;
+
+ case Node_cond_exp:
+ return 2;
+
+ case Node_assign:
+ case Node_assign_times:
+ case Node_assign_quotient:
+ case Node_assign_mod:
+ case Node_assign_plus:
+ case Node_assign_minus:
+ case Node_assign_exp:
+ return 1;
+
+ default:
+ fatal(_("unexpected type %s in prec_level"), nodetype2str(type));
+ return 0; /* keep the compiler happy */
+ }
+}
+
+/* parenthesize --- print a subtree in parentheses if need be */
+
+static void
+parenthesize(NODETYPE parent_type, NODE *tree)
+{
+ NODETYPE child_type;
+
+ if (tree == NULL)
+ return;
+
+ child_type = tree->type;
+
+ in_expr++;
+ /* first the special cases, then the general ones */
+ if (parent_type == Node_not && child_type == Node_in_array) {
+ fprintf(prof_fp, "! (");
+ pp_in_array(tree->lnode, tree->rnode);
+ fprintf(prof_fp, ")");
+ /* other special cases here, as needed */
+ } else if (prec_level(child_type) < prec_level(parent_type)) {
+ fprintf(prof_fp, "(");
+ tree_eval(tree);
+ fprintf(prof_fp, ")");
+ } else
+ tree_eval(tree);
+ in_expr--;
+}
+
+#ifdef PROFILING
+/* just_dump --- dump the profile and function stack and keep going */
+
+static RETSIGTYPE
+just_dump(int signum)
+{
+ extern NODE *begin_block, *expression_value, *end_block;
+
+ dump_prog(begin_block, expression_value, end_block);
+ dump_funcs();
+ dump_fcall_stack(prof_fp);
+ fflush(prof_fp);
+ signal(signum, just_dump); /* for OLD Unix systems ... */
+}
+
+/* dump_and_exit --- dump the profile, the function stack, and exit */
+
+static RETSIGTYPE
+dump_and_exit(int signum)
+{
+ just_dump(signum);
+ exit(1);
+}
+#endif
diff --git a/profile_p.c b/profile_p.c
new file mode 100644
index 00000000..bfd58d37
--- /dev/null
+++ b/profile_p.c
@@ -0,0 +1,27 @@
+/*
+ * profile_p.c - compile profile.c with profiling turned on.
+ */
+
+/*
+ * Copyright (C) 2001 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Programming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+#define PROFILING 1
+#include "profile.c"
diff --git a/protos.h b/protos.h
index 3ed55c5e..02f1f3fd 100644
--- a/protos.h
+++ b/protos.h
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1991 - 2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1991 - 2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
diff --git a/random.c b/random.c
index 002b2265..ac7f217b 100644
--- a/random.c
+++ b/random.c
@@ -1,66 +1,125 @@
/*
- * Copyright (c) 1983 Regents of the University of California.
- * All rights reserved.
+ * Copyright (c) 1983, 1993
+ * The Regents of the University of California. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed by the University of
+ * California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ * may be used to endorse or promote products derived from this software
+ * without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * $FreeBSD: src/lib/libc/stdlib/random.c,v 1.13 2000/01/27 23:06:49 jasone Exp $
*
- * Redistribution and use in source and binary forms are permitted
- * provided that the above copyright notice and this paragraph are
- * duplicated in all such forms and that any documentation,
- * advertising materials, and other materials related to such
- * distribution and use acknowledge that the software was developed
- * by the University of California, Berkeley. The name of the
- * University may not be used to endorse or promote products derived
- * from this software without specific prior written permission.
- * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
- * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#if defined(LIBC_SCCS) && !defined(lint)
-static char sccsid[] = "@(#)random.c 5.5 (Berkeley) 7/6/88";
+static char sccsid[] = "@(#)random.c 8.2 (Berkeley) 5/19/95";
#endif /* LIBC_SCCS and not lint */
+#include "random.h" /* gawk addition */
+
+#if !defined (_MSC_VER) && !defined (__MINGW32__) && !defined (VMS)
+#include <sys/time.h> /* for srandomdev() */
+#else
+#include <time.h> /* for clock() */
+#define ssize_t size_t
+#endif /* !defined (_MSC_VER) && !defined (__MINGW32__) && !defined (VMS) */
+
#include <stdio.h>
-#include "random.h" /* GAWK ADDITION */
+
+/* For gawk, don't this, use the decl of random() in random.h */
+#if 0
+#include <stdlib.h>
+#endif
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h> /* for srandomdev() */
+#endif
+#ifdef HAVE_FCNTL_H
+#include <fcntl.h> /* for srandomdev() */
+#endif
/*
* random.c:
+ *
* An improved random number generation package. In addition to the standard
* rand()/srand() like interface, this package also has a special state info
* interface. The initstate() routine is called with a seed, an array of
- * bytes, and a count of how many bytes are being passed in; this array is then
- * initialized to contain information for random number generation with that
- * much state information. Good sizes for the amount of state information are
- * 32, 64, 128, and 256 bytes. The state can be switched by calling the
- * setstate() routine with the same array as was initiallized with initstate().
- * By default, the package runs with 128 bytes of state information and
- * generates far better random numbers than a linear congruential generator.
- * If the amount of state information is less than 32 bytes, a simple linear
- * congruential R.N.G. is used.
+ * bytes, and a count of how many bytes are being passed in; this array is
+ * then initialized to contain information for random number generation with
+ * that much state information. Good sizes for the amount of state
+ * information are 32, 64, 128, and 256 bytes. The state can be switched by
+ * calling the setstate() routine with the same array as was initiallized
+ * with initstate(). By default, the package runs with 128 bytes of state
+ * information and generates far better random numbers than a linear
+ * congruential generator. If the amount of state information is less than
+ * 32 bytes, a simple linear congruential R.N.G. is used.
+ *
* Internally, the state information is treated as an array of longs; the
* zeroeth element of the array is the type of R.N.G. being used (small
* integer); the remainder of the array is the state information for the
* R.N.G. Thus, 32 bytes of state information will give 7 longs worth of
- * state information, which will allow a degree seven polynomial. (Note: the
- * zeroeth word of state information also has some other information stored
- * in it -- see setstate() for details).
+ * state information, which will allow a degree seven polynomial. (Note:
+ * the zeroeth word of state information also has some other information
+ * stored in it -- see setstate() for details).
+ *
* The random number generation technique is a linear feedback shift register
* approach, employing trinomials (since there are fewer terms to sum up that
* way). In this approach, the least significant bit of all the numbers in
- * the state table will act as a linear feedback shift register, and will have
- * period 2^deg - 1 (where deg is the degree of the polynomial being used,
- * assuming that the polynomial is irreducible and primitive). The higher
- * order bits will have longer periods, since their values are also influenced
- * by pseudo-random carries out of the lower bits. The total period of the
- * generator is approximately deg*(2**deg - 1); thus doubling the amount of
- * state information has a vast influence on the period of the generator.
- * Note: the deg*(2**deg - 1) is an approximation only good for large deg,
- * when the period of the shift register is the dominant factor. With deg
- * equal to seven, the period is actually much longer than the 7*(2**7 - 1)
- * predicted by this formula.
+ * the state table will act as a linear feedback shift register, and will
+ * have period 2^deg - 1 (where deg is the degree of the polynomial being
+ * used, assuming that the polynomial is irreducible and primitive). The
+ * higher order bits will have longer periods, since their values are also
+ * influenced by pseudo-random carries out of the lower bits. The total
+ * period of the generator is approximately deg*(2**deg - 1); thus doubling
+ * the amount of state information has a vast influence on the period of the
+ * generator. Note: the deg*(2**deg - 1) is an approximation only good for
+ * large deg, when the period of the shift register is the dominant factor.
+ * With deg equal to seven, the period is actually much longer than the
+ * 7*(2**7 - 1) predicted by this formula.
+ *
+ * Modified 28 December 1994 by Jacob S. Rosenberg.
+ * The following changes have been made:
+ * All references to the type u_int have been changed to unsigned long.
+ * All references to type int have been changed to type long. Other
+ * cleanups have been made as well. A warning for both initstate and
+ * setstate has been inserted to the effect that on Sparc platforms
+ * the 'arg_state' variable must be forced to begin on word boundaries.
+ * This can be easily done by casting a long integer array to char *.
+ * The overall logic has been left STRICTLY alone. This software was
+ * tested on both a VAX and Sun SpacsStation with exactly the same
+ * results. The new version and the original give IDENTICAL results.
+ * The new version is somewhat faster than the original. As the
+ * documentation says: "By default, the package runs with 128 bytes of
+ * state information and generates far better random numbers than a linear
+ * congruential generator. If the amount of state information is less than
+ * 32 bytes, a simple linear congruential R.N.G. is used." For a buffer of
+ * 128 bytes, this new version runs about 19 percent faster and for a 16
+ * byte buffer it is about 5 percent faster.
*/
-
-
/*
* For each of the currently supported random number generators, we have a
* break value on the amount of state information (you need at least this
@@ -68,312 +127,398 @@ static char sccsid[] = "@(#)random.c 5.5 (Berkeley) 7/6/88";
* for the polynomial (actually a trinomial) that the R.N.G. is based on, and
* the separation between the two lower order coefficients of the trinomial.
*/
-
-#define TYPE_0 0 /* linear congruential */
-#define BREAK_0 8
-#define DEG_0 0
-#define SEP_0 0
-
-#define TYPE_1 1 /* x**7 + x**3 + 1 */
-#define BREAK_1 32
-#define DEG_1 7
-#define SEP_1 3
-
-#define TYPE_2 2 /* x**15 + x + 1 */
-#define BREAK_2 64
-#define DEG_2 15
-#define SEP_2 1
-
-#define TYPE_3 3 /* x**31 + x**3 + 1 */
-#define BREAK_3 128
-#define DEG_3 31
-#define SEP_3 3
-#ifdef _CRAY
-#define DEG_3_P1 32 /* bug - do addition here */
-#define SEP_3_P1 4 /* *_3 + 1 = _3_P1 */
-#endif
-
-#define TYPE_4 4 /* x**63 + x + 1 */
-#define BREAK_4 256
-#define DEG_4 63
-#define SEP_4 1
-
+#define TYPE_0 0 /* linear congruential */
+#define BREAK_0 8
+#define DEG_0 0
+#define SEP_0 0
+
+#define TYPE_1 1 /* x**7 + x**3 + 1 */
+#define BREAK_1 32
+#define DEG_1 7
+#define SEP_1 3
+
+#define TYPE_2 2 /* x**15 + x + 1 */
+#define BREAK_2 64
+#define DEG_2 15
+#define SEP_2 1
+
+#define TYPE_3 3 /* x**31 + x**3 + 1 */
+#define BREAK_3 128
+#define DEG_3 31
+#define SEP_3 3
+
+#define TYPE_4 4 /* x**63 + x + 1 */
+#define BREAK_4 256
+#define DEG_4 63
+#define SEP_4 1
/*
- * Array versions of the above information to make code run faster -- relies
- * on fact that TYPE_i == i.
+ * Array versions of the above information to make code run faster --
+ * relies on fact that TYPE_i == i.
*/
+#define MAX_TYPES 5 /* max number of types above */
-#define MAX_TYPES 5 /* max number of types above */
-
-static int degrees[ MAX_TYPES ] = { DEG_0, DEG_1, DEG_2,
- DEG_3, DEG_4 };
-
-static int seps[ MAX_TYPES ] = { SEP_0, SEP_1, SEP_2,
- SEP_3, SEP_4 };
-
-
+static long degrees[MAX_TYPES] = { DEG_0, DEG_1, DEG_2, DEG_3, DEG_4 };
+static long seps [MAX_TYPES] = { SEP_0, SEP_1, SEP_2, SEP_3, SEP_4 };
/*
- * Initially, everything is set up as if from :
- * initstate( 1, &randtbl, 128 );
+ * Initially, everything is set up as if from:
+ *
+ * initstate(1, randtbl, 128);
+ *
* Note that this initialization takes advantage of the fact that srandom()
* advances the front and rear pointers 10*rand_deg times, and hence the
* rear pointer which starts at 0 will also end up at zero; thus the zeroeth
* element of the state information, which contains info about the current
* position of the rear pointer is just
- * MAX_TYPES*(rptr - state) + TYPE_3 == TYPE_3.
+ *
+ * MAX_TYPES * (rptr - state) + TYPE_3 == TYPE_3.
*/
-static long randtbl[ DEG_3 + 1 ] = { TYPE_3,
- 0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342,
- 0xde3b81e0, 0xdf0a6fb5, 0xf103bc02, 0x48f340fb,
- 0x7449e56b, 0xbeb1dbb0, 0xab5c5918, 0x946554fd,
- 0x8c2e680f, 0xeb3d799f, 0xb11ee0b7, 0x2d436b86,
- 0xda672e2a, 0x1588ca88, 0xe369735d, 0x904f35f7,
- 0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc,
- 0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b,
- 0xf5ad9d0e, 0x8999220b, 0x27fb47b9 };
+static long randtbl[DEG_3 + 1] = {
+ TYPE_3,
+#ifdef USE_WEAK_SEEDING
+/* Historic implementation compatibility */
+/* The random sequences do not vary much with the seed */
+ 0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342, 0xde3b81e0, 0xdf0a6fb5,
+ 0xf103bc02, 0x48f340fb, 0x7449e56b, 0xbeb1dbb0, 0xab5c5918, 0x946554fd,
+ 0x8c2e680f, 0xeb3d799f, 0xb11ee0b7, 0x2d436b86, 0xda672e2a, 0x1588ca88,
+ 0xe369735d, 0x904f35f7, 0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc,
+ 0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b, 0xf5ad9d0e, 0x8999220b,
+ 0x27fb47b9,
+#else /* !USE_WEAK_SEEDING */
+ 0x991539b1, 0x16a5bce3, 0x6774a4cd, 0x3e01511e, 0x4e508aaa, 0x61048c05,
+ 0xf5500617, 0x846b7115, 0x6a19892c, 0x896a97af, 0xdb48f936, 0x14898454,
+ 0x37ffd106, 0xb58bff9c, 0x59e17104, 0xcf918a49, 0x09378c83, 0x52c7a471,
+ 0x8d293ea9, 0x1f4fc301, 0xc3db71be, 0x39b44e1c, 0xf8a44ef9, 0x4c8b80b1,
+ 0x19edc328, 0x87bf4bdd, 0xc9b240e5, 0xe9ee4b1b, 0x4382aee7, 0x535b6b41,
+ 0xf3bec5da
+#endif /* !USE_WEAK_SEEDING */
+};
/*
* fptr and rptr are two pointers into the state info, a front and a rear
- * pointer. These two pointers are always rand_sep places aparts, as they cycle
- * cyclically through the state information. (Yes, this does mean we could get
- * away with just one pointer, but the code for random() is more efficient this
- * way). The pointers are left positioned as they would be from the call
- * initstate( 1, randtbl, 128 )
+ * pointer. These two pointers are always rand_sep places aparts, as they
+ * cycle cyclically through the state information. (Yes, this does mean we
+ * could get away with just one pointer, but the code for random() is more
+ * efficient this way). The pointers are left positioned as they would be
+ * from the call
+ *
+ * initstate(1, randtbl, 128);
+ *
* (The position of the rear pointer, rptr, is really 0 (as explained above
* in the initialization of randtbl) because the state table pointer is set
* to point to randtbl[1] (as explained below).
*/
-
-#ifdef _CRAY
-static long *fptr = &randtbl[ SEP_3_P1 ];
-#else
-static long *fptr = &randtbl[ SEP_3 + 1 ];
-#endif
-static long *rptr = &randtbl[ 1 ];
-
-
+static long *fptr = &randtbl[SEP_3 + 1];
+static long *rptr = &randtbl[1];
/*
- * The following things are the pointer to the state information table,
- * the type of the current generator, the degree of the current polynomial
- * being used, and the separation between the two pointers.
- * Note that for efficiency of random(), we remember the first location of
- * the state information, not the zeroeth. Hence it is valid to access
- * state[-1], which is used to store the type of the R.N.G.
- * Also, we remember the last location, since this is more efficient than
- * indexing every time to find the address of the last element to see if
- * the front and rear pointers have wrapped.
+ * The following things are the pointer to the state information table, the
+ * type of the current generator, the degree of the current polynomial being
+ * used, and the separation between the two pointers. Note that for efficiency
+ * of random(), we remember the first location of the state information, not
+ * the zeroeth. Hence it is valid to access state[-1], which is used to
+ * store the type of the R.N.G. Also, we remember the last location, since
+ * this is more efficient than indexing every time to find the address of
+ * the last element to see if the front and rear pointers have wrapped.
*/
+static long *state = &randtbl[1];
+static long rand_type = TYPE_3;
+static long rand_deg = DEG_3;
+static long rand_sep = SEP_3;
+static long *end_ptr = &randtbl[DEG_3 + 1];
-static long *state = &randtbl[ 1 ];
-
-static int rand_type = TYPE_3;
-static int rand_deg = DEG_3;
-static int rand_sep = SEP_3;
-
-#ifdef _CRAY
-static long *end_ptr = &randtbl[ DEG_3_P1 ];
-#else
-static long *end_ptr = &randtbl[ DEG_3 + 1 ];
-#endif
-
+static long good_rand __P((long));
+static long good_rand (x)
+ register long x;
+{
+#ifdef USE_WEAK_SEEDING
+/*
+ * Historic implementation compatibility.
+ * The random sequences do not vary much with the seed,
+ * even with overflowing.
+ */
+ return (1103515245 * x + 12345);
+#else /* !USE_WEAK_SEEDING */
+/*
+ * Compute x = (7^5 * x) mod (2^31 - 1)
+ * wihout overflowing 31 bits:
+ * (2^31 - 1) = 127773 * (7^5) + 2836
+ * From "Random number generators: good ones are hard to find",
+ * Park and Miller, Communications of the ACM, vol. 31, no. 10,
+ * October 1988, p. 1195.
+ */
+ register long hi, lo;
+
+ hi = x / 127773;
+ lo = x % 127773;
+ x = 16807 * lo - 2836 * hi;
+ if (x <= 0)
+ x += 0x7fffffff;
+ return (x);
+#endif /* !USE_WEAK_SEEDING */
+}
/*
* srandom:
+ *
* Initialize the random number generator based on the given seed. If the
* type is the trivial no-state-information type, just remember the seed.
* Otherwise, initializes state[] based on the given "seed" via a linear
* congruential generator. Then, the pointers are set to known locations
* that are exactly rand_sep places apart. Lastly, it cycles the state
* information a given number of times to get rid of any initial dependencies
- * introduced by the L.C.R.N.G.
- * Note that the initialization of randtbl[] for default usage relies on
- * values produced by this routine.
+ * introduced by the L.C.R.N.G. Note that the initialization of randtbl[]
+ * for default usage relies on values produced by this routine.
*/
-
void
-srandom( x )
+srandom(x)
+ unsigned long x;
+{
+ register long i;
+
+ if (rand_type == TYPE_0)
+ state[0] = x;
+ else {
+ state[0] = x;
+ for (i = 1; i < rand_deg; i++)
+ state[i] = good_rand(state[i - 1]);
+ fptr = &state[rand_sep];
+ rptr = &state[0];
+ for (i = 0; i < 10 * rand_deg; i++)
+ (void)random();
+ }
+}
- unsigned x;
+/*
+ * srandomdev:
+ *
+ * Many programs choose the seed value in a totally predictable manner.
+ * This often causes problems. We seed the generator using the much more
+ * secure urandom(4) interface. Note that this particular seeding
+ * procedure can generate states which are impossible to reproduce by
+ * calling srandom() with any value, since the succeeding terms in the
+ * state buffer are no longer derived from the LC algorithm applied to
+ * a fixed seed.
+ */
+void
+srandomdev()
{
- register int i, j;
- long random();
+ int fd, done;
+ size_t len;
+
+ if (rand_type == TYPE_0)
+ len = sizeof state[0];
+ else
+ len = rand_deg * sizeof state[0];
+
+ done = 0;
+#ifdef O_RDONLY
+ fd = open("/dev/urandom", O_RDONLY, 0);
+ if (fd >= 0) {
+ if (read(fd, (void *) state, len) == (ssize_t) len)
+ done = 1;
+ close(fd);
+ }
+#endif /*O_RDONLY*/
+
+ if (!done) {
+ unsigned long junk;
+#if !defined (_MSC_VER) && !defined (__MINGW32__)
+ struct timeval tv;
- if( rand_type == TYPE_0 ) {
- state[ 0 ] = x;
+ gettimeofday(&tv, NULL);
+ srandom(getpid() ^ tv.tv_sec ^ tv.tv_usec ^ junk);
+#else
+ clock_t ret_clock_t = clock();
+ /*
+ * I don't like the idea of reading uninitialized memory
+ * even to generate a random number, but we do it anyway.
+ * SD.
+ */
+ srandom(getpid() ^ ret_clock_t ^ junk);
+#endif
+
+ return;
}
- else {
- j = 1;
- state[ 0 ] = x;
- for( i = 1; i < rand_deg; i++ ) {
- state[i] = 1103515245*state[i - 1] + 12345;
- }
- fptr = &state[ rand_sep ];
- rptr = &state[ 0 ];
- for( i = 0; i < 10*rand_deg; i++ ) random();
+
+ if (rand_type != TYPE_0) {
+ fptr = &state[rand_sep];
+ rptr = &state[0];
}
}
-
-
/*
* initstate:
- * Initialize the state information in the given array of n bytes for
- * future random number generation. Based on the number of bytes we
- * are given, and the break values for the different R.N.G.'s, we choose
- * the best (largest) one we can and set things up for it. srandom() is
- * then called to initialize the state information.
+ *
+ * Initialize the state information in the given array of n bytes for future
+ * random number generation. Based on the number of bytes we are given, and
+ * the break values for the different R.N.G.'s, we choose the best (largest)
+ * one we can and set things up for it. srandom() is then called to
+ * initialize the state information.
+ *
* Note that on return from srandom(), we set state[-1] to be the type
* multiplexed with the current value of the rear pointer; this is so
- * successive calls to initstate() won't lose this information and will
- * be able to restart with setstate().
+ * successive calls to initstate() won't lose this information and will be
+ * able to restart with setstate().
+ *
* Note: the first thing we do is save the current state, if any, just like
* setstate() so that it doesn't matter when initstate is called.
+ *
* Returns a pointer to the old state.
+ *
+ * Note: The Sparc platform requires that arg_state begin on a long
+ * word boundary; otherwise a bus error will occur. Even so, lint will
+ * complain about mis-alignment, but you should disregard these messages.
*/
-
-char *
-initstate( seed, arg_state, n )
-
- unsigned seed; /* seed for R. N. G. */
- char *arg_state; /* pointer to state array */
- int n; /* # bytes of state info */
+char *
+initstate(seed, arg_state, n)
+ unsigned long seed; /* seed for R.N.G. */
+ char *arg_state; /* pointer to state array */
+ long n; /* # bytes of state info */
{
- register char *ostate = (char *)( &state[ -1 ] );
-
- if( rand_type == TYPE_0 ) state[ -1 ] = rand_type;
- else state[ -1 ] = MAX_TYPES*(rptr - state) + rand_type;
- if( n < BREAK_1 ) {
- if( n < BREAK_0 ) {
- fprintf( stderr, "initstate: not enough state (%d bytes) with which to do jack; ignored.\n", n );
- return 0;
- }
- rand_type = TYPE_0;
- rand_deg = DEG_0;
- rand_sep = SEP_0;
+ register char *ostate = (char *)(&state[-1]);
+ register long *long_arg_state = (long *) arg_state;
+
+ if (rand_type == TYPE_0)
+ state[-1] = rand_type;
+ else
+ state[-1] = MAX_TYPES * (rptr - state) + rand_type;
+ if (n < BREAK_0) {
+ (void)fprintf(stderr,
+ "random: not enough state (%ld bytes); ignored.\n", n);
+ return(0);
}
- else {
- if( n < BREAK_2 ) {
+ if (n < BREAK_1) {
+ rand_type = TYPE_0;
+ rand_deg = DEG_0;
+ rand_sep = SEP_0;
+ } else if (n < BREAK_2) {
rand_type = TYPE_1;
rand_deg = DEG_1;
rand_sep = SEP_1;
- }
- else {
- if( n < BREAK_3 ) {
- rand_type = TYPE_2;
- rand_deg = DEG_2;
- rand_sep = SEP_2;
- }
- else {
- if( n < BREAK_4 ) {
- rand_type = TYPE_3;
- rand_deg = DEG_3;
- rand_sep = SEP_3;
- }
- else {
- rand_type = TYPE_4;
- rand_deg = DEG_4;
- rand_sep = SEP_4;
- }
- }
- }
+ } else if (n < BREAK_3) {
+ rand_type = TYPE_2;
+ rand_deg = DEG_2;
+ rand_sep = SEP_2;
+ } else if (n < BREAK_4) {
+ rand_type = TYPE_3;
+ rand_deg = DEG_3;
+ rand_sep = SEP_3;
+ } else {
+ rand_type = TYPE_4;
+ rand_deg = DEG_4;
+ rand_sep = SEP_4;
}
- state = &( ( (long *)arg_state )[1] ); /* first location */
- end_ptr = &state[ rand_deg ]; /* must set end_ptr before srandom */
- srandom( seed );
- if( rand_type == TYPE_0 ) state[ -1 ] = rand_type;
- else state[ -1 ] = MAX_TYPES*(rptr - state) + rand_type;
- return( ostate );
+ state = (long *) (long_arg_state + 1); /* first location */
+ end_ptr = &state[rand_deg]; /* must set end_ptr before srandom */
+ srandom(seed);
+ if (rand_type == TYPE_0)
+ long_arg_state[0] = rand_type;
+ else
+ long_arg_state[0] = MAX_TYPES * (rptr - state) + rand_type;
+ return(ostate);
}
-
-
/*
* setstate:
+ *
* Restore the state from the given state array.
+ *
* Note: it is important that we also remember the locations of the pointers
* in the current state information, and restore the locations of the pointers
* from the old state information. This is done by multiplexing the pointer
* location into the zeroeth word of the state information.
+ *
* Note that due to the order in which things are done, it is OK to call
* setstate() with the same state as the current state.
+ *
* Returns a pointer to the old state information.
+ *
+ * Note: The Sparc platform requires that arg_state begin on a long
+ * word boundary; otherwise a bus error will occur. Even so, lint will
+ * complain about mis-alignment, but you should disregard these messages.
*/
-
-char *
-setstate( arg_state )
-
- char *arg_state;
+char *
+setstate(arg_state)
+ char *arg_state; /* pointer to state array */
{
- register long *new_state = (long *)arg_state;
- register int type = new_state[0]%MAX_TYPES;
- register int rear = new_state[0]/MAX_TYPES;
- char *ostate = (char *)( &state[ -1 ] );
-
- if( rand_type == TYPE_0 ) state[ -1 ] = rand_type;
- else state[ -1 ] = MAX_TYPES*(rptr - state) + rand_type;
- switch( type ) {
- case TYPE_0:
- case TYPE_1:
- case TYPE_2:
- case TYPE_3:
- case TYPE_4:
+ register long *new_state = (long *) arg_state;
+ register long type = new_state[0] % MAX_TYPES;
+ register long rear = new_state[0] / MAX_TYPES;
+ char *ostate = (char *)(&state[-1]);
+
+ if (rand_type == TYPE_0)
+ state[-1] = rand_type;
+ else
+ state[-1] = MAX_TYPES * (rptr - state) + rand_type;
+ switch(type) {
+ case TYPE_0:
+ case TYPE_1:
+ case TYPE_2:
+ case TYPE_3:
+ case TYPE_4:
rand_type = type;
- rand_deg = degrees[ type ];
- rand_sep = seps[ type ];
+ rand_deg = degrees[type];
+ rand_sep = seps[type];
break;
-
- default:
- fprintf( stderr, "setstate: state info has been munged; not changed.\n" );
+ default:
+ (void)fprintf(stderr,
+ "random: state info corrupted; not changed.\n");
}
- state = &new_state[ 1 ];
- if( rand_type != TYPE_0 ) {
- rptr = &state[ rear ];
- fptr = &state[ (rear + rand_sep)%rand_deg ];
+ state = (long *) (new_state + 1);
+ if (rand_type != TYPE_0) {
+ rptr = &state[rear];
+ fptr = &state[(rear + rand_sep) % rand_deg];
}
- end_ptr = &state[ rand_deg ]; /* set end_ptr too */
- return( ostate );
+ end_ptr = &state[rand_deg]; /* set end_ptr too */
+ return(ostate);
}
-
-
/*
* random:
+ *
* If we are using the trivial TYPE_0 R.N.G., just do the old linear
- * congruential bit. Otherwise, we do our fancy trinomial stuff, which is the
- * same in all ther other cases due to all the global variables that have been
- * set up. The basic operation is to add the number at the rear pointer into
- * the one at the front pointer. Then both pointers are advanced to the next
- * location cyclically in the table. The value returned is the sum generated,
- * reduced to 31 bits by throwing away the "least random" low bit.
+ * congruential bit. Otherwise, we do our fancy trinomial stuff, which is
+ * the same in all the other cases due to all the global variables that have
+ * been set up. The basic operation is to add the number at the rear pointer
+ * into the one at the front pointer. Then both pointers are advanced to
+ * the next location cyclically in the table. The value returned is the sum
+ * generated, reduced to 31 bits by throwing away the "least random" low bit.
+ *
* Note: the code takes advantage of the fact that both the front and
* rear pointers can't wrap on the same call by not testing the rear
* pointer if the front one has wrapped.
+ *
* Returns a 31-bit random number.
*/
-
long
random()
{
- long i;
+ register long i;
+ register long *f, *r;
+
+ if (rand_type == TYPE_0) {
+ i = state[0];
+ state[0] = i = (good_rand(i)) & 0x7fffffff;
+ } else {
+ /*
+ * Use local variables rather than static variables for speed.
+ */
+ f = fptr; r = rptr;
+ *f += *r;
+ i = (*f >> 1) & 0x7fffffff; /* chucking least random bit */
+ if (++f >= end_ptr) {
+ f = state;
+ ++r;
+ }
+ else if (++r >= end_ptr) {
+ r = state;
+ }
- if( rand_type == TYPE_0 ) {
- i = state[0] = ( state[0]*1103515245 + 12345 )&0x7fffffff;
- }
- else {
- *fptr += *rptr;
- i = (*fptr >> 1)&0x7fffffff; /* chucking least random bit */
- if( ++fptr >= end_ptr ) {
- fptr = state;
- ++rptr;
- }
- else {
- if( ++rptr >= end_ptr ) rptr = state;
- }
+ fptr = f; rptr = r;
}
- return( i );
+ return(i);
}
diff --git a/random.h b/random.h
index 7fd0ff9b..fe329a27 100644
--- a/random.h
+++ b/random.h
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1996 the Free Software Foundation, Inc.
+ * Copyright (C) 1996, 2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -23,7 +23,20 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
#define initstate gawk_initstate
#define setstate gawk_setstate
#define random gawk_random
#define srandom gawk_srandom
+
+#ifdef __STDC__
+#undef __P
+#define __P(s) s
+#else
+#define __P(s) ()
+#endif
+
+extern long random();
diff --git a/re.c b/re.c
index 4c21af78..2ee9e6d9 100644
--- a/re.c
+++ b/re.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1991-2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -30,11 +30,7 @@ static reg_syntax_t syn;
/* make_regexp --- generate compiled regular expressions */
Regexp *
-make_regexp(s, len, ignorecase, dfa)
-char *s;
-size_t len;
-int ignorecase;
-int dfa;
+make_regexp(char *s, size_t len, int ignorecase, int dfa)
{
Regexp *rp;
const char *rerr;
@@ -82,7 +78,7 @@ int dfa;
* literally in re's, so escape regexp
* metacharacters.
*/
- if (do_traditional && ! do_posix && (isdigit(c) || c == 'x')
+ if (do_traditional && ! do_posix && (ISDIGIT(c) || c == 'x')
&& strchr("()|*+?.^$\\[]", c2) != NULL)
*dest++ = '\\';
*dest++ = (char) c2;
@@ -123,7 +119,7 @@ int dfa;
rp->pat.translate = NULL;
len = dest - temp;
if ((rerr = re_compile_pattern(temp, len, &(rp->pat))) != NULL)
- fatal("%s: /%s/", rerr, temp);
+ fatal("%s: /%s/", gettext(rerr), temp);
/* gack. this must be done *after* re_compile_pattern */
rp->pat.newline_anchor = FALSE; /* don't get \n in middle of string */
@@ -140,12 +136,8 @@ int dfa;
/* research --- do a regexp search. use dfa if possible */
int
-research(rp, str, start, len, need_start)
-Regexp *rp;
-register char *str;
-int start;
-register size_t len;
-int need_start;
+research(Regexp *rp, register char *str, int start,
+ register size_t len, int need_start)
{
char *ret = str;
int try_backref;
@@ -169,13 +161,9 @@ int need_start;
}
if (ret) {
if (need_start || rp->dfa == FALSE || try_backref) {
- int result = re_search(&(rp->pat), str, start+len,
+ int res = re_search(&(rp->pat), str, start+len,
start, len, &(rp->regs));
- /* recover any space from C based alloca */
-#ifdef C_ALLOCA
- (void) alloca(0);
-#endif
- return result;
+ return res;
} else
return 1;
} else
@@ -185,8 +173,7 @@ int need_start;
/* refree --- free up the dynamic memory used by a compiled regexp */
void
-refree(rp)
-Regexp *rp;
+refree(Regexp *rp)
{
free(rp->pat.buffer);
free(rp->pat.fastmap);
@@ -202,8 +189,7 @@ Regexp *rp;
/* dfaerror --- print an error message for the dfa routines */
void
-dfaerror(s)
-const char *s;
+dfaerror(const char *s)
{
fatal("%s", s);
}
@@ -211,8 +197,7 @@ const char *s;
/* re_update --- recompile a dynamic regexp */
Regexp *
-re_update(t)
-NODE *t;
+re_update(NODE *t)
{
NODE *t1;
@@ -238,6 +223,7 @@ NODE *t;
t->re_cnt = 0;
if (t->re_text == NULL || (t->re_flags & CASE) != IGNORECASE) {
t1 = force_string(tree_eval(t->re_exp));
+ unref(t->re_text);
t->re_text = dupnode(t1);
free_temp(t1);
}
@@ -268,16 +254,13 @@ resetup()
syn |= RE_INTERVALS;
(void) re_set_syntax(syn);
- dfasyntax(syn, FALSE);
+ dfasyntax(syn, FALSE, '\n');
}
/* avoid_dfa --- FIXME: temporary kludge function until we have a new dfa.c */
int
-avoid_dfa(re, str, len)
-NODE *re;
-char *str;
-size_t len;
+avoid_dfa(NODE *re, char *str, size_t len)
{
char *restr;
int relen;
@@ -307,3 +290,33 @@ size_t len;
return FALSE;
}
+
+/* reisstring --- return TRUE if the RE match is a simple string match */
+
+int
+reisstring(char *text, size_t len, Regexp *re, char *buf)
+{
+ static char metas[] = ".*+(){}[]|?^$\\";
+ int i;
+ int has_meta = FALSE;
+ int res;
+ char *matched;
+
+ /* simple checking for has meta characters in re */
+ for (i = 0; i < len; i++) {
+ if (strchr(metas, text[i]) != NULL) {
+ has_meta = TRUE;
+ break;
+ }
+ }
+
+ /* make accessable to gdb */
+ matched = &buf[RESTART(re, buf)];
+
+ if (has_meta)
+ return FALSE; /* give up early, can't be string match */
+
+ res = STREQN(text, matched, len);
+
+ return res;
+}
diff --git a/regex.c b/regex.c
index 8c7f4fe2..1da69e2c 100644
--- a/regex.c
+++ b/regex.c
@@ -2,8 +2,7 @@
version 0.12.
(Implements POSIX draft P1003.2/D11.2, except for some of the
internationalization features.)
-
- Copyright (C) 1993,1994,1995,1996,1997,1999,2000 Free Software Foundation, Inc.
+ Copyright (C) 1993, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -20,7 +19,7 @@
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* AIX requires this to be the first thing in the file. */
-#if defined (_AIX) && !defined (REGEX_MALLOC)
+#if defined _AIX && !defined REGEX_MALLOC
#pragma alloca
#endif
@@ -28,25 +27,61 @@
#define _GNU_SOURCE
#ifdef HAVE_CONFIG_H
-#include <config.h>
+# include <config.h>
#endif
-#if defined(STDC_HEADERS) && !defined(emacs)
-#include <stddef.h>
+#ifndef PARAMS
+# if defined __GNUC__ || (defined __STDC__ && __STDC__)
+# define PARAMS(args) args
+# else
+# define PARAMS(args) ()
+# endif /* GCC. */
+#endif /* Not PARAMS. */
+
+#if defined STDC_HEADERS && !defined emacs
+# include <stddef.h>
#else
/* We need this for `regex.h', and perhaps for the Emacs include files. */
-#include <sys/types.h>
+# include <sys/types.h>
#endif
+#define WIDE_CHAR_SUPPORT (HAVE_WCTYPE_H && HAVE_WCHAR_H && HAVE_BTOWC)
+
/* For platform which support the ISO C amendement 1 functionality we
support user defined character classes. */
-#if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
-# include <wctype.h>
+#if defined _LIBC || WIDE_CHAR_SUPPORT
+/* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
# include <wchar.h>
+# include <wctype.h>
+#endif
+
+#ifdef _LIBC
+/* We have to keep the namespace clean. */
+# define regfree(preg) __regfree (preg)
+# define regexec(pr, st, nm, pm, ef) __regexec (pr, st, nm, pm, ef)
+# define regcomp(preg, pattern, cflags) __regcomp (preg, pattern, cflags)
+# define regerror(errcode, preg, errbuf, errbuf_size) \
+ __regerror(errcode, preg, errbuf, errbuf_size)
+# define re_set_registers(bu, re, nu, st, en) \
+ __re_set_registers (bu, re, nu, st, en)
+# define re_match_2(bufp, string1, size1, string2, size2, pos, regs, stop) \
+ __re_match_2 (bufp, string1, size1, string2, size2, pos, regs, stop)
+# define re_match(bufp, string, size, pos, regs) \
+ __re_match (bufp, string, size, pos, regs)
+# define re_search(bufp, string, size, startpos, range, regs) \
+ __re_search (bufp, string, size, startpos, range, regs)
+# define re_compile_pattern(pattern, length, bufp) \
+ __re_compile_pattern (pattern, length, bufp)
+# define re_set_syntax(syntax) __re_set_syntax (syntax)
+# define re_search_2(bufp, st1, s1, st2, s2, startpos, range, regs, stop) \
+ __re_search_2 (bufp, st1, s1, st2, s2, startpos, range, regs, stop)
+# define re_compile_fastmap(bufp) __re_compile_fastmap (bufp)
+
+#define btowc __btowc
#endif
/* This is for other GNU distributions with internationalized messages. */
-#if HAVE_LIBINTL_H || defined (_LIBC)
+#if HAVE_LIBINTL_H || defined _LIBC
# include <libintl.h>
#else
# define gettext(msgid) (msgid)
@@ -55,79 +90,83 @@
#ifndef gettext_noop
/* This define is so xgettext can find the internationalizable
strings. */
-#define gettext_noop(String) String
+# define gettext_noop(String) String
#endif
/* The `emacs' switch turns on certain matching commands
that make sense only in Emacs. */
#ifdef emacs
-#include "lisp.h"
-#include "buffer.h"
-#include "syntax.h"
+# include "lisp.h"
+# include "buffer.h"
+# include "syntax.h"
#else /* not emacs */
/* If we are not linking with Emacs proper,
we can't use the relocating allocator
even if config.h says that we can. */
-#undef REL_ALLOC
+# undef REL_ALLOC
-#if defined (STDC_HEADERS) || defined (_LIBC)
-#include <stdlib.h>
-#else
+# if defined STDC_HEADERS || defined _LIBC
+# include <stdlib.h>
+# else
char *malloc ();
char *realloc ();
-#endif
+# endif
/* When used in Emacs's lib-src, we need to get bzero and bcopy somehow.
If nothing else has been done, use the method below. */
-#ifdef INHIBIT_STRING_HEADER
-#if !(defined (HAVE_BZERO) && defined (HAVE_BCOPY))
-#if !defined (bzero) && !defined (bcopy)
-#undef INHIBIT_STRING_HEADER
-#endif
-#endif
-#endif
+# ifdef INHIBIT_STRING_HEADER
+# if !(defined HAVE_BZERO && defined HAVE_BCOPY)
+# if !defined bzero && !defined bcopy
+# undef INHIBIT_STRING_HEADER
+# endif
+# endif
+# endif
/* This is the normal way of making sure we have a bcopy and a bzero.
This is used in most programs--a few other programs avoid this
by defining INHIBIT_STRING_HEADER. */
-#ifndef INHIBIT_STRING_HEADER
-#if defined (HAVE_STRING_H) || defined (STDC_HEADERS) || defined (_LIBC)
-#include <string.h>
-#ifndef bcmp
-#define bcmp(s1, s2, n) memcmp ((s1), (s2), (n))
-#endif
-#ifndef bcopy
-#define bcopy(s, d, n) memcpy ((d), (s), (n))
-#endif
-#ifndef bzero
-#define bzero(s, n) memset ((s), 0, (n))
-#endif
-#else
-#include <strings.h>
-#endif
-#endif
+# ifndef INHIBIT_STRING_HEADER
+# if defined HAVE_STRING_H || defined STDC_HEADERS || defined _LIBC
+# include <string.h>
+# ifndef bzero
+# ifndef _LIBC
+# define bzero(s, n) (memset (s, '\0', n), (s))
+# else
+# define bzero(s, n) __bzero (s, n)
+# endif
+# endif
+# else
+# include <strings.h>
+# ifndef memcmp
+# define memcmp(s1, s2, n) bcmp (s1, s2, n)
+# endif
+# ifndef memcpy
+# define memcpy(d, s, n) (bcopy (s, d, n), (d))
+# endif
+# endif
+# endif
/* Define the syntax stuff for \<, \>, etc. */
/* This must be nonzero for the wordchar and notwordchar pattern
commands in re_match_2. */
-#ifndef Sword
-#define Sword 1
-#endif
+# ifndef Sword
+# define Sword 1
+# endif
-#ifdef SWITCH_ENUM_BUG
-#define SWITCH_ENUM_CAST(x) ((int)(x))
-#else
-#define SWITCH_ENUM_CAST(x) (x)
-#endif
+# ifdef SWITCH_ENUM_BUG
+# define SWITCH_ENUM_CAST(x) ((int)(x))
+# else
+# define SWITCH_ENUM_CAST(x) (x)
+# endif
#endif /* not emacs */
/* Get the interface, including the syntax bits. */
-#include "regex.h"
+#include <regex.h>
/* isalpha etc. are used for the character classes. */
#include <ctype.h>
@@ -141,25 +180,28 @@ char *realloc ();
STDC_HEADERS is defined, then autoconf has verified that the ctype
macros don't need to be guarded with references to isascii. ...
Defining isascii to 1 should let any compiler worth its salt
- eliminate the && through constant folding." */
+ eliminate the && through constant folding."
+ Solaris defines some of these symbols so we must undefine them first. */
-#if defined (STDC_HEADERS) || (!defined (isascii) && !defined (HAVE_ISASCII))
-#define ISASCII(c) 1
+#undef ISASCII
+#if defined STDC_HEADERS || (!defined isascii && !defined HAVE_ISASCII)
+# define ISASCII(c) 1
#else
-#define ISASCII(c) isascii(c)
+# define ISASCII(c) isascii(c)
#endif
#ifdef isblank
-#define ISBLANK(c) (ISASCII (c) && isblank (c))
+# define ISBLANK(c) (ISASCII (c) && isblank (c))
#else
-#define ISBLANK(c) ((c) == ' ' || (c) == '\t')
+# define ISBLANK(c) ((c) == ' ' || (c) == '\t')
#endif
#ifdef isgraph
-#define ISGRAPH(c) (ISASCII (c) && isgraph (c))
+# define ISGRAPH(c) (ISASCII (c) && isgraph (c))
#else
-#define ISGRAPH(c) (ISASCII (c) && isprint (c) && !isspace (c))
+# define ISGRAPH(c) (ISASCII (c) && isprint (c) && !isspace (c))
#endif
+#undef ISPRINT
#define ISPRINT(c) (ISASCII (c) && isprint (c))
#define ISDIGIT(c) (ISASCII (c) && isdigit (c))
#define ISALNUM(c) (ISASCII (c) && isalnum (c))
@@ -171,8 +213,14 @@ char *realloc ();
#define ISUPPER(c) (ISASCII (c) && isupper (c))
#define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
+#ifdef _tolower
+# define TOLOWER(c) _tolower(c)
+#else
+# define TOLOWER(c) tolower(c)
+#endif
+
#ifndef NULL
-#define NULL (void *)0
+# define NULL (void *)0
#endif
/* We remove any previous definition of `SIGN_EXTEND_CHAR',
@@ -181,10 +229,10 @@ char *realloc ();
(Per Bothner suggested the basic approach.) */
#undef SIGN_EXTEND_CHAR
#if __STDC__
-#define SIGN_EXTEND_CHAR(c) ((signed char) (c))
+# define SIGN_EXTEND_CHAR(c) ((signed char) (c))
#else /* not __STDC__ */
/* As in Harbison and Steele. */
-#define SIGN_EXTEND_CHAR(c) ((((unsigned char) (c)) ^ 128) - 128)
+# define SIGN_EXTEND_CHAR(c) ((((unsigned char) (c)) ^ 128) - 128)
#endif
#ifndef emacs
@@ -236,74 +284,67 @@ init_syntax_once ()
#ifdef REGEX_MALLOC
-#define REGEX_ALLOCATE malloc
-#define REGEX_REALLOCATE(source, osize, nsize) realloc (source, nsize)
-#define REGEX_FREE free
+# define REGEX_ALLOCATE malloc
+# define REGEX_REALLOCATE(source, osize, nsize) realloc (source, nsize)
+# define REGEX_FREE free
#else /* not REGEX_MALLOC */
/* Emacs already defines alloca, sometimes. */
-#ifndef alloca
+# ifndef alloca
/* Make alloca work the best possible way. */
-#ifdef __GNUC__
-#define alloca __builtin_alloca
-#else /* not __GNUC__ */
-#if HAVE_ALLOCA_H
-#include <alloca.h>
-#else /* not __GNUC__ or HAVE_ALLOCA_H */
-#if 0 /* It is a bad idea to declare alloca. We always cast the result. */
-#ifndef _AIX /* Already did AIX, up at the top. */
-char *alloca ();
-#endif /* not _AIX */
-#endif
-#endif /* not HAVE_ALLOCA_H */
-#endif /* not __GNUC__ */
+# ifdef __GNUC__
+# define alloca __builtin_alloca
+# else /* not __GNUC__ */
+# if HAVE_ALLOCA_H
+# include <alloca.h>
+# endif /* HAVE_ALLOCA_H */
+# endif /* not __GNUC__ */
-#endif /* not alloca */
+# endif /* not alloca */
-#define REGEX_ALLOCATE alloca
+# define REGEX_ALLOCATE alloca
/* Assumes a `char *destination' variable. */
-#define REGEX_REALLOCATE(source, osize, nsize) \
+# define REGEX_REALLOCATE(source, osize, nsize) \
(destination = (char *) alloca (nsize), \
- bcopy (source, destination, osize), \
- destination)
+ memcpy (destination, source, osize))
/* No need to do anything to free, after alloca. */
-#define REGEX_FREE(arg) ((void)0) /* Do nothing! But inhibit gcc warning. */
+# define REGEX_FREE(arg) ((void)0) /* Do nothing! But inhibit gcc warning. */
#endif /* not REGEX_MALLOC */
/* Define how to allocate the failure stack. */
-#if defined (REL_ALLOC) && defined (REGEX_MALLOC)
+#if defined REL_ALLOC && defined REGEX_MALLOC
-#define REGEX_ALLOCATE_STACK(size) \
+# define REGEX_ALLOCATE_STACK(size) \
r_alloc (&failure_stack_ptr, (size))
-#define REGEX_REALLOCATE_STACK(source, osize, nsize) \
+# define REGEX_REALLOCATE_STACK(source, osize, nsize) \
r_re_alloc (&failure_stack_ptr, (nsize))
-#define REGEX_FREE_STACK(ptr) \
+# define REGEX_FREE_STACK(ptr) \
r_alloc_free (&failure_stack_ptr)
#else /* not using relocating allocator */
-#ifdef REGEX_MALLOC
+# ifdef REGEX_MALLOC
-#define REGEX_ALLOCATE_STACK malloc
-#define REGEX_REALLOCATE_STACK(source, osize, nsize) realloc (source, nsize)
-#define REGEX_FREE_STACK free
+# define REGEX_ALLOCATE_STACK malloc
+# define REGEX_REALLOCATE_STACK(source, osize, nsize) realloc (source, nsize)
+# define REGEX_FREE_STACK free
-#else /* not REGEX_MALLOC */
+# else /* not REGEX_MALLOC */
-#define REGEX_ALLOCATE_STACK alloca
+# define REGEX_ALLOCATE_STACK alloca
-#define REGEX_REALLOCATE_STACK(source, osize, nsize) \
+# define REGEX_REALLOCATE_STACK(source, osize, nsize) \
REGEX_REALLOCATE (source, osize, nsize)
/* No need to explicitly free anything. */
-#define REGEX_FREE_STACK(arg)
+# define REGEX_FREE_STACK(arg)
-#endif /* not REGEX_MALLOC */
+# endif /* not REGEX_MALLOC */
#endif /* not using relocating allocator */
@@ -333,7 +374,12 @@ typedef char boolean;
#define false 0
#define true 1
-static int re_match_2_internal ();
+static int re_match_2_internal PARAMS ((struct re_pattern_buffer *bufp,
+ const char *string1, int size1,
+ const char *string2, int size2,
+ int pos,
+ struct re_registers *regs,
+ int stop));
/* These are the command codes that appear in compiled regular
expressions. Some opcodes are followed by argument bytes. A
@@ -515,10 +561,10 @@ extract_number (dest, source)
*dest += temp << 8;
}
-#ifndef EXTRACT_MACROS /* To debug the macros. */
-#undef EXTRACT_NUMBER
-#define EXTRACT_NUMBER(dest, src) extract_number (&dest, src)
-#endif /* not EXTRACT_MACROS */
+# ifndef EXTRACT_MACROS /* To debug the macros. */
+# undef EXTRACT_NUMBER
+# define EXTRACT_NUMBER(dest, src) extract_number (&dest, src)
+# endif /* not EXTRACT_MACROS */
#endif /* DEBUG */
@@ -543,11 +589,11 @@ extract_number_and_incr (destination, source)
*source += 2;
}
-#ifndef EXTRACT_MACROS
-#undef EXTRACT_NUMBER_AND_INCR
-#define EXTRACT_NUMBER_AND_INCR(dest, src) \
+# ifndef EXTRACT_MACROS
+# undef EXTRACT_NUMBER_AND_INCR
+# define EXTRACT_NUMBER_AND_INCR(dest, src) \
extract_number_and_incr (&dest, &src)
-#endif /* not EXTRACT_MACROS */
+# endif /* not EXTRACT_MACROS */
#endif /* DEBUG */
@@ -560,21 +606,21 @@ extract_number_and_incr (destination, source)
#ifdef DEBUG
/* We use standard I/O for debugging. */
-#include <stdio.h>
+# include <stdio.h>
/* It is useful to test things that ``must'' be true when debugging. */
-#include <assert.h>
+# include <assert.h>
-static int debug = 0;
+static int debug;
-#define DEBUG_STATEMENT(e) e
-#define DEBUG_PRINT1(x) if (debug) printf (x)
-#define DEBUG_PRINT2(x1, x2) if (debug) printf (x1, x2)
-#define DEBUG_PRINT3(x1, x2, x3) if (debug) printf (x1, x2, x3)
-#define DEBUG_PRINT4(x1, x2, x3, x4) if (debug) printf (x1, x2, x3, x4)
-#define DEBUG_PRINT_COMPILED_PATTERN(p, s, e) \
+# define DEBUG_STATEMENT(e) e
+# define DEBUG_PRINT1(x) if (debug) printf (x)
+# define DEBUG_PRINT2(x1, x2) if (debug) printf (x1, x2)
+# define DEBUG_PRINT3(x1, x2, x3) if (debug) printf (x1, x2, x3)
+# define DEBUG_PRINT4(x1, x2, x3, x4) if (debug) printf (x1, x2, x3, x4)
+# define DEBUG_PRINT_COMPILED_PATTERN(p, s, e) \
if (debug) print_partial_compiled_pattern (s, e)
-#define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2) \
+# define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2) \
if (debug) print_double_string (w, s1, sz1, s2, sz2)
@@ -794,7 +840,7 @@ print_partial_compiled_pattern (start, end)
case wordend:
printf ("/wordend");
-#ifdef emacs
+# ifdef emacs
case before_dot:
printf ("/before_dot");
break;
@@ -818,7 +864,7 @@ print_partial_compiled_pattern (start, end)
mcnt = *p++;
printf ("/%d", mcnt);
break;
-#endif /* emacs */
+# endif /* emacs */
case wordchar:
printf ("/wordchar");
@@ -911,16 +957,16 @@ printchar (c)
#else /* not DEBUG */
-#undef assert
-#define assert(e)
+# undef assert
+# define assert(e)
-#define DEBUG_STATEMENT(e)
-#define DEBUG_PRINT1(x)
-#define DEBUG_PRINT2(x1, x2)
-#define DEBUG_PRINT3(x1, x2, x3)
-#define DEBUG_PRINT4(x1, x2, x3, x4)
-#define DEBUG_PRINT_COMPILED_PATTERN(p, s, e)
-#define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2)
+# define DEBUG_STATEMENT(e)
+# define DEBUG_PRINT1(x)
+# define DEBUG_PRINT2(x1, x2)
+# define DEBUG_PRINT3(x1, x2, x3)
+# define DEBUG_PRINT4(x1, x2, x3, x4)
+# define DEBUG_PRINT_COMPILED_PATTERN(p, s, e)
+# define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2)
#endif /* not DEBUG */
@@ -929,7 +975,8 @@ printchar (c)
syntax, so it can be changed between regex compilations. */
/* This has no initializer because initialized variables in Emacs
become read-only after dumping. */
-reg_syntax_t re_syntax_options;
+reg_syntax_t re_syntax_options = 0; /* Gawk: initialize to force this one,
+ not the one in the C library. */
/* Specify the precise syntax of regexps for compilation. This provides
@@ -954,12 +1001,17 @@ re_set_syntax (syntax)
#endif /* DEBUG */
return ret;
}
+#ifdef _LIBC
+weak_alias (__re_set_syntax, re_set_syntax)
+#endif
/* This table gives an error message for each of the error codes listed
in regex.h. Obviously the order here has to be same as there.
POSIX doesn't require that we do anything for REG_NOERROR,
but why not be nice? */
+/* Gawk: 12 Dec 2000 --- revert to array of char * for use with K&R Compilers. */
+
static const char *re_error_msgid[] =
{
gettext_noop ("Success"), /* REG_NOERROR */
@@ -1006,7 +1058,7 @@ static const char *re_error_msgid[] =
/* When using GNU C, we are not REALLY using the C alloca, no matter
what config.h may say. So don't take precautions for it. */
#ifdef __GNUC__
-#undef C_ALLOCA
+# undef C_ALLOCA
#endif
/* The match routines may not allocate if (1) they would do it with malloc
@@ -1014,8 +1066,8 @@ static const char *re_error_msgid[] =
Note that if REL_ALLOC is defined, matching would not use malloc for the
failure stack, but we would still use it for the register vectors;
so REL_ALLOC should not affect this. */
-#if (defined (C_ALLOCA) || defined (REGEX_MALLOC)) && defined (emacs)
-#undef MATCH_MAY_ALLOCATE
+#if (defined C_ALLOCA || defined REGEX_MALLOC) && defined emacs
+# undef MATCH_MAY_ALLOCATE
#endif
@@ -1028,7 +1080,7 @@ static const char *re_error_msgid[] =
when matching. If this number is exceeded, we allocate more
space, so it is not a hard limit. */
#ifndef INIT_FAILURE_ALLOC
-#define INIT_FAILURE_ALLOC 5
+# define INIT_FAILURE_ALLOC 5
#endif
/* Roughly the maximum number of failure points on the stack. Would be
@@ -1038,13 +1090,13 @@ static const char *re_error_msgid[] =
#ifdef INT_IS_16BIT
-#if defined (MATCH_MAY_ALLOCATE)
+# if defined MATCH_MAY_ALLOCATE
/* 4400 was enough to cause a crash on Alpha OSF/1,
whose default stack limit is 2mb. */
long int re_max_failures = 4000;
-#else
+# else
long int re_max_failures = 2000;
-#endif
+# endif
union fail_stack_elt
{
@@ -1063,13 +1115,13 @@ typedef struct
#else /* not INT_IS_16BIT */
-#if defined (MATCH_MAY_ALLOCATE)
+# if defined MATCH_MAY_ALLOCATE
/* 4400 was enough to cause a crash on Alpha OSF/1,
whose default stack limit is 2mb. */
int re_max_failures = 20000;
-#else
+# else
int re_max_failures = 2000;
-#endif
+# endif
union fail_stack_elt
{
@@ -1097,10 +1149,10 @@ typedef struct
Do `return -2' if the alloc fails. */
#ifdef MATCH_MAY_ALLOCATE
-#define INIT_FAIL_STACK() \
+# define INIT_FAIL_STACK() \
do { \
fail_stack.stack = (fail_stack_elt_t *) \
- REGEX_ALLOCATE_STACK (INIT_FAILURE_ALLOC * sizeof (fail_stack_elt_t)); \
+ REGEX_ALLOCATE_STACK (INIT_FAILURE_ALLOC * sizeof (fail_stack_elt_t)); \
\
if (fail_stack.stack == NULL) \
return -2; \
@@ -1109,14 +1161,14 @@ typedef struct
fail_stack.avail = 0; \
} while (0)
-#define RESET_FAIL_STACK() REGEX_FREE_STACK (fail_stack.stack)
+# define RESET_FAIL_STACK() REGEX_FREE_STACK (fail_stack.stack)
#else
-#define INIT_FAIL_STACK() \
+# define INIT_FAIL_STACK() \
do { \
fail_stack.avail = 0; \
} while (0)
-#define RESET_FAIL_STACK()
+# define RESET_FAIL_STACK()
#endif
@@ -1177,11 +1229,11 @@ typedef struct
/* Used to omit pushing failure point id's when we're not debugging. */
#ifdef DEBUG
-#define DEBUG_PUSH PUSH_FAILURE_INT
-#define DEBUG_POP(item_addr) (item_addr)->integer = POP_FAILURE_INT ()
+# define DEBUG_PUSH PUSH_FAILURE_INT
+# define DEBUG_POP(item_addr) *(item_addr) = POP_FAILURE_INT ()
#else
-#define DEBUG_PUSH(item)
-#define DEBUG_POP(item_addr)
+# define DEBUG_PUSH(item)
+# define DEBUG_POP(item_addr)
#endif
@@ -1189,8 +1241,8 @@ typedef struct
if we ever fail back to it.
Requires variables fail_stack, regstart, regend, reg_info, and
- num_regs be declared. DOUBLE_FAIL_STACK requires `destination' be
- declared.
+ num_regs_pushed be declared. DOUBLE_FAIL_STACK requires `destination'
+ be declared.
Does `return FAILURE_CODE' if runs out of memory. */
@@ -1202,7 +1254,7 @@ typedef struct
/* Can't be int, since there is not a shred of a guarantee that int \
is wide enough to hold a value of something to which pointer can \
be assigned */ \
- s_reg_t this_reg; \
+ active_reg_t this_reg; \
\
DEBUG_STATEMENT (failure_id++); \
DEBUG_STATEMENT (nfailure_points_pushed++); \
@@ -1210,7 +1262,7 @@ typedef struct
DEBUG_PRINT2 (" Before push, next avail: %d\n", (fail_stack).avail);\
DEBUG_PRINT2 (" size: %d\n", (fail_stack).size);\
\
- DEBUG_PRINT2 (" slots needed: %d\n", NUM_FAILURE_ITEMS); \
+ DEBUG_PRINT2 (" slots needed: %ld\n", NUM_FAILURE_ITEMS); \
DEBUG_PRINT2 (" available: %d\n", REMAINING_AVAIL_SLOTS); \
\
/* Ensure we have enough space allocated for what we will push. */ \
@@ -1231,16 +1283,17 @@ typedef struct
for (this_reg = lowest_active_reg; this_reg <= highest_active_reg; \
this_reg++) \
{ \
- DEBUG_PRINT2 (" Pushing reg: %d\n", this_reg); \
+ DEBUG_PRINT2 (" Pushing reg: %lu\n", this_reg); \
DEBUG_STATEMENT (num_regs_pushed++); \
\
- DEBUG_PRINT2 (" start: 0x%x\n", regstart[this_reg]); \
+ DEBUG_PRINT2 (" start: %p\n", regstart[this_reg]); \
PUSH_FAILURE_POINTER (regstart[this_reg]); \
\
- DEBUG_PRINT2 (" end: 0x%x\n", regend[this_reg]); \
+ DEBUG_PRINT2 (" end: %p\n", regend[this_reg]); \
PUSH_FAILURE_POINTER (regend[this_reg]); \
\
- DEBUG_PRINT2 (" info: 0x%x\n ", reg_info[this_reg]); \
+ DEBUG_PRINT2 (" info: %p\n ", \
+ reg_info[this_reg].word.pointer); \
DEBUG_PRINT2 (" match_null=%d", \
REG_MATCH_NULL_STRING_P (reg_info[this_reg])); \
DEBUG_PRINT2 (" active=%d", IS_ACTIVE (reg_info[this_reg])); \
@@ -1252,17 +1305,17 @@ typedef struct
PUSH_FAILURE_ELT (reg_info[this_reg].word); \
} \
\
- DEBUG_PRINT2 (" Pushing low active reg: %d\n", lowest_active_reg);\
+ DEBUG_PRINT2 (" Pushing low active reg: %ld\n", lowest_active_reg);\
PUSH_FAILURE_INT (lowest_active_reg); \
\
- DEBUG_PRINT2 (" Pushing high active reg: %d\n", highest_active_reg);\
+ DEBUG_PRINT2 (" Pushing high active reg: %ld\n", highest_active_reg);\
PUSH_FAILURE_INT (highest_active_reg); \
\
- DEBUG_PRINT2 (" Pushing pattern 0x%x:\n", pattern_place); \
+ DEBUG_PRINT2 (" Pushing pattern %p:\n", pattern_place); \
DEBUG_PRINT_COMPILED_PATTERN (bufp, pattern_place, pend); \
PUSH_FAILURE_POINTER (pattern_place); \
\
- DEBUG_PRINT2 (" Pushing string 0x%x: `", string_place); \
+ DEBUG_PRINT2 (" Pushing string %p: `", string_place); \
DEBUG_PRINT_DOUBLE_STRING (string_place, string1, size1, string2, \
size2); \
DEBUG_PRINT1 ("'\n"); \
@@ -1278,9 +1331,9 @@ typedef struct
/* Individual items aside from the registers. */
#ifdef DEBUG
-#define NUM_NONREG_ITEMS 5 /* Includes failure point id. */
+# define NUM_NONREG_ITEMS 5 /* Includes failure point id. */
#else
-#define NUM_NONREG_ITEMS 4
+# define NUM_NONREG_ITEMS 4
#endif
/* We push at most this many items on the stack. */
@@ -1314,8 +1367,8 @@ typedef struct
#define POP_FAILURE_POINT(str, pat, low_reg, high_reg, regstart, regend, reg_info)\
{ \
- DEBUG_STATEMENT (fail_stack_elt_t failure_id;) \
- s_reg_t this_reg; \
+ DEBUG_STATEMENT (unsigned failure_id;) \
+ active_reg_t this_reg; \
const unsigned char *string_temp; \
\
assert (!FAIL_STACK_EMPTY ()); \
@@ -1337,34 +1390,35 @@ typedef struct
if (string_temp != NULL) \
str = (const char *) string_temp; \
\
- DEBUG_PRINT2 (" Popping string 0x%x: `", str); \
+ DEBUG_PRINT2 (" Popping string %p: `", str); \
DEBUG_PRINT_DOUBLE_STRING (str, string1, size1, string2, size2); \
DEBUG_PRINT1 ("'\n"); \
\
pat = (unsigned char *) POP_FAILURE_POINTER (); \
- DEBUG_PRINT2 (" Popping pattern 0x%x:\n", pat); \
+ DEBUG_PRINT2 (" Popping pattern %p:\n", pat); \
DEBUG_PRINT_COMPILED_PATTERN (bufp, pat, pend); \
\
/* Restore register info. */ \
high_reg = (active_reg_t) POP_FAILURE_INT (); \
- DEBUG_PRINT2 (" Popping high active reg: %d\n", high_reg); \
+ DEBUG_PRINT2 (" Popping high active reg: %ld\n", high_reg); \
\
low_reg = (active_reg_t) POP_FAILURE_INT (); \
- DEBUG_PRINT2 (" Popping low active reg: %d\n", low_reg); \
+ DEBUG_PRINT2 (" Popping low active reg: %ld\n", low_reg); \
\
if (1) \
for (this_reg = high_reg; this_reg >= low_reg; this_reg--) \
{ \
- DEBUG_PRINT2 (" Popping reg: %d\n", this_reg); \
+ DEBUG_PRINT2 (" Popping reg: %ld\n", this_reg); \
\
reg_info[this_reg].word = POP_FAILURE_ELT (); \
- DEBUG_PRINT2 (" info: 0x%x\n", reg_info[this_reg]); \
+ DEBUG_PRINT2 (" info: %p\n", \
+ reg_info[this_reg].word.pointer); \
\
regend[this_reg] = (const char *) POP_FAILURE_POINTER (); \
- DEBUG_PRINT2 (" end: 0x%x\n", regend[this_reg]); \
+ DEBUG_PRINT2 (" end: %p\n", regend[this_reg]); \
\
regstart[this_reg] = (const char *) POP_FAILURE_POINTER (); \
- DEBUG_PRINT2 (" start: 0x%x\n", regstart[this_reg]); \
+ DEBUG_PRINT2 (" start: %p\n", regstart[this_reg]); \
} \
else \
{ \
@@ -1470,7 +1524,7 @@ static reg_errcode_t compile_range _RE_ARGS ((const char **p_ptr,
string passed to us by the user to an unsigned char that we can use
as an array index (in, e.g., `translate'). */
#ifndef PATFETCH
-#define PATFETCH(c) \
+# define PATFETCH(c) \
do {if (p == pend) return REG_EEND; \
c = (unsigned char) *p++; \
if (translate) c = (unsigned char) translate[c]; \
@@ -1493,7 +1547,7 @@ static reg_errcode_t compile_range _RE_ARGS ((const char **p_ptr,
`char *', to avoid warnings when a string constant is passed. But
when we use a character as a subscript we must make it unsigned. */
#ifndef TRANSLATE
-#define TRANSLATE(d) \
+# define TRANSLATE(d) \
(translate ? (char) translate[(unsigned char) (d)] : (d))
#endif
@@ -1561,15 +1615,15 @@ static reg_errcode_t compile_range _RE_ARGS ((const char **p_ptr,
MSC and drop MAX_BUF_SIZE a bit. Otherwise you may end up
reallocating to 0 bytes. Such thing is not going to work too well.
You have been warned!! */
-#if defined(_MSC_VER) && !defined(WIN32)
+#if defined _MSC_VER && !defined WIN32
/* Microsoft C 16-bit versions limit malloc to approx 65512 bytes.
The REALLOC define eliminates a flurry of conversion warnings,
but is not required. */
-#define MAX_BUF_SIZE 65500L
-#define REALLOC(p,s) realloc ((p), (size_t) (s))
+# define MAX_BUF_SIZE 65500L
+# define REALLOC(p,s) realloc ((p), (size_t) (s))
#else
-#define MAX_BUF_SIZE (1L << 16)
-#define REALLOC(p,s) realloc ((p), (s))
+# define MAX_BUF_SIZE (1L << 16)
+# define REALLOC(p,s) realloc ((p), (s))
#endif
/* Extend the buffer by twice its current size via realloc and
@@ -1691,7 +1745,7 @@ typedef struct
} \
}
-#if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
+#if defined _LIBC || WIDE_CHAR_SUPPORT
/* The GNU C library provides support for user-defined character classes
and the functions from ISO C amendement 1. */
# ifdef CHARCLASS_NAME_MAX
@@ -1702,7 +1756,11 @@ typedef struct
# define CHAR_CLASS_MAX_LENGTH 256
# endif
-# define IS_CHAR_CLASS(string) wctype (string)
+# ifdef _LIBC
+# define IS_CHAR_CLASS(string) __wctype (string)
+# else
+# define IS_CHAR_CLASS(string) wctype (string)
+# endif
#else
# define CHAR_CLASS_MAX_LENGTH 6 /* Namely, `xdigit'. */
@@ -1878,7 +1936,7 @@ regex_compile (pattern, size, syntax, bufp)
/* Always count groups, whether or not bufp->no_sub is set. */
bufp->re_nsub = 0;
-#if !defined (emacs) && !defined (SYNTAX_TABLE)
+#if !defined emacs && !defined SYNTAX_TABLE
/* Initialize the syntax table. */
init_syntax_once ();
#endif
@@ -2179,25 +2237,28 @@ regex_compile (pattern, size, syntax, bufp)
for (;;)
{
PATFETCH (c);
- if (c == ':' || c == ']' || p == pend
- || c1 == CHAR_CLASS_MAX_LENGTH)
+ if ((c == ':' && *p == ']') || p == pend)
break;
- str[c1++] = c;
+ if (c1 < CHAR_CLASS_MAX_LENGTH)
+ str[c1++] = c;
+ else
+ /* This is in any case an invalid class name. */
+ str[0] = '\0';
}
str[c1] = '\0';
- /* If isn't a word bracketed by `[:' and:`]':
+ /* If isn't a word bracketed by `[:' and `:]':
undo the ending character, the letters, and leave
the leading `:' and `[' (but set bits for them). */
if (c == ':' && *p == ']')
{
-#if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
+#if defined _LIBC || WIDE_CHAR_SUPPORT
boolean is_lower = STREQ (str, "lower");
boolean is_upper = STREQ (str, "upper");
wctype_t wt;
int ch;
- wt = wctype (str);
+ wt = IS_CHAR_CLASS (str);
if (wt == 0)
FREE_STACK_RETURN (REG_ECTYPE);
@@ -2209,8 +2270,13 @@ regex_compile (pattern, size, syntax, bufp)
for (ch = 0; ch < 1 << BYTEWIDTH; ++ch)
{
+# ifdef _LIBC
+ if (__iswctype (__btowc (ch), wt))
+ SET_LIST_BIT (ch);
+# else
if (iswctype (btowc (ch), wt))
SET_LIST_BIT (ch);
+# endif
if (translate && (is_upper || is_lower)
&& (ISUPPER (ch) || ISLOWER (ch)))
@@ -2392,10 +2458,12 @@ regex_compile (pattern, size, syntax, bufp)
if (syntax & RE_NO_BK_PARENS) goto normal_backslash;
if (COMPILE_STACK_EMPTY)
- if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
- goto normal_backslash;
- else
- FREE_STACK_RETURN (REG_ERPAREN);
+ {
+ if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
+ goto normal_backslash;
+ else
+ FREE_STACK_RETURN (REG_ERPAREN);
+ }
handle_close:
if (fixup_alt_jump)
@@ -2412,10 +2480,12 @@ regex_compile (pattern, size, syntax, bufp)
/* See similar code for backslashed left paren above. */
if (COMPILE_STACK_EMPTY)
- if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
- goto normal_char;
- else
- FREE_STACK_RETURN (REG_ERPAREN);
+ {
+ if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
+ goto normal_char;
+ else
+ FREE_STACK_RETURN (REG_ERPAREN);
+ }
/* Since we just checked for an empty stack above, this
``can't happen''. */
@@ -2690,7 +2760,7 @@ regex_compile (pattern, size, syntax, bufp)
case 'w':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
laststart = b;
BUF_PUSH (wordchar);
@@ -2698,7 +2768,7 @@ regex_compile (pattern, size, syntax, bufp)
case 'W':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
laststart = b;
BUF_PUSH (notwordchar);
@@ -2706,37 +2776,37 @@ regex_compile (pattern, size, syntax, bufp)
case '<':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (wordbeg);
break;
case '>':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (wordend);
break;
case 'b':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (wordbound);
break;
case 'B':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (notwordbound);
break;
case '`':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (begbuf);
break;
case '\'':
- if (re_syntax_options & RE_NO_GNU_OPS)
+ if (syntax & RE_NO_GNU_OPS)
goto normal_char;
BUF_PUSH (endbuf);
break;
@@ -2855,7 +2925,7 @@ regex_compile (pattern, size, syntax, bufp)
{
fail_stack.size = (2 * re_max_failures * MAX_FAILURE_ITEMS);
-#ifdef emacs
+# ifdef emacs
if (! fail_stack.stack)
fail_stack.stack
= (fail_stack_elt_t *) xmalloc (fail_stack.size
@@ -2865,7 +2935,7 @@ regex_compile (pattern, size, syntax, bufp)
= (fail_stack_elt_t *) xrealloc (fail_stack.stack,
(fail_stack.size
* sizeof (fail_stack_elt_t)));
-#else /* not emacs */
+# else /* not emacs */
if (! fail_stack.stack)
fail_stack.stack
= (fail_stack_elt_t *) malloc (fail_stack.size
@@ -2875,7 +2945,7 @@ regex_compile (pattern, size, syntax, bufp)
= (fail_stack_elt_t *) realloc (fail_stack.stack,
(fail_stack.size
* sizeof (fail_stack_elt_t)));
-#endif /* not emacs */
+# endif /* not emacs */
}
regex_grow_registers (num_regs);
@@ -3374,6 +3444,9 @@ re_compile_fastmap (bufp)
RESET_FAIL_STACK ();
return 0;
} /* re_compile_fastmap */
+#ifdef _LIBC
+weak_alias (__re_compile_fastmap, re_compile_fastmap)
+#endif
/* Set REGS to hold NUM_REGS registers, storing them in STARTS and
ENDS. Subsequent matches using PATTERN_BUFFER and REGS will use
@@ -3409,6 +3482,9 @@ re_set_registers (bufp, regs, num_regs, starts, ends)
regs->start = regs->end = (regoff_t *) 0;
}
}
+#ifdef _LIBC
+weak_alias (__re_set_registers, re_set_registers)
+#endif
/* Searching routines. */
@@ -3425,6 +3501,9 @@ re_search (bufp, string, size, startpos, range, regs)
return re_search_2 (bufp, NULL, 0, string, size, startpos, range,
regs, size);
}
+#ifdef _LIBC
+weak_alias (__re_search, re_search)
+#endif
/* Using the compiled pattern in BUFP->buffer, first tries to match the
@@ -3478,7 +3557,11 @@ re_search_2 (bufp, string1, size1, string2, size2, startpos, range, regs, stop)
/* If the search isn't to be a backwards one, don't waste time in a
search for a pattern that must be anchored. */
- if (bufp->used > 0 && (re_opcode_t) bufp->buffer[0] == begbuf && range > 0)
+ if (bufp->used > 0 && range > 0
+ && ((re_opcode_t) bufp->buffer[0] == begbuf
+ /* `begline' is like `begbuf' if it cannot match at newlines. */
+ || ((re_opcode_t) bufp->buffer[0] == begline
+ && !bufp->newline_anchor)))
{
if (startpos > 0)
return -1;
@@ -3554,9 +3637,9 @@ re_search_2 (bufp, string1, size1, string2, size2, startpos, range, regs, stop)
val = re_match_2_internal (bufp, string1, size1, string2, size2,
startpos, regs, stop);
#ifndef REGEX_MALLOC
-#ifdef C_ALLOCA
+# ifdef C_ALLOCA
alloca (0);
-#endif
+# endif
#endif
if (val >= 0)
@@ -3581,6 +3664,9 @@ re_search_2 (bufp, string1, size1, string2, size2, startpos, range, regs, stop)
}
return -1;
} /* re_search_2 */
+#ifdef _LIBC
+weak_alias (__re_search_2, re_search_2)
+#endif
/* This converts PTR, a pointer into one of the search strings `string1'
and `string2' into an offset from the beginning of that string. */
@@ -3633,8 +3719,8 @@ re_search_2 (bufp, string1, size1, string2, size2, startpos, range, regs, stop)
/* Free everything we malloc. */
#ifdef MATCH_MAY_ALLOCATE
-#define FREE_VAR(var) if (var) REGEX_FREE (var); var = NULL
-#define FREE_VARIABLES() \
+# define FREE_VAR(var) if (var) REGEX_FREE (var); var = NULL
+# define FREE_VARIABLES() \
do { \
REGEX_FREE_STACK (fail_stack.stack); \
FREE_VAR (regstart); \
@@ -3648,7 +3734,7 @@ re_search_2 (bufp, string1, size1, string2, size2, startpos, range, regs, stop)
FREE_VAR (reg_info_dummy); \
} while (0)
#else
-#define FREE_VARIABLES() ((void)0) /* Do nothing! But inhibit gcc warning. */
+# define FREE_VARIABLES() ((void)0) /* Do nothing! But inhibit gcc warning. */
#endif /* not MATCH_MAY_ALLOCATE */
/* These values must meet several constraints. They must not be valid
@@ -3675,13 +3761,16 @@ re_match (bufp, string, size, pos, regs)
{
int result = re_match_2_internal (bufp, NULL, 0, string, size,
pos, regs, size);
-#ifndef REGEX_MALLOC
-#ifdef C_ALLOCA
+# ifndef REGEX_MALLOC
+# ifdef C_ALLOCA
alloca (0);
-#endif
-#endif
+# endif
+# endif
return result;
}
+# ifdef _LIBC
+weak_alias (__re_match, re_match)
+# endif
#endif /* not emacs */
static boolean group_match_null_string_p _RE_ARGS ((unsigned char **p,
@@ -3721,12 +3810,15 @@ re_match_2 (bufp, string1, size1, string2, size2, pos, regs, stop)
int result = re_match_2_internal (bufp, string1, size1, string2, size2,
pos, regs, stop);
#ifndef REGEX_MALLOC
-#ifdef C_ALLOCA
+# ifdef C_ALLOCA
alloca (0);
-#endif
+# endif
#endif
return result;
}
+#ifdef _LIBC
+weak_alias (__re_match_2, re_match_2)
+#endif
/* This is a separate function so that we can force an alloca cleanup
afterwards. */
@@ -3777,7 +3869,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
fail_stack_type fail_stack;
#endif
#ifdef DEBUG
- static unsigned failure_id = 0;
+ static unsigned failure_id;
unsigned nfailure_points_pushed = 0, nfailure_points_popped = 0;
#endif
@@ -4471,7 +4563,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
past them. */
if (translate
? bcmp_translate (d, d2, mcnt, translate)
- : bcmp (d, d2, mcnt))
+ : memcmp (d, d2, mcnt))
goto fail;
d += mcnt, d2 += mcnt;
@@ -4693,7 +4785,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
{
int not = (re_opcode_t) p1[3] == charset_not;
- if (c < (unsigned char) (p1[4] * BYTEWIDTH)
+ if (c < (unsigned) (p1[4] * BYTEWIDTH)
&& p1[5 + c / BYTEWIDTH] & (1 << (c % BYTEWIDTH)))
not = !not;
@@ -4708,26 +4800,15 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
}
else if ((re_opcode_t) *p2 == charset)
{
-#ifdef DEBUG
- register unsigned char c
- = *p2 == (unsigned char) endline ? '\n' : p2[2];
-#endif
-
-#if 0
+ /* We win if the first character of the loop is not part
+ of the charset. */
if ((re_opcode_t) p1[3] == exactn
- && ! ((int) p2[1] * BYTEWIDTH > (int) p1[5]
- && (p2[2 + p1[5] / BYTEWIDTH]
- & (1 << (p1[5] % BYTEWIDTH)))))
-#else
- if ((re_opcode_t) p1[3] == exactn
- && ! ((int) p2[1] * BYTEWIDTH > (int) p1[4]
- && (p2[2 + p1[4] / BYTEWIDTH]
- & (1 << (p1[4] % BYTEWIDTH)))))
-#endif
- {
- p[-3] = (unsigned char) pop_failure_jump;
- DEBUG_PRINT3 (" %c != %c => pop_failure_jump.\n",
- c, p1[5]);
+ && ! ((int) p2[1] * BYTEWIDTH > (int) p1[5]
+ && (p2[2 + p1[5] / BYTEWIDTH]
+ & (1 << (p1[5] % BYTEWIDTH)))))
+ {
+ p[-3] = (unsigned char) pop_failure_jump;
+ DEBUG_PRINT1 (" No match => pop_failure_jump.\n");
}
else if ((re_opcode_t) p1[3] == charset_not)
@@ -4837,7 +4918,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
DEBUG_PRINT1 ("EXECUTING dummy_failure_jump.\n");
/* It doesn't matter what we push for the string here. What
the code at `fail' tests is the value for the pattern. */
- PUSH_FAILURE_POINT (0, 0, -2);
+ PUSH_FAILURE_POINT (NULL, NULL, -2);
goto unconditional_jump;
@@ -4850,7 +4931,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
DEBUG_PRINT1 ("EXECUTING push_dummy_failure.\n");
/* See comments just above at `dummy_failure_jump' about the
two zeroes. */
- PUSH_FAILURE_POINT (0, 0, -2);
+ PUSH_FAILURE_POINT (NULL, NULL, -2);
break;
/* Have to succeed matching what follows at least n times.
@@ -5420,11 +5501,14 @@ re_compile_pattern (pattern, length, bufp)
return NULL;
return gettext (re_error_msgid[(int) ret]);
}
+#ifdef _LIBC
+weak_alias (__re_compile_pattern, re_compile_pattern)
+#endif
/* Entry points compatible with 4.2 BSD regex library. We don't define
them unless specifically requested. */
-#if defined (_REGEX_RE_COMP) || defined (_LIBC)
+#if defined _REGEX_RE_COMP || defined _LIBC
/* BSD has one and only one pattern buffer. */
static struct re_pattern_buffer re_comp_buf;
@@ -5452,12 +5536,12 @@ re_comp (s)
{
re_comp_buf.buffer = (unsigned char *) malloc (200);
if (re_comp_buf.buffer == NULL)
- return gettext (re_error_msgid[(int) REG_ESPACE]);
+ return (char *) gettext (re_error_msgid[(int) REG_ESPACE]);
re_comp_buf.allocated = 200;
re_comp_buf.fastmap = (char *) malloc (1 << BYTEWIDTH);
if (re_comp_buf.fastmap == NULL)
- return gettext (re_error_msgid[(int) REG_ESPACE]);
+ return (char *) gettext (re_error_msgid[(int) REG_ESPACE]);
}
/* Since `re_exec' always passes NULL for the `regs' argument, we
@@ -5505,7 +5589,8 @@ re_exec (s)
REG_EXTENDED bit in CFLAGS is set; otherwise, to
RE_SYNTAX_POSIX_BASIC;
`newline_anchor' to REG_NEWLINE being set in CFLAGS;
- `fastmap' and `fastmap_accurate' to zero;
+ `fastmap' to an allocated space for the fastmap;
+ `fastmap_accurate' to zero;
`re_nsub' to the number of subexpressions in PATTERN.
PATTERN is the address of the pattern string.
@@ -5547,11 +5632,8 @@ regcomp (preg, pattern, cflags)
preg->allocated = 0;
preg->used = 0;
- /* Don't bother to use a fastmap when searching. This simplifies the
- REG_NEWLINE case: if we used a fastmap, we'd have to put all the
- characters after newlines into the fastmap. This way, we just try
- every character. */
- preg->fastmap = 0;
+ /* Try to allocate space for the fastmap. */
+ preg->fastmap = (char *) malloc (1 << BYTEWIDTH);
if (cflags & REG_ICASE)
{
@@ -5565,7 +5647,7 @@ regcomp (preg, pattern, cflags)
/* Map uppercase characters to corresponding lowercase ones. */
for (i = 0; i < CHAR_SET_SIZE; i++)
- preg->translate[i] = ISUPPER (i) ? tolower (i) : i;
+ preg->translate[i] = ISUPPER (i) ? TOLOWER (i) : i;
}
else
preg->translate = NULL;
@@ -5591,8 +5673,24 @@ regcomp (preg, pattern, cflags)
unmatched close-group: both are REG_EPAREN. */
if (ret == REG_ERPAREN) ret = REG_EPAREN;
+ if (ret == REG_NOERROR && preg->fastmap)
+ {
+ /* Compute the fastmap now, since regexec cannot modify the pattern
+ buffer. */
+ if (re_compile_fastmap (preg) == -2)
+ {
+ /* Some error occured while computing the fastmap, just forget
+ about it. */
+ free (preg->fastmap);
+ preg->fastmap = NULL;
+ }
+ }
+
return (int) ret;
}
+#ifdef _LIBC
+weak_alias (__regcomp, regcomp)
+#endif
/* regexec searches for a given pattern, specified by PREG, in the
@@ -5639,10 +5737,10 @@ regexec (preg, string, nmatch, pmatch, eflags)
if (want_reg_info)
{
regs.num_regs = nmatch;
- regs.start = TALLOC (nmatch, regoff_t);
- regs.end = TALLOC (nmatch, regoff_t);
- if (regs.start == NULL || regs.end == NULL)
+ regs.start = TALLOC (nmatch * 2, regoff_t);
+ if (regs.start == NULL)
return (int) REG_NOMATCH;
+ regs.end = regs.start + nmatch;
}
/* Perform the searching operation. */
@@ -5666,12 +5764,14 @@ regexec (preg, string, nmatch, pmatch, eflags)
/* If we needed the temporary register info, free the space now. */
free (regs.start);
- free (regs.end);
}
/* We want zero return to mean success, unlike `re_search'. */
return ret >= 0 ? (int) REG_NOERROR : (int) REG_NOMATCH;
}
+#ifdef _LIBC
+weak_alias (__regexec, regexec)
+#endif
/* Returns a message corresponding to an error code, ERRCODE, returned
@@ -5704,15 +5804,22 @@ regerror (errcode, preg, errbuf, errbuf_size)
{
if (msg_size > errbuf_size)
{
- strncpy (errbuf, msg, errbuf_size - 1);
+#if defined HAVE_MEMPCPY || defined _LIBC
+ *((char *) __mempcpy (errbuf, msg, errbuf_size - 1)) = '\0';
+#else
+ memcpy (errbuf, msg, errbuf_size - 1);
errbuf[errbuf_size - 1] = 0;
+#endif
}
else
- strcpy (errbuf, msg);
+ memcpy (errbuf, msg, msg_size);
}
return msg_size;
}
+#ifdef _LIBC
+weak_alias (__regerror, regerror)
+#endif
/* Free dynamically allocated space used by PREG. */
@@ -5740,5 +5847,8 @@ regfree (preg)
free (preg->translate);
preg->translate = NULL;
}
+#ifdef _LIBC
+weak_alias (__regfree, regfree)
+#endif
#endif /* not emacs */
diff --git a/regex.h b/regex.h
index 5140052c..57719957 100644
--- a/regex.h
+++ b/regex.h
@@ -1,6 +1,6 @@
/* Definitions for data structures and routines for the regular
expression library, version 0.12.
- Copyright (C) 1985,89,90,91,92,93,95,96,97 Free Software Foundation, Inc.
+ Copyright (C) 1985,89,90,91,92,93,95,96,97,98 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -16,8 +16,8 @@
along with this program; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-#ifndef __REGEXP_LIBRARY_H__
-#define __REGEXP_LIBRARY_H__
+#ifndef _REGEX_H
+#define _REGEX_H 1
/* Allow the use in C++ code. */
#ifdef __cplusplus
@@ -27,10 +27,10 @@ extern "C" {
/* POSIX says that <sys/types.h> must be included (by the caller) before
<regex.h>. */
-#if !defined (_POSIX_C_SOURCE) && !defined (_POSIX_SOURCE) && defined (VMS)
+#if !defined _POSIX_C_SOURCE && !defined _POSIX_SOURCE && defined VMS
/* VMS doesn't have `size_t' in <sys/types.h>, even though POSIX says it
should be there. */
-#include <stddef.h>
+# include <stddef.h>
#endif
/* The following two types have to be signed and unsigned integer type
@@ -235,7 +235,7 @@ extern reg_syntax_t re_syntax_options;
(erroneously) define this in other header files, but we want our
value, so remove any previous define. */
#ifdef RE_DUP_MAX
-#undef RE_DUP_MAX
+# undef RE_DUP_MAX
#endif
/* If sizeof(int) == 2, then ((1 << 15) - 1) overflows. */
#define RE_DUP_MAX (0x7fff)
@@ -278,6 +278,10 @@ extern reg_syntax_t re_syntax_options;
`re_error_msg' table in regex.c. */
typedef enum
{
+#ifdef _XOPEN_SOURCE
+ REG_ENOSYS = -1, /* This will never happen for this implementation. */
+#endif
+
REG_NOERROR = 0, /* Success. */
REG_NOMATCH, /* Didn't find a match (for regexec). */
@@ -309,7 +313,7 @@ typedef enum
private to the regex routines. */
#ifndef RE_TRANSLATE_TYPE
-#define RE_TRANSLATE_TYPE char *
+# define RE_TRANSLATE_TYPE char *
#endif
struct re_pattern_buffer
@@ -400,7 +404,7 @@ struct re_registers
`re_match_2' returns information about at least this many registers
the first time a `regs' structure is passed. */
#ifndef RE_NREGS
-#define RE_NREGS 30
+# define RE_NREGS 30
#endif
@@ -423,11 +427,11 @@ typedef struct
#if __STDC__
-#define _RE_ARGS(args) args
+# define _RE_ARGS(args) args
#else /* not __STDC__ */
-#define _RE_ARGS(args) ()
+# define _RE_ARGS(args) ()
#endif /* not __STDC__ */
@@ -497,30 +501,33 @@ extern void re_set_registers
_RE_ARGS ((struct re_pattern_buffer *buffer, struct re_registers *regs,
unsigned num_regs, regoff_t *starts, regoff_t *ends));
-#ifdef _REGEX_RE_COMP
-#ifndef _CRAY
+#if defined _REGEX_RE_COMP || defined _LIBC
+# ifndef _CRAY
/* 4.2 bsd compatibility. */
extern char *re_comp _RE_ARGS ((const char *));
extern int re_exec _RE_ARGS ((const char *));
-#endif
+# endif
#endif
/* POSIX compatibility. */
-extern int regcomp _RE_ARGS ((regex_t *preg, const char *pattern, int cflags));
-extern int regexec
- _RE_ARGS ((const regex_t *preg, const char *string, size_t nmatch,
- regmatch_t pmatch[], int eflags));
-extern size_t regerror
- _RE_ARGS ((int errcode, const regex_t *preg, char *errbuf,
- size_t errbuf_size));
-extern void regfree _RE_ARGS ((regex_t *preg));
+extern int regcomp _RE_ARGS ((regex_t *__preg, const char *__pattern,
+ int __cflags));
+
+extern int regexec _RE_ARGS ((const regex_t *__preg,
+ const char *__string, size_t __nmatch,
+ regmatch_t __pmatch[], int __eflags));
+
+extern size_t regerror _RE_ARGS ((int __errcode, const regex_t *__preg,
+ char *__errbuf, size_t __errbuf_size));
+
+extern void regfree _RE_ARGS ((regex_t *__preg));
#ifdef __cplusplus
}
#endif /* C++ */
-#endif /* not __REGEXP_LIBRARY_H__ */
+#endif /* regex.h */
/*
Local variables:
diff --git a/missing.c b/replace.c
index 7494d766..81e17455 100644
--- a/missing.c
+++ b/replace.c
@@ -2,6 +2,7 @@
* Do all necessary includes here, so that we don't have to worry about
* overlapping includes in the files in missing.d.
*/
+#include "config.h"
#include "awk.h"
@@ -10,50 +11,60 @@
* this will work with gcc compiler - for other compilers you may
* have to replace path separators in this file into backslashes
*/
-#include "atari/stack.c"
-#include "atari/tmpnam.c"
+#include "unsupported/atari/stack.c"
+#include "unsupported/atari/tmpnam.c"
#endif /* atarist */
#ifndef HAVE_SYSTEM
#ifdef atarist
-#include "atari/system.c"
+#include "unsupported/atari/system.c"
#else
-#include "missing/system.c"
+#include "missing_d/system.c"
#endif
#endif /* HAVE_SYSTEM */
#ifndef HAVE_MEMCMP
-#include "missing/memcmp.c"
+#include "missing_d/memcmp.c"
#endif /* HAVE_MEMCMP */
#ifndef HAVE_MEMCPY
-#include "missing/memcpy.c"
+#include "missing_d/memcpy.c"
#endif /* HAVE_MEMCPY */
#ifndef HAVE_MEMSET
-#include "missing/memset.c"
+#include "missing_d/memset.c"
#endif /* HAVE_MEMSET */
#ifndef HAVE_STRNCASECMP
-#include "missing/strncasecmp.c"
+#include "missing_d/strncasecmp.c"
#endif /* HAVE_STRCASE */
#ifndef HAVE_STRERROR
-#include "missing/strerror.c"
+#include "missing_d/strerror.c"
#endif /* HAVE_STRERROR */
#ifndef HAVE_STRFTIME
-#include "missing/strftime.c"
+#include "missing_d/strftime.c"
#endif /* HAVE_STRFTIME */
#ifndef HAVE_STRCHR
-#include "missing/strchr.c"
+#include "missing_d/strchr.c"
#endif /* HAVE_STRCHR */
-#ifndef HAVE_STRTOD
-#include "missing/strtod.c"
+#if !defined(HAVE_STRTOD) || defined(STRTOD_NOT_C89)
+#include "missing_d/strtod.c"
#endif /* HAVE_STRTOD */
#ifndef HAVE_TZSET
-#include "missing/tzset.c"
+#include "missing_d/tzset.c"
#endif /* HAVE_TZSET */
+
+#ifndef HAVE_MKTIME
+#include "missing_d/mktime.c"
+#endif /* HAVE_MKTIME */
+
+#if defined TANDEM
+#include "strdupc"
+#include "getidc"
+#include "strnchkc"
+#endif /* TANDEM */
diff --git a/stamp-h.in b/stamp-h.in
index 232f054c..9788f702 100644
--- a/stamp-h.in
+++ b/stamp-h.in
@@ -1 +1 @@
-Mon Jun 12 15:56:11 IDT 2000
+timestamp
diff --git a/test/ChangeLog b/test/ChangeLog
index 2508ef0f..aa3b6645 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,7 +1,209 @@
-Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Sun May 6 13:30:20 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * inftest.awk: Changed test to use < so that it will
+ work for MSC and DJGPP combination, per Scott Deifik.
+
+Tue Mar 20 11:09:51 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (funsemnl): new test case.
+ * funsemnl.awk, funsemnl.ok: new files.
+
+Wed Mar 7 11:31:41 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (leadnl): new test case.
+ * leadnl.awk, leadnl.in, leadnl.ok: new files.
+
+Tue Feb 6 18:08:15 2001 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (rebt8b1, rebt8b2): new test case.
+ * rebt8b1.awk, rebt8b1.ok: new files.
+ * rebt8b2.awk, rebt8b2.ok: new files.
+
+Sun Dec 3 15:36:41 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (gnuops2): New test case.
+ * gnuops2.awk, gnuops2.ok: New files, based on bug report from
+ Servatius.Brandt@fujitsu-siemens.com.
+
+Mon Nov 27 15:52:46 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * regx8bit.awk, regx8bit.ok: Updated to what should
+ work on all systems.
+
+Wed Nov 22 13:27:59 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (poundbang): Added some smarts for /tmp mounted
+ noexec. Hopefully it'll even work.
+
+Tue Nov 14 17:45:02 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am: Added - to all cmp calls for consistency.
+
+Sun Nov 12 17:50:18 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (addcomma): new test case.
+ * addcomma.awk, addcomma.in, addcomma.ok: new files.
+
+Tue Nov 7 16:03:06 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (regx8bit, psx96sub): new test cases.
+ * regx8bit.awk, regx8bit.ok, psx96sub.awk, psx96sub.ok: new files.
+
+Sun Oct 22 12:09:43 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (shadow): new test case.
+ * shadow.awk, shadow.ok: new files.
+
+Tue Oct 17 10:51:09 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (arynasty): new test case.
+ * arynasty.awk, arynasty.ok: new files.
+
+Mon Oct 2 10:17:13 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (clsflnam): Add redirect of stderr.
+ * clsflnam.awk, clsflnam.ok: modified to reflect changed
+ semantics of close() for a non-open file. See ../ChangeLog.
+
+Sun Sep 24 16:46:29 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (nasty2): new test case.
+ * nasty2.awk, nasty2.ok: new files.
+
+Wed Sep 13 11:09:49 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (check): Added calls to new targets that
+ print messages.
+ (clos1way, basic-msg-start, basic-msg-end, unix-msg-start,
+ unix-msg-end, extend-msg-start, extend-msg-end): new targets.
+ * clos1way.awk, clos1way.ok: new files.
+
+Tue Sep 12 16:29:54 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (leaddig): new test case.
+ * leaddig.awk, leaddig.ok: new files.
+
+Wed Sep 6 14:09:15 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (strtod): new test case.
+ * strtod.awk, strtod.in, strtod.ok: new files.
+
+Mon Sep 4 09:33:28 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Makefile.in (octsub): new test case.
+ * octsub.awk, octsub.ok: new files.
+
+Sun Aug 13 12:37:16 2000 Arnold Robbins <arnold@skeeve.com>
+
+ * Makefile.am (sort1, diffout): new test cases.
+ * sort1.awk, sort1.ok: new files.
- * Release 3.0.6: Release tar file made.
+2000-02-15 Arnold Robbins <arnold@skeeve.com>
+ * MOVED TO AUTOMAKE AND GETTEXT.
+ Just about every file touched. Work done by Arno Peters.
+
+Wed May 19 15:41:41 1999 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (datanonl,regeq,redfilnm): new test cases.
+ * datanonl.awk, datanonl.in, datanonl.ok: new files.
+ * regeq.awk, regeq.in, regeq.ok: new files.
+ * redfilnm.awk, redfilnm.in, redfilnm.ok: new files.
+
+Mon May 10 17:11:30 1999 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (rsnul1nl): new test case.
+ * rsnul1nl.awk, rsnul1nl.in, rsnul1nl.ok: new files.
+
+Sun Apr 25 13:02:35 1999 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (inetechu,inetecht,inetdayu,inetdayt,inet): new
+ tests, courtesy of Juergen Khars.
+ (paramtyp): new test for bug from Juergen.
+ * paramtyp.awk, paramtyp.in: new files.
+
+Sun Oct 25 23:11:46 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (ofmtbig,procinfs): new test cases.
+ * procinfs.awk, procinfs.ok: new files.
+ * ofmtbig.awk, ofmtbig.in, ofmtbig.ok: new files.
+
+Tue Oct 20 22:07:10 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (lint): new test case.
+ * lint.awk, lint.ok: new files.
+ * badargs.ok: updated output corresponding to change made to
+ main.c (see main ChangeLog).
+
+Tue May 26 20:39:07 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * pipeio2.awk: change "\'" to "'" to avoid new warning.
+
+Mon Mar 23 21:53:36 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (fnasgnm): new test case.
+ * fnasgnm.awk, fnasgnm.in, fnasgnm.ok: new files.
+
+Fri Mar 20 11:01:38 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (fnaryscl): new test case.
+ * fnaryscl.awk, fnaryscl.ok: new files.
+
+Mon Mar 16 15:23:22 1998 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (splitdef): new test case.
+ * splitdef.awk, splitdef.ok: new files.
+
+Fri Sep 26 01:10:14 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (parseme): new test case.
+ * parseme.awk, parseme.ok: new files.
+
+Sun Sep 14 23:25:10 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (ofmts): new test case.
+ * ofmts.awk, ofmts.in, ofmts.ok: new files.
+
+Sun Aug 17 07:17:35 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (fsfwfs): new test case.
+ * fsfwfs.awk, fsfwfs.in, fsfwfs.ok: new files.
+
+Sun Jul 27 23:08:53 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (hsprint): new test case.
+ * hsprint.awk, hsprint.ok, printfloat.awk: new files.
+
+Thu Jul 17 20:07:31 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (ofmt): new test case.
+ * ofmt.awk, ofmt.in, ofmt.ok: new files.
+
+Sun Jun 22 16:17:35 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (nlinstr): new test case.
+ * nlinstr.awk, nlinstr.in, nlinstr.ok: new files.
+
+Wed Jun 4 13:18:21 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * pid.sh: send errors to /dev/null to toss warning about
+ using PROCINFO["pid"] etc. This test explicitly tests
+ the special files. It'll need changing in 3.2.
+
+Thu Apr 24 23:24:59 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Makefile.in (messages): remove special case if /dev/fd exists.
+ Finally.
+
+Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.0.6: Release tar file made.
+
Thu Aug 3 17:51:56 2000 Arnold D. Robbins <arnold@skeeve.com>
* Makefile.in (nlstrina): new test case.
@@ -86,7 +288,7 @@ Thu Jul 29 19:25:02 1999 Arnold D. Robbins <arnold@skeeve.com>
* fnamedat.awk, fnamedat.in, fnamedat.ok: new files.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Tue May 25 16:37:50 1999 Arnold D. Robbins <arnold@gnu.org>
diff --git a/test/Makefile.am b/test/Makefile.am
new file mode 100644
index 00000000..e1dbdfd8
--- /dev/null
+++ b/test/Makefile.am
@@ -0,0 +1,1036 @@
+#
+# test/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 1988-2001 the Free Software Foundation, Inc.
+#
+# This file is part of GAWK, the GNU implementation of the
+# AWK Programming Language.
+#
+# GAWK is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# GAWK is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
+
+## process this file with automake to produce Makefile.in
+
+EXTRA_DIST = \
+ reg \
+ lib \
+ README \
+ addcomma.awk \
+ addcomma.in \
+ addcomma.ok \
+ anchgsub.awk \
+ anchgsub.in \
+ anchgsub.ok \
+ argarray.awk \
+ argarray.in \
+ argarray.ok \
+ argtest.awk \
+ argtest.ok \
+ arrayparm.awk \
+ arrayparm.ok \
+ arrayref.awk \
+ arrayref.ok \
+ arynasty.awk \
+ arynasty.ok \
+ arynocls.awk \
+ arynocls.in \
+ arynocls.ok \
+ arysubnm.awk \
+ arysubnm.ok \
+ asgext.awk \
+ asgext.in \
+ asgext.ok \
+ awkpath.ok \
+ back89.in \
+ back89.ok \
+ backgsub.awk \
+ backgsub.in \
+ backgsub.ok \
+ badargs.ok \
+ childin.ok \
+ clobber.awk \
+ clobber.ok \
+ clos1way.awk \
+ clos1way.ok \
+ clsflnam.awk \
+ clsflnam.in \
+ clsflnam.ok \
+ compare.awk \
+ compare.in \
+ compare.ok \
+ convfmt.awk \
+ convfmt.ok \
+ datanonl.awk \
+ datanonl.in \
+ datanonl.ok \
+ defref.awk \
+ defref.ok \
+ delarprm.awk \
+ delarprm.ok \
+ dynlj.awk \
+ dynlj.ok \
+ eofsplit.awk \
+ eofsplit.ok \
+ fflush.ok \
+ fflush.sh \
+ fieldwdth.ok \
+ fldchg.awk \
+ fldchg.in \
+ fldchg.ok \
+ fldchgnf.awk \
+ fldchgnf.in \
+ fldchgnf.ok \
+ fnamedat.awk \
+ fnamedat.in \
+ fnamedat.ok \
+ fnarray.awk \
+ fnarray.ok \
+ fnarydel.awk \
+ fnarydel.ok \
+ fnaryscl.awk \
+ fnaryscl.ok \
+ fnasgnm.awk \
+ fnasgnm.in \
+ fnasgnm.ok \
+ fnparydl.awk \
+ fnparydl.ok \
+ fsbs.in \
+ fsbs.ok \
+ fsfwfs.awk \
+ fsfwfs.in \
+ fsfwfs.ok \
+ fsrs.awk \
+ fsrs.in \
+ fsrs.ok \
+ fstabplus.awk \
+ fstabplus.ok \
+ funsemnl.awk \
+ funsemnl.ok \
+ funsmnam.awk \
+ funsmnam.ok \
+ funstack.awk \
+ funstack.in \
+ funstack.ok \
+ gensub.awk \
+ gensub.in \
+ gensub.ok \
+ getline.awk \
+ getline.ok \
+ getlnbuf.awk \
+ getlnbuf.in \
+ getlnbuf.ok \
+ getlnhd.awk \
+ getlnhd.ok \
+ getnr2tb.awk \
+ getnr2tb.in \
+ getnr2tb.ok \
+ getnr2tm.awk \
+ getnr2tm.in \
+ getnr2tm.ok \
+ gnuops2.awk \
+ gnuops2.ok \
+ gnureops.awk \
+ gnureops.ok \
+ gsubasgn.awk \
+ gsubasgn.ok \
+ gsubtest.awk \
+ gsubtest.ok \
+ gtlnbufv.awk \
+ hsprint.awk \
+ hsprint.ok \
+ igncdym.awk \
+ igncdym.in \
+ igncdym.ok \
+ igncfs.awk \
+ igncfs.in \
+ igncfs.ok \
+ ignrcase.ok \
+ inftest.awk \
+ inftest.ok \
+ intest.awk \
+ intest.ok \
+ intprec.awk \
+ intprec.ok \
+ leaddig.awk \
+ leaddig.ok \
+ leadnl.awk \
+ leadnl.in \
+ leadnl.ok \
+ lint.awk \
+ lint.ok \
+ litoct.awk \
+ litoct.ok \
+ longwrds.awk \
+ longwrds.ok \
+ manpage \
+ manyfiles.awk \
+ math.awk \
+ math.ok \
+ messages.awk \
+ mmap8k.in \
+ nasty.awk \
+ nasty.ok \
+ nasty2.awk \
+ nasty2.ok \
+ negexp.ok \
+ nfldstr.ok \
+ nfset.awk \
+ nfset.in \
+ nfset.ok \
+ nlfldsep.awk \
+ nlfldsep.in \
+ nlfldsep.ok \
+ nlinstr.awk \
+ nlinstr.in \
+ nlinstr.ok \
+ nlstrina.awk \
+ nlstrina.ok \
+ noeffect.awk \
+ noeffect.ok \
+ nofmtch.awk \
+ nofmtch.ok \
+ nondec.awk \
+ nondec.ok \
+ nonl.awk \
+ nonl.ok \
+ noparms.awk \
+ noparms.ok \
+ nors.in \
+ nors.ok \
+ numindex.awk \
+ numindex.in \
+ numindex.ok \
+ numsubstr.awk \
+ numsubstr.in \
+ numsubstr.ok \
+ octsub.awk \
+ octsub.ok \
+ ofmt.awk \
+ ofmt.in \
+ ofmt.ok \
+ ofmtbig.awk \
+ ofmtbig.in \
+ ofmtbig.ok \
+ ofmts.awk \
+ ofmts.in \
+ ofmts.ok \
+ opasnidx.awk \
+ opasnidx.ok \
+ opasnslf.awk \
+ opasnslf.ok \
+ out1.ok \
+ out2.ok \
+ out3.ok \
+ paramdup.awk \
+ paramdup.ok \
+ paramtyp.awk \
+ paramtyp.ok \
+ parseme.awk \
+ parseme.ok \
+ pcntplus.awk \
+ pcntplus.ok \
+ pid.awk \
+ pid.ok \
+ pid.sh \
+ pipeio1.awk \
+ pipeio1.ok \
+ pipeio2.awk \
+ pipeio2.in \
+ pipeio2.ok \
+ posix.awk \
+ posix.ok \
+ poundbang.awk \
+ poundbang.ok \
+ prdupval.awk \
+ prdupval.in \
+ prdupval.ok \
+ printf1.awk \
+ printf1.ok \
+ printfloat.awk \
+ prmarscl.awk \
+ prmarscl.ok \
+ prmreuse.awk \
+ prmreuse.ok \
+ procinfs.awk \
+ procinfs.ok \
+ prt1eval.awk \
+ prt1eval.ok \
+ prtoeval.awk \
+ prtoeval.ok \
+ psx96sub.awk \
+ psx96sub.ok \
+ rand.awk \
+ rand.ok \
+ rebt8b1.awk \
+ rebt8b1.ok \
+ rebt8b2.awk \
+ rebt8b2.ok \
+ redfilnm.awk \
+ redfilnm.in \
+ redfilnm.ok \
+ regeq.awk \
+ regeq.in \
+ regeq.ok \
+ regtest.sh \
+ regx8bit.awk \
+ regx8bit.ok \
+ reindops.awk \
+ reindops.in \
+ reindops.ok \
+ reint.awk \
+ reint.in \
+ reint.ok \
+ reparse.awk \
+ reparse.in \
+ reparse.ok \
+ resplit.ok \
+ rs.in \
+ rs.ok \
+ rsnul1nl.awk \
+ rsnul1nl.in \
+ rsnul1nl.ok \
+ rswhite.awk \
+ rswhite.in \
+ rswhite.ok \
+ sclforin.awk \
+ sclforin.ok \
+ sclifin.awk \
+ sclifin.ok \
+ shadow.awk \
+ shadow.ok \
+ sort1.awk \
+ sort1.ok \
+ splitargv.awk \
+ splitargv.in \
+ splitargv.ok \
+ splitdef.awk \
+ splitdef.ok \
+ splitvar.awk \
+ splitvar.in \
+ splitvar.ok \
+ splitwht.awk \
+ splitwht.ok \
+ sprintfc.awk \
+ sprintfc.in \
+ sprintfc.ok \
+ strtod.awk \
+ strtod.in \
+ strtod.ok \
+ strftime.awk \
+ strftlng.awk \
+ strftlng.ok \
+ subslash.awk \
+ subslash.ok \
+ substr.awk \
+ substr.ok \
+ swaplns.awk \
+ swaplns.in \
+ swaplns.ok \
+ tradanch.awk \
+ tradanch.in \
+ tradanch.ok \
+ tweakfld.awk \
+ tweakfld.in \
+ tweakfld.ok \
+ zeroflag.awk \
+ zeroflag.ok
+
+CMP = cmp
+AWK = ../gawk
+
+# message stuff is to make it a little easier to follow
+check: msg \
+ basic-msg-start basic basic-msg-end \
+ unix-msg-start unix-tests unix-msg-end \
+ extend-msg-start gawk-extensions extend-msg-end
+
+# try to keep these sorted
+basic: addcomma anchgsub argarray arrayparm arrayref arynasty arynocls \
+ arysubnm asgext awkpath back89 backgsub childin clobber clsflnam \
+ compare convfmt datanonl defref delarprm dynlj eofsplit fldchg \
+ fldchgnf fnamedat fnarray fnarydel fnaryscl fnasgnm fnparydl \
+ fsbs fsrs fstabplus funsemnl funsmnam funstack getline getlnbuf getnr2tb \
+ getnr2tm gsubasgn gsubtest hsprint intest intprec leaddig leadnl litoct \
+ longwrds math messages mmap8k nasty nasty2 negexp nfldstr nfset \
+ nlfldsep nlinstr nlstrina noeffect nofmtch nonl noparms nors \
+ numindex numsubstr octsub ofmt ofmtbig ofmts opasnidx opasnslf \
+ paramdup paramtyp parseme pcntplus prdupval printf1 prmarscl \
+ prmreuse prt1eval prtoeval psx96sub rand rebt8b1 rebt8b2 redfilnm \
+ regeq reindops reparse resplit rs rsnul1nl rswhite sclforin \
+ sclifin splitargv splitdef splitvar splitwht sprintfc strtod \
+ subslash substr swaplns tradanch tweakfld zeroflag
+
+unix-tests: fflush getlnhd pid pipeio1 pipeio2 poundbang strftlng
+
+gawk-extensions: argtest badargs clos1way fieldwdth fsfwfs gensub \
+ gnuops2 gnureops igncdym igncfs ignrcase lint manyfiles nondec \
+ posix procinfs regx8bit reint shadow sort1 strftime
+
+extra: regtest inftest inet
+
+inet: inetmesg inetechu inetecht inetdayu inetdayt
+
+msg::
+ @echo 'Any output from "cmp" is bad news, although some differences'
+ @echo 'in floating point values are probably benign -- in particular,'
+ @echo 'some systems may omit a leading zero and the floating point'
+ @echo 'precision may lead to slightly different output in a few cases.'
+
+basic-msg-start:
+ @echo "======== Starting basic tests ========"
+
+basic-msg-end:
+ @echo "======== Done with basic tests ========"
+
+unix-msg-start:
+ @echo "======== Starting Unix tests ========"
+
+unix-msg-end:
+ @echo "======== Done with Unix tests ========"
+
+extend-msg-start:
+ @echo "======== Starting gawk extension tests ========"
+
+extend-msg-end:
+ @echo "======== Done with gawk extension tests ========"
+
+
+# This test is a PITA because increasingly, /tmp is getting
+# mounted noexec. So, we'll test it. Sigh.
+poundbang::
+ @cp $(AWK) /tmp/gawk
+ @if /tmp/gawk 'BEGIN { print "OK" }' | grep OK > /dev/null ; \
+ then \
+ $(srcdir)/poundbang.awk $(srcdir)/poundbang.awk >_`basename $@` ; \
+ $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@` && echo poundbang is ok ; \
+ else \
+ echo "*** /tmp is apparently mounted noexec, skipping poundbang test." ; \
+ fi
+ @rm -f /tmp/gawk
+
+swaplns::
+ @$(AWK) -f $(srcdir)/swaplns.awk $(srcdir)/swaplns.in >_$@
+ -$(CMP) $(srcdir)/swaplns.ok _$@ && rm -f _$@
+
+messages::
+ @$(AWK) -f $(srcdir)/messages.awk >out2 2>out3
+ -$(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && $(CMP) $(srcdir)/out3.ok out3 && rm -f out1 out2 out3
+
+argarray::
+ @case $(srcdir) in \
+ .) : ;; \
+ *) cp $(srcdir)/argarray.in . ;; \
+ esac
+ @TEST=test echo just a test | $(AWK) -f $(srcdir)/argarray.awk ./argarray.in - >_$@
+ -$(CMP) $(srcdir)/argarray.ok _$@ && rm -f _$@
+
+fstabplus::
+ @echo '1 2' | $(AWK) -f $(srcdir)/fstabplus.awk >_$@
+ -$(CMP) $(srcdir)/fstabplus.ok _$@ && rm -f _$@
+
+fsrs::
+ @$(AWK) -f $(srcdir)/fsrs.awk $(srcdir)/fsrs.in >_$@
+ -$(CMP) $(srcdir)/fsrs.ok _$@ && rm -f _$@
+
+igncfs::
+ @$(AWK) -f $(srcdir)/igncfs.awk $(srcdir)/igncfs.in >_$@
+ -$(CMP) $(srcdir)/igncfs.ok _$@ && rm -f _$@
+
+longwrds::
+ @$(AWK) -f $(srcdir)/longwrds.awk $(srcdir)/manpage | (LC_ALL=C sort) >_$@
+ -$(CMP) $(srcdir)/longwrds.ok _$@ && rm -f _$@
+
+fieldwdth::
+ @echo '123456789' | $(AWK) -v FIELDWIDTHS="2 3 4" '{ print $$2}' >_$@
+ -$(CMP) $(srcdir)/fieldwdth.ok _$@ && rm -f _$@
+
+ignrcase::
+ @echo xYz | $(AWK) -v IGNORECASE=1 '{ sub(/y/, ""); print}' >_$@
+ -$(CMP) $(srcdir)/ignrcase.ok _$@ && rm -f _$@
+
+regtest::
+ @echo 'Some of the output from regtest is very system specific, do not'
+ @echo 'be distressed if your output differs from that distributed.'
+ @echo 'Manual inspection is called for.'
+ AWK=`pwd`/$(AWK) $(srcdir)/regtest.awk
+
+posix::
+ @echo '1:2,3 4' | $(AWK) -f $(srcdir)/posix.awk >_$@
+ -$(CMP) $(srcdir)/posix.ok _$@ && rm -f _$@
+
+manyfiles::
+ @rm -rf junk
+ @mkdir junk
+ @$(AWK) 'BEGIN { for (i = 1; i <= 300; i++) print i, i}' >_$@
+ @$(AWK) -f $(srcdir)/manyfiles.awk _$@ _$@
+ @echo "This number better be 1 ->" | tr -d '\012'
+ @wc -l junk/* | $(AWK) '$$1 != 2' | wc -l
+ @rm -rf junk _$@
+
+compare::
+ @$(AWK) -f $(srcdir)/compare.awk 0 1 $(srcdir)/compare.in >_$@
+ -$(CMP) $(srcdir)/compare.ok _$@ && rm -f _$@
+
+arrayref::
+ @$(AWK) -f $(srcdir)/arrayref.awk >_$@
+ -$(CMP) $(srcdir)/arrayref.ok _$@ && rm -f _$@
+
+rs::
+ @$(AWK) -v RS="" '{ print $$1, $$2}' $(srcdir)/rs.in >_$@
+ -$(CMP) $(srcdir)/rs.ok _$@ && rm -f _$@
+
+fsbs::
+ @$(AWK) -v FS='\' '{ print $$1, $$2 }' $(srcdir)/fsbs.in >_$@
+ -$(CMP) $(srcdir)/fsbs.ok _$@ && rm -f _$@
+
+inftest::
+ @echo This test is very machine specific...
+ @$(AWK) -f $(srcdir)/inftest.awk >_$@
+ -$(CMP) $(srcdir)/inftest.ok _$@ && rm -f _$@
+
+getline::
+ @$(AWK) -f $(srcdir)/getline.awk $(srcdir)/getline.awk $(srcdir)/getline.awk >_$@
+ -$(CMP) $(srcdir)/getline.ok _$@ && rm -f _$@
+
+rand::
+ @$(AWK) -f $(srcdir)/rand.awk >_$@
+ -$(CMP) $(srcdir)/rand.ok _$@ && rm -f _$@
+
+negexp::
+ @$(AWK) 'BEGIN { a = -2; print 10^a }' >_$@
+ -$(CMP) $(srcdir)/negexp.ok _$@ && rm -f _$@
+
+asgext::
+ @$(AWK) -f $(srcdir)/asgext.awk $(srcdir)/asgext.in >_$@
+ -$(CMP) $(srcdir)/asgext.ok _$@ && rm -f _$@
+
+anchgsub::
+ @$(AWK) -f $(srcdir)/anchgsub.awk $(srcdir)/anchgsub.in >_$@
+ -$(CMP) $(srcdir)/anchgsub.ok _$@ && rm -f _$@
+
+splitargv::
+ @$(AWK) -f $(srcdir)/splitargv.awk $(srcdir)/splitargv.in >_$@
+ -$(CMP) $(srcdir)/splitargv.ok _$@ && rm -f _$@
+
+awkpath::
+ @AWKPATH="$(srcdir):$(srcdir)/lib" $(AWK) -f awkpath.awk >_$@
+ -$(CMP) $(srcdir)/awkpath.ok _$@ && rm -f _$@
+
+nfset::
+ @$(AWK) -f $(srcdir)/nfset.awk $(srcdir)/nfset.in >_$@
+ -$(CMP) $(srcdir)/nfset.ok _$@ && rm -f _$@
+
+reparse::
+ @$(AWK) -f $(srcdir)/reparse.awk $(srcdir)/reparse.in >_$@
+ -$(CMP) $(srcdir)/reparse.ok _$@ && rm -f _$@
+
+argtest::
+ @$(AWK) -f $(srcdir)/argtest.awk -x -y abc >_$@
+ -$(CMP) $(srcdir)/argtest.ok _$@ && rm -f _$@
+
+badargs::
+ @-$(AWK) -f 2>&1 | grep -v patchlevel >_$@
+ -$(CMP) $(srcdir)/badargs.ok _$@ && rm -f _$@
+
+convfmt::
+ @$(AWK) -f $(srcdir)/convfmt.awk >_$@
+ -$(CMP) $(srcdir)/convfmt.ok _$@ && rm -f _$@
+
+arrayparm::
+ @-AWKPATH=$(srcdir) $(AWK) -f arrayparm.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/arrayparm.ok _$@ && rm -f _$@
+
+paramdup::
+ @-AWKPATH=$(srcdir) $(AWK) -f paramdup.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/paramdup.ok _$@ && rm -f _$@
+
+nonl::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f nonl.awk /dev/null >_$@ 2>&1
+ -$(CMP) $(srcdir)/nonl.ok _$@ && rm -f _$@
+
+defref::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f defref.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/defref.ok _$@ && rm -f _$@
+
+nofmtch::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f nofmtch.awk >_$@ 2>&1
+ -$(CMP) $(srcdir)/nofmtch.ok _$@ && rm -f _$@
+
+strftime::
+ : this test could fail on slow machines or on a second boundary,
+ : so if it does, double check the actual results
+ @LC_ALL=C; export LC_ALL; LANG=C; export LANG; \
+ date | $(AWK) -v OUTPUT=_$@ -f $(srcdir)/strftime.awk
+ -$(CMP) strftime.ok _$@ && rm -f _$@ strftime.ok || exit 0
+
+litoct::
+ @echo ab | $(AWK) --traditional -f $(srcdir)/litoct.awk >_$@
+ -$(CMP) $(srcdir)/litoct.ok _$@ && rm -f _$@
+
+gensub::
+ @$(AWK) -f $(srcdir)/gensub.awk $(srcdir)/gensub.in >_$@
+ -$(CMP) $(srcdir)/gensub.ok _$@ && rm -f _$@
+
+resplit::
+ @echo a:b:c d:e:f | $(AWK) '{ FS = ":"; $$0 = $$0; print $$2 }' > _$@
+ -$(CMP) $(srcdir)/resplit.ok _$@ && rm -f _$@
+
+rswhite::
+ @$(AWK) -f $(srcdir)/rswhite.awk $(srcdir)/rswhite.in > _$@
+ -$(CMP) $(srcdir)/rswhite.ok _$@ && rm -f _$@
+
+prmarscl::
+ @-AWKPATH=$(srcdir) $(AWK) -f prmarscl.awk > _$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/prmarscl.ok _$@ && rm -f _$@
+
+sclforin::
+ @-AWKPATH=$(srcdir) $(AWK) -f sclforin.awk > _$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/sclforin.ok _$@ && rm -f _$@
+
+sclifin::
+ @-AWKPATH=$(srcdir) $(AWK) -f sclifin.awk > _$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/sclifin.ok _$@ && rm -f _$@
+
+intprec::
+ @-$(AWK) -f $(srcdir)/intprec.awk > _$@ 2>&1
+ -$(CMP) $(srcdir)/intprec.ok _$@ && rm -f _$@
+
+childin::
+ @echo hi | $(AWK) 'BEGIN { "cat" | getline; print; close("cat") }' > _$@
+ -$(CMP) $(srcdir)/childin.ok _$@ && rm -f _$@
+
+noeffect::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f noeffect.awk > _$@ 2>&1
+ -$(CMP) $(srcdir)/noeffect.ok _$@ && rm -f _$@
+
+numsubstr::
+ @-AWKPATH=$(srcdir) $(AWK) -f numsubstr.awk $(srcdir)/numsubstr.in >_$@
+ -$(CMP) $(srcdir)/numsubstr.ok _$@ && rm -f _$@
+
+gnureops::
+ @$(AWK) -f $(srcdir)/gnureops.awk >_$@
+ -$(CMP) $(srcdir)/gnureops.ok _$@ && rm -f _$@
+
+pcntplus::
+ @$(AWK) -f $(srcdir)/pcntplus.awk >_$@
+ -$(CMP) $(srcdir)/pcntplus.ok _$@ && rm -f _$@
+
+prmreuse::
+ @$(AWK) -f $(srcdir)/prmreuse.awk >_$@
+ -$(CMP) $(srcdir)/prmreuse.ok _$@ && rm -f _$@
+
+math::
+ @$(AWK) -f $(srcdir)/math.awk >_$@
+ -$(CMP) $(srcdir)/math.ok _$@ && rm -f _$@
+
+fflush::
+ @$(srcdir)/fflush.sh >_$@
+ -$(CMP) $(srcdir)/fflush.ok _$@ && rm -f _$@
+
+fldchg::
+ @$(AWK) -f $(srcdir)/fldchg.awk $(srcdir)/fldchg.in >_$@
+ -$(CMP) $(srcdir)/fldchg.ok _$@ && rm -f _$@
+
+fldchgnf::
+ @$(AWK) -f $(srcdir)/fldchgnf.awk $(srcdir)/fldchgnf.in >_$@
+ -$(CMP) $(srcdir)/fldchgnf.ok _$@ && rm -f _$@
+
+reindops::
+ @$(AWK) -f $(srcdir)/reindops.awk $(srcdir)/reindops.in >_$@
+ -$(CMP) $(srcdir)/reindops.ok _$@ && rm -f _$@
+
+sprintfc::
+ @$(AWK) -f $(srcdir)/sprintfc.awk $(srcdir)/sprintfc.in >_$@
+ -$(CMP) $(srcdir)/sprintfc.ok _$@ && rm -f _$@
+
+getlnhd::
+ @$(AWK) -f $(srcdir)/getlnhd.awk >_$@
+ -$(CMP) $(srcdir)/getlnhd.ok _$@ && rm -f _$@
+
+backgsub::
+ @$(AWK) -f $(srcdir)/backgsub.awk $(srcdir)/backgsub.in >_$@
+ -$(CMP) $(srcdir)/backgsub.ok _$@ && rm -f _$@
+
+tweakfld::
+ @$(AWK) -f $(srcdir)/tweakfld.awk $(srcdir)/tweakfld.in >_$@
+ @rm -f errors.cleanup
+ -$(CMP) $(srcdir)/tweakfld.ok _$@ && rm -f _$@
+
+clsflnam::
+ @$(AWK) -f $(srcdir)/clsflnam.awk $(srcdir)/clsflnam.in >_$@ 2>&1
+ -$(CMP) $(srcdir)/clsflnam.ok _$@ && rm -f _$@
+
+mmap8k::
+ @$(AWK) '{ print }' $(srcdir)/mmap8k.in >_$@
+ -$(CMP) $(srcdir)/mmap8k.in _$@ && rm -f _$@
+
+fnarray::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnarray.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnarray.ok _$@ && rm -f _$@
+
+dynlj::
+ @$(AWK) -f $(srcdir)/dynlj.awk >_$@
+ -$(CMP) $(srcdir)/dynlj.ok _$@ && rm -f _$@
+
+substr::
+ @$(AWK) -f $(srcdir)/substr.awk >_$@
+ -$(CMP) $(srcdir)/substr.ok _$@ && rm -f _$@
+
+eofsplit::
+ @$(AWK) -f $(srcdir)/eofsplit.awk >_$@
+ -$(CMP) $(srcdir)/eofsplit.ok _$@ && rm -f _$@
+
+prt1eval::
+ @$(AWK) -f $(srcdir)/prt1eval.awk >_$@
+ -$(CMP) $(srcdir)/prt1eval.ok _$@ && rm -f _$@
+
+gsubasgn::
+ @-AWKPATH=$(srcdir) $(AWK) -f gsubasgn.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/gsubasgn.ok _$@ && rm -f _$@
+
+prtoeval::
+ @$(AWK) -f $(srcdir)/prtoeval.awk >_$@
+ -$(CMP) $(srcdir)/prtoeval.ok _$@ && rm -f _$@
+
+gsubtest::
+ @$(AWK) -f $(srcdir)/gsubtest.awk >_$@
+ -$(CMP) $(srcdir)/gsubtest.ok _$@ && rm -f _$@
+
+splitwht::
+ @$(AWK) -f $(srcdir)/splitwht.awk >_$@
+ -$(CMP) $(srcdir)/splitwht.ok _$@ && rm -f _$@
+
+back89::
+ @$(AWK) '/a\8b/' $(srcdir)/back89.in >_$@
+ -$(CMP) $(srcdir)/back89.ok _$@ && rm -f _$@
+
+tradanch::
+ @$(AWK) --traditional -f $(srcdir)/tradanch.awk $(srcdir)/tradanch.in >_$@
+ -$(CMP) $(srcdir)/tradanch.ok _$@ && rm -f _$@
+
+nlfldsep::
+ @$(AWK) -f $(srcdir)/nlfldsep.awk $(srcdir)/nlfldsep.in > _$@
+ -$(CMP) $(srcdir)/nlfldsep.ok _$@ && rm -f _$@
+
+splitvar::
+ @$(AWK) -f $(srcdir)/splitvar.awk $(srcdir)/splitvar.in >_$@
+ -$(CMP) $(srcdir)/splitvar.ok _$@ && rm -f _$@
+
+intest::
+ @$(AWK) -f $(srcdir)/intest.awk >_$@
+ -$(CMP) $(srcdir)/intest.ok _$@ && rm -f _$@
+
+# AIX /bin/sh exec's the last command in a list, therefore issue a ":"
+# command so that pid.sh is fork'ed as a child before being exec'ed.
+pid::
+ @AWKPATH=$(srcdir) AWK=$(AWK) $(SHELL) $(srcdir)/pid.sh $$$$ > _`basename $@` ; :
+ -$(CMP) $(srcdir)/pid.ok _`basename $@` && rm -f _`basename $@` _`basename $@`.in
+
+strftlng::
+ @TZ=UTC; export TZ; $(AWK) -f $(srcdir)/strftlng.awk >_$@
+ @if $(CMP) -s $(srcdir)/strftlng.ok _$@ ; then : ; else \
+ TZ=UTC0; export TZ; $(AWK) -f $(srcdir)/strftlng.awk >_$@ ; \
+ fi
+ -$(CMP) $(srcdir)/strftlng.ok _$@ && rm -f _$@
+
+nfldstr::
+ @echo | $(AWK) '$$1 == 0 { print "bug" }' > _$@
+ -$(CMP) $(srcdir)/nfldstr.ok _$@ && rm -f _$@
+
+nors::
+ @echo A B C D E | tr -d '\12' | $(AWK) '{ print $$NF }' - $(srcdir)/nors.in > _$@
+ -$(CMP) $(srcdir)/nors.ok _$@ && rm -f _$@
+
+fnarydel::
+ @$(AWK) -f $(srcdir)/fnarydel.awk >_$@
+ -$(CMP) $(srcdir)/fnarydel.ok _$@ && rm -f _$@
+
+reint::
+ @$(AWK) --re-interval -f $(srcdir)/reint.awk $(srcdir)/reint.in >_$@
+ -$(CMP) $(srcdir)/reint.ok _$@ && rm -f _$@
+
+noparms::
+ @-AWKPATH=$(srcdir) $(AWK) -f noparms.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/noparms.ok _$@ && rm -f _$@
+
+pipeio1::
+ @$(AWK) -f $(srcdir)/pipeio1.awk >_$@
+ @rm -f test1 test2
+ -$(CMP) $(srcdir)/pipeio1.ok _$@ && rm -f _$@
+
+pipeio2::
+ @$(AWK) -v SRCDIR=$(srcdir) -f $(srcdir)/pipeio2.awk >_$@
+ -$(CMP) $(srcdir)/pipeio2.ok _$@ && rm -f _$@
+
+funstack::
+ @$(AWK) -f $(srcdir)/funstack.awk $(srcdir)/funstack.in >_$@
+ -$(CMP) $(srcdir)/funstack.ok _$@ && rm -f _$@
+
+clobber::
+ @$(AWK) -f $(srcdir)/clobber.awk >_$@
+ -$(CMP) $(srcdir)/clobber.ok seq && $(CMP) $(srcdir)/clobber.ok _$@ && rm -f _$@
+ @rm -f seq
+
+delarprm::
+ @$(AWK) -f $(srcdir)/delarprm.awk >_$@
+ -$(CMP) $(srcdir)/delarprm.ok _$@ && rm -f _$@
+
+prdupval::
+ @$(AWK) -f $(srcdir)/prdupval.awk $(srcdir)/prdupval.in >_$@
+ -$(CMP) $(srcdir)/prdupval.ok _$@ && rm -f _$@
+
+nondec::
+ @if grep BITOP ../config.h | grep define > /dev/null; \
+ then \
+ $(AWK) -f $(srcdir)/nondec.awk >_$@; \
+ else \
+ cp $(srcdir)/nondec.ok _$@; \
+ fi
+ -$(CMP) $(srcdir)/nondec.ok _$@ && rm -f _$@
+
+nasty::
+ @$(AWK) -f $(srcdir)/nasty.awk >_$@
+ -$(CMP) $(srcdir)/nasty.ok _$@ && rm -f _$@
+
+nasty2::
+ @$(AWK) -f $(srcdir)/nasty2.awk >_$@
+ -$(CMP) $(srcdir)/nasty2.ok _$@ && rm -f _$@
+
+zeroflag::
+ @$(AWK) -f $(srcdir)/zeroflag.awk >_$@
+ -$(CMP) $(srcdir)/zeroflag.ok _$@ && rm -f _$@
+
+getnr2tm::
+ @$(AWK) -f $(srcdir)/getnr2tm.awk $(srcdir)/getnr2tm.in >_$@
+ -$(CMP) $(srcdir)/getnr2tm.ok _$@ && rm -f _$@
+
+getnr2tb::
+ @$(AWK) -f $(srcdir)/getnr2tb.awk $(srcdir)/getnr2tb.in >_$@
+ -$(CMP) $(srcdir)/getnr2tb.ok _$@ && rm -f _$@
+
+printf1::
+ @$(AWK) -f $(srcdir)/printf1.awk >_$@
+ -$(CMP) $(srcdir)/printf1.ok _$@ && rm -f _$@
+
+funsmnam::
+ @-AWKPATH=$(srcdir) $(AWK) -f funsmnam.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/funsmnam.ok _$@ && rm -f _$@
+
+fnamedat::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnamedat.awk < $(srcdir)/fnamedat.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnamedat.ok _$@ && rm -f _$@
+
+numindex::
+ @-AWKPATH=$(srcdir) $(AWK) -f numindex.awk < $(srcdir)/numindex.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/numindex.ok _$@ && rm -f _$@
+
+subslash::
+ @-AWKPATH=$(srcdir) $(AWK) -f subslash.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/subslash.ok _$@ && rm -f _$@
+
+opasnslf::
+ @-AWKPATH=$(srcdir) $(AWK) -f opasnslf.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/opasnslf.ok _$@ && rm -f _$@
+
+opasnidx::
+ @-AWKPATH=$(srcdir) $(AWK) -f opasnidx.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/opasnidx.ok _$@ && rm -f _$@
+
+arynocls::
+ @-AWKPATH=$(srcdir) $(AWK) -v INPUT=$(srcdir)/arynocls.in -f arynocls.awk >_$@
+ -$(CMP) $(srcdir)/arynocls.ok _$@ && rm -f _$@
+
+igncdym::
+ @-AWKPATH=$(srcdir) $(AWK) -f igncdym.awk $(srcdir)/igncdym.in >_$@
+ -$(CMP) $(srcdir)/igncdym.ok _$@ && rm -f _$@
+
+getlnbuf::
+ @-AWKPATH=$(srcdir) $(AWK) -f getlnbuf.awk $(srcdir)/getlnbuf.in > _$@
+ @-AWKPATH=$(srcdir) $(AWK) -f gtlnbufv.awk $(srcdir)/getlnbuf.in > _2$@
+ -$(CMP) $(srcdir)/getlnbuf.ok _$@ && $(CMP) $(srcdir)/getlnbuf.ok _2$@ && rm -f _$@ _2$@
+
+arysubnm::
+ @-AWKPATH=$(srcdir) $(AWK) -f arysubnm.awk >_$@
+ -$(CMP) $(srcdir)/arysubnm.ok _$@ && rm -f _$@
+
+fnparydl::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnparydl.awk >_$@
+ -$(CMP) $(srcdir)/fnparydl.ok _$@ && rm -f _$@
+
+nlstrina::
+ @-AWKPATH=$(srcdir) $(AWK) -f nlstrina.awk >_$@
+ -$(CMP) $(srcdir)/nlstrina.ok _$@ && rm -f _$@
+
+octsub::
+ @-AWKPATH=$(srcdir) $(AWK) -f octsub.awk >_$@
+ -$(CMP) $(srcdir)/octsub.ok _$@ && rm -f _$@
+
+nlinstr::
+ @$(AWK) -f $(srcdir)/nlinstr.awk $(srcdir)/nlinstr.in >_$@
+ -$(CMP) $(srcdir)/nlinstr.ok _$@ && rm -f _$@
+
+ofmt::
+ @$(AWK) -f $(srcdir)/ofmt.awk $(srcdir)/ofmt.in >_$@
+ -$(CMP) $(srcdir)/ofmt.ok _$@ && rm -f _$@
+
+hsprint::
+ @$(AWK) -f $(srcdir)/hsprint.awk >_$@
+ -$(CMP) $(srcdir)/hsprint.ok _$@ && rm -f _$@
+
+fsfwfs::
+ @$(AWK) -f $(srcdir)/fsfwfs.awk $(srcdir)/fsfwfs.in >_$@
+ -$(CMP) $(srcdir)/fsfwfs.ok _$@ && rm -f _$@
+
+ofmts::
+ @$(AWK) -f $(srcdir)/ofmts.awk $(srcdir)/ofmts.in >_$@
+ -$(CMP) $(srcdir)/ofmts.ok _$@ && rm -f _$@
+
+parseme::
+ @-AWKPATH=$(srcdir) $(AWK) -f parseme.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/parseme.ok _$@ && rm -f _$@
+
+splitdef::
+ @$(AWK) -f $(srcdir)/splitdef.awk >_$@
+ -$(CMP) $(srcdir)/splitdef.ok _$@ && rm -f _$@
+
+fnaryscl::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnaryscl.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnaryscl.ok _$@ && rm -f _$@
+
+fnasgnm::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnasgnm.awk < $(srcdir)/fnasgnm.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnasgnm.ok _$@ && rm -f _$@
+
+lint::
+ @-AWKPATH=$(srcdir) $(AWK) -f lint.awk > _$@ 2>&1
+ -$(CMP) $(srcdir)/lint.ok _$@ && rm -f _$@
+
+procinfs::
+ @-$(AWK) -f $(srcdir)/procinfs.awk > _$@
+ -$(CMP) $(srcdir)/procinfs.ok _$@ && rm -f _$@
+
+sort1::
+ @-$(AWK) -f $(srcdir)/sort1.awk > _$@
+ -$(CMP) $(srcdir)/sort1.ok _$@ && rm -f _$@
+
+ofmtbig::
+ @$(AWK) -f $(srcdir)/ofmtbig.awk $(srcdir)/ofmtbig.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/ofmtbig.ok _$@ && rm -f _$@
+
+inetmesg::
+ @echo These tests only work if your system supports the services
+ @echo "'discard'" at port 9 and "'daytimed" at port 13. Check your
+ @echo file /etc/services and do "'netstat -a'".
+
+inetechu::
+ @echo This test is for establishing UDP connections
+ @$(AWK) 'BEGIN {print "" |& "/inet/udp/0/127.0.0.1/9"}'
+
+inetecht::
+ @echo This test is for establishing TCP connections
+ @$(AWK) 'BEGIN {print "" |& "/inet/tcp/0/127.0.0.1/9"}'
+
+inetdayu::
+ @echo This test is for bidirectional UDP transmission
+ @$(AWK) 'BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13"; \
+ "/inet/udp/0/127.0.0.1/13" |& getline; print $0}'
+
+inetdayt::
+ @echo This test is for bidirectional TCP transmission
+ @$(AWK) 'BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13"; \
+ "/inet/tcp/0/127.0.0.1/13" |& getline; print $0}'
+
+paramtyp::
+ @$(AWK) -f $(srcdir)/paramtyp.awk >_$@
+ -$(CMP) $(srcdir)/paramtyp.ok _$@ && rm -f _$@
+
+rsnul1nl::
+ @$(AWK) -f $(srcdir)/rsnul1nl.awk $(srcdir)/rsnul1nl.in >_$@
+ -$(CMP) $(srcdir)/rsnul1nl.ok _$@ && rm -f _$@
+
+datanonl::
+ @$(AWK) -f $(srcdir)/datanonl.awk $(srcdir)/datanonl.in >_$@
+ -$(CMP) $(srcdir)/datanonl.ok _$@ && rm -f _$@
+
+regeq::
+ @$(AWK) -f $(srcdir)/regeq.awk $(srcdir)/regeq.in >_$@
+ -$(CMP) $(srcdir)/regeq.ok _$@ && rm -f _$@
+
+redfilnm::
+ @$(AWK) -f $(srcdir)/redfilnm.awk srcdir=$(srcdir) $(srcdir)/redfilnm.in >_$@
+ -$(CMP) $(srcdir)/redfilnm.ok _$@ && rm -f _$@
+
+strtod::
+ @$(AWK) -f $(srcdir)/strtod.awk $(srcdir)/strtod.in >_$@
+ -$(CMP) $(srcdir)/strtod.ok _$@ && rm -f _$@
+
+leaddig::
+ @$(AWK) -v x=2E -f $(srcdir)/leaddig.awk >_$@
+ -$(CMP) $(srcdir)/leaddig.ok _$@ && rm -f _$@
+
+clos1way::
+ @$(AWK) -f $(srcdir)/clos1way.awk >_$@
+ -$(CMP) $(srcdir)/clos1way.ok _$@ && rm -f _$@
+
+arynasty::
+ @$(AWK) -f $(srcdir)/arynasty.awk >_$@
+ -$(CMP) $(srcdir)/arynasty.ok _$@ && rm -f _$@
+
+shadow::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f shadow.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/shadow.ok _$@ && rm -f _$@
+
+regx8bit::
+ @$(AWK) -f $(srcdir)/regx8bit.awk >_$@
+ -$(CMP) $(srcdir)/regx8bit.ok _$@ && rm -f _$@
+
+psx96sub::
+ @$(AWK) -f $(srcdir)/psx96sub.awk >_$@
+ -$(CMP) $(srcdir)/psx96sub.ok _$@ && rm -f _$@
+
+addcomma::
+ @$(AWK) -f $(srcdir)/addcomma.awk $(srcdir)/addcomma.in >_$@
+ -$(CMP) $(srcdir)/addcomma.ok _$@ && rm -f _$@
+
+gnuops2::
+ @$(AWK) -f $(srcdir)/gnuops2.awk >_$@
+ -$(CMP) $(srcdir)/gnuops2.ok _$@ && rm -f _$@
+
+rebt8b1::
+ @$(AWK) -f $(srcdir)/rebt8b1.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b1.ok _$@ && rm -f _$@
+
+rebt8b2::
+ @$(AWK) -f $(srcdir)/rebt8b2.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b2.ok _$@ && rm -f _$@
+
+leadnl::
+ @$(AWK) -f $(srcdir)/leadnl.awk $(srcdir)/leadnl.in >_$@
+ -$(CMP) $(srcdir)/leadnl.ok _$@ && rm -f _$@
+
+funsemnl::
+ @$(AWK) -f $(srcdir)/funsemnl.awk >_$@
+ -$(CMP) $(srcdir)/funsemnl.ok _$@ && rm -f _$@
+
+clean:
+ rm -fr _* core junk out1 out2 out3 strftime.ok test1 test2 seq *~
+
+# This target for my convenience to look at all the results
+diffout:
+ for i in _* ; \
+ do \
+ echo ============== $$i ============= ; \
+ diff -c $${i#_}.ok $$i ; \
+ done | more
diff --git a/test/Makefile.in b/test/Makefile.in
index 39f1dc48..a02467ee 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -1,59 +1,583 @@
-# Makefile for GNU Awk test suite.
+# Makefile.in generated automatically by automake 1.4a from Makefile.am
+
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000
+# Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+SHELL = @SHELL@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+
+bindir = @bindir@
+sbindir = @sbindir@
+libexecdir = @libexecdir@
+datadir = @datadir@
+sysconfdir = @sysconfdir@
+sharedstatedir = @sharedstatedir@
+localstatedir = @localstatedir@
+libdir = @libdir@
+infodir = @infodir@
+mandir = @mandir@
+includedir = @includedir@
+oldincludedir = /usr/include
+
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+
+top_builddir = ..
+
+ACLOCAL = @ACLOCAL@
+AUTOCONF = @AUTOCONF@
+AUTOMAKE = @AUTOMAKE@
+AUTOHEADER = @AUTOHEADER@
+
+INSTALL = @INSTALL@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_FLAG =
+transform = @program_transform_name@
+
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+
+@SET_MAKE@
+AMDEP = @AMDEP@
+AMTAR = @AMTAR@
+CATALOGS = @CATALOGS@
+CATOBJEXT = @CATOBJEXT@
+CC = @CC@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+DATADIRNAME = @DATADIRNAME@
+DEPDIR = @DEPDIR@
+GENCAT = @GENCAT@
+GMOFILES = @GMOFILES@
+GMSGFMT = @GMSGFMT@
+GT_NO = @GT_NO@
+GT_YES = @GT_YES@
+INCLUDE_LOCALE_H = @INCLUDE_LOCALE_H@
+INSTOBJEXT = @INSTOBJEXT@
+INTLDEPS = @INTLDEPS@
+INTLLIBS = @INTLLIBS@
+INTLOBJS = @INTLOBJS@
+LN_S = @LN_S@
+MAKEINFO = @MAKEINFO@
+MKINSTALLDIRS = @MKINSTALLDIRS@
+MSGFMT = @MSGFMT@
+PACKAGE = @PACKAGE@
+POFILES = @POFILES@
+POSUB = @POSUB@
+RANLIB = @RANLIB@
+SOCKET_LIBS = @SOCKET_LIBS@
+U = @U@
+USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@
+USE_NLS = @USE_NLS@
+VERSION = @VERSION@
+YACC = @YACC@
+install_sh = @install_sh@
+l = @l@
+
+#
+# test/Makefile.am --- automake input file for gawk
+#
+# Copyright (C) 1988-2001 the Free Software Foundation, Inc.
#
-# Copyright (C) 1988-2000 the Free Software Foundation, Inc.
-#
# This file is part of GAWK, the GNU implementation of the
# AWK Programming Language.
-#
+#
# GAWK is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
-#
+#
# GAWK is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
-#
+#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+#
-SHELL = /bin/sh
-AWK = ../gawk
-CMP = cmp
-
-srcdir = @srcdir@
-VPATH = @srcdir@
-
-bigtest: basic unix-tests gawk.extensions
-basic: msg swaplns messages argarray longwrds \
- getline fstabplus compare arrayref rs fsrs rand \
- fsbs negexp asgext anchgsub splitargv awkpath nfset reparse \
- convfmt arrayparm paramdup nonl defref nofmtch litoct resplit \
- rswhite prmarscl sclforin sclifin intprec childin noeffect \
- numsubstr pcntplus prmreuse math fldchg fldchgnf reindops \
- sprintfc backgsub tweakfld clsflnam mmap8k fnarray \
- dynlj substr eofsplit prt1eval gsubasgn prtoeval gsubtest splitwht \
- back89 tradanch nlfldsep splitvar intest nfldstr nors fnarydel \
- noparms funstack clobber delarprm prdupval nasty zeroflag \
- getnr2tm getnr2tb printf1 funsmnam fnamedat numindex subslash \
- opasnslf opasnidx arynocls getlnbuf arysubnm fnparydl nlstrina
+EXTRA_DIST = \
+ reg \
+ lib \
+ README \
+ addcomma.awk \
+ addcomma.in \
+ addcomma.ok \
+ anchgsub.awk \
+ anchgsub.in \
+ anchgsub.ok \
+ argarray.awk \
+ argarray.in \
+ argarray.ok \
+ argtest.awk \
+ argtest.ok \
+ arrayparm.awk \
+ arrayparm.ok \
+ arrayref.awk \
+ arrayref.ok \
+ arynasty.awk \
+ arynasty.ok \
+ arynocls.awk \
+ arynocls.in \
+ arynocls.ok \
+ arysubnm.awk \
+ arysubnm.ok \
+ asgext.awk \
+ asgext.in \
+ asgext.ok \
+ awkpath.ok \
+ back89.in \
+ back89.ok \
+ backgsub.awk \
+ backgsub.in \
+ backgsub.ok \
+ badargs.ok \
+ childin.ok \
+ clobber.awk \
+ clobber.ok \
+ clos1way.awk \
+ clos1way.ok \
+ clsflnam.awk \
+ clsflnam.in \
+ clsflnam.ok \
+ compare.awk \
+ compare.in \
+ compare.ok \
+ convfmt.awk \
+ convfmt.ok \
+ datanonl.awk \
+ datanonl.in \
+ datanonl.ok \
+ defref.awk \
+ defref.ok \
+ delarprm.awk \
+ delarprm.ok \
+ dynlj.awk \
+ dynlj.ok \
+ eofsplit.awk \
+ eofsplit.ok \
+ fflush.ok \
+ fflush.sh \
+ fieldwdth.ok \
+ fldchg.awk \
+ fldchg.in \
+ fldchg.ok \
+ fldchgnf.awk \
+ fldchgnf.in \
+ fldchgnf.ok \
+ fnamedat.awk \
+ fnamedat.in \
+ fnamedat.ok \
+ fnarray.awk \
+ fnarray.ok \
+ fnarydel.awk \
+ fnarydel.ok \
+ fnaryscl.awk \
+ fnaryscl.ok \
+ fnasgnm.awk \
+ fnasgnm.in \
+ fnasgnm.ok \
+ fnparydl.awk \
+ fnparydl.ok \
+ fsbs.in \
+ fsbs.ok \
+ fsfwfs.awk \
+ fsfwfs.in \
+ fsfwfs.ok \
+ fsrs.awk \
+ fsrs.in \
+ fsrs.ok \
+ fstabplus.awk \
+ fstabplus.ok \
+ funsemnl.awk \
+ funsemnl.ok \
+ funsmnam.awk \
+ funsmnam.ok \
+ funstack.awk \
+ funstack.in \
+ funstack.ok \
+ gensub.awk \
+ gensub.in \
+ gensub.ok \
+ getline.awk \
+ getline.ok \
+ getlnbuf.awk \
+ getlnbuf.in \
+ getlnbuf.ok \
+ getlnhd.awk \
+ getlnhd.ok \
+ getnr2tb.awk \
+ getnr2tb.in \
+ getnr2tb.ok \
+ getnr2tm.awk \
+ getnr2tm.in \
+ getnr2tm.ok \
+ gnuops2.awk \
+ gnuops2.ok \
+ gnureops.awk \
+ gnureops.ok \
+ gsubasgn.awk \
+ gsubasgn.ok \
+ gsubtest.awk \
+ gsubtest.ok \
+ gtlnbufv.awk \
+ hsprint.awk \
+ hsprint.ok \
+ igncdym.awk \
+ igncdym.in \
+ igncdym.ok \
+ igncfs.awk \
+ igncfs.in \
+ igncfs.ok \
+ ignrcase.ok \
+ inftest.awk \
+ inftest.ok \
+ intest.awk \
+ intest.ok \
+ intprec.awk \
+ intprec.ok \
+ leaddig.awk \
+ leaddig.ok \
+ leadnl.awk \
+ leadnl.in \
+ leadnl.ok \
+ lint.awk \
+ lint.ok \
+ litoct.awk \
+ litoct.ok \
+ longwrds.awk \
+ longwrds.ok \
+ manpage \
+ manyfiles.awk \
+ math.awk \
+ math.ok \
+ messages.awk \
+ mmap8k.in \
+ nasty.awk \
+ nasty.ok \
+ nasty2.awk \
+ nasty2.ok \
+ negexp.ok \
+ nfldstr.ok \
+ nfset.awk \
+ nfset.in \
+ nfset.ok \
+ nlfldsep.awk \
+ nlfldsep.in \
+ nlfldsep.ok \
+ nlinstr.awk \
+ nlinstr.in \
+ nlinstr.ok \
+ nlstrina.awk \
+ nlstrina.ok \
+ noeffect.awk \
+ noeffect.ok \
+ nofmtch.awk \
+ nofmtch.ok \
+ nondec.awk \
+ nondec.ok \
+ nonl.awk \
+ nonl.ok \
+ noparms.awk \
+ noparms.ok \
+ nors.in \
+ nors.ok \
+ numindex.awk \
+ numindex.in \
+ numindex.ok \
+ numsubstr.awk \
+ numsubstr.in \
+ numsubstr.ok \
+ octsub.awk \
+ octsub.ok \
+ ofmt.awk \
+ ofmt.in \
+ ofmt.ok \
+ ofmtbig.awk \
+ ofmtbig.in \
+ ofmtbig.ok \
+ ofmts.awk \
+ ofmts.in \
+ ofmts.ok \
+ opasnidx.awk \
+ opasnidx.ok \
+ opasnslf.awk \
+ opasnslf.ok \
+ out1.ok \
+ out2.ok \
+ out3.ok \
+ paramdup.awk \
+ paramdup.ok \
+ paramtyp.awk \
+ paramtyp.ok \
+ parseme.awk \
+ parseme.ok \
+ pcntplus.awk \
+ pcntplus.ok \
+ pid.awk \
+ pid.ok \
+ pid.sh \
+ pipeio1.awk \
+ pipeio1.ok \
+ pipeio2.awk \
+ pipeio2.in \
+ pipeio2.ok \
+ posix.awk \
+ posix.ok \
+ poundbang.awk \
+ poundbang.ok \
+ prdupval.awk \
+ prdupval.in \
+ prdupval.ok \
+ printf1.awk \
+ printf1.ok \
+ printfloat.awk \
+ prmarscl.awk \
+ prmarscl.ok \
+ prmreuse.awk \
+ prmreuse.ok \
+ procinfs.awk \
+ procinfs.ok \
+ prt1eval.awk \
+ prt1eval.ok \
+ prtoeval.awk \
+ prtoeval.ok \
+ psx96sub.awk \
+ psx96sub.ok \
+ rand.awk \
+ rand.ok \
+ rebt8b1.awk \
+ rebt8b1.ok \
+ rebt8b2.awk \
+ rebt8b2.ok \
+ redfilnm.awk \
+ redfilnm.in \
+ redfilnm.ok \
+ regeq.awk \
+ regeq.in \
+ regeq.ok \
+ regtest.sh \
+ regx8bit.awk \
+ regx8bit.ok \
+ reindops.awk \
+ reindops.in \
+ reindops.ok \
+ reint.awk \
+ reint.in \
+ reint.ok \
+ reparse.awk \
+ reparse.in \
+ reparse.ok \
+ resplit.ok \
+ rs.in \
+ rs.ok \
+ rsnul1nl.awk \
+ rsnul1nl.in \
+ rsnul1nl.ok \
+ rswhite.awk \
+ rswhite.in \
+ rswhite.ok \
+ sclforin.awk \
+ sclforin.ok \
+ sclifin.awk \
+ sclifin.ok \
+ shadow.awk \
+ shadow.ok \
+ sort1.awk \
+ sort1.ok \
+ splitargv.awk \
+ splitargv.in \
+ splitargv.ok \
+ splitdef.awk \
+ splitdef.ok \
+ splitvar.awk \
+ splitvar.in \
+ splitvar.ok \
+ splitwht.awk \
+ splitwht.ok \
+ sprintfc.awk \
+ sprintfc.in \
+ sprintfc.ok \
+ strtod.awk \
+ strtod.in \
+ strtod.ok \
+ strftime.awk \
+ strftlng.awk \
+ strftlng.ok \
+ subslash.awk \
+ subslash.ok \
+ substr.awk \
+ substr.ok \
+ swaplns.awk \
+ swaplns.in \
+ swaplns.ok \
+ tradanch.awk \
+ tradanch.in \
+ tradanch.ok \
+ tweakfld.awk \
+ tweakfld.in \
+ tweakfld.ok \
+ zeroflag.awk \
+ zeroflag.ok
-unix-tests: poundbang fflush getlnhd pipeio1 pipeio2 strftlng pid
-gawk.extensions: fieldwdth ignrcase posix manyfiles igncfs argtest \
- badargs strftime gensub gnureops reint igncdym
-# add this back for 3.1
-# nondec
+CMP = cmp
+AWK = ../gawk
+subdir = test
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = ../config.h
+CONFIG_CLEAN_FILES =
+DIST_SOURCES =
+DIST_COMMON = README ChangeLog Makefile.am Makefile.in
-extra: regtest inftest
-poundbang::
- @cp $(AWK) /tmp/gawk && $(srcdir)/poundbang $(srcdir)/poundbang >_`basename $@`
- @rm -f /tmp/gawk
- $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@`
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+
+GZIP_ENV = --best
+all: all-redirect
+.SUFFIXES:
+$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
+ cd $(top_srcdir) && $(AUTOMAKE) --gnu test/Makefile
+
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+ cd $(top_builddir) \
+ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
+
+tags: TAGS
+TAGS:
+
+
+distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
+
+distdir: $(DISTFILES)
+ @for file in $(DISTFILES); do \
+ d=$(srcdir); \
+ if test -d $$d/$$file; then \
+ cp -pR $$d/$$file $(distdir) \
+ || exit 1; \
+ else \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file \
+ || exit 1; \
+ fi; \
+ done
+info-am:
+info: info-am
+dvi-am:
+dvi: dvi-am
+check-am: all-am
+check: check-am
+installcheck-am:
+installcheck: installcheck-am
+install-exec-am:
+install-exec: install-exec-am
+
+install-data-am:
+install-data: install-data-am
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+install: install-am
+uninstall-am:
+uninstall: uninstall-am
+all-am: Makefile
+all-redirect: all-am
+install-strip:
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_STRIP_FLAG=-s install
+installdirs:
+
+
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+ -rm -f Makefile $(CONFIG_CLEAN_FILES)
+ -rm -f config.cache config.log stamp-h stamp-h[0-9]*
+
+maintainer-clean-generic:
+ -rm -f Makefile.in
+mostlyclean-am: mostlyclean-generic
+
+mostlyclean: mostlyclean-am
+
+clean-am: clean-generic mostlyclean-am
+
+clean: clean-am
+
+distclean-am: distclean-generic clean-am
+
+distclean: distclean-am
+
+maintainer-clean-am: maintainer-clean-generic distclean-am
+ @echo "This command is intended for maintainers to use;"
+ @echo "it deletes files that may require special tools to rebuild."
+
+maintainer-clean: maintainer-clean-am
+
+.PHONY: tags distdir info-am info dvi-am dvi check check-am \
+installcheck-am installcheck install-exec-am install-exec \
+install-data-am install-data install-am install uninstall-am uninstall \
+all-redirect all-am all install-strip installdirs mostlyclean-generic \
+distclean-generic clean-generic maintainer-clean-generic clean \
+mostlyclean distclean maintainer-clean
+
+
+# message stuff is to make it a little easier to follow
+check: msg \
+ basic-msg-start basic basic-msg-end \
+ unix-msg-start unix-tests unix-msg-end \
+ extend-msg-start gawk-extensions extend-msg-end
+
+# try to keep these sorted
+basic: addcomma anchgsub argarray arrayparm arrayref arynasty arynocls \
+ arysubnm asgext awkpath back89 backgsub childin clobber clsflnam \
+ compare convfmt datanonl defref delarprm dynlj eofsplit fldchg \
+ fldchgnf fnamedat fnarray fnarydel fnaryscl fnasgnm fnparydl \
+ fsbs fsrs fstabplus funsemnl funsmnam funstack getline getlnbuf getnr2tb \
+ getnr2tm gsubasgn gsubtest hsprint intest intprec leaddig leadnl litoct \
+ longwrds math messages mmap8k nasty nasty2 negexp nfldstr nfset \
+ nlfldsep nlinstr nlstrina noeffect nofmtch nonl noparms nors \
+ numindex numsubstr octsub ofmt ofmtbig ofmts opasnidx opasnslf \
+ paramdup paramtyp parseme pcntplus prdupval printf1 prmarscl \
+ prmreuse prt1eval prtoeval psx96sub rand rebt8b1 rebt8b2 redfilnm \
+ regeq reindops reparse resplit rs rsnul1nl rswhite sclforin \
+ sclifin splitargv splitdef splitvar splitwht sprintfc strtod \
+ subslash substr swaplns tradanch tweakfld zeroflag
+
+unix-tests: fflush getlnhd pid pipeio1 pipeio2 poundbang strftlng
+
+gawk-extensions: argtest badargs clos1way fieldwdth fsfwfs gensub \
+ gnuops2 gnureops igncdym igncfs ignrcase lint manyfiles nondec \
+ posix procinfs regx8bit reint shadow sort1 strftime
+
+extra: regtest inftest inet
+
+inet: inetmesg inetechu inetecht inetdayu inetdayt
msg::
@echo 'Any output from "cmp" is bad news, although some differences'
@@ -61,16 +585,44 @@ msg::
@echo 'some systems may omit a leading zero and the floating point'
@echo 'precision may lead to slightly different output in a few cases.'
+basic-msg-start:
+ @echo "======== Starting basic tests ========"
+
+basic-msg-end:
+ @echo "======== Done with basic tests ========"
+
+unix-msg-start:
+ @echo "======== Starting Unix tests ========"
+
+unix-msg-end:
+ @echo "======== Done with Unix tests ========"
+
+extend-msg-start:
+ @echo "======== Starting gawk extension tests ========"
+
+extend-msg-end:
+ @echo "======== Done with gawk extension tests ========"
+
+# This test is a PITA because increasingly, /tmp is getting
+# mounted noexec. So, we'll test it. Sigh.
+poundbang::
+ @cp $(AWK) /tmp/gawk
+ @if /tmp/gawk 'BEGIN { print "OK" }' | grep OK > /dev/null ; \
+ then \
+ $(srcdir)/poundbang.awk $(srcdir)/poundbang.awk >_`basename $@` ; \
+ $(CMP) $(srcdir)/poundbang.ok _`basename $@` && rm -f _`basename $@` && echo poundbang is ok ; \
+ else \
+ echo "*** /tmp is apparently mounted noexec, skipping poundbang test." ; \
+ fi
+ @rm -f /tmp/gawk
+
swaplns::
@$(AWK) -f $(srcdir)/swaplns.awk $(srcdir)/swaplns.in >_$@
- $(CMP) $(srcdir)/swaplns.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/swaplns.ok _$@ && rm -f _$@
messages::
@$(AWK) -f $(srcdir)/messages.awk >out2 2>out3
- { $(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && \
- $(CMP) $(srcdir)/out3.ok out3 && rm -f out1 out2 out3; } || \
- { { test -d /dev/fd || test -d /proc/self/fd; } && \
- echo IT IS OK THAT THIS TEST FAILED; }
+ -$(CMP) $(srcdir)/out1.ok out1 && $(CMP) $(srcdir)/out2.ok out2 && $(CMP) $(srcdir)/out3.ok out3 && rm -f out1 out2 out3
argarray::
@case $(srcdir) in \
@@ -78,41 +630,41 @@ argarray::
*) cp $(srcdir)/argarray.in . ;; \
esac
@TEST=test echo just a test | $(AWK) -f $(srcdir)/argarray.awk ./argarray.in - >_$@
- $(CMP) $(srcdir)/argarray.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/argarray.ok _$@ && rm -f _$@
fstabplus::
@echo '1 2' | $(AWK) -f $(srcdir)/fstabplus.awk >_$@
- $(CMP) $(srcdir)/fstabplus.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fstabplus.ok _$@ && rm -f _$@
fsrs::
@$(AWK) -f $(srcdir)/fsrs.awk $(srcdir)/fsrs.in >_$@
- $(CMP) $(srcdir)/fsrs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fsrs.ok _$@ && rm -f _$@
igncfs::
@$(AWK) -f $(srcdir)/igncfs.awk $(srcdir)/igncfs.in >_$@
- $(CMP) $(srcdir)/igncfs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/igncfs.ok _$@ && rm -f _$@
longwrds::
@$(AWK) -f $(srcdir)/longwrds.awk $(srcdir)/manpage | (LC_ALL=C sort) >_$@
- $(CMP) $(srcdir)/longwrds.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/longwrds.ok _$@ && rm -f _$@
fieldwdth::
@echo '123456789' | $(AWK) -v FIELDWIDTHS="2 3 4" '{ print $$2}' >_$@
- $(CMP) $(srcdir)/fieldwdth.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fieldwdth.ok _$@ && rm -f _$@
ignrcase::
@echo xYz | $(AWK) -v IGNORECASE=1 '{ sub(/y/, ""); print}' >_$@
- $(CMP) $(srcdir)/ignrcase.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/ignrcase.ok _$@ && rm -f _$@
regtest::
@echo 'Some of the output from regtest is very system specific, do not'
@echo 'be distressed if your output differs from that distributed.'
@echo 'Manual inspection is called for.'
- AWK=`pwd`/$(AWK) $(srcdir)/regtest
+ AWK=`pwd`/$(AWK) $(srcdir)/regtest.awk
posix::
@echo '1:2,3 4' | $(AWK) -f $(srcdir)/posix.awk >_$@
- $(CMP) $(srcdir)/posix.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/posix.ok _$@ && rm -f _$@
manyfiles::
@rm -rf junk
@@ -125,315 +677,315 @@ manyfiles::
compare::
@$(AWK) -f $(srcdir)/compare.awk 0 1 $(srcdir)/compare.in >_$@
- $(CMP) $(srcdir)/compare.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/compare.ok _$@ && rm -f _$@
arrayref::
@$(AWK) -f $(srcdir)/arrayref.awk >_$@
- $(CMP) $(srcdir)/arrayref.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arrayref.ok _$@ && rm -f _$@
rs::
@$(AWK) -v RS="" '{ print $$1, $$2}' $(srcdir)/rs.in >_$@
- $(CMP) $(srcdir)/rs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rs.ok _$@ && rm -f _$@
fsbs::
@$(AWK) -v FS='\' '{ print $$1, $$2 }' $(srcdir)/fsbs.in >_$@
- $(CMP) $(srcdir)/fsbs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fsbs.ok _$@ && rm -f _$@
inftest::
@echo This test is very machine specific...
@$(AWK) -f $(srcdir)/inftest.awk >_$@
- $(CMP) $(srcdir)/inftest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/inftest.ok _$@ && rm -f _$@
getline::
@$(AWK) -f $(srcdir)/getline.awk $(srcdir)/getline.awk $(srcdir)/getline.awk >_$@
- $(CMP) $(srcdir)/getline.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getline.ok _$@ && rm -f _$@
rand::
@$(AWK) -f $(srcdir)/rand.awk >_$@
- $(CMP) $(srcdir)/rand.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rand.ok _$@ && rm -f _$@
negexp::
@$(AWK) 'BEGIN { a = -2; print 10^a }' >_$@
- $(CMP) $(srcdir)/negexp.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/negexp.ok _$@ && rm -f _$@
asgext::
@$(AWK) -f $(srcdir)/asgext.awk $(srcdir)/asgext.in >_$@
- $(CMP) $(srcdir)/asgext.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/asgext.ok _$@ && rm -f _$@
anchgsub::
@$(AWK) -f $(srcdir)/anchgsub.awk $(srcdir)/anchgsub.in >_$@
- $(CMP) $(srcdir)/anchgsub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/anchgsub.ok _$@ && rm -f _$@
splitargv::
@$(AWK) -f $(srcdir)/splitargv.awk $(srcdir)/splitargv.in >_$@
- $(CMP) $(srcdir)/splitargv.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitargv.ok _$@ && rm -f _$@
awkpath::
@AWKPATH="$(srcdir):$(srcdir)/lib" $(AWK) -f awkpath.awk >_$@
- $(CMP) $(srcdir)/awkpath.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/awkpath.ok _$@ && rm -f _$@
nfset::
@$(AWK) -f $(srcdir)/nfset.awk $(srcdir)/nfset.in >_$@
- $(CMP) $(srcdir)/nfset.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nfset.ok _$@ && rm -f _$@
reparse::
@$(AWK) -f $(srcdir)/reparse.awk $(srcdir)/reparse.in >_$@
- $(CMP) $(srcdir)/reparse.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reparse.ok _$@ && rm -f _$@
argtest::
@$(AWK) -f $(srcdir)/argtest.awk -x -y abc >_$@
- $(CMP) $(srcdir)/argtest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/argtest.ok _$@ && rm -f _$@
badargs::
@-$(AWK) -f 2>&1 | grep -v patchlevel >_$@
- $(CMP) $(srcdir)/badargs.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/badargs.ok _$@ && rm -f _$@
convfmt::
@$(AWK) -f $(srcdir)/convfmt.awk >_$@
- $(CMP) $(srcdir)/convfmt.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/convfmt.ok _$@ && rm -f _$@
arrayparm::
@-AWKPATH=$(srcdir) $(AWK) -f arrayparm.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/arrayparm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arrayparm.ok _$@ && rm -f _$@
paramdup::
@-AWKPATH=$(srcdir) $(AWK) -f paramdup.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/paramdup.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/paramdup.ok _$@ && rm -f _$@
nonl::
@-AWKPATH=$(srcdir) $(AWK) --lint -f nonl.awk /dev/null >_$@ 2>&1
- $(CMP) $(srcdir)/nonl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nonl.ok _$@ && rm -f _$@
defref::
@-AWKPATH=$(srcdir) $(AWK) --lint -f defref.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/defref.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/defref.ok _$@ && rm -f _$@
nofmtch::
@-AWKPATH=$(srcdir) $(AWK) --lint -f nofmtch.awk >_$@ 2>&1
- $(CMP) $(srcdir)/nofmtch.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nofmtch.ok _$@ && rm -f _$@
strftime::
: this test could fail on slow machines or on a second boundary,
: so if it does, double check the actual results
@LC_ALL=C; export LC_ALL; LANG=C; export LANG; \
date | $(AWK) -v OUTPUT=_$@ -f $(srcdir)/strftime.awk
- $(CMP) strftime.ok _$@ && rm -f _$@ strftime.ok || exit 0
+ -$(CMP) strftime.ok _$@ && rm -f _$@ strftime.ok || exit 0
litoct::
@echo ab | $(AWK) --traditional -f $(srcdir)/litoct.awk >_$@
- $(CMP) $(srcdir)/litoct.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/litoct.ok _$@ && rm -f _$@
gensub::
@$(AWK) -f $(srcdir)/gensub.awk $(srcdir)/gensub.in >_$@
- $(CMP) $(srcdir)/gensub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gensub.ok _$@ && rm -f _$@
resplit::
@echo a:b:c d:e:f | $(AWK) '{ FS = ":"; $$0 = $$0; print $$2 }' > _$@
- $(CMP) $(srcdir)/resplit.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/resplit.ok _$@ && rm -f _$@
rswhite::
@$(AWK) -f $(srcdir)/rswhite.awk $(srcdir)/rswhite.in > _$@
- $(CMP) $(srcdir)/rswhite.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/rswhite.ok _$@ && rm -f _$@
prmarscl::
@-AWKPATH=$(srcdir) $(AWK) -f prmarscl.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/prmarscl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prmarscl.ok _$@ && rm -f _$@
sclforin::
@-AWKPATH=$(srcdir) $(AWK) -f sclforin.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/sclforin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sclforin.ok _$@ && rm -f _$@
sclifin::
@-AWKPATH=$(srcdir) $(AWK) -f sclifin.awk > _$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/sclifin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sclifin.ok _$@ && rm -f _$@
intprec::
@-$(AWK) -f $(srcdir)/intprec.awk > _$@ 2>&1
- $(CMP) $(srcdir)/intprec.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/intprec.ok _$@ && rm -f _$@
childin::
@echo hi | $(AWK) 'BEGIN { "cat" | getline; print; close("cat") }' > _$@
- $(CMP) $(srcdir)/childin.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/childin.ok _$@ && rm -f _$@
noeffect::
@-AWKPATH=$(srcdir) $(AWK) --lint -f noeffect.awk > _$@ 2>&1
- $(CMP) $(srcdir)/noeffect.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/noeffect.ok _$@ && rm -f _$@
numsubstr::
@-AWKPATH=$(srcdir) $(AWK) -f numsubstr.awk $(srcdir)/numsubstr.in >_$@
- $(CMP) $(srcdir)/numsubstr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/numsubstr.ok _$@ && rm -f _$@
gnureops::
@$(AWK) -f $(srcdir)/gnureops.awk >_$@
- $(CMP) $(srcdir)/gnureops.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gnureops.ok _$@ && rm -f _$@
pcntplus::
@$(AWK) -f $(srcdir)/pcntplus.awk >_$@
- $(CMP) $(srcdir)/pcntplus.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/pcntplus.ok _$@ && rm -f _$@
prmreuse::
@$(AWK) -f $(srcdir)/prmreuse.awk >_$@
- $(CMP) $(srcdir)/prmreuse.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prmreuse.ok _$@ && rm -f _$@
math::
@$(AWK) -f $(srcdir)/math.awk >_$@
- $(CMP) $(srcdir)/math.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/math.ok _$@ && rm -f _$@
fflush::
@$(srcdir)/fflush.sh >_$@
- $(CMP) $(srcdir)/fflush.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fflush.ok _$@ && rm -f _$@
fldchg::
@$(AWK) -f $(srcdir)/fldchg.awk $(srcdir)/fldchg.in >_$@
- $(CMP) $(srcdir)/fldchg.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fldchg.ok _$@ && rm -f _$@
fldchgnf::
@$(AWK) -f $(srcdir)/fldchgnf.awk $(srcdir)/fldchgnf.in >_$@
- $(CMP) $(srcdir)/fldchgnf.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fldchgnf.ok _$@ && rm -f _$@
reindops::
@$(AWK) -f $(srcdir)/reindops.awk $(srcdir)/reindops.in >_$@
- $(CMP) $(srcdir)/reindops.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reindops.ok _$@ && rm -f _$@
sprintfc::
@$(AWK) -f $(srcdir)/sprintfc.awk $(srcdir)/sprintfc.in >_$@
- $(CMP) $(srcdir)/sprintfc.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/sprintfc.ok _$@ && rm -f _$@
getlnhd::
@$(AWK) -f $(srcdir)/getlnhd.awk >_$@
- $(CMP) $(srcdir)/getlnhd.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getlnhd.ok _$@ && rm -f _$@
backgsub::
@$(AWK) -f $(srcdir)/backgsub.awk $(srcdir)/backgsub.in >_$@
- $(CMP) $(srcdir)/backgsub.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/backgsub.ok _$@ && rm -f _$@
tweakfld::
@$(AWK) -f $(srcdir)/tweakfld.awk $(srcdir)/tweakfld.in >_$@
@rm -f errors.cleanup
- $(CMP) $(srcdir)/tweakfld.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/tweakfld.ok _$@ && rm -f _$@
clsflnam::
- @$(AWK) -f $(srcdir)/clsflnam.awk $(srcdir)/clsflnam.in >_$@
- $(CMP) $(srcdir)/clsflnam.ok _$@ && rm -f _$@
+ @$(AWK) -f $(srcdir)/clsflnam.awk $(srcdir)/clsflnam.in >_$@ 2>&1
+ -$(CMP) $(srcdir)/clsflnam.ok _$@ && rm -f _$@
mmap8k::
@$(AWK) '{ print }' $(srcdir)/mmap8k.in >_$@
- $(CMP) $(srcdir)/mmap8k.in _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/mmap8k.in _$@ && rm -f _$@
fnarray::
@-AWKPATH=$(srcdir) $(AWK) -f fnarray.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/fnarray.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnarray.ok _$@ && rm -f _$@
dynlj::
@$(AWK) -f $(srcdir)/dynlj.awk >_$@
- $(CMP) $(srcdir)/dynlj.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/dynlj.ok _$@ && rm -f _$@
substr::
@$(AWK) -f $(srcdir)/substr.awk >_$@
- $(CMP) $(srcdir)/substr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/substr.ok _$@ && rm -f _$@
eofsplit::
@$(AWK) -f $(srcdir)/eofsplit.awk >_$@
- $(CMP) $(srcdir)/eofsplit.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/eofsplit.ok _$@ && rm -f _$@
prt1eval::
@$(AWK) -f $(srcdir)/prt1eval.awk >_$@
- $(CMP) $(srcdir)/prt1eval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prt1eval.ok _$@ && rm -f _$@
gsubasgn::
@-AWKPATH=$(srcdir) $(AWK) -f gsubasgn.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/gsubasgn.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gsubasgn.ok _$@ && rm -f _$@
prtoeval::
@$(AWK) -f $(srcdir)/prtoeval.awk >_$@
- $(CMP) $(srcdir)/prtoeval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prtoeval.ok _$@ && rm -f _$@
gsubtest::
@$(AWK) -f $(srcdir)/gsubtest.awk >_$@
- $(CMP) $(srcdir)/gsubtest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/gsubtest.ok _$@ && rm -f _$@
splitwht::
@$(AWK) -f $(srcdir)/splitwht.awk >_$@
- $(CMP) $(srcdir)/splitwht.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitwht.ok _$@ && rm -f _$@
back89::
@$(AWK) '/a\8b/' $(srcdir)/back89.in >_$@
- $(CMP) $(srcdir)/back89.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/back89.ok _$@ && rm -f _$@
tradanch::
@$(AWK) --traditional -f $(srcdir)/tradanch.awk $(srcdir)/tradanch.in >_$@
- $(CMP) $(srcdir)/tradanch.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/tradanch.ok _$@ && rm -f _$@
nlfldsep::
@$(AWK) -f $(srcdir)/nlfldsep.awk $(srcdir)/nlfldsep.in > _$@
- $(CMP) $(srcdir)/nlfldsep.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nlfldsep.ok _$@ && rm -f _$@
splitvar::
@$(AWK) -f $(srcdir)/splitvar.awk $(srcdir)/splitvar.in >_$@
- $(CMP) $(srcdir)/splitvar.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/splitvar.ok _$@ && rm -f _$@
intest::
@$(AWK) -f $(srcdir)/intest.awk >_$@
- $(CMP) $(srcdir)/intest.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/intest.ok _$@ && rm -f _$@
# AIX /bin/sh exec's the last command in a list, therefore issue a ":"
# command so that pid.sh is fork'ed as a child before being exec'ed.
pid::
@AWKPATH=$(srcdir) AWK=$(AWK) $(SHELL) $(srcdir)/pid.sh $$$$ > _`basename $@` ; :
- $(CMP) $(srcdir)/pid.ok _`basename $@` && rm -f _`basename $@` _`basename $@`.in
+ -$(CMP) $(srcdir)/pid.ok _`basename $@` && rm -f _`basename $@` _`basename $@`.in
strftlng::
@TZ=UTC; export TZ; $(AWK) -f $(srcdir)/strftlng.awk >_$@
@if $(CMP) -s $(srcdir)/strftlng.ok _$@ ; then : ; else \
- TZ=UTC0; export TZ; $(AWK) -f $(srcdir)/strftlng.awk >_$@ ; \
+ TZ=UTC0; export TZ; $(AWK) -f $(srcdir)/strftlng.awk >_$@ ; \
fi
- $(CMP) $(srcdir)/strftlng.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/strftlng.ok _$@ && rm -f _$@
nfldstr::
@echo | $(AWK) '$$1 == 0 { print "bug" }' > _$@
- $(CMP) $(srcdir)/nfldstr.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nfldstr.ok _$@ && rm -f _$@
nors::
@echo A B C D E | tr -d '\12' | $(AWK) '{ print $$NF }' - $(srcdir)/nors.in > _$@
- $(CMP) $(srcdir)/nors.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nors.ok _$@ && rm -f _$@
fnarydel::
@$(AWK) -f $(srcdir)/fnarydel.awk >_$@
- $(CMP) $(srcdir)/fnarydel.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnarydel.ok _$@ && rm -f _$@
reint::
@$(AWK) --re-interval -f $(srcdir)/reint.awk $(srcdir)/reint.in >_$@
- $(CMP) $(srcdir)/reint.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/reint.ok _$@ && rm -f _$@
noparms::
@-AWKPATH=$(srcdir) $(AWK) -f noparms.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/noparms.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/noparms.ok _$@ && rm -f _$@
pipeio1::
@$(AWK) -f $(srcdir)/pipeio1.awk >_$@
@rm -f test1 test2
- $(CMP) $(srcdir)/pipeio1.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/pipeio1.ok _$@ && rm -f _$@
pipeio2::
@$(AWK) -v SRCDIR=$(srcdir) -f $(srcdir)/pipeio2.awk >_$@
- $(CMP) $(srcdir)/pipeio2.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/pipeio2.ok _$@ && rm -f _$@
funstack::
@$(AWK) -f $(srcdir)/funstack.awk $(srcdir)/funstack.in >_$@
- $(CMP) $(srcdir)/funstack.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/funstack.ok _$@ && rm -f _$@
clobber::
@$(AWK) -f $(srcdir)/clobber.awk >_$@
- $(CMP) $(srcdir)/clobber.ok seq && $(CMP) $(srcdir)/clobber.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/clobber.ok seq && $(CMP) $(srcdir)/clobber.ok _$@ && rm -f _$@
@rm -f seq
delarprm::
@$(AWK) -f $(srcdir)/delarprm.awk >_$@
- $(CMP) $(srcdir)/delarprm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/delarprm.ok _$@ && rm -f _$@
prdupval::
@$(AWK) -f $(srcdir)/prdupval.awk $(srcdir)/prdupval.in >_$@
- $(CMP) $(srcdir)/prdupval.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/prdupval.ok _$@ && rm -f _$@
nondec::
@if grep BITOP ../config.h | grep define > /dev/null; \
@@ -442,81 +994,243 @@ nondec::
else \
cp $(srcdir)/nondec.ok _$@; \
fi
- $(CMP) $(srcdir)/nondec.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nondec.ok _$@ && rm -f _$@
nasty::
@$(AWK) -f $(srcdir)/nasty.awk >_$@
- $(CMP) $(srcdir)/nasty.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nasty.ok _$@ && rm -f _$@
+
+nasty2::
+ @$(AWK) -f $(srcdir)/nasty2.awk >_$@
+ -$(CMP) $(srcdir)/nasty2.ok _$@ && rm -f _$@
zeroflag::
@$(AWK) -f $(srcdir)/zeroflag.awk >_$@
- $(CMP) $(srcdir)/zeroflag.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/zeroflag.ok _$@ && rm -f _$@
getnr2tm::
@$(AWK) -f $(srcdir)/getnr2tm.awk $(srcdir)/getnr2tm.in >_$@
- $(CMP) $(srcdir)/getnr2tm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getnr2tm.ok _$@ && rm -f _$@
getnr2tb::
@$(AWK) -f $(srcdir)/getnr2tb.awk $(srcdir)/getnr2tb.in >_$@
- $(CMP) $(srcdir)/getnr2tb.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/getnr2tb.ok _$@ && rm -f _$@
printf1::
@$(AWK) -f $(srcdir)/printf1.awk >_$@
- $(CMP) $(srcdir)/printf1.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/printf1.ok _$@ && rm -f _$@
funsmnam::
@-AWKPATH=$(srcdir) $(AWK) -f funsmnam.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/funsmnam.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/funsmnam.ok _$@ && rm -f _$@
fnamedat::
@-AWKPATH=$(srcdir) $(AWK) -f fnamedat.awk < $(srcdir)/fnamedat.in >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/fnamedat.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnamedat.ok _$@ && rm -f _$@
numindex::
@-AWKPATH=$(srcdir) $(AWK) -f numindex.awk < $(srcdir)/numindex.in >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/numindex.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/numindex.ok _$@ && rm -f _$@
subslash::
@-AWKPATH=$(srcdir) $(AWK) -f subslash.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/subslash.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/subslash.ok _$@ && rm -f _$@
opasnslf::
@-AWKPATH=$(srcdir) $(AWK) -f opasnslf.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/opasnslf.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/opasnslf.ok _$@ && rm -f _$@
opasnidx::
@-AWKPATH=$(srcdir) $(AWK) -f opasnidx.awk >_$@ 2>&1 || exit 0
- $(CMP) $(srcdir)/opasnidx.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/opasnidx.ok _$@ && rm -f _$@
arynocls::
@-AWKPATH=$(srcdir) $(AWK) -v INPUT=$(srcdir)/arynocls.in -f arynocls.awk >_$@
- $(CMP) $(srcdir)/arynocls.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arynocls.ok _$@ && rm -f _$@
igncdym::
@-AWKPATH=$(srcdir) $(AWK) -f igncdym.awk $(srcdir)/igncdym.in >_$@
- $(CMP) $(srcdir)/igncdym.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/igncdym.ok _$@ && rm -f _$@
getlnbuf::
@-AWKPATH=$(srcdir) $(AWK) -f getlnbuf.awk $(srcdir)/getlnbuf.in > _$@
@-AWKPATH=$(srcdir) $(AWK) -f gtlnbufv.awk $(srcdir)/getlnbuf.in > _2$@
- $(CMP) $(srcdir)/getlnbuf.ok _$@ && $(CMP) $(srcdir)/getlnbuf.ok _2$@ && rm -f _$@ _2$@
+ -$(CMP) $(srcdir)/getlnbuf.ok _$@ && $(CMP) $(srcdir)/getlnbuf.ok _2$@ && rm -f _$@ _2$@
arysubnm::
@-AWKPATH=$(srcdir) $(AWK) -f arysubnm.awk >_$@
- $(CMP) $(srcdir)/arysubnm.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/arysubnm.ok _$@ && rm -f _$@
fnparydl::
@-AWKPATH=$(srcdir) $(AWK) -f fnparydl.awk >_$@
- $(CMP) $(srcdir)/fnparydl.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/fnparydl.ok _$@ && rm -f _$@
nlstrina::
@-AWKPATH=$(srcdir) $(AWK) -f nlstrina.awk >_$@
- $(CMP) $(srcdir)/nlstrina.ok _$@ && rm -f _$@
+ -$(CMP) $(srcdir)/nlstrina.ok _$@ && rm -f _$@
+
+octsub::
+ @-AWKPATH=$(srcdir) $(AWK) -f octsub.awk >_$@
+ -$(CMP) $(srcdir)/octsub.ok _$@ && rm -f _$@
+
+nlinstr::
+ @$(AWK) -f $(srcdir)/nlinstr.awk $(srcdir)/nlinstr.in >_$@
+ -$(CMP) $(srcdir)/nlinstr.ok _$@ && rm -f _$@
+
+ofmt::
+ @$(AWK) -f $(srcdir)/ofmt.awk $(srcdir)/ofmt.in >_$@
+ -$(CMP) $(srcdir)/ofmt.ok _$@ && rm -f _$@
+
+hsprint::
+ @$(AWK) -f $(srcdir)/hsprint.awk >_$@
+ -$(CMP) $(srcdir)/hsprint.ok _$@ && rm -f _$@
+
+fsfwfs::
+ @$(AWK) -f $(srcdir)/fsfwfs.awk $(srcdir)/fsfwfs.in >_$@
+ -$(CMP) $(srcdir)/fsfwfs.ok _$@ && rm -f _$@
+
+ofmts::
+ @$(AWK) -f $(srcdir)/ofmts.awk $(srcdir)/ofmts.in >_$@
+ -$(CMP) $(srcdir)/ofmts.ok _$@ && rm -f _$@
+
+parseme::
+ @-AWKPATH=$(srcdir) $(AWK) -f parseme.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/parseme.ok _$@ && rm -f _$@
+
+splitdef::
+ @$(AWK) -f $(srcdir)/splitdef.awk >_$@
+ -$(CMP) $(srcdir)/splitdef.ok _$@ && rm -f _$@
+
+fnaryscl::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnaryscl.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnaryscl.ok _$@ && rm -f _$@
+
+fnasgnm::
+ @-AWKPATH=$(srcdir) $(AWK) -f fnasgnm.awk < $(srcdir)/fnasgnm.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/fnasgnm.ok _$@ && rm -f _$@
+
+lint::
+ @-AWKPATH=$(srcdir) $(AWK) -f lint.awk > _$@ 2>&1
+ -$(CMP) $(srcdir)/lint.ok _$@ && rm -f _$@
+
+procinfs::
+ @-$(AWK) -f $(srcdir)/procinfs.awk > _$@
+ -$(CMP) $(srcdir)/procinfs.ok _$@ && rm -f _$@
+
+sort1::
+ @-$(AWK) -f $(srcdir)/sort1.awk > _$@
+ -$(CMP) $(srcdir)/sort1.ok _$@ && rm -f _$@
+
+ofmtbig::
+ @$(AWK) -f $(srcdir)/ofmtbig.awk $(srcdir)/ofmtbig.in >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/ofmtbig.ok _$@ && rm -f _$@
+
+inetmesg::
+ @echo These tests only work if your system supports the services
+ @echo "'discard'" at port 9 and "'daytimed" at port 13. Check your
+ @echo file /etc/services and do "'netstat -a'".
+
+inetechu::
+ @echo This test is for establishing UDP connections
+ @$(AWK) 'BEGIN {print "" |& "/inet/udp/0/127.0.0.1/9"}'
+
+inetecht::
+ @echo This test is for establishing TCP connections
+ @$(AWK) 'BEGIN {print "" |& "/inet/tcp/0/127.0.0.1/9"}'
+
+inetdayu::
+ @echo This test is for bidirectional UDP transmission
+ @$(AWK) 'BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13"; \
+ "/inet/udp/0/127.0.0.1/13" |& getline; print $0}'
+
+inetdayt::
+ @echo This test is for bidirectional TCP transmission
+ @$(AWK) 'BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13"; \
+ "/inet/tcp/0/127.0.0.1/13" |& getline; print $0}'
+
+paramtyp::
+ @$(AWK) -f $(srcdir)/paramtyp.awk >_$@
+ -$(CMP) $(srcdir)/paramtyp.ok _$@ && rm -f _$@
+
+rsnul1nl::
+ @$(AWK) -f $(srcdir)/rsnul1nl.awk $(srcdir)/rsnul1nl.in >_$@
+ -$(CMP) $(srcdir)/rsnul1nl.ok _$@ && rm -f _$@
+
+datanonl::
+ @$(AWK) -f $(srcdir)/datanonl.awk $(srcdir)/datanonl.in >_$@
+ -$(CMP) $(srcdir)/datanonl.ok _$@ && rm -f _$@
+
+regeq::
+ @$(AWK) -f $(srcdir)/regeq.awk $(srcdir)/regeq.in >_$@
+ -$(CMP) $(srcdir)/regeq.ok _$@ && rm -f _$@
+
+redfilnm::
+ @$(AWK) -f $(srcdir)/redfilnm.awk srcdir=$(srcdir) $(srcdir)/redfilnm.in >_$@
+ -$(CMP) $(srcdir)/redfilnm.ok _$@ && rm -f _$@
+
+strtod::
+ @$(AWK) -f $(srcdir)/strtod.awk $(srcdir)/strtod.in >_$@
+ -$(CMP) $(srcdir)/strtod.ok _$@ && rm -f _$@
+
+leaddig::
+ @$(AWK) -v x=2E -f $(srcdir)/leaddig.awk >_$@
+ -$(CMP) $(srcdir)/leaddig.ok _$@ && rm -f _$@
+
+clos1way::
+ @$(AWK) -f $(srcdir)/clos1way.awk >_$@
+ -$(CMP) $(srcdir)/clos1way.ok _$@ && rm -f _$@
+
+arynasty::
+ @$(AWK) -f $(srcdir)/arynasty.awk >_$@
+ -$(CMP) $(srcdir)/arynasty.ok _$@ && rm -f _$@
+
+shadow::
+ @-AWKPATH=$(srcdir) $(AWK) --lint -f shadow.awk >_$@ 2>&1 || exit 0
+ -$(CMP) $(srcdir)/shadow.ok _$@ && rm -f _$@
+
+regx8bit::
+ @$(AWK) -f $(srcdir)/regx8bit.awk >_$@
+ -$(CMP) $(srcdir)/regx8bit.ok _$@ && rm -f _$@
+
+psx96sub::
+ @$(AWK) -f $(srcdir)/psx96sub.awk >_$@
+ -$(CMP) $(srcdir)/psx96sub.ok _$@ && rm -f _$@
+
+addcomma::
+ @$(AWK) -f $(srcdir)/addcomma.awk $(srcdir)/addcomma.in >_$@
+ -$(CMP) $(srcdir)/addcomma.ok _$@ && rm -f _$@
+
+gnuops2::
+ @$(AWK) -f $(srcdir)/gnuops2.awk >_$@
+ -$(CMP) $(srcdir)/gnuops2.ok _$@ && rm -f _$@
+
+rebt8b1::
+ @$(AWK) -f $(srcdir)/rebt8b1.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b1.ok _$@ && rm -f _$@
+
+rebt8b2::
+ @$(AWK) -f $(srcdir)/rebt8b2.awk >_$@
+ -$(CMP) $(srcdir)/rebt8b2.ok _$@ && rm -f _$@
+
+leadnl::
+ @$(AWK) -f $(srcdir)/leadnl.awk $(srcdir)/leadnl.in >_$@
+ -$(CMP) $(srcdir)/leadnl.ok _$@ && rm -f _$@
+
+funsemnl::
+ @$(AWK) -f $(srcdir)/funsemnl.awk >_$@
+ -$(CMP) $(srcdir)/funsemnl.ok _$@ && rm -f _$@
clean:
rm -fr _* core junk out1 out2 out3 strftime.ok test1 test2 seq *~
-distclean: clean
- rm -f Makefile
-
-maintainer-clean: distclean
+# This target for my convenience to look at all the results
+diffout:
+ for i in _* ; \
+ do \
+ echo ============== $$i ============= ; \
+ diff -c $${i#_}.ok $$i ; \
+ done | more
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/test/addcomma.awk b/test/addcomma.awk
new file mode 100644
index 00000000..8f52f36b
--- /dev/null
+++ b/test/addcomma.awk
@@ -0,0 +1,15 @@
+# addcomma - put commas in numbers
+# input: a number per line
+# output: the input number followed by
+# the number with commas and two decimal places
+
+{ printf("%-12s %20s\n", $0, addcomma($0)) }
+
+function addcomma(x, num) {
+ if (x < 0)
+ return "-" addcomma(-x)
+ num = sprintf("%.2f", x) # num is dddddd.dd
+ while (num ~ /[0-9][0-9][0-9][0-9]/)
+ sub(/[0-9][0-9][0-9][,.]/, ",&", num)
+ return num
+}
diff --git a/test/addcomma.in b/test/addcomma.in
new file mode 100644
index 00000000..be70ac90
--- /dev/null
+++ b/test/addcomma.in
@@ -0,0 +1,7 @@
+0
+-1
+-12.34
+12345
+-1234567.89
+-123.
+-123456
diff --git a/test/addcomma.ok b/test/addcomma.ok
new file mode 100644
index 00000000..57c5886a
--- /dev/null
+++ b/test/addcomma.ok
@@ -0,0 +1,7 @@
+0 0.00
+-1 -1.00
+-12.34 -12.34
+12345 12,345.00
+-1234567.89 -1,234,567.89
+-123. -123.00
+-123456 -123,456.00
diff --git a/test/arrayparm.ok b/test/arrayparm.ok
index b315f7cf..4a775efe 100644
--- a/test/arrayparm.ok
+++ b/test/arrayparm.ok
@@ -1 +1 @@
-gawk: arrayparm.awk:18: fatal: attempt to use array `foo' in a scalar context
+gawk: arrayparm.awk:18: fatal: attempt to use array `i (from foo)' in a scalar context
diff --git a/test/arynasty.awk b/test/arynasty.awk
new file mode 100644
index 00000000..ec170931
--- /dev/null
+++ b/test/arynasty.awk
@@ -0,0 +1,16 @@
+BEGIN {
+ a = 12.153
+#print "-- stroring test[a]" > "/dev/stderr" ; fflush("/dev/stderr")
+ test[a] = "hi"
+#print "-- setting CONVFMT" > "/dev/stderr" ; fflush("/dev/stderr")
+ CONVFMT = "%.0f"
+#print "-- setting a" > "/dev/stderr" ; fflush("/dev/stderr")
+ a = 5
+#stopme()
+#print "-- starting loop" > "/dev/stderr" ; fflush("/dev/stderr")
+ for (i in test) {
+#print("-- i =", i) > "/dev/stderr" ; fflush("/dev/stderr");
+#printf("-- i = <%s>\n", i) > "/dev/stderr" ; fflush("/dev/stderr");
+ printf ("test[%s] = %s\n", i, test[i])
+ }
+}
diff --git a/test/arynasty.ok b/test/arynasty.ok
new file mode 100644
index 00000000..125ed80e
--- /dev/null
+++ b/test/arynasty.ok
@@ -0,0 +1 @@
+test[12.153] = hi
diff --git a/test/badargs.ok b/test/badargs.ok
index 4913f0dd..b6f9cfea 100644
--- a/test/badargs.ok
+++ b/test/badargs.ok
@@ -1,6 +1,6 @@
gawk: option requires an argument -- f
Usage: gawk [POSIX or GNU style options] -f progfile [--] file ...
- gawk [POSIX or GNU style options] [--] 'program' file ...
+Usage: gawk [POSIX or GNU style options] [--] 'program' file ...
POSIX options: GNU long options:
-f progfile --file=progfile
-F fs --field-separator=fs
@@ -9,9 +9,13 @@ POSIX options: GNU long options:
-W compat --compat
-W copyleft --copyleft
-W copyright --copyright
+ -W dump-variables[=file] --dump-variables[=file]
+ -W gen-po --gen-po
-W help --help
- -W lint --lint
+ -W lint[=fatal] --lint[=fatal]
-W lint-old --lint-old
+ -W non-decimal-data --non-decimal-data
+ -W profile[=file] --profile[=file]
-W posix --posix
-W re-interval --re-interval
-W source=program-text --source=program-text
@@ -19,6 +23,5 @@ POSIX options: GNU long options:
-W usage --usage
-W version --version
-To report bugs, see node `Bugs' in `gawk.info', which
-is section `Reporting Problems and Bugs' in the
-printed version.
+To report bugs, see node `Bugs' in `gawk.info', which is
+section `Reporting Problems and Bugs' in the printed version.
diff --git a/test/clos1way.awk b/test/clos1way.awk
new file mode 100644
index 00000000..5bc40684
--- /dev/null
+++ b/test/clos1way.awk
@@ -0,0 +1,21 @@
+BEGIN {
+ command = "LC_ALL=C sort"
+
+ n = split("abcdefghijklmnopqrstuvwxyz", a, "")
+ for (i = n; i > 0; i--) {
+# print "printing", a[i] > "/dev/stderr"
+ print a[i] |& command
+ }
+
+ close(command, "to")
+
+# print "starting read loop" > "/dev/stderr"
+ do {
+ if (line)
+ print "got", line
+# stopme();
+ } while ((command |& getline line) > 0)
+
+# print "doing final close" > "/dev/stderr"
+ close(command)
+}
diff --git a/test/clos1way.ok b/test/clos1way.ok
new file mode 100644
index 00000000..09d732a6
--- /dev/null
+++ b/test/clos1way.ok
@@ -0,0 +1,26 @@
+got a
+got b
+got c
+got d
+got e
+got f
+got g
+got h
+got i
+got j
+got k
+got l
+got m
+got n
+got o
+got p
+got q
+got r
+got s
+got t
+got u
+got v
+got w
+got x
+got y
+got z
diff --git a/test/clsflnam.awk b/test/clsflnam.awk
index 53928912..0ba601f0 100644
--- a/test/clsflnam.awk
+++ b/test/clsflnam.awk
@@ -4,7 +4,7 @@ BEGIN {
# print ("FILENAME =", FILENAME) > "/dev/stderr"
#Rewind the file
if (close(FILENAME)) {
- print "Error " ERRNO " closing input file" > "/dev/stderr";
+ print "Error `" ERRNO "' closing input file" > "/dev/stderr";
exit;
}
}
diff --git a/test/clsflnam.ok b/test/clsflnam.ok
index e69de29b..9addfc78 100644
--- a/test/clsflnam.ok
+++ b/test/clsflnam.ok
@@ -0,0 +1 @@
+Error `close of redirection that was never opened' closing input file
diff --git a/test/datanonl.awk b/test/datanonl.awk
new file mode 100644
index 00000000..29e668e9
--- /dev/null
+++ b/test/datanonl.awk
@@ -0,0 +1,3 @@
+# example program from alex@bofh.torun.pl
+BEGIN { IGNORECASE=1 }
+/\w+@([[:alnum:]]+\.)+[[:alnum:]]+[[:blank:]]+/ {print $0}
diff --git a/test/datanonl.in b/test/datanonl.in
new file mode 100644
index 00000000..5340d7ba
--- /dev/null
+++ b/test/datanonl.in
@@ -0,0 +1 @@
+bleble@foo1.bh.pl deny \ No newline at end of file
diff --git a/test/datanonl.ok b/test/datanonl.ok
new file mode 100644
index 00000000..7b0fcafc
--- /dev/null
+++ b/test/datanonl.ok
@@ -0,0 +1 @@
+bleble@foo1.bh.pl deny
diff --git a/test/fnaryscl.awk b/test/fnaryscl.awk
new file mode 100644
index 00000000..b88778ec
--- /dev/null
+++ b/test/fnaryscl.awk
@@ -0,0 +1,10 @@
+BEGIN {
+ foo[1] = 4
+ f1(foo)
+}
+
+function f1(a) { f2(a) }
+
+function f2(b) { f3(b) }
+
+function f3(c) { c = 6 }
diff --git a/test/fnaryscl.ok b/test/fnaryscl.ok
new file mode 100644
index 00000000..d39dfdcc
--- /dev/null
+++ b/test/fnaryscl.ok
@@ -0,0 +1 @@
+gawk: fnaryscl.awk:10: fatal: attempt to use array `c (from b (from a (from foo)))' in a scalar context
diff --git a/test/fnasgnm.awk b/test/fnasgnm.awk
new file mode 100644
index 00000000..056cdf7f
--- /dev/null
+++ b/test/fnasgnm.awk
@@ -0,0 +1,14 @@
+# AFP_Bug1.awk - illustrate a problem with `gawk' (GNU Awk 3.0.3 on OS/2)
+# Arthur Pool .. pool@commerce.uq.edu.au
+# $Id: AFP_Bug1.awk,v 1.1 1998-03-17 12:22:44+10 pool Exp pool $
+
+# Assignment to a variable with the same name as a function from within
+# that function causes an ABEND.
+#
+# Yes, I do realise that it's not a smart thing to do, but an error
+# message would be a kinder response than a core dump (and would make
+# debugging a whole lot easier).
+
+{ShowMe()}
+
+function ShowMe() {ShowMe = 1}
diff --git a/test/fnasgnm.in b/test/fnasgnm.in
new file mode 100644
index 00000000..a9419310
--- /dev/null
+++ b/test/fnasgnm.in
@@ -0,0 +1 @@
+junk
diff --git a/test/fnasgnm.ok b/test/fnasgnm.ok
new file mode 100644
index 00000000..844893c0
--- /dev/null
+++ b/test/fnasgnm.ok
@@ -0,0 +1 @@
+gawk: fnasgnm.awk:14: (FILENAME=- FNR=1) fatal: can't use function name `ShowMe' as variable or array
diff --git a/test/fsfwfs.awk b/test/fsfwfs.awk
new file mode 100644
index 00000000..beed10a3
--- /dev/null
+++ b/test/fsfwfs.awk
@@ -0,0 +1 @@
+BEGIN{FIELDWIDTHS="6 6 6 5";OFS=",";FS=FS}{print $1,$2,$3,$4}
diff --git a/test/fsfwfs.in b/test/fsfwfs.in
new file mode 100644
index 00000000..fc109280
--- /dev/null
+++ b/test/fsfwfs.in
@@ -0,0 +1,16 @@
+00000113000 00000000000
+00000275000 00000000000
+00000321334 00000000000
+00000048709 00000010000
+00000117000 00000100000
+00000152000 00000138000
+00000000000 00000150000
+00000189425 00000000000
+00000146128 00000000000
+00000146128 00000000000
+00000146128 00000000000
+00000000000 00000050000
+00000000000 00000050000
+00000000000 00000000000
+00000158014 00000000000
+00000113656 00000000000
diff --git a/test/fsfwfs.ok b/test/fsfwfs.ok
new file mode 100644
index 00000000..36bea48a
--- /dev/null
+++ b/test/fsfwfs.ok
@@ -0,0 +1,16 @@
+00000113000,00000000000,,
+00000275000,00000000000,,
+00000321334,00000000000,,
+00000048709,00000010000,,
+00000117000,00000100000,,
+00000152000,00000138000,,
+00000000000,00000150000,,
+00000189425,00000000000,,
+00000146128,00000000000,,
+00000146128,00000000000,,
+00000146128,00000000000,,
+00000000000,00000050000,,
+00000000000,00000050000,,
+00000000000,00000000000,,
+00000158014,00000000000,,
+00000113656,00000000000,,
diff --git a/test/funsemnl.awk b/test/funsemnl.awk
new file mode 100644
index 00000000..6b39dca5
--- /dev/null
+++ b/test/funsemnl.awk
@@ -0,0 +1,3 @@
+# make sure that ; + \n at end after function works
+function foo() { print "foo" } ;
+BEGIN { foo() }
diff --git a/test/funsemnl.ok b/test/funsemnl.ok
new file mode 100644
index 00000000..257cc564
--- /dev/null
+++ b/test/funsemnl.ok
@@ -0,0 +1 @@
+foo
diff --git a/test/gnuops2.awk b/test/gnuops2.awk
new file mode 100644
index 00000000..1b0d4d7f
--- /dev/null
+++ b/test/gnuops2.awk
@@ -0,0 +1,72 @@
+# From Servatius.Brandt@fujitsu-siemens.com Fri Dec 1 13:44:48 2000
+# Received: from mail.actcom.co.il
+# by localhost with POP3 (fetchmail-5.1.0)
+# for arnold@localhost (single-drop); Fri, 01 Dec 2000 13:44:48 +0200 (IST)
+# Received: by actcom.co.il (mbox arobbins)
+# (with Cubic Circle's cucipop (v1.31 1998/05/13) Fri Dec 1 13:44:10 2000)
+# X-From_: Servatius.Brandt@fujitsu-siemens.com Fri Dec 1 13:11:23 2000
+# Received: from lmail.actcom.co.il by actcom.co.il with ESMTP
+# (8.9.1a/actcom-0.2) id NAA11033 for <arobbins@actcom.co.il>;
+# Fri, 1 Dec 2000 13:11:21 +0200 (EET)
+# (rfc931-sender: lmail.actcom.co.il [192.114.47.13])
+# Received: from billohost.com (10-209.196.35.dellhost.com [209.196.35.10] (may be forged))
+# by lmail.actcom.co.il (8.9.3/8.9.1) with ESMTP id NAA30286
+# for <arobbins@actcom.co.il>; Fri, 1 Dec 2000 13:12:25 +0200
+# Received: from fencepost.gnu.org (we-refuse-to-spy-on-our-users@fencepost.gnu.org [199.232.76.164])
+# by billohost.com (8.9.3/8.9.3) with ESMTP id GAA26074
+# for <arnold@skeeve.com>; Fri, 1 Dec 2000 06:09:08 -0500
+# Received: from energy.pdb.sbs.de ([192.109.2.19])
+# by fencepost.gnu.org with esmtp (Exim 3.16 #1 (Debian))
+# id 141o5z-0000RJ-00; Fri, 01 Dec 2000 06:11:16 -0500
+# Received: from trulli.pdb.fsc.net ([172.25.96.20])
+# by energy.pdb.sbs.de (8.9.3/8.9.3) with ESMTP id MAA32687;
+# Fri, 1 Dec 2000 12:11:13 +0100
+# Received: from pdbrd02e.pdb.fsc.net (pdbrd02e.pdb.fsc.net [172.25.96.15])
+# by trulli.pdb.fsc.net (8.9.3/8.9.3) with ESMTP id MAA27384;
+# Fri, 1 Dec 2000 12:11:13 +0100
+# Received: from Fujitsu-Siemens.com (pgtd1181.mch.fsc.net [172.25.126.152]) by pdbrd02e.pdb.fsc.net with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2650.21)
+# id XC2QLXS2; Fri, 1 Dec 2000 12:11:13 +0100
+# Message-ID: <3A2786CF.1000903@Fujitsu-Siemens.com>
+# Date: Fri, 01 Dec 2000 12:09:03 +0100
+# From: Servatius Brandt <Servatius.Brandt@fujitsu-siemens.com>
+# Organization: Fujitsu Siemens Computers
+# User-Agent: Mozilla/5.0 (Windows; U; Win95; en-US; m18) Gecko/20001108 Netscape6/6.0
+# X-Accept-Language: de, en
+# MIME-Version: 1.0
+# To: bug-gnu-utils@gnu.org
+# CC: arnold@gnu.org
+# Subject: Bug Report: \y, \B, \<, \> do not work with _
+# Content-Type: text/plain; charset=us-ascii; format=flowed
+# Content-Transfer-Encoding: 7bit
+# Status: R
+#
+# Hello,
+#
+# The \y, \B, \<, \> patterns do not regard _ as
+# word-constituent (unlike \w and \W, which do).
+#
+# Operating system: ReliantUNIX-Y 5.44 C2001 RM600 R10000
+# Version of gawk: 3.0.6
+# C-Compiler: Fujitsu Siemens Computers CDS++ V2.0C0004
+#
+# Test program:
+#
+#!/usr/local/bin/gawk -f
+
+BEGIN {
+ print match("X _abc Y", /\<_abc/) # bug
+ print match("X _abc Y", /\y_abc/) # bug
+ print match("X abc_ Y", /abc_\>/) # bug
+ print match("X abc_ Y", /abc_\y/) # bug
+ print match("X abc_def Y", /abc_\Bdef/) # bug
+
+ print match("X a_c Y", /a\wc/) # ok!
+ print match("X a.c Y", /a\Wc/) # ok!
+ exit
+}
+#
+#
+# Regards,
+# Servatius Brandt
+#
+#
diff --git a/test/gnuops2.ok b/test/gnuops2.ok
new file mode 100644
index 00000000..aa0ecae5
--- /dev/null
+++ b/test/gnuops2.ok
@@ -0,0 +1,7 @@
+3
+3
+3
+3
+3
+3
+3
diff --git a/test/gsubtest.awk b/test/gsubtest.awk
index 5dfefe93..5dfefe93 100755..100644
--- a/test/gsubtest.awk
+++ b/test/gsubtest.awk
diff --git a/test/hsprint.awk b/test/hsprint.awk
new file mode 100644
index 00000000..d17cedeb
--- /dev/null
+++ b/test/hsprint.awk
@@ -0,0 +1,74 @@
+# Test which attempts to repeat examples of formatted output
+# from "C a reference manual" by Harbison and Steele.
+#
+# In the second series of outputs formats of a type "%5%" are skipped
+# since my old copy of H&S explicitely requires padding ("...%05% will
+# print 0000%..."), whereas Standard says "...the complete conversion
+# specification shall be %%".
+#
+# Michal Jaegermann - michal@phys.ualberta.ca
+
+
+BEGIN {
+ zero = "0";
+ alt = "#";
+ spc = " ";
+ plus = "+";
+ just = "-";
+ value[0] = 45;
+ value[1] = 45;
+ value[2] = 45;
+ value[3] = 12.678;
+ value[4] = 12.678;
+ value[5] = 12.678;
+ value[6] = "zap";
+ value[7] = "*";
+ value[8] = -3.4567;
+ value[9] = -3.4567;
+ value[10]= -3.4567;
+ value[11]= -3.4567;
+ oper[0] = "5d";
+ oper[1] = "5o";
+ oper[2] = "5x";
+ oper[3] = "7.2f";
+ oper[4] = "10.2e";
+ oper[5] = "10.4g";
+ oper[6] = "5s";
+ oper[7] = "5c";
+ oper[8] = "7.1G";
+ oper[9] = "7.2f";
+ oper[10] = "10.2e";
+ oper[11] = "10.4g";
+
+
+ for (r = 0; r < 12; r += 6) {
+ for (j = 2; j > 0; --j) {
+ for (p = 2; p > 0; --p) {
+ for (s = 2; s > 0; --s) {
+ for (a = 2; a > 0; --a) {
+ for (z = 2; z > 0; --z) {
+ fmt = "%" substr(just,j,1) substr(plus,p,1) \
+ substr(spc,s,1) substr(alt,a,1) substr(zero,z,1);
+ fstr = sprintf(\
+ "%6s|%s%s|%s%s|%s%s|%s%s|%s%s|%s%s|\n",
+ fmt,
+ fmt, oper[r],
+ fmt, oper[r+1],
+ fmt, oper[r+2],
+ fmt, oper[r+3],
+ fmt, oper[r+4],
+ fmt, oper[r+5]);
+ printf(fstr, value[r], value[r+1],
+ value[r+2], value[r+3],
+ value[r+4], value[r+5]);
+ }
+ }
+ }
+ }
+ }
+ print "";
+ }
+}
+
+
+
diff --git a/test/hsprint.ok b/test/hsprint.ok
new file mode 100644
index 00000000..55fd16f3
--- /dev/null
+++ b/test/hsprint.ok
@@ -0,0 +1,66 @@
+ %| 45| 55| 2d| 12.68| 1.27e+01| 12.68|
+ %0|00045|00055|0002d|0012.68|001.27e+01|0000012.68|
+ %#| 45| 055| 0x2d| 12.68| 1.27e+01| 12.68|
+ %#0|00045|00055|0x02d|0012.68|001.27e+01|0000012.68|
+ % | 45| 55| 2d| 12.68| 1.27e+01| 12.68|
+ % 0| 0045|00055|0002d| 012.68| 01.27e+01| 000012.68|
+ % #| 45| 055| 0x2d| 12.68| 1.27e+01| 12.68|
+ % #0| 0045|00055|0x02d| 012.68| 01.27e+01| 000012.68|
+ %+| +45| 55| 2d| +12.68| +1.27e+01| +12.68|
+ %+0|+0045|00055|0002d|+012.68|+01.27e+01|+000012.68|
+ %+#| +45| 055| 0x2d| +12.68| +1.27e+01| +12.68|
+ %+#0|+0045|00055|0x02d|+012.68|+01.27e+01|+000012.68|
+ %+ | +45| 55| 2d| +12.68| +1.27e+01| +12.68|
+ %+ 0|+0045|00055|0002d|+012.68|+01.27e+01|+000012.68|
+ %+ #| +45| 055| 0x2d| +12.68| +1.27e+01| +12.68|
+ %+ #0|+0045|00055|0x02d|+012.68|+01.27e+01|+000012.68|
+ %-|45 |55 |2d |12.68 |1.27e+01 |12.68 |
+ %-0|45 |55 |2d |12.68 |1.27e+01 |12.68 |
+ %-#|45 |055 |0x2d |12.68 |1.27e+01 |12.68 |
+ %-#0|45 |055 |0x2d |12.68 |1.27e+01 |12.68 |
+ %- | 45 |55 |2d | 12.68 | 1.27e+01 | 12.68 |
+ %- 0| 45 |55 |2d | 12.68 | 1.27e+01 | 12.68 |
+ %- #| 45 |055 |0x2d | 12.68 | 1.27e+01 | 12.68 |
+ %- #0| 45 |055 |0x2d | 12.68 | 1.27e+01 | 12.68 |
+ %-+|+45 |55 |2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+0|+45 |55 |2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+#|+45 |055 |0x2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+#0|+45 |055 |0x2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+ |+45 |55 |2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+ 0|+45 |55 |2d |+12.68 |+1.27e+01 |+12.68 |
+ %-+ #|+45 |055 |0x2d |+12.68 |+1.27e+01 |+12.68 |
+%-+ #0|+45 |055 |0x2d |+12.68 |+1.27e+01 |+12.68 |
+
+ %| zap| *| -3| -3.46| -3.46e+00| -3.457|
+ %0|00zap|0000*|-000003|-003.46|-03.46e+00|-00003.457|
+ %#| zap| *| -3.| -3.46| -3.46e+00| -3.457|
+ %#0|00zap|0000*|-00003.|-003.46|-03.46e+00|-00003.457|
+ % | zap| *| -3| -3.46| -3.46e+00| -3.457|
+ % 0|00zap|0000*|-000003|-003.46|-03.46e+00|-00003.457|
+ % #| zap| *| -3.| -3.46| -3.46e+00| -3.457|
+ % #0|00zap|0000*|-00003.|-003.46|-03.46e+00|-00003.457|
+ %+| zap| *| -3| -3.46| -3.46e+00| -3.457|
+ %+0|00zap|0000*|-000003|-003.46|-03.46e+00|-00003.457|
+ %+#| zap| *| -3.| -3.46| -3.46e+00| -3.457|
+ %+#0|00zap|0000*|-00003.|-003.46|-03.46e+00|-00003.457|
+ %+ | zap| *| -3| -3.46| -3.46e+00| -3.457|
+ %+ 0|00zap|0000*|-000003|-003.46|-03.46e+00|-00003.457|
+ %+ #| zap| *| -3.| -3.46| -3.46e+00| -3.457|
+ %+ #0|00zap|0000*|-00003.|-003.46|-03.46e+00|-00003.457|
+ %-|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-0|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-#|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %-#0|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %- |zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %- 0|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %- #|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %- #0|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %-+|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-+0|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-+#|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %-+#0|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+ %-+ |zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-+ 0|zap |* |-3 |-3.46 |-3.46e+00 |-3.457 |
+ %-+ #|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+%-+ #0|zap |* |-3. |-3.46 |-3.46e+00 |-3.457 |
+
diff --git a/test/inftest.awk b/test/inftest.awk
index ec0eda13..f24bd7e3 100644
--- a/test/inftest.awk
+++ b/test/inftest.awk
@@ -1,5 +1,5 @@
BEGIN {
x = 100
- do { y = x ; x *= 1000; print x,y } while ( y != x )
+ do { y = x ; x *= 1000; print x,y } while ( y < x )
print "loop terminated"
}
diff --git a/test/leaddig.awk b/test/leaddig.awk
new file mode 100644
index 00000000..6c001ba6
--- /dev/null
+++ b/test/leaddig.awk
@@ -0,0 +1,7 @@
+# check that values with leading digits get converted the
+# right way, based on a note in comp.lang.awk.
+#
+# run with gawk -v x=2E -f leaddig.awk
+BEGIN {
+ print "x =", x, (x == 2), (x == 2E0), (x == 2E), (x == 2D)
+}
diff --git a/test/leaddig.ok b/test/leaddig.ok
new file mode 100644
index 00000000..7a9d866e
--- /dev/null
+++ b/test/leaddig.ok
@@ -0,0 +1 @@
+x = 2E 0 0 0 0
diff --git a/test/leadnl.awk b/test/leadnl.awk
new file mode 100644
index 00000000..0b7d0a97
--- /dev/null
+++ b/test/leadnl.awk
@@ -0,0 +1,10 @@
+BEGIN {
+ RS = ""; FS = "\n"
+}
+
+{
+ print "Name is: ", $1
+ print "Address is: ", $2
+ print "City and State are: ", $3
+ print ""
+}
diff --git a/test/leadnl.in b/test/leadnl.in
new file mode 100644
index 00000000..67c0239b
--- /dev/null
+++ b/test/leadnl.in
@@ -0,0 +1,9 @@
+
+Jane Doe
+123 Main Street
+Anywhere, SE 12345-6789
+
+John Smith
+456 Tree-lined Avenue
+Smallville, MW 98765-4321
+
diff --git a/test/leadnl.ok b/test/leadnl.ok
new file mode 100644
index 00000000..19cb2992
--- /dev/null
+++ b/test/leadnl.ok
@@ -0,0 +1,8 @@
+Name is: Jane Doe
+Address is: 123 Main Street
+City and State are: Anywhere, SE 12345-6789
+
+Name is: John Smith
+Address is: 456 Tree-lined Avenue
+City and State are: Smallville, MW 98765-4321
+
diff --git a/test/lint.awk b/test/lint.awk
new file mode 100644
index 00000000..ea7b8e38
--- /dev/null
+++ b/test/lint.awk
@@ -0,0 +1,14 @@
+# lint.awk --- test lint variable
+
+BEGIN {
+ a[1] = 1
+ LINT = 1
+ delete a[2]
+ LINT = ""
+ delete a[3]
+ LINT = "true"
+ delete a[4]
+ LINT = 0
+ delete a[5]
+ print "done"
+}
diff --git a/test/lint.ok b/test/lint.ok
new file mode 100644
index 00000000..ec24d831
--- /dev/null
+++ b/test/lint.ok
@@ -0,0 +1,5 @@
+gawk: lint.awk:7: warning: delete: index `2' not in array `a'
+gawk: lint.awk:7: warning: turning off `--lint' due to assignment to `LINT'
+gawk: lint.awk:11: warning: delete: index `4' not in array `a'
+gawk: lint.awk:11: warning: turning off `--lint' due to assignment to `LINT'
+done
diff --git a/test/nasty.ok b/test/nasty.ok
index 5189cf81..0ee1a73b 100644
--- a/test/nasty.ok
+++ b/test/nasty.ok
@@ -1,2 +1,2 @@
-123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
X
diff --git a/test/nasty2.awk b/test/nasty2.awk
new file mode 100644
index 00000000..cb0bd6d3
--- /dev/null
+++ b/test/nasty2.awk
@@ -0,0 +1,20 @@
+# Based on nasty.awk, test same thing for printf
+#
+BEGIN {
+a="aaaaa"
+a=a a #10
+a=a a #20
+a=a a #40
+a=a a #80
+a=a a #160
+a=a a # i.e. a is long enough
+
+printf("a = %s, f() = %s\n", a, f())
+print a
+}
+
+function f()
+{
+gsub(/a/, "123", a)
+return "X"
+}
diff --git a/test/nasty2.ok b/test/nasty2.ok
new file mode 100644
index 00000000..9b62bf08
--- /dev/null
+++ b/test/nasty2.ok
@@ -0,0 +1,2 @@
+a = aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa, f() = X
+123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123
diff --git a/test/nlinstr.awk b/test/nlinstr.awk
new file mode 100644
index 00000000..f403715c
--- /dev/null
+++ b/test/nlinstr.awk
@@ -0,0 +1,8 @@
+BEGIN { RS = "" }
+
+{
+ if (/^@/)
+ print "not ok"
+ else
+ print "ok"
+}
diff --git a/test/nlinstr.in b/test/nlinstr.in
new file mode 100644
index 00000000..65aaaf9e
--- /dev/null
+++ b/test/nlinstr.in
@@ -0,0 +1,2 @@
+line 1
+@line 2
diff --git a/test/nlinstr.ok b/test/nlinstr.ok
new file mode 100644
index 00000000..9766475a
--- /dev/null
+++ b/test/nlinstr.ok
@@ -0,0 +1 @@
+ok
diff --git a/test/noeffect.ok b/test/noeffect.ok
index b820ddf8..792ff66a 100644
--- a/test/noeffect.ok
+++ b/test/noeffect.ok
@@ -1,2 +1,4 @@
gawk: noeffect.awk:3: warning: statement may have no effect
+gawk: noeffect.awk:2: warning: reference to uninitialized variable `s'
+gawk: noeffect.awk:4: warning: reference to uninitialized variable `s'
diff --git a/test/nofmtch.ok b/test/nofmtch.ok
index e6f3846f..297d1592 100644
--- a/test/nofmtch.ok
+++ b/test/nofmtch.ok
@@ -1,2 +1,2 @@
-gawk: nofmtch.awk:1: warning: printf format specifier does not have control letter
+gawk: nofmtch.awk:1: warning: [s]printf: format specifier does not have control letter
%3
diff --git a/test/octsub.awk b/test/octsub.awk
new file mode 100644
index 00000000..65e96897
--- /dev/null
+++ b/test/octsub.awk
@@ -0,0 +1 @@
+BEGIN{ ++x[03]; print "/" x[0] "/" x[3] "/"}
diff --git a/test/octsub.ok b/test/octsub.ok
new file mode 100644
index 00000000..95cbdc77
--- /dev/null
+++ b/test/octsub.ok
@@ -0,0 +1 @@
+//1/
diff --git a/test/ofmt.awk b/test/ofmt.awk
new file mode 100644
index 00000000..a7b63d63
--- /dev/null
+++ b/test/ofmt.awk
@@ -0,0 +1,53 @@
+# From dragon!knorke.saar.de!florian Wed Jul 16 10:47:27 1997
+# Return-Path: <dragon!knorke.saar.de!florian>
+# Message-ID: <19970716164451.63610@knorke.saar.de>
+# Date: Wed, 16 Jul 1997 16:44:51 +0200
+# From: Florian La Roche <florian@knorke.saar.de>
+# To: bug-gnu-utils@prep.ai.mit.edu
+# CC: arnold@gnu.ai.mit.edu
+# Subject: bug in gawk 3.0.3
+# MIME-Version: 1.0
+# Content-Type: text/plain; charset=us-ascii
+# X-Mailer: Mutt 0.76
+# Status: R
+# Content-Length: 1725
+# X-Lines: 177
+# X-Display-Position: 0
+#
+# I have a problem with gawk 3.0.3 on linux with libc 5.4.33.
+# The memory is corrupted, if I use OFMT = "%.12g".
+# With OFMT = "%.6g" evrything works fine, but I don't have enough
+# digits for the computation.
+#
+# Thanks a lot,
+# Florian La Roche
+#
+# Here is the sample awk-Script together with sample data:
+#
+BEGIN {
+ OFMT = "%.12g"
+ big = 99999999999
+ lowest = big
+ small = 0
+ highest = small
+ dir = ""
+ }
+$0 ~ /^[0-9]+$/ {
+ # some old awks do not think $0 is numeric, so use $1
+ if ($1 < lowest)
+ lowest = $1
+ if ($1 > highest)
+ highest = $1
+ next
+}
+$0 ~ /\/\.:$/ {
+ if (dir != "") {
+ if (highest != small)
+ print dir, highest, lowest
+ else
+ print dir, "-", "-"
+ }
+ dir = substr($0, 1, length($0)-3) # trim off /.:
+ lowest = big
+ highest = small
+}
diff --git a/test/ofmt.in b/test/ofmt.in
new file mode 100644
index 00000000..6fffdfee
--- /dev/null
+++ b/test/ofmt.in
@@ -0,0 +1,136 @@
+alt/binaries/warez/crypto/.:
+..
+...
+
+alt/fan/douglas-adams/.:
+..
+...
+7478
+7479
+7480
+7481
+7482
+7483
+7484
+7485
+7486
+7490
+7488
+7489
+7491
+7407
+7408
+7409
+7410
+7411
+7412
+7413
+7414
+7415
+7416
+7417
+7418
+7419
+7420
+7421
+7422
+7423
+7424
+7425
+7426
+7427
+7428
+7429
+7430
+7431
+7432
+7433
+7434
+7435
+7436
+7437
+7438
+7439
+7440
+7441
+7442
+7443
+7444
+7445
+7446
+7447
+7455
+7449
+7450
+7451
+7452
+7453
+7454
+7456
+7457
+7458
+7459
+7460
+7461
+7462
+7463
+7464
+7465
+7466
+7467
+7468
+7469
+7470
+7471
+7472
+7473
+7475
+7477
+
+alt/os/linux/.:
+..
+...
+
+
+alt/security/.:
+..
+...
+pgp
+ripem
+keydist
+index
+9617
+9618
+9619
+9620
+9625
+9621
+9626
+9622
+9623
+9624
+9627
+9628
+9629
+9630
+9631
+9632
+9633
+9634
+9636
+9637
+9638
+9639
+9640
+9641
+
+alt/security/index/.:
+..
+...
+
+alt/security/keydist/.:
+..
+...
+253
+
+/.:
diff --git a/test/ofmt.ok b/test/ofmt.ok
new file mode 100644
index 00000000..389c1ef8
--- /dev/null
+++ b/test/ofmt.ok
@@ -0,0 +1,6 @@
+alt/binaries/warez/crypto - -
+alt/fan/douglas-adams 7491 7407
+alt/os/linux - -
+alt/security 9641 9617
+alt/security/index - -
+alt/security/keydist 253 253
diff --git a/test/ofmtbig.awk b/test/ofmtbig.awk
new file mode 100644
index 00000000..f1b23849
--- /dev/null
+++ b/test/ofmtbig.awk
@@ -0,0 +1,125 @@
+#
+# [USEMAP]
+#
+# Problem Report gnu/7821
+#
+# awk in free(): warning: chunk is already free.
+#
+# Confidential
+# no
+#
+# Severity
+# serious
+#
+# Priority
+# medium
+#
+# Responsible
+# freebsd-bugs@freebsd.org
+#
+# State
+# suspended
+#
+# Class
+# sw-bug
+#
+# Submitter-Id
+# current-users
+#
+# Arrival-Date
+# Thu Sep 3 10:30:00 PDT 1998
+#
+# Last-Modified
+# Thu Sep 17 02:04:26 PDT 1998
+#
+# Originator
+# Alexander Litvin archer@lucky.net
+#
+# Organization
+#
+#
+#Lucky Net ltd.
+#
+# Release
+# FreeBSD 3.0-CURRENT i386
+#
+# Environment
+#
+#
+#FreeBSD grape.carrier.kiev.ua 3.0-CURRENT FreeBSD 3.0-CURRENT #121: Thu Sep 3
+#1
+#1:21:44 EEST 1998 archer@grape.carrier.kiev.ua:/usr/src/sys/compile/GRAPE
+#i
+#386
+#
+# Description
+#
+#
+#The problem first appeared when GNU awk in 3.0-CURRENT was apgraded to
+#3.0.3. I run C-News, which uses awk extensively. After awk apgrade C-News
+#expire stopped to work. It appeared that some GNU awk 3.0.3 programms when
+#given absolutely legitimate input fail, giving out a number of messages:
+#
+#awk in free(): warning: chunk is already free.
+#
+# How-To-Repeat
+#
+#
+#Run the following awk program (it is cut out of C-News expire scripts).
+#I was not able to cut it down more -- omitting some portions of the
+#code (e.g. OFMT line), make error go away in this case, though it
+#certainly does not fix awk.
+#
+#----------------cut-here----------------
+#!/usr/bin/awk -f
+BEGIN {
+ OFMT = "%.12g"
+ big = 99999999999
+ lowest = big
+ small = 0
+ highest = small
+}
+
+$0 ~ /^[0-9]+$/ {
+ if ($1 < lowest)
+ lowest = $1
+ if ($1 > highest)
+ highest = $1
+ next
+}
+
+$0 ~ /^[a-z]+/ {
+ print dir, highest, lowest
+ dir = $0
+ lowest = big
+ highest = small
+}
+#----------------cut-here----------------
+#
+#To get the error, just give this script the following input:
+#----------------cut-here----------------
+#a
+#1
+#b
+#----------------cut-here----------------
+#
+# Fix
+#
+#
+#I was not able to track the error in awk sources. As a workaround,
+#I just reverted to GNU awk 2.15.5.
+#
+# Audit-Trail
+#
+#
+#State-Changed-From-To: open-suspended
+#State-Changed-By: phk
+#State-Changed-When: Thu Sep 17 02:04:08 PDT 1998
+#State-Changed-Why:
+#reported to GNU maintainer.
+#
+# Submit Followup
+# _________________________________________________________________
+#
+#
+# www@freebsd.org
diff --git a/test/ofmtbig.in b/test/ofmtbig.in
new file mode 100644
index 00000000..f1e80ce4
--- /dev/null
+++ b/test/ofmtbig.in
@@ -0,0 +1,3 @@
+a
+1
+b
diff --git a/test/ofmtbig.ok b/test/ofmtbig.ok
new file mode 100644
index 00000000..0fe9251d
--- /dev/null
+++ b/test/ofmtbig.ok
@@ -0,0 +1,2 @@
+ 0 99999999999
+a 1 1
diff --git a/test/ofmts.awk b/test/ofmts.awk
new file mode 100644
index 00000000..6ee37054
--- /dev/null
+++ b/test/ofmts.awk
@@ -0,0 +1,2 @@
+BEGIN { OFMT= "%s" }
+{ $1 + $2; print $1, $2 }
diff --git a/test/ofmts.in b/test/ofmts.in
new file mode 100644
index 00000000..50c37ec7
--- /dev/null
+++ b/test/ofmts.in
@@ -0,0 +1 @@
+1.2 2.2
diff --git a/test/ofmts.ok b/test/ofmts.ok
new file mode 100644
index 00000000..50c37ec7
--- /dev/null
+++ b/test/ofmts.ok
@@ -0,0 +1 @@
+1.2 2.2
diff --git a/test/paramtyp.awk b/test/paramtyp.awk
new file mode 100644
index 00000000..58848bbf
--- /dev/null
+++ b/test/paramtyp.awk
@@ -0,0 +1,20 @@
+# Sun Apr 25 13:28:58 IDT 1999
+# from Juegen Khars. This program should not core dump.
+ function ReadPGM(f, d) {
+print "ReadPGM"
+ d[1] = 1
+ }
+
+ function WritePGM(f, d) {
+print "WritePGM"
+ d[1] = 0
+ }
+
+ BEGIN {
+print "before ReadPGM"
+ ReadPGM("", d)
+print "after ReadPGM"
+print "before WritePGM"
+ WritePGM("", d)
+print "after WritePGM"
+ }
diff --git a/test/paramtyp.ok b/test/paramtyp.ok
new file mode 100644
index 00000000..793f857a
--- /dev/null
+++ b/test/paramtyp.ok
@@ -0,0 +1,6 @@
+before ReadPGM
+ReadPGM
+after ReadPGM
+before WritePGM
+WritePGM
+after WritePGM
diff --git a/test/parseme.awk b/test/parseme.awk
new file mode 100644
index 00000000..4d6ba943
--- /dev/null
+++ b/test/parseme.awk
@@ -0,0 +1 @@
+BEGIN { toupper(substr*line,1,12)) }
diff --git a/test/parseme.ok b/test/parseme.ok
new file mode 100644
index 00000000..f08fee66
--- /dev/null
+++ b/test/parseme.ok
@@ -0,0 +1,3 @@
+gawk: parseme.awk:1: BEGIN { toupper(substr*line,1,12)) }
+gawk: parseme.awk:1: ^ parse error
+gawk: parseme.awk:1: fatal: 0 is invalid as number of arguments for toupper
diff --git a/test/pid.sh b/test/pid.sh
index a19d72ce..901637ad 100755
--- a/test/pid.sh
+++ b/test/pid.sh
@@ -2,4 +2,4 @@
AWK=${AWK-../gawk}
echo $$ > _pid.in
echo $1 >> _pid.in
-exec $AWK -f pid.awk _pid.in
+exec $AWK -f pid.awk _pid.in 2>/dev/null
diff --git a/test/pipeio2.awk b/test/pipeio2.awk
index a1fdd5dd..32d09eee 100644
--- a/test/pipeio2.awk
+++ b/test/pipeio2.awk
@@ -29,7 +29,8 @@ BEGIN {
# com_tr = "echo " fnam " | tr [0-9]. ..........."
com_tr = "echo " fnam " | sed 's/[0-9]/./g'"
- print "\'" com_tr "\'"
+ # print "\'" com_tr "\'"
+ print "'" com_tr "'"
com_tr | getline nam
print nam
diff --git a/test/poundbang b/test/poundbang.awk
index d60652e3..d60652e3 100755
--- a/test/poundbang
+++ b/test/poundbang.awk
diff --git a/test/printfloat.awk b/test/printfloat.awk
new file mode 100644
index 00000000..1cb40660
--- /dev/null
+++ b/test/printfloat.awk
@@ -0,0 +1,62 @@
+# Test program for checking sprintf operation with various floating
+# point formats
+#
+# Watch out - full output of this program will have 3000 * tot lines,
+# which will take a chunk of space if you will write it to your disk.
+# --mj
+
+BEGIN {
+ just = "-"
+ plus = "+ "
+ alt = "#"
+ zero = "0"
+ spec = "feEgG"
+ fw[1] = ""
+ fw[2] = "1"
+ fw[3] = "5"
+ fw[4] = "10"
+ fw[5] = "15"
+ prec[1] = ".-1"
+ prec[2] = ""
+ prec[3] = ".2"
+ prec[4] = ".5"
+ prec[5] = ".10"
+
+ num = 123.6
+ factor = 1.0e-12
+ tot = 8
+ data[1] = 0
+ data[2] = 1
+ for (i = 3; i <= tot; i++) {
+ data[i] = num * factor
+ factor *= 1000
+ }
+
+ for (j = 1; j <= 2; j++) {
+ for (p = 1; p <= 3; p++) {
+ for (a = 1; a <= 2; a++) {
+ for (z = 1; z <= 2; z++) {
+ for (s = 1; s <= 5; s++) {
+ for (w = 1; w <= 5; w++) {
+ for (r = 1; r <= 5; r++) {
+ frmt = "|%" substr(just, j, 1)
+ frmt = frmt substr(plus, p, 1)
+ frmt = frmt substr(alt, a, 1)
+ frmt = frmt substr(zero, z, 1)
+ frmt = frmt fw[w] prec[r]
+ frmt = frmt substr(spec, s, 1) "|"
+ for (i = 1; i <= tot; i++) {
+ result = sprintf(frmt, data[i])
+# "normalize" if you must
+# sub(/\|\./, "|0.", result)
+ printf("%-16s %-25s\t%g\n", frmt,
+ result,data[i])
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+}
diff --git a/test/prmarscl.ok b/test/prmarscl.ok
index b42cee67..41784fdc 100644
--- a/test/prmarscl.ok
+++ b/test/prmarscl.ok
@@ -1 +1 @@
-gawk: prmarscl.awk:4: fatal: attempt to use scalar parameter 1 as an array
+gawk: prmarscl.awk:4: fatal: attempt to use scalar parameter `a' as an array
diff --git a/test/procinfs.awk b/test/procinfs.awk
new file mode 100644
index 00000000..53cfa977
--- /dev/null
+++ b/test/procinfs.awk
@@ -0,0 +1,7 @@
+BEGIN {
+ printf "Initially, PROCINFO[\"FS\"] = %s\n", PROCINFO["FS"]
+ FIELDWIDTHS = "3 4 5 6"
+ printf "After assign to FIELDWIDTHS, PROCINFO[\"FS\"] = %s\n", PROCINFO["FS"]
+ FS = FS
+ printf "After assign to FS, PROCINFO[\"FS\"] = %s\n", PROCINFO["FS"]
+}
diff --git a/test/procinfs.ok b/test/procinfs.ok
new file mode 100644
index 00000000..23aaeff0
--- /dev/null
+++ b/test/procinfs.ok
@@ -0,0 +1,3 @@
+Initially, PROCINFO["FS"] = FS
+After assign to FIELDWIDTHS, PROCINFO["FS"] = FIELDWIDTHS
+After assign to FS, PROCINFO["FS"] = FS
diff --git a/test/psx96sub.awk b/test/psx96sub.awk
new file mode 100644
index 00000000..3c7c9b77
--- /dev/null
+++ b/test/psx96sub.awk
@@ -0,0 +1,7 @@
+BEGIN {
+ text = "here is some text"
+ repl = "<FOO&BAR \\q \\ \\\\ \\& \\\\& \\\\\\&>"
+ printf "orig = \"%s\", repl = \"%s\"\n", text, repl
+ sub(/some/, repl, text)
+ printf "result is \"%s\"\n", text
+}
diff --git a/test/psx96sub.ok b/test/psx96sub.ok
new file mode 100644
index 00000000..d6b89ee4
--- /dev/null
+++ b/test/psx96sub.ok
@@ -0,0 +1,2 @@
+orig = "here is some text", repl = "<FOO&BAR \q \ \\ \& \\& \\\&>"
+result is "here is <FOOsomeBAR \q \ \\ & \some \&> text"
diff --git a/test/rand.ok b/test/rand.ok
index b6d75545..60432b95 100644
--- a/test/rand.ok
+++ b/test/rand.ok
@@ -1 +1 @@
- 27 17 86 27 22 53 61 11 33 48 51 97 99 35 20 27 62 100 32
+ 62 67 88 6 35 77 3 68 30 96 90 26 35 8 88 93 49 53 37
diff --git a/test/rebt8b1.awk b/test/rebt8b1.awk
new file mode 100644
index 00000000..8fa43fba
--- /dev/null
+++ b/test/rebt8b1.awk
@@ -0,0 +1,138 @@
+# From hankedr@dms.auburn.edu Sun Jan 28 12:25:43 2001
+# Received: from mail.actcom.co.il [192.114.47.13]
+# by localhost with POP3 (fetchmail-5.5.0)
+# for arnold@localhost (single-drop); Sun, 28 Jan 2001 12:25:43 +0200 (IST)
+# Received: by actcom.co.il (mbox arobbins)
+# (with Cubic Circle's cucipop (v1.31 1998/05/13) Sun Jan 28 12:27:08 2001)
+# X-From_: hankedr@dms.auburn.edu Sat Jan 27 15:15:57 2001
+# Received: from lmail.actcom.co.il by actcom.co.il with ESMTP
+# (8.9.1a/actcom-0.2) id PAA23801 for <arobbins@actcom.co.il>;
+# Sat, 27 Jan 2001 15:15:55 +0200 (EET)
+# (rfc931-sender: lmail.actcom.co.il [192.114.47.13])
+# Received: from billohost.com (www.billohost.com [209.196.35.10])
+# by lmail.actcom.co.il (8.9.3/8.9.1) with ESMTP id PAA15998
+# for <arobbins@actcom.co.il>; Sat, 27 Jan 2001 15:16:27 +0200
+# Received: from yak.dms.auburn.edu (yak.dms.auburn.edu [131.204.53.2])
+# by billohost.com (8.9.3/8.9.3) with ESMTP id IAA00467
+# for <arnold@skeeve.com>; Sat, 27 Jan 2001 08:15:52 -0500
+# Received: (from hankedr@localhost)
+# by yak.dms.auburn.edu (8.9.3/8.9.3/Debian/GNU) id HAA24441;
+# Sat, 27 Jan 2001 07:15:44 -0600
+# Date: Sat, 27 Jan 2001 07:15:44 -0600
+# Message-Id: <200101271315.HAA24441@yak.dms.auburn.edu>
+# From: Darrel Hankerson <hankedr@dms.auburn.edu>
+# To: arnold@skeeve.com
+# Subject: [stolfi@ic.unicamp.br: Bug in [...]* matching with acute-u]
+# Mime-Version: 1.0 (generated by tm-edit 7.106)
+# Content-Type: message/rfc822
+# Status: R
+#
+# From: Jorge Stolfi <stolfi@ic.unicamp.br>
+# To: bug-gnu-utils@gnu.org
+# Subject: Bug in [...]* matching with acute-u
+# MIME-Version: 1.0
+# Reply-To: stolfi@ic.unicamp.br
+# X-MIME-Autoconverted: from 8bit to quoted-printable by grande.dcc.unicamp.br id GAA10716
+# Sender: bug-gnu-utils-admin@gnu.org
+# Errors-To: bug-gnu-utils-admin@gnu.org
+# X-BeenThere: bug-gnu-utils@gnu.org
+# X-Mailman-Version: 2.0
+# Precedence: bulk
+# List-Help: <mailto:bug-gnu-utils-request@gnu.org?subject=help>
+# List-Post: <mailto:bug-gnu-utils@gnu.org>
+# List-Subscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-utils>,
+# <mailto:bug-gnu-utils-request@gnu.org?subject=subscribe>
+# List-Id: Bug reports for the GNU utilities <bug-gnu-utils.gnu.org>
+# List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-utils>,
+# <mailto:bug-gnu-utils-request@gnu.org?subject=unsubscribe>
+# List-Archive: <http://mail.gnu.org/pipermail/bug-gnu-utils/>
+# Date: Sat, 27 Jan 2001 06:46:11 -0200 (EDT)
+# Content-Transfer-Encoding: 8bit
+# X-MIME-Autoconverted: from quoted-printable to 8bit by manatee.dms.auburn.edu id CAA14936
+# Content-Type: text/plain; charset=iso-8859-1
+# <mailto:bug-gnu-utils-request@gnu.org?subject=subscribe>
+# <mailto:bug-gnu-utils-request@gnu.org?subject=uns
+# Content-Length: 3137
+#
+#
+#
+# Hi,
+#
+# I think I have run into a bug in gawk's handling of REs of the
+# form [...]* when the bracketed list includes certain 8-bit characters,
+# specifically u-acute (octal \372).
+#
+# The problem occurs in GNU Awk 3.0.4, both under
+# Linux 2.2.14-5.0 (intel i686) and SunOS 5.5 (Sun sparc).
+#
+# Here is a program that illustrates the bug, and its output.
+# The first two lines of the output should be equal, shouldn't they?
+#
+# ----------------------------------------------------------------------
+#! /usr/bin/gawk -f
+
+BEGIN {
+ s = "bananas and ananases in canaan";
+ t = s; gsub(/[an]*n/, "AN", t); printf "%-8s %s\n", "[an]*n", t;
+ t = s; gsub(/[anú]*n/, "AN", t); printf "%-8s %s\n", "[anú]*n", t;
+ print "";
+ t = s; gsub(/[aú]*n/, "AN", t); printf "%-8s %s\n", "[aú]*n", t;
+ print "";
+ t = s; gsub(/[an]n/, "AN", t); printf "%-8s %s\n", "[an]n", t;
+ t = s; gsub(/[aú]n/, "AN", t); printf "%-8s %s\n", "[aú]n", t;
+ t = s; gsub(/[anú]n/, "AN", t); printf "%-8s %s\n", "[anú]n", t;
+ print "";
+ t = s; gsub(/[an]?n/, "AN", t); printf "%-8s %s\n", "[an]?n", t;
+ t = s; gsub(/[aú]?n/, "AN", t); printf "%-8s %s\n", "[aú]?n", t;
+ t = s; gsub(/[anú]?n/, "AN", t); printf "%-8s %s\n", "[anú]?n", t;
+ print "";
+ t = s; gsub(/[an]+n/, "AN", t); printf "%-8s %s\n", "[an]+n", t;
+ t = s; gsub(/[aú]+n/, "AN", t); printf "%-8s %s\n", "[aú]+n", t;
+ t = s; gsub(/[anú]+n/, "AN", t); printf "%-8s %s\n", "[anú]+n", t;
+}
+# ----------------------------------------------------------------------
+# [an]*n bANas ANd ANases iAN cAN
+# [anú]*n bananas and ananases in canaan
+#
+# [aú]*n bANANas ANd ANANases iAN cANAN
+#
+# [an]n bANANas ANd ANANases in cANaAN
+# [aú]n bANANas ANd ANANases in cANaAN
+# [anú]n bANANas ANd ANANases in cANaAN
+#
+# [an]?n bANANas ANd ANANases iAN cANaAN
+# [aú]?n bANANas ANd ANANases iAN cANaAN
+# [anú]?n bANANas ANd ANANases iAN cANaAN
+#
+# [an]+n bANas ANd ANases in cAN
+# [aú]+n bANANas ANd ANANases in cANAN
+# [anú]+n bananas and ananases in canaan
+# ----------------------------------------------------------------------
+#
+# Apparently the problem is specific to u-acute; I've tried several
+# other 8-bit characters and they seem to behave as expected.
+#
+# By comparing the second and third output lines, it would seem that the
+# problem involves backtracking out of a partial match of [...]* in
+# order to match the next sub-expression, when the latter begins with
+# one of the given characters.
+#
+#
+# All the best,
+#
+# --stolfi
+#
+# ------------------------------------------------------------------------
+# Jorge Stolfi | http://www.dcc.unicamp.br/~stolfi | stolfi@dcc.unicamp.br
+# Institute of Computing (formerly DCC-IMECC) | Wrk +55 (19)3788-5858
+# Universidade Estadual de Campinas (UNICAMP) | +55 (19)3788-5840
+# Av. Albert Einstein 1251 - Caixa Postal 6176 | Fax +55 (19)3788-5847
+# 13083-970 Campinas, SP -- Brazil | Hom +55 (19)3287-4069
+# ------------------------------------------------------------------------
+#
+# _______________________________________________
+# Bug-gnu-utils mailing list
+# Bug-gnu-utils@gnu.org
+# http://mail.gnu.org/mailman/listinfo/bug-gnu-utils
+#
+#
diff --git a/test/rebt8b1.ok b/test/rebt8b1.ok
new file mode 100644
index 00000000..5b8a0090
--- /dev/null
+++ b/test/rebt8b1.ok
@@ -0,0 +1,16 @@
+[an]*n bANas ANd ANases iAN cAN
+[anú]*n bANas ANd ANases iAN cAN
+
+[aú]*n bANANas ANd ANANases iAN cANAN
+
+[an]n bANANas ANd ANANases in cANaAN
+[aú]n bANANas ANd ANANases in cANaAN
+[anú]n bANANas ANd ANANases in cANaAN
+
+[an]?n bANANas ANd ANANases iAN cANaAN
+[aú]?n bANANas ANd ANANases iAN cANaAN
+[anú]?n bANANas ANd ANANases iAN cANaAN
+
+[an]+n bANas ANd ANases in cAN
+[aú]+n bANANas ANd ANANases in cANAN
+[anú]+n bANas ANd ANases in cAN
diff --git a/test/rebt8b2.awk b/test/rebt8b2.awk
new file mode 100644
index 00000000..4cb8373c
--- /dev/null
+++ b/test/rebt8b2.awk
@@ -0,0 +1,88 @@
+#From stolfi@ic.unicamp.br Sun Jan 28 19:02:09 2001
+#Received: from mail.actcom.co.il [192.114.47.13]
+# by localhost with POP3 (fetchmail-5.5.0)
+# for arnold@localhost (single-drop); Sun, 28 Jan 2001 19:02:09 +0200 (IST)
+#Received: by actcom.co.il (mbox arobbins)
+# (with Cubic Circle's cucipop (v1.31 1998/05/13) Sun Jan 28 19:03:34 2001)
+#X-From_: stolfi@ic.unicamp.br Sun Jan 28 18:46:02 2001
+#Received: from lmail.actcom.co.il by actcom.co.il with ESMTP
+# (8.9.1a/actcom-0.2) id SAA22932 for <arobbins@actcom.co.il>;
+# Sun, 28 Jan 2001 18:46:00 +0200 (EET)
+# (rfc931-sender: lmail.actcom.co.il [192.114.47.13])
+#Received: from billohost.com (www.billohost.com [209.196.35.10])
+# by lmail.actcom.co.il (8.9.3/8.9.1) with ESMTP id SAA18523
+# for <arobbins@actcom.co.il>; Sun, 28 Jan 2001 18:46:35 +0200
+#Received: from grande.dcc.unicamp.br (grande.dcc.unicamp.br [143.106.7.8])
+# by billohost.com (8.9.3/8.9.3) with ESMTP id LAA20063
+# for <arnold@skeeve.com>; Sun, 28 Jan 2001 11:45:54 -0500
+#Received: from amazonas.dcc.unicamp.br (amazonas.dcc.unicamp.br [143.106.7.11])
+# by grande.dcc.unicamp.br (8.9.3/8.9.3) with ESMTP id OAA29726;
+# Sun, 28 Jan 2001 14:45:47 -0200 (EDT)
+#Received: from coruja.dcc.unicamp.br (coruja.dcc.unicamp.br [143.106.24.80])
+# by amazonas.dcc.unicamp.br (8.8.5/8.8.5) with ESMTP id OAA06542;
+# Sun, 28 Jan 2001 14:45:45 -0200 (EDT)
+#Received: (from stolfi@localhost)
+# by coruja.dcc.unicamp.br (8.11.0/8.11.0) id f0SGjib16703;
+# Sun, 28 Jan 2001 14:45:44 -0200 (EDT)
+#Date: Sun, 28 Jan 2001 14:45:44 -0200 (EDT)
+#Message-Id: <200101281645.f0SGjib16703@coruja.dcc.unicamp.br>
+#From: Jorge Stolfi <stolfi@ic.unicamp.br>
+#To: Michal Jaegermann <michal@ellpspace.math.ualberta.ca>
+#Cc: Aharon Robbins <arnold@skeeve.com>, oliva@ic.unicamp.br,
+# celio@ic.unicamp.br, ducatte@ic.unicamp.br, machado@ic.unicamp.br
+#Subject: Re: a regex.c problem
+#MIME-Version: 1.0
+#Content-Transfer-Encoding: 8bit
+#Content-Type: text/plain; charset=iso-8859-1
+#In-Reply-To: <20010128090314.A5820@ellpspace.math.ualberta.ca>
+#References: <200101281207.f0SC7Un08435@skeeve.com>
+# <20010128090314.A5820@ellpspace.math.ualberta.ca>
+#Reply-To: stolfi@ic.unicamp.br
+#Status: RO
+#
+#
+# > [Michal] Are there any other examples of "certain characters"
+# > which would throw this regex engine off?
+#
+#I now tested [anX]*n for X ranging trough all characters from \000 and
+#\377, and got that unexpected result only for the following ones:
+#
+# \370 | =F8 | ø | Small o, slash
+# \371 | =F9 | ù | Small u, grave accent
+# \372 | =FA | ú | Small u, acute accent
+# \373 | =FB | û | Small u, circumflex accent
+# \374 | =FC | ü | Small u, dieresis or umlaut mark
+# \375 | =FD | ý | Small y, acute accent
+# \376 | =FE | þ | Small thorn, Icelandic
+# \377 | =FF | ÿ | Small y, dieresis or umlaut mark
+#
+#I have also tried those offending REs from inside emacs (20.7.1), with
+#query-replace-regexp, and it seems to be working fine. So presumably
+#the bug lies in gawk itself, or in the RE parsing code, rather than in
+#the matching engine?
+#
+#Could it be an underdimensioned table somewhere?
+#
+#Thanks for the help, and all the best
+#
+#--stolfi
+#
+# ----------------------------------------------------------------------
+ #! /usr/bin/gawk -f
+
+ BEGIN {
+ for (c = 0; c < 256; c++)
+ { do_test(c); }
+ }
+
+ function do_test(char, pat,s,t)
+ {
+ if (char == 92) { printf "(error for \\%03o)\n", char; return; }
+ pat = sprintf("[an\\%03o]*n", char);
+ s = "bananas and ananases in canaan";
+ t = s; gsub(pat, "AN", t); printf "%-8s %s\n", pat, t;
+# ADR: Added:
+ if (s ~ pat) printf "\tmatch\n" ; else printf "\tno-match\n"
+ }
+
+# ----------------------------------------------------------------------
diff --git a/test/rebt8b2.ok b/test/rebt8b2.ok
new file mode 100644
index 00000000..661109c0
--- /dev/null
+++ b/test/rebt8b2.ok
@@ -0,0 +1,511 @@
+[an\000]*n bANas ANd ANases iAN cAN
+ match
+[an\001]*n bANas ANd ANases iAN cAN
+ match
+[an\002]*n bANas ANd ANases iAN cAN
+ match
+[an\003]*n bANas ANd ANases iAN cAN
+ match
+[an\004]*n bANas ANd ANases iAN cAN
+ match
+[an\005]*n bANas ANd ANases iAN cAN
+ match
+[an\006]*n bANas ANd ANases iAN cAN
+ match
+[an\007]*n bANas ANd ANases iAN cAN
+ match
+[an\010]*n bANas ANd ANases iAN cAN
+ match
+[an\011]*n bANas ANd ANases iAN cAN
+ match
+[an\012]*n bANas ANd ANases iAN cAN
+ match
+[an\013]*n bANas ANd ANases iAN cAN
+ match
+[an\014]*n bANas ANd ANases iAN cAN
+ match
+[an\015]*n bANas ANd ANases iAN cAN
+ match
+[an\016]*n bANas ANd ANases iAN cAN
+ match
+[an\017]*n bANas ANd ANases iAN cAN
+ match
+[an\020]*n bANas ANd ANases iAN cAN
+ match
+[an\021]*n bANas ANd ANases iAN cAN
+ match
+[an\022]*n bANas ANd ANases iAN cAN
+ match
+[an\023]*n bANas ANd ANases iAN cAN
+ match
+[an\024]*n bANas ANd ANases iAN cAN
+ match
+[an\025]*n bANas ANd ANases iAN cAN
+ match
+[an\026]*n bANas ANd ANases iAN cAN
+ match
+[an\027]*n bANas ANd ANases iAN cAN
+ match
+[an\030]*n bANas ANd ANases iAN cAN
+ match
+[an\031]*n bANas ANd ANases iAN cAN
+ match
+[an\032]*n bANas ANd ANases iAN cAN
+ match
+[an\033]*n bANas ANd ANases iAN cAN
+ match
+[an\034]*n bANas ANd ANases iAN cAN
+ match
+[an\035]*n bANas ANd ANases iAN cAN
+ match
+[an\036]*n bANas ANd ANases iAN cAN
+ match
+[an\037]*n bANas ANd ANases iAN cAN
+ match
+[an\040]*n bANasANdANases iAN cAN
+ match
+[an\041]*n bANas ANd ANases iAN cAN
+ match
+[an\042]*n bANas ANd ANases iAN cAN
+ match
+[an\043]*n bANas ANd ANases iAN cAN
+ match
+[an\044]*n bANas ANd ANases iAN cAN
+ match
+[an\045]*n bANas ANd ANases iAN cAN
+ match
+[an\046]*n bANas ANd ANases iAN cAN
+ match
+[an\047]*n bANas ANd ANases iAN cAN
+ match
+[an\050]*n bANas ANd ANases iAN cAN
+ match
+[an\051]*n bANas ANd ANases iAN cAN
+ match
+[an\052]*n bANas ANd ANases iAN cAN
+ match
+[an\053]*n bANas ANd ANases iAN cAN
+ match
+[an\054]*n bANas ANd ANases iAN cAN
+ match
+[an\055]*n bANas ANd ANases iAN cAN
+ match
+[an\056]*n bANas ANd ANases iAN cAN
+ match
+[an\057]*n bANas ANd ANases iAN cAN
+ match
+[an\060]*n bANas ANd ANases iAN cAN
+ match
+[an\061]*n bANas ANd ANases iAN cAN
+ match
+[an\062]*n bANas ANd ANases iAN cAN
+ match
+[an\063]*n bANas ANd ANases iAN cAN
+ match
+[an\064]*n bANas ANd ANases iAN cAN
+ match
+[an\065]*n bANas ANd ANases iAN cAN
+ match
+[an\066]*n bANas ANd ANases iAN cAN
+ match
+[an\067]*n bANas ANd ANases iAN cAN
+ match
+[an\070]*n bANas ANd ANases iAN cAN
+ match
+[an\071]*n bANas ANd ANases iAN cAN
+ match
+[an\072]*n bANas ANd ANases iAN cAN
+ match
+[an\073]*n bANas ANd ANases iAN cAN
+ match
+[an\074]*n bANas ANd ANases iAN cAN
+ match
+[an\075]*n bANas ANd ANases iAN cAN
+ match
+[an\076]*n bANas ANd ANases iAN cAN
+ match
+[an\077]*n bANas ANd ANases iAN cAN
+ match
+[an\100]*n bANas ANd ANases iAN cAN
+ match
+[an\101]*n bANas ANd ANases iAN cAN
+ match
+[an\102]*n bANas ANd ANases iAN cAN
+ match
+[an\103]*n bANas ANd ANases iAN cAN
+ match
+[an\104]*n bANas ANd ANases iAN cAN
+ match
+[an\105]*n bANas ANd ANases iAN cAN
+ match
+[an\106]*n bANas ANd ANases iAN cAN
+ match
+[an\107]*n bANas ANd ANases iAN cAN
+ match
+[an\110]*n bANas ANd ANases iAN cAN
+ match
+[an\111]*n bANas ANd ANases iAN cAN
+ match
+[an\112]*n bANas ANd ANases iAN cAN
+ match
+[an\113]*n bANas ANd ANases iAN cAN
+ match
+[an\114]*n bANas ANd ANases iAN cAN
+ match
+[an\115]*n bANas ANd ANases iAN cAN
+ match
+[an\116]*n bANas ANd ANases iAN cAN
+ match
+[an\117]*n bANas ANd ANases iAN cAN
+ match
+[an\120]*n bANas ANd ANases iAN cAN
+ match
+[an\121]*n bANas ANd ANases iAN cAN
+ match
+[an\122]*n bANas ANd ANases iAN cAN
+ match
+[an\123]*n bANas ANd ANases iAN cAN
+ match
+[an\124]*n bANas ANd ANases iAN cAN
+ match
+[an\125]*n bANas ANd ANases iAN cAN
+ match
+[an\126]*n bANas ANd ANases iAN cAN
+ match
+[an\127]*n bANas ANd ANases iAN cAN
+ match
+[an\130]*n bANas ANd ANases iAN cAN
+ match
+[an\131]*n bANas ANd ANases iAN cAN
+ match
+[an\132]*n bANas ANd ANases iAN cAN
+ match
+[an\133]*n bANas ANd ANases iAN cAN
+ match
+(error for \134)
+[an\135]*n bANANas ANd ANANases in cANaAN
+ match
+[an\136]*n bANas ANd ANases iAN cAN
+ match
+[an\137]*n bANas ANd ANases iAN cAN
+ match
+[an\140]*n bANas ANd ANases iAN cAN
+ match
+[an\141]*n bANas ANd ANases iAN cAN
+ match
+[an\142]*n ANas ANd ANases iAN cAN
+ match
+[an\143]*n bANas ANd ANases iAN AN
+ match
+[an\144]*n bANas ANd ANases iAN cAN
+ match
+[an\145]*n bANas ANd ANases iAN cAN
+ match
+[an\146]*n bANas ANd ANases iAN cAN
+ match
+[an\147]*n bANas ANd ANases iAN cAN
+ match
+[an\150]*n bANas ANd ANases iAN cAN
+ match
+[an\151]*n bANas ANd ANases AN cAN
+ match
+[an\152]*n bANas ANd ANases iAN cAN
+ match
+[an\153]*n bANas ANd ANases iAN cAN
+ match
+[an\154]*n bANas ANd ANases iAN cAN
+ match
+[an\155]*n bANas ANd ANases iAN cAN
+ match
+[an\156]*n bANas ANd ANases iAN cAN
+ match
+[an\157]*n bANas ANd ANases iAN cAN
+ match
+[an\160]*n bANas ANd ANases iAN cAN
+ match
+[an\161]*n bANas ANd ANases iAN cAN
+ match
+[an\162]*n bANas ANd ANases iAN cAN
+ match
+[an\163]*n bANas ANd ANases iAN cAN
+ match
+[an\164]*n bANas ANd ANases iAN cAN
+ match
+[an\165]*n bANas ANd ANases iAN cAN
+ match
+[an\166]*n bANas ANd ANases iAN cAN
+ match
+[an\167]*n bANas ANd ANases iAN cAN
+ match
+[an\170]*n bANas ANd ANases iAN cAN
+ match
+[an\171]*n bANas ANd ANases iAN cAN
+ match
+[an\172]*n bANas ANd ANases iAN cAN
+ match
+[an\173]*n bANas ANd ANases iAN cAN
+ match
+[an\174]*n bANas ANd ANases iAN cAN
+ match
+[an\175]*n bANas ANd ANases iAN cAN
+ match
+[an\176]*n bANas ANd ANases iAN cAN
+ match
+[an\177]*n bANas ANd ANases iAN cAN
+ match
+[an\200]*n bANas ANd ANases iAN cAN
+ match
+[an\201]*n bANas ANd ANases iAN cAN
+ match
+[an\202]*n bANas ANd ANases iAN cAN
+ match
+[an\203]*n bANas ANd ANases iAN cAN
+ match
+[an\204]*n bANas ANd ANases iAN cAN
+ match
+[an\205]*n bANas ANd ANases iAN cAN
+ match
+[an\206]*n bANas ANd ANases iAN cAN
+ match
+[an\207]*n bANas ANd ANases iAN cAN
+ match
+[an\210]*n bANas ANd ANases iAN cAN
+ match
+[an\211]*n bANas ANd ANases iAN cAN
+ match
+[an\212]*n bANas ANd ANases iAN cAN
+ match
+[an\213]*n bANas ANd ANases iAN cAN
+ match
+[an\214]*n bANas ANd ANases iAN cAN
+ match
+[an\215]*n bANas ANd ANases iAN cAN
+ match
+[an\216]*n bANas ANd ANases iAN cAN
+ match
+[an\217]*n bANas ANd ANases iAN cAN
+ match
+[an\220]*n bANas ANd ANases iAN cAN
+ match
+[an\221]*n bANas ANd ANases iAN cAN
+ match
+[an\222]*n bANas ANd ANases iAN cAN
+ match
+[an\223]*n bANas ANd ANases iAN cAN
+ match
+[an\224]*n bANas ANd ANases iAN cAN
+ match
+[an\225]*n bANas ANd ANases iAN cAN
+ match
+[an\226]*n bANas ANd ANases iAN cAN
+ match
+[an\227]*n bANas ANd ANases iAN cAN
+ match
+[an\230]*n bANas ANd ANases iAN cAN
+ match
+[an\231]*n bANas ANd ANases iAN cAN
+ match
+[an\232]*n bANas ANd ANases iAN cAN
+ match
+[an\233]*n bANas ANd ANases iAN cAN
+ match
+[an\234]*n bANas ANd ANases iAN cAN
+ match
+[an\235]*n bANas ANd ANases iAN cAN
+ match
+[an\236]*n bANas ANd ANases iAN cAN
+ match
+[an\237]*n bANas ANd ANases iAN cAN
+ match
+[an\240]*n bANas ANd ANases iAN cAN
+ match
+[an\241]*n bANas ANd ANases iAN cAN
+ match
+[an\242]*n bANas ANd ANases iAN cAN
+ match
+[an\243]*n bANas ANd ANases iAN cAN
+ match
+[an\244]*n bANas ANd ANases iAN cAN
+ match
+[an\245]*n bANas ANd ANases iAN cAN
+ match
+[an\246]*n bANas ANd ANases iAN cAN
+ match
+[an\247]*n bANas ANd ANases iAN cAN
+ match
+[an\250]*n bANas ANd ANases iAN cAN
+ match
+[an\251]*n bANas ANd ANases iAN cAN
+ match
+[an\252]*n bANas ANd ANases iAN cAN
+ match
+[an\253]*n bANas ANd ANases iAN cAN
+ match
+[an\254]*n bANas ANd ANases iAN cAN
+ match
+[an\255]*n bANas ANd ANases iAN cAN
+ match
+[an\256]*n bANas ANd ANases iAN cAN
+ match
+[an\257]*n bANas ANd ANases iAN cAN
+ match
+[an\260]*n bANas ANd ANases iAN cAN
+ match
+[an\261]*n bANas ANd ANases iAN cAN
+ match
+[an\262]*n bANas ANd ANases iAN cAN
+ match
+[an\263]*n bANas ANd ANases iAN cAN
+ match
+[an\264]*n bANas ANd ANases iAN cAN
+ match
+[an\265]*n bANas ANd ANases iAN cAN
+ match
+[an\266]*n bANas ANd ANases iAN cAN
+ match
+[an\267]*n bANas ANd ANases iAN cAN
+ match
+[an\270]*n bANas ANd ANases iAN cAN
+ match
+[an\271]*n bANas ANd ANases iAN cAN
+ match
+[an\272]*n bANas ANd ANases iAN cAN
+ match
+[an\273]*n bANas ANd ANases iAN cAN
+ match
+[an\274]*n bANas ANd ANases iAN cAN
+ match
+[an\275]*n bANas ANd ANases iAN cAN
+ match
+[an\276]*n bANas ANd ANases iAN cAN
+ match
+[an\277]*n bANas ANd ANases iAN cAN
+ match
+[an\300]*n bANas ANd ANases iAN cAN
+ match
+[an\301]*n bANas ANd ANases iAN cAN
+ match
+[an\302]*n bANas ANd ANases iAN cAN
+ match
+[an\303]*n bANas ANd ANases iAN cAN
+ match
+[an\304]*n bANas ANd ANases iAN cAN
+ match
+[an\305]*n bANas ANd ANases iAN cAN
+ match
+[an\306]*n bANas ANd ANases iAN cAN
+ match
+[an\307]*n bANas ANd ANases iAN cAN
+ match
+[an\310]*n bANas ANd ANases iAN cAN
+ match
+[an\311]*n bANas ANd ANases iAN cAN
+ match
+[an\312]*n bANas ANd ANases iAN cAN
+ match
+[an\313]*n bANas ANd ANases iAN cAN
+ match
+[an\314]*n bANas ANd ANases iAN cAN
+ match
+[an\315]*n bANas ANd ANases iAN cAN
+ match
+[an\316]*n bANas ANd ANases iAN cAN
+ match
+[an\317]*n bANas ANd ANases iAN cAN
+ match
+[an\320]*n bANas ANd ANases iAN cAN
+ match
+[an\321]*n bANas ANd ANases iAN cAN
+ match
+[an\322]*n bANas ANd ANases iAN cAN
+ match
+[an\323]*n bANas ANd ANases iAN cAN
+ match
+[an\324]*n bANas ANd ANases iAN cAN
+ match
+[an\325]*n bANas ANd ANases iAN cAN
+ match
+[an\326]*n bANas ANd ANases iAN cAN
+ match
+[an\327]*n bANas ANd ANases iAN cAN
+ match
+[an\330]*n bANas ANd ANases iAN cAN
+ match
+[an\331]*n bANas ANd ANases iAN cAN
+ match
+[an\332]*n bANas ANd ANases iAN cAN
+ match
+[an\333]*n bANas ANd ANases iAN cAN
+ match
+[an\334]*n bANas ANd ANases iAN cAN
+ match
+[an\335]*n bANas ANd ANases iAN cAN
+ match
+[an\336]*n bANas ANd ANases iAN cAN
+ match
+[an\337]*n bANas ANd ANases iAN cAN
+ match
+[an\340]*n bANas ANd ANases iAN cAN
+ match
+[an\341]*n bANas ANd ANases iAN cAN
+ match
+[an\342]*n bANas ANd ANases iAN cAN
+ match
+[an\343]*n bANas ANd ANases iAN cAN
+ match
+[an\344]*n bANas ANd ANases iAN cAN
+ match
+[an\345]*n bANas ANd ANases iAN cAN
+ match
+[an\346]*n bANas ANd ANases iAN cAN
+ match
+[an\347]*n bANas ANd ANases iAN cAN
+ match
+[an\350]*n bANas ANd ANases iAN cAN
+ match
+[an\351]*n bANas ANd ANases iAN cAN
+ match
+[an\352]*n bANas ANd ANases iAN cAN
+ match
+[an\353]*n bANas ANd ANases iAN cAN
+ match
+[an\354]*n bANas ANd ANases iAN cAN
+ match
+[an\355]*n bANas ANd ANases iAN cAN
+ match
+[an\356]*n bANas ANd ANases iAN cAN
+ match
+[an\357]*n bANas ANd ANases iAN cAN
+ match
+[an\360]*n bANas ANd ANases iAN cAN
+ match
+[an\361]*n bANas ANd ANases iAN cAN
+ match
+[an\362]*n bANas ANd ANases iAN cAN
+ match
+[an\363]*n bANas ANd ANases iAN cAN
+ match
+[an\364]*n bANas ANd ANases iAN cAN
+ match
+[an\365]*n bANas ANd ANases iAN cAN
+ match
+[an\366]*n bANas ANd ANases iAN cAN
+ match
+[an\367]*n bANas ANd ANases iAN cAN
+ match
+[an\370]*n bANas ANd ANases iAN cAN
+ match
+[an\371]*n bANas ANd ANases iAN cAN
+ match
+[an\372]*n bANas ANd ANases iAN cAN
+ match
+[an\373]*n bANas ANd ANases iAN cAN
+ match
+[an\374]*n bANas ANd ANases iAN cAN
+ match
+[an\375]*n bANas ANd ANases iAN cAN
+ match
+[an\376]*n bANas ANd ANases iAN cAN
+ match
+[an\377]*n bANas ANd ANases iAN cAN
+ match
diff --git a/test/redfilnm.awk b/test/redfilnm.awk
new file mode 100644
index 00000000..83cb6aa9
--- /dev/null
+++ b/test/redfilnm.awk
@@ -0,0 +1,98 @@
+#Date: Tue, 18 May 1999 12:48:07 -0500 (CDT)
+#From: Darrel Hankerson <hankedr@dms.auburn.edu>
+#To: arnold@gnu.org
+#Subject: [christopher.procter@bt.com: RE: Getline bug in Gawk 3.0.3]
+#
+#Here's a reply that came directly to me. --darrel
+#
+#
+#From: christopher.procter@bt.com
+#To: hankedr@dms.auburn.edu
+#Subject: RE: Getline bug in Gawk 3.0.3
+#Date: Tue, 18 May 1999 18:42:28 +0100
+#
+#Sorry that was me getting carried away and cut and pasting the wrong thing
+#into my email
+#
+#The real problem seems to be that :
+#BEGIN {
+#for (i=1;i<10;i++){
+# while((getline < "hello.txt")>0){
+# print $0
+# }
+# close("hello.txt")
+# }
+#}
+#works (printing the contents of hello.txt 9 times), where as:-
+#
+#END{
+#for (i=1;i<10;i++){
+# while((getline < "hello.txt")>0){
+# print $0
+# }
+# close("hello.txt")
+# }
+#}
+#
+#doesn't, (it prints out hello.txt once followed by the iteration numbers
+#from 1 to 9).
+#The only difference is that one is in the BEGIN block and one in the END
+#block.
+#
+#Sorry about the first post, I'm not a bad awk programmer, just a tired one
+#:)
+#
+#chris
+#
+#> -----Original Message-----
+#> From: Darrel Hankerson [SMTP:hankedr@dms.auburn.edu]
+#> Sent: 18 May 1999 18:28
+#> To: christopher.procter@bt.com
+#> Subject: Re: Getline bug in Gawk 3.0.3
+#>
+#> Could you clarify? Your first script uses an apparently undefined
+#> variable f.
+#>
+#>
+#> christopher.procter@bt.com writes:
+#>
+#> BEGIN {
+#> for (i=1;i<10;i++){
+#> while((getline < "hello.txt")>0){
+#> print $0
+#> }
+#> close(f)
+#> }
+#> }
+#>
+#> refuses to close the file and so prints the contents of hello.txt just
+#> once.
+#> However:-
+#>
+#> BEGIN {
+#> f="hello.txt"
+#> for (i=1;i<10;i++){
+#> while((getline < f)>0){
+#> print $0
+#> }
+#> close(f)
+#> }
+#> }
+#>
+#> works as advertised (printing the contents of hello.txt 9 times)
+#> It seems like a bug in the close statement.
+#>
+#> --
+#> --Darrel Hankerson hankedr@mail.auburn.edu
+#
+
+# srcdir is assigned on command line --- ADR
+END {
+ f = srcdir "/redfilnm.in"
+ for (i = 1; i < 10; i++){
+ while((getline < f) > 0){
+ print $0
+ }
+ close(f)
+ }
+}
diff --git a/test/redfilnm.in b/test/redfilnm.in
new file mode 100644
index 00000000..4b5fa637
--- /dev/null
+++ b/test/redfilnm.in
@@ -0,0 +1 @@
+hello, world
diff --git a/test/redfilnm.ok b/test/redfilnm.ok
new file mode 100644
index 00000000..f9e095a7
--- /dev/null
+++ b/test/redfilnm.ok
@@ -0,0 +1,9 @@
+hello, world
+hello, world
+hello, world
+hello, world
+hello, world
+hello, world
+hello, world
+hello, world
+hello, world
diff --git a/test/regeq.awk b/test/regeq.awk
new file mode 100644
index 00000000..0208eb24
--- /dev/null
+++ b/test/regeq.awk
@@ -0,0 +1,29 @@
+#Date: Sat, 8 May 1999 17:42:20 +0200
+#From: Iva Cabric <ivac@fly.srk.fer.hr>
+#To: bug-gnu-utils@gnu.org
+#Cc: arnold@gnu.org
+#Subject: Problem in gawk with match
+#
+#Hello,
+#
+#gawk reports fatal error in match when first character in regexp is "=" :
+#
+#$ gawk '{ where = match($0, /=a/); print where}'
+#gawk: cmd. line:1: { where = match($0, /=a/); print where}
+#gawk: cmd. line:1: ^ parse error
+#gawk: cmd. line:1: fatal: match() cannot have 0 arguments
+#
+#Using "\=" instead "=" works without problems :
+#
+#$ gawk '{ where = match($0, /\=a/); print where}'
+#sdgfa
+#0
+#asdfds=a
+#7
+#
+#Other versions of awk have no problems with "/=/" (except oawk on SunOS).
+#
+#--
+# @
+#
+{ where = match($0, /=a/); print where}
diff --git a/test/regeq.in b/test/regeq.in
new file mode 100644
index 00000000..2428df3a
--- /dev/null
+++ b/test/regeq.in
@@ -0,0 +1,2 @@
+sdgfa
+asdfds=a
diff --git a/test/regeq.ok b/test/regeq.ok
new file mode 100644
index 00000000..4596f886
--- /dev/null
+++ b/test/regeq.ok
@@ -0,0 +1,2 @@
+0
+7
diff --git a/test/regtest b/test/regtest.sh
index 72b0dbf9..72b0dbf9 100755
--- a/test/regtest
+++ b/test/regtest.sh
diff --git a/test/regx8bit.awk b/test/regx8bit.awk
new file mode 100644
index 00000000..5ecd7eb2
--- /dev/null
+++ b/test/regx8bit.awk
@@ -0,0 +1,26 @@
+# The full test will only work in a Swedish localte
+# Try things that should work across the board
+# BEGIN {
+# s = "så är det"
+# print match(s,/\yså\y/), s ~ /\yså\y/, "å" ~ /\w/
+# }
+BEGIN {
+ printf "\"å\" = %c\n", "å"
+ printf "\"ä\" = %c\n", "ä"
+ s = "så är det"
+ printf "s = \"%s\"\n", s
+ printf "match(s,/\\yså/) = %d\n", match(s, /\yså/)
+# printf "match(s,/så\\y/) = %d\n", match(s, /så\y/)
+# printf "match(s,/\\yså\\y/) = %d\n", match(s, /\yså\y/)
+ printf "s ~ /å/ = %d\n", s ~ /å/
+ printf "s ~ /så/ = %d\n", s ~ /så/
+ printf "s ~ /\\yså/ = %d\n", s ~ /\yså/
+# printf "s ~ /så\\y/ = %d\n", s ~ /så\y/
+# printf "s ~ /\\yså\\y/ = %d\n", s ~ /\yså\y/
+# printf "\"å\" ~ /\\w/ = %d\n", "å" ~ /\w/
+# printf "\"ä\" ~ /\\w/ = %d\n", "ä" ~ /\w/
+# printf "\"å\" ~ /\\yä\\y/ = %d\n", "å" ~ /\yå\y/
+# printf "\"ä\" ~ /\\yä\\y/ = %d\n", "ä" ~ /\yä\y/
+# printf "\"å\" ~ /[[:alpha:]]/ = %d\n", "å" ~ /[[:alpha:]]/
+# printf "\"ä\" ~ /[[:alpha:]]/ = %d\n", "ä" ~ /[[:alpha:]]/
+}
diff --git a/test/regx8bit.ok b/test/regx8bit.ok
new file mode 100644
index 00000000..76e1c0b1
--- /dev/null
+++ b/test/regx8bit.ok
@@ -0,0 +1,7 @@
+"å" = å
+"ä" = ä
+s = "så är det"
+match(s,/\yså/) = 1
+s ~ /å/ = 1
+s ~ /så/ = 1
+s ~ /\yså/ = 1
diff --git a/test/rsnul1nl.awk b/test/rsnul1nl.awk
new file mode 100644
index 00000000..d8da7a64
--- /dev/null
+++ b/test/rsnul1nl.awk
@@ -0,0 +1,2 @@
+BEGIN { RS = "" }
+{ print }
diff --git a/test/rsnul1nl.in b/test/rsnul1nl.in
new file mode 100644
index 00000000..76de96fc
--- /dev/null
+++ b/test/rsnul1nl.in
@@ -0,0 +1,3 @@
+
+This is...
+the first record.
diff --git a/test/rsnul1nl.ok b/test/rsnul1nl.ok
new file mode 100644
index 00000000..7ce0957b
--- /dev/null
+++ b/test/rsnul1nl.ok
@@ -0,0 +1,2 @@
+This is...
+the first record.
diff --git a/test/sclforin.ok b/test/sclforin.ok
index d87fa61f..f41fc77a 100644
--- a/test/sclforin.ok
+++ b/test/sclforin.ok
@@ -1 +1 @@
-gawk: sclforin.awk:1: fatal: attempt to use scalar as array
+gawk: sclforin.awk:1: fatal: attempt to use scalar `j' as array
diff --git a/test/sclifin.ok b/test/sclifin.ok
index 717f8368..dc746231 100644
--- a/test/sclifin.ok
+++ b/test/sclifin.ok
@@ -1 +1 @@
-gawk: sclifin.awk:7: fatal: attempt to use scalar as array
+gawk: sclifin.awk:7: fatal: attempt to use scalar `j' as array
diff --git a/test/shadow.awk b/test/shadow.awk
new file mode 100644
index 00000000..9a587203
--- /dev/null
+++ b/test/shadow.awk
@@ -0,0 +1,21 @@
+function foo()
+{
+ print "foo"
+}
+
+function bar(A, Z, q)
+{
+ print "bar"
+}
+
+function baz(C, D)
+{
+ print "baz"
+}
+
+BEGIN {
+ A = C = D = Z = y = 1
+ foo()
+ bar()
+ baz()
+}
diff --git a/test/shadow.ok b/test/shadow.ok
new file mode 100644
index 00000000..f543a883
--- /dev/null
+++ b/test/shadow.ok
@@ -0,0 +1,7 @@
+gawk: shadow.awk:22: warning: function `bar': parameter `A' shadows global variable
+gawk: shadow.awk:22: warning: function `bar': parameter `Z' shadows global variable
+gawk: shadow.awk:22: warning: function `baz': parameter `C' shadows global variable
+gawk: shadow.awk:22: warning: function `baz': parameter `D' shadows global variable
+foo
+bar
+baz
diff --git a/test/sort1.awk b/test/sort1.awk
new file mode 100644
index 00000000..3800c40e
--- /dev/null
+++ b/test/sort1.awk
@@ -0,0 +1,31 @@
+BEGIN{
+ a[1] = "barz";
+ a[2] = "blattt";
+ a[3] = "Zebra";
+ a[4] = 1234;
+
+ testit1(a)
+
+ delete a
+
+ a[1] = "barz";
+ a[2] = "blattt";
+ a[3] = "Zebra";
+ a[4] = 1234;
+
+ n = asort(a, b);
+
+ print "N = ", n;
+
+ for(i=1; i <= n; i++)
+ print i, a[i], b[i];
+}
+
+function testit1(a, count, j)
+{
+ print "start testit"
+ count = asort(a)
+ for (j = 1; j <= count; j++)
+ print j, a[j]
+ print "end testit"
+}
diff --git a/test/sort1.ok b/test/sort1.ok
new file mode 100644
index 00000000..4838daba
--- /dev/null
+++ b/test/sort1.ok
@@ -0,0 +1,11 @@
+start testit
+1 1234
+2 Zebra
+3 barz
+4 blattt
+end testit
+N = 4
+1 barz 1234
+2 blattt Zebra
+3 Zebra barz
+4 1234 blattt
diff --git a/test/splitdef.awk b/test/splitdef.awk
new file mode 100644
index 00000000..694db80a
--- /dev/null
+++ b/test/splitdef.awk
@@ -0,0 +1,7 @@
+BEGIN {
+ data = "abc:easy:as:one:two:three"
+ FS = ":"
+ FIELDWIDTHS = "3 1 4 1 2 1 3 1 3 1 5"
+ n = split(data, a)
+ printf "n = %d, a[3] = %s\n", n, a[3]
+}
diff --git a/test/splitdef.ok b/test/splitdef.ok
new file mode 100644
index 00000000..5f13505f
--- /dev/null
+++ b/test/splitdef.ok
@@ -0,0 +1 @@
+n = 6, a[3] = as
diff --git a/test/strtod.awk b/test/strtod.awk
new file mode 100644
index 00000000..27df8a4f
--- /dev/null
+++ b/test/strtod.awk
@@ -0,0 +1 @@
+{ x = "0x" $1 ; print x, x + 0 }
diff --git a/test/strtod.in b/test/strtod.in
new file mode 100644
index 00000000..51b40081
--- /dev/null
+++ b/test/strtod.in
@@ -0,0 +1 @@
+345
diff --git a/test/strtod.ok b/test/strtod.ok
new file mode 100644
index 00000000..bedd0f23
--- /dev/null
+++ b/test/strtod.ok
@@ -0,0 +1 @@
+0x345 0
diff --git a/atari/ChangeLog b/unsupported/atari/ChangeLog
index 0e2de7af..3e13117e 100644
--- a/atari/ChangeLog
+++ b/unsupported/atari/ChangeLog
@@ -1,3 +1,25 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * gawkmisc.atr (os_restore_mode): New function
+
+Sun Dec 3 16:53:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.atr (os_setbinmode): new function.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.atr (os_is_setuid): new function.
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@gnu.ai.mit.edu>
+
+ * Close-on-exec changes:
+ gawkmisc.atr: (os_close_on_exec, os_isdir): new functions.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -7,7 +29,7 @@ Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.5: Release tar file made.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Thu May 15 12:49:08 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us>
diff --git a/atari/Makefile.awklib b/unsupported/atari/Makefile.awklib
index abdc1649..abdc1649 100644
--- a/atari/Makefile.awklib
+++ b/unsupported/atari/Makefile.awklib
diff --git a/atari/Makefile.st b/unsupported/atari/Makefile.st
index 20664a48..20664a48 100644
--- a/atari/Makefile.st
+++ b/unsupported/atari/Makefile.st
diff --git a/unsupported/atari/README.1st b/unsupported/atari/README.1st
new file mode 100644
index 00000000..a158cda1
--- /dev/null
+++ b/unsupported/atari/README.1st
@@ -0,0 +1,5 @@
+Tue Nov 7 14:19:41 2000
+
+The atari port is no longer supported. If you have an atari,
+you are welcome to try and use the port here, but we no longer have
+the hardware to test gawk on.
diff --git a/atari/config.h b/unsupported/atari/config.h
index 1e40b132..1e40b132 100644
--- a/atari/config.h
+++ b/unsupported/atari/config.h
diff --git a/atari/gawkmisc.atr b/unsupported/atari/gawkmisc.atr
index 2a9fcb27..85bfa29d 100644
--- a/atari/gawkmisc.atr
+++ b/unsupported/atari/gawkmisc.atr
@@ -122,3 +122,57 @@ int c;
{
return (c == '/' || c == '\\');
}
+
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+const char *name, *what, *dir;
+{
+ if (fcntl(fd, F_SETFD, 1) < 0)
+ warning("%s %s `%s': could not set close-on-exec: %s",
+ what, dir, name, strerror(errno));
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+#if ! defined(S_ISDIR) && defined(S_IFDIR)
+#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
+
+int
+os_isdir(fd)
+int fd;
+{
+ struct stat sbuf;
+
+ return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode));
+}
+
+/* os_is_setuid --- true if running setuid root */
+
+int
+os_is_setuid()
+{
+ return 0;
+}
+
+/* os_setbinmode --- set binary mode on file */
+
+int
+os_setbinmode (fd, mode)
+int fd, mode;
+{
+ return 0;
+}
+
+/* os_restore_mode --- restore the original mode of the console device */
+
+void
+os_restore_mode (fd)
+int fd;
+{
+ /* no-op */
+ return;
+}
diff --git a/atari/redirect.h b/unsupported/atari/redirect.h
index 6452778f..6452778f 100644
--- a/atari/redirect.h
+++ b/unsupported/atari/redirect.h
diff --git a/atari/stack.c b/unsupported/atari/stack.c
index c57880da..c57880da 100644
--- a/atari/stack.c
+++ b/unsupported/atari/stack.c
diff --git a/atari/system.c b/unsupported/atari/system.c
index b74ae92f..b74ae92f 100644
--- a/atari/system.c
+++ b/unsupported/atari/system.c
diff --git a/atari/tmpnam.c b/unsupported/atari/tmpnam.c
index 92bf751b..92bf751b 100644
--- a/atari/tmpnam.c
+++ b/unsupported/atari/tmpnam.c
diff --git a/unsupported/tandem/ChangeLog b/unsupported/tandem/ChangeLog
new file mode 100644
index 00000000..9447e874
--- /dev/null
+++ b/unsupported/tandem/ChangeLog
@@ -0,0 +1,31 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * tmisc.c (os_restore_mode): New function
+
+Sun Dec 3 16:53:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * tmisc.c (os_setbinmode): new function.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * tmisc.c (os_is_setuid): new function.
+
+Tue Jun 1 14:09:36 1999 Arnold D. Robbins <arnold@gnu.org>
+
+ Sync with changes in 3.0.4 for non-Unix popen/pclose
+ * popen.h: add defines for popen and pclose.
+ * config.h: add define for HAVE_POPEN_H.
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Close-on-exec changes:
+ tmisc.c: (os_close_on_exec, os_isdir): new functions.
+
+Mon Jul 27 11:40:00 1997 Arnold D. Robbins <arnold@gnu.org>
+
+ * Initial integration of Tandem stuff into gawk source tree.
diff --git a/unsupported/tandem/compit b/unsupported/tandem/compit
new file mode 100755
index 00000000..3bf1aea5
--- /dev/null
+++ b/unsupported/tandem/compit
@@ -0,0 +1 @@
+?TACL MACRO #FRAME #PUSH #INLINEPREFIX #SET #INLINEPREFIX + == == Compile the bits == c /in allocac, out allocax/allocao; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in arrayc, out arrayx/arrayo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in builtinc, out builtinx/builtino; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in dfac, out dfax/dfao; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in evalc, out evalx/evalo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in fieldc, out fieldx/fieldo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in gawkmisc, out gawkmisx/gawkmiso; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in getoptc, out getoptx/getopto; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in getopt1c, out getopt1x/getopt1o;symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in ioc, out iox/ioo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in isattyc, out isattyx/isattyo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in mainc, out mainx/maino; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in missingc, out missingx/missingo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in msgc, out msgx/msgo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in nodec, out nodex/nodeo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in popenc, out popenx/popeno; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in rec, out rex/reo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in regexc, out regexx/regexo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in awktabc, out tawktabx/tawktabo; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" c /in versionc, out versionx/versiono; symbols,WIDE,define TANDEM,define HAVE_CONFIG_H,SSV0 "$system.system",SSV1 "[#defaults]" == == then bind them == bind/inline,out bindout/ + select runnable object on + select check parameter off + select list * off + select fixups on + select search $system.system.cwide + add * from arrayo + add * from allocao + add * from builtino + add * from dfao + add * from evalo + add * from fieldo + add * from gawkmiso + add * from getopto + add * from getopt1o + add * from ioo + add * from isattyo + add * from maino + add * from missingo + add * from msgo + add * from nodeo + add * from popeno + add * from reo + add * from regexo + add * from tawktabo + add * from versiono + set heap 5000 pages + build awk + file awk + info unresolved * + list * INLEOF #UNFRAME \ No newline at end of file
diff --git a/unsupported/tandem/config.h b/unsupported/tandem/config.h
new file mode 100644
index 00000000..c18ae485
--- /dev/null
+++ b/unsupported/tandem/config.h
@@ -0,0 +1,209 @@
+/* config.h. Generated automatically by configure. */
+/* configh.in. Generated automatically from configure.in by autoheader. */
+/*
+ * acconfig.h -- configuration definitions for gawk.
+ */
+
+/*
+ * Copyright (C) 1995-1997 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Progamming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+
+/* Define if on AIX 3.
+ System headers sometimes define this.
+ We just want to avoid a redefinition error message. */
+#ifndef _ALL_SOURCE
+/* #undef _ALL_SOURCE */
+#endif
+
+/* Define if using alloca.c. */
+#define C_ALLOCA
+
+/* Define if type char is unsigned and you are not using gcc. */
+#ifndef __CHAR_UNSIGNED__
+#define __CHAR_UNSIGNED__
+#endif
+
+/* Define to empty if the keyword does not work. */
+/* #undef const */
+
+/* Define to one of _getb67, GETB67, getb67 for Cray-2 and Cray-YMP systems.
+ This function is required for alloca.c support on those systems. */
+/* #undef CRAY_STACKSEG_END */
+
+/* Define to the type of elements in the array set by `getgroups'.
+ Usually this is either `int' or `gid_t'. */
+#define GETGROUPS_T gid_t
+
+/* Define if the `getpgrp' function takes no argument. */
+#define GETPGRP_VOID 1
+
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef gid_t */
+
+/* Define if you have alloca, as a function or macro. */
+#undef HAVE_ALLOCA
+
+/* Define if you have <alloca.h> and it should be used (not on Ultrix). */
+#undef HAVE_ALLOCA_H
+
+/* Define if you don't have vprintf but do have _doprnt. */
+/* #undef HAVE_DOPRNT */
+
+/* Define if your struct stat has st_blksize. */
+/* #define HAVE_ST_BLKSIZE 1 */
+
+/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */
+#define HAVE_SYS_WAIT_H 1
+
+/* Define if your struct tm has tm_zone. */
+/* #undef HAVE_TM_ZONE */
+
+/* Define if you don't have tm_zone but do have the external array
+ tzname. */
+#define HAVE_TZNAME 1
+
+/* Define if you have the vprintf function. */
+#define HAVE_VPRINTF 1
+
+/* Define if on MINIX. */
+/* #undef _MINIX */
+
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef pid_t */
+
+/* Define if the system does not provide POSIX.1 features except
+ with this defined. */
+/* #undef _POSIX_1_SOURCE */
+
+/* Define if you need to in order for stat and other things to work. */
+/* #undef _POSIX_SOURCE */
+
+/* Define as the return type of signal handlers (int or void). */
+#define RETSIGTYPE void
+
+/* Define to `unsigned' if <sys/types.h> doesn't define. */
+/* #undef size_t */
+
+/* If using the C implementation of alloca, define if you know the
+ direction of stack growth for your system; otherwise it will be
+ automatically deduced at run-time.
+ STACK_DIRECTION > 0 => grows toward higher addresses
+ STACK_DIRECTION < 0 => grows toward lower addresses
+ STACK_DIRECTION = 0 => direction of growth unknown
+ */
+/* #undef STACK_DIRECTION */
+
+/* Define if you have the ANSI C header files. */
+#define STDC_HEADERS 1
+
+/* Define if you can safely include both <sys/time.h> and <time.h>. */
+#define TIME_WITH_SYS_TIME 1
+
+/* Define if your <sys/time.h> declares struct tm. */
+/* #undef TM_IN_SYS_TIME */
+
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef uid_t */
+
+#define HAVE_STRINGIZE 1 /* can use ANSI # operator in cpp */
+#define REGEX_MALLOC 1 /* use malloc instead of alloca in regex.c */
+#define SPRINTF_RET int /* return type of sprintf */
+/* #undef BITOPS */ /* bitwise ops (undocumented feature) */
+/* #undef NONDECDATA */ /* non-decimal input data (undocumented feature) */
+/* #undef HAVE_MKTIME */ /* we have the mktime function */
+
+/* Define if you have the fmod function. */
+#define HAVE_FMOD
+
+/* Define if you have the memcmp function. */
+#define HAVE_MEMCMP 1
+
+/* Define if you have the memcpy function. */
+#define HAVE_MEMCPY 1
+
+/* Define if you have the memset function. */
+#define HAVE_MEMSET 1
+
+/* Define if you have the setlocale function. */
+#define HAVE_SETLOCALE 1
+
+/* Define if you have the strchr function. */
+#define HAVE_STRCHR 1
+
+/* Define if you have the strerror function. */
+#define HAVE_STRERROR 1
+
+/* Define if you have the strftime function. */
+#define HAVE_STRFTIME 1
+
+/* Define if you have the strncasecmp function. */
+/* Tandem doesn't have it but the file name is too long, so pretend here
+ and do it properly at the end of this file */
+#define HAVE_STRNCASECMP 1
+
+/* Define if you have the strtod function. */
+#define HAVE_STRTOD 1
+
+/* Define if you have the system function. */
+#define HAVE_SYSTEM 1
+
+/* Define if you have the tzset function. */
+#define HAVE_TZSET 1
+
+/* Define if you have the <fcntl.h> header file. */
+/* #undef HAVE_FCNTL_H */
+
+/* Define if you have the <limits.h> header file. */
+/* #undef HAVE_LIMITS_H */
+
+/* Define if you have the <locale.h> header file. */
+/* #undef HAVE_LOCALE_H */
+
+/* Define if you have the <memory.h> header file. */
+#define HAVE_MEMORY_H 1
+
+/* Define if you have the <signum.h> header file. */
+/* #undef HAVE_SIGNUM_H */
+
+/* Define if you have the <stdarg.h> header file. */
+#define HAVE_STDARG_H 1
+
+/* Define if you have the <string.h> header file. */
+#define HAVE_STRING_H 1
+
+/* Define if you have the <strings.h> header file. */
+/* #undef HAVE_STRINGS_H */
+
+/* Define if you have the <sys/param.h> header file. */
+#undef HAVE_SYS_PARAM_H 1
+
+/* Define if you have the <sys/time.h> header file. */
+/* #undef HAVE_SYS_TIME_H */
+
+/* Define if you have the <unistd.h> header file. */
+#undef HAVE_UNISTD_H 1
+
+/* Define if you have the m library (-lm). */
+/* #undef HAVE_LIBM */
+
+#define HAVE_POPEN_H 1
+
+#include <custom.h> /* overrides for stuff autoconf can't deal with */
diff --git a/unsupported/tandem/getid.c b/unsupported/tandem/getid.c
new file mode 100644
index 00000000..f933ac62
--- /dev/null
+++ b/unsupported/tandem/getid.c
@@ -0,0 +1,120 @@
+#if defined _MSC_VER || defined TANDEM
+
+#ifndef TANDEM
+#ifdef OS2
+# define INCL_DOSPROCESS
+# include <os2.h>
+# if _MSC_VER == 510
+# define DosGetPID DosGetPid
+# endif
+#else
+# include <process.h>
+#endif
+
+#ifdef OS2
+int getpid(void)
+{
+ PIDINFO PidInfo;
+
+ DosGetPID(&PidInfo);
+ return(PidInfo.pid);
+}
+#endif
+
+int getppid(void)
+{
+#ifdef OS2
+ PIDINFO PidInfo;
+
+ DosGetPID(&PidInfo);
+ return(PidInfo.pidParent);
+#else
+ return(0);
+#endif
+}
+
+#endif /* TANDEM */
+#ifdef TANDEM
+unsigned int getuid (void)
+{
+ short cret;
+ short cwd,pwd;
+
+ cret = PROCESS_GETINFO_(,,,,,,,,,,&cwd,&pwd);
+ return ((unsigned int) (cwd & 255));
+}
+
+unsigned int geteuid (void)
+{
+ short cret;
+ short cwd,pwd;
+
+ cret = PROCESS_GETINFO_(,,,,,,,,,,&cwd,&pwd);
+ return ((unsigned int) (pwd & 255));
+}
+
+unsigned int getgid (void)
+{
+ short cret;
+ short cwd,pwd;
+
+ cret = PROCESS_GETINFO_(,,,,,,,,,,&cwd,&pwd);
+ return ((unsigned int) ((cwd >> 8) & 255));
+}
+
+unsigned int getegid (void)
+{
+ short cret;
+ short cwd,pwd;
+
+ cret = PROCESS_GETINFO_(,,,,,,,,,,&cwd,&pwd);
+ return ((unsigned int) ((pwd >> 8) & 255));
+}
+
+int getpid(void)
+{
+ return (0);
+}
+
+int getppid(void)
+{
+ return (0);
+}
+
+#else
+unsigned int getuid (void)
+{
+ return (0); /* root! */
+}
+
+
+unsigned int geteuid (void)
+{
+ return (0);
+}
+
+
+unsigned int getgid (void)
+{
+ return (0);
+}
+
+
+unsigned int getegid (void)
+{
+ return (0);
+}
+
+
+char *getlogin (void)
+{
+ return ("root");
+}
+
+#endif /* TANDEM */
+#endif
+
+int getpgrp(void)
+{
+ return (0);
+}
diff --git a/unsupported/tandem/isatty.c b/unsupported/tandem/isatty.c
new file mode 100644
index 00000000..d73d7a34
--- /dev/null
+++ b/unsupported/tandem/isatty.c
@@ -0,0 +1,22 @@
+#include <cextdecs(FILE_GETINFO_)>
+#include <stdioh>
+#include <talh>
+
+int isatty(int fd)
+{
+ short cret,sfd,typ[5];
+ sfd = (short) fd;
+ cret = FILE_GETINFO_(sfd,,,,,&typ[0]);
+ if(typ[0] == 6)
+ return (1);
+ else
+ return (0);
+}
+int dup(int fd)
+{
+ return (fd);
+}
+int dup2(int fd, int fd2)
+{
+ return (0);
+}
diff --git a/unsupported/tandem/popen.c b/unsupported/tandem/popen.c
new file mode 100644
index 00000000..310225d3
--- /dev/null
+++ b/unsupported/tandem/popen.c
@@ -0,0 +1,128 @@
+#include "popen.h"
+#include <stdlib.h>
+#if !defined(TANDEM)
+#include <io.h>
+#else
+#include "config.h"
+#include <fcntl.h>
+#endif
+#include <string.h>
+#if !defined(TANDEM)
+#include <process.h>
+#endif
+
+#ifdef OS2
+#ifdef _MSC_VER
+#define popen(c,m) _popen(c,m)
+#define pclose(f) _pclose(f)
+#endif
+#endif
+
+#ifndef _NFILE
+#define _NFILE 40
+#endif
+
+static char template[] = "piXXXXXX";
+typedef enum { unopened = 0, reading, writing } pipemode;
+static
+struct {
+ char *command;
+ char *name;
+ pipemode pmode;
+} pipes[_NFILE];
+
+FILE *
+os_popen( char *command, char *mode ) {
+ FILE *current;
+ char *name;
+ int cur;
+ pipemode curmode;
+
+#if defined(OS2) && (_MSC_VER != 510)
+ if (_osmode == OS2_MODE)
+ return(popen(command, mode));
+#endif
+
+ /*
+ ** decide on mode.
+ */
+ if(strcmp(mode,"r") == 0)
+ curmode = reading;
+ else if(strcmp(mode,"w") == 0)
+ curmode = writing;
+ else
+ return NULL;
+ /*
+ ** get a name to use.
+ */
+ if((name = tempnam(".","pip"))==NULL)
+ return NULL;
+ /*
+ ** If we're reading, just call system to get a file filled with
+ ** output.
+ */
+ if(curmode == reading) {
+ if ((cur = dup(fileno(stdout))) == -1)
+ return NULL;
+ if ((current = freopen(name, "w", stdout)) == NULL)
+ return NULL;
+ system(command);
+ if (dup2(cur, fileno(stdout)) == -1)
+ return NULL;
+ close(cur);
+ if((current = fopen(name,"r")) == NULL)
+ return NULL;
+ } else {
+ if((current = fopen(name,"w")) == NULL)
+ return NULL;
+ }
+ cur = fileno(current);
+ pipes[cur].name = name;
+ pipes[cur].pmode = curmode;
+ pipes[cur].command = strdup(command);
+ return current;
+}
+
+int
+os_pclose( FILE * current) {
+ int cur = fileno(current),rval;
+
+#if defined(OS2) && (_MSC_VER != 510)
+ if (_osmode == OS2_MODE)
+ return(pclose(current));
+#endif
+
+ /*
+ ** check for an open file.
+ */
+ if(pipes[cur].pmode == unopened)
+ return -1;
+ if(pipes[cur].pmode == reading) {
+ /*
+ ** input pipes are just files we're done with.
+ */
+ rval = fclose(current);
+ unlink(pipes[cur].name);
+ } else {
+ /*
+ ** output pipes are temporary files we have
+ ** to cram down the throats of programs.
+ */
+ char command[256];
+ fclose(current);
+#if defined(TANDEM)
+ sprintf(command,"%s /IN %s/",pipes[cur].command,pipes[cur].name);
+#else
+ sprintf(command,"%s < %s",pipes[cur].command,pipes[cur].name);
+#endif
+ rval = system(command);
+ unlink(pipes[cur].name);
+ }
+ /*
+ ** clean up current pipe.
+ */
+ pipes[cur].pmode = unopened;
+ free(pipes[cur].name);
+ free(pipes[cur].command);
+ return rval;
+}
diff --git a/unsupported/tandem/popen.h b/unsupported/tandem/popen.h
new file mode 100644
index 00000000..18605867
--- /dev/null
+++ b/unsupported/tandem/popen.h
@@ -0,0 +1,20 @@
+/*
+
+** popen.h -- prototypes for pipe functions
+
+*/
+
+#if !defined(FILE)
+
+#include <stdio.h>
+
+#endif
+
+
+
+extern FILE *os_popen( char *, char * );
+
+extern int os_pclose( FILE * );
+
+#define popen os_popen
+#define pclose os_close
diff --git a/unsupported/tandem/ptchlvl.h b/unsupported/tandem/ptchlvl.h
new file mode 100644
index 00000000..026f4a72
--- /dev/null
+++ b/unsupported/tandem/ptchlvl.h
@@ -0,0 +1 @@
+#define PATCHLEVEL 0
diff --git a/unsupported/tandem/strdup.c b/unsupported/tandem/strdup.c
new file mode 100644
index 00000000..45f7676c
--- /dev/null
+++ b/unsupported/tandem/strdup.c
@@ -0,0 +1,15 @@
+/*
+ * strdup --- duplicate a string
+ *
+ * We supply this routine for those systems that aren't standard yet.
+ */
+
+char *
+strdup (str)
+register const char *str;
+{
+ char *p;
+
+ p=(char *)malloc(strlen(str)+1);
+ return strcpy(p,str);
+}
diff --git a/unsupported/tandem/strnchk.c b/unsupported/tandem/strnchk.c
new file mode 100644
index 00000000..faa79c4c
--- /dev/null
+++ b/unsupported/tandem/strnchk.c
@@ -0,0 +1,95 @@
+/*
+ * Copyright (c) 1987 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley. The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+#if defined(LIBC_SCCS) && !defined(lint)
+static char sccsid[] = "@(#)strcasecmp.c 5.6 (Berkeley) 6/27/88";
+#endif /* LIBC_SCCS and not lint */
+
+#ifdef atarist
+#include <sys/types.h>
+#else
+#define u_char unsigned char
+#endif
+
+/*
+ * This array is designed for mapping upper and lower case letter
+ * together for a case independent comparison. The mappings are
+ * based upon ascii character sequences.
+ */
+static u_char charmap[] = {
+ '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007',
+ '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017',
+ '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027',
+ '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037',
+ '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047',
+ '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057',
+ '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067',
+ '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077',
+ '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
+ '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157',
+ '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167',
+ '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137',
+ '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
+ '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157',
+ '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167',
+ '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177',
+ '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207',
+ '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217',
+ '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227',
+ '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237',
+ '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247',
+ '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257',
+ '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267',
+ '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277',
+ '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347',
+ '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357',
+ '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\327',
+ '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\337',
+ '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347',
+ '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357',
+ '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367',
+ '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377',
+};
+
+int
+strcasecmp(s1, s2)
+ const char *s1, *s2;
+{
+ register u_char *cm = charmap,
+ *us1 = (u_char *)s1,
+ *us2 = (u_char *)s2;
+
+ while (cm[*us1] == cm[*us2++])
+ if (*us1++ == '\0')
+ return(0);
+ return(cm[*us1] - cm[*--us2]);
+}
+
+int
+strncasecmp(s1, s2, n)
+ const char *s1, *s2;
+ register size_t n;
+{
+ register u_char *cm = charmap,
+ *us1 = (u_char *)s1,
+ *us2 = (u_char *)s2;
+
+ while ((long)(--n) >= 0 && cm[*us1] == cm[*us2++])
+ if (*us1++ == '\0')
+ return(0);
+ return((long)n < 0 ? 0 : cm[*us1] - cm[*--us2]);
+}
diff --git a/unsupported/tandem/tmisc.c b/unsupported/tandem/tmisc.c
new file mode 100644
index 00000000..a8db4da5
--- /dev/null
+++ b/unsupported/tandem/tmisc.c
@@ -0,0 +1,196 @@
+
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+char *name, *what, *dir;
+{
+ /* no-op */
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+#if ! defined(S_ISDIR) && defined(S_IFDIR)
+#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
+
+int
+os_isdir(fd)
+int fd;
+{
+ struct stat sbuf;
+
+ return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode));
+}
+/*
+ * gawkmisc.c --- miscellanious gawk routines that are OS specific.
+ */
+
+/*
+ * Copyright (C) 1986, 1988, 1989, 1991 - 95 the Free Software Foundation, Inc.
+ *
+ * This file is part of GAWK, the GNU implementation of the
+ * AWK Progamming Language.
+ *
+ * GAWK is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * GAWK is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ */
+
+char quote = '"';
+char envsep = ';';
+char *defpath = "";
+
+/* gawk_name --- pull out the "gawk" part from how the OS called us */
+
+char *
+gawk_name(filespec)
+const char *filespec;
+{
+ char *p, *q;
+
+ p = (char *) filespec; /* Sloppy... */
+
+ if ((q = strrchr(p, '.')) != NULL)
+ p = q + 1;
+ return p;
+}
+
+/* os_arg_fixup --- fixup the command line */
+
+void
+os_arg_fixup(argcp, argvp)
+int *argcp;
+char ***argvp;
+{
+ return;
+}
+
+/* os_devopen --- open special per-OS devices */
+
+int
+os_devopen(name, flag)
+const char *name;
+int flag;
+{
+ /* no-op */
+ return -1;
+}
+
+/* optimal_bufsize --- determine optimal buffer size */
+
+int
+optimal_bufsize(fd, stb)
+int fd;
+struct stat *stb;
+{
+ /*
+ * TANDEM doesn't have a stat function.
+ * So we just return 4096 which is the Tandem disk block size.
+ */
+
+ /* set all members to zero. */
+
+ memset(stb, '\0', sizeof(struct stat));
+
+ /* set file size to arbitrary non-zero value. */
+ stb->st_size = 1;
+
+ return 4096;
+}
+
+/* ispath --- return true if path has directory components */
+
+int
+ispath(file)
+const char *file;
+{
+ for (; *file; file++) {
+ switch (*file) {
+ case '.':
+ return 1;
+ }
+ }
+ return 0;
+}
+
+/* isdirpunct --- return true if char is a directory separator */
+
+int
+isdirpunct(c)
+int c;
+{
+ return (strchr(".\\", c) != NULL);
+}
+
+void
+initstate(i, j, k)
+unsigned i;
+char * j;
+int k;
+{
+}
+
+void setstate(i)
+char * i;
+{
+}
+
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+char *name, *what, *dir;
+{
+ /* no-op */
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+/* can't do this on tandem, so just assume it's not a directory */
+
+int
+os_isdir(fd)
+int fd;
+{
+ return 0;
+}
+
+/* os_is_setuid --- true if running setuid root */
+
+int
+os_is_setuid()
+{
+ return 0;
+}
+
+/* os_setbinmode --- set binary mode on file */
+
+int
+os_setbinmode (fd, mode)
+int fd, mode;
+{
+ return 0;
+}
+
+/* os_restore_mode --- restore the original mode of the console device */
+
+void
+os_restore_mode (fd)
+int fd;
+{
+ /* no-op */
+ return;
+}
diff --git a/version.c b/version.c
index e84bb7e9..57a9abdf 100644
--- a/version.c
+++ b/version.c
@@ -1,4 +1,4 @@
-char *version_string = "@(#)GNU Awk 3.0";
+char *version_string = "@(#)GNU Awk 3.1";
/* 1.02 fixed /= += *= etc to return the new Left Hand Side instead
of the Right Hand Side */
@@ -48,3 +48,6 @@ char *version_string = "@(#)GNU Awk 3.0";
/* 3.0 RS as regexp, RT variable, FS = "", fflush builtin, posix
regexps, IGNORECASE applies to all comparison, autoconf, source
code cleanup. See the NEWS file. */
+
+/* 3.1 PROCINFO array, LINT variable, mktime builtin, BINMODE variable,
+ |&, tcp/ip, i18n stuff. Automake. See NEWS. */
diff --git a/version.in b/version.in
new file mode 100644
index 00000000..e17195b9
--- /dev/null
+++ b/version.in
@@ -0,0 +1,53 @@
+char *version_string = "@(#)GNU Awk X.Y";
+
+/* 1.02 fixed /= += *= etc to return the new Left Hand Side instead
+ of the Right Hand Side */
+
+/* 1.03 Fixed split() to treat strings of space and tab as FS if
+ the split char is ' '.
+
+ Added -v option to print version number
+
+ Fixed bug that caused rounding when printing large numbers */
+
+/* 2.00beta Incorporated the functionality of the "new" awk as described
+ the book (reference not handy). Extensively tested, but no
+ doubt still buggy. Badly needs tuning and cleanup, in
+ particular in memory management which is currently almost
+ non-existent. */
+
+/* 2.01 JF: Modified to compile under GCC, and fixed a few
+ bugs while I was at it. I hope I didn't add any more.
+ I modified parse.y to reduce the number of reduce/reduce
+ conflicts. There are still a few left. */
+
+/* 2.02 Fixed JF's bugs; improved memory management, still needs
+ lots of work. */
+
+/* 2.10 Major grammar rework and lots of bug fixes from David.
+ Major changes for performance enhancements from David.
+ A number of minor bug fixes and new features from Arnold.
+ Changes for MSDOS from Conrad Kwok and Scott Garfinkle.
+ The gawk.texinfo and info files included! */
+
+/* 2.11 Bug fix release to 2.10. Lots of changes for portability,
+ speed, and configurability. */
+
+/* 2.12 Lots of changes for portability, speed, and configurability.
+ Several bugs fixed. POSIX compliance. Removal of last set
+ of hard-wired limits. Atari and VMS ports added. */
+
+/* 2.13 Public release of 2.12 */
+
+/* 2.14 Mostly bug fixes. */
+
+/* 2.15 Bug fixes plus intermixing of command-line source and files,
+ GNU long options, ARGIND, ERRNO and Plan 9 style /dev/ files.
+ `delete array'. OS/2 port added. */
+
+/* 3.0 RS as regexp, RT variable, FS = "", fflush builtin, posix
+ regexps, IGNORECASE applies to all comparison, autoconf, source
+ code cleanup. See the NEWS file. */
+
+/* 3.1 PROCINFO array, LINT variable, mktime builtin, BINMODE variable,
+ |&, tcp/ip, i18n stuff. Automake. See NEWS. */
diff --git a/vms/ChangeLog b/vms/ChangeLog
index 63db18a1..d7745d3c 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,54 @@
+Sun Jun 3 13:04:44 2001 Arnold D. Robbins <arnold@skeeve.com>
+
+ * Release 3.1.0: Release tar file made. And there was
+ rejoicing.
+
+Thu Apr 12 18:29:50 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * vms_misc.c (open): Add handling for /dev/null and /dev/tty.
+ (vms_devopen): Remove handling for /dev/null and /dev/tty.
+
+ * vms_misc.c (VMS_stat, VMS_fstat): New functions to work
+ around old VAXCRTL bugs.
+ * redirect.h (fstat): Define as VMS_fstat for VAX C or GNU C.
+
+ * vms-conf.h (HAVE_UNISTD_H): Avoid <unistd.h> for GNU C.
+
+ * descrip.mms: Synchronize with 3.1.0 sources.
+
+ * vmstest.com: Add many new tests.
+ (fixup_LRL): New subroutine.
+
+Thu Apr 5 20:31:22 2001 Pat Rankin <rankin@eql.caltech.edu>
+
+ * vms-conf.h: synchronize with current configh.in.
+ [NO_ALLOCA]: define instead of C_ALLOCA.
+ * redirect.h (strcoll): substitute strcmp for VAXCRTL config.
+ (struct timeval): define.
+ (gettimeofday): substitute vms_gettimeofday; declare.
+
+ * vms_misc.c (vms_gettimeofday): new function.
+ * vms_fwrite.c [#if NO_ALLOCA]: fix fake alloca's use of free().
+
+ * vmsbuild.com: synchronize with current sources.
+
+Sun Jan 28 15:50:02 2001 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * gawkmisc.vms (os_restore_mode): New function
+
+Sun Dec 3 16:53:37 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.vms (os_setbinmode): new function.
+
+Tue Nov 7 14:09:14 2000 Arnold D. Robbins <arnold@skeeve.com>
+
+ * gawkmisc.vms (os_is_setuid): new function.
+
+Wed Jul 30 19:53:52 1997 Arnold D. Robbins <arnold@gnu.ai.mit.edu>
+
+ * Close-on-exec changes:
+ gawkmisc.vms: (os_close_on_exec, os_isdir): new functions.
+
Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.6: Release tar file made.
@@ -15,7 +66,7 @@ Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com>
* Release 3.0.5: Release tar file made.
Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org>
-
+
* Release 3.0.4: Release tar file made. This time for sure.
Fri May 7 20:29:04 1999 Pat Rankin <rankin@eql.caltech.edu>
diff --git a/vms/descrip.mms b/vms/descrip.mms
index 31ddb0c3..98024abb 100644
--- a/vms/descrip.mms
+++ b/vms/descrip.mms
@@ -2,22 +2,22 @@
#
# usage:
# $ MMS /Description=[.vms]Descrip.MMS gawk
-# possibly add `/Macro=(GNUC)' to compile with GNU C,
-# or add `/Macro=(GNUC,DO_GNUC_SETUP)' to compile with GNU C on
-# a system where GCC is not installed as a defined command,
-# or add `/Macro=(VAXC)' to compile with VAX C,
-# or add `/Macro=(VAXC,"CC=cc/VAXC")' to compile with VAX C on
+# possibly add `/Macro=("GNUC=1")' to compile with GNU C,
+# or add `/Macro=("GNUC=1","DO_GNUC_SETUP=1")' to compile with GNU C
+# on a system where GCC is not installed as a defined command,
+# or add `/Macro=("VAXC=1")' to compile with VAX C,
+# or add `/Macro=("VAXC=1","CC=cc/VAXC")' to compile with VAX C on
# a system which has DEC C installed as the default compiler.
#
# gawk.exe :
# This is the default target. DEC C has become the default compiler.
#
-# awktab.c :
+# awkgram.c :
# If you don't have bison but do have VMS POSIX or DEC/Shell,
# change the PARSER and PASERINIT macros to use yacc. If you don't
# have either yacc or bison, you'll have to make sure that the
-# distributed version of "awktab.c" has its modification date later
-# than the date of "awk.y", so that MMS won't try to build that
+# distributed version of "awkgram.c" has its modification date later
+# than the date of "awkgram.y", so that MMS won't try to build that
# target. If you use bison and it is already defined system-wide,
# comment out the PARSERINIT definition.
#
@@ -57,7 +57,7 @@ LIBS = gnu_cc:[000000]gcclib.olb/Library,sys$library:vaxcrtl.olb/Library
.endif !DO_GNUC_SETUP
.else !!GNUC
.ifdef VAXC
-# always VAX; version V3.x of VAX C assumed (for V2.x, remove /Opt=noInline)
+# always VAX; versions of VAX C older than V3.2 won't work
CC = cc
CFLAGS = /Incl=[]/Obj=[]/Opt=noInline/Def=($(CDEFS)) $(CCFLAGS)
LIBS = sys$share:vaxcrtl.exe/Shareable
@@ -87,18 +87,11 @@ HELPLIB = sys$help:helplib.hlb
ECHO = write sys$output
NOOP = continue
-# ALLOCA
-ALLOCA = alloca.obj
-
# object files
-AWKOBJS = array.obj,builtin.obj,eval.obj,field.obj,gawkmisc.obj,\
- io.obj,main.obj,missing.obj,msg.obj,node.obj,re.obj,version.obj
-
-ALLOBJS = $(AWKOBJS),awktab.obj
-
-# LIBOBJS
-# GNU and other stuff that gawk uses as library routines.
-LIBOBJS = getopt.obj,getopt1.obj,regex.obj,dfa.obj,random.obj,$(ALLOCA)
+AWKOBJS = array.obj,awkgram.obj,builtin.obj,dfa.obj,ext.obj,\
+ field.obj,gawkmisc.obj,getopt.obj,getopt1.obj,io.obj,main.obj,\
+ msg.obj,node.obj,random.obj,re.obj,regex.obj,replace.obj,\
+ version.obj,eval.obj,profile.obj
# VMSOBJS
# VMS specific stuff
@@ -108,28 +101,26 @@ VMSCMD = gawk_cmd.obj # built from .cld file
VMSOBJS = $(VMSCODE),$(VMSCMD)
# source and documentation files
-SRC = array.c,builtin.c,eval.c,field.c,gawkmisc.c,io.c,main.c,\
- missing.c,msg.c,node.c,re.c,version.c
+AWKSRC = array.c,builtin.c,dfa.c,ext.c,eval.c,field.c,gawkmisc.c,\
+ getopt.c,getopt1.c,io.c,main.c,msg.c,node.c,random.c,re.c,\
+ random.c,regex.c,replace.c,version.c,eval.c,profile.c
-ALLSRC= $(SRC),awktab.c
+ALLSRC = $(AWKSRC),awkgram.y,awk.h,custom.h,dfa.h,getopt.h,\
+ patchlev.h,protos.h,random.h
-AWKSRC= awk.h,awk.y,$(ALLSRC),patchlevel.h,protos.h,random.h
-
-LIBSRC = alloca.c,dfa.c,dfa.h,regex.c,regex.h,getopt.h,getopt.c,getopt1.c,random.c
-
-VMSSRCS = $(VMSDIR)gawkmisc.vms,$(VMSDIR)vms_misc.c,$(VMSDIR)vms_popen.c,\
+VMSSRC = $(VMSDIR)gawkmisc.vms,$(VMSDIR)vms_misc.c,$(VMSDIR)vms_popen.c,\
$(VMSDIR)vms_fwrite.c,$(VMSDIR)vms_args.c,$(VMSDIR)vms_gawk.c,\
$(VMSDIR)vms_cli.c
VMSHDRS = $(VMSDIR)redirect.h,$(VMSDIR)vms.h,$(VMSDIR)fcntl.h,\
$(VMSDIR)varargs.h,$(VMSDIR)unixlib.h
-VMSOTHR = $(VMSDIR)Descrip.MMS,$(VMSDIR)vmsbuild.com,$(VMSDIR)version.com,\
+VMSOTHR = $(VMSDIR)descrip.mms,$(VMSDIR)vmsbuild.com,$(VMSDIR)version.com,\
$(VMSDIR)gawk.hlp
DOCS= $(DOCDIR)gawk.1,$(DOCDIR)gawk.texi,$(DOCDIR)texinfo.tex
# Release of gawk
-REL=3.0
-PATCHLVL=6
+REL=3.1
+PATCHLVL=0
# generic target
all : gawk
@@ -140,14 +131,13 @@ gawk : gawk.exe
$(ECHO) " GAWK "
# rules to build gawk
-gawk.exe : $(ALLOBJS) $(LIBOBJS) $(VMSOBJS) gawk.opt
+gawk.exe : $(AWKOBJS) $(VMSOBJS) gawk.opt
$(LINK) $(LINKFLAGS) gawk.opt/options
gawk.opt : $(MAKEFILE) # create linker options file
open/write opt gawk.opt ! ~ 'cat <<close >gawk.opt'
write opt "! GAWK -- GNU awk"
- @ write opt "$(ALLOBJS)"
- @ write opt "$(LIBOBJS)"
+ @ write opt "$(AWKOBJS)"
@ write opt "$(VMSOBJS)"
@ write opt "psect_attr=environ,noshr !extern [noshare] char **"
@ write opt "stack=48 !preallocate more pages (default is 20)"
@@ -162,20 +152,18 @@ vms_fwrite.obj : $(VMSDIR)vms_fwrite.c
vms_args.obj : $(VMSDIR)vms_args.c
vms_gawk.obj : $(VMSDIR)vms_gawk.c
vms_cli.obj : $(VMSDIR)vms_cli.c
-$(VMSCODE) : awk.h config.h $(VMSDIR)vms.h
+$(VMSCODE) : awk.h config.h $(VMSDIR)redirect.h $(VMSDIR)vms.h
gawkmisc.obj : gawkmisc.c $(VMSDIR)gawkmisc.vms
-$(ALLOBJS) : awk.h dfa.h regex.h config.h $(VMSDIR)redirect.h
-getopt.obj : getopt.h config.h $(VMSDIR)redirect.h
-getopt1.obj : getopt.h config.h $(VMSDIR)redirect.h
+$(AWKOBJS) : awk.h dfa.h regex.h config.h $(VMSDIR)redirect.h
random.obj : random.h
builtin.obj : random.h
-main.obj : patchlevel.h
-awktab.obj : awk.h awktab.c
+main.obj : patchlev.h
+awkgram.obj : awkgram.c awk.h
# bison or yacc required
-awktab.c : awk.y # foo.y :: yacc => y[_]tab.c, bison => foo_tab.c
+awkgram.c : awkgram.y # foo.y :: yacc => y[_]tab.c, bison => foo_tab.c
@- if f$search("ytab.c") .nes."" then delete ytab.c;* !POSIX yacc
@- if f$search("y_tab.c") .nes."" then delete y_tab.c;* !DEC/Shell yacc
@- if f$search("awk_tab.c").nes."" then delete awk_tab.c;* !bison
@@ -188,10 +176,6 @@ awktab.c : awk.y # foo.y :: yacc => y[_]tab.c, bison => foo_tab.c
config.h : $(VMSDIR)vms-conf.h
copy $< $@
-# Alloca - C simulation
-alloca.obj : alloca.c config.h $(VMSDIR)redirect.h
- $(CC) $(CFLAGS) /define=($(CDEFS),"STACK_DIRECTION=(-1)","exit=vms_exit") $<
-
$(VMSCMD) : $(VMSDIR)gawk.cld
set command $(CLDFLAGS)/object=$@ $<
diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms
index 95983351..4d47369c 100644
--- a/vms/gawkmisc.vms
+++ b/vms/gawkmisc.vms
@@ -118,4 +118,54 @@ int c;
return (strchr(":]>/", c) != NULL);
}
+/* os_close_on_exec --- set close on exec flag, print warning if fails */
+void
+os_close_on_exec(fd, name, what, dir)
+int fd;
+const char *name, *what, *dir;
+{
+ /* no-op */
+}
+
+/* os_isdir --- is this an fd on a directory? */
+
+#if ! defined(S_ISDIR) && defined(S_IFDIR)
+#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
+
+int
+os_isdir(fd)
+int fd;
+{
+ struct stat sbuf;
+
+ return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode));
+}
+
+/* os_is_setuid --- true if running setuid root */
+
+int
+os_is_setuid()
+{
+ return 0;
+}
+
+/* os_setbinmode --- set binary mode on file */
+
+int
+os_setbinmode (fd, mode)
+int fd, mode;
+{
+ return 0;
+}
+
+/* os_restore_mode --- restore the original mode of the console device */
+
+void
+os_restore_mode (fd)
+int fd;
+{
+ /* no-op */
+ return;
+}
diff --git a/vms/redirect.h b/vms/redirect.h
index 294dba7f..1ef3f061 100644
--- a/vms/redirect.h
+++ b/vms/redirect.h
@@ -51,6 +51,9 @@
#define timezone fake_timezone
#define altzone fake_altzone
#endif
+#if !defined(__DECC) && !defined(VAXC2DECC) && !defined(__alpha)
+#define strcoll(s,t) strcmp((s),(t)) /* VAXCRTL lacks locale support */
+#endif
#endif
#ifdef STDC_HEADERS
@@ -59,6 +62,15 @@
#include <stdlib.h>
#include <string.h>
#endif
+#ifndef VMS_POSIX
+/* This if for random.c. */
+#define gettimeofday vms_gettimeofday
+#ifndef __TIMEVAL
+#define __TIMEVAL 1
+struct timeval { long tv_sec, tv_usec; };
+#endif
+extern int gettimeofday(struct timeval *,void *);
+#endif
#else /* awk.h, not POSIX */
@@ -73,6 +85,9 @@
#define strerror vms_strerror
#define strdup vms_strdup
#define unlink vms_unlink
+#if defined(VAXC) || (defined(__GNUC__) && !defined(__alpha))
+#define fstat(fd,sb) VMS_fstat(fd,sb)
+#endif
extern void exit P((int));
extern int open P((const char *,int,...));
extern char *strerror P((int));
diff --git a/vms/vms-conf.h b/vms/vms-conf.h
index e655ef24..555178d3 100644
--- a/vms/vms-conf.h
+++ b/vms/vms-conf.h
@@ -1,3 +1,5 @@
+#ifndef CONFIG_H
+#define CONFIG_H
/*
* config.h -- configuration definitions for gawk.
*
@@ -5,7 +7,7 @@
*/
/*
- * Copyright (C) 1991, 1992, 1995, 1996, 1999 the Free Software Foundation, Inc.
+ * Copyright (C) 1991-1992, 1995-1996, 1999, 2001 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -25,52 +27,312 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
+#if 0
/* Define if using alloca.c. */
#define C_ALLOCA
-#define STACK_DIRECTION (-1)
-#define REGEX_MALLOC /* use malloc instead of alloca in regex.c */
+#else
+#define NO_ALLOCA /* vms/vms_fwrite.c needs this */
+#endif
-/* Define as the return type of signal handlers (int or void). */
-#define RETSIGTYPE void
+/* Define if type char is unsigned and you are not using gcc. */
+#ifndef __CHAR_UNSIGNED__
+/* #undef __CHAR_UNSIGNED__ */
+#endif
+
+/* Define to empty if the keyword does not work. */
+/* #undef const */
+
+/* Define to one of _getb67, GETB67, getb67 for Cray-2 and Cray-YMP systems.
+ This function is required for alloca.c support on those systems. */
+/* #undef CRAY_STACKSEG_END */
-#define SPRINTF_RET int
+/* Define to the type of elements in the array set by `getgroups'.
+ Usually this is either `int' or `gid_t'. */
+#define GETGROUPS_T int
/* Define if the `getpgrp' function takes no argument. */
#define GETPGRP_VOID 1
-#define HAVE_STRING_H 1 /* the <string.h> header file */
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef gid_t */
+
+/* Define if you have alloca, as a function or macro. */
+#undef HAVE_ALLOCA
+
+/* Define if you have <alloca.h> and it should be used (not on Ultrix). */
+#undef HAVE_ALLOCA_H
+
+/* Define if you don't have vprintf but do have _doprnt. */
+/* #undef HAVE_DOPRNT */
+
+/* Define if you have a working `mmap' system call. */
+#undef HAVE_MMAP
+
+/* Define if your struct stat has st_blksize. */
+#undef HAVE_ST_BLKSIZE
+
+/* Define if you have the ANSI # stringizing operator in cpp. */
+#ifdef VAXC
+#undef HAVE_STRINGIZE
+#else
+#define HAVE_STRINGIZE 1
+#endif
+
+/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */
+#undef HAVE_SYS_WAIT_H
+
+/* Define if your struct tm has tm_zone. */
+#undef HAVE_TM_ZONE
+
+/* Define if you don't have tm_zone but do have the external array
+ tzname. */
+#define HAVE_TZNAME 1 /* (faked in vms/vms_misc.c) */
+
+/* Define if you have the vprintf function. */
+#define HAVE_VPRINTF 1
+
+/* Define as __inline if that's what the C compiler calls it. */
+/* #undef inline */
+
+/* Define if on MINIX. */
+/* #undef _MINIX */
+
+/* Define to `long' if <sys/types.h> doesn't define. */
+/* #undef off_t */
+
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef pid_t */
+
+/* Define if the system does not provide POSIX.1 features except
+ with this defined. */
+/* #undef _POSIX_1_SOURCE */
+
+/* Define if you need to in order for stat and other things to work. */
+/* #undef _POSIX_SOURCE */
+
+/* Define as the return type of signal handlers (int or void). */
+#define RETSIGTYPE void
+
+/* Define to `unsigned' if <sys/types.h> doesn't define. */
+/* #undef size_t */
+
+/* If using the C implementation of alloca, define if you know the
+ direction of stack growth for your system; otherwise it will be
+ automatically deduced at run-time.
+ STACK_DIRECTION > 0 => grows toward higher addresses
+ STACK_DIRECTION < 0 => grows toward lower addresses
+ STACK_DIRECTION = 0 => direction of growth unknown
+ */
+#define STACK_DIRECTION (-1)
+
+/* Define if you have the ANSI C header files. */
+#define STDC_HEADERS 1
+
+/* Define if you can safely include both <sys/time.h> and <time.h>. */
+#undef TIME_WITH_SYS_TIME
+
+/* Define if your <sys/time.h> declares struct tm. */
+/* #undef TM_IN_SYS_TIME */
+
+/* Define to `int' if <sys/types.h> doesn't define. */
+/* #undef uid_t */
+
+#define REGEX_MALLOC 1 /* use malloc instead of alloca in regex.c */
+#define SPRINTF_RET int /* return type of sprintf */
+#define HAVE_MKTIME 1 /* have the mktime function */
+#undef HAVE_SOCKETS /* don't have sockets on this system by default */
+#undef HAVE_PORTALS /* don't have portals on /p on this system */
+#undef DYNAMIC /* don't allow dynamic addition of builtins */
+#define STRTOD_NOT_C89 1 /* strtod doesn't have C89 semantics */
+/* #undef ssize_t */ /* signed version of size_t */
+
+/* Define if you have the __argz_count function. */
+#undef HAVE___ARGZ_COUNT
+
+/* Define if you have the __argz_next function. */
+#undef HAVE___ARGZ_NEXT
+
+/* Define if you have the __argz_stringify function. */
+#undef HAVE___ARGZ_STRINGIFY
+
+/* Define if you have the alarm function. */
+#define HAVE_ALARM 1
+
+/* Define if you have the dcgettext function. */
+#undef HAVE_DCGETTEXT
+
+/* Define if you have the fmod function. */
+#define HAVE_FMOD 1
+
+/* Define if you have the getcwd function. */
+#define HAVE_GETCWD 1
+
+/* Define if you have the getpagesize function. */
+#undef HAVE_GETPAGESIZE
/* Define if you have the memcmp function. */
-#define HAVE_MEMCMP 1
+#define HAVE_MEMCMP 1
+
/* Define if you have the memcpy function. */
-#define HAVE_MEMCPY 1
+#define HAVE_MEMCPY 1
+
/* Define if you have the memset function. */
-#define HAVE_MEMSET 1
+#define HAVE_MEMSET 1
+
+/* Define if you have the munmap function. */
+#undef HAVE_MUNMAP
+
+/* Define if you have the putenv function. */
+#undef HAVE_PUTENV
+
+/* Define if you have the setenv function. */
+#undef HAVE_SETENV
+
+/* Define if you have the setlocale function. */
+#undef HAVE_SETLOCALE
+
+/* Define if you have the stpcpy function. */
+#undef HAVE_STPCPY
+
+/* Define if you have the strcasecmp function. */
+#undef HAVE_STRCASECMP
/* Define if you have the strchr function. */
-#define HAVE_STRCHR 1
+#define HAVE_STRCHR 1
+
+/* Define if you have the strdup function. */
+#undef HAVE_STRDUP
/* Define if you have the strerror function. */
-#define HAVE_STRERROR 1
+#define HAVE_STRERROR 1
+
+/* Define if you have the strftime function. */
+#undef HAVE_STRFTIME /* use the missing_d/strfime.c version */
+
+/* Define if you have the strncasecmp function. */
+#undef HAVE_STRNCASECMP
/* Define if you have the strtod function. */
-#define HAVE_STRTOD 1
+#define HAVE_STRTOD 1
/* Define if you have the system function. */
-#define HAVE_SYSTEM 1
-
-/* Define if you have the fmod function. */
-#define HAVE_FMOD 1
+#define HAVE_SYSTEM 1
/* Define if you have the tzset function. */
-/* [Fake it in vms/vms_misc.c since missing/tzset.c won't compile.] */
-#define HAVE_TZSET 1
-#define HAVE_TZNAME 1
+#define HAVE_TZSET 1 /* (faked in vms/vms_misc.c) */
-#define STDC_HEADERS 1
+/* Define if you have the <argz.h> header file. */
+#undef HAVE_ARGZ_H
-#define HAVE_VPRINTF 1
+/* Define if you have the <fcntl.h> header file. */
+#undef HAVE_FCNTL_H
+
+/* Define if you have the <libintl.h> header file. */
+#undef HAVE_LIBINTL_H
+
+/* Define if you have the <limits.h> header file. */
+#define HAVE_LIMITS_H 1
+
+/* Define if you have the <locale.h> header file. */
+#undef HAVE_LOCALE_H
+
+/* Define if you have the <malloc.h> header file. */
+#undef HAVE_MALLOC_H
+
+/* Define if you have the <mcheck.h> header file. */
+#undef HAVE_MCHECK_H
+
+/* Define if you have the <memory.h> header file. */
+#undef HAVE_MEMORY_H
+
+/* Define if you have the <netdb.h> header file. */
+#undef HAVE_NETDB_H
+
+/* Define if you have the <netinet/in.h> header file. */
+#undef HAVE_NETINET_IN_H
+
+/* Define if you have the <nl_types.h> header file. */
+#undef HAVE_NL_TYPES_H
+
+/* Define if you have the <signum.h> header file. */
+#undef HAVE_SIGNUM_H
+
+/* Define if you have the <stdarg.h> header file. */
+#define HAVE_STDARG_H 1
+
+/* Define if you have the <stdlib.h> header file. */
+#define HAVE_STDLIB_H 1
+
+/* Define if you have the <string.h> header file. */
+#define HAVE_STRING_H 1
+/* Define if you have the <strings.h> header file. */
+#undef HAVE_STRINGS_H
+
+/* Define if you have the <sys/param.h> header file. */
+#undef HAVE_SYS_PARAM_H
+
+/* Define if you have the <sys/socket.h> header file. */
+#undef HAVE_SYS_SOCKET_H
+
+/* Define if you have the <sys/time.h> header file. */
+#undef HAVE_SYS_TIME_H
+
+/* Define if you have the <unistd.h> header file. */
+#ifdef __DECC
+#define HAVE_UNISTD_H 1
+#else
+#undef HAVE_UNISTD_H
+#endif
+
+/* Define if you have the i library (-li). */
+#undef HAVE_LIBI
+
+/* Define if you have the intl library (-lintl). */
+#undef HAVE_LIBINTL
+
+/* Define if you have the m library (-lm). */
+#undef HAVE_LIBM
+
+/* Name of package */
+#define PACKAGE "gawk"
+
+/* Version number of package */
+#define VERSION "3.0.93"
+
+/* Number of bits in a file offset, on hosts where this is settable. */
+#undef _FILE_OFFSET_BITS
+
+/* Define to make ftello visible on some hosts (e.g. HP-UX 10.20). */
+#undef _LARGEFILE_SOURCE
+
+/* Define for large files, on AIX-style hosts. */
+#undef _LARGE_FILES
+
+/* Define to make ftello visible on some hosts (e.g. glibc 2.1.3). */
+#undef _XOPEN_SOURCE
+
+/* Define if compiler has function prototypes */
+#define PROTOTYPES 1
+
+/* Define to 1 if you have the stpcpy function. */
+#undef HAVE_STPCPY
+
+/* Define if your locale.h file contains LC_MESSAGES. */
+#undef HAVE_LC_MESSAGES
+
+/* Define to 1 if NLS is requested. */
+#undef ENABLE_NLS
+
+/* Define to 1 if you have gettext and don't want to use GNU gettext. */
+#undef HAVE_GETTEXT
+
+/* Define as 1 if you have catgets and don't want to use GNU gettext. */
+#undef HAVE_CATGETS
+
+#if 0
+#include <custom.h> /* overrides for stuff autoconf can't deal with */
+#else
/*******************************/
/* Gawk configuration options. */
@@ -108,7 +370,6 @@
*
* As of V3.2, VAX C is not yet ANSI-compliant. But it's close enough
* for GAWK's purposes. Comment this out for VAX C V2.4 and earlier.
- * Value of 0 should mean "not ANSI-C", but GAWK uses def/not-def tests.
* YYDEBUG definition is needed for combination of VAX C V2.x and Bison.
*/
#if defined(VAXC) && !defined(__STDC__)
@@ -168,3 +429,7 @@
#define IN_CONFIG_H
#include "vms/redirect.h"
#undef IN_CONFIG_H
+
+#endif /*<custom.h>*/
+
+#endif /*CONFIG_H*/
diff --git a/vms/vms_fwrite.c b/vms/vms_fwrite.c
index 496ef3dc..2e9153f0 100644
--- a/vms/vms_fwrite.c
+++ b/vms/vms_fwrite.c
@@ -153,8 +153,8 @@ tty_fwrite( const void *buf, size_t size, size_t number, FILE *file )
} else {
#ifdef NO_ALLOCA
# define alloca(n) ((n) <= abuf_siz ? abuf : \
- (abuf_siz > 0 ? (void *)free(abuf) : (void *)0), \
- (abuf = malloc(abuf_siz = (n)+20)))
+ ((abuf_siz > 0 ? (free(abuf),0) : 0), \
+ (abuf = malloc(abuf_siz = (n)+20))))
static void *abuf = 0;
static size_t abuf_siz = 0;
#endif /*NO_ALLOCA*/
diff --git a/vms/vms_misc.c b/vms/vms_misc.c
index 1b1a2239..439790d5 100644
--- a/vms/vms_misc.c
+++ b/vms/vms_misc.c
@@ -1,6 +1,6 @@
/* vms_misc.c -- sustitute code for missing/different run-time library routines.
- Copyright (C) 1991-1993, 1996, 1997 the Free Software Foundation, Inc.
+ Copyright (C) 1991-1993, 1996-1997, 2001 the Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -18,6 +18,7 @@
#define creat creat_dummy /* one of gcc-vms's headers has bad prototype */
#include "awk.h"
+#include "vms.h"
#undef creat
#include <fab.h>
#ifndef O_RDONLY
@@ -111,6 +112,15 @@ vms_open( const char *name, int mode, ... )
{
int result;
+ if (STREQN(name, "/dev/", 5)) {
+ /* (this used to be handled in vms_devopen(), but that is only
+ called when opening files for output; we want it for input too) */
+ if (strcmp(name + 5, "null") == 0) /* /dev/null -> NL: */
+ name = "NL:";
+ else if (strcmp(name + 5, "tty") == 0) /* /dev/tty -> TT: */
+ name = "TT:";
+ }
+
if (mode == (O_WRONLY|O_CREAT|O_TRUNC)) {
/* explicitly force stream_lf record format to override DECC$SHR's
defaulting of RFM to earlier file version's when one is present */
@@ -146,11 +156,7 @@ vms_devopen( const char *name, int mode )
{
FILE *file = NULL;
- if (STREQ(name, "/dev/null"))
- return open("NL:", mode, 0); /* "/dev/null" => "NL:" */
- else if (STREQ(name, "/dev/tty"))
- return open("TT:", mode, 0); /* "/dev/tty" => "TT:" */
- else if (strncasecmp(name, "SYS$", 4) == 0) {
+ if (strncasecmp(name, "SYS$", 4) == 0) {
name += 4; /* skip "SYS$" */
if (strncasecmp(name, "INPUT", 5) == 0 && (mode & O_WRONLY) == 0)
file = stdin, name += 5;
@@ -165,6 +171,41 @@ vms_devopen( const char *name, int mode )
}
+#define VMS_UNITS_PER_SECOND 10000000L /* hundreds of nanoseconds, 1e-7 */
+#define UNIX_EPOCH "01-JAN-1970 00:00:00.00"
+
+extern U_Long sys$bintim(), sys$gettim();
+extern U_Long lib$subx(), lib$ediv();
+
+ /*
+ * Get current time in microsecond precision.
+ */
+/* vms_gettimeofday() - get current time in `struct timeval' format */
+int
+vms_gettimeofday(struct timeval *tv, void *timezone__not_used)
+{
+ /*
+ Emulate unix's gettimeofday call; timezone argument is ignored.
+ */
+ static const Dsc epoch_dsc = { sizeof UNIX_EPOCH - sizeof "", UNIX_EPOCH };
+ static long epoch[2] = {0L,0L}; /* needs one time initialization */
+ const long thunk = VMS_UNITS_PER_SECOND;
+ long now[2], quad[2];
+
+ if (!epoch[0]) sys$bintim(&epoch_dsc, epoch); /* 1 Jan 0:0:0 1970 */
+ /* get current time, as VMS quadword time */
+ sys$gettim(now);
+ /* convert the quadword time so that it's relative to Unix epoch */
+ lib$subx(now, epoch, quad); /* quad = now - epoch; */
+ /* convert 1e-7 units into seconds and fraction of seconds */
+ lib$ediv(&thunk, quad, &tv->tv_sec, &tv->tv_usec);
+ /* convert fraction of seconds into microseconds */
+ tv->tv_usec /= (VMS_UNITS_PER_SECOND / 1000000);
+
+ return 0; /* success */
+}
+
+
#ifndef VMS_V7
/*
* VMS prior to V7.x has no timezone support unless DECnet/OSI is used.
@@ -196,6 +237,7 @@ void vms_bcopy( const char *src, char *dst, int len )
}
#endif /*!__GNUC__*/
+
/*----------------------------------------------------------------------*/
#ifdef NO_VMS_ARGS /* real code is in "vms/vms_args.c" */
void vms_arg_fixup( int *argc, char ***argv ) { return; } /* dummy */
@@ -215,3 +257,116 @@ int fork( void ) {
return -1;
}
#endif /*NO_VMS_PIPES*/
+/*----------------------------------------------------------------------*/
+
+
+/*
+ * The following code is taken from the GNU C preprocessor (cccp.c,
+ * 2.8.1 vintage) where it was used #if VMS. It is only needed for
+ * VAX C and GNU C on VAX configurations; DEC C's run-time library
+ * doesn't have the problem described.
+ *
+ * VMS_fstat() and VMS_stat() were static in cccp.c but need to be
+ * accessible to the whole program here. Also, the special handling
+ * for the null device has been introduced for gawk's benefit, to
+ * prevent --lint mode from giving spurious warnings about /dev/null
+ * being empty if it's used as an input file.
+ */
+
+#if defined(VAXC) || (defined(__GNUC__) && !defined(__alpha))
+
+/* more VMS hackery */
+#include <fab.h>
+#include <nam.h>
+
+extern unsigned long sys$parse(), sys$search();
+
+/* Work around a VAXCRTL bug. If a file is located via a searchlist,
+ and if the device it's on is not the same device as the one specified
+ in the first element of that searchlist, then both stat() and fstat()
+ will fail to return info about it. `errno' will be set to EVMSERR, and
+ `vaxc$errno' will be set to SS$_NORMAL due yet another bug in stat()!
+ We can get around this by fully parsing the filename and then passing
+ that absolute name to stat().
+
+ Without this fix, we can end up failing to find header files, which is
+ bad enough, but then compounding the problem by reporting the reason for
+ failure as "normal successful completion." */
+
+#undef fstat /* Get back to the library version. */
+
+int
+VMS_fstat (fd, statbuf)
+ int fd;
+ struct stat *statbuf;
+{
+ int result = fstat (fd, statbuf);
+
+ if (result < 0)
+ {
+ FILE *fp;
+ char nambuf[NAM$C_MAXRSS+1];
+
+ if ((fp = fdopen (fd, "r")) != 0 && fgetname (fp, nambuf) != 0)
+ result = VMS_stat (nambuf, statbuf);
+ /* No fclose(fp) here; that would close(fd) as well. */
+ }
+
+ if (result == 0 /* GAWK addition; fixup /dev/null flags */
+ && (statbuf->st_mode & S_IFREG)
+ && STREQ(statbuf->st_dev, "_NLA0:"))
+ {
+ statbuf->st_mode &= ~S_IFREG;
+ statbuf->st_mode |= S_IFCHR;
+ }
+
+ return result;
+}
+
+int
+VMS_stat (name, statbuf)
+ const char *name;
+ struct stat *statbuf;
+{
+ int result = stat (name, statbuf);
+
+ if (result < 0)
+ {
+ struct FAB fab;
+ struct NAM nam;
+ char exp_nam[NAM$C_MAXRSS+1], /* expanded name buffer for sys$parse */
+ res_nam[NAM$C_MAXRSS+1]; /* resultant name buffer for sys$search */
+
+ fab = cc$rms_fab;
+ fab.fab$l_fna = (char *) name;
+ fab.fab$b_fns = (unsigned char) strlen (name);
+ fab.fab$l_nam = (void *) &nam;
+ nam = cc$rms_nam;
+ nam.nam$l_esa = exp_nam, nam.nam$b_ess = sizeof exp_nam - 1;
+ nam.nam$l_rsa = res_nam, nam.nam$b_rss = sizeof res_nam - 1;
+ nam.nam$b_nop = NAM$M_PWD | NAM$M_NOCONCEAL;
+ if (sys$parse (&fab) & 1)
+ {
+ if (sys$search (&fab) & 1)
+ {
+ res_nam[nam.nam$b_rsl] = '\0';
+ result = stat (res_nam, statbuf);
+ }
+ /* Clean up searchlist context cached by the system. */
+ nam.nam$b_nop = NAM$M_SYNCHK;
+ fab.fab$l_fna = 0, fab.fab$b_fns = 0;
+ (void) sys$parse (&fab);
+ }
+ }
+
+ if (result == 0 /* GAWK addition; fixup /dev/null flags */
+ && (statbuf->st_mode & S_IFREG)
+ && STREQ(statbuf->st_dev, "_NLA0:"))
+ {
+ statbuf->st_mode &= ~S_IFREG;
+ statbuf->st_mode |= S_IFCHR;
+ }
+
+ return result;
+}
+#endif /* VAXC || (__GNUC__ && !__alpha) */
diff --git a/vms/vmsbuild.com b/vms/vmsbuild.com
index fcd514b0..1501c85a 100644
--- a/vms/vmsbuild.com
+++ b/vms/vmsbuild.com
@@ -5,9 +5,10 @@ $! gawk 2.14 revised, Sep'92
$! gawk 2.15 revised, Oct'93
$! gawk 3.0 revised, Dec'95
$! gawk 3.0.1 revised, Nov'96
+$! gawk 3.1.0 revised, Mar'01
$!
-$ REL = "3.0" !release version number
-$ PATCHLVL = "6"
+$ REL = "3.1" !release version number
+$ PATCHLVL = "0"
$!
$!
$ CCFLAGS = "/noList" ! "/noOpt/Debug"
@@ -48,34 +49,35 @@ $ v = f$verify(1)
$ copy [.vms]vms-conf.h []config.h
$! 'f$verify(v)'
$config_ok:
-$ if f$search("awktab.c").nes."" then goto awktab_ok
-$ write sys$output " You must process `awk.y' with ""yacc"" or ""bison"""
-$ if f$search("awk_tab.c").nes."" then - !bison was run manually
- write sys$output " or else rename `awk_tab.c' to `awktab.c'."
+$ if f$search("awkgram.c").nes."" then goto awkgram_ok
+$ write sys$output " You must process `awkgram.y' with ""yacc"" or ""bison"""
+$ if f$search("awkgram_tab.c").nes."" then - !bison was run manually
+ write sys$output " or else rename `awkgram_tab.c' to `awkgramtab.c'."
$ if f$search("ytab.c").nes."" .or. f$search("y_tab.c").nes."" then - !yacc
- write sys$output " or else rename `ytab.c' or `y_tab.c' to `awktab.c'."
+ write sys$output " or else rename `ytab.c' or `y_tab.c' to `awkgramtab.c'."
$ exit
-$awktab_ok:
+$awkgram_ok:
$ v = f$verify(1)
$ cc array.c
+$ cc awkgram.c
$ cc builtin.c
-$ cc eval.c
+$ cc dfa.c
+$ cc ext.c
$ cc field.c
$ cc gawkmisc.c
+$ cc getopt.c
+$ cc getopt1.c
$ cc io.c
$ cc main.c
-$ cc missing.c
$ cc msg.c
$ cc node.c
+$ cc random.c
$ cc re.c
-$ cc version.c
-$ cc awktab.c
-$ cc getopt.c
-$ cc getopt1.c
$ cc regex.c
-$ cc dfa.c
-$ cc random.c
-$ cc/Define=('CDEFS',"STACK_DIRECTION=(-1)","exit=vms_exit") alloca.c
+$ cc replace.c
+$ cc version.c
+$ cc eval.c
+$ cc profile.c
$ cc [.vms]vms_misc.c
$ cc [.vms]vms_popen.c
$ cc [.vms]vms_fwrite.c
@@ -88,9 +90,9 @@ $!
$ close/noLog Fopt
$ create gawk.opt
! GAWK -- GNU awk
-array.obj,builtin.obj,eval.obj,field.obj,gawkmisc.obj
-io.obj,main.obj,missing.obj,msg.obj,node.obj,re.obj,version.obj,awktab.obj
-getopt.obj,getopt1.obj,regex.obj,dfa.obj,random.obj,alloca.obj
+array.obj,awkgram.obj,builtin.obj,dfa.obj,ext.obj,field.obj,gawkmisc.obj
+getopt.obj,getopt1.obj,io.obj,main.obj,msg.obj,node.obj,random.obj
+re.obj,regex.obj,replace.obj,version.obj,eval.obj,profile.obj
[]vms_misc.obj,vms_popen.obj,vms_fwrite.obj,vms_args.obj
[]vms_gawk.obj,vms_cli.obj,gawk_cmd.obj
psect_attr=environ,noshr !extern [noshare] char **
diff --git a/vms/vmstest.com b/vms/vmstest.com
index 85c4fa9d..af38e162 100644
--- a/vms/vmstest.com
+++ b/vms/vmstest.com
@@ -42,9 +42,13 @@ $basic: basic_lst1 = "msg swaplns messages argarray longwrds" -
+ " substr eofsplit prt1eval splitwht back89 tradanch"
$ basic_lst2 = "nlfldsep splitvar intest nfldstr nors" -
+ " fnarydel noparms funstack clobber delarprm prdupval" -
- + " nasty zeroflag getnr2tm getnr2tb printf1" -
+ + " nasty nasty2 zeroflag getnr2tm getnr2tb printf1" -
+ " funsmnam fnamedat numindex subslash opasnslf" -
- + " opasnidx arynocls getlnbuf arysubnm fnparydl"
+ + " opasnidx arynocls getlnbuf arysubnm fnparydl" -
+ + " nlstrina octsub nlinstr ofmt hsprint ofmts parseme" -
+ + " splitdef fnaryscl fnasgnm ofmtbig paramtyp rsnul1nl" -
+ + " datanonl regeq redfilnm strtod leaddig arynasty" -
+ + " psx96sub addcomma"
$ echo "basic"
$basic_loop1: basic_test = f$element(0," ",basic_lst1)
$ basic_lst1 = basic_lst1 - basic_test - " "
@@ -56,8 +60,8 @@ $ if basic_test.nes." " then gosub 'basic_test'
$ if basic_lst2.nes."" then goto basic_loop2
$ return
$
-$unix_tests: unix_tst_list = "poundbang fflush getlnhd pipeio1" -
- + " pipeio2 strftlng pid"
+$unix_tests: unix_tst_list = "fflush getlnhd pid pipeio1" -
+ + " pipeio2 poundbang strftlng"
$ echo "unix_tests"
$unix_tst_loop: unix_tst_test = f$element(0," ",unix_tst_list)
$ unix_tst_list = unix_tst_list - unix_tst_test - " "
@@ -65,9 +69,10 @@ $ if unix_tst_test.nes." " then gosub 'unix_tst_test'
$ if unix_tst_list.nes."" then goto unix_tst_loop
$ return
$
-$gawk_ext: gawk_ext_list = "fieldwdth ignrcase posix manyfiles" -
- + " igncfs argtest badargs strftime gensub gnureops reint" -
- + " igncdym" ! + " nondec"
+$gawk_ext: gawk_ext_list = "argtest badargs clos1way fieldwdth" -
+ + " fsfwfs gensub gnuops2 gnureops igncdym igncfs" -
+ + " ignrcase lint manyfiles nondec posix procinfs" -
+ + " regx8bit reint shadow sort1 strftime"
$ echo "gawk_ext (gawk.extensions)"
$gawk_ext_loop: gawk_ext_test = f$element(0," ",gawk_ext_list)
$ gawk_ext_list = gawk_ext_list - gawk_ext_test - " "
@@ -83,10 +88,24 @@ $ if vms_tst_test.nes." " then gosub 'vms_tst_test'
$ if vms_tst_list.nes."" then goto vms_tst_loop
$ return
$
-$extra: extra_list = "regtest inftest"
+$extra: extra_list = "regtest inftest inet"
$ echo "extra"
-$ gosub "regtest"
-$ gosub "inftest"
+$extra_loop: extra_test = f$element(0," ",extra_list)
+$ extra_list = extra_list - extra_test - " "
+$ if extra_test.nes." " then gosub 'extra_test'
+$ if extra_list.nes."" then goto extra_loop
+$ return
+$
+$inet: inet_list = "inetechu inetecht inetdayu inetdayt"
+$ echo "inet"
+$ type sys$input:
+ The inet tests only work if gawk has been built with tcp/ip socket
+ support and your system supports the services "discard" at port 9
+ and "daytimed" at port 13.
+$inet_loop: inet_test = f$element(0," ",inet_list)
+$ inet_list = inet_list - inet_test - " "
+$ if inet_test.nes." " then gosub 'inet_test'
+$ if inet_list.nes."" then goto inet_loop
$ return
$
$poundbang:
@@ -225,9 +244,11 @@ $ return
$
$inftest: echo "inftest"
$ !! echo "This test is very machine specific..."
+$ set noOn
$ gawk -f inftest.awk >tmp.
$ !! cmp inftest.ok tmp. !just care that gawk doesn't crash...
$ if $status then rm tmp.;
+$ set On
$ return
$
$getline: echo "getline"
@@ -325,12 +346,8 @@ $ if $status then rm tmp.;
$ return
$
$nonl: echo "nonl"
-$ ! This one might fail, depending on which C run-time library is used.
-$ ! If VAXCRTL is used by the program that unpacks the distribution,
-$ ! then nonl.awk will actually end with a newline. Even when that's
-$ ! not the case, if gawk itself uses VAXCRTL, an absent newline will
-$ ! be fabricated by the library when gawk reads the file. DECC$SHR
-$ ! doesn't behave this way....
+$ ! This one might fail, depending on the tool used to unpack the
+$ ! distribution. Some will add a final newline if the file lacks one.
$ AWKPATH_srcdir
$ gawk --lint -f nonl.awk _NL: >tmp. 2>&1
$ cmp nonl.ok tmp.
@@ -535,7 +552,7 @@ $ return
$
$clsflnam: echo "clsflnam"
$ if f$search("clsflnam.ok").eqs."" then create clsflnam.ok
-$ gawk -f clsflnam.awk clsflnam.in >tmp.
+$ gawk -f clsflnam.awk clsflnam.in >tmp. 2>&1
$ cmp clsflnam.ok tmp.
$ if $status then rm tmp.;
$ return
@@ -623,7 +640,7 @@ $ open/Write ftmp _pid.in
$ write ftmp f$integer("%x" + f$getjpi("","PID"))
$ write ftmp f$integer("%x" + f$getjpi("","OWNER"))
$ close ftmp
-$ gawk -f pid.awk _pid.in >tmp.
+$ gawk -f pid.awk _pid.in >tmp. >& _NL:
$ rm _pid.in;
$ cmp pid.ok tmp.
$ if $status then rm tmp.;
@@ -723,11 +740,23 @@ $ if $status then rm tmp.;
$ return
$
$nasty: echo "nasty"
+$ set noOn
$ gawk -f nasty.awk >tmp.
-$ if f$file_attrib("nasty.ok","LRL").eq.0 then convert nasty.ok *.*
-$ if f$file_attrib("tmp.", "LRL").eq.0 then convert tmp. *.*
+$ call fixup_LRL nasty.ok
+$ call fixup_LRL tmp. "purge"
$ cmp nasty.ok tmp.
$ if $status then rm tmp.;
+$ set On
+$ return
+$
+$nasty2: echo "nasty2"
+$ set noOn
+$ gawk -f nasty2.awk >tmp.
+$ call fixup_LRL nasty2.ok
+$ call fixup_LRL tmp. "purge"
+$ cmp nasty2.ok tmp.
+$ if $status then rm tmp.;
+$ set On
$ return
$
$zeroflag: echo "zeroflag"
@@ -836,9 +865,235 @@ $ if $status then rm tmp.;
$ return
$
$nondec: echo "nondec"
-$ ! gawk -f nondec.awk >tmp.
-$ ! cmp nondec.ok tmp.
-$ ! if $status then rm tmp.;
+$ gawk -f nondec.awk >tmp.
+$ cmp nondec.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$nlstrina: echo "nlstrina"
+$ AWKPATH_srcdir
+$ gawk -f nlstrina.awk >tmp.
+$ cmp nlstrina.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$octsub: echo "octsub"
+$ AWKPATH_srcdir
+$ gawk -f octsub.awk >tmp.
+$ cmp octsub.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$nlinstr: echo "nlinstr"
+$ gawk -f nlinstr.awk nlinstr.in >tmp.
+$ cmp nlinstr.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$ofmt: echo "ofmt"
+$ gawk -f ofmt.awk ofmt.in >tmp.
+$ cmp ofmt.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$hsprint: echo "hsprint"
+$ gawk -f hsprint.awk >tmp.
+$ cmp hsprint.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$fsfwfs: echo "fsfwfs"
+$ gawk -f fsfwfs.awk fsfwfs.in >tmp.
+$ cmp fsfwfs.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$ofmts: echo "ofmts"
+$ gawk -f ofmts.awk ofmts.in >tmp.
+$ cmp ofmts.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$parseme: echo "parseme"
+$ set noOn
+$ AWKPATH_srcdir
+$ gawk -f parseme.awk >tmp. 2>&1
+$ set On
+$ cmp parseme.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$splitdef: echo "splitdef"
+$ gawk -f splitdef.awk >tmp.
+$ cmp splitdef.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$fnaryscl: echo "fnaryscl"
+$ set noOn
+$ AWKPATH_srcdir
+$ gawk -f fnaryscl.awk >tmp. 2>&1
+$ set On
+$ cmp fnaryscl.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$fnasgnm: echo "fnasgnm"
+$ set noOn
+$ AWKPATH_srcdir
+$ gawk -f fnasgnm.awk < fnasgnm.in >tmp. 2>&1
+$ set On
+$ cmp fnasgnm.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$lint: echo "lint"
+$ AWKPATH_srcdir
+$ gawk -f lint.awk >tmp. 2>&1
+$ cmp lint.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$procinfs: echo "procinfs"
+$ gawk -f procinfs.awk >tmp.
+$ cmp procinfs.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$sort1: echo "sort1"
+$ gawk -f sort1.awk >tmp.
+$ cmp sort1.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$ofmtbig: echo "ofmtbig"
+$ set noOn
+$ gawk -f ofmtbig.awk ofmtbig.in >tmp. 2>&1
+$ set On
+$ cmp ofmtbig.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$inetechu: echo "inetechu"
+$ echo "this test is for establishing UDP connections"
+$ set noOn
+$ gawk -- "BEGIN {print """" |& ""/inet/udp/0/127.0.0.1/9""}"
+$ set On
+$ return
+$
+$inetecht: echo "inetecht"
+$ echo "this test is for establishing TCP connections"
+$ set noOn
+$ gawk -- "BEGIN {print """" |& ""/inet/tcp/0/127.0.0.1/9""}"
+$ set On
+$ return
+$
+$inetdayu: echo "inetdayu"
+$ echo "this test is for bidirectional UDP transmission"
+$ set noOn
+$ gawk -f - nl:
+BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13";
+ "/inet/udp/0/127.0.0.1/13" |& getline; print $0}
+$ set On
+$ return
+$
+$inetdayt: echo "netdayt"
+$ echo "this test is for bidirectional TCP transmission"
+$ set noOn
+$ gawk -f - nl:
+BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13";
+ "/inet/tcp/0/127.0.0.1/13" |& getline; print $0}
+$ set On
+$ return
+$
+$paramtyp: echo "paramtyp"
+$ gawk -f paramtyp.awk >tmp.
+$ cmp paramtyp.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$rsnul1nl: echo "rsnul1nl"
+$ gawk -f rsnul1nl.awk rsnul1nl.in >tmp.
+$ cmp rsnul1nl.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$datanonl: echo "datanonl"
+$ gawk -f datanonl.awk datanonl.in >tmp.
+$ cmp datanonl.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$regeq: echo "regeq"
+$ gawk -f regeq.awk regeq.in >tmp.
+$ cmp regeq.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$redfilnm: echo "redfilnm"
+$ gawk -f redfilnm.awk srcdir="." redfilnm.in >tmp.
+$ cmp redfilnm.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$strtod: echo "strtod"
+$ gawk -f strtod.awk strtod.in >tmp.
+$ cmp strtod.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$leaddig: echo "leaddig"
+$ gawk -v "x=2E" -f leaddig.awk >tmp.
+$ cmp leaddig.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$clos1way:
+$ echo "clos1way: uses unsupported `|&' redirection, so skipped"
+$ return
+$!!clos1way: echo "clos1way"
+$ gawk -f clos1way.awk >tmp.
+$ cmp clos1way.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$arynasty: echo "arynasty"
+$ gawk -f arynasty.awk >tmp.
+$ cmp arynasty.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$shadow: echo "shadow"
+$ set noOn
+$ AWKPATH_srcdir
+$ gawk --lint -f shadow.awk >tmp. 2>&1
+$ set On
+$ cmp shadow.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$regx8bit: echo "regx8bit"
+$ gawk -f regx8bit.awk >tmp.
+$ cmp regx8bit.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$psx96sub: echo "psx96sub"
+$ gawk -f psx96sub.awk >tmp.
+$ cmp psx96sub.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$addcomma: echo "addcomma"
+$ gawk -f addcomma.awk addcomma.in >tmp.
+$ cmp addcomma.ok tmp.
+$ if $status then rm tmp.;
+$ return
+$
+$gnuops2: echo "gnuops2"
+$ gawk -f gnuops2.awk >tmp.
+$ cmp gnuops2.ok tmp.
+$ if $status then rm tmp.;
$ return
$
$vms_io1: echo "vms_io1"
@@ -866,5 +1121,25 @@ $ if f$search("[.junk]*.*").nes."" then rm [.junk]*.*;*
$ if f$parse("[.junk]") .nes."" then rm []junk.dir;1
$ return
$
+$! make sure that the specified file's longest-record-length field is set;
+$! otherwise DIFF will choke if any record is longer than 512 bytes
+$fixup_LRL: subroutine
+$ lrl = 0 !VMS V5.5-2 didn't support the LRL argument yet
+$ define/user sys$error nl:
+$ define/user sys$output nl:
+$ lrl = f$file_attribute(p1,"LRL")
+$ if lrl.eq.0 then lrl = f$file_attribute(p1,"MRS")
+$ if lrl.eq.0
+$ then convert/fdl=sys$input: 'p1' *.*
+file
+ organization sequential
+record
+ format stream_lf
+ size 32767
+$ if $status .and. p2.eqs."purge" then rm 'p1';-1
+$ else cmp nl: nl: !deassign/user sys${error,output}
+$ endif
+$ endsubroutine !fixup_LRL
+$
$!NOTREACHED
$ exit