quodatum/basex-lsp
1
0
Fork 0
Code Issues 17 Activity Actions

[mod] tidy

Browse source
This commit is contained in:
Andy Bunce 2025-11-03 12:50:34 +00:00
parent afb9e59fe4
commit 6ff94888ef
9 changed files with 18 additions and 400 deletions
Download patch file Download diff file Expand all files Collapse all files

2
webapp/lsp/handlers.xqm
View file

@ -8,7 +8,7 @@ module namespace hnd="lsp/handlers";
declare record hnd:State(
result as item()*,
skipchildren? as xs:boolean:=false(),
extras?
extras? (: typically map with ?text:)
);
declare type hnd:actionFn as fn(

17
webapp/lsp/providers/diagnostics.xqm
View file

@ -66,21 +66,20 @@ as lspt:Diagnostic*
(: test data :)
declare function lsp-diags:parse-xquery($text as xs:string, $parse as element(Module))
as map(*)*{
let $state:= hnd:State(())
let $result:= hnd:walk($parse,$lsp-diags:actions,$state)
return $result?result
let $state:= hnd:State((),false(),{"text":$text})
let $state:= hnd:walk($parse,$lsp-diags:actions,$state)
return $state?result
};
declare function lsp-diags:Module($parse as element(Module),$state as hnd:State )
as hnd:State{
let $new:=if(exists($parse/VersionDecl)=>trace("has ver: "))
then ()
else let $text:="dddjjjjjjjjjjjjjjjj"
let $e:=1
let $last:=8
else let $text:=$state?extras?text
return lspt:Diagnostic(lspt:Range(
pos:toPosition($text, 1 ),
pos:toPosition($text, 1)
pos:toPosition($text, 0 ),
pos:toPosition($text, 0)
),
$lspt:SeverityKind?info,
"No XQuery version declaration present",
@ -88,7 +87,7 @@ as hnd:State{
return (
$state
=>map:put("result",($state?result,$new=>trace(" VER ")))
=>map:put("skipchildren",true())
=>map:put("skipchildren",false())
,message(name($parse),"Module: ")
)