Tree - centos/artwork-archive - CentOS Git server

centos / artwork-archive

Blame Identity/Manual/repository.init

Blob History Raw

# -*-perl-*-

728c6d

# repository.init --

728c6d

# -iso

728c6d

# if set, ISO8859 characters are used for special symbols (like copyright, etc)

728c6d

$USE_ISO = 1;

728c6d

# Extensions

728c6d

$NODE_FILE_EXTENSION = "xhtml";

728c6d

$EXTENSION = "xhtml";

728c6d

# Horizontal rules.

728c6d

$DEFAULT_RULE = '
';

728c6d

$SMALL_RULE = $DEFAULT_RULE;

728c6d

$MIDDLE_RULE = $DEFAULT_RULE;

728c6d

$BIG_RULE = $DEFAULT_RULE;

728c6d

$print_page_head	      = \&T2H_XHTML_print_page_head;

728c6d

$print_page_foot	      = \&T2H_XHTML_print_page_foot;

728c6d

$print_frame              = \&T2H_XHTML_print_frame;

728c6d

$button_icon_img	      = \&T2H_XHTML_button_icon_img;

728c6d

#FIXME update once it is more stabilized in texi2html.init

728c6d

sub T2H_XHTML_print_page_head

728c6d

    my $fh = shift;

728c6d

    my $longtitle = "$Texi2HTML::THISDOC{'title_unformatted'}";

728c6d

    $longtitle .= ": $Texi2HTML::UNFORMATTED{'This'}" if exists $Texi2HTML::UNFORMATTED{'This'};

728c6d

    $T2H_LANG='en';

728c6d

    print $fh <

728c6d

    PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

728c6d

    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

728c6d

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="$T2H_LANG" lang="$T2H_LANG">

728c6d

<head>

728c6d

    <title>$longtitle</title>

728c6d

    <meta name="description" content="$longtitle" />

728c6d

    <meta name="keywords" content="$longtitle" />

728c6d

    <meta name="resource-type" content="document" />

728c6d

    <meta name="distribution" content="global" />

728c6d

    <meta name="generator" content="$Texi2HTML::THISDOC{program}" />

728c6d

    <meta name="copyright" content="2009-2011 Alain Reguera Delgado" />

728c6d

    <link href="/home/centos/artwork/trunk/Identity/Manual/repository.css" rel="stylesheet" type="text/css" media="screen projection" />

728c6d

</head>

728c6d

<body>

728c6d

EOT

728c6d

sub T2H_XHTML_print_page_foot

728c6d

    my $fh = shift;

728c6d

    print $fh <

728c6d

</body>

728c6d

</html>

728c6d

EOT

728c6d

# / in

728c6d

sub T2H_XHTML_button_icon_img

728c6d

    my $button = shift;

728c6d

    my $icon = shift;

728c6d

    my $name = shift;

728c6d

    return '' if (!defined($icon));

728c6d

    if (defined($name) && $name)

728c6d

        $name = ": $name";

728c6d

    else

728c6d

        $name = '';

728c6d

    $button = "" if (!defined ($button));

728c6d

    return qq{};

728c6d

$simple_map{'*'} = '
';

728c6d

# formatting functions

728c6d

$def_line	       = \&t2h_xhtml_def_line;

728c6d

$index_summary     = \&t2h_xhtml_index_summary;

728c6d

$image             = \&t2h_xhtml_image;

728c6d

# need / in

728c6d

sub t2h_xhtml_image($$$)

728c6d

   my $file = shift;

728c6d

   my $base = shift;

728c6d

   my $preformatted = shift;

728c6d

   return "[ $base ]" if ($preformatted);

728c6d

   return "";

728c6d

# process definition commands line @deffn for example

728c6d

# <u> replaced by

728c6d

sub t2h_xhtml_def_line($$$$$)

728c6d

   my $category = shift;

728c6d

   my $name = shift;

728c6d

   my $type = shift;

728c6d

   my $arguments = shift;

728c6d

   my $index_label = shift;

728c6d

   $index_label = '' if (!defined($index_label));

728c6d

   $name = '' if (!defined($name) or ($name =~ /^\s*$/));

728c6d

   $type = '' if (!defined($type) or $type =~ /^\s*$/);

728c6d

   if (!defined($arguments) or $arguments =~ /^\s*$/)

728c6d

       $arguments = '';

728c6d

   else

728c6d

       $arguments = '' . $arguments . '';

728c6d

   my $type_name = '';

728c6d

   $type_name = " $type" if ($type ne '');

728c6d

   $type_name .= ' ' . $name . '' if ($name ne '');

728c6d

   $type_name .= $arguments . "\n";

728c6d

   if (! $DEF_TABLE)

728c6d

       return ''. '' . $category . ':' . $type_name . $index_label . "
\n";

728c6d

   else

728c6d

       return "\n" . $type_name .

728c6d

       "\n" . $category . $index_label . "\n" . "\n";

728c6d

# There is a br which needs /

728c6d

sub t2h_xhtml_index_summary($$)

728c6d

    my $alpha = shift;

728c6d

    my $nonalpha = shift;

728c6d

    my $join = '';

728c6d

    my $nonalpha_text = '';

728c6d

    my $alpha_text = '';

728c6d

    $join = "   \n
\n" if (@$nonalpha and @$alpha);

728c6d

    if (@$nonalpha)

728c6d

       $nonalpha_text = join("\n   \n", @$nonalpha) . "\n";

728c6d

    if (@$alpha)

728c6d

       $alpha_text = join("\n   \n", @$alpha) . "\n   \n";

728c6d

    #I18n

728c6d

    return "Jump to:   " .

728c6d

    $nonalpha_text . $join . $alpha_text . '';

728c6d

centos / artwork-archive

Source Code

Blame Identity/Manual/repository.init