diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2011-01-27 22:01:14 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2011-01-27 22:01:14 +0200 |
| commit | a5966cb7a8ad989840ec91a9f0bd1725a68d77b7 (patch) | |
| tree | 2cf4576af1c90389e8422eec138652f96b967b43 /vms/vms_args.c | |
| parent | fcdb37e7e7c6bbfc8726d57af4a0e1cb6dd01f6f (diff) | |
| download | egawk-a5966cb7a8ad989840ec91a9f0bd1725a68d77b7.tar.gz egawk-a5966cb7a8ad989840ec91a9f0bd1725a68d77b7.tar.bz2 egawk-a5966cb7a8ad989840ec91a9f0bd1725a68d77b7.zip | |
PC and VMS fixes.
Diffstat (limited to 'vms/vms_args.c')
| -rw-r--r-- | vms/vms_args.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/vms/vms_args.c b/vms/vms_args.c index e349925c..0a296105 100644 --- a/vms/vms_args.c +++ b/vms/vms_args.c @@ -1,7 +1,7 @@ /* vms_args.c -- command line parsing, to emulate shell i/o redirection. [ Escape sequence parsing now suppressed. ] - Copyright (C) 1991-1996, 1997 the Free Software Foundation, Inc. + Copyright (C) 1991-1996, 1997, 2011 the Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -76,6 +76,10 @@ * Add '>+' to force binary mode output, to enable better control * for the user when the output destination is a mailbox or socket. * (ORS = "\r\n" for tcp/ip.) Contributed by Per Steinar Iversen. + * + * Jan'11, gawk 4.0.0 [pr] + * If AWK_LIBRARY is undefined, define it to be SYS$LIBRARY: so + * that the default value of AWKPATH ends with a valid directory. */ #include "awk.h" /* really "../awk.h" */ @@ -103,6 +107,9 @@ vms_arg_fixup( int *pargc, char ***pargv ) int i, argc = *pargc; int err_to_out_redirect = 0, out_to_err_redirect = 0; + /* make sure AWK_LIBRARY has a value */ + if (!getenv("AWK_LIBRARY")) + vms_define("AWK_LIBRARY", "SYS$LIBRARY:"); #ifdef CHECK_DECSHELL /* don't define this if linking with DECC$SHR */ if (shell$is_shell()) return; /* don't do anything if we're running DEC/Shell */ |