head	1.3;
access;
symbols;
locks
	www-data:1.3; strict;
comment	@# @;


1.3
date	2004.04.15.19.09.26;	author MarkHillebrand;	state Exp;
branches;
next	1.2;

1.2
date	2003.10.12.12.13.45;	author MarkHillebrand;	state Exp;
branches;
next	1.1;

1.1
date	2003.10.12.11.22.15;	author MarkHillebrand;	state Exp;
branches;
next	;


desc
@Funky printing function for xterm
@


1.3
log
@added license info
@
text
@#!/usr/bin/perl
# Use, modification and redistribution of this software is hereby granted, 
# provided that this entire copyright notice is included on any copies of 
# this software and applications and derivations thereof.
# 
# This software is provided on an "as is" basis, without warranty of any
# kind, either expressed or implied, as to any matter including, but not
# limited to warranty of fitness of purpose, or merchantability, or
# results obtained from use of this software.
#
# (C) 2003-2004 Mark A. Hillebrand <mah at cs.uni-sb.de>
#
# TODO should each line padded to line-width because of background coloring (cf. mutt)?
# TODO ISO-8859-1 output option
# TODO add support for non-@@style formatting
# Setup resource strings for xterm as follows:
# echo 'XTerm*printerCommand: /path/to/xterm-html-printer' | xrdb -merge
# echo 'XTerm*printAttributes: 2' | xrdb -merge
use File::Temp qw(tempfile);
use HTML::Entities;
# TODO produce this dynamically from "appres XTerm | grep -i 'color[0-9]\+'" and rgb.txt
my %FG_COLORS = (
	# these colors come from /usr/X11/lib/X11/app-defaults/XTerm-color and
	# were transformed using /usr/X11/lib/X11/rgb.txt
	0 => '#000000',
	1 => '#cd0000',
	2 => '#00cd00',
	3 => '#cdcd00',
	4 => '#1e90ff',
	5 => '#cd00cd',
	6 => '#00cdcd',
	7 => '#e5e5e5',
);
# TODO this is hack, try to obtain these G[0123] charsets from ISO 2022
my %LINEDRAWINGS = (
	l => '┌',
	q => '─',
	k => '┐',
	x => '│',
	m => '└',
	j => '┘',
);
# TODO number sequentially
my ($fh, $filename) = tempfile("xterm-XXXXXX", SUFFIX => '.html', DIR => $ENV{HOME} );

# TODO add switch for filtering capabilities instead of tempfile-naming
#use FileHandle;
#$fh = new FileHandle;
#$fh->open(">&STDOUT");

my $background = '#FFFFFF';
my $foreground = '#000000';

# TODO add an option for the background color, cannot be detected
print $fh qq[<html>\n<meta http-equiv="Content-Type" content="text/html; charset=utf-8">\n<body>\n<table style="border-style:solid"><tr><td style="background:$background"><pre>\n];
# note: xterm seems to supply unicode

sub linedraw {
	my $s = shift;
	$s =~ s/(\e\[.*?[a-zA-Z]|.)/
		if( substr($1,0,1) eq "\e" ) {
			$1;
		} else {
			$LINEDRAWINGS{$1};
		}
	/gex;
	return $s;
}
while( <> ) {
	s/^\e#5//;	# delete common line start
	s/\r$//;
	chomp;
	# substitute those nasty line drawing characters to unicode
	s/\016(.*?)\017/linedraw($1)/ge;
	
	#@@attr = ();	# auto-reset at EOL
	#s/\r$//;	# delete common line end
	# print encode_entities($in);
	for( m/(\e\[.*?[a-zA-Z]|[^\e]*)/g ) {
		if( (substr $_, 0, 1) eq "\e" ) {
			if( (substr $_, -1) eq 'm' ) {
				# set attributes
				#warn substr($_,2,length($_)-3);
				for $a (split ';', substr($_,2,length($_)-3)) {
					#warn $a;
					if( $a == 0 ) {	# reset
						@@attr = ();	# clear attribute array
					} elsif( $a == 1 ) {	# bold
						push @@attr, "font-weight:bold";
					} elsif( substr($a,0,1) eq '3' ) {
						die "?color not defined" if not exists $FG_COLORS{substr($a,1,1)};
						push @@attr, "color:$FG_COLORS{substr($a,1,1)}";
					} elsif( substr($a,0,1) eq '4' ) {
						if( length $a == 1 ) {
							# underline
							push @@attr, "font-decoration:underline";
						} else {
							die "?color not defined" if not exists $FG_COLORS{substr($a,1,1)};
							push @@attr, "background:$FG_COLORS{substr($a,1,1)}";
						}
					} elsif( substr($a,0,1) == 7 ) { # invert
						print '<!-- warning: inversion with non-empty attribute stack-->' if $#attr > 0;
						push @@attr, "background:$foreground";
						push @@attr, "color:$background";
					} else {
					}
				}

			}
		} else {
			# (xterm seems to supply unicode)
			if( @@attr ) {
				print $fh 
					'<font style="' .
					join('; ', @@attr) .
					'">' .
					encode_entities($_,'<>&"') .
					'</font>';
			} else {
				print $fh encode_entities($_,'<>&"');
			}
		}
	}
	print $fh "\n";
}
print $fh "</pre></td></tr></table>\n</body>\n</html>\n";
@


1.2
log
@hacked in some line-drawing capability for the G1 character set
@
text
@d2 12
d15 1
d17 1
a17 1
# echo 'XTerm*printerCommand: /home/mah/cvs/misc-bin/xterm-html-printer' | xrdb -merge
d29 1
a29 1
	4 => '#0000cd',
d32 1
a32 2
	7 => '#5a5a5a',
	8 => '#4d4d4d',
d71 1
@


1.1
log
@Initial revision
@
text
@d2 4
d22 9
a30 1

d39 3
d43 2
a44 1
print $fh qq[<html>\n<body>\n<table style="border-style:solid"><tr><td style="background:#FFFFFF"><pre>\n];
d46 11
d60 3
d88 4
d98 1
a98 1
			my $l = encode_entities($_);
d104 1
a104 1
					encode_entities($_) .
d107 1
a107 1
				print $fh encode_entities($_);
@