(FILECREATED " 6-Aug-86 15:02:31" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCCLIENTLISTENER.;4 2299   

      changes to:  (COURIERPROGRAMS NoteCardsClient)

      previous date: " 1-Aug-86 10:33:49" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCCLIENTLISTENER.;3)


(PRETTYCOMPRINT NCCLIENTLISTENERCOMS)

(RPAQQ NCCLIENTLISTENERCOMS ((* This file contains the Client Courier program which serves and the 
				  Listener and can respond to calls from the NoteCards Server to 
				  Client services.)
			       (FILES NCCOURIER (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
				      COURIERSERVE)
			       (COURIERPROGRAMS NoteCardsClient)))



(* This file contains the Client Courier program which serves and the Listener and can respond
 to calls from the NoteCards Server to Client services.)

(FILESLOAD NCCOURIER (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
	   COURIERSERVE)

(COURIERPROGRAM NoteCardsClient (1508 1)
    TYPES
      [(CARDPART (ENUMERATION (SUBSTANCE 0)
			      (TOLINKS 1)
			      (FROMLINKS 2)
			      (TITLE 3)
			      (PROPLIST 4)
			      (GLOBALTOLINKS 5]
    PROCEDURES
      ((CardCreated 1 (UID UID)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented)
		    IMPLEMENTEDBY NCCLIENT.CARDCREATED)
       (CardDeleted 2 (UID UID)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented)
		    IMPLEMENTEDBY NCCLIENT.CARDDELETED)
       (WriteLockObtained 3 (UID UID CARDPART)
			  RETURNS
			  (BOOLEAN)
			  REPORTS
			  (ServiceNotImplemented)
			  IMPLEMENTEDBY NCCLIENT.WRITELOCKOBTAINED)
       (CardPartChanged 4 (UID UID CARDPART)
			RETURNS
			(BOOLEAN)
			REPORTS
			(ServiceNotImplemented)
			IMPLEMENTEDBY NCCLIENT.CARDPARTCHANGED)
       (WriteLockReleased 5 (UID UID CARDPART)
			  RETURNS
			  (BOOLEAN)
			  REPORTS
			  (ServiceNotImplemented)
			  IMPLEMENTEDBY NCCLIENT.WRITELOCKRELEASED)
       (CardActivated 6 (UID UID)
		      RETURNS
		      (BOOLEAN)
		      REPORTS
		      (ServiceNotImplemented)
		      IMPLEMENTEDBY NCCLIENT.CARDSTATUSCHANGED)
       (FetchUserName 7 NIL RETURNS (STRING)
		      REPORTS
		      (ServiceNotImplemented)
		      IMPLEMENTEDBY NCCLIENT.FETCHUSERNAME))
    ERRORS
      ((ServiceNotImplemented 1 (STRING)))
    INHERITS
      NIL)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP