[unix-history] / usr / src / contrib / perl-4.036 / os2 / glob.c

/*
 * 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;
}
Commit	Line	Data
ca2dddd6 C	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	}