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

make Romanian compilable for present, and Bronzeage for most languages

Browse Source
This commit is contained in:
aarne
2009-09-15 15:27:42 +00:00
parent a85dc0c3be
commit d1794a764a
12 changed files with 63 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/bronzeage/BronzeageBul.gf Normal file
View File

@@ -0,0 +1,8 @@
--# -path=.:minimal:present
concrete BronzeageBul of Bronzeage = SwadeshBul **
BronzeageI
with
(Syntax = SyntaxBul) ** open ResBul,ParamX in {
}

6
examples/bronzeage/BronzeageCat.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:present
concrete BronzeageCat of Bronzeage = SwadeshCat ** BronzeageI with
(Syntax = SyntaxCat) ** open ResCat in {
}

6
examples/bronzeage/BronzeageRon.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:present
concrete BronzeageRon of Bronzeage = SwadeshRon ** BronzeageI with
(Syntax = SyntaxRon) ** open ResRon in {
}

2
examples/bronzeage/BronzeageRus.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:present
--# -path=.:minimal:present
concrete BronzeageRus of Bronzeage = SwadeshRus ** BronzeageI with
(Syntax = SyntaxRus) ** open ResRus in {

12
examples/bronzeage/Makefile
View File

@@ -1,14 +1,4 @@
# notice: GF_LIB_PATH has to point to GF/lib
all: magnet
magnet:
# gfc --make -src --parser=off --name=fre BronzeageFre.gf +RTS -K100M
# gfc --make -src --erasing=on --name=bul BronzeageBul.gf
gfc --make -src --erasing=on --name=fin BronzeageFin.gf +RTS -K100M
gfc --make -src --erasing=on --name=eng BronzeageEng.gf
gfc --make -src --erasing=on --name=ger BronzeageGer.gf
gfc --make -src --erasing=on --name=scand BronzeageNor.gf BronzeageSwe.gf
gfc --make -src --name=rom BronzeageIta.gf BronzeageSpa.gf BronzeageFre.gf
gfc --make --name=bronze eng.pgf fin.pgf ger.pgf rom.pgf scand.pgf
gf -make BronzeageBul.gf BronzeageDan.gf BronzeageEng.gf BronzeageCat.gf BronzeageFre.gf BronzeageGer.gf BronzeageIta.gf BronzeageNor.gf BronzeageRus.gf BronzeageSpa.gf BronzeageSwe.gf +RTS -K100M

5
examples/bronzeage/SwadeshBul.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:minimal:present
concrete SwadeshBul of Swadesh = SwadeshI with
(Lexicon = LexiconBul),
(Syntax = SyntaxBul) ;

5
examples/bronzeage/SwadeshCat.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present
concrete SwadeshCat of Swadesh = SwadeshI with
(Lexicon = LexiconCat),
(Syntax = SyntaxCat) ;

5
examples/bronzeage/SwadeshRon.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present
concrete SwadeshRon of Swadesh = SwadeshI with
(Lexicon = LexiconRon),
(Syntax = SyntaxRon) ;

6
lib/src/Make.hs
View File

@@ -54,13 +54,13 @@ langsCoding = [
langs = map fst langsCoding
-- languagues for which to compile Lang
langsLang = langs `except` ["Ara","Pol","Ron","Tur"]
langsLang = langs `except` ["Pol","Tur"]
-- languages for which to compile Try
langsAPI = langsLang `except` ["Bul","Hin","Ina","Lat","Rus","Tha"]
langsAPI = langsLang `except` ["Ara","Bul","Hin","Ina","Lat","Rus","Tha"]
-- languages for which to compile minimal Syntax
langsMinimal = langs `only` ["Eng","Bul","Ger","Ita"]
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]
-- languages for which to run treebank test
langsTest = langsLang `except` ["Ara","Bul","Cat","Hin","Rus","Spa","Tha"]

5
lib/src/api/SymbolicRon.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present:mathematical:prelude
resource SymbolicRon = {} -- Symbolic with
-- (Symbol = SymbolRon),
-- (Grammar = GrammarRon) ;

14
lib/src/api/TryRon.gf
View File

@@ -1,22 +1,22 @@
--# -path=.:alltenses:prelude
resource TryRon = SyntaxRon-[mkAdN], LexiconRon, ParadigmsRon - [mkAdv,mkAdN,mkOrd] **
resource TryRon = SyntaxRon-[mkAdN], LexiconRon, ParadigmsRon - [mkAdv,mkAdN,mkOrd,mkDet,mkNP] **
open (P = ParadigmsRon) in {
oper
mkAdv = overload SyntaxEng {
mkAdv = overload SyntaxRon {
mkAdv : Str -> Adv = P.mkAdv ;
} ;
mkAdN = overload {
mkAdN : CAdv -> AdN = SyntaxEng.mkAdN ;
mkAdN : Str -> AdN = P.mkAdN ;
mkAdN : CAdv -> AdN = SyntaxRon.mkAdN ;
-- mkAdN : Str -> AdN = P.mkAdN ;
} ;
mkOrd = overload SyntaxEng {
mkOrd : Str -> Ord = P.mkOrd ;
} ;
-- mkOrd = overload SyntaxRon {
-- mkOrd : Str -> Ord = P.mkOrd ;
-- } ;
}

21
lib/src/romanian/ResRon.gf
View File

@@ -189,13 +189,14 @@ oper
in {
s = table {
VPFinite tm Simul => case tm of
{VPres Indic => vf "" (\a -> verb ! Indi Presn a.n a.p) ;
VPres Conjunct => vf "sã" (\a -> verb ! Subjo SPres a.n a.p) ;
VImperff => vf "" (\a -> verb ! Indi Imparf a.n a.p) ;
VPasse Indic => vf "" (\a -> pComp ! a.n ! a.p ++ verb ! PPasse Masc Sg Indef ANomAcc) ;
VPasse Conjunct => vf "sã" (\a -> copula.s! Inf ++ verb ! PPasse Masc Sg Indef ANomAcc) ;
VFut => vf "" (\a -> pFut ! a.n ! a.p ++ verb ! Inf) ;
VCondit => vf "" (\a -> pCond ! a.n ! a.p ++ verb ! Inf)
{
VPres Indic => vf "" (\a -> verb ! Indi Presn a.n a.p) ;
VPres Conjunct => vf "sã" (\a -> verb ! Subjo SPres a.n a.p) ;
VImperff => vf "" (\a -> verb ! Indi Imparf a.n a.p) ;
VPasse Indic => vf "" (\a -> pComp ! a.n ! a.p ++ verb ! PPasse Masc Sg Indef ANomAcc) ;
VPasse Conjunct => vf "sã" (\a -> copula.s! Inf ++ verb ! PPasse Masc Sg Indef ANomAcc) ;
VFut => vf "" (\a -> pFut ! a.n ! a.p ++ verb ! Inf) ;
VCondit => vf "" (\a -> pCond ! a.n ! a.p ++ verb ! Inf)
} ;
VPFinite tm Anter => case tm of
{VPres Indic => vf "" (\a -> pComp ! a.n ! a.p ++ verb ! PPasse Masc Sg Indef ANomAcc) ;
@@ -483,9 +484,9 @@ oper
RCond => VCondit ;
RPres => VPres m
} ;
cmp = case <t,a,m> of
{<RPast,Simul,Indic> | <RPres, Anter,Indic> => True ;
<RCond, _, _> => True;
cmp = case <<t,a,m> : RTense * Anteriority * Mood> of {
<RPast,Simul,Indic> | <RPres, Anter,Indic> => True ; --# notpresent
<RCond, _, _> => True; --# notpresent
_ => False
} ;
vp = useVP vpr ;