Sophie

Sophie

distrib > Mandriva > 9.1 > ppc > by-pkgid > d1f06a5336fd6bf4a381b72b8d2b5ce1 > files > 115

gprolog-1.2.16-3mdk.ppc.rpm

% hook file for GNU Prolog

% Count is passed on the command line as the 1st argument

get_count(Count) :-
	argument_value(1, ACount),
	number_atom(Count, ACount).

get_cpu_time(T) :-
	statistics(runtime, [T, _]).

:- initialization(q).