mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
50
old-examples/tutorial/smart/SmartI.gf
Normal file
50
old-examples/tutorial/smart/SmartI.gf
Normal file
@@ -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 [] ;
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user