-- 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.