elks-enhanced - XT-Emporium

File editor

/*
 * LEVEE, or Captain Video;  A vi clone
 *
 * Copyright (c) 1982-1997 David L Parsons
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by David L Parsons (orc@pell.chi.il.us).  My name may not be used
 * to endorse or promote products derived from this software without
 * specific prior written permission.  THIS SOFTWARE IS PROVIDED
 * AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
 * WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND
 * FITNESS FOR A PARTICULAR PURPOSE.
 */
/*
 * wildcard filename expanders for levee.
 */
#include "levee.h"
#if !(RMX|UNIX)
# include <glob.h>
#endif

int wilderr, wildcard;

PROC
expandargs(name, argcp, argvp)
char *name;
register int *argcp;
register char ***argvp;
{
#if RMX|UNIX
    wilderr = doaddwork(name, argcp, argvp) < 0;
#else
    register char *p;

    wilderr = 0;

    if (p=glob(name, (char*)0)) {
	do {
	    if (doaddwork(p, argcp, argvp) < 0) {
		wilderr++;
		break;
	    }
	} while (p=glob((char*)0, (char*)0));
    }
    else if (doaddwork(name, argcp, argvp) < 0)
	wilderr++;
#endif /*!RMX*/
    if (wilderr)
	killargs(argcp, argvp);
    return !wilderr;
}

#define QUANTUM	10

PROC
doaddwork(token,argcp,argvp)
char *token;
register int *argcp;
register char ***argvp;
{
    char *strdup();
    char **ap = *argvp;
    int ac = *argcp;
    int size;

    if ( ac%QUANTUM == 0) {	/* realloc more memory! */
	size = (QUANTUM+ac)*sizeof(char**);
	ap = (ac == 0)? (char **)malloc(size): (char **)realloc(ap, size);
	if (!ap) {
	    *argcp = 0;
	    goto memfail;
	}
    }
    if (ap[ac] = strdup(token)) {
#if ST|RMX|FLEXOS
	strlwr(ap[ac]);		/* monocase filesystem */
#endif
	*argvp = ap;
	return (*argcp)++;
    }
memfail:
    errmsg("no memory");
    return -1;
}

PROC
killargs(argcp, argvp)
register int *argcp;
register char ***argvp;
{
    int i;

    for (i=(*argcp)-1; i >= 0; i--)
	free((*argvp)[i]);
    if (*argcp)
	free(*argvp);
    *argcp = 0;
    *argvp = 0L;
}
Commit message
This repository is read-only for this account.
Repository snapshot

Current branch
master
Visibility
public
Your access
Read
Remote
Configured
File activity

View file history