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

resource fixes

Browse Source
This commit is contained in:
aarne
2005-09-17 16:01:52 +00:00
parent 60d7223d34
commit 37f0795288
16 changed files with 119 additions and 278 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource/finnish/MathFin.gf
View File

@@ -3,9 +3,9 @@
concrete MathFin of Math = CategoriesFin ** open Prelude, SyntaxFin, ParadigmsFin in {
lin
SymbPN i = {s = \\c => i.s} ; --- case endings often needed
IntPN i = {s = \\c => i.s} ;
IntNP cn i = nameNounPhrase {
SymbPN i = symbProperName i.s ; --- case ending not always correct
IntPN i = symbProperName i.s ; --- case ending not always correct
IntNP cn i = nameNounPhrase { -- here the CN gets the (correct) ending
s = \\c => cn.s ! False ! Sg ! c ++ i.s
} ;
@@ -23,14 +23,9 @@ lin
SymbTwo = infixSS "ja" ;
SymbMore = infixSS "," ;
LetCN x cn = {
s = \\_ => "olkoon" ++ x.s ++ (indefNounPhrase singular cn).s !
NPCase Nom
} ;
LetNumCN x nu cn = {
s = \\_ => "olkoot" ++ x.s ++ (nounPhraseNum False nu cn).s
! NPCase Part
LetImp x np = {
s = \\_ =>
verbOlla.s ! ImperP3 x.n ++ x.s ! NPCase Nom ++ np.s ! NPCase Nom
} ;
ExistNP np =