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