blob: c247d8686c9c5992fe235c7efc3fe888afd9e026 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <printf.h>
# SPRINTF: Open string as a file, call fprntf. When the last argument is
# passed, and EOS is reached, the string will be closed (by fpradv).
procedure sprintf (outstr, maxch, format_string)
char outstr[maxch]
int maxch
char format_string[ARB]
int mem_fd, stropen()
errchk stropen, fprntf
begin
mem_fd = stropen (outstr, maxch, WRITE_ONLY)
call fprntf (mem_fd, format_string, STRING_FILE)
end
|
