#!/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 = (
"0CONSTANT",	'shift 2',
"0bool",	'goto 4',
"0(",	'shift 3',
"0ATOM",	'shift 1',
"1\$default",	'reduce 5',
"2\$default",	'reduce 6',
"3ATOM",	'shift 1',
"3(",	'shift 3',
"3CONSTANT",	'shift 2',
"3bool",	'goto 5',
"4End_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',
"6ATOM",	'shift 1',
"6CONSTANT",	'shift 2',
"6bool",	'goto 10',
"6(",	'shift 3',
"7ATOM",	'shift 1',
"7(",	'shift 3',
"7CONSTANT",	'shift 2',
"7bool",	'goto 11',
"8ATOM",	'shift 1',
"8CONSTANT",	'shift 2',
"8bool",	'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',
"13End_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',
);