xref: /titanic_44/usr/src/cmd/sgs/m4/common/m4y_xpg4.y (revision 9fb1159054bb89619213a7b2be87ea3bca25fcce)

%{
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
%}

/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1988 AT&T	*/
/*	  All Rights Reserved  	*/

%{
#pragma ident	"%Z%%M%	%I%	%E% SMI"
extern long	evalval;
#define	YYSTYPE	long
%}

%term DIGITS
%left OROR
%left ANDAND
%left '|'
%left '^'
%left '&'
%nonassoc EQ NE
%nonassoc LE GE LT GT
%left LSHIFT RSHIFT
%left '+' '-'
%left '*' '/' '%'
%right POWER
%right '!' '~' UMINUS
%%

s	: e	= { evalval = $1; }
	|	= { evalval = 0; }
	;

e	: e OROR e	= { $$ = ($1 != 0 || $3 != 0) ? 1 : 0; }
	| e ANDAND e	= { $$ = ($1 != 0 && $3 != 0) ? 1 : 0; }
	| '!' e		= { $$ = $2 == 0; }
	| '~' e		= { $$ = ~$2; }
	| e EQ e	= { $$ = $1 == $3; }
	| e NE e	= { $$ = $1 != $3; }
	| e GT e	= { $$ = $1 > $3; }
	| e GE e	= { $$ = $1 >= $3; }
	| e LT e	= { $$ = $1 < $3; }
	| e LE e	= { $$ = $1 <= $3; }
	| e LSHIFT e	= { $$ = $1 << $3; }
	| e RSHIFT e	= { $$ = $1 >> $3; }
	| e '|' e	= { $$ = ($1 | $3); }
	| e '&' e	= { $$ = ($1 & $3); }
	| e '^' e	= { $$ = ($1 ^ $3); }
	| e '+' e	= { $$ = ($1 + $3); }
	| e '-' e	= { $$ = ($1 - $3); }
	| e '*' e	= { $$ = ($1 * $3); }
	| e '/' e	= { $$ = ($1 / $3); }
	| e '%' e	= { $$ = ($1 % $3); }
	| '(' e ')'	= { $$ = ($2); }
	| e POWER e	= { for ($$ = 1; $3-- > 0; $$ *= $1); }
	| '-' e %prec UMINUS	= { $$ = $2-1; $$ = -$2; }
	| '+' e %prec UMINUS	= { $$ = $2-1; $$ = $2; }
	| DIGITS	= { $$ = evalval; }
	;

%%

#include "m4.h"
extern wchar_t *pe;

static int peek(char c, int r1, int r2);
static int peek3(char c1, int rc1, char c2, int rc2, int rc3);

int
yylex(void)
{
	while (*pe == ' ' || *pe == '\t' || *pe == '\n')
		pe++;
	switch (*pe) {
	case '\0':
	case '+':
	case '-':
	case '/':
	case '%':
	case '^':
	case '~':
	case '(':
	case ')':
		return (*pe++);
	case '*':
		return (peek('*', POWER, '*'));
	case '>':
		return (peek3('=', GE, '>', RSHIFT, GT));
	case '<':
		return (peek3('=', LE, '<', LSHIFT, LT));
	case '=':
		return (peek('=', EQ, EQ));
	case '|':
		return (peek('|', OROR, '|'));
	case '&':
		return (peek('&', ANDAND, '&'));
	case '!':
		return (peek('=', NE, '!'));
	default: {
		int	base;

		evalval = 0;

		if (*pe == '0') {
			if (*++pe == 'x' || *pe == 'X') {
				base = 16;
				++pe;
			} else
				base = 8;
		} else
			base = 10;

		for (;;) {
			int	c, dig;

			c = *pe;

			if (is_digit(c))
				dig = c - '0';
			else if (c >= 'a' && c <= 'f')
				dig = c - 'a' + 10;
			else if (c >= 'A' && c <= 'F')
				dig = c - 'A' + 10;
			else
				break;

			evalval = evalval*base + dig;
			++pe;
		}
		return (DIGITS);
	}
	}
}

static int
peek(char c, int r1, int r2)
{
	if (*++pe != c)
		return (r2);
	++pe;
	return (r1);
}

static int
peek3(char c1, int rc1, char c2, int rc2, int rc3)
{
	++pe;
	if (*pe == c1) {
		++pe;
		return (rc1);
	}
	if (*pe == c2) {
		++pe;
		return (rc2);
	}
	return (rc3);
}

/*ARGSUSED*/
static void
yyerror(YYCONST char *msg)
{
}