pstuifzand

FROM ubuntu
RUN apt-get -y install curl perl
RUN apt-get -y install build-essential
RUN curl -L http://getpinto.stratopan.com | bash
EXPOSE 3111
VOLUME ["/var/pinto"]
RUN adduser --system --home /opt/local/pinto --shell /bin/false --disabled-login --group pinto
ENV PINTO_HOME /opt/local/pinto
ENV PINTO_REPOSITORY_ROOT /var/pinto
RUN /opt/local/pinto/bin/pinto init

pstuifzand

package Stuifzand::Lisp;

use Marpa::R2;

sub new {
    my ($class) = @_;

    my $self = bless {}, $class;

    $self->{grammar} = Marpa::R2::Scanless::G->new(

pstuifzand

#!/usr/bin/env perl
use strict;
use 5.10.0;
use Marpa::R2 2.054000;
use Data::Dumper;

my $grammar = Marpa::R2::Scanless::G->new({
    source => \<<'SOURCE',

:start    ::= <class definition>

pstuifzand

/* Copyright (C) 2013 Peter Stuifzand

This program is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free
Software Foundation, either version 3 of the License, or (at your option) any
later version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more

pstuifzand

use 5.10.0;
use Marpa::R2;
use Data::Dumper;

my $grammar = Marpa::R2::Scanless::G->new({
    source => \<<'SOURCE',
:start   ::= numbers

event number_found = completed number

pstuifzand

package ParserZPL;
use 5.10.0;
use Marpa::R2 '2.051_010';

sub parse_zpl {
    my ($input) = @_;

    my $grammar = Marpa::R2::Scanless::G->new({
        default_action => '::array',
        source => \<<'SOURCE',

pstuifzand

P0 @0-0 [:start] -> . test
P1 @0-0 test -> . marker end

Can't locate object method "lexeme_read" via package "Marpa::R2::Recognizer" at t/show_progress.t line 20.

pstuifzand

package MonthTotals;
use 5.010;
use strict;
use Marpa::R2;
use Data::Dumper;

sub new {
    my ($class) = @_;
    my $self = bless {
        grammar => Marpa::R2::Scanless::G->new({

pstuifzand

#!/usr/bin/env perl
# Copyright 2013 Jeffrey Kegler
# This file is part of Marpa::R2.  Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

pstuifzand

package Parse::ProductName;
use Marpa::R2;

sub new {
    my($class) = @_;

    my $grammar = Marpa::R2::Scanless::G->new({
            action_object => 'Parse::ProductName::Actions',
            default_action => 'do_first_arg',
            source => \<<'SOURCE'