1#lang racket/base
2(require racket/class)
3
4(define-syntax-rule
5  (define/provide-local-member-name x ...)
6  (begin
7    (define-local-member-name x ...)
8    (provide x ...)))
9
10(define/provide-local-member-name
11  get-visible-defs
12  set-visible-defs
13  set-focus-d/i
14  get-i
15  set-i
16  insert-auto-text)
17
18;; profiling information wiring
19(define/provide-local-member-name
20  add-profile-info)
21
22;; in rep, for error display handler
23(define/provide-local-member-name
24  no-user-evaluation-dialog)
25
26;; from module-language-tools.rkt
27(define/provide-local-member-name
28  when-initialized
29  initialize-module-language
30  ;move-to-new-language
31  get-in-module-language?)
32
33;; for keybindings (otherwise private)
34(define/provide-local-member-name
35  jump-to-previous-error-loc
36  jump-to-next-error-loc)
37
38;; defined in module-language.rkt
39(define/provide-local-member-name
40  set-lang-wants-big-defs/ints-labels?)
41
42;; used by the test suite to tell when the
43;; online check syntax has finished
44(define/provide-local-member-name
45  get-online-expansion-colors)
46
47;; used by the module language
48(define/provide-local-member-name
49  frame-show-bkg-running
50  set-bottom-bar-most-recent-jumped-to-loc
51  set-expand-error/status
52  update-frame-expand-error
53  expand-error-next
54  expand-error-prev
55  hide-module-language-error-panel
56  fetch-data-to-send
57  clear-old-error
58  set-bottom-bar-status
59
60  get-oc-status
61  set-oc-status
62
63  set-dep-paths
64  set-dirty-if-dep)
65
66;; mode changing definitions text mixin
67(define/provide-local-member-name
68  maybe-change-language
69  change-mode-to-match
70  get-current-mode)
71
72(define/provide-local-member-name
73  irl-get-read-language-port-start+end
74  irl-get-read-language-name
75  get-irl)
76
77(provide (struct-out drracket:language-configuration:language-settings))
78;; type language-settings = (language-settings (instanceof language<%>) settings)
79(define-struct drracket:language-configuration:language-settings (language settings))
80
81(provide (struct-out drracket:unit:teachpack-callbacks))
82(define-struct drracket:unit:teachpack-callbacks (get-names add remove remove-all))
83
84(provide (struct-out drracket:language:simple-settings))
85(define-struct drracket:language:simple-settings (case-sensitive
86                                                  printing-style
87                                                  fraction-style
88                                                  show-sharing
89                                                  insert-newlines
90                                                  annotations))
91
92(provide (struct-out drracket:language:text/pos))
93(define-struct drracket:language:text/pos (text start end))
94
95
96(provide (struct-out drracket:modes:mode))
97(struct drracket:modes:mode (name surrogate repl-submit matches-language intended-to-edit-programs?))
98