removed absolutely unneeded #include module.h
[wxWidgets.git] / include / wx / thread.h
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: wx/thread.h
3 // Purpose: Thread API
4 // Author: Guilhem Lavaux
5 // Modified by: Vadim Zeitlin (modifications partly inspired by omnithreads
6 // package from Olivetti & Oracle Research Laboratory)
7 // Created: 04/13/98
8 // RCS-ID: $Id$
9 // Copyright: (c) Guilhem Lavaux
10 // Licence: wxWindows licence
11 /////////////////////////////////////////////////////////////////////////////
12
13 #ifndef _WX_THREAD_H_
14 #define _WX_THREAD_H_
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 // get the value of wxUSE_THREADS configuration flag
21 #include "wx/defs.h"
22
23 #if wxUSE_THREADS
24
25 // only for wxUSE_THREADS - otherwise we'd get undefined symbols
26 #if defined(__GNUG__) && !defined(__APPLE__)
27 #pragma interface "thread.h"
28 #endif
29
30 // Windows headers define it
31 #ifdef Yield
32 #undef Yield
33 #endif
34
35 // ----------------------------------------------------------------------------
36 // constants
37 // ----------------------------------------------------------------------------
38
39 enum wxMutexError
40 {
41 wxMUTEX_NO_ERROR = 0, // operation completed successfully
42 wxMUTEX_INVALID, // mutex hasn't been initialized
43 wxMUTEX_DEAD_LOCK, // mutex is already locked by the calling thread
44 wxMUTEX_BUSY, // mutex is already locked by another thread
45 wxMUTEX_UNLOCKED, // attempt to unlock a mutex which is not locked
46 wxMUTEX_MISC_ERROR // any other error
47 };
48
49 enum wxCondError
50 {
51 wxCOND_NO_ERROR = 0,
52 wxCOND_INVALID,
53 wxCOND_TIMEOUT, // WaitTimeout() has timed out
54 wxCOND_MISC_ERROR
55 };
56
57 enum wxSemaError
58 {
59 wxSEMA_NO_ERROR = 0,
60 wxSEMA_INVALID, // semaphore hasn't been initialized successfully
61 wxSEMA_BUSY, // returned by TryWait() if Wait() would block
62 wxSEMA_TIMEOUT, // returned by WaitTimeout()
63 wxSEMA_OVERFLOW, // Post() would increase counter past the max
64 wxSEMA_MISC_ERROR
65 };
66
67 enum wxThreadError
68 {
69 wxTHREAD_NO_ERROR = 0, // No error
70 wxTHREAD_NO_RESOURCE, // No resource left to create a new thread
71 wxTHREAD_RUNNING, // The thread is already running
72 wxTHREAD_NOT_RUNNING, // The thread isn't running
73 wxTHREAD_KILLED, // Thread we waited for had to be killed
74 wxTHREAD_MISC_ERROR // Some other error
75 };
76
77 enum wxThreadKind
78 {
79 wxTHREAD_DETACHED,
80 wxTHREAD_JOINABLE
81 };
82
83 // defines the interval of priority
84 enum
85 {
86 WXTHREAD_MIN_PRIORITY = 0u,
87 WXTHREAD_DEFAULT_PRIORITY = 50u,
88 WXTHREAD_MAX_PRIORITY = 100u
89 };
90
91 // There are 2 types of mutexes: normal mutexes and recursive ones. The attempt
92 // to lock a normal mutex by a thread which already owns it results in
93 // undefined behaviour (it always works under Windows, it will almost always
94 // result in a deadlock under Unix). Locking a recursive mutex in such
95 // situation always succeeds and it must be unlocked as many times as it has
96 // been locked.
97 //
98 // However recursive mutexes have several important drawbacks: first, in the
99 // POSIX implementation, they're less efficient. Second, and more importantly,
100 // they CAN NOT BE USED WITH CONDITION VARIABLES under Unix! Using them with
101 // wxCondition will work under Windows and some Unices (notably Linux) but will
102 // deadlock under other Unix versions (e.g. Solaris). As it might be difficult
103 // to ensure that a recursive mutex is not used with wxCondition, it is a good
104 // idea to avoid using recursive mutexes at all. Also, the last problem with
105 // them is that some (older) Unix versions don't support this at all -- which
106 // results in a configure warning when building and a deadlock when using them.
107 enum wxMutexType
108 {
109 // normal mutex: try to always use this one
110 wxMUTEX_DEFAULT,
111
112 // recursive mutex: don't use these ones with wxCondition
113 wxMUTEX_RECURSIVE
114 };
115
116 // forward declarations
117 class WXDLLEXPORT wxConditionInternal;
118 class WXDLLEXPORT wxMutexInternal;
119 class WXDLLEXPORT wxSemaphoreInternal;
120 class WXDLLEXPORT wxThreadInternal;
121
122 // ----------------------------------------------------------------------------
123 // A mutex object is a synchronization object whose state is set to signaled
124 // when it is not owned by any thread, and nonsignaled when it is owned. Its
125 // name comes from its usefulness in coordinating mutually-exclusive access to
126 // a shared resource. Only one thread at a time can own a mutex object.
127 // ----------------------------------------------------------------------------
128
129 // you should consider wxMutexLocker whenever possible instead of directly
130 // working with wxMutex class - it is safer
131 class WXDLLEXPORT wxMutex
132 {
133 public:
134 // constructor & destructor
135 // ------------------------
136
137 // create either default (always safe) or recursive mutex
138 wxMutex(wxMutexType mutexType = wxMUTEX_DEFAULT);
139
140 // destroys the mutex kernel object
141 ~wxMutex();
142
143 // test if the mutex has been created successfully
144 bool IsOk() const;
145
146 // mutex operations
147 // ----------------
148
149 // Lock the mutex, blocking on it until it is unlocked by the other thread.
150 // The result of locking a mutex already locked by the current thread
151 // depend on the mutex type.
152 //
153 // The caller must call Unlock() later if Lock() returned wxMUTEX_NO_ERROR.
154 wxMutexError Lock();
155
156 // Try to lock the mutex: if it is currently locked, return immediately
157 // with an error. Otherwise the caller must call Unlock().
158 wxMutexError TryLock();
159
160 // Unlock the mutex. It is an error to unlock an already unlocked mutex
161 wxMutexError Unlock();
162
163 protected:
164 wxMutexInternal *m_internal;
165
166 friend class wxConditionInternal;
167
168 DECLARE_NO_COPY_CLASS(wxMutex)
169 };
170
171 // a helper class which locks the mutex in the ctor and unlocks it in the dtor:
172 // this ensures that mutex is always unlocked, even if the function returns or
173 // throws an exception before it reaches the end
174 class WXDLLEXPORT wxMutexLocker
175 {
176 public:
177 // lock the mutex in the ctor
178 wxMutexLocker(wxMutex& mutex)
179 : m_isOk(FALSE), m_mutex(mutex)
180 { m_isOk = ( m_mutex.Lock() == wxMUTEX_NO_ERROR ); }
181
182 // returns TRUE if mutex was successfully locked in ctor
183 bool IsOk() const
184 { return m_isOk; }
185
186 // unlock the mutex in dtor
187 ~wxMutexLocker()
188 { if ( IsOk() ) m_mutex.Unlock(); }
189
190 private:
191 // no assignment operator nor copy ctor
192 wxMutexLocker(const wxMutexLocker&);
193 wxMutexLocker& operator=(const wxMutexLocker&);
194
195 bool m_isOk;
196 wxMutex& m_mutex;
197 };
198
199 // ----------------------------------------------------------------------------
200 // Critical section: this is the same as mutex but is only visible to the
201 // threads of the same process. For the platforms which don't have native
202 // support for critical sections, they're implemented entirely in terms of
203 // mutexes.
204 //
205 // NB: wxCriticalSection object does not allocate any memory in its ctor
206 // which makes it possible to have static globals of this class
207 // ----------------------------------------------------------------------------
208
209 // in order to avoid any overhead under platforms where critical sections are
210 // just mutexes make all wxCriticalSection class functions inline
211 #if !defined(__WXMSW__) && !defined(__WXPM__)
212 #define wxCRITSECT_IS_MUTEX 1
213
214 #define wxCRITSECT_INLINE inline
215 #else // MSW || OS2
216 #define wxCRITSECT_IS_MUTEX 0
217
218 #define wxCRITSECT_INLINE
219 #endif // MSW/!MSW
220
221 // you should consider wxCriticalSectionLocker whenever possible instead of
222 // directly working with wxCriticalSection class - it is safer
223 class WXDLLEXPORT wxCriticalSection
224 {
225 public:
226 // ctor & dtor
227 wxCRITSECT_INLINE wxCriticalSection();
228 wxCRITSECT_INLINE ~wxCriticalSection();
229
230 // enter the section (the same as locking a mutex)
231 wxCRITSECT_INLINE void Enter();
232
233 // leave the critical section (same as unlocking a mutex)
234 wxCRITSECT_INLINE void Leave();
235
236 private:
237 #if wxCRITSECT_IS_MUTEX
238 wxMutex m_mutex;
239 #elif defined(__WXMSW__)
240 // we can't allocate any memory in the ctor, so use placement new -
241 // unfortunately, we have to hardcode the sizeof() here because we can't
242 // include windows.h from this public header and we also have to use the
243 // union to force the correct (i.e. maximal) alignment
244 //
245 // if CRITICAL_SECTION size changes in Windows, you'll get an assert from
246 // thread.cpp and will need to increase the buffer size
247 //
248 // finally, we need this typedef instead of declaring m_buffer directly
249 // because otherwise the assert mentioned above wouldn't compile with some
250 // compilers (notably CodeWarrior 8)
251 typedef char wxCritSectBuffer[24];
252 union
253 {
254 unsigned long m_dummy1;
255 void *m_dummy2;
256
257 wxCritSectBuffer m_buffer;
258 };
259 #else
260 // nothing for OS/2
261 #endif // Unix/Win32/OS2
262
263 DECLARE_NO_COPY_CLASS(wxCriticalSection)
264 };
265
266 #if wxCRITSECT_IS_MUTEX
267 // implement wxCriticalSection using mutexes
268 inline wxCriticalSection::wxCriticalSection() { }
269 inline wxCriticalSection::~wxCriticalSection() { }
270
271 inline void wxCriticalSection::Enter() { (void)m_mutex.Lock(); }
272 inline void wxCriticalSection::Leave() { (void)m_mutex.Unlock(); }
273 #endif // wxCRITSECT_IS_MUTEX
274
275 #undef wxCRITSECT_INLINE
276 #undef wxCRITSECT_IS_MUTEX
277
278 // wxCriticalSectionLocker is the same to critical sections as wxMutexLocker is
279 // to th mutexes
280 class WXDLLEXPORT wxCriticalSectionLocker
281 {
282 public:
283 wxCriticalSectionLocker(wxCriticalSection& cs)
284 : m_critsect(cs)
285 {
286 m_critsect.Enter();
287 }
288
289 ~wxCriticalSectionLocker()
290 {
291 m_critsect.Leave();
292 }
293
294 private:
295 wxCriticalSection& m_critsect;
296
297 DECLARE_NO_COPY_CLASS(wxCriticalSectionLocker)
298 };
299
300 // ----------------------------------------------------------------------------
301 // wxCondition models a POSIX condition variable which allows one (or more)
302 // thread(s) to wait until some condition is fulfilled
303 // ----------------------------------------------------------------------------
304
305 class WXDLLEXPORT wxCondition
306 {
307 public:
308 // Each wxCondition object is associated with a (single) wxMutex object.
309 // The mutex object MUST be locked before calling Wait()
310 wxCondition(wxMutex& mutex);
311
312 // dtor is not virtual, don't use this class polymorphically
313 ~wxCondition();
314
315 // return TRUE if the condition has been created successfully
316 bool IsOk() const;
317
318 // NB: the associated mutex MUST be locked beforehand by the calling thread
319 //
320 // it atomically releases the lock on the associated mutex
321 // and starts waiting to be woken up by a Signal()/Broadcast()
322 // once its signaled, then it will wait until it can reacquire
323 // the lock on the associated mutex object, before returning.
324 wxCondError Wait();
325
326 // exactly as Wait() except that it may also return if the specified
327 // timeout ellapses even if the condition hasn't been signalled: in this
328 // case, the return value is FALSE, otherwise (i.e. in case of a normal
329 // return) it is TRUE
330 //
331 // the timeeout parameter specifies a interval that needs to be waited in
332 // milliseconds
333 wxCondError WaitTimeout(unsigned long milliseconds);
334
335 // NB: the associated mutex may or may not be locked by the calling thread
336 //
337 // this method unblocks one thread if any are blocking on the condition.
338 // if no thread is blocking in Wait(), then the signal is NOT remembered
339 // The thread which was blocking on Wait(), will then reacquire the lock
340 // on the associated mutex object before returning
341 wxCondError Signal();
342
343 // NB: the associated mutex may or may not be locked by the calling thread
344 //
345 // this method unblocks all threads if any are blocking on the condition.
346 // if no thread is blocking in Wait(), then the signal is NOT remembered
347 // The threads which were blocking on Wait(), will then reacquire the lock
348 // on the associated mutex object before returning.
349 wxCondError Broadcast();
350
351
352 // deprecated version, don't use
353 bool Wait(unsigned long milliseconds)
354 { return WaitTimeout(milliseconds) == wxCOND_NO_ERROR; }
355
356 private:
357 wxConditionInternal *m_internal;
358
359 DECLARE_NO_COPY_CLASS(wxCondition)
360 };
361
362 // ----------------------------------------------------------------------------
363 // wxSemaphore: a counter limiting the number of threads concurrently accessing
364 // a shared resource
365 // ----------------------------------------------------------------------------
366
367 class WXDLLEXPORT wxSemaphore
368 {
369 public:
370 // specifying a maxcount of 0 actually makes wxSemaphore behave as if there
371 // is no upper limit, if maxcount is 1 the semaphore behaves as a mutex
372 wxSemaphore( int initialcount = 0, int maxcount = 0 );
373
374 // dtor is not virtual, don't use this class polymorphically
375 ~wxSemaphore();
376
377 // return TRUE if the semaphore has been created successfully
378 bool IsOk() const;
379
380 // wait indefinitely, until the semaphore count goes beyond 0
381 // and then decrement it and return (this method might have been called
382 // Acquire())
383 wxSemaError Wait();
384
385 // same as Wait(), but does not block, returns wxSEMA_NO_ERROR if
386 // successful and wxSEMA_BUSY if the count is currently zero
387 wxSemaError TryWait();
388
389 // same as Wait(), but as a timeout limit, returns wxSEMA_NO_ERROR if the
390 // semaphore was acquired and wxSEMA_TIMEOUT if the timeout has ellapsed
391 wxSemaError WaitTimeout(unsigned long milliseconds);
392
393 // increments the semaphore count and signals one of the waiting threads
394 wxSemaError Post();
395
396 private:
397 wxSemaphoreInternal *m_internal;
398
399 DECLARE_NO_COPY_CLASS(wxSemaphore)
400 };
401
402 // ----------------------------------------------------------------------------
403 // wxThread: class encpasulating a thread of execution
404 // ----------------------------------------------------------------------------
405
406 // there are two different kinds of threads: joinable and detached (default)
407 // ones. Only joinable threads can return a return code and only detached
408 // threads auto-delete themselves - the user should delete the joinable
409 // threads manually.
410
411 // NB: in the function descriptions the words "this thread" mean the thread
412 // created by the wxThread object while "main thread" is the thread created
413 // during the process initialization (a.k.a. the GUI thread)
414
415 // On VMS thread pointers are 64 bits (also needed for other systems???
416 #ifdef __VMS
417 typedef unsigned long long wxThreadIdType;
418 #else
419 typedef unsigned long wxThreadIdType;
420 #endif
421
422 class WXDLLEXPORT wxThread
423 {
424 public:
425 // the return type for the thread function
426 typedef void *ExitCode;
427
428 // static functions
429 // Returns the wxThread object for the calling thread. NULL is returned
430 // if the caller is the main thread (but it's recommended to use
431 // IsMain() and only call This() for threads other than the main one
432 // because NULL is also returned on error). If the thread wasn't
433 // created with wxThread class, the returned value is undefined.
434 static wxThread *This();
435
436 // Returns true if current thread is the main thread.
437 static bool IsMain();
438
439 // Release the rest of our time slice leting the other threads run
440 static void Yield();
441
442 // Sleep during the specified period of time in milliseconds
443 //
444 // NB: at least under MSW worker threads can not call ::wxSleep()!
445 static void Sleep(unsigned long milliseconds);
446
447 // get the number of system CPUs - useful with SetConcurrency()
448 // (the "best" value for it is usually number of CPUs + 1)
449 //
450 // Returns -1 if unknown, number of CPUs otherwise
451 static int GetCPUCount();
452
453 // Get the platform specific thread ID and return as a long. This
454 // can be used to uniquely identify threads, even if they are not
455 // wxThreads. This is used by wxPython.
456 static wxThreadIdType GetCurrentId();
457
458 // sets the concurrency level: this is, roughly, the number of threads
459 // the system tries to schedule to run in parallel. 0 means the
460 // default value (usually acceptable, but may not yield the best
461 // performance for this process)
462 //
463 // Returns TRUE on success, FALSE otherwise (if not implemented, for
464 // example)
465 static bool SetConcurrency(size_t level);
466
467 // constructor only creates the C++ thread object and doesn't create (or
468 // start) the real thread
469 wxThread(wxThreadKind kind = wxTHREAD_DETACHED);
470
471 // functions that change the thread state: all these can only be called
472 // from _another_ thread (typically the thread that created this one, e.g.
473 // the main thread), not from the thread itself
474
475 // create a new thread and optionally set the stack size on
476 // platforms that support that - call Run() to start it
477 // (special cased for watcom which won't accept 0 default)
478
479 wxThreadError Create(unsigned int stackSize = 0);
480
481 // starts execution of the thread - from the moment Run() is called
482 // the execution of wxThread::Entry() may start at any moment, caller
483 // shouldn't suppose that it starts after (or before) Run() returns.
484 wxThreadError Run();
485
486 // stops the thread if it's running and deletes the wxThread object if
487 // this is a detached thread freeing its memory - otherwise (for
488 // joinable threads) you still need to delete wxThread object
489 // yourself.
490 //
491 // this function only works if the thread calls TestDestroy()
492 // periodically - the thread will only be deleted the next time it
493 // does it!
494 //
495 // will fill the rc pointer with the thread exit code if it's !NULL
496 wxThreadError Delete(ExitCode *rc = (ExitCode *)NULL);
497
498 // waits for a joinable thread to finish and returns its exit code
499 //
500 // Returns (ExitCode)-1 on error (for example, if the thread is not
501 // joinable)
502 ExitCode Wait();
503
504 // kills the thread without giving it any chance to clean up - should
505 // not be used in normal circumstances, use Delete() instead. It is a
506 // dangerous function that should only be used in the most extreme
507 // cases!
508 //
509 // The wxThread object is deleted by Kill() if the thread is
510 // detachable, but you still have to delete it manually for joinable
511 // threads.
512 wxThreadError Kill();
513
514 // pause a running thread: as Delete(), this only works if the thread
515 // calls TestDestroy() regularly
516 wxThreadError Pause();
517
518 // resume a paused thread
519 wxThreadError Resume();
520
521 // priority
522 // Sets the priority to "prio": see WXTHREAD_XXX_PRIORITY constants
523 //
524 // NB: the priority can only be set before the thread is created
525 void SetPriority(unsigned int prio);
526
527 // Get the current priority.
528 unsigned int GetPriority() const;
529
530 // thread status inquiries
531 // Returns true if the thread is alive: i.e. running or suspended
532 bool IsAlive() const;
533 // Returns true if the thread is running (not paused, not killed).
534 bool IsRunning() const;
535 // Returns true if the thread is suspended
536 bool IsPaused() const;
537
538 // is the thread of detached kind?
539 bool IsDetached() const { return m_isDetached; }
540
541 // Get the thread ID - a platform dependent number which uniquely
542 // identifies a thread inside a process
543 wxThreadIdType GetId() const;
544
545 // called when the thread exits - in the context of this thread
546 //
547 // NB: this function will not be called if the thread is Kill()ed
548 virtual void OnExit() { }
549
550 // dtor is public, but the detached threads should never be deleted - use
551 // Delete() instead (or leave the thread terminate by itself)
552 virtual ~wxThread();
553
554 protected:
555 // Returns TRUE if the thread was asked to terminate: this function should
556 // be called by the thread from time to time, otherwise the main thread
557 // will be left forever in Delete()!
558 bool TestDestroy();
559
560 // exits from the current thread - can be called only from this thread
561 void Exit(ExitCode exitcode = 0);
562
563 // entry point for the thread - called by Run() and executes in the context
564 // of this thread.
565 virtual void *Entry() = 0;
566
567 private:
568 // no copy ctor/assignment operator
569 wxThread(const wxThread&);
570 wxThread& operator=(const wxThread&);
571
572 friend class wxThreadInternal;
573
574 // the (platform-dependent) thread class implementation
575 wxThreadInternal *m_internal;
576
577 // protects access to any methods of wxThreadInternal object
578 wxCriticalSection m_critsect;
579
580 // true if the thread is detached, false if it is joinable
581 bool m_isDetached;
582 };
583
584 // ----------------------------------------------------------------------------
585 // Automatic initialization
586 // ----------------------------------------------------------------------------
587
588 // GUI mutex handling.
589 void WXDLLEXPORT wxMutexGuiEnter();
590 void WXDLLEXPORT wxMutexGuiLeave();
591
592 // macros for entering/leaving critical sections which may be used without
593 // having to take them inside "#if wxUSE_THREADS"
594 #define wxENTER_CRIT_SECT(cs) (cs).Enter()
595 #define wxLEAVE_CRIT_SECT(cs) (cs).Leave()
596 #define wxCRIT_SECT_DECLARE(cs) static wxCriticalSection cs
597 #define wxCRIT_SECT_LOCKER(name, cs) wxCriticalSectionLocker name(cs)
598
599 #else // !wxUSE_THREADS
600
601 // no thread support
602 inline void WXDLLEXPORT wxMutexGuiEnter() { }
603 inline void WXDLLEXPORT wxMutexGuiLeave() { }
604
605 // macros for entering/leaving critical sections which may be used without
606 // having to take them inside "#if wxUSE_THREADS"
607 #define wxENTER_CRIT_SECT(cs)
608 #define wxLEAVE_CRIT_SECT(cs)
609 #define wxCRIT_SECT_DECLARE(cs)
610 #define wxCRIT_SECT_LOCKER(name, cs)
611
612 #endif // wxUSE_THREADS/!wxUSE_THREADS
613
614 // mark part of code as being a critical section: this macro declares a
615 // critical section with the given name and enters it immediately and leaves
616 // it at the end of the current scope
617 //
618 // example:
619 //
620 // int Count()
621 // {
622 // static int s_counter = 0;
623 //
624 // wxCRITICAL_SECTION(counter);
625 //
626 // return ++s_counter;
627 // }
628 //
629 // this function is MT-safe in presence of the threads but there is no
630 // overhead when the library is compiled without threads
631 #define wxCRITICAL_SECTION(name) \
632 wxCRIT_SECT_DECLARE(s_cs##name); \
633 wxCRIT_SECT_LOCKER(cs##name##Locker, s_cs##name)
634
635 // automatically lock GUI mutex in ctor and unlock it in dtor
636 class WXDLLEXPORT wxMutexGuiLocker
637 {
638 public:
639 wxMutexGuiLocker() { wxMutexGuiEnter(); }
640 ~wxMutexGuiLocker() { wxMutexGuiLeave(); }
641 };
642
643 // -----------------------------------------------------------------------------
644 // implementation only until the end of file
645 // -----------------------------------------------------------------------------
646
647 #if wxUSE_THREADS
648
649 #if defined(__WXMSW__) || defined(__WXMAC__) || defined(__WXPM__)
650 // unlock GUI if there are threads waiting for and lock it back when
651 // there are no more of them - should be called periodically by the main
652 // thread
653 extern void WXDLLEXPORT wxMutexGuiLeaveOrEnter();
654
655 // returns TRUE if the main thread has GUI lock
656 extern bool WXDLLEXPORT wxGuiOwnedByMainThread();
657
658 #ifndef __WXPM__
659 // wakes up the main thread if it's sleeping inside ::GetMessage()
660 extern void WXDLLEXPORT wxWakeUpMainThread();
661 #endif // !OS/2
662
663 // return TRUE if the main thread is waiting for some other to terminate:
664 // wxApp then should block all "dangerous" messages
665 extern bool WXDLLEXPORT wxIsWaitingForThread();
666 #endif // MSW, Mac, OS/2
667
668 #endif // wxUSE_THREADS
669
670 #endif // _WX_THREAD_H_
671