From 22536bb2b5257046d271b1eaa11b4a275d5ec041 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 5 Jan 2019 22:40:38 +0000 Subject: pgf (5jan19) git-svn-id: svn://tug.org/texlive/trunk@49607 c570f23f-e606-0410-a88d-b1316a301751 --- .../pgf/libraries/pgflibraryprofiler.code.tex | 634 ++++++++++----------- 1 file changed, 317 insertions(+), 317 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryprofiler.code.tex') diff --git a/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryprofiler.code.tex b/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryprofiler.code.tex index ea1f469abe8..fe98a5f3f2e 100644 --- a/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryprofiler.code.tex +++ b/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryprofiler.code.tex @@ -1,19 +1,19 @@ %-------------------------------------------- % % TeX profiling library -% +% % Copyright 2010 by Christian Feuersänger. % % This program is free software: you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by % the Free Software Foundation, either version 3 of the License, or % (at your option) any later version. -% +% % This program is distributed in the hope that it will be useful, % but WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the % GNU General Public License for more details. -% +% % You should have received a copy of the GNU General Public License % along with this program. If not, see . % @@ -31,38 +31,38 @@ \else % Raise an error \pgferror{% - Library 'profiler' can only be used with pdftex Rev. >= 1.671 + Library 'profiler' can only be used with pdftex Rev. >= 1.671 because it needs the \string\pdfelapsedtime\space command or with luatex}% \global\let\pgfutil@pdfelapsedtime=\c@pgf@counta \fi}{% % We run pdftex. That's ok. - \let\pgfutil@pdfelapsedtime\pdfelapsedtime} + \let\pgfutil@pdfelapsedtime\pdfelapsedtime}% % Defines a new profiler entry named `#1'. % % This allocates a set of counters. \def\pgfprofilenew#1{% - \pgfutil@ifundefined{c@pgfprofile@elapsedtotal@#1}{% - \expandafter\gdef\csname c@pgfprofile@elapsedtotal@#1\endcsname{0}% - \expandafter\gdef\csname c@pgfprofile@elapsedself@#1\endcsname{0}% - \expandafter\gdef\csname c@pgfprofile@numinvocations@#1\endcsname{0}% - \expandafter\gdef\csname c@pgfprofile@subtractforself@#1\endcsname{0}% - \expandafter\gdef\csname c@pgfprofile@semaphor@#1\endcsname{0}% - \expandafter\gdef\csname c@pgfprofile@elapsed@at@start@#1\endcsname{0}% - \pgfprofile@all@registered@list@add{#1}% - }{% - % it is already defined and registered. Shouldn't hurt, might - % even be a good feature. - }% + \pgfutil@ifundefined{c@pgfprofile@elapsedtotal@#1}{% + \expandafter\gdef\csname c@pgfprofile@elapsedtotal@#1\endcsname{0}% + \expandafter\gdef\csname c@pgfprofile@elapsedself@#1\endcsname{0}% + \expandafter\gdef\csname c@pgfprofile@numinvocations@#1\endcsname{0}% + \expandafter\gdef\csname c@pgfprofile@subtractforself@#1\endcsname{0}% + \expandafter\gdef\csname c@pgfprofile@semaphor@#1\endcsname{0}% + \expandafter\gdef\csname c@pgfprofile@elapsed@at@start@#1\endcsname{0}% + \pgfprofile@all@registered@list@add{#1}% + }{% + % it is already defined and registered. Shouldn't hurt, might + % even be a good feature. + }% }% \def\pgfprofile@TeX@DIALECT@toenvironment@begin#1{\csname #1\endcsname}% \def\pgfprofile@TeX@DIALECT@toenvironment@end#1{\csname end#1\endcsname}% \def\pgfprofile@@to@pgfretval#1{% - \expandafter\let\expandafter\pgfretval#1% + \expandafter\let\expandafter\pgfretval#1% }% % Defines a new profiler entry for the environment `#1'. @@ -77,33 +77,33 @@ % \pgfprofilenewforenvironment[]{} \def\pgfprofilenewforenvironment{\pgfutil@ifnextchar[{\pgfprofilenewforenvironment@}{\pgfprofilenewforenvironment@[]}}% \def\pgfprofilenewforenvironment@[#1]#2{% - \expandafter\pgfprofile@@to@pgfretval\pgfprofile@TeX@DIALECT@toenvironment@begin{#2}% - \ifx\pgfretval\relax - \pgferror{\string\pgfprofilenewforenvironment{#2} doesn't work: the environment `#2' is (not yet?) known or not known in this context}{}% - \else - \expandafter\global\expandafter\let\csname pgfprofile@orig@begin@#2\endcsname=\pgfretval - \expandafter\pgfprofile@@to@pgfretval\pgfprofile@TeX@DIALECT@toenvironment@end{#2}% - \expandafter\global\expandafter\let\csname pgfprofile@orig@end@#2\endcsname=\pgfretval - % - \def\pgfprofile@temp{#1}% - \ifx\pgfprofile@temp\pgfutil@empty - \pgfprofilenewforenvironment@@{\pgfprofileenv #2}{#2}% - \else - \pgfprofilenewforenvironment@@{#1}{#2}% - \fi - \fi + \expandafter\pgfprofile@@to@pgfretval\pgfprofile@TeX@DIALECT@toenvironment@begin{#2}% + \ifx\pgfretval\relax + \pgferror{\string\pgfprofilenewforenvironment{#2} doesn't work: the environment `#2' is (not yet?) known or not known in this context}{}% + \else + \expandafter\global\expandafter\let\csname pgfprofile@orig@begin@#2\endcsname=\pgfretval + \expandafter\pgfprofile@@to@pgfretval\pgfprofile@TeX@DIALECT@toenvironment@end{#2}% + \expandafter\global\expandafter\let\csname pgfprofile@orig@end@#2\endcsname=\pgfretval + % + \def\pgfprofile@temp{#1}% + \ifx\pgfprofile@temp\pgfutil@empty + \pgfprofilenewforenvironment@@{\pgfprofileenv #2}{#2}% + \else + \pgfprofilenewforenvironment@@{#1}{#2}% + \fi + \fi }% \def\pgfprofilenewforenvironment@@#1#2{% - \pgfprofilenew{#1}% - \expandafter\expandafter\expandafter\gdef\pgfprofile@TeX@DIALECT@toenvironment@begin{#2}{% - \pgfprofilestart{#1}% - \csname pgfprofile@orig@begin@#2\endcsname - }% - \expandafter\expandafter\expandafter\gdef\pgfprofile@TeX@DIALECT@toenvironment@end{#2}{% - \csname pgfprofile@orig@end@#2\endcsname - \pgfprofileend{#1}% - }% -} + \pgfprofilenew{#1}% + \expandafter\expandafter\expandafter\gdef\pgfprofile@TeX@DIALECT@toenvironment@begin{#2}{% + \pgfprofilestart{#1}% + \csname pgfprofile@orig@begin@#2\endcsname + }% + \expandafter\expandafter\expandafter\gdef\pgfprofile@TeX@DIALECT@toenvironment@end{#2}{% + \csname pgfprofile@orig@end@#2\endcsname + \pgfprofileend{#1}% + }% +}% \def\pgfprofilecs{}% @@ -113,10 +113,10 @@ % % This calls \pgfprofilenew and enhances the control sequence with % support for timings. -% +% % #1: the control sequence (with backslash!) % #2: the number of arguments (see below). -% +% % The following commands are supported: % - commands which take one (optional) argument in square brackets, % - commands which take one (optional) argument in square brackets @@ -124,32 +124,32 @@ % curly braces (use an empty argument for '#2' in this case), % - commands which take one (optional) argument in square brackets % and *exactly* #2 arguments afterwards. -\def\pgfprofilenewforcommand{\pgfutil@ifnextchar[{\pgfprofilenewforcommand@}{\pgfprofilenewforcommand@[]}} +\def\pgfprofilenewforcommand{\pgfutil@ifnextchar[{\pgfprofilenewforcommand@}{\pgfprofilenewforcommand@[]}}% \def\pgfprofilenewforcommand@[#1]#2#3{% - \def\pgfprofile@temp{#3}% - \ifx\pgfprofile@temp\pgfutil@empty - \pgfprofilenewforcommandpattern[#1]{#2}{}{}% - \else - \ifcase#3\relax - \pgfprofilenewforcommandpattern[#1]{#2}{}{}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1}{{##1}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2}{{##1}{##2}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3}{{##1}{##2}{##3}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4}{{##1}{##2}{##3}{##4}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5}{{##1}{##2}{##3}{##4}{##5}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5##6}{{##1}{##2}{##3}{##4}{##5}{##6}}% - \or - \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5##6##7}{{##1}{##2}{##3}{##4}{##5}{##6}{##7}}% - \else - \pgferror{library 'profiler' can't replace control sequences with '#3' arguments automatically, sorry.}{}% - \fi - \fi + \def\pgfprofile@temp{#3}% + \ifx\pgfprofile@temp\pgfutil@empty + \pgfprofilenewforcommandpattern[#1]{#2}{}{}% + \else + \ifcase#3\relax + \pgfprofilenewforcommandpattern[#1]{#2}{}{}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1}{{##1}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2}{{##1}{##2}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3}{{##1}{##2}{##3}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4}{{##1}{##2}{##3}{##4}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5}{{##1}{##2}{##3}{##4}{##5}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5##6}{{##1}{##2}{##3}{##4}{##5}{##6}}% + \or + \pgfprofilenewforcommandpattern[#1]{#2}{##1##2##3##4##5##6##7}{{##1}{##2}{##3}{##4}{##5}{##6}{##7}}% + \else + \pgferror{library 'profiler' can't replace control sequences with '#3' arguments automatically, sorry.}{}% + \fi + \fi }% % \pgfprofilenewforcommandpattern[]{<\CS>}{}{} @@ -159,137 +159,137 @@ % % \def\mymacro##1\to##2\in##3{ .... } % \pgfprofilenewforcommandpattern{\mymacro}{##1\to##2\in##3}{{##1}\to{##2}\in{##3}} -\def\pgfprofilenewforcommandpattern{\pgfutil@ifnextchar[{\pgfprofilenewforcommandpattern@}{\pgfprofilenewforcommandpattern@[]}} +\def\pgfprofilenewforcommandpattern{\pgfutil@ifnextchar[{\pgfprofilenewforcommandpattern@}{\pgfprofilenewforcommandpattern@[]}}% \def\pgfprofilenewforcommandpattern@[#1]#2#3#4{% - \def\pgfprofile@known{1}% - \ifx#2\undefined - \def\pgfprofile@known{0}% - \else - \ifx#2\relax - \def\pgfprofile@known{0}% - \fi - \fi - \if\pgfprofile@known0% - \pgferror{\string\pgfprofilenewforcommandpattern{\string#2} doesn't work: the command `\string#2' is (not yet?) known or not known in this context}% - \else - \begingroup - \pgfprofile@cs@to@name{#2}% - \let\pgfprofilenew@cmdname=\pgfretval - % - \def\pgfprofile@temp{#1}% - \ifx\pgfprofile@temp\pgfutil@empty - \edef\pgfprofilenew@profilerentryname{\pgfprofilecs\pgfprofilenew@cmdname}% - \else - \edef\pgfprofilenew@profilerentryname{#1}% - \fi - \expandafter\global\expandafter\let\csname pgfprofile@name@for@\pgfprofilenew@cmdname\endcsname=\pgfprofilenew@profilerentryname - \pgfprofilenew{\pgfprofilenew@profilerentryname}% - \expandafter\gdef\csname b@pgfprofile@show@\pgfprofilenew@profilerentryname\endcsname{0}% - % - \expandafter\global\expandafter\let\csname pgfprofile@orig@\pgfprofilenew@cmdname\endcsname=#2% - \toks0={#3}% - \edef\pgfprofile@temp{\the\toks0}%% - \def\pgfprofile@tempb{}% - \ifx\pgfprofile@temp\pgfprofile@tempb - \expandafter\global\expandafter\let\csname pgfprofile@repl@\pgfprofilenew@cmdname\endcsname=\pgfprofileinvokecommand@uptoonearg - \else - \expandafter\gdef\csname pgfprofile@repl@\pgfprofilenew@cmdname\endcsname#3{% - \pgfprofile@invokeorig{#4}% - }% - \fi - \xdef#2{\noexpand\pgfprofileinvokecommand{\pgfprofilenew@cmdname}}% - \endgroup - \fi + \def\pgfprofile@known{1}% + \ifx#2\undefined + \def\pgfprofile@known{0}% + \else + \ifx#2\relax + \def\pgfprofile@known{0}% + \fi + \fi + \if\pgfprofile@known0% + \pgferror{\string\pgfprofilenewforcommandpattern{\string#2} doesn't work: the command `\string#2' is (not yet?) known or not known in this context}% + \else + \begingroup + \pgfprofile@cs@to@name{#2}% + \let\pgfprofilenew@cmdname=\pgfretval + % + \def\pgfprofile@temp{#1}% + \ifx\pgfprofile@temp\pgfutil@empty + \edef\pgfprofilenew@profilerentryname{\pgfprofilecs\pgfprofilenew@cmdname}% + \else + \edef\pgfprofilenew@profilerentryname{#1}% + \fi + \expandafter\global\expandafter\let\csname pgfprofile@name@for@\pgfprofilenew@cmdname\endcsname=\pgfprofilenew@profilerentryname + \pgfprofilenew{\pgfprofilenew@profilerentryname}% + \expandafter\gdef\csname b@pgfprofile@show@\pgfprofilenew@profilerentryname\endcsname{0}% + % + \expandafter\global\expandafter\let\csname pgfprofile@orig@\pgfprofilenew@cmdname\endcsname=#2% + \toks0={#3}% + \edef\pgfprofile@temp{\the\toks0}%% + \def\pgfprofile@tempb{}% + \ifx\pgfprofile@temp\pgfprofile@tempb + \expandafter\global\expandafter\let\csname pgfprofile@repl@\pgfprofilenew@cmdname\endcsname=\pgfprofileinvokecommand@uptoonearg + \else + \expandafter\gdef\csname pgfprofile@repl@\pgfprofilenew@cmdname\endcsname#3{% + \pgfprofile@invokeorig{#4}% + }% + \fi + \xdef#2{\noexpand\pgfprofileinvokecommand{\pgfprofilenew@cmdname}}% + \endgroup + \fi }% \def\pgfprofileshowinvocationsfor#1{% - \pgfutil@ifundefined{b@pgfprofile@show@#1}{% - \pgferror{\string\pgfprofileshowinvocationsfor{#1} doesn't work: the argument is no profiler entry}% - }{% - \expandafter\gdef\csname b@pgfprofile@show@#1\endcsname{1}% - \expandafter\gdef\csname b@pgfprofile@show@edef@#1\endcsname{0}% - }% + \pgfutil@ifundefined{b@pgfprofile@show@#1}{% + \pgferror{\string\pgfprofileshowinvocationsfor{#1} doesn't work: the argument is no profiler entry}% + }{% + \expandafter\gdef\csname b@pgfprofile@show@#1\endcsname{1}% + \expandafter\gdef\csname b@pgfprofile@show@edef@#1\endcsname{0}% + }% }% \def\pgfprofileshowinvocationsexpandedfor#1{% - \pgfutil@ifundefined{b@pgfprofile@show@#1}{% - \pgferror{\string\pgfprofileshowinvocationsfor{#1} doesn't work: the argument is no profiler entry}% - }{% - \expandafter\gdef\csname b@pgfprofile@show@#1\endcsname{1}% - \expandafter\gdef\csname b@pgfprofile@show@edef@#1\endcsname{1}% - }% + \pgfutil@ifundefined{b@pgfprofile@show@#1}{% + \pgferror{\string\pgfprofileshowinvocationsfor{#1} doesn't work: the argument is no profiler entry}% + }{% + \expandafter\gdef\csname b@pgfprofile@show@#1\endcsname{1}% + \expandafter\gdef\csname b@pgfprofile@show@edef@#1\endcsname{1}% + }% }% -\def\pgfprofile@no@optional@arg@text{} +\def\pgfprofile@no@optional@arg@text{}% \def\pgfprofileinvokecommand#1{% - \pgfutil@ifnextchar[{\pgfprofileinvokecommand@{#1}}{\pgfprofileinvokecommand@{#1}[]}% + \pgfutil@ifnextchar[{\pgfprofileinvokecommand@{#1}}{\pgfprofileinvokecommand@{#1}[]}% }% \def\pgfprofileinvokecommand@#1[#2]{% - \def\pgfprofileinvokecommand@cs{#1}% - \def\pgfprofileinvokecommand@optarg{#2}% - \edef\pgfprofileinvokecommand@profilerentryname{\csname pgfprofile@name@for@#1\endcsname}% - \csname pgfprofile@repl@#1\endcsname% + \def\pgfprofileinvokecommand@cs{#1}% + \def\pgfprofileinvokecommand@optarg{#2}% + \edef\pgfprofileinvokecommand@profilerentryname{\csname pgfprofile@name@for@#1\endcsname}% + \csname pgfprofile@repl@#1\endcsname% }% % #1 contains ALL arguments, including any braces. \def\pgfprofile@invokeorig#1{% - % re-insert the control sequence name and the optional argument: - % this wasn't possible directly. - \begingroup - \toks1=\expandafter{\pgfprofileinvokecommand@optarg}% - \toks2={#1}% - \toks3=\expandafter{\csname pgfprofile@orig@\pgfprofileinvokecommand@cs\endcsname}% - % - \ifx\pgfprofileinvokecommand@optarg\pgfprofile@no@optional@arg@text - % no [] argument after original command: - \xdef\pgfprofile@invokeorig@doitfinally{\the\toks3 \the\toks2 }%% - \else - \xdef\pgfprofile@invokeorig@doitfinally{\the\toks3[\the\toks1]\the\toks2 }% - \fi - \if1\csname b@pgfprofile@show@\pgfprofileinvokecommand@profilerentryname\endcsname - \pgfprofile@orig@show - \fi - \endgroup - \edef\pgfprofile@temp{{\pgfprofileinvokecommand@cs}{\pgfprofileinvokecommand@profilerentryname}}% - \expandafter\pgfprofile@invokeorig@\pgfprofile@temp% + % re-insert the control sequence name and the optional argument: + % this wasn't possible directly. + \begingroup + \toks1=\expandafter{\pgfprofileinvokecommand@optarg}% + \toks2={#1}% + \toks3=\expandafter{\csname pgfprofile@orig@\pgfprofileinvokecommand@cs\endcsname}% + % + \ifx\pgfprofileinvokecommand@optarg\pgfprofile@no@optional@arg@text + % no [] argument after original command: + \xdef\pgfprofile@invokeorig@doitfinally{\the\toks3 \the\toks2 }%% + \else + \xdef\pgfprofile@invokeorig@doitfinally{\the\toks3[\the\toks1]\the\toks2 }% + \fi + \if1\csname b@pgfprofile@show@\pgfprofileinvokecommand@profilerentryname\endcsname + \pgfprofile@orig@show + \fi + \endgroup + \edef\pgfprofile@temp{{\pgfprofileinvokecommand@cs}{\pgfprofileinvokecommand@profilerentryname}}% + \expandafter\pgfprofile@invokeorig@\pgfprofile@temp% }% \def\pgfprofile@orig@show{% - \toks4=\expandafter{\csname\pgfprofileinvokecommand@cs\endcsname}% - \ifx\pgfprofileinvokecommand@optarg\pgfprofile@no@optional@arg@text - \def\pgfprofile@orig@show@args{\the\toks2 }% - \else - \def\pgfprofile@orig@show@args{[\the\toks1] \the\toks2 }% - \fi - \if1\csname b@pgfprofile@show@edef@\pgfprofileinvokecommand@profilerentryname\endcsname - \edef\pgfprofile@orig@show@args{\pgfprofile@orig@show@args}% - \edef\pgfprofile@orig@show@args{\pgfprofile@orig@show@args}% - \fi - \immediate\write16{pgflibraryprofiler: calling - \#\csname c@pgfprofile@numinvocations@\pgfprofileinvokecommand@profilerentryname\endcsname\space - (\the\toks4 \pgfprofile@orig@show@args)}% + \toks4=\expandafter{\csname\pgfprofileinvokecommand@cs\endcsname}% + \ifx\pgfprofileinvokecommand@optarg\pgfprofile@no@optional@arg@text + \def\pgfprofile@orig@show@args{\the\toks2 }% + \else + \def\pgfprofile@orig@show@args{[\the\toks1] \the\toks2 }% + \fi + \if1\csname b@pgfprofile@show@edef@\pgfprofileinvokecommand@profilerentryname\endcsname + \edef\pgfprofile@orig@show@args{\pgfprofile@orig@show@args}% + \edef\pgfprofile@orig@show@args{\pgfprofile@orig@show@args}% + \fi + \pgf@typeout{pgflibraryprofiler: calling + \#\csname c@pgfprofile@numinvocations@\pgfprofileinvokecommand@profilerentryname\endcsname\space + (\the\toks4 \pgfprofile@orig@show@args)}% }% % #1: control sequence name (without backslash) % #2: profiler entry name \def\pgfprofile@invokeorig@#1#2{% - % this check should avoid save stack impact - \pgfprofileifisrunning{#2}{% - \pgfprofile@invokeorig@doitfinally% - }{% - \pgfprofilestart{#2}% - \pgfprofile@invokeorig@doitfinally% - \pgfprofileend{#2}% - }% + % this check should avoid save stack impact + \pgfprofileifisrunning{#2}{% + \pgfprofile@invokeorig@doitfinally% + }{% + \pgfprofilestart{#2}% + \pgfprofile@invokeorig@doitfinally% + \pgfprofileend{#2}% + }% }% \def\pgfprofileinvokecommand@uptoonearg{% - \pgfutil@ifnextchar\bgroup{\pgfprofileinvokecommand@onearg}{\pgfprofileinvokecommand@noarg}% + \pgfutil@ifnextchar\bgroup{\pgfprofileinvokecommand@onearg}{\pgfprofileinvokecommand@noarg}% }% \def\pgfprofileinvokecommand@onearg#1{% - \pgfprofile@invokeorig{{#1}}% + \pgfprofile@invokeorig{{#1}}% }% \def\pgfprofileinvokecommand@noarg{% - \pgfprofile@invokeorig{}% + \pgfprofile@invokeorig{}% }% @@ -302,51 +302,51 @@ % result in the same result as if just one \pgfprofilestart command % has been issued. \def\pgfprofilestart#1{% - \pgfprofileifisrunning{#1}{% - \relax - }{% - \expandafter\xdef\csname c@pgfprofile@elapsed@at@start@#1\endcsname{\the\pgfutil@pdfelapsedtime}% - \expandafter\gdef\csname c@pgfprofile@subtractforself@#1\endcsname{0}% - \pgfprofile@advance{c@pgfprofile@numinvocations@#1}{1}% - \pgfprofilestackpush{#1}% - }% - \pgfprofile@advance{c@pgfprofile@semaphor@#1}{1}% + \pgfprofileifisrunning{#1}{% + \relax + }{% + \expandafter\xdef\csname c@pgfprofile@elapsed@at@start@#1\endcsname{\the\pgfutil@pdfelapsedtime}% + \expandafter\gdef\csname c@pgfprofile@subtractforself@#1\endcsname{0}% + \pgfprofile@advance{c@pgfprofile@numinvocations@#1}{1}% + \pgfprofilestackpush{#1}% + }% + \pgfprofile@advance{c@pgfprofile@semaphor@#1}{1}% }% % Stops / Interrupts timing of the profiler entry named `#1'. \def\pgfprofileend#1{% - \pgfprofile@advance{c@pgfprofile@semaphor@#1}{-1}% - \pgfprofileifisrunning{#1}{% - \relax - }{% - \begingroup - \c@pgf@countb=\pgfutil@pdfelapsedtime\relax - \advance\c@pgf@countb by-\csname c@pgfprofile@elapsed@at@start@#1\endcsname\relax - % - \pgfprofilestackpop\pgfretval - \edef\pgfprofile@temp{#1}% - \ifx\pgfprofile@temp\pgfretval - \else - \immediate\write16{pgflibraryprofiler WARNING: possible error in self time computation...}% - \fi - \pgfprofilestackifempty{% - \relax - }{% - \pgfprofilestacktop\pgfretval - \pgfprofile@advance{c@pgfprofile@subtractforself@\pgfretval}{\c@pgf@countb}% - }% - % - \pgfprofile@advance{c@pgfprofile@elapsedtotal@#1}{\c@pgf@countb}% - \advance\c@pgf@countb by-\csname c@pgfprofile@subtractforself@#1\endcsname\relax - \pgfprofile@advance{c@pgfprofile@elapsedself@#1}{\c@pgf@countb}% - \endgroup - }% + \pgfprofile@advance{c@pgfprofile@semaphor@#1}{-1}% + \pgfprofileifisrunning{#1}{% + \relax + }{% + \begingroup + \c@pgf@countb=\pgfutil@pdfelapsedtime\relax + \advance\c@pgf@countb by-\csname c@pgfprofile@elapsed@at@start@#1\endcsname\relax + % + \pgfprofilestackpop\pgfretval + \edef\pgfprofile@temp{#1}% + \ifx\pgfprofile@temp\pgfretval + \else + \pgf@typeout{pgflibraryprofiler WARNING: possible error in self time computation...}% + \fi + \pgfprofilestackifempty{% + \relax + }{% + \pgfprofilestacktop\pgfretval + \pgfprofile@advance{c@pgfprofile@subtractforself@\pgfretval}{\c@pgf@countb}% + }% + % + \pgfprofile@advance{c@pgfprofile@elapsedtotal@#1}{\c@pgf@countb}% + \advance\c@pgf@countb by-\csname c@pgfprofile@subtractforself@#1\endcsname\relax + \pgfprofile@advance{c@pgfprofile@elapsedself@#1}{\c@pgf@countb}% + \endgroup + }% }% % invokes '#2' if '#1' is currently running and '#3' if not. \def\pgfprofileifisrunning#1#2#3{% - \ifnum\csname c@pgfprofile@semaphor@#1\endcsname=0 \def\pgfprofileifisrunning@next{#3}\else \def\pgfprofileifisrunning@next{#2}\fi - \pgfprofileifisrunning@next + \ifnum\csname c@pgfprofile@semaphor@#1\endcsname=0 \def\pgfprofileifisrunning@next{#3}\else \def\pgfprofileifisrunning@next{#2}\fi + \pgfprofileifisrunning@next }% % Sets the profiler entry whose total time is used to compute all @@ -355,50 +355,50 @@ % Stops all running timings and postprocesses them. \def\pgfprofilepostprocess{% - \begingroup - % - % prepare files. - \c@pgf@countb=\time - \divide\c@pgf@countb by60 - \c@pgf@countd=\c@pgf@countb - \multiply\c@pgf@countd by60 - \c@pgf@countc=\time - \advance\c@pgf@countc by-\c@pgf@countd - \immediate\openout\w@pgf@writea=\jobname.profiler.\the\year-\pgfprofiletotwodigitstr\month-\pgfprofiletotwodigitstr\day_\pgfprofiletotwodigitstr\c@pgf@countb h_\pgfprofiletotwodigitstr\c@pgf@countc m.dat - \immediate\write\w@pgf@writea{% - \pgfprofile@percent relative values are measured against the totaltime of `\pgfprofile@rel'.% - }% - \immediate\write16{pgflibraryprofiler: relative values are measured against the totaltime of `\pgfprofile@rel'.}% - \immediate\write\w@pgf@writea{% - profilerentry\pgfprofile@TAB - totaltime[s]\pgfprofile@TAB - totaltime[percent]\pgfprofile@TAB - selftime[s]\pgfprofile@TAB - selftime[percent]\pgfprofile@TAB - numinvocations\pgfprofile@TAB}% - % - % - % compute main time and prepare computation of relative times: - \pgfprofileifisrunning{\pgfprofile@rel}{% - \pgfprofileend{\pgfprofile@rel}% - }{}% - \pgf@xa=\csname c@pgfprofile@elapsedtotal@\pgfprofile@rel\endcsname sp - \edef\pgfprofiletotaltime{\pgf@sys@tonumber\pgf@xa}% - \pgfmathreciprocal@{\pgfprofiletotaltime}% - \let\pgfprofiletotaltime@inv=\pgfmathresult - % - % postprocess each of them: - \pgfprofile@all@registered@list@foreach{% - \pgfprofileifisrunning{##1}{% - \pgfprofileend{##1}% - }{}% - \pgfprofilepostprocess@single{##1}% - }% - \immediate\write\w@pgf@writea{% - \pgfprofile@percent\space vim: ts=40 nowrap nostartofline - }% - \immediate\closeout\w@pgf@writea - \endgroup + \begingroup + % + % prepare files. + \c@pgf@countb=\time + \divide\c@pgf@countb by60 + \c@pgf@countd=\c@pgf@countb + \multiply\c@pgf@countd by60 + \c@pgf@countc=\time + \advance\c@pgf@countc by-\c@pgf@countd + \immediate\openout\w@pgf@writea=\jobname.profiler.\the\year-\pgfprofiletotwodigitstr\month-\pgfprofiletotwodigitstr\day_\pgfprofiletotwodigitstr\c@pgf@countb h_\pgfprofiletotwodigitstr\c@pgf@countc m.dat + \immediate\write\w@pgf@writea{% + \pgfprofile@percent relative values are measured against the totaltime of `\pgfprofile@rel'.% + }% + \pgf@typeout{pgflibraryprofiler: relative values are measured against the totaltime of `\pgfprofile@rel'.}% + \immediate\write\w@pgf@writea{% + profilerentry\pgfprofile@TAB + totaltime[s]\pgfprofile@TAB + totaltime[percent]\pgfprofile@TAB + selftime[s]\pgfprofile@TAB + selftime[percent]\pgfprofile@TAB + numinvocations\pgfprofile@TAB}% + % + % + % compute main time and prepare computation of relative times: + \pgfprofileifisrunning{\pgfprofile@rel}{% + \pgfprofileend{\pgfprofile@rel}% + }{}% + \pgf@xa=\csname c@pgfprofile@elapsedtotal@\pgfprofile@rel\endcsname sp + \edef\pgfprofiletotaltime{\pgf@sys@tonumber\pgf@xa}% + \pgfmathreciprocal@{\pgfprofiletotaltime}% + \let\pgfprofiletotaltime@inv=\pgfmathresult + % + % postprocess each of them: + \pgfprofile@all@registered@list@foreach{% + \pgfprofileifisrunning{##1}{% + \pgfprofileend{##1}% + }{}% + \pgfprofilepostprocess@single{##1}% + }% + \immediate\write\w@pgf@writea{% + \pgfprofile@percent\space vim: ts=40 nowrap nostartofline + }% + \immediate\closeout\w@pgf@writea + \endgroup }% {% @@ -415,116 +415,116 @@ \catcode`\%=12 \gdef\pgfprofile@percent{%}} \def\pgfprofilepostprocess@single#1{% - \begingroup - \pgf@xa=\csname c@pgfprofile@elapsedtotal@#1\endcsname sp - \pgf@xb=\csname c@pgfprofile@elapsedself@#1\endcsname sp - \pgf@ya=\pgfprofiletotaltime@inv\pgf@xa - \pgf@yb=\pgfprofiletotaltime@inv\pgf@xb - \multiply\pgf@ya by100 - \multiply\pgf@yb by100 - \edef\pgfprofilecur@total{\pgf@sys@tonumber\pgf@xa}% - \edef\pgfprofilecur@self{\pgf@sys@tonumber\pgf@xb}% - \edef\pgfprofilecur@total@rel{\pgf@sys@tonumber\pgf@ya}% - \edef\pgfprofilecur@self@rel{\pgf@sys@tonumber\pgf@yb}% - \immediate\write16{ - pgflibraryprofiler(#1) - \pgfprofile@lbrace - total time=\pgfprofilecur@total sec; (\pgfprofilecur@total@rel\pgfprofile@percent) - self time=\pgfprofilecur@self sec; (\pgfprofilecur@self@rel\pgfprofile@percent) - invocations=\csname c@pgfprofile@numinvocations@#1\endcsname; - \pgfprofile@rbrace - }% - \immediate\write\w@pgf@writea{% - #1\pgfprofile@TAB - \pgfprofilecur@total\pgfprofile@TAB - \pgfprofilecur@total@rel\pgfprofile@TAB - \pgfprofilecur@self\pgfprofile@TAB - \pgfprofilecur@self@rel\pgfprofile@TAB - \csname c@pgfprofile@numinvocations@#1\endcsname\pgfprofile@TAB - }% - \endgroup + \begingroup + \pgf@xa=\csname c@pgfprofile@elapsedtotal@#1\endcsname sp + \pgf@xb=\csname c@pgfprofile@elapsedself@#1\endcsname sp + \pgf@ya=\pgfprofiletotaltime@inv\pgf@xa + \pgf@yb=\pgfprofiletotaltime@inv\pgf@xb + \multiply\pgf@ya by100 + \multiply\pgf@yb by100 + \edef\pgfprofilecur@total{\pgf@sys@tonumber\pgf@xa}% + \edef\pgfprofilecur@self{\pgf@sys@tonumber\pgf@xb}% + \edef\pgfprofilecur@total@rel{\pgf@sys@tonumber\pgf@ya}% + \edef\pgfprofilecur@self@rel{\pgf@sys@tonumber\pgf@yb}% + \pgf@typeout{ + pgflibraryprofiler(#1) + \pgfprofile@lbrace + total time=\pgfprofilecur@total sec; (\pgfprofilecur@total@rel\pgfprofile@percent) + self time=\pgfprofilecur@self sec; (\pgfprofilecur@self@rel\pgfprofile@percent) + invocations=\csname c@pgfprofile@numinvocations@#1\endcsname; + \pgfprofile@rbrace + }% + \immediate\write\w@pgf@writea{% + #1\pgfprofile@TAB + \pgfprofilecur@total\pgfprofile@TAB + \pgfprofilecur@total@rel\pgfprofile@TAB + \pgfprofilecur@self\pgfprofile@TAB + \pgfprofilecur@self@rel\pgfprofile@TAB + \csname c@pgfprofile@numinvocations@#1\endcsname\pgfprofile@TAB + }% + \endgroup }% % Invokes '#2' for each element of the command separated list '#1'. % the current list element is available as '#1' inside of '#2'. \long\def\pgfprofileforeachentryinCSV#1#2{% - \long\def\pgfprofileinvokeforeach@@##1{#2}% - \pgfprofileforeachentryinCSVisterminated@loop#1,\pgfeov + \long\def\pgfprofileinvokeforeach@@##1{#2}% + \pgfprofileforeachentryinCSVisterminated@loop#1,\pgfeov }% \long\def\pgfprofileforeachentryinCSVisterminated@loop{% - \pgfutil@ifnextchar\pgfeov{\pgfutil@gobble}{\pgfprofileforeachentryinCSV@next}% + \pgfutil@ifnextchar\pgfeov{\pgfutil@gobble}{\pgfprofileforeachentryinCSV@next}% }% \long\def\pgfprofileforeachentryinCSV@next#1,{% - \pgfprofileinvokeforeach@@{#1}% - \pgfprofileforeachentryinCSVisterminated@loop% + \pgfprofileinvokeforeach@@{#1}% + \pgfprofileforeachentryinCSVisterminated@loop% }% -\xdef\pgfprofile@all@registered@list{} -\xdef\pgfprofile@currently@running@list{} +\xdef\pgfprofile@all@registered@list{}% +\xdef\pgfprofile@currently@running@list{}% \def\pgfprofile@all@registered@list@add#1{% - \ifx\pgfprofile@all@registered@list\pgfutil@empty - \xdef\pgfprofile@all@registered@list{#1}% - \else - \xdef\pgfprofile@all@registered@list{\pgfprofile@all@registered@list,#1}% - \fi + \ifx\pgfprofile@all@registered@list\pgfutil@empty + \xdef\pgfprofile@all@registered@list{#1}% + \else + \xdef\pgfprofile@all@registered@list{\pgfprofile@all@registered@list,#1}% + \fi }% \def\pgfprofile@all@registered@list@foreach#1{% - \expandafter\pgfprofileforeachentryinCSV\expandafter{\pgfprofile@all@registered@list}{#1}% + \expandafter\pgfprofileforeachentryinCSV\expandafter{\pgfprofile@all@registered@list}{#1}% }% \def\pgfprofile@advance#1#2{% - \begingroup - \c@pgf@counta=\csname #1\endcsname\relax - \advance\c@pgf@counta by#2\relax - \expandafter\xdef\csname #1\endcsname{\the\c@pgf@counta}% - \endgroup + \begingroup + \c@pgf@counta=\csname #1\endcsname\relax + \advance\c@pgf@counta by#2\relax + \expandafter\xdef\csname #1\endcsname{\the\c@pgf@counta}% + \endgroup }% \def\pgfprofile@cs@to@name@#1#2\relax{\def\pgfretval{#2}} % defines '\pgfretval' to be the control sequences name of '#1' *without* the backslash. \def\pgfprofile@cs@to@name#1{% - \expandafter\pgfprofile@cs@to@name@\string#1\relax + \expandafter\pgfprofile@cs@to@name@\string#1\relax }% \newcount\c@pgfprofile@stacktop \c@pgfprofile@stacktop=-1 \def\pgfprofilestackpush#1{% - \global\advance\c@pgfprofile@stacktop by1 - \expandafter\xdef\csname pgfprofile@stack@\the\c@pgfprofile@stacktop\endcsname{#1}% + \global\advance\c@pgfprofile@stacktop by1 + \expandafter\xdef\csname pgfprofile@stack@\the\c@pgfprofile@stacktop\endcsname{#1}% }% % pops the current stack top to macro #1 \def\pgfprofilestackpop#1{% - \pgfprofilestacktop#1% - \global\advance\c@pgfprofile@stacktop by-1 + \pgfprofilestacktop#1% + \global\advance\c@pgfprofile@stacktop by-1 }% % returns the stack's top to macro #1 \def\pgfprofilestacktop#1{% - \expandafter\let\expandafter#1\csname pgfprofile@stack@\the\c@pgfprofile@stacktop\endcsname + \expandafter\let\expandafter#1\csname pgfprofile@stack@\the\c@pgfprofile@stacktop\endcsname }% \def\pgfprofilestackifempty#1#2{% - \ifnum\c@pgfprofile@stacktop<0 #1\else #2\fi + \ifnum\c@pgfprofile@stacktop<0 #1\else #2\fi }% -\def\pgfprofiletotwodigitstr#1{\ifnum#1<10 0\the#1\else\the#1\fi} +\def\pgfprofiletotwodigitstr#1{\ifnum#1<10 0\the#1\else\the#1\fi}% -\pgfprofilenew{main job} -\pgfprofilestart{main job} +\pgfprofilenew{main job}% +\pgfprofilestart{main job}% \expandafter\xdef\csname c@pgfprofile@elapsed@at@start@main job\endcsname{0}% -\pgfprofilesetrel{main job} +\pgfprofilesetrel{main job}% \pgfutil@ifundefined{AtEndDocument}{% - % no latex. ok. + % no latex. ok. }{% - % do latex specific stuff: - \pgfprofilenew{preamble} - \pgfprofilestart{preamble} - \expandafter\xdef\csname c@pgfprofile@elapsed@at@start@preamble\endcsname{0}% - \AtBeginDocument{\pgfprofileend{preamble}}% - % - \AtEndDocument{\pgfprofilepostprocess}% + % do latex specific stuff: + \pgfprofilenew{preamble} + \pgfprofilestart{preamble} + \expandafter\xdef\csname c@pgfprofile@elapsed@at@start@preamble\endcsname{0}% + \AtBeginDocument{\pgfprofileend{preamble}}% + % + \AtEndDocument{\pgfprofilepostprocess}% }% \endinput -- cgit v1.2.3