fork(1) download
copy 
  1. #!/usr/bin/perl6
  2. sub MAIN {
  3.     grammar TcronGrammar {
  4.         token TOP       { \n* <crontask>+ }
  5.         token crontask  { <recursive>? <path> }
  6.         token recursive { \*\s+ }
  7.         token path      { .* }
  8.     };
  9.  
  10.     class TcronGrammar-actions {
  11.         method TOP ($/) {
  12.             make { path      => $<path>.Str,
  13.                    recursive => $<recursive>.made.Bool}
  14.         }
  15.  
  16.         method recursive($/) { make $/.trim.Str eq '*'; }
  17.     }
  18.  
  19.     my $conf-match = TcronGrammar.parse("* /tmp/sdl/SDL2-2.0.5\n/tmp/sdl/SDL2-2.0.5"); #, actions => TcronGrammar-actions.new).made;
  20.     say $conf-match;
  21. }
  22.  
Time limit exceeded #stdin #stdout 5s 308864KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/AaSl2g
language:
Perl (perl 2018.12)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!