(*
    Title: 	UnixVersion - Definitions
    LastEdit:	"Fri Jan 29 19:20:41 1988"
    Author: 	Mick Jordan
		Cambridge University Computer Laboratory
*)

DEFINITION MODULE UnixVersion;

EXPORT QUALIFIED GetUnixVersion, UnixVersion;

TYPE UnixVersion = 
  (Unknown,     (*  M2UNIX unset or unknown value *)
   BSD41,       (*  Berkeley 4.1 *)
   BSD42,       (*  Berkely 4.2 *)
   ULTRIX11,    (*  Dec Ultrix 1.1 *)
   ULTRIX12,    (*  Dec Ultrix 1.2 *)
   SUN42,       (*  SUN 4.2 *)
   SUN43        (* SUN 4.3 *)
  );

PROCEDURE GetUnixVersion(): UnixVersion;
(*  return the version of Unix which we are running under
    from the environment variable M2UNIX
*)

END UnixVersion.
