lib-src/etags-vmslib.c

   1 /* File name wild card expansion for VMS.
   2    This file is part of the etags program.
   3    Copyright (C) 1987 Free Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 2, or (at your option)
   8    any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18
  19 #include        <stdio.h>
  20 typedef char    tbool;
  21
  22 /* This is a BUG!  ANY arbitrary limit is a BUG!
  23    Won't someone please fix this?  */
  24 #define MAX_FILE_SPEC_LEN       255
  25 typedef struct  {
  26   short   curlen;
  27   char    body[MAX_FILE_SPEC_LEN + 1];
  28 } vspec;
  29 #define EOS     '\0'
  30 #define NO      0
  31 #define YES     1
  32 #define NULL    0
  33
  34 /* gfnames - return in successive calls the
  35  name of each file specified by all the remaining args in the command-line
  36  expanding wild cards and
  37  stepping over arguments when they have been processed completely
  38 */
  39 char*
  40 gfnames(pac, pav, p_error)
  41         int     *pac;
  42         char    **pav[];
  43         tbool   *p_error;
  44 {
  45         static  vspec   filename = {MAX_FILE_SPEC_LEN, "\0"};
  46         short   fn_exp();
  47
  48         while (1)
  49                 if (*pac == 0)
  50                         {
  51                         *p_error = NO;
  52                         return(NULL);
  53                         }
  54                 else switch(fn_exp(&filename, **pav))
  55                         {
  56                 case 1:
  57                         *p_error = NO;
  58                         return(filename.body);
  59                         break;
  60                 case 0:
  61                         --*pac;
  62                         ++*pav;
  63                         break;
  64                 default:
  65                         *p_error = YES;
  66                         return(filename.body);
  67                         break;
  68                         }
  69
  70 }
  71
  72 /* fn_exp - expand specification of list of file names
  73  returning in each successive call the next filename matching the input
  74  spec. The function expects that each in_spec passed
  75  to it will be processed to completion; in particular, up to and
  76  including the call following that in which the last matching name
  77  is returned, the function ignores the value of in_spec, and will
  78  only start processing a new spec with the following call.
  79  If an error occurs, on return out_spec contains the value
  80  of in_spec when the error occurred.
  81
  82  With each successive filename returned in out_spec, the
  83  function's return value is one. When there are no more matching
  84  names the function returns zero. If on the first call no file
  85  matches in_spec, or there is any other error, -1 is returned.
  86 */
  87
  88 #include        <rmsdef.h>
  89 #include        <descrip.h>
  90 #define         OUTSIZE MAX_FILE_SPEC_LEN
  91 short
  92 fn_exp(out, in)
  93         vspec   *out;
  94         char    *in;
  95 {
  96         static  long    context = 0;
  97         static  struct  dsc$descriptor_s        o;
  98         static  struct  dsc$descriptor_s        i;
  99         static  tbool   pass1 = YES;
 100                 long    status;
 101                 short   retval;
 102
 103         if (pass1)
 104                 {
 105                 pass1 = NO;
 106                 o.dsc$a_pointer = (char *) out;
 107                 o.dsc$w_length = (short)OUTSIZE;
 108                 i.dsc$a_pointer = in;
 109                 i.dsc$w_length = (short)strlen(in);
 110                 i.dsc$b_dtype = DSC$K_DTYPE_T;
 111                 i.dsc$b_class = DSC$K_CLASS_S;
 112                 o.dsc$b_dtype = DSC$K_DTYPE_VT;
 113                 o.dsc$b_class = DSC$K_CLASS_VS;
 114                 }
 115         if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL)
 116                 {
 117                 out->body[out->curlen] = EOS;
 118                 return(1);
 119                 }
 120         else if (status == RMS$_NMF)
 121                 retval = 0;
 122         else
 123                 {
 124                 strcpy(out->body, in);
 125                 retval = -1;
 126                 }
 127         lib$find_file_end(&context);
 128         pass1 = YES;
 129         return(retval);
 130 }
 131
 132 #ifndef OLD  /* Newer versions of VMS do provide `system'.  */
 133 system(cmd)
 134      char *cmd;
 135 {
 136   fprintf(stderr, "system() function not implemented under VMS\n");
 137 }
 138 #endif
 139
 140 #define VERSION_DELIM   ';'
 141 char *massage_name(s)
 142         char    *s;
 143 {
 144         char    *start = s;
 145
 146         for ( ; *s; s++)
 147                 if (*s == VERSION_DELIM)
 148                         {
 149                         *s = EOS;
 150                         break;
 151                         }
 152                 else
 153                         *s = tolower(*s);
 154         return(start);
 155 }