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

new big and shallow modules

Browse Source
This commit is contained in:
aarne
2006-11-02 17:04:35 +00:00
parent b8a454a7d3
commit 3396a13ee7
12 changed files with 6312 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
examples/big/BigLexEng.gf
View File

@@ -1,6 +1,8 @@
concrete BigLexEng of BigLexEngAbs = CatEng ** open ParadigmsEng in {
-- adapted from a word list by Alan Black. Not to be used for military purposes.
-- Adapted from a word list by Alan Black & al.
-- http://www.cs.cmu.edu/~awb/pub/map/MAP3.1.tar.gz
-- Not to be used for military purposes.
lin abandon24 = regV2 "abandon" "" ;
lin abbreviate25 = regV "abbreviate" ;
@@ -452,6 +454,7 @@ lin axiom533 = regN "axiom" ;
lin axiomatic534 = regA "axiomatic" ;
lin axiomatize535 = regV2 "axiomatize" "" ;
lin axis536 = regN "axis" ;
lin baby537 = regN "baby" ;
lin back538 = regN "back" ;
lin background539 = regN "background" ;
@@ -463,7 +466,7 @@ lin bacterium546 = regN "bacterium" ;
lin bad547 = regA "bad" ;
lin bag548 = regN "bag" ;
lin bake549 = regV2 "bake" "" ;
lin bake550 = regV2 "bake" "" ;
--lin bake550 = regV2 "bake" "" ;
lin balance551 = regV "balance" ;
lin ball552 = regN "ball" ;
lin ballad553 = regN "ballad" ;
@@ -474,7 +477,7 @@ lin bang557 = regN "bang" ;
lin banish558 = regV2 "banish" "" ;
lin bank559 = regN "bank" ;
lin bar560 = regN "bar" ;
lin bar561 = regV2 "bar" "" ;
lin bar561 = regV2 "bar" "" ;--
lin bare562 = regA "bare" ;
lin bare563 = regV2 "bare" "" ;
lin bark564 = regN "bark" ;
@@ -487,9 +490,9 @@ lin base570 = regV3 "base" "" "loc" ;
lin basic572 = regA "basic" ;
lin basically573 = mkAdv "basically" ;
lin basin574 = regN "basin" ;
lin basis575 = regN "basis" ;
lin basis576 = regN "basis" ;
lin basis577 = regN "basis" ;
lin basis575 = regN "basis" ;--
--lin basis576 = regN "basis" ;
--lin basis577 = regN "basis" ;
lin basket578 = regN "basket" ;
lin bat579 = regN "bat" ;
lin batch580 = regN "batch" ;
@@ -497,20 +500,20 @@ lin bath581 = regN "bath" ;
lin bathe582 = regV "bathe" ;
lin batsman583 = regN "batsman" ;
lin battle585 = regN "battle" ;
lin be586 = regV "be" ;
--lin be586 = regV "be" ;
lin beach587 = regN "beach" ;
lin beak588 = regN "beak" ;
lin beam589 = regN "beam" ;
lin bean590 = regN "bean" ;
lin bear591 = regN "bear" ;
lin bear592 = regV2 "bear" "" ;
--lin bear592 = regV2 "bear" "" ;
lin beard593 = regN "beard" ;
lin beast594 = regN "beast" ;
lin beat595 = regV2 "beat" "" ;
lin beat596 = regV2 "beat" "" ;
--lin beat596 = regV2 "beat" "" ;
lin beauty598 = regN "beauty" ;
lin become602 = regV2 "become" "" ;
lin become603 = regV2 "become" "" ;
--lin become603 = regV2 "become" "" ;
lin bed604 = regN "bed" ;
lin bee605 = regN "bee" ;
lin beer607 = regN "beer" ;
@@ -522,22 +525,22 @@ lin behave617 = regV "behave" ;
lin behaviour618 = regN "behaviour" ;
lin being621 = regN "being" ;
lin belief622 = regN "belief" ;
lin belief623 = regN "belief" ;
lin belief624 = regN "belief" ;
--lin belief623 = regN "belief" ;
--lin belief624 = regN "belief" ;
lin believe625 = regV2 "believe" "" ;
lin believe626 = regV2 "believe" "in" ;
lin believe627 = regV2 "believe" "" ;
lin believe628 = regV2 "believe" "" ;
lin believe629 = regV2 "believe" "" ;
--lin believe627 = regV2 "believe" "" ;
--lin believe628 = regV2 "believe" "" ;
--lin believe629 = regV2 "believe" "" ;
lin bell630 = regN "bell" ;
lin belong631 = regV2 "belong" "" ;
lin beloved632 = regA "beloved" ;
lin beloved633 = regA "beloved" ;
--lin beloved633 = regA "beloved" ;
lin belt635 = regN "belt" ;
lin bench636 = regN "bench" ;
lin bend637 = regV "bend" ;
lin beneficial639 = regA "beneficial" ;
lin beneficial640 = regA "beneficial" ;
--lin beneficial640 = regA "beneficial" ;
lin benefit641 = regN "benefit" ;
lin berry644 = regN "berry" ;
lin bet648 = regN "bet" ;
@@ -549,14 +552,14 @@ lin bibliography658 = regN "bibliography" ;
lin biconditional659 = regV "biconditional" ;
lin bicycle660 = regN "bicycle" ;
lin bidirectional661 = regA "bidirectional" ;
lin big662 = regA "big" ;
lin big662 = regA "big" ;--
lin bike663 = regN "bike" ;
lin bill664 = regN "bill" ;
lin bill665 = regN "bill" ;
--lin bill665 = regN "bill" ;
lin billion666 = regN "billion" ;
lin bin667 = regN "bin" ;
lin binary668 = regA "binary" ;
lin bind669 = regV2 "bind" "" ;
--lin bind669 = regV2 "bind" "" ;
lin binding670 = regN "binding" ;
lin bird671 = regN "bird" ;
lin birth672 = regN "birth" ;
@@ -564,7 +567,7 @@ lin birthday673 = regN "birthday" ;
lin bisect674 = regV "bisect" ;
lin bisector675 = regN "bisector" ;
lin bit676 = regN "bit" ;
lin bite678 = regV2 "bite" "" ;
--lin bite678 = regV2 "bite" "" ;
lin bitter680 = regA "bitter" ;
lin bizarre682 = regA "bizarre" ;
lin black683 = regA "black" ;
@@ -572,7 +575,7 @@ lin blackboard684 = regN "blackboard" ;
lin blade685 = regN "blade" ;
lin blame686 = regV3 "blame" "" "for" ;
lin blame687 = regN "blame" ;
lin blame688 = regN "blame" ;
--lin blame688 = regN "blame" ;
lin blank689 = regA "blank" ;
lin blank690 = regN "blank" ;
lin bleed693 = regV "bleed" ;
@@ -582,7 +585,7 @@ lin block697 = regN "block" ;
lin block698 = regV2 "block" "" ;
lin blood699 = regN "blood" ;
lin blow700 = regN "blow" ;
lin blow701 = regV "blow" ;
--lin blow701 = regV "blow" ;
lin blue703 = regA "blue" ;
lin bluff704 = regV2 "bluff" "" ;
lin board705 = regN "board" ;
@@ -612,7 +615,7 @@ lin borrow731 = regV3 "borrow" "" "from" ;
lin boss732 = regN "boss" ;
lin both735 = regA "both" ;
lin bother736 = regV "bother" ;
lin bother737 = regV "bother" ;
--lin bother737 = regV "bother" ;
lin bother738 = regV2 "bother" "" ;
lin bother739 = regV2 "bother" "about" ;
lin bottle740 = regN "bottle" ;
@@ -640,12 +643,12 @@ lin breach765 = regV2 "breach" "" ;
lin bread766 = regN "bread" ;
lin breadth767 = regN "breadth" ;
lin break768 = regN "break" ;
lin break769 = regV2 "break" "" ;
--lin break769 = regV2 "break" "" ;
lin breakage770 = regN "breakage" ;
lin breakfast771 = regN "breakfast" ;
lin breath772 = regN "breath" ;
lin breathe773 = regV2 "breathe" "" ;
lin breed774 = regV "breed" ;
--lin breed774 = regV "breed" ;
lin breed775 = regN "breed" ;
lin breeze776 = regN "breeze" ;
lin brew777 = regV2 "brew" "" ;
@@ -656,7 +659,7 @@ lin brief781 = regA "brief" ;
lin briefs782 = regN "briefs" ;
lin bright783 = regA "bright" ;
lin brilliant785 = regA "brilliant" ;
lin bring786 = regV2 "bring" "" ;
--lin bring786 = regV2 "bring" "" ;
lin bristle787 = regN "bristle" ;
lin britain788 = regN "britain" ;
lin british789 = regA "british" ;
@@ -665,18 +668,18 @@ lin broad791 = regA "broad" ;
lin broadcast792 = regN "broadcast" ;
lin bronchitis795 = regN "bronchitis" ;
lin brother796 = regN "brother" ;
lin brother797 = regN "brother" ;
--lin brother797 = regN "brother" ;
lin brown800 = regA "brown" ;
lin bruise801 = regN "bruise" ;
lin bruise802 = regV2 "bruise" "" ;
lin brute803 = regN "brute" ;
lin bucket804 = regN "bucket" ;
lin bud805 = regN "bud" ;
lin bud806 = regV2 "bud" "" ;
lin bud806 = regV2 "bud" "" ;--
lin buffer807 = regN "buffer" ;
lin buffer808 = regV2 "buffer" "" ;
lin bug809 = regN "bug" ;
lin build810 = regV2 "build" "" ;
--lin build810 = regV2 "build" "" ;
lin building811 = regN "building" ;
lin bullet814 = regN "bullet" ;
lin bully815 = regN "bully" ;
@@ -685,9 +688,9 @@ lin bun817 = regN "bun" ;
lin bunch818 = regN "bunch" ;
lin bundle819 = regN "bundle" ;
lin burden820 = regN "burden" ;
lin burn821 = regV2 "burn" "" ;
--lin burn821 = regV2 "burn" "" ;
lin burst825 = regV "burst" ;
lin burst826 = regV "burst" ;
--lin burst826 = regV "burst" ;
lin bury827 = regV2 "bury" "" ;
lin bus828 = regN "bus" ;
lin bush829 = regN "bush" ;
@@ -697,8 +700,9 @@ lin butter833 = regN "butter" ;
lin butter834 = regV2 "butter" "" ;
lin butterfly835 = regN "butterfly" ;
lin button836 = regN "button" ;
lin buy837 = regV2 "buy" "" ;
--lin buy837 = regV2 "buy" "" ;
lin buzz838 = regV "buzz" ;
lin cabinet842 = regN "cabinet" ;
lin cable843 = regN "cable" ;
lin cage844 = regN "cage" ;
@@ -2558,13 +2562,13 @@ lin hasty2848 = regA "hasty" ;
lin hat2849 = regN "hat" ;
lin hate2850 = regV2 "hate" "" ;
lin hatred2851 = regN "hatred" ;
lin have2852 = regV2 "have" "" ;
lin have2853 = regV2 "have" "" ;
--lin have2852 = regV2 "have" "" ;
--lin have2853 = regV2 "have" "" ;
lin haven2854 = regN "haven" ;
lin having2857 = regV "having" ;
lin hazard2858 = regN "hazard" ;
lin haze2859 = regN "haze" ;
lin he2860 = regN "he" ;
--lin he2860 = regN "he" ;
lin head2861 = regN "head" ;
lin head2862 = regV2 "head" "" ;
lin heading2863 = regN "heading" ;
@@ -2697,7 +2701,7 @@ lin hypotheses3015 = regN "hypotheses" ;
lin hypothesis3016 = regN "hypothesis" ;
lin hypothesize3017 = regV2 "hypothesize" "" ;
lin hypothetical3018 = regA "hypothetical" ;
lin i3019 = regN "i" ;
--lin i3019 = regN "i" ;
lin ice3021 = regN "ice" ;
lin iceland3022 = regN "iceland" ;
lin icelandic3023 = regA "icelandic" ;
@@ -2705,7 +2709,7 @@ lin icon3024 = regN "icon" ;
lin idea3025 = regN "idea" ;
lin ideal3026 = regA "ideal" ;
lin identical3027 = regA "identical" ;
lin identical3028 = regA "identical" ;
--lin identical3028 = regA "identical" ;
lin identify3029 = regV2 "identify" "" ;
lin identity3030 = regN "identity" ;
lin idiocy3031 = regN "idiocy" ;
@@ -3011,8 +3015,8 @@ lin isolate3357 = regV2 "isolate" "" ;
lin isomorphic3358 = regA "isomorphic" ;
lin issue3359 = regV "issue" ;
lin issue3360 = regN "issue" ;
lin it3362 = regN "it" ;
lin it3363 = regN "it" ;
--lin it3362 = regN "it" ;
--lin it3363 = regN "it" ;
lin italy3364 = regN "italy" ;
lin item3365 = regN "item" ;
lin itemize3366 = regV2 "itemize" "" ;
@@ -4849,7 +4853,7 @@ lin shave5364 = regN "shave" ;
lin shave5365 = regV2 "shave" "" ;
lin shave5366 = regV2 "shave" "" ;
lin shaven5367 = regA "shaven" ;
lin she5368 = regN "she" ;
--lin she5368 = regN "she" ;
lin shear5369 = regV2 "shear" "" ;
lin shears5370 = regN "shears" ;
lin shed5371 = regN "shed" ;
@@ -5464,8 +5468,8 @@ lin text6069 = regN "text" ;
lin textbook6070 = regN "textbook" ;
lin thank6072 = regV2 "thank" "" ;
lin thanks6073 = regN "thanks" ;
lin that6077 = regN "that" ;
lin that6078 = regN "that" ;
--lin that6077 = regN "that" ;
--lin that6078 = regN "that" ;
lin theatre6080 = regN "theatre" ;
lin theatrical6081 = regA "theatrical" ;
lin thematic6085 = regA "thematic" ;
@@ -5850,7 +5854,7 @@ lin wave6527 = regV2 "wave" "to" ;
lin wave6528 = regN "wave" ;
lin wax6529 = regN "wax" ;
lin way6530 = regN "way" ;
lin we6531 = regN "we" ;
--lin we6531 = regN "we" ;
lin weak6532 = regA "weak" ;
lin wealth6533 = regN "wealth" ;
lin weapon6534 = regN "weapon" ;
@@ -5936,7 +5940,7 @@ lin work6668 = regV "work" ;
lin world6669 = regN "world" ;
lin worm6670 = regN "worm" ;
lin worry6672 = regV "worry" ;
lin worry6673 = regV "worry" ;
--lin worry6673 = regV "worry" ;
lin worry6674 = regV2 "worry" "" ;
lin worry6675 = regV2 "worry" "about" ;
lin worry6676 = regN "worry" ;
@@ -5944,7 +5948,7 @@ lin worship6678 = regV2 "worship" "" ;
lin worthless6681 = regA "worthless" ;
lin worthwhile6682 = regA "worthwhile" ;
lin worthy6683 = regA "worthy" ;
lin worthy6684 = regA "worthy" ;
--lin worthy6684 = regA "worthy" ;
lin would6685 = regV "would" ;
lin wound6689 = regV2 "wound" "" ;
lin wound6692 = regN "wound" ;
@@ -5953,7 +5957,7 @@ lin wreck6696 = regV2 "wreck" "" ;
lin wreck6697 = regN "wreck" ;
lin wrinkle6698 = regN "wrinkle" ;
lin wrist6699 = regN "wrist" ;
lin write6700 = regV2 "write" "" ;
--lin write6700 = regV2 "write" "" ;
lin wrong6702 = regA "wrong" ;
lin wry6704 = regA "wry" ;
lin yard6706 = regN "yard" ;
@@ -5963,7 +5967,7 @@ lin yellow6709 = regA "yellow" ;
lin yet6711 = mkAdv "yet" ;
lin yield6712 = regV2 "yield" "" ;
lin yield6713 = regN "yield" ;
lin you6714 = regN "you" ;
--lin you6714 = regN "you" ;
lin young6715 = regA "young" ;
lin youth6720 = regN "youth" ;
lin zero6721 = regA "zero" ;

26
examples/big/MkDict.hs Normal file
View File

@@ -0,0 +1,26 @@
infile = "mywordlist1"
main = do
s <- readFile infile
mapM_ (putStrLn . mkOne) $ lines s
mkOne s = case words s of
"--":_ -> ""
('(':_):w:cat:ws ->
let
(c,f) = mkCatf (nopar cat) (more ws)
in unwords $ [c, f, w]
_ -> "-- " ++ s
where
more ws = case ws of
_ | elem "(REG" ws -> "irreg"
_ -> "reg"
nopar = filter (flip notElem "()")
mkCatf c r = case c of
"Noun" -> ("N","regN")
"Adject" -> ("A","regA")
"Adject_LONG" -> ("A","longA")
"Verb" -> ("V","regV")
"PNoun" -> ("PN","regPN")
_ -> (c,"mk" ++ c)

6112
examples/big/mywordlist1 Normal file
View File

File diff suppressed because it is too large Load Diff

10
examples/shallow/BigShallowEng.gf Normal file
View File

@@ -0,0 +1,10 @@
--# -path=.:../big:alltenses:prelude
concrete BigShallowEng of BigShallowEngAbs =
ShallowEng,
BigLexEng,
IrregEng,
ExtraEng-[
ComplBareVS,MkVPI
]
** {} ;

11
examples/shallow/BigShallowEngAbs.gf Normal file
View File

@@ -0,0 +1,11 @@
--# -path=.:../big:alltenses:prelude
abstract BigShallowEngAbs =
Shallow,
BigLexEngAbs,
IrregEngAbs,
ExtraEngAbs-[
ComplBareVS, -- : VS -> S -> VP ; -- know you go
MkVPI -- : VP -> VPI ;
]
** {} ;

10
examples/shallow/BigShallowSwe.gf Normal file
View File

@@ -0,0 +1,10 @@
--# -path=.:../big:alltenses:prelude
concrete BigShallowSwe of BigShallowSweAbs =
ShallowSwe,
BigLexSwe,
IrregSwe,
ExtraSwe-[
ComplBareVS,MkVPI
]
** {} ;

11
examples/shallow/BigShallowSweAbs.gf Normal file
View File

@@ -0,0 +1,11 @@
--# -path=.:../big:alltenses:prelude
abstract BigShallowSweAbs =
Shallow,
BigLexSweAbs,
IrregSweAbs,
ExtraSweAbs-[
ComplBareVS, -- : VS -> S -> VP ; -- know you go
MkVPI -- : VP -> VPI ;
]
** {} ;

34
examples/shallow/Shallow.gf
View File

@@ -1,5 +1,5 @@
abstract Shallow = Lexicon, Grammar-[
VP,
abstract Shallow = Grammar-[
VP, --- cat
ImpersCl, -- : VP -> Cl ; -- it rains
GenericCl, -- : VP -> Cl ; -- one sleeps
ProgrVP, -- : VP -> VP ; -- be sleeping
@@ -11,19 +11,19 @@ abstract Shallow = Lexicon, Grammar-[
PredSCVP, -- : SC -> VP -> Cl ; -- that you go makes me happy
ImpVP, -- : VP -> Imp ; -- go
EmbedVP, -- : VP -> SC ; -- to go
UseV , -- : V -> VP ; -- sleep
ComplV2 , -- : V2 -> NP -> VP ; -- use it
UseV , --- : V -> VP ; -- sleep
ComplV2 , --- : V2 -> NP -> VP ; -- use it
ComplV3 , -- : V3 -> NP -> NP -> VP ; -- send a message to her
ComplVV , -- : VV -> VP -> VP ; -- want to run
ComplVS , -- : VS -> S -> VP ; -- know that she runs
ComplVV , --- : VV -> VP -> VP ; -- want to run
ComplVS , --- : VS -> S -> VP ; -- know that she runs
ComplVQ , -- : VQ -> QS -> VP ; -- ask if she runs
ComplVA , -- : VA -> AP -> VP ; -- look red
ComplV2A, -- : V2A -> NP -> AP -> VP ; -- paint the house red
ReflV2 , -- : V2 -> VP ; -- use itself
UseComp , -- : Comp -> VP ; -- be warm
UseComp , --- : Comp -> VP ; -- be warm
PassV2 , -- : V2 -> VP ; -- be used
AdvVP , -- : VP -> Adv -> VP ; -- sleep here
AdVVP -- : AdV -> VP -> VP ; -- always sleep
AdvVP , --- : VP -> Adv -> VP ; -- sleep here
AdVVP --- : AdV -> VP -> VP ; -- always sleep
]
** {
@@ -38,11 +38,21 @@ abstract Shallow = Lexicon, Grammar-[
ConAdV : AdV -> AdVs -> AdVs ;
PredUseV : NP -> AdVs -> V -> Advs -> Cl ;
PredComplV2 : NP -> AdVs -> V2 -> NP -> Advs -> Cl ;
PredUseComp : NP -> AdVs -> Comp -> Advs -> Cl ;
PredComplV2 : NP -> AdVs -> V2 -> NP -> Cl ; -- Advs are attached to NP
PredComplVS : NP -> AdVs -> VS -> S -> Cl ; -- Advs are attached to S
PredUseComp : NP -> AdVs -> Comp -> Advs -> Cl ; --- could be so here too
PredComplVV_V : NP -> AdVs -> VV -> V -> Advs -> Cl ;
PredComplVV_V2 : NP -> AdVs -> VV -> V2 -> NP -> Cl ;
PredComplVV_Comp : NP -> AdVs -> VV -> Comp -> Advs -> Cl ;
QuestUseV : IP -> AdVs -> V -> Advs -> QCl ;
QuestComplV2 : IP -> AdVs -> V2 -> NP -> Advs -> QCl ;
QuestComplV2 : IP -> AdVs -> V2 -> NP -> QCl ;
QuestComplVS : IP -> AdVs -> VS -> S -> QCl ;
QuestUseComp : IP -> AdVs -> Comp -> Advs -> QCl ;
QuestComplVV_V : IP -> AdVs -> VV -> V -> Advs -> QCl ;
QuestComplVV_V2 : IP -> AdVs -> VV -> V2 -> NP -> QCl ;
QuestComplVV_Comp : IP -> AdVs -> VV -> Comp -> Advs -> QCl ;
}

2
examples/shallow/ShallowEng.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:alltenses:prelude
concrete ShallowEng of Shallow = LexiconEng, GrammarEng - [
concrete ShallowEng of Shallow = GrammarEng - [
VP,
ImpersCl,
GenericCl,

2
examples/shallow/ShallowFre.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:alltenses:prelude
concrete ShallowFre of Shallow = LexiconFre, GrammarFre - [
concrete ShallowFre of Shallow = GrammarFre - [
VP,
ImpersCl,
GenericCl,

28
examples/shallow/ShallowI.gf
View File

@@ -1,4 +1,4 @@
incomplete concrete ShallowI of Shallow = Lexicon, Grammar-[
incomplete concrete ShallowI of Shallow = Grammar-[
VP,
ImpersCl, -- : VP -> Cl ; -- it rains
GenericCl, -- : VP -> Cl ; -- one sleeps
@@ -39,16 +39,34 @@ incomplete concrete ShallowI of Shallow = Lexicon, Grammar-[
PredUseV np adVs v advs =
PredVP np (AdvVP (AdVVP adVs (UseV v)) advs) ;
PredComplV2 np adVs v ob advs =
PredVP np (AdvVP (AdVVP adVs (ComplV2 v ob)) advs) ;
PredComplV2 np adVs v ob =
PredVP np (AdVVP adVs (ComplV2 v ob)) ;
PredComplVS np adVs v ob =
PredVP np (AdVVP adVs (ComplVS v ob)) ;
PredUseComp np adVs v advs =
PredVP np (AdvVP (AdVVP adVs (UseComp v)) advs) ;
PredComplVV_V np adVs vv v advs =
PredVP np (AdvVP (AdVVP adVs (ComplVV vv (UseV v))) advs) ;
PredComplVV_V2 np adVs vv v2 ob =
PredVP np (AdVVP adVs (ComplVV vv (ComplV2 v2 ob))) ;
PredComplVV_Comp np adVs vv v advs =
PredVP np (AdvVP (AdVVP adVs (ComplVV vv (UseComp v))) advs) ;
QuestUseV np adVs v advs =
QuestVP np (AdvVP (AdVVP adVs (UseV v)) advs) ;
QuestComplV2 np adVs v ob advs =
QuestVP np (AdvVP (AdVVP adVs (ComplV2 v ob)) advs) ;
QuestComplV2 np adVs v ob =
QuestVP np (AdVVP adVs (ComplV2 v ob)) ;
QuestComplVS np adVs v ob =
QuestVP np (AdVVP adVs (ComplVS v ob)) ;
QuestUseComp np adVs v advs =
QuestVP np (AdvVP (AdVVP adVs (UseComp v)) advs) ;
QuestComplVV_V np adVs vv v advs =
QuestVP np (AdvVP (AdVVP adVs (ComplVV vv (UseV v))) advs) ;
QuestComplVV_V2 np adVs vv v2 ob =
QuestVP np (AdVVP adVs (ComplVV vv (ComplV2 v2 ob))) ;
QuestComplVV_Comp np adVs vv v advs =
QuestVP np (AdvVP (AdVVP adVs (ComplVV vv (UseComp v))) advs) ;
}

33
examples/shallow/ShallowSwe.gf Normal file
View File

@@ -0,0 +1,33 @@
--# -path=.:alltenses:prelude
concrete ShallowSwe of Shallow = GrammarSwe - [
VP,
ImpersCl,
GenericCl,
ProgrVP,
ImpPl1,
UttVP,
QuestVP,
RelVP,
PredVP,
PredSCVP,
ImpVP,
EmbedVP,
UseV ,
ComplV2 ,
ComplV3 ,
ComplVV ,
ComplVS ,
ComplVQ ,
ComplVA ,
ComplV2A,
ReflV2 ,
UseComp ,
PassV2 ,
AdvVP ,
AdVVP
]
** ShallowI with
(Grammar = GrammarSwe) ;