[add] initial handler stuff

webapp/lsp/handlers.xqm

@@ -0,0 +1,56 @@
+(: tools to analyse xml parse tree
+@author Andy Bunce
+:)
+module namespace hnd="lsp/handlers";
+import module namespace pos="lsp/position" at "position.xqm";
+
+declare record hnd:hand( 
+    result as item()*,
+    skipchildren as xs:boolean 
+);
+
+declare function hnd:default-handler($el as element(*),$state)
+as function(*){
+  fn(){hnd:hand($state,false())}
+};
+
+declare function hnd:get-handler($el as element(*),$state)
+as function(*)
+{ function-lookup(xs:QName(name($el)),2)
+  otherwise hnd:default-handler($el,$state)
+};
+
+declare function hnd:diags($parse as element(),$diags:=())
+{
+  let $h:= hnd:get-handler($parse,$diags)($parse,$diags)
+  return if($h?skipchildren)
+        then $h?result
+        else fold-left($parse/*,$diags,
+        fn($r,$this){
+          hnd:diags($this,$r)
+        })
+};
+
+declare record hnd:symbol (
+ name as xs:string,
+ type as xs:string,
+ range-name? as pos:Range,
+ range-full? as pos:Range,
+ children? as array(hnd:symbol)
+);
+
+declare function hnd:symbols($parse as element(),$syms as hnd:symbol* :=() )
+{
+ 'todo'
+};
+
+declare function hnd:anotated-declaration($parse as element(),$syms)
+as hnd:hand
+{
+  let $sym:=hnd:symbol( 
+  $parse/token,
+  "AA"
+)
+return hnd:hand(($syms,$sym),true())
+};
+