# HG changeset patch
# User "Tomas Zeman <tzeman@volny.cz>"
# Date 1259359961 -3600
# Node ID d39ff14a896472e33474f83a1e856625f7f84746
# Parent  6822d0e5df57d05fde88a2262fa7e5aaa672726a
parser: store result via Storable if requested

diff -r 6822d0e5df57 -r d39ff14a8964 parser
--- a/parser	Fri Nov 27 23:12:08 2009 +0100
+++ b/parser	Fri Nov 27 23:12:41 2009 +0100
@@ -3,8 +3,10 @@
 use strict;
 use Parse::RecDescent;
 use Data::Dumper;
+use Storable;
 
 my $grammar_file = shift;
+my $storable = shift; # optional
 unless (defined $grammar_file) {
 	print "Usage: $0 grammar_file\n";
 	exit 1;
@@ -37,7 +39,5 @@
 
 $::res = {};
 my $p_res = $parser->file($content);
-
-#print Dumper $p_res;
-
+store($::res, $storable) if (defined $storable && length($storable) > 0);
 print Dumper $::res;