blob: c676fb192542c61a36f130e0154ae1a80574daa4 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <clset.h>
include <syserr.h>
include <clio.h>
# CLSETI -- Set a CLIO option of type integer. Called by the IRAF Main
# upon process startup to set the CL_PRTYPE flag.
procedure clseti (parameter, value)
int parameter # CLIO parameter being queried
int value # value of parameter (output)
include "clio.com"
begin
switch (parameter) {
case CL_PRTYPE:
cl_prtype = value
default:
call syserrs (SYS_CLSETUKNPAR, "clseti")
}
end
|
