qdos.c

   1 /*
   2 *   $Id: qdos.c 443 2006-05-30 04:37:13Z darren $
   3 *
   4 *   Copyright (c) 1999, Thierry Godefroy <godefroy@imaginet.fr>
   5 *
   6 *   This source code is released for free distribution under the terms of the
   7 *   GNU General Public License.
   8 *
   9 *   This module contains functions to handle wildcard expansion and file name
  10 *   conversion under QDOS.
  11 */
  12
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15 #include <unistd.h>
  16 #include <fcntl.h>
  17 #include <qdos.h>
  18 #include <string.h>
  19 #include <errno.h>
  20 #include "ctags.h"
  21
  22 /* Translate the filenames from UNIX to QDOS conventions on open calls */
  23 int (*_Open) (const char *, int, ...) = qopen;
  24
  25 long _stack          = 24576;  /* Plenty of stack space */
  26 long _memincr        = 10240;  /* Big increments to cut fragmentation */
  27 char _prog_name []   = "ctags";
  28 char _version []     = PROGRAM_VERSION;
  29 char _copyright [32] = __DATE__;
  30 char *_endmsg        = "\nPress a key to exit.";
  31 int  custom_expand (char * param, char ***argvptr, int *argcptr);
  32 int  (*_cmdwildcard) ()  = custom_expand;
  33
  34
  35 struct WINDOWDEF _condetails = { 208, 1, 0, 7, 512, 256, 0, 0};
  36 void (*_consetup) ()         = consetup_title;
  37
  38 /* custom cmdexpand: also expands directory names */
  39
  40 #define FILEBUF_INIT    1024  /* Initial allocation size for buffer */
  41 #define FILEBUF_INCR    1024  /* Increment size for buffer */
  42
  43 int custom_expand (char * param, char ***argvptr, int *argcptr)
  44 {
  45         int     count,sl;
  46         size_t  bufsize;
  47         char    *filenamebuf;
  48         char    *ptr,*safeptr;
  49
  50         /*
  51          *  Check to see if we should do wild card expansion.
  52          *  We only perform wildcard expansion if the parameter
  53          *  was not a string and if it contains one of the
  54          *  wild card characters.
  55          *
  56          *  We also do not expand any option that starts with '-'
  57          *  as we then assume that it is a unix stylew option.
  58          */
  59         if ((*param == '-') ||  (strpbrk (param,"*?") == NULL) ) {
  60             return 0;
  61         }
  62
  63         if ((filenamebuf = malloc (bufsize = FILEBUF_INIT)) == NULL) {
  64             return -1;
  65         }
  66 TRYAGAIN:
  67         count = getfnl (param, filenamebuf, bufsize, QDR_ALL);
  68         if (count == -1  && errno == ENOMEM) {
  69             /*
  70              *  We have overflowed the buffer, so we try
  71              *  to get a bigger buffer and try again.
  72              */
  73             bufsize += FILEBUF_INCR;
  74             if ((filenamebuf = realloc (filenamebuf, bufsize)) == NULL) {
  75                 return -1;
  76             } else {
  77                 goto TRYAGAIN;
  78             }
  79         }
  80         /*
  81          *  If no files were found, then return unexpanded.
  82          */
  83         if (count == 0) {
  84             free (filenamebuf);
  85             return 0;
  86         }
  87         /*
  88          *  Files were found, so add these to the list instead
  89          *  of the original parameter typed by the user.
  90          */
  91         for ( ptr=filenamebuf ; count > 0 ; count -- ) {
  92                 *argvptr = (char **) realloc (*argvptr, (size_t) (((*argcptr) + 2) * sizeof (char *)));
  93                 safeptr= (char *) malloc ((size_t) (sl=strlen (ptr) + 1));
  94                 if (safeptr == NULL || *argvptr == NULL) {
  95                         return -1;
  96                 }
  97                 (void) memcpy (safeptr,ptr, (size_t) sl);
  98                 (*argvptr) [*argcptr] = safeptr;
  99                 *argcptr += 1;
 100                 ptr += sl;
 101         }
 102         free (filenamebuf);
 103         return *argcptr;
 104 }
 105
 106 /* vi:set tabstop=4 shiftwidth=4: */