%% %% 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 %% %% 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'.