#!/usr/bin/perl
# parse language described in bool.output
# Perl source code automatically generated at Thu Apr 16 22:06:33 1998 by
# py v.0.1 25 Aug 1995
# Source code copyright 1995 M-J. Dominus (mjd@pobox.com)
#

require 'py-skel.pl';
require 'bool-rules.pl';

$; = "\034";
%act = (
"0CONSTANT",	'shift 2',
"0bool",	'goto 4',
"0(",	'shift 3',
"0ATOM",	'shift 1',
"1\$default",	'reduce 5',
"2\$default",	'reduce 6',
"3ATOM",	'shift 1',
"3(",	'shift 3',
"3CONSTANT",	'shift 2',
"3bool",	'goto 5',
"4End_of_Input",	'goto 13',
"4|",	'shift 6',
"4^",	'shift 7',
"4&",	'shift 8',
"5|",	'shift 6',
"5^",	'shift 7',
"5&",	'shift 8',
"5)",	'shift 9',
"6ATOM",	'shift 1',
"6CONSTANT",	'shift 2',
"6bool",	'goto 10',
"6(",	'shift 3',
"7ATOM",	'shift 1',
"7(",	'shift 3',
"7CONSTANT",	'shift 2',
"7bool",	'goto 11',
"8ATOM",	'shift 1',
"8CONSTANT",	'shift 2',
"8bool",	'goto 12',
"8(",	'shift 3',
"9\$default",	'reduce 1',
"10&",	'shift 8',
"10\$default",	'reduce 2',
"11&",	'shift 8',
"11\$default",	'reduce 3',
"12\$default",	'reduce 4',
"13End_of_Input",	'goto 14',
"14\$default",	'accept',
);

@length = (0, 3, 3, 3, 3, 1, 1, );

@rhs = ('', 'bool', 'bool', 'bool', 'bool', 'bool', 'bool', );

@rule = (
  '',
  'bool -> \'(\' bool \')\'',
  'bool -> bool \'|\' bool',
  'bool -> bool \'^\' bool',
  'bool -> bool \'&\' bool',
  'bool -> ATOM',
  'bool -> CONSTANT',
);

