summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/fillform/select.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.sty61
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