Unit NwSAP;

{ NwTP Version 0.6, Copyright 1993,1995 R. Spronk

  WARNING: Test your program thoroughly if you're using nwSAP functions.
  ----------------------------------------------------------------------

  Using the SAP functionality the wrong way may very well result in
  aborting servers ! (no kidding.)

  NOTE: Type Declarations only. See SHWSAPS.PAS for an example }


INTERFACE

Uses nwMisc,nwIPX;

CONST { server SAP priodic broadcast type }
      PERIODIC_ID_PACKET = $0002;
      { server SAP (reply) packet types }
      GENERAL_SERVICE_RESPONSE=$0002;
      NEAREST_SERVICE_RESPONSE=$0004;
      { client SAP (request) packet types }
      GENERAL_SERVICE_QUERY =$0001;
      NEAREST_SERVICE_QUERY =$0003;

{ Type definitions for SAP request/response structures}
Type TSAPserver=record
                ObjType:word;
                Name   :array[1..48] of byte; { asciiz }
                Address:TinternetworkAddress;
                Hops   :word;
                end;

     TSAPresponse=record
                  ResponseType:word; { 0002 General server; 0004 nearest server }
                  ServerEntry:array[1..7] of TSAPserver;
                  end;

     TSAPrequest=record
		 RequestType:word; {hi-lo}
		 ServerType :word; {hi-lo}
		 end;

IMPLEMENTATION {===========================================================}




end.