#lang scheme/base (require scheme/unit) (provide drscheme:eval^ drscheme:debug^ drscheme:module-language^ drscheme:get-collection^ drscheme:main^ drscheme:init^ drscheme:language-configuration^ drscheme:language-configuration/internal^ drscheme:tools^ drscheme:get/extend^ drscheme:unit^ drscheme:frame^ drscheme:program^ drscheme:text^ drscheme:rep^ drscheme:app^ drscheme:draw-arrow^ drscheme:help-desk^ drscheme:language^ drscheme:multi-file-search^ drscheme:module-overview^ drscheme:font^ drscheme:modes^ drscheme:tool-exports^ drscheme:tool^ drscheme:tool-cm^) (define-signature drscheme:modes-cm^ ()) (define-signature drscheme:modes^ extends drscheme:modes-cm^ (add-mode get-modes add-initial-modes (struct mode (name surrogate repl-submit matches-language) #:omit-constructor))) (define-signature drscheme:font-cm^ ()) (define-signature drscheme:font^ extends drscheme:font-cm^ (setup-preferences)) (define-signature drscheme:debug-cm^ (profile-definitions-text-mixin profile-tab-mixin profile-unit-frame-mixin test-coverage-interactions-text-mixin test-coverage-definitions-text-mixin test-coverage-tab-mixin)) (define-signature drscheme:debug^ extends drscheme:debug-cm^ (make-debug-error-display-handler make-debug-eval-handler error-display-handler/stacktrace test-coverage-enabled profiling-enabled add-prefs-panel get-error-color hide-backtrace-window show-backtrace-window open-and-highlight-in-file get-cm-key ;show-error-and-highlight ;print-bug-to-stderr ;display-srclocs-in-error ;show-syntax-error-context )) (define-signature drscheme:module-langauge-cm^ (module-language<%>)) (define-signature drscheme:module-language^ extends drscheme:module-langauge-cm^ (add-module-language module-language-put-file-mixin)) (define-signature drscheme:get-collection-cm^ ()) (define-signature drscheme:get-collection^ extends drscheme:get-collection-cm^ (get-file/collection)) (define-signature drscheme:main-cm^ ()) (define-signature drscheme:main^ extends drscheme:main-cm^ ()) (define-signature drscheme:init-cm^ ()) (define-signature drscheme:init^ extends drscheme:init-cm^ (original-output-port original-error-port original-error-display-handler primitive-eval primitive-load error-display-handler-message-box-title system-custodian system-eventspace system-namespace first-dir)) (define-signature drscheme:language-configuration-cm^ ()) (define-signature drscheme:language-configuration^ extends drscheme:language-configuration-cm^ (add-language get-languages (struct language-settings (language settings)) get-settings-preferences-symbol language-dialog fill-language-dialog)) (define-signature drscheme:language-configuration/internal^ extends drscheme:language-configuration^ (add-info-specified-languages get-default-language-settings settings-preferences-symbol get-all-scheme-manual-keywords get-all-manual-keywords add-built-in-languages not-a-language-language<%>)) (define-signature drscheme:tools-cm^ ()) (define-signature drscheme:tools^ extends drscheme:tools-cm^ ((struct successful-tool (spec bitmap name url)) get-successful-tools only-in-phase load/invoke-all-tools add-prefs-panel)) (define-signature drscheme:get/extend-cm^ ()) (define-signature drscheme:get/extend^ extends drscheme:get/extend-cm^ (extend-tab extend-interactions-text extend-definitions-text extend-interactions-canvas extend-definitions-canvas extend-unit-frame get-tab get-interactions-text get-definitions-text get-interactions-canvas get-definitions-canvas get-unit-frame)) (define-signature drscheme:unit-cm^ (tab% tab<%> frame% frame<%> definitions-canvas% get-definitions-text% definitions-text<%> interactions-canvas%)) (define-signature drscheme:unit^ extends drscheme:unit-cm^ (open-drscheme-window find-symbol get-program-editor-mixin add-to-program-editor-mixin (struct teachpack-callbacks (get-names remove add)))) (define-signature drscheme:frame-cm^ (<%> mixin basics-mixin basics<%>)) (define-signature drscheme:frame^ extends drscheme:frame-cm^ (create-root-menubar add-keybindings-item planet-spec?)) (define-signature drscheme:program-cm^ (frame%)) (define-signature drscheme:program^ extends drscheme:program-cm^ ()) (define-signature drscheme:eval-cm^ ()) (define-signature drscheme:eval^ extends drscheme:eval-cm^ (expand-program expand-program/multiple traverse-program/multiple build-user-eventspace/custodian set-basic-parameters get-snip-classes)) (define-signature drscheme:text-cm^ (text<%> text%)) (define-signature drscheme:text^ extends drscheme:text-cm^ ()) (define-signature drscheme:setup-cm^ ()) (define-signature drscheme:setup^ extends drscheme:setup-cm^ (do-setup)) (define-signature drscheme:rep-cm^ (drs-bindings-keymap-mixin text% text<%> context<%>)) (define-signature drscheme:rep^ extends drscheme:rep-cm^ (current-rep current-language-settings current-value-port get-drs-bindings-keymap error-delta get-welcome-delta get-dark-green-delta drs-autocomplete-mixin)) (define-signature drscheme:app-cm^ ()) (define-signature drscheme:app^ extends drscheme:app-cm^ (about-drscheme add-language-items-to-help-menu add-important-urls-to-help-menu switch-language-to)) (define-signature drscheme:draw-arrow-cm^ ()) (define-signature drscheme:draw-arrow^ extends drscheme:draw-arrow-cm^ (draw-arrow)) (define-signature drscheme:help-desk-cm^ ()) (define-signature drscheme:help-desk^ extends drscheme:help-desk-cm^ (help-desk goto-plt-license get-docs)) (define-signature drscheme:language-cm^ (language<%> module-based-language<%> simple-module-based-language<%> simple-module-based-language% simple-module-based-language->module-based-language-mixin module-based-language->language-mixin)) (define-signature drscheme:language^ extends drscheme:language-cm^ (get-default-mixin extend-language-interface get-language-extensions create-module-based-launcher create-module-based-stand-alone-executable create-module-based-distribution create-distribution-for-executable create-executable-gui put-executable ;(struct loc (source position line column span)) (struct text/pos (text start end)) (struct simple-settings (case-sensitive printing-style fraction-style show-sharing insert-newlines annotations)) simple-settings->vector simple-module-based-language-config-panel add-snip-value setup-setup-values register-capability capability-registered? get-capability-default get-capability-contract)) (define-signature drscheme:multi-file-search-cm^ ()) (define-signature drscheme:multi-file-search^ extends drscheme:multi-file-search-cm^ (multi-file-search)) (define-signature drscheme:module-overview-cm^ ()) (define-signature drscheme:module-overview^ extends drscheme:module-overview-cm^ (module-overview make-module-overview-pasteboard fill-pasteboard)) (define-signature drscheme:tool-exports-cm^ ()) (define-signature drscheme:tool-exports^ extends drscheme:tool-exports-cm^ (phase1 phase2)) (define-signature drscheme:tool-cm^ ((open (prefix drscheme:debug: drscheme:debug-cm^)) (open (prefix drscheme:unit: drscheme:unit-cm^)) (open (prefix drscheme:rep: drscheme:rep-cm^)) (open (prefix drscheme:frame: drscheme:frame-cm^)) (open (prefix drscheme:get/extend: drscheme:get/extend-cm^)) (open (prefix drscheme:language-configuration: drscheme:language-configuration-cm^)) (open (prefix drscheme:language: drscheme:language-cm^)) (open (prefix drscheme:help-desk: drscheme:help-desk-cm^)) (open (prefix drscheme:eval: drscheme:eval-cm^)) (open (prefix drscheme:modes: drscheme:modes-cm^)))) (define-signature drscheme:tool^ ((open (prefix drscheme:debug: drscheme:debug^)) (open (prefix drscheme:unit: drscheme:unit^)) (open (prefix drscheme:rep: drscheme:rep^)) (open (prefix drscheme:frame: drscheme:frame^)) (open (prefix drscheme:get/extend: drscheme:get/extend^)) (open (prefix drscheme:language-configuration: drscheme:language-configuration^)) (open (prefix drscheme:language: drscheme:language^)) (open (prefix drscheme:help-desk: drscheme:help-desk^)) (open (prefix drscheme:eval: drscheme:eval^)) (open (prefix drscheme:modes: drscheme:modes^))))