From 616a24cba4fe018adfc2c071eb16b542ae08ec86 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 19 May 2015 07:26:56 +0000 Subject: the NERC in C is now fully up-to-date with the other NERCs. In addition the NERC in Haskell and Java now refuses to recognize names that match words in the lexicon. The latest is useful for German --- src/runtime/haskell-bind/PGF2.hsc | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/runtime/haskell-bind') diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 2ad5b8b4e..77de6d857 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -577,11 +577,9 @@ nerc pgf (lang,concr) lin_idx sentence offset = "PN" -> retLit (mkApp lemma []) "WeekDay" -> retLit (mkApp "weekdayPN" [mkApp lemma []]) "Month" -> retLit (mkApp "monthPN" [mkApp lemma []]) - "Language" -> Nothing - _ -> pn + _ -> Nothing where - retLit e = --traceShow (name,e,drop end_offset sentence) $ - Just (e,0,end_offset) + retLit e = Just (e,0,end_offset) where end_offset = offset+length name pn = retLit (mkApp "SymbPN" [mkApp "MkSymb" [mkStr name]]) ((lemma,cat),_) = maximumBy (compare `on` snd) (reverse ls) -- cgit v1.2.3