13.11 Mbs_version Interface

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