# work in progress
package Pugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;