diff options
Diffstat (limited to 'vms/vms_cli.c')
| -rw-r--r-- | vms/vms_cli.c | 32 |
1 files changed, 25 insertions, 7 deletions
diff --git a/vms/vms_cli.c b/vms/vms_cli.c index 1638290b..ac793c1a 100644 --- a/vms/vms_cli.c +++ b/vms/vms_cli.c @@ -1,19 +1,37 @@ +/* vms_cli.c -- interface to CLI$xxx routines for fetching command line components + + Copyright (C) 1991-1993, 2003, 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 + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program 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 this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + + /* * vms_cli.c - command line interface routines. * Pat Rankin, Nov'89 * Routines called from vms_gawk.c for DCL parsing. */ -#define P(foo) () #include "config.h" /* in case we want to suppress 'const' &c */ #include "vms.h" #ifndef _STRING_H #include <string.h> #endif -extern U_Long CLI$PRESENT(const Dsc *); -extern U_Long CLI$GET_VALUE(const Dsc *, Dsc *, short *); -extern U_Long CLI$DCL_PARSE(const Dsc *, const void *, ...); +extern U_Long cli$present(const Dsc *); +extern U_Long cli$get_value(const Dsc *, Dsc *, short *); +extern U_Long cli$dcl_parse(const Dsc *, const void *, ...); extern U_Long sys$cli(void *, ...); extern U_Long sys$filescan(const Dsc *, void *, long *); extern void *lib$establish(U_Long (*handler)(void *, void *)); @@ -28,7 +46,7 @@ Cli_Present( const char *item ) (void)lib$establish(lib$sig_to_ret); item_dsc.len = strlen(item_dsc.adr = (char *)item); - return CLI$PRESENT(&item_dsc); + return cli$present(&item_dsc); } /* Cli_Get_Value() - call CLI$GET_VALUE to retreive the value of a */ @@ -43,7 +61,7 @@ Cli_Get_Value( const char *item, char *result, int size ) item_dsc.len = strlen(item_dsc.adr = (char *)item); res_dsc.len = size, res_dsc.adr = result; - sts = CLI$GET_VALUE(&item_dsc, &res_dsc, &len); + sts = cli$get_value(&item_dsc, &res_dsc, &len); result[len] = '\0'; return sts; } @@ -84,7 +102,7 @@ Cli_Parse_Command( const void *cmd_tables, const char *cmd_verb ) cmd.rdesc.len = sizeof longbuf - ltmp; strncpy(&longbuf[ltmp], cmd.rdesc.adr, cmd.rdesc.len); cmd.rdesc.len += ltmp, cmd.rdesc.adr = longbuf; - sts = CLI$DCL_PARSE( &cmd.rdesc, cmd_tables); + sts = cli$dcl_parse(&cmd.rdesc, cmd_tables); } return sts; |