mentor/src/match/Match.m3


 Copyright 1992 Digital Equipment Corporation.               
 Distributed only by permission.                             
 Last modified on Thu Jan  5 22:24:34 PST 1995 by najork       
      modified on Thu Jul 16 07:41:51 1992 by mhb          
      modified on Thu Jun  4 23:56:54 1992 by steveg       

MODULE Match;

IMPORT VBT;

CONST
  Names = ARRAY State OF TEXT{"Hide", "Clue", "Reveal"};

PROCEDURE StateName(state: State): TEXT =
  BEGIN RETURN Names[state] END StateName;

PROCEDURE ClueName(<* UNUSED *> READONLY clues: Clues): TEXT =
  BEGIN RETURN "" END ClueName;

PROCEDURE FmtMouseRec(<*UNUSED *> READONLY cd: VBT.MouseRec): TEXT =
  BEGIN
    RETURN "Match.m3: Too lazy to format a VBT.MouseRec";
  END FmtMouseRec;

BEGIN
END Match.