#!/usr/bin/perl

use strict;						# Enforces safer, clearer code.
use warnings;					# Detects common programming errors 

use Time::HiRes qw(gettimeofday);
use Parse::RecDescent;

#----------------------------------------------------------------------
# Build the grammar.
#----------------------------------------------------------------------
my ($grammar);
my ($startCompile) = gettimeofday;

$grammar = q {
	statement:				(
								(
									function_method | 
									brace_statement | 
									parenthesis_statement | 
									bracket_statement | 
									stuff_we_ignore
								) (';')(?)
								{ $return = $item[1]; }
							)(s?) 

	function_method:		'function' identifier 
							parenthesis_statement brace_statement
							{ $return = $item[2]; }

	brace_statement:		'\{' statement '\}'					
									{ $return = $item[2]; }
	parenthesis_statement:	'(' statement ')'					
									{ $return = ""; }
	bracket_statement:		'[' statement ']'					
									{ $return = ""; }
	stuff_we_ignore:		( identifier | punctuators )(s?)					
									{ $return = ""; }
	identifier:				/\w+/
	punctuators:			/[><=!~:&^%,\?\|\+\-\*\/\.]+/

#	stuff_we_ignore:		/[\w><=!~:&^%,\?\|\+\-\*\/\.]+/
#	others:					/[;(){}\[\]]+/
};

#----------------------------------------------------------------------
# Print the results.
#----------------------------------------------------------------------
	
my @localDeclaredVars = <DATA>;
my $localDeclaredVar = join ' ', @localDeclaredVars;

my $parser = new Parse::RecDescent ($grammar) or die "*** Bad grammar!\n";
my $i = 1;
my ($endCompile) = gettimeofday;
print "\nCompile Time: " . (sprintf "%2.1f", ($endCompile - $startCompile)) . " seconds\n";
print '-'x80 . "\n";

my $refParsedValues = $parser->statement($localDeclaredVar) || print "*** $localDeclaredVar\n";

# This is ugly - What can I do folks?
if (ref($refParsedValues) eq 'ARRAY') {
	foreach my $parsedValue (@$refParsedValues) {
		if (ref($parsedValue) eq 'ARRAY') {
			foreach my $parsedSubValue (@$parsedValue) {
				if (ref($parsedSubValue) eq 'ARRAY') {
					chomp (@$parsedSubValue);
					print sprintf ("%3d", $i++) . " %=> [@$parsedSubValue]\n";
				} elsif (defined $parsedSubValue && $parsedSubValue ne '1' && $parsedSubValue ne '') {
					print sprintf ("%3d", $i++) . " ^-> [$parsedSubValue]\n";
				}
			}
		} elsif (defined $parsedValue && $parsedValue ne '1' && $parsedValue ne '') {
			print sprintf ("%3d", $i++) . " =-> [$parsedValue]\n";
		}
	}
} elsif (defined $refParsedValues && $refParsedValues ne '1' && $refParsedValues ne '') {
	print sprintf ("%3d", $i++) . " --> [$refParsedValues]\n";
}

my ($parseEnd) = gettimeofday;
print '-'x80 . "\n";
print "Parse Time:  " . (sprintf "%2.1f", ($parseEnd - $endCompile)) . " seconds\n";
print "Total Time:  " . (sprintf "%2.1f", ($parseEnd - $startCompile)) . " seconds\n";

__END__

var g1, g2 = __QUOTE__; var g3 = 10000000;
if (g1) { var XXXXXXX = __QUOTE__; }
if ( ! defaultCookieCrumbNav ) { cookieCrumbNavBarHTML = __QUOTE__ ; } 
else { function funct1 () { }; var xxx = __QUOTE__ ; }
if (true == false) { alert(var1); }
if (1) { if (1) { if (1) { function funct2 (X) { fff = funct3 (1,2); } } } }

function funct3 (a,b) { alert (1,2,3,4); return (a + b); }
function funct4 () { var aaa = 1; }

function funct5 (var1) {
	if (1) { return true; } else if (1) { return true; } else { if (true) { alert(var1); } }
}

var g4; var g7 = __QUOTE__;

function funct6 () { var b = __REGEX__; c = __REGEX__; if (test333()) { return true; } }
function funct7 () { var a = 111; }
alert ( 3 );
funct5 ( funct6 ( funct2 () ) );

var done_parsing;

##</code><code>##

Compile Time: 0.0 seconds
----------------------------------------------------------------------
  1 ^-> [funct1]
  2 %=> [  ARRAY(0x25ec9bc) ]
  3 =-> [funct3]
  4 =-> [funct4]
  5 =-> [funct5]
  6 =-> [funct6]
  7 =-> [funct7]
----------------------------------------------------------------------
Parse Time:  1.0 seconds
Total Time:  1.0 seconds