xref: /freebsd/contrib/less/lglob.h (revision a5f0fb15)
1a5f0fb15SPaul Saab /*
2a5f0fb15SPaul Saab  * Copyright (C) 1984-2000  Mark Nudelman
3a5f0fb15SPaul Saab  *
4a5f0fb15SPaul Saab  * You may distribute under the terms of either the GNU General Public
5a5f0fb15SPaul Saab  * License or the Less License, as specified in the README file.
6a5f0fb15SPaul Saab  *
7a5f0fb15SPaul Saab  * For more information about less, or for information on how to
8a5f0fb15SPaul Saab  * contact the author, see the README file.
9a5f0fb15SPaul Saab  */
10a5f0fb15SPaul Saab 
11a5f0fb15SPaul Saab 
12a5f0fb15SPaul Saab /*
13a5f0fb15SPaul Saab  * Macros to define the method of doing filename "globbing".
14a5f0fb15SPaul Saab  * There are three possible mechanisms:
15a5f0fb15SPaul Saab  *   1.	GLOB_LIST
16a5f0fb15SPaul Saab  *	This defines a function that returns a list of matching filenames.
17a5f0fb15SPaul Saab  *   2. GLOB_NAME
18a5f0fb15SPaul Saab  *	This defines a function that steps thru the list of matching
19a5f0fb15SPaul Saab  *	filenames, returning one name each time it is called.
20a5f0fb15SPaul Saab  *   3. GLOB_STRING
21a5f0fb15SPaul Saab  *	This defines a function that returns the complete list of
22a5f0fb15SPaul Saab  *	matching filenames as a single space-separated string.
23a5f0fb15SPaul Saab  */
24a5f0fb15SPaul Saab 
25a5f0fb15SPaul Saab #if OS2
26a5f0fb15SPaul Saab 
27a5f0fb15SPaul Saab #define	DECL_GLOB_LIST(list)		char **list;  char **pp;
28a5f0fb15SPaul Saab #define	GLOB_LIST(filename,list)	list = _fnexplode(filename)
29a5f0fb15SPaul Saab #define	GLOB_LIST_FAILED(list)		list == NULL
30a5f0fb15SPaul Saab #define	SCAN_GLOB_LIST(list,p)		pp = list;  *pp != NULL;  pp++
31a5f0fb15SPaul Saab #define	INIT_GLOB_LIST(list,p)		p = *pp
32a5f0fb15SPaul Saab #define	GLOB_LIST_DONE(list)		_fnexplodefree(list)
33a5f0fb15SPaul Saab 
34a5f0fb15SPaul Saab #else
35a5f0fb15SPaul Saab #if MSDOS_COMPILER==DJGPPC
36a5f0fb15SPaul Saab 
37a5f0fb15SPaul Saab #define	DECL_GLOB_LIST(list)		glob_t list;  int i;
38a5f0fb15SPaul Saab #define	GLOB_LIST(filename,list)	glob(filename,GLOB_NOCHECK,0,&list)
39a5f0fb15SPaul Saab #define	GLOB_LIST_FAILED(list)		0
40a5f0fb15SPaul Saab #define	SCAN_GLOB_LIST(list,p)		i = 0;  i < list.gl_pathc;  i++
41a5f0fb15SPaul Saab #define	INIT_GLOB_LIST(list,p)		p = list.gl_pathv[i]
42a5f0fb15SPaul Saab #define	GLOB_LIST_DONE(list)		globfree(&list)
43a5f0fb15SPaul Saab 
44a5f0fb15SPaul Saab #else
45a5f0fb15SPaul Saab #if MSDOS_COMPILER==MSOFTC || MSDOS_COMPILER==BORLANDC
46a5f0fb15SPaul Saab 
47a5f0fb15SPaul Saab #define	GLOB_FIRST_NAME(filename,fndp,h) h = _dos_findfirst(filename, ~_A_VOLID, fndp)
48a5f0fb15SPaul Saab #define	GLOB_FIRST_FAILED(handle)	((handle) != 0)
49a5f0fb15SPaul Saab #define	GLOB_NEXT_NAME(handle,fndp)		_dos_findnext(fndp)
50a5f0fb15SPaul Saab #define	GLOB_NAME_DONE(handle)
51a5f0fb15SPaul Saab #define	GLOB_NAME			name
52a5f0fb15SPaul Saab #define	DECL_GLOB_NAME(fnd,drive,dir,fname,ext,handle) \
53a5f0fb15SPaul Saab 					struct find_t fnd;	\
54a5f0fb15SPaul Saab 					char drive[_MAX_DRIVE];	\
55a5f0fb15SPaul Saab 					char dir[_MAX_DIR];	\
56a5f0fb15SPaul Saab 					char fname[_MAX_FNAME];	\
57a5f0fb15SPaul Saab 					char ext[_MAX_EXT];	\
58a5f0fb15SPaul Saab 					int handle;
59a5f0fb15SPaul Saab #else
60a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C && defined(_MSC_VER)
61a5f0fb15SPaul Saab 
62a5f0fb15SPaul Saab #define	GLOB_FIRST_NAME(filename,fndp,h) h = _findfirst(filename, fndp)
63a5f0fb15SPaul Saab #define	GLOB_FIRST_FAILED(handle)	((handle) == -1)
64a5f0fb15SPaul Saab #define	GLOB_NEXT_NAME(handle,fndp)	_findnext(handle, fndp)
65a5f0fb15SPaul Saab #define	GLOB_NAME_DONE(handle)		_findclose(handle)
66a5f0fb15SPaul Saab #define	GLOB_NAME			name
67a5f0fb15SPaul Saab #define	DECL_GLOB_NAME(fnd,drive,dir,fname,ext,handle) \
68a5f0fb15SPaul Saab 					struct _finddata_t fnd;	\
69a5f0fb15SPaul Saab 					char drive[_MAX_DRIVE];	\
70a5f0fb15SPaul Saab 					char dir[_MAX_DIR];	\
71a5f0fb15SPaul Saab 					char fname[_MAX_FNAME];	\
72a5f0fb15SPaul Saab 					char ext[_MAX_EXT];	\
73a5f0fb15SPaul Saab 					long handle;
74a5f0fb15SPaul Saab 
75a5f0fb15SPaul Saab #else
76a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C && !defined(_MSC_VER) /* Borland C for Windows */
77a5f0fb15SPaul Saab 
78a5f0fb15SPaul Saab #define	GLOB_FIRST_NAME(filename,fndp,h) h = findfirst(filename, fndp, ~FA_LABEL)
79a5f0fb15SPaul Saab #define	GLOB_FIRST_FAILED(handle)	((handle) != 0)
80a5f0fb15SPaul Saab #define	GLOB_NEXT_NAME(handle,fndp)	findnext(fndp)
81a5f0fb15SPaul Saab #define	GLOB_NAME_DONE(handle)
82a5f0fb15SPaul Saab #define	GLOB_NAME			ff_name
83a5f0fb15SPaul Saab #define	DECL_GLOB_NAME(fnd,drive,dir,fname,ext,handle) \
84a5f0fb15SPaul Saab 					struct ffblk fnd;	\
85a5f0fb15SPaul Saab 					char drive[MAXDRIVE];	\
86a5f0fb15SPaul Saab 					char dir[MAXDIR];	\
87a5f0fb15SPaul Saab 					char fname[MAXFILE];	\
88a5f0fb15SPaul Saab 					char ext[MAXEXT];	\
89a5f0fb15SPaul Saab 					int handle;
90a5f0fb15SPaul Saab 
91a5f0fb15SPaul Saab #endif
92a5f0fb15SPaul Saab #endif
93a5f0fb15SPaul Saab #endif
94a5f0fb15SPaul Saab #endif
95a5f0fb15SPaul Saab #endif
96