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