format-fan-dump.pl

use strict;

my $input = do {local $/; <STDIN>};

my $ind = '  ';
my $indent = 0;
my $output = '';
while ($input =~ s/\A \s* ( (?: \[\] | . )*? ) ( \( | \[ | \) | \],? | ,\ ) //x) {
    my ($str, $end) = ($1, $2);
    if ($end =~ /^[\(\[]/) {
        $output .= $ind x $indent++ . "$str$end\n";
    } elsif ($end =~ /^[\)\]]/) {
        $output .= $ind x $indent . "$str\n";
        $output .= $ind x --$indent . "$end\n";
    } else {
        $output .= $ind x $indent . "$str\n";
    }
}

$output =~ s/\s*\n/\n/g;
$output =~ s/\[\s+\]/[]/g;

# Collapse trailing brackets
if ($ARGV[0] eq '-c') {
    $output =~ s/\s+([\)\]])/$1/g;
    $output =~ s/(\[\])/[] /g;
}

print $output;

input

Document.new(meta => [MetaPair.new(key => spec, value => schematype.org/v0.0.1) MetaPair.new(key => date, value => 2017-07-13T21:22:14Z) MetaPair.new(key => desc, value => A test schema)], type => [TypePair.new(key => color, value => $Schema.new(meta => [], pair => [HashPair.new(key => len, value => $Type.new(meta => [MetaPair.new(key => type, value => $TypeRef.new(ref => int, mods => []))], type => []), mods => [])], type => [TypePair.new(key => stem, value => $Schema.new(meta => [], pair => [HashPair.new(key => len, value => $Type.new(meta => [MetaPair.new(key => type, value => $TypeRef.new(ref => int, mods => []))], type => []), mods => [])], type => [])) TypePair.new(key => color, value => $Type.new(meta => [MetaPair.new(key => type, value => $TypeRef.new(ref => str, mods => [])) MetaPair.new(key => enum, value => $[red green])], type => []))]))], from => [MetaPair.new(key => from, value => github:schematype)])

out1

Document.new(
  meta => [
    MetaPair.new(
      key => spec
      value => schematype.org/v0.0.1)
    MetaPair.new(
      key => date
      value => 2017-07-13T21:22:14Z)
    MetaPair.new(
      key => desc
      value => A test schema)],
  type => [
    TypePair.new(
      key => color
      value => $Schema.new(
        meta => [] ,
        pair => [
          HashPair.new(
            key => len
            value => $Type.new(
              meta => [
                MetaPair.new(
                  key => type
                  value => $TypeRef.new(
                    ref => int
                    mods => [] ))],
              type => [] )
            mods => [] )],
        type => [
          TypePair.new(
            key => stem
            value => $Schema.new(
              meta => [] ,
              pair => [
                HashPair.new(
                  key => len
                  value => $Type.new(
                    meta => [
                      MetaPair.new(
                        key => type
                        value => $TypeRef.new(
                          ref => int
                          mods => [] ))],
                    type => [] )
                  mods => [] )],
              type => [] ))
          TypePair.new(
            key => color
            value => $Type.new(
              meta => [
                MetaPair.new(
                  key => type
                  value => $TypeRef.new(
                    ref => str
                    mods => [] ))
                MetaPair.new(
                  key => enum
                  value => $[
                    red green])],
              type => [] ))]))],
  from => [
    MetaPair.new(
      key => from
      value => github:schematype)])

out2

Document.new(
  meta => [
    MetaPair.new(
      key => spec
      value => schematype.org/v0.0.1
    )
    MetaPair.new(
      key => date
      value => 2017-07-13T21:22:14Z
    )
    MetaPair.new(
      key => desc
      value => A test schema
    )
  ],
  type => [
    TypePair.new(
      key => color
      value => $Schema.new(
        meta => [],
        pair => [
          HashPair.new(
            key => len
            value => $Type.new(
              meta => [
                MetaPair.new(
                  key => type
                  value => $TypeRef.new(
                    ref => int
                    mods => []
                  )
                )
              ],
              type => []
            )
            mods => []
          )
        ],
        type => [
          TypePair.new(
            key => stem
            value => $Schema.new(
              meta => [],
              pair => [
                HashPair.new(
                  key => len
                  value => $Type.new(
                    meta => [
                      MetaPair.new(
                        key => type
                        value => $TypeRef.new(
                          ref => int
                          mods => []
                        )
                      )
                    ],
                    type => []
                  )
                  mods => []
                )
              ],
              type => []
            )
          )
          TypePair.new(
            key => color
            value => $Type.new(
              meta => [
                MetaPair.new(
                  key => type
                  value => $TypeRef.new(
                    ref => str
                    mods => []
                  )
                )
                MetaPair.new(
                  key => enum
                  value => $[
                    red green
                  ]
                )
              ],
              type => []
            )
          )
        ]
      )
    )
  ],
  from => [
    MetaPair.new(
      key => from
      value => github:schematype
    )
  ]
)