view release on metacpan or search on metacpan
vendor/qrencode-3.4.2/use/ltmain.sh view on Meta::CPAN
*)
# Relative path, prepend $cwd.
func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath
;;
esac
# Cancel out all the simple stuff to save iterations. We also want
# the path to end with a slash for ease of parsing, so make sure
# there is one (and only one) here.
func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$removedotparts" -e "$collapseslashes" -e "$finalslash"`
while :; do
view release on metacpan or search on metacpan
Mandelbrot/Mandelbrot.pm view on Meta::CPAN
C<miny>, C<maxy> - the range of y values to render. Defaults: -1.5, 1.5
=item *
C<maxiter> - the maximum number of iterations to perform when checking
if the sequence tend towards infinity.
=back
=head1 AUTHOR
view release on metacpan or search on metacpan
ffi/target/release/build/mlua-sys-6a99a2ae50f12319/out/luajit-build/build/dynasm/dynasm.lua view on Meta::CPAN
if subst then gotsubst = word; return subst else return word end
end
-- Iteratively substitute defines.
local function definesubst(stmt)
-- Limit number of iterations.
for i=1,100 do
gotsubst = false
stmt = gsub(stmt, "#?[%w_]+", definesubst_one)
if not gotsubst then break end
end
view release on metacpan or search on metacpan
t/35dictunicodememleak.t view on Meta::CPAN
$rss *= 1024;
}
return $rss;
}
my $iterations = 3_000_000;
my $rss_before_iterations = get_rss_memory();
# print STDERR "RSS before python_dict_with_unicode_key(): $rss_before_iterations\n";
my $dict;
for (my $x = 0; $x < $iterations; ++$x) {
$dict = python_dict_with_unicode_key();
}
my $rss_after_iterations = get_rss_memory();
# print STDERR "RSS after python_dict_with_unicode_key(): $rss_after_iterations\n";
ok( $rss_after_iterations - $rss_before_iterations < 100 * 1024 * 1024, "RSS takes up less than 100 MB" );
Test::Deep::cmp_deeply( $dict, { 'abcdefghijklmno' => 1, 'pqrstuvwxyz' => 2 } );
view release on metacpan or search on metacpan
t/lib/MyTest/Utils.pm view on Meta::CPAN
my $err = $@;
my $ctx = context();
is( $cnt, $max, 'not enough or too few iterations' );
$ctx->release;
die $@ if $@;
}
view release on metacpan or search on metacpan
};
is $@, q{}, q{Created one-arg iterator; no exception};
# How do you test an infinite iterator?
# Well, let's run through a bunch of iterations, see if it pans out.
$worked = 1; # assume okay
eval
{
foreach my $test (52..151) # try a hundred values
{
view release on metacpan or search on metacpan
lib/IxNetwork/IxNetwork.pm view on Meta::CPAN
my $sock = $_socket;
my $rin = '';
my $win = '';
my $buffer = '';
my $timeout = 15;
my $iterations = 2;
vec($rin, fileno($sock), 1) = 1;
vec($win, fileno($sock), 1) = 1;
my $ein= $rin | $win;
my $socketOpen = select(my $rout = $rin, my $wout = $win, my $eout = $ein, 1);
while ($iterations > 0 and !$socketOpen) {
$socketOpen = select(my $rout = $rin, my $wout = $win, my $eout = $ein, 1);
$iterations -= 1;
}
if (!$socketOpen) {
die "Host is unreachable.\n";
}
$_socket->blocking(1);
view release on metacpan or search on metacpan
t/12-statements.t view on Meta::CPAN
/* 33-45 */
is_eval('3;do;while(0)', 3, 'do with one iteration returning nothing')
is_eval('do 3;while(0)', 3, 'do with one iteration returning something')
is_eval('var x=0; do if(x);else 3;while(!x++)', 3,
'do with two iterations, returning the value of the first')
is_eval('var x=0; do if(x)4;else 3;while(!x++)', 4,
'do with two iterations, returning the value of the 2nd')
is_eval('3;var x=0; do;while(!x++)', 3,
'do with two iterations, returning nothing')
x = 0; y=0
do { if(!x) continue; else ++y; ++y; } while(!x++)
is(y, 2, 'do-continue without label')
t/12-statements.t view on Meta::CPAN
is_eval('var x=0;3;while(!x++);', 3,
'while with one iteration returning nothing')
is_eval('var x=0;while(!x++)3', 3,
'while with one iteration returning something')
is_eval('var x=-1; while(++x<2)if(x);else 3;', 3,
'while with two iterations, returning the value of the first')
is_eval('var x=-1; while(++x<2)if(x)4;else 3;', 4,
'while with two iterations, returning the value of the 2nd')
is_eval('3;var x=-1; while(++x<2);', 3,
'do with two iterations, returning nothing')
x = -1; y=0
while(++x<2) { if(!x) continue; else ++y; ++y; }
is(y, 2, 'while-continue without label')
t/12-statements.t view on Meta::CPAN
is_eval('var x=0;3;for(;x<1;++x);', 3,
'for(;;) with one iteration returning nothing')
is_eval('var x=0;for(;x<1;++x)3', 3,
'for(;;) with one iteration returning something')
is_eval('var x=-1; for(;++x<2;)if(x);else 3;', 3,
'for(;;) with two iterations, returning the value of the first')
is_eval('var x=-1; for(;++x<2;)if(x)4;else 3;', 4,
'for(;;) with two iterations, returning the value of the 2nd')
is_eval('3;var x=-1; for(;++x<2;);', 3,
'do with two iterations, returning nothing')
x = 0; y=0
for(;x<2;x++) { if(!x) continue; else ++y; ++y; }
is(y+' '+x, '2 2', 'for(;;)-continue without label')
t/12-statements.t view on Meta::CPAN
is_eval('3;for(var x=0;x<1;++x);', 3,
'for(var;;) with one iteration returning nothing')
is_eval('for(var x=0;x<1;++x)3', 3,
'for(var;;) with one iteration returning something')
is_eval('; for(var x=-1;++x<2;)if(x);else 3;', 3,
'for(var;;) with two iterations, returning the value of the first')
is_eval('; for(var x=-1;++x<2;)if(x)4;else 3;', 4,
'for(var;;) with two iterations, returning the value of the 2nd')
is_eval('3;; for(var x=-1;++x<2;);', 3,
'for(var;;) with two iterations, returning nothing')
for(var x = 0, y=0;x<2;x++) { if(!x) continue; else ++y; ++y; }
is(y+' '+x, '2 2', 'for(var ;;)-continue without label')
ihat: aur: for(var x = 0, y=0;!y++;) { continue ihat; x = 1 }
t/12-statements.t view on Meta::CPAN
is_eval('var x;3;for(x in o1);', 3,
'for-in with one iteration returning nothing')
is_eval('var x;for(x in o1)3', 3,
'for-in with one iteration returning something')
is_eval('var x=0,y;for(y in o)if(x++);else 3;', 3,
'for-in with two iterations, returning the value of the first')
is_eval('var x=0,y; for(y in o)if(x++)4;else 3;', 4,
'for-in with two iterations, returning the value of the 2nd')
is_eval('3;var x;for(x in o);', 3,
'for-in with two iterations, returning nothing')
var a = []
for(a[a.length] in o);
is(a.sort(), 'a,c', 'the lhs gets property names assigned')
t/12-statements.t view on Meta::CPAN
is_eval('3;for(var x in o1);', 3,
'for-var-in with one iteration returning nothing')
is_eval('for(var x in o1)3', 3,
'for-var-in with one iteration returning something')
is_eval('var x=0;for(var y in o)if(x++);else 3;', 3,
'for-var-in with two iterations, returning the value of the first')
is_eval('var x=0; for(var y in o)if(x++)4;else 3;', 4,
'for-var-in with two iterations, returning the value of the 2nd')
is_eval('3;for(var x in o);', 3,
'for-var-in with two iterations, returning nothing')
var a = []
for(var x in o) a.push(x);
is(a.sort(), 'a,c', 'the lhs gets property names assigned')
view release on metacpan or search on metacpan
t/data/hypercritical.json view on Meta::CPAN
},
"date_published" : "2012-11-27T09:42:00-05:00",
"id" : "http://hypercritical.co/2012/11/27/strange-game",
"date_modified" : "2012-11-27T09:42:00-05:00",
"title" : "Strange Game",
"content_html" : "<div class=\"image header\"><img src=\"/2012/11/27/images/journey.jpg\" width=\"640\" height=\"360\" alt=\"Journey\"/></div>\n\n<p><i>This article originally appeared in <a href=\"http://the-magazine.org/2/strange-game\">is...
"url" : "http://hypercritical.co/2012/11/27/strange-game"
},
{
"date_modified" : "2014-10-17T08:59:48-04:00",
"title" : "About My Mountain Lion Review",
view release on metacpan or search on metacpan
if (SvMAGICAL (hv))
{
// need to count by iterating. could improve by dynamically building the vector below
// but I don't care for the speed of this special case.
// note also that we will run into undefined behaviour when the two iterations
// do not result in the same count, something I might care for in some later release.
count = 0;
while (hv_iternext (hv))
++count;
view release on metacpan or search on metacpan
eg/bench.pl view on Meta::CPAN
use Carp qw(confess);
$SIG{__DIE__} = \&confess;
GetOptions(
'i|iterations=i' => \my $Iterations,
'x|jsonxs' => \my $TestJsonxs,
's|jsonsl' => \my $TestJsonsl,
'j|jpr' => \my $TestJsonpointer,
'c|chunked=i' => \my $TestChunks,
'f|file=s' => \my $TESTFILE,
eg/bench.pl view on Meta::CPAN
);
if ($PrintHelp) {
print STDERR <<EOF;
$0 [options]
-i --iterations=NUM Number of iterations
-x --jsonxs Benchmark JSON::XS
-s --jsonsl Benchmark JSON::SL
-j --jpr Test JSONPointer functionality
-f --file=FILE Run benchmarks on FILE
-c --chunked=SIZE Test incremental chunks of SIZE bytes
view release on metacpan or search on metacpan
t/issue-272-recursive-data-protection.t view on Meta::CPAN
},
};
}
my $spec_url = 'https://spec.openapis.org/oas/3.1/schema/2021-05-20';
my $iterations = 500;
my (%errors, $failures);
for (1 .. $iterations) {
my $schema = JSON::Validator::Schema::OpenAPIv3->new(spec(), specification => $spec_url);
next unless my @e = @{$schema->errors};
$failures++;
$errors{"$_"}++ for @e;
}
is $failures, undef, "valid 3.1 \$ref parameter stays valid across $iterations validations (#272)"
or diag "spurious errors: " . join(', ', map {"$_ x$errors{$_}"} sort keys %errors);
done_testing;
view release on metacpan or search on metacpan
--blank-lines-before-packages=0
--iterations=2
--no-outdent-long-comments
-b
-bar
-boc
-ci=4
view release on metacpan or search on metacpan
if (SvMAGICAL (hv))
{
// need to count by iterating. could improve by dynamically building the vector below
// but I don't care for the speed of this special case.
// note also that we will run into undefined behaviour when the two iterations
// do not result in the same count, something I might care for in some later release.
count = 0;
while (hv_iternext (hv))
++count;
view release on metacpan or search on metacpan
t/11_stress.t view on Meta::CPAN
my $json = encode_json({s => $long});
my $back = decode_json($json);
is length($back->{s}), 100_000, "100K string roundtrip";
}
# many iterations
{
my $json = encode_json([map { {id => $_} } 1..1000]);
my $doc = jdoc $json;
my $it = jiter $doc, "";
my $count = 0;
view release on metacpan or search on metacpan
lib/Jabber/Lite.pm view on Meta::CPAN
$wghtpos = abs( int( rand( $wghtcnt + 1 ) + ( $wghthigh - $wghtnum ) ) );
$trycnt++;
}
# Did the loop exit due to success, or because
# of too many iterations?
if( defined( $weights{"$wghtpos"} ) ){
# Count up until we find one.
$wghtpos = 0;
while( defined( $weights{"$wghtpos"} ) ){
$wghtpos++;
view release on metacpan or search on metacpan
DUK_LOCAL duk_int_t duk__year_from_day(duk_int_t day, duk_small_int_t *out_day_within_year) {
duk_int_t year;
duk_int_t diff_days;
/* estimate year upwards (towards positive infinity), then back down;
* two iterations should be enough
*/
if (day >= 0) {
year = 1970 + day / 365;
} else {
view release on metacpan or search on metacpan
lib/JavaScript/Duktape/C/lib/duktape.c view on Meta::CPAN
DUK_LOCAL duk_int_t duk__year_from_day(duk_int_t day, duk_small_int_t *out_day_within_year) {
duk_int_t year;
duk_int_t diff_days;
/* estimate year upwards (towards positive infinity), then back down;
* two iterations should be enough
*/
if (day >= 0) {
year = 1970 + day / 365;
} else {
view release on metacpan or search on metacpan
lib/JavaScript/Embedded/C/lib/duktape.c view on Meta::CPAN
DUK_LOCAL duk_int_t duk__year_from_day(duk_int_t day, duk_small_int_t *out_day_within_year) {
duk_int_t year;
duk_int_t diff_days;
/* estimate year upwards (towards positive infinity), then back down;
* two iterations should be enough
*/
if (day >= 0) {
year = 1970 + day / 365;
} else {
view release on metacpan or search on metacpan
share/ext-3.4.1/docs/extjs/ext-all.js view on Meta::CPAN
--
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT OF THIRD-PARTY INTELLECTUAL PROPERTY RIGHTS. See t...
*/
var Ext=Ext||{};Ext._startTime=new Date().getTime();(function(){var h=this,a=Object.prototype,j=a.toString,b=true,g={toString:1},e=function(){},d=function(){var i=d.caller.caller;return i.$owner.prototype[i.$name].apply(this,arguments)},c;Ext.global=...
view release on metacpan or search on metacpan
xt/author/leaks-xs.t view on Meta::CPAN
###############################################################################
# Sanity check: minify actually does something.
ok minify($js), 'minify() returned minified JS';
###############################################################################
# Warm things up. Runs a handful of iterations so that our memory allocator
# can reach a steady state.
minify($js) for (1 .. $ITERS_WARMUP);
###############################################################################
# Measure RSS growth over repeated calls to the minifier. If the XS code is
view release on metacpan or search on metacpan
quickjs/libbf.c view on Meta::CPAN
*/
bit = get_bit(a->tab, a->len, bit_pos);
bit_pos--;
n--;
bit ^= is_rndn;
/* XXX: slow, but a few iterations on average */
while (n != 0) {
if (get_bit(a->tab, a->len, bit_pos) != bit)
return TRUE;
bit_pos--;
n--;
quickjs/libbf.c view on Meta::CPAN
}
// printf("n=%ld\n", n);
// bf_print_str("T", T);
/* XXX: precision analysis */
/* number of iterations for argument reduction 2 */
K = bf_isqrt((prec + 1) / 2);
/* order of Taylor expansion */
l = prec / (2 * K) + 1;
/* precision of the intermediate computations */
prec1 = prec + K + 2 * l + 32;
view release on metacpan or search on metacpan
share/handlebars-v4.0.11.js view on Meta::CPAN
} else {
var priorKey = undefined;
for (var key in context) {
if (context.hasOwnProperty(key)) {
// We're running the iterations one step out of sync so we can detect
// the last iteration without have to scan the object twice and create
// an itermediate keys array.
if (priorKey !== undefined) {
execIteration(priorKey, i - 1);
}
view release on metacpan or search on metacpan
t/03_eval_in_loop.t view on Meta::CPAN
# last;
}
my $t1 = Time::HiRes::gettimeofday();
my $elapsed = 1000.0 * ($t1 - $t0);
ok($count == $times,
sprintf("did all %d iterations with reset=%d, %.0f ms, %.2fms each",
$times, $do_reset ? 1 : 0, $elapsed, $elapsed / $times));
}
sub main {
use_ok($CLASS);
view release on metacpan or search on metacpan
Tree/Numbered.pm view on Meta::CPAN
my $cursor = $self->{Cursor};
my $length = $self->childCount;
$cursor++;
# return undef when end of iterations. On next call - reset counter.
if ($cursor > $length) {
$cursor = ($length) ? 0 : -1;
}
$self->{Cursor} = $cursor;
view release on metacpan or search on metacpan
lib/Jemplate/Directive.pm view on Meta::CPAN
var failsafe = $WHILE_MAX;
while (--failsafe && ($expr)) {
$block
}
if (! failsafe)
throw("WHILE loop terminated (> $WHILE_MAX iterations)\\n")
EOF
}
#------------------------------------------------------------------------
# javascript($script) [% JAVASCRIPT %]
view release on metacpan or search on metacpan
share/plugins/Jifty/Plugin/Prototypism/web/static/js/prototypism/scriptaculous/unittest.js view on Meta::CPAN
}.bind(this)) && this.pass();
},
assertElementMatches: function(element, expression) {
this.assertElementsMatch([element], expression);
},
benchmark: function(operation, iterations) {
var startAt = new Date();
(iterations || 1).times(operation);
var timeTaken = ((new Date())-startAt);
this.info((arguments[2] || 'Operation') + ' finished ' +
iterations + ' iterations in ' + (timeTaken/1000)+'s' );
return timeTaken;
},
_isVisible: function(element) {
element = $(element);
if(!element.parentNode) return true;
share/plugins/Jifty/Plugin/Prototypism/web/static/js/prototypism/scriptaculous/unittest.js view on Meta::CPAN
this.assert(!this._isVisible(element), Test.Unit.inspect(element) + " was not hidden and didn't have a hidden parent either. " + ("" || arguments[1]));
},
assertVisible: function(element) {
this.assert(this._isVisible(element), Test.Unit.inspect(element) + " was not visible. " + ("" || arguments[1]));
},
benchmark: function(operation, iterations) {
var startAt = new Date();
(iterations || 1).times(operation);
var timeTaken = ((new Date())-startAt);
this.info((arguments[2] || 'Operation') + ' finished ' +
iterations + ' iterations in ' + (timeTaken/1000)+'s' );
return timeTaken;
}
}
Test.Unit.Testcase = Class.create();
view release on metacpan or search on metacpan
lib/Geo/KML/PolyMap.pm view on Meta::CPAN
#Recalculate centroids
$rcenters = recalculate_centroids($data,$rcenters,$assn);
#Assign points to clusters
my $newassn = assign_clusters($data,$rcenters);
# End the iterations if the assignments don't change
my $done = 1;
for (my $i = 0;$i<scalar(@$newassn) and $done; $i++) {
$done = ($assn->[$i] == $newassn->[$i])
}
if ($done) {
view release on metacpan or search on metacpan
cuda/matrixMul_kernel.ptx view on Meta::CPAN
mul.lo.u32 %r45, %r44, 4;
add.u32 %r46, %r45, %r42;
mov.f32 %f1, 0f00000000; // 0
mov.s32 %r47, %r19;
$Lt_0_2818:
//<loop> Loop body line 72, nesting depth: 1, estimated iterations: unknown
.loc 28 87 0
ld.global.f32 %f2, [%r43+0];
st.shared.f32 [%r37+0], %f2;
.loc 28 88 0
ld.global.f32 %f3, [%r41+0];
view release on metacpan or search on metacpan
0.28 2009-06-26
- YAML serializer no longer stores extra data
- MooseX::Clone is available for entry/reference
- TypeMap::Entry::Std role was split up to smaller roles
- TXN::Memory implements get() properly now (but not iterations yet)
- ->connect("/path/to/config.yml") is now supported
- propagate errors when loading classes in the linker
- core reftypes (ARRAY, HASH etc) are handled by the typemap
- SCALAR refs can be stored in JSON by using a custom typemap
- Support for serializing closures