-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- NameServerStrings.mesa,  HGM, 23-Sep-83  3:52:40

DIRECTORY
  Stats USING [StatCounterIndex, StatsStringToIndex],
  NameServerDefs USING [
    statName, statAddress, statXlation, statConst, statBusy, statHits,
    statMisses, statNone, statFile, statVers, statSend, statMsScanningFile];

NameServerStrings: PROGRAM IMPORTS Stats, NameServerDefs =
  BEGIN OPEN Stats, NameServerDefs;

  SetupNameServerThings: PROCEDURE =
    BEGIN
    statVers ← StatsStringToIndex["Directory Version requests"];
    statSend ← StatsStringToIndex["Directories sent"];
    statName ← StatsStringToIndex["Name Lookup requests"];
    statAddress ← StatsStringToIndex["Address Lookup requests"];
    statXlation ← StatsStringToIndex["48 to 8 address translation requests"];
    statConst ← StatsStringToIndex["Name Lookup constants"];
    statBusy ← StatsStringToIndex[
      "Requests while Name/Address Lookup server was Busy"];
    statHits ← StatsStringToIndex["Hits in Name Lookup cache"];
    statMisses ← StatsStringToIndex["Misses found in Name Lookup cache"];
    statNone ← StatsStringToIndex["Name Lookup cache misses"];
    statFile ← StatsStringToIndex["Name Lookup file searches"];
    statMsScanningFile ← StatsStringToIndex[
      "MiliSeconds spent scanning Name Lookup file"];
    END;


  -- initialization

  SetupNameServerThings[];
  END.