/*
* Copyright 2014 Jeffrey Kegler
* This file is part of Marpa::R2. Marpa::R2 is free software: you can
* redistribute it and/or modify it under the terms of the GNU Lesser
* General Public License as published by the Free Software Foundation,
* either version 3 of the License, or (at your option) any later version.
*
* Marpa::R2 is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser
* General Public License along with Marpa::R2. If not, see
* http://www.gnu.org/licenses/.
*/
/*
* DO NOT EDIT DIRECTLY
* This file is written by the Marpa build process
* It is not intended to be modified directly
*/
/*1334:*/
#line 15882 "./marpa.w"
#include "config.h"
#ifndef MARPA_DEBUG
#define MARPA_DEBUG 0
#endif
#include "marpa.h"
#include "marpa_ami.h"
#define PRIVATE_NOT_INLINE static
#define PRIVATE static inline \
#define HEADER_VERSION_MISMATCH ( \
MARPA_LIB_MAJOR_VERSION!=MARPA_MAJOR_VERSION \
||MARPA_LIB_MINOR_VERSION!=MARPA_MINOR_VERSION \
||MARPA_LIB_MICRO_VERSION!=MARPA_MICRO_VERSION \
)
#define XSY_Count_of_G(g) (MARPA_DSTACK_LENGTH((g) ->t_xsy_stack) )
#define XSY_by_ID(id) (*MARPA_DSTACK_INDEX(g->t_xsy_stack,XSY,(id) ) ) \
#define XSYID_is_Malformed(xsy_id) ((xsy_id) <0)
#define XSYID_of_G_Exists(xsy_id) ((xsy_id) <XSY_Count_of_G(g) )
#define XRL_Count_of_G(g) (MARPA_DSTACK_LENGTH((g) ->t_xrl_stack) )
#define IRL_Count_of_G(g) (MARPA_DSTACK_LENGTH((g) ->t_irl_stack) )
#define XRL_by_ID(id) (*MARPA_DSTACK_INDEX((g) ->t_xrl_stack,XRL,(id) ) )
#define IRL_by_ID(id) (*MARPA_DSTACK_INDEX((g) ->t_irl_stack,IRL,(id) ) ) \
#define XRLID_is_Malformed(rule_id) ((rule_id) <0)
#define XRLID_of_G_Exists(rule_id) ((rule_id) <XRL_Count_of_G(g) )
#define IRLID_of_G_is_Valid(irl_id) \
((irl_id) >=0&&(irl_id) <IRL_Count_of_G(g) ) \
#define G_is_Trivial(g) (!(g) ->t_start_irl)
#define External_Size_of_G(g) ((g) ->t_external_size)
#define MAXIMUM_RANK (INT_MAX/4)
#define MINIMUM_RANK (INT_MIN/4+(INT_MIN%4> 0?1:0) )
#define Default_Rank_of_G(g) ((g) ->t_default_rank)
#define G_is_Precomputed(g) ((g) ->t_is_precomputed)
#define G_EVENT_COUNT(g) MARPA_DSTACK_LENGTH((g) ->t_events)
#define INITIAL_G_EVENTS_CAPACITY (1024/sizeof(int) )
#define G_EVENTS_CLEAR(g) MARPA_DSTACK_CLEAR((g) ->t_events)
#define G_EVENT_PUSH(g) MARPA_DSTACK_PUSH((g) ->t_events,GEV_Object)
#define I_AM_OK 0x69734f4b
#define IS_G_OK(g) ((g) ->t_is_ok==I_AM_OK)
#define ID_of_XSY(xsy) ((xsy) ->t_symbol_id)
#define Rank_of_XSY(symbol) ((symbol) ->t_rank)
#define XSY_is_LHS(xsy) ((xsy) ->t_is_lhs)
#define XSY_is_Sequence_LHS(xsy) ((xsy) ->t_is_sequence_lhs)
#define XSY_is_Valued(symbol) ((symbol) ->t_is_valued)
#define XSY_is_Valued_Locked(symbol) ((symbol) ->t_is_valued_locked)
#define XSY_is_Accessible(xsy) ((xsy) ->t_is_accessible)
#define XSY_is_Nulling(sym) ((sym) ->t_is_nulling)
#define XSY_is_Nullable(xsy) ((xsy) ->t_is_nullable)
#define XSYID_is_Nullable(xsyid) XSY_is_Nullable(XSY_by_ID(xsyid) )
#define XSY_is_Terminal(xsy) ((xsy) ->t_is_terminal)
#define XSY_is_Locked_Terminal(xsy) ((xsy) ->t_is_locked_terminal)
#define XSYID_is_Terminal(id) (XSY_is_Terminal(XSY_by_ID(id) ) )
#define XSY_is_Productive(xsy) ((xsy) ->t_is_productive)
#define XSY_is_Completion_Event(xsy) ((xsy) ->t_is_completion_event)
#define XSYID_is_Completion_Event(xsyid) XSY_is_Completion_Event(XSY_by_ID(xsyid) )
#define XSY_is_Nulled_Event(xsy) ((xsy) ->t_is_nulled_event)
#define XSYID_is_Nulled_Event(xsyid) XSY_is_Nulled_Event(XSY_by_ID(xsyid) )
#define XSY_is_Prediction_Event(xsy) ((xsy) ->t_is_prediction_event)
#define XSYID_is_Prediction_Event(xsyid) XSY_is_Prediction_Event(XSY_by_ID(xsyid) )
#define Nulled_XSYIDs_of_XSY(xsy) ((xsy) ->t_nulled_event_xsyids)
#define Nulled_XSYIDs_of_XSYID(xsyid) \
Nulled_XSYIDs_of_XSY(XSY_by_ID(xsyid) )
#define NSY_of_XSY(xsy) ((xsy) ->t_nsy_equivalent)
#define NSYID_of_XSY(xsy) ID_of_NSY(NSY_of_XSY(xsy) )
#define NSY_by_XSYID(xsy_id) (XSY_by_ID(xsy_id) ->t_nsy_equivalent)
#define NSYID_by_XSYID(xsy_id) ID_of_NSY(NSY_of_XSY(XSY_by_ID(xsy_id) ) )
#define Nulling_NSY_of_XSY(xsy) ((xsy) ->t_nulling_nsy)
#define Nulling_NSY_by_XSYID(xsy) (XSY_by_ID(xsy) ->t_nulling_nsy)
#define Nulling_NSYID_by_XSYID(xsy) ID_of_NSY(XSY_by_ID(xsy) ->t_nulling_nsy)
#define Nulling_OR_by_NSYID(nsyid) ((OR) &NSY_by_ID(nsyid) ->t_nulling_or_node)
#define Unvalued_OR_by_NSYID(nsyid) ((OR) &NSY_by_ID(nsyid) ->t_unvalued_or_node)
#define NSY_by_ID(id) (*MARPA_DSTACK_INDEX(g->t_nsy_stack,NSY,(id) ) )
#define ID_of_NSY(nsy) ((nsy) ->t_nulling_or_node.t_nsyid) \
#define NSY_Count_of_G(g) (MARPA_DSTACK_LENGTH((g) ->t_nsy_stack) )
#define NSY_is_Start(nsy) ((nsy) ->t_is_start)
#define NSY_is_LHS(nsy) ((nsy) ->t_is_lhs)
#define NSY_is_Nulling(nsy) ((nsy) ->t_nsy_is_nulling)
#define LHS_CIL_of_NSY(nsy) ((nsy) ->t_lhs_cil)
#define LHS_CIL_of_NSYID(nsyid) LHS_CIL_of_NSY(NSY_by_ID(nsyid) )
#define NSY_is_Semantic(nsy) ((nsy) ->t_is_semantic)
#define NSYID_is_Semantic(nsyid) (NSY_is_Semantic(NSY_by_ID(nsyid) ) )
#define Source_XSY_of_NSY(nsy) ((nsy) ->t_source_xsy)
#define Source_XSY_of_NSYID(nsyid) (Source_XSY_of_NSY(NSY_by_ID(nsyid) ) )
#define Source_XSYID_of_NSYID(nsyid) \
ID_of_XSY(Source_XSY_of_NSYID(nsyid) )
#define LHS_XRL_of_NSY(nsy) ((nsy) ->t_lhs_xrl)
#define XRL_Offset_of_NSY(nsy) ((nsy) ->t_xrl_offset)
#define NSY_Rank_by_XSY(xsy) \
((xsy) ->t_rank*EXTERNAL_RANK_FACTOR+MAXIMUM_CHAF_RANK)
#define Rank_of_NSY(nsy) ((nsy) ->t_rank)
#define MAX_RHS_LENGTH (INT_MAX>>(2) )
#define Length_of_XRL(xrl) ((xrl) ->t_rhs_length)
#define LHS_ID_of_RULE(rule) ((rule) ->t_symbols[0])
#define LHS_ID_of_XRL(xrl) ((xrl) ->t_symbols[0])
#define RHS_ID_of_RULE(rule,position) \
((rule) ->t_symbols[(position) +1])
#define RHS_ID_of_XRL(xrl,position) \
((xrl) ->t_symbols[(position) +1]) \
#define ID_of_XRL(xrl) ((xrl) ->t_id)
#define ID_of_RULE(rule) ID_of_XRL(rule)
#define Rank_of_XRL(rule) ((rule) ->t_rank)
#define Null_Ranks_High_of_RULE(rule) ((rule) ->t_null_ranks_high)
#define XRL_is_BNF(rule) ((rule) ->t_is_bnf)
#define XRL_is_Sequence(rule) ((rule) ->t_is_sequence)
#define Minimum_of_XRL(rule) ((rule) ->t_minimum)
#define Separator_of_XRL(rule) ((rule) ->t_separator_id)
#define XRL_is_Proper_Separation(rule) ((rule) ->t_is_proper_separation)
#define XRL_is_Nulling(rule) ((rule) ->t_is_nulling)
#define XRL_is_Nullable(rule) ((rule) ->t_is_nullable)
#define XRL_is_Accessible(rule) ((rule) ->t_is_accessible)
#define XRL_is_Productive(rule) ((rule) ->t_is_productive)
#define XRL_is_Used(rule) ((rule) ->t_is_used)
#define ID_of_IRL(irl) ((irl) ->t_irl_id)
#define LHSID_of_IRL(irlid) ((irlid) ->t_nsyid_array[0])
#define LHS_of_IRL(irl) (NSY_by_ID(LHSID_of_IRL(irl) ) ) \
#define RHSID_of_IRL(irl,position) ((irl) ->t_nsyid_array[(position) +1])
#define RHS_of_IRL(irl,position) NSY_by_ID(RHSID_of_IRL((irl) ,(position) ) )
#define Length_of_IRL(irl) ((irl) ->t_length)
#define IRL_is_Unit_Rule(irl) ((irl) ->t_ahm_count==2)
#define AHM_Count_of_IRL(irl) ((irl) ->t_ahm_count)
#define IRL_has_Virtual_LHS(irl) ((irl) ->t_is_virtual_lhs)
#define IRL_has_Virtual_RHS(irl) ((irl) ->t_is_virtual_rhs)
#define IRL_is_Right_Recursive(irl) ((irl) ->t_is_right_recursive)
#define IRL_is_Leo(irl) IRL_is_Right_Recursive(irl)
#define Real_SYM_Count_of_IRL(irl) ((irl) ->t_real_symbol_count)
#define Virtual_Start_of_IRL(irl) ((irl) ->t_virtual_start)
#define Virtual_End_of_IRL(irl) ((irl) ->t_virtual_end)
#define Source_XRL_of_IRL(irl) ((irl) ->t_source_xrl)
#define EXTERNAL_RANK_FACTOR 4
#define MAXIMUM_CHAF_RANK 3
#define IRL_CHAF_Rank_by_XRL(xrl,chaf_rank) ( \
((xrl) ->t_rank*EXTERNAL_RANK_FACTOR) + \
(((xrl) ->t_null_ranks_high) ?(MAXIMUM_CHAF_RANK- \
(chaf_rank) ) :(chaf_rank) ) \
)
#define IRL_Rank_by_XRL(xrl) IRL_CHAF_Rank_by_XRL((xrl) ,MAXIMUM_CHAF_RANK)
#define Rank_of_IRL(irl) ((irl) ->t_rank)
#define First_AHM_of_IRL(irl) ((irl) ->t_first_ahm)
#define First_AHM_of_IRLID(irlid) (IRL_by_ID(irlid) ->t_first_ahm)
#define AHM_by_ID(id) (g->t_ahms+(id) )
#define ID_of_AHM(ahm) ((ahm) -g->t_ahms)
#define Next_AHM_of_AHM(ahm) ((ahm) +1)
#define Prev_AHM_of_AHM(ahm) ((ahm) -1) \
#define AHM_Count_of_G(g) ((g) ->t_ahm_count)
#define IRL_of_AHM(ahm) ((ahm) ->t_irl)
#define IRLID_of_AHM(item) ID_of_IRL(IRL_of_AHM(item) )
#define LHS_NSYID_of_AHM(item) LHSID_of_IRL(IRL_of_AHM(item) )
#define LHSID_of_AHM(item) LHS_NSYID_of_AHM(item)
#define Postdot_NSYID_of_AHM(item) ((item) ->t_postdot_nsyid)
#define AHM_is_Completion(ahm) (Postdot_NSYID_of_AHM(ahm) <0)
#define AHM_is_Leo(ahm) (IRL_is_Leo(IRL_of_AHM(ahm) ) )
#define AHM_is_Leo_Completion(ahm) \
(AHM_is_Completion(ahm) &&AHM_is_Leo(ahm) )
#define Null_Count_of_AHM(ahm) ((ahm) ->t_leading_nulls)
#define Position_of_AHM(ahm) ((ahm) ->t_position)
#define Raw_Position_of_AHM(ahm) \
(Position_of_AHM(ahm) <0?Length_of_IRL(IRL_of_AHM(ahm) ) )
#define AHM_is_Prediction(ahm) (Quasi_Position_of_AHM(ahm) ==0) \
#define Quasi_Position_of_AHM(ahm) ((ahm) ->t_quasi_position)
#define SYMI_of_AHM(ahm) ((ahm) ->t_symbol_instance)
#define SYMI_Count_of_G(g) ((g) ->t_symbol_instance_count)
#define SYMI_of_IRL(irl) ((irl) ->t_symbol_instance_base)
#define Last_Proper_SYMI_of_IRL(irl) ((irl) ->t_last_proper_symi)
#define SYMI_of_Completed_IRL(irl) \
(SYMI_of_IRL(irl) +Length_of_IRL(irl) -1)
#define Predicted_IRL_CIL_of_AHM(ahm) ((ahm) ->t_predicted_irl_cil)
#define LHS_CIL_of_AHM(ahm) ((ahm) ->t_lhs_cil)
#define ZWA_CIL_of_AHM(ahm) ((ahm) ->t_zwa_cil)
#define AHM_predicts_ZWA(ahm) ((ahm) ->t_predicts_zwa)
#define Completion_XSYIDs_of_AHM(ahm) ((ahm) ->t_completion_xsyids)
#define Nulled_XSYIDs_of_AHM(ahm) ((ahm) ->t_nulled_xsyids)
#define Prediction_XSYIDs_of_AHM(ahm) ((ahm) ->t_prediction_xsyids)
#define AHM_was_Predicted(ahm) ((ahm) ->t_was_predicted)
#define YIM_was_Predicted(yim) AHM_was_Predicted(AHM_of_YIM(yim) )
#define AHM_is_Initial(ahm) ((ahm) ->t_is_initial)
#define YIM_is_Initial(yim) AHM_is_Initial(AHM_of_YIM(yim) )
#define XRL_of_AHM(ahm) ((ahm) ->t_xrl)
#define XRL_Position_of_AHM(ahm) ((ahm) ->t_xrl_position)
#define Raw_XRL_Position_of_AHM(ahm) ( \
XRL_Position_of_AHM(ahm) <0 \
?Length_of_XRL(XRL_of_AHM(ahm) ) \
:XRL_Position_of_AHM(ahm) \
)
#define Event_Group_Size_of_AHM(ahm) ((ahm) ->t_event_group_size)
#define Event_AHMIDs_of_AHM(ahm) ((ahm) ->t_event_ahmids)
#define AHM_has_Event(ahm) (Count_of_CIL(Event_AHMIDs_of_AHM(ahm) ) !=0)
#define ZWAID_is_Malformed(zwaid) ((zwaid) <0)
#define ZWAID_of_G_Exists(zwaid) ((zwaid) <ZWA_Count_of_G(g) )
#define ZWA_Count_of_G(g) (MARPA_DSTACK_LENGTH((g) ->t_gzwa_stack) )
#define GZWA_by_ID(id) (*MARPA_DSTACK_INDEX((g) ->t_gzwa_stack,GZWA,(id) ) )
#define ID_of_GZWA(zwa) ((zwa) ->t_id)
#define Default_Value_of_GZWA(zwa) ((zwa) ->t_default_value)
#define XRLID_of_ZWP(zwp) ((zwp) ->t_xrl_id)
#define Dot_of_ZWP(zwp) ((zwp) ->t_dot)
#define ZWAID_of_ZWP(zwp) ((zwp) ->t_zwaid)
#define G_of_R(r) ((r) ->t_grammar)
#define R_BEFORE_INPUT 0x1
#define R_DURING_INPUT 0x2
#define R_AFTER_INPUT 0x3
#define Input_Phase_of_R(r) ((r) ->t_input_phase)
#define First_YS_of_R(r) ((r) ->t_first_earley_set)
#define Latest_YS_of_R(r) ((r) ->t_latest_earley_set)
#define Current_Earleme_of_R(r) ((r) ->t_current_earleme)
#define YS_at_Current_Earleme_of_R(r) ys_at_current_earleme(r)
#define DEFAULT_YIM_WARNING_THRESHOLD (100)
#define Furthest_Earleme_of_R(r) ((r) ->t_furthest_earleme)
#define R_is_Exhausted(r) ((r) ->t_is_exhausted)
#define First_Inconsistent_YS_of_R(r) ((r) ->t_first_inconsistent_ys)
#define R_is_Consistent(r) ((r) ->t_first_inconsistent_ys<0)
#define ID_of_ZWA(zwa) ((zwa) ->t_id)
#define Memo_YSID_of_ZWA(zwa) ((zwa) ->t_memoized_ysid)
#define Memo_Value_of_ZWA(zwa) ((zwa) ->t_memoized_value)
#define Default_Value_of_ZWA(zwa) ((zwa) ->t_default_value)
#define ZWA_Count_of_R(r) (ZWA_Count_of_G(G_of_R(r) ) )
#define RZWA_by_ID(id) (&(r) ->t_zwas[(zwaid) ])
#define JEARLEME_THRESHOLD (INT_MAX/4)
#define Next_YS_of_YS(set) ((set) ->t_next_earley_set)
#define Postdot_SYM_Count_of_YS(set) ((set) ->t_postdot_sym_count)
#define First_PIM_of_YS_by_NSYID(set,nsyid) (first_pim_of_ys_by_nsyid((set) ,(nsyid) ) )
#define PIM_NSY_P_of_YS_by_NSYID(set,nsyid) (pim_nsy_p_find((set) ,(nsyid) ) )
#define YIM_Count_of_YS(set) ((set) ->t_yim_count)
#define YIMs_of_YS(set) ((set) ->t_earley_items)
#define YS_Count_of_R(r) ((r) ->t_earley_set_count)
#define Ord_of_YS(set) ((set) ->t_ordinal)
#define YS_Ord_is_Valid(r,ordinal) \
((ordinal) >=0&&(ordinal) <YS_Count_of_R(r) )
#define Earleme_of_YS(set) ((set) ->t_key.t_earleme) \
#define Value_of_YS(set) ((set) ->t_value)
#define PValue_of_YS(set) ((set) ->t_pvalue)
#define LHS_NSYID_of_YIM(yim) \
LHS_NSYID_of_AHM(AHM_of_YIM(yim) )
#define YIM_is_Completion(item) \
(AHM_is_Completion(AHM_of_YIM(item) ) )
#define YS_of_YIM(yim) ((yim) ->t_key.t_set)
#define YS_Ord_of_YIM(yim) (Ord_of_YS(YS_of_YIM(yim) ) )
#define Ord_of_YIM(yim) ((yim) ->t_ordinal)
#define Earleme_of_YIM(yim) Earleme_of_YS(YS_of_YIM(yim) )
#define AHM_of_YIM(yim) ((yim) ->t_key.t_ahm)
#define AHMID_of_YIM(yim) ID_of_AHM(AHM_of_YIM(yim) )
#define Postdot_NSYID_of_YIM(yim) Postdot_NSYID_of_AHM(AHM_of_YIM(yim) )
#define IRL_of_YIM(yim) IRL_of_AHM(AHM_of_YIM(yim) )
#define IRLID_of_YIM(yim) ID_of_IRL(IRL_of_YIM(yim) )
#define Origin_Earleme_of_YIM(yim) (Earleme_of_YS(Origin_of_YIM(yim) ) )
#define Origin_Ord_of_YIM(yim) (Ord_of_YS(Origin_of_YIM(yim) ) )
#define Origin_of_YIM(yim) ((yim) ->t_key.t_origin)
#define YIM_ORDINAL_WIDTH 16
#define YIM_ORDINAL_CLAMP(x) (((1<<(YIM_ORDINAL_WIDTH) ) -1) &(x) )
#define YIM_FATAL_THRESHOLD ((1<<(YIM_ORDINAL_WIDTH) ) -2)
#define YIM_is_Rejected(yim) ((yim) ->t_is_rejected)
#define YIM_is_Active(yim) ((yim) ->t_is_active)
#define YIM_was_Scanned(yim) ((yim) ->t_was_scanned)
#define YIM_was_Fusion(yim) ((yim) ->t_was_fusion)
#define NO_SOURCE (0U)
#define SOURCE_IS_TOKEN (1U)
#define SOURCE_IS_COMPLETION (2U)
#define SOURCE_IS_LEO (3U)
#define SOURCE_IS_AMBIGUOUS (4U)
#define Source_Type_of_YIM(item) ((item) ->t_source_type)
#define Earley_Item_has_No_Source(item) ((item) ->t_source_type==NO_SOURCE)
#define Earley_Item_has_Token_Source(item) ((item) ->t_source_type==SOURCE_IS_TOKEN)
#define Earley_Item_has_Complete_Source(item) ((item) ->t_source_type==SOURCE_IS_COMPLETION)
#define Earley_Item_has_Leo_Source(item) ((item) ->t_source_type==SOURCE_IS_LEO)
#define Earley_Item_is_Ambiguous(item) ((item) ->t_source_type==SOURCE_IS_AMBIGUOUS) \
#define Next_PIM_of_YIX(yix) ((yix) ->t_next)
#define YIM_of_YIX(yix) ((yix) ->t_earley_item)
#define Postdot_NSYID_of_YIX(yix) ((yix) ->t_postdot_nsyid)
#define YIX_of_LIM(lim) ((YIX) (lim) )
#define Postdot_NSYID_of_LIM(leo) (Postdot_NSYID_of_YIX(YIX_of_LIM(leo) ) )
#define Next_PIM_of_LIM(leo) (Next_PIM_of_YIX(YIX_of_LIM(leo) ) )
#define Origin_of_LIM(leo) ((leo) ->t_origin)
#define Top_AHM_of_LIM(leo) ((leo) ->t_top_ahm)
#define Trailhead_AHM_of_LIM(leo) ((leo) ->t_trailhead_ahm)
#define Predecessor_LIM_of_LIM(leo) ((leo) ->t_predecessor)
#define Trailhead_YIM_of_LIM(leo) ((leo) ->t_base)
#define YS_of_LIM(leo) ((leo) ->t_set)
#define Earleme_of_LIM(lim) Earleme_of_YS(YS_of_LIM(lim) )
#define LIM_is_Rejected(lim) ((lim) ->t_is_rejected)
#define LIM_is_Active(lim) ((lim) ->t_is_active)
#define CIL_of_LIM(lim) ((lim) ->t_cil)
#define LIM_of_PIM(pim) ((LIM) (pim) )
#define YIX_of_PIM(pim) ((YIX) (pim) )
#define Postdot_NSYID_of_PIM(pim) (Postdot_NSYID_of_YIX(YIX_of_PIM(pim) ) )
#define YIM_of_PIM(pim) (YIM_of_YIX(YIX_of_PIM(pim) ) )
#define Next_PIM_of_PIM(pim) (Next_PIM_of_YIX(YIX_of_PIM(pim) ) ) \
#define PIM_of_LIM(pim) ((PIM) (pim) )
#define PIM_is_LIM(pim) (YIM_of_YIX(YIX_of_PIM(pim) ) ==NULL)
#define Next_SRCL_of_SRCL(link) ((link) ->t_next)
#define Source_of_SRCL(link) ((link) ->t_source)
#define SRC_of_SRCL(link) (&Source_of_SRCL(link) )
#define SRCL_of_YIM(yim) (&(yim) ->t_container.t_unique)
#define Source_of_YIM(yim) ((yim) ->t_container.t_unique.t_source)
#define SRC_of_YIM(yim) (&Source_of_YIM(yim) )
#define Predecessor_of_Source(srcd) ((srcd) .t_predecessor)
#define Predecessor_of_SRC(source) Predecessor_of_Source(*(source) )
#define Predecessor_of_YIM(item) Predecessor_of_Source(Source_of_YIM(item) )
#define Predecessor_of_SRCL(link) Predecessor_of_Source(Source_of_SRCL(link) )
#define LIM_of_SRCL(link) ((LIM) Predecessor_of_SRCL(link) )
#define Cause_of_Source(srcd) ((srcd) .t_cause.t_completion)
#define Cause_of_SRC(source) Cause_of_Source(*(source) )
#define Cause_of_YIM(item) Cause_of_Source(Source_of_YIM(item) )
#define Cause_of_SRCL(link) Cause_of_Source(Source_of_SRCL(link) )
#define TOK_of_Source(srcd) ((srcd) .t_cause.t_token)
#define TOK_of_SRC(source) TOK_of_Source(*(source) )
#define TOK_of_YIM(yim) TOK_of_Source(Source_of_YIM(yim) )
#define TOK_of_SRCL(link) TOK_of_Source(Source_of_SRCL(link) )
#define NSYID_of_Source(srcd) ((srcd) .t_cause.t_token.t_nsyid)
#define NSYID_of_SRC(source) NSYID_of_Source(*(source) )
#define NSYID_of_YIM(yim) NSYID_of_Source(Source_of_YIM(yim) )
#define NSYID_of_SRCL(link) NSYID_of_Source(Source_of_SRCL(link) )
#define Value_of_Source(srcd) ((srcd) .t_cause.t_token.t_value)
#define Value_of_SRC(source) Value_of_Source(*(source) )
#define Value_of_SRCL(link) Value_of_Source(Source_of_SRCL(link) ) \
#define SRC_is_Active(src) ((src) ->t_is_active)
#define SRC_is_Rejected(src) ((src) ->t_is_rejected)
#define SRCL_is_Active(link) ((link) ->t_source.t_is_active)
#define SRCL_is_Rejected(link) ((link) ->t_source.t_is_rejected) \
#define Cause_AHMID_of_SRCL(srcl) \
AHMID_of_YIM((YIM) Cause_of_SRCL(srcl) )
#define Leo_Transition_NSYID_of_SRCL(leo_source_link) \
Postdot_NSYID_of_LIM(LIM_of_SRCL(leo_source_link) ) \
#define LV_First_Completion_SRCL_of_YIM(item) ((item) ->t_container.t_ambiguous.t_completion)
#define First_Completion_SRCL_of_YIM(item) \
(Source_Type_of_YIM(item) ==SOURCE_IS_COMPLETION?(SRCL) SRCL_of_YIM(item) : \
Source_Type_of_YIM(item) ==SOURCE_IS_AMBIGUOUS? \
LV_First_Completion_SRCL_of_YIM(item) :NULL) \
#define LV_First_Token_SRCL_of_YIM(item) ((item) ->t_container.t_ambiguous.t_token)
#define First_Token_SRCL_of_YIM(item) \
(Source_Type_of_YIM(item) ==SOURCE_IS_TOKEN?(SRCL) SRCL_of_YIM(item) : \
Source_Type_of_YIM(item) ==SOURCE_IS_AMBIGUOUS? \
LV_First_Token_SRCL_of_YIM(item) :NULL) \
#define LV_First_Leo_SRCL_of_YIM(item) ((item) ->t_container.t_ambiguous.t_leo)
#define First_Leo_SRCL_of_YIM(item) \
(Source_Type_of_YIM(item) ==SOURCE_IS_LEO?(SRCL) SRCL_of_YIM(item) : \
Source_Type_of_YIM(item) ==SOURCE_IS_AMBIGUOUS? \
LV_First_Leo_SRCL_of_YIM(item) :NULL) \
#define NSYID_of_ALT(alt) ((alt) ->t_nsyid)
#define Value_of_ALT(alt) ((alt) ->t_value)
#define ALT_is_Valued(alt) ((alt) ->t_is_valued)
#define Start_YS_of_ALT(alt) ((alt) ->t_start_earley_set)
#define Start_Earleme_of_ALT(alt) Earleme_of_YS(Start_YS_of_ALT(alt) )
#define End_Earleme_of_ALT(alt) ((alt) ->t_end_earleme)
#define Work_YIMs_of_R(r) MARPA_DSTACK_BASE((r) ->t_yim_work_stack,YIM)
#define Work_YIM_Count_of_R(r) MARPA_DSTACK_LENGTH((r) ->t_yim_work_stack)
#define WORK_YIMS_CLEAR(r) MARPA_DSTACK_CLEAR((r) ->t_yim_work_stack)
#define WORK_YIM_PUSH(r) MARPA_DSTACK_PUSH((r) ->t_yim_work_stack,YIM)
#define WORK_YIM_ITEM(r,ix) (*MARPA_DSTACK_INDEX((r) ->t_yim_work_stack,YIM,ix) )
#define P_YS_of_R_by_Ord(r,ord) MARPA_DSTACK_INDEX((r) ->t_earley_set_stack,YS,(ord) )
#define YS_of_R_by_Ord(r,ord) (*P_YS_of_R_by_Ord((r) ,(ord) ) )
#define LIM_is_Populated(leo) (Origin_of_LIM(leo) !=NULL)
#define RULEID_of_PROGRESS(report) ((report) ->t_rule_id)
#define Position_of_PROGRESS(report) ((report) ->t_position)
#define Origin_of_PROGRESS(report) ((report) ->t_origin) \
#define Prev_UR_of_UR(ur) ((ur) ->t_prev)
#define Next_UR_of_UR(ur) ((ur) ->t_next)
#define YIM_of_UR(ur) ((ur) ->t_earley_item) \
#define URS_of_R(r) (&(r) ->t_ur_node_stack)
#define DUMMY_OR_NODE -1
#define MAX_TOKEN_OR_NODE -2
#define VALUED_TOKEN_OR_NODE -2
#define NULLING_TOKEN_OR_NODE -3
#define UNVALUED_TOKEN_OR_NODE -4
#define OR_is_Token(or) (Type_of_OR(or) <=MAX_TOKEN_OR_NODE)
#define Position_of_OR(or) ((or) ->t_final.t_position)
#define Type_of_OR(or) ((or) ->t_final.t_position)
#define IRL_of_OR(or) ((or) ->t_final.t_irl)
#define IRLID_of_OR(or) ID_of_IRL(IRL_of_OR(or) )
#define Origin_Ord_of_OR(or) ((or) ->t_final.t_start_set_ordinal)
#define ID_of_OR(or) ((or) ->t_final.t_id)
#define YS_Ord_of_OR(or) ((or) ->t_draft.t_end_set_ordinal)
#define DANDs_of_OR(or) ((or) ->t_draft.t_draft_and_node)
#define First_ANDID_of_OR(or) ((or) ->t_final.t_first_and_node_id)
#define AND_Count_of_OR(or) ((or) ->t_final.t_and_node_count)
#define NSYID_of_OR(or) ((or) ->t_token.t_nsyid)
#define Value_of_OR(or) ((or) ->t_token.t_value)
#define ORs_of_B(b) ((b) ->t_or_nodes)
#define OR_of_B_by_ID(b,id) (ORs_of_B(b) [(id) ])
#define OR_Count_of_B(b) ((b) ->t_or_node_count)
#define OR_Capacity_of_B(b) ((b) ->t_or_node_capacity)
#define ANDs_of_B(b) ((b) ->t_and_nodes)
#define AND_Count_of_B(b) ((b) ->t_and_node_count)
#define Top_ORID_of_B(b) ((b) ->t_top_or_node_id)
#define G_of_B(b) ((b) ->t_grammar)
#define WHEID_of_NSYID(nsyid) (irl_count+(nsyid) )
#define WHEID_of_IRLID(irlid) (irlid)
#define WHEID_of_IRL(irl) WHEID_of_IRLID(ID_of_IRL(irl) )
#define WHEID_of_OR(or) ( \
wheid= OR_is_Token(or) ? \
WHEID_of_NSYID(NSYID_of_OR(or) ) : \
WHEID_of_IRL(IRL_of_OR(or) ) \
) \
#define Next_DAND_of_DAND(dand) ((dand) ->t_next)
#define Predecessor_OR_of_DAND(dand) ((dand) ->t_predecessor)
#define Cause_OR_of_DAND(dand) ((dand) ->t_cause)
#define OR_of_AND(and) ((and) ->t_current)
#define Predecessor_OR_of_AND(and) ((and) ->t_predecessor)
#define Cause_OR_of_AND(and) ((and) ->t_cause)
#define OBS_of_B(b) ((b) ->t_obs)
#define Valued_BV_of_B(b) ((b) ->t_valued_bv)
#define Valued_Locked_BV_of_B(b) ((b) ->t_valued_locked_bv)
#define XSYID_is_Valued_in_B(b,xsyid) \
(lbv_bit_test(Valued_BV_of_B(b) ,(xsyid) ) )
#define NSYID_is_Valued_in_B(b,nsyid) \
XSYID_is_Valued_in_B((b) ,Source_XSYID_of_NSYID(nsyid) )
#define OR_by_PSI(psi_data,set_ordinal,item_ordinal) \
(((psi_data) [(set_ordinal) ].t_or_node_by_item) [(item_ordinal) ])
#define Ambiguity_Metric_of_B(b) ((b) ->t_ambiguity_metric)
#define B_is_Nulling(b) ((b) ->t_is_nulling)
#define OBS_of_O(order) ((order) ->t_ordering_obs)
#define O_is_Default(order) (!OBS_of_O(order) )
#define O_is_Frozen(o) ((o) ->t_is_frozen)
#define B_of_O(b) ((b) ->t_bocage)
#define Ambiguity_Metric_of_O(o) ((o) ->t_ambiguity_metric)
#define O_is_Nulling(o) ((o) ->t_is_nulling)
#define High_Rank_Count_of_O(order) ((order) ->t_high_rank_count)
#define Size_of_TREE(tree) FSTACK_LENGTH((tree) ->t_nook_stack)
#define NOOK_of_TREE_by_IX(tree,nook_id) \
FSTACK_INDEX((tree) ->t_nook_stack,NOOK_Object,nook_id)
#define O_of_T(t) ((t) ->t_order)
#define T_is_Paused(t) ((t) ->t_pause_counter> 0)
#define T_is_Exhausted(t) ((t) ->t_is_exhausted)
#define T_is_Nulling(t) ((t) ->t_is_nulling)
#define Size_of_T(t) FSTACK_LENGTH((t) ->t_nook_stack)
#define OR_of_NOOK(nook) ((nook) ->t_or_node)
#define Choice_of_NOOK(nook) ((nook) ->t_choice)
#define Parent_of_NOOK(nook) ((nook) ->t_parent)
#define NOOK_Cause_is_Expanded(nook) ((nook) ->t_is_cause_ready)
#define NOOK_is_Cause(nook) ((nook) ->t_is_cause_of_parent)
#define NOOK_Predecessor_is_Expanded(nook) ((nook) ->t_is_predecessor_ready)
#define NOOK_is_Predecessor(nook) ((nook) ->t_is_predecessor_of_parent)
#define Next_Value_Type_of_V(val) ((val) ->t_next_value_type)
#define V_is_Active(val) (Next_Value_Type_of_V(val) !=MARPA_STEP_INACTIVE)
#define T_of_V(v) ((v) ->t_tree)
#define Step_Type_of_V(val) ((val) ->public.t_step_type)
#define XSYID_of_V(val) ((val) ->public.t_token_id)
#define RULEID_of_V(val) ((val) ->public.t_rule_id)
#define Token_Value_of_V(val) ((val) ->public.t_token_value)
#define Token_Type_of_V(val) ((val) ->t_token_type)
#define Arg_0_of_V(val) ((val) ->public.t_arg_0)
#define Arg_N_of_V(val) ((val) ->public.t_arg_n)
#define Result_of_V(val) ((val) ->public.t_result)
#define Rule_Start_of_V(val) ((val) ->public.t_rule_start_ys_id)
#define Token_Start_of_V(val) ((val) ->public.t_token_start_ys_id)
#define YS_ID_of_V(val) ((val) ->public.t_ys_id)
#define VStack_of_V(val) ((val) ->t_virtual_stack)
#define V_is_Nulling(v) ((v) ->t_is_nulling)
#define V_is_Trace(val) ((val) ->t_trace)
#define NOOK_of_V(val) ((val) ->t_nook)
#define XSY_is_Valued_BV_of_V(v) ((v) ->t_xsy_is_valued)
#define XRL_is_Valued_BV_of_V(v) ((v) ->t_xrl_is_valued)
#define Valued_Locked_BV_of_V(v) ((v) ->t_valued_locked)
#define STEP_GET_DATA MARPA_STEP_INTERNAL2 \
#define lbv_wordbits (sizeof(LBW) *8u)
#define lbv_lsb (1u)
#define lbv_msb (1u<<(lbv_wordbits-1u) )
#define lbv_w(lbv,bit) ((lbv) +((bit) /lbv_wordbits) )
#define lbv_b(bit) (lbv_lsb<<((bit) %bv_wordbits) )
#define lbv_bit_set(lbv,bit) \
(*lbv_w((lbv) ,(LBW) (bit) ) |= lbv_b((LBW) (bit) ) )
#define lbv_bit_clear(lbv,bit) \
(*lbv_w((lbv) ,((LBW) (bit) ) ) &= ~lbv_b((LBW) (bit) ) )
#define lbv_bit_test(lbv,bit) \
((*lbv_w((lbv) ,((LBW) (bit) ) ) &lbv_b((LBW) (bit) ) ) !=0U) \
#define BV_BITS(bv) *(bv-3)
#define BV_SIZE(bv) *(bv-2)
#define BV_MASK(bv) *(bv-1)
#define FSTACK_DECLARE(stack,type) struct{int t_count;type*t_base;}stack;
#define FSTACK_CLEAR(stack) ((stack) .t_count= 0)
#define FSTACK_INIT(stack,type,n) (FSTACK_CLEAR(stack) , \
((stack) .t_base= marpa_new(type,n) ) )
#define FSTACK_SAFE(stack) ((stack) .t_base= NULL)
#define FSTACK_BASE(stack,type) ((type*) (stack) .t_base)
#define FSTACK_INDEX(this,type,ix) (FSTACK_BASE((this) ,type) +(ix) )
#define FSTACK_TOP(this,type) (FSTACK_LENGTH(this) <=0 \
?NULL \
:FSTACK_INDEX((this) ,type,FSTACK_LENGTH(this) -1) )
#define FSTACK_LENGTH(stack) ((stack) .t_count)
#define FSTACK_PUSH(stack) ((stack) .t_base+stack.t_count++)
#define FSTACK_POP(stack) ((stack) .t_count<=0?NULL:(stack) .t_base+(--(stack) .t_count) )
#define FSTACK_IS_INITIALIZED(stack) ((stack) .t_base)
#define FSTACK_DESTROY(stack) (my_free((stack) .t_base) ) \
#define DQUEUE_DECLARE(this) struct s_dqueue this
#define DQUEUE_INIT(this,type,initial_size) \
((this.t_current= 0) ,MARPA_DSTACK_INIT(this.t_stack,type,initial_size) )
#define DQUEUE_PUSH(this,type) MARPA_DSTACK_PUSH(this.t_stack,type)
#define DQUEUE_POP(this,type) MARPA_DSTACK_POP(this.t_stack,type)
#define DQUEUE_NEXT(this,type) (this.t_current>=MARPA_DSTACK_LENGTH(this.t_stack) \
?NULL \
:(MARPA_DSTACK_BASE(this.t_stack,type) ) +this.t_current++)
#define DQUEUE_BASE(this,type) MARPA_DSTACK_BASE(this.t_stack,type)
#define DQUEUE_END(this) MARPA_DSTACK_LENGTH(this.t_stack)
#define STOLEN_DQUEUE_DATA_FREE(data) MARPA_STOLEN_DSTACK_DATA_FREE(data) \
#define Count_of_CIL(cil) (cil[0])
#define Item_of_CIL(cil,ix) (cil[1+(ix) ])
#define Sizeof_CIL(ix) (sizeof(int) *(1+(ix) ) )
#define CAPACITY_OF_CILAR(cilar) (CAPACITY_OF_DSTACK(cilar->t_buffer) -1)
#define Sizeof_PSL(psar) \
(sizeof(PSL_Object) +((size_t) psar->t_psl_length-1) *sizeof(void*) )
#define PSL_Datum(psl,i) ((psl) ->t_data[(i) ])
#define Dot_PSAR_of_R(r) (&(r) ->t_dot_psar_object)
#define Dot_PSL_of_YS(ys) ((ys) ->t_dot_psl)
#define FATAL_FLAG (0x1u)
#define MARPA_DEV_ERROR(message) (set_error(g,MARPA_ERR_DEVELOPMENT,(message) ,0u) )
#define MARPA_INTERNAL_ERROR(message) (set_error(g,MARPA_ERR_INTERNAL,(message) ,0u) )
#define MARPA_ERROR(code) (set_error(g,(code) ,NULL,0u) )
#define MARPA_FATAL(code) (set_error(g,(code) ,NULL,FATAL_FLAG) )
#line 15892 "./marpa.w"
#include "marpa_obs.h"
#include "marpa_avl.h"
/*108:*/
#line 1048 "./marpa.w"
struct s_g_event;
typedef struct s_g_event*GEV;
/*:108*//*144:*/
#line 1277 "./marpa.w"
struct s_xsy;
typedef struct s_xsy*XSY;
typedef const struct s_xsy*XSY_Const;
/*:144*//*449:*/
#line 4733 "./marpa.w"
struct s_ahm;
typedef struct s_ahm*AHM;
typedef Marpa_AHM_ID AHMID;
/*:449*//*523:*/
#line 5614 "./marpa.w"
struct s_g_zwa;
struct s_r_zwa;
/*:523*//*530:*/
#line 5651 "./marpa.w"
struct s_zwp;
/*:530*//*623:*/
#line 6526 "./marpa.w"
struct s_earley_set;
typedef struct s_earley_set*YS;
typedef const struct s_earley_set*YS_Const;
struct s_earley_set_key;
typedef struct s_earley_set_key*YSK;
/*:623*//*645:*/
#line 6741 "./marpa.w"
struct s_earley_item;
typedef struct s_earley_item*YIM;
typedef const struct s_earley_item*YIM_Const;
struct s_earley_item_key;
typedef struct s_earley_item_key*YIK;
/*:645*//*654:*/
#line 6910 "./marpa.w"
struct s_earley_ix;
typedef struct s_earley_ix*YIX;
union u_postdot_item;
/*:654*//*657:*/
#line 6947 "./marpa.w"
struct s_leo_item;
typedef struct s_leo_item*LIM;
/*:657*//*689:*/
#line 7337 "./marpa.w"
struct s_alternative;
typedef struct s_alternative*ALT;
typedef const struct s_alternative*ALT_Const;
/*:689*//*845:*/
#line 9705 "./marpa.w"
struct s_ur_node_stack;
struct s_ur_node;
typedef struct s_ur_node_stack*URS;
typedef struct s_ur_node*UR;
typedef const struct s_ur_node*UR_Const;
/*:845*//*866:*/
#line 9967 "./marpa.w"
union u_or_node;
typedef union u_or_node*OR;
/*:866*//*894:*/
#line 10377 "./marpa.w"
struct s_draft_and_node;
typedef struct s_draft_and_node*DAND;
/*:894*//*920:*/
#line 10776 "./marpa.w"
struct s_and_node;
typedef struct s_and_node*AND;
/*:920*//*926:*/
#line 10839 "./marpa.w"
typedef struct marpa_bocage*BOCAGE;
/*:926*//*936:*/
#line 10935 "./marpa.w"
struct s_bocage_setup_per_ys;
/*:936*//*999:*/
#line 11613 "./marpa.w"
typedef Marpa_Tree TREE;
/*:999*//*1034:*/
#line 12060 "./marpa.w"
struct s_nook;
typedef struct s_nook*NOOK;
/*:1034*//*1038:*/
#line 12105 "./marpa.w"
typedef struct s_value*VALUE;
/*:1038*//*1148:*/
#line 13610 "./marpa.w"
struct s_dqueue;
typedef struct s_dqueue*DQUEUE;
/*:1148*//*1154:*/
#line 13664 "./marpa.w"
struct s_cil_arena;
/*:1154*//*1174:*/
#line 13999 "./marpa.w"
struct s_per_earley_set_list;
typedef struct s_per_earley_set_list*PSL;
/*:1174*//*1176:*/
#line 14014 "./marpa.w"
struct s_per_earley_set_arena;
typedef struct s_per_earley_set_arena*PSAR;
/*:1176*/
#line 15895 "./marpa.w"
/*50:*/
#line 698 "./marpa.w"
typedef struct marpa_g*GRAMMAR;
/*:50*//*143:*/
#line 1275 "./marpa.w"
typedef Marpa_Symbol_ID XSYID;
/*:143*//*215:*/
#line 1811 "./marpa.w"
struct s_nsy;
typedef struct s_nsy*NSY;
typedef Marpa_NSY_ID NSYID;
/*:215*//*254:*/
#line 2096 "./marpa.w"
struct s_xrl;
typedef struct s_xrl*XRL;
typedef XRL RULE;
typedef Marpa_Rule_ID RULEID;
typedef Marpa_Rule_ID XRLID;
/*:254*//*327:*/
#line 2816 "./marpa.w"
struct s_irl;
typedef struct s_irl*IRL;
typedef Marpa_IRL_ID IRLID;
/*:327*//*465:*/
#line 4845 "./marpa.w"
typedef int SYMI;
/*:465*//*524:*/
#line 5623 "./marpa.w"
typedef Marpa_Assertion_ID ZWAID;
typedef struct s_g_zwa*GZWA;
typedef struct s_r_zwa*ZWA;
/*:524*//*531:*/
#line 5654 "./marpa.w"
typedef struct s_zwp*ZWP;
typedef const struct s_zwp*ZWP_Const;
/*:531*//*544:*/
#line 5850 "./marpa.w"
typedef struct marpa_r*RECCE;
/*:544*//*620:*/
#line 6516 "./marpa.w"
typedef Marpa_Earleme JEARLEME;
/*:620*//*622:*/
#line 6520 "./marpa.w"
typedef Marpa_Earley_Set_ID YSID;
/*:622*//*647:*/
#line 6782 "./marpa.w"
typedef int YIMID;
/*:647*//*670:*/
#line 7068 "./marpa.w"
struct s_source;
typedef struct s_source*SRC;
typedef const struct s_source*SRC_Const;
/*:670*//*673:*/
#line 7093 "./marpa.w"
struct s_source_link;
typedef struct s_source_link*SRCL;
/*:673*//*813:*/
#line 9365 "./marpa.w"
typedef struct marpa_progress_item*PROGRESS;
/*:813*//*865:*/
#line 9964 "./marpa.w"
typedef Marpa_Or_Node_ID ORID;
/*:865*//*893:*/
#line 10366 "./marpa.w"
typedef int WHEID;
/*:893*//*919:*/
#line 10772 "./marpa.w"
typedef Marpa_And_Node_ID ANDID;
/*:919*//*1033:*/
#line 12056 "./marpa.w"
typedef Marpa_Nook_ID NOOKID;
/*:1033*//*1085:*/
#line 12820 "./marpa.w"
typedef unsigned int LBW;
typedef LBW*LBV;
/*:1085*//*1093:*/
#line 12912 "./marpa.w"
typedef LBW Bit_Vector_Word;
typedef Bit_Vector_Word*Bit_Vector;
/*:1093*//*1151:*/
#line 13631 "./marpa.w"
typedef int*CIL;
/*:1151*//*1155:*/
#line 13667 "./marpa.w"
typedef struct s_cil_arena*CILAR;
/*:1155*/
#line 15896 "./marpa.w"
/*1153:*/
#line 13656 "./marpa.w"
struct s_cil_arena{
struct marpa_obstack*t_obs;
MARPA_AVL_TREE t_avl;
MARPA_DSTACK_DECLARE(t_buffer);
};
typedef struct s_cil_arena CILAR_Object;
/*:1153*/
#line 15897 "./marpa.w"
/*49:*/
#line 692 "./marpa.w"
struct marpa_g{
/*134:*/
#line 1222 "./marpa.w"
int t_is_ok;
/*:134*/
#line 693 "./marpa.w"
/*60:*/
#line 775 "./marpa.w"
MARPA_DSTACK_DECLARE(t_xsy_stack);
MARPA_DSTACK_DECLARE(t_nsy_stack);
/*:60*//*69:*/
#line 832 "./marpa.w"
MARPA_DSTACK_DECLARE(t_xrl_stack);
MARPA_DSTACK_DECLARE(t_irl_stack);
/*:69*//*104:*/
#line 1023 "./marpa.w"
Bit_Vector t_bv_nsyid_is_terminal;
/*:104*//*106:*/
#line 1032 "./marpa.w"
Bit_Vector t_lbv_xsyid_is_completion_event;
Bit_Vector t_lbv_xsyid_is_nulled_event;
Bit_Vector t_lbv_xsyid_is_prediction_event;
/*:106*//*113:*/
#line 1070 "./marpa.w"
MARPA_DSTACK_DECLARE(t_events);
/*:113*//*121:*/
#line 1144 "./marpa.w"
MARPA_AVL_TREE t_xrl_tree;
/*:121*//*125:*/
#line 1174 "./marpa.w"
struct marpa_obstack*t_obs;
struct marpa_obstack*t_xrl_obs;
/*:125*//*128:*/
#line 1191 "./marpa.w"
CILAR_Object t_cilar;
/*:128*//*136:*/
#line 1237 "./marpa.w"
const char*t_error_string;
/*:136*//*451:*/
#line 4750 "./marpa.w"
AHM t_ahms;
/*:451*//*525:*/
#line 5630 "./marpa.w"
MARPA_DSTACK_DECLARE(t_gzwa_stack);
/*:525*//*533:*/
#line 5669 "./marpa.w"
MARPA_AVL_TREE t_zwp_tree;
/*:533*/
#line 694 "./marpa.w"
/*54:*/
#line 722 "./marpa.w"
int t_ref_count;
/*:54*//*79:*/
#line 882 "./marpa.w"
XSYID t_start_xsy_id;
/*:79*//*83:*/
#line 915 "./marpa.w"
IRL t_start_irl;
/*:83*//*86:*/
#line 929 "./marpa.w"
int t_external_size;
/*:86*//*89:*/
#line 943 "./marpa.w"
int t_max_rule_length;
/*:89*//*93:*/
#line 956 "./marpa.w"
Marpa_Rank t_default_rank;
/*:93*//*137:*/
#line 1239 "./marpa.w"
Marpa_Error_Code t_error;
/*:137*//*163:*/
#line 1404 "./marpa.w"
int t_force_valued;
/*:163*//*452:*/
#line 4754 "./marpa.w"
int t_ahm_count;
/*:452*//*466:*/
#line 4847 "./marpa.w"
int t_symbol_instance_count;
/*:466*/
#line 695 "./marpa.w"
/*98:*/
#line 991 "./marpa.w"
BITFIELD t_is_precomputed:1;
/*:98*//*101:*/
#line 1003 "./marpa.w"
BITFIELD t_has_cycle:1;
/*:101*/
#line 696 "./marpa.w"
};
/*:49*//*112:*/
#line 1063 "./marpa.w"
struct s_g_event{
int t_type;
int t_value;
};
typedef struct s_g_event GEV_Object;
/*:112*//*145:*/
#line 1282 "./marpa.w"
struct s_xsy{
/*201:*/
#line 1711 "./marpa.w"
CIL t_nulled_event_xsyids;
/*:201*//*204:*/
#line 1738 "./marpa.w"
NSY t_nsy_equivalent;
/*:204*//*208:*/
#line 1770 "./marpa.w"
NSY t_nulling_nsy;
/*:208*/
#line 1284 "./marpa.w"
/*146:*/
#line 1291 "./marpa.w"
XSYID t_symbol_id;
/*:146*//*152:*/
#line 1325 "./marpa.w"
Marpa_Rank t_rank;
/*:152*/
#line 1285 "./marpa.w"
/*149:*/
#line 1312 "./marpa.w"
BITFIELD t_is_start:1;
/*:149*//*156:*/
#line 1372 "./marpa.w"
BITFIELD t_is_lhs:1;
/*:156*//*158:*/
#line 1379 "./marpa.w"
BITFIELD t_is_sequence_lhs:1;
/*:158*//*160:*/
#line 1393 "./marpa.w"
BITFIELD t_is_valued:1;
BITFIELD t_is_valued_locked:1;
/*:160*//*168:*/
#line 1463 "./marpa.w"
BITFIELD t_is_accessible:1;
/*:168*//*171:*/
#line 1484 "./marpa.w"
BITFIELD t_is_counted:1;
/*:171*//*174:*/
#line 1500 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:174*//*177:*/
#line 1517 "./marpa.w"
BITFIELD t_is_nullable:1;
/*:177*//*180:*/
#line 1538 "./marpa.w"
BITFIELD t_is_terminal:1;
BITFIELD t_is_locked_terminal:1;
/*:180*//*185:*/
#line 1585 "./marpa.w"
BITFIELD t_is_productive:1;
/*:185*//*188:*/
#line 1604 "./marpa.w"
BITFIELD t_is_completion_event:1;
/*:188*//*192:*/
#line 1639 "./marpa.w"
BITFIELD t_is_nulled_event:1;
/*:192*//*196:*/
#line 1674 "./marpa.w"
BITFIELD t_is_prediction_event:1;
/*:196*/
#line 1286 "./marpa.w"
};
/*:145*//*216:*/
#line 1826 "./marpa.w"
struct s_unvalued_token_or_node{
int t_or_node_type;
NSYID t_nsyid;
};
struct s_nsy{
/*235:*/
#line 1963 "./marpa.w"
CIL t_lhs_cil;
/*:235*//*240:*/
#line 1994 "./marpa.w"
XSY t_source_xsy;
/*:240*//*244:*/
#line 2017 "./marpa.w"
XRL t_lhs_xrl;
int t_xrl_offset;
/*:244*/
#line 1833 "./marpa.w"
/*249:*/
#line 2070 "./marpa.w"
Marpa_Rank t_rank;
/*:249*/
#line 1834 "./marpa.w"
/*226:*/
#line 1918 "./marpa.w"
BITFIELD t_is_start:1;
/*:226*//*229:*/
#line 1932 "./marpa.w"
BITFIELD t_is_lhs:1;
/*:229*//*232:*/
#line 1946 "./marpa.w"
BITFIELD t_nsy_is_nulling:1;
/*:232*//*237:*/
#line 1971 "./marpa.w"
BITFIELD t_is_semantic:1;
/*:237*/
#line 1835 "./marpa.w"
struct s_unvalued_token_or_node t_nulling_or_node;
struct s_unvalued_token_or_node t_unvalued_or_node;
};
/*:216*//*253:*/
#line 2087 "./marpa.w"
struct s_xrl{
/*266:*/
#line 2390 "./marpa.w"
int t_rhs_length;
/*:266*//*274:*/
#line 2455 "./marpa.w"
Marpa_Rule_ID t_id;
/*:274*//*275:*/
#line 2458 "./marpa.w"
Marpa_Rank t_rank;
/*:275*/
#line 2089 "./marpa.w"
/*279:*/
#line 2506 "./marpa.w"
BITFIELD t_null_ranks_high:1;
/*:279*//*283:*/
#line 2547 "./marpa.w"
BITFIELD t_is_bnf:1;
/*:283*//*285:*/
#line 2553 "./marpa.w"
BITFIELD t_is_sequence:1;
/*:285*//*287:*/
#line 2567 "./marpa.w"
int t_minimum;
/*:287*//*290:*/
#line 2592 "./marpa.w"
XSYID t_separator_id;
/*:290*//*295:*/
#line 2625 "./marpa.w"
BITFIELD t_is_discard:1;
/*:295*//*299:*/
#line 2665 "./marpa.w"
BITFIELD t_is_proper_separation:1;
/*:299*//*303:*/
#line 2686 "./marpa.w"
BITFIELD t_is_loop:1;
/*:303*//*306:*/
#line 2703 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:306*//*309:*/
#line 2721 "./marpa.w"
BITFIELD t_is_nullable:1;
/*:309*//*313:*/
#line 2739 "./marpa.w"
BITFIELD t_is_accessible:1;
/*:313*//*316:*/
#line 2757 "./marpa.w"
BITFIELD t_is_productive:1;
/*:316*//*319:*/
#line 2774 "./marpa.w"
BITFIELD t_is_used:1;
/*:319*/
#line 2090 "./marpa.w"
/*267:*/
#line 2393 "./marpa.w"
Marpa_Symbol_ID t_symbols[1];
/*:267*/
#line 2091 "./marpa.w"
};
/*:253*//*325:*/
#line 2805 "./marpa.w"
struct s_irl{
/*358:*/
#line 3018 "./marpa.w"
XRL t_source_xrl;
/*:358*//*364:*/
#line 3067 "./marpa.w"
AHM t_first_ahm;
/*:364*/
#line 2807 "./marpa.w"
/*328:*/
#line 2827 "./marpa.w"
IRLID t_irl_id;
/*:328*//*335:*/
#line 2864 "./marpa.w"
int t_length;
/*:335*//*337:*/
#line 2879 "./marpa.w"
int t_ahm_count;
/*:337*//*349:*/
#line 2958 "./marpa.w"
int t_real_symbol_count;
/*:349*//*352:*/
#line 2976 "./marpa.w"
int t_virtual_start;
/*:352*//*355:*/
#line 2996 "./marpa.w"
int t_virtual_end;
/*:355*//*361:*/
#line 3045 "./marpa.w"
Marpa_Rank t_rank;
/*:361*//*467:*/
#line 4853 "./marpa.w"
int t_symbol_instance_base;
int t_last_proper_symi;
/*:467*/
#line 2808 "./marpa.w"
/*340:*/
#line 2912 "./marpa.w"
BITFIELD t_is_virtual_lhs:1;
/*:340*//*343:*/
#line 2928 "./marpa.w"
BITFIELD t_is_virtual_rhs:1;
/*:343*//*346:*/
#line 2947 "./marpa.w"
BITFIELD t_is_right_recursive:1;
/*:346*/
#line 2809 "./marpa.w"
/*330:*/
#line 2832 "./marpa.w"
NSYID t_nsyid_array[1];
/*:330*/
#line 2810 "./marpa.w"
};
typedef struct s_irl IRL_Object;
/*:325*//*377:*/
#line 3251 "./marpa.w"
struct sym_rule_pair
{
XSYID t_symid;
RULEID t_ruleid;
};
/*:377*//*448:*/
#line 4727 "./marpa.w"
struct s_ahm{
/*457:*/
#line 4777 "./marpa.w"
IRL t_irl;
/*:457*//*470:*/
#line 4868 "./marpa.w"
CIL t_predicted_irl_cil;
CIL t_lhs_cil;
/*:470*//*471:*/
#line 4876 "./marpa.w"
CIL t_zwa_cil;
/*:471*//*491:*/
#line 5087 "./marpa.w"
CIL t_completion_xsyids;
CIL t_nulled_xsyids;
CIL t_prediction_xsyids;
/*:491*//*495:*/
#line 5117 "./marpa.w"
XRL t_xrl;
/*:495*//*498:*/
#line 5146 "./marpa.w"
CIL t_event_ahmids;
/*:498*/
#line 4729 "./marpa.w"
/*458:*/
#line 4787 "./marpa.w"
NSYID t_postdot_nsyid;
/*:458*//*459:*/
#line 4796 "./marpa.w"
int t_leading_nulls;
/*:459*//*460:*/
#line 4807 "./marpa.w"
int t_position;
/*:460*//*462:*/
#line 4823 "./marpa.w"
int t_quasi_position;
/*:462*//*464:*/
#line 4843 "./marpa.w"
int t_symbol_instance;
/*:464*//*496:*/
#line 5125 "./marpa.w"
int t_xrl_position;
/*:496*//*499:*/
#line 5150 "./marpa.w"
int t_event_group_size;
/*:499*/
#line 4730 "./marpa.w"
/*472:*/
#line 4885 "./marpa.w"
BITFIELD t_predicts_zwa:1;
/*:472*//*494:*/
#line 5108 "./marpa.w"
BITFIELD t_was_predicted:1;
BITFIELD t_is_initial:1;
/*:494*/
#line 4731 "./marpa.w"
};
/*:448*//*529:*/
#line 5644 "./marpa.w"
struct s_g_zwa{
ZWAID t_id;
BITFIELD t_default_value:1;
};
typedef struct s_g_zwa GZWA_Object;
/*:529*//*532:*/
#line 5661 "./marpa.w"
struct s_zwp{
XRLID t_xrl_id;
int t_dot;
ZWAID t_zwaid;
};
typedef struct s_zwp ZWP_Object;
/*:532*//*613:*/
#line 6462 "./marpa.w"
struct s_r_zwa{
ZWAID t_id;
YSID t_memoized_ysid;
BITFIELD t_default_value:1;
BITFIELD t_memoized_value:1;
};
typedef struct s_r_zwa ZWA_Object;
/*:613*//*624:*/
#line 6532 "./marpa.w"
struct s_earley_set_key{
JEARLEME t_earleme;
};
typedef struct s_earley_set_key YSK_Object;
/*:624*//*625:*/
#line 6537 "./marpa.w"
struct s_earley_set{
YSK_Object t_key;
union u_postdot_item**t_postdot_ary;
YS t_next_earley_set;
/*627:*/
#line 6553 "./marpa.w"
YIM*t_earley_items;
/*:627*//*1185:*/
#line 14102 "./marpa.w"
PSL t_dot_psl;
/*:1185*/
#line 6542 "./marpa.w"
int t_postdot_sym_count;
/*626:*/
#line 6550 "./marpa.w"
int t_yim_count;
/*:626*//*628:*/
#line 6564 "./marpa.w"
int t_ordinal;
/*:628*//*632:*/
#line 6582 "./marpa.w"
int t_value;
void*t_pvalue;
/*:632*/
#line 6544 "./marpa.w"
};
typedef struct s_earley_set YS_Object;
/*:625*//*655:*/
#line 6914 "./marpa.w"
struct s_earley_ix{
union u_postdot_item*t_next;
NSYID t_postdot_nsyid;
YIM t_earley_item;
};
typedef struct s_earley_ix YIX_Object;
/*:655*//*658:*/
#line 6950 "./marpa.w"
struct s_leo_item{
YIX_Object t_earley_ix;
/*659:*/
#line 6966 "./marpa.w"
CIL t_cil;
/*:659*/
#line 6953 "./marpa.w"
YS t_origin;
AHM t_top_ahm;
AHM t_trailhead_ahm;
LIM t_predecessor;
YIM t_base;
YS t_set;
BITFIELD t_is_rejected:1;
BITFIELD t_is_active:1;
};
typedef struct s_leo_item LIM_Object;
/*:658*//*661:*/
#line 6984 "./marpa.w"
union u_postdot_item{
LIM_Object t_leo;
YIX_Object t_earley;
};
typedef union u_postdot_item PIM_Object;
typedef union u_postdot_item*PIM;
/*:661*//*690:*/
#line 7348 "./marpa.w"
struct s_alternative{
YS t_start_earley_set;
JEARLEME t_end_earleme;
NSYID t_nsyid;
int t_value;
BITFIELD t_is_valued:1;
};
typedef struct s_alternative ALT_Object;
/*:690*//*846:*/
#line 9721 "./marpa.w"
struct s_ur_node_stack{
struct marpa_obstack*t_obs;
UR t_base;
UR t_top;
};
/*:846*//*847:*/
#line 9728 "./marpa.w"
struct s_ur_node{
UR t_prev;
UR t_next;
YIM t_earley_item;
};
typedef struct s_ur_node UR_Object;
/*:847*//*870:*/
#line 10010 "./marpa.w"
struct s_draft_or_node
{
/*869:*/
#line 10003 "./marpa.w"
/*868:*/
#line 10000 "./marpa.w"
int t_position;
/*:868*/
#line 10004 "./marpa.w"
int t_end_set_ordinal;
int t_start_set_ordinal;
ORID t_id;
IRL t_irl;
/*:869*/
#line 10013 "./marpa.w"
DAND t_draft_and_node;
};
/*:870*//*871:*/
#line 10017 "./marpa.w"
struct s_final_or_node
{
/*869:*/
#line 10003 "./marpa.w"
/*868:*/
#line 10000 "./marpa.w"
int t_position;
/*:868*/
#line 10004 "./marpa.w"
int t_end_set_ordinal;
int t_start_set_ordinal;
ORID t_id;
IRL t_irl;
/*:869*/
#line 10020 "./marpa.w"
int t_first_and_node_id;
int t_and_node_count;
};
/*:871*//*872:*/
#line 10025 "./marpa.w"
struct s_valued_token_or_node
{
/*868:*/
#line 10000 "./marpa.w"
int t_position;
/*:868*/
#line 10028 "./marpa.w"
NSYID t_nsyid;
int t_value;
};
/*:872*//*873:*/
#line 10036 "./marpa.w"
union u_or_node{
struct s_draft_or_node t_draft;
struct s_final_or_node t_final;
struct s_valued_token_or_node t_token;
};
typedef union u_or_node OR_Object;
/*:873*//*895:*/
#line 10384 "./marpa.w"
struct s_draft_and_node{
DAND t_next;
OR t_predecessor;
OR t_cause;
};
typedef struct s_draft_and_node DAND_Object;
/*:895*//*921:*/
#line 10783 "./marpa.w"
struct s_and_node{
OR t_current;
OR t_predecessor;
OR t_cause;
};
typedef struct s_and_node AND_Object;
/*:921*//*937:*/
#line 10941 "./marpa.w"
struct s_bocage_setup_per_ys{
OR*t_or_node_by_item;
PSL t_or_psl;
PSL t_and_psl;
};
/*:937*//*963:*/
#line 11163 "./marpa.w"
struct marpa_order{
struct marpa_obstack*t_ordering_obs;
ANDID**t_and_node_orderings;
/*966:*/
#line 11181 "./marpa.w"
BOCAGE t_bocage;
/*:966*/
#line 11167 "./marpa.w"
/*969:*/
#line 11201 "./marpa.w"
int t_ref_count;
/*:969*//*976:*/
#line 11257 "./marpa.w"
int t_ambiguity_metric;
/*:976*//*981:*/
#line 11289 "./marpa.w"
int t_high_rank_count;
/*:981*/
#line 11168 "./marpa.w"
/*979:*/
#line 11271 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:979*/
#line 11169 "./marpa.w"
BITFIELD t_is_frozen:1;
};
/*:963*//*1000:*/
#line 11625 "./marpa.w"
/*1035:*/
#line 12071 "./marpa.w"
struct s_nook{
OR t_or_node;
int t_choice;
NOOKID t_parent;
BITFIELD t_is_cause_ready:1;
BITFIELD t_is_predecessor_ready:1;
BITFIELD t_is_cause_of_parent:1;
BITFIELD t_is_predecessor_of_parent:1;
};
typedef struct s_nook NOOK_Object;
/*:1035*/
#line 11626 "./marpa.w"
/*1040:*/
#line 12119 "./marpa.w"
struct s_value{
struct marpa_value public;
Marpa_Tree t_tree;
/*1044:*/
#line 12197 "./marpa.w"
struct marpa_obstack*t_obs;
/*:1044*//*1049:*/
#line 12244 "./marpa.w"
MARPA_DSTACK_DECLARE(t_virtual_stack);
/*:1049*//*1071:*/
#line 12397 "./marpa.w"
LBV t_xsy_is_valued;
LBV t_xrl_is_valued;
LBV t_valued_locked;
/*:1071*/
#line 12123 "./marpa.w"
/*1054:*/
#line 12292 "./marpa.w"
int t_ref_count;
/*:1054*//*1066:*/
#line 12373 "./marpa.w"
NOOKID t_nook;
/*:1066*/
#line 12124 "./marpa.w"
int t_token_type;
int t_next_value_type;
/*1061:*/
#line 12345 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:1061*//*1063:*/
#line 12352 "./marpa.w"
BITFIELD t_trace:1;
/*:1063*/
#line 12127 "./marpa.w"
};
/*:1040*/
#line 11627 "./marpa.w"
struct marpa_tree{
FSTACK_DECLARE(t_nook_stack,NOOK_Object)
FSTACK_DECLARE(t_nook_worklist,int)
Bit_Vector t_or_node_in_use;
Marpa_Order t_order;
/*1006:*/
#line 11698 "./marpa.w"
int t_ref_count;
/*:1006*//*1013:*/
#line 11778 "./marpa.w"
int t_pause_counter;
/*:1013*/
#line 11633 "./marpa.w"
/*1019:*/
#line 11849 "./marpa.w"
BITFIELD t_is_exhausted:1;
/*:1019*//*1022:*/
#line 11857 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:1022*/
#line 11634 "./marpa.w"
int t_parse_count;
};
/*:1000*//*1128:*/
#line 13395 "./marpa.w"
struct s_bit_matrix{
int t_row_count;
Bit_Vector_Word t_row_data[1];
};
typedef struct s_bit_matrix*Bit_Matrix;
typedef struct s_bit_matrix Bit_Matrix_Object;
/*:1128*//*1149:*/
#line 13613 "./marpa.w"
struct s_dqueue{int t_current;struct marpa_dstack_s t_stack;};
/*:1149*//*1175:*/
#line 14005 "./marpa.w"
struct s_per_earley_set_list{
PSL t_prev;
PSL t_next;
PSL*t_owner;
void*t_data[1];
};
typedef struct s_per_earley_set_list PSL_Object;
/*:1175*//*1177:*/
#line 14030 "./marpa.w"
struct s_per_earley_set_arena{
int t_psl_length;
PSL t_first_psl;
PSL t_first_free_psl;
};
typedef struct s_per_earley_set_arena PSAR_Object;
/*:1177*/
#line 15898 "./marpa.w"
/*:1334*//*1335:*/
#line 15903 "./marpa.w"
/*41:*/
#line 608 "./marpa.w"
const int marpa_major_version= MARPA_LIB_MAJOR_VERSION;
const int marpa_minor_version= MARPA_LIB_MINOR_VERSION;
const int marpa_micro_version= MARPA_LIB_MICRO_VERSION;
/*:41*//*819:*/
#line 9391 "./marpa.w"
static const struct marpa_progress_item progress_report_not_ready= {-2,-2,-2};
/*:819*//*874:*/
#line 10044 "./marpa.w"
static const int dummy_or_node_type= DUMMY_OR_NODE;
static const OR dummy_or_node= (OR)&dummy_or_node_type;
/*:874*//*1094:*/
#line 12919 "./marpa.w"
static const unsigned int bv_wordbits= lbv_wordbits;
static const unsigned int bv_modmask= lbv_wordbits-1u;
static const unsigned int bv_hiddenwords= 3;
static const unsigned int bv_lsb= lbv_lsb;
static const unsigned int bv_msb= lbv_msb;
/*:1094*/
#line 15904 "./marpa.w"
/*:1335*//*1336:*/
#line 15906 "./marpa.w"
/*545:*/
#line 5852 "./marpa.w"
struct marpa_r{
/*553:*/
#line 5931 "./marpa.w"
GRAMMAR t_grammar;
/*:553*//*560:*/
#line 5958 "./marpa.w"
YS t_first_earley_set;
YS t_latest_earley_set;
JEARLEME t_current_earleme;
/*:560*//*572:*/
#line 6034 "./marpa.w"
Bit_Vector t_lbv_xsyid_completion_event_is_active;
Bit_Vector t_lbv_xsyid_nulled_event_is_active;
Bit_Vector t_lbv_xsyid_prediction_event_is_active;
/*:572*//*575:*/
#line 6050 "./marpa.w"
Bit_Vector t_bv_nsyid_is_expected;
/*:575*//*579:*/
#line 6127 "./marpa.w"
LBV t_nsy_expected_is_event;
/*:579*//*601:*/
#line 6399 "./marpa.w"
Bit_Vector t_bv_irl_seen;
MARPA_DSTACK_DECLARE(t_irl_cil_stack);
/*:601*//*610:*/
#line 6453 "./marpa.w"
struct marpa_obstack*t_obs;
/*:610*//*614:*/
#line 6474 "./marpa.w"
ZWA t_zwas;
/*:614*//*691:*/
#line 7358 "./marpa.w"
MARPA_DSTACK_DECLARE(t_alternatives);
/*:691*//*708:*/
#line 7653 "./marpa.w"
LBV t_valued_terminal;
LBV t_unvalued_terminal;
LBV t_valued;
LBV t_unvalued;
LBV t_valued_locked;
/*:708*//*716:*/
#line 7861 "./marpa.w"
MARPA_DSTACK_DECLARE(t_yim_work_stack);
/*:716*//*720:*/
#line 7876 "./marpa.w"
MARPA_DSTACK_DECLARE(t_completion_stack);
/*:720*//*724:*/
#line 7887 "./marpa.w"
MARPA_DSTACK_DECLARE(t_earley_set_stack);
/*:724*//*760:*/
#line 8466 "./marpa.w"
Bit_Vector t_bv_lim_symbols;
Bit_Vector t_bv_pim_symbols;
void**t_pim_workarea;
/*:760*//*779:*/
#line 8750 "./marpa.w"
void**t_lim_chain;
/*:779*//*814:*/
#line 9367 "./marpa.w"
const struct marpa_progress_item*t_current_report_item;
MARPA_AVL_TRAV t_progress_report_traverser;
/*:814*//*848:*/
#line 9737 "./marpa.w"
struct s_ur_node_stack t_ur_node_stack;
/*:848*//*1178:*/
#line 14038 "./marpa.w"
PSAR_Object t_dot_psar_object;
/*:1178*//*1228:*/
#line 14484 "./marpa.w"
struct s_earley_set*t_trace_earley_set;
/*:1228*//*1235:*/
#line 14559 "./marpa.w"
YIM t_trace_earley_item;
/*:1235*//*1249:*/
#line 14758 "./marpa.w"
union u_postdot_item**t_trace_pim_nsy_p;
union u_postdot_item*t_trace_postdot_item;
/*:1249*//*1256:*/
#line 14902 "./marpa.w"
SRCL t_trace_source_link;
/*:1256*/
#line 5854 "./marpa.w"
/*548:*/
#line 5881 "./marpa.w"
int t_ref_count;
/*:548*//*564:*/
#line 5988 "./marpa.w"
int t_earley_item_warning_threshold;
/*:564*//*568:*/
#line 6017 "./marpa.w"
JEARLEME t_furthest_earleme;
/*:568*//*573:*/
#line 6038 "./marpa.w"
int t_active_event_count;
/*:573*//*608:*/
#line 6446 "./marpa.w"
YSID t_first_inconsistent_ys;
/*:608*//*629:*/
#line 6568 "./marpa.w"
int t_earley_set_count;
/*:629*/
#line 5855 "./marpa.w"
/*557:*/
#line 5949 "./marpa.w"
BITFIELD t_input_phase:2;
/*:557*//*597:*/
#line 6366 "./marpa.w"
BITFIELD t_use_leo_flag:1;
BITFIELD t_is_using_leo:1;
/*:597*//*604:*/
#line 6418 "./marpa.w"
BITFIELD t_is_exhausted:1;
/*:604*//*1257:*/
#line 14904 "./marpa.w"
BITFIELD t_trace_source_type:3;
/*:1257*/
#line 5856 "./marpa.w"
};
/*:545*/
#line 15907 "./marpa.w"
/*671:*/
#line 7072 "./marpa.w"
struct s_token_source{
NSYID t_nsyid;
int t_value;
};
/*:671*//*672:*/
#line 7081 "./marpa.w"
struct s_source{
void*t_predecessor;
union{
void*t_completion;
struct s_token_source t_token;
}t_cause;
BITFIELD t_is_rejected:1;
BITFIELD t_is_active:1;
};
/*:672*//*674:*/
#line 7096 "./marpa.w"
struct s_source_link{
SRCL t_next;
struct s_source t_source;
};
typedef struct s_source_link SRCL_Object;
/*:674*//*675:*/
#line 7103 "./marpa.w"
struct s_ambiguous_source{
SRCL t_leo;
SRCL t_token;
SRCL t_completion;
};
/*:675*//*676:*/
#line 7110 "./marpa.w"
union u_source_container{
struct s_ambiguous_source t_ambiguous;
struct s_source_link t_unique;
};
/*:676*/
#line 15908 "./marpa.w"
/*646:*/
#line 6761 "./marpa.w"
struct s_earley_item_key{
AHM t_ahm;
YS t_origin;
YS t_set;
};
typedef struct s_earley_item_key YIK_Object;
struct s_earley_item{
YIK_Object t_key;
union u_source_container t_container;
BITFIELD t_ordinal:YIM_ORDINAL_WIDTH;
BITFIELD t_source_type:3;
BITFIELD t_is_rejected:1;
BITFIELD t_is_active:1;
BITFIELD t_was_scanned:1;
BITFIELD t_was_fusion:1;
};
typedef struct s_earley_item YIM_Object;
/*:646*/
#line 15909 "./marpa.w"
/*927:*/
#line 10841 "./marpa.w"
struct marpa_bocage{
/*875:*/
#line 10055 "./marpa.w"
OR*t_or_nodes;
AND t_and_nodes;
/*:875*//*879:*/
#line 10084 "./marpa.w"
GRAMMAR t_grammar;
/*:879*//*930:*/
#line 10856 "./marpa.w"
struct marpa_obstack*t_obs;
/*:930*//*933:*/
#line 10915 "./marpa.w"
LBV t_valued_bv;
LBV t_valued_locked_bv;
/*:933*/
#line 10843 "./marpa.w"
/*876:*/
#line 10058 "./marpa.w"
int t_or_node_capacity;
int t_or_node_count;
int t_and_node_count;
ORID t_top_or_node_id;
/*:876*//*947:*/
#line 11063 "./marpa.w"
int t_ambiguity_metric;
/*:947*//*951:*/
#line 11077 "./marpa.w"
int t_ref_count;
/*:951*/
#line 10844 "./marpa.w"
/*958:*/
#line 11135 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:958*/
#line 10845 "./marpa.w"
};
/*:927*/
#line 15910 "./marpa.w"
/*:1336*/
#line 1 "./marpa.c.p40"
static RULE rule_new(GRAMMAR g,
const XSYID lhs, const XSYID *rhs, int length);
static int
duplicate_rule_cmp (const void *ap, const void *bp, void *param UNUSED);
static int sym_rule_cmp(
const void* ap,
const void* bp,
void *param UNUSED);
static int zwp_cmp (
const void* ap,
const void* bp,
void *param UNUSED);
static Marpa_Error_Code invalid_source_type_code(unsigned int type);
static void earley_item_ambiguate (struct marpa_r * r, YIM item);
static void
postdot_items_create (RECCE r,
Bit_Vector bv_ok_for_chain,
const YS current_earley_set);
static int report_item_cmp (
const void* ap,
const void* bp,
void *param UNUSED);
static int bv_scan(Bit_Vector bv, int raw_start, int* raw_min, int* raw_max);
static void transitive_closure(Bit_Matrix matrix);
static int
cil_cmp (const void *ap, const void *bp, void *param UNUSED);
static void
set_error (GRAMMAR g, Marpa_Error_Code code, const char* message, unsigned int flags);
static void*
marpa__default_out_of_memory(void);
static inline void
grammar_unref (GRAMMAR g);
static inline GRAMMAR
grammar_ref (GRAMMAR g);
static inline void grammar_free(GRAMMAR g);
static inline void symbol_add( GRAMMAR g, XSY symbol);
static inline int xsy_id_is_valid(GRAMMAR g, XSYID xsy_id);
static inline int nsy_is_valid(GRAMMAR g, NSYID nsyid);
static inline void
rule_add (GRAMMAR g, RULE rule);
static inline void event_new(GRAMMAR g, int type);
static inline void int_event_new(GRAMMAR g, int type, int value);
static inline XSY
symbol_new (GRAMMAR g);
static inline NSY symbol_alias_create(GRAMMAR g, XSY symbol);
static inline NSY
nsy_start(GRAMMAR g);
static inline NSY
nsy_new(GRAMMAR g, XSY source);
static inline NSY
semantic_nsy_new(GRAMMAR g, XSY source);
static inline NSY
nsy_clone(GRAMMAR g, XSY xsy);
static inline XRL xrl_start (GRAMMAR g, const XSYID lhs, const XSYID * rhs, int length);
static inline XRL xrl_finish(GRAMMAR g, XRL rule);
static inline IRL
irl_start(GRAMMAR g, int length);
static inline void
irl_finish( GRAMMAR g, IRL irl);
static inline Marpa_Symbol_ID rule_lhs_get(RULE rule);
static inline Marpa_Symbol_ID* rule_rhs_get(RULE rule);
static inline int ahm_is_valid(
GRAMMAR g, AHMID item_id);
static inline void
recce_unref (RECCE r);
static inline RECCE recce_ref (RECCE r);
static inline void recce_free(struct marpa_r *r);
static inline YS ys_at_current_earleme(RECCE r);
static inline YS
earley_set_new( RECCE r, JEARLEME id);
static inline YIM earley_item_create(const RECCE r,
const YIK_Object key);
static inline YIM
earley_item_assign (const RECCE r, const YS set, const YS origin,
const AHM ahm);
static inline PIM*
pim_nsy_p_find (YS set, NSYID nsyid);
static inline PIM first_pim_of_ys_by_nsyid(YS set, NSYID nsyid);
static inline SRCL unique_srcl_new( struct marpa_obstack* t_obs);
static inline void
completion_link_add (RECCE r,
YIM item,
YIM predecessor,
YIM cause);
static inline void
leo_link_add (RECCE r,
YIM item,
LIM predecessor,
YIM cause);
static inline int
alternative_insertion_point (RECCE r, ALT new_alternative);
static inline int alternative_cmp(const ALT_Const a, const ALT_Const b);
static inline ALT alternative_pop(RECCE r, JEARLEME earleme);
static inline int alternative_insert(RECCE r, ALT new_alternative);
static inline int evaluate_zwas(RECCE r, YSID ysid, AHM ahm);
static inline void trigger_events(RECCE r);
static inline void earley_set_update_items(RECCE r, YS set);
static inline void r_update_earley_sets(RECCE r);
static inline int alternative_is_acceptable(ALT alternative);
static inline void
progress_report_item_insert(MARPA_AVL_TREE report_tree,
AHM report_ahm,
YSID report_origin);
static inline void ur_node_stack_init(URS stack);
static inline void ur_node_stack_reset(URS stack);
static inline void ur_node_stack_destroy(URS stack);
static inline UR ur_node_new(URS stack, UR prev);
static inline void
ur_node_push (URS stack, YIM earley_item);
static inline UR
ur_node_pop (URS stack);
static inline void push_ur_if_new(
struct s_bocage_setup_per_ys* per_ys_data,
URS ur_node_stack, YIM yim);
static inline int psi_test_and_set(
struct s_bocage_setup_per_ys* per_ys_data,
YIM earley_item
);
static inline void
Set_boolean_in_PSI_for_initial_nulls (struct s_bocage_setup_per_ys *per_ys_data,
YIM yim);
static inline OR or_node_new(BOCAGE b);
static inline DAND draft_and_node_new(struct marpa_obstack *obs, OR predecessor, OR cause);
static inline void draft_and_node_add(struct marpa_obstack *obs, OR parent, OR predecessor, OR cause);
static inline OR or_by_origin_and_symi ( struct s_bocage_setup_per_ys *per_ys_data,
YSID origin,
SYMI symbol_instance);
static inline int dands_are_equal(OR predecessor_a, OR cause_a,
OR predecessor_b, OR cause_b);
static inline int dand_is_duplicate(OR parent, OR predecessor, OR cause);
static inline OR set_or_from_yim ( struct s_bocage_setup_per_ys *per_ys_data,
YIM psi_yim);
static inline OR safe_or_from_yim(
struct s_bocage_setup_per_ys* per_ys_data,
YIM yim);
static inline void
bocage_unref (BOCAGE b);
static inline BOCAGE
bocage_ref (BOCAGE b);
static inline void
bocage_free (BOCAGE b);
static inline void
order_unref (ORDER o);
static inline ORDER
order_ref (ORDER o);
static inline void order_free(ORDER o);
static inline ANDID and_order_ix_is_valid(ORDER o, OR or_node, int ix);
static inline ANDID and_order_get(ORDER o, OR or_node, int ix);
static inline void tree_exhaust(TREE t);
static inline void
tree_unref (TREE t);
static inline TREE
tree_ref (TREE t);
static inline void tree_free(TREE t);
static inline void
tree_pause (TREE t);
static inline void
tree_unpause (TREE t);
static inline int tree_or_node_try(TREE tree, ORID or_node_id);
static inline void tree_or_node_release(TREE tree, ORID or_node_id);
static inline void
value_unref (VALUE v);
static inline VALUE
value_ref (VALUE v);
static inline void value_free(VALUE v);
static inline int symbol_is_valued(
VALUE v,
Marpa_Symbol_ID xsy_id);
static inline int symbol_is_valued_set (
VALUE v, XSYID xsy_id, int value);
static inline int lbv_bits_to_size(int bits);
static inline Bit_Vector
lbv_obs_new (struct marpa_obstack *obs, int bits);
static inline Bit_Vector
lbv_zero (Bit_Vector lbv, int bits);
static inline Bit_Vector
lbv_obs_new0 (struct marpa_obstack *obs, int bits);
static inline LBV lbv_clone(
struct marpa_obstack* obs, LBV old_lbv, int bits);
static inline LBV lbv_fill(
LBV lbv, int bits);
static inline unsigned int bv_bits_to_size(int bits);
static inline unsigned int bv_bits_to_unused_mask(int bits);
static inline Bit_Vector bv_create(int bits);
static inline Bit_Vector
bv_obs_create (struct marpa_obstack *obs, int bits);
static inline Bit_Vector bv_shadow(Bit_Vector bv);
static inline Bit_Vector bv_obs_shadow(struct marpa_obstack * obs, Bit_Vector bv);
static inline Bit_Vector bv_copy(Bit_Vector bv_to, Bit_Vector bv_from);
static inline Bit_Vector bv_clone(Bit_Vector bv);
static inline Bit_Vector bv_obs_clone(struct marpa_obstack *obs, Bit_Vector bv);
static inline void bv_free(Bit_Vector vector);
static inline void bv_fill(Bit_Vector bv);
static inline void bv_clear(Bit_Vector bv);
static inline void bv_over_clear(Bit_Vector bv, int raw_bit);
static inline void bv_bit_set(Bit_Vector vector, int raw_bit);
static inline void bv_bit_clear(Bit_Vector vector, int raw_bit);
static inline int bv_bit_test(Bit_Vector vector, int raw_bit);
static inline int
bv_bit_test_then_set (Bit_Vector vector, int raw_bit);
static inline int bv_is_empty(Bit_Vector addr);
static inline void bv_not(Bit_Vector X, Bit_Vector Y);
static inline void bv_and(Bit_Vector X, Bit_Vector Y, Bit_Vector Z);
static inline void bv_or(Bit_Vector X, Bit_Vector Y, Bit_Vector Z);
static inline void bv_or_assign(Bit_Vector X, Bit_Vector Y);
static inline int
bv_count (Bit_Vector v);
static inline void
rhs_closure (GRAMMAR g, Bit_Vector bv, XRLID ** xrl_list_x_rh_sym);
static inline Bit_Matrix
matrix_buffer_create (void *buffer, int rows, int columns);
static inline size_t matrix_sizeof(int rows, int columns);
static inline Bit_Matrix matrix_obs_create(
struct marpa_obstack *obs,
int rows,
int columns);
static inline void matrix_clear(Bit_Matrix matrix);
static inline int matrix_columns(Bit_Matrix matrix);
static inline Bit_Vector matrix_row(Bit_Matrix matrix, int row);
static inline void matrix_bit_set(Bit_Matrix matrix, int row, int column);
static inline void matrix_bit_clear(Bit_Matrix matrix, int row, int column);
static inline int matrix_bit_test(Bit_Matrix matrix, int row, int column);
static inline void
cilar_init (const CILAR cilar);
static inline void
cilar_buffer_reinit (const CILAR cilar);
static inline void cilar_destroy(const CILAR cilar);
static inline CIL cil_empty(CILAR cilar);
static inline CIL cil_singleton(CILAR cilar, int element);
static inline CIL cil_buffer_add(CILAR cilar);
static inline CIL cil_bv_add(CILAR cilar, Bit_Vector bv);
static inline void cil_buffer_clear(CILAR cilar);
static inline CIL cil_buffer_push(CILAR cilar, int new_item);
static inline CIL cil_buffer_reserve(CILAR cilar, int element_count);
static inline CIL cil_merge(CILAR cilar, CIL cil1, CIL cil2);
static inline CIL cil_merge_one(CILAR cilar, CIL cil, int new_element);
static inline void
psar_safe (const PSAR psar);
static inline void
psar_init (const PSAR psar, int length);
static inline void psar_destroy(const PSAR psar);
static inline PSL psl_new(const PSAR psar);
static inline void psar_reset(const PSAR psar);
static inline void psar_dealloc(const PSAR psar);
static inline void psl_claim(
PSL* const psl_owner, const PSAR psar);
static inline PSL psl_claim_by_es(
PSAR or_psar,
struct s_bocage_setup_per_ys* per_ys_data,
YSID ysid);
static inline PSL psl_alloc(const PSAR psar);
static inline Marpa_Error_Code
clear_error (GRAMMAR g);
static inline void trace_earley_item_clear(RECCE r);
static inline void trace_source_link_clear(RECCE r);
/*1337:*/
#line 15912 "./marpa.w"
/*1225:*/
#line 14468 "./marpa.w"
extern void*(*const marpa__out_of_memory)(void);
/*:1225*//*1317:*/
#line 15728 "./marpa.w"
extern int marpa__default_debug_handler(const char*format,...);
extern int(*marpa__debug_handler)(const char*,...);
extern int marpa__debug_level;
/*:1317*/
#line 15913 "./marpa.w"
#if MARPA_DEBUG
/*1322:*/
#line 15760 "./marpa.w"
static const char*yim_tag_safe(
char*buffer,GRAMMAR g,YIM yim)UNUSED;
static const char*yim_tag(GRAMMAR g,YIM yim)UNUSED;
/*:1322*//*1324:*/
#line 15786 "./marpa.w"
static char*lim_tag_safe(char*buffer,LIM lim)UNUSED;
static char*lim_tag(LIM lim)UNUSED;
/*:1324*//*1326:*/
#line 15812 "./marpa.w"
static const char*or_tag_safe(char*buffer,OR or)UNUSED;
static const char*or_tag(OR or)UNUSED;
/*:1326*//*1328:*/
#line 15844 "./marpa.w"
static const char*ahm_tag_safe(char*buffer,AHM ahm)UNUSED;
static const char*ahm_tag(AHM ahm)UNUSED;
/*:1328*/
#line 15915 "./marpa.w"
/*1323:*/
#line 15765 "./marpa.w"
static const char*
yim_tag_safe(char*buffer,GRAMMAR g,YIM yim)
{
if(!yim)return"NULL";
sprintf(buffer,"S%d@%d-%d",
AHMID_of_YIM(yim),Origin_Earleme_of_YIM(yim),
Earleme_of_YIM(yim));
return buffer;
}
static char DEBUG_yim_tag_buffer[1000];
static const char*
yim_tag(GRAMMAR g,YIM yim)
{
return yim_tag_safe(DEBUG_yim_tag_buffer,g,yim);
}
/*:1323*//*1325:*/
#line 15791 "./marpa.w"
static char*
lim_tag_safe(char*buffer,LIM lim)
{
sprintf(buffer,"L%d@%d",
Postdot_NSYID_of_LIM(lim),Earleme_of_LIM(lim));
return buffer;
}
static char DEBUG_lim_tag_buffer[1000];
static char*
lim_tag(LIM lim)
{
return lim_tag_safe(DEBUG_lim_tag_buffer,lim);
}
/*:1325*//*1327:*/
#line 15816 "./marpa.w"
static const char*
or_tag_safe(char*buffer,OR or)
{
if(!or)return"NULL";
if(OR_is_Token(or))return"TOKEN";
if(Type_of_OR(or)==DUMMY_OR_NODE)return"DUMMY";
sprintf(buffer,"R%d:%d@%d-%d",
IRLID_of_OR(or),Position_of_OR(or),
Origin_Ord_of_OR(or),
YS_Ord_of_OR(or));
return buffer;
}
static char DEBUG_or_tag_buffer[1000];
static const char*
or_tag(OR or)
{
return or_tag_safe(DEBUG_or_tag_buffer,or);
}
/*:1327*//*1329:*/
#line 15847 "./marpa.w"
static const char*
ahm_tag_safe(char*buffer,AHM ahm)
{
if(!ahm)return"NULL";
const int ahm_position= Position_of_AHM(ahm);
if(ahm_position>=0){
sprintf(buffer,"R%d@%d",IRLID_of_AHM(ahm),Position_of_AHM(ahm));
}else{
sprintf(buffer,"R%d@end",IRLID_of_AHM(ahm));
}
return buffer;
}
static char DEBUG_ahm_tag_buffer[1000];
static const char*
ahm_tag(AHM ahm)
{
return ahm_tag_safe(DEBUG_ahm_tag_buffer,ahm);
}
/*:1329*/
#line 15916 "./marpa.w"
#endif
/*1321:*/
#line 15752 "./marpa.w"
int(*marpa__debug_handler)(const char*,...)=
marpa__default_debug_handler;
int marpa__debug_level= 0;
/*:1321*/
#line 15918 "./marpa.w"
/*42:*/
#line 619 "./marpa.w"
Marpa_Error_Code
marpa_check_version(int required_major,
int required_minor,
int required_micro)
{
if(required_major!=marpa_major_version)
return MARPA_ERR_MAJOR_VERSION_MISMATCH;
if(required_minor!=marpa_minor_version)
return MARPA_ERR_MINOR_VERSION_MISMATCH;
if(required_micro!=marpa_micro_version)
return MARPA_ERR_MICRO_VERSION_MISMATCH;
return MARPA_ERR_NONE;
}
/*:42*//*43:*/
#line 637 "./marpa.w"
Marpa_Error_Code
marpa_version(int*version)
{
*version++= marpa_major_version;
*version++= marpa_minor_version;
*version= marpa_micro_version;
return 0;
}
/*:43*//*46:*/
#line 656 "./marpa.w"
int marpa_c_init(Marpa_Config*config)
{
config->t_is_ok= I_AM_OK;
config->t_error= MARPA_ERR_NONE;
config->t_error_string= NULL;
return 0;
}
/*:46*//*47:*/
#line 665 "./marpa.w"
Marpa_Error_Code marpa_c_error(Marpa_Config*config,const char**p_error_string)
{
const Marpa_Error_Code error_code= config->t_error;
const char*error_string= config->t_error_string;
if(p_error_string){
*p_error_string= error_string;
}
return error_code;
}
const char*_marpa_tag(void)
{
#if defined(MARPA_TAG)
return STRINGIFY(MARPA_TAG);
#elif defined(__GNUC__)
return __DATE__" "__TIME__;
#else
return"[no tag]";
#endif
}
/*:47*//*52:*/
#line 702 "./marpa.w"
Marpa_Grammar marpa_g_new(Marpa_Config*configuration)
{
GRAMMAR g;
if(configuration&&configuration->t_is_ok!=I_AM_OK){
configuration->t_error= MARPA_ERR_I_AM_NOT_OK;
return NULL;
}
g= my_malloc(sizeof(struct marpa_g));
g->t_is_ok= 0;
/*55:*/
#line 723 "./marpa.w"
g->t_ref_count= 1;
/*:55*//*61:*/
#line 779 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_xsy_stack,XSY);
MARPA_DSTACK_SAFE(g->t_nsy_stack);
/*:61*//*70:*/
#line 835 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_xrl_stack,RULE);
MARPA_DSTACK_SAFE(g->t_irl_stack);
/*:70*//*80:*/
#line 883 "./marpa.w"
g->t_start_xsy_id= -1;
/*:80*//*84:*/
#line 917 "./marpa.w"
g->t_start_irl= NULL;
/*:84*//*87:*/
#line 931 "./marpa.w"
External_Size_of_G(g)= 0;
/*:87*//*90:*/
#line 944 "./marpa.w"
g->t_max_rule_length= 0;
/*:90*//*94:*/
#line 957 "./marpa.w"
g->t_default_rank= 0;
/*:94*//*99:*/
#line 992 "./marpa.w"
g->t_is_precomputed= 0;
/*:99*//*102:*/
#line 1004 "./marpa.w"
g->t_has_cycle= 0;
/*:102*//*105:*/
#line 1024 "./marpa.w"
g->t_bv_nsyid_is_terminal= NULL;
/*:105*//*107:*/
#line 1036 "./marpa.w"
g->t_lbv_xsyid_is_completion_event= NULL;
g->t_lbv_xsyid_is_nulled_event= NULL;
g->t_lbv_xsyid_is_prediction_event= NULL;
/*:107*//*114:*/
#line 1074 "./marpa.w"
MARPA_DSTACK_INIT(g->t_events,GEV_Object,INITIAL_G_EVENTS_CAPACITY);
/*:114*//*122:*/
#line 1146 "./marpa.w"
(g)->t_xrl_tree= _marpa_avl_create(duplicate_rule_cmp,NULL);
/*:122*//*126:*/
#line 1177 "./marpa.w"
g->t_obs= marpa_obs_init;
g->t_xrl_obs= marpa_obs_init;
/*:126*//*129:*/
#line 1193 "./marpa.w"
cilar_init(&(g)->t_cilar);
/*:129*//*138:*/
#line 1241 "./marpa.w"
g->t_error= MARPA_ERR_NONE;
g->t_error_string= NULL;
/*:138*//*164:*/
#line 1405 "./marpa.w"
g->t_force_valued= 0;
/*:164*//*454:*/
#line 4759 "./marpa.w"
g->t_ahms= NULL;
/*:454*//*526:*/
#line 5632 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_gzwa_stack,GZWA);
/*:526*//*534:*/
#line 5671 "./marpa.w"
(g)->t_zwp_tree= _marpa_avl_create(zwp_cmp,NULL);
/*:534*/
#line 714 "./marpa.w"
g->t_is_ok= I_AM_OK;
return g;
}
/*:52*//*56:*/
#line 733 "./marpa.w"
PRIVATE
void
grammar_unref(GRAMMAR g)
{
MARPA_ASSERT(g->t_ref_count> 0)
g->t_ref_count--;
if(g->t_ref_count<=0)
{
grammar_free(g);
}
}
void
marpa_g_unref(Marpa_Grammar g)
{grammar_unref(g);}
/*:56*//*58:*/
#line 750 "./marpa.w"
PRIVATE GRAMMAR
grammar_ref(GRAMMAR g)
{
MARPA_ASSERT(g->t_ref_count> 0)
g->t_ref_count++;
return g;
}
Marpa_Grammar
marpa_g_ref(Marpa_Grammar g)
{return grammar_ref(g);}
/*:58*//*59:*/
#line 762 "./marpa.w"
PRIVATE
void grammar_free(GRAMMAR g)
{
/*62:*/
#line 783 "./marpa.w"
{
MARPA_DSTACK_DESTROY(g->t_xsy_stack);
MARPA_DSTACK_DESTROY(g->t_nsy_stack);
}
/*:62*//*71:*/
#line 839 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_irl_stack);
MARPA_DSTACK_DESTROY(g->t_xrl_stack);
/*:71*//*115:*/
#line 1076 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_events);
/*:115*//*124:*/
#line 1153 "./marpa.w"
/*123:*/
#line 1148 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:123*/
#line 1154 "./marpa.w"
/*:124*//*127:*/
#line 1180 "./marpa.w"
marpa_obs_free(g->t_obs);
marpa_obs_free(g->t_xrl_obs);
/*:127*//*130:*/
#line 1195 "./marpa.w"
cilar_destroy(&(g)->t_cilar);
/*:130*//*455:*/
#line 4761 "./marpa.w"
my_free(g->t_ahms);
/*:455*//*527:*/
#line 5634 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_gzwa_stack);
/*:527*//*535:*/
#line 5673 "./marpa.w"
{
_marpa_avl_destroy((g)->t_zwp_tree);
(g)->t_zwp_tree= NULL;
}
/*:535*//*536:*/
#line 5679 "./marpa.w"
/*123:*/
#line 1148 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:123*/
#line 5680 "./marpa.w"
/*:536*/
#line 766 "./marpa.w"
my_free(g);
}
/*:59*//*64:*/
#line 791 "./marpa.w"
int marpa_g_highest_symbol_id(Marpa_Grammar g){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 793 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 794 "./marpa.w"
return XSY_Count_of_G(g)-1;
}
/*:64*//*66:*/
#line 803 "./marpa.w"
PRIVATE
void symbol_add(GRAMMAR g,XSY symbol)
{
const XSYID new_id= MARPA_DSTACK_LENGTH((g)->t_xsy_stack);
*MARPA_DSTACK_PUSH((g)->t_xsy_stack,XSY)= symbol;
symbol->t_symbol_id= new_id;
}
/*:66*//*67:*/
#line 815 "./marpa.w"
PRIVATE int xsy_id_is_valid(GRAMMAR g,XSYID xsy_id)
{
return!XSYID_is_Malformed(xsy_id)&&XSYID_of_G_Exists(xsy_id);
}
/*:67*//*68:*/
#line 822 "./marpa.w"
PRIVATE int nsy_is_valid(GRAMMAR g,NSYID nsyid)
{
return nsyid>=0&&nsyid<NSY_Count_of_G(g);
}
/*:68*//*75:*/
#line 846 "./marpa.w"
int marpa_g_highest_rule_id(Marpa_Grammar g){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 848 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 849 "./marpa.w"
return XRL_Count_of_G(g)-1;
}
int _marpa_g_irl_count(Marpa_Grammar g){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 853 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 854 "./marpa.w"
return IRL_Count_of_G(g);
}
/*:75*//*77:*/
#line 864 "./marpa.w"
PRIVATE void
rule_add(GRAMMAR g,RULE rule)
{
const RULEID new_id= MARPA_DSTACK_LENGTH((g)->t_xrl_stack);
*MARPA_DSTACK_PUSH((g)->t_xrl_stack,RULE)= rule;
rule->t_id= new_id;
External_Size_of_G(g)+= 1+Length_of_XRL(rule);
g->t_max_rule_length= MAX(Length_of_XRL(rule),g->t_max_rule_length);
}
/*:77*//*81:*/
#line 885 "./marpa.w"
Marpa_Symbol_ID marpa_g_start_symbol(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 888 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 889 "./marpa.w"
return g->t_start_xsy_id;
}
/*:81*//*82:*/
#line 898 "./marpa.w"
Marpa_Symbol_ID marpa_g_start_symbol_set(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 901 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 902 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 903 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 904 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 905 "./marpa.w"
return g->t_start_xsy_id= xsy_id;
}
/*:82*//*95:*/
#line 959 "./marpa.w"
Marpa_Rank marpa_g_default_rank(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 962 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 964 "./marpa.w"
return Default_Rank_of_G(g);
}
/*:95*//*96:*/
#line 969 "./marpa.w"
Marpa_Rank marpa_g_default_rank_set(Marpa_Grammar g,Marpa_Rank rank)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 972 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 974 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 975 "./marpa.w"
if(_MARPA_UNLIKELY(rank<MINIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_LOW);
return failure_indicator;
}
if(_MARPA_UNLIKELY(rank> MAXIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_HIGH);
return failure_indicator;
}
return Default_Rank_of_G(g)= rank;
}
/*:96*//*100:*/
#line 994 "./marpa.w"
int marpa_g_is_precomputed(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 997 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 998 "./marpa.w"
return G_is_Precomputed(g);
}
/*:100*//*103:*/
#line 1006 "./marpa.w"
int marpa_g_has_cycle(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1009 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1010 "./marpa.w"
return g->t_has_cycle;
}
/*:103*//*117:*/
#line 1086 "./marpa.w"
PRIVATE
void event_new(GRAMMAR g,int type)
{
GEV end_of_stack= G_EVENT_PUSH(g);
end_of_stack->t_type= type;
end_of_stack->t_value= 0;
}
/*:117*//*118:*/
#line 1096 "./marpa.w"
PRIVATE
void int_event_new(GRAMMAR g,int type,int value)
{
GEV end_of_stack= G_EVENT_PUSH(g);
end_of_stack->t_type= type;
end_of_stack->t_value= value;
}
/*:118*//*119:*/
#line 1107 "./marpa.w"
Marpa_Event_Type
marpa_g_event(Marpa_Grammar g,Marpa_Event*public_event,
int ix)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1112 "./marpa.w"
MARPA_DSTACK events= &g->t_events;
GEV internal_event;
int type;
if(ix<0){
MARPA_ERROR(MARPA_ERR_EVENT_IX_NEGATIVE);
return failure_indicator;
}
if(ix>=MARPA_DSTACK_LENGTH(*events)){
MARPA_ERROR(MARPA_ERR_EVENT_IX_OOB);
return failure_indicator;
}
internal_event= MARPA_DSTACK_INDEX(*events,GEV_Object,ix);
type= internal_event->t_type;
public_event->t_type= type;
public_event->t_value= internal_event->t_value;
return type;
}
/*:119*//*120:*/
#line 1132 "./marpa.w"
Marpa_Event_Type
marpa_g_event_count(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1136 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1137 "./marpa.w"
return MARPA_DSTACK_LENGTH(g->t_events);
}
/*:120*//*140:*/
#line 1252 "./marpa.w"
Marpa_Error_Code marpa_g_error(Marpa_Grammar g,const char**p_error_string)
{
const Marpa_Error_Code error_code= g->t_error;
const char*error_string= g->t_error_string;
if(p_error_string){
*p_error_string= error_string;
}
return error_code;
}
/*:140*//*141:*/
#line 1263 "./marpa.w"
Marpa_Error_Code
marpa_g_error_clear(Marpa_Grammar g)
{
clear_error(g);
return g->t_error;
}
/*:141*//*147:*/
#line 1293 "./marpa.w"
PRIVATE XSY
symbol_new(GRAMMAR g)
{
XSY xsy= marpa_obs_new(g->t_obs,struct s_xsy,1);
/*150:*/
#line 1313 "./marpa.w"
xsy->t_is_start= 0;
/*:150*//*153:*/
#line 1327 "./marpa.w"
xsy->t_rank= Default_Rank_of_G(g);
/*:153*//*157:*/
#line 1373 "./marpa.w"
XSY_is_LHS(xsy)= 0;
/*:157*//*159:*/
#line 1380 "./marpa.w"
XSY_is_Sequence_LHS(xsy)= 0;
/*:159*//*161:*/
#line 1396 "./marpa.w"
XSY_is_Valued(xsy)= g->t_force_valued?1:0;
XSY_is_Valued_Locked(xsy)= g->t_force_valued?1:0;
/*:161*//*169:*/
#line 1464 "./marpa.w"
xsy->t_is_accessible= 0;
/*:169*//*172:*/
#line 1485 "./marpa.w"
xsy->t_is_counted= 0;
/*:172*//*175:*/
#line 1501 "./marpa.w"
xsy->t_is_nulling= 0;
/*:175*//*178:*/
#line 1518 "./marpa.w"
xsy->t_is_nullable= 0;
/*:178*//*181:*/
#line 1541 "./marpa.w"
xsy->t_is_terminal= 0;
xsy->t_is_locked_terminal= 0;
/*:181*//*186:*/
#line 1586 "./marpa.w"
xsy->t_is_productive= 0;
/*:186*//*189:*/
#line 1605 "./marpa.w"
xsy->t_is_completion_event= 0;
/*:189*//*193:*/
#line 1640 "./marpa.w"
xsy->t_is_nulled_event= 0;
/*:193*//*197:*/
#line 1675 "./marpa.w"
xsy->t_is_prediction_event= 0;
/*:197*//*202:*/
#line 1723 "./marpa.w"
Nulled_XSYIDs_of_XSY(xsy)= NULL;
/*:202*//*205:*/
#line 1739 "./marpa.w"
NSY_of_XSY(xsy)= NULL;
/*:205*//*209:*/
#line 1771 "./marpa.w"
Nulling_NSY_of_XSY(xsy)= NULL;
/*:209*/
#line 1298 "./marpa.w"
symbol_add(g,xsy);
return xsy;
}
/*:147*//*148:*/
#line 1303 "./marpa.w"
Marpa_Symbol_ID
marpa_g_symbol_new(Marpa_Grammar g)
{
const XSY symbol= symbol_new(g);
return ID_of_XSY(symbol);
}
/*:148*//*151:*/
#line 1314 "./marpa.w"
int marpa_g_symbol_is_start(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1317 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1318 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1319 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1320 "./marpa.w"
return XSY_by_ID(xsy_id)->t_is_start;
}
/*:151*//*154:*/
#line 1330 "./marpa.w"
int marpa_g_symbol_rank(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1335 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1337 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1338 "./marpa.w"
/*1203:*/
#line 14258 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1203*/
#line 1339 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
return Rank_of_XSY(xsy);
}
/*:154*//*155:*/
#line 1343 "./marpa.w"
int marpa_g_symbol_rank_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,Marpa_Rank rank)
{
XSY xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1348 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1350 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 1351 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1352 "./marpa.w"
/*1203:*/
#line 14258 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1203*/
#line 1353 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(rank<MINIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_LOW);
return failure_indicator;
}
if(_MARPA_UNLIKELY(rank> MAXIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_HIGH);
return failure_indicator;
}
return Rank_of_XSY(xsy)= rank;
}
/*:155*//*165:*/
#line 1407 "./marpa.w"
int marpa_g_force_valued(Marpa_Grammar g)
{
XSYID xsyid;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1411 "./marpa.w"
for(xsyid= 0;xsyid<XSY_Count_of_G(g);xsyid++){
const XSY xsy= XSY_by_ID(xsyid);
if(!XSY_is_Valued(xsy)&&XSY_is_Valued_Locked(xsy))
{
MARPA_ERROR(MARPA_ERR_VALUED_IS_LOCKED);
return failure_indicator;
}
XSY_is_Valued(xsy)= 1;
XSY_is_Valued_Locked(xsy)= 1;
}
g->t_force_valued= 1;
return 0;
}
/*:165*//*166:*/
#line 1426 "./marpa.w"
int marpa_g_symbol_is_valued(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1431 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1432 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1433 "./marpa.w"
return XSY_is_Valued(XSY_by_ID(xsy_id));
}
/*:166*//*167:*/
#line 1437 "./marpa.w"
int marpa_g_symbol_is_valued_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY symbol;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1442 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1443 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1444 "./marpa.w"
symbol= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
if(_MARPA_UNLIKELY(XSY_is_Valued_Locked(symbol)
&&value!=XSY_is_Valued(symbol)))
{
MARPA_ERROR(MARPA_ERR_VALUED_IS_LOCKED);
return failure_indicator;
}
XSY_is_Valued(symbol)= Boolean(value);
return value;
}
/*:167*//*170:*/
#line 1472 "./marpa.w"
int marpa_g_symbol_is_accessible(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1475 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1476 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1477 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1478 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1479 "./marpa.w"
return XSY_is_Accessible(XSY_by_ID(xsy_id));
}
/*:170*//*173:*/
#line 1487 "./marpa.w"
int marpa_g_symbol_is_counted(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1491 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1492 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1493 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1494 "./marpa.w"
return XSY_by_ID(xsy_id)->t_is_counted;
}
/*:173*//*176:*/
#line 1503 "./marpa.w"
int marpa_g_symbol_is_nulling(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1506 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1507 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1508 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1509 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1510 "./marpa.w"
return XSY_is_Nulling(XSY_by_ID(xsy_id));
}
/*:176*//*179:*/
#line 1520 "./marpa.w"
int marpa_g_symbol_is_nullable(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1523 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1524 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1525 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1526 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1527 "./marpa.w"
return XSYID_is_Nullable(xsy_id);
}
/*:179*//*183:*/
#line 1547 "./marpa.w"
int marpa_g_symbol_is_terminal(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1551 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1552 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1553 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1554 "./marpa.w"
return XSYID_is_Terminal(xsy_id);
}
/*:183*//*184:*/
#line 1557 "./marpa.w"
int marpa_g_symbol_is_terminal_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY symbol;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1562 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1563 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 1564 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1565 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1566 "./marpa.w"
symbol= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
if(_MARPA_UNLIKELY(XSY_is_Locked_Terminal(symbol))
&&XSY_is_Terminal(symbol)!=value)
{
MARPA_ERROR(MARPA_ERR_TERMINAL_IS_LOCKED);
return failure_indicator;
}
XSY_is_Locked_Terminal(symbol)= 1;
return XSY_is_Terminal(symbol)= Boolean(value);
}
/*:184*//*187:*/
#line 1588 "./marpa.w"
int marpa_g_symbol_is_productive(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1593 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1594 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1595 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1596 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1597 "./marpa.w"
return XSY_is_Productive(XSY_by_ID(xsy_id));
}
/*:187*//*190:*/
#line 1607 "./marpa.w"
int marpa_g_symbol_is_completion_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1611 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1612 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1613 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1614 "./marpa.w"
return XSYID_is_Completion_Event(xsy_id);
}
/*:190*//*191:*/
#line 1617 "./marpa.w"
int marpa_g_symbol_is_completion_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1622 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1623 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 1624 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1625 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1626 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
return XSY_is_Completion_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:191*//*194:*/
#line 1642 "./marpa.w"
int marpa_g_symbol_is_nulled_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1646 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1647 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1648 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1649 "./marpa.w"
return XSYID_is_Nulled_Event(xsy_id);
}
/*:194*//*195:*/
#line 1652 "./marpa.w"
int marpa_g_symbol_is_nulled_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1657 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1658 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 1659 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1660 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1661 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
return XSY_is_Nulled_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:195*//*198:*/
#line 1677 "./marpa.w"
int marpa_g_symbol_is_prediction_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1681 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1682 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1683 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1684 "./marpa.w"
return XSYID_is_Prediction_Event(xsy_id);
}
/*:198*//*199:*/
#line 1687 "./marpa.w"
int marpa_g_symbol_is_prediction_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1692 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1693 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 1694 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1695 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1696 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
return XSY_is_Prediction_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:199*//*200:*/
#line 1706 "./marpa.w"
/*:200*//*206:*/
#line 1740 "./marpa.w"
Marpa_NSY_ID _marpa_g_xsy_nsy(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
NSY nsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1747 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1748 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1749 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
nsy= NSY_of_XSY(xsy);
return nsy?ID_of_NSY(nsy):-1;
}
/*:206*//*210:*/
#line 1772 "./marpa.w"
Marpa_NSY_ID _marpa_g_xsy_nulling_nsy(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
NSY nsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1779 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 1780 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 1781 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
nsy= Nulling_NSY_of_XSY(xsy);
return nsy?ID_of_NSY(nsy):-1;
}
/*:210*//*212:*/
#line 1793 "./marpa.w"
PRIVATE
NSY symbol_alias_create(GRAMMAR g,XSY symbol)
{
NSY alias_nsy= semantic_nsy_new(g,symbol);
XSY_is_Nulling(symbol)= 0;
XSY_is_Nullable(symbol)= 1;
NSY_is_Nulling(alias_nsy)= 1;
return alias_nsy;
}
/*:212*//*219:*/
#line 1851 "./marpa.w"
PRIVATE NSY
nsy_start(GRAMMAR g)
{
const NSY nsy= marpa_obs_new(g->t_obs,struct s_nsy,1);
ID_of_NSY(nsy)= MARPA_DSTACK_LENGTH((g)->t_nsy_stack);
*MARPA_DSTACK_PUSH((g)->t_nsy_stack,NSY)= nsy;
/*217:*/
#line 1843 "./marpa.w"
nsy->t_nulling_or_node.t_or_node_type= NULLING_TOKEN_OR_NODE;
nsy->t_unvalued_or_node.t_or_node_type= UNVALUED_TOKEN_OR_NODE;
nsy->t_unvalued_or_node.t_nsyid= ID_of_NSY(nsy);
/*:217*//*227:*/
#line 1919 "./marpa.w"
NSY_is_Start(nsy)= 0;
/*:227*//*230:*/
#line 1933 "./marpa.w"
NSY_is_LHS(nsy)= 0;
/*:230*//*233:*/
#line 1947 "./marpa.w"
NSY_is_Nulling(nsy)= 0;
/*:233*//*236:*/
#line 1964 "./marpa.w"
LHS_CIL_of_NSY(nsy)= NULL;
/*:236*//*238:*/
#line 1972 "./marpa.w"
NSY_is_Semantic(nsy)= 0;
/*:238*//*241:*/
#line 1995 "./marpa.w"
Source_XSY_of_NSY(nsy)= NULL;
/*:241*//*245:*/
#line 2020 "./marpa.w"
LHS_XRL_of_NSY(nsy)= NULL;
XRL_Offset_of_NSY(nsy)= -1;
/*:245*//*250:*/
#line 2071 "./marpa.w"
Rank_of_NSY(nsy)= Default_Rank_of_G(g)*EXTERNAL_RANK_FACTOR+MAXIMUM_CHAF_RANK;
/*:250*/
#line 1858 "./marpa.w"
return nsy;
}
/*:219*//*220:*/
#line 1864 "./marpa.w"
PRIVATE NSY
nsy_new(GRAMMAR g,XSY source)
{
const NSY new_nsy= nsy_start(g);
Source_XSY_of_NSY(new_nsy)= source;
Rank_of_NSY(new_nsy)= NSY_Rank_by_XSY(source);
return new_nsy;
}
/*:220*//*221:*/
#line 1876 "./marpa.w"
PRIVATE NSY
semantic_nsy_new(GRAMMAR g,XSY source)
{
const NSY new_nsy= nsy_new(g,source);
NSY_is_Semantic(new_nsy)= 1;
return new_nsy;
}
/*:221*//*222:*/
#line 1887 "./marpa.w"
PRIVATE NSY
nsy_clone(GRAMMAR g,XSY xsy)
{
const NSY new_nsy= nsy_start(g);
Source_XSY_of_NSY(new_nsy)= xsy;
NSY_is_Semantic(new_nsy)= 1;
Rank_of_NSY(new_nsy)= NSY_Rank_by_XSY(xsy);
NSY_is_Nulling(new_nsy)= XSY_is_Nulling(xsy);
return new_nsy;
}
/*:222*//*225:*/
#line 1909 "./marpa.w"
int _marpa_g_nsy_count(Marpa_Grammar g){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1911 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1912 "./marpa.w"
return NSY_Count_of_G(g);
}
/*:225*//*228:*/
#line 1920 "./marpa.w"
int _marpa_g_nsy_is_start(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1923 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1924 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1925 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 1926 "./marpa.w"
return NSY_is_Start(NSY_by_ID(nsy_id));
}
/*:228*//*231:*/
#line 1934 "./marpa.w"
int _marpa_g_nsy_is_lhs(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1937 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1938 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1939 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 1940 "./marpa.w"
return NSY_is_LHS(NSY_by_ID(nsy_id));
}
/*:231*//*234:*/
#line 1948 "./marpa.w"
int _marpa_g_nsy_is_nulling(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1951 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 1952 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 1953 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 1954 "./marpa.w"
return NSY_is_Nulling(NSY_by_ID(nsy_id));
}
/*:234*//*239:*/
#line 1973 "./marpa.w"
int _marpa_g_nsy_is_semantic(
Marpa_Grammar g,
Marpa_IRL_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 1978 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 1979 "./marpa.w"
return NSYID_is_Semantic(nsy_id);
}
/*:239*//*242:*/
#line 1996 "./marpa.w"
Marpa_Rule_ID _marpa_g_source_xsy(
Marpa_Grammar g,
Marpa_IRL_ID nsy_id)
{
XSY source_xsy;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2002 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 2003 "./marpa.w"
source_xsy= Source_XSY_of_NSYID(nsy_id);
return ID_of_XSY(source_xsy);
}
/*:242*//*247:*/
#line 2031 "./marpa.w"
Marpa_Rule_ID _marpa_g_nsy_lhs_xrl(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2034 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 2035 "./marpa.w"
{
const NSY nsy= NSY_by_ID(nsy_id);
const XRL lhs_xrl= LHS_XRL_of_NSY(nsy);
if(lhs_xrl)
return ID_of_XRL(lhs_xrl);
}
return-1;
}
/*:247*//*248:*/
#line 2055 "./marpa.w"
int _marpa_g_nsy_xrl_offset(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2058 "./marpa.w"
NSY nsy;
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 2060 "./marpa.w"
nsy= NSY_by_ID(nsy_id);
return XRL_Offset_of_NSY(nsy);
}
/*:248*//*251:*/
#line 2073 "./marpa.w"
Marpa_Rank _marpa_g_nsy_rank(
Marpa_Grammar g,
Marpa_NSY_ID nsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2078 "./marpa.w"
/*1204:*/
#line 14263 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1204*/
#line 2079 "./marpa.w"
return Rank_of_NSY(NSY_by_ID(nsy_id));
}
/*:251*//*257:*/
#line 2114 "./marpa.w"
PRIVATE
XRL xrl_start(GRAMMAR g,const XSYID lhs,const XSYID*rhs,int length)
{
XRL xrl;
const size_t sizeof_xrl= offsetof(struct s_xrl,t_symbols)+
((size_t)length+1)*sizeof(xrl->t_symbols[0]);
xrl= marpa_obs_start(g->t_xrl_obs,sizeof_xrl,ALIGNOF(XRL));
Length_of_XRL(xrl)= length;
xrl->t_symbols[0]= lhs;
XSY_is_LHS(XSY_by_ID(lhs))= 1;
{
int i;
for(i= 0;i<length;i++)
{
xrl->t_symbols[i+1]= rhs[i];
}
}
return xrl;
}
PRIVATE
XRL xrl_finish(GRAMMAR g,XRL rule)
{
/*276:*/
#line 2460 "./marpa.w"
rule->t_rank= Default_Rank_of_G(g);
/*:276*//*280:*/
#line 2508 "./marpa.w"
rule->t_null_ranks_high= 0;
/*:280*//*284:*/
#line 2548 "./marpa.w"
rule->t_is_bnf= 0;
/*:284*//*286:*/
#line 2554 "./marpa.w"
rule->t_is_sequence= 0;
/*:286*//*288:*/
#line 2568 "./marpa.w"
rule->t_minimum= -1;
/*:288*//*291:*/
#line 2593 "./marpa.w"
Separator_of_XRL(rule)= -1;
/*:291*//*296:*/
#line 2626 "./marpa.w"
rule->t_is_discard= 0;
/*:296*//*300:*/
#line 2666 "./marpa.w"
rule->t_is_proper_separation= 0;
/*:300*//*304:*/
#line 2687 "./marpa.w"
rule->t_is_loop= 0;
/*:304*//*307:*/
#line 2704 "./marpa.w"
XRL_is_Nulling(rule)= 0;
/*:307*//*310:*/
#line 2722 "./marpa.w"
XRL_is_Nullable(rule)= 0;
/*:310*//*314:*/
#line 2740 "./marpa.w"
XRL_is_Accessible(rule)= 1;
/*:314*//*317:*/
#line 2758 "./marpa.w"
XRL_is_Productive(rule)= 1;
/*:317*//*320:*/
#line 2776 "./marpa.w"
XRL_is_Used(rule)= 0;
/*:320*/
#line 2138 "./marpa.w"
rule_add(g,rule);
return rule;
}
PRIVATE_NOT_INLINE
RULE rule_new(GRAMMAR g,
const XSYID lhs,const XSYID*rhs,int length)
{
RULE rule= xrl_start(g,lhs,rhs,length);
xrl_finish(g,rule);
rule= marpa_obs_finish(g->t_xrl_obs);
return rule;
}
/*:257*//*258:*/
#line 2154 "./marpa.w"
PRIVATE IRL
irl_start(GRAMMAR g,int length)
{
IRL irl;
const size_t sizeof_irl= offsetof(struct s_irl,t_nsyid_array)+
((size_t)length+1)*sizeof(irl->t_nsyid_array[0]);
irl= marpa__obs_alloc(g->t_obs,sizeof_irl,ALIGNOF(IRL_Object));
ID_of_IRL(irl)= MARPA_DSTACK_LENGTH((g)->t_irl_stack);
Length_of_IRL(irl)= length;
/*341:*/
#line 2913 "./marpa.w"
IRL_has_Virtual_LHS(irl)= 0;
/*:341*//*344:*/
#line 2929 "./marpa.w"
IRL_has_Virtual_RHS(irl)= 0;
/*:344*//*347:*/
#line 2948 "./marpa.w"
IRL_is_Right_Recursive(irl)= 0;
/*:347*//*350:*/
#line 2959 "./marpa.w"
Real_SYM_Count_of_IRL(irl)= 0;
/*:350*//*353:*/
#line 2977 "./marpa.w"
irl->t_virtual_start= -1;
/*:353*//*356:*/
#line 2997 "./marpa.w"
irl->t_virtual_end= -1;
/*:356*//*359:*/
#line 3019 "./marpa.w"
Source_XRL_of_IRL(irl)= NULL;
/*:359*//*362:*/
#line 3046 "./marpa.w"
Rank_of_IRL(irl)= Default_Rank_of_G(g)*EXTERNAL_RANK_FACTOR+MAXIMUM_CHAF_RANK;
/*:362*//*365:*/
#line 3068 "./marpa.w"
First_AHM_of_IRL(irl)= NULL;
/*:365*//*468:*/
#line 4856 "./marpa.w"
Last_Proper_SYMI_of_IRL(irl)= -1;
/*:468*/
#line 2167 "./marpa.w"
*MARPA_DSTACK_PUSH((g)->t_irl_stack,IRL)= irl;
return irl;
}
PRIVATE void
irl_finish(GRAMMAR g,IRL irl)
{
const NSY lhs_nsy= LHS_of_IRL(irl);
NSY_is_LHS(lhs_nsy)= 1;
}
/*:258*//*260:*/
#line 2193 "./marpa.w"
Marpa_Rule_ID
marpa_g_rule_new(Marpa_Grammar g,
Marpa_Symbol_ID lhs_id,Marpa_Symbol_ID*rhs_ids,int length)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2198 "./marpa.w"
Marpa_Rule_ID rule_id;
RULE rule;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2201 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 2202 "./marpa.w"
if(_MARPA_UNLIKELY(length> MAX_RHS_LENGTH))
{
MARPA_ERROR(MARPA_ERR_RHS_TOO_LONG);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,lhs_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
{
int rh_index;
for(rh_index= 0;rh_index<length;rh_index++)
{
const XSYID rhs_id= rhs_ids[rh_index];
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,rhs_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
}
}
{
const XSY lhs= XSY_by_ID(lhs_id);
if(_MARPA_UNLIKELY(XSY_is_Sequence_LHS(lhs)))
{
MARPA_ERROR(MARPA_ERR_SEQUENCE_LHS_NOT_UNIQUE);
return failure_indicator;
}
}
rule= xrl_start(g,lhs_id,rhs_ids,length);
if(_MARPA_UNLIKELY(_marpa_avl_insert(g->t_xrl_tree,rule)!=NULL))
{
MARPA_ERROR(MARPA_ERR_DUPLICATE_RULE);
marpa_obs_reject(g->t_xrl_obs);
return failure_indicator;
}
rule= xrl_finish(g,rule);
rule= marpa_obs_finish(g->t_xrl_obs);
XRL_is_BNF(rule)= 1;
rule_id= rule->t_id;
return rule_id;
}
/*:260*//*261:*/
#line 2247 "./marpa.w"
Marpa_Rule_ID marpa_g_sequence_new(Marpa_Grammar g,
Marpa_Symbol_ID lhs_id,Marpa_Symbol_ID rhs_id,Marpa_Symbol_ID separator_id,
int min,int flags)
{
RULE original_rule;
RULEID original_rule_id= -2;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2254 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2255 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 2256 "./marpa.w"
/*263:*/
#line 2287 "./marpa.w"
{
if(separator_id!=-1)
{
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,separator_id)))
{
MARPA_ERROR(MARPA_ERR_BAD_SEPARATOR);
goto FAILURE;
}
}
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,lhs_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
goto FAILURE;
}
{
const XSY lhs= XSY_by_ID(lhs_id);
if(_MARPA_UNLIKELY(XSY_is_LHS(lhs)))
{
MARPA_ERROR(MARPA_ERR_SEQUENCE_LHS_NOT_UNIQUE);
goto FAILURE;
}
}
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,rhs_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
goto FAILURE;
}
}
/*:263*/
#line 2257 "./marpa.w"
/*262:*/
#line 2265 "./marpa.w"
{
original_rule= rule_new(g,lhs_id,&rhs_id,1);
original_rule_id= original_rule->t_id;
if(separator_id>=0)
Separator_of_XRL(original_rule)= separator_id;
Minimum_of_XRL(original_rule)= min;
XRL_is_Sequence(original_rule)= 1;
original_rule->t_is_discard= !(flags&MARPA_KEEP_SEPARATION)
&&separator_id>=0;
if(flags&MARPA_PROPER_SEPARATION)
{
XRL_is_Proper_Separation(original_rule)= 1;
}
XSY_is_Sequence_LHS(XSY_by_ID(lhs_id))= 1;
XSY_by_ID(rhs_id)->t_is_counted= 1;
if(separator_id>=0)
{
XSY_by_ID(separator_id)->t_is_counted= 1;
}
}
/*:262*/
#line 2258 "./marpa.w"
return original_rule_id;
FAILURE:
return failure_indicator;
}
/*:261*//*265:*/
#line 2340 "./marpa.w"
PRIVATE_NOT_INLINE int
duplicate_rule_cmp(const void*ap,const void*bp,void*param UNUSED)
{
XRL xrl1= (XRL)ap;
XRL xrl2= (XRL)bp;
int diff= LHS_ID_of_XRL(xrl2)-LHS_ID_of_XRL(xrl1);
if(diff)
return diff;
{
int ix;
const int length= Length_of_XRL(xrl1);
diff= Length_of_XRL(xrl2)-length;
if(diff)
return diff;
for(ix= 0;ix<length;ix++)
{
diff= RHS_ID_of_XRL(xrl2,ix)-RHS_ID_of_XRL(xrl1,ix);
if(diff)
return diff;
}
}
return 0;
}
/*:265*//*268:*/
#line 2396 "./marpa.w"
PRIVATE Marpa_Symbol_ID rule_lhs_get(RULE rule)
{
return rule->t_symbols[0];}
/*:268*//*269:*/
#line 2400 "./marpa.w"
Marpa_Symbol_ID marpa_g_rule_lhs(Marpa_Grammar g,Marpa_Rule_ID xrl_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2402 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2403 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2404 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2405 "./marpa.w"
return rule_lhs_get(XRL_by_ID(xrl_id));
}
/*:269*//*270:*/
#line 2408 "./marpa.w"
PRIVATE Marpa_Symbol_ID*rule_rhs_get(RULE rule)
{
return rule->t_symbols+1;}
/*:270*//*271:*/
#line 2412 "./marpa.w"
Marpa_Symbol_ID marpa_g_rule_rhs(Marpa_Grammar g,Marpa_Rule_ID xrl_id,int ix){
RULE rule;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2415 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2416 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2417 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2418 "./marpa.w"
rule= XRL_by_ID(xrl_id);
if(ix<0){
MARPA_ERROR(MARPA_ERR_RHS_IX_NEGATIVE);
return failure_indicator;
}
if(Length_of_XRL(rule)<=ix){
MARPA_ERROR(MARPA_ERR_RHS_IX_OOB);
return failure_indicator;
}
return RHS_ID_of_RULE(rule,ix);
}
/*:271*//*272:*/
#line 2431 "./marpa.w"
int marpa_g_rule_length(Marpa_Grammar g,Marpa_Rule_ID xrl_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2433 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2434 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2435 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2436 "./marpa.w"
return Length_of_XRL(XRL_by_ID(xrl_id));
}
/*:272*//*277:*/
#line 2463 "./marpa.w"
int marpa_g_rule_rank(Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
XRL xrl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2468 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2470 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2471 "./marpa.w"
/*1207:*/
#line 14282 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1207*/
#line 2472 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return Rank_of_XRL(xrl);
}
/*:277*//*278:*/
#line 2476 "./marpa.w"
int marpa_g_rule_rank_set(
Marpa_Grammar g,Marpa_Rule_ID xrl_id,Marpa_Rank rank)
{
XRL xrl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2481 "./marpa.w"
clear_error(g);
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2483 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 2484 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2485 "./marpa.w"
/*1207:*/
#line 14282 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1207*/
#line 2486 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(_MARPA_UNLIKELY(rank<MINIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_LOW);
return failure_indicator;
}
if(_MARPA_UNLIKELY(rank> MAXIMUM_RANK))
{
MARPA_ERROR(MARPA_ERR_RANK_TOO_HIGH);
return failure_indicator;
}
return Rank_of_XRL(xrl)= rank;
}
/*:278*//*281:*/
#line 2512 "./marpa.w"
int marpa_g_rule_null_high(Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
XRL xrl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2517 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2518 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2519 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2520 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return Null_Ranks_High_of_RULE(xrl);
}
/*:281*//*282:*/
#line 2524 "./marpa.w"
int marpa_g_rule_null_high_set(
Marpa_Grammar g,Marpa_Rule_ID xrl_id,int flag)
{
XRL xrl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2529 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2530 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 2531 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2532 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2533 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(_MARPA_UNLIKELY(flag<0||flag> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
return Null_Ranks_High_of_RULE(xrl)= Boolean(flag);
}
/*:282*//*289:*/
#line 2570 "./marpa.w"
int marpa_g_sequence_min(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2575 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2577 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2578 "./marpa.w"
/*1207:*/
#line 14282 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1207*/
#line 2579 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(!XRL_is_Sequence(xrl))return-1;
return Minimum_of_XRL(xrl);
}
/*:289*//*292:*/
#line 2595 "./marpa.w"
Marpa_Symbol_ID marpa_g_sequence_separator(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2600 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2602 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2603 "./marpa.w"
/*1207:*/
#line 14282 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1207*/
#line 2604 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(!XRL_is_Sequence(xrl))return-1;
return Separator_of_XRL(xrl);
}
/*:292*//*297:*/
#line 2628 "./marpa.w"
int _marpa_g_rule_is_keep_separation(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2633 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2634 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2635 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2636 "./marpa.w"
return!XRL_by_ID(xrl_id)->t_is_discard;
}
/*:297*//*301:*/
#line 2668 "./marpa.w"
int marpa_g_rule_is_proper_separation(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2673 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2674 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2675 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2676 "./marpa.w"
return!XRL_is_Proper_Separation(XRL_by_ID(xrl_id));
}
/*:301*//*305:*/
#line 2689 "./marpa.w"
int marpa_g_rule_is_loop(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2692 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2693 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2694 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2695 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2696 "./marpa.w"
return XRL_by_ID(xrl_id)->t_is_loop;
}
/*:305*//*308:*/
#line 2706 "./marpa.w"
int marpa_g_rule_is_nulling(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2709 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2711 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2712 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2713 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Nulling(xrl);
}
/*:308*//*311:*/
#line 2724 "./marpa.w"
int marpa_g_rule_is_nullable(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2727 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2729 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2730 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2731 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Nullable(xrl);
}
/*:311*//*315:*/
#line 2742 "./marpa.w"
int marpa_g_rule_is_accessible(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2745 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2747 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2748 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2749 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Accessible(xrl);
}
/*:315*//*318:*/
#line 2760 "./marpa.w"
int marpa_g_rule_is_productive(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2763 "./marpa.w"
XRL xrl;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2765 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2766 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2767 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Productive(xrl);
}
/*:318*//*321:*/
#line 2778 "./marpa.w"
int
_marpa_g_rule_is_used(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2782 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 2783 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 2784 "./marpa.w"
return XRL_is_Used(XRL_by_ID(xrl_id));
}
/*:321*//*323:*/
#line 2791 "./marpa.w"
Marpa_Rule_ID
_marpa_g_irl_semantic_equivalent(Marpa_Grammar g,Marpa_IRL_ID irl_id)
{
IRL irl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2796 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2797 "./marpa.w"
irl= IRL_by_ID(irl_id);
if(IRL_has_Virtual_LHS(irl))return-1;
return ID_of_XRL(Source_XRL_of_IRL(irl));
}
/*:323*//*332:*/
#line 2838 "./marpa.w"
Marpa_NSY_ID _marpa_g_irl_lhs(Marpa_Grammar g,Marpa_IRL_ID irl_id){
IRL irl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2841 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2842 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2843 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2844 "./marpa.w"
irl= IRL_by_ID(irl_id);
return LHSID_of_IRL(irl);
}
/*:332*//*334:*/
#line 2851 "./marpa.w"
Marpa_NSY_ID _marpa_g_irl_rhs(Marpa_Grammar g,Marpa_IRL_ID irl_id,int ix){
IRL irl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2854 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2855 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2856 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2857 "./marpa.w"
irl= IRL_by_ID(irl_id);
if(Length_of_IRL(irl)<=ix)return-1;
return RHSID_of_IRL(irl,ix);
}
/*:334*//*336:*/
#line 2865 "./marpa.w"
int _marpa_g_irl_length(Marpa_Grammar g,Marpa_IRL_ID irl_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2867 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 2868 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2869 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2870 "./marpa.w"
return Length_of_IRL(IRL_by_ID(irl_id));
}
/*:336*//*342:*/
#line 2915 "./marpa.w"
int _marpa_g_irl_is_virtual_lhs(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2920 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2921 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2922 "./marpa.w"
return IRL_has_Virtual_LHS(IRL_by_ID(irl_id));
}
/*:342*//*345:*/
#line 2931 "./marpa.w"
int _marpa_g_irl_is_virtual_rhs(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2936 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2937 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2938 "./marpa.w"
return IRL_has_Virtual_RHS(IRL_by_ID(irl_id));
}
/*:345*//*351:*/
#line 2960 "./marpa.w"
int _marpa_g_real_symbol_count(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2965 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2966 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2967 "./marpa.w"
return Real_SYM_Count_of_IRL(IRL_by_ID(irl_id));
}
/*:351*//*354:*/
#line 2978 "./marpa.w"
int _marpa_g_virtual_start(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
IRL irl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 2984 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 2985 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 2986 "./marpa.w"
irl= IRL_by_ID(irl_id);
return Virtual_Start_of_IRL(irl);
}
/*:354*//*357:*/
#line 2998 "./marpa.w"
int _marpa_g_virtual_end(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
IRL irl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 3004 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 3005 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 3006 "./marpa.w"
irl= IRL_by_ID(irl_id);
return Virtual_End_of_IRL(irl);
}
/*:357*//*360:*/
#line 3020 "./marpa.w"
Marpa_Rule_ID _marpa_g_source_xrl(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
XRL source_xrl;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 3026 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 3027 "./marpa.w"
source_xrl= Source_XRL_of_IRL(IRL_by_ID(irl_id));
return source_xrl?ID_of_XRL(source_xrl):-1;
}
/*:360*//*363:*/
#line 3048 "./marpa.w"
Marpa_Rank _marpa_g_irl_rank(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 3053 "./marpa.w"
/*1205:*/
#line 14268 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1205*/
#line 3054 "./marpa.w"
return Rank_of_IRL(IRL_by_ID(irl_id));
}
/*:363*//*367:*/
#line 3088 "./marpa.w"
int marpa_g_precompute(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 3091 "./marpa.w"
int return_value= failure_indicator;
struct marpa_obstack*obs_precompute= marpa_obs_init;
/*372:*/
#line 3214 "./marpa.w"
XRLID xrl_count= XRL_Count_of_G(g);
XSYID pre_census_xsy_count= XSY_Count_of_G(g);
/*:372*//*376:*/
#line 3247 "./marpa.w"
XSYID start_xsy_id= g->t_start_xsy_id;
/*:376*//*389:*/
#line 3550 "./marpa.w"
Bit_Matrix reach_matrix= NULL;
/*:389*/
#line 3094 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 3095 "./marpa.w"
G_EVENTS_CLEAR(g);
/*373:*/
#line 3218 "./marpa.w"
if(_MARPA_UNLIKELY(xrl_count<=0)){
MARPA_ERROR(MARPA_ERR_NO_RULES);
goto FAILURE;
}
/*:373*/
#line 3097 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 3098 "./marpa.w"
/*375:*/
#line 3228 "./marpa.w"
{
if(_MARPA_UNLIKELY(start_xsy_id<0))
{
MARPA_ERROR(MARPA_ERR_NO_START_SYMBOL);
goto FAILURE;
}
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,start_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_START_SYMBOL);
goto FAILURE;
}
if(_MARPA_UNLIKELY(!XSY_is_LHS(XSY_by_ID(start_xsy_id))))
{
MARPA_ERROR(MARPA_ERR_START_NOT_LHS);
goto FAILURE;
}
}
/*:375*/
#line 3099 "./marpa.w"
/*123:*/
#line 1148 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:123*/
#line 3104 "./marpa.w"
{
/*381:*/
#line 3429 "./marpa.w"
Bit_Vector terminal_v= NULL;
/*:381*//*382:*/
#line 3432 "./marpa.w"
Bit_Vector lhs_v= NULL;
Bit_Vector empty_lhs_v= NULL;
/*:382*//*383:*/
#line 3437 "./marpa.w"
RULEID**xrl_list_x_rh_sym= NULL;
RULEID**xrl_list_x_lh_sym= NULL;
/*:383*//*387:*/
#line 3496 "./marpa.w"
Bit_Vector productive_v= NULL;
Bit_Vector nullable_v= NULL;
/*:387*/
#line 3109 "./marpa.w"
/*371:*/
#line 3199 "./marpa.w"
{
/*379:*/
#line 3271 "./marpa.w"
{
Marpa_Rule_ID rule_id;
const MARPA_AVL_TREE rhs_avl_tree= _marpa_avl_create(sym_rule_cmp,NULL);
struct sym_rule_pair*const p_rh_sym_rule_pair_base=
marpa_obs_new(MARPA_AVL_OBSTACK(rhs_avl_tree),struct sym_rule_pair,
(size_t)External_Size_of_G(g));
struct sym_rule_pair*p_rh_sym_rule_pairs= p_rh_sym_rule_pair_base;
const MARPA_AVL_TREE lhs_avl_tree= _marpa_avl_create(sym_rule_cmp,NULL);
struct sym_rule_pair*const p_lh_sym_rule_pair_base=
marpa_obs_new(MARPA_AVL_OBSTACK(lhs_avl_tree),struct sym_rule_pair,
(size_t)xrl_count);
struct sym_rule_pair*p_lh_sym_rule_pairs= p_lh_sym_rule_pair_base;
lhs_v= bv_obs_create(obs_precompute,pre_census_xsy_count);
empty_lhs_v= bv_obs_shadow(obs_precompute,lhs_v);
for(rule_id= 0;rule_id<xrl_count;rule_id++)
{
const XRL rule= XRL_by_ID(rule_id);
const Marpa_Symbol_ID lhs_id= LHS_ID_of_RULE(rule);
const int rule_length= Length_of_XRL(rule);
const int is_sequence= XRL_is_Sequence(rule);
bv_bit_set(lhs_v,lhs_id);
p_lh_sym_rule_pairs->t_symid= lhs_id;
p_lh_sym_rule_pairs->t_ruleid= rule_id;
_marpa_avl_insert(lhs_avl_tree,p_lh_sym_rule_pairs);
p_lh_sym_rule_pairs++;
if(is_sequence)
{
const XSYID separator_id= Separator_of_XRL(rule);
if(Minimum_of_XRL(rule)<=0)
{
bv_bit_set(empty_lhs_v,lhs_id);
}
if(separator_id>=0){
p_rh_sym_rule_pairs->t_symid= separator_id;
p_rh_sym_rule_pairs->t_ruleid= rule_id;
_marpa_avl_insert(rhs_avl_tree,p_rh_sym_rule_pairs);
p_rh_sym_rule_pairs++;
}
}
if(rule_length<=0)
{
bv_bit_set(empty_lhs_v,lhs_id);
}
else
{
int rhs_ix;
for(rhs_ix= 0;rhs_ix<rule_length;rhs_ix++)
{
p_rh_sym_rule_pairs->t_symid= RHS_ID_of_RULE(rule,rhs_ix);
p_rh_sym_rule_pairs->t_ruleid= rule_id;
_marpa_avl_insert(rhs_avl_tree,p_rh_sym_rule_pairs);
p_rh_sym_rule_pairs++;
}
}
}
{
MARPA_AVL_TRAV traverser;
struct sym_rule_pair*pair;
XSYID seen_symid= -1;
RULEID*const rule_data_base=
marpa_obs_new(obs_precompute,RULEID,(size_t)External_Size_of_G(g));
RULEID*p_rule_data= rule_data_base;
traverser= _marpa_avl_t_init(rhs_avl_tree);
xrl_list_x_rh_sym=
marpa_obs_new(obs_precompute,RULEID*,(size_t)pre_census_xsy_count+1);
for(pair= _marpa_avl_t_first(traverser);pair;
pair= (struct sym_rule_pair*)_marpa_avl_t_next(traverser))
{
const XSYID current_symid= pair->t_symid;
while(seen_symid<current_symid)
xrl_list_x_rh_sym[++seen_symid]= p_rule_data;
*p_rule_data++= pair->t_ruleid;
}
while(++seen_symid<=pre_census_xsy_count)
xrl_list_x_rh_sym[seen_symid]= p_rule_data;
_marpa_avl_destroy(rhs_avl_tree);
}
{
MARPA_AVL_TRAV traverser;
struct sym_rule_pair*pair;
XSYID seen_symid= -1;
RULEID*const rule_data_base=
marpa_obs_new(obs_precompute,RULEID,(size_t)xrl_count);
RULEID*p_rule_data= rule_data_base;
traverser= _marpa_avl_t_init(lhs_avl_tree);
xrl_list_x_lh_sym=
marpa_obs_new(obs_precompute,RULEID*,(size_t)pre_census_xsy_count+1);
for(pair= _marpa_avl_t_first(traverser);pair;
pair= (struct sym_rule_pair*)_marpa_avl_t_next(traverser))
{
const XSYID current_symid= pair->t_symid;
while(seen_symid<current_symid)
xrl_list_x_lh_sym[++seen_symid]= p_rule_data;
*p_rule_data++= pair->t_ruleid;
}
while(++seen_symid<=pre_census_xsy_count)
xrl_list_x_lh_sym[seen_symid]= p_rule_data;
_marpa_avl_destroy(lhs_avl_tree);
}
}
/*:379*/
#line 3201 "./marpa.w"
/*380:*/
#line 3398 "./marpa.w"
{
XSYID symid;
terminal_v= bv_obs_create(obs_precompute,pre_census_xsy_count);
bv_not(terminal_v,lhs_v);
for(symid= 0;symid<pre_census_xsy_count;symid++)
{
XSY symbol= XSY_by_ID(symid);
if(XSY_is_Locked_Terminal(symbol))
{
if(XSY_is_Terminal(symbol))
{
bv_bit_set(terminal_v,symid);
continue;
}
bv_bit_clear(terminal_v,symid);
continue;
}
if(bv_bit_test(terminal_v,symid))
XSY_is_Terminal(symbol)= 1;
}
}
/*:380*/
#line 3202 "./marpa.w"
/*388:*/
#line 3518 "./marpa.w"
{
XRLID rule_id;
reach_matrix=
matrix_obs_create(obs_precompute,pre_census_xsy_count,
pre_census_xsy_count);
for(rule_id= 0;rule_id<xrl_count;rule_id++)
{
XRL rule= XRL_by_ID(rule_id);
XSYID lhs_id= LHS_ID_of_RULE(rule);
int rhs_ix;
int rule_length= Length_of_XRL(rule);
for(rhs_ix= 0;rhs_ix<rule_length;rhs_ix++)
{
matrix_bit_set(reach_matrix,
lhs_id,
RHS_ID_of_RULE(rule,rhs_ix));
}
if(XRL_is_Sequence(rule))
{
const XSYID separator_id= Separator_of_XRL(rule);
if(separator_id>=0)
{
matrix_bit_set(reach_matrix,
lhs_id,
separator_id);
}
}
}
transitive_closure(reach_matrix);
}
/*:388*/
#line 3203 "./marpa.w"
/*384:*/
#line 3441 "./marpa.w"
{
int min,max,start;
XSYID xsy_id;
int counted_nullables= 0;
nullable_v= bv_obs_clone(obs_precompute,empty_lhs_v);
rhs_closure(g,nullable_v,xrl_list_x_rh_sym);
for(start= 0;bv_scan(nullable_v,start,&min,&max);start= max+2)
{
for(xsy_id= min;xsy_id<=max;
xsy_id++)
{
XSY xsy= XSY_by_ID(xsy_id);
XSY_is_Nullable(xsy)= 1;
if(_MARPA_UNLIKELY(xsy->t_is_counted))
{
counted_nullables++;
int_event_new(g,MARPA_EVENT_COUNTED_NULLABLE,xsy_id);
}
}
}
if(_MARPA_UNLIKELY(counted_nullables))
{
MARPA_ERROR(MARPA_ERR_COUNTED_NULLABLE);
goto FAILURE;
}
}
/*:384*/
#line 3204 "./marpa.w"
/*385:*/
#line 3469 "./marpa.w"
{
productive_v= bv_obs_shadow(obs_precompute,nullable_v);
bv_or(productive_v,nullable_v,terminal_v);
rhs_closure(g,productive_v,xrl_list_x_rh_sym);
{
int min,max,start;
XSYID symid;
for(start= 0;bv_scan(productive_v,start,&min,&max);
start= max+2)
{
for(symid= min;
symid<=max;symid++)
{
XSY symbol= XSY_by_ID(symid);
symbol->t_is_productive= 1;
}
}
}
}
/*:385*/
#line 3205 "./marpa.w"
/*386:*/
#line 3490 "./marpa.w"
if(_MARPA_UNLIKELY(!bv_bit_test(productive_v,start_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_UNPRODUCTIVE_START);
goto FAILURE;
}
/*:386*/
#line 3206 "./marpa.w"
/*390:*/
#line 3555 "./marpa.w"
{
Bit_Vector accessible_v=
matrix_row(reach_matrix,start_xsy_id);
int min,max,start;
XSYID symid;
for(start= 0;bv_scan(accessible_v,start,&min,&max);start= max+2)
{
for(symid= min;
symid<=max;symid++)
{
XSY symbol= XSY_by_ID(symid);
symbol->t_is_accessible= 1;
}
}
XSY_by_ID(start_xsy_id)->t_is_accessible= 1;
}
/*:390*/
#line 3207 "./marpa.w"
/*391:*/
#line 3575 "./marpa.w"
{
Bit_Vector reaches_terminal_v= bv_shadow(terminal_v);
int nulling_terminal_found= 0;
int min,max,start;
for(start= 0;bv_scan(lhs_v,start,&min,&max);start= max+2)
{
XSYID productive_id;
for(productive_id= min;
productive_id<=max;productive_id++)
{
bv_and(reaches_terminal_v,terminal_v,
matrix_row(reach_matrix,productive_id));
if(bv_is_empty(reaches_terminal_v))
{
const XSY symbol= XSY_by_ID(productive_id);
XSY_is_Nulling(symbol)= 1;
if(_MARPA_UNLIKELY(XSY_is_Terminal(symbol)))
{
nulling_terminal_found= 1;
int_event_new(g,MARPA_EVENT_NULLING_TERMINAL,
productive_id);
}
}
}
}
bv_free(reaches_terminal_v);
if(_MARPA_UNLIKELY(nulling_terminal_found))
{
MARPA_ERROR(MARPA_ERR_NULLING_TERMINAL);
goto FAILURE;
}
}
/*:391*/
#line 3208 "./marpa.w"
/*392:*/
#line 3614 "./marpa.w"
{
XRLID xrl_id;
for(xrl_id= 0;xrl_id<xrl_count;xrl_id++)
{
const XRL xrl= XRL_by_ID(xrl_id);
const XSYID lhs_id= LHS_ID_of_XRL(xrl);
const XSY lhs= XSY_by_ID(lhs_id);
XRL_is_Accessible(xrl)= XSY_is_Accessible(lhs);
if(XRL_is_Sequence(xrl))
{
/*394:*/
#line 3665 "./marpa.w"
{
const XSYID rhs_id= RHS_ID_of_XRL(xrl,0);
const XSY rh_xsy= XSY_by_ID(rhs_id);
const XSYID separator_id= Separator_of_XRL(xrl);
XRL_is_Nullable(xrl)= Minimum_of_XRL(xrl)<=0
||XSY_is_Nullable(rh_xsy);
XRL_is_Nulling(xrl)= XSY_is_Nulling(rh_xsy);
XRL_is_Productive(xrl)= XRL_is_Nullable(xrl)||XSY_is_Productive(rh_xsy);
XRL_is_Used(xrl)= XRL_is_Accessible(xrl)&&XSY_is_Productive(rh_xsy);
if(separator_id>=0)
{
const XSY separator_xsy= XSY_by_ID(separator_id);
if(!XSY_is_Nulling(separator_xsy))
{
XRL_is_Nulling(xrl)= 0;
}
if(_MARPA_UNLIKELY(!XSY_is_Productive(separator_xsy)))
{
XRL_is_Productive(xrl)= XRL_is_Nullable(xrl);
XRL_is_Used(xrl)= 0;
}
}
if(XRL_is_Nulling(xrl))XRL_is_Used(xrl)= 0;
}
/*:394*/
#line 3625 "./marpa.w"
continue;
}
/*393:*/
#line 3634 "./marpa.w"
{
int rh_ix;
int is_nulling= 1;
int is_nullable= 1;
int is_productive= 1;
for(rh_ix= 0;rh_ix<Length_of_XRL(xrl);rh_ix++)
{
const XSYID rhs_id= RHS_ID_of_XRL(xrl,rh_ix);
const XSY rh_xsy= XSY_by_ID(rhs_id);
if(_MARPA_LIKELY(!XSY_is_Nulling(rh_xsy)))
is_nulling= 0;
if(_MARPA_LIKELY(!XSY_is_Nullable(rh_xsy)))
is_nullable= 0;
if(_MARPA_UNLIKELY(!XSY_is_Productive(rh_xsy)))
is_productive= 0;
}
XRL_is_Nulling(xrl)= Boolean(is_nulling);
XRL_is_Nullable(xrl)= Boolean(is_nullable);
XRL_is_Productive(xrl)= Boolean(is_productive);
XRL_is_Used(xrl)= XRL_is_Accessible(xrl)&&XRL_is_Productive(xrl)
&&!XRL_is_Nulling(xrl);
}
/*:393*/
#line 3628 "./marpa.w"
}
}
/*:392*/
#line 3209 "./marpa.w"
/*395:*/
#line 3730 "./marpa.w"
if(0)
{
XSYID xsy_id;
for(xsy_id= 0;xsy_id<pre_census_xsy_count;xsy_id++)
{
if(bv_bit_test(terminal_v,xsy_id)&&bv_bit_test(lhs_v,xsy_id))
{
const XSY xsy= XSY_by_ID(xsy_id);
if(XSY_is_Valued_Locked(xsy))
continue;
XSY_is_Valued(xsy)= 1;
XSY_is_Valued_Locked(xsy)= 1;
}
}
}
/*:395*/
#line 3210 "./marpa.w"
/*396:*/
#line 3759 "./marpa.w"
{
XSYID xsyid;
XRLID xrlid;
int nullable_xsy_count= 0;
void*matrix_buffer= my_malloc(matrix_sizeof(
pre_census_xsy_count,
pre_census_xsy_count));
Bit_Matrix nullification_matrix=
matrix_buffer_create(matrix_buffer,pre_census_xsy_count,
pre_census_xsy_count);
for(xsyid= 0;xsyid<pre_census_xsy_count;xsyid++)
{
if(!XSYID_is_Nullable(xsyid))
continue;
nullable_xsy_count++;
matrix_bit_set(nullification_matrix,xsyid,
xsyid);
}
for(xrlid= 0;xrlid<xrl_count;xrlid++)
{
int rh_ix;
XRL xrl= XRL_by_ID(xrlid);
const XSYID lhs_id= LHS_ID_of_XRL(xrl);
if(XRL_is_Nullable(xrl))
{
for(rh_ix= 0;rh_ix<Length_of_XRL(xrl);rh_ix++)
{
const XSYID rhs_id= RHS_ID_of_XRL(xrl,rh_ix);
matrix_bit_set(nullification_matrix,lhs_id,
rhs_id);
}
}
}
transitive_closure(nullification_matrix);
for(xsyid= 0;xsyid<pre_census_xsy_count;xsyid++)
{
Bit_Vector bv_nullifications_by_to_xsy=
matrix_row(nullification_matrix,xsyid);
Nulled_XSYIDs_of_XSYID(xsyid)=
cil_bv_add(&g->t_cilar,bv_nullifications_by_to_xsy);
}
my_free(matrix_buffer);
}
/*:396*/
#line 3211 "./marpa.w"
}
/*:371*/
#line 3110 "./marpa.w"
/*443:*/
#line 4613 "./marpa.w"
{
int loop_rule_count= 0;
Bit_Matrix unit_transition_matrix=
matrix_obs_create(obs_precompute,xrl_count,
xrl_count);
/*444:*/
#line 4634 "./marpa.w"
{
Marpa_Rule_ID rule_id;
for(rule_id= 0;rule_id<xrl_count;rule_id++)
{
XRL rule= XRL_by_ID(rule_id);
XSYID nonnullable_id= -1;
int nonnullable_count= 0;
int rhs_ix,rule_length;
rule_length= Length_of_XRL(rule);
for(rhs_ix= 0;rhs_ix<rule_length;rhs_ix++)
{
XSYID xsy_id= RHS_ID_of_RULE(rule,rhs_ix);
if(bv_bit_test(nullable_v,xsy_id))
continue;
nonnullable_id= xsy_id;
nonnullable_count++;
}
if(nonnullable_count==1)
{
/*445:*/
#line 4689 "./marpa.w"
{
RULEID*p_xrl= xrl_list_x_lh_sym[nonnullable_id];
const RULEID*p_one_past_rules= xrl_list_x_lh_sym[nonnullable_id+1];
for(;p_xrl<p_one_past_rules;p_xrl++)
{
const RULEID to_rule_id= *p_xrl;
matrix_bit_set(unit_transition_matrix,rule_id,
to_rule_id);
}
}
/*:445*/
#line 4662 "./marpa.w"
}
else if(nonnullable_count==0)
{
for(rhs_ix= 0;rhs_ix<rule_length;rhs_ix++)
{
nonnullable_id= RHS_ID_of_RULE(rule,rhs_ix);
if(XSY_is_Nulling(XSY_by_ID(nonnullable_id)))
continue;
/*445:*/
#line 4689 "./marpa.w"
{
RULEID*p_xrl= xrl_list_x_lh_sym[nonnullable_id];
const RULEID*p_one_past_rules= xrl_list_x_lh_sym[nonnullable_id+1];
for(;p_xrl<p_one_past_rules;p_xrl++)
{
const RULEID to_rule_id= *p_xrl;
matrix_bit_set(unit_transition_matrix,rule_id,
to_rule_id);
}
}
/*:445*/
#line 4680 "./marpa.w"
}
}
}
}
/*:444*/
#line 4619 "./marpa.w"
transitive_closure(unit_transition_matrix);
/*446:*/
#line 4703 "./marpa.w"
{
XRLID rule_id;
for(rule_id= 0;rule_id<xrl_count;rule_id++)
{
XRL rule;
if(!matrix_bit_test
(unit_transition_matrix,rule_id,
rule_id))
continue;
loop_rule_count++;
rule= XRL_by_ID(rule_id);
rule->t_is_loop= 1;
}
}
/*:446*/
#line 4621 "./marpa.w"
if(loop_rule_count)
{
g->t_has_cycle= 1;
int_event_new(g,MARPA_EVENT_LOOP_RULES,loop_rule_count);
}
}
/*:443*/
#line 3111 "./marpa.w"
}
/*507:*/
#line 5265 "./marpa.w"
MARPA_DSTACK_INIT(g->t_irl_stack,IRL,2*MARPA_DSTACK_CAPACITY(g->t_xrl_stack));
/*:507*/
#line 3116 "./marpa.w"
/*508:*/
#line 5273 "./marpa.w"
{
MARPA_DSTACK_INIT(g->t_nsy_stack,NSY,2*MARPA_DSTACK_CAPACITY(g->t_xsy_stack));
}
/*:508*/
#line 3117 "./marpa.w"
/*408:*/
#line 3959 "./marpa.w"
{
/*409:*/
#line 3990 "./marpa.w"
Marpa_Rule_ID rule_id;
int pre_chaf_rule_count;
/*:409*//*412:*/
#line 4048 "./marpa.w"
int factor_count;
int*factor_positions;
/*:412*/
#line 3961 "./marpa.w"
/*413:*/
#line 4051 "./marpa.w"
factor_positions= marpa_obs_new(obs_precompute,int,g->t_max_rule_length);
/*:413*/
#line 3962 "./marpa.w"
/*410:*/
#line 3996 "./marpa.w"
{
XSYID xsy_id;
for(xsy_id= 0;xsy_id<pre_census_xsy_count;xsy_id++)
{
const XSY xsy_to_clone= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(!xsy_to_clone->t_is_accessible))
continue;
if(_MARPA_UNLIKELY(!xsy_to_clone->t_is_productive))
continue;
NSY_of_XSY(xsy_to_clone)= nsy_clone(g,xsy_to_clone);
if(XSY_is_Nulling(xsy_to_clone))
{
Nulling_NSY_of_XSY(xsy_to_clone)= NSY_of_XSY(xsy_to_clone);
continue;
}
if(XSY_is_Nullable(xsy_to_clone))
{
Nulling_NSY_of_XSY(xsy_to_clone)= symbol_alias_create(g,xsy_to_clone);
}
}
}
/*:410*/
#line 3963 "./marpa.w"
pre_chaf_rule_count= XRL_Count_of_G(g);
for(rule_id= 0;rule_id<pre_chaf_rule_count;rule_id++)
{
XRL rule= XRL_by_ID(rule_id);
XRL rewrite_xrl= rule;
const int rewrite_xrl_length= Length_of_XRL(rewrite_xrl);
int nullable_suffix_ix= 0;
if(!XRL_is_Used(rule))
continue;
if(XRL_is_Sequence(rule))
{
/*397:*/
#line 3812 "./marpa.w"
{
const XSYID lhs_id= LHS_ID_of_RULE(rule);
const NSY lhs_nsy= NSY_by_XSYID(lhs_id);
const NSYID lhs_nsyid= ID_of_NSY(lhs_nsy);
const NSY internal_lhs_nsy= nsy_new(g,XSY_by_ID(lhs_id));
const NSYID internal_lhs_nsyid= ID_of_NSY(internal_lhs_nsy);
const XSYID rhs_id= RHS_ID_of_RULE(rule,0);
const NSY rhs_nsy= NSY_by_XSYID(rhs_id);
const NSYID rhs_nsyid= ID_of_NSY(rhs_nsy);
const XSYID separator_id= Separator_of_XRL(rule);
NSYID separator_nsyid= -1;
if(separator_id>=0){
const NSY separator_nsy= NSY_by_XSYID(separator_id);
separator_nsyid= ID_of_NSY(separator_nsy);
}
LHS_XRL_of_NSY(internal_lhs_nsy)= rule;
/*398:*/
#line 3841 "./marpa.w"
{
IRL rewrite_irl= irl_start(g,1);
LHSID_of_IRL(rewrite_irl)= lhs_nsyid;
RHSID_of_IRL(rewrite_irl,0)= internal_lhs_nsyid;
irl_finish(g,rewrite_irl);
Source_XRL_of_IRL(rewrite_irl)= rule;
Rank_of_IRL(rewrite_irl)= IRL_Rank_by_XRL(rule);
IRL_has_Virtual_RHS(rewrite_irl)= 1;
}
/*:398*/
#line 3833 "./marpa.w"
if(separator_nsyid>=0&&!XRL_is_Proper_Separation(rule)){
/*399:*/
#line 3854 "./marpa.w"
{
IRL rewrite_irl;
rewrite_irl= irl_start(g,2);
LHSID_of_IRL(rewrite_irl)= lhs_nsyid;
RHSID_of_IRL(rewrite_irl,0)= internal_lhs_nsyid;
RHSID_of_IRL(rewrite_irl,1)= separator_nsyid;
irl_finish(g,rewrite_irl);
Source_XRL_of_IRL(rewrite_irl)= rule;
Rank_of_IRL(rewrite_irl)= IRL_Rank_by_XRL(rule);
IRL_has_Virtual_RHS(rewrite_irl)= 1;
Real_SYM_Count_of_IRL(rewrite_irl)= 1;
}
/*:399*/
#line 3835 "./marpa.w"
}
/*400:*/
#line 3871 "./marpa.w"
{
const IRL rewrite_irl= irl_start(g,1);
LHSID_of_IRL(rewrite_irl)= internal_lhs_nsyid;
RHSID_of_IRL(rewrite_irl,0)= rhs_nsyid;
irl_finish(g,rewrite_irl);
Source_XRL_of_IRL(rewrite_irl)= rule;
Rank_of_IRL(rewrite_irl)= IRL_Rank_by_XRL(rule);
IRL_has_Virtual_LHS(rewrite_irl)= 1;
Real_SYM_Count_of_IRL(rewrite_irl)= 1;
}
/*:400*/
#line 3837 "./marpa.w"
/*401:*/
#line 3882 "./marpa.w"
{
IRL rewrite_irl;
int rhs_ix= 0;
const int length= separator_nsyid>=0?3:2;
rewrite_irl= irl_start(g,length);
LHSID_of_IRL(rewrite_irl)= internal_lhs_nsyid;
RHSID_of_IRL(rewrite_irl,rhs_ix++)= internal_lhs_nsyid;
if(separator_nsyid>=0)
RHSID_of_IRL(rewrite_irl,rhs_ix++)= separator_nsyid;
RHSID_of_IRL(rewrite_irl,rhs_ix)= rhs_nsyid;
irl_finish(g,rewrite_irl);
Source_XRL_of_IRL(rewrite_irl)= rule;
Rank_of_IRL(rewrite_irl)= IRL_Rank_by_XRL(rule);
IRL_has_Virtual_LHS(rewrite_irl)= 1;
IRL_has_Virtual_RHS(rewrite_irl)= 1;
Real_SYM_Count_of_IRL(rewrite_irl)= length-1;
}
/*:401*/
#line 3838 "./marpa.w"
}
/*:397*/
#line 3976 "./marpa.w"
continue;
}
/*411:*/
#line 4027 "./marpa.w"
{
int rhs_ix;
factor_count= 0;
for(rhs_ix= 0;rhs_ix<rewrite_xrl_length;rhs_ix++)
{
Marpa_Symbol_ID symid= RHS_ID_of_RULE(rule,rhs_ix);
XSY symbol= XSY_by_ID(symid);
if(XSY_is_Nulling(symbol))
continue;
if(XSY_is_Nullable(symbol))
{
factor_positions[factor_count++]= rhs_ix;
continue;
}
nullable_suffix_ix= rhs_ix+1;
}
}
/*:411*/
#line 3979 "./marpa.w"
if(factor_count> 0)
{
/*414:*/
#line 4055 "./marpa.w"
{
const XRL chaf_xrl= rule;
int unprocessed_factor_count;
int factor_position_ix= 0;
NSY current_lhs_nsy= NSY_by_XSYID(LHS_ID_of_RULE(rule));
NSYID current_lhs_nsyid= ID_of_NSY(current_lhs_nsy);
int piece_end,piece_start= 0;
for(unprocessed_factor_count= factor_count-factor_position_ix;
unprocessed_factor_count>=3;
unprocessed_factor_count= factor_count-factor_position_ix){
/*417:*/
#line 4091 "./marpa.w"
NSY chaf_virtual_nsy;
NSYID chaf_virtual_nsyid;
int first_factor_position= factor_positions[factor_position_ix];
int second_factor_position= factor_positions[factor_position_ix+1];
if(second_factor_position>=nullable_suffix_ix){
piece_end= second_factor_position-1;
/*415:*/
#line 4081 "./marpa.w"
{
const XSYID chaf_xrl_lhs_id= LHS_ID_of_XRL(chaf_xrl);
chaf_virtual_nsy= nsy_new(g,XSY_by_ID(chaf_xrl_lhs_id));
chaf_virtual_nsyid= ID_of_NSY(chaf_virtual_nsy);
}
/*:415*/
#line 4101 "./marpa.w"
/*418:*/
#line 4120 "./marpa.w"
{
{
const int real_symbol_count= piece_end-piece_start+1;
/*423:*/
#line 4218 "./marpa.w"
{
int piece_ix;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<chaf_irl_length-1;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,3);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4232 "./marpa.w"
}
/*:423*/
#line 4124 "./marpa.w"
;
}
/*419:*/
#line 4134 "./marpa.w"
{
int piece_ix;
const int second_nulling_piece_ix= second_factor_position-piece_start;
const int chaf_irl_length= rewrite_xrl_length-piece_start;
const int real_symbol_count= chaf_irl_length;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
for(piece_ix= second_nulling_piece_ix;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,2);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4156 "./marpa.w"
}
/*:419*/
#line 4126 "./marpa.w"
;
{
const int real_symbol_count= piece_end-piece_start+1;
/*425:*/
#line 4264 "./marpa.w"
{
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;
piece_ix<chaf_irl_length-1;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,1);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4288 "./marpa.w"
}
/*:425*/
#line 4129 "./marpa.w"
;
}
/*420:*/
#line 4164 "./marpa.w"
{
if(piece_start<nullable_suffix_ix)
{
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int second_nulling_piece_ix=
second_factor_position-piece_start;
const int chaf_irl_length= rewrite_xrl_length-piece_start;
const int real_symbol_count= chaf_irl_length;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;
piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+piece_ix));
}
for(piece_ix= second_nulling_piece_ix;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,0);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4202 "./marpa.w"
}
}
/*:420*/
#line 4131 "./marpa.w"
;
}
/*:418*/
#line 4102 "./marpa.w"
factor_position_ix++;
}else{
piece_end= second_factor_position;
/*415:*/
#line 4081 "./marpa.w"
{
const XSYID chaf_xrl_lhs_id= LHS_ID_of_XRL(chaf_xrl);
chaf_virtual_nsy= nsy_new(g,XSY_by_ID(chaf_xrl_lhs_id));
chaf_virtual_nsyid= ID_of_NSY(chaf_virtual_nsy);
}
/*:415*/
#line 4106 "./marpa.w"
/*422:*/
#line 4208 "./marpa.w"
{
const int real_symbol_count= piece_end-piece_start+1;
/*423:*/
#line 4218 "./marpa.w"
{
int piece_ix;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<chaf_irl_length-1;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,3);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4232 "./marpa.w"
}
/*:423*/
#line 4211 "./marpa.w"
/*424:*/
#line 4236 "./marpa.w"
{
int piece_ix;
const int second_nulling_piece_ix= second_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,second_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+second_nulling_piece_ix));
for(piece_ix= second_nulling_piece_ix+1;
piece_ix<chaf_irl_length-1;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,2);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4260 "./marpa.w"
}
/*:424*/
#line 4212 "./marpa.w"
/*425:*/
#line 4264 "./marpa.w"
{
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;
piece_ix<chaf_irl_length-1;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,1);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4288 "./marpa.w"
}
/*:425*/
#line 4213 "./marpa.w"
/*426:*/
#line 4292 "./marpa.w"
{
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int second_nulling_piece_ix= second_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+2;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;
piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,second_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+second_nulling_piece_ix));
for(piece_ix= second_nulling_piece_ix+1;piece_ix<chaf_irl_length-1;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,chaf_irl_length-1)= chaf_virtual_nsyid;
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,0);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4326 "./marpa.w"
}
/*:426*/
#line 4214 "./marpa.w"
}
/*:422*/
#line 4107 "./marpa.w"
factor_position_ix+= 2;
}
current_lhs_nsy= chaf_virtual_nsy;
current_lhs_nsyid= chaf_virtual_nsyid;
piece_start= piece_end+1;
/*:417*/
#line 4072 "./marpa.w"
}
if(unprocessed_factor_count==2){
/*427:*/
#line 4331 "./marpa.w"
{
const int first_factor_position= factor_positions[factor_position_ix];
const int second_factor_position= factor_positions[factor_position_ix+1];
const int real_symbol_count= Length_of_XRL(rule)-piece_start;
piece_end= Length_of_XRL(rule)-1;
/*428:*/
#line 4344 "./marpa.w"
{
int piece_ix;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<chaf_irl_length;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,3);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4357 "./marpa.w"
}
/*:428*/
#line 4337 "./marpa.w"
/*429:*/
#line 4361 "./marpa.w"
{
int piece_ix;
const int second_nulling_piece_ix= second_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,second_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+second_nulling_piece_ix));
for(piece_ix= second_nulling_piece_ix+1;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,2);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4384 "./marpa.w"
}
/*:429*/
#line 4338 "./marpa.w"
/*430:*/
#line 4388 "./marpa.w"
{
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,1);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4411 "./marpa.w"
}
/*:430*/
#line 4339 "./marpa.w"
/*431:*/
#line 4416 "./marpa.w"
{
if(piece_start<nullable_suffix_ix){
int piece_ix;
const int first_nulling_piece_ix= first_factor_position-piece_start;
const int second_nulling_piece_ix= second_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<first_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,first_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+first_nulling_piece_ix));
for(piece_ix= first_nulling_piece_ix+1;
piece_ix<second_nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,second_nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+second_nulling_piece_ix));
for(piece_ix= second_nulling_piece_ix+1;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,0);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4453 "./marpa.w"
}
}
/*:431*/
#line 4340 "./marpa.w"
}
/*:427*/
#line 4075 "./marpa.w"
}else{
/*432:*/
#line 4458 "./marpa.w"
{
int real_symbol_count;
const int first_factor_position= factor_positions[factor_position_ix];
piece_end= Length_of_XRL(rule)-1;
real_symbol_count= piece_end-piece_start+1;
/*433:*/
#line 4469 "./marpa.w"
{
int piece_ix;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<chaf_irl_length;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,3);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4482 "./marpa.w"
}
/*:433*/
#line 4464 "./marpa.w"
/*434:*/
#line 4487 "./marpa.w"
{
if(piece_start<nullable_suffix_ix)
{
int piece_ix;
const int nulling_piece_ix= first_factor_position-piece_start;
const int chaf_irl_length= (piece_end-piece_start)+1;
IRL chaf_irl= irl_start(g,chaf_irl_length);
LHSID_of_IRL(chaf_irl)= current_lhs_nsyid;
for(piece_ix= 0;piece_ix<nulling_piece_ix;piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+piece_ix));
}
RHSID_of_IRL(chaf_irl,nulling_piece_ix)=
Nulling_NSYID_by_XSYID(RHS_ID_of_RULE(rule,piece_start+nulling_piece_ix));
for(piece_ix= nulling_piece_ix+1;piece_ix<chaf_irl_length;
piece_ix++)
{
RHSID_of_IRL(chaf_irl,piece_ix)=
NSYID_by_XSYID(RHS_ID_of_RULE
(rule,piece_start+piece_ix));
}
irl_finish(g,chaf_irl);
Rank_of_IRL(chaf_irl)= IRL_CHAF_Rank_by_XRL(rule,0);
/*435:*/
#line 4521 "./marpa.w"
{
const int is_virtual_lhs= (piece_start> 0);
Source_XRL_of_IRL(chaf_irl)= rule;
IRL_has_Virtual_LHS(chaf_irl)= Boolean(is_virtual_lhs);
IRL_has_Virtual_RHS(chaf_irl)=
Length_of_IRL(chaf_irl)> real_symbol_count;
Virtual_Start_of_IRL(chaf_irl)= piece_start;
Virtual_End_of_IRL(chaf_irl)= piece_start+real_symbol_count-1;
Real_SYM_Count_of_IRL(chaf_irl)= real_symbol_count;
LHS_XRL_of_NSY(current_lhs_nsy)= chaf_xrl;
XRL_Offset_of_NSY(current_lhs_nsy)= piece_start;
}
/*:435*/
#line 4513 "./marpa.w"
}
}
/*:434*/
#line 4465 "./marpa.w"
}
/*:432*/
#line 4077 "./marpa.w"
}
}
/*:414*/
#line 3983 "./marpa.w"
continue;
}
/*259:*/
#line 2179 "./marpa.w"
{
int symbol_ix;
const IRL new_irl= irl_start(g,rewrite_xrl_length);
Source_XRL_of_IRL(new_irl)= rule;
Rank_of_IRL(new_irl)= IRL_Rank_by_XRL(rule);
for(symbol_ix= 0;symbol_ix<=rewrite_xrl_length;symbol_ix++)
{
new_irl->t_nsyid_array[symbol_ix]=
NSYID_by_XSYID(rule->t_symbols[symbol_ix]);
}
irl_finish(g,new_irl);
}
/*:259*/
#line 3986 "./marpa.w"
}
}
/*:408*/
#line 3118 "./marpa.w"
/*437:*/
#line 4538 "./marpa.w"
{
const XSY start_xsy= XSY_by_ID(start_xsy_id);
if(_MARPA_LIKELY(!XSY_is_Nulling(start_xsy))){
/*438:*/
#line 4546 "./marpa.w"
{
IRL new_start_irl;
const NSY new_start_nsy= nsy_new(g,start_xsy);
NSY_is_Start(new_start_nsy)= 1;
start_xsy->t_is_start= 0;
new_start_irl= irl_start(g,1);
LHSID_of_IRL(new_start_irl)= ID_of_NSY(new_start_nsy);
RHSID_of_IRL(new_start_irl,0)= NSYID_of_XSY(start_xsy);
irl_finish(g,new_start_irl);
IRL_has_Virtual_LHS(new_start_irl)= 1;
Real_SYM_Count_of_IRL(new_start_irl)= 1;
g->t_start_irl= new_start_irl;
}
/*:438*/
#line 4542 "./marpa.w"
}
}
/*:437*/
#line 3119 "./marpa.w"
if(!G_is_Trivial(g)){
/*506:*/
#line 5255 "./marpa.w"
const RULEID irl_count= IRL_Count_of_G(g);
const NSYID nsy_count= NSY_Count_of_G(g);
const XSYID xsy_count= XSY_Count_of_G(g);
Bit_Matrix nsy_by_right_nsy_matrix;
Bit_Matrix prediction_nsy_by_irl_matrix;
/*:506*/
#line 3125 "./marpa.w"
/*509:*/
#line 5278 "./marpa.w"
{
NSYID lhsid;
void*matrix_buffer= my_malloc(matrix_sizeof(
nsy_count,irl_count));
Bit_Matrix irl_by_lhs_matrix=
matrix_buffer_create(matrix_buffer,nsy_count,irl_count);
IRLID irl_id;
for(irl_id= 0;irl_id<irl_count;irl_id++)
{
const IRL irl= IRL_by_ID(irl_id);
const NSYID lhs_nsyid= LHSID_of_IRL(irl);
matrix_bit_set(irl_by_lhs_matrix,lhs_nsyid,irl_id);
}
for(lhsid= 0;lhsid<nsy_count;lhsid++)
{
IRLID irlid;
int min,max,start;
cil_buffer_clear(&g->t_cilar);
for(start= 0;
bv_scan(matrix_row
(irl_by_lhs_matrix,lhsid),
start,&min,&max);start= max+2)
{
for(irlid= min;irlid<=max;irlid++)
{
cil_buffer_push(&g->t_cilar,irlid);
}
}
LHS_CIL_of_NSYID(lhsid)= cil_buffer_add(&g->t_cilar);
}
my_free(matrix_buffer);
}
/*:509*/
#line 3126 "./marpa.w"
/*480:*/
#line 4926 "./marpa.w"
{
IRLID irl_id;
int ahm_count= 0;
AHM base_item;
AHM current_item;
int symbol_instance_of_next_rule= 0;
for(irl_id= 0;irl_id<irl_count;irl_id++){
const IRL irl= IRL_by_ID(irl_id);
/*482:*/
#line 4978 "./marpa.w"
{
int rhs_ix;
for(rhs_ix= 0;rhs_ix<Length_of_IRL(irl);rhs_ix++)
{
const NSYID rh_nsyid= RHSID_of_IRL(irl,rhs_ix);
const NSY nsy= NSY_by_ID(rh_nsyid);
if(!NSY_is_Nulling(nsy))ahm_count++;
}
ahm_count++;
}
/*:482*/
#line 4935 "./marpa.w"
}
current_item= base_item= marpa_new(struct s_ahm,ahm_count);
for(irl_id= 0;irl_id<irl_count;irl_id++){
const IRL irl= IRL_by_ID(irl_id);
SYMI_of_IRL(irl)= symbol_instance_of_next_rule;
/*481:*/
#line 4953 "./marpa.w"
{
int leading_nulls= 0;
int rhs_ix;
const AHM first_ahm_of_irl= current_item;
for(rhs_ix= 0;rhs_ix<Length_of_IRL(irl);rhs_ix++)
{
NSYID rh_nsyid= RHSID_of_IRL(irl,rhs_ix);
if(!NSY_is_Nulling(NSY_by_ID(rh_nsyid)))
{
Last_Proper_SYMI_of_IRL(irl)= symbol_instance_of_next_rule+rhs_ix;
/*483:*/
#line 4990 "./marpa.w"
{
/*485:*/
#line 5013 "./marpa.w"
{
IRL_of_AHM(current_item)= irl;
Null_Count_of_AHM(current_item)= leading_nulls;
Quasi_Position_of_AHM(current_item)= current_item-first_ahm_of_irl;
if(Quasi_Position_of_AHM(current_item)==0){
if(ID_of_IRL(irl)==ID_of_IRL(g->t_start_irl))
{
AHM_was_Predicted(current_item)= 0;
AHM_is_Initial(current_item)= 1;
}else{
AHM_was_Predicted(current_item)= 1;
AHM_is_Initial(current_item)= 0;
}
}else{
AHM_was_Predicted(current_item)= 0;
AHM_is_Initial(current_item)= 0;
}
/*500:*/
#line 5152 "./marpa.w"
Event_AHMIDs_of_AHM(current_item)= NULL;
Event_Group_Size_of_AHM(current_item)= 0;
/*:500*/
#line 5031 "./marpa.w"
}
/*:485*/
#line 4992 "./marpa.w"
AHM_predicts_ZWA(current_item)= 0;
Postdot_NSYID_of_AHM(current_item)= rh_nsyid;
Position_of_AHM(current_item)= rhs_ix;
SYMI_of_AHM(current_item)
= AHM_is_Prediction(current_item)
?-1
:SYMI_of_IRL(irl)+Position_of_AHM(current_item-1);
/*486:*/
#line 5034 "./marpa.w"
{
XRL source_xrl= Source_XRL_of_IRL(irl);
XRL_of_AHM(current_item)= source_xrl;
if(!source_xrl){
XRL_Position_of_AHM(current_item)= -2;
}else{
const int virtual_start= Virtual_Start_of_IRL(irl);
const int irl_position= Position_of_AHM(current_item);
int xrl_position= irl_position;
if(virtual_start>=0)
{
xrl_position+= virtual_start;
}
if(XRL_is_Sequence(source_xrl))
{
xrl_position= irl_position> 0?-1:0;
}
XRL_Position_of_AHM(current_item)= xrl_position;
}
}
/*:486*/
#line 5001 "./marpa.w"
}
/*:483*/
#line 4964 "./marpa.w"
current_item++;
leading_nulls= 0;
}
else
{
leading_nulls++;
}
}
/*484:*/
#line 5004 "./marpa.w"
{
/*485:*/
#line 5013 "./marpa.w"
{
IRL_of_AHM(current_item)= irl;
Null_Count_of_AHM(current_item)= leading_nulls;
Quasi_Position_of_AHM(current_item)= current_item-first_ahm_of_irl;
if(Quasi_Position_of_AHM(current_item)==0){
if(ID_of_IRL(irl)==ID_of_IRL(g->t_start_irl))
{
AHM_was_Predicted(current_item)= 0;
AHM_is_Initial(current_item)= 1;
}else{
AHM_was_Predicted(current_item)= 1;
AHM_is_Initial(current_item)= 0;
}
}else{
AHM_was_Predicted(current_item)= 0;
AHM_is_Initial(current_item)= 0;
}
/*500:*/
#line 5152 "./marpa.w"
Event_AHMIDs_of_AHM(current_item)= NULL;
Event_Group_Size_of_AHM(current_item)= 0;
/*:500*/
#line 5031 "./marpa.w"
}
/*:485*/
#line 5006 "./marpa.w"
Postdot_NSYID_of_AHM(current_item)= -1;
Position_of_AHM(current_item)= -1;
SYMI_of_AHM(current_item)= SYMI_of_IRL(irl)+Position_of_AHM(current_item-1);
/*486:*/
#line 5034 "./marpa.w"
{
XRL source_xrl= Source_XRL_of_IRL(irl);
XRL_of_AHM(current_item)= source_xrl;
if(!source_xrl){
XRL_Position_of_AHM(current_item)= -2;
}else{
const int virtual_start= Virtual_Start_of_IRL(irl);
const int irl_position= Position_of_AHM(current_item);
int xrl_position= irl_position;
if(virtual_start>=0)
{
xrl_position+= virtual_start;
}
if(XRL_is_Sequence(source_xrl))
{
xrl_position= irl_position> 0?-1:0;
}
XRL_Position_of_AHM(current_item)= xrl_position;
}
}
/*:486*/
#line 5010 "./marpa.w"
}
/*:484*/
#line 4973 "./marpa.w"
current_item++;
AHM_Count_of_IRL(irl)= current_item-first_ahm_of_irl;
}
/*:481*/
#line 4941 "./marpa.w"
{
symbol_instance_of_next_rule+= Length_of_IRL(irl);
}
}
SYMI_Count_of_G(g)= symbol_instance_of_next_rule;
MARPA_ASSERT(ahm_count==current_item-base_item);
AHM_Count_of_G(g)= ahm_count;
g->t_ahms= marpa_renew(struct s_ahm,base_item,ahm_count);
/*488:*/
#line 5070 "./marpa.w"
{
AHM items= g->t_ahms;
AHMID item_id= (AHMID)ahm_count;
for(item_id--;item_id>=0;item_id--)
{
AHM item= items+item_id;
IRL irl= IRL_of_AHM(item);
First_AHM_of_IRL(irl)= item;
}
}
/*:488*/
#line 4950 "./marpa.w"
}
/*:480*/
#line 3127 "./marpa.w"
/*512:*/
#line 5331 "./marpa.w"
{
Bit_Matrix prediction_nsy_by_nsy_matrix=
matrix_obs_create(obs_precompute,nsy_count,nsy_count);
/*513:*/
#line 5339 "./marpa.w"
{
IRLID irl_id;
NSYID nsyid;
for(nsyid= 0;nsyid<nsy_count;nsyid++)
{
NSY nsy= NSY_by_ID(nsyid);
if(!NSY_is_LHS(nsy))continue;
matrix_bit_set(prediction_nsy_by_nsy_matrix,nsyid,
nsyid);
}
for(irl_id= 0;irl_id<irl_count;irl_id++)
{
NSYID from_nsyid,to_nsyid;
const IRL irl= IRL_by_ID(irl_id);
const AHM item= First_AHM_of_IRL(irl);
to_nsyid= Postdot_NSYID_of_AHM(item);
if(to_nsyid<0)
continue;
from_nsyid= LHS_NSYID_of_AHM(item);
matrix_bit_set(prediction_nsy_by_nsy_matrix,
from_nsyid,
to_nsyid);
}
}
/*:513*/
#line 5334 "./marpa.w"
transitive_closure(prediction_nsy_by_nsy_matrix);
/*514:*/
#line 5376 "./marpa.w"
{
/*515:*/
#line 5380 "./marpa.w"
{
NSYID from_nsyid;
prediction_nsy_by_irl_matrix=
matrix_obs_create(obs_precompute,nsy_count,
irl_count);
for(from_nsyid= 0;from_nsyid<nsy_count;from_nsyid++)
{
int min,max,start;
for(start= 0;
bv_scan(matrix_row
(prediction_nsy_by_nsy_matrix,from_nsyid),
start,&min,&max);start= max+2)
{
NSYID to_nsyid;
for(to_nsyid= min;to_nsyid<=max;to_nsyid++)
{
int cil_ix;
const CIL lhs_cil= LHS_CIL_of_NSYID(to_nsyid);
const int cil_count= Count_of_CIL(lhs_cil);
for(cil_ix= 0;cil_ix<cil_count;cil_ix++)
{
const IRLID irlid= Item_of_CIL(lhs_cil,cil_ix);
matrix_bit_set(prediction_nsy_by_irl_matrix,
from_nsyid,irlid);
}
}
}
}
}
/*:515*/
#line 5377 "./marpa.w"
}
/*:514*/
#line 5336 "./marpa.w"
}
/*:512*/
#line 3128 "./marpa.w"
/*502:*/
#line 5165 "./marpa.w"
{
nsy_by_right_nsy_matrix=
matrix_obs_create(obs_precompute,nsy_count,nsy_count);
/*503:*/
#line 5176 "./marpa.w"
{
IRLID irl_id;
for(irl_id= 0;irl_id<irl_count;irl_id++)
{
const IRL irl= IRL_by_ID(irl_id);
int rhs_ix;
for(rhs_ix= Length_of_IRL(irl)-1;
rhs_ix>=0;
rhs_ix--)
{
const NSYID rh_nsyid= RHSID_of_IRL(irl,rhs_ix);
if(!NSY_is_Nulling(NSY_by_ID(rh_nsyid)))
{
matrix_bit_set(nsy_by_right_nsy_matrix,
LHSID_of_IRL(irl),
rh_nsyid);
break;
}
}
}
}
/*:503*/
#line 5168 "./marpa.w"
transitive_closure(nsy_by_right_nsy_matrix);
/*504:*/
#line 5201 "./marpa.w"
{
IRLID irl_id;
for(irl_id= 0;irl_id<irl_count;irl_id++)
{
const IRL irl= IRL_by_ID(irl_id);
int rhs_ix;
for(rhs_ix= Length_of_IRL(irl)-1;rhs_ix>=0;rhs_ix--)
{
const NSYID rh_nsyid= RHSID_of_IRL(irl,rhs_ix);
if(!NSY_is_Nulling(NSY_by_ID(rh_nsyid)))
{
if(matrix_bit_test(nsy_by_right_nsy_matrix,
rh_nsyid,
LHSID_of_IRL(irl)))
{
IRL_is_Right_Recursive(irl)= 1;
}
break;
}
}
}
}
/*:504*/
#line 5170 "./marpa.w"
matrix_clear(nsy_by_right_nsy_matrix);
/*505:*/
#line 5228 "./marpa.w"
{
IRLID irl_id;
for(irl_id= 0;irl_id<irl_count;irl_id++)
{
int rhs_ix;
const IRL irl= IRL_by_ID(irl_id);
if(!IRL_is_Right_Recursive(irl)){continue;}
for(rhs_ix= Length_of_IRL(irl)-1;
rhs_ix>=0;
rhs_ix--)
{
const NSYID rh_nsyid= RHSID_of_IRL(irl,rhs_ix);
if(!NSY_is_Nulling(NSY_by_ID(rh_nsyid)))
{
matrix_bit_set(nsy_by_right_nsy_matrix,
LHSID_of_IRL(irl),
rh_nsyid);
break;
}
}
}
}
/*:505*/
#line 5172 "./marpa.w"
transitive_closure(nsy_by_right_nsy_matrix);
}
/*:502*/
#line 3129 "./marpa.w"
/*517:*/
#line 5417 "./marpa.w"
{
AHMID ahm_id;
const int ahm_count= AHM_Count_of_G(g);
for(ahm_id= 0;ahm_id<ahm_count;ahm_id++)
{
const AHM ahm= AHM_by_ID(ahm_id);
const NSYID postdot_nsyid= Postdot_NSYID_of_AHM(ahm);
if(postdot_nsyid<0)
{
Predicted_IRL_CIL_of_AHM(ahm)= cil_empty(&g->t_cilar);
LHS_CIL_of_AHM(ahm)= cil_empty(&g->t_cilar);
}
else
{
Predicted_IRL_CIL_of_AHM(ahm)=
cil_bv_add(&g->t_cilar,
matrix_row(prediction_nsy_by_irl_matrix,postdot_nsyid));
LHS_CIL_of_AHM(ahm)= LHS_CIL_of_NSYID(postdot_nsyid);
}
}
}
/*:517*/
#line 3130 "./marpa.w"
/*518:*/
#line 5441 "./marpa.w"
{
int xsy_id;
g->t_bv_nsyid_is_terminal= bv_obs_create(g->t_obs,nsy_count);
for(xsy_id= 0;xsy_id<xsy_count;xsy_id++)
{
if(XSYID_is_Terminal(xsy_id))
{
const NSY nsy= NSY_of_XSY(XSY_by_ID(xsy_id));
if(nsy)
{
bv_bit_set(g->t_bv_nsyid_is_terminal,
ID_of_NSY(nsy));
}
}
}
}
/*:518*/
#line 3131 "./marpa.w"
/*519:*/
#line 5462 "./marpa.w"
{
int xsyid;
g->t_lbv_xsyid_is_completion_event= bv_obs_create(g->t_obs,xsy_count);
g->t_lbv_xsyid_is_nulled_event= bv_obs_create(g->t_obs,xsy_count);
g->t_lbv_xsyid_is_prediction_event= bv_obs_create(g->t_obs,xsy_count);
for(xsyid= 0;xsyid<xsy_count;xsyid++)
{
if(XSYID_is_Completion_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_completion_event,xsyid);
}
if(XSYID_is_Nulled_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_nulled_event,xsyid);
}
if(XSYID_is_Prediction_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_prediction_event,xsyid);
}
}
}
/*:519*/
#line 3132 "./marpa.w"
/*520:*/
#line 5485 "./marpa.w"
{
AHMID ahm_id;
const int ahm_count_of_g= AHM_Count_of_G(g);
const LBV bv_completion_xsyid= bv_create(xsy_count);
const LBV bv_prediction_xsyid= bv_create(xsy_count);
const LBV bv_nulled_xsyid= bv_create(xsy_count);
const CILAR cilar= &g->t_cilar;
for(ahm_id= 0;ahm_id<ahm_count_of_g;ahm_id++)
{
const AHM ahm= AHM_by_ID(ahm_id);
const NSYID postdot_nsyid= Postdot_NSYID_of_AHM(ahm);
const IRL irl= IRL_of_AHM(ahm);
bv_clear(bv_completion_xsyid);
bv_clear(bv_prediction_xsyid);
bv_clear(bv_nulled_xsyid);
{
int rhs_ix;
int raw_position= Position_of_AHM(ahm);
if(raw_position<0)
{
raw_position= Length_of_IRL(irl);
if(!IRL_has_Virtual_LHS(irl))
{
const NSY lhs= LHS_of_IRL(irl);
const XSY xsy= Source_XSY_of_NSY(lhs);
if(XSY_is_Completion_Event(xsy))
{
const XSYID xsyid= ID_of_XSY(xsy);
bv_bit_set(bv_completion_xsyid,xsyid);
}
}
}
if(postdot_nsyid>=0)
{
const XSY xsy= Source_XSY_of_NSYID(postdot_nsyid);
const XSYID xsyid= ID_of_XSY(xsy);
bv_bit_set(bv_prediction_xsyid,xsyid);
}
for(rhs_ix= raw_position-Null_Count_of_AHM(ahm);
rhs_ix<raw_position;rhs_ix++)
{
int cil_ix;
const NSYID rhs_nsyid= RHSID_of_IRL(irl,rhs_ix);
const XSY xsy= Source_XSY_of_NSYID(rhs_nsyid);
const CIL nulled_xsyids= Nulled_XSYIDs_of_XSY(xsy);
const int cil_count= Count_of_CIL(nulled_xsyids);
for(cil_ix= 0;cil_ix<cil_count;cil_ix++)
{
const XSYID nulled_xsyid=
Item_of_CIL(nulled_xsyids,cil_ix);
bv_bit_set(bv_nulled_xsyid,nulled_xsyid);
}
}
}
Completion_XSYIDs_of_AHM(ahm)=
cil_bv_add(cilar,bv_completion_xsyid);
Nulled_XSYIDs_of_AHM(ahm)= cil_bv_add(cilar,bv_nulled_xsyid);
Prediction_XSYIDs_of_AHM(ahm)=
cil_bv_add(cilar,bv_prediction_xsyid);
}
bv_free(bv_completion_xsyid);
bv_free(bv_prediction_xsyid);
bv_free(bv_nulled_xsyid);
}
/*:520*/
#line 3134 "./marpa.w"
/*521:*/
#line 5551 "./marpa.w"
{
AHMID ahm_id;
for(ahm_id= 0;ahm_id<AHM_Count_of_G(g);ahm_id++)
{
const CILAR cilar= &g->t_cilar;
const AHM ahm= AHM_by_ID(ahm_id);
const int ahm_is_event=
Count_of_CIL(Completion_XSYIDs_of_AHM(ahm))
||Count_of_CIL(Nulled_XSYIDs_of_AHM(ahm))
||Count_of_CIL(Prediction_XSYIDs_of_AHM(ahm));
Event_AHMIDs_of_AHM(ahm)=
ahm_is_event?cil_singleton(cilar,ahm_id):cil_empty(cilar);
}
}
/*:521*/
#line 3135 "./marpa.w"
/*522:*/
#line 5567 "./marpa.w"
{
const int ahm_count_of_g= AHM_Count_of_G(g);
AHMID outer_ahm_id;
for(outer_ahm_id= 0;outer_ahm_id<ahm_count_of_g;outer_ahm_id++)
{
AHMID inner_ahm_id;
const AHM outer_ahm= AHM_by_ID(outer_ahm_id);
NSYID outer_nsyid;
if(!AHM_is_Leo_Completion(outer_ahm)){
if(AHM_has_Event(outer_ahm)){
Event_Group_Size_of_AHM(outer_ahm)= 1;
}
continue;
}
outer_nsyid= LHSID_of_AHM(outer_ahm);
for(inner_ahm_id= 0;inner_ahm_id<ahm_count_of_g;
inner_ahm_id++)
{
NSYID inner_nsyid;
const AHM inner_ahm= AHM_by_ID(inner_ahm_id);
if(!AHM_has_Event(inner_ahm))
continue;
if(!AHM_is_Leo_Completion(inner_ahm))
continue;
inner_nsyid= LHSID_of_AHM(inner_ahm);
if(matrix_bit_test(nsy_by_right_nsy_matrix,
outer_nsyid,
inner_nsyid))
{
Event_Group_Size_of_AHM(outer_ahm)++;
}
}
}
}
/*:522*/
#line 3136 "./marpa.w"
/*541:*/
#line 5772 "./marpa.w"
{
AHMID ahm_id;
const int ahm_count_of_g= AHM_Count_of_G(g);
for(ahm_id= 0;ahm_id<ahm_count_of_g;ahm_id++)
{
ZWP_Object sought_zwp_object;
ZWP sought_zwp= &sought_zwp_object;
ZWP found_zwp;
MARPA_AVL_TRAV traverser;
const AHM ahm= AHM_by_ID(ahm_id);
const XRL ahm_xrl= XRL_of_AHM(ahm);
cil_buffer_clear(&g->t_cilar);
if(ahm_xrl)
{
const int xrl_dot_end= Raw_XRL_Position_of_AHM(ahm);
const int xrl_dot_start= xrl_dot_end-Null_Count_of_AHM(ahm);
const XRLID sought_xrlid= ID_of_XRL(ahm_xrl);
XRLID_of_ZWP(sought_zwp)= sought_xrlid;
Dot_of_ZWP(sought_zwp)= xrl_dot_start;
ZWAID_of_ZWP(sought_zwp)= 0;
traverser= _marpa_avl_t_init((g)->t_zwp_tree);
found_zwp= _marpa_avl_t_at_or_after(traverser,sought_zwp);
while(
found_zwp
&&XRLID_of_ZWP(found_zwp)==sought_xrlid
&&Dot_of_ZWP(found_zwp)<=xrl_dot_end)
{
cil_buffer_push(&g->t_cilar,ZWAID_of_ZWP(found_zwp));
found_zwp= _marpa_avl_t_next(traverser);
}
}
ZWA_CIL_of_AHM(ahm)= cil_buffer_add(&g->t_cilar);
}
}
/*:541*/
#line 3137 "./marpa.w"
/*542:*/
#line 5817 "./marpa.w"
{
AHMID ahm_id;
const int ahm_count_of_g= AHM_Count_of_G(g);
for(ahm_id= 0;ahm_id<ahm_count_of_g;ahm_id++)
{
const AHM ahm_to_populate= AHM_by_ID(ahm_id);
const CIL prediction_cil= Predicted_IRL_CIL_of_AHM(ahm_to_populate);
const int prediction_count= Count_of_CIL(prediction_cil);
int cil_ix;
for(cil_ix= 0;cil_ix<prediction_count;cil_ix++)
{
const IRLID prediction_irlid= Item_of_CIL(prediction_cil,cil_ix);
const AHM prediction_ahm_of_irl= First_AHM_of_IRLID(prediction_irlid);
const CIL zwaids_of_prediction= ZWA_CIL_of_AHM(prediction_ahm_of_irl);
if(Count_of_CIL(zwaids_of_prediction)> 0){
AHM_predicts_ZWA(ahm_to_populate)= 1;
break;
}
}
}
}
/*:542*/
#line 3138 "./marpa.w"
}
g->t_is_precomputed= 1;
if(g->t_has_cycle)
{
MARPA_ERROR(MARPA_ERR_GRAMMAR_HAS_CYCLE);
goto FAILURE;
}
/*368:*/
#line 3160 "./marpa.w"
{cilar_buffer_reinit(&g->t_cilar);}
/*:368*/
#line 3146 "./marpa.w"
return_value= 0;
goto CLEANUP;
FAILURE:;
goto CLEANUP;
CLEANUP:;
marpa_obs_free(obs_precompute);
return return_value;
}
/*:367*//*378:*/
#line 3258 "./marpa.w"
PRIVATE_NOT_INLINE int sym_rule_cmp(
const void*ap,
const void*bp,
void*param UNUSED)
{
const struct sym_rule_pair*pair_a= (struct sym_rule_pair*)ap;
const struct sym_rule_pair*pair_b= (struct sym_rule_pair*)bp;
int result= pair_a->t_symid-pair_b->t_symid;
if(result)return result;
return pair_a->t_ruleid-pair_b->t_ruleid;
}
/*:378*//*456:*/
#line 4765 "./marpa.w"
PRIVATE int ahm_is_valid(
GRAMMAR g,AHMID item_id)
{
return item_id<(AHMID)AHM_Count_of_G(g)&&item_id>=0;
}
/*:456*//*473:*/
#line 4889 "./marpa.w"
int _marpa_g_ahm_count(Marpa_Grammar g){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 4891 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 4892 "./marpa.w"
return AHM_Count_of_G(g);
}
/*:473*//*474:*/
#line 4896 "./marpa.w"
Marpa_IRL_ID _marpa_g_ahm_irl(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 4899 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 4900 "./marpa.w"
/*1211:*/
#line 14311 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1211*/
#line 4901 "./marpa.w"
return IRLID_of_AHM(AHM_by_ID(item_id));
}
/*:474*//*476:*/
#line 4906 "./marpa.w"
int _marpa_g_ahm_position(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 4909 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 4910 "./marpa.w"
/*1211:*/
#line 14311 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1211*/
#line 4911 "./marpa.w"
return Position_of_AHM(AHM_by_ID(item_id));
}
/*:476*//*478:*/
#line 4916 "./marpa.w"
Marpa_Symbol_ID _marpa_g_ahm_postdot(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 4919 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 4920 "./marpa.w"
/*1211:*/
#line 14311 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1211*/
#line 4921 "./marpa.w"
return Postdot_NSYID_of_AHM(AHM_by_ID(item_id));
}
/*:478*//*537:*/
#line 5682 "./marpa.w"
PRIVATE_NOT_INLINE int zwp_cmp(
const void*ap,
const void*bp,
void*param UNUSED)
{
const ZWP_Const zwp_a= ap;
const ZWP_Const zwp_b= bp;
int subkey= XRLID_of_ZWP(zwp_a)-XRLID_of_ZWP(zwp_b);
if(subkey)return subkey;
subkey= Dot_of_ZWP(zwp_a)-Dot_of_ZWP(zwp_b);
if(subkey)return subkey;
return ZWAID_of_ZWP(zwp_a)-ZWAID_of_ZWP(zwp_b);
}
/*:537*//*538:*/
#line 5697 "./marpa.w"
Marpa_Assertion_ID
marpa_g_zwa_new(Marpa_Grammar g,int default_value)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 5701 "./marpa.w"
ZWAID zwa_id;
GZWA gzwa;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 5704 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 5705 "./marpa.w"
if(_MARPA_UNLIKELY(default_value<0||default_value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
gzwa= marpa_obs_new(g->t_obs,GZWA_Object,1);
zwa_id= MARPA_DSTACK_LENGTH((g)->t_gzwa_stack);
*MARPA_DSTACK_PUSH((g)->t_gzwa_stack,GZWA)= gzwa;
gzwa->t_id= zwa_id;
gzwa->t_default_value= default_value?1:0;
return zwa_id;
}
/*:538*//*539:*/
#line 5719 "./marpa.w"
Marpa_Assertion_ID
marpa_g_highest_zwa_id(Marpa_Grammar g)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 5723 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 5724 "./marpa.w"
return ZWA_Count_of_G(g)-1;
}
/*:539*//*540:*/
#line 5731 "./marpa.w"
int
marpa_g_zwa_place(Marpa_Grammar g,
Marpa_Assertion_ID zwaid,
Marpa_Rule_ID xrl_id,int rhs_ix)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 5737 "./marpa.w"
void*avl_insert_result;
ZWP zwp;
XRL xrl;
int xrl_length;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 5742 "./marpa.w"
/*1199:*/
#line 14235 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1199*/
#line 5743 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 5744 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 5745 "./marpa.w"
/*1210:*/
#line 14300 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1210*/
#line 5746 "./marpa.w"
/*1209:*/
#line 14294 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1209*/
#line 5747 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(rhs_ix<-1){
MARPA_ERROR(MARPA_ERR_RHS_IX_NEGATIVE);
return failure_indicator;
}
xrl_length= Length_of_XRL(xrl);
if(xrl_length<=rhs_ix){
MARPA_ERROR(MARPA_ERR_RHS_IX_OOB);
return failure_indicator;
}
if(rhs_ix==-1){
rhs_ix= XRL_is_Sequence(xrl)?1:xrl_length;
}
zwp= marpa_obs_new(g->t_obs,ZWP_Object,1);
XRLID_of_ZWP(zwp)= xrl_id;
Dot_of_ZWP(zwp)= rhs_ix;
ZWAID_of_ZWP(zwp)= zwaid;
avl_insert_result= _marpa_avl_insert(g->t_zwp_tree,zwp);
return avl_insert_result?-1:0;
}
/*:540*//*546:*/
#line 5863 "./marpa.w"
Marpa_Recognizer marpa_r_new(Marpa_Grammar g)
{
RECCE r;
int nsy_count;
int irl_count;
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 5869 "./marpa.w"
/*1200:*/
#line 14241 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1200*/
#line 5870 "./marpa.w"
nsy_count= NSY_Count_of_G(g);
irl_count= IRL_Count_of_G(g);
r= my_malloc(sizeof(struct marpa_r));
/*611:*/
#line 6454 "./marpa.w"
r->t_obs= marpa_obs_init;
/*:611*/
#line 5874 "./marpa.w"
/*549:*/
#line 5882 "./marpa.w"
r->t_ref_count= 1;
/*:549*//*554:*/
#line 5933 "./marpa.w"
{
G_of_R(r)= g;
grammar_ref(g);
}
/*:554*//*559:*/
#line 5952 "./marpa.w"
Input_Phase_of_R(r)= R_BEFORE_INPUT;
/*:559*//*561:*/
#line 5962 "./marpa.w"
r->t_first_earley_set= NULL;
r->t_latest_earley_set= NULL;
r->t_current_earleme= -1;
/*:561*//*565:*/
#line 5989 "./marpa.w"
r->t_earley_item_warning_threshold=
MAX(DEFAULT_YIM_WARNING_THRESHOLD,AHM_Count_of_G(g)*3);
/*:565*//*569:*/
#line 6018 "./marpa.w"
r->t_furthest_earleme= 0;
/*:569*//*574:*/
#line 6040 "./marpa.w"
r->t_lbv_xsyid_completion_event_is_active= NULL;
r->t_lbv_xsyid_nulled_event_is_active= NULL;
r->t_lbv_xsyid_prediction_event_is_active= NULL;
r->t_active_event_count= 0;
/*:574*//*576:*/
#line 6051 "./marpa.w"
r->t_bv_nsyid_is_expected= bv_obs_create(r->t_obs,nsy_count);
/*:576*//*580:*/
#line 6128 "./marpa.w"
r->t_nsy_expected_is_event= lbv_obs_new0(r->t_obs,nsy_count);
/*:580*//*598:*/
#line 6369 "./marpa.w"
r->t_use_leo_flag= 1;
r->t_is_using_leo= 0;
/*:598*//*602:*/
#line 6402 "./marpa.w"
r->t_bv_irl_seen= bv_obs_create(r->t_obs,irl_count);
MARPA_DSTACK_INIT2(r->t_irl_cil_stack,CIL);
/*:602*//*605:*/
#line 6419 "./marpa.w"
r->t_is_exhausted= 0;
/*:605*//*609:*/
#line 6447 "./marpa.w"
r->t_first_inconsistent_ys= -1;
/*:609*//*615:*/
#line 6476 "./marpa.w"
{
ZWAID zwaid;
const int zwa_count= ZWA_Count_of_R(r);
(r)->t_zwas= marpa_obs_new(r->t_obs,ZWA_Object,ZWA_Count_of_R(r));
for(zwaid= 0;zwaid<zwa_count;zwaid++){
const GZWA gzwa= GZWA_by_ID(zwaid);
const ZWA zwa= RZWA_by_ID(zwaid);
ID_of_ZWA(zwa)= ID_of_GZWA(gzwa);
Default_Value_of_ZWA(zwa)= Default_Value_of_GZWA(gzwa);
Memo_Value_of_ZWA(zwa)= Default_Value_of_GZWA(gzwa);
Memo_YSID_of_ZWA(zwa)= -1;
}
}
/*:615*//*630:*/
#line 6570 "./marpa.w"
r->t_earley_set_count= 0;
/*:630*//*692:*/
#line 7361 "./marpa.w"
MARPA_DSTACK_INIT2(r->t_alternatives,ALT_Object);
/*:692*//*717:*/
#line 7862 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_yim_work_stack);
/*:717*//*721:*/
#line 7877 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_completion_stack);
/*:721*//*725:*/
#line 7888 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_earley_set_stack);
/*:725*//*815:*/
#line 9370 "./marpa.w"
r->t_current_report_item= &progress_report_not_ready;
r->t_progress_report_traverser= NULL;
/*:815*//*849:*/
#line 9743 "./marpa.w"
ur_node_stack_init(URS_of_R(r));
/*:849*//*1229:*/
#line 14486 "./marpa.w"
r->t_trace_earley_set= NULL;
/*:1229*//*1236:*/
#line 14561 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1236*//*1250:*/
#line 14761 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1250*//*1258:*/
#line 14906 "./marpa.w"
r->t_trace_source_link= NULL;
r->t_trace_source_type= NO_SOURCE;
/*:1258*/
#line 5875 "./marpa.w"
/*1179:*/
#line 14040 "./marpa.w"
{
if(G_is_Trivial(g)){
psar_safe(Dot_PSAR_of_R(r));
}else{
psar_init(Dot_PSAR_of_R(r),AHM_Count_of_G(g));
}
}
/*:1179*/
#line 5876 "./marpa.w"
return r;
}
/*:546*//*550:*/
#line 5886 "./marpa.w"
PRIVATE void
recce_unref(RECCE r)
{
MARPA_ASSERT(r->t_ref_count> 0)
r->t_ref_count--;
if(r->t_ref_count<=0)
{
recce_free(r);
}
}
void
marpa_r_unref(Marpa_Recognizer r)
{
recce_unref(r);
}
/*:550*//*551:*/
#line 5904 "./marpa.w"
PRIVATE
RECCE recce_ref(RECCE r)
{
MARPA_ASSERT(r->t_ref_count> 0)
r->t_ref_count++;
return r;
}
Marpa_Recognizer
marpa_r_ref(Marpa_Recognizer r)
{
return recce_ref(r);
}
/*:551*//*552:*/
#line 5918 "./marpa.w"
PRIVATE
void recce_free(struct marpa_r*r)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 5922 "./marpa.w"
/*556:*/
#line 5940 "./marpa.w"
grammar_unref(g);
/*:556*//*603:*/
#line 6405 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_irl_cil_stack);
/*:603*//*693:*/
#line 7363 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_alternatives);
/*:693*//*719:*/
#line 7870 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_yim_work_stack);
/*:719*//*723:*/
#line 7885 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_completion_stack);
/*:723*//*726:*/
#line 7889 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_earley_set_stack);
/*:726*//*817:*/
#line 9379 "./marpa.w"
/*816:*/
#line 9373 "./marpa.w"
r->t_current_report_item= &progress_report_not_ready;
if(r->t_progress_report_traverser){
_marpa_avl_destroy(MARPA_TREE_OF_AVL_TRAV(r->t_progress_report_traverser));
}
r->t_progress_report_traverser= NULL;
/*:816*/
#line 9380 "./marpa.w"
;
/*:817*//*850:*/
#line 9745 "./marpa.w"
ur_node_stack_destroy(URS_of_R(r));
/*:850*//*1180:*/
#line 14048 "./marpa.w"
psar_destroy(Dot_PSAR_of_R(r));
/*:1180*/
#line 5923 "./marpa.w"
/*612:*/
#line 6455 "./marpa.w"
marpa_obs_free(r->t_obs);
/*:612*/
#line 5924 "./marpa.w"
my_free(r);
}
/*:552*//*562:*/
#line 5970 "./marpa.w"
unsigned int marpa_r_current_earleme(Marpa_Recognizer r)
{return(unsigned int)Current_Earleme_of_R(r);}
/*:562*//*563:*/
#line 5978 "./marpa.w"
PRIVATE YS ys_at_current_earleme(RECCE r)
{
const YS latest= Latest_YS_of_R(r);
if(Earleme_of_YS(latest)==Current_Earleme_of_R(r))return latest;
return NULL;
}
/*:563*//*566:*/
#line 5992 "./marpa.w"
int
marpa_r_earley_item_warning_threshold(Marpa_Recognizer r)
{
return r->t_earley_item_warning_threshold;
}
/*:566*//*567:*/
#line 6001 "./marpa.w"
int
marpa_r_earley_item_warning_threshold_set(Marpa_Recognizer r,int threshold)
{
const int new_threshold= threshold<=0?YIM_FATAL_THRESHOLD:threshold;
r->t_earley_item_warning_threshold= new_threshold;
return new_threshold;
}
/*:567*//*570:*/
#line 6019 "./marpa.w"
unsigned int marpa_r_furthest_earleme(Marpa_Recognizer r)
{return(unsigned int)Furthest_Earleme_of_R(r);}
/*:570*//*577:*/
#line 6059 "./marpa.w"
int marpa_r_terminals_expected(Marpa_Recognizer r,Marpa_Symbol_ID*buffer)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6062 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6063 "./marpa.w"
NSYID xsy_count;
Bit_Vector bv_terminals;
int min,max,start;
int next_buffer_ix= 0;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6069 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6070 "./marpa.w"
xsy_count= XSY_Count_of_G(g);
bv_terminals= bv_create(xsy_count);
for(start= 0;bv_scan(r->t_bv_nsyid_is_expected,start,&min,&max);
start= max+2)
{
NSYID nsyid;
for(nsyid= min;nsyid<=max;nsyid++)
{
const XSY xsy= Source_XSY_of_NSYID(nsyid);
bv_bit_set(bv_terminals,ID_of_XSY(xsy));
}
}
for(start= 0;bv_scan(bv_terminals,start,&min,&max);start= max+2)
{
XSYID xsyid;
for(xsyid= min;xsyid<=max;xsyid++)
{
buffer[next_buffer_ix++]= xsyid;
}
}
bv_free(bv_terminals);
return next_buffer_ix;
}
/*:577*//*578:*/
#line 6097 "./marpa.w"
int marpa_r_terminal_is_expected(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6101 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6102 "./marpa.w"
XSY xsy;
NSY nsy;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6105 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6106 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 6107 "./marpa.w"
/*1203:*/
#line 14258 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1203*/
#line 6108 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(!XSY_is_Terminal(xsy))){
return 0;
}
nsy= NSY_of_XSY(xsy);
if(_MARPA_UNLIKELY(!nsy))return 0;
return bv_bit_test(r->t_bv_nsyid_is_expected,ID_of_NSY(nsy));
}
/*:578*//*581:*/
#line 6131 "./marpa.w"
int
marpa_r_expected_symbol_event_set(Marpa_Recognizer r,Marpa_Symbol_ID xsy_id,
int value)
{
XSY xsy;
NSY nsy;
NSYID nsyid;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6139 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6140 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6141 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 6142 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 6143 "./marpa.w"
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
xsy= XSY_by_ID(xsy_id);
if(_MARPA_UNLIKELY(XSY_is_Nulling(xsy))){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NULLING);
}
nsy= NSY_of_XSY(xsy);
if(_MARPA_UNLIKELY(!nsy)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_UNUSED);
}
nsyid= ID_of_NSY(nsy);
if(value){
lbv_bit_set(r->t_nsy_expected_is_event,nsyid);
}else{
lbv_bit_clear(r->t_nsy_expected_is_event,nsyid);
}
return value;
}
/*:581*//*583:*/
#line 6180 "./marpa.w"
int
marpa_r_completion_symbol_activate(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id,int reactivate)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6185 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6186 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6187 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 6188 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 6189 "./marpa.w"
switch(reactivate){
case 0:
if(lbv_bit_test(r->t_lbv_xsyid_completion_event_is_active,xsy_id)){
lbv_bit_clear(r->t_lbv_xsyid_completion_event_is_active,xsy_id);
r->t_active_event_count--;
}
return 0;
case 1:
if(!lbv_bit_test(g->t_lbv_xsyid_is_completion_event,xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_COMPLETION_EVENT);
}
if(!lbv_bit_test(r->t_lbv_xsyid_completion_event_is_active,xsy_id)){
lbv_bit_set(r->t_lbv_xsyid_completion_event_is_active,xsy_id);
r->t_active_event_count++;
}
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:583*//*585:*/
#line 6227 "./marpa.w"
int
marpa_r_nulled_symbol_activate(Marpa_Recognizer r,Marpa_Symbol_ID xsy_id,
int reactivate)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6232 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6233 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6234 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 6235 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 6236 "./marpa.w"
switch(reactivate){
case 0:
if(lbv_bit_test(r->t_lbv_xsyid_nulled_event_is_active,xsy_id)){
lbv_bit_clear(r->t_lbv_xsyid_nulled_event_is_active,xsy_id);
r->t_active_event_count--;
}
return 0;
case 1:
if(!lbv_bit_test(g->t_lbv_xsyid_is_nulled_event,xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_NULLED_EVENT);
}
if(!lbv_bit_test(r->t_lbv_xsyid_nulled_event_is_active,xsy_id)){
lbv_bit_set(r->t_lbv_xsyid_nulled_event_is_active,xsy_id);
r->t_active_event_count++;
}
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:585*//*587:*/
#line 6274 "./marpa.w"
int
marpa_r_prediction_symbol_activate(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id,int reactivate)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6279 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6280 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6281 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 6282 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 6283 "./marpa.w"
switch(reactivate){
case 0:
if(lbv_bit_test(r->t_lbv_xsyid_prediction_event_is_active,xsy_id)){
lbv_bit_clear(r->t_lbv_xsyid_prediction_event_is_active,xsy_id);
r->t_active_event_count--;
}
return 0;
case 1:
if(!lbv_bit_test(g->t_lbv_xsyid_is_prediction_event,xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_PREDICTION_EVENT);
}
if(!lbv_bit_test(r->t_lbv_xsyid_prediction_event_is_active,xsy_id)){
lbv_bit_set(r->t_lbv_xsyid_prediction_event_is_active,xsy_id);
r->t_active_event_count++;
}
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:587*//*599:*/
#line 6375 "./marpa.w"
int _marpa_r_is_use_leo(Marpa_Recognizer r)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6378 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6379 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6380 "./marpa.w"
return r->t_use_leo_flag;
}
/*:599*//*600:*/
#line 6383 "./marpa.w"
int _marpa_r_is_use_leo_set(
Marpa_Recognizer r,int value)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6387 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6388 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6389 "./marpa.w"
/*1212:*/
#line 14320 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_STARTED);
return failure_indicator;
}
/*:1212*/
#line 6390 "./marpa.w"
return r->t_use_leo_flag= value?1:0;
}
/*:600*//*607:*/
#line 6430 "./marpa.w"
int marpa_r_is_exhausted(Marpa_Recognizer r)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6433 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6434 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6435 "./marpa.w"
return R_is_Exhausted(r);
}
/*:607*//*634:*/
#line 6589 "./marpa.w"
int marpa_r_earley_set_value(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6592 "./marpa.w"
YS earley_set;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6594 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6595 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6596 "./marpa.w"
if(set_id<0)
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
r_update_earley_sets(r);
if(!YS_Ord_is_Valid(r,set_id))
{
MARPA_ERROR(MARPA_ERR_NO_EARLEY_SET_AT_LOCATION);
return failure_indicator;
}
earley_set= YS_of_R_by_Ord(r,set_id);
return Value_of_YS(earley_set);
}
/*:634*//*635:*/
#line 6612 "./marpa.w"
int
marpa_r_earley_set_values(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id,
int*p_value,void**p_pvalue)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6617 "./marpa.w"
YS earley_set;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6619 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6620 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6621 "./marpa.w"
if(set_id<0)
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
r_update_earley_sets(r);
if(!YS_Ord_is_Valid(r,set_id))
{
MARPA_ERROR(MARPA_ERR_NO_EARLEY_SET_AT_LOCATION);
return failure_indicator;
}
earley_set= YS_of_R_by_Ord(r,set_id);
if(p_value)*p_value= Value_of_YS(earley_set);
if(p_pvalue)*p_pvalue= PValue_of_YS(earley_set);
return 1;
}
/*:635*//*636:*/
#line 6639 "./marpa.w"
int marpa_r_latest_earley_set_value_set(Marpa_Recognizer r,int value)
{
YS earley_set;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6643 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6644 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6645 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6646 "./marpa.w"
earley_set= Latest_YS_of_R(r);
return Value_of_YS(earley_set)= value;
}
/*:636*//*637:*/
#line 6651 "./marpa.w"
int marpa_r_latest_earley_set_values_set(Marpa_Recognizer r,int value,
void*pvalue)
{
YS earley_set;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 6656 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6657 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 6658 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 6659 "./marpa.w"
earley_set= Latest_YS_of_R(r);
Value_of_YS(earley_set)= value;
PValue_of_YS(earley_set)= pvalue;
return 1;
}
/*:637*//*638:*/
#line 6667 "./marpa.w"
PRIVATE YS
earley_set_new(RECCE r,JEARLEME id)
{
YSK_Object key;
YS set;
set= marpa_obs_new(r->t_obs,YS_Object,1);
key.t_earleme= id;
set->t_key= key;
set->t_postdot_ary= NULL;
set->t_postdot_sym_count= 0;
YIM_Count_of_YS(set)= 0;
set->t_ordinal= r->t_earley_set_count++;
YIMs_of_YS(set)= NULL;
Next_YS_of_YS(set)= NULL;
/*633:*/
#line 6585 "./marpa.w"
Value_of_YS(set)= -1;
PValue_of_YS(set)= NULL;
/*:633*//*1186:*/
#line 14104 "./marpa.w"
{set->t_dot_psl= NULL;}
/*:1186*/
#line 6682 "./marpa.w"
return set;
}
/*:638*//*648:*/
#line 6791 "./marpa.w"
PRIVATE YIM earley_item_create(const RECCE r,
const YIK_Object key)
{
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 6795 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 6796 "./marpa.w"
YIM new_item;
YIM*end_of_work_stack;
const YS set= key.t_set;
const int count= ++YIM_Count_of_YS(set);
/*650:*/
#line 6851 "./marpa.w"
if(count>=r->t_earley_item_warning_threshold)
{
if(_MARPA_UNLIKELY(count>=YIM_FATAL_THRESHOLD))
{
MARPA_FATAL(MARPA_ERR_YIM_COUNT);
return failure_indicator;
}
int_event_new(g,MARPA_EVENT_EARLEY_ITEM_THRESHOLD,count);
}
/*:650*/
#line 6801 "./marpa.w"
new_item= marpa_obs_new(r->t_obs,struct s_earley_item,1);
new_item->t_key= key;
new_item->t_source_type= NO_SOURCE;
YIM_is_Rejected(new_item)= 0;
YIM_is_Active(new_item)= 1;
{
SRC unique_yim_src= SRC_of_YIM(new_item);
SRC_is_Rejected(unique_yim_src)= 0;
SRC_is_Active(unique_yim_src)= 1;
}
Ord_of_YIM(new_item)= YIM_ORDINAL_CLAMP((unsigned int)count-1);
end_of_work_stack= WORK_YIM_PUSH(r);
*end_of_work_stack= new_item;
return new_item;
}
/*:648*//*649:*/
#line 6818 "./marpa.w"
PRIVATE YIM
earley_item_assign(const RECCE r,const YS set,const YS origin,
const AHM ahm)
{
const GRAMMAR g= G_of_R(r);
YIK_Object key;
YIM yim;
PSL psl;
AHMID ahm_id= ID_of_AHM(ahm);
PSL*psl_owner= &Dot_PSL_of_YS(origin);
if(!*psl_owner)
{
psl_claim(psl_owner,Dot_PSAR_of_R(r));
}
psl= *psl_owner;
yim= PSL_Datum(psl,ahm_id);
if(yim
&&Earleme_of_YIM(yim)==Earleme_of_YS(set)
&&Earleme_of_YS(Origin_of_YIM(yim))==Earleme_of_YS(origin))
{
return yim;
}
key.t_origin= origin;
key.t_ahm= ahm;
key.t_set= set;
yim= earley_item_create(r,key);
PSL_Datum(psl,ahm_id)= yim;
return yim;
}
/*:649*//*653:*/
#line 6881 "./marpa.w"
PRIVATE_NOT_INLINE Marpa_Error_Code invalid_source_type_code(unsigned int type)
{
switch(type){
case NO_SOURCE:
return MARPA_ERR_SOURCE_TYPE_IS_NONE;
case SOURCE_IS_TOKEN:
return MARPA_ERR_SOURCE_TYPE_IS_TOKEN;
case SOURCE_IS_COMPLETION:
return MARPA_ERR_SOURCE_TYPE_IS_COMPLETION;
case SOURCE_IS_LEO:
return MARPA_ERR_SOURCE_TYPE_IS_LEO;
case SOURCE_IS_AMBIGUOUS:
return MARPA_ERR_SOURCE_TYPE_IS_AMBIGUOUS;
}
return MARPA_ERR_SOURCE_TYPE_IS_UNKNOWN;
}
/*:653*//*662:*/
#line 6998 "./marpa.w"
PRIVATE PIM*
pim_nsy_p_find(YS set,NSYID nsyid)
{
int lo= 0;
int hi= Postdot_SYM_Count_of_YS(set)-1;
PIM*postdot_array= set->t_postdot_ary;
while(hi>=lo){
int trial= lo+(hi-lo)/2;
PIM trial_pim= postdot_array[trial];
NSYID trial_nsyid= Postdot_NSYID_of_PIM(trial_pim);
if(trial_nsyid==nsyid)return postdot_array+trial;
if(trial_nsyid<nsyid){
lo= trial+1;
}else{
hi= trial-1;
}
}
return NULL;
}
/*:662*//*663:*/
#line 7018 "./marpa.w"
PRIVATE PIM first_pim_of_ys_by_nsyid(YS set,NSYID nsyid)
{
PIM*pim_nsy_p= pim_nsy_p_find(set,nsyid);
return pim_nsy_p?*pim_nsy_p:NULL;
}
/*:663*//*680:*/
#line 7173 "./marpa.w"
PRIVATE
SRCL unique_srcl_new(struct marpa_obstack*t_obs)
{
const SRCL new_srcl= marpa_obs_new(t_obs,SRCL_Object,1);
SRCL_is_Rejected(new_srcl)= 0;
SRCL_is_Active(new_srcl)= 1;
return new_srcl;
}
/*:680*//*681:*/
#line 7183 "./marpa.w"
PRIVATE
void
tkn_link_add(RECCE r,
YIM item,
YIM predecessor,
ALT alternative)
{
SRCL new_link;
unsigned int previous_source_type= Source_Type_of_YIM(item);
if(previous_source_type==NO_SOURCE)
{
const SRCL source_link= SRCL_of_YIM(item);
Source_Type_of_YIM(item)= SOURCE_IS_TOKEN;
Predecessor_of_SRCL(source_link)= predecessor;
NSYID_of_SRCL(source_link)= NSYID_of_ALT(alternative);
Value_of_SRCL(source_link)= Value_of_ALT(alternative);
Next_SRCL_of_SRCL(source_link)= NULL;
return;
}
if(previous_source_type!=SOURCE_IS_AMBIGUOUS)
{
earley_item_ambiguate(r,item);
}
new_link= unique_srcl_new(r->t_obs);
new_link->t_next= LV_First_Token_SRCL_of_YIM(item);
new_link->t_source.t_predecessor= predecessor;
NSYID_of_Source(new_link->t_source)= NSYID_of_ALT(alternative);
Value_of_Source(new_link->t_source)= Value_of_ALT(alternative);
LV_First_Token_SRCL_of_YIM(item)= new_link;
}
/*:681*//*682:*/
#line 7214 "./marpa.w"
PRIVATE
void
completion_link_add(RECCE r,
YIM item,
YIM predecessor,
YIM cause)
{
SRCL new_link;
unsigned int previous_source_type= Source_Type_of_YIM(item);
if(previous_source_type==NO_SOURCE)
{
const SRCL source_link= SRCL_of_YIM(item);
Source_Type_of_YIM(item)= SOURCE_IS_COMPLETION;
Predecessor_of_SRCL(source_link)= predecessor;
Cause_of_SRCL(source_link)= cause;
Next_SRCL_of_SRCL(source_link)= NULL;
return;
}
if(previous_source_type!=SOURCE_IS_AMBIGUOUS)
{
earley_item_ambiguate(r,item);
}
new_link= unique_srcl_new(r->t_obs);
new_link->t_next= LV_First_Completion_SRCL_of_YIM(item);
new_link->t_source.t_predecessor= predecessor;
Cause_of_Source(new_link->t_source)= cause;
LV_First_Completion_SRCL_of_YIM(item)= new_link;
}
/*:682*//*683:*/
#line 7244 "./marpa.w"
PRIVATE void
leo_link_add(RECCE r,
YIM item,
LIM predecessor,
YIM cause)
{
SRCL new_link;
unsigned int previous_source_type= Source_Type_of_YIM(item);
if(previous_source_type==NO_SOURCE)
{
const SRCL source_link= SRCL_of_YIM(item);
Source_Type_of_YIM(item)= SOURCE_IS_LEO;
Predecessor_of_SRCL(source_link)= predecessor;
Cause_of_SRCL(source_link)= cause;
Next_SRCL_of_SRCL(source_link)= NULL;
return;
}
if(previous_source_type!=SOURCE_IS_AMBIGUOUS)
{
earley_item_ambiguate(r,item);
}
new_link= unique_srcl_new(r->t_obs);
new_link->t_next= LV_First_Leo_SRCL_of_YIM(item);
new_link->t_source.t_predecessor= predecessor;
Cause_of_Source(new_link->t_source)= cause;
LV_First_Leo_SRCL_of_YIM(item)= new_link;
}
/*:683*//*685:*/
#line 7293 "./marpa.w"
PRIVATE_NOT_INLINE
void earley_item_ambiguate(struct marpa_r*r,YIM item)
{
unsigned int previous_source_type= Source_Type_of_YIM(item);
Source_Type_of_YIM(item)= SOURCE_IS_AMBIGUOUS;
switch(previous_source_type)
{
case SOURCE_IS_TOKEN:/*686:*/
#line 7310 "./marpa.w"
{
SRCL new_link= marpa_obs_new(r->t_obs,SRCL_Object,1);
*new_link= *SRCL_of_YIM(item);
LV_First_Leo_SRCL_of_YIM(item)= NULL;
LV_First_Completion_SRCL_of_YIM(item)= NULL;
LV_First_Token_SRCL_of_YIM(item)= new_link;
}
/*:686*/
#line 7301 "./marpa.w"
return;
case SOURCE_IS_COMPLETION:/*687:*/
#line 7318 "./marpa.w"
{
SRCL new_link= marpa_obs_new(r->t_obs,SRCL_Object,1);
*new_link= *SRCL_of_YIM(item);
LV_First_Leo_SRCL_of_YIM(item)= NULL;
LV_First_Completion_SRCL_of_YIM(item)= new_link;
LV_First_Token_SRCL_of_YIM(item)= NULL;
}
/*:687*/
#line 7303 "./marpa.w"
return;
case SOURCE_IS_LEO:/*688:*/
#line 7326 "./marpa.w"
{
SRCL new_link= marpa_obs_new(r->t_obs,SRCL_Object,1);
*new_link= *SRCL_of_YIM(item);
LV_First_Leo_SRCL_of_YIM(item)= new_link;
LV_First_Completion_SRCL_of_YIM(item)= NULL;
LV_First_Token_SRCL_of_YIM(item)= NULL;
}
/*:688*/
#line 7305 "./marpa.w"
return;
}
}
/*:685*//*695:*/
#line 7369 "./marpa.w"
PRIVATE int
alternative_insertion_point(RECCE r,ALT new_alternative)
{
MARPA_DSTACK alternatives= &r->t_alternatives;
ALT alternative;
int hi= MARPA_DSTACK_LENGTH(*alternatives)-1;
int lo= 0;
int trial;
if(hi<0)
return 0;
alternative= MARPA_DSTACK_BASE(*alternatives,ALT_Object);
for(;;)
{
int outcome;
trial= lo+(hi-lo)/2;
outcome= alternative_cmp(new_alternative,alternative+trial);
if(outcome==0)
return-1;
if(outcome> 0)
{
lo= trial+1;
}
else
{
hi= trial-1;
}
if(hi<lo)
return outcome> 0?trial+1:trial;
}
}
/*:695*//*697:*/
#line 7413 "./marpa.w"
PRIVATE int alternative_cmp(const ALT_Const a,const ALT_Const b)
{
int subkey= End_Earleme_of_ALT(b)-End_Earleme_of_ALT(a);
if(subkey)return subkey;
subkey= NSYID_of_ALT(a)-NSYID_of_ALT(b);
if(subkey)return subkey;
return Start_Earleme_of_ALT(a)-Start_Earleme_of_ALT(b);
}
/*:697*//*698:*/
#line 7430 "./marpa.w"
PRIVATE ALT alternative_pop(RECCE r,JEARLEME earleme)
{
MARPA_DSTACK alternatives= &r->t_alternatives;
ALT end_of_stack= MARPA_DSTACK_TOP(*alternatives,ALT_Object);
if(!end_of_stack)return NULL;
if(earleme<End_Earleme_of_ALT(end_of_stack))
return NULL;
return MARPA_DSTACK_POP(*alternatives,ALT_Object);
}
/*:698*//*700:*/
#line 7457 "./marpa.w"
PRIVATE int alternative_insert(RECCE r,ALT new_alternative)
{
ALT end_of_stack,base_of_stack;
MARPA_DSTACK alternatives= &r->t_alternatives;
int ix;
int insertion_point= alternative_insertion_point(r,new_alternative);
if(insertion_point<0)
return insertion_point;
end_of_stack= MARPA_DSTACK_PUSH(*alternatives,ALT_Object);
base_of_stack= MARPA_DSTACK_BASE(*alternatives,ALT_Object);
for(ix= end_of_stack-base_of_stack;ix> insertion_point;ix--){
base_of_stack[ix]= base_of_stack[ix-1];
}
base_of_stack[insertion_point]= *new_alternative;
return insertion_point;
}
/*:700*//*701:*/
#line 7480 "./marpa.w"
int marpa_r_start_input(Marpa_Recognizer r)
{
int return_value= 1;
YS set0;
YIK_Object key;
IRL start_irl;
AHM start_ahm;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 7489 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 7490 "./marpa.w"
/*1212:*/
#line 14320 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_STARTED);
return failure_indicator;
}
/*:1212*/
#line 7493 "./marpa.w"
{
/*703:*/
#line 7618 "./marpa.w"
const NSYID nsy_count= NSY_Count_of_G(g);
const NSYID xsy_count= XSY_Count_of_G(g);
Bit_Vector bv_ok_for_chain= bv_create(nsy_count);
/*:703*/
#line 7495 "./marpa.w"
Current_Earleme_of_R(r)= 0;
/*709:*/
#line 7660 "./marpa.w"
{
XSYID xsy_id;
r->t_valued_terminal= lbv_obs_new0(r->t_obs,xsy_count);
r->t_unvalued_terminal= lbv_obs_new0(r->t_obs,xsy_count);
r->t_valued= lbv_obs_new0(r->t_obs,xsy_count);
r->t_unvalued= lbv_obs_new0(r->t_obs,xsy_count);
r->t_valued_locked= lbv_obs_new0(r->t_obs,xsy_count);
for(xsy_id= 0;xsy_id<xsy_count;xsy_id++)
{
const XSY xsy= XSY_by_ID(xsy_id);
if(XSY_is_Valued_Locked(xsy))
{
lbv_bit_set(r->t_valued_locked,xsy_id);
}
if(XSY_is_Valued(xsy))
{
lbv_bit_set(r->t_valued,xsy_id);
if(XSY_is_Terminal(xsy))
{
lbv_bit_set(r->t_valued_terminal,xsy_id);
}
}
else
{
lbv_bit_set(r->t_unvalued,xsy_id);
if(XSY_is_Terminal(xsy))
{
lbv_bit_set(r->t_unvalued_terminal,xsy_id);
}
}
}
}
/*:709*/
#line 7497 "./marpa.w"
G_EVENTS_CLEAR(g);
if(G_is_Trivial(g)){
/*606:*/
#line 6420 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:606*/
#line 7500 "./marpa.w"
goto CLEANUP;
}
r->t_lbv_xsyid_completion_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_is_completion_event,xsy_count);
r->t_lbv_xsyid_nulled_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_is_nulled_event,xsy_count);
r->t_lbv_xsyid_prediction_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_is_prediction_event,xsy_count);
r->t_active_event_count=
bv_count(g->t_lbv_xsyid_is_completion_event)
+bv_count(g->t_lbv_xsyid_is_nulled_event)
+bv_count(g->t_lbv_xsyid_is_prediction_event);
Input_Phase_of_R(r)= R_DURING_INPUT;
psar_reset(Dot_PSAR_of_R(r));
/*761:*/
#line 8470 "./marpa.w"
r->t_bv_lim_symbols= bv_obs_create(r->t_obs,nsy_count);
r->t_bv_pim_symbols= bv_obs_create(r->t_obs,nsy_count);
r->t_pim_workarea= marpa_obs_new(r->t_obs,void*,nsy_count);
/*:761*//*780:*/
#line 8752 "./marpa.w"
r->t_lim_chain= marpa_obs_new(r->t_obs,void*,2*nsy_count);
/*:780*/
#line 7515 "./marpa.w"
/*718:*/
#line 7863 "./marpa.w"
{
if(!MARPA_DSTACK_IS_INITIALIZED(r->t_yim_work_stack))
{
MARPA_DSTACK_INIT2(r->t_yim_work_stack,YIM);
}
}
/*:718*//*722:*/
#line 7878 "./marpa.w"
{
if(!MARPA_DSTACK_IS_INITIALIZED(r->t_completion_stack))
{
MARPA_DSTACK_INIT2(r->t_completion_stack,YIM);
}
}
/*:722*/
#line 7516 "./marpa.w"
set0= earley_set_new(r,0);
Latest_YS_of_R(r)= set0;
First_YS_of_R(r)= set0;
start_irl= g->t_start_irl;
start_ahm= First_AHM_of_IRL(start_irl);
key.t_origin= set0;
key.t_set= set0;
key.t_ahm= start_ahm;
earley_item_create(r,key);
bv_clear(r->t_bv_irl_seen);
bv_bit_set(r->t_bv_irl_seen,ID_of_IRL(start_irl));
MARPA_DSTACK_CLEAR(r->t_irl_cil_stack);
*MARPA_DSTACK_PUSH(r->t_irl_cil_stack,CIL)= LHS_CIL_of_AHM(start_ahm);
while(1)
{
const CIL*const p_cil= MARPA_DSTACK_POP(r->t_irl_cil_stack,CIL);
if(!p_cil)
break;
{
int cil_ix;
const CIL this_cil= *p_cil;
const int prediction_count= Count_of_CIL(this_cil);
for(cil_ix= 0;cil_ix<prediction_count;cil_ix++)
{
const IRLID prediction_irlid= Item_of_CIL(this_cil,cil_ix);
if(!bv_bit_test_then_set(r->t_bv_irl_seen,prediction_irlid))
{
const IRL prediction_irl= IRL_by_ID(prediction_irlid);
const AHM prediction_ahm= First_AHM_of_IRL(prediction_irl);
if(!evaluate_zwas(r,0,prediction_ahm))continue;
key.t_ahm= prediction_ahm;
earley_item_create(r,key);
*MARPA_DSTACK_PUSH(r->t_irl_cil_stack,CIL)
= LHS_CIL_of_AHM(prediction_ahm);
}
}
}
}
postdot_items_create(r,bv_ok_for_chain,set0);
earley_set_update_items(r,set0);
r->t_is_using_leo= r->t_use_leo_flag;
trigger_events(r);
CLEANUP:;
/*704:*/
#line 7622 "./marpa.w"
bv_free(bv_ok_for_chain);
/*:704*/
#line 7571 "./marpa.w"
}
return return_value;
}
/*:701*//*702:*/
#line 7576 "./marpa.w"
PRIVATE
int evaluate_zwas(RECCE r,YSID ysid,AHM ahm)
{
int cil_ix;
const CIL zwa_cil= ZWA_CIL_of_AHM(ahm);
const int cil_count= Count_of_CIL(zwa_cil);
for(cil_ix= 0;cil_ix<cil_count;cil_ix++)
{
int value;
const ZWAID zwaid= Item_of_CIL(zwa_cil,cil_ix);
const ZWA zwa= RZWA_by_ID(zwaid);
MARPA_DEBUG3("At %s, evaluating assertion %ld",STRLOC,(long)zwaid);
if(Memo_YSID_of_ZWA(zwa)==ysid){
if(Memo_Value_of_ZWA(zwa))continue;
MARPA_DEBUG3("At %s: returning 0 for assertion %ld",STRLOC,(long)zwaid);
return 0;
}
value= Memo_Value_of_ZWA(zwa)= Default_Value_of_ZWA(zwa);
Memo_YSID_of_ZWA(zwa)= ysid;
if(!value){
MARPA_DEBUG3("At %s: returning 0 for assertion %ld",STRLOC,(long)zwaid);
return 0;
}
MARPA_DEBUG3("At %s: value is 1 for assertion %ld",STRLOC,(long)zwaid);
}
return 1;
}
/*:702*//*710:*/
#line 7700 "./marpa.w"
Marpa_Earleme marpa_r_alternative(
Marpa_Recognizer r,
Marpa_Symbol_ID tkn_xsy_id,
int value,
int length)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 7707 "./marpa.w"
YS current_earley_set;
const JEARLEME current_earleme= Current_Earleme_of_R(r);
JEARLEME target_earleme;
NSYID tkn_nsyid;
if(_MARPA_UNLIKELY(!R_is_Consistent(r)))
{
MARPA_ERROR(MARPA_ERR_RECCE_IS_INCONSISTENT);
return MARPA_ERR_RECCE_IS_INCONSISTENT;
}
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_DURING_INPUT))
{
MARPA_ERROR(MARPA_ERR_RECCE_NOT_ACCEPTING_INPUT);
return MARPA_ERR_RECCE_NOT_ACCEPTING_INPUT;
}
if(_MARPA_UNLIKELY(!xsy_id_is_valid(g,tkn_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return MARPA_ERR_INVALID_SYMBOL_ID;
}
/*711:*/
#line 7734 "./marpa.w"
{
const XSY_Const tkn= XSY_by_ID(tkn_xsy_id);
if(length<=0){
MARPA_ERROR(MARPA_ERR_TOKEN_LENGTH_LE_ZERO);
return MARPA_ERR_TOKEN_LENGTH_LE_ZERO;
}
if(length>=JEARLEME_THRESHOLD){
MARPA_ERROR(MARPA_ERR_TOKEN_TOO_LONG);
return MARPA_ERR_TOKEN_TOO_LONG;
}
if(value&&_MARPA_UNLIKELY(!lbv_bit_test(r->t_valued_terminal,tkn_xsy_id)))
{
if(!XSY_is_Terminal(tkn)){
MARPA_ERROR(MARPA_ERR_TOKEN_IS_NOT_TERMINAL);
return MARPA_ERR_TOKEN_IS_NOT_TERMINAL;
}
if(lbv_bit_test(r->t_valued_locked,tkn_xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_VALUED_CONFLICT);
return MARPA_ERR_SYMBOL_VALUED_CONFLICT;
}
lbv_bit_set(r->t_valued_locked,tkn_xsy_id);
lbv_bit_set(r->t_valued_terminal,tkn_xsy_id);
lbv_bit_set(r->t_valued,tkn_xsy_id);
}
if(!value&&_MARPA_UNLIKELY(!lbv_bit_test(r->t_unvalued_terminal,tkn_xsy_id)))
{
if(!XSY_is_Terminal(tkn)){
MARPA_ERROR(MARPA_ERR_TOKEN_IS_NOT_TERMINAL);
return MARPA_ERR_TOKEN_IS_NOT_TERMINAL;
}
if(lbv_bit_test(r->t_valued_locked,tkn_xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_VALUED_CONFLICT);
return MARPA_ERR_SYMBOL_VALUED_CONFLICT;
}
lbv_bit_set(r->t_valued_locked,tkn_xsy_id);
lbv_bit_set(r->t_unvalued_terminal,tkn_xsy_id);
lbv_bit_set(r->t_unvalued,tkn_xsy_id);
}
}
/*:711*/
#line 7727 "./marpa.w"
/*714:*/
#line 7794 "./marpa.w"
{
NSY tkn_nsy= NSY_by_XSYID(tkn_xsy_id);
if(_MARPA_UNLIKELY(!tkn_nsy))
{
MARPA_ERROR(MARPA_ERR_INACCESSIBLE_TOKEN);
return MARPA_ERR_INACCESSIBLE_TOKEN;
}
tkn_nsyid= ID_of_NSY(tkn_nsy);
current_earley_set= YS_at_Current_Earleme_of_R(r);
if(!current_earley_set)
{
MARPA_ERROR(MARPA_ERR_NO_TOKEN_EXPECTED_HERE);
return MARPA_ERR_NO_TOKEN_EXPECTED_HERE;
}
if(!First_PIM_of_YS_by_NSYID(current_earley_set,tkn_nsyid))
{
MARPA_ERROR(MARPA_ERR_UNEXPECTED_TOKEN_ID);
return MARPA_ERR_UNEXPECTED_TOKEN_ID;
}
}
/*:714*/
#line 7728 "./marpa.w"
/*712:*/
#line 7774 "./marpa.w"
{
target_earleme= current_earleme+length;
if(target_earleme>=JEARLEME_THRESHOLD){
MARPA_ERROR(MARPA_ERR_PARSE_TOO_LONG);
return MARPA_ERR_PARSE_TOO_LONG;
}
}
/*:712*/
#line 7729 "./marpa.w"
/*715:*/
#line 7832 "./marpa.w"
{
ALT_Object alternative_object;
const ALT alternative= &alternative_object;
NSYID_of_ALT(alternative)= tkn_nsyid;
Value_of_ALT(alternative)= value;
ALT_is_Valued(alternative)= value?1:0;
if(Furthest_Earleme_of_R(r)<target_earleme)
Furthest_Earleme_of_R(r)= target_earleme;
alternative->t_start_earley_set= current_earley_set;
End_Earleme_of_ALT(alternative)= target_earleme;
if(alternative_insert(r,alternative)<0)
{
MARPA_ERROR(MARPA_ERR_DUPLICATE_TOKEN);
return MARPA_ERR_DUPLICATE_TOKEN;
}
}
/*:715*/
#line 7730 "./marpa.w"
return MARPA_ERR_NONE;
}
/*:710*//*728:*/
#line 7909 "./marpa.w"
Marpa_Earleme
marpa_r_earleme_complete(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 7913 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 7914 "./marpa.w"
YIM*cause_p;
YS current_earley_set;
JEARLEME current_earleme;
JEARLEME return_value= -2;
/*1214:*/
#line 14330 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_DURING_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_ACCEPTING_INPUT);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!R_is_Consistent(r))){
MARPA_ERROR(MARPA_ERR_RECCE_IS_INCONSISTENT);
return failure_indicator;
}
/*:1214*/
#line 7925 "./marpa.w"
if(_MARPA_UNLIKELY(!R_is_Consistent(r))){
MARPA_ERROR(MARPA_ERR_RECCE_IS_INCONSISTENT);
return failure_indicator;
}
{
int count_of_expected_terminals;
/*729:*/
#line 7974 "./marpa.w"
const NSYID nsy_count= NSY_Count_of_G(g);
Bit_Vector bv_ok_for_chain= bv_create(nsy_count);
struct marpa_obstack*const earleme_complete_obs= marpa_obs_init;
/*:729*/
#line 7933 "./marpa.w"
G_EVENTS_CLEAR(g);
psar_dealloc(Dot_PSAR_of_R(r));
bv_clear(r->t_bv_nsyid_is_expected);
bv_clear(r->t_bv_irl_seen);
/*731:*/
#line 7982 "./marpa.w"
{
current_earleme= ++(Current_Earleme_of_R(r));
if(current_earleme> Furthest_Earleme_of_R(r))
{
/*606:*/
#line 6420 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:606*/
#line 7986 "./marpa.w"
MARPA_ERROR(MARPA_ERR_PARSE_EXHAUSTED);
return failure_indicator;
}
}
/*:731*/
#line 7938 "./marpa.w"
/*733:*/
#line 8004 "./marpa.w"
{
ALT end_of_stack= MARPA_DSTACK_TOP(r->t_alternatives,ALT_Object);
if(!end_of_stack||current_earleme!=End_Earleme_of_ALT(end_of_stack))
{
return_value= 0;
goto CLEANUP;
}
}
/*:733*/
#line 7939 "./marpa.w"
/*732:*/
#line 7994 "./marpa.w"
{
current_earley_set= earley_set_new(r,current_earleme);
Next_YS_of_YS(Latest_YS_of_R(r))= current_earley_set;
Latest_YS_of_R(r)= current_earley_set;
}
/*:732*/
#line 7940 "./marpa.w"
/*734:*/
#line 8013 "./marpa.w"
{
ALT alternative;
while((alternative= alternative_pop(r,current_earleme)))
/*736:*/
#line 8032 "./marpa.w"
{
YS start_earley_set= Start_YS_of_ALT(alternative);
PIM pim= First_PIM_of_YS_by_NSYID(start_earley_set,
NSYID_of_ALT(alternative));
for(;pim;pim= Next_PIM_of_PIM(pim))
{
const YIM predecessor= YIM_of_PIM(pim);
if(predecessor&&YIM_is_Active(predecessor))
{
const AHM predecessor_ahm= AHM_of_YIM(predecessor);
const AHM scanned_ahm= Next_AHM_of_AHM(predecessor_ahm);
/*737:*/
#line 8051 "./marpa.w"
{
const YIM scanned_earley_item= earley_item_assign(r,
current_earley_set,
Origin_of_YIM
(predecessor),
scanned_ahm);
YIM_was_Scanned(scanned_earley_item)= 1;
tkn_link_add(r,scanned_earley_item,predecessor,alternative);
}
/*:737*/
#line 8046 "./marpa.w"
}
}
}
/*:736*/
#line 8019 "./marpa.w"
}
/*:734*/
#line 7941 "./marpa.w"
/*738:*/
#line 8067 "./marpa.w"
{
YIM*work_earley_items= MARPA_DSTACK_BASE(r->t_yim_work_stack,YIM);
int no_of_work_earley_items= MARPA_DSTACK_LENGTH(r->t_yim_work_stack);
int ix;
MARPA_DSTACK_CLEAR(r->t_completion_stack);
for(ix= 0;
ix<no_of_work_earley_items;
ix++){
YIM earley_item= work_earley_items[ix];
YIM*end_of_stack;
if(!YIM_is_Completion(earley_item))
continue;
end_of_stack= MARPA_DSTACK_PUSH(r->t_completion_stack,YIM);
*end_of_stack= earley_item;
}
}
/*:738*/
#line 7942 "./marpa.w"
while((cause_p= MARPA_DSTACK_POP(r->t_completion_stack,YIM))){
YIM cause= *cause_p;
/*739:*/
#line 8088 "./marpa.w"
{
if(YIM_is_Active(cause)&&YIM_is_Completion(cause))
{
NSYID complete_nsyid= LHS_NSYID_of_YIM(cause);
const YS middle= Origin_of_YIM(cause);
/*740:*/
#line 8098 "./marpa.w"
{
PIM postdot_item;
for(postdot_item= First_PIM_of_YS_by_NSYID(middle,complete_nsyid);
postdot_item;postdot_item= Next_PIM_of_PIM(postdot_item))
{
const YIM predecessor= YIM_of_PIM(postdot_item);
if(!predecessor){
const LIM leo_item= LIM_of_PIM(postdot_item);
if(!LIM_is_Active(leo_item))goto NEXT_PIM;
/*743:*/
#line 8165 "./marpa.w"
{
const YS origin= Origin_of_LIM(leo_item);
const AHM effect_ahm= Top_AHM_of_LIM(leo_item);
const YIM effect= earley_item_assign(r,current_earley_set,
origin,effect_ahm);
YIM_was_Fusion(effect)= 1;
if(Earley_Item_has_No_Source(effect))
{
/*742:*/
#line 8159 "./marpa.w"
{
YIM*end_of_stack= MARPA_DSTACK_PUSH(r->t_completion_stack,YIM);
*end_of_stack= effect;
}
/*:742*/
#line 8175 "./marpa.w"
}
leo_link_add(r,effect,leo_item,cause);
}
/*:743*/
#line 8119 "./marpa.w"
goto LAST_PIM;
}else{
if(!YIM_is_Active(predecessor))continue;
/*741:*/
#line 8139 "./marpa.w"
{
const AHM predecessor_ahm= AHM_of_YIM(predecessor);
const AHM effect_ahm= Next_AHM_of_AHM(predecessor_ahm);
const YS origin= Origin_of_YIM(predecessor);
const YIM effect= earley_item_assign(r,current_earley_set,
origin,effect_ahm);
YIM_was_Fusion(effect)= 1;
if(Earley_Item_has_No_Source(effect)){
if(YIM_is_Completion(effect)){
/*742:*/
#line 8159 "./marpa.w"
{
YIM*end_of_stack= MARPA_DSTACK_PUSH(r->t_completion_stack,YIM);
*end_of_stack= effect;
}
/*:742*/
#line 8151 "./marpa.w"
}
}
completion_link_add(r,effect,predecessor,cause);
}
/*:741*/
#line 8132 "./marpa.w"
}
NEXT_PIM:;
}
LAST_PIM:;
}
/*:740*/
#line 8094 "./marpa.w"
}
}
/*:739*/
#line 7945 "./marpa.w"
}
/*744:*/
#line 8180 "./marpa.w"
{
int ix;
const int no_of_work_earley_items=
MARPA_DSTACK_LENGTH(r->t_yim_work_stack);
for(ix= 0;ix<no_of_work_earley_items;ix++)
{
YIM earley_item= WORK_YIM_ITEM(r,ix);
int cil_ix;
const AHM ahm= AHM_of_YIM(earley_item);
const CIL prediction_cil= Predicted_IRL_CIL_of_AHM(ahm);
const int prediction_count= Count_of_CIL(prediction_cil);
for(cil_ix= 0;cil_ix<prediction_count;cil_ix++)
{
const IRLID prediction_irlid= Item_of_CIL(prediction_cil,cil_ix);
const IRL prediction_irl= IRL_by_ID(prediction_irlid);
const AHM prediction_ahm= First_AHM_of_IRL(prediction_irl);
earley_item_assign(r,current_earley_set,current_earley_set,
prediction_ahm);
}
}
}
/*:744*/
#line 7947 "./marpa.w"
postdot_items_create(r,bv_ok_for_chain,current_earley_set);
count_of_expected_terminals= bv_count(r->t_bv_nsyid_is_expected);
if(count_of_expected_terminals<=0
&&MARPA_DSTACK_LENGTH(r->t_alternatives)<=0)
{
/*606:*/
#line 6420 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:606*/
#line 7958 "./marpa.w"
}
earley_set_update_items(r,current_earley_set);
if(r->t_active_event_count> 0){
trigger_events(r);
}
return_value= G_EVENT_COUNT(g);
CLEANUP:;
/*730:*/
#line 7978 "./marpa.w"
bv_free(bv_ok_for_chain);
marpa_obs_free(earleme_complete_obs);
/*:730*/
#line 7966 "./marpa.w"
}
return return_value;
}
/*:728*//*745:*/
#line 8205 "./marpa.w"
PRIVATE void trigger_events(RECCE r)
{
const GRAMMAR g= G_of_R(r);
const YS current_earley_set= Latest_YS_of_R(r);
int min,max,start;
int yim_ix;
struct marpa_obstack*const trigger_events_obs= marpa_obs_init;
const YIM*yims= YIMs_of_YS(current_earley_set);
const XSYID xsy_count= XSY_Count_of_G(g);
const int ahm_count= AHM_Count_of_G(g);
Bit_Vector bv_completion_event_trigger=
bv_obs_create(trigger_events_obs,xsy_count);
Bit_Vector bv_nulled_event_trigger=
bv_obs_create(trigger_events_obs,xsy_count);
Bit_Vector bv_prediction_event_trigger=
bv_obs_create(trigger_events_obs,xsy_count);
Bit_Vector bv_ahm_event_trigger=
bv_obs_create(trigger_events_obs,ahm_count);
const int working_earley_item_count= YIM_Count_of_YS(current_earley_set);
for(yim_ix= 0;yim_ix<working_earley_item_count;yim_ix++)
{
const YIM yim= yims[yim_ix];
const AHM root_ahm= AHM_of_YIM(yim);
if(AHM_has_Event(root_ahm))
{
bv_bit_set(bv_ahm_event_trigger,ID_of_AHM(root_ahm));
}
{
const SRCL first_leo_source_link= First_Leo_SRCL_of_YIM(yim);
SRCL setup_source_link;
for(setup_source_link= first_leo_source_link;setup_source_link;
setup_source_link= Next_SRCL_of_SRCL(setup_source_link))
{
int cil_ix;
const LIM lim= LIM_of_SRCL(setup_source_link);
const CIL event_ahmids= CIL_of_LIM(lim);
const int event_ahm_count= Count_of_CIL(event_ahmids);
for(cil_ix= 0;cil_ix<event_ahm_count;cil_ix++)
{
const NSYID leo_path_ahmid=
Item_of_CIL(event_ahmids,cil_ix);
bv_bit_set(bv_ahm_event_trigger,leo_path_ahmid);
}
}
}
}
for(start= 0;bv_scan(bv_ahm_event_trigger,start,&min,&max);
start= max+2)
{
XSYID event_ahmid;
for(event_ahmid= (NSYID)min;event_ahmid<=(NSYID)max;
event_ahmid++)
{
int cil_ix;
const AHM event_ahm= AHM_by_ID(event_ahmid);
{
const CIL completion_xsyids=
Completion_XSYIDs_of_AHM(event_ahm);
const int event_xsy_count= Count_of_CIL(completion_xsyids);
for(cil_ix= 0;cil_ix<event_xsy_count;cil_ix++)
{
XSYID event_xsyid= Item_of_CIL(completion_xsyids,cil_ix);
bv_bit_set(bv_completion_event_trigger,event_xsyid);
}
}
{
const CIL nulled_xsyids= Nulled_XSYIDs_of_AHM(event_ahm);
const int event_xsy_count= Count_of_CIL(nulled_xsyids);
for(cil_ix= 0;cil_ix<event_xsy_count;cil_ix++)
{
XSYID event_xsyid= Item_of_CIL(nulled_xsyids,cil_ix);
bv_bit_set(bv_nulled_event_trigger,event_xsyid);
}
}
{
const CIL prediction_xsyids=
Prediction_XSYIDs_of_AHM(event_ahm);
const int event_xsy_count= Count_of_CIL(prediction_xsyids);
for(cil_ix= 0;cil_ix<event_xsy_count;cil_ix++)
{
XSYID event_xsyid= Item_of_CIL(prediction_xsyids,cil_ix);
bv_bit_set(bv_prediction_event_trigger,event_xsyid);
}
}
}
}
for(start= 0;bv_scan(bv_completion_event_trigger,start,&min,&max);
start= max+2)
{
XSYID event_xsyid;
for(event_xsyid= min;event_xsyid<=max;
event_xsyid++)
{
if(lbv_bit_test
(r->t_lbv_xsyid_completion_event_is_active,event_xsyid))
{
int_event_new(g,MARPA_EVENT_SYMBOL_COMPLETED,event_xsyid);
}
}
}
for(start= 0;bv_scan(bv_nulled_event_trigger,start,&min,&max);
start= max+2)
{
XSYID event_xsyid;
for(event_xsyid= min;event_xsyid<=max;
event_xsyid++)
{
if(lbv_bit_test
(r->t_lbv_xsyid_nulled_event_is_active,event_xsyid))
{
int_event_new(g,MARPA_EVENT_SYMBOL_NULLED,event_xsyid);
}
}
}
for(start= 0;bv_scan(bv_prediction_event_trigger,start,&min,&max);
start= max+2)
{
XSYID event_xsyid;
for(event_xsyid= (NSYID)min;event_xsyid<=(NSYID)max;
event_xsyid++)
{
if(lbv_bit_test
(r->t_lbv_xsyid_prediction_event_is_active,event_xsyid))
{
int_event_new(g,MARPA_EVENT_SYMBOL_PREDICTED,event_xsyid);
}
}
}
marpa_obs_free(trigger_events_obs);
}
/*:745*//*746:*/
#line 8344 "./marpa.w"
PRIVATE void earley_set_update_items(RECCE r,YS set)
{
YIM*working_earley_items;
YIM*finished_earley_items;
int working_earley_item_count;
int i;
YIMs_of_YS(set)= marpa_obs_new(r->t_obs,YIM,YIM_Count_of_YS(set));
finished_earley_items= YIMs_of_YS(set);
working_earley_items= Work_YIMs_of_R(r);
working_earley_item_count= Work_YIM_Count_of_R(r);
for(i= 0;i<working_earley_item_count;i++){
YIM earley_item= working_earley_items[i];
int ordinal= Ord_of_YIM(earley_item);
finished_earley_items[ordinal]= earley_item;
}
WORK_YIMS_CLEAR(r);
}
/*:746*//*747:*/
#line 8373 "./marpa.w"
PRIVATE void r_update_earley_sets(RECCE r)
{
YS set;
YS first_unstacked_earley_set;
if(!MARPA_DSTACK_IS_INITIALIZED(r->t_earley_set_stack)){
first_unstacked_earley_set= First_YS_of_R(r);
MARPA_DSTACK_INIT(r->t_earley_set_stack,YS,
MAX(1024,YS_Count_of_R(r)));
}else{
YS*end_of_stack= MARPA_DSTACK_TOP(r->t_earley_set_stack,YS);
first_unstacked_earley_set= Next_YS_of_YS(*end_of_stack);
}
for(set= first_unstacked_earley_set;set;set= Next_YS_of_YS(set)){
YS*end_of_stack= MARPA_DSTACK_PUSH(r->t_earley_set_stack,YS);
(*end_of_stack)= set;
}
}
/*:747*//*763:*/
#line 8477 "./marpa.w"
PRIVATE_NOT_INLINE void
postdot_items_create(RECCE r,
Bit_Vector bv_ok_for_chain,
const YS current_earley_set)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 8483 "./marpa.w"
/*762:*/
#line 8474 "./marpa.w"
bv_clear(r->t_bv_lim_symbols);
bv_clear(r->t_bv_pim_symbols);
/*:762*/
#line 8484 "./marpa.w"
/*764:*/
#line 8496 "./marpa.w"
{
YIM*work_earley_items= MARPA_DSTACK_BASE(r->t_yim_work_stack,YIM);
int no_of_work_earley_items= MARPA_DSTACK_LENGTH(r->t_yim_work_stack);
int ix;
for(ix= 0;
ix<no_of_work_earley_items;
ix++)
{
YIM earley_item= work_earley_items[ix];
AHM ahm= AHM_of_YIM(earley_item);
const NSYID postdot_nsyid= Postdot_NSYID_of_AHM(ahm);
if(postdot_nsyid<0)continue;
{
PIM old_pim= NULL;
PIM new_pim;
new_pim= marpa__obs_alloc(r->t_obs,
sizeof(YIX_Object),ALIGNOF(PIM_Object));
Postdot_NSYID_of_PIM(new_pim)= postdot_nsyid;
YIM_of_PIM(new_pim)= earley_item;
if(bv_bit_test(r->t_bv_pim_symbols,postdot_nsyid))
old_pim= r->t_pim_workarea[postdot_nsyid];
Next_PIM_of_PIM(new_pim)= old_pim;
if(!old_pim)current_earley_set->t_postdot_sym_count++;
r->t_pim_workarea[postdot_nsyid]= new_pim;
bv_bit_set(r->t_bv_pim_symbols,postdot_nsyid);
}
}
}
/*:764*/
#line 8485 "./marpa.w"
if(r->t_is_using_leo){
/*766:*/
#line 8539 "./marpa.w"
{
int min,max,start;
for(start= 0;bv_scan(r->t_bv_pim_symbols,start,&min,&max);
start= max+2)
{
NSYID nsyid;
for(nsyid= (NSYID)min;nsyid<=(NSYID)max;nsyid++)
{
const PIM this_pim= r->t_pim_workarea[nsyid];
if(Next_PIM_of_PIM(this_pim))
goto NEXT_NSYID;
{
const YIM leo_base= YIM_of_PIM(this_pim);
AHM potential_leo_penult_ahm= NULL;
const AHM leo_base_ahm= AHM_of_YIM(leo_base);
const IRL leo_base_irl= IRL_of_AHM(leo_base_ahm);
if(!IRL_is_Leo(leo_base_irl))
goto NEXT_NSYID;
potential_leo_penult_ahm= leo_base_ahm;
MARPA_ASSERT(potential_leo_penult_ahm);
{
const AHM trailhead_ahm=
Next_AHM_of_AHM(potential_leo_penult_ahm);
if(AHM_is_Leo_Completion(trailhead_ahm))
{
/*767:*/
#line 8583 "./marpa.w"
{
LIM new_lim;
new_lim= marpa_obs_new(r->t_obs,LIM_Object,1);
LIM_is_Active(new_lim)= 1;
LIM_is_Rejected(new_lim)= 1;
Postdot_NSYID_of_LIM(new_lim)= nsyid;
YIM_of_PIM(new_lim)= NULL;
Predecessor_LIM_of_LIM(new_lim)= NULL;
Origin_of_LIM(new_lim)= NULL;
CIL_of_LIM(new_lim)= NULL;
Top_AHM_of_LIM(new_lim)= trailhead_ahm;
Trailhead_AHM_of_LIM(new_lim)= trailhead_ahm;
Trailhead_YIM_of_LIM(new_lim)= leo_base;
YS_of_LIM(new_lim)= current_earley_set;
Next_PIM_of_LIM(new_lim)= this_pim;
r->t_pim_workarea[nsyid]= new_lim;
bv_bit_set(r->t_bv_lim_symbols,nsyid);
}
/*:767*/
#line 8568 "./marpa.w"
}
}
}
NEXT_NSYID:;
}
}
}
/*:766*/
#line 8487 "./marpa.w"
/*776:*/
#line 8671 "./marpa.w"
{
int min,max,start;
bv_copy(bv_ok_for_chain,r->t_bv_lim_symbols);
for(start= 0;bv_scan(r->t_bv_lim_symbols,start,&min,&max);
start= max+2)
{
NSYID main_loop_nsyid;
for(main_loop_nsyid= (NSYID)min;
main_loop_nsyid<=(NSYID)max;
main_loop_nsyid++)
{
LIM predecessor_lim;
LIM lim_to_process= r->t_pim_workarea[main_loop_nsyid];
if(LIM_is_Populated(lim_to_process))continue;
/*778:*/
#line 8727 "./marpa.w"
{
const YIM base_yim= Trailhead_YIM_of_LIM(lim_to_process);
const YS predecessor_set= Origin_of_YIM(base_yim);
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const NSYID predecessor_transition_nsyid=
LHSID_of_AHM(trailhead_ahm);
PIM predecessor_pim;
if(Ord_of_YS(predecessor_set)<Ord_of_YS(current_earley_set))
{
predecessor_pim
=
First_PIM_of_YS_by_NSYID(predecessor_set,
predecessor_transition_nsyid);
}
else
{
predecessor_pim= r->t_pim_workarea[predecessor_transition_nsyid];
}
predecessor_lim=
PIM_is_LIM(predecessor_pim)?LIM_of_PIM(predecessor_pim):NULL;
}
/*:778*/
#line 8688 "./marpa.w"
if(predecessor_lim&&LIM_is_Populated(predecessor_lim)){
/*786:*/
#line 8846 "./marpa.w"
{
const AHM new_top_ahm= Top_AHM_of_LIM(predecessor_lim);
const CIL predecessor_cil= CIL_of_LIM(predecessor_lim);
CIL_of_LIM(lim_to_process)= predecessor_cil;
Predecessor_LIM_of_LIM(lim_to_process)= predecessor_lim;
Origin_of_LIM(lim_to_process)= Origin_of_LIM(predecessor_lim);
if(Event_Group_Size_of_AHM(new_top_ahm)> Count_of_CIL(predecessor_cil))
{
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const CIL trailhead_ahm_event_ahmids=
Event_AHMIDs_of_AHM(trailhead_ahm);
if(Count_of_CIL(trailhead_ahm_event_ahmids))
{
CIL new_cil= cil_merge_one(&g->t_cilar,predecessor_cil,
Item_of_CIL
(trailhead_ahm_event_ahmids,0));
if(new_cil)
{
CIL_of_LIM(lim_to_process)= new_cil;
}
}
}
Top_AHM_of_LIM(lim_to_process)= new_top_ahm;
}
/*:786*/
#line 8690 "./marpa.w"
continue;
}
if(!predecessor_lim){
/*788:*/
#line 8887 "./marpa.w"
{
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const YIM base_yim= Trailhead_YIM_of_LIM(lim_to_process);
Origin_of_LIM(lim_to_process)= Origin_of_YIM(base_yim);
CIL_of_LIM(lim_to_process)= Event_AHMIDs_of_AHM(trailhead_ahm);
}
/*:788*/
#line 8696 "./marpa.w"
continue;
}
/*781:*/
#line 8754 "./marpa.w"
{
int lim_chain_ix;
/*784:*/
#line 8774 "./marpa.w"
{
NSYID postdot_nsyid_of_lim_to_process
= Postdot_NSYID_of_LIM(lim_to_process);
lim_chain_ix= 0;
r->t_lim_chain[lim_chain_ix++]= LIM_of_PIM(lim_to_process);
bv_bit_clear(bv_ok_for_chain,
postdot_nsyid_of_lim_to_process);
while(1)
{
lim_to_process= predecessor_lim;
postdot_nsyid_of_lim_to_process= Postdot_NSYID_of_LIM(lim_to_process);
if(!bv_bit_test
(bv_ok_for_chain,postdot_nsyid_of_lim_to_process))
{
break;
}
/*778:*/
#line 8727 "./marpa.w"
{
const YIM base_yim= Trailhead_YIM_of_LIM(lim_to_process);
const YS predecessor_set= Origin_of_YIM(base_yim);
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const NSYID predecessor_transition_nsyid=
LHSID_of_AHM(trailhead_ahm);
PIM predecessor_pim;
if(Ord_of_YS(predecessor_set)<Ord_of_YS(current_earley_set))
{
predecessor_pim
=
First_PIM_of_YS_by_NSYID(predecessor_set,
predecessor_transition_nsyid);
}
else
{
predecessor_pim= r->t_pim_workarea[predecessor_transition_nsyid];
}
predecessor_lim=
PIM_is_LIM(predecessor_pim)?LIM_of_PIM(predecessor_pim):NULL;
}
/*:778*/
#line 8807 "./marpa.w"
r->t_lim_chain[lim_chain_ix++]= LIM_of_PIM(lim_to_process);
bv_bit_clear(bv_ok_for_chain,
postdot_nsyid_of_lim_to_process);
if(!predecessor_lim)
break;
if(LIM_is_Populated(predecessor_lim))
break;
}
}
/*:784*/
#line 8756 "./marpa.w"
/*785:*/
#line 8829 "./marpa.w"
for(lim_chain_ix--;lim_chain_ix>=0;lim_chain_ix--){
lim_to_process= r->t_lim_chain[lim_chain_ix];
if(predecessor_lim&&LIM_is_Populated(predecessor_lim)){
/*786:*/
#line 8846 "./marpa.w"
{
const AHM new_top_ahm= Top_AHM_of_LIM(predecessor_lim);
const CIL predecessor_cil= CIL_of_LIM(predecessor_lim);
CIL_of_LIM(lim_to_process)= predecessor_cil;
Predecessor_LIM_of_LIM(lim_to_process)= predecessor_lim;
Origin_of_LIM(lim_to_process)= Origin_of_LIM(predecessor_lim);
if(Event_Group_Size_of_AHM(new_top_ahm)> Count_of_CIL(predecessor_cil))
{
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const CIL trailhead_ahm_event_ahmids=
Event_AHMIDs_of_AHM(trailhead_ahm);
if(Count_of_CIL(trailhead_ahm_event_ahmids))
{
CIL new_cil= cil_merge_one(&g->t_cilar,predecessor_cil,
Item_of_CIL
(trailhead_ahm_event_ahmids,0));
if(new_cil)
{
CIL_of_LIM(lim_to_process)= new_cil;
}
}
}
Top_AHM_of_LIM(lim_to_process)= new_top_ahm;
}
/*:786*/
#line 8833 "./marpa.w"
}else{
/*788:*/
#line 8887 "./marpa.w"
{
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(lim_to_process);
const YIM base_yim= Trailhead_YIM_of_LIM(lim_to_process);
Origin_of_LIM(lim_to_process)= Origin_of_YIM(base_yim);
CIL_of_LIM(lim_to_process)= Event_AHMIDs_of_AHM(trailhead_ahm);
}
/*:788*/
#line 8835 "./marpa.w"
}
predecessor_lim= lim_to_process;
}
/*:785*/
#line 8757 "./marpa.w"
}
/*:781*/
#line 8699 "./marpa.w"
}
}
}
/*:776*/
#line 8488 "./marpa.w"
}
/*789:*/
#line 8894 "./marpa.w"
{
PIM*postdot_array
= current_earley_set->t_postdot_ary
= marpa_obs_new(r->t_obs,PIM,current_earley_set->t_postdot_sym_count);
int min,max,start;
int postdot_array_ix= 0;
for(start= 0;bv_scan(r->t_bv_pim_symbols,start,&min,&max);start= max+2){
NSYID nsyid;
for(nsyid= min;nsyid<=max;nsyid++){
PIM this_pim= r->t_pim_workarea[nsyid];
if(lbv_bit_test(r->t_nsy_expected_is_event,nsyid)){
XSY xsy= Source_XSY_of_NSYID(nsyid);
int_event_new(g,MARPA_EVENT_SYMBOL_EXPECTED,ID_of_XSY(xsy));
}
if(this_pim)postdot_array[postdot_array_ix++]= this_pim;
}
}
}
/*:789*/
#line 8490 "./marpa.w"
bv_and(r->t_bv_nsyid_is_expected,r->t_bv_pim_symbols,g->t_bv_nsyid_is_terminal);
}
/*:763*//*792:*/
#line 8930 "./marpa.w"
Marpa_Earleme
marpa_r_clean(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 8934 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 8935 "./marpa.w"
YSID ysid_to_clean;
const YS current_ys= Latest_YS_of_R(r);
const YSID current_ys_id= Ord_of_YS(current_ys);
int count_of_expected_terminals;
/*793:*/
#line 8991 "./marpa.w"
struct marpa_obstack*const method_obstack= marpa_obs_init;
YIMID*prediction_by_irl=
marpa_obs_new(method_obstack,YIMID,IRL_Count_of_G(g));
/*:793*/
#line 8943 "./marpa.w"
const JEARLEME return_value= -2;
/*1214:*/
#line 14330 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_DURING_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_ACCEPTING_INPUT);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!R_is_Consistent(r))){
MARPA_ERROR(MARPA_ERR_RECCE_IS_INCONSISTENT);
return failure_indicator;
}
/*:1214*/
#line 8951 "./marpa.w"
G_EVENTS_CLEAR(g);
if(R_is_Consistent(r))return 0;
earley_set_update_items(r,current_ys);
for(ysid_to_clean= First_Inconsistent_YS_of_R(r);
ysid_to_clean<=current_ys_id;
ysid_to_clean++){
/*795:*/
#line 9005 "./marpa.w"
{
const YS ys_to_clean= YS_of_R_by_Ord(r,ysid_to_clean);
const YIM*yims_to_clean= YIMs_of_YS(ys_to_clean);
const int yim_to_clean_count= YIM_Count_of_YS(ys_to_clean);
Bit_Matrix acceptance_matrix= matrix_obs_create(method_obstack,
yim_to_clean_count,
yim_to_clean_count);
/*796:*/
#line 9025 "./marpa.w"
{
int yim_ix= yim_to_clean_count-1;
YIM yim= yims_to_clean[yim_ix];
while(YIM_was_Predicted(yim)){
prediction_by_irl[IRLID_of_YIM(yim)]= yim_ix;
yim= yims_to_clean[--yim_ix];
}
}
/*:796*/
#line 9013 "./marpa.w"
/*797:*/
#line 9041 "./marpa.w"
{
int yim_to_clean_ix;
for(yim_to_clean_ix= 0;
yim_to_clean_ix<yim_to_clean_count;
yim_to_clean_ix++)
{
const YIM yim_to_clean= yims_to_clean[yim_to_clean_ix];
MARPA_ASSERT(!YIM_is_Initial(yim_to_clean)||
(YIM_is_Active(yim_to_clean)&&!YIM_is_Rejected(yim_to_clean)));
if(!YIM_is_Initial(yim_to_clean))YIM_is_Active(yim_to_clean)= 0;
if(YIM_is_Rejected(yim_to_clean))continue;
/*798:*/
#line 9078 "./marpa.w"
{
const NSYID postdot_nsyid= Postdot_NSYID_of_YIM(yim_to_clean);
if(postdot_nsyid>=0)
{
int cil_ix;
const CIL lhs_cil= LHS_CIL_of_NSYID(postdot_nsyid);
const int cil_count= Count_of_CIL(lhs_cil);
for(cil_ix= 0;cil_ix<cil_count;cil_ix++)
{
const IRLID irlid= Item_of_CIL(lhs_cil,cil_ix);
const int predicted_yim_ix= prediction_by_irl[irlid];
const YIM predicted_yim= yims_to_clean[predicted_yim_ix];
if(YIM_is_Rejected(predicted_yim))continue;
matrix_bit_set(acceptance_matrix,yim_to_clean_ix,
predicted_yim_ix);
}
}
}
/*:798*/
#line 9068 "./marpa.w"
}
}
/*:797*/
#line 9014 "./marpa.w"
transitive_closure(acceptance_matrix);
/*803:*/
#line 9138 "./marpa.w"
{
int cause_yim_ix;
for(cause_yim_ix= 0;cause_yim_ix<yim_to_clean_count;cause_yim_ix++){
const YIM cause_yim= yims_to_clean[cause_yim_ix];
if(!YIM_is_Initial(cause_yim)&&
!YIM_was_Scanned(cause_yim))break;
if(YIM_is_Rejected(cause_yim))continue;
{
const Bit_Vector bv_yims_to_accept
= matrix_row(acceptance_matrix,cause_yim_ix);
int min,max,start;
for(start= 0;bv_scan(bv_yims_to_accept,start,&min,&max);
start= max+2)
{
int yim_to_accept_ix;
for(yim_to_accept_ix= min;
yim_to_accept_ix<=max;yim_to_accept_ix++)
{
const YIM yim_to_accept= yims_to_clean[yim_to_accept_ix];
YIM_is_Active(yim_to_accept)= 1;
}
}
}
}
}
/*:803*/
#line 9016 "./marpa.w"
/*804:*/
#line 9179 "./marpa.w"
{
int yim_ix;
for(yim_ix= 0;yim_ix<yim_to_clean_count;yim_ix++){
const YIM yim= yims_to_clean[yim_ix];
if(!YIM_is_Active(yim))continue;
YIM_is_Rejected(yim)= 1;
}
}
/*:804*/
#line 9017 "./marpa.w"
/*806:*/
#line 9193 "./marpa.w"
{}
/*:806*/
#line 9018 "./marpa.w"
/*807:*/
#line 9197 "./marpa.w"
{
int postdot_sym_ix;
const int postdot_sym_count= Postdot_SYM_Count_of_YS(ys_to_clean);
const PIM*postdot_array= ys_to_clean->t_postdot_ary;
for(postdot_sym_ix= 0;postdot_sym_ix<postdot_sym_count;postdot_sym_ix++){
const PIM first_pim= postdot_array[postdot_sym_ix];
if(PIM_is_LIM(first_pim)){
const LIM lim= LIM_of_PIM(first_pim);
LIM_is_Rejected(lim)= 1;
LIM_is_Active(lim)= 0;
if(!YIM_is_Active(Trailhead_YIM_of_LIM(lim)))continue;
{
const LIM predecessor_lim= Predecessor_LIM_of_LIM(lim);
if(predecessor_lim&&!LIM_is_Active(predecessor_lim))continue;
}
LIM_is_Rejected(lim)= 0;
LIM_is_Active(lim)= 1;
}
}
}
/*:807*/
#line 9019 "./marpa.w"
}
/*:795*/
#line 8968 "./marpa.w"
}
/*808:*/
#line 9242 "./marpa.w"
{
int old_alt_ix;
int no_of_alternatives= MARPA_DSTACK_LENGTH(r->t_alternatives);
for(old_alt_ix= 0;
old_alt_ix<no_of_alternatives;
old_alt_ix++)
{
const ALT alternative= MARPA_DSTACK_INDEX(
r->t_alternatives,ALT_Object,old_alt_ix);
if(!alternative_is_acceptable(alternative))break;
}
if(old_alt_ix<no_of_alternatives){
int empty_alt_ix= old_alt_ix;
for(old_alt_ix++;old_alt_ix<no_of_alternatives;old_alt_ix++)
{
const ALT alternative= MARPA_DSTACK_INDEX(
r->t_alternatives,ALT_Object,old_alt_ix);
if(!alternative_is_acceptable(alternative))continue;
*MARPA_DSTACK_INDEX(r->t_alternatives,ALT_Object,empty_alt_ix)
= *alternative;
empty_alt_ix++;
}
MARPA_DSTACK_COUNT_SET(r->t_alternatives,empty_alt_ix);
if(empty_alt_ix){
Furthest_Earleme_of_R(r)= Earleme_of_YS(current_ys);
}else{
const ALT furthest_alternative
= MARPA_DSTACK_INDEX(r->t_alternatives,ALT_Object,0);
Furthest_Earleme_of_R(r)= End_Earleme_of_ALT(furthest_alternative);
}
}
}
/*:808*/
#line 8974 "./marpa.w"
bv_clear(r->t_bv_nsyid_is_expected);
/*810:*/
#line 9322 "./marpa.w"
{}
/*:810*/
#line 8977 "./marpa.w"
count_of_expected_terminals= bv_count(r->t_bv_nsyid_is_expected);
if(count_of_expected_terminals<=0
&&MARPA_DSTACK_LENGTH(r->t_alternatives)<=0)
{
/*606:*/
#line 6420 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:606*/
#line 8982 "./marpa.w"
}
First_Inconsistent_YS_of_R(r)= -1;
/*794:*/
#line 9000 "./marpa.w"
{
marpa_obs_free(method_obstack);
}
/*:794*/
#line 8987 "./marpa.w"
return return_value;
}
/*:792*//*809:*/
#line 9296 "./marpa.w"
PRIVATE int alternative_is_acceptable(ALT alternative)
{
PIM pim;
const NSYID token_symbol_id= NSYID_of_ALT(alternative);
const YS start_ys= Start_YS_of_ALT(alternative);
for(pim= First_PIM_of_YS_by_NSYID(start_ys,token_symbol_id);
pim;
pim= Next_PIM_of_PIM(pim))
{
YIM predecessor_yim= YIM_of_PIM(pim);
if(!predecessor_yim)continue;
if(YIM_is_Active(predecessor_yim))return 1;
}
return 0;
}
/*:809*//*811:*/
#line 9325 "./marpa.w"
int
marpa_r_zwa_default_set(Marpa_Recognizer r,
Marpa_Assertion_ID zwaid,
int default_value)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9331 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9332 "./marpa.w"
ZWA zwa;
int old_default_value;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 9335 "./marpa.w"
/*1210:*/
#line 14300 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1210*/
#line 9336 "./marpa.w"
/*1209:*/
#line 14294 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1209*/
#line 9337 "./marpa.w"
if(_MARPA_UNLIKELY(default_value<0||default_value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
zwa= RZWA_by_ID(zwaid);
old_default_value= Default_Value_of_ZWA(zwa);
Default_Value_of_ZWA(zwa)= default_value?1:0;
return old_default_value;
}
/*:811*//*812:*/
#line 9349 "./marpa.w"
int
marpa_r_zwa_default(Marpa_Recognizer r,
Marpa_Assertion_ID zwaid)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9354 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9355 "./marpa.w"
ZWA zwa;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 9357 "./marpa.w"
/*1210:*/
#line 14300 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1210*/
#line 9358 "./marpa.w"
/*1209:*/
#line 14294 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1209*/
#line 9359 "./marpa.w"
zwa= RZWA_by_ID(zwaid);
return Default_Value_of_ZWA(zwa);
}
/*:812*//*821:*/
#line 9399 "./marpa.w"
PRIVATE_NOT_INLINE int report_item_cmp(
const void*ap,
const void*bp,
void*param UNUSED)
{
const struct marpa_progress_item*const report_a= ap;
const struct marpa_progress_item*const report_b= bp;
if(Position_of_PROGRESS(report_a)> Position_of_PROGRESS(report_b))return 1;
if(Position_of_PROGRESS(report_a)<Position_of_PROGRESS(report_b))return-1;
if(RULEID_of_PROGRESS(report_a)> RULEID_of_PROGRESS(report_b))return 1;
if(RULEID_of_PROGRESS(report_a)<RULEID_of_PROGRESS(report_b))return-1;
if(Origin_of_PROGRESS(report_a)> Origin_of_PROGRESS(report_b))return 1;
if(Origin_of_PROGRESS(report_a)<Origin_of_PROGRESS(report_b))return-1;
return 0;
}
/*:821*//*822:*/
#line 9416 "./marpa.w"
int marpa_r_progress_report_start(
Marpa_Recognizer r,
Marpa_Earley_Set_ID set_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9421 "./marpa.w"
YS earley_set;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9423 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 9424 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 9425 "./marpa.w"
if(set_id<0)
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
r_update_earley_sets(r);
if(!YS_Ord_is_Valid(r,set_id))
{
MARPA_ERROR(MARPA_ERR_NO_EARLEY_SET_AT_LOCATION);
return failure_indicator;
}
earley_set= YS_of_R_by_Ord(r,set_id);
/*816:*/
#line 9373 "./marpa.w"
r->t_current_report_item= &progress_report_not_ready;
if(r->t_progress_report_traverser){
_marpa_avl_destroy(MARPA_TREE_OF_AVL_TRAV(r->t_progress_report_traverser));
}
r->t_progress_report_traverser= NULL;
/*:816*/
#line 9438 "./marpa.w"
{
const MARPA_AVL_TREE report_tree=
_marpa_avl_create(report_item_cmp,NULL);
const YIM*const earley_items= YIMs_of_YS(earley_set);
const int earley_item_count= YIM_Count_of_YS(earley_set);
int earley_item_id;
for(earley_item_id= 0;earley_item_id<earley_item_count;
earley_item_id++)
{
const YIM earley_item= earley_items[earley_item_id];
if(!YIM_is_Active(earley_item))continue;
/*824:*/
#line 9471 "./marpa.w"
{
SRCL leo_source_link= NULL;
progress_report_item_insert(report_tree,AHM_of_YIM(earley_item),
Origin_Ord_of_YIM(earley_item));
for(leo_source_link= First_Leo_SRCL_of_YIM(earley_item);
leo_source_link;leo_source_link= Next_SRCL_of_SRCL(leo_source_link))
{
LIM leo_item;
if(!SRCL_is_Active(leo_source_link))continue;
for(leo_item= LIM_of_SRCL(leo_source_link);
leo_item;leo_item= Predecessor_LIM_of_LIM(leo_item))
{
const YSID report_origin= Ord_of_YS(YS_of_LIM(leo_item));
const AHM report_ahm= Trailhead_AHM_of_LIM(leo_item);
progress_report_item_insert(report_tree,report_ahm,
report_origin);
}
}
}
/*:824*/
#line 9450 "./marpa.w"
}
r->t_progress_report_traverser= _marpa_avl_t_init(report_tree);
return(int)marpa_avl_count(report_tree);
}
}
/*:822*//*823:*/
#line 9457 "./marpa.w"
int marpa_r_progress_report_reset(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9460 "./marpa.w"
MARPA_AVL_TRAV traverser= r->t_progress_report_traverser;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9462 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 9463 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 9464 "./marpa.w"
/*828:*/
#line 9563 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:828*/
#line 9465 "./marpa.w"
_marpa_avl_t_reset(traverser);
return 1;
}
/*:823*//*825:*/
#line 9496 "./marpa.w"
PRIVATE void
progress_report_item_insert(MARPA_AVL_TREE report_tree,
AHM report_ahm,
YSID report_origin)
{
PROGRESS new_report_item;
const XRL source_xrl= XRL_of_AHM(report_ahm);
const int xrl_position= XRL_Position_of_AHM(report_ahm);
if(!source_xrl)
return;
if(XRL_is_Sequence(source_xrl)
&&Position_of_AHM(report_ahm)<=0
&&IRL_has_Virtual_LHS(IRL_of_AHM(report_ahm)))
return;
new_report_item=
marpa_obs_new(MARPA_AVL_OBSTACK(report_tree),
struct marpa_progress_item,1);
Position_of_PROGRESS(new_report_item)= xrl_position;
Origin_of_PROGRESS(new_report_item)= report_origin;
RULEID_of_PROGRESS(new_report_item)= ID_of_XRL(source_xrl);
_marpa_avl_insert(report_tree,new_report_item);
return;
}
/*:825*//*826:*/
#line 9526 "./marpa.w"
int marpa_r_progress_report_finish(Marpa_Recognizer r){
const int success= 1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9529 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9530 "./marpa.w"
const MARPA_AVL_TRAV traverser= r->t_progress_report_traverser;
/*828:*/
#line 9563 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:828*/
#line 9532 "./marpa.w"
/*816:*/
#line 9373 "./marpa.w"
r->t_current_report_item= &progress_report_not_ready;
if(r->t_progress_report_traverser){
_marpa_avl_destroy(MARPA_TREE_OF_AVL_TRAV(r->t_progress_report_traverser));
}
r->t_progress_report_traverser= NULL;
/*:816*/
#line 9533 "./marpa.w"
return success;
}
/*:826*//*827:*/
#line 9537 "./marpa.w"
Marpa_Rule_ID marpa_r_progress_item(
Marpa_Recognizer r,int*position,Marpa_Earley_Set_ID*origin
){
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 9541 "./marpa.w"
PROGRESS report_item;
MARPA_AVL_TRAV traverser;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 9544 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 9545 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 9546 "./marpa.w"
traverser= r->t_progress_report_traverser;
if(_MARPA_UNLIKELY(!position||!origin)){
MARPA_ERROR(MARPA_ERR_POINTER_ARG_NULL);
return failure_indicator;
}
/*828:*/
#line 9563 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:828*/
#line 9552 "./marpa.w"
report_item= _marpa_avl_t_next(traverser);
if(!report_item){
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_EXHAUSTED);
return-1;
}
*position= Position_of_PROGRESS(report_item);
*origin= Origin_of_PROGRESS(report_item);
return RULEID_of_PROGRESS(report_item);
}
/*:827*//*851:*/
#line 9748 "./marpa.w"
PRIVATE void ur_node_stack_init(URS stack)
{
stack->t_obs= marpa_obs_init;
stack->t_base= ur_node_new(stack,0);
ur_node_stack_reset(stack);
}
/*:851*//*852:*/
#line 9756 "./marpa.w"
PRIVATE void ur_node_stack_reset(URS stack)
{
stack->t_top= stack->t_base;
}
/*:852*//*853:*/
#line 9762 "./marpa.w"
PRIVATE void ur_node_stack_destroy(URS stack)
{
if(stack->t_base)marpa_obs_free(stack->t_obs);
stack->t_base= NULL;
}
/*:853*//*854:*/
#line 9769 "./marpa.w"
PRIVATE UR ur_node_new(URS stack,UR prev)
{
UR new_ur_node;
new_ur_node= marpa_obs_new(stack->t_obs,UR_Object,1);
Next_UR_of_UR(new_ur_node)= 0;
Prev_UR_of_UR(new_ur_node)= prev;
return new_ur_node;
}
/*:854*//*855:*/
#line 9779 "./marpa.w"
PRIVATE void
ur_node_push(URS stack,YIM earley_item)
{
UR old_top= stack->t_top;
UR new_top= Next_UR_of_UR(old_top);
YIM_of_UR(old_top)= earley_item;
if(!new_top)
{
new_top= ur_node_new(stack,old_top);
Next_UR_of_UR(old_top)= new_top;
}
stack->t_top= new_top;
}
/*:855*//*856:*/
#line 9794 "./marpa.w"
PRIVATE UR
ur_node_pop(URS stack)
{
UR new_top= Prev_UR_of_UR(stack->t_top);
if(!new_top)return NULL;
stack->t_top= new_top;
return new_top;
}
/*:856*//*858:*/
#line 9831 "./marpa.w"
PRIVATE void push_ur_if_new(
struct s_bocage_setup_per_ys*per_ys_data,
URS ur_node_stack,YIM yim)
{
if(!psi_test_and_set(per_ys_data,yim))
{
ur_node_push(ur_node_stack,yim);
}
}
/*:858*//*859:*/
#line 9847 "./marpa.w"
PRIVATE int psi_test_and_set(
struct s_bocage_setup_per_ys*per_ys_data,
YIM earley_item
)
{
const YSID set_ordinal= YS_Ord_of_YIM(earley_item);
const int item_ordinal= Ord_of_YIM(earley_item);
const OR previous_or_node=
OR_by_PSI(per_ys_data,set_ordinal,item_ordinal);
if(!previous_or_node)
{
OR_by_PSI(per_ys_data,set_ordinal,item_ordinal)= dummy_or_node;
return 0;
}
return 1;
}
/*:859*//*861:*/
#line 9889 "./marpa.w"
PRIVATE void
Set_boolean_in_PSI_for_initial_nulls(struct s_bocage_setup_per_ys*per_ys_data,
YIM yim)
{
const AHM ahm= AHM_of_YIM(yim);
if(Null_Count_of_AHM(ahm))
psi_test_and_set(per_ys_data,(yim));
}
/*:861*//*886:*/
#line 10192 "./marpa.w"
PRIVATE OR or_node_new(BOCAGE b)
{
const int or_node_id= OR_Count_of_B(b)++;
const OR new_or_node= (OR)marpa_obs_new(OBS_of_B(b),OR_Object,1);
ID_of_OR(new_or_node)= or_node_id;
DANDs_of_OR(new_or_node)= NULL;
if(_MARPA_UNLIKELY(or_node_id>=OR_Capacity_of_B(b)))
{
OR_Capacity_of_B(b)*= 2;
ORs_of_B(b)=
marpa_renew(OR,ORs_of_B(b),OR_Capacity_of_B(b));
}
OR_of_B_by_ID(b,or_node_id)= new_or_node;
return new_or_node;
}
/*:886*//*896:*/
#line 10392 "./marpa.w"
PRIVATE
DAND draft_and_node_new(struct marpa_obstack*obs,OR predecessor,OR cause)
{
DAND draft_and_node= marpa_obs_new(obs,DAND_Object,1);
Predecessor_OR_of_DAND(draft_and_node)= predecessor;
Cause_OR_of_DAND(draft_and_node)= cause;
MARPA_ASSERT(cause!=NULL);
return draft_and_node;
}
/*:896*//*897:*/
#line 10403 "./marpa.w"
PRIVATE
void draft_and_node_add(struct marpa_obstack*obs,OR parent,OR predecessor,OR cause)
{
MARPA_OFF_ASSERT(Position_of_OR(parent)<=1||predecessor)
const DAND new= draft_and_node_new(obs,predecessor,cause);
Next_DAND_of_DAND(new)= DANDs_of_OR(parent);
DANDs_of_OR(parent)= new;
}
/*:897*//*905:*/
#line 10543 "./marpa.w"
PRIVATE
OR or_by_origin_and_symi(struct s_bocage_setup_per_ys*per_ys_data,
YSID origin,
SYMI symbol_instance)
{
const PSL or_psl_at_origin= per_ys_data[(origin)].t_or_psl;
return PSL_Datum(or_psl_at_origin,(symbol_instance));
}
/*:905*//*910:*/
#line 10602 "./marpa.w"
PRIVATE
int dands_are_equal(OR predecessor_a,OR cause_a,
OR predecessor_b,OR cause_b)
{
const int a_is_token= OR_is_Token(cause_a);
const int b_is_token= OR_is_Token(cause_b);
if(a_is_token!=b_is_token)return 0;
{
const int middle_of_a= predecessor_a?YS_Ord_of_OR(predecessor_a):-1;
const int middle_of_b= predecessor_b?YS_Ord_of_OR(predecessor_b):-1;
if(middle_of_a!=middle_of_b)
return 0;
}
if(a_is_token)
{
const NSYID nsyid_of_a= NSYID_of_OR(cause_a);
const NSYID nsyid_of_b= NSYID_of_OR(cause_b);
return nsyid_of_a==nsyid_of_b;
}
{
const IRLID irlid_of_a= IRLID_of_OR(cause_a);
const IRLID irlid_of_b= IRLID_of_OR(cause_b);
return irlid_of_a==irlid_of_b;
}
}
/*:910*//*911:*/
#line 10636 "./marpa.w"
PRIVATE
int dand_is_duplicate(OR parent,OR predecessor,OR cause)
{
DAND dand;
for(dand= DANDs_of_OR(parent);dand;dand= Next_DAND_of_DAND(dand)){
if(dands_are_equal(predecessor,cause,
Predecessor_OR_of_DAND(dand),Cause_OR_of_DAND(dand)))
{
return 1;
}
}
return 0;
}
/*:911*//*912:*/
#line 10651 "./marpa.w"
PRIVATE
OR set_or_from_yim(struct s_bocage_setup_per_ys*per_ys_data,
YIM psi_yim)
{
const YIM psi_earley_item= psi_yim;
const int psi_earley_set_ordinal= YS_Ord_of_YIM(psi_earley_item);
const int psi_item_ordinal= Ord_of_YIM(psi_earley_item);
return OR_by_PSI(per_ys_data,psi_earley_set_ordinal,psi_item_ordinal);
}
/*:912*//*915:*/
#line 10709 "./marpa.w"
PRIVATE
OR safe_or_from_yim(
struct s_bocage_setup_per_ys*per_ys_data,
YIM yim)
{
if(Position_of_AHM(AHM_of_YIM(yim))<1)return NULL;
return set_or_from_yim(per_ys_data,yim);
}
/*:915*//*932:*/
#line 10862 "./marpa.w"
Marpa_Bocage marpa_b_new(Marpa_Recognizer r,
Marpa_Earley_Set_ID ordinal_arg)
{
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 10866 "./marpa.w"
/*935:*/
#line 10924 "./marpa.w"
const GRAMMAR g= G_of_R(r);
const int xsy_count= XSY_Count_of_G(g);
BOCAGE b= NULL;
YS end_of_parse_earley_set;
JEARLEME end_of_parse_earleme;
YIM start_yim= NULL;
struct marpa_obstack*bocage_setup_obs= NULL;
int count_of_earley_items_in_parse;
const int earley_set_count_of_r= YS_Count_of_R(r);
/*:935*//*938:*/
#line 10947 "./marpa.w"
struct s_bocage_setup_per_ys*per_ys_data= NULL;
/*:938*/
#line 10867 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 10868 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 10869 "./marpa.w"
{
struct marpa_obstack*const obstack= marpa_obs_init;
b= marpa_obs_new(obstack,struct marpa_bocage,1);
OBS_of_B(b)= obstack;
}
/*877:*/
#line 10064 "./marpa.w"
ORs_of_B(b)= NULL;
OR_Count_of_B(b)= 0;
ANDs_of_B(b)= NULL;
AND_Count_of_B(b)= 0;
Top_ORID_of_B(b)= -1;
/*:877*//*880:*/
#line 10087 "./marpa.w"
{
G_of_B(b)= G_of_R(r);
grammar_ref(g);
}
/*:880*//*934:*/
#line 10919 "./marpa.w"
Valued_BV_of_B(b)= lbv_clone(b->t_obs,r->t_valued,xsy_count);
Valued_Locked_BV_of_B(b)=
lbv_clone(b->t_obs,r->t_valued_locked,xsy_count);
/*:934*//*948:*/
#line 11064 "./marpa.w"
Ambiguity_Metric_of_B(b)= 1;
/*:948*//*952:*/
#line 11078 "./marpa.w"
b->t_ref_count= 1;
/*:952*//*959:*/
#line 11137 "./marpa.w"
B_is_Nulling(b)= 0;
/*:959*/
#line 10875 "./marpa.w"
if(G_is_Trivial(g)){
if(ordinal_arg> 0)goto NO_PARSE;
B_is_Nulling(b)= 1;
return b;
}
r_update_earley_sets(r);
/*939:*/
#line 10950 "./marpa.w"
{
if(ordinal_arg==-1)
{
end_of_parse_earley_set= YS_at_Current_Earleme_of_R(r);
}
else
{
if(!YS_Ord_is_Valid(r,ordinal_arg))
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
end_of_parse_earley_set= YS_of_R_by_Ord(r,ordinal_arg);
}
if(!end_of_parse_earley_set)
goto NO_PARSE;
end_of_parse_earleme= Earleme_of_YS(end_of_parse_earley_set);
}
/*:939*/
#line 10883 "./marpa.w"
if(end_of_parse_earleme==0)
{
if(!XSY_is_Nullable(XSY_by_ID(g->t_start_xsy_id)))
goto NO_PARSE;
B_is_Nulling(b)= 1;
return b;
}
/*942:*/
#line 11016 "./marpa.w"
{
int yim_ix;
YIM*const earley_items= YIMs_of_YS(end_of_parse_earley_set);
const IRL start_irl= g->t_start_irl;
const IRLID sought_irl_id= ID_of_IRL(start_irl);
const int earley_item_count= YIM_Count_of_YS(end_of_parse_earley_set);
for(yim_ix= 0;yim_ix<earley_item_count;yim_ix++){
const YIM earley_item= earley_items[yim_ix];
if(Origin_Earleme_of_YIM(earley_item)> 0)continue;
if(YIM_was_Predicted(earley_item))continue;
{
const AHM ahm= AHM_of_YIM(earley_item);
if(IRLID_of_AHM(ahm)==sought_irl_id){
start_yim= earley_item;
break;
}
}
}
}
/*:942*/
#line 10891 "./marpa.w"
if(!start_yim)goto NO_PARSE;
bocage_setup_obs= marpa_obs_init;
/*940:*/
#line 10972 "./marpa.w"
{
int earley_set_ordinal;
int earley_set_count= YS_Count_of_R(r);
count_of_earley_items_in_parse= 0;
per_ys_data= marpa_obs_new(
bocage_setup_obs,struct s_bocage_setup_per_ys,earley_set_count);
for(earley_set_ordinal= 0;earley_set_ordinal<earley_set_count;
earley_set_ordinal++)
{
const YS_Const earley_set= YS_of_R_by_Ord(r,earley_set_ordinal);
const int item_count= YIM_Count_of_YS(earley_set);
count_of_earley_items_in_parse+= item_count;
{
int item_ordinal;
struct s_bocage_setup_per_ys*per_ys= per_ys_data+earley_set_ordinal;
per_ys->t_or_node_by_item=
marpa_obs_new(bocage_setup_obs,OR,item_count);
per_ys->t_or_psl= NULL;
per_ys->t_and_psl= NULL;
for(item_ordinal= 0;item_ordinal<item_count;item_ordinal++)
{
OR_by_PSI(per_ys_data,earley_set_ordinal,item_ordinal)= NULL;
}
}
}
}
/*:940*/
#line 10894 "./marpa.w"
/*857:*/
#line 9812 "./marpa.w"
{
UR_Const ur_node;
const URS ur_node_stack= URS_of_R(r);
ur_node_stack_reset(ur_node_stack);
push_ur_if_new(per_ys_data,ur_node_stack,start_yim);
while((ur_node= ur_node_pop(ur_node_stack)))
{
const YIM parent_earley_item= YIM_of_UR(ur_node);
MARPA_ASSERT(!YIM_was_Predicted(parent_earley_item))
/*860:*/
#line 9865 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Token_SRCL_of_YIM(parent_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
YIM predecessor_earley_item;
if(!SRCL_is_Active(source_link))continue;
predecessor_earley_item= Predecessor_of_SRCL(source_link);
if(!predecessor_earley_item)continue;
if(YIM_was_Predicted(predecessor_earley_item))
{
Set_boolean_in_PSI_for_initial_nulls(per_ys_data,
predecessor_earley_item);
continue;
}
push_ur_if_new(per_ys_data,ur_node_stack,predecessor_earley_item);
}
}
/*:860*/
#line 9825 "./marpa.w"
/*862:*/
#line 9899 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Completion_SRCL_of_YIM(parent_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
YIM predecessor_earley_item;
YIM cause_earley_item;
if(!SRCL_is_Active(source_link))continue;
cause_earley_item= Cause_of_SRCL(source_link);
push_ur_if_new(per_ys_data,ur_node_stack,cause_earley_item);
predecessor_earley_item= Predecessor_of_SRCL(source_link);
if(!predecessor_earley_item)continue;
if(YIM_was_Predicted(predecessor_earley_item))
{
Set_boolean_in_PSI_for_initial_nulls(per_ys_data,
predecessor_earley_item);
continue;
}
push_ur_if_new(per_ys_data,ur_node_stack,predecessor_earley_item);
}
}
/*:862*/
#line 9826 "./marpa.w"
/*863:*/
#line 9922 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Leo_SRCL_of_YIM(parent_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
LIM leo_predecessor;
YIM cause_earley_item;
if(!SRCL_is_Active(source_link))
continue;
cause_earley_item= Cause_of_SRCL(source_link);
push_ur_if_new(per_ys_data,ur_node_stack,cause_earley_item);
for(leo_predecessor= LIM_of_SRCL(source_link);leo_predecessor;
leo_predecessor= Predecessor_LIM_of_LIM(leo_predecessor))
{
const YIM leo_base_yim= Trailhead_YIM_of_LIM(leo_predecessor);
if(YIM_was_Predicted(leo_base_yim))
{
Set_boolean_in_PSI_for_initial_nulls(per_ys_data,
leo_base_yim);
}
else
{
push_ur_if_new(per_ys_data,ur_node_stack,leo_base_yim);
}
}
}
}
/*:863*/
#line 9827 "./marpa.w"
}
}
/*:857*/
#line 10895 "./marpa.w"
/*881:*/
#line 10094 "./marpa.w"
{
PSAR_Object or_per_ys_arena;
const PSAR or_psar= &or_per_ys_arena;
int work_earley_set_ordinal;
OR_Capacity_of_B(b)= count_of_earley_items_in_parse;
ORs_of_B(b)= marpa_new(OR,OR_Capacity_of_B(b));
psar_init(or_psar,SYMI_Count_of_G(g));
for(work_earley_set_ordinal= 0;
work_earley_set_ordinal<earley_set_count_of_r;
work_earley_set_ordinal++)
{
const YS_Const earley_set= YS_of_R_by_Ord(r,work_earley_set_ordinal);
YIM*const yims_of_ys= YIMs_of_YS(earley_set);
const int item_count= YIM_Count_of_YS(earley_set);
PSL this_earley_set_psl;
psar_dealloc(or_psar);
this_earley_set_psl
= psl_claim_by_es(or_psar,per_ys_data,work_earley_set_ordinal);
/*882:*/
#line 10120 "./marpa.w"
{
int item_ordinal;
for(item_ordinal= 0;item_ordinal<item_count;
item_ordinal++)
{
if(OR_by_PSI(per_ys_data,work_earley_set_ordinal,item_ordinal))
{
const YIM work_earley_item= yims_of_ys[item_ordinal];
{
/*883:*/
#line 10136 "./marpa.w"
{
AHM ahm= AHM_of_YIM(work_earley_item);
const int working_ys_ordinal= YS_Ord_of_YIM(work_earley_item);
const int working_yim_ordinal= Ord_of_YIM(work_earley_item);
const int work_origin_ordinal=
Ord_of_YS(Origin_of_YIM(work_earley_item));
SYMI ahm_symbol_instance;
OR psi_or_node= NULL;
ahm_symbol_instance= SYMI_of_AHM(ahm);
{
PSL or_psl= psl_claim_by_es(or_psar,per_ys_data,work_origin_ordinal);
OR last_or_node= NULL;
/*885:*/
#line 10170 "./marpa.w"
{
if(ahm_symbol_instance>=0)
{
OR or_node;
MARPA_ASSERT(ahm_symbol_instance<SYMI_Count_of_G(g))
or_node= PSL_Datum(or_psl,ahm_symbol_instance);
if(!or_node||YS_Ord_of_OR(or_node)!=work_earley_set_ordinal)
{
const IRL irl= IRL_of_AHM(ahm);
or_node= last_or_node= or_node_new(b);
PSL_Datum(or_psl,ahm_symbol_instance)= last_or_node;
Origin_Ord_of_OR(or_node)= Origin_Ord_of_YIM(work_earley_item);
YS_Ord_of_OR(or_node)= work_earley_set_ordinal;
IRL_of_OR(or_node)= irl;
Position_of_OR(or_node)=
ahm_symbol_instance-SYMI_of_IRL(irl)+1;
}
psi_or_node= or_node;
}
}
/*:885*/
#line 10149 "./marpa.w"
/*888:*/
#line 10218 "./marpa.w"
{
const int null_count= Null_Count_of_AHM(ahm);
if(null_count> 0)
{
const IRL irl= IRL_of_AHM(ahm);
const int symbol_instance_of_rule= SYMI_of_IRL(irl);
const int first_null_symbol_instance=
ahm_symbol_instance<
0?symbol_instance_of_rule:ahm_symbol_instance+1;
int i;
for(i= 0;i<null_count;i++)
{
const int symbol_instance= first_null_symbol_instance+i;
OR or_node= PSL_Datum(or_psl,symbol_instance);
if(!or_node||YS_Ord_of_OR(or_node)!=work_earley_set_ordinal){
const int rhs_ix= symbol_instance-symbol_instance_of_rule;
const OR predecessor= rhs_ix?last_or_node:NULL;
const OR cause= Nulling_OR_by_NSYID(RHSID_of_IRL(irl,rhs_ix));
or_node= PSL_Datum(or_psl,symbol_instance)
= last_or_node= or_node_new(b);
Origin_Ord_of_OR(or_node)= work_origin_ordinal;
YS_Ord_of_OR(or_node)= work_earley_set_ordinal;
IRL_of_OR(or_node)= irl;
Position_of_OR(or_node)= rhs_ix+1;
MARPA_ASSERT(Position_of_OR(or_node)<=1||predecessor);
draft_and_node_add(bocage_setup_obs,or_node,predecessor,
cause);
}
psi_or_node= or_node;
}
}
}
/*:888*/
#line 10150 "./marpa.w"
}
MARPA_OFF_ASSERT(psi_or_node)
OR_by_PSI(per_ys_data,working_ys_ordinal,working_yim_ordinal)
= psi_or_node;
/*889:*/
#line 10253 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Leo_SRCL_of_YIM(work_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
LIM leo_predecessor= LIM_of_SRCL(source_link);
if(leo_predecessor){
/*890:*/
#line 10270 "./marpa.w"
{
LIM this_leo_item= leo_predecessor;
LIM previous_leo_item= this_leo_item;
while((this_leo_item= Predecessor_LIM_of_LIM(this_leo_item)))
{
const int ordinal_of_set_of_this_leo_item= Ord_of_YS(YS_of_LIM(this_leo_item));
const AHM path_ahm= Trailhead_AHM_of_LIM(previous_leo_item);
const IRL path_irl= IRL_of_AHM(path_ahm);
const int symbol_instance_of_path_ahm= SYMI_of_AHM(path_ahm);
{
OR last_or_node= NULL;
/*891:*/
#line 10292 "./marpa.w"
{
{
OR or_node;
PSL leo_psl
= psl_claim_by_es(or_psar,per_ys_data,ordinal_of_set_of_this_leo_item);
or_node= PSL_Datum(leo_psl,symbol_instance_of_path_ahm);
if(!or_node||YS_Ord_of_OR(or_node)!=work_earley_set_ordinal)
{
last_or_node= or_node_new(b);
PSL_Datum(leo_psl,symbol_instance_of_path_ahm)= or_node=
last_or_node;
Origin_Ord_of_OR(or_node)= ordinal_of_set_of_this_leo_item;
YS_Ord_of_OR(or_node)= work_earley_set_ordinal;
IRL_of_OR(or_node)= path_irl;
Position_of_OR(or_node)=
symbol_instance_of_path_ahm-SYMI_of_IRL(path_irl)+1;
}
}
}
/*:891*/
#line 10282 "./marpa.w"
/*892:*/
#line 10317 "./marpa.w"
{
int i;
const int null_count= Null_Count_of_AHM(path_ahm);
for(i= 1;i<=null_count;i++)
{
const int symbol_instance= symbol_instance_of_path_ahm+i;
OR or_node= PSL_Datum(this_earley_set_psl,symbol_instance);
MARPA_ASSERT(symbol_instance<SYMI_Count_of_G(g))
if(!or_node||YS_Ord_of_OR(or_node)!=work_earley_set_ordinal)
{
const int rhs_ix= symbol_instance-SYMI_of_IRL(path_irl);
MARPA_ASSERT(rhs_ix<Length_of_IRL(path_irl))
const OR predecessor= rhs_ix?last_or_node:NULL;
const OR cause= Nulling_OR_by_NSYID(RHSID_of_IRL(path_irl,rhs_ix));
MARPA_ASSERT(symbol_instance<Length_of_IRL(path_irl))
MARPA_ASSERT(symbol_instance>=0)
or_node= last_or_node= or_node_new(b);
PSL_Datum(this_earley_set_psl,symbol_instance)= or_node;
Origin_Ord_of_OR(or_node)= ordinal_of_set_of_this_leo_item;
YS_Ord_of_OR(or_node)= work_earley_set_ordinal;
IRL_of_OR(or_node)= path_irl;
Position_of_OR(or_node)= rhs_ix+1;
MARPA_ASSERT(Position_of_OR(or_node)<=1||predecessor);
draft_and_node_add(bocage_setup_obs,or_node,predecessor,cause);
}
MARPA_ASSERT(Position_of_OR(or_node)<=
SYMI_of_IRL(path_irl)+Length_of_IRL(path_irl))
MARPA_ASSERT(Position_of_OR(or_node)>=SYMI_of_IRL(path_irl))
}
}
/*:892*/
#line 10283 "./marpa.w"
}
previous_leo_item= this_leo_item;
}
}
/*:890*/
#line 10261 "./marpa.w"
}
}
}
/*:889*/
#line 10162 "./marpa.w"
}
/*:883*/
#line 10130 "./marpa.w"
}
}
}
}
/*:882*/
#line 10113 "./marpa.w"
/*898:*/
#line 10413 "./marpa.w"
{
int item_ordinal;
for(item_ordinal= 0;item_ordinal<item_count;item_ordinal++)
{
OR or_node= OR_by_PSI(per_ys_data,work_earley_set_ordinal,item_ordinal);
const YIM work_earley_item= yims_of_ys[item_ordinal];
const int work_origin_ordinal= Ord_of_YS(Origin_of_YIM(work_earley_item));
/*899:*/
#line 10430 "./marpa.w"
{
while(or_node){
DAND draft_and_node= DANDs_of_OR(or_node);
OR predecessor_or;
if(!draft_and_node)break;
predecessor_or= Predecessor_OR_of_DAND(draft_and_node);
if(predecessor_or&&
YS_Ord_of_OR(predecessor_or)!=work_earley_set_ordinal)
break;
or_node= predecessor_or;
}
}
/*:899*/
#line 10421 "./marpa.w"
if(or_node){
/*900:*/
#line 10444 "./marpa.w"
{
const AHM work_ahm= AHM_of_YIM(work_earley_item);
MARPA_ASSERT(work_ahm>=AHM_by_ID(1))
const int work_symbol_instance= SYMI_of_AHM(work_ahm);
const OR work_proper_or_node= or_by_origin_and_symi(per_ys_data,
work_origin_ordinal,work_symbol_instance);
/*902:*/
#line 10486 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Leo_SRCL_of_YIM(work_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
YIM cause_earley_item;
LIM leo_predecessor;
if(!SRCL_is_Active(source_link))continue;
cause_earley_item= Cause_of_SRCL(source_link);
leo_predecessor= LIM_of_SRCL(source_link);
if(leo_predecessor){
/*903:*/
#line 10507 "./marpa.w"
{
IRL path_irl= NULL;
IRL previous_path_irl;
LIM path_leo_item= leo_predecessor;
LIM higher_path_leo_item= Predecessor_LIM_of_LIM(path_leo_item);
OR dand_predecessor;
OR path_or_node;
YIM base_earley_item= Trailhead_YIM_of_LIM(path_leo_item);
dand_predecessor= set_or_from_yim(per_ys_data,base_earley_item);
/*904:*/
#line 10534 "./marpa.w"
{
if(higher_path_leo_item){
/*913:*/
#line 10662 "./marpa.w"
{
int symbol_instance;
const int origin_ordinal= Origin_Ord_of_YIM(base_earley_item);
const AHM ahm= AHM_of_YIM(base_earley_item);
path_irl= IRL_of_AHM(ahm);
symbol_instance= Last_Proper_SYMI_of_IRL(path_irl);
path_or_node= or_by_origin_and_symi(per_ys_data,origin_ordinal,symbol_instance);
}
/*:913*/
#line 10537 "./marpa.w"
}else{
path_or_node= work_proper_or_node;
}
}
/*:904*/
#line 10519 "./marpa.w"
/*906:*/
#line 10553 "./marpa.w"
{
const OR dand_cause
= set_or_from_yim(per_ys_data,cause_earley_item);
if(!dand_is_duplicate(path_or_node,dand_predecessor,dand_cause)){
draft_and_node_add(bocage_setup_obs,path_or_node,
dand_predecessor,dand_cause);
}
}
/*:906*/
#line 10520 "./marpa.w"
previous_path_irl= path_irl;
while(higher_path_leo_item){
path_leo_item= higher_path_leo_item;
higher_path_leo_item= Predecessor_LIM_of_LIM(path_leo_item);
base_earley_item= Trailhead_YIM_of_LIM(path_leo_item);
dand_predecessor
= set_or_from_yim(per_ys_data,base_earley_item);
/*904:*/
#line 10534 "./marpa.w"
{
if(higher_path_leo_item){
/*913:*/
#line 10662 "./marpa.w"
{
int symbol_instance;
const int origin_ordinal= Origin_Ord_of_YIM(base_earley_item);
const AHM ahm= AHM_of_YIM(base_earley_item);
path_irl= IRL_of_AHM(ahm);
symbol_instance= Last_Proper_SYMI_of_IRL(path_irl);
path_or_node= or_by_origin_and_symi(per_ys_data,origin_ordinal,symbol_instance);
}
/*:913*/
#line 10537 "./marpa.w"
}else{
path_or_node= work_proper_or_node;
}
}
/*:904*/
#line 10528 "./marpa.w"
/*909:*/
#line 10579 "./marpa.w"
{
const SYMI symbol_instance= SYMI_of_Completed_IRL(previous_path_irl);
const int origin= Ord_of_YS(YS_of_LIM(path_leo_item));
const OR dand_cause= or_by_origin_and_symi(per_ys_data,origin,symbol_instance);
if(!dand_is_duplicate(path_or_node,dand_predecessor,dand_cause)){
draft_and_node_add(bocage_setup_obs,path_or_node,
dand_predecessor,dand_cause);
}
}
/*:909*/
#line 10529 "./marpa.w"
previous_path_irl= path_irl;
}
}
/*:903*/
#line 10501 "./marpa.w"
}
}
}
/*:902*/
#line 10451 "./marpa.w"
/*914:*/
#line 10677 "./marpa.w"
{
SRCL tkn_source_link;
for(tkn_source_link= First_Token_SRCL_of_YIM(work_earley_item);
tkn_source_link;tkn_source_link= Next_SRCL_of_SRCL(tkn_source_link))
{
OR new_token_or_node;
const NSYID token_nsyid= NSYID_of_SRCL(tkn_source_link);
const YIM predecessor_earley_item= Predecessor_of_SRCL(tkn_source_link);
const OR dand_predecessor= safe_or_from_yim(per_ys_data,
predecessor_earley_item);
if(NSYID_is_Valued_in_B(b,token_nsyid))
{
new_token_or_node= (OR)marpa_obs_new(OBS_of_B(b),OR_Object,1);
Type_of_OR(new_token_or_node)= VALUED_TOKEN_OR_NODE;
NSYID_of_OR(new_token_or_node)= token_nsyid;
Value_of_OR(new_token_or_node)= Value_of_SRCL(tkn_source_link);
}
else
{
new_token_or_node= Unvalued_OR_by_NSYID(token_nsyid);
}
draft_and_node_add(bocage_setup_obs,work_proper_or_node,
dand_predecessor,new_token_or_node);
}
}
/*:914*/
#line 10452 "./marpa.w"
/*916:*/
#line 10719 "./marpa.w"
{
SRCL source_link;
for(source_link= First_Completion_SRCL_of_YIM(work_earley_item);
source_link;source_link= Next_SRCL_of_SRCL(source_link))
{
YIM predecessor_earley_item= Predecessor_of_SRCL(source_link);
YIM cause_earley_item= Cause_of_SRCL(source_link);
const int middle_ordinal= Origin_Ord_of_YIM(cause_earley_item);
const AHM cause_ahm= AHM_of_YIM(cause_earley_item);
const SYMI cause_symbol_instance=
SYMI_of_Completed_IRL(IRL_of_AHM(cause_ahm));
OR dand_predecessor= safe_or_from_yim(per_ys_data,
predecessor_earley_item);
const OR dand_cause=
or_by_origin_and_symi(per_ys_data,middle_ordinal,
cause_symbol_instance);
draft_and_node_add(bocage_setup_obs,work_proper_or_node,
dand_predecessor,dand_cause);
}
}
/*:916*/
#line 10453 "./marpa.w"
}
/*:900*/
#line 10423 "./marpa.w"
}
}
}
/*:898*/
#line 10114 "./marpa.w"
}
psar_destroy(or_psar);
ORs_of_B(b)= marpa_renew(OR,ORs_of_B(b),OR_Count_of_B(b));
}
/*:881*/
#line 10896 "./marpa.w"
/*922:*/
#line 10791 "./marpa.w"
{
int unique_draft_and_node_count= 0;
/*917:*/
#line 10744 "./marpa.w"
{
const int or_node_count_of_b= OR_Count_of_B(b);
int or_node_id= 0;
while(or_node_id<or_node_count_of_b)
{
const OR work_or_node= OR_of_B_by_ID(b,or_node_id);
DAND dand= DANDs_of_OR(work_or_node);
while(dand)
{
unique_draft_and_node_count++;
dand= Next_DAND_of_DAND(dand);
}
or_node_id++;
}
}
/*:917*/
#line 10794 "./marpa.w"
/*923:*/
#line 10798 "./marpa.w"
{
const int or_count_of_b= OR_Count_of_B(b);
int or_node_id;
int and_node_id= 0;
const AND ands_of_b= ANDs_of_B(b)=
marpa_new(AND_Object,unique_draft_and_node_count);
for(or_node_id= 0;or_node_id<or_count_of_b;or_node_id++)
{
int and_count_of_parent_or= 0;
const OR or_node= OR_of_B_by_ID(b,or_node_id);
DAND dand= DANDs_of_OR(or_node);
First_ANDID_of_OR(or_node)= and_node_id;
while(dand)
{
const OR cause_or_node= Cause_OR_of_DAND(dand);
const AND and_node= ands_of_b+and_node_id;
OR_of_AND(and_node)= or_node;
Predecessor_OR_of_AND(and_node)= Predecessor_OR_of_DAND(dand);
Cause_OR_of_AND(and_node)= cause_or_node;
and_node_id++;
and_count_of_parent_or++;
dand= Next_DAND_of_DAND(dand);
}
AND_Count_of_OR(or_node)= and_count_of_parent_or;
Ambiguity_Metric_of_B(b)=
MAX(Ambiguity_Metric_of_B(b),and_count_of_parent_or);
}
AND_Count_of_B(b)= and_node_id;
MARPA_ASSERT(and_node_id==unique_draft_and_node_count);
}
/*:923*/
#line 10795 "./marpa.w"
}
/*:922*/
#line 10897 "./marpa.w"
/*943:*/
#line 11037 "./marpa.w"
{
const YSID end_of_parse_ordinal= Ord_of_YS(end_of_parse_earley_set);
const int start_earley_item_ordinal= Ord_of_YIM(start_yim);
const OR root_or_node=
OR_by_PSI(per_ys_data,end_of_parse_ordinal,start_earley_item_ordinal);
Top_ORID_of_B(b)= ID_of_OR(root_or_node);
}
/*:943*/
#line 10898 "./marpa.w"
;
marpa_obs_free(bocage_setup_obs);
return b;
NO_PARSE:;
MARPA_ERROR(MARPA_ERR_NO_PARSE);
if(b){
/*955:*/
#line 11114 "./marpa.w"
/*878:*/
#line 10071 "./marpa.w"
{
OR*or_nodes= ORs_of_B(b);
AND and_nodes= ANDs_of_B(b);
grammar_unref(G_of_B(b));
my_free(or_nodes);
ORs_of_B(b)= NULL;
my_free(and_nodes);
ANDs_of_B(b)= NULL;
}
/*:878*/
#line 11115 "./marpa.w"
;
/*931:*/
#line 10858 "./marpa.w"
marpa_obs_free(OBS_of_B(b));
/*:931*/
#line 11116 "./marpa.w"
;
/*:955*/
#line 10904 "./marpa.w"
;
}
return NULL;
}
/*:932*//*945:*/
#line 11048 "./marpa.w"
Marpa_Or_Node_ID _marpa_b_top_or_node(Marpa_Bocage b)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11051 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11052 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11053 "./marpa.w"
return Top_ORID_of_B(b);
}
/*:945*//*949:*/
#line 11067 "./marpa.w"
int marpa_b_ambiguity_metric(Marpa_Bocage b)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11070 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11071 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11072 "./marpa.w"
return Ambiguity_Metric_of_B(b);
}
/*:949*//*953:*/
#line 11081 "./marpa.w"
PRIVATE void
bocage_unref(BOCAGE b)
{
MARPA_ASSERT(b->t_ref_count> 0)
b->t_ref_count--;
if(b->t_ref_count<=0)
{
bocage_free(b);
}
}
void
marpa_b_unref(Marpa_Bocage b)
{
bocage_unref(b);
}
/*:953*//*954:*/
#line 11099 "./marpa.w"
PRIVATE BOCAGE
bocage_ref(BOCAGE b)
{
MARPA_ASSERT(b->t_ref_count> 0)
b->t_ref_count++;
return b;
}
Marpa_Bocage
marpa_b_ref(Marpa_Bocage b)
{
return bocage_ref(b);
}
/*:954*//*956:*/
#line 11121 "./marpa.w"
PRIVATE void
bocage_free(BOCAGE b)
{
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11125 "./marpa.w"
if(b)
{
/*955:*/
#line 11114 "./marpa.w"
/*878:*/
#line 10071 "./marpa.w"
{
OR*or_nodes= ORs_of_B(b);
AND and_nodes= ANDs_of_B(b);
grammar_unref(G_of_B(b));
my_free(or_nodes);
ORs_of_B(b)= NULL;
my_free(and_nodes);
ANDs_of_B(b)= NULL;
}
/*:878*/
#line 11115 "./marpa.w"
;
/*931:*/
#line 10858 "./marpa.w"
marpa_obs_free(OBS_of_B(b));
/*:931*/
#line 11116 "./marpa.w"
;
/*:955*/
#line 11128 "./marpa.w"
;
}
}
/*:956*//*960:*/
#line 11139 "./marpa.w"
int marpa_b_is_null(Marpa_Bocage b)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11142 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11143 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11144 "./marpa.w"
return B_is_Nulling(b);
}
/*:960*//*967:*/
#line 11184 "./marpa.w"
Marpa_Order marpa_o_new(Marpa_Bocage b)
{
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 11187 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11188 "./marpa.w"
ORDER o;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11190 "./marpa.w"
o= my_malloc(sizeof(*o));
B_of_O(o)= b;
bocage_ref(b);
/*964:*/
#line 11172 "./marpa.w"
{
o->t_and_node_orderings= NULL;
o->t_is_frozen= 0;
OBS_of_O(o)= NULL;
}
/*:964*//*970:*/
#line 11202 "./marpa.w"
o->t_ref_count= 1;
/*:970*//*982:*/
#line 11290 "./marpa.w"
High_Rank_Count_of_O(o)= 1;
/*:982*/
#line 11194 "./marpa.w"
O_is_Nulling(o)= B_is_Nulling(b);
Ambiguity_Metric_of_O(o)= Ambiguity_Metric_of_B(b);
return o;
}
/*:967*//*971:*/
#line 11206 "./marpa.w"
PRIVATE void
order_unref(ORDER o)
{
MARPA_ASSERT(o->t_ref_count> 0)
o->t_ref_count--;
if(o->t_ref_count<=0)
{
order_free(o);
}
}
void
marpa_o_unref(Marpa_Order o)
{
order_unref(o);
}
/*:971*//*972:*/
#line 11224 "./marpa.w"
PRIVATE ORDER
order_ref(ORDER o)
{
MARPA_ASSERT(o->t_ref_count> 0)
o->t_ref_count++;
return o;
}
Marpa_Order
marpa_o_ref(Marpa_Order o)
{
return order_ref(o);
}
/*:972*//*973:*/
#line 11238 "./marpa.w"
PRIVATE void order_free(ORDER o)
{
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11241 "./marpa.w"
bocage_unref(b);
marpa_obs_free(OBS_of_O(o));
my_free(o);
}
/*:973*//*977:*/
#line 11259 "./marpa.w"
int marpa_o_ambiguity_metric(Marpa_Order o)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11262 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11263 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11264 "./marpa.w"
return Ambiguity_Metric_of_O(o);
}
/*:977*//*980:*/
#line 11273 "./marpa.w"
int marpa_o_is_null(Marpa_Order o)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11276 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11277 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11278 "./marpa.w"
return O_is_Nulling(o);
}
/*:980*//*983:*/
#line 11292 "./marpa.w"
int marpa_o_high_rank_only_set(
Marpa_Order o,
int count)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11297 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11298 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11299 "./marpa.w"
if(O_is_Frozen(o))
{
MARPA_ERROR(MARPA_ERR_ORDER_FROZEN);
return failure_indicator;
}
if(_MARPA_UNLIKELY(count<0||count> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
return High_Rank_Count_of_O(o)= count;
}
/*:983*//*984:*/
#line 11314 "./marpa.w"
int marpa_o_high_rank_only(Marpa_Order o)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11317 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11318 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11319 "./marpa.w"
return High_Rank_Count_of_O(o);
}
/*:984*//*988:*/
#line 11356 "./marpa.w"
int marpa_o_rank(Marpa_Order o)
{
ANDID**and_node_orderings;
struct marpa_obstack*obs;
int bocage_was_reordered= 0;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11362 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11363 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11364 "./marpa.w"
if(O_is_Frozen(o))
{
MARPA_ERROR(MARPA_ERR_ORDER_FROZEN);
return failure_indicator;
}
/*994:*/
#line 11528 "./marpa.w"
{
int and_id;
const int and_count_of_r= AND_Count_of_B(b);
obs= OBS_of_O(o)= marpa_obs_init;
o->t_and_node_orderings=
and_node_orderings=
marpa_obs_new(obs,ANDID*,and_count_of_r);
for(and_id= 0;and_id<and_count_of_r;and_id++)
{
and_node_orderings[and_id]= (ANDID*)NULL;
}
}
/*:994*/
#line 11370 "./marpa.w"
if(High_Rank_Count_of_O(o)){
/*989:*/
#line 11385 "./marpa.w"
{
const AND and_nodes= ANDs_of_B(b);
const int or_node_count_of_b= OR_Count_of_B(b);
int or_node_id= 0;
int ambiguity_metric= 1;
while(or_node_id<or_node_count_of_b)
{
const OR work_or_node= OR_of_B_by_ID(b,or_node_id);
const ANDID and_count_of_or= AND_Count_of_OR(work_or_node);
/*990:*/
#line 11402 "./marpa.w"
{
if(and_count_of_or> 1)
{
int high_rank_so_far= INT_MIN;
const ANDID first_and_node_id= First_ANDID_of_OR(work_or_node);
const ANDID last_and_node_id=
(first_and_node_id+and_count_of_or)-1;
ANDID*const order_base=
marpa_obs_start(obs,
sizeof(ANDID)*((size_t)and_count_of_or+1),
ALIGNOF(ANDID));
ANDID*order= order_base+1;
ANDID and_node_id;
bocage_was_reordered= 1;
for(and_node_id= first_and_node_id;and_node_id<=last_and_node_id;
and_node_id++)
{
const AND and_node= and_nodes+and_node_id;
int and_node_rank;
/*991:*/
#line 11441 "./marpa.w"
{
const OR cause_or= Cause_OR_of_AND(and_node);
if(OR_is_Token(cause_or)){
const NSYID nsy_id= NSYID_of_OR(cause_or);
and_node_rank= Rank_of_NSY(NSY_by_ID(nsy_id));
}else{
and_node_rank= Rank_of_IRL(IRL_of_OR(cause_or));
}
}
/*:991*/
#line 11422 "./marpa.w"
if(and_node_rank> high_rank_so_far)
{
order= order_base+1;
high_rank_so_far= and_node_rank;
}
if(and_node_rank>=high_rank_so_far)
*order++= and_node_id;
}
{
int final_count= (order-order_base)-1;
*order_base= final_count;
ambiguity_metric= MAX(ambiguity_metric,final_count);
marpa_obs_confirm_fast(obs,(int)sizeof(ANDID)*(final_count+1));
and_node_orderings[or_node_id]= marpa_obs_finish(obs);
}
}
}
/*:990*/
#line 11396 "./marpa.w"
or_node_id++;
}
Ambiguity_Metric_of_O(o)= ambiguity_metric;
}
/*:989*/
#line 11372 "./marpa.w"
}else{
/*992:*/
#line 11452 "./marpa.w"
{
const AND and_nodes= ANDs_of_B(b);
const int or_node_count_of_b= OR_Count_of_B(b);
const int and_node_count_of_b= AND_Count_of_B(b);
int or_node_id= 0;
int*rank_by_and_id= marpa_new(int,and_node_count_of_b);
int and_node_id;
for(and_node_id= 0;and_node_id<and_node_count_of_b;and_node_id++)
{
const AND and_node= and_nodes+and_node_id;
int and_node_rank;
/*991:*/
#line 11441 "./marpa.w"
{
const OR cause_or= Cause_OR_of_AND(and_node);
if(OR_is_Token(cause_or)){
const NSYID nsy_id= NSYID_of_OR(cause_or);
and_node_rank= Rank_of_NSY(NSY_by_ID(nsy_id));
}else{
and_node_rank= Rank_of_IRL(IRL_of_OR(cause_or));
}
}
/*:991*/
#line 11464 "./marpa.w"
rank_by_and_id[and_node_id]= and_node_rank;
}
while(or_node_id<or_node_count_of_b)
{
const OR work_or_node= OR_of_B_by_ID(b,or_node_id);
const ANDID and_count_of_or= AND_Count_of_OR(work_or_node);
/*993:*/
#line 11497 "./marpa.w"
{
if(and_count_of_or> 1)
{
const ANDID first_and_node_id= First_ANDID_of_OR(work_or_node);
ANDID*const order_base=
marpa_obs_new(obs,ANDID,and_count_of_or+1);
ANDID*order= order_base+1;
int nodes_inserted_so_far;
bocage_was_reordered= 1;
and_node_orderings[or_node_id]= order_base;
*order_base= and_count_of_or;
for(nodes_inserted_so_far= 0;nodes_inserted_so_far<and_count_of_or;
nodes_inserted_so_far++)
{
const ANDID new_and_node_id=
first_and_node_id+nodes_inserted_so_far;
int pre_insertion_ix= nodes_inserted_so_far-1;
while(pre_insertion_ix>=0)
{
if(rank_by_and_id[new_and_node_id]<=
rank_by_and_id[order[pre_insertion_ix]])
break;
order[pre_insertion_ix+1]= order[pre_insertion_ix];
pre_insertion_ix--;
}
order[pre_insertion_ix+1]= new_and_node_id;
}
}
}
/*:993*/
#line 11471 "./marpa.w"
or_node_id++;
}
my_free(rank_by_and_id);
}
/*:992*/
#line 11374 "./marpa.w"
}
if(!bocage_was_reordered){
marpa_obs_free(obs);
OBS_of_O(o)= NULL;
o->t_and_node_orderings= NULL;
}
O_is_Frozen(o)= 1;
return 1;
}
/*:988*//*995:*/
#line 11545 "./marpa.w"
PRIVATE ANDID and_order_ix_is_valid(ORDER o,OR or_node,int ix)
{
if(ix>=AND_Count_of_OR(or_node))return 0;
if(!O_is_Default(o))
{
ANDID**const and_node_orderings= o->t_and_node_orderings;
ORID or_node_id= ID_of_OR(or_node);
ANDID*ordering= and_node_orderings[or_node_id];
if(ordering)
{
int length= ordering[0];
if(ix>=length)return 0;
}
}
return 1;
}
/*:995*//*996:*/
#line 11566 "./marpa.w"
PRIVATE ANDID and_order_get(ORDER o,OR or_node,int ix)
{
if(!O_is_Default(o))
{
ANDID**const and_node_orderings= o->t_and_node_orderings;
ORID or_node_id= ID_of_OR(or_node);
ANDID*ordering= and_node_orderings[or_node_id];
if(ordering)
return ordering[1+ix];
}
return First_ANDID_of_OR(or_node)+ix;
}
/*:996*//*997:*/
#line 11580 "./marpa.w"
Marpa_And_Node_ID _marpa_o_and_order_get(Marpa_Order o,
Marpa_Or_Node_ID or_node_id,int ix)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11585 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11586 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11587 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 11588 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 11589 "./marpa.w"
if(ix<0){
MARPA_ERROR(MARPA_ERR_ANDIX_NEGATIVE);
return failure_indicator;
}
if(!and_order_ix_is_valid(o,or_node,ix))return-1;
return and_order_get(o,or_node,ix);
}
/*:997*//*1002:*/
#line 11642 "./marpa.w"
PRIVATE void tree_exhaust(TREE t)
{
if(FSTACK_IS_INITIALIZED(t->t_nook_stack))
{
FSTACK_DESTROY(t->t_nook_stack);
FSTACK_SAFE(t->t_nook_stack);
}
if(FSTACK_IS_INITIALIZED(t->t_nook_worklist))
{
FSTACK_DESTROY(t->t_nook_worklist);
FSTACK_SAFE(t->t_nook_worklist);
}
bv_free(t->t_or_node_in_use);
t->t_or_node_in_use= NULL;
T_is_Exhausted(t)= 1;
}
/*:1002*//*1003:*/
#line 11660 "./marpa.w"
Marpa_Tree marpa_t_new(Marpa_Order o)
{
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 11663 "./marpa.w"
TREE t;
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11665 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11666 "./marpa.w"
t= my_malloc(sizeof(*t));
O_of_T(t)= o;
order_ref(o);
O_is_Frozen(o)= 1;
/*1020:*/
#line 11851 "./marpa.w"
T_is_Exhausted(t)= 0;
/*:1020*/
#line 11671 "./marpa.w"
/*1004:*/
#line 11676 "./marpa.w"
{
t->t_parse_count= 0;
if(O_is_Nulling(o))
{
T_is_Nulling(t)= 1;
t->t_or_node_in_use= NULL;
FSTACK_SAFE(t->t_nook_stack);
FSTACK_SAFE(t->t_nook_worklist);
}
else
{
const int and_count= AND_Count_of_B(b);
const int or_count= OR_Count_of_B(b);
T_is_Nulling(t)= 0;
t->t_or_node_in_use= bv_create(or_count);
FSTACK_INIT(t->t_nook_stack,NOOK_Object,and_count);
FSTACK_INIT(t->t_nook_worklist,int,and_count);
}
}
/*:1004*//*1007:*/
#line 11700 "./marpa.w"
t->t_ref_count= 1;
/*:1007*//*1014:*/
#line 11779 "./marpa.w"
t->t_pause_counter= 0;
/*:1014*/
#line 11672 "./marpa.w"
return t;
}
/*:1003*//*1008:*/
#line 11704 "./marpa.w"
PRIVATE void
tree_unref(TREE t)
{
MARPA_ASSERT(t->t_ref_count> 0)
t->t_ref_count--;
if(t->t_ref_count<=0)
{
tree_free(t);
}
}
void
marpa_t_unref(Marpa_Tree t)
{
tree_unref(t);
}
/*:1008*//*1009:*/
#line 11722 "./marpa.w"
PRIVATE TREE
tree_ref(TREE t)
{
MARPA_ASSERT(t->t_ref_count> 0)
t->t_ref_count++;
return t;
}
Marpa_Tree
marpa_t_ref(Marpa_Tree t)
{
return tree_ref(t);
}
/*:1009*//*1010:*/
#line 11736 "./marpa.w"
PRIVATE void tree_free(TREE t)
{
order_unref(O_of_T(t));
tree_exhaust(t);
my_free(t);
}
/*:1010*//*1015:*/
#line 11780 "./marpa.w"
PRIVATE void
tree_pause(TREE t)
{
MARPA_ASSERT(t->t_pause_counter>=0);
MARPA_ASSERT(t->t_ref_count>=t->t_pause_counter);
t->t_pause_counter++;
tree_ref(t);
}
/*:1015*//*1016:*/
#line 11789 "./marpa.w"
PRIVATE void
tree_unpause(TREE t)
{
MARPA_ASSERT(t->t_pause_counter> 0);
MARPA_ASSERT(t->t_ref_count>=t->t_pause_counter);
t->t_pause_counter--;
tree_unref(t);
}
/*:1016*//*1017:*/
#line 11799 "./marpa.w"
int marpa_t_next(Marpa_Tree t)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 11802 "./marpa.w"
const int termination_indicator= -1;
int is_first_tree_attempt= (t->t_parse_count<1);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 11805 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 11806 "./marpa.w"
if(T_is_Paused(t)){
MARPA_ERROR(MARPA_ERR_TREE_PAUSED);
return failure_indicator;
}
if(T_is_Exhausted(t))
{
MARPA_ERROR(MARPA_ERR_TREE_EXHAUSTED);
return termination_indicator;
}
if(T_is_Nulling(t)){
if(is_first_tree_attempt){
t->t_parse_count++;
return 0;
}else{
goto TREE_IS_EXHAUSTED;
}
}
while(1){
const AND ands_of_b= ANDs_of_B(b);
if(is_first_tree_attempt){
is_first_tree_attempt= 0;
/*1026:*/
#line 11880 "./marpa.w"
{
ORID root_or_id= Top_ORID_of_B(b);
OR root_or_node= OR_of_B_by_ID(b,root_or_id);
NOOK nook;
const int choice= 0;
if(!and_order_ix_is_valid(o,root_or_node,choice))
goto TREE_IS_EXHAUSTED;
nook= FSTACK_PUSH(t->t_nook_stack);
tree_or_node_try(t,root_or_id);
OR_of_NOOK(nook)= root_or_node;
Choice_of_NOOK(nook)= choice;
Parent_of_NOOK(nook)= -1;
NOOK_Cause_is_Expanded(nook)= 0;
NOOK_is_Cause(nook)= 0;
NOOK_Predecessor_is_Expanded(nook)= 0;
NOOK_is_Predecessor(nook)= 0;
}
/*:1026*/
#line 11831 "./marpa.w"
}else{
/*1027:*/
#line 11905 "./marpa.w"
{
while(1){
OR iteration_candidate_or_node;
const NOOK iteration_candidate= FSTACK_TOP(t->t_nook_stack,NOOK_Object);
int choice;
if(!iteration_candidate)break;
iteration_candidate_or_node= OR_of_NOOK(iteration_candidate);
choice= Choice_of_NOOK(iteration_candidate)+1;
MARPA_ASSERT(choice> 0);
if(and_order_ix_is_valid(o,iteration_candidate_or_node,choice)){
Choice_of_NOOK(iteration_candidate)= choice;
NOOK_Cause_is_Expanded(iteration_candidate)= 0;
NOOK_Predecessor_is_Expanded(iteration_candidate)= 0;
break;
}
{
const int parent_nook_ix= Parent_of_NOOK(iteration_candidate);
if(parent_nook_ix>=0){
NOOK parent_nook= NOOK_of_TREE_by_IX(t,parent_nook_ix);
if(NOOK_is_Cause(iteration_candidate)){
NOOK_Cause_is_Expanded(parent_nook)= 0;
}
if(NOOK_is_Predecessor(iteration_candidate)){
NOOK_Predecessor_is_Expanded(parent_nook)= 0;
}
}
tree_or_node_release(t,ID_of_OR(iteration_candidate_or_node));
FSTACK_POP(t->t_nook_stack);
}
}
if(Size_of_T(t)<=0)goto TREE_IS_EXHAUSTED;
}
/*:1027*/
#line 11833 "./marpa.w"
}
/*1028:*/
#line 11947 "./marpa.w"
{
{
const int stack_length= Size_of_T(t);
int i;
FSTACK_CLEAR(t->t_nook_worklist);
for(i= 0;i<stack_length;i++){
*(FSTACK_PUSH(t->t_nook_worklist))= i;
}
}
while(1){
NOOKID*p_work_nook_id;
NOOK work_nook;
ANDID work_and_node_id;
AND work_and_node;
OR work_or_node;
OR child_or_node= NULL;
int choice;
int child_is_cause= 0;
int child_is_predecessor= 0;
if(FSTACK_LENGTH(t->t_nook_worklist)<=0){goto TREE_IS_FINISHED;}
p_work_nook_id= FSTACK_TOP(t->t_nook_worklist,NOOKID);
work_nook= NOOK_of_TREE_by_IX(t,*p_work_nook_id);
work_or_node= OR_of_NOOK(work_nook);
work_and_node_id= and_order_get(o,work_or_node,Choice_of_NOOK(work_nook));
work_and_node= ands_of_b+work_and_node_id;
do
{
if(!NOOK_Cause_is_Expanded(work_nook))
{
const OR cause_or_node= Cause_OR_of_AND(work_and_node);
if(!OR_is_Token(cause_or_node))
{
child_or_node= cause_or_node;
child_is_cause= 1;
break;
}
}
NOOK_Cause_is_Expanded(work_nook)= 1;
if(!NOOK_Predecessor_is_Expanded(work_nook))
{
child_or_node= Predecessor_OR_of_AND(work_and_node);
if(child_or_node)
{
child_is_predecessor= 1;
break;
}
}
NOOK_Predecessor_is_Expanded(work_nook)= 1;
FSTACK_POP(t->t_nook_worklist);
goto NEXT_NOOK_ON_WORKLIST;
}
while(0);
if(!tree_or_node_try(t,ID_of_OR(child_or_node)))goto NEXT_TREE;
choice= 0;
if(!and_order_ix_is_valid(o,child_or_node,choice))goto NEXT_TREE;
/*1029:*/
#line 12010 "./marpa.w"
{
NOOKID new_nook_id= Size_of_T(t);
NOOK new_nook= FSTACK_PUSH(t->t_nook_stack);
*(FSTACK_PUSH(t->t_nook_worklist))= new_nook_id;
Parent_of_NOOK(new_nook)= *p_work_nook_id;
Choice_of_NOOK(new_nook)= choice;
OR_of_NOOK(new_nook)= child_or_node;
NOOK_Cause_is_Expanded(new_nook)= 0;
if((NOOK_is_Cause(new_nook)= Boolean(child_is_cause)))
{
NOOK_Cause_is_Expanded(work_nook)= 1;
}
NOOK_Predecessor_is_Expanded(new_nook)= 0;
if((NOOK_is_Predecessor(new_nook)= Boolean(child_is_predecessor)))
{
NOOK_Predecessor_is_Expanded(work_nook)= 1;
}
}
/*:1029*/
#line 12004 "./marpa.w"
;
NEXT_NOOK_ON_WORKLIST:;
}
NEXT_TREE:;
}
/*:1028*/
#line 11835 "./marpa.w"
}
TREE_IS_FINISHED:;
t->t_parse_count++;
return FSTACK_LENGTH(t->t_nook_stack);
TREE_IS_EXHAUSTED:;
tree_exhaust(t);
return termination_indicator;
}
/*:1017*//*1024:*/
#line 11867 "./marpa.w"
PRIVATE int tree_or_node_try(TREE tree,ORID or_node_id)
{
return!bv_bit_test_then_set(tree->t_or_node_in_use,or_node_id);
}
/*:1024*//*1025:*/
#line 11873 "./marpa.w"
PRIVATE void tree_or_node_release(TREE tree,ORID or_node_id)
{
bv_bit_clear(tree->t_or_node_in_use,or_node_id);
}
/*:1025*//*1030:*/
#line 12031 "./marpa.w"
int marpa_t_parse_count(Marpa_Tree t)
{
return t->t_parse_count;
}
/*:1030*//*1031:*/
#line 12039 "./marpa.w"
int _marpa_t_size(Marpa_Tree t)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12042 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12043 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12044 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_TREE_EXHAUSTED);
return failure_indicator;
}
if(T_is_Nulling(t))return 0;
return Size_of_T(t);
}
/*:1031*//*1052:*/
#line 12257 "./marpa.w"
Marpa_Value marpa_v_new(Marpa_Tree t)
{
/*1197:*/
#line 14227 "./marpa.w"
void*const failure_indicator= NULL;
/*:1197*/
#line 12260 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12261 "./marpa.w"
;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12262 "./marpa.w"
if(t->t_parse_count<=0){
MARPA_ERROR(MARPA_ERR_BEFORE_FIRST_TREE);
return NULL;
}
if(!T_is_Exhausted(t))
{
const XSYID xsy_count= XSY_Count_of_G(g);
struct marpa_obstack*const obstack= marpa_obs_init;
const VALUE v= marpa_obs_new(obstack,struct s_value,1);
v->t_obs= obstack;
Step_Type_of_V(v)= Next_Value_Type_of_V(v)= MARPA_STEP_INITIAL;
/*1043:*/
#line 12183 "./marpa.w"
XSYID_of_V(v)= -1;
RULEID_of_V(v)= -1;
Token_Value_of_V(v)= -1;
Token_Type_of_V(v)= DUMMY_OR_NODE;
Arg_0_of_V(v)= -1;
Arg_N_of_V(v)= -1;
Result_of_V(v)= -1;
Rule_Start_of_V(v)= -1;
Token_Start_of_V(v)= -1;
YS_ID_of_V(v)= -1;
/*:1043*//*1050:*/
#line 12246 "./marpa.w"
MARPA_DSTACK_SAFE(VStack_of_V(v));
/*:1050*//*1055:*/
#line 12294 "./marpa.w"
v->t_ref_count= 1;
/*:1055*//*1062:*/
#line 12347 "./marpa.w"
V_is_Nulling(v)= 0;
/*:1062*//*1064:*/
#line 12354 "./marpa.w"
V_is_Trace(v)= 0;
/*:1064*//*1067:*/
#line 12375 "./marpa.w"
NOOK_of_V(v)= -1;
/*:1067*//*1072:*/
#line 12402 "./marpa.w"
{
XSY_is_Valued_BV_of_V(v)= lbv_clone(v->t_obs,Valued_BV_of_B(b),xsy_count);
Valued_Locked_BV_of_V(v)=
lbv_clone(v->t_obs,Valued_Locked_BV_of_B(b),xsy_count);
}
/*:1072*/
#line 12274 "./marpa.w"
tree_pause(t);
T_of_V(v)= t;
if(T_is_Nulling(o)){
V_is_Nulling(v)= 1;
}else{
const int minimum_stack_size= (8192/sizeof(int));
const int initial_stack_size=
MAX(Size_of_TREE(t)/1024,minimum_stack_size);
MARPA_DSTACK_INIT(VStack_of_V(v),int,initial_stack_size);
}
return(Marpa_Value)v;
}
MARPA_ERROR(MARPA_ERR_TREE_EXHAUSTED);
return NULL;
}
/*:1052*//*1056:*/
#line 12298 "./marpa.w"
PRIVATE void
value_unref(VALUE v)
{
MARPA_ASSERT(v->t_ref_count> 0)
v->t_ref_count--;
if(v->t_ref_count<=0)
{
value_free(v);
}
}
void
marpa_v_unref(Marpa_Value public_v)
{
value_unref((VALUE)public_v);
}
/*:1056*//*1057:*/
#line 12316 "./marpa.w"
PRIVATE VALUE
value_ref(VALUE v)
{
MARPA_ASSERT(v->t_ref_count> 0)
v->t_ref_count++;
return v;
}
Marpa_Value
marpa_v_ref(Marpa_Value v)
{
return(Marpa_Value)value_ref((VALUE)v);
}
/*:1057*//*1058:*/
#line 12330 "./marpa.w"
PRIVATE void value_free(VALUE v)
{
tree_unpause(T_of_V(v));
/*1051:*/
#line 12248 "./marpa.w"
{
if(_MARPA_LIKELY(MARPA_DSTACK_IS_INITIALIZED(VStack_of_V(v))!=NULL))
{
MARPA_DSTACK_DESTROY(VStack_of_V(v));
}
}
/*:1051*/
#line 12334 "./marpa.w"
/*1045:*/
#line 12199 "./marpa.w"
marpa_obs_free(v->t_obs);
/*:1045*/
#line 12335 "./marpa.w"
}
/*:1058*//*1065:*/
#line 12356 "./marpa.w"
int _marpa_v_trace(Marpa_Value public_v,int flag)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12359 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12361 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12362 "./marpa.w"
if(_MARPA_UNLIKELY(!V_is_Active(v))){
MARPA_ERROR(MARPA_ERR_VALUATOR_INACTIVE);
return failure_indicator;
}
V_is_Trace(v)= Boolean(flag);
return 1;
}
/*:1065*//*1068:*/
#line 12378 "./marpa.w"
Marpa_Nook_ID _marpa_v_nook(Marpa_Value public_v)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12381 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12383 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12384 "./marpa.w"
if(_MARPA_UNLIKELY(V_is_Nulling(v)))return-1;
if(_MARPA_UNLIKELY(!V_is_Active(v))){
MARPA_ERROR(MARPA_ERR_VALUATOR_INACTIVE);
return failure_indicator;
}
return NOOK_of_V(v);
}
/*:1068*//*1073:*/
#line 12411 "./marpa.w"
PRIVATE int symbol_is_valued(
VALUE v,
Marpa_Symbol_ID xsy_id)
{
return lbv_bit_test(XSY_is_Valued_BV_of_V(v),xsy_id);
}
/*:1073*//*1074:*/
#line 12420 "./marpa.w"
int marpa_v_symbol_is_valued(
Marpa_Value public_v,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12425 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12427 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12428 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 12429 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 12430 "./marpa.w"
return lbv_bit_test(XSY_is_Valued_BV_of_V(v),xsy_id);
}
/*:1074*//*1075:*/
#line 12436 "./marpa.w"
PRIVATE int symbol_is_valued_set(
VALUE v,XSYID xsy_id,int value)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12440 "./marpa.w"
const int old_value= lbv_bit_test(XSY_is_Valued_BV_of_V(v),xsy_id);
if(old_value==value){
lbv_bit_set(Valued_Locked_BV_of_V(v),xsy_id);
return value;
}
if(_MARPA_UNLIKELY(lbv_bit_test(Valued_Locked_BV_of_V(v),xsy_id))){
return failure_indicator;
}
lbv_bit_set(Valued_Locked_BV_of_V(v),xsy_id);
if(value){
lbv_bit_set(XSY_is_Valued_BV_of_V(v),xsy_id);
}else{
lbv_bit_clear(XSY_is_Valued_BV_of_V(v),xsy_id);
}
return value;
}
/*:1075*//*1076:*/
#line 12459 "./marpa.w"
int marpa_v_symbol_is_valued_set(
Marpa_Value public_v,Marpa_Symbol_ID xsy_id,int value)
{
const VALUE v= (VALUE)public_v;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12464 "./marpa.w"
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12465 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12466 "./marpa.w"
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 12472 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 12473 "./marpa.w"
return symbol_is_valued_set(v,xsy_id,value);
}
/*:1076*//*1077:*/
#line 12479 "./marpa.w"
int
marpa_v_valued_force(Marpa_Value public_v)
{
const VALUE v= (VALUE)public_v;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12484 "./marpa.w"
XSYID xsy_count;
XSYID xsy_id;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12487 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12488 "./marpa.w"
xsy_count= XSY_Count_of_G(g);
for(xsy_id= 0;xsy_id<xsy_count;xsy_id++)
{
if(_MARPA_UNLIKELY(!lbv_bit_test(XSY_is_Valued_BV_of_V(v),xsy_id)&&
lbv_bit_test(Valued_Locked_BV_of_V(v),xsy_id)))
{
return failure_indicator;
}
lbv_bit_set(Valued_Locked_BV_of_V(v),xsy_id);
lbv_bit_set(XSY_is_Valued_BV_of_V(v),xsy_id);
}
return xsy_count;
}
/*:1077*//*1078:*/
#line 12503 "./marpa.w"
int marpa_v_rule_is_valued_set(
Marpa_Value public_v,Marpa_Rule_ID xrl_id,int value)
{
const VALUE v= (VALUE)public_v;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12508 "./marpa.w"
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12509 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12510 "./marpa.w"
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 12516 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 12517 "./marpa.w"
{
const XRL xrl= XRL_by_ID(xrl_id);
const XSYID xsy_id= LHS_ID_of_XRL(xrl);
return symbol_is_valued_set(v,xsy_id,value);
}
}
/*:1078*//*1079:*/
#line 12525 "./marpa.w"
int marpa_v_rule_is_valued(
Marpa_Value public_v,Marpa_Rule_ID xrl_id)
{
const VALUE v= (VALUE)public_v;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12530 "./marpa.w"
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12531 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12532 "./marpa.w"
/*1208:*/
#line 14288 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1208*/
#line 12533 "./marpa.w"
/*1206:*/
#line 14276 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1206*/
#line 12534 "./marpa.w"
{
const XRL xrl= XRL_by_ID(xrl_id);
const XSYID xsy_id= LHS_ID_of_XRL(xrl);
return symbol_is_valued(v,xsy_id);
}
}
/*:1079*//*1081:*/
#line 12549 "./marpa.w"
Marpa_Step_Type marpa_v_step(Marpa_Value public_v)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 12552 "./marpa.w"
const VALUE v= (VALUE)public_v;
if(V_is_Nulling(v)){
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12556 "./marpa.w"
/*1083:*/
#line 12637 "./marpa.w"
{
while(V_is_Active(v))
{
Marpa_Step_Type current_value_type= Next_Value_Type_of_V(v);
switch(current_value_type)
{
case MARPA_STEP_INITIAL:
case STEP_GET_DATA:
{
Next_Value_Type_of_V(v)= MARPA_STEP_INACTIVE;
XSYID_of_V(v)= g->t_start_xsy_id;
Result_of_V(v)= Arg_0_of_V(v)= Arg_N_of_V(v)= 0;
if(lbv_bit_test(XSY_is_Valued_BV_of_V(v),XSYID_of_V(v)))
return Step_Type_of_V(v)= MARPA_STEP_NULLING_SYMBOL;
}
}
}
}
/*:1083*/
#line 12557 "./marpa.w"
return Step_Type_of_V(v)= MARPA_STEP_INACTIVE;
}
while(V_is_Active(v)){
Marpa_Step_Type current_value_type= Next_Value_Type_of_V(v);
switch(current_value_type)
{
case MARPA_STEP_INITIAL:
{
XSYID xsy_count;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12568 "./marpa.w"
xsy_count= XSY_Count_of_G(g);
lbv_fill(Valued_Locked_BV_of_V(v),xsy_count);
/*1082:*/
#line 12621 "./marpa.w"
{
const LBV xsy_bv= XSY_is_Valued_BV_of_V(v);
const XRLID xrl_count= XRL_Count_of_G(g);
const LBV xrl_bv= lbv_obs_new0(v->t_obs,xrl_count);
XRLID xrlid;
XRL_is_Valued_BV_of_V(v)= xrl_bv;
for(xrlid= 0;xrlid<xrl_count;xrlid++){
const XRL xrl= XRL_by_ID(xrlid);
const XSYID lhs_xsy_id= LHS_ID_of_XRL(xrl);
if(lbv_bit_test(xsy_bv,lhs_xsy_id)){
lbv_bit_set(xrl_bv,xrlid);
}
}
}
/*:1082*/
#line 12571 "./marpa.w"
}
case STEP_GET_DATA:
/*1084:*/
#line 12662 "./marpa.w"
{
AND and_nodes;
int pop_arguments= 1;
/*1059:*/
#line 12338 "./marpa.w"
TREE t= T_of_V(v);
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 12340 "./marpa.w"
/*:1059*/
#line 12672 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 12673 "./marpa.w"
and_nodes= ANDs_of_B(B_of_O(o));
if(NOOK_of_V(v)<0){
NOOK_of_V(v)= Size_of_TREE(t);
}
while(1)
{
OR or;
IRL nook_irl;
Token_Value_of_V(v)= -1;
RULEID_of_V(v)= -1;
NOOK_of_V(v)--;
if(NOOK_of_V(v)<0)
{
Next_Value_Type_of_V(v)= MARPA_STEP_INACTIVE;
break;
}
if(pop_arguments)
{
Arg_N_of_V(v)= Arg_0_of_V(v);
pop_arguments= 0;
}
{
ANDID and_node_id;
AND and_node;
int cause_or_node_type;
OR cause_or_node;
const NOOK nook= NOOK_of_TREE_by_IX(t,NOOK_of_V(v));
const int choice= Choice_of_NOOK(nook);
or= OR_of_NOOK(nook);
YS_ID_of_V(v)= YS_Ord_of_OR(or);
and_node_id= and_order_get(o,or,choice);
and_node= and_nodes+and_node_id;
cause_or_node= Cause_OR_of_AND(and_node);
cause_or_node_type= Type_of_OR(cause_or_node);
switch(cause_or_node_type)
{
case VALUED_TOKEN_OR_NODE:
Token_Type_of_V(v)= cause_or_node_type;
Arg_0_of_V(v)= ++Arg_N_of_V(v);
{
const OR predecessor= Predecessor_OR_of_AND(and_node);
XSYID_of_V(v)=
ID_of_XSY(Source_XSY_of_NSYID(NSYID_of_OR(cause_or_node)));
Token_Start_of_V(v)=
predecessor?YS_Ord_of_OR(predecessor):Origin_Ord_of_OR(or);
Token_Value_of_V(v)= Value_of_OR(cause_or_node);
}
break;
case NULLING_TOKEN_OR_NODE:
Token_Type_of_V(v)= cause_or_node_type;
Arg_0_of_V(v)= ++Arg_N_of_V(v);
{
const XSY source_xsy=
Source_XSY_of_NSYID(NSYID_of_OR(cause_or_node));
const XSYID source_xsy_id= ID_of_XSY(source_xsy);
if(bv_bit_test(XSY_is_Valued_BV_of_V(v),source_xsy_id))
{
XSYID_of_V(v)= source_xsy_id;
Token_Start_of_V(v)= YS_ID_of_V(v);
}
else
{
Token_Type_of_V(v)= DUMMY_OR_NODE;
}
}
break;
default:
Token_Type_of_V(v)= DUMMY_OR_NODE;
}
}
nook_irl= IRL_of_OR(or);
if(Position_of_OR(or)==Length_of_IRL(nook_irl))
{
int virtual_rhs= IRL_has_Virtual_RHS(nook_irl);
int virtual_lhs= IRL_has_Virtual_LHS(nook_irl);
int real_symbol_count;
const MARPA_DSTACK virtual_stack= &VStack_of_V(v);
if(virtual_lhs)
{
real_symbol_count= Real_SYM_Count_of_IRL(nook_irl);
if(virtual_rhs)
{
*(MARPA_DSTACK_TOP(*virtual_stack,int))+= real_symbol_count;
}
else
{
*MARPA_DSTACK_PUSH(*virtual_stack,int)= real_symbol_count;
}
}
else
{
if(virtual_rhs)
{
real_symbol_count= Real_SYM_Count_of_IRL(nook_irl);
real_symbol_count+= *MARPA_DSTACK_POP(*virtual_stack,int);
}
else
{
real_symbol_count= Length_of_IRL(nook_irl);
}
{
XRLID original_rule_id= ID_of_XRL(Source_XRL_of_IRL(nook_irl));
Arg_0_of_V(v)= Arg_N_of_V(v)-real_symbol_count+1;
pop_arguments= 1;
if(lbv_bit_test(XRL_is_Valued_BV_of_V(v),original_rule_id))
{
RULEID_of_V(v)= original_rule_id;
Rule_Start_of_V(v)= Origin_Ord_of_OR(or);
}
}
}
}
if(RULEID_of_V(v)>=0)
break;
if(Token_Type_of_V(v)!=DUMMY_OR_NODE)
break;
if(V_is_Trace(v))
break;
}
}
/*:1084*/
#line 12575 "./marpa.w"
if(!V_is_Active(v))break;
case MARPA_STEP_TOKEN:
{
int tkn_type= Token_Type_of_V(v);
Next_Value_Type_of_V(v)= MARPA_STEP_RULE;
if(tkn_type==NULLING_TOKEN_OR_NODE)
{
if(lbv_bit_test(XSY_is_Valued_BV_of_V(v),XSYID_of_V(v))){
Result_of_V(v)= Arg_N_of_V(v);
return Step_Type_of_V(v)= MARPA_STEP_NULLING_SYMBOL;
}
}
else if(tkn_type!=DUMMY_OR_NODE)
{
Result_of_V(v)= Arg_N_of_V(v);
return Step_Type_of_V(v)= MARPA_STEP_TOKEN;
}
}
case MARPA_STEP_RULE:
if(RULEID_of_V(v)>=0)
{
Next_Value_Type_of_V(v)= MARPA_STEP_TRACE;
Result_of_V(v)= Arg_0_of_V(v);
return Step_Type_of_V(v)= MARPA_STEP_RULE;
}
case MARPA_STEP_TRACE:
Next_Value_Type_of_V(v)= STEP_GET_DATA;
if(V_is_Trace(v))
{
return Step_Type_of_V(v)= MARPA_STEP_TRACE;
}
}
}
Next_Value_Type_of_V(v)= MARPA_STEP_INACTIVE;
return Step_Type_of_V(v)= MARPA_STEP_INACTIVE;
}
/*:1081*//*1086:*/
#line 12825 "./marpa.w"
PRIVATE int lbv_bits_to_size(int bits)
{
const LBW result= ((LBW)bits+(lbv_wordbits-1))/lbv_wordbits;
return(int)result;
}
/*:1086*//*1087:*/
#line 12833 "./marpa.w"
PRIVATE Bit_Vector
lbv_obs_new(struct marpa_obstack*obs,int bits)
{
int size= lbv_bits_to_size(bits);
LBV lbv= marpa_obs_new(obs,LBW,size);
return lbv;
}
/*:1087*//*1088:*/
#line 12843 "./marpa.w"
PRIVATE Bit_Vector
lbv_zero(Bit_Vector lbv,int bits)
{
int size= lbv_bits_to_size(bits);
if(size> 0){
LBW*addr= lbv;
while(size--)*addr++= 0u;
}
return lbv;
}
/*:1088*//*1089:*/
#line 12856 "./marpa.w"
PRIVATE Bit_Vector
lbv_obs_new0(struct marpa_obstack*obs,int bits)
{
LBV lbv= lbv_obs_new(obs,bits);
return lbv_zero(lbv,bits);
}
/*:1089*//*1091:*/
#line 12875 "./marpa.w"
PRIVATE LBV lbv_clone(
struct marpa_obstack*obs,LBV old_lbv,int bits)
{
int size= lbv_bits_to_size(bits);
const LBV new_lbv= marpa_obs_new(obs,LBW,size);
if(size> 0){
LBW*from_addr= old_lbv;
LBW*to_addr= new_lbv;
while(size--)*to_addr++= *from_addr++;
}
return new_lbv;
}
/*:1091*//*1092:*/
#line 12891 "./marpa.w"
PRIVATE LBV lbv_fill(
LBV lbv,int bits)
{
int size= lbv_bits_to_size(bits);
if(size> 0){
LBW*to_addr= lbv;
while(size--)*to_addr++= ~((LBW)0);
}
return lbv;
}
/*:1092*//*1095:*/
#line 12927 "./marpa.w"
PRIVATE unsigned int bv_bits_to_size(int bits)
{
return((LBW)bits+bv_modmask)/bv_wordbits;
}
/*:1095*//*1096:*/
#line 12933 "./marpa.w"
PRIVATE unsigned int bv_bits_to_unused_mask(int bits)
{
LBW mask= (LBW)bits&bv_modmask;
if(mask)mask= (LBW)~(~0uL<<mask);else mask= (LBW)~0uL;
return(mask);
}
/*:1096*//*1098:*/
#line 12947 "./marpa.w"
PRIVATE Bit_Vector bv_create(int bits)
{
LBW size= bv_bits_to_size(bits);
LBW bytes= (size+bv_hiddenwords)*sizeof(Bit_Vector_Word);
LBW*addr= (Bit_Vector)my_malloc0((size_t)bytes);
*addr++= (LBW)bits;
*addr++= size;
*addr++= bv_bits_to_unused_mask(bits);
return addr;
}
/*:1098*//*1100:*/
#line 12965 "./marpa.w"
PRIVATE Bit_Vector
bv_obs_create(struct marpa_obstack*obs,int bits)
{
LBW size= bv_bits_to_size(bits);
LBW bytes= (size+bv_hiddenwords)*sizeof(Bit_Vector_Word);
LBW*addr= (Bit_Vector)marpa__obs_alloc(obs,(size_t)bytes,ALIGNOF(LBW));
*addr++= (LBW)bits;
*addr++= size;
*addr++= bv_bits_to_unused_mask(bits);
if(size> 0){
Bit_Vector bv= addr;
while(size--)*bv++= 0u;
}
return addr;
}
/*:1100*//*1101:*/
#line 12986 "./marpa.w"
PRIVATE Bit_Vector bv_shadow(Bit_Vector bv)
{
return bv_create((int)BV_BITS(bv));
}
PRIVATE Bit_Vector bv_obs_shadow(struct marpa_obstack*obs,Bit_Vector bv)
{
return bv_obs_create(obs,(int)BV_BITS(bv));
}
/*:1101*//*1102:*/
#line 13000 "./marpa.w"
PRIVATE
Bit_Vector bv_copy(Bit_Vector bv_to,Bit_Vector bv_from)
{
LBW*p_to= bv_to;
const LBW bits= BV_BITS(bv_to);
if(bits> 0)
{
LBW count= BV_SIZE(bv_to);
while(count--)*p_to++= *bv_from++;
}
return(bv_to);
}
/*:1102*//*1103:*/
#line 13018 "./marpa.w"
PRIVATE
Bit_Vector bv_clone(Bit_Vector bv)
{
return bv_copy(bv_shadow(bv),bv);
}
PRIVATE
Bit_Vector bv_obs_clone(struct marpa_obstack*obs,Bit_Vector bv)
{
return bv_copy(bv_obs_shadow(obs,bv),bv);
}
/*:1103*//*1104:*/
#line 13032 "./marpa.w"
PRIVATE void bv_free(Bit_Vector vector)
{
if(_MARPA_LIKELY(vector!=NULL))
{
vector-= bv_hiddenwords;
my_free(vector);
}
}
/*:1104*//*1105:*/
#line 13043 "./marpa.w"
PRIVATE void bv_fill(Bit_Vector bv)
{
LBW size= BV_SIZE(bv);
if(size<=0)return;
while(size--)*bv++= ~0u;
--bv;
*bv&= BV_MASK(bv);
}
/*:1105*//*1106:*/
#line 13054 "./marpa.w"
PRIVATE void bv_clear(Bit_Vector bv)
{
LBW size= BV_SIZE(bv);
if(size<=0)return;
while(size--)*bv++= 0u;
}
/*:1106*//*1108:*/
#line 13068 "./marpa.w"
PRIVATE void bv_over_clear(Bit_Vector bv,int raw_bit)
{
const LBW bit= (LBW)raw_bit;
LBW length= bit/bv_wordbits+1;
while(length--)*bv++= 0u;
}
/*:1108*//*1110:*/
#line 13077 "./marpa.w"
PRIVATE void bv_bit_set(Bit_Vector vector,int raw_bit)
{
const LBW bit= (LBW)raw_bit;
*(vector+(bit/bv_wordbits))|= (bv_lsb<<(bit%bv_wordbits));
}
/*:1110*//*1111:*/
#line 13085 "./marpa.w"
PRIVATE void bv_bit_clear(Bit_Vector vector,int raw_bit)
{
const LBW bit= (LBW)raw_bit;
*(vector+(bit/bv_wordbits))&= ~(bv_lsb<<(bit%bv_wordbits));
}
/*:1111*//*1112:*/
#line 13093 "./marpa.w"
PRIVATE int bv_bit_test(Bit_Vector vector,int raw_bit)
{
const LBW bit= (LBW)raw_bit;
return(*(vector+(bit/bv_wordbits))&(bv_lsb<<(bit%bv_wordbits)))!=0u;
}
/*:1112*//*1113:*/
#line 13105 "./marpa.w"
PRIVATE int
bv_bit_test_then_set(Bit_Vector vector,int raw_bit)
{
const LBW bit= (LBW)raw_bit;
Bit_Vector addr= vector+(bit/bv_wordbits);
LBW mask= bv_lsb<<(bit%bv_wordbits);
if((*addr&mask)!=0u)
return 1;
*addr|= mask;
return 0;
}
/*:1113*//*1114:*/
#line 13119 "./marpa.w"
PRIVATE
int bv_is_empty(Bit_Vector addr)
{
LBW size= BV_SIZE(addr);
int r= 1;
if(size> 0){
*(addr+size-1)&= BV_MASK(addr);
while(r&&(size--> 0))r= (*addr++==0);
}
return(r);
}
/*:1114*//*1115:*/
#line 13133 "./marpa.w"
PRIVATE void bv_not(Bit_Vector X,Bit_Vector Y)
{
LBW size= BV_SIZE(X);
LBW mask= BV_MASK(X);
while(size--> 0)*X++= ~*Y++;
*(--X)&= mask;
}
/*:1115*//*1116:*/
#line 13143 "./marpa.w"
PRIVATE void bv_and(Bit_Vector X,Bit_Vector Y,Bit_Vector Z)
{
LBW size= BV_SIZE(X);
LBW mask= BV_MASK(X);
while(size--> 0)*X++= *Y++&*Z++;
*(--X)&= mask;
}
/*:1116*//*1117:*/
#line 13153 "./marpa.w"
PRIVATE void bv_or(Bit_Vector X,Bit_Vector Y,Bit_Vector Z)
{
LBW size= BV_SIZE(X);
LBW mask= BV_MASK(X);
while(size--> 0)*X++= *Y++|*Z++;
*(--X)&= mask;
}
/*:1117*//*1118:*/
#line 13163 "./marpa.w"
PRIVATE void bv_or_assign(Bit_Vector X,Bit_Vector Y)
{
LBW size= BV_SIZE(X);
LBW mask= BV_MASK(X);
while(size--> 0)*X++|= *Y++;
*(--X)&= mask;
}
/*:1118*//*1119:*/
#line 13173 "./marpa.w"
PRIVATE_NOT_INLINE
int bv_scan(Bit_Vector bv,int raw_start,int*raw_min,int*raw_max)
{
LBW start= (LBW)raw_start;
LBW min;
LBW max;
LBW size= BV_SIZE(bv);
LBW mask= BV_MASK(bv);
LBW offset;
LBW bitmask;
LBW value;
int empty;
if(size==0)return 0;
if(start>=BV_BITS(bv))return 0;
min= start;
max= start;
offset= start/bv_wordbits;
*(bv+size-1)&= mask;
bv+= offset;
size-= offset;
bitmask= (LBW)1<<(start&bv_modmask);
mask= ~(bitmask|(bitmask-(LBW)1));
value= *bv++;
if((value&bitmask)==0)
{
value&= mask;
if(value==0)
{
offset++;
empty= 1;
while(empty&&(--size> 0))
{
if((value= *bv++))empty= 0;else offset++;
}
if(empty){
*raw_min= (int)min;
*raw_max= (int)max;
return 0;
}
}
start= offset*bv_wordbits;
bitmask= bv_lsb;
mask= value;
while(!(mask&bv_lsb))
{
bitmask<<= 1;
mask>>= 1;
start++;
}
mask= ~(bitmask|(bitmask-1));
min= start;
max= start;
}
value= ~value;
value&= mask;
if(value==0)
{
offset++;
empty= 1;
while(empty&&(--size> 0))
{
if((value= ~*bv++))empty= 0;else offset++;
}
if(empty)value= bv_lsb;
}
start= offset*bv_wordbits;
while(!(value&bv_lsb))
{
value>>= 1;
start++;
}
max= --start;
*raw_min= (int)min;
*raw_max= (int)max;
return 1;
}
/*:1119*//*1120:*/
#line 13253 "./marpa.w"
PRIVATE int
bv_count(Bit_Vector v)
{
int start,min,max;
int count= 0;
for(start= 0;bv_scan(v,start,&min,&max);start= max+2)
{
count+= max-min+1;
}
return count;
}
/*:1120*//*1125:*/
#line 13301 "./marpa.w"
PRIVATE void
rhs_closure(GRAMMAR g,Bit_Vector bv,XRLID**xrl_list_x_rh_sym)
{
int min,max,start= 0;
Marpa_Symbol_ID*end_of_stack= NULL;
FSTACK_DECLARE(stack,XSYID)
FSTACK_INIT(stack,XSYID,XSY_Count_of_G(g));
while(bv_scan(bv,start,&min,&max))
{
XSYID xsy_id;
for(xsy_id= min;xsy_id<=max;xsy_id++)
{
*(FSTACK_PUSH(stack))= xsy_id;
}
start= max+2;
}
while((end_of_stack= FSTACK_POP(stack)))
{
const XSYID xsy_id= *end_of_stack;
XRLID*p_xrl= xrl_list_x_rh_sym[xsy_id];
const XRLID*p_one_past_rules= xrl_list_x_rh_sym[xsy_id+1];
for(;p_xrl<p_one_past_rules;p_xrl++)
{
const XRLID rule_id= *p_xrl;
const XRL rule= XRL_by_ID(rule_id);
int rule_length;
int rh_ix;
const XSYID lhs_id= LHS_ID_of_XRL(rule);
const int is_sequence= XRL_is_Sequence(rule);
if(bv_bit_test(bv,lhs_id))
goto NEXT_RULE;
rule_length= Length_of_XRL(rule);
for(rh_ix= 0;rh_ix<rule_length;rh_ix++)
{
if(!bv_bit_test
(bv,RHS_ID_of_XRL(rule,rh_ix)))
goto NEXT_RULE;
}
if(is_sequence&&Minimum_of_XRL(rule)>=2)
{
XSYID separator_id= Separator_of_XRL(rule);
if(separator_id>=0)
{
if(!bv_bit_test(bv,separator_id))
goto NEXT_RULE;
}
}
bv_bit_set(bv,lhs_id);
*(FSTACK_PUSH(stack))= lhs_id;
NEXT_RULE:;
}
}
FSTACK_DESTROY(stack);
}
/*:1125*//*1130:*/
#line 13408 "./marpa.w"
PRIVATE Bit_Matrix
matrix_buffer_create(void*buffer,int rows,int columns)
{
int row;
const LBW bv_data_words= bv_bits_to_size(columns);
const LBW bv_mask= bv_bits_to_unused_mask(columns);
Bit_Matrix matrix_addr= buffer;
matrix_addr->t_row_count= rows;
for(row= 0;row<rows;row++){
const LBW row_start= (LBW)row*(bv_data_words+bv_hiddenwords);
LBW*p_current_word= matrix_addr->t_row_data+row_start;
LBW data_word_counter= bv_data_words;
*p_current_word++= (LBW)columns;
*p_current_word++= bv_data_words;
*p_current_word++= bv_mask;
while(data_word_counter--)*p_current_word++= 0;
}
return matrix_addr;
}
/*:1130*//*1132:*/
#line 13431 "./marpa.w"
PRIVATE size_t matrix_sizeof(int rows,int columns)
{
const LBW bv_data_words= bv_bits_to_size(columns);
const LBW row_bytes=
(bv_data_words+bv_hiddenwords)*sizeof(Bit_Vector_Word);
return offsetof(struct s_bit_matrix,t_row_data)+((size_t)rows)*row_bytes;
}
/*:1132*//*1134:*/
#line 13441 "./marpa.w"
PRIVATE Bit_Matrix matrix_obs_create(
struct marpa_obstack*obs,
int rows,
int columns)
{
Bit_Matrix matrix_addr=
marpa__obs_alloc(obs,matrix_sizeof(rows,columns),ALIGNOF(Bit_Matrix_Object));
return matrix_buffer_create(matrix_addr,rows,columns);
}
/*:1134*//*1135:*/
#line 13454 "./marpa.w"
PRIVATE void matrix_clear(Bit_Matrix matrix)
{
Bit_Vector row;
int row_ix;
const int row_count= matrix->t_row_count;
Bit_Vector row0= matrix->t_row_data+bv_hiddenwords;
LBW words_per_row= BV_SIZE(row0)+bv_hiddenwords;
row_ix= 0;row= row0;
while(row_ix<row_count){
bv_clear(row);
row_ix++;
row+= words_per_row;
}
}
/*:1135*//*1136:*/
#line 13476 "./marpa.w"
PRIVATE int matrix_columns(Bit_Matrix matrix)
{
Bit_Vector row0= matrix->t_row_data+bv_hiddenwords;
return(int)BV_BITS(row0);
}
/*:1136*//*1137:*/
#line 13492 "./marpa.w"
PRIVATE Bit_Vector matrix_row(Bit_Matrix matrix,int row)
{
Bit_Vector row0= matrix->t_row_data+bv_hiddenwords;
LBW words_per_row= BV_SIZE(row0)+bv_hiddenwords;
return row0+(LBW)row*words_per_row;
}
/*:1137*//*1139:*/
#line 13501 "./marpa.w"
PRIVATE void matrix_bit_set(Bit_Matrix matrix,int row,int column)
{
Bit_Vector vector= matrix_row(matrix,row);
bv_bit_set(vector,column);
}
/*:1139*//*1141:*/
#line 13509 "./marpa.w"
PRIVATE void matrix_bit_clear(Bit_Matrix matrix,int row,int column)
{
Bit_Vector vector= matrix_row(matrix,row);
bv_bit_clear(vector,column);
}
/*:1141*//*1143:*/
#line 13517 "./marpa.w"
PRIVATE int matrix_bit_test(Bit_Matrix matrix,int row,int column)
{
Bit_Vector vector= matrix_row(matrix,row);
return bv_bit_test(vector,column);
}
/*:1143*//*1144:*/
#line 13534 "./marpa.w"
PRIVATE_NOT_INLINE void transitive_closure(Bit_Matrix matrix)
{
int size= matrix_columns(matrix);
int outer_row;
for(outer_row= 0;outer_row<size;outer_row++)
{
Bit_Vector outer_row_v= matrix_row(matrix,outer_row);
int column;
for(column= 0;column<size;column++)
{
Bit_Vector inner_row_v= matrix_row(matrix,column);
if(bv_bit_test(inner_row_v,outer_row))
{
bv_or_assign(inner_row_v,outer_row_v);
}
}
}
}
/*:1144*//*1156:*/
#line 13675 "./marpa.w"
PRIVATE void
cilar_init(const CILAR cilar)
{
cilar->t_obs= marpa_obs_init;
cilar->t_avl= _marpa_avl_create(cil_cmp,NULL);
MARPA_DSTACK_INIT(cilar->t_buffer,int,2);
*MARPA_DSTACK_INDEX(cilar->t_buffer,int,0)= 0;
}
/*:1156*//*1157:*/
#line 13689 "./marpa.w"
PRIVATE void
cilar_buffer_reinit(const CILAR cilar)
{
MARPA_DSTACK_DESTROY(cilar->t_buffer);
MARPA_DSTACK_INIT(cilar->t_buffer,int,2);
*MARPA_DSTACK_INDEX(cilar->t_buffer,int,0)= 0;
}
/*:1157*//*1158:*/
#line 13698 "./marpa.w"
PRIVATE void cilar_destroy(const CILAR cilar)
{
_marpa_avl_destroy(cilar->t_avl);
marpa_obs_free(cilar->t_obs);
MARPA_DSTACK_DESTROY((cilar->t_buffer));
}
/*:1158*//*1159:*/
#line 13707 "./marpa.w"
PRIVATE CIL cil_empty(CILAR cilar)
{
CIL cil= MARPA_DSTACK_BASE(cilar->t_buffer,int);
Count_of_CIL(cil)= 0;
return cil_buffer_add(cilar);
}
/*:1159*//*1160:*/
#line 13717 "./marpa.w"
PRIVATE CIL cil_singleton(CILAR cilar,int element)
{
CIL cil= MARPA_DSTACK_BASE(cilar->t_buffer,int);
Count_of_CIL(cil)= 1;
Item_of_CIL(cil,0)= element;
return cil_buffer_add(cilar);
}
/*:1160*//*1161:*/
#line 13733 "./marpa.w"
PRIVATE CIL cil_buffer_add(CILAR cilar)
{
CIL cil_in_buffer= MARPA_DSTACK_BASE(cilar->t_buffer,int);
CIL found_cil= _marpa_avl_find(cilar->t_avl,cil_in_buffer);
if(!found_cil)
{
int i;
const int cil_size_in_ints= Count_of_CIL(cil_in_buffer)+1;
found_cil= marpa_obs_new(cilar->t_obs,int,cil_size_in_ints);
for(i= 0;i<cil_size_in_ints;i++)
{
found_cil[i]= cil_in_buffer[i];
}
_marpa_avl_insert(cilar->t_avl,found_cil);
}
return found_cil;
}
/*:1161*//*1162:*/
#line 13761 "./marpa.w"
PRIVATE CIL cil_bv_add(CILAR cilar,Bit_Vector bv)
{
int min,max,start= 0;
cil_buffer_clear(cilar);
for(start= 0;bv_scan(bv,start,&min,&max);start= max+2)
{
int new_item;
for(new_item= min;new_item<=max;new_item++)
{
cil_buffer_push(cilar,new_item);
}
}
return cil_buffer_add(cilar);
}
/*:1162*//*1163:*/
#line 13778 "./marpa.w"
PRIVATE void cil_buffer_clear(CILAR cilar)
{
const MARPA_DSTACK dstack= &cilar->t_buffer;
MARPA_DSTACK_CLEAR(*dstack);
*MARPA_DSTACK_PUSH(*dstack,int)= 0;
}
/*:1163*//*1164:*/
#line 13793 "./marpa.w"
PRIVATE CIL cil_buffer_push(CILAR cilar,int new_item)
{
CIL cil_in_buffer;
MARPA_DSTACK dstack= &cilar->t_buffer;
*MARPA_DSTACK_PUSH(*dstack,int)= new_item;
cil_in_buffer= MARPA_DSTACK_BASE(*dstack,int);
Count_of_CIL(cil_in_buffer)++;
return cil_in_buffer;
}
/*:1164*//*1165:*/
#line 13809 "./marpa.w"
PRIVATE CIL cil_buffer_reserve(CILAR cilar,int element_count)
{
const int desired_dstack_capacity= element_count+1;
const int old_dstack_capacity= MARPA_DSTACK_CAPACITY(cilar->t_buffer);
if(old_dstack_capacity<desired_dstack_capacity)
{
const int target_capacity=
MAX(old_dstack_capacity*2,desired_dstack_capacity);
MARPA_DSTACK_RESIZE(&(cilar->t_buffer),int,target_capacity);
}
return MARPA_DSTACK_BASE(cilar->t_buffer,int);
}
/*:1165*//*1166:*/
#line 13828 "./marpa.w"
PRIVATE CIL cil_merge(CILAR cilar,CIL cil1,CIL cil2)
{
const int cil1_count= Count_of_CIL(cil1);
const int cil2_count= Count_of_CIL(cil2);
CIL new_cil= cil_buffer_reserve(cilar,cil1_count+cil2_count);
int new_cil_ix= 0;
int cil1_ix= 0;
int cil2_ix= 0;
while(cil1_ix<cil1_count&&cil2_ix<cil2_count)
{
const int item1= Item_of_CIL(cil1,cil1_ix);
const int item2= Item_of_CIL(cil2,cil2_ix);
if(item1<item2)
{
Item_of_CIL(new_cil,new_cil_ix)= item1;
cil1_ix++;
new_cil_ix++;
continue;
}
if(item2<item1)
{
Item_of_CIL(new_cil,new_cil_ix)= item2;
cil2_ix++;
new_cil_ix++;
continue;
}
Item_of_CIL(new_cil,new_cil_ix)= item1;
cil1_ix++;
cil2_ix++;
new_cil_ix++;
}
while(cil1_ix<cil1_count){
const int item1= Item_of_CIL(cil1,cil1_ix);
Item_of_CIL(new_cil,new_cil_ix)= item1;
cil1_ix++;
new_cil_ix++;
}
while(cil2_ix<cil2_count){
const int item2= Item_of_CIL(cil2,cil2_ix);
Item_of_CIL(new_cil,new_cil_ix)= item2;
cil2_ix++;
new_cil_ix++;
}
Count_of_CIL(new_cil)= new_cil_ix;
return cil_buffer_add(cilar);
}
/*:1166*//*1167:*/
#line 13881 "./marpa.w"
PRIVATE CIL cil_merge_one(CILAR cilar,CIL cil,int new_element)
{
const int cil_count= Count_of_CIL(cil);
CIL new_cil= cil_buffer_reserve(cilar,cil_count+1);
int new_cil_ix= 0;
int cil_ix= 0;
while(cil_ix<cil_count)
{
const int cil_item= Item_of_CIL(cil,cil_ix);
if(cil_item==new_element)
{
return NULL;
}
if(cil_item> new_element)
break;
Item_of_CIL(new_cil,new_cil_ix)= cil_item;
cil_ix++;
new_cil_ix++;
}
Item_of_CIL(new_cil,new_cil_ix)= new_element;
new_cil_ix++;
while(cil_ix<cil_count)
{
const int cil_item= Item_of_CIL(cil,cil_ix);
Item_of_CIL(new_cil,new_cil_ix)= cil_item;
cil_ix++;
new_cil_ix++;
}
Count_of_CIL(new_cil)= new_cil_ix;
return cil_buffer_add(cilar);
}
/*:1167*//*1168:*/
#line 13916 "./marpa.w"
PRIVATE_NOT_INLINE int
cil_cmp(const void*ap,const void*bp,void*param UNUSED)
{
int ix;
CIL cil1= (CIL)ap;
CIL cil2= (CIL)bp;
int count1= Count_of_CIL(cil1);
int count2= Count_of_CIL(cil2);
if(count1!=count2)
{
return count1> count2?1:-1;
}
for(ix= 0;ix<count1;ix++)
{
const int item1= Item_of_CIL(cil1,ix);
const int item2= Item_of_CIL(cil2,ix);
if(item1==item2)
continue;
return item1> item2?1:-1;
}
return 0;
}
/*:1168*//*1181:*/
#line 14055 "./marpa.w"
PRIVATE void
psar_safe(const PSAR psar)
{
psar->t_psl_length= 0;
psar->t_first_psl= psar->t_first_free_psl= NULL;
}
/*:1181*//*1182:*/
#line 14062 "./marpa.w"
PRIVATE void
psar_init(const PSAR psar,int length)
{
psar->t_psl_length= length;
psar->t_first_psl= psar->t_first_free_psl= psl_new(psar);
}
/*:1182*//*1183:*/
#line 14069 "./marpa.w"
PRIVATE void psar_destroy(const PSAR psar)
{
PSL psl= psar->t_first_psl;
while(psl)
{
PSL next_psl= psl->t_next;
PSL*owner= psl->t_owner;
if(owner)
*owner= NULL;
my_free(psl);
psl= next_psl;
}
}
/*:1183*//*1184:*/
#line 14083 "./marpa.w"
PRIVATE PSL psl_new(const PSAR psar)
{
int i;
PSL new_psl= my_malloc(Sizeof_PSL(psar));
new_psl->t_next= NULL;
new_psl->t_prev= NULL;
new_psl->t_owner= NULL;
for(i= 0;i<psar->t_psl_length;i++){
PSL_Datum(new_psl,i)= NULL;
}
return new_psl;
}
/*:1184*//*1187:*/
#line 14114 "./marpa.w"
PRIVATE void psar_reset(const PSAR psar)
{
PSL psl= psar->t_first_psl;
while(psl&&psl->t_owner){
int i;
for(i= 0;i<psar->t_psl_length;i++){
PSL_Datum(psl,i)= NULL;
}
psl= psl->t_next;
}
psar_dealloc(psar);
}
/*:1187*//*1189:*/
#line 14132 "./marpa.w"
PRIVATE void psar_dealloc(const PSAR psar)
{
PSL psl= psar->t_first_psl;
while(psl){
PSL*owner= psl->t_owner;
if(!owner)break;
(*owner)= NULL;
psl->t_owner= NULL;
psl= psl->t_next;
}
psar->t_first_free_psl= psar->t_first_psl;
}
/*:1189*//*1191:*/
#line 14152 "./marpa.w"
PRIVATE void psl_claim(
PSL*const psl_owner,const PSAR psar)
{
PSL new_psl= psl_alloc(psar);
(*psl_owner)= new_psl;
new_psl->t_owner= psl_owner;
}
/*:1191*//*1192:*/
#line 14162 "./marpa.w"
PRIVATE PSL psl_claim_by_es(
PSAR or_psar,
struct s_bocage_setup_per_ys*per_ys_data,
YSID ysid)
{
PSL*psl_owner= &(per_ys_data[ysid].t_or_psl);
if(!*psl_owner)
psl_claim(psl_owner,or_psar);
return*psl_owner;
}
/*:1192*//*1193:*/
#line 14179 "./marpa.w"
PRIVATE PSL psl_alloc(const PSAR psar)
{
PSL free_psl= psar->t_first_free_psl;
PSL next_psl= free_psl->t_next;
if(!next_psl){
next_psl= free_psl->t_next= psl_new(psar);
next_psl->t_prev= free_psl;
}
psar->t_first_free_psl= next_psl;
return free_psl;
}
/*:1193*//*1219:*/
#line 14397 "./marpa.w"
PRIVATE_NOT_INLINE void
set_error(GRAMMAR g,Marpa_Error_Code code,const char*message,unsigned int flags)
{
g->t_error= code;
g->t_error_string= message;
if(flags&FATAL_FLAG)
g->t_is_ok= 0;
}
/*:1219*//*1220:*/
#line 14416 "./marpa.w"
PRIVATE Marpa_Error_Code
clear_error(GRAMMAR g)
{
if(!IS_G_OK(g))
{
if(g->t_error==MARPA_ERR_NONE)
g->t_error= MARPA_ERR_I_AM_NOT_OK;
return g->t_error;
}
g->t_error= MARPA_ERR_NONE;
g->t_error_string= NULL;
return MARPA_ERR_NONE;
}
/*:1220*//*1224:*/
#line 14459 "./marpa.w"
PRIVATE_NOT_INLINE void*
marpa__default_out_of_memory(void)
{
abort();
return NULL;
}
void*(*const marpa__out_of_memory)(void)= marpa__default_out_of_memory;
/*:1224*//*1230:*/
#line 14489 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_trace_earley_set(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14492 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14493 "./marpa.w"
YS trace_earley_set= r->t_trace_earley_set;
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14495 "./marpa.w"
if(!trace_earley_set){
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
return Ord_of_YS(trace_earley_set);
}
/*:1230*//*1231:*/
#line 14503 "./marpa.w"
Marpa_Earley_Set_ID marpa_r_latest_earley_set(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14506 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14507 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14508 "./marpa.w"
return Ord_of_YS(Latest_YS_of_R(r));
}
/*:1231*//*1232:*/
#line 14512 "./marpa.w"
Marpa_Earleme marpa_r_earleme(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14515 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14516 "./marpa.w"
YS earley_set;
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14518 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14519 "./marpa.w"
if(set_id<0){
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
r_update_earley_sets(r);
if(!YS_Ord_is_Valid(r,set_id))
{
MARPA_ERROR(MARPA_ERR_NO_EARLEY_SET_AT_LOCATION);
return failure_indicator;
}
earley_set= YS_of_R_by_Ord(r,set_id);
return Earleme_of_YS(earley_set);
}
/*:1232*//*1234:*/
#line 14537 "./marpa.w"
int _marpa_r_earley_set_size(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14540 "./marpa.w"
YS earley_set;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14542 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14543 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14544 "./marpa.w"
r_update_earley_sets(r);
if(!YS_Ord_is_Valid(r,set_id))
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
earley_set= YS_of_R_by_Ord(r,set_id);
return YIM_Count_of_YS(earley_set);
}
/*:1234*//*1239:*/
#line 14586 "./marpa.w"
Marpa_Earleme
_marpa_r_earley_set_trace(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
YS earley_set;
const int es_does_not_exist= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14592 "./marpa.w"
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14593 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14594 "./marpa.w"
if(r->t_trace_earley_set&&Ord_of_YS(r->t_trace_earley_set)==set_id)
{
return Earleme_of_YS(r->t_trace_earley_set);
}
/*1240:*/
#line 14617 "./marpa.w"
{
r->t_trace_earley_set= NULL;
trace_earley_item_clear(r);
/*1252:*/
#line 14801 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1252*/
#line 14620 "./marpa.w"
}
/*:1240*/
#line 14601 "./marpa.w"
if(set_id<0)
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
r_update_earley_sets(r);
if(set_id>=MARPA_DSTACK_LENGTH(r->t_earley_set_stack))
{
return es_does_not_exist;
}
earley_set= YS_of_R_by_Ord(r,set_id);
r->t_trace_earley_set= earley_set;
return Earleme_of_YS(earley_set);
}
/*:1239*//*1241:*/
#line 14623 "./marpa.w"
Marpa_AHM_ID
_marpa_r_earley_item_trace(Marpa_Recognizer r,Marpa_Earley_Item_ID item_id)
{
const int yim_does_not_exist= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14628 "./marpa.w"
YS trace_earley_set;
YIM earley_item;
YIM*earley_items;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14632 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14633 "./marpa.w"
trace_earley_set= r->t_trace_earley_set;
if(!trace_earley_set)
{
/*1240:*/
#line 14617 "./marpa.w"
{
r->t_trace_earley_set= NULL;
trace_earley_item_clear(r);
/*1252:*/
#line 14801 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1252*/
#line 14620 "./marpa.w"
}
/*:1240*/
#line 14637 "./marpa.w"
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
trace_earley_item_clear(r);
if(item_id<0)
{
MARPA_ERROR(MARPA_ERR_YIM_ID_INVALID);
return failure_indicator;
}
if(item_id>=YIM_Count_of_YS(trace_earley_set))
{
return yim_does_not_exist;
}
earley_items= YIMs_of_YS(trace_earley_set);
earley_item= earley_items[item_id];
r->t_trace_earley_item= earley_item;
return AHMID_of_YIM(earley_item);
}
/*:1241*//*1243:*/
#line 14666 "./marpa.w"
PRIVATE void trace_earley_item_clear(RECCE r)
{
/*1242:*/
#line 14663 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1242*/
#line 14669 "./marpa.w"
trace_source_link_clear(r);
}
/*:1243*//*1244:*/
#line 14673 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_earley_item_origin(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14676 "./marpa.w"
YIM item= r->t_trace_earley_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14678 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14679 "./marpa.w"
if(!item){
/*1242:*/
#line 14663 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1242*/
#line 14681 "./marpa.w"
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
return Origin_Ord_of_YIM(item);
}
/*:1244*//*1246:*/
#line 14693 "./marpa.w"
Marpa_Symbol_ID _marpa_r_leo_predecessor_symbol(Marpa_Recognizer r)
{
const Marpa_Symbol_ID no_predecessor= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14697 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
LIM predecessor_leo_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14700 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14701 "./marpa.w"
if(!postdot_item){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
if(YIM_of_PIM(postdot_item)){
MARPA_ERROR(MARPA_ERR_PIM_IS_NOT_LIM);
return failure_indicator;
}
predecessor_leo_item= Predecessor_LIM_of_LIM(LIM_of_PIM(postdot_item));
if(!predecessor_leo_item)return no_predecessor;
return Postdot_NSYID_of_LIM(predecessor_leo_item);
}
/*:1246*//*1247:*/
#line 14715 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_leo_base_origin(Marpa_Recognizer r)
{
const JEARLEME pim_is_not_a_leo_item= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14719 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14721 "./marpa.w"
YIM base_earley_item;
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14723 "./marpa.w"
if(!postdot_item){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
if(YIM_of_PIM(postdot_item))return pim_is_not_a_leo_item;
base_earley_item= Trailhead_YIM_of_LIM(LIM_of_PIM(postdot_item));
return Origin_Ord_of_YIM(base_earley_item);
}
/*:1247*//*1248:*/
#line 14734 "./marpa.w"
Marpa_AHM_ID _marpa_r_leo_base_state(Marpa_Recognizer r)
{
const JEARLEME pim_is_not_a_leo_item= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14738 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
YIM base_earley_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14741 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14742 "./marpa.w"
if(!postdot_item){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
if(YIM_of_PIM(postdot_item))return pim_is_not_a_leo_item;
base_earley_item= Trailhead_YIM_of_LIM(LIM_of_PIM(postdot_item));
return AHMID_of_YIM(base_earley_item);
}
/*:1248*//*1251:*/
#line 14775 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_postdot_symbol_trace(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14780 "./marpa.w"
YS current_ys= r->t_trace_earley_set;
PIM*pim_nsy_p;
PIM pim;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14784 "./marpa.w"
/*1252:*/
#line 14801 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1252*/
#line 14785 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14786 "./marpa.w"
/*1201:*/
#line 14246 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1201*/
#line 14787 "./marpa.w"
/*1202:*/
#line 14253 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1202*/
#line 14788 "./marpa.w"
if(!current_ys){
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
pim_nsy_p= PIM_NSY_P_of_YS_by_NSYID(current_ys,NSYID_by_XSYID(xsy_id));
pim= *pim_nsy_p;
if(!pim)return-1;
r->t_trace_pim_nsy_p= pim_nsy_p;
r->t_trace_postdot_item= pim;
return xsy_id;
}
/*:1251*//*1253:*/
#line 14811 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_first_postdot_item_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14815 "./marpa.w"
YS current_earley_set= r->t_trace_earley_set;
PIM pim;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14818 "./marpa.w"
PIM*pim_nsy_p;
/*1252:*/
#line 14801 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1252*/
#line 14820 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14821 "./marpa.w"
if(!current_earley_set){
/*1242:*/
#line 14663 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1242*/
#line 14823 "./marpa.w"
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
if(current_earley_set->t_postdot_sym_count<=0)return-1;
pim_nsy_p= current_earley_set->t_postdot_ary+0;
pim= pim_nsy_p[0];
r->t_trace_pim_nsy_p= pim_nsy_p;
r->t_trace_postdot_item= pim;
return Postdot_NSYID_of_PIM(pim);
}
/*:1253*//*1254:*/
#line 14842 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_next_postdot_item_trace(Marpa_Recognizer r)
{
const XSYID no_more_postdot_symbols= -1;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14847 "./marpa.w"
YS current_set= r->t_trace_earley_set;
PIM pim;
PIM*pim_nsy_p;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14851 "./marpa.w"
pim_nsy_p= r->t_trace_pim_nsy_p;
pim= r->t_trace_postdot_item;
/*1252:*/
#line 14801 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1252*/
#line 14855 "./marpa.w"
if(!pim_nsy_p||!pim){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14860 "./marpa.w"
if(!current_set){
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
pim= Next_PIM_of_PIM(pim);
if(!pim){
pim_nsy_p++;
if(pim_nsy_p-current_set->t_postdot_ary
>=current_set->t_postdot_sym_count){
return no_more_postdot_symbols;
}
pim= *pim_nsy_p;
}
r->t_trace_pim_nsy_p= pim_nsy_p;
r->t_trace_postdot_item= pim;
return Postdot_NSYID_of_PIM(pim);
}
/*:1254*//*1255:*/
#line 14880 "./marpa.w"
Marpa_Symbol_ID _marpa_r_postdot_item_symbol(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14883 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14885 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14886 "./marpa.w"
if(!postdot_item){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
return Postdot_NSYID_of_PIM(postdot_item);
}
/*:1255*//*1260:*/
#line 14916 "./marpa.w"
Marpa_Symbol_ID _marpa_r_first_token_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14919 "./marpa.w"
SRCL source_link;
unsigned int source_type;
YIM item= r->t_trace_earley_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14923 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14924 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 14925 "./marpa.w"
source_type= Source_Type_of_YIM(item);
switch(source_type)
{
case SOURCE_IS_TOKEN:
r->t_trace_source_type= SOURCE_IS_TOKEN;
source_link= SRCL_of_YIM(item);
r->t_trace_source_link= source_link;
return NSYID_of_SRCL(source_link);
case SOURCE_IS_AMBIGUOUS:
{
source_link= LV_First_Token_SRCL_of_YIM(item);
if(source_link)
{
r->t_trace_source_type= SOURCE_IS_TOKEN;
r->t_trace_source_link= source_link;
return NSYID_of_SRCL(source_link);
}
}
}
trace_source_link_clear(r);
return-1;
}
/*:1260*//*1263:*/
#line 14957 "./marpa.w"
Marpa_Symbol_ID _marpa_r_next_token_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14960 "./marpa.w"
SRCL source_link;
YIM item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14963 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14964 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 14965 "./marpa.w"
if(r->t_trace_source_type!=SOURCE_IS_TOKEN){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NOT_TRACING_TOKEN_LINKS);
return failure_indicator;
}
source_link= Next_SRCL_of_SRCL(r->t_trace_source_link);
if(!source_link){
trace_source_link_clear(r);
return-1;
}
r->t_trace_source_link= source_link;
return NSYID_of_SRCL(source_link);
}
/*:1263*//*1265:*/
#line 14988 "./marpa.w"
Marpa_Symbol_ID _marpa_r_first_completion_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 14991 "./marpa.w"
SRCL source_link;
unsigned int source_type;
YIM item= r->t_trace_earley_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 14995 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 14996 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 14997 "./marpa.w"
switch((source_type= Source_Type_of_YIM(item)))
{
case SOURCE_IS_COMPLETION:
r->t_trace_source_type= SOURCE_IS_COMPLETION;
source_link= SRCL_of_YIM(item);
r->t_trace_source_link= source_link;
return Cause_AHMID_of_SRCL(source_link);
case SOURCE_IS_AMBIGUOUS:
{
source_link= LV_First_Completion_SRCL_of_YIM(item);
if(source_link)
{
r->t_trace_source_type= SOURCE_IS_COMPLETION;
r->t_trace_source_link= source_link;
return Cause_AHMID_of_SRCL(source_link);
}
}
}
trace_source_link_clear(r);
return-1;
}
/*:1265*//*1268:*/
#line 15028 "./marpa.w"
Marpa_Symbol_ID _marpa_r_next_completion_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15031 "./marpa.w"
SRCL source_link;
YIM item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15034 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15035 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 15036 "./marpa.w"
if(r->t_trace_source_type!=SOURCE_IS_COMPLETION){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NOT_TRACING_COMPLETION_LINKS);
return failure_indicator;
}
source_link= Next_SRCL_of_SRCL(r->t_trace_source_link);
if(!source_link){
trace_source_link_clear(r);
return-1;
}
r->t_trace_source_link= source_link;
return Cause_AHMID_of_SRCL(source_link);
}
/*:1268*//*1270:*/
#line 15059 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_first_leo_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15063 "./marpa.w"
SRCL source_link;
YIM item= r->t_trace_earley_item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15066 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15067 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 15068 "./marpa.w"
source_link= First_Leo_SRCL_of_YIM(item);
if(source_link){
r->t_trace_source_type= SOURCE_IS_LEO;
r->t_trace_source_link= source_link;
return Cause_AHMID_of_SRCL(source_link);
}
trace_source_link_clear(r);
return-1;
}
/*:1270*//*1273:*/
#line 15087 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_next_leo_link_trace(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15091 "./marpa.w"
SRCL source_link;
YIM item;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15094 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15095 "./marpa.w"
/*1274:*/
#line 15113 "./marpa.w"
item= r->t_trace_earley_item;
if(!item){
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
/*:1274*/
#line 15096 "./marpa.w"
if(r->t_trace_source_type!=SOURCE_IS_LEO)
{
trace_source_link_clear(r);
MARPA_ERROR(MARPA_ERR_NOT_TRACING_LEO_LINKS);
return failure_indicator;
}
source_link= Next_SRCL_of_SRCL(r->t_trace_source_link);
if(!source_link)
{
trace_source_link_clear(r);
return-1;
}
r->t_trace_source_link= source_link;
return Cause_AHMID_of_SRCL(source_link);
}
/*:1273*//*1275:*/
#line 15122 "./marpa.w"
PRIVATE void trace_source_link_clear(RECCE r)
{
r->t_trace_source_link= NULL;
r->t_trace_source_type= NO_SOURCE;
}
/*:1275*//*1276:*/
#line 15137 "./marpa.w"
AHMID _marpa_r_source_predecessor_state(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15140 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15143 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15144 "./marpa.w"
source_type= r->t_trace_source_type;
/*1282:*/
#line 15289 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1282*/
#line 15146 "./marpa.w"
switch(source_type)
{
case SOURCE_IS_TOKEN:
case SOURCE_IS_COMPLETION:{
YIM predecessor= Predecessor_of_SRCL(source_link);
if(!predecessor)return-1;
return AHMID_of_YIM(predecessor);
}
}
MARPA_ERROR(invalid_source_type_code(source_type));
return failure_indicator;
}
/*:1276*//*1277:*/
#line 15178 "./marpa.w"
Marpa_Symbol_ID _marpa_r_source_token(Marpa_Recognizer r,int*value_p)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15181 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15184 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15185 "./marpa.w"
source_type= r->t_trace_source_type;
/*1282:*/
#line 15289 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1282*/
#line 15187 "./marpa.w"
if(source_type==SOURCE_IS_TOKEN){
if(value_p)*value_p= Value_of_SRCL(source_link);
return NSYID_of_SRCL(source_link);
}
MARPA_ERROR(invalid_source_type_code(source_type));
return failure_indicator;
}
/*:1277*//*1279:*/
#line 15209 "./marpa.w"
Marpa_Symbol_ID _marpa_r_source_leo_transition_symbol(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15212 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15215 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15216 "./marpa.w"
source_type= r->t_trace_source_type;
/*1282:*/
#line 15289 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1282*/
#line 15218 "./marpa.w"
switch(source_type)
{
case SOURCE_IS_LEO:
return Leo_Transition_NSYID_of_SRCL(source_link);
}
MARPA_ERROR(invalid_source_type_code(source_type));
return failure_indicator;
}
/*:1279*//*1281:*/
#line 15252 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_source_middle(Marpa_Recognizer r)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15255 "./marpa.w"
YIM predecessor_yim= NULL;
unsigned int source_type;
SRCL source_link;
/*555:*/
#line 5938 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:555*/
#line 15259 "./marpa.w"
/*1215:*/
#line 14341 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 14342 "./marpa.w"
/*1213:*/
#line 14325 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1213*/
#line 14343 "./marpa.w"
/*:1215*/
#line 15260 "./marpa.w"
source_type= r->t_trace_source_type;
/*1282:*/
#line 15289 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1282*/
#line 15262 "./marpa.w"
switch(source_type)
{
case SOURCE_IS_LEO:
{
LIM predecessor= LIM_of_SRCL(source_link);
if(predecessor)
predecessor_yim= Trailhead_YIM_of_LIM(predecessor);
break;
}
case SOURCE_IS_TOKEN:
case SOURCE_IS_COMPLETION:
{
predecessor_yim= Predecessor_of_SRCL(source_link);
break;
}
default:
MARPA_ERROR(invalid_source_type_code(source_type));
return failure_indicator;
}
if(predecessor_yim)
return YS_Ord_of_YIM(predecessor_yim);
return Origin_Ord_of_YIM(r->t_trace_earley_item);
}
/*:1281*//*1286:*/
#line 15327 "./marpa.w"
int _marpa_b_or_node_set(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15332 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15333 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15334 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15335 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15336 "./marpa.w"
return YS_Ord_of_OR(or_node);
}
/*:1286*//*1287:*/
#line 15340 "./marpa.w"
int _marpa_b_or_node_origin(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15345 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15346 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15347 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15348 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15349 "./marpa.w"
return Origin_Ord_of_OR(or_node);
}
/*:1287*//*1288:*/
#line 15353 "./marpa.w"
Marpa_IRL_ID _marpa_b_or_node_irl(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15358 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15359 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15360 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15361 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15362 "./marpa.w"
return IRLID_of_OR(or_node);
}
/*:1288*//*1289:*/
#line 15366 "./marpa.w"
int _marpa_b_or_node_position(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15371 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15372 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15373 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15374 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15375 "./marpa.w"
return Position_of_OR(or_node);
}
/*:1289*//*1290:*/
#line 15379 "./marpa.w"
int _marpa_b_or_node_is_whole(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15384 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15385 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15386 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15387 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15388 "./marpa.w"
return Position_of_OR(or_node)>=Length_of_IRL(IRL_of_OR(or_node))?1:0;
}
/*:1290*//*1291:*/
#line 15392 "./marpa.w"
int _marpa_b_or_node_is_semantic(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15397 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15398 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15399 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15400 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15401 "./marpa.w"
return!IRL_has_Virtual_LHS(IRL_of_OR(or_node));
}
/*:1291*//*1292:*/
#line 15405 "./marpa.w"
int _marpa_b_or_node_first_and(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15410 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15411 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15412 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15413 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15414 "./marpa.w"
return First_ANDID_of_OR(or_node);
}
/*:1292*//*1293:*/
#line 15418 "./marpa.w"
int _marpa_b_or_node_last_and(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15423 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15424 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15425 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15426 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15427 "./marpa.w"
return First_ANDID_of_OR(or_node)
+AND_Count_of_OR(or_node)-1;
}
/*:1293*//*1294:*/
#line 15432 "./marpa.w"
int _marpa_b_or_node_and_count(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15437 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15438 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15439 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15440 "./marpa.w"
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15441 "./marpa.w"
return AND_Count_of_OR(or_node);
}
/*:1294*//*1297:*/
#line 15455 "./marpa.w"
int _marpa_o_or_node_and_node_count(Marpa_Order o,
Marpa_Or_Node_ID or_node_id)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15459 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 15460 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15461 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15462 "./marpa.w"
if(!O_is_Default(o))
{
ANDID**const and_node_orderings= o->t_and_node_orderings;
ANDID*ordering= and_node_orderings[or_node_id];
if(ordering)return ordering[0];
}
{
OR or_node;
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15471 "./marpa.w"
return AND_Count_of_OR(or_node);
}
}
/*:1297*//*1298:*/
#line 15476 "./marpa.w"
int _marpa_o_or_node_and_node_id_by_ix(Marpa_Order o,
Marpa_Or_Node_ID or_node_id,int ix)
{
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15480 "./marpa.w"
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 15481 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15482 "./marpa.w"
/*1284:*/
#line 15305 "./marpa.w"
{
if(_MARPA_UNLIKELY(or_node_id>=OR_Count_of_B(b)))
{
return-1;
}
if(_MARPA_UNLIKELY(or_node_id<0))
{
MARPA_ERROR(MARPA_ERR_ORID_NEGATIVE);
return failure_indicator;
}
}
/*:1284*/
#line 15483 "./marpa.w"
if(!O_is_Default(o))
{
ANDID**const and_node_orderings= o->t_and_node_orderings;
ANDID*ordering= and_node_orderings[or_node_id];
if(ordering)return ordering[1+ix];
}
{
OR or_node;
/*1285:*/
#line 15317 "./marpa.w"
{
if(_MARPA_UNLIKELY(!ORs_of_B(b)))
{
MARPA_ERROR(MARPA_ERR_NO_OR_NODES);
return failure_indicator;
}
or_node= OR_of_B_by_ID(b,or_node_id);
}
/*:1285*/
#line 15492 "./marpa.w"
return First_ANDID_of_OR(or_node)+ix;
}
}
/*:1298*//*1300:*/
#line 15499 "./marpa.w"
int _marpa_b_and_node_count(Marpa_Bocage b)
{
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15502 "./marpa.w"
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15503 "./marpa.w"
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15504 "./marpa.w"
return AND_Count_of_B(b);
}
/*:1300*//*1302:*/
#line 15530 "./marpa.w"
int _marpa_b_and_node_parent(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15535 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15536 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15537 "./marpa.w"
return ID_of_OR(OR_of_AND(and_node));
}
/*:1302*//*1303:*/
#line 15541 "./marpa.w"
int _marpa_b_and_node_predecessor(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15546 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15547 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15548 "./marpa.w"
{
const OR predecessor_or= Predecessor_OR_of_AND(and_node);
const ORID predecessor_or_id=
predecessor_or?ID_of_OR(predecessor_or):-1;
return predecessor_or_id;
}
}
/*:1303*//*1304:*/
#line 15557 "./marpa.w"
int _marpa_b_and_node_cause(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15562 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15563 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15564 "./marpa.w"
{
const OR cause_or= Cause_OR_of_AND(and_node);
const ORID cause_or_id=
OR_is_Token(cause_or)?-1:ID_of_OR(cause_or);
return cause_or_id;
}
}
/*:1304*//*1305:*/
#line 15573 "./marpa.w"
int _marpa_b_and_node_symbol(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15578 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15579 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15580 "./marpa.w"
{
const OR cause_or= Cause_OR_of_AND(and_node);
const XSYID symbol_id=
OR_is_Token(cause_or)?NSYID_of_OR(cause_or):-1;
return symbol_id;
}
}
/*:1305*//*1306:*/
#line 15589 "./marpa.w"
Marpa_Symbol_ID _marpa_b_and_node_token(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id,int*value_p)
{
AND and_node;
OR cause_or;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15595 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15596 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15597 "./marpa.w"
cause_or= Cause_OR_of_AND(and_node);
if(!OR_is_Token(cause_or))return-1;
if(value_p)*value_p= Value_of_OR(cause_or);
return NSYID_of_OR(cause_or);
}
/*:1306*//*1307:*/
#line 15612 "./marpa.w"
Marpa_Earley_Set_ID _marpa_b_and_node_middle(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15617 "./marpa.w"
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 15618 "./marpa.w"
/*1301:*/
#line 15508 "./marpa.w"
{
if(and_node_id>=AND_Count_of_B(b))
{
return-1;
}
if(and_node_id<0)
{
MARPA_ERROR(MARPA_ERR_ANDID_NEGATIVE);
return failure_indicator;
}
{
AND and_nodes= ANDs_of_B(b);
if(!and_nodes)
{
MARPA_ERROR(MARPA_ERR_NO_AND_NODES);
return failure_indicator;
}
and_node= and_nodes+and_node_id;
}
}
/*:1301*/
#line 15619 "./marpa.w"
{
const OR predecessor_or= Predecessor_OR_of_AND(and_node);
if(predecessor_or)
{
return YS_Ord_of_OR(predecessor_or);
}
}
return Origin_Ord_of_OR(OR_of_AND(and_node));
}
/*:1307*//*1310:*/
#line 15652 "./marpa.w"
int _marpa_t_nook_or_node(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15656 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15657 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15658 "./marpa.w"
return ID_of_OR(OR_of_NOOK(nook));
}
/*:1310*//*1311:*/
#line 15662 "./marpa.w"
int _marpa_t_nook_choice(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15666 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15667 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15668 "./marpa.w"
return Choice_of_NOOK(nook);
}
/*:1311*//*1312:*/
#line 15672 "./marpa.w"
int _marpa_t_nook_parent(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15676 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15677 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15678 "./marpa.w"
return Parent_of_NOOK(nook);
}
/*:1312*//*1313:*/
#line 15682 "./marpa.w"
int _marpa_t_nook_cause_is_ready(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15686 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15687 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15688 "./marpa.w"
return NOOK_Cause_is_Expanded(nook);
}
/*:1313*//*1314:*/
#line 15692 "./marpa.w"
int _marpa_t_nook_predecessor_is_ready(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15696 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15697 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15698 "./marpa.w"
return NOOK_Predecessor_is_Expanded(nook);
}
/*:1314*//*1315:*/
#line 15702 "./marpa.w"
int _marpa_t_nook_is_cause(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15706 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15707 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15708 "./marpa.w"
return NOOK_is_Cause(nook);
}
/*:1315*//*1316:*/
#line 15712 "./marpa.w"
int _marpa_t_nook_is_predecessor(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1198:*/
#line 14230 "./marpa.w"
const int failure_indicator= -2;
/*:1198*/
#line 15716 "./marpa.w"
/*1001:*/
#line 11638 "./marpa.w"
ORDER o= O_of_T(t);
/*974:*/
#line 11247 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*929:*/
#line 10850 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:929*/
#line 11249 "./marpa.w"
/*:974*/
#line 11640 "./marpa.w"
;
/*:1001*/
#line 15717 "./marpa.w"
/*1309:*/
#line 15634 "./marpa.w"
{
NOOK base_nook;
/*1216:*/
#line 14349 "./marpa.w"
if(HEADER_VERSION_MISMATCH){
MARPA_ERROR(MARPA_ERR_HEADERS_DO_NOT_MATCH);
return failure_indicator;
}
if(_MARPA_UNLIKELY(!IS_G_OK(g))){
MARPA_ERROR(g->t_error);
return failure_indicator;
}
/*:1216*/
#line 15636 "./marpa.w"
if(T_is_Exhausted(t)){
MARPA_ERROR(MARPA_ERR_BOCAGE_ITERATION_EXHAUSTED);
return failure_indicator;
}
if(nook_id<0){
MARPA_ERROR(MARPA_ERR_NOOKID_NEGATIVE);
return failure_indicator;
}
if(nook_id>=Size_of_T(t)){
return-1;
}
base_nook= FSTACK_BASE(t->t_nook_stack,NOOK_Object);
nook= base_nook+nook_id;
}
/*:1309*/
#line 15718 "./marpa.w"
return NOOK_is_Predecessor(nook);
}
/*:1316*//*1318:*/
#line 15733 "./marpa.w"
void marpa_debug_handler_set(int(*debug_handler)(const char*,...))
{
marpa__debug_handler= debug_handler;
}
/*:1318*//*1319:*/
#line 15739 "./marpa.w"
int marpa_debug_level_set(int new_level)
{
const int old_level= marpa__debug_level;
marpa__debug_level= new_level;
return old_level;
}
/*:1319*/
#line 15919 "./marpa.w"
/*:1337*/