GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix eng parad

Browse Source
This commit is contained in:
aarne
2004-05-21 15:12:51 +00:00
parent fa7989b42d
commit 54376eacf8
3 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-0.6/english/ParadigmsEng.gf
View File

@@ -108,10 +108,11 @@ oper
--2 Adverbs --2 Adverbs
-- Adverbs are not inflected. The lexical ones have position not -- Adverbs are not inflected. Most lexical ones have position not
-- before the verb. -- before the verb. Some can be preverbal (e.g. "always").
mkAdv : Str -> AdV ; mkAdv : Str -> AdV ;
mkAdvPre : Str -> AdV ;
--2 Verbs --2 Verbs
-- --
@@ -219,12 +220,13 @@ oper
apReg = \s -> AdjP1 (mkAdj1 s) ; apReg = \s -> AdjP1 (mkAdj1 s) ;
aGen : Str -> AdjDeg = \s -> case last s of { aGen : Str -> AdjDeg = \s -> case last s of {
"y" => mkAdjDeg s (init s + "ier") (init s + "iest") ; "y" => mkAdjDeg s (init s ++ "ier") (init s + "iest") ;
"e" => mkAdjDeg s (s + "r") (s + "st") ; "e" => mkAdjDeg s (s + "r") (s + "st") ;
_ => aReg s _ => aReg s
} ; } ;
mkAdv a = advPost a ** {lock_AdV = <>} ; mkAdv a = advPost a ** {lock_AdV = <>} ;
mkAdvPre a = advPre a ** {lock_AdV = <>} ;
mkV = \go,goes,went,gone -> verbNoPart (mkVerbP3 go goes went gone) ** mkV = \go,goes,went,gone -> verbNoPart (mkVerbP3 go goes went gone) **
{lock_V = <>} ; {lock_V = <>} ;

4
src/GF/Compile/PrOld.hs
View File

@@ -56,8 +56,8 @@ stripTerm t = case t of
TComp ty -> TComp $ stripTerm ty TComp ty -> TComp $ stripTerm ty
TWild ty -> TWild $ stripTerm ty TWild ty -> TWild $ stripTerm ty
_ -> ti _ -> ti
R [] -> EInt 8 --- GF 1.2 parser doesn't accept empty records ---- R [] -> EInt 8 --- GF 1.2 parser doesn't accept empty records
RecType [] -> Cn (zIdent "Int") --- ---- RecType [] -> Cn (zIdent "Int") ---
_ -> composSafeOp stripTerm t _ -> composSafeOp stripTerm t
stripPattern p = case p of stripPattern p = case p of

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Tue May 18 23:54:22 CEST 2004" module Today where today = "Fri May 21 18:10:31 CEST 2004"