use new require specs in many places
svn: r8774
This commit is contained in:
Eli Barzilay
parent
0cf8c56a7e
commit
b1a08edd5a
|
|
@ -4,9 +4,9 @@
|
|||
;; http://developer.apple.com/fonts/TTRefMan/RM06/Chap6.html
|
||||
;; http://www.microsoft.com/typography/otspec/otff.htm
|
||||
|
||||
(require (lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "cmdline.ss"))
|
||||
(require mzlib/etc
|
||||
mzlib/list
|
||||
mzlib/cmdline)
|
||||
|
||||
(define (read-fixed p)
|
||||
(integer-bytes->integer (read-bytes 4 p) #f #t))
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@
|
|||
"compile.ss"
|
||||
;; Compiles a simplified AST to Scheme.
|
||||
|
||||
(lib "file.ss"))
|
||||
mzlib/file)
|
||||
|
||||
;; By using #'here for the context of identifiers
|
||||
;; introduced by compilation, the identifiers can
|
||||
|
|
|
|||
|
|
@ -29,12 +29,12 @@
|
|||
;; tokens.
|
||||
|
||||
(module cfg-parser mzscheme
|
||||
(require (lib "yacc.ss" "parser-tools")
|
||||
(lib "lex.ss" "parser-tools")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require-for-syntax (lib "boundmap.ss" "syntax")
|
||||
(lib "list.ss")
|
||||
(require parser-tools/yacc
|
||||
parser-tools/lex
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
(require-for-syntax syntax/boundmap
|
||||
mzlib/list
|
||||
(lib "token-syntax.ss" "parser-tools" "private-lex"))
|
||||
|
||||
(provide cfg-parser)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#cs(module compile mzscheme
|
||||
(require "parse.ss"
|
||||
(lib "match.ss")
|
||||
(lib "list.ss"))
|
||||
mzlib/match
|
||||
mzlib/list)
|
||||
|
||||
(provide compile-simplified)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
#cs(module parse mzscheme
|
||||
(require (lib "lex.ss" "parser-tools")
|
||||
(prefix : (lib "lex-sre.ss" "parser-tools"))
|
||||
(require parser-tools/lex
|
||||
(prefix : parser-tools/lex-sre)
|
||||
"cfg-parser.ss"
|
||||
(lib "yacc.ss" "parser-tools")
|
||||
(lib "readerr.ss" "syntax")
|
||||
parser-tools/yacc
|
||||
syntax/readerr
|
||||
"prims.ss")
|
||||
|
||||
(define-lex-abbrevs [lex:letter (:or (:/ #\a #\z) (:/ #\A #\Z))]
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#cs(module simplify mzscheme
|
||||
(require "parse.ss"
|
||||
"prims.ss"
|
||||
(lib "match.ss"))
|
||||
mzlib/match)
|
||||
|
||||
(provide simplify)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,18 +1,18 @@
|
|||
(module tool mzscheme
|
||||
(require (lib "tool.ss" "drscheme")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "unit.ss")
|
||||
(lib "class.ss")
|
||||
mred
|
||||
mzlib/unit
|
||||
mzlib/class
|
||||
"parse.ss"
|
||||
"simplify.ss"
|
||||
"compile.ss"
|
||||
(lib "embed.ss" "compiler")
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
compiler/embed
|
||||
string-constants
|
||||
(prefix bd: "bd-tool.ss"))
|
||||
|
||||
(provide tool@)
|
||||
|
||||
(define base-importing-stx (dynamic-require '(lib "algol60/base.ss")
|
||||
(define base-importing-stx (dynamic-require 'mzlib/algol60/base
|
||||
'base-importing-stx))
|
||||
|
||||
(define tool@
|
||||
|
|
@ -88,8 +88,8 @@
|
|||
(define/public (get-teachpack-names) null)
|
||||
(define/public (marshall-settings x) x)
|
||||
(define/public (on-execute settings run-in-user-thread)
|
||||
(dynamic-require '(lib "algol60/base.ss") #f)
|
||||
(let ([path ((current-module-name-resolver) '(lib "algol60/base.ss") #f #f)]
|
||||
(dynamic-require 'mzlib/algol60/base #f)
|
||||
(let ([path ((current-module-name-resolver) 'mzlib/algol60/base #f #f)]
|
||||
[n (current-namespace)])
|
||||
(run-in-user-thread
|
||||
(lambda ()
|
||||
|
|
@ -115,10 +115,10 @@
|
|||
base-importing-stx)])
|
||||
(make-embedding-executable dst-file
|
||||
#f #f
|
||||
'((#f (lib "algol60/base.ss")))
|
||||
'((#f mzlib/algol60/base))
|
||||
null
|
||||
(compile
|
||||
`(module m (lib "algol60/base.ss")
|
||||
`(module m mzlib/algol60/base
|
||||
,code))
|
||||
(list "-mvqe" "(require m)"))))))
|
||||
(define/public (get-one-line-summary) "Algol 60 (not Scheme at all!)")
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
(module browser-sig mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(require mzlib/unit
|
||||
"private/sig.ss")
|
||||
|
||||
(provide browser^)
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
(module browser-unit mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(require mzlib/unit
|
||||
(lib "mred-sig.ss" "mred")
|
||||
(lib "plt-installer-sig.ss" "setup")
|
||||
(lib "tcp-sig.ss" "net")
|
||||
(lib "url-sig.ss" "net")
|
||||
(lib "url-unit.ss" "net")
|
||||
net/tcp-sig
|
||||
net/url-sig
|
||||
net/url-unit
|
||||
"browser-sig.ss"
|
||||
"private/sig.ss"
|
||||
"private/bullet.ss"
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
(module browser mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(require mzlib/unit
|
||||
mred
|
||||
(lib "mred-sig.ss" "mred")
|
||||
(lib "plt-installer-sig.ss" "setup")
|
||||
(lib "plt-installer.ss" "setup")
|
||||
(lib "tcp-sig.ss" "net")
|
||||
(lib "url-sig.ss" "net")
|
||||
(lib "url.ss" "net")
|
||||
net/tcp-sig
|
||||
net/url-sig
|
||||
net/url
|
||||
"browser-sig.ss"
|
||||
"browser-unit.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
(module external mzscheme
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "class.ss")
|
||||
(lib "file.ss")
|
||||
(lib "list.ss")
|
||||
(lib "match.ss")
|
||||
(prefix raw: (lib "sendurl.ss" "net"))
|
||||
(lib "url.ss" "net")
|
||||
(prefix fw: (lib "framework.ss" "framework")))
|
||||
(require string-constants
|
||||
mred
|
||||
mzlib/class
|
||||
mzlib/file
|
||||
mzlib/list
|
||||
mzlib/match
|
||||
(prefix raw: net/sendurl)
|
||||
net/url
|
||||
(prefix fw: framework))
|
||||
(provide send-url
|
||||
(rename raw:browser-preference? browser-preference?)
|
||||
update-browser-preference
|
||||
|
|
|
|||
|
|
@ -1,14 +1,14 @@
|
|||
|
||||
(module htmltext mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "class.ss")
|
||||
(require mzlib/unit
|
||||
mzlib/class
|
||||
"browser-sig.ss"
|
||||
"private/sig.ss"
|
||||
"private/html.ss"
|
||||
"private/bullet.ss"
|
||||
(lib "url.ss" "net")
|
||||
(lib "url-sig.ss" "net")
|
||||
(lib "mred.ss" "mred")
|
||||
net/url
|
||||
net/url-sig
|
||||
mred
|
||||
(lib "mred-unit.ss" "mred")
|
||||
(lib "mred-sig.ss" "mred")
|
||||
(lib "external.ss" "browser"))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
(module bullet mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss"))
|
||||
(require mred
|
||||
mzlib/class)
|
||||
|
||||
(provide bullet-snip%
|
||||
get-bullet-width
|
||||
|
|
|
|||
|
|
@ -3,12 +3,12 @@
|
|||
(require "sig.ss"
|
||||
(lib "mred-sig.ss" "mred")
|
||||
scheme/file
|
||||
(lib "port.ss")
|
||||
(lib "url-sig.ss" "net")
|
||||
mzlib/port
|
||||
net/url-sig
|
||||
(only-in (lib "html.ss" "html")
|
||||
read-html-as-xml read-html-comments use-html-spec)
|
||||
(except-in (lib "xml.ss" "xml") read-comments)
|
||||
(lib "class.ss")
|
||||
mzlib/class
|
||||
"bullet.ss"
|
||||
"option-snip.ss"
|
||||
"entity-names.ss")
|
||||
|
|
|
|||
|
|
@ -2,10 +2,7 @@
|
|||
A test case:
|
||||
|
||||
(module tmp mzscheme
|
||||
(require (lib "class.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "browser.ss" "browser")
|
||||
(lib "framework.ss" "framework"))
|
||||
(require mzlib/class mred browser framework)
|
||||
|
||||
(define f%
|
||||
(frame:status-line-mixin
|
||||
|
|
@ -30,16 +27,16 @@ A test case:
|
|||
|
||||
#lang scheme/unit
|
||||
|
||||
(require (lib "class.ss")
|
||||
(require mzlib/class
|
||||
"sig.ss"
|
||||
scheme/path
|
||||
scheme/file
|
||||
(lib "url-sig.ss" "net")
|
||||
(lib "url-structs.ss" "net")
|
||||
(lib "head.ss" "net")
|
||||
net/url-sig
|
||||
net/url-structs
|
||||
net/head
|
||||
(lib "mred-sig.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
framework
|
||||
string-constants
|
||||
(lib "plt-installer-sig.ss" "setup"))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module option-snip mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss")
|
||||
(lib "string.ss"))
|
||||
(require mred
|
||||
mzlib/class
|
||||
mzlib/string)
|
||||
|
||||
(provide option-snip%
|
||||
checkbox-snip%)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
(module tool mzscheme
|
||||
(require (lib "external.ss" "browser")
|
||||
(lib "unit.ss")
|
||||
mzlib/unit
|
||||
(lib "tool.ss" "drscheme"))
|
||||
(provide tool@)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
(module combinator-example mzscheme
|
||||
|
||||
(require (lib "unit.ss")
|
||||
(lib "lex.ss" "parser-tools")
|
||||
(lib "combinator-unit.ss" "parser-tools"))
|
||||
(require mzlib/unit
|
||||
parser-tools/lex
|
||||
parser-tools/combinator-unit)
|
||||
|
||||
(define-unit support
|
||||
(import)
|
||||
|
|
|
|||
|
|
@ -1,10 +1,9 @@
|
|||
(module combinator-parser lazy
|
||||
|
||||
(require (lib "unit.ss")
|
||||
(lib "lex.ss" "parser-tools"))
|
||||
|
||||
(require mzlib/unit parser-tools/lex)
|
||||
|
||||
(require "structs.scm" "parser-sigs.ss" "combinator.scm" "errors.scm")
|
||||
|
||||
|
||||
(provide combinator-parser-tools@)
|
||||
|
||||
(define-unit main-parser@
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
(module combinator lazy
|
||||
|
||||
(require (lib "unit.ss")
|
||||
(only (lib "etc.ss") opt-lambda))
|
||||
(require mzlib/unit
|
||||
(only mzlib/etc opt-lambda))
|
||||
|
||||
(require "structs.scm"
|
||||
"parser-sigs.ss"
|
||||
(lib "lex.ss" "parser-tools"))
|
||||
parser-tools/lex)
|
||||
|
||||
(provide (all-defined))
|
||||
|
||||
|
|
|
|||
|
|
@ -2,10 +2,10 @@
|
|||
|
||||
(require "structs.scm" "parser-sigs.ss")
|
||||
|
||||
(require (lib "force.ss" "lazy")
|
||||
(lib "etc.ss")
|
||||
(lib "unit.ss")
|
||||
(lib "list.ss"))
|
||||
(require lazy/force
|
||||
mzlib/etc
|
||||
mzlib/unit
|
||||
mzlib/list)
|
||||
|
||||
(provide (all-defined))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
(module parser-sigs mzscheme
|
||||
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require (only (lib "etc.ss") opt-lambda)) ; Required for expansion
|
||||
(require (lib "lex.ss" "parser-tools")
|
||||
(lib "string.ss") (lib "list.ss"))
|
||||
(require (only mzlib/etc opt-lambda)) ; Required for expansion
|
||||
(require parser-tools/lex
|
||||
mzlib/string mzlib/list)
|
||||
|
||||
(provide (all-defined))
|
||||
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
|
||||
(provide (all-defined-except make-fail-type))
|
||||
|
||||
(require (lib "force.ss" "lazy")
|
||||
(lib "lex.ss" "parser-tools"))
|
||||
(require lazy/force
|
||||
parser-tools/lex)
|
||||
|
||||
;fail-src: (list line col pos span loc)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
|
||||
(module bundle-dist mzscheme
|
||||
(require (lib "etc.ss")
|
||||
(lib "file.ss")
|
||||
(lib "process.ss")
|
||||
(lib "zip.ss")
|
||||
(lib "tar.ss"))
|
||||
(require mzlib/etc
|
||||
mzlib/file
|
||||
mzlib/process
|
||||
mzlib/zip
|
||||
mzlib/tar)
|
||||
|
||||
(provide bundle-put-file-extension+style+filters
|
||||
bundle-directory)
|
||||
|
|
|
|||
|
|
@ -7,9 +7,9 @@
|
|||
;; of expression.
|
||||
|
||||
(module cffi mzscheme
|
||||
(require (lib "stx.ss" "syntax"))
|
||||
(require-for-syntax (lib "name.ss" "syntax")
|
||||
(lib "path-spec.ss" "syntax"))
|
||||
(require syntax/stx)
|
||||
(require-for-syntax syntax/name
|
||||
syntax/path-spec)
|
||||
|
||||
(define-syntax c-lambda
|
||||
(let ([re:fname (regexp "^[a-zA-Z_0-9]+$")]
|
||||
|
|
|
|||
|
|
@ -1,16 +1,16 @@
|
|||
|
||||
(module compiler mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "sig.ss")
|
||||
|
||||
(require (lib "compile-sig.ss" "dynext"))
|
||||
(require (lib "link-sig.ss" "dynext"))
|
||||
(require (lib "file-sig.ss" "dynext"))
|
||||
(require dynext/compile-sig)
|
||||
(require dynext/link-sig)
|
||||
(require dynext/file-sig)
|
||||
;;
|
||||
(require (lib "compile.ss" "dynext"))
|
||||
(require (lib "link.ss" "dynext"))
|
||||
(require (lib "file.ss" "dynext"))
|
||||
(require dynext/compile)
|
||||
(require dynext/link)
|
||||
(require dynext/file)
|
||||
|
||||
(require "option.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -2,10 +2,10 @@
|
|||
(module distribute scheme/base
|
||||
(require scheme/file
|
||||
scheme/path
|
||||
(lib "dirs.ss" "setup")
|
||||
(lib "list.ss")
|
||||
setup/dirs
|
||||
mzlib/list
|
||||
(lib "variant.ss" "setup")
|
||||
(lib "filename-version.ss" "dynext")
|
||||
dynext/filename-version
|
||||
"private/macfw.ss"
|
||||
"private/windlldir.ss"
|
||||
"private/collects-path.ss")
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module embed-sig mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
(provide compiler:embed^)
|
||||
|
||||
(define-signature compiler:embed^
|
||||
|
|
|
|||
|
|
@ -435,7 +435,7 @@
|
|||
module-path)])
|
||||
(syntax-case (expand `(module m mzscheme
|
||||
(require (only ,module-path)
|
||||
(lib "runtime-path.ss"))
|
||||
mzlib/runtime-path)
|
||||
(runtime-paths ,module-path))) (quote)
|
||||
[(_ m mz (#%mb rfs req (quote (spec ...))))
|
||||
(syntax->datum #'(spec ...))]
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
(module embed mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "contract.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/contract)
|
||||
|
||||
(require "sig.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -25,14 +25,14 @@
|
|||
(require "compiler.ss")
|
||||
|
||||
;; Read argv array for arguments and input file name
|
||||
(require (lib "cmdline.ss")
|
||||
(lib "list.ss")
|
||||
(lib "file.ss" "dynext")
|
||||
(lib "compile.ss" "dynext")
|
||||
(lib "link.ss" "dynext")
|
||||
(require mzlib/cmdline
|
||||
mzlib/list
|
||||
dynext/file
|
||||
dynext/compile
|
||||
dynext/link
|
||||
(lib "pack.ss" "setup")
|
||||
(lib "getinfo.ss" "setup")
|
||||
(lib "dirs.ss" "setup"))
|
||||
setup/dirs)
|
||||
|
||||
(define dest-dir (make-parameter #f))
|
||||
(define auto-dest-dir (make-parameter #f))
|
||||
|
|
@ -408,7 +408,7 @@
|
|||
,(if (compiler:option:assume-primitives)
|
||||
'(void)
|
||||
'(namespace-require/copy 'scheme))
|
||||
(require (lib "cffi.ss" "compiler"))
|
||||
(require compiler/cffi)
|
||||
,@(map (lambda (s) `(load ,s)) prefixes)
|
||||
(void)))))))
|
||||
(list "file/directory/collection" "file/directory/sub-collection")))
|
||||
|
|
@ -457,9 +457,9 @@
|
|||
(dest-dir)))]
|
||||
[(make-zo)
|
||||
(let ([n (make-base-empty-namespace)]
|
||||
[mc (dynamic-require '(lib "mzlib/cm.ss")
|
||||
[mc (dynamic-require 'mzlib/mzlib/cm
|
||||
'managed-compile-zo)]
|
||||
[cnh (dynamic-require '(lib "mzlib/cm.ss")
|
||||
[cnh (dynamic-require 'mzlib/mzlib/cm
|
||||
'manager-compile-notify-handler)]
|
||||
[did-one? #f])
|
||||
(parameterize ([current-namespace n]
|
||||
|
|
@ -518,7 +518,7 @@
|
|||
[out-file (if (dest-dir)
|
||||
(build-path (dest-dir) out-file)
|
||||
out-file)])
|
||||
((dynamic-require '(lib "xform.ss" "compiler") 'xform)
|
||||
((dynamic-require 'compiler/xform 'xform)
|
||||
(not (compiler:option:verbose))
|
||||
file
|
||||
out-file
|
||||
|
|
@ -555,7 +555,7 @@
|
|||
#:aux (exe-aux))
|
||||
(printf " [output to \"~a\"]~n" dest))]
|
||||
[(exe-dir)
|
||||
((dynamic-require '(lib "distribute.ss" "compiler")
|
||||
((dynamic-require 'compiler/distribute
|
||||
'assemble-distribution)
|
||||
(exe-dir-output)
|
||||
source-files
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module option-unit mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "sig.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module option mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "option-unit.ss")
|
||||
|
|
|
|||
|
|
@ -39,11 +39,11 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module analyze mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -33,11 +33,11 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module anorm mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -1,16 +1,16 @@
|
|||
|
||||
(module base mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "../sig.ss")
|
||||
(require "sig.ss")
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax")
|
||||
(lib "zodiac-unit.ss" "syntax"))
|
||||
(require syntax/zodiac-sig
|
||||
syntax/zodiac-unit)
|
||||
|
||||
(require (lib "file-sig.ss" "dynext")
|
||||
(lib "link-sig.ss" "dynext")
|
||||
(lib "compile-sig.ss" "dynext"))
|
||||
(require dynext/file-sig
|
||||
dynext/link-sig
|
||||
dynext/compile-sig)
|
||||
|
||||
(require "zlayer.ss"
|
||||
"library.ss"
|
||||
|
|
|
|||
|
|
@ -17,11 +17,11 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module closure mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -11,12 +11,12 @@
|
|||
; that is prefixed onto the beginning of the program.
|
||||
|
||||
(module const mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax")
|
||||
(lib "stx.ss" "syntax"))
|
||||
(require syntax/zodiac-sig
|
||||
syntax/stx)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -5,11 +5,11 @@
|
|||
;; Mostly structure definitions, mostly for annotations.
|
||||
|
||||
(module cstructs mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -60,20 +60,20 @@
|
|||
;; the binding.
|
||||
|
||||
(module driver mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "file.ss")
|
||||
(lib "port.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "pretty.ss")
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/file
|
||||
mzlib/port
|
||||
mzlib/etc
|
||||
mzlib/pretty
|
||||
(prefix src2src: "../src2src.ss"))
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "compile-sig.ss" "dynext")
|
||||
(lib "link-sig.ss" "dynext")
|
||||
(lib "file-sig.ss" "dynext")
|
||||
(lib "dirs.ss" "setup"))
|
||||
(require syntax/zodiac-sig
|
||||
syntax/toplevel
|
||||
dynext/compile-sig
|
||||
dynext/link-sig
|
||||
dynext/file-sig
|
||||
setup/dirs)
|
||||
|
||||
(require "../sig.ss"
|
||||
"sig.ss"
|
||||
|
|
@ -262,7 +262,7 @@
|
|||
(eval (or prefix
|
||||
;; Need MzScheme and cffi:
|
||||
'(begin
|
||||
(require (lib "cffi.ss" "compiler"))
|
||||
(require compiler/cffi)
|
||||
(require-for-syntax mzscheme))))))))
|
||||
|
||||
;;----------------------------------------------------------------------
|
||||
|
|
@ -428,7 +428,7 @@
|
|||
|
||||
(define (open-input-scheme-file path)
|
||||
(let ([p (let ([open (with-handlers ([exn:fail? (lambda (x) #f)])
|
||||
(dynamic-require '(lib "mred.ss" "mred") 'open-input-graphical-file))])
|
||||
(dynamic-require 'mred 'open-input-graphical-file))])
|
||||
(if open
|
||||
;; Handles WXME files:
|
||||
(open path)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module embed mzscheme
|
||||
(require (lib "embed.ss" "compiler"))
|
||||
(require compiler/embed)
|
||||
(define mzc:create-embedding-executable create-embedding-executable)
|
||||
(define mzc:embedding-executable-add-suffix embedding-executable-add-suffix)
|
||||
(provide mzc:create-embedding-executable
|
||||
|
|
|
|||
|
|
@ -21,11 +21,11 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module known mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -3,11 +3,11 @@
|
|||
;; (c) 1997-8 PLT, Rice University
|
||||
|
||||
(module library mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -21,11 +21,11 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module lift mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
|
||||
(module macfw mzscheme
|
||||
(require "mach-o.ss"
|
||||
(lib "string.ss")
|
||||
(lib "process.ss"))
|
||||
mzlib/string
|
||||
mzlib/process)
|
||||
|
||||
(provide update-framework-path
|
||||
get-current-framework-path
|
||||
|
|
|
|||
|
|
@ -40,9 +40,9 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module prephase mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -15,9 +15,9 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module rep mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
(module sig mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "../sig.ss")
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(define for-syntax-in-env-stx #'for-syntax-in-env)
|
||||
(provide for-syntax-in-env-stx)
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
;; (c) 1997-2001 PLT
|
||||
|
||||
(module toplevel mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require "sig.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -20,9 +20,9 @@
|
|||
;;; ------------------------------------------------------------
|
||||
|
||||
(module vehicle mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -3,11 +3,11 @@
|
|||
;; (c) 1997-2001 PLT
|
||||
|
||||
(module vm2c mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax")
|
||||
(lib "primitives.ss" "syntax"))
|
||||
(require syntax/zodiac-sig
|
||||
syntax/primitives)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -8,11 +8,11 @@
|
|||
|
||||
(module vmopt mzscheme
|
||||
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -10,12 +10,12 @@
|
|||
;; to macro uses (where the macros are defined in mzc.h).
|
||||
|
||||
(module vmphase mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax")
|
||||
(lib "primitives.ss" "syntax"))
|
||||
(require syntax/zodiac-sig
|
||||
syntax/primitives)
|
||||
|
||||
(require "sig.ss"
|
||||
"../sig.ss")
|
||||
|
|
|
|||
|
|
@ -6,11 +6,11 @@
|
|||
|
||||
(module vmscheme mzscheme
|
||||
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "sig.ss")
|
||||
(require "../sig.ss")
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module windlldir mzscheme
|
||||
(require (lib "port.ss")
|
||||
(require mzlib/port
|
||||
"winutf16.ss")
|
||||
|
||||
(provide update-dll-dir
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module winicon mzscheme
|
||||
(require (lib "list.ss"))
|
||||
(require mzlib/list)
|
||||
(provide install-icon
|
||||
extract-icons
|
||||
parse-icon
|
||||
|
|
@ -627,8 +627,8 @@
|
|||
;; moved somewhere else.
|
||||
#;
|
||||
(begin
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss"))
|
||||
(require mred
|
||||
mzlib/class)
|
||||
(define (bitmap%->icon bm)
|
||||
(let* ([w (send bm get-width)]
|
||||
[h (send bm get-height)]
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module xform mzscheme
|
||||
(require (lib "list.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "process.ss"))
|
||||
(require mzlib/list
|
||||
mzlib/etc
|
||||
mzlib/process)
|
||||
|
||||
(provide xform)
|
||||
|
||||
|
|
|
|||
|
|
@ -3,11 +3,11 @@
|
|||
;; (c)1997-2001 PLT
|
||||
|
||||
(module zlayer mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss"))
|
||||
(require mzlib/unit
|
||||
mzlib/list
|
||||
mzlib/etc)
|
||||
|
||||
(require (lib "zodiac-sig.ss" "syntax"))
|
||||
(require syntax/zodiac-sig)
|
||||
|
||||
(require "../sig.ss")
|
||||
(require "sig.ss")
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
(module sig mzscheme
|
||||
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(provide compiler:option^
|
||||
compiler^
|
||||
|
|
|
|||
|
|
@ -7,11 +7,11 @@
|
|||
;; specially preserved for `lambda' expressions.
|
||||
|
||||
(module src2src scheme/base
|
||||
(require (lib "class.ss")
|
||||
(lib "kerncase.ss" "syntax")
|
||||
(lib "primitives.ss" "syntax")
|
||||
(lib "etc.ss")
|
||||
(lib "list.ss"))
|
||||
(require mzlib/class
|
||||
syntax/kerncase
|
||||
syntax/primitives
|
||||
mzlib/etc
|
||||
mzlib/list)
|
||||
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Optimizer
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
(module to-core mzscheme
|
||||
(require (lib "kerncase.ss" "syntax")
|
||||
(lib "stx.ss" "syntax")
|
||||
(lib "list.ss")
|
||||
(lib "boundmap.ss" "syntax"))
|
||||
(require syntax/kerncase
|
||||
syntax/stx
|
||||
mzlib/list
|
||||
syntax/boundmap)
|
||||
|
||||
(provide top-level-to-core)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module xform mzscheme
|
||||
(require (lib "compile.ss" "dynext")
|
||||
(require dynext/compile
|
||||
(prefix xform: "private/xform.ss"))
|
||||
|
||||
(provide xform)
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
(module arrow mzscheme
|
||||
(require (lib "class.ss")
|
||||
(lib "list.ss")
|
||||
(lib "math.ss")
|
||||
(lib "mred.ss" "mred"))
|
||||
(require mzlib/class
|
||||
mzlib/list
|
||||
mzlib/math
|
||||
mred)
|
||||
|
||||
(provide draw-arrow)
|
||||
|
||||
|
|
|
|||
|
|
@ -18,8 +18,8 @@
|
|||
[use-compiled-file-paths '()])
|
||||
(values
|
||||
(dynamic-require '(lib "zo-compile.ss" "errortrace") 'zo-compile)
|
||||
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
|
||||
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))])
|
||||
(dynamic-require 'mzlib/cm 'make-compilation-manager-load/use-compiled-handler)
|
||||
(dynamic-require 'mzlib/cm 'manager-trace-handler)))])
|
||||
(current-compile zo-compile)
|
||||
(use-compiled-file-paths (list (build-path "compiled" "errortrace")))
|
||||
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
|
||||
|
|
@ -36,8 +36,8 @@
|
|||
manager-trace-handler)
|
||||
(parameterize ([current-namespace (make-namespace)])
|
||||
(values
|
||||
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
|
||||
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))])
|
||||
(dynamic-require 'mzlib/cm 'make-compilation-manager-load/use-compiled-handler)
|
||||
(dynamic-require 'mzlib/cm 'manager-trace-handler)))])
|
||||
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
|
||||
(when cm-trace?
|
||||
(printf "PLTDRCM: enabling CM tracing\n")
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module installer mzscheme
|
||||
(require (lib "file.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "launcher.ss" "launcher"))
|
||||
(require mzlib/file
|
||||
mzlib/etc
|
||||
launcher)
|
||||
(provide installer)
|
||||
|
||||
(define (installer plthome)
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "class.ss")
|
||||
(lib "list.ss")
|
||||
(require mzlib/class
|
||||
mzlib/list
|
||||
scheme/file
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
string-constants
|
||||
mred
|
||||
framework
|
||||
(lib "external.ss" "browser")
|
||||
(lib "getinfo.ss" "setup")
|
||||
"drsig.ss"
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
(module auto-language mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss"))
|
||||
(require mred
|
||||
mzlib/class)
|
||||
|
||||
(provide pick-new-language looks-like-module?)
|
||||
|
||||
|
|
|
|||
|
|
@ -8,14 +8,14 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto
|
|||
|#
|
||||
|
||||
(module bindings-browser mzscheme
|
||||
(require (lib "pretty.ss")
|
||||
(lib "list.ss")
|
||||
(lib "class.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "match.ss")
|
||||
(lib "string.ss")
|
||||
(require mzlib/pretty
|
||||
mzlib/list
|
||||
mzlib/class
|
||||
mred
|
||||
mzlib/match
|
||||
mzlib/string
|
||||
(lib "marks.ss" "stepper" "private")
|
||||
(lib "contract.ss"))
|
||||
mzlib/contract)
|
||||
|
||||
(provide render-bindings/snip)
|
||||
|
||||
|
|
|
|||
|
|
@ -7,16 +7,16 @@ profile todo:
|
|||
|#
|
||||
|
||||
(module debug mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(require mzlib/unit
|
||||
(lib "stacktrace.ss" "errortrace")
|
||||
(lib "class.ss")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "file.ss")
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
mzlib/etc
|
||||
mzlib/file
|
||||
"drsig.ss"
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
framework
|
||||
mred
|
||||
string-constants
|
||||
(lib "bday.ss" "framework" "private")
|
||||
"bindings-browser.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
|
||||
(module drscheme-normal mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss")
|
||||
(lib "cmdline.ss")
|
||||
(require mred
|
||||
mzlib/class
|
||||
mzlib/cmdline
|
||||
(lib "bday.ss" "framework" "private"))
|
||||
|
||||
; (current-load text-editor-load-handler)
|
||||
|
|
|
|||
|
|
@ -1,18 +1,18 @@
|
|||
|
||||
(module eval mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "unit.ss")
|
||||
(lib "port.ss")
|
||||
(lib "class.ss")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "framework.ss" "framework")
|
||||
(require mred
|
||||
mzlib/unit
|
||||
mzlib/port
|
||||
mzlib/class
|
||||
syntax/toplevel
|
||||
framework
|
||||
"drsig.ss")
|
||||
|
||||
;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace
|
||||
;; these things are for effect only!
|
||||
(require (lib "cache-image-snip.ss" "mrlib")
|
||||
#;
|
||||
(prefix foo (lib "matrix.ss" "htdp")))
|
||||
(prefix foo htdp/matrix))
|
||||
|
||||
(define op (current-output-port))
|
||||
(define (oprintf . args) (apply fprintf op args))
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
(module font mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "class.ss")
|
||||
(require mzlib/unit
|
||||
mzlib/class
|
||||
"drsig.ss"
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "string-constant.ss" "string-constants"))
|
||||
mred
|
||||
framework
|
||||
string-constants)
|
||||
|
||||
(define sc-smoothing-label (string-constant font-smoothing-label))
|
||||
(define sc-smoothing-none (string-constant font-smoothing-none))
|
||||
|
|
|
|||
|
|
@ -1,15 +1,15 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(lib "match.ss")
|
||||
(lib "class.ss")
|
||||
(lib "string.ss")
|
||||
(lib "list.ss")
|
||||
(require string-constants
|
||||
mzlib/match
|
||||
mzlib/class
|
||||
mzlib/string
|
||||
mzlib/list
|
||||
"drsig.ss"
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "url.ss" "net")
|
||||
(lib "head.ss" "net")
|
||||
mred
|
||||
framework
|
||||
net/url
|
||||
net/head
|
||||
(lib "plt-installer.ss" "setup")
|
||||
(lib "bug-report.ss" "help")
|
||||
scheme/file)
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "class.ss")
|
||||
(require mzlib/class
|
||||
"drsig.ss"
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "etc.ss"))
|
||||
mred
|
||||
mzlib/etc)
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(lib "mred.ss" "mred")
|
||||
(require string-constants
|
||||
mred
|
||||
(lib "external.ss" "browser")
|
||||
(lib "bug-report.ss" "help")
|
||||
(lib "buginfo.ss" "help" "private")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "class.ss")
|
||||
(lib "list.ss")
|
||||
framework
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
(lib "search.ss" "help")
|
||||
"drsig.ss")
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(require string-constants
|
||||
"drsig.ss"
|
||||
(lib "list.ss")
|
||||
(lib "mred.ss" "mred"))
|
||||
mzlib/list
|
||||
mred)
|
||||
|
||||
|
||||
(import)
|
||||
|
|
|
|||
|
|
@ -1,9 +1,6 @@
|
|||
#lang scheme/base
|
||||
|
||||
(require mred/mred
|
||||
scheme/class
|
||||
string-constants/string-constant
|
||||
framework/framework)
|
||||
(require mred scheme/class string-constants framework)
|
||||
|
||||
(provide insert-large-letters)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module label-frame-mred mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss"))
|
||||
(provide (all-from-except (lib "mred.ss" "mred") frame%)
|
||||
(require mred
|
||||
mzlib/class)
|
||||
(provide (all-from-except mred frame%)
|
||||
(rename registering-frame% frame%)
|
||||
lookup-frame-name)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,20 +1,20 @@
|
|||
|
||||
(module language-configuration mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(require mzlib/unit
|
||||
(lib "hierlist.ss" "hierlist")
|
||||
(lib "class.ss")
|
||||
(lib "contract.ss")
|
||||
(lib "kw.ss")
|
||||
(lib "string.ss")
|
||||
mzlib/class
|
||||
mzlib/contract
|
||||
mzlib/kw
|
||||
mzlib/string
|
||||
"drsig.ss"
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "list.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "file.ss")
|
||||
string-constants
|
||||
mred
|
||||
framework
|
||||
mzlib/list
|
||||
mzlib/etc
|
||||
mzlib/file
|
||||
(lib "getinfo.ss" "setup")
|
||||
(lib "toplevel.ss" "syntax"))
|
||||
syntax/toplevel)
|
||||
|
||||
(define original-output (current-output-port))
|
||||
(define (printfo . args) (apply fprintf original-output args))
|
||||
|
|
|
|||
|
|
@ -5,21 +5,21 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require "drsig.ss"
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(lib "pconvert.ss")
|
||||
(lib "pretty.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "struct.ss")
|
||||
(lib "class.ss")
|
||||
string-constants
|
||||
mzlib/pconvert
|
||||
mzlib/pretty
|
||||
mzlib/etc
|
||||
mzlib/struct
|
||||
mzlib/class
|
||||
scheme/file
|
||||
(lib "list.ss")
|
||||
(lib "embed.ss" "compiler")
|
||||
(lib "launcher.ss" "launcher")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
mzlib/list
|
||||
compiler/embed
|
||||
launcher
|
||||
mred
|
||||
framework
|
||||
(lib "syntax-browser.ss" "mrlib")
|
||||
(lib "distribute.ss" "compiler")
|
||||
(lib "bundle-dist.ss" "compiler"))
|
||||
compiler/distribute
|
||||
compiler/bundle-dist)
|
||||
|
||||
(import [prefix drscheme:debug: drscheme:debug^]
|
||||
[prefix drscheme:tools: drscheme:tools^]
|
||||
|
|
@ -457,8 +457,8 @@
|
|||
;; simple-module-based-language-get-init-code : setting -> sexp[module]
|
||||
(define (simple-module-based-language-get-init-code setting)
|
||||
`(module mod-name mzscheme
|
||||
(require (lib "pconvert.ss")
|
||||
(lib "pretty.ss"))
|
||||
(require mzlib/pconvert
|
||||
mzlib/pretty)
|
||||
|
||||
(provide init-code)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
(module launcher-bootstrap mzscheme
|
||||
(require (lib "string.ss")
|
||||
(lib "file.ss"))
|
||||
(require mzlib/string
|
||||
mzlib/file)
|
||||
|
||||
(define argv (current-command-line-arguments))
|
||||
;; skip first six
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
"debug.ss"
|
||||
"module-language.ss"
|
||||
"tools.ss"
|
||||
(lib "unit.ss")
|
||||
mzlib/unit
|
||||
"language.ss"
|
||||
"language-configuration.ss"
|
||||
"drsig.ss"
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
#lang scheme/unit
|
||||
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(lib "contract.ss")
|
||||
(require string-constants
|
||||
mzlib/contract
|
||||
"drsig.ss"
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "class.ss")
|
||||
(lib "list.ss")
|
||||
mred
|
||||
framework
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
scheme/path
|
||||
(lib "external.ss" "browser")
|
||||
(lib "plt-installer.ss" "setup"))
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#lang scheme/unit
|
||||
(require (lib "string-constant.ss" "string-constants")
|
||||
(lib "class.ss")
|
||||
(lib "list.ss")
|
||||
(lib "framework.ss" "framework")
|
||||
(require string-constants
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
framework
|
||||
"drsig.ss")
|
||||
|
||||
(import)
|
||||
|
|
|
|||
|
|
@ -1,15 +1,15 @@
|
|||
|
||||
(module module-language mzscheme
|
||||
(provide module-language@)
|
||||
(require (lib "unit.ss")
|
||||
(lib "class.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "embed.ss" "compiler")
|
||||
(lib "launcher.ss" "launcher")
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(require mzlib/unit
|
||||
mzlib/class
|
||||
mred
|
||||
compiler/embed
|
||||
launcher
|
||||
framework
|
||||
string-constants
|
||||
"drsig.ss"
|
||||
(lib "contract.ss"))
|
||||
mzlib/contract)
|
||||
|
||||
(define op (current-output-port))
|
||||
(define (oprintf . args) (apply fprintf op args))
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
#lang scheme/base
|
||||
|
||||
(require mred/mred
|
||||
(require mred
|
||||
scheme/class
|
||||
syntax/moddep
|
||||
syntax/toplevel
|
||||
framework/framework
|
||||
string-constants/string-constant
|
||||
string-constants
|
||||
mrlib/graph
|
||||
"drsig.ss"
|
||||
scheme/unit
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "framework.ss" "framework")
|
||||
(lib "class.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(require framework
|
||||
mzlib/class
|
||||
mred
|
||||
scheme/file
|
||||
scheme/path
|
||||
(lib "thread.ss")
|
||||
(lib "async-channel.ss")
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
mzlib/thread
|
||||
mzlib/async-channel
|
||||
string-constants
|
||||
"drsig.ss")
|
||||
|
||||
(import [prefix drscheme:frame: drscheme:frame^]
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module number-snip mzscheme
|
||||
(require (lib "mred.ss" "mred")
|
||||
(lib "class.ss")
|
||||
(lib "framework.ss" "framework"))
|
||||
(require mred
|
||||
mzlib/class
|
||||
framework)
|
||||
|
||||
(provide snip-class)
|
||||
(define snip-class (make-object number-snip:snip-class%))
|
||||
|
|
|
|||
|
|
@ -18,17 +18,17 @@ TODO
|
|||
;; user's io ports, to aid any debugging printouts.
|
||||
;; (esp. useful when debugging the users's io)
|
||||
(module rep mzscheme
|
||||
(require (lib "class.ss")
|
||||
(lib "file.ss")
|
||||
(lib "pretty.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "port.ss")
|
||||
(lib "unit.ss")
|
||||
(require mzlib/class
|
||||
mzlib/file
|
||||
mzlib/pretty
|
||||
mzlib/etc
|
||||
mzlib/list
|
||||
mzlib/port
|
||||
mzlib/unit
|
||||
"drsig.ss"
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework")
|
||||
string-constants
|
||||
mred
|
||||
framework
|
||||
(lib "external.ss" "browser")
|
||||
(lib "default-lexer.ss" "syntax-color"))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
(module stick-figures mzscheme
|
||||
(require (lib "class.ss")
|
||||
(lib "pretty.ss")
|
||||
(lib "mred.ss" "mred"))
|
||||
(require mzlib/class
|
||||
mzlib/pretty
|
||||
mred)
|
||||
|
||||
(define head-size 40)
|
||||
(define small-bitmap-factor 1/2)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
(module syncheck-debug mzscheme
|
||||
(require (lib "pretty.ss")
|
||||
(lib "list.ss")
|
||||
(lib "class.ss")
|
||||
(lib "mred.ss" "mred"))
|
||||
(require mzlib/pretty
|
||||
mzlib/list
|
||||
mzlib/class
|
||||
mred)
|
||||
|
||||
(provide debug-origin) ;; : syntax [syntax] -> void
|
||||
;; creates a frame for examining the
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "class.ss")
|
||||
(require mzlib/class
|
||||
"drsig.ss"
|
||||
(lib "framework.ss" "framework"))
|
||||
framework)
|
||||
|
||||
(import)
|
||||
(export drscheme:text^)
|
||||
|
|
|
|||
|
|
@ -1,12 +1,12 @@
|
|||
(module time-keystrokes mzscheme
|
||||
|
||||
(require (lib "tool.ss" "drscheme")
|
||||
(lib "list.ss")
|
||||
(lib "unit.ss")
|
||||
(lib "class.ss")
|
||||
(lib "etc.ss")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "framework.ss" "framework"))
|
||||
mzlib/list
|
||||
mzlib/unit
|
||||
mzlib/class
|
||||
mzlib/etc
|
||||
mred
|
||||
framework)
|
||||
|
||||
(provide tool@)
|
||||
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
(provide (rename -#%module-begin #%module-begin)
|
||||
(all-from-except mzscheme #%module-begin))
|
||||
|
||||
(require (lib "contract.ss"))
|
||||
(require-for-syntax (lib "list.ss"))
|
||||
(require mzlib/contract)
|
||||
(require-for-syntax mzlib/list)
|
||||
|
||||
(define-syntax (-#%module-begin stx)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,14 +1,14 @@
|
|||
|
||||
#lang scheme/unit
|
||||
(require (lib "getinfo.ss" "setup")
|
||||
(lib "mred.ss" "mred")
|
||||
(lib "class.ss")
|
||||
(lib "list.ss")
|
||||
mred
|
||||
mzlib/class
|
||||
mzlib/list
|
||||
"drsig.ss"
|
||||
(lib "contract.ss")
|
||||
mzlib/contract
|
||||
"tool-contracts.ss"
|
||||
(lib "framework.ss" "framework")
|
||||
(lib "string-constant.ss" "string-constants"))
|
||||
framework
|
||||
string-constants)
|
||||
|
||||
(import [prefix drscheme:frame: drscheme:frame^]
|
||||
[prefix drscheme:unit: drscheme:unit^]
|
||||
|
|
|
|||
|
|
@ -18,9 +18,9 @@ module browser threading seems wrong.
|
|||
scheme/path
|
||||
scheme/port
|
||||
scheme/list
|
||||
(only-in (lib "etc.ss") compose)
|
||||
(lib "string-constant.ss" "string-constants")
|
||||
(lib "framework.ss" "framework")
|
||||
(only-in mzlib/etc compose)
|
||||
string-constants
|
||||
framework
|
||||
(lib "name-message.ss" "mrlib")
|
||||
(lib "bitmap-label.ss" "mrlib")
|
||||
(lib "include-bitmap.ss" "mrlib")
|
||||
|
|
@ -30,10 +30,10 @@ module browser threading seems wrong.
|
|||
|
||||
(prefix-in drscheme:arrow: "../arrow.ss")
|
||||
|
||||
(lib "mred.ss" "mred")
|
||||
(prefix-in mred: (lib "mred.ss" "mred"))
|
||||
mred
|
||||
(prefix-in mred: mred)
|
||||
|
||||
(lib "date.ss"))
|
||||
mzlib/date)
|
||||
|
||||
(provide unit@)
|
||||
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
|#
|
||||
|
||||
|
||||
(require string-constants/string-constant
|
||||
(require string-constants
|
||||
scheme/unit
|
||||
scheme/contract
|
||||
scheme/class
|
||||
|
|
@ -28,7 +28,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
mrlib/bitmap-label
|
||||
(prefix-in drscheme:arrow: drscheme/arrow)
|
||||
(prefix-in fw: framework/framework)
|
||||
mred/mred
|
||||
mred
|
||||
setup/xref
|
||||
scribble/xref
|
||||
scribble/manual-struct
|
||||
|
|
|
|||
|
|
@ -10,9 +10,9 @@ all of the names in the tools library, for use defining keybindings
|
|||
(module tool-lib mzscheme
|
||||
(require "private/link.ss"
|
||||
"private/drsig.ss"
|
||||
(lib "class.ss")
|
||||
(lib "unit.ss")
|
||||
(lib "framework.ss" "framework")
|
||||
mzlib/class
|
||||
mzlib/unit
|
||||
framework
|
||||
(lib "splash.ss" "framework"))
|
||||
|
||||
(shutdown-splash)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module compile-sig mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(provide dynext:compile^)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
(module compile-unit mzscheme
|
||||
(require (lib "unit.ss")
|
||||
(lib "include.ss")
|
||||
(lib "process.ss")
|
||||
(lib "sendevent.ss")
|
||||
(require mzlib/unit
|
||||
mzlib/include
|
||||
mzlib/process
|
||||
mzlib/sendevent
|
||||
"private/dirs.ss"
|
||||
"private/cmdargs.ss")
|
||||
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user