forked from GitHub/gf-core
Finnish extras
This commit is contained in:
@@ -0,0 +1,12 @@
|
|||||||
|
concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
|
||||||
|
|
||||||
|
lin
|
||||||
|
GenNP np = {
|
||||||
|
s1 = \\_,_ => np.s ! NPCase Gen ;
|
||||||
|
s2 = [] ;
|
||||||
|
isNum = False ;
|
||||||
|
isPoss = False ;
|
||||||
|
isDef = True --- "Jussin kolme autoa ovat" ; thus "...on" is missing
|
||||||
|
} ;
|
||||||
|
|
||||||
|
}
|
||||||
@@ -0,0 +1,3 @@
|
|||||||
|
abstract ExtraFinAbs = Extra [GenNP] ** {
|
||||||
|
|
||||||
|
}
|
||||||
@@ -0,0 +1,6 @@
|
|||||||
|
--# -path=.:../abstract:../common:prelude
|
||||||
|
|
||||||
|
concrete Finnish of FinnishAbs =
|
||||||
|
LangFin,
|
||||||
|
ExtraFin
|
||||||
|
** {} ;
|
||||||
@@ -0,0 +1,4 @@
|
|||||||
|
abstract FinnishAbs =
|
||||||
|
Lang,
|
||||||
|
ExtraFinAbs
|
||||||
|
** {} ;
|
||||||
Reference in New Issue
Block a user