DataMuseum.dk

top - metrics - download

    Length: 1500 (0x5dc)
    Types: TextFile
    Names: »cstrings.c«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/quipu/cstrings.c« 

TextFile

/* cstrings.c - */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/quipu/RCS/cstrings.c,v 6.0 89/03/18 23:41:12 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/quipu/RCS/cstrings.c,v 6.0 89/03/18 23:41:12 mrose Rel $
 *
 *
 * $Log:	cstrings.c,v $
 * Revision 6.0  89/03/18  23:41:12  mrose
 * Release 5.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


#include "psap.h"

static char arg_error [1024];
static char arg_flag [100];

reset_arg ()
{	
	arg_error [0] = 0;
	arg_flag [0] = 0;
}

print_arg_error (opt)
PS opt;
{
	if (arg_error [0] != 0) {
		ps_printf (opt,"'%s' ambiguous, specify\n%s",arg_flag,arg_error);
		return (OK);
	} else
		return (NOTOK);
}


int test_arg (x, y, c)		
char           *x;		
char           *y;
int   		c;
{
int count = 0;
char * top, *topx;

	top = y;
	topx = x;

	if (*y == '-' )
		count--;

	for (; (*y != 0) || (*x != 0); y++) {	
		if (*x == 0) 
			if (count >= c)
				return (1);
			else {
				(void) strcat (arg_error, top);
				(void) strcat (arg_error, "\n");
				(void) strcpy (arg_flag,topx);
				return (0);
			}
		if (*x != *y) 
			return (0);
			
		count++;	
		x++;
	}

	if (count >= c)
		return (1);	
	else {
		(void) strcat (arg_error, top);
		(void) strcat (arg_error, "\n");
		(void) strcpy (arg_flag, topx);
		return (0);
	}
}