-*- Mode: Modula-3 -*-
*
* For information about this program, contact Blair MacIntyre
* (bm@cs.columbia.edu) or Steven Feiner (feiner@cs.columbia.edu)
* at the Computer Science Dept., Columbia University,
* 1214 Amsterdam Ave. Mailstop 0401, New York, NY, 10027.
*
* Copyright (C) 1995, 1996 by The Trustees of Columbia University in the
* City of New York. Blair MacIntyre, Computer Science Department.
* See file COPYRIGHT-COLUMBIA for details.
*
* Author : Blair MacIntyre
* Created On : Tue May 30 23:00:08 1995
* Last Modified By: Blair MacIntyre
* Last Modified On: Mon Aug 4 12:30:02 1997
* Update Count : 21
*
* $Source: /opt/cvs/cm3/doc/help/gen_html/events/src/EventNumber.m3.html,v $
* $Date: 2010-04-29 17:18:13 $
* $Author: wagner $
* $Revision: 1.5 $
*
* $Log: not supported by cvs2svn $
* Revision 1.4.2.1 2010-04-15 20:58:50 wagner
* update generated HTML doc to RC5
*
* Revision 1.2 2001/12/02 00:20:37 wagner
* add copyright notes, fix overrides for cm3, and make everything compile
*
* added: events/COPYRIGHT-COLUMBIA
* added: events/src/COPYRIGHT-COLUMBIA
* modified: events/src/Event.i3
* modified: events/src/Event.m3
* modified: events/src/EventConn.i3
* modified: events/src/EventConn.m3
* modified: events/src/EventCounter.i3
* modified: events/src/EventCounter.m3
* modified: events/src/EventHandle.i3
* modified: events/src/EventIO.i3
* modified: events/src/EventNumber.i3
* modified: events/src/EventNumber.m3
* modified: events/src/EventNumberF.i3
* modified: events/src/EventPort.i3
* modified: events/src/EventPort.m3
* modified: events/src/EventProtocol.i3
* modified: events/src/EventRd.i3
* modified: events/src/EventRd.m3
* modified: events/src/EventSpaceID.i3
* modified: events/src/EventSpaceID.m3
* modified: events/src/EventStubLib.i3
* modified: events/src/EventStubLib.m3
* modified: events/src/EventWireRep.i3
* modified: events/src/EventWireRep.m3
* modified: events/src/EventWr.i3
* modified: events/src/EventWr.m3
* modified: events/src/EventWrF.i3
* modified: events/src/HostInfo.i3
* modified: events/src/HostInfo.m3
* modified: events/src/RdWrMutex.i3
* modified: events/src/RdWrMutex.m3
* modified: events/src/Work.i3
* modified: events/src/WorkerPool.i3
* modified: events/src/WorkerPool.m3
* modified: events/src/Zombie.i3
* modified: events/src/m3makefile
* modified: events/src/m3overrides
*
* Revision 1.1.1.1 2001/12/02 00:06:45 wagner
* Blair MacIntyre's events library
*
* Revision 1.4 1997/08/04 20:15:10 bm
* Fixed BRANDs
*
* Revision 1.3 1997/01/23 15:26:37 bm
* Lots of little bug fixes.
*
* Revision 1.2 1996/11/21 22:37:42 bm
* fixed header
*
*
* HISTORY
MODULE EventNumber;
IMPORT Fmt, Text, EventNumberF;
FROM EventProtocol IMPORT Word32;
REVEAL
T = EventNumberF.Private BRANDED "EventNumber.T" OBJECT
OVERRIDES
init := Init;
inc := Inc;
dec := Dec;
compare := Compare;
fmt := Format;
END;
PROCEDURE Init(self: T; t: T := NIL): T =
BEGIN
IF t # NIL THEN
self.lo := t.lo;
self.hi := t.hi;
ELSE
self.lo := 0;
self.hi := 0;
END;
RETURN self;
END Init;
PROCEDURE Inc(self: T) RAISES {Overflow} =
BEGIN
IF self.lo = LAST(Word32) THEN
IF self.hi = LAST(Word32) THEN
RAISE Overflow;
ELSE
self.lo := 0;
INC(self.hi);
END;
ELSE
INC(self.lo);
END;
END Inc;
PROCEDURE Dec(self: T) RAISES {Overflow} =
BEGIN
IF self.lo = FIRST(Word32) THEN
IF self.hi = FIRST(Word32) THEN
RAISE Overflow;
ELSE
self.lo := LAST(Word32);
DEC(self.hi);
END;
ELSE
DEC(self.lo);
END;
END Dec;
PROCEDURE Format(self: T; base: Fmt.Base) : Text.T =
BEGIN
RETURN Fmt.Unsigned(self.hi, base) & "." & Fmt.Unsigned(self.lo, base);
END Format;
PROCEDURE New(t: T := NIL): T =
BEGIN
RETURN NEW(T).init(t);
END New;
PROCEDURE Compare(p1, p2: T): [-1..1] =
BEGIN
IF p1.hi > p2.hi THEN
RETURN 1;
ELSIF p1.hi < p2.hi THEN
RETURN -1;
ELSIF p1.lo > p2.lo THEN
RETURN 1;
ELSIF p1.lo < p2.lo THEN
RETURN -1;
END;
RETURN 0;
END Compare;
BEGIN
END EventNumber.