b972a0940d
being edited in DrRacket (via places) Added an API to let tools have access to that information (and compute more stuff) Used that to make an online version of Check Syntax which led to a separately callable Check Syntax API.
146 lines
4.8 KiB
Racket
146 lines
4.8 KiB
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/promise
|
|
setup/xref)
|
|
|
|
(define-local-member-name
|
|
syncheck:init-arrows
|
|
syncheck:clear-arrows
|
|
syncheck:arrows-visible?
|
|
|
|
syncheck:find-source-object
|
|
syncheck:add-background-color
|
|
syncheck:add-docs-menu
|
|
syncheck:color-range
|
|
syncheck:add-require-open-menu
|
|
syncheck:add-rename-menu
|
|
syncheck:add-arrow
|
|
syncheck:add-tail-arrow
|
|
syncheck:add-mouse-over-status
|
|
syncheck:add-jump-to-definition
|
|
|
|
syncheck:sort-bindings-table
|
|
syncheck:jump-to-next-bound-occurrence
|
|
syncheck:jump-to-binding-occurrence
|
|
syncheck:jump-to-definition
|
|
|
|
syncheck:clear-highlighting
|
|
syncheck:apply-style/remember
|
|
;syncheck:error-report-visible? ;; test suite uses this one.
|
|
;syncheck:get-bindings-table ;; test suite uses this one.
|
|
syncheck:clear-error-message
|
|
|
|
hide-error-report
|
|
get-error-report-text
|
|
get-error-report-visible?
|
|
|
|
turn-off-error-report
|
|
turn-on-error-report
|
|
|
|
update-button-visibility/settings
|
|
|
|
set-syncheck-mode
|
|
get-syncheck-mode
|
|
update-menu-status)
|
|
|
|
(define syncheck-annotations<%>
|
|
(interface ()
|
|
syncheck:find-source-object
|
|
syncheck:add-background-color
|
|
syncheck:add-require-open-menu
|
|
syncheck:add-docs-menu
|
|
syncheck:add-rename-menu
|
|
syncheck:add-arrow
|
|
syncheck:add-tail-arrow
|
|
syncheck:add-mouse-over-status
|
|
syncheck:add-jump-to-definition
|
|
syncheck:color-range))
|
|
|
|
(define syncheck-text<%>
|
|
(interface (syncheck-annotations<%>)
|
|
syncheck:init-arrows
|
|
syncheck:clear-arrows
|
|
syncheck:arrows-visible?
|
|
syncheck:sort-bindings-table
|
|
syncheck:get-bindings-table
|
|
syncheck:jump-to-next-bound-occurrence
|
|
syncheck:jump-to-binding-occurrence
|
|
syncheck:jump-to-definition))
|
|
|
|
;; use this to communicate the frame being
|
|
;; syntax checked w/out having to add new
|
|
;; parameters to all of the functions
|
|
(define current-annotations (make-parameter #f))
|
|
|
|
(define xref (if (getenv "PLTDRXREFDELAY")
|
|
(begin
|
|
(printf "PLTDRXREFDELAY: using plain delay\n")
|
|
(delay (begin
|
|
(printf "PLTDRXREFDELAY: loading xref\n")
|
|
(begin0
|
|
(load-collections-xref)
|
|
(printf "PLTDRXREFDELAY: loaded xref\n")))))
|
|
(delay/idle (load-collections-xref))))
|
|
(define (get-xref) (force xref))
|
|
|
|
(define annotations-mixin
|
|
(mixin () (syncheck-annotations<%>)
|
|
(define/public (syncheck:find-source-object stx) #f)
|
|
(define/public (syncheck:add-background-color source start end color) (void))
|
|
(define/public (syncheck:add-require-open-menu source color start end key) (void))
|
|
(define/public (syncheck:add-rename-menu text start-pos end-pos key id-as-sym id-sets rename-ht get-ids) (void))
|
|
(define/public (syncheck:add-docs-menu text start-pos end-pos key the-label path tag) (void))
|
|
(define/public (syncheck:add-arrow start-text start-pos-left start-pos-right
|
|
end-text end-pos-left end-pos-right
|
|
actual? level)
|
|
(void))
|
|
(define/public (syncheck:add-tail-arrow from-text from-pos to-text to-pos) (void))
|
|
(define/public (syncheck:add-mouse-over-status text pos-left pos-right str) (void))
|
|
(define/public (syncheck:add-jump-to-definition text start end id filename) (void))
|
|
(define/public (syncheck:color-range source start finish style-name mode) (void))
|
|
(super-new)))
|
|
|
|
(provide syncheck-text<%>
|
|
syncheck-annotations<%>
|
|
current-annotations
|
|
annotations-mixin
|
|
get-xref
|
|
|
|
;; methods
|
|
syncheck:init-arrows
|
|
syncheck:clear-arrows
|
|
syncheck:arrows-visible?
|
|
syncheck:add-arrow
|
|
syncheck:add-tail-arrow
|
|
syncheck:add-mouse-over-status
|
|
syncheck:add-jump-to-definition
|
|
syncheck:add-docs-menu
|
|
syncheck:add-require-open-menu
|
|
syncheck:add-rename-menu
|
|
syncheck:add-background-color
|
|
syncheck:sort-bindings-table
|
|
syncheck:jump-to-next-bound-occurrence
|
|
syncheck:jump-to-binding-occurrence
|
|
syncheck:jump-to-definition
|
|
|
|
syncheck:clear-highlighting
|
|
syncheck:apply-style/remember
|
|
;syncheck:error-report-visible? ;; test suite uses this one.
|
|
;syncheck:get-bindings-table ;; test suite uses this one.
|
|
syncheck:clear-error-message
|
|
syncheck:color-range
|
|
syncheck:find-source-object
|
|
|
|
hide-error-report
|
|
get-error-report-text
|
|
get-error-report-visible?
|
|
|
|
turn-off-error-report
|
|
turn-on-error-report
|
|
|
|
update-button-visibility/settings
|
|
|
|
set-syncheck-mode
|
|
get-syncheck-mode
|
|
update-menu-status)
|