summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/metauml/util_infrastructure.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-07-15 21:07:44 +0000
committerKarl Berry <karl@freefriends.org>2006-07-15 21:07:44 +0000
commitaddfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 (patch)
tree9df3d1ec788caf8f5a848d259f44cfbafa7ad717 /Master/texmf-dist/metapost/metauml/util_infrastructure.mp
parent9599b464aebb35b4a1bc3bf70a4cd2740f3765f7 (diff)
new metapost package metauml (21mar06)
git-svn-id: svn://tug.org/texlive/trunk@1851 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/metauml/util_infrastructure.mp')
-rw-r--r--Master/texmf-dist/metapost/metauml/util_infrastructure.mp58
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metauml/util_infrastructure.mp b/Master/texmf-dist/metapost/metauml/util_infrastructure.mp
new file mode 100644
index 00000000000..26dc421cdb9
--- /dev/null
+++ b/Master/texmf-dist/metapost/metauml/util_infrastructure.mp
@@ -0,0 +1,58 @@
+% MetaUtil, an easier MetaPost life
+% Copyright (C) 2005 Ovidiu Gheorghies
+%
+% This program is free software; you can redistribute it and/or
+% modify it under the terms of the GNU General Public License
+% as published by the Free Software Foundation; either version 2
+% of the License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+if known _util_infrastructure_mp:
+ expandafter endinput
+fi;
+_util_infrastructure_mp:=1;
+
+input util_log;
+
+vardef attributes(text objectName)=
+ _n_ := str objectName
+enddef;
+
+vardef variables_ext text variables=
+ save ret, firstVar;
+ string ret;
+ ret := "";
+
+ numeric firstVar;
+ firstVar := 1;
+
+ forsuffixes v = variables:
+ if firstVar = 0:
+ ret := ret & ",";
+ else:
+ firstVar := 0;
+ fi;
+
+ ret := ret & " _n." & (str v);
+ endfor;
+
+ ret
+enddef;
+
+vardef var(text type) text variables =
+ save _variables;
+ string _variables;
+ _variables := variables_ext variables;
+
+ generic_declare(type) scantokens _variables;
+enddef;
+
+