GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 18:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Finnish attempto started

Browse Source
This commit is contained in:
aarne
2009-03-11 16:08:55 +00:00
parent 0ac664d147
commit 22b7e133fe
6 changed files with 159 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
next-lib/src/finnish/MakeStructuralFin.gf Normal file
View File

@@ -0,0 +1,13 @@
--# -path=.:../common:../abstract
resource MakeStructuralFin = open CatFin, ParadigmsFin, MorphoFin, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
mkIQuant : Str -> IQuant = \s ->
{s = \\n,c => s ; lock_IQuant = <>} ; ----
}

3
next-lib/src/finnish/StructuralFin.gf
View File

@@ -1,5 +1,5 @@
concrete StructuralFin of Structural = CatFin **
open MorphoFin, ParadigmsFin, (X = ConstructX), Prelude in {
open MorphoFin, ParadigmsFin, (X = ConstructX), MakeStructuralFin, Prelude in {
flags optimize=all ;
@@ -304,5 +304,6 @@ lin
as_CAdv = X.mkCAdv "yhtä" "kuin" ;
except_Prep = postPrep partitive "lukuunottamatta" ;
}

16
next-lib/src/italian/MakeStructuralIta.gf Normal file
View File

@@ -0,0 +1,16 @@
--# -path=.:../romance:../common:../abstract
resource MakeStructuralIta = open CatIta, ParadigmsIta, MorphoIta, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; m = Indic ; lock_Subj = <>} ;
mkSubjSubj : Str -> Subj = \x ->
{s = x ; m = Conjunct ; lock_Subj = <>} ;
mkIQuant : Str -> IQuant = \s ->
{s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ;
}