msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Guessed implementation of left and right in spanish, french and italian.

Browse Source
This commit is contained in:
bringert
2006-02-28 19:02:43 +00:00
parent cd1fcf61c3
commit ec217d9b6e
3 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/bronzeage/SwadeshFin.gf
View File

@@ -41,8 +41,14 @@ concrete SwadeshFin of Swadesh = CatFin
few_Det = mkDet Sg (regN "harva") ;
other_Det = mkDet Sg (regN "muu") ;
-- left_Ord = mkA (regN "vasen") ;
-- right_Ord = mkA (regN "oikea") ;
left_Ord = mkOrd (regN "vasen") ;
right_Ord = mkOrd (regN "oikea") ;
oper
mkOrd : N -> Ord ;
mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;
lin
-- Adverbs

10
examples/bronzeage/SwadeshFre.gf
View File

@@ -37,8 +37,14 @@ concrete SwadeshFre of Swadesh = CatFre
n = Pl
} ;
-- left_Ord = regA "gauche" ;
-- right_Ord = regA "droite" ;
left_Ord = mkOrd (regA "gauche") ;
right_Ord = mkOrd (regA "droite") ;
oper
mkOrd : A -> Ord ;
mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
lin
-- Adverbs

10
examples/bronzeage/SwadeshIta.gf
View File

@@ -36,8 +36,14 @@ concrete SwadeshIta of Swadesh = CatIta
n = Pl
} ;
-- left_Ord = regA "sinistro" ;
-- right_Ord = regA "destro" ;
left_Ord = mkOrd (regA "sinistro") ;
right_Ord = mkOrd (regA "destro") ;
oper
mkOrd : A -> Ord ;
mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
lin
-- Adverbs