diff --git a/lib/resource-1.4/Make.hs b/lib/resource-1.4/Make.hs new file mode 100644 index 000000000..2c3f34127 --- /dev/null +++ b/lib/resource-1.4/Make.hs @@ -0,0 +1,39 @@ +module Main where + +import System + +langs = [ +-- ("arabic", "Ara"), +-- ("bulgarian","Bul"), +-- ("catalan", "Cat"), + ("danish", "Dan"), + ("english", "Eng"), + ("finnish", "Fin"), + ("french", "Fre"), + ("german", "Ger"), +-- ("interlingua","Ina"), + ("italian", "Ita"), + ("norwegian","Nor"), +-- ("russian", "Rus"), + ("spanish", "Spa"), + ("swedish", "Swe") + ] + + +main = do + xx <- getArgs + make xx + +make xx = case xx of + _ -> do +-- mapM_ (gfc . lang) langs +-- system $ "cp */*.gfo ../alltenses" + mapM_ (gfc . try) langs + system $ "cp */*.gfo ../alltenses" + +gfc file = do + putStrLn $ "compiling " ++ file + system $ "gfc -s " ++ file + +lang (lla,la) = lla ++ "/Lang" ++ la ++ ".gf" +try (lla,la) = "api/Try" ++ la ++ ".gf" diff --git a/lib/resource-1.4/api/ConstructorsBul.gf b/lib/resource-1.4/api/ConstructorsBul.gf new file mode 100644 index 000000000..54a85890c --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsBul.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsBul = Constructors with (Grammar = GrammarBul) ; diff --git a/lib/resource-1.4/api/ConstructorsCat.gf b/lib/resource-1.4/api/ConstructorsCat.gf new file mode 100644 index 000000000..4efd5bad4 --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsCat.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsCat = Constructors with (Grammar = GrammarCat) ; diff --git a/lib/resource-1.4/api/ConstructorsDan.gf b/lib/resource-1.4/api/ConstructorsDan.gf new file mode 100644 index 000000000..0627f96c8 --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsDan.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsDan = Constructors with (Grammar = GrammarDan) ; diff --git a/lib/resource-1.4/api/ConstructorsFre.gf b/lib/resource-1.4/api/ConstructorsFre.gf new file mode 100644 index 000000000..b50c55fbc --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsFre.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsFre = Constructors with (Grammar = GrammarFre) ; diff --git a/lib/resource-1.4/api/ConstructorsGer.gf b/lib/resource-1.4/api/ConstructorsGer.gf new file mode 100644 index 000000000..907bf90a0 --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsGer.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsGer = Constructors with (Grammar = GrammarGer) ; diff --git a/lib/resource-1.4/api/ConstructorsIta.gf b/lib/resource-1.4/api/ConstructorsIta.gf new file mode 100644 index 000000000..29724ffee --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsIta.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsIta = Constructors with (Grammar = GrammarIta) ; diff --git a/lib/resource-1.4/api/ConstructorsNor.gf b/lib/resource-1.4/api/ConstructorsNor.gf new file mode 100644 index 000000000..d95b8b0e0 --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsNor.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsNor = Constructors with (Grammar = GrammarNor) ; diff --git a/lib/resource-1.4/api/ConstructorsRus.gf b/lib/resource-1.4/api/ConstructorsRus.gf new file mode 100644 index 000000000..3a77d344e --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsRus.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsRus = Constructors with (Grammar = GrammarRus) ; diff --git a/lib/resource-1.4/api/ConstructorsSpa.gf b/lib/resource-1.4/api/ConstructorsSpa.gf new file mode 100644 index 000000000..98874982a --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsSpa.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsSpa = Constructors with (Grammar = GrammarSpa) ; diff --git a/lib/resource-1.4/api/ConstructorsSwe.gf b/lib/resource-1.4/api/ConstructorsSwe.gf new file mode 100644 index 000000000..9def2d75f --- /dev/null +++ b/lib/resource-1.4/api/ConstructorsSwe.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource ConstructorsSwe = Constructors with (Grammar = GrammarSwe) ; diff --git a/lib/resource-1.4/api/SyntaxBul.gf b/lib/resource-1.4/api/SyntaxBul.gf new file mode 100644 index 000000000..03e9dff60 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxBul.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxBul of Syntax = ConstructorsBul, CatBul, StructuralBul, NumeralBul ; + diff --git a/lib/resource-1.4/api/SyntaxCat.gf b/lib/resource-1.4/api/SyntaxCat.gf new file mode 100644 index 000000000..a18726806 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxCat.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxCat of Syntax = ConstructorsCat, CatCat, StructuralCat, NumeralCat ; + diff --git a/lib/resource-1.4/api/SyntaxDan.gf b/lib/resource-1.4/api/SyntaxDan.gf new file mode 100644 index 000000000..43430ce0f --- /dev/null +++ b/lib/resource-1.4/api/SyntaxDan.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxDan of Syntax = ConstructorsDan, CatDan, StructuralDan, NumeralDan ; + diff --git a/lib/resource-1.4/api/SyntaxFre.gf b/lib/resource-1.4/api/SyntaxFre.gf new file mode 100644 index 000000000..52fd74354 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxFre.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxFre of Syntax = ConstructorsFre, CatFre, StructuralFre, NumeralFre ; + diff --git a/lib/resource-1.4/api/SyntaxGer.gf b/lib/resource-1.4/api/SyntaxGer.gf new file mode 100644 index 000000000..87b3d03a9 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxGer.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxGer of Syntax = ConstructorsGer, CatGer, StructuralGer, NumeralGer ; + diff --git a/lib/resource-1.4/api/SyntaxIta.gf b/lib/resource-1.4/api/SyntaxIta.gf new file mode 100644 index 000000000..6b0f99b3a --- /dev/null +++ b/lib/resource-1.4/api/SyntaxIta.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxIta of Syntax = ConstructorsIta, CatIta, StructuralIta, NumeralIta ; + diff --git a/lib/resource-1.4/api/SyntaxNor.gf b/lib/resource-1.4/api/SyntaxNor.gf new file mode 100644 index 000000000..ee2ad1bb7 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxNor.gf @@ -0,0 +1,5 @@ +--# -path=.:alltenses:prelude + +instance SyntaxNor of Syntax = ConstructorsNor, CatNor, StructuralNor, NumeralNor + ; + diff --git a/lib/resource-1.4/api/SyntaxRus.gf b/lib/resource-1.4/api/SyntaxRus.gf new file mode 100644 index 000000000..0804e209f --- /dev/null +++ b/lib/resource-1.4/api/SyntaxRus.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxRus of Syntax = ConstructorsRus, CatRus, StructuralRus, NumeralRus ; + diff --git a/lib/resource-1.4/api/SyntaxSpa.gf b/lib/resource-1.4/api/SyntaxSpa.gf new file mode 100644 index 000000000..7cf6b7646 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxSpa.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxSpa of Syntax = ConstructorsSpa, CatSpa, StructuralSpa, NumeralSpa ; + diff --git a/lib/resource-1.4/api/SyntaxSwe.gf b/lib/resource-1.4/api/SyntaxSwe.gf new file mode 100644 index 000000000..ecf6bbb05 --- /dev/null +++ b/lib/resource-1.4/api/SyntaxSwe.gf @@ -0,0 +1,4 @@ +--# -path=.:alltenses:prelude + +instance SyntaxSwe of Syntax = ConstructorsSwe, CatSwe, StructuralSwe, NumeralSwe ; + diff --git a/lib/resource-1.4/api/TryBul.gf b/lib/resource-1.4/api/TryBul.gf new file mode 100644 index 000000000..9becc455d --- /dev/null +++ b/lib/resource-1.4/api/TryBul.gf @@ -0,0 +1,13 @@ +--# -path=.:alltenses:prelude + +resource TryBul = SyntaxBul, LexiconBul, ParadigmsBul - [mkAdv] ** + open (P = ParadigmsBul), in { + +oper + + mkAdv = overload SyntaxBul { + mkAdv : Str -> Adv = P.mkAdv ; + } ; + + +} diff --git a/lib/resource-1.4/api/TryCat.gf b/lib/resource-1.4/api/TryCat.gf new file mode 100644 index 000000000..c1a9acfba --- /dev/null +++ b/lib/resource-1.4/api/TryCat.gf @@ -0,0 +1,13 @@ +--# -path=.:alltenses:prelude + +resource TryCat = SyntaxCat, LexiconCat, ParadigmsCat - [mkAdv] ** + open (P = ParadigmsCat), in { + +oper + + mkAdv = overload SyntaxCat { + mkAdv : Str -> Adv = P.mkAdv ; + } ; + + +} diff --git a/lib/resource-1.4/api/TryDan.gf b/lib/resource-1.4/api/TryDan.gf new file mode 100644 index 000000000..f92e7285d --- /dev/null +++ b/lib/resource-1.4/api/TryDan.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryDan = SyntaxDan, LexiconDan, ParadigmsDan - [mkAdv] ; diff --git a/lib/resource-1.4/api/TryEng.gf b/lib/resource-1.4/api/TryEng.gf index f86c789d5..e5be9b580 100644 --- a/lib/resource-1.4/api/TryEng.gf +++ b/lib/resource-1.4/api/TryEng.gf @@ -1,4 +1,4 @@ ---# -path=.:alltenses-1.4:prelude +--# -path=.:alltenses:prelude resource TryEng = SyntaxEng, LexiconEng, ParadigmsEng - [mkAdv] ** open (P = ParadigmsEng), in { diff --git a/lib/resource-1.4/api/TryFre.gf b/lib/resource-1.4/api/TryFre.gf new file mode 100644 index 000000000..b12983510 --- /dev/null +++ b/lib/resource-1.4/api/TryFre.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryFre = SyntaxFre, LexiconFre, ParadigmsFre - [mkAdv] ; diff --git a/lib/resource-1.4/api/TryGer.gf b/lib/resource-1.4/api/TryGer.gf new file mode 100644 index 000000000..7b4d0ddb5 --- /dev/null +++ b/lib/resource-1.4/api/TryGer.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryGer = SyntaxGer, LexiconGer, ParadigmsGer - [mkAdv] ; diff --git a/lib/resource-1.4/api/TryIta.gf b/lib/resource-1.4/api/TryIta.gf new file mode 100644 index 000000000..ff91189bc --- /dev/null +++ b/lib/resource-1.4/api/TryIta.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryIta = SyntaxIta, LexiconIta, ParadigmsIta - [mkAdv,in_Prep] ; diff --git a/lib/resource-1.4/api/TryNor.gf b/lib/resource-1.4/api/TryNor.gf new file mode 100644 index 000000000..43c9bab63 --- /dev/null +++ b/lib/resource-1.4/api/TryNor.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryNor = SyntaxNor, LexiconNor, ParadigmsNor - [mkAdv] ; diff --git a/lib/resource-1.4/api/TryRus.gf b/lib/resource-1.4/api/TryRus.gf new file mode 100644 index 000000000..cb2058ceb --- /dev/null +++ b/lib/resource-1.4/api/TryRus.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TryRus = SyntaxRus, LexiconRus, ParadigmsRus - [mkAdv] ; diff --git a/lib/resource-1.4/api/TrySpa.gf b/lib/resource-1.4/api/TrySpa.gf new file mode 100644 index 000000000..06e74933b --- /dev/null +++ b/lib/resource-1.4/api/TrySpa.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TrySpa = SyntaxSpa, LexiconSpa, ParadigmsSpa - [mkAdv] ; diff --git a/lib/resource-1.4/api/TrySwe.gf b/lib/resource-1.4/api/TrySwe.gf new file mode 100644 index 000000000..7d8dd3b16 --- /dev/null +++ b/lib/resource-1.4/api/TrySwe.gf @@ -0,0 +1,3 @@ +--# -path=.:alltenses:prelude + +resource TrySwe = SyntaxSwe, LexiconSwe, ParadigmsSwe - [mkAdv] ; diff --git a/lib/resource-1.4/german/StructuralGer.gf b/lib/resource-1.4/german/StructuralGer.gf index 4b1358ee6..bf9394b50 100644 --- a/lib/resource-1.4/german/StructuralGer.gf +++ b/lib/resource-1.4/german/StructuralGer.gf @@ -111,6 +111,7 @@ concrete StructuralGer of Structural = CatGer ** when_IAdv = ss "wann" ; when_Subj = ss "wenn" ; where_IAdv = ss "wo" ; + which_IQuant = {s = \\n => (detLikeAdj n "welch").s} ; ---b whichPl_IDet = detLikeAdj Pl "welch" ; ---b whichSg_IDet = detLikeAdj Sg "welch" ;