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
concrete Arabic of ArabicAbs = LangAra ;
concrete AllAra of AllAraAbs = LangAra ;

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude
concrete English of EnglishAbs =
concrete AllEng of AllEngAbs =
LangEng,
IrregEng-[
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
abstract EnglishAbs =
abstract AllEngAbs =
Lang,
IrregEngAbs-[
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
concrete Finnish of FinnishAbs =
concrete AllFin of AllFinAbs =
LangFin,
ExtraFin
** {} ;

View File

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

View File

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

View File

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

View File

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

View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common:prelude
abstract GermanAbs =
abstract AllGerAbs =
Lang,
IrregGerAbs,
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
concrete Italian of ItalianAbs =
concrete AllIta of AllItaAbs =
LangIta,
-- IrregIta,
ExtraIta

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@@ -1,4 +1,4 @@
abstract SwedishAbs =
abstract AllSweAbs =
Lang,
IrregSweAbs,
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 ;