;;; -*- Package: netname -*-
;;;
;;;    This is the automagically generated user interface file for the 
;;; netname Matchmaker interface.  Since the Lisp code generator is so
;;; winning, extensible and artificially intelligent, it should be
;;; unnecessary to hand edit this file.
;;;
(in-package "NETNAME")
(use-package "MMLISPDEFS")
(use-package "SYSTEM")
(use-package "EXTENSIONS")
(use-package "MACH")
(use-package '("MACH" "MACH" ))
(setup-interface netname :message-size 124)

(defalien to-check_in to-check_in (bytes 132))
(alien-bind ((msg (to-check_in-msg to-check_in)))
  (setf (alien-access (msg-msgsize (alien-value msg))) 132)
  (setf (alien-access (msg-simplemsg (alien-value msg))) NIL)
  (setf (alien-access (msg-msgtype (alien-value msg))) 0)
  (setf (alien-access (msg-id (alien-value msg))) 1040))
(setf (alien-access (typetype-word0 
       (to-check_in-PortsName-typetype to-check_in)))
      0)
(setf (alien-access (typetype-word1 
       (to-check_in-PortsName-typetype to-check_in)))
      12)
(setf (alien-access (typetype-long-typesizeinbits 
       (to-check_in-PortsName-typetype to-check_in)))
      640)
(setf (alien-access (typetype-long-typename 
       (to-check_in-PortsName-typetype to-check_in)))
      12)
(setf (alien-access (typetype-long-numobjects 
       (to-check_in-PortsName-typetype to-check_in)))
      1)
(setf (alien-access (typetype-word0 
       (to-check_in-Signature-typetype to-check_in)))
      1568)
(setf (alien-access (typetype-word1 
       (to-check_in-Signature-typetype to-check_in)))
      24)
(setf (alien-access (typetype-word0 
       (to-check_in-PortsID-typetype to-check_in)))
      1568)
(setf (alien-access (typetype-word1 
       (to-check_in-PortsID-typetype to-check_in)))
      24)

(export 'check_in)
(defun check_in (ServPort PortsName Signature PortsID)
  "Returns values:
  (GR)"
  (do-receive (reply from-check_in
                     :error-return check_in
                     :id 1140)
    (do-send (msg to-check_in
                  :remote-port ServPort
                  :option 0
                  :error-return check_in)
      (setf (alien-access (to-check_in-PortsName (alien-value msg))) PortsName)
      (setf (alien-access (to-check_in-Signature (alien-value msg))) Signature)
      (setf (alien-access (to-check_in-PortsID (alien-value msg))) PortsID))
    (values
      (alien-access (from-check_in-retcode (alien-value reply))))))

(defalien to-look_up to-look_up (bytes 208))
(alien-bind ((msg (to-look_up-msg to-look_up)))
  (setf (alien-access (msg-msgsize (alien-value msg))) 208)
  (setf (alien-access (msg-simplemsg (alien-value msg))) t)
  (setf (alien-access (msg-msgtype (alien-value msg))) 0)
  (setf (alien-access (msg-id (alien-value msg))) 1041))
(setf (alien-access (typetype-word0 
       (to-look_up-Host_Name-typetype to-look_up)))
      0)
(setf (alien-access (typetype-word1 
       (to-look_up-Host_Name-typetype to-look_up)))
      12)
(setf (alien-access (typetype-long-typesizeinbits 
       (to-look_up-Host_Name-typetype to-look_up)))
      640)
(setf (alien-access (typetype-long-typename 
       (to-look_up-Host_Name-typetype to-look_up)))
      12)
(setf (alien-access (typetype-long-numobjects 
       (to-look_up-Host_Name-typetype to-look_up)))
      1)
(setf (alien-access (typetype-word0 
       (to-look_up-PortsName-typetype to-look_up)))
      0)
(setf (alien-access (typetype-word1 
       (to-look_up-PortsName-typetype to-look_up)))
      12)
(setf (alien-access (typetype-long-typesizeinbits 
       (to-look_up-PortsName-typetype to-look_up)))
      640)
(setf (alien-access (typetype-long-typename 
       (to-look_up-PortsName-typetype to-look_up)))
      12)
(setf (alien-access (typetype-long-numobjects 
       (to-look_up-PortsName-typetype to-look_up)))
      1)

(export 'look_up)
(defun look_up (ServPort Host_Name PortsName)
  "Returns values:
  (GR PortsID)"
  (do-receive (reply from-look_up
                     :error-return look_up
                     :id 1141)
    (do-send (msg to-look_up
                  :remote-port ServPort
                  :option 0
                  :error-return look_up)
      (setf (alien-access (to-look_up-Host_Name (alien-value msg))) Host_Name)
      (setf (alien-access (to-look_up-PortsName (alien-value msg))) PortsName))
    (values
      (alien-access (from-look_up-retcode (alien-value reply)))
      (alien-access (from-look_up-PortsID (alien-value reply))))))

(defalien to-check_out to-check_out (bytes 124))
(alien-bind ((msg (to-check_out-msg to-check_out)))
  (setf (alien-access (msg-msgsize (alien-value msg))) 124)
  (setf (alien-access (msg-simplemsg (alien-value msg))) NIL)
  (setf (alien-access (msg-msgtype (alien-value msg))) 0)
  (setf (alien-access (msg-id (alien-value msg))) 1042))
(setf (alien-access (typetype-word0 
       (to-check_out-PortsName-typetype to-check_out)))
      0)
(setf (alien-access (typetype-word1 
       (to-check_out-PortsName-typetype to-check_out)))
      12)
(setf (alien-access (typetype-long-typesizeinbits 
       (to-check_out-PortsName-typetype to-check_out)))
      640)
(setf (alien-access (typetype-long-typename 
       (to-check_out-PortsName-typetype to-check_out)))
      12)
(setf (alien-access (typetype-long-numobjects 
       (to-check_out-PortsName-typetype to-check_out)))
      1)
(setf (alien-access (typetype-word0 
       (to-check_out-Signature-typetype to-check_out)))
      1568)
(setf (alien-access (typetype-word1 
       (to-check_out-Signature-typetype to-check_out)))
      24)

(export 'check_out)
(defun check_out (ServPort PortsName Signature)
  "Returns values:
  (GR)"
  (do-receive (reply from-check_out
                     :error-return check_out
                     :id 1142)
    (do-send (msg to-check_out
                  :remote-port ServPort
                  :option 0
                  :error-return check_out)
      (setf (alien-access (to-check_out-PortsName (alien-value msg))) PortsName)
      (setf (alien-access (to-check_out-Signature (alien-value msg))) Signature))
    (values
      (alien-access (from-check_out-retcode (alien-value reply))))))

(defalien to-version to-version (bytes 24))
(alien-bind ((msg (to-version-msg to-version)))
  (setf (alien-access (msg-msgsize (alien-value msg))) 24)
  (setf (alien-access (msg-simplemsg (alien-value msg))) t)
  (setf (alien-access (msg-msgtype (alien-value msg))) 0)
  (setf (alien-access (msg-id (alien-value msg))) 1043))

(export 'version)
(defun version (ServPort)
  "Returns values:
  (GR Version)"
  (do-receive (reply from-version
                     :error-return version
                     :id 1143)
    (do-send (msg to-version
                  :remote-port ServPort
                  :option 0
                  :error-return version))
    (values
      (alien-access (from-version-retcode (alien-value reply)))
      (alien-access (from-version-Version (alien-value reply))))))