procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More fixes to bindat example.

Browse source
This commit is contained in:
Kim F. Storm 2007-02-17 22:00:17 +00:00
parent 59098cd650
commit 57bb3c252c
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lispref/processes.texi
View file

@ -2432,14 +2432,14 @@ struct header @{
struct data @{
unsigned char type;
unsigned char opcode;
unsigned long length; /* In network byte order */
unsigned short length; /* In network byte order */
unsigned char id[8]; /* null-terminated string */
unsigned char data[/* (length + 3) & ~3 */];
@};
struct packet @{
struct header header;
unsigned short counters[4]; /* In little endian order */
unsigned long counters[2]; /* In little endian order */
unsigned char items;
unsigned char filler[3];
struct data item[/* items */];
@ -2459,14 +2459,14 @@ The corresponding data layout specification:
(setq data-spec
'((type u8)
(opcode u8)
(length u32) ;; network byte order
(length u16) ;; network byte order
(id strz 8)
(data vec (length))
(align 4)))
(setq packet-spec
'((header struct header-spec)
(counters vec 4 u16r) ;; little endian order
(counters vec 2 u32r) ;; little endian order
(items u8)
(fill 3)
(item repeat (items)
@ -2477,9 +2477,10 @@ A binary data representation:
@lisp
(setq binary-data
[ 192 168 1 100 192 168 1 101 01 28 21 32 2 0 0 0
2 3 5 0 ?A ?B ?C ?D ?E ?F 0 0 1 2 3 4 5 0 0 0
1 4 7 0 ?B ?C ?D ?E ?F ?G 0 0 6 7 8 9 10 11 12 0 ])
[ 192 168 1 100 192 168 1 101 01 28 21 32
160 134 1 0 5 1 0 0 2 0 0 0
2 3 0 5 ?A ?B ?C ?D ?E ?F 0 0 1 2 3 4 5 0 0 0
1 4 0 7 ?B ?C ?D ?E ?F ?G 0 0 6 7 8 9 10 11 12 0 ])
@end lisp
The corresponding decoded structure:
@ -2492,6 +2493,7 @@ The corresponding decoded structure:
(src-ip . [192 168 1 101])
(dest-port . 284)
(src-port . 5408))
(counters . [100000 261])
(items . 2)
(item ((data . [1 2 3 4 5])
(id . "ABCDEF")