From b78f8eca13b9e470f04335d921404e57b4ce1e46 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 20 Aug 2006 22:30:34 +0000 Subject: struktex again git-svn-id: svn://tug.org/texlive/trunk@1995 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/source/latex/struktex/struktex.dtx | 83 +++++++++++++++------- .../texmf-dist/source/latex/struktex/struktex.ins | 2 +- 2 files changed, 60 insertions(+), 25 deletions(-) (limited to 'Master/texmf-dist/source/latex/struktex') diff --git a/Master/texmf-dist/source/latex/struktex/struktex.dtx b/Master/texmf-dist/source/latex/struktex/struktex.dtx index 95c9352aed8..ecffa899543 100644 --- a/Master/texmf-dist/source/latex/struktex/struktex.dtx +++ b/Master/texmf-dist/source/latex/struktex/struktex.dtx @@ -18,8 +18,8 @@ % % \iffalse %\NeedsTeXFormat{LaTeX2e}[1999/12/01] -%\def\filedate{2006/01/20} -%\def\fileversion{v8.2a} +%\def\filedate{2006/08/20} +%\def\fileversion{v8.3b} %\ProvidesPackage{struktex} % [\filedate\space\fileversion\space Nassi Shneidermann Charts (Jobst Hoffmann)] %\ProvidesPackage{struktxf} @@ -28,13 +28,32 @@ % [\filedate\space\fileversion\space Keywords for Nassi Shneidermann Charts (Jobst Hoffmann)] % \fi % \CheckSum{2071} -% \def\docdate {2006/01/20} ^^A not style'able!! +% \def\docdate {2006/08/20} ^^A not style'able!! % % \iffalse meta-comment -% struktex.dtx $Revision: 7.11 $ -% $Date: 2006/08/16 20:30:43 $ +% struktex.dtx $Revision: 7.14 $ +% $Date: 2006/08/20 11:43:18 $ % $RCSfile: struktex.dtx,v $ % $Log: struktex.dtx,v $ +% Revision 7.14 2006/08/20 11:43:18 ax006ho +% - kleine Korrekturen (\fileversion ... aktualisiert) +% - Makefile erweitert: das Ziel "dist" erzeugt automatisch eine +% Datei THIS_IS_VERSION_... +% - Option english in der DAtei getversion.tex gestrichen +% +% Revision 7.13 2006/08/19 18:36:36 ax006ho +% - struktex.el kann nun case korrekt einfuegen: es wird die entsprechende +% Anzahl von switch-Kommandos mitsamt den zugehoerigen Argumenten +% eingefuegt +% +% Revision 7.12 2006/08/18 20:06:15 ax006ho +% - die zusaetzlichen Optionen draft und final wurden eingefuehrt +% - einige Tippfehler wurden korrigiert, Umlaute gegen die Ersatzdarstellung +% ausgetauscht +% - Beispiel 2 wurde geaendert: die Option draft wird bei Verzicht auf +% sProofOn benutzt +% - die Funktionalitaet von struktex.el wurde erweitert +% % Revision 7.11 2006/08/16 20:30:43 ax006ho % - AUCTeX Unterstuetzung verbessert % - kleinere Textkorrekturen @@ -210,6 +229,10 @@ % % \def\StrukTeXSty{\textsf{struktex.sty}} % +% \changes{v8.3b}{06/08/20}{Erweiterung im Makefile: f"ur dist wird automatisch +% eine Datei THIS_IS_VERSION_... erzeugt.} +% \changes{v8.3a}{06/08/19}{struktex.el erweitert: es wird die korrekte Anzahl +% von `switch{} generiert und mit Inhalt gef"ullt} % \changes{v8.3}{06/08/18}{Weitere Optionen "`draft"' und "`final"' eingef"uhrt} % \changes{v8.2a}{06/01/17}{struktex.el korrigiert und erweitert} % \changes{v8.1a}{05/09/01}{Erste (fehlerhafte) Version einer struktex.el Stil @@ -3664,6 +3687,9 @@ DEMODIR=$(DOCDIR)/demo # It's not really a good solution, but it's a working solution. TEXINPUTS := $(PWD):$(TEXINPUTS) +# To generate the version number of the distribution from the source +VERSION_L := latex getversion | grep '^VERSION' +VERSION_S := `latex getversion | grep '^VERSION' | sed 's+^VERSION \\(.*\\)\\.\\(.*\\) of .*+\\1_\\2+'` ######################################################################## # End of customization section ######################################################################## @@ -3776,9 +3802,12 @@ uninstall: rm -fr $(DOCDIR) rm -fr $(SRCDIR) -pack: $(PACKAGE).de.pdf $(PACKAGE).en.pdf $(PACKAGE).dtx $(PACKAGE).ins \ +dist: $(PACKAGE).de.pdf $(PACKAGE).en.pdf $(PACKAGE).dtx $(PACKAGE).ins \ LIESMICH README - + tar cfvz $(PACKAGE).tgz $^ + + rm -f THIS_IS_VERSION_* + + $(VERSION_L) > THIS_IS_VERSION_$(VERSION_S) + + tar cfvz $(PACKAGE)-$(VERSION_S).tgz $^ THIS_IS_VERSION_* + + rm getversion.log clean: -rm -f *.log *.aux *.brf *.idx *.ilg *.ind @@ -3832,11 +3861,11 @@ sed -e "`echo \"s/^ /@/g\" | tr '@' '\011'`" struktex.mk > Makefile %<*getversion> % \fi % \begin{macrocode} -\documentclass[english]{ltxdoc} +\documentclass{ltxdoc} \nofiles \usepackage{struktex} \GetFileInfo{struktex.sty} -\typeout{VERSION \fileversion} +\typeout{VERSION \fileversion\space of \filedate} \begin{document} \end{document} % \end{macrocode} @@ -3966,26 +3995,32 @@ sed -e "`echo \"s/^ /@/g\" | tr '@' '\011'`" struktex.mk > Makefile (format "[%s]" title))))) (defun TeX-mac-case (macro) - "Insert \case with all arguments. -These are optional height and the required arguments slope, number of cases, -condition, and the text of the first case" + "Insert \case with all arguments, the needed \switch(es) and the final \caseend. +These are optional height and the required arguments slope, number of cases, +condition, and the texts for the different cases" (let ((height (read-string "Height (optional): ")) (slope (read-string "Slope: ")) (number (read-string "Number of cases: ")) (condition (read-string "Condition: ")) - (text (read-string "Text: "))) + (text (read-string "Case no. 1: ")) + (count 1) + ) + (setq number-int (string-to-number number)) (insert (concat (if (not (zerop (length height))) (format "[%s]" height)) - (format "{%s}{%s}{%s}{%s}" + (format "{%s}{%s}{%s}{%s}" slope number condition text))) - (end-of-line) - (newline-and-indent) - (newline-and-indent) - (insert "\\switch{ }") - (end-of-line) - (newline-and-indent) - (newline-and-indent) - (insert "\\caseend"))) + (while (< count number-int) + (end-of-line) + (newline-and-indent) + (newline-and-indent) + (setq prompt (format "Case no. %d: " (+ 1 count))) + (insert (format "\\switch{%s}" (read-string prompt))) + (setq count (1+ count))) + (end-of-line) + (newline-and-indent) + (newline-and-indent) + (insert "\\caseend"))) (defun TeX-mac-forever (macro) "Insert \forever-block with all arguments. @@ -4000,7 +4035,7 @@ This is only the optional height" (defun TeX-mac-ifthenelse (macro) "Insert \ifthenelse with all arguments. -These are optional height and the required arguments left slope, right slope, +These are optional height and the required arguments left slope, right slope, condition, and the possible values of the condition" (let ((height (read-string "Height (optional): ")) (lslope (read-string "Left slope: ")) @@ -4010,7 +4045,7 @@ condition, and the possible values of the condition" (conditionvr (read-string "Condition value right: "))) (insert (concat (if (not (zerop (length height))) (format "[%s]" height)) - (format "{%s}{%s}{%s}{%s}{%s}" + (format "{%s}{%s}{%s}{%s}{%s}" lslope rslope condition conditionvl conditionvr))) (end-of-line) (newline-and-indent) diff --git a/Master/texmf-dist/source/latex/struktex/struktex.ins b/Master/texmf-dist/source/latex/struktex/struktex.ins index 61091dac070..bb4bac0ea11 100644 --- a/Master/texmf-dist/source/latex/struktex/struktex.ins +++ b/Master/texmf-dist/source/latex/struktex/struktex.ins @@ -1,5 +1,5 @@ %% -%% $Revision: 7.7 $ +%% $Revision: 7.8 $ %% %% This file will generate fast loadable files and documentation %% driver files from the doc files in this package when run through -- cgit v1.2.3