diff options
Diffstat (limited to 'Master/texmf-dist/metapost/metauml/util_group.mp')
-rw-r--r-- | Master/texmf-dist/metapost/metauml/util_group.mp | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/Master/texmf-dist/metapost/metauml/util_group.mp b/Master/texmf-dist/metapost/metauml/util_group.mp index 732deba4bdf..1a3380c9f5c 100644 --- a/Master/texmf-dist/metapost/metauml/util_group.mp +++ b/Master/texmf-dist/metapost/metauml/util_group.mp @@ -20,10 +20,22 @@ if known _util_group_mp: fi; _util_group_mp:=1; -input util_object; -input util_commons; -input util_margins; -input util_log; +% Sadly, this copy of the macro is needed to prevent multiple file loads being shown by MetaPost. +% The guard values (such as _metauml_mp) do ensure that the file isn't loaded multiple times, +% but this macro makes sure that MetaPost won't try to load the file and display a message for that. +def inputonce text libraryFile= + if not known scantokens ("_" & str libraryFile & "_mp"): + %includeonce% show "Loading " & str libraryFile; + scantokens ("input " & str libraryFile); + else: + %includeonce% show str libraryFile & " already loaded."; + fi; +enddef; + +inputonce util_object; +inputonce util_commons; +inputonce util_margins; +inputonce util_log; vardef GroupInfo@#(expr pleft, pright, ptop, pbottom)= attributes(@#); |