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

preliminary Italian in Attempto

Browse Source
This commit is contained in:
aarne
2009-03-10 17:31:18 +00:00
parent ff573ca0de
commit 0ac664d147
8 changed files with 136 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
next-lib/src/Make.hs
View File

@@ -56,7 +56,7 @@ langsLang = langs `except` ["Ara","Ina"]
langsAPI = langsLang `except` ["Ara","Hin","Ina","Tha"]
-- languages for which to compile minimal Syntax
langsMinimal = langs `only` ["Eng","Bul","Ita"]
langsMinimal = langs `only` ["Eng","Bul","Ger","Ita"]
-- languages for which to run treebank test
langsTest = langsLang `except` ["Ara","Bul","Cat","Hin","Rus","Spa","Tha"]

8
next-lib/src/api/Constructors.gf
View File

@@ -1369,12 +1369,12 @@ incomplete resource Constructors = open Grammar in {
= AdvIP --# notminimal
} ;
mkIDet = overload { --# notminimal
mkIDet = overload {
mkIDet : IQuant -> Num -> IDet -- which (songs) --# notminimal
= \i,nu -> IdetQuant i nu ; --# notminimal
mkIDet : IQuant -> IDet -- which (song) --# notminimal
= \i -> IdetQuant i NumSg ; --# notminimal
} ; --# notminimal
mkIDet : IQuant -> IDet
= \i -> IdetQuant i NumSg ;
} ;
whichSg_IDet : IDet = IdetQuant which_IQuant NumSg ; --# notminimal
whichPl_IDet : IDet = IdetQuant which_IQuant NumPl ; --# notminimal

2
next-lib/src/german/StructuralGer.gf
View File

@@ -1,6 +1,6 @@
concrete StructuralGer of Structural = CatGer **
open MorphoGer, (X = ConstructX), Prelude in {
open MorphoGer, MakeStructuralGer, (X = ConstructX), Prelude in {
flags optimize=all ;

9
next-lib/src/italian/StructuralIta.gf
View File

@@ -1,6 +1,6 @@
concrete StructuralIta of Structural = CatIta **
open
PhonoIta, MorphoIta,
PhonoIta, MorphoIta, MakeStructuralIta,
ParadigmsIta, BeschIta, (X = ConstructX), Prelude in {
flags optimize=all ; coding=utf8 ;
@@ -152,9 +152,9 @@ lin
mkPronoun
"Lei" "La" "Le" "Glie" "Lei" "Suo" "Sua" "Suoi" "Sue"
Masc Sg P3 ;
not_Predet = {s = \\a,c => prepCase c ++ "pas" ; c = Nom} ;
nothing_but_Predet = {s = \\a,c => prepCase c ++ "rien excepté" ; c = Nom} ;
nobody_but_Predet = {s = \\a,c => prepCase c ++ "personne excepté" ; c = Nom} ;
not_Predet = {s = \\a,c => prepCase c ++ "non" ; c = Nom} ;
nothing_but_Predet = {s = \\a,c => prepCase c ++ "niente eccetto" ; c = Nom} ;
nobody_but_Predet = {s = \\a,c => prepCase c ++ "nessun eccetto" ; c = Nom} ;
no_Quant =
@@ -175,5 +175,6 @@ lin
at_most_AdN = ss "al massimo" ;
as_CAdv = X.mkCAdv "così" conjThan ;
except_Prep = mkPrep "eccetto" ;
}