GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 10:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixes in Attempto

Browse Source
This commit is contained in:
aarne
2010-01-04 21:19:13 +00:00
parent 14efc8a8a5
commit 234a3d3633
10 changed files with 48 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/attempto/LexAttemptoFin.gf
View File

@@ -4,17 +4,19 @@ instance LexAttemptoFin of LexAttempto =
SyntaxFin,
ParadigmsFin,
ConstructX,
(M = MakeStructuralFin)
(M = MakeStructuralFin),
(E = ExtraFin),
(L = LangFin)
in {
oper
possible_A = mkA "mahdollinen" ;
necessary_A = mkA "välttämätön" ;
own_A = mkA "oma" ;
have_VV = mkVV (mkV "pitää") ;
have_VV = mkVV (caseV genitive (mkV "pitää")) ;
provably_Adv = mkAdv "todistettavasti" ;
provable_A = mkA "todistettava" ;
false_A = mkA (mkN "epätosi" "epätosia") ;
false_A = mkA (mkN "epätosi" "epätoden" "epätosia") ;
such_A = mkA "sellainen" ;
genitiveNP np = mkNP (GenNP np) ;
@@ -33,4 +35,6 @@ oper
eachOf np = mkNP (mkNP each_Det) (SyntaxFin.mkAdv (casePrep elative) np) ;
adj_thatCl : A -> S -> Cl = \a,s ->
mkCl (L.UseComp (E.CompPartAP (mkAP (mkAP a) s))) ;
}