getoptmain.c

/* This is the version of main() for POSIX.2 (getopt) style arguments.  */

char *version = "VMSBACKUP4.2";

#include <stdio.h>
#include <stdlib.h>
#include "vmsbackup.h"
#include "getopt.h"

#ifdef HAVE_STARLET
#include "descrip.h"
#endif

void
usage (progname)
char *progname;
{
	fprintf (stderr, "Usage:  %s -{tx}[cdevwF][-b blocksize][-s setnumber][-f tapefile]\n",
		 progname);
#ifdef HAVE_GETOPTLONG
	fprintf(stderr, "\nWith long versions of the above:\n"
	"\tb\tblocksize\tUse specified blocksize\n"
	"\tc\tcomplete\t\tRetain complete filename\n"
	"\td\tdirectory\tCreate subdirectories\n"
	"\te\textension\tExtract all files\n"
	"\tf\tfile\t\tRead from file\n"
	"\ts\tsaveset\t\tRead saveset number\n"
	"\tt\tlist\t\tList files in saveset\n"
	"\tv\tverbose\t\tList files as they are processed\n"
	"\tw\tconfirm\t\tConfirm files before restoring\n"
	"\tx\textract\t\tExtract files\n"
	"\tF\tfull\t\tFull detail in listing\n"
	"\tV\tversion\t\tShow program version number\n"
	"\tB\tbinary\t\tExtract as binary files\n"
	"\t?\thelp\t\tDisplay this help message\n");
#endif
}

extern int optind;
extern char *optarg;

#ifdef HAVE_GETOPTLONG
static const struct option OptionListLong[] =
{
	{"blocksize", 1, 0, 'b'},
	{"complete", 0, 0, 'c'},
	{"directory", 0, 0, 'd'},
	{"extension", 0, 0, 'e'},
	{"file", 1, 0, 'f'},
	{"saveset", 1, 0, 's'},
	{"list", 0, 0, 't'},
	{"verbose", 0, 0, 'v'},
	{"confirm", 0, 0, 'w'},
	{"extract", 0, 0, 'x'},
	{"full", 0, 0, 'F'},
	{"version", 0, 0, 'V'},
	{"binary", 0, 0, 'B'},
	{"debug", 0, 0, 'D'},
	{"help", 0, 0, '?'},
	{0, 0, 0, 0}
};
#endif

int
main (argc, argv)
int argc;
char *argv[];
{
	char *progname;
	int c;
#ifdef HAVE_GETOPTLONG
	int OptionIndex;
#endif

	progname = argv[0];
	if(argc < 2){
		usage(progname);
		exit(1);
	}

	gargv = argv;
	gargc = argc;

	cflag=dflag=eflag=sflag=tflag=vflag=wflag=xflag=debugflag=0;
	flag_binary = 0;
	flag_full = 0;
	tapefile = NULL;

#ifdef HAVE_GETOPTLONG
	while((c=getopt_long(argc,argv,"b:cdef:s:tvwxFVBD",
		OptionListLong, &OptionIndex)) != EOF)
#else
	while((c=getopt(argc,argv,"b:cdef:s:tvwxFVBD")) != EOF)
#endif
		switch(c){
		case 'b':
			sscanf (optarg, "%d", &blocksize);
			break;
		case 'c':
			cflag++;
			break;
		case 'd':
			dflag++;
			break;
		case 'e':
			eflag++;
			break;
		case 'f':
			tapefile = optarg;
			break;
		case 's':
			sflag++;
			sscanf(optarg,"%d",&selset);
			break;
		case 't':
			tflag++;
			break;
		case 'v':
			vflag++;
			break;
		case 'w':
			wflag++;
			break;
		case 'x':
			xflag++;
			break;
		case 'F':
			/* I'd actually rather have this be --full, but at
			   the moment I don't feel like worrying about
			   infrastructure for parsing long arguments.  I
			   don't like the GNU getopt_long--the interface
			   is noreentrant and generally silly; and it might
			   be nice to have something which synergizes more
			   closely with the VMS options (that one is a bit
			   of a can of worms, perhaps, though) like parseargs
			   or whatever it is called.  */
			flag_full = 1;
			break;
		case 'V':
			printf ("VMSBACKUP version %s\n", version);
			exit (EXIT_FAILURE);
			break;
		case 'B':
			/* This of course should be --binary; see above
			   about long options.  */
			flag_binary = 1;
			break;
		case 'D':
			/* Debugging code on */
			debugflag = 1;
			break;
		case '?':
			usage(progname);
			exit(1);
			break;
		};
	goptind = optind;
	if(!tflag && !xflag) {
		usage(progname);
		exit(1);
	}
	vmsbackup ();
}

/* The following is code for non-VMS systems which isn't related to main()
   or option parsing.  It should perhaps be part of a separate file
   (depending, of course, on things like whether anyone ever feels like
   separating the two concepts).  */

/* Given an 8-byte VMS-format date (little-endian) in SRCTIME, put an
   ASCII representation in *ASCBUFFER and put the length in *ASCLENGTH.
   ASCBUFFER must be big enough for 23 characters.
   Returns: condition code.  */
#ifdef HAVE_STARLET
int
time_vms_to_asc (asclength, ascbuffer, srctime)
    short *asclength;
    char *ascbuffer;
    void *srctime;
{
    struct dsc$descriptor buffer;

    buffer.dsc$w_length = 23;
    buffer.dsc$b_dtype = DSC$K_DTYPE_T;
    buffer.dsc$b_class = DSC$K_CLASS_S;
    buffer.dsc$a_pointer = ascbuffer;
    return sys$asctim (asclength, &buffer, srctime, 0);
}
#else
int
time_vms_to_asc (asclength, ascbuffer, srctime)
    short *asclength;
    char *ascbuffer;
    void *srctime;
{
    *asclength = 0;
    return 1;
}
#endif