NetWare/nwplglob.c

   1
   2 /*
   3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
   4  *
   5  * You may distribute under the terms of either the GNU General Public
   6  * License or the Artistic License, as specified in the README file.
   7  *
   8  */
   9
  10 /*
  11  * FILENAME             :       nwplglob.c
  12  * DESCRIPTION  :       Perl globbing support for NetWare. Other platforms have usually launched
  13  *                  a separate executable for this in order to take advantage of their
  14  *                  shell's capability for generating a list of files from a given
  15  *                  wildcard file spec. On NetWare, we don't have that luxury.
  16  *                  So we just hack the support into pipe open support (which we also had to hack).
  17  * Author               :       HYAK
  18  * Date                 :       January 2001.
  19  *
  20  */
  21
  22
  23
  24 #include <nwtypes.h>
  25 #include "stdio.h"
  26 #include <dirent.h>
  27
  28 #include "win32ish.h"
  29 #include "nwplglob.h"
  30
  31
  32
  33 /*============================================================================================
  34
  35  Function               :       fnDoPerlGlob
  36
  37  Description    :       Perl globbing support: Takes an array of wildcard descriptors
  38                     and produces from it a list of files that the wildcards expand into.
  39                                         The list of files is written to the temporary file named by fileName.
  40
  41  Parameters     :       argv (IN)       -       Input argument vector.
  42                     fileName (IN)       -       Input file name for storing globed file names.
  43
  44  Returns                :       Nothing.
  45
  46 ==============================================================================================*/
  47
  48 void fnDoPerlGlob(char** argv, char* fileName)
  49 {
  50         FILE * redirOut = NULL;
  51
  52         if (*argv)
  53                 argv++;
  54         if (*argv == NULL)
  55                 return;
  56
  57         redirOut = fopen((const char *)fileName, (const char *)"w");
  58         if (!redirOut)
  59                 return;
  60
  61         do
  62         {
  63                 DIR* dir = NULL;
  64                 DIR* fil = NULL;
  65                 char* pattern = NULL;
  66
  67                 pattern = *argv++;
  68
  69                 dir = opendir((const char *)pattern);
  70                 if (!dir)
  71                         continue;
  72
  73                 /* find the last separator in pattern, NetWare has three: /\: */
  74                 while (fil = readdir(dir))
  75                 {
  76                         // The below displays the files separated by tab character.
  77                         // Also, it displays only the file names and not directories.
  78                         // If any other format is desired, it needs to be done here.
  79                         fprintf(redirOut, "%s\t", fil->d_name);
  80                 }
  81
  82                 closedir(dir);
  83
  84         } while (*argv);
  85
  86         fclose(redirOut);
  87
  88         return;
  89 }
  90