%      Production system KORE/IE (version 12.48)
%
%          (C)1992 Institute for New Generation Computer Technology
%                          (Read COPYRIGHT for detailed information)
%
%      1992.7 Check and refine every programs 
%                             for IFS (ICOT Free Software) release.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% KORE/IE STARTUP %%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%% STARTUP
startup DATAS :-
	retract_all(startup_data(RB,_)),
	rule_base_name(RB),
	startup_check(DATAS,Datas,Fire_Flag),
	asserta(startup_data(RB,Fire_Flag,Datas)),
	!.

%%%%% startup_check
startup_check((fire,T),(true,TT),on) :-
	!,
	startup_check(T,TT,_).
startup_check((H,T),(H,TT),FLG) :-
	!,
	startup_check(T,TT,FLG).
startup_check(fire,true,on) :-
	!.
startup_check(H,H,off) :-
	!.
	
%%%%% FIRE/0
fire :-
	rule_base_name(RB),
	!,
	fire(RB),
	!.

%%%%% FIRE/1
fire(RB) :-
	startup_data(RB,_,STARTUP),
	(call(STARTUP),
	 !;
	 write('*** startup Failed ***'),
	 nl,
	 !,fail),
	run(RB),
	!.
