GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

partial adjectives support

Browse Source
This commit is contained in:
krasimir
2008-02-20 17:01:19 +00:00
parent d5c53ccb7e
commit 5330d189ed
6 changed files with 36 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource/bulgarian/ResBul.gf
View File

@@ -139,6 +139,22 @@ resource ResBul = ParamX ** open Prelude in {
<DNeut,Def> => DNeutDef
} ;
nform2aform : NForm -> DGender -> AForm
= \nf,g -> case nf of {
NF n spec => aform (gennum g n) spec Acc ;
NFSgDefNom => aform (gennum g Sg) Def Nom ;
NFPlCount => APl Indef ;
NFVocative => aform (gennum g Sg) Indef Acc
} ;
indefNForm : NForm -> NForm
= \nf -> case nf of {
NF n spec => NF n Indef ;
NFSgDefNom => NF Sg Indef ;
NFPlCount => NFPlCount ;
NFVocative => NFVocative
} ;
oper
-- For $Verb$.