summaryrefslogtreecommitdiff
path: root/info/examples/tip/pm-main.tip
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-02-01 03:00:51 +0000
committerNorbert Preining <norbert@preining.info>2024-02-01 03:00:51 +0000
commita494a509f3f4a13a450c898488155f7aa5353bd3 (patch)
treeab11a3116dfe36f273b0eefe1a7abb556253a9c8 /info/examples/tip/pm-main.tip
parent79e1bbc1ad6b308aa2074540b2afd43b6a72ce03 (diff)
CTAN sync 202402010300
Diffstat (limited to 'info/examples/tip/pm-main.tip')
-rw-r--r--info/examples/tip/pm-main.tip111
1 files changed, 0 insertions, 111 deletions
diff --git a/info/examples/tip/pm-main.tip b/info/examples/tip/pm-main.tip
deleted file mode 100644
index 2ec2287495..0000000000
--- a/info/examples/tip/pm-main.tip
+++ /dev/null
@@ -1,111 +0,0 @@
-% This macro source file is from the four volume series
-% "TeX in Practice" by Stephan von Bechtolsheim, published
-% 1993 by Springer-Verlag, New York.
-% Copyright 1993 Stephan von Bechtolsheim.
-% No warranty or liability is assumed.
-% This macro may be copied freely if no fees other than
-% media cost or shipping charges are charged and as long
-% as this copyright and the following source code itself
-% is not changed. Please see the series for further information.
-%
-% Version: 1.0
-% Date: May 1, 1993
-%
-%
-% This source code is documented in 30.7.3, p. III-549.
-% Original source in file "pp1.TEX", starting line 825.
-\wlog{L: "pm-main.tip" ["pp1.TEX," l. 825, p. III-549]}%
-% This file DOES NOT belong to format "texip."
-\InputD{conval.tip}
-\InputD{ts-wind.tip}
-\catcode`\@ = 11
-\newif\ifPartVerbose
-\PartVerbosefalse
-\def\InitialParts{%
- \def\@AllPartsOfDocumentList{}%
- \def\@ToProcessList{}%
-}
-\def\DocPart #1{%
- \ConvertArgsToListAndAppend{\@AllPartsOfDocumentList}{#1}%
- \ifPartVerbose
- {%
- \wlog{\string\DocPart: List now current list of parts
- of this document:}%
- \def\\##1{\wlog{Document part "##1"}}%
- \@AllPartsOfDocumentList
- }%
- \fi
-}
-\def\ProcessPart #1{%
- \ConvertArgsToListAndAppend{\@ToProcessList}{#1}%
- \ifPartVerbose
- {%
- \wlog{\string\ProcessPart: List of parts which will
- be processed.}%
- \def\\##1{%
- \wlog{Part which will be processed: "##1"}%
- }%
- \@ToProcessList
- }%
- \fi
-}
-\def\ProcessNow{%
- \wlog{\string\ProcessNow: Start reading
- all auxiliary files.}%
- \@IgnoreAuxStuff
- \let\@NewLabel = \Saved@NewLabel
- \@ReadInAuxFiles
- \wlog{\string\ProcessNow: Done reading all auxiliary files.}%
- \i@openout\@TmpFileStream = \jobname.\TmpFileNameExtension
- \let\@AllPartsOfDocumentListCopy = \@AllPartsOfDocumentList
- {%
- \def\\{\noexpand\@DoPart}%
- \xdef\@AllPartsOfDocumentListCopy{%
- \@AllPartsOfDocumentListCopy
- }%
- }%
- \@AllPartsOfDocumentListCopy
-}
-\newif\if@ProcessThisPart
-\def\@DoPart #1{%
- \gdef\CurrentPartName{#1}%
- \@ProcessThisPartfalse
- \if\EmptyListConditional{\@ToProcessList}%
- \@ProcessThisParttrue
- \fi
- \if\MemberOfListConditional{\@ToProcessList}{\CurrentPartName}%
- \@ProcessThisParttrue
- \fi
- \if@ProcessThisPart
- \@DoPartProcess
- \else
- \@DoPartNotProcess
- \fi
-}
-\def\@DoPartProcess{%
- \wlog{\string\@DoPartProcess: process part "\CurrentPartName".}
- \i@openout\@PartAuxStream =
- \CurrentPartName.\AuxFileNameExtension
- \OpenIndexFiles{\CurrentPartName}%
- \input \CurrentPartName.\PartSourceFileNameExtension
- \EvalEveryParsCE
- \vfill\supereject
- \WriteCountersToAuxFile
- \wlog{\string\@DoPart: "\CurrentPartName" was processed.}%
- \i@closeout\@PartAuxStream
- \NameUse{CloseIndexFiles}%
-}
-\def\@DoPartNotProcess{%
- \wlog{\string\@DoPartNotProcess:
- "\CurrentPartName.\PartSourceFileNameExtension" not
- processed.}%
- \@IgnoreAuxStuff
- \let\@SetCounter = \SetCounter
- \InputCWithAt{\CurrentPartName.\AuxFileNameExtension}
- \@PageNumbersToCounterRegs
-}
-\def\EndProcessing{%
- \i@closeout\@TmpFileStream
- \@BuildNewSpecialFiles
-}
-\catcode`\@ = 12