
DIRECTORY
ProcessorFace USING [ProcessorType];

SystemVersion: DEFINITIONS = BEGIN

Date: TYPE = CARD;

MachineType: TYPE = ProcessorFace.ProcessorType;

machineType: READONLY MachineType;

GetMachineType: PROC RETURNS [MachineType];

GetMachineTypeName: PROC [MachineType] RETURNS[ATOM];

MachineTypeFromName: PROC [ATOM] RETURNS [MachineType];
LastMachineType: PROC RETURNS[MachineType];

ReleaseNumber: TYPE = MACHINE DEPENDENT RECORD [
major(0): CARDINAL,
minor(1): CARDINAL,
patch(2): CARDINAL
];

release: READONLY ReleaseNumber;


END.
  V  
SystemVersion.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation.  All rights reserved.
Levin on June 20, 1983 4:59 pm
Russ Atkinson (RRA) January 30, 1985 6:59:01 pm PST
Willie-Sue, October 22, 1986 5:21:58 pm PDT
Doug Wyatt, December 11, 1986 1:22:04 pm PST
JKF August 31, 1988 9:31:08 am PDT
Willie-s, August 13, 1991 11:49 am PDT
The unit of a Date is seconds, measured from zero at midnight, GMT, on January 1, 1901.  This is the same representation that is used in the Alto time standard.  Conversions between this representation and other, more convenient ones appear in the BasicTime interface.


The following apply to the machine on which Cedar is running:
to allow for adding machine types; returns LAST[MachineType] if the name is unknown

returns the last MachineType currently defined

The following apply to BasicCedar.config:
 Ê¹  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
Ïeœ=™HKšÏy™J™3K™+K™,K™"K™&—K˜ šÏk	˜	KšœŸœ˜$—K˜ KšÏnœŸœŸ˜"˜ šœŸœŸœ˜KšœŒ™ŒK™ ——K™ šÏb=™=K˜ šœŸœ˜0K˜ —šœŸœ˜"K˜ —š œŸœŸœ˜+K˜ —š œŸœŸœŸœ˜5K˜ —š œŸœŸœŸœ˜7Kšœ+Ÿœ$™SK™ —š œŸœŸœ˜+Kšœ.™.——K™ š¡)™)K˜ š	œŸœŸœŸ	œŸœ˜0Kšœ
Ÿœ˜Kšœ
Ÿœ˜Kšœ
Ÿ˜K˜K˜ —šœ	Ÿœ˜ K˜ ——K˜ KšŸœ˜— …—       /  