path: root/appl/charon/paginate.b

implement Paginate;

include "common.m";
include "print.m";
include "paginate.m";

sys: Sys;
print: Print;
L: Layout;
D: Draw;

Frame, Lay, Line, Control: import Layout;
Docinfo: import Build;
Image, Display, Rect, Point: import D;
Item: import Build;
MaskedImage: import CharonUtils;

disp: ref Display;
p0: Point;
nulimg: ref Image;

DPI: con 110;

init(layout: Layout, draw: Draw, display: ref Draw->Display): string
{
	sys = load Sys Sys->PATH;
	L = layout;
	D = draw;
	disp = display;
	if (L == nil || D == nil || disp == nil)
		return "bad args";
	print = load Print Print->PATH;
	if (print == nil)
		return sys->sprint("cannot load module %s: %r", Print->PATH);
	print->init();
#nullfd := sys->open("/dev/null", Sys->OWRITE);
#print->set_printfd(nullfd);
	p0 = Point(0, 0);
	nulimg = disp.newimage(((0, 0), (1, 1)), 3, 0, 0);
	return nil;
}

paginate(frame: ref Layout->Frame, orient: int, pnums, cancel: chan of int, result: chan of (string, ref Pageset))
{
	pidc := chan of int;
	spawn watchdog(pidc, cancel, nil, sys->pctl(0, nil));
	watchpid := <- pidc;

	if (frame.kids != nil) {
		result <-= ("cannot print frameset", nil);
		kill(watchpid);
		return;
	}

	defp := print->get_defprinter();
	if (defp == nil) {
		result <-= ("no default printer", nil);
		kill(watchpid);
		return;
	}

	# assuming printer's X & Y resolution are the same
	if (orient == PORTRAIT)
		defp.popt.orientation = Print->PORTRAIT;
	else
		defp.popt.orientation = Print->LANDSCAPE;
	(dpi, pagew, pageh) := print->get_size(defp);
	pagew = (DPI * pagew)/dpi;
	pageh = (DPI * pageh)/dpi;

	pfr := copyframe(frame);
	pr := Rect(p0, (pagew, pageh));
	pfr.r = pr;
	pfr.cr = pr;
	pfr.viewr = pr;
	l := pfr.layout;
	L->relayout(pfr, l, pagew, l.just);
	maxy := l.height + l.margin; # don't include bottom margin
	prctxt := ref Layout->Printcontext;
	pfr.prctxt = prctxt;
	pfr.cim = nulimg;
	pnum := 1;
	startys : list of int;

	for (y := 0; y < maxy;) {
		startys = y :: startys;
		pnums <-= pnum++;
		endy := y + pageh;
		prctxt.endy = pageh;
		pfr.viewr.min.y = y;
		pfr.viewr.max.y = endy;
		L->drawall(pfr);
		y += prctxt.endy;
	}

	# startys are in reverse order
	ys : list of int;
	for (; startys != nil; startys = tl startys)
		ys = hd startys :: ys;

	pageset := ref Pageset(defp, pfr, ys);
	result <-= (nil, pageset);
	kill(watchpid);
}

printpageset(pset: ref Pageset, pnums, cancel: chan of int)
{
	pidc := chan of int;
	stopdog := chan of int;
	spawn watchdog(pidc, cancel, stopdog, sys->pctl(0, nil));
	watchpid := <- pidc;

	frame := pset.frame;
	pageh := frame.cr.dy();
	white := disp.rgb2cmap(255, 255, 255);
	prctxt := frame.prctxt;
	l := frame.layout;
	maxy := l.height + l.margin; # don't include bottom margin
	maxy = max(maxy, pageh);
	pnum := 1;

	for (pages := pset.pages; pages != nil; pages = tl pages) {
		y := hd pages;
		if (y + pageh > maxy)
			pageh = maxy - y;
		frame.cr.max.y = pageh;
		frame.cim = disp.newimage(frame.cr, 3, 0, white);
		if (frame.cim == nil) {
			pnums <-= -1;
			kill(watchpid);
			return;
		}
		pnums <-= pnum++;
		endy := y + pageh;
		prctxt.endy = pageh;
		frame.viewr.min.y = y;
		frame.viewr.max.y = endy;
		L->drawall(frame);
		stopdog <-= 1;
#start := sys->millisec();
		if (print->print_image(pset.printer, disp, frame.cim, 100, cancel) == -1) {
			# cancelled
			kill(watchpid);
			return;
		}
		stopdog <-= 1;
#sys->print("PAGE %d: %dms\n", pnum -1, sys->millisec()-start);
	}
	pnums <-= -1;
	kill(watchpid);
}

watchdog(pidc, cancel, pause: chan of int, pid: int)
{
	pidc <-= sys->pctl(0, nil);
	if (pause == nil)
		pause = chan of int;
	for (;;) alt {
	<- cancel =>
		kill(pid);
		return;
	<- pause =>
		<- pause;
	}
}

kill(pid: int)
{
	sys->fprint(sys->open("/prog/" + string pid +"/ctl", Sys->OWRITE), "kill");
}

killgrp(pid: int)
{
	sys->fprint(sys->open("/prog/" + string pid +"/ctl", Sys->OWRITE), "killgrp");
}

max(a, b: int): int
{
	if (a > b)
		return a;
	return b;
}

copyframe(f: ref Frame): ref Frame
{

	zr := Draw->Rect(p0, p0);
	newf := ref Frame(
		-1,			# id
		nil,			# doc
		nil,			# src
		" PRINT FRAME ",	# name
		f.marginw,	# marginw
		f.marginh,	# marginh
		0,			# framebd
		Build->FRnoscroll,	# flags
		nil,			# layout - filled in below, needs this frame ref
		nil,			# sublays - filled in by geometry code
		0,			# sublayid
		nil,			# controls - filled in below, needs this frame ref
		0,			# controlid - filled in below
		nil,			# cim
		zr,			# r
		zr,			# cr
		zr,			# totalr
		zr,			# viewr
		nil,			# vscr
		nil,			# hscr
		nil,			# parent
		nil,			# kids
		0,			# animpid
		nil			# prctxt
	);

	newf.doc = copydoc(f, newf, f.doc);
	controls := array [len f.controls] of ref Control;
	for (i := 0; i < len controls; i++)
		controls[i] = copycontrol(f, newf, f.controls[i]);
	newf.layout = copylay(f, newf, f.layout);
	newf.controls = controls;
	newf.controlid = len controls;

	return newf;
}

copysublay(oldf, f: ref Frame, oldid:int): int
{
	if (oldid < 0)
		return -1;
	if (f.sublayid >= len f.sublays)
		f.sublays = (array [len f.sublays + 30] of ref Lay)[:] = f.sublays;
	id := f.sublayid++;
	lay := copylay(oldf, f, oldf.sublays[oldid]);
	f.sublays[id] = lay;
	return id;
}

copydoc(oldf, f : ref Frame, doc: ref Build->Docinfo): ref Docinfo
{
	background := copybackground(oldf, f, doc.background);
	newdoc := ref Build->Docinfo(
		nil,		#src
		nil,		#base
		nil,		#referrer
		nil,		#doctitle
		background,
		nil,		#backgrounditem
		doc.text, doc.link, doc.vlink, doc.alink,
		nil,		#target
		nil,		#refresh
		nil,		#chset
		nil,		#lastModified
		0,		#scripttype
		0,		#hasscripts
		nil,		#events
		0,		#evmask
		nil,		#kidinfo
		0,		#frameid
		nil,		#anchors
		nil,		#dests
		nil,		#forms
		nil,		#tables
		nil,		#maps
		nil		#images
	);
	return newdoc;
}

copylay(oldf, f: ref Frame, l: ref Lay): ref Lay
{
	start := copyline(oldf, f, nil, l.start);
	end := start;
	for (line := l.start.next; line != nil; line = line.next)
		end = copyline(oldf, f, end, line);

	newl := ref Lay(
		start,
		end,
		l.targetwidth,		# targetwidth
		l.width,		# width
		l.height,		# height
		l.margin,	# margin
		nil,		# floats - filled in by geometry code
		copybackground(oldf, f, l.background),
		l.just,
		Layout->Lchanged
	);
	start.flags = end.flags = byte 0;
	return newl;
}

copycontrol(oldf, f: ref Frame, ctl: ref Control): ref Control
{
	if (ctl == nil)
		return nil;

	pick c := ctl {
	Cbutton =>
		return ref Control.Cbutton(f, nil, c.r, c.flags, nil, c.pic, c.picmask, c.dpic, c.dpicmask, c.label, c.dorelief);
	Centry =>
		scr := copycontrol(oldf, f, c.scr);
		return ref Control.Centry(f, nil, c.r, c.flags, nil, scr, c.s, c.sel, c.left, c.linewrap, 0);
	Ccheckbox=>
		return ref Control.Ccheckbox(f, nil, c.r, c.flags, nil, c.isradio);
	Cselect =>
		scr := copycontrol(oldf, f, c.scr);
		options := (array [len c.options] of Build->Option)[:] = c.options;
		return ref Control.Cselect(f, nil, c.r, c.flags, nil, nil, scr, c.nvis, c.first, options);
	Clistbox =>
		hscr := copycontrol(oldf, f, c.hscr);
		vscr := copycontrol(oldf, f, c.vscr);
		options := (array [len c.options] of Build->Option)[:] = c.options;
		return ref Control.Clistbox(f, nil, c.r, c.flags, nil, hscr, vscr, c.nvis, c.first, c.start, c.maxcol, options, nil);
	Cscrollbar =>
		# do not copy ctl as this is set by those associated controls
		return ref Control.Cscrollbar(f, nil, c.r, c.flags, nil, c.top, c.bot, c.mindelta, c.deltaval, nil, c.holdstate);
	Canimimage =>
		bg := copybackground(oldf, f, c.bg);
		return ref Control.Canimimage(f, nil, c.r, c.flags, nil, c.cim, 0, 0, big 0, bg);
	Clabel =>
		return ref Control.Clabel(f, nil, c.r, c.flags, nil, c.s);
	* =>
		return nil;
	}
}

copyline(oldf, f: ref Frame, prev, l: ref Line): ref Line
{
	if (l == nil)
		return nil;
	cp := ref *l;
	items := copyitems(oldf, f, l.items);
	newl := ref Line (items, nil, prev, l.pos, l.width, l.height, l.ascent, Layout->Lchanged);
	if (prev != nil)
		prev.next = newl;
	return newl;
}

copyitems(oldf, f: ref Frame, items: ref Item): ref Item
{
	if (items == nil)
		return nil;
	item := copyitem(oldf, f, items);
	end := item;
	for (items = items.next; items != nil; items = items.next) {
		end.next = copyitem(oldf, f, items);
		end = end.next;
	}
	return item;
}

copyitem(oldf, f : ref Frame, item: ref Item): ref Item
{
	if (item == nil)
		return nil;
	pick it := item {
	Itext =>
		return ref Item.Itext(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			it.s, it.fnt, it.fg, it.voff, it.ul);
	Irule =>
		return ref Item.Irule(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			it.align, it.noshade, it.size, it.wspec);
	Iimage =>
		# need to copy the image to prevent
		# ongoing image fetches from messing up our layout
		ci := copycimage(it.ci);
		return ref Item.Iimage(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			it.imageid, ci, it.imwidth, it.imheight, it.altrep,
			nil, it.name, -1, it.align, it.hspace, it.vspace, it.border);
	Iformfield =>
		return ref Item.Iformfield(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			copyformfield(oldf, f, it.formfield)
		);
	Itable =>
		return ref Item.Itable(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			copytable(oldf, f, it.table));
	Ifloat =>
		items := copyitem(oldf, f, it.item);
		return ref Item.Ifloat(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			items, it.x, it.y, it.side, byte 0);
	Ispacer =>
		return ref Item.Ispacer(
			nil, it.width, it.height, it.ascent, 0, it.state, nil,
			it.spkind, it.fnt);
	* =>
		return nil;
	}
}

copycimage(ci: ref CharonUtils->CImage): ref CharonUtils->CImage
{
	if (ci == nil)
		return nil;
	mims : array of ref MaskedImage;
	if (len ci.mims > 0)
		# if len> 1 then animated, but we only want first frame
		mims = array [1] of {0 => ci.mims[0]};
	return ref CharonUtils->CImage(nil, nil, nil, 0, ci.width, ci.height, nil, mims, 0);
}

copyformfield(oldf, f: ref Frame, ff: ref Build->Formfield): ref Build->Formfield
{
	image := copyitem(oldf, f, ff.image);
	# should be safe to reference Option list
	newff := ref Build->Formfield(
		ff.ftype, 0, nil, ff.name, ff.value, ff.size, ff.maxlength, ff.rows,
		ff.cols, ff.flags, ff.options, image, ff.ctlid, nil, 0
	);
	return newff;
}

copytable(oldf, f: ref Frame, tbl: ref Build->Table): ref Build->Table
{
	nrow := tbl.nrow;
	ncol := tbl.ncol;
	caption_lay := copysublay(oldf, f, tbl.caption_lay);
	cols := (array [ncol] of Build->Tablecol)[:] = tbl.cols;
	rows := array [nrow] of ref Build->Tablerow;
	for (i := 0; i < nrow; i++) {
		r := tbl.rows[i];
		rows[i] = ref Build->Tablerow(nil, r.height, r.ascent, r.align, r.background, r.pos, r.flags);
	}

	cells : list of ref Build->Tablecell;
	grid := array [nrow] of {* => array [ncol] of ref Build->Tablecell};
	for (rix := 0; rix < nrow; rix++) {
		rowcells: list of ref Build->Tablecell = nil;
		for (colix := 0; colix < ncol; colix++) {
			cell := copytablecell(oldf, f, tbl.grid[rix][colix]);
			if (cell == nil)
				continue;
			grid[rix][colix] = cell;
			cells = cell :: cells;
			rowcells = cell :: rowcells;
		}
		# reverse the row cells;
		rcells : list of ref Build->Tablecell = nil;
		for (; rowcells != nil; rowcells = tl rowcells)
			rcells = hd rowcells :: rcells;
		rows[rix].cells = rcells;
	}

	# reverse the cells
	sllec: list of ref Build->Tablecell;
	for (; cells != nil; cells = tl cells)
		sllec = hd cells :: sllec;
	cells = sllec;

	return ref Build->Table(
		tbl.tableid,	# tableid
		nrow,		# nrow
		ncol,			# ncol
		len cells,		# ncell
		tbl.align,		# align
		tbl.width,		# width
		tbl.border,	# border
		tbl.cellspacing,	# cellspacing
		tbl.cellpadding,	# cellpadding
		tbl.background,	# background
		nil,			# caption
		tbl.caption_place,	# caption_place
		caption_lay,	# caption_lay
		nil,			# currows
		cols,			# cols
		rows,		# rows
		cells,		# cells
		tbl.totw,		# totw
		tbl.toth,		# toth
		tbl.caph,		# caph
		tbl.availw,	# availw
		grid,			# grid
		nil,			# tabletok
		Layout->Lchanged		# flags
	);
}

copytablecell(oldf, f: ref Frame, cell: ref Build->Tablecell): ref Build->Tablecell
{
	if (cell == nil)
		return nil;

	layid := copysublay(oldf, f, cell.layid);
	background := copybackground(oldf, f, cell.background);
	newcell := ref Build->Tablecell(
		cell.cellid,
		nil,	# content
		layid,
		cell.rowspan, cell.colspan, cell.align,
		cell.flags, cell.wspec, cell.hspec,
		background, cell.minw, cell.maxw,
		cell.ascent, cell.row, cell.col, cell.pos);
	return newcell;
}

copybackground(oldf, f: ref Frame, bg: Build->Background): Build->Background
{
	img := copyitem(oldf, f, bg.image);
	if (img != nil) {
		pick i := img {
		Iimage =>
			bg.image = i;
		}
	}
	return bg;
}