apiv2/impl-corman.lisp

   1 ;;;; -*- indent-tabs-mode: nil -*-
   2
   3 (in-package :bordeaux-threads-2)
   4
   5 ;;;
   6 ;;; Threads
   7 ;;;
   8
   9 (deftype native-thread ()
  10   'threads:thread)
  11
  12 (defun %make-thread (function name)
  13   (declare (ignore name))
  14   (threads:create-thread function))
  15
  16 (defun %current-thread ()
  17   threads:*current-thread*)
  18
  19 (defun %thread-name (thread)
  20   (declare (ignore thread))
  21   nil)
  22
  23 (mark-not-implemented 'join-thread)
  24 (defun %join-thread (thread)
  25   (declare (ignore thread))
  26   (signal-not-implemented 'join-thread))
  27
  28 (mark-not-implemented 'thread-yield)
  29 (defun %thread-yield ()
  30   (declare (ignore thread))
  31   (signal-not-implemented 'thread-yield))
  32
  33 ;;;
  34 ;;; Introspection/debugging
  35 ;;;
  36
  37 (mark-not-implemented 'all-threads)
  38 (defun %all-threads ()
  39   (declare (ignore thread))
  40   (signal-not-implemented 'all-threads))
  41
  42 (mark-not-implemented 'interrupt-thread)
  43 (defun %interrupt-thread (thread function)
  44   (declare (ignore thread))
  45   (signal-not-implemented 'interrupt-thread))
  46
  47 (defun %destroy-thread (thread)
  48   (threads:terminate-thread thread))
  49
  50 (mark-not-implemented 'thread-alive-p)
  51 (defun %thread-alive-p (thread)
  52   (declare (ignore thread))
  53   (signal-not-implemented 'thread-alive-p))
  54 \f
  55
  56 ;;;
  57 ;;; Locks
  58 ;;;
  59
  60 (mark-not-implemented 'make-lock)
  61 (defun %make-lock (lock waitp timeout)
  62   (declare (ignore lock waitp timeout))
  63   (signal-not-implemented 'make-lock))
  64
  65 (mark-not-implemented 'make-recursive-lock)
  66 (defun %make-recursive-lock (lock waitp timeout)
  67   (declare (ignore lock waitp timeout))
  68   (signal-not-implemented 'make-recursive-lock))
  69 \f
  70
  71 ;;;
  72 ;;; Condition variables
  73 ;;;
  74
  75 (mark-not-implemented 'make-condition-variable)
  76 (defun %make-condition-variable (name)
  77   (declare (ignore name))
  78   (signal-not-implemented 'make-condition-variable))