123 lines
2.5 KiB
Prolog
123 lines
2.5 KiB
Prolog
% This file is part of SECONDO.
|
|
%
|
|
% Copyright (C) 2004, University in Hagen, Department of Computer Science,
|
|
% Database Systems for New Applications.
|
|
%
|
|
% SECONDO is free software% you can redistribute it and/or modify
|
|
% it under the terms of the GNU General Public License as published by
|
|
% the Free Software Foundation% either version 2 of the License, or
|
|
% (at your option) any later version.
|
|
%
|
|
% SECONDO is distributed in the hope that it will be useful,
|
|
% but WITHOUT ANY WARRANTY% without even the implied warranty of
|
|
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
% GNU General Public License for more details.
|
|
%
|
|
% You should have received a copy of the GNU General Public License
|
|
% along with SECONDO% if not, write to the Free Software
|
|
% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
%
|
|
%
|
|
% November 2004, M. Spiekermann
|
|
%
|
|
% Some TPC-H queries in Secondo SQL syntax
|
|
|
|
|
|
tpc5 :-
|
|
sql
|
|
select
|
|
[
|
|
n_name,
|
|
sum(l_extendedprice * (1 - l_discount)) as revenue
|
|
]
|
|
from
|
|
[
|
|
customer,
|
|
orders,
|
|
lineitem,
|
|
supplier,
|
|
nation,
|
|
region
|
|
]
|
|
where
|
|
[
|
|
c_custkey = o_custkey,
|
|
l_orderkey = o_orderkey,
|
|
l_suppkey = s_suppkey,
|
|
c_nationkey = s_nationkey,
|
|
s_nationkey = n_nationkey,
|
|
n_regionkey = r_regionkey,
|
|
r_name = "ASIA",
|
|
not(o_orderdate < cmpdate5_1),
|
|
o_orderdate < cmpdate5_2
|
|
]
|
|
groupby [ n_name asc ]
|
|
orderby [ revenue desc ].
|
|
|
|
|
|
tpc3 :-
|
|
sql
|
|
select
|
|
[
|
|
l_orderkey,
|
|
sum(l_extendedprice * (1 - l_discount)) as revenue,
|
|
o_orderdate,
|
|
o_shippriority
|
|
]
|
|
from
|
|
[
|
|
customer,
|
|
orders,
|
|
lineitem
|
|
]
|
|
where
|
|
[
|
|
c_mktsegment = "BUILDING",
|
|
c_custkey = o_custkey,
|
|
l_orderkey = o_orderkey
|
|
]
|
|
groupby
|
|
[
|
|
l_orderkey,
|
|
o_orderdate,
|
|
o_shippriority
|
|
]
|
|
orderby
|
|
[
|
|
revenue desc,
|
|
o_orderdate asc
|
|
].
|
|
|
|
%select count(*) from lineitem.
|
|
|
|
tpc1 :-
|
|
sql
|
|
select
|
|
[
|
|
count(*) as count_order,
|
|
l_returnflag,
|
|
l_linestatus,
|
|
sum(l_quantity) as sum_qty,
|
|
sum(l_extendedprice) as sum_base_price,
|
|
sum(l_extendedprice * (1 - l_discount)) as sum_disc_price,
|
|
sum(l_extendedprice * (1 - l_discount) * (1 + l_tax)) as sum_charge,
|
|
avg(l_quantity) as avg_qty,
|
|
avg(l_extendedprice) as avg_price,
|
|
avg(l_discount) as avg_disc
|
|
]
|
|
from
|
|
lineitem
|
|
where
|
|
l_shipdate < cmpdate1
|
|
groupby [
|
|
l_returnflag,
|
|
l_linestatus
|
|
]
|
|
orderby
|
|
[
|
|
l_returnflag asc,
|
|
l_linestatus asc
|
|
].
|
|
|
|
|