diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex209/contrib/fillform/select.sty |
Initial commit
Diffstat (limited to 'macros/latex209/contrib/fillform/select.sty')
-rw-r--r-- | macros/latex209/contrib/fillform/select.sty | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/macros/latex209/contrib/fillform/select.sty b/macros/latex209/contrib/fillform/select.sty new file mode 100644 index 0000000000..a8a5277efd --- /dev/null +++ b/macros/latex209/contrib/fillform/select.sty @@ -0,0 +1,61 @@ +%% +%% Copyright (C) 1992 by Zden\v{e}k Wagner. All rights reserved. +%% +%% IMPORTANT NOTICE +%% +%% You are NOT ALLOWED to delete this notice. You are NOT ALLOWED to take +%% money for the distribution or use of this file (or a changed version) +%% except for a nominal charge for copying etc. +%% +%% If you change or add something, you are obliged to comment it in such a +%% way that anyone could restore the original version. +%% +%% Error Reports and suggestions for improvements to:<Wagner@csearn.bitnet> +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\typeout{_____________________________________________________________} +\typeout{Cumbersome version of "selection" designed by Z. Wagner, 1992} +\typeout{-------------------------------------------------------------} +\typeout{} +\newwrite\sel\relax + +\def\writeline#1{% + \immediate\write \sel {#1} +} + +\def\writedef#1{% + \immediate\write \sel {\string\def\string#1{#1}} +} + +\def\writenewcnt#1{% + \writeline{\string\newcount\string#1 \string#1=\the#1} +} + +\def\writecnt#1{% + \writeline{\string#1=\the#1} +} + +\def\selection{ + \writeline{\string\typeout{No selection was made. Please use}} + \writeline{\string\typeout{\string\string\string\renewcommand{\string\string + \string\selection}{...your commands...}}} + \writeline{\string\typeout{or \string\string\string\def\string\string + \string\selection{...your commands...}}} + \writeline{\string\typeout{to define your selection routine. Do not forget + to delete \jobname.sel!}} +} + +\def\makeselection{% + \openin1 \jobname.sel + \ifeof1 + \typeout{No file \jobname.sel} + \immediate\openout\sel=\jobname.sel\relax + \selection % this calls user selection routine + \immediate\closeout \sel + \else \closein1\relax + \fi + \input{\jobname.sel} +} + +\endinput |