2:- module(utils_for_swi, 3 [op(1000,fx,one), 4 style_check/0, 5 throw/2, 6 (one)/1, 7 (index)/2, 8 lwrupr/2, 9 (optimize)/1]). 10 11style_check:- set_prolog_flag(double_quotes,codes), 12 multifile(user:file_search_path/2), 13 dynamic(user:file_search_path/2), 14 (user:file_search_path(library,'.')->true ; asserta(user:file_search_path(library,'.'))). 15 16:- meta_predicate(one( )). 17one(X):- once(X). 18:- op(1000,fx,one). 19index(MFA,Args):- writeln(index(MFA,Args)). 20optimize(MFA):- writeln(optimize(MFA)). 21 22 23error_hook(X,Y):- writeln(error_hook(X,Y)),fail. 24throw(X,Y):- writeln(throw(X,Y)),lisp_dump_break,throw(lpa_throw(X,Y)). 25lwrupr(L,U):- var(L)-> downcase_atom(U,L); upcase_atom(L,U)