arospdf/goo/vms_directory.c

   1 /*
   2  *      DIRECTORY.C - VMS emulation routines for UNIX Directory
   3  *                    callable routines
   4  *
   5  *      Author:         Patrick L. Mahan
   6  *      Location:       TGV, Inc
   7  *      Date:           19-November-1991
   8  *
   9  *      Purpose:        Provides emulation of the BSD directory routines
  10  *                      which are used by some of the X11 R4 release
  11  *                      software.
  12  *
  13  *      Side effects:   This is only a partial emulation.  Not all of
  14  *                      the required information is passed to the user.
  15  *
  16  *      Modification History
  17  *
  18  *      Date        | Who       | Version       | History
  19  *      ------------+-----------+---------------+----------------------------
  20  *      19-Nov-1991 | PLM       | 1.0           | First Write
  21  *      20-Apr-1992 | PLM       | 1.1           | Added validation check for
  22  *                  |           |               | for the directory
  23  */
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <rmsdef.h>
  29 #include <descrip.h>
  30 #include <lib$routines.h>
  31 #include "vms_dirent.h"
  32
  33 #define NOWILD          0x00000001
  34 #define MULTIPLE        0x00000002
  35
  36 static unsigned long context = 0;
  37
  38 static struct dsc$descriptor_s *create_descriptor ( name )
  39 char *name;
  40 {
  41    struct dsc$descriptor_s *retdescrip;
  42
  43    retdescrip = (struct dsc$descriptor_s *)calloc(1, sizeof(struct dsc$descriptor_s));
  44
  45    if (retdescrip == NULL) return ((struct dsc$descriptor_s *)NULL);
  46
  47    retdescrip->dsc$b_dtype      = DSC$K_DTYPE_T;
  48    retdescrip->dsc$b_class      = DSC$K_CLASS_S;
  49    retdescrip->dsc$w_length     = strlen(name);
  50    retdescrip->dsc$a_pointer    = name;
  51
  52    return (retdescrip);
  53 }
  54
  55 static int Check_Directory( dirname )
  56 char *dirname;
  57 {
  58         static char *tmpdir, *cp;
  59         FILE *tfp;
  60         int status;
  61
  62         status = 1;
  63
  64         tmpdir = calloc(strlen(dirname)+15,sizeof(char));
  65
  66         strcpy(tmpdir, dirname);
  67
  68         cp = strrchr(tmpdir, '.');
  69
  70         if (cp != NULL) {
  71                 *cp = ']';
  72                 cp = strrchr(tmpdir, ']');
  73                 *cp = '.';
  74                 strcat(tmpdir, "dir");
  75         }
  76         else {
  77                 char *tmp1;
  78                 tmp1 = calloc(strlen(dirname)+1,sizeof(char));
  79                 cp = strchr(tmpdir, '[');
  80                 cp++;
  81                 strcpy(tmp1, cp);
  82                 cp = strrchr(tmp1, ']');
  83                 *cp = '\0';
  84                 cp = strchr(tmpdir, '[');
  85                 cp++;
  86                 *cp = '\0';
  87                 strcat(tmpdir, "000000]");
  88                 strcat(tmpdir, tmp1);
  89                 strcat(tmpdir, ".dir");
  90         }
  91
  92         tfp = fopen(tmpdir, "r");
  93
  94         if (tfp == NULL) status = 0;
  95
  96         fclose(tfp);
  97
  98         return (status);
  99 }
 100
 101 DIR *opendir( dirname )
 102 char *dirname;
 103 {
 104    DIR *retdir;
 105    struct dsc$descriptor_s filedescriptor;
 106    char *filepathname;
 107
 108    retdir = (DIR *) calloc(1, sizeof(DIR));
 109
 110    if (retdir == NULL) return ((DIR *)NULL);
 111
 112    if (!Check_Directory(dirname)) return ((DIR *)NULL);
 113
 114    filepathname = (char *)calloc(256, sizeof(char));
 115
 116    strcpy(filepathname, dirname);
 117    strcat(filepathname, "*.*.*");
 118
 119    retdir->dd_fd = (unsigned long) create_descriptor(filepathname);
 120    retdir->dd_loc = 0;
 121    retdir->dd_size = strlen(filepathname);
 122    retdir->dd_bsize = 0;
 123    retdir->dd_off = 0;
 124    retdir->dd_buf = filepathname;
 125
 126    return (retdir);
 127 }
 128
 129 struct dirent *readdir( dirp )
 130 DIR *dirp;
 131 {
 132    static struct dirent *retdirent;
 133    struct dsc$descriptor_s retfilenamedesc;
 134    struct dsc$descriptor_s searchpathdesc = *((struct dsc$descriptor_s *)dirp->dd_fd);
 135    char retfilename[256];
 136    char *sp;
 137    unsigned long istatus;
 138    unsigned long rms_status;
 139    unsigned long flags;
 140
 141    retdirent = (struct dirent *)NULL;
 142
 143    flags = MULTIPLE;
 144
 145    retfilenamedesc.dsc$b_dtype  = DSC$K_DTYPE_T;
 146    retfilenamedesc.dsc$b_class  = DSC$K_CLASS_S;
 147    retfilenamedesc.dsc$w_length = 255;
 148    retfilenamedesc.dsc$a_pointer= retfilename;
 149
 150    istatus = lib$find_file (&searchpathdesc,
 151                             &retfilenamedesc,
 152                             &dirp->dd_loc,
 153                             0, 0,
 154                             &rms_status,
 155                             &flags);
 156
 157    if (!(istatus & 1) && (istatus != RMS$_NMF) && (istatus != RMS$_FNF))
 158    {
 159       lib$signal (istatus);
 160       return (retdirent);
 161    }
 162    else if ((istatus == RMS$_NMF) || (istatus == RMS$_FNF))
 163       return (retdirent);
 164
 165    retfilename[retfilenamedesc.dsc$w_length] = '\0';
 166
 167    sp = strchr(retfilename, ' ');
 168    if (sp != NULL) *sp = '\0';
 169
 170    sp = strrchr(retfilename, ']');
 171    if (sp != NULL)
 172       sp++;
 173    else
 174       sp = retfilename;
 175
 176    retdirent = (struct dirent *)calloc(1, sizeof(struct dirent));
 177
 178    strcpy(retdirent->d_name, sp);
 179    retdirent->d_namlen = strlen(sp);
 180    retdirent->d_fileno = 0;
 181    retdirent->d_off = 0;
 182    retdirent->d_reclen = DIRSIZ(retdirent);
 183
 184    return (retdirent);
 185 }
 186
 187 long telldir( dirp )
 188 DIR *dirp;
 189 {
 190    return(0);
 191 }
 192
 193 void seekdir( dirp, loc )
 194 DIR *dirp;
 195 int loc;
 196 {
 197    return;
 198 }
 199
 200 void rewinddir( dirp )
 201 DIR *dirp;
 202 {
 203    lib$find_file_end (&dirp->dd_loc);
 204 }
 205
 206 void closedir( dirp )
 207 DIR *dirp;
 208 {
 209    lib$find_file_end (&dirp->dd_loc);
 210
 211    cfree ((void *) dirp->dd_fd);
 212    cfree (dirp->dd_buf);
 213    cfree (dirp);
 214 }