Source for file oops.php
Documentation is available at oops.php
/* Driver template for the LEMON parser generator.
** The author disclaims copyright to this source code.
/** The following structure represents a single element of the
* parser's stack. Information stored includes:
* + The state number for the parser at this level of the stack.
* + The value of the token stored at this level of the stack.
* (In other words, the "major" token.)
* + The semantic value stored at this level of the stack. This is
* the information used by the action routines in the grammar.
* It is sometimes called the "minor" token.
public $stateno; /* The state-number */
public $major; /* The major token value. This is the code
** number for the token at this stack level */
public $minor; /* The user-supplied minor token value. This
** is the value of the token */
* The state of the parser is completely contained in an instance of
* the following structure
/* First off, code is include which follows the "include" declaration
/* Next is all token values, in a form suitable for use by makeheaders.
** This section will be null unless lemon is run with the -m switch.
** These constants (all generated automatically by the parser generator)
** specify the various kinds of tokens (terminals) that the parser
** Each symbol here is a terminal symbol in the grammar.
const T_CONSTANT_ENCAPSED_STRING = 3;
const YY_ACCEPT_ACTION = 4;
const YY_ERROR_ACTION = 3;
/* Next are that tables used to determine what action to take based on the
** current state and lookahead token. These tables are used to implement
** functions that take a state number and lookahead value and return an
** Suppose the action integer is N. Then the action is determined as
** 0 <= N < YYNSTATE Shift N. That is, push the lookahead
** token onto the stack and goto state N.
** YYNSTATE <= N < YYNSTATE+YYNRULE Reduce by rule N-YYNSTATE.
** N == YYNSTATE+YYNRULE A syntax error has occurred.
** N == YYNSTATE+YYNRULE+1 The parser accepts its input.
** N == YYNSTATE+YYNRULE+2 No such action. Denotes unused
** slots in the yy_action[] table.
** The action table is constructed as a single large table named yy_action[].
** Given state S and lookahead X, the action is computed as
** yy_action[ yy_shift_ofst[S] + X ]
** If the index value yy_shift_ofst[S]+X is out of range or if the value
** yy_lookahead[yy_shift_ofst[S]+X] is not equal to X or if yy_shift_ofst[S]
** is equal to YY_SHIFT_USE_DFLT, it means that the action is not in the table
** and that yy_default[S] should be used instead.
** The formula above is for computing the action when the lookahead is
** a terminal symbol. If the lookahead is a non-terminal (as occurs after
** a reduce action) then the yy_reduce_ofst[] array is used in place of
** the yy_shift_ofst[] array and YY_REDUCE_USE_DFLT is used in place of
** The following are the tables generated in this section:
** yy_action[] A single table containing all actions.
** yy_lookahead[] A table containing the lookahead for each entry in
** yy_action. Used to detect hash collisions.
** yy_shift_ofst[] For each state, the offset into yy_action for
** yy_reduce_ofst[] For each state, the offset into yy_action for
** shifting non-terminals after a reduce.
** yy_default[] Default action for each state.
static public $yy_action = array (
/* 0 */ 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 4 ,
static public $yy_lookahead = array (
/* 0 */ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 10 ,
const YY_SHIFT_USE_DFLT = -2;
static public $yy_shift_ofst = array (
const YY_REDUCE_USE_DFLT = -3;
static public $yy_reduce_ofst = array (
static public $yy_default = array (
/* The next thing included is series of defines which control
** various aspects of the generated parser.
** YYCODETYPE is the data type used for storing terminal
** and nonterminal numbers. "unsigned char" is
** used if there are fewer than 250 terminals
** and nonterminals. "int" is used otherwise.
** YYNOCODE is a number of type YYCODETYPE which corresponds
** to no legal terminal or nonterminal number. This
** number is used to fill in empty slots of the hash
** YYFALLBACK If defined, this indicates that one or more tokens
** have fall-back values which should be used if the
** original value of the token will not parse.
** YYACTIONTYPE is the data type used for storing terminal
** and nonterminal numbers. "unsigned char" is
** used if there are fewer than 250 rules and
** states combined. "int" is used otherwise.
** ParseTOKENTYPE is the data type used for minor tokens given
** directly to the parser from the tokenizer.
** YYMINORTYPE is the data type used for all minor tokens.
** This is typically a union of many types, one of
** which is ParseTOKENTYPE. The entry in the union
** for base tokens is called "yy0".
** YYSTACKDEPTH is the maximum depth of the parser's stack.
** ParseARG_DECL A global declaration for the %extra_argument
** YYNSTATE the combined number of states.
** YYNRULE the number of rules in the grammar
** YYERRORSYMBOL is the code number of the error symbol. If not
** defined, then do no error processing.
const YYSTACKDEPTH = 100;
const ParseARG_DECL = '0';
const YYERRSYMDT = 'yy0';
/** The next table maps tokens into fallback tokens. If a construct
* appears in the grammer, then ID becomes a fallback token for X, Y,
* and Z. Whenever one of the tokens X, Y, or Z is input to the parser
* but it does not parse, the type of the token is changed to ID and
* the parse is retried before an error is thrown.
static public $yyFallback = array (
* Turn parser tracing on by giving a stream to which to write the trace
* and a prompt to preface each trace message. Tracing is turned off
* by making either argument NULL
* - A stream resource to which trace output should be written.
* If NULL, then tracing is turned off.
* - A prefix string written at the beginning of every
* line of trace output. If NULL, then tracing is
static function Trace($TraceFILE, $zTracePrompt)
} elseif (!$zTracePrompt) {
self ::$yyTraceFILE = $TraceFILE;
self ::$yyTracePrompt = $zTracePrompt;
static public $yyTraceFILE;
static public $yyTracePrompt;
public $yyidx; /* Index of top element in stack */
public $yyerrcnt; /* Shifts left before out of the error */
//public $???????; /* A place to hold %extra_argument - dynamically added */
public $yystack = array (); /* The parser's stack */
* For tracing shifts, the names of all terminals and nonterminals
* are required. The following table supplies these names
static public $yyTokenName = array (
'$', 'T_LNUMBER', 'T_DNUMBER', 'T_CONSTANT_ENCAPSED_STRING',
'T_LINE', 'T_FILE', 'T_CLASS_C', 'T_METHOD_C',
'T_FUNC_C', 'error', 'common_scalar',
* For tracing reduce actions, the names of all rules are required.
static public $yyRuleName = array (
/* 0 */ "common_scalar ::= T_LNUMBER|T_DNUMBER|T_CONSTANT_ENCAPSED_STRING|T_LINE|T_FILE|T_CLASS_C|T_METHOD_C|T_FUNC_C",
* This function returns the symbolic name associated with a token
function ParseTokenName ($tokenType)
if ($tokenType > 0 && $tokenType < count (self ::$yyTokenName)) {
return self ::$yyTokenName[$tokenType];
/* The following function deletes the value associated with a
** symbol. The symbol can be either a terminal or nonterminal.
** "yymajor" is the symbol code, and "yypminor" is a pointer to
/* Here is inserted the actions which take place when a
** terminal or non-terminal is destroyed. This can happen
** when the symbol is popped from the stack during a
** reduce or during error processing or when a parser is
** being destroyed before it is finished parsing.
** Note: during a reduce, the only symbols destroyed are those
** which appear on the RHS of the rule, but which are not used
default: break; /* If no destructor action specified: do nothing */
* Pop the parser's stack once.
* If there is a destructor routine associated with the token which
* is popped from the stack, then call it.
* Return the major token number for the symbol popped.
if (!count ($this->yystack)) {
// ParseyystackEntry class
$yytos = $this->yystack[$this->yyidx];
if (self ::$yyTraceFILE && $this->yyidx >= 0 ) {
fwrite (self ::$yyTraceFILE,
self ::$yyTracePrompt . 'Popping ' . self ::$yyTokenName[$yytos->major ] .
$yymajor = $yytos->major;
self ::yy_destructor ($yymajor, $yytos->minor );
* Deallocate and destroy a parser. Destructors are all called for
* all stack elements before shutting the parser down.
while ($this->yyidx >= 0 ) {
* Find the appropriate action for a parser given the terminal
* look-ahead token iLookAhead.
* If the look-ahead token is YYNOCODE, then check to see if the action is
* independent of the look-ahead. If it is, return the action, otherwise
* @param int The look-ahead token
$stateno = $this->yystack[$this->yyidx]->stateno;
/* if ($this->yyidx < 0) return self::YY_NO_ACTION; */
if (!isset (self ::$yy_shift_ofst[$stateno])) {
return self ::$yy_default[$stateno];
$i = self ::$yy_shift_ofst[$stateno];
if ($i === self ::YY_SHIFT_USE_DFLT ) {
return self ::$yy_default[$stateno];
if ($iLookAhead == self ::YYNOCODE ) {
return self ::YY_NO_ACTION;
if ($i < 0 || $i >= self ::YY_SZ_ACTTAB ||
self ::$yy_lookahead[$i] != $iLookAhead) {
if (count (self ::$yyFallback) && $iLookAhead < count (self ::$yyFallback)
&& ($iFallback = self ::$yyFallback[$iLookAhead]) != 0 ) {
if (self ::$yyTraceFILE) {
fwrite (self ::$yyTraceFILE, self ::$yyTracePrompt . "FALLBACK " .
self ::$yyTokenName[$iLookAhead] . " => " .
self ::$yyTokenName[$iFallback] . "\n");
return self ::$yy_default[$stateno];
return self ::$yy_action[$i];
* Find the appropriate action for a parser given the non-terminal
* look-ahead token iLookAhead.
* If the look-ahead token is YYNOCODE, then check to see if the action is
* independent of the look-ahead. If it is, return the action, otherwise
* @param int Current state number
* @param int The look-ahead token
/* $stateno = $this->yystack[$this->yyidx]->stateno; */
if (!isset (self ::$yy_reduce_ofst[$stateno])) {
return self ::$yy_default[$stateno];
$i = self ::$yy_reduce_ofst[$stateno];
if ($i == self ::YY_REDUCE_USE_DFLT ) {
return self ::$yy_default[$stateno];
if ($iLookAhead == self ::YYNOCODE ) {
return self ::YY_NO_ACTION;
if ($i < 0 || $i >= self ::YY_SZ_ACTTAB ||
self ::$yy_lookahead[$i] != $iLookAhead) {
return self ::$yy_default[$stateno];
return self ::$yy_action[$i];
* Perform a shift action.
* @param int The new state to shift in
* @param int The major token to shift in
* @param mixed the minor token to shift in
function yy_shift($yyNewState, $yyMajor, $yypMinor, $extraargument = null )
if ($this->yyidx >= self ::YYSTACKDEPTH ) {
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sStack Overflow!\n", self ::$yyTracePrompt);
while ($this->yyidx >= 0 ) {
/* Here code is inserted which will execute if the parser
** stack ever overflows */
$yytos = new ParseyyStackEntry;
$yytos->stateno = $yyNewState;
$yytos->major = $yyMajor;
$yytos->minor = $yypMinor;
if (self ::$yyTraceFILE && $this->yyidx > 0 ) {
fprintf (self ::$yyTraceFILE, "%sShift %d\n", self ::$yyTracePrompt,
fprintf (self ::$yyTraceFILE, "%sStack:", self ::$yyTracePrompt);
for($i = 1; $i <= $this->yyidx; $i++ ) {
fprintf (self ::$yyTraceFILE, " %s",
self ::$yyTokenName[$this->yystack[$i]->major ]);
fwrite (self ::$yyTraceFILE,"\n");
* The following table contains information about every rule that
* is used during the reduce.
* YYCODETYPE lhs; Symbol on the left-hand side of the rule
* unsigned char nrhs; Number of right-hand side symbols in the rule
static public $yyRuleInfo = array (
array ( 'lhs' => 10 , 'rhs' => 1 ),
* The following table contains a mapping of reduce action to method name
* that handles the reduction.
* If a rule is not set, it has no handler.
static public $yyReduceMap = array (
/* Beginning here are the reduction cases. A typical example
** function yy_r0($yymsp)
** #line <lineno> <grammarfile>
** { ... } // User supplied code
** #line <lineno> <thisfile>
#line 9 "/development/lemon/oops.y"
function yy_r0 (){$this->_retvalue = $this->yystack[$this->yyidx + 0 ]->minor; yy_destructor (,&yymsp [0 ].minor );
* placeholder for the left hand side in a reduce operation.
* For a parser with a rule like this:
* rule(A) ::= B. { A = 1; }
* The parser will translate to something like:
* function yy_r0(){$this->_retvalue = 1;}
* Perform a reduce action and the shift that must immediately
* A ::= B blah C. { dosomething(); }
* This function will first call the action, if any, ("dosomething();" in our
* example), and then it will pop three states from the stack,
* one for each entry on the right-hand side of the expression
* (B, blah, and C in our example rule), and then push the result of the action
* back on to the stack with the resulting state reduced to (as described in the .out
* @param int Number of the rule by which to reduce
function yy_reduce($yyruleno, $extraargument = null )
//int $yygoto; /* The next state */
//int $yyact; /* The next action */
//mixed $yygotominor; /* The LHS of the rule reduced */
//ParseyyStackEntry $yymsp; /* The top of the parser's stack */
//int $yysize; /* Amount to pop the stack */
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
$yymsp = $this->yystack[$this->yyidx];
if (self ::$yyTraceFILE && $yyruleno >= 0
&& $yyruleno < count (self ::$yyRuleName)) {
fprintf (self ::$yyTraceFILE, "%sReduce [%s].\n", self ::$yyTracePrompt,
self ::$yyRuleName[$yyruleno]);
$yy_lefthand_side = null;
$this->{'yy_r' . self ::$yyReduceMap[$yyruleno]}();
$yy_lefthand_side = $this->_retvalue;
$yygoto = self ::$yyRuleInfo[$yyruleno]['lhs'];
$yysize = self ::$yyRuleInfo[$yyruleno]['rhs'];
for($i = $yysize; $i; $i-- ) {
// pop all of the right-hand side parameters
array_pop ($this->yystack );
$yyact = $this->yy_find_reduce_action ($this->yystack [$this->yyidx ]->stateno , $yygoto);
if ($yyact < self ::YYNSTATE ) {
/* If we are not debugging and the reduce action popped at least
** one element off the stack, then we can push the new element back
** onto the stack here, and skip the stack overflow test in yy_shift().
** That gives a significant speed improvement. */
if (!self ::$yyTraceFILE && $yysize) {
$x = new ParseyyStackEntry;
$x->minor = $yy_lefthand_side;
$this->yystack [$this->yyidx ] = $x;
$this->yy_shift($yyact, $yygoto, $yy_lefthand_side);
} elseif ($yyact == self ::YYNSTATE + self ::YYNRULE + 1 ) {
* The following code executes when the parse fails
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sFail!\n", self ::$yyTracePrompt);
while ($this->yyidx >= 0 ) {
/* Here code is inserted which will be executed whenever the
* The following code executes when a syntax error first occurs.
* @param int The major type of the error token
* @param mixed The minor type of the error token
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
** The following is executed when the parser accepts
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sAccept!\n", self ::$yyTracePrompt);
while ($this->yyidx >= 0 ) {
/* Here code is inserted which will be executed whenever the
* The main parser program.
* The first argument is a pointer to a structure obtained from
* "ParseAlloc" which describes the current state of the parser.
* The second argument is the major token number. The third is
* the minor token. The fourth optional argument is whatever the
* user wants (and specified in the grammar) and is available for
* use by the action routines.
* - A pointer to the parser (an opaque structure.)
* - The major token number.
* - The minor token number (token value).
* - An option argument of a grammar-specified type.
* @param int the token number
* @param mixed the token value
* @param mixed any extra arguments that should be passed to handlers
function doParse($yymajor, $yytokenvalue, $extraargument = null )
if (self ::ParseARG_DECL && $extraargument !== null ) {
$this->$ {self ::ParseARG_PDECL } = $extraargument;
// YYMINORTYPE yyminorunion;
// int yyact; /* The parser action. */
// int yyendofinput; /* True if we are at the end of input */
$yyerrorhit = 0; /* True if yymajor has invoked an error */
/* (re)initialize the parser, if necessary */
if ($this->yyidx === null || $this->yyidx < 0 ) {
/* if ($yymajor == 0) return; // not sure why this was here... */
$x = new ParseyyStackEntry;
$this->yystack = array ();
$yyendofinput = ($yymajor==0 );
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sInput %s\n",
self ::$yyTracePrompt, self ::$yyTokenName[$yymajor]);
$yyact = $this->yy_find_shift_action ($yymajor);
if ($yyact < self ::YYNSTATE ) {
$this->yy_shift($yyact, $yymajor, $yytokenvalue);
if ($yyendofinput && $this->yyidx >= 0 ) {
$yymajor = self ::YYNOCODE;
} elseif ($yyact < self ::YYNSTATE + self ::YYNRULE ) {
} elseif ($yyact == self ::YY_ERROR_ACTION ) {
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sSyntax Error!\n",
if (self ::YYERRORSYMBOL ) {
/* A syntax error has occurred.
** The response to an error depends upon whether or not the
** grammar defines an error token "ERROR".
** This is what we do if the grammar does define ERROR:
** * Call the %syntax_error function.
** * Begin popping the stack until we enter a state where
** it is legal to shift the error symbol, then shift
** * Set the error count to three.
** * Begin accepting and shifting new tokens. No new error
** processing will occur until three tokens have been
if ($this->yyerrcnt < 0 ) {
$yymx = $this->yystack [$this->yyidx ]->major;
if ($yymx == self ::YYERRORSYMBOL || $yyerrorhit ){
if (self ::$yyTraceFILE) {
fprintf (self ::$yyTraceFILE, "%sDiscard input token %s\n",
self ::$yyTracePrompt, self ::$yyTokenName[$yymajor]);
$this->yy_destructor ($yymajor, $yytokenvalue);
$yymajor = self ::YYNOCODE;
while ($this->yyidx >= 0 &&
$yymx != self ::YYERRORSYMBOL &&
if ($this->yyidx < 0 || $yymajor==0 ) {
$yymajor = self ::YYNOCODE;
} elseif ($yymx != self ::YYERRORSYMBOL ) {
$this->yy_shift($yyact, self ::YYERRORSYMBOL , $u2);
/* YYERRORSYMBOL is not defined */
/* This is what we do if the grammar does not define ERROR:
** * Report an error message, and throw away the input token.
** * If the input token is $, then fail the parse.
** As before, subsequent error messages are suppressed until
** three input tokens have been successfully shifted.
if ($this->yyerrcnt <= 0 ) {
$yymajor = self ::YYNOCODE;
$yymajor = self ::YYNOCODE;
} while ($yymajor != self ::YYNOCODE && $this->yyidx >= 0 );
Documentation generated on Mon, 11 Mar 2019 15:41:00 -0400 by phpDocumentor 1.4.4. PEAR Logo Copyright © PHP Group 2004.
|