Moved unstable/cce/sandbox to unstable/sandbox.

This commit is contained in:
Carl Eastlund 2010-05-29 18:46:01 -04:00
parent 2db3a9d38a
commit 4166a0cfe7
9 changed files with 13 additions and 40 deletions

View File

@ -1,6 +1,6 @@
#lang scheme #lang scheme
(require scheme/sandbox unstable/syntax "../sandbox.ss") (require scheme/sandbox unstable/syntax unstable/sandbox)
(define (evaluator . require-specs) (define (evaluator . require-specs)
(let* ([ev (make-scribble-evaluator 'scheme)]) (let* ([ev (make-scribble-evaluator 'scheme)])

View File

@ -27,7 +27,6 @@
@include-section["debug.scrbl"] @include-section["debug.scrbl"]
@include-section["sandbox.scrbl"]
@include-section["scribble.scrbl"] @include-section["scribble.scrbl"]
@include-section["gui.scrbl"] @include-section["gui.scrbl"]

View File

@ -15,7 +15,7 @@ provides @scheme[this-package-version-symbol] from
@schememodname[unstable/cce/planet], @scheme[this-package-in] from @schememodname[unstable/cce/planet], @scheme[this-package-in] from
@schememodname[unstable/cce/require-provide], and @schememodname[unstable/cce/require-provide], and
@scheme[make-scribble-evaluator] and @scheme[make-scribble-module-evaluator] @scheme[make-scribble-evaluator] and @scheme[make-scribble-module-evaluator]
from @schememodname[unstable/cce/sandbox]. from @schememodname[unstable/sandbox].
@defform*[[ @defform*[[
(defmodule/this-package) (defmodule/this-package)

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require scribble/manual "sandbox.ss" "planet.ss" (require scribble/manual unstable/sandbox "planet.ss"
(for-syntax scheme/base "syntax.ss")) (for-syntax scheme/base "syntax.ss"))
(define-for-syntax (make-planet-paths stx ids) (define-for-syntax (make-planet-paths stx ids)

View File

@ -9,7 +9,6 @@
"test-planet.ss" "test-planet.ss"
"test-port.ss" "test-port.ss"
"test-require-provide.ss" "test-require-provide.ss"
"test-sandbox.ss"
"test-scribble.ss" "test-scribble.ss"
"test-set.ss" "test-set.ss"
"test-syntax.ss") "test-syntax.ss")
@ -24,7 +23,6 @@
planet-suite planet-suite
port-suite port-suite
require-provide-suite require-provide-suite
sandbox-suite
scribble-suite scribble-suite
set-suite set-suite
syntax-suite)) syntax-suite))

View File

@ -1,9 +0,0 @@
#lang scheme
(require "checks.ss"
"../sandbox.ss")
(provide sandbox-suite)
(define sandbox-suite
(test-suite "sandbox.ss"))

View File

@ -1,7 +1,6 @@
#lang scheme #lang racket
(require scheme/sandbox (require racket/sandbox)
"define.ss")
(provide make-trusted-evaluator (provide make-trusted-evaluator
make-trusted-module-evaluator make-trusted-module-evaluator
@ -9,16 +8,6 @@
make-scribble-module-evaluator make-scribble-module-evaluator
make-sandbox-namespace-specs) make-sandbox-namespace-specs)
;; Needed for legacy versions of scheme/sandbox
(define-if-unbound (call-with-trusted-sandbox-configuration thunk)
(parameterize ([sandbox-propagate-breaks #t]
[sandbox-override-collection-paths '()]
[sandbox-security-guard (current-security-guard)]
[sandbox-make-inspector current-inspector]
[sandbox-make-logger current-logger]
[sandbox-eval-limits #f])
(thunk)))
(define make-trusted-evaluator (define make-trusted-evaluator
(make-keyword-procedure (make-keyword-procedure
(lambda (keys vals . args) (lambda (keys vals . args)

View File

@ -1,13 +1,10 @@
#lang scribble/doc #lang scribble/manual
@(require scribble/manual @(require scribble/eval "utils.rkt"
scribble/eval (for-label racket racket/sandbox unstable/sandbox))
"../scribble.ss"
"eval.ss")
@(require (for-label scheme scheme/sandbox unstable/cce/sandbox))
@title[#:style 'quiet #:tag "cce-sandbox"]{Sandboxed Evaluation} @title{Sandboxed Evaluation}
@defmodule[unstable/cce/sandbox] @defmodule[unstable/sandbox]
This module provides tools for sandboxed evaluation. This module provides tools for sandboxed evaluation.
@ -28,9 +25,7 @@ This module provides tools for sandboxed evaluation.
)]{ )]{
These procedures wrap calls to @scheme[make-evaluator] and These procedures wrap calls to @scheme[make-evaluator] and
@scheme[make-module-evaluator], respectively, with @scheme[make-module-evaluator], respectively, with
@scheme[call-with-trusted-sandbox-configuration] (introduced in PLT 4.1.3.6). @scheme[call-with-trusted-sandbox-configuration].
In older versions of PLT Scheme, they simulate the trusted configuration as
closely as possible.
} }
@deftogether[( @deftogether[(
@ -63,4 +58,4 @@ This function produces a value for the parameter
namespace constructed by @scheme[make-ns] and share a set of instances of the namespace constructed by @scheme[make-ns] and share a set of instances of the
modules referred to by the given @scheme[path]s. modules referred to by the given @scheme[path]s.
} }

View File

@ -83,6 +83,7 @@ Keep documentation and tests up to date.
@include-section["pretty.scrbl"] @include-section["pretty.scrbl"]
@include-section["queue.scrbl"] @include-section["queue.scrbl"]
@include-section["regexp.scrbl"] @include-section["regexp.scrbl"]
@include-section["sandbox.scrbl"]
@include-section["srcloc.scrbl"] @include-section["srcloc.scrbl"]
@include-section["string.scrbl"] @include-section["string.scrbl"]
@include-section["struct.scrbl"] @include-section["struct.scrbl"]