(FILECREATED " 7-May-86 16:16:57" {ROSEBOWL}<FEUERMAN>LISP>NCSERVERLISTENER.;5
 4259   

      changes to:  (COURIERPROGRAMS NoteCardsServer)

      previous date: " 6-May-86 16:26:03" {ROSEBOWL}<FEUERMAN>LISP>NCSERVERLISTENER.;4)


(PRETTYCOMPRINT NCSERVERLISTENERCOMS)

(RPAQQ NCSERVERLISTENERCOMS
 ((* This file contains the IMPLEMENTEDBY's for the Server Courier 
				  Program.)
			       (FILES NCCOURIER (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
				      COURIERSERVE)
			       (COURIERPROGRAMS NoteCardsServer)))



(* This file contains the IMPLEMENTEDBY's for the Server Courier Program.)


(FILESLOAD NCCOURIER (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
	   COURIERSERVE)

(COURIERPROGRAM NoteCardsServer
 (1507 1)
    TYPES

      [(CARDPART (ENUMERATION (SUBSTANCE 0)
			      (TOLINKS 1)
			      (FROMLINKS 2)
			      (TITLE 3)
			      (PROPLIST 4)
			      (GLOBALTOLINKS 5)))
       (NFTOPBOXES (RECORD (NOTEFILE UID)
			   (TABLEOFCONTENTS UID)
			   (ORPHANS UID)
			   (TOBEFILED UID)
			   (LINKLABELS UID)
			   (REGISTRY UID]
    PROCEDURES

      ((ListNoteFiles 1 (STRING)
		      RETURNS
		      ((SEQUENCE STRING))
		      REPORTS
		      (ServiceNotImplemented)
		      IMPLEMENTEDBY NCSERVER.COURIERLISTNOTEFILES)
       (CreateNoteFile 2 (STRING)
		       RETURNS
		       (STRING)
		       REPORTS
		       (ServiceNotImplemented CreateNoteFileFailed)
		       IMPLEMENTEDBY NCSERVER.COURIERCREATENOTEFILE)
       (DeleteNoteFile 3 (STRING)
		       RETURNS
		       (STRING)
		       REPORTS
		       (ServiceNotImplemented NoteFileNotDeleted)
		       IMPLEMENTEDBY NCSERVER.COURIERDELETENOTEFILE)
       (SubscribeToNoteFile 4 ((CHOICE (FILENAME 0 STRING)
				       (NOTEFILEUID 1 UID))
			     NSADDRESS)
			    RETURNS
			    (NFTOPBOXES)
			    REPORTS
			    (ServiceNotImplemented NoteFileNotOpened)
			    IMPLEMENTEDBY NCSERVER.COURIERSUBSCRIBETONOTEFILE)
       (CancelNoteFileSubscription 5 ((CHOICE (FILENAME 0 STRING)
					      (NOTEFILEUID 1 UID))
				    NSADDRESS)
				   RETURNS
				   (BOOLEAN)
				   REPORTS
				   (ServiceNotImplemented NoteFileNotClosed ClientNotSubscribed)
				   IMPLEMENTEDBY NCSERVER.COURIERCANCELNOTEFILESUBSCRIPTION)
       (ListUIDs 6 (UID)
		 RETURNS
		 ((SEQUENCE UID))
		 REPORTS
		 (ServiceNotImplemented)
		 IMPLEMENTEDBY NCSERVER.COURIERLISTUIDS)
       (ListClients 7 (UID)
		    RETURNS
		    ((SEQUENCE NSADDRESS))
		    REPORTS
		    (ServiceNotImplemented)
		    IMPLEMENTEDBY NCSERVER.COURIERLISTCLIENTS)
       (CreateCard 8 (UID NSADDRESS)
		   RETURNS
		   (UID)
		   REPORTS
		   (ServiceNotImplemented UnknownCardType)
		   IMPLEMENTEDBY NCSERVER.COURIERCREATECARD)
       (DeleteCard 9 (UID UID NSADDRESS)
		   RETURNS
		   (BOOLEAN)
		   REPORTS
		   (ServiceNotImplemented CardNotDeleted)
		   IMPLEMENTEDBY NCSERVER.COURIERDELETECARD)
       (GetCardPart 10 (UID UID CARDPART NSADDRESS BULK.DATA.SINK)
		    RETURNS NIL REPORTS (ServiceNotImplemented)
		    IMPLEMENTEDBY NCSERVER.COURIERGETCARDPART)
       (ObtainWriteLock 11 (UID UID CARDPART NSADDRESS)
			RETURNS
			(BOOLEAN)
			REPORTS
			(ServiceNotImplemented)
			IMPLEMENTEDBY NCSERVER.COURIEROBTAINWRITELOCK)
       (PutCardPart 12 (UID UID CARDPART BULK.DATA.SOURCE NSADDRESS)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented PutNotPerformed)
		    IMPLEMENTEDBY NCSERVER.COURIERPUTCARDPART)
       (ReleaseWriteLock 13 (UID UID CARDPART NSADDRESS)
			 RETURNS
			 (BOOLEAN)
			 REPORTS
			 (ServiceNotImplemented WriteLockNotReleased)
			 IMPLEMENTEDBY NCSERVER.COURIERRELEASEWRITELOCK)
       (CancelCardPartSubscription 14 (UID UID CARDPART NSADDRESS)
				   RETURNS
				   (BOOLEAN)
				   REPORTS
				   (ServiceNotImplemented SubscriptionNotCancelled)
				   IMPLEMENTEDBY NCSERVER.COURIERCANCELCARDPARTSUBSCRIPTION))
    ERRORS

      ((ServiceNotImplemented 1 (STRING))
       (NoteFileNotDeleted 2 (STRING))
       (NoteFileNotOpened 3 (STRING))
       (CreateNoteFileFailed 4 (STRING))
       (ClientNotSubscribed 5 (STRING))
       (WriteLockNotReleased 6 (STRING))
       (SubscriptionNotCancelled 7 (STRING))
       (PutNotPerformed 8 (STRING))
       (CardNotDeleted 9 (STRING)))
    INHERITS

      NIL)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP