341 	(void) defin(0, L"$end");
343 	(void) defin(0, L"error");
344 	(void) defin(1, L"$accept");
364 		case L';':
429 				case L',':
432 				case L';':
479 				case L',':
483 				case L';':
669 		if (t == L'|') {
733 		if (t == L'=') {
788 		while (t == L';')
913 	if (s[0] == L' ' && s[2] == 0) { /* single character literal */  in defin()
915 	} else if (s[0] == L' ' && s[1] == L'\\') { /* escape sequence */  in defin()
919 			case L'a':  in defin()
928 				val = L'\a';  in defin()
931 				val = L'\007';  in defin()
934 			case L'v': val = L'\v'; break;  in defin()
935 			case L'n': val = L'\n'; break;  in defin()
936 			case L'r': val = L'\r'; break;  in defin()
937 			case L'b': val = L'\b'; break;  in defin()
938 			case L't': val = L'\t'; break;  in defin()
939 			case L'f': val = L'\f'; break;  in defin()
940 			case L'\'': val = L'\''; break;  in defin()
941 			case L'"': val = L'"'; break;  in defin()
942 			case L'?': val = L'?'; break;  in defin()
943 			case L'\\': val = L'\\'; break;  in defin()
951 		} else if (s[2] <= L'7' && s[2] >= L'0') { /* \nnn sequence */  in defin()
953 			val = s[2] - L'0';  in defin()
955 				if (s[i] >= L'0' && s[i] <= L'7')  in defin()
956 					val = val * 8 + s[i] - L'0';  in defin()
991 		} else if (s[2] == L'x') { /* hexadecimal \xnnn sequence */  in defin()
1005 						tmpval = s[i] - L'0';  in defin()
1006 					else if (s[i] >= L'a')  in defin()
1007 						tmpval = s[i] - L'a' + 10;  in defin()
1009 						tmpval = s[i] - L'A' + 10;  in defin()
1065 		if (*cp == L' ')	/* literals */  in defout()
1074 			    iswdigit(c) || c == L'_')  in defout()
1112 		if (c == L'\n')  in gettok()
1116 	if (c == L'/') { /* skip comment */  in gettok()
1125 	case L'{':  in gettok()
1127 		return (L'=');  /* action ... */  in gettok()
1128 	case L'<':  /* get, and look up, a type name (union member name) */  in gettok()
1130 		while ((c = getwc(finput)) != L'>' &&  in gettok()
1131 		    c != EOF && c != L'\n') {  in gettok()
1136 		if (c != L'>')  in gettok()
1151 	case L'"':  in gettok()
1152 	case L'\'':  in gettok()
1154 		tokname[0] = L' ';  in gettok()
1158 			if (c == L'\n' || c == EOF)  in gettok()
1161 			if (c == L'\\') {  in gettok()
1163 				tokname[i] = L'\\';  in gettok()
1173 	case L'%':  in gettok()
1174 	case L'\\':  in gettok()
1178 		case L'0':	return (TERM);  in gettok()
1179 		case L'<':	return (LEFT);  in gettok()
1180 		case L'2':	return (BINARY);  in gettok()
1181 		case L'>':	return (RIGHT);  in gettok()
1182 		case L'%':  in gettok()
1183 		case L'\\':	return (MARK);  in gettok()
1184 		case L'=':	return (PREC);  in gettok()
1185 		case L'{':	return (LCURLY);  in gettok()
1192 			numbval = c - L'0';  in gettok()
1193 			base = (c == L'0') ? 8 : 10;  in gettok()
1197 				numbval = numbval*base + c - L'0';  in gettok()
1202 		    c == L'_' || c == L'.' ||  in gettok()
1203 		    c == L'$') {  in gettok()
1206 			    iswdigit(c) || c == L'_' ||  in gettok()
1207 			    c == L'.' || c == L'$') {  in gettok()
1225 		if (!wscmp(tokname, L"term"))  in gettok()
1227 		if (!wscmp(tokname, L"token"))  in gettok()
1229 		if (!wscmp(tokname, L"left"))  in gettok()
1231 		if (!wscmp(tokname, L"nonassoc"))  in gettok()
1233 		if (!wscmp(tokname, L"binary"))  in gettok()
1235 		if (!wscmp(tokname, L"right"))  in gettok()
1237 		if (!wscmp(tokname, L"prec"))  in gettok()
1239 		if (!wscmp(tokname, L"start"))  in gettok()
1241 		if (!wscmp(tokname, L"type"))  in gettok()
1243 		if (!wscmp(tokname, L"union"))  in gettok()
1257 	while (iswspace(c) || c == L'/') {  in gettok()
1258 		if (c == L'\n') {  in gettok()
1260 		} else if (c == L'/') { /* look for comments */  in gettok()
1265 	if (c == L':')  in gettok()
1347 		case L'\n':  in cpyunion()
1351 		case L'{':  in cpyunion()
1355 		case L'}':  in cpyunion()
1375 	if (c == L'\n') {  in cpycode()
1382 		if (c == L'\\') {  in cpycode()
1383 			if ((c = getwc(finput)) == L'}')  in cpycode()
1386 				(void) putwc(L'\\', ftable);  in cpycode()
1387 		} else if (c == L'%') {  in cpycode()
1388 			if ((c = getwc(finput)) == L'}')  in cpycode()
1391 				(void) putwc(L'%', ftable);  in cpycode()
1394 		if (c == L'\n')  in cpycode()
1415 	if (getwc(finput) != L'*')  in skipcom()
1420 		while (c == L'*') {  in skipcom()
1421 			if ((c = getwc(finput)) == L'/')  in skipcom()
1424 		if (c == L'\n')  in skipcom()
1457 	case L';':  in cpyact()
1463 	case L'{':  in cpyact()
1466 	case L'$':  in cpyact()
1470 		while ((c = getwc(finput)) == L' ' || c == L'\t')  in cpyact()
1472 		if (c == L'<') { /* type description */  in cpyact()
1485 		if (c == L'$') {  in cpyact()
1519 			while ((c = getwc(finput)) == L' ' ||  in cpyact()
1520 			    c == L'\t')  in cpyact()
1522 			if (c == L'#') {  in cpyact()
1523 				while ((c = getwc(finput)) == L' ' ||  in cpyact()
1524 				    c == L'\t')  in cpyact()
1529 						m = m*10+c-L'0';  in cpyact()
1588 				j = j*10 + c - L'0';  in cpyact()
1620 		(void) putwc(L'$', faction);  in cpyact()
1622 			(void) putwc(L'-', faction);  in cpyact()
1624 	case L'}':  in cpyact()
1629 	case L'/':	/* look for comments */  in cpyact()
1632 		if (c != L'*')  in cpyact()
1638 			while (c == L'*') {  in cpyact()
1640 				if ((c = getwc(finput)) == L'/')  in cpyact()
1644 			if (c == L'\n')  in cpyact()
1650 	case L'\'':	/* character constant */  in cpyact()
1651 	case L'"':	/* character string */  in cpyact()
1655 			if (c == L'\\') {  in cpyact()
1658 				if (c == L'\n')  in cpyact()
1662 			else if (c == L'\n')  in cpyact()
1685 	case L'\n':  in cpyact()
1705 	else if (iswalnum(c) || c == L'_') {  in cpyact()
1776 	*loc++ = L' ';
1777 	if (*s == L' ') /* special quoted symbol */
1779 		*loc++ = L'\'';	/* add first quote */
1786 	if (*s == L' ')
1787 		*loc++ = L'\'';
1798 		rhs = L" /* empty */";  in lrprnt()
1807 			if (rhstext[idx1] == L'"') {  in lrprnt()
1832 					if (rhstext[idx2] == L'"') {  in lrprnt()
1845 							*p++ = L'\\';  in lrprnt()