(FILECREATED " 2-Aug-85 11:58:43" {IVY}<HTHOMPSON>LISP>RPC>RPCEVALSERVER.;9
 4126   

      changes to:  (FNS HideRPCEvalServerMovds ExportRPCEval UnexportRPCEval RPCEvalServerDispatch 
			CatchRemoteLispError RPCEvalServerStub RPCApplyServerStub))


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

(PRETTYCOMPRINT RPCEVALSERVERCOMS)

(RPAQQ RPCEVALSERVERCOMS
 [(* Created by Lupine " 2-Aug-85 11:57:29")
			  (FNS HideRPCEvalServerMovds ExportRPCEval UnexportRPCEval 
			       RPCEvalServerDispatch CatchRemoteLispError RPCEvalServerStub 
			       RPCApplyServerStub)
			  (VARS (RPCEvalServerInterface))
			  (GLOBALVARS RPCEvalServerInterface)
			  (DECLARE: DONTCOPY EVAL@COMPILE EVAL@LOAD (FILES (LOADCOMP)
									   SIGNAL))
			  (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
									     RPC))
			  (P (COND ((EQ 'Y
					(ASKUSER 15 'N
						 "Hide server fns (must have been already loaded)? "))
				    (HideRPCEvalServerMovds])



(* Created by Lupine " 2-Aug-85 11:57:29")


(DEFINEQ

(HideRPCEvalServerMovds

  [LAMBDA NIL                                                (* Lupine generated utility)

    (for
 p in
 '((RPCApply Hidden.RPCApply . RPCApplyServerStub)
		(RPCEval Hidden.RPCEval . RPCEvalServerStub))
       do
 (
PUTD
 p:2 (
GETD
 p:1))
	  (
PUTD
 p:1)
	  (
CHANGENAME
 p::2 p:1 p:2])

(ExportRPCEval

  [LAMBDA (type instance version user password)              (* Lupine generated interface)

    (if
 RPCEvalServerInterface
	then
 (
ERROR
 "Already exported" 'RPCEval))
    RPCEvalServerInterface←(
ExportInterface
 user password (
OR
 type "RPCEval 2-Aug-85 11:57:29830")
					    instance version (
FUNCTION
 RPCEvalServerDispatch])

(UnexportRPCEval

  [LAMBDA NIL                                                (* Lupine generated interface)

    [
UnexportInterface
 (
OR
 RPCEvalServerInterface (
ERROR
 "not exported" 'RPCEval]
    RPCEvalServerInterface←NIL])

(RPCEvalServerDispatch

  [LAMBDA (l..pup request l..conv)                           (* Lupine generated dispatcher)

    (enable

         RemoteLispError => 
(sresume
 (
CatchRemoteLispError
 arg l..conv))
       (
SELECTQ
 request
		(4 (
RPCEvalServerStub
 l..pup l..conv))
		(5 (
RPCApplyServerStub
 l..pup l..conv))
		(
SHOULDNT
)))])

(CatchRemoteLispError

  [LAMBDA (arg l..conv)                                      (* Lupine generated signal catcher)

    (DECLARE
 (
USEDFREE
 l..cPup))
    (
\StartSignal
 l..cPup)
    (
\AddPupWord
 l..cPup 4)
    (
\MarshalArb
 l..cPup arg l..conv)
    l..cPup←(
\Call
 l..cPup NIL l..conv)
    (
\UnmarshalArb
 l..cPup l..conv])

(RPCEvalServerStub

  [LAMBDA (l..cPup l..conv)                                  (* Lupine generated stub)

    (DECLARE
 (
SPECVARS
 l..cPup l..conv))
    (
PROG
 (l..result l..arg1)
          (l..arg1←(
\UnmarshalArb
 l..cPup l..conv))
          (l..result←(
RPCEval
 l..arg1))
          (
\StartReturn
 l..cPup)
          (
\MarshalArb
 l..cPup l..result l..conv)
          (
RETURN
 l..cPup])

(RPCApplyServerStub

  [LAMBDA (l..cPup l..conv)                                  (* Lupine generated stub)

    (DECLARE
 (
SPECVARS
 l..cPup l..conv))
    (
PROG
 (l..result l..arg1 l..arg2)
          (l..arg1←(
\UnmarshalArb
 l..cPup l..conv))
          (l..arg2←(
\UnmarshalArb
 l..cPup l..conv))
          (l..result←(
RPCApply
 l..arg1 l..arg2))
          (
\StartReturn
 l..cPup)
          (
\MarshalArb
 l..cPup l..result l..conv)
          (
RETURN
 l..cPup])
)

(RPAQQ RPCEvalServerInterface
 NIL)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS RPCEvalServerInterface)
)
(DECLARE: DONTCOPY EVAL@COMPILE EVAL@LOAD 
(FILESLOAD (LOADCOMP)
	   SIGNAL)
)
(DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY 
(FILESLOAD (SYSLOAD)
	   RPC)
)
(COND ((EQ 'Y
	   (ASKUSER 15 'N
		    "Hide server fns (must have been already loaded)? "))
       (HideRPCEvalServerMovds)))
(PUTPROPS RPCEVALSERVER COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1036 3646 (HideRPCEvalServerMovds 1046 . 1383) (ExportRPCEval 1385 . 1756) (
UnexportRPCEval 1758 . 2001) (RPCEvalServerDispatch 2003 . 2369) (CatchRemoteLispError 2371 . 2728) (
RPCEvalServerStub 2730 . 3149) (RPCApplyServerStub 3151 . 3644)))))
STOP