diff options
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ChangeLog | 17 | ||||
| -rw-r--r-- | vms/descrip.mms | 2 | ||||
| -rw-r--r-- | vms/gawk.hlp | 8 | ||||
| -rw-r--r-- | vms/vms-conf.h | 6 | ||||
| -rw-r--r-- | vms/vmsbuild.com | 2 | ||||
| -rw-r--r-- | vms/vmstest.com | 52 |
6 files changed, 78 insertions, 9 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 2d19a8d3..e84ab85a 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,20 @@ +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> + + * vms-conf.h (__CRTL_VER): Add same override as __VMS_VER. + +Wed May 5 19:10:15 1999 Pat Rankin <rankin@eql.caltech.edu> + + * vmstest.com (nasty, zeroflag, getnr2tm, getnr2tb): New tests. + +Wed Nov 25 17:24:26 1998 Pat Rankin <rankin@eql.caltech.edu> + + * vmstest.com (vms_tests): New general target. + (vms_io1): New specific test. + 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/vms/descrip.mms b/vms/descrip.mms index ec00eb9a..e7e1fc40 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=3 +PATCHLVL=4 # generic target all : gawk diff --git a/vms/gawk.hlp b/vms/gawk.hlp index 9a3f2269..0d1645a6 100644 --- a/vms/gawk.hlp +++ b/vms/gawk.hlp @@ -1084,9 +1084,9 @@ published by SSC and the FSF (http://www.ssc.com). Source text for it is present in the file GAWK.TEXI. A postscript - version is available via anonymous FTP from host prep.ai.mit.edu in - directory pub/gnu/, file gawk-{version}-doc.tar.gz where {version} - would be the current version number, such as 3.0.3. + 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.4. 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.3 and 2.15.6 + Changes between version 3.0.4 and 2.15.6 General RS can contain multiple characters or be a regexp diff --git a/vms/vms-conf.h b/vms/vms-conf.h index b8b98de1..e655ef24 100644 --- a/vms/vms-conf.h +++ b/vms/vms-conf.h @@ -5,7 +5,7 @@ */ /* - * Copyright (C) 1991, 1992, 1995, 1996 the Free Software Foundation, Inc. + * Copyright (C) 1991, 1992, 1995, 1996, 1999 the Free Software Foundation, Inc. * * This file is part of GAWK, the GNU implementation of the * AWK Programming Language. @@ -135,6 +135,10 @@ # undef __VMS_VER # define __VMS_VER 60100000 #endif +#if __CRTL_VER >= 60200000 +# undef __CRTL_VER +# define __CRTL_VER 60100000 +#endif #endif /* diff --git a/vms/vmsbuild.com b/vms/vmsbuild.com index 477bf4d2..29f2eb66 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 = "3" +$ PATCHLVL = "4" $! $! $ CCFLAGS = "/noList" ! "/noOpt/Debug" diff --git a/vms/vmstest.com b/vms/vmstest.com index d6e652d4..bc2a987c 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -23,7 +23,7 @@ $ if p8.nes."" then gosub 'p8' $ exit $ $all: -$bigtest: bigtest_list = "basic unix_tests gawk_ext" +$bigtest: bigtest_list = "basic unix_tests gawk_ext vms_tests" $ echo "bigtest" $bigtest_loop: bigtest_test = f$element(0," ",bigtest_list) $ bigtest_list = bigtest_list - bigtest_test - " " @@ -41,7 +41,8 @@ $basic: basic_lst1 = "msg swaplns messages argarray longwrds" - + " backgsub tweakfld clsflnam mmap8k fnarray dynlj" - + " substr eofsplit prt1eval splitwht back89 tradanch" $ basic_lst2 = "nlfldsep splitvar intest nfldstr nors" - - + " fnarydel noparms funstack clobber delarprm prdupval" + + " fnarydel noparms funstack clobber delarprm prdupval" - + + " nasty zeroflag getnr2tm getnr2tb" $ echo "basic" $basic_loop1: basic_test = f$element(0," ",basic_lst1) $ basic_lst1 = basic_lst1 - basic_test - " " @@ -72,6 +73,14 @@ $ if gawk_ext_test.nes." " then gosub 'gawk_ext_test' $ if gawk_ext_list.nes."" then goto gawk_ext_loop $ return $ +$vms_tests: vms_tst_list = "vms_io1" +$ echo "vms_tests" +$vms_tst_loop: vms_tst_test = f$element(0," ",vms_tst_list) +$ vms_tst_list = vms_tst_list - vms_tst_test - " " +$ 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" $ echo "extra" $ gosub "regtest" @@ -710,12 +719,51 @@ $ cmp prdupval.ok tmp. $ if $status then rm tmp.; $ return $ +$nasty: echo "nasty" +$ 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. *.* +$ cmp nasty.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$zeroflag: echo "zeroflag" +$ gawk -f zeroflag.awk >tmp. +$ cmp zeroflag.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$getnr2tm: echo "getnr2tm" +$ gawk -f getnr2tm.awk getnr2tm.in >tmp. +$ cmp getnr2tm.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$getnr2tb: echo "getnr2tb" +$ gawk -f getnr2tb.awk getnr2tb.in >tmp. +$ cmp getnr2tb.ok tmp. +$ if $status then rm tmp.; +$ return +$ $nondec: echo "nondec" $ ! gawk -f nondec.awk >tmp. $ ! cmp nondec.ok tmp. $ ! if $status then rm tmp.; $ return $ +$vms_io1: echo "vms_io1" +$ if f$search("vms_io1.ok").eqs."" +$ then create vms_io1.ok +Hello +$ endif +$ ! define/User dbg$input sys$command: +$ gawk /Input=sys$input _NL: /Output=tmp. +# prior to 3.0.4, gawk crashed doing any redirection after closing stdin +BEGIN { print "Hello" >"/dev/stdout" } +$ cmp vms_io1.ok tmp. +$ if $status then rm tmp.; +$ return +$ $clean: $ if f$search("tmp.") .nes."" then rm tmp.;* $ if f$search("tmp.too") .nes."" then rm tmp.too;* |