summaryrefslogtreecommitdiff
path: root/old-examples/tutorial/smart/SmartI.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /old-examples/tutorial/smart/SmartI.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'old-examples/tutorial/smart/SmartI.gf')
-rw-r--r--old-examples/tutorial/smart/SmartI.gf50
1 files changed, 50 insertions, 0 deletions
diff --git a/old-examples/tutorial/smart/SmartI.gf b/old-examples/tutorial/smart/SmartI.gf
new file mode 100644
index 000000000..2b46ba0fe
--- /dev/null
+++ b/old-examples/tutorial/smart/SmartI.gf
@@ -0,0 +1,50 @@
+--# -path=.:present:prelude
+
+incomplete concrete SmartI of Smart = open Syntax, LexSmart, Prelude in {
+
+-- grammar Toy1 from the Regulus book
+
+flags startcat = Utterance ;
+
+lincat
+ Utterance = Utt ;
+ Command = Imp ;
+ Question = QS ;
+ Kind = N ;
+ Action = V2 ;
+ Device = NP ;
+ Location = N ;
+
+lin
+ UCommand c = mkUtt politeImpForm c ;
+ UQuestion q = mkUtt q ;
+
+ CAction _ act dev = mkImp act dev ;
+ QAction _ act st dev =
+ mkQS anteriorAnt (mkQCl (mkCl dev (passiveVP act))) ; ---- show empty proof
+
+ DKindOne k = mkNP defSgDet k ;
+ DKindMany k = mkNP defPlDet k ;
+ DLoc _ dev loc = mkNP dev (mkAdv in_Prep (mkNP defSgDet loc)) ;
+
+ light = light_N ;
+ fan = fan_N ;
+
+ switchOn _ _ = switchOn_V2 ;
+ switchOff _ _ = switchOff_V2 ;
+
+ dim _ _ = dim_V2 ;
+
+ kitchen = kitchen_N ;
+ livingRoom = livingRoom_N ;
+
+lin
+ switchable_light = ss [] ;
+ switchable_fan = ss [] ;
+ dimmable_light = ss [] ;
+
+ statelike_switchOn _ _ = ss [] ;
+ statelike_switchOff _ _ = ss [] ;
+
+
+}