(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "RPC2" (USE "LISP" "XCL")))

(il:filecreated " 8-Aug-88 11:40:06" il:{erinyes}<lispusers>medley>rpc.\;2
 2644   

      il:|changes| il:|to:|  (il:vars il:rpccoms)

      il:|previous| il:|date:| "28-Apr-88 17:22:12" il:{erinyes}<lispusers>medley>rpc.\;1)


; Copyright (c) 1987, 1988 by Stanford University and Xerox Corporation.  All rights reserved.

(il:prettycomprint il:rpccoms)

(il:rpaqq il:rpccoms ((il:* il:|;;;;| "SUN REMOTE PROCEDURE CALLS") (il:* il:|;;;;| "Originally written by Jeff Finger at the SUMEX-AIM Computing Resource at Stanford University under support from National Institutes of Health Grant NIH 5P41 RR00785.") (il:* il:|;;;;| "Modified to work under Maiko by Atty Mullins & Doug Cutting.") (il:props (il:rpc il:makefile-environment il:filetype)) (il:variables *use-os-networking*) (eval-when (load) (il:p (il:* il:\; "Load the appropriate transport.") (cond (*use-os-networking* (il:filesload (il:sysload) il:rpcos)) (t (il:* il:\; "Load only UDP.  If you want to use RPC over TCP, you must load TCP yourself") (il:filesload (il:sysload il:from il:lispusers) il:tcpllip il:tcpudp il:rpclowlevel) (when (eq il:makesysname :lyric) (il:filesload (il:sysload) il:ippatches))))) (il:files (il:sysload) il:rpcstruct il:rpccommon il:rpcxdr il:rpcrpc il:rpcportmapper))))



(il:* il:|;;;;| "SUN REMOTE PROCEDURE CALLS")





(il:* il:|;;;;| 
"Originally written by Jeff Finger at the SUMEX-AIM Computing Resource at Stanford University under support from National Institutes of Health Grant NIH 5P41 RR00785."
)





(il:* il:|;;;;| "Modified to work under Maiko by Atty Mullins & Doug Cutting.")



(il:putprops il:rpc il:makefile-environment (:readtable "XCL" :package (defpackage "RPC2" (:use "LISP" "XCL"))))

(il:putprops il:rpc il:filetype :compile-file)

(defglobalparameter *use-os-networking* (eq (il:machinetype) (quote il:maiko)) "If false, RPC will use Interlisp-D TCP/IP, if true RPC will use the host operating system's IPC mechanism.")
(eval-when (load)

(il:* il:\; "Load the appropriate transport.")

(cond (*use-os-networking* (il:filesload (il:sysload) il:rpcos)) (t (il:* il:\; "Load only UDP.  If you want to use RPC over TCP, you must load TCP yourself") (il:filesload (il:sysload il:from il:lispusers) il:tcpllip il:tcpudp il:rpclowlevel) (when (eq il:makesysname :lyric) (il:filesload (il:sysload) il:ippatches))))


(il:filesload (il:sysload) il:rpcstruct il:rpccommon il:rpcxdr il:rpcrpc il:rpcportmapper)
)
(il:putprops il:rpc il:copyright ("Stanford University and Xerox Corporation" 1987 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop