Fixed various spelling errors.
This commit is contained in:
parent
6099806a72
commit
c9519fd113
|
@ -411,7 +411,7 @@ Also added the timing code at the end.
|
||||||
|
|
||||||
|
|
||||||
;;purpose :given the board ,square to be played,column and row label and returns a new board
|
;;purpose :given the board ,square to be played,column and row label and returns a new board
|
||||||
;;with the square to be played at the position reffered
|
;;with the square to be played at the position referred
|
||||||
;; play-on-board : board square symbol symbol -> board
|
;; play-on-board : board square symbol symbol -> board
|
||||||
|
|
||||||
;;test
|
;;test
|
||||||
|
|
|
@ -416,7 +416,7 @@ Also added the timing code at the end.
|
||||||
|
|
||||||
|
|
||||||
;;purpose :given the board ,square to be played,column and row label and returns a new board
|
;;purpose :given the board ,square to be played,column and row label and returns a new board
|
||||||
;;with the square to be played at the position reffered
|
;;with the square to be played at the position referred
|
||||||
;; play-on-board : board square symbol symbol -> board
|
;; play-on-board : board square symbol symbol -> board
|
||||||
|
|
||||||
;;test
|
;;test
|
||||||
|
|
|
@ -803,7 +803,7 @@
|
||||||
;; distinguish between tail & non-tail calls
|
;; distinguish between tail & non-tail calls
|
||||||
;; implement tail calls to "simple" primitives a regular calls
|
;; implement tail calls to "simple" primitives a regular calls
|
||||||
;; no need to pass anything to tail here because it's already
|
;; no need to pass anything to tail here because it's already
|
||||||
;; a tail value if its a tail-apply
|
;; a tail value if it's a tail-apply
|
||||||
;; the vm-optimizer will refine the multi-ness of this application,
|
;; the vm-optimizer will refine the multi-ness of this application,
|
||||||
;; and worry about inter & intra-vehicle calls
|
;; and worry about inter & intra-vehicle calls
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -257,7 +257,7 @@ alignment<%>.
|
||||||
|
|
||||||
_stretchable-editor-snip-mixin_ gives an editor snip the
|
_stretchable-editor-snip-mixin_ gives an editor snip the
|
||||||
_stretchable-snip<%>_ interface allowing it to be stretched
|
_stretchable-snip<%>_ interface allowing it to be stretched
|
||||||
to fit it's alignment-parent<%>'s alloted width. Stretchable
|
to fit its alignment-parent<%>'s alloted width. Stretchable
|
||||||
snips are useful as the snip of a snip-wrapper%.
|
snips are useful as the snip of a snip-wrapper%.
|
||||||
|
|
||||||
_stretchable-editor-snip%_ is (stretcable-editor-snip-mixin editor-snip%)
|
_stretchable-editor-snip%_ is (stretcable-editor-snip-mixin editor-snip%)
|
||||||
|
|
|
@ -81,7 +81,7 @@ t hat are labeled from a particular set of strings.}
|
||||||
|
|
||||||
Sets the tabbing order of @scheme[tabbable-text<%>]s by setting each
|
Sets the tabbing order of @scheme[tabbable-text<%>]s by setting each
|
||||||
text's @method[tabbable-text<%> set-ahead] and
|
text's @method[tabbable-text<%> set-ahead] and
|
||||||
@method[tabbable-text<%> set-back] thunks to point to it's neighbor in
|
@method[tabbable-text<%> set-back] thunks to point to its neighbor in
|
||||||
the argument list.}
|
the argument list.}
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -802,7 +802,7 @@
|
||||||
@scheme[filename].
|
@scheme[filename].
|
||||||
@itemize[
|
@itemize[
|
||||||
@item{If a handler is found, it is applied to
|
@item{If a handler is found, it is applied to
|
||||||
@scheme[filename] and it's result is the final
|
@scheme[filename] and its result is the final
|
||||||
result.}
|
result.}
|
||||||
@item{If not, @scheme[make-default] is used.}]}]}
|
@item{If not, @scheme[make-default] is used.}]}]}
|
||||||
@item{If @scheme[filename] is @scheme[#f], @scheme[make-default] is
|
@item{If @scheme[filename] is @scheme[#f], @scheme[make-default] is
|
||||||
|
|
|
@ -604,7 +604,7 @@
|
||||||
[(not contains)
|
[(not contains)
|
||||||
;; Something went wrong matching. Should we get here?
|
;; Something went wrong matching. Should we get here?
|
||||||
(do-indent 0)]
|
(do-indent 0)]
|
||||||
#; ;; disable this to accomodate PLAI programs; return to this when a #lang capability is set up.
|
#; ;; disable this to accommodate PLAI programs; return to this when a #lang capability is set up.
|
||||||
[(curley-brace-sexp?)
|
[(curley-brace-sexp?)
|
||||||
;; when we are directly inside an sexp that uses {}s,
|
;; when we are directly inside an sexp that uses {}s,
|
||||||
;; we indent in a more C-like fashion (to help Scribble)
|
;; we indent in a more C-like fashion (to help Scribble)
|
||||||
|
|
|
@ -278,7 +278,7 @@ Generates a mixin that sends an event on stream-name when
|
||||||
callback is called. The class has an init field called
|
callback is called. The class has an init field called
|
||||||
[stream-name]-event-processor, which is a function. The
|
[stream-name]-event-processor, which is a function. The
|
||||||
function is applied to an event stream that has an
|
function is applied to an event stream that has an
|
||||||
occurence every time callback is called, and the value
|
occurrence every time callback is called, and the value
|
||||||
of the events is a list of the arguments to the callback.
|
of the events is a list of the arguments to the callback.
|
||||||
The public method (get-[stream-name]) is a public method
|
The public method (get-[stream-name]) is a public method
|
||||||
of the resulting class that gets the result of applying
|
of the resulting class that gets the result of applying
|
||||||
|
|
|
@ -32,7 +32,7 @@ when the event should just be the value of the first
|
||||||
argument of the callback. split-*-events/type sets up an
|
argument of the callback. split-*-events/type sets up an
|
||||||
appropriate split (see FrTime docs for split information,
|
appropriate split (see FrTime docs for split information,
|
||||||
GRacket docs for key-event codes and mouse-event types) over
|
GRacket docs for key-event codes and mouse-event types) over
|
||||||
the type of event occurence.
|
the type of event occurrence.
|
||||||
|
|
||||||
|
|
||||||
events->callbacks and callbacks->args-evts are the backbone
|
events->callbacks and callbacks->args-evts are the backbone
|
||||||
|
|
|
@ -1026,7 +1026,7 @@
|
||||||
(if (eq? #t (syntax-e #'type-name))
|
(if (eq? #t (syntax-e #'type-name))
|
||||||
;; Context guarantees correct use, as long as we report our type:
|
;; Context guarantees correct use, as long as we report our type:
|
||||||
#'(honu-report-type val orig-expr val-type protect-id)
|
#'(honu-report-type val orig-expr val-type protect-id)
|
||||||
;; Context gurantees use at a particular type...
|
;; Context guarantees use at a particular type...
|
||||||
(if (check-compatible-type #'val #'orig-expr #'val-type #'type-name type-mismatch)
|
(if (check-compatible-type #'val #'orig-expr #'val-type #'type-name type-mismatch)
|
||||||
;; Declared type subsumes actual type:
|
;; Declared type subsumes actual type:
|
||||||
(if (and (syntax-e #'protect-id)
|
(if (and (syntax-e #'protect-id)
|
||||||
|
|
|
@ -11,7 +11,7 @@
|
||||||
|
|
||||||
;; convert : (listof DIGIT) -> number
|
;; convert : (listof DIGIT) -> number
|
||||||
;; to convert a list of digits into a number
|
;; to convert a list of digits into a number
|
||||||
;; the leading digit is the least signifcant one
|
;; the leading digit is the least significant one
|
||||||
(define (convert alod)
|
(define (convert alod)
|
||||||
(cond
|
(cond
|
||||||
[(empty? alod) 0]
|
[(empty? alod) 0]
|
||||||
|
|
|
@ -9,7 +9,7 @@
|
||||||
(define ~? promise?)
|
(define ~? promise?)
|
||||||
|
|
||||||
;; force a top-level list structure; works with improper lists (will force the
|
;; force a top-level list structure; works with improper lists (will force the
|
||||||
;; dotted item when it checks if its a pair); does not handle cycles
|
;; dotted item when it checks if it's a pair); does not handle cycles
|
||||||
(define (!list x)
|
(define (!list x)
|
||||||
(let ([x (! x)])
|
(let ([x (! x)])
|
||||||
(if (list? x) ; cheap check,
|
(if (list? x) ; cheap check,
|
||||||
|
|
|
@ -33,7 +33,7 @@
|
||||||
(super-new [parent parent]
|
(super-new [parent parent]
|
||||||
[cocoa (let ([cocoa (as-objc-allocation
|
[cocoa (let ([cocoa (as-objc-allocation
|
||||||
;; Beware that a guage may be finally deallocated in
|
;; Beware that a guage may be finally deallocated in
|
||||||
;; a seperate OS-level thread
|
;; a separate OS-level thread
|
||||||
(tell (tell MyProgressIndicator alloc) init))])
|
(tell (tell MyProgressIndicator alloc) init))])
|
||||||
(tellv cocoa setIndeterminate: #:type _BOOL #f)
|
(tellv cocoa setIndeterminate: #:type _BOOL #f)
|
||||||
(tellv cocoa setMaxValue: #:type _double* rng)
|
(tellv cocoa setMaxValue: #:type _double* rng)
|
||||||
|
|
|
@ -216,7 +216,7 @@
|
||||||
(adjust-client-delta 0 h))
|
(adjust-client-delta 0 h))
|
||||||
;; Hack: calls back into the mred layer to re-compute
|
;; Hack: calls back into the mred layer to re-compute
|
||||||
;; sizes. By calling this early enough, the frame won't
|
;; sizes. By calling this early enough, the frame won't
|
||||||
;; grow if it doesn't have to grow to accomodate the menu bar.
|
;; grow if it doesn't have to grow to accommodate the menu bar.
|
||||||
(send this resized))
|
(send this resized))
|
||||||
|
|
||||||
(define saved-enforcements (vector 0 0 -1 -1))
|
(define saved-enforcements (vector 0 0 -1 -1))
|
||||||
|
|
|
@ -137,7 +137,7 @@
|
||||||
PFD_SUPPORT_GDI)
|
PFD_SUPPORT_GDI)
|
||||||
(bitwise-ior PFD_DRAW_TO_WINDOW)))
|
(bitwise-ior PFD_DRAW_TO_WINDOW)))
|
||||||
PFD_TYPE_RGBA ; color type
|
PFD_TYPE_RGBA ; color type
|
||||||
(if offscreen? 32 24) ; prefered color depth
|
(if offscreen? 32 24) ; preferred color depth
|
||||||
0 0 0 0 0 0 ; color bits (ignored)
|
0 0 0 0 0 0 ; color bits (ignored)
|
||||||
0 ; no alpha buffer
|
0 ; no alpha buffer
|
||||||
0 ; alpha bits (ignored)
|
0 ; alpha bits (ignored)
|
||||||
|
|
|
@ -111,7 +111,7 @@
|
||||||
|
|
||||||
(when (and s-admin
|
(when (and s-admin
|
||||||
(has-flag? s-flags USES-BUFFER-PATH))
|
(has-flag? s-flags USES-BUFFER-PATH))
|
||||||
;; propogate a filename change:
|
;; propagate a filename change:
|
||||||
(if (and editor
|
(if (and editor
|
||||||
(no-permanent-filename? editor))
|
(no-permanent-filename? editor))
|
||||||
(let ([b (send s-admin get-editor)])
|
(let ([b (send s-admin get-editor)])
|
||||||
|
|
|
@ -1039,7 +1039,7 @@ Debugging tools:
|
||||||
[next (mline-next mline)])
|
[next (mline-next mline)])
|
||||||
(when (or (not (eq? (mline-snip next) asnip))
|
(when (or (not (eq? (mline-snip next) asnip))
|
||||||
(not (has-flag? (snip->flags (mline-last-snip next)) NEWLINE)))
|
(not (has-flag? (snip->flags (mline-last-snip next)) NEWLINE)))
|
||||||
;; Effect can propogate to more lines, merging the
|
;; Effect can propagate to more lines, merging the
|
||||||
;; next several. (Handle prefixing the remains of the source of
|
;; next several. (Handle prefixing the remains of the source of
|
||||||
;; the extension to this line onto the next line. Implemented
|
;; the extension to this line onto the next line. Implemented
|
||||||
;; as the next line eating the next->next line.)
|
;; as the next line eating the next->next line.)
|
||||||
|
|
|
@ -255,7 +255,7 @@ has been moved out).
|
||||||
(or (and (not (skip-image-equality-fast-path)) ;; this is here to make testing more effective
|
(or (and (not (skip-image-equality-fast-path)) ;; this is here to make testing more effective
|
||||||
(equal? (get-normalized-shape) (send that get-normalized-shape)))
|
(equal? (get-normalized-shape) (send that get-normalized-shape)))
|
||||||
(let ([w (+ 1 (round (inexact->exact (bb-right bb))))] ;; some shapes (ie, rectangles) draw 1 outside the bounding box
|
(let ([w (+ 1 (round (inexact->exact (bb-right bb))))] ;; some shapes (ie, rectangles) draw 1 outside the bounding box
|
||||||
[h (+ 1 (round (inexact->exact (bb-bottom bb))))]) ;; so we make the bitmap slightly bigger to accomodate that.
|
[h (+ 1 (round (inexact->exact (bb-bottom bb))))]) ;; so we make the bitmap slightly bigger to accommodate that.
|
||||||
(or ;(zero? w)
|
(or ;(zero? w)
|
||||||
;(zero? h)
|
;(zero? h)
|
||||||
(let ([bm1 (make-bitmap w h #t)]
|
(let ([bm1 (make-bitmap w h #t)]
|
||||||
|
|
|
@ -50,7 +50,7 @@
|
||||||
(get-aligned-min-sizes type (find-first-snip)))))
|
(get-aligned-min-sizes type (find-first-snip)))))
|
||||||
|
|
||||||
;; set-algined-min-sizes (-> void?)
|
;; set-algined-min-sizes (-> void?)
|
||||||
;; set the aligned min width and height of the pasteboard based on it's children snips
|
;; set the aligned min width and height of the pasteboard based on its children snips
|
||||||
(inherit in-edit-sequence?)
|
(inherit in-edit-sequence?)
|
||||||
(define/public (aligned-min-sizes-invalid)
|
(define/public (aligned-min-sizes-invalid)
|
||||||
;; This in-edit-sequence? is not sound. It causes me to percollate invalidation
|
;; This in-edit-sequence? is not sound. It causes me to percollate invalidation
|
||||||
|
|
|
@ -27,7 +27,7 @@ instead of this scaling code, we use the dc<%>'s scaling code.
|
||||||
|
|
||||||
|
|
||||||
; bmbytes: a bytes which represents an image --
|
; bmbytes: a bytes which represents an image --
|
||||||
; it's size is a multiple of 4, and each
|
; its size is a multiple of 4, and each
|
||||||
; four consecutive bytes represent alpha,r,g,b.
|
; four consecutive bytes represent alpha,r,g,b.
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -128,7 +128,7 @@
|
||||||
[else (ormap (lambda (k) (and (assq k rests) #t)) ; suggested?
|
[else (ormap (lambda (k) (and (assq k rests) #t)) ; suggested?
|
||||||
(car (cddddr processed-spec)))])))
|
(car (cddddr processed-spec)))])))
|
||||||
(define (make-keyword-get-expr key rest default known-vars)
|
(define (make-keyword-get-expr key rest default known-vars)
|
||||||
;; expand (for id macros) and check if its a simple expression, because if
|
;; expand (for id macros) and check if it's a simple expression, because if
|
||||||
;; it is, evaluation cannot have side-effects and we can use keyword-get*
|
;; it is, evaluation cannot have side-effects and we can use keyword-get*
|
||||||
(define default*
|
(define default*
|
||||||
(local-expand default 'expression (cons #'#%app known-vars)))
|
(local-expand default 'expression (cons #'#%app known-vars)))
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
|
|
||||||
#|
|
#|
|
||||||
t accepts a function, f, and creates a thread. It returns the thread and a
|
t accepts a function, f, and creates a thread. It returns the thread and a
|
||||||
function, g. When g is applied it passes it's argument to f, and evaluates
|
function, g. When g is applied it passes its argument to f, and evaluates
|
||||||
the call of f in the time of the thread that was created. Calls to g do not
|
the call of f in the time of the thread that was created. Calls to g do not
|
||||||
block.
|
block.
|
||||||
|#
|
|#
|
||||||
|
|
|
@ -28,7 +28,7 @@ end use the mzc `c-lambda', etc. forms.
|
||||||
exceptions while evaluating a string. Demonstrates how to catch
|
exceptions while evaluating a string. Demonstrates how to catch
|
||||||
exceptions from C code.
|
exceptions from C code.
|
||||||
|
|
||||||
* bitmatrix.c - implements two-dimentional bit matrixes with some
|
* bitmatrix.c - implements two-dimensional bit matrixes with some
|
||||||
operations. Demonstrates defining a new Scheme data type, data
|
operations. Demonstrates defining a new Scheme data type, data
|
||||||
allocation, fancy integer type checking, general exception raising,
|
allocation, fancy integer type checking, general exception raising,
|
||||||
and registering static variables. Also demonstrates supplying
|
and registering static variables. Also demonstrates supplying
|
||||||
|
|
|
@ -185,7 +185,7 @@
|
||||||
(define-mzscheme scheme_end_atomic (-> _void))
|
(define-mzscheme scheme_end_atomic (-> _void))
|
||||||
(define-mzscheme scheme_make_custodian (_pointer -> _scheme))
|
(define-mzscheme scheme_make_custodian (_pointer -> _scheme))
|
||||||
|
|
||||||
;; Make this bigger than 4096 to accomodate at least
|
;; Make this bigger than 4096 to accommodate at least
|
||||||
;; 4096 of unencrypted data
|
;; 4096 of unencrypted data
|
||||||
(define BUFFER-SIZE 8000)
|
(define BUFFER-SIZE 8000)
|
||||||
|
|
||||||
|
|
|
@ -252,7 +252,7 @@
|
||||||
;; including a match at the current state
|
;; including a match at the current state
|
||||||
(longest-match-action
|
(longest-match-action
|
||||||
(vector-ref actions start-state))
|
(vector-ref actions start-state))
|
||||||
;; how many bytes preceed char
|
;; how many bytes precede char
|
||||||
(length-bytes 0)
|
(length-bytes 0)
|
||||||
;; how many characters have been read
|
;; how many characters have been read
|
||||||
;; including the one just read
|
;; including the one just read
|
||||||
|
|
|
@ -12,7 +12,7 @@
|
||||||
(define-struct prod (lhs rhs index prec action) (make-inspector))
|
(define-struct prod (lhs rhs index prec action) (make-inspector))
|
||||||
|
|
||||||
;; The dot-pos field is the index of the element in the rhs
|
;; The dot-pos field is the index of the element in the rhs
|
||||||
;; of prod that the dot immediately preceeds.
|
;; of prod that the dot immediately precedes.
|
||||||
;; Thus 0 <= dot-pos <= (vector-length rhs).
|
;; Thus 0 <= dot-pos <= (vector-length rhs).
|
||||||
(define-struct item (prod dot-pos) (make-inspector))
|
(define-struct item (prod dot-pos) (make-inspector))
|
||||||
|
|
||||||
|
|
|
@ -38,7 +38,7 @@
|
||||||
|
|
||||||
;; parse-package : string (string -> 'a) -> (values string nat min-spec)
|
;; parse-package : string (string -> 'a) -> (values string nat min-spec)
|
||||||
;; given a package specifier, returns the package name, the package major version, and a descriptor
|
;; given a package specifier, returns the package name, the package major version, and a descriptor
|
||||||
;; for the acceptible minor versions
|
;; for the acceptable minor versions
|
||||||
(define (parse-package package yell)
|
(define (parse-package package yell)
|
||||||
(try-parsing package
|
(try-parsing package
|
||||||
([pkgname (get-to-next-colon-or-end)]
|
([pkgname (get-to-next-colon-or-end)]
|
||||||
|
|
|
@ -15,24 +15,24 @@
|
||||||
|
|
||||||
; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result
|
; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result
|
||||||
(define (fit-int function guesses data)
|
(define (fit-int function guesses data)
|
||||||
(let* ((independant-vars (- (procedure-arity function) (length guesses)))
|
(let* ((independent-vars (- (procedure-arity function) (length guesses)))
|
||||||
(f-of-x-y (cond
|
(f-of-x-y (cond
|
||||||
[(= 1 independant-vars)
|
[(= 1 independent-vars)
|
||||||
(lambda (x y . rest)
|
(lambda (x y . rest)
|
||||||
(apply function x rest))]
|
(apply function x rest))]
|
||||||
[(= 2 independant-vars)
|
[(= 2 independent-vars)
|
||||||
function]
|
function]
|
||||||
[else
|
[else
|
||||||
(error "Function provided is eitehr not of one or two independant variables or the number of
|
(error "Function provided is either not of one or two independent variables or the number of
|
||||||
guesses given is incorrect")]))
|
guesses given is incorrect")]))
|
||||||
(x-vals (map vector-x data))
|
(x-vals (map vector-x data))
|
||||||
(y-vals (if (= 1 independant-vars)
|
(y-vals (if (= 1 independent-vars)
|
||||||
x-vals
|
x-vals
|
||||||
(map vector-y data)))
|
(map vector-y data)))
|
||||||
(z-vals (if (= 1 independant-vars)
|
(z-vals (if (= 1 independent-vars)
|
||||||
(map vector-y data)
|
(map vector-y data)
|
||||||
(map vector-z data)))
|
(map vector-z data)))
|
||||||
(err-vals (if (= 1 independant-vars)
|
(err-vals (if (= 1 independent-vars)
|
||||||
(map vector-z data)
|
(map vector-z data)
|
||||||
(map (lambda (vec) (vector-ref vec 4)) data)))
|
(map (lambda (vec) (vector-ref vec 4)) data)))
|
||||||
(result (fit-internal f-of-x-y x-vals y-vals z-vals err-vals (map cadr guesses))))
|
(result (fit-internal f-of-x-y x-vals y-vals z-vals err-vals (map cadr guesses))))
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
(require mzlib/list mzlib/etc mzlib/math)
|
(require mzlib/list mzlib/etc mzlib/math)
|
||||||
|
|
||||||
; using vectors for n-dimentional points
|
; using vectors for n-dimensional points
|
||||||
|
|
||||||
; vector-magnitude : (vectorof number) -> number
|
; vector-magnitude : (vectorof number) -> number
|
||||||
; computes the magnituded of the vector by using pythegorean theorem
|
; computes the magnituded of the vector by using pythegorean theorem
|
||||||
|
|
|
@ -36,7 +36,7 @@
|
||||||
|
|
||||||
;; make-2d-renderer : (2d-view% -> void)
|
;; make-2d-renderer : (2d-view% -> void)
|
||||||
;; provides a user with the ability to create their own renderers
|
;; provides a user with the ability to create their own renderers
|
||||||
;; without providing the implimentation
|
;; without providing the implementation
|
||||||
(define custom identity)
|
(define custom identity)
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -415,7 +415,7 @@
|
||||||
|
|
||||||
(define (lookup-shared! share n mod-map module-path-index-join)
|
(define (lookup-shared! share n mod-map module-path-index-join)
|
||||||
;; The shared list is not necessarily in order of
|
;; The shared list is not necessarily in order of
|
||||||
;; refereds before referees. A `not-ready' object
|
;; referreds before referees. A `not-ready' object
|
||||||
;; indicates a reference before a value is ready,
|
;; indicates a reference before a value is ready,
|
||||||
;; so we need to recur to make it ready. Cycles
|
;; so we need to recur to make it ready. Cycles
|
||||||
;; have been broken, though, so we don't run into
|
;; have been broken, though, so we don't run into
|
||||||
|
|
|
@ -2438,7 +2438,7 @@ The line, line-span, column, and column-span correspond to
|
||||||
the logical spacing for the redex program, not the actual
|
the logical spacing for the redex program, not the actual
|
||||||
spacing that will be used when they are rendered. The
|
spacing that will be used when they are rendered. The
|
||||||
logical spacing is only used when determining where to place
|
logical spacing is only used when determining where to place
|
||||||
typeset portions of the program. In the absense of any
|
typeset portions of the program. In the absence of any
|
||||||
rewriters, these numbers correspond to the line and column
|
rewriters, these numbers correspond to the line and column
|
||||||
numbers in the original program.
|
numbers in the original program.
|
||||||
|
|
||||||
|
|
|
@ -53,7 +53,7 @@
|
||||||
Any
|
Any
|
||||||
@scheme[canvas%]
|
@scheme[canvas%]
|
||||||
that matches this interface will automatically
|
that matches this interface will automatically
|
||||||
resize selected snips when it's size changes. Use
|
resize selected snips when its size changes. Use
|
||||||
@method[canvas:wide-snip<%> add-tall-snip]
|
@method[canvas:wide-snip<%> add-tall-snip]
|
||||||
and
|
and
|
||||||
@method[canvas:wide-snip<%> add-wide-snip]
|
@method[canvas:wide-snip<%> add-wide-snip]
|
||||||
|
|
|
@ -346,7 +346,7 @@
|
||||||
the filesystem.
|
the filesystem.
|
||||||
|
|
||||||
The class that this mixin produces uses the same initialization
|
The class that this mixin produces uses the same initialization
|
||||||
arguments as it's input.
|
arguments as its input.
|
||||||
@defmethod*[#:mode override (((set-filename (name string) (temp? boolean |#f|)) void))]{
|
@defmethod*[#:mode override (((set-filename (name string) (temp? boolean |#f|)) void))]{
|
||||||
|
|
||||||
Updates the filename on each frame displaying this editor, for each
|
Updates the filename on each frame displaying this editor, for each
|
||||||
|
|
|
@ -156,7 +156,7 @@
|
||||||
objects in the framework.
|
objects in the framework.
|
||||||
|
|
||||||
The class that this mixin produces uses the same initialization
|
The class that this mixin produces uses the same initialization
|
||||||
arguments as it's input.
|
arguments as its input.
|
||||||
@defmethod*[#:mode override (((on-paint (before? any/c) (dc (is-a?/c dc<%>)) (left real?) (top real?) (right real?) (bottom real?) (dx real?) (dy real?) (draw-caret (one-of/c (quote no-caret) (quote show-inactive-caret) (quote show-caret)))) void))]{
|
@defmethod*[#:mode override (((on-paint (before? any/c) (dc (is-a?/c dc<%>)) (left real?) (top real?) (right real?) (bottom real?) (dx real?) (dy real?) (draw-caret (one-of/c (quote no-caret) (quote show-inactive-caret) (quote show-caret)))) void))]{
|
||||||
|
|
||||||
Draws the rectangles installed by
|
Draws the rectangles installed by
|
||||||
|
|
|
@ -379,7 +379,7 @@ clearly written as follows:
|
||||||
|
|
||||||
The use of square brackets for @racket[cond] clauses is a
|
The use of square brackets for @racket[cond] clauses is a
|
||||||
convention. In Racket, parentheses and square brackets are actually
|
convention. In Racket, parentheses and square brackets are actually
|
||||||
interchangable, as long as @litchar{(} is matched with @litchar{)} and
|
interchangeable, as long as @litchar{(} is matched with @litchar{)} and
|
||||||
@litchar{[} is matched with @litchar{]}. Using square brackets in a
|
@litchar{[} is matched with @litchar{]}. Using square brackets in a
|
||||||
few key places makes Racket code even more readable.
|
few key places makes Racket code even more readable.
|
||||||
|
|
||||||
|
|
|
@ -256,7 +256,7 @@ currently supported keys are as follows:
|
||||||
@racket[#t] means that, to the degree that the generated
|
@racket[#t] means that, to the degree that the generated
|
||||||
executable must refer to another, it can use a relative path
|
executable must refer to another, it can use a relative path
|
||||||
(so the executables can be moved together, but not
|
(so the executables can be moved together, but not
|
||||||
seperately); a @racket[#f] value (the default) means that
|
separately); a @racket[#f] value (the default) means that
|
||||||
absolute paths should be used (so the generated executable can
|
absolute paths should be used (so the generated executable can
|
||||||
be moved).}
|
be moved).}
|
||||||
|
|
||||||
|
|
|
@ -1088,8 +1088,8 @@ on integers looks like this:
|
||||||
|
|
||||||
Although these projections have the right error behavior,
|
Although these projections have the right error behavior,
|
||||||
they are not quite ready for use as contracts, because they
|
they are not quite ready for use as contracts, because they
|
||||||
do not accomodate blame, and do not provide good error
|
do not accommodate blame, and do not provide good error
|
||||||
messages. In order to accomodate these, contracts do not
|
messages. In order to accommodate these, contracts do not
|
||||||
just use simple projections, but use functions that accept a
|
just use simple projections, but use functions that accept a
|
||||||
@deftech{blame object} encapsulating
|
@deftech{blame object} encapsulating
|
||||||
the names of two parties that are the candidates for blame,
|
the names of two parties that are the candidates for blame,
|
||||||
|
|
|
@ -173,7 +173,7 @@ The essential reduction rules are:
|
||||||
(lambda (_v) (reset0 _E[_v])))
|
(lambda (_v) (reset0 _E[_v])))
|
||||||
]
|
]
|
||||||
|
|
||||||
The @scheme[reset0] and @scheme[prompt0] forms are interchangable.
|
The @scheme[reset0] and @scheme[prompt0] forms are interchangeable.
|
||||||
Furthermore, the following reductions apply:
|
Furthermore, the following reductions apply:
|
||||||
|
|
||||||
@schemeblock[
|
@schemeblock[
|
||||||
|
|
|
@ -45,7 +45,7 @@ accepts only connections to @racket["127.0.0.1"] (the loopback
|
||||||
interface) from the local machine.
|
interface) from the local machine.
|
||||||
|
|
||||||
(Racket implements a listener with multiple sockets, if necessary, to
|
(Racket implements a listener with multiple sockets, if necessary, to
|
||||||
accomodate multiple addresses with different protocol families. Under
|
accommodate multiple addresses with different protocol families. Under
|
||||||
Linux, if @racket[hostname] maps to both IPv4 and IPv6 addresses, then
|
Linux, if @racket[hostname] maps to both IPv4 and IPv6 addresses, then
|
||||||
the behavior depends on whether IPv6 is supported and IPv6 sockets can
|
the behavior depends on whether IPv6 is supported and IPv6 sockets can
|
||||||
be configured to listen to only IPv6 connections: if IPv6 is not
|
be configured to listen to only IPv6 connections: if IPv6 is not
|
||||||
|
|
|
@ -322,7 +322,7 @@ the recursive reads.
|
||||||
If the reader finds two data between the matching parentheses
|
If the reader finds two data between the matching parentheses
|
||||||
that are separated by a delimited @litchar{.}, then it creates a
|
that are separated by a delimited @litchar{.}, then it creates a
|
||||||
pair. More generally, if it finds two or more data where the
|
pair. More generally, if it finds two or more data where the
|
||||||
last is preceeded by a delimited @litchar{.}, then it constructs
|
last is preceded by a delimited @litchar{.}, then it constructs
|
||||||
nested pairs: the next-to-last element is paired with the last, then
|
nested pairs: the next-to-last element is paired with the last, then
|
||||||
the third-to-last is paired with that pair, and so on.
|
the third-to-last is paired with that pair, and so on.
|
||||||
|
|
||||||
|
|
|
@ -60,9 +60,9 @@ submitted at the prompt.
|
||||||
@methimpl{
|
@methimpl{
|
||||||
|
|
||||||
The function @scheme[run-loop] is called. It is expected to loop, calling
|
The function @scheme[run-loop] is called. It is expected to loop, calling
|
||||||
it's argument with a thunk that corresponds to the user's
|
its argument with a thunk that corresponds to the user's
|
||||||
evaluation. It should call it's argument once for each expression the
|
evaluation. It should call its argument once for each expression the
|
||||||
user is evaluating. It should pass a thunk to it's argument that
|
user is evaluating. It should pass a thunk to its argument that
|
||||||
actually does the users's evaluation.
|
actually does the users's evaluation.
|
||||||
|
|
||||||
|
|
||||||
|
@ -297,7 +297,7 @@ This method resets the highlighting being displayed for this repl. See also:
|
||||||
void?]{
|
void?]{
|
||||||
@methspec{
|
@methspec{
|
||||||
|
|
||||||
This function runs it's arguments in the user evaluation thread. This
|
This function runs its arguments in the user evaluation thread. This
|
||||||
thread is the same as the user's eventspace main thread.
|
thread is the same as the user's eventspace main thread.
|
||||||
|
|
||||||
See also
|
See also
|
||||||
|
@ -369,7 +369,7 @@ interactions windows.}
|
||||||
@definterface[drracket:rep:context<%> ()]{
|
@definterface[drracket:rep:context<%> ()]{
|
||||||
|
|
||||||
Objects that match this interface provide all of the services that the
|
Objects that match this interface provide all of the services that the
|
||||||
@scheme[drracket:rep:text%] class needs to connect with it's context.
|
@scheme[drracket:rep:text%] class needs to connect with its context.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -472,7 +472,7 @@ is bound to an extender function. In order to change the
|
||||||
behavior of DrRacket, you can derive new classes from the
|
behavior of DrRacket, you can derive new classes from the
|
||||||
standard classes for the frame, texts, canvases. Each
|
standard classes for the frame, texts, canvases. Each
|
||||||
extender accepts a function as input. The function it
|
extender accepts a function as input. The function it
|
||||||
accepts must take a class as it's argument and return a
|
accepts must take a class as its argument and return a
|
||||||
classes derived from that class as its result. For example:
|
classes derived from that class as its result. For example:
|
||||||
|
|
||||||
@racketblock[
|
@racketblock[
|
||||||
|
|
|
@ -2010,7 +2010,7 @@
|
||||||
(sleep 10)
|
(sleep 10)
|
||||||
(loop)))))))
|
(loop)))))))
|
||||||
|
|
||||||
;; copied from framerok/private/frame.sss -- be sure to propogate fixes....
|
;; copied from framerok/private/frame.sss -- be sure to propagate fixes....
|
||||||
;; or establish single point of control.
|
;; or establish single point of control.
|
||||||
(define (format-number n)
|
(define (format-number n)
|
||||||
(if n
|
(if n
|
||||||
|
|
|
@ -16,7 +16,7 @@
|
||||||
; Given the arguments for the macro call to cut (or cute) as a syntax-list,
|
; Given the arguments for the macro call to cut (or cute) as a syntax-list,
|
||||||
; call build with four lists:
|
; call build with four lists:
|
||||||
; 1) a list of names given to each <>-slot
|
; 1) a list of names given to each <>-slot
|
||||||
; 2) [cut] a list of the macro arguments, except that all occurences
|
; 2) [cut] a list of the macro arguments, except that all occurrences
|
||||||
; of a <>-slots have been substituted with the chosen name.
|
; of a <>-slots have been substituted with the chosen name.
|
||||||
; 3) [cute] a list the names given to the exprs and the <>-slots
|
; 3) [cute] a list the names given to the exprs and the <>-slots
|
||||||
; 4) [cute] a list of lists of name-expression pairs, i.e. the bindings
|
; 4) [cute] a list of lists of name-expression pairs, i.e. the bindings
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
;;;
|
;;;
|
||||||
;;; <optional.ss> ---- Let-optionals macros
|
;;; <optional.ss> ---- Let-optionals macros
|
||||||
;;; Time-stamp: <02/07/15 09:25:27 solsona>
|
;;; Time-stamp: <2011-02-02 11:44:21 dvanhorn>
|
||||||
;;;
|
;;;
|
||||||
;;; Usually, I would add a copyright notice, and the announce that
|
;;; Usually, I would add a copyright notice, and the announce that
|
||||||
;;; this code is under the LGPL licence. This code is been copied
|
;;; this code is under the LGPL licence. This code is been copied
|
||||||
|
@ -39,7 +39,7 @@
|
||||||
;;
|
;;
|
||||||
;; Commentary:
|
;; Commentary:
|
||||||
;;
|
;;
|
||||||
;; this is a port of commonly refered (in SRFI mostly) macros, and
|
;; this is a port of commonly referred (in SRFI mostly) macros, and
|
||||||
;; utilities, to the PLT Scheme system. I'm not sure if I should use
|
;; utilities, to the PLT Scheme system. I'm not sure if I should use
|
||||||
;; the word "port", because I hardly touched Olin Shivers' superiour
|
;; the word "port", because I hardly touched Olin Shivers' superiour
|
||||||
;; macros. :-)
|
;; macros. :-)
|
||||||
|
|
|
@ -1561,7 +1561,7 @@
|
||||||
'sql-param-success-with-info
|
'sql-param-success-with-info
|
||||||
'sql-param-error
|
'sql-param-error
|
||||||
'sql-param-unused
|
'sql-param-unused
|
||||||
'sql-param-diag-unavilable
|
'sql-param-diag-unavailable
|
||||||
|
|
||||||
> (get-stmt-option hstmt option)
|
> (get-stmt-option hstmt option)
|
||||||
|
|
||||||
|
|
|
@ -262,7 +262,7 @@
|
||||||
(loop (cdr ctx-list) next-defs next-body))))))
|
(loop (cdr ctx-list) next-defs next-body))))))
|
||||||
|
|
||||||
; lift-helper takes a syntax object and a split path and a list of syntax objects and breaks it up
|
; lift-helper takes a syntax object and a split path and a list of syntax objects and breaks it up
|
||||||
; iff its a let/rec, wrapping those before the split and those after the split around the list of syntax
|
; iff it's a let/rec, wrapping those before the split and those after the split around the list of syntax
|
||||||
; objects
|
; objects
|
||||||
; (->* (syntax? (union false? (listof number?)) (listof syntax?)) ((listof syntax?) syntax?))
|
; (->* (syntax? (union false? (listof number?)) (listof syntax?)) ((listof syntax?) syntax?))
|
||||||
(define (lift-helper stx path so-far-defs)
|
(define (lift-helper stx path so-far-defs)
|
||||||
|
|
|
@ -38,7 +38,7 @@
|
||||||
;; records whose type field is a symbol that indicates which type of
|
;; records whose type field is a symbol that indicates which type of
|
||||||
;; (opening or closing) parenthesis begins the range being mapped.
|
;; (opening or closing) parenthesis begins the range being mapped.
|
||||||
;; The length field indicates how many characters the actual parenthesis
|
;; The length field indicates how many characters the actual parenthesis
|
||||||
;; is. In the special case that there is a region that is not preceeded
|
;; is. In the special case that there is a region that is not preceded
|
||||||
;; with a parenthesis (that is, the region before the first parenthesis in
|
;; with a parenthesis (that is, the region before the first parenthesis in
|
||||||
;; a buffer), the type will be #f, and the length will be 0.
|
;; a buffer), the type will be #f, and the length will be 0.
|
||||||
|
|
||||||
|
@ -122,7 +122,7 @@
|
||||||
;; If it indicates an error, the first two results give the
|
;; If it indicates an error, the first two results give the
|
||||||
;; starting and stoping positions for error highlighting.
|
;; starting and stoping positions for error highlighting.
|
||||||
;; If all three return #f, then there was no tree to search, or
|
;; If all three return #f, then there was no tree to search, or
|
||||||
;; the position did not immediately preceed an open.
|
;; the position did not immediately precede an open.
|
||||||
(define/public (match-forward pos)
|
(define/public (match-forward pos)
|
||||||
(send tree search! pos)
|
(send tree search! pos)
|
||||||
(cond
|
(cond
|
||||||
|
|
|
@ -362,7 +362,7 @@ _modcode.ss_: getting module compiled code
|
||||||
only a native-code non_loader version exists (i.e., `path' itself
|
only a native-code non_loader version exists (i.e., `path' itself
|
||||||
does not exist). A _loader extension is selected a last resort.
|
does not exist). A _loader extension is selected a last resort.
|
||||||
|
|
||||||
If an extension is prefered or is the only file that exists, it is
|
If an extension is preferred or is the only file that exists, it is
|
||||||
supplied to `ext-proc' when `ext-proc' is #f, or an exception is
|
supplied to `ext-proc' when `ext-proc' is #f, or an exception is
|
||||||
raised (to report that an extension file cannot be used) when
|
raised (to report that an extension file cannot be used) when
|
||||||
`ext-proc' is #f.
|
`ext-proc' is #f.
|
||||||
|
|
|
@ -58,7 +58,7 @@ are ignored, unless only a native-code non-@tt{_loader} version exists
|
||||||
(i.e., @scheme[path] itself does not exist). A @tt{_loader} extension
|
(i.e., @scheme[path] itself does not exist). A @tt{_loader} extension
|
||||||
is selected a last resort.
|
is selected a last resort.
|
||||||
|
|
||||||
If an extension is prefered or is the only file that exists, it is
|
If an extension is preferred or is the only file that exists, it is
|
||||||
supplied to @scheme[ext-proc] when @scheme[ext-proc] is @scheme[#f],
|
supplied to @scheme[ext-proc] when @scheme[ext-proc] is @scheme[#f],
|
||||||
or an exception is raised (to report that an extension file cannot be
|
or an exception is raised (to report that an extension file cannot be
|
||||||
used) when @scheme[ext-proc] is @scheme[#f].
|
used) when @scheme[ext-proc] is @scheme[#f].
|
||||||
|
|
|
@ -52,7 +52,7 @@ to what one would write using @scheme[syntax-rules] or perhaps
|
||||||
]
|
]
|
||||||
|
|
||||||
Note the use of @scheme[...] and @scheme[...+] in the pattern;
|
Note the use of @scheme[...] and @scheme[...+] in the pattern;
|
||||||
@scheme[...] means match zero or more repetitions of the preceeding
|
@scheme[...] means match zero or more repetitions of the preceding
|
||||||
pattern; @scheme[...+] means match one or more. Only @scheme[...] may
|
pattern; @scheme[...+] means match one or more. Only @scheme[...] may
|
||||||
be used in the template, however.
|
be used in the template, however.
|
||||||
|
|
||||||
|
|
|
@ -95,7 +95,7 @@ Existing images can be rotated, scaled, flipped, and overlaid on top of each oth
|
||||||
Adds a line to the image @racket[image], starting from the point (@racket[x1],@racket[y1])
|
Adds a line to the image @racket[image], starting from the point (@racket[x1],@racket[y1])
|
||||||
and going to the point (@racket[x2],@racket[y2]).
|
and going to the point (@racket[x2],@racket[y2]).
|
||||||
Unlike @racket[scene+line], if the line passes outside of @racket[image], the image
|
Unlike @racket[scene+line], if the line passes outside of @racket[image], the image
|
||||||
gets larger to accomodate the line.
|
gets larger to accommodate the line.
|
||||||
|
|
||||||
@image-examples[(add-line (ellipse 40 40 "outline" "maroon")
|
@image-examples[(add-line (ellipse 40 40 "outline" "maroon")
|
||||||
0 40 40 0 "maroon")
|
0 40 40 0 "maroon")
|
||||||
|
@ -126,7 +126,7 @@ long the curve tries to stay with that angle. Larger numbers
|
||||||
mean that the curve stays with the angle longer.
|
mean that the curve stays with the angle longer.
|
||||||
|
|
||||||
Unlike @racket[scene+curve], if the line passes outside of @racket[image], the image
|
Unlike @racket[scene+curve], if the line passes outside of @racket[image], the image
|
||||||
gets larger to accomodate the curve.
|
gets larger to accommodate the curve.
|
||||||
|
|
||||||
|
|
||||||
@image-examples[(add-curve (rectangle 100 100 "solid" "black")
|
@image-examples[(add-curve (rectangle 100 100 "solid" "black")
|
||||||
|
|
|
@ -570,7 +570,7 @@
|
||||||
|
|
||||||
;; run-one/sync : (-> A) -> A
|
;; run-one/sync : (-> A) -> A
|
||||||
;; runs the thunk `f' as a test action, and
|
;; runs the thunk `f' as a test action, and
|
||||||
;; waits for it to complete. Also propogates
|
;; waits for it to complete. Also propagates
|
||||||
;; exceptions.
|
;; exceptions.
|
||||||
(define (run-one/sync f)
|
(define (run-one/sync f)
|
||||||
(not-on-eventspace-handler-thread 'repl-in-edit-sequence?)
|
(not-on-eventspace-handler-thread 'repl-in-edit-sequence?)
|
||||||
|
|
|
@ -442,7 +442,7 @@ can be used anywhere a definition form may be used.}
|
||||||
the types @racket[t], and also provides all of the @racket[v]s.}
|
the types @racket[t], and also provides all of the @racket[v]s.}
|
||||||
|
|
||||||
@litchar{#{v : t}} This declares that the variable @racket[v] has type
|
@litchar{#{v : t}} This declares that the variable @racket[v] has type
|
||||||
@racket[t]. This is legal only for binding occurences of @racket[_v].
|
@racket[t]. This is legal only for binding occurrences of @racket[_v].
|
||||||
|
|
||||||
@defform[(ann e t)]{Ensure that @racket[e] has type @racket[t], or
|
@defform[(ann e t)]{Ensure that @racket[e] has type @racket[t], or
|
||||||
some subtype. The entire expression has type @racket[t].
|
some subtype. The entire expression has type @racket[t].
|
||||||
|
|
|
@ -657,7 +657,7 @@
|
||||||
(match-let* ([(list last tys-r ...) (reverse (map tc-expr/t (syntax->list #'args)))]
|
(match-let* ([(list last tys-r ...) (reverse (map tc-expr/t (syntax->list #'args)))]
|
||||||
[tys (reverse tys-r)])
|
[tys (reverse tys-r)])
|
||||||
(ret (foldr make-Pair last tys)))]
|
(ret (foldr make-Pair last tys)))]
|
||||||
;; special case for `reverse' to propogate expected type info
|
;; special case for `reverse' to propagate expected type info
|
||||||
[(#%plain-app reverse arg)
|
[(#%plain-app reverse arg)
|
||||||
(match expected
|
(match expected
|
||||||
[(tc-result1: (Listof: _))
|
[(tc-result1: (Listof: _))
|
||||||
|
|
|
@ -159,7 +159,7 @@ Shades @scheme[pict] to show with @scheme[ratio] of its normal opacity; if
|
||||||
These pict control flow operators decide which pict of several to use. All
|
These pict control flow operators decide which pict of several to use. All
|
||||||
branches are evaluated; the resulting pict is a combination of the pict chosen
|
branches are evaluated; the resulting pict is a combination of the pict chosen
|
||||||
by normal conditional flow with @scheme[ghost] applied to all the other picts.
|
by normal conditional flow with @scheme[ghost] applied to all the other picts.
|
||||||
The result is a picture large enough to accomodate each alternative, but showing
|
The result is a picture large enough to accommodate each alternative, but showing
|
||||||
only the chosen one. This is useful for staged slides, as the pict chosen may
|
only the chosen one. This is useful for staged slides, as the pict chosen may
|
||||||
change with each slide but its size and position will not.
|
change with each slide but its size and position will not.
|
||||||
|
|
||||||
|
|
|
@ -740,7 +740,7 @@
|
||||||
[copy-conf
|
[copy-conf
|
||||||
(lambda (from to)
|
(lambda (from to)
|
||||||
(let ([to-path (build-path-unless-absolute conf to)])
|
(let ([to-path (build-path-unless-absolute conf to)])
|
||||||
; more here - check existance of from path
|
; more here - check existence of from path
|
||||||
(copy-file* (build-path from-conf from) to-path)))])
|
(copy-file* (build-path from-conf from) to-path)))])
|
||||||
(copy-conf "passwords-refresh.html" (messages-passwords-refreshed messages))
|
(copy-conf "passwords-refresh.html" (messages-passwords-refreshed messages))
|
||||||
(copy-conf "servlet-refresh.html" (messages-servlets-refreshed messages))
|
(copy-conf "servlet-refresh.html" (messages-servlets-refreshed messages))
|
||||||
|
|
|
@ -9,7 +9,7 @@
|
||||||
@defmodule[web-server/servlet/servlet-structs]{
|
@defmodule[web-server/servlet/servlet-structs]{
|
||||||
|
|
||||||
Servlets communicate to the Web Server by returning HTTP responses. In order to
|
Servlets communicate to the Web Server by returning HTTP responses. In order to
|
||||||
accomodate lightweight programs (and backwards compatibility), the Web Server
|
accommodate lightweight programs (and backwards compatibility), the Web Server
|
||||||
provides an indirection from application-specific response formats and the internal
|
provides an indirection from application-specific response formats and the internal
|
||||||
HTTP response format, @racket[response].
|
HTTP response format, @racket[response].
|
||||||
|
|
||||||
|
|
|
@ -97,7 +97,7 @@ functions of interest for the servlet developer.
|
||||||
"+")))))))))
|
"+")))))))))
|
||||||
]
|
]
|
||||||
Notice that in this example the result of the handlers are returned to the continuation of @racket[send/suspend/dispatch].
|
Notice that in this example the result of the handlers are returned to the continuation of @racket[send/suspend/dispatch].
|
||||||
However, it is very common that the return value of @racket[send/suspend/dispatch] is irrevelant in
|
However, it is very common that the return value of @racket[send/suspend/dispatch] is irrelevant in
|
||||||
your application and you may think of it as ``embedding'' value-less callbacks. Here is the same example in this style:
|
your application and you may think of it as ``embedding'' value-less callbacks. Here is the same example in this style:
|
||||||
@racketblock[
|
@racketblock[
|
||||||
(define (count-dot-com i)
|
(define (count-dot-com i)
|
||||||
|
|
|
@ -873,7 +873,7 @@ GENERAL
|
||||||
now it shows `('a 'a).
|
now it shows `('a 'a).
|
||||||
|
|
||||||
- The portion of space between the definitions and
|
- The portion of space between the definitions and
|
||||||
interactions window is now interactively changable.
|
interactions window is now interactively changeable.
|
||||||
|
|
||||||
- the bug report form now connects to bugs.drscheme.org
|
- the bug report form now connects to bugs.drscheme.org
|
||||||
instead of cs.rice.edu directly, so earthlink users
|
instead of cs.rice.edu directly, so earthlink users
|
||||||
|
@ -962,7 +962,7 @@ General
|
||||||
- files added to projects are now stored as relative files,
|
- files added to projects are now stored as relative files,
|
||||||
by default. (use project menu to change the default)
|
by default. (use project menu to change the default)
|
||||||
|
|
||||||
- project files are saved using a platform-independant syntax for
|
- project files are saved using a platform-independent syntax for
|
||||||
paths now.
|
paths now.
|
||||||
|
|
||||||
- Using file|open and choosing a project file (based on contents) will open
|
- Using file|open and choosing a project file (based on contents) will open
|
||||||
|
|
|
@ -1285,7 +1285,7 @@ System:
|
||||||
|
|
||||||
Changed force-redraw to ignore refresh requests when the
|
Changed force-redraw to ignore refresh requests when the
|
||||||
redraw-requesting window is not shown. Redraw requests are now
|
redraw-requesting window is not shown. Redraw requests are now
|
||||||
propogated to the top-level frame or dialog via child-redraw-request.
|
propagated to the top-level frame or dialog via child-redraw-request.
|
||||||
- if your application is unititized, then you need to change the
|
- if your application is unititized, then you need to change the
|
||||||
startup procedure. See the application startup section in the
|
startup procedure. See the application startup section in the
|
||||||
toolbox manual.
|
toolbox manual.
|
||||||
|
@ -1655,7 +1655,7 @@ Bug fixes, especially Motif and memory bugs
|
||||||
Rewrote editor line-maintenance
|
Rewrote editor line-maintenance
|
||||||
Faster caret updating
|
Faster caret updating
|
||||||
Upgraded garbage collector
|
Upgraded garbage collector
|
||||||
File format changed to accomodate nested buffers with
|
File format changed to accommodate nested buffers with
|
||||||
separate style lists
|
separate style lists
|
||||||
Standard system standardized
|
Standard system standardized
|
||||||
Code changes for compiling on MSWindows (almost works...)
|
Code changes for compiling on MSWindows (almost works...)
|
||||||
|
|
|
@ -1314,7 +1314,7 @@ Refined error messages
|
||||||
Version 49, May 31, 1997
|
Version 49, May 31, 1997
|
||||||
Multiple superclass inheritance is no longer supported
|
Multiple superclass inheritance is no longer supported
|
||||||
Added (Java-ish) interfaces to object system
|
Added (Java-ish) interfaces to object system
|
||||||
class* syntax changed to accomodate interfaces and removed
|
class* syntax changed to accommodate interfaces and removed
|
||||||
multiple superclasses
|
multiple superclasses
|
||||||
uq-ivar always takes two arguments; class is not a legal argument
|
uq-ivar always takes two arguments; class is not a legal argument
|
||||||
uq-make-generic accepts a class or an interface
|
uq-make-generic accepts a class or an interface
|
||||||
|
|
|
@ -187,7 +187,7 @@ must be quoted just like heterogeneous vectors must be. Homogeneous
|
||||||
vectors can appear in quasiquotations but must not contain
|
vectors can appear in quasiquotations but must not contain
|
||||||
<code>unquote</code> or <code>unquote-splicing</code> forms
|
<code>unquote</code> or <code>unquote-splicing</code> forms
|
||||||
(i.e. <code>`(,x #u8(1 2))</code> is legal but <code>`#u8(1 ,x
|
(i.e. <code>`(,x #u8(1 2))</code> is legal but <code>`#u8(1 ,x
|
||||||
2)</code> is not). This restriction is to accomodate the many Scheme
|
2)</code> is not). This restriction is to accommodate the many Scheme
|
||||||
systems that use the <code>read</code> procedure to parse programs.
|
systems that use the <code>read</code> procedure to parse programs.
|
||||||
|
|
||||||
<p></p>
|
<p></p>
|
||||||
|
|
|
@ -259,7 +259,7 @@ and even streams. We expect the two constructors <code>nil</code> and
|
||||||
<code>nil</code> and <code>cons</code> return a strict list, but the
|
<code>nil</code> and <code>cons</code> return a strict list, but the
|
||||||
even <code>nil</code> and <code>cons</code> return promises.
|
even <code>nil</code> and <code>cons</code> return promises.
|
||||||
<code>Nil?</code>, <code>car</code> and <code>cdr</code> change to
|
<code>Nil?</code>, <code>car</code> and <code>cdr</code> change to
|
||||||
accomodate the underlying representation differences.
|
accommodate the underlying representation differences.
|
||||||
<code>Cutoff</code> is identical in the two versions, because it
|
<code>Cutoff</code> is identical in the two versions, because it
|
||||||
doesn't return a stream.
|
doesn't return a stream.
|
||||||
</p>
|
</p>
|
||||||
|
|
|
@ -377,7 +377,7 @@ procedures, as explained in Section <a href="#node_sec_5">5</a>.
|
||||||
Also note the implicit use of <tt>refine-compare</tt> in
|
Also note the implicit use of <tt>refine-compare</tt> in
|
||||||
the <tt>bowl?</tt>-case.</p>
|
the <tt>bowl?</tt>-case.</p>
|
||||||
<p>
|
<p>
|
||||||
The preceeding example illustrates the main functionality of this SRFI.
|
The preceding example illustrates the main functionality of this SRFI.
|
||||||
For other examples, refer to Section <a href="#node_sec_4.4">4.4</a>,
|
For other examples, refer to Section <a href="#node_sec_4.4">4.4</a>,
|
||||||
and to the file <tt>examples.scm</tt> included in the reference
|
and to the file <tt>examples.scm</tt> included in the reference
|
||||||
implementation.</p>
|
implementation.</p>
|
||||||
|
|
|
@ -51,7 +51,7 @@ environment variables.
|
||||||
<p>Most operating systems provide a mechanism for passing auxiliary
|
<p>Most operating systems provide a mechanism for passing auxiliary
|
||||||
parameters implicitly to child processes. Usually, this mechanism is
|
parameters implicitly to child processes. Usually, this mechanism is
|
||||||
called "the environment", and is conceptually a map from string names
|
called "the environment", and is conceptually a map from string names
|
||||||
to string values. The string names are called enviornment
|
to string values. The string names are called environment
|
||||||
variables.</p>
|
variables.</p>
|
||||||
|
|
||||||
<p>Some applications rely on environment variables to modify their
|
<p>Some applications rely on environment variables to modify their
|
||||||
|
|
|
@ -5088,7 +5088,7 @@ History:
|
||||||
Wolfram Gloger (Gloger@lrz.uni-muenchen.de).
|
Wolfram Gloger (Gloger@lrz.uni-muenchen.de).
|
||||||
* Use last_remainder in more cases.
|
* Use last_remainder in more cases.
|
||||||
* Pack bins using idea from colin@nyx10.cs.du.edu
|
* Pack bins using idea from colin@nyx10.cs.du.edu
|
||||||
* Use ordered bins instead of best-fit threshhold
|
* Use ordered bins instead of best-fit threshold
|
||||||
* Eliminate block-local decls to simplify tracing and debugging.
|
* Eliminate block-local decls to simplify tracing and debugging.
|
||||||
* Support another case of realloc via move into top
|
* Support another case of realloc via move into top
|
||||||
* Fix error occuring when initial sbrk_base not word-aligned.
|
* Fix error occuring when initial sbrk_base not word-aligned.
|
||||||
|
|
|
@ -366,7 +366,7 @@ ffi_prep_cif_machdep (ffi_cif *cif)
|
||||||
|
|
||||||
/* Go over all arguments and determine the way they should be passed.
|
/* Go over all arguments and determine the way they should be passed.
|
||||||
If it's in a register and there is space for it, let that be so. If
|
If it's in a register and there is space for it, let that be so. If
|
||||||
not, add it's size to the stack byte count. */
|
not, add its size to the stack byte count. */
|
||||||
for (bytes = 0, i = 0, avn = cif->nargs; i < avn; i++)
|
for (bytes = 0, i = 0, avn = cif->nargs; i < avn; i++)
|
||||||
{
|
{
|
||||||
if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0
|
if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
% Load plain if necessary, i.e., if running under initex.
|
% Load plain if necessary, i.e., if running under initex.
|
||||||
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
|
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
|
||||||
%
|
%
|
||||||
\def\texinfoversion{2005-07-05.19}
|
\def\texinfoversion{2011-02-02.11}
|
||||||
%
|
%
|
||||||
% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
|
% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
|
||||||
% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software
|
% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software
|
||||||
|
@ -415,7 +415,7 @@
|
||||||
\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}
|
\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}
|
||||||
\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}
|
\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}
|
||||||
|
|
||||||
% Each occurence of `\^^M' or `<space>\^^M' is replaced by a single space.
|
% Each occurrence of `\^^M' or `<space>\^^M' is replaced by a single space.
|
||||||
%
|
%
|
||||||
% \argremovec might leave us with trailing space, e.g.,
|
% \argremovec might leave us with trailing space, e.g.,
|
||||||
% @end itemize @c foo
|
% @end itemize @c foo
|
||||||
|
@ -498,7 +498,7 @@
|
||||||
% used to check whether the current environment is the one expected.
|
% used to check whether the current environment is the one expected.
|
||||||
%
|
%
|
||||||
% Non-false conditionals (@iftex, @ifset) don't fit into this, so they
|
% Non-false conditionals (@iftex, @ifset) don't fit into this, so they
|
||||||
% are not treated as enviroments; they don't open a group. (The
|
% are not treated as environments; they don't open a group. (The
|
||||||
% implementation of @end takes care not to call \endgroup in this
|
% implementation of @end takes care not to call \endgroup in this
|
||||||
% special case.)
|
% special case.)
|
||||||
|
|
||||||
|
|
|
@ -47,7 +47,7 @@
|
||||||
*
|
*
|
||||||
* plot continental outline in world coordinates
|
* plot continental outline in world coordinates
|
||||||
*
|
*
|
||||||
* v1.4: machine independant version
|
* v1.4: machine independent version
|
||||||
* v1.3: replaced plcontinent by plmap, added plmeridians
|
* v1.3: replaced plcontinent by plmap, added plmeridians
|
||||||
* v1.2: 2 arguments: mapform, type of plot
|
* v1.2: 2 arguments: mapform, type of plot
|
||||||
*
|
*
|
||||||
|
|
|
@ -387,7 +387,7 @@ typedef struct {
|
||||||
* change the object names, but then everybody who wants to use the
|
* change the object names, but then everybody who wants to use the
|
||||||
* package must throw these same switches, leading to no end of trouble.
|
* package must throw these same switches, leading to no end of trouble.
|
||||||
*
|
*
|
||||||
* Note that this definition should not cause any noticable effects except
|
* Note that this definition should not cause any noticeable effects except
|
||||||
* when debugging PLplot calls, in which case you will need to remember
|
* when debugging PLplot calls, in which case you will need to remember
|
||||||
* the real function names (same as before but with a 'c_' prepended).
|
* the real function names (same as before but with a 'c_' prepended).
|
||||||
*
|
*
|
||||||
|
|
|
@ -627,12 +627,12 @@ plP_gprec(PLINT *p_setp, PLINT *p_prec);
|
||||||
PLFLT
|
PLFLT
|
||||||
plstrl(const char *string);
|
plstrl(const char *string);
|
||||||
|
|
||||||
/* Similar to strpos, but searches for occurence of string str2. */
|
/* Similar to strpos, but searches for occurrence of string str2. */
|
||||||
|
|
||||||
PLINT
|
PLINT
|
||||||
plP_stindex(const char *str1, const char *str2);
|
plP_stindex(const char *str1, const char *str2);
|
||||||
|
|
||||||
/* Searches string str for first occurence of character chr. */
|
/* Searches string str for first occurrence of character chr. */
|
||||||
|
|
||||||
PLINT
|
PLINT
|
||||||
plP_strpos(char *str, int chr);
|
plP_strpos(char *str, int chr);
|
||||||
|
|
|
@ -347,8 +347,8 @@ plfshade(PLFLT (*f2eval) (PLINT, PLINT, PLPointer),
|
||||||
* parameters:
|
* parameters:
|
||||||
*
|
*
|
||||||
* f2eval, f2eval_data: data to plot
|
* f2eval, f2eval_data: data to plot
|
||||||
* c2eval, c2eval_data: defined mask (not implimented)
|
* c2eval, c2eval_data: defined mask (not implemented)
|
||||||
* defined: defined mask (old API - implimented)
|
* defined: defined mask (old API - implemented)
|
||||||
* missing_min, missing_max: yet another way to set data to undefined
|
* missing_min, missing_max: yet another way to set data to undefined
|
||||||
* nx, ny: array dimensions
|
* nx, ny: array dimensions
|
||||||
* xmin, xmax, ymin, ymax: grid coordinates
|
* xmin, xmax, ymin, ymax: grid coordinates
|
||||||
|
|
|
@ -917,7 +917,7 @@ pldeco(short int **symbol, PLINT *length, const char *text)
|
||||||
/*--------------------------------------------------------------------------*\
|
/*--------------------------------------------------------------------------*\
|
||||||
* PLINT plP_strpos()
|
* PLINT plP_strpos()
|
||||||
*
|
*
|
||||||
* Searches string str for first occurence of character chr. If found
|
* Searches string str for first occurrence of character chr. If found
|
||||||
* the position of the character in the string is returned (the first
|
* the position of the character in the string is returned (the first
|
||||||
* character has position 0). If the character is not found a -1 is
|
* character has position 0). If the character is not found a -1 is
|
||||||
* returned.
|
* returned.
|
||||||
|
@ -937,7 +937,7 @@ plP_strpos(char *str, int chr)
|
||||||
/*--------------------------------------------------------------------------*\
|
/*--------------------------------------------------------------------------*\
|
||||||
* PLINT plP_stindex()
|
* PLINT plP_stindex()
|
||||||
*
|
*
|
||||||
* Similar to strpos, but searches for occurence of string str2.
|
* Similar to strpos, but searches for occurrence of string str2.
|
||||||
\*--------------------------------------------------------------------------*/
|
\*--------------------------------------------------------------------------*/
|
||||||
|
|
||||||
PLINT
|
PLINT
|
||||||
|
|
|
@ -84,7 +84,7 @@ CFLAGS= -gstabs+ -O2 -I$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DALL_INTERIOR_P
|
||||||
# -DJAVA_FINALIZATION makes it somewhat safer to finalize objects out of
|
# -DJAVA_FINALIZATION makes it somewhat safer to finalize objects out of
|
||||||
# order by specifying a nonstandard finalization mark procedure (see
|
# order by specifying a nonstandard finalization mark procedure (see
|
||||||
# finalize.c). Objects reachable from finalizable objects will be marked
|
# finalize.c). Objects reachable from finalizable objects will be marked
|
||||||
# in a sepearte postpass, and hence their memory won't be reclaimed.
|
# in a separate postpass, and hence their memory won't be reclaimed.
|
||||||
# Not recommended unless you are implementing a language that specifies
|
# Not recommended unless you are implementing a language that specifies
|
||||||
# these semantics. Since 5.0, determines only only the initial value
|
# these semantics. Since 5.0, determines only only the initial value
|
||||||
# of GC_java_finalization variable.
|
# of GC_java_finalization variable.
|
||||||
|
|
|
@ -1554,7 +1554,7 @@ Since 6.1alpha3:
|
||||||
- Force 64 bit alignment with GCJ support. (Reflects Bryce McKinley's
|
- Force 64 bit alignment with GCJ support. (Reflects Bryce McKinley's
|
||||||
patch to the gcc tree.)
|
patch to the gcc tree.)
|
||||||
- Refined the choice of sa_handler vs. sa_sigaction in GC_dirty_init
|
- Refined the choice of sa_handler vs. sa_sigaction in GC_dirty_init
|
||||||
to accomodate some glibc5 systems. (Thanks to Dan Fandrich for the
|
to accommodate some glibc5 systems. (Thanks to Dan Fandrich for the
|
||||||
patch.)
|
patch.)
|
||||||
- Compensated for the fact that current versions of glibc set
|
- Compensated for the fact that current versions of glibc set
|
||||||
__libc_stack_end incorrectly on Linux/IA64 while initialization code
|
__libc_stack_end incorrectly on Linux/IA64 while initialization code
|
||||||
|
|
|
@ -1194,7 +1194,7 @@ void GC_register_dynamic_libraries()
|
||||||
PCR_IL_LoadedFile * p = PCR_IL_GetLastLoadedFile();
|
PCR_IL_LoadedFile * p = PCR_IL_GetLastLoadedFile();
|
||||||
PCR_IL_LoadedSegment * q;
|
PCR_IL_LoadedSegment * q;
|
||||||
|
|
||||||
/* Skip uncommited files */
|
/* Skip uncommitted files */
|
||||||
while (p != NIL && !(p -> lf_commitPoint)) {
|
while (p != NIL && !(p -> lf_commitPoint)) {
|
||||||
/* The loading of this file has not yet been committed */
|
/* The loading of this file has not yet been committed */
|
||||||
/* Hence its description could be inconsistent. */
|
/* Hence its description could be inconsistent. */
|
||||||
|
|
|
@ -1249,7 +1249,7 @@ int GC_pthread_join(pthread_t pthread_id, void **retval) {
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Cygwin-pthreads calls CreateThread internally, but it's not
|
/* Cygwin-pthreads calls CreateThread internally, but it's not
|
||||||
* easily interceptible by us..
|
* easily interceptable by us..
|
||||||
* so intercept pthread_create instead
|
* so intercept pthread_create instead
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
|
|
|
@ -389,7 +389,7 @@ typedef intptr_t (*Scheme_Secondary_Hash_Proc)(Scheme_Object *obj, void *cycle_d
|
||||||
|
|
||||||
#define SCHEME_PATHP(obj) SAME_TYPE(SCHEME_TYPE(obj), SCHEME_PLATFORM_PATH_KIND)
|
#define SCHEME_PATHP(obj) SAME_TYPE(SCHEME_TYPE(obj), SCHEME_PLATFORM_PATH_KIND)
|
||||||
#define SCHEME_GENERAL_PATHP(obj) ((SCHEME_TYPE(obj) >= scheme_unix_path_type) && (SCHEME_TYPE(obj) <= scheme_windows_path_type))
|
#define SCHEME_GENERAL_PATHP(obj) ((SCHEME_TYPE(obj) >= scheme_unix_path_type) && (SCHEME_TYPE(obj) <= scheme_windows_path_type))
|
||||||
/* A path is guranteed to have the same shape as a byte string */
|
/* A path is guaranteed to have the same shape as a byte string */
|
||||||
|
|
||||||
#define SCHEME_PATH_STRINGP(x) (SCHEME_CHAR_STRINGP(x) || SCHEME_PATHP(x))
|
#define SCHEME_PATH_STRINGP(x) (SCHEME_CHAR_STRINGP(x) || SCHEME_PATHP(x))
|
||||||
#define SCHEME_PATH_STRING_STR "path or string"
|
#define SCHEME_PATH_STRING_STR "path or string"
|
||||||
|
|
|
@ -315,7 +315,7 @@
|
||||||
malloc() to avoid waste when obtaining the proper alignment. */
|
malloc() to avoid waste when obtaining the proper alignment. */
|
||||||
#define SECTOR_SEGMENT_GROUP_SIZE 32
|
#define SECTOR_SEGMENT_GROUP_SIZE 32
|
||||||
|
|
||||||
/* Number of bits used in 32-bit level table for checking existance of
|
/* Number of bits used in 32-bit level table for checking existence of
|
||||||
a sector. Creates a table of (1 << SECTOR_LOOKUP_SHIFT) pointers
|
a sector. Creates a table of (1 << SECTOR_LOOKUP_SHIFT) pointers
|
||||||
to individual page tables of size SECTOR_LOOKUP_PAGESIZE. */
|
to individual page tables of size SECTOR_LOOKUP_PAGESIZE. */
|
||||||
#define SECTOR_LOOKUP_PAGESETBITS 12
|
#define SECTOR_LOOKUP_PAGESETBITS 12
|
||||||
|
|
|
@ -153,7 +153,7 @@ static const char * safegetenv(const char * s)
|
||||||
* trying to locate a module. We first look at the values of LD_LIBRARY_PATH
|
* trying to locate a module. We first look at the values of LD_LIBRARY_PATH
|
||||||
* and DYLD_LIBRARY_PATH, and then finally fall back to looking into
|
* and DYLD_LIBRARY_PATH, and then finally fall back to looking into
|
||||||
* /usr/lib and /lib. Since both of the environments variables can contain a
|
* /usr/lib and /lib. Since both of the environments variables can contain a
|
||||||
* list of colon seperated paths, we simply concat them and the two other paths
|
* list of colon separated paths, we simply concat them and the two other paths
|
||||||
* into one big string, which we then can easily parse.
|
* into one big string, which we then can easily parse.
|
||||||
* Splitting this string into the actual path list is done by getSearchPath()
|
* Splitting this string into the actual path list is done by getSearchPath()
|
||||||
*/
|
*/
|
||||||
|
|
|
@ -920,7 +920,7 @@ static void *top4;
|
||||||
that multiple adjustments to the register can be collapsed; this
|
that multiple adjustments to the register can be collapsed; this
|
||||||
mostly improves code size, rather than speed. Functions that cause
|
mostly improves code size, rather than speed. Functions that cause
|
||||||
the register to be de-sync'd are marked as such. Functions that can
|
the register to be de-sync'd are marked as such. Functions that can
|
||||||
accomodate a de-sync'd register on entry are marked as such. All
|
accommodate a de-sync'd register on entry are marked as such. All
|
||||||
other fuctions can assume a sync'd regsiter and ensure a sync'd
|
other fuctions can assume a sync'd regsiter and ensure a sync'd
|
||||||
register. Note that branches and calls normally require a sync'd
|
register. Note that branches and calls normally require a sync'd
|
||||||
register. */
|
register. */
|
||||||
|
@ -5289,7 +5289,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
|
||||||
If rand is NULL, then we're generating part of the fast path for an
|
If rand is NULL, then we're generating part of the fast path for an
|
||||||
nary arithmatic over a binary operator; the first argument is
|
nary arithmatic over a binary operator; the first argument is
|
||||||
already in R0 (fixnum or min/max) or a floating-point register
|
already in R0 (fixnum or min/max) or a floating-point register
|
||||||
(flonum) and the second arguement is in R1 (fixnum or min/max) or a
|
(flonum) and the second argument is in R1 (fixnum or min/max) or a
|
||||||
floating-point register (flonum).
|
floating-point register (flonum).
|
||||||
For unsafe_fx or unsafe_fl, -1 means safe but specific to the type.
|
For unsafe_fx or unsafe_fl, -1 means safe but specific to the type.
|
||||||
*/
|
*/
|
||||||
|
|
|
@ -1829,7 +1829,7 @@ static intptr_t pipe_write_bytes(Scheme_Output_Port *p,
|
||||||
avail = pipe->bufstart - pipe->bufend - 1;
|
avail = pipe->bufstart - pipe->bufend - 1;
|
||||||
}
|
}
|
||||||
if (pipe->bufmax) {
|
if (pipe->bufmax) {
|
||||||
/* Again, it's possible that the port grew to accomodate
|
/* Again, it's possible that the port grew to accommodate
|
||||||
past peeks... */
|
past peeks... */
|
||||||
intptr_t extra;
|
intptr_t extra;
|
||||||
extra = pipe->buflen - (pipe->bufmax + pipe->bufmaxextra);
|
extra = pipe->buflen - (pipe->bufmax + pipe->bufmaxextra);
|
||||||
|
|
|
@ -2075,7 +2075,7 @@ regunicode(int negate)
|
||||||
regparse += len + 1;
|
regparse += len + 1;
|
||||||
|
|
||||||
ret = regnode(UNIPROP);
|
ret = regnode(UNIPROP);
|
||||||
/* This encoding accomodates up to 63 categories: */
|
/* This encoding accommodates up to 63 categories: */
|
||||||
regarg((negate << 13) | (bottom << 6) | top);
|
regarg((negate << 13) | (bottom << 6) | top);
|
||||||
|
|
||||||
return ret;
|
return ret;
|
||||||
|
|
|
@ -22,7 +22,7 @@
|
||||||
/* This file implements Racket threads.
|
/* This file implements Racket threads.
|
||||||
|
|
||||||
Usually, Racket threads are implemented by copying the stack.
|
Usually, Racket threads are implemented by copying the stack.
|
||||||
The scheme_thread_block() function is called occassionally by the
|
The scheme_thread_block() function is called occasionally by the
|
||||||
evaluator so that the current thread can be swapped out.
|
evaluator so that the current thread can be swapped out.
|
||||||
do_swap_thread() performs the actual swap. Threads can also be
|
do_swap_thread() performs the actual swap. Threads can also be
|
||||||
implemented by the OS; the bottom part of this file contains
|
implemented by the OS; the bottom part of this file contains
|
||||||
|
|
Loading…
Reference in New Issue
Block a user