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