From: Terrance S. <ts...@us...> - 2009-08-21 20:13:18
|
Update of /cvsroot/xsb/XSB/syslib In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15368 Modified Files: standard.P standard.xwam Log Message: Added various options for statistics/2 based in part on Paul Fodor's modification of statistics/0. See manual for details. Index: standard.P =================================================================== RCS file: /cvsroot/xsb/XSB/syslib/standard.P,v retrieving revision 1.166 retrieving revision 1.167 diff -u -r1.166 -r1.167 --- standard.P 9 Mar 2009 13:24:55 -0000 1.166 +++ standard.P 21 Aug 2009 20:13:01 -0000 1.167 @@ -1,1872 +1,1908 @@ -/* File: standard.P -** Author(s): Sagonas, Warren, Kifer, Cui, Demoen, Swift and others -** Contact: xsb...@cs... -** -** Copyright (C) The Research Foundation of SUNY, 1986, 1993-1998 -** Copyright (C) ECRC, Germany, 1990 -** -** XSB is free software; you can redistribute it and/or modify it under the -** terms of the GNU Library General Public License as published by the Free -** Software Foundation; either version 2 of the License, or (at your option) -** any later version. [...3749 lines suppressed...] + ; + verify_attribute_handler(Mod,Attr,Value,Handler), + call(Handler)), + call_attribute_handlers(Rest,Value). +/* +:- import existence_error/4 from error_handler. + +call_attribute_handlers([Mod,Attr|Rest],Value) :- + (Mod = call_cleanup_mod -> + call(Attr) + ; + (verify_attribute_handler(Mod,Attr,Value,Handler) -> + call(Handler) + ; existence_error(attribute_handler,attribute([Mod,Attr|Rest],Value), + call_attribute_handlers/2,1) ) ), + call_attribute_handlers(Rest,Value). +*/ + +/* --------------------- end of file standard.P ----------------------- */ + Index: standard.xwam =================================================================== RCS file: /cvsroot/xsb/XSB/syslib/standard.xwam,v retrieving revision 1.140 retrieving revision 1.141 diff -u -r1.140 -r1.141 Binary files /tmp/cvs5sjZkr and /tmp/cvs7U5Nwv differ |