71 lines
1.7 KiB
Perl
71 lines
1.7 KiB
Perl
|
/*
|
||
|
|
$Header$
|
||
|
|
@author Nikolai van Kempen
|
||
|
|
|
||
|
|
Mainfile to load the other memory allocation optimization files if the option is enabled.
|
||
|
|
*/
|
||
|
|
|
||
|
|
initMA :-
|
||
|
|
L='Assign memory to operators.',
|
||
|
|
% assert now non-multifile facts.
|
||
|
|
assertz(optimizerOptionInfo(memoryAllocation, none, yes, L, loadMA, true)),
|
||
|
|
|
||
|
|
assertz(optDebugLevel(ma)),
|
||
|
|
% This is a more detailed log level.
|
||
|
|
assertz(optDebugLevel(ma3)),
|
||
|
|
% This is a very detailed log level for the callback predicates.
|
||
|
|
assertz(optDebugLevel(ma6)).
|
||
|
|
|
||
|
|
% Needs to be declared here (used within optimizer.pl)
|
||
|
|
:- dynamic useModifiedDijkstra/0.
|
||
|
|
|
||
|
|
:- initMA.
|
||
|
|
|
||
|
|
loadMA :-
|
||
|
|
|
||
|
|
(current_functor(memoryOptimization, 6) ->
|
||
|
|
true
|
||
|
|
;
|
||
|
|
(
|
||
|
|
write_list([
|
||
|
|
'\nError: memoryOptimization/5 predicate unknown.',
|
||
|
|
'\nMost likely secondo was compiled without memory optimization ',
|
||
|
|
'support. Enable this within ',
|
||
|
|
'$SECONDO_BUILD_DIR/UserInterface/makefile and recompile secondo.\n'
|
||
|
|
]),
|
||
|
|
|
||
|
|
sleep(5),
|
||
|
|
delOption(memoryAllocation),
|
||
|
|
!,
|
||
|
|
fail % unfortunately currently "Unknown option 'memoryAllocation'" is
|
||
|
|
% reported and the option will still be activated. Hence delOption
|
||
|
|
% is called above.
|
||
|
|
)
|
||
|
|
),
|
||
|
|
|
||
|
|
% See ma_improvedcosts.pl for more information.
|
||
|
|
delOption(improvedcosts),
|
||
|
|
delOption(nawracosts),
|
||
|
|
delOption(nestedRelations),
|
||
|
|
|
||
|
|
% dependent files...
|
||
|
|
['NestedRelations/util.pl'],
|
||
|
|
|
||
|
|
% Load new cost functions
|
||
|
|
['MemoryAllocation/ma_improvedcosts.pl'],
|
||
|
|
|
||
|
|
['MemoryAllocation/blockingops.pl'],
|
||
|
|
['MemoryAllocation/madata.pl'],
|
||
|
|
['MemoryAllocation/ma.pl'],
|
||
|
|
['MemoryAllocation/differential_calculus.pl'],
|
||
|
|
['MemoryAllocation/progressconstants.pl'],
|
||
|
|
|
||
|
|
% loading the testing files, can safly removed if not needed.
|
||
|
|
['MemoryAllocation/test.pl'],
|
||
|
|
['MemoryAllocation/testdc.pl'],
|
||
|
|
%['MemoryAllocation/eval.pl'],
|
||
|
|
|
||
|
|
maSelfCheck.
|
||
|
|
|
||
|
|
% eof
|