# Gentests.vms - supplements Gentests to generate tests in vms format

# gawk -v "VMSTESTS=1" -f Gentests -f Gentests.vms Makefile.am *.awk *.in >Maketests.vms

/^FAIL_CODE1 *=/,/[^\\]$/ {

	gsub(/(^FAIL_CODE1 *=|\\$)/,"")

	for (i = 1; i <= NF; i++)

		fail_code1[$i]

	next

}

END {

	if (VMSTESTS) vmsepilog()

}

#	wildcard expansion done by gawk's vms_arg_fixup() to simulate shell

#	globbing produces full filenames:  device:[directory]name.type;#

#	and by default also forces the value into upper case

function vmsargvfixup(		i, f)

{

	# we're forcing lowercase below; need to override for some files

	vmscasefixup["makefile.in"] = "Makefile.in"

	for (i = 2; i < ARGC; i++) {

		f = ARGV[i]

		sub(/^.+[]>]/, "", f)		# strip dev+dir prefix

		sub(/\;[0-9]+$/, "", f)		# strip version suffix

		f = tolower(f)

		if (f in vmscasefixup) f = vmscasefixup[f]

		ARGV[i] = f

	}

	vmsprolog()		# insert some stuff into the output file

}

#	output sufficient for the simplest tests in vms/vmstest.com

function vmsgenerate(x,		s, o)

{

	# generate a gosub-style subroutine; start with its label

	printf "$" x ":"

	s = ""

	if (x in lint) {

		s = s " --lint"

		delete lint[x]

	}

	if (x in lint_old) {

		s = s " --lint-old"

		delete lint_old[x]

	}

	if (x".in" in files) {

		s = s " <" x ".in"

		delete files[x".in"]

	}

	o = "_" x ".tmp"

	print "\techo \"" x "\""

	print "$\tAWKPATH_srcdir"

	print "$\tgawk -f " x ".awk" s " >" o " 2>&1"

	print "$\tif .not.$status then  call exit_code \"" o "\" " \

		((x in fail_code1) ? "1" : "2")

	print "$\tcmp " x ".ok " o

	print "$\tif $status"

	print "$\tthen\trm " o ";"

	print "$\telse\techo \"test \"\"" x "\"\" failed\""

	print "$\tendif"

	print "$\treturn"

	return

}

#	prolog for Maketests.vms

function vmsprolog()

{

	print "$"

	print "$\techo\t= \"write sys$output\""

	print "$\tcmp\t= \"diff/Output=_NL:/Maximum=1\""

	print "$\trm\t= \"delete/noConfirm/noLog\""

	print "$\tgawk\t= \"$sys$disk:[-]gawk.exe\""

	print "$\tAWKPATH_srcdir = \"define/User AWKPATH sys$disk:[]\""

	print "$"

	print "$\tset noOn"

	print "$ gosub 'p1'"

	print "$\tset On"

	print "$ exit"

	print "$"

}

#	epilog for Maketests.vms

function vmsepilog()

{

	print "$"

	print "$! add a fake \"EXIT CODE\" record to the end of temporary output file"

	print "$! to simulate the ``|| echo EXIT CODE $$? >>_$@'' shell script usage"

	print "$exit_code: subroutine"

	print "$\tif f$trnlnm(\"FTMP\").nes.\"\" then  close/noLog ftmp"

	print "$\topen/Append ftmp 'p1'"

	print "$\twrite ftmp \"EXIT CODE: \",p2"

	print "$\tclose ftmp"

	print "$ endsubroutine !exit_code"

	print "$"

}