Mercurial > nand-ecoscentric
annotate packages/kernel/current/src/sync/flag.cxx @ 2729:74dbf4c3f2e1 after-copyright-change-20090129
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
| author | jlarmour |
|---|---|
| date | Thu, 29 Jan 2009 17:47:46 +0000 |
| parents | d2c90368aeef |
| children | 918ae79235a2 |
| rev | line source |
|---|---|
| 0 | 1 //========================================================================== |
| 2 // | |
| 2 | 3 // flag.cxx |
| 0 | 4 // |
| 2 | 5 // Flag class implementation |
| 0 | 6 // |
| 7 //========================================================================== | |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
8 // ####ECOSGPLCOPYRIGHTBEGIN#### |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
9 // ------------------------------------------- |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
10 // This file is part of eCos, the Embedded Configurable Operating System. |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
12 // |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
13 // eCos is free software; you can redistribute it and/or modify it under |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
14 // the terms of the GNU General Public License as published by the Free |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
15 // Software Foundation; either version 2 or (at your option) any later |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
16 // version. |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
17 // |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
18 // eCos is distributed in the hope that it will be useful, but WITHOUT |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
19 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
20 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
21 // for more details. |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
22 // |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
23 // You should have received a copy of the GNU General Public License |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
24 // along with eCos; if not, write to the Free Software Foundation, Inc., |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
25 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
26 // |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
27 // As a special exception, if other files instantiate templates or use |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
28 // macros or inline functions from this file, or you compile this file |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
29 // and link it with other works to produce a work based on this file, |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
30 // this file does not by itself cause the resulting work to be covered by |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
31 // the GNU General Public License. However the source code for this file |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
32 // must still be made available in accordance with section (3) of the GNU |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
33 // General Public License v2. |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
34 // |
|
2729
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
35 // This exception does not invalidate any other reasons why a work based |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
36 // on this file might be covered by the GNU General Public License. |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
37 // ------------------------------------------- |
|
74dbf4c3f2e1
Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents:
210
diff
changeset
|
38 // ####ECOSGPLCOPYRIGHTEND#### |
| 0 | 39 //========================================================================== |
| 40 //#####DESCRIPTIONBEGIN#### | |
| 41 // | |
| 2 | 42 // Author(s): hmt |
| 43 // Contributors: hmt | |
| 44 // Date: 1998-02-11 | |
| 45 // Purpose: Flag implementation | |
| 46 // Description: This file contains the implementations of the flag class | |
| 0 | 47 // |
| 48 //####DESCRIPTIONEND#### | |
| 49 // | |
| 50 //========================================================================== | |
| 51 | |
| 52 #include <pkgconf/kernel.h> | |
| 53 | |
| 54 #include <cyg/kernel/ktypes.h> // base kernel types | |
| 55 #include <cyg/infra/cyg_trac.h> // tracing macros | |
| 56 #include <cyg/infra/cyg_ass.h> // assertion macros | |
| 57 #include <cyg/kernel/instrmnt.h> // instrumentation | |
| 58 | |
| 59 #include <cyg/kernel/thread.inl> // thread inlines | |
| 60 | |
| 61 #include <cyg/kernel/flag.hxx> // our own header | |
| 62 | |
| 63 #include <cyg/kernel/sched.inl> // scheduler inlines | |
| 64 #include <cyg/kernel/clock.inl> // clock inlines | |
| 65 | |
| 66 // ------------------------------------------------------------------------- | |
| 67 // Constructor | |
| 68 | |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
69 Cyg_Flag::Cyg_Flag( Cyg_FlagValue init ) |
| 0 | 70 { |
| 71 CYG_REPORT_FUNCTION(); | |
| 72 value = init; | |
| 73 CYG_REPORT_RETURN(); | |
| 74 } | |
| 75 | |
| 76 // ------------------------------------------------------------------------- | |
| 77 // Destructor | |
| 78 | |
| 79 Cyg_Flag::~Cyg_Flag() | |
| 80 { | |
| 81 CYG_REPORT_FUNCTION(); | |
| 82 #if 0 | |
| 83 CYG_ASSERT( queue.empty(), "Deleting flag with threads waiting"); | |
| 84 #endif | |
| 85 // Prevent preemption | |
| 86 Cyg_Scheduler::lock(); | |
| 87 | |
| 88 while ( ! queue.empty() ) { | |
| 89 Cyg_Thread *thread = queue.dequeue(); | |
| 90 thread->set_wake_reason( Cyg_Thread::DESTRUCT ); | |
| 91 thread->wake(); | |
| 92 } | |
| 93 | |
| 94 // Unlock the scheduler and maybe switch threads | |
| 95 Cyg_Scheduler::unlock(); | |
| 96 CYG_REPORT_RETURN(); | |
| 97 } | |
| 98 | |
| 99 // ------------------------------------------------------------------------- | |
| 100 // debugging/assert function | |
| 101 | |
| 102 #ifdef CYGDBG_USE_ASSERTS | |
| 103 cyg_bool | |
| 2 | 104 Cyg_Flag::check_this(cyg_assert_class_zeal zeal) const |
| 0 | 105 { |
| 106 CYG_REPORT_FUNCTION(); | |
| 107 | |
| 108 if ( Cyg_Thread::DESTRUCT == Cyg_Thread::self()->get_wake_reason() ) | |
| 109 // then the whole thing is invalid, and we know it. | |
| 110 // so return OK, since this check should NOT make an error. | |
| 111 return true; | |
| 112 | |
| 113 // check that we have a non-NULL pointer first | |
| 114 if( this == NULL ) { | |
| 115 CYG_REPORT_RETVAL( false ); | |
| 116 return false; | |
| 117 } | |
| 118 | |
| 119 // there ain't a lot to check here. | |
| 120 CYG_REPORT_RETVAL( true ); | |
| 121 return true; | |
| 122 } | |
| 123 #endif | |
| 124 | |
| 125 // ------------------------------------------------------------------------- | |
| 126 // now the members themselves: | |
| 127 | |
| 128 // clear some bits in the value (all of them by default) by ANDing with the | |
| 129 // argument. This cannot make a wait condition become true, so there's not | |
| 130 // much to it. | |
| 131 void | |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
132 Cyg_Flag::maskbits( Cyg_FlagValue arg ) |
| 0 | 133 { |
| 134 CYG_REPORT_FUNCTION(); | |
| 135 | |
| 136 // Prevent preemption | |
| 137 Cyg_Scheduler::lock(); | |
| 138 | |
| 139 value &= arg; | |
| 140 // no need to wake anyone up; no waiter can become valid in | |
| 141 // consequence of this operation. | |
| 142 | |
| 143 // Unlock scheduler and allow other threads to run | |
| 144 Cyg_Scheduler::unlock(); | |
| 145 CYG_REPORT_RETURN(); | |
| 146 } | |
| 147 | |
| 148 | |
| 149 // ------------------------------------------------------------------------- | |
| 150 // set some bits in the value (all of them by default) and wake up any | |
| 151 // affected waiting threads; we do the decision making here so as to get | |
| 152 // atomicity wrt the other threads waking up - the value might have changed | |
| 153 // by the time they get to run. | |
| 154 | |
| 155 void | |
|
208
e0c0827131d1
Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents:
115
diff
changeset
|
156 Cyg_Flag::setbits( Cyg_FlagValue arg ) |
| 0 | 157 { |
| 158 CYG_REPORT_FUNCTION(); | |
| 159 CYG_ASSERTCLASS( this, "Bad this pointer"); | |
| 160 | |
| 161 // Prevent preemption | |
| 162 Cyg_Scheduler::lock(); | |
| 163 | |
| 164 // OR in the argument to get a new flag value. | |
| 165 value |= arg; | |
| 166 | |
| 167 // anyone waiting? | |
| 168 if ( !(queue.empty()) ) { | |
| 169 FlagWaitInfo *p; | |
| 170 Cyg_Thread *thread; | |
| 171 Cyg_ThreadQueue holding; | |
| 172 | |
| 173 do { | |
| 174 thread = queue.dequeue(); | |
| 175 p = (FlagWaitInfo *)(thread->get_wait_info()); | |
| 176 | |
| 177 CYG_ASSERT( (p->allmask == 0) != (p->anymask == 0), | |
| 178 "Both masks set" ); | |
| 179 CYG_ASSERT( 0 == p->value_out, "Thread already awoken?" ); | |
| 180 | |
| 181 if ( ((p->allmask != 0) && (p->allmask & value) == p->allmask) || | |
| 182 ((p->anymask & value) != 0 ) ) { | |
| 183 // success! awaken the thread | |
| 184 thread->set_wake_reason( Cyg_Thread::DONE ); | |
| 185 thread->wake(); | |
| 186 // return the successful value to it | |
| 187 p->value_out = value; | |
| 188 // do we clear the value; is this the end? | |
| 189 if ( p->do_clear ) { | |
| 190 // we can break here but need to preserve ordering | |
| 191 value = 0; | |
| 192 // so let it cycle the whole queue regardless | |
| 193 } | |
| 194 } | |
| 195 else { | |
| 196 // preserve the entry on the holding queue | |
| 197 holding.enqueue( thread ); | |
| 198 } | |
| 199 } while ( !(queue.empty()) ); | |
| 200 | |
| 201 // Now re-queue the unaffected threads back into the flag queue | |
| 202 while ( !(holding.empty()) ) { | |
| 203 queue.enqueue( holding.dequeue() ); | |
| 204 } | |
| 205 } | |
| 206 // Unlock scheduler and allow other threads to run | |
| 207 Cyg_Scheduler::unlock(); | |
| 208 CYG_REPORT_RETURN(); | |
| 209 } | |
| 210 | |
| 211 // ------------------------------------------------------------------------- | |
| 212 // Wait for a match on our pattern, according to the flags given. | |
| 213 // Return the matching value. | |
| 214 Cyg_FlagValue | |
| 215 Cyg_Flag::wait( Cyg_FlagValue pattern, WaitMode mode ) | |
| 216 { | |
| 217 CYG_REPORT_FUNCTION(); | |
| 218 CYG_ASSERTCLASS( this, "Bad this pointer"); | |
| 219 CYG_ASSERT( Cyg_Flag::MASK >= mode, "Bad mode" ); | |
| 220 | |
| 221 Cyg_FlagValue result; | |
| 222 | |
| 223 // Prevent preemption so that we compare atomically | |
| 224 Cyg_Scheduler::lock(); | |
| 225 | |
| 226 // try the current value | |
| 227 result = poll( pattern, mode ); | |
| 228 | |
| 229 if ( 0 != result ) { | |
| 230 Cyg_Scheduler::unlock(); | |
| 231 CYG_REPORT_RETVAL( result ); | |
| 232 return result; // all done | |
| 233 } | |
| 234 | |
| 235 // we have to wait until we are awoken | |
| 236 Cyg_Thread *self = Cyg_Thread::self(); | |
| 237 | |
| 238 FlagWaitInfo saveme; | |
| 239 saveme.allmask = (Cyg_Flag::OR & mode) ? 0 : pattern; | |
| 240 saveme.anymask = (Cyg_Flag::OR & mode) ? pattern : 0; | |
| 241 saveme.do_clear = (0 != (Cyg_Flag::CLR & mode)); | |
| 242 | |
| 243 self->set_wait_info( (CYG_ADDRWORD)&saveme ); | |
| 244 | |
| 245 result = true; // just being used as an early-out flag now | |
| 246 // this loop allows us to deal correctly with spurious wakeups | |
| 247 while ( result && (0 == saveme.value_out) ) { | |
| 248 self->set_sleep_reason( Cyg_Thread::WAIT ); | |
| 249 self->sleep(); | |
| 250 // keep track of myself on the queue of waiting threads | |
| 251 queue.enqueue( self ); | |
| 252 | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
253 // Allow other threads to run |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
254 Cyg_Scheduler::reschedule(); |
| 0 | 255 |
| 256 CYG_ASSERT( ((CYG_ADDRWORD)&saveme) == | |
| 257 Cyg_Thread::self()->get_wait_info(), | |
| 258 "Wait info lost" ); | |
| 259 | |
| 260 switch( self->get_wake_reason() ) | |
| 261 { | |
| 262 case Cyg_Thread::DESTRUCT: | |
| 263 case Cyg_Thread::BREAK: | |
| 264 result = false; | |
| 265 break; | |
| 266 | |
| 267 case Cyg_Thread::EXIT: | |
| 268 self->exit(); | |
| 269 break; | |
| 270 | |
| 271 default: | |
| 272 break; | |
| 273 } | |
| 274 } | |
| 275 | |
| 276 CYG_ASSERT( (false == result) ^ (0 != saveme.value_out), | |
| 277 "Break out but also good result!" ); | |
| 278 | |
| 279 // Unlock scheduler and allow other threads to run | |
| 280 Cyg_Scheduler::unlock(); | |
| 281 CYG_REPORT_RETVAL( saveme.value_out ); | |
| 282 return saveme.value_out; | |
| 283 } | |
| 284 | |
| 285 // ------------------------------------------------------------------------- | |
| 286 // Wait for a match on our pattern, with a timeout. | |
| 287 // Return the matching value, or zero if timed out. | |
| 288 // (zero cannot match any pattern). | |
| 289 #ifdef CYGFUN_KERNEL_THREADS_TIMER | |
| 290 Cyg_FlagValue | |
| 291 Cyg_Flag::wait( Cyg_FlagValue pattern, WaitMode mode, | |
| 292 cyg_tick_count abs_timeout ) | |
| 293 { | |
| 294 CYG_REPORT_FUNCTION(); | |
| 295 CYG_ASSERTCLASS( this, "Bad this pointer"); | |
| 296 CYG_ASSERT( Cyg_Flag::MASK >= mode, "Bad mode" ); | |
| 297 | |
| 298 Cyg_FlagValue result; | |
| 299 | |
| 300 // Prevent preemption so that we compare atomically | |
| 301 Cyg_Scheduler::lock(); | |
| 302 | |
| 303 // try the current value | |
| 304 result = poll( pattern, mode ); | |
| 305 | |
| 306 if ( 0 != result ) { | |
| 307 Cyg_Scheduler::unlock(); | |
| 308 CYG_REPORT_RETVAL( result ); | |
| 309 return result; // all done | |
| 310 } | |
| 311 | |
| 312 // we have to wait until we are awoken | |
| 313 Cyg_Thread *self = Cyg_Thread::self(); | |
| 314 | |
| 315 FlagWaitInfo saveme; | |
| 316 saveme.allmask = (Cyg_Flag::OR & mode) ? 0 : pattern; | |
| 317 saveme.anymask = (Cyg_Flag::OR & mode) ? pattern : 0; | |
| 318 saveme.do_clear = (0 != (Cyg_Flag::CLR & mode)); | |
| 319 | |
| 320 self->set_wait_info( (CYG_ADDRWORD)&saveme ); | |
| 321 | |
| 322 // Set the timer _once_ outside the loop. | |
| 323 self->set_timer( abs_timeout, Cyg_Thread::TIMEOUT ); | |
| 324 | |
| 325 // If the timeout was in the past, it will have changed the value | |
| 326 // of wake_reason, so avoid going into the loop. | |
| 327 if( self->get_wake_reason() != Cyg_Thread::NONE ) | |
| 328 result = false; | |
| 329 else result = true; | |
| 330 | |
| 331 // Result is just being used as an early-out flag now. This loop | |
| 332 // allows us to deal correctly with spurious wakeups. | |
| 333 | |
| 334 while ( result && (0 == saveme.value_out) ) { | |
| 335 self->set_sleep_reason( Cyg_Thread::TIMEOUT ); | |
| 336 self->sleep(); | |
| 337 // keep track of myself on the queue of waiting threads | |
| 338 queue.enqueue( self ); | |
| 339 | |
|
115
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
340 // Allow other threads to run |
|
6ed91473a1cd
Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents:
66
diff
changeset
|
341 Cyg_Scheduler::reschedule(); |
| 0 | 342 |
| 343 CYG_ASSERT( ((CYG_ADDRWORD)&saveme) == | |
| 344 Cyg_Thread::self()->get_wait_info(), | |
| 345 "Wait info lost" ); | |
| 346 | |
| 347 switch( self->get_wake_reason() ) | |
| 348 { | |
| 349 case Cyg_Thread::TIMEOUT: | |
| 350 result = false; | |
| 351 break; | |
| 352 | |
| 353 case Cyg_Thread::DESTRUCT: | |
| 354 case Cyg_Thread::BREAK: | |
| 355 result = false; | |
| 356 break; | |
| 357 | |
| 358 case Cyg_Thread::EXIT: | |
| 359 self->exit(); | |
| 360 break; | |
| 361 | |
| 362 default: | |
| 363 break; | |
| 364 } | |
| 365 } | |
| 366 | |
| 367 CYG_ASSERT( (false == result) ^ (0 != saveme.value_out), | |
| 368 "Break out but also good result!" ); | |
| 369 | |
| 370 // clear the timer; if it actually fired, no worries. | |
| 371 self->clear_timer(); | |
| 372 | |
| 373 // Unlock scheduler and allow other threads to run | |
| 374 Cyg_Scheduler::unlock(); | |
| 375 // in this version, value_out might be zero meaning timed out. | |
| 376 CYG_REPORT_RETVAL( saveme.value_out ); | |
| 377 return saveme.value_out; | |
| 378 } | |
| 379 #endif // CYGFUN_KERNEL_THREADS_TIMER | |
| 380 | |
| 381 // ------------------------------------------------------------------------- | |
| 382 // Test for a match on our pattern, according to the flags given. | |
| 383 // Return the matching value if success, else zero. | |
| 384 Cyg_FlagValue | |
| 385 Cyg_Flag::poll( Cyg_FlagValue pattern, WaitMode mode ) | |
| 386 { | |
| 387 CYG_REPORT_FUNCTION(); | |
| 388 CYG_ASSERTCLASS( this, "Bad this pointer"); | |
| 389 CYG_ASSERT( Cyg_Flag::MASK >= mode, "Bad mode" ); | |
| 390 | |
| 391 // Prevent preemption so that we compare atomically | |
| 392 Cyg_Scheduler::lock(); | |
| 393 | |
| 394 Cyg_FlagValue result = 0; | |
| 395 | |
| 396 if ( Cyg_Flag::OR & mode ) { | |
| 397 if ( 0 != (value & pattern) ) | |
| 398 result = value; | |
| 399 } | |
| 400 else { // Cyg_Flag::AND - all must be set | |
| 401 if ( (pattern != 0) && (pattern == (value & pattern)) ) | |
| 402 result = value; | |
| 403 } | |
| 404 | |
| 405 // result != 0 <=> test passed | |
| 406 if ( result && (Cyg_Flag::CLR & mode) ) | |
| 407 value = 0; | |
| 408 | |
| 409 Cyg_Scheduler::unlock(); | |
| 410 | |
| 411 CYG_REPORT_RETVAL( result ); | |
| 412 return result; | |
| 413 } | |
| 414 | |
| 415 | |
| 416 // ------------------------------------------------------------------------- | |
| 417 // EOF flag.cxx |