262 |
|
|
263 |
let buf = Buffer.create 100 |
let buf = Buffer.create 100 |
264 |
let print_payload msg = |
let print_payload msg = |
265 |
Buffer.clear buf; |
Buffer.reset buf; |
266 |
let name = |
let name = |
267 |
let module Buffer = Buffer2 in |
let module Buffer = Buffer2 in |
268 |
match msg with |
match msg with |
417 |
|
|
418 |
let g2_encode_payload msg = |
let g2_encode_payload msg = |
419 |
let module M = G2_LittleEndian in |
let module M = G2_LittleEndian in |
420 |
Buffer.clear buf; |
Buffer.reset buf; |
421 |
let name = |
let name = |
422 |
match msg with |
match msg with |
423 |
| TO md4 -> buf_md4 buf md4; "TO" |
| TO md4 -> buf_md4 buf md4; "TO" |