# include	<stdio.h>
# include	<ingres.h>
# include	<aux.h>
# include	<access.h>
# include	<symbol.h>
# include	<sccs.h>

SCCSID(@(#)printup.c	8.3	2/8/85)

/*
**  PRINTUP -- print tuple
**
**	Parameters:
**		d -- a descriptor describing the tuple.
**		tuple -- the tuple to print.
**
**	Returns:
**		??
**
**	Side Effects:
**		None.
*/

# define	PAGELGTH	56

int	Printlgth;
extern struct out_arg	Out_arg;
int	Hdr = 0;
HDRINFO	*Fieldwidth, *Hdrptr;

printup(d, tuple)
DESC	*d;
char	*tuple;
{
	register char	*ftype, *flen;
	register short	*foff;
	static	double	dbl;
	auto	long	lng;
	int		i, type;
	extern HDRINFO	*Hdrptr;
	extern HDRINFO	*Fieldwidth;

	ftype = &d->relfrmt[1];
	flen = &d->relfrml[1];
	foff = &d->reloff[1];
	i = d->reldum.relatts;

	/* If relation is S_BINARY then print char fields escaped */
	if (d->reldum.relstat & S_BINARY)
	{
		while (i--)
			printatt((type = *ftype++) == CHAR ? BINARY : type, *flen++, &tuple[*foff++]);
	}
	else
	{
		while (i--)
		{
			switch ( *ftype )
			{
			  case FLOAT:
				bmove(&tuple[*foff++],&dbl,*flen);
				printatt(*ftype++, *flen++, (ANYTYPE *)&dbl);
				break;
			
			  case CHAR:
				printatt(*ftype++, *flen++, (ANYTYPE *)&tuple[*foff++]);
				break;

			  case INT:
				if ( *flen != 4 )
					printatt(*ftype++, *flen++, (ANYTYPE *)&tuple[*foff++]);
				else
				{
					bmove(&tuple[*foff++],&lng,4);
					printatt(*ftype++, *flen++, (ANYTYPE *)&lng);
				}
				break;
			}
		}
	}
	printeol();
}

printatt(type, length, value)
char			type;
register int		length;
register ANYTYPE	*value;
{
	char		buf[MAXFIELD];
	ANYTYPE		valbuf;
	double		dbl;
	float		flt;
	extern char	*iocv();
	extern	char	*locv();
	extern HDRINFO  *Hdrptr;
	extern HDRINFO	*Fieldwidth;
	extern int	Hdr;
	register char	*p;

	putc(Out_arg.coldelim, stdout);
	switch (type)
	{
	  case INT:
		switch (length)
		{
		  case 1:
			printfatt(Out_arg.i1width, iocv(value->i1type));
			break;

		  case 2:
			printfatt(Out_arg.i2width, iocv(value->i2type));
			break;

		  case 4:
			printfatt(Out_arg.i4width, locv(value->i4type));
			break;

		  default:
			syserr("printatt: i%d", length);
		}
		return (0);

	  case FLOAT:
		switch (length)
		{
		  case 4:
			ftoa(value->f4type, buf, Out_arg.f4width, Out_arg.f4prec, Out_arg.f4style);
			printfatt(Out_arg.f4width, buf);
			break;

		  case 8:
			dbl = value->f8type;

			ftoa(dbl, (char *)buf, (int)Out_arg.f8width,(int) Out_arg.f8prec, (char)Out_arg.f8style);
			printfatt(Out_arg.f8width, buf);
			break;

		  default:
			syserr("printatt: f%d", length);
		}
		return (0);

	  case CHAR:
		length &= I1MASK;
		if (Hdr)
		{
			if (length > Fieldwidth->len)
				length = Fieldwidth->len;
		}
		fwrite(value, 1, length, stdout);
		if (Hdr)
		{
			if ((length = Fieldwidth->len - length) > 0)
				while (length--)
					putc(' ', stdout);
			if ((length = Out_arg.c0width - Fieldwidth->len) > 0)
				while (length--)
					putc(' ', stdout);
		Fieldwidth = Fieldwidth->next;
		if (Fieldwidth == NULL)
			Fieldwidth = Hdrptr;
		}
		else
		{
			if ((length = Out_arg.c0width - length) > 0)
				while (length--)
					putc(' ', stdout);
		}
		return (0);

	  case BINARY:
		length &= I1MASK;
		p = (char *) value;
		while (length--)
			xputchar(*p++);
		return (0);

	  default:
		syserr("printatt type %d", type);
	}
}
/*
**  FORMATTED ATTRIBUTE PRINT
**
**	Attribute 'value' is printed.  It is type 'type' and has a
**	field width of 'width'.
*/

printfatt(width, value)
int	width;
char	*value;
{
	register char	*p;
	register int	w;
	register int	v;

	w = width;
	p = value;
	v = length(p);

	if (v > w)
	{
		/* field overflow */
		while (w--)
			putc('*', stdout);
		return;
	}

	/* output the field */
	for (w -= v; w > 0; w--)
		putc(' ', stdout);
	fwrite(p, 1, v, stdout);
}


printeol()
{
	putc(Out_arg.coldelim, stdout);
	putc('\n', stdout);
}

printeh()
{
	register int		i;

	putc(Out_arg.coldelim, stdout);
	for (i = 1; i < Printlgth; i++)
		putc('-', stdout);
	printeol();
}

printhdr(type, length, value)
char		type;
register int	length;
register char	*value;
{
	register int	i;
	char		c;

	switch (type)
	{
	  case INT:
		switch (length)
		{
		  case 1:
			length = Out_arg.i1width;
			break;

		  case 2:
			length = Out_arg.i2width;
			break;

		  case 4:
			length = Out_arg.i4width;
			break;

		  default:
			syserr("printhdr: i%d", length);
		}
		break;

	  case FLOAT:
		switch (length)
		{
		  case 4:
			length = Out_arg.f4width;
			break;

		  case 8:
			length = Out_arg.f8width;
			break;

		  default:
			syserr("printhdr: f%d", length);
		}
		break;

	  case CHAR:
		length &= I1MASK;
		if (length < Out_arg.c0width)
			length = Out_arg.c0width;
		break;

	  default:
		syserr("printhdr: type 0%o", type);
	}

	putc(Out_arg.coldelim, stdout);
	for (i = 0; i < length && i < MAXNAME; i++)
		if (c = *value++)
			putc(c, stdout);
		else
			break;

	for ( ; i < length; i++)
		putc(' ', stdout);

	Printlgth += length + 1;
}

beginhdr()
{
	Printlgth = 0;
	putchar('\n');
}