<?
	/*
	Module:	frloprint.php
	
	Author:	Martin Karas a.k.a. Wolcano
	Date:	13.04.2002
	Mail:	wolcano@pobox.sk
	Version:	3.1
	License:	GNU-GPL
	Description:	Processes input, to be more printable/readable. Wraps the
		text and flushes it into several columns per page. Based on idea of
		FRLOs program frloprint (DOS-exe).

	TODO:
		* remove in_line_separator EREG pattern restrictions
		* add printer handling
	
	Change Log:
		3.1:  Minor bug-fix in processing empty lines
		      Added multi-line page separator
			  Now user-definable column padding character
		3.0:  Public release (via CVS - see www.platon.sk)
	*/


	//////////////
	// Settings //
	//////////////

	/* INPUT/OUTPUT SETTINGS
		use "php://stdin", "php://stdout", "php://stderr"
		"http://host/path/file" or "ftp://user:pass@host/file"
	*/
	$in_file = "in.txt";
	$out_file = "out.txt";

	/* LINE SEPARATOR SETTINGS */
	/*
		in_line_separator is used in ereg [] ranges,
		should not include '-' character, should be backslashed
	*/
	$in_line_separator = chr(13).chr(10);	
	$out_line_separator = chr(13).chr(10);

	/* PAGE SIZE SETTINGS */
	$rows = 66;
	$cols = 2;
	$col_width = 80;
	$col_padding_width = 4;	// (text is more readible on blocks of dense text input)
	$col_padding_char = " ";

	/* SUB-PAGE SEPARATORS */
	$use_col_separator = false;
	$use_row_separator = false;
	$col_separator = "|";
	$row_separator = array("-End of page-");
	$row_separator_padding_char = "-"; //appended to row_separator if its shorter than col width

	/* INPUT AUTO-CONVERT */
	$auto_wrap = 1;
	$replace_non_chars = true;
	$non_chars_to = " ";
	$replace_tab = true;
	$tabs_to_space = "    ";

	///////////////////////
	// Support functions //
	///////////////////////

	function add_char($string, $char, $final_width) {
		while(strlen($string) < $final_width)
			$string .= $char;
		return $string;
	} // add_char($string, $char, $final_width)

	function add_spaces($string, $width) {
		while(strlen($string) < $width)
			$string .= " ";
		return $string;
	} // add_spaces($string, $width)

	function wrap_lines($a, $width) {
		$j = 0;
		$ret = array();
		for($i = 0; $i < sizeof($a); $i++) {
			$tmp = $a[$i];
			for ($left = 0;;) {
				$ret[$j] = rtrim(substr($tmp, $left, $width));
				$left += $width;
				$j++;
				if ($left >= (strlen($tmp) - 1))
					break;
			}
		}
		return $ret;
	} // wrap_lines($a, $width)


	///////////////////
	// MAIN FUNCTION //
	///////////////////
	
	/* Initialise */

	if ($use_col_separator)
		$col_width - strlen($col_separator);
	if ($use_row_separator)
		$rows - substr_count($row_separator, $in_line_separator);
	$text_width = $col_width - $col_padding_width;

	$fin = fopen($in_file, "rb");
	$fout = fopen($out_file, "w");
	
	$out = array();
	$row = 0;
	$col = 0;

	while (!feof($fin)) {
		// Here should be used explode(), but that function creates
		// greater array (by one item). Now we've got a problem if the
		// line is longer than 4096 chars
		//$in = explode($in_line_separator, $in);
		$in = fgets($fin, 4096);

		if ($replace_tab)
			$in = str_replace(chr(9), $tabs_to_space, $in);
		if ($replace_non_chars)
			$in = ereg_replace("[^ -\t$in_line_separator]", $non_chars_to, $in);

		$in = array($in);
		if ($auto_wrap)
			$in = wrap_lines($in, $text_width);

		for($i = 0; $i < sizeof($in); $i++) {
			if ($col == 0) {
				// first column
				$out[$row] = $in[$i];
			}
			else {
				$out[$row] = rtrim(
					add_char($out[$row], $col_padding_char, $col * $col_width) .
					$in[$i]);
			}
			if ($use_col_separator)
				$out[$row] .= add_char("", $col_padding_char,
						($col + 1) * $col_width - strlen($out[$row]) - strlen($col_separator)
					) . $col_separator;
			$row++;
			$row = $row % $rows;
	
			if ($row == 0) {
				if ($use_row_separator)
					for ($j = 0; $j < sizeof($row_separator); $j++)
						$out[$rows + $j] .= add_char($row_separator[$j], $row_separator_padding_char, $col_width);

				$col++;
				$col = $col % $cols;
				if ($col == 0) {
					fwrite($fout, implode($out, $out_line_separator) . $out_line_separator);
					$out = array();
				}
			}
		}
	}

	/*
		finally flush the accumulator, if anything was left in it and
		close all open files
	*/
	fclose($fin);
	fwrite($fout, implode($out, $out_line_separator) . $out_line_separator);
	fclose($fout);
?>