[gawk-diffs] [SCM] gawk branch, master, updated. 2992a5aafdf147e37529ed0597f9319e40cf254c

[Arnold Robbins]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".

The branch, master has been updated
       via  2992a5aafdf147e37529ed0597f9319e40cf254c (commit)
      from  7f827fbba00dcc246f1067055c5623a170d7927d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=2992a5aafdf147e37529ed0597f9319e40cf254c

commit 2992a5aafdf147e37529ed0597f9319e40cf254c
Author: Arnold D. Robbins <address@hidden>
Date:   Sun May 15 19:25:03 2011 +0300

    Add new test for VMS.

diff --git a/vms/ChangeLog b/vms/ChangeLog
index 2fcb4fb..220def9 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,7 @@
+Sun May 15 19:24:22 2011  Pat Rankin  <address@hidden>
+
+       * vmstest.com (delargv): New test.
+
 Sat May 14 22:42:28 2011  Pat Rankin  <address@hidden>
 
        * vmstest.com (exit): Fixed test to work.
diff --git a/vms/vmstest.com b/vms/vmstest.com
index 90d61b8..4cf85f3 100644
--- a/vms/vmstest.com
+++ b/vms/vmstest.com
@@ -47,7 +47,7 @@ $             list = "msg addcomma anchgsub argarray 
arrayparm arrayref" -
                  + " clobber closebad clsflnam compare compare2 concat1"
 $              gosub list_of_tests
 $              list = "concat2 concat3 concat4 convfmt datanonl defref" -
-                 + " delarprm delarpm2 delfunc dynlj eofsplit exitval1" -
+                 + " delargv delarprm delarpm2 delfunc dynlj eofsplit 
exitval1" -
                  + " exitval2 fcall_exit fcall_exit2 fldchg fldchgnf" -
                  + " fnamedat fnarray fnarray2 fnaryscl fnasgnm fnmisc" -
                  + " fordel forref forsimp fsbs fsspcoln fsrs fstabplus" -
@@ -280,6 +280,7 @@ $asorti:
 $closebad:
 $compare2:
 $convfmt:
+$delargv:
 $delarprm:
 $delsub:
 $!!double1:
@@ -1526,74 +1527,6 @@ $        gawk "''y'''x'" /dev/null exit.sh
 $      echo "-- 11"
 $ endsubroutine !do__exit
 $
-$next: echo "next"
-$      set noOn
-$      gawk "{next}" _NL:                                   > _next.tmp 2>&1
-$      gawk "function f() {next}; {f()}" _NL:               >>_next.tmp 2>&1
-$      gawk "function f() {next}; BEGIN{f()}" _NL:          >>_next.tmp 2>&1
-$      gawk "function f() {next}; {f()}; END{f()}" _NL:     >>_next.tmp 2>&1
-$      gawk "function f() {next}; BEGINFILE{f()}" _NL:      >>_next.tmp 2>&1
-$      gawk "function f() {next}; {f()}; ENDFILE{f()}" _NL: >>_next.tmp 2>&1
-$      set On
-$      cmp next.ok _next.tmp
-$      if $status then  rm _next.tmp;
-$      return
-$
-$exit: echo "exit"
-$      if .not.pipeok
-$      then    echo "Without the PIPE command, ''test' can't be run."
-$              On warning then  return
-$              pipe echo "PIPE command is available; running exit test"
-$              On warning then  $
-$              pipeok = 1
-$      else    echo "PIPE command is available; running exit test"
-$      endif
-$      set noOn
-$      call/Output=_exit.tmp do__exit
-$      set On
-$      cmp exit.ok _exit.tmp
-$      if $status then  rm _exit.tmp;
-$      return
-$
-$do__exit: subroutine
-$      x = "BEGIN{print 1; exit; print 2}; NR>1{print}; END{print 3; exit; 
print 4}"
-$      pipe gawk -- "BEGIN { print ""a\nb"" }" | gawk -- "''x'"
-$      echo "-- 1"
-$      x = "function f(){exit}; END{print NR;f();print NR}"
-$      pipe gawk -- "BEGIN { print ""a\nb"" }" | gawk -- "''x'"
-$      echo "-- 2"
-$      x = "function f(){exit}; NR>1 {f()}; END{print NR; f();print NR}"
-$      pipe gawk -- "BEGIN { print ""a\nb"" }" | gawk -- "''x'"
-$      echo "-- 3"
-$      x = "function f(){exit}; NR>1 {f()}; END{print NR;print NR}"
-$      pipe gawk -- "BEGIN { print ""a\nb"" }" | gawk -- "''x'"
-$      echo "-- 4"
-$      x = "function f(){exit}; BEGINFILE {f()}; NR>1 {f()}; END{print NR}"
-$      pipe gawk -- "BEGIN { print ""a\nb"" }" | gawk -- "''x'"
-$      echo "-- 5"
-$!     Ugh; extra quotes are needed here to end up with """" after "''y'"
-$!     expansion and finally "" when gawk actually sees its command line.
-$      y = "function strip(f) { sub(/.*\//, """""""", f); return f };"
-$      x = "BEGINFILE{if(++i==1) exit;}; END{print i, strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 6"
-$      x = "BEGINFILE{if(++i==1) exit;}; ENDFILE{print i++}; END{print i, 
strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 7"
-$      x = "function f(){exit}; BEGINFILE{i++ && f()}; END{print 
NR,strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 8"
-$      x = "function f(){exit}; BEGINFILE{i++ && f()}; ENDFILE{print i}; 
END{print NR,strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 9"
-$      x = "function f(){exit}; BEGINFILE{i++}; ENDFILE{f(); print i}; 
END{print NR,strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 10"
-$      x = "function f(){exit}; BEGINFILE{i++}; ENDFILE{i>1 && f(); print i, 
strip(FILENAME)}"
-$      gawk "''y'''x'" /dev/null exit.sh
-$      echo "-- 11"
-$ endsubroutine !do__exit
-$
 $vms_cmd:      echo "vms_cmd"
 $      if f$search("vms_cmd.ok").eqs.""
 $      then create vms_cmd.ok

-----------------------------------------------------------------------

Summary of changes:
 vms/ChangeLog   |    4 +++
 vms/vmstest.com |   71 +-----------------------------------------------------
 2 files changed, 6 insertions(+), 69 deletions(-)


hooks/post-receive
-- 
gawk