src/runtime/thread.scm

428 (define-structure (tentry (conc-name tentry/)
524 (define (%maybe-deregister-io-thread-event tentry)
526   (if (eq? (current-thread) (tentry/thread tentry))
527       (delete-tentry! tentry)))
549 (define (deregister-io-thread-event tentry)
550   (if (not (tentry? tentry))
551       (error:wrong-type-argument tentry "I/O thread event registration"
555      (%deregister-io-thread-event tentry)
585 	   (let tloop ((tentry (dentry/first-tentry dentry)))
586 	     (if tentry
587 		 (let ((thread (tentry/thread tentry))
588 		       (event (tentry/event tentry)))
592 		   (tloop (tentry/next tentry)))))
610   (let ((tentry (make-tentry thread event permanent?)))
616 				 tentry
617 				 tentry
620 	       (set-tentry/dentry! tentry dentry)
621 	       (set-tentry/prev! tentry #f)
622 	       (set-tentry/next! tentry #f)
630 	     (set-tentry/dentry! tentry dentry)
633 		   (set-tentry/prev! tentry #f)
634 		   (set-tentry/next! tentry next)
635 		   (set-dentry/first-tentry! dentry tentry)
636 		   (set-tentry/prev! next tentry))
638 		   (set-tentry/prev! tentry prev)
639 		   (set-tentry/next! tentry #f)
640 		   (set-dentry/last-tentry! dentry tentry)
641 		   (set-tentry/next! prev tentry))))
644     tentry))
646 (define (%deregister-io-thread-event tentry)
647   (if (tentry/dentry tentry)
648       (delete-tentry! tentry)))
658 		  ((tentry (dentry/first-tentry dentry)) (tentries tentries))
659 		(if (not tentry)
661 		    (loop (tentry/next tentry)
662 			  (if (and (eq? thread (tentry/thread tentry))
664 				       (not (tentry/permanent? tentry))))
665 			      (cons tentry tentries)
696 		  (let ((tentry (dentry/first-tentry dentry)))
698 			   (cons (cons (tentry/thread tentry)
699 				       (let ((e (tentry/event tentry)))
703 		      (if (tentry/permanent? tentry)
704 			  (move-tentry-to-back! tentry)
705 			  (delete-tentry! tentry))
711 (define (move-tentry-to-back! tentry)
712   (let ((next (tentry/next tentry)))
714 	(let ((dentry (tentry/dentry tentry))
715 	      (prev (tentry/prev tentry)))
716 	  (set-tentry/prev! tentry (dentry/last-tentry dentry))
717 	  (set-tentry/next! tentry #f)
718 	  (set-dentry/last-tentry! dentry tentry)
722 (define (delete-tentry! tentry)
723   (let ((dentry (tentry/dentry tentry))
724 	(prev (tentry/prev tentry))
725 	(next (tentry/next tentry)))
726     (set-tentry/dentry! tentry #f)
727     (set-tentry/thread! tentry #f)
728     (set-tentry/event! tentry #f)
729     (set-tentry/prev! tentry #f)
730     (set-tentry/next! tentry #f)