1
0
forked from GitHub/gf-core

Some fixes when working on resource grammars.

This commit is contained in:
aarne
2003-11-04 15:53:32 +00:00
parent 73484ab900
commit c75a0ee920
3 changed files with 3 additions and 2 deletions

View File

@@ -9,7 +9,7 @@
-- Closed categories (determiners, pronouns, conjunctions) are
-- accessed through the resource syntax API, $resource.Abs.gf$.
--
-- The main difference with $morpho.Eng.gf$ is that the types
-- The main difference with $MorphoEng.gf$ is that the types
-- referred to are compiled resource grammar types. We have moreover
-- had the design principle of always having existing forms as string
-- arguments of the paradigms, not stems.

View File

@@ -57,6 +57,7 @@ markSubterm :: (String,String) -> Term -> Term
markSubterm (beg, end) t = case t of
R rs -> R $ map markField rs
T ty cs -> T ty [Cas p (mark v) | Cas p v <- cs]
FV ts -> FV $ map mark ts
_ -> foldr1 C [tK beg, t, tK end] -- t : Str guaranteed?
where
mark = markSubterm (beg, end)

View File

@@ -1 +1 @@
module Today where today = "Tue Nov 4 09:25:56 CET 2003"
module Today where today = "Tue Nov 4 13:55:38 CET 2003"