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