diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/nicetext/run/fddial0g.sty | 74 |
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 |