#
# TXTCPT  --  Copy data to output table. If array, copy into column.
#             If scalar, either write as column or write into header.
#
#
#
#
#  Revision history:
#  ----------------
#
#  22-Nov-1996  -  Task created (I.Busko)
#   7-Feb-2000  -  For datatype = 'c', make buf an array of strings (P.Hodge)

$if (datatype == c)
procedure txtcptt (otp, ocp, buf, maxch, start, nbuf, icol, compact)
$else
procedure txtcpt$t (otp, ocp, buf, start, nbuf, icol, compact)
$endif

pointer	otp		# i: table descriptor
pointer	ocp		# i: column descriptor
$if (datatype == c)
char	buf[maxch,ARB]	# i: array of values
$else
PIXEL	buf[ARB]
$endif
$if (datatype == c)
int	maxch		# i: max length of string
$endif
int	start		# i: starting row in output table
int	nbuf		# i: number of elements to write into output
int	icol		# i: column number in input table
bool	compact		# i: write scalars as header keywords ?
#--

begin
	if (ocp != NULL) {

	    $if (datatype == c)
	    call tbcptt (otp, ocp, buf, maxch, start, nbuf)
	    $else
	    call tbcpt$t (otp, ocp, buf, start, nbuf)
	    $endif

	} else if (compact) {

	    $if (datatype == c)
	    call txthvt  (otp, icol, buf)
	    $else
	    call txthv$t (otp, icol, buf[1])
	    $endif
	}
end