GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

the Bulgarian phrasebook works again

Browse Source
This commit is contained in:
kr.angelov
2013-05-30 13:16:35 +00:00
parent bd19bc4564
commit 0330a2e5e8
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/phrasebook/WordsBul.gf
View File

@@ -148,7 +148,7 @@ concrete WordsBul of Words = SentencesBul **
})) ;
AReady p = mkCl p.name (mkA076 "готов") ;
AScared p = mkCl p.name (mkA076 "уплашен") ;
ASpeak p lang = mkCl p.name (dirV2 (stateV (mkV173 "говоря"))) (mkNP (adj2noun lang)) ;
ASpeak p lang = mkCl p.name (dirV2 (stateV (mkV173 "говоря"))) (mkNP (substantiveN lang (R.AMasc R.NonHuman))) ;
AThirsty p = mkCl p.name (mkA079 "жаден") ;
ATired p = mkCl p.name (mkA076 "уморен") ;
AUnderstand p = mkCl p.name (actionV (mkV186 "разбирам") (mkV170 "разбера")) ;
@@ -291,10 +291,6 @@ concrete WordsBul of Words = SentencesBul **
xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p ->
relativePerson n (mkCN x) (\a,b,c -> mkNP (mkNP the_Quant a c) (SyntaxBul.mkAdv (mkPrep "" R.Dat) b)) p ;
adj2noun : A -> N ;
adj2noun a = let g = R.AMasc R.NonHuman
in lin N {s = \\nf => a.s ! R.nform2aform nf g; g = g} ;
mkTransport : N -> {name : CN ; by : Adv} = \n -> {
name = mkCN n ;
by = SyntaxBul.mkAdv with_Prep (mkNP n)