home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / ctools13.sit / SampleUNIX.C < prev   
MacBinary  |  1989-02-05  |  4.9 KB  |  [TEXT/????]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: SampleUNIX.C

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Feb 5 10:59:48 1989, modified Sun Feb 5 10:59:48 1989, creator '????', type ASCII, 4255 bytes "SampleUNIX.C" , at 0x111f 406 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[????]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 53 61 6d 70 6c 65 | 55 4e 49 58 2e 43 00 00 |..Sample|UNIX.C..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 01 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 10 9f 00 | 00 01 96 a0 12 1f f4 a0 |........|........|
|00000060| 12 1f f4 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4f 39 00 00 |........|....O9..|
|00000080| 2f 2a 20 0d 20 2a 09 41 | 20 73 61 6d 70 6c 65 20 |/* . *.A| sample |
|00000090| 6f 66 20 55 6e 69 78 28 | 54 4d 29 20 73 74 79 6c |of Unix(|TM) styl|
|000000a0| 65 20 73 6f 75 72 63 65 | 20 66 69 6c 65 2e 0d 20 |e source| file.. |
|000000b0| 2a 09 4f 70 65 6e 20 77 | 69 74 68 20 43 20 54 6f |*.Open w|ith C To|
|000000c0| 6f 6c 73 2c 20 73 65 6c | 65 63 74 20 22 46 69 6c |ols, sel|ect "Fil|
|000000d0| 65 20 53 74 72 69 70 65 | 72 22 20 66 72 6f 6d 20 |e Stripe|r" from |
|000000e0| 74 6f 6f 6c 73 20 6d 65 | 6e 75 2e 0d 20 2a 09 09 |tools me|nu.. *..|
|000000f0| 74 68 65 6e 20 63 68 65 | 63 6b 20 22 43 6f 6e 76 |then che|ck "Conv|
|00000100| 65 72 74 20 55 6e 69 78 | 20 46 69 6c 65 22 20 6f |ert Unix| File" o|
|00000110| 70 74 69 6f 6e 2e 0d 20 | 2a 09 41 66 74 65 72 20 |ption.. |*.After |
|00000120| 73 74 72 69 70 70 69 6e | 67 2c 20 72 75 6e 20 22 |strippin|g, run "|
|00000130| 73 6f 75 72 63 65 20 66 | 6f 72 6d 61 74 74 65 72 |source f|ormatter|
|00000140| 22 20 74 6f 20 63 6c 65 | 61 6e 20 75 70 20 69 6e |" to cle|an up in|
|00000150| 64 65 6e 74 61 74 69 6f | 6e 2e 0d 20 2a 2f 0d 0d |dentatio|n.. */..|
|00000160| 0d 2f 2a 0a 20 2a 20 6d | 69 6e 69 72 62 2e 63 20 |./*. * m|inirb.c |
|00000170| 42 79 20 43 68 75 63 6b | 20 46 6f 72 73 62 65 72 |By Chuck| Forsber|
|00000180| 67 20 4f 6d 65 6e 20 54 | 65 63 68 6e 6f 6c 6f 67 |g Omen T|echnolog|
|00000190| 79 20 49 4e 43 0a 20 2a | 20 09 20 20 20 22 54 68 |y INC. *| .   "Th|
|000001a0| 65 20 48 69 67 68 20 52 | 65 6c 69 61 62 69 6c 69 |e High R|eliabili|
|000001b0| 74 79 20 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |ty Commu|nication|
|000001c0| 73 20 53 6f 66 74 77 61 | 72 65 22 0a 20 2a 0a 20 |s Softwa|re". *. |
|000001d0| 2a 20 41 20 62 6f 6f 74 | 73 74 72 61 70 20 70 72 |* A boot|strap pr|
|000001e0| 6f 67 72 61 6d 20 66 6f | 72 20 55 6e 69 78 20 74 |ogram fo|r Unix t|
|000001f0| 6f 20 72 65 63 65 69 76 | 65 20 66 69 6c 65 73 20 |o receiv|e files |
|00000200| 66 72 6f 6d 20 63 6f 6d | 70 75 74 65 72 73 20 72 |from com|puters r|
|00000210| 75 6e 6e 69 6e 67 0a 20 | 2a 20 20 59 4d 4f 44 45 |unning. |*  YMODE|
|00000220| 4d 20 42 61 74 63 68 20 | 28 50 72 6f 66 65 73 73 |M Batch |(Profess|
|00000230| 69 6f 6e 61 6c 2d 59 41 | 4d 2c 20 50 6f 77 65 72 |ional-YA|M, Power|
|00000240| 43 6f 6d 2c 20 5a 43 4f | 4d 4d 2c 20 65 74 63 2e |Com, ZCO|MM, etc.|
|00000250| 29 2e 0a 20 2a 0a 20 2a | 09 4d 69 6e 69 72 62 20 |).. *. *|.Minirb |
|00000260| 75 73 65 73 20 73 79 73 | 74 65 6d 28 33 29 20 74 |uses sys|tem(3) t|
|00000270| 6f 20 63 61 6c 6c 20 73 | 74 74 79 2c 20 61 76 6f |o call s|tty, avo|
|00000280| 69 64 69 6e 67 20 73 79 | 73 74 65 6d 20 64 65 70 |iding sy|stem dep|
|00000290| 65 6e 64 65 6e 74 20 63 | 6f 64 65 2e 0a 20 2a 09 |endent c|ode.. *.|
|000002a0| 20 70 72 6f 67 72 61 6d | 20 73 74 72 69 70 73 20 | program| strips |
|000002b0| 43 52 20 61 6e 64 20 43 | 50 4d 45 4f 46 20 28 5e |CR and C|PMEOF (^|
|000002c0| 5a 29 20 63 68 61 72 61 | 63 74 65 72 73 20 28 73 |Z) chara|cters (s|
|000002d0| 65 65 20 70 75 74 73 65 | 63 28 29 29 2e 0a 20 2a |ee putse|c()).. *|
|000002e0| 20 20 50 6c 65 61 73 65 | 20 72 65 66 65 72 20 74 |  Please| refer t|
|000002f0| 6f 20 72 7a 2e 63 20 66 | 6f 72 20 63 6f 6d 6d 65 |o rz.c f|or comme|
|00000300| 6e 74 73 2c 20 65 74 63 | 2e 0a 20 2a 2f 0a 63 68 |nts, etc|.. */.ch|
|00000310| 61 72 20 2a 20 56 65 72 | 73 69 6f 6e 20 3d 20 22 |ar * Ver|sion = "|
|00000320| 6d 69 6e 69 72 62 20 32 | 2e 30 30 20 30 35 2d 32 |minirb 2|.00 05-2|
|00000330| 35 2d 38 37 22 3b 0a 0a | 23 69 6e 63 6c 75 64 65 |5-87";..|#include|
|00000340| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 23 69 6e 63 6c | <stdio.|h>.#incl|
|00000350| 75 64 65 20 3c 73 69 67 | 6e 61 6c 2e 68 3e 0a 23 |ude <sig|nal.h>.#|
|00000360| 69 6e 63 6c 75 64 65 20 | 3c 73 65 74 6a 6d 70 2e |include |<setjmp.|
|00000370| 68 3e 0a 0a 23 64 65 66 | 69 6e 65 20 4f 4b 20 30 |h>..#def|ine OK 0|
|00000380| 0a 23 64 65 66 69 6e 65 | 20 46 41 4c 53 45 20 30 |.#define| FALSE 0|
|00000390| 0a 23 64 65 66 69 6e 65 | 20 54 52 55 45 20 31 0a |.#define| TRUE 1.|
|000003a0| 23 64 65 66 69 6e 65 20 | 45 52 52 4f 52 20 28 2d |#define |ERROR (-|
|000003b0| 31 29 0a 23 64 65 66 69 | 6e 65 20 43 41 4e 20 28 |1).#defi|ne CAN (|
|000003c0| 27 58 27 26 30 33 37 29 | 0a 23 64 65 66 69 6e 65 |'X'&037)|.#define|
|000003d0| 20 53 4f 48 20 31 0a 23 | 64 65 66 69 6e 65 20 53 | SOH 1.#|define S|
|000003e0| 54 58 20 32 0a 23 64 65 | 66 69 6e 65 20 45 4f 54 |TX 2.#de|fine EOT|
|000003f0| 20 34 0a 23 64 65 66 69 | 6e 65 20 41 43 4b 20 36 | 4.#defi|ne ACK 6|
|00000400| 0a 23 64 65 66 69 6e 65 | 20 4e 41 4b 20 30 32 35 |.#define| NAK 025|
|00000410| 0a 23 64 65 66 69 6e 65 | 20 54 49 4d 45 4f 55 54 |.#define| TIMEOUT|
|00000420| 20 28 2d 32 29 0a 23 64 | 65 66 69 6e 65 20 52 45 | (-2).#d|efine RE|
|00000430| 54 52 59 4d 41 58 20 39 | 0a 23 64 65 66 69 6e 65 |TRYMAX 9|.#define|
|00000440| 20 57 43 45 4f 54 20 28 | 2d 31 30 29 0a 0a 46 49 | WCEOT (|-10)..FI|
|00000450| 4c 45 20 2a 66 6f 75 74 | 3b 0a 6c 6f 6e 67 20 42 |LE *fout|;.long B|
|00000460| 79 74 65 73 6c 65 66 74 | 3b 0a 69 6e 74 20 42 6c |ytesleft|;.int Bl|
|00000470| 6b 6c 65 6e 3b 0a 63 68 | 61 72 20 73 65 63 62 75 |klen;.ch|ar secbu|
|00000480| 66 5b 31 30 32 34 5d 3b | 0a 63 68 61 72 20 6c 69 |f[1024];|.char li|
|00000490| 6e 62 75 66 5b 31 30 32 | 34 5d 3b 0a 69 6e 74 20 |nbuf[102|4];.int |
|000004a0| 4c 6c 65 66 74 3d 30 3b | 0a 6a 6d 70 5f 62 75 66 |Lleft=0;|.jmp_buf|
|000004b0| 20 74 6f 68 65 72 65 3b | 0a 0a 61 6c 72 6d 28 29 | tohere;|..alrm()|
|000004c0| 20 7b 20 6c 6f 6e 67 6a | 6d 70 28 74 6f 68 65 72 | { longj|mp(toher|
|000004d0| 65 2c 20 2d 31 29 3b 20 | 7d 0a 0a 62 69 62 69 28 |e, -1); |}..bibi(|
|000004e0| 6e 29 20 7b 0a 20 63 61 | 6e 69 74 28 29 3b 20 6d |n) {. ca|nit(); m|
|000004f0| 6f 64 65 28 30 29 3b 0a | 20 66 70 72 69 6e 74 66 |ode(0);.| fprintf|
|00000500| 28 73 74 64 65 72 72 2c | 20 22 6d 69 6e 69 72 62 |(stderr,| "minirb|
|00000510| 3a 20 63 61 75 67 68 74 | 20 73 69 67 6e 61 6c 20 |: caught| signal |
|00000520| 25 64 3b 20 65 78 69 74 | 69 6e 67 22 2c 20 6e 29 |%d; exit|ing", n)|
|00000530| 3b 0a 20 65 78 69 74 28 | 31 32 38 2b 6e 29 3b 0a |;. exit(|128+n);.|
|00000540| 7d 0a 0a 6d 6f 64 65 28 | 6e 29 20 7b 0a 20 69 66 |}..mode(|n) {. if|
|00000550| 20 28 6e 29 20 73 79 73 | 74 65 6d 28 22 73 74 74 | (n) sys|tem("stt|
|00000560| 79 20 72 61 77 20 2d 65 | 63 68 6f 22 29 3b 0a 20 |y raw -e|cho");. |
|00000570| 65 6c 73 65 20 73 79 73 | 74 65 6d 28 22 73 74 74 |else sys|tem("stt|
|00000580| 79 20 65 63 68 6f 20 2d | 72 61 77 22 29 3b 0a 7d |y echo -|raw");.}|
|00000590| 0a 0a 6d 61 69 6e 28 29 | 20 7b 0a 20 6d 6f 64 65 |..main()| {. mode|
|000005a0| 28 31 29 3b 0a 20 69 66 | 20 28 73 69 67 6e 61 6c |(1);. if| (signal|
|000005b0| 28 53 49 47 49 4e 54 2c | 20 62 69 62 69 29 20 3d |(SIGINT,| bibi) =|
|000005c0| 3d 20 53 49 47 5f 49 47 | 4e 29 20 7b 0a 20 20 73 |= SIG_IG|N) {.  s|
|000005d0| 69 67 6e 61 6c 28 53 49 | 47 49 4e 54 2c 20 53 49 |ignal(SI|GINT, SI|
|000005e0| 47 5f 49 47 4e 29 3b 20 | 73 69 67 6e 61 6c 28 53 |G_IGN); |signal(S|
|000005f0| 49 47 4b 49 4c 4c 2c 20 | 53 49 47 5f 49 47 4e 29 |IGKILL, |SIG_IGN)|
|00000600| 3b 0a 20 7d 20 65 6c 73 | 65 20 7b 0a 20 20 73 69 |;. } els|e {.  si|
|00000610| 67 6e 61 6c 28 53 49 47 | 49 4e 54 2c 20 62 69 62 |gnal(SIG|INT, bib|
|00000620| 69 29 3b 20 73 69 67 6e | 61 6c 28 53 49 47 4b 49 |i); sign|al(SIGKI|
|00000630| 4c 4c 2c 20 62 69 62 69 | 29 3b 0a 20 7d 0a 20 70 |LL, bibi|);. }. p|
|00000640| 72 69 6e 74 66 28 22 6d | 69 6e 69 72 62 3a 20 4e |rintf("m|inirb: N|
|00000650| 6f 77 20 73 65 6e 64 20 | 66 69 6c 65 28 73 29 20 |ow send |file(s) |
|00000660| 77 69 74 68 20 5c 30 34 | 32 73 62 20 66 69 6c 65 |with \04|2sb file|
|00000670| 20 2e 2e 2e 5c 30 34 32 | 20 63 6f 6d 6d 61 6e 64 | ...\042| command|
|00000680| 5c 72 5c 6e 22 29 3b 0a | 0a 20 69 66 20 28 77 63 |\r\n");.|. if (wc|
|00000690| 72 65 63 65 69 76 65 28 | 29 3d 3d 45 52 52 4f 52 |receive(|)==ERROR|
|000006a0| 29 0a 09 63 61 6e 69 74 | 28 29 3b 0a 20 6d 6f 64 |)..canit|();. mod|
|000006b0| 65 28 30 29 3b 20 65 78 | 69 74 28 30 29 3b 0a 7d |e(0); ex|it(0);.}|
|000006c0| 0a 0a 77 63 72 65 63 65 | 69 76 65 28 29 20 7b 0a |..wcrece|ive() {.|
|000006d0| 20 66 6f 72 20 28 3b 3b | 29 20 7b 0a 20 20 69 66 | for (;;|) {.  if|
|000006e0| 20 28 77 63 72 78 70 6e | 28 73 65 63 62 75 66 29 | (wcrxpn|(secbuf)|
|000006f0| 20 3d 3d 20 45 52 52 4f | 52 29 20 62 72 65 61 6b | == ERRO|R) break|
|00000700| 3b 0a 20 20 69 66 20 28 | 73 65 63 62 75 66 5b 30 |;.  if (|secbuf[0|
|00000710| 5d 3d 3d 30 29 20 72 65 | 74 75 72 6e 20 4f 4b 3b |]==0) re|turn OK;|
|00000720| 0a 09 69 66 20 28 70 72 | 6f 63 68 65 61 64 65 72 |..if (pr|ocheader|
|00000730| 28 73 65 63 62 75 66 29 | 3d 3d 45 52 52 4f 52 20 |(secbuf)|==ERROR |
|00000740| 7c 7c 20 77 63 72 78 28 | 29 3d 3d 45 52 52 4f 52 ||| wcrx(|)==ERROR|
|00000750| 29 20 62 72 65 61 6b 3b | 0a 20 7d 0a 20 63 61 6e |) break;|. }. can|
|00000760| 69 74 28 29 3b 20 72 65 | 74 75 72 6e 20 45 52 52 |it(); re|turn ERR|
|00000770| 4f 52 3b 0a 7d 0a 0a 0a | 77 63 72 78 70 6e 28 72 |OR;.}...|wcrxpn(r|
|00000780| 70 6e 29 20 63 68 61 72 | 20 2a 72 70 6e 3b 20 7b |pn) char| *rpn; {|
|00000790| 0a 20 72 65 67 69 73 74 | 65 72 20 63 3b 0a 0a 20 |. regist|er c;.. |
|000007a0| 70 75 72 67 65 6c 69 6e | 65 28 29 3b 0a 65 74 5f |purgelin|e();.et_|
|000007b0| 74 75 3a 0a 20 73 65 6e | 64 6c 69 6e 65 28 4e 41 |tu:. sen|dline(NA|
|000007c0| 4b 29 3b 20 4c 6c 65 66 | 74 3d 30 3b 0a 20 77 68 |K); Llef|t=0;. wh|
|000007d0| 69 6c 65 20 28 28 63 20 | 3d 20 77 63 67 65 74 73 |ile ((c |= wcgets|
|000007e0| 65 63 28 72 70 6e 2c 20 | 31 30 30 29 29 20 21 3d |ec(rpn, |100)) !=|
|000007f0| 20 30 29 20 7b 0a 20 20 | 69 66 20 28 63 20 3d 3d | 0) {.  |if (c ==|
|00000800| 20 57 43 45 4f 54 29 20 | 7b 20 73 65 6e 64 6c 69 | WCEOT) |{ sendli|
|00000810| 6e 65 28 41 43 4b 29 3b | 20 4c 6c 65 66 74 3d 30 |ne(ACK);| Lleft=0|
|00000820| 3b 20 72 65 61 64 6c 69 | 6e 65 28 31 29 3b 20 67 |; readli|ne(1); g|
|00000830| 6f 74 6f 20 65 74 5f 74 | 75 3b 20 7d 0a 20 20 72 |oto et_t|u; }.  r|
|00000840| 65 74 75 72 6e 20 45 52 | 52 4f 52 3b 0a 20 7d 0a |eturn ER|ROR;. }.|
|00000850| 20 73 65 6e 64 6c 69 6e | 65 28 41 43 4b 29 3b 20 | sendlin|e(ACK); |
|00000860| 72 65 74 75 72 6e 20 4f | 4b 3b 0a 7d 0a 0a 77 63 |return O|K;.}..wc|
|00000870| 72 78 28 29 20 7b 0a 20 | 72 65 67 69 73 74 65 72 |rx() {. |register|
|00000880| 20 69 6e 74 20 73 65 63 | 74 6e 75 6d 2c 20 73 65 | int sec|tnum, se|
|00000890| 63 74 63 75 72 72 2c 20 | 73 65 6e 64 63 68 61 72 |ctcurr, |sendchar|
|000008a0| 2c 20 63 62 6c 6b 6c 65 | 6e 3b 0a 0a 20 73 65 63 |, cblkle|n;.. sec|
|000008b0| 74 6e 75 6d 3d 30 3b 20 | 73 65 6e 64 63 68 61 72 |tnum=0; |sendchar|
|000008c0| 3d 4e 41 4b 3b 0a 20 66 | 6f 72 20 28 3b 3b 29 20 |=NAK;. f|or (;;) |
|000008d0| 7b 0a 20 20 73 65 6e 64 | 6c 69 6e 65 28 73 65 6e |{.  send|line(sen|
|000008e0| 64 63 68 61 72 29 3b 20 | 4c 6c 65 66 74 3d 30 3b |dchar); |Lleft=0;|
|000008f0| 0a 20 20 73 65 63 74 63 | 75 72 72 3d 77 63 67 65 |.  sectc|urr=wcge|
|00000900| 74 73 65 63 28 73 65 63 | 62 75 66 2c 20 35 30 29 |tsec(sec|buf, 50)|
|00000910| 3b 0a 20 20 69 66 20 28 | 73 65 63 74 63 75 72 72 |;.  if (|sectcurr|
|00000920| 3d 3d 28 73 65 63 74 6e | 75 6d 2b 31 20 26 20 30 |==(sectn|um+1 & 0|
|00000930| 33 37 37 29 29 20 7b 0a | 09 20 73 65 63 74 6e 75 |377)) {.|. sectnu|
|00000940| 6d 2b 2b 3b 20 63 62 6c | 6b 6c 65 6e 20 3d 20 42 |m++; cbl|klen = B|
|00000950| 79 74 65 73 6c 65 66 74 | 3e 42 6c 6b 6c 65 6e 20 |ytesleft|>Blklen |
|00000960| 3f 20 42 6c 6b 6c 65 6e | 3a 42 79 74 65 73 6c 65 |? Blklen|:Bytesle|
|00000970| 66 74 3b 0a 20 20 20 70 | 75 74 73 65 63 28 73 65 |ft;.   p|utsec(se|
|00000980| 63 62 75 66 2c 20 63 62 | 6c 6b 6c 65 6e 29 3b 0a |cbuf, cb|lklen);.|
|00000990| 20 20 20 69 66 20 28 28 | 42 79 74 65 73 6c 65 66 |   if ((|Byteslef|
|000009a0| 74 2d 3d 63 62 6c 6b 6c | 65 6e 29 20 3c 20 30 29 |t-=cblkl|en) < 0)|
|000009b0| 20 42 79 74 65 73 6c 65 | 66 74 20 3d 20 30 3b 0a | Bytesle|ft = 0;.|
|000009c0| 20 20 20 73 65 6e 64 63 | 68 61 72 3d 41 43 4b 3b |   sendc|har=ACK;|
|000009d0| 0a 20 20 7d 0a 20 20 65 | 6c 73 65 20 69 66 20 28 |.  }.  e|lse if (|
|000009e0| 73 65 63 74 63 75 72 72 | 3d 3d 28 73 65 63 74 6e |sectcurr|==(sectn|
|000009f0| 75 6d 26 30 33 37 37 29 | 29 20 73 65 6e 64 63 68 |um&0377)|) sendch|
|00000a00| 61 72 3d 41 43 4b 3b 0a | 20 20 65 6c 73 65 20 69 |ar=ACK;.|  else i|
|00000a10| 66 20 28 73 65 63 74 63 | 75 72 72 3d 3d 57 43 45 |f (sectc|urr==WCE|
|00000a20| 4f 54 29 20 7b 0a 09 69 | 66 20 28 66 63 6c 6f 73 |OT) {..i|f (fclos|
|00000a30| 65 28 66 6f 75 74 29 3d | 3d 45 52 52 4f 52 29 20 |e(fout)=|=ERROR) |
|00000a40| 72 65 74 75 72 6e 20 45 | 52 52 4f 52 3b 0a 20 20 |return E|RROR;.  |
|00000a50| 20 73 65 6e 64 6c 69 6e | 65 28 41 43 4b 29 3b 20 | sendlin|e(ACK); |
|00000a60| 4c 6c 65 66 74 3d 30 3b | 20 72 65 74 75 72 6e 20 |Lleft=0;| return |
|00000a70| 4f 4b 3b 0a 20 20 7d 0a | 20 20 65 6c 73 65 20 69 |OK;.  }.|  else i|
|00000a80| 66 20 28 73 65 63 74 63 | 75 72 72 3d 3d 45 52 52 |f (sectc|urr==ERR|
|00000a90| 4f 52 29 20 72 65 74 75 | 72 6e 20 45 52 52 4f 52 |OR) retu|rn ERROR|
|00000aa0| 3b 0a 20 20 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |;.  else| return |
|00000ab0| 45 52 52 4f 52 3b 0a 20 | 7d 0a 7d 0a 0a 77 63 67 |ERROR;. |}.}..wcg|
|00000ac0| 65 74 73 65 63 28 72 78 | 62 75 66 2c 20 6d 61 78 |etsec(rx|buf, max|
|00000ad0| 74 69 6d 65 29 20 63 68 | 61 72 20 2a 72 78 62 75 |time) ch|ar *rxbu|
|00000ae0| 66 3b 20 69 6e 74 20 6d | 61 78 74 69 6d 65 3b 20 |f; int m|axtime; |
|00000af0| 7b 0a 20 72 65 67 69 73 | 74 65 72 20 63 68 65 63 |{. regis|ter chec|
|00000b00| 6b 73 75 6d 2c 20 77 63 | 6a 2c 20 66 69 72 73 74 |ksum, wc|j, first|
|00000b10| 63 68 3b 20 72 65 67 69 | 73 74 65 72 20 63 68 61 |ch; regi|ster cha|
|00000b20| 72 20 2a 70 3b 20 69 6e | 74 20 73 65 63 74 63 75 |r *p; in|t sectcu|
|00000b30| 72 72 2c 20 65 72 72 6f | 72 73 3b 0a 20 66 6f 72 |rr, erro|rs;. for|
|00000b40| 20 28 65 72 72 6f 72 73 | 3d 30 3b 20 65 72 72 6f | (errors|=0; erro|
|00000b50| 72 73 3c 52 45 54 52 59 | 4d 41 58 3b 20 65 72 72 |rs<RETRY|MAX; err|
|00000b60| 6f 72 73 2b 2b 29 20 7b | 0a 09 69 66 20 28 28 66 |ors++) {|..if ((f|
|00000b70| 69 72 73 74 63 68 3d 72 | 65 61 64 6c 69 6e 65 28 |irstch=r|eadline(|
|00000b80| 6d 61 78 74 69 6d 65 29 | 29 3d 3d 53 54 58 29 20 |maxtime)|)==STX) |
|00000b90| 7b 20 42 6c 6b 6c 65 6e | 3d 31 30 32 34 3b 20 67 |{ Blklen|=1024; g|
|00000ba0| 6f 74 6f 20 67 65 74 32 | 3b 20 7d 0a 09 69 66 20 |oto get2|; }..if |
|00000bb0| 28 66 69 72 73 74 63 68 | 3d 3d 53 4f 48 29 20 7b |(firstch|==SOH) {|
|00000bc0| 0a 20 20 20 42 6c 6b 6c | 65 6e 3d 31 32 38 3b 0a |.   Blkl|en=128;.|
|00000bd0| 67 65 74 32 3a 0a 09 73 | 65 63 74 63 75 72 72 3d |get2:..s|ectcurr=|
|00000be0| 72 65 61 64 6c 69 6e 65 | 28 31 29 3b 20 63 68 65 |readline|(1); che|
|00000bf0| 63 6b 73 75 6d 3d 30 3b | 0a 09 20 69 66 20 28 28 |cksum=0;|.. if ((|
|00000c00| 73 65 63 74 63 75 72 72 | 2b 28 72 65 61 64 6c 69 |sectcurr|+(readli|
|00000c10| 6e 65 28 31 29 29 29 3d | 3d 30 33 37 37 29 20 7b |ne(1)))=|=0377) {|
|00000c20| 0a 20 20 20 20 66 6f 72 | 20 28 70 3d 72 78 62 75 |.    for| (p=rxbu|
|00000c30| 66 2c 77 63 6a 3d 42 6c | 6b 6c 65 6e 3b 20 2d 2d |f,wcj=Bl|klen; --|
|00000c40| 77 63 6a 3e 3d 30 3b 20 | 29 20 7b 0a 09 20 20 20 |wcj>=0; |) {..   |
|00000c50| 69 66 20 28 28 66 69 72 | 73 74 63 68 3d 72 65 61 |if ((fir|stch=rea|
|00000c60| 64 6c 69 6e 65 28 31 29 | 29 20 3c 20 30 29 20 67 |dline(1)|) < 0) g|
|00000c70| 6f 74 6f 20 62 69 6c 67 | 65 3b 0a 09 20 20 20 63 |oto bilg|e;..   c|
|00000c80| 68 65 63 6b 73 75 6d 20 | 2b 3d 20 28 2a 70 2b 2b |hecksum |+= (*p++|
|00000c90| 20 3d 20 66 69 72 73 74 | 63 68 29 3b 0a 09 20 7d | = first|ch);.. }|
|00000ca0| 0a 20 20 20 20 69 66 20 | 28 28 66 69 72 73 74 63 |.    if |((firstc|
|00000cb0| 68 3d 72 65 61 64 6c 69 | 6e 65 28 31 29 29 20 3c |h=readli|ne(1)) <|
|00000cc0| 20 30 29 20 67 6f 74 6f | 20 62 69 6c 67 65 3b 0a | 0) goto| bilge;.|
|00000cd0| 09 20 20 69 66 20 28 28 | 28 63 68 65 63 6b 73 75 |.  if ((|(checksu|
|00000ce0| 6d 2d 66 69 72 73 74 63 | 68 29 26 30 33 37 37 29 |m-firstc|h)&0377)|
|00000cf0| 3d 3d 30 29 20 72 65 74 | 75 72 6e 20 73 65 63 74 |==0) ret|urn sect|
|00000d00| 63 75 72 72 3b 0a 09 7d | 0a 09 7d 0a 09 65 6c 73 |curr;..}|..}..els|
|00000d10| 65 20 69 66 20 28 66 69 | 72 73 74 63 68 3d 3d 45 |e if (fi|rstch==E|
|00000d20| 4f 54 29 20 72 65 74 75 | 72 6e 20 57 43 45 4f 54 |OT) retu|rn WCEOT|
|00000d30| 3b 0a 20 20 65 6c 73 65 | 20 69 66 20 28 66 69 72 |;.  else| if (fir|
|00000d40| 73 74 63 68 3d 3d 43 41 | 4e 29 20 72 65 74 75 72 |stch==CA|N) retur|
|00000d50| 6e 20 45 52 52 4f 52 3b | 0a 62 69 6c 67 65 3a 0a |n ERROR;|.bilge:.|
|00000d60| 20 20 77 68 69 6c 65 28 | 72 65 61 64 6c 69 6e 65 |  while(|readline|
|00000d70| 28 31 29 21 3d 54 49 4d | 45 4f 55 54 29 0a 09 3b |(1)!=TIM|EOUT)..;|
|00000d80| 0a 09 6d 61 78 74 69 6d | 65 3d 34 30 3b 20 73 65 |..maxtim|e=40; se|
|00000d90| 6e 64 6c 69 6e 65 28 4e | 41 4b 29 3b 20 4c 6c 65 |ndline(N|AK); Lle|
|00000da0| 66 74 3d 30 3b 0a 20 7d | 0a 20 63 61 6e 69 74 28 |ft=0;. }|. canit(|
|00000db0| 29 3b 20 72 65 74 75 72 | 6e 20 45 52 52 4f 52 3b |); retur|n ERROR;|
|00000dc0| 0a 7d 0a 0a 72 65 61 64 | 6c 69 6e 65 28 74 69 6d |.}..read|line(tim|
|00000dd0| 65 6f 75 74 29 20 69 6e | 74 20 74 69 6d 65 6f 75 |eout) in|t timeou|
|00000de0| 74 3b 20 7b 0a 20 72 65 | 67 69 73 74 65 72 20 6e |t; {. re|gister n|
|00000df0| 3b 20 73 74 61 74 69 63 | 20 63 68 61 72 20 2a 63 |; static| char *c|
|00000e00| 64 71 3b 0a 0a 20 69 66 | 20 28 2d 2d 4c 6c 65 66 |dq;.. if| (--Llef|
|00000e10| 74 20 3e 3d 20 30 29 20 | 72 65 74 75 72 6e 20 28 |t >= 0) |return (|
|00000e20| 2a 63 64 71 2b 2b 20 26 | 20 30 33 37 37 29 3b 0a |*cdq++ &| 0377);.|
|00000e30| 20 6e 20 3d 20 74 69 6d | 65 6f 75 74 2f 31 30 3b | n = tim|eout/10;|
|00000e40| 0a 20 69 66 20 28 6e 20 | 3c 20 32 29 20 6e 20 3d |. if (n |< 2) n =|
|00000e50| 20 33 3b 0a 20 69 66 20 | 28 73 65 74 6a 6d 70 28 | 3;. if |(setjmp(|
|00000e60| 74 6f 68 65 72 65 29 29 | 20 7b 20 4c 6c 65 66 74 |tohere))| { Lleft|
|00000e70| 20 3d 20 30 3b 20 72 65 | 74 75 72 6e 20 54 49 4d | = 0; re|turn TIM|
|00000e80| 45 4f 55 54 3b 20 7d 0a | 20 73 69 67 6e 61 6c 28 |EOUT; }.| signal(|
|00000e90| 53 49 47 41 4c 52 4d 2c | 20 61 6c 72 6d 29 3b 20 |SIGALRM,| alrm); |
|00000ea0| 61 6c 61 72 6d 28 6e 29 | 3b 0a 20 4c 6c 65 66 74 |alarm(n)|;. Lleft|
|00000eb0| 3d 72 65 61 64 28 30 2c | 20 63 64 71 3d 6c 69 6e |=read(0,| cdq=lin|
|00000ec0| 62 75 66 2c 20 31 30 32 | 34 29 3b 20 61 6c 61 72 |buf, 102|4); alar|
|00000ed0| 6d 28 30 29 3b 0a 20 69 | 66 20 28 4c 6c 65 66 74 |m(0);. i|f (Lleft|
|00000ee0| 20 3c 20 31 29 20 72 65 | 74 75 72 6e 20 54 49 4d | < 1) re|turn TIM|
|00000ef0| 45 4f 55 54 3b 0a 20 2d | 2d 4c 6c 65 66 74 3b 20 |EOUT;. -|-Lleft; |
|00000f00| 72 65 74 75 72 6e 20 28 | 2a 63 64 71 2b 2b 20 26 |return (|*cdq++ &|
|00000f10| 20 30 33 37 37 29 3b 0a | 7d 0a 0a 70 75 72 67 65 | 0377);.|}..purge|
|00000f20| 6c 69 6e 65 28 29 20 7b | 20 4c 6c 65 66 74 20 3d |line() {| Lleft =|
|00000f30| 20 30 3b 20 6c 73 65 65 | 6b 28 30 2c 20 30 4c 2c | 0; lsee|k(0, 0L,|
|00000f40| 20 32 29 3b 20 7d 0a 0a | 0a 70 72 6f 63 68 65 61 | 2); }..|.prochea|
|00000f50| 64 65 72 28 6e 61 6d 65 | 29 20 63 68 61 72 20 2a |der(name|) char *|
|00000f60| 6e 61 6d 65 3b 20 7b 0a | 20 72 65 67 69 73 74 65 |name; {.| registe|
|00000f70| 72 20 63 68 61 72 20 2a | 70 3b 0a 0a 20 42 79 74 |r char *|p;.. Byt|
|00000f80| 65 73 6c 65 66 74 20 3d | 20 32 30 30 30 30 30 30 |esleft =| 2000000|
|00000f90| 30 30 30 4c 3b 20 70 20 | 3d 20 6e 61 6d 65 20 2b |000L; p |= name +|
|00000fa0| 20 31 20 2b 20 73 74 72 | 6c 65 6e 28 6e 61 6d 65 | 1 + str|len(name|
|00000fb0| 29 3b 0a 20 69 66 20 28 | 2a 70 29 20 73 73 63 61 |);. if (|*p) ssca|
|00000fc0| 6e 66 28 70 2c 20 22 25 | 6c 64 22 2c 20 26 42 79 |nf(p, "%|ld", &By|
|00000fd0| 74 65 73 6c 65 66 74 29 | 3b 0a 20 69 66 20 28 28 |tesleft)|;. if ((|
|00000fe0| 66 6f 75 74 3d 66 6f 70 | 65 6e 28 6e 61 6d 65 2c |fout=fop|en(name,|
|00000ff0| 20 22 77 22 29 29 20 3d | 3d 20 4e 55 4c 4c 29 20 | "w")) =|= NULL) |
|00001000| 72 65 74 75 72 6e 20 45 | 52 52 4f 52 3b 0a 20 72 |return E|RROR;. r|
|00001010| 65 74 75 72 6e 20 4f 4b | 3b 0a 7d 0a 0a 70 75 74 |eturn OK|;.}..put|
|00001020| 73 65 63 28 70 2c 20 6e | 29 20 63 68 61 72 20 2a |sec(p, n|) char *|
|00001030| 70 3b 20 69 6e 74 20 6e | 3b 0a 7b 20 66 6f 72 20 |p; int n|;.{ for |
|00001040| 28 3b 20 2d 2d 6e 3e 3d | 30 3b 20 2b 2b 70 29 20 |(; --n>=|0; ++p) |
|00001050| 69 66 20 28 2a 70 20 21 | 3d 20 30 31 35 20 26 26 |if (*p !|= 015 &&|
|00001060| 20 2a 70 20 21 3d 20 30 | 33 32 29 20 70 75 74 63 | *p != 0|32) putc|
|00001070| 28 2a 70 2c 20 66 6f 75 | 74 29 3b 20 7d 0a 0a 73 |(*p, fou|t); }..s|
|00001080| 65 6e 64 6c 69 6e 65 28 | 63 29 20 7b 20 63 68 61 |endline(|c) { cha|
|00001090| 72 20 64 3b 20 64 20 3d | 20 63 3b 20 77 72 69 74 |r d; d =| c; writ|
|000010a0| 65 28 31 2c 20 26 64 2c | 20 31 29 3b 20 7d 0a 0a |e(1, &d,| 1); }..|
|000010b0| 63 68 61 72 20 63 61 6e | 69 73 74 72 5b 5d 20 3d |char can|istr[] =|
|000010c0| 20 7b 20 32 34 2c 32 34 | 2c 32 34 2c 32 34 2c 32 | { 24,24|,24,24,2|
|000010d0| 34 2c 32 34 2c 32 34 2c | 32 34 2c 30 20 7d 3b 0a |4,24,24,|24,0 };.|
|000010e0| 0a 63 61 6e 69 74 28 29 | 20 7b 20 70 72 69 6e 74 |.canit()| { print|
|000010f0| 66 28 63 61 6e 69 73 74 | 72 29 3b 20 4c 6c 65 66 |f(canist|r); Llef|
|00001100| 74 3d 30 3b 20 7d 0a 0a | 2f 2a 20 45 4e 44 20 6f |t=0; }..|/* END o|
|00001110| 66 20 6d 69 6e 69 72 62 | 2e 63 20 2a 2f 0a 0a 00 |f minirb|.c */...|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 5a |.......<|...<...Z|
|00001190| 00 00 0e 9b 0b 43 54 4f | 4f 4c 53 20 30 2e 39 35 |.....CTO|OLS 0.95|
|000011a0| 02 00 00 00 41 50 50 4c | 47 47 48 37 21 00 00 a0 |....APPL|GGH7!...|
|000011b0| 0c 53 61 6d 70 6c 65 55 | 4e 49 58 2e 43 2e 02 00 |.SampleU|NIX.C...|
|000011c0| 00 00 54 45 58 54 54 50 | 41 53 00 00 00 00 00 00 |..TEXTTP|AS......|
|000011d0| 00 00 54 45 58 54 54 50 | 41 53 00 00 00 00 00 00 |..TEXTTP|AS......|
|000011e0| 00 00 00 84 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 1a dc 9f b4 bb dc 00 00 | 10 9f 00 00 01 96 00 00 |........|........|
|00001200| 00 00 00 00 00 00 11 00 | 00 00 0e 9b 0b 43 54 4f |........|.....CTO|
|00001210| 4f 4c 53 20 31 2e 30 30 | 02 00 00 00 41 50 50 4c |OLS 1.00|....APPL|
|00001220| 47 47 48 37 21 00 00 8d | 00 c0 00 00 00 00 1a e9 |GGH7!...|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 7d f0 |........|......}.|
|00001240| 00 00 7e 00 9f b4 c7 e7 | 9f b4 c8 06 00 00 00 00 |..~.....|........|
|00001250| 7a 40 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |z@......|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 09 c2 |........|........|
|00001270| 00 01 0a 2c 00 05 0c a8 | 00 18 00 00 00 00 00 00 |...,....|........|
|00001280| 00 00 00 2a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |...*...M|onaco...|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 04 00 06 00 04 00 00 | 00 02 01 e0 00 00 01 00 |........|........|
|000012c0| 00 00 01 3c 00 00 00 3c | 00 00 00 5a 00 02 15 20 |...<...<|...Z... |
|000012d0| 01 7a 00 00 00 1c 00 5a | 00 02 45 46 4e 54 00 00 |.z.....Z|..EFNT..|
|000012e0| 00 1a 45 54 41 42 00 00 | 00 26 45 51 45 44 00 00 |..ETAB..|.&EQED..|
|000012f0| 00 32 03 eb ff ff 00 00 | 00 00 00 00 00 00 03 ec |.2......|........|
|00001300| ff ff 00 00 00 2e 00 00 | 00 00 03 eb ff ff 00 00 |........|........|
|00001310| 00 36 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.6......|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+