diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix manual and message handling

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2253 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-06-03 09:24:28 +00:00
parent 8e6403794f
commit 02497c1172
4 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/threads.c
View File

@ -786,8 +786,15 @@ p_thread_unlock(void)
return TRUE; return TRUE;
} }
static Int
p_max_workers(void)
{ /* '$max_workers'(+P) */
return Yap_unify(ARG1,MkIntTerm(1));
}
void Yap_InitThreadPreds(void) void Yap_InitThreadPreds(void)
{ {
Yap_InitCPred("$max_workers", 1, p_max_workers, HiddenPredFlag);
Yap_InitCPred("$thread_self", 1, p_thread_self, SafePredFlag|HiddenPredFlag); Yap_InitCPred("$thread_self", 1, p_thread_self, SafePredFlag|HiddenPredFlag);
Yap_InitCPred("$no_threads", 0, p_no_threads, SafePredFlag|HiddenPredFlag); Yap_InitCPred("$no_threads", 0, p_no_threads, SafePredFlag|HiddenPredFlag);
Yap_InitCPred("$max_threads", 1, p_max_threads, SafePredFlag|HiddenPredFlag); Yap_InitCPred("$max_threads", 1, p_max_threads, SafePredFlag|HiddenPredFlag);

2
docs/yap.tex
View File

@ -3409,7 +3409,7 @@ sub-strings of @var{A}.
@end table @end table
@node Predicates on Characters, Comparing Terms, Predicates on Atoms, Top @node Predicates on Characters, Comparing Terms, Predicates on Atoms, Top
@section Predicates on Atoms @section Predicates on Characters
The following predicates are used to manipulate characters: The following predicates are used to manipulate characters:

16
library/prandom.yap
View File

@ -47,10 +47,12 @@
ranstart/0, ranstart/0,
ranstart/1, ranstart/1,
rannum/1, rannum/1,
rannunif/2]). ranunif/2]).
:- initialization(ranstart). :- initialization(ranstart).
:- dynamic ranState/5.
% %
% vsc: dangerous code, to change. % vsc: dangerous code, to change.
% %
@ -67,13 +69,12 @@ ranstart(N) :-
Incr is (8'154 << (Wsize - 9)) + 1, % per Knuth, v.2 p.78 Incr is (8'154 << (Wsize - 9)) + 1, % per Knuth, v.2 p.78
Mult is 8'3655, % OK for 16-18 Wsize Mult is 8'3655, % OK for 16-18 Wsize
Prev is Mult * (8 * N + 5) + Incr, Prev is Mult * (8 * N + 5) + Incr,
recorda(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Ref). assert(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr).
rannum(Raw) :- rannum(Raw) :-
recorded(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Oldref), retract(ranState(Mult, Prev, Wsize, MaxInt, Incr)),
erase(Oldref),
Curr is Mult * Prev + Incr, Curr is Mult * Prev + Incr,
recorda(ranState, ranState(Mult, Curr, Wsize, MaxInt, Incr), Ref), assert(ranState(Mult, Curr, Wsize, MaxInt, Incr),
( Curr > 0, ( Curr > 0,
Raw is Curr Raw is Curr
; ;
@ -83,10 +84,9 @@ rannum(Raw) :-
ranunif(Range, Unif) :- ranunif(Range, Unif) :-
Range > 0, Range > 0,
recorded(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Oldref), retract( ranState(Mult, Prev, Wsize, MaxInt, Incr) ),
erase(Oldref),
Curr is Mult * Prev + Incr, Curr is Mult * Prev + Incr,
recorda(ranState, ranState(Mult, Curr, Wsize, MaxInt, Incr), Ref), assert(ranState(Mult, Curr, Wsize, MaxInt, Incr)),
( Curr > 0, ( Curr > 0,
Raw is Curr Raw is Curr
; ;

20
pl/preds.yap
View File

@ -979,5 +979,21 @@ current_key(A,K) :-
'$noprofile'(_, _). '$noprofile'(_, _).
'$notrace'(G) :- '$notrace'(G) :-
\+ '$undefined'(G, prolog), var(G), !,
call(G). '$do_error'(instantiation_error,G).
'$notrace'(G) :- number(G), !,
'$do_error'(type_error(callable,G),G).
'$notrace'(G) :- db_reference(G), !,
'$do_error'(type_error(callable,G),G).
'$notrace'(M:G) :-
\+ atom(M),
'$do_error'(type_error(atom,Na), Msg).
'$notrace'(M:G) :- !,
'$notrace'(G, M).
'$notrace'(G) :- !,
'$notrace'(G, prolog).
'$notrace'(G, Mod) :-
\+ '$undefined'(G, Mod),
call(Mod:G).