(FILECREATED " 1-Aug-86 18:39:53" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCSERVERLISTENER.;6
 4824   

      changes to:  (COURIERPROGRAMS NoteCardsServer)

      previous date: "30-Jul-86 10:34:55" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCSERVERLISTENER.;5)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(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)
			      (REGION 6)))
       (NFTOPBOXES (RECORD (NOTEFILE UID)
			   (TABLEOFCONTENTS UID)
			   (ORPHANS UID)
			   (TOBEFILED UID)
			   (LINKLABELS UID)
			   (REGISTRY UID]
    PROCEDURES

      ((AreYouThere 0 NIL RETURNS (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented)
		    IMPLEMENTEDBY NCSERVER.AREYOUTHERE)
       (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 SubscribeNotAllowed)
			    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 STRING 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)
       (GetCardInfo 15 (UID UID (SEQUENCE STRING))
		    RETURNS
		    (STRING)
		    REPORTS
		    (ServiceNotImplemented UnknownAspect)
		    IMPLEMENTEDBY NCSERVER.COURIERGETCARDINFO))
    ERRORS

      ((ServerError 0 (STRING))
       (ServiceNotImplemented 1 (STRING))
       (NoteFileNotDeleted 2 (STRING))
       (SubscribeNotAllowed 3 (STRING))
       (CreateNoteFileFailed 4 (STRING))
       (ClientNotSubscribed 5 (STRING))
       (WriteLockNotReleased 6 (STRING))
       (SubscriptionNotCancelled 7 (STRING))
       (PutNotPerformed 8 (STRING))
       (CardNotDeleted 9 (STRING))
       (UnknownAspect 10 (STRING)))
    INHERITS

      NIL)
(PUTPROPS NCSERVERLISTENER COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP