blob: 59fc74336c4b197f4cf7ef7f411723a515791ec3 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <printf.h>
# PARGSTR -- Pass a string type operand to printf.
procedure pargstr (str)
char str[ARB]
int maxch
include "fmt.com"
begin
call fmt_read() # get format
if (decpl == USE_DEFAULT)
maxch = SZ_OBUF
else
maxch = abs (decpl)
if (width == USE_DEFAULT)
width = 0
call fmtstr (fd, str, col, fill_char, left_justify, maxch, width)
call fpradv ()
end
|
