equal
deleted
inserted
replaced
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
23 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING |
23 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING |
24 # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
24 # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
25 # POSSIBILITY OF SUCH DAMAGE. |
25 # POSSIBILITY OF SUCH DAMAGE. |
26 # |
26 # |
27 $main::VERSION = "1.0"; |
27 $main::VERSION = "1.3-dev"; |
28 |
28 |
29 use strict; |
29 use strict; |
30 use Parse::RecDescent; |
30 use Parse::RecDescent; |
31 use Data::Dumper; |
31 use Data::Dumper; |
32 use Storable; |
32 use Storable; |
74 print Dumper $::res if ($opts->{d}); |
74 print Dumper $::res if ($opts->{d}); |
75 |
75 |
76 |
76 |
77 sub main::VERSION_MESSAGE { |
77 sub main::VERSION_MESSAGE { |
78 my $fh = shift; |
78 my $fh = shift; |
79 print $fh "parser version $main::VERSION - Copyright 2009 Tomas Zeman\n"; |
79 print $fh "parser version $main::VERSION - Copyright 2009-2012 Tomas Zeman\n"; |
80 } |
80 } |
81 |
81 |
82 sub main::HELP_MESSAGE { |
82 sub main::HELP_MESSAGE { |
83 print <<EOF; |
83 print <<EOF; |
84 Usage: parser [ -d ] [ -o data ] -g grammar_file |
84 Usage: parser [ -d ] [ -o data ] -g grammar_file |