GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 10:49:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

resource lib name changed

Browse Source
This commit is contained in:
aarne
2007-12-12 20:30:11 +00:00
parent f472bf266c
commit 4ea58bce2c
741 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
lib/resource/api/examples/Exx.gf Normal file
View File

@@ -0,0 +1,90 @@
abstract Exx = Cat-[VP], Conjunction-[VP] ** {
cat VP ; --- hack to circumvent missing lockfields in overload resolution
fun
ex1_Text, ex2_Text, ex3_Text, ex4_Text, ex5_Text, ex6_Text, ex7_Text,
ex8_Text : Text ;
ex1_Phr, ex2_Phr, ex3_Phr, ex4_Phr, ex5_Phr, ex6_Phr : Phr ;
ex1_PConj : PConj ;
ex1_Voc : Voc ;
ex1_Utt, ex2_Utt, ex3_Utt, ex4_Utt, ex5_Utt, ex6_Utt, ex7_Utt, ex8_Utt, ex8_Utt,
ex9_Utt, ex10_Utt, ex11_Utt : Utt ;
ex1_S, ex2_S, ex3_S, ex4_S, ex5_S, ex6_S, ex7_S : S ;
ex1_Cl, ex2_Cl, ex3_Cl, ex4_Cl, ex5_Cl, ex6_Cl, ex7_Cl, ex8_Cl, ex9_Cl, ex10_Cl,
ex11_Cl, ex12_Cl, ex13_Cl, ex14_Cl, ex15_Cl, ex16_Cl, ex17_Cl, ex18_Cl, ex19_Cl,
ex20_Cl, ex21_Cl, ex22_Cl, ex23_Cl, ex24_Cl, ex25_Cl : Cl ;
ex1_VP, ex2_VP, ex3_VP, ex4_VP, ex5_VP, ex6_VP, ex7_VP, ex8_VP, ex9_VP, ex10_VP,
ex11_VP, ex12_VP, ex13_VP, ex14_VP, ex15_VP, ex16_VP, ex17_VP, ex18_VP, ex19_VP,
ex20_VP, ex21_VP, ex22_VP : VP ;
ex1_NP, ex2_NP, ex3_NP, ex4_NP, ex5_NP, ex6_NP, ex7_NP, ex8_NP, ex9_NP, ex10_NP,
ex11_NP, ex12_NP, ex13_NP, ex14_NP, ex15_NP, ex16_NP, ex17_NP, ex18_NP, ex19_NP,
ex20_NP, ex21_NP, ex22_NP, ex23_NP : NP ;
ex1_Det, ex2_Det, ex3_Det, ex4_Det, ex5_Det, ex6_Det, ex7_Det, ex8_Det, ex9_Det,
ex10_Det, ex11_Det, ex12_Det, ex13_Det, ex14_Det : Det ;
ex1_Quant, ex2_Quant : Quant ;
ex1_QuantSg, ex2_QuantSg : QuantSg ;
ex1_QuantPl : QuantPl ;
ex1_Num, ex2_Num, ex3_Num : Num ;
ex1_Ord, ex2_Ord, ex3_Ord : Ord ;
ex1_AdN : AdN ;
ex1_Numeral, ex2_Numeral, ex3_Numeral, ex4_Numeral, ex5_Numeral,
ex6_Numeral, ex7_Numeral, ex8_Numeral, ex9_Numeral,
ex10_Numeral, ex11_Numeral, ex12_Numeral, ex13_Numeral : Numeral ;
ex1_CN, ex2_CN, ex3_CN, ex4_CN, ex5_CN, ex6_CN, ex7_CN, ex8_CN, ex9_CN, ex10_CN,
ex11_CN, ex12_CN, ex13_CN, ex14_CN, ex15_CN, ex16_CN, ex17_CN, ex18_CN : CN ;
ex1_AP, ex2_AP, ex3_AP, ex4_AP, ex5_AP, ex6_AP, ex7_AP, ex8_AP, ex9_AP, ex10_AP,
ex11_AP, ex12_AP, ex13_AP : AP ;
ex1_Adv, ex2_Adv, ex3_Adv, ex4_Adv, ex5_Adv, ex6_Adv, ex7_Adv, ex8_Adv,
ex9_Adv, ex10_Adv : Adv ;
ex1_QS, ex2_QS, ex3_QS : QS ;
ex1_QCl, ex2_QCl, ex3_QCl, ex4_QCl, ex5_QCl, ex6_QCl, ex7_QCl, ex8_QCl : QCl ;
ex1_IP, ex2_IP, ex3_IP : IP ;
ex1_IAdv : IAdv ;
ex1_RS, ex2_RS : RS ;
ex1_RCl, ex2_RCl, ex3_RCl, ex4_RCl : RCl ;
ex1_RP, ex2_RP : RP ;
ex1_Slash, ex2_Slash, ex3_Slash, ex4_Slash : Slash ;
ex1_ListS, ex2_ListS : ListS ;
ex1_ListAdv, ex2_ListAdv : ListAdv ;
ex1_ListAP, ex2_ListAP : ListAP ;
ex1_ListNP, ex2_ListNP : ListNP ;
-- auxiliary to show VP's
utt : VP -> Utt ;
}

7
lib/resource/api/examples/ExxEng.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:..:alltenses:prelude
concrete ExxEng of Exx = CatEng-[VP], ConjunctionEng-[VP] ** ExxI with
(Lang = LangEng),
(Constructors = ConstructorsEng) ;

7
lib/resource/api/examples/ExxFin.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:..:alltenses:prelude
concrete ExxFin of Exx = CatFin-[VP], ConjunctionFin-[VP] ** ExxI with
(Lang = LangFin),
(Constructors = ConstructorsFin) ;

7
lib/resource/api/examples/ExxFre.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:..:alltenses:prelude
concrete ExxFre of Exx = CatFre-[VP], ConjunctionFre-[VP] ** ExxI with
(Lang = LangFre),
(Constructors = ConstructorsFre) ;

7
lib/resource/api/examples/ExxGer.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:..:alltenses:prelude
concrete ExxGer of Exx = CatGer-[VP], ConjunctionGer-[VP] ** ExxI with
(Lang = LangGer),
(Constructors = ConstructorsGer) ;

275
lib/resource/api/examples/ExxI.gf Normal file
View File

@@ -0,0 +1,275 @@
incomplete concrete ExxI of Exx = Cat-[VP], Conjunction-[VP] **
open Lang, Constructors in {
-- examples for Constructors.
lincat VP = Lang.VP ; --- hack to circumvent missing lockfields in overload resolution
lin
ex1_Text = mkText (mkPhr but_PConj (mkUtt (mkCl john_NP walk_V))) ;
ex2_Text = mkText (mkPhr (mkCl john_NP walk_V)) questMarkPunct (mkText yes_Phr) ;
ex3_Text = mkText (mkUtt john_NP) ;
ex4_Text = mkText (mkS pastTense (mkCl john_NP walk_V)) ;
ex5_Text = mkText (mkCl john_NP walk_V) ;
ex6_Text = mkText (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
ex7_Text = mkText (mkImp walk_V) ;
ex8_Text = emptyText ;
ex1_Phr = mkPhr (mkUtt why_IAdv) ;
ex2_Phr = mkPhr but_PConj (mkUtt why_IAdv) (mkVoc john_NP) ;
ex3_Phr = mkPhr (mkS pastTense (mkCl john_NP walk_V)) ;
ex4_Phr = mkPhr (mkCl john_NP walk_V) ;
ex5_Phr = mkPhr (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
ex6_Phr = mkPhr (mkImp walk_V) ;
ex1_PConj = mkPConj and_Conj ;
ex1_Voc = mkVoc john_NP ;
ex1_Utt = mkUtt (mkS pastTense (mkCl john_NP walk_V)) ;
ex2_Utt = mkUtt (mkCl john_NP walk_V) ;
ex3_Utt = mkUtt (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
ex4_Utt = mkUtt (mkImp walk_V) ;
ex5_Utt = mkUtt pluralImpForm negativePol (mkImp (reflexiveVP love_V2)) ;
ex6_Utt = mkUtt whoSg_IP ;
ex7_Utt = mkUtt why_IAdv ;
ex8_Utt = mkUtt john_NP ;
ex9_Utt = mkUtt here_Adv ;
ex10_Utt = mkUtt (mkVP walk_V) ;
ex11_Utt = lets_Utt (mkVP walk_V) ;
ex1_S = mkS (mkCl john_NP walk_V) ;
ex2_S = mkS conditionalTense anteriorAnt negativePol (mkCl john_NP walk_V) ;
ex3_S = mkS and_Conj (mkS (mkCl john_NP walk_V)) (mkS (mkCl (mkNP i_Pron) run_V)) ;
ex4_S = mkS and_Conj (mkListS (mkS (mkCl john_NP walk_V)) (mkListS (mkS (mkCl (mkNP i_Pron) run_V)) (mkS (mkCl (mkNP youSg_Pron) sleep_V)))) ;
ex5_S = mkS either7or_DConj (mkS (mkCl john_NP walk_V)) (mkS (mkCl (mkNP i_Pron) run_V)) ;
ex6_S = mkS either7or_DConj (mkListS (mkS (mkCl john_NP walk_V)) (mkListS (mkS (mkCl (mkNP i_Pron) run_V)) (mkS (mkCl (mkNP youSg_Pron) sleep_V)))) ;
ex7_S = mkS today_Adv (mkS futureTense (mkCl john_NP walk_V)) ;
ex1_Cl = mkCl john_NP walk_V ;
ex2_Cl = mkCl john_NP love_V2 (mkNP she_Pron) ;
ex3_Cl = mkCl john_NP send_V3 (mkNP it_Pron) (mkNP she_Pron) ;
ex4_Cl = mkCl john_NP want_VV (mkVP walk_V) ;
ex5_Cl = mkCl john_NP say_VS (mkS (mkCl (mkNP it_Pron) good_A)) ;
ex6_Cl = mkCl john_NP wonder_VQ (mkQS (mkCl (mkNP it_Pron) good_A)) ;
ex7_Cl = mkCl john_NP become_VA (mkAP old_A) ;
ex8_Cl = mkCl john_NP paint_V2A (mkNP it_Pron) (mkAP red_A) ;
ex9_Cl = mkCl john_NP old_A ;
ex10_Cl = mkCl john_NP old_A (mkNP she_Pron) ;
ex11_Cl = mkCl john_NP married_A2 (mkNP she_Pron) ;
ex12_Cl = mkCl john_NP (mkAP very_AdA (mkAP old_A)) ;
ex13_Cl = mkCl john_NP man_N ;
ex14_Cl = mkCl john_NP (mkCN old_A man_N) ;
ex15_Cl = mkCl john_NP (mkNP defSgDet man_N) ;
ex16_Cl = mkCl john_NP here_Adv ;
ex17_Cl = mkCl john_NP (mkVP (mkVP walk_V) here_Adv) ;
ex18_Cl = mkCl rain_V0 ;
ex19_Cl = mkCl (progressiveVP (mkVP rain_V0)) ;
ex20_Cl = mkCl house_N ;
ex21_Cl = mkCl (mkCN old_A house_N) ;
ex22_Cl = mkCl (mkNP n5_Numeral house_N) ;
ex23_Cl = mkCl john_NP (mkRS (mkRCl which_RP (mkVP walk_V))) ;
ex24_Cl = mkCl here_Adv (mkS (mkCl john_NP walk_V)) ;
ex25_Cl = mkCl (mkVP walk_V) ;
ex1_VP = mkVP walk_V ;
ex2_VP = mkVP love_V2 (mkNP she_Pron) ;
ex3_VP = mkVP send_V3 (mkNP it_Pron) (mkNP she_Pron) ;
ex4_VP = mkVP want_VV (mkVP walk_V) ;
ex5_VP = mkVP say_VS (mkS (mkCl (mkNP it_Pron) good_A)) ;
ex6_VP = mkVP wonder_VQ (mkQS (mkCl (mkNP it_Pron) good_A)) ;
ex7_VP = mkVP become_VA (mkAP old_A) ;
ex8_VP = mkVP paint_V2A (mkNP it_Pron) (mkAP red_A) ;
ex9_VP = mkVP old_A ;
ex10_VP = mkVP old_A (mkNP she_Pron) ;
ex11_VP = mkVP married_A2 (mkNP she_Pron) ;
ex12_VP = mkVP (mkAP very_AdA (mkAP old_A)) ;
ex13_VP = mkVP man_N ;
ex14_VP = mkVP (mkCN old_A man_N) ;
ex15_VP = mkVP (mkNP defSgDet man_N) ;
ex16_VP = mkVP here_Adv ;
ex17_VP = mkVP (mkVP sleep_V) here_Adv ;
ex18_VP = mkVP always_AdV (mkVP sleep_V) ;
ex19_VP = reflexiveVP love_V2 ;
ex20_VP = passiveVP love_V2 ;
ex21_VP = passiveVP love_V2 (mkNP she_Pron) ;
ex22_VP = progressiveVP (mkVP sleep_V) ;
ex1_NP = mkNP (mkDet (mkQuantSg defQuant) first_Ord) man_N ;
ex2_NP = mkNP (mkDet (mkQuantSg defQuant) first_Ord) (mkCN old_A man_N) ;
ex3_NP = mkNP (mkQuantSg this_Quant) man_N ;
ex4_NP = mkNP (mkQuantSg this_Quant) (mkCN old_A man_N) ;
ex5_NP = mkNP (mkQuantPl this_Quant) man_N ;
ex6_NP = mkNP (mkQuantPl this_Quant) (mkCN old_A man_N) ;
ex7_NP = mkNP n20_Numeral man_N ;
ex8_NP = mkNP n20_Numeral (mkCN old_A man_N) ;
--- ex9_NP = mkNP (mkInt "45") man_N ;
--- ex10_NP = mkNP (mkInt "45") (mkCN old_A man_N) ;
ex11_NP = mkNP (mkNum almost_AdN (mkNum n20_Numeral)) man_N ;
ex12_NP = mkNP (mkNum almost_AdN (mkNum n20_Numeral)) (mkCN old_A man_N) ;
ex13_NP = mkNP i_Pron man_N ;
ex14_NP = mkNP i_Pron (mkCN old_A man_N) ;
ex15_NP = mkNP john_PN ;
ex16_NP = mkNP i_Pron ;
ex17_NP = mkNP only_Predet john_NP ;
ex18_NP = mkNP john_NP kill_V2 ;
ex19_NP = mkNP john_NP (mkAdv in_Prep (mkNP paris_PN)) ;
ex20_NP = mkNP and_Conj john_NP (mkNP i_Pron) ;
ex21_NP = mkNP and_Conj (mkListNP john_NP (mkListNP (mkNP i_Pron) that_NP)) ;
ex22_NP = mkNP either7or_DConj john_NP (mkNP i_Pron) ;
ex23_NP = mkNP either7or_DConj (mkListNP john_NP (mkListNP (mkNP i_Pron) that_NP)) ;
ex1_Det = mkDet (mkQuantSg this_Quant) ;
ex2_Det = mkDet (mkQuantSg this_Quant) first_Ord ;
ex3_Det = mkDet (mkQuantPl this_Quant) ;
ex4_Det = mkDet (mkQuantPl this_Quant) (mkNum n5_Numeral) (mkOrd good_A) ;
ex5_Det = mkDet this_Quant ;
ex6_Det = mkDet this_Quant (mkNum n5_Numeral) ;
ex7_Det = mkDet (mkNum almost_AdN (mkNum n20_Numeral)) ;
ex8_Det = mkDet n5_Numeral ;
--- ex9_Det = mkDet 51 ;
ex10_Det = mkDet i_Pron ;
ex11_Det = defSgDet ;
ex12_Det = defPlDet ;
ex13_Det = indefSgDet ;
ex14_Det = indefPlDet ;
ex1_Quant = defQuant ;
ex2_Quant = indefQuant ;
ex1_QuantSg = mkQuantSg this_Quant ;
ex2_QuantSg = massQuant ;
ex1_QuantPl = mkQuantPl this_Quant ;
ex1_Num = mkNum n20_Numeral ;
--- ex2_Num = mkNum 51 ;
ex3_Num = mkNum almost_AdN (mkNum n10_Numeral) ;
ex1_Ord = mkOrd n20_Numeral ;
--- ex2_Ord = mkOrd 51 ;
ex3_Ord = mkOrd good_A ;
ex1_AdN = mkAdN more_CAdv ;
ex1_Numeral = n1_Numeral ;
ex2_Numeral = n2_Numeral ;
ex3_Numeral = n3_Numeral ;
ex4_Numeral = n4_Numeral ;
ex5_Numeral = n5_Numeral ;
ex6_Numeral = n6_Numeral ;
ex7_Numeral = n7_Numeral ;
ex8_Numeral = n8_Numeral ;
ex9_Numeral = n9_Numeral ;
ex10_Numeral = n10_Numeral ;
ex11_Numeral = n20_Numeral ;
ex12_Numeral = n100_Numeral ;
ex13_Numeral = n1000_Numeral ;
ex1_CN = mkCN house_N ;
ex2_CN = mkCN mother_N2 john_NP ;
ex3_CN = mkCN distance_N3 (mkNP (mkDet this_Quant) city_N) (mkNP paris_PN) ;
ex4_CN = mkCN mother_N2 ;
ex5_CN = mkCN distance_N3 ;
ex6_CN = mkCN big_A house_N ;
ex7_CN = mkCN big_A (mkCN blue_A house_N) ;
ex8_CN = mkCN (mkAP very_AdA big_A) house_N ;
ex9_CN = mkCN (mkAP very_AdA big_A) (mkCN blue_A house_N) ;
ex10_CN = mkCN house_N (mkRS (mkRCl which_RP john_NP love_V2)) ;
ex11_CN = mkCN (mkCN big_A house_N) (mkRS (mkRCl which_RP john_NP love_V2)) ;
ex12_CN = mkCN house_N (mkAdv in_Prep (mkNP defSgDet city_N)) ;
ex13_CN = mkCN (mkCN big_A house_N) (mkAdv in_Prep (mkNP defSgDet city_N)) ;
ex14_CN = mkCN (mkCN rule_N) (mkS (mkCl john_NP walk_V)) ;
ex15_CN = mkCN (mkCN question_N) (mkQS (mkCl john_NP walk_V)) ;
ex16_CN = mkCN (mkCN reason_N) (mkVP walk_V) ;
ex17_CN = mkCN king_N john_NP ;
ex18_CN = mkCN (mkCN old_A king_N) john_NP ;
ex1_AP = mkAP old_A ;
ex2_AP = mkAP old_A john_NP ;
ex3_AP = mkAP married_A2 (mkNP she_Pron) ;
ex4_AP = mkAP married_A2 ;
ex5_AP = mkAP (mkAP probable_AS) (mkS (mkCl john_NP walk_V)) ;
ex6_AP = mkAP (mkAP uncertain_A) (mkQS (mkCl john_NP walk_V)) ;
ex7_AP = mkAP (mkAP ready_A) (mkVP walk_V) ;
ex8_AP = mkAP very_AdA old_A ;
ex9_AP = mkAP very_AdA (mkAP very_AdA old_A) ;
ex10_AP = mkAP and_Conj (mkAP old_A) (mkAP big_A) ;
ex11_AP = mkAP and_Conj (mkListAP (mkAP old_A) (mkListAP (mkAP big_A) (mkAP warm_A)));
ex12_AP = mkAP either7or_DConj (mkAP old_A) (mkAP big_A) ;
ex13_AP = mkAP either7or_DConj (mkListAP (mkAP old_A) (mkListAP (mkAP big_A) (mkAP warm_A)));
ex1_Adv = mkAdv warm_A ;
ex2_Adv = mkAdv with_Prep john_NP ;
ex3_Adv = mkAdv when_Subj (mkS (mkCl john_NP walk_V)) ;
ex4_Adv = mkAdv more_CAdv warm_A john_NP ;
ex5_Adv = mkAdv more_CAdv warm_A (mkS (mkCl john_NP walk_V)) ;
ex6_Adv = mkAdv very_AdA (mkAdv warm_A) ;
ex7_Adv = mkAdv and_Conj here_Adv now_Adv ;
ex8_Adv = mkAdv and_Conj (mkListAdv (mkAdv with_Prep john_NP) (mkListAdv here_Adv now_Adv)) ;
ex9_Adv = mkAdv either7or_DConj here_Adv now_Adv ;
ex10_Adv = mkAdv either7or_DConj (mkListAdv (mkAdv with_Prep john_NP) (mkListAdv here_Adv now_Adv)) ;
ex1_QS = mkQS (mkQCl whoSg_IP (mkVP walk_V)) ;
ex2_QS = mkQS conditionalTense anteriorAnt negativePol (mkQCl whoSg_IP (mkVP walk_V)) ;
ex3_QS = mkQS (mkCl john_NP walk_V) ;
ex1_QCl = mkQCl (mkCl john_NP walk_V) ;
ex2_QCl = mkQCl whoSg_IP (mkVP walk_V) ;
ex3_QCl = mkQCl whoSg_IP john_NP love_V2 ;
ex4_QCl = mkQCl whoSg_IP (mkSlash (mkSlash john_NP love_V2) today_Adv) ;
ex5_QCl = mkQCl why_IAdv (mkCl john_NP walk_V) ;
ex6_QCl = mkQCl with_Prep whoSg_IP (mkCl john_NP walk_V) ;
ex7_QCl = mkQCl where_IAdv john_NP ;
ex8_QCl = mkQCl whatSg_IP ;
ex1_IP = mkIP whichSg_IDet city_N ;
ex2_IP = mkIP whichPl_IDet (mkNum n5_Numeral) (mkOrd good_A) (mkCN city_N) ;
ex3_IP = mkIP whoSg_IP (mkAdv in_Prep (mkNP paris_PN)) ;
ex1_IAdv = mkIAdv in_Prep (mkIP whichSg_IDet city_N) ;
ex1_RS = mkRS (mkRCl which_RP (mkVP walk_V)) ;
ex2_RS = mkRS conditionalTense anteriorAnt negativePol (mkRCl which_RP (mkVP walk_V)) ;
ex1_RCl = mkRCl which_RP (mkVP walk_V) ;
ex2_RCl = mkRCl which_RP john_NP love_V2 ;
ex3_RCl = mkRCl which_RP (mkSlash (mkSlash john_NP love_V2) today_Adv) ;
ex4_RCl = mkRCl (mkCl john_NP love_V2 (mkNP she_Pron)) ;
ex1_RP = which_RP ;
ex2_RP = mkRP in_Prep (mkNP all_Predet (mkNP defPlDet house_N)) which_RP ;
ex1_Slash = mkSlash john_NP love_V2 ;
ex2_Slash = mkSlash john_NP want_VV see_V2 ;
ex3_Slash = mkSlash (mkCl john_NP walk_V) with_Prep ;
ex4_Slash = mkSlash (mkSlash john_NP love_V2) today_Adv ;
ex1_ListS = mkListS (mkS (mkCl john_NP walk_V)) (mkS (mkCl (mkNP i_Pron) run_V)) ;
ex2_ListS = mkListS (mkS (mkCl john_NP walk_V)) (mkListS (mkS (mkCl (mkNP i_Pron) run_V)) (mkS (mkCl (mkNP youSg_Pron) sleep_V))) ;
ex1_ListAP = mkListAP (mkAP old_A) (mkAP big_A) ;
ex2_ListAP = mkListAP (mkAP old_A) (mkListAP (mkAP big_A) (mkAP warm_A)) ;
ex1_ListAdv = mkListAdv here_Adv now_Adv ;
ex2_ListAdv = mkListAdv (mkAdv with_Prep john_NP) (mkListAdv here_Adv now_Adv) ;
ex1_ListNP = mkListNP john_NP (mkNP i_Pron) ;
ex2_ListNP = mkListNP john_NP (mkListNP (mkNP i_Pron) that_NP) ;
utt u = mkUtt u ; -- a hack to linearize VPs
oper
john_NP = mkNP john_PN ;
}

7
lib/resource/api/examples/ExxSwe.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:..:alltenses:prelude
concrete ExxSwe of Exx = CatSwe-[VP], ConjunctionSwe-[VP] ** ExxI with
(Lang = LangSwe),
(Constructors = ConstructorsSwe) ;

18
lib/resource/api/examples/Makefile Normal file
View File

@@ -0,0 +1,18 @@
all: html gfs exx links
links:
runghc MkLinks
gfs:
runghc mkgfs.hs
exx:
gf exxs.gfcm <exx.gfs
gfcm:
echo "pm | wf exxs.gfcm" | gf ExxSwe.gf ExxGer.gf ExxFin.gf ExxEng.gf
#ExxFre takes too long
html:
cp ../Constructors.gf .
gfdoc -txthtml Constructors.gf

22
lib/resource/api/examples/MkLinks.hs Normal file
View File

@@ -0,0 +1,22 @@
import Char (isDigit)
src = "Constructors.html"
tgt = "Cons.html"
linkfile ex = "links/" ++ ex ++ ".txt"
main = do
writeFile tgt ""
readFile src >>= (mapM_ mkLink . lines)
mkLink line = case break (=="--") (words (takeWhile (/='#')line)) of
(fun : ":" : typ, _ : num : ex) | isDigit (head num) ->
appendFile tgt ("\n" ++ takeInit line ++ " " ++ link ex typ num)
_ -> appendFile tgt ("\n" ++ line)
where
takeInit line = init (init (takeWhile (/='.') line))
link ex typ num =
"<a href=\"" ++ linkfile (example typ num) ++ "\">" ++ unwords ex ++ "</a>"
example typ num = case reverse typ of
";":val:_ -> "ex" ++ init num ++ "_" ++ val
val:_ -> "ex" ++ init num ++ "_" ++ val

24
lib/resource/api/examples/mkgfs.hs Normal file
View File

@@ -0,0 +1,24 @@
-- to process constructor examples to lin commans
main = mkgfs
src = "ExxI.gf"
script = "exx.gfs"
linkfile ex = "links/" ++ ex ++ ".txt"
mkgfs = do
writeFile script ""
readFile src >>= (mapM addLin . lines)
addLin s = case words s of
c@('e':'x':_):"=":def -> do
appendFile script ("ps \"" ++ unwords (init def) ++ "\\n\\n\" | wf " ++ linkfile c ++ "\n")
appendFile script ("l -multi " ++ cc ++ " | af " ++ linkfile c ++ "\n")
where
cc = case take 2 (reverse c) of
"PV" -> "utt " ++ c
_ -> c
_ -> return ()