Moving to 2.13.2.

1 files changed, 245 insertions, 0 deletions

diff --git a/vms/vms_gawk.c b/vms/vms_gawk.c
new file mode 100644
index 00000000..57abff7e
--- /dev/null
+++ b/vms/vms_gawk.c
@@ -0,0 +1,245 @@
+/*
+ * vms_gawk.c -- parse GAWK command line using DCL syntax ]
+ */
+
+/*
+ * Copyright (C) 1991 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 1, 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 GAWK; see the file COPYING.  If not, write to
+ * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+/*
+ * vms_gawk.c - routines to parse the command line as a native DCL command
+ *	       rather than as a foreign command string.
+ *							Pat Rankin, Nov'89
+ *						[ revised for 2.12, May'91 ]
+ */
+
+#include "awk.h"
+#include "vms.h"
+#define COMMAND_NAME "GAWK"	/* verb name & for 'usage' message(s) */
+#define USAGE_PROG_RQRD 1
+#define USAGE_FILE_RQRD 2
+#define USAGE_BAD_COMBO 3
+#define USAGE_RUN_CMD	4
+#define STS$M_INHIB_MSG 0x10000000
+
+#define Present(arg)		vmswork(Cli_Present(arg))
+#define Get_Value(arg,buf,siz)	vmswork(Cli_Get_Value(arg,buf,siz))
+
+extern void   gawk_cmd();	/* created with $ SET COMMAND/OBJECT */
+static int    vms_usage(int);
+
+#define ARG_SIZ 250
+union arg_w_prefix {	/* structure used to simplify prepending of "-" */
+    char     value[3+ARG_SIZ+1];
+    struct {
+	char prefix[3];		/* for "-? " */
+	char buf[ARG_SIZ];
+	char suffix[1];		/* room for '\0' */
+    } arg;
+};
+
+#define chk_option(qualifier,optname)	\
+    if (Present(qualifier))	\
+	strcat(strcat(buf.arg.buf, W_cnt++ ? "," : ""), optname)
+
+
+/* vms_gawk() - parse GAWK command line using DCL and convert it into the */
+/*	       appropriate "-arg" values for compatability with GNU code  */
+int
+vms_gawk()
+{
+    u_long sts;
+    union arg_w_prefix buf;
+    char misc_args[10], *misc_argp;
+    int  argc, W_cnt;
+
+    /* check "GAWK_P1"--it's required; its presence will tip us off */
+    sts = Cli_Present("GAWK_P1");
+    if (CondVal(sts) == CondVal(CLI$_SYNTAX)) {
+	/* syntax error indicates that we weren't invoked as a native DCL
+	   command, so we'll now attempt to generate a command from the
+	   foreign command string and parse that.
+	*/
+	sts = Cli_Parse_Command(gawk_cmd, COMMAND_NAME);
+	if (vmswork(sts))
+	    sts = Cli_Present("GAWK_P1");
+    }
+    if (vmswork(sts))		/* command parsed successfully */
+	v_add_arg(argc = 0, COMMAND_NAME);	/* save "GAWK" as argv[0] */
+    else if (CondVal(sts) == CondVal(CLI$_INSFPRM))
+	return vms_usage(USAGE_FILE_RQRD);  /* insufficient parameters */
+    else if (CondVal(sts) == CondVal(CLI$_CONFLICT))
+	return vms_usage(USAGE_BAD_COMBO);  /* conflicting qualifiers (/input+/command) */
+    else if (CondVal(sts) == CondVal(CLI$_RUNUSED))
+	return vms_usage(USAGE_RUN_CMD);    /* RUN GAWK won't work (no command line) */
+    else
+	return 0;	/* forced to rely on original parsing */
+
+    if (Present("USAGE"))	/* give usage message and quit */
+	return vms_usage(0);
+    else if (! (Present("PROGRAM") || Present("PROGFILE")) )
+	return vms_usage(USAGE_PROG_RQRD);  /* missing required option */
+
+    misc_argp = misc_args;
+    *misc_argp++ = '-';		/* now points at &misc_args[1] */
+    if (Present("REG_EXPR")) {
+	if (Present("REG_EXPR.AWK"))		/* /reg_exp=awk -> -a */
+	    *misc_argp++ = 'a';
+	else if (Present("REG_EXPR.EGREP")	/* /reg_exp=egrep -> -e */
+	      || Present("REG_EXPR.POSIX"))	/* /reg_exp=posix -> -e */
+	    *misc_argp++ = 'e';
+    }
+#if 0	/* gawk 2.11.1 */
+    if (Present("STRICT"))		/* /strict -> -c */
+	*misc_argp++ = 'c';
+    if (Present("COPYRIGHT"))		/* /copyright -> -C */
+	*misc_argp++ = 'C';
+    if (Present("VERSION"))		/* /version -> -V */
+	*misc_argp++ = 'V';
+#else	/* gawk 2.12 */
+    W_cnt = 0,	buf.arg.buf[0] = '\0';
+    strncpy(buf.arg.prefix, "-W ", 3);
+    chk_option("LINT","lint");
+    chk_option("POSIX","posix");
+    chk_option("STRICT","compat");
+    chk_option("COPYRIGHT","copyright");
+    chk_option("VERSION","version");
+    if (W_cnt > 0)			/* got something */
+	v_add_arg(++argc, strdup(buf.value));
+#endif	/*0*/
+#ifdef DEBUG
+    if (Present("DEBUG")) {
+#if 0
+	int both = Present("DEBUG.ALL");
+	if (both || Present("DEBUG.EXECUTION"))
+	    *misc_argp++ = 'd';
+	if (both || Present("DEBUG.PARSE"))
+#endif
+	    *misc_argp++ = 'D';
+    }
+#endif
+    *misc_argp = '\0';		/* terminate misc_args[] */
+    if (misc_argp > &misc_args[1])	/* got something */
+	v_add_arg(++argc, misc_args);	/* store it/them */
+
+    if (Present("FIELD_SEP")) {     /* field separator */
+	strncpy(buf.arg.prefix, "-F ", 3);
+	if (Get_Value("FIELD_SEP", buf.arg.buf, sizeof buf.arg.buf))
+	    v_add_arg(++argc, strdup(buf.value));
+    }
+    if (Present("VARIABLES")) {     /* variables to init prior to BEGIN */
+	strncpy(buf.arg.prefix, "-v ", 3);
+	while (Get_Value("VARIABLES", buf.arg.buf, sizeof buf.arg.buf))
+	    v_add_arg(++argc, strdup(buf.value));
+    }
+    if (Present("PROGFILE")) {	    /* program files, /input=file -> -f file */
+	strncpy(buf.arg.prefix, "-f ", 3);
+	while (Get_Value("PROGFILE", buf.arg.buf, sizeof buf.arg.buf))
+	    v_add_arg(++argc, strdup(buf.value));
+	v_add_arg(++argc, "--");
+    } else if (Present("PROGRAM")) {	/* program text, /program -> 'text' */
+	v_add_arg(++argc, "--");
+	if (Get_Value("PROGRAM", buf.value, sizeof buf.value))
+	    v_add_arg(++argc, strdup(buf.value));
+    }
+
+    /* we know that "GAWK_P1" is present [data files and/or 'var=value'] */
+    while (Get_Value("GAWK_P1", buf.value, sizeof buf.value))
+	v_add_arg(++argc, strdup(buf.value));
+
+    if (Present("OUTPUT")) {	/* let other parser treat this as 'stdout' */
+	strncpy(buf.arg.prefix, ">$ ", 3);
+	if (Get_Value("OUTPUT", buf.arg.buf, sizeof buf.arg.buf))
+	    v_add_arg(++argc, strdup(buf.value));
+    }
+
+    return ++argc;		/*(increment to account for arg[0])*/
+}
+
+/* vms_usage() - display one or more messages and then terminate */
+static int	/* note: doesn't return anything; allows 'return vms_usage()' */
+vms_usage( int complaint )
+{
+static char
+    *usage_txt = "\n\
+usage:	%s  /COMMANDS=\"awk program text\"  data_file[,data_file,...] \n\
+   or	%s  /INPUT=awk_file  data_file[,\"Var=value\",data_file,...] \n\
+   or	%s  /INPUT=(awk_file1,awk_file2,...)  data_file[,...] \n\
+",  *options_txt = "\n\
+options:  /FIELD_SEPARATOR=\"FS_value\" \n\
+   -	  /VARIABLES=(\"Var1=value1\",\"Var2=value2\",...) \n\
+   -	  /REG_EXPR= AWK or EGREP or POSIX \n\
+   -	  /LINT  /POSIX  /[NO]STRICT  /VERSION	/COPYRIGHT  /USAGE \n\
+   -	  /OUTPUT=out_file \n\
+",  *no_prog = "missing required element: /COMMANDS or /INPUT",
+    *no_file = "missing required element: data_file \n\
+       (use \"SYS$INPUT:\" to read data lines from the terminal)",
+    *bad_combo = "invalid combination of qualifiers \n\
+       (/INPUT=awk_file and /COMMANDS=\"awk program\" are mutually exclusive)",
+    *run_used = "\"RUN\" was used; required command components missing";
+int status, argc;
+
+    fflush(stdout);
+    switch (complaint) {
+      case USAGE_PROG_RQRD:
+	fprintf(stderr, "\n%%%s-W-%s, %s \n", COMMAND_NAME, "PROG_RQRD", no_prog);
+	status = CLI$_VALREQ | STS$M_INHIB_MSG;
+	break;
+      case USAGE_FILE_RQRD:
+	if (Present("USAGE")) {
+	    status = 1;		/* clean exit */
+	} else if (Present("COPYRIGHT") || Present("VERSION")) {
+	    v_add_arg(argc=0, COMMAND_NAME);	/* save "GAWK" as argv[0] */
+#if 0
+	    v_add_arg(++argc, Present("COPYRIGHT") ? "-C" : "-V");
+#else
+	    v_add_arg(++argc, "-W");
+	    v_add_arg(++argc, Present("COPYRIGHT") ? "copyright" : "version");
+#endif
+	    v_add_arg(++argc, "{}");		/* kludge to suppress 'usage' */
+	    v_add_arg(++argc, "NL:");		/* dummy input for kludge */
+	    return ++argc;			/* count argv[0] too */
+	} else {
+	    fprintf(stderr, "\n%%%s-W-%s, %s \n", COMMAND_NAME, "FILE_RQRD", no_file);
+	    status = CLI$_INSFPRM | STS$M_INHIB_MSG;
+	}
+	break;
+      case USAGE_BAD_COMBO:
+	fprintf(stderr, "\n%%%s-W-%s, %s \n", COMMAND_NAME, "BAD_COMBO", bad_combo);
+	status = CLI$_CONFLICT | STS$M_INHIB_MSG;
+	break;
+      case USAGE_RUN_CMD:
+	fprintf(stderr, "\n%%%s-W-%s, %s \n", COMMAND_NAME, "RUN_CMD", run_used);
+	status = CLI$_NOOPTPRS | STS$M_INHIB_MSG;
+	break;
+      default:
+	status = 1;
+	break;
+    }
+    fprintf(stderr, usage_txt, COMMAND_NAME, COMMAND_NAME, COMMAND_NAME);
+    fprintf(stderr, options_txt);
+    fflush(stderr);
+
+    errno = EVMSERR;
+    vaxc$errno = status;
+    _exit(status);
+    /* NOTREACHED */
+    return 0;
+}