dclmain.c

#if __VMS
/* This is the version of main() for DCL-style option parsing.  */

/* FIXME: Probably should be using init_cli from the VERB distribution
   so that we can be defined as a foreign command as well as by SET
   COMMAND.  */

#include <stdio.h>
#include <stdlib.h>
#include <descrip.h>
#include <string.h>
#include "vmsbackup.h"
//  #include "sysdep.h"

/* FIXME: Is there a header file for any of the following?  */
extern int cli$get_value();
extern int cli$present();

extern int sys$asctim ();

int
main (argc, argv)
int argc;
char *argv[];
{
	static $DESCRIPTOR (file1,"P1");
	static $DESCRIPTOR (file2,"P2");
	/* Is the /SAVE_SET qualifier specified with P1 and P2,
	   respectively.  */
	int p1_saveset = 0;
	int p2_saveset = 0;
	/* Was P2 specified?  */
	int p2_specified;

	static $DESCRIPTOR (q_saveset, "SAVE_SET");
	static $DESCRIPTOR (q_list, "LIST");
	static $DESCRIPTOR (q_full, "FULL");
	static $DESCRIPTOR (q_brief, "BRIEF");
	static struct dsc$descriptor result =
		{0,DSC$K_DTYPE_T,DSC$K_CLASS_D,0};

	/* We don't yet have a mechanism to select only some files from
	   a save set.  */
	gargv = NULL;
	gargc = 0;
	goptind = 0;

	cflag=dflag=eflag=sflag=tflag=vflag=wflag=xflag=debugflags=0;
	flag_full = 0;
	if (cli$get_value (&file1, &result) & 1) {
		if (cli$present (&q_saveset) & 1) {
			p1_saveset = 1;
		}
		tapefile = malloc (result.dsc$w_length + 1);
		if (tapefile == NULL) {
			fprintf (stderr, "out of memory!\n");
			exit (EXIT_FAILURE);
		}
		strncpy (tapefile, result.dsc$a_pointer, result.dsc$w_length);
		tapefile[result.dsc$w_length] = '\0';
	}
	if (cli$get_value (&file2, &result) & 1) {
		if (cli$present (&q_saveset) & 1) {
			p2_saveset = 1;
		}
		if (result.dsc$w_length != 2
		    || result.dsc$a_pointer[0] != '['
		    || result.dsc$a_pointer[1] != ']') {
			fprintf (stderr,
				 "error: extraction only supported to []\n");
			exit (EXIT_FAILURE);
		}
		p2_specified = 1;
	}
	if (cli$present (&q_list) & 1) {
		tflag = 1;
	}
	if (cli$present (&q_full) & 1) {
		flag_full = 1;
	}
	if (cli$present (&q_brief) & 1) {
		/* /BRIEF overrides /FULL.  */
		flag_full = 0;
	}

	/* Note that our processing of the parameters, /SAVE_SET, etc.
	   differs somewhat from BACKUP.  In some cases this perhaps
	   should be changed, but in other cases I'm not sure the
	   way BACKUP does it is very good.  For example, did the
	   user who typed "BACKUP [-]TESTB.BCK []" really mean to
	   copy the saveset intact?  Seems to me that an error is more
	   useful in that case.  */

	/* If P1 or P2 refers to a tape device, we should be setting
	   p1_saveset or p2_saveset.  But this is not yet implemented
	   (FIXME).  */
	if (!p1_saveset) {
		fprintf (stderr, "error: must specify /SAVE_SET\n");
		exit (EXIT_FAILURE);
	}
	if (p2_saveset) {
		fprintf (stderr, "error: creating savesets not implemented\n");
		exit (EXIT_FAILURE);
	}
	xflag = !tflag;
	if (tflag && p2_specified) {
		fprintf
		  (stderr,
		   "error: must supply two parameters when extracting\n");
		exit (EXIT_FAILURE);
	}
	if (xflag && !p2_specified) {
		fprintf
		  (stderr,
		   "error: must supply one parameter with /LIST\n");
		exit (EXIT_FAILURE);
	}
	/*
	**  Do what we came here to do.
	**  The following never returns.
	*/
	vmsbackup ();
}
#endif // __VMS