So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten, sondern Plain TeX ohne e-TeX-Erweiterungen. e-TeX-Erweiterungen, möglichst nur Lösungen, wie man sie aus dem Texbook ableiten kann. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine `\texnewdef`-Funktion, vergleichbar mit `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in `\texnewdef`, und zwar das, was hinter `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten, sondern Plain TeX ohne e-TeX-Erweiterungen. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine `\texnewdef`-Funktion, vergleichbar mit `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in `\texnewdef`, und zwar das, was hinter `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen oder Erweiterungen anbieten. Grundlage soll möglichst TexBook sein. Und bitte die Tags so lassen, wie ich sie setze. anbieten, sondern Plain TeX ohne e-TeX-Erweiterungen. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine `\texnewdef`-Funktion, vergleichbar mit `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in `\texnewdef`, und zwar das, was in hinter `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye\bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen oder Erweiterungen anbieten. Grundlage soll möglichst TexBook sein. Und bitte die Tags so lassen, wie ich sie setze. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine `\texnewdef`-Funktion, vergleichbar mit `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in `\texnewdef`, und zwar das, was hinter in `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten, sondern Plain TeX ohne e-TeX-Erweiterungen. oder Erweiterungen anbieten. Grundlage soll möglichst TexBook sein. Und bitte die Tags so lassen, wie ich sie setze. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine `\texnewdef`-Funktion, vergleichbar mit `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in `\texnewdef`, und zwar das, was hinter `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. anbieten, sondern Plain TeX ohne e-TeX-Erweiterungen. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine texnewdef - Funktion, `\texnewdef`-Funktion, vergleichbar mit newcommand, `\newcommand`, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, `\texnewdef`, und zwar das, was hinter def `\def` steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} Hier das Beispiel %definition von verbatim in TeXBook \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man %definition von verbatim in TeXBook % \newcount\texcomnum %Zähler für die Befehle \newwrite\texmanual %Schreibanweisung für externe Datei \immediate\openout\texmanual=\jobname.man %öffnen und benennen der externen Datei \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \input \jobname.man \vfill} \vfill } %Einlesen der externen Datei \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {#2}\vskip0.1\baselineskip {\tt Hier soll die Befehlsdefintion in verbatim verbatim-formatiert erscheinen} \vskip1\baselineskip }#3} }#3} %leer übergeordnete Befehlsdefinition mit Texthinweis (an der Stelle %steht später der Befel \texnewdef[slanted, Formatiert den ersten Parameter als als slanted]{\def\slanted[#1]{{\sl #1}}} #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} bold]{\def\bold[#1]{{\bf #1}}}% Anwendung der übergeordneten Befehlsdefinition mit neuer Definition und % Schreibanweisung Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. '\texnewdef[slanted, \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}' #1}}} Hier das Beispiel \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. ´\texnewdef[slanted, '\texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}´ #1}}}' \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. \´texnewdef[slanted, ´\texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}´ \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. verbatim-Code. Anmerkung: exportiert werden sollen die Befehle in texnewdef, und zwar das, was hinter def steht. \´texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}}´ \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim (wie oben) erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier ein TeX-Frage,bitte eine TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code löschen.) Es geht um eine texnewdef - Funktion, vergleichbar mitnewcommand, mit newcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim (wie oben) erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

Sorry, So, hier ein TeX-Frage,bitte keine LaTeX-Lösungen anbieten. Ich möchte die Befehlsdefinitionen verbatim auslagern und auch wieder verbatim einlesen. Wie geht das? (Leider funktionieren die Kommentarzeichen im Codefenster hier nicht, ich musste deshalb die Kommentare aus dem Code nicht darstellbar, versuche es später nochmallöschen.) Es geht um eine texnewdef - Funktion, vergleichbar mitnewcommand, die sofort eine Befehlsreferenz für das aktuelle Dokument schreibt, und zwar mit Befehlsname, Beschreibung und verbatim-Code. \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} \newcount\texcomnum \newwrite\texmanual \immediate\openout\texmanual=\jobname.man \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill} \def\texnewdef[#1,#2]#3{\advance\texcomnum by 1 \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% {\tt Hier soll die Befehlsdefintion in verbatim (wie oben) erscheinen} \vskip1\baselineskip }#3} \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{\def\slanted[#1]{{\sl #1}}} \texnewdef[bold, Formatiert den ersten Parameter als bold]{\def\bold[#1]{{\bf #1}}} Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye

So, hier mal ein TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich habe eine Funktion texnewdef, die Kommentare und Befehle verwaltet, in eine externe Datei schreibt und diese wieder einliest. Nun möchte ich, daß die eigentliche Befehlsdefintion (def{....}) verbatim in die externe Datei exportiert wird und auch verbatim wieder eingelesen wird. (im Sorry, Code erkennbar durch %kern der frage). Dies soll vollständig in der Auslagerungsdatei stattfinden, weil nicht darstellbar, versuche es eine unbegrenzte Anzahl an Befehlen betrifft, also nicht verbatim pro Befehl, sondern als fortlaufende Funktion. Wie wäre das zu machen? %ttverbatim (Aus TexBook) \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines % end of line is active| |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %%ttverbatim (Aus TexBook) %manual Eine Auslagerungsdatei für Hilfetexte, die später wieder %%eingelesen wird. Wird in \texnewdef benutzt, muss also vorher definiert sein %%und darf in \texnewdef nicht verändert werden. \newcount\texcomnum%Zähler für Kommandos \newwrite\texmanual% \immediate\openout\texmanual=\jobname.man% \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex% \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill}% %%end manual %texnewdef %Befehl zur Neudefinition von Kommandos vergleichbar \newcommand \long\def\texnewdef[#1,#2]#3{\advance\texcomnum by 1% \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% %kern der frage {\tt Hier soll die Befehlsdefintion in verbatim (wie oben) erscheinen} \vskip1\baselineskip %kern der frage }% #3}% %%endtexnewdef Befehl zur Neudefinition von Kommandos Befehlsdefinitionen: \begintt \def\slanted[#1]{{\sl #1}} \endtt \begintt \def\bold[#1]{{\bf #1}} \endtt \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{ \def\slanted[#1]{{\sl #1}} }%endtexnewdef %%endtexnewdef Befehl zur Neudefinition von Kommandos \texnewdef[bold, Formatiert den ersten Parameter als bold]{ \def\bold[#1]{{\bf #1}} }%endtexnewdef Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye nochmal

So, hier mal ein TeX-Frage, bitte keine LaTeX-Lösungen anbieten. Ich habe eine Funktion texnewdef, die Kommentare und Befehle verwaltet, in eine externe Datei schreibt und diese wieder einliest. Nun möchte ich, daß die eigentliche Befehlsdefintion (def{....}) verbatim in die externe Datei exportiert wird und auch verbatim wieder eingelesen wird. (im Code erkennbar durch %kern der frage). Dies soll vollständig in der Auslagerungsdatei stattfinden, weil es eine unbegrenzte Anzahl an Befehlen betrifft, also nicht verbatim pro Befehl, sondern als fortlaufende Funktion. Wie wäre das zu machen? %ttverbatim (Aus TexBook) \outer\def\begindisplay{\obeylines\startdisplay} {\obeylines\gdef\startdisplay#1 {\catcode`\^^M=5$$#1\halign|\bgroup\indent##\hfil&&\qquad##\hfil\cr}} \outer\def\enddisplay{\crcr\egroup$$} \chardef\other=12 \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other \catcode`\_=\other \catcode`\^=\other \obeyspaces \obeylines \tt} {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space| \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt \catcode`\|=0\rightskip=-5pc \ttfinish}{\catcode`\|=0 \catcode`|\=\other % |obeylines % end of line is active| |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}} \catcode`\|=\active {\obeylines\gdef|{\ttverbatim\spaceskip=\ttgl\"u\let^^M=\ \let% |=\endgroup}} %%ttverbatim (Aus TexBook) %manual Eine Auslagerungsdatei für Hilfetexte, die später wieder %%eingelesen wird. Wird in \texnewdef benutzt, muss also vorher definiert sein %%und darf in \texnewdef nicht verändert werden. \newcount\texcomnum%Zähler für Kommandos \newwrite\texmanual% \immediate\openout\texmanual=\jobname.man% \def\texdisplaymanual{\vskip1\baselineskip BEFEHLSREFERENZ von \jobname.tex% \vskip2\baselineskip\immediate\closeout\texmanual \input \jobname.man \vfill}% %%end manual %texnewdef %Befehl zur Neudefinition von Kommandos vergleichbar \newcommand \long\def\texnewdef[#1,#2]#3{\advance\texcomnum by 1% \immediate\write\texmanual{\the\texcomnum. #1: {#2}\vskip0.1\baselineskip% %kern der frage {\tt Hier soll die Befehlsdefintion in verbatim (wie oben) erscheinen} \vskip1\baselineskip %kern der frage }% #3}% %%endtexnewdef Befehl zur Neudefinition von Kommandos Befehlsdefinitionen: \begintt \def\slanted[#1]{{\sl #1}} \endtt \begintt \def\bold[#1]{{\bf #1}} \endtt \texnewdef[slanted, Formatiert den ersten Parameter als slanted]{ \def\slanted[#1]{{\sl #1}} }%endtexnewdef %%endtexnewdef Befehl zur Neudefinition von Kommandos \texnewdef[bold, Formatiert den ersten Parameter als bold]{ \def\bold[#1]{{\bf #1}} }%endtexnewdef Anwendung im Text \slanted[Slanted text] \bold[Bold text] \texdisplaymanual \bye