mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
62 lines
1.1 KiB
Plaintext
62 lines
1.1 KiB
Plaintext
|
/- *language-server
|
||
|
|
::
|
||
|
|
|%
|
||
|
|
++ parse-error
|
||
|
|
|= =tape
|
||
|
|
^- (unit [=path =range])
|
||
|
|
=/ parse-pair
|
||
|
|
%+ cook
|
||
|
|
|=([row=@ud col=@ud] [(dec row) col])
|
||
|
|
(ifix [sel ser] ;~((glue ace) dem dem))
|
||
|
|
=/ parse-path
|
||
|
|
%+ cook
|
||
|
|
|=(p=path (slag 3 p))
|
||
|
|
(ifix [fas (jest '::')] (more fas urs:ab))
|
||
|
|
=/ parse-full
|
||
|
|
;~(plug parse-path ;~(sfix ;~((glue dot) parse-pair parse-pair) gar))
|
||
|
|
(rust tape parse-full)
|
||
|
|
::
|
||
|
|
++ get-errors-from-tang
|
||
|
|
|= [uri=@t =tang]
|
||
|
|
^- (list range)
|
||
|
|
=/ =path
|
||
|
|
(uri-to-path uri)
|
||
|
|
%+ murn tang
|
||
|
|
|= =tank
|
||
|
|
^- (unit range)
|
||
|
|
?. ?=([%leaf *] tank)
|
||
|
|
~
|
||
|
|
=/ error
|
||
|
|
(parse-error p.tank)
|
||
|
|
?~ error
|
||
|
|
~
|
||
|
|
?: =(path path.u.error)
|
||
|
|
`range.u.error
|
||
|
|
~
|
||
|
|
::
|
||
|
|
++ uri-to-path
|
||
|
|
|= uri=@t
|
||
|
|
^- path
|
||
|
|
=/ pier-root=(set cord)
|
||
|
|
%- sy
|
||
|
|
['app' 'gen' 'lib' 'mar' 'ren' 'sur' 'sys' 'test' ~]
|
||
|
|
=/ path=(list cord)
|
||
|
|
(parse-uri uri)
|
||
|
|
|-
|
||
|
|
?< ?=(~ path)
|
||
|
|
?: (~(has in pier-root) i.path)
|
||
|
|
`^path`path
|
||
|
|
$(path t.path)
|
||
|
|
::
|
||
|
|
++ parse-uri
|
||
|
|
|= uri=@t
|
||
|
|
=- (fall - /fail)
|
||
|
|
%+ rush uri
|
||
|
|
%+ more
|
||
|
|
;~(pose (plus fas) dot)
|
||
|
|
%+ cook
|
||
|
|
crip
|
||
|
|
(star ;~(pose col hep alf))
|
||
|
|
::
|
||
|
|
--
|