/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Equality comparison.
/// </summary>
public virtual bool equals(production_part other)
{
if (other == null)
return false;
/* compare the labels */
if (label() != null)
return label().Equals(other.label());
else
return other.label() == null;
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Equality comparison.
/// </summary>
public virtual bool equals(production_part other)
{
if (other == null)
{
return(false);
}
/* compare the labels */
if (label() != null)
{
return(label().Equals(other.label()));
}
else
{
return(other.label() == null);
}
}
/*-----------------------------------------------------------*/
/*--- Constructor(s) ----------------------------------------*/
/*-----------------------------------------------------------*/
/// <summary>Full constructor. This constructor accepts a LHS non terminal,
/// an array of RHS parts (including terminals, non terminals, and
/// actions), and a string for a final reduce action. It does several
/// manipulations in the process of creating a production object.
/// After some validity checking it translates labels that appear in
/// actions into code for accessing objects on the runtime parse stack.
/// It them merges adjacent actions if they appear and moves any trailing
/// action into the final reduce actions string. Next it removes any
/// embedded actions by factoring them out with new action productions.
/// Finally it assigns a unique index to the production.<p>
/// *
/// Factoring out of actions is accomplished by creating new "hidden"
/// non terminals. For example if the production was originally: <pre>
/// A ::= B {action} C D
/// </pre>
/// then it is factored into two productions:<pre>
/// A ::= B X C D
/// X ::= {action}
/// </pre>
/// (where X is a unique new non terminal). This has the effect of placing
/// all actions at the end where they can be handled as part of a reduce by
/// the parser.
/// </summary>
public production(non_terminal lhs_sym, production_part[] rhs_parts, int rhs_l, string action_str)
{
InitBlock();
int i;
action_part tail_action;
System.String declare_str;
int rightlen = rhs_l;
/* remember the length */
if (rhs_l >= 0)
{
_rhs_length = rhs_l;
}
else if (rhs_parts != null)
{
_rhs_length = rhs_parts.Length;
}
else
{
_rhs_length = 0;
}
/* make sure we have a valid left-hand-side */
if (lhs_sym == null)
{
throw new internal_error("Attempt to construct a production with a null LHS");
}
/* I'm not translating labels anymore, I'm adding code to declare
* labels as valid variables. This way, the users code string is
* untouched
* 6/96 frankf */
/* check if the last part of the right hand side is an action. If
* it is, it won't be on the stack, so we don't want to count it
* in the rightlen. Then when we search down the stack for a
* Symbol, we don't try to search past action */
if (rhs_l > 0)
{
if (rhs_parts[rhs_l - 1].is_action())
{
rightlen = rhs_l - 1;
}
else
{
rightlen = rhs_l;
}
}
/* get the generated declaration code for the necessary labels. */
declare_str = declare_labels(rhs_parts, rightlen, action_str);
if (action_str == null)
{
action_str = declare_str;
}
else
{
action_str = declare_str + action_str;
}
/* count use of lhs */
lhs_sym.note_use();
/* create the part for left-hand-side */
_lhs = new symbol_part(lhs_sym);
/* merge adjacent actions (if any) */
_rhs_length = merge_adjacent_actions(rhs_parts, _rhs_length);
/* strip off any trailing action */
tail_action = strip_trailing_action(rhs_parts, _rhs_length);
if (tail_action != null)
{
_rhs_length--;
}
/* Why does this run through the right hand side happen
* over and over? here a quick combination of two
* prior runs plus one I wanted of my own
* frankf 6/25/96 */
/* allocate and copy over the right-hand-side */
/* count use of each rhs symbol */
_rhs = new production_part[_rhs_length];
for (i = 0; i < _rhs_length; i++)
{
_rhs[i] = rhs_parts[i];
if (!_rhs[i].is_action())
{
((symbol_part)_rhs[i]).the_symbol().note_use();
if (((symbol_part)_rhs[i]).the_symbol() is terminal)
{
_rhs_prec = ((terminal)((symbol_part)_rhs[i]).the_symbol()).precedence_num();
_rhs_assoc = ((terminal)((symbol_part)_rhs[i]).the_symbol()).precedence_side();
}
}
}
/*now action string is really declaration string, so put it in front!
* 6/14/96 frankf */
if (action_str == null)
{
action_str = "";
}
if (tail_action != null && tail_action.code_string() != null)
{
action_str = action_str + "\t\t" + tail_action.code_string();
}
/* stash the action */
_action = new action_part(action_str);
/* rewrite production to remove any embedded actions */
remove_embedded_actions();
/* assign an index */
_index = next_index++;
/* put us in the global collection of productions */
SupportClass.PutElement(_all, _index, this);
/* put us in the production list of the lhs non terminal */
lhs_sym.add_production(this);
}
/// <summary>Constructor.
/// </summary>
/// <param name="base"> the production we are being factored out of.
/// </param>
/// <param name="lhs_sym"> the LHS symbol for this production.
/// </param>
/// <param name="rhs_parts"> array of production parts for the RHS.
/// </param>
/// <param name="rhs_len"> how much of the rhs_parts array is valid.
/// </param>
/// <param name="action_str">the trailing reduce action for this production.
///
/// </param>
public action_production(production base_Renamed, non_terminal lhs_sym, production_part[] rhs_parts, int rhs_len, string action_str)
: base(lhs_sym, rhs_parts, rhs_len, action_str)
{
_base_production = base_Renamed;
}
/// <summary>add a new right hand side part
/// </summary>
protected virtual void add_rhs_part(production_part part)
{
if (rhs_pos >= MAX_RHS)
throw new System.Exception("Internal Error: Productions limited to " + MAX_RHS + " symbols and actions");
rhs_parts[rhs_pos] = part;
rhs_pos++;
}
/// <summary>helper routine to clone a new production part adding a given label
/// </summary>
protected virtual production_part add_lab(production_part part, string lab)
{
/* if there is no label, or this is an action, just return the original */
if (lab == null || part.is_action())
return part;
/* otherwise build a new one with the given label attached */
return new symbol_part(((symbol_part) part).the_symbol(), lab);
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Helper routine to strip a trailing action off rhs and return it
/// </summary>
/// <param name="rhs_parts">array of RHS parts.
/// </param>
/// <param name="len"> how many of those are valid.
/// </param>
/// <returns> the removed action part.
///
/// </returns>
protected internal virtual action_part strip_trailing_action(production_part[] rhs_parts, int len)
{
action_part result;
/* bail out early if we have nothing to do */
if (rhs_parts == null || len == 0)
return null;
/* see if we have a trailing action */
if (rhs_parts[len - 1].is_action())
{
/* snip it out and return it */
result = (action_part) rhs_parts[len - 1];
rhs_parts[len - 1] = null;
return result;
}
else
return null;
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Helper routine to merge adjacent actions in a set of RHS parts
/// </summary>
/// <param name="rhs_parts">array of RHS parts.
/// </param>
/// <param name="len"> amount of that array that is valid.
/// </param>
/// <returns> remaining valid length.
///
/// </returns>
protected internal virtual int merge_adjacent_actions(production_part[] rhs_parts, int len)
{
int from_loc, to_loc, merge_cnt;
/* bail out early if we have no work to do */
if (rhs_parts == null || len == 0)
return 0;
merge_cnt = 0;
to_loc = - 1;
for (from_loc = 0; from_loc < len; from_loc++)
{
/* do we go in the current position or one further */
if (to_loc < 0 || !rhs_parts[to_loc].is_action() || !rhs_parts[from_loc].is_action())
{
/* next one */
to_loc++;
/* clear the way for it */
if (to_loc != from_loc)
rhs_parts[to_loc] = null;
}
/* if this is not trivial? */
if (to_loc != from_loc)
{
/* do we merge or copy? */
if (rhs_parts[to_loc] != null && rhs_parts[to_loc].is_action() && rhs_parts[from_loc].is_action())
{
/* merge */
rhs_parts[to_loc] = new action_part(((action_part) rhs_parts[to_loc]).code_string() + ((action_part) rhs_parts[from_loc]).code_string());
merge_cnt++;
}
else
{
/* copy */
rhs_parts[to_loc] = rhs_parts[from_loc];
}
}
}
/* return the used length */
return len - merge_cnt;
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Declare label names as valid variables within the action string
/// </summary>
/// <param name="rhs"> array of RHS parts.
/// </param>
/// <param name="rhs_len"> how much of rhs to consider valid.
/// </param>
/// <param name="final_action">the final action string of the production.
/// </param>
/// <param name="lhs_type"> the object type associated with the LHS symbol.
///
/// </param>
protected internal virtual string declare_labels(production_part[] rhs, int rhs_len, string final_action)
{
System.String declaration = "";
symbol_part part;
// action_part act_part;
int pos;
/* walk down the parts and extract the labels */
for (pos = 0; pos < rhs_len; pos++)
{
if (!rhs[pos].is_action())
{
part = (symbol_part) rhs[pos];
/* if it has a label, make declaration! */
if (part.label() != null)
{
declaration = declaration + make_declaration(part.label(), part.the_symbol().stack_type(), rhs_len - pos - 1);
}
}
}
return declaration;
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/* Constructor w/ no action string and contextual precedence
defined */
public production(non_terminal lhs_sym, production_part[] rhs_parts, int rhs_l, int prec_num, int prec_side)
: this(lhs_sym, rhs_parts, rhs_l, null)
{
InitBlock();
/* set the precedence */
set_precedence_num(prec_num);
set_precedence_side(prec_side);
}
/*. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .*/
/// <summary>Constructor with no action string.
/// </summary>
public production(non_terminal lhs_sym, production_part[] rhs_parts, int rhs_l)
: this(lhs_sym, rhs_parts, rhs_l, null)
{
InitBlock();
}
/*-----------------------------------------------------------*/
/*--- Constructor(s) ----------------------------------------*/
/*-----------------------------------------------------------*/
/// <summary>Full constructor. This constructor accepts a LHS non terminal,
/// an array of RHS parts (including terminals, non terminals, and
/// actions), and a string for a final reduce action. It does several
/// manipulations in the process of creating a production object.
/// After some validity checking it translates labels that appear in
/// actions into code for accessing objects on the runtime parse stack.
/// It them merges adjacent actions if they appear and moves any trailing
/// action into the final reduce actions string. Next it removes any
/// embedded actions by factoring them out with new action productions.
/// Finally it assigns a unique index to the production.<p>
/// *
/// Factoring out of actions is accomplished by creating new "hidden"
/// non terminals. For example if the production was originally: <pre>
/// A ::= B {action} C D
/// </pre>
/// then it is factored into two productions:<pre>
/// A ::= B X C D
/// X ::= {action}
/// </pre>
/// (where X is a unique new non terminal). This has the effect of placing
/// all actions at the end where they can be handled as part of a reduce by
/// the parser.
/// </summary>
public production(non_terminal lhs_sym, production_part[] rhs_parts, int rhs_l, string action_str)
{
InitBlock();
int i;
action_part tail_action;
System.String declare_str;
int rightlen = rhs_l;
/* remember the length */
if (rhs_l >= 0)
_rhs_length = rhs_l;
else if (rhs_parts != null)
_rhs_length = rhs_parts.Length;
else
_rhs_length = 0;
/* make sure we have a valid left-hand-side */
if (lhs_sym == null)
throw new internal_error("Attempt to construct a production with a null LHS");
/* I'm not translating labels anymore, I'm adding code to declare
labels as valid variables. This way, the users code string is
untouched
6/96 frankf */
/* check if the last part of the right hand side is an action. If
it is, it won't be on the stack, so we don't want to count it
in the rightlen. Then when we search down the stack for a
Symbol, we don't try to search past action */
if (rhs_l > 0)
{
if (rhs_parts[rhs_l - 1].is_action())
{
rightlen = rhs_l - 1;
}
else
{
rightlen = rhs_l;
}
}
/* get the generated declaration code for the necessary labels. */
declare_str = declare_labels(rhs_parts, rightlen, action_str);
if (action_str == null)
action_str = declare_str;
else
action_str = declare_str + action_str;
/* count use of lhs */
lhs_sym.note_use();
/* create the part for left-hand-side */
_lhs = new symbol_part(lhs_sym);
/* merge adjacent actions (if any) */
_rhs_length = merge_adjacent_actions(rhs_parts, _rhs_length);
/* strip off any trailing action */
tail_action = strip_trailing_action(rhs_parts, _rhs_length);
if (tail_action != null)
_rhs_length--;
/* Why does this run through the right hand side happen
over and over? here a quick combination of two
prior runs plus one I wanted of my own
frankf 6/25/96 */
/* allocate and copy over the right-hand-side */
/* count use of each rhs symbol */
_rhs = new production_part[_rhs_length];
for (i = 0; i < _rhs_length; i++)
{
_rhs[i] = rhs_parts[i];
if (!_rhs[i].is_action())
{
((symbol_part) _rhs[i]).the_symbol().note_use();
if (((symbol_part) _rhs[i]).the_symbol() is terminal)
{
_rhs_prec = ((terminal) ((symbol_part) _rhs[i]).the_symbol()).precedence_num();
_rhs_assoc = ((terminal) ((symbol_part) _rhs[i]).the_symbol()).precedence_side();
}
}
}
/*now action string is really declaration string, so put it in front!
6/14/96 frankf */
if (action_str == null)
action_str = "";
if (tail_action != null && tail_action.code_string() != null)
action_str = action_str + "\t\t" + tail_action.code_string();
/* stash the action */
_action = new action_part(action_str);
/* rewrite production to remove any embedded actions */
remove_embedded_actions();
/* assign an index */
_index = next_index++;
/* put us in the global collection of productions */
SupportClass.PutElement(_all, _index, this);
/* put us in the production list of the lhs non terminal */
lhs_sym.add_production(this);
}
