summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/struktex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-08-20 22:30:34 +0000
committerKarl Berry <karl@freefriends.org>2006-08-20 22:30:34 +0000
commitb78f8eca13b9e470f04335d921404e57b4ce1e46 (patch)
tree2982781550ce418fcd96ac6550f301316b247a13 /Master/texmf-dist/source/latex/struktex
parent044ada565a6fefa47f32f30e2a4ad048d5ffad3d (diff)
struktex again
git-svn-id: svn://tug.org/texlive/trunk@1995 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/struktex')
-rw-r--r--Master/texmf-dist/source/latex/struktex/struktex.dtx83
-rw-r--r--Master/texmf-dist/source/latex/struktex/struktex.ins2
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