suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: d034b3a72827725928870e1abb4f3cb88e46d9e9
This commit is contained in:
Matthew Flatt 2004-05-12 00:49:40 +00:00
parent c08f5fadb9
commit 60b9849aa3
1 changed files with 45 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/framework/private/color.ss
View File

@ -169,12 +169,11 @@
;; breaks disabled re-tokenize should be called when lock is not
;; held. When it exits, the lock will be held.
(define/private (re-tokenize in in-start-pos)
(let-values (((lexeme type data new-token-start new-token-end) (get-token in)))
;; breaks must be disabled before the semaphore wait so we can't be
;; broken out of the critical section
(break-enabled #f)
;; If a break occurs while we are suspended, the break will occur
;; and the critical section will not be entered
(let-values ([(lexeme type data new-token-start new-token-end)
;; Allow breaks while getting tokens
(parameterize-break #t
(get-token in))])
;; Also allow breaks while trying to enter the critical region:
(semaphore-wait/enable-break mutex-lock)
(unless (eq? 'eof type)
(let ((len (- new-token-end new-token-start)))
@ -202,7 +201,6 @@
(set! invalid-tokens-start +inf.0))
(else
(semaphore-post mutex-lock)
(break-enabled #t)
(re-tokenize in in-start-pos)))))))
(define/private (do-insert/delete edit-start-pos change-length)
@ -274,22 +272,15 @@
(let/ec restart
(parameterize ((current-exception-handler
(lambda (exn)
;; Lock is not held here because breaks are disabled
;; whenever lock is held
(break-enabled #f)
(restart))))
(break-enabled #t)
(with-handlers ((exn:fail?
(lambda (exn)
(parameterize ((print-struct #t))
(printf "colorer thread: ~s\n" exn))
(break-enabled #f)
(semaphore-wait mutex-lock))))
(re-tokenize (open-input-text-editor this current-pos end-pos
(lambda (x) (values #f 1)))
current-pos))
;; Breaks should be disabled from exit of re-tokenize
;; lock will be held
(set! up-to-date? #t)
(semaphore-post mutex-lock)
(thread-suspend (current-thread))))
@ -313,10 +304,10 @@
(set! pairs pairs-)
(set! parens (new paren-tree% (matches pairs)))
(unless background-thread
(break-enabled #f)
;; Create background thread with breaks initially disabled:
(parameterize-break #f
(set! background-thread
(thread (lambda () (background-colorer-entry))))
(break-enabled #t))
(thread (lambda () (background-colorer-entry))))))
(do-insert/delete start-pos 0)))
;; See docs