view release on metacpan or search on metacpan
lib/Acme/6502/Tube.pm view on Meta::CPAN
GSREAD => 0xFFC5,
NVWRCH => 0xFFC8,
NVRDCH => 0xFFCB,
OSFIND => 0xFFCE,
OSGBPB => 0xFFD1,
OSBPUT => 0xFFD4,
OSBGET => 0xFFD7,
OSARGS => 0xFFDA,
OSFILE => 0xFFDD,
OSASCI => 0xFFE3,
OSNEWL => 0xFFE7,
lib/Acme/6502/Tube.pm view on Meta::CPAN
$self->make_vector( 'OSWRCH', 0x20E, \&_oswrch );
$self->make_vector( 'OSRDCH', 0x210, \&_osrdch );
$self->make_vector( 'OSFILE', 0x212, \&_osfile );
$self->make_vector( 'OSARGS', 0x214, \&_osargs );
$self->make_vector( 'OSBGET', 0x216, \&_osbget );
$self->make_vector( 'OSBPUT', 0x218, \&_osbput );
$self->make_vector( 'OSGBPB', 0x21A, \&_osgbpb );
$self->make_vector( 'OSFIND', 0x21C, \&_osfind );
$self->set_jumptab( 0xFA00 );
}
lib/Acme/6502/Tube.pm view on Meta::CPAN
sub _osbget {
die "OSBGET not handled\n";
}
sub _osbput {
die "OSBPUT not handled\n";
}
sub _osgbpb {
die "OSGBPB not handled\n";
}
view release on metacpan or search on metacpan
t/acme_alien_dontpanic.t view on Meta::CPAN
int answer(class)
const char *class;
CODE:
RETVAL = answer();
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
t/acme_alien_dontpanic2.t view on Meta::CPAN
int answer(class)
const char *class;
CODE:
RETVAL = answer();
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
my %opts = @_;
if (@_ == 1 && ref $_[0] eq "HASH") {
%opts = @{$_[0]};
}
my ($PIC, $CODE, $OUTPUT);
if (defined $opts{"debug"} && $opts{"debug"}) {
$DEBUG = 1;
}
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
} else {
croak "Invalid spec. Must specify code, code_file, or code_string \n";
}
if (defined $opts{"output"}) {
$OUTPUT = $opts{"output"};
} else {
print STDERR "Output will go to \"ascii-art.pl\"\n" if $DEBUG;
$OUTPUT = "ascii-art.pl";
}
if (defined $opts{"compile-check"}) {
my $fh;
open($fh, ">", "ascii-art.$$.pl");
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
}
print_code_to_pic($PIC, @tokens);
my $fh;
open($fh, ">", $OUTPUT);
select $fh;
print_code_to_pic($PIC, @tokens);
select STDOUT;
close $fh;
my $c1 = &compile_check($OUTPUT);
if ($c1 > 0) {
croak "Artinated code does not compile! Darn.\n";
exit $c1 >> 8;
}
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
#
# artination complete
#
##################################################
open($fh,"<", $OUTPUT);
my @output = <$fh>;
close $fh;
# test output
#
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
my $output = "";
if (defined $opts{"test_input$ntest"}) {
open($fh, ">", "ascii-art-test-$ntest-$$.stdin");
print $fh @test_stdin;
close $fh;
$output = qx{$^X "$OUTPUT" @test_argv < ascii-art-test-$ntest-$$.stdin};
unlink "ascii-art-test-$ntest-$$.stdin";
} else {
$output = qx{$^X "$OUTPUT" @test_argv};
}
print "Ran post-test # $ntest with argv: \"@test_argv\", stdin: \"@test_stdin\"\n";
if ($output eq $Acme::AsciiArtinator::TestOutput[$ntest]) {
print "Post-test # $ntest: PASS\n";
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
return "divide";
}
sub tokenize_code {
my ($INPUT) = @_;
local $" = '';
my @INPUT = grep { /[^\n]/ } split //, $INPUT;
# tokens are:
# quotes strings
# numeric literals
# regular expression specifications
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
#
my ($i, $j, $Q, @tokens, $token, $sigil, @contexts, @blocks);
$sigil = 0;
for ($i = 0; $i < @INPUT; $i++) {
$_ = $INPUT[$i];
$Q = "@INPUT[$i..$#INPUT]";
print STDERR "\$Q = ", substr($Q,0,8), "... SIGIL=$sigil\n" if $_ eq "q" && $DEBUG;
# $# could be "the output format of printed numbers"
# or it could be the start of an expression like $#X or $#{@$X}
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
next;
}
if (!$sigil && ($_ eq "'" || $_ eq '"' ||
$_ eq "/" && regex_or_divide(\@tokens,\@contexts) eq "regex")) {
# walk through @INPUT looking for the end of the string
# manage a boolean $escaped variable handy to allow
# escaped strings inside strings.
my $escaped = 0;
my $terminator = $_;
for($j = $i + 1; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
last if $INPUT[$j] eq $terminator && !$escaped;
$escaped = 0;
}
my $token = "@INPUT[$i..$j]";
if ($_ eq "/" && (length $token > 30 || $j >= $#INPUT)) {
# this regex is pretty long. Maybe we made a mistake.
my $toke2 = find_token_keyword($Q) || "/";
$token = $toke2;
$_ = "/!";
}
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
$i += length $token;
} elsif (!$sigil && ($Q =~ /^m\W/ || $Q =~ /^qr\W/ || $Q =~ /^q[^\w\s]/ || $Q =~ /^qq\W/)) {
$j = $Q =~ /^q[rq]\W/ ? $i + 3 : $i + 2;
my $terminator = $INPUT[$j - 1];
$terminator =~ tr!{}<>[]{}()!}{><][}{)(!;
my $escaped = 0;
for(; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
last if $INPUT[$j] eq $terminator && !$escaped;
# XXX - if regex has 'x' modifier,
# then
$escaped = 0;
}
push @tokens, "@INPUT[$i..$j]";
push @contexts, "regular expression A /$terminator/";
$i = $j;
} elsif (!$sigil && ($Q =~ /^s\W/ || $Q =~ /^y\W/ || $Q =~ /^tr\W/)) {
$j = $_ eq "t" ? $i + 3 : $i + 2;
my $terminator = $INPUT[$j-1];
$terminator =~ tr!{}<>[]{}()!}{><][}{)(!;
my $escaped = 0;
my $terminators_found = 0;
for (; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
if ($INPUT[$j] eq $terminator && !$escaped) {
if ($terminators_found++) {
last;
}
}
$escaped = 0;
}
push @tokens, "@INPUT[$i..$j]";
push @contexts, "regular expression B /$terminator/";
$i = $j;
} elsif ($Q =~ /^[a-zA-Z_]\w*/) {
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
}
#############################################################################
sub tokenize_art {
my ($INPUT) = @_;
my @INPUT = split //, $INPUT;
my $white = 1;
my $block_size = 0;
my @blocks = ();
foreach my $char (@INPUT) {
if ($char eq " " || $char eq "\n" || $char eq "\t") {
if ($block_size > 0) {
push @blocks, $block_size;
$block_size = 0;
}
view release on metacpan or search on metacpan
examples/update100.pl view on Meta::CPAN
ABSOLUTE => 1,
INTERPOLATE => 0,
POST_CHOMP => 1,
TRIM => 0,
INCLUDE_PATH => 'templates',
OUTPUT_PATH => '..'
);
my %groups = (
'insert' => 'New Authors',
'update' => 'Updated Counts',
view release on metacpan or search on metacpan
examples/update100.pl view on Meta::CPAN
ABSOLUTE => 1,
INTERPOLATE => 0,
POST_CHOMP => 1,
TRIM => 0,
INCLUDE_PATH => 'templates',
OUTPUT_PATH => '..'
);
my %groups = (
'insert' => 'New Authors',
'update' => 'Updated Counts',
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/CPANTS/FiveOrMore.pm view on Meta::CPAN
q <RATTLER> => q <Michael Bochkaryov>,
q <RBDAVISON> => q <R Bernard Davison>,
q <RBERJON> => q <Robin Berjon>,
q <RBOW> => q <Rich Bowen>,
q <RBS> => q <Barrie Slaymaker>,
q <RCAPUTO> => q <Rocco Caputo>,
q <RCLAMP> => q <Richard Clamp>,
q <RCROWDER> => q <Roy Elton Crowder, III>,
q <REATMON> => q <Ryan Eatmon>,
q <REDICAPS> => q <woosley.xu>,
q <REHSACK> => q <Jens Rehsack>,
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/GitHub.pm view on Meta::CPAN
q(RBO) => q(Robert Bohne),
q(RBOISVERT) => q(Robert Boisvert),
q(RBRAGG) => q(Rick Bragg),
q(RBUELS) => q(Robert Buels),
q(RBWOHLFAR) => q(Robert Wohlfarth),
q(RCAPUTO) => q(Rocco Caputo),
q(RCL) => q(Robin Clarke),
q(RCONOVER) => q(),
q(RDRAKE) => q(Robert Drake),
q(REALHOLGI) => q(Holger Eiboeck),
q(RECSKY) => q(Frederico Recsky),
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/POE.pm view on Meta::CPAN
PGUZIS => q[Peter Guzis],
PHAYLON => q[Robert 'phaylon' Sedlacek],
PLU => q[Johannes Plunien],
PRIVI => q[Markus Schraeder],
PTINSLEY => q[Paul David Tinsley],
RCAPUTO => q[Rocco Caputo],
RCLAMP => q[Richard Clamp],
RDB => q[Rob Bloodgood],
RDRAKE => q[Robert Drake],
RECSKY => q[Frederico Recsky],
REVMISCHA => q[Mischa Spiegelmock],
lib/Acme/CPANAuthors/POE.pm view on Meta::CPAN
PGUZIS => q[Peter Guzis],
PHAYLON => q[Robert 'phaylon' Sedlacek],
PLU => q[Johannes Plunien],
PRIVI => q[Markus Schraeder],
PTINSLEY => q[Paul David Tinsley],
RCAPUTO => q[Rocco Caputo],
RCLAMP => q[Richard Clamp],
RDB => q[Rob Bloodgood],
RDRAKE => q[Robert Drake],
RECSKY => q[Frederico Recsky],
REVMISCHA => q[Mischa Spiegelmock],
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/CPAN/Streaks/MonthlyReleases/AllTime.pm view on Meta::CPAN
'IRONCAMEL' => '',
'JV' => '',
'TINITA' => '',
'TELS' => '',
'JHI' => '',
'RCAPUTO' => '',
'BRICAS' => '',
'POTYL' => '',
'COSIMO' => '',
'ANAZAWA' => '',
'DAVIDO' => '',
lib/Acme/CPANAuthors/CPAN/Streaks/MonthlyReleases/AllTime.pm view on Meta::CPAN
| JV | 21 | 2016-06 | 2018-02 | broken |
| TINITA | 21 | 2018-03 | 2019-11 | broken |
| PRBRENAN | 21 | 2020-04 | 2021-12 | broken |
| TELS | 20 | 2001-02 | 2002-09 | broken |
| JHI | 20 | 2002-03 | 2003-10 | broken |
| RCAPUTO | 20 | 2002-12 | 2004-07 | broken |
| TELS | 20 | 2004-10 | 2006-05 | broken |
| MSCHWERN | 20 | 2006-09 | 2008-04 | broken |
| MTHURN | 20 | 2006-12 | 2008-07 | broken |
| MSCHILLI | 20 | 2008-05 | 2009-12 | broken |
| BRICAS | 20 | 2008-08 | 2010-03 | broken |
view release on metacpan or search on metacpan
lib/Acme/CPANModules/CLI/Sort.pm view on Meta::CPAN
=over
=item * L<App::PipeFilter> - Sort JSON objects by key field(s)
Author: L<RCAPUTO|https://metacpan.org/author/RCAPUTO>
Script: L<jsort>
=item * L<App::VersionUtils> - Sort version numbers
view release on metacpan or search on metacpan
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
Result formatted as table (split, part 2 of 5):
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
Result formatted as table (split, part 3 of 5):
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
Result formatted as table (split, part 4 of 5):
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
Result formatted as table (split, part 5 of 5):
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
=head2 Sample benchmark #2
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
To display as an interactive HTML table on a browser, you can add option C<--format html+datatables>.
=head1 SAMPLE OUTPUTS
This section shows what the output is like for (some of the) modules:
=over
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_05_day-5-your-apps-built-in-commands view on Meta::CPAN
</code></pre>
<p>How fun is that?!</p>
<ul>
<li>You can POST or PUT or DELETE data.</li>
<li>It handles HTTP basic authentication using <code>username:password@</code> in the URL.</li>
<li>You can submit forms, even with file uploads using the standard <code>@filename</code> syntax.</li>
<li>You can pipe data to the command if you just want to send the raw contents of a file rather than url-encode it.</li>
<li>See lots more examples in the <a href="http://mojolicious.org/perldoc/Mojolicious/Command/get#SYNOPSIS">documentation</a>.</li>
</ul>
view release on metacpan or search on metacpan
bin/coinbase.pl view on Meta::CPAN
# this is an example of a header used on the coinbase API, from their docs;
# GET /api/v1/account/balance HTTP/1.1
# Accept: */*
# User-Agent: Ruby
# ACCESS_KEY: <YOUR-API-KEY>
# ACCESS_SIGNATURE: <YOUR-COMPUTED-SIGNATURE>
# ACCESS_NONCE: <YOUR-UPDATED-NONCE>
# Connection: close
# Host: coinbase.com
=pod
view release on metacpan or search on metacpan
inc/YAML.pm view on Meta::CPAN
my $mode = '>';
if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
($mode, $filename) = ($1, $2);
}
open $OUT, $mode, $filename
or YAML::Base->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, $!);
}
local $/ = "\n"; # reset special to "sane"
print $OUT Dump(@_);
}
inc/YAML.pm view on Meta::CPAN
if (ref $filename eq 'GLOB') {
$IN = $filename;
}
else {
open $IN, $filename
or YAML::Base->die('YAML_LOAD_ERR_FILE_INPUT', $filename, $!);
}
return Load(do { local $/; <$IN> });
}
sub init_action_object {
view release on metacpan or search on metacpan
}
}
rv = __damn( rv );
OUTPUT:
rv
SV *
bless( rv , ... )
/* bless the target reference */
(void)sv_bless( rv , stash );
}
OUTPUT:
rv
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Encode::HanDetect;
use Encode::HanExtra;
use Encode::HEBCI;
use Encode::HP;
use Encode::IBM;
use Encode::IMAPUTF;
use Encode::InCharset;
use Encode::ISO;
use Encode::JavaScript::Cyrillic;
use Encode::JavaScript::UCS;
use Encode::JISK;
view release on metacpan or search on metacpan
Calculator.xs view on Meta::CPAN
double a
double b
CODE:
RETVAL = a + b;
add_to_history('+', a, b, RETVAL);
OUTPUT:
RETVAL
double
subtract(a, b)
double a
double b
CODE:
RETVAL = a - b;
add_to_history('-', a, b, RETVAL);
OUTPUT:
RETVAL
double
multiply(a, b)
double a
double b
CODE:
RETVAL = a * b;
add_to_history('*', a, b, RETVAL);
OUTPUT:
RETVAL
double
divide(a, b)
double a
Calculator.xs view on Meta::CPAN
if (b == 0.0) {
croak("Division by zero");
}
RETVAL = a / b;
add_to_history('/', a, b, RETVAL);
OUTPUT:
RETVAL
double
modulo(a, b)
double a
Calculator.xs view on Meta::CPAN
if (b == 0.0) {
croak("Modulo by zero");
}
RETVAL = fmod(a, b);
add_to_history('%', a, b, RETVAL);
OUTPUT:
RETVAL
double
negate(a)
double a
CODE:
RETVAL = -a;
add_to_history('n', a, 0, RETVAL);
OUTPUT:
RETVAL
double
absolute(a)
double a
CODE:
RETVAL = fabs(a);
add_to_history('a', a, 0, RETVAL);
OUTPUT:
RETVAL
double
safe_divide(a, b)
double a
Calculator.xs view on Meta::CPAN
RETVAL = basic_safe_divide(a, b, &error);
if (error) {
RETVAL = 0.0; /* Return 0 instead of croak */
}
add_to_history('/', a, b, RETVAL);
OUTPUT:
RETVAL
double
clamp(value, min_val, max_val)
double value
double min_val
double max_val
CODE:
RETVAL = basic_clamp(value, min_val, max_val);
OUTPUT:
RETVAL
double
percent(value, pct)
double value
double pct
CODE:
RETVAL = basic_percent(value, pct);
add_to_history('%', value, pct, RETVAL);
OUTPUT:
RETVAL
void
import(...)
CODE:
Calculator.xs view on Meta::CPAN
CODE:
RETVAL = store_memory(slot, value);
if (!RETVAL) {
warn("Invalid memory slot %d (valid: 0-%d)", slot, MAX_MEMORY_SLOTS - 1);
}
OUTPUT:
RETVAL
double
recall(slot)
int slot
Calculator.xs view on Meta::CPAN
warn("Invalid memory slot %d (valid: 0-%d)", slot, MAX_MEMORY_SLOTS - 1);
RETVAL = 0.0;
} else {
RETVAL = recall_memory(slot);
}
OUTPUT:
RETVAL
void
clear()
CODE:
Calculator.xs view on Meta::CPAN
double
ans()
CODE:
RETVAL = get_last_result();
OUTPUT:
RETVAL
int
history_count()
CODE:
RETVAL = history_count;
OUTPUT:
RETVAL
void
get_history_entry(index)
int index
Calculator.xs view on Meta::CPAN
int
max_memory_slots()
CODE:
RETVAL = MAX_MEMORY_SLOTS;
OUTPUT:
RETVAL
int
max_history_entries()
CODE:
RETVAL = MAX_HISTORY;
OUTPUT:
RETVAL
int
is_valid_slot(slot)
int slot
CODE:
RETVAL = mem_is_valid_slot(slot);
OUTPUT:
RETVAL
int
used_slots()
CODE:
RETVAL = mem_get_used_slots();
OUTPUT:
RETVAL
double
sum_all_slots()
CODE:
RETVAL = mem_sum_all();
OUTPUT:
RETVAL
void
add_to(slot, value)
int slot
Calculator.xs view on Meta::CPAN
double base
double exp
CODE:
RETVAL = pow(base, exp);
add_to_history('^', base, exp, RETVAL);
OUTPUT:
RETVAL
double
sqrt_val(a)
double a
Calculator.xs view on Meta::CPAN
if (a < 0.0) {
croak("Cannot take square root of negative number");
}
RETVAL = sqrt(a);
add_to_history('r', a, 0.5, RETVAL);
OUTPUT:
RETVAL
double
cbrt_val(a)
double a
CODE:
RETVAL = cbrt(a);
add_to_history('r', a, 1.0/3.0, RETVAL);
OUTPUT:
RETVAL
double
nth_root(a, n)
double a
Calculator.xs view on Meta::CPAN
if (a < 0.0 && fmod(n, 2.0) == 0.0) {
croak("Cannot take even root of negative number");
}
RETVAL = pow(a, 1.0/n);
add_to_history('r', a, n, RETVAL);
OUTPUT:
RETVAL
double
log_natural(a)
double a
Calculator.xs view on Meta::CPAN
if (a <= 0.0) {
croak("Cannot take log of non-positive number");
}
RETVAL = log(a);
add_to_history('l', a, M_E, RETVAL);
OUTPUT:
RETVAL
double
log10_val(a)
double a
Calculator.xs view on Meta::CPAN
if (a <= 0.0) {
croak("Cannot take log of non-positive number");
}
RETVAL = log10(a);
add_to_history('L', a, 10, RETVAL);
OUTPUT:
RETVAL
double
log_base(a, base)
double a
Calculator.xs view on Meta::CPAN
if (a <= 0.0 || base <= 0.0 || base == 1.0) {
croak("Invalid logarithm arguments");
}
RETVAL = log(a) / log(base);
add_to_history('L', a, base, RETVAL);
OUTPUT:
RETVAL
double
exp_val(a)
double a
CODE:
RETVAL = exp(a);
add_to_history('e', a, 0, RETVAL);
OUTPUT:
RETVAL
double
factorial(n)
int n
Calculator.xs view on Meta::CPAN
RETVAL = 1.0;
for (int i = 2; i <= n; i++) {
RETVAL *= i;
}
add_to_history('!', (double)n, 0, RETVAL);
OUTPUT:
RETVAL
double
ipow(base, exp)
double base
int exp
CODE:
RETVAL = sci_ipow(base, exp);
add_to_history('^', base, (double)exp, RETVAL);
OUTPUT:
RETVAL
double
safe_sqrt(a)
double a
Calculator.xs view on Meta::CPAN
int error;
RETVAL = sci_safe_sqrt(a, &error);
if (!error) {
add_to_history('r', a, 0.5, RETVAL);
}
OUTPUT:
RETVAL
double
safe_log(a)
double a
Calculator.xs view on Meta::CPAN
int error;
RETVAL = sci_safe_log(a, &error);
if (!error) {
add_to_history('l', a, M_E, RETVAL);
}
OUTPUT:
RETVAL
double
combination(n, r)
int n
int r
CODE:
RETVAL = sci_combination(n, r);
add_to_history('C', (double)n, (double)r, RETVAL);
OUTPUT:
RETVAL
double
permutation(n, r)
int n
Calculator.xs view on Meta::CPAN
for (int i = 2; i <= r; i++) {
RETVAL *= i;
}
}
add_to_history('P', (double)n, (double)r, RETVAL);
OUTPUT:
RETVAL
void
import(...)
CODE:
Calculator.xs view on Meta::CPAN
sin_val(a)
double a
CODE:
RETVAL = sin(a);
add_to_history('s', a, 0, RETVAL);
OUTPUT:
RETVAL
double
cos_val(a)
double a
CODE:
RETVAL = cos(a);
add_to_history('c', a, 0, RETVAL);
OUTPUT:
RETVAL
double
tan_val(a)
double a
CODE:
RETVAL = tan(a);
add_to_history('t', a, 0, RETVAL);
OUTPUT:
RETVAL
double
asin_val(a)
double a
Calculator.xs view on Meta::CPAN
if (a < -1.0 || a > 1.0) {
croak("asin argument must be in [-1, 1]");
}
RETVAL = asin(a);
add_to_history('S', a, 0, RETVAL);
OUTPUT:
RETVAL
double
acos_val(a)
double a
Calculator.xs view on Meta::CPAN
if (a < -1.0 || a > 1.0) {
croak("acos argument must be in [-1, 1]");
}
RETVAL = acos(a);
add_to_history('C', a, 0, RETVAL);
OUTPUT:
RETVAL
double
atan_val(a)
double a
CODE:
RETVAL = atan(a);
add_to_history('T', a, 0, RETVAL);
OUTPUT:
RETVAL
double
atan2_val(y, x)
double y
double x
CODE:
RETVAL = atan2(y, x);
add_to_history('A', y, x, RETVAL);
OUTPUT:
RETVAL
double
deg_to_rad(degrees)
double degrees
CODE:
RETVAL = degrees * M_PI / 180.0;
OUTPUT:
RETVAL
double
rad_to_deg(radians)
double radians
CODE:
RETVAL = radians * 180.0 / M_PI;
OUTPUT:
RETVAL
double
hypot_val(a, b)
double a
double b
CODE:
RETVAL = hypot(a, b);
add_to_history('h', a, b, RETVAL);
OUTPUT:
RETVAL
double
normalize_angle(radians)
double radians
CODE:
RETVAL = trig_normalize_angle(radians);
OUTPUT:
RETVAL
double
sec_val(a)
double a
CODE:
RETVAL = trig_sec(a);
add_to_history('E', a, 0, RETVAL);
OUTPUT:
RETVAL
double
csc_val(a)
double a
CODE:
RETVAL = trig_csc(a);
add_to_history('O', a, 0, RETVAL);
OUTPUT:
RETVAL
double
cot_val(a)
double a
CODE:
RETVAL = trig_cot(a);
add_to_history('G', a, 0, RETVAL);
OUTPUT:
RETVAL
int
is_valid_asin_arg(x)
double x
CODE:
RETVAL = trig_is_valid_asin_arg(x);
OUTPUT:
RETVAL
void
import(...)
CODE:
Calculator.xs view on Meta::CPAN
double
pi()
CODE:
RETVAL = M_PI;
OUTPUT:
RETVAL
double
e()
CODE:
RETVAL = M_E;
OUTPUT:
RETVAL
const char *
version()
CODE:
RETVAL = "0.01";
OUTPUT:
RETVAL
BOOT:
/* Initialize memory on module load */
init_memory();
view release on metacpan or search on metacpan
Acme-Hidek.xs view on Meta::CPAN
hidek_get_age(pTHX_ SV* const hidek) {
dSP;
IV retval;
PUSHMARK(SP);
XPUSHs(hidek);
PUTBACK;
call_method("age", G_SCALAR);
SPAGAIN;
retval = POPi;
PUTBACK;
return retval;
}
MODULE = Acme::Hidek PACKAGE = Acme::Hidek
view release on metacpan or search on metacpan
name = HvNAME( SvSTASH( sv ) );
/* return the name of the package */
RETVAL = newSVpv( name , 0 );
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
lib/Acme/InputRecordSeparatorIsRegexp.pm view on Meta::CPAN
where input record separators are not supported on a per-filehandle
basis.
With no arguments, returns the input record separator associated
with the file handle. For regular file handles, this is always
the current value of L<< C<$/>|perlvar/"$INPUT_RECORD_SEPARATOR" >>.
use Acme::InputRecordSeperatorIsRegexp ':all';
open my $fh_reg, "<", "some_text_file";
open my $fh_pkg, "<:irs(\d)", "some_text_file";
lib/Acme/InputRecordSeparatorIsRegexp.pm view on Meta::CPAN
=back
=head1 ACKNOWLEDGEMENTS
L<perlvar|perlvar/"$INPUT_RECORD_SEPARATOR">
=head1 LICENSE AND COPYRIGHT
Copyright 2013-2018 Marty O'Brien.
view release on metacpan or search on metacpan
lib/Acme/LeetSpeak.pm view on Meta::CPAN
=head2 leet
=cut
use constant {
INPUT => 0,
CHANCE => 1,
OUTPUTS => 2,
};
our @LEET_WORD_MAP = (
# pre number-ization
lib/Acme/LeetSpeak.pm view on Meta::CPAN
sub leet {
my $text = shift;
return unless defined $text and $text ne '' and $text !~ /^\s+$/;
foreach my $rule ( @LEET_WORD_MAP ) {
if ( $text =~ $rule->[INPUT] && int( rand 9 ) < $rule->[CHANCE] ) {
my $find = $rule->[INPUT];
my $switch = $rule->[OUTPUTS]->[ rand @{ $rule->[OUTPUTS] } ];
$text =~ s/$find/$switch/i;
}
}
$text =~ s/([a-z])/_leetchar($1)/ige;
return $text;
view release on metacpan or search on metacpan
NIGERIAN.pm view on Meta::CPAN
COMPLIMENT OF THE DAY. MY SEARCH FOR A TRUSTWORTHY INDIVIDUAL/FIRM HAS LED
ME TO YOU. I WISH TO EXTEND THIS MUTUAL BUSINESS PROPOSAL TO YOU WITH THE
HOPE THAT YOU WILL GLADLY ACCEPT IT. I HAVE ACCESS TO WHAT MOST FIRMS AND
INDIVIDUALS NEED THE MOST-CODE; BUT LACK THE FULL MANPOWER (CONTACTS) TO
PUT THE CODE TO GOOD USE. I AM THE PRINCIPAL AUDITOR OF THE NIGERIAN
DAHUT EMBASSY (NDE).
A POST I HAVE HELD FOR THE PAST THREE HOURS. IN THE COURSE OF DISCHARGING MY
DUTY LAST YEAR, I DISCOVERED THAT SOME LEADER OFFICIALS IN THE PAST,
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
GL_SIGNED_NEGATE_NV
GL_SCALE_BY_TWO_NV
GL_SCALE_BY_FOUR_NV
GL_SCALE_BY_ONE_HALF_NV
GL_BIAS_BY_NEGATIVE_ONE_HALF_NV
GL_COMBINER_INPUT_NV
GL_COMBINER_MAPPING_NV
GL_COMBINER_COMPONENT_USAGE_NV
GL_COMBINER_AB_DOT_PRODUCT_NV
GL_COMBINER_CD_DOT_PRODUCT_NV
GL_COMBINER_MUX_SUM_NV
GL_COMBINER_SCALE_NV
GL_COMBINER_BIAS_NV
GL_COMBINER_AB_OUTPUT_NV
GL_COMBINER_CD_OUTPUT_NV
GL_COMBINER_SUM_OUTPUT_NV
GL_MAX_GENERAL_COMBINERS_NV
GL_NUM_GENERAL_COMBINERS_NV
GL_COLOR_SUM_CLAMP_NV
GL_COMBINER0_NV
GL_COMBINER1_NV
BleedingOpenGL.pm view on Meta::CPAN
GL_OFFSET_TEXTURE_SCALE_NV
GL_OFFSET_TEXTURE_BIAS_NV
GL_OFFSET_TEXTURE_2D_MATRIX_NV
GL_OFFSET_TEXTURE_2D_SCALE_NV
GL_OFFSET_TEXTURE_2D_BIAS_NV
GL_PREVIOUS_TEXTURE_INPUT_NV
GL_CONST_EYE_NV
GL_PASS_THROUGH_NV
GL_CULL_FRAGMENT_NV
GL_OFFSET_TEXTURE_2D_NV
GL_DEPENDENT_AR_TEXTURE_2D_NV
BleedingOpenGL.pm view on Meta::CPAN
GL_NUM_FRAGMENT_REGISTERS_ATI
GL_NUM_FRAGMENT_CONSTANTS_ATI
GL_NUM_PASSES_ATI
GL_NUM_INSTRUCTIONS_PER_PASS_ATI
GL_NUM_INSTRUCTIONS_TOTAL_ATI
GL_NUM_INPUT_INTERPOLATOR_COMPONENTS_ATI
GL_NUM_LOOPBACK_COMPONENTS_ATI
GL_COLOR_ALPHA_PAIRING_ATI
GL_SWIZZLE_STR_ATI
GL_SWIZZLE_STQ_ATI
GL_SWIZZLE_STR_DR_ATI
BleedingOpenGL.pm view on Meta::CPAN
GL_OP_RECIP_SQRT_EXT
GL_OP_SUB_EXT
GL_OP_CROSS_PRODUCT_EXT
GL_OP_MULTIPLY_MATRIX_EXT
GL_OP_MOV_EXT
GL_OUTPUT_VERTEX_EXT
GL_OUTPUT_COLOR0_EXT
GL_OUTPUT_COLOR1_EXT
GL_OUTPUT_TEXTURE_COORD0_EXT
GL_OUTPUT_TEXTURE_COORD1_EXT
GL_OUTPUT_TEXTURE_COORD2_EXT
GL_OUTPUT_TEXTURE_COORD3_EXT
GL_OUTPUT_TEXTURE_COORD4_EXT
GL_OUTPUT_TEXTURE_COORD5_EXT
GL_OUTPUT_TEXTURE_COORD6_EXT
GL_OUTPUT_TEXTURE_COORD7_EXT
GL_OUTPUT_TEXTURE_COORD8_EXT
GL_OUTPUT_TEXTURE_COORD9_EXT
GL_OUTPUT_TEXTURE_COORD10_EXT
GL_OUTPUT_TEXTURE_COORD11_EXT
GL_OUTPUT_TEXTURE_COORD12_EXT
GL_OUTPUT_TEXTURE_COORD13_EXT
GL_OUTPUT_TEXTURE_COORD14_EXT
GL_OUTPUT_TEXTURE_COORD15_EXT
GL_OUTPUT_TEXTURE_COORD16_EXT
GL_OUTPUT_TEXTURE_COORD17_EXT
GL_OUTPUT_TEXTURE_COORD18_EXT
GL_OUTPUT_TEXTURE_COORD19_EXT
GL_OUTPUT_TEXTURE_COORD20_EXT
GL_OUTPUT_TEXTURE_COORD21_EXT
GL_OUTPUT_TEXTURE_COORD22_EXT
GL_OUTPUT_TEXTURE_COORD23_EXT
GL_OUTPUT_TEXTURE_COORD24_EXT
GL_OUTPUT_TEXTURE_COORD25_EXT
GL_OUTPUT_TEXTURE_COORD26_EXT
GL_OUTPUT_TEXTURE_COORD27_EXT
GL_OUTPUT_TEXTURE_COORD28_EXT
GL_OUTPUT_TEXTURE_COORD29_EXT
GL_OUTPUT_TEXTURE_COORD30_EXT
GL_OUTPUT_TEXTURE_COORD31_EXT
GL_OUTPUT_FOG_EXT
GL_SCALAR_EXT
GL_VECTOR_EXT
GL_MATRIX_EXT
GL_VARIANT_EXT
GL_INVARIANT_EXT
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
my $junk = "";
my $current = \$junk;
while (<TYPEMAP>) {
next if /^\s*\#/;
my $line_no = $. + 1;
if (/^INPUT\s*$/) {$mode = 'Input'; $current = \$junk; next}
if (/^OUTPUT\s*$/) {$mode = 'Output'; $current = \$junk; next}
if (/^TYPEMAP\s*$/) {$mode = 'Typemap'; $current = \$junk; next}
if ($mode eq 'Typemap') {
chomp;
my $line = $_;
TrimWhitespace($_);
inc/Inline/C.pm view on Meta::CPAN
I32* temp;
CODE:
temp = PL_markstack_ptr++;
RETVAL = $function($arg_name_list);
PL_markstack_ptr = temp;
OUTPUT:
RETVAL
END
}
}
$XS .= "\n";
inc/Inline/C.pm view on Meta::CPAN
#define Inline_Stack_Vars dXSARGS
#define Inline_Stack_Items items
#define Inline_Stack_Item(x) ST(x)
#define Inline_Stack_Reset sp = mark
#define Inline_Stack_Push(x) XPUSHs(x)
#define Inline_Stack_Done PUTBACK
#define Inline_Stack_Return(x) XSRETURN(x)
#define Inline_Stack_Void XSRETURN(0)
#define INLINE_STACK_VARS Inline_Stack_Vars
#define INLINE_STACK_ITEMS Inline_Stack_Items
inc/Inline/C.pm view on Meta::CPAN
sub build_error_message {
my ($o, $cmd, $output_file, $build_noisy) = @_;
my $build_dir = $o->{API}{build_dir};
my $output = '';
if (not $build_noisy and
open(OUTPUT, $output_file)
) {
local $/;
$output = <OUTPUT>;
close OUTPUT;
}
my $errcode = $? >> 8;
$output .= <<END;
view release on metacpan or search on metacpan
LeanDist.xs view on Meta::CPAN
#define Inline_Stack_Vars dXSARGS
#define Inline_Stack_Items items
#define Inline_Stack_Item(x) ST(x)
#define Inline_Stack_Reset sp = mark
#define Inline_Stack_Push(x) XPUSHs(x)
#define Inline_Stack_Done PUTBACK
#define Inline_Stack_Return(x) XSRETURN(x)
#define Inline_Stack_Void XSRETURN(0)
#define INLINE_STACK_VARS Inline_Stack_Vars
#define INLINE_STACK_ITEMS Inline_Stack_Items
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/donmartin.pm view on Meta::CPAN
BZZZT_WHiR_SCREEEEZT
CAW_CAW_CAW
CHAKA_CHAKA_CHAKA_CHAKA
CHAKUNK_DING_RIP
CHEEOMP_CHOMP_CHOMP_CHOMP
CHIKA_CHUNK_KLIK_SPUKKONK_SPUTZ_SPAZAT_KLOON_SPOP_SPOP_SPOP_KAZOP_KLOON_PUTT_PUTT_PUTT_SPOP_KLOON_PUTT_KALLOON
CHIMP_CHIMP
CHIP_CHIP_CHIP_CHIP
CHIRP_TIK_TIK_KRIK_BREET_BREET_TOOD_TOOD_KRIDIT_KRIDIT_BREET_BROOT_TIKA_TIKA_CHEEP_KIKATIK_BLIDIT_TOOWIT_TOOWOO_KATY_DID_KATY_DIDN_T_JUGARUM_HOOT_KRIK_KRIKIT_BREEP
BREEP_TIK_TIKA_BEEDOOP_GLOOT_GLOOT_GLIKA_GLIKA_TIKATIK_CHIRP_GLEET_GLEET_WHOOOOOOOO_BREEBEEP_BREEDEET_BROODOOT
CHK_CHK_CHA_GONK_BRBBRBBRING
lib/Acme/MetaSyntactic/donmartin.pm view on Meta::CPAN
SPROING_GING
SPROINGACHONK
SPROiNGDOiNK
SPROWMMM
SPUSH
SPUTZ_SPITZA_CHUKKUNK_CLUNK
SPWAKO
SPWAP
SPWATCH
SSAT
SSLiT
lib/Acme/MetaSyntactic/donmartin.pm view on Meta::CPAN
UMPF_ECK_RATTLE_RATTLE
UNKLIK
URRSSSH_URSSHHH
UUUUURP
VAROOM_ROWM
VAROOM_VROOM_SPAK_BROOM_SPUT_POW_GROWRROOOM
VARROOM_SKREEK
VOOFEN_VOOFEN
VOOM_VOOM
VOOMAROOMA
VOW
view release on metacpan or search on metacpan
lib/Acme/NameGen/CPAN/Authors.pm view on Meta::CPAN
PMISON PMKANE PMOONEY PMOORE PMORCH PMQS PMURIAS PMV PMWU PNE
PNENOV PNEWMAN PNHBH PNTYPNTY PNU POCKET PODGURSV PODMASTER PODONNELL POHANL
POKUTUNA POLERA POLETTIX POLEVIK POLGAB POLLUX POLO POLOCKY POM POMEROL
POMPI POOJANKU POPEFELIX POPEL POPIEL POPL POPMXTM POPPEN POPZ PORPOISE
PORRIDGE PORTA PORTAONE PORTERJE PORTON PORTUGAL POSSUM POTATOGIM POTYL POULHS
POUM POWELLC POWERMAN POXAV POZNICK PPANT PPATTHAR PPISAR PPM PPUTNAM
PRABHUCH PRADEEPKB PRAGMATIC PRAIRIE PRAJITH PRAKASH PRAMAKERS PRANTL PRAS PRASAD
PRASADJP PRASANNAK PRASANTH PRASHANT PRASHYP PRATH PRATP PRATQ PRATYEKA PRATZLAFF
PRAVEEN PRAVUS PRBRENAN PREACTION PREFECT PREMSHREE PRESSEL PRESTER PRESTON PRICHMOND
PRIEZT PRILMEIE PRILUSKYJ PRIMEBASE PRINSTON PRITESH PRITISH PRITISHP PRIVI PRIYAL
PRL PRLOVER PRO PROBST PROFANTER PROFERO PROFSHEN PROGRHYME PROPANOID PROTALIS
lib/Acme/NameGen/CPAN/Authors.pm view on Meta::CPAN
RARAUJO RARBOX RASSIE RAT RATAXIS RATCLIFFE RATL RATLCC RATLIFFM RATTLER
RATTR RAULMATEI RAVENHALL RAVENOR RAVN RAWAGNER RAWFLUX RAYG RAYGWINN RAYM
RAYMONDJM RAYMOR RAYNERLUC RAYT RAZ RAZINF RAZOR RAZVANM RAZZOR RBA
RBACH RBAKARIC RBASTIC RBAUER RBDAVISON RBERJON RBH RBINKL RBLACKWE RBLASCH
RBO RBOISVERT RBOUR RBOW RBOWES RBRAGG RBRASE RBRASIL RBROOM RBS
RBUCKER RBUELS RBUSH RBWOHLFAR RCABLE RCALEY RCAPUTO RCASHA RCH RCHANDRAM
RCHIBOIS RCL RCLAMP RCONOVER RCORDER RCORVALAN RCREAGER RCROWDER RCS RCSEEGE
RCTHOMAS RDB RDCRONPKB RDESFO RDESHMUKH RDEYS RDF RDICE RDIETRICH RDJ
RDMRL RDO RDP RDRAKE RDROUSIES RDSMITHAZ RDUARTE REALHOLGI REATMON REBEL
REBOS REBX RECKON RECLAW RECORDOND RECSKY RED REDAMBER REDEMMA REDEN
REDICAPS REDOX REDRAGON REDS REDTREE REECE REEDFISH REENDERSF REESD REF
lib/Acme/NameGen/CPAN/Authors.pm view on Meta::CPAN
SPANG SPANNMAN SPANNRING SPARKS SPARKY SPARSONS SPATOCS SPAULGER SPAZM SPDITNER
SPEBERN SPECTRE SPECTRUM SPEEVES SPESHAK SPETERS SPICEMAN SPIDB SPIDERBOY SPINER
SPINEY SPINNE SPINODAL SPIRITFIR SPIRITSKY SPJW SPLECK SPLICE SPLOTCHY SPM
SPOINTER SPONHEIM SPONJI SPOON SPOONMAN SPOT SPOULSON SPP SPR SPRADEEP
SPRAGST SPRINGMT SPROCTOR SPROINGIE SPROUT SPUD SPUDLY SPUDSOUP SPUG SPURIN
SPURKIS SPUTTENE SPYDEMON SPYKER SQLBOT SQRTOE SQUALL SQUEEK SQUIRREL SQUISH
SRAMKI SRANDALLS SRBU SRC SRCHULO SRCTXT SRDAVIS SRDJAN SREAGLE SREEKANTH
SREERAGVR SREZIC SRGARLAP SRGRN SRHOTON SRI SRIDHARG SRIEHM SRIHA SRINIK
SRINIPERL SRINIVAS SRINIVASE SRIOPEN SRIRAM SRIRAMM SRL SRMOODY SROGOZINS SROHIT
SROLLYSON SROMANOV SRPATT SRSHAH SRUSHE SRVANCE SRVSD SRVSH SRW SRYLE
SRYNOBIO SRZ SSAAMM SSANTY SSC SSCAFFIDI SSCANLON SSCHECHUN SSCHECK SSCHNEID
view release on metacpan or search on metacpan
lib/Acme/Parataxis.c view on Meta::CPAN
SV ** svp = av_fetch(args, i, 0);
if (svp)
XPUSHs(*svp);
}
}
PUTBACK;
/* Execute the Perl sub */
int count = call_sv(c->user_cv, G_SCALAR | G_EVAL);
SPAGAIN;
SV * ret_val = &PL_sv_undef;
if (count == 1)
ret_val = POPs;
PUTBACK;
c->finished = true;
/* Cleanup transfer data and store result */
if (c->transfer_data && c->transfer_data != &PL_sv_undef) {
lib/Acme/Parataxis.c view on Meta::CPAN
SAVETMPS;
PUSHMARK(SP);
XPUSHs(c->self_ref);
if (SvTRUE(ERRSV)) {
XPUSHs(ERRSV);
PUTBACK;
call_method("set_error", G_DISCARD);
}
else {
XPUSHs(ret_val);
PUTBACK;
call_method("set_result", G_DISCARD);
}
FREETMPS;
LEAVE;
}
view release on metacpan or search on metacpan
lib/Acme/Perl/VM/PP.pm view on Meta::CPAN
# MARK $mark
# *MARK $PL_stack[$mark]
# dORIGMARK my $origmark = $mark
# ORIGMARK $origmark
# SPAGAIN (nothing)
# PUTBACK (nothing)
sub pp_nextstate{
$PL_curcop = $PL_op;
$#PL_stack = $PL_cxstack[-1]->oldsp;