63 lines
1.4 KiB
Perl
63 lines
1.4 KiB
Perl
|
/*
|
||
|
|
$Header$
|
||
|
|
@author Nikolai van Kempen
|
||
|
|
|
||
|
|
Mainfile, to load the other nested relations files if the option is enabled.
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
initNR :-
|
||
|
|
(optimizerOptionInfo(nestedRelations, _, _, _, _, _) ->
|
||
|
|
true % avoid adding the fact more than once if we reload this file.
|
||
|
|
;
|
||
|
|
L='Support for nested relations.',
|
||
|
|
% assert now non-multifile facts.
|
||
|
|
assertz(optimizerOptionInfo(nestedRelations, none, yes, L, loadNR, true)),
|
||
|
|
assertz(optDebugLevel(nr))
|
||
|
|
),
|
||
|
|
|
||
|
|
% Note that these files must be loaded, regardless if the nestedRelations
|
||
|
|
% option are enabled or not.
|
||
|
|
['nr.pl'],
|
||
|
|
['nr_auxiliary.pl'],
|
||
|
|
|
||
|
|
%['nvkutil.pl'],
|
||
|
|
['util.pl'],
|
||
|
|
['tutil.pl'],
|
||
|
|
['test.pl'].
|
||
|
|
|
||
|
|
:- initNR.
|
||
|
|
|
||
|
|
loadNR :-
|
||
|
|
% This extension relies heavily on the subquerie's extension. This won't
|
||
|
|
% work without the enabled subquerie's extension.
|
||
|
|
(optimizerOption(subqueries) ->
|
||
|
|
true
|
||
|
|
;
|
||
|
|
setOption(subqueries)
|
||
|
|
),
|
||
|
|
delOption(determinePredSig), % incompatible
|
||
|
|
% This is not implemented and not checked how nested relations affect
|
||
|
|
% the subquery unnesting capabilities.
|
||
|
|
delOption(subqueryUnnesting),
|
||
|
|
nrSelfCheck.
|
||
|
|
|
||
|
|
nrSelfCheck :-
|
||
|
|
nrOKOpts(List),
|
||
|
|
optimizerOption(X),
|
||
|
|
\+ member(X, List),
|
||
|
|
write_list(['\nNestedRelations: Warning: Option ', X,
|
||
|
|
' may be incompatible.']), nl,
|
||
|
|
sleep(5),
|
||
|
|
fail.
|
||
|
|
|
||
|
|
nrSelfCheck :-
|
||
|
|
!.
|
||
|
|
|
||
|
|
nrOKOpts([nestedRelations, subqueries, debug, autosave, autoSamples, standard,
|
||
|
|
noHashjoin]).
|
||
|
|
|
||
|
|
knownAsIncompatible([determinePredSig, subqueryUnnesting, memoryAllocation]).
|
||
|
|
|
||
|
|
% eof
|