source: libcfa/src/concurrency/thread.hfa @ 02a43ff

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 02a43ff was 5456537, checked in by Andrew Beach <ajbeach@…>, 3 years ago

A bit of clean-up, wrapping the detail of the default vtable up in a macro.

  • Property mode set to 100644
File size: 5.1 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// thread --
8//
9// Author           : Thierry Delisle
10// Created On       : Tue Jan 17 12:27:26 2017
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Wed Dec  4 09:18:14 2019
13// Update Count     : 6
14//
15
16#pragma once
17
18#include <assert.h>
19#include "invoke.h"
20
21#include "coroutine.hfa"
22#include "kernel.hfa"
23#include "monitor.hfa"
24#include "exception.hfa"
25
26//-----------------------------------------------------------------------------
27// thread trait
28trait is_thread(T &) {
29        void ^?{}(T& mutex this);
30        void main(T& this);
31        $thread* get_thread(T& this);
32};
33
34EHM_FORALL_EXCEPTION(ThreadCancelled, (thread_t &), (thread_t)) (
35        thread_t * the_thread;
36        exception_t * the_exception;
37);
38
39forall(T &)
40void copy(ThreadCancelled(T) * dst, ThreadCancelled(T) * src);
41
42forall(T &)
43const char * msg(ThreadCancelled(T) *);
44
45// Inline getters for threads/coroutines/monitors
46forall( T & | is_thread(T) )
47static inline $coroutine* get_coroutine(T & this) __attribute__((const)) { return &get_thread(this)->self_cor; }
48
49forall( T & | is_thread(T) )
50static inline $monitor  * get_monitor  (T & this) __attribute__((const)) { return &get_thread(this)->self_mon; }
51
52static inline $coroutine* get_coroutine($thread * this) __attribute__((const)) { return &this->self_cor; }
53static inline $monitor  * get_monitor  ($thread * this) __attribute__((const)) { return &this->self_mon; }
54
55//-----------------------------------------------------------------------------
56// forward declarations needed for threads
57extern struct cluster * mainCluster;
58
59forall( T & | is_thread(T) )
60void __thrd_start( T & this, void (*)(T &) );
61
62//-----------------------------------------------------------------------------
63// Ctors and dtors
64void ?{}($thread & this, const char * const name, struct cluster & cl, void * storage, size_t storageSize );
65void ^?{}($thread & this);
66
67static inline void ?{}($thread & this)                                                                  { this{ "Anonymous Thread", *mainCluster, 0p, 65000 }; }
68static inline void ?{}($thread & this, size_t stackSize )                                               { this{ "Anonymous Thread", *mainCluster, 0p, stackSize }; }
69static inline void ?{}($thread & this, void * storage, size_t storageSize )                             { this{ "Anonymous Thread", *mainCluster, storage, storageSize }; }
70static inline void ?{}($thread & this, struct cluster & cl )                                            { this{ "Anonymous Thread", cl, 0p, 65000 }; }
71static inline void ?{}($thread & this, struct cluster & cl, size_t stackSize )                          { this{ "Anonymous Thread", cl, 0p, stackSize }; }
72static inline void ?{}($thread & this, struct cluster & cl, void * storage, size_t storageSize )        { this{ "Anonymous Thread", cl, storage, storageSize }; }
73static inline void ?{}($thread & this, const char * const name)                                         { this{ name, *mainCluster, 0p, 65000 }; }
74static inline void ?{}($thread & this, const char * const name, struct cluster & cl )                   { this{ name, cl, 0p, 65000 }; }
75static inline void ?{}($thread & this, const char * const name, struct cluster & cl, size_t stackSize ) { this{ name, cl, 0p, stackSize }; }
76
77struct thread_dtor_guard_t {
78        monitor_dtor_guard_t mg;
79};
80
81forall( T & | is_thread(T) | IS_EXCEPTION(ThreadCancelled, (T))
82    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
83void ?{}( thread_dtor_guard_t & this, T & thrd, void(*)(ThreadCancelled(T) &) );
84void ^?{}( thread_dtor_guard_t & this );
85
86//-----------------------------------------------------------------------------
87// thread runner
88// Structure that actually start and stop threads
89forall( T & | sized(T) | is_thread(T) )
90struct scoped {
91        T handle;
92};
93
94forall( T & | sized(T) | is_thread(T) | { void ?{}(T&); } )
95void ?{}( scoped(T)& this );
96
97forall( T &, P... | sized(T) | is_thread(T) | { void ?{}(T&, P); } )
98void ?{}( scoped(T)& this, P params );
99
100forall( T & | sized(T) | is_thread(T) )
101void ^?{}( scoped(T)& this );
102
103//-----------------------------------------------------------------------------
104// Scheduler API
105
106//----------
107// Park thread: block until corresponding call to unpark, won't block if unpark is already called
108void park( void );
109
110//----------
111// Unpark a thread, if the thread is already blocked, schedule it
112//                  if the thread is not yet block, signal that it should rerun immediately
113void unpark( $thread * this );
114
115forall( T & | is_thread(T) )
116static inline void unpark( T & this ) { if(!&this) return; unpark( get_thread( this ) );}
117
118//----------
119// Yield: force thread to block and be rescheduled
120bool force_yield( enum __Preemption_Reason );
121
122//----------
123// sleep: force thread to block and be rescheduled after Duration duration
124void sleep( Duration duration );
125
126//----------
127// join
128forall( T & | is_thread(T) | IS_RESUMPTION_EXCEPTION(ThreadCancelled, (T))
129    | { EHM_DEFAULT_VTABLE(ThreadCancelled, (T)); })
130T & join( T & this );
131
132// Local Variables: //
133// mode: c //
134// tab-width: 4 //
135// End: //
Note: See TracBrowser for help on using the repository browser.