From 8524fde36458c91ae6261e04a9ab4093514adff9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 24 Sep 2013 22:26:11 +0000 Subject: upmethodology (24sep13) git-svn-id: svn://tug.org/texlive/trunk@31742 c570f23f-e606-0410-a88d-b1316a301751 --- .../latex/upmethodology/upmethodology-p-common.sty | 48 +++++++++++++++++++++- 1 file changed, 47 insertions(+), 1 deletion(-) (limited to 'Master/texmf-dist/tex/latex/upmethodology/upmethodology-p-common.sty') diff --git a/Master/texmf-dist/tex/latex/upmethodology/upmethodology-p-common.sty b/Master/texmf-dist/tex/latex/upmethodology/upmethodology-p-common.sty index 9bf6eede16a..f3a977fcd56 100644 --- a/Master/texmf-dist/tex/latex/upmethodology/upmethodology-p-common.sty +++ b/Master/texmf-dist/tex/latex/upmethodology/upmethodology-p-common.sty @@ -16,7 +16,7 @@ % 330, Boston, MA 02111-1307, USA. % -\global\edef\upm@package@private@doctype@ver{2013/08/15} +\global\edef\upm@package@private@doctype@ver{2013/09/19} \NeedsTeXFormat{LaTeX2e}[1995/12/01] \ProvidesPackage{upmethodology-p-common}[\upm@package@private@doctype@ver] @@ -88,6 +88,11 @@ \expandafter\let\csname\upm@protect{#1}\endcsname\relax% } +\def\upm@namelet@ext#1#2{% + \expandafter\expandafter\let\expandafter\upm@tmp\csname#2\endcsname% + \global\expandafter\let\csname#1\endcsname\upm@tmp% +} + \def\upm@ifdefinedname#1#2#3{% \expandafter\ifx\csname\upm@protect{#1}\endcsname\relax% #3% @@ -96,6 +101,8 @@ \fi% } +\newcommand{\upm@column@char}{\iflanguage{french}{ :}{:}} + %---------------------------------------- % GET THE REFERENCE ID WITHOUT \REF %---------------------------------------- @@ -129,4 +136,43 @@ {\m@th\ensuremath{_{\mbox{\fontsize\sf@size\z@#1}}}}} +%---------------------------------------- +% MACRO THAT PERMITS TO LOOP ON A SEPARATOR +%---------------------------------------- + +\newif\ifupm@foreach@hasseparator +\newif\ifupm@foreach@oneseparator + +\let\upm@foreach@end\relax + +\def\upm@foreach@rec#1#2{% + {\upm@foreach@searchseparator#2\upm@foreach@end\@nil}% + \ifupm@foreach@hasseparator% + \protected@xdef\upm@foreach@continue{\protect\upm@foreach@rec{#1}{\upm@foreach@rest}}% + \upm@foreach@body% + \upm@foreach@continue% + \else% + \ifupm@foreach@oneseparator\else% + \upm@foreach@lastbody% + \fi% + \fi% +} + +\def\upm@foreach#1\in#2\do#3#4{% + \global\upm@foreach@oneseparatorfalse% + \gdef\upm@foreach@searchseparator##1#1##2\@nil{% + \gdef\upm@foreach@term{##1}% + \ifx\upm@foreach@end##2% + \global\upm@foreach@hasseparatorfalse% + \else% + \gdef\upm@foreach@rest{##2}% + \global\upm@foreach@hasseparatortrue% + \global\upm@foreach@oneseparatortrue% + \fi% + } + \gdef\upm@foreach@body{#3}% + \gdef\upm@foreach@lastbody{#4}% + \upm@foreach@rec{#1}{#2#1}% +} + \endinput -- cgit v1.2.3