1690
((3) 0 () 6 ((q lib "syntax-color/lexer-contract.rkt") (q 82 . 4) (q lib "syntax-color/token-tree.rkt") (c (? . 2) q token-tree%) (q lib "syntax-color/racket-lexer.rkt") (q lib "syntax-color/scribble-lexer.rkt")) () (h ! (equal) ((q def ((lib "syntax-color/paren-tree.rkt") paren-tree%)) q (0 . 3)) ((c def c (c (? . 0) q struct:dont-stop)) c (? . 1)) ((c def c (c (? . 5) q scribble-lexer)) q (1748 . 11)) ((c def c (c (? . 4) q racket-lexer)) q (185 . 7)) ((c def c (c (? . 0) q make-dont-stop)) c (? . 1)) ((c def c (c (? . 2) q node-token-data)) q (3016 . 3)) ((q def ((lib "syntax-color/module-lexer.rkt") module-lexer)) q (1237 . 16)) ((c def c (c (? . 2) q node-left-subtree-length)) q (3074 . 3)) ((c meth c (c (? . 3) q search!)) q (2794 . 3)) ((c def c (c (? . 2) q insert-last-spec!)) q (3530 . 5)) ((c def c (c (? . 2) q insert-first!)) q (3281 . 4)) ((c def c (? . 3)) q (2518 . 3)) ((c def c (c (? . 2) q insert-last!)) q (3406 . 4)) ((c def c (c (? . 2) q node?)) q (2894 . 3)) ((c def c (c (? . 4) q racket-nobar-lexer/status)) q (765 . 9)) ((q def ((lib "syntax-color/default-lexer.rkt") default-lexer)) q (994 . 7)) ((c def c (c (? . 0) q dont-stop)) c (? . 1)) ((c def c (c (? . 0) q dont-stop?)) c (? . 1)) ((c def c (c (? . 0) q lexer/c)) q (54 . 2)) ((c def c (c (? . 5) q scribble-inside-lexer)) q (2222 . 12)) ((c def c (c (? . 2) q node-token-length)) q (2945 . 3)) ((c def c (c (? . 4) q racket-lexer/status)) q (423 . 8)) ((c def c (c (? . 2) q node-left)) q (3152 . 3)) ((c constructor c (? . 3)) q (2572 . 5)) ((c def c (c (? . 2) q node-right)) q (3216 . 3)) ((c def c (c (? . 0) q dont-stop-val)) c (? . 1)) ((c meth c (c (? . 3) q get-root)) q (2733 . 2))))
class
paren-tree% : class?
  superclass: object%
value
lexer/c : contract?
struct
(struct dont-stop (val)
        #:extra-constructor-name make-dont-stop)
  val : any/c
procedure
(racket-lexer in) -> (or/c string? eof-object?)
                     symbol?
                     (or/c symbol? #f)
                     (or/c number? #f)
                     (or/c number? #f)
  in : input-port?
procedure
(racket-lexer/status in) -> (or/c string? eof-object?)
                            symbol?
                            (or/c symbol? #f)
                            (or/c number? #f)
                            (or/c number? #f)
                            (or/c 'datum 'open 'close 'continue)
  in : input-port?
procedure
(racket-nobar-lexer/status in)
 -> (or/c string? eof-object?)
    symbol?
    (or/c symbol? #f)
    (or/c number? #f)
    (or/c number? #f)
    (or/c 'datum 'open 'close 'continue)
  in : input-port?
procedure
(default-lexer in) -> (or/c string? eof-object?)
                      symbol?
                      (or/c symbol? #f)
                      (or/c number? #f)
                      (or/c number? #f)
  in : input-port?
procedure
(module-lexer in offset mode)
 -> (or/c string? eof-object?)
    symbol?
    (or/c symbol? #f)
    (or/c number? #f)
    (or/c number? #f)
    exact-nonnegative-integer?
    (or/c #f
          (-> input-port? any)
          (cons/c (-> input-port? any/c any) any/c))
  in : input-port?
  offset : exact-nonnegative-integer?
  mode : (or/c #f
               (-> input-port? any)
               (cons/c (-> input-port? any/c any) any/c))
procedure
(scribble-lexer in offset mode) -> (or/c string? eof-object?)
                                   symbol?
                                   (or/c symbol? #f)
                                   (or/c number? #f)
                                   (or/c number? #f)
                                   exact-nonnegative-integer?
                                   any/c
  in : input-port?
  offset : exact-nonnegative-integer?
  mode : any/c
procedure
(scribble-inside-lexer in offset mode)
 -> (or/c string? eof-object?)
    symbol?
    (or/c symbol? #f)
    (or/c number? #f)
    (or/c number? #f)
    exact-nonnegative-integer?
    any/c
  in : input-port?
  offset : exact-nonnegative-integer?
  mode : any/c
class
token-tree% : class?
  superclass: object%
constructor
(new token-tree% [len len] [data data])
 -> (is-a?/c token-tree%)
  len : (or/c exact-nonnegative-integer? fasle/c)
  data : any/c
method
(send a-token-tree get-root) -> (or/c node? #f)
method
(send a-token-tree search! key-position) -> void?
  key-position : natural-number/c
procedure
(node? v) -> boolean?
  v : any/c
procedure
(node-token-length n) -> natural-number/c
  n : node?
procedure
(node-token-data n) -> any/c
  n : node?
procedure
(node-left-subtree-length n) -> natural-number/c
  n : node?
procedure
(node-left n) -> (or/c node? #f)
  n : node?
procedure
(node-right n) -> (or/c node? #f)
  n : node?
procedure
(insert-first! tree1 tree2) -> void?
  tree1 : (is-a?/c token-tree%)
  tree2 : (is-a?/c token-tree%)
procedure
(insert-last! tree1 tree2) -> void?
  tree1 : (is-a?/c token-tree%)
  tree2 : (is-a?/c token-tree%)
procedure
(insert-last-spec! tree n v) -> void?
  tree : (is-a?/c token-tree%)
  n : natural-number/c
  v : any/c
