From 408cfedcfd5475001e9dd7bd27370fbcfd72f50b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 16 Apr 2014 21:45:54 +0000 Subject: asypictureb (16apr14) git-svn-id: svn://tug.org/texlive/trunk@33465 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/latex/asypictureb/asypictureB.sty | 338 +++++++++++++++++++++ 1 file changed, 338 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/asypictureb/asypictureB.sty (limited to 'Master/texmf-dist/tex/latex/asypictureb/asypictureB.sty') diff --git a/Master/texmf-dist/tex/latex/asypictureb/asypictureB.sty b/Master/texmf-dist/tex/latex/asypictureb/asypictureB.sty new file mode 100644 index 00000000000..cfca65bcdd6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/asypictureb/asypictureB.sty @@ -0,0 +1,338 @@ +%% +%% This is file `asypictureB.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% asypictureB.dtx (with options: `package') +%% ---------------------------------------------------------------- +%% asypictureB --- user-friendly integration of Asymptote into LaTeX +%% E-mail: cstaats at math.uchicago.edu +%% Released under the LaTeX Project Public License v1.3c or later +%% See http://www.latex-project.org/lppl.txt +%% ---------------------------------------------------------------- +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{asypictureB} + [2014/04/15 v0.3 user-friendly integration of Asymptote into LaTeX] +\RequirePackage{fancyvrb} +\RequirePackage{graphicx} +\RequirePackage{pgfkeys} + +\makeatletter + +\def\asy@OutFile{\FV@OutFile} + +\RequirePackage{ifplatform} + +\ifshellescape + \def\ASYPIC@shell{18} + \newcommand{\shell@execute}{\immediate\write\ASYPIC@shell} +\else +\newwrite\ASYPIC@shell +\ifwindows + \openout\ASYPIC@shell=\jobname-compile_asy.bat\relax +\else + \openout\ASYPIC@shell=\jobname-compile_asy.sh\relax +\fi +\newcommand{\shell@execute}[1]{{% +\edef\temp{#1}% + \write\expandafter\ASYPIC@shell\expandafter{\temp}% +}} +\fi + +\ifshellescape + \newcommand{\copyfile}[2]{% + \ifwindows% + \immediate\write18{copy #1 #2 /y}% + \else% + \immediate\write18{cp #1 #2}% + \fi% + } +\else + \RequirePackage{verbatimcopy} + \newcommand{\copyfile}[2]{% + \OldVerbatimCopy{#1}{#2}% + } +\fi + +\newcommand{\deletefile}[1]{% + \ifwindows% + \shell@execute{del #1}% + \else% + \shell@execute{rm #1}% + \fi% +} + +\newcommand{\asyset}[1]{\pgfqkeys{/asy}{#1}} +\newcommand{\@asyerrorfilename}{\@asypicturename_errors.txt} +\newcounter{@asy@linenumber} + +\asyset{name/.initial=noname, name/.value required}% + +\asyset{graphic options/.code={}} +\asyset{set graphic option/.style={graphic options/.append code=#1}} +\asyset{.unknown/.code = % + {% + \edef\unknownkey{\pgfkeyscurrentname}% + \asyset{set graphic option/.expand once = {% + \expandafter\setkeys\expandafter{% + \expandafter G\expandafter i\expandafter n\expandafter% + }\expandafter{\unknownkey=#1}% + }}% + }% +} +\def\asy@scale{1} +\asyset{scale/.style={set graphic option = {\def\asy@scale{#1}}}, + scale/.value required} +\newcommand{\asy@angle}{0} +\asyset{angle/.style = {set graphic option = {\def\asy@angle{#1}}}, + angle/.value required} + +\newcommand{\getfontsize}{\f@size} + +\newif\ifasyfilechanged +\newif\ifASYPIC@flush +\newif\if@asyrepeat +\newread\@asyreadold +\newread\@asyreadnew +\edef\@tempasyfile{\jobname-temp} + +\newcommand{\RequireAsyRecompile}{\ASYPIC@flushtrue} +\newcommand{\AsyCompileIfNecessary}{\ASYPIC@flushfalse} +\AsyCompileIfNecessary + +\newcommand\clearasyheader{\def\ASYPIC@header{}} + +\def\ASYPIC@header{} + +\def\asyheader{\FV@Environment{}{asyheader}} + +\def\FVB@asyheader{% + \@bsphack + \begingroup + \FV@UseKeyValues + \FV@DefineWhiteSpace + \def\FV@Space{\space}% + \FV@DefineTabOut + \def\FV@ProcessLine##1{\g@addto@macro\ASYPIC@header{##1^^J}}% + \let\FV@FontScanPrep\relax + %% DG/SR modification begin - May. 18, 1998 + %% (to avoid problems with ligatures) + \let\@noligs\relax + %% DG/SR modification end + \FV@Scan}% + +\def\FVE@asyheader{\endgroup\@esphack} + +\DefineVerbatimEnvironment{asyheader}{asyheader}% + {codes={\catcode`@=0},tabsize=4} +\begin{asyheader} +defaultpen(fontsize(@getfontsize pt)); +settings.prc = false; +\end{asyheader} +\def\asypicture{\FV@Environment{}{asypicture}} + +\newcommand{\ASYPIC@recordname}[1]{% + \edef\tempmacroname{ASYPIC@name@#1}% + \ifcsname\tempmacroname\endcsname%% if \ASYPIC@name@... is defined + \edef\oldnum{\csname\tempmacroname\endcsname}% + \edef\@asypicturename% + {\scantokens\expandafter{\jobname\noexpand}-#1__\oldnum}% + \expandafter\xdef\csname\tempmacroname\endcsname% + {\the\numexpr\oldnum+1\relax}% + \edef\ASYPIC@current@num{\csname\tempmacroname\endcsname}% + \else%% This is the first time this name is being used. + \edef\@asypicturename% + {\scantokens\expandafter{\jobname\noexpand}-#1}% + \expandafter\gdef\csname\tempmacroname\endcsname{1}% + \fi% + \xdef\asylistingfile{\@asypicturename.asy} +} + + +\def\FVB@asypicture#1{% + \@bsphack + \asyset{graphic options/.code={}}% + \asyset{#1, name/.get = \currentname}% + \ASYPIC@recordname{\currentname}% + \begingroup + \FV@UseKeyValues + \FV@DefineWhiteSpace + \def\FV@Space{\space}% + \FV@DefineTabOut + \def\FV@ProcessLine{\immediate\write\asy@OutFile}% + \immediate\openout\asy@OutFile\@tempasyfile.asy\relax + \immediate\write\asy@OutFile{\ASYPIC@header^^J} + \let\FV@FontScanPrep\relax + %% DG/SR modification begin - May. 18, 1998 + %% (to avoid problems with ligatures) + \let\@noligs\relax + %% DG/SR modification end + \FV@Scan} + +\newcommand{\ASYPICcomparefiles}[2]{ + \IfFileExists{\@asypicturename.asy}% + {\openin\@asyreadold=#1.asy\relax% + \openin\@asyreadnew=#2.asy\relax% + \asyfilechangedfalse% + \@asyrepeattrue% + \loop% + \ifeof\@asyreadold% + \@asyrepeatfalse% + \ifeof\@asyreadnew% + \else% + \asyfilechangedtrue% + \fi% + \else% + \ifeof\@asyreadnew% + \@asyrepeatfalse% + \asyfilechangedtrue% + \else% Not at the end of either file in this case + \read\@asyreadold to \oldfileline% + \read\@asyreadnew to \newfileline% + \ifx\oldfileline\newfileline% + \@asyrepeattrue% + \else + \asyfilechangedtrue% + \@asyrepeatfalse% + \fi% + \fi% + \fi% + \if@asyrepeat + \repeat% + \closein\@asyreadold% + \closein\@asyreadnew% + }% + {\asyfilechangedtrue}% + \IfFileExists{#1.pdf}{}{% + \IfFileExists{#1.png}{}{% + \IfFileExists{#1.eps}{}{% + \asyfilechangedtrue% + }% + }% + }% +} + +\def\ASYPIC@runasy{% + \message{Attempting to run asy on \@asypicturename.asy^^J}% + \shell@execute{asy -noV \@asypicturename.asy 2> \@asyerrorfilename}% + \openin\@asyreadold=\@asyerrorfilename\relax% + \ifeof\@asyreadold% + \closein\@asyreadold% + \else% + \def\@asyerrormessage{^^JPossible Asymptote error:^^J}% + \read\@asyreadold to \@asyerrorfirstline% + \g@addto@macro\@asyerrormessage{\@asyerrorfirstline^^J}% + \ifeof\@asyreadold% + \closein\@asyreadold% + \else% + {\endlinechar=`^^J% + \loop% + \readline\@asyreadold to \@asytempmessage% + \expandafter\g@addto@macro\expandafter% + \@asyerrormessage\expandafter{\@asytempmessage^^J}% + \unless\ifeof\@asyreadold\repeat% + }% + \closein\@asyreadold% + \g@addto@macro\@asyerrormessage{^^J}% + %Next: Need to process \@asyerrorfirstline to figure + %out the Asymptote file line number + \expandafter\def\expandafter\@asy@processerrorline% + \expandafter##\expandafter1\@asypicturename.asy:% + ##2.##3\relax{\xdef\@asy@errorline{\numexpr##2\relax}}% + {\expandafter\expandafter\expandafter% + \@asy@processerrorline\expandafter% + \@asyerrorfirstline\@asypicturename.asy: -5.\relax% + }% The surrounding braces should prevent too much from + % being gobbled in case the pattern doesn't match. + \openin\@asyreadold\@asypicturename.asy\relax% + \edef\numlinesout{5} + \setcounter{@asy@linenumber}{\numlinesout} + \loop\ifnum\value{@asy@linenumber}<\@asy@errorline% + \readline\@asyreadold to \temp% + \stepcounter{@asy@linenumber}% + \repeat% + % + \addtocounter{@asy@linenumber}{-\numlinesout} + % + {% + \endlinechar=`^^J% + \loop\ifnum\value{@asy@linenumber}<\@asy@errorline% + \stepcounter{@asy@linenumber}% + \edef\temp/{\arabic{@asy@linenumber}}% + \expandafter\g@addto@macro\expandafter% + \@asyerrormessage\expandafter{\temp/ }% + \readline\@asyreadold to \@asytempmessage% + \expandafter\g@addto@macro\expandafter% + \@asyerrormessage\expandafter{\@asytempmessage}% + \repeat% + }% + \closein\@asyreadold% + \PackageError{asypictureB}{\@asyerrormessage}{% + The Asymptote run described above + gave a non-empty error log. I have^^J + reproduced the error log and attempted + to print the five lines leading^^J + up to the error. Press enter or return + to continue, and then fix your^^J + Asymptote code when this run is done. + }% + \fi% + \fi% +} + +\def\FVE@asypicture{\immediate\closeout\asy@OutFile\endgroup% + \@esphack% + \ifASYPIC@flush% + \asyfilechangedtrue% + \else% + \ASYPICcomparefiles{\@asypicturename}{\@tempasyfile}% + \fi% + \ifasyfilechanged% + \IfFileExists{\@asypicturename.png}% + {\deletefile{\@asypicturename.png}}{}% + \IfFileExists{\@asypicturename.pdf}% + {\deletefile{\@asypicturename.pdf}}{}% + \IfFileExists{\@asypicturename.eps}% + {\deletefile{\@asypicturename.eps}}{}% + \copyfile{\@tempasyfile.asy}{\@asypicturename.asy} + \ASYPIC@runasy% + \fi% + \asyset{graphic options}% + % Avoid giving "file does not exist" errors. + \chardef\previousinteractionmode=\interactionmode% + \batchmode% + \includegraphics[scale=\asy@scale,angle=\asy@angle]% + {\@asypicturename}% + \interactionmode=\previousinteractionmode% +} + +\DefineVerbatimEnvironment{asypicture}{asypicture}% + {codes={\catcode`@=0},tabsize=4} + +\ifshellescape\else + \AtEndDocument{\closeout\ASYPIC@shell} +\fi + +\makeatother +%% +%% Copyright (C) 2014 by Charles Staats III +%% +%% This file may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License (LPPL), either +%% version 1.3c of this license or (at your option) any later +%% version. The latest version of this license is in the following file: +%% +%% http://www.latex-project.org/lppl.txt +%% +%% This work is "maintained" (as per LPPL maintenance status) by +%% Charles Staats III. +%% +%% This work consists of the file asypictureB.dtx +%% and the derived files asypictureB.ins, +%% asypictureB.pdf, and +%% asypictureB.sty. +%% +%% +%% End of file `asypictureB.sty'. -- cgit v1.2.3