/*
 * SET.C
 *
 * (c)1986 Matthew Dillon     9 October 1986
 *
 * Version 2.07M by Steve Drew 10-Sep-87
 * Version 4.01A by Carlo Borreo & Cesare Dieni 17-Feb-90
 * Version 5.00L by Urban Mueller 17-Feb-91
 *
 */

#include "shell.h"

static char *sys_expand( char *str, char *t );
static void set_sys_var( char *name );

#define MAXLEVELS (3+MAXSRC)
#define HASH 32

typedef struct VNode {
	struct VNode *next;
	char *text;
	char name[1];
} NODE;

typedef struct VRoot {
	NODE *first[HASH];
} ROOT;

ROOT Mbase[ MAXLEVELS ];

void
set_var( int level, char *name, char *str )
{
	NODE **first=&Mbase[level].first[*name & HASH-1], *node;
	char *t, c;

	if( !str ) str="";

	for( t=name; isalphanum(*t); t++ ) ;
	c=*t; *t=0;

	for( node=*first; node; node=node->next )
		if( !strcmp( node->name, name) ) {
			free( node->text );
			goto copy;
		}

	node=malloc(sizeof(NODE) + strlen(name));
	node->next=*first;
	*first=node;
	strcpy( node->name, name );

copy:
	node->text=strcpy( malloc(strlen(str)+1), str );
	*t=c;
	if( *name=='_' )
		set_sys_var( name );
}


char *
get_var( int level, char *name )
{
	NODE *node=Mbase[level].first[*name & HASH-1];
	char *t, c;

	for ( t= name; *(signed char *)t > 0; t++ ) ; /*  *t!=0 && *t<0x80  */
	c=*t; *t=0;

	for( ; node; node=node->next )
		if( !strcmp(node->name,name) )
			{ *t=c; return node->text; }
	*t=c;
	return NULL;
}

void
unset_level( int level )
{
	NODE *node;
	int i;

	for( i=0; i<HASH; i++ ) {
		for( node=Mbase[level].first[i]; node; node=node->next ) {
			Free ( node->text );
			Free ( node );
		}
		Mbase[level].first[i] = NULL;
	}
}

void
unset_var( int level, char *name )
{
	NODE **first=&Mbase[level].first[*name & HASH-1], *node, *prev;
	char *t, c;

	for( t=name; isalphanum(*t); t++ ) ;
	c=*t; *t=0;

	for( node=*first, prev=NULL; node; prev=node, node=node->next )
		if( !strcmp( node->name, name) ) {
			if( prev ) prev->next=node->next; else *first=node->next;
			Free( node->text );
			Free( node );
			if( *name=='_' )
				set_sys_var( name );
			break;
		}
	*t=c;
}


void
set_var_n( int level, char *name, char *str, int n )
{
	char c, len=strlen(str);

	if( n>len )
		n=len;

	if( n>=0 ) {
		c=str[n]; str[n]=0;
		set_var( level, name, str );
		str[n]=c;
	} else 
		set_var( level, name, "" );
}

int
do_unset_var( char *str, int level )
{
	int i;

	for (i = 1; i < ac; ++i)
		unset_var (level, av[i]);
	return 0;
}

int
do_set_var( char *command, int level )
{
	ROOT *root = &Mbase[level];
	NODE *node;
	int i;
	char *str;

	switch (ac) {
	case 1:
		for( i=0; i<HASH && !breakcheck(); i++ )
			for( node=root->first[i]; node && !dobreak(); node=node->next )
				printf ("%s%-10s %s\n", o_lolite, node->name, node->text);
		break;
	case 2:
		if (str=get_var(level,av[1])) printf ("%-10s %s\n", av[1], str);
		break;
	default:
		set_var (level, av[1], next_word (next_word (command)));
		break;
	}
	return 0;
}


extern char shellvers[];

static char *
sys_expand( char *str, char *t )
{
	struct DateStamp dss;
	DateStamp(&dss);

	if( !str ) {
		*t=0;
		return t;
	}

	while (*str)
		if (*str=='%') {
			str+=2;
			switch( str[-1] ) {
			case 'p': t+=sprintf(t,"%s", get_var(LEVEL_SET, "_cwd")); break;
			case 'm': t+=sprintf(t,"%d", AvailMem( 0 )/1024);         break;
			case 't': t+=sprintf(t,"%s", next_word(dates(&dss)));     break;
			case 'd':    sprintf(t,"%s", dates(&dss)); t=index(t,' ');break;
			case 'c': t+=sprintf(t,"%s", o_hilite);                   break;
			case 'v': t+=sprintf(t,"%s", shellvers );                 break;
			case 'n': t+=sprintf(t,"%s", get_var(LEVEL_SET,"_clinumber"));break;
			case 'h': t+=sprintf(t,"%s", get_var(LEVEL_SET, v_histnum));  break;
			case 'f': t+=sprintf(t,"%s", oneinfo(get_var(LEVEL_SET,v_cwd),4));break;
			case 'r': t+=sprintf(t,"%d", (SBYTE)Myprocess->pr_Task.tc_Node.ln_Pri);break;
			default : *t++=str[-1];
			}
		}
		else *t++=*str++;
	*t=0;
	return t;
}

char truetitle[200];

char o_hilite[24], o_lolite[8], *o_csh_qcd, o_kick20, o_nobreak;
char o_minrows, o_scroll, o_nowindow, o_noraw, o_vt100, o_nofastscr;
char o_nobreak, o_bground, o_resident, o_internal;
long o_noreq;

extern char trueprompt[100];

static void
set_sys_var( char *name )
{
	char *get, *str, c=name[1], col;

	if( c==v_debug  [1] ) debug  =  get_var(LEVEL_SET,v_debug  )!=NULL;
	if( c==v_verbose[1] ) Verbose=  get_var(LEVEL_SET,v_verbose)!=NULL;
	if( c==v_nobreak[1] ) o_nobreak=get_var(LEVEL_SET,v_nobreak)!=NULL;
	if( c==v_hilite [1] && !strcmp( name, v_hilite)) {
		o_hilite[0]=o_lolite[0]=0;
		get= get_var(LEVEL_SET,v_hilite);
		str= o_hilite;
		while( get && *get ) {
			switch( *get++ ) {
			case 'b': str+=sprintf( str, "\033[1m" ); break;
			case 'i': str+=sprintf( str, "\033[3m" ); break;
			case 'u': str+=sprintf( str, "\033[4m" ); break;
			case 'r': str+=sprintf( str, "\033[7m" ); break;
			case 'c': str+=strlen(str);
			          if( *get>='0' && *get<='9' ) {
			             col=*get++;
			             if( *get==',' && get[1]>='0' && get[1]<='9' ) {
			                 str+=sprintf( str,"\033[3%cm\033[4%cm",col,get[1]);
			                 get+=2;
			             } else 
			                 str+=sprintf( str,"\033[3%cm",col );
			          }
			          break;
			}
		}
		*str=0;
		if( *o_hilite )
			strcpy(o_lolite,"\033[m");
		strcpy(sys_expand(str,trueprompt),o_lolite);
	}
	if( c==v_scroll[1] ) {
		o_scroll=0;
		if( (str= get_var(LEVEL_SET,v_scroll))) {
			o_scroll=atoi( str );
			if( o_scroll<2 ) o_scroll=0;
			if( o_scroll>8 ) o_scroll=8;
		}
	}
	if( c==v_minrows[1] ) {
		o_minrows=34;
		if( (str= get_var(LEVEL_SET,v_minrows))) {
			o_minrows=atoi( str );
			if( o_minrows<8 )   o_minrows=8;
			if( o_minrows>100 ) o_minrows=100, o_scroll=0;
		}
	}
	if( c==v_qcd[1] ) {
		o_csh_qcd="s:csh-qcd";
		if( str=get_var(LEVEL_SET,v_qcd) )
			o_csh_qcd=str;
	}
	if( c==v_noreq[1] ) {
		o_noreq= get_var(LEVEL_SET,v_noreq ) ? -1 : 0;
		Myprocess->pr_WindowPtr = (APTR)o_noreq;
	}
	if( c==v_hist[1] )
		S_histlen=(str= get_var(LEVEL_SET, v_hist)) ? atoi(str) : 0;
	if( c==v_titlebar[1] )
		update_sys_var( v_titlebar );
}

void
update_sys_var( char *name )
{
	char c=name[1], *str, buf[250];

	if( c==v_prompt[1] ) {
		if( (str=get_var(LEVEL_SET,v_prompt) ) ==NULL) str="$ ";
		strcpy(sys_expand(str,trueprompt),o_lolite);
	}
	if( c==v_titlebar[1] && !o_nowindow && Win ) {
		sys_expand( get_var(LEVEL_SET, v_titlebar), buf);
		if (strcmp(Win->Title, buf)) {
			strcpy(truetitle,buf);
			SetWindowTitles(Win, truetitle, (char *)-1);
		}
	}
}