|
@@ -9,21 +9,25 @@ type chunk_kind =
|
|
|
| STRI (* string pool *)
|
|
|
| DOCS (* doc pool *)
|
|
|
| HHDR (* module header *)
|
|
|
- | ANFR (* anon field references *)
|
|
|
| TYPF (* forward types *)
|
|
|
+ (* Module type references *)
|
|
|
| CLSR (* class reference array *)
|
|
|
+ | ENMR (* enum reference array *)
|
|
|
| ABSR (* abstract reference array *)
|
|
|
| TPDR (* typedef reference array *)
|
|
|
- | ENMR (* enum reference array *)
|
|
|
+ (* Own module type definitions *)
|
|
|
+ | ANFR (* anon field references *)
|
|
|
| CLSD (* class definition *)
|
|
|
+ | ENMD (* enum definition *)
|
|
|
| ABSD (* abstract definition *)
|
|
|
+ | TPDD (* typedef definition *)
|
|
|
+ (* Field references *)
|
|
|
| ENFR (* enum field references *)
|
|
|
| CFLR (* class field references *)
|
|
|
+ (* Own field definitions *)
|
|
|
| CFLD (* class fields *)
|
|
|
- | AFLD (* abstract fields *)
|
|
|
- | TPDD (* typedef definition *)
|
|
|
- | ENMD (* enum definition *)
|
|
|
| EFLD (* enum fields *)
|
|
|
+ | AFLD (* abstract fields *)
|
|
|
| HEND (* the end *)
|
|
|
|
|
|
let string_of_chunk_kind = function
|