1
0
forked from GitHub/gf-core

Rename all Language.gf to AllLan.gf to be able to build them automatically.

This commit is contained in:
bringert
2008-08-12 15:12:54 +00:00
parent 9cf67b6313
commit 42efbabaa6
33 changed files with 42 additions and 79 deletions

View File

@@ -1,3 +1,3 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete Arabic of ArabicAbs = LangAra ; concrete AllAra of AllAraAbs = LangAra ;

View File

@@ -1,3 +1,3 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
abstract ArabicAbs = Lang ; abstract AllAraAbs = Lang ;

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete Bulgarian of BulgarianAbs = concrete AllBul of AllBulAbs =
LangBul, LangBul,
ExtraBul ExtraBul
** { ** {

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
abstract BulgarianAbs = abstract AllBulAbs =
Lang, Lang,
ExtraBulAbs ExtraBulAbs
** { ** {

View File

@@ -1,6 +1,6 @@
--# -path=.:../romance:../abstract:../common:prelude --# -path=.:../romance:../abstract:../common:prelude
concrete Catalan of CatalanAbs = concrete AllCat of AllCatAbs =
LangCat, LangCat,
IrregCat, IrregCat,
ExtraCat ExtraCat

View File

@@ -1,4 +1,4 @@
abstract CatalanAbs = abstract AllCatAbs =
Lang, Lang,
IrregCatAbs, IrregCatAbs,
ExtraCatAbs ExtraCatAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../scandinavian:../abstract:../common:prelude --# -path=.:../scandinavian:../abstract:../common:prelude
concrete Danish of DanishAbs = concrete AllDan of AllDanAbs =
LangDan, LangDan,
IrregDan - [fly_V], IrregDan - [fly_V],
ExtraDan ExtraDan

View File

@@ -1,4 +1,4 @@
abstract DanishAbs = abstract AllDanAbs =
Lang, Lang,
IrregDanAbs - [fly_V], IrregDanAbs - [fly_V],
ExtraDanAbs ExtraDanAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete English of EnglishAbs = concrete AllEng of AllEngAbs =
LangEng, LangEng,
IrregEng-[ IrregEng-[
blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V, blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V,

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
abstract EnglishAbs = abstract AllEngAbs =
Lang, Lang,
IrregEngAbs-[ IrregEngAbs-[
blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V, blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V,

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete Finnish of FinnishAbs = concrete AllFin of AllFinAbs =
LangFin, LangFin,
ExtraFin ExtraFin
** {} ; ** {} ;

View File

@@ -1,4 +1,4 @@
abstract FinnishAbs = abstract AllFinAbs =
Lang, Lang,
ExtraFinAbs ExtraFinAbs
** {} ; ** {} ;

View File

@@ -1,6 +1,6 @@
--# -path=.:../romance:../abstract:../common:prelude --# -path=.:../romance:../abstract:../common:prelude
concrete French of FrenchAbs = concrete AllFre of AllFreAbs =
LangFre, LangFre,
IrregFre, IrregFre,
ExtraFre ExtraFre

View File

@@ -1,4 +1,4 @@
abstract FrenchAbs = abstract AllFreAbs =
Lang, Lang,
IrregFreAbs, IrregFreAbs,
ExtraFreAbs ExtraFreAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete German of GermanAbs = concrete AllGer of AllGerAbs =
LangGer, LangGer,
IrregGer, IrregGer,
ExtraGer ExtraGer

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
abstract GermanAbs = abstract AllGerAbs =
Lang, Lang,
IrregGerAbs, IrregGerAbs,
ExtraGerAbs ExtraGerAbs

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
concrete AllHin of AllHinAbs = LanHin ;

View File

@@ -0,0 +1 @@
abstract AllHinAbs = Lang ;

View File

@@ -1,53 +0,0 @@
concrete ExtraEng of ExtraEngAbs = CatEng **
open ResEng, Coordination, Prelude in {
lin
GenNP np = {s = \\_ => np.s ! Gen} ;
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
StrandRelSlash rp slash = {
s = \\t,a,p,ag =>
rp.s ! RC (fromAgr ag).g Acc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
c = Acc
} ;
EmptyRelSlash rp slash = {
s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
c = Acc
} ;
StrandQuestSlash ip slash =
{s = \\t,a,b,q =>
(mkQuestion (ss (ip.s ! Acc)) slash).s ! t ! a ! b ! q ++ slash.c2
};
lincat
VPI = {s : VPIForm => Agr => Str} ;
[VPI] = {s1,s2 : VPIForm => Agr => Str} ;
lin
BaseVPI = twoTable2 VPIForm Agr ;
ConsVPI = consrTable2 VPIForm Agr comma ;
MkVPI vp = {
s = \\v,a => vp.ad ++ vp.inf ++ vp.s2 ! a
} ;
ConjVPI = conjunctDistrTable2 VPIForm Agr ;
ComplVPIVV vv vpi =
insertObj (\\a => (if_then_Str vv.isAux [] "to") ++ vpi.s ! VPIInf ! a) (predVV vv) ;
UncNegCl t a cl = {s = t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! ODir} ;
UncNegQCl t a cl = {s = \\q => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg !q} ;
UncNegRCl t a cl = {
s = \\r => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! r ;
c = cl.c
} ;
UncNegImpSg imp = {s = imp.s ! neg ! ImpF Sg False} ;
UncNegImpPl imp = {s = imp.s ! neg ! ImpF Pl False} ;
CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c ; g = b.g} ;
oper
neg = CNeg False ;
}

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
concrete AllIna of AllInaAbs = LangIna ;

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
abstract AllInaAbs = Lang ;

View File

@@ -1,6 +1,6 @@
--# -path=.:../romance:../abstract:../common:prelude --# -path=.:../romance:../abstract:../common:prelude
concrete Italian of ItalianAbs = concrete AllIta of AllItaAbs =
LangIta, LangIta,
-- IrregIta, -- IrregIta,
ExtraIta ExtraIta

View File

@@ -1,4 +1,4 @@
abstract ItalianAbs = abstract AllItaAbs =
Lang, Lang,
-- IrregItaAbs, -- IrregItaAbs,
ExtraItaAbs ExtraItaAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../scandinavian:../abstract:../common:prelude --# -path=.:../scandinavian:../abstract:../common:prelude
concrete Norwegian of NorwegianAbs = concrete AllNor of AllNorAbs =
LangNor, LangNor,
IrregNor - [fly_V], IrregNor - [fly_V],
ExtraNor ExtraNor

View File

@@ -1,4 +1,4 @@
abstract NorwegianAbs = abstract AllNorAbs =
Lang, Lang,
IrregNorAbs - [fly_V], IrregNorAbs - [fly_V],
ExtraNorAbs ExtraNorAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
concrete Russian of RussianAbs = concrete AllRus of AllRusAbs =
LangRus, LangRus,
ExtraRus ExtraRus
** {flags coding=utf8 ;} ; ** {flags coding=utf8 ;} ;

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude --# -path=.:../abstract:../common:prelude
abstract RussianAbs = abstract AllRusAbs =
Lang, Lang,
ExtraRusAbs ExtraRusAbs
** {} ; ** {} ;

View File

@@ -1,6 +1,6 @@
--# -path=.:../romance:../abstract:../common:prelude --# -path=.:../romance:../abstract:../common:prelude
concrete Spanish of SpanishAbs = concrete AllSpa of AllSpaAbs =
LangSpa, LangSpa,
IrregSpa, IrregSpa,
ExtraSpa ExtraSpa

View File

@@ -1,4 +1,4 @@
abstract SpanishAbs = abstract AllSpaAbs =
Lang, Lang,
IrregSpaAbs, IrregSpaAbs,
ExtraSpaAbs ExtraSpaAbs

View File

@@ -1,6 +1,6 @@
--# -path=.:../scandinavian:../abstract:../common:prelude --# -path=.:../scandinavian:../abstract:../common:prelude
concrete Swedish of SwedishAbs = concrete AllSwe of AllSweAbs =
LangSwe, LangSwe,
IrregSwe, IrregSwe,
ExtraSwe ExtraSwe

View File

@@ -1,4 +1,4 @@
abstract SwedishAbs = abstract AllSweAbs =
Lang, Lang,
IrregSweAbs, IrregSweAbs,
ExtraSweAbs ExtraSweAbs

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
concrete AllTha of AllThaAbs = LangTha ;

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
abstract AllThaAbs = Lang ;