|> RMShare
|
|  Script to start up a module from the CCShared system.
|  Takes params:
|    0 Module filename
|    1 Module memory name
|    2 Module version
|    3 Alternative path
|    <RunApp$Name> Name of application which is starting up
|
|  Version 0.02, 08/02/94
|   1994 Computer Concepts Ltd.
|
SetEval Shared 0
<Obey$Dir>.FileEnsure <CCShared$Dir>.RMStore.%0 Shared

If Shared Then RMEnsure %1 %2 RMLoad <CCShared$Dir>.RMStore.%0
If NOT Shared Then RMEnsure %1 %2 RMLoad %3.%0

Set RMShare$ErrorString The copy of %1 used by <RunApp$Name> is out of date. <RunApp$Name> may have been incorrectly installed. Please re-install <RunApp$Name> or seek technical help.

RMEnsure %1 %2 Error <RMShare$ErrorString>

Unset Shared
Unset RMShare$ErrorString