create "drracket-core-lib" and "drracket-core" packages

The "drracket-core-lib" package is a minimal DrRacket implementation.
Since it lacks documentation, its dependencies are significantly fewer
than for the "drracket" package.

The "drracket-core" package adds documentation for DrRacket itself ---
which pulls in several other documents as dependencies.

The "drracket" package implies the "drracket-core" package and the
"drracket-core-lib" package. Much of the work in this commit reduces
the dependencies of the "drracket" package. In fact, the dependencies
for "drracket-core" are only slightly fewer. Still, the "drracket"
package keeps all features as before, even if only a small amount of
code is needed to enable some of thome, while "drracket-core" is free
to leave out old functionality (such as legacy languages, the ".plt"
installer, and separable functionality like the debugger).

DrRacket in "drracket-core-lib" still needs to adapt in small ways to
having no extra languages installed. Notably, the "Choose Language"
dialog should not list "Pretty Big" and "R5RS"when the supporting
packages are not included, and the "Add Teachpack..." menu item should
go away when there are no languages that support teachpacks.

Author: rfindler

drracket-core-lib/LICENSE

@@ -0,0 +1,10 @@
+This component of Racket is distributed under the under the Apache 2.0
+and MIT licenses. The user can choose the license under which they
+will be using the software. There may be other licenses within the
+distribution with which the user must also comply.
+
+See the files
+  https://github.com/racket/racket/blob/master/racket/src/LICENSE-APACHE.txt
+and
+  https://github.com/racket/racket/blob/master/racket/src/LICENSE-MIT.txt
+for the full text of the licenses.

drracket/browser/external.rkt renamed to drracket-core-lib/browser/external.rkt

@@ -0,0 +1,4 @@
+#lang info
+
+(define drracket-tools (list (list "tool.rkt")))
+(define drracket-tool-names (list "Browser"))

drracket-core-lib/browser/info.rkt

@@ -0,0 +1,105 @@
+#lang info
+
+(define drracket-tools      '("syncheck.rkt"))
+(define drracket-tool-names '("Check Syntax"))
+
+(define gracket-launcher-names     '("DrRacket"))
+(define gracket-launcher-libraries '("drracket.rkt"))
+
+(define copy-man-pages '("drracket.1"))
+
+(define binary-keep-files '("private/launcher-mred-bootstrap.rkt"
+                            "private/launcher-mz-bootstrap.rkt"))
+
+;; color-blind friendly palette from Paul Tol:
+;; http://www.sron.nl/~pault/
+;; using his Scheme for Marking Text colors
+(define light-blue #(#x90 #xb3 #xff))
+(define light-cyan #(#xcc #xee #xff))
+(define light-green #(#xcc #xdd #xaa))
+(define light-tan #(#xee #xee #xbb))
+(define light-pink #(#xff #xcc #xcc))
+(define light-grey #(#xdd #xdd #xdd))
+(define dark-blue #(#x22 #x22 #x77))
+(define dark-plum #(#x77 #x22 #x77))
+(define dark-green #(#x22 #x77 #x22))
+(define dark-olive #(#x66 #x66 #x33))
+(define dark-red #(#x88 #x11 #x11))
+(define sea-green #(#x00 #xb2 #xb2))
+(define burnt-orange #(181 102 51))
+
+(define tol-bow-error-color dark-red)
+(define tol-bow-constants dark-green)
+(define tol-black-on-white-colors
+  `((framework:paren-match-color ,light-tan)
+    (framework:syntax-color:scheme:comment ,dark-plum)
+    (framework:syntax-color:scheme:constant ,tol-bow-constants)
+    (framework:syntax-color:scheme:error ,tol-bow-error-color)
+    (framework:syntax-color:scheme:hash-colon-keyword ,tol-bow-constants)
+    (framework:syntax-color:scheme:keyword ,dark-blue)
+    (framework:syntax-color:scheme:string ,tol-bow-constants)
+    (framework:syntax-color:scheme:text ,tol-bow-constants)
+    (framework:syntax-color:scheme:other ,dark-blue)
+    (framework:syntax-color:scheme:parenthesis ,sea-green)
+    (framework:syntax-color:scheme:symbol ,dark-blue)
+    (drracket:read-eval-print-loop:error-color ,tol-bow-error-color)
+    (drracket:read-eval-print-loop:out-color ,tol-bow-constants)
+    (drracket:read-eval-print-loop:value-color ,dark-blue) 
+    (drracket:check-syntax:free-variable ,tol-bow-error-color)
+    (drracket:check-syntax:set!d ,tol-bow-error-color)
+    (drracket:check-syntax:unused-require ,tol-bow-error-color)
+    (drracket:syncheck:matching-identifiers ,light-green)
+    (drracket:syncheck:unused-identifier ,light-pink)
+    (drracket:syncheck:document-identifier ,light-green)
+    (drracket:syncheck:var-arrow ,sea-green)
+    (drracket:syncheck:template-arrow ,dark-plum)
+    (drracket:syncheck:tail-arrow ,dark-red)))
+
+(define tol-wob-constants light-blue)
+(define tol-wob-error light-pink)
+(define tol-white-on-black-colors
+  `((framework:paren-match-color ,dark-blue)
+    (framework:syntax-color:scheme:comment ,light-green)
+    (framework:syntax-color:scheme:constant ,tol-wob-constants)
+    (framework:syntax-color:scheme:error ,tol-wob-error)
+    (framework:syntax-color:scheme:hash-colon-keyword ,tol-wob-constants)
+    (framework:syntax-color:scheme:keyword ,light-blue)
+    (framework:syntax-color:scheme:string ,tol-wob-constants)
+    (framework:syntax-color:scheme:text ,tol-wob-constants)
+    (framework:syntax-color:scheme:other ,light-blue)
+    (framework:syntax-color:scheme:parenthesis ,sea-green)
+    (framework:syntax-color:scheme:symbol ,light-blue)
+    (drracket:read-eval-print-loop:error-color ,tol-wob-error)
+    (drracket:read-eval-print-loop:out-color ,dark-green)
+    (drracket:read-eval-print-loop:value-color ,light-blue) 
+    (drracket:check-syntax:free-variable ,tol-wob-error)
+    (drracket:check-syntax:set!d ,tol-wob-error)
+    (drracket:check-syntax:unused-require ,tol-wob-error)
+    (drracket:syncheck:matching-identifiers ,dark-green)
+    (drracket:syncheck:unused-identifier ,dark-red)
+    (drracket:syncheck:document-identifier ,dark-green)
+    (drracket:syncheck:var-arrow ,light-pink)
+    (drracket:syncheck:template-arrow ,burnt-orange)
+    (drracket:syncheck:tail-arrow ,light-green)))
+
+(define |Tol's Color-blind-safe| "Tol's Color-blind-safe")
+(define |Tol's White on Black| "Tol's White on Black")
+
+(define framework:color-schemes 
+  (list 
+   (hash 
+    'name 'modern-color-scheme
+    'colors
+    '((framework:syntax-color:scheme:string #(211 72 255))
+      (framework:syntax-color:scheme:constant #(211 72 255))
+      (framework:syntax-color:scheme:comment #(194 158 31))
+      (framework:syntax-color:scheme:parenthesis #(0 150 255))))
+   (hash
+    'name |Tol's Color-blind-safe|
+    'inverted-base-name |Tol's White on Black|
+    'colors tol-black-on-white-colors)
+   (hash
+    'name |Tol's White on Black|
+    'inverted-base-name |Tol's Color-blind-safe|
+    'white-on-black-base? #t
+    'colors tol-white-on-black-colors)))

drracket/browser/tool.rkt renamed to drracket-core-lib/browser/tool.rkt

@@ -7,8 +7,8 @@
          browser/external
          setup/getinfo
          drracket/private/drsig
-         lang/htdp-langs-save-file-prefix
          "../acks.rkt"
+         "local-member-names.rkt"
          "frame-icon.rkt"
          pict/snip pict)
 

drracket/drracket/acks.rkt renamed to drracket-core-lib/drracket/acks.rkt

@@ -317,8 +317,6 @@
          framework/private/srcloc-panel
          net/url
          net/head
-         setup/plt-installer
-         help/bug-report
          setup/unpack
          mrlib/terminal
          browser/external
@@ -393,12 +391,7 @@
       (define/override (file-menu:create-open?) #t)
       (define/override (file-menu:create-open-recent?) #t)
 
-      (define/override (file-menu:between-open-and-revert file-menu) 
-        (new menu-item% 
-             [label (string-constant install-plt-file-menu-item...)]
-             [parent file-menu]
-             [callback (λ (item evt)
-                         (install-plt-file this))])
+      (define/override (file-menu:between-open-and-revert file-menu)
         (new menu-item% 
              [label (string-constant install-pkg-menu-item...)]
              [parent file-menu]
@@ -526,205 +519,7 @@
      'drracket:user-defined-keybindings
      (remove item
              (preferences:get 'drracket:user-defined-keybindings))))
-  
-  ;; install-plt-file : (union #f dialog% frame%) -> void
-  ;; asks the user for a .plt file, either from the web or from
-  ;; a file on the disk and installs it.
-  (define (install-plt-file parent)
-    (define pref (preferences:get 'drracket:install-plt-dialog))
-    (define dialog
-      (new dialog% [parent parent]
-           [label (string-constant install-plt-file-dialog-title)]
-           [alignment '(left center)]))
-    (define tab-panel
-      (new tab-panel% [parent dialog]
-           [callback (λ (x y) (update-panels))]
-           [choices (list (string-constant install-plt-web-tab)
-                          (string-constant install-plt-file-tab))]))
-    (define outer-swapping-panel
-      (new-horizontal-panel% [parent tab-panel]
-           [stretchable-height #f]))
-    (define spacing-panel
-      (new-horizontal-panel% [parent outer-swapping-panel]
-           [stretchable-width #f]
-           [min-width 20]))
-    (define swapping-panel
-      (new panel:single% [parent outer-swapping-panel]
-           [alignment '(left center)]
-           [stretchable-width #t] [stretchable-height #f]))
-    (define file-panel
-      (new-horizontal-panel% [parent swapping-panel]
-           [stretchable-width #t] [stretchable-height #f]))
-    (define url-panel
-      (new-horizontal-panel% [parent swapping-panel]
-           [stretchable-height #f]))
-    (define button-panel
-      (new-horizontal-panel% [parent dialog]
-           [stretchable-height #f] [alignment '(right center)]))
-    (define file-text-field
-      (keymap:call/text-keymap-initializer
-       (λ ()
-         (new text-field% [parent file-panel]
-              [callback void] [min-width 300] [stretchable-width #t]
-              [init-value (caddr pref)]
-              [label (string-constant install-plt-filename)]))))
-    (define file-button
-      (new button% [parent file-panel]
-           [callback (λ (x y) (browse))]
-           [label (string-constant browse...)]))
-    (define url-text-field
-      (keymap:call/text-keymap-initializer
-       (λ ()
-         (new text-field% [parent url-panel]
-              [min-width 300] [stretchable-width #t] [callback void]
-              [init-value (cadr pref)]
-              [label (string-constant install-plt-url)]))))
-    (define-values (ok-button cancel-button)
-      (gui-utils:ok/cancel-buttons
-       button-panel
-       (λ (x y) (set! cancel? #f) (send dialog show #f))
-       (λ (x y) (send dialog show #f))))
-    ;; browse : -> void
-    ;; gets the name of a file from the user and updates file-text-field
-    (define (browse)
-      (let ([filename (parameterize ([finder:default-extension "plt"]
-                                     [finder:default-filters
-                                      (if (eq? (system-type) 'macosx)
-                                          (finder:default-filters)
-                                          '(("PLT Files" "*.plt")
-                                            ("Any" "*.*")))])
-                        (finder:get-file #f "" #f "" dialog))])
-        (when filename
-          (send file-text-field set-value (path->string filename)))))
-    ;; from-web? : -> boolean
-    ;; returns #t if the user has selected a web address
-    (define (from-web?)
-      (zero? (send tab-panel get-selection)))
-    (define cancel? #t)
-    (define (update-panels)
-      (define w? (from-web?))
-      (define t  (if w? url-text-field file-text-field))
-      (send swapping-panel active-child (if w? url-panel file-panel))
-      (send t focus)
-      (send (send t get-editor) set-position
-            0 (string-length (send t get-value))))
-    ;; initialize
-    (send tab-panel set-selection (if (car pref) 0 1))
-    (update-panels)
-    (send dialog show #t)
-    (preferences:set 'drracket:install-plt-dialog
-                     (list (from-web?)
-                           (send url-text-field get-value)
-                           (send file-text-field get-value)))
-    (cond
-      [cancel? (void)]
-      [(from-web?)
-       (install-plt-from-url
-        (let* ([url (send url-text-field get-value)]
-               ;; trim whitespaces
-               [url (regexp-replace #rx"^ +" url "")]
-               [url (regexp-replace #rx" +$" url "")])
-          (if (regexp-match? #rx"^(?:[^/:]*://|$)" url)
-            url
-            (string-append "http://" url)))
-        parent)]
-      [else (parameterize ([error-display-handler
-                            drracket:init:original-error-display-handler])
-              (run-installer
-               (string->path (send file-text-field get-value))))]))
-
-  ;; install-plt-from-url : string (union #f dialog%) -> void
-  ;; downloads and installs a .plt file from the given url
-  (define (install-plt-from-url s-url parent)
-    (define url (string->url s-url))
-    (define-values (port header) 
-      (with-handlers ([exn:fail? (λ (x) (values #f x))])
-        (get-pure-port/headers url #:redirections 5)))
-    (cond
-      [port
-       (define size
-         (let* ([content-header (extract-field "content-length" header)]
-                [m (and content-header
-                        (regexp-match "[0-9]+" content-header))])
-           (and m (string->number (car m)))))
-       (define tmp-filename (make-temporary-file "tmp~a.plt"))
-       (define d (make-object dialog% (string-constant downloading) parent))
-       (define message (make-object message% (string-constant downloading-file...) d))
-       (define gauge (and size 
-                          (make-object gauge% #f 100 d)))
-       (define exn #f)
-       ; Semaphores to avoid race conditions: 
-       (define wait-to-start (make-semaphore 0))
-       (define wait-to-break (make-semaphore 0))
-       ; Thread to perform the download: 
-       (define t
-         (thread 
-          (λ () 
-            (semaphore-wait wait-to-start) 
-            (with-handlers ([exn:fail?
-                             (λ (x) 
-                               (set! exn x))] 
-                            [exn:break? ; throw away break exceptions 
-                             void])
-              (semaphore-post wait-to-break) 
-              (with-output-to-file tmp-filename 
-                (λ () 
-                  (let loop ([total 0])
-                    (when gauge 
-                      (send gauge set-value  
-                            (inexact->exact 
-                             (floor (* 100 (/ total size))))))
-                    (define s (read-string 1024 port))
-                    (unless (eof-object? s) 
-                      (display s)
-                      (loop (+ total (string-length s))))))
-                #:mode 'binary #:exists 'truncate))
-            (send d show #f))))
-       (send d center) 
-       (make-object button% (string-constant &stop)
-         d
-         (λ (b e) 
-           (semaphore-wait wait-to-break) 
-           (set! tmp-filename #f) 
-           (send d show #f) 
-           (break-thread t))) 
-       ; Let thread run only after the dialog is shown 
-       (queue-callback (λ () (semaphore-post wait-to-start))) 
-       (send d show #t) 
-       (when exn (raise exn))
-       (define unpack-err (open-output-string))
-       (cond
-         [(with-handlers ((exn:fail? values))
-            (parameterize ([error-display-handler drracket:init:original-error-display-handler]
-                           [current-error-port unpack-err])
-              (fold-plt-archive tmp-filename void void void void void))
-            #f)
-          =>
-          (λ (exn)
-            (delete-file tmp-filename)
-            (message-box (string-constant drscheme)
-                         (string-append 
-                          (string-constant install-plt-error-header)
-                          "\n\n"
-                          (exn-message exn)
-                          "\n\n"
-                          (get-output-string unpack-err))
-                         #:dialog-mixin frame:focus-table-mixin))]
-         [else
-          (parameterize ([error-display-handler drracket:init:original-error-display-handler])
-            (run-installer tmp-filename
-                           (λ ()
-                             (delete-file tmp-filename))))])]
-      [else
-       (define exn header)
-       (define sp (open-output-string))
-       (parameterize ([current-error-port sp])
-         (drracket:init:original-error-display-handler (exn-message exn) exn))
-       (message-box (string-constant drracket)
-                    (string-append
-                     (string-constant install-plt-error-downloading)
-                     (get-output-string sp)))]))
-  
+ 
   (define keybindings-frame%
     (class frame%
       (init-field bindings)

drracket/drracket/arrow.rkt renamed to drracket-core-lib/drracket/arrow.rkt

@@ -8,7 +8,6 @@
          setup/dirs
          setup/materialize-user-docs
          help/search
-         help/private/buginfo
          drracket/private/drsig
          string-constants
          setup/dirs
@@ -35,8 +34,6 @@
       (send language get-language-position)
       (send language marshall-settings settings)))))
 
-(set-bug-report-info! "Computer Language" get-computer-language-info)
-
 (define lang-message%
   (class canvas%
     (init-field button-release font)