ocaml-yaml/fix-yaml.h.patch

   1 --- a/vendor/yaml.h     2020-06-01 22:34:52.000000000 +0100
   2 +++ b/vendor/yaml.h     2023-06-27 17:28:03.073472871 +0100
   3 @@ -272,28 +272,28 @@
   4      yaml_token_type_t type;
   5
   6      /** The token data. */
   7 -    union {
   8 +    union data_u {
   9
  10          /** The stream start (for @c YAML_STREAM_START_TOKEN). */
  11 -        struct {
  12 +        struct stream_start_s {
  13              /** The stream encoding. */
  14              yaml_encoding_t encoding;
  15          } stream_start;
  16
  17          /** The alias (for @c YAML_ALIAS_TOKEN). */
  18 -        struct {
  19 +        struct alias_s {
  20              /** The alias value. */
  21              yaml_char_t *value;
  22          } alias;
  23
  24          /** The anchor (for @c YAML_ANCHOR_TOKEN). */
  25 -        struct {
  26 +        struct anchor_s {
  27              /** The anchor value. */
  28              yaml_char_t *value;
  29          } anchor;
  30
  31          /** The tag (for @c YAML_TAG_TOKEN). */
  32 -        struct {
  33 +        struct tag_s {
  34              /** The tag handle. */
  35              yaml_char_t *handle;
  36              /** The tag suffix. */
  37 @@ -301,7 +301,7 @@
  38          } tag;
  39
  40          /** The scalar value (for @c YAML_SCALAR_TOKEN). */
  41 -        struct {
  42 +        struct scalar_s {
  43              /** The scalar value. */
  44              yaml_char_t *value;
  45              /** The length of the scalar value. */
  46 @@ -311,7 +311,7 @@
  47          } scalar;
  48
  49          /** The version directive (for @c YAML_VERSION_DIRECTIVE_TOKEN). */
  50 -        struct {
  51 +        struct version_directive_s {
  52              /** The major version number. */
  53              int major;
  54              /** The minor version number. */
  55 @@ -389,21 +389,21 @@
  56      yaml_event_type_t type;
  57
  58      /** The event data. */
  59 -    union {
  60 +    union event_data_u {
  61
  62          /** The stream parameters (for @c YAML_STREAM_START_EVENT). */
  63 -        struct {
  64 +        struct event_stream_start_s {
  65              /** The document encoding. */
  66              yaml_encoding_t encoding;
  67          } stream_start;
  68
  69          /** The document parameters (for @c YAML_DOCUMENT_START_EVENT). */
  70 -        struct {
  71 +        struct event_document_start_s {
  72              /** The version directive. */
  73              yaml_version_directive_t *version_directive;
  74
  75              /** The list of tag directives. */
  76 -            struct {
  77 +            struct event_tag_directives_s {
  78                  /** The beginning of the tag directives list. */
  79                  yaml_tag_directive_t *start;
  80                  /** The end of the tag directives list. */
  81 @@ -415,19 +415,19 @@
  82          } document_start;
  83
  84          /** The document end parameters (for @c YAML_DOCUMENT_END_EVENT). */
  85 -        struct {
  86 +        struct event_document_end_s {
  87              /** Is the document end indicator implicit? */
  88              int implicit;
  89          } document_end;
  90
  91          /** The alias parameters (for @c YAML_ALIAS_EVENT). */
  92 -        struct {
  93 +        struct event_alias_s {
  94              /** The anchor. */
  95              yaml_char_t *anchor;
  96          } alias;
  97
  98          /** The scalar parameters (for @c YAML_SCALAR_EVENT). */
  99 -        struct {
 100 +        struct event_scalar_s {
 101              /** The anchor. */
 102              yaml_char_t *anchor;
 103              /** The tag. */
 104 @@ -445,7 +445,7 @@
 105          } scalar;
 106
 107          /** The sequence parameters (for @c YAML_SEQUENCE_START_EVENT). */
 108 -        struct {
 109 +        struct event_sequence_start_s {
 110              /** The anchor. */
 111              yaml_char_t *anchor;
 112              /** The tag. */
 113 @@ -457,7 +457,7 @@
 114          } sequence_start;
 115
 116          /** The mapping parameters (for @c YAML_MAPPING_START_EVENT). */
 117 -        struct {
 118 +        struct event_mapping_start_s {
 119              /** The anchor. */
 120              yaml_char_t *anchor;
 121              /** The tag. */