blob: 0d8ea547e8fc9bad9778a26d26050a9dde5d7bfb (
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 <printf.h>
# FMT_INIT -- The following is called by SPRINTF and CLPRINTF to set a flag to
# close the mem file or finish the CL command, respectively, when
# the end of the format string is reached. This entry is also called
# by the iraf main at startup time to initialize the printf common.
procedure fmt_init (ftype)
int ftype
include "fmt.com"
begin
if (ftype == FMT_INITIALIZE) {
ip = 1
format[ip] = EOS
ofile_type = REGULAR_FILE # fpradv
fmt_state = FMT_START # fprfmt
} else
ofile_type = ftype
end
|
