expr: 34.15%

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#lang racket/base
(provide record-maintainer-server)
(require rakka)
(require racket/path
         racket/match
         data/interval-map
         "record.rkt"
         "collector.rkt")

(struct record-maintainer-server-state (file-path record))
(struct record-maintainer-server ()
  #:methods gen:server
  [(define (init self args)
     (define file-path args)
     (define ns (make-base-namespace))
     ; track collected record as state of this genserver
     (ok (record-maintainer-server-state
          file-path
          (collect-from file-path ns))))

   (define (handle-call self msg state from)
     (match msg
       [(list 'require-location? req)
        (define record (record-maintainer-server-state-record state))
        (define requires (record-requires record))
        (reply (hash-ref requires req #f) state)]
       ; lookup document for given position
       [(list 'get-doc pos)
        (define record (record-maintainer-server-state-record state))
        (define doc (record-doc record))
        (reply (interval-map-ref doc pos #f) state)]
       ; lookup definition location for given position
       [(list 'get-def pos)
        (define record (record-maintainer-server-state-record state))
        (define defs (record-defs record))
        (reply (interval-map-ref defs pos #f) state)]
       ['ack (reply 'ok state)]))

   (define (handle-cast self msg state)
     (match msg
       ['update
        (match-define (struct* record-maintainer-server-state ([file-path path] [record r]))
          state)
        (match-define (struct* record ([created-time created-time])) r)
        (cond
          [(< created-time (file-or-directory-modify-seconds path))
           (define ns (make-base-namespace))
           (noreply (record-maintainer-server-state path (collect-from path ns)))]
          [else (noreply state)])]
       [_ (noreply state)]))

   (define (handle-info self msg state)
     (noreply state))

   (define (terminate self reason state)
     (void))])

(module+ test
  (require rackunit)
  (require racket/string)

  (define pid (gen-server-start (record-maintainer-server)
                                (normalize-path "collector.rkt")))

  (check-equal? (gen-server-call pid '(get-def 340)) 'projectwise-references)
  (check-true (string-contains? (gen-server-call pid '(get-doc 333))
                                "doc/reference/define.html#(form._((lib._racket%2Fprivate%2Fbase..rkt)._define))"))
  (check-equal? (gen-server-call pid (list 'require-location? (normalize-path "record.rkt")))
                '(209 230)))