blob: 000338290e9ffd50c48e44c72ec7e24ef49b7709 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# 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)) {
task $demo=(demofile)
demo
# cl (< demofile)
} else
error (1, "Unknown demo " // demo)
end
|
