diff options
| author | aarne <aarne@chalmers.se> | 2010-04-06 15:45:16 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-06 15:45:16 +0000 |
| commit | a66d2186fe0df7e72d2ebd7fc7c70629fe555ec4 (patch) | |
| tree | 2ca36803340e215c997e7cd332e81aaaca577861 /examples/phrasebook/WordsEng.gf | |
| parent | 114cdd78d35b74b1332f528adf4bbb4ef4adfaef (diff) | |
comments in phrasebook abstract syntax
Diffstat (limited to 'examples/phrasebook/WordsEng.gf')
| -rw-r--r-- | examples/phrasebook/WordsEng.gf | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/examples/phrasebook/WordsEng.gf b/examples/phrasebook/WordsEng.gf index b2385662d..0b854c814 100644 --- a/examples/phrasebook/WordsEng.gf +++ b/examples/phrasebook/WordsEng.gf @@ -55,10 +55,8 @@ concrete WordsEng of Words = SentencesEng ** AWant p obj = mkCl p.name (mkV2 (mkV "want")) obj ; ALike p item = mkCl p.name (mkV2 (mkV "like")) item ; - AHave p kind = mkCl p.name have_V2 (mkNP kind) ; ASpeak p lang = mkCl p.name (mkV2 IrregEng.speak_V) lang ; ALove p q = mkCl p.name (mkV2 (mkV "love")) q.name ; - ACitizen p n = mkCl p.name n ; AHungry p = mkCl p.name (mkA "hungry") ; AThirsty p = mkCl p.name (mkA "thirsty") ; ATired p = mkCl p.name (mkA "tired") ; @@ -67,7 +65,6 @@ concrete WordsEng of Words = SentencesEng ** AUnderstand p = mkCl p.name IrregEng.understand_V ; AKnow p = mkCl p.name IrregEng.know_V ; AWantGo p place = mkCl p.name want_VV (mkVP (mkVP IrregEng.go_V) place.to) ; - ABePlace p place = mkCl p.name place.at ; AHasName p name = mkCl (nameOf p) name ; ALive p co = mkCl p.name (mkVP (mkVP (mkV "live")) (SyntaxEng.mkAdv in_Prep co)) ; |
