Update of /cvsroot/monetdb/pathfinder/tests/BugTracker/Tests
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26524
Modified Files:
Tag: Aug2009
All
Added Files:
Tag: Aug2009
compilation_error.SF-2860037.xml
compilation_error.SF-2860037_1.stable.err
compilation_error.SF-2860037_1.stable.out
compilation_error.SF-2860037_1.xq.in
compilation_error.SF-2860037_2.stable.err
compilation_error.SF-2860037_2.stable.out
compilation_error.SF-2860037_2.xq.in
compilation_error.SF-2860574.xml
compilation_error.SF-2860574_1.stable.err
compilation_error.SF-2860574_1.stable.out
compilation_error.SF-2860574_1.xq.in
compilation_error.SF-2860574_2.stable.err
compilation_error.SF-2860574_2.stable.out
compilation_error.SF-2860574_2.xq.in
Log Message:
added tests for
ID: 2860037 "PF: fatal error: aborted too deep recursion on linux"
https://sourceforge.net/tracker/?func=detail&aid=2860037&group_id=56967&atid=482468
and
ID: 2860574 "PF: fatal error: column not found / BATappend access denied"
https://sourceforge.net/tracker/?func=detail&aid=2860574&group_id=56967&atid=482468
both seem to work fine after Jan R.'s recnt fixes
--- NEW FILE: compilation_error.SF-2860574.xml ---
<?xml version="1.0" encoding="utf-8"?>
<views>
<active>
</active>
<archive>
</archive>
</views>
U All
Index: All
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/tests/BugTracker/Tests/All,v
retrieving revision 1.144.2.4
retrieving revision 1.144.2.5
diff -u -d -r1.144.2.4 -r1.144.2.5
--- All 10 Sep 2009 09:43:02 -0000 1.144.2.4
+++ All 29 Sep 2009 15:12:17 -0000 1.144.2.5
@@ -212,6 +212,10 @@
distinct-values-two-sequences.SF-2853441
child-steps-and-replace.SF-2716723
update-with-timing.SF-2852928
+compilation_error.SF-2860574_1
+compilation_error.SF-2860574_2
+compilation_error.SF-2860037_1
+compilation_error.SF-2860037_2
#
# Test "Zombie_document.SF-2009556" currently seems to corrupt the database
and hence should be last in this list!
Zombie_document.SF-2009556
--- NEW FILE: compilation_error.SF-2860574_1.stable.err ---
stderr of test 'compilation_error.SF-2860574_1` in directory 'tests/BugTracker`
itself:
# 16:47:38 >
# 16:47:38 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=36611 --set
xrpc_port=48600 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:47:38 >
# 16:47:39 >
# 16:47:39 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=36611 compilation_error.SF-2860574_1.xq
# 16:47:39 >
# 16:47:39 >
# 16:47:39 > Done.
# 16:47:39 >
--- NEW FILE: compilation_error.SF-2860037_2.stable.err ---
stderr of test 'compilation_error.SF-2860037_2` in directory 'tests/BugTracker`
itself:
# 16:57:26 >
# 16:57:26 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=31276 --set
xrpc_port=48756 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:57:26 >
# 16:57:26 >
# 16:57:26 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=31276 compilation_error.SF-2860037_2.xq
# 16:57:26 >
# 16:57:33 >
# 16:57:33 > Done.
# 16:57:33 >
--- NEW FILE: compilation_error.SF-2860574_2.stable.out ---
stdout of test 'compilation_error.SF-2860574_2` in directory 'tests/BugTracker`
itself:
# 16:47:39 >
# 16:47:39 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=36611 --set
xrpc_port=48600 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:47:39 >
# MonetDB Server v4.32.1
# based on GDK v1.32.3
# Copyright (c) 1993-July 2008, CWI. All rights reserved.
# Copyright (c) August 2008-2009, MonetDB B.V.. All rights reserved.
# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs; dynamically
linked.
# Visit http://monetdb.cwi.nl/ for further information.
# PF/Tijah module v0.13.0 loaded. http://dbappl.cs.utwente.nl/pftijah
# MonetDB/XQuery module v0.28.3 loaded (default back-end is 'algebra')
# XRPC administrative console at http://127.0.0.1:48600/admin
printf("\nReady.\n");
Ready.
quit();
Over..
# 16:47:39 >
# 16:47:39 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=36611 compilation_error.SF-2860574_2.xq
# 16:47:39 >
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><views>
<active>
</active>
<archive>
</archive>
</views></XQueryResult>
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><views>
<active>
<view user="axel" prevseq="0" name="zambon" now="1253179900.00036"><select
inex="include" allany=""><cond field="creators_family"
cmp="eq">zambon</cond></select></view></active>
<archive>
</archive>
</views></XQueryResult>
# 16:47:40 >
# 16:47:40 > Done.
# 16:47:40 >
--- NEW FILE: compilation_error.SF-2860574_1.xq.in ---
pf:add-doc("$TSTSRCDIR/compilation_error.SF-2860574.xml","view-defs.xml",10)
<>
doc("view-defs.xml")
<>
declare function add-int-attr($element as element()
,$val as xs:integer?)
as element()?
{
element {$element/name()} {
attribute { 'seq' } { $val },
$element/@*,
$element/node()
}
};
declare updating function save-view($savedoc as xs:string
,$name as xs:string
,$user as xs:string
,$view as element())
{
let $doc := doc($savedoc)
let $save := $doc/views/active/vi...@name eq $name and @user eq $user]
return
if (empty($save))
then
let $v := add-int-attr($view, 0)
return do insert $v as last into $doc/views/active
else (
let $n := (abs($save/@seq) +1 ) cast as xs:integer?
let $v := add-int-attr($view, $n)
return (
do replace $save with $v,
do insert $save as last into $doc/views/archive
)
)
};
save-view("view-defs.xml", "zambon", "axel", <view now='1253179900.00036'
name='zambon' prevseq='0' user='axel'><select allany='' inex='include'
><cond cmp='eq' field='creators_family'>zambon</cond></select></view>)
<>
doc("view-defs.xml")
<>
pf:del-doc("view-defs.xml")
--- NEW FILE: compilation_error.SF-2860037_1.stable.err ---
stderr of test 'compilation_error.SF-2860037_1` in directory 'tests/BugTracker`
itself:
# 16:57:16 >
# 16:57:16 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=31276 --set
xrpc_port=48756 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:57:16 >
# 16:57:16 >
# 16:57:16 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=31276 compilation_error.SF-2860037_1.xq
# 16:57:16 >
# 16:57:26 >
# 16:57:26 > Done.
# 16:57:26 >
--- NEW FILE: compilation_error.SF-2860574_2.stable.err ---
stderr of test 'compilation_error.SF-2860574_2` in directory 'tests/BugTracker`
itself:
# 16:47:39 >
# 16:47:39 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=36611 --set
xrpc_port=48600 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:47:39 >
# 16:47:39 >
# 16:47:39 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=36611 compilation_error.SF-2860574_2.xq
# 16:47:39 >
# 16:47:40 >
# 16:47:40 > Done.
# 16:47:40 >
--- NEW FILE: compilation_error.SF-2860037_1.stable.out ---
stdout of test 'compilation_error.SF-2860037_1` in directory 'tests/BugTracker`
itself:
# 16:57:16 >
# 16:57:16 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=31276 --set
xrpc_port=48756 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:57:16 >
# MonetDB Server v4.32.1
# based on GDK v1.32.3
# Copyright (c) 1993-July 2008, CWI. All rights reserved.
# Copyright (c) August 2008-2009, MonetDB B.V.. All rights reserved.
# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs; dynamically
linked.
# Visit http://monetdb.cwi.nl/ for further information.
# PF/Tijah module v0.13.0 loaded. http://dbappl.cs.utwente.nl/pftijah
# MonetDB/XQuery module v0.28.3 loaded (default back-end is 'algebra')
# XRPC administrative console at http://127.0.0.1:48756/admin
printf("\nReady.\n");
Ready.
quit();
Over..
# 16:57:16 >
# 16:57:16 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=31276 compilation_error.SF-2860037_1.xq
# 16:57:16 >
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><repository/></XQueryResult>
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><repository/></XQueryResult>
# 16:57:26 >
# 16:57:26 > Done.
# 16:57:26 >
--- NEW FILE: compilation_error.SF-2860037_2.stable.out ---
stdout of test 'compilation_error.SF-2860037_2` in directory 'tests/BugTracker`
itself:
# 16:57:26 >
# 16:57:26 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=31276 --set
xrpc_port=48756 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:57:26 >
# MonetDB Server v4.32.1
# based on GDK v1.32.3
# Copyright (c) 1993-July 2008, CWI. All rights reserved.
# Copyright (c) August 2008-2009, MonetDB B.V.. All rights reserved.
# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs; dynamically
linked.
# Visit http://monetdb.cwi.nl/ for further information.
# PF/Tijah module v0.13.0 loaded. http://dbappl.cs.utwente.nl/pftijah
# MonetDB/XQuery module v0.28.3 loaded (default back-end is 'algebra')
# XRPC administrative console at http://127.0.0.1:48756/admin
printf("\nReady.\n");
Ready.
quit();
Over..
# 16:57:26 >
# 16:57:26 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=31276 compilation_error.SF-2860037_2.xq
# 16:57:26 >
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><repository/></XQueryResult>
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><repository/></XQueryResult>
# 16:57:33 >
# 16:57:33 > Done.
# 16:57:33 >
--- NEW FILE: compilation_error.SF-2860574_1.stable.out ---
stdout of test 'compilation_error.SF-2860574_1` in directory 'tests/BugTracker`
itself:
# 16:47:38 >
# 16:47:38 > Mserver
"--config=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/etc/MonetDB.conf"
--debug=10 --set gdk_nr_threads=1 --set
"monet_mod_path=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/lib:/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/lib64/MonetDB4/bin"
--set
"gdk_dbfarm=/ufs/manegold/_/scratch0/Monet/Testing/Stable/prefix.--enable-strict_--disable-debug_--enable-optimize_--enable-assert/var/MonetDB4/dbfarm"
--set mapi_open=true --set xrpc_open=true --set mapi_port=36611 --set
xrpc_port=48600 --set monet_prompt= --trace "--dbname=mTests_tests_BugTracker"
"--dbinit= module(pathfinder);" ; echo ; echo Over..
# 16:47:38 >
# MonetDB Server v4.32.1
# based on GDK v1.32.3
# Copyright (c) 1993-July 2008, CWI. All rights reserved.
# Copyright (c) August 2008-2009, MonetDB B.V.. All rights reserved.
# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs; dynamically
linked.
# Visit http://monetdb.cwi.nl/ for further information.
# PF/Tijah module v0.13.0 loaded. http://dbappl.cs.utwente.nl/pftijah
# MonetDB/XQuery module v0.28.3 loaded (default back-end is 'algebra')
# XRPC administrative console at http://127.0.0.1:48600/admin
printf("\nReady.\n");
Ready.
quit();
Over..
# 16:47:39 >
# 16:47:39 > mclient -lxquery -fxml -umonetdb -Pmonetdb --host=rig
--port=36611 compilation_error.SF-2860574_1.xq
# 16:47:39 >
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><views>
<active>
</active>
<archive>
</archive>
</views></XQueryResult>
<?xml version="1.0" encoding="utf-8"?>
<XQueryResult><views>
<active>
<view user="axel" prevseq="0" name="zambon" now="1253179900.00036"
seq="0"><select allany="" inex="include"><cond cmp="eq"
field="creators_family">zambon</cond></select></view></active>
<archive>
</archive>
</views></XQueryResult>
# 16:47:39 >
# 16:47:39 > Done.
# 16:47:39 >
--- NEW FILE: compilation_error.SF-2860037_2.xq.in ---
pf:add-doc("$TSTSRCDIR/compilation_error.SF-2860037.xml","eprints-export.xml")
<>
doc("eprints-export.xml")
<>
declare function processISBN($fields as element()*) as element()*
{
let $isbn10 := $fiel...@name eq "isbn"]/string()
let $isbn13 := $fiel...@name eq "isbn_13"]/string()
let $i := if (empty($isbn13) or $isbn13="") then $isbn10 else $isbn13
let $ii := if ($i = "not assigned") then () else $i
return
(<isbn>{$ii}</isbn>
,<isbn_10>{$isbn10}</isbn_10>
,<isbn_13>{$isbn13}</isbn_13>
)
};
declare function processNames($en as xs:string, $fields as element()*) as
element()*
{
let $allnm := concat(concat("all",$en),"s")
let $givennm := concat($en,"s_given")
let $familynm := concat($en,"s_family")
let $idnm := concat($en,"s_id")
let $fullnm := concat($en,"s_fullname")
let $allnames :=
for $f in $fields
let $given := $f/*:pa...@name eq "given"]/string()
let $family := $f/*:pa...@name eq "family"]/string()
return concat($given,$family)
let $conv :=
for $f in $fields
let $given := $f/*:pa...@name eq "given"]/string()
let $family := $f/*:pa...@name eq "family"]/string()
let $id := $f/@id/string()
return
element {$en}{
if (empty($given)) then ()
else element {$givennm}{$given}
,if (empty($family)) then ()
else element {$familynm}{$family}
,if (empty($id)) then ()
else element {$idnm}{$id}
,if (empty($given) and empty($family)) then ()
else element {$fullnm}{$given,$family}
}
return
(element {$allnm} { string-join($allnames," and ") }
,$conv
)
};
let $doc := doc("eprints-export.xml")
let $skip := ("creators","editors",
"supervisors","assistant_supervisors","isbn","isbn_13")
let $result :=
for $rec in $doc//*:record
let $flds := $rec/*:field
let $cr := processNames("creator",$fl...@name eq "creators"])
let $ed := processNames("editor",$fl...@name eq "editors"])
let $sup := processNames("supervisor",$fl...@name eq "supervisors"])
let $asup := processNames("assistant_supervisor",$fl...@name eq
"assistant_supervisors"])
let $isbn := ($fl...@name eq "isbn" or @name eq "isbn_13"])
let $ep :=
<eprint>{
$cr,$ed,$sup,$asup,$isbn,
for $f in $flds
let $fn := if ($f/@name) then exactly-one($f/@name/string()) else
"unnamed-field"
return
if ($fn = $skip) then ()
else if ($fn eq "date_effective")
then let $value := exactly-one($f/string())
return (<date_effective>{$value}</date_effective>
,<year>{substring($value,1,4)}</year>
)
else element {$fn} {string($f)}
}</eprint>
return
$ep
return
<repository>{ $result }</repository>
<>
pf:del-doc("eprints-export.xml")
--- NEW FILE: compilation_error.SF-2860037_1.xq.in ---
pf:add-doc("$TSTSRCDIR/compilation_error.SF-2860037.xml","eprints-export.xml")
<>
doc("eprints-export.xml")
<>
declare function processISBN($fields as element()*) as element()*
{
let $isbn10 := $fiel...@name eq "isbn"]/string()
let $isbn13 := $fiel...@name eq "isbn_13"]/string()
let $i := if (empty($isbn13) or $isbn13="") then $isbn10 else $isbn13
let $ii := if ($i = "not assigned") then () else $i
return
(<isbn>{$ii}</isbn>
,<isbn_10>{$isbn10}</isbn_10>
,<isbn_13>{$isbn13}</isbn_13>
)
};
declare function processNames($en as xs:string, $fields as element()*) as
element()*
{
let $allnm := concat(concat("all",$en),"s")
let $givennm := concat($en,"s_given")
let $familynm := concat($en,"s_family")
let $idnm := concat($en,"s_id")
let $fullnm := concat($en,"s_fullname")
let $allnames :=
for $f in $fields
let $given := $f/*:pa...@name eq "given"]/string()
let $family := $f/*:pa...@name eq "family"]/string()
return concat($given,$family)
let $conv :=
for $f in $fields
let $given := $f/*:pa...@name eq "given"]/string()
let $family := $f/*:pa...@name eq "family"]/string()
let $id := $f/@id/string()
return
element {$en}{
if (empty($given)) then ()
else element {$givennm}{$given}
,if (empty($family)) then ()
else element {$familynm}{$family}
,if (empty($id)) then ()
else element {$idnm}{$id}
,if (empty($given) and empty($family)) then ()
else element {$fullnm}{$given,$family}
}
return
(element {$allnm} { string-join($allnames," and ") }
,$conv
)
};
let $doc := doc("eprints-export.xml")
let $skip := ("creators","editors",
"supervisors","assistant_supervisors","isbn","isbn_13")
let $result :=
for $rec in $doc//*:record
let $flds := $rec/*:field
let $cr := processNames("creator",$fl...@name eq "creators"])
let $ed := processNames("editor",$fl...@name eq "editors"])
let $sup := processNames("supervisor",$fl...@name eq "supervisors"])
let $asup := processNames("assistant_supervisor",$fl...@name eq
"assistant_supervisors"])
let $isbn := processISBN($fl...@name eq "isbn" or @name eq "isbn_13"])
let $ep :=
<eprint>{
$cr,$ed,$sup,$asup,$isbn,
for $f in $flds
let $fn := if ($f/@name) then exactly-one($f/@name/string()) else
"unnamed-field"
return
if ($fn = $skip) then ()
else if ($fn eq "date_effective")
then let $value := exactly-one($f/string())
return (<date_effective>{$value}</date_effective>
,<year>{substring($value,1,4)}</year>
)
else element {$fn} {string($f)}
}</eprint>
return
$ep
return
<repository>{ $result }</repository>
<>
pf:del-doc("eprints-export.xml")
--- NEW FILE: compilation_error.SF-2860574_2.xq.in ---
pf:add-doc("$TSTSRCDIR/compilation_error.SF-2860574.xml","view-defs.xml",10)
<>
doc("view-defs.xml")
<>
declare function add-int-attr($element as element()
,$val as xs:integer?)
as element()?
{
element {$element/name()} {
attribute { 'seq' } { $val },
$element/@*,
$element/node()
}
};
declare updating function save-view($savedoc as xs:string
,$name as xs:string
,$user as xs:string
,$view as element())
{
let $doc := doc($savedoc)
let $save := $doc/views/active/vi...@name eq $name and @user eq $user]
return
if (empty($save))
then
let $v := $view
return do insert $v as last into $doc/views/active
else (
let $v := $view
return (
do replace $save with $v,
do insert $save as last into $doc/views/archive
)
)
};
save-view("view-defs.xml", "zambon", "axel", <view now='1253179900.00036'
name='zambon' prevseq='0' user='axel'><select allany='' inex='include'
><cond cmp='eq' field='creators_family'>zambon</cond></select></view>)
<>
doc("view-defs.xml")
<>
pf:del-doc("view-defs.xml")
--- NEW FILE: compilation_error.SF-2860037.xml ---
<repository/>
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
