% DOCUMENT OPTION STYLE -- Released 15-FEB-1992 % % This style has to be used as an style only % in connection with the stbrief.sty to define % all variables nescessary for this style. % % THE STYLE IS INCLUDED BY THE STBRIEF.STY BY ITSELF. % DON'T TRY TO MENTION IT AS A OPTION STYLE IN \DOCUMENTSTYLE[]{}. % % Copyright (c) 1991,1991 by Steffen Steinhaeuser % Permission to copy all or part of this work is granted, provided % that the copies are not made or distributed for resale, and that % the copyright notice and this notice are retained. % % THIS WORK IS PROVIDED ON AN "AS IS" BASIS. THE AUTHOR PROVIDES NO % WARRANTY WHATSOEVER, EITHER EXPRESS OR IMPLIED, REGARDING THE WORK, % INCLUDING WARRANTIES WITH RESPECT TO ITS MERCHANTABILITY OR FITNESS % FOR ANY PARTICULAR PURPOSE. % % If you make any improvements, I'd like to hear about them. % % Steffen Steinh\"auser % Landwehrstr. 47 % 6100 Darmstadt % Federal Republic of Germany % steinhaeuser@ddagsi5.bitnet % steffen_steinhaeuser@mz.maus.de % \def~{ } \typeout{-------------------------------------------------------} \typeout{| DefUser.STY V1.1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|} \typeout{| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~c'15-Feb-91 Stone |} \typeout{-------------------------------------------------------} \typeout{} \typeout{Achtung:} \typeout{Auf den IBM (Komp.) und Atari Rechnern ist auf Umlaute und 'sz' nicht} \typeout{speziell zu achten. Falls es doch Probleme mit ihnen gibt, gilt:} \typeout{Alle Umlaute mit \string\"~ und das 'sz' mit \string\ss\string~{}~ angeben!!!} % % eigene Definitionen % \newif\ifdefault \defaultfalse \def\@empty{ } \newif\ifempty \def\look#1#2@@@{ \if #1\@empty \emptytrue \else \emptyfalse \fi } \def\firstonly#1#2@@@{\def\antwort{#1}} % % Erstellen des neuen Benutzerdefinitionsfiles % \openin1\filename.sty \ifeof1 \closein1\relax \else \closein1\relax \defaulttrue \typeout{} \typeout{Die Angaben der Datei \filename.sty~werden als Defaulteingaben} \typeout{angezeigt und koennen mit bestaetigt und uebernommen werden.} \typeout{} \input{\filename.sty} \fi % % Erstellen eines BackUpFiles der alten Daten % \ifdefault \newwrite\datafile \immediate\openout\datafile=\filename.bak % % Erstellen eines Headers fuer den Defuser.Bak-Datei % \immediate\write\datafile{\string\message{-- Benutzerspezifische Daten fuer den STBrief.STY}} \immediate\write\datafile{\string\defusertrue} \immediate\write\datafile{\string\name{\fromname}} \immediate\write\datafile{\string\signature{\fromsig}} \immediate\write\datafile{\string\strasse{\fromstreet}} \immediate\write\datafile{\string\stadt{\fromcity}} \immediate\write\datafile{\string\telefon{\telephonenum}} \immediate\write\datafile{\string\faxnummer{\faxnum}} \immediate\write\datafile{\string\bank{\bankname}} \immediate\write\datafile{\string\kontonr{\kontono}} \immediate\write\datafile{\string\bankleitzahl{\bankzahl}} \immediate\write\datafile{\string\logo{\fromlogo}} \immediate\write\datafile{\string\smallogo{\sfromlogo}} \iftoplogo \immediate\write\datafile{\string\toplogotrue} \else \immediate\write\datafile{\string\toplogofalse} \fi \iftoprule \immediate\write\datafile{\string\topruletrue} \else \immediate\write\datafile{\string\toprulefalse} \fi \ifsmallfrom \immediate\write\datafile{\string\smallfromtrue} \else \immediate\write\datafile{\string\smallfromfalse} \fi \iffrom \immediate\write\datafile{\string\fromtrue} \else \immediate\write\datafile{\string\fromfalse} \fi \ifbottomrule \immediate\write\datafile{\string\bottomruletrue} \else \immediate\write\datafile{\string\bottomrulefalse} \fi \ifbankv \immediate\write\datafile{\string\bankvtrue} \else \immediate\write\datafile{\string\bankvfalse} \fi % % Schliessen und Ende des BackUps % \immediate\closeout\datafile \fi % % Oeffnen des Ausgabefiles % \newwrite\datafile \immediate\openout\datafile=\filename.sty % % Keine Reaktionen auf Umlaute, d.h. keine voreilige Expansion % \originalTeX % % Erstellen eines Headers fuer den Defuser.Sty-Datei % \immediate\write\datafile{\string\message{-- Benutzerspezifische Daten fuer den STBrief.STY}} \immediate\write\datafile{\string\defusertrue} % % Abspeichern der ggf. alten Daten in eine .bak-Datei % %(in Vorbereitung) % % % Abfrage der Benutzerdaten und -wuensche % \typeout{} \typeout{Vor- und Nachnamen~:} \ifdefault \let\antwort\fromname \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\fromname \fi \else \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)} \fi \expandafter\look\antwort~~@@@ \ifempty \def\antwort{?!?} \fi \immediate\write\datafile{\string\name{\antwort}} \typeout{} \typeout{Unterschrift~~~~~~~:} \ifdefault \let\antwort\fromsig \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\fromsig \fi \else \typein[\antwort]{} \fi \expandafter\look\antwort~~@@@ \ifempty\else \immediate\write\datafile{\string\signature{\antwort}} \fi \typeout{} \typeout{Name der Strasse~~~:} \ifdefault \let\antwort\fromstreet \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\fromstreet \fi \else \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)} \fi \expandafter\look\antwort~~@@@ \ifempty \def\antwort{?!?} \fi \immediate\write\datafile{\string\strasse{\antwort}} \typeout{} \typeout{Name des Ortes~~~~~:} \ifdefault \let\antwort\fromcity \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\fromcity \fi \else \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)} \fi \expandafter\look\antwort~~@@@ \ifempty \def\antwort{?!?} \fi \immediate\write\datafile{\string\stadt{\antwort}} \typeout{} \typeout{Telefonnummer~~~~~~:} \ifdefault \let\antwort\telephonenum \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\telephonenum \fi \else \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)} \fi \expandafter\look\antwort~~@@@ \ifempty \def\antwort{?!?} \fi \immediate\write\datafile{\string\telefon{\antwort}} \typeout{} \typeout{Telefaxnummer~~~~~~:} \ifdefault \let\antwort\faxnum \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\faxnum \fi \else \typein[\antwort]{(Keine Eingabe ignoriert Faxnummereintrag im STBrief.)} \fi \immediate\write\datafile{\string\faxnummer{\antwort}} \typeout{} \typeout{Die Angaben zur Bank koennen weggelassen werden. Aber dann sollten} \typeout{Sie auch das Bankflag im folgenden auf 'AUS' (=Nein) schalten!} \typeout{} \typeout{Name der Bank~~~~~~:} \ifdefault \let\antwort\bankname \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\bankname \fi \else \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)} \fi \expandafter\look\antwort~~@@@ \ifempty \bankvfalse \else \bankvtrue \fi \immediate\write\datafile{\string\bank{\antwort}} \typeout{} \typeout{Kontonummer~~~~~~~~:} \ifdefault \let\antwort\kontono \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\kontono \fi \else \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)} \fi \expandafter\look\antwort~~@@@ \ifempty \bankvfalse \fi \immediate\write\datafile{\string\kontonr{\antwort}} \typeout{} \typeout{Bankleitzahl~~~~~~~:} \ifdefault \let\antwort\bankzahl \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\bankzahl \fi \else \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)} \fi \expandafter\look\antwort~~@@@ \ifempty \bankvfalse \fi \immediate\write\datafile{\string\bankleitzahl{\antwort}} \typeout{} \typeout{Im folgenden koennen zwei Arten von Logos definiert werden. Sie} \typeout{erscheinen ggf. als Kopf des Briefes und ueber dem Adressfeld. } \typeout{Sind sie nicht definiert, so wird der Vor- und Nachname des} \typeout{Absenders dort eingesetzt.} \typeout{} \typeout{} \typeout{Kopflogo~~~~~~~~~~~:} \ifdefault \let\antwort\fromlogo \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\fromlogo \fi \else \typein[\antwort]{} \fi \immediate\write\datafile{\string\logo{\antwort}} \typeout{} \typeout{Absenderlogo~~~~~~~:} \ifdefault \let\antwort\sfromlogo \typeout{Defaulteingabe~~~~~: \antwort} \typein[\antwort]{( belaesst diese Angabe.)} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\sfromlogo \fi \else \typein[\antwort]{} \fi \immediate\write\datafile{\string\smallogo{\antwort}} \def\nein{n} \def\ja{j} \def\Nein{N} \def\Ja{J} \typeout{} \typeout{Achtung:} \typeout{} \typeout{Die folgenden Fragen sind so gehalten, dass ein einfaches} \typeout{ die Defaulteinstellung als gewuenschte uebernimmt.} \typeout{} \typeout{} \iftoplogo \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll das Logo oben auf den Seiten erscheinen (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \iftoplogo \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\toplogofalse} \else \immediate\write\datafile{\string\toplogotrue} \fi \typeout{} \iftoprule \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll oben eine horizontale Linie erscheinen (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \iftoprule \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\toprulefalse} \else \immediate\write\datafile{\string\topruletrue} \fi \typeout{} \ifsmallfrom \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll ihr Absender klein ueber der Adresse erscheinen (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \ifsmallfrom \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\smallfromfalse} \else \immediate\write\datafile{\string\smallfromtrue} \fi \typeout{} \iffrom \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll ihr Absender oben rechts erscheinen (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \iffrom \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\fromfalse} \else \immediate\write\datafile{\string\fromtrue} \fi \typeout{} \ifbottomrule \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll unten eine horizontale Linie erscheinen (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \ifbottomrule \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\bottomrulefalse} \else \immediate\write\datafile{\string\bottomruletrue} \fi \typeout{} \ifbankv \let\antwort\Ja \else \let\antwort\Nein \fi \typeout{Soll die Bankverbindung unten eingeblendet werden (J/N)? [\antwort]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \ifbankv \let\antwort\Ja \else \let\antwort\Nein \fi \else \expandafter\firstonly\antwort~~@@@ \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \immediate\write\datafile{\string\bankvfalse} \else \immediate\write\datafile{\string\bankvtrue} \fi \typeout{} \typeout{Soll der Brief als FAX verschickt werden (J/N)? [N]} \typein[\antwort]{} \expandafter\look\antwort~~@@@ \ifempty \let\antwort\Nein \fi \ifx\antwort\nein\let\antwort\Nein\fi \ifx\antwort\Nein \else \immediate\write\datafile{\string\fax} \fi % % Ende der Benutzer-Definitionen % \immediate\closeout\datafile % % Zurckschalten auf Umlautempfindlichkeit % \germanTeX % % Einbinden des selbst erstellten Userfiles % \input{\filename.sty}