mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
20 lines
383 B
Plaintext
20 lines
383 B
Plaintext
--# -path=.:prelude
|
|
|
|
concrete SmartEng of Smart = open Prelude in {
|
|
|
|
-- part of grammar Toy1 from the Regulus book
|
|
|
|
lincat
|
|
Command, Kind, Action, Device = SS ;
|
|
lin
|
|
CAction _ act dev = ss (act.s ++ dev.s) ;
|
|
DKindOne k = ss ("the" ++ k.s) ;
|
|
|
|
light = ss "light" ;
|
|
fan = ss "fan" ;
|
|
switchOn _ = ss ["switch on"] ;
|
|
switchOff _ = ss ["switch off"] ;
|
|
dim = ss "dim" ;
|
|
}
|
|
|