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

added VP exx

Browse Source
This commit is contained in:
aarne
2007-06-03 09:42:49 +00:00
parent 01840d027d
commit 8918619a15
4 changed files with 70 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/api/examples/Exx.gf
View File

@@ -18,5 +18,13 @@ fun
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 ;
-- auxiliary to show VP's
utt : VP -> Utt ;
}

37
lib/resource-1.0/api/examples/ExxI.gf
View File

@@ -51,10 +51,10 @@ incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
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 (mkAP very_AdA (mkAP old_A)) ;
ex10_Cl = mkCl john_NP old_A ;
ex11_Cl = mkCl john_NP old_A (mkNP she_Pron) ;
ex12_Cl = mkCl john_NP married_A2 (mkNP she_Pron) ;
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) ;
@@ -69,6 +69,35 @@ incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
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) ;
--- utt u = mkUtt u ;
oper
john_PN = paris_PN ; ----
today_Adv = here_Adv ; ----

5
lib/resource-1.0/api/examples/mkgfs.hs
View File

@@ -11,6 +11,9 @@ mkgfs = do
addLin s = case words s of
c@('e':'x':_):_ -> appendFile script ("l " ++ c ++ "\n")
c@('e':'x':_):_ -> appendFile script ("l " ++ cc ++ "\n") where
cc = case take 2 (reverse c) of
--- "PV" -> "utt " ++ c
_ -> c
_ -> return ()