[unix-history] / usr / src / usr.bin / window / parser4.c

#ifndef lint
static char sccsid[] = "@(#)parser4.c	3.4 %G%";
#endif

/*
 * Copyright (c) 1983 Regents of the University of California,
 * All rights reserved.  Redistribution permitted subject to
 * the terms of the Berkeley Software License Agreement.
 */

#include "parser.h"

/*
 * |		3
 * ^		4
 * &		5
 * == !=	6
 * < <= > >=	7
 * << >>	8
 * + -		9
 * * / %	10
 */
p_expr3_10(level, v, flag)
register struct value *v;
char flag;
{
	struct value l, r;
	int op;
	char *opname;

	if ((level == 10 ? p_expr11(v, flag)
	     : p_expr3_10(level + 1, v, flag)) < 0)
		return -1;
	for (;;) {
		switch (level) {
		case 3:
			if (token != T_OR)
				return 0;
			opname = "|";
			break;
		case 4:
			if (token != T_XOR)
				return 0;
			opname = "^";
			break;
		case 5:
			if (token != T_AND)
				return 0;
			opname = "&";
			break;
		case 6:
			if (token == T_EQ)
				opname = "==";
			else if (token == T_NE)
				opname = "!=";
			else
				return 0;
			break;
		case 7:
			switch (token) {
			case T_LT:
				opname = "<";
				break;
			case T_LE:
				opname = "<=";
				break;
			case T_GT:
				opname = ">";
				break;
			case T_GE:
				opname = ">=";
				break;
			default:
				return 0;
			}
			break;
		case 8:
			if (token == T_LS)
				opname = "<<";
			else if (token == T_RS)
				opname = ">>";
			else
				return 0;
			break;
		case 9:
			if (token == T_PLUS)
				opname = "+";
			else if (token == T_MINUS)
				opname = "-";
			else
				return 0;
			break;
		case 10:
			switch (token) {
			case T_MUL:
				opname = "*";
				break;
			case T_DIV:
				opname = "/";
				break;
			case T_MOD:
				opname = "%";
				break;
			default:
				return 0;
			}
			break;
		}
		l = *v;
		if (l.v_type == V_ERR)
			flag = 0;

		op = token;
		(void) s_gettok();
		if ((level == 10 ? p_expr11(&r, flag)
		     : p_expr3_10(level + 1, &r, flag)) < 0) {
			p_synerror();
			val_free(l);
			return -1;
		}

		if (r.v_type == V_ERR)
			flag = 0;
		else switch (op) {
		case T_EQ:
		case T_NE:
		case T_LT:
		case T_LE:
		case T_GT:
		case T_GE:
		case T_PLUS:
			if (l.v_type == V_STR) {
				if (r.v_type == V_NUM)
					if (p_convstr(&r) < 0)
						flag = 0;
			} else
				if (r.v_type == V_STR)
					if (p_convstr(&l) < 0)
						flag = 0;
			break;
		case T_LS:
		case T_RS:
			if (r.v_type == V_STR) {
				char *p = r.v_str;
				r.v_type = V_NUM;
				r.v_num = strlen(p);
				str_free(p);
			}
			break;
		case T_OR:
		case T_XOR:
		case T_AND:
		case T_MINUS:
		case T_MUL:
		case T_DIV:
		case T_MOD:
		default:
			if (l.v_type == V_STR || r.v_type == V_STR) {
				p_error("%s: Numeric operands required.",
					opname);
				flag = 0;
			}
		}
		if (!flag) {
			val_free(l);
			val_free(r);
			v->v_type = V_ERR;
			if (p_abort())
				return -1;
			continue;
		}

		v->v_type = V_NUM;
		switch (op) {
		case T_EQ:
		case T_NE:
		case T_LT:
		case T_LE:
		case T_GT:
		case T_GE:
			if (l.v_type == V_STR) {
				int tmp = strcmp(l.v_str, r.v_str);
				str_free(l.v_str);
				str_free(r.v_str);
				l.v_type = V_NUM;
				l.v_num = tmp;
				r.v_type = V_NUM;
				r.v_num = 0;
			}
			break;
		}
		switch (op) {
		case T_OR:
			v->v_num = l.v_num | r.v_num;
			break;
		case T_XOR:
			v->v_num = l.v_num ^ r.v_num;
			break;
		case T_AND:
			v->v_num = l.v_num & r.v_num;
			break;
		case T_EQ:
			v->v_num = l.v_num == r.v_num;
			break;
		case T_NE:
			v->v_num = l.v_num != r.v_num;
			break;
		case T_LT:
			v->v_num = l.v_num < r.v_num;
			break;
		case T_LE:
			v->v_num = l.v_num <= r.v_num;
			break;
		case T_GT:
			v->v_num = l.v_num > r.v_num;
			break;
		case T_GE:
			v->v_num = l.v_num >= r.v_num;
			break;
		case T_LS:
			if (l.v_type == V_STR) {
				int i;
				if ((i = strlen(l.v_str)) > r.v_num)
					i = r.v_num;
				v->v_str = str_ncpy(l.v_str, i);
				v->v_type = V_STR;
			} else
				v->v_num = l.v_num << r.v_num;
			break;
		case T_RS:
			if (l.v_type == V_STR) {
				int i;
				if ((i = strlen(l.v_str)) > r.v_num)
					i -= r.v_num;
				else
					i = 0;
				v->v_str = str_cpy(l.v_str + i);
				v->v_type = V_STR;
			} else
				v->v_num = l.v_num >> r.v_num;
			break;
		case T_PLUS:
			if (l.v_type == V_STR) {
				v->v_str = str_cat(l.v_str, r.v_str);
				v->v_type = V_STR;
			} else
				v->v_num = l.v_num + r.v_num;
			break;
		case T_MINUS:
			v->v_num = l.v_num - r.v_num;
			break;
		case T_MUL:
			v->v_num = l.v_num * r.v_num;
			break;
		case T_DIV:
			v->v_num = l.v_num / r.v_num;
			break;
		case T_MOD:
			v->v_num = l.v_num % r.v_num;
			break;
		}
		val_free(l);
		val_free(r);
	}
	/*NOTREACHED*/
}
Commit	Line	Data
8318d219	1	#ifndef lint
60de5df9	2	static char sccsid[] = "@(#)parser4.c 3.4 %G%";
8318d219 EW	3	#endif
8318d219 EW	4
60de5df9 EW	5	/*
	6	* Copyright (c) 1983 Regents of the University of California,
	7	* All rights reserved. Redistribution permitted subject to
	8	* the terms of the Berkeley Software License Agreement.
	9	*/
	10
8318d219 EW	11	#include "parser.h"
	12
	13	/*
	14	* \| 3
	15	* ^ 4
	16	* & 5
	17	* == != 6
	18	* < <= > >= 7
	19	* << >> 8
	20	* + - 9
	21	* * / % 10
	22	*/
	23	p_expr3_10(level, v, flag)
	24	register struct value *v;
	25	char flag;
	26	{
0180c2d9	27	struct value l, r;
8318d219 EW	28	int op;
	29	char *opname;
	30
0180c2d9 EW	31	if ((level == 10 ? p_expr11(v, flag)
	32	: p_expr3_10(level + 1, v, flag)) < 0)
	33	return -1;
8318d219 EW	34	for (;;) {
	35	switch (level) {
	36	case 3:
	37	if (token != T_OR)
	38	return 0;
	39	opname = "\|";
	40	break;
	41	case 4:
	42	if (token != T_XOR)
	43	return 0;
	44	opname = "^";
	45	break;
	46	case 5:
	47	if (token != T_AND)
	48	return 0;
	49	opname = "&";
	50	break;
	51	case 6:
	52	if (token == T_EQ)
	53	opname = "==";
	54	else if (token == T_NE)
	55	opname = "!=";
	56	else
	57	return 0;
	58	break;
	59	case 7:
	60	switch (token) {
	61	case T_LT:
	62	opname = "<";
	63	break;
	64	case T_LE:
	65	opname = "<=";
	66	break;
	67	case T_GT:
	68	opname = ">";
	69	break;
	70	case T_GE:
	71	opname = ">=";
	72	break;
	73	default:
	74	return 0;
	75	}
	76	break;
	77	case 8:
	78	if (token == T_LS)
	79	opname = "<<";
	80	else if (token == T_RS)
	81	opname = ">>";
	82	else
	83	return 0;
	84	break;
	85	case 9:
	86	if (token == T_PLUS)
	87	opname = "+";
	88	else if (token == T_MINUS)
	89	opname = "-";
	90	else
	91	return 0;
	92	break;
	93	case 10:
	94	switch (token) {
	95	case T_MUL:
	96	opname = "*";
	97	break;
98	case T_DIV:
99	opname = "/";
100	break;
101	case T_MOD:
102	opname = "%";
103	break;
104	default:
105	return 0;
106	}
107	break;
108	}
0180c2d9 EW	109	l = *v;
0180c2d9 EW	110	if (l.v_type == V_ERR)
8318d219 EW	111	flag = 0;
	112
	113	op = token;
	114	(void) s_gettok();
0180c2d9 EW	115	if ((level == 10 ? p_expr11(&r, flag)
	116	: p_expr3_10(level + 1, &r, flag)) < 0) {
	117	p_synerror();
	118	val_free(l);
	119	return -1;
8318d219 EW	120	}
8318d219 EW	121
0180c2d9	122	if (r.v_type == V_ERR)
8318d219	123	flag = 0;
0180c2d9	124	else switch (op) {
8318d219 EW	125	case T_EQ:
	126	case T_NE:
	127	case T_LT:
	128	case T_LE:
	129	case T_GT:
	130	case T_GE:
0180c2d9 EW	131	case T_PLUS:
	132	if (l.v_type == V_STR) {
	133	if (r.v_type == V_NUM)
	134	if (p_convstr(&r) < 0)
	135	flag = 0;
	136	} else
	137	if (r.v_type == V_STR)
	138	if (p_convstr(&l) < 0)
	139	flag = 0;
	140	break;
	141	case T_LS:
	142	case T_RS:
	143	if (r.v_type == V_STR) {
	144	char *p = r.v_str;
	145	r.v_type = V_NUM;
	146	r.v_num = strlen(p);
	147	str_free(p);
8318d219 EW	148	}
8318d219 EW	149	break;
0180c2d9 EW	150	case T_OR:
	151	case T_XOR:
	152	case T_AND:
	153	case T_MINUS:
	154	case T_MUL:
	155	case T_DIV:
	156	case T_MOD:
8318d219	157	default:
0180c2d9 EW	158	if (l.v_type == V_STR \|\| r.v_type == V_STR) {
0180c2d9 EW	159	p_error("%s: Numeric operands required.",
8318d219 EW	160	opname);
	161	flag = 0;
	162	}
	163	}
8318d219	164	if (!flag) {
0180c2d9 EW	165	val_free(l);
0180c2d9 EW	166	val_free(r);
8318d219	167	v->v_type = V_ERR;
0180c2d9 EW	168	if (p_abort())
0180c2d9 EW	169	return -1;
8318d219 EW	170	continue;
	171	}
	172
0180c2d9 EW	173	v->v_type = V_NUM;
	174	switch (op) {
	175	case T_EQ:
	176	case T_NE:
	177	case T_LT:
	178	case T_LE:
	179	case T_GT:
	180	case T_GE:
	181	if (l.v_type == V_STR) {
	182	int tmp = strcmp(l.v_str, r.v_str);
	183	str_free(l.v_str);
	184	str_free(r.v_str);
	185	l.v_type = V_NUM;
	186	l.v_num = tmp;
	187	r.v_type = V_NUM;
	188	r.v_num = 0;
	189	}
	190	break;
	191	}
8318d219 EW	192	switch (op) {
8318d219 EW	193	case T_OR:
0180c2d9	194	v->v_num = l.v_num \| r.v_num;
8318d219 EW	195	break;
8318d219 EW	196	case T_XOR:
0180c2d9	197	v->v_num = l.v_num ^ r.v_num;
8318d219 EW	198	break;
8318d219 EW	199	case T_AND:
0180c2d9	200	v->v_num = l.v_num & r.v_num;
8318d219 EW	201	break;
8318d219 EW	202	case T_EQ:
0180c2d9	203	v->v_num = l.v_num == r.v_num;
8318d219 EW	204	break;
8318d219 EW	205	case T_NE:
0180c2d9	206	v->v_num = l.v_num != r.v_num;
8318d219 EW	207	break;
8318d219 EW	208	case T_LT:
0180c2d9	209	v->v_num = l.v_num < r.v_num;
8318d219 EW	210	break;
8318d219 EW	211	case T_LE:
0180c2d9	212	v->v_num = l.v_num <= r.v_num;
8318d219 EW	213	break;
8318d219 EW	214	case T_GT:
0180c2d9	215	v->v_num = l.v_num > r.v_num;
8318d219 EW	216	break;
8318d219 EW	217	case T_GE:
0180c2d9	218	v->v_num = l.v_num >= r.v_num;
8318d219 EW	219	break;
8318d219 EW	220	case T_LS:
0180c2d9 EW	221	if (l.v_type == V_STR) {
	222	int i;
	223	if ((i = strlen(l.v_str)) > r.v_num)
	224	i = r.v_num;
	225	v->v_str = str_ncpy(l.v_str, i);
	226	v->v_type = V_STR;
	227	} else
	228	v->v_num = l.v_num << r.v_num;
8318d219 EW	229	break;
8318d219 EW	230	case T_RS:
0180c2d9 EW	231	if (l.v_type == V_STR) {
	232	int i;
	233	if ((i = strlen(l.v_str)) > r.v_num)
	234	i -= r.v_num;
	235	else
	236	i = 0;
	237	v->v_str = str_cpy(l.v_str + i);
	238	v->v_type = V_STR;
	239	} else
	240	v->v_num = l.v_num >> r.v_num;
8318d219 EW	241	break;
8318d219 EW	242	case T_PLUS:
0180c2d9 EW	243	if (l.v_type == V_STR) {
	244	v->v_str = str_cat(l.v_str, r.v_str);
	245	v->v_type = V_STR;
	246	} else
	247	v->v_num = l.v_num + r.v_num;
8318d219 EW	248	break;
8318d219 EW	249	case T_MINUS:
0180c2d9	250	v->v_num = l.v_num - r.v_num;
8318d219 EW	251	break;
8318d219 EW	252	case T_MUL:
0180c2d9	253	v->v_num = l.v_num * r.v_num;
8318d219 EW	254	break;
8318d219 EW	255	case T_DIV:
0180c2d9	256	v->v_num = l.v_num / r.v_num;
8318d219 EW	257	break;
8318d219 EW	258	case T_MOD:
0180c2d9	259	v->v_num = l.v_num % r.v_num;
8318d219 EW	260	break;
8318d219 EW	261	}
0180c2d9 EW	262	val_free(l);
0180c2d9 EW	263	val_free(r);
8318d219 EW	264	}
	265	/NOTREACHED/
	266	}