Fix the preprocessor compiling bug in interpretor/Makefile.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / architecture / osclib / faust / src / threads / winthreads_impl.cpp
1 /*
2
3 Copyright (C) 2011 Grame
4
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 This library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with this library; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
18
19 Grame Research Laboratory, 9 rue du Garet, 69001 Lyon - France
20 research@grame.fr
21
22 */
23 #ifdef WIN32
24
25 #include <windows.h>
26
27 #include "TThreads.h"
28
29
30 //_____________________________________________________________________
31 static DWORD WINAPI baseThreadProc (LPVOID ptr)
32 {
33 TThreads* thread = (TThreads*)ptr;
34 thread->running (true);
35 thread->run();
36 thread->running (false);
37 return 0;
38 }
39
40 //_____________________________________________________________________
41 TThreads::TThreads () : fThread(0) {}
42
43 //_____________________________________________________________________
44 int TThreads::SetPriority (int priority)
45 {
46 if (!SetThreadPriority (fThread, priority))
47 return TRUE;
48 return FALSE;
49 }
50
51 //_____________________________________________________________________
52 bool TThreads::start (int priority)
53 {
54 DWORD id;
55 fThread = CreateThread(NULL, 0, baseThreadProc, this, 0, &id);
56 if (fThread) {
57 SetPriority (priority);
58 return true;
59 }
60 return false;
61 }
62
63 //_____________________________________________________________________
64 void TThreads::quit ()
65 {
66 if (fThread) {
67 WaitForSingleObject (fThread, 1000);
68 CloseHandle (fThread);
69 fThread = 0;
70 }
71 }
72
73 #endif