This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/pl/init.yap
vsc eade18026c fix fflush
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@125 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-07-16 15:26:14 +00:00

131 lines
3.3 KiB
Prolog

/*************************************************************************
* *
* YAP Prolog *
* *
* Yap Prolog was developed at NCCUP - Universidade do Porto *
* *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
* *
**************************************************************************
* *
* File: init.yap *
* Last rev: *
* mods: *
* comments: initializing the full prolog system *
* *
*************************************************************************/
% This is yap's init file
% should be consulted first step after booting
% These are pseudo declarations
% so that the user will get a redefining system predicate
G1 ; G2 :- '$execute'((G1;G2)).
G1 | G2 :- '$execute'((G1;G2)).
G1 -> G2 :- '$execute'((G1->G2)).
','(G1,G2) :- '$execute'((G1,G2)).
otherwise.
fail :- fail.
false :- false.
!.
\+ G :- \+ G.
not(G) :- not(G).
(:- G) :- '$execute'(G), !.
'$$!'(CP) :- '$cut_by'(CP).
:- '$set_value'('$doindex',true).
:- ['errors.yap',
'utils.yap',
'arith.yap'].
:- compile_expressions.
:- [ 'yio.yap',
'debug.yap',
'consult.yap',
'checker.yap',
'depth_bound.yap',
'directives.yap',
'grammar.yap',
'ground.yap',
'listing.yap',
'preds.yap',
% modules must be after preds, otherwise we will have trouble
% with meta-predicate expansion being invoked
'modules.yap',
'load_foreign.yap',
'sockets.yap',
'sort.yap',
'setof.yap',
'strict_iso.yap',
'tabling.yap',
'yapor.yap'].
:- ['protect.yap'].
version(yap,[4,1]).
system_mode(verbose,on) :- '$set_value'('$verbose',on).
system_mode(verbose,off) :- '$set_value'('$verbose',off).
:- op(1150,fx,(mode)).
:- dynamic 'extensions_to_present_answer'/1.
:- ['corout.yap',
'arrays.yap'].
:- '$change_type_of_char'(36,7). % Make $ a symbol character
:- default_sequential(off).
:- '$set_pred_module'(get_att(_,_,_), attributes),
'$set_pred_module'(get_all_atts(_,_), attributes),
'$set_pred_module'(free_att(_,_), attributes),
'$set_pred_module'(put_att(_,_,_), attributes),
'$set_pred_module'(rm_att(_,_), attributes),
'$set_pred_module'(inc_n_of_atts(_), attributes),
'$set_pred_module'(n_of_atts(_), attributes),
'$set_pred_module'(bind_attvar(_), attributes).
:- '$set_pred_module'(open_mem_read_stream(_,_), charsio),
'$set_pred_module'(open_mem_write_stream(_), charsio),
'$set_pred_module'(peek_mem_write_stream(_,_,_), charsio).
:- '$set_pred_module'(term_hash(_,_,_,_), terms),
'$set_pred_module'(term_hash(_,_), terms),
'$set_pred_module'(term_variables(_,_), terms),
'$set_pred_module'(variant(_,_), terms),
'$set_pred_module'(subsumes(_,_), terms),
'$set_pred_module'(cyclic_term(_), terms),
'$set_pred_module'(acyclic_term(_,_), terms).
:- '$set_value'('$user_module',user), '$protect'.
:- style_check([]).
%
% moved this to init_gc in gc.c to separate the alpha
%
% :- yap_flag(gc,on).
% :- yap_flag(gc_trace,verbose).
:- system_mode(verbose,on).
:- module(user).
:- dynamic_predicate(library_directory/1, logical).
:- multifile goal_expansion/3.
:- dynamic_predicate(goal_expansion/3, logical).
:- multifile term_expansion/3.
:- dynamic_predicate(term_expansion/3, logical).
:- get_value(system_library_directory,D), assert(library_directory(D)).