|
@@ -47,21 +47,21 @@ let string_of_chunk_kind = function
|
|
| STRI -> "STRI"
|
|
| STRI -> "STRI"
|
|
| DOCS -> "DOCS"
|
|
| DOCS -> "DOCS"
|
|
| HHDR -> "HHDR"
|
|
| HHDR -> "HHDR"
|
|
- | ANFR -> "ANFR"
|
|
|
|
| TYPF -> "TYPF"
|
|
| TYPF -> "TYPF"
|
|
| CLSR -> "CLSR"
|
|
| CLSR -> "CLSR"
|
|
|
|
+ | ENMR -> "ENMR"
|
|
| ABSR -> "ABSR"
|
|
| ABSR -> "ABSR"
|
|
| TPDR -> "TPDR"
|
|
| TPDR -> "TPDR"
|
|
- | ENMR -> "ENMR"
|
|
|
|
|
|
+ | ANFR -> "ANFR"
|
|
| CLSD -> "CLSD"
|
|
| CLSD -> "CLSD"
|
|
|
|
+ | ENMD -> "ENMD"
|
|
| ABSD -> "ABSD"
|
|
| ABSD -> "ABSD"
|
|
|
|
+ | TPDD -> "TPDD"
|
|
| ENFR -> "ENFR"
|
|
| ENFR -> "ENFR"
|
|
| CFLR -> "CFLR"
|
|
| CFLR -> "CFLR"
|
|
| CFLD -> "CFLD"
|
|
| CFLD -> "CFLD"
|
|
- | AFLD -> "AFLD"
|
|
|
|
- | TPDD -> "TPDD"
|
|
|
|
- | ENMD -> "ENMD"
|
|
|
|
| EFLD -> "EFLD"
|
|
| EFLD -> "EFLD"
|
|
|
|
+ | AFLD -> "AFLD"
|
|
| HEND -> "HEND"
|
|
| HEND -> "HEND"
|
|
|
|
|
|
let chunk_kind_of_string = function
|
|
let chunk_kind_of_string = function
|
|
@@ -70,19 +70,19 @@ let chunk_kind_of_string = function
|
|
| "HHDR" -> HHDR
|
|
| "HHDR" -> HHDR
|
|
| "TYPF" -> TYPF
|
|
| "TYPF" -> TYPF
|
|
| "CLSR" -> CLSR
|
|
| "CLSR" -> CLSR
|
|
|
|
+ | "ENMR" -> ENMR
|
|
| "ABSR" -> ABSR
|
|
| "ABSR" -> ABSR
|
|
| "TPDR" -> TPDR
|
|
| "TPDR" -> TPDR
|
|
- | "ENMR" -> ENMR
|
|
|
|
|
|
+ | "ANFR" -> ANFR
|
|
| "CLSD" -> CLSD
|
|
| "CLSD" -> CLSD
|
|
|
|
+ | "ENMD" -> ENMD
|
|
| "ABSD" -> ABSD
|
|
| "ABSD" -> ABSD
|
|
|
|
+ | "TPDD" -> TPDD
|
|
| "ENFR" -> ENFR
|
|
| "ENFR" -> ENFR
|
|
- | "ANFR" -> ANFR
|
|
|
|
| "CFLR" -> CFLR
|
|
| "CFLR" -> CFLR
|
|
| "CFLD" -> CFLD
|
|
| "CFLD" -> CFLD
|
|
- | "AFLD" -> AFLD
|
|
|
|
- | "TPDD" -> TPDD
|
|
|
|
- | "ENMD" -> ENMD
|
|
|
|
| "EFLD" -> EFLD
|
|
| "EFLD" -> EFLD
|
|
|
|
+ | "AFLD" -> AFLD
|
|
| "HEND" -> HEND
|
|
| "HEND" -> HEND
|
|
| name -> raise (HxbFailure ("Invalid chunk name: " ^ name))
|
|
| name -> raise (HxbFailure ("Invalid chunk name: " ^ name))
|
|
|
|
|