Home
last modified time | relevance | path

Searched refs:HiRes (Results 1 – 25 of 85) sorted by relevance

1234

/openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/t/
H A Dusleep.t4 require Time::HiRes;
5 unless(&Time::HiRes::d_usleep) {
15 eval { Time::HiRes::usleep(-2) };
22 Time::HiRes::usleep(10_000);
24 Time::HiRes::usleep(10_000);
30 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday;
31 my $f = Time::HiRes::time();
32 Time::HiRes::usleep(500_000);
33 my $f2 = Time::HiRes::time();
39 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday;
[all …]
H A Ditimer.t5 eval "use Time::HiRes qw($symbol)";
14 require Time::HiRes;
15 unless(defined &Time::HiRes::setitimer
16 && defined &Time::HiRes::getitimer
35 my $r = [Time::HiRes::gettimeofday()];
38 $i ? $i-- : Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0);
39 printf("# Tick! $i %s\n", Time::HiRes::tv_interval($r));
43 Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0.5, 0.4)));
46 my $virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL);
52 Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL)));
[all …]
H A Dutime.t5 require Time::HiRes;
6 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" );
18 push @mtimes, (Time::HiRes::stat($filename))[9];
19 Time::HiRes::sleep(.1) if $_ == 1;
32 require Time::HiRes;
33 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" );
93 require Time::HiRes;
96 unless(&Time::HiRes::d_hires_utime) {
99 unless(&Time::HiRes::d_hires_stat) {
104 unless (&Time::HiRes::d_futimens) {
[all …]
H A Dclock.t7 BEGIN { require_ok "Time::HiRes"; }
11 eval "use Time::HiRes qw($symbol)";
17 printf("# have_clock_gettime = %d\n", &Time::HiRes::d_clock_gettime);
18 printf("# have_clock_getres = %d\n", &Time::HiRes::d_clock_getres);
19 printf("# have_clock_nanosleep = %d\n", &Time::HiRes::d_clock_nanosleep);
20 printf("# have_clock = %d\n", &Time::HiRes::d_clock);
36 unless &Time::HiRes::d_clock_gettime && has_symbol("CLOCK_REALTIME");
41 my $t0 = Time::HiRes::clock_gettime(&CLOCK_REALTIME);
43 Time::HiRes::sleep($T);
44 my $t1 = Time::HiRes::clock_gettime(&CLOCK_REALTIME);
[all …]
H A Dalarm.t7 BEGIN { require_ok "Time::HiRes"; }
20 defined &Time::HiRes::gettimeofday &&
21 defined &Time::HiRes::ualarm &&
22 defined &Time::HiRes::usleep &&
35 $r = [Time::HiRes::gettimeofday()];
62 Time::HiRes::alarm(0.3);
64 my $ival = Time::HiRes::tv_interval ($r);
94 my $ival = Time::HiRes::tv_interval ($r);
112 Time::HiRes::alarm(0); # can't cancel usig %SIG
120 skip "no ualarm", 1 unless &Time::HiRes::d_ualarm;
[all …]
H A Dualarm.t4 require Time::HiRes;
5 unless(&Time::HiRes::d_ualarm) {
23 $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { }
25 $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { }
31 $tick = 0; Time::HiRes::ualarm(10_000, 10_000); while ($tick < 3) { }
33 Time::HiRes::ualarm(0);
37 eval { Time::HiRes::ualarm(-4) };
62 my $t0 = Time::HiRes::time();
65 Time::HiRes::ualarm($n); 1 while $alarmed == 0;
66 my $t1 = Time::HiRes::time();
[all …]
H A Dsleep.t7 BEGIN { require_ok "Time::HiRes"; }
18 defined &Time::HiRes::gettimeofday &&
19 defined &Time::HiRes::ualarm &&
20 defined &Time::HiRes::usleep &&
23 eval { Time::HiRes::sleep(-1) };
29 my $f = Time::HiRes::time;
33 my $r = [Time::HiRes::gettimeofday()];
34 Time::HiRes::sleep (0.5);
35 printf("# sleep...%s\n", Time::HiRes::tv_interval($r));
H A Dnanosleep.t4 require Time::HiRes;
5 unless(&Time::HiRes::d_nanosleep) {
15 eval { Time::HiRes::nanosleep(-5) };
20 Time::HiRes::nanosleep(10_000_000);
22 Time::HiRes::nanosleep(10_000_000);
28 skip "no gettimeofday", 2 unless &Time::HiRes::d_gettimeofday;
29 my $f = Time::HiRes::time();
30 Time::HiRes::nanosleep(500_000_000);
31 my $f2 = Time::HiRes::time();
H A Dstat.t4 require Time::HiRes;
5 unless(&Time::HiRes::d_hires_stat) {
24 Time::HiRes::sleep(rand(0.1) + 0.1);
28 my($a, $stat, $b) = ("a", [Time::HiRes::stat($$)], "b");
33 ($a, my $lstat, $b) = ("a", [Time::HiRes::lstat($$)], "b");
45 Time::HiRes::sleep(rand(0.1) + 0.1);
49 $stat = [Time::HiRes::stat($$)];
51 $lstat = [Time::HiRes::lstat($$)];
96 note "compare Time::HiRes::stat with ::lstat";
97 my @tgt_stat = Time::HiRes::stat($targetname);
[all …]
H A Dgettimeofday.t4 require Time::HiRes;
5 unless(&Time::HiRes::d_gettimeofday) {
15 my @one = Time::HiRes::gettimeofday();
22 my @two = Time::HiRes::gettimeofday();
26 my $f = Time::HiRes::time();
30 my $r = [Time::HiRes::gettimeofday()];
31 my $g = Time::HiRes::tv_interval $r;
H A Dtime.t7 BEGIN { require_ok "Time::HiRes"; }
10 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday;
13 $s += Time::HiRes::time() - CORE::time();
20 or print("# Time::HiRes::time() not close to CORE::time()\n");
H A Dtv_interval.t5 BEGIN { require_ok "Time::HiRes"; }
7 my $f = Time::HiRes::tv_interval [5, 100_000], [10, 500_000];
/openbsd-src/gnu/usr.bin/perl/t/io/
H A Deintr_print.t18 use Time::HiRes;
25 unless Time::HiRes::d_ualarm();
27 unless Time::HiRes::d_usleep();
61 Time::HiRes::usleep $big_delay;
64 Time::HiRes::ualarm($fail_delay);
76 Time::HiRes::ualarm(0);
85 Time::HiRes::ualarm($small_delay); # and when it block we'll get SIGALRM
88 Time::HiRes::ualarm(0);
90 Time::HiRes::usleep(500_000);
/openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/
H A DChanges1 Revision history for the Perl extension Time::HiRes.
111 "HiRes.xs:1474:16: error: unrecognized platform name macOS"
119 access time timestamp. Also document this in HiRes.pm.
121 - synchronize the constant lists in HiRes.pm:@EXPORT_OK
139 - Quieten Time-HiRes test noise: blead 0f009486
188 - fix dist/Time-HiRes/t/*.t that assumed '.' in @INC: blead 465db51d
231 - utime in HiRes.xs had dXSARGS which was unnecessary, leading
250 - Time::HiRes should override `utime` to allow setting hires
276 - static funcs in HiRes.xs: 4e922c26
452 - t/HiRes
[all...]
H A DHiRes.pm1 package Time::HiRes;
62 die "&Time::HiRes::constant not defined" if $constname eq 'constant';
88 Carp::croak("Time::HiRes::$i(): unimplemented in this platform");
91 Time::HiRes->export_to_level(1, $this, @_);
94 XSLoader::load( 'Time::HiRes', $XS_VERSION );
112 Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers
116 use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
133 use Time::HiRes qw ( time alarm sleep );
140 use Time::HiRes qw( setitimer getitimer );
145 use Time::HiRes q
[all...]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dsigsystem.t19 require Time::HiRes;
31 Time::HiRes::sleep(0.250);
47 Time::HiRes::sleep(0.500);
/openbsd-src/gnu/usr.bin/perl/dist/Net-Ping/t/
H A D250_ping_hires.t15 unless (eval "require Time::HiRes") {
16 print "1..0 \# Skip: no Time::HiRes\n";
36 is($Net::Ping::hires, 1, 'Default is to use Time::HiRes');
57 # point if Time::HiRes is functioning properly, except when it
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/
H A DMM.pm21 *mtime = (eval { require Time::HiRes } && defined &Time::HiRes::stat)
22 ? sub { (Time::HiRes::stat($_[0]))[9] }
/openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/fallback/
H A Dconst-xs.inc26 sv_2mortal(newSVpvf("%s is not a valid Time::HiRes macro", s));
31 "Your vendor has not defined Time::HiRes macro %s, used",
87 "Unexpected return type %d while processing Time::HiRes macro %s, used",
/openbsd-src/gnu/usr.bin/perl/cpan/IPC-Cmd/lib/IPC/
H A DCmd.pm38 require Time::HiRes; Time::HiRes->import();
44 my $wait_start_time = Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
371 return Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
510 Time::HiRes::usleep(250000); # quarter of a second
535 Time::HiRes::usleep(1) if IS_HPUX;
671 Time::HiRes::usleep(1);
1112 Time::HiRes::usleep(1);
/openbsd-src/gnu/usr.bin/perl/cpan/Memoize/Memoize/
H A DExpire.pm15 eval {require Time::HiRes};
17 Time::HiRes->import('time');
/openbsd-src/gnu/usr.bin/perl/plan9/
H A Dmkfile54 …evel::Peek attributes Hash::Util Hash::Util::FieldHash mro Storable Time::HiRes Unicode::Normalize…
55 … re.xs B.xs Peek.xs attributes.xs Util.xs FieldHash.xs mro.xs Storable.xs HiRes.xs Normalize.xs Li…
204 HiRes.$O: extensions
205 $XSCCCMD -I plan9 -I. HiRes.c
279 HiRes.c: archlib/Config.pm dist/Time-HiRes/HiRes.xs
280 cd dist/Time-HiRes
283 $miniperlxs dist/Time-HiRes/HiRes.xs > $target
285 cp dist/Time-HiRes/HiRes.pm archlib/Time
/openbsd-src/gnu/usr.bin/perl/ext/POSIX/t/
H A Dwaitpid.t12 eval 'use Time::HiRes qw(time)';
14 print "1..0 # Skip: no Time::HiRes\n";
/openbsd-src/regress/sys/kern/sosplice/tcp/
H A Dargs-relay-write-forked.pl6 use Time::HiRes;
H A Dargs-relay-read-forked.pl6 use Time::HiRes;

1234