#include <portab.h>

#include <stdio.h>

#include <stdlib.h>
#include <string.h>
#include <tos.h>

#include "treiber.h"


long	max_puffer_laenge=0; /* Nicht spoolen */


/* Versucht Zeile zu Komprimieren */
WORD	compress_img_run( UBYTE *ziel, UBYTE *p, WORD *limit )
{
	UBYTE	i;

		/* Sonst getrennt */
	if(  p[0]==0xFF  ||  p[0]==0  )
	{
		for(  i=1;  p[i]==p[0]  &&  i<*limit  &&  i<0x7F;  i++  )
			;
		ziel[0] = (0x80 & p[0]) | i;
		(*limit) -= i;
		return 1;
	}
	else
	{
		/* Abstand zum n„chsten Ungleichen... */
		for(  i=0;  p[i]!=0  &&  p[i]!=0xFF  &&  i<127  &&  i<*limit;  i++  )
			ziel[i+2] = p[i];
		ziel[0] = 0x80;
		ziel[1] = i;
		(*limit) -= i;
		return i+2;
	}
}
/* 17.1.93 */


typedef struct {
	unsigned version;
	unsigned headlen;
	unsigned nplanes;
	unsigned patlen;
	unsigned pixelw;
	unsigned pixelh;
	unsigned linew;
	unsigned lines;
/*	unsigned palette[16]; Sind eh monochrom */
} IMGHEADER;


UBYTE		line[8192];
UBYTE		tmp_zeile[8192];

#ifdef SHOW_PRT
extern char	*disp_status;
extern char	*char_status;
extern char	rot_status;
#endif

WORD	drucke_quer( UBYTE *p, LONG start_x, LONG weite, LONG hoehe, LONG h_dpi, LONG v_dpi, WORD th, WORD flag )
{
	IMGHEADER	hdr;
	LONG			max_spalte, wweite;
	LONG			rep, i, x;
	WORD			lz;
	UBYTE			and_it;

		/* Header */
	hdr.version = 1;
	hdr.headlen = (WORD)sizeof(IMGHEADER)>>1;
	hdr.nplanes = 1;
	hdr.patlen = 2;
		/* Grafikaufl”sung festlegen */
	hdr.pixelw = (WORD)((25400L+v_dpi/2)/v_dpi);
	hdr.pixelh = (WORD)((25400L+h_dpi/2)/h_dpi);
		/* Grafikweite festlegen */
	hdr.linew = (WORD)hoehe;
	hdr.lines = (WORD)(start_x+weite);
	Fseek( 0L, th, 0 );
	Fwrite( th, sizeof(IMGHEADER), &hdr );
	Fseek( 0L, th, 2 );

	hoehe--;
	max_spalte = (hoehe+7)>>3;
	hoehe &= 7;
	if(  hoehe  )
		and_it = ~(WORD)(0x00FFL << hoehe);
	else
		and_it = 0x00FF;
	x = 0;
	wweite = (weite+15)>>4;
	wweite *= 2;

	for(  i=0;  (flag&2)  &&  x<weite;  x++  )
	{
#ifdef SHOW_PRT
		if(  (x%128)==0  )
		{
			disp_status[2] = char_status[rot_status++];
			rot_status &= 3;
			Cconws( disp_status );
		}
#endif
		drehe_90( p, tmp_zeile, wweite, max_spalte-1, x );
 		Fwrite( th, 4L, "\000\000\377\001" );

		/* Eine Zeile in die Datei! */
		tmp_zeile[0] &= and_it;
		rep = lz = (WORD)max_spalte;
		i = 0;
		while(  lz>0  )
			i += compress_img_run( line+i, tmp_zeile+rep-lz, &lz );
		Fwrite( th, (LONG)i, line );
 	}
	return 0;
}
/* 7.10.95 */


/* Schreibe in IMG-Datei, auch in mehreren Teilen */
WORD	drucke( UBYTE *p, LONG start_y, LONG weite, LONG max_zeile, LONG h_dpi, LONG v_dpi, WORD th, WORD flag, WORD quer, UBYTE *opt )
{
	IMGHEADER	hdr;
	WORD			max_spalte, zeile, lz;
	WORD			rep, i;
	UBYTE			l;

	(void)opt;	/* ignorieren */

	if(  th<=5  )
	{
		Cconws( "Bitte Dateinamen angeben!\007" );
		return -1;
	}
	if(  flag==4  )
		return 0;

	if(  quer  )
		return drucke_quer( p, start_y, weite, max_zeile, h_dpi, v_dpi, th, flag );

		/* Header */
	hdr.version = 1;
	hdr.headlen = (WORD)sizeof(IMGHEADER)/2;
	hdr.nplanes = 1;
	hdr.patlen = 2;
		/* Grafikaufl”sung festlegen */
	hdr.pixelw = (WORD)((25400L+h_dpi/2)/h_dpi);
	hdr.pixelh = (WORD)((25400L+v_dpi/2)/v_dpi);
		/* Grafikweite festlegen */
	hdr.linew = (WORD)weite;
	hdr.lines = (WORD)(start_y+max_zeile);
	Fseek( 0L, th, 0 );
	Fwrite( th, sizeof(IMGHEADER), &hdr );
	Fseek( 0L, th, 2 );

	max_spalte = (WORD)(weite+7)>>3;
	zeile = 0;
	weite = (weite+15)>>4;
	weite *= 2;

	while(  zeile<max_zeile  &&  (flag&2)  )
 	{
#ifdef SHOW_PRT
		if(  (zeile%256)==0  )
		{
			disp_status[2] = char_status[rot_status++];
			rot_status &= 3;
			Cconws( disp_status );
		}
#endif

		/* Zeilenkopf */
		/* gleiche Zeilen komprimieren */
 		for(  l=1;  0==memcmp( p, p+weite, max_spalte )  &&  zeile<max_zeile  &&  l<255;  l++, zeile++  )
 			p += weite;
 		Fwrite( th, 3L, "\0\0\xFF" );
		Fwrite( th, 1L, &l );

			/* Eine Zeile in die Datei! */
		rep = lz = max_spalte;
		i = 0;
			/* Wir komprimieren (es bleibt auch nichts �brig) */
		while(  lz>0  )
			i += compress_img_run( line+i, p+rep-lz, &lz );
		Fwrite( th, (LONG)i, line );

		p += weite;
		zeile++;
	}
	/* Sollte immer gut gehen! (d.h. kein File zum Drucken!) */
	return Fclose( th );
}
/* 22.1.93 */
/* 7.10.95 */