diff options
| author | Karl Berry <karl@freefriends.org> | 2018-11-25 22:08:21 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-11-25 22:08:21 +0000 |
| commit | b8996f0f541d768f8f70ef9c6ca5b938ad164b70 (patch) | |
| tree | 5de4e9493cec390cbb7b0da0375f0cf96ca3d402 /Master/texmf-dist/scripts | |
| parent | 36c552d0c50c8963c1b2bc835b68e66c398a0b4b (diff) | |
latex2man (25nov18)
git-svn-id: svn://tug.org/texlive/trunk@49249 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
| -rwxr-xr-x | Master/texmf-dist/scripts/latex2man/latex2man | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/latex2man/latex2man b/Master/texmf-dist/scripts/latex2man/latex2man index 8541f593f31..e117d3370be 100755 --- a/Master/texmf-dist/scripts/latex2man/latex2man +++ b/Master/texmf-dist/scripts/latex2man/latex2man @@ -4,7 +4,7 @@ # Descr: Latex --> MAN-page (groff -man), HTML and TexInfo; # Language: PERL (>= 5.0) # Author: Dr. Jürgen Vollmer, Juergen.Vollmer@informatik-vollmer.de -# $Id: latex2man,v 1.177 2018/11/22 07:42:26 vollmer Exp $ +# $Id: latex2man,v 1.181 2018/11/25 13:05:37 vollmer Exp $ # # Copyright (C) 1998 Dr. Juergen Vollmer # Am Rennbuckel 21, D-76185 Karlsruhe, Germany @@ -20,15 +20,16 @@ require 5.0004_03; use Getopt::Std; +use File::Basename; no warnings 'once'; # use strict 'vars'; -$CMD=`basename "$0"`; chop ($CMD); -$gen_date = `date`; chomp $gen_date; # date when the output was generated +$CMD = basename ($0); +$gen_date = localtime(); # date when the output was generated sub date2str; -$VERSION = "1.28"; -$DATE = date2str ('$Date: 2018/11/22 07:42:26 $' =~ m|(\d+/\d+/\d+)|); +$VERSION = "1.29"; +$DATE = date2str ('$Date: 2018/11/25 13:05:37 $' =~ m|(\d+/\d+/\d+)|); $tmp = "/tmp/$CMD.$$"; @@ -1092,7 +1093,7 @@ sub texiParagraph sub texiVerb { $arg = $_[0]; - $arg =~ s/({|})/\@$1/g; + $arg =~ s/([{]|})/\@$1/g; Print $arg; } @@ -1398,7 +1399,7 @@ sub interpret_word $add_blank = 0; last SWITCH; }; - /\\({|}|\$|_|#|&|-|%|,|\.|;)/ && do {$s=$`;$m=$1;$r=$'; #' + /\\([{]|}|\$|_|#|&|-|%|,|\.|;)/ && do {$s=$`;$m=$1;$r=$'; #' interpret_word $s; PrintM $Macro->{$m}; interpret_word $r; |