% ------------------------------------------------------------------------ % File: srctex.sty % ========== % % Version 1.002 1999 Sep 3 (modified to change \everypar) % by David Carlisle % % Version 1.001 1998 Dec 23 (modified to change \output) % by Berthold Horn % % This package was originally written by Aleksander Simonic (the % author of WinEdt Shell) to implement a source file tracking and % DVI "SRC" specials for TeX. % % This package comes with no guarantees and no reserved rights. % You can use or modify this file at your own risk. % ************************************************************************ % NOTE: TeX commands are case sensitive. You have to use uppercase % \Input to take advantage of this package % % This package supports nested \Input commands... % File extension should be specified in \Input! % % This file should be placed in a directory where your TeX is % looking for inputs (eg. ...\localtexmf\tex for MiKTeX). % % ************************************************************************ % % Some TeX implementations (eg. MiKTeX 1.20 [or later]) can insert % the SRC specials much better than any macro package. Consult your % TeX documentation to see if it is better to leave the task to your % TeX. You can still use the [inactive] version of this package to % take advantage of the re-defined Input commands and thus allowing % WinEdt to keep track of errors in included source files. % % MiKTeX inserts the SRC specials in the DVI file if you start % TeX with --src qualifier (see MiKTeX's Manual: % ...\texmf\Doc\MiKTeX\MiKTeX.pdf for more info). % % ************************************************************************ % % If you are writing a book with WinEdt Shell and TeX simply % include this file and use "\Input{my_chapter}" instead of % "\input my_chapter". This way all the necessary specials for % DVI Search and Inverse Search are inserted in your DVI File. % % WinEdt will be able to track Errors from your LOG file. % % To remove SRC Specials from the dvi file compile the source % after inserting \SRCOKfalse immediately after % the \usepackage{srctex} directive... % % This package supports nested \Input commands... % File extension should be specified in \Input! % % ************************************************************************ % % * NOTE: Some TeX implementations add the file type to the "\jobname". % In that case the definition of the "\MainFile" should be modified to: % % \def\MainFile{\jobname} instead of \def\MainFile{\jobname.tex}. % % ************************************************************************ \def\typeout#1{\message{^^J}\message{#1}\message{^^J}} % \newif\ifSRCOK \SRCOKtrue \newcount\PAGETOP \newcount\LASTLINE \global\PAGETOP=1 \global\LASTLINE=-1 \def\EJECT{\SRC\eject} \def\WinEdt#1{\typeout{:#1}}% WinEdt LOG MODE and INPUT \gdef\MainFile{\jobname.tex}% ".tex" needed for MiKTeX \gdef\CurrentInput{\MainFile} \newcount\INPSP \global\INPSP=0 % ------------------------------------------------------------------------ %If your are using DVIWIN remove the \space from the definitions below... \def\SRC{\ifSRCOK% \ifnum\inputlineno>\LASTLINE% \ifnum\LASTLINE<0% \global\PAGETOP=\inputlineno% \fi% \global\LASTLINE=\inputlineno% \ifnum\INPSP=0% \ifnum\inputlineno>\PAGETOP% \special{src:\the\inputlineno\space\CurrentInput} \fi% \else% \special{src:\the\inputlineno\space\CurrentInput} \fi% \fi% \fi} % ------------------------------------------------------------------------ \def\PUSH#1{% \SRC% \ifnum\INPSP=0 \global\let\INPSTACKA=\CurrentInput \else% \ifnum\INPSP=1 \global\let\INPSTACKB=\CurrentInput \else% \ifnum\INPSP=2 \global\let\INPSTACKC=\CurrentInput \else% \ifnum\INPSP=3 \global\let\INPSTACKD=\CurrentInput \else% \ifnum\INPSP=4 \global\let\INPSTACKE=\CurrentInput \else% \ifnum\INPSP=5 \global\let\INPSTACKF=\CurrentInput \else% \global\let\INPSTACKX=\CurrentInput \fi\fi\fi\fi\fi\fi% \gdef\CurrentInput{#1}% \WinEdt{<+ \CurrentInput}% \global\LASTLINE=0% \ifSRCOK\special{src:1\CurrentInput}\fi% \global\advance\INPSP by 1} % \def\POP{% \ifnum\INPSP>0 \global\advance\INPSP by -1 \fi% \ifnum\INPSP=0 \global\let\CurrentInput=\INPSTACKA \else% \ifnum\INPSP=1 \global\let\CurrentInput=\INPSTACKB \else% \ifnum\INPSP=2 \global\let\CurrentInput=\INPSTACKC \else% \ifnum\INPSP=3 \global\let\CurrentInput=\INPSTACKD \else% \ifnum\INPSP=4 \global\let\CurrentInput=\INPSTACKE \else% \ifnum\INPSP=5 \global\let\CurrentInput=\INPSTACKF \else% \global\let\CurrentInput=\INPSTACKX \fi\fi\fi\fi\fi\fi% \WinEdt{<-}% \global\LASTLINE=\inputlineno% \global\advance\LASTLINE by -1% \SRC} % ------------------------------------------------------------------------ % Dummy Input: can be used as \INPUT{<file>.bbl} to collect \bibitems \def\INPUT#1{\relax} % ------------------------------------------------------------------------ \def\Input#1{%Specify File Extension! \SRC% \PUSH{#1}% \input #1% \POP% \SRC} % ------------------------------------------------------------------------ % Note that these have been defined to concatenate the \SRC with % whatever those token lists did before, just in case they were not % empty token lists. Of course, later definitions may undo all this... \let\originalxxxeverypar\everypar \newtoks\everypar \originalxxxeverypar{\the\everypar\expandafter\SRC} %\everypar\expandafter{\the\everypar\expandafter\SRC} % ??? Remove the following line if you encounter problems: \everymath\expandafter{\the\everymath\expandafter\SRC} %------------------------------------------------------------------------ % Modification to output routine to turn off \SRC while \output is active \output\expandafter{\expandafter\SRCOKfalse\the\output} %------------------------------------------------------------------------