DataMuseum.dk

top - metrics - download

    Length: 2117 (0x845)
    Types: TextFile
    Names: »tai_args.c«

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

TextFile

/* tai_args.c - Argument processing routines */

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

/*
 * $Header: /f/osi/quipu/RCS/tai_args.c,v 6.0 89/03/18 23:41:58 mrose Rel $
 *
 *
 * $Log:	tai_args.c,v $
 * Revision 6.0  89/03/18  23:41:58  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 "quipu/util.h"
#include "quipu/attr.h"

extern char *dsaoidtable,
	    *dsatailfile,
	    *mydsaname,
	    *treedir;

char        *usage = "[-t <tailor>] [-c <dsa name>] [-T <oidtable>] [-D <directory>]";

extern LLog * log_dsap;

dsa_tai_args (acptr,avptr)
int *acptr;
char ***avptr;
{
char ** av;

#ifdef PYR
int cnt = 1;
	/* getopt is better than this simple processing, but it is not
	   supported on the pyramid.
	 */

	av = *avptr;
	av++;

	while (**av == '-') {
		switch (*++*av) {
			case 'T': dsaoidtable = *++av;
				  cnt++;
					break;
			case 'D': treedir = *++av;
				  cnt++;
					break;
			case 'c': mydsaname = *++av;
				  cnt++;
					break;
			case 't': dsatailfile = *+av;
				 cnt++;
				 break;

			default:
				LLOG (log_dsap,LLOG_FATAL,("Unknown option\nUsage: %s %s\n",*avptr[0],usage));
				fatal(-46,"Usage..."));
		}
		av++;
		cnt++;
	}

	*acptr -= cnt;
	*avptr = av;

#else
	extern int optind, opterr;
	extern char     *optarg;
	int     opt;

	av = *avptr;
	opterr = 1;
	optind = 1;

	while((opt = getopt(*acptr, av, "D:T:t:c:")) != EOF)
		switch(opt)
		{
			case 'T': dsaoidtable = strdup(optarg);
					break;
			case 'D': treedir = strdup(optarg);
					break;
			case 'c': mydsaname = strdup(optarg);
					break;
			case 't': dsatailfile = strdup (optarg);
					break;
			default:
				LLOG (log_dsap,LLOG_FATAL,("Unknown option\nUsage: %s %s\n",*avptr[0],usage));
				fatal(-46,"Usage...");
		}

	*acptr -= optind;
	*avptr = &av[optind];
#endif
}