MCL/sf/os/fshell: libraries/spcre/libpcre/pcre/132html@ceac7084e2e5 (annotated)

0 7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	1	#! /usr/bin/perl -w
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	2
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	3	# Script to turn PCRE man pages into HTML
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	4
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	5
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	6	# Subroutine to handle font changes and other escapes
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	7
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	8	sub do_line {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	9	my($s) = $_[0];
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	10
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	11	$s =~ s/</</g; # Deal with < and >
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	12	$s =~ s/>/>/g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	13	$s =~ s"\\fI(.*?)\\f[RP]"<i>$1</i>"g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	14	$s =~ s"\\fB(.*?)\\f[RP]"<b>$1</b>"g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	15	$s =~ s"\\e"\\"g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	16	$s =~ s/(?<=Copyright )$c$/©/g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	17	$s;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	18	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	19
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	20	# Subroutine to ensure not in a paragraph
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	21
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	22	sub end_para {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	23	if ($inpara)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	24	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	25	print TEMP "</PRE>\n" if ($inpre);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	26	print TEMP "</P>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	27	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	28	$inpara = $inpre = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	29	$wrotetext = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	30	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	31
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	32	# Subroutine to start a new paragraph
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	33
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	34	sub new_para {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	35	&end_para();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	36	print TEMP "<P>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	37	$inpara = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	38	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	39
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	40
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	41	# Main program
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	42
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	43	$innf = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	44	$inpara = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	45	$inpre = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	46	$wrotetext = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	47	$toc = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	48	$ref = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	49
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	50	while ($#ARGV >= 0 && $ARGV[0] =~ /^-/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	51	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	52	$toc = 1 if $ARGV[0] eq "-toc";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	53	shift;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	54	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	55
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	56	# Initial output to STDOUT
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	57
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	58	print <<End ;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	59	<html>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	60	<head>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	61	<title>$ARGV[0] specification</title>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	62	</head>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	63	<body bgcolor="#FFFFFF" text="#00005A" link="#0066FF" alink="#3399FF" vlink="#2222BB">
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	64	<h1>$ARGV[0] man page</h1>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	65	<p>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	66	Return to the <a href="index.html">PCRE index page</a>.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	67	</p>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	68	<p>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	69	This page is part of the PCRE HTML documentation. It was generated automatically
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	70	from the original man page. If there is any nonsense in it, please consult the
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	71	man page, in case the conversion went wrong.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	72	<br>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	73	End
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	74
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	75	print "<ul>\n" if ($toc);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	76
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	77	open(TEMP, ">/tmp/$$") \|\| die "Can't open /tmp/$$ for output\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	78
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	79	while (<STDIN>)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	80	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	81	# Handle lines beginning with a dot
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	82
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	83	if (/^\./)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	84	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	85	# Some of the PCRE man pages used to contain instances of .br. However,
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	86	# they should have all been removed because they cause trouble in some
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	87	# (other) automated systems that translate man pages to HTML. Complain if
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	88	# we find .br or .in (another macro that is deprecated).
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	89
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	90	if (/^\.br/ \|\| /^\.in/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	91	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	92	print STDERR "\n*** Deprecated macro encountered - rewrite needed\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	93	print STDERR "*** $_\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	94	die "*** Processing abandoned\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	95	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	96
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	97	# Instead of .br, relevent "literal" sections are enclosed in .nf/.fi.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	98
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	99	elsif (/^\.nf/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	100	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	101	$innf = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	102	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	103
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	104	elsif (/^\.fi/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	105	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	106	$innf = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	107	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	108
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	109	# Handling .sp is subtle. If it is inside a literal section, do nothing if
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	110	# the next line is a non literal text line; similarly, if not inside a
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	111	# literal section, do nothing if a literal follows. The point being that
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	112	# the <pre> and </pre> that delimit literal sections will do the spacing.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	113	# Always skip if no previous output.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	114
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	115	elsif (/^\.sp/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	116	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	117	if ($wrotetext)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	118	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	119	$_ = <STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	120	if ($inpre)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	121	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	122	print TEMP "\n" if (/^[\s.]/);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	123	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	124	else
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	125	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	126	print TEMP "<br>\n<br>\n" if (!/^[\s.]/);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	127	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	128	redo; # Now process the lookahead line we just read
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	129	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	130	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	131	elsif (/^\.TP/ \|\| /^\.PP/ \|\| /^\.P/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	132	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	133	&new_para();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	134	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	135	elsif (/^\.SH\s("?)(.)\1/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	136	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	137	# Ignore the NAME section
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	138	if ($2 =~ /^NAME\b/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	139	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	140	<STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	141	next;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	142	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	143
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	144	&end_para();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	145	my($title) = &do_line($2);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	146	if ($toc)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	147	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	148	printf("<li><a name=\"TOC%d\" href=\"#SEC%d\">$title</a>\n",
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	149	$ref, $ref);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	150	printf TEMP ("<br><a name=\"SEC%d\" href=\"#TOC1\">$title</a><br>\n",
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	151	$ref, $ref);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	152	$ref++;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	153	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	154	else
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	155	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	156	print TEMP "<br><b>\n$title\n</b><br>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	157	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	158	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	159	elsif (/^\.SS\s("?)(.)\1/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	160	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	161	&end_para();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	162	my($title) = &do_line($2);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	163	print TEMP "<br><b>\n$title\n</b><br>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	164	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	165	elsif (/^\.B\s(.)/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	166	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	167	&new_para() if (!$inpara);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	168	$_ = &do_line($1);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	169	s/"(.*?)"/$1/g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	170	print TEMP "<b>$_</b>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	171	$wrotetext = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	172	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	173	elsif (/^\.I\s(.)/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	174	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	175	&new_para() if (!$inpara);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	176	$_ = &do_line($1);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	177	s/"(.*?)"/$1/g;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	178	print TEMP "<i>$_</i>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	179	$wrotetext = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	180	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	181
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	182	# A comment that starts "HREF" takes the next line as a name that
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	183	# is turned into a hyperlink, using the text given, which might be
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	184	# in a special font. If it ends in () or (digits) or punctuation, they
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	185	# aren't part of the link.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	186
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	187	elsif (/^\.\\"\s*HREF/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	188	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	189	$_=<STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	190	chomp;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	191	$_ = &do_line($_);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	192	$_ =~ s/\s+$//;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	193	$_ =~ /^(?:<.>)?([^<(]+)(?:)?(?:<\/.>)?(?:$\d+$)?[.,;:]?$/;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	194	print TEMP "<a href=\"$1.html\">$_</a>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	195	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	196
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	197	# A comment that starts "HTML" inserts literal HTML
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	198
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	199	elsif (/^\.\\"\sHTML\s(.*)/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	200	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	201	print TEMP $1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	202	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	203
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	204	# A comment that starts < inserts that HTML at the end of the
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	205	# next input line - so as not to get a newline between them.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	206
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	207	elsif (/^\.\\"\s(<.>)/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	208	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	209	my($markup) = $1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	210	$_=<STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	211	chomp;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	212	$_ = &do_line($_);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	213	$_ =~ s/\s+$//;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	214	print TEMP "$_$markup\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	215	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	216
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	217	# A comment that starts JOIN joins the next two lines together, with one
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	218	# space between them. Then that line is processed. This is used in some
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	219	# displays where two lines are needed for the "man" version. JOINSH works
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	220	# the same, except that it assumes this is a shell command, so removes
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	221	# continuation backslashes.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	222
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	223	elsif (/^\.\\"\s*JOIN(SH)?/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	224	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	225	my($one,$two);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	226	$one = <STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	227	$two = <STDIN>;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	228	$one =~ s/\s\\e\s$// if (defined($1));
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	229	chomp($one);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	230	$two =~ s/^\s+//;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	231	$_ = "$one $two";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	232	redo; # Process the joined lines
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	233	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	234
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	235	# Ignore anything not recognized
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	236
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	237	next;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	238	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	239
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	240	# Line does not begin with a dot. Replace blank lines with new paragraphs
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	241
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	242	if (/^\s*$/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	243	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	244	&end_para() if ($wrotetext);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	245	next;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	246	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	247
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	248	# Convert fonts changes and output an ordinary line. Ensure that indented
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	249	# lines are marked as literal.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	250
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	251	$_ = &do_line($_);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	252	&new_para() if (!$inpara);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	253
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	254	if (/^\s/)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	255	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	256	if (!$inpre)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	257	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	258	print TEMP "<pre>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	259	$inpre = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	260	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	261	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	262	elsif ($inpre)
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	263	{
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	264	print TEMP "</pre>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	265	$inpre = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	266	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	267
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	268	# Add <br> to the end of a non-literal line if we are within .nf/.fi
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	269
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	270	$_ .= "<br>\n" if (!$inpre && $innf);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	271
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	272	print TEMP;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	273	$wrotetext = 1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	274	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	275
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	276	# The TOC, if present, will have been written - terminate it
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	277
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	278	print "</ul>\n" if ($toc);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	279
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	280	# Copy the remainder to the standard output
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	281
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	282	close(TEMP);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	283	open(TEMP, "/tmp/$$") \|\| die "Can't open /tmp/$$ for input\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	284
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	285	print while (<TEMP>);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	286
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	287	print <<End ;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	288	<p>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	289	Return to the <a href="index.html">PCRE index page</a>.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	290	</p>
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	291	End
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	292
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	293	close(TEMP);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	294	unlink("/tmp/$$");
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	295
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	296	# End

author	Tom Sutcliffe <thomas.sutcliffe@accenture.com>
	Tue, 07 Dec 2010 17:29:09 +0000
changeset 90	ceac7084e2e5
parent 0	7f656887cf89
permissions	-rw-r--r--