121 lines
2.5 KiB
Perl
121 lines
2.5 KiB
Perl
|
/*
|
||
|
|
$Header$
|
||
|
|
@author Nikolai van Kempen
|
||
|
|
|
||
|
|
My personal utility/testing predicates. I have some doubts whether they are of much use for anyone else. Thaty why I put them here.
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
reset :-
|
||
|
|
reload,
|
||
|
|
closeDB,
|
||
|
|
updateDB(optext),
|
||
|
|
odb.
|
||
|
|
|
||
|
|
odb :-
|
||
|
|
open('database optext').
|
||
|
|
|
||
|
|
obt :-
|
||
|
|
open('database berlintest').
|
||
|
|
|
||
|
|
nrw2 :-
|
||
|
|
open('database nrw2').
|
||
|
|
|
||
|
|
nrw3 :-
|
||
|
|
open('database nrw3').
|
||
|
|
|
||
|
|
reload :-
|
||
|
|
['NestedRelations/test'],
|
||
|
|
['NestedRelations/nr'],
|
||
|
|
['NestedRelations/init'],
|
||
|
|
['NestedRelations/util'],
|
||
|
|
['NestedRelations/tutil'],
|
||
|
|
['MemoryAllocation/ma.pl'],
|
||
|
|
['MemoryAllocation/test.pl'],
|
||
|
|
['MemoryAllocation/ma_improvedcosts.pl'],
|
||
|
|
%['Subqueries/subqueries'], % reloaded already then by optimizer
|
||
|
|
[database],
|
||
|
|
[operators],
|
||
|
|
[statistics],
|
||
|
|
[optimizer],
|
||
|
|
!.
|
||
|
|
|
||
|
|
% Simply switch the enviroment
|
||
|
|
nr :-
|
||
|
|
delOption(memoryAllocation),
|
||
|
|
setOption(nestedRelations).
|
||
|
|
|
||
|
|
ma :-
|
||
|
|
delOption(nestedRelations),
|
||
|
|
setOption(memoryAllocation).
|
||
|
|
|
||
|
|
ic :-
|
||
|
|
delOption(memoryAllocation),
|
||
|
|
setOption(improvedcosts).
|
||
|
|
|
||
|
|
nomanr :-
|
||
|
|
delOption(nestedRelations),
|
||
|
|
delOption(memoryAllocation).
|
||
|
|
|
||
|
|
manr :-
|
||
|
|
setOption(nestedRelations),
|
||
|
|
setOption(memoryAllocation).
|
||
|
|
|
||
|
|
% Some stuff used within my colloquium
|
||
|
|
|
||
|
|
nrdemo :-
|
||
|
|
nr,
|
||
|
|
open('database nrdemo').
|
||
|
|
|
||
|
|
bdemo :-
|
||
|
|
cdb,
|
||
|
|
open('database berlintest').
|
||
|
|
|
||
|
|
demo(1, select * from orte).
|
||
|
|
demo(2, select [o:ort, (select * from plz where ort=o:ort) as newsubrel] from orte as o).
|
||
|
|
demo(3, select * from orteh).
|
||
|
|
demo(4, select [o:bevth, (select ort from o:subrel) as newsubrel] from orteh as o).
|
||
|
|
|
||
|
|
|
||
|
|
demo(5, select *
|
||
|
|
from orteh as o
|
||
|
|
where [exists(select ort from o:subrel where ort starts "B")]).
|
||
|
|
|
||
|
|
demo(6, select [o:bevth, (select ort from o:subrel
|
||
|
|
where ort starts "B") as newsubrel]
|
||
|
|
from orteh as o
|
||
|
|
where [exists( select ort from o:subrel
|
||
|
|
where ort starts "B")]).
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
demo(7, select * from orteh unnest(subrel)).
|
||
|
|
demo(org8, select * from orte nest(kennzeichen, subrel)).
|
||
|
|
demo(8, select * from plz nest(ort, subrel) where ort starts "A").
|
||
|
|
demo(9, select * from trains).
|
||
|
|
demo(10, select * from trains unnest(trip)).
|
||
|
|
|
||
|
|
|
||
|
|
demo(11, select *
|
||
|
|
from (
|
||
|
|
select [bevt div 100 as bevth,
|
||
|
|
bevt, ort, kennzeichen, vorwahl]
|
||
|
|
from orte
|
||
|
|
) nest(bevth, subRel)).
|
||
|
|
|
||
|
|
|
||
|
|
mademo :-
|
||
|
|
cdb,fail.
|
||
|
|
mademo :-
|
||
|
|
ma,
|
||
|
|
debugLevel(ma),
|
||
|
|
nrw3,
|
||
|
|
maCreateTestSels.
|
||
|
|
|
||
|
|
demo(ma, select * from [roads300k as r1, roads400k as r2, roads500k as r3, buildings300k as r4, buildings400k as r5, buildings500k as r6] where[r1:no=r2:no,r2:no=r3:no,r3:no=r4:no,r4:no=r5:no, r5:no=r6:no]).
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
% eof
|
||
|
|
|