(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "RPC2")

(il:filecreated " 8-Aug-88 11:53:57" il:{erinyes}<lispusers>medley>rpcportmapper.\;3
 2642   

      il:|changes| il:|to:|  (il:vars il:rpcportmappercoms) (il:functions portmapperdef)

      il:|previous| il:|date:| " 8-Aug-88 11:40:30" il:{erinyes}<lispusers>medley>rpcportmapper.\;2
)


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

(il:prettycomprint il:rpcportmappercoms)

(il:rpaqq il:rpcportmappercoms ((il:props (il:rpcportmapper il:makefile-environment il:filetype)) (eval-when (compile load eval) (il:structures mapsequence mapstruct)) (il:functions portmapperdef) (eval-when (load eval) (il:p (portmapperdef)))))

(il:putprops il:rpcportmapper il:makefile-environment (:readtable "XCL" :package "RPC2"))

(il:putprops il:rpcportmapper il:filetype :compile-file)
(eval-when (compile load eval)

(defstruct mapsequence program vers protocol port)

(defstruct mapstruct program vers prot port therest)
)

(defun portmapperdef nil (il:* il:|;;| "Program that maps from programs to ports") (il:nill) (il:* il:\; "Keep DEFUN from expanding the DEFINE-REMOTE-PROGRAM macro any more than necessary") (define-remote-program (quote portmapper) 100000 2 (quote udp) :types (quote ((mapstruct (:union :boolean (nil :void) (t (:struct mapstruct (program :unsigned) (vers :unsigned) (prot :unsigned) (port :unsigned) (therest mapstruct))))) (mapsequence (:sequence (:struct mapsequence (program :unsigned) (vers :unsigned) (protocol :unsigned) (port :unsigned)))))) :procedures (quote ((null 0 nil nil) (lookup 3 (:unsigned :unsigned :unsigned :unsigned) (:unsigned)) (dump 4 nil (mapsequence)) (baddump 4 nil (mapstruct)) (indirect 5 (:unsigned :unsigned :unsigned :string) (:unsigned :string))))) (il:* il:|;;| "TCP version of same.  Sad that we need this redundancy.") (define-remote-program (quote tcpportmapper) 100000 2 (quote tcp) :types (quote ((mapstruct (:union :boolean (nil :void) (t (:struct mapstruct (program :unsigned) (vers :unsigned) (prot :unsigned) (port :unsigned) (therest mapstruct))))) (mapsequence (:sequence (:struct mapsequence (program :unsigned) (vers :unsigned) (protocol :unsigned) (port :unsigned)))))) :procedures (quote ((null 0 nil nil) (lookup 3 (:unsigned :unsigned :unsigned :unsigned) (:unsigned)) (dump 4 nil (mapsequence)) (baddump 4 nil (mapstruct)) (indirect 5 (:unsigned :unsigned :unsigned :string) (:unsigned :string))))))
(eval-when (load eval)

(portmapperdef)
)
(il:putprops il:rpcportmapper il:copyright ("Stanford University and Xerox Corporation" 1987 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop