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

DIRECTORY
  Courier USING [Description],
  System USING [NetworkAddress],

  BootServerInfo USING [BootFileNumber, Counters, Info];

BootServerInfoSupport: PROGRAM
  EXPORTS BootServerInfo =
  BEGIN

    DescribeBootFileNumber: PUBLIC Courier.Description =
      BEGIN
      [] ¬ notes.noteSize[SIZE[BootServerInfo.BootFileNumber]];
      END;

    DescribeBootServerInfo: PUBLIC Courier.Description =
      BEGIN
      info: LONG POINTER TO BootServerInfo.Info ¬
        notes.noteSize[SIZE[BootServerInfo.Info]];
      notes.noteString[@info.fileName];
      notes.noteLongCardinal[LOOPHOLE[@info.create]];
      notes.noteLongCardinal[@info.bytes];
      notes.noteLongCardinal[@info.count];
      notes.noteLongCardinal[@info.ms];
      END;

    DescribeCounters: PUBLIC Courier.Description =
      BEGIN
      counters: LONG POINTER TO BootServerInfo.Counters ¬
        notes.noteSize[SIZE[BootServerInfo.Counters]];
      notes.noteLongCardinal[@counters.bootFilesRequested];
      notes.noteLongCardinal[@counters.bootFilesSent];
      notes.noteLongCardinal[@counters.bootFilesSentSlowly];
      notes.noteLongCardinal[@counters.microcodeBootFilesRequested];
      notes.noteLongCardinal[@counters.microcodeBootFilesSent];
      notes.noteLongCardinal[@counters.newBootFilesRetrieved];
      END;

    DescribeNetworkAddress: PUBLIC Courier.Description =
      BEGIN
      [] ¬ notes.noteSize[SIZE[System.NetworkAddress]];
      END;

  END.