/*
* Copyright 2015 Jeffrey Kegler
* Permission is hereby granted, free of charge, to any person obtaining a
* copy of this software and associated documentation files (the "Software"),
* to deal in the Software without restriction, including without limitation
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
* and/or sell copies of the Software, and to permit persons to whom the
* Software is furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included
* in all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
* OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
* ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
* OTHER DEALINGS IN THE SOFTWARE.
*/
/*
* DO NOT EDIT DIRECTLY
* This file is written by the Marpa build process
* It is not intended to be modified directly
*/
/*1338:*/
#line 16210 "./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_Completion_Event_Starts_Active(xsy) ((xsy) ->t_completion_event_starts_active)
#define XSYID_Completion_Event_Starts_Active(xsyid) XSY_Completion_Event_Starts_Active(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_Nulled_Event_Starts_Active(xsy) ((xsy) ->t_nulled_event_starts_active)
#define XSYID_Nulled_Event_Starts_Active(xsyid) XSY_Nulled_Event_Starts_Active(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 XSY_Prediction_Event_Starts_Active(xsy) ((xsy) ->t_prediction_event_starts_active)
#define XSYID_Prediction_Event_Starts_Active(xsyid) XSY_Prediction_Event_Starts_Active(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 16220 "./marpa.w"
#include "marpa_obs.h"
#include "marpa_avl.h"
/*107:*/
#line 1020 "./marpa.w"
struct s_g_event;
typedef struct s_g_event*GEV;
/*:107*//*143:*/
#line 1249 "./marpa.w"
struct s_xsy;
typedef struct s_xsy*XSY;
typedef const struct s_xsy*XSY_Const;
/*:143*//*450:*/
#line 4823 "./marpa.w"
struct s_ahm;
typedef struct s_ahm*AHM;
typedef Marpa_AHM_ID AHMID;
/*:450*//*524:*/
#line 5724 "./marpa.w"
struct s_g_zwa;
struct s_r_zwa;
/*:524*//*531:*/
#line 5761 "./marpa.w"
struct s_zwp;
/*:531*//*624:*/
#line 6655 "./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;
/*:624*//*646:*/
#line 6870 "./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;
/*:646*//*656:*/
#line 7044 "./marpa.w"
struct s_earley_ix;
typedef struct s_earley_ix*YIX;
union u_postdot_item;
/*:656*//*659:*/
#line 7081 "./marpa.w"
struct s_leo_item;
typedef struct s_leo_item*LIM;
/*:659*//*691:*/
#line 7471 "./marpa.w"
struct s_alternative;
typedef struct s_alternative*ALT;
typedef const struct s_alternative*ALT_Const;
/*:691*//*848:*/
#line 9907 "./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;
/*:848*//*869:*/
#line 10169 "./marpa.w"
union u_or_node;
typedef union u_or_node*OR;
/*:869*//*897:*/
#line 10579 "./marpa.w"
struct s_draft_and_node;
typedef struct s_draft_and_node*DAND;
/*:897*//*923:*/
#line 10978 "./marpa.w"
struct s_and_node;
typedef struct s_and_node*AND;
/*:923*//*929:*/
#line 11040 "./marpa.w"
typedef struct marpa_bocage*BOCAGE;
/*:929*//*939:*/
#line 11145 "./marpa.w"
struct s_bocage_setup_per_ys;
/*:939*//*1003:*/
#line 11900 "./marpa.w"
typedef Marpa_Tree TREE;
/*:1003*//*1038:*/
#line 12348 "./marpa.w"
struct s_nook;
typedef struct s_nook*NOOK;
/*:1038*//*1042:*/
#line 12393 "./marpa.w"
typedef struct s_value*VALUE;
/*:1042*//*1152:*/
#line 13937 "./marpa.w"
struct s_dqueue;
typedef struct s_dqueue*DQUEUE;
/*:1152*//*1158:*/
#line 13991 "./marpa.w"
struct s_cil_arena;
/*:1158*//*1178:*/
#line 14326 "./marpa.w"
struct s_per_earley_set_list;
typedef struct s_per_earley_set_list*PSL;
/*:1178*//*1180:*/
#line 14341 "./marpa.w"
struct s_per_earley_set_arena;
typedef struct s_per_earley_set_arena*PSAR;
/*:1180*/
#line 16223 "./marpa.w"
/*49:*/
#line 660 "./marpa.w"
typedef struct marpa_g*GRAMMAR;
/*:49*//*142:*/
#line 1247 "./marpa.w"
typedef Marpa_Symbol_ID XSYID;
/*:142*//*216:*/
#line 1890 "./marpa.w"
struct s_nsy;
typedef struct s_nsy*NSY;
typedef Marpa_NSY_ID NSYID;
/*:216*//*255:*/
#line 2175 "./marpa.w"
struct s_xrl;
typedef struct s_xrl*XRL;
typedef XRL RULE;
typedef Marpa_Rule_ID RULEID;
typedef Marpa_Rule_ID XRLID;
/*:255*//*328:*/
#line 2906 "./marpa.w"
struct s_irl;
typedef struct s_irl*IRL;
typedef Marpa_IRL_ID IRLID;
/*:328*//*466:*/
#line 4935 "./marpa.w"
typedef int SYMI;
/*:466*//*525:*/
#line 5733 "./marpa.w"
typedef Marpa_Assertion_ID ZWAID;
typedef struct s_g_zwa*GZWA;
typedef struct s_r_zwa*ZWA;
/*:525*//*532:*/
#line 5764 "./marpa.w"
typedef struct s_zwp*ZWP;
typedef const struct s_zwp*ZWP_Const;
/*:532*//*545:*/
#line 5960 "./marpa.w"
typedef struct marpa_r*RECCE;
/*:545*//*621:*/
#line 6645 "./marpa.w"
typedef Marpa_Earleme JEARLEME;
/*:621*//*623:*/
#line 6649 "./marpa.w"
typedef Marpa_Earley_Set_ID YSID;
/*:623*//*648:*/
#line 6911 "./marpa.w"
typedef int YIMID;
/*:648*//*672:*/
#line 7202 "./marpa.w"
struct s_source;
typedef struct s_source*SRC;
typedef const struct s_source*SRC_Const;
/*:672*//*675:*/
#line 7227 "./marpa.w"
struct s_source_link;
typedef struct s_source_link*SRCL;
/*:675*//*816:*/
#line 9547 "./marpa.w"
typedef struct marpa_progress_item*PROGRESS;
/*:816*//*868:*/
#line 10166 "./marpa.w"
typedef Marpa_Or_Node_ID ORID;
/*:868*//*896:*/
#line 10568 "./marpa.w"
typedef int WHEID;
/*:896*//*922:*/
#line 10974 "./marpa.w"
typedef Marpa_And_Node_ID ANDID;
/*:922*//*1037:*/
#line 12344 "./marpa.w"
typedef Marpa_Nook_ID NOOKID;
/*:1037*//*1089:*/
#line 13108 "./marpa.w"
typedef unsigned int LBW;
typedef LBW*LBV;
/*:1089*//*1097:*/
#line 13200 "./marpa.w"
typedef LBW Bit_Vector_Word;
typedef Bit_Vector_Word*Bit_Vector;
/*:1097*//*1155:*/
#line 13958 "./marpa.w"
typedef int*CIL;
/*:1155*//*1159:*/
#line 13994 "./marpa.w"
typedef struct s_cil_arena*CILAR;
/*:1159*/
#line 16224 "./marpa.w"
/*1157:*/
#line 13983 "./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;
/*:1157*/
#line 16225 "./marpa.w"
/*48:*/
#line 654 "./marpa.w"
struct marpa_g{
/*133:*/
#line 1194 "./marpa.w"
int t_is_ok;
/*:133*/
#line 655 "./marpa.w"
/*59:*/
#line 737 "./marpa.w"
MARPA_DSTACK_DECLARE(t_xsy_stack);
MARPA_DSTACK_DECLARE(t_nsy_stack);
/*:59*//*68:*/
#line 794 "./marpa.w"
MARPA_DSTACK_DECLARE(t_xrl_stack);
MARPA_DSTACK_DECLARE(t_irl_stack);
/*:68*//*103:*/
#line 989 "./marpa.w"
Bit_Vector t_bv_nsyid_is_terminal;
/*:103*//*105:*/
#line 998 "./marpa.w"
Bit_Vector t_lbv_xsyid_is_completion_event;
Bit_Vector t_lbv_xsyid_completion_event_starts_active;
Bit_Vector t_lbv_xsyid_is_nulled_event;
Bit_Vector t_lbv_xsyid_nulled_event_starts_active;
Bit_Vector t_lbv_xsyid_is_prediction_event;
Bit_Vector t_lbv_xsyid_prediction_event_starts_active;
/*:105*//*112:*/
#line 1042 "./marpa.w"
MARPA_DSTACK_DECLARE(t_events);
/*:112*//*120:*/
#line 1116 "./marpa.w"
MARPA_AVL_TREE t_xrl_tree;
/*:120*//*124:*/
#line 1146 "./marpa.w"
struct marpa_obstack*t_obs;
struct marpa_obstack*t_xrl_obs;
/*:124*//*127:*/
#line 1163 "./marpa.w"
CILAR_Object t_cilar;
/*:127*//*135:*/
#line 1209 "./marpa.w"
const char*t_error_string;
/*:135*//*452:*/
#line 4840 "./marpa.w"
AHM t_ahms;
/*:452*//*526:*/
#line 5740 "./marpa.w"
MARPA_DSTACK_DECLARE(t_gzwa_stack);
/*:526*//*534:*/
#line 5779 "./marpa.w"
MARPA_AVL_TREE t_zwp_tree;
/*:534*/
#line 656 "./marpa.w"
/*53:*/
#line 684 "./marpa.w"
int t_ref_count;
/*:53*//*78:*/
#line 844 "./marpa.w"
XSYID t_start_xsy_id;
/*:78*//*82:*/
#line 881 "./marpa.w"
IRL t_start_irl;
/*:82*//*85:*/
#line 895 "./marpa.w"
int t_external_size;
/*:85*//*88:*/
#line 909 "./marpa.w"
int t_max_rule_length;
/*:88*//*92:*/
#line 922 "./marpa.w"
Marpa_Rank t_default_rank;
/*:92*//*136:*/
#line 1211 "./marpa.w"
Marpa_Error_Code t_error;
/*:136*//*161:*/
#line 1375 "./marpa.w"
int t_force_valued;
/*:161*//*453:*/
#line 4844 "./marpa.w"
int t_ahm_count;
/*:453*//*467:*/
#line 4937 "./marpa.w"
int t_symbol_instance_count;
/*:467*/
#line 657 "./marpa.w"
/*97:*/
#line 957 "./marpa.w"
BITFIELD t_is_precomputed:1;
/*:97*//*100:*/
#line 969 "./marpa.w"
BITFIELD t_has_cycle:1;
/*:100*/
#line 658 "./marpa.w"
};
/*:48*//*111:*/
#line 1035 "./marpa.w"
struct s_g_event{
int t_type;
int t_value;
};
typedef struct s_g_event GEV_Object;
/*:111*//*144:*/
#line 1254 "./marpa.w"
struct s_xsy{
/*202:*/
#line 1790 "./marpa.w"
CIL t_nulled_event_xsyids;
/*:202*//*205:*/
#line 1817 "./marpa.w"
NSY t_nsy_equivalent;
/*:205*//*209:*/
#line 1849 "./marpa.w"
NSY t_nulling_nsy;
/*:209*/
#line 1256 "./marpa.w"
/*145:*/
#line 1263 "./marpa.w"
XSYID t_symbol_id;
/*:145*//*150:*/
#line 1296 "./marpa.w"
Marpa_Rank t_rank;
/*:150*/
#line 1257 "./marpa.w"
/*154:*/
#line 1343 "./marpa.w"
BITFIELD t_is_lhs:1;
/*:154*//*156:*/
#line 1350 "./marpa.w"
BITFIELD t_is_sequence_lhs:1;
/*:156*//*158:*/
#line 1364 "./marpa.w"
BITFIELD t_is_valued:1;
BITFIELD t_is_valued_locked:1;
/*:158*//*166:*/
#line 1434 "./marpa.w"
BITFIELD t_is_accessible:1;
/*:166*//*169:*/
#line 1455 "./marpa.w"
BITFIELD t_is_counted:1;
/*:169*//*172:*/
#line 1471 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:172*//*175:*/
#line 1488 "./marpa.w"
BITFIELD t_is_nullable:1;
/*:175*//*178:*/
#line 1509 "./marpa.w"
BITFIELD t_is_terminal:1;
BITFIELD t_is_locked_terminal:1;
/*:178*//*183:*/
#line 1556 "./marpa.w"
BITFIELD t_is_productive:1;
/*:183*//*186:*/
#line 1577 "./marpa.w"
BITFIELD t_is_completion_event:1;
BITFIELD t_completion_event_starts_active:1;
/*:186*//*191:*/
#line 1647 "./marpa.w"
BITFIELD t_is_nulled_event:1;
BITFIELD t_nulled_event_starts_active:1;
/*:191*//*196:*/
#line 1720 "./marpa.w"
BITFIELD t_is_prediction_event:1;
BITFIELD t_prediction_event_starts_active:1;
/*:196*/
#line 1258 "./marpa.w"
};
/*:144*//*217:*/
#line 1905 "./marpa.w"
struct s_unvalued_token_or_node{
int t_or_node_type;
NSYID t_nsyid;
};
struct s_nsy{
/*236:*/
#line 2042 "./marpa.w"
CIL t_lhs_cil;
/*:236*//*241:*/
#line 2073 "./marpa.w"
XSY t_source_xsy;
/*:241*//*245:*/
#line 2096 "./marpa.w"
XRL t_lhs_xrl;
int t_xrl_offset;
/*:245*/
#line 1912 "./marpa.w"
/*250:*/
#line 2149 "./marpa.w"
Marpa_Rank t_rank;
/*:250*/
#line 1913 "./marpa.w"
/*227:*/
#line 1997 "./marpa.w"
BITFIELD t_is_start:1;
/*:227*//*230:*/
#line 2011 "./marpa.w"
BITFIELD t_is_lhs:1;
/*:230*//*233:*/
#line 2025 "./marpa.w"
BITFIELD t_nsy_is_nulling:1;
/*:233*//*238:*/
#line 2050 "./marpa.w"
BITFIELD t_is_semantic:1;
/*:238*/
#line 1914 "./marpa.w"
struct s_unvalued_token_or_node t_nulling_or_node;
struct s_unvalued_token_or_node t_unvalued_or_node;
};
/*:217*//*254:*/
#line 2166 "./marpa.w"
struct s_xrl{
/*267:*/
#line 2469 "./marpa.w"
int t_rhs_length;
/*:267*//*275:*/
#line 2534 "./marpa.w"
Marpa_Rule_ID t_id;
/*:275*//*276:*/
#line 2537 "./marpa.w"
Marpa_Rank t_rank;
/*:276*/
#line 2168 "./marpa.w"
/*280:*/
#line 2586 "./marpa.w"
BITFIELD t_null_ranks_high:1;
/*:280*//*284:*/
#line 2627 "./marpa.w"
BITFIELD t_is_bnf:1;
/*:284*//*286:*/
#line 2633 "./marpa.w"
BITFIELD t_is_sequence:1;
/*:286*//*288:*/
#line 2647 "./marpa.w"
int t_minimum;
/*:288*//*291:*/
#line 2673 "./marpa.w"
XSYID t_separator_id;
/*:291*//*296:*/
#line 2710 "./marpa.w"
BITFIELD t_is_discard:1;
/*:296*//*300:*/
#line 2750 "./marpa.w"
BITFIELD t_is_proper_separation:1;
/*:300*//*304:*/
#line 2771 "./marpa.w"
BITFIELD t_is_loop:1;
/*:304*//*307:*/
#line 2789 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:307*//*310:*/
#line 2808 "./marpa.w"
BITFIELD t_is_nullable:1;
/*:310*//*314:*/
#line 2827 "./marpa.w"
BITFIELD t_is_accessible:1;
/*:314*//*317:*/
#line 2846 "./marpa.w"
BITFIELD t_is_productive:1;
/*:317*//*320:*/
#line 2864 "./marpa.w"
BITFIELD t_is_used:1;
/*:320*/
#line 2169 "./marpa.w"
/*268:*/
#line 2472 "./marpa.w"
Marpa_Symbol_ID t_symbols[1];
/*:268*/
#line 2170 "./marpa.w"
};
/*:254*//*326:*/
#line 2895 "./marpa.w"
struct s_irl{
/*359:*/
#line 3108 "./marpa.w"
XRL t_source_xrl;
/*:359*//*365:*/
#line 3157 "./marpa.w"
AHM t_first_ahm;
/*:365*/
#line 2897 "./marpa.w"
/*329:*/
#line 2917 "./marpa.w"
IRLID t_irl_id;
/*:329*//*336:*/
#line 2954 "./marpa.w"
int t_length;
/*:336*//*338:*/
#line 2969 "./marpa.w"
int t_ahm_count;
/*:338*//*350:*/
#line 3048 "./marpa.w"
int t_real_symbol_count;
/*:350*//*353:*/
#line 3066 "./marpa.w"
int t_virtual_start;
/*:353*//*356:*/
#line 3086 "./marpa.w"
int t_virtual_end;
/*:356*//*362:*/
#line 3135 "./marpa.w"
Marpa_Rank t_rank;
/*:362*//*468:*/
#line 4943 "./marpa.w"
int t_symbol_instance_base;
int t_last_proper_symi;
/*:468*/
#line 2898 "./marpa.w"
/*341:*/
#line 3002 "./marpa.w"
BITFIELD t_is_virtual_lhs:1;
/*:341*//*344:*/
#line 3018 "./marpa.w"
BITFIELD t_is_virtual_rhs:1;
/*:344*//*347:*/
#line 3037 "./marpa.w"
BITFIELD t_is_right_recursive:1;
/*:347*/
#line 2899 "./marpa.w"
/*331:*/
#line 2922 "./marpa.w"
NSYID t_nsyid_array[1];
/*:331*/
#line 2900 "./marpa.w"
};
typedef struct s_irl IRL_Object;
/*:326*//*378:*/
#line 3343 "./marpa.w"
struct sym_rule_pair
{
XSYID t_symid;
RULEID t_ruleid;
};
/*:378*//*449:*/
#line 4817 "./marpa.w"
struct s_ahm{
/*458:*/
#line 4867 "./marpa.w"
IRL t_irl;
/*:458*//*471:*/
#line 4958 "./marpa.w"
CIL t_predicted_irl_cil;
CIL t_lhs_cil;
/*:471*//*472:*/
#line 4966 "./marpa.w"
CIL t_zwa_cil;
/*:472*//*492:*/
#line 5177 "./marpa.w"
CIL t_completion_xsyids;
CIL t_nulled_xsyids;
CIL t_prediction_xsyids;
/*:492*//*496:*/
#line 5207 "./marpa.w"
XRL t_xrl;
/*:496*//*499:*/
#line 5236 "./marpa.w"
CIL t_event_ahmids;
/*:499*/
#line 4819 "./marpa.w"
/*459:*/
#line 4877 "./marpa.w"
NSYID t_postdot_nsyid;
/*:459*//*460:*/
#line 4886 "./marpa.w"
int t_leading_nulls;
/*:460*//*461:*/
#line 4897 "./marpa.w"
int t_position;
/*:461*//*463:*/
#line 4913 "./marpa.w"
int t_quasi_position;
/*:463*//*465:*/
#line 4933 "./marpa.w"
int t_symbol_instance;
/*:465*//*497:*/
#line 5215 "./marpa.w"
int t_xrl_position;
/*:497*//*500:*/
#line 5240 "./marpa.w"
int t_event_group_size;
/*:500*/
#line 4820 "./marpa.w"
/*473:*/
#line 4975 "./marpa.w"
BITFIELD t_predicts_zwa:1;
/*:473*//*495:*/
#line 5198 "./marpa.w"
BITFIELD t_was_predicted:1;
BITFIELD t_is_initial:1;
/*:495*/
#line 4821 "./marpa.w"
};
/*:449*//*530:*/
#line 5754 "./marpa.w"
struct s_g_zwa{
ZWAID t_id;
BITFIELD t_default_value:1;
};
typedef struct s_g_zwa GZWA_Object;
/*:530*//*533:*/
#line 5771 "./marpa.w"
struct s_zwp{
XRLID t_xrl_id;
int t_dot;
ZWAID t_zwaid;
};
typedef struct s_zwp ZWP_Object;
/*:533*//*614:*/
#line 6591 "./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;
/*:614*//*625:*/
#line 6661 "./marpa.w"
struct s_earley_set_key{
JEARLEME t_earleme;
};
typedef struct s_earley_set_key YSK_Object;
/*:625*//*626:*/
#line 6666 "./marpa.w"
struct s_earley_set{
YSK_Object t_key;
union u_postdot_item**t_postdot_ary;
YS t_next_earley_set;
/*628:*/
#line 6682 "./marpa.w"
YIM*t_earley_items;
/*:628*//*1189:*/
#line 14429 "./marpa.w"
PSL t_dot_psl;
/*:1189*/
#line 6671 "./marpa.w"
int t_postdot_sym_count;
/*627:*/
#line 6679 "./marpa.w"
int t_yim_count;
/*:627*//*629:*/
#line 6693 "./marpa.w"
int t_ordinal;
/*:629*//*633:*/
#line 6711 "./marpa.w"
int t_value;
void*t_pvalue;
/*:633*/
#line 6673 "./marpa.w"
};
typedef struct s_earley_set YS_Object;
/*:626*//*657:*/
#line 7048 "./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;
/*:657*//*660:*/
#line 7084 "./marpa.w"
struct s_leo_item{
YIX_Object t_earley_ix;
/*661:*/
#line 7100 "./marpa.w"
CIL t_cil;
/*:661*/
#line 7087 "./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;
/*:660*//*663:*/
#line 7118 "./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;
/*:663*//*692:*/
#line 7482 "./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;
/*:692*//*849:*/
#line 9923 "./marpa.w"
struct s_ur_node_stack{
struct marpa_obstack*t_obs;
UR t_base;
UR t_top;
};
/*:849*//*850:*/
#line 9930 "./marpa.w"
struct s_ur_node{
UR t_prev;
UR t_next;
YIM t_earley_item;
};
typedef struct s_ur_node UR_Object;
/*:850*//*873:*/
#line 10212 "./marpa.w"
struct s_draft_or_node
{
/*872:*/
#line 10205 "./marpa.w"
/*871:*/
#line 10202 "./marpa.w"
int t_position;
/*:871*/
#line 10206 "./marpa.w"
int t_end_set_ordinal;
int t_start_set_ordinal;
ORID t_id;
IRL t_irl;
/*:872*/
#line 10215 "./marpa.w"
DAND t_draft_and_node;
};
/*:873*//*874:*/
#line 10219 "./marpa.w"
struct s_final_or_node
{
/*872:*/
#line 10205 "./marpa.w"
/*871:*/
#line 10202 "./marpa.w"
int t_position;
/*:871*/
#line 10206 "./marpa.w"
int t_end_set_ordinal;
int t_start_set_ordinal;
ORID t_id;
IRL t_irl;
/*:872*/
#line 10222 "./marpa.w"
int t_first_and_node_id;
int t_and_node_count;
};
/*:874*//*875:*/
#line 10227 "./marpa.w"
struct s_valued_token_or_node
{
/*871:*/
#line 10202 "./marpa.w"
int t_position;
/*:871*/
#line 10230 "./marpa.w"
NSYID t_nsyid;
int t_value;
};
/*:875*//*876:*/
#line 10238 "./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;
/*:876*//*898:*/
#line 10586 "./marpa.w"
struct s_draft_and_node{
DAND t_next;
OR t_predecessor;
OR t_cause;
};
typedef struct s_draft_and_node DAND_Object;
/*:898*//*924:*/
#line 10985 "./marpa.w"
struct s_and_node{
OR t_current;
OR t_predecessor;
OR t_cause;
};
typedef struct s_and_node AND_Object;
/*:924*//*940:*/
#line 11151 "./marpa.w"
struct s_bocage_setup_per_ys{
OR*t_or_node_by_item;
PSL t_or_psl;
PSL t_and_psl;
};
/*:940*//*966:*/
#line 11373 "./marpa.w"
struct marpa_order{
struct marpa_obstack*t_ordering_obs;
ANDID**t_and_node_orderings;
/*969:*/
#line 11391 "./marpa.w"
BOCAGE t_bocage;
/*:969*/
#line 11377 "./marpa.w"
/*972:*/
#line 11411 "./marpa.w"
int t_ref_count;
/*:972*//*979:*/
#line 11467 "./marpa.w"
int t_ambiguity_metric;
/*:979*//*985:*/
#line 11579 "./marpa.w"
int t_high_rank_count;
/*:985*/
#line 11378 "./marpa.w"
/*983:*/
#line 11561 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:983*/
#line 11379 "./marpa.w"
BITFIELD t_is_frozen:1;
};
/*:966*//*1004:*/
#line 11912 "./marpa.w"
/*1039:*/
#line 12359 "./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;
/*:1039*/
#line 11913 "./marpa.w"
/*1044:*/
#line 12407 "./marpa.w"
struct s_value{
struct marpa_value public;
Marpa_Tree t_tree;
/*1048:*/
#line 12485 "./marpa.w"
struct marpa_obstack*t_obs;
/*:1048*//*1053:*/
#line 12532 "./marpa.w"
MARPA_DSTACK_DECLARE(t_virtual_stack);
/*:1053*//*1075:*/
#line 12685 "./marpa.w"
LBV t_xsy_is_valued;
LBV t_xrl_is_valued;
LBV t_valued_locked;
/*:1075*/
#line 12411 "./marpa.w"
/*1058:*/
#line 12580 "./marpa.w"
int t_ref_count;
/*:1058*//*1070:*/
#line 12661 "./marpa.w"
NOOKID t_nook;
/*:1070*/
#line 12412 "./marpa.w"
int t_token_type;
int t_next_value_type;
/*1065:*/
#line 12633 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:1065*//*1067:*/
#line 12640 "./marpa.w"
BITFIELD t_trace:1;
/*:1067*/
#line 12415 "./marpa.w"
};
/*:1044*/
#line 11914 "./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;
/*1010:*/
#line 11985 "./marpa.w"
int t_ref_count;
/*:1010*//*1017:*/
#line 12065 "./marpa.w"
int t_pause_counter;
/*:1017*/
#line 11920 "./marpa.w"
/*1023:*/
#line 12137 "./marpa.w"
BITFIELD t_is_exhausted:1;
/*:1023*//*1026:*/
#line 12145 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:1026*/
#line 11921 "./marpa.w"
int t_parse_count;
};
/*:1004*//*1132:*/
#line 13722 "./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;
/*:1132*//*1153:*/
#line 13940 "./marpa.w"
struct s_dqueue{int t_current;struct marpa_dstack_s t_stack;};
/*:1153*//*1179:*/
#line 14332 "./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;
/*:1179*//*1181:*/
#line 14357 "./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;
/*:1181*/
#line 16226 "./marpa.w"
/*:1338*//*1339:*/
#line 16231 "./marpa.w"
/*40:*/
#line 570 "./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;
/*:40*//*822:*/
#line 9573 "./marpa.w"
static const struct marpa_progress_item progress_report_not_ready= {-2,-2,-2};
/*:822*//*877:*/
#line 10246 "./marpa.w"
static const int dummy_or_node_type= DUMMY_OR_NODE;
static const OR dummy_or_node= (OR)&dummy_or_node_type;
/*:877*//*1098:*/
#line 13207 "./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;
/*:1098*/
#line 16232 "./marpa.w"
/*:1339*//*1340:*/
#line 16234 "./marpa.w"
/*546:*/
#line 5962 "./marpa.w"
struct marpa_r{
/*554:*/
#line 6042 "./marpa.w"
GRAMMAR t_grammar;
/*:554*//*561:*/
#line 6069 "./marpa.w"
YS t_first_earley_set;
YS t_latest_earley_set;
JEARLEME t_current_earleme;
/*:561*//*573:*/
#line 6152 "./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;
/*:573*//*576:*/
#line 6177 "./marpa.w"
Bit_Vector t_bv_nsyid_is_expected;
/*:576*//*580:*/
#line 6254 "./marpa.w"
LBV t_nsy_expected_is_event;
/*:580*//*602:*/
#line 6528 "./marpa.w"
Bit_Vector t_bv_irl_seen;
MARPA_DSTACK_DECLARE(t_irl_cil_stack);
/*:602*//*611:*/
#line 6582 "./marpa.w"
struct marpa_obstack*t_obs;
/*:611*//*615:*/
#line 6603 "./marpa.w"
ZWA t_zwas;
/*:615*//*693:*/
#line 7492 "./marpa.w"
MARPA_DSTACK_DECLARE(t_alternatives);
/*:693*//*710:*/
#line 7779 "./marpa.w"
LBV t_valued_terminal;
LBV t_unvalued_terminal;
LBV t_valued;
LBV t_unvalued;
LBV t_valued_locked;
/*:710*//*718:*/
#line 7992 "./marpa.w"
MARPA_DSTACK_DECLARE(t_yim_work_stack);
/*:718*//*722:*/
#line 8007 "./marpa.w"
MARPA_DSTACK_DECLARE(t_completion_stack);
/*:722*//*726:*/
#line 8018 "./marpa.w"
MARPA_DSTACK_DECLARE(t_earley_set_stack);
/*:726*//*763:*/
#line 8648 "./marpa.w"
Bit_Vector t_bv_lim_symbols;
Bit_Vector t_bv_pim_symbols;
void**t_pim_workarea;
/*:763*//*782:*/
#line 8932 "./marpa.w"
void**t_lim_chain;
/*:782*//*817:*/
#line 9549 "./marpa.w"
const struct marpa_progress_item*t_current_report_item;
MARPA_AVL_TRAV t_progress_report_traverser;
/*:817*//*851:*/
#line 9939 "./marpa.w"
struct s_ur_node_stack t_ur_node_stack;
/*:851*//*1182:*/
#line 14365 "./marpa.w"
PSAR_Object t_dot_psar_object;
/*:1182*//*1232:*/
#line 14811 "./marpa.w"
struct s_earley_set*t_trace_earley_set;
/*:1232*//*1239:*/
#line 14887 "./marpa.w"
YIM t_trace_earley_item;
/*:1239*//*1253:*/
#line 15086 "./marpa.w"
union u_postdot_item**t_trace_pim_nsy_p;
union u_postdot_item*t_trace_postdot_item;
/*:1253*//*1260:*/
#line 15230 "./marpa.w"
SRCL t_trace_source_link;
/*:1260*/
#line 5964 "./marpa.w"
/*549:*/
#line 5992 "./marpa.w"
int t_ref_count;
/*:549*//*565:*/
#line 6106 "./marpa.w"
int t_earley_item_warning_threshold;
/*:565*//*569:*/
#line 6135 "./marpa.w"
JEARLEME t_furthest_earleme;
/*:569*//*574:*/
#line 6156 "./marpa.w"
int t_active_event_count;
/*:574*//*609:*/
#line 6575 "./marpa.w"
YSID t_first_inconsistent_ys;
/*:609*//*630:*/
#line 6697 "./marpa.w"
int t_earley_set_count;
/*:630*/
#line 5965 "./marpa.w"
/*558:*/
#line 6060 "./marpa.w"
BITFIELD t_input_phase:2;
/*:558*//*598:*/
#line 6495 "./marpa.w"
BITFIELD t_use_leo_flag:1;
BITFIELD t_is_using_leo:1;
/*:598*//*605:*/
#line 6547 "./marpa.w"
BITFIELD t_is_exhausted:1;
/*:605*//*1261:*/
#line 15232 "./marpa.w"
BITFIELD t_trace_source_type:3;
/*:1261*/
#line 5966 "./marpa.w"
};
/*:546*/
#line 16235 "./marpa.w"
/*673:*/
#line 7206 "./marpa.w"
struct s_token_source{
NSYID t_nsyid;
int t_value;
};
/*:673*//*674:*/
#line 7215 "./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;
};
/*:674*//*676:*/
#line 7230 "./marpa.w"
struct s_source_link{
SRCL t_next;
struct s_source t_source;
};
typedef struct s_source_link SRCL_Object;
/*:676*//*677:*/
#line 7237 "./marpa.w"
struct s_ambiguous_source{
SRCL t_leo;
SRCL t_token;
SRCL t_completion;
};
/*:677*//*678:*/
#line 7244 "./marpa.w"
union u_source_container{
struct s_ambiguous_source t_ambiguous;
struct s_source_link t_unique;
};
/*:678*/
#line 16236 "./marpa.w"
/*647:*/
#line 6890 "./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;
/*:647*/
#line 16237 "./marpa.w"
/*930:*/
#line 11042 "./marpa.w"
struct marpa_bocage{
/*878:*/
#line 10257 "./marpa.w"
OR*t_or_nodes;
AND t_and_nodes;
/*:878*//*882:*/
#line 10286 "./marpa.w"
GRAMMAR t_grammar;
/*:882*//*933:*/
#line 11057 "./marpa.w"
struct marpa_obstack*t_obs;
/*:933*//*936:*/
#line 11125 "./marpa.w"
LBV t_valued_bv;
LBV t_valued_locked_bv;
/*:936*/
#line 11044 "./marpa.w"
/*879:*/
#line 10260 "./marpa.w"
int t_or_node_capacity;
int t_or_node_count;
int t_and_node_count;
ORID t_top_or_node_id;
/*:879*//*950:*/
#line 11273 "./marpa.w"
int t_ambiguity_metric;
/*:950*//*954:*/
#line 11287 "./marpa.w"
int t_ref_count;
/*:954*/
#line 11045 "./marpa.w"
/*961:*/
#line 11345 "./marpa.w"
BITFIELD t_is_nulling:1;
/*:961*/
#line 11046 "./marpa.w"
};
/*:930*/
#line 16238 "./marpa.w"
/*:1340*/
#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 int trigger_trivial_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);
/*1341:*/
#line 16240 "./marpa.w"
/*1229:*/
#line 14795 "./marpa.w"
extern void*(*const marpa__out_of_memory)(void);
/*:1229*//*1321:*/
#line 16056 "./marpa.w"
extern int marpa__default_debug_handler(const char*format,...);
extern int(*marpa__debug_handler)(const char*,...);
extern int marpa__debug_level;
/*:1321*/
#line 16241 "./marpa.w"
#if MARPA_DEBUG
/*1326:*/
#line 16088 "./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;
/*:1326*//*1328:*/
#line 16114 "./marpa.w"
static char*lim_tag_safe(char*buffer,LIM lim)UNUSED;
static char*lim_tag(LIM lim)UNUSED;
/*:1328*//*1330:*/
#line 16140 "./marpa.w"
static const char*or_tag_safe(char*buffer,OR or)UNUSED;
static const char*or_tag(OR or)UNUSED;
/*:1330*//*1332:*/
#line 16172 "./marpa.w"
static const char*ahm_tag_safe(char*buffer,AHM ahm)UNUSED;
static const char*ahm_tag(AHM ahm)UNUSED;
/*:1332*/
#line 16243 "./marpa.w"
/*1327:*/
#line 16093 "./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);
}
/*:1327*//*1329:*/
#line 16119 "./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);
}
/*:1329*//*1331:*/
#line 16144 "./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);
}
/*:1331*//*1333:*/
#line 16175 "./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);
}
/*:1333*/
#line 16244 "./marpa.w"
#endif
/*1325:*/
#line 16080 "./marpa.w"
int(*marpa__debug_handler)(const char*,...)=
marpa__default_debug_handler;
int marpa__debug_level= 0;
/*:1325*/
#line 16246 "./marpa.w"
/*41:*/
#line 581 "./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;
}
/*:41*//*42:*/
#line 599 "./marpa.w"
Marpa_Error_Code
marpa_version(int*version)
{
*version++= marpa_major_version;
*version++= marpa_minor_version;
*version= marpa_micro_version;
return 0;
}
/*:42*//*45:*/
#line 618 "./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;
}
/*:45*//*46:*/
#line 627 "./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
}
/*:46*//*51:*/
#line 664 "./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;
/*54:*/
#line 685 "./marpa.w"
g->t_ref_count= 1;
/*:54*//*60:*/
#line 741 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_xsy_stack,XSY);
MARPA_DSTACK_SAFE(g->t_nsy_stack);
/*:60*//*69:*/
#line 797 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_xrl_stack,RULE);
MARPA_DSTACK_SAFE(g->t_irl_stack);
/*:69*//*79:*/
#line 845 "./marpa.w"
g->t_start_xsy_id= -1;
/*:79*//*83:*/
#line 883 "./marpa.w"
g->t_start_irl= NULL;
/*:83*//*86:*/
#line 897 "./marpa.w"
External_Size_of_G(g)= 0;
/*:86*//*89:*/
#line 910 "./marpa.w"
g->t_max_rule_length= 0;
/*:89*//*93:*/
#line 923 "./marpa.w"
g->t_default_rank= 0;
/*:93*//*98:*/
#line 958 "./marpa.w"
g->t_is_precomputed= 0;
/*:98*//*101:*/
#line 970 "./marpa.w"
g->t_has_cycle= 0;
/*:101*//*104:*/
#line 990 "./marpa.w"
g->t_bv_nsyid_is_terminal= NULL;
/*:104*//*106:*/
#line 1005 "./marpa.w"
g->t_lbv_xsyid_is_completion_event= NULL;
g->t_lbv_xsyid_completion_event_starts_active= NULL;
g->t_lbv_xsyid_is_nulled_event= NULL;
g->t_lbv_xsyid_nulled_event_starts_active= NULL;
g->t_lbv_xsyid_is_prediction_event= NULL;
g->t_lbv_xsyid_prediction_event_starts_active= NULL;
/*:106*//*113:*/
#line 1046 "./marpa.w"
MARPA_DSTACK_INIT(g->t_events,GEV_Object,INITIAL_G_EVENTS_CAPACITY);
/*:113*//*121:*/
#line 1118 "./marpa.w"
(g)->t_xrl_tree= _marpa_avl_create(duplicate_rule_cmp,NULL);
/*:121*//*125:*/
#line 1149 "./marpa.w"
g->t_obs= marpa_obs_init;
g->t_xrl_obs= marpa_obs_init;
/*:125*//*128:*/
#line 1165 "./marpa.w"
cilar_init(&(g)->t_cilar);
/*:128*//*137:*/
#line 1213 "./marpa.w"
g->t_error= MARPA_ERR_NONE;
g->t_error_string= NULL;
/*:137*//*162:*/
#line 1376 "./marpa.w"
g->t_force_valued= 0;
/*:162*//*455:*/
#line 4849 "./marpa.w"
g->t_ahms= NULL;
/*:455*//*527:*/
#line 5742 "./marpa.w"
MARPA_DSTACK_INIT2(g->t_gzwa_stack,GZWA);
/*:527*//*535:*/
#line 5781 "./marpa.w"
(g)->t_zwp_tree= _marpa_avl_create(zwp_cmp,NULL);
/*:535*/
#line 676 "./marpa.w"
g->t_is_ok= I_AM_OK;
return g;
}
/*:51*//*55:*/
#line 695 "./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);}
/*:55*//*57:*/
#line 712 "./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);}
/*:57*//*58:*/
#line 724 "./marpa.w"
PRIVATE
void grammar_free(GRAMMAR g)
{
/*61:*/
#line 745 "./marpa.w"
{
MARPA_DSTACK_DESTROY(g->t_xsy_stack);
MARPA_DSTACK_DESTROY(g->t_nsy_stack);
}
/*:61*//*70:*/
#line 801 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_irl_stack);
MARPA_DSTACK_DESTROY(g->t_xrl_stack);
/*:70*//*114:*/
#line 1048 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_events);
/*:114*//*123:*/
#line 1125 "./marpa.w"
/*122:*/
#line 1120 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:122*/
#line 1126 "./marpa.w"
/*:123*//*126:*/
#line 1152 "./marpa.w"
marpa_obs_free(g->t_obs);
marpa_obs_free(g->t_xrl_obs);
/*:126*//*129:*/
#line 1167 "./marpa.w"
cilar_destroy(&(g)->t_cilar);
/*:129*//*456:*/
#line 4851 "./marpa.w"
my_free(g->t_ahms);
/*:456*//*528:*/
#line 5744 "./marpa.w"
MARPA_DSTACK_DESTROY(g->t_gzwa_stack);
/*:528*//*536:*/
#line 5783 "./marpa.w"
{
_marpa_avl_destroy((g)->t_zwp_tree);
(g)->t_zwp_tree= NULL;
}
/*:536*//*537:*/
#line 5789 "./marpa.w"
/*122:*/
#line 1120 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:122*/
#line 5790 "./marpa.w"
/*:537*/
#line 728 "./marpa.w"
my_free(g);
}
/*:58*//*63:*/
#line 753 "./marpa.w"
int marpa_g_highest_symbol_id(Marpa_Grammar g){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 755 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 756 "./marpa.w"
return XSY_Count_of_G(g)-1;
}
/*:63*//*65:*/
#line 765 "./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;
}
/*:65*//*66:*/
#line 777 "./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);
}
/*:66*//*67:*/
#line 784 "./marpa.w"
PRIVATE int nsy_is_valid(GRAMMAR g,NSYID nsyid)
{
return nsyid>=0&&nsyid<NSY_Count_of_G(g);
}
/*:67*//*74:*/
#line 808 "./marpa.w"
int marpa_g_highest_rule_id(Marpa_Grammar g){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 810 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 811 "./marpa.w"
return XRL_Count_of_G(g)-1;
}
int _marpa_g_irl_count(Marpa_Grammar g){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 815 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 816 "./marpa.w"
return IRL_Count_of_G(g);
}
/*:74*//*76:*/
#line 826 "./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);
}
/*:76*//*80:*/
#line 847 "./marpa.w"
Marpa_Symbol_ID marpa_g_start_symbol(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 850 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 851 "./marpa.w"
if(g->t_start_xsy_id<0){
MARPA_ERROR(MARPA_ERR_NO_START_SYMBOL);
return-1;
}
return g->t_start_xsy_id;
}
/*:80*//*81:*/
#line 864 "./marpa.w"
Marpa_Symbol_ID marpa_g_start_symbol_set(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 867 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 868 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 869 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 870 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 871 "./marpa.w"
return g->t_start_xsy_id= xsy_id;
}
/*:81*//*94:*/
#line 925 "./marpa.w"
Marpa_Rank marpa_g_default_rank(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 928 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 930 "./marpa.w"
return Default_Rank_of_G(g);
}
/*:94*//*95:*/
#line 935 "./marpa.w"
Marpa_Rank marpa_g_default_rank_set(Marpa_Grammar g,Marpa_Rank rank)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 938 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 940 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 941 "./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;
}
/*:95*//*99:*/
#line 960 "./marpa.w"
int marpa_g_is_precomputed(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 963 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 964 "./marpa.w"
return G_is_Precomputed(g);
}
/*:99*//*102:*/
#line 972 "./marpa.w"
int marpa_g_has_cycle(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 975 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 976 "./marpa.w"
return g->t_has_cycle;
}
/*:102*//*116:*/
#line 1058 "./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;
}
/*:116*//*117:*/
#line 1068 "./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;
}
/*:117*//*118:*/
#line 1079 "./marpa.w"
Marpa_Event_Type
marpa_g_event(Marpa_Grammar g,Marpa_Event*public_event,
int ix)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1084 "./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;
}
/*:118*//*119:*/
#line 1104 "./marpa.w"
Marpa_Event_Type
marpa_g_event_count(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1108 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1109 "./marpa.w"
return MARPA_DSTACK_LENGTH(g->t_events);
}
/*:119*//*139:*/
#line 1224 "./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;
}
/*:139*//*140:*/
#line 1235 "./marpa.w"
Marpa_Error_Code
marpa_g_error_clear(Marpa_Grammar g)
{
clear_error(g);
return g->t_error;
}
/*:140*//*146:*/
#line 1265 "./marpa.w"
PRIVATE XSY
symbol_new(GRAMMAR g)
{
XSY xsy= marpa_obs_new(g->t_obs,struct s_xsy,1);
/*151:*/
#line 1298 "./marpa.w"
xsy->t_rank= Default_Rank_of_G(g);
/*:151*//*155:*/
#line 1344 "./marpa.w"
XSY_is_LHS(xsy)= 0;
/*:155*//*157:*/
#line 1351 "./marpa.w"
XSY_is_Sequence_LHS(xsy)= 0;
/*:157*//*159:*/
#line 1367 "./marpa.w"
XSY_is_Valued(xsy)= g->t_force_valued?1:0;
XSY_is_Valued_Locked(xsy)= g->t_force_valued?1:0;
/*:159*//*167:*/
#line 1435 "./marpa.w"
xsy->t_is_accessible= 0;
/*:167*//*170:*/
#line 1456 "./marpa.w"
xsy->t_is_counted= 0;
/*:170*//*173:*/
#line 1472 "./marpa.w"
xsy->t_is_nulling= 0;
/*:173*//*176:*/
#line 1489 "./marpa.w"
xsy->t_is_nullable= 0;
/*:176*//*179:*/
#line 1512 "./marpa.w"
xsy->t_is_terminal= 0;
xsy->t_is_locked_terminal= 0;
/*:179*//*184:*/
#line 1557 "./marpa.w"
xsy->t_is_productive= 0;
/*:184*//*187:*/
#line 1580 "./marpa.w"
xsy->t_is_completion_event= 0;
xsy->t_completion_event_starts_active= 0;
/*:187*//*192:*/
#line 1650 "./marpa.w"
xsy->t_is_nulled_event= 0;
xsy->t_nulled_event_starts_active= 0;
/*:192*//*197:*/
#line 1723 "./marpa.w"
xsy->t_is_prediction_event= 0;
xsy->t_prediction_event_starts_active= 0;
/*:197*//*203:*/
#line 1802 "./marpa.w"
Nulled_XSYIDs_of_XSY(xsy)= NULL;
/*:203*//*206:*/
#line 1818 "./marpa.w"
NSY_of_XSY(xsy)= NULL;
/*:206*//*210:*/
#line 1850 "./marpa.w"
Nulling_NSY_of_XSY(xsy)= NULL;
/*:210*/
#line 1270 "./marpa.w"
symbol_add(g,xsy);
return xsy;
}
/*:146*//*147:*/
#line 1275 "./marpa.w"
Marpa_Symbol_ID
marpa_g_symbol_new(Marpa_Grammar g)
{
const XSY symbol= symbol_new(g);
return ID_of_XSY(symbol);
}
/*:147*//*149:*/
#line 1284 "./marpa.w"
int marpa_g_symbol_is_start(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1287 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1288 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1289 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1290 "./marpa.w"
if(g->t_start_xsy_id<0)return 0;
return xsy_id==g->t_start_xsy_id?1:0;
}
/*:149*//*152:*/
#line 1301 "./marpa.w"
int marpa_g_symbol_rank(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1306 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1308 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1309 "./marpa.w"
/*1207:*/
#line 14585 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1207*/
#line 1310 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
return Rank_of_XSY(xsy);
}
/*:152*//*153:*/
#line 1314 "./marpa.w"
int marpa_g_symbol_rank_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,Marpa_Rank rank)
{
XSY xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1319 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1321 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1322 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1323 "./marpa.w"
/*1207:*/
#line 14585 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1207*/
#line 1324 "./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;
}
/*:153*//*163:*/
#line 1378 "./marpa.w"
int marpa_g_force_valued(Marpa_Grammar g)
{
XSYID xsyid;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1382 "./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;
}
/*:163*//*164:*/
#line 1397 "./marpa.w"
int marpa_g_symbol_is_valued(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1402 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1403 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1404 "./marpa.w"
return XSY_is_Valued(XSY_by_ID(xsy_id));
}
/*:164*//*165:*/
#line 1408 "./marpa.w"
int marpa_g_symbol_is_valued_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY symbol;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1413 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1414 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1415 "./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;
}
/*:165*//*168:*/
#line 1443 "./marpa.w"
int marpa_g_symbol_is_accessible(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1446 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1447 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 1448 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1449 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1450 "./marpa.w"
return XSY_is_Accessible(XSY_by_ID(xsy_id));
}
/*:168*//*171:*/
#line 1458 "./marpa.w"
int marpa_g_symbol_is_counted(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1462 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1463 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1464 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1465 "./marpa.w"
return XSY_by_ID(xsy_id)->t_is_counted;
}
/*:171*//*174:*/
#line 1474 "./marpa.w"
int marpa_g_symbol_is_nulling(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1477 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1478 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 1479 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1480 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1481 "./marpa.w"
return XSY_is_Nulling(XSY_by_ID(xsy_id));
}
/*:174*//*177:*/
#line 1491 "./marpa.w"
int marpa_g_symbol_is_nullable(Marpa_Grammar g,Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1494 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1495 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 1496 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1497 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1498 "./marpa.w"
return XSYID_is_Nullable(xsy_id);
}
/*:177*//*181:*/
#line 1518 "./marpa.w"
int marpa_g_symbol_is_terminal(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1522 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1523 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1524 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1525 "./marpa.w"
return XSYID_is_Terminal(xsy_id);
}
/*:181*//*182:*/
#line 1528 "./marpa.w"
int marpa_g_symbol_is_terminal_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY symbol;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1533 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1534 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1535 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1536 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1537 "./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);
}
/*:182*//*185:*/
#line 1559 "./marpa.w"
int marpa_g_symbol_is_productive(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1564 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1565 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 1566 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1567 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1568 "./marpa.w"
return XSY_is_Productive(XSY_by_ID(xsy_id));
}
/*:185*//*188:*/
#line 1583 "./marpa.w"
int marpa_g_symbol_is_completion_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1587 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1588 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1589 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1590 "./marpa.w"
return XSYID_is_Completion_Event(xsy_id);
}
/*:188*//*189:*/
#line 1593 "./marpa.w"
int marpa_g_symbol_is_completion_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1598 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1599 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1600 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1601 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1602 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
XSY_Completion_Event_Starts_Active(xsy)= Boolean(value);
return XSY_is_Completion_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:189*//*190:*/
#line 1612 "./marpa.w"
int
marpa_g_completion_symbol_activate(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id,
int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1618 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1619 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1620 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1621 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1622 "./marpa.w"
switch(reactivate){
case 0:
XSYID_Completion_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 0;
case 1:
if(!XSYID_is_Completion_Event(xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_COMPLETION_EVENT);
}
XSYID_Completion_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:190*//*193:*/
#line 1653 "./marpa.w"
int marpa_g_symbol_is_nulled_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1657 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1658 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1659 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1660 "./marpa.w"
return XSYID_is_Nulled_Event(xsy_id);
}
/*:193*//*194:*/
#line 1666 "./marpa.w"
int marpa_g_symbol_is_nulled_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1671 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1672 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1673 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1674 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1675 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
XSY_Nulled_Event_Starts_Active(xsy)= Boolean(value);
return XSY_is_Nulled_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:194*//*195:*/
#line 1685 "./marpa.w"
int
marpa_g_nulled_symbol_activate(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id,
int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1691 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1692 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1693 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1694 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1695 "./marpa.w"
switch(reactivate){
case 0:
XSYID_Nulled_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 0;
case 1:
if(!XSYID_is_Nulled_Event(xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_COMPLETION_EVENT);
}
XSYID_Nulled_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:195*//*198:*/
#line 1726 "./marpa.w"
int marpa_g_symbol_is_prediction_event(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1730 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1731 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1732 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1733 "./marpa.w"
return XSYID_is_Prediction_Event(xsy_id);
}
/*:198*//*199:*/
#line 1736 "./marpa.w"
int marpa_g_symbol_is_prediction_event_set(
Marpa_Grammar g,Marpa_Symbol_ID xsy_id,int value)
{
XSY xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1741 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1742 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1743 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1744 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1745 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
switch(value){
case 0:case 1:
XSY_Prediction_Event_Starts_Active(xsy)= Boolean(value);
return XSY_is_Prediction_Event(xsy)= Boolean(value);
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:199*//*200:*/
#line 1755 "./marpa.w"
int
marpa_g_prediction_symbol_activate(Marpa_Grammar g,
Marpa_Symbol_ID xsy_id,
int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1761 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1762 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 1763 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1764 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1765 "./marpa.w"
switch(reactivate){
case 0:
XSYID_Prediction_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 0;
case 1:
if(!XSYID_is_Prediction_Event(xsy_id)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_NOT_COMPLETION_EVENT);
}
XSYID_Prediction_Event_Starts_Active(xsy_id)
= Boolean(reactivate);
return 1;
}
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*:200*//*201:*/
#line 1785 "./marpa.w"
/*:201*//*207:*/
#line 1819 "./marpa.w"
Marpa_NSY_ID _marpa_g_xsy_nsy(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
NSY nsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1826 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1827 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1828 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
nsy= NSY_of_XSY(xsy);
return nsy?ID_of_NSY(nsy):-1;
}
/*:207*//*211:*/
#line 1851 "./marpa.w"
Marpa_NSY_ID _marpa_g_xsy_nulling_nsy(
Marpa_Grammar g,
Marpa_Symbol_ID xsy_id)
{
XSY xsy;
NSY nsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1858 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 1859 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 1860 "./marpa.w"
xsy= XSY_by_ID(xsy_id);
nsy= Nulling_NSY_of_XSY(xsy);
return nsy?ID_of_NSY(nsy):-1;
}
/*:211*//*213:*/
#line 1872 "./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;
}
/*:213*//*220:*/
#line 1930 "./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;
/*218:*/
#line 1922 "./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);
/*:218*//*228:*/
#line 1998 "./marpa.w"
NSY_is_Start(nsy)= 0;
/*:228*//*231:*/
#line 2012 "./marpa.w"
NSY_is_LHS(nsy)= 0;
/*:231*//*234:*/
#line 2026 "./marpa.w"
NSY_is_Nulling(nsy)= 0;
/*:234*//*237:*/
#line 2043 "./marpa.w"
LHS_CIL_of_NSY(nsy)= NULL;
/*:237*//*239:*/
#line 2051 "./marpa.w"
NSY_is_Semantic(nsy)= 0;
/*:239*//*242:*/
#line 2074 "./marpa.w"
Source_XSY_of_NSY(nsy)= NULL;
/*:242*//*246:*/
#line 2099 "./marpa.w"
LHS_XRL_of_NSY(nsy)= NULL;
XRL_Offset_of_NSY(nsy)= -1;
/*:246*//*251:*/
#line 2150 "./marpa.w"
Rank_of_NSY(nsy)= Default_Rank_of_G(g)*EXTERNAL_RANK_FACTOR+MAXIMUM_CHAF_RANK;
/*:251*/
#line 1937 "./marpa.w"
return nsy;
}
/*:220*//*221:*/
#line 1943 "./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;
}
/*:221*//*222:*/
#line 1955 "./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;
}
/*:222*//*223:*/
#line 1966 "./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;
}
/*:223*//*226:*/
#line 1988 "./marpa.w"
int _marpa_g_nsy_count(Marpa_Grammar g){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 1990 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 1991 "./marpa.w"
return NSY_Count_of_G(g);
}
/*:226*//*229:*/
#line 1999 "./marpa.w"
int _marpa_g_nsy_is_start(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2002 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2003 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2004 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2005 "./marpa.w"
return NSY_is_Start(NSY_by_ID(nsy_id));
}
/*:229*//*232:*/
#line 2013 "./marpa.w"
int _marpa_g_nsy_is_lhs(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2016 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2017 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2018 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2019 "./marpa.w"
return NSY_is_LHS(NSY_by_ID(nsy_id));
}
/*:232*//*235:*/
#line 2027 "./marpa.w"
int _marpa_g_nsy_is_nulling(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2030 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2031 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2032 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2033 "./marpa.w"
return NSY_is_Nulling(NSY_by_ID(nsy_id));
}
/*:235*//*240:*/
#line 2052 "./marpa.w"
int _marpa_g_nsy_is_semantic(
Marpa_Grammar g,
Marpa_IRL_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2057 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2058 "./marpa.w"
return NSYID_is_Semantic(nsy_id);
}
/*:240*//*243:*/
#line 2075 "./marpa.w"
Marpa_Rule_ID _marpa_g_source_xsy(
Marpa_Grammar g,
Marpa_IRL_ID nsy_id)
{
XSY source_xsy;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2081 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2082 "./marpa.w"
source_xsy= Source_XSY_of_NSYID(nsy_id);
return ID_of_XSY(source_xsy);
}
/*:243*//*248:*/
#line 2110 "./marpa.w"
Marpa_Rule_ID _marpa_g_nsy_lhs_xrl(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2113 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2114 "./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;
}
/*:248*//*249:*/
#line 2134 "./marpa.w"
int _marpa_g_nsy_xrl_offset(Marpa_Grammar g,Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2137 "./marpa.w"
NSY nsy;
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2139 "./marpa.w"
nsy= NSY_by_ID(nsy_id);
return XRL_Offset_of_NSY(nsy);
}
/*:249*//*252:*/
#line 2152 "./marpa.w"
Marpa_Rank _marpa_g_nsy_rank(
Marpa_Grammar g,
Marpa_NSY_ID nsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2157 "./marpa.w"
/*1208:*/
#line 14590 "./marpa.w"
if(_MARPA_UNLIKELY(!nsy_is_valid(g,nsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_NSYID);
return failure_indicator;
}
/*:1208*/
#line 2158 "./marpa.w"
return Rank_of_NSY(NSY_by_ID(nsy_id));
}
/*:252*//*258:*/
#line 2193 "./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)
{
/*277:*/
#line 2539 "./marpa.w"
rule->t_rank= Default_Rank_of_G(g);
/*:277*//*281:*/
#line 2588 "./marpa.w"
rule->t_null_ranks_high= 0;
/*:281*//*285:*/
#line 2628 "./marpa.w"
rule->t_is_bnf= 0;
/*:285*//*287:*/
#line 2634 "./marpa.w"
rule->t_is_sequence= 0;
/*:287*//*289:*/
#line 2648 "./marpa.w"
rule->t_minimum= -1;
/*:289*//*292:*/
#line 2674 "./marpa.w"
Separator_of_XRL(rule)= -1;
/*:292*//*297:*/
#line 2711 "./marpa.w"
rule->t_is_discard= 0;
/*:297*//*301:*/
#line 2751 "./marpa.w"
rule->t_is_proper_separation= 0;
/*:301*//*305:*/
#line 2772 "./marpa.w"
rule->t_is_loop= 0;
/*:305*//*308:*/
#line 2790 "./marpa.w"
XRL_is_Nulling(rule)= 0;
/*:308*//*311:*/
#line 2809 "./marpa.w"
XRL_is_Nullable(rule)= 0;
/*:311*//*315:*/
#line 2828 "./marpa.w"
XRL_is_Accessible(rule)= 1;
/*:315*//*318:*/
#line 2847 "./marpa.w"
XRL_is_Productive(rule)= 1;
/*:318*//*321:*/
#line 2866 "./marpa.w"
XRL_is_Used(rule)= 0;
/*:321*/
#line 2217 "./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;
}
/*:258*//*259:*/
#line 2233 "./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;
/*342:*/
#line 3003 "./marpa.w"
IRL_has_Virtual_LHS(irl)= 0;
/*:342*//*345:*/
#line 3019 "./marpa.w"
IRL_has_Virtual_RHS(irl)= 0;
/*:345*//*348:*/
#line 3038 "./marpa.w"
IRL_is_Right_Recursive(irl)= 0;
/*:348*//*351:*/
#line 3049 "./marpa.w"
Real_SYM_Count_of_IRL(irl)= 0;
/*:351*//*354:*/
#line 3067 "./marpa.w"
irl->t_virtual_start= -1;
/*:354*//*357:*/
#line 3087 "./marpa.w"
irl->t_virtual_end= -1;
/*:357*//*360:*/
#line 3109 "./marpa.w"
Source_XRL_of_IRL(irl)= NULL;
/*:360*//*363:*/
#line 3136 "./marpa.w"
Rank_of_IRL(irl)= Default_Rank_of_G(g)*EXTERNAL_RANK_FACTOR+MAXIMUM_CHAF_RANK;
/*:363*//*366:*/
#line 3158 "./marpa.w"
First_AHM_of_IRL(irl)= NULL;
/*:366*//*469:*/
#line 4946 "./marpa.w"
Last_Proper_SYMI_of_IRL(irl)= -1;
/*:469*/
#line 2246 "./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;
}
/*:259*//*261:*/
#line 2272 "./marpa.w"
Marpa_Rule_ID
marpa_g_rule_new(Marpa_Grammar g,
Marpa_Symbol_ID lhs_id,Marpa_Symbol_ID*rhs_ids,int length)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2277 "./marpa.w"
Marpa_Rule_ID rule_id;
RULE rule;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2280 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 2281 "./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;
}
/*:261*//*262:*/
#line 2326 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2333 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2334 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 2335 "./marpa.w"
/*264:*/
#line 2366 "./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;
}
}
/*:264*/
#line 2336 "./marpa.w"
/*263:*/
#line 2344 "./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;
}
}
/*:263*/
#line 2337 "./marpa.w"
return original_rule_id;
FAILURE:
return failure_indicator;
}
/*:262*//*266:*/
#line 2419 "./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;
}
/*:266*//*269:*/
#line 2475 "./marpa.w"
PRIVATE Marpa_Symbol_ID rule_lhs_get(RULE rule)
{
return rule->t_symbols[0];}
/*:269*//*270:*/
#line 2479 "./marpa.w"
Marpa_Symbol_ID marpa_g_rule_lhs(Marpa_Grammar g,Marpa_Rule_ID xrl_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2481 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2482 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2483 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2484 "./marpa.w"
return rule_lhs_get(XRL_by_ID(xrl_id));
}
/*:270*//*271:*/
#line 2487 "./marpa.w"
PRIVATE Marpa_Symbol_ID*rule_rhs_get(RULE rule)
{
return rule->t_symbols+1;}
/*:271*//*272:*/
#line 2491 "./marpa.w"
Marpa_Symbol_ID marpa_g_rule_rhs(Marpa_Grammar g,Marpa_Rule_ID xrl_id,int ix){
RULE rule;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2494 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2495 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2496 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2497 "./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);
}
/*:272*//*273:*/
#line 2510 "./marpa.w"
int marpa_g_rule_length(Marpa_Grammar g,Marpa_Rule_ID xrl_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2512 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2513 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2514 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2515 "./marpa.w"
return Length_of_XRL(XRL_by_ID(xrl_id));
}
/*:273*//*278:*/
#line 2542 "./marpa.w"
int marpa_g_rule_rank(Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
XRL xrl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2547 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2549 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2550 "./marpa.w"
/*1211:*/
#line 14609 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1211*/
#line 2551 "./marpa.w"
clear_error(g);
xrl= XRL_by_ID(xrl_id);
return Rank_of_XRL(xrl);
}
/*:278*//*279:*/
#line 2556 "./marpa.w"
int marpa_g_rule_rank_set(
Marpa_Grammar g,Marpa_Rule_ID xrl_id,Marpa_Rank rank)
{
XRL xrl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2561 "./marpa.w"
clear_error(g);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2563 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 2564 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2565 "./marpa.w"
/*1211:*/
#line 14609 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1211*/
#line 2566 "./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;
}
/*:279*//*282:*/
#line 2592 "./marpa.w"
int marpa_g_rule_null_high(Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
XRL xrl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2597 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2598 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2599 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2600 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return Null_Ranks_High_of_RULE(xrl);
}
/*:282*//*283:*/
#line 2604 "./marpa.w"
int marpa_g_rule_null_high_set(
Marpa_Grammar g,Marpa_Rule_ID xrl_id,int flag)
{
XRL xrl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2609 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2610 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 2611 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2612 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2613 "./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);
}
/*:283*//*290:*/
#line 2650 "./marpa.w"
int marpa_g_sequence_min(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2655 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2657 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2658 "./marpa.w"
/*1211:*/
#line 14609 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1211*/
#line 2659 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(!XRL_is_Sequence(xrl))
{
MARPA_ERROR(MARPA_ERR_NOT_A_SEQUENCE);
return-1;
}
return Minimum_of_XRL(xrl);
}
/*:290*//*293:*/
#line 2676 "./marpa.w"
Marpa_Symbol_ID marpa_g_sequence_separator(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2681 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2683 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2684 "./marpa.w"
/*1211:*/
#line 14609 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return failure_indicator;
}
/*:1211*/
#line 2685 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
if(!XRL_is_Sequence(xrl))
{
MARPA_ERROR(MARPA_ERR_NOT_A_SEQUENCE);
return failure_indicator;
}
return Separator_of_XRL(xrl);
}
/*:293*//*298:*/
#line 2713 "./marpa.w"
int _marpa_g_rule_is_keep_separation(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2718 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2719 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2720 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2721 "./marpa.w"
return!XRL_by_ID(xrl_id)->t_is_discard;
}
/*:298*//*302:*/
#line 2753 "./marpa.w"
int marpa_g_rule_is_proper_separation(
Marpa_Grammar g,
Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2758 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2759 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2760 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2761 "./marpa.w"
return XRL_is_Proper_Separation(XRL_by_ID(xrl_id));
}
/*:302*//*306:*/
#line 2774 "./marpa.w"
int marpa_g_rule_is_loop(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2777 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2778 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2779 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2780 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2781 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2782 "./marpa.w"
return XRL_by_ID(xrl_id)->t_is_loop;
}
/*:306*//*309:*/
#line 2792 "./marpa.w"
int marpa_g_rule_is_nulling(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2795 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2797 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2798 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2799 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2800 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Nulling(xrl);
}
/*:309*//*312:*/
#line 2811 "./marpa.w"
int marpa_g_rule_is_nullable(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2814 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2816 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2817 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2818 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2819 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Nullable(xrl);
}
/*:312*//*316:*/
#line 2830 "./marpa.w"
int marpa_g_rule_is_accessible(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2833 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2835 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2836 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2837 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2838 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Accessible(xrl);
}
/*:316*//*319:*/
#line 2849 "./marpa.w"
int marpa_g_rule_is_productive(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2852 "./marpa.w"
XRL xrl;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2854 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2855 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2856 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2857 "./marpa.w"
xrl= XRL_by_ID(xrl_id);
return XRL_is_Productive(xrl);
}
/*:319*//*322:*/
#line 2868 "./marpa.w"
int
_marpa_g_rule_is_used(Marpa_Grammar g,Marpa_Rule_ID xrl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2872 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 2873 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 2874 "./marpa.w"
return XRL_is_Used(XRL_by_ID(xrl_id));
}
/*:322*//*324:*/
#line 2881 "./marpa.w"
Marpa_Rule_ID
_marpa_g_irl_semantic_equivalent(Marpa_Grammar g,Marpa_IRL_ID irl_id)
{
IRL irl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2886 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 2887 "./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));
}
/*:324*//*333:*/
#line 2928 "./marpa.w"
Marpa_NSY_ID _marpa_g_irl_lhs(Marpa_Grammar g,Marpa_IRL_ID irl_id){
IRL irl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2931 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2932 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2933 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 2934 "./marpa.w"
irl= IRL_by_ID(irl_id);
return LHSID_of_IRL(irl);
}
/*:333*//*335:*/
#line 2941 "./marpa.w"
Marpa_NSY_ID _marpa_g_irl_rhs(Marpa_Grammar g,Marpa_IRL_ID irl_id,int ix){
IRL irl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2944 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2945 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2946 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 2947 "./marpa.w"
irl= IRL_by_ID(irl_id);
if(Length_of_IRL(irl)<=ix)return-1;
return RHSID_of_IRL(irl,ix);
}
/*:335*//*337:*/
#line 2955 "./marpa.w"
int _marpa_g_irl_length(Marpa_Grammar g,Marpa_IRL_ID irl_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 2957 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 2958 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 2959 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 2960 "./marpa.w"
return Length_of_IRL(IRL_by_ID(irl_id));
}
/*:337*//*343:*/
#line 3005 "./marpa.w"
int _marpa_g_irl_is_virtual_lhs(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3010 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 3011 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3012 "./marpa.w"
return IRL_has_Virtual_LHS(IRL_by_ID(irl_id));
}
/*:343*//*346:*/
#line 3021 "./marpa.w"
int _marpa_g_irl_is_virtual_rhs(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3026 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 3027 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3028 "./marpa.w"
return IRL_has_Virtual_RHS(IRL_by_ID(irl_id));
}
/*:346*//*352:*/
#line 3050 "./marpa.w"
int _marpa_g_real_symbol_count(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3055 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 3056 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3057 "./marpa.w"
return Real_SYM_Count_of_IRL(IRL_by_ID(irl_id));
}
/*:352*//*355:*/
#line 3068 "./marpa.w"
int _marpa_g_virtual_start(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
IRL irl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3074 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 3075 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3076 "./marpa.w"
irl= IRL_by_ID(irl_id);
return Virtual_Start_of_IRL(irl);
}
/*:355*//*358:*/
#line 3088 "./marpa.w"
int _marpa_g_virtual_end(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
IRL irl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3094 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 3095 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3096 "./marpa.w"
irl= IRL_by_ID(irl_id);
return Virtual_End_of_IRL(irl);
}
/*:358*//*361:*/
#line 3110 "./marpa.w"
Marpa_Rule_ID _marpa_g_source_xrl(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
XRL source_xrl;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3116 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3117 "./marpa.w"
source_xrl= Source_XRL_of_IRL(IRL_by_ID(irl_id));
return source_xrl?ID_of_XRL(source_xrl):-1;
}
/*:361*//*364:*/
#line 3138 "./marpa.w"
Marpa_Rank _marpa_g_irl_rank(
Marpa_Grammar g,
Marpa_IRL_ID irl_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3143 "./marpa.w"
/*1209:*/
#line 14595 "./marpa.w"
if(_MARPA_UNLIKELY(!IRLID_of_G_is_Valid(irl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_IRLID);
return failure_indicator;
}
/*:1209*/
#line 3144 "./marpa.w"
return Rank_of_IRL(IRL_by_ID(irl_id));
}
/*:364*//*368:*/
#line 3178 "./marpa.w"
int marpa_g_precompute(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 3181 "./marpa.w"
int return_value= failure_indicator;
struct marpa_obstack*obs_precompute= marpa_obs_init;
/*373:*/
#line 3305 "./marpa.w"
XRLID xrl_count= XRL_Count_of_G(g);
XSYID pre_census_xsy_count= XSY_Count_of_G(g);
XSYID post_census_xsy_count= -1;
/*:373*//*377:*/
#line 3339 "./marpa.w"
XSYID start_xsy_id= g->t_start_xsy_id;
/*:377*//*390:*/
#line 3642 "./marpa.w"
Bit_Matrix reach_matrix= NULL;
/*:390*/
#line 3184 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 3185 "./marpa.w"
G_EVENTS_CLEAR(g);
/*374:*/
#line 3310 "./marpa.w"
if(_MARPA_UNLIKELY(xrl_count<=0)){
MARPA_ERROR(MARPA_ERR_NO_RULES);
goto FAILURE;
}
/*:374*/
#line 3187 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 3188 "./marpa.w"
/*376:*/
#line 3320 "./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;
}
}
/*:376*/
#line 3189 "./marpa.w"
/*122:*/
#line 1120 "./marpa.w"
{
_marpa_avl_destroy((g)->t_xrl_tree);
(g)->t_xrl_tree= NULL;
}
/*:122*/
#line 3194 "./marpa.w"
{
/*382:*/
#line 3521 "./marpa.w"
Bit_Vector terminal_v= NULL;
/*:382*//*383:*/
#line 3524 "./marpa.w"
Bit_Vector lhs_v= NULL;
Bit_Vector empty_lhs_v= NULL;
/*:383*//*384:*/
#line 3529 "./marpa.w"
RULEID**xrl_list_x_rh_sym= NULL;
RULEID**xrl_list_x_lh_sym= NULL;
/*:384*//*388:*/
#line 3588 "./marpa.w"
Bit_Vector productive_v= NULL;
Bit_Vector nullable_v= NULL;
/*:388*/
#line 3199 "./marpa.w"
/*372:*/
#line 3290 "./marpa.w"
{
/*380:*/
#line 3363 "./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);
}
}
/*:380*/
#line 3292 "./marpa.w"
/*381:*/
#line 3490 "./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;
}
}
/*:381*/
#line 3293 "./marpa.w"
/*389:*/
#line 3610 "./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);
}
/*:389*/
#line 3294 "./marpa.w"
/*385:*/
#line 3533 "./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;
}
}
/*:385*/
#line 3295 "./marpa.w"
/*386:*/
#line 3561 "./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;
}
}
}
}
/*:386*/
#line 3296 "./marpa.w"
/*387:*/
#line 3582 "./marpa.w"
if(_MARPA_UNLIKELY(!bv_bit_test(productive_v,start_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_UNPRODUCTIVE_START);
goto FAILURE;
}
/*:387*/
#line 3297 "./marpa.w"
/*391:*/
#line 3647 "./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;
}
/*:391*/
#line 3298 "./marpa.w"
/*392:*/
#line 3667 "./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;
}
}
/*:392*/
#line 3299 "./marpa.w"
/*393:*/
#line 3706 "./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))
{
/*395:*/
#line 3757 "./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;
}
/*:395*/
#line 3717 "./marpa.w"
continue;
}
/*394:*/
#line 3726 "./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);
}
/*:394*/
#line 3720 "./marpa.w"
}
}
/*:393*/
#line 3300 "./marpa.w"
/*396:*/
#line 3822 "./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;
}
}
}
/*:396*/
#line 3301 "./marpa.w"
/*397:*/
#line 3851 "./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);
}
/*:397*/
#line 3302 "./marpa.w"
}
/*:372*/
#line 3200 "./marpa.w"
/*444:*/
#line 4703 "./marpa.w"
{
int loop_rule_count= 0;
Bit_Matrix unit_transition_matrix=
matrix_obs_create(obs_precompute,xrl_count,
xrl_count);
/*445:*/
#line 4724 "./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)
{
/*446:*/
#line 4779 "./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);
}
}
/*:446*/
#line 4752 "./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;
/*446:*/
#line 4779 "./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);
}
}
/*:446*/
#line 4770 "./marpa.w"
}
}
}
}
/*:445*/
#line 4709 "./marpa.w"
transitive_closure(unit_transition_matrix);
/*447:*/
#line 4793 "./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;
}
}
/*:447*/
#line 4711 "./marpa.w"
if(loop_rule_count)
{
g->t_has_cycle= 1;
int_event_new(g,MARPA_EVENT_LOOP_RULES,loop_rule_count);
}
}
/*:444*/
#line 3201 "./marpa.w"
}
/*508:*/
#line 5354 "./marpa.w"
MARPA_DSTACK_INIT(g->t_irl_stack,IRL,2*MARPA_DSTACK_CAPACITY(g->t_xrl_stack));
/*:508*/
#line 3206 "./marpa.w"
/*509:*/
#line 5362 "./marpa.w"
{
MARPA_DSTACK_INIT(g->t_nsy_stack,NSY,2*MARPA_DSTACK_CAPACITY(g->t_xsy_stack));
}
/*:509*/
#line 3207 "./marpa.w"
/*409:*/
#line 4051 "./marpa.w"
{
/*410:*/
#line 4082 "./marpa.w"
Marpa_Rule_ID rule_id;
int pre_chaf_rule_count;
/*:410*//*413:*/
#line 4140 "./marpa.w"
int factor_count;
int*factor_positions;
/*:413*/
#line 4053 "./marpa.w"
/*414:*/
#line 4143 "./marpa.w"
factor_positions= marpa_obs_new(obs_precompute,int,g->t_max_rule_length);
/*:414*/
#line 4054 "./marpa.w"
/*411:*/
#line 4088 "./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);
}
}
}
/*:411*/
#line 4055 "./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))
{
/*398:*/
#line 3904 "./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;
/*399:*/
#line 3933 "./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;
}
/*:399*/
#line 3925 "./marpa.w"
if(separator_nsyid>=0&&!XRL_is_Proper_Separation(rule)){
/*400:*/
#line 3946 "./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;
}
/*:400*/
#line 3927 "./marpa.w"
}
/*401:*/
#line 3963 "./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;
}
/*:401*/
#line 3929 "./marpa.w"
/*402:*/
#line 3974 "./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;
}
/*:402*/
#line 3930 "./marpa.w"
}
/*:398*/
#line 4068 "./marpa.w"
continue;
}
/*412:*/
#line 4119 "./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;
}
}
/*:412*/
#line 4071 "./marpa.w"
if(factor_count> 0)
{
/*415:*/
#line 4147 "./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){
/*418:*/
#line 4183 "./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;
/*416:*/
#line 4173 "./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);
}
/*:416*/
#line 4193 "./marpa.w"
/*419:*/
#line 4212 "./marpa.w"
{
{
const int real_symbol_count= piece_end-piece_start+1;
/*424:*/
#line 4310 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4324 "./marpa.w"
}
/*:424*/
#line 4216 "./marpa.w"
;
}
/*420:*/
#line 4226 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4248 "./marpa.w"
}
/*:420*/
#line 4218 "./marpa.w"
;
{
const int real_symbol_count= piece_end-piece_start+1;
/*426:*/
#line 4356 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4380 "./marpa.w"
}
/*:426*/
#line 4221 "./marpa.w"
;
}
/*421:*/
#line 4256 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4294 "./marpa.w"
}
}
/*:421*/
#line 4223 "./marpa.w"
;
}
/*:419*/
#line 4194 "./marpa.w"
factor_position_ix++;
}else{
piece_end= second_factor_position;
/*416:*/
#line 4173 "./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);
}
/*:416*/
#line 4198 "./marpa.w"
/*423:*/
#line 4300 "./marpa.w"
{
const int real_symbol_count= piece_end-piece_start+1;
/*424:*/
#line 4310 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4324 "./marpa.w"
}
/*:424*/
#line 4303 "./marpa.w"
/*425:*/
#line 4328 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4352 "./marpa.w"
}
/*:425*/
#line 4304 "./marpa.w"
/*426:*/
#line 4356 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4380 "./marpa.w"
}
/*:426*/
#line 4305 "./marpa.w"
/*427:*/
#line 4384 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4418 "./marpa.w"
}
/*:427*/
#line 4306 "./marpa.w"
}
/*:423*/
#line 4199 "./marpa.w"
factor_position_ix+= 2;
}
current_lhs_nsy= chaf_virtual_nsy;
current_lhs_nsyid= chaf_virtual_nsyid;
piece_start= piece_end+1;
/*:418*/
#line 4164 "./marpa.w"
}
if(unprocessed_factor_count==2){
/*428:*/
#line 4423 "./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;
/*429:*/
#line 4436 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4449 "./marpa.w"
}
/*:429*/
#line 4429 "./marpa.w"
/*430:*/
#line 4453 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4476 "./marpa.w"
}
/*:430*/
#line 4430 "./marpa.w"
/*431:*/
#line 4480 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4503 "./marpa.w"
}
/*:431*/
#line 4431 "./marpa.w"
/*432:*/
#line 4508 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4545 "./marpa.w"
}
}
/*:432*/
#line 4432 "./marpa.w"
}
/*:428*/
#line 4167 "./marpa.w"
}else{
/*433:*/
#line 4550 "./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;
/*434:*/
#line 4561 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4574 "./marpa.w"
}
/*:434*/
#line 4556 "./marpa.w"
/*435:*/
#line 4579 "./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);
/*436:*/
#line 4613 "./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;
}
/*:436*/
#line 4605 "./marpa.w"
}
}
/*:435*/
#line 4557 "./marpa.w"
}
/*:433*/
#line 4169 "./marpa.w"
}
}
/*:415*/
#line 4075 "./marpa.w"
continue;
}
/*260:*/
#line 2258 "./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);
}
/*:260*/
#line 4078 "./marpa.w"
}
}
/*:409*/
#line 3208 "./marpa.w"
/*438:*/
#line 4630 "./marpa.w"
{
const XSY start_xsy= XSY_by_ID(start_xsy_id);
if(_MARPA_LIKELY(!XSY_is_Nulling(start_xsy))){
/*439:*/
#line 4638 "./marpa.w"
{
IRL new_start_irl;
const NSY new_start_nsy= nsy_new(g,start_xsy);
NSY_is_Start(new_start_nsy)= 1;
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;
}
/*:439*/
#line 4634 "./marpa.w"
}
}
/*:438*/
#line 3209 "./marpa.w"
post_census_xsy_count= XSY_Count_of_G(g);
/*520:*/
#line 5551 "./marpa.w"
{
int xsyid;
g->t_lbv_xsyid_is_completion_event=
bv_obs_create(g->t_obs,post_census_xsy_count);
g->t_lbv_xsyid_completion_event_starts_active=
bv_obs_create(g->t_obs,post_census_xsy_count);
g->t_lbv_xsyid_is_nulled_event=
bv_obs_create(g->t_obs,post_census_xsy_count);
g->t_lbv_xsyid_nulled_event_starts_active=
bv_obs_create(g->t_obs,post_census_xsy_count);
g->t_lbv_xsyid_is_prediction_event=
bv_obs_create(g->t_obs,post_census_xsy_count);
g->t_lbv_xsyid_prediction_event_starts_active=
bv_obs_create(g->t_obs,post_census_xsy_count);
for(xsyid= 0;xsyid<post_census_xsy_count;xsyid++)
{
if(XSYID_is_Completion_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_completion_event,xsyid);
}
if(XSYID_Completion_Event_Starts_Active(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_completion_event_starts_active,xsyid);
}
if(XSYID_is_Nulled_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_nulled_event,xsyid);
}
if(XSYID_Nulled_Event_Starts_Active(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_nulled_event_starts_active,xsyid);
}
if(XSYID_is_Prediction_Event(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_is_prediction_event,xsyid);
}
if(XSYID_Prediction_Event_Starts_Active(xsyid))
{
lbv_bit_set(g->t_lbv_xsyid_prediction_event_starts_active,xsyid);
}
}
}
/*:520*/
#line 3211 "./marpa.w"
if(!G_is_Trivial(g)){
/*507:*/
#line 5345 "./marpa.w"
const RULEID irl_count= IRL_Count_of_G(g);
const NSYID nsy_count= NSY_Count_of_G(g);
Bit_Matrix nsy_by_right_nsy_matrix;
Bit_Matrix prediction_nsy_by_irl_matrix;
/*:507*/
#line 3217 "./marpa.w"
/*510:*/
#line 5367 "./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);
}
/*:510*/
#line 3218 "./marpa.w"
/*481:*/
#line 5016 "./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);
/*483:*/
#line 5068 "./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++;
}
/*:483*/
#line 5025 "./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;
/*482:*/
#line 5043 "./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;
/*484:*/
#line 5080 "./marpa.w"
{
/*486:*/
#line 5103 "./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;
}
/*501:*/
#line 5242 "./marpa.w"
Event_AHMIDs_of_AHM(current_item)= NULL;
Event_Group_Size_of_AHM(current_item)= 0;
/*:501*/
#line 5121 "./marpa.w"
}
/*:486*/
#line 5082 "./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);
/*487:*/
#line 5124 "./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;
}
}
/*:487*/
#line 5091 "./marpa.w"
}
/*:484*/
#line 5054 "./marpa.w"
current_item++;
leading_nulls= 0;
}
else
{
leading_nulls++;
}
}
/*485:*/
#line 5094 "./marpa.w"
{
/*486:*/
#line 5103 "./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;
}
/*501:*/
#line 5242 "./marpa.w"
Event_AHMIDs_of_AHM(current_item)= NULL;
Event_Group_Size_of_AHM(current_item)= 0;
/*:501*/
#line 5121 "./marpa.w"
}
/*:486*/
#line 5096 "./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);
/*487:*/
#line 5124 "./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;
}
}
/*:487*/
#line 5100 "./marpa.w"
}
/*:485*/
#line 5063 "./marpa.w"
current_item++;
AHM_Count_of_IRL(irl)= current_item-first_ahm_of_irl;
}
/*:482*/
#line 5031 "./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);
/*489:*/
#line 5160 "./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;
}
}
/*:489*/
#line 5040 "./marpa.w"
}
/*:481*/
#line 3219 "./marpa.w"
/*513:*/
#line 5420 "./marpa.w"
{
Bit_Matrix prediction_nsy_by_nsy_matrix=
matrix_obs_create(obs_precompute,nsy_count,nsy_count);
/*514:*/
#line 5428 "./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);
}
}
/*:514*/
#line 5423 "./marpa.w"
transitive_closure(prediction_nsy_by_nsy_matrix);
/*515:*/
#line 5465 "./marpa.w"
{
/*516:*/
#line 5469 "./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);
}
}
}
}
}
/*:516*/
#line 5466 "./marpa.w"
}
/*:515*/
#line 5425 "./marpa.w"
}
/*:513*/
#line 3220 "./marpa.w"
/*503:*/
#line 5255 "./marpa.w"
{
nsy_by_right_nsy_matrix=
matrix_obs_create(obs_precompute,nsy_count,nsy_count);
/*504:*/
#line 5266 "./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;
}
}
}
}
/*:504*/
#line 5258 "./marpa.w"
transitive_closure(nsy_by_right_nsy_matrix);
/*505:*/
#line 5291 "./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;
}
}
}
}
/*:505*/
#line 5260 "./marpa.w"
matrix_clear(nsy_by_right_nsy_matrix);
/*506:*/
#line 5318 "./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;
}
}
}
}
/*:506*/
#line 5262 "./marpa.w"
transitive_closure(nsy_by_right_nsy_matrix);
}
/*:503*/
#line 3221 "./marpa.w"
/*518:*/
#line 5506 "./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);
}
}
}
/*:518*/
#line 3222 "./marpa.w"
/*519:*/
#line 5530 "./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<post_census_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));
}
}
}
}
/*:519*/
#line 3223 "./marpa.w"
/*521:*/
#line 5595 "./marpa.w"
{
AHMID ahm_id;
const int ahm_count_of_g= AHM_Count_of_G(g);
const LBV bv_completion_xsyid= bv_create(post_census_xsy_count);
const LBV bv_prediction_xsyid= bv_create(post_census_xsy_count);
const LBV bv_nulled_xsyid= bv_create(post_census_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);
}
/*:521*/
#line 3225 "./marpa.w"
/*522:*/
#line 5661 "./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);
}
}
/*:522*/
#line 3226 "./marpa.w"
/*523:*/
#line 5677 "./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)++;
}
}
}
}
/*:523*/
#line 3227 "./marpa.w"
/*542:*/
#line 5882 "./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);
}
}
/*:542*/
#line 3228 "./marpa.w"
/*543:*/
#line 5927 "./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;
}
}
}
}
/*:543*/
#line 3229 "./marpa.w"
}
g->t_is_precomputed= 1;
if(g->t_has_cycle)
{
MARPA_ERROR(MARPA_ERR_GRAMMAR_HAS_CYCLE);
goto FAILURE;
}
/*369:*/
#line 3251 "./marpa.w"
{cilar_buffer_reinit(&g->t_cilar);}
/*:369*/
#line 3237 "./marpa.w"
return_value= 0;
goto CLEANUP;
FAILURE:;
goto CLEANUP;
CLEANUP:;
marpa_obs_free(obs_precompute);
return return_value;
}
/*:368*//*379:*/
#line 3350 "./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;
}
/*:379*//*457:*/
#line 4855 "./marpa.w"
PRIVATE int ahm_is_valid(
GRAMMAR g,AHMID item_id)
{
return item_id<(AHMID)AHM_Count_of_G(g)&&item_id>=0;
}
/*:457*//*474:*/
#line 4979 "./marpa.w"
int _marpa_g_ahm_count(Marpa_Grammar g){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 4981 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 4982 "./marpa.w"
return AHM_Count_of_G(g);
}
/*:474*//*475:*/
#line 4986 "./marpa.w"
Marpa_IRL_ID _marpa_g_ahm_irl(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 4989 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 4990 "./marpa.w"
/*1215:*/
#line 14638 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1215*/
#line 4991 "./marpa.w"
return IRLID_of_AHM(AHM_by_ID(item_id));
}
/*:475*//*477:*/
#line 4996 "./marpa.w"
int _marpa_g_ahm_position(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 4999 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 5000 "./marpa.w"
/*1215:*/
#line 14638 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1215*/
#line 5001 "./marpa.w"
return Position_of_AHM(AHM_by_ID(item_id));
}
/*:477*//*479:*/
#line 5006 "./marpa.w"
Marpa_Symbol_ID _marpa_g_ahm_postdot(Marpa_Grammar g,
Marpa_AHM_ID item_id){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 5009 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 5010 "./marpa.w"
/*1215:*/
#line 14638 "./marpa.w"
if(_MARPA_UNLIKELY(!ahm_is_valid(g,item_id))){
MARPA_ERROR(MARPA_ERR_INVALID_AIMID);
return failure_indicator;
}
/*:1215*/
#line 5011 "./marpa.w"
return Postdot_NSYID_of_AHM(AHM_by_ID(item_id));
}
/*:479*//*538:*/
#line 5792 "./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);
}
/*:538*//*539:*/
#line 5807 "./marpa.w"
Marpa_Assertion_ID
marpa_g_zwa_new(Marpa_Grammar g,int default_value)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 5811 "./marpa.w"
ZWAID zwa_id;
GZWA gzwa;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 5814 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 5815 "./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;
}
/*:539*//*540:*/
#line 5829 "./marpa.w"
Marpa_Assertion_ID
marpa_g_highest_zwa_id(Marpa_Grammar g)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 5833 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 5834 "./marpa.w"
return ZWA_Count_of_G(g)-1;
}
/*:540*//*541:*/
#line 5841 "./marpa.w"
int
marpa_g_zwa_place(Marpa_Grammar g,
Marpa_Assertion_ID zwaid,
Marpa_Rule_ID xrl_id,int rhs_ix)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 5847 "./marpa.w"
void*avl_insert_result;
ZWP zwp;
XRL xrl;
int xrl_length;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 5852 "./marpa.w"
/*1203:*/
#line 14562 "./marpa.w"
if(_MARPA_UNLIKELY(G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_PRECOMPUTED);
return failure_indicator;
}
/*:1203*/
#line 5853 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 5854 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 5855 "./marpa.w"
/*1214:*/
#line 14627 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1214*/
#line 5856 "./marpa.w"
/*1213:*/
#line 14621 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1213*/
#line 5857 "./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;
}
/*:541*//*547:*/
#line 5973 "./marpa.w"
Marpa_Recognizer marpa_r_new(Marpa_Grammar g)
{
RECCE r;
int nsy_count;
int irl_count;
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 5979 "./marpa.w"
/*1204:*/
#line 14568 "./marpa.w"
if(_MARPA_UNLIKELY(!G_is_Precomputed(g))){
MARPA_ERROR(MARPA_ERR_NOT_PRECOMPUTED);
return failure_indicator;
}
/*:1204*/
#line 5980 "./marpa.w"
nsy_count= NSY_Count_of_G(g);
irl_count= IRL_Count_of_G(g);
r= my_malloc(sizeof(struct marpa_r));
/*612:*/
#line 6583 "./marpa.w"
r->t_obs= marpa_obs_init;
/*:612*/
#line 5984 "./marpa.w"
/*550:*/
#line 5993 "./marpa.w"
r->t_ref_count= 1;
/*:550*//*555:*/
#line 6044 "./marpa.w"
{
G_of_R(r)= g;
grammar_ref(g);
}
/*:555*//*560:*/
#line 6063 "./marpa.w"
Input_Phase_of_R(r)= R_BEFORE_INPUT;
/*:560*//*562:*/
#line 6073 "./marpa.w"
r->t_first_earley_set= NULL;
r->t_latest_earley_set= NULL;
r->t_current_earleme= -1;
/*:562*//*566:*/
#line 6107 "./marpa.w"
r->t_earley_item_warning_threshold=
MAX(DEFAULT_YIM_WARNING_THRESHOLD,AHM_Count_of_G(g)*3);
/*:566*//*570:*/
#line 6136 "./marpa.w"
r->t_furthest_earleme= 0;
/*:570*//*577:*/
#line 6178 "./marpa.w"
r->t_bv_nsyid_is_expected= bv_obs_create(r->t_obs,nsy_count);
/*:577*//*581:*/
#line 6255 "./marpa.w"
r->t_nsy_expected_is_event= lbv_obs_new0(r->t_obs,nsy_count);
/*:581*//*599:*/
#line 6498 "./marpa.w"
r->t_use_leo_flag= 1;
r->t_is_using_leo= 0;
/*:599*//*603:*/
#line 6531 "./marpa.w"
r->t_bv_irl_seen= bv_obs_create(r->t_obs,irl_count);
MARPA_DSTACK_INIT2(r->t_irl_cil_stack,CIL);
/*:603*//*606:*/
#line 6548 "./marpa.w"
r->t_is_exhausted= 0;
/*:606*//*610:*/
#line 6576 "./marpa.w"
r->t_first_inconsistent_ys= -1;
/*:610*//*616:*/
#line 6605 "./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;
}
}
/*:616*//*631:*/
#line 6699 "./marpa.w"
r->t_earley_set_count= 0;
/*:631*//*694:*/
#line 7495 "./marpa.w"
MARPA_DSTACK_INIT2(r->t_alternatives,ALT_Object);
/*:694*//*719:*/
#line 7993 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_yim_work_stack);
/*:719*//*723:*/
#line 8008 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_completion_stack);
/*:723*//*727:*/
#line 8019 "./marpa.w"
MARPA_DSTACK_SAFE(r->t_earley_set_stack);
/*:727*//*818:*/
#line 9552 "./marpa.w"
r->t_current_report_item= &progress_report_not_ready;
r->t_progress_report_traverser= NULL;
/*:818*//*852:*/
#line 9945 "./marpa.w"
ur_node_stack_init(URS_of_R(r));
/*:852*//*1233:*/
#line 14813 "./marpa.w"
r->t_trace_earley_set= NULL;
/*:1233*//*1240:*/
#line 14889 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1240*//*1254:*/
#line 15089 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1254*//*1262:*/
#line 15234 "./marpa.w"
r->t_trace_source_link= NULL;
r->t_trace_source_type= NO_SOURCE;
/*:1262*/
#line 5985 "./marpa.w"
/*1183:*/
#line 14367 "./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));
}
}
/*:1183*/
#line 5986 "./marpa.w"
/*575:*/
#line 6158 "./marpa.w"
{
NSYID xsy_count= XSY_Count_of_G(g);
r->t_lbv_xsyid_completion_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_completion_event_starts_active,xsy_count);
r->t_lbv_xsyid_nulled_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_nulled_event_starts_active,xsy_count);
r->t_lbv_xsyid_prediction_event_is_active=
lbv_clone(r->t_obs,g->t_lbv_xsyid_prediction_event_starts_active,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);
}
/*:575*/
#line 5987 "./marpa.w"
return r;
}
/*:547*//*551:*/
#line 5997 "./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);
}
/*:551*//*552:*/
#line 6015 "./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);
}
/*:552*//*553:*/
#line 6029 "./marpa.w"
PRIVATE
void recce_free(struct marpa_r*r)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6033 "./marpa.w"
/*557:*/
#line 6051 "./marpa.w"
grammar_unref(g);
/*:557*//*604:*/
#line 6534 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_irl_cil_stack);
/*:604*//*695:*/
#line 7497 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_alternatives);
/*:695*//*721:*/
#line 8001 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_yim_work_stack);
/*:721*//*725:*/
#line 8016 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_completion_stack);
/*:725*//*728:*/
#line 8020 "./marpa.w"
MARPA_DSTACK_DESTROY(r->t_earley_set_stack);
/*:728*//*820:*/
#line 9561 "./marpa.w"
/*819:*/
#line 9555 "./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;
/*:819*/
#line 9562 "./marpa.w"
;
/*:820*//*853:*/
#line 9947 "./marpa.w"
ur_node_stack_destroy(URS_of_R(r));
/*:853*//*1184:*/
#line 14375 "./marpa.w"
psar_destroy(Dot_PSAR_of_R(r));
/*:1184*/
#line 6034 "./marpa.w"
/*613:*/
#line 6584 "./marpa.w"
marpa_obs_free(r->t_obs);
/*:613*/
#line 6035 "./marpa.w"
my_free(r);
}
/*:553*//*563:*/
#line 6081 "./marpa.w"
Marpa_Earleme marpa_r_current_earleme(Marpa_Recognizer r)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6084 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return-1;
}
return Current_Earleme_of_R(r);
}
/*:563*//*564:*/
#line 6096 "./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;
}
/*:564*//*567:*/
#line 6110 "./marpa.w"
int
marpa_r_earley_item_warning_threshold(Marpa_Recognizer r)
{
return r->t_earley_item_warning_threshold;
}
/*:567*//*568:*/
#line 6119 "./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;
}
/*:568*//*571:*/
#line 6137 "./marpa.w"
unsigned int marpa_r_furthest_earleme(Marpa_Recognizer r)
{return(unsigned int)Furthest_Earleme_of_R(r);}
/*:571*//*578:*/
#line 6186 "./marpa.w"
int marpa_r_terminals_expected(Marpa_Recognizer r,Marpa_Symbol_ID*buffer)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6189 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6190 "./marpa.w"
NSYID xsy_count;
Bit_Vector bv_terminals;
int min,max,start;
int next_buffer_ix= 0;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6196 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6197 "./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;
}
/*:578*//*579:*/
#line 6224 "./marpa.w"
int marpa_r_terminal_is_expected(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6228 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6229 "./marpa.w"
XSY xsy;
NSY nsy;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6232 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6233 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 6234 "./marpa.w"
/*1207:*/
#line 14585 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return failure_indicator;
}
/*:1207*/
#line 6235 "./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));
}
/*:579*//*582:*/
#line 6258 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6266 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6267 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6268 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 6269 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 6270 "./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);
return-2;
}
nsy= NSY_of_XSY(xsy);
if(_MARPA_UNLIKELY(!nsy)){
MARPA_ERROR(MARPA_ERR_SYMBOL_IS_UNUSED);
return-2;
}
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;
}
/*:582*//*584:*/
#line 6309 "./marpa.w"
int
marpa_r_completion_symbol_activate(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id,int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6314 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6315 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6316 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 6317 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 6318 "./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;
}
/*:584*//*586:*/
#line 6356 "./marpa.w"
int
marpa_r_nulled_symbol_activate(Marpa_Recognizer r,Marpa_Symbol_ID xsy_id,
int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6361 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6362 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6363 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 6364 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 6365 "./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;
}
/*:586*//*588:*/
#line 6403 "./marpa.w"
int
marpa_r_prediction_symbol_activate(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id,int reactivate)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6408 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6409 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6410 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 6411 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 6412 "./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;
}
/*:588*//*600:*/
#line 6504 "./marpa.w"
int _marpa_r_is_use_leo(Marpa_Recognizer r)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6507 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6508 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6509 "./marpa.w"
return r->t_use_leo_flag;
}
/*:600*//*601:*/
#line 6512 "./marpa.w"
int _marpa_r_is_use_leo_set(
Marpa_Recognizer r,int value)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6516 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6517 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6518 "./marpa.w"
/*1216:*/
#line 14647 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_STARTED);
return failure_indicator;
}
/*:1216*/
#line 6519 "./marpa.w"
return r->t_use_leo_flag= value?1:0;
}
/*:601*//*608:*/
#line 6559 "./marpa.w"
int marpa_r_is_exhausted(Marpa_Recognizer r)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6562 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6563 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6564 "./marpa.w"
return R_is_Exhausted(r);
}
/*:608*//*635:*/
#line 6718 "./marpa.w"
int marpa_r_earley_set_value(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6721 "./marpa.w"
YS earley_set;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6723 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6724 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6725 "./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);
}
/*:635*//*636:*/
#line 6741 "./marpa.w"
int
marpa_r_earley_set_values(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id,
int*p_value,void**p_pvalue)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6746 "./marpa.w"
YS earley_set;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6748 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6749 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6750 "./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;
}
/*:636*//*637:*/
#line 6768 "./marpa.w"
int marpa_r_latest_earley_set_value_set(Marpa_Recognizer r,int value)
{
YS earley_set;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6772 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6773 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6774 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6775 "./marpa.w"
earley_set= Latest_YS_of_R(r);
return Value_of_YS(earley_set)= value;
}
/*:637*//*638:*/
#line 6780 "./marpa.w"
int marpa_r_latest_earley_set_values_set(Marpa_Recognizer r,int value,
void*pvalue)
{
YS earley_set;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 6785 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6786 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 6787 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 6788 "./marpa.w"
earley_set= Latest_YS_of_R(r);
Value_of_YS(earley_set)= value;
PValue_of_YS(earley_set)= pvalue;
return 1;
}
/*:638*//*639:*/
#line 6796 "./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;
/*634:*/
#line 6714 "./marpa.w"
Value_of_YS(set)= -1;
PValue_of_YS(set)= NULL;
/*:634*//*1190:*/
#line 14431 "./marpa.w"
{set->t_dot_psl= NULL;}
/*:1190*/
#line 6811 "./marpa.w"
return set;
}
/*:639*//*649:*/
#line 6920 "./marpa.w"
PRIVATE YIM earley_item_create(const RECCE r,
const YIK_Object key)
{
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 6924 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 6925 "./marpa.w"
YIM new_item;
YIM*end_of_work_stack;
const YS set= key.t_set;
const int count= ++YIM_Count_of_YS(set);
/*651:*/
#line 6979 "./marpa.w"
if(_MARPA_UNLIKELY(count>=YIM_FATAL_THRESHOLD))
{
MARPA_FATAL(MARPA_ERR_YIM_COUNT);
return failure_indicator;
}
/*:651*/
#line 6930 "./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;
}
/*:649*//*650:*/
#line 6947 "./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;
}
/*:650*//*655:*/
#line 7015 "./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;
}
/*:655*//*664:*/
#line 7132 "./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;
}
/*:664*//*665:*/
#line 7152 "./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;
}
/*:665*//*682:*/
#line 7307 "./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;
}
/*:682*//*683:*/
#line 7317 "./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;
}
/*:683*//*684:*/
#line 7348 "./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;
}
/*:684*//*685:*/
#line 7378 "./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;
}
/*:685*//*687:*/
#line 7427 "./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:/*688:*/
#line 7444 "./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;
}
/*:688*/
#line 7435 "./marpa.w"
return;
case SOURCE_IS_COMPLETION:/*689:*/
#line 7452 "./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;
}
/*:689*/
#line 7437 "./marpa.w"
return;
case SOURCE_IS_LEO:/*690:*/
#line 7460 "./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;
}
/*:690*/
#line 7439 "./marpa.w"
return;
}
}
/*:687*//*697:*/
#line 7503 "./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;
}
}
/*:697*//*699:*/
#line 7547 "./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);
}
/*:699*//*700:*/
#line 7564 "./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);
}
/*:700*//*702:*/
#line 7591 "./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;
}
/*:702*//*703:*/
#line 7614 "./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;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 7623 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 7624 "./marpa.w"
/*1216:*/
#line 14647 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)!=R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_STARTED);
return failure_indicator;
}
/*:1216*/
#line 7626 "./marpa.w"
{
/*705:*/
#line 7744 "./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);
/*:705*/
#line 7628 "./marpa.w"
Current_Earleme_of_R(r)= 0;
/*711:*/
#line 7786 "./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);
}
}
}
}
/*:711*/
#line 7630 "./marpa.w"
G_EVENTS_CLEAR(g);
set0= earley_set_new(r,0);
Latest_YS_of_R(r)= set0;
First_YS_of_R(r)= set0;
if(G_is_Trivial(g)){
return_value+= trigger_trivial_events(r);
/*607:*/
#line 6549 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:607*/
#line 7639 "./marpa.w"
goto CLEANUP;
}
Input_Phase_of_R(r)= R_DURING_INPUT;
psar_reset(Dot_PSAR_of_R(r));
/*764:*/
#line 8652 "./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);
/*:764*//*783:*/
#line 8934 "./marpa.w"
r->t_lim_chain= marpa_obs_new(r->t_obs,void*,2*nsy_count);
/*:783*/
#line 7644 "./marpa.w"
/*720:*/
#line 7994 "./marpa.w"
{
if(!MARPA_DSTACK_IS_INITIALIZED(r->t_yim_work_stack))
{
MARPA_DSTACK_INIT2(r->t_yim_work_stack,YIM);
}
}
/*:720*//*724:*/
#line 8009 "./marpa.w"
{
if(!MARPA_DSTACK_IS_INITIALIZED(r->t_completion_stack))
{
MARPA_DSTACK_INIT2(r->t_completion_stack,YIM);
}
}
/*:724*/
#line 7645 "./marpa.w"
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:;
/*706:*/
#line 7748 "./marpa.w"
bv_free(bv_ok_for_chain);
/*:706*/
#line 7697 "./marpa.w"
}
return return_value;
}
/*:703*//*704:*/
#line 7702 "./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_OFF_DEBUG3("At %s, evaluating assertion %ld",STRLOC,(long)zwaid);
if(Memo_YSID_of_ZWA(zwa)==ysid){
if(Memo_Value_of_ZWA(zwa))continue;
MARPA_OFF_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_OFF_DEBUG3("At %s: returning 0 for assertion %ld",STRLOC,(long)zwaid);
return 0;
}
MARPA_OFF_DEBUG3("At %s: value is 1 for assertion %ld",STRLOC,(long)zwaid);
}
return 1;
}
/*:704*//*712:*/
#line 7826 "./marpa.w"
Marpa_Earleme marpa_r_alternative(
Marpa_Recognizer r,
Marpa_Symbol_ID tkn_xsy_id,
int value,
int length)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 7833 "./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(XSYID_is_Malformed(tkn_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return MARPA_ERR_INVALID_SYMBOL_ID;
}
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(tkn_xsy_id)))
{
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return MARPA_ERR_NO_SUCH_SYMBOL_ID;
}
/*713:*/
#line 7865 "./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);
}
}
/*:713*/
#line 7858 "./marpa.w"
/*716:*/
#line 7925 "./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;
}
}
/*:716*/
#line 7859 "./marpa.w"
/*714:*/
#line 7905 "./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;
}
}
/*:714*/
#line 7860 "./marpa.w"
/*717:*/
#line 7963 "./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;
}
}
/*:717*/
#line 7861 "./marpa.w"
return MARPA_ERR_NONE;
}
/*:712*//*730:*/
#line 8040 "./marpa.w"
int
marpa_r_earleme_complete(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 8044 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 8045 "./marpa.w"
YIM*cause_p;
YS current_earley_set;
JEARLEME current_earleme;
JEARLEME return_value= -2;
/*1218:*/
#line 14657 "./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;
}
/*:1218*/
#line 8056 "./marpa.w"
if(_MARPA_UNLIKELY(!R_is_Consistent(r))){
MARPA_ERROR(MARPA_ERR_RECCE_IS_INCONSISTENT);
return failure_indicator;
}
{
int count_of_expected_terminals;
/*731:*/
#line 8106 "./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;
/*:731*/
#line 8064 "./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);
/*733:*/
#line 8114 "./marpa.w"
{
current_earleme= ++(Current_Earleme_of_R(r));
if(current_earleme> Furthest_Earleme_of_R(r))
{
/*607:*/
#line 6549 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:607*/
#line 8118 "./marpa.w"
MARPA_ERROR(MARPA_ERR_PARSE_EXHAUSTED);
return_value= failure_indicator;
goto CLEANUP;
}
}
/*:733*/
#line 8069 "./marpa.w"
/*735:*/
#line 8137 "./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;
}
}
/*:735*/
#line 8070 "./marpa.w"
/*734:*/
#line 8127 "./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;
}
/*:734*/
#line 8071 "./marpa.w"
/*736:*/
#line 8146 "./marpa.w"
{
ALT alternative;
while((alternative= alternative_pop(r,current_earleme)))
/*738:*/
#line 8165 "./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);
/*739:*/
#line 8184 "./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);
}
/*:739*/
#line 8179 "./marpa.w"
}
}
}
/*:738*/
#line 8152 "./marpa.w"
}
/*:736*/
#line 8072 "./marpa.w"
/*740:*/
#line 8200 "./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;
}
}
/*:740*/
#line 8073 "./marpa.w"
while((cause_p= MARPA_DSTACK_POP(r->t_completion_stack,YIM))){
YIM cause= *cause_p;
/*741:*/
#line 8221 "./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);
/*742:*/
#line 8231 "./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;
/*745:*/
#line 8298 "./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))
{
/*744:*/
#line 8292 "./marpa.w"
{
YIM*end_of_stack= MARPA_DSTACK_PUSH(r->t_completion_stack,YIM);
*end_of_stack= effect;
}
/*:744*/
#line 8308 "./marpa.w"
}
leo_link_add(r,effect,leo_item,cause);
}
/*:745*/
#line 8252 "./marpa.w"
goto LAST_PIM;
}else{
if(!YIM_is_Active(predecessor))continue;
/*743:*/
#line 8272 "./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)){
/*744:*/
#line 8292 "./marpa.w"
{
YIM*end_of_stack= MARPA_DSTACK_PUSH(r->t_completion_stack,YIM);
*end_of_stack= effect;
}
/*:744*/
#line 8284 "./marpa.w"
}
}
completion_link_add(r,effect,predecessor,cause);
}
/*:743*/
#line 8265 "./marpa.w"
}
NEXT_PIM:;
}
LAST_PIM:;
}
/*:742*/
#line 8227 "./marpa.w"
}
}
/*:741*/
#line 8076 "./marpa.w"
}
/*746:*/
#line 8313 "./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);
}
}
}
/*:746*/
#line 8078 "./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)
{
/*607:*/
#line 6549 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:607*/
#line 8089 "./marpa.w"
}
earley_set_update_items(r,current_earley_set);
/*652:*/
#line 6987 "./marpa.w"
{
const int yim_count= YIM_Count_of_YS(current_earley_set);
if(yim_count>=r->t_earley_item_warning_threshold)
{
int_event_new(g,MARPA_EVENT_EARLEY_ITEM_THRESHOLD,yim_count);
}
}
/*:652*/
#line 8092 "./marpa.w"
if(r->t_active_event_count> 0){
trigger_events(r);
}
return_value= G_EVENT_COUNT(g);
CLEANUP:;
/*732:*/
#line 8110 "./marpa.w"
bv_free(bv_ok_for_chain);
marpa_obs_free(earleme_complete_obs);
/*:732*/
#line 8098 "./marpa.w"
}
return return_value;
}
/*:730*//*747:*/
#line 8338 "./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);
}
}
}
}
if(Ord_of_YS(current_earley_set)<=0)
{
int cil_ix;
const XSY start_xsy= XSY_by_ID(g->t_start_xsy_id);
const CIL nulled_xsyids= Nulled_XSYIDs_of_XSY(start_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_event_trigger,nulled_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);
}
/*:747*//*748:*/
#line 8506 "./marpa.w"
PRIVATE int trigger_trivial_events(RECCE r)
{
int cil_ix;
int event_count= 0;
GRAMMAR g= G_of_R(r);
const XSY start_xsy= XSY_by_ID(g->t_start_xsy_id);
const CIL nulled_xsyids= Nulled_XSYIDs_of_XSY(start_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);
if(lbv_bit_test(r->t_lbv_xsyid_nulled_event_is_active,nulled_xsyid)){
int_event_new(g,MARPA_EVENT_SYMBOL_NULLED,nulled_xsyid);
event_count++;
}
}
return event_count;
}
/*:748*//*749:*/
#line 8526 "./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);
}
/*:749*//*750:*/
#line 8555 "./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;
}
}
/*:750*//*766:*/
#line 8659 "./marpa.w"
PRIVATE_NOT_INLINE void
postdot_items_create(RECCE r,
Bit_Vector bv_ok_for_chain,
const YS current_earley_set)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 8665 "./marpa.w"
/*765:*/
#line 8656 "./marpa.w"
bv_clear(r->t_bv_lim_symbols);
bv_clear(r->t_bv_pim_symbols);
/*:765*/
#line 8666 "./marpa.w"
/*767:*/
#line 8678 "./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);
}
}
}
/*:767*/
#line 8667 "./marpa.w"
if(r->t_is_using_leo){
/*769:*/
#line 8721 "./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((int)potential_leo_penult_ahm);
{
const AHM trailhead_ahm=
Next_AHM_of_AHM(potential_leo_penult_ahm);
if(AHM_is_Leo_Completion(trailhead_ahm))
{
/*770:*/
#line 8765 "./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);
}
/*:770*/
#line 8750 "./marpa.w"
}
}
}
NEXT_NSYID:;
}
}
}
/*:769*/
#line 8669 "./marpa.w"
/*779:*/
#line 8853 "./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;
/*781:*/
#line 8909 "./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;
}
/*:781*/
#line 8870 "./marpa.w"
if(predecessor_lim&&LIM_is_Populated(predecessor_lim)){
/*789:*/
#line 9028 "./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;
}
/*:789*/
#line 8872 "./marpa.w"
continue;
}
if(!predecessor_lim){
/*791:*/
#line 9069 "./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);
}
/*:791*/
#line 8878 "./marpa.w"
continue;
}
/*784:*/
#line 8936 "./marpa.w"
{
int lim_chain_ix;
/*787:*/
#line 8956 "./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;
}
/*781:*/
#line 8909 "./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;
}
/*:781*/
#line 8989 "./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;
}
}
/*:787*/
#line 8938 "./marpa.w"
/*788:*/
#line 9011 "./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)){
/*789:*/
#line 9028 "./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;
}
/*:789*/
#line 9015 "./marpa.w"
}else{
/*791:*/
#line 9069 "./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);
}
/*:791*/
#line 9017 "./marpa.w"
}
predecessor_lim= lim_to_process;
}
/*:788*/
#line 8939 "./marpa.w"
}
/*:784*/
#line 8881 "./marpa.w"
}
}
}
/*:779*/
#line 8670 "./marpa.w"
}
/*792:*/
#line 9076 "./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;
}
}
}
/*:792*/
#line 8672 "./marpa.w"
bv_and(r->t_bv_nsyid_is_expected,r->t_bv_pim_symbols,g->t_bv_nsyid_is_terminal);
}
/*:766*//*795:*/
#line 9112 "./marpa.w"
Marpa_Earleme
marpa_r_clean(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9116 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9117 "./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;
/*796:*/
#line 9173 "./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));
/*:796*/
#line 9125 "./marpa.w"
const JEARLEME return_value= -2;
/*1218:*/
#line 14657 "./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;
}
/*:1218*/
#line 9133 "./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++){
/*798:*/
#line 9187 "./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);
/*799:*/
#line 9207 "./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];
}
}
/*:799*/
#line 9195 "./marpa.w"
/*800:*/
#line 9223 "./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;
/*801:*/
#line 9260 "./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);
}
}
}
/*:801*/
#line 9250 "./marpa.w"
}
}
/*:800*/
#line 9196 "./marpa.w"
transitive_closure(acceptance_matrix);
/*806:*/
#line 9320 "./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;
}
}
}
}
}
/*:806*/
#line 9198 "./marpa.w"
/*807:*/
#line 9361 "./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;
}
}
/*:807*/
#line 9199 "./marpa.w"
/*809:*/
#line 9375 "./marpa.w"
{}
/*:809*/
#line 9200 "./marpa.w"
/*810:*/
#line 9379 "./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;
}
}
}
/*:810*/
#line 9201 "./marpa.w"
}
/*:798*/
#line 9150 "./marpa.w"
}
/*811:*/
#line 9424 "./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);
}
}
}
/*:811*/
#line 9156 "./marpa.w"
bv_clear(r->t_bv_nsyid_is_expected);
/*813:*/
#line 9504 "./marpa.w"
{}
/*:813*/
#line 9159 "./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)
{
/*607:*/
#line 6549 "./marpa.w"
{
R_is_Exhausted(r)= 1;
Input_Phase_of_R(r)= R_AFTER_INPUT;
event_new(g,MARPA_EVENT_EXHAUSTED);
}
/*:607*/
#line 9164 "./marpa.w"
}
First_Inconsistent_YS_of_R(r)= -1;
/*797:*/
#line 9182 "./marpa.w"
{
marpa_obs_free(method_obstack);
}
/*:797*/
#line 9169 "./marpa.w"
return return_value;
}
/*:795*//*812:*/
#line 9478 "./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;
}
/*:812*//*814:*/
#line 9507 "./marpa.w"
int
marpa_r_zwa_default_set(Marpa_Recognizer r,
Marpa_Assertion_ID zwaid,
int default_value)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9513 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9514 "./marpa.w"
ZWA zwa;
int old_default_value;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 9517 "./marpa.w"
/*1214:*/
#line 14627 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1214*/
#line 9518 "./marpa.w"
/*1213:*/
#line 14621 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1213*/
#line 9519 "./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;
}
/*:814*//*815:*/
#line 9531 "./marpa.w"
int
marpa_r_zwa_default(Marpa_Recognizer r,
Marpa_Assertion_ID zwaid)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9536 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9537 "./marpa.w"
ZWA zwa;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 9539 "./marpa.w"
/*1214:*/
#line 14627 "./marpa.w"
if(_MARPA_UNLIKELY(ZWAID_is_Malformed(zwaid))){
MARPA_ERROR(MARPA_ERR_INVALID_ASSERTION_ID);
return failure_indicator;
}
/*:1214*/
#line 9540 "./marpa.w"
/*1213:*/
#line 14621 "./marpa.w"
if(_MARPA_UNLIKELY(!ZWAID_of_G_Exists(zwaid))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_ASSERTION_ID);
return failure_indicator;
}
/*:1213*/
#line 9541 "./marpa.w"
zwa= RZWA_by_ID(zwaid);
return Default_Value_of_ZWA(zwa);
}
/*:815*//*824:*/
#line 9581 "./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;
}
/*:824*//*825:*/
#line 9598 "./marpa.w"
int marpa_r_progress_report_start(
Marpa_Recognizer r,
Marpa_Earley_Set_ID set_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9603 "./marpa.w"
YS earley_set;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9605 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 9606 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 9607 "./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);
MARPA_OFF_DEBUG3("At %s, starting progress report Earley set %ld",
STRLOC,(long)set_id);
/*819:*/
#line 9555 "./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;
/*:819*/
#line 9624 "./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;
/*827:*/
#line 9657 "./marpa.w"
{
SRCL leo_source_link= NULL;
MARPA_OFF_DEBUG2("At %s, Do the progress report",STRLOC);
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;
MARPA_OFF_DEBUG3("At %s, Leo source link %p",STRLOC,leo_source_link);
if(!SRCL_is_Active(leo_source_link))continue;
MARPA_OFF_DEBUG3("At %s, active Leo source link %p",STRLOC,leo_source_link);
for(leo_item= LIM_of_SRCL(leo_source_link);
leo_item;leo_item= Predecessor_LIM_of_LIM(leo_item))
{
const YIM trailhead_yim= Trailhead_YIM_of_LIM(leo_item);
const YSID trailhead_origin= Ord_of_YS(Origin_of_YIM(trailhead_yim));
const AHM trailhead_ahm= Trailhead_AHM_of_LIM(leo_item);
progress_report_item_insert(report_tree,trailhead_ahm,
trailhead_origin);
}
MARPA_OFF_DEBUG3("At %s, finished Leo source link %p",STRLOC,leo_source_link);
}
}
/*:827*/
#line 9636 "./marpa.w"
}
r->t_progress_report_traverser= _marpa_avl_t_init(report_tree);
return(int)marpa_avl_count(report_tree);
}
}
/*:825*//*826:*/
#line 9643 "./marpa.w"
int marpa_r_progress_report_reset(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9646 "./marpa.w"
MARPA_AVL_TRAV traverser= r->t_progress_report_traverser;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9648 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 9649 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 9650 "./marpa.w"
/*831:*/
#line 9765 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:831*/
#line 9651 "./marpa.w"
_marpa_avl_t_reset(traverser);
return 1;
}
/*:826*//*828:*/
#line 9692 "./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;
MARPA_OFF_DEBUG5(
"At %s, report item insert rule=%ld pos=%ld origin=%ld",
STRLOC,(long)ID_of_XRL(source_xrl),
(long)xrl_position,(long)report_origin);
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;
}
/*:828*//*829:*/
#line 9727 "./marpa.w"
int marpa_r_progress_report_finish(Marpa_Recognizer r){
const int success= 1;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9730 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9731 "./marpa.w"
const MARPA_AVL_TRAV traverser= r->t_progress_report_traverser;
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 9733 "./marpa.w"
/*831:*/
#line 9765 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:831*/
#line 9734 "./marpa.w"
/*819:*/
#line 9555 "./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;
/*:819*/
#line 9735 "./marpa.w"
return success;
}
/*:829*//*830:*/
#line 9739 "./marpa.w"
Marpa_Rule_ID marpa_r_progress_item(
Marpa_Recognizer r,int*position,Marpa_Earley_Set_ID*origin
){
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 9743 "./marpa.w"
PROGRESS report_item;
MARPA_AVL_TRAV traverser;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 9746 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 9747 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 9748 "./marpa.w"
traverser= r->t_progress_report_traverser;
if(_MARPA_UNLIKELY(!position||!origin)){
MARPA_ERROR(MARPA_ERR_POINTER_ARG_NULL);
return failure_indicator;
}
/*831:*/
#line 9765 "./marpa.w"
{
if(!traverser)
{
MARPA_ERROR(MARPA_ERR_PROGRESS_REPORT_NOT_STARTED);
return failure_indicator;
}
}
/*:831*/
#line 9754 "./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);
}
/*:830*//*854:*/
#line 9950 "./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);
}
/*:854*//*855:*/
#line 9958 "./marpa.w"
PRIVATE void ur_node_stack_reset(URS stack)
{
stack->t_top= stack->t_base;
}
/*:855*//*856:*/
#line 9964 "./marpa.w"
PRIVATE void ur_node_stack_destroy(URS stack)
{
if(stack->t_base)marpa_obs_free(stack->t_obs);
stack->t_base= NULL;
}
/*:856*//*857:*/
#line 9971 "./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;
}
/*:857*//*858:*/
#line 9981 "./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;
}
/*:858*//*859:*/
#line 9996 "./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;
}
/*:859*//*861:*/
#line 10033 "./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);
}
}
/*:861*//*862:*/
#line 10049 "./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;
}
/*:862*//*864:*/
#line 10091 "./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));
}
/*:864*//*889:*/
#line 10394 "./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;
}
/*:889*//*899:*/
#line 10594 "./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;
}
/*:899*//*900:*/
#line 10605 "./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;
}
/*:900*//*908:*/
#line 10745 "./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));
}
/*:908*//*913:*/
#line 10804 "./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;
}
}
/*:913*//*914:*/
#line 10838 "./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;
}
/*:914*//*915:*/
#line 10853 "./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);
}
/*:915*//*918:*/
#line 10911 "./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);
}
/*:918*//*935:*/
#line 11063 "./marpa.w"
Marpa_Bocage marpa_b_new(Marpa_Recognizer r,
Marpa_Earley_Set_ID ordinal_arg)
{
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 11067 "./marpa.w"
/*938:*/
#line 11134 "./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);
/*:938*//*941:*/
#line 11157 "./marpa.w"
struct s_bocage_setup_per_ys*per_ys_data= NULL;
/*:941*/
#line 11068 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11069 "./marpa.w"
if(_MARPA_UNLIKELY(ordinal_arg<=-2))
{
MARPA_ERROR(MARPA_ERR_INVALID_LOCATION);
return failure_indicator;
}
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 11076 "./marpa.w"
{
struct marpa_obstack*const obstack= marpa_obs_init;
b= marpa_obs_new(obstack,struct marpa_bocage,1);
OBS_of_B(b)= obstack;
}
/*880:*/
#line 10266 "./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;
/*:880*//*883:*/
#line 10289 "./marpa.w"
{
G_of_B(b)= G_of_R(r);
grammar_ref(g);
}
/*:883*//*937:*/
#line 11129 "./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);
/*:937*//*951:*/
#line 11274 "./marpa.w"
Ambiguity_Metric_of_B(b)= 1;
/*:951*//*955:*/
#line 11288 "./marpa.w"
b->t_ref_count= 1;
/*:955*//*962:*/
#line 11347 "./marpa.w"
B_is_Nulling(b)= 0;
/*:962*/
#line 11082 "./marpa.w"
if(G_is_Trivial(g)){
switch(ordinal_arg){
default:goto NO_PARSE;
case 0:case-1:break;
}
B_is_Nulling(b)= 1;
return b;
}
r_update_earley_sets(r);
/*942:*/
#line 11160 "./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);
}
/*:942*/
#line 11093 "./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;
}
/*945:*/
#line 11226 "./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;
}
}
}
}
/*:945*/
#line 11101 "./marpa.w"
if(!start_yim)goto NO_PARSE;
bocage_setup_obs= marpa_obs_init;
/*943:*/
#line 11182 "./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;
}
}
}
}
/*:943*/
#line 11104 "./marpa.w"
/*860:*/
#line 10014 "./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))
/*863:*/
#line 10067 "./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);
}
}
/*:863*/
#line 10027 "./marpa.w"
/*865:*/
#line 10101 "./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);
}
}
/*:865*/
#line 10028 "./marpa.w"
/*866:*/
#line 10124 "./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);
}
}
}
}
/*:866*/
#line 10029 "./marpa.w"
}
}
/*:860*/
#line 11105 "./marpa.w"
/*884:*/
#line 10296 "./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);
/*885:*/
#line 10322 "./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];
{
/*886:*/
#line 10338 "./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;
/*888:*/
#line 10372 "./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;
}
}
/*:888*/
#line 10351 "./marpa.w"
/*891:*/
#line 10420 "./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;
}
}
}
/*:891*/
#line 10352 "./marpa.w"
}
MARPA_OFF_ASSERT(psi_or_node)
OR_by_PSI(per_ys_data,working_ys_ordinal,working_yim_ordinal)
= psi_or_node;
/*892:*/
#line 10455 "./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){
/*893:*/
#line 10472 "./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;
/*894:*/
#line 10494 "./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;
}
}
}
/*:894*/
#line 10484 "./marpa.w"
/*895:*/
#line 10519 "./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))
}
}
/*:895*/
#line 10485 "./marpa.w"
}
previous_leo_item= this_leo_item;
}
}
/*:893*/
#line 10463 "./marpa.w"
}
}
}
/*:892*/
#line 10364 "./marpa.w"
}
/*:886*/
#line 10332 "./marpa.w"
}
}
}
}
/*:885*/
#line 10315 "./marpa.w"
/*901:*/
#line 10615 "./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));
/*902:*/
#line 10632 "./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;
}
}
/*:902*/
#line 10623 "./marpa.w"
if(or_node){
/*903:*/
#line 10646 "./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);
/*905:*/
#line 10688 "./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){
/*906:*/
#line 10709 "./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);
/*907:*/
#line 10736 "./marpa.w"
{
if(higher_path_leo_item){
/*916:*/
#line 10864 "./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);
}
/*:916*/
#line 10739 "./marpa.w"
}else{
path_or_node= work_proper_or_node;
}
}
/*:907*/
#line 10721 "./marpa.w"
/*909:*/
#line 10755 "./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);
}
}
/*:909*/
#line 10722 "./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);
/*907:*/
#line 10736 "./marpa.w"
{
if(higher_path_leo_item){
/*916:*/
#line 10864 "./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);
}
/*:916*/
#line 10739 "./marpa.w"
}else{
path_or_node= work_proper_or_node;
}
}
/*:907*/
#line 10730 "./marpa.w"
/*912:*/
#line 10781 "./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);
}
}
/*:912*/
#line 10731 "./marpa.w"
previous_path_irl= path_irl;
}
}
/*:906*/
#line 10703 "./marpa.w"
}
}
}
/*:905*/
#line 10653 "./marpa.w"
/*917:*/
#line 10879 "./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);
}
}
/*:917*/
#line 10654 "./marpa.w"
/*919:*/
#line 10921 "./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);
}
}
/*:919*/
#line 10655 "./marpa.w"
}
/*:903*/
#line 10625 "./marpa.w"
}
}
}
/*:901*/
#line 10316 "./marpa.w"
}
psar_destroy(or_psar);
ORs_of_B(b)= marpa_renew(OR,ORs_of_B(b),OR_Count_of_B(b));
}
/*:884*/
#line 11106 "./marpa.w"
/*925:*/
#line 10993 "./marpa.w"
{
int unique_draft_and_node_count= 0;
/*920:*/
#line 10946 "./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++;
}
}
/*:920*/
#line 10996 "./marpa.w"
/*926:*/
#line 11000 "./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;
if(and_count_of_parent_or> 1)Ambiguity_Metric_of_B(b)= 2;
}
AND_Count_of_B(b)= and_node_id;
MARPA_ASSERT(and_node_id==unique_draft_and_node_count);
}
/*:926*/
#line 10997 "./marpa.w"
}
/*:925*/
#line 11107 "./marpa.w"
/*946:*/
#line 11247 "./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);
}
/*:946*/
#line 11108 "./marpa.w"
;
marpa_obs_free(bocage_setup_obs);
return b;
NO_PARSE:;
MARPA_ERROR(MARPA_ERR_NO_PARSE);
if(b){
/*958:*/
#line 11324 "./marpa.w"
/*881:*/
#line 10273 "./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;
}
/*:881*/
#line 11325 "./marpa.w"
;
/*934:*/
#line 11059 "./marpa.w"
marpa_obs_free(OBS_of_B(b));
/*:934*/
#line 11326 "./marpa.w"
;
/*:958*/
#line 11114 "./marpa.w"
;
}
return NULL;
}
/*:935*//*948:*/
#line 11258 "./marpa.w"
Marpa_Or_Node_ID _marpa_b_top_or_node(Marpa_Bocage b)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11261 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11262 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11263 "./marpa.w"
return Top_ORID_of_B(b);
}
/*:948*//*952:*/
#line 11277 "./marpa.w"
int marpa_b_ambiguity_metric(Marpa_Bocage b)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11280 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11281 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11282 "./marpa.w"
return Ambiguity_Metric_of_B(b);
}
/*:952*//*956:*/
#line 11291 "./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);
}
/*:956*//*957:*/
#line 11309 "./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);
}
/*:957*//*959:*/
#line 11331 "./marpa.w"
PRIVATE void
bocage_free(BOCAGE b)
{
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11335 "./marpa.w"
if(b)
{
/*958:*/
#line 11324 "./marpa.w"
/*881:*/
#line 10273 "./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;
}
/*:881*/
#line 11325 "./marpa.w"
;
/*934:*/
#line 11059 "./marpa.w"
marpa_obs_free(OBS_of_B(b));
/*:934*/
#line 11326 "./marpa.w"
;
/*:958*/
#line 11338 "./marpa.w"
;
}
}
/*:959*//*963:*/
#line 11349 "./marpa.w"
int marpa_b_is_null(Marpa_Bocage b)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11352 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11353 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11354 "./marpa.w"
return B_is_Nulling(b);
}
/*:963*//*970:*/
#line 11394 "./marpa.w"
Marpa_Order marpa_o_new(Marpa_Bocage b)
{
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 11397 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11398 "./marpa.w"
ORDER o;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11400 "./marpa.w"
o= my_malloc(sizeof(*o));
B_of_O(o)= b;
bocage_ref(b);
/*967:*/
#line 11382 "./marpa.w"
{
o->t_and_node_orderings= NULL;
o->t_is_frozen= 0;
OBS_of_O(o)= NULL;
}
/*:967*//*973:*/
#line 11412 "./marpa.w"
o->t_ref_count= 1;
/*:973*//*986:*/
#line 11580 "./marpa.w"
High_Rank_Count_of_O(o)= 1;
/*:986*/
#line 11404 "./marpa.w"
O_is_Nulling(o)= B_is_Nulling(b);
Ambiguity_Metric_of_O(o)= -1;
return o;
}
/*:970*//*974:*/
#line 11416 "./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);
}
/*:974*//*975:*/
#line 11434 "./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);
}
/*:975*//*976:*/
#line 11448 "./marpa.w"
PRIVATE void order_free(ORDER o)
{
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11451 "./marpa.w"
bocage_unref(b);
marpa_obs_free(OBS_of_O(o));
my_free(o);
}
/*:976*//*980:*/
#line 11469 "./marpa.w"
int marpa_o_ambiguity_metric(Marpa_Order o)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11472 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11473 "./marpa.w"
const int old_ambiguity_metric_of_o
= Ambiguity_Metric_of_O(o);
const int ambiguity_metric_of_b
= (Ambiguity_Metric_of_B(b)<=1?1:2);
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11478 "./marpa.w"
O_is_Frozen(o)= 1;
if(old_ambiguity_metric_of_o>=0)
return old_ambiguity_metric_of_o;
if(ambiguity_metric_of_b<2
||O_is_Default(o)
||High_Rank_Count_of_O(o)<=0
){
Ambiguity_Metric_of_O(o)= ambiguity_metric_of_b;
return ambiguity_metric_of_b;
}
/*981:*/
#line 11497 "./marpa.w"
{
ANDID**const and_node_orderings= o->t_and_node_orderings;
const AND and_nodes= ANDs_of_B(b);
ORID*top_of_stack;
const ORID root_or_id= Top_ORID_of_B(b);
FSTACK_DECLARE(or_node_stack,ORID)
const int or_count= OR_Count_of_B(b);
Bit_Vector bv_orid_was_stacked;
Ambiguity_Metric_of_O(o)= 1;
bv_orid_was_stacked= bv_create(or_count);
FSTACK_INIT(or_node_stack,ORID,or_count);
*(FSTACK_PUSH(or_node_stack))= root_or_id;
bv_bit_set(bv_orid_was_stacked,root_or_id);
while((top_of_stack= FSTACK_POP(or_node_stack)))
{
const ORID or_id= *top_of_stack;
const OR or_node= OR_of_B_by_ID(b,or_id);
ANDID*ordering= and_node_orderings[or_id];
int and_count= ordering?ordering[0]:AND_Count_of_OR(or_node);
if(and_count> 1)
{
Ambiguity_Metric_of_O(o)= 2;
goto END_OR_NODE_LOOP;
}
{
const ANDID and_id= ordering?ordering[1]:First_ANDID_of_OR(or_node);
const AND and_node= and_nodes+and_id;
const OR predecessor_or= Predecessor_OR_of_AND(and_node);
const OR cause_or= Cause_OR_of_AND(and_node);
if(predecessor_or)
{
const ORID predecessor_or_id= ID_of_OR(predecessor_or);
if(!bv_bit_test_then_set(bv_orid_was_stacked,predecessor_or_id))
{
*(FSTACK_PUSH(or_node_stack))= predecessor_or_id;
}
}
if(cause_or&&!OR_is_Token(cause_or))
{
const ORID cause_or_id= ID_of_OR(cause_or);
if(!bv_bit_test_then_set(bv_orid_was_stacked,cause_or_id))
{
*(FSTACK_PUSH(or_node_stack))= cause_or_id;
}
}
}
}
END_OR_NODE_LOOP:;
FSTACK_DESTROY(or_node_stack);
bv_free(bv_orid_was_stacked);
}
/*:981*/
#line 11489 "./marpa.w"
return Ambiguity_Metric_of_O(o);
}
/*:980*//*984:*/
#line 11563 "./marpa.w"
int marpa_o_is_null(Marpa_Order o)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11566 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11567 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11568 "./marpa.w"
return O_is_Nulling(o);
}
/*:984*//*987:*/
#line 11582 "./marpa.w"
int marpa_o_high_rank_only_set(
Marpa_Order o,
int count)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11587 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11588 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11589 "./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;
}
/*:987*//*988:*/
#line 11604 "./marpa.w"
int marpa_o_high_rank_only(Marpa_Order o)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11607 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11608 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11609 "./marpa.w"
return High_Rank_Count_of_O(o);
}
/*:988*//*992:*/
#line 11646 "./marpa.w"
int marpa_o_rank(Marpa_Order o)
{
ANDID**and_node_orderings;
struct marpa_obstack*obs;
int bocage_was_reordered= 0;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11652 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11653 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11654 "./marpa.w"
if(O_is_Frozen(o))
{
MARPA_ERROR(MARPA_ERR_ORDER_FROZEN);
return failure_indicator;
}
/*998:*/
#line 11815 "./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;
}
}
/*:998*/
#line 11660 "./marpa.w"
if(High_Rank_Count_of_O(o)){
/*993:*/
#line 11675 "./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;
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);
/*994:*/
#line 11690 "./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;
/*995:*/
#line 11728 "./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));
}
}
/*:995*/
#line 11710 "./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;
marpa_obs_confirm_fast(obs,(int)sizeof(ANDID)*(final_count+1));
and_node_orderings[or_node_id]= marpa_obs_finish(obs);
}
}
}
/*:994*/
#line 11685 "./marpa.w"
or_node_id++;
}
}
/*:993*/
#line 11662 "./marpa.w"
}else{
/*996:*/
#line 11739 "./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;
/*995:*/
#line 11728 "./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));
}
}
/*:995*/
#line 11751 "./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);
/*997:*/
#line 11784 "./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;
}
}
}
/*:997*/
#line 11758 "./marpa.w"
or_node_id++;
}
my_free(rank_by_and_id);
}
/*:996*/
#line 11664 "./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;
}
/*:992*//*999:*/
#line 11832 "./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;
}
/*:999*//*1000:*/
#line 11853 "./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;
}
/*:1000*//*1001:*/
#line 11867 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 11872 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11873 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11874 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 11875 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 11876 "./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);
}
/*:1001*//*1006:*/
#line 11929 "./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;
}
/*:1006*//*1007:*/
#line 11947 "./marpa.w"
Marpa_Tree marpa_t_new(Marpa_Order o)
{
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 11950 "./marpa.w"
TREE t;
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11952 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 11953 "./marpa.w"
t= my_malloc(sizeof(*t));
O_of_T(t)= o;
order_ref(o);
O_is_Frozen(o)= 1;
/*1024:*/
#line 12139 "./marpa.w"
T_is_Exhausted(t)= 0;
/*:1024*/
#line 11958 "./marpa.w"
/*1008:*/
#line 11963 "./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);
}
}
/*:1008*//*1011:*/
#line 11987 "./marpa.w"
t->t_ref_count= 1;
/*:1011*//*1018:*/
#line 12066 "./marpa.w"
t->t_pause_counter= 0;
/*:1018*/
#line 11959 "./marpa.w"
return t;
}
/*:1007*//*1012:*/
#line 11991 "./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);
}
/*:1012*//*1013:*/
#line 12009 "./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);
}
/*:1013*//*1014:*/
#line 12023 "./marpa.w"
PRIVATE void tree_free(TREE t)
{
order_unref(O_of_T(t));
tree_exhaust(t);
my_free(t);
}
/*:1014*//*1019:*/
#line 12067 "./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);
}
/*:1019*//*1020:*/
#line 12076 "./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);
}
/*:1020*//*1021:*/
#line 12086 "./marpa.w"
int marpa_t_next(Marpa_Tree t)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12089 "./marpa.w"
const int termination_indicator= -1;
int is_first_tree_attempt= (t->t_parse_count<1);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12092 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12093 "./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;
/*1030:*/
#line 12168 "./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;
}
/*:1030*/
#line 12118 "./marpa.w"
}else{
/*1031:*/
#line 12193 "./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;
}
/*:1031*/
#line 12120 "./marpa.w"
}
/*1032:*/
#line 12235 "./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;
/*1033:*/
#line 12298 "./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;
}
}
/*:1033*/
#line 12292 "./marpa.w"
;
NEXT_NOOK_ON_WORKLIST:;
}
NEXT_TREE:;
}
/*:1032*/
#line 12122 "./marpa.w"
}
TREE_IS_FINISHED:;
t->t_parse_count++;
return FSTACK_LENGTH(t->t_nook_stack);
TREE_IS_EXHAUSTED:;
tree_exhaust(t);
MARPA_ERROR(MARPA_ERR_TREE_EXHAUSTED);
return termination_indicator;
}
/*:1021*//*1028:*/
#line 12155 "./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);
}
/*:1028*//*1029:*/
#line 12161 "./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);
}
/*:1029*//*1034:*/
#line 12319 "./marpa.w"
int marpa_t_parse_count(Marpa_Tree t)
{
return t->t_parse_count;
}
/*:1034*//*1035:*/
#line 12327 "./marpa.w"
int _marpa_t_size(Marpa_Tree t)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12330 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12331 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12332 "./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);
}
/*:1035*//*1056:*/
#line 12545 "./marpa.w"
Marpa_Value marpa_v_new(Marpa_Tree t)
{
/*1201:*/
#line 14554 "./marpa.w"
void*const failure_indicator= NULL;
/*:1201*/
#line 12548 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12549 "./marpa.w"
;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12550 "./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;
/*1047:*/
#line 12471 "./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;
/*:1047*//*1054:*/
#line 12534 "./marpa.w"
MARPA_DSTACK_SAFE(VStack_of_V(v));
/*:1054*//*1059:*/
#line 12582 "./marpa.w"
v->t_ref_count= 1;
/*:1059*//*1066:*/
#line 12635 "./marpa.w"
V_is_Nulling(v)= 0;
/*:1066*//*1068:*/
#line 12642 "./marpa.w"
V_is_Trace(v)= 0;
/*:1068*//*1071:*/
#line 12663 "./marpa.w"
NOOK_of_V(v)= -1;
/*:1071*//*1076:*/
#line 12690 "./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);
}
/*:1076*/
#line 12562 "./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;
}
/*:1056*//*1060:*/
#line 12586 "./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);
}
/*:1060*//*1061:*/
#line 12604 "./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);
}
/*:1061*//*1062:*/
#line 12618 "./marpa.w"
PRIVATE void value_free(VALUE v)
{
tree_unpause(T_of_V(v));
/*1055:*/
#line 12536 "./marpa.w"
{
if(_MARPA_LIKELY(MARPA_DSTACK_IS_INITIALIZED(VStack_of_V(v))!=NULL))
{
MARPA_DSTACK_DESTROY(VStack_of_V(v));
}
}
/*:1055*/
#line 12622 "./marpa.w"
/*1049:*/
#line 12487 "./marpa.w"
marpa_obs_free(v->t_obs);
/*:1049*/
#line 12623 "./marpa.w"
}
/*:1062*//*1069:*/
#line 12644 "./marpa.w"
int _marpa_v_trace(Marpa_Value public_v,int flag)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12647 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12649 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12650 "./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;
}
/*:1069*//*1072:*/
#line 12666 "./marpa.w"
Marpa_Nook_ID _marpa_v_nook(Marpa_Value public_v)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12669 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12671 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12672 "./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);
}
/*:1072*//*1077:*/
#line 12699 "./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);
}
/*:1077*//*1078:*/
#line 12708 "./marpa.w"
int marpa_v_symbol_is_valued(
Marpa_Value public_v,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12713 "./marpa.w"
const VALUE v= (VALUE)public_v;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12715 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12716 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 12717 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 12718 "./marpa.w"
return lbv_bit_test(XSY_is_Valued_BV_of_V(v),xsy_id);
}
/*:1078*//*1079:*/
#line 12724 "./marpa.w"
PRIVATE int symbol_is_valued_set(
VALUE v,XSYID xsy_id,int value)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12728 "./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;
}
/*:1079*//*1080:*/
#line 12747 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12752 "./marpa.w"
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12753 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12754 "./marpa.w"
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 12760 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 12761 "./marpa.w"
return symbol_is_valued_set(v,xsy_id,value);
}
/*:1080*//*1081:*/
#line 12767 "./marpa.w"
int
marpa_v_valued_force(Marpa_Value public_v)
{
const VALUE v= (VALUE)public_v;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12772 "./marpa.w"
XSYID xsy_count;
XSYID xsy_id;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12775 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12776 "./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;
}
/*:1081*//*1082:*/
#line 12791 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12796 "./marpa.w"
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12797 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12798 "./marpa.w"
if(_MARPA_UNLIKELY(value<0||value> 1))
{
MARPA_ERROR(MARPA_ERR_INVALID_BOOLEAN);
return failure_indicator;
}
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 12804 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 12805 "./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);
}
}
/*:1082*//*1083:*/
#line 12813 "./marpa.w"
int marpa_v_rule_is_valued(
Marpa_Value public_v,Marpa_Rule_ID xrl_id)
{
const VALUE v= (VALUE)public_v;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12818 "./marpa.w"
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12819 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12820 "./marpa.w"
/*1212:*/
#line 14615 "./marpa.w"
if(_MARPA_UNLIKELY(XRLID_is_Malformed(xrl_id))){
MARPA_ERROR(MARPA_ERR_INVALID_RULE_ID);
return failure_indicator;
}
/*:1212*/
#line 12821 "./marpa.w"
/*1210:*/
#line 14603 "./marpa.w"
if(_MARPA_UNLIKELY(!XRLID_of_G_Exists(xrl_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_RULE_ID);
return-1;
}
/*:1210*/
#line 12822 "./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);
}
}
/*:1083*//*1085:*/
#line 12837 "./marpa.w"
Marpa_Step_Type marpa_v_step(Marpa_Value public_v)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 12840 "./marpa.w"
const VALUE v= (VALUE)public_v;
if(V_is_Nulling(v)){
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12844 "./marpa.w"
/*1087:*/
#line 12925 "./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;
}
}
}
}
/*:1087*/
#line 12845 "./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;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12856 "./marpa.w"
xsy_count= XSY_Count_of_G(g);
lbv_fill(Valued_Locked_BV_of_V(v),xsy_count);
/*1086:*/
#line 12909 "./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);
}
}
}
/*:1086*/
#line 12859 "./marpa.w"
}
case STEP_GET_DATA:
/*1088:*/
#line 12950 "./marpa.w"
{
AND and_nodes;
int pop_arguments= 1;
/*1063:*/
#line 12626 "./marpa.w"
TREE t= T_of_V(v);
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 12628 "./marpa.w"
/*:1063*/
#line 12960 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 12961 "./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;
}
}
/*:1088*/
#line 12863 "./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;
}
/*:1085*//*1090:*/
#line 13113 "./marpa.w"
PRIVATE int lbv_bits_to_size(int bits)
{
const LBW result= ((LBW)bits+(lbv_wordbits-1))/lbv_wordbits;
return(int)result;
}
/*:1090*//*1091:*/
#line 13121 "./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;
}
/*:1091*//*1092:*/
#line 13131 "./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;
}
/*:1092*//*1093:*/
#line 13144 "./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);
}
/*:1093*//*1095:*/
#line 13163 "./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;
}
/*:1095*//*1096:*/
#line 13179 "./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;
}
/*:1096*//*1099:*/
#line 13215 "./marpa.w"
PRIVATE unsigned int bv_bits_to_size(int bits)
{
return((LBW)bits+bv_modmask)/bv_wordbits;
}
/*:1099*//*1100:*/
#line 13221 "./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);
}
/*:1100*//*1102:*/
#line 13235 "./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;
}
/*:1102*//*1104:*/
#line 13253 "./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;
}
/*:1104*//*1105:*/
#line 13274 "./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));
}
/*:1105*//*1106:*/
#line 13288 "./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);
}
/*:1106*//*1107:*/
#line 13306 "./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);
}
/*:1107*//*1108:*/
#line 13320 "./marpa.w"
PRIVATE void bv_free(Bit_Vector vector)
{
if(_MARPA_LIKELY(vector!=NULL))
{
vector-= bv_hiddenwords;
my_free(vector);
}
}
/*:1108*//*1109:*/
#line 13331 "./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);
}
/*:1109*//*1110:*/
#line 13342 "./marpa.w"
PRIVATE void bv_clear(Bit_Vector bv)
{
LBW size= BV_SIZE(bv);
if(size<=0)return;
while(size--)*bv++= 0u;
}
/*:1110*//*1112:*/
#line 13356 "./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;
}
/*:1112*//*1114:*/
#line 13365 "./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));
}
/*:1114*//*1115:*/
#line 13373 "./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));
}
/*:1115*//*1116:*/
#line 13381 "./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;
}
/*:1116*//*1117:*/
#line 13393 "./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;
}
/*:1117*//*1118:*/
#line 13407 "./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);
}
/*:1118*//*1119:*/
#line 13421 "./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;
}
/*:1119*//*1120:*/
#line 13431 "./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;
}
/*:1120*//*1121:*/
#line 13441 "./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;
}
/*:1121*//*1122:*/
#line 13451 "./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;
}
/*:1122*//*1123:*/
#line 13461 "./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;
}
/*:1123*//*1124:*/
#line 13541 "./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;
}
/*:1124*//*1129:*/
#line 13588 "./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);
}
/*:1129*//*1134:*/
#line 13735 "./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;
}
/*:1134*//*1136:*/
#line 13758 "./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;
}
/*:1136*//*1138:*/
#line 13768 "./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);
}
/*:1138*//*1139:*/
#line 13781 "./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;
}
}
/*:1139*//*1140:*/
#line 13803 "./marpa.w"
PRIVATE int matrix_columns(Bit_Matrix matrix)
{
Bit_Vector row0= matrix->t_row_data+bv_hiddenwords;
return(int)BV_BITS(row0);
}
/*:1140*//*1141:*/
#line 13819 "./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;
}
/*:1141*//*1143:*/
#line 13828 "./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);
}
/*:1143*//*1145:*/
#line 13836 "./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);
}
/*:1145*//*1147:*/
#line 13844 "./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);
}
/*:1147*//*1148:*/
#line 13861 "./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);
}
}
}
}
/*:1148*//*1160:*/
#line 14002 "./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;
}
/*:1160*//*1161:*/
#line 14016 "./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;
}
/*:1161*//*1162:*/
#line 14025 "./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));
}
/*:1162*//*1163:*/
#line 14034 "./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);
}
/*:1163*//*1164:*/
#line 14044 "./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);
}
/*:1164*//*1165:*/
#line 14060 "./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;
}
/*:1165*//*1166:*/
#line 14088 "./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);
}
/*:1166*//*1167:*/
#line 14105 "./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;
}
/*:1167*//*1168:*/
#line 14120 "./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;
}
/*:1168*//*1169:*/
#line 14136 "./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);
}
/*:1169*//*1170:*/
#line 14155 "./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);
}
/*:1170*//*1171:*/
#line 14208 "./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);
}
/*:1171*//*1172:*/
#line 14243 "./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;
}
/*:1172*//*1185:*/
#line 14382 "./marpa.w"
PRIVATE void
psar_safe(const PSAR psar)
{
psar->t_psl_length= 0;
psar->t_first_psl= psar->t_first_free_psl= NULL;
}
/*:1185*//*1186:*/
#line 14389 "./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);
}
/*:1186*//*1187:*/
#line 14396 "./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;
}
}
/*:1187*//*1188:*/
#line 14410 "./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;
}
/*:1188*//*1191:*/
#line 14441 "./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);
}
/*:1191*//*1193:*/
#line 14459 "./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;
}
/*:1193*//*1195:*/
#line 14479 "./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;
}
/*:1195*//*1196:*/
#line 14489 "./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;
}
/*:1196*//*1197:*/
#line 14506 "./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;
}
/*:1197*//*1223:*/
#line 14724 "./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;
}
/*:1223*//*1224:*/
#line 14743 "./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;
}
/*:1224*//*1228:*/
#line 14786 "./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;
/*:1228*//*1234:*/
#line 14816 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_trace_earley_set(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14819 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14820 "./marpa.w"
YS trace_earley_set= r->t_trace_earley_set;
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 14822 "./marpa.w"
if(!trace_earley_set){
MARPA_ERROR(MARPA_ERR_NO_TRACE_YS);
return failure_indicator;
}
return Ord_of_YS(trace_earley_set);
}
/*:1234*//*1235:*/
#line 14830 "./marpa.w"
Marpa_Earley_Set_ID marpa_r_latest_earley_set(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14833 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14834 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 14835 "./marpa.w"
if(G_is_Trivial(g))return 0;
return Ord_of_YS(Latest_YS_of_R(r));
}
/*:1235*//*1236:*/
#line 14840 "./marpa.w"
Marpa_Earleme marpa_r_earleme(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14843 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14844 "./marpa.w"
YS earley_set;
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14846 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14847 "./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);
}
/*:1236*//*1238:*/
#line 14865 "./marpa.w"
int _marpa_r_earley_set_size(Marpa_Recognizer r,Marpa_Earley_Set_ID set_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14868 "./marpa.w"
YS earley_set;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14870 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14871 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14872 "./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);
}
/*:1238*//*1243:*/
#line 14914 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14920 "./marpa.w"
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14921 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 14922 "./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);
}
/*1244:*/
#line 14945 "./marpa.w"
{
r->t_trace_earley_set= NULL;
trace_earley_item_clear(r);
/*1256:*/
#line 15129 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1256*/
#line 14948 "./marpa.w"
}
/*:1244*/
#line 14929 "./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);
}
/*:1243*//*1245:*/
#line 14951 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 14956 "./marpa.w"
YS trace_earley_set;
YIM earley_item;
YIM*earley_items;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 14960 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 14961 "./marpa.w"
trace_earley_set= r->t_trace_earley_set;
if(!trace_earley_set)
{
/*1244:*/
#line 14945 "./marpa.w"
{
r->t_trace_earley_set= NULL;
trace_earley_item_clear(r);
/*1256:*/
#line 15129 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1256*/
#line 14948 "./marpa.w"
}
/*:1244*/
#line 14965 "./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);
}
/*:1245*//*1247:*/
#line 14994 "./marpa.w"
PRIVATE void trace_earley_item_clear(RECCE r)
{
/*1246:*/
#line 14991 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1246*/
#line 14997 "./marpa.w"
trace_source_link_clear(r);
}
/*:1247*//*1248:*/
#line 15001 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_earley_item_origin(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15004 "./marpa.w"
YIM item= r->t_trace_earley_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15006 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15007 "./marpa.w"
if(!item){
/*1246:*/
#line 14991 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1246*/
#line 15009 "./marpa.w"
MARPA_ERROR(MARPA_ERR_NO_TRACE_YIM);
return failure_indicator;
}
return Origin_Ord_of_YIM(item);
}
/*:1248*//*1250:*/
#line 15021 "./marpa.w"
Marpa_Symbol_ID _marpa_r_leo_predecessor_symbol(Marpa_Recognizer r)
{
const Marpa_Symbol_ID no_predecessor= -1;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15025 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
LIM predecessor_leo_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15028 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15029 "./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);
}
/*:1250*//*1251:*/
#line 15043 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_leo_base_origin(Marpa_Recognizer r)
{
const JEARLEME pim_is_not_a_leo_item= -1;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15047 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15049 "./marpa.w"
YIM base_earley_item;
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15051 "./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);
}
/*:1251*//*1252:*/
#line 15062 "./marpa.w"
Marpa_AHM_ID _marpa_r_leo_base_state(Marpa_Recognizer r)
{
const JEARLEME pim_is_not_a_leo_item= -1;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15066 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
YIM base_earley_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15069 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15070 "./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);
}
/*:1252*//*1255:*/
#line 15103 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_postdot_symbol_trace(Marpa_Recognizer r,
Marpa_Symbol_ID xsy_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15108 "./marpa.w"
YS current_ys= r->t_trace_earley_set;
PIM*pim_nsy_p;
PIM pim;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15112 "./marpa.w"
/*1256:*/
#line 15129 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1256*/
#line 15113 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15114 "./marpa.w"
/*1205:*/
#line 14573 "./marpa.w"
if(_MARPA_UNLIKELY(XSYID_is_Malformed(xsy_id))){
MARPA_ERROR(MARPA_ERR_INVALID_SYMBOL_ID);
return failure_indicator;
}
/*:1205*/
#line 15115 "./marpa.w"
/*1206:*/
#line 14580 "./marpa.w"
if(_MARPA_UNLIKELY(!XSYID_of_G_Exists(xsy_id))){
MARPA_ERROR(MARPA_ERR_NO_SUCH_SYMBOL_ID);
return-1;
}
/*:1206*/
#line 15116 "./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;
}
/*:1255*//*1257:*/
#line 15139 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_first_postdot_item_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15143 "./marpa.w"
YS current_earley_set= r->t_trace_earley_set;
PIM pim;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15146 "./marpa.w"
PIM*pim_nsy_p;
/*1256:*/
#line 15129 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1256*/
#line 15148 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15149 "./marpa.w"
if(!current_earley_set){
/*1246:*/
#line 14991 "./marpa.w"
r->t_trace_earley_item= NULL;
/*:1246*/
#line 15151 "./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);
}
/*:1257*//*1258:*/
#line 15170 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_next_postdot_item_trace(Marpa_Recognizer r)
{
const XSYID no_more_postdot_symbols= -1;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15175 "./marpa.w"
YS current_set= r->t_trace_earley_set;
PIM pim;
PIM*pim_nsy_p;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15179 "./marpa.w"
pim_nsy_p= r->t_trace_pim_nsy_p;
pim= r->t_trace_postdot_item;
/*1256:*/
#line 15129 "./marpa.w"
r->t_trace_pim_nsy_p= NULL;
r->t_trace_postdot_item= NULL;
/*:1256*/
#line 15183 "./marpa.w"
if(!pim_nsy_p||!pim){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15188 "./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);
}
/*:1258*//*1259:*/
#line 15208 "./marpa.w"
Marpa_Symbol_ID _marpa_r_postdot_item_symbol(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15211 "./marpa.w"
PIM postdot_item= r->t_trace_postdot_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15213 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15214 "./marpa.w"
if(!postdot_item){
MARPA_ERROR(MARPA_ERR_NO_TRACE_PIM);
return failure_indicator;
}
return Postdot_NSYID_of_PIM(postdot_item);
}
/*:1259*//*1264:*/
#line 15244 "./marpa.w"
Marpa_Symbol_ID _marpa_r_first_token_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15247 "./marpa.w"
SRCL source_link;
unsigned int source_type;
YIM item= r->t_trace_earley_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15251 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15252 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15253 "./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;
}
/*:1264*//*1267:*/
#line 15285 "./marpa.w"
Marpa_Symbol_ID _marpa_r_next_token_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15288 "./marpa.w"
SRCL source_link;
YIM item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15291 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15292 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15293 "./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);
}
/*:1267*//*1269:*/
#line 15316 "./marpa.w"
Marpa_Symbol_ID _marpa_r_first_completion_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15319 "./marpa.w"
SRCL source_link;
unsigned int source_type;
YIM item= r->t_trace_earley_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15323 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15324 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15325 "./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;
}
/*:1269*//*1272:*/
#line 15356 "./marpa.w"
Marpa_Symbol_ID _marpa_r_next_completion_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15359 "./marpa.w"
SRCL source_link;
YIM item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15362 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15363 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15364 "./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);
}
/*:1272*//*1274:*/
#line 15387 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_first_leo_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15391 "./marpa.w"
SRCL source_link;
YIM item= r->t_trace_earley_item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15394 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15395 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15396 "./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;
}
/*:1274*//*1277:*/
#line 15415 "./marpa.w"
Marpa_Symbol_ID
_marpa_r_next_leo_link_trace(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15419 "./marpa.w"
SRCL source_link;
YIM item;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15422 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15423 "./marpa.w"
/*1278:*/
#line 15441 "./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;
}
/*:1278*/
#line 15424 "./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);
}
/*:1277*//*1279:*/
#line 15450 "./marpa.w"
PRIVATE void trace_source_link_clear(RECCE r)
{
r->t_trace_source_link= NULL;
r->t_trace_source_type= NO_SOURCE;
}
/*:1279*//*1280:*/
#line 15465 "./marpa.w"
AHMID _marpa_r_source_predecessor_state(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15468 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15471 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15472 "./marpa.w"
source_type= r->t_trace_source_type;
/*1286:*/
#line 15617 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1286*/
#line 15474 "./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;
}
/*:1280*//*1281:*/
#line 15506 "./marpa.w"
Marpa_Symbol_ID _marpa_r_source_token(Marpa_Recognizer r,int*value_p)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15509 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15512 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15513 "./marpa.w"
source_type= r->t_trace_source_type;
/*1286:*/
#line 15617 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1286*/
#line 15515 "./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;
}
/*:1281*//*1283:*/
#line 15537 "./marpa.w"
Marpa_Symbol_ID _marpa_r_source_leo_transition_symbol(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15540 "./marpa.w"
unsigned int source_type;
SRCL source_link;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15543 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15544 "./marpa.w"
source_type= r->t_trace_source_type;
/*1286:*/
#line 15617 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1286*/
#line 15546 "./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;
}
/*:1283*//*1285:*/
#line 15580 "./marpa.w"
Marpa_Earley_Set_ID _marpa_r_source_middle(Marpa_Recognizer r)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15583 "./marpa.w"
YIM predecessor_yim= NULL;
unsigned int source_type;
SRCL source_link;
/*556:*/
#line 6049 "./marpa.w"
const GRAMMAR g= G_of_R(r);
/*:556*/
#line 15587 "./marpa.w"
/*1219:*/
#line 14668 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 14669 "./marpa.w"
/*1217:*/
#line 14652 "./marpa.w"
if(_MARPA_UNLIKELY(Input_Phase_of_R(r)==R_BEFORE_INPUT)){
MARPA_ERROR(MARPA_ERR_RECCE_NOT_STARTED);
return failure_indicator;
}
/*:1217*/
#line 14670 "./marpa.w"
/*:1219*/
#line 15588 "./marpa.w"
source_type= r->t_trace_source_type;
/*1286:*/
#line 15617 "./marpa.w"
source_link= r->t_trace_source_link;
if(!source_link){
MARPA_ERROR(MARPA_ERR_NO_TRACE_SRCL);
return failure_indicator;
}
/*:1286*/
#line 15590 "./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);
}
/*:1285*//*1290:*/
#line 15655 "./marpa.w"
int _marpa_b_or_node_set(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15660 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15661 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15662 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15663 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15664 "./marpa.w"
return YS_Ord_of_OR(or_node);
}
/*:1290*//*1291:*/
#line 15668 "./marpa.w"
int _marpa_b_or_node_origin(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15673 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15674 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15675 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15676 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15677 "./marpa.w"
return Origin_Ord_of_OR(or_node);
}
/*:1291*//*1292:*/
#line 15681 "./marpa.w"
Marpa_IRL_ID _marpa_b_or_node_irl(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15686 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15687 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15688 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15689 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15690 "./marpa.w"
return IRLID_of_OR(or_node);
}
/*:1292*//*1293:*/
#line 15694 "./marpa.w"
int _marpa_b_or_node_position(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15699 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15700 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15701 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15702 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15703 "./marpa.w"
return Position_of_OR(or_node);
}
/*:1293*//*1294:*/
#line 15707 "./marpa.w"
int _marpa_b_or_node_is_whole(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15712 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15713 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15714 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15715 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15716 "./marpa.w"
return Position_of_OR(or_node)>=Length_of_IRL(IRL_of_OR(or_node))?1:0;
}
/*:1294*//*1295:*/
#line 15720 "./marpa.w"
int _marpa_b_or_node_is_semantic(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15725 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15726 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15727 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15728 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15729 "./marpa.w"
return!IRL_has_Virtual_LHS(IRL_of_OR(or_node));
}
/*:1295*//*1296:*/
#line 15733 "./marpa.w"
int _marpa_b_or_node_first_and(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15738 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15739 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15740 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15741 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15742 "./marpa.w"
return First_ANDID_of_OR(or_node);
}
/*:1296*//*1297:*/
#line 15746 "./marpa.w"
int _marpa_b_or_node_last_and(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15751 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15752 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15753 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15754 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15755 "./marpa.w"
return First_ANDID_of_OR(or_node)
+AND_Count_of_OR(or_node)-1;
}
/*:1297*//*1298:*/
#line 15760 "./marpa.w"
int _marpa_b_or_node_and_count(Marpa_Bocage b,
Marpa_Or_Node_ID or_node_id)
{
OR or_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15765 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15766 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15767 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15768 "./marpa.w"
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15769 "./marpa.w"
return AND_Count_of_OR(or_node);
}
/*:1298*//*1301:*/
#line 15783 "./marpa.w"
int _marpa_o_or_node_and_node_count(Marpa_Order o,
Marpa_Or_Node_ID or_node_id)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15787 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 15788 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15789 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15790 "./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;
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15799 "./marpa.w"
return AND_Count_of_OR(or_node);
}
}
/*:1301*//*1302:*/
#line 15804 "./marpa.w"
int _marpa_o_or_node_and_node_id_by_ix(Marpa_Order o,
Marpa_Or_Node_ID or_node_id,int ix)
{
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15808 "./marpa.w"
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 15809 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15810 "./marpa.w"
/*1288:*/
#line 15633 "./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;
}
}
/*:1288*/
#line 15811 "./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;
/*1289:*/
#line 15645 "./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);
}
/*:1289*/
#line 15820 "./marpa.w"
return First_ANDID_of_OR(or_node)+ix;
}
}
/*:1302*//*1304:*/
#line 15827 "./marpa.w"
int _marpa_b_and_node_count(Marpa_Bocage b)
{
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15830 "./marpa.w"
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15831 "./marpa.w"
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15832 "./marpa.w"
return AND_Count_of_B(b);
}
/*:1304*//*1306:*/
#line 15858 "./marpa.w"
int _marpa_b_and_node_parent(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15863 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15864 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15865 "./marpa.w"
return ID_of_OR(OR_of_AND(and_node));
}
/*:1306*//*1307:*/
#line 15869 "./marpa.w"
int _marpa_b_and_node_predecessor(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15874 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15875 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15876 "./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;
}
}
/*:1307*//*1308:*/
#line 15885 "./marpa.w"
int _marpa_b_and_node_cause(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15890 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15891 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15892 "./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;
}
}
/*:1308*//*1309:*/
#line 15901 "./marpa.w"
int _marpa_b_and_node_symbol(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15906 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15907 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15908 "./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;
}
}
/*:1309*//*1310:*/
#line 15917 "./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;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15923 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15924 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15925 "./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);
}
/*:1310*//*1311:*/
#line 15940 "./marpa.w"
Marpa_Earley_Set_ID _marpa_b_and_node_middle(Marpa_Bocage b,
Marpa_And_Node_ID and_node_id)
{
AND and_node;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15945 "./marpa.w"
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 15946 "./marpa.w"
/*1305:*/
#line 15836 "./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;
}
}
/*:1305*/
#line 15947 "./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));
}
/*:1311*//*1314:*/
#line 15980 "./marpa.w"
int _marpa_t_nook_or_node(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15984 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 15985 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 15986 "./marpa.w"
return ID_of_OR(OR_of_NOOK(nook));
}
/*:1314*//*1315:*/
#line 15990 "./marpa.w"
int _marpa_t_nook_choice(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 15994 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 15995 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 15996 "./marpa.w"
return Choice_of_NOOK(nook);
}
/*:1315*//*1316:*/
#line 16000 "./marpa.w"
int _marpa_t_nook_parent(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 16004 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 16005 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 16006 "./marpa.w"
return Parent_of_NOOK(nook);
}
/*:1316*//*1317:*/
#line 16010 "./marpa.w"
int _marpa_t_nook_cause_is_ready(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 16014 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 16015 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 16016 "./marpa.w"
return NOOK_Cause_is_Expanded(nook);
}
/*:1317*//*1318:*/
#line 16020 "./marpa.w"
int _marpa_t_nook_predecessor_is_ready(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 16024 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 16025 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 16026 "./marpa.w"
return NOOK_Predecessor_is_Expanded(nook);
}
/*:1318*//*1319:*/
#line 16030 "./marpa.w"
int _marpa_t_nook_is_cause(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 16034 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 16035 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 16036 "./marpa.w"
return NOOK_is_Cause(nook);
}
/*:1319*//*1320:*/
#line 16040 "./marpa.w"
int _marpa_t_nook_is_predecessor(Marpa_Tree t,int nook_id)
{
NOOK nook;
/*1202:*/
#line 14557 "./marpa.w"
const int failure_indicator= -2;
/*:1202*/
#line 16044 "./marpa.w"
/*1005:*/
#line 11925 "./marpa.w"
ORDER o= O_of_T(t);
/*977:*/
#line 11457 "./marpa.w"
const BOCAGE b= B_of_O(o);
/*932:*/
#line 11051 "./marpa.w"
const GRAMMAR g UNUSED= G_of_B(b);
/*:932*/
#line 11459 "./marpa.w"
/*:977*/
#line 11927 "./marpa.w"
;
/*:1005*/
#line 16045 "./marpa.w"
/*1313:*/
#line 15962 "./marpa.w"
{
NOOK base_nook;
/*1220:*/
#line 14676 "./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;
}
/*:1220*/
#line 15964 "./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;
}
/*:1313*/
#line 16046 "./marpa.w"
return NOOK_is_Predecessor(nook);
}
/*:1320*//*1322:*/
#line 16061 "./marpa.w"
void marpa_debug_handler_set(int(*debug_handler)(const char*,...))
{
marpa__debug_handler= debug_handler;
}
/*:1322*//*1323:*/
#line 16067 "./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;
}
/*:1323*/
#line 16247 "./marpa.w"
/*:1341*/