This is an automated email from the git hooks/post-receive script. js pushed a commit to annotated tag Marpa-R2-2.085_004 in repository libmarpa-r2-perl.
commit d57aa2af4925559a13516e99d856900d6459fb81 Author: Jeffrey Kegler <[email protected]> Date: Thu Apr 24 09:40:51 2014 -0700 Fixing unresolved external symbols: t+ --- cpan/libmarpa/dev/marpa.w | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/cpan/libmarpa/dev/marpa.w b/cpan/libmarpa/dev/marpa.w index 80ca56f..587132e 100644 --- a/cpan/libmarpa/dev/marpa.w +++ b/cpan/libmarpa/dev/marpa.w @@ -12378,6 +12378,16 @@ Marpa_Nook_ID _marpa_v_nook(Marpa_Value public_v) lbv_clone (v->t_obs, Valued_Locked_BV_of_B (b), xsy_count); } + +@ +@<Function definitions@> = +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); +} + @ @<Function definitions@> = int marpa_v_symbol_is_valued( @@ -12484,6 +12494,23 @@ int marpa_v_rule_is_valued_set ( } } +@ @<Function definitions@> = +int marpa_v_rule_is_valued ( + Marpa_Value public_v, Marpa_Rule_ID xrl_id) +{ + const VALUE v = (VALUE)public_v; + @<Return |-2| on failure@>@; + @<Unpack value objects@>@; + @<Fail if fatal error@>@; + @<Fail if |xrl_id| is malformed@>@; + @<Soft fail if |xrl_id| does not exist@>@; + { + const XRL xrl = XRL_by_ID (xrl_id); + const XSYID xsy_id = LHS_ID_of_XRL (xrl); + return symbol_is_valued (v, xsy_id); + } +} + @*0 Stepping the valuator. The value type indicates whether the value is for a semantic rule, a semantic token, etc. -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmarpa-r2-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
