commit 21925c6b2523cb36de8228622d7de8240ef9bbaa · anil.recoil.org/slop

+50 -18

yaml/ocaml-yamle/bin/yamlcat.ml

···

       7
        
         Printf.eprintf "If no files are given, reads from stdin.\n";

     

       8
        
         Printf.eprintf "\n";

     

       9
        
         Printf.eprintf "Options:\n";

     

       0
        
       
     

       10
        
         Printf.eprintf "  --json     Output as JSON format\n";

     

       11
        
         Printf.eprintf "  --flow     Output YAML in flow style\n";

     

       12
        
         Printf.eprintf "  --debug    Output internal representation (for debugging)\n";

     
···

       46
        
         json_to_string buf v;

     

       47
        
         Buffer.contents buf

     

       48
        
       

     

       49
       -
       let process_string ~format content =

     

       50
        
         try

     

       51
       -
           match format with

     

       52
       -
           | Yaml ->

     

       53
       -
               let value = Yamle.of_string content in

     

       54
       -
               print_string (Yamle.to_string value)

     

       55
       -
           | Flow ->

     

       56
       -
               let value = Yamle.of_string content in

     

       57
       -
               print_string (Yamle.to_string ~layout_style:Yamle.Layout_style.Flow value)

     

       58
       -
           | Json ->

     

       59
       -
               let value = Yamle.of_string content in

     

       60
       -
               print_endline (value_to_json value)

     

       61
       -
           | Debug ->

     

       62
       -
               let yaml = Yamle.yaml_of_string content in

     

       63
       -
               Format.printf "%a@." Yamle.pp_yaml yaml

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       64
        
         with

     

       65
        
         | Yamle.Yamle_error e ->

     

       66
        
             Printf.eprintf "Error: %s\n" (Yamle.Error.to_string e);

     

       67
        
             exit 1

     

       68
        
       

     

       69
       -
       let process_file ~format filename =

     

       70
        
         let content =

     

       71
        
           if filename = "-" then

     

       72
        
             In_channel.input_all In_channel.stdin

     

       73
        
           else

     

       74
        
             In_channel.with_open_text filename In_channel.input_all

     

       75
        
         in

     

       76
       -
         process_string ~format content

     

       77
        
       

     

       78
        
       let () =

     

       79
        
         let files = ref [] in

     

       80
        
         let format = ref Yaml in

     

       81
        
         let show_help = ref false in

     

       0
        
       
     

       82
        
       

     

       83
        
         (* Parse arguments *)

     

       84
        
         let args = Array.to_list Sys.argv |> List.tl in

     

       85
        
         List.iter (fun arg ->

     

       86
        
           match arg with

     

       87
        
           | "--help" | "-h" -> show_help := true

     

       0
        
       
     

       88
        
           | "--json" -> format := Json

     

       89
        
           | "--flow" -> format := Flow

     

       90
        
           | "--debug" -> format := Debug

     
···

       100
        
       

     

       101
        
         if files = [] then

     

       102
        
           (* Read from stdin *)

     

       103
       -
           process_file ~format:!format "-"

     

       104
        
         else

     

       105
       -
           List.iter (process_file ~format:!format) files

···

       7
        
         Printf.eprintf "If no files are given, reads from stdin.\n";

     

       8
        
         Printf.eprintf "\n";

     

       9
        
         Printf.eprintf "Options:\n";

     

       10
       +
         Printf.eprintf "  --all      Output all documents (for multi-document YAML)\n";

     

       11
        
         Printf.eprintf "  --json     Output as JSON format\n";

     

       12
        
         Printf.eprintf "  --flow     Output YAML in flow style\n";

     

       13
        
         Printf.eprintf "  --debug    Output internal representation (for debugging)\n";

     
···

       47
        
         json_to_string buf v;

     

       48
        
         Buffer.contents buf

     

       49
        
       

     

       50
       +
       let process_string ~format ~all content =

     

       51
        
         try

     

       52
       +
           if all then

     

       53
       +
             (* Multi-document mode *)

     

       54
       +
             match format with

     

       55
       +
             | Yaml ->

     

       56
       +
                 let documents = Yamle.documents_of_string content in

     

       57
       +
                 print_string (Yamle.documents_to_string documents)

     

       58
       +
             | Flow ->

     

       59
       +
                 let documents = Yamle.documents_of_string content in

     

       60
       +
                 print_string (Yamle.documents_to_string ~layout_style:Yamle.Layout_style.Flow documents)

     

       61
       +
             | Json ->

     

       62
       +
                 let documents = Yamle.documents_of_string content in

     

       63
       +
                 let first = ref true in

     

       64
       +
                 List.iter (fun doc ->

     

       65
       +
                   match Yamle.Document.root doc with

     

       66
       +
                   | None -> ()

     

       67
       +
                   | Some yaml ->

     

       68
       +
                       if not !first then print_endline "---";

     

       69
       +
                       first := false;

     

       70
       +
                       let value = Yamle.to_json yaml in

     

       71
       +
                       print_endline (value_to_json value)

     

       72
       +
                 ) documents

     

       73
       +
             | Debug ->

     

       74
       +
                 let documents = Yamle.documents_of_string content in

     

       75
       +
                 List.iteri (fun i doc ->

     

       76
       +
                   Format.printf "Document %d:@." (i + 1);

     

       77
       +
                   Format.printf "%a@." Yamle.Document.pp doc

     

       78
       +
                 ) documents

     

       79
       +
           else

     

       80
       +
             (* Single-document mode (original behavior) *)

     

       81
       +
             match format with

     

       82
       +
             | Yaml ->

     

       83
       +
                 let value = Yamle.of_string content in

     

       84
       +
                 print_string (Yamle.to_string value)

     

       85
       +
             | Flow ->

     

       86
       +
                 let value = Yamle.of_string content in

     

       87
       +
                 print_string (Yamle.to_string ~layout_style:Yamle.Layout_style.Flow value)

     

       88
       +
             | Json ->

     

       89
       +
                 let value = Yamle.of_string content in

     

       90
       +
                 print_endline (value_to_json value)

     

       91
       +
             | Debug ->

     

       92
       +
                 let yaml = Yamle.yaml_of_string content in

     

       93
       +
                 Format.printf "%a@." Yamle.pp_yaml yaml

     

       94
        
         with

     

       95
        
         | Yamle.Yamle_error e ->

     

       96
        
             Printf.eprintf "Error: %s\n" (Yamle.Error.to_string e);

     

       97
        
             exit 1

     

       98
        
       

     

       99
       +
       let process_file ~format ~all filename =

     

       100
        
         let content =

     

       101
        
           if filename = "-" then

     

       102
        
             In_channel.input_all In_channel.stdin

     

       103
        
           else

     

       104
        
             In_channel.with_open_text filename In_channel.input_all

     

       105
        
         in

     

       106
       +
         process_string ~format ~all content

     

       107
        
       

     

       108
        
       let () =

     

       109
        
         let files = ref [] in

     

       110
        
         let format = ref Yaml in

     

       111
        
         let show_help = ref false in

     

       112
       +
         let all = ref false in

     

       113
        
       

     

       114
        
         (* Parse arguments *)

     

       115
        
         let args = Array.to_list Sys.argv |> List.tl in

     

       116
        
         List.iter (fun arg ->

     

       117
        
           match arg with

     

       118
        
           | "--help" | "-h" -> show_help := true

     

       119
       +
           | "--all" -> all := true

     

       120
        
           | "--json" -> format := Json

     

       121
        
           | "--flow" -> format := Flow

     

       122
        
           | "--debug" -> format := Debug

     
···

       132
        
       

     

       133
        
         if files = [] then

     

       134
        
           (* Read from stdin *)

     

       135
       +
           process_file ~format:!format ~all:!all "-"

     

       136
        
         else

     

       137
       +
           List.iter (process_file ~format:!format ~all:!all) files

+41 -8

yaml/ocaml-yamle/lib/emitter.ml

···

       388
        
                   write_anchor t anchor;

     

       389
        
                   write_tag t ~implicit tag;

     

       390
        
                   if use_flow then begin

     

       0
        
       
     

       391
        
                     write_char t '[';

     

       392
        
                     t.flow_level <- t.flow_level + 1;

     

       393
        
                     t.need_separator <- false;

     
···

       420
        
               write_char t ']';

     

       421
        
               t.flow_level <- t.flow_level - 1;

     

       422
        
               t.need_separator <- true;

     

       423
       -
               pop_state t

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       424
        
             end else begin

     

       425
        
               t.indent <- t.indent - t.config.indent;

     

       426
        
               pop_state t

     
···

       495
        
                   write_anchor t anchor;

     

       496
        
                   write_tag t ~implicit tag;

     

       497
        
                   if use_flow then begin

     

       0
        
       
     

       498
        
                     write_char t '{';

     

       499
        
                     t.flow_level <- t.flow_level + 1;

     

       500
        
                     t.need_separator <- false;

     
···

       527
        
               write_char t '}';

     

       528
        
               t.flow_level <- t.flow_level - 1;

     

       529
        
               t.need_separator <- true;

     

       530
       -
               pop_state t

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       531
        
             end else begin

     

       532
        
               t.indent <- t.indent - t.config.indent;

     

       533
        
               pop_state t

     
···

       551
        
             emit t (Event.Alias { anchor = name })

     

       552
        
       

     

       553
        
         | `A seq ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       554
        
             emit t (Event.Sequence_start {

     

       555
        
               anchor = Sequence.anchor seq;

     

       556
        
               tag = Sequence.tag seq;

     

       557
        
               implicit = Sequence.implicit seq;

     

       558
       -
               style = Sequence.style seq;

     

       559
        
             });

     

       560
       -
             List.iter (emit_yaml_node t) (Sequence.members seq);

     

       561
        
             emit t Event.Sequence_end

     

       562
        
       

     

       563
        
         | `O map ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       564
        
             emit t (Event.Mapping_start {

     

       565
        
               anchor = Mapping.anchor map;

     

       566
        
               tag = Mapping.tag map;

     

       567
        
               implicit = Mapping.implicit map;

     

       568
       -
               style = Mapping.style map;

     

       569
        
             });

     

       570
        
             List.iter (fun (k, v) ->

     

       571
        
               emit_yaml_node t k;

     

       572
        
               emit_yaml_node t v

     

       573
       -
             ) (Mapping.members map);

     

       574
        
             emit t Event.Mapping_end

     

       575
        
       

     

       576
        
       let emit_yaml t yaml =

     
···

       632
        
       

     

       633
        
         | `A items ->

     

       634
        
             let style =

     

       635
       -
               if t.config.layout_style = Layout_style.Flow then Layout_style.Flow

     

       0
        
       
     

       0
        
       
     

       636
        
               else Layout_style.Block

     

       637
        
             in

     

       638
        
             emit t (Event.Sequence_start {

     
···

       645
        
       

     

       646
        
         | `O pairs ->

     

       647
        
             let style =

     

       648
       -
               if t.config.layout_style = Layout_style.Flow then Layout_style.Flow

     

       0
        
       
     

       0
        
       
     

       649
        
               else Layout_style.Block

     

       650
        
             in

     

       651
        
             emit t (Event.Mapping_start {

     
···

       699
        
         let t = create ~config () in

     

       700
        
         emit_yaml t yaml;

     

       701
        
         contents t

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0

···

       388
        
                   write_anchor t anchor;

     

       389
        
                   write_tag t ~implicit tag;

     

       390
        
                   if use_flow then begin

     

       391
       +
                     write_char t ' ';

     

       392
        
                     write_char t '[';

     

       393
        
                     t.flow_level <- t.flow_level + 1;

     

       394
        
                     t.need_separator <- false;

     
···

       421
        
               write_char t ']';

     

       422
        
               t.flow_level <- t.flow_level - 1;

     

       423
        
               t.need_separator <- true;

     

       424
       +
               pop_state t;

     

       425
       +
               (* Write newline if returning to block context *)

     

       426
       +
               (match t.state with

     

       427
       +
                | In_block_mapping_key _ | In_block_sequence _ -> write_newline t

     

       428
       +
                | _ -> ())

     

       429
        
             end else begin

     

       430
        
               t.indent <- t.indent - t.config.indent;

     

       431
        
               pop_state t

     
···

       500
        
                   write_anchor t anchor;

     

       501
        
                   write_tag t ~implicit tag;

     

       502
        
                   if use_flow then begin

     

       503
       +
                     write_char t ' ';

     

       504
        
                     write_char t '{';

     

       505
        
                     t.flow_level <- t.flow_level + 1;

     

       506
        
                     t.need_separator <- false;

     
···

       533
        
               write_char t '}';

     

       534
        
               t.flow_level <- t.flow_level - 1;

     

       535
        
               t.need_separator <- true;

     

       536
       +
               pop_state t;

     

       537
       +
               (* Write newline if returning to block context *)

     

       538
       +
               (match t.state with

     

       539
       +
                | In_block_mapping_key _ | In_block_sequence _ -> write_newline t

     

       540
       +
                | _ -> ())

     

       541
        
             end else begin

     

       542
        
               t.indent <- t.indent - t.config.indent;

     

       543
        
               pop_state t

     
···

       561
        
             emit t (Event.Alias { anchor = name })

     

       562
        
       

     

       563
        
         | `A seq ->

     

       564
       +
             let members = Sequence.members seq in

     

       565
       +
             let style =

     

       566
       +
               (* Force flow style for empty sequences *)

     

       567
       +
               if members = [] then Layout_style.Flow

     

       568
       +
               else Sequence.style seq

     

       569
       +
             in

     

       570
        
             emit t (Event.Sequence_start {

     

       571
        
               anchor = Sequence.anchor seq;

     

       572
        
               tag = Sequence.tag seq;

     

       573
        
               implicit = Sequence.implicit seq;

     

       574
       +
               style;

     

       575
        
             });

     

       576
       +
             List.iter (emit_yaml_node t) members;

     

       577
        
             emit t Event.Sequence_end

     

       578
        
       

     

       579
        
         | `O map ->

     

       580
       +
             let members = Mapping.members map in

     

       581
       +
             let style =

     

       582
       +
               (* Force flow style for empty mappings *)

     

       583
       +
               if members = [] then Layout_style.Flow

     

       584
       +
               else Mapping.style map

     

       585
       +
             in

     

       586
        
             emit t (Event.Mapping_start {

     

       587
        
               anchor = Mapping.anchor map;

     

       588
        
               tag = Mapping.tag map;

     

       589
        
               implicit = Mapping.implicit map;

     

       590
       +
               style;

     

       591
        
             });

     

       592
        
             List.iter (fun (k, v) ->

     

       593
        
               emit_yaml_node t k;

     

       594
        
               emit_yaml_node t v

     

       595
       +
             ) members;

     

       596
        
             emit t Event.Mapping_end

     

       597
        
       

     

       598
        
       let emit_yaml t yaml =

     
···

       654
        
       

     

       655
        
         | `A items ->

     

       656
        
             let style =

     

       657
       +
               (* Force flow style for empty sequences *)

     

       658
       +
               if items = [] then Layout_style.Flow

     

       659
       +
               else if t.config.layout_style = Layout_style.Flow then Layout_style.Flow

     

       660
        
               else Layout_style.Block

     

       661
        
             in

     

       662
        
             emit t (Event.Sequence_start {

     
···

       669
        
       

     

       670
        
         | `O pairs ->

     

       671
        
             let style =

     

       672
       +
               (* Force flow style for empty mappings *)

     

       673
       +
               if pairs = [] then Layout_style.Flow

     

       674
       +
               else if t.config.layout_style = Layout_style.Flow then Layout_style.Flow

     

       675
        
               else Layout_style.Block

     

       676
        
             in

     

       677
        
             emit t (Event.Mapping_start {

     
···

       725
        
         let t = create ~config () in

     

       726
        
         emit_yaml t yaml;

     

       727
        
         contents t

     

       728
       +
       

     

       729
       +
       let documents_to_string ?(config = default_config) documents =

     

       730
       +
         let t = create ~config () in

     

       731
       +
         emit t (Event.Stream_start { encoding = config.encoding });

     

       732
       +
         List.iter (emit_document t) documents;

     

       733
       +
         emit t Event.Stream_end;

     

       734
       +
         contents t

+6 -2

yaml/ocaml-yamle/lib/loader.ml

···

       137
        
         | [doc] ->

     

       138
        
             (match Document.root doc with

     

       139
        
              | None -> `Null

     

       140
       -
              | Some yaml -> Yaml.to_value yaml)

     

       0
        
       
     

       0
        
       
     

       141
        
         | _ -> Error.raise Multiple_documents

     

       142
        
       

     

       143
        
       (** Load single document as Yaml *)

     
···

       175
        
                        state.documents <- [];

     

       176
        
                        Some (match Document.root doc with

     

       177
        
                          | None -> `Null

     

       178
       -
                          | Some yaml -> Yaml.to_value yaml)

     

       0
        
       
     

       0
        
       
     

       179
        
                    | [] -> None)

     

       180
        
               | Event.Stream_end -> None

     

       181
        
               | _ -> loop ()

···

       137
        
         | [doc] ->

     

       138
        
             (match Document.root doc with

     

       139
        
              | None -> `Null

     

       140
       +
              | Some yaml ->

     

       141
       +
                  let yaml = Yaml.resolve_aliases yaml in

     

       142
       +
                  Yaml.to_value yaml)

     

       143
        
         | _ -> Error.raise Multiple_documents

     

       144
        
       

     

       145
        
       (** Load single document as Yaml *)

     
···

       177
        
                        state.documents <- [];

     

       178
        
                        Some (match Document.root doc with

     

       179
        
                          | None -> `Null

     

       180
       +
                          | Some yaml ->

     

       181
       +
                              let yaml = Yaml.resolve_aliases yaml in

     

       182
       +
                              Yaml.to_value yaml)

     

       183
        
                    | [] -> None)

     

       184
        
               | Event.Stream_end -> None

     

       185
        
               | _ -> loop ()

+3 -3

yaml/ocaml-yamle/lib/scanner.ml

···

       233
        
               (* Non-specific tag: ! *)

     

       234
        
               ("!", "")

     

       235
        
           | Some '!' ->

     

       236
       -
               (* Secondary handle *)

     

       237
       -
               let handle = scan_tag_handle t in

     

       238
        
               let suffix = scan_tag_suffix t in

     

       239
       -
               (handle, suffix)

     

       240
        
           | _ ->

     

       241
        
               (* Primary handle or just suffix *)

     

       242
        
               let first_part = scan_tag_suffix t in

···

       233
        
               (* Non-specific tag: ! *)

     

       234
        
               ("!", "")

     

       235
        
           | Some '!' ->

     

       236
       +
               (* Secondary handle: !! *)

     

       237
       +
               ignore (Input.next t.input); (* consume second ! *)

     

       238
        
               let suffix = scan_tag_suffix t in

     

       239
       +
               ("!!", suffix)

     

       240
        
           | _ ->

     

       241
        
               (* Primary handle or just suffix *)

     

       242
        
               let first_part = scan_tag_suffix t in

+18 -1

yaml/ocaml-yamle/lib/yamle.ml

···

       16
        
       

     

       17
        
       let of_string s = Loader.value_of_string s

     

       18
        
       

     

       0
        
       
     

       0
        
       
     

       19
        
       (** {1 JSON-compatible emission} *)

     

       20
        
       

     

       21
        
       let to_string

     
···

       50
        
         } in

     

       51
        
         Emitter.yaml_to_string ~config yaml

     

       52
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       53
        
       (** {1 Conversion} *)

     

       54
        
       

     

       55
       -
       let to_json yaml = Yaml.to_value yaml

     

       0
        
       
     

       0
        
       
     

       56
        
       

     

       57
        
       let of_json value = Yaml.of_value value

     

       58

···

       16
        
       

     

       17
        
       let of_string s = Loader.value_of_string s

     

       18
        
       

     

       19
       +
       let documents_of_string s = Loader.documents_of_string s

     

       20
       +
       

     

       21
        
       (** {1 JSON-compatible emission} *)

     

       22
        
       

     

       23
        
       let to_string

     
···

       52
        
         } in

     

       53
        
         Emitter.yaml_to_string ~config yaml

     

       54
        
       

     

       55
       +
       let documents_to_string

     

       56
       +
           ?(encoding = Encoding.Utf8)

     

       57
       +
           ?(scalar_style = Scalar_style.Any)

     

       58
       +
           ?(layout_style = Layout_style.Any)

     

       59
       +
           documents =

     

       60
       +
         let config = {

     

       61
       +
           Emitter.default_config with

     

       62
       +
           encoding;

     

       63
       +
           scalar_style;

     

       64
       +
           layout_style;

     

       65
       +
         } in

     

       66
       +
         Emitter.documents_to_string ~config documents

     

       67
       +
       

     

       68
        
       (** {1 Conversion} *)

     

       69
        
       

     

       70
       +
       let to_json yaml =

     

       71
       +
         let yaml = Yaml.resolve_aliases yaml in

     

       72
       +
         Yaml.to_value yaml

     

       73
        
       

     

       74
        
       let of_json value = Yaml.of_value value

     

       75

+22 -18

yaml/ocaml-yamle/tests/cram/collections.t

···

       100
        
               config:

     

       101
        
                 concurrency: 10

     

       102
        
         empty_collections:

     

       103
       -
           empty_sequence:

     

       104
       -
           empty_mapping:

     

       105
        
           sequence_with_empty:

     

       106
        
             - value1

     

       107
       -
             - 

     

       108
        
             - value2

     

       109
        
           mapping_with_empty:

     

       110
        
             key1: value1

     

       111
       -
             key2:

     

       112
        
             key3: value3

     

       113
        
       

     

       114
        
       Test collections_block.yml with JSON output

     
···

       248
        
               - design

     

       249
        
         compact_with_empty:

     

       250
        
           - id: 1

     

       251
       -
             data:

     

       252
       -
             meta:

     

       253
        
           - id: 2

     

       254
        
             data:

     

       255
        
               - item1

     
···

       282
        
           - path: '/users/:id'

     

       283
        
             method: GET

     

       284
        
             auth: required

     

       285
       -
             params:

     

       286
        
           - path: /users

     

       287
        
             method: POST

     

       288
        
             auth: required

     
···

       377
        
                   - b

     

       378
        
                   - c

     

       379
        
         empty_flow:

     

       380
       -
           empty_seq:

     

       381
       -
           empty_map:

     

       382
        
           both:

     

       383
       -
             - 

     

       384
       -
             - flow_in_block:

     

       0
        
       
     

       385
        
           sequence:

     

       386
        
             - 1

     

       387
        
             - 2

     
···

       494
        
           single_item_map:

     

       495
        
             only: one

     

       496
        
           nested_empty:

     

       0
        
       
     

       497
        
             - 

     

       0
        
       
     

       498
        
             - 

     

       499
       -
               -     - 

     

       500
       -
               -       - 

     

       501
        
           all_empty:

     

       502
       -
             -     - 

     

       503
       -
             - a:

     

       504
       -
             - b:

     

       0
        
       
     

       505
        
       

     

       506
        
       Test collections_flow.yml with JSON output

     

       507
        
       

     
···

       771
        
       

     

       772
        
         $ echo 'empty_seq: []

     

       773
        
         > empty_map: {}' | yamlcat

     

       774
       -
         empty_seq:

     

       775
       -
         empty_map:

     

       776
        
       

     

       777
        
         $ echo 'empty_seq: []

     

       778
        
         > empty_map: {}' | yamlcat --json

···

       100
        
               config:

     

       101
        
                 concurrency: 10

     

       102
        
         empty_collections:

     

       103
       +
           empty_sequence: []

     

       104
       +
           empty_mapping: {}

     

       105
        
           sequence_with_empty:

     

       106
        
             - value1

     

       107
       +
             - []

     

       108
        
             - value2

     

       109
        
           mapping_with_empty:

     

       110
        
             key1: value1

     

       111
       +
             key2: {}

     

       112
        
             key3: value3

     

       113
        
       

     

       114
        
       Test collections_block.yml with JSON output

     
···

       248
        
               - design

     

       249
        
         compact_with_empty:

     

       250
        
           - id: 1

     

       251
       +
             data: []

     

       252
       +
             meta: {}

     

       253
        
           - id: 2

     

       254
        
             data:

     

       255
        
               - item1

     
···

       282
        
           - path: '/users/:id'

     

       283
        
             method: GET

     

       284
        
             auth: required

     

       285
       +
             params: []

     

       286
        
           - path: /users

     

       287
        
             method: POST

     

       288
        
             auth: required

     
···

       377
        
                   - b

     

       378
        
                   - c

     

       379
        
         empty_flow:

     

       380
       +
           empty_seq: []

     

       381
       +
           empty_map: {}

     

       382
        
           both:

     

       383
       +
             - []

     

       384
       +
             - {}

     

       385
       +
         flow_in_block:

     

       386
        
           sequence:

     

       387
        
             - 1

     

       388
        
             - 2

     
···

       495
        
           single_item_map:

     

       496
        
             only: one

     

       497
        
           nested_empty:

     

       498
       +
             - []

     

       499
        
             - 

     

       500
       +
               - {}

     

       501
        
             - 

     

       502
       +
               - {}

     

       503
       +
               - []

     

       504
        
           all_empty:

     

       505
       +
             - {}

     

       506
       +
             - []

     

       507
       +
             - a: []

     

       508
       +
             - b: {}

     

       509
        
       

     

       510
        
       Test collections_flow.yml with JSON output

     

       511
        
       

     
···

       775
        
       

     

       776
        
         $ echo 'empty_seq: []

     

       777
        
         > empty_map: {}' | yamlcat

     

       778
       +
         empty_seq: []

     

       779
       +
         empty_map: {}

     

       780
        
       

     

       781
        
         $ echo 'empty_seq: []

     

       782
        
         > empty_map: {}' | yamlcat --json

+26 -14

yaml/ocaml-yamle/tests/cram/failing_anchors.t

···

       7
        
       

     

       8
        
         $ echo 'anchor: &anc value

     

       9
        
         > alias: *anc' | yamlcat 2>&1

     

       10
       -
         Error: unresolved alias: *anc

     

       11
       -
         [1]

     

       12
        
       

     

       13
        
       Test: Numeric anchor and alias

     

       14
        
       

     

       15
        
         $ echo 'original: &num 42

     

       16
        
         > copy: *num' | yamlcat 2>&1

     

       17
       -
         Error: unresolved alias: *num

     

       18
       -
         [1]

     

       19
        
       

     

       20
        
       Test: Sequence anchor and alias

     

       21
        
       

     
···

       23
        
         >   - one

     

       24
        
         >   - two

     

       25
        
         > copy: *items' | yamlcat 2>&1

     

       26
       -
         Error: unresolved alias: *items

     

       27
       -
         [1]

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       28
        
       

     

       29
        
       Test: Mapping anchor and alias

     

       30
        
       

     
···

       32
        
         >   name: Alice

     

       33
        
         >   age: 30

     

       34
        
         > copy: *p' | yamlcat 2>&1

     

       35
       -
         Error: unresolved alias: *p

     

       36
       -
         [1]

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       37
        
       

     

       38
        
       Test: Multiple aliases to same anchor

     

       39
        
       

     
···

       41
        
         > first: *v

     

       42
        
         > second: *v

     

       43
        
         > third: *v' | yamlcat 2>&1

     

       44
       -
         Error: unresolved alias: *v

     

       45
       -
         [1]

     

       0
        
       
     

       0
        
       
     

       46
        
       

     

       47
        
       Test: Anchor in flow context

     

       48
        
       

     

       49
        
         $ echo '[&item apple, *item]' | yamlcat 2>&1

     

       50
       -
         Error: unresolved alias: *item

     

       51
       -
         [1]

     

       52
        
       

     

       53
        
       Test: Anchor with mapping in flow

     

       54
        
       

     

       55
        
         $ echo '{original: &cfg {a: 1}, copy: *cfg}' | yamlcat 2>&1

     

       56
       -
         Error: unresolved alias: *cfg

     

       57
       -
         [1]

     

       0
        
       
     

       0
        
       
     

       58
        
       

     

       59
        
       Test: Anchors file from test suite

     

       60

···

       7
        
       

     

       8
        
         $ echo 'anchor: &anc value

     

       9
        
         > alias: *anc' | yamlcat 2>&1

     

       10
       +
         anchor: value

     

       11
       +
         alias: value

     

       12
        
       

     

       13
        
       Test: Numeric anchor and alias

     

       14
        
       

     

       15
        
         $ echo 'original: &num 42

     

       16
        
         > copy: *num' | yamlcat 2>&1

     

       17
       +
         original: 42

     

       18
       +
         copy: 42

     

       19
        
       

     

       20
        
       Test: Sequence anchor and alias

     

       21
        
       

     
···

       23
        
         >   - one

     

       24
        
         >   - two

     

       25
        
         > copy: *items' | yamlcat 2>&1

     

       26
       +
         list:

     

       27
       +
           - one

     

       28
       +
           - two

     

       29
       +
         copy:

     

       30
       +
           - one

     

       31
       +
           - two

     

       32
        
       

     

       33
        
       Test: Mapping anchor and alias

     

       34
        
       

     
···

       36
        
         >   name: Alice

     

       37
        
         >   age: 30

     

       38
        
         > copy: *p' | yamlcat 2>&1

     

       39
       +
         person:

     

       40
       +
           name: Alice

     

       41
       +
           age: 30

     

       42
       +
         copy:

     

       43
       +
           name: Alice

     

       44
       +
           age: 30

     

       45
        
       

     

       46
        
       Test: Multiple aliases to same anchor

     

       47
        
       

     
···

       49
        
         > first: *v

     

       50
        
         > second: *v

     

       51
        
         > third: *v' | yamlcat 2>&1

     

       52
       +
         value: 100

     

       53
       +
         first: 100

     

       54
       +
         second: 100

     

       55
       +
         third: 100

     

       56
        
       

     

       57
        
       Test: Anchor in flow context

     

       58
        
       

     

       59
        
         $ echo '[&item apple, *item]' | yamlcat 2>&1

     

       60
       +
         - apple

     

       61
       +
         - apple

     

       62
        
       

     

       63
        
       Test: Anchor with mapping in flow

     

       64
        
       

     

       65
        
         $ echo '{original: &cfg {a: 1}, copy: *cfg}' | yamlcat 2>&1

     

       66
       +
         original:

     

       67
       +
           a: 1

     

       68
       +
         copy:

     

       69
       +
           a: 1

     

       70
        
       

     

       71
        
       Test: Anchors file from test suite

     

       72

+7 -7

yaml/ocaml-yamle/tests/cram/failing_empty.t

···

       10
        
       Test: Empty sequence emits as nothing instead of []

     

       11
        
       

     

       12
        
         $ echo 'empty_seq: []' | yamlcat

     

       13
       -
         empty_seq:

     

       14
        
       

     

       15
        
       The above outputs just "empty_seq:" with nothing after it.

     

       16
        
       Expected output should be: empty_seq: []

     
···

       18
        
       Test: Empty mapping emits as nothing instead of {}

     

       19
        
       

     

       20
        
         $ echo 'empty_map: {}' | yamlcat

     

       21
       -
         empty_map:

     

       22
        
       

     

       23
        
       Test: Multiple empty collections

     

       24
        
       

     

       25
        
         $ echo 'seq: []

     

       26
        
         > map: {}

     

       27
        
         > data: value' | yamlcat

     

       28
       -
         seq:

     

       29
       -
         map:

     

       30
        
         data: value

     

       31
        
       

     

       32
        
       Test: Nested empty collections

     
···

       35
        
         >   inner_seq: []

     

       36
        
         >   inner_map: {}' | yamlcat

     

       37
        
         outer:

     

       38
       -
           inner_seq:

     

       39
       -
           inner_map:

     

       40
        
       

     

       41
        
       Test: Empty collection in sequence

     

       42
        
       

     
···

       46
        
         >   - third' | yamlcat

     

       47
        
         items:

     

       48
        
           - first

     

       49
       -
           - 

     

       50
        
           - third

     

       51
        
       

     

       52
        
       Test: Verify JSON output is correct (for comparison)

···

       10
        
       Test: Empty sequence emits as nothing instead of []

     

       11
        
       

     

       12
        
         $ echo 'empty_seq: []' | yamlcat

     

       13
       +
         empty_seq: []

     

       14
        
       

     

       15
        
       The above outputs just "empty_seq:" with nothing after it.

     

       16
        
       Expected output should be: empty_seq: []

     
···

       18
        
       Test: Empty mapping emits as nothing instead of {}

     

       19
        
       

     

       20
        
         $ echo 'empty_map: {}' | yamlcat

     

       21
       +
         empty_map: {}

     

       22
        
       

     

       23
        
       Test: Multiple empty collections

     

       24
        
       

     

       25
        
         $ echo 'seq: []

     

       26
        
         > map: {}

     

       27
        
         > data: value' | yamlcat

     

       28
       +
         seq: []

     

       29
       +
         map: {}

     

       30
        
         data: value

     

       31
        
       

     

       32
        
       Test: Nested empty collections

     
···

       35
        
         >   inner_seq: []

     

       36
        
         >   inner_map: {}' | yamlcat

     

       37
        
         outer:

     

       38
       +
           inner_seq: []

     

       39
       +
           inner_map: {}

     

       40
        
       

     

       41
        
       Test: Empty collection in sequence

     

       42
        
       

     
···

       46
        
         >   - third' | yamlcat

     

       47
        
         items:

     

       48
        
           - first

     

       49
       +
           - []

     

       50
        
           - third

     

       51
        
       

     

       52
        
       Test: Verify JSON output is correct (for comparison)

+6 -12

yaml/ocaml-yamle/tests/cram/failing_tags.t

···

       6
        
       Test: String tag shorthand

     

       7
        
       

     

       8
        
         $ echo '!!str 123' | yamlcat

     

       9
       -
         Error: invalid tag: !str

     

       10
       -
         [1]

     

       11
        
       

     

       12
        
       Expected: 123 (as a string)

     

       13
        
       

     

       14
        
       Test: Integer tag shorthand

     

       15
        
       

     

       16
        
         $ echo '!!int "42"' | yamlcat

     

       17
       -
         Error: invalid tag: !int

     

       18
       -
         [1]

     

       19
        
       

     

       20
        
       Expected: 42

     

       21
        
       

     

       22
        
       Test: Boolean tag shorthand

     

       23
        
       

     

       24
        
         $ echo '!!bool "yes"' | yamlcat

     

       25
       -
         Error: invalid tag: !bool

     

       26
       -
         [1]

     

       27
        
       

     

       28
        
       Expected: true

     

       29
        
       

     

       30
        
       Test: Null tag shorthand

     

       31
        
       

     

       32
        
         $ echo '!!null ""' | yamlcat

     

       33
       -
         Error: invalid tag: !null

     

       34
       -
         [1]

     

       35
        
       

     

       36
        
       Expected: null

     

       37
        
       

     

       38
        
       Test: Float tag shorthand

     

       39
        
       

     

       40
        
         $ echo '!!float 3.14' | yamlcat

     

       41
       -
         Error: invalid tag: !float

     

       42
       -
         [1]

     

       43
        
       

     

       44
        
       Expected: 3.14

     

       45
        
       

     

       46
        
       Test: Tag shorthand in mapping value

     

       47
        
       

     

       48
        
         $ echo 'value: !!str 42' | yamlcat

     

       49
       -
         Error: invalid tag: !str

     

       50
       -
         [1]

     

       51
        
       

     

       52
        
       Expected: value: "42" (string representation)

     

       53

···

       6
        
       Test: String tag shorthand

     

       7
        
       

     

       8
        
         $ echo '!!str 123' | yamlcat

     

       9
       +
         '123'

     

       0
        
       
     

       10
        
       

     

       11
        
       Expected: 123 (as a string)

     

       12
        
       

     

       13
        
       Test: Integer tag shorthand

     

       14
        
       

     

       15
        
         $ echo '!!int "42"' | yamlcat

     

       16
       +
         42

     

       0
        
       
     

       17
        
       

     

       18
        
       Expected: 42

     

       19
        
       

     

       20
        
       Test: Boolean tag shorthand

     

       21
        
       

     

       22
        
         $ echo '!!bool "yes"' | yamlcat

     

       23
       +
         true

     

       0
        
       
     

       24
        
       

     

       25
        
       Expected: true

     

       26
        
       

     

       27
        
       Test: Null tag shorthand

     

       28
        
       

     

       29
        
         $ echo '!!null ""' | yamlcat

     

       30
       +
         null

     

       0
        
       
     

       31
        
       

     

       32
        
       Expected: null

     

       33
        
       

     

       34
        
       Test: Float tag shorthand

     

       35
        
       

     

       36
        
         $ echo '!!float 3.14' | yamlcat

     

       37
       +
         3.14

     

       0
        
       
     

       38
        
       

     

       39
        
       Expected: 3.14

     

       40
        
       

     

       41
        
       Test: Tag shorthand in mapping value

     

       42
        
       

     

       43
        
         $ echo 'value: !!str 42' | yamlcat

     

       44
       +
         value: '42'

     

       0
        
       
     

       45
        
       

     

       46
        
       Expected: value: "42" (string representation)

     

       47