source: git/doc/cl2html.pl @ c7bba3d

RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-datawalls-data-hanging-as-warning
Last change on this file since c7bba3d was 0f125da, checked in by Olly Betts <olly@…>, 22 years ago

doc/cad3d.sgml: update to reflect the fact that Compass can now read the
PLT files we write.

doc/*.htm: use the CSS code to set a sans-serif font on all the pages.

git-svn-id: ​file:///home/survex-svn/survex/trunk@1989 4b37db11-9a0c-4f06-9ece-9ab7cdaee568
  • Property mode set to 100755
File size: 1.1 KB
Line 
1#!/usr/bin/perl -w
2use strict;
3
4# run on the output of:
5# cvs2cl --separate-header --no-wrap
6# or vanilla cvs2cl it seems...
7
8my $title = 'ChangeLog';
9$title = "$ARGV[0] $title" if defined $ARGV[0];
10 
11print <<END;
12<HTML><HEAD>
13<TITLE>$title</TITLE>
14<STYLE type="text/css"><!--
15BODY, TD, CENTER, UL, OL {font-family: sans-serif;}
16-->
17</STYLE>
18</HEAD><BODY BGCOLOR=white TEXT=black>
19
20<dl>
21END
22
23my $rec;
24
25while (<STDIN>) {
26    if (/^\d/) {
27        print_entry($rec) if defined($rec);
28        $rec = '';
29    }
30    $rec .= $_;
31}
32print_entry($rec) if defined($rec);
33
34print <<END;
35</dl>
36
37</BODY>
38</HTML>
39END
40
41sub print_entry {
42    my ($hdr, $rec) = split /\n/, shift, 2;
43    $hdr = html($hdr);
44    $hdr =~ s/  /&nbsp;&nbsp;/;
45    $hdr =~ s/  +/ /g;
46    print "<dt>", $hdr, "</dt>\n";
47    $rec =~ s/^\s*\*\s*//;
48    $rec = html($rec);
49    $rec =~ s/\s*\n\n\s*/<p>/g;
50    $rec =~ s/^\s*/<p>/;
51    $rec =~ s/\s*$/<p>/;
52    $rec =~ s/^\s+//mg;
53    $rec =~ s/\s+$//mg;
54    $rec =~ s/  +/ /g;
55    print "<dd>", $rec, "</dd>\n";
56}
57
58sub html {
59    my $t = shift;
60    $t =~ s/&/&amp;/g;
61    $t =~ s/</&lt;/g;
62    $t =~ s/>/&gt;/g;
63    return $t;
64}
Note: See TracBrowser for help on using the repository browser.