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

toy1 with classes and using resource API

Browse Source
This commit is contained in:
aarne
2007-06-11 14:53:08 +00:00
parent e6d82e85c1
commit b83a9ec335
10 changed files with 317 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/regulus/toy1/Toy1Eng.gf
View File

@@ -24,7 +24,7 @@ lin
UQuestion q = q ;
CAction _ act dev = ss (act.s ! VImp ++ bothWays act.part dev.s) ;
QAction _ act dev = ss (be dev.n ++ dev.s ++ act.s ! VPart ++ act.part) ;
QAction _ act st dev = ss (be dev.n ++ dev.s ++ act.s ! VPart ++ act.part ++ st.s) ;
DKindOne k = {
s = "the" ++ k.s ! Sg ;
@@ -42,10 +42,10 @@ lin
light = mkNoun "light" ;
fan = mkNoun "fan" ;
switchOn _ = mkVerb "switch" "swithced" "on" ;
switchOff _ = mkVerb "switch" "swithced" "off" ;
switchOn _ _ = mkVerb "switch" "swithced" "on" ;
switchOff _ _ = mkVerb "switch" "swithced" "off" ;
dim = mkVerb "dim" "dimmed" [] ;
dim _ _ = mkVerb "dim" "dimmed" [] ;
kitchen = ss "kitchen" ;
livingRoom = ss ["living room"] ;
@@ -71,6 +71,14 @@ oper
Pl => "are"
} ;
lin
switchable_light = ss [] ;
switchable_fan = ss [] ;
dimmable_fan = ss [] ;
statelike_switchOn _ _ = ss [] ;
statelike_switchOff _ _ = ss [] ;
}