diff options
author | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
commit | addfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 (patch) | |
tree | 9df3d1ec788caf8f5a848d259f44cfbafa7ad717 /Master/texmf-dist/metapost/metauml/util_log.mp | |
parent | 9599b464aebb35b4a1bc3bf70a4cd2740f3765f7 (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_log.mp')
-rw-r--r-- | Master/texmf-dist/metapost/metauml/util_log.mp | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metauml/util_log.mp b/Master/texmf-dist/metapost/metauml/util_log.mp new file mode 100644 index 00000000000..20efc47fe08 --- /dev/null +++ b/Master/texmf-dist/metapost/metauml/util_log.mp @@ -0,0 +1,45 @@ +% 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_log_mp: + expandafter endinput +fi; +_util_log_mp:=1; + +util_loglevel_PARANOIA:=1; +util_loglevel_DEBUG:=2; +util_loglevel_RELEASE:=3; +util_loglevel_SILENT:=4; + +util_log_thresholdlevel := util_loglevel_DEBUG; +util_log_defaultlevel := util_loglevel_RELEASE; + +def elog(expr loglevel) text txt= + if (loglevel <= util_log_thresholdlevel): + show txt + else: + % do nothing + fi; +enddef; + +def log text txt= + if (util_log_defaultlevel <= util_log_thresholdlevel): + show txt + else: + % do nothing + fi; +enddef; |