blob: 5b065c5180c9c4f94a85b964eff5211f6d76fe4b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# DEMOS -- Run specified demo provided a demo file exists.
procedure demos (demoname)
file demoname {prompt="Demo name"}
begin
file demo, demofile
if ($nargs == 0 && mode != "h")
type ("demos$demos.men")
demo = demoname
demofile = "demos$" // demo // ".cl"
if (access (demofile))
cl (< demofile)
else
error (1, "Unknown demo " // demo)
end
|
