add document as naked properties

src/xquery/insert-tuples.xqy

@@ -6,12 +6,15 @@ xquery version "1.0-ml";
 import module namespace sem="http://marklogic.com/semantic"
  at "semantic.xqy";
 
+declare variable $AS-PROPERTY as xs:boolean external ;
+
 declare variable $FOREST as xs:unsignedLong external
 ;
 declare variable $MAP as map:map external
 ;
 
-for $n as element(t) in map:get($MAP, xs:string($FOREST))
-return sem:tuple-insert($n/s, $n/p, $n/o, $n/c)
+if ($AS-PROPERTY)
+then sem:tuple-insert-as-property(map:get($MAP, xs:string($FOREST))) 
+else sem:tuple-insert(map:get($MAP, xs:string($FOREST)))
 
 (: insert-tuples.xqy :)

src/xquery/insert.xqy

@@ -71,7 +71,8 @@ for $key in map:keys($MAP)
 let $forest := xs:unsignedLong($key)
 return xdmp:invoke(
   'insert-tuples.xqy',
-  (xs:QName('FOREST'), $forest,
+  (xs:QName('AS-PROPERTY'), true(),
+    xs:QName('FOREST'), $forest,
     xs:QName('MAP'), $MAP),
     <options xmlns="xdmp:eval">{
       element database { $forest } }</options> )

src/xquery/semantic.xqy

@@ -768,6 +768,27 @@ as element(t)
   }
 };
 
+declare function sem:tuple-insert-as-property(
+  $s as xs:string,
+  $p as xs:string,
+  $o as xs:string,
+  $c as xs:string?)
+as empty-sequence()
+{
+  xdmp:document-add-properties(
+    sem:uri-for-tuple($s, $p, $o, $c),
+    sem:tuple($s, $p, $o, $c)/* )
+};
+
+declare function sem:tuple-insert-as-property(
+  $t as element(t))
+as empty-sequence()
+{
+  xdmp:document-add-properties(
+    sem:uri-for-tuple($t/s, $t/p, $t/o, $t/c),
+    sem:tuple($t/s, $t/p, $t/o, $t/c)/* )
+};
+
 declare function sem:tuple-insert(
   $s as xs:string,
   $p as xs:string,