struktex again

git-svn-id: svn://tug.org/texlive/trunk@1995 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 60 insertions, 25 deletions

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
 %<struktex|struktxf|struktxp|strukdoc>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
-%<struktex|struktxf|struktxp|strukdoc>\def\filedate{2006/01/20}
-%<struktex|struktxf|struktxp|strukdoc>\def\fileversion{v8.2a}
+%<struktex|struktxf|struktxp|strukdoc>\def\filedate{2006/08/20}
+%<struktex|struktxf|struktxp|strukdoc>\def\fileversion{v8.3b}
 %<struktex>\ProvidesPackage{struktex}
 %<struktex>   [\filedate\space\fileversion\space Nassi Shneidermann Charts (Jobst Hoffmann)]
 %<struktxf>\ProvidesPackage{struktxf}
@@ -28,13 +28,32 @@
 %<struktxp>   [\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