/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume13 / vn.jan.88 / part05

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 31 33 69 30 32 |Subject:|  v13i02|
|00000010| 33 3a 20 20 56 4e 20 6e | 65 77 73 72 65 61 64 65 |3:  VN n|ewsreade|
|00000020| 72 2c 20 31 2f 38 38 20 | 76 65 72 73 69 6f 6e 2c |r, 1/88 |version,|
|00000030| 20 50 61 72 74 30 35 2f | 30 35 0a 4e 65 77 73 67 | Part05/|05.Newsg|
|00000040| 72 6f 75 70 73 3a 20 63 | 6f 6d 70 2e 73 6f 75 72 |roups: c|omp.sour|
|00000050| 63 65 73 2e 75 6e 69 78 | 0a 53 65 6e 64 65 72 3a |ces.unix|.Sender:|
|00000060| 20 73 6f 75 72 63 65 73 | 0a 41 70 70 72 6f 76 65 | sources|.Approve|
|00000070| 64 3a 20 72 73 61 6c 7a | 40 75 75 6e 65 74 2e 55 |d: rsalz|@uunet.U|
|00000080| 55 2e 4e 45 54 0a 0a 53 | 75 62 6d 69 74 74 65 64 |U.NET..S|ubmitted|
|00000090| 2d 62 79 3a 20 42 6f 62 | 20 4d 63 71 75 65 65 72 |-by: Bob| Mcqueer|
|000000a0| 20 3c 61 6d 64 61 68 6c | 21 72 74 65 63 68 21 72 | <amdahl|!rtech!r|
|000000b0| 74 65 63 68 21 62 6f 62 | 6d 40 55 55 4e 45 54 2e |tech!bob|m@UUNET.|
|000000c0| 55 55 2e 4e 45 54 3e 0a | 50 6f 73 74 69 6e 67 2d |UU.NET>.|Posting-|
|000000d0| 6e 75 6d 62 65 72 3a 20 | 56 6f 6c 75 6d 65 20 31 |number: |Volume 1|
|000000e0| 33 2c 20 49 73 73 75 65 | 20 32 33 0a 41 72 63 68 |3, Issue| 23.Arch|
|000000f0| 69 76 65 2d 6e 61 6d 65 | 3a 20 76 6e 2e 6a 61 6e |ive-name|: vn.jan|
|00000100| 2e 38 38 2f 70 61 72 74 | 30 35 0a 0a 23 21 20 2f |.88/part|05..#! /|
|00000110| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000120| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000130| 2c 20 6d 65 61 6e 69 6e | 67 3a 0a 23 20 31 2e 20 |, meanin|g:.# 1. |
|00000140| 52 65 6d 6f 76 65 20 65 | 76 65 72 79 74 68 69 6e |Remove e|verythin|
|00000150| 67 20 61 62 6f 76 65 20 | 74 68 65 20 23 21 20 2f |g above |the #! /|
|00000160| 62 69 6e 2f 73 68 20 6c | 69 6e 65 2e 0a 23 20 32 |bin/sh l|ine..# 2|
|00000170| 2e 20 53 61 76 65 20 74 | 68 65 20 72 65 73 75 6c |. Save t|he resul|
|00000180| 74 69 6e 67 20 74 65 78 | 74 20 69 6e 20 61 20 66 |ting tex|t in a f|
|00000190| 69 6c 65 2e 0a 23 20 33 | 2e 20 45 78 65 63 75 74 |ile..# 3|. Execut|
|000001a0| 65 20 74 68 65 20 66 69 | 6c 65 20 77 69 74 68 20 |e the fi|le with |
|000001b0| 2f 62 69 6e 2f 73 68 20 | 28 6e 6f 74 20 63 73 68 |/bin/sh |(not csh|
|000001c0| 29 20 74 6f 20 63 72 65 | 61 74 65 20 74 68 65 20 |) to cre|ate the |
|000001d0| 66 69 6c 65 73 3a 0a 23 | 09 73 65 73 73 69 6f 6e |files:.#|.session|
|000001e0| 2e 63 0a 23 09 72 65 61 | 64 65 72 2e 63 0a 23 09 |.c.#.rea|der.c.#.|
|000001f0| 63 6f 6e 66 69 67 2e 68 | 0a 65 78 70 6f 72 74 20 |config.h|.export |
|00000200| 50 41 54 48 3b 20 50 41 | 54 48 3d 2f 62 69 6e 3a |PATH; PA|TH=/bin:|
|00000210| 24 50 41 54 48 0a 65 63 | 68 6f 20 73 68 61 72 3a |$PATH.ec|ho shar:|
|00000220| 20 65 78 74 72 61 63 74 | 69 6e 67 20 22 27 73 65 | extract|ing "'se|
|00000230| 73 73 69 6f 6e 2e 63 27 | 22 20 27 28 31 39 34 37 |ssion.c'|" '(1947|
|00000240| 36 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |6 charac|ters)'.i|
|00000250| 66 20 74 65 73 74 20 2d | 66 20 27 73 65 73 73 69 |f test -|f 'sessi|
|00000260| 6f 6e 2e 63 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |on.c'.th|en..echo|
|00000270| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00000280| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000290| 69 6e 67 20 66 69 6c 65 | 20 22 27 73 65 73 73 69 |ing file| "'sessi|
|000002a0| 6f 6e 2e 63 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |on.c'".e|lse.cat |
|000002b0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|000002c0| 73 65 73 73 69 6f 6e 2e | 63 27 0a 2f 2a 0a 2a 2a |session.|c'./*.**|
|000002d0| 20 76 6e 20 6e 65 77 73 | 20 72 65 61 64 65 72 2e | vn news| reader.|
|000002e0| 0a 2a 2a 0a 2a 2a 20 73 | 65 73 73 69 6f 6e 2e 63 |.**.** s|ession.c|
|000002f0| 20 2d 20 74 6f 70 20 73 | 65 73 73 69 6f 6e 20 6c | - top s|ession l|
|00000300| 6f 6f 70 0a 2a 2a 0a 2a | 2a 20 73 65 65 20 63 6f |oop.**.*|* see co|
|00000310| 70 79 72 69 67 68 74 20 | 64 69 73 63 6c 61 69 6d |pyright |disclaim|
|00000320| 65 72 20 2f 20 68 69 73 | 74 6f 72 79 20 69 6e 20 |er / his|tory in |
|00000330| 76 6e 2e 63 20 73 6f 75 | 72 63 65 20 66 69 6c 65 |vn.c sou|rce file|
|00000340| 0a 2a 2f 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 74 |.*/.#inc|lude <st|
|00000350| 64 69 6f 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |dio.h>.#|include |
|00000360| 3c 73 65 74 6a 6d 70 2e | 68 3e 0a 23 69 6e 63 6c |<setjmp.|h>.#incl|
|00000370| 75 64 65 20 22 63 6f 6e | 66 69 67 2e 68 22 0a 23 |ude "con|fig.h".#|
|00000380| 69 6e 63 6c 75 64 65 20 | 22 74 74 79 2e 68 22 0a |include |"tty.h".|
|00000390| 23 69 6e 63 6c 75 64 65 | 20 22 62 72 6b 2e 68 22 |#include| "brk.h"|
|000003a0| 0a 23 69 6e 63 6c 75 64 | 65 20 22 68 65 61 64 2e |.#includ|e "head.|
|000003b0| 68 22 0a 23 69 6e 63 6c | 75 64 65 20 22 74 75 6e |h".#incl|ude "tun|
|000003c0| 65 2e 68 22 0a 23 69 6e | 63 6c 75 64 65 20 22 6e |e.h".#in|clude "n|
|000003d0| 6f 64 65 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |ode.h".#|include |
|000003e0| 22 70 61 67 65 2e 68 22 | 0a 23 69 6e 63 6c 75 64 |"page.h"|.#includ|
|000003f0| 65 20 22 76 6e 2e 68 22 | 0a 0a 65 78 74 65 72 6e |e "vn.h"|..extern|
|00000400| 20 4e 4f 44 45 20 2a 2a | 4e 65 77 73 6f 72 64 65 | NODE **|Newsorde|
|00000410| 72 3b 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 45 |r;.exter|n char E|
|00000420| 72 61 73 65 6b 65 79 2c | 20 4b 69 6c 6c 6b 65 79 |rasekey,| Killkey|
|00000430| 3b 0a 65 78 74 65 72 6e | 20 69 6e 74 20 52 6f 74 |;.extern| int Rot|
|00000440| 3b 0a 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 50 |;.extern| char *P|
|00000450| 73 31 2c 2a 50 72 69 6e | 74 65 72 3b 0a 65 78 74 |s1,*Prin|ter;.ext|
|00000460| 65 72 6e 20 63 68 61 72 | 20 2a 4f 72 67 64 69 72 |ern char| *Orgdir|
|00000470| 2c 2a 53 61 76 65 66 69 | 6c 65 3b 0a 65 78 74 65 |,*Savefi|le;.exte|
|00000480| 72 6e 20 69 6e 74 20 4e | 63 6f 75 6e 74 2c 20 43 |rn int N|count, C|
|00000490| 75 72 5f 70 61 67 65 2c | 20 4c 72 65 63 2c 20 4c |ur_page,| Lrec, L|
|000004a0| 5f 61 6c 6c 6f 77 2c 20 | 43 5f 61 6c 6c 6f 77 3b |_allow, |C_allow;|
|000004b0| 0a 65 78 74 65 72 6e 20 | 69 6e 74 20 48 65 61 64 |.extern |int Head|
|000004c0| 66 6c 61 67 3b 0a 65 78 | 74 65 72 6e 20 50 41 47 |flag;.ex|tern PAG|
|000004d0| 45 20 50 61 67 65 3b 0a | 65 78 74 65 72 6e 20 69 |E Page;.|extern i|
|000004e0| 6e 74 20 44 69 67 65 73 | 74 3b 0a 65 78 74 65 72 |nt Diges|t;.exter|
|000004f0| 6e 20 63 68 61 72 20 2a | 4e 6f 5f 6d 73 67 3b 0a |n char *|No_msg;.|
|00000500| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 48 64 6f |extern c|har *Hdo|
|00000510| 6e 5f 6d 73 67 3b 0a 65 | 78 74 65 72 6e 20 63 68 |n_msg;.e|xtern ch|
|00000520| 61 72 20 2a 48 64 6f 66 | 66 5f 6d 73 67 3b 0a 65 |ar *Hdof|f_msg;.e|
|00000530| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 52 6f 74 6f |xtern ch|ar *Roto|
|00000540| 6e 5f 6d 73 67 3b 0a 65 | 78 74 65 72 6e 20 63 68 |n_msg;.e|xtern ch|
|00000550| 61 72 20 2a 52 6f 74 6f | 66 66 5f 6d 73 67 3b 0a |ar *Roto|ff_msg;.|
|00000560| 65 78 74 65 72 6e 20 63 | 68 61 72 20 43 78 69 74 |extern c|har Cxit|
|00000570| 6f 70 5b 5d 2c 20 43 78 | 70 74 6f 69 5b 5d 3b 0a |op[], Cx|ptoi[];.|
|00000580| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 41 66 6f |extern c|har *Afo|
|00000590| 72 6d 61 74 3b 0a 65 78 | 74 65 72 6e 20 63 68 61 |rmat;.ex|tern cha|
|000005a0| 72 20 2a 43 6f 6e 74 73 | 74 72 3b 0a 65 78 74 65 |r *Conts|tr;.exte|
|000005b0| 72 6e 20 63 68 61 72 20 | 2a 4b 6c 2c 2a 4b 72 2c |rn char |*Kl,*Kr,|
|000005c0| 2a 4b 75 2c 2a 4b 64 3b | 0a 65 78 74 65 72 6e 20 |*Ku,*Kd;|.extern |
|000005d0| 69 6e 74 20 4e 6f 75 6e | 73 75 62 2c 20 4c 69 73 |int Noun|sub, Lis|
|000005e0| 74 66 69 72 73 74 3b 0a | 65 78 74 65 72 6e 20 63 |tfirst;.|extern c|
|000005f0| 68 61 72 20 2a 4c 69 73 | 74 5f 73 65 70 3b 0a 65 |har *Lis|t_sep;.e|
|00000600| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 56 65 72 73 |xtern ch|ar *Vers|
|00000610| 69 6f 6e 2c 20 2a 56 6e | 73 5f 76 65 72 73 69 6f |ion, *Vn|s_versio|
|00000620| 6e 3b 0a 0a 65 78 74 65 | 72 6e 20 69 6e 74 20 28 |n;..exte|rn int (|
|00000630| 2a 48 65 61 64 65 64 69 | 74 29 28 29 3b 0a 0a 73 |*Headedi|t)();..s|
|00000640| 74 61 74 69 63 20 69 6e | 74 20 43 5f 69 6e 66 6f |tatic in|t C_info|
|00000650| 3b 0a 73 74 61 74 69 63 | 20 69 6e 74 20 44 73 6b |;.static| int Dsk|
|00000660| 69 70 2c 20 44 72 65 63 | 3b 0a 0a 73 74 61 74 69 |ip, Drec|;..stati|
|00000670| 63 20 63 68 61 72 20 2a | 55 6e 73 75 62 5f 6d 73 |c char *|Unsub_ms|
|00000680| 67 20 3d 20 22 55 6e 73 | 75 62 73 63 72 69 62 65 |g = "Uns|ubscribe|
|00000690| 64 22 3b 0a 73 74 61 74 | 69 63 20 63 68 61 72 20 |d";.stat|ic char |
|000006a0| 2a 45 67 72 6f 75 70 5f | 6d 73 67 20 3d 20 22 45 |*Egroup_|msg = "E|
|000006b0| 6e 74 69 72 65 20 6e 65 | 77 73 67 72 6f 75 70 22 |ntire ne|wsgroup"|
|000006c0| 3b 0a 0a 73 74 61 74 69 | 63 20 69 6e 74 20 43 72 |;..stati|c int Cr|
|000006d0| 65 63 3b 0a 73 74 61 74 | 69 63 20 69 6e 74 20 48 |ec;.stat|ic int H|
|000006e0| 69 67 68 72 65 63 3b 0a | 0c 0a 2f 2a 0a 09 6d 61 |ighrec;.|../*..ma|
|000006f0| 69 6e 20 73 65 73 73 69 | 6f 6e 20 68 61 6e 64 6c |in sessi|on handl|
|00000700| 65 72 20 70 72 6f 63 65 | 73 73 69 6e 67 20 69 6e |er proce|ssing in|
|00000710| 70 75 74 20 63 6f 6d 6d | 61 6e 64 73 0a 0a 09 4e |put comm|ands...N|
|00000720| 4f 54 45 3a 20 74 68 69 | 73 20 69 73 20 77 68 65 |OTE: thi|s is whe|
|00000730| 72 65 20 61 20 73 65 74 | 6a 6d 70 20 63 61 6c 6c |re a set|jmp call|
|00000740| 20 69 73 20 6d 61 64 65 | 20 74 6f 20 73 65 74 20 | is made| to set |
|00000750| 74 68 65 20 62 72 65 61 | 6b 20 72 65 65 6e 74 72 |the brea|k reentr|
|00000760| 79 0a 09 09 6c 6f 63 61 | 74 69 6f 6e 2e 20 20 4b |y...loca|tion.  K|
|00000770| 65 65 70 20 74 68 65 20 | 70 6f 73 73 69 62 6c 65 |eep the |possible|
|00000780| 20 75 73 65 72 20 73 74 | 61 74 65 73 20 69 6e 20 | user st|ates in |
|00000790| 6d 69 6e 64 2e 0a 2a 2f | 0a 73 65 73 73 69 6f 6e |mind..*/|.session|
|000007a0| 20 28 29 0a 7b 0a 09 63 | 68 61 72 20 61 6c 69 73 | ().{..c|har alis|
|000007b0| 74 20 5b 52 45 43 4c 45 | 4e 5d 2c 20 63 3b 0a 09 |t [RECLE|N], c;..|
|000007c0| 69 6e 74 20 6e 65 77 67 | 2c 20 69 2c 20 63 6f 75 |int newg|, i, cou|
|000007d0| 6e 74 3b 0a 09 6a 6d 70 | 5f 62 75 66 20 62 72 6b |nt;..jmp|_buf brk|
|000007e0| 62 75 66 3b 0a 0a 09 6e | 65 77 67 20 3d 20 6e 65 |buf;...n|ewg = ne|
|000007f0| 77 5f 67 72 6f 75 70 73 | 28 29 3b 0a 09 74 74 79 |w_groups|();..tty|
|00000800| 5f 73 65 74 20 28 52 41 | 57 4d 4f 44 45 29 3b 0a |_set (RA|WMODE);.|
|00000810| 09 66 69 6e 64 5f 70 61 | 67 65 20 28 30 29 3b 0a |.find_pa|ge (0);.|
|00000820| 09 44 69 67 65 73 74 20 | 3d 20 30 3b 0a 0a 09 2f |.Digest |= 0;.../|
|00000830| 2a 20 72 65 65 6e 74 72 | 79 20 70 6f 69 6e 74 20 |* reentr|y point |
|00000840| 66 6f 72 20 62 72 65 61 | 6b 20 66 72 6f 6d 20 77 |for brea|k from w|
|00000850| 69 74 68 69 6e 20 73 65 | 73 73 69 6f 6e 20 69 6e |ithin se|ssion in|
|00000860| 74 65 72 61 63 74 69 6f | 6e 20 2a 2f 0a 09 73 65 |teractio|n */..se|
|00000870| 74 6a 6d 70 20 28 62 72 | 6b 62 75 66 29 3b 0a 09 |tjmp (br|kbuf);..|
|00000880| 73 69 67 5f 73 65 74 20 | 28 42 52 4b 5f 53 45 53 |sig_set |(BRK_SES|
|00000890| 53 2c 62 72 6b 62 75 66 | 29 3b 0a 09 48 65 61 64 |S,brkbuf|);..Head|
|000008a0| 66 6c 61 67 20 3d 20 46 | 41 4c 53 45 3b 0a 09 52 |flag = F|ALSE;..R|
|000008b0| 6f 74 20 3d 20 30 3b 0a | 0a 09 2f 2a 20 64 6f 6e |ot = 0;.|../* don|
|000008c0| 65 20 74 68 69 73 20 77 | 61 79 20 73 6f 20 74 68 |e this w|ay so th|
|000008d0| 61 74 20 75 73 65 72 20 | 67 65 74 73 20 22 72 65 |at user |gets "re|
|000008e0| 61 6c 6c 79 20 71 75 69 | 74 3f 22 20 62 72 65 61 |ally qui|t?" brea|
|000008f0| 6b 20 74 72 65 61 74 6d | 65 6e 74 20 2a 2f 0a 09 |k treatm|ent */..|
|00000900| 69 66 20 28 6e 65 77 67 | 20 3e 20 30 29 0a 09 7b |if (newg| > 0)..{|
|00000910| 0a 09 09 70 72 69 6e 74 | 66 20 28 22 5c 6e 25 73 |...print|f ("\n%s|
|00000920| 22 2c 43 6f 6e 74 73 74 | 72 29 3b 0a 09 09 67 65 |",Contst|r);...ge|
|00000930| 74 6e 6f 63 74 6c 28 29 | 3b 0a 09 09 6e 65 77 67 |tnoctl()|;...newg|
|00000940| 20 3d 20 30 3b 0a 09 7d | 0a 0a 09 2f 2a 20 6c 69 | = 0;..}|.../* li|
|00000950| 73 74 20 70 72 65 76 69 | 65 77 20 6f 70 74 69 6f |st previ|ew optio|
|00000960| 6e 20 2d 20 63 6c 65 61 | 72 20 61 66 74 65 72 20 |n - clea|r after |
|00000970| 66 69 72 73 74 20 74 69 | 6d 65 20 66 6f 72 20 6c |first ti|me for l|
|00000980| 6f 6e 67 20 6a 75 6d 70 | 73 20 2a 2f 0a 09 69 66 |ong jump|s */..if|
|00000990| 20 28 4c 69 73 74 66 69 | 72 73 74 29 0a 09 7b 0a | (Listfi|rst)..{.|
|000009a0| 09 09 2f 2a 20 74 6f 74 | 5f 6c 69 73 74 20 73 65 |../* tot|_list se|
|000009b0| 74 74 69 6e 67 73 20 77 | 69 6c 6c 20 62 65 20 6f |ttings w|ill be o|
|000009c0| 76 65 72 77 72 69 74 74 | 65 6e 20 69 6e 20 74 68 |verwritt|en in th|
|000009d0| 69 73 20 63 61 73 65 20 | 2a 2f 0a 09 09 74 6f 74 |is case |*/...tot|
|000009e0| 5f 6c 69 73 74 28 29 3b | 0a 09 09 4c 69 73 74 66 |_list();|...Listf|
|000009f0| 69 72 73 74 20 3d 20 30 | 3b 0a 09 7d 0a 0a 09 2f |irst = 0|;..}.../|
|00000a00| 2a 20 69 66 20 62 72 65 | 61 6b 69 6e 67 20 66 72 |* if bre|aking fr|
|00000a10| 6f 6d 20 61 20 64 69 67 | 65 73 74 2c 20 72 65 63 |om a dig|est, rec|
|00000a20| 6f 76 65 72 20 6f 72 69 | 67 69 6e 61 6c 20 70 61 |over ori|ginal pa|
|00000a30| 67 65 20 2a 2f 0a 09 69 | 66 20 28 44 69 67 65 73 |ge */..i|f (Diges|
|00000a40| 74 29 0a 09 7b 0a 09 09 | 66 69 6e 64 5f 70 61 67 |t)..{...|find_pag|
|00000a50| 65 28 43 75 72 5f 70 61 | 67 65 29 3b 0a 09 09 44 |e(Cur_pa|ge);...D|
|00000a60| 69 67 65 73 74 20 3d 20 | 30 3b 0a 09 7d 0a 09 73 |igest = |0;..}..s|
|00000a70| 68 6f 77 20 28 29 3b 0a | 09 43 72 65 63 20 3d 20 |how ();.|.Crec = |
|00000a80| 52 45 43 42 49 41 53 3b | 0a 09 48 69 67 68 72 65 |RECBIAS;|..Highre|
|00000a90| 63 20 3d 20 50 61 67 65 | 2e 68 2e 61 72 74 6e 75 |c = Page|.h.artnu|
|00000aa0| 6d 20 2b 20 52 45 43 42 | 49 41 53 3b 0a 09 74 65 |m + RECB|IAS;..te|
|00000ab0| 72 6d 5f 73 65 74 20 28 | 4d 4f 56 45 2c 30 2c 43 |rm_set (|MOVE,0,C|
|00000ac0| 72 65 63 29 3b 0a 0a 09 | 2f 2a 0a 09 09 68 61 6e |rec);...|/*...han|
|00000ad0| 64 6c 65 20 63 6f 6d 6d | 61 6e 64 73 20 75 6e 74 |dle comm|ands unt|
|00000ae0| 69 6c 20 51 55 49 54 2c | 20 75 70 64 61 74 65 20 |il QUIT,| update |
|00000af0| 67 6c 6f 62 61 6c 2f 6c | 6f 63 61 6c 20 73 74 61 |global/l|ocal sta|
|00000b00| 74 75 73 0a 09 09 61 6e | 64 20 64 69 73 70 6c 61 |tus...an|d displa|
|00000b10| 79 20 66 6f 72 20 65 61 | 63 68 2e 0a 09 20 2a 2f |y for ea|ch... */|
|00000b20| 0a 09 66 6f 72 20 28 63 | 6f 75 6e 74 20 3d 20 67 |..for (c|ount = g|
|00000b30| 65 74 6b 65 79 28 26 63 | 29 3b 20 63 20 21 3d 20 |etkey(&c|); c != |
|00000b40| 51 55 49 54 3b 20 63 6f | 75 6e 74 20 3d 20 67 65 |QUIT; co|unt = ge|
|00000b50| 74 6b 65 79 28 26 63 29 | 29 0a 09 7b 0a 09 09 69 |tkey(&c)|)..{...i|
|00000b60| 66 20 28 20 73 72 63 68 | 5f 68 65 6c 70 28 63 2c |f ( srch|_help(c,|
|00000b70| 26 69 29 20 21 3d 20 30 | 20 7c 7c 20 28 44 69 67 |&i) != 0| || (Dig|
|00000b80| 65 73 74 20 21 3d 20 30 | 20 26 26 20 69 20 3d 3d |est != 0| && i ==|
|00000b90| 20 30 29 29 0a 09 09 7b | 0a 09 09 09 70 72 65 69 | 0))...{|....prei|
|00000ba0| 6e 66 6f 20 28 55 44 4b | 46 4f 52 4d 2c 43 78 70 |nfo (UDK|FORM,Cxp|
|00000bb0| 74 6f 69 5b 48 45 4c 50 | 5d 29 3b 0a 09 09 09 74 |toi[HELP|]);....t|
|00000bc0| 65 72 6d 5f 73 65 74 20 | 28 4d 4f 56 45 2c 20 30 |erm_set |(MOVE, 0|
|00000bd0| 2c 20 43 72 65 63 29 3b | 0a 09 09 09 63 6f 6e 74 |, Crec);|....cont|
|00000be0| 69 6e 75 65 3b 0a 09 09 | 7d 0a 0a 09 09 73 77 69 |inue;...|}....swi|
|00000bf0| 74 63 68 20 28 63 29 0a | 09 09 7b 0a 09 09 63 61 |tch (c).|..{...ca|
|00000c00| 73 65 20 48 45 41 44 54 | 4f 47 3a 0a 09 09 09 69 |se HEADT|OG:....i|
|00000c10| 66 20 28 48 65 61 64 65 | 64 69 74 20 21 3d 20 4e |f (Heade|dit != N|
|00000c20| 55 4c 4c 29 0a 09 09 09 | 7b 0a 09 09 09 09 74 65 |ULL)....|{.....te|
|00000c30| 72 6d 5f 73 65 74 28 45 | 52 41 53 45 29 3b 0a 09 |rm_set(E|RASE);..|
|00000c40| 09 09 09 28 2a 48 65 61 | 64 65 64 69 74 29 28 29 |...(*Hea|dedit)()|
|00000c50| 3b 0a 09 09 09 09 73 68 | 6f 77 28 29 3b 0a 09 09 |;.....sh|ow();...|
|00000c60| 09 09 74 65 72 6d 5f 73 | 65 74 20 28 4d 4f 56 45 |..term_s|et (MOVE|
|00000c70| 2c 30 2c 43 72 65 63 29 | 3b 0a 09 09 09 09 62 72 |,0,Crec)|;.....br|
|00000c80| 65 61 6b 3b 0a 09 09 09 | 7d 0a 09 09 09 69 66 20 |eak;....|}....if |
|00000c90| 28 48 65 61 64 66 6c 61 | 67 29 0a 09 09 09 7b 0a |(Headfla|g)....{.|
|00000ca0| 09 09 09 09 48 65 61 64 | 66 6c 61 67 20 3d 20 46 |....Head|flag = F|
|00000cb0| 41 4c 53 45 3b 0a 09 09 | 09 09 70 72 69 6e 66 6f |ALSE;...|..prinfo|
|00000cc0| 20 28 48 64 6f 66 66 5f | 6d 73 67 29 3b 0a 09 09 | (Hdoff_|msg);...|
|00000cd0| 09 7d 0a 09 09 09 65 6c | 73 65 0a 09 09 09 7b 0a |.}....el|se....{.|
|00000ce0| 09 09 09 09 48 65 61 64 | 66 6c 61 67 20 3d 20 54 |....Head|flag = T|
|00000cf0| 52 55 45 3b 0a 09 09 09 | 09 70 72 69 6e 66 6f 20 |RUE;....|.prinfo |
|00000d00| 28 48 64 6f 6e 5f 6d 73 | 67 29 3b 0a 09 09 09 7d |(Hdon_ms|g);....}|
|00000d10| 0a 09 09 09 74 65 72 6d | 5f 73 65 74 20 28 4d 4f |....term|_set (MO|
|00000d20| 56 45 2c 30 2c 43 72 65 | 63 29 3b 0a 09 09 09 62 |VE,0,Cre|c);....b|
|00000d30| 72 65 61 6b 3b 0a 09 09 | 63 61 73 65 20 53 45 54 |reak;...|case SET|
|00000d40| 52 4f 54 3a 0a 09 09 09 | 69 66 20 28 52 6f 74 20 |ROT:....|if (Rot |
|00000d50| 3d 3d 20 30 29 0a 09 09 | 09 7b 0a 09 09 09 09 52 |== 0)...|.{.....R|
|00000d60| 6f 74 20 3d 20 31 33 3b | 0a 09 09 09 09 70 72 69 |ot = 13;|.....pri|
|00000d70| 6e 66 6f 20 28 52 6f 74 | 6f 6e 5f 6d 73 67 29 3b |nfo (Rot|on_msg);|
|00000d80| 0a 09 09 09 7d 0a 09 09 | 09 65 6c 73 65 0a 09 09 |....}...|.else...|
|00000d90| 09 7b 0a 09 09 09 09 52 | 6f 74 20 3d 20 30 3b 0a |.{.....R|ot = 0;.|
|00000da0| 09 09 09 09 70 72 69 6e | 66 6f 20 28 52 6f 74 6f |....prin|fo (Roto|
|00000db0| 66 66 5f 6d 73 67 29 3b | 0a 09 09 09 7d 0a 09 09 |ff_msg);|....}...|
|00000dc0| 09 74 65 72 6d 5f 73 65 | 74 20 28 4d 4f 56 45 2c |.term_se|t (MOVE,|
|00000dd0| 30 2c 43 72 65 63 29 3b | 0a 09 09 09 62 72 65 61 |0,Crec);|....brea|
|00000de0| 6b 3b 0a 09 09 63 61 73 | 65 20 53 53 54 41 54 3a |k;...cas|e SSTAT:|
|00000df0| 0a 09 09 09 63 6f 75 6e | 74 5f 6d 73 67 20 28 29 |....coun|t_msg ()|
|00000e00| 3b 0a 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |;....ter|m_set (M|
|00000e10| 4f 56 45 2c 30 2c 43 72 | 65 63 29 3b 0a 09 09 09 |OVE,0,Cr|ec);....|
|00000e20| 62 72 65 61 6b 3b 0a 09 | 09 63 61 73 65 20 47 52 |break;..|.case GR|
|00000e30| 50 4c 49 53 54 3a 0a 09 | 09 09 74 6f 74 5f 6c 69 |PLIST:..|..tot_li|
|00000e40| 73 74 20 28 29 3b 0a 09 | 09 09 73 68 6f 77 28 29 |st ();..|..show()|
|00000e50| 3b 0a 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |;....ter|m_set (M|
|00000e60| 4f 56 45 2c 30 2c 43 72 | 65 63 29 3b 0a 09 09 09 |OVE,0,Cr|ec);....|
|00000e70| 62 72 65 61 6b 3b 0a 09 | 09 63 61 73 65 20 52 45 |break;..|.case RE|
|00000e80| 44 52 41 57 3a 0a 09 09 | 09 73 68 6f 77 28 29 3b |DRAW:...|.show();|
|00000e90| 0a 09 09 09 74 65 72 6d | 5f 73 65 74 20 28 4d 4f |....term|_set (MO|
|00000ea0| 56 45 2c 30 2c 43 72 65 | 63 29 3b 0a 09 09 09 62 |VE,0,Cre|c);....b|
|00000eb0| 72 65 61 6b 3b 0a 09 09 | 63 61 73 65 20 55 4e 53 |reak;...|case UNS|
|00000ec0| 55 42 53 43 52 49 42 45 | 3a 0a 09 09 09 6e 65 77 |UBSCRIBE|:....new|
|00000ed0| 5f 73 75 62 28 50 61 67 | 65 2e 68 2e 67 72 6f 75 |_sub(Pag|e.h.grou|
|00000ee0| 70 2c 30 29 3b 0a 09 09 | 09 64 6f 5f 75 70 64 61 |p,0);...|.do_upda|
|00000ef0| 74 65 28 55 6e 73 75 62 | 5f 6d 73 67 29 3b 0a 09 |te(Unsub|_msg);..|
|00000f00| 09 09 74 65 72 6d 5f 73 | 65 74 20 28 4d 4f 56 45 |..term_s|et (MOVE|
|00000f10| 2c 30 2c 43 72 65 63 29 | 3b 0a 09 09 09 62 72 65 |,0,Crec)|;....bre|
|00000f20| 61 6b 3b 0a 0c 0a 09 09 | 63 61 73 65 20 55 50 44 |ak;.....|case UPD|
|00000f30| 41 54 45 3a 0a 09 09 09 | 6e 65 77 5f 72 65 61 64 |ATE:....|new_read|
|00000f40| 28 50 61 67 65 2e 68 2e | 67 72 6f 75 70 2c 50 61 |(Page.h.|group,Pa|
|00000f50| 67 65 2e 62 5b 43 72 65 | 63 2d 52 45 43 42 49 41 |ge.b[Cre|c-RECBIA|
|00000f60| 53 5d 2e 61 72 74 5f 69 | 64 29 3b 0a 09 09 09 77 |S].art_i|d);....w|
|00000f70| 72 5f 73 68 6f 77 20 28 | 29 3b 0a 09 09 09 64 6f |r_show (|);....do|
|00000f80| 5f 75 70 64 61 74 65 28 | 22 55 70 64 61 74 65 64 |_update(|"Updated|
|00000f90| 20 74 6f 20 63 75 72 73 | 6f 72 22 29 3b 0a 09 09 | to curs|or");...|
|00000fa0| 09 74 65 72 6d 5f 73 65 | 74 20 28 4d 4f 56 45 2c |.term_se|t (MOVE,|
|00000fb0| 30 2c 43 72 65 63 29 3b | 0a 09 09 09 62 72 65 61 |0,Crec);|....brea|
|00000fc0| 6b 3b 0a 09 09 63 61 73 | 65 20 55 50 41 4c 4c 3a |k;...cas|e UPALL:|
|00000fd0| 0a 09 09 09 6e 65 77 5f | 72 65 61 64 28 50 61 67 |....new_|read(Pag|
|00000fe0| 65 2e 68 2e 67 72 6f 75 | 70 2c 28 50 61 67 65 2e |e.h.grou|p,(Page.|
|00000ff0| 68 2e 67 72 6f 75 70 29 | 2d 3e 68 69 67 68 6e 75 |h.group)|->highnu|
|00001000| 6d 29 3b 0a 09 09 09 77 | 72 5f 73 68 6f 77 28 29 |m);....w|r_show()|
|00001010| 3b 0a 09 09 09 64 6f 5f | 75 70 64 61 74 65 28 45 |;....do_|update(E|
|00001020| 67 72 6f 75 70 5f 6d 73 | 67 29 3b 0a 09 09 09 74 |group_ms|g);....t|
|00001030| 65 72 6d 5f 73 65 74 20 | 28 4d 4f 56 45 2c 30 2c |erm_set |(MOVE,0,|
|00001040| 43 72 65 63 29 3b 0a 09 | 09 09 62 72 65 61 6b 3b |Crec);..|..break;|
|00001050| 0a 09 09 63 61 73 65 20 | 4f 52 47 47 52 50 3a 0a |...case |ORGGRP:.|
|00001060| 09 09 09 6e 65 77 5f 72 | 65 61 64 28 50 61 67 65 |...new_r|ead(Page|
|00001070| 2e 68 2e 67 72 6f 75 70 | 2c 28 50 61 67 65 2e 68 |.h.group|,(Page.h|
|00001080| 2e 67 72 6f 75 70 29 2d | 3e 6f 72 67 72 64 29 3b |.group)-|>orgrd);|
|00001090| 0a 09 09 09 77 72 5f 73 | 68 6f 77 28 29 3b 0a 09 |....wr_s|how();..|
|000010a0| 09 09 64 6f 5f 75 70 64 | 61 74 65 28 45 67 72 6f |..do_upd|ate(Egro|
|000010b0| 75 70 5f 6d 73 67 29 3b | 0a 09 09 09 74 65 72 6d |up_msg);|....term|
|000010c0| 5f 73 65 74 20 28 4d 4f | 56 45 2c 30 2c 43 72 65 |_set (MO|VE,0,Cre|
|000010d0| 63 29 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |c);....b|reak;...|
|000010e0| 63 61 73 65 20 55 50 53 | 45 45 4e 3a 0a 09 09 09 |case UPS|EEN:....|
|000010f0| 75 70 5f 73 65 65 6e 28 | 29 3b 0a 09 09 09 77 72 |up_seen(|);....wr|
|00001100| 5f 73 68 6f 77 28 29 3b | 0a 09 09 09 64 6f 5f 75 |_show();|....do_u|
|00001110| 70 64 61 74 65 28 22 41 | 6c 6c 20 70 61 67 65 73 |pdate("A|ll pages|
|00001120| 20 64 69 73 70 6c 61 79 | 65 64 20 74 6f 20 74 68 | display|ed to th|
|00001130| 69 73 20 70 6f 69 6e 74 | 20 75 70 64 61 74 65 64 |is point| updated|
|00001140| 22 29 3b 0a 09 09 09 74 | 65 72 6d 5f 73 65 74 20 |");....t|erm_set |
|00001150| 28 4d 4f 56 45 2c 30 2c | 43 72 65 63 29 3b 0a 09 |(MOVE,0,|Crec);..|
|00001160| 09 09 62 72 65 61 6b 3b | 0a 09 09 63 61 73 65 20 |..break;|...case |
|00001170| 4f 52 47 53 54 41 54 3a | 0a 09 09 09 66 6f 72 20 |ORGSTAT:|....for |
|00001180| 28 69 20 3d 20 30 3b 20 | 69 20 3c 20 4e 63 6f 75 |(i = 0; |i < Ncou|
|00001190| 6e 74 3b 20 2b 2b 69 29 | 0a 09 09 09 09 6e 65 77 |nt; ++i)|.....new|
|000011a0| 5f 72 65 61 64 28 4e 65 | 77 73 6f 72 64 65 72 5b |_read(Ne|wsorder[|
|000011b0| 69 5d 2c 28 4e 65 77 73 | 6f 72 64 65 72 5b 69 5d |i],(News|order[i]|
|000011c0| 29 2d 3e 6f 72 67 72 64 | 29 3b 0a 09 09 09 77 72 |)->orgrd|);....wr|
|000011d0| 5f 73 68 6f 77 28 29 3b | 0a 09 09 09 64 6f 5f 75 |_show();|....do_u|
|000011e0| 70 64 61 74 65 28 22 4f | 72 69 67 69 6e 61 6c 20 |pdate("O|riginal |
|000011f0| 64 61 74 61 20 72 65 63 | 6f 76 65 72 65 64 22 29 |data rec|overed")|
|00001200| 3b 0a 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |;....ter|m_set (M|
|00001210| 4f 56 45 2c 30 2c 43 72 | 65 63 29 3b 0a 09 09 09 |OVE,0,Cr|ec);....|
|00001220| 62 72 65 61 6b 3b 0a 20 | 09 09 63 61 73 65 20 54 |break;. |..case T|
|00001230| 4f 50 4d 4f 56 45 3a 0a | 20 09 09 09 43 72 65 63 |OPMOVE:.| ...Crec|
|00001240| 20 3d 20 52 45 43 42 49 | 41 53 3b 0a 20 09 09 09 | = RECBI|AS;. ...|
|00001250| 74 65 72 6d 5f 73 65 74 | 20 28 4d 4f 56 45 2c 20 |term_set| (MOVE, |
|00001260| 30 2c 20 43 72 65 63 29 | 3b 0a 20 09 09 09 62 72 |0, Crec)|;. ...br|
|00001270| 65 61 6b 3b 0a 20 09 09 | 63 61 73 65 20 42 4f 54 |eak;. ..|case BOT|
|00001280| 4d 4f 56 45 3a 0a 20 09 | 09 63 61 73 65 20 41 4c |MOVE:. .|.case AL|
|00001290| 54 42 4f 54 54 4f 4d 3a | 0a 20 09 09 09 43 72 65 |TBOTTOM:|. ...Cre|
|000012a0| 63 20 3d 20 48 69 67 68 | 72 65 63 20 2d 20 31 3b |c = High|rec - 1;|
|000012b0| 0a 20 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |. ...ter|m_set (M|
|000012c0| 4f 56 45 2c 20 30 2c 20 | 43 72 65 63 29 3b 0a 20 |OVE, 0, |Crec);. |
|000012d0| 09 09 09 62 72 65 61 6b | 3b 0a 20 09 09 63 61 73 |...break|;. ..cas|
|000012e0| 65 20 4d 49 44 4d 4f 56 | 45 3a 0a 20 09 09 09 43 |e MIDMOV|E:. ...C|
|000012f0| 72 65 63 20 3d 20 28 52 | 45 43 42 49 41 53 20 2b |rec = (R|ECBIAS +|
|00001300| 20 48 69 67 68 72 65 63 | 20 2d 20 31 29 20 2f 20 | Highrec| - 1) / |
|00001310| 32 3b 0a 20 09 09 09 69 | 66 20 28 43 72 65 63 20 |2;. ...i|f (Crec |
|00001320| 3c 20 52 45 43 42 49 41 | 53 29 0a 20 09 09 09 09 |< RECBIA|S). ....|
|00001330| 43 72 65 63 20 3d 20 52 | 45 43 42 49 41 53 3b 0a |Crec = R|ECBIAS;.|
|00001340| 20 09 09 09 69 66 20 28 | 43 72 65 63 20 3e 3d 20 | ...if (|Crec >= |
|00001350| 48 69 67 68 72 65 63 29 | 0a 20 09 09 09 09 43 72 |Highrec)|. ....Cr|
|00001360| 65 63 20 3d 20 48 69 67 | 68 72 65 63 20 2d 20 31 |ec = Hig|hrec - 1|
|00001370| 3b 0a 20 09 09 09 74 65 | 72 6d 5f 73 65 74 20 28 |;. ...te|rm_set (|
|00001380| 4d 4f 56 45 2c 20 30 2c | 20 43 72 65 63 29 3b 0a |MOVE, 0,| Crec);.|
|00001390| 20 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 63 61 73 | ...brea|k;...cas|
|000013a0| 65 20 55 50 3a 0a 09 09 | 09 69 66 20 28 43 72 65 |e UP:...|.if (Cre|
|000013b0| 63 20 21 3d 20 52 45 43 | 42 49 41 53 29 0a 09 09 |c != REC|BIAS)...|
|000013c0| 09 7b 0a 09 09 09 09 43 | 72 65 63 20 2d 3d 20 63 |.{.....C|rec -= c|
|000013d0| 6f 75 6e 74 3b 0a 09 09 | 09 09 69 66 20 28 43 72 |ount;...|..if (Cr|
|000013e0| 65 63 20 3c 20 52 45 43 | 42 49 41 53 29 0a 09 09 |ec < REC|BIAS)...|
|000013f0| 09 09 09 43 72 65 63 20 | 3d 20 52 45 43 42 49 41 |...Crec |= RECBIA|
|00001400| 53 3b 0a 09 09 09 09 74 | 65 72 6d 5f 73 65 74 20 |S;.....t|erm_set |
|00001410| 28 4d 4f 56 45 2c 20 30 | 2c 20 43 72 65 63 29 3b |(MOVE, 0|, Crec);|
|00001420| 0a 09 09 09 7d 0a 09 09 | 09 65 6c 73 65 0a 09 09 |....}...|.else...|
|00001430| 09 09 70 75 74 63 68 61 | 72 20 28 27 5c 30 37 27 |..putcha|r ('\07'|
|00001440| 29 3b 0a 09 09 09 62 72 | 65 61 6b 3b 0a 09 09 63 |);....br|eak;...c|
|00001450| 61 73 65 20 44 4f 57 4e | 3a 0a 09 09 09 69 66 20 |ase DOWN|:....if |
|00001460| 28 43 72 65 63 20 3c 20 | 28 48 69 67 68 72 65 63 |(Crec < |(Highrec|
|00001470| 20 2d 20 31 29 29 0a 09 | 09 09 7b 0a 09 09 09 09 | - 1))..|..{.....|
|00001480| 43 72 65 63 20 2b 3d 20 | 63 6f 75 6e 74 3b 0a 09 |Crec += |count;..|
|00001490| 09 09 09 69 66 20 28 43 | 72 65 63 20 3e 3d 20 48 |...if (C|rec >= H|
|000014a0| 69 67 68 72 65 63 29 0a | 09 09 09 09 09 43 72 65 |ighrec).|.....Cre|
|000014b0| 63 20 3d 20 48 69 67 68 | 72 65 63 20 2d 20 31 3b |c = High|rec - 1;|
|000014c0| 0a 09 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |.....ter|m_set (M|
|000014d0| 4f 56 45 2c 20 30 2c 20 | 43 72 65 63 29 3b 0a 09 |OVE, 0, |Crec);..|
|000014e0| 09 09 7d 0a 09 09 09 65 | 6c 73 65 0a 09 09 09 09 |..}....e|lse.....|
|000014f0| 70 75 74 63 68 61 72 20 | 28 27 5c 30 37 27 29 3b |putchar |('\07');|
|00001500| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 63 61 73 |....brea|k;...cas|
|00001510| 65 20 4d 41 52 4b 3a 0a | 09 09 63 61 73 65 20 41 |e MARK:.|..case A|
|00001520| 52 54 5f 4d 41 52 4b 3a | 0a 09 09 09 63 6f 75 6e |RT_MARK:|....coun|
|00001530| 74 20 2b 3d 20 43 72 65 | 63 20 2d 20 31 3b 0a 09 |t += Cre|c - 1;..|
|00001540| 09 09 69 66 20 28 63 6f | 75 6e 74 20 3e 3d 20 48 |..if (co|unt >= H|
|00001550| 69 67 68 72 65 63 29 0a | 09 09 09 09 63 6f 75 6e |ighrec).|....coun|
|00001560| 74 20 3d 20 48 69 67 68 | 72 65 63 20 2d 20 31 3b |t = High|rec - 1;|
|00001570| 0a 09 09 09 66 6f 72 20 | 28 69 3d 43 72 65 63 3b |....for |(i=Crec;|
|00001580| 20 69 20 3c 3d 20 63 6f | 75 6e 74 3b 20 2b 2b 69 | i <= co|unt; ++i|
|00001590| 29 0a 09 09 09 7b 0a 09 | 09 09 09 69 66 20 28 50 |)....{..|...if (P|
|000015a0| 61 67 65 2e 62 5b 69 2d | 52 45 43 42 49 41 53 5d |age.b[i-|RECBIAS]|
|000015b0| 2e 61 72 74 5f 6d 61 72 | 6b 20 21 3d 20 41 52 54 |.art_mar|k != ART|
|000015c0| 5f 4d 41 52 4b 29 0a 09 | 09 09 09 09 50 61 67 65 |_MARK)..|....Page|
|000015d0| 2e 62 5b 69 2d 52 45 43 | 42 49 41 53 5d 2e 61 72 |.b[i-REC|BIAS].ar|
|000015e0| 74 5f 6d 61 72 6b 20 3d | 20 41 52 54 5f 4d 41 52 |t_mark =| ART_MAR|
|000015f0| 4b 3b 0a 09 09 09 09 65 | 6c 73 65 0a 09 09 09 09 |K;.....e|lse.....|
|00001600| 09 50 61 67 65 2e 62 5b | 69 2d 52 45 43 42 49 41 |.Page.b[|i-RECBIA|
|00001610| 53 5d 2e 61 72 74 5f 6d | 61 72 6b 20 3d 20 27 20 |S].art_m|ark = ' |
|00001620| 27 3b 0a 09 09 09 09 69 | 66 20 28 69 20 21 3d 20 |';.....i|f (i != |
|00001630| 43 72 65 63 29 0a 09 09 | 09 09 09 74 65 72 6d 5f |Crec)...|...term_|
|00001640| 73 65 74 20 28 4d 4f 56 | 45 2c 20 30 2c 20 69 29 |set (MOV|E, 0, i)|
|00001650| 3b 0a 09 09 09 09 70 72 | 69 6e 74 66 20 28 22 25 |;.....pr|intf ("%|
|00001660| 63 5c 30 31 30 22 2c 50 | 61 67 65 2e 62 5b 69 2d |c\010",P|age.b[i-|
|00001670| 52 45 43 42 49 41 53 5d | 2e 61 72 74 5f 6d 61 72 |RECBIAS]|.art_mar|
|00001680| 6b 29 3b 0a 09 09 09 7d | 0a 09 09 09 69 66 20 28 |k);....}|....if (|
|00001690| 63 6f 75 6e 74 20 21 3d | 20 43 72 65 63 29 0a 09 |count !=| Crec)..|
|000016a0| 09 09 09 74 65 72 6d 5f | 73 65 74 20 28 4d 4f 56 |...term_|set (MOV|
|000016b0| 45 2c 20 30 2c 20 43 72 | 65 63 29 3b 0a 09 09 09 |E, 0, Cr|ec);....|
|000016c0| 77 72 69 74 65 5f 70 61 | 67 65 20 28 29 3b 0a 09 |write_pa|ge ();..|
|000016d0| 09 09 62 72 65 61 6b 3b | 0a 09 09 63 61 73 65 20 |..break;|...case |
|000016e0| 55 4e 4d 41 52 4b 3a 0a | 09 09 09 66 6f 72 20 28 |UNMARK:.|...for (|
|000016f0| 69 3d 30 3b 20 69 20 3c | 20 50 61 67 65 2e 68 2e |i=0; i <| Page.h.|
|00001700| 61 72 74 6e 75 6d 3b 20 | 2b 2b 69 29 0a 09 09 09 |artnum; |++i)....|
|00001710| 7b 0a 09 09 09 09 69 66 | 20 28 50 61 67 65 2e 62 |{.....if| (Page.b|
|00001720| 5b 69 5d 2e 61 72 74 5f | 6d 61 72 6b 20 3d 3d 20 |[i].art_|mark == |
|00001730| 41 52 54 5f 4d 41 52 4b | 29 0a 09 09 09 09 7b 0a |ART_MARK|).....{.|
|00001740| 09 09 09 09 09 50 61 67 | 65 2e 62 5b 69 5d 2e 61 |.....Pag|e.b[i].a|
|00001750| 72 74 5f 6d 61 72 6b 20 | 3d 20 27 20 27 3b 0a 09 |rt_mark |= ' ';..|
|00001760| 09 09 09 09 74 65 72 6d | 5f 73 65 74 20 28 4d 4f |....term|_set (MO|
|00001770| 56 45 2c 20 30 2c 20 69 | 2b 52 45 43 42 49 41 53 |VE, 0, i|+RECBIAS|
|00001780| 29 3b 0a 09 09 09 09 09 | 70 75 74 63 68 61 72 20 |);......|putchar |
|00001790| 28 27 20 27 29 3b 0a 09 | 09 09 09 7d 0a 09 09 09 |(' ');..|...}....|
|000017a0| 7d 0a 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |}....ter|m_set (M|
|000017b0| 4f 56 45 2c 20 30 2c 20 | 43 72 65 63 29 3b 0a 09 |OVE, 0, |Crec);..|
|000017c0| 09 09 77 72 69 74 65 5f | 70 61 67 65 20 28 29 3b |..write_|page ();|
|000017d0| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 63 61 73 |....brea|k;...cas|
|000017e0| 65 20 42 41 43 4b 3a 0a | 09 09 09 63 6f 75 6e 74 |e BACK:.|...count|
|000017f0| 20 2a 3d 20 2d 31 3b 09 | 2f 2a 20 66 61 6c 6c 20 | *= -1;.|/* fall |
|00001800| 74 68 72 6f 75 67 68 20 | 2a 2f 0a 09 09 63 61 73 |through |*/...cas|
|00001810| 65 20 46 4f 52 57 41 52 | 44 3a 0a 09 09 09 69 66 |e FORWAR|D:....if|
|00001820| 20 28 66 6f 72 77 61 72 | 64 20 28 63 6f 75 6e 74 | (forwar|d (count|
|00001830| 29 20 3e 3d 20 30 29 0a | 09 09 09 09 73 68 6f 77 |) >= 0).|....show|
|00001840| 28 29 3b 0a 09 09 09 65 | 6c 73 65 0a 09 09 09 09 |();....e|lse.....|
|00001850| 70 72 65 69 6e 66 6f 20 | 28 22 4e 6f 20 6d 6f 72 |preinfo |("No mor|
|00001860| 65 20 70 61 67 65 73 22 | 29 3b 0a 09 09 09 74 65 |e pages"|);....te|
|00001870| 72 6d 5f 73 65 74 20 28 | 4d 4f 56 45 2c 30 2c 43 |rm_set (|MOVE,0,C|
|00001880| 72 65 63 29 3b 0a 09 09 | 09 62 72 65 61 6b 3b 0a |rec);...|.break;.|
|00001890| 09 09 63 61 73 65 20 44 | 49 47 45 53 54 3a 0a 09 |..case D|IGEST:..|
|000018a0| 09 09 69 66 20 28 44 69 | 67 65 73 74 29 0a 09 09 |..if (Di|gest)...|
|000018b0| 09 7b 0a 09 09 09 09 44 | 69 67 65 73 74 20 3d 20 |.{.....D|igest = |
|000018c0| 30 3b 0a 09 09 09 09 66 | 69 6e 64 5f 70 61 67 65 |0;.....f|ind_page|
|000018d0| 20 28 43 75 72 5f 70 61 | 67 65 29 3b 0a 09 09 09 | (Cur_pa|ge);....|
|000018e0| 09 73 68 6f 77 28 29 3b | 0a 09 09 09 09 43 72 65 |.show();|.....Cre|
|000018f0| 63 20 3d 20 44 72 65 63 | 20 2b 20 52 45 43 42 49 |c = Drec| + RECBI|
|00001900| 41 53 20 2b 20 31 3b 0a | 09 09 09 09 48 69 67 68 |AS + 1;.|....High|
|00001910| 72 65 63 20 3d 20 50 61 | 67 65 2e 68 2e 61 72 74 |rec = Pa|ge.h.art|
|00001920| 6e 75 6d 20 2b 20 52 45 | 43 42 49 41 53 3b 0a 09 |num + RE|CBIAS;..|
|00001930| 09 09 09 69 66 20 28 43 | 72 65 63 20 3e 3d 20 48 |...if (C|rec >= H|
|00001940| 69 67 68 72 65 63 29 0a | 09 09 09 09 09 43 72 65 |ighrec).|.....Cre|
|00001950| 63 20 3d 20 48 69 67 68 | 72 65 63 20 2d 20 31 3b |c = High|rec - 1;|
|00001960| 0a 09 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |.....ter|m_set (M|
|00001970| 4f 56 45 2c 30 2c 43 72 | 65 63 29 3b 0a 09 09 09 |OVE,0,Cr|ec);....|
|00001980| 09 62 72 65 61 6b 3b 0a | 09 09 09 7d 0a 09 09 09 |.break;.|...}....|
|00001990| 28 50 61 67 65 2e 68 2e | 67 72 6f 75 70 29 2d 3e |(Page.h.|group)->|
|000019a0| 66 6c 61 67 73 20 7c 3d | 20 46 4c 47 5f 41 43 43 |flags |=| FLG_ACC|
|000019b0| 3b 0a 09 09 09 44 73 6b | 69 70 20 3d 20 63 6f 75 |;....Dsk|ip = cou|
|000019c0| 6e 74 20 2d 20 31 3b 0a | 09 09 09 44 72 65 63 20 |nt - 1;.|...Drec |
|000019d0| 3d 20 43 72 65 63 20 2d | 20 52 45 43 42 49 41 53 |= Crec -| RECBIAS|
|000019e0| 3b 0a 09 09 09 69 66 20 | 28 64 69 67 65 73 74 5f |;....if |(digest_|
|000019f0| 70 61 67 65 28 44 72 65 | 63 2c 44 73 6b 69 70 29 |page(Dre|c,Dskip)|
|00001a00| 20 3e 3d 20 30 29 0a 09 | 09 09 7b 0a 09 09 09 09 | >= 0)..|..{.....|
|00001a10| 73 68 6f 77 28 29 3b 0a | 09 09 09 09 43 72 65 63 |show();.|....Crec|
|00001a20| 20 3d 20 52 45 43 42 49 | 41 53 3b 0a 09 09 09 09 | = RECBI|AS;.....|
|00001a30| 48 69 67 68 72 65 63 20 | 3d 20 50 61 67 65 2e 68 |Highrec |= Page.h|
|00001a40| 2e 61 72 74 6e 75 6d 20 | 2b 20 52 45 43 42 49 41 |.artnum |+ RECBIA|
|00001a50| 53 3b 0a 09 09 09 09 74 | 65 72 6d 5f 73 65 74 20 |S;.....t|erm_set |
|00001a60| 28 4d 4f 56 45 2c 30 2c | 43 72 65 63 29 3b 0a 09 |(MOVE,0,|Crec);..|
|00001a70| 09 09 09 62 72 65 61 6b | 3b 0a 09 09 09 7d 0a 09 |...break|;....}..|
|00001a80| 09 09 44 69 67 65 73 74 | 20 3d 20 30 3b 0a 09 09 |..Digest| = 0;...|
|00001a90| 09 70 72 65 69 6e 66 6f | 20 28 22 43 61 6e 27 74 |.preinfo| ("Can't|
|00001aa0| 20 75 6e 70 61 63 6b 20 | 74 68 65 20 61 72 74 69 | unpack |the arti|
|00001ab0| 63 6c 65 22 29 3b 0a 09 | 09 09 74 65 72 6d 5f 73 |cle");..|..term_s|
|00001ac0| 65 74 20 28 4d 4f 56 45 | 2c 30 2c 43 72 65 63 29 |et (MOVE|,0,Crec)|
|00001ad0| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 63 61 |;....bre|ak;...ca|
|00001ae0| 73 65 20 4e 45 57 47 52 | 4f 55 50 3a 0a 09 09 09 |se NEWGR|OUP:....|
|00001af0| 69 66 20 28 28 69 20 3d | 20 73 70 65 63 5f 67 72 |if ((i =| spec_gr|
|00001b00| 6f 75 70 28 29 29 20 3c | 20 30 29 0a 09 09 09 7b |oup()) <| 0)....{|
|00001b10| 0a 09 09 09 09 74 65 72 | 6d 5f 73 65 74 20 28 4d |.....ter|m_set (M|
|00001b20| 4f 56 45 2c 30 2c 43 72 | 65 63 29 3b 0a 09 09 09 |OVE,0,Cr|ec);....|
|00001b30| 09 62 72 65 61 6b 3b 0a | 09 09 09 7d 0a 09 09 09 |.break;.|...}....|
|00001b40| 44 69 67 65 73 74 20 3d | 20 30 3b 0a 09 09 09 73 |Digest =| 0;....s|
|00001b50| 68 6f 77 28 29 3b 0a 09 | 09 09 43 72 65 63 20 3d |how();..|..Crec =|
|00001b60| 20 52 45 43 42 49 41 53 | 3b 0a 09 09 09 48 69 67 | RECBIAS|;....Hig|
|00001b70| 68 72 65 63 20 3d 20 50 | 61 67 65 2e 68 2e 61 72 |hrec = P|age.h.ar|
|00001b80| 74 6e 75 6d 20 2b 20 52 | 45 43 42 49 41 53 3b 0a |tnum + R|ECBIAS;.|
|00001b90| 09 09 09 74 65 72 6d 5f | 73 65 74 20 28 4d 4f 56 |...term_|set (MOV|
|00001ba0| 45 2c 30 2c 43 72 65 63 | 29 3b 0a 09 09 09 62 72 |E,0,Crec|);....br|
|00001bb0| 65 61 6b 3b 0a 0c 0a 09 | 09 63 61 73 65 20 53 41 |eak;....|.case SA|
|00001bc0| 56 45 3a 0a 09 09 09 28 | 50 61 67 65 2e 68 2e 67 |VE:....(|Page.h.g|
|00001bd0| 72 6f 75 70 29 2d 3e 66 | 6c 61 67 73 20 7c 3d 20 |roup)->f|lags |= |
|00001be0| 46 4c 47 5f 41 43 43 3b | 0a 09 09 09 67 65 6e 6c |FLG_ACC;|....genl|
|00001bf0| 69 73 74 20 28 61 6c 69 | 73 74 2c 43 72 65 63 2d |ist (ali|st,Crec-|
|00001c00| 52 45 43 42 49 41 53 2c | 63 6f 75 6e 74 29 3b 0a |RECBIAS,|count);.|
|00001c10| 09 09 09 73 61 76 65 73 | 74 72 20 28 61 6c 69 73 |...saves|tr (alis|
|00001c20| 74 29 3b 0a 09 09 09 74 | 65 72 6d 5f 73 65 74 20 |t);....t|erm_set |
|00001c30| 28 4d 4f 56 45 2c 30 2c | 43 72 65 63 29 3b 0a 09 |(MOVE,0,|Crec);..|
|00001c40| 09 09 62 72 65 61 6b 3b | 0a 09 09 63 61 73 65 20 |..break;|...case |
|00001c50| 53 41 56 45 41 4c 4c 3a | 0a 09 09 09 28 50 61 67 |SAVEALL:|....(Pag|
|00001c60| 65 2e 68 2e 67 72 6f 75 | 70 29 2d 3e 66 6c 61 67 |e.h.grou|p)->flag|
|00001c70| 73 20 7c 3d 20 46 4c 47 | 5f 41 43 43 3b 0a 09 09 |s |= FLG|_ACC;...|
|00001c80| 09 67 65 6e 6c 69 73 74 | 20 28 61 6c 69 73 74 2c |.genlist| (alist,|
|00001c90| 30 2c 4c 5f 61 6c 6c 6f | 77 29 3b 0a 09 09 09 73 |0,L_allo|w);....s|
|00001ca0| 61 76 65 73 74 72 20 28 | 61 6c 69 73 74 29 3b 0a |avestr (|alist);.|
|00001cb0| 09 09 09 74 65 72 6d 5f | 73 65 74 20 28 4d 4f 56 |...term_|set (MOV|
|00001cc0| 45 2c 30 2c 43 72 65 63 | 29 3b 0a 09 09 09 62 72 |E,0,Crec|);....br|
|00001cd0| 65 61 6b 3b 0a 09 09 63 | 61 73 65 20 53 41 56 45 |eak;...c|ase SAVE|
|00001ce0| 53 54 52 49 4e 47 3a 0a | 09 09 63 61 73 65 20 41 |STRING:.|..case A|
|00001cf0| 4c 54 53 41 56 45 3a 0a | 09 09 09 28 50 61 67 65 |LTSAVE:.|...(Page|
|00001d00| 2e 68 2e 67 72 6f 75 70 | 29 2d 3e 66 6c 61 67 73 |.h.group|)->flags|
|00001d10| 20 7c 3d 20 46 4c 47 5f | 41 43 43 3b 0a 09 09 09 | |= FLG_|ACC;....|
|00001d20| 75 73 65 72 6c 69 73 74 | 20 28 61 6c 69 73 74 29 |userlist| (alist)|
|00001d30| 3b 0a 09 09 09 73 61 76 | 65 73 74 72 20 28 61 6c |;....sav|estr (al|
|00001d40| 69 73 74 29 3b 0a 09 09 | 09 74 65 72 6d 5f 73 65 |ist);...|.term_se|
|00001d50| 74 20 28 4d 4f 56 45 2c | 30 2c 43 72 65 63 29 3b |t (MOVE,|0,Crec);|
|00001d60| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 63 61 73 |....brea|k;...cas|
|00001d70| 65 20 52 45 41 44 3a 0a | 09 09 63 61 73 65 20 41 |e READ:.|..case A|
|00001d80| 4c 54 52 45 41 44 3a 0a | 09 09 09 28 50 61 67 65 |LTREAD:.|...(Page|
|00001d90| 2e 68 2e 67 72 6f 75 70 | 29 2d 3e 66 6c 61 67 73 |.h.group|)->flags|
|00001da0| 20 7c 3d 20 46 4c 47 5f | 41 43 43 3b 0a 09 09 09 | |= FLG_|ACC;....|
|00001db0| 67 65 6e 6c 69 73 74 20 | 28 61 6c 69 73 74 2c 43 |genlist |(alist,C|
|00001dc0| 72 65 63 2d 52 45 43 42 | 49 41 53 2c 63 6f 75 6e |rec-RECB|IAS,coun|
|00001dd0| 74 29 3b 0a 09 09 09 72 | 65 61 64 73 74 72 20 28 |t);....r|eadstr (|
|00001de0| 61 6c 69 73 74 2c 63 6f | 75 6e 74 29 3b 0a 09 09 |alist,co|unt);...|
|00001df0| 09 62 72 65 61 6b 3b 0a | 09 09 63 61 73 65 20 52 |.break;.|..case R|
|00001e00| 45 41 44 41 4c 4c 3a 0a | 09 09 09 28 50 61 67 65 |EADALL:.|...(Page|
|00001e10| 2e 68 2e 67 72 6f 75 70 | 29 2d 3e 66 6c 61 67 73 |.h.group|)->flags|
|00001e20| 20 7c 3d 20 46 4c 47 5f | 41 43 43 3b 0a 09 09 09 | |= FLG_|ACC;....|
|00001e30| 67 65 6e 6c 69 73 74 20 | 28 61 6c 69 73 74 2c 30 |genlist |(alist,0|
|00001e40| 2c 4c 5f 61 6c 6c 6f 77 | 29 3b 0a 09 09 09 72 65 |,L_allow|);....re|
|00001e50| 61 64 73 74 72 20 28 61 | 6c 69 73 74 2c 30 29 3b |adstr (a|list,0);|
|00001e60| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 63 61 73 |....brea|k;...cas|
|00001e70| 65 20 52 45 41 44 53 54 | 52 49 4e 47 3a 0a 09 09 |e READST|RING:...|
|00001e80| 09 28 50 61 67 65 2e 68 | 2e 67 72 6f 75 70 29 2d |.(Page.h|.group)-|
|00001e90| 3e 66 6c 61 67 73 20 7c | 3d 20 46 4c 47 5f 41 43 |>flags ||= FLG_AC|
|00001ea0| 43 3b 0a 09 09 09 75 73 | 65 72 6c 69 73 74 20 28 |C;....us|erlist (|
|00001eb0| 61 6c 69 73 74 29 3b 0a | 09 09 09 72 65 61 64 73 |alist);.|...reads|
|00001ec0| 74 72 20 28 61 6c 69 73 | 74 2c 30 29 3b 0a 09 09 |tr (alis|t,0);...|
|00001ed0| 09 62 72 65 61 6b 3b 0a | 09 09 63 61 73 65 20 50 |.break;.|..case P|
|00001ee0| 52 49 4e 54 3a 0a 09 09 | 09 28 50 61 67 65 2e 68 |RINT:...|.(Page.h|
|00001ef0| 2e 67 72 6f 75 70 29 2d | 3e 66 6c 61 67 73 20 7c |.group)-|>flags ||
|00001f00| 3d 20 46 4c 47 5f 41 43 | 43 3b 0a 09 09 09 67 65 |= FLG_AC|C;....ge|
|00001f10| 6e 6c 69 73 74 20 28 61 | 6c 69 73 74 2c 43 72 65 |nlist (a|list,Cre|
|00001f20| 63 2d 52 45 43 42 49 41 | 53 2c 63 6f 75 6e 74 29 |c-RECBIA|S,count)|
|00001f30| 3b 0a 09 09 09 70 72 69 | 6e 74 73 74 72 20 28 61 |;....pri|ntstr (a|
|00001f40| 6c 69 73 74 29 3b 0a 09 | 09 09 74 65 72 6d 5f 73 |list);..|..term_s|
|00001f50| 65 74 20 28 4d 4f 56 45 | 2c 30 2c 43 72 65 63 29 |et (MOVE|,0,Crec)|
|00001f60| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 63 61 |;....bre|ak;...ca|
|00001f70| 73 65 20 50 52 49 4e 54 | 41 4c 4c 3a 0a 09 09 09 |se PRINT|ALL:....|
|00001f80| 28 50 61 67 65 2e 68 2e | 67 72 6f 75 70 29 2d 3e |(Page.h.|group)->|
|00001f90| 66 6c 61 67 73 20 7c 3d | 20 46 4c 47 5f 41 43 43 |flags |=| FLG_ACC|
|00001fa0| 3b 0a 09 09 09 67 65 6e | 6c 69 73 74 20 28 61 6c |;....gen|list (al|
|00001fb0| 69 73 74 2c 30 2c 4c 5f | 61 6c 6c 6f 77 29 3b 0a |ist,0,L_|allow);.|
|00001fc0| 09 09 09 70 72 69 6e 74 | 73 74 72 20 28 61 6c 69 |...print|str (ali|
|00001fd0| 73 74 29 3b 0a 09 09 09 | 74 65 72 6d 5f 73 65 74 |st);....|term_set|
|00001fe0| 20 28 4d 4f 56 45 2c 20 | 30 2c 20 43 72 65 63 29 | (MOVE, |0, Crec)|
|00001ff0| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 63 61 |;....bre|ak;...ca|
|00002000| 73 65 20 50 52 49 4e 54 | 53 54 52 49 4e 47 3a 0a |se PRINT|STRING:.|
|00002010| 09 09 09 28 50 61 67 65 | 2e 68 2e 67 72 6f 75 70 |...(Page|.h.group|
|00002020| 29 2d 3e 66 6c 61 67 73 | 20 7c 3d 20 46 4c 47 5f |)->flags| |= FLG_|
|00002030| 41 43 43 3b 0a 09 09 09 | 75 73 65 72 6c 69 73 74 |ACC;....|userlist|
|00002040| 20 28 61 6c 69 73 74 29 | 3b 0a 09 09 09 70 72 69 | (alist)|;....pri|
|00002050| 6e 74 73 74 72 20 28 61 | 6c 69 73 74 29 3b 0a 09 |ntstr (a|list);..|
|00002060| 09 09 74 65 72 6d 5f 73 | 65 74 20 28 4d 4f 56 45 |..term_s|et (MOVE|
|00002070| 2c 20 30 2c 20 43 72 65 | 63 29 3b 0a 09 09 09 62 |, 0, Cre|c);....b|
|00002080| 72 65 61 6b 3b 0a 0c 0a | 09 09 63 61 73 65 20 48 |reak;...|..case H|
|00002090| 45 4c 50 3a 0a 09 09 09 | 68 65 6c 70 20 28 29 3b |ELP:....|help ();|
|000020a0| 0a 09 09 09 73 68 6f 77 | 20 28 29 3b 0a 09 09 09 |....show| ();....|
|000020b0| 74 65 72 6d 5f 73 65 74 | 20 28 4d 4f 56 45 2c 20 |term_set| (MOVE, |
|000020c0| 30 2c 20 43 72 65 63 29 | 3b 0a 09 09 09 62 72 65 |0, Crec)|;....bre|
|000020d0| 61 6b 3b 0a 09 09 63 61 | 73 65 20 55 4e 45 53 43 |ak;...ca|se UNESC|
|000020e0| 3a 0a 09 09 09 75 73 65 | 72 5f 73 74 72 20 28 61 |:....use|r_str (a|
|000020f0| 6c 69 73 74 2c 50 73 31 | 2c 31 2c 22 22 29 3b 0a |list,Ps1|,1,"");.|
|00002100| 09 09 09 74 65 72 6d 5f | 73 65 74 20 28 45 52 41 |...term_|set (ERA|
|00002110| 53 45 29 3b 0a 09 09 09 | 66 66 6c 75 73 68 20 28 |SE);....|fflush (|
|00002120| 73 74 64 6f 75 74 29 3b | 0a 09 09 09 74 74 79 5f |stdout);|....tty_|
|00002130| 73 65 74 20 28 53 41 56 | 45 4d 4f 44 45 29 3b 0a |set (SAV|EMODE);.|
|00002140| 09 09 09 69 66 20 28 63 | 68 64 69 72 28 4f 72 67 |...if (c|hdir(Org|
|00002150| 64 69 72 29 20 3c 20 30 | 29 0a 09 09 09 09 70 72 |dir) < 0|).....pr|
|00002160| 69 6e 74 66 20 28 22 63 | 68 61 6e 67 65 20 74 6f |intf ("c|hange to|
|00002170| 20 6f 72 69 67 69 6e 61 | 6c 20 64 69 72 65 63 74 | origina|l direct|
|00002180| 6f 72 79 2c 20 25 73 2c | 20 66 61 69 6c 65 64 22 |ory, %s,| failed"|
|00002190| 2c 4f 72 67 64 69 72 29 | 3b 0a 09 09 09 65 6c 73 |,Orgdir)|;....els|
|000021a0| 65 0a 09 09 09 7b 0a 09 | 09 09 09 73 79 73 74 65 |e....{..|...syste|
|000021b0| 6d 20 28 61 6c 69 73 74 | 29 3b 0a 09 09 09 09 74 |m (alist|);.....t|
|000021c0| 74 79 5f 73 65 74 20 28 | 52 45 53 54 4f 52 45 29 |ty_set (|RESTORE)|
|000021d0| 3b 0a 09 09 09 09 74 65 | 72 6d 5f 73 65 74 20 28 |;.....te|rm_set (|
|000021e0| 52 45 53 54 41 52 54 29 | 3b 0a 09 09 09 7d 0a 09 |RESTART)|;....}..|
|000021f0| 09 09 70 72 69 6e 74 66 | 20 28 43 6f 6e 74 73 74 |..printf| (Contst|
|00002200| 72 29 3b 0a 09 09 09 67 | 65 74 6e 6f 63 74 6c 20 |r);....g|etnoctl |
|00002210| 28 29 3b 0a 09 09 09 76 | 6e 73 5f 67 73 65 74 28 |();....v|ns_gset(|
|00002220| 50 61 67 65 2e 68 2e 6e | 61 6d 65 29 3b 0a 09 09 |Page.h.n|ame);...|
|00002230| 09 73 68 6f 77 20 28 29 | 3b 0a 09 09 09 74 65 72 |.show ()|;....ter|
|00002240| 6d 5f 73 65 74 20 28 4d | 4f 56 45 2c 20 30 2c 20 |m_set (M|OVE, 0, |
|00002250| 43 72 65 63 29 3b 0a 09 | 09 09 62 72 65 61 6b 3b |Crec);..|..break;|
|00002260| 0a 09 09 63 61 73 65 20 | 50 52 54 56 45 52 53 49 |...case |PRTVERSI|
|00002270| 4f 4e 3a 0a 09 09 09 70 | 72 69 6e 66 6f 28 22 25 |ON:....p|rinfo("%|
|00002280| 73 20 25 73 22 2c 20 56 | 65 72 73 69 6f 6e 2c 20 |s %s", V|ersion, |
|00002290| 56 6e 73 5f 76 65 72 73 | 69 6f 6e 29 3b 0a 09 09 |Vns_vers|ion);...|
|000022a0| 09 74 65 72 6d 5f 73 65 | 74 20 28 4d 4f 56 45 2c |.term_se|t (MOVE,|
|000022b0| 20 30 2c 20 43 72 65 63 | 29 3b 0a 09 09 09 62 72 | 0, Crec|);....br|
|000022c0| 65 61 6b 3b 0a 09 09 64 | 65 66 61 75 6c 74 3a 0a |eak;...d|efault:.|
|000022d0| 09 09 09 70 72 65 69 6e | 66 6f 28 22 55 6e 68 61 |...prein|fo("Unha|
|000022e0| 6e 64 6c 65 64 20 6b 65 | 79 3a 20 25 63 22 2c 20 |ndled ke|y: %c", |
|000022f0| 63 29 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |c);....b|reak;...|
|00002300| 7d 0a 09 7d 0a 0a 09 44 | 69 67 65 73 74 20 3d 20 |}..}...D|igest = |
|00002310| 30 3b 0a 09 66 6f 72 20 | 28 69 3d 30 3b 20 69 20 |0;..for |(i=0; i |
|00002320| 3c 20 4e 63 6f 75 6e 74 | 3b 20 2b 2b 69 29 0a 09 |< Ncount|; ++i)..|
|00002330| 7b 0a 09 09 69 66 20 28 | 28 4e 65 77 73 6f 72 64 |{...if (|(Newsord|
|00002340| 65 72 5b 69 5d 29 2d 3e | 72 64 6e 75 6d 20 3c 20 |er[i])->|rdnum < |
|00002350| 28 4e 65 77 73 6f 72 64 | 65 72 5b 69 5d 29 2d 3e |(Newsord|er[i])->|
|00002360| 70 67 72 64 29 0a 09 09 | 09 62 72 65 61 6b 3b 0a |pgrd)...|.break;.|
|00002370| 09 7d 0a 09 69 66 20 28 | 69 20 3c 20 4e 63 6f 75 |.}..if (|i < Ncou|
|00002380| 6e 74 29 0a 09 7b 0a 09 | 09 75 73 65 72 5f 73 74 |nt)..{..|.user_st|
|00002390| 72 20 28 61 6c 69 73 74 | 2c 22 53 6f 6d 65 20 64 |r (alist|,"Some d|
|000023a0| 69 73 70 6c 61 79 65 64 | 20 70 61 67 65 73 20 6e |isplayed| pages n|
|000023b0| 6f 74 20 75 70 64 61 74 | 65 64 20 2d 20 75 70 64 |ot updat|ed - upd|
|000023c0| 61 74 65 20 3f 20 22 2c | 0a 09 09 09 09 09 09 09 |ate ? ",|........|
|000023d0| 31 2c 20 51 55 49 54 5f | 41 4e 53 57 45 52 29 3b |1, QUIT_|ANSWER);|
|000023e0| 0a 09 09 69 66 20 28 61 | 6c 69 73 74 5b 30 5d 20 |...if (a|list[0] |
|000023f0| 3d 3d 20 27 79 27 29 0a | 09 09 09 75 70 5f 73 65 |== 'y').|...up_se|
|00002400| 65 6e 28 29 3b 0a 09 7d | 0a 09 73 69 67 5f 73 65 |en();..}|..sig_se|
|00002410| 74 20 28 42 52 4b 5f 4f | 55 54 29 3b 0a 7d 0a 0c |t (BRK_O|UT);.}..|
|00002420| 0a 2f 2a 0a 2a 2a 20 75 | 70 64 61 74 65 20 73 74 |./*.** u|pdate st|
|00002430| 61 74 75 73 20 6f 66 20 | 4e 65 77 73 67 72 6f 75 |atus of |Newsgrou|
|00002440| 70 73 20 74 6f 20 61 6c | 6c 20 73 65 65 6e 20 70 |ps to al|l seen p|
|00002450| 61 67 65 73 0a 2a 2f 0a | 75 70 5f 73 65 65 6e 28 |ages.*/.|up_seen(|
|00002460| 29 0a 7b 0a 09 69 6e 74 | 20 69 3b 0a 0a 09 66 6f |).{..int| i;...fo|
|00002470| 72 20 28 69 20 3d 20 30 | 3b 20 69 20 3c 20 4e 63 |r (i = 0|; i < Nc|
|00002480| 6f 75 6e 74 3b 20 2b 2b | 69 29 0a 09 7b 0a 09 09 |ount; ++|i)..{...|
|00002490| 69 66 20 28 4e 6f 75 6e | 73 75 62 20 26 26 20 28 |if (Noun|sub && (|
|000024a0| 28 4e 65 77 73 6f 72 64 | 65 72 5b 69 5d 29 2d 3e |(Newsord|er[i])->|
|000024b0| 66 6c 61 67 73 20 26 20 | 46 4c 47 5f 53 55 42 29 |flags & |FLG_SUB)|
|000024c0| 20 3d 3d 20 30 29 0a 09 | 09 7b 0a 09 09 09 6e 65 | == 0)..|.{....ne|
|000024d0| 77 5f 72 65 61 64 28 4e | 65 77 73 6f 72 64 65 72 |w_read(N|ewsorder|
|000024e0| 5b 69 5d 2c 28 4e 65 77 | 73 6f 72 64 65 72 5b 69 |[i],(New|sorder[i|
|000024f0| 5d 29 2d 3e 68 69 67 68 | 6e 75 6d 29 3b 0a 09 09 |])->high|num);...|
|00002500| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 09 09 7d 0a 09 |.continu|e;...}..|
|00002510| 09 69 66 20 28 28 4e 65 | 77 73 6f 72 64 65 72 5b |.if ((Ne|wsorder[|
|00002520| 69 5d 29 2d 3e 72 64 6e | 75 6d 20 3c 20 28 4e 65 |i])->rdn|um < (Ne|
|00002530| 77 73 6f 72 64 65 72 5b | 69 5d 29 2d 3e 70 67 72 |wsorder[|i])->pgr|
|00002540| 64 29 0a 09 09 09 6e 65 | 77 5f 72 65 61 64 28 4e |d)....ne|w_read(N|
|00002550| 65 77 73 6f 72 64 65 72 | 5b 69 5d 2c 28 4e 65 77 |ewsorder|[i],(New|
|00002560| 73 6f 72 64 65 72 5b 69 | 5d 29 2d 3e 70 67 72 64 |sorder[i|])->pgrd|
|00002570| 29 3b 0a 09 7d 0a 7d 0a | 0c 0a 2f 2a 0a 09 63 6f |);..}.}.|../*..co|
|00002580| 75 6e 74 5f 6d 73 67 20 | 64 69 73 70 6c 61 79 73 |unt_msg |displays|
|00002590| 20 63 6f 75 6e 74 20 69 | 6e 66 6f 72 6d 61 74 69 | count i|nformati|
|000025a0| 6f 6e 0a 2a 2f 0a 63 6f | 75 6e 74 5f 6d 73 67 20 |on.*/.co|unt_msg |
|000025b0| 28 29 0a 7b 0a 09 69 6e | 74 20 69 2c 20 67 70 6e |().{..in|t i, gpn|
|000025c0| 75 6d 2c 20 67 73 63 61 | 6e 2c 20 67 70 61 67 65 |um, gsca|n, gpage|
|000025d0| 3b 0a 09 75 6e 73 69 67 | 6e 65 64 20 6c 6f 6e 67 |;..unsig|ned long|
|000025e0| 20 6d 61 73 6b 3b 0a 09 | 67 70 6e 75 6d 20 3d 20 | mask;..|gpnum = |
|000025f0| 31 3b 0a 09 66 6f 72 20 | 28 67 73 63 61 6e 20 3d |1;..for |(gscan =|
|00002600| 20 67 70 61 67 65 20 3d | 20 69 20 3d 20 30 3b 20 | gpage =| i = 0; |
|00002610| 69 3c 4e 63 6f 75 6e 74 | 3b 20 2b 2b 69 29 0a 09 |i<Ncount|; ++i)..|
|00002620| 7b 0a 09 09 69 66 20 28 | 28 28 4e 65 77 73 6f 72 |{...if (|((Newsor|
|00002630| 64 65 72 5b 69 5d 29 2d | 3e 66 6c 61 67 73 20 26 |der[i])-|>flags &|
|00002640| 20 46 4c 47 5f 50 41 47 | 45 29 20 21 3d 20 30 29 | FLG_PAG|E) != 0)|
|00002650| 0a 09 09 7b 0a 09 09 09 | 69 66 20 28 28 28 4e 65 |...{....|if (((Ne|
|00002660| 77 73 6f 72 64 65 72 5b | 69 5d 29 2d 3e 70 6e 75 |wsorder[|i])->pnu|
|00002670| 6d 20 2b 20 28 4e 65 77 | 73 6f 72 64 65 72 5b 69 |m + (New|sorder[i|
|00002680| 5d 29 2d 3e 70 61 67 65 | 73 20 2d 20 31 29 20 3c |])->page|s - 1) <|
|00002690| 20 43 75 72 5f 70 61 67 | 65 29 0a 09 09 09 09 2b | Cur_pag|e).....+|
|000026a0| 2b 67 70 6e 75 6d 3b 0a | 09 09 09 2b 2b 67 70 61 |+gpnum;.|...++gpa|
|000026b0| 67 65 3b 0a 09 09 09 66 | 6f 72 20 28 6d 61 73 6b |ge;....f|or (mask|
|000026c0| 3d 31 3b 20 6d 61 73 6b | 20 21 3d 20 30 4c 3b 20 |=1; mask| != 0L; |
|000026d0| 6d 61 73 6b 20 3c 3c 3d | 20 31 29 0a 09 09 09 09 |mask <<=| 1).....|
|000026e0| 69 66 20 28 28 28 4e 65 | 77 73 6f 72 64 65 72 5b |if (((Ne|wsorder[|
|000026f0| 69 5d 29 2d 3e 70 67 73 | 68 77 6e 20 26 20 6d 61 |i])->pgs|hwn & ma|
|00002700| 73 6b 29 20 21 3d 20 30 | 4c 29 0a 09 09 09 09 09 |sk) != 0|L)......|
|00002710| 2b 2b 67 73 63 61 6e 3b | 0a 09 09 7d 0a 09 7d 0a |++gscan;|...}..}.|
|00002720| 09 70 72 69 6e 66 6f 20 | 28 43 46 4f 52 4d 41 54 |.prinfo |(CFORMAT|
|00002730| 2c 43 75 72 5f 70 61 67 | 65 2b 31 2c 4c 72 65 63 |,Cur_pag|e+1,Lrec|
|00002740| 2b 31 2c 67 73 63 61 6e | 2c 67 70 6e 75 6d 2c 67 |+1,gscan|,gpnum,g|
|00002750| 70 61 67 65 29 3b 0a 7d | 0a 0c 0a 2f 2a 0a 09 66 |page);.}|.../*..f|
|00002760| 6f 72 77 61 72 64 20 75 | 74 69 6c 69 74 79 20 68 |orward u|tility h|
|00002770| 61 6e 64 6c 65 73 20 70 | 61 67 69 6e 67 0a 2a 2f |andles p|aging.*/|
|00002780| 0a 73 74 61 74 69 63 0a | 66 6f 72 77 61 72 64 20 |.static.|forward |
|00002790| 28 63 6f 75 6e 74 29 0a | 69 6e 74 20 63 6f 75 6e |(count).|int coun|
|000027a0| 74 3b 0a 7b 0a 09 69 66 | 20 28 21 44 69 67 65 73 |t;.{..if| (!Diges|
|000027b0| 74 29 0a 09 7b 0a 09 09 | 69 66 20 28 28 63 6f 75 |t)..{...|if ((cou|
|000027c0| 6e 74 20 3c 20 30 20 26 | 26 20 43 75 72 5f 70 61 |nt < 0 &|& Cur_pa|
|000027d0| 67 65 20 3c 3d 20 30 29 | 20 7c 7c 20 28 63 6f 75 |ge <= 0)| || (cou|
|000027e0| 6e 74 20 3e 20 30 20 26 | 26 20 43 75 72 5f 70 61 |nt > 0 &|& Cur_pa|
|000027f0| 67 65 20 3e 3d 20 4c 72 | 65 63 29 29 0a 09 09 09 |ge >= Lr|ec))....|
|00002800| 72 65 74 75 72 6e 20 28 | 2d 31 29 3b 0a 09 09 43 |return (|-1);...C|
|00002810| 75 72 5f 70 61 67 65 20 | 2b 3d 20 63 6f 75 6e 74 |ur_page |+= count|
|00002820| 3b 0a 09 09 69 66 20 28 | 43 75 72 5f 70 61 67 65 |;...if (|Cur_page|
|00002830| 20 3c 20 30 29 0a 09 09 | 09 43 75 72 5f 70 61 67 | < 0)...|.Cur_pag|
|00002840| 65 20 3d 20 30 3b 0a 09 | 09 69 66 20 28 43 75 72 |e = 0;..|.if (Cur|
|00002850| 5f 70 61 67 65 20 3e 20 | 4c 72 65 63 29 0a 09 09 |_page > |Lrec)...|
|00002860| 09 43 75 72 5f 70 61 67 | 65 20 3d 20 4c 72 65 63 |.Cur_pag|e = Lrec|
|00002870| 3b 0a 09 09 66 69 6e 64 | 5f 70 61 67 65 20 28 43 |;...find|_page (C|
|00002880| 75 72 5f 70 61 67 65 29 | 3b 0a 09 09 43 72 65 63 |ur_page)|;...Crec|
|00002890| 20 3d 20 52 45 43 42 49 | 41 53 3b 0a 09 09 48 69 | = RECBI|AS;...Hi|
|000028a0| 67 68 72 65 63 20 3d 20 | 50 61 67 65 2e 68 2e 61 |ghrec = |Page.h.a|
|000028b0| 72 74 6e 75 6d 20 2b 20 | 52 45 43 42 49 41 53 3b |rtnum + |RECBIAS;|
|000028c0| 0a 09 09 72 65 74 75 72 | 6e 20 28 30 29 3b 0a 09 |...retur|n (0);..|
|000028d0| 7d 0a 09 2f 2a 0a 09 2a | 2a 20 69 6e 20 64 69 67 |}../*..*|* in dig|
|000028e0| 65 73 74 73 2c 20 70 61 | 67 69 6e 67 20 70 61 73 |ests, pa|ging pas|
|000028f0| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |t the en|d of the|
|00002900| 20 64 69 67 65 73 74 20 | 72 65 74 75 72 6e 73 20 | digest |returns |
|00002910| 74 6f 0a 09 2a 2a 20 70 | 61 67 65 20 65 78 74 72 |to..** p|age extr|
|00002920| 61 63 74 65 64 20 66 72 | 6f 6d 2e 0a 09 2a 2f 0a |acted fr|om...*/.|
|00002930| 09 69 66 20 28 44 73 6b | 69 70 20 3e 20 30 20 26 |.if (Dsk|ip > 0 &|
|00002940| 26 20 28 44 73 6b 69 70 | 20 2b 20 63 6f 75 6e 74 |& (Dskip| + count|
|00002950| 2a 4c 5f 61 6c 6c 6f 77 | 29 20 3c 20 30 29 0a 09 |*L_allow|) < 0)..|
|00002960| 09 44 73 6b 69 70 20 3d | 20 30 3b 0a 09 65 6c 73 |.Dskip =| 0;..els|
|00002970| 65 0a 09 09 44 73 6b 69 | 70 20 2b 3d 20 63 6f 75 |e...Dski|p += cou|
|00002980| 6e 74 20 2a 20 4c 5f 61 | 6c 6c 6f 77 3b 0a 09 66 |nt * L_a|llow;..f|
|00002990| 69 6e 64 5f 70 61 67 65 | 20 28 43 75 72 5f 70 61 |ind_page| (Cur_pa|
|000029a0| 67 65 29 3b 0a 09 69 66 | 20 28 44 73 6b 69 70 20 |ge);..if| (Dskip |
|000029b0| 3e 3d 20 30 29 0a 09 7b | 0a 09 09 69 66 20 28 64 |>= 0)..{|...if (d|
|000029c0| 69 67 65 73 74 5f 70 61 | 67 65 28 44 72 65 63 2c |igest_pa|ge(Drec,|
|000029d0| 44 73 6b 69 70 29 20 3e | 3d 20 30 29 0a 09 09 7b |Dskip) >|= 0)...{|
|000029e0| 0a 09 09 09 43 72 65 63 | 20 3d 20 52 45 43 42 49 |....Crec| = RECBI|
|000029f0| 41 53 3b 0a 09 09 09 48 | 69 67 68 72 65 63 20 3d |AS;....H|ighrec =|
|00002a00| 20 50 61 67 65 2e 68 2e | 61 72 74 6e 75 6d 20 2b | Page.h.|artnum +|
|00002a10| 20 52 45 43 42 49 41 53 | 3b 0a 09 09 09 72 65 74 | RECBIAS|;....ret|
|00002a20| 75 72 6e 20 28 30 29 3b | 0a 09 09 7d 0a 09 7d 0a |urn (0);|...}..}.|
|00002a30| 09 44 69 67 65 73 74 20 | 3d 20 30 3b 0a 09 43 72 |.Digest |= 0;..Cr|
|00002a40| 65 63 20 3d 20 44 72 65 | 63 20 2b 20 52 45 43 42 |ec = Dre|c + RECB|
|00002a50| 49 41 53 20 2b 20 31 3b | 0a 09 48 69 67 68 72 65 |IAS + 1;|..Highre|
|00002a60| 63 20 3d 20 50 61 67 65 | 2e 68 2e 61 72 74 6e 75 |c = Page|.h.artnu|
|00002a70| 6d 20 2b 20 52 45 43 42 | 49 41 53 3b 0a 09 69 66 |m + RECB|IAS;..if|
|00002a80| 20 28 43 72 65 63 20 3e | 3d 20 48 69 67 68 72 65 | (Crec >|= Highre|
|00002a90| 63 29 0a 09 09 43 72 65 | 63 20 3d 20 48 69 67 68 |c)...Cre|c = High|
|00002aa0| 72 65 63 20 2d 20 31 3b | 0a 09 72 65 74 75 72 6e |rec - 1;|..return|
|00002ab0| 20 28 30 29 3b 0a 7d 0a | 0c 0a 2f 2a 0a 09 67 65 | (0);.}.|../*..ge|
|00002ac0| 6e 65 72 61 74 65 20 6c | 69 73 74 20 6f 66 20 61 |nerate l|ist of a|
|00002ad0| 72 74 69 63 6c 65 73 20 | 6f 6e 20 63 75 72 72 65 |rticles |on curre|
|00002ae0| 6e 74 20 70 61 67 65 2c | 0a 09 63 6f 75 6e 74 20 |nt page,|..count |
|00002af0| 61 72 74 69 63 6c 65 73 | 2c 20 73 74 61 72 74 69 |articles|, starti|
|00002b00| 6e 67 20 77 69 74 68 20 | 66 69 72 73 74 2e 0a 2a |ng with |first..*|
|00002b10| 2f 0a 73 74 61 74 69 63 | 0a 67 65 6e 6c 69 73 74 |/.static|.genlist|
|00002b20| 20 28 6c 69 73 74 2c 66 | 69 72 73 74 2c 63 6f 75 | (list,f|irst,cou|
|00002b30| 6e 74 29 0a 63 68 61 72 | 20 2a 6c 69 73 74 3b 0a |nt).char| *list;.|
|00002b40| 69 6e 74 20 66 69 72 73 | 74 2c 63 6f 75 6e 74 3b |int firs|t,count;|
|00002b50| 0a 7b 0a 09 69 6e 74 20 | 69 3b 0a 09 66 6f 72 20 |.{..int |i;..for |
|00002b60| 28 69 3d 66 69 72 73 74 | 3b 20 69 20 3c 20 50 61 |(i=first|; i < Pa|
|00002b70| 67 65 2e 68 2e 61 72 74 | 6e 75 6d 20 26 26 20 63 |ge.h.art|num && c|
|00002b80| 6f 75 6e 74 20 3e 20 30 | 3b 20 2b 2b 69 29 0a 09 |ount > 0|; ++i)..|
|00002b90| 7b 0a 09 09 73 70 72 69 | 6e 74 66 20 28 6c 69 73 |{...spri|ntf (lis|
|00002ba0| 74 2c 22 25 64 20 22 2c | 50 61 67 65 2e 62 5b 69 |t,"%d ",|Page.b[i|
|00002bb0| 5d 2e 61 72 74 5f 69 64 | 29 3b 0a 09 09 6c 69 73 |].art_id|);...lis|
|00002bc0| 74 20 2b 3d 20 73 74 72 | 6c 65 6e 28 6c 69 73 74 |t += str|len(list|
|00002bd0| 29 3b 0a 09 09 2d 2d 63 | 6f 75 6e 74 3b 0a 09 7d |);...--c|ount;..}|
|00002be0| 0a 7d 0a 0c 0a 2f 2a 0a | 09 73 65 6e 64 20 6c 69 |.}.../*.|.send li|
|00002bf0| 73 74 20 6f 66 20 61 72 | 74 69 63 6c 65 73 20 74 |st of ar|ticles t|
|00002c00| 6f 20 70 72 69 6e 74 65 | 72 0a 2a 2f 0a 73 74 61 |o printe|r.*/.sta|
|00002c10| 74 69 63 0a 70 72 69 6e | 74 73 74 72 20 28 73 29 |tic.prin|tstr (s)|
|00002c20| 0a 63 68 61 72 20 2a 73 | 3b 0a 7b 0a 09 63 68 61 |.char *s|;.{..cha|
|00002c30| 72 20 63 6d 64 20 5b 52 | 45 43 4c 45 4e 5d 3b 0a |r cmd [R|ECLEN];.|
|00002c40| 09 63 68 61 72 20 66 6e | 5b 4c 5f 74 6d 70 6e 61 |.char fn|[L_tmpna|
|00002c50| 6d 5d 3b 0a 09 63 68 61 | 72 20 64 73 61 76 65 5b |m];..cha|r dsave[|
|00002c60| 52 45 43 4c 45 4e 5d 3b | 09 2f 2a 20 73 61 76 65 |RECLEN];|./* save|
|00002c70| 20 6c 69 73 74 20 66 6f | 72 20 75 6e 6c 69 6e 6b | list fo|r unlink|
|00002c80| 69 6e 67 20 2a 2f 0a 0a | 09 70 72 69 6e 66 6f 20 |ing */..|.prinfo |
|00002c90| 28 22 70 72 65 70 61 72 | 69 6e 67 20 70 72 69 6e |("prepar|ing prin|
|00002ca0| 74 20 63 6f 6d 6d 61 6e | 64 20 2e 2e 2e 2e 22 29 |t comman|d ....")|
|00002cb0| 3b 0a 0a 09 69 66 20 28 | 44 69 67 65 73 74 29 0a |;...if (|Digest).|
|00002cc0| 09 7b 0a 09 09 64 69 67 | 5f 6c 69 73 74 20 28 73 |.{...dig|_list (s|
|00002cd0| 29 3b 0a 09 09 73 74 72 | 63 70 79 28 64 73 61 76 |);...str|cpy(dsav|
|00002ce0| 65 2c 73 29 3b 0a 09 7d | 0a 0a 09 69 66 20 28 2a |e,s);..}|...if (*|
|00002cf0| 73 20 21 3d 20 27 5c 30 | 27 29 0a 09 7b 0a 09 09 |s != '\0|')..{...|
|00002d00| 74 6d 70 6e 61 6d 28 66 | 6e 29 3b 0a 09 09 69 66 |tmpnam(f|n);...if|
|00002d10| 20 28 61 72 74 5f 78 66 | 65 72 28 66 6e 2c 73 2c | (art_xf|er(fn,s,|
|00002d20| 22 77 22 29 20 21 3d 20 | 30 29 0a 09 09 7b 0a 09 |"w") != |0)...{..|
|00002d30| 09 09 70 72 65 69 6e 66 | 6f 28 22 43 6f 75 6c 64 |..preinf|o("Could|
|00002d40| 6e 27 74 20 6f 70 65 6e | 20 74 65 6d 70 6f 72 61 |n't open| tempora|
|00002d50| 72 79 20 66 69 6c 65 22 | 29 3b 0a 09 09 09 72 65 |ry file"|);....re|
|00002d60| 74 75 72 6e 3b 0a 09 09 | 7d 0a 09 09 73 70 72 69 |turn;...|}...spri|
|00002d70| 6e 74 66 20 28 63 6d 64 | 2c 22 25 73 20 25 73 20 |ntf (cmd|,"%s %s |
|00002d80| 32 3e 2f 64 65 76 2f 6e | 75 6c 6c 22 2c 50 72 69 |2>/dev/n|ull",Pri|
|00002d90| 6e 74 65 72 2c 66 6e 29 | 3b 0a 09 09 69 66 20 28 |nter,fn)|;...if (|
|00002da0| 73 79 73 74 65 6d 20 28 | 63 6d 64 29 20 3d 3d 20 |system (|cmd) == |
|00002db0| 30 29 0a 09 09 09 70 72 | 69 6e 66 6f 20 28 22 53 |0)....pr|info ("S|
|00002dc0| 65 6e 74 20 74 6f 20 70 | 72 69 6e 74 65 72 22 29 |ent to p|rinter")|
|00002dd0| 3b 0a 09 09 65 6c 73 65 | 0a 09 09 09 70 72 65 69 |;...else|....prei|
|00002de0| 6e 66 6f 20 28 22 50 72 | 69 6e 74 20 66 61 69 6c |nfo ("Pr|int fail|
|00002df0| 65 64 22 29 3b 0a 09 09 | 75 6e 6c 69 6e 6b 28 66 |ed");...|unlink(f|
|00002e00| 6e 29 3b 0a 09 7d 0a 09 | 65 6c 73 65 0a 09 09 70 |n);..}..|else...p|
|00002e10| 72 65 69 6e 66 6f 20 28 | 4e 6f 5f 6d 73 67 29 3b |reinfo (|No_msg);|
|00002e20| 0a 0a 09 69 66 20 28 44 | 69 67 65 73 74 29 0a 09 |...if (D|igest)..|
|00002e30| 09 64 69 67 5f 75 6c 69 | 73 74 20 28 64 73 61 76 |.dig_uli|st (dsav|
|00002e40| 65 29 3b 0a 7d 0a 0c 0a | 2f 2a 0a 09 72 65 61 64 |e);.}...|/*..read|
|00002e50| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 72 74 69 63 | a list |of artic|
|00002e60| 6c 65 73 2e 0a 2a 2f 0a | 72 65 61 64 73 74 72 20 |les..*/.|readstr |
|00002e70| 28 73 2c 63 6f 75 6e 74 | 29 0a 63 68 61 72 20 2a |(s,count|).char *|
|00002e80| 73 3b 0a 69 6e 74 20 63 | 6f 75 6e 74 3b 0a 7b 0a |s;.int c|ount;.{.|
|00002e90| 09 63 68 61 72 20 2a 73 | 74 72 74 6f 6b 28 29 3b |.char *s|trtok();|
|00002ea0| 0a 09 63 68 61 72 20 2a | 66 6e 5b 4d 41 58 41 52 |..char *|fn[MAXAR|
|00002eb0| 54 4c 49 53 54 2b 31 5d | 3b 0a 09 69 6e 74 20 70 |TLIST+1]|;..int p|
|00002ec0| 63 2c 20 6e 75 6d 2c 20 | 69 3b 0a 0a 09 2f 2a 20 |c, num, |i;.../* |
|00002ed0| 77 65 20 70 72 65 2d 70 | 72 6f 63 65 73 73 20 74 |we pre-p|rocess t|
|00002ee0| 6f 6b 65 6e 73 20 74 6f | 20 72 65 6c 65 61 73 65 |okens to| release|
|00002ef0| 20 73 74 72 74 6f 6b 28 | 29 20 66 6f 72 20 66 75 | strtok(|) for fu|
|00002f00| 72 74 68 65 72 20 75 73 | 65 20 2a 2f 0a 09 66 6e |rther us|e */..fn|
|00002f10| 5b 30 5d 20 3d 20 73 74 | 72 74 6f 6b 28 73 2c 4c |[0] = st|rtok(s,L|
|00002f20| 69 73 74 5f 73 65 70 29 | 3b 0a 09 66 6f 72 20 28 |ist_sep)|;..for (|
|00002f30| 6e 75 6d 3d 30 3b 20 66 | 6e 5b 6e 75 6d 5d 20 21 |num=0; f|n[num] !|
|00002f40| 3d 20 4e 55 4c 4c 3b 20 | 66 6e 5b 28 2b 2b 6e 75 |= NULL; |fn[(++nu|
|00002f50| 6d 29 5d 20 3d 20 73 74 | 72 74 6f 6b 28 4e 55 4c |m)] = st|rtok(NUL|
|00002f60| 4c 2c 4c 69 73 74 5f 73 | 65 70 29 29 0a 09 09 69 |L,List_s|ep))...i|
|00002f70| 66 20 28 6e 75 6d 20 3e | 3d 20 4d 41 58 41 52 54 |f (num >|= MAXART|
|00002f80| 4c 49 53 54 29 0a 09 09 | 09 62 72 65 61 6b 3b 0a |LIST)...|.break;.|
|00002f90| 09 66 6e 5b 6e 75 6d 5d | 20 3d 20 4e 55 4c 4c 3b |.fn[num]| = NULL;|
|00002fa0| 0a 0a 09 69 66 20 28 66 | 6e 5b 30 5d 20 21 3d 20 |...if (f|n[0] != |
|00002fb0| 4e 55 4c 4c 29 0a 09 7b | 0a 09 09 74 65 72 6d 5f |NULL)..{|...term_|
|00002fc0| 73 65 74 20 28 45 52 41 | 53 45 29 3b 0a 09 09 66 |set (ERA|SE);...f|
|00002fd0| 6f 72 20 28 69 3d 30 3b | 20 69 20 3c 20 6e 75 6d |or (i=0;| i < num|
|00002fe0| 20 26 26 20 72 65 61 64 | 66 69 6c 65 28 66 6e 5b | && read|file(fn[|
|00002ff0| 69 5d 2c 20 66 6e 5b 69 | 2b 31 5d 20 2c 26 70 63 |i], fn[i|+1] ,&pc|
|00003000| 29 20 3e 3d 20 30 3b 20 | 2b 2b 69 29 0a 09 09 7b |) >= 0; |++i)...{|
|00003010| 0a 09 09 09 69 66 20 28 | 44 69 67 65 73 74 29 0a |....if (|Digest).|
|00003020| 09 09 09 09 75 6e 6c 69 | 6e 6b 20 28 66 6e 5b 69 |....unli|nk (fn[i|
|00003030| 5d 29 3b 0a 09 09 7d 0a | 09 09 69 66 20 28 44 69 |]);...}.|..if (Di|
|00003040| 67 65 73 74 20 26 26 20 | 66 6e 5b 69 5d 20 21 3d |gest && |fn[i] !=|
|00003050| 20 4e 55 4c 4c 29 0a 09 | 09 09 75 6e 6c 69 6e 6b | NULL)..|..unlink|
|00003060| 20 28 66 6e 5b 69 5d 29 | 3b 0a 09 09 69 66 20 28 | (fn[i])|;...if (|
|00003070| 70 63 20 21 3d 20 30 29 | 0a 09 09 09 66 6f 72 77 |pc != 0)|....forw|
|00003080| 61 72 64 20 28 70 63 29 | 3b 0a 09 09 65 6c 73 65 |ard (pc)|;...else|
|00003090| 0a 09 09 7b 0a 09 09 09 | 43 72 65 63 20 2b 3d 20 |...{....|Crec += |
|000030a0| 63 6f 75 6e 74 3b 0a 09 | 09 09 69 66 20 28 43 72 |count;..|..if (Cr|
|000030b0| 65 63 20 3e 3d 20 48 69 | 67 68 72 65 63 29 0a 09 |ec >= Hi|ghrec)..|
|000030c0| 09 09 09 43 72 65 63 20 | 3d 20 48 69 67 68 72 65 |...Crec |= Highre|
|000030d0| 63 20 2d 20 31 3b 0a 09 | 09 7d 0a 09 09 73 68 6f |c - 1;..|.}...sho|
|000030e0| 77 20 28 29 3b 0a 09 09 | 74 65 72 6d 5f 73 65 74 |w ();...|term_set|
|000030f0| 20 28 4d 4f 56 45 2c 20 | 30 2c 20 43 72 65 63 29 | (MOVE, |0, Crec)|
|00003100| 3b 0a 09 7d 0a 09 65 6c | 73 65 0a 09 7b 0a 09 09 |;..}..el|se..{...|
|00003110| 70 72 65 69 6e 66 6f 20 | 28 22 25 73 22 2c 4e 6f |preinfo |("%s",No|
|00003120| 5f 6d 73 67 29 3b 0a 09 | 09 74 65 72 6d 5f 73 65 |_msg);..|.term_se|
|00003130| 74 20 28 4d 4f 56 45 2c | 20 30 2c 20 43 72 65 63 |t (MOVE,| 0, Crec|
|00003140| 29 3b 0a 09 7d 0a 7d 0a | 0c 0a 2f 2a 0a 09 63 6f |);..}.}.|../*..co|
|00003150| 6e 63 61 74 65 6e 61 74 | 65 20 61 72 74 69 63 6c |ncatenat|e articl|
|00003160| 65 73 20 74 6f 20 73 61 | 76 65 20 66 69 6c 65 20 |es to sa|ve file |
|00003170| 77 69 74 68 20 61 70 70 | 72 6f 70 72 69 61 74 65 |with app|ropriate|
|00003180| 20 69 6e 66 6f 6c 69 6e | 65 20 6d 65 73 73 61 67 | infolin|e messag|
|00003190| 65 73 2e 0a 09 70 72 6f | 6d 70 74 20 66 6f 72 20 |es...pro|mpt for |
|000031a0| 73 61 76 65 20 66 69 6c | 65 2c 20 67 69 76 69 6e |save fil|e, givin|
|000031b0| 67 20 64 65 66 61 75 6c | 74 2e 20 20 49 66 20 73 |g defaul|t.  If s|
|000031c0| 61 76 65 20 66 69 6c 65 | 20 62 65 67 69 6e 73 20 |ave file| begins |
|000031d0| 77 69 74 68 20 22 7c 22 | 0a 09 68 61 6e 64 6c 65 |with "|"|..handle|
|000031e0| 20 61 73 20 61 20 66 69 | 6c 74 65 72 20 74 6f 20 | as a fi|lter to |
|000031f0| 70 69 70 65 20 74 6f 2e | 20 20 4e 4f 54 45 20 2d |pipe to.|  NOTE -|
|00003200| 20 65 76 65 72 79 20 75 | 73 65 72 20 73 70 65 63 | every u|ser spec|
|00003210| 69 66 69 63 61 74 69 6f | 6e 20 6f 66 0a 09 61 20 |ificatio|n of..a |
|00003220| 6e 65 77 20 53 61 76 65 | 66 69 6c 65 20 22 6c 6f |new Save|file "lo|
|00003230| 73 65 73 22 20 73 6f 6d | 65 20 73 74 6f 72 61 67 |ses" som|e storag|
|00003240| 65 2c 20 62 75 74 20 69 | 74 20 73 68 6f 75 6c 64 |e, but i|t should|
|00003250| 6e 27 74 20 62 65 20 61 | 20 76 65 72 79 20 67 72 |n't be a| very gr|
|00003260| 65 61 74 0a 09 61 6d 6f | 75 6e 74 2e 0a 2a 2f 0a |eat..amo|unt..*/.|
|00003270| 73 74 61 74 69 63 0a 73 | 61 76 65 73 74 72 20 28 |static.s|avestr (|
|00003280| 73 29 0a 63 68 61 72 20 | 2a 73 3b 0a 7b 0a 09 63 |s).char |*s;.{..c|
|00003290| 68 61 72 20 2a 70 74 72 | 2c 20 6e 65 77 66 69 6c |har *ptr|, newfil|
|000032a0| 65 20 5b 4d 41 58 5f 43 | 2b 31 5d 2c 20 6d 73 67 |e [MAX_C|+1], msg|
|000032b0| 5b 52 45 43 4c 45 4e 5d | 3b 0a 09 63 68 61 72 20 |[RECLEN]|;..char |
|000032c0| 2a 73 74 72 5f 73 74 6f | 72 65 28 29 3b 0a 09 63 |*str_sto|re();..c|
|000032d0| 68 61 72 20 64 73 61 76 | 65 5b 52 45 43 4c 45 4e |har dsav|e[RECLEN|
|000032e0| 5d 3b 0a 0a 09 69 66 20 | 28 44 69 67 65 73 74 29 |];...if |(Digest)|
|000032f0| 0a 09 7b 0a 09 09 64 69 | 67 5f 6c 69 73 74 20 28 |..{...di|g_list (|
|00003300| 73 29 3b 0a 09 09 73 74 | 72 63 70 79 28 64 73 61 |s);...st|rcpy(dsa|
|00003310| 76 65 2c 73 29 3b 0a 09 | 7d 0a 0a 09 69 66 20 28 |ve,s);..|}...if (|
|00003320| 2a 73 20 21 3d 20 27 5c | 30 27 29 0a 09 7b 0a 09 |*s != '\|0')..{..|
|00003330| 09 75 73 65 72 5f 73 74 | 72 20 28 6e 65 77 66 69 |.user_st|r (newfi|
|00003340| 6c 65 2c 22 73 61 76 65 | 20 66 69 6c 65 20 3f 20 |le,"save| file ? |
|00003350| 22 2c 31 2c 53 61 76 65 | 66 69 6c 65 29 3b 0a 09 |",1,Save|file);..|
|00003360| 09 70 74 72 20 3d 20 6e | 65 77 66 69 6c 65 3b 0a |.ptr = n|ewfile;.|
|00003370| 09 09 69 66 20 28 2a 70 | 74 72 20 3d 3d 20 27 7c |..if (*p|tr == '||
|00003380| 27 29 0a 09 09 7b 0a 09 | 09 09 74 65 72 6d 5f 73 |')...{..|..term_s|
|00003390| 65 74 20 28 45 52 41 53 | 45 29 3b 0a 09 09 09 66 |et (ERAS|E);....f|
|000033a0| 66 6c 75 73 68 20 28 73 | 74 64 6f 75 74 29 3b 0a |flush (s|tdout);.|
|000033b0| 09 09 09 73 61 76 65 5f | 61 72 74 28 73 2c 70 74 |...save_|art(s,pt|
|000033c0| 72 2c 6d 73 67 29 3b 0a | 09 09 09 70 72 69 6e 74 |r,msg);.|...print|
|000033d0| 66 20 28 22 25 73 5c 6e | 25 73 22 2c 6d 73 67 2c |f ("%s\n|%s",msg,|
|000033e0| 43 6f 6e 74 73 74 72 29 | 3b 0a 09 09 09 67 65 74 |Contstr)|;....get|
|000033f0| 6e 6f 63 74 6c 20 28 29 | 3b 0a 09 09 09 73 68 6f |noctl ()|;....sho|
|00003400| 77 20 28 29 3b 0a 09 09 | 7d 0a 09 09 65 6c 73 65 |w ();...|}...else|
|00003410| 0a 09 09 7b 0a 09 09 09 | 70 72 69 6e 66 6f 28 22 |...{....|prinfo("|
|00003420| 73 61 76 69 6e 67 20 2e | 2e 2e 2e 22 29 3b 0a 09 |saving .|...");..|
|00003430| 09 09 69 66 20 28 2a 70 | 74 72 20 3d 3d 20 27 5c |..if (*p|tr == '\|
|00003440| 30 27 29 0a 09 09 09 09 | 70 74 72 20 3d 20 53 61 |0').....|ptr = Sa|
|00003450| 76 65 66 69 6c 65 3b 0a | 09 09 09 65 6c 73 65 0a |vefile;.|...else.|
|00003460| 09 09 09 09 53 61 76 65 | 66 69 6c 65 20 3d 20 73 |....Save|file = s|
|00003470| 74 72 5f 73 74 6f 72 65 | 28 70 74 72 29 3b 0a 09 |tr_store|(ptr);..|
|00003480| 09 09 69 66 20 28 73 61 | 76 65 5f 61 72 74 28 73 |..if (sa|ve_art(s|
|00003490| 2c 53 61 76 65 66 69 6c | 65 2c 6d 73 67 29 20 21 |,Savefil|e,msg) !|
|000034a0| 3d 20 30 29 0a 09 09 09 | 09 70 72 65 69 6e 66 6f |= 0)....|.preinfo|
|000034b0| 28 6d 73 67 29 3b 0a 09 | 09 09 65 6c 73 65 0a 09 |(msg);..|..else..|
|000034c0| 09 09 09 70 72 69 6e 66 | 6f 28 6d 73 67 29 3b 0a |...prinf|o(msg);.|
|000034d0| 09 09 7d 0a 09 7d 0a 09 | 65 6c 73 65 0a 09 09 70 |..}..}..|else...p|
|000034e0| 72 65 69 6e 66 6f 20 28 | 4e 6f 5f 6d 73 67 29 3b |reinfo (|No_msg);|
|000034f0| 0a 0a 09 69 66 20 28 44 | 69 67 65 73 74 29 0a 09 |...if (D|igest)..|
|00003500| 09 64 69 67 5f 75 6c 69 | 73 74 20 28 64 73 61 76 |.dig_uli|st (dsav|
|00003510| 65 29 3b 0a 7d 0a 0c 0a | 2f 2a 0a 09 62 61 73 69 |e);.}...|/*..basi|
|00003520| 63 20 70 61 67 65 20 64 | 69 73 70 6c 61 79 20 72 |c page d|isplay r|
|00003530| 6f 75 74 69 6e 65 2e 20 | 20 65 72 61 73 65 20 73 |outine. | erase s|
|00003540| 63 72 65 65 6e 20 61 6e | 64 20 66 6f 72 6d 61 74 |creen an|d format|
|00003550| 20 63 75 72 72 65 6e 74 | 20 70 61 67 65 0a 2a 2f | current| page.*/|
|00003560| 0a 73 74 61 74 69 63 0a | 73 68 6f 77 20 28 29 0a |.static.|show ().|
|00003570| 7b 0a 09 69 6e 74 20 69 | 3b 0a 09 75 6e 73 69 67 |{..int i|;..unsig|
|00003580| 6e 65 64 20 6c 6f 6e 67 | 20 6d 61 73 6b 3b 0a 09 |ned long| mask;..|
|00003590| 63 68 61 72 20 68 65 6c | 70 73 74 72 5b 34 30 5d |char hel|pstr[40]|
|000035a0| 3b 20 0a 0a 09 74 65 72 | 6d 5f 73 65 74 20 28 45 |; ...ter|m_set (E|
|000035b0| 52 41 53 45 29 3b 0a 09 | 43 5f 69 6e 66 6f 20 3d |RASE);..|C_info =|
|000035c0| 20 30 3b 0a 09 69 20 3d | 20 43 75 72 5f 70 61 67 | 0;..i =| Cur_pag|
|000035d0| 65 20 2d 20 28 50 61 67 | 65 2e 68 2e 67 72 6f 75 |e - (Pag|e.h.grou|
|000035e0| 70 29 2d 3e 70 6e 75 6d | 20 2b 20 31 3b 0a 09 69 |p)->pnum| + 1;..i|
|000035f0| 66 20 28 44 69 67 65 73 | 74 29 0a 09 09 70 72 69 |f (Diges|t)...pri|
|00003600| 6e 74 66 20 28 44 48 46 | 4f 52 4d 41 54 2c 50 61 |ntf (DHF|ORMAT,Pa|
|00003610| 67 65 2e 68 2e 6e 61 6d | 65 29 3b 0a 09 65 6c 73 |ge.h.nam|e);..els|
|00003620| 65 0a 09 09 70 72 69 6e | 74 66 20 28 48 46 4f 52 |e...prin|tf (HFOR|
|00003630| 4d 41 54 2c 50 61 67 65 | 2e 68 2e 6e 61 6d 65 2c |MAT,Page|.h.name,|
|00003640| 69 2c 28 50 61 67 65 2e | 68 2e 67 72 6f 75 70 29 |i,(Page.|h.group)|
|00003650| 2d 3e 70 61 67 65 73 29 | 3b 0a 0a 09 6d 61 73 6b |->pages)|;...mask|
|00003660| 20 3d 20 31 4c 20 3c 3c | 20 28 69 2d 31 29 3b 0a | = 1L <<| (i-1);.|
|00003670| 09 28 50 61 67 65 2e 68 | 2e 67 72 6f 75 70 29 2d |.(Page.h|.group)-|
|00003680| 3e 70 67 73 68 77 6e 20 | 7c 3d 20 6d 61 73 6b 3b |>pgshwn ||= mask;|
|00003690| 0a 09 6d 61 73 6b 20 3d | 20 31 3b 0a 09 66 6f 72 |..mask =| 1;..for|
|000036a0| 20 28 2d 2d 69 3b 20 69 | 20 3e 20 30 20 26 26 20 | (--i; i| > 0 && |
|000036b0| 28 6d 61 73 6b 20 26 20 | 28 50 61 67 65 2e 68 2e |(mask & |(Page.h.|
|000036c0| 67 72 6f 75 70 29 2d 3e | 70 67 73 68 77 6e 29 20 |group)->|pgshwn) |
|000036d0| 21 3d 20 30 20 3b 20 2d | 2d 69 29 0a 09 09 6d 61 |!= 0 ; -|-i)...ma|
|000036e0| 73 6b 20 3c 3c 3d 20 31 | 3b 0a 09 69 66 20 28 69 |sk <<= 1|;..if (i|
|000036f0| 20 3c 3d 20 30 29 0a 09 | 09 28 50 61 67 65 2e 68 | <= 0)..|.(Page.h|
|00003700| 2e 67 72 6f 75 70 29 2d | 3e 70 67 72 64 20 3d 20 |.group)-|>pgrd = |
|00003710| 50 61 67 65 2e 62 5b 28 | 50 61 67 65 2e 68 2e 61 |Page.b[(|Page.h.a|
|00003720| 72 74 6e 75 6d 29 2d 31 | 5d 2e 61 72 74 5f 69 64 |rtnum)-1|].art_id|
|00003730| 3b 0a 0a 09 66 6f 72 20 | 28 69 3d 30 3b 20 69 20 |;...for |(i=0; i |
|00003740| 3c 20 50 61 67 65 2e 68 | 2e 61 72 74 6e 75 6d 3b |< Page.h|.artnum;|
|00003750| 20 2b 2b 69 29 0a 09 7b | 0a 09 09 69 66 20 28 44 | ++i)..{|...if (D|
|00003760| 69 67 65 73 74 29 0a 09 | 09 7b 0a 09 09 09 70 72 |igest)..|.{....pr|
|00003770| 69 6e 74 66 28 41 66 6f | 72 6d 61 74 2c 50 61 67 |intf(Afo|rmat,Pag|
|00003780| 65 2e 62 5b 69 5d 2e 61 | 72 74 5f 6d 61 72 6b 2c |e.b[i].a|rt_mark,|
|00003790| 41 52 54 5f 55 4e 57 52 | 49 54 54 45 4e 2c 50 61 |ART_UNWR|ITTEN,Pa|
|000037a0| 67 65 2e 62 5b 69 5d 2e | 61 72 74 5f 69 64 29 3b |ge.b[i].|art_id);|
|000037b0| 0a 09 09 09 70 72 69 6e | 74 66 28 22 25 73 22 2c |....prin|tf("%s",|
|000037c0| 50 61 67 65 2e 62 5b 69 | 5d 2e 61 72 74 5f 74 29 |Page.b[i|].art_t)|
|000037d0| 3b 0a 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 09 |;....con|tinue;..|
|000037e0| 09 7d 0a 0a 09 09 69 66 | 20 28 28 50 61 67 65 2e |.}....if| ((Page.|
|000037f0| 68 2e 67 72 6f 75 70 29 | 2d 3e 72 64 6e 75 6d 20 |h.group)|->rdnum |
|00003800| 3e 3d 20 50 61 67 65 2e | 62 5b 69 5d 2e 61 72 74 |>= Page.|b[i].art|
|00003810| 5f 69 64 29 0a 09 09 09 | 70 72 69 6e 74 66 28 41 |_id)....|printf(A|
|00003820| 66 6f 72 6d 61 74 2c 50 | 61 67 65 2e 62 5b 69 5d |format,P|age.b[i]|
|00003830| 2e 61 72 74 5f 6d 61 72 | 6b 2c 41 52 54 5f 57 52 |.art_mar|k,ART_WR|
|00003840| 49 54 54 45 4e 2c 50 61 | 67 65 2e 62 5b 69 5d 2e |ITTEN,Pa|ge.b[i].|
|00003850| 61 72 74 5f 69 64 29 3b | 0a 09 09 65 6c 73 65 0a |art_id);|...else.|
|00003860| 09 09 09 70 72 69 6e 74 | 66 28 41 66 6f 72 6d 61 |...print|f(Aforma|
|00003870| 74 2c 50 61 67 65 2e 62 | 5b 69 5d 2e 61 72 74 5f |t,Page.b|[i].art_|
|00003880| 6d 61 72 6b 2c 41 52 54 | 5f 55 4e 57 52 49 54 54 |mark,ART|_UNWRITT|
|00003890| 45 4e 2c 50 61 67 65 2e | 62 5b 69 5d 2e 61 72 74 |EN,Page.|b[i].art|
|000038a0| 5f 69 64 29 3b 0a 09 09 | 70 72 69 6e 74 66 28 22 |_id);...|printf("|
|000038b0| 25 73 22 2c 50 61 67 65 | 2e 62 5b 69 5d 2e 61 72 |%s",Page|.b[i].ar|
|000038c0| 74 5f 74 29 3b 0a 09 7d | 0a 0a 09 73 70 72 69 6e |t_t);..}|...sprin|
|000038d0| 74 66 28 68 65 6c 70 73 | 74 72 2c 48 45 4c 50 46 |tf(helps|tr,HELPF|
|000038e0| 4f 52 4d 2c 43 78 70 74 | 6f 69 5b 48 45 4c 50 5d |ORM,Cxpt|oi[HELP]|
|000038f0| 29 3b 0a 09 69 66 20 28 | 21 44 69 67 65 73 74 20 |);..if (|!Digest |
|00003900| 26 26 20 28 28 50 61 67 | 65 2e 68 2e 67 72 6f 75 |&& ((Pag|e.h.grou|
|00003910| 70 29 2d 3e 66 6c 61 67 | 73 20 26 20 46 4c 47 5f |p)->flag|s & FLG_|
|00003920| 53 55 42 29 20 3d 3d 20 | 30 29 0a 09 09 70 72 69 |SUB) == |0)...pri|
|00003930| 6e 66 6f 20 28 22 25 73 | 2c 20 25 73 22 2c 55 6e |nfo ("%s|, %s",Un|
|00003940| 73 75 62 5f 6d 73 67 2c | 68 65 6c 70 73 74 72 29 |sub_msg,|helpstr)|
|00003950| 3b 0a 09 65 6c 73 65 0a | 09 09 70 72 69 6e 66 6f |;..else.|..prinfo|
|00003960| 20 28 68 65 6c 70 73 74 | 72 29 3b 0a 7d 0a 0a 2f | (helpst|r);.}../|
|00003970| 2a 0a 09 75 70 64 61 74 | 65 20 77 72 69 74 74 65 |*..updat|e writte|
|00003980| 6e 20 73 74 61 74 75 73 | 20 6d 61 72 6b 73 20 6f |n status| marks o|
|00003990| 6e 20 73 63 72 65 65 6e | 0a 2a 2f 0a 73 74 61 74 |n screen|.*/.stat|
|000039a0| 69 63 0a 77 72 5f 73 68 | 6f 77 20 28 29 0a 7b 0a |ic.wr_sh|ow ().{.|
|000039b0| 09 69 6e 74 20 69 2c 72 | 6f 77 3b 0a 09 63 68 61 |.int i,r|ow;..cha|
|000039c0| 72 20 63 3b 0a 0a 09 72 | 6f 77 20 3d 20 52 45 43 |r c;...r|ow = REC|
|000039d0| 42 49 41 53 3b 0a 09 66 | 6f 72 20 28 69 3d 30 3b |BIAS;..f|or (i=0;|
|000039e0| 20 69 20 3c 20 50 61 67 | 65 2e 68 2e 61 72 74 6e | i < Pag|e.h.artn|
|000039f0| 75 6d 3b 20 2b 2b 69 29 | 0a 09 7b 0a 09 09 74 65 |um; ++i)|..{...te|
|00003a00| 72 6d 5f 73 65 74 20 28 | 4d 4f 56 45 2c 57 52 43 |rm_set (|MOVE,WRC|
|00003a10| 4f 4c 2c 72 6f 77 29 3b | 0a 09 09 69 66 20 28 28 |OL,row);|...if ((|
|00003a20| 50 61 67 65 2e 68 2e 67 | 72 6f 75 70 29 2d 3e 72 |Page.h.g|roup)->r|
|00003a30| 64 6e 75 6d 20 3e 3d 20 | 50 61 67 65 2e 62 5b 69 |dnum >= |Page.b[i|
|00003a40| 5d 2e 61 72 74 5f 69 64 | 29 0a 09 09 09 63 20 3d |].art_id|)....c =|
|00003a50| 20 41 52 54 5f 57 52 49 | 54 54 45 4e 3b 0a 09 09 | ART_WRI|TTEN;...|
|00003a60| 65 6c 73 65 0a 09 09 09 | 63 20 3d 20 41 52 54 5f |else....|c = ART_|
|00003a70| 55 4e 57 52 49 54 54 45 | 4e 3b 0a 09 09 70 72 69 |UNWRITTE|N;...pri|
|00003a80| 6e 74 66 28 22 25 63 22 | 2c 63 29 3b 0a 09 09 2b |ntf("%c"|,c);...+|
|00003a90| 2b 72 6f 77 3b 0a 09 7d | 0a 7d 0a 0c 0a 2f 2a 0a |+row;..}|.}.../*.|
|00003aa0| 09 6f 62 74 61 69 6e 20 | 75 73 65 72 20 69 6e 70 |.obtain |user inp|
|00003ab0| 75 74 20 6f 66 20 67 72 | 6f 75 70 20 6e 61 6d 65 |ut of gr|oup name|
|00003ac0| 2c 20 62 65 63 6f 6d 65 | 73 20 63 75 72 72 65 6e |, become|s curren|
|00003ad0| 74 20 70 61 67 65 20 69 | 66 20 76 61 6c 69 64 2e |t page i|f valid.|
|00003ae0| 0a 09 72 65 74 75 72 6e | 73 20 2d 31 20 6f 72 20 |..return|s -1 or |
|00003af0| 70 61 67 65 20 6e 75 6d | 62 65 72 2e 20 20 63 61 |page num|ber.  ca|
|00003b00| 6c 6c 69 6e 67 20 72 6f | 75 74 69 6e 65 20 64 6f |lling ro|utine do|
|00003b10| 65 73 20 74 68 65 20 73 | 68 6f 77 2c 20 69 66 20 |es the s|how, if |
|00003b20| 6e 65 65 64 65 64 0a 2a | 2f 0a 73 74 61 74 69 63 |needed.*|/.static|
|00003b30| 0a 73 70 65 63 5f 67 72 | 6f 75 70 20 28 29 0a 7b |.spec_gr|oup ().{|
|00003b40| 0a 09 63 68 61 72 20 6e | 62 75 66 20 5b 4d 41 58 |..char n|buf [MAX|
|00003b50| 5f 43 20 2b 20 31 5d 3b | 0a 09 4e 4f 44 45 20 2a |_C + 1];|..NODE *|
|00003b60| 70 2c 20 2a 68 61 73 68 | 66 69 6e 64 28 29 3b 0a |p, *hash|find();.|
|00003b70| 0a 09 75 73 65 72 5f 73 | 74 72 28 6e 62 75 66 2c |..user_s|tr(nbuf,|
|00003b80| 22 4e 65 77 73 67 72 6f | 75 70 20 3f 20 22 2c 31 |"Newsgro|up ? ",1|
|00003b90| 2c 22 22 29 3b 0a 0a 09 | 69 66 20 28 2a 6e 62 75 |,"");...|if (*nbu|
|00003ba0| 66 20 3d 3d 20 27 5c 30 | 27 20 7c 7c 20 28 70 20 |f == '\0|' || (p |
|00003bb0| 3d 20 68 61 73 68 66 69 | 6e 64 28 6e 62 75 66 29 |= hashfi|nd(nbuf)|
|00003bc0| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 09 7b 0a 09 09 |) == NUL|L)..{...|
|00003bd0| 70 72 65 69 6e 66 6f 20 | 28 22 4e 6f 74 20 61 20 |preinfo |("Not a |
|00003be0| 6e 65 77 73 67 72 6f 75 | 70 22 29 3b 0a 09 09 72 |newsgrou|p");...r|
|00003bf0| 65 74 75 72 6e 20 28 2d | 31 29 3b 0a 09 7d 0a 09 |eturn (-|1);..}..|
|00003c00| 69 66 20 28 28 70 2d 3e | 66 6c 61 67 73 20 26 20 |if ((p->|flags & |
|00003c10| 46 4c 47 5f 50 41 47 45 | 29 20 3d 3d 20 30 29 0a |FLG_PAGE|) == 0).|
|00003c20| 09 7b 0a 09 09 69 66 20 | 28 28 70 2d 3e 66 6c 61 |.{...if |((p->fla|
|00003c30| 67 73 20 26 20 46 4c 47 | 5f 53 55 42 29 20 3d 3d |gs & FLG|_SUB) ==|
|00003c40| 20 30 29 0a 09 09 7b 0a | 09 09 09 6e 65 77 5f 73 | 0)...{.|...new_s|
|00003c50| 75 62 28 70 2c 46 4c 47 | 5f 53 55 42 29 3b 0a 09 |ub(p,FLG|_SUB);..|
|00003c60| 09 09 64 6f 5f 75 70 64 | 61 74 65 28 22 4e 6f 74 |..do_upd|ate("Not|
|00003c70| 20 73 75 62 73 63 72 69 | 62 65 64 3a 20 72 65 73 | subscri|bed: res|
|00003c80| 75 62 73 63 72 69 62 65 | 64 20 66 6f 72 20 6e 65 |ubscribe|d for ne|
|00003c90| 78 74 20 72 65 61 64 69 | 6e 67 20 73 65 73 73 69 |xt readi|ng sessi|
|00003ca0| 6f 6e 22 29 3b 0a 09 09 | 7d 0a 09 09 65 6c 73 65 |on");...|}...else|
|00003cb0| 0a 09 09 09 70 72 69 6e | 66 6f 20 28 22 4e 6f 20 |....prin|fo ("No |
|00003cc0| 6e 65 77 73 20 66 6f 72 | 20 74 68 61 74 20 67 72 |news for| that gr|
|00003cd0| 6f 75 70 22 29 3b 0a 09 | 09 72 65 74 75 72 6e 20 |oup");..|.return |
|00003ce0| 28 2d 31 29 3b 0a 09 7d | 0a 09 69 66 20 28 28 70 |(-1);..}|..if ((p|
|00003cf0| 2d 3e 66 6c 61 67 73 20 | 26 20 46 4c 47 5f 53 55 |->flags |& FLG_SU|
|00003d00| 42 29 20 3d 3d 20 30 29 | 0a 09 7b 0a 09 09 6e 65 |B) == 0)|..{...ne|
|00003d10| 77 5f 73 75 62 28 70 2c | 46 4c 47 5f 53 55 42 29 |w_sub(p,|FLG_SUB)|
|00003d20| 3b 0a 09 09 64 6f 5f 75 | 70 64 61 74 65 28 22 52 |;...do_u|pdate("R|
|00003d30| 65 73 75 62 73 63 72 69 | 62 65 64 22 29 3b 0a 09 |esubscri|bed");..|
|00003d40| 7d 0a 09 66 69 6e 64 5f | 70 61 67 65 20 28 70 2d |}..find_|page (p-|
|00003d50| 3e 70 6e 75 6d 29 3b 0a | 09 72 65 74 75 72 6e 20 |>pnum);.|.return |
|00003d60| 28 70 2d 3e 70 6e 75 6d | 29 3b 0a 7d 0a 0c 0a 2f |(p->pnum|);.}.../|
|00003d70| 2a 0a 09 6f 62 74 61 69 | 6e 20 75 73 65 72 20 69 |*..obtai|n user i|
|00003d80| 6e 70 75 74 20 77 69 74 | 68 20 70 72 6f 6d 70 74 |nput wit|h prompt|
|00003d90| 20 70 2e 20 20 4f 70 74 | 69 6f 6e 61 6c 6c 79 20 | p.  Opt|ionally |
|00003da0| 6f 6e 20 69 6e 66 6f 20 | 6c 69 6e 65 2e 0a 09 68 |on info |line...h|
|00003db0| 61 6e 64 6c 65 20 65 72 | 61 73 65 20 61 6e 64 20 |andle er|ase and |
|00003dc0| 6b 69 6c 6c 20 63 68 61 | 72 61 63 74 65 72 73 2c |kill cha|racters,|
|00003dd0| 20 73 75 70 70 72 65 73 | 73 65 73 20 6c 65 61 64 | suppres|ses lead|
|00003de0| 69 6e 67 0a 09 77 68 69 | 74 65 20 73 70 61 63 65 |ing..whi|te space|
|00003df0| 2e 20 20 55 73 65 20 64 | 65 66 73 74 72 20 61 73 |.  Use d|efstr as|
|00003e00| 20 74 68 65 20 65 64 69 | 74 61 62 6c 65 20 64 65 | the edi|table de|
|00003e10| 66 61 75 6c 74 20 75 73 | 65 72 20 69 6e 70 75 74 |fault us|er input|
|00003e20| 2e 0a 09 49 66 20 6f 6e | 20 69 6e 66 6f 20 6c 69 |...If on| info li|
|00003e30| 6e 65 2c 20 63 75 72 73 | 6f 72 20 69 73 20 6e 6f |ne, curs|or is no|
|00003e40| 74 20 6d 6f 76 65 64 20 | 61 6e 79 77 68 65 72 65 |t moved |anywhere|
|00003e50| 20 77 68 65 20 64 6f 6e | 65 2c 20 6f 74 68 65 72 | whe don|e, other|
|00003e60| 77 69 73 65 0a 09 61 20 | 3c 43 52 3e 3c 4c 46 3e |wise..a |<CR><LF>|
|00003e70| 20 69 73 20 64 6f 6e 65 | 20 61 66 74 65 72 20 69 | is done| after i|
|00003e80| 6e 70 75 74 2e 20 20 53 | 68 6f 75 6c 64 20 62 65 |nput.  S|hould be|
|00003e90| 20 69 6e 20 72 61 77 20 | 6d 6f 64 65 20 74 6f 20 | in raw |mode to |
|00003ea0| 75 73 65 0a 09 74 68 69 | 73 20 72 6f 75 74 69 6e |use..thi|s routin|
|00003eb0| 65 2e 20 20 55 73 65 64 | 20 66 72 6f 6d 20 6f 75 |e.  Used| from ou|
|00003ec0| 74 73 69 64 65 20 74 68 | 69 73 20 73 6f 75 72 63 |tside th|is sourc|
|00003ed0| 65 20 66 69 6c 65 20 73 | 6f 20 74 68 61 74 20 77 |e file s|o that w|
|00003ee0| 65 0a 09 6f 6e 6c 79 20 | 68 61 76 65 20 74 6f 20 |e..only |have to |
|00003ef0| 64 6f 20 65 72 61 73 65 | 20 2f 20 6b 69 6c 6c 20 |do erase| / kill |
|00003f00| 6b 65 79 20 73 74 75 66 | 66 20 6f 6e 65 20 70 6c |key stuf|f one pl|
|00003f10| 61 63 65 2e 0a 2a 2f 0a | 75 73 65 72 5f 73 74 72 |ace..*/.|user_str|
|00003f20| 20 28 73 2c 70 2c 69 6c | 69 6e 65 2c 64 65 66 73 | (s,p,il|ine,defs|
|00003f30| 74 72 29 0a 63 68 61 72 | 20 2a 73 3b 0a 63 68 61 |tr).char| *s;.cha|
|00003f40| 72 20 2a 70 3b 0a 69 6e | 74 20 69 6c 69 6e 65 3b |r *p;.in|t iline;|
|00003f50| 0a 63 68 61 72 20 2a 64 | 65 66 73 74 72 3b 0a 7b |.char *d|efstr;.{|
|00003f60| 0a 09 69 6e 74 20 69 2c | 69 64 78 2c 6c 65 6e 3b |..int i,|idx,len;|
|00003f70| 0a 0a 09 69 66 20 28 69 | 6c 69 6e 65 29 0a 09 7b |...if (i|line)..{|
|00003f80| 0a 20 09 09 70 72 69 6e | 66 6f 20 28 22 25 73 25 |. ..prin|fo ("%s%|
|00003f90| 73 22 2c 70 2c 64 65 66 | 73 74 72 29 3b 0a 09 09 |s",p,def|str);...|
|00003fa0| 69 64 78 20 3d 20 43 5f | 69 6e 66 6f 3b 0a 09 7d |idx = C_|info;..}|
|00003fb0| 0a 09 65 6c 73 65 0a 09 | 7b 0a 20 09 09 70 72 69 |..else..|{. ..pri|
|00003fc0| 6e 74 66 20 28 22 25 73 | 25 73 22 2c 70 2c 64 65 |ntf ("%s|%s",p,de|
|00003fd0| 66 73 74 72 29 3b 0a 09 | 09 69 64 78 20 3d 20 73 |fstr);..|.idx = s|
|00003fe0| 74 72 6c 65 6e 28 70 29 | 3b 0a 09 7d 0a 0a 09 6c |trlen(p)|;..}...l|
|00003ff0| 65 6e 20 3d 20 73 74 72 | 6c 65 6e 28 64 65 66 73 |en = str|len(defs|
|00004000| 74 72 29 3b 0a 20 09 66 | 6f 72 20 28 69 3d 30 3b |tr);. .f|or (i=0;|
|00004010| 20 69 20 3c 20 6c 65 6e | 3b 20 69 2b 2b 29 0a 20 | i < len|; i++). |
|00004020| 09 09 73 5b 69 5d 20 3d | 20 64 65 66 73 74 72 5b |..s[i] =| defstr[|
|00004030| 69 5d 3b 0a 20 0a 09 66 | 6f 72 20 28 69 3d 6c 65 |i];. ..f|or (i=le|
|00004040| 6e 3b 20 69 64 78 20 3c | 20 43 5f 61 6c 6c 6f 77 |n; idx <| C_allow|
|00004050| 20 26 26 20 28 73 5b 69 | 5d 20 3d 20 67 65 74 63 | && (s[i|] = getc|
|00004060| 68 61 72 28 29 20 26 20 | 30 78 37 66 29 20 21 3d |har() & |0x7f) !=|
|00004070| 20 27 5c 30 31 32 27 20 | 26 26 20 73 5b 69 5d 20 | '\012' |&& s[i] |
|00004080| 21 3d 20 27 5c 30 31 35 | 27 3b 20 2b 2b 69 29 0a |!= '\015|'; ++i).|
|00004090| 09 7b 0a 09 09 69 66 20 | 28 73 5b 69 5d 20 3d 3d |.{...if |(s[i] ==|
|000040a0| 20 45 72 61 73 65 6b 65 | 79 29 0a 09 09 7b 0a 09 | Eraseke|y)...{..|
|000040b0| 09 09 69 66 20 28 69 20 | 3e 20 30 29 0a 09 09 09 |..if (i |> 0)....|
|000040c0| 7b 0a 09 09 09 09 74 65 | 72 6d 5f 73 65 74 20 28 |{.....te|rm_set (|
|000040d0| 52 55 42 53 45 51 29 3b | 0a 09 09 09 09 69 20 2d |RUBSEQ);|.....i -|
|000040e0| 3d 20 32 3b 0a 09 09 09 | 09 2d 2d 69 64 78 3b 0a |= 2;....|.--idx;.|
|000040f0| 09 09 09 7d 0a 09 09 09 | 65 6c 73 65 0a 09 09 09 |...}....|else....|
|00004100| 09 69 20 3d 20 2d 31 3b | 0a 09 09 09 63 6f 6e 74 |.i = -1;|....cont|
|00004110| 69 6e 75 65 3b 0a 09 09 | 7d 0a 09 09 69 66 20 28 |inue;...|}...if (|
|00004120| 73 5b 69 5d 20 3d 3d 20 | 4b 69 6c 6c 6b 65 79 29 |s[i] == |Killkey)|
|00004130| 0a 09 09 7b 0a 20 09 09 | 09 69 66 20 28 69 6c 69 |...{. ..|.if (ili|
|00004140| 6e 65 29 0a 20 09 09 09 | 7b 0a 20 09 09 09 09 70 |ne). ...|{. ....p|
|00004150| 72 69 6e 66 6f 20 28 22 | 25 73 22 2c 70 29 3b 0a |rinfo ("|%s",p);.|
|00004160| 20 09 09 09 09 69 64 78 | 20 3d 20 43 5f 69 6e 66 | ....idx| = C_inf|
|00004170| 6f 3b 0a 20 09 09 09 7d | 0a 20 09 09 09 65 6c 73 |o;. ...}|. ...els|
|00004180| 65 0a 20 09 09 09 7b 0a | 20 09 09 09 09 70 72 69 |e. ...{.| ....pri|
|00004190| 6e 74 66 20 28 22 5c 72 | 25 73 22 2c 70 29 3b 0a |ntf ("\r|%s",p);.|
|000041a0| 20 09 09 09 09 74 65 72 | 6d 5f 73 65 74 28 5a 41 | ....ter|m_set(ZA|
|000041b0| 50 2c 73 74 72 6c 65 6e | 28 70 29 2c 69 64 78 29 |P,strlen|(p),idx)|
|000041c0| 3b 0a 20 09 09 09 09 66 | 66 6c 75 73 68 28 73 74 |;. ....f|flush(st|
|000041d0| 64 6f 75 74 29 3b 0a 20 | 09 09 09 09 69 64 78 20 |dout);. |....idx |
|000041e0| 3d 20 73 74 72 6c 65 6e | 28 70 29 3b 0a 20 09 09 |= strlen|(p);. ..|
|000041f0| 09 7d 0a 09 09 09 69 20 | 3d 20 2d 31 3b 0a 09 09 |.}....i |= -1;...|
|00004200| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 09 09 7d 0a 09 |.continu|e;...}..|
|00004210| 09 2f 2a 20 6e 6f 20 6c | 65 61 64 69 6e 67 20 73 |./* no l|eading s|
|00004220| 70 61 63 65 73 20 2a 2f | 0a 09 09 69 66 20 28 73 |paces */|...if (s|
|00004230| 5b 69 5d 20 3d 3d 20 27 | 20 27 20 26 26 20 69 20 |[i] == '| ' && i |
|00004240| 3d 3d 20 30 29 0a 09 09 | 7b 0a 09 09 09 69 20 3d |== 0)...|{....i =|
|00004250| 20 2d 31 3b 0a 09 09 09 | 70 75 74 63 68 61 72 28 | -1;....|putchar(|
|00004260| 27 5c 30 37 27 29 3b 0a | 09 09 09 63 6f 6e 74 69 |'\07');.|...conti|
|00004270| 6e 75 65 3b 0a 09 09 7d | 0a 09 09 2f 2a 20 6e 6f |nue;...}|.../* no|
|00004280| 20 63 6f 6e 74 72 6f 6c | 73 20 2a 2f 0a 09 09 69 | control|s */...i|
|00004290| 66 20 28 73 5b 69 5d 20 | 3c 20 27 20 27 20 7c 7c |f (s[i] |< ' ' |||
|000042a0| 20 73 5b 69 5d 20 3d 3d | 20 27 5c 31 37 37 27 29 | s[i] ==| '\177')|
|000042b0| 0a 09 09 7b 0a 09 09 09 | 2d 2d 69 3b 0a 09 09 09 |...{....|--i;....|
|000042c0| 70 75 74 63 68 61 72 28 | 27 5c 30 37 27 29 3b 0a |putchar(|'\07');.|
|000042d0| 09 09 09 63 6f 6e 74 69 | 6e 75 65 3b 0a 09 09 7d |...conti|nue;...}|
|000042e0| 0a 09 09 2b 2b 69 64 78 | 3b 0a 09 09 70 75 74 63 |...++idx|;...putc|
|000042f0| 68 61 72 20 28 73 5b 69 | 5d 29 3b 0a 09 7d 0a 0a |har (s[i|]);..}..|
|00004300| 09 69 66 20 28 69 6c 69 | 6e 65 29 0a 09 09 43 5f |.if (ili|ne)...C_|
|00004310| 69 6e 66 6f 20 3d 20 69 | 64 78 3b 0a 09 65 6c 73 |info = i|dx;..els|
|00004320| 65 0a 09 09 70 72 69 6e | 74 66 28 22 5c 72 5c 6e |e...prin|tf("\r\n|
|00004330| 22 29 3b 0a 0a 09 73 5b | 69 5d 20 3d 20 27 5c 30 |");...s[|i] = '\0|
|00004340| 27 3b 0a 7d 0a 0a 2f 2a | 0a 09 70 72 69 6e 74 20 |';.}../*|..print |
|00004350| 73 6f 6d 65 74 68 69 6e | 67 20 6f 6e 20 74 68 65 |somethin|g on the|
|00004360| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 6c 69 6e | informa|tion lin|
|00004370| 65 2c 0a 09 63 6c 65 61 | 72 69 6e 67 20 61 6e 79 |e,..clea|ring any|
|00004380| 20 63 68 61 72 61 63 74 | 65 72 73 20 6e 6f 74 20 | charact|ers not |
|00004390| 6f 76 65 72 70 72 69 6e | 74 65 64 2e 0a 09 70 72 |overprin|ted...pr|
|000043a0| 65 69 6e 66 6f 20 69 6e | 63 6c 75 64 65 73 20 72 |einfo in|cludes r|
|000043b0| 65 76 65 72 73 65 20 76 | 69 64 65 6f 20 61 6e 64 |everse v|ideo and|
|000043c0| 20 61 20 62 65 6c 6c 20 | 66 6f 72 20 65 72 72 6f | a bell |for erro|
|000043d0| 72 20 6d 65 73 73 61 67 | 65 73 2e 0a 2a 2f 0a 70 |r messag|es..*/.p|
|000043e0| 72 65 69 6e 66 6f 20 28 | 73 2c 61 2c 62 2c 63 2c |reinfo (|s,a,b,c,|
|000043f0| 64 2c 65 2c 66 29 0a 7b | 0a 09 69 6e 74 20 6c 3b |d,e,f).{|..int l;|
|00004400| 0a 09 63 68 61 72 20 62 | 75 66 5b 52 45 43 4c 45 |..char b|uf[RECLE|
|00004410| 4e 5d 3b 0a 0a 09 74 65 | 72 6d 5f 73 65 74 20 28 |N];...te|rm_set (|
|00004420| 4d 4f 56 45 2c 30 2c 49 | 4e 46 4f 4c 49 4e 45 29 |MOVE,0,I|NFOLINE)|
|00004430| 3b 0a 09 70 75 74 63 68 | 61 72 20 28 27 5c 30 37 |;..putch|ar ('\07|
|00004440| 27 29 3b 0a 09 74 65 72 | 6d 5f 73 65 74 20 28 4f |');..ter|m_set (O|
|00004450| 4e 52 45 56 45 52 53 45 | 29 3b 0a 09 73 70 72 69 |NREVERSE|);..spri|
|00004460| 6e 74 66 20 28 62 75 66 | 2c 73 2c 61 2c 62 2c 63 |ntf (buf|,s,a,b,c|
|00004470| 2c 64 2c 65 2c 66 29 3b | 0a 09 70 72 69 6e 74 66 |,d,e,f);|..printf|
|00004480| 20 28 22 20 25 73 20 22 | 2c 62 75 66 29 3b 0a 09 | (" %s "|,buf);..|
|00004490| 74 65 72 6d 5f 73 65 74 | 20 28 4f 46 46 52 45 56 |term_set| (OFFREV|
|000044a0| 45 52 53 45 29 3b 0a 09 | 6c 20 3d 20 73 74 72 6c |ERSE);..|l = strl|
|000044b0| 65 6e 28 62 75 66 29 20 | 2b 20 32 3b 0a 09 69 66 |en(buf) |+ 2;..if|
|000044c0| 20 28 6c 20 3c 20 43 5f | 69 6e 66 6f 29 0a 09 09 | (l < C_|info)...|
|000044d0| 74 65 72 6d 5f 73 65 74 | 20 28 5a 41 50 2c 6c 2c |term_set| (ZAP,l,|
|000044e0| 43 5f 69 6e 66 6f 29 3b | 0a 09 43 5f 69 6e 66 6f |C_info);|..C_info|
|000044f0| 20 3d 20 6c 3b 0a 09 66 | 66 6c 75 73 68 28 73 74 | = l;..f|flush(st|
|00004500| 64 6f 75 74 29 3b 0a 7d | 0a 0a 70 72 69 6e 66 6f |dout);.}|..prinfo|
|00004510| 20 28 73 2c 61 2c 62 2c | 63 2c 64 2c 65 2c 66 29 | (s,a,b,|c,d,e,f)|
|00004520| 0a 63 68 61 72 20 2a 73 | 3b 0a 6c 6f 6e 67 20 61 |.char *s|;.long a|
|00004530| 2c 62 2c 63 2c 64 2c 65 | 2c 66 3b 0a 7b 0a 09 69 |,b,c,d,e|,f;.{..i|
|00004540| 6e 74 20 6c 3b 0a 09 63 | 68 61 72 20 62 75 66 5b |nt l;..c|har buf[|
|00004550| 52 45 43 4c 45 4e 5d 3b | 0a 09 74 65 72 6d 5f 73 |RECLEN];|..term_s|
|00004560| 65 74 20 28 4d 4f 56 45 | 2c 30 2c 49 4e 46 4f 4c |et (MOVE|,0,INFOL|
|00004570| 49 4e 45 29 3b 0a 09 73 | 70 72 69 6e 74 66 20 28 |INE);..s|printf (|
|00004580| 62 75 66 2c 73 2c 61 2c | 62 2c 63 2c 64 2c 65 2c |buf,s,a,|b,c,d,e,|
|00004590| 66 29 3b 0a 09 70 72 69 | 6e 74 66 20 28 22 25 73 |f);..pri|ntf ("%s|
|000045a0| 22 2c 62 75 66 29 3b 0a | 09 6c 20 3d 20 73 74 72 |",buf);.|.l = str|
|000045b0| 6c 65 6e 28 62 75 66 29 | 3b 0a 09 69 66 20 28 6c |len(buf)|;..if (l|
|000045c0| 20 3c 20 43 5f 69 6e 66 | 6f 29 0a 09 09 74 65 72 | < C_inf|o)...ter|
|000045d0| 6d 5f 73 65 74 20 28 5a | 41 50 2c 6c 2c 43 5f 69 |m_set (Z|AP,l,C_i|
|000045e0| 6e 66 6f 29 3b 0a 09 43 | 5f 69 6e 66 6f 20 3d 20 |nfo);..C|_info = |
|000045f0| 6c 3b 0a 09 66 66 6c 75 | 73 68 28 73 74 64 6f 75 |l;..fflu|sh(stdou|
|00004600| 74 29 3b 0a 7d 0a 0c 0a | 73 74 61 74 69 63 0a 74 |t);.}...|static.t|
|00004610| 6f 74 5f 6c 69 73 74 20 | 28 29 0a 7b 0a 09 69 6e |ot_list |().{..in|
|00004620| 74 20 69 2c 6d 61 78 2c | 6c 65 6e 3b 0a 09 63 68 |t i,max,|len;..ch|
|00004630| 61 72 20 63 3b 0a 09 63 | 68 61 72 20 66 66 5b 4d |ar c;..c|har ff[M|
|00004640| 41 58 5f 43 2b 31 5d 3b | 0a 0a 09 74 65 72 6d 5f |AX_C+1];|...term_|
|00004650| 73 65 74 20 28 45 52 41 | 53 45 29 3b 0a 0a 09 66 |set (ERA|SE);...f|
|00004660| 6f 72 20 28 6d 61 78 3d | 69 3d 30 3b 20 69 20 3c |or (max=|i=0; i <|
|00004670| 20 4e 63 6f 75 6e 74 3b | 20 2b 2b 69 29 0a 09 7b | Ncount;| ++i)..{|
|00004680| 0a 09 09 69 66 20 28 28 | 4e 65 77 73 6f 72 64 65 |...if ((|Newsorde|
|00004690| 72 5b 69 5d 29 2d 3e 70 | 61 67 65 73 20 3d 3d 20 |r[i])->p|ages == |
|000046a0| 30 29 0a 09 09 09 63 6f | 6e 74 69 6e 75 65 3b 0a |0)....co|ntinue;.|
|000046b0| 09 09 69 66 20 28 28 6c | 65 6e 20 3d 20 73 74 72 |..if ((l|en = str|
|000046c0| 6c 65 6e 28 28 4e 65 77 | 73 6f 72 64 65 72 5b 69 |len((New|sorder[i|
|000046d0| 5d 29 2d 3e 6e 64 5f 6e | 61 6d 65 29 29 20 3e 20 |])->nd_n|ame)) > |
|000046e0| 6d 61 78 29 0a 09 09 09 | 6d 61 78 20 3d 20 6c 65 |max)....|max = le|
|000046f0| 6e 3b 0a 09 7d 0a 0a 09 | 73 70 72 69 6e 74 66 20 |n;..}...|sprintf |
|00004700| 28 66 66 2c 22 25 25 34 | 64 20 25 25 25 64 73 3a |(ff,"%%4|d %%%ds:|
|00004710| 20 25 25 33 64 20 6e 65 | 77 20 25 25 33 64 20 75 | %%3d ne|w %%3d u|
|00004720| 70 64 61 74 65 64 5c 6e | 22 2c 6d 61 78 29 3b 0a |pdated\n|",max);.|
|00004730| 0a 09 66 6f 72 20 28 6c | 65 6e 3d 69 3d 30 3b 20 |..for (l|en=i=0; |
|00004740| 69 20 3c 20 4e 63 6f 75 | 6e 74 3b 20 2b 2b 69 29 |i < Ncou|nt; ++i)|
|00004750| 0a 09 7b 0a 09 09 69 66 | 20 28 28 4e 65 77 73 6f |..{...if| ((Newso|
|00004760| 72 64 65 72 5b 69 5d 29 | 2d 3e 70 61 67 65 73 20 |rder[i])|->pages |
|00004770| 3d 3d 20 30 29 0a 09 09 | 09 63 6f 6e 74 69 6e 75 |== 0)...|.continu|
|00004780| 65 3b 0a 09 09 70 72 69 | 6e 74 66 20 28 66 66 2c |e;...pri|ntf (ff,|
|00004790| 20 69 2c 20 28 4e 65 77 | 73 6f 72 64 65 72 5b 69 | i, (New|sorder[i|
|000047a0| 5d 29 2d 3e 6e 64 5f 6e | 61 6d 65 2c 0a 09 09 09 |])->nd_n|ame,....|
|000047b0| 09 28 4e 65 77 73 6f 72 | 64 65 72 5b 69 5d 29 2d |.(Newsor|der[i])-|
|000047c0| 3e 68 69 67 68 6e 75 6d | 20 2d 20 28 4e 65 77 73 |>highnum| - (News|
|000047d0| 6f 72 64 65 72 5b 69 5d | 29 2d 3e 6f 72 67 72 64 |order[i]|)->orgrd|
|000047e0| 2c 0a 09 09 09 09 28 4e | 65 77 73 6f 72 64 65 72 |,.....(N|ewsorder|
|000047f0| 5b 69 5d 29 2d 3e 72 64 | 6e 75 6d 20 2d 20 28 4e |[i])->rd|num - (N|
|00004800| 65 77 73 6f 72 64 65 72 | 5b 69 5d 29 2d 3e 6f 72 |ewsorder|[i])->or|
|00004810| 67 72 64 29 3b 0a 09 09 | 2b 2b 6c 65 6e 3b 0a 09 |grd);...|++len;..|
|00004820| 09 69 66 20 28 6c 65 6e | 20 3d 3d 20 4c 5f 61 6c |.if (len| == L_al|
|00004830| 6c 6f 77 20 26 26 20 69 | 20 3c 20 28 4e 63 6f 75 |low && i| < (Ncou|
|00004840| 6e 74 2d 31 29 29 0a 09 | 09 7b 0a 09 09 09 70 72 |nt-1))..|.{....pr|
|00004850| 69 6e 74 66 28 22 5c 6e | 72 20 2d 20 72 65 74 75 |intf("\n|r - retu|
|00004860| 72 6e 2c 20 6e 20 2d 20 | 6e 65 77 20 67 72 6f 75 |rn, n - |new grou|
|00004870| 70 2c 20 6f 74 68 65 72 | 20 74 6f 20 63 6f 6e 74 |p, other| to cont|
|00004880| 69 6e 75 65 20 2e 2e 2e | 20 22 29 3b 0a 09 09 09 |inue ...| ");....|
|00004890| 69 66 20 28 28 63 20 3d | 20 67 65 74 6e 6f 63 74 |if ((c =| getnoct|
|000048a0| 6c 28 29 29 20 3d 3d 20 | 27 72 27 20 7c 7c 20 63 |l()) == |'r' || c|
|000048b0| 20 3d 3d 20 27 6e 27 29 | 0a 09 09 09 09 62 72 65 | == 'n')|.....bre|
|000048c0| 61 6b 3b 0a 09 09 09 70 | 72 69 6e 74 66 20 28 22 |ak;....p|rintf ("|
|000048d0| 5c 6e 5c 6e 22 29 3b 0a | 09 09 09 6c 65 6e 20 3d |\n\n");.|...len =|
|000048e0| 20 30 3b 0a 09 09 7d 0a | 09 7d 0a 09 69 66 20 28 | 0;...}.|.}..if (|
|000048f0| 69 20 3e 3d 20 4e 63 6f | 75 6e 74 29 0a 09 7b 0a |i >= Nco|unt)..{.|
|00004900| 09 09 70 72 69 6e 74 66 | 28 22 6e 20 2d 20 6e 65 |..printf|("n - ne|
|00004910| 77 20 67 72 6f 75 70 2c | 20 6f 74 68 65 72 20 74 |w group,| other t|
|00004920| 6f 20 72 65 74 75 72 6e | 20 2e 2e 2e 20 22 29 3b |o return| ... ");|
|00004930| 0a 09 09 63 20 3d 20 67 | 65 74 6e 6f 63 74 6c 28 |...c = g|etnoctl(|
|00004940| 29 3b 0a 09 7d 0a 0a 09 | 2f 2a 20 63 20 77 69 6c |);..}...|/* c wil|
|00004950| 6c 20 72 65 6d 61 69 6e | 20 27 6e 27 20 77 68 69 |l remain| 'n' whi|
|00004960| 6c 65 20 75 73 65 72 20 | 63 68 6f 6f 73 65 73 20 |le user |chooses |
|00004970| 62 61 64 20 6e 65 77 73 | 67 72 6f 75 70 73 20 2a |bad news|groups *|
|00004980| 2f 0a 09 77 68 69 6c 65 | 20 28 63 20 3d 3d 20 27 |/..while| (c == '|
|00004990| 6e 27 29 0a 09 7b 0a 09 | 09 70 72 69 6e 74 66 28 |n')..{..|.printf(|
|000049a0| 22 5c 6e 22 29 3b 0a 09 | 09 75 73 65 72 5f 73 74 |"\n");..|.user_st|
|000049b0| 72 28 66 66 2c 22 4e 65 | 77 73 67 72 6f 75 70 20 |r(ff,"Ne|wsgroup |
|000049c0| 6e 75 6d 62 65 72 20 3f | 20 22 2c 30 2c 22 22 29 |number ?| ",0,"")|
|000049d0| 3b 0a 09 09 69 20 3d 20 | 61 74 6f 69 28 66 66 29 |;...i = |atoi(ff)|
|000049e0| 3b 0a 20 09 09 69 66 20 | 28 69 20 3c 20 30 20 7c |;. ..if |(i < 0 ||
|000049f0| 7c 20 69 20 3e 3d 20 4e | 63 6f 75 6e 74 20 7c 7c || i >= N|count |||
|00004a00| 20 28 4e 65 77 73 6f 72 | 64 65 72 5b 69 5d 29 2d | (Newsor|der[i])-|
|00004a10| 3e 70 61 67 65 73 20 3d | 3d 20 30 29 0a 09 09 7b |>pages =|= 0)...{|
|00004a20| 0a 20 09 09 09 70 72 69 | 6e 74 66 28 22 5c 6e 42 |. ...pri|ntf("\nB|
|00004a30| 61 64 20 6e 65 77 73 67 | 72 6f 75 70 20 6e 75 6d |ad newsg|roup num|
|00004a40| 62 65 72 5c 6e 22 29 3b | 0a 20 09 09 09 70 72 69 |ber\n");|. ...pri|
|00004a50| 6e 74 66 28 22 6e 20 2d | 20 6e 65 77 20 67 72 6f |ntf("n -| new gro|
|00004a60| 75 70 2c 20 6f 74 68 65 | 72 20 74 6f 20 72 65 74 |up, othe|r to ret|
|00004a70| 75 72 6e 20 2e 2e 2e 20 | 22 29 3b 0a 09 09 09 63 |urn ... |");....c|
|00004a80| 20 3d 20 67 65 74 6e 6f | 63 74 6c 28 29 3b 0a 09 | = getno|ctl();..|
|00004a90| 09 09 63 6f 6e 74 69 6e | 75 65 3b 0a 20 09 09 7d |..contin|ue;. ..}|
|00004aa0| 0a 20 09 09 66 69 6e 64 | 5f 70 61 67 65 28 28 4e |. ..find|_page((N|
|00004ab0| 65 77 73 6f 72 64 65 72 | 5b 69 5d 29 2d 3e 70 6e |ewsorder|[i])->pn|
|00004ac0| 75 6d 29 3b 0a 09 09 43 | 72 65 63 20 3d 20 52 45 |um);...C|rec = RE|
|00004ad0| 43 42 49 41 53 3b 0a 09 | 09 48 69 67 68 72 65 63 |CBIAS;..|.Highrec|
|00004ae0| 20 3d 20 50 61 67 65 2e | 68 2e 61 72 74 6e 75 6d | = Page.|h.artnum|
|00004af0| 20 2b 20 52 45 43 42 49 | 41 53 3b 0a 09 09 63 20 | + RECBI|AS;...c |
|00004b00| 3d 20 27 5c 30 27 3b 0a | 09 7d 0a 7d 0a 0c 0a 2f |= '\0';.|.}.}.../|
|00004b10| 2a 0a 2a 2a 20 63 61 6c | 6c 20 76 6e 73 5f 77 72 |*.** cal|l vns_wr|
|00004b20| 69 74 65 20 69 66 20 61 | 6e 79 74 68 69 6e 67 20 |ite if a|nything |
|00004b30| 68 61 73 20 63 68 61 6e | 67 65 64 2c 20 74 68 65 |has chan|ged, the|
|00004b40| 6e 20 77 69 70 65 20 46 | 4c 47 5f 45 43 48 47 20 |n wipe F|LG_ECHG |
|00004b50| 62 69 74 73 0a 2a 2a 20 | 61 6c 73 6f 20 70 72 6f |bits.** |also pro|
|00004b60| 64 75 63 65 20 6d 65 73 | 73 61 67 65 28 73 29 0a |duce mes|sage(s).|
|00004b70| 2a 2f 0a 73 74 61 74 69 | 63 0a 64 6f 5f 75 70 64 |*/.stati|c.do_upd|
|00004b80| 61 74 65 28 6d 73 67 29 | 0a 63 68 61 72 20 2a 6d |ate(msg)|.char *m|
|00004b90| 73 67 3b 0a 7b 0a 09 69 | 6e 74 20 69 3b 0a 0a 09 |sg;.{..i|nt i;...|
|00004ba0| 66 6f 72 20 28 69 3d 30 | 3b 20 69 20 3c 20 4e 63 |for (i=0|; i < Nc|
|00004bb0| 6f 75 6e 74 3b 20 2b 2b | 69 29 0a 09 09 69 66 28 |ount; ++|i)...if(|
|00004bc0| 28 28 4e 65 77 73 6f 72 | 64 65 72 5b 69 5d 29 2d |((Newsor|der[i])-|
|00004bd0| 3e 66 6c 61 67 73 20 26 | 20 46 4c 47 5f 45 43 48 |>flags &| FLG_ECH|
|00004be0| 47 29 20 21 3d 20 30 29 | 0a 09 09 09 62 72 65 61 |G) != 0)|....brea|
|00004bf0| 6b 3b 0a 09 69 66 20 28 | 69 20 3c 20 4e 63 6f 75 |k;..if (|i < Ncou|
|00004c00| 6e 74 29 0a 09 7b 0a 09 | 09 70 72 69 6e 66 6f 28 |nt)..{..|.prinfo(|
|00004c10| 22 57 72 69 74 69 6e 67 | 20 6e 65 77 73 20 73 74 |"Writing| news st|
|00004c20| 61 74 75 73 22 29 3b 0a | 09 09 76 6e 73 5f 77 72 |atus");.|..vns_wr|
|00004c30| 69 74 65 28 4e 65 77 73 | 6f 72 64 65 72 2c 4e 63 |ite(News|order,Nc|
|00004c40| 6f 75 6e 74 29 3b 0a 09 | 09 66 6f 72 20 28 69 3d |ount);..|.for (i=|
|00004c50| 30 3b 20 69 20 3c 20 4e | 63 6f 75 6e 74 3b 20 2b |0; i < N|count; +|
|00004c60| 2b 69 29 0a 09 09 09 28 | 4e 65 77 73 6f 72 64 65 |+i)....(|Newsorde|
|00004c70| 72 5b 69 5d 29 2d 3e 66 | 6c 61 67 73 20 26 3d 20 |r[i])->f|lags &= |
|00004c80| 7e 46 4c 47 5f 45 43 48 | 47 3b 0a 09 7d 0a 09 70 |~FLG_ECH|G;..}..p|
|00004c90| 72 69 6e 66 6f 28 6d 73 | 67 29 3b 0a 7d 0a 0a 2f |rinfo(ms|g);.}../|
|00004ca0| 2a 0a 2a 2a 20 73 65 74 | 20 61 20 6e 65 77 20 72 |*.** set| a new r|
|00004cb0| 64 6e 75 6d 20 76 61 6c | 75 65 2e 20 20 49 66 20 |dnum val|ue.  If |
|00004cc0| 61 20 63 68 61 6e 67 65 | 2c 20 73 65 74 20 46 4c |a change|, set FL|
|00004cd0| 47 5f 45 43 48 47 0a 2a | 2f 0a 73 74 61 74 69 63 |G_ECHG.*|/.static|
|00004ce0| 0a 6e 65 77 5f 72 65 61 | 64 28 6e 2c 72 64 29 0a |.new_rea|d(n,rd).|
|00004cf0| 4e 4f 44 45 20 2a 6e 3b | 0a 69 6e 74 20 72 64 3b |NODE *n;|.int rd;|
|00004d00| 0a 7b 0a 09 69 66 20 28 | 6e 2d 3e 72 64 6e 75 6d |.{..if (|n->rdnum|
|00004d10| 20 21 3d 20 72 64 29 0a | 09 7b 0a 09 09 6e 2d 3e | != rd).|.{...n->|
|00004d20| 72 64 6e 75 6d 20 3d 20 | 72 64 3b 0a 09 09 6e 2d |rdnum = |rd;...n-|
|00004d30| 3e 66 6c 61 67 73 20 7c | 3d 20 46 4c 47 5f 45 43 |>flags ||= FLG_EC|
|00004d40| 48 47 3b 0a 09 7d 0a 7d | 0a 0a 2f 2a 0a 2a 2a 20 |HG;..}.}|../*.** |
|00004d50| 73 65 74 20 61 20 6e 65 | 77 20 73 75 62 73 63 72 |set a ne|w subscr|
|00004d60| 69 70 74 69 6f 6e 20 62 | 69 74 2e 20 20 62 69 74 |iption b|it.  bit|
|00004d70| 20 61 72 67 75 6d 65 6e | 74 20 69 73 20 65 69 74 | argumen|t is eit|
|00004d80| 68 65 72 20 30 20 6f 72 | 20 46 4c 47 5f 53 55 42 |her 0 or| FLG_SUB|
|00004d90| 2e 0a 2a 2f 0a 73 74 61 | 74 69 63 0a 6e 65 77 5f |..*/.sta|tic.new_|
|00004da0| 73 75 62 28 6e 2c 62 69 | 74 29 0a 4e 4f 44 45 20 |sub(n,bi|t).NODE |
|00004db0| 2a 6e 3b 0a 75 6e 73 69 | 67 6e 65 64 20 62 69 74 |*n;.unsi|gned bit|
|00004dc0| 3b 0a 7b 0a 09 2f 2a 0a | 09 2a 2a 20 73 69 6e 63 |;.{../*.|.** sinc|
|00004dd0| 65 20 62 69 74 20 69 73 | 20 30 20 6f 72 20 46 4c |e bit is| 0 or FL|
|00004de0| 47 5f 53 55 42 2c 20 77 | 65 20 63 6f 75 6c 64 20 |G_SUB, w|e could |
|00004df0| 67 65 74 20 74 72 69 63 | 6b 79 20 77 69 74 68 20 |get tric|ky with |
|00004e00| 5e 0a 09 2a 2a 20 62 75 | 74 20 74 68 69 73 20 69 |^..** bu|t this i|
|00004e10| 73 20 63 6c 65 61 72 65 | 72 0a 09 2a 2f 0a 09 69 |s cleare|r..*/..i|
|00004e20| 66 20 28 62 69 74 20 21 | 3d 20 30 20 26 26 20 28 |f (bit !|= 0 && (|
|00004e30| 6e 2d 3e 66 6c 61 67 73 | 20 26 20 46 4c 47 5f 53 |n->flags| & FLG_S|
|00004e40| 55 42 29 20 3d 3d 20 30 | 29 0a 09 09 6e 2d 3e 66 |UB) == 0|)...n->f|
|00004e50| 6c 61 67 73 20 7c 3d 20 | 46 4c 47 5f 53 55 42 7c |lags |= |FLG_SUB||
|00004e60| 46 4c 47 5f 45 43 48 47 | 3b 0a 09 65 6c 73 65 0a |FLG_ECHG|;..else.|
|00004e70| 09 7b 0a 09 09 69 66 20 | 28 62 69 74 20 3d 3d 20 |.{...if |(bit == |
|00004e80| 30 20 26 26 20 28 6e 2d | 3e 66 6c 61 67 73 20 26 |0 && (n-|>flags &|
|00004e90| 20 46 4c 47 5f 53 55 42 | 29 20 21 3d 20 30 29 0a | FLG_SUB|) != 0).|
|00004ea0| 09 09 7b 0a 09 09 09 6e | 2d 3e 66 6c 61 67 73 20 |..{....n|->flags |
|00004eb0| 26 3d 20 7e 46 4c 47 5f | 53 55 42 3b 0a 09 09 09 |&= ~FLG_|SUB;....|
|00004ec0| 6e 2d 3e 66 6c 61 67 73 | 20 7c 3d 20 46 4c 47 5f |n->flags| |= FLG_|
|00004ed0| 45 43 48 47 3b 0a 09 09 | 7d 0a 09 7d 0a 7d 0a 53 |ECHG;...|}..}.}.S|
|00004ee0| 48 41 52 5f 45 4f 46 0a | 66 69 20 23 20 65 6e 64 |HAR_EOF.|fi # end|
|00004ef0| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00004f00| 63 68 65 63 6b 0a 65 63 | 68 6f 20 73 68 61 72 3a |check.ec|ho shar:|
|00004f10| 20 65 78 74 72 61 63 74 | 69 6e 67 20 22 27 72 65 | extract|ing "'re|
|00004f20| 61 64 65 72 2e 63 27 22 | 20 27 28 31 35 37 35 30 |ader.c'"| '(15750|
|00004f30| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 69 66 | charact|ers)'.if|
|00004f40| 20 74 65 73 74 20 2d 66 | 20 27 72 65 61 64 65 72 | test -f| 'reader|
|00004f50| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00004f60| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00004f70| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00004f80| 67 20 66 69 6c 65 20 22 | 27 72 65 61 64 65 72 2e |g file "|'reader.|
|00004f90| 63 27 22 0a 65 6c 73 65 | 0a 63 61 74 20 3c 3c 20 |c'".else|.cat << |
|00004fa0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 72 65 61 |\SHAR_EO|F > 'rea|
|00004fb0| 64 65 72 2e 63 27 0a 2f | 2a 0a 2a 2a 20 76 6e 20 |der.c'./|*.** vn |
|00004fc0| 6e 65 77 73 20 72 65 61 | 64 65 72 2e 0a 2a 2a 0a |news rea|der..**.|
|00004fd0| 2a 2a 20 72 65 61 64 65 | 72 2e 63 20 2d 20 61 72 |** reade|r.c - ar|
|00004fe0| 74 69 63 6c 65 20 72 65 | 61 64 69 6e 67 20 69 6e |ticle re|ading in|
|00004ff0| 74 65 72 66 61 63 65 20 | 2d 20 22 6d 6f 72 65 22 |terface |- "more"|
|00005000| 20 6c 69 6b 65 2e 0a 2a | 2a 0a 2a 2a 20 73 65 65 | like..*|*.** see|
|00005010| 20 63 6f 70 79 72 69 67 | 68 74 20 64 69 73 63 6c | copyrig|ht discl|
|00005020| 61 69 6d 65 72 20 2f 20 | 68 69 73 74 6f 72 79 20 |aimer / |history |
|00005030| 69 6e 20 76 6e 2e 63 20 | 73 6f 75 72 63 65 20 66 |in vn.c |source f|
|00005040| 69 6c 65 0a 2a 2f 0a 0a | 23 69 6e 63 6c 75 64 65 |ile.*/..|#include|
|00005050| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 23 69 6e 63 6c | <stdio.|h>.#incl|
|00005060| 75 64 65 20 3c 73 79 73 | 2f 74 79 70 65 73 2e 68 |ude <sys|/types.h|
|00005070| 3e 0a 23 69 6e 63 6c 75 | 64 65 20 22 74 74 79 2e |>.#inclu|de "tty.|
|00005080| 68 22 0a 23 69 6e 63 6c | 75 64 65 20 22 63 6f 6e |h".#incl|ude "con|
|00005090| 66 69 67 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |fig.h".#|include |
|000050a0| 22 74 75 6e 65 2e 68 22 | 0a 23 69 6e 63 6c 75 64 |"tune.h"|.#includ|
|000050b0| 65 20 22 68 65 61 64 2e | 68 22 0a 23 69 6e 63 6c |e "head.|h".#incl|
|000050c0| 75 64 65 20 22 72 65 61 | 64 65 72 2e 68 22 0a 23 |ude "rea|der.h".#|
|000050d0| 69 6e 63 6c 75 64 65 20 | 22 62 72 6b 2e 68 22 0a |include |"brk.h".|
|000050e0| 23 69 6e 63 6c 75 64 65 | 20 22 6e 6f 64 65 2e 68 |#include| "node.h|
|000050f0| 22 0a 23 69 6e 63 6c 75 | 64 65 20 22 70 61 67 65 |".#inclu|de "page|
|00005100| 2e 68 22 0a 23 69 6e 63 | 6c 75 64 65 20 22 76 6e |.h".#inc|lude "vn|
|00005110| 2e 68 22 0a 0a 23 64 65 | 66 69 6e 65 20 50 45 52 |.h"..#de|fine PER|
|00005120| 54 41 42 20 38 09 2f 2a | 20 74 61 62 20 65 78 70 |TAB 8./*| tab exp|
|00005130| 61 6e 73 69 6f 6e 20 66 | 61 63 74 6f 72 20 2a 2f |ansion f|actor */|
|00005140| 0a 23 64 65 66 69 6e 65 | 20 42 41 43 4b 54 52 41 |.#define| BACKTRA|
|00005150| 43 4b 20 32 34 0a 0a 65 | 78 74 65 72 6e 20 63 68 |CK 24..e|xtern ch|
|00005160| 61 72 20 2a 50 72 69 6e | 74 65 72 2c 2a 45 64 69 |ar *Prin|ter,*Edi|
|00005170| 74 6f 72 2c 2a 4d 61 69 | 6c 65 72 2c 2a 50 6f 73 |tor,*Mai|ler,*Pos|
|00005180| 74 65 72 2c 2a 4f 72 67 | 64 69 72 2c 2a 53 61 76 |ter,*Org|dir,*Sav|
|00005190| 65 66 69 6c 65 2c 2a 53 | 61 76 65 64 69 72 2c 2a |efile,*S|avedir,*|
|000051a0| 43 63 66 69 6c 65 3b 0a | 65 78 74 65 72 6e 20 69 |Ccfile;.|extern i|
|000051b0| 6e 74 20 4c 5f 61 6c 6c | 6f 77 3b 0a 65 78 74 65 |nt L_all|ow;.exte|
|000051c0| 72 6e 20 69 6e 74 20 43 | 5f 61 6c 6c 6f 77 3b 0a |rn int C|_allow;.|
|000051d0| 65 78 74 65 72 6e 20 69 | 6e 74 20 52 6f 74 3b 0a |extern i|nt Rot;.|
|000051e0| 65 78 74 65 72 6e 20 69 | 6e 74 20 48 65 61 64 66 |extern i|nt Headf|
|000051f0| 6c 61 67 3b 0a 65 78 74 | 65 72 6e 20 69 6e 74 20 |lag;.ext|ern int |
|00005200| 44 69 67 65 73 74 3b 0a | 65 78 74 65 72 6e 20 69 |Digest;.|extern i|
|00005210| 6e 74 20 4d 6f 72 65 3b | 0a 65 78 74 65 72 6e 20 |nt More;|.extern |
|00005220| 63 68 61 72 20 2a 4e 6f | 5f 6d 73 67 3b 0a 65 78 |char *No|_msg;.ex|
|00005230| 74 65 72 6e 20 63 68 61 | 72 20 2a 52 6f 74 6f 6e |tern cha|r *Roton|
|00005240| 5f 6d 73 67 3b 0a 65 78 | 74 65 72 6e 20 63 68 61 |_msg;.ex|tern cha|
|00005250| 72 20 2a 52 6f 74 6f 66 | 66 5f 6d 73 67 3b 0a 65 |r *Rotof|f_msg;.e|
|00005260| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 48 64 6f 6e |xtern ch|ar *Hdon|
|00005270| 5f 6d 73 67 3b 0a 65 78 | 74 65 72 6e 20 63 68 61 |_msg;.ex|tern cha|
|00005280| 72 20 2a 48 64 6f 66 66 | 5f 6d 73 67 3b 0a 0a 65 |r *Hdoff|_msg;..e|
|00005290| 78 74 65 72 6e 20 50 41 | 47 45 20 50 61 67 65 3b |xtern PA|GE Page;|
|000052a0| 0a 0a 65 78 74 65 72 6e | 20 69 6e 74 20 28 2a 4d |..extern| int (*M|
|000052b0| 61 73 73 61 67 65 29 28 | 29 3b 0a 65 78 74 65 72 |assage)(|);.exter|
|000052c0| 6e 20 69 6e 74 20 28 2a | 50 6f 73 74 66 75 6e 63 |n int (*|Postfunc|
|000052d0| 29 28 29 3b 0a 65 78 74 | 65 72 6e 20 69 6e 74 20 |)();.ext|ern int |
|000052e0| 28 2a 4d 61 69 6c 66 75 | 6e 63 29 28 29 3b 0a 0a |(*Mailfu|nc)();..|
|000052f0| 65 78 74 65 72 6e 20 63 | 68 61 72 20 43 78 72 74 |extern c|har Cxrt|
|00005300| 6f 69 5b 5d 2c 20 43 78 | 69 74 6f 72 5b 5d 3b 0a |oi[], Cx|itor[];.|
|00005310| 0a 73 74 61 74 69 63 20 | 46 49 4c 45 20 2a 46 70 |.static |FILE *Fp|
|00005320| 72 65 61 64 3b 0a 73 74 | 61 74 69 63 20 63 68 61 |read;.st|atic cha|
|00005330| 72 20 2a 46 6e 61 6d 65 | 3b 0a 73 74 61 74 69 63 |r *Fname|;.static|
|00005340| 20 63 68 61 72 20 2a 4c | 6f 6f 6b 61 68 65 61 64 | char *L|ookahead|
|00005350| 3b 0a 73 74 61 74 69 63 | 20 69 6e 74 20 52 6c 69 |;.static| int Rli|
|00005360| 6e 65 73 3b 0a 73 74 61 | 74 69 63 20 69 6e 74 20 |nes;.sta|tic int |
|00005370| 48 6c 69 6e 65 73 3b 0a | 73 74 61 74 69 63 20 6c |Hlines;.|static l|
|00005380| 6f 6e 67 20 52 65 77 5f | 70 6f 73 3b 0a 0c 0a 2f |ong Rew_|pos;.../|
|00005390| 2a 0a 09 72 65 61 64 66 | 69 6c 65 20 70 72 65 73 |*..readf|ile pres|
|000053a0| 65 6e 74 73 20 61 72 74 | 69 63 6c 65 3a 0a 09 09 |ents art|icle:...|
|000053b0| 66 6e 20 3d 20 6e 61 6d | 65 20 6f 66 20 61 72 74 |fn = nam|e of art|
|000053c0| 69 63 6c 65 2e 0a 09 09 | 73 6e 20 2d 20 6e 61 6d |icle....|sn - nam|
|000053d0| 65 20 6f 66 20 6e 65 78 | 74 20 61 72 74 69 63 6c |e of nex|t articl|
|000053e0| 65 2c 20 4e 55 4c 4c 20 | 69 66 20 6c 61 73 74 2e |e, NULL |if last.|
|000053f0| 0a 09 09 70 61 67 65 73 | 20 2d 20 70 61 67 65 73 |...pages| - pages|
|00005400| 20 74 6f 20 61 64 76 61 | 6e 63 65 20 6f 6e 20 72 | to adva|nce on r|
|00005410| 65 74 75 72 6e 2c 20 69 | 66 20 61 70 70 6c 69 63 |eturn, i|f applic|
|00005420| 61 62 6c 65 0a 09 72 65 | 74 75 72 6e 73 20 30 20 |able..re|turns 0 |
|00005430| 66 6f 72 20 22 63 6f 6e | 74 69 6e 75 65 22 2c 20 |for "con|tinue", |
|00005440| 3c 30 20 66 6f 72 20 22 | 71 75 69 74 22 0a 0a 09 |<0 for "|quit"...|
|00005450| 63 61 6c 6c 73 20 73 69 | 67 5f 73 65 74 28 42 52 |calls si|g_set(BR|
|00005460| 4b 5f 52 45 41 44 20 2f | 20 42 52 4b 5f 52 46 49 |K_READ /| BRK_RFI|
|00005470| 4e 29 20 61 72 6f 75 6e | 64 20 72 65 61 64 69 6e |N) aroun|d readin|
|00005480| 67 20 61 72 74 69 63 6c | 65 2e 0a 2a 2f 0a 72 65 |g articl|e..*/.re|
|00005490| 61 64 66 69 6c 65 20 28 | 66 6e 2c 73 6e 2c 70 61 |adfile (|fn,sn,pa|
|000054a0| 67 65 73 29 0a 63 68 61 | 72 20 2a 66 6e 3b 0a 63 |ges).cha|r *fn;.c|
|000054b0| 68 61 72 20 2a 73 6e 3b | 0a 69 6e 74 20 2a 70 61 |har *sn;|.int *pa|
|000054c0| 67 65 73 3b 0a 7b 0a 09 | 41 52 54 48 45 41 44 45 |ges;.{..|ARTHEADE|
|000054d0| 52 20 68 64 72 3b 0a 09 | 46 49 4c 45 20 2a 66 6f |R hdr;..|FILE *fo|
|000054e0| 70 65 6e 28 29 3b 0a 09 | 69 6e 74 20 6c 69 6e 65 |pen();..|int line|
|000054f0| 73 2c 70 65 72 63 65 6e | 74 3b 0a 09 69 6e 74 20 |s,percen|t;..int |
|00005500| 69 3b 0a 09 69 6e 74 20 | 74 6f 70 2c 20 62 6f 74 |i;..int |top, bot|
|00005510| 74 6f 6d 3b 0a 09 69 6e | 74 20 73 74 65 70 3b 0a |tom;..in|t step;.|
|00005520| 09 63 68 61 72 20 63 2c | 20 20 62 75 66 5b 52 45 |.char c,|  buf[RE|
|00005530| 43 4c 45 4e 5d 3b 0a 09 | 63 68 61 72 20 6c 61 73 |CLEN];..|char las|
|00005540| 61 76 65 5b 52 45 43 4c | 45 4e 5d 3b 0a 09 63 68 |ave[RECL|EN];..ch|
|00005550| 61 72 20 70 73 74 72 5b | 32 34 5d 2c 20 64 67 6e |ar pstr[|24], dgn|
|00005560| 61 6d 65 5b 34 38 5d 3b | 0a 09 63 68 61 72 20 67 |ame[48];|..char g|
|00005570| 65 74 70 67 63 68 28 29 | 2c 20 2a 69 6e 64 65 78 |etpgch()|, *index|
|00005580| 28 29 2c 20 2a 64 69 67 | 65 73 74 5f 65 78 74 72 |(), *dig|est_extr|
|00005590| 61 63 74 28 29 2c 20 2a | 74 67 65 74 73 74 72 28 |act(), *|tgetstr(|
|000055a0| 29 3b 0a 09 63 68 61 72 | 20 2a 61 6e 79 3b 0a 09 |);..char| *any;..|
|000055b0| 46 49 4c 45 20 2a 76 6e | 73 5f 61 6f 70 65 6e 28 |FILE *vn|s_aopen(|
|000055c0| 29 3b 0a 09 6c 6f 6e 67 | 20 66 74 65 6c 6c 28 29 |);..long| ftell()|
|000055d0| 3b 0a 0a 09 46 6e 61 6d | 65 20 3d 20 66 6e 3b 0a |;...Fnam|e = fn;.|
|000055e0| 09 2a 70 61 67 65 73 20 | 3d 20 30 3b 0a 09 73 74 |.*pages |= 0;..st|
|000055f0| 65 70 20 3d 20 46 41 4c | 53 45 3b 09 2f 2a 20 42 |ep = FAL|SE;./* B|
|00005600| 6f 6f 6c 65 61 6e 3b 20 | 74 6f 20 69 6e 64 69 63 |oolean; |to indic|
|00005610| 61 74 65 20 75 73 65 72 | 20 69 6e 70 75 74 20 61 |ate user| input a|
|00005620| 20 3c 52 45 54 3e 20 28 | 50 47 5f 53 54 45 50 29 | <RET> (|PG_STEP)|
|00005630| 20 2a 2f 0a 0a 09 74 65 | 72 6d 5f 73 65 74 28 45 | */...te|rm_set(E|
|00005640| 52 41 53 45 29 3b 0a 09 | 73 69 67 5f 73 65 74 28 |RASE);..|sig_set(|
|00005650| 42 52 4b 5f 52 45 41 44 | 2c 26 46 70 72 65 61 64 |BRK_READ|,&Fpread|
|00005660| 29 3b 0a 0a 09 61 6e 79 | 20 3d 20 22 61 6e 79 20 |);...any| = "any |
|00005670| 6b 65 79 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 20 |key to c|ontinue |
|00005680| 2e 2e 2e 2e 20 22 3b 0a | 0a 09 69 66 20 28 44 69 |.... ";.|..if (Di|
|00005690| 67 65 73 74 29 0a 09 7b | 0a 09 09 6c 69 6e 65 73 |gest)..{|...lines|
|000056a0| 20 3d 20 61 74 6f 69 28 | 46 6e 61 6d 65 29 3b 0a | = atoi(|Fname);.|
|000056b0| 09 09 69 66 20 28 28 46 | 6e 61 6d 65 20 3d 20 64 |..if ((F|name = d|
|000056c0| 69 67 65 73 74 5f 65 78 | 74 72 61 63 74 28 64 67 |igest_ex|tract(dg|
|000056d0| 6e 61 6d 65 2c 6c 69 6e | 65 73 2c 26 68 64 72 2c |name,lin|es,&hdr,|
|000056e0| 26 52 65 77 5f 70 6f 73 | 29 29 20 3d 3d 20 4e 55 |&Rew_pos|)) == NU|
|000056f0| 4c 4c 29 0a 09 09 7b 0a | 09 09 09 72 65 72 72 6d |LL)...{.|...rerrm|
|00005700| 73 67 28 22 63 6f 75 6c | 64 6e 27 74 20 65 78 74 |sg("coul|dn't ext|
|00005710| 72 61 63 74 20 61 72 74 | 69 63 6c 65 20 25 64 20 |ract art|icle %d |
|00005720| 66 72 6f 6d 20 64 69 67 | 65 73 74 22 2c 6c 69 6e |from dig|est",lin|
|00005730| 65 73 29 3b 0a 09 09 09 | 70 72 69 6e 74 66 28 61 |es);....|printf(a|
|00005740| 6e 79 29 3b 0a 09 09 09 | 67 65 74 6e 6f 63 74 6c |ny);....|getnoctl|
|00005750| 28 29 3b 0a 09 09 09 73 | 69 67 5f 73 65 74 28 42 |();....s|ig_set(B|
|00005760| 52 4b 5f 52 46 49 4e 29 | 3b 0a 09 09 09 72 65 74 |RK_RFIN)|;....ret|
|00005770| 75 72 6e 20 28 30 29 3b | 0a 09 09 7d 0a 09 09 69 |urn (0);|...}...i|
|00005780| 66 20 28 28 46 70 72 65 | 61 64 20 3d 20 66 6f 70 |f ((Fpre|ad = fop|
|00005790| 65 6e 28 46 6e 61 6d 65 | 2c 22 72 22 29 29 20 3d |en(Fname|,"r")) =|
|000057a0| 3d 20 4e 55 4c 4c 29 0a | 09 09 7b 0a 09 09 09 72 |= NULL).|..{....r|
|000057b0| 65 72 72 6d 73 67 28 22 | 63 6f 75 6c 64 6e 27 74 |errmsg("|couldn't|
|000057c0| 20 6f 70 65 6e 20 25 73 | 22 2c 46 6e 61 6d 65 29 | open %s|",Fname)|
|000057d0| 3b 0a 09 09 09 70 72 69 | 6e 74 66 28 61 6e 79 29 |;....pri|ntf(any)|
|000057e0| 3b 0a 09 09 09 67 65 74 | 6e 6f 63 74 6c 28 29 3b |;....get|noctl();|
|000057f0| 0a 09 09 09 73 69 67 5f | 73 65 74 28 42 52 4b 5f |....sig_|set(BRK_|
|00005800| 52 46 49 4e 29 3b 0a 09 | 09 09 72 65 74 75 72 6e |RFIN);..|..return|
|00005810| 20 28 30 29 3b 0a 09 09 | 7d 0a 09 09 66 73 65 65 | (0);...|}...fsee|
|00005820| 6b 28 46 70 72 65 61 64 | 2c 52 65 77 5f 70 6f 73 |k(Fpread|,Rew_pos|
|00005830| 2c 30 29 3b 0a 09 7d 0a | 09 65 6c 73 65 0a 09 7b |,0);..}.|.else..{|
|00005840| 0a 09 09 69 66 20 28 28 | 46 70 72 65 61 64 20 3d |...if ((|Fpread =|
|00005850| 20 76 6e 73 5f 61 6f 70 | 65 6e 28 61 74 6f 69 28 | vns_aop|en(atoi(|
|00005860| 46 6e 61 6d 65 29 2c 26 | 68 64 72 29 29 20 3d 3d |Fname),&|hdr)) ==|
|00005870| 20 4e 55 4c 4c 29 0a 09 | 09 7b 0a 09 09 09 72 65 | NULL)..|.{....re|
|00005880| 72 72 6d 73 67 28 22 63 | 6f 75 6c 64 6e 27 74 20 |rrmsg("c|ouldn't |
|00005890| 6f 70 65 6e 20 61 72 74 | 69 63 6c 65 20 25 73 22 |open art|icle %s"|
|000058a0| 2c 46 6e 61 6d 65 29 3b | 0a 09 09 09 70 72 69 6e |,Fname);|....prin|
|000058b0| 74 66 28 61 6e 79 29 3b | 0a 09 09 09 67 65 74 6e |tf(any);|....getn|
|000058c0| 6f 63 74 6c 28 29 3b 0a | 09 09 09 73 69 67 5f 73 |octl();.|...sig_s|
|000058d0| 65 74 28 42 52 4b 5f 52 | 46 49 4e 29 3b 0a 09 09 |et(BRK_R|FIN);...|
|000058e0| 09 72 65 74 75 72 6e 20 | 28 30 29 3b 0a 09 09 7d |.return |(0);...}|
|000058f0| 0a 09 09 52 65 77 5f 70 | 6f 73 20 3d 20 66 74 65 |...Rew_p|os = fte|
|00005900| 6c 6c 28 46 70 72 65 61 | 64 29 3b 0a 09 7d 0a 0a |ll(Fprea|d);..}..|
|00005910| 09 48 6c 69 6e 65 73 20 | 3d 20 68 64 72 2e 68 6c |.Hlines |= hdr.hl|
|00005920| 69 6e 65 73 3b 0a 09 70 | 72 69 6e 74 66 20 28 41 |ines;..p|rintf (A|
|00005930| 4e 46 4f 52 4d 2c 46 6e | 61 6d 65 2c 43 78 72 74 |NFORM,Fn|ame,Cxrt|
|00005940| 6f 69 5b 50 47 5f 48 45 | 4c 50 5d 29 3b 0a 0a 09 |oi[PG_HE|LP]);...|
|00005950| 6c 69 6e 65 73 20 3d 20 | 30 3b 0a 0a 09 69 66 20 |lines = |0;...if |
|00005960| 28 48 65 61 64 66 6c 61 | 67 29 0a 09 7b 0a 09 09 |(Headfla|g)..{...|
|00005970| 72 65 77 69 6e 64 28 46 | 70 72 65 61 64 29 3b 0a |rewind(F|pread);.|
|00005980| 09 09 52 6c 69 6e 65 73 | 20 3d 20 30 3b 0a 09 7d |..Rlines| = 0;..}|
|00005990| 0a 09 65 6c 73 65 0a 09 | 7b 0a 09 09 2f 2a 20 75 |..else..|{.../* u|
|000059a0| 73 65 20 64 6f 5f 6f 75 | 74 20 74 6f 20 67 75 61 |se do_ou|t to gua|
|000059b0| 72 64 20 61 67 61 69 6e | 73 74 20 63 6f 6e 74 72 |rd again|st contr|
|000059c0| 6f 6c 20 73 65 71 75 65 | 6e 63 65 73 20 2a 2f 0a |ol seque|nces */.|
|000059d0| 09 09 52 6c 69 6e 65 73 | 20 3d 20 48 6c 69 6e 65 |..Rlines| = Hline|
|000059e0| 73 3b 0a 09 09 66 6f 72 | 20 28 69 3d 30 3b 20 69 |s;...for| (i=0; i|
|000059f0| 20 3c 20 68 64 72 2e 73 | 68 6f 77 5f 6e 75 6d 3b | < hdr.s|how_num;|
|00005a00| 20 2b 2b 69 29 0a 09 09 | 09 6c 69 6e 65 73 20 2b | ++i)...|.lines +|
|00005a10| 3d 20 64 6f 5f 6f 75 74 | 28 28 68 64 72 2e 73 68 |= do_out|((hdr.sh|
|00005a20| 6f 77 29 5b 69 5d 2c 4c | 5f 61 6c 6c 6f 77 2d 6c |ow)[i],L|_allow-l|
|00005a30| 69 6e 65 73 29 3b 0a 09 | 09 6c 69 6e 65 73 20 2b |ines);..|.lines +|
|00005a40| 3d 20 64 6f 5f 6f 75 74 | 28 22 22 2c 4c 5f 61 6c |= do_out|("",L_al|
|00005a50| 6c 6f 77 2d 6c 69 6e 65 | 73 29 3b 0a 09 7d 0a 0c |low-line|s);..}..|
|00005a60| 0a 09 2f 2a 20 77 69 6c | 6c 20 72 65 74 75 72 6e |../* wil|l return|
|00005a70| 20 6f 75 74 20 6f 66 20 | 6f 75 74 65 72 20 77 68 | out of |outer wh|
|00005a80| 69 6c 65 20 6c 6f 6f 70 | 20 2a 2f 0a 09 4c 6f 6f |ile loop| */..Loo|
|00005a90| 6b 61 68 65 61 64 20 3d | 20 4e 55 4c 4c 3b 0a 09 |kahead =| NULL;..|
|00005aa0| 77 68 69 6c 65 20 28 31 | 29 0a 09 7b 0a 09 09 2f |while (1|)..{.../|
|00005ab0| 2a 0a 09 09 2a 2a 20 6c | 69 6e 65 73 20 63 6f 75 |*...** l|ines cou|
|00005ac0| 6e 74 73 20 66 6f 6c 64 | 65 64 20 6c 69 6e 65 73 |nts fold|ed lines|
|00005ad0| 20 66 72 6f 6d 20 64 6f | 5f 6f 75 74 2e 0a 09 09 | from do|_out....|
|00005ae0| 2a 2a 20 67 6c 6f 62 61 | 6c 73 20 48 6c 69 6e 65 |** globa|ls Hline|
|00005af0| 73 20 61 6e 64 20 52 6c | 69 6e 65 73 20 72 65 66 |s and Rl|ines ref|
|00005b00| 65 72 20 74 6f 20 72 65 | 63 6f 72 64 73 2e 0a 09 |er to re|cords...|
|00005b10| 09 2a 2a 20 49 66 20 4c | 6f 6f 6b 61 68 65 61 64 |.** If L|ookahead|
|00005b20| 20 69 73 20 6e 75 6c 6c | 20 61 66 74 65 72 20 74 | is null| after t|
|00005b30| 68 69 73 20 6c 6f 6f 70 | 2c 20 77 65 27 76 65 0a |his loop|, we've.|
|00005b40| 09 09 2a 2a 20 68 69 74 | 20 45 4f 46 2e 0a 09 09 |..** hit| EOF....|
|00005b50| 2a 2f 0a 09 09 69 66 20 | 28 4c 6f 6f 6b 61 68 65 |*/...if |(Lookahe|
|00005b60| 61 64 20 21 3d 20 4e 55 | 4c 4c 20 26 26 20 4d 6f |ad != NU|LL && Mo|
|00005b70| 72 65 20 26 26 20 21 73 | 74 65 70 29 0a 09 09 7b |re && !s|tep)...{|
|00005b80| 0a 09 09 09 63 68 61 72 | 20 2a 6c 6f 6f 6b 74 6d |....char| *looktm|
|00005b90| 70 3b 0a 0a 09 09 09 2f | 2a 0a 09 09 09 2a 2a 20 |p;...../|*....** |
|00005ba0| 53 61 76 65 20 4c 6f 6f | 6b 61 68 65 61 64 20 62 |Save Loo|kahead b|
|00005bb0| 65 63 61 75 73 65 20 60 | 64 6f 5f 6f 75 74 27 20 |ecause `|do_out' |
|00005bc0| 6e 75 6b 65 73 20 69 74 | 2e 0a 09 09 09 2a 2a 20 |nukes it|.....** |
|00005bd0| 50 65 72 68 61 70 73 20 | 77 65 20 63 6f 75 6c 64 |Perhaps |we could|
|00005be0| 20 6a 75 73 74 20 75 73 | 65 20 60 70 72 69 6e 74 | just us|e `print|
|00005bf0| 66 27 20 68 65 72 65 0a | 09 09 09 2a 2a 20 62 75 |f' here.|...** bu|
|00005c00| 74 20 66 6f 72 20 6e 6f | 77 20 77 65 27 6c 6c 20 |t for no|w we'll |
|00005c10| 70 6c 61 79 20 69 74 20 | 73 61 66 65 2e 20 2d 20 |play it |safe. - |
|00005c20| 47 4b 45 20 31 32 2f 32 | 36 2f 38 37 0a 09 09 09 |GKE 12/2|6/87....|
|00005c30| 2a 2f 0a 09 09 09 6c 6f | 6f 6b 74 6d 70 20 3d 20 |*/....lo|oktmp = |
|00005c40| 4c 6f 6f 6b 61 68 65 61 | 64 3b 0a 09 09 09 74 65 |Lookahea|d;....te|
|00005c50| 72 6d 5f 73 65 74 28 45 | 52 41 53 45 29 3b 0a 09 |rm_set(E|RASE);..|
|00005c60| 09 09 2f 2a 20 0a 09 09 | 09 2a 2a 20 54 68 65 20 |../* ...|.** The |
|00005c70| 66 6f 6c 6c 6f 77 69 6e | 67 20 70 72 65 73 65 6e |followin|g presen|
|00005c80| 74 73 20 74 68 65 20 6c | 61 73 74 20 6c 69 6e 65 |ts the l|ast line|
|00005c90| 20 6f 66 20 74 68 65 0a | 09 09 09 2a 2a 20 70 72 | of the.|...** pr|
|00005ca0| 65 76 69 6f 75 73 20 70 | 61 67 65 20 69 6e 20 72 |evious p|age in r|
|00005cb0| 65 76 65 72 73 65 64 20 | 76 69 64 65 6f 2c 20 61 |eversed |video, a|
|00005cc0| 73 20 74 68 65 20 66 69 | 72 73 74 20 6c 69 6e 65 |s the fi|rst line|
|00005cd0| 0a 09 09 09 2a 2a 20 6f | 66 20 74 68 65 20 63 75 |....** o|f the cu|
|00005ce0| 72 72 65 6e 74 20 70 61 | 67 65 2c 20 60 72 6e 27 |rrent pa|ge, `rn'|
|00005cf0| 2d 73 74 79 6c 65 65 2e | 20 20 53 69 6e 63 65 20 |-stylee.|  Since |
|00005d00| 60 72 6e 27 0a 09 09 09 | 2a 2a 20 75 73 65 73 20 |`rn'....|** uses |
|00005d10| 61 6e 20 6f 70 74 69 6f | 6e 20 74 6f 20 65 6e 61 |an optio|n to ena|
|00005d20| 62 6c 65 2f 64 69 73 61 | 62 6c 65 20 74 68 69 73 |ble/disa|ble this|
|00005d30| 2c 20 72 65 6d 6f 76 65 | 20 74 68 65 0a 09 09 09 |, remove| the....|
|00005d40| 2a 2a 20 74 77 6f 20 60 | 74 65 72 6d 5f 73 65 74 |** two `|term_set|
|00005d50| 27 73 20 69 66 20 6e 6f | 74 20 74 6f 20 79 6f 75 |'s if no|t to you|
|00005d60| 72 20 6c 69 6b 69 6e 67 | 2e 0a 09 09 09 2a 2f 0a |r liking|.....*/.|
|00005d70| 09 09 09 74 65 72 6d 5f | 73 65 74 28 4f 4e 52 45 |...term_|set(ONRE|
|00005d80| 56 45 52 53 45 29 3b 0a | 09 09 09 64 6f 5f 6f 75 |VERSE);.|...do_ou|
|00005d90| 74 28 6c 61 73 61 76 65 | 2c 31 29 3b 0a 09 09 09 |t(lasave|,1);....|
|00005da0| 74 65 72 6d 5f 73 65 74 | 28 4f 46 46 52 45 56 45 |term_set|(OFFREVE|
|00005db0| 52 53 45 29 3b 0a 09 09 | 09 4c 6f 6f 6b 61 68 65 |RSE);...|.Lookahe|
|00005dc0| 61 64 20 3d 20 6c 6f 6f | 6b 74 6d 70 3b 0a 09 09 |ad = loo|ktmp;...|
|00005dd0| 7d 0a 09 09 6c 69 6e 65 | 73 20 2b 3d 20 64 6f 5f |}...line|s += do_|
|00005de0| 6f 75 74 28 4c 6f 6f 6b | 61 68 65 61 64 2c 4c 5f |out(Look|ahead,L_|
|00005df0| 61 6c 6c 6f 77 2d 6c 69 | 6e 65 73 29 3b 0a 09 09 |allow-li|nes);...|
|00005e00| 77 68 69 6c 65 20 28 31 | 29 0a 09 09 7b 0a 09 09 |while (1|)...{...|
|00005e10| 09 69 66 20 28 4c 6f 6f | 6b 61 68 65 61 64 20 3d |.if (Loo|kahead =|
|00005e20| 3d 20 4e 55 4c 4c 29 0a | 09 09 09 7b 0a 09 09 09 |= NULL).|...{....|
|00005e30| 09 69 66 20 28 66 67 65 | 74 73 28 62 75 66 2c 52 |.if (fge|ts(buf,R|
|00005e40| 45 43 4c 45 4e 2d 31 2c | 46 70 72 65 61 64 29 20 |ECLEN-1,|Fpread) |
|00005e50| 3d 3d 20 4e 55 4c 4c 29 | 0a 09 09 09 09 09 62 72 |== NULL)|......br|
|00005e60| 65 61 6b 3b 0a 09 09 09 | 09 4c 6f 6f 6b 61 68 65 |eak;....|.Lookahe|
|00005e70| 61 64 20 3d 20 62 75 66 | 3b 0a 09 09 09 09 69 66 |ad = buf|;.....if|
|00005e80| 20 28 52 6f 74 20 21 3d | 20 30 20 26 26 20 52 6c | (Rot !=| 0 && Rl|
|00005e90| 69 6e 65 73 20 3e 3d 20 | 48 6c 69 6e 65 73 29 0a |ines >= |Hlines).|
|00005ea0| 09 09 09 09 09 72 6f 74 | 5f 6c 69 6e 65 28 62 75 |.....rot|_line(bu|
|00005eb0| 66 29 3b 0a 09 09 09 09 | 2b 2b 52 6c 69 6e 65 73 |f);.....|++Rlines|
|00005ec0| 3b 0a 09 09 09 7d 0a 09 | 09 09 69 66 20 28 6c 69 |;....}..|..if (li|
|00005ed0| 6e 65 73 20 3e 3d 20 4c | 5f 61 6c 6c 6f 77 29 0a |nes >= L|_allow).|
|00005ee0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 09 69 66 |....brea|k;....if|
|00005ef0| 20 28 4d 6f 72 65 29 0a | 09 09 09 09 73 74 72 63 | (More).|....strc|
|00005f00| 70 79 28 6c 61 73 61 76 | 65 2c 4c 6f 6f 6b 61 68 |py(lasav|e,Lookah|
|00005f10| 65 61 64 29 3b 0a 09 09 | 09 6c 69 6e 65 73 20 2b |ead);...|.lines +|
|00005f20| 3d 20 64 6f 5f 6f 75 74 | 28 4c 6f 6f 6b 61 68 65 |= do_out|(Lookahe|
|00005f30| 61 64 2c 4c 5f 61 6c 6c | 6f 77 2d 6c 69 6e 65 73 |ad,L_all|ow-lines|
|00005f40| 29 3b 0a 09 09 7d 0a 0a | 09 09 69 66 20 28 4c 6f |);...}..|..if (Lo|
|00005f50| 6f 6b 61 68 65 61 64 20 | 21 3d 20 4e 55 4c 4c 29 |okahead |!= NULL)|
|00005f60| 0a 09 09 7b 0a 09 09 09 | 2f 2a 0a 09 09 09 2a 2a |...{....|/*....**|
|00005f70| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 20 69 73 20 | calcula|tion is |
|00005f80| 74 72 75 6e 63 61 74 65 | 64 20 72 61 74 68 65 72 |truncate|d rather|
|00005f90| 20 74 68 61 6e 20 72 6f | 75 6e 64 65 64 2c 0a 09 | than ro|unded,..|
|00005fa0| 09 09 2a 2a 20 73 6f 20 | 77 65 20 73 68 6f 75 6c |..** so |we shoul|
|00005fb0| 64 6e 27 74 20 67 65 74 | 20 22 31 30 30 25 22 2e |dn't get| "100%".|
|00005fc0| 20 20 53 75 62 74 72 61 | 63 74 20 32 20 66 6f 72 |  Subtra|ct 2 for|
|00005fd0| 0a 09 09 09 2a 2a 20 31 | 20 6c 69 6e 65 20 6c 6f |....** 1| line lo|
|00005fe0| 6f 6b 61 68 65 61 64 20 | 61 6e 64 20 65 6d 70 74 |okahead |and empt|
|00005ff0| 79 20 6c 69 6e 65 20 61 | 74 20 62 65 67 69 6e 6e |y line a|t beginn|
|00006000| 69 6e 67 0a 09 09 09 2a | 2a 20 6f 66 20 61 72 74 |ing....*|* of art|
|00006010| 69 63 6c 65 2e 0a 09 09 | 09 2a 2f 0a 09 09 09 69 |icle....|.*/....i|
|00006020| 66 20 28 48 65 61 64 66 | 6c 61 67 29 0a 09 09 09 |f (Headf|lag)....|
|00006030| 7b 0a 09 09 09 09 74 6f | 70 20 3d 20 28 52 6c 69 |{.....to|p = (Rli|
|00006040| 6e 65 73 2d 32 29 2a 31 | 30 30 3b 0a 09 09 09 09 |nes-2)*1|00;.....|
|00006050| 62 6f 74 74 6f 6d 20 3d | 20 68 64 72 2e 6c 69 6e |bottom =| hdr.lin|
|00006060| 65 73 20 2b 20 48 6c 69 | 6e 65 73 3b 0a 09 09 09 |es + Hli|nes;....|
|00006070| 7d 0a 09 09 09 65 6c 73 | 65 0a 09 09 09 7b 0a 09 |}....els|e....{..|
|00006080| 09 09 09 74 6f 70 20 3d | 20 28 52 6c 69 6e 65 73 |...top =| (Rlines|
|00006090| 2d 48 6c 69 6e 65 73 2d | 32 29 2a 31 30 30 3b 0a |-Hlines-|2)*100;.|
|000060a0| 09 09 09 09 62 6f 74 74 | 6f 6d 20 3d 20 68 64 72 |....bott|om = hdr|
|000060b0| 2e 6c 69 6e 65 73 3b 0a | 09 09 09 7d 0a 09 09 09 |.lines;.|...}....|
|000060c0| 2f 2a 0a 09 09 09 2a 2a | 20 70 72 6f 74 65 63 74 |/*....**| protect|
|000060d0| 20 61 67 61 69 6e 73 74 | 20 64 69 76 69 73 69 6f | against| divisio|
|000060e0| 6e 20 62 79 20 7a 65 72 | 6f 20 2d 0a 09 09 09 2a |n by zer|o -....*|
|000060f0| 2a 20 73 68 6f 75 6c 64 | 6e 27 74 20 61 63 74 75 |* should|n't actu|
|00006100| 61 6c 6c 79 20 63 6f 6d | 65 20 75 70 20 7a 65 72 |ally com|e up zer|
|00006110| 6f 20 61 74 20 74 68 69 | 73 0a 09 09 09 2a 2a 20 |o at thi|s....** |
|00006120| 70 6f 69 6e 74 20 69 66 | 20 76 6e 73 5f 61 6f 70 |point if| vns_aop|
|00006130| 65 6e 20 69 73 20 73 61 | 6e 65 2e 20 39 39 39 20 |en is sa|ne. 999 |
|00006140| 77 69 6c 6c 20 6c 65 74 | 20 75 73 65 72 0a 09 09 |will let| user...|
|00006150| 09 2a 2a 20 6b 6e 6f 77 | 20 74 68 65 20 70 65 72 |.** know| the per|
|00006160| 63 65 6e 74 61 67 65 20 | 69 73 20 6f 62 76 69 6f |centage |is obvio|
|00006170| 75 73 6c 79 20 77 72 6f | 6e 67 2e 0a 09 09 09 2a |usly wro|ng.....*|
|00006180| 2f 0a 09 09 09 69 66 20 | 28 62 6f 74 74 6f 6d 20 |/....if |(bottom |
|00006190| 21 3d 20 30 29 0a 09 09 | 09 09 70 65 72 63 65 6e |!= 0)...|..percen|
|000061a0| 74 20 3d 20 74 6f 70 2f | 62 6f 74 74 6f 6d 3b 0a |t = top/|bottom;.|
|000061b0| 09 09 09 65 6c 73 65 0a | 09 09 09 09 70 65 72 63 |...else.|....perc|
|000061c0| 65 6e 74 20 3d 20 39 39 | 39 3b 0a 09 09 09 73 70 |ent = 99|9;....sp|
|000061d0| 72 69 6e 74 66 20 28 70 | 73 74 72 2c 50 41 47 45 |rintf (p|str,PAGE|
|000061e0| 5f 4d 49 44 2c 70 65 72 | 63 65 6e 74 29 3b 0a 09 |_MID,per|cent);..|
|000061f0| 09 7d 0a 09 09 65 6c 73 | 65 0a 09 09 7b 0a 09 09 |.}...els|e...{...|
|00006200| 09 69 66 20 28 73 6e 20 | 3d 3d 20 4e 55 4c 4c 29 |.if (sn |== NULL)|
|00006210| 0a 09 09 09 09 73 74 72 | 63 70 79 20 28 70 73 74 |.....str|cpy (pst|
|00006220| 72 2c 50 41 47 45 5f 45 | 4e 44 29 3b 0a 09 09 09 |r,PAGE_E|ND);....|
|00006230| 65 6c 73 65 0a 09 09 09 | 73 74 72 63 70 79 20 28 |else....|strcpy (|
|00006240| 70 73 74 72 2c 50 41 47 | 45 5f 4e 45 58 54 29 3b |pstr,PAG|E_NEXT);|
|00006250| 0a 09 09 7d 0a 09 09 63 | 20 3d 20 67 65 74 70 67 |...}...c| = getpg|
|00006260| 63 68 28 70 73 74 72 2c | 26 68 64 72 29 3b 0a 0c |ch(pstr,|&hdr);..|
|00006270| 0a 09 09 2f 2a 0a 09 09 | 09 68 61 6e 64 6c 65 20 |.../*...|.handle |
|00006280| 75 73 65 72 20 69 6e 70 | 75 74 3a 0a 09 09 09 43 |user inp|ut:....C|
|00006290| 41 55 54 49 4f 4e 21 21 | 20 20 72 65 74 75 72 6e |AUTION!!|  return|
|000062a0| 20 63 61 73 65 73 20 6d | 75 73 74 20 63 6c 6f 73 | cases m|ust clos|
|000062b0| 65 20 46 70 72 65 61 64 | 2e 0a 09 09 2a 2f 0a 09 |e Fpread|....*/..|
|000062c0| 09 73 74 65 70 20 3d 20 | 46 41 4c 53 45 3b 0a 09 |.step = |FALSE;..|
|000062d0| 09 73 77 69 74 63 68 20 | 28 63 29 0a 09 09 7b 0a |.switch |(c)...{.|
|000062e0| 09 09 63 61 73 65 20 50 | 47 5f 4e 45 58 54 3a 0a |..case P|G_NEXT:.|
|000062f0| 09 09 09 69 66 20 28 44 | 69 67 65 73 74 29 0a 09 |...if (D|igest)..|
|00006300| 09 09 7b 0a 09 09 09 09 | 66 63 6c 6f 73 65 20 28 |..{.....|fclose (|
|00006310| 46 70 72 65 61 64 29 3b | 0a 09 09 09 09 75 6e 6c |Fpread);|.....unl|
|00006320| 69 6e 6b 20 28 46 6e 61 | 6d 65 29 3b 0a 09 09 09 |ink (Fna|me);....|
|00006330| 7d 0a 09 09 09 65 6c 73 | 65 0a 09 09 09 09 76 6e |}....els|e.....vn|
|00006340| 73 5f 61 63 6c 6f 73 65 | 20 28 46 70 72 65 61 64 |s_aclose| (Fpread|
|00006350| 29 3b 0a 09 09 09 73 69 | 67 5f 73 65 74 28 42 52 |);....si|g_set(BR|
|00006360| 4b 5f 52 46 49 4e 29 3b | 0a 09 09 09 72 65 74 75 |K_RFIN);|....retu|
|00006370| 72 6e 20 28 30 29 3b 0a | 09 09 63 61 73 65 20 50 |rn (0);.|..case P|
|00006380| 47 5f 46 4c 49 50 3a 0a | 09 09 09 2a 70 61 67 65 |G_FLIP:.|...*page|
|00006390| 73 20 3d 20 31 3b 09 2f | 2a 20 66 61 6c 6c 20 74 |s = 1;./|* fall t|
|000063a0| 68 72 6f 75 67 68 20 2a | 2f 0a 09 09 63 61 73 65 |hrough *|/...case|
|000063b0| 20 50 47 5f 51 55 49 54 | 3a 0a 09 09 09 69 66 20 | PG_QUIT|:....if |
|000063c0| 28 44 69 67 65 73 74 29 | 0a 09 09 09 7b 0a 09 09 |(Digest)|....{...|
|000063d0| 09 09 66 63 6c 6f 73 65 | 20 28 46 70 72 65 61 64 |..fclose| (Fpread|
|000063e0| 29 3b 0a 09 09 09 09 75 | 6e 6c 69 6e 6b 20 28 46 |);.....u|nlink (F|
|000063f0| 6e 61 6d 65 29 3b 0a 09 | 09 09 7d 0a 09 09 09 65 |name);..|..}....e|
+--------+-------------------------+-------------------------+--------+--------+