[libmarpa-r2-perl] 08/32: Fixing unresolved external symbols: t+

[Jonas Smedegaard]

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 <JKEGL at cpan.org>
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