#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

delete ai;
delete al;

let ai = makearray(0,1,2,3);
let al = makearray(100,200);

query ai sortarray[.*-1];

query ai loop[get(ai,.)];

query ai loop[put(ai,999,.)];

# Neuer Operator tie!

query ai tie[.+..];

query ai loop[.*2];
query ai al loopb[.*..];

delete plzArray;
let plzArray = plz feed extend[pkg : log(randint(65536))] distribute[pkg];

query plzArray loop[. count];
query plzArray loop[. feed filter[.Ort contains "wald"] consume];

delete ar;
create ar : array(rel(tuple((no:int))));
update ar := [const array(rel(tuple((no:int))))
		  value ( ((1)) ((2)(3)) ((4)(5)(6)) ((7)(8)(9)(10)) )];

query ar ar loopb[. feed .. feed rename[A] product consume] sortarray[. count];

# Zählen, wie oft ein Ort mit "wald" vorkommt!

query plz feed filter[.Ort contains "wald"] count;

query plz feed extend[pkg : log(randint(65536))] distribute[pkg] 
            loop[. feed filter[.Ort contains "wald"] count]
            tie[.+..];