perl 4.0.00: (no release announcement available)
[p5sagit/p5-mst-13.2.git] / os2 / glob.c
1 /*
2  * Globbing for OS/2.  Relies on the expansion done by the library
3  * startup code. (dds)
4  */
5
6 #include <stdio.h>
7 #include <string.h>
8
9 main(int argc, char *argv[])
10 {
11   register i;
12
13   for (i = 1; i < argc; i++)
14   {
15     fputs(IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i], stdout);
16     putchar(0);
17   }
18 }