home *** CD-ROM | disk | FTP | other *** search
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: part05
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/news
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 31 30 3a | 20 20 4d 6f 64 65 6d 20 |v16i010:| 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 35 2f 30 |ackage, |Part05/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 32 40 66 69 67 2e | 62 62 6e 2e 63 6f 6d 3e |062@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 33 3a 35 | 32 20 47 4d 54 0a 4c 69 | 16:43:5|2 GMT.Li|
|000000d0| 6e 65 73 3a 20 32 30 37 | 38 0a 41 70 70 72 6f 76 |nes: 207|8.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 31 30 0a 41 72 | 63 68 69 76 65 2d 6e 61 |ue 10.Ar|chive-na|
|00000150| 6d 65 3a 20 70 63 6f 6d | 6d 32 2f 70 61 72 74 30 |me: pcom|m2/part0|
|00000160| 35 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |5..#! /b|in/sh.# |
|00000170| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000180| 61 72 63 68 69 76 65 2c | 20 6d 65 61 6e 69 6e 67 |archive,| meaning|
|00000190| 3a 0a 23 20 31 2e 20 52 | 65 6d 6f 76 65 20 65 76 |:.# 1. R|emove ev|
|000001a0| 65 72 79 74 68 69 6e 67 | 20 61 62 6f 76 65 20 74 |erything| above t|
|000001b0| 68 65 20 23 21 20 2f 62 | 69 6e 2f 73 68 20 6c 69 |he #! /b|in/sh li|
|000001c0| 6e 65 2e 0a 23 20 32 2e | 20 53 61 76 65 20 74 68 |ne..# 2.| Save th|
|000001d0| 65 20 72 65 73 75 6c 74 | 69 6e 67 20 74 65 78 74 |e result|ing text|
|000001e0| 20 69 6e 20 61 20 66 69 | 6c 65 2e 0a 23 20 33 2e | in a fi|le..# 3.|
|000001f0| 20 45 78 65 63 75 74 65 | 20 74 68 65 20 66 69 6c | Execute| the fil|
|00000200| 65 20 77 69 74 68 20 2f | 62 69 6e 2f 73 68 20 28 |e with /|bin/sh (|
|00000210| 6e 6f 74 20 63 73 68 29 | 20 74 6f 20 63 72 65 61 |not csh)| to crea|
|00000220| 74 65 3a 0a 23 09 6d 5f | 6c 69 62 2e 63 0a 23 09 |te:.#.m_|lib.c.#.|
|00000230| 6d 61 63 72 6f 2e 63 0a | 23 09 6d 61 69 6e 2e 63 |macro.c.|#.main.c|
|00000240| 0a 23 09 6e 5f 73 68 65 | 6c 6c 2e 63 0a 23 09 70 |.#.n_she|ll.c.#.p|
|00000250| 5f 6c 69 62 2e 63 0a 23 | 09 70 61 73 73 74 68 72 |_lib.c.#|.passthr|
|00000260| 75 2e 63 0a 23 09 70 65 | 78 69 74 2e 63 0a 23 09 |u.c.#.pe|xit.c.#.|
|00000270| 70 6f 72 74 2e 63 0a 23 | 09 72 65 64 69 61 6c 2e |port.c.#|.redial.|
|00000280| 63 0a 65 78 70 6f 72 74 | 20 50 41 54 48 3b 20 50 |c.export| PATH; P|
|00000290| 41 54 48 3d 2f 62 69 6e | 3a 2f 75 73 72 2f 62 69 |ATH=/bin|:/usr/bi|
|000002a0| 6e 3a 24 50 41 54 48 0a | 65 63 68 6f 20 73 68 61 |n:$PATH.|echo sha|
|000002b0| 72 3a 20 22 65 78 74 72 | 61 63 74 69 6e 67 20 27 |r: "extr|acting '|
|000002c0| 6d 5f 6c 69 62 2e 63 27 | 22 20 27 28 31 30 30 37 |m_lib.c'|" '(1007|
|000002d0| 30 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |0 charac|ters)'.i|
|000002e0| 66 20 74 65 73 74 20 2d | 66 20 27 6d 5f 6c 69 62 |f test -|f 'm_lib|
|000002f0| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00000300| 68 61 72 3a 20 22 77 69 | 6c 6c 20 6e 6f 74 20 6f |har: "wi|ll not o|
|00000310| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00000320| 6e 67 20 66 69 6c 65 20 | 27 6d 5f 6c 69 62 2e 63 |ng file |'m_lib.c|
|00000330| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|00000340| 58 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |X//' << |\SHAR_EO|
|00000350| 46 20 3e 20 27 6d 5f 6c | 69 62 2e 63 27 0a 58 2f |F > 'm_l|ib.c'.X/|
|00000360| 2a 0a 58 20 2a 20 52 6f | 75 74 69 6e 65 73 20 74 |*.X * Ro|utines t|
|00000370| 6f 20 6d 61 6e 69 70 75 | 6c 61 74 65 20 74 68 65 |o manipu|late the|
|00000380| 20 70 63 6f 6d 6d 2e 6d | 6f 64 65 6d 20 66 69 6c | pcomm.m|odem fil|
|00000390| 65 0a 58 20 2a 2f 0a 58 | 0a 58 23 69 6e 63 6c 75 |e.X */.X|.X#inclu|
|000003a0| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 58 23 69 |de <stdi|o.h>.X#i|
|000003b0| 6e 63 6c 75 64 65 20 22 | 6d 6f 64 65 6d 2e 68 22 |nclude "|modem.h"|
|000003c0| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 52 65 61 64 20 |.X.X/*.X| * Read |
|000003d0| 74 68 65 20 6d 6f 64 65 | 6d 2f 54 54 59 20 64 61 |the mode|m/TTY da|
|000003e0| 74 61 62 61 73 65 20 66 | 69 6c 65 2e 20 20 52 65 |tabase f|ile. Re|
|000003f0| 74 75 72 6e 73 20 61 20 | 70 6f 69 6e 74 65 72 20 |turns a |pointer |
|00000400| 74 6f 20 61 20 73 74 61 | 74 69 63 20 61 72 65 61 |to a sta|tic area|
|00000410| 0a 58 20 2a 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |.X * con|taining |
|00000420| 74 68 65 20 4d 4f 44 45 | 4d 20 73 74 72 75 63 74 |the MODE|M struct|
|00000430| 75 72 65 2e 20 20 41 6c | 6c 20 6d 6f 64 65 6d 20 |ure. Al|l modem |
|00000440| 65 6e 74 72 69 65 73 20 | 61 6e 64 20 61 6c 6c 20 |entries |and all |
|00000450| 54 54 59 20 65 6e 74 72 | 69 65 73 0a 58 20 2a 20 |TTY entr|ies.X * |
|00000460| 61 72 65 20 63 72 65 61 | 74 65 64 20 72 65 67 61 |are crea|ted rega|
|00000470| 72 64 6c 65 73 73 20 6f | 66 20 74 68 65 20 6e 75 |rdless o|f the nu|
|00000480| 6d 62 65 72 20 6f 66 20 | 70 68 79 73 69 63 61 6c |mber of |physical|
|00000490| 20 65 6e 74 72 69 65 73 | 20 69 6e 20 74 68 65 20 | entries| in the |
|000004a0| 66 69 6c 65 2e 0a 58 20 | 2a 2f 0a 58 0a 58 73 74 |file..X |*/.X.Xst|
|000004b0| 72 75 63 74 20 4d 4f 44 | 45 4d 20 2a 0a 58 72 65 |ruct MOD|EM *.Xre|
|000004c0| 61 64 5f 6d 6f 64 65 6d | 28 65 78 74 72 61 29 0a |ad_modem|(extra).|
|000004d0| 58 63 68 61 72 20 2a 65 | 78 74 72 61 3b 0a 58 7b |Xchar *e|xtra;.X{|
|000004e0| 0a 58 09 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |.X.exter|n char *|
|000004f0| 6e 75 6c 6c 5f 70 74 72 | 3b 0a 58 09 46 49 4c 45 |null_ptr|;.X.FILE|
|00000500| 20 2a 66 70 2c 20 2a 6d | 79 5f 66 6f 70 65 6e 28 | *fp, *m|y_fopen(|
|00000510| 29 3b 0a 58 09 69 6e 74 | 20 69 2c 20 74 74 79 2c |);.X.int| i, tty,|
|00000520| 20 6d 6f 64 2c 20 6c 69 | 6e 65 2c 20 6f 6f 70 73 | mod, li|ne, oops|
|00000530| 2c 20 6d 5f 6c 69 6e 65 | 2c 20 73 74 61 72 74 2c |, m_line|, start,|
|00000540| 20 73 74 6f 70 3b 0a 58 | 09 63 68 61 72 20 2a 73 | stop;.X|.char *s|
|00000550| 74 72 64 75 70 28 29 2c | 20 62 75 66 5b 32 30 30 |trdup(),| buf[200|
|00000560| 5d 2c 20 6d 65 73 73 61 | 67 65 5b 38 30 5d 2c 20 |], messa|ge[80], |
|00000570| 74 6f 6b 65 6e 5b 34 30 | 5d 2c 20 2a 73 74 72 5f |token[40|], *str_|
|00000580| 74 6f 6b 28 29 2c 20 2a | 73 74 72 3b 0a 58 09 63 |tok(), *|str;.X.c|
|00000590| 68 61 72 20 2a 74 65 6d | 70 5f 74 6f 6b 65 6e 2c |har *tem|p_token,|
|000005a0| 20 2a 74 5f 73 65 70 2c | 20 2a 6d 5f 73 65 70 2c | *t_sep,| *m_sep,|
|000005b0| 20 2a 6d 5f 6c 65 74 74 | 65 72 2c 20 2a 66 69 6e | *m_lett|er, *fin|
|000005c0| 64 66 69 6c 65 28 29 3b | 0a 58 09 73 74 61 74 69 |dfile();|.X.stati|
|000005d0| 63 20 73 74 72 75 63 74 | 20 4d 4f 44 45 4d 20 6d |c struct| MODEM m|
|000005e0| 3b 0a 58 09 76 6f 69 64 | 20 65 72 72 6f 72 5f 77 |;.X.void| error_w|
|000005f0| 69 6e 28 29 3b 0a 58 0a | 58 09 69 66 20 28 28 6d |in();.X.|X.if ((m|
|00000600| 2e 6d 5f 70 61 74 68 20 | 3d 20 66 69 6e 64 66 69 |.m_path |= findfi|
|00000610| 6c 65 28 65 78 74 72 61 | 2c 20 22 70 63 6f 6d 6d |le(extra|, "pcomm|
|00000620| 2e 6d 6f 64 65 6d 22 29 | 29 20 3d 3d 20 4e 55 4c |.modem")|) == NUL|
|00000630| 4c 29 0a 58 09 09 65 72 | 72 6f 72 5f 77 69 6e 28 |L).X..er|ror_win(|
|00000640| 31 2c 20 22 53 75 70 70 | 6f 72 74 20 66 69 6c 65 |1, "Supp|ort file|
|00000650| 20 27 70 63 6f 6d 6d 2e | 6d 6f 64 65 6d 27 20 69 | 'pcomm.|modem' i|
|00000660| 73 20 6d 69 73 73 69 6e | 67 22 2c 20 22 6f 72 20 |s missin|g", "or |
|00000670| 6e 6f 20 72 65 61 64 20 | 70 65 72 6d 69 73 73 69 |no read |permissi|
|00000680| 6f 6e 22 29 3b 0a 58 09 | 09 09 09 09 2f 2a 20 72 |on");.X.|..../* r|
|00000690| 65 61 64 20 70 65 72 6d | 69 73 73 69 6f 6e 20 63 |ead perm|ission c|
|000006a0| 68 65 63 6b 65 64 20 2a | 2f 0a 58 09 66 70 20 3d |hecked *|/.X.fp =|
|000006b0| 20 6d 79 5f 66 6f 70 65 | 6e 28 6d 2e 6d 5f 70 61 | my_fope|n(m.m_pa|
|000006c0| 74 68 2c 20 22 72 22 29 | 3b 0a 58 0a 58 09 74 5f |th, "r")|;.X.X.t_|
|000006d0| 73 65 70 20 3d 20 22 3b | 3b 5c 6e 22 3b 0a 58 09 |sep = ";|;\n";.X.|
|000006e0| 6d 5f 73 65 70 20 3d 20 | 22 3b 3b 3b 3b 5c 6e 3b |m_sep = |";;;;\n;|
|000006f0| 3b 3b 3b 3b 3b 5c 6e 3b | 3b 3b 5c 6e 22 3b 0a 58 |;;;;;\n;|;;\n";.X|
|00000700| 09 6d 5f 6c 65 74 74 65 | 72 20 3d 20 22 61 62 63 |.m_lette|r = "abc|
|00000710| 22 3b 0a 58 09 6f 6f 70 | 73 20 3d 20 30 3b 0a 58 |";.X.oop|s = 0;.X|
|00000720| 09 74 74 79 20 3d 20 30 | 3b 0a 58 09 6d 6f 64 20 |.tty = 0|;.X.mod |
|00000730| 3d 20 30 3b 0a 58 09 6c | 69 6e 65 20 3d 20 30 3b |= 0;.X.l|ine = 0;|
|00000740| 0a 58 09 6d 5f 6c 69 6e | 65 20 3d 20 30 3b 0a 58 |.X.m_lin|e = 0;.X|
|00000750| 09 77 68 69 6c 65 20 28 | 66 67 65 74 73 28 62 75 |.while (|fgets(bu|
|00000760| 66 2c 20 32 30 30 2c 20 | 66 70 29 20 21 3d 20 4e |f, 200, |fp) != N|
|00000770| 55 4c 4c 29 20 7b 0a 58 | 09 09 6c 69 6e 65 2b 2b |ULL) {.X|..line++|
|00000780| 3b 0a 58 09 09 69 66 20 | 28 74 74 79 20 3e 3d 20 |;.X..if |(tty >= |
|00000790| 4e 55 4d 5f 54 54 59 20 | 7c 7c 20 6d 6f 64 20 3e |NUM_TTY ||| mod >|
|000007a0| 3d 20 4e 55 4d 5f 4d 4f | 44 45 4d 29 0a 58 09 09 |= NUM_MO|DEM).X..|
|000007b0| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 09 09 2f 2a |.break;.|X...../*|
|000007c0| 20 67 65 74 20 74 68 65 | 20 74 6f 6b 65 6e 20 2a | get the| token *|
|000007d0| 2f 0a 58 09 09 69 66 20 | 28 21 28 74 65 6d 70 5f |/.X..if |(!(temp_|
|000007e0| 74 6f 6b 65 6e 20 3d 20 | 73 74 72 5f 74 6f 6b 28 |token = |str_tok(|
|000007f0| 62 75 66 2c 20 27 3d 27 | 29 29 29 20 7b 0a 58 09 |buf, '='|))) {.X.|
|00000800| 09 09 73 70 72 69 6e 74 | 66 28 6d 65 73 73 61 67 |..sprint|f(messag|
|00000810| 65 2c 20 22 69 73 20 6d | 69 73 73 69 6e 67 20 61 |e, "is m|issing a|
|00000820| 20 74 6f 6b 65 6e 20 61 | 74 20 6c 69 6e 65 20 25 | token a|t line %|
|00000830| 64 22 2c 20 6c 69 6e 65 | 29 3b 0a 58 09 09 09 6f |d", line|);.X...o|
|00000840| 6f 70 73 2b 2b 3b 0a 58 | 09 09 09 62 72 65 61 6b |ops++;.X|...break|
|00000850| 3b 0a 58 09 09 7d 0a 58 | 09 09 69 66 20 28 2a 74 |;.X..}.X|..if (*t|
|00000860| 65 6d 70 5f 74 6f 6b 65 | 6e 20 21 3d 20 27 54 27 |emp_toke|n != 'T'|
|00000870| 20 26 26 20 2a 74 65 6d | 70 5f 74 6f 6b 65 6e 20 | && *tem|p_token |
|00000880| 21 3d 20 27 4d 27 29 20 | 7b 0a 58 09 09 09 73 70 |!= 'M') |{.X...sp|
|00000890| 72 69 6e 74 66 28 6d 65 | 73 73 61 67 65 2c 20 22 |rintf(me|ssage, "|
|000008a0| 69 73 20 63 6f 72 72 75 | 70 74 65 64 20 61 74 20 |is corru|pted at |
|000008b0| 6c 69 6e 65 20 25 64 22 | 2c 20 6c 69 6e 65 29 3b |line %d"|, line);|
|000008c0| 0a 58 09 09 09 6f 6f 70 | 73 2b 2b 3b 0a 58 09 09 |.X...oop|s++;.X..|
|000008d0| 09 62 72 65 61 6b 3b 0a | 58 09 09 7d 0a 58 09 09 |.break;.|X..}.X..|
|000008e0| 09 09 09 2f 2a 20 74 68 | 65 20 54 54 59 20 64 61 |.../* th|e TTY da|
|000008f0| 74 61 62 61 73 65 20 2a | 2f 0a 58 09 09 69 66 20 |tabase *|/.X..if |
|00000900| 28 2a 74 65 6d 70 5f 74 | 6f 6b 65 6e 20 3d 3d 20 |(*temp_t|oken == |
|00000910| 27 54 27 29 20 7b 0a 58 | 09 09 09 2f 2a 0a 58 09 |'T') {.X|.../*.X.|
|00000920| 09 09 20 2a 20 54 68 69 | 73 20 69 73 20 73 69 6d |.. * Thi|s is sim|
|00000930| 69 6c 61 72 20 74 6f 20 | 74 68 65 20 22 72 65 61 |ilar to |the "rea|
|00000940| 6c 22 20 73 74 72 74 6f | 6b 28 29 20 63 6f 6d 6d |l" strto|k() comm|
|00000950| 61 6e 64 0a 58 09 09 09 | 20 2a 20 62 75 74 20 74 |and.X...| * but t|
|00000960| 68 69 73 20 6f 6e 65 20 | 72 65 74 75 72 6e 73 20 |his one |returns |
|00000970| 61 20 6e 75 6c 6c 20 70 | 6f 69 6e 74 65 72 20 6f |a null p|ointer o|
|00000980| 6e 20 61 20 6d 69 73 73 | 69 6e 67 0a 58 09 09 09 |n a miss|ing.X...|
|00000990| 20 2a 20 61 74 74 72 69 | 62 75 74 65 2e 20 20 4e | * attri|bute. N|
|000009a0| 6f 74 65 20 74 68 65 20 | 75 73 65 20 6f 66 20 74 |ote the |use of t|
|000009b0| 68 65 20 66 69 65 6c 64 | 20 73 65 70 61 72 61 74 |he field| separat|
|000009c0| 6f 72 0a 58 09 09 09 20 | 2a 20 61 72 72 61 79 2e |or.X... |* array.|
|000009d0| 0a 58 09 09 09 20 2a 2f | 0a 58 09 09 09 66 6f 72 |.X... */|.X...for|
|000009e0| 20 28 69 3d 30 3b 20 69 | 3c 33 3b 20 69 2b 2b 29 | (i=0; i|<3; i++)|
|000009f0| 20 7b 0a 58 09 09 09 09 | 69 66 20 28 21 28 73 74 | {.X....|if (!(st|
|00000a00| 72 20 3d 20 73 74 72 5f | 74 6f 6b 28 28 63 68 61 |r = str_|tok((cha|
|00000a10| 72 20 2a 29 20 4e 55 4c | 4c 2c 20 74 5f 73 65 70 |r *) NUL|L, t_sep|
|00000a20| 5b 69 5d 29 29 29 20 7b | 0a 58 09 09 09 09 09 73 |[i]))) {|.X.....s|
|00000a30| 70 72 69 6e 74 66 28 6d | 65 73 73 61 67 65 2c 20 |printf(m|essage, |
|00000a40| 22 69 73 20 6d 69 73 73 | 69 6e 67 20 61 20 70 61 |"is miss|ing a pa|
|00000a50| 72 61 6d 65 74 65 72 20 | 61 74 20 6c 69 6e 65 20 |rameter |at line |
|00000a60| 25 64 22 2c 20 6c 69 6e | 65 29 3b 0a 58 09 09 09 |%d", lin|e);.X...|
|00000a70| 09 09 6f 6f 70 73 2b 2b | 3b 0a 58 09 09 09 09 09 |..oops++|;.X.....|
|00000a80| 62 72 65 61 6b 3b 0a 58 | 09 09 09 09 7d 0a 58 09 |break;.X|....}.X.|
|00000a90| 09 09 09 73 77 69 74 63 | 68 20 28 69 29 20 7b 0a |...switc|h (i) {.|
|00000aa0| 58 09 09 09 09 09 63 61 | 73 65 20 30 3a 0a 58 09 |X.....ca|se 0:.X.|
|00000ab0| 09 09 09 09 09 6d 2e 74 | 74 79 5b 74 74 79 5d 20 |.....m.t|ty[tty] |
|00000ac0| 3d 20 73 74 72 64 75 70 | 28 73 74 72 29 3b 0a 58 |= strdup|(str);.X|
|00000ad0| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |......br|eak;.X..|
|00000ae0| 09 09 09 63 61 73 65 20 | 31 3a 0a 58 09 09 09 09 |...case |1:.X....|
|00000af0| 09 09 6d 2e 74 6e 61 6d | 65 5b 74 74 79 5d 20 3d |..m.tnam|e[tty] =|
|00000b00| 20 73 74 72 64 75 70 28 | 73 74 72 29 3b 0a 58 09 | strdup(|str);.X.|
|00000b10| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|00000b20| 09 09 63 61 73 65 20 32 | 3a 0a 58 09 09 09 09 09 |..case 2|:.X.....|
|00000b30| 09 6d 2e 69 6e 69 74 5f | 73 70 5b 74 74 79 5d 20 |.m.init_|sp[tty] |
|00000b40| 3d 20 61 74 6f 69 28 73 | 74 72 29 3b 0a 58 09 09 |= atoi(s|tr);.X..|
|00000b50| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 09 09 |....brea|k;.X....|
|00000b60| 7d 0a 58 09 09 09 7d 0a | 58 09 09 09 69 66 20 28 |}.X...}.|X...if (|
|00000b70| 6f 6f 70 73 29 0a 58 09 | 09 09 09 62 72 65 61 6b |oops).X.|...break|
|00000b80| 3b 0a 58 09 09 09 09 09 | 2f 2a 20 73 61 6e 69 74 |;.X.....|/* sanit|
|00000b90| 79 20 63 68 65 63 6b 69 | 6e 67 20 2a 2f 0a 58 09 |y checki|ng */.X.|
|00000ba0| 09 09 73 70 72 69 6e 74 | 66 28 74 6f 6b 65 6e 2c |..sprint|f(token,|
|00000bb0| 20 22 54 54 59 5f 25 64 | 22 2c 20 74 74 79 2b 31 | "TTY_%d|", tty+1|
|00000bc0| 29 3b 0a 58 09 09 09 69 | 66 20 28 73 74 72 63 6d |);.X...i|f (strcm|
|00000bd0| 70 28 74 6f 6b 65 6e 2c | 20 74 65 6d 70 5f 74 6f |p(token,| temp_to|
|00000be0| 6b 65 6e 29 29 20 7b 0a | 58 09 09 09 09 73 70 72 |ken)) {.|X....spr|
|00000bf0| 69 6e 74 66 28 6d 65 73 | 73 61 67 65 2c 20 22 69 |intf(mes|sage, "i|
|00000c00| 73 20 63 6f 72 72 75 70 | 74 65 64 20 61 74 20 6c |s corrup|ted at l|
|00000c10| 69 6e 65 20 25 64 22 2c | 20 6c 69 6e 65 29 3b 0a |ine %d",| line);.|
|00000c20| 58 09 09 09 09 6f 6f 70 | 73 2b 2b 3b 0a 58 09 09 |X....oop|s++;.X..|
|00000c30| 09 09 62 72 65 61 6b 3b | 0a 58 09 09 09 7d 0a 58 |..break;|.X...}.X|
|00000c40| 09 09 09 74 74 79 2b 2b | 3b 0a 58 09 09 09 63 6f |...tty++|;.X...co|
|00000c50| 6e 74 69 6e 75 65 3b 0a | 58 09 09 7d 0a 58 09 09 |ntinue;.|X..}.X..|
|00000c60| 09 09 09 2f 2a 20 74 68 | 65 20 6d 6f 64 65 6d 20 |.../* th|e modem |
|00000c70| 64 61 74 61 62 61 73 65 | 20 2a 2f 0a 58 09 09 65 |database| */.X..e|
|00000c80| 6c 73 65 20 7b 0a 58 09 | 09 09 73 70 72 69 6e 74 |lse {.X.|..sprint|
|00000c90| 66 28 74 6f 6b 65 6e 2c | 20 22 4d 4f 44 45 4d 5f |f(token,| "MODEM_|
|00000ca0| 25 64 25 63 22 2c 20 6d | 6f 64 2b 31 2c 20 6d 5f |%d%c", m|od+1, m_|
|00000cb0| 6c 65 74 74 65 72 5b 6d | 5f 6c 69 6e 65 5d 29 3b |letter[m|_line]);|
|00000cc0| 0a 58 09 09 09 69 66 20 | 28 73 74 72 63 6d 70 28 |.X...if |(strcmp(|
|00000cd0| 74 6f 6b 65 6e 2c 20 74 | 65 6d 70 5f 74 6f 6b 65 |token, t|emp_toke|
|00000ce0| 6e 29 29 20 7b 0a 58 09 | 09 09 09 73 70 72 69 6e |n)) {.X.|...sprin|
|00000cf0| 74 66 28 6d 65 73 73 61 | 67 65 2c 20 22 69 73 20 |tf(messa|ge, "is |
|00000d00| 63 6f 72 72 75 70 74 65 | 64 20 61 74 20 6c 69 6e |corrupte|d at lin|
|00000d10| 65 20 25 64 22 2c 20 6c | 69 6e 65 29 3b 0a 58 09 |e %d", l|ine);.X.|
|00000d20| 09 09 09 6f 6f 70 73 2b | 2b 3b 0a 58 09 09 09 09 |...oops+|+;.X....|
|00000d30| 62 72 65 61 6b 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |break;.X|...}.X..|
|00000d40| 09 2f 2a 0a 58 09 09 09 | 20 2a 20 54 68 65 72 65 |./*.X...| * There|
|00000d50| 20 61 72 65 20 74 68 72 | 65 65 20 6c 69 6e 65 73 | are thr|ee lines|
|00000d60| 20 74 6f 20 74 68 65 20 | 6d 6f 64 65 6d 20 64 61 | to the |modem da|
|00000d70| 74 61 62 61 73 65 2e 20 | 20 54 68 65 79 0a 58 09 |tabase. | They.X.|
|00000d80| 09 09 20 2a 20 61 72 65 | 20 64 69 73 74 69 6e 67 |.. * are| disting|
|00000d90| 75 69 73 68 65 64 20 62 | 79 20 74 68 65 20 6c 65 |uished b|y the le|
|00000da0| 74 74 65 72 73 20 61 2c | 20 62 2c 20 61 6e 64 2c |tters a,| b, and,|
|00000db0| 20 63 0a 58 09 09 09 20 | 2a 20 61 70 70 65 6e 64 | c.X... |* append|
|00000dc0| 65 64 20 74 6f 20 74 68 | 65 20 65 6e 74 72 79 20 |ed to th|e entry |
|00000dd0| 6e 75 6d 62 65 72 2e 0a | 58 09 09 09 20 2a 2f 0a |number..|X... */.|
|00000de0| 58 09 09 09 73 77 69 74 | 63 68 20 28 6d 5f 6c 69 |X...swit|ch (m_li|
|00000df0| 6e 65 29 20 7b 0a 58 09 | 09 09 09 63 61 73 65 20 |ne) {.X.|...case |
|00000e00| 30 3a 0a 58 09 09 09 09 | 09 73 74 61 72 74 20 3d |0:.X....|.start =|
|00000e10| 20 30 3b 0a 58 09 09 09 | 09 09 73 74 6f 70 20 3d | 0;.X...|..stop =|
|00000e20| 20 35 3b 0a 58 09 09 09 | 09 09 62 72 65 61 6b 3b | 5;.X...|..break;|
|00000e30| 0a 58 09 09 09 09 63 61 | 73 65 20 31 3a 0a 58 09 |.X....ca|se 1:.X.|
|00000e40| 09 09 09 09 73 74 61 72 | 74 20 3d 20 35 3b 0a 58 |....star|t = 5;.X|
|00000e50| 09 09 09 09 09 73 74 6f | 70 20 3d 20 31 32 3b 0a |.....sto|p = 12;.|
|00000e60| 58 09 09 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |X.....br|eak;.X..|
|00000e70| 09 09 63 61 73 65 20 32 | 3a 0a 58 09 09 09 09 09 |..case 2|:.X.....|
|00000e80| 73 74 61 72 74 20 3d 20 | 31 32 3b 0a 58 09 09 09 |start = |12;.X...|
|00000e90| 09 09 73 74 6f 70 20 3d | 20 31 36 3b 0a 58 09 09 |..stop =| 16;.X..|
|00000ea0| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 7d 0a |...break|;.X...}.|
|00000eb0| 58 09 09 09 66 6f 72 20 | 28 69 3d 73 74 61 72 74 |X...for |(i=start|
|00000ec0| 3b 20 69 3c 73 74 6f 70 | 3b 20 69 2b 2b 29 20 7b |; i<stop|; i++) {|
|00000ed0| 0a 58 09 09 09 09 69 66 | 20 28 21 28 73 74 72 20 |.X....if| (!(str |
|00000ee0| 3d 20 73 74 72 5f 74 6f | 6b 28 28 63 68 61 72 20 |= str_to|k((char |
|00000ef0| 2a 29 20 4e 55 4c 4c 2c | 20 6d 5f 73 65 70 5b 69 |*) NULL,| m_sep[i|
|00000f00| 5d 29 29 29 20 7b 0a 58 | 09 09 09 09 09 73 70 72 |]))) {.X|.....spr|
|00000f10| 69 6e 74 66 28 6d 65 73 | 73 61 67 65 2c 20 22 69 |intf(mes|sage, "i|
|00000f20| 73 20 6d 69 73 73 69 6e | 67 20 61 20 70 61 72 61 |s missin|g a para|
|00000f30| 6d 65 74 65 72 20 61 74 | 20 6c 69 6e 65 20 25 64 |meter at| line %d|
|00000f40| 22 2c 20 6c 69 6e 65 29 | 3b 0a 58 09 09 09 09 09 |", line)|;.X.....|
|00000f50| 6f 6f 70 73 2b 2b 3b 0a | 58 09 09 09 09 09 62 72 |oops++;.|X.....br|
|00000f60| 65 61 6b 3b 0a 58 09 09 | 09 09 7d 0a 58 09 09 09 |eak;.X..|..}.X...|
|00000f70| 09 73 77 69 74 63 68 20 | 28 69 29 20 7b 0a 58 09 |.switch |(i) {.X.|
|00000f80| 09 09 09 09 63 61 73 65 | 20 30 3a 0a 58 09 09 09 |....case| 0:.X...|
|00000f90| 09 09 09 6d 2e 6d 6e 61 | 6d 65 5b 6d 6f 64 5d 20 |...m.mna|me[mod] |
|00000fa0| 3d 20 73 74 72 64 75 70 | 28 73 74 72 29 3b 0a 58 |= strdup|(str);.X|
|00000fb0| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |......br|eak;.X..|
|00000fc0| 09 09 09 63 61 73 65 20 | 31 3a 0a 58 09 09 09 09 |...case |1:.X....|
|00000fd0| 09 09 6d 2e 69 6e 69 74 | 5b 6d 6f 64 5d 20 3d 20 |..m.init|[mod] = |
|00000fe0| 73 74 72 64 75 70 28 73 | 74 72 29 3b 0a 58 09 09 |strdup(s|tr);.X..|
|00000ff0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 09 09 |....brea|k;.X....|
|00001000| 09 63 61 73 65 20 32 3a | 0a 58 09 09 09 09 09 09 |.case 2:|.X......|
|00001010| 6d 2e 64 69 61 6c 5b 6d | 6f 64 5d 20 3d 20 73 74 |m.dial[m|od] = st|
|00001020| 72 64 75 70 28 73 74 72 | 29 3b 0a 58 09 09 09 09 |rdup(str|);.X....|
|00001030| 09 09 62 72 65 61 6b 3b | 0a 58 09 09 09 09 09 63 |..break;|.X.....c|
|00001040| 61 73 65 20 33 3a 0a 58 | 09 09 09 09 09 09 6d 2e |ase 3:.X|......m.|
|00001050| 73 75 66 66 69 78 5b 6d | 6f 64 5d 20 3d 20 73 74 |suffix[m|od] = st|
|00001060| 72 64 75 70 28 73 74 72 | 29 3b 0a 58 09 09 09 09 |rdup(str|);.X....|
|00001070| 09 09 62 72 65 61 6b 3b | 0a 58 09 09 09 09 09 63 |..break;|.X.....c|
|00001080| 61 73 65 20 34 3a 0a 58 | 09 09 09 09 09 09 6d 2e |ase 4:.X|......m.|
|00001090| 68 61 6e 67 5f 75 70 5b | 6d 6f 64 5d 20 3d 20 73 |hang_up[|mod] = s|
|000010a0| 74 72 64 75 70 28 73 74 | 72 29 3b 0a 58 09 09 09 |trdup(st|r);.X...|
|000010b0| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 09 09 |...break|;.X.....|
|000010c0| 63 61 73 65 20 35 3a 0a | 58 09 09 09 09 09 09 6d |case 5:.|X......m|
|000010d0| 2e 61 75 74 6f 5f 62 61 | 75 64 5b 6d 6f 64 5d 20 |.auto_ba|ud[mod] |
|000010e0| 3d 20 2a 73 74 72 3b 0a | 58 09 09 09 09 09 09 62 |= *str;.|X......b|
|000010f0| 72 65 61 6b 3b 0a 58 09 | 09 09 09 09 63 61 73 65 |reak;.X.|....case|
|00001100| 20 36 3a 0a 58 09 09 09 | 09 09 09 6d 2e 63 6f 6e | 6:.X...|...m.con|
|00001110| 5f 33 5b 6d 6f 64 5d 20 | 3d 20 73 74 72 64 75 70 |_3[mod] |= strdup|
|00001120| 28 73 74 72 29 3b 0a 58 | 09 09 09 09 09 09 62 72 |(str);.X|......br|
|00001130| 65 61 6b 3b 0a 58 09 09 | 09 09 09 63 61 73 65 20 |eak;.X..|...case |
|00001140| 37 3a 0a 58 09 09 09 09 | 09 09 6d 2e 63 6f 6e 5f |7:.X....|..m.con_|
|00001150| 31 32 5b 6d 6f 64 5d 20 | 3d 20 73 74 72 64 75 70 |12[mod] |= strdup|
|00001160| 28 73 74 72 29 3b 0a 58 | 09 09 09 09 09 09 62 72 |(str);.X|......br|
|00001170| 65 61 6b 3b 0a 58 09 09 | 09 09 09 63 61 73 65 20 |eak;.X..|...case |
|00001180| 38 3a 0a 58 09 09 09 09 | 09 09 6d 2e 63 6f 6e 5f |8:.X....|..m.con_|
|00001190| 32 34 5b 6d 6f 64 5d 20 | 3d 20 73 74 72 64 75 70 |24[mod] |= strdup|
|000011a0| 28 73 74 72 29 3b 0a 58 | 09 09 09 09 09 09 62 72 |(str);.X|......br|
|000011b0| 65 61 6b 3b 0a 58 09 09 | 09 09 09 63 61 73 65 20 |eak;.X..|...case |
|000011c0| 39 3a 0a 58 09 09 09 09 | 09 09 6d 2e 63 6f 6e 5f |9:.X....|..m.con_|
|000011d0| 34 38 5b 6d 6f 64 5d 20 | 3d 20 73 74 72 64 75 70 |48[mod] |= strdup|
|000011e0| 28 73 74 72 29 3b 0a 58 | 09 09 09 09 09 09 62 72 |(str);.X|......br|
|000011f0| 65 61 6b 3b 0a 58 09 09 | 09 09 09 63 61 73 65 20 |eak;.X..|...case |
|00001200| 31 30 3a 0a 58 09 09 09 | 09 09 09 6d 2e 63 6f 6e |10:.X...|...m.con|
|00001210| 5f 39 36 5b 6d 6f 64 5d | 20 3d 20 73 74 72 64 75 |_96[mod]| = strdu|
|00001220| 70 28 73 74 72 29 3b 0a | 58 09 09 09 09 09 09 62 |p(str);.|X......b|
|00001230| 72 65 61 6b 3b 0a 58 09 | 09 09 09 09 63 61 73 65 |reak;.X.|....case|
|00001240| 20 31 31 3a 0a 58 09 09 | 09 09 09 09 6d 2e 63 6f | 11:.X..|....m.co|
|00001250| 6e 5f 31 39 32 5b 6d 6f | 64 5d 20 3d 20 73 74 72 |n_192[mo|d] = str|
|00001260| 64 75 70 28 73 74 72 29 | 3b 0a 58 09 09 09 09 09 |dup(str)|;.X.....|
|00001270| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 09 09 63 61 |.break;.|X.....ca|
|00001280| 73 65 20 31 32 3a 0a 58 | 09 09 09 09 09 09 6d 2e |se 12:.X|......m.|
|00001290| 6e 6f 5f 63 6f 6e 31 5b | 6d 6f 64 5d 20 3d 20 73 |no_con1[|mod] = s|
|000012a0| 74 72 64 75 70 28 73 74 | 72 29 3b 0a 58 09 09 09 |trdup(st|r);.X...|
|000012b0| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 09 09 |...break|;.X.....|
|000012c0| 63 61 73 65 20 31 33 3a | 0a 58 09 09 09 09 09 09 |case 13:|.X......|
|000012d0| 6d 2e 6e 6f 5f 63 6f 6e | 32 5b 6d 6f 64 5d 20 3d |m.no_con|2[mod] =|
|000012e0| 20 73 74 72 64 75 70 28 | 73 74 72 29 3b 0a 58 09 | strdup(|str);.X.|
|000012f0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|00001300| 09 09 63 61 73 65 20 31 | 34 3a 0a 58 09 09 09 09 |..case 1|4:.X....|
|00001310| 09 09 6d 2e 6e 6f 5f 63 | 6f 6e 33 5b 6d 6f 64 5d |..m.no_c|on3[mod]|
|00001320| 20 3d 20 73 74 72 64 75 | 70 28 73 74 72 29 3b 0a | = strdu|p(str);.|
|00001330| 58 09 09 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 09 |X......b|reak;.X.|
|00001340| 09 09 09 09 63 61 73 65 | 20 31 35 3a 0a 58 09 09 |....case| 15:.X..|
|00001350| 09 09 09 09 6d 2e 6e 6f | 5f 63 6f 6e 34 5b 6d 6f |....m.no|_con4[mo|
|00001360| 64 5d 20 3d 20 73 74 72 | 64 75 70 28 73 74 72 29 |d] = str|dup(str)|
|00001370| 3b 0a 58 09 09 09 09 09 | 09 62 72 65 61 6b 3b 0a |;.X.....|.break;.|
|00001380| 58 09 09 09 09 7d 0a 58 | 09 09 09 7d 0a 58 09 09 |X....}.X|...}.X..|
|00001390| 09 69 66 20 28 6f 6f 70 | 73 29 0a 58 09 09 09 09 |.if (oop|s).X....|
|000013a0| 62 72 65 61 6b 3b 0a 58 | 09 09 09 6d 5f 6c 69 6e |break;.X|...m_lin|
|000013b0| 65 2b 2b 3b 0a 58 09 09 | 09 69 66 20 28 6d 5f 6c |e++;.X..|.if (m_l|
|000013c0| 69 6e 65 20 3e 3d 20 33 | 29 20 7b 0a 58 09 09 09 |ine >= 3|) {.X...|
|000013d0| 09 6d 5f 6c 69 6e 65 20 | 3d 20 30 3b 0a 58 09 09 |.m_line |= 0;.X..|
|000013e0| 09 09 6d 6f 64 2b 2b 3b | 0a 58 09 09 09 7d 0a 58 |..mod++;|.X...}.X|
|000013f0| 09 09 7d 0a 58 09 7d 0a | 58 09 66 63 6c 6f 73 65 |..}.X.}.|X.fclose|
|00001400| 28 66 70 29 3b 0a 58 0a | 58 09 69 66 20 28 6f 6f |(fp);.X.|X.if (oo|
|00001410| 70 73 29 20 7b 0a 58 09 | 09 73 70 72 69 6e 74 66 |ps) {.X.|.sprintf|
|00001420| 28 62 75 66 2c 20 22 4d | 6f 64 65 6d 2f 54 54 59 |(buf, "M|odem/TTY|
|00001430| 20 64 61 74 61 62 61 73 | 65 20 66 69 6c 65 20 27 | databas|e file '|
|00001440| 25 73 27 22 2c 20 6d 2e | 6d 5f 70 61 74 68 29 3b |%s'", m.|m_path);|
|00001450| 0a 58 09 09 65 72 72 6f | 72 5f 77 69 6e 28 31 2c |.X..erro|r_win(1,|
|00001460| 20 62 75 66 2c 20 6d 65 | 73 73 61 67 65 29 3b 0a | buf, me|ssage);.|
|00001470| 58 09 7d 0a 58 09 6d 2e | 74 5f 65 6e 74 72 69 65 |X.}.X.m.|t_entrie|
|00001480| 73 20 3d 20 74 74 79 3b | 0a 58 09 6d 2e 6d 5f 65 |s = tty;|.X.m.m_e|
|00001490| 6e 74 72 69 65 73 20 3d | 20 6d 6f 64 3b 0a 58 09 |ntries =| mod;.X.|
|000014a0| 6d 2e 74 5f 63 75 72 20 | 3d 20 2d 31 3b 0a 58 09 |m.t_cur |= -1;.X.|
|000014b0| 6d 2e 6d 5f 63 75 72 20 | 3d 20 2d 31 3b 0a 58 09 |m.m_cur |= -1;.X.|
|000014c0| 09 09 09 09 2f 2a 20 69 | 66 20 65 6d 70 74 79 20 |..../* i|f empty |
|000014d0| 64 61 74 61 62 61 73 65 | 20 2a 2f 0a 58 09 69 66 |database| */.X.if|
|000014e0| 20 28 21 74 74 79 29 20 | 7b 0a 58 09 09 73 70 72 | (!tty) |{.X..spr|
|000014f0| 69 6e 74 66 28 62 75 66 | 2c 20 22 4d 6f 64 65 6d |intf(buf|, "Modem|
|00001500| 2f 54 54 59 20 64 61 74 | 61 62 61 73 65 20 66 69 |/TTY dat|abase fi|
|00001510| 6c 65 20 27 25 73 27 22 | 2c 20 6d 2e 6d 5f 70 61 |le '%s'"|, m.m_pa|
|00001520| 74 68 29 3b 0a 58 09 09 | 65 72 72 6f 72 5f 77 69 |th);.X..|error_wi|
|00001530| 6e 28 30 2c 20 62 75 66 | 2c 20 22 68 61 73 20 6e |n(0, buf|, "has n|
|00001540| 6f 20 54 54 59 20 64 61 | 74 61 22 29 3b 0a 58 09 |o TTY da|ta");.X.|
|00001550| 7d 0a 58 09 69 66 20 28 | 21 6d 6f 64 29 20 7b 0a |}.X.if (|!mod) {.|
|00001560| 58 09 09 73 70 72 69 6e | 74 66 28 62 75 66 2c 20 |X..sprin|tf(buf, |
|00001570| 22 4d 6f 64 65 6d 2f 54 | 54 59 20 64 61 74 61 62 |"Modem/T|TY datab|
|00001580| 61 73 65 20 66 69 6c 65 | 20 27 25 73 27 22 2c 20 |ase file| '%s'", |
|00001590| 6d 2e 6d 5f 70 61 74 68 | 29 3b 0a 58 09 09 65 72 |m.m_path|);.X..er|
|000015a0| 72 6f 72 5f 77 69 6e 28 | 30 2c 20 62 75 66 2c 20 |ror_win(|0, buf, |
|000015b0| 22 68 61 73 20 6e 6f 20 | 6d 6f 64 65 6d 20 64 61 |"has no |modem da|
|000015c0| 74 61 22 29 3b 0a 58 09 | 7d 0a 58 09 09 09 09 09 |ta");.X.|}.X.....|
|000015d0| 2f 2a 20 66 69 6c 6c 20 | 69 6e 20 74 68 65 20 72 |/* fill |in the r|
|000015e0| 65 73 74 20 2a 2f 0a 58 | 09 66 6f 72 20 28 3b 20 |est */.X|.for (; |
|000015f0| 74 74 79 3c 4e 55 4d 5f | 54 54 59 3b 20 74 74 79 |tty<NUM_|TTY; tty|
|00001600| 2b 2b 29 20 7b 0a 58 09 | 09 6d 2e 74 74 79 5b 74 |++) {.X.|.m.tty[t|
|00001610| 74 79 5d 20 3d 20 6e 75 | 6c 6c 5f 70 74 72 3b 0a |ty] = nu|ll_ptr;.|
|00001620| 58 09 09 6d 2e 74 6e 61 | 6d 65 5b 74 74 79 5d 20 |X..m.tna|me[tty] |
|00001630| 3d 20 6e 75 6c 6c 5f 70 | 74 72 3b 0a 58 09 09 6d |= null_p|tr;.X..m|
|00001640| 2e 69 6e 69 74 5f 73 70 | 5b 74 74 79 5d 20 3d 20 |.init_sp|[tty] = |
|00001650| 30 3b 0a 58 09 7d 0a 58 | 09 66 6f 72 20 28 3b 20 |0;.X.}.X|.for (; |
|00001660| 6d 6f 64 3c 4e 55 4d 5f | 4d 4f 44 45 4d 3b 20 6d |mod<NUM_|MODEM; m|
|00001670| 6f 64 2b 2b 29 20 7b 0a | 58 09 09 6d 2e 6d 6e 61 |od++) {.|X..m.mna|
|00001680| 6d 65 5b 6d 6f 64 5d 20 | 3d 20 6e 75 6c 6c 5f 70 |me[mod] |= null_p|
|00001690| 74 72 3b 0a 58 09 09 6d | 2e 69 6e 69 74 5b 6d 6f |tr;.X..m|.init[mo|
|000016a0| 64 5d 20 3d 20 6e 75 6c | 6c 5f 70 74 72 3b 0a 58 |d] = nul|l_ptr;.X|
|000016b0| 09 09 6d 2e 64 69 61 6c | 5b 6d 6f 64 5d 20 3d 20 |..m.dial|[mod] = |
|000016c0| 6e 75 6c 6c 5f 70 74 72 | 3b 0a 58 09 09 6d 2e 73 |null_ptr|;.X..m.s|
|000016d0| 75 66 66 69 78 5b 6d 6f | 64 5d 20 3d 20 6e 75 6c |uffix[mo|d] = nul|
|000016e0| 6c 5f 70 74 72 3b 0a 58 | 09 09 6d 2e 68 61 6e 67 |l_ptr;.X|..m.hang|
|000016f0| 5f 75 70 5b 6d 6f 64 5d | 20 3d 20 6e 75 6c 6c 5f |_up[mod]| = null_|
|00001700| 70 74 72 3b 0a 58 0a 58 | 09 09 6d 2e 61 75 74 6f |ptr;.X.X|..m.auto|
|00001710| 5f 62 61 75 64 5b 6d 6f | 64 5d 20 3d 20 27 59 27 |_baud[mo|d] = 'Y'|
|00001720| 3b 0a 58 09 09 6d 2e 63 | 6f 6e 5f 33 5b 6d 6f 64 |;.X..m.c|on_3[mod|
|00001730| 5d 20 3d 20 6e 75 6c 6c | 5f 70 74 72 3b 0a 58 09 |] = null|_ptr;.X.|
|00001740| 09 6d 2e 63 6f 6e 5f 31 | 32 5b 6d 6f 64 5d 20 3d |.m.con_1|2[mod] =|
|00001750| 20 6e 75 6c 6c 5f 70 74 | 72 3b 0a 58 09 09 6d 2e | null_pt|r;.X..m.|
|00001760| 63 6f 6e 5f 32 34 5b 6d | 6f 64 5d 20 3d 20 6e 75 |con_24[m|od] = nu|
|00001770| 6c 6c 5f 70 74 72 3b 0a | 58 09 09 6d 2e 63 6f 6e |ll_ptr;.|X..m.con|
|00001780| 5f 34 38 5b 6d 6f 64 5d | 20 3d 20 6e 75 6c 6c 5f |_48[mod]| = null_|
|00001790| 70 74 72 3b 0a 58 09 09 | 6d 2e 63 6f 6e 5f 39 36 |ptr;.X..|m.con_96|
|000017a0| 5b 6d 6f 64 5d 20 3d 20 | 6e 75 6c 6c 5f 70 74 72 |[mod] = |null_ptr|
|000017b0| 3b 0a 58 09 09 6d 2e 63 | 6f 6e 5f 31 39 32 5b 6d |;.X..m.c|on_192[m|
|000017c0| 6f 64 5d 20 3d 20 6e 75 | 6c 6c 5f 70 74 72 3b 0a |od] = nu|ll_ptr;.|
|000017d0| 58 0a 58 09 09 6d 2e 6e | 6f 5f 63 6f 6e 31 5b 6d |X.X..m.n|o_con1[m|
|000017e0| 6f 64 5d 20 3d 20 6e 75 | 6c 6c 5f 70 74 72 3b 0a |od] = nu|ll_ptr;.|
|000017f0| 58 09 09 6d 2e 6e 6f 5f | 63 6f 6e 32 5b 6d 6f 64 |X..m.no_|con2[mod|
|00001800| 5d 20 3d 20 6e 75 6c 6c | 5f 70 74 72 3b 0a 58 09 |] = null|_ptr;.X.|
|00001810| 09 6d 2e 6e 6f 5f 63 6f | 6e 33 5b 6d 6f 64 5d 20 |.m.no_co|n3[mod] |
|00001820| 3d 20 6e 75 6c 6c 5f 70 | 74 72 3b 0a 58 09 09 6d |= null_p|tr;.X..m|
|00001830| 2e 6e 6f 5f 63 6f 6e 34 | 5b 6d 6f 64 5d 20 3d 20 |.no_con4|[mod] = |
|00001840| 6e 75 6c 6c 5f 70 74 72 | 3b 0a 58 09 7d 0a 58 09 |null_ptr|;.X.}.X.|
|00001850| 72 65 74 75 72 6e 28 26 | 6d 29 3b 0a 58 7d 0a 58 |return(&|m);.X}.X|
|00001860| 0a 58 2f 2a 0a 58 20 2a | 20 55 70 64 61 74 65 20 |.X/*.X *| Update |
|00001870| 74 68 65 20 6d 6f 64 65 | 6d 20 64 61 74 61 62 61 |the mode|m databa|
|00001880| 73 65 2e 20 20 4f 74 68 | 65 72 20 72 6f 75 74 69 |se. Oth|er routi|
|00001890| 6e 65 73 20 61 63 74 75 | 61 6c 6c 79 20 64 6f 20 |nes actu|ally do |
|000018a0| 74 68 65 20 63 68 61 6e | 67 65 73 0a 58 20 2a 20 |the chan|ges.X * |
|000018b0| 6f 72 20 64 65 6c 65 74 | 69 6f 6e 73 20 69 6e 20 |or delet|ions in |
|000018c0| 6d 65 6d 6f 72 79 2e 20 | 20 41 20 72 65 74 75 72 |memory. | A retur|
|000018d0| 6e 20 63 6f 64 65 20 6f | 66 20 31 20 6d 65 61 6e |n code o|f 1 mean|
|000018e0| 73 20 6e 6f 6e 2d 66 61 | 74 61 6c 20 65 72 72 6f |s non-fa|tal erro|
|000018f0| 72 2e 0a 58 20 2a 2f 0a | 58 0a 58 69 6e 74 0a 58 |r..X */.|X.Xint.X|
|00001900| 75 70 5f 6d 6f 64 65 6d | 28 29 0a 58 7b 0a 58 09 |up_modem|().X{.X.|
|00001910| 46 49 4c 45 20 2a 66 70 | 2c 20 2a 6d 79 5f 66 6f |FILE *fp|, *my_fo|
|00001920| 70 65 6e 28 29 3b 0a 58 | 09 63 68 61 72 20 62 75 |pen();.X|.char bu|
|00001930| 66 5b 38 30 5d 3b 0a 58 | 09 69 6e 74 20 69 3b 0a |f[80];.X|.int i;.|
|00001940| 58 09 76 6f 69 64 20 65 | 72 72 6f 72 5f 77 69 6e |X.void e|rror_win|
|00001950| 28 29 3b 0a 58 0a 58 09 | 09 09 09 09 2f 2a 20 6f |();.X.X.|..../* o|
|00001960| 70 65 6e 20 66 6f 72 20 | 77 72 69 74 65 20 2a 2f |pen for |write */|
|00001970| 0a 58 09 69 66 20 28 21 | 28 66 70 20 3d 20 6d 79 |.X.if (!|(fp = my|
|00001980| 5f 66 6f 70 65 6e 28 6d | 6f 64 65 6d 2d 3e 6d 5f |_fopen(m|odem->m_|
|00001990| 70 61 74 68 2c 20 22 77 | 22 29 29 29 20 7b 0a 58 |path, "w|"))) {.X|
|000019a0| 09 09 73 70 72 69 6e 74 | 66 28 62 75 66 2c 20 22 |..sprint|f(buf, "|
|000019b0| 27 25 73 27 22 2c 20 6d | 6f 64 65 6d 2d 3e 6d 5f |'%s'", m|odem->m_|
|000019c0| 70 61 74 68 29 3b 0a 58 | 09 09 65 72 72 6f 72 5f |path);.X|..error_|
|000019d0| 77 69 6e 28 30 2c 20 22 | 4e 6f 20 77 72 69 74 65 |win(0, "|No write|
|000019e0| 20 70 65 72 6d 69 73 73 | 69 6f 6e 20 6f 6e 20 6d | permiss|ion on m|
|000019f0| 6f 64 65 6d 2f 54 54 59 | 20 64 61 74 61 62 61 73 |odem/TTY| databas|
|00001a00| 65 20 66 69 6c 65 22 2c | 20 62 75 66 29 3b 0a 58 |e file",| buf);.X|
|00001a10| 09 09 72 65 74 75 72 6e | 28 31 29 3b 0a 58 09 7d |..return|(1);.X.}|
|00001a20| 0a 58 09 09 09 09 09 2f | 2a 20 70 75 74 20 62 61 |.X...../|* put ba|
|00001a30| 63 6b 20 74 68 65 20 54 | 54 59 20 65 6e 74 72 69 |ck the T|TY entri|
|00001a40| 65 73 20 2a 2f 0a 58 09 | 66 6f 72 20 28 69 3d 30 |es */.X.|for (i=0|
|00001a50| 3b 20 69 3c 6d 6f 64 65 | 6d 2d 3e 74 5f 65 6e 74 |; i<mode|m->t_ent|
|00001a60| 72 69 65 73 3b 20 69 2b | 2b 29 0a 58 09 09 66 70 |ries; i+|+).X..fp|
|00001a70| 72 69 6e 74 66 28 66 70 | 2c 20 22 54 54 59 5f 25 |rintf(fp|, "TTY_%|
|00001a80| 64 3d 25 73 3b 25 73 3b | 25 64 5c 6e 22 2c 20 69 |d=%s;%s;|%d\n", i|
|00001a90| 2b 31 2c 20 6d 6f 64 65 | 6d 2d 3e 74 74 79 5b 69 |+1, mode|m->tty[i|
|00001aa0| 5d 2c 0a 58 09 09 20 6d | 6f 64 65 6d 2d 3e 74 6e |],.X.. m|odem->tn|
|00001ab0| 61 6d 65 5b 69 5d 2c 20 | 6d 6f 64 65 6d 2d 3e 69 |ame[i], |modem->i|
|00001ac0| 6e 69 74 5f 73 70 5b 69 | 5d 29 3b 0a 58 0a 58 09 |nit_sp[i|]);.X.X.|
|00001ad0| 09 09 09 09 2f 2a 20 70 | 75 74 20 62 61 63 6b 20 |..../* p|ut back |
|00001ae0| 74 68 65 20 6d 6f 64 65 | 6d 20 65 6e 74 72 69 65 |the mode|m entrie|
|00001af0| 73 20 2a 2f 0a 58 09 66 | 6f 72 20 28 69 3d 30 3b |s */.X.f|or (i=0;|
|00001b00| 20 69 3c 6d 6f 64 65 6d | 2d 3e 6d 5f 65 6e 74 72 | i<modem|->m_entr|
|00001b10| 69 65 73 3b 20 69 2b 2b | 29 20 7b 0a 58 09 09 66 |ies; i++|) {.X..f|
|00001b20| 70 72 69 6e 74 66 28 66 | 70 2c 20 22 4d 4f 44 45 |printf(f|p, "MODE|
|00001b30| 4d 5f 25 64 61 3d 25 73 | 3b 25 73 3b 25 73 3b 25 |M_%da=%s|;%s;%s;%|
|00001b40| 73 3b 25 73 5c 6e 22 2c | 20 69 2b 31 2c 20 6d 6f |s;%s\n",| i+1, mo|
|00001b50| 64 65 6d 2d 3e 6d 6e 61 | 6d 65 5b 69 5d 2c 0a 58 |dem->mna|me[i],.X|
|00001b60| 09 09 20 6d 6f 64 65 6d | 2d 3e 69 6e 69 74 5b 69 |.. modem|->init[i|
|00001b70| 5d 2c 20 6d 6f 64 65 6d | 2d 3e 64 69 61 6c 5b 69 |], modem|->dial[i|
|00001b80| 5d 2c 20 6d 6f 64 65 6d | 2d 3e 73 75 66 66 69 78 |], modem|->suffix|
|00001b90| 5b 69 5d 2c 0a 58 09 09 | 20 6d 6f 64 65 6d 2d 3e |[i],.X..| modem->|
|00001ba0| 68 61 6e 67 5f 75 70 5b | 69 5d 29 3b 0a 58 0a 58 |hang_up[|i]);.X.X|
|00001bb0| 09 09 66 70 72 69 6e 74 | 66 28 66 70 2c 20 22 4d |..fprint|f(fp, "M|
|00001bc0| 4f 44 45 4d 5f 25 64 62 | 3d 25 63 3b 25 73 3b 25 |ODEM_%db|=%c;%s;%|
|00001bd0| 73 3b 25 73 3b 25 73 3b | 25 73 3b 25 73 5c 6e 22 |s;%s;%s;|%s;%s\n"|
|00001be0| 2c 20 69 2b 31 2c 0a 58 | 09 09 20 6d 6f 64 65 6d |, i+1,.X|.. modem|
|00001bf0| 2d 3e 61 75 74 6f 5f 62 | 61 75 64 5b 69 5d 2c 20 |->auto_b|aud[i], |
|00001c00| 6d 6f 64 65 6d 2d 3e 63 | 6f 6e 5f 33 5b 69 5d 2c |modem->c|on_3[i],|
|00001c10| 20 6d 6f 64 65 6d 2d 3e | 63 6f 6e 5f 31 32 5b 69 | modem->|con_12[i|
|00001c20| 5d 2c 0a 58 09 09 20 6d | 6f 64 65 6d 2d 3e 63 6f |],.X.. m|odem->co|
|00001c30| 6e 5f 32 34 5b 69 5d 2c | 20 6d 6f 64 65 6d 2d 3e |n_24[i],| modem->|
|00001c40| 63 6f 6e 5f 34 38 5b 69 | 5d 2c 20 6d 6f 64 65 6d |con_48[i|], modem|
|00001c50| 2d 3e 63 6f 6e 5f 39 36 | 5b 69 5d 2c 0a 58 09 09 |->con_96|[i],.X..|
|00001c60| 20 6d 6f 64 65 6d 2d 3e | 63 6f 6e 5f 31 39 32 5b | modem->|con_192[|
|00001c70| 69 5d 29 3b 0a 58 0a 58 | 09 09 66 70 72 69 6e 74 |i]);.X.X|..fprint|
|00001c80| 66 28 66 70 2c 20 22 4d | 4f 44 45 4d 5f 25 64 63 |f(fp, "M|ODEM_%dc|
|00001c90| 3d 25 73 3b 25 73 3b 25 | 73 3b 25 73 5c 6e 22 2c |=%s;%s;%|s;%s\n",|
|00001ca0| 20 69 2b 31 2c 20 6d 6f | 64 65 6d 2d 3e 6e 6f 5f | i+1, mo|dem->no_|
|00001cb0| 63 6f 6e 31 5b 69 5d 2c | 0a 58 09 09 20 6d 6f 64 |con1[i],|.X.. mod|
|00001cc0| 65 6d 2d 3e 6e 6f 5f 63 | 6f 6e 32 5b 69 5d 2c 20 |em->no_c|on2[i], |
|00001cd0| 6d 6f 64 65 6d 2d 3e 6e | 6f 5f 63 6f 6e 33 5b 69 |modem->n|o_con3[i|
|00001ce0| 5d 2c 20 6d 6f 64 65 6d | 2d 3e 6e 6f 5f 63 6f 6e |], modem|->no_con|
|00001cf0| 34 5b 69 5d 29 3b 0a 58 | 09 7d 0a 58 0a 58 09 66 |4[i]);.X|.}.X.X.f|
|00001d00| 63 6c 6f 73 65 28 66 70 | 29 3b 0a 58 09 72 65 74 |close(fp|);.X.ret|
|00001d10| 75 72 6e 28 30 29 3b 0a | 58 7d 0a 58 0a 58 2f 2a |urn(0);.|X}.X.X/*|
|00001d20| 0a 58 20 2a 20 53 65 65 | 20 69 66 20 74 68 65 20 |.X * See| if the |
|00001d30| 6e 65 77 20 6d 6f 64 65 | 6d 20 69 73 20 61 6c 72 |new mode|m is alr|
|00001d40| 65 61 64 79 20 69 6e 20 | 74 68 65 20 64 61 74 61 |eady in |the data|
|00001d50| 62 61 73 65 2e 20 20 49 | 66 20 69 74 27 73 20 6e |base. I|f it's n|
|00001d60| 6f 74 2c 20 63 72 65 61 | 74 65 0a 58 20 2a 20 61 |ot, crea|te.X * a|
|00001d70| 20 73 6c 6f 74 20 66 6f | 72 20 69 74 20 61 6e 64 | slot fo|r it and|
|00001d80| 20 75 70 64 61 74 65 20 | 74 68 65 20 6d 6f 64 65 | update |the mode|
|00001d90| 6d 2d 3e 6d 5f 63 75 72 | 20 76 61 72 69 61 62 6c |m->m_cur| variabl|
|00001da0| 65 2e 0a 58 20 2a 2f 0a | 58 0a 58 76 6f 69 64 0a |e..X */.|X.Xvoid.|
|00001db0| 58 63 72 65 61 74 65 5f | 6d 6f 64 65 6d 28 73 74 |Xcreate_|modem(st|
|00001dc0| 72 29 0a 58 63 68 61 72 | 20 2a 73 74 72 3b 0a 58 |r).Xchar| *str;.X|
|00001dd0| 7b 0a 58 09 69 6e 74 20 | 69 3b 0a 58 09 63 68 61 |{.X.int |i;.X.cha|
|00001de0| 72 20 2a 73 74 72 64 75 | 70 28 29 2c 20 62 75 66 |r *strdu|p(), buf|
|00001df0| 5b 38 30 5d 3b 0a 58 09 | 76 6f 69 64 20 65 72 72 |[80];.X.|void err|
|00001e00| 6f 72 5f 77 69 6e 28 29 | 2c 20 66 72 65 65 5f 70 |or_win()|, free_p|
|00001e10| 74 72 28 29 3b 0a 58 09 | 09 09 09 09 2f 2a 20 6d |tr();.X.|..../* m|
|00001e20| 6f 64 65 6d 20 65 6e 74 | 72 79 20 61 6c 72 65 61 |odem ent|ry alrea|
|00001e30| 64 79 20 65 78 69 73 74 | 73 3f 20 2a 2f 0a 58 09 |dy exist|s? */.X.|
|00001e40| 66 6f 72 20 28 69 3d 30 | 3b 20 69 3c 6d 6f 64 65 |for (i=0|; i<mode|
|00001e50| 6d 2d 3e 6d 5f 65 6e 74 | 72 69 65 73 3b 20 69 2b |m->m_ent|ries; i+|
|00001e60| 2b 29 20 7b 0a 58 09 09 | 69 66 20 28 21 73 74 72 |+) {.X..|if (!str|
|00001e70| 63 6d 70 28 73 74 72 2c | 20 6d 6f 64 65 6d 2d 3e |cmp(str,| modem->|
|00001e80| 6d 6e 61 6d 65 5b 69 5d | 29 29 0a 58 09 09 09 72 |mname[i]|)).X...r|
|00001e90| 65 74 75 72 6e 3b 0a 58 | 09 7d 0a 58 09 09 09 09 |eturn;.X|.}.X....|
|00001ea0| 09 2f 2a 20 65 6d 70 74 | 79 20 73 6c 6f 74 20 61 |./* empt|y slot a|
|00001eb0| 76 61 69 6c 61 62 6c 65 | 3f 20 2a 2f 0a 58 09 69 |vailable|? */.X.i|
|00001ec0| 66 20 28 6d 6f 64 65 6d | 2d 3e 6d 5f 65 6e 74 72 |f (modem|->m_entr|
|00001ed0| 69 65 73 20 3d 3d 20 4e | 55 4d 5f 4d 4f 44 45 4d |ies == N|UM_MODEM|
|00001ee0| 29 20 7b 0a 58 09 09 73 | 70 72 69 6e 74 66 28 62 |) {.X..s|printf(b|
|00001ef0| 75 66 2c 20 22 27 25 73 | 27 22 2c 20 6d 6f 64 65 |uf, "'%s|'", mode|
|00001f00| 6d 2d 3e 6d 5f 70 61 74 | 68 29 3b 0a 58 09 09 65 |m->m_pat|h);.X..e|
|00001f10| 72 72 6f 72 5f 77 69 6e | 28 30 2c 20 22 4e 6f 20 |rror_win|(0, "No |
|00001f20| 65 6d 70 74 79 20 6d 6f | 64 65 6d 20 73 6c 6f 74 |empty mo|dem slot|
|00001f30| 73 20 69 6e 22 2c 20 62 | 75 66 29 3b 0a 58 09 09 |s in", b|uf);.X..|
|00001f40| 72 65 74 75 72 6e 3b 0a | 58 09 7d 0a 58 09 09 09 |return;.|X.}.X...|
|00001f50| 09 09 2f 2a 20 63 72 65 | 61 74 65 20 61 20 6e 65 |../* cre|ate a ne|
|00001f60| 77 20 65 6e 74 72 79 20 | 2a 2f 0a 58 09 66 72 65 |w entry |*/.X.fre|
|00001f70| 65 5f 70 74 72 28 6d 6f | 64 65 6d 2d 3e 6d 6e 61 |e_ptr(mo|dem->mna|
|00001f80| 6d 65 5b 6d 6f 64 65 6d | 2d 3e 6d 5f 65 6e 74 72 |me[modem|->m_entr|
|00001f90| 69 65 73 5d 29 3b 0a 58 | 09 6d 6f 64 65 6d 2d 3e |ies]);.X|.modem->|
|00001fa0| 6d 6e 61 6d 65 5b 6d 6f | 64 65 6d 2d 3e 6d 5f 65 |mname[mo|dem->m_e|
|00001fb0| 6e 74 72 69 65 73 5d 20 | 3d 20 73 74 72 64 75 70 |ntries] |= strdup|
|00001fc0| 28 73 74 72 29 3b 0a 58 | 0a 58 09 09 09 09 09 2f |(str);.X|.X...../|
|00001fd0| 2a 20 75 70 64 61 74 65 | 20 6e 75 6d 62 65 72 20 |* update| number |
|00001fe0| 6f 66 20 65 6e 74 72 69 | 65 73 20 2a 2f 0a 58 09 |of entri|es */.X.|
|00001ff0| 6d 6f 64 65 6d 2d 3e 6d | 5f 65 6e 74 72 69 65 73 |modem->m|_entries|
|00002000| 2b 2b 3b 0a 58 09 72 65 | 74 75 72 6e 3b 0a 58 7d |++;.X.re|turn;.X}|
|00002010| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 53 65 65 20 69 |.X.X/*.X| * See i|
|00002020| 66 20 74 68 65 20 6d 6f | 64 65 6d 20 6e 61 6d 65 |f the mo|dem name|
|00002030| 73 20 69 6e 20 74 68 65 | 20 6c 69 73 74 20 73 74 |s in the| list st|
|00002040| 69 6c 6c 20 6e 65 65 64 | 20 74 6f 20 62 65 20 69 |ill need| to be i|
|00002050| 6e 20 74 68 65 20 64 61 | 74 61 62 61 73 65 2e 0a |n the da|tabase..|
|00002060| 58 20 2a 20 49 66 20 79 | 6f 75 20 66 69 6e 64 20 |X * If y|ou find |
|00002070| 61 20 22 6c 6f 73 74 22 | 20 65 6e 74 72 79 2c 20 |a "lost"| entry, |
|00002080| 64 65 6c 65 74 65 20 69 | 74 20 61 6e 64 20 63 6f |delete i|t and co|
|00002090| 6c 6c 61 70 73 65 20 74 | 68 65 20 6c 69 73 74 2e |llapse t|he list.|
|000020a0| 0a 58 20 2a 2f 0a 58 0a | 58 76 6f 69 64 0a 58 64 |.X */.X.|Xvoid.Xd|
|000020b0| 65 6c 5f 6d 6f 64 65 6d | 28 29 0a 58 7b 0a 58 09 |el_modem|().X{.X.|
|000020c0| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 6e 75 6c |extern c|har *nul|
|000020d0| 6c 5f 70 74 72 3b 0a 58 | 09 69 6e 74 20 69 2c 20 |l_ptr;.X|.int i, |
|000020e0| 6a 2c 20 6d 61 74 63 68 | 3b 0a 58 09 63 68 61 72 |j, match|;.X.char|
|000020f0| 20 2a 73 74 72 64 75 70 | 28 29 3b 0a 58 09 76 6f | *strdup|();.X.vo|
|00002100| 69 64 20 66 72 65 65 5f | 70 74 72 28 29 3b 0a 58 |id free_|ptr();.X|
|00002110| 0a 58 09 66 6f 72 20 28 | 69 3d 30 3b 20 69 3c 6d |.X.for (|i=0; i<m|
|00002120| 6f 64 65 6d 2d 3e 6d 5f | 65 6e 74 72 69 65 73 3b |odem->m_|entries;|
|00002130| 20 69 2b 2b 29 20 7b 0a | 58 09 09 6d 61 74 63 68 | i++) {.|X..match|
|00002140| 20 3d 20 30 3b 0a 58 09 | 09 66 6f 72 20 28 6a 3d | = 0;.X.|.for (j=|
|00002150| 30 3b 20 6a 3c 6d 6f 64 | 65 6d 2d 3e 74 5f 65 6e |0; j<mod|em->t_en|
|00002160| 74 72 69 65 73 3b 20 6a | 2b 2b 29 20 7b 0a 58 09 |tries; j|++) {.X.|
|00002170| 09 09 69 66 20 28 21 73 | 74 72 63 6d 70 28 6d 6f |..if (!s|trcmp(mo|
|00002180| 64 65 6d 2d 3e 6d 6e 61 | 6d 65 5b 69 5d 2c 20 6d |dem->mna|me[i], m|
|00002190| 6f 64 65 6d 2d 3e 74 6e | 61 6d 65 5b 6a 5d 29 29 |odem->tn|ame[j]))|
|000021a0| 20 7b 0a 58 09 09 09 09 | 6d 61 74 63 68 2b 2b 3b | {.X....|match++;|
|000021b0| 0a 58 09 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |.X....br|eak;.X..|
|000021c0| 09 7d 0a 58 09 09 7d 0a | 58 09 09 09 09 09 2f 2a |.}.X..}.|X...../*|
|000021d0| 20 66 6f 75 6e 64 20 61 | 20 22 6c 6f 73 74 22 20 | found a| "lost" |
|000021e0| 6d 6f 64 65 6d 20 6e 61 | 6d 65 20 2a 2f 0a 58 09 |modem na|me */.X.|
|000021f0| 09 69 66 20 28 21 6d 61 | 74 63 68 29 20 7b 0a 58 |.if (!ma|tch) {.X|
|00002200| 09 09 09 66 6f 72 20 28 | 6a 3d 69 3b 20 6a 3c 6d |...for (|j=i; j<m|
|00002210| 6f 64 65 6d 2d 3e 6d 5f | 65 6e 74 72 69 65 73 2d |odem->m_|entries-|
|00002220| 31 3b 20 6a 2b 2b 29 20 | 7b 0a 58 09 09 09 09 66 |1; j++) |{.X....f|
|00002230| 72 65 65 5f 70 74 72 28 | 6d 6f 64 65 6d 2d 3e 6d |ree_ptr(|modem->m|
|00002240| 6e 61 6d 65 5b 6a 5d 29 | 3b 0a 58 09 09 09 09 66 |name[j])|;.X....f|
|00002250| 72 65 65 5f 70 74 72 28 | 6d 6f 64 65 6d 2d 3e 69 |ree_ptr(|modem->i|
|00002260| 6e 69 74 5b 6a 5d 29 3b | 0a 58 09 09 09 09 66 72 |nit[j]);|.X....fr|
|00002270| 65 65 5f 70 74 72 28 6d | 6f 64 65 6d 2d 3e 64 69 |ee_ptr(m|odem->di|
|00002280| 61 6c 5b 6a 5d 29 3b 0a | 58 09 09 09 09 66 72 65 |al[j]);.|X....fre|
|00002290| 65 5f 70 74 72 28 6d 6f | 64 65 6d 2d 3e 73 75 66 |e_ptr(mo|dem->suf|
|000022a0| 66 69 78 5b 6a 5d 29 3b | 0a 58 09 09 09 09 66 72 |fix[j]);|.X....fr|
|000022b0| 65 65 5f 70 74 72 28 6d | 6f 64 65 6d 2d 3e 68 61 |ee_ptr(m|odem->ha|
|000022c0| 6e 67 5f 75 70 5b 6a 5d | 29 3b 0a 58 0a 58 09 09 |ng_up[j]|);.X.X..|
|000022d0| 09 09 66 72 65 65 5f 70 | 74 72 28 6d 6f 64 65 6d |..free_p|tr(modem|
|000022e0| 2d 3e 63 6f 6e 5f 33 5b | 6a 5d 29 3b 0a 58 09 09 |->con_3[|j]);.X..|
|000022f0| 09 09 66 72 65 65 5f 70 | 74 72 28 6d 6f 64 65 6d |..free_p|tr(modem|
|00002300| 2d 3e 63 6f 6e 5f 31 32 | 5b 6a 5d 29 3b 0a 58 09 |->con_12|[j]);.X.|
|00002310| 09 09 09 66 72 65 65 5f | 70 74 72 28 6d 6f 64 65 |...free_|ptr(mode|
|00002320| 6d 2d 3e 63 6f 6e 5f 32 | 34 5b 6a 5d 29 3b 0a 58 |m->con_2|4[j]);.X|
|00002330| 09 09 09 09 66 72 65 65 | 5f 70 74 72 28 6d 6f 64 |....free|_ptr(mod|
|00002340| 65 6d 2d 3e 63 6f 6e 5f | 34 38 5b 6a 5d 29 3b 0a |em->con_|48[j]);.|
|00002350| 58 09 09 09 09 66 72 65 | 65 5f 70 74 72 28 6d 6f |X....fre|e_ptr(mo|
|00002360| 64 65 6d 2d 3e 63 6f 6e | 5f 39 36 5b 6a 5d 29 3b |dem->con|_96[j]);|
|00002370| 0a 58 09 09 09 09 66 72 | 65 65 5f 70 74 72 28 6d |.X....fr|ee_ptr(m|
|00002380| 6f 64 65 6d 2d 3e 63 6f | 6e 5f 31 39 32 5b 6a 5d |odem->co|n_192[j]|
|00002390| 29 3b 0a 58 0a 58 09 09 | 09 09 66 72 65 65 5f 70 |);.X.X..|..free_p|
|000023a0| 74 72 28 6d 6f 64 65 6d | 2d 3e 6e 6f 5f 63 6f 6e |tr(modem|->no_con|
|000023b0| 31 5b 6a 5d 29 3b 0a 58 | 09 09 09 09 66 72 65 65 |1[j]);.X|....free|
|000023c0| 5f 70 74 72 28 6d 6f 64 | 65 6d 2d 3e 6e 6f 5f 63 |_ptr(mod|em->no_c|
|000023d0| 6f 6e 32 5b 6a 5d 29 3b | 0a 58 09 09 09 09 66 72 |on2[j]);|.X....fr|
|000023e0| 65 65 5f 70 74 72 28 6d | 6f 64 65 6d 2d 3e 6e 6f |ee_ptr(m|odem->no|
|000023f0| 5f 63 6f 6e 33 5b 6a 5d | 29 3b 0a 58 09 09 09 09 |_con3[j]|);.X....|
|00002400| 66 72 65 65 5f 70 74 72 | 28 6d 6f 64 65 6d 2d 3e |free_ptr|(modem->|
|00002410| 6e 6f 5f 63 6f 6e 34 5b | 6a 5d 29 3b 0a 58 0a 58 |no_con4[|j]);.X.X|
|00002420| 09 09 09 09 09 2f 2a 20 | 63 6f 70 79 20 74 68 65 |...../* |copy the|
|00002430| 20 69 6e 66 6f 20 2a 2f | 0a 58 09 09 09 09 6d 6f | info */|.X....mo|
|00002440| 64 65 6d 2d 3e 6d 6e 61 | 6d 65 5b 6a 5d 20 3d 20 |dem->mna|me[j] = |
|00002450| 73 74 72 64 75 70 28 6d | 6f 64 65 6d 2d 3e 6d 6e |strdup(m|odem->mn|
|00002460| 61 6d 65 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 09 |ame[j+1]|);.X....|
|00002470| 6d 6f 64 65 6d 2d 3e 69 | 6e 69 74 5b 6a 5d 20 3d |modem->i|nit[j] =|
|00002480| 20 73 74 72 64 75 70 28 | 6d 6f 64 65 6d 2d 3e 69 | strdup(|modem->i|
|00002490| 6e 69 74 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 09 |nit[j+1]|);.X....|
|000024a0| 6d 6f 64 65 6d 2d 3e 64 | 69 61 6c 5b 6a 5d 20 3d |modem->d|ial[j] =|
|000024b0| 20 73 74 72 64 75 70 28 | 6d 6f 64 65 6d 2d 3e 64 | strdup(|modem->d|
|000024c0| 69 61 6c 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 09 |ial[j+1]|);.X....|
|000024d0| 6d 6f 64 65 6d 2d 3e 73 | 75 66 66 69 78 5b 6a 5d |modem->s|uffix[j]|
|000024e0| 20 3d 20 73 74 72 64 75 | 70 28 6d 6f 64 65 6d 2d | = strdu|p(modem-|
|000024f0| 3e 73 75 66 66 69 78 5b | 6a 2b 31 5d 29 3b 0a 58 |>suffix[|j+1]);.X|
|00002500| 09 09 09 09 6d 6f 64 65 | 6d 2d 3e 68 61 6e 67 5f |....mode|m->hang_|
|00002510| 75 70 5b 6a 5d 20 3d 20 | 73 74 72 64 75 70 28 6d |up[j] = |strdup(m|
|00002520| 6f 64 65 6d 2d 3e 68 61 | 6e 67 5f 75 70 5b 6a 2b |odem->ha|ng_up[j+|
|00002530| 31 5d 29 3b 0a 58 0a 58 | 09 09 09 09 6d 6f 64 65 |1]);.X.X|....mode|
|00002540| 6d 2d 3e 61 75 74 6f 5f | 62 61 75 64 5b 6a 5d 20 |m->auto_|baud[j] |
|00002550| 3d 20 6d 6f 64 65 6d 2d | 3e 61 75 74 6f 5f 62 61 |= modem-|>auto_ba|
|00002560| 75 64 5b 6a 2b 31 5d 3b | 0a 58 09 09 09 09 6d 6f |ud[j+1];|.X....mo|
|00002570| 64 65 6d 2d 3e 63 6f 6e | 5f 33 5b 6a 5d 20 3d 20 |dem->con|_3[j] = |
|00002580| 73 74 72 64 75 70 28 6d | 6f 64 65 6d 2d 3e 63 6f |strdup(m|odem->co|
|00002590| 6e 5f 33 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 09 |n_3[j+1]|);.X....|
|000025a0| 6d 6f 64 65 6d 2d 3e 63 | 6f 6e 5f 31 32 5b 6a 5d |modem->c|on_12[j]|
|000025b0| 20 3d 20 73 74 72 64 75 | 70 28 6d 6f 64 65 6d 2d | = strdu|p(modem-|
|000025c0| 3e 63 6f 6e 5f 31 32 5b | 6a 2b 31 5d 29 3b 0a 58 |>con_12[|j+1]);.X|
|000025d0| 09 09 09 09 6d 6f 64 65 | 6d 2d 3e 63 6f 6e 5f 32 |....mode|m->con_2|
|000025e0| 34 5b 6a 5d 20 3d 20 73 | 74 72 64 75 70 28 6d 6f |4[j] = s|trdup(mo|
|000025f0| 64 65 6d 2d 3e 63 6f 6e | 5f 32 34 5b 6a 2b 31 5d |dem->con|_24[j+1]|
|00002600| 29 3b 0a 58 09 09 09 09 | 6d 6f 64 65 6d 2d 3e 63 |);.X....|modem->c|
|00002610| 6f 6e 5f 34 38 5b 6a 5d | 20 3d 20 73 74 72 64 75 |on_48[j]| = strdu|
|00002620| 70 28 6d 6f 64 65 6d 2d | 3e 63 6f 6e 5f 34 38 5b |p(modem-|>con_48[|
|00002630| 6a 2b 31 5d 29 3b 0a 58 | 09 09 09 09 6d 6f 64 65 |j+1]);.X|....mode|
|00002640| 6d 2d 3e 63 6f 6e 5f 39 | 36 5b 6a 5d 20 3d 20 73 |m->con_9|6[j] = s|
|00002650| 74 72 64 75 70 28 6d 6f | 64 65 6d 2d 3e 63 6f 6e |trdup(mo|dem->con|
|00002660| 5f 39 36 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 09 |_96[j+1]|);.X....|
|00002670| 6d 6f 64 65 6d 2d 3e 63 | 6f 6e 5f 31 39 32 5b 6a |modem->c|on_192[j|
|00002680| 5d 20 3d 20 73 74 72 64 | 75 70 28 6d 6f 64 65 6d |] = strd|up(modem|
|00002690| 2d 3e 63 6f 6e 5f 31 39 | 32 5b 6a 2b 31 5d 29 3b |->con_19|2[j+1]);|
|000026a0| 0a 58 0a 58 09 09 09 09 | 6d 6f 64 65 6d 2d 3e 6e |.X.X....|modem->n|
|000026b0| 6f 5f 63 6f 6e 31 5b 6a | 5d 20 3d 20 73 74 72 64 |o_con1[j|] = strd|
|000026c0| 75 70 28 6d 6f 64 65 6d | 2d 3e 6e 6f 5f 63 6f 6e |up(modem|->no_con|
|000026d0| 31 5b 6a 2b 31 5d 29 3b | 0a 58 09 09 09 09 6d 6f |1[j+1]);|.X....mo|
|000026e0| 64 65 6d 2d 3e 6e 6f 5f | 63 6f 6e 32 5b 6a 5d 20 |dem->no_|con2[j] |
|000026f0| 3d 20 73 74 72 64 75 70 | 28 6d 6f 64 65 6d 2d 3e |= strdup|(modem->|
|00002700| 6e 6f 5f 63 6f 6e 32 5b | 6a 2b 31 5d 29 3b 0a 58 |no_con2[|j+1]);.X|
|00002710| 09 09 09 09 6d 6f 64 65 | 6d 2d 3e 6e 6f 5f 63 6f |....mode|m->no_co|
|00002720| 6e 33 5b 6a 5d 20 3d 20 | 73 74 72 64 75 70 28 6d |n3[j] = |strdup(m|
|00002730| 6f 64 65 6d 2d 3e 6e 6f | 5f 63 6f 6e 33 5b 6a 2b |odem->no|_con3[j+|
|00002740| 31 5d 29 3b 0a 58 09 09 | 09 09 6d 6f 64 65 6d 2d |1]);.X..|..modem-|
|00002750| 3e 6e 6f 5f 63 6f 6e 34 | 5b 6a 5d 20 3d 20 73 74 |>no_con4|[j] = st|
|00002760| 72 64 75 70 28 6d 6f 64 | 65 6d 2d 3e 6e 6f 5f 63 |rdup(mod|em->no_c|
|00002770| 6f 6e 34 5b 6a 2b 31 5d | 29 3b 0a 58 09 09 09 7d |on4[j+1]|);.X...}|
|00002780| 0a 58 09 09 09 6a 20 3d | 20 6d 6f 64 65 6d 2d 3e |.X...j =| modem->|
|00002790| 6d 5f 65 6e 74 72 69 65 | 73 20 2d 31 3b 0a 58 0a |m_entrie|s -1;.X.|
|000027a0| 58 09 09 09 66 72 65 65 | 5f 70 74 72 28 6d 6f 64 |X...free|_ptr(mod|
|000027b0| 65 6d 2d 3e 6d 6e 61 6d | 65 5b 6a 5d 29 3b 0a 58 |em->mnam|e[j]);.X|
|000027c0| 09 09 09 66 72 65 65 5f | 70 74 72 28 6d 6f 64 65 |...free_|ptr(mode|
|000027d0| 6d 2d 3e 69 6e 69 74 5b | 6a 5d 29 3b 0a 58 09 09 |m->init[|j]);.X..|
|000027e0| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|000027f0| 3e 64 69 61 6c 5b 6a 5d | 29 3b 0a 58 09 09 09 66 |>dial[j]|);.X...f|
|00002800| 72 65 65 5f 70 74 72 28 | 6d 6f 64 65 6d 2d 3e 73 |ree_ptr(|modem->s|
|00002810| 75 66 66 69 78 5b 6a 5d | 29 3b 0a 58 09 09 09 66 |uffix[j]|);.X...f|
|00002820| 72 65 65 5f 70 74 72 28 | 6d 6f 64 65 6d 2d 3e 68 |ree_ptr(|modem->h|
|00002830| 61 6e 67 5f 75 70 5b 6a | 5d 29 3b 0a 58 0a 58 09 |ang_up[j|]);.X.X.|
|00002840| 09 09 66 72 65 65 5f 70 | 74 72 28 6d 6f 64 65 6d |..free_p|tr(modem|
|00002850| 2d 3e 63 6f 6e 5f 33 5b | 6a 5d 29 3b 0a 58 09 09 |->con_3[|j]);.X..|
|00002860| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|00002870| 3e 63 6f 6e 5f 31 32 5b | 6a 5d 29 3b 0a 58 09 09 |>con_12[|j]);.X..|
|00002880| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|00002890| 3e 63 6f 6e 5f 32 34 5b | 6a 5d 29 3b 0a 58 09 09 |>con_24[|j]);.X..|
|000028a0| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|000028b0| 3e 63 6f 6e 5f 34 38 5b | 6a 5d 29 3b 0a 58 09 09 |>con_48[|j]);.X..|
|000028c0| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|000028d0| 3e 63 6f 6e 5f 39 36 5b | 6a 5d 29 3b 0a 58 09 09 |>con_96[|j]);.X..|
|000028e0| 09 66 72 65 65 5f 70 74 | 72 28 6d 6f 64 65 6d 2d |.free_pt|r(modem-|
|000028f0| 3e 63 6f 6e 5f 31 39 32 | 5b 6a 5d 29 3b 0a 58 0a |>con_192|[j]);.X.|
|00002900| 58 09 09 09 66 72 65 65 | 5f 70 74 72 28 6d 6f 64 |X...free|_ptr(mod|
|00002910| 65 6d 2d 3e 6e 6f 5f 63 | 6f 6e 31 5b 6a 5d 29 3b |em->no_c|on1[j]);|
|00002920| 0a 58 09 09 09 66 72 65 | 65 5f 70 74 72 28 6d 6f |.X...fre|e_ptr(mo|
|00002930| 64 65 6d 2d 3e 6e 6f 5f | 63 6f 6e 32 5b 6a 5d 29 |dem->no_|con2[j])|
|00002940| 3b 0a 58 09 09 09 66 72 | 65 65 5f 70 74 72 28 6d |;.X...fr|ee_ptr(m|
|00002950| 6f 64 65 6d 2d 3e 6e 6f | 5f 63 6f 6e 33 5b 6a 5d |odem->no|_con3[j]|
|00002960| 29 3b 0a 58 09 09 09 66 | 72 65 65 5f 70 74 72 28 |);.X...f|ree_ptr(|
|00002970| 6d 6f 64 65 6d 2d 3e 6e | 6f 5f 63 6f 6e 34 5b 6a |modem->n|o_con4[j|
|00002980| 5d 29 3b 0a 58 0a 58 09 | 09 09 09 09 2f 2a 20 63 |]);.X.X.|..../* c|
|00002990| 72 65 61 74 65 20 61 6e | 20 65 6d 70 74 79 20 65 |reate an| empty e|
|000029a0| 6e 74 72 79 20 2a 2f 0a | 58 09 09 09 6d 6f 64 65 |ntry */.|X...mode|
|000029b0| 6d 2d 3e 6d 6e 61 6d 65 | 5b 6a 5d 20 3d 20 6e 75 |m->mname|[j] = nu|
|000029c0| 6c 6c 5f 70 74 72 3b 0a | 58 09 09 09 6d 6f 64 65 |ll_ptr;.|X...mode|
|000029d0| 6d 2d 3e 69 6e 69 74 5b | 6a 5d 20 3d 20 6e 75 6c |m->init[|j] = nul|
|000029e0| 6c 5f 70 74 72 3b 0a 58 | 09 09 09 6d 6f 64 65 6d |l_ptr;.X|...modem|
|000029f0| 2d 3e 64 69 61 6c 5b 6a | 5d 20 3d 20 6e 75 6c 6c |->dial[j|] = null|
|00002a00| 5f 70 74 72 3b 0a 58 09 | 09 09 6d 6f 64 65 6d 2d |_ptr;.X.|..modem-|
|00002a10| 3e 73 75 66 66 69 78 5b | 6a 5d 20 3d 20 6e 75 6c |>suffix[|j] = nul|
|00002a20| 6c 5f 70 74 72 3b 0a 58 | 09 09 09 6d 6f 64 65 6d |l_ptr;.X|...modem|
|00002a30| 2d 3e 68 61 6e 67 5f 75 | 70 5b 6a 5d 20 3d 20 6e |->hang_u|p[j] = n|
|00002a40| 75 6c 6c 5f 70 74 72 3b | 0a 58 0a 58 09 09 09 6d |ull_ptr;|.X.X...m|
|00002a50| 6f 64 65 6d 2d 3e 61 75 | 74 6f 5f 62 61 75 64 5b |odem->au|to_baud[|
|00002a60| 6a 5d 20 3d 20 27 59 27 | 3b 0a 58 09 09 09 6d 6f |j] = 'Y'|;.X...mo|
|00002a70| 64 65 6d 2d 3e 63 6f 6e | 5f 33 5b 6a 5d 20 3d 20 |dem->con|_3[j] = |
|00002a80| 6e 75 6c 6c 5f 70 74 72 | 3b 0a 58 09 09 09 6d 6f |null_ptr|;.X...mo|
|00002a90| 64 65 6d 2d 3e 63 6f 6e | 5f 31 32 5b 6a 5d 20 3d |dem->con|_12[j] =|
|00002aa0| 20 6e 75 6c 6c 5f 70 74 | 72 3b 0a 58 09 09 09 6d | null_pt|r;.X...m|
|00002ab0| 6f 64 65 6d 2d 3e 63 6f | 6e 5f 32 34 5b 6a 5d 20 |odem->co|n_24[j] |
|00002ac0| 3d 20 6e 75 6c 6c 5f 70 | 74 72 3b 0a 58 09 09 09 |= null_p|tr;.X...|
|00002ad0| 6d 6f 64 65 6d 2d 3e 63 | 6f 6e 5f 34 38 5b 6a 5d |modem->c|on_48[j]|
|00002ae0| 20 3d 20 6e 75 6c 6c 5f | 70 74 72 3b 0a 58 09 09 | = null_|ptr;.X..|
|00002af0| 09 6d 6f 64 65 6d 2d 3e | 63 6f 6e 5f 39 36 5b 6a |.modem->|con_96[j|
|00002b00| 5d 20 3d 20 6e 75 6c 6c | 5f 70 74 72 3b 0a 58 09 |] = null|_ptr;.X.|
|00002b10| 09 09 6d 6f 64 65 6d 2d | 3e 63 6f 6e 5f 31 39 32 |..modem-|>con_192|
|00002b20| 5b 6a 5d 20 3d 20 6e 75 | 6c 6c 5f 70 74 72 3b 0a |[j] = nu|ll_ptr;.|
|00002b30| 58 0a 58 09 09 09 6d 6f | 64 65 6d 2d 3e 6e 6f 5f |X.X...mo|dem->no_|
|00002b40| 63 6f 6e 31 5b 6a 5d 20 | 3d 20 6e 75 6c 6c 5f 70 |con1[j] |= null_p|
|00002b50| 74 72 3b 0a 58 09 09 09 | 6d 6f 64 65 6d 2d 3e 6e |tr;.X...|modem->n|
|00002b60| 6f 5f 63 6f 6e 32 5b 6a | 5d 20 3d 20 6e 75 6c 6c |o_con2[j|] = null|
|00002b70| 5f 70 74 72 3b 0a 58 09 | 09 09 6d 6f 64 65 6d 2d |_ptr;.X.|..modem-|
|00002b80| 3e 6e 6f 5f 63 6f 6e 33 | 5b 6a 5d 20 3d 20 6e 75 |>no_con3|[j] = nu|
|00002b90| 6c 6c 5f 70 74 72 3b 0a | 58 09 09 09 6d 6f 64 65 |ll_ptr;.|X...mode|
|00002ba0| 6d 2d 3e 6e 6f 5f 63 6f | 6e 34 5b 6a 5d 20 3d 20 |m->no_co|n4[j] = |
|00002bb0| 6e 75 6c 6c 5f 70 74 72 | 3b 0a 58 0a 58 09 09 09 |null_ptr|;.X.X...|
|00002bc0| 09 09 2f 2a 20 75 70 64 | 61 74 65 20 74 68 65 20 |../* upd|ate the |
|00002bd0| 63 6f 75 6e 74 73 20 2a | 2f 0a 58 09 09 09 6d 6f |counts *|/.X...mo|
|00002be0| 64 65 6d 2d 3e 6d 5f 65 | 6e 74 72 69 65 73 2d 2d |dem->m_e|ntries--|
|00002bf0| 3b 0a 58 09 09 09 69 66 | 20 28 6d 6f 64 65 6d 2d |;.X...if| (modem-|
|00002c00| 3e 6d 5f 63 75 72 20 3e | 3d 20 6d 6f 64 65 6d 2d |>m_cur >|= modem-|
|00002c10| 3e 6d 5f 65 6e 74 72 69 | 65 73 29 0a 58 09 09 09 |>m_entri|es).X...|
|00002c20| 09 6d 6f 64 65 6d 2d 3e | 6d 5f 63 75 72 20 3d 20 |.modem->|m_cur = |
|00002c30| 2d 31 3b 0a 58 09 09 09 | 72 65 74 75 72 6e 3b 0a |-1;.X...|return;.|
|00002c40| 58 09 09 7d 0a 58 09 7d | 0a 58 09 72 65 74 75 72 |X..}.X.}|.X.retur|
|00002c50| 6e 3b 0a 58 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |n;.X}.SH|AR_EOF.i|
|00002c60| 66 20 74 65 73 74 20 31 | 30 30 37 30 20 2d 6e 65 |f test 1|0070 -ne|
|00002c70| 20 22 60 77 63 20 2d 63 | 20 3c 20 27 6d 5f 6c 69 | "`wc -c| < 'm_li|
|00002c80| 62 2e 63 27 60 22 0a 74 | 68 65 6e 0a 09 65 63 68 |b.c'`".t|hen..ech|
|00002c90| 6f 20 73 68 61 72 3a 20 | 22 65 72 72 6f 72 20 74 |o shar: |"error t|
|00002ca0| 72 61 6e 73 6d 69 74 74 | 69 6e 67 20 27 6d 5f 6c |ransmitt|ing 'm_l|
|00002cb0| 69 62 2e 63 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |ib.c'" '|(should |
|00002cc0| 68 61 76 65 20 62 65 65 | 6e 20 31 30 30 37 30 20 |have bee|n 10070 |
|00002cd0| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 66 69 0a |characte|rs)'.fi.|
|00002ce0| 66 69 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 22 65 |fi.echo |shar: "e|
|00002cf0| 78 74 72 61 63 74 69 6e | 67 20 27 6d 61 63 72 6f |xtractin|g 'macro|
|00002d00| 2e 63 27 22 20 27 28 35 | 32 34 33 20 63 68 61 72 |.c'" '(5|243 char|
|00002d10| 61 63 74 65 72 73 29 27 | 0a 69 66 20 74 65 73 74 |acters)'|.if test|
|00002d20| 20 2d 66 20 27 6d 61 63 | 72 6f 2e 63 27 0a 74 68 | -f 'mac|ro.c'.th|
|00002d30| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 22 |en..echo| shar: "|
|00002d40| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|00002d50| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00002d60| 65 20 27 6d 61 63 72 6f | 2e 63 27 22 0a 65 6c 73 |e 'macro|.c'".els|
|00002d70| 65 0a 73 65 64 20 27 73 | 2f 5e 58 2f 2f 27 20 3c |e.sed 's|/^X//' <|
|00002d80| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 6d |< \SHAR_|EOF > 'm|
|00002d90| 61 63 72 6f 2e 63 27 0a | 58 2f 2a 0a 58 20 2a 20 |acro.c'.|X/*.X * |
|00002da0| 54 68 65 20 6b 65 79 62 | 6f 61 72 64 20 6d 61 63 |The keyb|oard mac|
|00002db0| 72 6f 20 66 65 61 74 75 | 72 65 2e 20 20 44 69 73 |ro featu|re. Dis|
|00002dc0| 70 6c 61 79 73 20 28 61 | 6e 64 20 70 72 6f 6d 70 |plays (a|nd promp|
|00002dd0| 74 73 20 66 6f 72 20 65 | 64 69 74 69 6e 67 29 20 |ts for e|diting) |
|00002de0| 74 68 65 0a 58 20 2a 20 | 6d 61 63 72 6f 73 20 61 |the.X * |macros a|
|00002df0| 73 73 69 67 6e 65 64 20 | 74 6f 20 74 68 65 20 73 |ssigned |to the s|
|00002e00| 68 69 66 74 65 64 20 6e | 75 6d 62 65 72 20 6b 65 |hifted n|umber ke|
|00002e10| 79 73 2e 20 20 50 72 6f | 6d 70 74 73 20 66 6f 72 |ys. Pro|mpts for|
|00002e20| 20 73 61 76 69 6e 67 0a | 58 20 2a 20 63 68 61 6e | saving.|X * chan|
|00002e30| 67 65 73 20 74 6f 20 64 | 69 73 6b 2e 0a 58 20 2a |ges to d|isk..X *|
|00002e40| 2f 0a 58 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 73 |/.X.X#in|clude <s|
|00002e50| 74 64 69 6f 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |tdio.h>.|X#includ|
|00002e60| 65 20 3c 63 75 72 73 65 | 73 2e 68 3e 0a 58 23 69 |e <curse|s.h>.X#i|
|00002e70| 6e 63 6c 75 64 65 20 22 | 63 6f 6e 66 69 67 2e 68 |nclude "|config.h|
|00002e80| 22 0a 58 23 69 6e 63 6c | 75 64 65 20 22 6d 69 73 |".X#incl|ude "mis|
|00002e90| 63 2e 68 22 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |c.h".X#i|nclude "|
|00002ea0| 70 61 72 61 6d 2e 68 22 | 0a 58 0a 58 69 6e 74 0a |param.h"|.X.Xint.|
|00002eb0| 58 6d 61 63 72 6f 28 29 | 0a 58 7b 0a 58 09 65 78 |Xmacro()|.X{.X.ex|
|00002ec0| 74 65 72 6e 20 69 6e 74 | 20 66 64 3b 0a 58 09 57 |tern int| fd;.X.W|
|00002ed0| 49 4e 44 4f 57 20 2a 6d | 61 5f 77 69 6e 2c 20 2a |INDOW *m|a_win, *|
|00002ee0| 6e 65 77 77 69 6e 28 29 | 3b 0a 58 09 69 6e 74 20 |newwin()|;.X.int |
|00002ef0| 61 6e 73 2c 20 72 65 74 | 5f 63 6f 64 65 3b 0a 58 |ans, ret|_code;.X|
|00002f00| 09 63 68 61 72 20 2a 6d | 61 63 2c 20 2a 73 74 72 |.char *m|ac, *str|
|00002f10| 64 75 70 28 29 2c 20 2a | 6d 61 63 5f 70 72 6f 6d |dup(), *|mac_prom|
|00002f20| 70 74 28 29 3b 0a 58 09 | 76 6f 69 64 20 66 72 65 |pt();.X.|void fre|
|00002f30| 65 5f 70 74 72 28 29 3b | 0a 58 0a 58 09 6d 61 5f |e_ptr();|.X.X.ma_|
|00002f40| 77 69 6e 20 3d 20 6e 65 | 77 77 69 6e 28 31 38 2c |win = ne|wwin(18,|
|00002f50| 20 36 35 2c 20 32 2c 20 | 31 35 29 3b 0a 58 09 6d | 65, 2, |15);.X.m|
|00002f60| 76 77 61 74 74 72 73 74 | 72 28 6d 61 5f 77 69 6e |vwattrst|r(ma_win|
|00002f70| 2c 20 31 2c 20 32 35 2c | 20 41 5f 42 4f 4c 44 2c |, 1, 25,| A_BOLD,|
|00002f80| 20 22 4b 65 79 62 6f 61 | 72 64 20 4d 61 63 72 6f | "Keyboa|rd Macro|
|00002f90| 73 22 29 3b 0a 58 09 68 | 6f 72 69 7a 6f 6e 74 61 |s");.X.h|orizonta|
|00002fa0| 6c 28 6d 61 5f 77 69 6e | 2c 20 32 2c 20 30 2c 20 |l(ma_win|, 2, 0, |
|00002fb0| 36 35 29 3b 0a 58 09 6d | 76 77 70 72 69 6e 74 77 |65);.X.m|vwprintw|
|00002fc0| 28 6d 61 5f 77 69 6e 2c | 20 34 2c 20 30 2c 20 22 |(ma_win,| 4, 0, "|
|00002fd0| 20 25 34 2e 34 73 2d 21 | 20 20 25 2d 35 30 2e 35 | %4.4s-!| %-50.5|
|00002fe0| 30 73 5c 6e 22 2c 20 70 | 61 72 61 6d 2d 3e 61 73 |0s\n", p|aram->as|
|00002ff0| 63 69 69 5f 68 6f 74 2c | 20 70 61 72 61 6d 2d 3e |cii_hot,| param->|
|00003000| 6d 61 63 5f 31 29 3b 0a | 58 09 77 70 72 69 6e 74 |mac_1);.|X.wprint|
|00003010| 77 28 6d 61 5f 77 69 6e | 2c 20 22 20 25 34 2e 34 |w(ma_win|, " %4.4|
|00003020| 73 2d 40 20 20 25 2d 35 | 30 2e 35 30 73 5c 6e 22 |s-@ %-5|0.50s\n"|
|00003030| 2c 20 70 61 72 61 6d 2d | 3e 61 73 63 69 69 5f 68 |, param-|>ascii_h|
|00003040| 6f 74 2c 20 70 61 72 61 | 6d 2d 3e 6d 61 63 5f 32 |ot, para|m->mac_2|
|00003050| 29 3b 0a 58 09 77 70 72 | 69 6e 74 77 28 6d 61 5f |);.X.wpr|intw(ma_|
|00003060| 77 69 6e 2c 20 22 20 25 | 34 2e 34 73 2d 23 20 20 |win, " %|4.4s-# |
|00003070| 25 2d 35 30 2e 35 30 73 | 5c 6e 22 2c 20 70 61 72 |%-50.50s|\n", par|
|00003080| 61 6d 2d 3e 61 73 63 69 | 69 5f 68 6f 74 2c 20 70 |am->asci|i_hot, p|
|00003090| 61 72 61 6d 2d 3e 6d 61 | 63 5f 33 29 3b 0a 58 09 |aram->ma|c_3);.X.|
|000030a0| 77 70 72 69 6e 74 77 28 | 6d 61 5f 77 69 6e 2c 20 |wprintw(|ma_win, |
|000030b0| 22 20 25 34 2e 34 73 2d | 24 20 20 25 2d 35 30 2e |" %4.4s-|$ %-50.|
|000030c0| 35 30 73 5c 6e 22 2c 20 | 70 61 72 61 6d 2d 3e 61 |50s\n", |param->a|
|000030d0| 73 63 69 69 5f 68 6f 74 | 2c 20 70 61 72 61 6d 2d |scii_hot|, param-|
|000030e0| 3e 6d 61 63 5f 34 29 3b | 0a 58 09 77 70 72 69 6e |>mac_4);|.X.wprin|
|000030f0| 74 77 28 6d 61 5f 77 69 | 6e 2c 20 22 20 25 34 2e |tw(ma_wi|n, " %4.|
|00003100| 34 73 2d 25 25 20 20 25 | 2d 35 30 2e 35 30 73 5c |4s-%% %|-50.50s\|
|00003110| 6e 22 2c 20 70 61 72 61 | 6d 2d 3e 61 73 63 69 69 |n", para|m->ascii|
|00003120| 5f 68 6f 74 2c 20 70 61 | 72 61 6d 2d 3e 6d 61 63 |_hot, pa|ram->mac|
|00003130| 5f 35 29 3b 0a 58 09 77 | 70 72 69 6e 74 77 28 6d |_5);.X.w|printw(m|
|00003140| 61 5f 77 69 6e 2c 20 22 | 20 25 34 2e 34 73 2d 5e |a_win, "| %4.4s-^|
|00003150| 20 20 25 2d 35 30 2e 35 | 30 73 5c 6e 22 2c 20 70 | %-50.5|0s\n", p|
|00003160| 61 72 61 6d 2d 3e 61 73 | 63 69 69 5f 68 6f 74 2c |aram->as|cii_hot,|
|00003170| 20 70 61 72 61 6d 2d 3e | 6d 61 63 5f 36 29 3b 0a | param->|mac_6);.|
|00003180| 58 09 77 70 72 69 6e 74 | 77 28 6d 61 5f 77 69 6e |X.wprint|w(ma_win|
|00003190| 2c 20 22 20 25 34 2e 34 | 73 2d 26 20 20 25 2d 35 |, " %4.4|s-& %-5|
|000031a0| 30 2e 35 30 73 5c 6e 22 | 2c 20 70 61 72 61 6d 2d |0.50s\n"|, param-|
|000031b0| 3e 61 73 63 69 69 5f 68 | 6f 74 2c 20 70 61 72 61 |>ascii_h|ot, para|
|000031c0| 6d 2d 3e 6d 61 63 5f 37 | 29 3b 0a 58 09 77 70 72 |m->mac_7|);.X.wpr|
|000031d0| 69 6e 74 77 28 6d 61 5f | 77 69 6e 2c 20 22 20 25 |intw(ma_|win, " %|
|000031e0| 34 2e 34 73 2d 2a 20 20 | 25 2d 35 30 2e 35 30 73 |4.4s-* |%-50.50s|
|000031f0| 5c 6e 22 2c 20 70 61 72 | 61 6d 2d 3e 61 73 63 69 |\n", par|am->asci|
|00003200| 69 5f 68 6f 74 2c 20 70 | 61 72 61 6d 2d 3e 6d 61 |i_hot, p|aram->ma|
|00003210| 63 5f 38 29 3b 0a 58 09 | 77 70 72 69 6e 74 77 28 |c_8);.X.|wprintw(|
|00003220| 6d 61 5f 77 69 6e 2c 20 | 22 20 25 34 2e 34 73 2d |ma_win, |" %4.4s-|
|00003230| 28 20 20 25 2d 35 30 2e | 35 30 73 5c 6e 22 2c 20 |( %-50.|50s\n", |
|00003240| 70 61 72 61 6d 2d 3e 61 | 73 63 69 69 5f 68 6f 74 |param->a|scii_hot|
|00003250| 2c 20 70 61 72 61 6d 2d | 3e 6d 61 63 5f 39 29 3b |, param-|>mac_9);|
|00003260| 0a 58 09 77 70 72 69 6e | 74 77 28 6d 61 5f 77 69 |.X.wprin|tw(ma_wi|
|00003270| 6e 2c 20 22 20 25 34 2e | 34 73 2d 29 20 20 25 2d |n, " %4.|4s-) %-|
|00003280| 35 30 2e 35 30 73 5c 6e | 22 2c 20 70 61 72 61 6d |50.50s\n|", param|
|00003290| 2d 3e 61 73 63 69 69 5f | 68 6f 74 2c 20 70 61 72 |->ascii_|hot, par|
|000032a0| 61 6d 2d 3e 6d 61 63 5f | 30 29 3b 0a 58 09 6d 76 |am->mac_|0);.X.mv|
|000032b0| 77 61 64 64 73 74 72 28 | 6d 61 5f 77 69 6e 2c 20 |waddstr(|ma_win, |
|000032c0| 31 35 2c 20 35 2c 20 22 | 4d 61 63 72 6f 20 6b 65 |15, 5, "|Macro ke|
|000032d0| 79 20 74 6f 20 72 65 76 | 69 73 65 3a 22 29 3b 0a |y to rev|ise:");.|
|000032e0| 58 09 62 6f 78 28 6d 61 | 5f 77 69 6e 2c 20 56 45 |X.box(ma|_win, VE|
|000032f0| 52 54 2c 20 48 4f 52 5a | 29 3b 0a 58 09 09 09 09 |RT, HORZ|);.X....|
|00003300| 09 2f 2a 20 6f 6e 20 74 | 68 65 20 62 6f 74 74 6f |./* on t|he botto|
|00003310| 6d 20 6c 69 6e 65 20 2a | 2f 0a 58 09 6d 76 77 61 |m line *|/.X.mvwa|
|00003320| 64 64 73 74 72 28 6d 61 | 5f 77 69 6e 2c 20 31 37 |ddstr(ma|_win, 17|
|00003330| 2c 20 32 31 2c 20 22 20 | 50 72 65 73 73 20 3c 45 |, 21, " |Press <E|
|00003340| 53 43 3e 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 20 |SC> to c|ontinue |
|00003350| 22 29 3b 0a 58 09 77 6d | 6f 76 65 28 6d 61 5f 77 |");.X.wm|ove(ma_w|
|00003360| 69 6e 2c 20 31 35 2c 20 | 32 36 29 3b 0a 58 09 77 |in, 15, |26);.X.w|
|00003370| 72 65 66 72 65 73 68 28 | 6d 61 5f 77 69 6e 29 3b |refresh(|ma_win);|
|00003380| 0a 58 0a 58 09 72 65 74 | 5f 63 6f 64 65 20 3d 20 |.X.X.ret|_code = |
|00003390| 30 3b 0a 58 0a 58 09 77 | 68 69 6c 65 20 28 28 61 |0;.X.X.w|hile ((a|
|000033a0| 6e 73 20 3d 20 77 67 65 | 74 63 68 28 6d 61 5f 77 |ns = wge|tch(ma_w|
|000033b0| 69 6e 29 29 20 21 3d 20 | 45 53 43 29 20 7b 0a 58 |in)) != |ESC) {.X|
|000033c0| 09 09 73 77 69 74 63 68 | 20 28 61 6e 73 29 20 7b |..switch| (ans) {|
|000033d0| 0a 58 09 09 09 63 61 73 | 65 20 27 21 27 3a 09 2f |.X...cas|e '!':./|
|000033e0| 2a 20 73 68 69 66 74 65 | 64 20 31 20 2a 2f 0a 58 |* shifte|d 1 */.X|
|000033f0| 09 09 09 09 69 66 20 28 | 28 6d 61 63 20 3d 20 6d |....if (|(mac = m|
|00003400| 61 63 5f 70 72 6f 6d 70 | 74 28 61 6e 73 2c 20 70 |ac_promp|t(ans, p|
|00003410| 61 72 61 6d 2d 3e 6d 61 | 63 5f 31 29 29 20 21 3d |aram->ma|c_1)) !=|
|00003420| 20 4e 55 4c 4c 29 20 7b | 0a 58 09 09 09 09 09 66 | NULL) {|.X.....f|
|00003430| 72 65 65 5f 70 74 72 28 | 70 61 72 61 6d 2d 3e 6d |ree_ptr(|param->m|
|00003440| 61 63 5f 31 29 3b 0a 58 | 09 09 09 09 09 70 61 72 |ac_1);.X|.....par|
|00003450| 61 6d 2d 3e 6d 61 63 5f | 31 20 3d 20 73 74 72 64 |am->mac_|1 = strd|
|00003460| 75 70 28 6d 61 63 29 3b | 0a 58 09 09 09 09 09 63 |up(mac);|.X.....c|
|00003470| 6c 65 61 72 5f 6c 69 6e | 65 28 6d 61 5f 77 69 6e |lear_lin|e(ma_win|
|00003480| 2c 20 34 2c 20 39 2c 20 | 31 29 3b 0a 58 09 09 09 |, 4, 9, |1);.X...|
|00003490| 09 09 6d 76 77 61 74 74 | 72 73 74 72 28 6d 61 5f |..mvwatt|rstr(ma_|
|000034a0| 77 69 6e 2c 20 34 2c 20 | 39 2c 20 41 5f 42 4f 4c |win, 4, |9, A_BOL|
|000034b0| 44 2c 20 6d 61 63 29 3b | 0a 58 09 09 09 09 09 72 |D, mac);|.X.....r|
|000034c0| 65 74 5f 63 6f 64 65 2b | 2b 3b 0a 58 09 09 09 09 |et_code+|+;.X....|
|000034d0| 7d 0a 58 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 09 |}.X....b|reak;.X.|
|000034e0| 09 09 63 61 73 65 20 27 | 40 27 3a 09 2f 2a 20 73 |..case '|@':./* s|
|000034f0| 68 69 66 74 65 64 20 32 | 20 2a 2f 0a 58 09 09 09 |hifted 2| */.X...|
|00003500| 09 69 66 20 28 28 6d 61 | 63 20 3d 20 6d 61 63 5f |.if ((ma|c = mac_|
|00003510| 70 72 6f 6d 70 74 28 61 | 6e 73 2c 20 70 61 72 61 |prompt(a|ns, para|
|00003520| 6d 2d 3e 6d 61 63 5f 32 | 29 29 20 21 3d 20 4e 55 |m->mac_2|)) != NU|
|00003530| 4c 4c 29 20 7b 0a 58 09 | 09 09 09 09 66 72 65 65 |LL) {.X.|....free|
|00003540| 5f 70 74 72 28 70 61 72 | 61 6d 2d 3e 6d 61 63 5f |_ptr(par|am->mac_|
|00003550| 32 29 3b 0a 58 09 09 09 | 09 09 70 61 72 61 6d 2d |2);.X...|..param-|
|00003560| 3e 6d 61 63 5f 32 20 3d | 20 73 74 72 64 75 70 28 |>mac_2 =| strdup(|
|00003570| 6d 61 63 29 3b 0a 58 09 | 09 09 09 09 63 6c 65 61 |mac);.X.|....clea|
|00003580| 72 5f 6c 69 6e 65 28 6d | 61 5f 77 69 6e 2c 20 35 |r_line(m|a_win, 5|
|00003590| 2c 20 39 2c 20 31 29 3b | 0a 58 09 09 09 09 09 6d |, 9, 1);|.X.....m|
|000035a0| 76 77 61 74 74 72 73 74 | 72 28 6d 61 5f 77 69 6e |vwattrst|r(ma_win|
|000035b0| 2c 20 35 2c 20 39 2c 20 | 41 5f 42 4f 4c 44 2c 20 |, 5, 9, |A_BOLD, |
|000035c0| 6d 61 63 29 3b 0a 58 09 | 09 09 09 09 72 65 74 5f |mac);.X.|....ret_|
|000035d0| 63 6f 64 65 2b 2b 3b 0a | 58 09 09 09 09 7d 0a 58 |code++;.|X....}.X|
|000035e0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 09 63 |....brea|k;.X...c|
|000035f0| 61 73 65 20 27 23 27 3a | 09 2f 2a 20 73 68 69 66 |ase '#':|./* shif|
|00003600| 74 65 64 20 33 20 2a 2f | 0a 58 09 09 09 09 69 66 |ted 3 */|.X....if|
|00003610| 20 28 28 6d 61 63 20 3d | 20 6d 61 63 5f 70 72 6f | ((mac =| mac_pro|
|00003620| 6d 70 74 28 61 6e 73 2c | 20 70 61 72 61 6d 2d 3e |mpt(ans,| param->|
|00003630| 6d 61 63 5f 33 29 29 20 | 21 3d 20 4e 55 4c 4c 29 |mac_3)) |!= NULL)|
|00003640| 20 7b 0a 58 09 09 09 09 | 09 66 72 65 65 5f 70 74 | {.X....|.free_pt|
|00003650| 72 28 70 61 72 61 6d 2d | 3e 6d 61 63 5f 33 29 3b |r(param-|>mac_3);|
|00003660| 0a 58 09 09 09 09 09 70 | 61 72 61 6d 2d 3e 6d 61 |.X.....p|aram->ma|
|00003670| 63 5f 33 20 3d 20 73 74 | 72 64 75 70 28 6d 61 63 |c_3 = st|rdup(mac|
|00003680| 29 3b 0a 58 09 09 09 09 | 09 63 6c 65 61 72 5f 6c |);.X....|.clear_l|
|00003690| 69 6e 65 28 6d 61 5f 77 | 69 6e 2c 20 36 2c 20 39 |ine(ma_w|in, 6, 9|
|000036a0| 2c 20 31 29 3b 0a 58 09 | 09 09 09 09 6d 76 77 61 |, 1);.X.|....mvwa|
|000036b0| 74 74 72 73 74 72 28 6d | 61 5f 77 69 6e 2c 20 36 |ttrstr(m|a_win, 6|
|000036c0| 2c 20 39 2c 20 41 5f 42 | 4f 4c 44 2c 20 6d 61 63 |, 9, A_B|OLD, mac|
|000036d0| 29 3b 0a 58 09 09 09 09 | 09 72 65 74 5f 63 6f 64 |);.X....|.ret_cod|
|000036e0| 65 2b 2b 3b 0a 58 09 09 | 09 09 7d 0a 58 09 09 09 |e++;.X..|..}.X...|
|000036f0| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 63 61 73 65 |.break;.|X...case|
|00003700| 20 27 24 27 3a 09 2f 2a | 20 73 68 69 66 74 65 64 | '$':./*| shifted|
|00003710| 20 34 20 2a 2f 0a 58 09 | 09 09 09 69 66 20 28 28 | 4 */.X.|...if ((|
|00003720| 6d 61 63 20 3d 20 6d 61 | 63 5f 70 72 6f 6d 70 74 |mac = ma|c_prompt|
|00003730| 28 61 6e 73 2c 20 70 61 | 72 61 6d 2d 3e 6d 61 63 |(ans, pa|ram->mac|
|00003740| 5f 34 29 29 20 21 3d 20 | 4e 55 4c 4c 29 20 7b 0a |_4)) != |NULL) {.|
|00003750| 58 09 09 09 09 09 66 72 | 65 65 5f 70 74 72 28 70 |X.....fr|ee_ptr(p|
|00003760| 61 72 61 6d 2d 3e 6d 61 | 63 5f 34 29 3b 0a 58 09 |aram->ma|c_4);.X.|
|00003770| 09 09 09 09 70 61 72 61 | 6d 2d 3e 6d 61 63 5f 34 |....para|m->mac_4|
|00003780| 20 3d 20 73 74 72 64 75 | 70 28 6d 61 63 29 3b 0a | = strdu|p(mac);.|
|00003790| 58 09 09 09 09 09 63 6c | 65 61 72 5f 6c 69 6e 65 |X.....cl|ear_line|
|000037a0| 28 6d 61 5f 77 69 6e 2c | 20 37 2c 20 39 2c 20 31 |(ma_win,| 7, 9, 1|
|000037b0| 29 3b 0a 58 09 09 09 09 | 09 6d 76 77 61 74 74 72 |);.X....|.mvwattr|
|000037c0| 73 74 72 28 6d 61 5f 77 | 69 6e 2c 20 37 2c 20 39 |str(ma_w|in, 7, 9|
|000037d0| 2c 20 41 5f 42 4f 4c 44 | 2c 20 6d 61 63 29 3b 0a |, A_BOLD|, mac);.|
|000037e0| 58 09 09 09 09 09 72 65 | 74 5f 63 6f 64 65 2b 2b |X.....re|t_code++|
|000037f0| 3b 0a 58 09 09 09 09 7d | 0a 58 09 09 09 09 62 72 |;.X....}|.X....br|
|00003800| 65 61 6b 3b 0a 58 09 09 | 09 63 61 73 65 20 27 25 |eak;.X..|.case '%|
|00003810| 27 3a 09 2f 2a 20 73 68 | 69 66 74 65 64 20 35 20 |':./* sh|ifted 5 |
|00003820| 2a 2f 0a 58 09 09 09 09 | 69 66 20 28 28 6d 61 63 |*/.X....|if ((mac|
|00003830| 20 3d 20 6d 61 63 5f 70 | 72 6f 6d 70 74 28 61 6e | = mac_p|rompt(an|
|00003840| 73 2c 20 70 61 72 61 6d | 2d 3e 6d 61 63 5f 35 29 |s, param|->mac_5)|
|00003850| 29 20 21 3d 20 4e 55 4c | 4c 29 20 7b 0a 58 09 09 |) != NUL|L) {.X..|
|00003860| 09 09 09 66 72 65 65 5f | 70 74 72 28 70 61 72 61 |...free_|ptr(para|
|00003870| 6d 2d 3e 6d 61 63 5f 35 | 29 3b 0a 58 09 09 09 09 |m->mac_5|);.X....|
|00003880| 09 70 61 72 61 6d 2d 3e | 6d 61 63 5f 35 20 3d 20 |.param->|mac_5 = |
|00003890| 73 74 72 64 75 70 28 6d | 61 63 29 3b 0a 58 09 09 |strdup(m|ac);.X..|
|000038a0| 09 09 09 63 6c 65 61 72 | 5f 6c 69 6e 65 28 6d 61 |...clear|_line(ma|
|000038b0| 5f 77 69 6e 2c 20 38 2c | 20 39 2c 20 31 29 3b 0a |_win, 8,| 9, 1);.|
|000038c0| 58 09 09 09 09 09 6d 76 | 77 61 74 74 72 73 74 72 |X.....mv|wattrstr|
|000038d0| 28 6d 61 5f 77 69 6e 2c | 20 38 2c 20 39 2c 20 41 |(ma_win,| 8, 9, A|
|000038e0| 5f 42 4f 4c 44 2c 20 6d | 61 63 29 3b 0a 58 09 09 |_BOLD, m|ac);.X..|
|000038f0| 09 09 09 72 65 74 5f 63 | 6f 64 65 2b 2b 3b 0a 58 |...ret_c|ode++;.X|
|00003900| 09 09 09 09 7d 0a 58 09 | 09 09 09 62 72 65 61 6b |....}.X.|...break|
|00003910| 3b 0a 58 09 09 09 63 61 | 73 65 20 27 5e 27 3a 09 |;.X...ca|se '^':.|
|00003920| 2f 2a 20 73 68 69 66 74 | 65 64 20 36 20 2a 2f 0a |/* shift|ed 6 */.|
|00003930| 58 09 09 09 09 69 66 20 | 28 28 6d 61 63 20 3d 20 |X....if |((mac = |
|00003940| 6d 61 63 5f 70 72 6f 6d | 70 74 28 61 6e 73 2c 20 |mac_prom|pt(ans, |
|00003950| 70 61 72 61 6d 2d 3e 6d | 61 63 5f 36 29 29 20 21 |param->m|ac_6)) !|
|00003960| 3d 20 4e 55 4c 4c 29 20 | 7b 0a 58 09 09 09 09 09 |= NULL) |{.X.....|
|00003970| 66 72 65 65 5f 70 74 72 | 28 70 61 72 61 6d 2d 3e |free_ptr|(param->|
|00003980| 6d 61 63 5f 36 29 3b 0a | 58 09 09 09 09 09 70 61 |mac_6);.|X.....pa|
|00003990| 72 61 6d 2d 3e 6d 61 63 | 5f 36 20 3d 20 73 74 72 |ram->mac|_6 = str|
|000039a0| 64 75 70 28 6d 61 63 29 | 3b 0a 58 09 09 09 09 09 |dup(mac)|;.X.....|
|000039b0| 63 6c 65 61 72 5f 6c 69 | 6e 65 28 6d 61 5f 77 69 |clear_li|ne(ma_wi|
|000039c0| 6e 2c 20 39 2c 20 39 2c | 20 31 29 3b 0a 58 09 09 |n, 9, 9,| 1);.X..|
|000039d0| 09 09 09 6d 76 77 61 74 | 74 72 73 74 72 28 6d 61 |...mvwat|trstr(ma|
|000039e0| 5f 77 69 6e 2c 20 39 2c | 20 39 2c 20 41 5f 42 4f |_win, 9,| 9, A_BO|
|000039f0| 4c 44 2c 20 6d 61 63 29 | 3b 0a 58 09 09 09 09 09 |LD, mac)|;.X.....|
|00003a00| 72 65 74 5f 63 6f 64 65 | 2b 2b 3b 0a 58 09 09 09 |ret_code|++;.X...|
|00003a10| 09 7d 0a 58 09 09 09 09 | 62 72 65 61 6b 3b 0a 58 |.}.X....|break;.X|
|00003a20| 09 09 09 63 61 73 65 20 | 27 26 27 3a 09 2f 2a 20 |...case |'&':./* |
|00003a30| 73 68 69 66 74 65 64 20 | 37 20 2a 2f 0a 58 09 09 |shifted |7 */.X..|
|00003a40| 09 09 69 66 20 28 28 6d | 61 63 20 3d 20 6d 61 63 |..if ((m|ac = mac|
|00003a50| 5f 70 72 6f 6d 70 74 28 | 61 6e 73 2c 20 70 61 72 |_prompt(|ans, par|
|00003a60| 61 6d 2d 3e 6d 61 63 5f | 37 29 29 20 21 3d 20 4e |am->mac_|7)) != N|
|00003a70| 55 4c 4c 29 20 7b 0a 58 | 09 09 09 09 09 66 72 65 |ULL) {.X|.....fre|
|00003a80| 65 5f 70 74 72 28 70 61 | 72 61 6d 2d 3e 6d 61 63 |e_ptr(pa|ram->mac|
|00003a90| 5f 37 29 3b 0a 58 09 09 | 09 09 09 70 61 72 61 6d |_7);.X..|...param|
|00003aa0| 2d 3e 6d 61 63 5f 37 20 | 3d 20 73 74 72 64 75 70 |->mac_7 |= strdup|
|00003ab0| 28 6d 61 63 29 3b 0a 58 | 09 09 09 09 09 63 6c 65 |(mac);.X|.....cle|
|00003ac0| 61 72 5f 6c 69 6e 65 28 | 6d 61 5f 77 69 6e 2c 20 |ar_line(|ma_win, |
|00003ad0| 31 30 2c 20 39 2c 20 31 | 29 3b 0a 58 09 09 09 09 |10, 9, 1|);.X....|
|00003ae0| 09 6d 76 77 61 74 74 72 | 73 74 72 28 6d 61 5f 77 |.mvwattr|str(ma_w|
|00003af0| 69 6e 2c 20 31 30 2c 20 | 39 2c 20 41 5f 42 4f 4c |in, 10, |9, A_BOL|
|00003b00| 44 2c 20 6d 61 63 29 3b | 0a 58 09 09 09 09 09 72 |D, mac);|.X.....r|
|00003b10| 65 74 5f 63 6f 64 65 2b | 2b 3b 0a 58 09 09 09 09 |et_code+|+;.X....|
|00003b20| 7d 0a 58 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 09 |}.X....b|reak;.X.|
|00003b30| 09 09 63 61 73 65 20 27 | 2a 27 3a 09 2f 2a 20 73 |..case '|*':./* s|
|00003b40| 68 69 66 74 65 64 20 38 | 20 2a 2f 0a 58 09 09 09 |hifted 8| */.X...|
|00003b50| 09 69 66 20 28 28 6d 61 | 63 20 3d 20 6d 61 63 5f |.if ((ma|c = mac_|
|00003b60| 70 72 6f 6d 70 74 28 61 | 6e 73 2c 20 70 61 72 61 |prompt(a|ns, para|
|00003b70| 6d 2d 3e 6d 61 63 5f 38 | 29 29 20 21 3d 20 4e 55 |m->mac_8|)) != NU|
|00003b80| 4c 4c 29 20 7b 0a 58 09 | 09 09 09 09 66 72 65 65 |LL) {.X.|....free|
|00003b90| 5f 70 74 72 28 70 61 72 | 61 6d 2d 3e 6d 61 63 5f |_ptr(par|am->mac_|
|00003ba0| 38 29 3b 0a 58 09 09 09 | 09 09 70 61 72 61 6d 2d |8);.X...|..param-|
|00003bb0| 3e 6d 61 63 5f 38 20 3d | 20 73 74 72 64 75 70 28 |>mac_8 =| strdup(|
|00003bc0| 6d 61 63 29 3b 0a 58 09 | 09 09 09 09 63 6c 65 61 |mac);.X.|....clea|
|00003bd0| 72 5f 6c 69 6e 65 28 6d | 61 5f 77 69 6e 2c 20 31 |r_line(m|a_win, 1|
|00003be0| 31 2c 20 39 2c 20 31 29 | 3b 0a 58 09 09 09 09 09 |1, 9, 1)|;.X.....|
|00003bf0| 6d 76 77 61 74 74 72 73 | 74 72 28 6d 61 5f 77 69 |mvwattrs|tr(ma_wi|
|00003c00| 6e 2c 20 31 31 2c 20 39 | 2c 20 41 5f 42 4f 4c 44 |n, 11, 9|, A_BOLD|
|00003c10| 2c 20 6d 61 63 29 3b 0a | 58 09 09 09 09 09 72 65 |, mac);.|X.....re|
|00003c20| 74 5f 63 6f 64 65 2b 2b | 3b 0a 58 09 09 09 09 7d |t_code++|;.X....}|
|00003c30| 0a 58 09 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |.X....br|eak;.X..|
|00003c40| 09 63 61 73 65 20 27 28 | 27 3a 09 2f 2a 20 73 68 |.case '(|':./* sh|
|00003c50| 69 66 74 65 64 20 39 20 | 2a 2f 0a 58 09 09 09 09 |ifted 9 |*/.X....|
|00003c60| 69 66 20 28 28 6d 61 63 | 20 3d 20 6d 61 63 5f 70 |if ((mac| = mac_p|
|00003c70| 72 6f 6d 70 74 28 61 6e | 73 2c 20 70 61 72 61 6d |rompt(an|s, param|
|00003c80| 2d 3e 6d 61 63 5f 39 29 | 29 20 21 3d 20 4e 55 4c |->mac_9)|) != NUL|
|00003c90| 4c 29 20 7b 0a 58 09 09 | 09 09 09 66 72 65 65 5f |L) {.X..|...free_|
|00003ca0| 70 74 72 28 70 61 72 61 | 6d 2d 3e 6d 61 63 5f 39 |ptr(para|m->mac_9|
|00003cb0| 29 3b 0a 58 09 09 09 09 | 09 70 61 72 61 6d 2d 3e |);.X....|.param->|
|00003cc0| 6d 61 63 5f 39 20 3d 20 | 73 74 72 64 75 70 28 6d |mac_9 = |strdup(m|
|00003cd0| 61 63 29 3b 0a 58 09 09 | 09 09 09 63 6c 65 61 72 |ac);.X..|...clear|
|00003ce0| 5f 6c 69 6e 65 28 6d 61 | 5f 77 69 6e 2c 20 31 32 |_line(ma|_win, 12|
|00003cf0| 2c 20 39 2c 20 31 29 3b | 0a 58 09 09 09 09 09 6d |, 9, 1);|.X.....m|
|00003d00| 76 77 61 74 74 72 73 74 | 72 28 6d 61 5f 77 69 6e |vwattrst|r(ma_win|
|00003d10| 2c 20 31 32 2c 20 39 2c | 20 41 5f 42 4f 4c 44 2c |, 12, 9,| A_BOLD,|
|00003d20| 20 6d 61 63 29 3b 0a 58 | 09 09 09 09 09 72 65 74 | mac);.X|.....ret|
|00003d30| 5f 63 6f 64 65 2b 2b 3b | 0a 58 09 09 09 09 7d 0a |_code++;|.X....}.|
|00003d40| 58 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |X....bre|ak;.X...|
|00003d50| 63 61 73 65 20 27 29 27 | 3a 09 2f 2a 20 73 68 69 |case ')'|:./* shi|
|00003d60| 66 74 65 64 20 30 20 2a | 2f 0a 58 09 09 09 09 69 |fted 0 *|/.X....i|
|00003d70| 66 20 28 28 6d 61 63 20 | 3d 20 6d 61 63 5f 70 72 |f ((mac |= mac_pr|
|00003d80| 6f 6d 70 74 28 61 6e 73 | 2c 20 70 61 72 61 6d 2d |ompt(ans|, param-|
|00003d90| 3e 6d 61 63 5f 30 29 29 | 20 21 3d 20 4e 55 4c 4c |>mac_0))| != NULL|
|00003da0| 29 20 7b 0a 58 09 09 09 | 09 09 66 72 65 65 5f 70 |) {.X...|..free_p|
|00003db0| 74 72 28 70 61 72 61 6d | 2d 3e 6d 61 63 5f 30 29 |tr(param|->mac_0)|
|00003dc0| 3b 0a 58 09 09 09 09 09 | 70 61 72 61 6d 2d 3e 6d |;.X.....|param->m|
|00003dd0| 61 63 5f 30 20 3d 20 73 | 74 72 64 75 70 28 6d 61 |ac_0 = s|trdup(ma|
|00003de0| 63 29 3b 0a 58 09 09 09 | 09 09 63 6c 65 61 72 5f |c);.X...|..clear_|
|00003df0| 6c 69 6e 65 28 6d 61 5f | 77 69 6e 2c 20 31 33 2c |line(ma_|win, 13,|
|00003e00| 20 39 2c 20 31 29 3b 0a | 58 09 09 09 09 09 6d 76 | 9, 1);.|X.....mv|
|00003e10| 77 61 74 74 72 73 74 72 | 28 6d 61 5f 77 69 6e 2c |wattrstr|(ma_win,|
|00003e20| 20 31 33 2c 20 39 2c 20 | 41 5f 42 4f 4c 44 2c 20 | 13, 9, |A_BOLD, |
|00003e30| 6d 61 63 29 3b 0a 58 09 | 09 09 09 09 72 65 74 5f |mac);.X.|....ret_|
|00003e40| 63 6f 64 65 2b 2b 3b 0a | 58 09 09 09 09 7d 0a 58 |code++;.|X....}.X|
|00003e50| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 09 64 |....brea|k;.X...d|
|00003e60| 65 66 61 75 6c 74 3a 0a | 58 09 09 09 09 62 65 65 |efault:.|X....bee|
|00003e70| 70 28 29 3b 0a 58 09 09 | 09 09 62 72 65 61 6b 3b |p();.X..|..break;|
|00003e80| 0a 58 09 09 7d 0a 58 09 | 09 74 6f 75 63 68 77 69 |.X..}.X.|.touchwi|
|00003e90| 6e 28 6d 61 5f 77 69 6e | 29 3b 0a 58 09 09 77 6d |n(ma_win|);.X..wm|
|00003ea0| 6f 76 65 28 6d 61 5f 77 | 69 6e 2c 20 31 35 2c 20 |ove(ma_w|in, 15, |
|00003eb0| 32 36 29 3b 0a 58 09 09 | 77 72 65 66 72 65 73 68 |26);.X..|wrefresh|
|00003ec0| 28 6d 61 5f 77 69 6e 29 | 3b 0a 58 09 7d 0a 58 09 |(ma_win)|;.X.}.X.|
|00003ed0| 09 09 09 09 2f 2a 20 69 | 66 20 73 6f 6d 65 74 68 |..../* i|f someth|
|00003ee0| 69 6e 67 20 63 68 61 6e | 67 65 64 20 2a 2f 0a 58 |ing chan|ged */.X|
|00003ef0| 09 69 66 20 28 72 65 74 | 5f 63 6f 64 65 29 20 7b |.if (ret|_code) {|
|00003f00| 0a 58 09 09 09 09 09 2f | 2a 20 73 61 76 65 20 74 |.X...../|* save t|
|00003f10| 6f 20 64 69 73 6b 3f 20 | 2a 2f 0a 58 09 09 69 66 |o disk? |*/.X..if|
|00003f20| 20 28 79 65 73 5f 70 72 | 6f 6d 70 74 28 6d 61 5f | (yes_pr|ompt(ma_|
|00003f30| 77 69 6e 2c 20 31 35 2c | 20 33 30 2c 20 41 5f 42 |win, 15,| 30, A_B|
|00003f40| 4f 4c 44 2c 20 22 53 61 | 76 65 20 74 6f 20 64 69 |OLD, "Sa|ve to di|
|00003f50| 73 6b 22 29 29 20 7b 0a | 58 09 09 09 69 66 20 28 |sk")) {.|X...if (|
|00003f60| 75 70 5f 70 61 72 61 6d | 28 29 29 20 7b 0a 58 09 |up_param|()) {.X.|
|00003f70| 09 09 09 74 6f 75 63 68 | 77 69 6e 28 6d 61 5f 77 |...touch|win(ma_w|
|00003f80| 69 6e 29 3b 0a 58 09 09 | 09 09 77 72 65 66 72 65 |in);.X..|..wrefre|
|00003f90| 73 68 28 6d 61 5f 77 69 | 6e 29 3b 0a 58 09 09 09 |sh(ma_wi|n);.X...|
|00003fa0| 7d 0a 58 09 09 7d 0a 58 | 09 7d 0a 58 09 69 66 20 |}.X..}.X|.}.X.if |
|00003fb0| 28 66 64 20 3d 3d 20 2d | 31 29 20 7b 0a 58 09 09 |(fd == -|1) {.X..|
|00003fc0| 77 65 72 61 73 65 28 6d | 61 5f 77 69 6e 29 3b 0a |werase(m|a_win);.|
|00003fd0| 58 09 09 77 72 65 66 72 | 65 73 68 28 6d 61 5f 77 |X..wrefr|esh(ma_w|
|00003fe0| 69 6e 29 3b 0a 58 09 7d | 0a 58 09 64 65 6c 77 69 |in);.X.}|.X.delwi|
|00003ff0| 6e 28 6d 61 5f 77 69 6e | 29 3b 0a 58 09 72 65 74 |n(ma_win|);.X.ret|
|00004000| 75 72 6e 28 72 65 74 5f | 63 6f 64 65 29 3b 0a 58 |urn(ret_|code);.X|
|00004010| 7d 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 53 6f 75 6e |}.X.X/*.|X * Soun|
|00004020| 64 73 20 6c 69 6b 65 20 | 4d 61 63 20 44 6f 6e 61 |ds like |Mac Dona|
|00004030| 6c 64 73 20 64 6f 65 73 | 6e 27 74 20 69 74 3f 20 |lds does|n't it? |
|00004040| 20 41 63 74 75 61 6c 6c | 79 2c 20 69 74 20 6f 70 | Actuall|y, it op|
|00004050| 65 6e 73 20 61 20 6e 65 | 77 20 77 69 6e 64 6f 77 |ens a ne|w window|
|00004060| 0a 58 20 2a 20 61 6e 64 | 20 70 72 6f 6d 70 74 73 |.X * and| prompts|
|00004070| 20 66 6f 72 20 74 68 65 | 20 6e 65 77 20 6d 61 63 | for the| new mac|
|00004080| 72 6f 2e 20 20 52 65 74 | 75 72 6e 73 20 61 20 70 |ro. Ret|urns a p|
|00004090| 6f 69 6e 74 65 72 20 74 | 6f 20 74 68 65 20 6e 65 |ointer t|o the ne|
|000040a0| 77 20 73 74 72 69 6e 67 | 2e 0a 58 20 2a 2f 0a 58 |w string|..X */.X|
|000040b0| 0a 58 73 74 61 74 69 63 | 20 63 68 61 72 20 2a 0a |.Xstatic| char *.|
|000040c0| 58 6d 61 63 5f 70 72 6f | 6d 70 74 28 6b 65 79 2c |Xmac_pro|mpt(key,|
|000040d0| 20 73 74 72 69 6e 67 29 | 0a 58 63 68 61 72 20 6b | string)|.Xchar k|
|000040e0| 65 79 2c 20 2a 73 74 72 | 69 6e 67 3b 0a 58 7b 0a |ey, *str|ing;.X{.|
|000040f0| 58 09 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 6e |X.extern| char *n|
|00004100| 75 6c 6c 5f 70 74 72 3b | 0a 58 09 57 49 4e 44 4f |ull_ptr;|.X.WINDO|
|00004110| 57 20 2a 6d 70 5f 77 69 | 6e 2c 20 2a 6e 65 77 77 |W *mp_wi|n, *neww|
|00004120| 69 6e 28 29 3b 0a 58 09 | 63 68 61 72 20 2a 6e 65 |in();.X.|char *ne|
|00004130| 77 2c 20 2a 67 65 74 5f | 73 74 72 28 29 3b 0a 58 |w, *get_|str();.X|
|00004140| 0a 58 09 6d 70 5f 77 69 | 6e 20 3d 20 6e 65 77 77 |.X.mp_wi|n = neww|
|00004150| 69 6e 28 36 2c 20 36 35 | 2c 20 38 2c 20 30 29 3b |in(6, 65|, 8, 0);|
|00004160| 0a 58 09 6d 76 77 70 72 | 69 6e 74 77 28 6d 70 5f |.X.mvwpr|intw(mp_|
|00004170| 77 69 6e 2c 20 32 2c 20 | 33 2c 20 22 25 34 2e 34 |win, 2, |3, "%4.4|
|00004180| 73 2d 25 63 20 20 25 2d | 35 30 2e 35 30 73 22 2c |s-%c %-|50.50s",|
|00004190| 20 70 61 72 61 6d 2d 3e | 61 73 63 69 69 5f 68 6f | param->|ascii_ho|
|000041a0| 74 2c 20 6b 65 79 2c 20 | 73 74 72 69 6e 67 29 3b |t, key, |string);|
|000041b0| 0a 58 09 6d 76 77 61 64 | 64 73 74 72 28 6d 70 5f |.X.mvwad|dstr(mp_|
|000041c0| 77 69 6e 2c 20 33 2c 20 | 35 2c 20 22 4e 65 77 20 |win, 3, |5, "New |
|000041d0| 3a 20 22 29 3b 0a 58 09 | 62 6f 78 28 6d 70 5f 77 |: ");.X.|box(mp_w|
|000041e0| 69 6e 2c 20 56 45 52 54 | 2c 20 48 4f 52 5a 29 3b |in, VERT|, HORZ);|
|000041f0| 0a 58 09 77 72 65 66 72 | 65 73 68 28 6d 70 5f 77 |.X.wrefr|esh(mp_w|
|00004200| 69 6e 29 3b 0a 58 0a 58 | 09 6e 65 77 20 3d 20 67 |in);.X.X|.new = g|
|00004210| 65 74 5f 73 74 72 28 6d | 70 5f 77 69 6e 2c 20 35 |et_str(m|p_win, 5|
|00004220| 30 2c 20 22 22 2c 20 22 | 22 29 3b 0a 58 09 09 09 |0, "", "|");.X...|
|00004230| 09 09 2f 2a 20 69 66 20 | 73 70 61 63 65 2c 20 63 |../* if |space, c|
|00004240| 68 61 6e 67 65 20 74 6f | 20 4e 55 4c 4c 20 70 6f |hange to| NULL po|
|00004250| 69 6e 74 65 72 20 2a 2f | 0a 58 09 69 66 20 28 21 |inter */|.X.if (!|
|00004260| 73 74 72 63 6d 70 28 6e | 65 77 2c 20 22 20 22 29 |strcmp(n|ew, " ")|
|00004270| 29 0a 58 09 09 6e 65 77 | 20 3d 20 6e 75 6c 6c 5f |).X..new| = null_|
|00004280| 70 74 72 3b 0a 58 0a 58 | 09 77 65 72 61 73 65 28 |ptr;.X.X|.werase(|
|00004290| 6d 70 5f 77 69 6e 29 3b | 0a 58 09 77 72 65 66 72 |mp_win);|.X.wrefr|
|000042a0| 65 73 68 28 6d 70 5f 77 | 69 6e 29 3b 0a 58 09 64 |esh(mp_w|in);.X.d|
|000042b0| 65 6c 77 69 6e 28 6d 70 | 5f 77 69 6e 29 3b 0a 58 |elwin(mp|_win);.X|
|000042c0| 09 72 65 74 75 72 6e 28 | 6e 65 77 29 3b 0a 58 7d |.return(|new);.X}|
|000042d0| 0a 53 48 41 52 5f 45 4f | 46 0a 69 66 20 74 65 73 |.SHAR_EO|F.if tes|
|000042e0| 74 20 35 32 34 33 20 2d | 6e 65 20 22 60 77 63 20 |t 5243 -|ne "`wc |
|000042f0| 2d 63 20 3c 20 27 6d 61 | 63 72 6f 2e 63 27 60 22 |-c < 'ma|cro.c'`"|
|00004300| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00004310| 3a 20 22 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |: "error| transmi|
|00004320| 74 74 69 6e 67 20 27 6d | 61 63 72 6f 2e 63 27 22 |tting 'm|acro.c'"|
|00004330| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|00004340| 65 65 6e 20 35 32 34 33 | 20 63 68 61 72 61 63 74 |een 5243| charact|
|00004350| 65 72 73 29 27 0a 66 69 | 0a 66 69 0a 65 63 68 6f |ers)'.fi|.fi.echo|
|00004360| 20 73 68 61 72 3a 20 22 | 65 78 74 72 61 63 74 69 | shar: "|extracti|
|00004370| 6e 67 20 27 6d 61 69 6e | 2e 63 27 22 20 27 28 36 |ng 'main|.c'" '(6|
|00004380| 31 33 33 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |133 char|acters)'|
|00004390| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 6d 61 69 |.if test| -f 'mai|
|000043a0| 6e 2e 63 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |n.c'.the|n..echo |
|000043b0| 73 68 61 72 3a 20 22 77 | 69 6c 6c 20 6e 6f 74 20 |shar: "w|ill not |
|000043c0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|000043d0| 69 6e 67 20 66 69 6c 65 | 20 27 6d 61 69 6e 2e 63 |ing file| 'main.c|
|000043e0| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|000043f0| 58 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |X//' << |\SHAR_EO|
|00004400| 46 20 3e 20 27 6d 61 69 | 6e 2e 63 27 0a 58 2f 2a |F > 'mai|n.c'.X/*|
|00004410| 0a 58 20 2a 20 50 63 6f | 6d 6d 20 69 73 20 61 20 |.X * Pco|mm is a |
|00004420| 70 75 62 6c 69 63 20 64 | 6f 6d 61 69 6e 20 74 65 |public d|omain te|
|00004430| 6c 65 63 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 20 |lecommun|ication |
|00004440| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 55 6e 69 78 |program |for Unix|
|00004450| 20 74 68 61 74 0a 58 20 | 2a 20 69 73 20 64 65 73 | that.X |* is des|
|00004460| 69 67 6e 65 64 20 74 6f | 20 6f 70 65 72 61 74 65 |igned to| operate|
|00004470| 20 73 69 6d 69 6c 61 72 | 20 74 6f 20 74 68 65 20 | similar| to the |
|00004480| 4d 53 44 4f 53 20 70 72 | 6f 67 72 61 6d 2c 20 50 |MSDOS pr|ogram, P|
|00004490| 72 6f 43 6f 6d 6d 2e 0a | 58 20 2a 20 50 72 6f 43 |roComm..|X * ProC|
|000044a0| 6f 6d 6d 20 28 54 4d 29 | 20 69 73 20 63 6f 70 79 |omm (TM)| is copy|
|000044b0| 72 69 67 68 74 65 64 20 | 62 79 20 44 61 74 61 73 |righted |by Datas|
|000044c0| 74 6f 72 6d 20 54 65 63 | 68 6e 6f 6c 6f 67 69 65 |torm Tec|hnologie|
|000044d0| 73 2c 20 49 6e 63 2e 0a | 58 20 2a 0a 58 20 2a 20 |s, Inc..|X *.X * |
|000044e0| 45 6d 6d 65 74 20 50 2e | 20 47 72 61 79 09 09 09 |Emmet P.| Gray...|
|000044f0| 55 53 20 41 72 6d 79 2c | 20 48 51 20 49 49 49 20 |US Army,| HQ III |
|00004500| 43 6f 72 70 73 20 26 20 | 46 6f 72 74 20 48 6f 6f |Corps & |Fort Hoo|
|00004510| 64 0a 58 20 2a 20 2e 2e | 2e 21 75 75 6e 65 74 21 |d.X * ..|.!uunet!|
|00004520| 75 69 75 63 75 78 63 21 | 66 74 68 6f 6f 64 21 65 |uiucuxc!|fthood!e|
|00004530| 67 72 61 79 09 41 74 74 | 6e 3a 20 41 46 5a 46 2d |gray.Att|n: AFZF-|
|00004540| 44 45 2d 45 4e 56 0a 58 | 20 2a 09 09 09 09 09 44 |DE-ENV.X| *.....D|
|00004550| 69 72 65 63 74 6f 72 61 | 74 65 20 6f 66 20 45 6e |irectora|te of En|
|00004560| 67 69 6e 65 65 72 69 6e | 67 20 26 20 48 6f 75 73 |gineerin|g & Hous|
|00004570| 69 6e 67 0a 58 20 2a 09 | 09 09 09 09 45 6e 76 69 |ing.X *.|....Envi|
|00004580| 72 6f 6e 6d 65 6e 74 61 | 6c 20 4d 61 6e 61 67 65 |ronmenta|l Manage|
|00004590| 6d 65 6e 74 20 4f 66 66 | 69 63 65 0a 58 20 2a 09 |ment Off|ice.X *.|
|000045a0| 09 09 09 09 46 6f 72 74 | 20 48 6f 6f 64 2c 20 54 |....Fort| Hood, T|
|000045b0| 58 20 37 36 35 34 34 2d | 35 30 35 37 0a 58 20 2a |X 76544-|5057.X *|
|000045c0| 0a 58 20 2a 09 52 65 6c | 65 61 73 65 20 76 31 2e |.X *.Rel|ease v1.|
|000045d0| 30 09 31 32 20 4d 61 72 | 20 38 38 0a 58 20 2a 09 |0.12 Mar| 88.X *.|
|000045e0| 20 20 70 61 74 63 68 20 | 23 31 09 32 32 20 4d 61 | patch |#1.22 Ma|
|000045f0| 72 20 38 38 0a 58 20 2a | 09 20 20 70 61 74 63 68 |r 88.X *|. patch|
|00004600| 20 23 32 09 32 36 20 4d | 61 72 20 38 38 0a 58 20 | #2.26 M|ar 88.X |
|00004610| 2a 09 20 20 70 61 74 63 | 68 20 23 33 09 20 33 20 |*. patc|h #3. 3 |
|00004620| 41 70 72 20 38 38 0a 58 | 20 2a 09 20 20 70 61 74 |Apr 88.X| *. pat|
|00004630| 63 68 20 23 34 09 31 34 | 20 41 70 72 20 38 38 0a |ch #4.14| Apr 88.|
|00004640| 58 20 2a 09 20 20 70 61 | 74 63 68 20 23 35 09 32 |X *. pa|tch #5.2|
|00004650| 35 20 4d 61 79 20 38 38 | 0a 58 20 2a 09 52 65 6c |5 May 88|.X *.Rel|
|00004660| 65 61 73 65 20 76 31 2e | 31 09 32 31 20 41 75 67 |ease v1.|1.21 Aug|
|00004670| 20 38 38 0a 58 20 2a 2f | 0a 58 0a 58 23 69 6e 63 | 88.X */|.X.X#inc|
|00004680| 6c 75 64 65 20 3c 73 74 | 64 69 6f 2e 68 3e 0a 58 |lude <st|dio.h>.X|
|00004690| 23 69 6e 63 6c 75 64 65 | 20 3c 73 69 67 6e 61 6c |#include| <signal|
|000046a0| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 63 |.h>.X#in|clude <c|
|000046b0| 75 72 73 65 73 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |urses.h>|.X#inclu|
|000046c0| 64 65 20 3c 73 79 73 2f | 74 79 70 65 73 2e 68 3e |de <sys/|types.h>|
|000046d0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 79 73 2f |.X#inclu|de <sys/|
|000046e0| 73 74 61 74 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |stat.h>.|X#includ|
|000046f0| 65 20 22 63 6f 6e 66 69 | 67 2e 68 22 0a 58 23 69 |e "confi|g.h".X#i|
|00004700| 66 6e 64 65 66 20 4f 4c | 44 43 55 52 53 45 53 0a |fndef OL|DCURSES.|
|00004710| 58 23 69 6e 63 6c 75 64 | 65 20 3c 74 65 72 6d 2e |X#includ|e <term.|
|00004720| 68 3e 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4f 4c |h>.X#end|if /* OL|
|00004730| 44 43 55 52 53 45 53 20 | 2a 2f 0a 58 23 64 65 66 |DCURSES |*/.X#def|
|00004740| 69 6e 65 20 4d 41 49 4e | 0a 58 23 69 6e 63 6c 75 |ine MAIN|.X#inclu|
|00004750| 64 65 20 22 64 69 61 6c | 5f 64 69 72 2e 68 22 0a |de "dial|_dir.h".|
|00004760| 58 23 69 6e 63 6c 75 64 | 65 20 22 6d 6f 64 65 6d |X#includ|e "modem|
|00004770| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 70 |.h".X#in|clude "p|
|00004780| 61 72 61 6d 2e 68 22 0a | 58 23 69 6e 63 6c 75 64 |aram.h".|X#includ|
|00004790| 65 20 22 73 74 61 74 75 | 73 2e 68 22 0a 58 0a 58 |e "statu|s.h".X.X|
|000047a0| 23 69 66 64 65 66 20 4f | 4c 44 43 55 52 53 45 53 |#ifdef O|LDCURSES|
|000047b0| 0a 58 63 68 61 72 20 74 | 63 62 75 66 5b 31 30 32 |.Xchar t|cbuf[102|
|000047c0| 34 5d 2c 20 2a 54 49 2c | 20 2a 56 53 3b 0a 58 23 |4], *TI,| *VS;.X#|
|000047d0| 64 65 66 69 6e 65 20 63 | 62 72 65 61 6b 20 63 72 |define c|break cr|
|000047e0| 6d 6f 64 65 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |mode.X#e|ndif /* |
|000047f0| 4f 4c 44 43 55 52 53 45 | 53 20 2a 2f 0a 58 0a 58 |OLDCURSE|S */.X.X|
|00004800| 23 69 66 64 65 66 20 53 | 48 41 52 45 44 4d 45 4d |#ifdef S|HAREDMEM|
|00004810| 0a 58 69 6e 74 20 73 68 | 6d 5f 69 64 3b 0a 58 23 |.Xint sh|m_id;.X#|
|00004820| 65 6e 64 69 66 20 2f 2a | 20 53 48 41 52 45 44 4d |endif /*| SHAREDM|
|00004830| 45 4d 20 2a 2f 0a 58 0a | 58 73 74 72 75 63 74 20 |EM */.X.|Xstruct |
|00004840| 50 41 52 41 4d 20 2a 70 | 61 72 61 6d 3b 0a 58 73 |PARAM *p|aram;.Xs|
|00004850| 74 72 75 63 74 20 44 49 | 41 4c 5f 44 49 52 20 2a |truct DI|AL_DIR *|
|00004860| 64 69 72 3b 0a 58 73 74 | 72 75 63 74 20 53 54 41 |dir;.Xst|ruct STA|
|00004870| 54 55 53 20 2a 73 74 61 | 74 75 73 3b 0a 58 73 74 |TUS *sta|tus;.Xst|
|00004880| 72 75 63 74 20 4d 4f 44 | 45 4d 20 2a 6d 6f 64 65 |ruct MOD|EM *mode|
|00004890| 6d 3b 0a 58 0a 58 69 6e | 74 20 66 64 20 3d 20 2d |m;.X.Xin|t fd = -|
|000048a0| 31 3b 09 09 09 09 2f 2a | 20 66 69 6c 65 20 64 65 |1;..../*| file de|
|000048b0| 73 63 72 69 70 74 6f 72 | 20 66 6f 72 20 70 6f 72 |scriptor| for por|
|000048c0| 74 20 2a 2f 0a 58 69 6e | 74 20 78 6d 63 3b 09 09 |t */.Xin|t xmc;..|
|000048d0| 09 09 2f 2a 20 6d 61 67 | 69 63 20 63 6f 6f 6b 69 |../* mag|ic cooki|
|000048e0| 65 20 74 65 72 6d 69 6e | 61 6c 20 2a 2f 0a 58 69 |e termin|al */.Xi|
|000048f0| 6e 74 20 6d 73 67 5f 73 | 74 61 74 75 73 3b 09 09 |nt msg_s|tatus;..|
|00004900| 09 09 2f 2a 20 72 65 61 | 64 2f 77 72 69 74 65 20 |../* rea|d/write |
|00004910| 70 65 72 6d 69 73 73 69 | 6f 6e 73 20 6f 6e 20 54 |permissi|ons on T|
|00004920| 54 59 20 2a 2f 0a 58 63 | 68 61 72 20 2a 6e 75 6c |TY */.Xc|har *nul|
|00004930| 6c 5f 70 74 72 20 3d 20 | 22 22 3b 09 09 09 2f 2a |l_ptr = |"";.../*|
|00004940| 20 67 65 6e 65 72 69 63 | 20 6e 75 6c 6c 20 70 6f | generic| null po|
|00004950| 69 6e 74 65 72 20 2a 2f | 0a 58 0a 58 6d 61 69 6e |inter */|.X.Xmain|
|00004960| 28 61 72 67 63 2c 20 61 | 72 67 76 29 0a 58 69 6e |(argc, a|rgv).Xin|
|00004970| 74 20 61 72 67 63 3b 0a | 58 63 68 61 72 20 2a 61 |t argc;.|Xchar *a|
|00004980| 72 67 76 5b 5d 3b 0a 58 | 7b 0a 58 09 65 78 74 65 |rgv[];.X|{.X.exte|
|00004990| 72 6e 20 63 68 61 72 20 | 2a 6f 70 74 61 72 67 3b |rn char |*optarg;|
|000049a0| 0a 58 09 69 6e 74 20 63 | 2c 20 72 65 74 5f 63 6f |.X.int c|, ret_co|
|000049b0| 64 65 2c 20 69 2c 20 63 | 6f 64 65 2c 20 71 75 69 |de, i, c|ode, qui|
|000049c0| 74 28 29 3b 0a 58 09 63 | 68 61 72 20 2a 6d 79 74 |t();.X.c|har *myt|
|000049d0| 74 79 2c 20 2a 74 74 79 | 6e 61 6d 65 28 29 2c 20 |ty, *tty|name(), |
|000049e0| 2a 74 65 72 6d 2c 20 2a | 67 65 74 65 6e 76 28 29 |*term, *|getenv()|
|000049f0| 2c 20 2a 73 68 6f 72 74 | 5f 63 75 74 2c 20 2a 73 |, *short|_cut, *s|
|00004a00| 74 72 64 75 70 28 29 3b | 0a 58 09 63 68 61 72 20 |trdup();|.X.char |
|00004a10| 2a 65 78 74 72 61 5f 64 | 69 72 2c 20 62 75 66 5b |*extra_d|ir, buf[|
|00004a20| 38 30 5d 2c 20 6d 65 73 | 73 61 67 65 5b 38 30 5d |80], mes|sage[80]|
|00004a30| 3b 0a 58 09 73 74 72 75 | 63 74 20 50 41 52 41 4d |;.X.stru|ct PARAM|
|00004a40| 20 2a 72 65 61 64 5f 70 | 61 72 61 6d 28 29 3b 0a | *read_p|aram();.|
|00004a50| 58 09 73 74 72 75 63 74 | 20 44 49 41 4c 5f 44 49 |X.struct| DIAL_DI|
|00004a60| 52 20 2a 72 65 61 64 5f | 64 69 72 28 29 3b 0a 58 |R *read_|dir();.X|
|00004a70| 09 73 74 72 75 63 74 20 | 53 54 41 54 55 53 20 2a |.struct |STATUS *|
|00004a80| 69 6e 69 74 28 29 3b 0a | 58 09 73 74 72 75 63 74 |init();.|X.struct|
|00004a90| 20 4d 4f 44 45 4d 20 2a | 72 65 61 64 5f 6d 6f 64 | MODEM *|read_mod|
|00004aa0| 65 6d 28 29 3b 0a 58 09 | 73 74 72 75 63 74 20 73 |em();.X.|struct s|
|00004ab0| 74 61 74 20 73 74 62 75 | 66 3b 0a 58 09 76 6f 69 |tat stbu|f;.X.voi|
|00004ac0| 64 20 65 78 69 74 28 29 | 2c 20 65 72 72 6f 72 5f |d exit()|, error_|
|00004ad0| 77 69 6e 28 29 2c 20 66 | 72 65 65 5f 70 74 72 28 |win(), f|ree_ptr(|
|00004ae0| 29 3b 0a 58 23 69 66 64 | 65 66 20 4f 4c 44 43 55 |);.X#ifd|ef OLDCU|
|00004af0| 52 53 45 53 0a 58 09 63 | 68 61 72 20 2a 74 67 65 |RSES.X.c|har *tge|
|00004b00| 74 73 74 72 28 29 2c 20 | 2a 74 2c 20 74 62 5b 31 |tstr(), |*t, tb[1|
|00004b10| 30 32 34 5d 3b 0a 58 09 | 74 20 3d 20 74 63 62 75 |024];.X.|t = tcbu|
|00004b20| 66 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4f 4c |f;.X#end|if /* OL|
|00004b30| 44 43 55 52 53 45 53 20 | 2a 2f 0a 58 0a 58 09 73 |DCURSES |*/.X.X.s|
|00004b40| 69 67 6e 61 6c 28 53 49 | 47 49 4e 54 2c 20 53 49 |ignal(SI|GINT, SI|
|00004b50| 47 5f 49 47 4e 29 3b 0a | 58 09 73 69 67 6e 61 6c |G_IGN);.|X.signal|
|00004b60| 28 53 49 47 51 55 49 54 | 2c 20 53 49 47 5f 49 47 |(SIGQUIT|, SIG_IG|
|00004b70| 4e 29 3b 0a 58 09 73 69 | 67 6e 61 6c 28 53 49 47 |N);.X.si|gnal(SIG|
|00004b80| 54 45 52 4d 2c 20 71 75 | 69 74 29 3b 0a 58 09 73 |TERM, qu|it);.X.s|
|00004b90| 69 67 6e 61 6c 28 53 49 | 47 48 55 50 2c 20 71 75 |ignal(SI|GHUP, qu|
|00004ba0| 69 74 29 3b 0a 58 0a 58 | 09 73 68 6f 72 74 5f 63 |it);.X.X|.short_c|
|00004bb0| 75 74 20 3d 20 4e 55 4c | 4c 3b 0a 58 09 65 78 74 |ut = NUL|L;.X.ext|
|00004bc0| 72 61 5f 64 69 72 20 3d | 20 4e 55 4c 4c 3b 0a 58 |ra_dir =| NULL;.X|
|00004bd0| 09 09 09 09 09 2f 2a 20 | 74 68 65 20 63 6f 6d 6d |...../* |the comm|
|00004be0| 61 6e 64 20 6c 69 6e 65 | 20 2a 2f 0a 58 09 77 68 |and line| */.X.wh|
|00004bf0| 69 6c 65 20 28 28 63 20 | 3d 20 67 65 74 6f 70 74 |ile ((c |= getopt|
|00004c00| 28 61 72 67 63 2c 20 61 | 72 67 76 2c 20 22 64 3a |(argc, a|rgv, "d:|
|00004c10| 66 3a 22 29 29 20 21 3d | 20 45 4f 46 29 20 7b 0a |f:")) !=| EOF) {.|
|00004c20| 58 09 09 73 77 69 74 63 | 68 20 28 63 29 20 7b 0a |X..switc|h (c) {.|
|00004c30| 58 09 09 09 63 61 73 65 | 20 27 64 27 3a 09 2f 2a |X...case| 'd':./*|
|00004c40| 20 74 68 65 20 65 78 74 | 72 61 20 64 69 72 65 63 | the ext|ra direc|
|00004c50| 74 6f 72 79 20 74 6f 20 | 73 65 61 72 63 68 20 2a |tory to |search *|
|00004c60| 2f 0a 58 09 09 09 09 65 | 78 74 72 61 5f 64 69 72 |/.X....e|xtra_dir|
|00004c70| 20 3d 20 73 74 72 64 75 | 70 28 6f 70 74 61 72 67 | = strdu|p(optarg|
|00004c80| 29 3b 0a 58 09 09 09 09 | 62 72 65 61 6b 3b 0a 58 |);.X....|break;.X|
|00004c90| 09 09 09 63 61 73 65 20 | 27 66 27 3a 09 2f 2a 20 |...case |'f':./* |
|00004ca0| 74 68 65 20 69 6e 64 65 | 78 20 69 6e 74 6f 20 74 |the inde|x into t|
|00004cb0| 68 65 20 64 69 61 6c 69 | 6e 67 20 64 69 72 20 2a |he diali|ng dir *|
|00004cc0| 2f 0a 58 09 09 09 09 73 | 68 6f 72 74 5f 63 75 74 |/.X....s|hort_cut|
|00004cd0| 20 3d 20 73 74 72 64 75 | 70 28 6f 70 74 61 72 67 | = strdu|p(optarg|
|00004ce0| 29 3b 0a 58 09 09 09 09 | 62 72 65 61 6b 3b 0a 58 |);.X....|break;.X|
|00004cf0| 09 09 09 63 61 73 65 20 | 27 3f 27 3a 09 2f 2a 20 |...case |'?':./* |
|00004d00| 64 65 66 61 75 6c 74 20 | 2a 2f 0a 58 09 09 09 09 |default |*/.X....|
|00004d10| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00004d20| 22 55 73 61 67 65 3a 20 | 70 63 6f 6d 6d 20 5b 2d |"Usage: |pcomm [-|
|00004d30| 64 20 64 69 72 65 63 74 | 6f 72 79 5d 20 5b 2d 66 |d direct|ory] [-f|
|00004d40| 20 69 6e 64 65 78 5d 5c | 6e 22 29 3b 0a 58 09 09 | index]\|n");.X..|
|00004d50| 09 09 65 78 69 74 28 31 | 29 3b 0a 58 09 09 09 09 |..exit(1|);.X....|
|00004d60| 62 72 65 61 6b 3b 0a 58 | 09 09 7d 0a 58 09 7d 0a |break;.X|..}.X.}.|
|00004d70| 58 09 09 09 09 09 2f 2a | 20 67 65 74 20 74 65 72 |X...../*| get ter|
|00004d80| 6d 69 6e 61 6c 20 74 79 | 70 65 20 2a 2f 0a 58 09 |minal ty|pe */.X.|
|00004d90| 74 65 72 6d 20 3d 20 67 | 65 74 65 6e 76 28 22 54 |term = g|etenv("T|
|00004da0| 45 52 4d 22 29 3b 0a 58 | 09 69 66 20 28 74 65 72 |ERM");.X|.if (ter|
|00004db0| 6d 20 3d 3d 20 4e 55 4c | 4c 20 7c 7c 20 2a 74 65 |m == NUL|L || *te|
|00004dc0| 72 6d 20 3d 3d 20 4e 55 | 4c 4c 29 20 7b 0a 58 09 |rm == NU|LL) {.X.|
|00004dd0| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00004de0| 20 22 57 69 6e 64 6f 77 | 73 20 6e 6f 74 20 73 75 | "Window|s not su|
|00004df0| 70 70 6f 72 74 65 64 20 | 28 54 45 52 4d 20 6e 6f |pported |(TERM no|
|00004e00| 74 20 64 65 66 69 6e 65 | 64 29 5c 6e 22 29 3b 0a |t define|d)\n");.|
|00004e10| 58 09 09 65 78 69 74 28 | 31 29 3b 0a 58 09 7d 0a |X..exit(|1);.X.}.|
|00004e20| 58 09 09 09 09 09 2f 2a | 20 73 65 65 20 69 66 20 |X...../*| see if |
|00004e30| 74 65 72 6d 69 6e 66 6f | 20 65 6e 74 72 79 20 65 |terminfo| entry e|
|00004e40| 78 69 73 74 73 20 2a 2f | 0a 58 23 69 66 64 65 66 |xists */|.X#ifdef|
|00004e50| 20 4f 4c 44 43 55 52 53 | 45 53 0a 58 09 72 65 74 | OLDCURS|ES.X.ret|
|00004e60| 5f 63 6f 64 65 20 3d 20 | 74 67 65 74 65 6e 74 28 |_code = |tgetent(|
|00004e70| 74 62 2c 20 74 65 72 6d | 29 3b 0a 58 23 65 6c 73 |tb, term|);.X#els|
|00004e80| 65 20 2f 2a 20 4f 4c 44 | 43 55 52 53 45 53 20 2a |e /* OLD|CURSES *|
|00004e90| 2f 0a 58 09 73 65 74 75 | 70 74 65 72 6d 28 74 65 |/.X.setu|pterm(te|
|00004ea0| 72 6d 2c 20 31 2c 20 26 | 72 65 74 5f 63 6f 64 65 |rm, 1, &|ret_code|
|00004eb0| 29 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 4f 4c |);.X#end|if /* OL|
|00004ec0| 44 43 55 52 53 45 53 20 | 2a 2f 0a 58 09 69 66 20 |DCURSES |*/.X.if |
|00004ed0| 28 72 65 74 5f 63 6f 64 | 65 20 21 3d 20 31 29 20 |(ret_cod|e != 1) |
|00004ee0| 7b 0a 58 09 09 66 70 72 | 69 6e 74 66 28 73 74 64 |{.X..fpr|intf(std|
|00004ef0| 65 72 72 2c 20 22 57 69 | 6e 64 6f 77 73 20 6e 6f |err, "Wi|ndows no|
|00004f00| 74 20 73 75 70 70 6f 72 | 74 65 64 20 28 6e 6f 20 |t suppor|ted (no |
|00004f10| 74 65 72 6d 69 6e 66 6f | 20 64 61 74 61 20 66 6f |terminfo| data fo|
|00004f20| 72 20 27 25 73 27 29 5c | 6e 22 2c 20 74 65 72 6d |r '%s')\|n", term|
|00004f30| 29 3b 0a 58 09 09 65 78 | 69 74 28 31 29 3b 0a 58 |);.X..ex|it(1);.X|
|00004f40| 09 7d 0a 58 09 09 09 09 | 09 2f 2a 20 6d 69 6e 69 |.}.X....|./* mini|
|00004f50| 6d 75 6d 20 73 63 72 65 | 65 6e 20 73 69 7a 65 20 |mum scre|en size |
|00004f60| 2a 2f 0a 58 23 69 66 64 | 65 66 20 4f 4c 44 43 55 |*/.X#ifd|ef OLDCU|
|00004f70| 52 53 45 53 0a 58 09 69 | 66 20 28 74 67 65 74 6e |RSES.X.i|f (tgetn|
|00004f80| 75 6d 28 22 63 6f 22 29 | 20 3c 20 38 30 20 7c 7c |um("co")| < 80 |||
|00004f90| 20 74 67 65 74 6e 75 6d | 28 22 6c 69 22 29 20 3c | tgetnum|("li") <|
|00004fa0| 20 32 34 29 20 7b 0a 58 | 23 65 6c 73 65 20 2f 2a | 24) {.X|#else /*|
|00004fb0| 20 4f 4c 44 43 55 52 53 | 45 53 20 2a 2f 0a 58 09 | OLDCURS|ES */.X.|
|00004fc0| 69 66 20 28 63 6f 6c 75 | 6d 6e 73 20 3c 20 38 30 |if (colu|mns < 80|
|00004fd0| 20 7c 7c 20 6c 69 6e 65 | 73 20 3c 20 32 34 29 20 | || line|s < 24) |
|00004fe0| 7b 0a 58 23 65 6e 64 69 | 66 20 2f 2a 20 4f 4c 44 |{.X#endi|f /* OLD|
|00004ff0| 43 55 52 53 45 53 20 2a | 2f 0a 58 09 09 66 70 72 |CURSES *|/.X..fpr|
|00005000| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 57 69 |intf(std|err, "Wi|
|00005010| 6e 64 6f 77 73 20 6e 6f | 74 20 73 75 70 70 6f 72 |ndows no|t suppor|
|00005020| 74 65 64 20 28 6d 69 6e | 69 6d 75 6d 20 38 30 78 |ted (min|imum 80x|
|00005030| 32 34 20 73 63 72 65 65 | 6e 20 72 65 71 75 69 72 |24 scree|n requir|
|00005040| 65 64 29 5c 6e 22 29 3b | 0a 58 09 09 65 78 69 74 |ed)\n");|.X..exit|
|00005050| 28 31 29 3b 0a 58 09 7d | 0a 58 09 09 09 09 09 2f |(1);.X.}|.X...../|
|00005060| 2a 20 6d 75 73 74 20 68 | 61 76 65 20 63 75 72 73 |* must h|ave curs|
|00005070| 6f 72 20 6d 6f 76 65 6d | 65 6e 74 20 2a 2f 0a 58 |or movem|ent */.X|
|00005080| 23 69 66 64 65 66 20 4f | 4c 44 43 55 52 53 45 53 |#ifdef O|LDCURSES|
|00005090| 0a 58 09 69 66 20 28 74 | 67 65 74 73 74 72 28 22 |.X.if (t|getstr("|
|000050a0| 63 6d 22 2c 20 26 74 29 | 20 3d 3d 20 4e 55 4c 4c |cm", &t)| == NULL|
|000050b0| 29 20 7b 0a 58 23 65 6c | 73 65 20 2f 2a 20 4f 4c |) {.X#el|se /* OL|
|000050c0| 44 43 55 52 53 45 53 20 | 2a 2f 0a 58 09 69 66 20 |DCURSES |*/.X.if |
|000050d0| 28 63 75 72 73 6f 72 5f | 61 64 64 72 65 73 73 20 |(cursor_|address |
|000050e0| 3d 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 23 65 6e 64 |== NULL)| {.X#end|
|000050f0| 69 66 20 2f 2a 20 4f 4c | 44 43 55 52 53 45 53 20 |if /* OL|DCURSES |
|00005100| 2a 2f 0a 58 09 09 66 70 | 72 69 6e 74 66 28 73 74 |*/.X..fp|rintf(st|
|00005110| 64 65 72 72 2c 20 22 57 | 69 6e 64 6f 77 73 20 6e |derr, "W|indows n|
|00005120| 6f 74 20 73 75 70 70 6f | 72 74 65 64 20 28 74 65 |ot suppo|rted (te|
|00005130| 72 6d 69 6e 61 6c 20 74 | 6f 6f 20 64 75 6d 62 29 |rminal t|oo dumb)|
|00005140| 5c 6e 22 29 3b 0a 58 09 | 09 65 78 69 74 28 31 29 |\n");.X.|.exit(1)|
|00005150| 3b 0a 58 09 7d 0a 58 09 | 09 09 09 09 2f 2a 20 6c |;.X.}.X.|..../* l|
|00005160| 6f 61 64 20 6d 61 67 69 | 63 20 63 6f 6f 6b 69 65 |oad magi|c cookie|
|00005170| 20 76 61 72 69 61 62 6c | 65 20 2a 2f 0a 58 23 69 | variabl|e */.X#i|
|00005180| 66 64 65 66 20 4f 4c 44 | 43 55 52 53 45 53 0a 58 |fdef OLD|CURSES.X|
|00005190| 09 78 6d 63 20 3d 20 74 | 67 65 74 6e 75 6d 28 22 |.xmc = t|getnum("|
|000051a0| 73 67 22 29 3b 0a 58 09 | 54 49 20 3d 20 74 67 65 |sg");.X.|TI = tge|
|000051b0| 74 73 74 72 28 22 74 69 | 22 2c 20 26 74 29 3b 0a |tstr("ti|", &t);.|
|000051c0| 58 09 56 53 20 3d 20 74 | 67 65 74 73 74 72 28 22 |X.VS = t|getstr("|
|000051d0| 76 73 22 2c 20 26 74 29 | 3b 0a 58 23 65 6c 73 65 |vs", &t)|;.X#else|
|000051e0| 20 2f 2a 20 4f 4c 44 43 | 55 52 53 45 53 20 2a 2f | /* OLDC|URSES */|
|000051f0| 0a 58 09 78 6d 63 20 3d | 20 6d 61 67 69 63 5f 63 |.X.xmc =| magic_c|
|00005200| 6f 6f 6b 69 65 5f 67 6c | 69 74 63 68 3b 0a 58 23 |ookie_gl|itch;.X#|
|00005210| 65 6e 64 69 66 20 2f 2a | 20 4f 4c 44 43 55 52 53 |endif /*| OLDCURS|
|00005220| 45 53 20 2a 2f 0a 58 09 | 09 09 09 09 2f 2a 20 6f |ES */.X.|..../* o|
|00005230| 6b 2e 2e 2e 20 6e 6f 77 | 20 6c 65 74 73 20 67 6f |k... now| lets go|
|00005240| 21 20 2a 2f 0a 58 09 69 | 6e 69 74 73 63 72 28 29 |! */.X.i|nitscr()|
|00005250| 3b 0a 58 09 6e 6f 6e 6c | 28 29 3b 0a 58 09 63 62 |;.X.nonl|();.X.cb|
|00005260| 72 65 61 6b 28 29 3b 0a | 58 09 6e 6f 65 63 68 6f |reak();.|X.noecho|
|00005270| 28 29 3b 0a 58 0a 58 09 | 70 61 72 61 6d 20 3d 20 |();.X.X.|param = |
|00005280| 28 73 74 72 75 63 74 20 | 50 41 52 41 4d 20 2a 29 |(struct |PARAM *)|
|00005290| 20 4e 55 4c 4c 3b 0a 58 | 09 6d 6f 64 65 6d 20 3d | NULL;.X|.modem =|
|000052a0| 20 28 73 74 72 75 63 74 | 20 4d 4f 44 45 4d 20 2a | (struct| MODEM *|
|000052b0| 29 20 4e 55 4c 4c 3b 0a | 58 09 64 69 72 20 3d 20 |) NULL;.|X.dir = |
|000052c0| 28 73 74 72 75 63 74 20 | 44 49 41 4c 5f 44 49 52 |(struct |DIAL_DIR|
|000052d0| 20 2a 29 20 4e 55 4c 4c | 3b 0a 58 09 09 09 09 09 | *) NULL|;.X.....|
|000052e0| 2f 2a 20 73 68 6f 77 20 | 74 68 65 20 68 65 72 61 |/* show |the hera|
|000052f0| 6c 64 2c 20 72 65 74 75 | 72 6e 20 73 74 61 74 75 |ld, retu|rn statu|
|00005300| 73 20 2a 2f 0a 58 09 73 | 74 61 74 75 73 20 3d 20 |s */.X.s|tatus = |
|00005310| 69 6e 69 74 28 73 68 6f | 72 74 5f 63 75 74 29 3b |init(sho|rt_cut);|
|00005320| 0a 58 09 09 09 09 09 2f | 2a 20 67 65 74 20 22 6d |.X...../|* get "m|
|00005330| 73 67 73 22 20 73 74 61 | 74 75 73 20 2a 2f 0a 58 |sgs" sta|tus */.X|
|00005340| 09 6d 79 74 74 79 20 3d | 20 74 74 79 6e 61 6d 65 |.mytty =| ttyname|
|00005350| 28 30 29 3b 0a 58 09 73 | 74 61 74 28 6d 79 74 74 |(0);.X.s|tat(mytt|
|00005360| 79 2c 20 26 73 74 62 75 | 66 29 3b 0a 58 09 63 68 |y, &stbu|f);.X.ch|
|00005370| 6d 6f 64 28 6d 79 74 74 | 79 2c 20 30 36 30 30 29 |mod(mytt|y, 0600)|
|00005380| 3b 0a 58 09 6d 73 67 5f | 73 74 61 74 75 73 20 3d |;.X.msg_|status =|
|00005390| 20 73 74 62 75 66 2e 73 | 74 5f 6d 6f 64 65 20 26 | stbuf.s|t_mode &|
|000053a0| 20 30 37 37 37 3b 0a 58 | 09 09 09 09 09 2f 2a 20 | 0777;.X|...../* |
|000053b0| 72 65 61 64 20 74 68 65 | 20 73 75 70 70 6f 72 74 |read the| support|
|000053c0| 20 66 69 6c 65 73 20 2a | 2f 0a 58 09 70 61 72 61 | files *|/.X.para|
|000053d0| 6d 20 3d 20 72 65 61 64 | 5f 70 61 72 61 6d 28 65 |m = read|_param(e|
|000053e0| 78 74 72 61 5f 64 69 72 | 29 3b 0a 58 09 64 69 72 |xtra_dir|);.X.dir|
|000053f0| 20 3d 20 72 65 61 64 5f | 64 69 72 28 65 78 74 72 | = read_|dir(extr|
|00005400| 61 5f 64 69 72 29 3b 0a | 58 09 6d 6f 64 65 6d 20 |a_dir);.|X.modem |
|00005410| 3d 20 72 65 61 64 5f 6d | 6f 64 65 6d 28 65 78 74 |= read_m|odem(ext|
|00005420| 72 61 5f 64 69 72 29 3b | 0a 58 09 66 72 65 65 5f |ra_dir);|.X.free_|
|00005430| 70 74 72 28 65 78 74 72 | 61 5f 64 69 72 29 3b 0a |ptr(extr|a_dir);.|
|00005440| 58 09 09 09 09 09 2f 2a | 20 77 61 72 6e 69 6e 67 |X...../*| warning|
|00005450| 20 61 62 6f 75 74 20 73 | 63 72 65 65 6e 20 73 69 | about s|creen si|
|00005460| 7a 65 20 2a 2f 0a 58 09 | 69 66 20 28 4c 49 4e 45 |ze */.X.|if (LINE|
|00005470| 53 20 3e 20 4d 41 58 5f | 52 4f 57 20 7c 7c 20 43 |S > MAX_|ROW || C|
|00005480| 4f 4c 53 20 3e 20 4d 41 | 58 5f 43 4f 4c 29 0a 58 |OLS > MA|X_COL).X|
|00005490| 09 09 65 72 72 6f 72 5f | 77 69 6e 28 30 2c 20 22 |..error_|win(0, "|
|000054a0| 59 6f 75 72 20 73 63 72 | 65 65 6e 20 73 69 7a 65 |Your scr|een size|
|000054b0| 20 65 78 63 65 65 64 73 | 20 61 6e 20 69 6e 74 65 | exceeds| an inte|
|000054c0| 72 6e 61 6c 20 50 63 6f | 6d 6d 20 6c 69 6d 69 74 |rnal Pco|mm limit|
|000054d0| 22 2c 0a 58 09 09 20 22 | 54 68 65 20 65 64 67 65 |",.X.. "|The edge|
|000054e0| 73 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 20 |s of the| screen |
|000054f0| 6d 61 79 20 63 6f 6e 74 | 61 69 6e 20 67 61 72 62 |may cont|ain garb|
|00005500| 61 67 65 22 29 3b 0a 58 | 0a 58 09 09 09 09 09 2f |age");.X|.X...../|
|00005510| 2a 20 73 68 6f 72 74 2d | 63 75 74 20 74 6f 20 64 |* short-|cut to d|
|00005520| 69 61 6c 69 6e 67 20 77 | 69 6e 64 6f 77 3f 20 2a |ialing w|indow? *|
|00005530| 2f 0a 58 09 63 6f 64 65 | 20 3d 20 30 3b 0a 58 09 |/.X.code| = 0;.X.|
|00005540| 69 66 20 28 73 68 6f 72 | 74 5f 63 75 74 20 21 3d |if (shor|t_cut !=|
|00005550| 20 4e 55 4c 4c 29 20 7b | 0a 58 09 09 66 6f 72 20 | NULL) {|.X..for |
|00005560| 28 69 3d 31 3b 20 69 3c | 64 69 72 2d 3e 64 5f 65 |(i=1; i<|dir->d_e|
|00005570| 6e 74 72 69 65 73 2b 31 | 3b 20 69 2b 2b 29 20 7b |ntries+1|; i++) {|
|00005580| 0a 58 09 09 09 69 66 20 | 28 21 73 74 72 63 6d 70 |.X...if |(!strcmp|
|00005590| 28 64 69 72 2d 3e 69 6e | 64 65 78 5b 69 5d 2c 20 |(dir->in|dex[i], |
|000055a0| 73 68 6f 72 74 5f 63 75 | 74 29 29 20 7b 0a 58 09 |short_cu|t)) {.X.|
|000055b0| 09 09 09 64 69 72 2d 3e | 71 5f 6e 75 6d 5b 30 5d |...dir->|q_num[0]|
|000055c0| 20 3d 20 69 3b 0a 58 09 | 09 09 09 64 69 72 2d 3e | = i;.X.|...dir->|
|000055d0| 64 5f 63 75 72 20 3d 20 | 69 3b 0a 58 09 09 09 09 |d_cur = |i;.X....|
|000055e0| 62 72 65 61 6b 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |break;.X|...}.X..|
|000055f0| 7d 0a 58 09 09 09 09 09 | 2f 2a 20 69 66 20 6d 61 |}.X.....|/* if ma|
|00005600| 74 63 68 20 69 73 20 66 | 6f 75 6e 64 20 2a 2f 0a |tch is f|ound */.|
|00005610| 58 09 09 69 66 20 28 64 | 69 72 2d 3e 71 5f 6e 75 |X..if (d|ir->q_nu|
|00005620| 6d 5b 30 5d 20 21 3d 20 | 2d 31 29 0a 58 09 09 09 |m[0] != |-1).X...|
|00005630| 63 6f 64 65 20 3d 20 64 | 69 61 6c 5f 77 69 6e 28 |code = d|ial_win(|
|00005640| 29 3b 0a 58 09 09 65 6c | 73 65 20 7b 0a 58 09 09 |);.X..el|se {.X..|
|00005650| 09 73 70 72 69 6e 74 66 | 28 62 75 66 2c 20 22 43 |.sprintf|(buf, "C|
|00005660| 61 6e 27 74 20 66 69 6e | 64 20 69 6e 64 65 78 20 |an't fin|d index |
|00005670| 27 25 73 27 20 69 6e 20 | 64 69 61 6c 69 6e 67 20 |'%s' in |dialing |
|00005680| 64 69 72 65 63 74 6f 72 | 79 22 2c 20 73 68 6f 72 |director|y", shor|
|00005690| 74 5f 63 75 74 29 3b 0a | 58 09 09 09 73 70 72 69 |t_cut);.|X...spri|
|000056a0| 6e 74 66 28 6d 65 73 73 | 61 67 65 2c 20 22 66 69 |ntf(mess|age, "fi|
|000056b0| 6c 65 20 27 25 73 27 22 | 2c 20 64 69 72 2d 3e 64 |le '%s'"|, dir->d|
|000056c0| 5f 70 61 74 68 29 3b 0a | 58 09 09 09 65 72 72 6f |_path);.|X...erro|
|000056d0| 72 5f 77 69 6e 28 30 2c | 20 62 75 66 2c 20 6d 65 |r_win(0,| buf, me|
|000056e0| 73 73 61 67 65 29 3b 0a | 58 09 09 7d 0a 58 09 09 |ssage);.|X..}.X..|
|000056f0| 66 72 65 65 5f 70 74 72 | 28 73 68 6f 72 74 5f 63 |free_ptr|(short_c|
|00005700| 75 74 29 3b 0a 58 09 7d | 0a 58 09 09 09 09 09 2f |ut);.X.}|.X...../|
|00005710| 2a 20 73 74 61 72 74 20 | 74 65 72 6d 69 6e 61 6c |* start |terminal|
|00005720| 20 64 69 61 6c 6f 67 75 | 65 20 2a 2f 0a 58 09 74 | dialogu|e */.X.t|
|00005730| 65 72 6d 69 6e 61 6c 28 | 63 6f 64 65 29 3b 0a 58 |erminal(|code);.X|
|00005740| 09 65 78 69 74 28 30 29 | 3b 0a 58 7d 0a 58 0a 58 |.exit(0)|;.X}.X.X|
|00005750| 2f 2a 0a 58 20 2a 20 53 | 6f 6d 65 74 68 69 6e 67 |/*.X * S|omething|
|00005760| 20 64 72 65 61 64 66 75 | 6c 20 68 61 70 70 65 6e | dreadfu|l happen|
|00005770| 65 64 2e 2e 2e 20 20 43 | 6c 65 61 6e 20 75 70 20 |ed... C|lean up |
|00005780| 74 68 65 20 6d 65 73 73 | 20 77 65 20 6d 61 64 65 |the mess| we made|
|00005790| 20 77 69 74 68 20 74 68 | 65 0a 58 20 2a 20 54 54 | with th|e.X * TT|
|000057a0| 59 20 64 72 69 76 65 72 | 20 61 6e 64 20 72 65 6c |Y driver| and rel|
|000057b0| 65 61 73 65 20 74 68 65 | 20 70 68 6f 6e 65 20 6c |ease the| phone l|
|000057c0| 69 6e 65 2e 0a 58 20 2a | 2f 0a 58 0a 58 69 6e 74 |ine..X *|/.X.Xint|
|000057d0| 0a 58 71 75 69 74 28 29 | 0a 58 7b 0a 58 09 76 6f |.Xquit()|.X{.X.vo|
|000057e0| 69 64 20 63 6c 65 61 6e | 75 70 28 29 3b 0a 58 0a |id clean|up();.X.|
|000057f0| 58 09 63 6c 65 61 6e 75 | 70 28 31 29 3b 0a 58 09 |X.cleanu|p(1);.X.|
|00005800| 09 09 09 09 2f 2a 20 6e | 65 76 65 72 20 72 65 74 |..../* n|ever ret|
|00005810| 75 72 6e 73 2e 2e 2e 20 | 2a 2f 0a 58 09 72 65 74 |urns... |*/.X.ret|
|00005820| 75 72 6e 28 30 29 3b 0a | 58 7d 0a 58 0a 58 2f 2a |urn(0);.|X}.X.X/*|
|00005830| 0a 58 20 2a 20 43 68 65 | 63 6b 20 77 72 69 74 65 |.X * Che|ck write|
|00005840| 20 70 65 72 6d 69 73 73 | 69 6f 6e 20 77 69 74 68 | permiss|ion with|
|00005850| 20 74 68 65 20 72 65 61 | 6c 20 55 49 44 20 61 6e | the rea|l UID an|
|00005860| 64 20 47 49 44 2e 20 20 | 52 65 74 75 72 6e 73 20 |d GID. |Returns |
|00005870| 61 20 30 20 6f 6e 0a 58 | 20 2a 20 70 65 72 6d 69 |a 0 on.X| * permi|
|00005880| 73 73 69 6f 6e 20 64 65 | 6e 69 65 64 2c 20 31 20 |ssion de|nied, 1 |
|00005890| 6f 6e 20 4f 4b 2c 20 61 | 6e 64 20 32 20 6f 6e 20 |on OK, a|nd 2 on |
|000058a0| 4f 4b 2d 62 75 74 20 74 | 68 65 20 66 69 6c 65 20 |OK-but t|he file |
|000058b0| 61 6c 72 65 61 64 79 20 | 65 78 69 73 74 73 2e 0a |already |exists..|
|000058c0| 58 20 2a 2f 0a 58 0a 58 | 69 6e 74 0a 58 63 61 6e |X */.X.X|int.Xcan|
|000058d0| 5f 77 72 69 74 65 28 66 | 69 6c 65 29 0a 58 63 68 |_write(f|ile).Xch|
|000058e0| 61 72 20 2a 66 69 6c 65 | 3b 0a 58 7b 0a 58 09 63 |ar *file|;.X{.X.c|
|000058f0| 68 61 72 20 2a 70 2c 20 | 70 61 74 68 5b 32 30 30 |har *p, |path[200|
|00005900| 5d 2c 20 2a 73 74 72 63 | 70 79 28 29 2c 20 2a 73 |], *strc|py(), *s|
|00005910| 74 72 72 63 68 72 28 29 | 3b 0a 58 0a 58 09 70 20 |trrchr()|;.X.X.p |
|00005920| 3d 20 73 74 72 63 70 79 | 28 70 61 74 68 2c 20 66 |= strcpy|(path, f|
|00005930| 69 6c 65 29 3b 0a 58 09 | 09 09 09 09 2f 2a 20 64 |ile);.X.|..../* d|
|00005940| 69 73 73 65 63 74 20 74 | 68 65 20 70 61 74 68 20 |issect t|he path |
|00005950| 63 6f 6d 70 6f 6e 65 6e | 74 20 2a 2f 0a 58 09 69 |componen|t */.X.i|
|00005960| 66 20 28 70 20 3d 20 73 | 74 72 72 63 68 72 28 70 |f (p = s|trrchr(p|
|00005970| 61 74 68 2c 20 27 2f 27 | 29 29 0a 58 09 09 2a 28 |ath, '/'|)).X..*(|
|00005980| 70 2b 2b 29 20 3d 20 4e | 55 4c 4c 3b 0a 58 09 65 |p++) = N|ULL;.X.e|
|00005990| 6c 73 65 0a 58 09 09 73 | 74 72 63 70 79 28 70 61 |lse.X..s|trcpy(pa|
|000059a0| 74 68 2c 20 22 2e 22 29 | 3b 0a 58 09 09 09 09 09 |th, ".")|;.X.....|
|000059b0| 2f 2a 20 69 66 20 69 74 | 20 61 6c 72 65 61 64 79 |/* if it| already|
|000059c0| 20 65 78 69 73 74 73 20 | 2a 2f 0a 58 09 69 66 20 | exists |*/.X.if |
|000059d0| 28 21 61 63 63 65 73 73 | 28 66 69 6c 65 2c 20 30 |(!access|(file, 0|
|000059e0| 29 29 20 7b 0a 58 09 09 | 69 66 20 28 21 61 63 63 |)) {.X..|if (!acc|
|000059f0| 65 73 73 28 66 69 6c 65 | 2c 20 32 29 29 0a 58 09 |ess(file|, 2)).X.|
|00005a00| 09 09 72 65 74 75 72 6e | 28 32 29 3b 0a 58 09 09 |..return|(2);.X..|
|00005a10| 72 65 74 75 72 6e 28 30 | 29 3b 0a 58 09 7d 0a 58 |return(0|);.X.}.X|
|00005a20| 09 09 09 09 09 2f 2a 20 | 69 66 20 70 61 74 68 20 |...../* |if path |
|00005a30| 69 73 20 77 72 69 74 61 | 62 6c 65 20 2a 2f 0a 58 |is writa|ble */.X|
|00005a40| 09 69 66 20 28 21 61 63 | 63 65 73 73 28 70 61 74 |.if (!ac|cess(pat|
|00005a50| 68 2c 20 32 29 29 0a 58 | 09 09 72 65 74 75 72 6e |h, 2)).X|..return|
|00005a60| 28 31 29 3b 0a 58 09 72 | 65 74 75 72 6e 28 30 29 |(1);.X.r|eturn(0)|
|00005a70| 3b 0a 58 7d 0a 58 0a 58 | 2f 2a 0a 58 20 2a 20 43 |;.X}.X.X|/*.X * C|
|00005a80| 68 65 63 6b 20 74 68 65 | 20 72 65 61 64 20 61 6e |heck the| read an|
|00005a90| 64 20 77 72 69 74 65 20 | 70 65 72 6d 69 73 73 69 |d write |permissi|
|00005aa0| 6f 6e 73 20 62 65 66 6f | 72 65 20 6f 70 65 6e 69 |ons befo|re openi|
|00005ab0| 6e 67 20 61 20 66 69 6c | 65 2e 20 20 54 68 69 73 |ng a fil|e. This|
|00005ac0| 0a 58 20 2a 20 69 73 20 | 61 20 68 6f 72 72 69 62 |.X * is |a horrib|
|00005ad0| 6c 65 20 6b 6c 75 64 67 | 65 20 74 6f 20 77 6f 72 |le kludg|e to wor|
|00005ae0| 6b 20 61 72 6f 75 6e 64 | 20 74 68 61 74 20 66 61 |k around| that fa|
|00005af0| 63 74 20 74 68 61 74 20 | 61 20 6c 6f 74 20 6f 66 |ct that |a lot of|
|00005b00| 20 73 79 73 74 65 6d 73 | 0a 58 20 2a 20 74 68 61 | systems|.X * tha|
|00005b10| 74 20 63 6c 61 69 6d 20 | 74 6f 20 62 65 20 53 56 |t claim |to be SV|
|00005b20| 49 44 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 64 6f |ID compa|tible do|
|00005b30| 6e 27 74 20 74 72 65 61 | 74 20 73 65 74 75 69 64 |n't trea|t setuid|
|00005b40| 28 32 29 20 61 6e 64 20 | 73 65 74 67 69 64 28 32 |(2) and |setgid(2|
|00005b50| 29 0a 58 20 2a 20 70 72 | 6f 70 65 72 6c 79 2e 20 |).X * pr|operly. |
|00005b60| 20 46 6f 72 20 65 78 61 | 6d 70 6c 65 2c 20 6f 6e | For exa|mple, on|
|00005b70| 20 61 20 4d 61 73 73 63 | 6f 6d 70 2c 20 79 6f 75 | a Massc|omp, you|
|00005b80| 20 63 61 6e 27 74 20 66 | 6c 69 70 2d 66 6c 6f 70 | can't f|lip-flop|
|00005b90| 20 62 61 63 6b 20 61 6e | 64 0a 58 20 2a 20 66 6f | back an|d.X * fo|
|00005ba0| 72 74 68 20 62 65 74 77 | 65 65 6e 20 74 68 65 20 |rth betw|een the |
|00005bb0| 72 65 61 6c 20 61 6e 64 | 20 65 66 66 65 63 74 69 |real and| effecti|
|00005bc0| 76 65 20 55 49 44 2f 47 | 49 44 2e 0a 58 20 2a 2f |ve UID/G|ID..X */|
|00005bd0| 0a 58 0a 58 46 49 4c 45 | 20 2a 0a 58 6d 79 5f 66 |.X.XFILE| *.Xmy_f|
|00005be0| 6f 70 65 6e 28 66 69 6c | 65 2c 20 6d 6f 64 65 29 |open(fil|e, mode)|
|00005bf0| 0a 58 63 68 61 72 20 2a | 66 69 6c 65 2c 20 2a 6d |.Xchar *|file, *m|
|00005c00| 6f 64 65 3b 0a 58 7b 0a | 58 23 69 66 64 65 66 20 |ode;.X{.|X#ifdef |
|00005c10| 53 45 54 55 47 49 44 0a | 58 09 73 77 69 74 63 68 |SETUGID.|X.switch|
|00005c20| 20 28 2a 6d 6f 64 65 29 | 20 7b 0a 58 09 09 63 61 | (*mode)| {.X..ca|
|00005c30| 73 65 20 27 61 27 3a 0a | 58 09 09 63 61 73 65 20 |se 'a':.|X..case |
|00005c40| 27 77 27 3a 0a 58 09 09 | 09 69 66 20 28 21 63 61 |'w':.X..|.if (!ca|
|00005c50| 6e 5f 77 72 69 74 65 28 | 66 69 6c 65 29 29 0a 58 |n_write(|file)).X|
|00005c60| 09 09 09 09 72 65 74 75 | 72 6e 28 4e 55 4c 4c 29 |....retu|rn(NULL)|
|00005c70| 3b 0a 58 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |;.X...br|eak;.X..|
|00005c80| 63 61 73 65 20 27 72 27 | 3a 0a 58 09 09 09 69 66 |case 'r'|:.X...if|
|00005c90| 20 28 61 63 63 65 73 73 | 28 66 69 6c 65 2c 20 34 | (access|(file, 4|
|00005ca0| 29 29 0a 58 09 09 09 09 | 72 65 74 75 72 6e 28 4e |)).X....|return(N|
|00005cb0| 55 4c 4c 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b |ULL);.X.|..break;|
|00005cc0| 0a 58 09 7d 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |.X.}.X#e|ndif /* |
|00005cd0| 53 45 54 55 47 49 44 20 | 2a 2f 0a 58 09 72 65 74 |SETUGID |*/.X.ret|
|00005ce0| 75 72 6e 20 28 28 46 49 | 4c 45 20 2a 29 20 66 6f |urn ((FI|LE *) fo|
|00005cf0| 70 65 6e 28 66 69 6c 65 | 2c 20 6d 6f 64 65 29 29 |pen(file|, mode))|
|00005d00| 3b 0a 58 7d 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |;.X}.SHA|R_EOF.if|
|00005d10| 20 74 65 73 74 20 36 31 | 33 33 20 2d 6e 65 20 22 | test 61|33 -ne "|
|00005d20| 60 77 63 20 2d 63 20 3c | 20 27 6d 61 69 6e 2e 63 |`wc -c <| 'main.c|
|00005d30| 27 60 22 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |'`".then|..echo s|
|00005d40| 68 61 72 3a 20 22 65 72 | 72 6f 72 20 74 72 61 6e |har: "er|ror tran|
|00005d50| 73 6d 69 74 74 69 6e 67 | 20 27 6d 61 69 6e 2e 63 |smitting| 'main.c|
|00005d60| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00005d70| 20 62 65 65 6e 20 36 31 | 33 33 20 63 68 61 72 61 | been 61|33 chara|
|00005d80| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 0a 65 63 |cters)'.|fi.fi.ec|
|00005d90| 68 6f 20 73 68 61 72 3a | 20 22 65 78 74 72 61 63 |ho shar:| "extrac|
|00005da0| 74 69 6e 67 20 27 6e 5f | 73 68 65 6c 6c 2e 63 27 |ting 'n_|shell.c'|
|00005db0| 22 20 27 28 31 32 35 35 | 20 63 68 61 72 61 63 74 |" '(1255| charact|
|00005dc0| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|00005dd0| 20 27 6e 5f 73 68 65 6c | 6c 2e 63 27 0a 74 68 65 | 'n_shel|l.c'.the|
|00005de0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 22 77 |n..echo |shar: "w|
|00005df0| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00005e00| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00005e10| 20 27 6e 5f 73 68 65 6c | 6c 2e 63 27 22 0a 65 6c | 'n_shel|l.c'".el|
|00005e20| 73 65 0a 73 65 64 20 27 | 73 2f 5e 58 2f 2f 27 20 |se.sed '|s/^X//' |
|00005e30| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00005e40| 6e 5f 73 68 65 6c 6c 2e | 63 27 0a 58 2f 2a 0a 58 |n_shell.|c'.X/*.X|
|00005e50| 20 2a 20 53 70 61 77 6e | 20 61 20 22 6e 61 74 69 | * Spawn| a "nati|
|00005e60| 76 65 22 20 73 68 65 6c | 6c 2e 20 20 4e 61 74 69 |ve" shel|l. Nati|
|00005e70| 76 65 20 6d 65 61 6e 73 | 20 74 68 65 20 73 68 65 |ve means| the she|
|00005e80| 6c 6c 20 66 6f 75 6e 64 | 20 69 6e 20 74 68 65 20 |ll found| in the |
|00005e90| 53 48 45 4c 4c 0a 58 20 | 2a 20 65 6e 76 69 72 6f |SHELL.X |* enviro|
|00005ea0| 6e 6d 65 6e 74 61 6c 20 | 76 61 72 69 61 62 6c 65 |nmental |variable|
|00005eb0| 2e 0a 58 20 2a 2f 0a 58 | 0a 58 23 69 6e 63 6c 75 |..X */.X|.X#inclu|
|00005ec0| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 58 23 69 |de <stdi|o.h>.X#i|
|00005ed0| 6e 63 6c 75 64 65 20 3c | 73 69 67 6e 61 6c 2e 68 |nclude <|signal.h|
|00005ee0| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 63 75 72 |>.X#incl|ude <cur|
|00005ef0| 73 65 73 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |ses.h>.X|#include|
|00005f00| 20 22 63 6f 6e 66 69 67 | 2e 68 22 0a 58 0a 58 76 | "config|.h".X.Xv|
|00005f10| 6f 69 64 0a 58 6e 5f 73 | 68 65 6c 6c 28 29 0a 58 |oid.Xn_s|hell().X|
|00005f20| 7b 0a 58 09 57 49 4e 44 | 4f 57 20 2a 73 68 5f 77 |{.X.WIND|OW *sh_w|
|00005f30| 69 6e 2c 20 2a 6e 65 77 | 77 69 6e 28 29 3b 0a 58 |in, *new|win();.X|
|00005f40| 09 69 6e 74 20 28 2a 69 | 73 74 61 74 29 28 29 2c |.int (*i|stat)(),|
|00005f50| 20 28 2a 71 73 74 61 74 | 29 28 29 2c 20 73 74 61 | (*qstat|)(), sta|
|00005f60| 74 75 73 2c 20 73 70 69 | 64 2c 20 77 3b 0a 58 09 |tus, spi|d, w;.X.|
|00005f70| 63 68 61 72 20 2a 73 68 | 65 6c 6c 2c 20 2a 73 68 |char *sh|ell, *sh|
|00005f80| 65 6c 6c 70 61 74 68 2c | 20 2a 67 65 74 65 6e 76 |ellpath,| *getenv|
|00005f90| 28 29 2c 20 2a 73 74 72 | 72 63 68 72 28 29 3b 0a |(), *str|rchr();.|
|00005fa0| 58 09 75 6e 73 69 67 6e | 65 64 20 69 6e 74 20 73 |X.unsign|ed int s|
|00005fb0| 6c 65 65 70 28 29 3b 0a | 58 09 76 6f 69 64 20 5f |leep();.|X.void _|
|00005fc0| 65 78 69 74 28 29 3b 0a | 58 09 09 09 09 09 2f 2a |exit();.|X...../*|
|00005fd0| 20 61 20 66 75 6c 6c 20 | 77 69 6e 64 6f 77 20 2a | a full |window *|
|00005fe0| 2f 0a 58 09 73 68 5f 77 | 69 6e 20 3d 20 6e 65 77 |/.X.sh_w|in = new|
|00005ff0| 77 69 6e 28 4c 49 4e 45 | 53 2c 20 43 4f 4c 53 2c |win(LINE|S, COLS,|
|00006000| 20 30 2c 20 30 29 3b 0a | 58 0a 58 09 74 6f 75 63 | 0, 0);.|X.X.touc|
|00006010| 68 77 69 6e 28 73 68 5f | 77 69 6e 29 3b 0a 58 09 |hwin(sh_|win);.X.|
|00006020| 77 61 64 64 73 74 72 28 | 73 68 5f 77 69 6e 2c 20 |waddstr(|sh_win, |
|00006030| 22 50 63 6f 6d 6d 20 3c | 3d 3e 20 55 6e 69 78 20 |"Pcomm <|=> Unix |
|00006040| 67 61 74 65 77 61 79 2c | 20 75 73 65 20 5e 44 20 |gateway,| use ^D |
|00006050| 6f 72 20 27 65 78 69 74 | 27 20 74 6f 20 72 65 74 |or 'exit|' to ret|
|00006060| 75 72 6e 5c 6e 22 29 3b | 0a 58 09 77 72 65 66 72 |urn\n");|.X.wrefr|
|00006070| 65 73 68 28 73 68 5f 77 | 69 6e 29 3b 0a 58 09 09 |esh(sh_w|in);.X..|
|00006080| 09 09 09 2f 2a 20 6f 75 | 74 20 6f 66 20 63 75 72 |.../* ou|t of cur|
|00006090| 73 65 73 20 6d 6f 64 65 | 20 2a 2f 0a 58 09 72 65 |ses mode| */.X.re|
|000060a0| 73 65 74 74 65 72 6d 28 | 29 3b 0a 58 0a 58 09 73 |setterm(|);.X.X.s|
|000060b0| 68 65 6c 6c 70 61 74 68 | 20 3d 20 67 65 74 65 6e |hellpath| = geten|
|000060c0| 76 28 22 53 48 45 4c 4c | 22 29 3b 0a 58 09 69 66 |v("SHELL|");.X.if|
|000060d0| 20 28 73 68 65 6c 6c 70 | 61 74 68 20 3d 3d 20 4e | (shellp|ath == N|
|000060e0| 55 4c 4c 20 7c 7c 20 2a | 73 68 65 6c 6c 70 61 74 |ULL || *|shellpat|
|000060f0| 68 20 3d 3d 20 4e 55 4c | 4c 29 0a 58 09 09 73 68 |h == NUL|L).X..sh|
|00006100| 65 6c 6c 70 61 74 68 20 | 3d 20 22 2f 62 69 6e 2f |ellpath |= "/bin/|
|00006110| 73 68 22 3b 0a 58 0a 58 | 09 73 68 65 6c 6c 20 3d |sh";.X.X|.shell =|
|00006120| 20 73 74 72 72 63 68 72 | 28 73 68 65 6c 6c 70 61 | strrchr|(shellpa|
|00006130| 74 68 2c 20 27 2f 27 29 | 20 2b 20 31 3b 0a 58 0a |th, '/')| + 1;.X.|
|00006140| 58 09 69 66 20 28 21 28 | 73 70 69 64 20 3d 20 66 |X.if (!(|spid = f|
|00006150| 6f 72 6b 28 29 29 29 20 | 7b 0a 58 09 09 73 69 67 |ork())) |{.X..sig|
|00006160| 6e 61 6c 28 53 49 47 49 | 4e 54 2c 20 53 49 47 5f |nal(SIGI|NT, SIG_|
|00006170| 44 46 4c 29 3b 0a 58 09 | 09 73 69 67 6e 61 6c 28 |DFL);.X.|.signal(|
|00006180| 53 49 47 51 55 49 54 2c | 20 53 49 47 5f 44 46 4c |SIGQUIT,| SIG_DFL|
|00006190| 29 3b 0a 58 23 69 66 64 | 65 66 20 53 45 54 55 47 |);.X#ifd|ef SETUG|
|000061a0| 49 44 0a 58 09 09 73 65 | 74 67 69 64 28 67 65 74 |ID.X..se|tgid(get|
|000061b0| 67 69 64 28 29 29 3b 0a | 58 09 09 73 65 74 75 69 |gid());.|X..setui|
|000061c0| 64 28 67 65 74 75 69 64 | 28 29 29 3b 0a 58 23 65 |d(getuid|());.X#e|
|000061d0| 6e 64 69 66 20 2f 2a 20 | 53 45 54 55 47 49 44 20 |ndif /* |SETUGID |
|000061e0| 2a 2f 0a 58 09 09 65 78 | 65 63 6c 28 73 68 65 6c |*/.X..ex|ecl(shel|
|000061f0| 6c 70 61 74 68 2c 20 73 | 68 65 6c 6c 2c 20 22 2d |lpath, s|hell, "-|
|00006200| 69 22 2c 20 28 63 68 61 | 72 20 2a 29 20 30 29 3b |i", (cha|r *) 0);|
|00006210| 0a 58 09 09 5f 65 78 69 | 74 28 31 29 3b 0a 58 09 |.X.._exi|t(1);.X.|
|00006220| 7d 0a 58 09 69 73 74 61 | 74 20 3d 20 73 69 67 6e |}.X.ista|t = sign|
|00006230| 61 6c 28 53 49 47 49 4e | 54 2c 20 53 49 47 5f 49 |al(SIGIN|T, SIG_I|
|00006240| 47 4e 29 3b 0a 58 09 71 | 73 74 61 74 20 3d 20 73 |GN);.X.q|stat = s|
|00006250| 69 67 6e 61 6c 28 53 49 | 47 51 55 49 54 2c 20 53 |ignal(SI|GQUIT, S|
|00006260| 49 47 5f 49 47 4e 29 3b | 0a 58 0a 58 09 77 68 69 |IG_IGN);|.X.X.whi|
|00006270| 6c 65 20 28 28 77 20 3d | 20 77 61 69 74 28 26 73 |le ((w =| wait(&s|
|00006280| 74 61 74 75 73 29 29 20 | 21 3d 20 73 70 69 64 20 |tatus)) |!= spid |
|00006290| 26 26 20 77 20 21 3d 20 | 2d 31 29 0a 58 09 09 3b |&& w != |-1).X..;|
|000062a0| 0a 58 0a 58 09 73 69 67 | 6e 61 6c 28 53 49 47 49 |.X.X.sig|nal(SIGI|
|000062b0| 4e 54 2c 20 69 73 74 61 | 74 29 3b 0a 58 09 73 69 |NT, ista|t);.X.si|
|000062c0| 67 6e 61 6c 28 53 49 47 | 51 55 49 54 2c 20 71 73 |gnal(SIG|QUIT, qs|
|000062d0| 74 61 74 29 3b 0a 58 09 | 09 09 09 09 2f 2a 20 62 |tat);.X.|..../* b|
|000062e0| 61 63 6b 20 74 6f 20 63 | 75 72 73 65 73 20 6d 6f |ack to c|urses mo|
|000062f0| 64 65 20 2a 2f 0a 58 09 | 73 6c 65 65 70 28 31 29 |de */.X.|sleep(1)|
|00006300| 3b 0a 58 09 66 69 78 74 | 65 72 6d 28 29 3b 0a 58 |;.X.fixt|erm();.X|
|00006310| 0a 58 09 63 6c 65 61 72 | 6f 6b 28 63 75 72 73 63 |.X.clear|ok(cursc|
|00006320| 72 2c 20 54 52 55 45 29 | 3b 0a 58 09 77 65 72 61 |r, TRUE)|;.X.wera|
|00006330| 73 65 28 73 68 5f 77 69 | 6e 29 3b 0a 58 09 77 72 |se(sh_wi|n);.X.wr|
|00006340| 65 66 72 65 73 68 28 73 | 68 5f 77 69 6e 29 3b 0a |efresh(s|h_win);.|
|00006350| 58 09 64 65 6c 77 69 6e | 28 73 68 5f 77 69 6e 29 |X.delwin|(sh_win)|
|00006360| 3b 0a 58 09 72 65 74 75 | 72 6e 3b 0a 58 7d 0a 53 |;.X.retu|rn;.X}.S|
|00006370| 48 41 52 5f 45 4f 46 0a | 69 66 20 74 65 73 74 20 |HAR_EOF.|if test |
|00006380| 31 32 35 35 20 2d 6e 65 | 20 22 60 77 63 20 2d 63 |1255 -ne| "`wc -c|
|00006390| 20 3c 20 27 6e 5f 73 68 | 65 6c 6c 2e 63 27 60 22 | < 'n_sh|ell.c'`"|
|000063a0| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|000063b0| 3a 20 22 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |: "error| transmi|
|000063c0| 74 74 69 6e 67 20 27 6e | 5f 73 68 65 6c 6c 2e 63 |tting 'n|_shell.c|
|000063d0| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|000063e0| 20 62 65 65 6e 20 31 32 | 35 35 20 63 68 61 72 61 | been 12|55 chara|
|000063f0| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 0a 65 63 |cters)'.|fi.fi.ec|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
