diff options
Diffstat (limited to 'etc/etags-vmslib.c')
| -rw-r--r-- | etc/etags-vmslib.c | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/etc/etags-vmslib.c b/etc/etags-vmslib.c new file mode 100644 index 00000000000..cb5a02684f2 --- /dev/null +++ b/etc/etags-vmslib.c @@ -0,0 +1,159 @@ +/* File name wild card expansion for VMS. + This file is part of the etags program. + Copyright (C) 1987 Free Software Foundation, Inc. 3 Feb 1987 + + 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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +In other words, you are welcome to use, share and improve this program. +You are forbidden to forbid anyone else to use, share and improve +what you give them. Help stamp out software-hoarding! */ + +#include <stdio.h> +typedef char tbool; + +/* This is a BUG! ANY arbitrary limit is a BUG! + Won't someone please fix this? */ +#define MAX_FILE_SPEC_LEN 255 +typedef struct { + short curlen; + char body[MAX_FILE_SPEC_LEN + 1]; +} vspec; +#define EOS '\0' +#define NO 0 +#define YES 1 +#define NULL 0 + +/* v1.01 nmm 19-Aug-85 gfnames - return in successive calls the + name of each file specified by all the remaining args in the command-line + expanding wild cards and + stepping over arguments when they have been processed completely +*/ +char* +gfnames(pac, pav, p_error) + int *pac; + char **pav[]; + tbool *p_error; +{ + static vspec filename = {MAX_FILE_SPEC_LEN, "\0"}; + short fn_exp(); + + while (1) + if (*pac == 0) + { + *p_error = NO; + return(NULL); + } + else switch(fn_exp(&filename, **pav)) + { + case 1: + *p_error = NO; + return(filename.body); + break; + case 0: + --*pac; + ++*pav; + break; + default: + *p_error = YES; + return(filename.body); + break; + } + +} + +/* v1.05 nmm 26-Jun-86 fn_exp - expand specification of list of file names + returning in each successive call the next filename matching the input + spec. The function expects that each in_spec passed + to it will be processed to completion; in particular, up to and + including the call following that in which the last matching name + is returned, the function ignores the value of in_spec, and will + only start processing a new spec with the following call. + If an error occurs, on return out_spec contains the value + of in_spec when the error occurred. + + With each successive filename returned in out_spec, the + function's return value is one. When there are no more matching + names the function returns zero. If on the first call no file + matches in_spec, or there is any other error, -1 is returned. +*/ + +#include <rmsdef.h> +#include <descrip.h> +#define OUTSIZE MAX_FILE_SPEC_LEN +short +fn_exp(out, in) + vspec *out; + char *in; +{ + static long context = 0; + static struct dsc$descriptor_s o; + static struct dsc$descriptor_s i; + static tbool pass1 = YES; + long status; + short retval; + + if (pass1) + { + pass1 = NO; + o.dsc$a_pointer = (char *) out; + o.dsc$w_length = (short)OUTSIZE; + i.dsc$a_pointer = in; + i.dsc$w_length = (short)strlen(in); + i.dsc$b_dtype = DSC$K_DTYPE_T; + i.dsc$b_class = DSC$K_CLASS_S; + o.dsc$b_dtype = DSC$K_DTYPE_VT; + o.dsc$b_class = DSC$K_CLASS_VS; + } + if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL) + { + out->body[out->curlen] = EOS; + return(1); + } + else if (status == RMS$_NMF) + retval = 0; + else + { + strcpy(out->body, in); + retval = -1; + } + lib$find_file_end(&context); + pass1 = YES; + return(retval); +} + +#ifndef OLD /* Newer versions of VMS do provide `system'. */ +system(cmd) + char *cmd; +{ + fprintf(stderr, "system() function not implemented under VMS\n"); +} +#endif + +#define VERSION_DELIM ';' +char *massage_name(s) + char *s; +{ + char *start = s; + + for ( ; *s; s++) + if (*s == VERSION_DELIM) + { + *s = EOS; + break; + } + else + *s = tolower(*s); + return(start); +} |