(FILECREATED " 1-Aug-86 14:48:31" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCSERVERCALLER.;6
 4112   

      changes to:  (COURIERPROGRAMS NoteCardsServer)

      previous date: "30-Jul-86 10:42:49" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCSERVERCALLER.;5)


(PRETTYCOMPRINT NCSERVERCALLERCOMS)

(RPAQQ NCSERVERCALLERCOMS
 ((* This file contains the Courier program for the Server without the 
				IMPLEMENTEDBY specs. As a result, loading this file will not result 
				in others being able to call this machine as a Server, but it will 
				allow this machine to make calls to other Servers.)
			     (FILES NCCOURIER)
			     (COURIERPROGRAMS NoteCardsServer)))



(* This file contains the Courier program for the Server without the IMPLEMENTEDBY specs. As a
 result, loading this file will not result in others being able to call this machine as a 
Server, but it will allow this machine to make calls to other Servers.)


(FILESLOAD NCCOURIER)

(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))
       (ListNoteFiles 1 (STRING)
		      RETURNS
		      ((SEQUENCE STRING))
		      REPORTS
		      (ServiceNotImplemented))
       (CreateNoteFile 2 (STRING)
		       RETURNS
		       (STRING)
		       REPORTS
		       (ServiceNotImplemented CreateNoteFileFailed))
       (DeleteNoteFile 3 (STRING)
		       RETURNS
		       (STRING)
		       REPORTS
		       (ServiceNotImplemented NoteFileNotDeleted))
       (SubscribeToNoteFile 4 ((CHOICE (FILENAME 0 STRING)
				       (NOTEFILEUID 1 UID))
			     NSADDRESS)
			    RETURNS
			    (NFTOPBOXES)
			    REPORTS
			    (ServiceNotImplemented SubscribeNotAllowed))
       (CancelNoteFileSubscription 5 ((CHOICE (FILENAME 0 STRING)
					      (NOTEFILEUID 1 UID))
				    NSADDRESS)
				   RETURNS
				   (BOOLEAN)
				   REPORTS
				   (ServiceNotImplemented NoteFileNotClosed ClientNotSubscribed))
       (ListUIDs 6 (UID)
		 RETURNS
		 ((SEQUENCE UID))
		 REPORTS
		 (ServiceNotImplemented))
       (ListClients 7 (UID)
		    RETURNS
		    ((SEQUENCE NSADDRESS))
		    REPORTS
		    (ServiceNotImplemented))
       (CreateCard 8 (UID STRING NSADDRESS)
		   RETURNS
		   (UID)
		   REPORTS
		   (ServiceNotImplemented UnknownCardType))
       (DeleteCard 9 (UID UID NSADDRESS)
		   RETURNS
		   (BOOLEAN)
		   REPORTS
		   (ServiceNotImplemented CardNotDeleted))
       (GetCardPart 10 (UID UID CARDPART NSADDRESS BULK.DATA.SINK)
		    RETURNS NIL REPORTS (ServiceNotImplemented))
       (ObtainWriteLock 11 (UID UID CARDPART NSADDRESS)
			RETURNS
			(BOOLEAN)
			REPORTS
			(ServiceNotImplemented))
       (PutCardPart 12 (UID UID CARDPART BULK.DATA.SOURCE NSADDRESS)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented PutNotPerformed))
       (ReleaseWriteLock 13 (UID UID CARDPART NSADDRESS)
			 RETURNS
			 (BOOLEAN)
			 REPORTS
			 (ServiceNotImplemented WriteLockNotReleased))
       (CancelCardPartSubscription 14 (UID UID CARDPART NSADDRESS)
				   RETURNS
				   (BOOLEAN)
				   REPORTS
				   (ServiceNotImplemented SubscriptionNotCancelled))
       (GetCardInfo 15 (UID UID (SEQUENCE STRING))
		    RETURNS
		    (STRING)
		    REPORTS
		    (ServiceNotImplemented UnknownAspect)))
    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)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP