File: xd.ser

package info (click to toggle)
xdelta 1.0.0-1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 876 kB
  • ctags: 696
  • sloc: ansic: 5,154; sh: 4,717; lisp: 777; makefile: 64
file content (73 lines) | stat: -rw-r--r-- 1,201 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
;; -*- Emacs-Lisp -*-

(defsertype RsyncIndexElt
  ((md5   (bytes 16))
   (cksum XdeltaChecksum)
   )
  ("SerialRsyncIndexElt* next"
   "gint match_offset")
  )

(defsertype RsyncIndex
  ((seg_len  uint)
   (file_len uint)
   (file_md5 (bytes 16))
   (index    (array RsyncIndexElt))
   )
  ("SerialRsyncIndexElt** table"
   "guint table_size")
  )

(defsertype XdeltaIndex
  ((file_len uint)
   (file_md5 (bytes 16))
   (index    (array XdeltaChecksum))
   )
  ()
  )

(defsertype XdeltaControl
  ((normalized boolean)
   (data_len   uint)
   (to_info    XdeltaSourceInfo)
   (source_info (array (ptr XdeltaSourceInfo)))
   (inst        (array XdeltaInstruction))
   )
  ("GArray    *inst_array"
   "GPtrArray *source_info_array"
   )
  )

(defsertype XdeltaSourceInfo
  ((md5 (bytes 16))
   (real_md5 (bytes 16))
   (length uint)
   )
  ()
  )

(defsertype XdeltaInstruction
  ((offset uint)
   (length uint)
   )
  ("guint8 type"  ;; these two fields get packed into length
   "guint8 index"
   )
  )

;(defsertype XdeltaInstruction
;  ((type uint8)
;   (index uint8)
;   (offset uint)
;   (length uint)
;   )
;  ()
;  )


(defsertype XdeltaChecksum
  ((high uint16)
   (low  uint16)
   )
  ()
  )