[mod] symbols vs dummy

This commit is contained in:
Andy Bunce 2025-10-10 11:28:31 +01:00
parent 5409755b71
commit 732a1c98e3
5 changed files with 152 additions and 143 deletions

View file

@ -39,7 +39,8 @@ as map(*)?
declare
function rpc:reply($json as map(*))
as empty-sequence() {
let $f :=(void(trace($json,"➡️")),$rpc:Methods?($json?method))
let $f :=(message($json,"➡️"),
$rpc:Methods?($json?method))
let $response := $f!.($json)
return $response!rpc:send(.)
};

View file

@ -32,7 +32,7 @@ as map(*)
let $uri:= $json?params?textDocument?uri
let $word:="TODO"
let $r:= [
`At { pos:ln-col($pos) }, uri: {$uri},
`Hover { pos:ln-col($pos) }, uri: {$uri},
[path](https://quodatum.github.io/basex-xqparse/i-BaseX.xhtml#EQName)
WordAt: {$word}`
@ -46,15 +46,9 @@ function lsp-text:symbols($json as map(*))
as map(*)?
{
let $uri:=$json?params?textDocument?uri
let $text:=docs:get(ws:id(), $uri, "textDocument")?text
let $fr:=pos:full-range($text)
(: dummy data :)
let $nameRange:=$fr
let $result:=map:for-each($lspt:SymbolKindMap,
fn($k,$v){
lspt:DocumentSymbol($k,$v,$fr,$nameRange,"todo description")
})=>array:build()
return rpc:result($json,$result)=>trace("SSS")
let $xml:=docs:get(ws:id(), $uri, "parse")
let $syms:=syms:list($xml,string($xml))
return rpc:result($json,array:build($syms))
};
declare
@ -63,7 +57,7 @@ as map(*)?
{
let $doc:=$json?params?textDocument?uri
let $context:=$json?params?context (:{"triggerCharacter":":","triggerKind":2.0e0}:)
let $result:=comp:list($context)
let $result:=comp:list($context)=>array:build()
return rpc:result($json,$result)
};

View file

@ -1,7 +1,9 @@
module namespace comp = 'lsp-completions';
import module namespace lspt = 'lsp-typedefs' at "../lsp-typedefs.xqm";
(: (:{"triggerCharacter":":","triggerKind":2.0e0}:):)
declare function comp:list($context as map(*)){
declare function comp:list($context as map(*))
as lspt:CompletionItem*{
message($context,"context: "),
()
(1 to 5)!lspt:CompletionItem("item"+.,.)
};

View file

@ -3,8 +3,9 @@ xquery version '4.0';
module namespace syms="lsp/symbols";
import module namespace hnd="lsp/handlers" at "../handlers.xqm";
import module namespace lspt = 'lsp-typedefs' at "../lsp-typedefs.xqm";
import module namespace pos="lsp/position" at "../position.xqm";
declare function syms:list($parse as element(),$syms as lspt:DocumentSymbol* :=() )
declare function syms:list($parse as element(),$text as xs:string)
as lspt:DocumentSymbol*{
let $actions as hnd:actionMap :={
"ContextValueDecl": syms:action#2,
@ -18,6 +19,17 @@ as lspt:DocumentSymbol*{
return $result?result
};
declare function syms:dummy($parse as element(),$text as xs:string )
as lspt:DocumentSymbol*{
let $fr:=(pos:full-range($text),message("dummy"))
(: dummy data :)
let $nameRange:=$fr
return map:for-each($lspt:SymbolKindMap,
fn($k,$v){
lspt:DocumentSymbol($k,$v,$fr,$nameRange,`{$k} v:{$v}`)
})
};
(:~ just trace :)
declare function syms:action($parse as element(),$state as hnd:Result )
as hnd:Result{