diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-12-03 22:52:33 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-12-03 22:52:33 +0200 |
| commit | aded2b2188233e9eaf6afee37ee4094bc92b45e2 (patch) | |
| tree | ebc492d48efa4976873efb4b22a8f5e2772fdd3d /vms/vms_gawk.c | |
| parent | 71157f7f5f2fb9bf0fe588135485a8dcec322786 (diff) | |
| parent | 32323fa42c2c9079abf9a5fe92b2af8c523fd84b (diff) | |
| download | egawk-aded2b2188233e9eaf6afee37ee4094bc92b45e2.tar.gz egawk-aded2b2188233e9eaf6afee37ee4094bc92b45e2.tar.bz2 egawk-aded2b2188233e9eaf6afee37ee4094bc92b45e2.zip | |
Merge branch 'master' into array-iface
Diffstat (limited to 'vms/vms_gawk.c')
| -rw-r--r-- | vms/vms_gawk.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/vms/vms_gawk.c b/vms/vms_gawk.c index 8b20c377..f22e2fa9 100644 --- a/vms/vms_gawk.c +++ b/vms/vms_gawk.c @@ -51,7 +51,7 @@ extern void *gawk_cmd; extern void _exit(int); static int vms_usage(int); -static const char *CmdName; /* "GAWK", "DGAWK", or "PGAWK" */ +static const char *CmdName = "GAWK"; #define ARG_SIZ 250 union arg_w_prefix { /* structure used to simplify prepending of "-" */ @@ -80,10 +80,6 @@ vms_gawk() int native_dcl = 1, /* assume true until we know otherwise */ short_circ; /* some options make P1, /commands, /input superfluous */ - CmdName = do_profile ? "PGAWK" - : do_debug ? "DGAWK" - : "GAWK"; - /* check "GAWK_P1"--it's required; its presence will tip us off */ sts = Cli_Present("GAWK_P1"); if (CondVal(sts) == CondVal(CLI$_SYNTAX)) { @@ -98,7 +94,7 @@ vms_gawk() } short_circ = Present("USAGE") || Present("VERSION") || Present("COPYRIGHT"); if (vmswork(sts)) /* command parsed successfully */ - v_add_arg(argc = 0, CmdName); /* save "GAWK|DGAWK|PGAWK" as argv[0] */ + v_add_arg(argc = 0, CmdName); /* save "GAWK" as argv[0] */ else if (CondVal(sts) == CondVal(CLI$_INSFPRM)) /* vms_usage() will handle /usage, /version, and /copyright */ return short_circ ? vms_usage(0) @@ -245,7 +241,7 @@ options: /FIELD_SEPARATOR=\"FS_value\" \n\ complaint = 0; /* clean exit */ } else if (Present("VERSION") || Present("COPYRIGHT")) { /* construct a truncated Unix-style command line to control main() */ - v_add_arg(argc=0, CmdName); /* save "GAWK",&c as argv[0] */ + v_add_arg(argc=0, CmdName); /* save "GAWK" as argv[0] */ #if 0 v_add_arg(++argc, Present("VERSION") ? "-V" : "-C"); #else |