vmsfunctions.c

   1 /* VMS functions
   2 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
   3 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
   4 This file is part of GNU Make.
   5
   6 GNU Make is free software; you can redistribute it and/or modify it under the
   7 terms of the GNU General Public License as published by the Free Software
   8 Foundation; either version 3 of the License, or (at your option) any later
   9 version.
  10
  11 GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
  12 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  13 A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License along with
  16 this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18 #include "make.h"
  19 #include "debug.h"
  20 #include "job.h"
  21
  22 #ifdef __DECC
  23 #include <starlet.h>
  24 #endif
  25 #include <descrip.h>
  26 #include <rms.h>
  27 #include <iodef.h>
  28 #include <atrdef.h>
  29 #include <fibdef.h>
  30 #include "vmsdir.h"
  31
  32 #ifdef HAVE_VMSDIR_H
  33
  34 DIR *
  35 opendir (char *dspec)
  36 {
  37   struct DIR *dir  = xcalloc (sizeof (struct DIR));
  38   struct NAM *dnam = xmalloc (sizeof (struct NAM));
  39   struct FAB *dfab = &dir->fab;
  40   char *searchspec = xmalloc (MAXNAMLEN + 1);
  41
  42   *dfab = cc$rms_fab;
  43   *dnam = cc$rms_nam;
  44   sprintf (searchspec, "%s*.*;", dspec);
  45
  46   dfab->fab$l_fna = searchspec;
  47   dfab->fab$b_fns = strlen (searchspec);
  48   dfab->fab$l_nam = dnam;
  49
  50   *dnam = cc$rms_nam;
  51   dnam->nam$l_esa = searchspec;
  52   dnam->nam$b_ess = MAXNAMLEN;
  53
  54   if (! (sys$parse (dfab) & 1))
  55     {
  56       free (dir);
  57       free (dnam);
  58       free (searchspec);
  59       return (NULL);
  60     }
  61
  62   return dir;
  63 }
  64
  65 #define uppercasify(str) \
  66   do \
  67     { \
  68       char *tmp; \
  69       for (tmp = (str); *tmp != '\0'; tmp++) \
  70         if (islower ((unsigned char)*tmp)) \
  71           *tmp = toupper ((unsigned char)*tmp); \
  72     } \
  73   while (0)
  74
  75 struct direct *
  76 readdir (DIR *dir)
  77 {
  78   struct FAB *dfab = &dir->fab;
  79   struct NAM *dnam = (struct NAM *)(dfab->fab$l_nam);
  80   struct direct *dentry = &dir->dir;
  81   int i;
  82
  83   memset (dentry, 0, sizeof *dentry);
  84
  85   dnam->nam$l_rsa = dir->d_result;
  86   dnam->nam$b_rss = MAXNAMLEN;
  87
  88   DB (DB_VERBOSE, ("."));
  89
  90   if (!((i = sys$search (dfab)) & 1))
  91     {
  92       DB (DB_VERBOSE, (_("sys$search() failed with %d\n"), i));
  93       return (NULL);
  94     }
  95
  96   dentry->d_off = 0;
  97   if (dnam->nam$w_fid == 0)
  98     dentry->d_fileno = 1;
  99   else
 100     dentry->d_fileno = dnam->nam$w_fid[0] + (dnam->nam$w_fid[1] << 16);
 101
 102   dentry->d_reclen = sizeof (struct direct);
 103   dentry->d_namlen = dnam->nam$b_name + dnam->nam$b_type;
 104   strncpy (dentry->d_name, dnam->nam$l_name, dentry->d_namlen);
 105   dentry->d_name[dentry->d_namlen] = '\0';
 106
 107 #ifdef HAVE_CASE_INSENSITIVE_FS
 108   uppercasify (dentry->d_name);
 109 #endif
 110
 111   return (dentry);
 112 }
 113
 114 int
 115 closedir (DIR *dir)
 116 {
 117   if (dir != NULL)
 118     {
 119       struct FAB *dfab = &dir->fab;
 120       struct NAM *dnam = (struct NAM *)(dfab->fab$l_nam);
 121       if (dnam != NULL)
 122         free (dnam->nam$l_esa);
 123       free (dnam);
 124       free (dir);
 125     }
 126
 127   return 0;
 128 }
 129 #endif /* compiled for OpenVMS prior to V7.x */
 130
 131 char *
 132 getwd (char *cwd)
 133 {
 134   static char buf[512];
 135
 136   if (cwd)
 137     return (getcwd (cwd, 512));
 138   else
 139     return (getcwd (buf, 512));
 140 }
 141
 142 #if 0
 143 /*
 144  * Is this used? I don't see any reference, so I suggest to remove it.
 145  */
 146 int
 147 vms_stat (char *name, struct stat *buf)
 148 {
 149   int status;
 150   int i;
 151
 152   static struct FAB Fab;
 153   static struct NAM Nam;
 154   static struct fibdef Fib;     /* short fib */
 155   static struct dsc$descriptor FibDesc =
 156   { sizeof (Fib), DSC$K_DTYPE_Z, DSC$K_CLASS_S, (char *) &Fib };
 157   static struct dsc$descriptor_s DevDesc =
 158   { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, &Nam.nam$t_dvi[1] };
 159   static char EName[NAM$C_MAXRSS];
 160   static char RName[NAM$C_MAXRSS];
 161   static struct dsc$descriptor_s FileName =
 162   { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0 };
 163   static struct dsc$descriptor_s string =
 164   { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0 };
 165   static unsigned long Rdate[2];
 166   static unsigned long Cdate[2];
 167   static struct atrdef Atr[] =
 168   {
 169 #if defined(VAX)
 170     /* Revision date */
 171     { sizeof (Rdate), ATR$C_REVDATE, (unsigned int) &Rdate[0] },
 172     /* Creation date */
 173     { sizeof (Cdate), ATR$C_CREDATE, (unsigned int) &Cdate[0] },
 174 #else
 175     /* Revision date */
 176     { sizeof (Rdate), ATR$C_REVDATE, &Rdate[0] },
 177     /* Creation date */
 178     { sizeof (Cdate), ATR$C_CREDATE, &Cdate[0]},
 179 #endif
 180     { 0, 0, 0 }
 181   };
 182   static short int DevChan;
 183   static short int iosb[4];
 184
 185   name = vmsify (name, 0);
 186
 187   /* initialize RMS structures, we need a NAM to retrieve the FID */
 188   Fab = cc$rms_fab;
 189   Fab.fab$l_fna = name;         /* name of file */
 190   Fab.fab$b_fns = strlen (name);
 191   Fab.fab$l_nam = &Nam;         /* FAB has an associated NAM */
 192
 193   Nam = cc$rms_nam;
 194   Nam.nam$l_esa = EName;        /* expanded filename */
 195   Nam.nam$b_ess = sizeof (EName);
 196   Nam.nam$l_rsa = RName;        /* resultant filename */
 197   Nam.nam$b_rss = sizeof (RName);
 198
 199   /* do $PARSE and $SEARCH here */
 200   status = sys$parse (&Fab);
 201   if (!(status & 1))
 202     return -1;
 203
 204   DevDesc.dsc$w_length = Nam.nam$t_dvi[0];
 205   status = sys$assign (&DevDesc, &DevChan, 0, 0);
 206   if (!(status & 1))
 207     return -1;
 208
 209   FileName.dsc$a_pointer = Nam.nam$l_name;
 210   FileName.dsc$w_length = Nam.nam$b_name + Nam.nam$b_type + Nam.nam$b_ver;
 211
 212   /* Initialize the FIB */
 213   for (i = 0; i < 3; i++)
 214     {
 215 #ifndef __VAXC
 216       Fib.fib$w_fid[i] = Nam.nam$w_fid[i];
 217       Fib.fib$w_did[i] = Nam.nam$w_did[i];
 218 #else
 219       Fib.fib$r_fid_overlay.fib$w_fid[i] = Nam.nam$w_fid[i];
 220       Fib.fib$r_did_overlay.fib$w_did[i] = Nam.nam$w_did[i];
 221 #endif
 222     }
 223
 224   status = sys$qiow (0, DevChan, IO$_ACCESS, &iosb, 0, 0,
 225                      &FibDesc, &FileName, 0, 0, &Atr, 0);
 226   sys$dassgn (DevChan);
 227   if (!(status & 1))
 228     return -1;
 229   status = iosb[0];
 230   if (!(status & 1))
 231     return -1;
 232
 233   status = stat (name, buf);
 234   if (status)
 235     return -1;
 236
 237   buf->st_mtime = ((Rdate[0] >> 24) & 0xff) + ((Rdate[1] << 8) & 0xffffff00);
 238   buf->st_ctime = ((Cdate[0] >> 24) & 0xff) + ((Cdate[1] << 8) & 0xffffff00);
 239
 240   return 0;
 241 }
 242 #endif
 243
 244 char *
 245 cvt_time (unsigned long tval)
 246 {
 247   static long int date[2];
 248   static char str[27];
 249   static struct dsc$descriptor date_str =
 250   { 26, DSC$K_DTYPE_T, DSC$K_CLASS_S, str };
 251
 252   date[0] = (tval & 0xff) << 24;
 253   date[1] = ((tval >> 8) & 0xffffff);
 254
 255   if ((date[0] == 0) && (date[1] == 0))
 256     return ("never");
 257
 258   sys$asctim (0, &date_str, date, 0);
 259   str[26] = '\0';
 260
 261   return (str);
 262 }