小乌龟控制完成
This commit is contained in:
Cx330 committed
1 parent
b09567204c
commit
cdcf44c156
329 files changed
+16783
No files matched your search
@@ -0,0 +1,9 @@
|
||||
|
||||
(cl:in-package :asdf)
|
||||
|
||||
(defsystem "Aee1220310013-srv"
|
||||
:depends-on (:roslisp-msg-protocol :roslisp-utils )
|
||||
:components ((:file "_package")
|
||||
(:file "ProcessID" :depends-on ("_package_ProcessID"))
|
||||
(:file "_package_ProcessID" :depends-on ("_package"))
|
||||
))
|
||||
@@ -0,0 +1,220 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package Aee1220310013-srv)
|
||||
|
||||
|
||||
;//! \htmlinclude ProcessID-request.msg.html
|
||||
|
||||
(cl:defclass <ProcessID-request> (roslisp-msg-protocol:ros-message)
|
||||
((student_id
|
||||
:reader student_id
|
||||
:initarg :student_id
|
||||
:type cl:string
|
||||
:initform ""))
|
||||
)
|
||||
|
||||
(cl:defclass ProcessID-request (<ProcessID-request>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <ProcessID-request>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'ProcessID-request)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name Aee1220310013-srv:<ProcessID-request> is deprecated: use Aee1220310013-srv:ProcessID-request instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'student_id-val :lambda-list '(m))
|
||||
(cl:defmethod student_id-val ((m <ProcessID-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader Aee1220310013-srv:student_id-val is deprecated. Use Aee1220310013-srv:student_id instead.")
|
||||
(student_id m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <ProcessID-request>) ostream)
|
||||
"Serializes a message object of type '<ProcessID-request>"
|
||||
(cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'student_id))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'student_id))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <ProcessID-request>) istream)
|
||||
"Deserializes a message object of type '<ProcessID-request>"
|
||||
(cl:let ((__ros_str_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'student_id) (cl:make-string __ros_str_len))
|
||||
(cl:dotimes (__ros_str_idx __ros_str_len msg)
|
||||
(cl:setf (cl:char (cl:slot-value msg 'student_id) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<ProcessID-request>)))
|
||||
"Returns string type for a service object of type '<ProcessID-request>"
|
||||
"Aee1220310013/ProcessIDRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'ProcessID-request)))
|
||||
"Returns string type for a service object of type 'ProcessID-request"
|
||||
"Aee1220310013/ProcessIDRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<ProcessID-request>)))
|
||||
"Returns md5sum for a message object of type '<ProcessID-request>"
|
||||
"e7263169494a43b7a316d7ec3753d546")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'ProcessID-request)))
|
||||
"Returns md5sum for a message object of type 'ProcessID-request"
|
||||
"e7263169494a43b7a316d7ec3753d546")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<ProcessID-request>)))
|
||||
"Returns full string definition for message of type '<ProcessID-request>"
|
||||
(cl:format cl:nil "string student_id~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'ProcessID-request)))
|
||||
"Returns full string definition for message of type 'ProcessID-request"
|
||||
(cl:format cl:nil "string student_id~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <ProcessID-request>))
|
||||
(cl:+ 0
|
||||
4 (cl:length (cl:slot-value msg 'student_id))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <ProcessID-request>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'ProcessID-request
|
||||
(cl:cons ':student_id (student_id msg))
|
||||
))
|
||||
;//! \htmlinclude ProcessID-response.msg.html
|
||||
|
||||
(cl:defclass <ProcessID-response> (roslisp-msg-protocol:ros-message)
|
||||
((x
|
||||
:reader x
|
||||
:initarg :x
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(y
|
||||
:reader y
|
||||
:initarg :y
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(radius
|
||||
:reader radius
|
||||
:initarg :radius
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(direction
|
||||
:reader direction
|
||||
:initarg :direction
|
||||
:type cl:integer
|
||||
:initform 0))
|
||||
)
|
||||
|
||||
(cl:defclass ProcessID-response (<ProcessID-response>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <ProcessID-response>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'ProcessID-response)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name Aee1220310013-srv:<ProcessID-response> is deprecated: use Aee1220310013-srv:ProcessID-response instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'x-val :lambda-list '(m))
|
||||
(cl:defmethod x-val ((m <ProcessID-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader Aee1220310013-srv:x-val is deprecated. Use Aee1220310013-srv:x instead.")
|
||||
(x m))
|
||||
|
||||
(cl:ensure-generic-function 'y-val :lambda-list '(m))
|
||||
(cl:defmethod y-val ((m <ProcessID-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader Aee1220310013-srv:y-val is deprecated. Use Aee1220310013-srv:y instead.")
|
||||
(y m))
|
||||
|
||||
(cl:ensure-generic-function 'radius-val :lambda-list '(m))
|
||||
(cl:defmethod radius-val ((m <ProcessID-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader Aee1220310013-srv:radius-val is deprecated. Use Aee1220310013-srv:radius instead.")
|
||||
(radius m))
|
||||
|
||||
(cl:ensure-generic-function 'direction-val :lambda-list '(m))
|
||||
(cl:defmethod direction-val ((m <ProcessID-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader Aee1220310013-srv:direction-val is deprecated. Use Aee1220310013-srv:direction instead.")
|
||||
(direction m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <ProcessID-response>) ostream)
|
||||
"Serializes a message object of type '<ProcessID-response>"
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'x))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'y))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'radius))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
|
||||
(cl:let* ((signed (cl:slot-value msg 'direction)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 4294967296) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) unsigned) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) unsigned) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) unsigned) ostream)
|
||||
)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <ProcessID-response>) istream)
|
||||
"Deserializes a message object of type '<ProcessID-response>"
|
||||
(cl:let ((bits 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'x) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:let ((bits 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'y) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:let ((bits 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'radius) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'direction) (cl:if (cl:< unsigned 2147483648) unsigned (cl:- unsigned 4294967296))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<ProcessID-response>)))
|
||||
"Returns string type for a service object of type '<ProcessID-response>"
|
||||
"Aee1220310013/ProcessIDResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'ProcessID-response)))
|
||||
"Returns string type for a service object of type 'ProcessID-response"
|
||||
"Aee1220310013/ProcessIDResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<ProcessID-response>)))
|
||||
"Returns md5sum for a message object of type '<ProcessID-response>"
|
||||
"e7263169494a43b7a316d7ec3753d546")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'ProcessID-response)))
|
||||
"Returns md5sum for a message object of type 'ProcessID-response"
|
||||
"e7263169494a43b7a316d7ec3753d546")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<ProcessID-response>)))
|
||||
"Returns full string definition for message of type '<ProcessID-response>"
|
||||
(cl:format cl:nil "float32 x~%float32 y~%float32 radius~%int32 direction~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'ProcessID-response)))
|
||||
"Returns full string definition for message of type 'ProcessID-response"
|
||||
(cl:format cl:nil "float32 x~%float32 y~%float32 radius~%int32 direction~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <ProcessID-response>))
|
||||
(cl:+ 0
|
||||
4
|
||||
4
|
||||
4
|
||||
4
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <ProcessID-response>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'ProcessID-response
|
||||
(cl:cons ':x (x msg))
|
||||
(cl:cons ':y (y msg))
|
||||
(cl:cons ':radius (radius msg))
|
||||
(cl:cons ':direction (direction msg))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'ProcessID)))
|
||||
'ProcessID-request)
|
||||
(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'ProcessID)))
|
||||
'ProcessID-response)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'ProcessID)))
|
||||
"Returns string type for a service object of type '<ProcessID>"
|
||||
"Aee1220310013/ProcessID")
|
||||
@@ -0,0 +1,10 @@
|
||||
(cl:defpackage Aee1220310013-srv
|
||||
(:use )
|
||||
(:export
|
||||
"PROCESSID"
|
||||
"<PROCESSID-REQUEST>"
|
||||
"PROCESSID-REQUEST"
|
||||
"<PROCESSID-RESPONSE>"
|
||||
"PROCESSID-RESPONSE"
|
||||
))
|
||||
|
||||
@@ -0,0 +1,12 @@
|
||||
(cl:in-package Aee1220310013-srv)
|
||||
(cl:export '(STUDENT_ID-VAL
|
||||
STUDENT_ID
|
||||
X-VAL
|
||||
X
|
||||
Y-VAL
|
||||
Y
|
||||
RADIUS-VAL
|
||||
RADIUS
|
||||
DIRECTION-VAL
|
||||
DIRECTION
|
||||
))
|
||||
Reference in new issue
Block a user