msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

more example languages

Browse Source
This commit is contained in:
aarne
2007-12-19 10:50:17 +00:00
parent 9ab29b205d
commit 5de05d36da
10 changed files with 68 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource/Examples/Examples.gf
View File

@@ -1,10 +1,12 @@
abstract Examples = { abstract Examples = {
flags startcat = Ex ;
cat cat
Ex ; Ex ;
fun fun
ex1, ex2, ex4, ex8, ex13, ex19, ex20, ex23, ex01, ex02, ex04, ex08, ex13, ex19, ex20, ex23,
ex3, ex5, ex6, ex7, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27, ex03, ex05, ex06, ex07, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27,
ex9, ex09,
ex11, ex17, ex18, ex21, ex22 : Ex ; ex11, ex17, ex18, ex21, ex22 : Ex ;
} }

6
lib/resource/Examples/ExamplesDan.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
concrete ExamplesDan of Examples = ExamplesI with
(Syntax=SyntaxDan),
(Lang=LangDan) ;

18
lib/resource/Examples/ExamplesI.gf
View File

@@ -3,47 +3,47 @@ incomplete concrete ExamplesI of Examples = open Syntax,Lang in {
lincat Ex = Text ; lincat Ex = Text ;
lin lin
ex1 = mkText (UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron) ex01 = mkText (UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron)
(AdvVP (UseV sing_V) (AdAdv almost_AdA (PositAdvAdj correct_A)))))); (AdvVP (UseV sing_V) (AdAdv almost_AdA (PositAdvAdj correct_A))))));
ex2 = mkText (UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos ex02 = mkText (UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos
(PredVP everybody_NP (UseComp (CompAP (ConjAP and_Conj (BaseAP (PredVP everybody_NP (UseComp (CompAP (ConjAP and_Conj (BaseAP
(PositA young_A) (PositA beautiful_A))))))) (UseCl TPast ASimul PPos (PositA young_A) (PositA beautiful_A))))))) (UseCl TPast ASimul PPos
(PredVP everything_NP (ComplVA become_VA (PositA probable_AS)))))))) ; (PredVP everything_NP (ComplVA become_VA (PositA probable_AS)))))))) ;
ex3 = mkText (UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet ex03 = mkText (UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet
(DetCN (DetPl ( IndefArt) (NumDigits n2_Digits) NoOrd) (UseN woman_N))) (DetCN (DetPl ( IndefArt) (NumDigits n2_Digits) NoOrd) (UseN woman_N)))
(UseRCl TCond ASimul PPos (RelSlash IdRP (UseRCl TCond ASimul PPos (RelSlash IdRP
(AdvSlash (SlashPrep (PredVP (UsePron i_Pron) (ComplVV want_VV (AdvSlash (SlashPrep (PredVP (UsePron i_Pron) (ComplVV want_VV
(PassV2 see_V2))) with_Prep) (PrepNP in_Prep (DetCN (DetSg (PassV2 see_V2))) with_Prep) (PrepNP in_Prep (DetCN (DetSg
(DefArt) NoOrd) (UseN rain_N)))))))) ; (DefArt) NoOrd) (UseN rain_N)))))))) ;
ex4 = mkText (UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos ex04 = mkText (UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos
(RelCl (ExistNP (AdvNP (DetCN (DetSg ( IndefArt) NoOrd) (RelCl (ExistNP (AdvNP (DetCN (DetSg ( IndefArt) NoOrd)
(UseN peace_N)) (PrepNP on_Prep (DetCN (DetSg ( IndefArt) (UseN peace_N)) (PrepNP on_Prep (DetCN (DetSg ( IndefArt)
NoOrd) (UseN earth_N)))))))))) ; NoOrd) (UseN earth_N)))))))))) ;
ex5 = mkText (UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP ex05 = mkText (UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP
(ProgrVP (UseV play_V)) (ComparAdvAdjS less_CAdv clever_A (ProgrVP (UseV play_V)) (ComparAdvAdjS less_CAdv clever_A
(UseCl TPres ASimul PPos (GenericCl (UseV think_V))))))) ; (UseCl TPres ASimul PPos (GenericCl (UseV think_V))))))) ;
ex6 = mkText (UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV ex06 = mkText (UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV
(UseV stop_V)))) (UseCl TPres ASimul PPos (PredVP (UsePron we_Pron) (UseV stop_V)))) (UseCl TPres ASimul PPos (PredVP (UsePron we_Pron)
(ComplV2 beg_V2V (UsePron youPl_Pron)))))) ; (ComplV2 beg_V2V (UsePron youPl_Pron)))))) ;
ex7 = mkText (UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3 ex07 = mkText (UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3
(DetCN (DetPl ( IndefArt) (AdNum (AdnCAdv more_CAdv) (DetCN (DetPl ( IndefArt) (AdNum (AdnCAdv more_CAdv)
(NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))))) NoOrd) (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))))) NoOrd)
(UseN star_N)) (DetCN (DetSg ( this_Quant) NoOrd) (UseN star_N)) (DetCN (DetSg ( this_Quant) NoOrd)
(UseN restaurant_N))))) ; (UseN restaurant_N))))) ;
ex8 = mkText (UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg ( DefArt) ex08 = mkText (UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg ( DefArt)
NoOrd) (UseN earth_N)) (DConjAP both7and_DConj (BaseAP (ComparA NoOrd) (UseN earth_N)) (DConjAP both7and_DConj (BaseAP (ComparA
small_A (DetCN (DetSg ( DefArt) NoOrd) (UseN sun_N))) small_A (DetCN (DetSg ( DefArt) NoOrd) (UseN sun_N)))
(ComparA big_A (DetCN (DetSg ( DefArt) NoOrd) (UseN moon_N (ComparA big_A (DetCN (DetSg ( DefArt) NoOrd) (UseN moon_N
))))))) ) ; ))))))) ) ;
ex9 = mkText (UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ ex09 = mkText (UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ
(UseQCl TPres ASimul PPos (QuestSlash whatSg_IP (SlashV2 (UsePron (UseQCl TPres ASimul PPos (QuestSlash whatSg_IP (SlashV2 (UsePron
youSg_Pron)love_V2)))))) ; youSg_Pron)love_V2)))))) ;

6
lib/resource/Examples/ExamplesNor.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
concrete ExamplesNor of Examples = ExamplesI with
(Syntax=SyntaxNor),
(Lang=LangNor) ;

6
lib/resource/Examples/ExamplesRus.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
concrete ExamplesRus of Examples = ExamplesI with
(Syntax=SyntaxRus),
(Lang=LangRus) ** {flags coding=utf8} ;

6
lib/resource/Examples/ExamplesSpa.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
concrete ExamplesSpa of Examples = ExamplesI with
(Syntax=SyntaxSpa),
(Lang=LangSpa) ;

12
lib/resource/Examples/mkExx.gfs Normal file
View File

@@ -0,0 +1,12 @@
i ExamplesDan.gf
i ExamplesEng.gf
i ExamplesFin.gf
i ExamplesFre.gf
i ExamplesGer.gf
i ExamplesIta.gf
i ExamplesNor.gf
i ExamplesRus.gf
i ExamplesSpa.gf
i ExamplesSwe.gf
pm -printer=gfcc | wf examples.gfcc
gt | tb | wf examples.txt

26
lib/resource/api/Constructors.gf
View File

@@ -526,19 +526,19 @@ incomplete resource Constructors = open Grammar in {
-- See $Numeral$ for the full set of constructors, and use the category -- See $Numeral$ for the full set of constructors, and use the category
-- $Digits$ for other numbers from one million. -- $Digits$ for other numbers from one million.
n1_Digits : Digits ; -- 1. one n1_Digits : Digits ; -- 1. 1
n2_Digits : Digits ; -- 2. two n2_Digits : Digits ; -- 2. 2
n3_Digits : Digits ; -- 3. three n3_Digits : Digits ; -- 3. 3
n4_Digits : Digits ; -- 4. four n4_Digits : Digits ; -- 4. 4
n5_Digits : Digits ; -- 5. five n5_Digits : Digits ; -- 5. 5
n6_Digits : Digits ; -- 6. six n6_Digits : Digits ; -- 6. 6
n7_Digits : Digits ; -- 7. seven n7_Digits : Digits ; -- 7. 7
n8_Digits : Digits ; -- 8. eight n8_Digits : Digits ; -- 8. 8
n9_Digits : Digits ; -- 9. nine n9_Digits : Digits ; -- 9. 9
n10_Digits : Digits ; -- 10. ten n10_Digits : Digits ; -- 10. 10
n20_Digits : Digits ; -- 11. twenty n20_Digits : Digits ; -- 11. 20
n100_Digits : Digits ; -- 12. hundred n100_Digits : Digits ; -- 12. 100
n1000_Digits : Digits ; -- 13. thousand n1000_Digits : Digits ; -- 13. 1,000

2
lib/resource/romance/NounRomance.gf
View File

@@ -10,7 +10,7 @@ incomplete concrete NounRomance of Noun =
n = det.n n = det.n
in { in {
s = \\c => let cs = npform2case c in s = \\c => let cs = npform2case c in
prepCase cs ++ det.s ! g ! cs ++ cn.s ! n ; det.s ! g ! cs ++ cn.s ! n ;
a = agrP3 g n ; a = agrP3 g n ;
hasClit = False hasClit = False
} ; } ;

8
src/GF/Infra/ReadFiles.hs
View File

@@ -91,12 +91,12 @@ selectFormat opts env (p,f) = do
mtgfc <- getModTime $ gfcFile pf mtgfc <- getModTime $ gfcFile pf
mtgf <- getModTime $ gfFile pf mtgf <- getModTime $ gfFile pf
let stat = case (rtenv,mtenv,mtgfc,mtgf) of let stat = case (rtenv,mtenv,mtgfc,mtgf) of
(_,Just tenv,_,_) | fromComp -> (CSEnv, Just tenv) -- (_,Just tenv,_,_) | fromComp -> (CSEnv, Just tenv)
(_,_,Just tgfc,_) | fromComp -> (CSRead,Just tgfc) (_,_,Just tgfc,_) | fromComp -> (CSRead,Just tgfc)
(Just tenv,_,_,Just tgf) | laterModTime tenv tgf -> (CSEnvR,Just tenv) -- (Just tenv,_,_,Just tgf) | laterModTime tenv tgf -> (CSEnvR,Just tenv)
(_,Just tenv,_,Just tgf) | laterModTime tenv tgf -> (CSEnv, Just tenv) -- (_,Just tenv,_,Just tgf) | laterModTime tenv tgf -> (CSEnv, Just tenv)
(_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf -> (CSRead,Just tgfc) (_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf -> (CSRead,Just tgfc)
(_,Just tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist -- (_,Just tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist
(_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist (_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist
_ -> (CSComp,Nothing) _ -> (CSComp,Nothing)
return $ (f, (p,stat)) return $ (f, (p,stat))