suntouch-manpages.pl revision 1577
326N/A#!/usr/perl5/bin/perl -w
326N/A
1276N/A#
326N/A# Copyright (c) 2006, 2015, Oracle and/or its affiliates. All rights reserved.
1276N/A#
326N/A# Permission is hereby granted, free of charge, to any person obtaining a
326N/A# copy of this software and associated documentation files (the "Software"),
919N/A# to deal in the Software without restriction, including without limitation
919N/A# the rights to use, copy, modify, merge, publish, distribute, sublicense,
919N/A# and/or sell copies of the Software, and to permit persons to whom the
919N/A# Software is furnished to do so, subject to the following conditions:
919N/A#
919N/A# The above copyright notice and this permission notice (including the next
919N/A# paragraph) shall be included in all copies or substantial portions of the
919N/A# Software.
919N/A#
919N/A# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
919N/A# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
919N/A# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
919N/A# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
919N/A# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
919N/A# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
919N/A# DEALINGS IN THE SOFTWARE.
919N/A#
326N/A#
326N/A
326N/A# Updates manual pages to include standard Solaris man page sections
326N/A#
493N/A# Arguments:
326N/A# -a '{attribute, value}, ...' - add entries to Attributes section table
970N/A# -o '{attribute, value}, ...' - override previous entries in
970N/A# Attributes section table
970N/A# -l libname - add library line to synopsis
970N/A# -c libname - add pkgconfig line to synopsis
326N/A# -p path - add path to command in synopsis
1276N/A# -r '{text, replacement}' - replace text with replacement
326N/A
911N/Ause Getopt::Long;
1276N/Ause integer;
1276N/Ause strict;
1276N/A
911N/Amy @attributes;
326N/Amy @overrides;
326N/Amy @replacements;
326N/Amy $library;
1068N/Amy $pkgconfig;
1068N/Amy $synpath;
1068N/A
1068N/Amy $result = GetOptions('a|attribute=s' => \@attributes,
1068N/A 'o|override=s' => \@overrides,
326N/A 'r|replace=s' => \@replacements,
1276N/A 'l|library=s' => \$library,
493N/A 'c|pkg-config=s' => \$pkgconfig,
326N/A 'p|path=s' => \$synpath);
970N/A
970N/Amy $add_attributes = 0;
970N/Amy $attributes_table;
326N/A
if (scalar(@attributes) + scalar(@overrides) > 0) {
$add_attributes = 1;
$attributes_table = &get_attributes_table(\@attributes, \@overrides);
}
# Reference to generated function to substitute text replacements
my $text_subref;
if (scalar(@replacements) > 0) {
$text_subref = &get_text_substitutions(\@replacements);
}
my $add_library_to_synopsis = 0;
if (defined($library) && $library ne '') {
$add_library_to_synopsis = 1;
}
my $add_pkgconfig_to_synopsis = 0;
if (defined($pkgconfig) && $pkgconfig ne '') {
$add_pkgconfig_to_synopsis = 1;
}
my $add_path_to_synopsis = 0;
if (defined($synpath)) {
$add_path_to_synopsis = 1;
}
my $filename;
while ($filename = shift) {
rename($filename, "$filename.orig")
|| die "Cannot rename $filename to $filename.orig: $!";
open(IN, '<', "$filename.orig")
|| die "Cannot read $filename.orig: $!";
open(OUT, '>', $filename)
|| die "Cannot write to $filename: $!";
my $firstline = <IN>;
my $is_shadow = 0;
if ($add_attributes > 0) {
# Check for man page preprocessor list - if found, make sure t is in it for
# table processing, if not found, add one;
if ($firstline =~ m/\'\\\"/) {
# Found preprocessor list
if ($firstline =~ m/t/) {
# Do nothing - tbl preprocessing already selected
} else {
chomp($firstline);
$firstline .= "t\n";
}
} elsif ($firstline =~ m/^\.so /) {
# Shadow man page, do not add table header or footer
$is_shadow = 1;
} else {
# No preprocessor list found
print OUT q('\" t), "\n";
}
}
if ($text_subref) {
$firstline = &$text_subref($firstline);
}
print OUT $firstline;
my $nextline;
while ($nextline = <IN>) {
if ($text_subref) {
$nextline = &$text_subref($nextline);
}
print OUT $nextline;
if ($nextline =~ m/.SH[\s "]*(SYNOPSIS|SYNTAX)/) {
if ($add_library_to_synopsis) {
print OUT ".nf\n",
q(\fBcc\fR [ \fIflag\fR\&.\&.\&. ] \fIfile\fR\&.\&.\&. \fB\-l),
$library, q(\fR [ \fIlibrary\fR\&.\&.\&. ]), "\n.fi\n";
if ($add_pkgconfig_to_synopsis) {
print OUT (
".sp\n",
".nf\n",
q(\fBcc\fR [ \fIflag\fR\&.\&.\&. ] `pkg-config --cflags ),
$pkgconfig,
q(` \fIfile\fR\&.\&.\&. `pkg-config --libs ),
$pkgconfig,
"\` \n.fi\n");
}
}
elsif ($add_path_to_synopsis) {
$nextline = <IN>;
$nextline =~ s/^(\.B[IR]*\s+\"?)/$1$synpath/;
$nextline =~ s/^(\\fB)/$1$synpath/;
print OUT $nextline;
}
}
}
if ($add_attributes && !$is_shadow) {
print OUT $attributes_table;
}
close(IN);
close(OUT);
}
sub get_attributes_table {
my ($attributes_ref, $overrides_ref) = @_;
my $attributes_table = q{
.\\" Begin Oracle Solaris update
.SH "ATTRIBUTES"
See \fBattributes\fR(7) for descriptions of the following attributes:
.sp
.TS
allbox;
cw(2.750000i)| cw(2.750000i)
lw(2.750000i)| lw(2.750000i).
ATTRIBUTE TYPE ATTRIBUTE VALUE
<attributes>
.TE
.sp
.\\" End Oracle Solaris update
};
my $attribute_entries = "";
my @attribute_pairs = parse_attributes_list($attributes_ref);
my @overrides_pairs = parse_attributes_list($overrides_ref);
foreach my $o (@overrides_pairs) {
my ($oname, $ovalue) = @{$o};
my $found_match = 0;
foreach my $a (@attribute_pairs) {
if ($a->[0] eq $oname) {
$a->[1] = $ovalue;
$found_match++;
}
}
if ($found_match == 0) {
push @attribute_pairs, $o;
}
}
foreach my $a (@attribute_pairs) {
my ($name, $value) = @{$a};
$attribute_entries .= $name . "\t" . $value . "\n";
}
$attributes_table =~ s/<attributes>\n/$attribute_entries/;
return $attributes_table;
}
sub parse_attributes_list {
my ($list_ref) = @_;
my $list_string = join(" ", @{$list_ref});
$list_string =~ s/^\s*{//;
$list_string =~ s/}\s*$//;
my @attribs = split /}\s*{/, $list_string;
my @attrib_pairs = ();
foreach my $a (@attribs) {
my @pair = split /,\s*/, $a, 2; # pair = name, value
push @attrib_pairs, \@pair;
}
return @attrib_pairs;
}
sub get_text_substitutions {
my ($replacements_ref) = @_;
my @replacement_pairs = parse_attributes_list($replacements_ref);
my @subst_pattern_list = ();
foreach my $r (@replacement_pairs) {
my ($text_in, $text_out) = @{$r};
push @subst_pattern_list, " s{$text_in}{$text_out}go;";
}
my $subst_function = join("\n",
'sub {',
' $_ = $_[0]; ',
@subst_pattern_list,
' return $_;',
'}');
return eval $subst_function;
}