1
0
forked from GitHub/gf-rgl

[GF Split] Post-split updates

This commit is contained in:
John J. Camilleri
2018-07-25 20:18:48 +02:00
parent 5d058bcfc0
commit ade493515a
31 changed files with 602 additions and 406 deletions

View File

@@ -1,56 +0,0 @@
RUNGHC=runghc
dict: DictBul DictEng DictEst DictFin DictFre DictRus DictGer DictSwe
initdict:
@mkdir -p ../dict/
DictBul: initdict
gf -batch bulgarian/DictBul.gf +RTS -K100M
cp -p bulgarian/DictBul*.gfo ../dict/
DictEng: initdict
gf -batch english/DictEng.gf +RTS -K100M
cp -p english/DictEng*.gfo ../dict
DictEst: initdict
gf -batch estonian/DictEst.gf +RTS -K200M
cp -p estonian/DictEst*.gfo ../dict
DictFin: initdict
gf -batch finnish/DictFin.gf +RTS -K100M
cp -p finnish/DictFin*.gfo ../dict
DictFre: initdict
-gf -batch french/DictFre.gf +RTS -K100M
-cp -p french/DictFre*.gfo ../dict
DictGer: initdict
gf -batch german/DictGer.gf +RTS -K100M
cp -p german/DictGer*.gfo ../dict
DictRus: initdict
gf -batch russian/DictRus.gf +RTS -K200M
cp -p russian/DictRus*.gfo ../dict
DictSwe: initdict
gf -batch swedish/DictSwe.gf +RTS -K100M
cp -p swedish/DictSwe*.gfo ../dict
GFMKD=gf -s -batch -make -literal=PN -gfo-dir ../dict
DictBul.pgf: initdict ; $(GFMKD) -name=DictBul bulgarian/DictBul.gf +RTS -K100M
DictEng.pgf: initdict ; $(GFMKD) -name=DictEng english/DictEng.gf +RTS -K100M
DictEst.pgf: initdict ; $(GFMKD) -name=DictEst estonian/DictEst.gf +RTS -K200M
DictFin.pgf: initdict ; $(GFMKD) -name=DictFin finnish/DictFin.gf +RTS -K100M
DictFre.pgf: initdict ; -$(GFMKD) -name=DictFre french/DictFre.gf +RTS -K100M
DictGer.pgf: initdict ; $(GFMKD) -name=DictGer german/DictGer.gf +RTS -K100M
DictHin.pgf: initdict ; -$(GFMKD) -name=DictHin hindi/DictHinWSJ.gf +RTS -K100M
DictMlt.pgf: initdict ; $(GFMKD) -name=DictMlt maltese/DictMlt.gf +RTS -K100M
DictRus.pgf: initdict ; $(GFMKD) -name=DictRus russian/DictRus.gf +RTS -K200M
DictSwe.pgf: initdict ; $(GFMKD) -name=DictSwe swedish/DictSwe.gf +RTS -K100M
DictTur.pgf: initdict ; $(GFMKD) -name=DictTur turkish/DictTur.gf +RTS -K100M
DictUrd.pgf: initdict ; $(GFMKD) -name=DictUrd urdu/DictUrd.gf +RTS -K100M
# thai with pronunciation
thp:
cd thai ; runghc ThaiScript.hs ; cd ..

View File

@@ -1 +0,0 @@
grep -v "\-\-\# notpresent" $1

View File

@@ -1,30 +0,0 @@
abstract Demo =
Lang - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
]
** {
fun
AdjN : AP -> N -> CN ;
AdAdj : AdA -> A -> AP ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoAra of Demo = LangAra **
open LangAra in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoBul of Demo = LangBul **
open LangBul in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoCat of Demo = LangCat **
open LangCat in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoDan of Demo = LangDan **
open LangDan in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoDut of Demo = LangDut **
open LangDut in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,30 +0,0 @@
--# -path=.:alltenses
concrete DemoEng of Demo = LangEng - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangEng in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,30 +0,0 @@
--# -path=.:alltenses
concrete DemoFin of Demo = LangFin - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangFin in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoFre of Demo = LangFre **
open LangFre in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,30 +0,0 @@
--# -path=.:alltenses
concrete DemoGer of Demo = LangGer - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangGer in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoHin of Demo = LangHin **
open LangHin in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoIna of Demo = LangIna **
open LangIna in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoIta of Demo = LangIta **
open LangIta in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoLat of Demo = LangLat **
open LangLat in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoNor of Demo = LangNor **
open LangNor in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoPol of Demo = LangPol **
open LangPol in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoRon of Demo = LangRon - [SlashVP] **
open LangRon in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoRus of Demo = LangRus **
open LangRus in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,30 +0,0 @@
--# -path=.:alltenses
concrete DemoSpa of Demo = LangSpa - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangSpa in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,30 +0,0 @@
--# -path=.:alltenses
concrete DemoSwe of Demo = LangSwe - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangSwe in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoTha of Demo = LangTha **
open LangTha in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoTur of Demo = LangTur **
open LangTur in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}

View File

@@ -1,10 +0,0 @@
--# -path=.:alltenses
concrete DemoUrd of Demo = LangUrd **
open LangUrd in {
lin
AdjN ap n = AdjCN ap (UseN n) ;
AdAdj ad a = AdAP ad (PositA a) ;
}