64 lines
2.8 KiB
Plaintext
64 lines
2.8 KiB
Plaintext
|
delete database chesmtest;
|
||
|
|
create database chesmtest;
|
||
|
|
open database chesmtest;
|
||
|
|
|
||
|
|
let chess1 = [const chessgame value ((
|
||
|
|
("Event" "Test der Chessgame Klasse")
|
||
|
|
("Site" "...")
|
||
|
|
("Date" "2006.12.08")
|
||
|
|
("White" "Mirko D.")
|
||
|
|
("Black" "somebody else")
|
||
|
|
("WhiteElo" "100")
|
||
|
|
("BlackElo" "2500")
|
||
|
|
("EventDate" "2006.12.07"))
|
||
|
|
(
|
||
|
|
("Pawn" "none" "c" 2 "c" 4 FALSE "c4")
|
||
|
|
("pawn" "none" "c" 7 "c" 5 FALSE "c5")
|
||
|
|
("Pawn" "none" "d" 2 "d" 3 FALSE "d3")
|
||
|
|
("pawn" "none" "d" 7 "d" 6 FALSE "d6")
|
||
|
|
("Knight" "none" "b" 1 "c" 3 FALSE "Nc3")
|
||
|
|
("bishop" "none" "c" 8 "f" 5 FALSE "Bf5")
|
||
|
|
("Pawn" "none" "e" 2 "e" 4 FALSE "e4")
|
||
|
|
("bishop" "Pawn" "f" 5 "e" 4 FALSE "Bxe4")
|
||
|
|
("Knight" "bishop" "c" 3 "e" 4 FALSE "Nxe4")
|
||
|
|
("pawn" "none" "g" 7 "g" 6 FALSE "g6")
|
||
|
|
("Bishop" "none" "c" 1 "e" 3 FALSE "Be3")
|
||
|
|
("pawn" "none" "h" 7 "h" 5 FALSE "h5")
|
||
|
|
("Queen" "none" "d" 1 "d" 2 FALSE "Qd2")
|
||
|
|
("queen" "none" "d" 8 "d" 7 FALSE "Qd7")
|
||
|
|
("King" "none" "e" 1 "c" 1 FALSE "O-O-O")
|
||
|
|
("knight" "none" "b" 8 "a" 6 FALSE "Na6")
|
||
|
|
("Knight" "none" "g" 1 "h" 3 FALSE "Nh3")
|
||
|
|
("pawn" "none" "b" 7 "b" 6 FALSE "b6")
|
||
|
|
("Knight" "none" "e" 4 "g" 5 FALSE "Neg5")
|
||
|
|
("queen" "Knight" "d" 7 "h" 3 FALSE "Qxh3")
|
||
|
|
("Pawn" "queen" "g" 2 "h" 3 FALSE "gxh3")
|
||
|
|
("pawn" "none" "h" 5 "h" 4 FALSE "h4")
|
||
|
|
("Bishop" "pawn" "e" 3 "c" 5 FALSE "Bxc5")
|
||
|
|
("pawn" "none" "b" 6 "b" 5 FALSE "b5")
|
||
|
|
("Bishop" "pawn" "c" 5 "d" 6 FALSE "Bxd6")
|
||
|
|
("pawn" "none" "b" 5 "b" 4 FALSE "b4")
|
||
|
|
("Pawn" "none" "c" 4 "c" 5 FALSE "c5")
|
||
|
|
("pawn" "none" "b" 4 "b" 3 FALSE "b3")
|
||
|
|
("Pawn" "none" "c" 5 "c" 6 FALSE "c6")
|
||
|
|
("pawn" "none" "f" 7 "f" 6 FALSE "f6")
|
||
|
|
("Pawn" "none" "c" 6 "c" 7 FALSE "c7")
|
||
|
|
("pawn" "none" "f" 6 "f" 5 FALSE "f5")
|
||
|
|
("Pawn" "none" "c" 7 "c" 8 TRUE "c8=Q+")
|
||
|
|
))];
|
||
|
|
|
||
|
|
let chessrel = (chess1 movingpoints consume);
|
||
|
|
|
||
|
|
#query chessrel feed filter [.Piece = "Queen"] extend [Queen: .Route] project [Queen] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "King"] extend [King: .Route] project [King] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "Bishop"] extend [Bishop: .Route] project [Bishop] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "Knight"] extend [Knight: .Route] project [Knight] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "Rook"] extend [Rook: .Route] project [Rook] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "Pawn"] extend [Pawn: .Route] project [Pawn] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "queen"] extend [queen: .Route] project [queen] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "king"] extend [king: .Route] project [king] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "bishop"] extend [bishop: .Route] project [bishop] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "knight"] extend [knight: .Route] project [knight] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "rook"] extend [rook: .Route] project [rook] consume;
|
||
|
|
#query chessrel feed filter [.Piece = "panw"] extend [panw: .Route] project [panw] consume;
|