/*  
 *  This file is part of abc2ps, Copyright (C) 1996,1997 Michael Methfessel
 *  See file abc2ps.c for details.
 */

#include <stdio.h>
#include <math.h>
#include <time.h>
#include <string.h>
#ifdef _MSVC
#include <process.h>
#endif
#include "abc2ps.h" 

#define BUFFLN	100		/* max number of lines in output buffer */

static int ln_num;		       /* number of lines in buffer */
static float ln_pos[BUFFLN];	       /* vertical positions of buffered lines */
static int ln_buf[BUFFLN];	       /* buffer location of buffered lines */
static char buf[BUFFSZ];	       /* output buffer.. should hold one tune */
int nbuf;			       /* number of bytes buffered */
extern int FirstPgNum;		/* [JSA] */
 
/*  subroutines for postscript output  */

/* ----- init_ps ------- */
void init_ps(FILE *fp,
	     char str[],
	     int  is_epsf,
	     float bx1,
	     float by1,
	     float bx2,
	     float by2)
{
	time_t ltime;
	char tstr[41];
	int i;

	if (is_epsf) {
		if (vb>=8)
			printf("Open EPS file with title \"%s\"\n", str);
		fprintf(fp, "%%!PS-Adobe-3.0 EPSF-3.0\n"
			"%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
			bx1 - (float)7.0,by1,bx2 + (float)5.0,by2);
	} else {
		if (vb>=8)
			printf("Open PS file with title \"%s\"\n", str);
		fprintf(fp, "%%!PS-Adobe-3.0\n");
	}

	/* Title */
	fprintf(fp, "%%%%Title: %s\n", str);

	/* CreationDate */
	time(&ltime);
	strcpy(tstr, ctime(&ltime));
	tstr[24]='\0';
	tstr[16]='\0';
	fprintf(fp, "%%%%Creator: jaabc2ps " VERSION "\n"
		"%%%%CreationDate: %s %s\n", tstr+4,tstr+20);

	if (PS_LEVEL == 2)
		fprintf(fp, "%%%%LanguageLevel: 2\n");
	fprintf(fp, "%%%%EndComments\n\n");

	if (is_epsf)
		fprintf(fp, "gsave /origstate save def mark\n100 dict begin\n\n");

	fprintf(fp, "%%%%BeginSetup\n");
	if (PS_LEVEL < 2) {
		fprintf(fp, "/selectfont { exch findfont exch dup   %% emulate level 2 op\n"
			"	type /arraytype eq {makefont}{scalefont} ifelse setfont\n"
			"} bind def\n");
	}
	if (vb>=7)
		printf("\nDefining ISO fonts in file header:\n");
	for (i=0;i<nfontnames;i++) {
		define_font(fp,fontnames[i],i);
		if (vb>=7)
			printf("   F%d	 %s\n", i,fontnames[i]);
	}
	define_symbols(fp, cfmt.tWatermarkText, cfmt.WatermarkGray);
	fprintf(fp, "\n0 setlinecap 0 setlinejoin 0.8 setlinewidth\n"
		"\n/T {translate} bind def\n/M {moveto} bind def\n"
		"%%%%EndSetup\n");
	file_initialized=1;
}

/* ----- close_ps ------- */
void close_ps(FILE *fp)
{
	if(vb>=8)
		printf("closing PS file\n");
	fprintf(fp, "%%EOF\n\n");
}

/* ----- init_page: initialize postscript page ----- */
void init_page(FILE *fp) {
	float	PageNumY;
	float	LeftMargin;
	int		DisPgNum;

	if (vb>=10) printf("init_page called; in_page=%d\n", in_page);
	if (in_page) return;

	if (!file_initialized) {
		if (vb>=10) printf("file not yet initialized; do it now\n");
		init_ps(fp,infostr, 0,0.0,0.0,0.0,0.0);
	}
	in_page=1;
	pagenum++;
	DisPgNum = pagenum + FirstPgNum;

	if (verbose == 0) printf("[%d]\n", DisPgNum);
	fflush(stdout);
	fprintf(fp, "\n%% --- page %d\n"
		"%%%%Page: %d %d\n"
		"%%%%BeginPageSetup\n",
		pagenum, pagenum, pagenum);

	if (cfmt.landscape) fprintf(fp,"%%%%PageOrientation: Landscape\n");
	fprintf(fp,"gsave ");
	if (cfmt.landscape) fprintf(fp,"90 rotate 0 %.1f translate ", -cfmt.pageheight);
	LeftMargin = cfmt.leftmargin;
	if (cfmt.PageMirror) {
		if (DisPgNum % 2) {
			LeftMargin += cfmt.MirrorIndent;
		} else {
			LeftMargin -= cfmt.MirrorIndent;
		}
	}
	fprintf(fp,"%.2f %.2f translate\n", LeftMargin, cfmt.pageheight-cfmt.topmargin);
	fprintf(fp, "%%%%EndPageSetup\n");
	// Watermark the page if selected.
	if (cfmt.Watermark) {
		fprintf(fp, "gsave\n");
		fprintf(fp, "    -1000 -1000 2000 2000\n");
		fprintf(fp, "    JsaWatermark setpattern\n");
		fprintf(fp, "    rectfill\n");
		fprintf(fp, "grestore\n");
	}

	/* write page number */
	if (pagenumbers) {
		fprintf(fp, "/%s %f selectfont ", cfmt.BookTitleFont.name,
			    cfmt.BookTitleFont.size);
		if (cfmt.PageNumTop) {						/* [JSA] */
			PageNumY = (cfmt.topmargin) - ((float)65.0);
		} else {
			PageNumY = (cfmt.topmargin + cfmt.botmargin + (cfmt.CopyrightFont.size * (float)0.2)) - cfmt.pageheight;
		}
		if (cfmt.PageMirror) {						/* [JSA] */
			/* page number right/left for odd/even pages */
			if (!(DisPgNum % 2))
				fprintf(fp, "%.1f %.1f moveto (%d) show\n",
					0.0, PageNumY, DisPgNum);
			else	fprintf(fp, "%.1f %.1f moveto (%d) lshow\n",
					cfmt.staffwidth, PageNumY, DisPgNum);
		} else {
			/* page numbers always at right */
			fprintf(fp, "%.1f %.1f moveto (%d) lshow\n",
				cfmt.staffwidth, PageNumY, DisPgNum);
		}
	}

	/* Write book title (centered at top of page) */
	if (cfmt.BookTitle[0]) {
		fprintf(fp, "/%s %f selectfont ", cfmt.BookTitleFont.name,
			    cfmt.BookTitleFont.size);
		fprintf(fp, "%.1f %.1f moveto (%s) cshow\n", 
			    cfmt.staffwidth / (float)2.0,
				cfmt.topmargin - (float)30.0,
				cfmt.BookTitle);
	}

	/* Write copyright notice (centered at bottom of page) */
	if (cfmt.BookCR[0] && !cfmt.Watermark) {
		fprintf(fp, "/%s %f selectfont ", cfmt.CopyrightFont.name,
			    cfmt.CopyrightFont.size);
		fprintf(fp, "%.1f %.1f moveto (%s) cshow\n", 
			    cfmt.staffwidth / (float)2.0,
				(cfmt.topmargin + cfmt.botmargin + (cfmt.CopyrightFont.size * (float)0.2)) - cfmt.pageheight,
				cfmt.BookCR);
	}
	if (vb>=10) printf("init_page done\n");
	fflush(stdout);
}

/* ----- close_page-------- */
void close_page(FILE *fp)
{
	if (vb>=10)
		printf("close_page called; in_page=%d\n", in_page);

	if (!in_page)
		return;
	in_page=0;

	fprintf(fp,"\n%%%%PageTrailer\n"
		"grestore\n"
		"showpage\n");
}

/* ----- init_epsf: initialize epsf file ----- */
void init_epsf(FILE *fp) {
	// Watermark the page if selected.
	if (cfmt.Watermark) {
		fprintf(fp, "gsave\n");
		fprintf(fp, "    -1000 -1000 2000 2000\n");
		fprintf(fp, "    JsaWatermark setpattern\n");
		fprintf(fp, "    rectfill\n");
		fprintf(fp, "grestore\n");
	}
	fprintf(fp, "%.2f %.2f translate\n",
		cfmt.leftmargin,
		cfmt.pageheight-cfmt.topmargin);
}

/* ----- close_epsf: close epsf file ----- */
void close_epsf(FILE *fp)
{
	fprintf(fp, "\nshowpage\nend\n"
		"cleartomark origstate restore grestore\n\n");
}

/* ----- write_pagebreak ----- */
void write_pagebreak(FILE *fp) {
	if (epsf) return;
	close_page(fp);
	init_page(fp);
	if (page_init[0] != '\0')
		fprintf(fp,"%s\n", page_init);
	posy=cfmt.pageheight-cfmt.topmargin;
}

/*  subroutines to handle output buffer  */

/* ----- a2b: appends string to output buffer ----- */
void a2b(char *t)
{
	int l;

	l = strlen(t);
	/*  printf ("Append %d <%s>\n", l, t); */

	if (nbuf+l >= BUFFSZ) {
		printf("++++ a2b: buffer full, BUFFSZ=%d\n", BUFFSZ);
		exit(1);
	}

	strcpy(&buf[nbuf], t);
	nbuf += l;
}

/* ----- bskip(h): translate down by h points in output buffer ---- */
void bskip(float h)
{
	if (h * h > 0.0001) {
		PUT1("0 %.1f T\n", -h);
		bposy -= h;
	}
}

/* ----- init_pdims: initialize page dimensions ----- */
void init_pdims()
{
	if (in_page)
		return;
	posx=cfmt.leftmargin;
	posy=cfmt.pageheight-cfmt.topmargin;
}

/* ----- clear_buffer ------- */
void clear_buffer()
{
	nbuf = 0;
	bposy = 0.0;
	ln_num = 0;
}

/* ----- write_buffer: write buffer contents, break at full pages ---- */
void write_buffer(FILE *fp)
{
	int i,l,b2;
	float p1,dp;

	if (nbuf==0)
		return;

	i = 0;
	p1 = 0;
	for (l=0;l<ln_num;l++) {
		b2=ln_buf[l];
		dp=ln_pos[l] - p1;
		if (posy + dp < cfmt.botmargin && !epsf)
			write_pagebreak(fp);
		while (i < b2) {
			putc(buf[i],fp);
			i++;
		}
		posy += dp;
		p1 = ln_pos[l];
	}

	while (i < nbuf) {
		putc(buf[i],fp);
		i++;
	}

	clear_buffer();
}

/* ----- buffer_eob: handle completed block in buffer ------- */
/* if the added stuff does not fit on current page, write it out
   after page break and change buffer handling mode to pass though */
void buffer_eob(FILE *fp)
{
	if (ln_num>=BUFFLN)
		rx("max number off buffer lines exceeded"," -- check BUFFLN");

	ln_buf[ln_num]=nbuf;
	ln_pos[ln_num]=bposy;
	ln_num++;

	if (!use_buffer) {
		write_buffer(fp);
		return;
	}

	if ((((posy + bposy) < cfmt.botmargin) || cfmt.oneperpage) && !epsf) {
		if (tunenum != 1) write_pagebreak(fp);
		write_buffer(fp);
		use_buffer=0;
	}
}

/* ----- check_buffer: dump buffer if less than nb bytes available --- */
void check_buffer(FILE *fp,
		  int nb)
{
	char mm[81];

	if (nbuf+nb>BUFFSZ) {
		sprintf(mm, "BUFFSZ exceeded at line %d", ln_num);
		wng("possibly bad page breaks, ", mm);
		write_buffer(fp);
		use_buffer = 0;
	}
}