home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
gnu
/
perl-4.036.tar.gz
/
perl-4.036.tar
/
perl-4.036
/
os2
/
glob.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-02-08
|
360b
|
22 lines
/*
* 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;
}