Add podToHtml.pl script
New rules to use this for .pod and .pm conversions Replace use of pod2html in ca/client/perl
This commit is contained in:
committed by
Ralph Lange
parent
b27439ce7b
commit
97c6d1a903
@@ -13,6 +13,7 @@ SUBST_SUFFIX ?= .substitutions
|
|||||||
|
|
||||||
##################################################### vpath
|
##################################################### vpath
|
||||||
|
|
||||||
|
vpath %.pm $(USR_VPATH) $(SRC_DIRS) $(dir $(DBD))
|
||||||
vpath %.pod $(USR_VPATH) $(SRC_DIRS) $(dir $(DBD))
|
vpath %.pod $(USR_VPATH) $(SRC_DIRS) $(dir $(DBD))
|
||||||
vpath %.dbd $(USR_VPATH) $(SRC_DIRS) $(dir $(DBD))
|
vpath %.dbd $(USR_VPATH) $(SRC_DIRS) $(dir $(DBD))
|
||||||
vpath %.db $(USR_VPATH) $(SRC_DIRS) $(dir $(DB))
|
vpath %.db $(USR_VPATH) $(SRC_DIRS) $(dir $(DB))
|
||||||
@@ -407,6 +408,16 @@ $(COMMON_DIR)/%.html: %.dbd.pod $(TOOLS)/dbdToHtml.pl
|
|||||||
$(PERL) $(TOOLS)/dbdToHtml.pl $(DBDFLAGS) -o $(notdir $@) $<
|
$(PERL) $(TOOLS)/dbdToHtml.pl $(DBDFLAGS) -o $(notdir $@) $<
|
||||||
@$(MV) $(notdir $@) $@
|
@$(MV) $(notdir $@) $@
|
||||||
|
|
||||||
|
$(COMMON_DIR)/%.html: %.pod $(TOOLS)/podToHtml.pl
|
||||||
|
@$(RM) $(notdir $@)
|
||||||
|
$(PERL) $(TOOLS)/podToHtml.pl -o $(notdir $@) $<
|
||||||
|
@$(MV) $(notdir $@) $@
|
||||||
|
|
||||||
|
$(COMMON_DIR)/%.html: %.pm $(TOOLS)/podToHtml.pl
|
||||||
|
@$(RM) $(notdir $@)
|
||||||
|
$(PERL) $(TOOLS)/podToHtml.pl -o $(notdir $@) $<
|
||||||
|
@$(MV) $(notdir $@) $@
|
||||||
|
|
||||||
.PRECIOUS: $(COMMON_DIR)/%.html
|
.PRECIOUS: $(COMMON_DIR)/%.html
|
||||||
|
|
||||||
##################################################### DB files
|
##################################################### DB files
|
||||||
|
|||||||
@@ -61,10 +61,6 @@ ifdef T_A
|
|||||||
$(RM) $@ $@_new
|
$(RM) $@ $@_new
|
||||||
$(PERL) $(EXTUTILS)/xsubpp -typemap $(EXTUTILS)/typemap $< > $@_new && $(MV) $@_new $@
|
$(PERL) $(EXTUTILS)/xsubpp -typemap $(EXTUTILS)/typemap $< > $@_new && $(MV) $@_new $@
|
||||||
|
|
||||||
%.html: ../%.pm
|
|
||||||
$(RM) $@
|
|
||||||
podchecker $< && pod2html --infile=$< --outfile=$@
|
|
||||||
|
|
||||||
$(INSTALL_PERL_MODULES)/$(PERL_ARCHPATH)/%: %
|
$(INSTALL_PERL_MODULES)/$(PERL_ARCHPATH)/%: %
|
||||||
$(ECHO) "Installing loadable shared library $@"
|
$(ECHO) "Installing loadable shared library $@"
|
||||||
@$(INSTALL_LIBRARY) -d -m $(LIB_PERMISSIONS) $< $(INSTALL_PERL_MODULES)/$(PERL_ARCHPATH)
|
@$(INSTALL_LIBRARY) -d -m $(LIB_PERMISSIONS) $< $(INSTALL_PERL_MODULES)/$(PERL_ARCHPATH)
|
||||||
|
|||||||
@@ -49,6 +49,7 @@ PERL_SCRIPTS += dbdToMenuH.pl
|
|||||||
PERL_SCRIPTS += dbdToRecordtypeH.pl
|
PERL_SCRIPTS += dbdToRecordtypeH.pl
|
||||||
PERL_SCRIPTS += dbdExpand.pl
|
PERL_SCRIPTS += dbdExpand.pl
|
||||||
PERL_SCRIPTS += dbdToHtml.pl
|
PERL_SCRIPTS += dbdToHtml.pl
|
||||||
|
PERL_SCRIPTS += podToHtml.pl
|
||||||
PERL_SCRIPTS += registerRecordDeviceDriver.pl
|
PERL_SCRIPTS += registerRecordDeviceDriver.pl
|
||||||
|
|
||||||
HTMLS = style.css
|
HTMLS = style.css
|
||||||
|
|||||||
47
src/tools/podToHtml.pl
Normal file
47
src/tools/podToHtml.pl
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
#*************************************************************************
|
||||||
|
# Copyright (c) 2013 UChicago Argonne LLC, as Operator of Argonne
|
||||||
|
# National Laboratory.
|
||||||
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
||||||
|
# in file LICENSE that is included with this distribution.
|
||||||
|
#*************************************************************************
|
||||||
|
|
||||||
|
# $Id$
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use Getopt::Std;
|
||||||
|
use Pod::Simple::HTML;
|
||||||
|
|
||||||
|
our ($opt_o);
|
||||||
|
|
||||||
|
$Getopt::Std::OUTPUT_HELP_VERSION = 1;
|
||||||
|
&HELP_MESSAGE if !getopts('o:') || @ARGV != 1;
|
||||||
|
|
||||||
|
my $infile = shift @ARGV;
|
||||||
|
|
||||||
|
if (!$opt_o) {
|
||||||
|
($opt_o = $infile) =~ s/\. \w+ $/.html/x;
|
||||||
|
$opt_o =~ s/^.*\///;
|
||||||
|
}
|
||||||
|
|
||||||
|
open my $out, '>', $opt_o or
|
||||||
|
die "Can't create $opt_o: $!\n";
|
||||||
|
|
||||||
|
my $podHtml = Pod::Simple::HTML->new();
|
||||||
|
|
||||||
|
$podHtml->html_css('style.css');
|
||||||
|
$podHtml->perldoc_url_prefix('');
|
||||||
|
$podHtml->perldoc_url_postfix('.html');
|
||||||
|
$podHtml->set_source($infile);
|
||||||
|
$podHtml->output_string(\my $html);
|
||||||
|
$podHtml->run;
|
||||||
|
|
||||||
|
print $out $html;
|
||||||
|
close $out;
|
||||||
|
|
||||||
|
sub HELP_MESSAGE {
|
||||||
|
print STDERR "Usage: podToHtml.pl [-o file.html] file.pod\n";
|
||||||
|
exit 2;
|
||||||
|
}
|
||||||
@@ -80,6 +80,7 @@ DIV {
|
|||||||
|
|
||||||
DT {
|
DT {
|
||||||
margin-top: 1em;
|
margin-top: 1em;
|
||||||
|
font-weight: bold;
|
||||||
}
|
}
|
||||||
|
|
||||||
.credits TD {
|
.credits TD {
|
||||||
|
|||||||
Reference in New Issue
Block a user