Green Clay Demo #1 - CLOS Implementation

indigo> pcl
GCL (GNU Common Lisp)  Version(2.2) Wed Jan 22 09:55:53 EST 1997
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter

>(in-package "pcl" )
#<"PCL" package>

PCL>(load "../clay/clay.l" )
T

PCL>( load "greenclay.l" )
T

PCL>( run ( new-green-clay ) )

green> help me.
green> Not a Green Clay form.

green> hlep.
green> Unknown command.

green> help.

green world
eval - Evaluate a Lisp s-expression.
help - Display the commands of the current world.
load - Load a world and enter it.
monitor - Turn on information monitoring feature.
stop - Terminate Clay execution.
unload - Leave the current world, returning to its parent.
unmonitor - Turn off information monitoring feature.

green> load.
domain? melody
Lisp melody world loaded.

green>melody> help.

melody world
d - Double the duration of the note.
dot - Increase by 50% the duration of the note.
h - Halve the duration of the note.
lp - Lower the pitch of the note one scale degree.
play - Render the note sonicly and/or textually and/or graphicly.
quadruple - Quadruple the duration of the note.
quarter - Quarter the duration of the note.
rest - Play the note silently.
rp - Raise the pitch of the note one scale degree.
third - Third the duration of the note.
triple - Triple the duration of the note.
undot - Decrease by 1/3 the duration of the note.

green>melody> play.
     1  ----

green>melody> d.

green>melody> play.
     1  --------

green>melody> rp.

green>melody> play.
     2  --------

green>melody> unload.
melody world unloaded.

green> play.
green> Unknown command.

green> help.

green world
eval - Evaluate a Lisp s-expression.
help - Display the commands of the current world.
load - Load a world and enter it.
monitor - Turn on information monitoring feature.
stop - Terminate Clay execution.
unload - Leave the current world, returning to its parent.
unmonitor - Turn off information monitoring feature.

green> monitor.
blue: (reader|parser)? reader


green> help.
Natural input line ...
help.
Formal input line ...
[ help ]
Expanded input line ...
[ help ]
Tokenized input line ...
TOKEN...  name = "[";  type = LEFT-BRACKET
TOKEN...  name = "help";  type = ID
TOKEN...  name = "]";  type = RIGHT-BRACKET


green world
eval - Evaluate a Lisp s-expression.
help - Display the commands of the current world.
load - Load a world and enter it.
monitor - Turn on information monitoring feature.
stop - Terminate Clay execution.
unload - Leave the current world, returning to its parent.
unmonitor - Turn off information monitoring feature.

green> unmonitor.
Natural input line ...
unmonitor.
Formal input line ...
[ unmonitor ]
Expanded input line ...
[ unmonitor ]
Tokenized input line ...
TOKEN...  name = "[";  type = LEFT-BRACKET
TOKEN...  name = "unmonitor";  type = ID
TOKEN...  name = "]";  type = RIGHT-BRACKET


green> monitor.
blue: (reader|parser)? parser


green> help.
Parsing a Green Clay command.
TOKEN...  name = "[";  type = LEFT-BRACKET
TOKEN...  name = "help";  type = ID
TOKEN...  name = "]";  type = RIGHT-BRACKET
Green Clay command parse succeeded.
GREEN CLAY COMMAND
| help


green world
eval - Evaluate a Lisp s-expression.
help - Display the commands of the current world.
load - Load a world and enter it.
monitor - Turn on information monitoring feature.
stop - Terminate Clay execution.
unload - Leave the current world, returning to its parent.
unmonitor - Turn off information monitoring feature.

green> unmonitor.
Parsing a Green Clay command.
TOKEN...  name = "[";  type = LEFT-BRACKET
TOKEN...  name = "unmonitor";  type = ID
TOKEN...  name = "]";  type = RIGHT-BRACKET
Green Clay command parse succeeded.
GREEN CLAY COMMAND
| unmonitor


green> stop.
NIL

PCL>(bye)
indigo>