-- File: DummyForwarder.mesa,  Last Edit: HGM  February 20, 1979  2:38 AM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  StatsDefs: FROM "StatsDefs" USING [StatIncr],
  PupRouterDefs: FROM "PupRouterDefs",  -- EXPORTS
  DriverDefs: FROM "DriverDefs" USING [doStats],
  BufferDefs: FROM "BufferDefs" USING [PupBuffer, ReturnFreeBuffer];

DummyForwarder: PROGRAM
  IMPORTS StatsDefs, BufferDefs
  EXPORTS PupRouterDefs =
BEGIN OPEN StatsDefs, BufferDefs;

ForwardThisPupBuffer: PUBLIC PROCEDURE [b: PupBuffer] =
  BEGIN
  ReturnFreeBuffer[b];
  IF DriverDefs.doStats THEN StatIncr[statPupNotForwarded];
  END;

END.  -- DummyForwarder module(2048)\420b20B