/[de-setf-amqp]/AMQP-1-1-0-9-0/data-wire-coding.lisp
ViewVC logotype

Contents of /AMQP-1-1-0-9-0/data-wire-coding.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (show annotations)
Tue Feb 23 09:05:39 2010 UTC (4 years, 1 month ago) by janderson
File size: 2973 byte(s)
Merge commit 'remotes/github/master' into remotes/git-svn
1 ;;; -*- Package: DE.SETF.AMQP.IMPLEMENTATION; -*-
2 ;;;
3 ;;;
4
5 (in-package "DE.SETF.AMQP.IMPLEMENTATION")
6
7 (def-encodings (:amqp-1-1-0-9-0)
8 ;;amqp-0-9-0.pdf w/ clauses reordered for typecase type precedence
9 (bit amqp:bit) ; promoted due to typecase
10 (boolean boolean :line-code #\t)
11 (short-short-uint (unsigned-byte 8) :line-code #\B)
12 (short-short-int (signed-byte 8) :line-code #\b)
13 (short-uint (unsigned-byte 16) :line-code #\u)
14 (short-int (signed-byte 16) :line-code #\U)
15 (long-uint (unsigned-byte 32) :line-code #\i)
16 (long-int (signed-byte 32) :line-code #\I)
17 (long-long-uint (unsigned-byte 64) :line-code #\l)
18 (long-long-int (signed-byte 64) :line-code #\L)
19 (float short-float :line-code #\f)
20 (double double-float :line-code #\d)
21 (decimal-value amqp:decimal :line-code #\D)
22 (short-string (amqp:string 8) :line-code #\s)
23 (long-string (amqp:string 32) :line-code #\S)
24 (field-array amqp:list :line-code #\A :codec amqp-1-1-0-9-0::buffer-list-codec)
25 (timestamp (unsigned-byte 64) :line-code #\T)
26 (field-table amqp:table :line-code #\F :codec amqp-1-1-0-9-0::buffer-table-codec)
27 ;; ... pertains to argument types, which are not table fields
28 (access-ticket (unsigned-byte 16))
29 (channel-id (unsigned-byte 16))
30 (class-id (unsigned-byte 16))
31 (consumer-tag (amqp:string 8))
32 (content (vbinary 32)) ; this was in the "transfer" method, labeled "in progress" and had no type definition
33 (duration (unsigned-byte 64))
34 (destination (amqp:string 8))
35 (delivery-tag (unsigned-byte 64))
36 (exchange-name (amqp:string 8))
37 (known-hosts (amqp:string 8))
38 (long (unsigned-byte 32))
39 (longlong (unsigned-byte 64))
40 (longstr (amqp:string 32))
41 (message-count (signed-byte 32))
42 (method-id (signed-byte 16))
43 (no-ack amqp:bit)
44 (no-local amqp:bit)
45 (no-wait amqp:bit)
46 (octet (unsigned-byte 8))
47 (offset (unsigned-byte 64))
48 (path (amqp:string 8))
49 (peer-properties amqp:table :codec amqp-1-1-0-9-0::buffer-table-codec)
50 (queue-name (amqp:string 8))
51 (reference (amqp:string 32))
52 (redelivered amqp:bit)
53 (reject-code (unsigned-byte 8))
54 (reject-text (amqp:string 8))
55 (reply-code (unsigned-byte 16))
56 (reply-text (amqp:string 8))
57 (security-token (amqp:string 32))
58 (short (unsigned-byte 16))
59 (shortstr (amqp:string 8))
60 (table amqp:table :codec amqp-1-1-0-9-0::buffer-table-codec)
61 (nil nil :line-code #\V)
62 )
63

  ViewVC Help
Powered by ViewVC 1.1.5