home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / perl / os2perl / glob.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-17  |  383 b   |  23 lines
  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.  
  21.   return argc - 1;
  22. }
  23.