/*

*

* Copyright (c) 1990, 2011, Oracle and/or its affiliates. All rights reserved.

*

* Permission is hereby granted, free of charge, to any person obtaining a

* copy of this software and associated documentation files (the "Software"),

* to deal in the Software without restriction, including without limitation

* the rights to use, copy, modify, merge, publish, distribute, sublicense,

* and/or sell copies of the Software, and to permit persons to whom the

* Software is furnished to do so, subject to the following conditions:

*

* The above copyright notice and this permission notice (including the next

* paragraph) shall be included in all copies or substantial portions of the

* Software.

*

* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

* DEALINGS IN THE SOFTWARE.

*

*/

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#include "cmc.h"

/*

** Options and Arguments

*/

char	*display_name 	= NULL;		/* -display */

int	warn_flag	= 0;		/* -warn */

char	*basename_arg 	= NULL;		/* optional argument */

char *program;

void

fatal_error (const char *format, ...)

{

	va_list args;

	va_start(args, format);

	(void) fprintf(stderr, "%s: error: ", program);

	(void) vfprintf(stderr, format, args);

	(void) fprintf(stderr, "\n");

	va_end(args);

	exit(1);

}

void

warning (const char *format, ...)

{

	va_list args;

	va_start(args, format);

	(void) fprintf(stderr, "Warning: ");

	(void) vfprintf(stderr, format, args);

	(void) fprintf(stderr, "\n");

	va_end(args);

	exit(1);

}

static void

usage ()

{

	/* Note: optional filename arg explicitly not documented */

	fprintf(stderr, "usage: %s <op> [-display name] [-warn]\n", program);

	fprintf(stderr, "<op> = save | init | discard | dealloc | show | NeWSinit\n");

	exit(1);

}

/* 

** Parse arguments 

*/

void

process_arguments (argv)

char	**argv;

{

	register char	**a;

	for (a = argv; *a; a++) {

		if (**a == '-') {

			if        (!strcmp(*a, "-warn")) {

			    warn_flag = 1;

			} else if (!strcmp(*a, "-display")) {

			    if (*++a)

				display_name = *a;

			    else {

				fprintf(stderr, "error: -display needs an argument\n");

				usage();

			    }

			} else {

				fprintf(stderr, "error: unrecognized option '%s'\n", *a);

				usage();

			}

	        } else {

		    if (basename_arg) {

			fprintf(stderr, "error: unrecognized argument '%s'\n", *a);

			usage();

		    } else

			basename_arg = *a;

		}

	}

}

/*ARGSUSED*/

int

main (int argc, char **argv)

{

	void	(*op)();

	/* Initialize error handling */

	program = argv[0];

	/* determine operation */

	if (argc <= 1)

		usage();

	++argv;

	if      (!strcmp("save", *argv)) 

		op = cmc_save;

	else if (!strcmp("init", *argv)) 

		op = cmc_init;

	else if (!strcmp("show", *argv)) 

		op = cmc_show;

	else if (!strcmp("discard", *argv)) 

		op = cmc_discard;

	else if (!strcmp("dealloc", *argv)) 

		op = cmc_dealloc;

	else if (!strcmp("NeWSinit", *argv)) 

		op = cmc_NeWSinit;

	else

		usage();

	/* parse rest of arguments */

	process_arguments(++argv);

	/* invoke operation */

	op();

	exit(0);

}