ctags/qdos.c

107 lines
2.9 KiB
C

/*
* $Id$
*
* Copyright (c) 1999, Thierry Godefroy <godefroy@imaginet.fr>
*
* This source code is released for free distribution under the terms of the
* GNU General Public License.
*
* This module contains functions to handle wildcard expansion and file name
* conversion under QDOS.
*/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <qdos.h>
#include <string.h>
#include <errno.h>
#include "ctags.h"
/* Translate the filenames from UNIX to QDOS conventions on open calls */
int (*_Open) (const char *, int, ...) = qopen;
long _stack = 24576; /* Plenty of stack space */
long _memincr = 10240; /* Big increments to cut fragmentation */
char _prog_name [] = "ctags";
char _version [] = PROGRAM_VERSION;
char _copyright [32] = __DATE__;
char *_endmsg = "\nPress a key to exit.";
int custom_expand (char * param, char ***argvptr, int *argcptr);
int (*_cmdwildcard) () = custom_expand;
struct WINDOWDEF _condetails = { 208, 1, 0, 7, 512, 256, 0, 0};
void (*_consetup) () = consetup_title;
/* custom cmdexpand: also expands directory names */
#define FILEBUF_INIT 1024 /* Initial allocation size for buffer */
#define FILEBUF_INCR 1024 /* Increment size for buffer */
int custom_expand (char * param, char ***argvptr, int *argcptr)
{
int count,sl;
size_t bufsize;
char *filenamebuf;
char *ptr,*safeptr;
/*
* Check to see if we should do wild card expansion.
* We only perform wildcard expansion if the parameter
* was not a string and if it contains one of the
* wild card characters.
*
* We also do not expand any option that starts with '-'
* as we then assume that it is a unix stylew option.
*/
if ((*param == '-') || (strpbrk (param,"*?") == NULL) ) {
return 0;
}
if ((filenamebuf = malloc (bufsize = FILEBUF_INIT)) == NULL) {
return -1;
}
TRYAGAIN:
count = getfnl (param, filenamebuf, bufsize, QDR_ALL);
if (count == -1 && errno == ENOMEM) {
/*
* We have overflowed the buffer, so we try
* to get a bigger buffer and try again.
*/
bufsize += FILEBUF_INCR;
if ((filenamebuf = realloc (filenamebuf, bufsize)) == NULL) {
return -1;
} else {
goto TRYAGAIN;
}
}
/*
* If no files were found, then return unexpanded.
*/
if (count == 0) {
free (filenamebuf);
return 0;
}
/*
* Files were found, so add these to the list instead
* of the original parameter typed by the user.
*/
for ( ptr=filenamebuf ; count > 0 ; count -- ) {
*argvptr = (char **) realloc (*argvptr, (size_t) (((*argcptr) + 2) * sizeof (char *)));
safeptr= (char *) malloc ((size_t) (sl=strlen (ptr) + 1));
if (safeptr == NULL || *argvptr == NULL) {
return -1;
}
(void) memcpy (safeptr,ptr, (size_t) sl);
(*argvptr) [*argcptr] = safeptr;
*argcptr += 1;
ptr += sl;
}
free (filenamebuf);
return *argcptr;
}
/* vi:set tabstop=4 shiftwidth=4: */