summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/eskdx/source/eskdappsheet.sty.in
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/eskdx/source/eskdappsheet.sty.in')
-rw-r--r--macros/latex/contrib/eskdx/source/eskdappsheet.sty.in80
1 files changed, 80 insertions, 0 deletions
diff --git a/macros/latex/contrib/eskdx/source/eskdappsheet.sty.in b/macros/latex/contrib/eskdx/source/eskdappsheet.sty.in
new file mode 100644
index 0000000000..d063232c88
--- /dev/null
+++ b/macros/latex/contrib/eskdx/source/eskdappsheet.sty.in
@@ -0,0 +1,80 @@
+% Copyright 2006 Konstantin Korikov <lostclus@ua.fm>
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+%
+% This work has the LPPL maintenance status "maintained".
+%
+% This Current Maintainer of this work is Konstantin Korikov.
+%
+% This work consists of all files listed in manifest.txt.
+%
+m4_ESKDX_INIT
+m4_FILE_INIT
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{eskdappsheet}[m4_dnl
+m4_FILE_ID([[$Date:: 2010-01-14#$]]) Approving Sheet GOST 2.105]
+
+\RequirePackage{eskdlang}
+\RequirePackage{eskdtitle}
+
+\newcount\ESKD@appsheet@doc@cnt
+\ESKD@appsheet@doc@cnt = 0
+
+m4_dnl добавляет документ в список документов,
+m4_dnl на которые распространяется данный ЛУ
+\newcommand{\ESKDapprovingDoc}[1]{%
+ \advance \ESKD@appsheet@doc@cnt 1
+ \@namedef{ESKD@appsheet@doc@\number\ESKD@appsheet@doc@cnt}{#1}}
+
+m4_dnl слова "Лист утверждения"
+\renewcommand{\ESKDtheTitleFieldV}{%
+ \ESKDapprovingSheetName}
+
+m4_dnl обозначение - ЛУ
+\renewcommand{\ESKDtheTitleFieldVI}{%
+ \MakeUppercase{\ESKDtheSignature}}
+
+m4_dnl количество листов ЛУ
+\renewcommand{\ESKDtheTitleFieldVII}{}
+
+m4_dnl список документов, на которые распространяется данный ЛУ
+\def\ESKDtheTitleFieldVIIIlb{}
+\renewcommand{\ESKDtheTitleFieldVIIIlb}{%
+ \ESKD@tmpcnta = 1
+ \ESKD@tmpcntb = \ESKD@appsheet@doc@cnt
+ \advance \ESKD@tmpcntb 1
+ \loop
+ \ifnum \ESKD@tmpcnta < \ESKD@tmpcntb
+ \@nameuse{ESKD@appsheet@doc@\number\ESKD@tmpcnta}\par
+ \advance \ESKD@tmpcnta 2
+ \repeat}
+\def\ESKDtheTitleFieldVIIIrb{}
+\renewcommand{\ESKDtheTitleFieldVIIIrb}{%
+ \ESKD@tmpcnta = 2
+ \ESKD@tmpcntb = \ESKD@appsheet@doc@cnt
+ \advance \ESKD@tmpcntb 1
+ \loop
+ \ifnum \ESKD@tmpcnta < \ESKD@tmpcntb
+ \@nameuse{ESKD@appsheet@doc@\number\ESKD@tmpcnta}\par
+ \advance \ESKD@tmpcnta 2
+ \repeat}
+\renewcommand{\ESKDtheTitleFieldVIII}{%
+ \ESKD@title@split@field{\ESKDtheTitleFieldVIIIl}{\ESKDtheTitleFieldVIIIr}
+ \par
+ \ESKD@title@split@field{\ESKDtheTitleFieldVIIIlb}{\ESKDtheTitleFieldVIIIrb}}
+
+m4_dnl графы 14 - 18 по ГОСТ 2.104
+\renewcommand{\ESKDtheTitleFieldX}{}
+
+\renewcommand{\ESKDtitleFontX}{\ESKDfontIII}
+
+m4_dnl печатает лист утверждения
+\newcommand{\ESKDmakeApprovingSheet}{\maketitle}
+
+m4_dnl vim:ft=tex:sw=2:ai