Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 43dd82e83e
Fetching contributors…

Cannot retrieve contributors at this time

81 lines (74 sloc) 2.188 kb
# Do not edit this file - Generated by Perlito 7.0
use v5;
use utf8;
use strict;
use warnings;
no warnings ('redefine', 'once', 'void', 'uninitialized', 'misc', 'recursion');
use Perlito::Perl5::Runtime;
use Perlito::Perl5::Prelude;
our $MATCH = Perlito::Match->new();
{
package GLOBAL;
sub new { shift; bless { @_ }, "GLOBAL" }
# use v6
;
{
package Perlito::Match;
sub new { shift; bless { @_ }, "Perlito::Match" }
sub from { $_[0]->{from} };
sub to { $_[0]->{to} };
sub str { $_[0]->{str} };
sub bool { $_[0]->{bool} };
sub capture { $_[0]->{capture} };
sub scalar {
my $self = $_[0];
if ($self->{bool}) {
if (defined($self->{capture})) {
return scalar ($self->{capture})
};
return scalar (substr($self->{str}, $self->{from}, (($self->{to} - $self->{from}))))
}
else {
return scalar ('')
}
};
sub string {
my $self = $_[0];
if ($self->{bool}) {
if (defined($self->{capture})) {
return scalar ($self->{capture})
};
return scalar (substr($self->{str}, $self->{from}, (($self->{to} - $self->{from}))))
}
else {
return scalar ('')
}
}
}
;
{
package Pair;
sub new { shift; bless { @_ }, "Pair" }
sub key { $_[0]->{key} };
sub value { $_[0]->{value} };
sub perl {
my $self = $_[0];
return scalar (($self->{key} . ' ' . chr(61) . '> ' . Main::perl($self->{value}, )))
}
}
;
{
package Main;
sub new { shift; bless { @_ }, "Main" }
sub to_lisp_identifier {
my $ident = $_[0];
return scalar (('sv-' . $ident))
};
sub lisp_dump_object {
my $class_name = $_[0];
my $data = $_[1];
return scalar (($class_name . '( ' . Main::join((bless [ map { Main::perl( $_, , ) } @{( $data )} ], "ARRAY"), ', ') . ' )'))
}
}
}
1;
Jump to Line
Something went wrong with that request. Please try again.