suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More Racketying

Browse Source
This commit is contained in:
Robby Findler 2010-06-18 21:16:48 -05:00
parent c940caa4d6
commit bc5ced58e2
30 changed files with 113 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/drracket.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require scheme/gui/base "private/key.rkt")
(require racket/gui/base "private/key.rkt")
(define debugging? (getenv "PLTDRDEBUG"))
(define profiling? (getenv "PLTDRPROFILE"))

2
collects/drracket/private/app.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require racket/class
string-constants

2
collects/drracket/private/auto-language.rkt
View File

@ -2,7 +2,7 @@
(require typed/framework/framework
typed/mred/mred
scheme/class)
racket/class)
(provide pick-new-language looks-like-module?)

2
collects/drracket/private/debug.rkt
View File

@ -9,7 +9,7 @@ profile todo:
|#
(require errortrace/errortrace-key
scheme/unit
racket/unit
racket/contract
errortrace/stacktrace
racket/class

11
collects/drracket/private/drsig.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require scheme/unit)
(require racket/unit)
(provide drracket:eval^
drracket:debug^
@ -39,6 +39,7 @@
(add-mode
get-modes
add-initial-modes
make-mode
(struct mode (name surrogate repl-submit matches-language)
#:omit-constructor)))
@ -126,6 +127,7 @@
(add-language
get-languages
(struct language-settings (language settings))
make-language-settings
get-settings-preferences-symbol
language-dialog
fill-language-dialog))
@ -143,6 +145,7 @@
())
(define-signature drracket:tools^ extends drracket:tools-cm^
((struct successful-tool (spec bitmap name url))
make-successful-tool
get-successful-tools
only-in-phase
load/invoke-all-tools
@ -185,7 +188,8 @@
add-to-program-editor-mixin
forget-saved-bug-report
record-saved-bug-report
(struct teachpack-callbacks (get-names remove add))))
(struct teachpack-callbacks (get-names remove add))
make-teachpack-callbacks))
(define-signature drracket:frame-cm^
(<%>
@ -280,8 +284,9 @@
put-executable
;(struct loc (source position line column span))
make-text/pos
(struct text/pos (text start end))
make-simple-settings
(struct simple-settings (case-sensitive
printing-style
fraction-style

2
collects/drracket/private/eval.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require mred
scheme/unit
racket/unit
racket/port
racket/class
syntax/toplevel

2
collects/drracket/private/font.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require scheme/unit
(require racket/unit
racket/class
racket/gui/base
"drsig.rkt"

2
collects/drracket/private/frame.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require string-constants
racket/match
racket/class

2
collects/drracket/private/get-extend.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require racket/class
"drsig.rkt")

2
collects/drracket/private/help-desk.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require racket/gui/base
browser/external

2
collects/drracket/private/init.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require string-constants
"drsig.rkt"
racket/gui/base)

2
collects/drracket/private/insert-large-letters.rkt
View File

@ -1,4 +1,4 @@
#lang typed/scheme/base
#lang typed/racket/base
(require typed/mred/mred
typed/framework/framework

10
collects/drracket/private/language-configuration.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require scheme/unit
(require racket/unit
mrlib/hierlist
racket/class
racket/contract
@ -127,9 +127,9 @@
x))
(get-languages))
(list-ref (get-languages) 0))])
(make-language-settings lang (send lang default-settings))))
(language-settings lang (send lang default-settings))))
;; type language-settings = (make-language-settings (instanceof language<%>) settings)
;; type language-settings = (language-settings (instanceof language<%>) settings)
(define-struct language-settings (language settings))
@ -262,7 +262,7 @@
(send dialog show #t)
(if cancelled?
#f
(make-language-settings
(language-settings
(get-selected-language)
(get-selected-language-settings)))))
@ -1977,7 +1977,7 @@
(let ([new-lang
(language-dialog #f
(make-language-settings lang
(language-settings lang
(send lang default-settings))
drs-frame)])
(when new-lang

2
collects/drracket/private/language.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
;; WARNING: printf is rebound in this module to always use the
;; original stdin/stdout of drscheme, instead of the
;; user's io ports, to aid any debugging printouts.

2
collects/drracket/private/link.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require scheme/unit
(require racket/unit
"modes.rkt"
"font.rkt"
"eval.rkt"

4
collects/drracket/private/main.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require string-constants
mzlib/contract
@ -487,7 +487,7 @@
(drracket:language-configuration:get-languages))])
(and lang
(let ([settings (send lang unmarshall-settings marshalled-settings)])
(drracket:language-configuration:make-language-settings
(drracket:language-configuration:language-settings
lang
(or settings (send lang default-settings)))))))))

2
collects/drracket/private/modes.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require string-constants
racket/class
racket/list

4
collects/drracket/private/module-browser.rkt
View File

@ -8,7 +8,7 @@
string-constants
mrlib/graph
"drsig.rkt"
scheme/unit
racket/unit
racket/async-channel
setup/private/lib-roots)
@ -667,7 +667,7 @@
(define text/pos
(let ([t (make-object text:basic%)])
(send t load-file filename)
(drracket:language:make-text/pos
(drracket:language:text/pos
t
0
(send t last-position))))

2
collects/drracket/private/module-language-tools.rkt
View File

@ -4,7 +4,7 @@
mrlib/bitmap-label
racket/contract
framework
scheme/unit
racket/unit
racket/class
racket/gui/base
"drsig.rkt")

2
collects/drracket/private/module-language.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(provide module-language@)
(require scheme/unit
(require racket/unit
racket/class
racket/list
racket/path

2
collects/drracket/private/multi-file-search.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require framework
mzlib/class
mred

2
collects/drracket/private/rep.rkt
View File

@ -23,7 +23,7 @@ TODO
(require racket/class
racket/path
racket/pretty
scheme/unit
racket/unit
racket/list
string-constants

2
collects/drracket/private/text.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require mzlib/class
"drsig.rkt"
framework)

2
collects/drracket/private/tools-drs.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
#|

2
collects/drracket/private/tools.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require racket/class
racket/list

2
collects/drracket/private/tracing.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require racket/contract
scheme/unit
racket/unit
racket/class
racket/path
racket/port

25
collects/drracket/private/unit.rkt
View File

@ -12,7 +12,7 @@ module browser threading seems wrong.
|#
(require racket/contract
scheme/unit
racket/unit
racket/class
racket/path
racket/port
@ -575,7 +575,7 @@ module browser threading seems wrong.
module-language-settings)])
(when matching-language
(set-next-settings
(drracket:language-configuration:make-language-settings
(drracket:language-configuration:language-settings
matching-language
settings)
#f))))
@ -834,17 +834,18 @@ module browser threading seems wrong.
;; test cases for is-lang-line?
#;
(printf "~s\n"
(list (is-lang-line? "#lang x")
(is-lang-line? "#lang scheme")
(is-lang-line? "#lang scheme ")
(not (is-lang-line? "#lang schemeα"))
(not (is-lang-line? "#lang scheme/ "))
(not (is-lang-line? "#lang /scheme "))
(is-lang-line? "#lang sch/eme ")
(is-lang-line? "#lang racket")
(is-lang-line? "#lang racket ")
(not (is-lang-line? "#lang racketα"))
(not (is-lang-line? "#lang racket/ "))
(not (is-lang-line? "#lang /racket "))
(is-lang-line? "#lang rac/ket ")
(is-lang-line? "#lang r6rs")
(is-lang-line? "#!r6rs")
(is-lang-line? "#!r6rs ")
(not (is-lang-line? "#!/bin/sh")))
(not (is-lang-line? "#!/bin/sh"))))
(define (get-module-language/settings)
(let* ([module-language
@ -2690,7 +2691,7 @@ module browser threading seems wrong.
(let-values ([(module-language module-language-settings) (get-module-language/settings)])
(when (and module-language module-language-settings)
(send definitions-text set-next-settings
(drracket:language-configuration:make-language-settings
(drracket:language-configuration:language-settings
module-language
module-language-settings)))))))
@ -3600,7 +3601,7 @@ module browser threading seems wrong.
[update-settings
(λ (settings)
(send (get-definitions-text) set-next-settings
(drracket:language-configuration:make-language-settings language settings))
(drracket:language-configuration:language-settings language settings))
(send (get-definitions-text) teachpack-changed))])
(set! teachpack-items
(list*
@ -4438,7 +4439,7 @@ module browser threading seems wrong.
(λ (x y)
(send (send frame get-definitions-text)
set-next-settings
(drracket:language-configuration:make-language-settings
(drracket:language-configuration:language-settings
lang
settings)))]))))))
(preferences:get 'drracket:recent-language-names))

8
collects/drracket/sprof.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require scheme/gui/base
(require racket/gui/base
framework
scheme/class)
racket/class)
;; how long between samples
(define pause-time 0.1)
@ -261,8 +261,8 @@
;; tool code, for integration with drscheme
(begin
(require drscheme/tool
scheme/unit
(require drracket/tool
racket/unit
string-constants/string-constant)
(define sc-show-sprof "Show SProfile")

12
collects/drracket/syncheck.rkt
View File

@ -18,11 +18,11 @@ If the namespace does not, they are colored the unbound color.
(require string-constants
scheme/unit
scheme/contract
scheme/class
scheme/list
scheme/promise
racket/unit
racket/contract
racket/class
racket/list
racket/promise
drracket/tool
syntax/toplevel
syntax/boundmap
@ -37,7 +37,7 @@ If the namespace does not, they are colored the unbound color.
net/url
net/uri-codec
browser/external
(for-syntax scheme/base)
(for-syntax racket/base)
"syncheck-drracket-button.rkt")
(provide tool@)

54
collects/drracket/tool-lib.rkt
View File

@ -8,7 +8,7 @@ all of the names in the tools library, for use defining keybindings
(require racket/class
racket/gui/base
(except-in scheme/unit struct)
racket/unit
racket/contract
racket/class
@ -24,13 +24,13 @@ all of the names in the tools library, for use defining keybindings
mrlib/switchable-button
scribble/srcdoc)
(require (for-syntax scheme/base))
(require (for-syntax racket/base))
(require/doc drracket/private/ts ;; probably this also has to be an absolute require
scheme/base scribble/manual)
racket/base scribble/manual)
(require/doc (for-label errortrace/errortrace-key
scheme/pretty
racket/pretty
mzlib/pconvert))
(define-values/invoke-unit/infer drracket@)
@ -310,7 +310,7 @@ all of the names in the tools library, for use defining keybindings
The @racket[language-settings] argument is the current
language and its settings. See
@racket[drracket:language-configuration:make-language-settings]
@racket[drracket:language-configuration:language-settings]
for details on that structure.
If the program is associated with a DrRacket
@ -1023,7 +1023,7 @@ all of the names in the tools library, for use defining keybindings
@racket[preferences:set].})
(proc-doc/names
drracket:language-configuration:make-language-settings
drracket:language-configuration:language-settings
((or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c)
any/c
. -> .
@ -1042,6 +1042,17 @@ all of the names in the tools library, for use defining keybindings
@racket[drracket:language-configuration:language-settings-settings], and a predicate,
@racket[drracket:language-configuration:language-settings?]})
#;
(proc-doc/names
drracket:language-configuration:make-language-settings
((or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c)
any/c
. -> .
drracket:language-configuration:language-settings?)
(language settings)
@{This is an alias for @racket[drrracket:language-configuration:language-settings]})
(proc-doc/names
drracket:language-configuration:language-settings-settings
(-> drracket:language-configuration:language-settings?
@ -1529,7 +1540,7 @@ all of the names in the tools library, for use defining keybindings
otherwise.})
(proc-doc/names
drracket:language:make-text/pos
drracket:language:text/pos
((is-a?/c text%) number? number?
. -> .
drracket:language:text/pos?)
@ -1537,6 +1548,15 @@ all of the names in the tools library, for use defining keybindings
@{Constructs a text/pos.})
(proc-doc/names
drracket:language:make-text/pos
((is-a?/c text%) number? number?
. -> .
drracket:language:text/pos?)
(text start end)
@{An alias for @racket[drracket:language:text/pos]})
(proc-doc/names
drracket:language:simple-settings-case-sensitive
(drracket:language:simple-settings? . -> . boolean?)
@ -1600,7 +1620,7 @@ all of the names in the tools library, for use defining keybindings
@{Determines if @racket[val] is a simple-settings.})
(proc-doc/names
drracket:language:make-simple-settings
drracket:language:simple-settings
(-> boolean?
(symbols 'constructor 'quasiquote 'write 'trad-write 'print)
(symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
@ -1617,6 +1637,24 @@ all of the names in the tools library, for use defining keybindings
@{Constructs a simple settings.})
(proc-doc/names
drracket:language:make-simple-settings
(-> boolean?
(symbols 'constructor 'quasiquote 'write 'trad-write 'print)
(symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
boolean?
boolean?
(symbols 'none 'debug 'debug/profile 'test-coverage)
drracket:language:simple-settings?)
(case-sensitive
printing-style
fraction-style
show-sharing
insert-newlines
annotations)
@{An alias for @racket[drracket:language:simple-settings].})
(proc-doc/names
drracket:language:simple-settings->vector
(drracket:language:simple-settings? . -> . vector?)