summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl')
-rwxr-xr-xmacros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl205
1 files changed, 0 insertions, 205 deletions
diff --git a/macros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl b/macros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl
deleted file mode 100755
index a101681f5b..0000000000
--- a/macros/latex/contrib/koma-script/source-doc/bin/genhtmlidx.pl
+++ /dev/null
@@ -1,205 +0,0 @@
-#! /usr/bin/perl -w
-eval 'exec perl -S $0 ${1+"$@"}'
- if 0; #$running_under_some_shell
-
-# ======================================================================
-# genhtmlidx.pl
-# Copyright (c) Markus Kohm, 2002-2019
-#
-# This file is part of the LaTeX2e KOMA-Script bundle.
-#
-# This work may be distributed and/or modified under the conditions of
-# the LaTeX Project Public License, version 1.3c of the license.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3c or later is part of all distributions of LaTeX
-# version 2005/12/01 or later and of this work.
-#
-# This work has the LPPL maintenance status "author-maintained".
-#
-# The Current Maintainer and author of this work is Markus Kohm.
-#
-# This work consists of all files listed in manifest.txt.
-# ----------------------------------------------------------------------
-# genhtmlidx.pl
-# Copyright (c) Markus Kohm, 2002-2019
-#
-# Dieses Werk darf nach den Bedingungen der LaTeX Project Public Lizenz,
-# Version 1.3c, verteilt und/oder veraendert werden.
-# Die neuste Version dieser Lizenz ist
-# http://www.latex-project.org/lppl.txt
-# und Version 1.3c ist Teil aller Verteilungen von LaTeX
-# Version 2005/12/01 oder spaeter und dieses Werks.
-#
-# Dieses Werk hat den LPPL-Verwaltungs-Status "author-maintained"
-# (allein durch den Autor verwaltet).
-#
-# Der Aktuelle Verwalter und Autor dieses Werkes ist Markus Kohm.
-#
-# Dieses Werk besteht aus den in manifest.txt aufgefuehrten Dateien.
-# ======================================================================
-# This perl script generates a html file with an index using the
-# \newlabel entries at the aux files.
-#
-# Usage: genhtmlidx.pl <aux-file> ...
-# ----------------------------------------------------------------------
-# Dieses perl-Script erzeugt aus den \newlabel-Eintraegen der
-# aux-Dateien eine html-Datei mit einer Art Index.
-#
-# Verwendung: genhtmlidx.pl <aux-file> ...
-# ======================================================================
-
-use strict;
-
-my $auxfile;
-my @option;
-my @macro;
-my @environment;
-my @plength;
-my @variable;
-my @pagestyle;
-my @counter;
-my @floatstyle;
-my @fontelement;
-my @file;
-my @length;
-my @dohook;
-
-my $baselink;
-my $htmlhead;
-my $htmlend;
-my %titles;
-
-my $setup="";
-open SETUP,"<htmlsetup" || die "Cannot open htmlsetup!\n";
-while (<SETUP>) {
- $setup .= $_;
-}
-close SETUP;
-eval $setup;
-
-while ( $auxfile=shift ) {
- open AUX,"<$auxfile" or die "Cannot read $auxfile!\n";
- while (<AUX>) {
- my $line=$_;
- if ( /^\\newlabel\{(desc:[^\}]+)\}\{(.*)\}$/ ) {
- my $label=$1;
- my $refargs=$2;
- if ( $refargs =~ /^\{([^\{\}]*(\{((?:(?>[^\{\}]*)|(?1))*)\})*)\}\{([^\}]+)\}(.*)$/ ) {
- my $ref=$1;
- my $page=$4;
- my $rest=$5;
- if ( $rest =~ /^\{([^\{\}]*(\{((?:(?>[^\{\}]*)|(?1))*)\})*)\}\{([^\}]*)\}\{(.*)\}$/ ) {
- my $title=$1;
- my $anchor=$4;
- my $ignore=$5;
-# print STDERR "ref=\"$ref\", page=\"$page\", title=\"$title\", anchor=\"$anchor\", ignore=\"$ignore\"\n";
- my $entry;
- if ( $anchor =~ /^desc:([^.]+)\.([^.]+)\.([^.]+)$/ ) {
- $entry = "$3.$page.$1.$2";
- if ( "$2" eq "option" ) {
- my $i=$1;
- if ( $3 =~ /^([^=]+)=(.+)$/ ) {
- $entry = "$1.$page.$i.option";
- }
- push @option,$entry;
- } elsif ( "$2" eq "cmd" ) {
- push @macro,$entry;
- } elsif ( "$2" eq "env" ) {
- push @environment,$entry;
- } elsif ( "$2" eq "plength" ) {
- push @plength,$entry;
- } elsif ( "$2" eq "variable" ) {
- push @variable,$entry;
- } elsif ( "$2" eq "pagestyle" ) {
- push @pagestyle,$entry;
- } elsif ( "$2" eq "counter" ) {
- push @counter,$entry;
- } elsif ( "$2" eq "floatstyle" ) {
- push @floatstyle,$entry;
- } elsif ( "$2" eq "fontelement" ) {
- push @fontelement,$entry;
- } elsif ( "$2" eq "package" ) {
- push @file,$entry;
- } elsif ( "$2" eq "length" ) {
- push @length,$entry;
- } elsif ( "$2" eq "dohook" ) {
- push @dohook,$entry;
- } else {
- print STDERR "Unknown type $2!\n";
- }
- }
- }
- }
- }
- }
- close AUX;
-}
-
-sub process {
- my $group=shift;
- my $prefix=shift;
- my $arrayref=shift;
- my @entries=sort { $a cmp $b } @$arrayref;
- my $entry="";
- my $lastpage="";
- my $lastlink="";
- my $pageprefix="";
- if ( @entries > 0 ) {
- print " <h2><a name=\"$group\">$titles{$group}</a></h2>\n";
- print " <ul>\n";
- map {
- $_ =~ /^([^.]+)\.([^.]+)\.([^.]+)\.([^.]+)$/;
- if ( $entry ne $1 ) {
- print "</li>\n" if ( $entry ne "" );
- $entry=$1;
- $lastpage="";
- $lastlink="";
- $pageprefix="";
- print " <li><a name=\"$4.$entry\"></a><a href=\"\#$4.$entry\">$prefix$entry</a> &rarr;&nbsp;";
- }
- if ( ( $lastlink ne "$3.$4.$1" ) || ( $lastpage ne "$2" ) ) {
- print "$pageprefix<a href=\"$baselink\#desc:$3.$4.$1\">$2</a>";
- $lastlink="$3.$4.$1";
- $lastpage="$2";
- $pageprefix=", ";
- }
- } @entries;
- print "</li>\n" if ( $entry ne "" );
- print " </ul>\n";
- }
-}
-
-print $htmlhead;
-
-print " <ul>\n";
-print " <li><a href=\"#option\">$titles{option}</a></li>\n" if ( @option );
-print " <li><a href=\"#macro\">$titles{macro}</a></li>\n" if ( @macro );
-print " <li><a href=\"#environment\">$titles{environment}</a></li>\n" if ( @environment );
-print " <li><a href=\"#length\">$titles{length}</a></li>\n" if ( @length );
-print " <li><a href=\"#plength\">$titles{plength}</a></li>\n" if ( @plength );
-print " <li><a href=\"#variable\">$titles{variable}</a></li>\n" if ( @variable );
-print " <li><a href=\"#pagestyle\">$titles{pagestyle}</a></li>\n" if ( @pagestyle );
-print " <li><a href=\"#counter\">$titles{counter}</a></li>\n" if ( @counter );
-print " <li><a href=\"#floatstyle\">$titles{floatstyle}</a></li>\n" if ( @floatstyle );
-#print " <li><a href=\"#fontelement\">$titles{fontelement}</a></li>\n" if ( @fontelement );
-#print " <li><a href=\"#file\">$titles{file}</a></li>\n" if ( @file );
-#print " <li><a href=\"#dohook\">$titles{dohook}</a></li>\n" if ( @dohook );
-print " </ul>\n";
-
-process "option","",\@option;
-process "macro","\\",\@macro;
-process "environment","",\@environment;
-process "length","",\@length;
-process "plength","",\@plength;
-process "variable","",\@variable;
-process "pagestyle","",\@pagestyle;
-process "counter","",\@counter;
-process "floatstyle","",\@floatstyle;
-#process "fontelement","",\@fontelement;
-print STDERR "Ignoring index: $titles{fontelement}\n" if ( @fontelement );
-#process "file","",\@file;
-print STDERR "Ignoring index: $titles{files}\n" if ( @file );
-#process "dohook","",\@dohook;
-print STDERR "Ignoring index: $titles{dohook}\n" if ( @dohook );
-print $htmlend;