1647
#hash(((def ((lib "syntax-color/scheme-lexer.rkt") scheme-lexer)) . ((54 . 7))) ((def ((lib "syntax-color/token-tree.rkt") node-left)) . ((3131 . 3))) ((def ((lib "syntax-color/scheme-lexer.rkt") scheme-nobar-lexer/status)) . ((664 . 9))) ((def ((lib "syntax-color/default-lexer.rkt") default-lexer)) . ((908 . 7))) ((def ((lib "syntax-color/token-tree.rkt") node-left-subtree-length)) . ((3053 . 3))) ((def ((lib "syntax-color/paren-tree.rkt") paren-tree%)) . ((0 . 3))) ((def ((lib "syntax-color/token-tree.rkt") token-tree%)) . ((2492 . 3))) ((def ((lib "syntax-color/scribble-lexer.rkt") scribble-lexer)) . ((1692 . 11))) ((def ((lib "syntax-color/token-tree.rkt") node?)) . ((2873 . 3))) ((def ((lib "syntax-color/token-tree.rkt") node-right)) . ((3200 . 3))) ((def ((lib "syntax-color/token-tree.rkt") insert-last-spec!)) . ((3519 . 5))) ((def ((lib "syntax-color/scribble-lexer.rkt") scribble-inside-lexer)) . ((2181 . 12))) ((constructor ((lib "syntax-color/token-tree.rkt") token-tree%)) . ((2546 . 5))) ((meth (((lib "syntax-color/token-tree.rkt") token-tree%) search!)) . ((2773 . 3))) ((def ((lib "syntax-color/scheme-lexer.rkt") scheme-lexer/status)) . ((307 . 8))) ((def ((lib "syntax-color/token-tree.rkt") insert-last!)) . ((3395 . 4))) ((def ((lib "syntax-color/token-tree.rkt") node-token-length)) . ((2924 . 3))) ((def ((lib "syntax-color/module-lexer.rkt") module-lexer)) . ((1166 . 16))) ((def ((lib "syntax-color/token-tree.rkt") node-token-data)) . ((2995 . 3))) ((def ((lib "syntax-color/token-tree.rkt") insert-first!)) . ((3270 . 4))) ((meth (((lib "syntax-color/token-tree.rkt") token-tree%) get-root)) . ((2707 . 2))))
class
paren-tree% : class?
  superclass: object%
procedure
(scheme-lexer in) -> (or/c string? eof-object?)
                     symbol?
                     (or/c symbol? false/c)
                     (or/c number? false/c)
                     (or/c number? false/c)
  in : input-port?
procedure
(scheme-lexer/status in) -> (or/c string? eof-object?)
                            symbol?
                            (or/c symbol? false/c)
                            (or/c number? false/c)
                            (or/c number? false/c)
                            (or/c 'datum 'open 'close 'continue)
  in : input-port?
procedure
(scheme-nobar-lexer/status in)
 -> (or/c string? eof-object?)
    symbol?
    (or/c symbol? false/c)
    (or/c number? false/c)
    (or/c number? false/c)
    (or/c 'datum 'open 'close 'continue)
  in : input-port?
procedure
(default-lexer in) -> (or/c string? eof-object?)
                      symbol?
                      (or/c symbol? false/c)
                      (or/c number? false/c)
                      (or/c number? false/c)
  in : input-port?
procedure
(module-lexer in offset mode)
 -> (or/c string? eof-object?)
    symbol?
    (or/c symbol? false/c)
    (or/c number? false/c)
    (or/c number? false/c)
    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? false/c)
                                   (or/c number? false/c)
                                   (or/c number? false/c)
                                   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? false/c)
    (or/c number? false/c)
    (or/c number? false/c)
    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? false/c)
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? false/c)
  n : node?
procedure
(node-right n) -> (or/c node? false/c)
  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
