Create ML / SQL Views

ml-sql-view.xqy

xquery version "1.0-ml"; 
 
import module namespace view = "http://marklogic.com/xdmp/view" 
      at "/MarkLogic/views.xqy";
      
declare option xdmp:mapping 'false';

let $_schema_remove := 
    let $current := try { view:schema-get ('main') } catch ($e) { () }
    return 
        if (fn:exists ($current)) then view:schema-remove ('main') else ()
        
let $_schema_add := view:schema-create("main", ())

let $_views_add :=
    for $view in /views/view:view
    return 
    view:create(
        "main",
        $view/view:view-name/fn:string(),
        $view/(view:element-scope|view:collection-scope),
        ($view/view:columns/view:column),
        (),
        () )

return ()