#!/usr/bin/env perl

use strict;
use warnings;

use GraphViz2::Marpa::Utils;

# -----------

my($print)         = shift || 0;
my($data_dir_name) = 'data';

my($lex_file);
my($parse_file);

for my $file_name (GraphViz2::Marpa::Utils -> new -> get_files($data_dir_name, 'lex') )
{
	$lex_file   = File::Spec -> catfile($data_dir_name, "$file_name.lex");
	$parse_file = File::Spec -> catfile($data_dir_name, "$file_name.parse");

	print "$lex_file. \n" if ($print);

	`$^X -Ilib scripts/parse.pl -lexed_fle $lex_file -parsed_file $parse_file`;
}