From 220642dbc88e804b285b1d77b7785de73213236b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 25 Jan 2013 23:16:00 +0000 Subject: dialogl 1.99a reinstated as lppl (24jan13) git-svn-id: svn://tug.org/texlive/trunk@28946 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/dialogl/diatest.tex | 167 ++++++++++++++++++++++++ 1 file changed, 167 insertions(+) create mode 100644 Master/texmf-dist/doc/latex/dialogl/diatest.tex (limited to 'Master/texmf-dist/doc/latex/dialogl/diatest.tex') diff --git a/Master/texmf-dist/doc/latex/dialogl/diatest.tex b/Master/texmf-dist/doc/latex/dialogl/diatest.tex new file mode 100644 index 00000000000..a6eb0c2801d --- /dev/null +++ b/Master/texmf-dist/doc/latex/dialogl/diatest.tex @@ -0,0 +1,167 @@ +% Copyright 1994 Michael John Downes +% Copyright 2013 TeX Users Group +% This file is part of the dialogl package, released under the LPPL; +% see dialogl.ins for details. + +% Test of the `menus' package. You can run this file with (at least) +% plain TeX, LaTeX (2e), and old LaTeX (2.09). +% +% Some chicanery to make this file work in several different contexts. +\ifx\undefined\documentclass + \def\NeedsTeXFormat#1{}\def\RequirePackage#1{\input #1.sty \relax} + \def\ProvidesPackage#1[#2]{} + \ifx\undefined\documentstyle + \def\startup{\input menus.sty \relax} + \else + \def\startup{\documentstyle[menus]{article}} + \fi +\else + \def\startup{% + \documentclass{article}% + \usepackage{menus}% + } +\fi + +\startup + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\mesj{ +The following series of tests is designed to cover most of the +features that are provided by dialog.sty. If you compare what you +see on screen with the contents of the file diatest.tex you will +see how they correspond. + +Press the Return or Enter key to continue:} +\readline{}\xyz + +\promptmesj{ + +Testing \mesj: +Press return to continue: } +\readline{}\xyz\mesj{} +\mesj{Give ~ me %^^L an &| + \newif #} + +\promptmesj{ +Testing \xmesj: +Press return to continue: } +\readline{}\xyz\mesj{} +\xmesj{Do we have \{\}\\ characters? +And \iftrue\.true\else\.false\fi. +Not to mention ampersand \&, since \string\iftrue.} + +\promptmesj{ +Testing \xmesj inside of a \def: +Press return to continue: } +\readline{}\xyz\mesj{} +\def\next{\xmesj{Abc space:\ , control-M: \^^M, and percent:\%\ +and another line break.}} +\next + +\promptmesj{ +Testing \promptmesj: +Press return to continue: } +\readline{}\xyz\mesj{} +\promptmesj{Enter this or that: } +\readline{}\xyz + +\promptmesj{ +Testing \storemesj: +Press return to continue: } +\readline{}\xyz\mesj{} +\storemesj\foo{This is a fine old message, isn't it?: +\mesj{Give ~ me %^^L an &| + \newif }} +\xmesj{\foo} + +\promptmesj{ +Testing \storexmesj now with an arg: +Press return to continue: } +\readline{}\xyz\mesj{} +\storexmesj\foo#1{This is a fine old message, isn't it?: +\\mesj{Give ~ me \%^^L an \&|#1 + \\newif \#}} +\xmesj{\foo{KABLOO}} + +\promptmesj{ +Testing \fmesj: +Press return to continue: } +\readline{}\xyz\mesj{} +\fmesj\foo{This is a fine old message, isn't it?: +\mesj{Give ~ me %^^L an &| + \newif}} +\foo + +\promptmesj{ +Testing \fxmesj now with an arg: +Press return to continue: } +\readline{}\xyz\mesj{} +\fxmesj\foo#1{This is a fine old message, isn't it?: +\\mesj{Give ~ me \%^^L an \&|#1 + \\newif \#}} +\foo{KABLOO} + +\promptmesj{ +Would you like to try out \readline? [yes or no]: } +\readline{}\answer +\xmesj{Well, if I understood you correctly, you answered `\answer'} + +\promptmesj{ +OK, now try give me an executable answer, such as +"\iftrue yes\else no\fi": } +\xreadline{}\answer +\xmesj{Well, and now if I try to execute that: "\answer"} + +\promptmesj{ +OK, now let's try \readchar. Give me an arbitrary answer of +one or more characters: } +\readchar{}\answer +\xmesj{Taking the first character from your answer, I get: "\answer"} + +\promptmesj{ +OK, now let's try \readChar. Give me an arbitrary answer of +one or more letters: } +\readChar{}\answer +\xmesj{Taking the first character from your answer, and +uppercasing it, I get: "\answer"} + +\promptmesj{ +OK, give me a number then, so that I can +check it with \checkinteger: } +\readline{}\answer +\checkinteger\answer\fam +\xmesj{\ifnum\fam=-\maxdimen% +Gee, I don't think that was\else\.Got\fi% + a valid number: "\answer"} + +\def\dimtest#1{\promptxmesj{#1}% + \readline{}\answer + \ifx\empty\answer + \else + \checkdimen\answer\vfuzz + \ifdim\vfuzz=-\maxdimen% + \xmesj{Sorry, that doesn't look like a TeX dimen to me: "\answer"}% + \else + \xmesj{Looks like a valid TeX dimen: "\answer" = \the\vfuzz}% + \fi + \expandafter\dimtestb + \fi +} + +\def\dimtesta{\dimtest{\ +OK, give me a dimen then, so that I can\ +check it with \\checkdimen:\ +}} + +\def\dimtestb{\dimtest{\ +How about another dimen: }} + +\def\empty{} + +% Iterate once with one prompt, then several times with a shorter +% prompt. +\dimtesta + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\csname stop\endcsname +\end -- cgit v1.2.3