summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty')
-rw-r--r--Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty74
1 files changed, 74 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty b/Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty
new file mode 100644
index 00000000000..6c9b255c6e6
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty
@@ -0,0 +1,74 @@
+\ProvidesPackage{fddial0g}[2011/08/23 dialogues with fifinddo (UL)]
+%% copyright (C) 2011 Uwe L\"uck,
+%%
+%% http://www.contact-ednotes.sty.de.vu
+%%
+%% -- author-maintained in the sense of LPPL below --
+%% This file can be redistributed and/or modified under
+%% the terms of the LaTeX Project Public License; either
+%% version 1.3c of the License, or any later version.
+%% The latest version of this license is in
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% We did our best to help you, but there is NO WARRANTY.
+%% Please report bugs, problems, and suggestions via
+%%
+%% http://www.contact-ednotes.sty.de.vu
+%%
+%% T0D0: more abstract setting and using of variables
+%% so the user must not invent names and see underscores.
+%% (Probably use namemod.)
+%%
+\RequirePackage{fifinddo}
+
+\catcode`\_=11
+
+%% |\ResultFile| gets a different meaning here
+%% in order to keep the dialogue nice.
+%% `\result_file_name' must be reserved for the original
+%% meaning of `\ResultFile'.
+\let\UseResultFile\ResultFile
+\def\ResultFile{\def\result_file_dialogue}
+\newcommand\InputFile{\def\input_file_name}
+\newif\iftoscreen
+
+\def\Announce#1#2{%
+ \typeout{%
+ \FD_dialogue_double_line
+ ^^J#1^^J%
+ The screen shows most recent settings commands.^^J%
+ You can modify initial settings in #2.^^J%
+ }%
+}
+\def\FD_dialogue_screen#1{%
+ \typeout{%
+ \FD_dialogue_double_line^^J%
+ #1%
+ \FD_dialogue_double_line
+ }%
+ \typein[\action]%
+ {Run with these settings? (Y)es? (C)hange? (Otherwise quit.)}%
+ \csname action_\action \endcsname
+}
+\def\FD_dialogue_double_line{%
+ ^^J%
+ ===========================================================}
+\def\run_with_settings_gen#1{%
+ \UseResultFile{\result_file_dialogue}%
+ #1%
+ \CloseResultFile
+ \typeout{Done.}%
+ \Dialogue
+}
+\def\FD_corrected_input_line{%
+ \expandafter \MakeDocCorrectHook \expandafter{\fdInputLine}}
+\@namedef{action_y}{\RunWithSettings}
+\@namedef{action_Y}{\RunWithSettings}
+\def\change_settings{%
+ \typein[\change]{^^JType setting command(s).}%
+ \change \Dialogue}
+\expandafter\let\csname action_c\endcsname \change_settings
+\expandafter\let\csname action_C\endcsname \change_settings
+
+\endinput