Re: Parsing a config file with braces and nested braces

[choroba]

I tried to implement a Marpa::R2 solution:

#!/usr/bin/perl
use warnings;
use strict;

use Marpa::R2;
use Data::Dumper;


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

my $grammar = << '__GRAMMAR__';

lexeme default = latm => 1

:start   ::= List
:default ::= action => ::first

List      ::= Hash+                      action => list
Hash      ::= String '{' Pairs '}'       action => hash
Pairs     ::= Pair+                      action => list
Pair      ::= String Value ';'           action => pair
            | Hash
Value     ::= Simple
            | Bracketed
Bracketed ::= '[' String ']'             action => second
Simple    ::= String

String     ~ [-a-zA-Z_0-9]+
whitespace ~ [\s] +
:discard   ~ whitespace

__GRAMMAR__

sub hash { +{ $_[1] => $_[3] } }

sub pair { +{ $_[1] => $_[2] } }

sub second { [ @_[ 2 .. $#_-1 ] ] }

sub list { shift; \@_ }

my $parser = 'Marpa::R2::Scanless::G'->new({ source => \$grammar });

print Dumper $parser->parse(\$input, 'main', { trace_terminals => 1 })
+;

__DATA__
bob {
    ed {
        larry {
...

Does the output satisfy you?

[
            {
              'bob' => [
                         {
                           'ed' => [
                                     {
                                       'larry' => [
                                                    {
                                                      'rule5' => [
                                                                   {
                                                                     '
+option' => [
                                                                      
+             {
                                                                      
+               'disable-server-response-inspection' => 'no'
                                                                      
+             }
                                                                      
+           ]
                                                                   },
                                                                   {
                                                                     '
+tag' => [
                                                                      
+          'some_tag'
                                                                      
+        ]
                                                                   },
                                                                   {
                                                                     '
+from' => [
                                                                      
+           'prod-L3'
                                                                      
+         ]
                                                                   },
                                                                   {
                                                                     '
+to' => [
                                                                      
+         'corp-L3'
                                                                      
+       ]
                                                                   },
                                                                   {
                                                                     '
+source' => [
                                                                      
+             'any'
                                                                      
+           ]
                                                                   },
                                                                   {
                                                                     '
+destination' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+source-user' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+category' => [
                                                                      
+               'any'
                                                                      
+             ]
                                                                   },
                                                                   {
                                                                     '
+application' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+service' => [
                                                                      
+              'any'
                                                                      
+            ]
                                                                   },
                                                                   {
                                                                     '
+hip-profiles' => [
                                                                      
+                   'any'
                                                                      
+                 ]
                                                                   },
                                                                   {
                                                                     '
+log-start' => 'no'
                                                                   },
                                                                   {
                                                                     '
+log-end' => 'yes'
                                                                   },
                                                                   {
                                                                     '
+negate-source' => 'no'
                                                                   },
                                                                   {
                                                                     '
+negate-destination' => 'no'
                                                                   },
                                                                   {
                                                                     '
+action' => 'allow'
                                                                   },
                                                                   {
                                                                     '
+log-setting' => 'orion_log'
                                                                   }
                                                                 ]
                                                    },
                                                    {
                                                      'rule6' => [
                                                                   {
                                                                     '
+option' => [
                                                                      
+             {
                                                                      
+               'disable-server-response-inspection' => 'no'
                                                                      
+             }
                                                                      
+           ]
                                                                   },
                                                                   {
                                                                     '
+tag' => [
                                                                      
+          'some_tag'
                                                                      
+        ]
                                                                   },
                                                                   {
                                                                     '
+from' => [
                                                                      
+           'prod-L3'
                                                                      
+         ]
                                                                   },
                                                                   {
                                                                     '
+to' => [
                                                                      
+         'corp-L3'
                                                                      
+       ]
                                                                   },
                                                                   {
                                                                     '
+source' => [
                                                                      
+             'any'
                                                                      
+           ]
                                                                   },
                                                                   {
                                                                     '
+destination' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+source-user' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+category' => [
                                                                      
+               'any'
                                                                      
+             ]
                                                                   },
                                                                   {
                                                                     '
+application' => [
                                                                      
+                  'any'
                                                                      
+                ]
                                                                   },
                                                                   {
                                                                     '
+service' => [
                                                                      
+              'any'
                                                                      
+            ]
                                                                   },
                                                                   {
                                                                     '
+hip-profiles' => [
                                                                      
+                   'any'
                                                                      
+                 ]
                                                                   },
                                                                   {
                                                                     '
+log-start' => 'no'
                                                                   },
                                                                   {
                                                                     '
+log-end' => 'yes'
                                                                   },
                                                                   {
                                                                     '
+negate-source' => 'no'
                                                                   },
                                                                   {
                                                                     '
+negate-destination' => 'no'
                                                                   },
                                                                   {
                                                                     '
+action' => 'allow'
                                                                   },
                                                                   {
                                                                     '
+log-setting' => 'orion_log'
                                                                   }
                                                                 ]
                                                    }
                                                  ]
                                     }
                                   ]
                         }
                       ]
            }
          ]