Threads


The following are exported by the THREADS structure.

(WITH-MULTITASKING thunk)
  Initializes for multitasking, then starts up a thread for the execution
  of <thunk>.  That thread and all others created will run in the dynamic
  context of the call to with-multitasking.  The call to with-multitasking
  finally returns only when the scheduler runs out of things to do.

(SPAWN thunk) => thread
  Create and schedule a new thread that will execute <thunk>.

(MAKE-LOCK) => lock
(WITH-LOCK lock thunk) => whatever <thunk> returns
(OBTAIN-LOCK lock)
(RELEASE-LOCK lock)
  Locks are semaphores.

(MAKE-CONDVAR) => condvar
(CONDVAR-REF condvar) => value of condvar
(CONDVAR-SET! condvar value)
  Condition variables.  Attempts to reference a condition variable before
  it has been set cause the referencing thread to block.  Setting a
  condition variable to two different values is an error.

(RELINQUISH-TIMESLICE)
  Let other threads run for a while.

ONE-SECOND
  The number of time units in one second.

(SLEEP time)
  Sleep for <time> time units.

(TIME) => integer
  The current time in time units.

(WITH-INTERRUPTS-INHIBITED thunk) => whatever <thunk> returns
(WITH-INTERRUPTS-ALLOWED thunk) => whatever <thunk> returns
  Execute the thunk with or without interrupts.  Interrupts are normally
  enabled.

(THREAD-READ-CHAR port) => character or EOF
(THREAD-PEEK-CHAR port) => character or EOF
(READ-CHAR-WITH-TIMEOUT port time) => character or EOF or 'TIMEOUT
  Read and peek for characters letting other threads run util a character
  is available.  READ-CHAR-WITH-TIMEOUT will return the symbol TIMEOUT if
  <time> time units go by without a character being available.

(THREAD? thing)
  #T if thing is a thread, #F otherwise.

-----

Debugging utilities:

(CURRENT-THREAD)
(TERMINATE-CURRENT-THREAD)
(KILL-THREAD thread)
(START-THREAD thread)
(STOP-THREAD thread)


(INTERRUPT-THREAD thread thunk)
  Interrupt <thread> and make it execute <thunk> before continuing.

(ACTIVE-THREADS)
  Returns a list containing all currently active threads.

(KILL-CONDVAR condvar)
  Kill all threads waiting for <condvar>.


-----

The following is exported by the MORE-THREADS structure.

(START-THREADS)
  Restart the command processor underneath a (WITH-MULTITASKING ...).

    > ,open threads more-threads
    [more-threads ...]
    > (start-threads)
    Multitasking started
    > (define (foo) (sleep one-second) (display "Hi") (newline) (foo))
    > (define th (spawn foo))
    > th
    Hi
    '#{Thread 1}
    > (let loop () (loop))
    Hi
    Hi
    Hi
    Hi

    Interrupt: keyboard
    1> 
    > th
    Hi
    '#{Thread 1}
    > (kill-thread th)
    #t
    > th
    '#{Thread 1}
    > 

-----

Original by RK, 18 Nov 1993.
Sample transcript added by JAR, 5 Dec 1993.