(index ("thread-reaper-shutdown?" 0) ("thread-reap!" 92) ("thread-reaper-stop!" 215) ("thread-reaper-timeout" 362) ("thread-reaper-timeout-set!" 362) ("thread-reaper-retries" 796) ("thread-reaper-retries-set!" 796) ("thread-reaper-greedy" 1070) ("thread-reaper-greedy-set!" 1070) ("thread-reaper-wait-seconds" 1423) ("thread-reaper-wait-seconds-set!" 1423) ("thread-reaper-quantum" 1740) ("thread-reaper-quantum-set!" 1740) ("print-exception-error" 2035) ("print-exception-warning" 2631) ("thread-warning-message" 3020) ("thread-timeout?" 3189) ("check-timeout" 3189) ("error-timeout" 3189) ("make-thread-timeout" 3628) ("check-thread" 4152) ("error-thread" 4152) ("thread-created?" 4375) ("thread-ready?" 4375) ("thread-running?" 4375) ("thread-blocked?" 4375) ("thread-suspended?" 4375) ("thread-sleeping?" 4375) ("thread-terminated?" 4375) ("thread-dead?" 4375) ("thread-obstructed?" 5012) ("thread-state=?" 5153) ("thread-blocked-for-termination?" 5329) ("thread-blocked-for-io?" 5444) ("thread-blocked-for-timeout?" 5541) ("thread-unblock!" 5712) ("thread-thunk" 5968) ("thread-result-list" 6047) ("thread-block-timeout" 6141) ("thread-state-buffer" 6240) ("thread-end-exception" 6399) ("thread-owned-mutexes" 6486) ("thread-block-object" 6576) ("thread-recipients" 6661) ("thread-block-object-of-recipient?" 6745) ("thread-dynamic-winds" 6914) ("thread-standard-input" 7004) ("thread-standard-output" 7096) ("thread-standard-error" 7190) ("thread-default-exception-handler" 7282) ("thread-current-parameter-vector" 7401))
(def (sig (procedure "(thread-reaper-shutdown?) => boolean" (id thread-reaper-shutdown?))))
(def (sig (procedure "(thread-reap! THREAD)" (id thread-reap!))) (p "Queues the supplied " (tt "THREAD") " for reaping."))
(def (sig (procedure "(thread-reaper-stop!)" (id thread-reaper-stop!))) (p "Processes any threads queued for reaping and terminates the reaper."))
(def (sig (procedure "(thread-reaper-timeout) => (or #f number)" (id thread-reaper-timeout)) (procedure "(thread-reaper-timeout-set! SECONDS)" (id thread-reaper-timeout-set!))) (p "Gets and sets the number of seconds to wait for a thread to quit. The default is " (tt "#f") " or wait till termination. Should threads submitted to the reaper be known to \"run off with the cpu\" then something other than wait forever is warranted."))
(def (sig (procedure "(thread-reaper-retries) => fixnum" (id thread-reaper-retries)) (procedure "(thread-reaper-retries-set! SECONDS)" (id thread-reaper-retries-set!))) (p "Gets and sets the number of attempts to wait for a thread to quit.") (p "Default is " (tt "1") "."))
(def (sig (procedure "(thread-reaper-greedy) => boolean" (id thread-reaper-greedy)) (procedure "(thread-reaper-greedy-set! FLAG)" (id thread-reaper-greedy-set!))) (p "Gets and sets the reaper greedy mode. When greedy the queue is exhausted whenever possible. Otherwise only one queue item is processed per time-slice.") (p "Default is " (tt "#f") "."))
(def (sig (procedure "(thread-reaper-wait-seconds) => (or #f number)" (id thread-reaper-wait-seconds)) (procedure "(thread-reaper-wait-seconds-set! SECONDS)" (id thread-reaper-wait-seconds-set!))) (p "Gets and sets the number of seconds to wait before another attempt by the reaper. The default is " (tt "1.0") "."))
(def (sig (procedure "(thread-reaper-quantum) => number" (id thread-reaper-quantum)) (procedure "(thread-reaper-quantum-set! MILLISECONDS)" (id thread-reaper-quantum-set!))) (p "Gets and sets the time-slice for the reaper.") (p "Default is " (tt "2500") ".") (p "Is the reaper shutting down?"))
(def (sig (procedure "(print-exception-error EXN [THREAD [PORT]])" (id print-exception-error))) (p "Prints the error " (tt "EXN") " and the current call chain. The message header is supplied by " (tt "thread-warning-message") ". This routine duplicates the uncaught exception in a thread handling behavior of Chicken. Useful for caught exceptions that cannot in fact be handled.") (p "The " (tt "EXN") " is a " (tt "condition") " or any other object. The default for " (tt "THREAD") " is the " (tt "(current-thread)") ". The default for " (tt "PORT") " is the " (tt "(current-error-port)") "."))
(def (sig (procedure "(print-exception-warning EXN [THREAD [PORT]])" (id print-exception-warning))) (p "Invokes " (tt "print-exception-error") " when warnings are enabled.") (p "The " (tt "EXN") " is a " (tt "condition") " or any other object. The default for " (tt "THREAD") " is the " (tt "(current-thread)") ". The default for " (tt "PORT") " is the " (tt "(current-error-port)") "."))
(def (sig (procedure "(thread-warning-message THREAD) => string" (id thread-warning-message))) (p "Returns the " (tt "string") " " (tt "\"Warning (<THREAD>): \"") "."))
(def (sig (procedure "(thread-timeout? OBJECT) => boolean" (id thread-timeout?)) (procedure "(check-timeout LOCATION OBJECT [ARGUMENT-NAME]) => (or #f time number)" (id check-timeout)) (procedure "(error-timeout LOCATION OBJECT [ARGUMENT-NAME])" (id error-timeout))) (p "Is the " (tt "OBJECT") " a " (tt "thread-timeout") " object? A " (tt "thread-timeout") " is " (tt "#f") ", a " (tt "number") ", or a SRFI 18 " (tt "time") " object."))
(def (sig (procedure "(make-thread-timeout OFFSET [BASE]) => (or #f time)" (id make-thread-timeout))) (p "Returns the SRFI 18 " (tt "time") " object representing the " (tt "OFFSET") " + " (tt "BASE") ". The " (tt "BASE") " is a " (tt "thread-timeout") " object with default " (tt "(current-time)") ".") (p "Should " (tt "OFFSET") " be " (tt "#f") " or a " (tt "time") " object the " (tt "BASE") " is ignored and " (tt "OFFSET") " is returned. Assumes an absolute " (tt "OFFSET") " indicates a timeout already calculated."))
(def (sig (procedure "(check-thread LOCATION OBJECT [ARGUMENT-NAME]) => thread" (id check-thread)) (procedure "(error-thread LOCATION OBJECT [ARGUMENT-NAME])" (id error-thread))) (p "Type checking for " (tt "thread") "."))
(def (sig (procedure "(thread-created? THREAD) => boolean" (id thread-created?)) (procedure "(thread-ready? THREAD) => boolean" (id thread-ready?)) (procedure "(thread-running? THREAD) => boolean" (id thread-running?)) (procedure "(thread-blocked? THREAD) => boolean" (id thread-blocked?)) (procedure "(thread-suspended? THREAD) => boolean" (id thread-suspended?)) (procedure "(thread-sleeping? THREAD) => boolean" (id thread-sleeping?)) (procedure "(thread-terminated? THREAD) => boolean" (id thread-terminated?)) (procedure "(thread-dead? THREAD) => boolean" (id thread-dead?))) (p "Is the " (tt "THREAD") " in the indicated state?"))
(def (sig (procedure "(thread-obstructed? THREAD) => boolean" (id thread-obstructed?))) (p "Is the " (tt "THREAD") " blocked or sleeping?"))
(def (sig (procedure "(thread-state=? THREAD TOKEN) => boolean" (id thread-state=?))) (p "Does the state token of the " (tt "THREAD") " equal the supplied " (tt "TOKEN") "."))
(def (sig (procedure "(thread-blocked-for-termination? THREAD) => boolean" (id thread-blocked-for-termination?))))
(def (sig (procedure "(thread-blocked-for-io? THREAD) => boolean" (id thread-blocked-for-io?))))
(def (sig (procedure "(thread-blocked-for-timeout? THREAD) => boolean" (id thread-blocked-for-timeout?))) (p "Is the " (tt "THREAD") " in the indicated blocking state?"))
(def (sig (procedure "(thread-unblock! THREAD)" (id thread-unblock!))) (p "Attempts to " (i "cleanly") " unblock the " (tt "THREAD") ".") (p "Currently only threads blocked for timeout can be unblocked. Threads blocked for any other reason are ignored."))
(def (sig (procedure "(thread-thunk THREAD) => procedure" (id thread-thunk))))
(def (sig (procedure "(thread-result-list THREAD) => (or #f list)" (id thread-result-list))))
(def (sig (procedure "(thread-block-timeout THREAD) => (or #f float)" (id thread-block-timeout))))
(def (sig (procedure "(thread-state-buffer THREAD) => state-buffer" (id thread-state-buffer))) (p "Returns the " (tt "THREAD") "'s " (tt "STATE-BUFFER") "."))
(def (sig (procedure "(thread-end-exception THREAD) => *" (id thread-end-exception))))
(def (sig (procedure "(thread-owned-mutexes THREAD) => list" (id thread-owned-mutexes))))
(def (sig (procedure "(thread-block-object THREAD) => *" (id thread-block-object))))
(def (sig (procedure "(thread-recipients THREAD) => list" (id thread-recipients))))
(def (sig (procedure "(thread-block-object-of-recipient? THREAD) => boolean" (id thread-block-object-of-recipient?))) (p "Is " (tt "THREAD") " a recipient of itself?"))
(def (sig (procedure "(thread-dynamic-winds THREAD) => list" (id thread-dynamic-winds))))
(def (sig (procedure "(thread-standard-input THREAD) => port" (id thread-standard-input))))
(def (sig (procedure "(thread-standard-output THREAD) => port" (id thread-standard-output))))
(def (sig (procedure "(thread-standard-error THREAD) => port" (id thread-standard-error))))
(def (sig (procedure "(thread-default-exception-handler THREAD) => procedure" (id thread-default-exception-handler))))
(def (sig (procedure "(thread-current-parameter-vector THREAD) => vector" (id thread-current-parameter-vector))))
