blob: 99e213400bce4948b1d559dbf00ccec4489d5e99 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <clset.h>
# CLCMD -- Send a command line to the CL. Virtually any general command
# may be sent to the CL, providing a great deal of high level power at the
# compiled task level. Sending an explicit command to the CL, however,
# requires that the task have detailed knowledge of the capabilities of
# the CL and of the syntax of the command language. This means that the task
# is very dependent on the CL and may no longer work if the CL is modified,
# or if there is more than one version of the CL in use in a system. For
# this reason CLCMD should only be used where it is truely necessary,
# usually only in system utilities (for example, in a task like MAKE).
procedure clcmd (cmd)
char cmd[ARB]
int junk
int oscmd(), clstati()
errchk syserr
begin
if (cmd[1] == '!')
junk = oscmd (cmd[2], "", "", "")
else if (clstati (CL_PRTYPE) != PR_CONNECTED)
call syserr (SYS_CLCMDNC)
else {
call flush (STDOUT)
call putline (CLOUT, cmd)
call putci (CLOUT, '\n')
call flush (CLOUT)
}
end
|
