home *** CD-ROM | disk | FTP | other *** search
/ Serving the Web / ServingTheWeb1995.disc1of1.iso / linux / slacksrce / d / perl / perl-4.000 / perl-4 / perl-4.036 / os2 / glob.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-08  |  360 b   |  22 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.   return argc - 1;
  21. }
  22.