netobj/src/netobjrt/SpaceID.m3


 Copyright 1992 Digital Equipment Corporation.               
 Distributed only by permission.                             
 SpaceID.m3 
 Last modified on Mon Jul 19 15:04:37 PDT 1993 by wobber 
      modified on Fri Aug  7 15:00:56 PDT 1992 by evers  

UNSAFE MODULE SpaceID;

IMPORT Fingerprint, TimeStamp;

VAR myT: T;

PROCEDURE Mine() : T = BEGIN RETURN myT; END Mine;

PROCEDURE ComputeFP() : T =
  VAR ts := TimeStamp.New();
  BEGIN
    RETURN Fingerprint.FromChars(
             LOOPHOLE(ts, ARRAY [0..15] OF CHAR), Fingerprint.OfEmpty);
  END ComputeFP;

BEGIN
  myT := ComputeFP();
END SpaceID.