Skip to content
Browse files

grammars; import directive, base export to perl5

  • Loading branch information...
1 parent a6195ff commit c59cfbdcdd7bae555be9504a557596d96668488c @zag committed Oct 17, 2011
Showing with 570 additions and 0 deletions.
  1. +10 −0 Changes
  2. +201 −0 LICENSE
  3. +8 −0 META.info
  4. +22 −0 README
  5. +19 −0 bin/plosurin
  6. +228 −0 lib/Plosurin.pm
  7. +4 −0 t/samples/test.pod6
  8. +10 −0 t/samples/test.soy
  9. +32 −0 t/t01.t
  10. +36 −0 t/t02.t
View
10 Changes
@@ -0,0 +1,10 @@
+Revision history for Plosurin.
+
+0.01 17 Oct 2011
+ * Template Grammar (without expressions)
+ * {import } - import directive (not exists in original google closures)
+ * import pod files via pod6xhtml ( Perl6::Pod )
+ * raw templates text
+ * base export to perl5
+
+
View
201 LICENSE
@@ -0,0 +1,201 @@
+ The Artistic License 2.0
+
+ Copyright (c) 2000-2006, The Perl Foundation.
+
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+This license establishes the terms under which a given free software
+Package may be copied, modified, distributed, and/or redistributed.
+The intent is that the Copyright Holder maintains some artistic
+control over the development of that Package while still keeping the
+Package available as open source and free software.
+
+You are always permitted to make arrangements wholly outside of this
+license directly with the Copyright Holder of a given Package. If the
+terms of this license do not permit the full use that you propose to
+make of the Package, you should contact the Copyright Holder and seek
+a different licensing arrangement.
+
+Definitions
+
+ "Copyright Holder" means the individual(s) or organization(s)
+ named in the copyright notice for the entire Package.
+
+ "Contributor" means any party that has contributed code or other
+ material to the Package, in accordance with the Copyright Holder's
+ procedures.
+
+ "You" and "your" means any person who would like to copy,
+ distribute, or modify the Package.
+
+ "Package" means the collection of files distributed by the
+ Copyright Holder, and derivatives of that collection and/or of
+ those files. A given Package may consist of either the Standard
+ Version, or a Modified Version.
+
+ "Distribute" means providing a copy of the Package or making it
+ accessible to anyone else, or in the case of a company or
+ organization, to others outside of your company or organization.
+
+ "Distributor Fee" means any fee that you charge for Distributing
+ this Package or providing support for this Package to another
+ party. It does not mean licensing fees.
+
+ "Standard Version" refers to the Package if it has not been
+ modified, or has been modified only in ways explicitly requested
+ by the Copyright Holder.
+
+ "Modified Version" means the Package, if it has been changed, and
+ such changes were not explicitly requested by the Copyright
+ Holder.
+
+ "Original License" means this Artistic License as Distributed with
+ the Standard Version of the Package, in its current version or as
+ it may be modified by The Perl Foundation in the future.
+
+ "Source" form means the source code, documentation source, and
+ configuration files for the Package.
+
+ "Compiled" form means the compiled bytecode, object code, binary,
+ or any other form resulting from mechanical transformation or
+ translation of the Source form.
+
+
+Permission for Use and Modification Without Distribution
+
+(1) You are permitted to use the Standard Version and create and use
+Modified Versions for any purpose without restriction, provided that
+you do not Distribute the Modified Version.
+
+
+Permissions for Redistribution of the Standard Version
+
+(2) You may Distribute verbatim copies of the Source form of the
+Standard Version of this Package in any medium without restriction,
+either gratis or for a Distributor Fee, provided that you duplicate
+all of the original copyright notices and associated disclaimers. At
+your discretion, such verbatim copies may or may not include a
+Compiled form of the Package.
+
+(3) You may apply any bug fixes, portability changes, and other
+modifications made available from the Copyright Holder. The resulting
+Package will still be considered the Standard Version, and as such
+will be subject to the Original License.
+
+
+Distribution of Modified Versions of the Package as Source
+
+(4) You may Distribute your Modified Version as Source (either gratis
+or for a Distributor Fee, and with or without a Compiled form of the
+Modified Version) provided that you clearly document how it differs
+from the Standard Version, including, but not limited to, documenting
+any non-standard features, executables, or modules, and provided that
+you do at least ONE of the following:
+
+ (a) make the Modified Version available to the Copyright Holder
+ of the Standard Version, under the Original License, so that the
+ Copyright Holder may include your modifications in the Standard
+ Version.
+
+ (b) ensure that installation of your Modified Version does not
+ prevent the user installing or running the Standard Version. In
+ addition, the Modified Version must bear a name that is different
+ from the name of the Standard Version.
+
+ (c) allow anyone who receives a copy of the Modified Version to
+ make the Source form of the Modified Version available to others
+ under
+
+ (i) the Original License or
+
+ (ii) a license that permits the licensee to freely copy,
+ modify and redistribute the Modified Version using the same
+ licensing terms that apply to the copy that the licensee
+ received, and requires that the Source form of the Modified
+ Version, and of any works derived from it, be made freely
+ available in that license fees are prohibited but Distributor
+ Fees are allowed.
+
+
+Distribution of Compiled Forms of the Standard Version
+or Modified Versions without the Source
+
+(5) You may Distribute Compiled forms of the Standard Version without
+the Source, provided that you include complete instructions on how to
+get the Source of the Standard Version. Such instructions must be
+valid at the time of your distribution. If these instructions, at any
+time while you are carrying out such distribution, become invalid, you
+must provide new instructions on demand or cease further distribution.
+If you provide valid instructions or cease distribution within thirty
+days after you become aware that the instructions are invalid, then
+you do not forfeit any of your rights under this license.
+
+(6) You may Distribute a Modified Version in Compiled form without
+the Source, provided that you comply with Section 4 with respect to
+the Source of the Modified Version.
+
+
+Aggregating or Linking the Package
+
+(7) You may aggregate the Package (either the Standard Version or
+Modified Version) with other packages and Distribute the resulting
+aggregation provided that you do not charge a licensing fee for the
+Package. Distributor Fees are permitted, and licensing fees for other
+components in the aggregation are permitted. The terms of this license
+apply to the use and Distribution of the Standard or Modified Versions
+as included in the aggregation.
+
+(8) You are permitted to link Modified and Standard Versions with
+other works, to embed the Package in a larger work of your own, or to
+build stand-alone binary or bytecode versions of applications that
+include the Package, and Distribute the result without restriction,
+provided the result does not expose a direct interface to the Package.
+
+
+Items That are Not Considered Part of a Modified Version
+
+(9) Works (including, but not limited to, modules and scripts) that
+merely extend or make use of the Package, do not, by themselves, cause
+the Package to be a Modified Version. In addition, such works are not
+considered parts of the Package itself, and are not subject to the
+terms of this license.
+
+
+General Provisions
+
+(10) Any use, modification, and distribution of the Standard or
+Modified Versions is governed by this Artistic License. By using,
+modifying or distributing the Package, you accept this license. Do not
+use, modify, or distribute the Package, if you do not accept this
+license.
+
+(11) If your Modified Version has been derived from a Modified
+Version made by someone other than you, you are nevertheless required
+to ensure that your Modified Version complies with the requirements of
+this license.
+
+(12) This license does not grant you the right to use any trademark,
+service mark, tradename, or logo of the Copyright Holder.
+
+(13) This license includes the non-exclusive, worldwide,
+free-of-charge patent license to make, have made, use, offer to sell,
+sell, import and otherwise transfer the Package with respect to any
+patent claims licensable by the Copyright Holder that are necessarily
+infringed by the Package. If you institute patent litigation
+(including a cross-claim or counterclaim) against any party alleging
+that the Package constitutes direct or contributory patent
+infringement, then this Artistic License to you shall terminate on the
+date that such litigation is filed.
+
+(14) Disclaimer of Warranty:
+THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS
+IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
+WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
+NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL
+LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL
+BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
+DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
View
8 META.info
@@ -0,0 +1,8 @@
+{
+ "name" : "Plosurin",
+ "version" : "0.01",
+ "description" : "Perl 6 implementation of Closure Templates",
+ "depends" : [ ],
+ "repo-type" : "git",
+ "repo-url" : "git://github.com/zag/plosurin.git"
+}
View
22 README
@@ -0,0 +1,22 @@
+Plosurin
+=====================
+
+Plosurin - Perl 6 implementation of Closure Templates
+
+USAGE
+
+ plosurin test.soy > Tmpl.pm
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+ http://search.cpan.org/perldoc?Perl6::Pod
+
+COPYRIGHT AND LICENCE
+
+
+Copyright (C) 2011 by Zahatski Aliaksandr
+
+Plosurin is released under Artistic 2.0.
+
View
19 bin/plosurin
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl6
+use v6;
+use Plosurin;
+
+if @*ARGS == 1 {
+my $data = slurp(@*ARGS[0]);
+my $plo = Plosurin.new( :type('perl5'), :package('Test::Tmpl'));
+say $plo.parse($data).out_perl();
+} else {
+ die
+"Error: Need template file
+Usage:
+ $*PROGRAM_NAME <file>
+
+Expample:
+ $*PROGRAM_NAME test.soy > Tmpl.pm";
+
+}
+
View
228 lib/Plosurin.pm
@@ -0,0 +1,228 @@
+use v6;
+my $VERSION = '0.01';
+class Template {
+ has $.namespace ;
+ has @.params;
+ has $.name;
+ has $.comment;
+ has $.body;
+}
+
+class Param {
+ has Bool $!requred = False;
+ has $!name='';
+ has $!comment='';
+}
+
+sub line-and-column(Match $m) {
+ my $line = ($m.orig.substr(0, $m.from).split("\n")).elems;
+ # RAKUDO workaround for RT #70003, $m.orig.rindex(...) directly fails
+ my $column = $m.from - ('' ~ $m.orig).rindex("\n", $m.from);
+ $line, $column;
+ }
+grammar Plosurin::Template {
+ token TOP { <content>+ }
+ token content { $<cnt>=[<struct_if> || <struct_switch> || <struct_foreach> || <raw_text> || <tag> ] }
+ token plain_content { [<raw_text> || <tag> ]+}
+ rule raw_text { <-[{ }]>+ }
+ rule tag {'{' ~ '}' [ <command_import> || <command_print> ] }
+ rule command_print { 'print' <variable>}
+ rule struct_if { '{' ~ '}' <command_if>
+ <plain_content>
+ [ '{' ~ '}' <command_elseif>
+ <plain_content>
+ ]*
+ [ '{' ~ '}' <command_else>
+ <plain_content>
+ ]?
+ '{' ~ '}' <command_endif>
+ }
+ rule command_if {'if' <expression>}
+ rule command_else {'else' }
+ rule command_elseif {'elseif' <expression>}
+ rule command_endif {'/if'}
+ rule struct_switch { '{' ~ '}' <command_switch>
+ [ '{' ~ '}' <command_case>
+ <plain_content> ]+
+ [ '{' ~ '}' <command_default>
+ <plain_content> ]?
+ '{' ~ '}' <command_endswitch>
+ }
+ rule command_switch {'switch' <expression> }
+ rule command_endswitch {'/switch'}
+ rule command_case {'case' <expression_list>}
+ rule command_default {'default'}
+ rule struct_foreach { '{' <command_foreach> <expression_foreach> '}'
+ <content>
+ [ '{' <command_ifempty> '}'
+ <content>
+ ]?
+ '{' <command_endforeach> '}'
+ }
+ rule command_foreach {'foreach'}
+ rule command_endforeach {'/foreach'}
+ rule command_ifempty {'ifempty'}
+ rule expression_foreach { <variable> 'in' <variable>}
+
+ rule command_import {
+ 'import' <attribute> ** 1..2 }
+ rule expression { [ \w+ ['=='||'<'||'>'] \w+ || <variable>] }
+ rule expression_list { [\w+] ** ',' }
+ token variable { '$' \w+ }
+# rule pair { <string> ':' <value> }
+ rule attribute { (\w+) '=' '"' (<-['"']>+) '"' }
+
+}
+
+class Plo::Node {
+ has Plo::Node @!childs;
+ has $!name;
+ method dumper {
+ return { self.WHAT.perl =>[ @!childs».dumper]};
+ }
+}
+
+class Plo::raw_text is Plo::Node {
+ has $.raw_text;
+ method export_perl {
+ return '\'' ~ $.raw_text ~ '\'';
+ }
+}
+class Plo::command_print is Plo::Node {
+ has $.raw_text;
+}
+class Plo::command_import is Plo::Node {
+ has $!file;
+ has $!rule;
+ method dumper {
+ return { self.WHAT.perl =>{ file=> $!file, rule=>$!rule}};
+ }
+ method export_perl {
+ my $body = qqx% pod6xhtml $!file%;
+ return $body
+ }
+}
+
+class Plosurin::TActions {
+ method TOP ($/) { make [ $<content>».ast]}
+ method content ($/) {
+ make $/.values.[0].ast;
+ }
+ method raw_text ($/) {
+ make Plo::raw_text.new(:raw_text($/));
+ }
+
+ method command_print ($/) {
+ make Plo::command_print.new(:raw_text($/));
+ }
+
+ method attribute ($/) {
+ my ($key,$val) = $/[0..1];
+ make ~$key => ~$val;
+ }
+
+ method command_import ($/) {
+ my %attr = $/<attribute>».ast.hash;
+ unless ( %attr{'file'}) {
+ die "Bad attr at: " ~ $/.CURSOR.pos ;
+ }
+ make Plo::command_import.new( :file( %attr{'file'}), :rule(%attr{'rule'}));
+ }
+
+ method tag ($/) {
+ make $/.values.[0].ast;
+ }
+
+}
+
+
+class Plosurin::Actions {
+ method TOP ($/) {
+ my $namespace = $<namespace><nsname>;
+ my @arr = ();
+ for $<def_template>.list -> $template {
+ my $tcomment = $template<header><h_comment>;
+ my $tparams = $template<header><h_param>;
+ my $tmplname = $template<template><template_name>;
+ my $tmplbody = $template<template><tmpl_content>;
+ @arr.push(Template.new(
+ :namespace($namespace),
+ :params($tparams),
+ :name($tmplname),
+ :comment($tcomment),
+ :body($tmplbody)
+ ));
+ }
+ make @arr;
+ }
+ method namespace ($/) {
+ make $/.values.[0].ast
+ }
+ method h_comment ($/) {
+ make $<comment>.ast
+ }
+ method h_param ($/) {
+ my Bool $requred = "?" ne $<is_notrequired>;
+ make Param.new( requred=>$requred , name => $<paramname>, comment=>$<comment> )
+ }
+}
+grammar Plosurin::Grammar {
+ token TOP {<namespace> [ <def_template> ]+}
+ token namespace {'{namespace' \s* $<nsname>=[\w.]+ '}'}
+ rule def_template { <header>
+ <template> }
+ rule header { '/**'\s+
+ <h_comment>?
+ <h_param>*
+ '*/'||{
+ unless $/.CURSOR.pos ~~ $/.orig.chars {
+ my $m = $/;
+ my ($line, $column ) = line-and-column($/);
+ my $near_text = $/.orig.substr( $/.CURSOR.pos -1 , 5);
+ die "bad template header at line: $line : pos $column " ~" near:"
+ ~ $/.orig.substr($/.CURSOR.pos-1, 5) ~ "< "}
+ #return 2
+ 1;}}
+ rule h_comment { '*' <!before '@'>$<comment>=[\N]+}
+ rule h_param { '*' '@param'$<is_notrequired>=['?']? $<paramname>=[\w+] $<comment>=[\N]+}
+ rule template {
+ '{template' $<template_name>=<tmpl_name>'}'
+ $<tmpl_content>=[ .*? ]
+ '{/template}'}
+ rule tmpl_name { \.? \w+}
+}
+
+
+class Plosurin {
+ has $!type='perl5';
+ has $!package='MyApp::Template';
+ has $!parsed;
+ method parse ( $txt) {
+ my $res = Plosurin::Grammar.parse($txt, :actions(Plosurin::Actions.new ));
+ $!parsed = $/;
+ self;
+ }
+ multi method out_perl { self.out_perl( $!parsed.ast.values)}
+ multi method out_perl ( @templates ) {
+ my $output = "
+# this is generated code
+# Plosurin ver. $VERSION
+package $!package;
+";
+ for @templates -> $tmpl {
+ my $sub_name = $!package ~ '::' ~ ($tmpl.namespace ~ $tmpl.name).subst(rx/\./, '_', :g);
+ my $res = Plosurin::Template.parse($tmpl.body, :actions(Plosurin::TActions.new));
+ my $body = "";
+ for $/.ast.values -> $cnt {
+ $body ~= $cnt.export_perl()
+ }
+ $output ~= "sub $sub_name \{
+ return q!$body!;
+ \}
+";
+ }
+ return $output;
+ }
+}
+
+
View
4 t/samples/test.pod6
@@ -0,0 +1,4 @@
+=begin pod
+Some text
+some B<text>
+=end pod
View
10 t/samples/test.soy
@@ -0,0 +1,10 @@
+{namespace rname.sample}
+/**
+ * Comment line
+ * @param? par1 Some comment
+ * @param par2 Some comment
+*/
+{template .Hello}
+ {import file="test.pod6"}
+ <div>Test</div>
+{/template}
View
32 t/t01.t
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl6
+use v6;
+use Test;
+use Plosurin;
+#my $tmpl = '{import file="some/test.pod" rule="!head,:private"}';
+#if Plosurin::Template.parse($tmpl, :actions(Plosurin::TActions.new)
+# ) { "OK".say} else { "BAD".say };
+#say $/.pretty;
+#say $/.ast.values.^methods().sort().uniq().join(', ').elems;
+#say $/.ast.^methods().join(', ');
+#say 'POS: ' ~ $/.CURSOR.pos ~ 'chars: ' ~ $/.orig.chars;
+
+my @lexer_tests =
+'<div>Text</div></div>',
+[{'Plo::raw_text' => [] }],
+'raw text',
+
+'{ print $arrt }',
+[{"Plo::command_print" => []}],
+0,
+
+'{import file="some/test.pod" rule="!head,:private"}',
+
+[{"Plo::command_import" => {"file" => "some/test.pod", "rule" => "!head,:private"}}],
+0,
+;
+
+for @lexer_tests -> $template, $check, $test_name {
+ my $res = Plosurin::Template.parse($template, :actions(Plosurin::TActions.new));
+ is_deeply [ $/.ast».dumper],$check, $test_name ?? $test_name !! $template;
+}
+
View
36 t/t02.t
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl6
+use v6;
+use Test;
+use Plosurin;
+
+my $txt= '{namespace rname.sample}
+/**
+ * Comment line
+ * @param? par1 Some comment
+ * @param par2 Some comment
+*/
+{template .Hello}
+ <div>Test</div>
+{/template}
+
+/**
+ * Comment2
+ * @param 12 1244
+ * @param Rrt 1244
+*/
+{template .Hello1}
+ <div>Test2</div>
+{/template}
+
+/**
+ * Coksd
+*/
+{template .Hello3}
+ <div>Test3</div>
+{/template}
+';
+
+my $res = Plosurin::Grammar.parse($txt, :actions(Plosurin::Actions.new ));
+ok $res, 'grammar';
+is_deeply [$/.ast.values».WHAT».perl], ["Template", "Template", "Template"], 'objects';
+

0 comments on commit c59cfbd

Please sign in to comment.
Something went wrong with that request. Please try again.