From 9ed2afd14d995782d5e1bcc0fa7fca7ee1d2134c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 5 Feb 2010 01:24:41 +0000 Subject: examplep update (4feb10) git-svn-id: svn://tug.org/texlive/trunk@16916 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/examplep/examplep.sty | 88 ++++++++++++----------- 1 file changed, 46 insertions(+), 42 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/tex/latex/examplep/examplep.sty b/Master/texmf-dist/tex/latex/examplep/examplep.sty index 1603e7f457a..5b32ccc9717 100644 --- a/Master/texmf-dist/tex/latex/examplep/examplep.sty +++ b/Master/texmf-dist/tex/latex/examplep/examplep.sty @@ -59,7 +59,9 @@ % \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{examplep}[2006/12/21 v0.03 Verbatim and typeset TeX code] +\ProvidesPackage{examplep}[2010/02/03 v0.04 Verbatim and typeset TeX code] + +\@ifundefined{XeTeXinputencoding}{}{\XeTeXinputencoding "cp1250" } \edef\pexa@@restorecat{\catcode\string``\the\catcode\string``\space} \catcode\string``12 % may have been changed by Babel @@ -1754,7 +1756,7 @@ \@listdepth\z@ % Imp: put this into \PexaShowBoth etc. \def\makelabel##1{% \@latex@error{Lonely \string\item--perhaps a missing - list environment}\@ehc}% + list environment}\@ehc}% % vvv with `Figure 1' (article)-style figure numbering \def\figure{\pexa@mp@fakefloat{figure}}% \let\endfigure\pexa@mp@endfloat @@ -1880,7 +1882,7 @@ \let\do\pexa@cverb@makemathshift \dospecials \pexa@cverb@donormals % ^^^ converts allowed delimiters to math-shift (\catcode 3) %\@tempcnta127 \loop\ifnum\@tempcnta<256 \catcode\@tempcnta3 \advance\@tempcnta\@ne\repeat - % ^^^ also allows \PVerbászá + % ^^^ also allows accented letters, such as \PVerb^^e1sz^^e1 \ifx\\\@tabularcr \catcode`\{1 \fi % is \realx with array.sty \ifx\\\@arraycr \catcode`\{1 \fi % with array.sty % ^^^ disable outerbrace mode for \begin{tabular}, because braces must be @@ -1969,7 +1971,7 @@ \ifx#2\break \pexa@swaprelax{\pexa@cverb@skipbreakf@ii#1}% \else - \pexa@swaprelax{#1#2}% Dat: don't insert \relax into `\do ő' etc. + \pexa@swaprelax{#1#2}% Dat: don't insert \relax into `\do ^^f5' etc. \fi% \fi\relax } @@ -2290,40 +2292,42 @@ % --- One-character verbatim environments % -% -- A kis-verbatim \verb+...+ helyett írható az, hogy ÷...÷ -% (az italic correction azért kell elé, hogy ha parancs definícióknál -% italic-kal írunk egy opcionális paramétert, ne kelljen utána kézzel -% korrigálni.) Mostmár sorvége jel is lehet benne, mert \PVerb-et használ -% (sorvége==szóköz), de ha a következő sor szóközzel kezdődik, akkor több -% szóköz lesz. Használható \section-ben is, és (óvatosan) tabular-ban is, -% ha minden oszlop-ban a brace-ek balance-olódnak. Lehet benne ékezetes -% betű. +% !! translate this Hungarian text to English. +% +% -- A kis-verbatim \verb+...+ helyett \'irhat\'o az, hogy ^^f7...^^f7 +% (az italic correction az\'ert kell el\'e, hogy ha parancs defin\'ici\'okn\'al +% italic-kal \'irunk egy opcion\'alis param\'etert, ne kelljen ut\'ana k\'ezzel +% korrig\'alni.) Mostm\'ar sorv\'ege jel is lehet benne, mert \PVerb-et haszn\'al +% (sorv\'ege==sz\'ok\"oz), de ha a k\"ovetkez\H{o} sor sz\'ok\"ozzel kezd\H{o}dik, akkor t\"obb +% sz\'ok\"oz lesz. Haszn\'alhat\'o \section-ben is, \'es (\'ovatosan) tabular-ban is, +% ha minden oszlop-ban a brace-ek balance-ol\'odnak. Lehet benne \'ekezetes +% bet\H{u}. % -% Legjobb emacsban azt írni, hogy -% szöveg..... +% Legjobb emacsban azt \'irni, hogy +% sz\"oveg..... % %%% -% ÷aaa aaa aaa÷ szöveg folytatása ... -% mert akkor a comment miatt nem töri el a verbatimos szöveget. +% ^^f7aaa aaa aaa^^f7 sz\"oveg folytat\'asa ... +% mert akkor a comment miatt nem t\"ori el a verbatimos sz\"oveget. % -% -- \÷...÷ olyan, mint a ÷...÷, de minden speciális karakter elé backslash -% kell. Például: \÷\{\}\%\\÷. Ily módon könnyebben adható -% makró-argumentumnak. \÷\V÷ egy látható szóközt szúr be, \÷\B÷ -% \PexaAllowBreak-et (kis jellel sortörést engedélyez), \÷\S÷ ugyanaz, -% mint ÷ ÷. Ha minden elé gondosan kirakjuk a -% backslash-t, akkor használható \section-ben is. +% -- \^^f7...^^f7 olyan, mint a ^^f7...^^f7, de minden speci\'alis karakter el\'e backslash +% kell. P\'eld\'aul: \^^f7\{\}\%\\^^f7. Ily m\'odon k\"onnyebben adhat\'o +% makr\'o-argumentumnak. \^^f7\V^^f7 egy l\'athat\'o sz\'ok\"ozt sz\'ur be, \^^f7\B^^f7 +% \PexaAllowBreak-et (kis jellel sort\"or\'est enged\'elyez), \^^f7\S^^f7 ugyanaz, +% mint ^^f7 ^^f7. Ha minden el\'e gondosan kirakjuk a +% backslash-t, akkor haszn\'alhat\'o \section-ben is. % -% -- \Q{...} és \Q. olyan, mint \÷...÷. Tehát látható szóköz: \Q\V +% -- \Q{...} \'es \Q. olyan, mint \^^f7...^^f7. Teh\'at l\'athat\'o sz\'ok\"oz: \Q\V % -% -- !! ÷#÷ nem megy, de \Q\÷ igen +% -- !! ^^f7#^^f7 nem megy, de \Q\^^f7 igen % -\begingroup \catcode`÷=13 \@firstofone{\endgroup -\def\pexa@div@setcodes{\catcode`÷=13 - \lccode`×=0 \uccode`×=0 % /multiply-sign isn't a lower-upper case variant (\OE?) - \lccode`÷=0 \uccode`÷=0 } +\begingroup \catcode`^^f7=13 \@firstofone{\endgroup +\def\pexa@div@setcodes{\catcode`^^f7=13 % /divide-sign + \lccode`^^d7=0 \uccode`^^d7=0 % /multiply-sign isn't a lower-upper case variant (\OE?) + \lccode`^^f7=0 \uccode`^^f7=0 } %** Can be used in \section (as ``inner'' \PVerb), with limitations. -%** !! parameters, as with ÷#÷ -\def\pexa@div{% Dat: not \long. File. ÷ +%** !! parameters, as with ^^f7#^^f7 +\def\pexa@div{% Dat: not \long. File. ^^f7 \ifx\protect\@typeset@protect \expandafter\pexa@overb@low \else @@ -2334,7 +2338,7 @@ %** Works in math mode, too. What about robustness? \def\pexa@overb@low{% ASCII 247 - % Dat: would be too late for \catcode of `\PVerb÷' here + % Dat: would be too late for \catcode of `\PVerb^^f7' here % Imp: check for innerness-outerness \relax\ifmmode\hbox\else\leavevmode\/\fi \bgroup @@ -2344,8 +2348,8 @@ \pexa@cverb@catcodes \catcode\string`\{12 % restore to other \catcode\string`\ 12 - \catcode`÷=13 - \def\reserved@a##1÷{% Dat: define with current \catcode`÷ + \catcode`^^f7=13 + \def\reserved@a##1^^f7{% Dat: define with current \catcode`^^f7 %\showthe\catcode`-% 3 (math-shift) \pexa@cverb@outerc{##1}}% defined in examplep.sty \reserved@a @@ -2357,30 +2361,30 @@ \def\pexa@nomath{\relax\ifmmode\hbox\else\leavevmode\/\fi} %** Dat: we need \long for index generation of \Q{\par} -\long\def\pexa@Q#1{\pexa@bsdiv#1÷}% \Q -\long\def\pexa@bsdiv#1÷{% \÷ +\long\def\pexa@Q#1{\pexa@bsdiv#1^^f7}% \Q +\long\def\pexa@bsdiv#1^^f7{% \^^f7 % An evil #1 may contain \fi here, so we have to be very careful. \ifx\protect\@typeset@protect \expandafter\@gobble\fi\@thirdofthree\@firstoftwo \pexa@nomath\pexa@overb@noe@a {\pexa@cverb@nobackslash{#1}}% %\ifx\protect\@typeset@protect \pexa@nomath{\pexa@cverb@nobackslash{#1}}% - %%\else \noexpand\÷#1\noexpand÷\fi % Undefined control sequence \V + %%\else \noexpand\^^f7#1\noexpand^^f7\fi % Undefined control sequence \V %%\else \BackslashDivideIsFragile \fi - %\else \noexpand\÷\expandafter\pexa@overb@noexpand#1÷\fi + %\else \noexpand\^^f7\expandafter\pexa@overb@noexpand#1^^f7\fi }% \long\def\pexa@overb@noe@a#1{\pexa@overb@noe@b#1}% \long\def\pexa@overb@noe@b\pexa@cverb@nobackslash#1{% - \noexpand\÷\expandafter\pexa@overb@noexpand#1÷} + \noexpand\^^f7\expandafter\pexa@overb@noexpand#1^^f7} \long\def\pexa@overb@noexpand#1{% \noexpand#1% - \ifx#1÷\else\expandafter\pexa@overb@noexpand\fi + \ifx#1^^f7\else\expandafter\pexa@overb@noexpand\fi } \def\pexa@activate@Q{\let\Q\pexa@Q} -\def\pexa@activate@bsdiv{\pexa@div@setcodes \let\÷\pexa@bsdiv} -\def\pexa@activate@div {\pexa@div@setcodes \let÷\pexa@div} +\def\pexa@activate@bsdiv{\pexa@div@setcodes \let\^^f7\pexa@bsdiv} +\def\pexa@activate@div {\pexa@div@setcodes \let^^f7\pexa@div} \def\pexa@activate@url {\def\url{\PVerbOpt{}}} -}% ÷ has catcode 13 +}% ^^f7 has catcode 13 % --- -- cgit v1.2.3