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