qdos.c

ultraEdit的Ctag标签工具的实现源代码

/*
*   $Id: qdos.c,v 1.1 2001/11/02 04:53:43 darren Exp $
*
*   Copyright (c) 1999, Thierry Godefroy <[e-mail]>
*
*   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;
}

/* FIN */