[Xsb-commits] CVS: XSB/syslib thread.P,1.33,1.34

[Paulo M. <pm...@us...>]

Update of /cvsroot/xsb/XSB/syslib
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv18573/XSB/syslib

Modified Files:
	thread.P 
Log Message:
Recognise for now the SWI-Prolog and YAP option at_exit/1 for thread_create/3 as an alias to the XSB on_exit/1 option.

Index: thread.P
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/thread.P,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- thread.P	19 Mar 2008 15:53:56 -0000	1.33
+++ thread.P	29 Mar 2008 20:35:58 -0000	1.34
@@ -74,17 +74,17 @@
 	(var(Handler) -> Handler = '_$no_handler' ; true).
 check_options_list_1([Option|Rest],GLSize,TCSize,ComplSize,PDLSize,Detached,Alias,Handler):- !,
 	check_nonvar(Option,thread_create/3,3),
-	(Option @= glsize(_) ->  Option = glsize(N),set_thread_create_arg(N,GLSize,glsize), Alias = R
-          ; (Option @= tcsize(_) -> Option = tcpsize(N),set_thread_create_arg(N,TCSize,tcsize), Alias = R
-            ; (Option @= complsize(_) -> Option = complsize(N),set_thread_create_arg(N,ComplSize,complsize), Alias = R
-              ; (Option @= pdlsize(_) -> Option = pdlsize(N),set_thread_create_arg(N,PDLSize,pdlsize), Alias = R
-                ; (Option @= detached(_) -> 
-		    (Option = detached(Boolean),Boolean == true -> Detached = 1 ; Detached = 0),Alias = R
-                ; (Option @= on_exit(_) -> Option = on_exit(Handler) 
-		  ; (Option @= alias(_) -> 
-		        Option = alias(A),check_atom(A,thread_create/3,3),Alias = [A|R]
-	            ; 	domain_error(thread_option,Option,thread_create/3,3,'') ) ) ) ) ) ) ),
-       check_options_list_1(Rest,GLSize,TCSize,ComplSize,PDLSize,Detached,R,Handler).
+	(	Option @= glsize(_) -> Option = glsize(N),set_thread_create_arg(N,GLSize,glsize), Alias = R
+	;	Option @= tcsize(_) -> Option = tcpsize(N),set_thread_create_arg(N,TCSize,tcsize), Alias = R
+	;	Option @= complsize(_) -> Option = complsize(N),set_thread_create_arg(N,ComplSize,complsize), Alias = R
+	;	Option @= pdlsize(_) -> Option = pdlsize(N),set_thread_create_arg(N,PDLSize,pdlsize), Alias = R
+	;	Option @= detached(_) -> (Option = detached(Boolean),Boolean == true -> Detached = 1 ; Detached = 0),Alias = R
+	;	Option @= on_exit(_) -> Option = on_exit(Handler)
+	;	Option @= at_exit(_) -> Option = at_exit(Handler)	% for compatibility with SWI-Prolog and YAP
+	;	Option @= alias(_) -> Option = alias(A),check_atom(A,thread_create/3,3),Alias = [A|R]
+	; 	domain_error(thread_option,Option,thread_create/3,3,'')
+	),
+	check_options_list_1(Rest,GLSize,TCSize,ComplSize,PDLSize,Detached,R,Handler).
 check_options_list_1(Culprit,_GLSize,_TCSize,_ComplSize,_PDLSize,_Detached,_Alias,_Handler):- 
 	type_error(list,Culprit,thread_create/3,3).