diff options
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ChangeLog | 12 | ||||
| -rw-r--r-- | vms/descrip.mms | 2 | ||||
| -rw-r--r-- | vms/gawk.hlp | 4 | ||||
| -rw-r--r-- | vms/vmsbuild.com | 2 | ||||
| -rw-r--r-- | vms/vmstest.com | 102 |
5 files changed, 112 insertions, 10 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 35240b7c..63db18a1 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,15 @@ +Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com> + + * Release 3.0.6: Release tar file made. + +Sat Jul 15 20:52:09 2000 Pat Rankin <rankin@eql.caltech.edu> + + * vmstest.com (printf1, fusmnam, fnamedat, numindex, + subslash, opasnslf, opasnidx, arynocls, getlnbuf, + arysubnm, fnparydl): New basic tests. + (igncdym): New gawk.extensions test. + (nondec): Old gawk.extensions test commented out. + Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com> * Release 3.0.5: Release tar file made. diff --git a/vms/descrip.mms b/vms/descrip.mms index 08093817..31ddb0c3 100644 --- a/vms/descrip.mms +++ b/vms/descrip.mms @@ -129,7 +129,7 @@ DOCS= $(DOCDIR)gawk.1,$(DOCDIR)gawk.texi,$(DOCDIR)texinfo.tex # Release of gawk REL=3.0 -PATCHLVL=5 +PATCHLVL=6 # generic target all : gawk diff --git a/vms/gawk.hlp b/vms/gawk.hlp index f72113d6..bc1a2210 100644 --- a/vms/gawk.hlp +++ b/vms/gawk.hlp @@ -1086,7 +1086,7 @@ Source text for it is present in the file GAWK.TEXI. A postscript version is available via anonymous FTP from host gnudist.gnu.org in directory /gnu/gawk, file gawk-{version}-doc.tar.gz where {version} - would be the current version number, such as 3.0.5. + would be the current version number, such as 3.0.6. Another source of documentation is "The AWK Programming Language" by Aho, Weinberger, and Kernighan (1988), published by Addison-Wesley. @@ -1200,7 +1200,7 @@ failure. The final exit status will be 1 (VMS success) if 0 is used, or even (VMS non-success) if non-zero is used. 3 changes - Changes between version 3.0.5 and 2.15.6 + Changes between version 3.0.6 and 2.15.6 General RS can contain multiple characters or be a regexp diff --git a/vms/vmsbuild.com b/vms/vmsbuild.com index a896aed7..fcd514b0 100644 --- a/vms/vmsbuild.com +++ b/vms/vmsbuild.com @@ -7,7 +7,7 @@ $! gawk 3.0 revised, Dec'95 $! gawk 3.0.1 revised, Nov'96 $! $ REL = "3.0" !release version number -$ PATCHLVL = "5" +$ PATCHLVL = "6" $! $! $ CCFLAGS = "/noList" ! "/noOpt/Debug" diff --git a/vms/vmstest.com b/vms/vmstest.com index bc2a987c..85c4fa9d 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -42,7 +42,9 @@ $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" + + " nasty zeroflag getnr2tm getnr2tb printf1" - + + " funsmnam fnamedat numindex subslash opasnslf" - + + " opasnidx arynocls getlnbuf arysubnm fnparydl" $ echo "basic" $basic_loop1: basic_test = f$element(0," ",basic_lst1) $ basic_lst1 = basic_lst1 - basic_test - " " @@ -65,7 +67,7 @@ $ return $ $gawk_ext: gawk_ext_list = "fieldwdth ignrcase posix manyfiles" - + " igncfs argtest badargs strftime gensub gnureops reint" - - + " nondec" + + " igncdym" ! + " nondec" $ 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 - " " @@ -354,9 +356,10 @@ $ $strftime: echo "strftime" $ ! this test could fail on slow machines or on a second boundary, $ ! so if it does, double check the actual results -$!! date | gawk -- "{$3 = sprintf(""%02d"",$3+0); print >""strftime.ok""; print strftime() >""tmp.""}" -$ ! note: original test is too Unix-specific, so substitute an easier one -$ gawk -- "BEGIN {""show time"" | getline; print >""strftime.ok""; print strftime("" %v %T"") >""tmp.""}" +$!! date | gawk -v "OUTPUT"=tmp. -f strftime.awk +$ ! note: this test is simpler to implement for VMS +$ gawk -v "OUTPUT"=tmp. - + "BEGIN {""show time"" | getline; print >""strftime.ok""; print strftime("" %v %T"") >OUTPUT}" $ set noOn $ cmp strftime.ok tmp. $ if $status then rm tmp.;,strftime.ok;* @@ -425,7 +428,7 @@ $ $childin: echo "childin: currently fails for the VMS port, so skipped" $ return $! note: this `childin' test currently [gawk 3.0.3] fails for vms -$childin: echo "childin" +$!!childin: echo "childin" $ echo "note: type ``hi<return><ctrl/Z>'",- "' if testing appears to hang in `childin'" $!! @echo hi | gawk "BEGIN { ""cat"" | getline; print; close(""cat"") }" >tmp. @@ -745,6 +748,93 @@ $ cmp getnr2tb.ok tmp. $ if $status then rm tmp.; $ return $ +$printf1: echo "printf1" +$ gawk -f printf1.awk >tmp. +$ cmp printf1.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$funsmnam: echo "funsmnam" +$ set noOn +$ gawk -f funsmnam.awk >tmp. 2>&1 +$ set On +$ cmp funsmnam.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$fnamedat: echo "fnamedat" +$ set noOn +$ gawk -f fnamedat.awk < fnamedat.in >tmp. 2>&1 +$ set On +$ cmp fnamedat.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$numindex: echo "numindex" +$ set noOn +$ gawk -f numindex.awk < numindex.in >tmp. 2>&1 +$ set On +$ cmp numindex.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$subslash: echo "subslash" +$ set noOn +$ gawk -f subslash.awk >tmp. 2>&1 +$ set On +$ cmp subslash.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$opasnslf: echo "opasnslf" +$ set noOn +$ gawk -f opasnslf.awk >tmp. 2>&1 +$ set On +$ cmp opasnslf.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$opasnidx: echo "opasnidx" +$ set noOn +$ gawk -f opasnidx.awk >tmp. 2>&1 +$ set On +$ cmp opasnidx.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$arynocls: echo "arynocls" +$ gawk -v "INPUT"=arynocls.in -f arynocls.awk >tmp. +$ cmp arynocls.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$igncdym: echo "igncdym" +$ gawk -f igncdym.awk igncdym.in >tmp. +$ cmp igncdym.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$getlnbuf: echo "getlnbuf" +$ gawk -f getlnbuf.awk getlnbuf.in >tmp. +$ gawk -f gtlnbufv.awk getlnbuf.in >tmp2. +$ cmp getlnbuf.ok tmp. +$ if $status then rm tmp.; +$ cmp getlnbuf.ok tmp2. +$ if $status then rm tmp2.; +$ return +$ +$arysubnm: echo "arysubnm" +$ gawk -f arysubnm.awk >tmp. +$ cmp arysubnm.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$fnparydl: echo "fnparydl" +$ gawk -f fnparydl.awk >tmp. +$ cmp fnparydl.ok tmp. +$ if $status then rm tmp.; +$ return +$ $nondec: echo "nondec" $ ! gawk -f nondec.awk >tmp. $ ! cmp nondec.ok tmp. |