/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Utilities / ThreadLibrary 1.0 ƒ / Executables / ThreadsTest-68K / ThreadsTest-68K.rsrc / DATA_0

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 05 8c ff ff fa c9 | 40 b0 14 55 73 69 6e 67 |........|@..Using|
|00000010| 20 54 68 72 65 61 64 20 | 4c 49 42 52 41 52 59 14 | Thread |LIBRARY.|
|00000020| 55 73 69 6e 67 20 54 68 | 72 65 61 64 20 4d 41 4e |Using Th|read MAN|
|00000030| 41 47 45 52 54 68 72 65 | 61 64 41 20 73 89 65 72 |AGERThre|adA s.er|
|00000040| 74 46 61 69 6c 65 64 3a | 41 89 68 64 72 2d 3e 73 |tFailed:|A.hdr->s|
|00000050| 69 7a 65 20 20 3d 85 20 | 73 69 7a 65 20 20 26 8a |ize  =. |size  &.|
|00000060| 20 68 64 72 2d 3e 74 79 | 70 65 20 20 3d f6 20 74 | hdr->ty|pe  =. t|
|00000070| 79 70 65 00 54 68 72 65 | 61 64 51 75 65 75 65 56 |ype.Thre|adQueueV|
|00000080| 61 6c 69 64 28 71 75 65 | 75 65 29 00 54 68 72 65 |alid(que|ue).Thre|
|00000090| 61 64 56 61 6c 69 64 28 | 74 68 72 65 61 64 29 00 |adValid(|thread).|
|000000a0| 21 20 54 68 72 65 61 64 | 56 61 6c 69 64 28 74 68 |! Thread|Valid(th|
|000000b0| 72 65 61 64 2d 3e 6e 65 | 78 74 29 00 21 20 54 68 |read->ne|xt).! Th|
|000000c0| 72 65 61 64 56 61 6c 69 | 64 28 74 68 72 65 61 64 |readVali|d(thread|
|000000d0| 2d 3e 70 72 65 76 29 00 | 21 20 71 75 65 75 65 2d |->prev).|! queue-|
|000000e0| 3e 74 61 69 6c 41 9c 71 | 75 65 75 65 2d 3e 74 61 |>tailA.q|ueue->ta|
|000000f0| 69 6c 20 21 3d 20 30 00 | 71 75 65 75 65 2d 3e 74 |il != 0.|queue->t|
|00000100| 61 69 6c 20 20 3d ba 20 | 74 68 72 65 61 64 00 54 |ail  =. |thread.T|
|00000110| 68 72 65 61 64 56 61 6c | 69 64 28 74 68 72 65 61 |hreadVal|id(threa|
|00000120| 64 2d 3e 6e 65 78 74 29 | 00 54 68 72 65 61 64 56 |d->next)|.ThreadV|
|00000130| 61 6c 69 64 28 74 68 72 | 65 61 64 2d 3e 70 72 65 |alid(thr|ead->pre|
|00000140| 76 29 41 a7 71 75 65 75 | 65 2d 3e 6e 65 6c 65 6d |v)A.queu|e->nelem|
|00000150| 20 3e 20 30 00 74 68 72 | 65 61 64 2d 3e 70 72 65 | > 0.thr|ead->pre|
|00000160| 76 20 21 3d 20 74 68 72 | 65 61 64 20 20 26 9e 20 |v != thr|ead  &. |
|00000170| 74 68 72 65 61 64 2d 3e | 6e 65 78 74 20 21 3d 20 |thread->|next != |
|00000180| 74 68 72 65 61 64 00 54 | 68 72 65 61 64 45 20 72 |thread.T|hreadE r|
|00000190| 84 6f 72 28 29 20 20 3d | 81 20 65 20 72 8b 6f 72 |.or()  =|. e r.or|
|000001a0| 00 21 20 74 68 72 65 61 | 64 20 20 7c 9d 20 54 68 |.! threa|d  |. Th|
|000001b0| 72 65 61 64 56 61 6c 69 | 64 28 74 68 72 65 61 64 |readVali|d(thread|
|000001c0| 29 00 30 20 3c 3d 20 74 | 73 6e 20 20 26 95 20 74 |).0 <= t|sn  &. t|
|000001d0| 73 6e 20 3c 3d 20 67 54 | 68 72 65 61 64 2e 6c 61 |sn <= gT|hread.la|
|000001e0| 73 74 73 6e 41 88 21 20 | 74 68 72 65 61 64 20 20 |stsnA.! |thread  |
|000001f0| 7c 95 20 28 54 68 72 65 | 61 64 56 61 6c 69 64 28 ||. (Thre|adValid(|
|00000200| 74 68 72 65 61 64 29 20 | 20 26 8b 20 74 68 72 65 |thread) | &. thre|
|00000210| 61 64 2d 3e 73 6e 20 20 | 3d a2 20 74 73 6e 29 00 |ad->sn  |=. tsn).|
|00000220| 74 73 6e 20 21 3d 20 54 | 68 72 65 61 64 4d 61 69 |tsn != T|hreadMai|
|00000230| 6e 28 29 00 21 20 74 68 | 72 65 61 64 20 20 7c 95 |n().! th|read  |.|
|00000240| 20 54 68 72 65 61 64 50 | 72 6f 63 42 65 67 69 6e | ThreadP|rocBegin|
|00000250| 28 74 73 6e 29 20 20 3d | 8f 20 62 65 67 69 6e 00 |(tsn)  =|. begin.|
|00000260| 21 20 74 68 72 65 61 64 | 20 20 7c 93 20 54 68 72 |! thread|  |. Thr|
|00000270| 65 61 64 50 72 6f 63 45 | 6e 64 28 74 73 6e 29 20 |eadProcE|nd(tsn) |
|00000280| 20 3d 8c 20 65 6e 64 00 | 65 6e 61 62 6c 65 64 20 | =. end.|enabled |
|00000290| 20 3d 85 20 74 72 75 65 | 20 20 7c 88 20 65 6e 61 | =. true|  |. ena|
|000002a0| 62 6c 65 64 20 20 3d 85 | 20 66 61 6c 73 65 41 9b |bled  =.| falseA.|
|000002b0| 74 68 72 65 61 64 20 3f | 20 54 68 72 65 61 64 45 |thread ?| ThreadE|
|000002c0| 6e 61 62 6c 65 64 28 74 | 73 6e 29 20 20 3d 9d 20 |nabled(t|sn)  =. |
|000002d0| 65 6e 61 62 6c 65 64 20 | 3a 20 54 68 72 65 61 64 |enabled |: Thread|
|000002e0| 45 6e 61 62 6c 65 64 28 | 74 73 6e 29 20 20 3d 8d |Enabled(|tsn)  =.|
|000002f0| 20 66 61 6c 73 65 00 30 | 20 3c 3d 20 73 6c 20 65 | false.0| <= sl e|
|00000300| 81 70 20 20 26 82 20 73 | 6c 20 65 de 70 20 3c 3d |.p  &. s|l e.p <=|
|00000310| 20 28 32 31 34 37 34 38 | 33 36 34 37 29 00 54 68 | (214748|3647).Th|
|00000320| 72 65 61 64 56 61 6c 69 | 64 28 67 54 68 72 65 61 |readVali|d(gThrea|
|00000330| 64 2e 61 63 74 69 76 65 | 29 00 54 68 72 65 61 64 |d.active|).Thread|
|00000340| 56 61 6c 69 64 28 6e 65 | 77 74 68 72 65 61 64 29 |Valid(ne|wthread)|
|00000350| 00 6e 65 77 74 68 72 65 | 61 64 2d 3e 65 6e 61 62 |.newthre|ad->enab|
|00000360| 6c 65 64 00 74 68 72 65 | 61 64 20 20 3d 8f 20 67 |led.thre|ad  =. g|
|00000370| 54 68 72 65 61 64 2e 61 | 63 74 69 76 65 20 20 26 |Thread.a|ctive  &|
|00000380| a0 20 54 68 72 65 61 64 | 56 61 6c 69 64 28 74 68 |. Thread|Valid(th|
|00000390| 72 65 61 64 29 00 21 20 | 6f 6c 64 74 68 72 65 61 |read).! |oldthrea|
|000003a0| 64 20 20 7c 8b 20 28 6f | 6c 64 74 68 72 65 61 64 |d  |. (o|ldthread|
|000003b0| 20 20 3d 8f 20 67 54 68 | 72 65 61 64 2e 61 63 74 |  =. gTh|read.act|
|000003c0| 69 76 65 20 20 26 9a 20 | 54 68 72 65 61 64 56 61 |ive  &. |ThreadVa|
|000003d0| 6c 69 64 28 67 54 68 72 | 65 61 64 2e 61 63 74 69 |lid(gThr|ead.acti|
|000003e0| 76 65 20 29 40 8e 66 61 | 6c 73 65 00 21 20 74 68 |ve )@.fa|lse.! th|
|000003f0| 72 65 61 64 20 20 7c a8 | 20 74 68 72 65 61 64 20 |read  |.| thread |
|00000400| 21 3d 20 67 54 68 72 65 | 61 64 2e 61 63 74 69 76 |!= gThre|ad.activ|
|00000410| 65 00 67 54 68 72 65 61 | 64 2e 61 63 74 69 76 65 |e.gThrea|d.active|
|00000420| 20 20 3d 9b 20 74 68 72 | 65 61 64 00 67 54 68 72 |  =. thr|ead.gThr|
|00000430| 65 61 64 2e 71 75 65 75 | 65 2e 6e 65 6c 65 6d 20 |ead.queu|e.nelem |
|00000440| 20 3d 97 20 30 00 21 20 | 67 54 68 72 65 61 64 2e | =. 0.! |gThread.|
|00000450| 7a 6f 6d 62 69 65 00 74 | 73 6e 20 20 3d 84 20 28 |zombie.t|sn  =. (|
|00000460| 30 29 20 20 7c af 20 28 | 54 68 72 65 61 64 43 6f |0)  |. (|ThreadCo|
|00000470| 75 6e 74 28 29 20 3e 20 | 31 20 3f 20 74 73 6e 20 |unt() > |1 ? tsn |
|00000480| 21 3d 20 54 68 72 65 61 | 64 4d 61 69 6e 28 29 20 |!= Threa|dMain() |
|00000490| 3a 20 74 73 6e 20 20 3d | 8b 20 54 68 72 65 61 64 |: tsn  =|. Thread|
|000004a0| 4d 61 69 6e 28 20 29 41 | ab 21 20 67 54 68 72 65 |Main( )A|.! gThre|
|000004b0| 61 64 2e 6d 61 69 6e 00 | 74 68 72 65 61 64 20 3f |ad.main.|thread ?|
|000004c0| 20 54 68 72 65 61 64 56 | 61 6c 69 64 28 74 68 72 | ThreadV|alid(thr|
|000004d0| 65 61 64 29 20 20 26 89 | 20 21 20 54 68 72 65 61 |ead)  &.| ! Threa|
|000004e0| 64 45 20 72 8d 6f 72 28 | 29 20 3a 20 54 68 72 65 |dE r.or(|) : Thre|
|000004f0| 61 64 45 20 72 8b 6f 72 | 28 29 00 74 68 72 65 61 |adE r.or|().threa|
|00000500| 64 20 20 3d 9c 20 67 54 | 68 72 65 61 64 2e 6d 61 |d  =. gT|hread.ma|
|00000510| 69 6e 00 67 54 68 72 65 | 61 64 2e 61 63 74 69 76 |in.gThre|ad.activ|
|00000520| 65 20 20 3d a6 20 67 54 | 68 72 65 61 64 2e 6d 61 |e  =. gT|hread.ma|
|00000530| 69 6e 00 54 68 72 65 61 | 64 56 61 6c 69 64 28 67 |in.Threa|dValid(g|
|00000540| 54 68 72 65 61 64 2e 6d | 61 69 6e 29 41 99 65 6e |Thread.m|ain)A.en|
|00000550| 74 72 79 20 21 3d 20 30 | 00 30 20 3c 3d 20 73 74 |try != 0|.0 <= st|
|00000560| 61 63 6b 5f 73 69 7a 65 | 42 00 00 00 00 28 00 00 |ack_size|B....(..|
|00000570| 00 00 28 03 00 0c 02 03 | 00 20 02 03 02 2e 02 00 |..(.....|. ......|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|00000590| 43 0e f5 40 5c f7 40 a0 | 40 7d 42 86 44 51 00 00 |C..@\.@.|@}B.DQ..|
|000005a0| 00 26 40 6e 83 8a 43 92 | fd 40 de 94 41 70 40 a6 |.&@n..C.|.@..Ap@.|
|000005b0| 83 40 ea d8 af ee 45 f6 | 42 e3 40 9f 85 40 94 40 |.@....E.|B.@..@.@|
|000005c0| 8f e7 f3 f2 cb de 9e b5 | 8f 8d 99 8b b6 97 ed 90 |........|........|
|000005d0| 9d 86 84 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+