texlive[67584] Master/texmf-dist: piton (8jul23)
commits+karl at tug.org
commits+karl at tug.org
Sat Jul 8 21:48:18 CEST 2023
Revision: 67584
http://tug.org/svn/texlive?view=revision&revision=67584
Author: karl
Date: 2023-07-08 21:48:18 +0200 (Sat, 08 Jul 2023)
Log Message:
-----------
piton (8jul23)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.pdf
trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.tex
trunk/Master/texmf-dist/doc/lualatex/piton/piton.pdf
trunk/Master/texmf-dist/source/lualatex/piton/piton.dtx
trunk/Master/texmf-dist/tex/lualatex/piton/piton.sty
Modified: trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.tex
===================================================================
--- trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.tex 2023-07-08 19:48:01 UTC (rev 67583)
+++ trunk/Master/texmf-dist/doc/lualatex/piton/piton-french.tex 2023-07-08 19:48:18 UTC (rev 67584)
@@ -259,6 +259,11 @@
\section{Personnalisation}
+Concernant la fonte de caractères utilisée dans les listings produits par
+l'extension \pkg{piton}, il s'agit simplement de la fonte mono-chasse courante
+(\pkg{piton} utilise simplement en interne la commande LaTeX standard |\ttfamily|).
+
+
\subsection{La commande \textbackslash PitonOptions}
\NewDocumentCommand{\Definition}{m}
@@ -511,7 +516,7 @@
Il existe un style spécial nommé |UserFunction|. Ce style s'applique aux noms des fonctions précédemment définies
par l'utilisateur via une instruction Python \piton{def} dans l'un des listings précédents. La valeur initiale de
ce style est nulle (=vide), ce qui fait que ces noms de fonctions sont formatés comme du texte courant (en noir).
-Néanmoins, il est possible de ce changer la valeur de ce style, comme tous les autres styles, avec la commande
+Néanmoins, il est possible de changer la valeur de ce style, comme tous les autres styles, avec la commande
|\PitonSetStyle|.
@@ -914,7 +919,7 @@
\emph{Première remarque}\par\nobreak
Remarquons que, comme l'environnement |{Piton}| prend son argument selon un mode verbatim, il convient, ce qui
n'est pas surprenant, de l'utiliser dans des environnements |{frame}| de Beamer protégés par la clé |fragile|,
-c'est-à-dire avec |\begin{frame}[fragile]|.\footnote{On rappelle que pour un environnement |{frame}| de Beamer qui
+c'est-à-dire débutant par |\begin{frame}[fragile]|.\footnote{On rappelle que pour un environnement |{frame}| de Beamer qui
utilise la clé |fragile|, l'instruction |\end{frame}| doit être seule sur une ligne (à l'exception d'éventuels
espaces en début de ligne).}
Modified: trunk/Master/texmf-dist/doc/lualatex/piton/piton.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/source/lualatex/piton/piton.dtx
===================================================================
--- trunk/Master/texmf-dist/source/lualatex/piton/piton.dtx 2023-07-08 19:48:01 UTC (rev 67583)
+++ trunk/Master/texmf-dist/source/lualatex/piton/piton.dtx 2023-07-08 19:48:18 UTC (rev 67584)
@@ -15,8 +15,8 @@
%
% \fi
% \iffalse
-\def\myfileversion{1.6}
-\def\myfiledate{2023/05/03}
+\def\myfileversion{1.6a}
+\def\myfiledate{2023/07/08}
%
%
%<*batchfile>
@@ -264,6 +264,10 @@
%
% \section{Customization}
%
+% With regard to the font used by \pkg{piton} in its listings, it's only the
+% current monospaced font. The package \pkg{piton} merely uses internally the
+% standard LaTeX command |\texttt|.
+%
% \subsection{The command \textbackslash PitonOptions}
%
%
@@ -958,7 +962,7 @@
% \emph{First remark}\par\nobreak
% Since the environment |{Piton}| catches its body with a verbatim mode, it's
% necessary to use the environments |{Piton}| within environments |{frame}| of
-% Beamer protected by the key |fragile|, i.e. with
+% Beamer protected by the key |fragile|, i.e. beginning with
% |\begin{frame}[fragile]|.\footnote{Remind that for an environment
% \texttt{\{frame\}} of Beamer using the key |fragile|, the instruction
% \texttt{\textbackslash end\{frame\}} must be alone on a single line (except
@@ -3009,6 +3013,7 @@
\@@_compute_left_margin:nn { CountNonEmptyLines } { ##1 }
\@@_compute_width:
\ttfamily
+ \dim_zero:N \parskip % added 2023/07/06
% \end{macrocode}
% |\c_@@_footnote_bool| is raised when the package \pkg{piton} has been load
% with the key |footnote| \emph{or} the key |footnotehyper|.
@@ -3459,7 +3464,20 @@
% \bigskip
% \subsubsection{The error messages of the package}
%
+% \begin{macrocode}
+\msg_new:nnn { piton } { syntax~error }
+ {
+ Your~code~is~not~syntactically~correct.\\
+ It~won't~be~printed~in~the~PDF~file.
+ }
+% \end{macrocode}
+%
% \begin{macrocode}
+\NewDocumentCommand \PitonSyntaxError { }
+ { \msg_error:nn { piton } { syntax~error } }
+% \end{macrocode}
+%
+% \begin{macrocode}
\msg_new:nnn { piton } { unknown~file }
{
Unknown~file. \\
@@ -5076,6 +5094,11 @@
% \begin{macrocode}
function piton.Parse(language,code)
local t = languages[language] : match ( code )
+ if t == nil
+ then
+ tex.sprint("\\PitonSyntaxError")
+ return -- to exit in force the function
+ end
local left_stack = {}
local right_stack = {}
for _ , one_item in ipairs(t)
Modified: trunk/Master/texmf-dist/tex/lualatex/piton/piton.sty
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/piton/piton.sty 2023-07-08 19:48:01 UTC (rev 67583)
+++ trunk/Master/texmf-dist/tex/lualatex/piton/piton.sty 2023-07-08 19:48:18 UTC (rev 67584)
@@ -18,8 +18,8 @@
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%%
-\def\myfileversion{1.6}
-\def\myfiledate{2023/05/03}
+\def\myfileversion{1.6a}
+\def\myfiledate{2023/07/08}
\NeedsTeXFormat{LaTeX2e}
@@ -661,6 +661,7 @@
\__piton_compute_left_margin:nn { CountNonEmptyLines } { ##1 }
\__piton_compute_width:
\ttfamily
+ \dim_zero:N \parskip % added 2023/07/06
\bool_if:NT \c__piton_footnote_bool { \begin { savenotes } }
\vtop \bgroup
\lua_now:e
@@ -937,6 +938,13 @@
\token_to_str:N \piton\ but~there~is~no~environment~
{piton}.~This~error~is~fatal.
}
+\msg_new:nnn { piton } { syntax~error }
+ {
+ Your~code~is~not~syntactically~correct.\\
+ It~won't~be~printed~in~the~PDF~file.
+ }
+\NewDocumentCommand \PitonSyntaxError { }
+ { \msg_error:nn { piton } { syntax~error } }
\msg_new:nnn { piton } { unknown~file }
{
Unknown~file. \\
@@ -1836,6 +1844,11 @@
languages['ocaml'] = ocaml
function piton.Parse(language,code)
local t = languages[language] : match ( code )
+ if t == nil
+ then
+ tex.sprint("\\PitonSyntaxError")
+ return -- to exit in force the function
+ end
local left_stack = {}
local right_stack = {}
for _ , one_item in ipairs(t)
More information about the tex-live-commits
mailing list.