> I wonder why you opt to parse this format specifically instead of the generic lisp format though.
As I said, I started from a wrong end. I'm kind of busy working from home and staying there with a wife and three children, so I didn't have time to fix it immediately. Here's a much simpler and faster version, which parses melpa's archive-contents in less than 5 seconds on my machine:
#! /usr/bin/perl
use warnings;
use strict;
use Marpa::R2;
my $dsl = << '__DSL__';
:default ::= action => ::first
lexeme default = latm => 1
List ::= ('(') Elements (')')
Elements ::= Element+ action => [values]
Element ::= List
| Vector
| Atom
| String
| Pair
Vector ::= ('[') Elements (']')
Atom ::= identifier
String ::= ('"') Quoteds ('"')
Quoteds ::= Quoteds Quoted action => concat
| Quoted
Quoted ::= backslash
|| qq
|| plain
Pair ::= Element (dot) Element action => pair
:discard ~ whitespace
whitespace ~ [\s]+
dot ~ '.'
backslash ~ '\\'
qq ~ '\"'
identifier ~ [-\w@:+]+
plain ~ [^\\"]+
__DSL__
sub concat { $_[1] . $_[2] }
sub pair { +{ $_[1] => $_[2] } }
my $grammar = 'Marpa::R2::Scanless::G'->new({source => \$dsl});
my $lisp = do { local $/; <> };
my $value_ref = $grammar->parse(\$lisp, {semantics_package => 'main'})
+;
use Data::Dumper; print Dumper $value_ref;
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|