GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

Some fixes when working on resource grammars.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
grammars/resource/english/Paradigms.gf
View File

@@ -9,7 +9,7 @@
-- Closed categories (determiners, pronouns, conjunctions) are -- Closed categories (determiners, pronouns, conjunctions) are
-- accessed through the resource syntax API, $resource.Abs.gf$. -- 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 -- referred to are compiled resource grammar types. We have moreover
-- had the design principle of always having existing forms as string -- had the design principle of always having existing forms as string
-- arguments of the paradigms, not stems. -- arguments of the paradigms, not stems.

1
src/GF/Canon/CMacros.hs
View File

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

2
src/Today.hs
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"