From 76ba03b545600054176612201de78dca16eb65e1 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Nov 2010 12:55:37 +0000 Subject: started a subdir for the book --- book/examples/chapter6/ClassesEng.gf | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 book/examples/chapter6/ClassesEng.gf (limited to 'book/examples/chapter6/ClassesEng.gf') diff --git a/book/examples/chapter6/ClassesEng.gf b/book/examples/chapter6/ClassesEng.gf new file mode 100644 index 000000000..a282bd87a --- /dev/null +++ b/book/examples/chapter6/ClassesEng.gf @@ -0,0 +1,29 @@ +--# -path=.:present + +concrete ClassesEng of Classes = open SyntaxEng, ParadigmsEng in { + +lincat + Command = Utt ; + Kind = CN ; + Class = {} ; + Instance = {} ; + Action = V2 ; + Device = NP ; + +lin + Act _ _ _ a d = mkUtt (mkImp a d) ; + The k = mkNP the_Det k ; + + Light = mkCN (mkN "light") ; + Fan = mkCN (mkN "fan") ; + Switchable, Dimmable = <> ; + + SwitchOn = mkV2 (mkV "on" (mkV "switch")) ; + SwitchOff = mkV2 (mkV "off" (mkV "switch")) ; + Dim = mkV2 (mkV "dim") ; + + switchable_Light = <> ; + switchable_Fan = <> ; + dimmable_Light = <> ; + +} -- cgit v1.2.3