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

Getting closer to updated resource.

Browse Source
This commit is contained in:
aarne
2003-12-17 12:43:34 +00:00
parent fb1e3fa798
commit 4c9cb3eccc
7 changed files with 454 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource-0.6/italian/MorphoIta.gf
View File

@@ -82,11 +82,19 @@ oper
-- Then the regular and invariant patterns.
adjSolo : Str -> Adj = \solo -> let {sol = Predef.tk 1 solo} in
adjSolo : Str -> Adj = \solo ->
let
sol = Predef.tk 1 solo
in
mkAdj solo (sol + "a") (sol + "i") (sol + "e") (sol + "amente") ;
adjTale : Str -> Adj = \tale -> let {tali = Predef.tk 1 tale + "i"} in
mkAdj tale tale tali tali (Predef.tk 1 tale + "mente") ;
adjTale : Str -> Adj = \tale ->
let
tal = Predef.tk 1 tale ;
tali = tal + "i" ;
tala = if_then_Str (pbool2bool (Predef.occur (Predef.dp 1 tal) "lr")) tal tale
in
mkAdj tale tale tali tali (tala + "mente") ;
adjBlu : Str -> Adj = \blu ->
mkAdj blu blu blu blu blu ; ---
@@ -194,7 +202,7 @@ oper mkVerbPres : (_,_,_,_,_,_,_,_,_ : Str) -> VerbPres =
\veng, viene, ven, venite, vengono, venga, vieni, venire, venuto ->
let
vien = Predef.tk 1 vieni ;
venut = (adjSolo (Predef.tk 1 venuto)).s
venut = (adjSolo venuto).s
in
{s = table {
VFin Ind Sg P1 => veng + "o" ;