diff options
author | Norbert Preining <norbert@preining.info> | 2018-06-16 14:45:29 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-06-16 14:45:29 +0900 |
commit | adaabf093fe9a662e25c7fca1d4e18bf3a59e566 (patch) | |
tree | 703052958331a7859fead5c27a04ad6021aca8ac /texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty | |
parent | a343e3a55036d618f1ebcc52b94838a6d9ba352f (diff) |
add mkstmpdad
Diffstat (limited to 'texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty')
-rw-r--r-- | texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty b/texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty new file mode 100644 index 00000000..7139e7f7 --- /dev/null +++ b/texmf-dist/tex/latex/mkstmpdad/mkstmp_pro.sty @@ -0,0 +1,62 @@ +%% +%% This is file `mkstmp_pro.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% mkstmp_pro.dtx (with options: `copyright,package') +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% mkstmp_pro package %% +%% Copyright (C) 2012-2016 D. P. Story %% +%% dpstory@uakron.edu %% +%% %% +%% This program can redistributed and/or modified under %% +%% the terms of the LaTeX Project Public License %% +%% Distributed from CTAN archives in directory %% +%% macros/latex/base/lppl.txt; either version 1 of the %% +%% License, or (at your option) any later version. %% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{mkstmp_pro} + [2016/08/21 v1.1 Make Stamps for stamp annotations (dps)] +\RequirePackage{aeb_pro}[2012/11/09] +\RequirePackage{xkeyval} +\providecommand{\definePath}[1]{\def\ef@ctrlName{#1}% + \hyper@normalise\ef@definePath} +\def\ef@definePath#1{\expandafter\xdef\ef@ctrlName{#1}} +\newcommand{\setStampPath}[1]{\definePath{\msp@stampPath}{#1}} +\define@key{makeStamp}{name}[]{\def\makeStamp@name{\##1}} +\let\msp@stampPath\@empty +\define@key{makeStamp}{path}[\msp@stampPath]{\edef\makeStamp@path{#1}} +\define@key{makeStamp}{page}[0]{\def\aeb@stamp@page{#1}} +\newcommand{\makeStamps}[1]{% + \edef\@tforExp{\noexpand\@tfor\noexpand\msp@Args:=#1}% + \@tforExp\do{\expandafter\ms@makeStamp + \expandafter{\msp@Args}% + }% +} +\newcommand{\ms@makeStamp}[1]{% + \setkeys{makeStamp}{name,path,page,#1}% + \ifx\make@Stamps@name\@empty + \PackageError{mkstmp_pro}{The `name' key is required} + {Please give the path of the stamp image.}\fi + \ifx\makeStamp@path\@empty + \PackageError{mkstmp_pro}{The `path' key is required} + {Please give the path of the stamp image, or \MessageBreak + use \string\setStampPath.}\fi + \xdef\predocassemJS{% + var retn=\insertPages({nPage:0, cPath:"\makeStamp@path",% + nStart:\aeb@stamp@page});^^J% + if ( retn==-1 ) console.println("The file + \string\"\makeStamp@path\string\" could not be opened.");^^J% + if ( retn==-2 ) console.println("Selected page + (page=\aeb@stamp@page) for \string\"\makeStamp@path\string\" + is invalid.");^^J% + \createTemplate({cName:"\makeStamp@name",nPage:1});^^J% + \predocassemJS% + }% +} +\endinput +%% +%% End of file `mkstmp_pro.sty'. |