diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/svninfo/svninfo.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/svninfo/svninfo.perl | 264 |
1 files changed, 0 insertions, 264 deletions
diff --git a/Master/texmf-dist/doc/latex/svninfo/svninfo.perl b/Master/texmf-dist/doc/latex/svninfo/svninfo.perl deleted file mode 100644 index 36cacafe7b9..00000000000 --- a/Master/texmf-dist/doc/latex/svninfo/svninfo.perl +++ /dev/null @@ -1,264 +0,0 @@ - -############################################################################### -# SVNINFO.PERL -# Copyright 1995 Dr. Juergen Vollmer <Juergen.Vollmer@acm.org> -# Copyright 2003-2005 Achim D. Brucker <brucker@freiburg.linux.de> -# -# Extension to LaTeX2HTML to translate LaTeX commands of the -# svninfo -# package to equivalent HTML commands. -# -# This is file `svninfo.perl', -# generated with the docstrip utility. -# -# The original source files were: -# -# svninfo.dtx (with options: `perl') -# -# IMPORTANT NOTICE: -# -# For the copyright see the source file. -# -# Any modified versions of this file must be renamed -# with new filenames distinct from svninfo.perl. -# -# For distribution of the original source see the terms -# for copying and modification in the file svninfo.dtx. -# -# This generated file may be distributed as long as the -# original source files, as listed above, are part of the -# same distribution. (The sources need not necessarily be -# in the same archive or directory.) -# -# $Id: svninfo.dtx 1168 2005-04-08 06:18:47Z brucker $ -# -############################################################################### - -package svninfo; - -($Dummy1,$PackageVersionDate,$PackageVersionTime,$Dummy2) = - split (/ /,'$Date: 2005-04-08 08:18:47 +0200 (Fr, 08 Apr 2005) $'); - -print "\n\t svninfo style interface for LaTeX2HTML, $PackageVersionDate\n"; - -# set defaults options -$OptionFancy = 1; -$OptionToday = 1; -$OptionLong = 1; - -# set default values -$Date = `date '+%Y/%m/%d'`; -$Time = `date '+%H:%M:%S'`; -$File = "--sourcefile--"; -$Revision = "--revision--"; -$Owner = "--owner--"; -$Year = `date '+%Y'`; -$Month = `date '+%m'`; -$Day = `date '+%d'`; -$LongDate = $Date; - -sub SetAddress -{ - $main::address_data[1] = "Revision: $svninfo::Revision, $svninfo::LongDate"; - # Supply your own string if you don't like the default <Name> <Date> - $main::ADDRESS = "<I>$main::address_data[0] <BR>\n$main::address_data[1]</I>"; -} -if ($SetAddressProc == "") { - $SetAddressProc = \&svninfo::SetAddress; -} -sub make_cmds -{ - my $cmd; - foreach $cmd (File,Revision,Date,Time,Owner,Year,Month,Day,LongDate) { - eval "sub main::do_cmd_svnInfo$cmd { " - . 'my $val = $svninfo::' . "$cmd; " -# . 'printf STDERR "\ndo_cmd_svnInfo%s=%s\n", ' . $cmd .', $val;' - . "join('',\$val,\$_[0]);" - . "}"; - } -} - -@GermanMonthName = ('','Januar','Februar','März','April','Mai','Juni','Juli', - 'August','September','Oktober','November','Dezember'); -@EnglishMonthName = ('','January','February','March','April','May','June','July', - 'August','September','October','November','December'); -@FrenchMonthName = ('','Janvier','Février','Mars','Avril','Mai','Juin', - 'Juillet','Août','Septembre','Octobre','Novembre', - 'Décembre'); - -############################################################################### - -package main; - -# handling package options -sub do_svninfo_fancyhdr { $svninfo::OptionFancy = 1; } -sub do_svninfo_fancy { $svninfo::OptionFancy = 1; } -sub do_svninfo_nofancy { $svninfo::OptionFancy = 0; } -sub do_svninfo_today { $svninfo::OptionToday = 1; } -sub do_svninfo_notoday { $svninfo::OptionToday = 0; } -sub do_svninfo_short { $svninfo::OptionLong = 0; } -sub do_svninfo_long { $svninfo::OptionLong = 1; } - -# handling of LaTeX commands -sub do_cmd_svnInfo -{ - - local ($_) = @_; - - # printf STDERR "\ndo_cmd_svnInfo\n"; - - # see latex2html, procedure: substitute_meta_cmds, process_body_newcommand - # the format of the variable $new_command{cmd} is: - # $new_command{$cmd} = join(':!:',$argn,$body,$opt); - # note: opt = "}" means: Flag for no optional arg - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoFILE}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoREVISION}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoYEAR}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoMONTH}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoDAY}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoTIME}; - # printf STDERR "xxxxxxxxxxx `%s'\n", $new_command{svnInfoOWNER}; - - # the following assumes: LaTeX2HTML Version 99.1 release (March 30, 1999) - # may be later - my ($argn, $opt); - if (exists $new_command{svnInfoFILE}) { - ($argn, $svninfo::File, $opt) = split(/:!:/, $new_command{svnInfoFILE}); - } else { - $svninfo::File = $File - } - if (exists $new_command{svnInfoREVISION}) { - ($argn, $svninfo::Revision, $opt) = split(/:!:/, $new_command{svnInfoREVISION}); - } else { - $svninfo::Revision = $Revision - } - if (exists $new_command{svnInfoYEAR}) { - ($argn, $svninfo::Year, $opt) = split(/:!:/, $new_command{svnInfoYEAR}); - } else { - $svninfo::Year = $Year - } - if (exists $new_command{svnInfoMONTH}) { - ($argn, $svninfo::Month, $opt) = split(/:!:/, $new_command{svnInfoMONTH}); - } else { - $svninfo::Month = $Month - } - if (exists $new_command{svnInfoDAY}) { - ($argn, $svninfo::Day, $opt) = split(/:!:/, $new_command{svnInfoDAY}); - } else { - $svninfo::Day = $Day - } - if (exists $new_command{svnInfoTIME}) { - ($argn, $svninfo::Time, $opt) = split(/:!:/, $new_command{svnInfoTIME}); - } else { - $svninfo::Time = $Time - } - if (exists $new_command{svnInfoOWNER}) { - ($argn, $svninfo::Owner, $opt) = split(/:!:/, $new_command{svnInfoOWNER}); - } else { - $svninfo::Owner = $Owner - } - - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::File; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Revision; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Year; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Month; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Day; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Time; - # printf STDERR "yyyyyyyyyyy `%s'\n", $svninfo::Owner; - - # the following code is for oldfashioned latex2hmtl, not anymore supported - # format of $_: - # vvvvvv that's text following the SVN-Id-string - # <#nr#>.....<#nr>...... - # ^ ^ ^ that's the SVN-Id-string -# my ($Nr,$IdString,$Rest) = /(<#\d+#>)(.*)\1(.*)/s ; - - # The Id-String may contain various tags, remove them -# $IdString =~ s/<[^>]*>//g; - - # The Id-String may contain various tags, remove them -# $IdString =~ s/<[^>]*>//g; - - # split the Id-string -# my ($id,$file,$revision,$date,$time,$owner) = split(/\s/,$IdString); - - # remove trailing ,v -# $file =~ s/,v$//; - - # split date -# ($svninfo::Year,$svninfo::Month,$svninfo::Day) = split (/\//,$date); - -# $svninfo::Revision = $revision; -# $svninfo::File = $file; -# $svninfo::Date = $date; -# $svninfo::Time = $time; -# $svninfo::Owner = $owner; - - if ($default_language eq 'german' || $default_language eq 'austrian') { - $svninfo::LongDate = $svninfo::Day . '. ' . - $svninfo::GermanMonthName[$svninfo::Month] . ' ' . - $svninfo::Year; - $svnInfo::Date = $svninfo::Day . '. ' . $svninfo::Month . '. ' . $svninfo::Year; - } elsif ($default_language eq 'french') { - $svninfo::LongDate = $svninfo::Day . '. ' . - $svninfo::FrenchMonthName[$svninfo::Month] . ' ' . - $svninfo::Year; - $svnInfo::Date = $svninfo::Day . '. ' .$svninfo::Month . '. ' . $svninfo::Year; - } else { # english is the default - $svninfo::LongDate = $svninfo::EnglishMonthName[$svninfo::Month] . ' ' . - $svninfo::Day . ', ' . - $svninfo::Year; - $svnInfo::Date = $svninfo::Year . '/' .$svninfo::Month . '/' . $svninfo::Day; - } - - if ($svninfo::OptionFancy == 1) { - &$svninfo::SetAddressProc; - } - svninfo::make_cmds(); - - # printf STDERR "xxx $HTML_VERSION, $HTML_OPTIONS\n"; - # remove stuff generated for the $Id: svninfo.dtx 1168 2005-04-08 06:18:47Z brucker $-string - # we assume that noting follows the "\svnInfo $Id....$" - if ($HTML_VERSION >= 3.2) { - /^<tex2html_verbatim_mark>[^\n]*/; - return $'; - } elsif ($HTML_VERSION == 3.1 || $HTML_VERSION == 2.1) { - /^<tex2html_image_mark>[^\n]*/; - return $'; - } else { - if ($HTML_OPTIONS =~ /math/) { - /^<tex2html_verbatim_mark>[^\n]*/; - return $'; - } else { - /^<tex2html_image_mark>[^\n]*/; - return $'; - } - } -} - -# Replace do_cmd_today (\today) using the SVN date. -sub do_cmd_today { - local($today); - if ($svninfo::OptionToday == 1) { - $today = $svninfo::LongDate; - } else { - if ($default_language eq 'german' || $default_language eq 'austrian') { - $today = (`date "+%m:%d, 20%y"`); - $today =~ s/(\d{1,2}):0?(\d{1,2}),/$2. $svninfo::GermanMonthName[$1]/o; - $today =~ s/20([7|8|9]\d{1})/19$1/o; - } elsif ($default_language eq 'french') { - $today = (`date "+%m:%d, 20%y"`); - $today =~ s/(\d{1,2}):0?(\d{1,2}),/$2 $svninfo::FrenchMonthName[$1]/o; - $today =~ s/20([7|8|9]\d{1})/19$1/o; - } else { # english is the default - $today = (`date "+%m:%d, 20%y"`); - $today =~ s/(\d{1,2}):0?/$svninfo::EnglishMonthName[$1] /o; - $today =~ s/20([7|8|9]\d{1})/19$1/o; - } - } - join('',$today,$_[0]); -} - -1; - -############################################################################### |