- fields +> List.map (fun (field) ->
- (match field with
- | (DeclarationField (FieldDeclList (onefield_multivars, iiptvirg))) ->
- DeclarationField
- (FieldDeclList
- (vk_struct_fieldkinds_s bigf onefield_multivars, iif iiptvirg))
- | EmptyField info -> EmptyField (vk_info_s bigf info)
- | MacroDeclField ((s, args),ii) ->
- MacroDeclField
- ((s,
- args +> List.map (fun (e,ii) -> vk_argument_s bigf e, iif ii)
- ),
- iif ii)
-
- | CppDirectiveStruct directive ->
- CppDirectiveStruct (vk_cpp_directive_s bigf directive)
- | IfdefStruct ifdef ->
- IfdefStruct (vk_ifdef_directive_s bigf ifdef)
-
- )
- )
-
-
-and vk_def_s = fun bigf d ->
+ match field with
+ (DeclarationField (FieldDeclList (onefield_multivars, iiptvirg))) ->
+ DeclarationField
+ (FieldDeclList
+ (vk_struct_fieldkinds_s bigf onefield_multivars, iif iiptvirg))
+ | EmptyField info -> EmptyField (vk_info_s bigf info)
+ | MacroDeclField ((s, args),ii) ->
+ MacroDeclField
+ ((s,
+ args +> List.map (fun (e,ii) -> vk_argument_s bigf e, iif ii)
+ ),
+ iif ii)
+
+ | CppDirectiveStruct directive ->
+ CppDirectiveStruct (vk_cpp_directive_s bigf directive)
+ | IfdefStruct ifdef ->
+ IfdefStruct (vk_ifdef_directive_s bigf ifdef)
+
+and vk_struct_fields_s = fun bigf fields ->
+ fields +> List.map (vk_struct_field_s bigf)
+
+and vk_enum_fields_s = fun bigf enumt ->
+ let iif ii = vk_ii_s bigf ii in
+ enumt +> List.map (fun ((name, eopt), iicomma) ->
+ vk_oneEnum_s bigf (name, eopt), iif iicomma)
+
+and vk_oneEnum_s = fun bigf oneEnum ->
+ let (name,eopt) = oneEnum in
+ (vk_name_s bigf name,
+ eopt +> Common.fmap (fun (info, e) ->
+ vk_info_s bigf info,
+ vk_expr_s bigf e
+ ))
+
+and vk_def_s = fun bigf d ->