13.11 Mbs_version Interface

ORIGIN 'betaenv';
LIB_DEF 'mbs_version' '../lib';
(*
 * COPYRIGHT
 *       Copyright (C) Mjolner Informatics, 1984-2004
 *       All rights reserved.
 *)
-- LIB: attributes --
mbs_version:
  (* Defines the current version of the Mjolner BETA System 
   * in various ways. Typical usage:
   * 
   *   (if (mbs_version).major >= 4 then
   *       ...
   *   if);
   *)
  (# major:    (# exit 5 #);
     minor:    (# exit 4 #);
     revision: (# exit 0 #);
     release:  (# exit 050400 #);
     desc:     (# exit '5.4' #);
  exit THIS(mbs_version)[]
  #)


13.11 Mbs_version Interface
© 1990-2004 Mjølner Informatics
[Modified: Monday March 15th 2004 at 13:47]