develooper Front page | perl.perl6.internals | Postings from July 2002

Re: [PATCH] usleep, sleep(num)

Thread Previous
From:
Steve Purkis
Date:
July 23, 2002 07:59
Subject:
Re: [PATCH] usleep, sleep(num)
Message ID:
Pine.LNX.3.96.1020723104034.5114J-300000@tiamat.epn.nu
#
# sleep.pasm
#
# Copyright (C) 2002 Steve Purkis. All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
# $Id: $
#

MAIN:	set	I0, 100000
	print	"sleeping for "
	print	I0
	print	" microseconds\n"
	usleep	I0

	print	"sleeping for 999 microseconds (should produce a warning on Win32)\n"
	usleep	999

	print	"sleeping for 1.75 seconds\n"
	time	N0
	sleep	1.75
	time	N1
	sub	N0, N1, N0
	print	"actual time: "
	print	N0
	print	"\n"

	print	"sleeping for 1 second\n"
	sleep	1

	print	"done.\n"

	end
Thread Previous

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About