summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/frankenstein/newclude.stq
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/frankenstein/newclude.stq')
-rw-r--r--Master/texmf-dist/tex/latex/frankenstein/newclude.stq223
1 files changed, 223 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/frankenstein/newclude.stq b/Master/texmf-dist/tex/latex/frankenstein/newclude.stq
new file mode 100644
index 00000000000..071ce7f85f5
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/frankenstein/newclude.stq
@@ -0,0 +1,223 @@
+%%
+%% This is file `newclude.stq',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% newclude.sty
+%%
+%% This program is part of the Frankenstein bundle for LaTeX.
+%%
+%% Copyright (C) 1995-2001 Matthew Swift <swift@alum.mit.edu>
+%%
+%% This file may have one of TWO names, either
+%% newclude.sty or newclude.stq. This
+%% LaTeX package will work ONLY if it is called newclude.sty
+%% and placed in a proper directory. This file should have been
+%% distributed to you with a DIFFERENT file (also) called
+%% newclude.sty which functions identically to this one
+%% but contains documentation in comments. This file works faster,
+%% but the other should be kept because it contains the documentation
+%% for this LaTeX package. Files called README and INSTALL should have
+%% also been distributed to you with this file; see them for more
+%% information.
+%%
+%% This program is free software; you may redistribute it and/or
+%% modify it under the conditions of the LaTeX Project Public
+%% License, either version 1.2 or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt, and version 1.2 or later is
+%% part of all distributions of LaTeX version 1999/12/01 or later.
+%%
+%% 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
+%% LaTeX Project Public License for more details.
+%%
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+
+\def\fileinfo{A new system for including files (Frankenstein's backbone)}
+\def\DoXPackageS {}
+\def\fileversion{v2}
+\def\filedate{1999/11/02}
+\def\docdate{1999/11/02}
+\edef\PPOptArg {%
+ \filedate\space \fileversion\space \fileinfo
+}
+\makeatletter% A special comment to help create bst files. Don't change!
+\@ifundefined{JusTLoaDInformatioN} {%
+ }{% ELSE (we know the compsci package is already loaded, too)
+ \UndefineCS\JusTLoaDInformatioN
+ \SaveDoXVarS
+ \eExpand\csname DoXPackageS\endcsname\In {%use \csname in case it's undefined
+ \usepackage{#1}%
+ }%
+ \RestoreDoXVarS
+ \makeatother
+ \endinput
+}% A special comment to help create bst files. Don't change!
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{newclude}[\PPOptArg]
+%%
+\RequirePackage{moredefs}
+\InitCS\sc@t@a
+\DeclareOption{simple} {%
+ \input{simple.sto}
+ \let\sc@t@a\endinput
+}
+\DeclareOption{tag} {%
+ \AtEndOfPackage {\input{tag.sto}}
+}
+\DeclareOption{allocate} {%
+ \AtEndOfPackage {\input{allocate.sto}}
+}
+\DeclareBooleanOptions{dynamic}{static}
+\ExecuteOptions{tag}
+\ProcessOptions
+\sc@t@a
+\ReserveCS\nc@t@a
+\ReserveCS\nc@t@b
+\ReserveCS\nc@t@c
+\newtokens\nc@toks@a
+\newcommand\DefaultIncludeSurround {%
+ \par
+}
+\newlet\IncludeSurround\DefaultIncludeSurround
+\newcounter{IncludeDepth} % starts at 0
+\newcommand\IfAllowed [1] {%
+ \@firstoftwo
+}
+\newcommand\includeall {%
+ \let\includeonly\Gobble
+}
+\defcommand\includeonly [1] {%
+ \@partswtrue
+ \edef\@partlist {\zap@space#1 \@empty}%
+ \@for\nc@t@a:=\@partlist \do {%
+ \InitName*{nc@part@\nc@t@a}%
+ }%
+ \defcommand\IfAllowed [1] {% args: part-name
+ \@ifundefined{nc@part@##1} {%
+ \let\nc@t@c\@secondoftwo
+ }{% ELSE
+ \let\nc@t@c\@firstoftwo
+ }%
+ \nc@t@c
+ }%
+}
+\def\include {%
+ \@ifstar {%
+ \let\nc@t@b\IncludeSurround
+ \nc@include
+ }{% ELSE
+ \let\nc@t@b\clearpage
+ \nc@include
+ }%
+}
+\ReserveCS\DisableAll
+\newcommand\Disable [1] {%
+ \g@addto@macro\DisableAll{#1}%
+}
+\ReserveCS\nc@radical@shutdown
+\addto@macro\nc@radical@shutdown {%
+ \MonsterInfo{newclude}
+ {\protect\nc@radical@shutdown\space beginning}}
+\addto@macro\nc@radical@shutdown{\catcode`\%=14} % 14 = comment
+\addto@macro\nc@radical@shutdown{\catcode`\^=7} % 7 = superscript
+\newcommand\nc@disable@char[1] {%
+ \addto@macro\nc@radical@shutdown
+ {\catcode`#1=14}} % 14 = comment
+\@tfor\sc@t@a:=abcdefghijklmnopqrstuvwxyz%
+ ABCDEFGHIJKLMNOPQRSTUVWXYZ%
+ ~!@$&*()_+-=[]|/?.,<>%
+ 1234567890%
+ `'";:%
+ \^\\\{\}\ % this is really the chars "^\{}" and space
+ \do {\expandafter\nc@disable@char\sc@t@a}
+\nc@disable@char\#
+\addto@macro\nc@radical@shutdown{\endinput}
+\newcommand\nc@radical@shutdown@aftergroup {%
+ \aftergroup\nc@radical@shutdown
+}
+\newcommand\includedoc {%
+ \md@check@star
+ \Expand \sc@star@nothing\In {%
+ \IncludeEnv##1{document}{}%
+ }%
+}
+\newcommand\includedocskip {%
+ \md@check@star
+ \Expand \sc@star@nothing\In {%
+ \IncludeEnvSkip##1{document}{}%
+ }%
+}
+\newcommand\IncludeEnv [2] {% args: environment instance
+ \md@check@star
+ \@ifnextchar [ {% ^^A for Emacs: ]
+ \nc@includeenv{#1}{#2}%
+ }{% ELSE
+ \nc@includeenv{#1}{#2}[]%
+ }%
+}
+\NewName{nc@includeenv} {#1#2[#3]} {% args: environment instance [prehook]
+ \@ifnextchar [ {% ^^A for Emacs: ]
+ \nc@@includeenv {#1}{#2}{#3}%
+ }{% ELSE
+ \nc@@includeenv {#1}{#2}{#3}[]%
+ }%
+}
+\NewName{nc@@includeenv} {#1#2#3[#4]} {% args: environment instance prehook [posthook]
+ \begingroup
+ \DisableAll
+ \let\documentclass\GobbleOM
+ \let\usepackage\GobbleOM
+ \expandafter\def\csname end#1\endcsname {%
+ \makeatletter
+ % POSTHOOK
+ \nc@radical@shutdown@aftergroup
+ }%
+ \expandafter\def\csname #1\endcsname {} % PREHOOK
+ \endgroup
+ \par
+ \Expand \sc@star@nothing\In {%
+ \include##1{#2}%
+ }%
+}
+\NewName {nc@@includeenvskip} {#1#2#3[#4]} {% args: environment instance prehook [posthook]
+ \begingroup
+ \DisableAll
+ \expandafter\def\csname end#1\endcsname {%
+ \makeatletter
+ % POSTHOOK
+ \nc@radical@shutdown@aftergroup
+ }%
+ \expandafter\def\csname #1\endcsname {} % PREHOOK
+ \long\def\documentclass ##1\begin{document}{%
+ \begingroup
+ \def\@currenvir{document}%
+ }
+ \endgroup
+ \par
+ #1%
+}
+\newcommand\DeclareFormattingPackage [1] {%
+ \addto@macro\nc@formatting@packages{,#1}%
+}
+\newcommand\nc@formatting@packages {times,helvetic}
+\endinput
+%%
+%% End of file `newclude.stq'.