Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-Parse-RecDescent/demo

Name	Size	Perms	Modified	Actions
[ .. / .. ]
demo.c	126 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo.pl	371 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_Cgrammar.pl	10.08 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_Cgrammar_v2.pl	7.08 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_LaTeXish.pl	1.63 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_LaTeXish_autoact.pl	1.72 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_NL2SQL.pl	2.27 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_OOautoparsetree.pl	1.98 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_OOparsetree.pl	1.21 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_PerlCSV.pl	413 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_another_Cgrammar.pl	21.08 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_arithmetic.pl	758 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_autorule.pl	309 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_autoscoresep.pl	587 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_autostub.pl	271 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_bad.pl	816 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_buildcalc.pl	1.3 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_calc.pl	1.82 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_codeblock.pl	287 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_cpp.pl	1.23 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_decomment.pl	2.55 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_decomment_nonlocal.pl	2.44 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_delete.pl	901 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_derived.pl	891 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_dot.pl	4.79 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_embedding.pl	977 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_errors.pl	965 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_eval.pl	1.15 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_implicit.pl	568 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_itemhash.pl	1.64 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_language.pl	2.57 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_leftassoc.pl	1.06 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_leftop.pl	957 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_lexer.pl	577 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_lisplike.pl	1.49 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_logic.pl	542 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_matchrule.pl	772 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_matchrule2.pl	540 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_mccoy.pl	516 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_metaRD.pm	3.02 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_methods.pl	785 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_operator.pl	835 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_opreps.pl	1.01 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_parsetree.pl	661 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_perlparsing.pl	956 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_piecewise.pl	3.03 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_precalc.pl	743 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_quicklist.pl	1.5 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_randomsentence.pl	2.89 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_recipe.pl	2.09 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_restructure_easy.pl	1.21 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_restructure_painful.pl	1.97 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_scoredsep.pl	606 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_selfmod.pl	953 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_separators.pl	779 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_simple.pl	1.94 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_simpleXML.pl	1.87 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_simplequery.pl	831 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_skipcomment.pl	609 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_street.pl	502 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_template.pl	688 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_textgen.pl	5 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_tokens.pl	552 B	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_undumper.pl	23.17 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del
demo_whoson.pl	2.61 KB	-rw-r--r--	2019-09-25 14:28:58	Edit Del

Editing: demo_cpp.pl (1.23 KB)

#!/usr/bin/perl -sw

# RECURSIVE #includes DURING A RECURSIVE DESCENT

use Parse::RecDescent;

sub loadfile($)
{
	open FILE, $_[0]  or die "Couldn't find included file: $_[0]\n";
	my $contents = <FILE>;
	close FILE;
	return $contents;
}

%macro = ();

sub demacro($)
{
	my $text = shift;
	while (($macro,$defn) = each %macro )
	{
		$text =~ s/$macro/$defn/;
	}
	return $text;
}

$grammar =
q{
	file     : line(s)

	line	 : include
		 | macrodef
		 | linedir
			{ $thisline = $item[1]; }
		 | codeline
			{ print "found: [$item[1]] at $thisline\n" }

	include	 : '#include' filename
			{
			  print "pre: [$text] at $thisline\n";
			  $text = ::loadfile($item[-1]) . $text;
			  Parse::RecDescent::LineCounter::resync $thisline;
			  print "post: [$text] at $thisline\n";
			}

	filename : '"' m#[a-z0-9_./-]+#i '"'
			{ $return = $item[-2] }
		 | '<' m#[a-z0-9_./-]+#i '>'
			{ $return = $item[-2] }

	macrodef : '#define' /[a-z]\w*/i /.*/
			{ $::macro{$item[-2]} = $item[-1] }

	linedir:   '#line' /\d+/

	codeline : /.*\n/
			{ $return = ::demacro($item[-1]); }

};

$parse = new Parse::RecDescent ($grammar);

undef $/;

$reinput = $input = <>;

$parse->file($input) or die "Bad file! No biscuit!\n";

$parse->file($reinput) or die "Bad file! No biscuit!\n";