[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp/t test_utils.pl
|
From: |
Patrice Dumas |
|
Subject: |
texinfo/tp/t test_utils.pl |
|
Date: |
Mon, 13 Feb 2012 00:45:23 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 12/02/13 00:45:23
Modified files:
tp/t : test_utils.pl
Log message:
Improve output for html and when there is a documentencoding.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.113&r2=1.114
Patches:
Index: test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -b -r1.113 -r1.114
--- test_utils.pl 27 Jan 2012 18:50:22 -0000 1.113
+++ test_utils.pl 13 Feb 2012 00:45:23 -0000 1.114
@@ -120,6 +120,45 @@
<!DOCTYPE texinfo PUBLIC "-//GNU//DTD TexinfoML V4.12//EN"
"http://www.gnu.org/software/texinfo/dtd/4.12/texinfo.dtd";>
<texinfo xml:lang="en">
', "</texinfo>\n"],
+ 'html_text' => ['<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01
Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd";>
+<html>
+<head>
+<title>Untitled Document</title>
+<meta name="resource-type" content="document">
+<meta name="distribution" content="global">
+<meta name="Generator" content="tp">
+<style type="text/css">
+<!--
+a.summary-letter {text-decoration: none}
+blockquote.smallquotation {font-size: smaller}
+div.display {margin-left: 3.2em}
+div.example {margin-left: 3.2em}
+div.lisp {margin-left: 3.2em}
+div.smalldisplay {margin-left: 3.2em}
+div.smallexample {margin-left: 3.2em}
+div.smalllisp {margin-left: 3.2em}
+pre.display {font-family: serif}
+pre.format {font-family: serif}
+pre.menu-comment {font-family: serif}
+pre.menu-preformatted {font-family: serif}
+pre.smalldisplay {font-family: serif; font-size: smaller}
+pre.smallexample {font-size: smaller}
+pre.smallformat {font-family: serif; font-size: smaller}
+pre.smalllisp {font-size: smaller}
+span.nocodebreak {white-space:pre}
+span.nolinebreak {white-space:pre}
+span.roman {font-family:serif; font-weight:normal}
+span.sansserif {font-family:sans-serif; font-weight:normal}
+ul.no-bullet {list-style: none}
+-->
+</style>
+</head>
+
+<body lang="en" bgcolor="#FFFFFF" text="#000000" link="#0000FF"
vlink="#800080" alink="#FF0000">
+',
+'</body>
+</html>
+']
);
our $arg_generate;
@@ -704,6 +743,10 @@
if (!open (OUTFILE, ">$outfile")) {
warn "Open $outfile: $!\n";
} else {
+ my $info = $parser->global_informations();
+ if ($info and $info->{'perl_encoding'}) {
+ binmode(OUTFILE, ":encoding($info->{'perl_encoding'})");
+ }
if ($outfile_preamble{$format}) {
print OUTFILE $outfile_preamble{$format}->[0];
}
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- texinfo/tp/t test_utils.pl,
Patrice Dumas <=