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

(IL:FILECREATED "15-Oct-87 18:54:04" 
IL:{SAFE}</B/JFINGER/RPC/X>RPCPORTMAPPER.LSP\;5
 4161   

      IL:|changes| IL:|to:|  (IL:VARS IL:RPCPORTMAPPERCOMS)
                             (IL:FUNCTIONS PORTMAPPERDEF TCPPORTMAPPERDEF)

      IL:|previous| IL:|date:| "15-Oct-87 10:00:43" 
IL:{SAFE}</B/JFINGER/RPC/X>RPCPORTMAPPER.LSP\;4)


(IL:PRETTYCOMPRINT IL:RPCPORTMAPPERCOMS)

(IL:RPAQQ IL:RPCPORTMAPPERCOMS
 
          ((IL:* "Portmapper Remote Program Definition.")
           (IL:* "Copyright (c) 1987 by the Leland Stanford Junior University. All rights reserved."
                 )
           (IL:* "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:P (IN-PACKAGE "RPC2"))
           (IL:P (EVAL-WHEN (COMPILE LOAD EVAL)
                        (DEFSTRUCT MAPSEQUENCE
 PROGRAM VERS PROTOCOL PORT)

                        (DEFSTRUCT MAPSTRUCT
 PROGRAM VERS PROT PORT THEREST)
))
           (IL:FUNCTIONS PORTMAPPERDEF TCPPORTMAPPERDEF)))



(IL:* "Portmapper Remote Program Definition.")





(IL:* 
"Copyright (c) 1987 by the Leland Stanford Junior University. All rights reserved."
)





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


(IN-PACKAGE "RPC2")
(EVAL-WHEN (COMPILE LOAD EVAL)
       (DEFSTRUCT MAPSEQUENCE
 PROGRAM VERS PROTOCOL PORT)

       (DEFSTRUCT MAPSTRUCT
 PROGRAM VERS PROT PORT THEREST)
)

(DEFUN PORTMAPPERDEF
 NIL
                     (DEFINE-REMOTE-PROGRAM
                      'PORTMAPPER 100000 2 'UDP :TYPES
                      '((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
                      '((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)))))


(DEFUN TCPPORTMAPPERDEF

   NIL (DEFINE-REMOTE-PROGRAM
        'TCPPORTMAPPER 100000 2 'TCP :TYPES
        '((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
        '((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:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP