/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / pcomm2 / part03

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 62 62 | 6e 2e 63 6f 6d 21 72 73 |Path: bb|n.com!rs|
|00000010| 61 6c 7a 0a 46 72 6f 6d | 3a 20 72 73 61 6c 7a 40 |alz.From|: rsalz@|
|00000020| 75 75 6e 65 74 2e 75 75 | 2e 6e 65 74 20 28 52 69 |uunet.uu|.net (Ri|
|00000030| 63 68 20 53 61 6c 7a 29 | 0a 4e 65 77 73 67 72 6f |ch Salz)|.Newsgro|
|00000040| 75 70 73 3a 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |ups: com|p.source|
|00000050| 73 2e 75 6e 69 78 0a 53 | 75 62 6a 65 63 74 3a 20 |s.unix.S|ubject: |
|00000060| 76 31 36 69 30 30 38 3a | 20 20 4d 6f 64 65 6d 20 |v16i008:|  Modem |
|00000070| 63 6f 6d 6d 75 6e 69 63 | 61 74 69 6f 6e 73 20 70 |communic|ations p|
|00000080| 61 63 6b 61 67 65 2c 20 | 50 61 72 74 30 33 2f 30 |ackage, |Part03/0|
|00000090| 38 0a 4d 65 73 73 61 67 | 65 2d 49 44 3a 20 3c 31 |8.Messag|e-ID: <1|
|000000a0| 30 36 30 40 66 69 67 2e | 62 62 6e 2e 63 6f 6d 3e |060@fig.|bbn.com>|
|000000b0| 0a 44 61 74 65 3a 20 31 | 33 20 53 65 70 20 38 38 |.Date: 1|3 Sep 88|
|000000c0| 20 31 36 3a 34 31 3a 34 | 35 20 47 4d 54 0a 4c 69 | 16:41:4|5 GMT.Li|
|000000d0| 6e 65 73 3a 20 32 33 38 | 34 0a 41 70 70 72 6f 76 |nes: 238|4.Approv|
|000000e0| 65 64 3a 20 72 73 61 6c | 7a 40 75 75 6e 65 74 2e |ed: rsal|z@uunet.|
|000000f0| 55 55 2e 4e 45 54 0a 0a | 53 75 62 6d 69 74 74 65 |UU.NET..|Submitte|
|00000100| 64 2d 62 79 3a 20 45 6d | 6d 65 74 20 50 20 47 72 |d-by: Em|met P Gr|
|00000110| 61 79 20 3c 66 74 68 6f | 6f 64 21 65 67 72 61 79 |ay <ftho|od!egray|
|00000120| 3e 0a 50 6f 73 74 69 6e | 67 2d 6e 75 6d 62 65 72 |>.Postin|g-number|
|00000130| 3a 20 56 6f 6c 75 6d 65 | 20 31 36 2c 20 49 73 73 |: Volume| 16, Iss|
|00000140| 75 65 20 38 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |ue 8.Arc|hive-nam|
|00000150| 65 3a 20 70 63 6f 6d 6d | 32 2f 70 61 72 74 30 33 |e: pcomm|2/part03|
|00000160| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|00000170| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|00000180| 72 63 68 69 76 65 2c 20 | 6d 65 61 6e 69 6e 67 3a |rchive, |meaning:|
|00000190| 0a 23 20 31 2e 20 52 65 | 6d 6f 76 65 20 65 76 65 |.# 1. Re|move eve|
|000001a0| 72 79 74 68 69 6e 67 20 | 61 62 6f 76 65 20 74 68 |rything |above th|
|000001b0| 65 20 23 21 20 2f 62 69 | 6e 2f 73 68 20 6c 69 6e |e #! /bi|n/sh lin|
|000001c0| 65 2e 0a 23 20 32 2e 20 | 53 61 76 65 20 74 68 65 |e..# 2. |Save the|
|000001d0| 20 72 65 73 75 6c 74 69 | 6e 67 20 74 65 78 74 20 | resulti|ng text |
|000001e0| 69 6e 20 61 20 66 69 6c | 65 2e 0a 23 20 33 2e 20 |in a fil|e..# 3. |
|000001f0| 45 78 65 63 75 74 65 20 | 74 68 65 20 66 69 6c 65 |Execute |the file|
|00000200| 20 77 69 74 68 20 2f 62 | 69 6e 2f 73 68 20 28 6e | with /b|in/sh (n|
|00000210| 6f 74 20 63 73 68 29 20 | 74 6f 20 63 72 65 61 74 |ot csh) |to creat|
|00000220| 65 3a 0a 23 09 61 64 6d | 69 6e 2e 63 0a 23 09 63 |e:.#.adm|in.c.#.c|
|00000230| 68 67 5f 64 69 72 2e 63 | 0a 23 09 63 75 72 73 65 |hg_dir.c|.#.curse|
|00000240| 73 2e 63 0a 23 09 64 5f | 64 65 6c 65 74 65 2e 63 |s.c.#.d_|delete.c|
|00000250| 0a 23 09 64 5f 6c 69 62 | 2e 63 0a 23 09 64 5f 6d |.#.d_lib|.c.#.d_m|
|00000260| 61 6e 75 61 6c 2e 63 0a | 23 09 64 5f 6d 65 6e 75 |anual.c.|#.d_menu|
|00000270| 2e 63 0a 23 09 64 5f 70 | 72 69 6e 74 2e 63 0a 23 |.c.#.d_p|rint.c.#|
|00000280| 09 64 5f 70 72 6f 6d 70 | 74 2e 63 0a 23 09 64 5f |.d_promp|t.c.#.d_|
|00000290| 72 65 76 69 73 65 2e 63 | 0a 23 09 64 61 74 61 5f |revise.c|.#.data_|
|000002a0| 6c 6f 67 2e 63 0a 23 09 | 64 69 5f 64 65 6c 61 79 |log.c.#.|di_delay|
|000002b0| 2e 63 0a 65 78 70 6f 72 | 74 20 50 41 54 48 3b 20 |.c.expor|t PATH; |
|000002c0| 50 41 54 48 3d 2f 62 69 | 6e 3a 2f 75 73 72 2f 62 |PATH=/bi|n:/usr/b|
|000002d0| 69 6e 3a 24 50 41 54 48 | 0a 65 63 68 6f 20 73 68 |in:$PATH|.echo sh|
|000002e0| 61 72 3a 20 22 65 78 74 | 72 61 63 74 69 6e 67 20 |ar: "ext|racting |
|000002f0| 27 61 64 6d 69 6e 2e 63 | 27 22 20 27 28 32 38 38 |'admin.c|'" '(288|
|00000300| 30 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |0 charac|ters)'.i|
|00000310| 66 20 74 65 73 74 20 2d | 66 20 27 61 64 6d 69 6e |f test -|f 'admin|
|00000320| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00000330| 68 61 72 3a 20 22 77 69 | 6c 6c 20 6e 6f 74 20 6f |har: "wi|ll not o|
|00000340| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00000350| 6e 67 20 66 69 6c 65 20 | 27 61 64 6d 69 6e 2e 63 |ng file |'admin.c|
|00000360| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|00000370| 58 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |X//' << |\SHAR_EO|
|00000380| 46 20 3e 20 27 61 64 6d | 69 6e 2e 63 27 0a 58 2f |F > 'adm|in.c'.X/|
|00000390| 2a 0a 58 20 2a 20 50 65 | 72 66 6f 72 6d 20 61 64 |*.X * Pe|rform ad|
|000003a0| 6d 69 6e 69 73 74 72 61 | 74 69 76 65 20 66 75 6e |ministra|tive fun|
|000003b0| 63 74 69 6f 6e 73 2e 20 | 20 43 68 65 63 6b 20 74 |ctions. | Check t|
|000003c0| 6f 20 73 65 65 20 69 66 | 20 74 68 65 20 75 73 65 |o see if| the use|
|000003d0| 72 20 68 61 73 0a 58 20 | 2a 20 70 65 72 6d 69 73 |r has.X |* permis|
|000003e0| 73 69 6f 6e 20 74 6f 20 | 6d 61 6b 65 20 6c 6f 6e |sion to |make lon|
|000003f0| 67 20 64 69 73 74 61 6e | 63 65 20 63 61 6c 6c 73 |g distan|ce calls|
|00000400| 2c 20 61 6e 64 20 72 65 | 63 6f 72 64 20 61 6c 6c |, and re|cord all|
|00000410| 20 70 68 6f 6e 65 20 63 | 61 6c 6c 73 0a 58 20 2a | phone c|alls.X *|
|00000420| 20 6d 61 64 65 20 62 79 | 20 50 63 6f 6d 6d 2e 0a | made by| Pcomm..|
|00000430| 58 20 2a 2f 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |X */.X.X|#include|
|00000440| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 69 6e 63 | <stdio.|h>.X#inc|
|00000450| 6c 75 64 65 20 3c 67 72 | 70 2e 68 3e 0a 58 23 69 |lude <gr|p.h>.X#i|
|00000460| 6e 63 6c 75 64 65 20 22 | 63 6f 6e 66 69 67 2e 68 |nclude "|config.h|
|00000470| 22 0a 58 23 69 6e 63 6c | 75 64 65 20 22 64 69 61 |".X#incl|ude "dia|
|00000480| 6c 5f 64 69 72 2e 68 22 | 0a 58 23 69 6e 63 6c 75 |l_dir.h"|.X#inclu|
|00000490| 64 65 20 22 70 61 72 61 | 6d 2e 68 22 0a 58 0a 58 |de "para|m.h".X.X|
|000004a0| 2f 2a 0a 58 20 2a 20 4d | 61 6b 65 20 61 20 6c 6f |/*.X * M|ake a lo|
|000004b0| 67 20 6f 66 20 61 6c 6c | 20 63 61 6c 6c 73 20 6d |g of all| calls m|
|000004c0| 61 64 65 20 62 79 20 50 | 63 6f 6d 6d 2e 20 20 54 |ade by P|comm.  T|
|000004d0| 68 65 20 61 72 67 75 6d | 65 6e 74 20 69 73 20 74 |he argum|ent is t|
|000004e0| 68 65 20 69 6e 64 65 78 | 0a 58 20 2a 20 69 6e 74 |he index|.X * int|
|000004f0| 6f 20 74 68 65 20 71 75 | 65 75 65 2e 0a 58 20 2a |o the qu|eue..X *|
|00000500| 2f 0a 58 0a 58 2f 2a 41 | 52 47 53 55 53 45 44 2a |/.X.X/*A|RGSUSED*|
|00000510| 2f 0a 58 76 6f 69 64 0a | 58 6c 6f 67 5f 63 61 6c |/.Xvoid.|Xlog_cal|
|00000520| 6c 73 28 69 29 0a 58 69 | 6e 74 20 69 3b 0a 58 7b |ls(i).Xi|nt i;.X{|
|00000530| 0a 58 23 69 66 64 65 66 | 20 4c 4f 47 5f 43 41 4c |.X#ifdef| LOG_CAL|
|00000540| 4c 53 0a 58 09 46 49 4c | 45 20 2a 66 70 3b 0a 58 |LS.X.FIL|E *fp;.X|
|00000550| 09 63 68 61 72 20 2a 6e | 75 6d 62 65 72 2c 20 2a |.char *n|umber, *|
|00000560| 62 75 69 6c 64 5f 6e 75 | 6d 28 29 2c 20 2a 64 61 |build_nu|m(), *da|
|00000570| 74 65 2c 20 2a 63 74 69 | 6d 65 28 29 2c 20 2a 67 |te, *cti|me(), *g|
|00000580| 65 74 6c 6f 67 69 6e 28 | 29 2c 20 62 75 66 5b 38 |etlogin(|), buf[8|
|00000590| 30 5d 3b 0a 58 09 6c 6f | 6e 67 20 6e 6f 77 2c 20 |0];.X.lo|ng now, |
|000005a0| 74 69 6d 65 28 29 3b 0a | 58 09 76 6f 69 64 20 65 |time();.|X.void e|
|000005b0| 72 72 6f 72 5f 77 69 6e | 28 29 3b 0a 58 09 09 09 |rror_win|();.X...|
|000005c0| 09 09 2f 2a 20 62 75 69 | 6c 64 20 74 68 65 20 63 |../* bui|ld the c|
|000005d0| 6f 6d 70 6c 65 74 65 20 | 70 68 6f 6e 65 20 6e 75 |omplete |phone nu|
|000005e0| 6d 62 65 72 20 2a 2f 0a | 58 09 6e 75 6d 62 65 72 |mber */.|X.number|
|000005f0| 20 3d 20 62 75 69 6c 64 | 5f 6e 75 6d 28 69 29 3b | = build|_num(i);|
|00000600| 0a 58 09 09 09 09 09 2f | 2a 20 62 75 69 6c 64 20 |.X...../|* build |
|00000610| 64 61 74 65 20 61 6e 64 | 20 74 69 6d 65 20 2a 2f |date and| time */|
|00000620| 0a 58 09 74 69 6d 65 28 | 26 6e 6f 77 29 3b 0a 58 |.X.time(|&now);.X|
|00000630| 09 64 61 74 65 20 3d 20 | 63 74 69 6d 65 28 26 6e |.date = |ctime(&n|
|00000640| 6f 77 29 3b 0a 58 09 64 | 61 74 65 5b 31 30 5d 20 |ow);.X.d|ate[10] |
|00000650| 3d 20 4e 55 4c 4c 3b 0a | 58 09 64 61 74 65 5b 31 |= NULL;.|X.date[1|
|00000660| 36 5d 20 3d 20 4e 55 4c | 4c 3b 0a 58 0a 58 09 69 |6] = NUL|L;.X.X.i|
|00000670| 66 20 28 21 28 66 70 20 | 3d 20 66 6f 70 65 6e 28 |f (!(fp |= fopen(|
|00000680| 4c 4f 47 46 49 4c 45 2c | 20 22 61 2b 22 29 29 29 |LOGFILE,| "a+")))|
|00000690| 20 7b 0a 58 09 09 73 70 | 72 69 6e 74 66 28 62 75 | {.X..sp|rintf(bu|
|000006a0| 66 2c 20 22 43 61 6e 27 | 74 20 6f 70 65 6e 20 6c |f, "Can'|t open l|
|000006b0| 6f 67 20 66 69 6c 65 20 | 27 25 73 27 22 2c 20 4c |og file |'%s'", L|
|000006c0| 4f 47 46 49 4c 45 29 3b | 0a 58 09 09 65 72 72 6f |OGFILE);|.X..erro|
|000006d0| 72 5f 77 69 6e 28 31 2c | 20 62 75 66 2c 20 22 43 |r_win(1,| buf, "C|
|000006e0| 6f 6e 74 61 63 74 20 79 | 6f 75 72 20 73 79 73 74 |ontact y|our syst|
|000006f0| 65 6d 20 61 64 6d 69 6e | 69 73 74 72 61 74 6f 72 |em admin|istrator|
|00000700| 22 29 3b 0a 58 09 7d 0a | 58 0a 58 09 66 70 72 69 |");.X.}.|X.X.fpri|
|00000710| 6e 74 66 28 66 70 2c 20 | 22 70 63 6f 6d 6d 3a 20 |ntf(fp, |"pcomm: |
|00000720| 25 73 20 63 61 6c 6c 65 | 64 20 25 73 20 61 74 20 |%s calle|d %s at |
|00000730| 25 73 20 6f 6e 20 25 73 | 5c 6e 22 2c 20 67 65 74 |%s on %s|\n", get|
|00000740| 6c 6f 67 69 6e 28 29 2c | 20 6e 75 6d 62 65 72 2c |login(),| number,|
|00000750| 20 26 64 61 74 65 5b 31 | 31 5d 2c 20 64 61 74 65 | &date[1|1], date|
|00000760| 29 3b 0a 58 09 66 63 6c | 6f 73 65 28 66 70 29 3b |);.X.fcl|ose(fp);|
|00000770| 0a 58 23 65 6e 64 69 66 | 20 2f 2a 20 4c 4f 47 5f |.X#endif| /* LOG_|
|00000780| 43 41 4c 4c 53 20 2a 2f | 0a 58 09 72 65 74 75 72 |CALLS */|.X.retur|
|00000790| 6e 3b 0a 58 7d 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |n;.X}.X.|X/*.X * |
|000007a0| 43 68 65 63 6b 20 74 6f | 20 73 65 65 20 69 66 20 |Check to| see if |
|000007b0| 6c 6f 6e 67 20 64 69 73 | 74 61 6e 63 65 20 28 74 |long dis|tance (t|
|000007c0| 6f 6c 6c 29 20 63 61 6c | 6c 20 69 73 20 61 75 74 |oll) cal|l is aut|
|000007d0| 68 6f 72 69 7a 65 64 2e | 20 20 54 68 65 20 61 72 |horized.|  The ar|
|000007e0| 67 75 6d 65 6e 74 0a 58 | 20 2a 20 69 73 20 74 68 |gument.X| * is th|
|000007f0| 65 20 69 6e 64 65 78 20 | 69 6e 74 6f 20 74 68 65 |e index |into the|
|00000800| 20 71 75 65 75 65 2e 0a | 58 20 2a 2f 0a 58 0a 58 | queue..|X */.X.X|
|00000810| 2f 2a 41 52 47 53 55 53 | 45 44 2a 2f 0a 58 69 6e |/*ARGSUS|ED*/.Xin|
|00000820| 74 0a 58 6c 69 6d 69 74 | 5f 6c 64 28 69 29 0a 58 |t.Xlimit|_ld(i).X|
|00000830| 69 6e 74 20 69 3b 0a 58 | 7b 0a 58 23 69 66 64 65 |int i;.X|{.X#ifde|
|00000840| 66 20 4c 49 4d 49 54 5f | 4c 44 0a 58 09 63 68 61 |f LIMIT_|LD.X.cha|
|00000850| 72 20 2a 6e 75 6d 62 65 | 72 2c 20 2a 62 75 69 6c |r *numbe|r, *buil|
|00000860| 64 5f 6e 75 6d 28 29 2c | 20 2a 6e 61 6d 65 2c 20 |d_num(),| *name, |
|00000870| 2a 67 65 74 6c 6f 67 69 | 6e 28 29 3b 0a 58 09 73 |*getlogi|n();.X.s|
|00000880| 74 72 75 63 74 20 67 72 | 6f 75 70 20 2a 67 65 74 |truct gr|oup *get|
|00000890| 67 72 6e 61 6d 28 29 2c | 20 2a 67 72 70 62 75 66 |grnam(),| *grpbuf|
|000008a0| 3b 0a 58 0a 58 09 09 09 | 09 09 2f 2a 20 69 66 20 |;.X.X...|../* if |
|000008b0| 6e 6f 20 67 72 6f 75 70 | 2c 20 64 6f 6e 27 74 20 |no group|, don't |
|000008c0| 62 6f 74 68 65 72 20 2a | 2f 0a 58 09 67 72 70 62 |bother *|/.X.grpb|
|000008d0| 75 66 20 3d 20 67 65 74 | 67 72 6e 61 6d 28 47 52 |uf = get|grnam(GR|
|000008e0| 4f 55 50 5f 4e 41 4d 45 | 29 3b 0a 58 09 69 66 20 |OUP_NAME|);.X.if |
|000008f0| 28 21 67 72 70 62 75 66 | 20 7c 7c 20 21 2a 67 72 |(!grpbuf| || !*gr|
|00000900| 70 62 75 66 2d 3e 67 72 | 5f 6d 65 6d 29 0a 58 09 |pbuf->gr|_mem).X.|
|00000910| 09 72 65 74 75 72 6e 28 | 30 29 3b 0a 58 09 09 09 |.return(|0);.X...|
|00000920| 09 09 2f 2a 20 61 72 65 | 20 79 6f 75 20 69 6e 20 |../* are| you in |
|00000930| 74 68 65 20 67 72 6f 75 | 70 3f 20 2a 2f 0a 58 09 |the grou|p? */.X.|
|00000940| 6e 61 6d 65 20 3d 20 67 | 65 74 6c 6f 67 69 6e 28 |name = g|etlogin(|
|00000950| 29 3b 0a 58 09 66 6f 72 | 20 28 3b 20 2a 67 72 70 |);.X.for| (; *grp|
|00000960| 62 75 66 2d 3e 67 72 5f | 6d 65 6d 21 3d 4e 55 4c |buf->gr_|mem!=NUL|
|00000970| 4c 3b 20 67 72 70 62 75 | 66 2d 3e 67 72 5f 6d 65 |L; grpbu|f->gr_me|
|00000980| 6d 2b 2b 29 20 7b 0a 58 | 09 09 69 66 20 28 21 73 |m++) {.X|..if (!s|
|00000990| 74 72 63 6d 70 28 2a 67 | 72 70 62 75 66 2d 3e 67 |trcmp(*g|rpbuf->g|
|000009a0| 72 5f 6d 65 6d 2c 20 6e | 61 6d 65 29 29 0a 58 09 |r_mem, n|ame)).X.|
|000009b0| 09 09 72 65 74 75 72 6e | 28 30 29 3b 0a 58 09 7d |..return|(0);.X.}|
|000009c0| 0a 58 09 09 09 09 09 2f | 2a 20 6e 75 6d 62 65 72 |.X...../|* number|
|000009d0| 73 20 6f 6e 6c 79 2e 2e | 2e 20 2a 2f 0a 58 09 6e |s only..|. */.X.n|
|000009e0| 75 6d 62 65 72 20 3d 20 | 62 75 69 6c 64 5f 6e 75 |umber = |build_nu|
|000009f0| 6d 28 69 29 3b 0a 58 0a | 58 09 2f 2a 0a 58 09 20 |m(i);.X.|X./*.X. |
|00000a00| 2a 20 56 45 52 59 20 53 | 49 54 45 20 53 50 45 43 |* VERY S|ITE SPEC|
|00000a10| 49 46 49 43 21 21 21 20 | 20 57 65 20 75 73 65 20 |IFIC!!! | We use |
|00000a20| 61 20 22 39 22 20 74 6f | 20 67 65 74 20 61 6e 20 |a "9" to| get an |
|00000a30| 6f 75 74 73 69 64 65 20 | 6c 69 6e 65 2c 0a 58 09 |outside |line,.X.|
|00000a40| 20 2a 20 73 6f 20 61 6e | 79 20 39 20 66 6f 6c 6c | * so an|y 9 foll|
|00000a50| 6f 77 65 64 20 62 79 20 | 61 20 31 20 69 73 20 61 |owed by |a 1 is a|
|00000a60| 20 74 6f 6c 6c 20 63 61 | 6c 6c 20 28 65 78 63 65 | toll ca|ll (exce|
|00000a70| 70 74 20 66 6f 72 20 31 | 2d 38 30 30 0a 58 09 20 |pt for 1|-800.X. |
|00000a80| 2a 20 6e 75 6d 62 65 72 | 73 29 2e 0a 58 09 20 2a |* number|s)..X. *|
|00000a90| 2f 0a 58 09 69 66 20 28 | 21 73 74 72 6e 63 6d 70 |/.X.if (|!strncmp|
|00000aa0| 28 6e 75 6d 62 65 72 2c | 20 22 39 31 22 2c 20 32 |(number,| "91", 2|
|00000ab0| 29 20 26 26 20 73 74 72 | 6e 63 6d 70 28 6e 75 6d |) && str|ncmp(num|
|00000ac0| 62 65 72 2c 20 22 39 31 | 38 30 30 22 2c 20 35 29 |ber, "91|800", 5)|
|00000ad0| 29 20 7b 0a 58 09 09 65 | 72 72 6f 72 5f 77 69 6e |) {.X..e|rror_win|
|00000ae0| 28 30 2c 20 22 59 6f 75 | 20 61 72 65 20 6e 6f 74 |(0, "You| are not|
|00000af0| 20 61 75 74 68 6f 72 69 | 7a 65 64 20 74 6f 20 70 | authori|zed to p|
|00000b00| 6c 61 63 65 20 6c 6f 6e | 67 20 64 69 73 74 61 6e |lace lon|g distan|
|00000b10| 63 65 20 5c 28 74 6f 6c | 6c 5c 29 20 63 61 6c 6c |ce \(tol|l\) call|
|00000b20| 73 22 2c 20 22 22 29 3b | 0a 58 09 09 72 65 74 75 |s", "");|.X..retu|
|00000b30| 72 6e 28 31 29 3b 0a 58 | 09 7d 0a 58 0a 58 09 69 |rn(1);.X|.}.X.X.i|
|00000b40| 66 20 28 2a 6e 75 6d 62 | 65 72 20 3d 3d 20 4e 55 |f (*numb|er == NU|
|00000b50| 4c 4c 29 20 7b 0a 58 09 | 09 65 72 72 6f 72 5f 77 |LL) {.X.|.error_w|
|00000b60| 69 6e 28 30 2c 20 22 59 | 6f 75 20 61 72 65 20 6e |in(0, "Y|ou are n|
|00000b70| 6f 74 20 61 75 74 68 6f | 72 69 7a 65 64 20 64 69 |ot autho|rized di|
|00000b80| 72 65 63 74 20 61 63 63 | 65 73 73 20 74 6f 20 74 |rect acc|ess to t|
|00000b90| 68 65 20 6c 69 6e 65 22 | 2c 20 22 55 73 65 20 74 |he line"|, "Use t|
|00000ba0| 68 65 20 61 75 74 6f 6d | 61 74 69 63 20 64 69 61 |he autom|atic dia|
|00000bb0| 6c 69 6e 67 20 66 65 61 | 74 75 72 65 22 29 3b 0a |ling fea|ture");.|
|00000bc0| 58 09 09 72 65 74 75 72 | 6e 28 31 29 3b 0a 58 09 |X..retur|n(1);.X.|
|00000bd0| 7d 0a 58 23 65 6e 64 69 | 66 20 2f 2a 20 4c 49 4d |}.X#endi|f /* LIM|
|00000be0| 49 54 5f 4c 44 20 2a 2f | 0a 58 09 72 65 74 75 72 |IT_LD */|.X.retur|
|00000bf0| 6e 28 30 29 3b 0a 58 7d | 0a 58 0a 58 23 69 66 20 |n(0);.X}|.X.X#if |
|00000c00| 64 65 66 69 6e 65 64 28 | 4c 4f 47 5f 43 41 4c 4c |defined(|LOG_CALL|
|00000c10| 53 29 20 7c 7c 20 64 65 | 66 69 6e 65 64 28 4c 49 |S) || de|fined(LI|
|00000c20| 4d 49 54 5f 4c 44 29 0a | 58 2f 2a 0a 58 20 2a 20 |MIT_LD).|X/*.X * |
|00000c30| 50 75 74 20 74 6f 67 65 | 74 68 65 72 20 74 68 65 |Put toge|ther the|
|00000c40| 20 63 6f 6d 70 6c 65 74 | 65 20 70 68 6f 6e 65 20 | complet|e phone |
|00000c50| 6e 75 6d 62 65 72 20 62 | 75 74 20 73 74 72 69 70 |number b|ut strip|
|00000c60| 20 6f 75 74 20 74 68 65 | 20 65 78 74 72 61 6e 65 | out the| extrane|
|00000c70| 6f 75 73 0a 58 20 2a 20 | 63 68 61 72 61 63 74 65 |ous.X * |characte|
|00000c80| 72 73 2e 0a 58 20 2a 2f | 0a 58 0a 58 73 74 61 74 |rs..X */|.X.Xstat|
|00000c90| 69 63 20 63 68 61 72 20 | 2a 0a 58 62 75 69 6c 64 |ic char |*.Xbuild|
|00000ca0| 5f 6e 75 6d 28 69 29 0a | 58 69 6e 74 20 69 3b 0a |_num(i).|Xint i;.|
|00000cb0| 58 7b 0a 58 09 69 6e 74 | 20 6a 3b 0a 58 09 63 68 |X{.X.int| j;.X.ch|
|00000cc0| 61 72 20 2a 74 2c 20 74 | 65 6d 70 5b 34 30 5d 2c |ar *t, t|emp[40],|
|00000cd0| 20 2a 73 74 72 63 70 79 | 28 29 2c 20 2a 73 74 72 | *strcpy|(), *str|
|00000ce0| 63 61 74 28 29 3b 0a 58 | 09 73 74 61 74 69 63 20 |cat();.X|.static |
|00000cf0| 63 68 61 72 20 61 6e 73 | 5b 34 30 5d 3b 0a 58 0a |char ans|[40];.X.|
|00000d00| 58 09 74 65 6d 70 5b 30 | 5d 20 3d 20 4e 55 4c 4c |X.temp[0|] = NULL|
|00000d10| 3b 0a 58 09 09 09 09 09 | 2f 2a 20 61 64 64 20 4c |;.X.....|/* add L|
|00000d20| 44 20 63 6f 64 65 73 3f | 20 2a 2f 0a 58 09 73 77 |D codes?| */.X.sw|
|00000d30| 69 74 63 68 20 28 64 69 | 72 2d 3e 71 5f 6c 64 5b |itch (di|r->q_ld[|
|00000d40| 69 5d 29 20 7b 0a 58 09 | 09 63 61 73 65 20 30 3a |i]) {.X.|.case 0:|
|00000d50| 0a 58 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 63 |.X...bre|ak;.X..c|
|00000d60| 61 73 65 20 27 2b 27 3a | 0a 58 09 09 09 73 74 72 |ase '+':|.X...str|
|00000d70| 63 70 79 28 74 65 6d 70 | 2c 20 70 61 72 61 6d 2d |cpy(temp|, param-|
|00000d80| 3e 6c 64 5f 70 6c 75 73 | 29 3b 0a 58 09 09 09 62 |>ld_plus|);.X...b|
|00000d90| 72 65 61 6b 3b 0a 58 09 | 09 63 61 73 65 20 27 2d |reak;.X.|.case '-|
|00000da0| 27 3a 0a 58 09 09 09 73 | 74 72 63 70 79 28 74 65 |':.X...s|trcpy(te|
|00000db0| 6d 70 2c 20 70 61 72 61 | 6d 2d 3e 6c 64 5f 6d 69 |mp, para|m->ld_mi|
|00000dc0| 6e 75 73 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b |nus);.X.|..break;|
|00000dd0| 0a 58 09 09 63 61 73 65 | 20 27 40 27 3a 0a 58 09 |.X..case| '@':.X.|
|00000de0| 09 09 73 74 72 63 70 79 | 28 74 65 6d 70 2c 20 70 |..strcpy|(temp, p|
|00000df0| 61 72 61 6d 2d 3e 6c 64 | 5f 61 74 29 3b 0a 58 09 |aram->ld|_at);.X.|
|00000e00| 09 09 62 72 65 61 6b 3b | 0a 58 09 09 63 61 73 65 |..break;|.X..case|
|00000e10| 20 27 23 27 3a 0a 58 09 | 09 09 73 74 72 63 70 79 | '#':.X.|..strcpy|
|00000e20| 28 74 65 6d 70 2c 20 70 | 61 72 61 6d 2d 3e 6c 64 |(temp, p|aram->ld|
|00000e30| 5f 70 6f 75 6e 64 29 3b | 0a 58 09 09 09 62 72 65 |_pound);|.X...bre|
|00000e40| 61 6b 3b 0a 58 09 7d 0a | 58 09 09 09 09 09 2f 2a |ak;.X.}.|X...../*|
|00000e50| 20 61 64 64 20 74 68 65 | 20 6e 75 6d 62 65 72 20 | add the| number |
|00000e60| 2a 2f 0a 58 09 73 74 72 | 63 61 74 28 74 65 6d 70 |*/.X.str|cat(temp|
|00000e70| 2c 20 64 69 72 2d 3e 6e | 75 6d 62 65 72 5b 64 69 |, dir->n|umber[di|
|00000e80| 72 2d 3e 71 5f 6e 75 6d | 5b 69 5d 5d 29 3b 0a 58 |r->q_num|[i]]);.X|
|00000e90| 0a 58 09 09 09 09 09 2f | 2a 20 63 6f 70 79 20 6f |.X...../|* copy o|
|00000ea0| 6e 6c 79 20 64 69 67 69 | 74 73 20 2a 2f 0a 58 09 |nly digi|ts */.X.|
|00000eb0| 6a 20 3d 20 30 3b 0a 58 | 09 74 20 3d 20 74 65 6d |j = 0;.X|.t = tem|
|00000ec0| 70 3b 0a 58 09 77 68 69 | 6c 65 20 28 2a 74 29 20 |p;.X.whi|le (*t) |
|00000ed0| 7b 0a 58 09 09 69 66 20 | 28 2a 74 20 3e 3d 20 27 |{.X..if |(*t >= '|
|00000ee0| 30 27 20 26 26 20 2a 74 | 20 3c 3d 20 27 39 27 29 |0' && *t| <= '9')|
|00000ef0| 0a 58 09 09 09 61 6e 73 | 5b 6a 2b 2b 5d 20 3d 20 |.X...ans|[j++] = |
|00000f00| 2a 74 3b 0a 58 09 09 74 | 2b 2b 3b 0a 58 09 7d 0a |*t;.X..t|++;.X.}.|
|00000f10| 58 09 61 6e 73 5b 6a 5d | 20 3d 20 4e 55 4c 4c 3b |X.ans[j]| = NULL;|
|00000f20| 0a 58 0a 58 09 72 65 74 | 75 72 6e 28 61 6e 73 29 |.X.X.ret|urn(ans)|
|00000f30| 3b 0a 58 7d 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |;.X}.X#e|ndif /* |
|00000f40| 4c 4f 47 5f 43 41 4c 4c | 53 20 7c 7c 20 4c 49 4d |LOG_CALL|S || LIM|
|00000f50| 49 54 5f 4c 44 20 2a 2f | 0a 53 48 41 52 5f 45 4f |IT_LD */|.SHAR_EO|
|00000f60| 46 0a 69 66 20 74 65 73 | 74 20 32 38 38 30 20 2d |F.if tes|t 2880 -|
|00000f70| 6e 65 20 22 60 77 63 20 | 2d 63 20 3c 20 27 61 64 |ne "`wc |-c < 'ad|
|00000f80| 6d 69 6e 2e 63 27 60 22 | 0a 74 68 65 6e 0a 09 65 |min.c'`"|.then..e|
|00000f90| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 72 72 6f 72 |cho shar|: "error|
|00000fa0| 20 74 72 61 6e 73 6d 69 | 74 74 69 6e 67 20 27 61 | transmi|tting 'a|
|00000fb0| 64 6d 69 6e 2e 63 27 22 | 20 27 28 73 68 6f 75 6c |dmin.c'"| '(shoul|
|00000fc0| 64 20 68 61 76 65 20 62 | 65 65 6e 20 32 38 38 30 |d have b|een 2880|
|00000fd0| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 66 69 | charact|ers)'.fi|
|00000fe0| 0a 66 69 0a 65 63 68 6f | 20 73 68 61 72 3a 20 22 |.fi.echo| shar: "|
|00000ff0| 65 78 74 72 61 63 74 69 | 6e 67 20 27 63 68 67 5f |extracti|ng 'chg_|
|00001000| 64 69 72 2e 63 27 22 20 | 27 28 31 33 30 35 20 63 |dir.c'" |'(1305 c|
|00001010| 68 61 72 61 63 74 65 72 | 73 29 27 0a 69 66 20 74 |haracter|s)'.if t|
|00001020| 65 73 74 20 2d 66 20 27 | 63 68 67 5f 64 69 72 2e |est -f '|chg_dir.|
|00001030| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|00001040| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|00001050| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00001060| 67 20 66 69 6c 65 20 27 | 63 68 67 5f 64 69 72 2e |g file '|chg_dir.|
|00001070| 63 27 22 0a 65 6c 73 65 | 0a 73 65 64 20 27 73 2f |c'".else|.sed 's/|
|00001080| 5e 58 2f 2f 27 20 3c 3c | 20 5c 53 48 41 52 5f 45 |^X//' <<| \SHAR_E|
|00001090| 4f 46 20 3e 20 27 63 68 | 67 5f 64 69 72 2e 63 27 |OF > 'ch|g_dir.c'|
|000010a0| 0a 58 2f 2a 0a 58 20 2a | 20 4f 70 65 6e 20 61 20 |.X/*.X *| Open a |
|000010b0| 77 69 6e 64 6f 77 20 74 | 6f 20 70 72 6f 6d 70 74 |window t|o prompt|
|000010c0| 20 66 6f 72 20 61 20 6e | 65 77 20 64 69 72 65 63 | for a n|ew direc|
|000010d0| 74 6f 72 79 2e 20 20 43 | 68 65 63 6b 73 20 74 6f |tory.  C|hecks to|
|000010e0| 20 73 65 65 20 79 6f 75 | 20 68 61 76 65 0a 58 20 | see you| have.X |
|000010f0| 2a 20 73 65 61 72 63 68 | 20 70 65 72 6d 69 73 73 |* search| permiss|
|00001100| 69 6f 6e 2e 0a 58 20 2a | 2f 0a 58 0a 58 23 69 6e |ion..X *|/.X.X#in|
|00001110| 63 6c 75 64 65 20 3c 63 | 75 72 73 65 73 2e 68 3e |clude <c|urses.h>|
|00001120| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 63 6f 6e 66 |.X#inclu|de "conf|
|00001130| 69 67 2e 68 22 0a 58 23 | 69 6e 63 6c 75 64 65 20 |ig.h".X#|include |
|00001140| 22 6d 69 73 63 2e 68 22 | 0a 58 0a 58 76 6f 69 64 |"misc.h"|.X.Xvoid|
|00001150| 0a 58 63 68 67 5f 64 69 | 72 28 29 0a 58 7b 0a 58 |.Xchg_di|r().X{.X|
|00001160| 09 65 78 74 65 72 6e 20 | 69 6e 74 20 66 64 3b 0a |.extern |int fd;.|
|00001170| 58 09 57 49 4e 44 4f 57 | 20 2a 63 68 5f 77 69 6e |X.WINDOW| *ch_win|
|00001180| 2c 20 2a 6e 65 77 77 69 | 6e 28 29 3b 0a 58 09 63 |, *newwi|n();.X.c|
|00001190| 68 61 72 20 2a 61 6e 73 | 2c 20 2a 64 69 72 2c 20 |har *ans|, *dir, |
|000011a0| 2a 65 78 70 61 6e 64 28 | 29 2c 20 2a 63 77 64 2c |*expand(|), *cwd,|
|000011b0| 20 2a 67 65 74 63 77 64 | 28 29 2c 20 63 77 64 62 | *getcwd|(), cwdb|
|000011c0| 75 66 5b 32 30 30 5d 3b | 0a 58 09 63 68 61 72 20 |uf[200];|.X.char |
|000011d0| 2a 67 65 74 5f 73 74 72 | 28 29 3b 0a 58 09 76 6f |*get_str|();.X.vo|
|000011e0| 69 64 20 66 72 65 65 5f | 70 74 72 28 29 3b 0a 58 |id free_|ptr();.X|
|000011f0| 0a 58 09 63 77 64 20 3d | 20 67 65 74 63 77 64 28 |.X.cwd =| getcwd(|
|00001200| 63 77 64 62 75 66 2c 20 | 32 30 30 29 3b 0a 58 0a |cwdbuf, |200);.X.|
|00001210| 58 09 63 68 5f 77 69 6e | 20 3d 20 6e 65 77 77 69 |X.ch_win| = newwi|
|00001220| 6e 28 36 2c 20 37 30 2c | 20 35 2c 20 35 29 3b 0a |n(6, 70,| 5, 5);.|
|00001230| 58 0a 58 09 6d 76 77 70 | 72 69 6e 74 77 28 63 68 |X.X.mvwp|rintw(ch|
|00001240| 5f 77 69 6e 2c 20 32 2c | 20 34 2c 20 22 43 75 72 |_win, 2,| 4, "Cur|
|00001250| 72 65 6e 74 20 64 69 72 | 65 63 74 6f 72 79 3a 20 |rent dir|ectory: |
|00001260| 25 73 22 2c 20 63 77 64 | 29 3b 0a 58 09 6d 76 77 |%s", cwd|);.X.mvw|
|00001270| 61 64 64 73 74 72 28 63 | 68 5f 77 69 6e 2c 20 33 |addstr(c|h_win, 3|
|00001280| 2c 20 34 2c 20 22 4e 65 | 77 20 64 69 72 65 63 74 |, 4, "Ne|w direct|
|00001290| 6f 72 79 3a 20 22 29 3b | 0a 58 09 62 6f 78 28 63 |ory: ");|.X.box(c|
|000012a0| 68 5f 77 69 6e 2c 20 56 | 45 52 54 2c 20 48 4f 52 |h_win, V|ERT, HOR|
|000012b0| 5a 29 3b 0a 58 0a 58 09 | 6d 76 77 61 74 74 72 73 |Z);.X.X.|mvwattrs|
|000012c0| 74 72 28 63 68 5f 77 69 | 6e 2c 20 30 2c 20 33 2c |tr(ch_wi|n, 0, 3,|
|000012d0| 20 41 5f 42 4f 4c 44 2c | 20 22 20 43 68 61 6e 67 | A_BOLD,| " Chang|
|000012e0| 65 20 64 69 72 65 63 74 | 6f 72 79 20 22 29 3b 0a |e direct|ory ");.|
|000012f0| 58 09 77 6d 6f 76 65 28 | 63 68 5f 77 69 6e 2c 20 |X.wmove(|ch_win, |
|00001300| 33 2c 20 31 39 29 3b 0a | 58 09 77 72 65 66 72 65 |3, 19);.|X.wrefre|
|00001310| 73 68 28 63 68 5f 77 69 | 6e 29 3b 0a 58 09 09 09 |sh(ch_wi|n);.X...|
|00001320| 09 09 2f 2a 20 67 65 74 | 20 74 68 65 20 61 6e 73 |../* get| the ans|
|00001330| 77 65 72 20 2a 2f 0a 58 | 09 77 68 69 6c 65 20 28 |wer */.X|.while (|
|00001340| 28 61 6e 73 20 3d 20 67 | 65 74 5f 73 74 72 28 63 |(ans = g|et_str(c|
|00001350| 68 5f 77 69 6e 2c 20 36 | 30 2c 20 22 22 2c 20 22 |h_win, 6|0, "", "|
|00001360| 20 09 22 29 29 20 21 3d | 20 4e 55 4c 4c 29 20 7b | .")) !=| NULL) {|
|00001370| 0a 58 09 09 09 09 09 2f | 2a 20 61 20 43 52 20 6d |.X...../|* a CR m|
|00001380| 65 61 6e 73 20 6e 6f 20 | 63 68 61 6e 67 65 20 2a |eans no |change *|
|00001390| 2f 0a 58 09 09 69 66 20 | 28 2a 61 6e 73 20 3d 3d |/.X..if |(*ans ==|
|000013a0| 20 4e 55 4c 4c 29 0a 58 | 09 09 09 62 72 65 61 6b | NULL).X|...break|
|000013b0| 3b 0a 58 09 09 09 09 09 | 2f 2a 20 65 78 70 61 6e |;.X.....|/* expan|
|000013c0| 64 20 74 68 65 20 69 6e | 70 75 74 20 2a 2f 0a 58 |d the in|put */.X|
|000013d0| 09 09 64 69 72 20 3d 20 | 65 78 70 61 6e 64 28 61 |..dir = |expand(a|
|000013e0| 6e 73 29 3b 0a 58 09 09 | 09 09 09 2f 2a 20 69 66 |ns);.X..|.../* if|
|000013f0| 20 79 6f 75 20 68 61 76 | 65 20 73 65 61 72 63 68 | you hav|e search|
|00001400| 20 70 65 72 6d 69 73 73 | 69 6f 6e 20 2a 2f 0a 58 | permiss|ion */.X|
|00001410| 09 09 69 66 20 28 21 61 | 63 63 65 73 73 28 64 69 |..if (!a|ccess(di|
|00001420| 72 2c 20 31 29 29 20 7b | 0a 58 09 09 09 69 66 20 |r, 1)) {|.X...if |
|00001430| 28 21 63 68 64 69 72 28 | 64 69 72 29 29 20 7b 0a |(!chdir(|dir)) {.|
|00001440| 58 09 09 09 09 66 72 65 | 65 5f 70 74 72 28 64 69 |X....fre|e_ptr(di|
|00001450| 72 29 3b 0a 58 09 09 09 | 09 62 72 65 61 6b 3b 0a |r);.X...|.break;.|
|00001460| 58 09 09 09 7d 0a 58 09 | 09 7d 0a 58 09 09 62 65 |X...}.X.|.}.X..be|
|00001470| 65 70 28 29 3b 0a 58 09 | 09 6d 76 77 61 74 74 72 |ep();.X.|.mvwattr|
|00001480| 73 74 72 28 63 68 5f 77 | 69 6e 2c 20 34 2c 20 31 |str(ch_w|in, 4, 1|
|00001490| 35 2c 20 41 5f 42 4f 4c | 44 2c 20 22 4e 6f 20 73 |5, A_BOL|D, "No s|
|000014a0| 75 63 68 20 64 69 72 65 | 63 74 6f 72 79 20 6f 72 |uch dire|ctory or|
|000014b0| 20 6e 6f 20 61 63 63 65 | 73 73 20 70 65 72 6d 69 | no acce|ss permi|
|000014c0| 73 73 69 6f 6e 22 29 3b | 0a 58 09 09 77 72 65 66 |ssion");|.X..wref|
|000014d0| 72 65 73 68 28 63 68 5f | 77 69 6e 29 3b 0a 58 09 |resh(ch_|win);.X.|
|000014e0| 09 77 61 69 74 5f 6b 65 | 79 28 63 68 5f 77 69 6e |.wait_ke|y(ch_win|
|000014f0| 2c 20 33 29 3b 0a 58 09 | 09 09 09 09 2f 2a 20 63 |, 3);.X.|..../* c|
|00001500| 6c 65 61 6e 20 75 70 20 | 74 68 65 20 6d 65 73 73 |lean up |the mess|
|00001510| 20 2a 2f 0a 58 09 09 63 | 6c 65 61 72 5f 6c 69 6e | */.X..c|lear_lin|
|00001520| 65 28 63 68 5f 77 69 6e | 2c 20 33 2c 20 31 39 2c |e(ch_win|, 3, 19,|
|00001530| 20 31 29 3b 0a 58 09 09 | 63 6c 65 61 72 5f 6c 69 | 1);.X..|clear_li|
|00001540| 6e 65 28 63 68 5f 77 69 | 6e 2c 20 34 2c 20 31 34 |ne(ch_wi|n, 4, 14|
|00001550| 2c 20 31 29 3b 0a 58 09 | 09 77 6d 6f 76 65 28 63 |, 1);.X.|.wmove(c|
|00001560| 68 5f 77 69 6e 2c 20 33 | 2c 20 31 39 29 3b 0a 58 |h_win, 3|, 19);.X|
|00001570| 09 09 77 72 65 66 72 65 | 73 68 28 63 68 5f 77 69 |..wrefre|sh(ch_wi|
|00001580| 6e 29 3b 0a 58 09 09 66 | 72 65 65 5f 70 74 72 28 |n);.X..f|ree_ptr(|
|00001590| 64 69 72 29 3b 0a 58 09 | 7d 0a 58 09 69 66 20 28 |dir);.X.|}.X.if (|
|000015a0| 66 64 20 3d 3d 20 2d 31 | 29 20 7b 0a 58 09 09 77 |fd == -1|) {.X..w|
|000015b0| 65 72 61 73 65 28 63 68 | 5f 77 69 6e 29 3b 0a 58 |erase(ch|_win);.X|
|000015c0| 09 09 77 72 65 66 72 65 | 73 68 28 63 68 5f 77 69 |..wrefre|sh(ch_wi|
|000015d0| 6e 29 3b 0a 58 09 7d 0a | 58 09 64 65 6c 77 69 6e |n);.X.}.|X.delwin|
|000015e0| 28 63 68 5f 77 69 6e 29 | 3b 0a 58 09 72 65 74 75 |(ch_win)|;.X.retu|
|000015f0| 72 6e 3b 0a 58 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |rn;.X}.S|HAR_EOF.|
|00001600| 69 66 20 74 65 73 74 20 | 31 33 30 35 20 2d 6e 65 |if test |1305 -ne|
|00001610| 20 22 60 77 63 20 2d 63 | 20 3c 20 27 63 68 67 5f | "`wc -c| < 'chg_|
|00001620| 64 69 72 2e 63 27 60 22 | 0a 74 68 65 6e 0a 09 65 |dir.c'`"|.then..e|
|00001630| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 72 72 6f 72 |cho shar|: "error|
|00001640| 20 74 72 61 6e 73 6d 69 | 74 74 69 6e 67 20 27 63 | transmi|tting 'c|
|00001650| 68 67 5f 64 69 72 2e 63 | 27 22 20 27 28 73 68 6f |hg_dir.c|'" '(sho|
|00001660| 75 6c 64 20 68 61 76 65 | 20 62 65 65 6e 20 31 33 |uld have| been 13|
|00001670| 30 35 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |05 chara|cters)'.|
|00001680| 66 69 0a 66 69 0a 65 63 | 68 6f 20 73 68 61 72 3a |fi.fi.ec|ho shar:|
|00001690| 20 22 65 78 74 72 61 63 | 74 69 6e 67 20 27 63 75 | "extrac|ting 'cu|
|000016a0| 72 73 65 73 2e 63 27 22 | 20 27 28 38 34 30 34 20 |rses.c'"| '(8404 |
|000016b0| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 69 66 20 |characte|rs)'.if |
|000016c0| 74 65 73 74 20 2d 66 20 | 27 63 75 72 73 65 73 2e |test -f |'curses.|
|000016d0| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|000016e0| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|000016f0| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00001700| 67 20 66 69 6c 65 20 27 | 63 75 72 73 65 73 2e 63 |g file '|curses.c|
|00001710| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|00001720| 58 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |X//' << |\SHAR_EO|
|00001730| 46 20 3e 20 27 63 75 72 | 73 65 73 2e 63 27 0a 58 |F > 'cur|ses.c'.X|
|00001740| 2f 2a 0a 58 20 2a 20 4d | 69 73 63 65 6c 6c 61 6e |/*.X * M|iscellan|
|00001750| 65 6f 75 73 20 63 75 72 | 73 65 73 28 33 29 20 72 |eous cur|ses(3) r|
|00001760| 6f 75 74 69 6e 65 73 2e | 0a 58 20 2a 2f 0a 58 0a |outines.|.X */.X.|
|00001770| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |X#includ|e <stdio|
|00001780| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 63 |.h>.X#in|clude <c|
|00001790| 75 72 73 65 73 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |urses.h>|.X#inclu|
|000017a0| 64 65 20 3c 73 69 67 6e | 61 6c 2e 68 3e 0a 58 23 |de <sign|al.h>.X#|
|000017b0| 69 6e 63 6c 75 64 65 20 | 22 63 6f 6e 66 69 67 2e |include |"config.|
|000017c0| 68 22 0a 58 23 69 66 64 | 65 66 20 4f 4c 44 43 55 |h".X#ifd|ef OLDCU|
|000017d0| 52 53 45 53 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |RSES.X#i|nclude <|
|000017e0| 66 63 6e 74 6c 2e 68 3e | 0a 58 23 65 6c 73 65 20 |fcntl.h>|.X#else |
|000017f0| 2f 2a 20 4f 4c 44 43 55 | 52 53 45 53 20 2a 2f 0a |/* OLDCU|RSES */.|
|00001800| 58 23 69 6e 63 6c 75 64 | 65 20 3c 74 65 72 6d 2e |X#includ|e <term.|
|00001810| 68 3e 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4f 4c |h>.X#end|if /* OL|
|00001820| 44 43 55 52 53 45 53 20 | 2a 2f 0a 58 23 69 6e 63 |DCURSES |*/.X#inc|
|00001830| 6c 75 64 65 20 22 6d 69 | 73 63 2e 68 22 0a 58 0a |lude "mi|sc.h".X.|
|00001840| 58 2f 2a 0a 58 20 2a 20 | 47 65 74 20 61 20 73 74 |X/*.X * |Get a st|
|00001850| 72 69 6e 67 20 66 72 6f | 6d 20 61 20 77 69 6e 64 |ring fro|m a wind|
|00001860| 6f 77 2e 20 20 53 69 6d | 69 6c 61 72 20 74 6f 20 |ow.  Sim|ilar to |
|00001870| 77 67 65 74 73 74 72 28 | 29 2c 20 65 78 63 65 70 |wgetstr(|), excep|
|00001880| 74 20 77 65 20 6c 69 6d | 69 74 0a 58 20 2a 20 74 |t we lim|it.X * t|
|00001890| 68 65 20 6c 65 6e 67 74 | 68 2c 20 72 65 74 75 72 |he lengt|h, retur|
|000018a0| 6e 20 61 20 4e 55 4c 4c | 20 28 6e 6f 74 20 70 6f |n a NULL| (not po|
|000018b0| 69 6e 74 65 72 20 74 6f | 20 4e 55 4c 4c 29 20 6f |inter to| NULL) o|
|000018c0| 6e 20 3c 45 53 43 3e 20 | 6b 65 79 2c 20 62 65 65 |n <ESC> |key, bee|
|000018d0| 70 0a 58 20 2a 20 61 74 | 20 61 6e 79 20 63 68 61 |p.X * at| any cha|
|000018e0| 72 61 63 74 65 72 20 69 | 6e 20 22 64 69 73 61 6c |racter i|n "disal|
|000018f0| 6c 6f 77 22 20 73 74 72 | 69 6e 67 2c 20 61 6e 64 |low" str|ing, and|
|00001900| 20 62 65 65 70 20 61 74 | 20 61 6e 79 20 63 68 61 | beep at| any cha|
|00001910| 72 61 63 74 65 72 20 6e | 6f 74 0a 58 20 2a 20 69 |racter n|ot.X * i|
|00001920| 6e 20 22 61 6c 6c 6f 77 | 22 2e 20 28 49 74 20 64 |n "allow|". (It d|
|00001930| 6f 65 73 6e 27 74 20 6d | 61 6b 65 20 73 65 6e 73 |oesn't m|ake sens|
|00001940| 65 20 74 6f 20 75 73 65 | 20 62 6f 74 68 20 22 61 |e to use| both "a|
|00001950| 6c 6c 6f 77 22 20 61 6e | 64 20 22 64 69 73 61 6c |llow" an|d "disal|
|00001960| 6c 6f 77 22 0a 58 20 2a | 20 61 74 20 74 68 65 20 |low".X *| at the |
|00001970| 73 61 6d 65 20 74 69 6d | 65 29 0a 58 20 2a 2f 0a |same tim|e).X */.|
|00001980| 58 0a 58 63 68 61 72 20 | 2a 0a 58 67 65 74 5f 73 |X.Xchar |*.Xget_s|
|00001990| 74 72 28 77 69 6e 2c 20 | 6e 75 6d 2c 20 61 6c 6c |tr(win, |num, all|
|000019a0| 6f 77 2c 20 64 69 73 61 | 6c 6c 6f 77 29 0a 58 57 |ow, disa|llow).XW|
|000019b0| 49 4e 44 4f 57 20 2a 77 | 69 6e 3b 0a 58 69 6e 74 |INDOW *w|in;.Xint|
|000019c0| 20 6e 75 6d 3b 0a 58 63 | 68 61 72 20 2a 61 6c 6c | num;.Xc|har *all|
|000019d0| 6f 77 2c 20 2a 64 69 73 | 61 6c 6c 6f 77 3b 0a 58 |ow, *dis|allow;.X|
|000019e0| 7b 0a 58 09 69 6e 74 20 | 63 6f 75 6e 74 2c 20 78 |{.X.int |count, x|
|000019f0| 2c 20 79 3b 0a 58 09 63 | 68 61 72 20 61 6e 73 2c |, y;.X.c|har ans,|
|00001a00| 20 2a 73 74 72 63 68 72 | 28 29 3b 0a 58 09 73 74 | *strchr|();.X.st|
|00001a10| 61 74 69 63 20 63 68 61 | 72 20 62 75 66 5b 38 30 |atic cha|r buf[80|
|00001a20| 5d 3b 0a 58 0a 58 09 63 | 6f 75 6e 74 20 3d 20 30 |];.X.X.c|ount = 0|
|00001a30| 3b 0a 58 09 77 68 69 6c | 65 20 28 28 61 6e 73 20 |;.X.whil|e ((ans |
|00001a40| 3d 20 77 67 65 74 63 68 | 28 77 69 6e 29 29 20 21 |= wgetch|(win)) !|
|00001a50| 3d 20 27 5c 72 27 29 20 | 7b 0a 58 09 09 09 09 09 |= '\r') |{.X.....|
|00001a60| 2f 2a 20 64 6f 20 6f 75 | 72 20 6f 77 6e 20 62 61 |/* do ou|r own ba|
|00001a70| 63 6b 73 70 61 63 65 20 | 2a 2f 0a 58 09 09 69 66 |ckspace |*/.X..if|
|00001a80| 20 28 61 6e 73 20 3d 3d | 20 42 53 29 20 7b 0a 58 | (ans ==| BS) {.X|
|00001a90| 09 09 09 69 66 20 28 21 | 63 6f 75 6e 74 29 20 7b |...if (!|count) {|
|00001aa0| 0a 58 09 09 09 09 62 65 | 65 70 28 29 3b 0a 58 09 |.X....be|ep();.X.|
|00001ab0| 09 09 09 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |...conti|nue;.X..|
|00001ac0| 09 7d 0a 58 09 09 09 63 | 6f 75 6e 74 2d 2d 3b 0a |.}.X...c|ount--;.|
|00001ad0| 58 09 09 09 62 75 66 5b | 63 6f 75 6e 74 5d 20 3d |X...buf[|count] =|
|00001ae0| 20 4e 55 4c 4c 3b 0a 58 | 09 09 09 67 65 74 79 78 | NULL;.X|...getyx|
|00001af0| 28 77 69 6e 2c 20 79 2c | 20 78 29 3b 0a 58 09 09 |(win, y,| x);.X..|
|00001b00| 09 78 2d 2d 3b 0a 58 09 | 09 09 77 6d 6f 76 65 28 |.x--;.X.|..wmove(|
|00001b10| 77 69 6e 2c 20 79 2c 20 | 78 29 3b 0a 58 09 09 09 |win, y, |x);.X...|
|00001b20| 77 61 64 64 63 68 28 77 | 69 6e 2c 20 28 63 68 74 |waddch(w|in, (cht|
|00001b30| 79 70 65 29 20 27 20 27 | 29 3b 0a 58 09 09 09 77 |ype) ' '|);.X...w|
|00001b40| 6d 6f 76 65 28 77 69 6e | 2c 20 79 2c 20 78 29 3b |move(win|, y, x);|
|00001b50| 0a 58 09 09 09 77 72 65 | 66 72 65 73 68 28 77 69 |.X...wre|fresh(wi|
|00001b60| 6e 29 3b 0a 58 09 09 09 | 63 6f 6e 74 69 6e 75 65 |n);.X...|continue|
|00001b70| 3b 0a 58 09 09 7d 0a 58 | 09 09 09 09 09 2f 2a 20 |;.X..}.X|...../* |
|00001b80| 61 6e 20 3c 45 53 43 3e | 20 61 6e 79 77 68 65 72 |an <ESC>| anywher|
|00001b90| 65 20 69 6e 20 74 68 65 | 20 73 74 72 69 6e 67 20 |e in the| string |
|00001ba0| 2a 2f 0a 58 09 09 69 66 | 20 28 61 6e 73 20 3d 3d |*/.X..if| (ans ==|
|00001bb0| 20 45 53 43 29 0a 58 09 | 09 09 72 65 74 75 72 6e | ESC).X.|..return|
|00001bc0| 28 4e 55 4c 4c 29 3b 0a | 58 0a 58 09 09 09 09 09 |(NULL);.|X.X.....|
|00001bd0| 2f 2a 20 69 6c 6c 65 67 | 61 6c 20 63 68 61 72 61 |/* illeg|al chara|
|00001be0| 63 74 65 72 3f 20 2a 2f | 0a 58 09 09 69 66 20 28 |cter? */|.X..if (|
|00001bf0| 2a 64 69 73 61 6c 6c 6f | 77 20 21 3d 20 4e 55 4c |*disallo|w != NUL|
|00001c00| 4c 20 26 26 20 73 74 72 | 63 68 72 28 64 69 73 61 |L && str|chr(disa|
|00001c10| 6c 6c 6f 77 2c 20 61 6e | 73 29 29 20 7b 0a 58 09 |llow, an|s)) {.X.|
|00001c20| 09 09 62 65 65 70 28 29 | 3b 0a 58 09 09 09 63 6f |..beep()|;.X...co|
|00001c30| 6e 74 69 6e 75 65 3b 0a | 58 09 09 7d 0a 58 09 09 |ntinue;.|X..}.X..|
|00001c40| 69 66 20 28 2a 61 6c 6c | 6f 77 20 21 3d 20 4e 55 |if (*all|ow != NU|
|00001c50| 4c 4c 20 26 26 20 21 73 | 74 72 63 68 72 28 61 6c |LL && !s|trchr(al|
|00001c60| 6c 6f 77 2c 20 61 6e 73 | 29 29 20 7b 0a 58 09 09 |low, ans|)) {.X..|
|00001c70| 09 62 65 65 70 28 29 3b | 0a 58 09 09 09 63 6f 6e |.beep();|.X...con|
|00001c80| 74 69 6e 75 65 3b 0a 58 | 09 09 7d 0a 58 09 09 09 |tinue;.X|..}.X...|
|00001c90| 09 09 2f 2a 20 65 78 63 | 65 65 64 65 64 20 74 68 |../* exc|eeded th|
|00001ca0| 65 20 6d 61 78 3f 20 2a | 2f 0a 58 09 09 69 66 20 |e max? *|/.X..if |
|00001cb0| 28 63 6f 75 6e 74 20 3d | 3d 20 6e 75 6d 29 20 7b |(count =|= num) {|
|00001cc0| 0a 58 09 09 09 62 65 65 | 70 28 29 3b 0a 58 09 09 |.X...bee|p();.X..|
|00001cd0| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 7d 0a |.continu|e;.X..}.|
|00001ce0| 58 0a 58 09 09 62 75 66 | 5b 63 6f 75 6e 74 5d 20 |X.X..buf|[count] |
|00001cf0| 3d 20 61 6e 73 3b 0a 58 | 09 09 77 61 64 64 63 68 |= ans;.X|..waddch|
|00001d00| 28 77 69 6e 2c 20 28 63 | 68 74 79 70 65 29 20 61 |(win, (c|htype) a|
|00001d10| 6e 73 29 3b 0a 58 09 09 | 77 72 65 66 72 65 73 68 |ns);.X..|wrefresh|
|00001d20| 28 77 69 6e 29 3b 0a 58 | 09 09 63 6f 75 6e 74 2b |(win);.X|..count+|
|00001d30| 2b 3b 0a 58 09 7d 0a 58 | 09 62 75 66 5b 63 6f 75 |+;.X.}.X|.buf[cou|
|00001d40| 6e 74 5d 20 3d 20 4e 55 | 4c 4c 3b 0a 58 09 72 65 |nt] = NU|LL;.X.re|
|00001d50| 74 75 72 6e 28 62 75 66 | 29 3b 0a 58 7d 0a 58 0a |turn(buf|);.X}.X.|
|00001d60| 58 2f 2a 0a 58 20 2a 20 | 47 65 74 20 61 20 6e 75 |X/*.X * |Get a nu|
|00001d70| 6d 62 65 72 20 66 72 6f | 6d 20 61 20 77 69 6e 64 |mber fro|m a wind|
|00001d80| 6f 77 2e 20 20 57 65 20 | 6c 69 6d 69 74 20 74 68 |ow.  We |limit th|
|00001d90| 65 20 6c 65 6e 67 74 68 | 20 61 6e 64 20 72 65 74 |e length| and ret|
|00001da0| 75 72 6e 20 61 20 2d 31 | 0a 58 20 2a 20 6f 6e 20 |urn a -1|.X * on |
|00001db0| 3c 45 53 43 3e 20 6b 65 | 79 2e 0a 58 20 2a 2f 0a |<ESC> ke|y..X */.|
|00001dc0| 58 0a 58 69 6e 74 0a 58 | 67 65 74 5f 6e 75 6d 28 |X.Xint.X|get_num(|
|00001dd0| 77 69 6e 2c 20 6e 75 6d | 29 0a 58 57 49 4e 44 4f |win, num|).XWINDO|
|00001de0| 57 20 2a 77 69 6e 3b 0a | 58 69 6e 74 20 6e 75 6d |W *win;.|Xint num|
|00001df0| 3b 0a 58 7b 0a 58 09 69 | 6e 74 20 63 6f 75 6e 74 |;.X{.X.i|nt count|
|00001e00| 2c 20 78 2c 20 79 2c 20 | 6e 75 6d 62 65 72 3b 0a |, x, y, |number;.|
|00001e10| 58 09 63 68 61 72 20 61 | 6e 73 2c 20 62 75 66 5b |X.char a|ns, buf[|
|00001e20| 38 30 5d 3b 0a 58 0a 58 | 09 63 6f 75 6e 74 20 3d |80];.X.X|.count =|
|00001e30| 20 30 3b 0a 58 09 77 68 | 69 6c 65 20 28 28 61 6e | 0;.X.wh|ile ((an|
|00001e40| 73 20 3d 20 77 67 65 74 | 63 68 28 77 69 6e 29 29 |s = wget|ch(win))|
|00001e50| 20 21 3d 20 27 5c 72 27 | 29 20 7b 0a 58 09 09 09 | != '\r'|) {.X...|
|00001e60| 09 09 2f 2a 20 64 6f 20 | 6f 75 72 20 6f 77 6e 20 |../* do |our own |
|00001e70| 62 61 63 6b 73 70 61 63 | 65 20 2a 2f 0a 58 09 09 |backspac|e */.X..|
|00001e80| 69 66 20 28 61 6e 73 20 | 3d 3d 20 42 53 29 20 7b |if (ans |== BS) {|
|00001e90| 0a 58 09 09 09 69 66 20 | 28 21 63 6f 75 6e 74 29 |.X...if |(!count)|
|00001ea0| 20 7b 0a 58 09 09 09 09 | 62 65 65 70 28 29 3b 0a | {.X....|beep();.|
|00001eb0| 58 09 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |X....con|tinue;.X|
|00001ec0| 09 09 09 7d 0a 58 09 09 | 09 63 6f 75 6e 74 2d 2d |...}.X..|.count--|
|00001ed0| 3b 0a 58 09 09 09 62 75 | 66 5b 63 6f 75 6e 74 5d |;.X...bu|f[count]|
|00001ee0| 20 3d 20 4e 55 4c 4c 3b | 0a 58 09 09 09 67 65 74 | = NULL;|.X...get|
|00001ef0| 79 78 28 77 69 6e 2c 20 | 79 2c 20 78 29 3b 0a 58 |yx(win, |y, x);.X|
|00001f00| 09 09 09 78 2d 2d 3b 0a | 58 09 09 09 77 6d 6f 76 |...x--;.|X...wmov|
|00001f10| 65 28 77 69 6e 2c 20 79 | 2c 20 78 29 3b 0a 58 09 |e(win, y|, x);.X.|
|00001f20| 09 09 77 61 64 64 63 68 | 28 77 69 6e 2c 20 28 63 |..waddch|(win, (c|
|00001f30| 68 74 79 70 65 29 20 27 | 20 27 29 3b 0a 58 09 09 |htype) '| ');.X..|
|00001f40| 09 77 6d 6f 76 65 28 77 | 69 6e 2c 20 79 2c 20 78 |.wmove(w|in, y, x|
|00001f50| 29 3b 0a 58 09 09 09 77 | 72 65 66 72 65 73 68 28 |);.X...w|refresh(|
|00001f60| 77 69 6e 29 3b 0a 58 09 | 09 09 63 6f 6e 74 69 6e |win);.X.|..contin|
|00001f70| 75 65 3b 0a 58 09 09 7d | 0a 58 09 09 09 09 09 2f |ue;.X..}|.X...../|
|00001f80| 2a 20 61 6e 20 3c 45 53 | 43 3e 20 61 6e 79 77 68 |* an <ES|C> anywh|
|00001f90| 65 72 65 20 69 6e 20 74 | 68 65 20 73 74 72 69 6e |ere in t|he strin|
|00001fa0| 67 20 2a 2f 0a 58 09 09 | 69 66 20 28 61 6e 73 20 |g */.X..|if (ans |
|00001fb0| 3d 3d 20 45 53 43 29 0a | 58 09 09 09 72 65 74 75 |== ESC).|X...retu|
|00001fc0| 72 6e 28 2d 31 29 3b 0a | 58 09 09 09 09 09 2f 2a |rn(-1);.|X...../*|
|00001fd0| 20 6f 6e 6c 79 20 64 69 | 67 69 74 73 20 61 72 65 | only di|gits are|
|00001fe0| 20 61 6c 6c 6f 77 65 64 | 20 2a 2f 0a 58 09 09 69 | allowed| */.X..i|
|00001ff0| 66 20 28 61 6e 73 20 3c | 20 27 30 27 20 7c 7c 20 |f (ans <| '0' || |
|00002000| 61 6e 73 20 3e 20 27 39 | 27 29 20 7b 0a 58 09 09 |ans > '9|') {.X..|
|00002010| 09 62 65 65 70 28 29 3b | 0a 58 09 09 09 63 6f 6e |.beep();|.X...con|
|00002020| 74 69 6e 75 65 3b 0a 58 | 09 09 7d 0a 58 09 09 09 |tinue;.X|..}.X...|
|00002030| 09 09 2f 2a 20 65 78 63 | 65 65 64 65 64 20 74 68 |../* exc|eeded th|
|00002040| 65 20 6d 61 78 3f 20 2a | 2f 0a 58 09 09 69 66 20 |e max? *|/.X..if |
|00002050| 28 63 6f 75 6e 74 20 3d | 3d 20 6e 75 6d 29 20 7b |(count =|= num) {|
|00002060| 0a 58 09 09 09 62 65 65 | 70 28 29 3b 0a 58 09 09 |.X...bee|p();.X..|
|00002070| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 7d 0a |.continu|e;.X..}.|
|00002080| 58 0a 58 09 09 62 75 66 | 5b 63 6f 75 6e 74 5d 20 |X.X..buf|[count] |
|00002090| 3d 20 61 6e 73 3b 0a 58 | 09 09 77 61 64 64 63 68 |= ans;.X|..waddch|
|000020a0| 28 77 69 6e 2c 20 28 63 | 68 74 79 70 65 29 20 61 |(win, (c|htype) a|
|000020b0| 6e 73 29 3b 0a 58 09 09 | 77 72 65 66 72 65 73 68 |ns);.X..|wrefresh|
|000020c0| 28 77 69 6e 29 3b 0a 58 | 09 09 63 6f 75 6e 74 2b |(win);.X|..count+|
|000020d0| 2b 3b 0a 58 09 7d 0a 58 | 09 62 75 66 5b 63 6f 75 |+;.X.}.X|.buf[cou|
|000020e0| 6e 74 5d 20 3d 20 4e 55 | 4c 4c 3b 0a 58 09 6e 75 |nt] = NU|LL;.X.nu|
|000020f0| 6d 62 65 72 20 3d 20 61 | 74 6f 69 28 62 75 66 29 |mber = a|toi(buf)|
|00002100| 3b 0a 58 09 72 65 74 75 | 72 6e 28 6e 75 6d 62 65 |;.X.retu|rn(numbe|
|00002110| 72 29 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |r);.X}.X|.X/*.X *|
|00002120| 20 43 68 61 6e 67 65 20 | 76 69 64 65 6f 20 61 74 | Change |video at|
|00002130| 74 72 69 62 75 74 65 73 | 20 77 68 69 6c 65 20 70 |tributes| while p|
|00002140| 72 69 6e 74 69 6e 67 20 | 61 20 73 74 72 69 6e 67 |rinting |a string|
|00002150| 2e 20 20 54 68 65 20 75 | 73 65 20 6f 66 20 74 68 |.  The u|se of th|
|00002160| 65 0a 58 20 2a 20 70 72 | 65 2d 70 72 6f 63 65 73 |e.X * pr|e-proces|
|00002170| 73 6f 72 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 4e |sor defi|nition N|
|00002180| 4f 50 52 4f 4d 4f 54 45 | 20 28 6c 6f 63 61 74 65 |OPROMOTE| (locate|
|00002190| 64 20 69 6e 20 63 6f 6e | 66 69 67 2e 68 29 20 6d |d in con|fig.h) m|
|000021a0| 65 61 6e 73 20 74 68 61 | 74 0a 58 20 2a 20 73 74 |eans tha|t.X * st|
|000021b0| 72 69 6e 67 73 20 77 69 | 6c 6c 20 62 65 20 70 72 |rings wi|ll be pr|
|000021c0| 69 6e 74 65 64 20 77 69 | 74 68 6f 75 74 20 61 6e |inted wi|thout an|
|000021d0| 79 20 73 70 65 63 69 61 | 6c 20 76 69 64 65 6f 20 |y specia|l video |
|000021e0| 61 74 74 72 69 62 75 74 | 65 20 69 66 20 74 68 65 |attribut|e if the|
|000021f0| 0a 58 20 2a 20 72 65 71 | 75 65 73 74 65 64 20 63 |.X * req|uested c|
|00002200| 61 70 61 62 69 6c 69 74 | 79 20 64 6f 65 73 6e 27 |apabilit|y doesn'|
|00002210| 74 20 65 78 69 73 74 2e | 0a 58 20 2a 2f 0a 58 0a |t exist.|.X */.X.|
|00002220| 58 77 61 74 74 72 73 74 | 72 28 77 69 6e 2c 20 61 |Xwattrst|r(win, a|
|00002230| 74 74 72 2c 20 73 74 72 | 29 0a 58 57 49 4e 44 4f |ttr, str|).XWINDO|
|00002240| 57 20 2a 77 69 6e 3b 0a | 58 63 68 74 79 70 65 20 |W *win;.|Xchtype |
|00002250| 61 74 74 72 3b 0a 58 63 | 68 61 72 20 2a 73 74 72 |attr;.Xc|har *str|
|00002260| 3b 0a 58 7b 0a 58 09 69 | 6e 74 20 64 6f 5f 69 74 |;.X{.X.i|nt do_it|
|00002270| 3b 0a 58 09 09 09 09 09 | 2f 2a 20 69 66 20 6e 6f |;.X.....|/* if no|
|00002280| 74 68 69 6e 67 2c 20 64 | 6f 20 6e 6f 74 68 69 6e |thing, d|o nothin|
|00002290| 67 20 2a 2f 0a 58 09 69 | 66 20 28 73 74 72 20 3d |g */.X.i|f (str =|
|000022a0| 3d 20 4e 55 4c 4c 20 7c | 7c 20 2a 73 74 72 20 3d |= NULL ||| *str =|
|000022b0| 3d 20 4e 55 4c 4c 29 0a | 58 09 09 72 65 74 75 72 |= NULL).|X..retur|
|000022c0| 6e 28 30 29 3b 0a 58 0a | 58 23 69 66 64 65 66 20 |n(0);.X.|X#ifdef |
|000022d0| 4f 4c 44 43 55 52 53 45 | 53 0a 58 09 69 66 20 28 |OLDCURSE|S.X.if (|
|000022e0| 61 74 74 72 29 0a 58 09 | 09 77 73 74 61 6e 64 6f |attr).X.|.wstando|
|000022f0| 75 74 28 77 69 6e 29 3b | 0a 58 09 77 61 64 64 73 |ut(win);|.X.wadds|
|00002300| 74 72 28 77 69 6e 2c 20 | 73 74 72 29 3b 0a 58 09 |tr(win, |str);.X.|
|00002310| 69 66 20 28 61 74 74 72 | 29 0a 58 09 09 77 73 74 |if (attr|).X..wst|
|00002320| 61 6e 64 65 6e 64 28 77 | 69 6e 29 3b 0a 58 23 65 |andend(w|in);.X#e|
|00002330| 6c 73 65 20 2f 2a 20 4f | 4c 44 43 55 52 53 45 53 |lse /* O|LDCURSES|
|00002340| 20 2a 2f 0a 58 23 69 66 | 64 65 66 20 4e 4f 50 52 | */.X#if|def NOPR|
|00002350| 4f 4d 4f 54 45 0a 58 09 | 09 09 09 09 2f 2a 20 64 |OMOTE.X.|..../* d|
|00002360| 6f 65 73 20 74 68 65 20 | 63 61 70 61 62 69 6c 69 |oes the |capabili|
|00002370| 74 79 20 65 78 69 73 74 | 3f 20 2a 2f 0a 58 09 64 |ty exist|? */.X.d|
|00002380| 6f 5f 69 74 20 3d 20 30 | 3b 0a 58 09 69 66 20 28 |o_it = 0|;.X.if (|
|00002390| 28 61 74 74 72 20 26 20 | 41 5f 53 54 41 4e 44 4f |(attr & |A_STANDO|
|000023a0| 55 54 29 20 26 26 20 65 | 6e 74 65 72 5f 73 74 61 |UT) && e|nter_sta|
|000023b0| 6e 64 6f 75 74 5f 6d 6f | 64 65 29 0a 58 09 09 64 |ndout_mo|de).X..d|
|000023c0| 6f 5f 69 74 2b 2b 3b 0a | 58 09 69 66 20 28 28 61 |o_it++;.|X.if ((a|
|000023d0| 74 74 72 20 26 20 41 5f | 55 4e 44 45 52 4c 49 4e |ttr & A_|UNDERLIN|
|000023e0| 45 29 20 26 26 20 65 6e | 74 65 72 5f 75 6e 64 65 |E) && en|ter_unde|
|000023f0| 72 6c 69 6e 65 5f 6d 6f | 64 65 29 0a 58 09 09 64 |rline_mo|de).X..d|
|00002400| 6f 5f 69 74 2b 2b 3b 0a | 58 09 69 66 20 28 28 61 |o_it++;.|X.if ((a|
|00002410| 74 74 72 20 26 20 41 5f | 52 45 56 45 52 53 45 29 |ttr & A_|REVERSE)|
|00002420| 20 26 26 20 28 65 6e 74 | 65 72 5f 72 65 76 65 72 | && (ent|er_rever|
|00002430| 73 65 5f 6d 6f 64 65 20 | 7c 7c 20 65 6e 74 65 72 |se_mode ||| enter|
|00002440| 5f 73 74 61 6e 64 6f 75 | 74 5f 6d 6f 64 65 29 29 |_standou|t_mode))|
|00002450| 0a 58 09 09 64 6f 5f 69 | 74 2b 2b 3b 0a 58 09 69 |.X..do_i|t++;.X.i|
|00002460| 66 20 28 28 61 74 74 72 | 20 26 20 41 5f 42 4c 49 |f ((attr| & A_BLI|
|00002470| 4e 4b 29 20 26 26 20 65 | 6e 74 65 72 5f 62 6c 69 |NK) && e|nter_bli|
|00002480| 6e 6b 5f 6d 6f 64 65 29 | 0a 58 09 09 64 6f 5f 69 |nk_mode)|.X..do_i|
|00002490| 74 2b 2b 3b 0a 58 09 69 | 66 20 28 28 61 74 74 72 |t++;.X.i|f ((attr|
|000024a0| 20 26 20 41 5f 42 4f 4c | 44 29 20 26 26 20 65 6e | & A_BOL|D) && en|
|000024b0| 74 65 72 5f 62 6f 6c 64 | 5f 6d 6f 64 65 29 0a 58 |ter_bold|_mode).X|
|000024c0| 09 09 64 6f 5f 69 74 2b | 2b 3b 0a 58 09 69 66 20 |..do_it+|+;.X.if |
|000024d0| 28 28 61 74 74 72 20 26 | 20 41 5f 44 49 4d 29 20 |((attr &| A_DIM) |
|000024e0| 26 26 20 65 6e 74 65 72 | 5f 64 69 6d 5f 6d 6f 64 |&& enter|_dim_mod|
|000024f0| 65 29 0a 58 09 09 64 6f | 5f 69 74 2b 2b 3b 0a 58 |e).X..do|_it++;.X|
|00002500| 23 65 6c 73 65 20 2f 2a | 20 4e 4f 50 52 4f 4d 4f |#else /*| NOPROMO|
|00002510| 54 45 20 2a 2f 0a 58 09 | 64 6f 5f 69 74 20 3d 20 |TE */.X.|do_it = |
|00002520| 31 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4e 4f |1;.X#end|if /* NO|
|00002530| 50 52 4f 4d 4f 54 45 20 | 2a 2f 0a 58 0a 58 09 69 |PROMOTE |*/.X.X.i|
|00002540| 66 20 28 64 6f 5f 69 74 | 29 0a 58 09 09 77 61 74 |f (do_it|).X..wat|
|00002550| 74 72 6f 6e 28 77 69 6e | 2c 20 61 74 74 72 29 3b |tron(win|, attr);|
|00002560| 0a 58 09 09 09 09 09 2f | 2a 20 70 72 69 6e 74 20 |.X...../|* print |
|00002570| 74 68 65 20 73 74 72 69 | 6e 67 20 2a 2f 0a 58 09 |the stri|ng */.X.|
|00002580| 77 61 64 64 73 74 72 28 | 77 69 6e 2c 20 73 74 72 |waddstr(|win, str|
|00002590| 29 3b 0a 58 09 69 66 20 | 28 64 6f 5f 69 74 29 0a |);.X.if |(do_it).|
|000025a0| 58 09 09 77 61 74 74 72 | 6f 66 66 28 77 69 6e 2c |X..wattr|off(win,|
|000025b0| 20 61 74 74 72 29 3b 0a | 58 23 65 6e 64 69 66 20 | attr);.|X#endif |
|000025c0| 2f 2a 20 4f 4c 44 43 55 | 52 53 45 53 20 2a 2f 0a |/* OLDCU|RSES */.|
|000025d0| 58 09 72 65 74 75 72 6e | 28 30 29 3b 0a 58 7d 0a |X.return|(0);.X}.|
|000025e0| 58 0a 58 2f 2a 0a 58 20 | 2a 20 43 68 61 6e 67 65 |X.X/*.X |* Change|
|000025f0| 20 76 69 64 65 6f 20 61 | 74 74 72 69 62 75 74 65 | video a|ttribute|
|00002600| 73 20 77 68 69 6c 65 20 | 70 72 69 6e 74 69 6e 67 |s while |printing|
|00002610| 20 61 20 63 68 61 72 61 | 63 74 65 72 2e 0a 58 20 | a chara|cter..X |
|00002620| 2a 2f 0a 58 0a 58 77 61 | 74 74 72 63 68 28 77 69 |*/.X.Xwa|ttrch(wi|
|00002630| 6e 2c 20 61 74 74 72 2c | 20 63 29 0a 58 57 49 4e |n, attr,| c).XWIN|
|00002640| 44 4f 57 20 2a 77 69 6e | 3b 0a 58 63 68 74 79 70 |DOW *win|;.Xchtyp|
|00002650| 65 20 61 74 74 72 3b 0a | 58 63 68 61 72 20 63 3b |e attr;.|Xchar c;|
|00002660| 0a 58 7b 0a 58 09 69 6e | 74 20 64 6f 5f 69 74 3b |.X{.X.in|t do_it;|
|00002670| 0a 58 0a 58 09 69 66 20 | 28 63 20 3d 3d 20 4e 55 |.X.X.if |(c == NU|
|00002680| 4c 4c 29 0a 58 09 09 72 | 65 74 75 72 6e 28 30 29 |LL).X..r|eturn(0)|
|00002690| 3b 0a 58 23 69 66 64 65 | 66 20 4f 4c 44 43 55 52 |;.X#ifde|f OLDCUR|
|000026a0| 53 45 53 0a 58 09 69 66 | 20 28 61 74 74 72 29 0a |SES.X.if| (attr).|
|000026b0| 58 09 09 77 73 74 61 6e | 64 6f 75 74 28 77 69 6e |X..wstan|dout(win|
|000026c0| 29 3b 0a 58 09 77 61 64 | 64 63 68 28 77 69 6e 2c |);.X.wad|dch(win,|
|000026d0| 20 28 63 68 74 79 70 65 | 29 20 63 29 3b 0a 58 09 | (chtype|) c);.X.|
|000026e0| 69 66 20 28 61 74 74 72 | 29 0a 58 09 09 77 73 74 |if (attr|).X..wst|
|000026f0| 61 6e 64 65 6e 64 28 77 | 69 6e 29 3b 0a 58 23 65 |andend(w|in);.X#e|
|00002700| 6c 73 65 20 2f 2a 20 4f | 4c 44 43 55 52 53 45 53 |lse /* O|LDCURSES|
|00002710| 20 2a 2f 0a 58 23 69 66 | 64 65 66 20 4e 4f 50 52 | */.X#if|def NOPR|
|00002720| 4f 4d 4f 54 45 0a 58 09 | 09 09 09 09 2f 2a 20 64 |OMOTE.X.|..../* d|
|00002730| 6f 65 73 20 74 68 65 20 | 63 61 70 61 62 69 6c 69 |oes the |capabili|
|00002740| 74 79 20 65 78 69 73 74 | 3f 20 2a 2f 0a 58 09 64 |ty exist|? */.X.d|
|00002750| 6f 5f 69 74 20 3d 20 30 | 3b 0a 58 09 69 66 20 28 |o_it = 0|;.X.if (|
|00002760| 28 61 74 74 72 20 26 20 | 41 5f 53 54 41 4e 44 4f |(attr & |A_STANDO|
|00002770| 55 54 29 20 26 26 20 65 | 6e 74 65 72 5f 73 74 61 |UT) && e|nter_sta|
|00002780| 6e 64 6f 75 74 5f 6d 6f | 64 65 29 0a 58 09 09 64 |ndout_mo|de).X..d|
|00002790| 6f 5f 69 74 2b 2b 3b 0a | 58 09 69 66 20 28 28 61 |o_it++;.|X.if ((a|
|000027a0| 74 74 72 20 26 20 41 5f | 55 4e 44 45 52 4c 49 4e |ttr & A_|UNDERLIN|
|000027b0| 45 29 20 26 26 20 65 6e | 74 65 72 5f 75 6e 64 65 |E) && en|ter_unde|
|000027c0| 72 6c 69 6e 65 5f 6d 6f | 64 65 29 0a 58 09 09 64 |rline_mo|de).X..d|
|000027d0| 6f 5f 69 74 2b 2b 3b 0a | 58 09 69 66 20 28 28 61 |o_it++;.|X.if ((a|
|000027e0| 74 74 72 20 26 20 41 5f | 52 45 56 45 52 53 45 29 |ttr & A_|REVERSE)|
|000027f0| 20 26 26 20 28 65 6e 74 | 65 72 5f 72 65 76 65 72 | && (ent|er_rever|
|00002800| 73 65 5f 6d 6f 64 65 20 | 7c 7c 20 65 6e 74 65 72 |se_mode ||| enter|
|00002810| 5f 73 74 61 6e 64 6f 75 | 74 5f 6d 6f 64 65 29 29 |_standou|t_mode))|
|00002820| 0a 58 09 09 64 6f 5f 69 | 74 2b 2b 3b 0a 58 09 69 |.X..do_i|t++;.X.i|
|00002830| 66 20 28 28 61 74 74 72 | 20 26 20 41 5f 42 4c 49 |f ((attr| & A_BLI|
|00002840| 4e 4b 29 20 26 26 20 65 | 6e 74 65 72 5f 62 6c 69 |NK) && e|nter_bli|
|00002850| 6e 6b 5f 6d 6f 64 65 29 | 0a 58 09 09 64 6f 5f 69 |nk_mode)|.X..do_i|
|00002860| 74 2b 2b 3b 0a 58 09 69 | 66 20 28 28 61 74 74 72 |t++;.X.i|f ((attr|
|00002870| 20 26 20 41 5f 42 4f 4c | 44 29 20 26 26 20 65 6e | & A_BOL|D) && en|
|00002880| 74 65 72 5f 62 6f 6c 64 | 5f 6d 6f 64 65 29 0a 58 |ter_bold|_mode).X|
|00002890| 09 09 64 6f 5f 69 74 2b | 2b 3b 0a 58 09 69 66 20 |..do_it+|+;.X.if |
|000028a0| 28 28 61 74 74 72 20 26 | 20 41 5f 44 49 4d 29 20 |((attr &| A_DIM) |
|000028b0| 26 26 20 65 6e 74 65 72 | 5f 64 69 6d 5f 6d 6f 64 |&& enter|_dim_mod|
|000028c0| 65 29 0a 58 09 09 64 6f | 5f 69 74 2b 2b 3b 0a 58 |e).X..do|_it++;.X|
|000028d0| 23 65 6c 73 65 20 2f 2a | 20 4e 4f 50 52 4f 4d 4f |#else /*| NOPROMO|
|000028e0| 54 45 20 2a 2f 0a 58 09 | 64 6f 5f 69 74 20 3d 20 |TE */.X.|do_it = |
|000028f0| 31 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4e 4f |1;.X#end|if /* NO|
|00002900| 50 52 4f 4d 4f 54 45 20 | 2a 2f 0a 58 0a 58 09 69 |PROMOTE |*/.X.X.i|
|00002910| 66 20 28 64 6f 5f 69 74 | 29 0a 58 09 09 77 61 74 |f (do_it|).X..wat|
|00002920| 74 72 6f 6e 28 77 69 6e | 2c 20 61 74 74 72 29 3b |tron(win|, attr);|
|00002930| 0a 58 09 09 09 09 09 2f | 2a 20 70 72 69 6e 74 20 |.X...../|* print |
|00002940| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 2a 2f |the char|acter */|
|00002950| 0a 58 09 77 61 64 64 63 | 68 28 77 69 6e 2c 20 28 |.X.waddc|h(win, (|
|00002960| 63 68 74 79 70 65 29 20 | 63 29 3b 0a 58 09 69 66 |chtype) |c);.X.if|
|00002970| 20 28 64 6f 5f 69 74 29 | 0a 58 09 09 77 61 74 74 | (do_it)|.X..watt|
|00002980| 72 6f 66 66 28 77 69 6e | 2c 20 61 74 74 72 29 3b |roff(win|, attr);|
|00002990| 0a 58 23 65 6e 64 69 66 | 20 2f 2a 20 4f 4c 44 43 |.X#endif| /* OLDC|
|000029a0| 55 52 53 45 53 20 2a 2f | 0a 58 09 72 65 74 75 72 |URSES */|.X.retur|
|000029b0| 6e 28 30 29 3b 0a 58 7d | 0a 58 0a 58 0a 58 2f 2a |n(0);.X}|.X.X.X/*|
|000029c0| 0a 58 20 2a 20 43 68 61 | 6e 67 65 20 76 69 64 65 |.X * Cha|nge vide|
|000029d0| 6f 20 61 74 74 72 69 62 | 75 74 65 73 20 77 68 69 |o attrib|utes whi|
|000029e0| 6c 65 20 70 72 69 6e 74 | 69 6e 67 20 61 20 6e 75 |le print|ing a nu|
|000029f0| 6d 62 65 72 2e 0a 58 20 | 2a 2f 0a 58 0a 58 77 61 |mber..X |*/.X.Xwa|
|00002a00| 74 74 72 6e 75 6d 28 77 | 69 6e 2c 20 61 74 74 72 |ttrnum(w|in, attr|
|00002a10| 2c 20 6e 75 6d 29 0a 58 | 57 49 4e 44 4f 57 20 2a |, num).X|WINDOW *|
|00002a20| 77 69 6e 3b 0a 58 63 68 | 74 79 70 65 20 61 74 74 |win;.Xch|type att|
|00002a30| 72 3b 0a 58 69 6e 74 20 | 6e 75 6d 3b 0a 58 7b 0a |r;.Xint |num;.X{.|
|00002a40| 58 09 69 6e 74 20 64 6f | 5f 69 74 3b 0a 58 09 63 |X.int do|_it;.X.c|
|00002a50| 68 61 72 20 62 75 66 5b | 32 30 5d 3b 0a 58 0a 58 |har buf[|20];.X.X|
|00002a60| 09 73 70 72 69 6e 74 66 | 28 62 75 66 2c 20 22 25 |.sprintf|(buf, "%|
|00002a70| 64 22 2c 20 6e 75 6d 29 | 3b 0a 58 0a 58 23 69 66 |d", num)|;.X.X#if|
|00002a80| 64 65 66 20 4f 4c 44 43 | 55 52 53 45 53 0a 58 09 |def OLDC|URSES.X.|
|00002a90| 69 66 20 28 61 74 74 72 | 29 0a 58 09 09 77 73 74 |if (attr|).X..wst|
|00002aa0| 61 6e 64 6f 75 74 28 77 | 69 6e 29 3b 0a 58 09 77 |andout(w|in);.X.w|
|00002ab0| 61 64 64 73 74 72 28 77 | 69 6e 2c 20 62 75 66 29 |addstr(w|in, buf)|
|00002ac0| 3b 0a 58 09 69 66 20 28 | 61 74 74 72 29 0a 58 09 |;.X.if (|attr).X.|
|00002ad0| 09 77 73 74 61 6e 64 65 | 6e 64 28 77 69 6e 29 3b |.wstande|nd(win);|
|00002ae0| 0a 58 23 65 6c 73 65 20 | 2f 2a 20 4f 4c 44 43 55 |.X#else |/* OLDCU|
|00002af0| 52 53 45 53 20 2a 2f 0a | 58 23 69 66 64 65 66 20 |RSES */.|X#ifdef |
|00002b00| 4e 4f 50 52 4f 4d 4f 54 | 45 0a 58 09 09 09 09 09 |NOPROMOT|E.X.....|
|00002b10| 2f 2a 20 64 6f 65 73 20 | 74 68 65 20 63 61 70 61 |/* does |the capa|
|00002b20| 62 69 6c 69 74 79 20 65 | 78 69 73 74 3f 20 2a 2f |bility e|xist? */|
|00002b30| 0a 58 09 64 6f 5f 69 74 | 20 3d 20 30 3b 0a 58 09 |.X.do_it| = 0;.X.|
|00002b40| 69 66 20 28 28 61 74 74 | 72 20 26 20 41 5f 53 54 |if ((att|r & A_ST|
|00002b50| 41 4e 44 4f 55 54 29 20 | 26 26 20 65 6e 74 65 72 |ANDOUT) |&& enter|
|00002b60| 5f 73 74 61 6e 64 6f 75 | 74 5f 6d 6f 64 65 29 0a |_standou|t_mode).|
|00002b70| 58 09 09 64 6f 5f 69 74 | 2b 2b 3b 0a 58 09 69 66 |X..do_it|++;.X.if|
|00002b80| 20 28 28 61 74 74 72 20 | 26 20 41 5f 55 4e 44 45 | ((attr |& A_UNDE|
|00002b90| 52 4c 49 4e 45 29 20 26 | 26 20 65 6e 74 65 72 5f |RLINE) &|& enter_|
|00002ba0| 75 6e 64 65 72 6c 69 6e | 65 5f 6d 6f 64 65 29 0a |underlin|e_mode).|
|00002bb0| 58 09 09 64 6f 5f 69 74 | 2b 2b 3b 0a 58 09 69 66 |X..do_it|++;.X.if|
|00002bc0| 20 28 28 61 74 74 72 20 | 26 20 41 5f 52 45 56 45 | ((attr |& A_REVE|
|00002bd0| 52 53 45 29 20 26 26 20 | 28 65 6e 74 65 72 5f 72 |RSE) && |(enter_r|
|00002be0| 65 76 65 72 73 65 5f 6d | 6f 64 65 20 7c 7c 20 65 |everse_m|ode || e|
|00002bf0| 6e 74 65 72 5f 73 74 61 | 6e 64 6f 75 74 5f 6d 6f |nter_sta|ndout_mo|
|00002c00| 64 65 29 29 0a 58 09 09 | 64 6f 5f 69 74 2b 2b 3b |de)).X..|do_it++;|
|00002c10| 0a 58 09 69 66 20 28 28 | 61 74 74 72 20 26 20 41 |.X.if ((|attr & A|
|00002c20| 5f 42 4c 49 4e 4b 29 20 | 26 26 20 65 6e 74 65 72 |_BLINK) |&& enter|
|00002c30| 5f 62 6c 69 6e 6b 5f 6d | 6f 64 65 29 0a 58 09 09 |_blink_m|ode).X..|
|00002c40| 64 6f 5f 69 74 2b 2b 3b | 0a 58 09 69 66 20 28 28 |do_it++;|.X.if ((|
|00002c50| 61 74 74 72 20 26 20 41 | 5f 42 4f 4c 44 29 20 26 |attr & A|_BOLD) &|
|00002c60| 26 20 65 6e 74 65 72 5f | 62 6f 6c 64 5f 6d 6f 64 |& enter_|bold_mod|
|00002c70| 65 29 0a 58 09 09 64 6f | 5f 69 74 2b 2b 3b 0a 58 |e).X..do|_it++;.X|
|00002c80| 09 69 66 20 28 28 61 74 | 74 72 20 26 20 41 5f 44 |.if ((at|tr & A_D|
|00002c90| 49 4d 29 20 26 26 20 65 | 6e 74 65 72 5f 64 69 6d |IM) && e|nter_dim|
|00002ca0| 5f 6d 6f 64 65 29 0a 58 | 09 09 64 6f 5f 69 74 2b |_mode).X|..do_it+|
|00002cb0| 2b 3b 0a 58 23 65 6c 73 | 65 20 2f 2a 20 4e 4f 50 |+;.X#els|e /* NOP|
|00002cc0| 52 4f 4d 4f 54 45 20 2a | 2f 0a 58 09 64 6f 5f 69 |ROMOTE *|/.X.do_i|
|00002cd0| 74 20 3d 20 31 3b 0a 58 | 23 65 6e 64 69 66 20 2f |t = 1;.X|#endif /|
|00002ce0| 2a 20 4e 4f 50 52 4f 4d | 4f 54 45 20 2a 2f 0a 58 |* NOPROM|OTE */.X|
|00002cf0| 0a 58 09 69 66 20 28 64 | 6f 5f 69 74 29 0a 58 09 |.X.if (d|o_it).X.|
|00002d00| 09 77 61 74 74 72 6f 6e | 28 77 69 6e 2c 20 61 74 |.wattron|(win, at|
|00002d10| 74 72 29 3b 0a 58 09 09 | 09 09 09 2f 2a 20 70 72 |tr);.X..|.../* pr|
|00002d20| 69 6e 74 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |int the |characte|
|00002d30| 72 20 2a 2f 0a 58 09 77 | 61 64 64 73 74 72 28 77 |r */.X.w|addstr(w|
|00002d40| 69 6e 2c 20 62 75 66 29 | 3b 0a 58 09 69 66 20 28 |in, buf)|;.X.if (|
|00002d50| 64 6f 5f 69 74 29 0a 58 | 09 09 77 61 74 74 72 6f |do_it).X|..wattro|
|00002d60| 66 66 28 77 69 6e 2c 20 | 61 74 74 72 29 3b 0a 58 |ff(win, |attr);.X|
|00002d70| 23 65 6e 64 69 66 20 2f | 2a 20 4f 4c 44 43 55 52 |#endif /|* OLDCUR|
|00002d80| 53 45 53 20 2a 2f 0a 58 | 09 72 65 74 75 72 6e 28 |SES */.X|.return(|
|00002d90| 30 29 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |0);.X}.X|.X/*.X *|
|00002da0| 20 50 72 6f 6d 70 74 20 | 66 6f 72 20 61 20 59 65 | Prompt |for a Ye|
|00002db0| 73 20 6f 72 20 4e 6f 20 | 61 6e 73 77 65 72 2e 20 |s or No |answer. |
|00002dc0| 20 45 63 68 6f 20 74 68 | 65 20 73 69 6e 67 6c 65 | Echo th|e single|
|00002dd0| 20 6b 65 79 20 69 6e 70 | 75 74 20 61 73 20 77 6f | key inp|ut as wo|
|00002de0| 72 64 73 2e 0a 58 20 2a | 20 48 61 6e 64 6c 65 20 |rds..X *| Handle |
|00002df0| 74 68 65 20 66 75 6e 6e | 79 20 63 75 72 73 6f 72 |the funn|y cursor|
|00002e00| 20 6d 6f 76 65 6d 65 6e | 74 20 70 72 6f 62 6c 65 | movemen|t proble|
|00002e10| 6d 73 20 77 69 74 68 20 | 6d 61 67 69 63 20 63 6f |ms with |magic co|
|00002e20| 6f 6b 69 65 20 74 65 72 | 6d 69 6e 61 6c 73 2e 0a |okie ter|minals..|
|00002e30| 58 20 2a 20 52 65 74 75 | 72 6e 73 20 61 20 31 20 |X * Retu|rns a 1 |
|00002e40| 6f 6e 20 79 65 73 2e 0a | 58 20 2a 2f 0a 58 0a 58 |on yes..|X */.X.X|
|00002e50| 69 6e 74 0a 58 79 65 73 | 5f 70 72 6f 6d 70 74 28 |int.Xyes|_prompt(|
|00002e60| 77 69 6e 2c 20 79 2c 20 | 78 2c 20 61 74 74 72 2c |win, y, |x, attr,|
|00002e70| 20 73 74 72 29 0a 58 57 | 49 4e 44 4f 57 20 2a 77 | str).XW|INDOW *w|
|00002e80| 69 6e 3b 0a 58 69 6e 74 | 20 79 2c 20 78 3b 0a 58 |in;.Xint| y, x;.X|
|00002e90| 63 68 74 79 70 65 20 61 | 74 74 72 3b 0a 58 63 68 |chtype a|ttr;.Xch|
|00002ea0| 61 72 20 2a 73 74 72 3b | 0a 58 7b 0a 58 09 69 6e |ar *str;|.X{.X.in|
|00002eb0| 74 20 73 61 76 65 2c 20 | 72 65 74 5f 63 6f 64 65 |t save, |ret_code|
|00002ec0| 3b 0a 58 09 63 68 61 72 | 20 6e 65 77 5f 73 74 72 |;.X.char| new_str|
|00002ed0| 5b 38 30 5d 2c 20 2a 73 | 74 72 63 70 79 28 29 2c |[80], *s|trcpy(),|
|00002ee0| 20 2a 73 74 72 63 61 74 | 28 29 3b 0a 58 09 09 09 | *strcat|();.X...|
|00002ef0| 09 09 2f 2a 20 62 75 69 | 6c 64 20 61 6e 64 20 64 |../* bui|ld and d|
|00002f00| 69 73 70 6c 61 79 20 74 | 68 65 20 70 72 6f 6d 70 |isplay t|he promp|
|00002f10| 74 20 2a 2f 0a 58 09 73 | 74 72 63 70 79 28 6e 65 |t */.X.s|trcpy(ne|
|00002f20| 77 5f 73 74 72 2c 20 73 | 74 72 29 3b 0a 58 09 73 |w_str, s|tr);.X.s|
|00002f30| 74 72 63 61 74 28 6e 65 | 77 5f 73 74 72 2c 20 22 |trcat(ne|w_str, "|
|00002f40| 3f 20 28 79 2f 6e 29 3a | 22 29 3b 0a 58 09 6d 76 |? (y/n):|");.X.mv|
|00002f50| 77 61 74 74 72 73 74 72 | 28 77 69 6e 2c 20 79 2c |wattrstr|(win, y,|
|00002f60| 20 78 2c 20 61 74 74 72 | 2c 20 6e 65 77 5f 73 74 | x, attr|, new_st|
|00002f70| 72 29 3b 0a 58 09 77 6d | 6f 76 65 28 77 69 6e 2c |r);.X.wm|ove(win,|
|00002f80| 20 79 2c 20 73 74 72 6c | 65 6e 28 6e 65 77 5f 73 | y, strl|en(new_s|
|00002f90| 74 72 29 2b 78 2b 32 29 | 3b 0a 58 09 77 72 65 66 |tr)+x+2)|;.X.wref|
|00002fa0| 72 65 73 68 28 77 69 6e | 29 3b 0a 58 0a 58 09 72 |resh(win|);.X.X.r|
|00002fb0| 65 74 5f 63 6f 64 65 20 | 3d 20 2d 31 3b 0a 58 09 |et_code |= -1;.X.|
|00002fc0| 77 68 69 6c 65 20 28 72 | 65 74 5f 63 6f 64 65 20 |while (r|et_code |
|00002fd0| 3d 3d 20 2d 31 29 20 7b | 0a 58 09 09 73 61 76 65 |== -1) {|.X..save|
|00002fe0| 20 3d 20 77 67 65 74 63 | 68 28 77 69 6e 29 3b 0a | = wgetc|h(win);.|
|00002ff0| 58 09 09 73 77 69 74 63 | 68 20 28 73 61 76 65 29 |X..switc|h (save)|
|00003000| 20 7b 0a 58 09 09 09 63 | 61 73 65 20 27 79 27 3a | {.X...c|ase 'y':|
|00003010| 0a 58 09 09 09 63 61 73 | 65 20 27 59 27 3a 0a 58 |.X...cas|e 'Y':.X|
|00003020| 09 09 09 09 77 61 64 64 | 73 74 72 28 77 69 6e 2c |....wadd|str(win,|
|00003030| 20 22 59 65 73 22 29 3b | 0a 58 09 09 09 09 72 65 | "Yes");|.X....re|
|00003040| 74 5f 63 6f 64 65 20 3d | 20 31 3b 0a 58 09 09 09 |t_code =| 1;.X...|
|00003050| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 63 61 73 65 |.break;.|X...case|
|00003060| 20 27 6e 27 3a 0a 58 09 | 09 09 63 61 73 65 20 27 | 'n':.X.|..case '|
|00003070| 4e 27 3a 0a 58 09 09 09 | 63 61 73 65 20 45 53 43 |N':.X...|case ESC|
|00003080| 3a 0a 58 09 09 09 09 77 | 61 64 64 73 74 72 28 77 |:.X....w|addstr(w|
|00003090| 69 6e 2c 20 22 4e 6f 22 | 29 3b 0a 58 09 09 09 09 |in, "No"|);.X....|
|000030a0| 72 65 74 5f 63 6f 64 65 | 20 3d 20 30 3b 0a 58 09 |ret_code| = 0;.X.|
|000030b0| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 64 65 |...break|;.X...de|
|000030c0| 66 61 75 6c 74 3a 0a 58 | 09 09 09 09 62 65 65 70 |fault:.X|....beep|
|000030d0| 28 29 3b 0a 58 0a 58 09 | 09 7d 0a 58 09 7d 0a 58 |();.X.X.|.}.X.}.X|
|000030e0| 09 77 72 65 66 72 65 73 | 68 28 77 69 6e 29 3b 0a |.wrefres|h(win);.|
|000030f0| 58 09 72 65 74 75 72 6e | 28 72 65 74 5f 63 6f 64 |X.return|(ret_cod|
|00003100| 65 29 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |e);.X}.X|.X/*.X *|
|00003110| 20 48 61 6e 64 79 20 72 | 6f 75 74 69 6e 65 20 66 | Handy r|outine f|
|00003120| 6f 72 20 63 6c 65 61 72 | 2d 74 6f 2d 65 6e 64 2d |or clear|-to-end-|
|00003130| 6f 66 2d 6c 69 6e 65 2e | 20 20 46 69 78 65 73 20 |of-line.|  Fixes |
|00003140| 75 70 20 74 68 65 20 62 | 6f 78 20 69 66 20 72 65 |up the b|ox if re|
|00003150| 71 75 65 73 74 65 64 2e | 0a 58 20 2a 2f 0a 58 0a |quested.|.X */.X.|
|00003160| 58 69 6e 74 0a 58 63 6c | 65 61 72 5f 6c 69 6e 65 |Xint.Xcl|ear_line|
|00003170| 28 77 69 6e 2c 20 79 2c | 20 78 2c 20 72 65 5f 62 |(win, y,| x, re_b|
|00003180| 6f 78 29 0a 58 57 49 4e | 44 4f 57 20 2a 77 69 6e |ox).XWIN|DOW *win|
|00003190| 3b 0a 58 69 6e 74 20 79 | 2c 20 78 2c 20 72 65 5f |;.Xint y|, x, re_|
|000031a0| 62 6f 78 3b 0a 58 7b 0a | 58 09 69 66 20 28 77 6d |box;.X{.|X.if (wm|
|000031b0| 6f 76 65 28 77 69 6e 2c | 20 79 2c 20 78 29 20 3d |ove(win,| y, x) =|
|000031c0| 3d 20 45 52 52 29 0a 58 | 09 09 72 65 74 75 72 6e |= ERR).X|..return|
|000031d0| 28 45 52 52 29 3b 0a 58 | 0a 58 09 77 63 6c 72 74 |(ERR);.X|.X.wclrt|
|000031e0| 6f 65 6f 6c 28 77 69 6e | 29 3b 0a 58 0a 58 09 69 |oeol(win|);.X.X.i|
|000031f0| 66 20 28 72 65 5f 62 6f | 78 29 20 7b 0a 58 09 09 |f (re_bo|x) {.X..|
|00003200| 6d 76 77 61 64 64 63 68 | 28 77 69 6e 2c 20 79 2c |mvwaddch|(win, y,|
|00003210| 20 77 69 6e 2d 3e 5f 6d | 61 78 78 2d 31 2c 20 28 | win->_m|axx-1, (|
|00003220| 63 68 74 79 70 65 29 20 | 41 43 53 5f 56 4c 49 4e |chtype) |ACS_VLIN|
|00003230| 45 29 3b 0a 58 09 09 77 | 6d 6f 76 65 28 77 69 6e |E);.X..w|move(win|
|00003240| 2c 20 79 2c 20 78 29 3b | 0a 58 09 7d 0a 58 09 72 |, y, x);|.X.}.X.r|
|00003250| 65 74 75 72 6e 28 30 29 | 3b 0a 58 7d 0a 58 0a 58 |eturn(0)|;.X}.X.X|
|00003260| 2f 2a 0a 58 20 2a 20 52 | 6f 75 74 69 6e 65 20 74 |/*.X * R|outine t|
|00003270| 6f 20 6d 61 6b 65 20 61 | 20 68 6f 72 69 7a 6f 6e |o make a| horizon|
|00003280| 74 61 6c 20 6c 69 6e 65 | 2e 20 20 44 6f 65 73 20 |tal line|.  Does |
|00003290| 4e 4f 54 20 64 6f 20 61 | 20 77 72 65 66 72 65 73 |NOT do a| wrefres|
|000032a0| 68 28 29 2e 0a 58 20 2a | 2f 0a 58 0a 58 69 6e 74 |h()..X *|/.X.Xint|
|000032b0| 0a 58 68 6f 72 69 7a 6f | 6e 74 61 6c 28 77 69 6e |.Xhorizo|ntal(win|
|000032c0| 2c 20 78 2c 20 79 2c 20 | 6c 65 6e 29 0a 58 57 49 |, x, y, |len).XWI|
|000032d0| 4e 44 4f 57 20 2a 77 69 | 6e 3b 0a 58 69 6e 74 20 |NDOW *wi|n;.Xint |
|000032e0| 78 2c 20 79 2c 20 6c 65 | 6e 3b 0a 58 7b 0a 58 09 |x, y, le|n;.X{.X.|
|000032f0| 77 6d 6f 76 65 28 77 69 | 6e 2c 20 78 2c 20 79 29 |wmove(wi|n, x, y)|
|00003300| 3b 0a 58 0a 58 09 77 68 | 69 6c 65 20 28 6c 65 6e |;.X.X.wh|ile (len|
|00003310| 2d 2d 29 0a 58 09 09 77 | 61 64 64 63 68 28 77 69 |--).X..w|addch(wi|
|00003320| 6e 2c 20 41 43 53 5f 48 | 4c 49 4e 45 29 3b 0a 58 |n, ACS_H|LINE);.X|
|00003330| 0a 58 09 72 65 74 75 72 | 6e 28 30 29 3b 0a 58 7d |.X.retur|n(0);.X}|
|00003340| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 57 61 69 74 20 |.X.X/*.X| * Wait |
|00003350| 66 6f 72 20 61 20 6b 65 | 79 20 6f 72 20 74 69 6d |for a ke|y or tim|
|00003360| 65 20 6f 75 74 2e 20 20 | 52 65 74 75 72 6e 73 20 |e out.  |Returns |
|00003370| 61 20 2d 31 20 6f 6e 20 | 74 69 6d 65 6f 75 74 2e |a -1 on |timeout.|
|00003380| 20 20 54 68 69 73 20 69 | 73 20 73 69 6d 69 6c 61 |  This i|s simila|
|00003390| 72 0a 58 20 2a 20 74 6f | 20 74 68 65 20 68 61 6c |r.X * to| the hal|
|000033a0| 66 2d 64 65 6c 61 79 20 | 6d 6f 64 65 20 69 6e 20 |f-delay |mode in |
|000033b0| 74 68 65 20 6e 65 77 65 | 72 20 76 65 72 73 69 6f |the newe|r versio|
|000033c0| 6e 73 20 6f 66 20 63 75 | 72 73 65 73 28 33 29 2e |ns of cu|rses(3).|
|000033d0| 0a 58 20 2a 2f 0a 58 0a | 58 73 74 61 74 69 63 20 |.X */.X.|Xstatic |
|000033e0| 69 6e 74 20 77 6b 5f 66 | 6c 61 67 3b 0a 58 0a 58 |int wk_f|lag;.X.X|
|000033f0| 69 6e 74 0a 58 77 61 69 | 74 5f 6b 65 79 28 77 69 |int.Xwai|t_key(wi|
|00003400| 6e 2c 20 73 65 63 29 0a | 58 57 49 4e 44 4f 57 20 |n, sec).|XWINDOW |
|00003410| 2a 77 69 6e 3b 0a 58 75 | 6e 73 69 67 6e 65 64 20 |*win;.Xu|nsigned |
|00003420| 69 6e 74 20 73 65 63 3b | 0a 58 7b 0a 58 09 69 6e |int sec;|.X{.X.in|
|00003430| 74 20 6b 65 79 2c 20 77 | 6b 5f 66 6f 72 63 65 28 |t key, w|k_force(|
|00003440| 29 3b 0a 58 09 75 6e 73 | 69 67 6e 65 64 20 69 6e |);.X.uns|igned in|
|00003450| 74 20 61 6c 61 72 6d 28 | 29 3b 0a 58 23 69 66 64 |t alarm(|);.X#ifd|
|00003460| 65 66 20 57 47 45 54 43 | 48 5f 42 52 4f 4b 45 0a |ef WGETC|H_BROKE.|
|00003470| 58 09 63 68 61 72 20 63 | 3b 0a 58 23 65 6e 64 69 |X.char c|;.X#endi|
|00003480| 66 20 2f 2a 20 57 47 45 | 54 43 48 5f 42 52 4f 4b |f /* WGE|TCH_BROK|
|00003490| 45 20 2a 2f 0a 58 0a 58 | 09 73 69 67 6e 61 6c 28 |E */.X.X|.signal(|
|000034a0| 53 49 47 41 4c 52 4d 2c | 20 77 6b 5f 66 6f 72 63 |SIGALRM,| wk_forc|
|000034b0| 65 29 3b 0a 58 09 77 6b | 5f 66 6c 61 67 20 3d 20 |e);.X.wk|_flag = |
|000034c0| 30 3b 0a 58 0a 58 09 61 | 6c 61 72 6d 28 73 65 63 |0;.X.X.a|larm(sec|
|000034d0| 29 3b 0a 58 23 69 66 64 | 65 66 20 57 47 45 54 43 |);.X#ifd|ef WGETC|
|000034e0| 48 5f 42 52 4f 4b 45 0a | 58 09 72 65 61 64 28 30 |H_BROKE.|X.read(0|
|000034f0| 2c 20 26 63 2c 20 31 29 | 3b 0a 58 09 6b 65 79 20 |, &c, 1)|;.X.key |
|00003500| 3d 20 63 3b 0a 58 23 65 | 6c 73 65 20 2f 2a 20 57 |= c;.X#e|lse /* W|
|00003510| 47 45 54 43 48 5f 42 52 | 4f 4b 45 20 2a 2f 0a 58 |GETCH_BR|OKE */.X|
|00003520| 09 6b 65 79 20 3d 20 77 | 67 65 74 63 68 28 77 69 |.key = w|getch(wi|
|00003530| 6e 29 3b 0a 58 23 65 6e | 64 69 66 20 2f 2a 20 57 |n);.X#en|dif /* W|
|00003540| 47 45 54 43 48 5f 42 52 | 4f 4b 45 20 2a 2f 0a 58 |GETCH_BR|OKE */.X|
|00003550| 09 69 66 20 28 77 6b 5f | 66 6c 61 67 29 0a 58 09 |.if (wk_|flag).X.|
|00003560| 09 72 65 74 75 72 6e 28 | 2d 31 29 3b 0a 58 09 61 |.return(|-1);.X.a|
|00003570| 6c 61 72 6d 28 30 29 3b | 0a 58 09 72 65 74 75 72 |larm(0);|.X.retur|
|00003580| 6e 28 6b 65 79 29 3b 0a | 58 7d 0a 58 2f 2a 41 52 |n(key);.|X}.X/*AR|
|00003590| 47 53 55 53 45 44 2a 2f | 0a 58 73 74 61 74 69 63 |GSUSED*/|.Xstatic|
|000035a0| 20 69 6e 74 0a 58 77 6b | 5f 66 6f 72 63 65 28 64 | int.Xwk|_force(d|
|000035b0| 75 6d 6d 79 29 0a 58 69 | 6e 74 20 64 75 6d 6d 79 |ummy).Xi|nt dummy|
|000035c0| 3b 0a 58 7b 0a 58 09 77 | 6b 5f 66 6c 61 67 20 3d |;.X{.X.w|k_flag =|
|000035d0| 20 31 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a | 1;.X}.X|.X/*.X *|
|000035e0| 20 48 65 72 65 20 61 72 | 65 20 73 6f 6d 65 20 72 | Here ar|e some r|
|000035f0| 6f 75 74 69 6e 65 73 20 | 74 68 61 74 20 61 72 65 |outines |that are|
|00003600| 20 70 72 6f 62 61 62 6c | 79 20 6d 69 73 73 69 6e | probabl|y missin|
|00003610| 67 20 66 72 6f 6d 20 74 | 68 65 20 6f 6c 64 65 72 |g from t|he older|
|00003620| 0a 58 20 2a 20 66 6c 61 | 76 6f 72 73 20 6f 66 20 |.X * fla|vors of |
|00003630| 63 75 72 73 65 73 28 33 | 29 2e 0a 58 20 2a 2f 0a |curses(3|)..X */.|
|00003640| 58 0a 58 23 69 66 64 65 | 66 20 4f 4c 44 43 55 52 |X.X#ifde|f OLDCUR|
|00003650| 53 45 53 0a 58 2f 2a 0a | 58 20 2a 20 4d 61 6b 65 |SES.X/*.|X * Make|
|00003660| 20 74 68 65 20 74 65 72 | 6d 69 6e 61 6c 20 62 65 | the ter|minal be|
|00003670| 6c 6c 20 67 6f 20 6f 66 | 66 0a 58 20 2a 2f 0a 58 |ll go of|f.X */.X|
|00003680| 0a 58 69 6e 74 0a 58 62 | 65 65 70 28 29 0a 58 7b |.Xint.Xb|eep().X{|
|00003690| 0a 58 09 66 70 75 74 63 | 28 42 45 4c 2c 20 73 74 |.X.fputc|(BEL, st|
|000036a0| 64 65 72 72 29 3b 0a 58 | 09 72 65 74 75 72 6e 28 |derr);.X|.return(|
|000036b0| 30 29 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |0);.X}.X|.X/*.X *|
|000036c0| 20 46 69 78 20 74 68 65 | 20 73 74 64 69 6e 20 73 | Fix the| stdin s|
|000036d0| 6f 20 74 68 61 74 20 61 | 20 72 65 61 64 20 69 73 |o that a| read is|
|000036e0| 20 73 61 74 69 73 66 69 | 65 64 20 69 6d 6d 65 64 | satisfi|ed immed|
|000036f0| 69 61 74 65 6c 79 2e 20 | 20 57 68 65 6e 20 72 65 |iately. | When re|
|00003700| 61 64 28 29 0a 58 20 2a | 20 69 73 20 63 61 6c 6c |ad().X *| is call|
|00003710| 65 64 20 69 74 20 72 65 | 74 75 72 6e 73 20 74 68 |ed it re|turns th|
|00003720| 65 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 74 |e charac|ter in t|
|00003730| 68 65 20 71 75 65 75 65 | 2c 20 6f 72 20 61 6e 20 |he queue|, or an |
|00003740| 65 72 72 6f 72 20 69 66 | 20 6e 6f 0a 58 20 2a 20 |error if| no.X * |
|00003750| 6b 65 79 20 77 61 73 20 | 70 72 65 73 73 65 64 2e |key was |pressed.|
|00003760| 20 20 54 68 65 20 77 69 | 6e 64 6f 77 20 61 72 67 |  The wi|ndow arg|
|00003770| 75 6d 65 6e 74 20 69 73 | 20 6e 6f 74 20 75 73 65 |ument is| not use|
|00003780| 64 21 0a 58 20 2a 2f 0a | 58 0a 58 69 6e 74 0a 58 |d!.X */.|X.Xint.X|
|00003790| 6e 6f 64 65 6c 61 79 28 | 77 69 6e 2c 20 66 6c 61 |nodelay(|win, fla|
|000037a0| 67 29 0a 58 57 49 4e 44 | 4f 57 20 2a 77 69 6e 3b |g).XWIND|OW *win;|
|000037b0| 0a 58 69 6e 74 20 66 6c | 61 67 3b 0a 58 7b 0a 58 |.Xint fl|ag;.X{.X|
|000037c0| 09 69 66 20 28 66 6c 61 | 67 29 0a 58 09 09 66 63 |.if (fla|g).X..fc|
|000037d0| 6e 74 6c 28 30 2c 20 46 | 5f 53 45 54 46 4c 2c 20 |ntl(0, F|_SETFL, |
|000037e0| 66 63 6e 74 6c 28 30 2c | 20 46 5f 47 45 54 46 4c |fcntl(0,| F_GETFL|
|000037f0| 2c 20 30 29 20 7c 20 4f | 5f 4e 44 45 4c 41 59 29 |, 0) | O|_NDELAY)|
|00003800| 3b 0a 58 09 65 6c 73 65 | 0a 58 09 09 66 63 6e 74 |;.X.else|.X..fcnt|
|00003810| 6c 28 30 2c 20 46 5f 53 | 45 54 46 4c 2c 20 66 63 |l(0, F_S|ETFL, fc|
|00003820| 6e 74 6c 28 30 2c 20 46 | 5f 47 45 54 46 4c 2c 20 |ntl(0, F|_GETFL, |
|00003830| 30 29 20 26 20 7e 4f 5f | 4e 44 45 4c 41 59 29 3b |0) & ~O_|NDELAY);|
|00003840| 0a 58 09 72 65 74 75 72 | 6e 28 30 29 3b 0a 58 7d |.X.retur|n(0);.X}|
|00003850| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 54 61 6b 65 20 |.X.X/*.X| * Take |
|00003860| 74 68 65 20 74 65 72 6d | 69 6e 61 6c 20 6f 75 74 |the term|inal out|
|00003870| 20 6f 66 20 74 68 65 20 | 22 63 75 72 73 65 73 20 | of the |"curses |
|00003880| 6d 6f 64 65 22 0a 58 20 | 2a 2f 0a 58 0a 58 69 6e |mode".X |*/.X.Xin|
|00003890| 74 0a 58 72 65 73 65 74 | 74 65 72 6d 28 29 0a 58 |t.Xreset|term().X|
|000038a0| 7b 0a 58 09 72 65 73 65 | 74 74 79 28 29 3b 0a 58 |{.X.rese|tty();.X|
|000038b0| 09 72 65 74 75 72 6e 28 | 30 29 3b 0a 58 7d 0a 58 |.return(|0);.X}.X|
|000038c0| 0a 58 2f 2a 0a 58 20 2a | 20 50 75 74 20 74 68 65 |.X/*.X *| Put the|
|000038d0| 20 74 65 72 6d 69 6e 61 | 6c 20 62 61 63 6b 20 69 | termina|l back i|
|000038e0| 6e 74 6f 20 74 68 65 20 | 22 63 75 72 73 65 73 20 |nto the |"curses |
|000038f0| 6d 6f 64 65 22 0a 58 20 | 2a 2f 0a 58 0a 58 69 6e |mode".X |*/.X.Xin|
|00003900| 74 0a 58 6d 79 70 75 74 | 63 68 61 72 28 63 29 0a |t.Xmyput|char(c).|
|00003910| 58 63 68 61 72 20 63 3b | 0a 58 7b 0a 58 09 72 65 |Xchar c;|.X{.X.re|
|00003920| 74 75 72 6e 28 70 75 74 | 63 68 61 72 28 63 29 29 |turn(put|char(c))|
|00003930| 3b 0a 58 7d 0a 58 69 6e | 74 0a 58 66 69 78 74 65 |;.X}.Xin|t.Xfixte|
|00003940| 72 6d 28 29 0a 58 7b 0a | 58 09 69 6e 74 20 6d 79 |rm().X{.|X.int my|
|00003950| 70 75 74 63 68 61 72 28 | 29 3b 0a 58 09 65 78 74 |putchar(|);.X.ext|
|00003960| 65 72 6e 20 63 68 61 72 | 20 2a 54 49 2c 20 2a 56 |ern char| *TI, *V|
|00003970| 53 3b 0a 58 0a 58 09 74 | 70 75 74 73 28 54 49 2c |S;.X.X.t|puts(TI,|
|00003980| 20 31 2c 20 6d 79 70 75 | 74 63 68 61 72 29 3b 0a | 1, mypu|tchar);.|
|00003990| 58 09 74 70 75 74 73 28 | 56 53 2c 20 31 2c 20 6d |X.tputs(|VS, 1, m|
|000039a0| 79 70 75 74 63 68 61 72 | 29 3b 0a 58 09 6e 6f 6e |yputchar|);.X.non|
|000039b0| 6c 28 29 3b 0a 58 09 63 | 72 6d 6f 64 65 28 29 3b |l();.X.c|rmode();|
|000039c0| 0a 58 09 6e 6f 65 63 68 | 6f 28 29 3b 0a 58 09 72 |.X.noech|o();.X.r|
|000039d0| 65 74 75 72 6e 28 30 29 | 3b 0a 58 7d 0a 58 23 65 |eturn(0)|;.X}.X#e|
|000039e0| 6e 64 69 66 20 2f 2a 20 | 4f 4c 44 43 55 52 53 45 |ndif /* |OLDCURSE|
|000039f0| 53 20 2a 2f 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |S */.SHA|R_EOF.if|
|00003a00| 20 74 65 73 74 20 38 34 | 30 34 20 2d 6e 65 20 22 | test 84|04 -ne "|
|00003a10| 60 77 63 20 2d 63 20 3c | 20 27 63 75 72 73 65 73 |`wc -c <| 'curses|
|00003a20| 2e 63 27 60 22 0a 74 68 | 65 6e 0a 09 65 63 68 6f |.c'`".th|en..echo|
|00003a30| 20 73 68 61 72 3a 20 22 | 65 72 72 6f 72 20 74 72 | shar: "|error tr|
|00003a40| 61 6e 73 6d 69 74 74 69 | 6e 67 20 27 63 75 72 73 |ansmitti|ng 'curs|
|00003a50| 65 73 2e 63 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |es.c'" '|(should |
|00003a60| 68 61 76 65 20 62 65 65 | 6e 20 38 34 30 34 20 63 |have bee|n 8404 c|
|00003a70| 68 61 72 61 63 74 65 72 | 73 29 27 0a 66 69 0a 66 |haracter|s)'.fi.f|
|00003a80| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 22 65 78 |i.echo s|har: "ex|
|00003a90| 74 72 61 63 74 69 6e 67 | 20 27 64 5f 64 65 6c 65 |tracting| 'd_dele|
|00003aa0| 74 65 2e 63 27 22 20 27 | 28 32 30 30 39 20 63 68 |te.c'" '|(2009 ch|
|00003ab0| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00003ac0| 73 74 20 2d 66 20 27 64 | 5f 64 65 6c 65 74 65 2e |st -f 'd|_delete.|
|00003ad0| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|00003ae0| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|00003af0| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00003b00| 67 20 66 69 6c 65 20 27 | 64 5f 64 65 6c 65 74 65 |g file '|d_delete|
|00003b10| 2e 63 27 22 0a 65 6c 73 | 65 0a 73 65 64 20 27 73 |.c'".els|e.sed 's|
|00003b20| 2f 5e 58 2f 2f 27 20 3c | 3c 20 5c 53 48 41 52 5f |/^X//' <|< \SHAR_|
|00003b30| 45 4f 46 20 3e 20 27 64 | 5f 64 65 6c 65 74 65 2e |EOF > 'd|_delete.|
|00003b40| 63 27 0a 58 2f 2a 0a 58 | 20 2a 20 54 68 65 20 64 |c'.X/*.X| * The d|
|00003b50| 65 6c 65 74 65 20 6f 70 | 74 69 6f 6e 20 6f 66 20 |elete op|tion of |
|00003b60| 74 68 65 20 64 69 61 6c | 69 6e 67 20 64 69 72 65 |the dial|ing dire|
|00003b70| 63 74 6f 72 79 2e 20 20 | 50 72 6f 6d 70 74 73 20 |ctory.  |Prompts |
|00003b80| 66 6f 72 20 73 61 76 69 | 6e 67 0a 58 20 2a 20 63 |for savi|ng.X * c|
|00003b90| 68 61 6e 67 65 73 20 74 | 6f 20 64 69 73 6b 2e 20 |hanges t|o disk. |
|00003ba0| 20 41 20 72 65 74 75 72 | 6e 20 63 6f 64 65 20 6f | A retur|n code o|
|00003bb0| 66 20 31 20 6d 65 61 6e | 73 20 74 68 61 74 20 65 |f 1 mean|s that e|
|00003bc0| 6e 74 72 69 65 73 20 77 | 65 72 65 20 64 65 6c 65 |ntries w|ere dele|
|00003bd0| 74 65 64 2e 0a 58 20 2a | 2f 0a 58 0a 58 23 69 6e |ted..X *|/.X.X#in|
|00003be0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00003bf0| 58 23 69 6e 63 6c 75 64 | 65 20 3c 63 75 72 73 65 |X#includ|e <curse|
|00003c00| 73 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |s.h>.X#i|nclude "|
|00003c10| 63 6f 6e 66 69 67 2e 68 | 22 0a 58 23 69 6e 63 6c |config.h|".X#incl|
|00003c20| 75 64 65 20 22 64 69 61 | 6c 5f 64 69 72 2e 68 22 |ude "dia|l_dir.h"|
|00003c30| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 6d 69 73 63 |.X#inclu|de "misc|
|00003c40| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 70 |.h".X#in|clude "p|
|00003c50| 61 72 61 6d 2e 68 22 0a | 58 0a 58 69 6e 74 0a 58 |aram.h".|X.Xint.X|
|00003c60| 64 65 6c 65 74 65 28 29 | 0a 58 7b 0a 58 09 65 78 |delete()|.X{.X.ex|
|00003c70| 74 65 72 6e 20 63 68 61 | 72 20 2a 6e 75 6c 6c 5f |tern cha|r *null_|
|00003c80| 70 74 72 3b 0a 58 09 57 | 49 4e 44 4f 57 20 2a 64 |ptr;.X.W|INDOW *d|
|00003c90| 5f 77 69 6e 2c 20 2a 6e | 65 77 77 69 6e 28 29 3b |_win, *n|ewwin();|
|00003ca0| 0a 58 09 69 6e 74 20 69 | 2c 20 66 69 72 73 74 2c |.X.int i|, first,|
|00003cb0| 20 6c 61 73 74 3b 0a 58 | 09 76 6f 69 64 20 66 72 | last;.X|.void fr|
|00003cc0| 65 65 5f 70 74 72 28 29 | 3b 0a 58 0a 58 09 64 5f |ee_ptr()|;.X.X.d_|
|00003cd0| 77 69 6e 20 3d 20 6e 65 | 77 77 69 6e 28 36 2c 20 |win = ne|wwin(6, |
|00003ce0| 33 32 2c 20 31 30 2c 20 | 31 35 29 3b 0a 58 0a 58 |32, 10, |15);.X.X|
|00003cf0| 09 6d 76 77 61 64 64 73 | 74 72 28 64 5f 77 69 6e |.mvwadds|tr(d_win|
|00003d00| 2c 20 32 2c 20 32 2c 20 | 22 44 65 6c 65 74 65 20 |, 2, 2, |"Delete |
|00003d10| 65 6e 74 72 79 3a 20 20 | 20 20 20 74 68 72 75 3a |entry:  |   thru:|
|00003d20| 22 29 3b 0a 58 09 62 6f | 78 28 64 5f 77 69 6e 2c |");.X.bo|x(d_win,|
|00003d30| 20 56 45 52 54 2c 20 48 | 4f 52 5a 29 3b 0a 58 09 | VERT, H|ORZ);.X.|
|00003d40| 77 6d 6f 76 65 28 64 5f | 77 69 6e 2c 20 32 2c 20 |wmove(d_|win, 2, |
|00003d50| 31 36 29 3b 0a 58 09 77 | 72 65 66 72 65 73 68 28 |16);.X.w|refresh(|
|00003d60| 64 5f 77 69 6e 29 3b 0a | 58 09 09 09 09 09 2f 2a |d_win);.|X...../*|
|00003d70| 20 67 65 74 20 74 68 65 | 20 66 69 72 73 74 20 6f | get the| first o|
|00003d80| 66 20 74 68 65 20 72 61 | 6e 67 65 20 2a 2f 0a 58 |f the ra|nge */.X|
|00003d90| 09 77 68 69 6c 65 20 28 | 28 66 69 72 73 74 20 3d |.while (|(first =|
|00003da0| 20 67 65 74 5f 6e 75 6d | 28 64 5f 77 69 6e 2c 20 | get_num|(d_win, |
|00003db0| 33 29 29 20 21 3d 20 2d | 31 29 20 7b 0a 58 09 09 |3)) != -|1) {.X..|
|00003dc0| 69 66 20 28 66 69 72 73 | 74 20 3e 20 30 20 26 26 |if (firs|t > 0 &&|
|00003dd0| 20 66 69 72 73 74 20 3c | 3d 20 4e 55 4d 5f 44 49 | first <|= NUM_DI|
|00003de0| 52 29 0a 58 09 09 09 62 | 72 65 61 6b 3b 0a 58 09 |R).X...b|reak;.X.|
|00003df0| 09 6d 76 77 61 64 64 73 | 74 72 28 64 5f 77 69 6e |.mvwadds|tr(d_win|
|00003e00| 2c 20 32 2c 20 31 36 2c | 20 22 20 20 20 22 29 3b |, 2, 16,| "   ");|
|00003e10| 0a 58 09 09 77 6d 6f 76 | 65 28 64 5f 77 69 6e 2c |.X..wmov|e(d_win,|
|00003e20| 20 32 2c 20 31 36 29 3b | 0a 58 09 09 62 65 65 70 | 2, 16);|.X..beep|
|00003e30| 28 29 3b 0a 58 09 09 77 | 72 65 66 72 65 73 68 28 |();.X..w|refresh(|
|00003e40| 64 5f 77 69 6e 29 3b 0a | 58 09 7d 0a 58 09 69 66 |d_win);.|X.}.X.if|
|00003e50| 20 28 66 69 72 73 74 20 | 3d 3d 20 2d 31 29 20 7b | (first |== -1) {|
|00003e60| 0a 58 09 09 64 65 6c 77 | 69 6e 28 64 5f 77 69 6e |.X..delw|in(d_win|
|00003e70| 29 3b 0a 58 09 09 72 65 | 74 75 72 6e 28 30 29 3b |);.X..re|turn(0);|
|00003e80| 0a 58 09 7d 0a 58 09 09 | 09 09 09 2f 2a 20 67 65 |.X.}.X..|.../* ge|
|00003e90| 74 20 74 68 65 20 6c 61 | 73 74 20 6f 66 20 74 68 |t the la|st of th|
|00003ea0| 65 20 72 61 6e 67 65 20 | 2a 2f 0a 58 09 77 6d 6f |e range |*/.X.wmo|
|00003eb0| 76 65 28 64 5f 77 69 6e | 2c 20 32 2c 20 32 36 29 |ve(d_win|, 2, 26)|
|00003ec0| 3b 0a 58 09 77 72 65 66 | 72 65 73 68 28 64 5f 77 |;.X.wref|resh(d_w|
|00003ed0| 69 6e 29 3b 0a 58 09 77 | 68 69 6c 65 20 28 28 6c |in);.X.w|hile ((l|
|00003ee0| 61 73 74 20 3d 20 67 65 | 74 5f 6e 75 6d 28 64 5f |ast = ge|t_num(d_|
|00003ef0| 77 69 6e 2c 20 33 29 29 | 20 21 3d 20 2d 31 29 20 |win, 3))| != -1) |
|00003f00| 7b 0a 58 09 09 69 66 20 | 28 28 66 69 72 73 74 20 |{.X..if |((first |
|00003f10| 3c 3d 20 6c 61 73 74 20 | 26 26 20 6c 61 73 74 20 |<= last |&& last |
|00003f20| 3c 3d 20 4e 55 4d 5f 44 | 49 52 29 20 7c 7c 20 6c |<= NUM_D|IR) || l|
|00003f30| 61 73 74 20 3d 3d 20 30 | 29 0a 58 09 09 09 62 72 |ast == 0|).X...br|
|00003f40| 65 61 6b 3b 0a 58 09 09 | 6d 76 77 61 64 64 73 74 |eak;.X..|mvwaddst|
|00003f50| 72 28 64 5f 77 69 6e 2c | 20 32 2c 20 32 36 2c 20 |r(d_win,| 2, 26, |
|00003f60| 22 20 20 20 22 29 3b 0a | 58 09 09 77 6d 6f 76 65 |"   ");.|X..wmove|
|00003f70| 28 64 5f 77 69 6e 2c 20 | 32 2c 20 32 36 29 3b 0a |(d_win, |2, 26);.|
|00003f80| 58 09 09 62 65 65 70 28 | 29 3b 0a 58 09 09 77 72 |X..beep(|);.X..wr|
|00003f90| 65 66 72 65 73 68 28 64 | 5f 77 69 6e 29 3b 0a 58 |efresh(d|_win);.X|
|00003fa0| 09 7d 0a 58 09 69 66 20 | 28 6c 61 73 74 20 3d 3d |.}.X.if |(last ==|
|00003fb0| 20 2d 31 29 20 7b 0a 58 | 09 09 64 65 6c 77 69 6e | -1) {.X|..delwin|
|00003fc0| 28 64 5f 77 69 6e 29 3b | 0a 58 09 09 72 65 74 75 |(d_win);|.X..retu|
|00003fd0| 72 6e 28 30 29 3b 0a 58 | 09 7d 0a 58 09 09 09 09 |rn(0);.X|.}.X....|
|00003fe0| 09 2f 2a 20 69 66 20 22 | 6c 61 73 74 22 20 6f 6d |./* if "|last" om|
|00003ff0| 69 74 74 65 64 2c 20 65 | 63 68 6f 20 22 66 69 72 |itted, e|cho "fir|
|00004000| 73 74 22 20 2a 2f 0a 58 | 09 69 66 20 28 21 6c 61 |st" */.X|.if (!la|
|00004010| 73 74 29 20 7b 0a 58 09 | 09 6c 61 73 74 20 3d 20 |st) {.X.|.last = |
|00004020| 66 69 72 73 74 3b 0a 58 | 09 09 6d 76 77 70 72 69 |first;.X|..mvwpri|
|00004030| 6e 74 77 28 64 5f 77 69 | 6e 2c 20 32 2c 20 32 36 |ntw(d_wi|n, 2, 26|
|00004040| 2c 20 22 25 64 22 2c 20 | 66 69 72 73 74 29 3b 0a |, "%d", |first);.|
|00004050| 58 09 09 77 72 65 66 72 | 65 73 68 28 64 5f 77 69 |X..wrefr|esh(d_wi|
|00004060| 6e 29 3b 0a 58 09 7d 0a | 58 09 09 09 09 09 2f 2a |n);.X.}.|X...../*|
|00004070| 20 73 61 76 65 20 74 6f | 20 64 69 73 6b 3f 20 2a | save to| disk? *|
|00004080| 2f 0a 58 09 69 66 20 28 | 79 65 73 5f 70 72 6f 6d |/.X.if (|yes_prom|
|00004090| 70 74 28 64 5f 77 69 6e | 2c 20 33 2c 20 32 2c 20 |pt(d_win|, 3, 2, |
|000040a0| 41 5f 42 4f 4c 44 2c 20 | 22 41 72 65 20 79 6f 75 |A_BOLD, |"Are you|
|000040b0| 20 73 75 72 65 22 29 29 | 20 7b 0a 58 09 09 09 09 | sure"))| {.X....|
|000040c0| 09 2f 2a 20 64 65 6c 65 | 74 65 20 66 72 6f 6d 20 |./* dele|te from |
|000040d0| 74 68 65 20 70 68 79 73 | 69 63 61 6c 20 66 69 6c |the phys|ical fil|
|000040e0| 65 20 2a 2f 0a 58 09 09 | 69 66 20 28 64 65 6c 5f |e */.X..|if (del_|
|000040f0| 64 69 72 28 66 69 72 73 | 74 2c 20 6c 61 73 74 29 |dir(firs|t, last)|
|00004100| 29 20 7b 0a 58 09 09 09 | 74 6f 75 63 68 77 69 6e |) {.X...|touchwin|
|00004110| 28 64 5f 77 69 6e 29 3b | 0a 58 09 09 09 77 72 65 |(d_win);|.X...wre|
|00004120| 66 72 65 73 68 28 64 5f | 77 69 6e 29 3b 0a 58 09 |fresh(d_|win);.X.|
|00004130| 09 7d 0a 58 09 09 2f 2a | 0a 58 09 09 20 2a 20 57 |.}.X../*|.X.. * W|
|00004140| 65 20 64 6f 6e 27 74 20 | 72 65 61 6c 6c 79 20 63 |e don't |really c|
|00004150| 61 72 65 20 69 66 20 64 | 65 6c 5f 64 69 72 28 29 |are if d|el_dir()|
|00004160| 20 66 61 69 6c 73 20 62 | 65 63 61 75 73 65 20 77 | fails b|ecause w|
|00004170| 65 20 73 74 69 6c 6c 0a | 58 09 09 20 2a 20 63 68 |e still.|X.. * ch|
|00004180| 61 6e 67 65 20 74 68 65 | 20 76 65 72 73 69 6f 6e |ange the| version|
|00004190| 20 69 6e 20 6d 65 6d 6f | 72 79 2e 0a 58 09 09 20 | in memo|ry..X.. |
|000041a0| 2a 2f 0a 58 09 09 66 6f | 72 20 28 69 3d 66 69 72 |*/.X..fo|r (i=fir|
|000041b0| 73 74 3b 20 69 3c 3d 6c | 61 73 74 3b 20 69 2b 2b |st; i<=l|ast; i++|
|000041c0| 29 20 7b 0a 58 09 09 09 | 66 72 65 65 5f 70 74 72 |) {.X...|free_ptr|
|000041d0| 28 64 69 72 2d 3e 6e 61 | 6d 65 5b 69 5d 29 3b 0a |(dir->na|me[i]);.|
|000041e0| 58 09 09 09 66 72 65 65 | 5f 70 74 72 28 64 69 72 |X...free|_ptr(dir|
|000041f0| 2d 3e 6e 75 6d 62 65 72 | 5b 69 5d 29 3b 0a 58 09 |->number|[i]);.X.|
|00004200| 09 09 66 72 65 65 5f 70 | 74 72 28 64 69 72 2d 3e |..free_p|tr(dir->|
|00004210| 69 6e 64 65 78 5b 69 5d | 29 3b 0a 58 09 09 09 64 |index[i]|);.X...d|
|00004220| 69 72 2d 3e 6e 61 6d 65 | 5b 69 5d 20 3d 20 6e 75 |ir->name|[i] = nu|
|00004230| 6c 6c 5f 70 74 72 3b 0a | 58 09 09 09 64 69 72 2d |ll_ptr;.|X...dir-|
|00004240| 3e 6e 75 6d 62 65 72 5b | 69 5d 20 3d 20 6e 75 6c |>number[|i] = nul|
|00004250| 6c 5f 70 74 72 3b 0a 58 | 09 09 09 64 69 72 2d 3e |l_ptr;.X|...dir->|
|00004260| 62 61 75 64 5b 69 5d 20 | 3d 20 70 61 72 61 6d 2d |baud[i] |= param-|
|00004270| 3e 64 5f 62 61 75 64 3b | 0a 58 09 09 09 64 69 72 |>d_baud;|.X...dir|
|00004280| 2d 3e 70 61 72 69 74 79 | 5b 69 5d 20 3d 20 70 61 |->parity|[i] = pa|
|00004290| 72 61 6d 2d 3e 64 5f 70 | 61 72 69 74 79 3b 0a 58 |ram->d_p|arity;.X|
|000042a0| 09 09 09 64 69 72 2d 3e | 64 62 69 74 73 5b 69 5d |...dir->|dbits[i]|
|000042b0| 20 3d 20 70 61 72 61 6d | 2d 3e 64 5f 64 62 69 74 | = param|->d_dbit|
|000042c0| 73 3b 0a 58 09 09 09 64 | 69 72 2d 3e 73 62 69 74 |s;.X...d|ir->sbit|
|000042d0| 73 5b 69 5d 20 3d 20 70 | 61 72 61 6d 2d 3e 64 5f |s[i] = p|aram->d_|
|000042e0| 73 62 69 74 73 3b 0a 58 | 09 09 09 64 69 72 2d 3e |sbits;.X|...dir->|
|000042f0| 64 75 70 6c 65 78 5b 69 | 5d 20 3d 20 2a 70 61 72 |duplex[i|] = *par|
|00004300| 61 6d 2d 3e 64 5f 64 75 | 70 6c 65 78 3b 0a 58 09 |am->d_du|plex;.X.|
|00004310| 09 09 64 69 72 2d 3e 69 | 6e 64 65 78 5b 69 5d 20 |..dir->i|ndex[i] |
|00004320| 3d 20 6e 75 6c 6c 5f 70 | 74 72 3b 0a 58 09 09 7d |= null_p|tr;.X..}|
|00004330| 0a 58 09 09 64 65 6c 77 | 69 6e 28 64 5f 77 69 6e |.X..delw|in(d_win|
|00004340| 29 3b 0a 58 09 09 72 65 | 74 75 72 6e 28 31 29 3b |);.X..re|turn(1);|
|00004350| 0a 58 09 7d 0a 58 09 64 | 65 6c 77 69 6e 28 64 5f |.X.}.X.d|elwin(d_|
|00004360| 77 69 6e 29 3b 0a 58 09 | 72 65 74 75 72 6e 28 30 |win);.X.|return(0|
|00004370| 29 3b 0a 58 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |);.X}.SH|AR_EOF.i|
|00004380| 66 20 74 65 73 74 20 32 | 30 30 39 20 2d 6e 65 20 |f test 2|009 -ne |
|00004390| 22 60 77 63 20 2d 63 20 | 3c 20 27 64 5f 64 65 6c |"`wc -c |< 'd_del|
|000043a0| 65 74 65 2e 63 27 60 22 | 0a 74 68 65 6e 0a 09 65 |ete.c'`"|.then..e|
|000043b0| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 72 72 6f 72 |cho shar|: "error|
|000043c0| 20 74 72 61 6e 73 6d 69 | 74 74 69 6e 67 20 27 64 | transmi|tting 'd|
|000043d0| 5f 64 65 6c 65 74 65 2e | 63 27 22 20 27 28 73 68 |_delete.|c'" '(sh|
|000043e0| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 32 |ould hav|e been 2|
|000043f0| 30 30 39 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |009 char|acters)'|
|00004400| 0a 66 69 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |.fi.fi.e|cho shar|
|00004410| 3a 20 22 65 78 74 72 61 | 63 74 69 6e 67 20 27 64 |: "extra|cting 'd|
|00004420| 5f 6c 69 62 2e 63 27 22 | 20 27 28 36 37 38 37 20 |_lib.c'"| '(6787 |
|00004430| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 69 66 20 |characte|rs)'.if |
|00004440| 74 65 73 74 20 2d 66 20 | 27 64 5f 6c 69 62 2e 63 |test -f |'d_lib.c|
|00004450| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00004460| 72 3a 20 22 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |r: "will| not ove|
|00004470| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00004480| 20 66 69 6c 65 20 27 64 | 5f 6c 69 62 2e 63 27 22 | file 'd|_lib.c'"|
|00004490| 0a 65 6c 73 65 0a 73 65 | 64 20 27 73 2f 5e 58 2f |.else.se|d 's/^X/|
|000044a0| 2f 27 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |/' << \S|HAR_EOF |
|000044b0| 3e 20 27 64 5f 6c 69 62 | 2e 63 27 0a 58 2f 2a 0a |> 'd_lib|.c'.X/*.|
|000044c0| 58 20 2a 20 52 6f 75 74 | 69 6e 65 73 20 74 6f 20 |X * Rout|ines to |
|000044d0| 6d 61 6e 69 70 75 6c 61 | 74 65 20 74 68 65 20 64 |manipula|te the d|
|000044e0| 69 61 6c 69 6e 67 20 64 | 69 72 65 63 74 6f 72 79 |ialing d|irectory|
|000044f0| 20 66 69 6c 65 20 70 63 | 6f 6d 6d 2e 64 69 61 6c | file pc|omm.dial|
|00004500| 5f 64 69 72 0a 58 20 2a | 2f 0a 58 0a 58 23 69 6e |_dir.X *|/.X.X#in|
|00004510| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00004520| 58 23 69 6e 63 6c 75 64 | 65 20 22 64 69 61 6c 5f |X#includ|e "dial_|
|00004530| 64 69 72 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |dir.h".X|#include|
|00004540| 20 22 70 61 72 61 6d 2e | 68 22 0a 58 0a 58 2f 2a | "param.|h".X.X/*|
|00004550| 0a 58 20 2a 20 52 65 61 | 64 20 74 68 65 20 64 69 |.X * Rea|d the di|
|00004560| 61 6c 69 6e 67 20 64 69 | 72 65 63 74 6f 72 79 2e |aling di|rectory.|
|00004570| 20 20 52 65 74 75 72 6e | 73 20 61 20 70 6f 69 6e |  Return|s a poin|
|00004580| 74 65 72 20 74 6f 20 61 | 20 73 74 61 74 69 63 20 |ter to a| static |
|00004590| 61 72 65 61 0a 58 20 2a | 20 63 6f 6e 74 61 69 6e |area.X *| contain|
|000045a0| 69 6e 67 20 74 68 65 20 | 44 49 41 4c 5f 44 49 52 |ing the |DIAL_DIR|
|000045b0| 20 73 74 72 75 63 74 75 | 72 65 2e 20 20 41 6c 6c | structu|re.  All|
|000045c0| 20 6f 66 20 74 68 65 20 | 65 6e 74 72 69 65 73 20 | of the |entries |
|000045d0| 61 72 65 20 63 72 65 61 | 74 65 64 0a 58 20 2a 20 |are crea|ted.X * |
|000045e0| 72 65 67 61 72 64 6c 65 | 73 73 20 6f 66 20 74 68 |regardle|ss of th|
|000045f0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 70 68 79 73 |e number| of phys|
|00004600| 69 63 61 6c 20 65 6e 74 | 72 69 65 73 20 69 6e 20 |ical ent|ries in |
|00004610| 74 68 65 20 66 69 6c 65 | 2e 20 20 45 6c 65 6d 65 |the file|.  Eleme|
|00004620| 6e 74 0a 58 20 2a 20 6e | 75 6d 62 65 72 20 7a 65 |nt.X * n|umber ze|
|00004630| 72 6f 20 69 73 20 72 65 | 73 65 72 76 65 64 20 66 |ro is re|served f|
|00004640| 6f 72 20 74 68 65 20 22 | 6d 61 6e 75 61 6c 22 20 |or the "|manual" |
|00004650| 65 6e 74 72 79 2e 20 20 | 41 6c 6c 20 65 72 72 6f |entry.  |All erro|
|00004660| 72 73 20 61 72 65 20 66 | 61 74 61 6c 2e 0a 58 20 |rs are f|atal..X |
|00004670| 2a 2f 0a 58 0a 58 73 74 | 72 75 63 74 20 44 49 41 |*/.X.Xst|ruct DIA|
|00004680| 4c 5f 44 49 52 20 2a 0a | 58 72 65 61 64 5f 64 69 |L_DIR *.|Xread_di|
|00004690| 72 28 65 78 74 72 61 29 | 0a 58 63 68 61 72 20 2a |r(extra)|.Xchar *|
|000046a0| 65 78 74 72 61 3b 0a 58 | 7b 0a 58 09 65 78 74 65 |extra;.X|{.X.exte|
|000046b0| 72 6e 20 63 68 61 72 20 | 2a 6e 75 6c 6c 5f 70 74 |rn char |*null_pt|
|000046c0| 72 3b 0a 58 09 46 49 4c | 45 20 2a 66 70 2c 20 2a |r;.X.FIL|E *fp, *|
|000046d0| 6d 79 5f 66 6f 70 65 6e | 28 29 3b 0a 58 09 69 6e |my_fopen|();.X.in|
|000046e0| 74 20 69 2c 20 6a 2c 20 | 6f 6f 70 73 3b 0a 58 09 |t i, j, |oops;.X.|
|000046f0| 63 68 61 72 20 2a 73 74 | 72 64 75 70 28 29 2c 20 |char *st|rdup(), |
|00004700| 62 75 66 5b 38 30 5d 2c | 20 2a 74 65 6d 70 5f 74 |buf[80],| *temp_t|
|00004710| 6f 6b 65 6e 2c 20 2a 73 | 74 72 2c 20 2a 73 74 72 |oken, *s|tr, *str|
|00004720| 5f 74 6f 6b 28 29 2c 20 | 74 6f 6b 65 6e 5b 32 30 |_tok(), |token[20|
|00004730| 5d 3b 0a 58 09 63 68 61 | 72 20 6d 65 73 73 61 67 |];.X.cha|r messag|
|00004740| 65 5b 38 30 5d 2c 20 2a | 73 65 70 2c 20 2a 66 69 |e[80], *|sep, *fi|
|00004750| 6e 64 66 69 6c 65 28 29 | 3b 0a 58 09 73 74 61 74 |ndfile()|;.X.stat|
|00004760| 69 63 20 73 74 72 75 63 | 74 20 44 49 41 4c 5f 44 |ic struc|t DIAL_D|
|00004770| 49 52 20 64 3b 0a 58 09 | 76 6f 69 64 20 65 72 72 |IR d;.X.|void err|
|00004780| 6f 72 5f 77 69 6e 28 29 | 3b 0a 58 0a 58 09 69 66 |or_win()|;.X.X.if|
|00004790| 20 28 28 64 2e 64 5f 70 | 61 74 68 20 3d 20 66 69 | ((d.d_p|ath = fi|
|000047a0| 6e 64 66 69 6c 65 28 65 | 78 74 72 61 2c 20 22 70 |ndfile(e|xtra, "p|
|000047b0| 63 6f 6d 6d 2e 64 69 61 | 6c 5f 64 69 72 22 29 29 |comm.dia|l_dir"))|
|000047c0| 20 3d 3d 20 4e 55 4c 4c | 29 0a 58 09 09 65 72 72 | == NULL|).X..err|
|000047d0| 6f 72 5f 77 69 6e 28 31 | 2c 20 22 53 75 70 70 6f |or_win(1|, "Suppo|
|000047e0| 72 74 20 66 69 6c 65 20 | 27 70 63 6f 6d 6d 2e 64 |rt file |'pcomm.d|
|000047f0| 69 61 6c 5f 64 69 72 27 | 20 69 73 20 6d 69 73 73 |ial_dir'| is miss|
|00004800| 69 6e 67 22 2c 20 22 6f | 72 20 6e 6f 20 72 65 61 |ing", "o|r no rea|
|00004810| 64 20 70 65 72 6d 69 73 | 73 69 6f 6e 22 29 3b 0a |d permis|sion");.|
|00004820| 58 0a 58 09 69 66 20 28 | 21 28 66 70 20 3d 20 6d |X.X.if (|!(fp = m|
|00004830| 79 5f 66 6f 70 65 6e 28 | 64 2e 64 5f 70 61 74 68 |y_fopen(|d.d_path|
|00004840| 2c 20 22 72 22 29 29 29 | 20 7b 0a 58 09 09 73 70 |, "r")))| {.X..sp|
|00004850| 72 69 6e 74 66 28 62 75 | 66 2c 20 22 27 25 73 27 |rintf(bu|f, "'%s'|
|00004860| 20 66 6f 72 20 72 65 61 | 64 22 2c 20 64 2e 64 5f | for rea|d", d.d_|
|00004870| 70 61 74 68 29 3b 0a 58 | 09 09 65 72 72 6f 72 5f |path);.X|..error_|
|00004880| 77 69 6e 28 31 2c 20 22 | 43 61 6e 27 74 20 6f 70 |win(1, "|Can't op|
|00004890| 65 6e 20 64 69 61 6c 69 | 6e 67 20 64 69 72 65 63 |en diali|ng direc|
|000048a0| 74 6f 72 79 20 66 69 6c | 65 22 2c 20 62 75 66 29 |tory fil|e", buf)|
|000048b0| 3b 0a 58 09 7d 0a 58 0a | 58 09 73 65 70 20 3d 20 |;.X.}.X.|X.sep = |
|000048c0| 22 3b 3b 2d 2d 2d 3b 3b | 5c 6e 22 3b 0a 58 09 69 |";;---;;|\n";.X.i|
|000048d0| 20 3d 20 30 3b 0a 58 09 | 6f 6f 70 73 20 3d 20 30 | = 0;.X.|oops = 0|
|000048e0| 3b 0a 58 09 77 68 69 6c | 65 20 28 66 67 65 74 73 |;.X.whil|e (fgets|
|000048f0| 28 62 75 66 2c 20 38 30 | 2c 20 66 70 29 20 21 3d |(buf, 80|, fp) !=|
|00004900| 20 4e 55 4c 4c 29 20 7b | 0a 58 09 09 69 2b 2b 3b | NULL) {|.X..i++;|
|00004910| 0a 58 09 09 69 66 20 28 | 69 20 3e 20 4e 55 4d 5f |.X..if (|i > NUM_|
|00004920| 44 49 52 29 0a 58 09 09 | 09 62 72 65 61 6b 3b 0a |DIR).X..|.break;.|
|00004930| 58 09 09 09 09 09 2f 2a | 20 67 65 74 20 74 68 65 |X...../*| get the|
|00004940| 20 74 6f 6b 65 6e 20 2a | 2f 0a 58 09 09 69 66 20 | token *|/.X..if |
|00004950| 28 21 28 74 65 6d 70 5f | 74 6f 6b 65 6e 20 3d 20 |(!(temp_|token = |
|00004960| 73 74 72 5f 74 6f 6b 28 | 62 75 66 2c 20 27 3d 27 |str_tok(|buf, '='|
|00004970| 29 29 29 20 7b 0a 58 09 | 09 09 73 70 72 69 6e 74 |))) {.X.|..sprint|
|00004980| 66 28 6d 65 73 73 61 67 | 65 2c 20 22 69 73 20 6d |f(messag|e, "is m|
|00004990| 69 73 73 69 6e 67 20 61 | 20 74 6f 6b 65 6e 20 61 |issing a| token a|
|000049a0| 74 20 6c 69 6e 65 20 25 | 64 22 2c 20 69 29 3b 0a |t line %|d", i);.|
|000049b0| 58 09 09 09 6f 6f 70 73 | 2b 2b 3b 0a 58 09 09 09 |X...oops|++;.X...|
|000049c0| 62 72 65 61 6b 3b 0a 58 | 09 09 7d 0a 58 09 09 2f |break;.X|..}.X../|
|000049d0| 2a 0a 58 09 09 20 2a 20 | 50 61 72 73 65 20 74 68 |*.X.. * |Parse th|
|000049e0| 65 20 72 65 73 74 20 6f | 66 20 74 68 65 20 6c 69 |e rest o|f the li|
|000049f0| 6e 65 2e 20 20 54 68 69 | 73 20 69 73 20 73 69 6d |ne.  Thi|s is sim|
|00004a00| 69 6c 61 72 20 74 6f 20 | 75 73 69 6e 67 0a 58 09 |ilar to |using.X.|
|00004a10| 09 20 2a 20 74 68 65 20 | 22 72 65 61 6c 22 20 73 |. * the |"real" s|
|00004a20| 74 72 74 6f 6b 28 29 20 | 66 75 6e 63 74 69 6f 6e |trtok() |function|
|00004a30| 2c 20 62 75 74 20 6d 79 | 20 76 65 72 73 69 6f 6e |, but my| version|
|00004a40| 20 72 65 74 75 72 6e 73 | 0a 58 09 09 20 2a 20 61 | returns|.X.. * a|
|00004a50| 20 6e 75 6c 6c 20 70 6f | 69 6e 74 65 72 20 69 66 | null po|inter if|
|00004a60| 20 74 68 65 20 70 61 72 | 61 6d 65 74 65 72 20 69 | the par|ameter i|
|00004a70| 73 20 6d 69 73 73 69 6e | 67 2e 20 20 4e 6f 74 65 |s missin|g.  Note|
|00004a80| 20 74 68 65 0a 58 09 09 | 20 2a 20 61 72 72 61 79 | the.X..| * array|
|00004a90| 20 6f 66 20 66 69 65 6c | 64 20 73 65 70 61 72 61 | of fiel|d separa|
|00004aa0| 74 6f 72 73 2e 0a 58 09 | 09 20 2a 2f 0a 58 09 09 |tors..X.|. */.X..|
|00004ab0| 66 6f 72 20 28 6a 3d 30 | 3b 20 6a 3c 38 3b 20 6a |for (j=0|; j<8; j|
|00004ac0| 2b 2b 29 20 7b 0a 58 09 | 09 09 69 66 20 28 21 28 |++) {.X.|..if (!(|
|00004ad0| 73 74 72 20 3d 20 73 74 | 72 5f 74 6f 6b 28 28 63 |str = st|r_tok((c|
|00004ae0| 68 61 72 20 2a 29 20 4e | 55 4c 4c 2c 20 73 65 70 |har *) N|ULL, sep|
|00004af0| 5b 6a 5d 29 29 29 20 7b | 0a 58 09 09 09 09 73 70 |[j]))) {|.X....sp|
|00004b00| 72 69 6e 74 66 28 6d 65 | 73 73 61 67 65 2c 20 22 |rintf(me|ssage, "|
|00004b10| 69 73 20 6d 69 73 73 69 | 6e 67 20 61 20 70 61 72 |is missi|ng a par|
|00004b20| 61 6d 65 74 65 72 20 61 | 74 20 6c 69 6e 65 20 25 |ameter a|t line %|
|00004b30| 64 22 2c 20 69 29 3b 0a | 58 09 09 09 09 6f 6f 70 |d", i);.|X....oop|
|00004b40| 73 2b 2b 3b 0a 58 09 09 | 09 09 62 72 65 61 6b 3b |s++;.X..|..break;|
|00004b50| 0a 58 09 09 09 7d 0a 58 | 09 09 09 73 77 69 74 63 |.X...}.X|...switc|
|00004b60| 68 20 28 6a 29 20 7b 0a | 58 09 09 09 09 63 61 73 |h (j) {.|X....cas|
|00004b70| 65 20 30 3a 0a 58 09 09 | 09 09 09 64 2e 6e 61 6d |e 0:.X..|...d.nam|
|00004b80| 65 5b 69 5d 20 3d 20 73 | 74 72 64 75 70 28 73 74 |e[i] = s|trdup(st|
|00004b90| 72 29 3b 0a 58 09 09 09 | 09 09 62 72 65 61 6b 3b |r);.X...|..break;|
|00004ba0| 0a 58 09 09 09 09 63 61 | 73 65 20 31 3a 0a 58 09 |.X....ca|se 1:.X.|
|00004bb0| 09 09 09 09 64 2e 6e 75 | 6d 62 65 72 5b 69 5d 20 |....d.nu|mber[i] |
|00004bc0| 3d 20 73 74 72 64 75 70 | 28 73 74 72 29 3b 0a 58 |= strdup|(str);.X|
|00004bd0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|00004be0| 09 63 61 73 65 20 32 3a | 0a 58 09 09 09 09 09 64 |.case 2:|.X.....d|
|00004bf0| 2e 62 61 75 64 5b 69 5d | 20 3d 20 61 74 6f 69 28 |.baud[i]| = atoi(|
|00004c00| 73 74 72 29 3b 0a 58 09 | 09 09 09 09 62 72 65 61 |str);.X.|....brea|
|00004c10| 6b 3b 0a 58 09 09 09 09 | 63 61 73 65 20 33 3a 0a |k;.X....|case 3:.|
|00004c20| 58 09 09 09 09 09 64 2e | 70 61 72 69 74 79 5b 69 |X.....d.|parity[i|
|00004c30| 5d 20 3d 20 2a 73 74 72 | 3b 0a 58 09 09 09 09 09 |] = *str|;.X.....|
|00004c40| 62 72 65 61 6b 3b 0a 58 | 09 09 09 09 63 61 73 65 |break;.X|....case|
|00004c50| 20 34 3a 0a 58 09 09 09 | 09 09 64 2e 64 62 69 74 | 4:.X...|..d.dbit|
|00004c60| 73 5b 69 5d 20 3d 20 61 | 74 6f 69 28 73 74 72 29 |s[i] = a|toi(str)|
|00004c70| 3b 0a 58 09 09 09 09 09 | 62 72 65 61 6b 3b 0a 58 |;.X.....|break;.X|
|00004c80| 09 09 09 09 63 61 73 65 | 20 35 3a 0a 58 09 09 09 |....case| 5:.X...|
|00004c90| 09 09 64 2e 73 62 69 74 | 73 5b 69 5d 20 3d 20 61 |..d.sbit|s[i] = a|
|00004ca0| 74 6f 69 28 73 74 72 29 | 3b 0a 58 09 09 09 09 09 |toi(str)|;.X.....|
|00004cb0| 62 72 65 61 6b 3b 0a 58 | 09 09 09 09 63 61 73 65 |break;.X|....case|
|00004cc0| 20 36 3a 0a 58 09 09 09 | 09 09 64 2e 64 75 70 6c | 6:.X...|..d.dupl|
|00004cd0| 65 78 5b 69 5d 20 3d 20 | 2a 73 74 72 3b 0a 58 09 |ex[i] = |*str;.X.|
|00004ce0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 09 09 |....brea|k;.X....|
|00004cf0| 63 61 73 65 20 37 3a 0a | 58 09 09 09 09 09 64 2e |case 7:.|X.....d.|
|00004d00| 69 6e 64 65 78 5b 69 5d | 20 3d 20 73 74 72 64 75 |index[i]| = strdu|
|00004d10| 70 28 73 74 72 29 3b 0a | 58 09 09 09 09 09 62 72 |p(str);.|X.....br|
|00004d20| 65 61 6b 3b 0a 58 09 09 | 09 7d 0a 58 09 09 7d 0a |eak;.X..|.}.X..}.|
|00004d30| 58 09 09 69 66 20 28 6f | 6f 70 73 29 0a 58 09 09 |X..if (o|ops).X..|
|00004d40| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 09 09 2f 2a |.break;.|X...../*|
|00004d50| 20 73 61 6e 69 74 79 20 | 63 68 65 63 6b 69 6e 67 | sanity |checking|
|00004d60| 20 2a 2f 0a 58 09 09 73 | 70 72 69 6e 74 66 28 74 | */.X..s|printf(t|
|00004d70| 6f 6b 65 6e 2c 20 22 44 | 49 52 5f 25 64 22 2c 20 |oken, "D|IR_%d", |
|00004d80| 69 29 3b 0a 58 09 09 69 | 66 20 28 73 74 72 63 6d |i);.X..i|f (strcm|
|00004d90| 70 28 74 65 6d 70 5f 74 | 6f 6b 65 6e 2c 20 74 6f |p(temp_t|oken, to|
|00004da0| 6b 65 6e 29 29 20 7b 0a | 58 09 09 09 73 70 72 69 |ken)) {.|X...spri|
|00004db0| 6e 74 66 28 6d 65 73 73 | 61 67 65 2c 20 22 69 73 |ntf(mess|age, "is|
|00004dc0| 20 63 6f 72 72 75 70 74 | 65 64 20 61 74 20 6c 69 | corrupt|ed at li|
|00004dd0| 6e 65 20 25 64 22 2c 20 | 69 29 3b 0a 58 09 09 09 |ne %d", |i);.X...|
|00004de0| 6f 6f 70 73 2b 2b 3b 0a | 58 09 09 09 62 72 65 61 |oops++;.|X...brea|
|00004df0| 6b 3b 0a 58 09 09 7d 0a | 58 09 7d 0a 58 09 66 63 |k;.X..}.|X.}.X.fc|
|00004e00| 6c 6f 73 65 28 66 70 29 | 3b 0a 58 0a 58 09 69 66 |lose(fp)|;.X.X.if|
|00004e10| 20 28 6f 6f 70 73 29 20 | 7b 0a 58 09 09 73 70 72 | (oops) |{.X..spr|
|00004e20| 69 6e 74 66 28 62 75 66 | 2c 20 22 44 69 61 6c 69 |intf(buf|, "Diali|
|00004e30| 6e 67 20 64 69 72 65 63 | 74 6f 72 79 20 66 69 6c |ng direc|tory fil|
|00004e40| 65 20 27 25 73 27 22 2c | 20 64 2e 64 5f 70 61 74 |e '%s'",| d.d_pat|
|00004e50| 68 29 3b 0a 58 09 09 65 | 72 72 6f 72 5f 77 69 6e |h);.X..e|rror_win|
|00004e60| 28 31 2c 20 62 75 66 2c | 20 6d 65 73 73 61 67 65 |(1, buf,| message|
|00004e70| 29 3b 0a 58 09 7d 0a 58 | 09 64 2e 64 5f 65 6e 74 |);.X.}.X|.d.d_ent|
|00004e80| 72 69 65 73 20 3d 20 69 | 3b 0a 58 09 09 09 09 09 |ries = i|;.X.....|
|00004e90| 2f 2a 20 69 66 20 65 6d | 70 74 79 20 64 61 74 61 |/* if em|pty data|
|00004ea0| 62 61 73 65 20 2a 2f 0a | 58 09 69 66 20 28 21 69 |base */.|X.if (!i|
|00004eb0| 29 20 7b 0a 58 09 09 73 | 70 72 69 6e 74 66 28 62 |) {.X..s|printf(b|
|00004ec0| 75 66 2c 20 22 44 69 61 | 6c 69 6e 67 20 64 69 72 |uf, "Dia|ling dir|
|00004ed0| 65 63 74 6f 72 79 20 66 | 69 6c 65 20 27 25 73 27 |ectory f|ile '%s'|
|00004ee0| 22 2c 20 64 2e 64 5f 70 | 61 74 68 29 3b 0a 58 09 |", d.d_p|ath);.X.|
|00004ef0| 09 65 72 72 6f 72 5f 77 | 69 6e 28 30 2c 20 62 75 |.error_w|in(0, bu|
|00004f00| 66 2c 20 22 68 61 73 20 | 6e 6f 20 64 61 74 61 22 |f, "has |no data"|
|00004f10| 29 3b 0a 58 09 7d 0a 58 | 09 09 09 09 09 2f 2a 20 |);.X.}.X|...../* |
|00004f20| 66 69 6c 6c 20 69 6e 20 | 74 68 65 20 72 65 73 74 |fill in |the rest|
|00004f30| 20 77 69 74 68 20 64 65 | 66 61 75 6c 74 73 20 2a | with de|faults *|
|00004f40| 2f 0a 58 09 69 2b 2b 3b | 0a 58 09 66 6f 72 20 28 |/.X.i++;|.X.for (|
|00004f50| 3b 20 69 3c 3d 4e 55 4d | 5f 44 49 52 3b 20 69 2b |; i<=NUM|_DIR; i+|
|00004f60| 2b 29 20 7b 0a 58 09 09 | 64 2e 6e 61 6d 65 5b 69 |+) {.X..|d.name[i|
|00004f70| 5d 20 3d 20 6e 75 6c 6c | 5f 70 74 72 3b 0a 58 09 |] = null|_ptr;.X.|
|00004f80| 09 64 2e 6e 75 6d 62 65 | 72 5b 69 5d 20 3d 20 6e |.d.numbe|r[i] = n|
|00004f90| 75 6c 6c 5f 70 74 72 3b | 0a 58 09 09 64 2e 62 61 |ull_ptr;|.X..d.ba|
|00004fa0| 75 64 5b 69 5d 20 3d 20 | 70 61 72 61 6d 2d 3e 64 |ud[i] = |param->d|
|00004fb0| 5f 62 61 75 64 3b 0a 58 | 09 09 64 2e 70 61 72 69 |_baud;.X|..d.pari|
|00004fc0| 74 79 5b 69 5d 20 3d 20 | 70 61 72 61 6d 2d 3e 64 |ty[i] = |param->d|
|00004fd0| 5f 70 61 72 69 74 79 3b | 0a 58 09 09 64 2e 64 62 |_parity;|.X..d.db|
|00004fe0| 69 74 73 5b 69 5d 20 3d | 20 70 61 72 61 6d 2d 3e |its[i] =| param->|
|00004ff0| 64 5f 64 62 69 74 73 3b | 0a 58 09 09 64 2e 73 62 |d_dbits;|.X..d.sb|
|00005000| 69 74 73 5b 69 5d 20 3d | 20 70 61 72 61 6d 2d 3e |its[i] =| param->|
|00005010| 64 5f 73 62 69 74 73 3b | 0a 58 09 09 64 2e 64 75 |d_sbits;|.X..d.du|
|00005020| 70 6c 65 78 5b 69 5d 20 | 3d 20 2a 70 61 72 61 6d |plex[i] |= *param|
|00005030| 2d 3e 64 5f 64 75 70 6c | 65 78 3b 0a 58 09 09 64 |->d_dupl|ex;.X..d|
|00005040| 2e 69 6e 64 65 78 5b 69 | 5d 20 3d 20 6e 75 6c 6c |.index[i|] = null|
|00005050| 5f 70 74 72 3b 0a 58 09 | 7d 0a 58 09 09 09 09 09 |_ptr;.X.|}.X.....|
|00005060| 2f 2a 20 63 72 65 61 74 | 65 20 61 6e 20 65 6d 70 |/* creat|e an emp|
|00005070| 74 79 20 22 6d 61 6e 75 | 61 6c 22 20 65 6e 74 72 |ty "manu|al" entr|
|00005080| 79 20 2a 2f 0a 58 09 64 | 2e 6e 61 6d 65 5b 30 5d |y */.X.d|.name[0]|
|00005090| 20 3d 20 6e 75 6c 6c 5f | 70 74 72 3b 0a 58 09 64 | = null_|ptr;.X.d|
|000050a0| 2e 6e 75 6d 62 65 72 5b | 30 5d 20 3d 20 6e 75 6c |.number[|0] = nul|
|000050b0| 6c 5f 70 74 72 3b 0a 58 | 09 64 2e 62 61 75 64 5b |l_ptr;.X|.d.baud[|
|000050c0| 30 5d 20 3d 20 70 61 72 | 61 6d 2d 3e 64 5f 62 61 |0] = par|am->d_ba|
|000050d0| 75 64 3b 0a 58 09 64 2e | 70 61 72 69 74 79 5b 30 |ud;.X.d.|parity[0|
|000050e0| 5d 20 3d 20 70 61 72 61 | 6d 2d 3e 64 5f 70 61 72 |] = para|m->d_par|
|000050f0| 69 74 79 3b 0a 58 09 64 | 2e 64 62 69 74 73 5b 30 |ity;.X.d|.dbits[0|
|00005100| 5d 20 3d 20 70 61 72 61 | 6d 2d 3e 64 5f 64 62 69 |] = para|m->d_dbi|
|00005110| 74 73 3b 0a 58 09 64 2e | 73 62 69 74 73 5b 30 5d |ts;.X.d.|sbits[0]|
|00005120| 20 3d 20 70 61 72 61 6d | 2d 3e 64 5f 73 62 69 74 | = param|->d_sbit|
|00005130| 73 3b 0a 58 09 64 2e 64 | 75 70 6c 65 78 5b 30 5d |s;.X.d.d|uplex[0]|
|00005140| 20 3d 20 2a 70 61 72 61 | 6d 2d 3e 64 5f 64 75 70 | = *para|m->d_dup|
|00005150| 6c 65 78 3b 0a 58 09 64 | 2e 69 6e 64 65 78 5b 30 |lex;.X.d|.index[0|
|00005160| 5d 20 3d 20 6e 75 6c 6c | 5f 70 74 72 3b 0a 58 09 |] = null|_ptr;.X.|
|00005170| 09 09 09 09 2f 2a 20 63 | 72 65 61 74 65 20 61 6e |..../* c|reate an|
|00005180| 20 65 6d 70 74 79 20 71 | 75 65 75 65 20 2a 2f 0a | empty q|ueue */.|
|00005190| 58 09 66 6f 72 20 28 69 | 3d 30 3b 20 69 3c 4e 55 |X.for (i|=0; i<NU|
|000051a0| 4d 5f 51 55 45 55 45 3b | 20 69 2b 2b 29 20 7b 0a |M_QUEUE;| i++) {.|
|000051b0| 58 09 09 64 2e 71 5f 6c | 64 5b 69 5d 20 3d 20 4e |X..d.q_l|d[i] = N|
|000051c0| 55 4c 4c 3b 0a 58 09 09 | 64 2e 71 5f 6e 75 6d 5b |ULL;.X..|d.q_num[|
|000051d0| 69 5d 20 3d 20 2d 31 3b | 0a 58 09 7d 0a 58 09 09 |i] = -1;|.X.}.X..|
|000051e0| 09 09 09 2f 2a 20 74 68 | 65 20 73 74 61 72 74 20 |.../* th|e start |
|000051f0| 75 70 20 64 5f 63 75 72 | 20 69 73 20 30 20 2a 2f |up d_cur| is 0 */|
|00005200| 0a 58 09 64 2e 64 5f 63 | 75 72 20 3d 20 30 3b 0a |.X.d.d_c|ur = 0;.|
|00005210| 58 09 72 65 74 75 72 6e | 28 26 64 29 3b 0a 58 7d |X.return|(&d);.X}|
|00005220| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 55 70 64 61 74 |.X.X/*.X| * Updat|
|00005230| 65 20 61 20 64 69 61 6c | 69 6e 67 20 64 69 72 65 |e a dial|ing dire|
|00005240| 63 74 6f 72 79 20 65 6e | 74 72 79 2e 20 20 55 70 |ctory en|try.  Up|
|00005250| 64 61 74 65 20 6f 6e 6c | 79 20 74 68 65 20 6f 6e |date onl|y the on|
|00005260| 65 20 65 6e 74 72 79 20 | 61 73 6b 65 64 20 66 6f |e entry |asked fo|
|00005270| 72 2c 0a 58 20 2a 20 6e | 6f 74 20 74 68 65 20 65 |r,.X * n|ot the e|
|00005280| 6e 74 69 72 65 20 69 6d | 61 67 65 20 69 6e 20 6d |ntire im|age in m|
|00005290| 65 6d 6f 72 79 2e 20 20 | 49 66 20 74 68 65 20 6e |emory.  |If the n|
|000052a0| 65 77 20 65 6e 74 72 79 | 20 69 73 20 62 65 79 6f |ew entry| is beyo|
|000052b0| 6e 64 20 74 68 65 20 65 | 6e 64 20 6f 66 0a 58 20 |nd the e|nd of.X |
|000052c0| 2a 20 74 68 65 20 70 68 | 79 73 69 63 61 6c 20 66 |* the ph|ysical f|
|000052d0| 69 6c 65 2c 20 74 68 65 | 6e 20 66 69 6c 6c 20 69 |ile, the|n fill i|
|000052e0| 6e 20 74 68 65 20 68 6f | 6c 65 73 2c 20 61 6e 64 |n the ho|les, and|
|000052f0| 20 75 70 64 61 74 65 20 | 22 64 69 72 2d 3e 64 5f | update |"dir->d_|
|00005300| 65 6e 74 72 69 65 73 22 | 2e 0a 58 20 2a 20 41 20 |entries"|..X * A |
|00005310| 72 65 74 75 72 6e 20 63 | 6f 64 65 20 6f 66 20 31 |return c|ode of 1|
|00005320| 20 6d 65 61 6e 73 20 61 | 20 6e 6f 6e 2d 66 61 74 | means a| non-fat|
|00005330| 61 6c 20 65 72 72 6f 72 | 2e 0a 58 20 2a 2f 0a 58 |al error|..X */.X|
|00005340| 0a 58 69 6e 74 0a 58 75 | 70 5f 64 69 72 28 65 6e |.Xint.Xu|p_dir(en|
|00005350| 74 72 79 29 0a 58 69 6e | 74 20 65 6e 74 72 79 3b |try).Xin|t entry;|
|00005360| 0a 58 7b 0a 58 09 46 49 | 4c 45 20 2a 66 70 5f 69 |.X{.X.FI|LE *fp_i|
|00005370| 6e 2c 20 2a 66 70 5f 6f | 75 74 2c 20 2a 6d 79 5f |n, *fp_o|ut, *my_|
|00005380| 66 6f 70 65 6e 28 29 3b | 0a 58 09 69 6e 74 20 69 |fopen();|.X.int i|
|00005390| 3b 0a 58 09 63 68 61 72 | 20 2a 74 65 6d 70 5b 4e |;.X.char| *temp[N|
|000053a0| 55 4d 5f 44 49 52 2b 31 | 5d 2c 20 62 75 66 5b 38 |UM_DIR+1|], buf[8|
|000053b0| 30 5d 2c 20 2a 73 74 72 | 64 75 70 28 29 3b 0a 58 |0], *str|dup();.X|
|000053c0| 09 76 6f 69 64 20 65 72 | 72 6f 72 5f 77 69 6e 28 |.void er|ror_win(|
|000053d0| 29 2c 20 66 72 65 65 5f | 70 74 72 28 29 3b 0a 58 |), free_|ptr();.X|
|000053e0| 0a 58 09 09 09 09 09 2f | 2a 20 6f 70 65 6e 20 66 |.X...../|* open f|
|000053f0| 6f 72 20 72 65 61 64 20 | 2a 2f 0a 58 09 69 66 20 |or read |*/.X.if |
|00005400| 28 21 28 66 70 5f 69 6e | 20 3d 20 6d 79 5f 66 6f |(!(fp_in| = my_fo|
|00005410| 70 65 6e 28 64 69 72 2d | 3e 64 5f 70 61 74 68 2c |pen(dir-|>d_path,|
|00005420| 20 22 72 22 29 29 29 20 | 7b 0a 58 09 09 73 70 72 | "r"))) |{.X..spr|
|00005430| 69 6e 74 66 28 62 75 66 | 2c 20 22 27 25 73 27 20 |intf(buf|, "'%s' |
|00005440| 66 6f 72 20 72 65 61 64 | 22 2c 20 64 69 72 2d 3e |for read|", dir->|
|00005450| 64 5f 70 61 74 68 29 3b | 0a 58 09 09 65 72 72 6f |d_path);|.X..erro|
|00005460| 72 5f 77 69 6e 28 31 2c | 20 22 43 61 6e 27 74 20 |r_win(1,| "Can't |
|00005470| 6f 70 65 6e 20 64 69 61 | 6c 69 6e 67 20 64 69 72 |open dia|ling dir|
|00005480| 65 63 74 6f 72 79 20 66 | 69 6c 65 22 2c 20 62 75 |ectory f|ile", bu|
|00005490| 66 29 3b 0a 58 09 7d 0a | 58 09 09 09 09 09 2f 2a |f);.X.}.|X...../*|
|000054a0| 20 72 65 61 64 20 69 6e | 20 61 20 74 65 6d 70 6f | read in| a tempo|
|000054b0| 72 61 72 79 20 76 65 72 | 73 69 6f 6e 20 2a 2f 0a |rary ver|sion */.|
|000054c0| 58 09 69 20 3d 20 30 3b | 0a 58 09 77 68 69 6c 65 |X.i = 0;|.X.while|
|000054d0| 20 28 66 67 65 74 73 28 | 62 75 66 2c 20 38 30 2c | (fgets(|buf, 80,|
|000054e0| 20 66 70 5f 69 6e 29 20 | 21 3d 20 4e 55 4c 4c 29 | fp_in) |!= NULL)|
|000054f0| 0a 58 09 09 74 65 6d 70 | 5b 2b 2b 69 5d 20 3d 20 |.X..temp|[++i] = |
|00005500| 73 74 72 64 75 70 28 62 | 75 66 29 3b 0a 58 0a 58 |strdup(b|uf);.X.X|
|00005510| 09 66 63 6c 6f 73 65 28 | 66 70 5f 69 6e 29 3b 0a |.fclose(|fp_in);.|
|00005520| 58 09 09 09 09 09 2f 2a | 20 61 6c 74 65 72 20 6f |X...../*| alter o|
|00005530| 6e 6c 79 20 31 20 65 6e | 74 72 79 20 2a 2f 0a 58 |nly 1 en|try */.X|
|00005540| 09 73 70 72 69 6e 74 66 | 28 62 75 66 2c 20 22 44 |.sprintf|(buf, "D|
|00005550| 49 52 5f 25 64 3d 25 73 | 3b 25 73 3b 25 64 2d 25 |IR_%d=%s|;%s;%d-%|
|00005560| 63 2d 25 64 2d 25 64 3b | 25 63 3b 25 73 5c 6e 22 |c-%d-%d;|%c;%s\n"|
|00005570| 2c 20 65 6e 74 72 79 2c | 0a 58 09 20 64 69 72 2d |, entry,|.X. dir-|
|00005580| 3e 6e 61 6d 65 5b 65 6e | 74 72 79 5d 2c 20 64 69 |>name[en|try], di|
|00005590| 72 2d 3e 6e 75 6d 62 65 | 72 5b 65 6e 74 72 79 5d |r->numbe|r[entry]|
|000055a0| 2c 20 64 69 72 2d 3e 62 | 61 75 64 5b 65 6e 74 72 |, dir->b|aud[entr|
|000055b0| 79 5d 2c 0a 58 09 20 64 | 69 72 2d 3e 70 61 72 69 |y],.X. d|ir->pari|
|000055c0| 74 79 5b 65 6e 74 72 79 | 5d 2c 20 64 69 72 2d 3e |ty[entry|], dir->|
|000055d0| 64 62 69 74 73 5b 65 6e | 74 72 79 5d 2c 20 64 69 |dbits[en|try], di|
|000055e0| 72 2d 3e 73 62 69 74 73 | 5b 65 6e 74 72 79 5d 2c |r->sbits|[entry],|
|000055f0| 0a 58 09 20 64 69 72 2d | 3e 64 75 70 6c 65 78 5b |.X. dir-|>duplex[|
|00005600| 65 6e 74 72 79 5d 2c 20 | 64 69 72 2d 3e 69 6e 64 |entry], |dir->ind|
|00005610| 65 78 5b 65 6e 74 72 79 | 5d 29 3b 0a 58 0a 58 09 |ex[entry|]);.X.X.|
|00005620| 69 66 20 28 65 6e 74 72 | 79 20 3c 3d 20 64 69 72 |if (entr|y <= dir|
|00005630| 2d 3e 64 5f 65 6e 74 72 | 69 65 73 29 0a 58 09 09 |->d_entr|ies).X..|
|00005640| 66 72 65 65 5f 70 74 72 | 28 74 65 6d 70 5b 65 6e |free_ptr|(temp[en|
|00005650| 74 72 79 5d 29 3b 0a 58 | 09 74 65 6d 70 5b 65 6e |try]);.X|.temp[en|
|00005660| 74 72 79 5d 20 3d 20 73 | 74 72 64 75 70 28 62 75 |try] = s|trdup(bu|
|00005670| 66 29 3b 0a 58 09 09 09 | 09 09 2f 2a 20 66 69 6c |f);.X...|../* fil|
|00005680| 6c 20 69 6e 20 68 6f 6c | 65 73 20 69 66 20 62 65 |l in hol|es if be|
|00005690| 79 6f 6e 64 20 65 6e 64 | 20 2a 2f 0a 58 09 69 66 |yond end| */.X.if|
|000056a0| 20 28 65 6e 74 72 79 20 | 3e 20 64 69 72 2d 3e 64 | (entry |> dir->d|
|000056b0| 5f 65 6e 74 72 69 65 73 | 2b 31 29 20 7b 0a 58 09 |_entries|+1) {.X.|
|000056c0| 09 66 6f 72 20 28 69 3d | 64 69 72 2d 3e 64 5f 65 |.for (i=|dir->d_e|
|000056d0| 6e 74 72 69 65 73 2b 31 | 3b 20 69 3c 65 6e 74 72 |ntries+1|; i<entr|
|000056e0| 79 3b 20 69 2b 2b 29 20 | 7b 0a 58 09 09 09 73 70 |y; i++) |{.X...sp|
|000056f0| 72 69 6e 74 66 28 62 75 | 66 2c 20 22 44 49 52 5f |rintf(bu|f, "DIR_|
|00005700| 25 64 3d 3b 3b 25 64 2d | 25 63 2d 25 64 2d 25 64 |%d=;;%d-|%c-%d-%d|
|00005710| 3b 25 63 3b 5c 6e 22 2c | 20 69 2c 0a 58 09 09 09 |;%c;\n",| i,.X...|
|00005720| 20 70 61 72 61 6d 2d 3e | 64 5f 62 61 75 64 2c 20 | param->|d_baud, |
|00005730| 70 61 72 61 6d 2d 3e 64 | 5f 70 61 72 69 74 79 2c |param->d|_parity,|
|00005740| 20 70 61 72 61 6d 2d 3e | 64 5f 64 62 69 74 73 2c | param->|d_dbits,|
|00005750| 0a 58 09 09 09 20 70 61 | 72 61 6d 2d 3e 64 5f 73 |.X... pa|ram->d_s|
|00005760| 62 69 74 73 2c 20 2a 70 | 61 72 61 6d 2d 3e 64 5f |bits, *p|aram->d_|
|00005770| 64 75 70 6c 65 78 29 3b | 0a 58 09 09 09 74 65 6d |duplex);|.X...tem|
|00005780| 70 5b 69 5d 20 3d 20 73 | 74 72 64 75 70 28 62 75 |p[i] = s|trdup(bu|
|00005790| 66 29 3b 0a 58 09 09 7d | 0a 58 09 7d 0a 58 09 09 |f);.X..}|.X.}.X..|
|000057a0| 09 09 09 2f 2a 20 75 70 | 64 61 74 65 20 22 64 69 |.../* up|date "di|
|000057b0| 72 2d 3e 64 5f 65 6e 74 | 72 69 65 73 22 20 2a 2f |r->d_ent|ries" */|
|000057c0| 0a 58 09 69 66 20 28 65 | 6e 74 72 79 20 3e 20 64 |.X.if (e|ntry > d|
|000057d0| 69 72 2d 3e 64 5f 65 6e | 74 72 69 65 73 29 0a 58 |ir->d_en|tries).X|
|000057e0| 09 09 64 69 72 2d 3e 64 | 5f 65 6e 74 72 69 65 73 |..dir->d|_entries|
|000057f0| 20 3d 20 65 6e 74 72 79 | 3b 0a 58 0a 58 09 09 09 | = entry|;.X.X...|
|00005800| 09 09 2f 2a 20 6f 70 65 | 6e 20 66 6f 72 20 77 72 |../* ope|n for wr|
|00005810| 69 74 65 20 2a 2f 0a 58 | 09 69 66 20 28 21 28 66 |ite */.X|.if (!(f|
|00005820| 70 5f 6f 75 74 20 3d 20 | 6d 79 5f 66 6f 70 65 6e |p_out = |my_fopen|
|00005830| 28 64 69 72 2d 3e 64 5f | 70 61 74 68 2c 20 22 77 |(dir->d_|path, "w|
|00005840| 22 29 29 29 20 7b 0a 58 | 09 09 66 6f 72 20 28 69 |"))) {.X|..for (i|
|00005850| 3d 31 3b 20 69 3c 3d 64 | 69 72 2d 3e 64 5f 65 6e |=1; i<=d|ir->d_en|
|00005860| 74 72 69 65 73 3b 20 69 | 2b 2b 29 0a 58 09 09 09 |tries; i|++).X...|
|00005870| 66 72 65 65 5f 70 74 72 | 28 74 65 6d 70 5b 69 5d |free_ptr|(temp[i]|
|00005880| 29 3b 0a 58 09 09 73 70 | 72 69 6e 74 66 28 62 75 |);.X..sp|rintf(bu|
|00005890| 66 2c 20 22 27 25 73 27 | 22 2c 20 64 69 72 2d 3e |f, "'%s'|", dir->|
|000058a0| 64 5f 70 61 74 68 29 3b | 0a 58 09 09 65 72 72 6f |d_path);|.X..erro|
|000058b0| 72 5f 77 69 6e 28 30 2c | 20 22 4e 6f 20 77 72 69 |r_win(0,| "No wri|
|000058c0| 74 65 20 70 65 72 6d 69 | 73 73 69 6f 6e 20 6f 6e |te permi|ssion on|
|000058d0| 20 64 69 61 6c 69 6e 67 | 20 64 69 72 65 63 74 6f | dialing| directo|
|000058e0| 72 79 20 66 69 6c 65 22 | 2c 20 62 75 66 29 3b 0a |ry file"|, buf);.|
|000058f0| 58 09 09 72 65 74 75 72 | 6e 28 31 29 3b 0a 58 09 |X..retur|n(1);.X.|
|00005900| 7d 0a 58 09 09 09 09 09 | 2f 2a 20 70 75 74 20 69 |}.X.....|/* put i|
|00005910| 74 20 62 61 63 6b 20 2a | 2f 0a 58 09 66 6f 72 20 |t back *|/.X.for |
|00005920| 28 69 3d 31 3b 20 69 3c | 3d 64 69 72 2d 3e 64 5f |(i=1; i<|=dir->d_|
|00005930| 65 6e 74 72 69 65 73 3b | 20 69 2b 2b 29 20 7b 0a |entries;| i++) {.|
|00005940| 58 09 09 66 70 75 74 73 | 28 74 65 6d 70 5b 69 5d |X..fputs|(temp[i]|
|00005950| 2c 20 66 70 5f 6f 75 74 | 29 3b 0a 58 09 09 66 72 |, fp_out|);.X..fr|
|00005960| 65 65 5f 70 74 72 28 74 | 65 6d 70 5b 69 5d 29 3b |ee_ptr(t|emp[i]);|
|00005970| 0a 58 09 7d 0a 58 0a 58 | 09 66 63 6c 6f 73 65 28 |.X.}.X.X|.fclose(|
|00005980| 66 70 5f 6f 75 74 29 3b | 0a 58 09 72 65 74 75 72 |fp_out);|.X.retur|
|00005990| 6e 28 30 29 3b 0a 58 7d | 0a 58 0a 58 2f 2a 0a 58 |n(0);.X}|.X.X/*.X|
|000059a0| 20 2a 20 44 65 6c 65 74 | 65 20 61 20 72 61 6e 67 | * Delet|e a rang|
|000059b0| 65 20 6f 66 20 64 69 61 | 6c 69 6e 67 20 64 69 72 |e of dia|ling dir|
|000059c0| 65 63 74 6f 72 79 20 65 | 6e 74 72 69 65 73 2e 20 |ectory e|ntries. |
|000059d0| 20 41 63 74 75 61 6c 6c | 79 2c 20 6a 75 73 74 20 | Actuall|y, just |
|000059e0| 63 6f 70 69 65 73 0a 58 | 20 2a 20 64 65 66 61 75 |copies.X| * defau|
|000059f0| 6c 74 20 28 65 6d 70 74 | 79 29 20 65 6e 74 72 69 |lt (empt|y) entri|
|00005a00| 65 73 20 69 6e 20 70 6c | 61 63 65 20 6f 66 20 64 |es in pl|ace of d|
|00005a10| 65 6c 65 74 65 64 20 65 | 6e 74 72 69 65 73 2e 20 |eleted e|ntries. |
|00005a20| 20 48 6f 77 65 76 65 72 | 2c 20 69 74 20 77 69 6c | However|, it wil|
|00005a30| 6c 0a 58 20 2a 20 73 68 | 72 69 6e 6b 20 74 68 65 |l.X * sh|rink the|
|00005a40| 20 66 69 6c 65 20 69 66 | 20 64 65 6c 65 74 69 6f | file if| deletio|
|00005a50| 6e 73 20 6f 63 63 75 72 | 20 61 74 20 74 68 65 20 |ns occur| at the |
|00005a60| 70 68 79 73 69 63 61 6c | 20 45 4f 46 2e 20 20 41 |physical| EOF.  A|
|00005a70| 20 72 65 74 75 72 6e 20 | 63 6f 64 65 0a 58 20 2a | return |code.X *|
|00005a80| 20 6f 66 20 31 20 6d 65 | 61 6e 73 20 61 20 6e 6f | of 1 me|ans a no|
|00005a90| 6e 2d 66 61 74 61 6c 20 | 65 72 72 6f 72 2e 0a 58 |n-fatal |error..X|
|00005aa0| 20 2a 2f 0a 58 0a 58 69 | 6e 74 0a 58 64 65 6c 5f | */.X.Xi|nt.Xdel_|
|00005ab0| 64 69 72 28 66 69 72 73 | 74 2c 20 6c 61 73 74 29 |dir(firs|t, last)|
|00005ac0| 0a 58 69 6e 74 20 66 69 | 72 73 74 2c 20 6c 61 73 |.Xint fi|rst, las|
|00005ad0| 74 3b 0a 58 7b 0a 58 09 | 46 49 4c 45 20 2a 66 70 |t;.X{.X.|FILE *fp|
|00005ae0| 5f 69 6e 2c 20 2a 66 70 | 5f 6f 75 74 2c 20 2a 6d |_in, *fp|_out, *m|
|00005af0| 79 5f 66 6f 70 65 6e 28 | 29 3b 0a 58 09 69 6e 74 |y_fopen(|);.X.int|
|00005b00| 20 69 3b 0a 58 09 63 68 | 61 72 20 2a 74 65 6d 70 | i;.X.ch|ar *temp|
|00005b10| 5b 4e 55 4d 5f 44 49 52 | 2b 31 5d 2c 20 62 75 66 |[NUM_DIR|+1], buf|
|00005b20| 5b 38 30 5d 2c 20 2a 73 | 74 72 64 75 70 28 29 3b |[80], *s|trdup();|
|00005b30| 0a 58 09 76 6f 69 64 20 | 65 72 72 6f 72 5f 77 69 |.X.void |error_wi|
|00005b40| 6e 28 29 2c 20 66 72 65 | 65 5f 70 74 72 28 29 3b |n(), fre|e_ptr();|
|00005b50| 0a 58 09 09 09 09 09 2f | 2a 20 73 61 6e 69 74 79 |.X...../|* sanity|
|00005b60| 20 63 68 65 63 6b 69 6e | 67 20 2a 2f 0a 58 09 69 | checkin|g */.X.i|
|00005b70| 66 20 28 66 69 72 73 74 | 20 3e 20 64 69 72 2d 3e |f (first| > dir->|
|00005b80| 64 5f 65 6e 74 72 69 65 | 73 29 0a 58 09 09 72 65 |d_entrie|s).X..re|
|00005b90| 74 75 72 6e 28 30 29 3b | 0a 58 09 69 66 20 28 6c |turn(0);|.X.if (l|
|00005ba0| 61 73 74 20 3e 20 64 69 | 72 2d 3e 64 5f 65 6e 74 |ast > di|r->d_ent|
|00005bb0| 72 69 65 73 29 0a 58 09 | 09 6c 61 73 74 20 3d 20 |ries).X.|.last = |
|00005bc0| 64 69 72 2d 3e 64 5f 65 | 6e 74 72 69 65 73 3b 0a |dir->d_e|ntries;.|
|00005bd0| 58 0a 58 09 09 09 09 09 | 2f 2a 20 6f 70 65 6e 20 |X.X.....|/* open |
|00005be0| 66 6f 72 20 72 65 61 64 | 20 2a 2f 0a 58 09 69 66 |for read| */.X.if|
|00005bf0| 20 28 21 28 66 70 5f 69 | 6e 20 3d 20 6d 79 5f 66 | (!(fp_i|n = my_f|
|00005c00| 6f 70 65 6e 28 64 69 72 | 2d 3e 64 5f 70 61 74 68 |open(dir|->d_path|
|00005c10| 2c 20 22 72 22 29 29 29 | 20 7b 0a 58 09 09 73 70 |, "r")))| {.X..sp|
|00005c20| 72 69 6e 74 66 28 62 75 | 66 2c 20 22 27 25 73 27 |rintf(bu|f, "'%s'|
|00005c30| 20 66 6f 72 20 72 65 61 | 64 22 2c 20 64 69 72 2d | for rea|d", dir-|
|00005c40| 3e 64 5f 70 61 74 68 29 | 3b 0a 58 09 09 65 72 72 |>d_path)|;.X..err|
|00005c50| 6f 72 5f 77 69 6e 28 31 | 2c 20 22 43 61 6e 27 74 |or_win(1|, "Can't|
|00005c60| 20 6f 70 65 6e 20 64 69 | 61 6c 69 6e 67 20 64 69 | open di|aling di|
|00005c70| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 22 2c 20 62 |rectory |file", b|
|00005c80| 75 66 29 3b 0a 58 09 7d | 0a 58 09 09 09 09 09 2f |uf);.X.}|.X...../|
|00005c90| 2a 20 72 65 61 64 20 69 | 6e 20 61 20 74 65 6d 70 |* read i|n a temp|
|00005ca0| 6f 72 61 72 79 20 76 65 | 72 73 69 6f 6e 20 2a 2f |orary ve|rsion */|
|00005cb0| 0a 58 09 69 20 3d 20 30 | 3b 0a 58 09 77 68 69 6c |.X.i = 0|;.X.whil|
|00005cc0| 65 20 28 66 67 65 74 73 | 28 62 75 66 2c 20 38 30 |e (fgets|(buf, 80|
|00005cd0| 2c 20 66 70 5f 69 6e 29 | 20 21 3d 20 4e 55 4c 4c |, fp_in)| != NULL|
|00005ce0| 29 0a 58 09 09 74 65 6d | 70 5b 2b 2b 69 5d 20 3d |).X..tem|p[++i] =|
|00005cf0| 20 73 74 72 64 75 70 28 | 62 75 66 29 3b 0a 58 0a | strdup(|buf);.X.|
|00005d00| 58 09 66 63 6c 6f 73 65 | 28 66 70 5f 69 6e 29 3b |X.fclose|(fp_in);|
|00005d10| 0a 58 09 09 09 09 09 2f | 2a 20 64 65 6c 65 74 65 |.X...../|* delete|
|00005d20| 20 74 68 65 20 72 61 6e | 67 65 20 6f 66 20 76 61 | the ran|ge of va|
|00005d30| 6c 75 65 73 20 2a 2f 0a | 58 09 66 6f 72 20 28 69 |lues */.|X.for (i|
|00005d40| 3d 66 69 72 73 74 3b 20 | 69 3c 3d 6c 61 73 74 3b |=first; |i<=last;|
|00005d50| 20 69 2b 2b 29 20 7b 0a | 58 09 09 73 70 72 69 6e | i++) {.|X..sprin|
|00005d60| 74 66 28 62 75 66 2c 20 | 22 44 49 52 5f 25 64 3d |tf(buf, |"DIR_%d=|
|00005d70| 3b 3b 25 64 2d 25 63 2d | 25 64 2d 25 64 3b 25 63 |;;%d-%c-|%d-%d;%c|
|00005d80| 3b 5c 6e 22 2c 20 69 2c | 20 70 61 72 61 6d 2d 3e |;\n", i,| param->|
|00005d90| 64 5f 62 61 75 64 2c 0a | 58 09 09 20 70 61 72 61 |d_baud,.|X.. para|
|00005da0| 6d 2d 3e 64 5f 70 61 72 | 69 74 79 2c 20 70 61 72 |m->d_par|ity, par|
|00005db0| 61 6d 2d 3e 64 5f 64 62 | 69 74 73 2c 20 70 61 72 |am->d_db|its, par|
|00005dc0| 61 6d 2d 3e 64 5f 73 62 | 69 74 73 2c 0a 58 09 09 |am->d_sb|its,.X..|
|00005dd0| 20 2a 70 61 72 61 6d 2d | 3e 64 5f 64 75 70 6c 65 | *param-|>d_duple|
|00005de0| 78 29 3b 0a 58 09 09 66 | 72 65 65 5f 70 74 72 28 |x);.X..f|ree_ptr(|
|00005df0| 74 65 6d 70 5b 69 5d 29 | 3b 0a 58 09 09 74 65 6d |temp[i])|;.X..tem|
|00005e00| 70 5b 69 5d 20 3d 20 73 | 74 72 64 75 70 28 62 75 |p[i] = s|trdup(bu|
|00005e10| 66 29 3b 0a 58 09 7d 0a | 58 09 09 09 09 09 2f 2a |f);.X.}.|X...../*|
|00005e20| 20 73 68 72 69 6e 6b 20 | 74 68 65 20 66 69 6c 65 | shrink |the file|
|00005e30| 3f 20 2a 2f 0a 58 09 69 | 66 20 28 6c 61 73 74 20 |? */.X.i|f (last |
|00005e40| 3e 3d 20 64 69 72 2d 3e | 64 5f 65 6e 74 72 69 65 |>= dir->|d_entrie|
|00005e50| 73 29 20 7b 0a 58 09 09 | 66 6f 72 20 28 69 3d 66 |s) {.X..|for (i=f|
|00005e60| 69 72 73 74 3b 20 69 3c | 3d 6c 61 73 74 3b 20 69 |irst; i<|=last; i|
|00005e70| 2b 2b 29 0a 58 09 09 09 | 66 72 65 65 5f 70 74 72 |++).X...|free_ptr|
|00005e80| 28 74 65 6d 70 5b 69 5d | 29 3b 0a 58 09 09 64 69 |(temp[i]|);.X..di|
|00005e90| 72 2d 3e 64 5f 65 6e 74 | 72 69 65 73 20 3d 20 66 |r->d_ent|ries = f|
|00005ea0| 69 72 73 74 2d 31 3b 0a | 58 09 7d 0a 58 09 09 09 |irst-1;.|X.}.X...|
|00005eb0| 09 09 2f 2a 20 6f 70 65 | 6e 20 66 6f 72 20 77 72 |../* ope|n for wr|
|00005ec0| 69 74 65 20 2a 2f 0a 58 | 09 69 66 20 28 21 28 66 |ite */.X|.if (!(f|
|00005ed0| 70 5f 6f 75 74 20 3d 20 | 6d 79 5f 66 6f 70 65 6e |p_out = |my_fopen|
|00005ee0| 28 64 69 72 2d 3e 64 5f | 70 61 74 68 2c 20 22 77 |(dir->d_|path, "w|
|00005ef0| 22 29 29 29 20 7b 0a 58 | 09 09 66 6f 72 20 28 69 |"))) {.X|..for (i|
|00005f00| 3d 31 3b 20 69 3c 3d 64 | 69 72 2d 3e 64 5f 65 6e |=1; i<=d|ir->d_en|
|00005f10| 74 72 69 65 73 3b 20 69 | 2b 2b 29 0a 58 09 09 09 |tries; i|++).X...|
|00005f20| 66 72 65 65 5f 70 74 72 | 28 74 65 6d 70 5b 69 5d |free_ptr|(temp[i]|
|00005f30| 29 3b 0a 58 09 09 73 70 | 72 69 6e 74 66 28 62 75 |);.X..sp|rintf(bu|
|00005f40| 66 2c 20 22 27 25 73 27 | 22 2c 20 64 69 72 2d 3e |f, "'%s'|", dir->|
|00005f50| 64 5f 70 61 74 68 29 3b | 0a 58 09 09 65 72 72 6f |d_path);|.X..erro|
|00005f60| 72 5f 77 69 6e 28 30 2c | 20 22 4e 6f 20 77 72 69 |r_win(0,| "No wri|
|00005f70| 74 65 20 70 65 72 6d 69 | 73 73 69 6f 6e 20 6f 6e |te permi|ssion on|
|00005f80| 20 64 69 61 6c 69 6e 67 | 20 64 69 72 65 63 74 6f | dialing| directo|
|00005f90| 72 79 20 66 69 6c 65 22 | 2c 20 62 75 66 29 3b 0a |ry file"|, buf);.|
|00005fa0| 58 09 09 72 65 74 75 72 | 6e 28 31 29 3b 0a 58 09 |X..retur|n(1);.X.|
|00005fb0| 7d 0a 58 09 09 09 09 09 | 2f 2a 20 70 75 74 20 69 |}.X.....|/* put i|
|00005fc0| 74 20 61 6c 6c 20 62 61 | 63 6b 20 2a 2f 0a 58 09 |t all ba|ck */.X.|
|00005fd0| 66 6f 72 20 28 69 3d 31 | 3b 20 69 3c 3d 64 69 72 |for (i=1|; i<=dir|
|00005fe0| 2d 3e 64 5f 65 6e 74 72 | 69 65 73 3b 20 69 2b 2b |->d_entr|ies; i++|
|00005ff0| 29 20 7b 0a 58 09 09 66 | 70 75 74 73 28 74 65 6d |) {.X..f|puts(tem|
|00006000| 70 5b 69 5d 2c 20 66 70 | 5f 6f 75 74 29 3b 0a 58 |p[i], fp|_out);.X|
|00006010| 09 09 66 72 65 65 5f 70 | 74 72 28 74 65 6d 70 5b |..free_p|tr(temp[|
|00006020| 69 5d 29 3b 0a 58 09 7d | 0a 58 0a 58 09 66 63 6c |i]);.X.}|.X.X.fcl|
|00006030| 6f 73 65 28 66 70 5f 6f | 75 74 29 3b 0a 58 09 72 |ose(fp_o|ut);.X.r|
|00006040| 65 74 75 72 6e 28 30 29 | 3b 0a 58 7d 0a 53 48 41 |eturn(0)|;.X}.SHA|
|00006050| 52 5f 45 4f 46 0a 69 66 | 20 74 65 73 74 20 36 37 |R_EOF.if| test 67|
|00006060| 38 37 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 3c |87 -ne "|`wc -c <|
|00006070| 20 27 64 5f 6c 69 62 2e | 63 27 60 22 0a 74 68 65 | 'd_lib.|c'`".the|
|00006080| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 22 65 |n..echo |shar: "e|
|00006090| 72 72 6f 72 20 74 72 61 | 6e 73 6d 69 74 74 69 6e |rror tra|nsmittin|
|000060a0| 67 20 27 64 5f 6c 69 62 | 2e 63 27 22 20 27 28 73 |g 'd_lib|.c'" '(s|
|000060b0| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|000060c0| 36 37 38 37 20 63 68 61 | 72 61 63 74 65 72 73 29 |6787 cha|racters)|
|000060d0| 27 0a 66 69 0a 66 69 0a | 65 63 68 6f 20 73 68 61 |'.fi.fi.|echo sha|
|000060e0| 72 3a 20 22 65 78 74 72 | 61 63 74 69 6e 67 20 27 |r: "extr|acting '|
|000060f0| 64 5f 6d 61 6e 75 61 6c | 2e 63 27 22 20 27 28 31 |d_manual|.c'" '(1|
|00006100| 39 32 30 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |920 char|acters)'|
|00006110| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 64 5f 6d |.if test| -f 'd_m|
|00006120| 61 6e 75 61 6c 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |anual.c'|.then..e|
|00006130| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|00006140| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00006150| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 64 5f |xisting |file 'd_|
|00006160| 6d 61 6e 75 61 6c 2e 63 | 27 22 0a 65 6c 73 65 0a |manual.c|'".else.|
|00006170| 73 65 64 20 27 73 2f 5e | 58 2f 2f 27 20 3c 3c 20 |sed 's/^|X//' << |
|00006180| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 64 5f 6d |\SHAR_EO|F > 'd_m|
|00006190| 61 6e 75 61 6c 2e 63 27 | 0a 58 2f 2a 0a 58 20 2a |anual.c'|.X/*.X *|
|000061a0| 20 54 68 65 20 6d 61 6e | 75 61 6c 20 64 69 61 6c | The man|ual dial|
|000061b0| 20 6f 70 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 64 | option |of the d|
|000061c0| 69 61 6c 69 6e 67 20 64 | 69 72 65 63 74 6f 72 79 |ialing d|irectory|
|000061d0| 2e 20 20 41 20 72 65 74 | 75 72 6e 20 63 6f 64 65 |.  A ret|urn code|
|000061e0| 20 6f 66 0a 58 20 2a 20 | 31 20 6d 65 61 6e 73 20 | of.X * |1 means |
|000061f0| 77 65 27 72 65 20 72 65 | 61 64 79 20 74 6f 20 64 |we're re|ady to d|
|00006200| 69 61 6c 2e 20 20 44 69 | 61 6c 69 6e 67 20 64 69 |ial.  Di|aling di|
|00006210| 72 65 63 74 6f 72 79 20 | 65 6e 74 72 79 20 30 20 |rectory |entry 0 |
|00006220| 69 73 20 72 65 73 65 72 | 76 65 64 0a 58 20 2a 20 |is reser|ved.X * |
|00006230| 66 6f 72 20 74 68 65 20 | 6d 61 6e 75 61 6c 20 64 |for the |manual d|
|00006240| 69 61 6c 20 6f 70 74 69 | 6f 6e 2e 20 20 4e 6f 20 |ial opti|on.  No |
|00006250| 73 61 6e 69 74 79 20 63 | 68 65 63 6b 69 6e 67 20 |sanity c|hecking |
|00006260| 69 73 20 64 6f 6e 65 20 | 6f 6e 20 74 68 65 20 69 |is done |on the i|
|00006270| 6e 70 75 74 2e 0a 58 20 | 2a 2f 0a 58 0a 58 23 69 |nput..X |*/.X.X#i|
|00006280| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00006290| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 63 75 72 73 |.X#inclu|de <curs|
|000062a0| 65 73 2e 68 3e 0a 58 23 | 69 6e 63 6c 75 64 65 20 |es.h>.X#|include |
|000062b0| 22 63 6f 6e 66 69 67 2e | 68 22 0a 58 23 69 6e 63 |"config.|h".X#inc|
|000062c0| 6c 75 64 65 20 22 6d 69 | 73 63 2e 68 22 0a 58 23 |lude "mi|sc.h".X#|
|000062d0| 69 6e 63 6c 75 64 65 20 | 22 64 69 61 6c 5f 64 69 |include |"dial_di|
|000062e0| 72 2e 68 22 0a 58 0a 58 | 69 6e 74 0a 58 6d 61 6e |r.h".X.X|int.Xman|
|000062f0| 75 61 6c 28 29 0a 58 7b | 0a 58 09 65 78 74 65 72 |ual().X{|.X.exter|
|00006300| 6e 20 69 6e 74 20 78 6d | 63 3b 0a 58 09 65 78 74 |n int xm|c;.X.ext|
|00006310| 65 72 6e 20 63 68 61 72 | 20 2a 6e 75 6c 6c 5f 70 |ern char| *null_p|
|00006320| 74 72 3b 0a 58 09 57 49 | 4e 44 4f 57 20 2a 6d 5f |tr;.X.WI|NDOW *m_|
|00006330| 77 69 6e 2c 20 2a 6e 65 | 77 77 69 6e 28 29 3b 0a |win, *ne|wwin();.|
|00006340| 58 09 63 68 61 72 20 2a | 6e 75 6d 62 65 72 2c 20 |X.char *|number, |
|00006350| 2a 73 74 72 64 75 70 28 | 29 2c 20 2a 67 65 74 5f |*strdup(|), *get_|
|00006360| 73 74 72 28 29 2c 20 6c | 64 5f 63 6f 64 65 2c 20 |str(), l|d_code, |
|00006370| 2a 73 74 72 63 68 72 28 | 29 3b 0a 58 09 76 6f 69 |*strchr(|);.X.voi|
|00006380| 64 20 66 69 78 5f 78 6d | 63 28 29 2c 20 66 72 65 |d fix_xm|c(), fre|
|00006390| 65 5f 70 74 72 28 29 3b | 0a 58 0a 58 09 6d 5f 77 |e_ptr();|.X.X.m_w|
|000063a0| 69 6e 20 3d 20 6e 65 77 | 77 69 6e 28 35 2c 20 35 |in = new|win(5, 5|
|000063b0| 30 2c 20 30 2c 20 32 30 | 29 3b 0a 58 0a 58 09 62 |0, 0, 20|);.X.X.b|
|000063c0| 6f 78 28 6d 5f 77 69 6e | 2c 20 56 45 52 54 2c 20 |ox(m_win|, VERT, |
|000063d0| 48 4f 52 5a 29 3b 0a 58 | 09 6d 76 77 61 64 64 73 |HORZ);.X|.mvwadds|
|000063e0| 74 72 28 6d 5f 77 69 6e | 2c 20 32 2c 20 33 2c 20 |tr(m_win|, 2, 3, |
|000063f0| 22 50 68 6f 6e 65 20 4e | 75 6d 62 65 72 3a 20 22 |"Phone N|umber: "|
+--------+-------------------------+-------------------------+--------+--------+