#include <std.h>
#include <jeg.h>
/*
 * CONnect to UIC version 4.0A
 */
   
FIO buff 0;		/* buffer for formatted I/O	*/
char *args[5]		/* alternate argument pointers	*/
	{NULL,NULL,NULL,NULL,NULL};
BOOL looksee NO;
   
main(argc,argv)
	int argc;
	char *argv[];
	{
	char arg,mcrcmd[19];
	int  g,m,pg,pm,i;
	int  ihang();
  
	if (getuic(&g,&m,&pg,&pm))
		panic(-1,"CON -- try again\n");
	if (argc <= 1) {
		putfmt("current UIC is [%o,%o]\n",g,m);
		exit(0);
		fi
	for (i=0; i<argc; i++)
		args[i] = argv[i];
	if (cmpstr("=",argv[1]) && ((argc == 3) || (argc == 4))) {
		args[1] = args[2];
		args[2] = args[3];
		args[3] = args[4];
		argc--;
		looksee = YES;
		fi
	if (args[1][(i=scnstr(args[1],','))]) {
		args[3] = args[2];
		args[2] = &args[1][i+1];
		args[1][i] = EOS;
		argc++;
		fi
	arg = *args[1];
    
	switch (arg) {
	    case '?':
		putfmt("It's too complicated for a quick message.\n");
		putfmt("Check the documentation.\n");
		exit(0);
	    case '=':
		g = pg;
		m = pm;
		putfmt("login UIC is [%o,%o]\n",pg,pm);
		exit(0);
	    case '\\':
		g = pg;
		m = pm;
		break;
	    case '$':
		g = 01;
		m = 054;
		break;
	    default:
		if (argc == 3) {
			g = value(args[1],1);
			if (g == 0) {
				sysvalue(args[1],&pg,&pm);
				if (pg == 0) noname(args[1]);
				g = pg;
				fi
			m = value(args[2],g);
			if (m == 0) noname(args[2]);
			fi
		else {
			m = value(args[1],g);
			if (m == 0) {
				sysvalue(args[1],&pg,&pm);
				if (pg == 0) noname(args[1]);
				g = pg;
				m = pm;
				fi
			esle
	    hctiws
  
	if (looksee) {
		putfmt("== [%o,%o]\n",g,m);
		exit(0);
		fi
	i = decode(mcrcmd,18,"SET /UIC=[%o,%o]",g,m);
	mcrcmd[i] = EOS;
	if ((i=fcall(ihang,1,mcrcmd)) < 0)
		panic(-1,"CON -- unable to reset UIC: %i\n",i);
	else putfmt("-> [%o,%o]\n",g,m);
	exit(0);
	}
/*
 * given a string, return its corresponding octal value
 * names have to be looked up in a CONFOUND.TXT file
 */
int value(s,g)
	char *s;
	int g;
	{
	register char *temp;
	register FIO  *names;
	char name[40];
	int  member;
   
	if (isdigit(*s))
		return(atoo(s));
   
	member = decode(name,22,"SY:[%o,1]CONFOUND.TXT",g);
	name[member] = EOS;
	if ((names=fopen(&buff,name,READ)) == NULL)
		return(0);
	while (getf(names,"%o%p\n",&member,name) != EOF) {
		if (precic(name,s))
			break;
		member = 0;
		elihw
	fclose(names);
	return(member);
	}
/*
 * given a name, return its corresponding UIC
 * names have to be looked up in the system CONFOUND file
 */
sysvalue(s,g,m)
	char *s;
	int  *g,*m;
	{
	register char *temp;
	register FIO  *names;
	char name[40];
	int  group,member;
   
	*g = 0;
	*m = 0;
	if ((names=fopen(&buff,"LB:[222,50]CONFOUND.CMD",READ)) == NULL)
		return;
	while (getf(names,"%o%o%p\n",&group,&member,name) != EOF)
		if (precic(name,s)) {
			*g = group;
			*m = member;
			break;
			fi
	fclose(names);
	}
/*
 * no match exists for this name
 * this condition is fatal
 */
noname(s)
	char *s;
	{
	errfmt("no name match for %p\n",s);
	exit(2);
	}