os2/glob.c

   1 /*
   2  * Globbing for OS/2.  Relies on the expansion done by the library
   3  * startup code.
   4  */
   5
   6 #define PERLGLOB
   7 #include "director.c"
   8
   9 int main(int argc, char **argv)
  10 {
  11   SHORT i;
  12   USHORT r;
  13   CHAR *f;
  14
  15   for (i = 1; i < argc; i++)
  16   {
  17     f = IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i];
  18     DosWrite(1, f, strlen(f) + 1, &r);
  19   }
  20   return argc - 1;
  21 }