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