[perl5.git] / NetWare / nwplglob.c


/*
 * Copyright © 2001 Novell, Inc. All Rights Reserved.
 *
 * You may distribute under the terms of either the GNU General Public
 * License or the Artistic License, as specified in the README file.
 *
 */

/*
 * FILENAME		:	nwplglob.c
 * DESCRIPTION	:	Perl globbing support for NetWare. Other platforms have usually lauched
 *                  a separate executable for this in order to take advantage of their
 *                  shell's capability for generating a list of files from a given
 *                  wildcard file spec. On NetWare, we don't have that luxury.
 *                  So we just hack the support into pipe open support (which we also had to hack).
 * Author		:	HYAK
 * Date			:	January 2001.
 *
 */


#include <nwtypes.h>
#include "stdio.h"
#include <dirent.h>

#include "win32ish.h"
#include "nwplglob.h"


/*============================================================================================

 Function		:	fnDoPerlGlob

 Description	:	Perl globbing support: Takes an array of wildcard descriptors
                    and produces from it a list of files that the wildcards expand into.
					The list of files is written to the temporary file named by fileName.

 Parameters 	:	argv (IN)	-	Input argument vector.
                    fileName (IN)	-	Input file name for storing globed file names.

 Returns		:	Nothing.

==============================================================================================*/

void fnDoPerlGlob(char** argv, char* fileName)
{
	FILE * redirOut = NULL;

	if (*argv)
		argv++;
	if (*argv == NULL)
		return;

	redirOut = fopen((const char *)fileName, (const char *)"w");
	if (!redirOut)
		return;

	do
	{
		DIR* dir = NULL;
		DIR* fil = NULL;
		char* pattern = NULL;

		pattern = *argv++;

		dir = opendir((const char *)pattern);
		if (!dir)
			continue;

		/* find the last separator in pattern, NetWare has three: /\: */
		while (fil = readdir(dir))
		{
			// The below displays the files separated by tab character.
			// Also, it displays only the file names and not directories.
			// If any other format is desired, it needs to be done here.
			fprintf(redirOut, "%s\t", fil->d_name);
		}

		closedir(dir);

	} while (*argv);

	fclose(redirOut);

	return;
}
Commit	Line	Data
2986a63f JH	1
	2	/*
	3	* Copyright © 2001 Novell, Inc. All Rights Reserved.
	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
	8	*/
	9
	10	/*
	11	* FILENAME : nwplglob.c
	12	* DESCRIPTION : Perl globbing support for NetWare. Other platforms have usually lauched
	13	* a separate executable for this in order to take advantage of their
	14	* shell's capability for generating a list of files from a given
	15	* wildcard file spec. On NetWare, we don't have that luxury.
	16	* So we just hack the support into pipe open support (which we also had to hack).
	17	* Author : HYAK
	18	* Date : January 2001.
	19	*
	20	*/
	21
	22
	23
	24	#include <nwtypes.h>
	25	#include "stdio.h"
	26	#include <dirent.h>
	27
	28	#include "win32ish.h"
	29	#include "nwplglob.h"
	30
	31
	32
	33	/*============================================================================================
	34
	35	Function : fnDoPerlGlob
	36
	37	Description : Perl globbing support: Takes an array of wildcard descriptors
	38	and produces from it a list of files that the wildcards expand into.
	39	The list of files is written to the temporary file named by fileName.
	40
	41	Parameters : argv (IN) - Input argument vector.
	42	fileName (IN) - Input file name for storing globed file names.
	43
	44	Returns : Nothing.
	45
	46	==============================================================================================*/
	47
	48	void fnDoPerlGlob(char** argv, char* fileName)
	49	{
	50	FILE * redirOut = NULL;
	51
	52	if (*argv)
	53	argv++;
	54	if (*argv == NULL)
	55	return;
	56
	57	redirOut = fopen((const char )fileName, (const char )"w");
	58	if (!redirOut)
	59	return;
	60
	61	do
	62	{
	63	DIR* dir = NULL;
	64	DIR* fil = NULL;
65	char* pattern = NULL;
66
67	pattern = *argv++;
68
69	dir = opendir((const char *)pattern);
70	if (!dir)
71	continue;
72
73	/* find the last separator in pattern, NetWare has three: /\: */
74	while (fil = readdir(dir))
75	{
76	// The below displays the files separated by tab character.
77	// Also, it displays only the file names and not directories.
78	// If any other format is desired, it needs to be done here.
79	fprintf(redirOut, "%s\t", fil->d_name);
80	}
81
82	closedir(dir);
83
84	} while (*argv);
85
86	fclose(redirOut);
87
88	return;
89	}
90