home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
| 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 or mail text
| default
| |
| 99%
| file
| C source text
| default
| |
| 98%
| file
| C source, ASCII text
| default
| |
| 100%
| TrID
| E-Mail message (Var. 2)
| default
| |
| 100%
| checkBytes
| Printable ASCII
| 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/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 69 68 | 6e 70 34 21 74 68 69 6e |From: ih|np4!thin|
|00000010| 6b 21 6d 61 73 73 61 72 | 20 28 4a 50 20 4d 61 73 |k!massar| (JP Mas|
|00000020| 73 61 72 29 0a 53 75 62 | 6a 65 63 74 3a 20 72 6f |sar).Sub|ject: ro|
|00000030| 6c 6f 64 65 78 20 64 61 | 74 61 62 61 73 65 20 70 |lodex da|tabase p|
|00000040| 72 6f 67 72 61 6d 20 2d | 2d 20 70 61 72 74 20 32 |rogram -|- part 2|
|00000050| 20 6f 66 20 33 0a 4e 65 | 77 73 67 72 6f 75 70 73 | of 3.Ne|wsgroups|
|00000060| 3a 20 6d 6f 64 2e 73 6f | 75 72 63 65 73 0a 41 70 |: mod.so|urces.Ap|
|00000070| 70 72 6f 76 65 64 3a 20 | 6a 70 6e 40 70 61 6e 64 |proved: |jpn@pand|
|00000080| 61 2e 55 55 43 50 0a 0a | 4d 6f 64 2e 73 6f 75 72 |a.UUCP..|Mod.sour|
|00000090| 63 65 73 3a 20 20 56 6f | 6c 75 6d 65 20 34 2c 20 |ces: Vo|lume 4, |
|000000a0| 49 73 73 75 65 20 32 38 | 0a 53 75 62 6d 69 74 74 |Issue 28|.Submitt|
|000000b0| 65 64 20 62 79 3a 20 69 | 68 6e 70 34 21 74 68 69 |ed by: i|hnp4!thi|
|000000c0| 6e 6b 21 6d 61 73 73 61 | 72 20 28 4a 50 20 4d 61 |nk!massa|r (JP Ma|
|000000d0| 73 73 61 72 29 0a 0a 23 | 21 20 2f 62 69 6e 2f 73 |ssar)..#|! /bin/s|
|000000e0| 68 0a 23 20 54 68 69 73 | 20 69 73 20 61 20 73 68 |h.# This| is a sh|
|000000f0| 65 6c 6c 20 61 72 63 68 | 69 76 65 2c 20 6d 65 61 |ell arch|ive, mea|
|00000100| 6e 69 6e 67 3a 0a 23 20 | 31 2e 20 52 65 6d 6f 76 |ning:.# |1. Remov|
|00000110| 65 20 65 76 65 72 79 74 | 68 69 6e 67 20 61 62 6f |e everyt|hing abo|
|00000120| 76 65 20 74 68 65 20 23 | 21 20 2f 62 69 6e 2f 73 |ve the #|! /bin/s|
|00000130| 68 20 6c 69 6e 65 2e 0a | 23 20 32 2e 20 53 61 76 |h line..|# 2. Sav|
|00000140| 65 20 74 68 65 20 72 65 | 73 75 6c 74 69 6e 67 20 |e the re|sulting |
|00000150| 74 65 78 74 20 69 6e 20 | 61 20 66 69 6c 65 2e 0a |text in |a file..|
|00000160| 23 20 33 2e 20 45 78 65 | 63 75 74 65 20 74 68 65 |# 3. Exe|cute the|
|00000170| 20 66 69 6c 65 20 77 69 | 74 68 20 2f 62 69 6e 2f | file wi|th /bin/|
|00000180| 73 68 20 28 6e 6f 74 20 | 63 73 68 29 20 74 6f 20 |sh (not |csh) to |
|00000190| 63 72 65 61 74 65 20 74 | 68 65 20 66 69 6c 65 73 |create t|he files|
|000001a0| 3a 0a 23 09 63 68 6f 69 | 63 65 73 2e 68 0a 23 09 |:.#.choi|ces.h.#.|
|000001b0| 63 6c 65 61 72 2e 63 0a | 23 09 64 61 74 61 64 65 |clear.c.|#.datade|
|000001c0| 66 2e 68 0a 23 09 69 6f | 2e 63 0a 23 09 6d 65 6e |f.h.#.io|.c.#.men|
|000001d0| 75 61 75 78 2e 63 0a 23 | 09 6f 70 65 72 61 74 69 |uaux.c.#|.operati|
|000001e0| 6f 6e 73 2e 63 0a 23 09 | 6f 70 74 69 6f 6e 73 2e |ons.c.#.|options.|
|000001f0| 63 0a 23 09 72 6c 69 73 | 74 2e 63 0a 23 09 72 6f |c.#.rlis|t.c.#.ro|
|00000200| 6c 6f 2e 63 0a 23 09 72 | 6f 6c 6f 64 65 66 73 2e |lo.c.#.r|olodefs.|
|00000210| 68 0a 23 09 72 6f 6c 6f | 66 69 6c 65 73 2e 68 0a |h.#.rolo|files.h.|
|00000220| 23 09 73 65 61 72 63 68 | 2e 63 0a 23 09 75 70 64 |#.search|.c.#.upd|
|00000230| 61 74 65 2e 63 0a 23 20 | 54 68 69 73 20 61 72 63 |ate.c.# |This arc|
|00000240| 68 69 76 65 20 63 72 65 | 61 74 65 64 3a 20 54 68 |hive cre|ated: Th|
|00000250| 75 20 4d 61 72 20 31 33 | 20 31 38 3a 32 39 3a 35 |u Mar 13| 18:29:5|
|00000260| 32 20 31 39 38 36 0a 65 | 78 70 6f 72 74 20 50 41 |2 1986.e|xport PA|
|00000270| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 24 50 |TH; PATH|=/bin:$P|
|00000280| 41 54 48 0a 65 63 68 6f | 20 73 68 61 72 3a 20 65 |ATH.echo| shar: e|
|00000290| 78 74 72 61 63 74 69 6e | 67 20 22 27 63 68 6f 69 |xtractin|g "'choi|
|000002a0| 63 65 73 2e 68 27 22 20 | 27 28 36 38 35 20 63 68 |ces.h'" |'(685 ch|
|000002b0| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|000002c0| 73 74 20 2d 66 20 27 63 | 68 6f 69 63 65 73 2e 68 |st -f 'c|hoices.h|
|000002d0| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|000002e0| 72 3a 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: will |not over|
|000002f0| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00000300| 66 69 6c 65 20 22 27 63 | 68 6f 69 63 65 73 2e 68 |file "'c|hoices.h|
|00000310| 27 22 0a 65 6c 73 65 0a | 63 61 74 20 3c 3c 20 5c |'".else.|cat << \|
|00000320| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 63 68 6f 69 |SHAR_EOF| > 'choi|
|00000330| 63 65 73 2e 68 27 0a 74 | 79 70 65 64 65 66 20 65 |ces.h'.t|ypedef e|
|00000340| 6e 75 6d 20 7b 20 50 5f | 43 4f 4e 54 49 4e 55 45 |num { P_|CONTINUE|
|00000350| 2c 20 50 5f 4e 45 58 54 | 5f 50 45 52 53 4f 4e 2c |, P_NEXT|_PERSON,|
|00000360| 20 50 5f 41 42 4f 52 54 | 2c 20 50 5f 48 45 4c 50 | P_ABORT|, P_HELP|
|00000370| 20 7d 20 50 5f 43 68 6f | 69 63 65 73 3b 0a 0a 74 | } P_Cho|ices;..t|
|00000380| 79 70 65 64 65 66 20 65 | 6e 75 6d 20 7b 20 0a 20 |ypedef e|num { . |
|00000390| 20 20 20 20 20 20 20 0a | 20 20 20 20 20 20 20 20 | .| |
|000003a0| 4d 5f 53 45 41 52 43 48 | 5f 42 59 5f 4f 54 48 45 |M_SEARCH|_BY_OTHE|
|000003b0| 52 2c 20 4d 5f 53 45 41 | 52 43 48 5f 42 59 5f 4e |R, M_SEA|RCH_BY_N|
|000003c0| 41 4d 45 2c 20 4d 5f 50 | 52 49 4e 54 5f 54 4f 5f |AME, M_P|RINT_TO_|
|000003d0| 4c 41 53 45 52 5f 50 52 | 49 4e 54 45 52 2c 0a 20 |LASER_PR|INTER,. |
|000003e0| 20 20 20 20 20 20 20 4d | 5f 48 45 4c 50 2c 20 4d | M|_HELP, M|
|000003f0| 5f 45 58 49 54 2c 20 4d | 5f 50 45 52 55 53 45 2c |_EXIT, M|_PERUSE,|
|00000400| 20 4d 5f 53 41 56 45 2c | 20 4d 5f 41 44 44 0a 0a | M_SAVE,| M_ADD..|
|00000410| 20 20 20 20 20 20 7d 20 | 4d 61 69 6e 5f 43 68 6f | } |Main_Cho|
|00000420| 69 63 65 73 3b 0a 0a 74 | 79 70 65 64 65 66 20 65 |ices;..t|ypedef e|
|00000430| 6e 75 6d 20 7b 20 0a 0a | 20 20 20 20 20 20 20 20 |num { ..| |
|00000440| 41 5f 41 42 4f 52 54 5f | 41 44 44 2c 20 41 5f 42 |A_ABORT_|ADD, A_B|
|00000450| 41 43 4b 55 50 2c 20 41 | 5f 46 49 4c 4c 5f 49 4e |ACKUP, A|_FILL_IN|
|00000460| 5f 52 45 53 54 2c 0a 20 | 20 20 20 20 20 20 20 41 |_REST,. | A|
|00000470| 5f 41 42 4f 52 54 5f 52 | 4f 4c 4f 2c 20 41 5f 48 |_ABORT_R|OLO, A_H|
|00000480| 45 4c 50 2c 20 41 5f 4e | 4f 5f 44 41 54 41 0a 0a |ELP, A_N|O_DATA..|
|00000490| 20 20 20 20 20 20 7d 20 | 41 64 64 5f 43 68 6f 69 | } |Add_Choi|
|000004a0| 63 65 73 3b 0a 0a 74 79 | 70 65 64 65 66 20 65 6e |ces;..ty|pedef en|
|000004b0| 75 6d 20 7b 20 0a 20 20 | 20 20 20 20 20 20 0a 20 |um { . | . |
|000004c0| 20 20 20 20 20 20 20 45 | 5f 41 42 4f 52 54 2c 20 | E|_ABORT, |
|000004d0| 45 5f 55 50 44 41 54 45 | 2c 20 45 5f 44 45 4c 45 |E_UPDATE|, E_DELE|
|000004e0| 54 45 2c 20 45 5f 43 4f | 4e 54 49 4e 55 45 2c 20 |TE, E_CO|NTINUE, |
|000004f0| 45 5f 50 52 45 56 2c 20 | 45 5f 48 45 4c 50 2c 20 |E_PREV, |E_HELP, |
|00000500| 45 5f 53 43 41 4e 0a 20 | 20 20 20 20 20 20 20 0a |E_SCAN. | .|
|00000510| 20 20 20 20 20 20 7d 20 | 45 5f 43 68 6f 69 63 65 | } |E_Choice|
|00000520| 73 3b 0a 0a 74 79 70 65 | 64 65 66 20 65 6e 75 6d |s;..type|def enum|
|00000530| 20 7b 20 55 5f 41 42 4f | 52 54 2c 20 55 5f 48 45 | { U_ABO|RT, U_HE|
|00000540| 4c 50 2c 20 55 5f 45 4e | 44 5f 55 50 44 41 54 45 |LP, U_EN|D_UPDATE|
|00000550| 20 7d 20 55 5f 43 68 6f | 69 63 65 73 3b 0a 0a 74 | } U_Cho|ices;..t|
|00000560| 79 70 65 64 65 66 20 65 | 6e 75 6d 20 7b 20 53 5f |ypedef e|num { S_|
|00000570| 41 42 4f 52 54 2c 20 53 | 5f 48 45 4c 50 2c 20 53 |ABORT, S|_HELP, S|
|00000580| 5f 53 43 41 4e 5f 4f 4e | 45 5f 42 59 5f 4f 4e 45 |_SCAN_ON|E_BY_ONE|
|00000590| 20 7d 20 53 5f 43 68 6f | 69 63 65 73 3b 0a 0a 74 | } S_Cho|ices;..t|
|000005a0| 79 70 65 64 65 66 20 65 | 6e 75 6d 20 7b 20 4f 5f |ypedef e|num { O_|
|000005b0| 41 42 4f 52 54 2c 20 4f | 5f 48 45 4c 50 2c 20 4f |ABORT, O|_HELP, O|
|000005c0| 5f 42 41 43 4b 55 50 2c | 20 4f 5f 44 4f 4e 45 5f |_BACKUP,| O_DONE_|
|000005d0| 4f 54 48 45 52 53 20 7d | 20 4f 5f 43 68 6f 69 63 |OTHERS }| O_Choic|
|000005e0| 65 73 3b 0a 53 48 41 52 | 5f 45 4f 46 0a 69 66 20 |es;.SHAR|_EOF.if |
|000005f0| 74 65 73 74 20 36 38 35 | 20 2d 6e 65 20 22 60 77 |test 685| -ne "`w|
|00000600| 63 20 2d 63 20 3c 20 27 | 63 68 6f 69 63 65 73 2e |c -c < '|choices.|
|00000610| 68 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |h'`".the|n..echo |
|00000620| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|00000630| 73 6d 69 74 74 69 6e 67 | 20 22 27 63 68 6f 69 63 |smitting| "'choic|
|00000640| 65 73 2e 68 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |es.h'" '|(should |
|00000650| 68 61 76 65 20 62 65 65 | 6e 20 36 38 35 20 63 68 |have bee|n 685 ch|
|00000660| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 66 69 |aracters|)'.fi.fi|
|00000670| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 65 78 74 72 |.echo sh|ar: extr|
|00000680| 61 63 74 69 6e 67 20 22 | 27 63 6c 65 61 72 2e 63 |acting "|'clear.c|
|00000690| 27 22 20 27 28 39 33 30 | 20 63 68 61 72 61 63 74 |'" '(930| charact|
|000006a0| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|000006b0| 20 27 63 6c 65 61 72 2e | 63 27 0a 74 68 65 6e 0a | 'clear.|c'.then.|
|000006c0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 77 69 6c 6c |.echo sh|ar: will|
|000006d0| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|000006e0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 22 27 |existing| file "'|
|000006f0| 63 6c 65 61 72 2e 63 27 | 22 0a 65 6c 73 65 0a 63 |clear.c'|".else.c|
|00000700| 61 74 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |at << \S|HAR_EOF |
|00000710| 3e 20 27 63 6c 65 61 72 | 2e 63 27 0a 23 69 6e 63 |> 'clear|.c'.#inc|
|00000720| 6c 75 64 65 20 3c 73 74 | 64 69 6f 2e 68 3e 0a 23 |lude <st|dio.h>.#|
|00000730| 69 66 64 65 66 20 54 45 | 52 4d 49 4e 46 4f 0a 23 |ifdef TE|RMINFO.#|
|00000740| 69 6e 63 6c 75 64 65 20 | 3c 74 65 72 6d 2e 68 3e |include |<term.h>|
|00000750| 0a 23 65 6e 64 69 66 0a | 23 75 6e 64 65 66 20 70 |.#endif.|#undef p|
|00000760| 75 74 63 68 61 72 0a 0a | 69 6e 74 20 70 75 74 63 |utchar..|int putc|
|00000770| 68 61 72 28 29 3b 0a 73 | 74 61 74 69 63 20 69 6e |har();.s|tatic in|
|00000780| 74 20 6f 6b 5f 74 6f 5f | 63 6c 65 61 72 3b 0a 0a |t ok_to_|clear;..|
|00000790| 23 69 66 64 65 66 20 54 | 45 52 4d 43 41 50 0a 73 |#ifdef T|ERMCAP.s|
|000007a0| 74 61 74 69 63 20 63 68 | 61 72 20 63 6c 65 61 72 |tatic ch|ar clear|
|000007b0| 5f 73 63 72 65 65 6e 5b | 31 32 38 5d 20 3d 20 30 |_screen[|128] = 0|
|000007c0| 3b 0a 73 74 61 74 69 63 | 20 69 6e 74 20 6c 69 6e |;.static| int lin|
|000007d0| 65 73 3b 0a 23 65 6e 64 | 69 66 0a 0a 63 6c 65 61 |es;.#end|if..clea|
|000007e0| 72 69 6e 69 74 20 28 29 | 0a 7b 0a 23 69 66 64 65 |rinit ()|.{.#ifde|
|000007f0| 66 20 54 45 52 4d 49 4e | 46 4f 0a 20 20 69 6e 74 |f TERMIN|FO. int|
|00000800| 20 69 3b 20 20 20 20 20 | 20 20 20 0a 20 20 73 65 | i; | . se|
|00000810| 74 75 70 74 65 72 6d 28 | 67 65 74 65 6e 76 28 22 |tupterm(|getenv("|
|00000820| 54 45 52 4d 22 29 2c 31 | 2c 26 69 29 3b 0a 20 20 |TERM"),1|,&i);. |
|00000830| 6f 6b 5f 74 6f 5f 63 6c | 65 61 72 20 3d 20 28 69 |ok_to_cl|ear = (i|
|00000840| 20 3d 3d 20 31 29 20 3f | 20 31 20 3a 20 30 3b 0a | == 1) ?| 1 : 0;.|
|00000850| 20 20 69 66 20 28 69 20 | 21 3d 20 31 29 20 7b 0a | if (i |!= 1) {.|
|00000860| 20 20 20 20 20 66 70 72 | 69 6e 74 66 28 73 74 64 | fpr|intf(std|
|00000870| 65 72 72 2c 22 57 61 72 | 6e 69 6e 67 3a 20 54 65 |err,"War|ning: Te|
|00000880| 72 6d 69 6e 61 6c 20 74 | 79 70 65 20 75 6e 6b 6e |rminal t|ype unkn|
|00000890| 6f 77 6e 5c 6e 22 29 3b | 0a 20 20 7d 0a 20 20 72 |own\n");|. }. r|
|000008a0| 65 74 75 72 6e 20 28 69 | 20 3d 3d 20 31 29 20 3f |eturn (i| == 1) ?|
|000008b0| 20 30 20 3a 20 2d 31 3b | 0a 23 65 6e 64 69 66 0a | 0 : -1;|.#endif.|
|000008c0| 23 69 66 64 65 66 20 54 | 45 52 4d 43 41 50 0a 20 |#ifdef T|ERMCAP. |
|000008d0| 20 63 68 61 72 20 74 63 | 5b 31 30 32 34 5d 3b 0a | char tc|[1024];.|
|000008e0| 20 20 63 68 61 72 20 2a | 70 74 72 20 3d 20 63 6c | char *|ptr = cl|
|000008f0| 65 61 72 5f 73 63 72 65 | 65 6e 3b 0a 0a 20 20 69 |ear_scre|en;.. i|
|00000900| 66 20 28 74 67 65 74 65 | 6e 74 28 74 63 2c 20 67 |f (tgete|nt(tc, g|
|00000910| 65 74 65 6e 76 28 22 54 | 45 52 4d 22 29 29 20 3c |etenv("T|ERM")) <|
|00000920| 20 31 29 20 7b 0a 20 20 | 20 20 6f 6b 5f 74 6f 5f | 1) {. | ok_to_|
|00000930| 63 6c 65 61 72 20 3d 20 | 30 3b 0a 20 20 20 20 72 |clear = |0;. r|
|00000940| 65 74 75 72 6e 3b 0a 20 | 20 7d 0a 20 20 74 67 65 |eturn;. | }. tge|
|00000950| 74 73 74 72 28 22 63 6c | 22 2c 20 26 70 74 72 29 |tstr("cl|", &ptr)|
|00000960| 3b 0a 20 20 6c 69 6e 65 | 73 20 3d 20 74 67 65 74 |;. line|s = tget|
|00000970| 6e 75 6d 28 22 6c 69 22 | 29 3b 0a 20 20 6f 6b 5f |num("li"|);. ok_|
|00000980| 74 6f 5f 63 6c 65 61 72 | 20 3d 20 28 63 6c 65 61 |to_clear| = (clea|
|00000990| 72 5f 73 63 72 65 65 6e | 5b 30 5d 20 21 3d 20 30 |r_screen|[0] != 0|
|000009a0| 20 26 26 20 6c 69 6e 65 | 73 20 3e 20 30 29 3b 0a | && line|s > 0);.|
|000009b0| 0a 23 65 6e 64 69 66 0a | 7d 20 20 20 20 20 20 20 |.#endif.|} |
|000009c0| 20 0a 20 20 20 20 20 20 | 20 20 0a 63 6c 65 61 72 | . | .clear|
|000009d0| 5f 74 68 65 5f 73 63 72 | 65 65 6e 20 28 29 0a 7b |_the_scr|een ().{|
|000009e0| 0a 23 69 66 64 65 66 20 | 54 45 52 4d 49 4e 46 4f |.#ifdef |TERMINFO|
|000009f0| 0a 20 20 69 66 20 28 21 | 6f 6b 5f 74 6f 5f 63 6c |. if (!|ok_to_cl|
|00000a00| 65 61 72 29 20 72 65 74 | 75 72 6e 3b 20 20 20 20 |ear) ret|urn; |
|00000a10| 20 20 20 20 0a 20 20 74 | 70 75 74 73 28 63 6c 65 | . t|puts(cle|
|00000a20| 61 72 5f 73 63 72 65 65 | 6e 2c 6c 69 6e 65 73 2c |ar_scree|n,lines,|
|00000a30| 70 75 74 63 68 61 72 29 | 3b 0a 20 20 66 66 6c 75 |putchar)|;. fflu|
|00000a40| 73 68 28 73 74 64 6f 75 | 74 29 3b 0a 23 65 6e 64 |sh(stdou|t);.#end|
|00000a50| 69 66 0a 23 69 66 64 65 | 66 20 54 45 52 4d 43 41 |if.#ifde|f TERMCA|
|00000a60| 50 0a 20 20 69 66 20 28 | 21 6f 6b 5f 74 6f 5f 63 |P. if (|!ok_to_c|
|00000a70| 6c 65 61 72 29 20 72 65 | 74 75 72 6e 3b 0a 20 20 |lear) re|turn;. |
|00000a80| 74 70 75 74 73 28 63 6c | 65 61 72 5f 73 63 72 65 |tputs(cl|ear_scre|
|00000a90| 65 6e 2c 6c 69 6e 65 73 | 2c 70 75 74 63 68 61 72 |en,lines|,putchar|
|00000aa0| 29 3b 0a 20 20 66 66 6c | 75 73 68 28 73 74 64 6f |);. ffl|ush(stdo|
|00000ab0| 75 74 29 3b 0a 23 65 6e | 64 69 66 0a 7d 0a 53 48 |ut);.#en|dif.}.SH|
|00000ac0| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 39 |AR_EOF.i|f test 9|
|00000ad0| 33 30 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 3c |30 -ne "|`wc -c <|
|00000ae0| 20 27 63 6c 65 61 72 2e | 63 27 60 22 0a 74 68 65 | 'clear.|c'`".the|
|00000af0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 65 72 |n..echo |shar: er|
|00000b00| 72 6f 72 20 74 72 61 6e | 73 6d 69 74 74 69 6e 67 |ror tran|smitting|
|00000b10| 20 22 27 63 6c 65 61 72 | 2e 63 27 22 20 27 28 73 | "'clear|.c'" '(s|
|00000b20| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|00000b30| 39 33 30 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |930 char|acters)'|
|00000b40| 0a 66 69 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |.fi.fi.e|cho shar|
|00000b50| 3a 20 65 78 74 72 61 63 | 74 69 6e 67 20 22 27 64 |: extrac|ting "'d|
|00000b60| 61 74 61 64 65 66 2e 68 | 27 22 20 27 28 31 39 31 |atadef.h|'" '(191|
|00000b70| 31 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |1 charac|ters)'.i|
|00000b80| 66 20 74 65 73 74 20 2d | 66 20 27 64 61 74 61 64 |f test -|f 'datad|
|00000b90| 65 66 2e 68 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |ef.h'.th|en..echo|
|00000ba0| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00000bb0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000bc0| 69 6e 67 20 66 69 6c 65 | 20 22 27 64 61 74 61 64 |ing file| "'datad|
|00000bd0| 65 66 2e 68 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |ef.h'".e|lse.cat |
|00000be0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00000bf0| 64 61 74 61 64 65 66 2e | 68 27 0a 23 64 65 66 69 |datadef.|h'.#defi|
|00000c00| 6e 65 20 41 42 4f 52 54 | 53 54 52 49 4e 47 20 22 |ne ABORT|STRING "|
|00000c10| 5c 5c 22 0a 23 64 65 66 | 69 6e 65 20 41 42 4f 52 |\\".#def|ine ABOR|
|00000c20| 54 43 48 41 52 20 27 5c | 5c 27 0a 0a 23 64 65 66 |TCHAR '\|\'..#def|
|00000c30| 69 6e 65 20 4d 41 58 4d | 41 54 43 48 45 53 20 31 |ine MAXM|ATCHES 1|
|00000c40| 37 0a 0a 23 64 65 66 69 | 6e 65 20 4e 5f 42 41 53 |7..#defi|ne N_BAS|
|00000c50| 49 43 5f 46 49 45 4c 44 | 53 20 38 0a 23 64 65 66 |IC_FIELD|S 8.#def|
|00000c60| 69 6e 65 20 4f 54 48 45 | 52 20 2d 31 0a 0a 74 79 |ine OTHE|R -1..ty|
|00000c70| 70 65 64 65 66 20 65 6e | 75 6d 20 42 61 73 69 63 |pedef en|um Basic|
|00000c80| 5f 46 69 65 6c 64 20 7b | 0a 0a 20 20 20 20 52 5f |_Field {|.. R_|
|00000c90| 4e 41 4d 45 20 3d 20 30 | 2c 20 52 5f 57 4f 52 4b |NAME = 0|, R_WORK|
|00000ca0| 5f 50 48 4f 4e 45 2c 20 | 52 5f 48 4f 4d 45 5f 50 |_PHONE, |R_HOME_P|
|00000cb0| 48 4f 4e 45 2c 20 52 5f | 43 4f 4d 50 41 4e 59 2c |HONE, R_|COMPANY,|
|00000cc0| 20 52 5f 57 4f 52 4b 5f | 41 44 44 52 45 53 53 2c | R_WORK_|ADDRESS,|
|00000cd0| 0a 20 20 20 20 52 5f 48 | 4f 4d 45 5f 41 44 44 52 |. R_H|OME_ADDR|
|00000ce0| 45 53 53 2c 20 52 5f 52 | 45 4d 41 52 4b 53 2c 20 |ESS, R_R|EMARKS, |
|00000cf0| 52 5f 55 50 44 41 54 45 | 44 0a 0a 20 20 7d 3b 20 |R_UPDATE|D.. }; |
|00000d00| 20 20 20 0a 20 20 20 20 | 0a 65 78 74 65 72 6e 20 | . |.extern |
|00000d10| 63 68 61 72 20 2a 46 69 | 65 6c 64 5f 4e 61 6d 65 |char *Fi|eld_Name|
|00000d20| 73 5b 5d 3b 20 20 0a 20 | 20 0a 2f 2a 20 41 20 52 |s[]; . | ./* A R|
|00000d30| 6f 6c 6f 64 65 78 20 65 | 6e 74 72 79 20 2a 2f 0a |olodex e|ntry */.|
|00000d40| 0a 74 79 70 65 64 65 66 | 20 73 74 72 75 63 74 20 |.typedef| struct |
|00000d50| 7b 0a 0a 20 20 20 20 63 | 68 61 72 20 2a 62 61 73 |{.. c|har *bas|
|00000d60| 69 63 66 69 65 6c 64 73 | 5b 4e 5f 42 41 53 49 43 |icfields|[N_BASIC|
|00000d70| 5f 46 49 45 4c 44 53 5d | 3b 0a 20 20 20 20 69 6e |_FIELDS]|;. in|
|00000d80| 74 20 6e 5f 6f 74 68 65 | 72 73 3b 0a 20 20 20 20 |t n_othe|rs;. |
|00000d90| 63 68 61 72 20 2a 2a 6f | 74 68 65 72 5f 66 69 65 |char **o|ther_fie|
|00000da0| 6c 64 73 3b 0a 0a 20 20 | 7d 20 52 6f 6c 6f 5f 45 |lds;.. |} Rolo_E|
|00000db0| 6e 74 72 79 2c 20 2a 50 | 74 72 5f 52 6f 6c 6f 5f |ntry, *P|tr_Rolo_|
|00000dc0| 45 6e 74 72 79 3b 0a 0a | 20 20 0a 23 64 65 66 69 |Entry;..| .#defi|
|00000dd0| 6e 65 20 67 65 74 5f 62 | 61 73 69 63 5f 72 6f 6c |ne get_b|asic_rol|
|00000de0| 6f 5f 66 69 65 6c 64 28 | 6e 2c 78 29 20 28 28 28 |o_field(|n,x) (((|
|00000df0| 78 29 20 2d 3e 20 62 61 | 73 69 63 66 69 65 6c 64 |x) -> ba|sicfield|
|00000e00| 73 29 5b 28 6e 29 5d 29 | 0a 23 64 65 66 69 6e 65 |s)[(n)])|.#define|
|00000e10| 20 67 65 74 5f 6e 5f 6f | 74 68 65 72 73 28 78 29 | get_n_o|thers(x)|
|00000e20| 20 28 28 78 29 20 2d 3e | 20 6e 5f 6f 74 68 65 72 | ((x) ->| n_other|
|00000e30| 73 29 20 20 0a 23 64 65 | 66 69 6e 65 20 67 65 74 |s) .#de|fine get|
|00000e40| 5f 6f 74 68 65 72 5f 66 | 69 65 6c 64 28 6e 2c 78 |_other_f|ield(n,x|
|00000e50| 29 20 28 28 28 78 29 20 | 2d 3e 20 6f 74 68 65 72 |) (((x) |-> other|
|00000e60| 5f 66 69 65 6c 64 73 29 | 5b 6e 5d 29 0a 20 20 0a |_fields)|[n]). .|
|00000e70| 23 64 65 66 69 6e 65 20 | 73 65 74 5f 62 61 73 69 |#define |set_basi|
|00000e80| 63 5f 72 6f 6c 6f 5f 66 | 69 65 6c 64 28 6e 2c 78 |c_rolo_f|ield(n,x|
|00000e90| 2c 73 29 20 28 28 28 78 | 29 20 2d 3e 20 62 61 73 |,s) (((x|) -> bas|
|00000ea0| 69 63 66 69 65 6c 64 73 | 5b 28 6e 29 5d 29 20 3d |icfields|[(n)]) =|
|00000eb0| 20 28 73 29 29 0a 23 64 | 65 66 69 6e 65 20 73 65 | (s)).#d|efine se|
|00000ec0| 74 5f 6e 5f 6f 74 68 65 | 72 73 28 78 2c 6e 29 20 |t_n_othe|rs(x,n) |
|00000ed0| 28 28 28 78 29 20 2d 3e | 20 6e 5f 6f 74 68 65 72 |(((x) ->| n_other|
|00000ee0| 73 29 20 3d 20 28 6e 29 | 29 0a 23 64 65 66 69 6e |s) = (n)|).#defin|
|00000ef0| 65 20 69 6e 63 72 5f 6e | 5f 6f 74 68 65 72 73 28 |e incr_n|_others(|
|00000f00| 78 29 20 28 28 28 78 29 | 20 2d 3e 20 6e 5f 6f 74 |x) (((x)| -> n_ot|
|00000f10| 68 65 72 73 29 2b 2b 29 | 0a 23 64 65 66 69 6e 65 |hers)++)|.#define|
|00000f20| 20 73 65 74 5f 6f 74 68 | 65 72 5f 66 69 65 6c 64 | set_oth|er_field|
|00000f30| 28 6e 2c 78 2c 73 29 20 | 28 28 28 28 78 29 20 2d |(n,x,s) |((((x) -|
|00000f40| 3e 20 6f 74 68 65 72 5f | 66 69 65 6c 64 73 29 5b |> other_|fields)[|
|00000f50| 6e 5d 29 20 3d 20 28 73 | 29 29 0a 0a 74 79 70 65 |n]) = (s|))..type|
|00000f60| 64 65 66 20 73 74 72 75 | 63 74 20 6c 69 6e 6b 20 |def stru|ct link |
|00000f70| 7b 0a 0a 20 20 20 20 50 | 74 72 5f 52 6f 6c 6f 5f |{.. P|tr_Rolo_|
|00000f80| 45 6e 74 72 79 20 65 6e | 74 72 79 3b 0a 20 20 20 |Entry en|try;. |
|00000f90| 20 69 6e 74 20 6d 61 74 | 63 68 65 64 3b 0a 20 20 | int mat|ched;. |
|00000fa0| 20 20 73 74 72 75 63 74 | 20 6c 69 6e 6b 20 2a 70 | struct| link *p|
|00000fb0| 72 65 76 3b 0a 20 20 20 | 20 73 74 72 75 63 74 20 |rev;. | struct |
|00000fc0| 6c 69 6e 6b 20 2a 6e 65 | 78 74 3b 0a 0a 20 20 7d |link *ne|xt;.. }|
|00000fd0| 20 52 6f 6c 6f 5f 4c 69 | 73 74 2c 20 2a 50 74 72 | Rolo_Li|st, *Ptr|
|00000fe0| 5f 52 6f 6c 6f 5f 4c 69 | 73 74 3b 0a 0a 0a 23 64 |_Rolo_Li|st;...#d|
|00000ff0| 65 66 69 6e 65 20 67 65 | 74 5f 6e 65 78 74 5f 6c |efine ge|t_next_l|
|00001000| 69 6e 6b 28 78 29 20 28 | 28 78 29 20 2d 3e 20 6e |ink(x) (|(x) -> n|
|00001010| 65 78 74 29 0a 23 64 65 | 66 69 6e 65 20 67 65 74 |ext).#de|fine get|
|00001020| 5f 70 72 65 76 5f 6c 69 | 6e 6b 28 78 29 20 28 28 |_prev_li|nk(x) ((|
|00001030| 78 29 20 2d 3e 20 70 72 | 65 76 29 0a 23 64 65 66 |x) -> pr|ev).#def|
|00001040| 69 6e 65 20 67 65 74 5f | 65 6e 74 72 79 28 78 29 |ine get_|entry(x)|
|00001050| 20 20 20 20 20 28 28 78 | 29 20 2d 3e 20 65 6e 74 | ((x|) -> ent|
|00001060| 72 79 29 0a 23 64 65 66 | 69 6e 65 20 67 65 74 5f |ry).#def|ine get_|
|00001070| 6d 61 74 63 68 65 64 28 | 78 29 20 28 28 78 29 20 |matched(|x) ((x) |
|00001080| 2d 3e 20 6d 61 74 63 68 | 65 64 29 0a 0a 23 64 65 |-> match|ed)..#de|
|00001090| 66 69 6e 65 20 73 65 74 | 5f 6e 65 78 74 5f 6c 69 |fine set|_next_li|
|000010a0| 6e 6b 28 78 2c 79 29 20 | 28 28 28 78 29 20 2d 3e |nk(x,y) |(((x) ->|
|000010b0| 20 6e 65 78 74 29 20 3d | 20 28 79 29 29 0a 23 64 | next) =| (y)).#d|
|000010c0| 65 66 69 6e 65 20 73 65 | 74 5f 70 72 65 76 5f 6c |efine se|t_prev_l|
|000010d0| 69 6e 6b 28 78 2c 79 29 | 20 28 28 28 78 29 20 2d |ink(x,y)| (((x) -|
|000010e0| 3e 20 70 72 65 76 29 20 | 3d 20 28 79 29 29 0a 23 |> prev) |= (y)).#|
|000010f0| 64 65 66 69 6e 65 20 73 | 65 74 5f 65 6e 74 72 79 |define s|et_entry|
|00001100| 28 78 2c 79 29 20 28 28 | 28 78 29 20 2d 3e 20 65 |(x,y) ((|(x) -> e|
|00001110| 6e 74 72 79 29 20 3d 20 | 28 79 29 29 0a 23 64 65 |ntry) = |(y)).#de|
|00001120| 66 69 6e 65 20 73 65 74 | 5f 6d 61 74 63 68 65 64 |fine set|_matched|
|00001130| 28 78 29 20 28 28 28 78 | 29 20 2d 3e 20 6d 61 74 |(x) (((x|) -> mat|
|00001140| 63 68 65 64 29 20 3d 20 | 31 29 0a 23 64 65 66 69 |ched) = |1).#defi|
|00001150| 6e 65 20 75 6e 73 65 74 | 5f 6d 61 74 63 68 65 64 |ne unset|_matched|
|00001160| 28 78 29 20 28 28 28 78 | 29 20 2d 3e 20 6d 61 74 |(x) (((x|) -> mat|
|00001170| 63 68 65 64 29 20 3d 20 | 30 29 3b 0a 0a 65 78 74 |ched) = |0);..ext|
|00001180| 65 72 6e 20 50 74 72 5f | 52 6f 6c 6f 5f 4c 69 73 |ern Ptr_|Rolo_Lis|
|00001190| 74 20 42 65 67 69 6e 5f | 52 6c 69 73 74 3b 0a 65 |t Begin_|Rlist;.e|
|000011a0| 78 74 65 72 6e 20 50 74 | 72 5f 52 6f 6c 6f 5f 4c |xtern Pt|r_Rolo_L|
|000011b0| 69 73 74 20 45 6e 64 5f | 52 6c 69 73 74 3b 0a 0a |ist End_|Rlist;..|
|000011c0| 23 64 65 66 69 6e 65 20 | 4d 41 58 4c 49 4e 45 4c |#define |MAXLINEL|
|000011d0| 45 4e 20 38 30 0a 23 64 | 65 66 69 6e 65 20 44 49 |EN 80.#d|efine DI|
|000011e0| 52 50 41 54 48 4c 45 4e | 20 31 30 30 0a 0a 65 78 |RPATHLEN| 100..ex|
|000011f0| 74 65 72 6e 20 69 6e 74 | 20 63 68 61 6e 67 65 64 |tern int| changed|
|00001200| 3b 0a 65 78 74 65 72 6e | 20 69 6e 74 20 72 65 6f |;.extern| int reo|
|00001210| 72 64 65 72 5f 66 69 6c | 65 3b 0a 65 78 74 65 72 |rder_fil|e;.exter|
|00001220| 6e 20 69 6e 74 20 72 6f | 6c 6f 6c 6f 63 6b 65 64 |n int ro|lolocked|
|00001230| 3b 0a 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |;..exter|n char *|
|00001240| 72 6f 6c 6f 5f 65 6d 61 | 6c 6c 6f 63 28 29 3b 0a |rolo_ema|lloc();.|
|00001250| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 6d 61 6c |extern c|har *mal|
|00001260| 6c 6f 63 28 29 3b 0a 65 | 78 74 65 72 6e 20 50 74 |loc();.e|xtern Pt|
|00001270| 72 5f 52 6f 6c 6f 5f 4c | 69 73 74 20 6e 65 77 5f |r_Rolo_L|ist new_|
|00001280| 6c 69 6e 6b 5f 77 69 74 | 68 5f 65 6e 74 72 79 28 |link_wit|h_entry(|
|00001290| 29 3b 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |);.exter|n char *|
|000012a0| 63 6f 70 79 73 74 72 28 | 29 3b 0a 65 78 74 65 72 |copystr(|);.exter|
|000012b0| 6e 20 69 6e 74 20 63 6f | 6d 70 61 72 65 5f 6c 69 |n int co|mpare_li|
|000012c0| 6e 6b 73 28 29 3b 0a 65 | 78 74 65 72 6e 20 63 68 |nks();.e|xtern ch|
|000012d0| 61 72 20 2a 74 69 6d 65 | 73 74 72 69 6e 67 28 29 |ar *time|string()|
|000012e0| 3b 0a 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 68 |;.extern| char *h|
|000012f0| 6f 6d 65 64 69 72 28 29 | 2c 20 2a 6c 69 62 64 69 |omedir()|, *libdi|
|00001300| 72 28 29 3b 0a 65 78 74 | 65 72 6e 20 63 68 61 72 |r();.ext|ern char|
|00001310| 20 2a 67 65 74 65 6e 76 | 28 29 3b 0a 65 78 74 65 | *getenv|();.exte|
|00001320| 72 6e 20 63 68 61 72 20 | 2a 63 74 69 6d 65 28 29 |rn char |*ctime()|
|00001330| 3b 0a 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 73 |;.extern| char *s|
|00001340| 65 6c 65 63 74 5f 73 65 | 61 72 63 68 5f 73 74 72 |elect_se|arch_str|
|00001350| 69 6e 67 28 29 3b 0a 65 | 78 74 65 72 6e 20 69 6e |ing();.e|xtern in|
|00001360| 74 20 69 6e 5f 73 65 61 | 72 63 68 5f 6d 6f 64 65 |t in_sea|rch_mode|
|00001370| 3b 0a 53 48 41 52 5f 45 | 4f 46 0a 69 66 20 74 65 |;.SHAR_E|OF.if te|
|00001380| 73 74 20 31 39 31 31 20 | 2d 6e 65 20 22 60 77 63 |st 1911 |-ne "`wc|
|00001390| 20 2d 63 20 3c 20 27 64 | 61 74 61 64 65 66 2e 68 | -c < 'd|atadef.h|
|000013a0| 27 60 22 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |'`".then|..echo s|
|000013b0| 68 61 72 3a 20 65 72 72 | 6f 72 20 74 72 61 6e 73 |har: err|or trans|
|000013c0| 6d 69 74 74 69 6e 67 20 | 22 27 64 61 74 61 64 65 |mitting |"'datade|
|000013d0| 66 2e 68 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |f.h'" '(|should h|
|000013e0| 61 76 65 20 62 65 65 6e | 20 31 39 31 31 20 63 68 |ave been| 1911 ch|
|000013f0| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 66 69 |aracters|)'.fi.fi|
|00001400| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 65 78 74 72 |.echo sh|ar: extr|
|00001410| 61 63 74 69 6e 67 20 22 | 27 69 6f 2e 63 27 22 20 |acting "|'io.c'" |
|00001420| 27 28 38 34 35 35 20 63 | 68 61 72 61 63 74 65 72 |'(8455 c|haracter|
|00001430| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|00001440| 69 6f 2e 63 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |io.c'.th|en..echo|
|00001450| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00001460| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00001470| 69 6e 67 20 66 69 6c 65 | 20 22 27 69 6f 2e 63 27 |ing file| "'io.c'|
|00001480| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00001490| 48 41 52 5f 45 4f 46 20 | 3e 20 27 69 6f 2e 63 27 |HAR_EOF |> 'io.c'|
|000014a0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|000014b0| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |.h>.#inc|lude <sy|
|000014c0| 73 2f 74 79 70 65 73 2e | 68 3e 0a 23 69 6e 63 6c |s/types.|h>.#incl|
|000014d0| 75 64 65 20 3c 73 79 73 | 2f 73 74 61 74 2e 68 3e |ude <sys|/stat.h>|
|000014e0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 79 73 2f 66 |.#includ|e <sys/f|
|000014f0| 69 6c 65 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |ile.h>.#|include |
|00001500| 3c 63 74 79 70 65 2e 68 | 3e 0a 0a 23 69 6e 63 6c |<ctype.h|>..#incl|
|00001510| 75 64 65 20 22 73 79 73 | 35 2e 68 22 0a 0a 23 69 |ude "sys|5.h"..#i|
|00001520| 66 64 65 66 20 54 4d 43 | 0a 23 69 6e 63 6c 75 64 |fdef TMC|.#includ|
|00001530| 65 20 3c 63 74 6f 6f 6c | 73 2e 68 3e 0a 23 65 6c |e <ctool|s.h>.#el|
|00001540| 73 65 0a 23 69 6e 63 6c | 75 64 65 20 22 63 74 6f |se.#incl|ude "cto|
|00001550| 6f 6c 73 2e 68 22 0a 23 | 65 6e 64 69 66 0a 0a 23 |ols.h".#|endif..#|
|00001560| 69 6e 63 6c 75 64 65 20 | 22 64 61 74 61 64 65 66 |include |"datadef|
|00001570| 2e 68 22 0a 23 69 6e 63 | 6c 75 64 65 20 22 72 6f |.h".#inc|lude "ro|
|00001580| 6c 6f 66 69 6c 65 73 2e | 68 22 0a 0a 0a 63 68 61 |lofiles.|h"...cha|
|00001590| 72 20 2a 46 69 65 6c 64 | 5f 4e 61 6d 65 73 5b 4e |r *Field|_Names[N|
|000015a0| 5f 42 41 53 49 43 5f 46 | 49 45 4c 44 53 5d 20 3d |_BASIC_F|IELDS] =|
|000015b0| 20 7b 0a 20 20 20 20 20 | 20 20 20 0a 20 20 20 20 | {. | . |
|000015c0| 20 20 20 20 22 4e 61 6d | 65 3a 20 22 2c 20 22 57 | "Nam|e: ", "W|
|000015d0| 6f 72 6b 20 50 68 6f 6e | 65 3a 20 22 2c 20 22 48 |ork Phon|e: ", "H|
|000015e0| 6f 6d 65 20 50 68 6f 6e | 65 3a 20 22 2c 20 22 43 |ome Phon|e: ", "C|
|000015f0| 6f 6d 70 61 6e 79 3a 20 | 22 2c 0a 20 20 20 20 20 |ompany: |",. |
|00001600| 20 20 20 22 57 6f 72 6b | 20 41 64 64 72 65 73 73 | "Work| Address|
|00001610| 3a 20 22 2c 20 22 48 6f | 6d 65 20 41 64 64 72 65 |: ", "Ho|me Addre|
|00001620| 73 73 3a 20 22 2c 20 22 | 52 65 6d 61 72 6b 73 3a |ss: ", "|Remarks:|
|00001630| 20 22 2c 20 22 44 61 74 | 65 20 55 70 64 61 74 65 | ", "Dat|e Update|
|00001640| 64 3a 20 22 0a 20 20 20 | 20 20 20 20 20 0a 20 20 |d: ". | . |
|00001650| 20 20 20 7d 3b 0a 0a 50 | 74 72 5f 52 6f 6c 6f 5f | };..P|tr_Rolo_|
|00001660| 4c 69 73 74 20 42 65 67 | 69 6e 5f 52 6c 69 73 74 |List Beg|in_Rlist|
|00001670| 20 3d 20 30 3b 0a 50 74 | 72 5f 52 6f 6c 6f 5f 4c | = 0;.Pt|r_Rolo_L|
|00001680| 69 73 74 20 45 6e 64 5f | 52 6c 69 73 74 20 3d 20 |ist End_|Rlist = |
|00001690| 30 3b 0a 50 74 72 5f 52 | 6f 6c 6f 5f 4c 69 73 74 |0;.Ptr_R|olo_List|
|000016a0| 20 43 75 72 72 65 6e 74 | 5f 45 6e 74 72 79 20 3d | Current|_Entry =|
|000016b0| 20 30 3b 0a 0a 73 74 61 | 74 69 63 20 63 68 61 72 | 0;..sta|tic char|
|000016c0| 20 2a 72 6f 6c 6f 66 69 | 6c 65 64 61 74 61 3b 0a | *rolofi|ledata;.|
|000016d0| 0a 72 65 61 64 5f 72 6f | 6c 6f 64 65 78 20 28 66 |.read_ro|lodex (f|
|000016e0| 64 29 20 69 6e 74 20 66 | 64 3b 0a 0a 7b 0a 20 20 |d) int f|d;..{. |
|000016f0| 73 74 72 75 63 74 20 73 | 74 61 74 20 73 74 61 74 |struct s|tat stat|
|00001700| 64 61 74 61 3b 0a 20 20 | 69 6e 74 20 66 69 6c 65 |data;. |int file|
|00001710| 73 69 7a 65 2c 69 2c 6a | 2c 6b 2c 73 74 61 72 74 |size,i,j|,k,start|
|00001720| 5f 6f 66 5f 6f 74 68 65 | 72 73 2c 77 61 72 6e 69 |_of_othe|rs,warni|
|00001730| 6e 67 5f 67 69 76 65 6e | 3b 0a 20 20 50 74 72 5f |ng_given|;. Ptr_|
|00001740| 52 6f 6c 6f 5f 45 6e 74 | 72 79 20 6e 65 77 65 6e |Rolo_Ent|ry newen|
|00001750| 74 72 79 2c 6f 6c 64 65 | 6e 74 72 79 2c 63 75 72 |try,olde|ntry,cur|
|00001760| 72 65 6e 74 65 6e 74 72 | 79 3b 0a 20 20 50 74 72 |rententr|y;. Ptr|
|00001770| 5f 52 6f 6c 6f 5f 4c 69 | 73 74 20 6e 65 77 6c 69 |_Rolo_Li|st newli|
|00001780| 6e 6b 2c 72 70 74 72 3b | 0a 20 20 63 68 61 72 20 |nk,rptr;|. char |
|00001790| 2a 6e 65 78 74 5f 66 69 | 65 6c 64 2c 2a 6e 65 78 |*next_fi|eld,*nex|
|000017a0| 74 5f 6f 74 68 65 72 2c | 2a 6f 6c 64 6e 61 6d 65 |t_other,|*oldname|
|000017b0| 2c 2a 63 75 72 72 65 6e | 74 6e 61 6d 65 3b 0a 20 |,*curren|tname;. |
|000017c0| 20 63 68 61 72 20 2a 2a | 6f 74 68 65 72 5f 70 6f | char **|other_po|
|000017d0| 69 6e 74 65 72 73 3b 0a | 20 20 69 6e 74 20 6e 5f |inters;.| int n_|
|000017e0| 65 6e 74 72 69 65 73 20 | 3d 20 30 3b 0a 20 20 0a |entries |= 0;. .|
|000017f0| 20 20 2f 2a 20 66 69 6e | 64 20 6f 75 74 20 68 6f | /* fin|d out ho|
|00001800| 77 20 6d 61 6e 79 20 62 | 79 74 65 73 20 61 72 65 |w many b|ytes are|
|00001810| 20 69 6e 20 74 68 65 20 | 66 69 6c 65 20 2a 2f 0a | in the |file */.|
|00001820| 20 20 0a 20 20 66 73 74 | 61 74 28 66 64 2c 26 73 | . fst|at(fd,&s|
|00001830| 74 61 74 64 61 74 61 29 | 3b 0a 20 20 69 66 20 28 |tatdata)|;. if (|
|00001840| 28 66 69 6c 65 73 69 7a | 65 20 3d 20 73 74 61 74 |(filesiz|e = stat|
|00001850| 64 61 74 61 2e 73 74 5f | 73 69 7a 65 29 20 3d 3d |data.st_|size) ==|
|00001860| 20 30 29 20 7b 0a 20 20 | 20 20 20 72 65 74 75 72 | 0) {. | retur|
|00001870| 6e 28 30 29 3b 0a 20 20 | 7d 0a 0a 20 20 2f 2a 20 |n(0);. |}.. /* |
|00001880| 63 72 65 61 74 65 20 61 | 6e 20 61 72 72 61 79 20 |create a|n array |
|00001890| 6f 66 20 63 68 61 72 61 | 63 74 65 72 73 20 74 68 |of chara|cters th|
|000018a0| 61 74 20 62 69 67 20 2a | 2f 0a 20 20 0a 20 20 72 |at big *|/. . r|
|000018b0| 6f 6c 6f 66 69 6c 65 64 | 61 74 61 20 3d 20 72 6f |olofiled|ata = ro|
|000018c0| 6c 6f 5f 65 6d 61 6c 6c | 6f 63 28 66 69 6c 65 73 |lo_emall|oc(files|
|000018d0| 69 7a 65 29 3b 0a 0a 20 | 20 2f 2a 20 72 65 61 64 |ize);.. | /* read|
|000018e0| 20 74 68 65 6d 20 61 6c | 6c 20 69 6e 20 61 74 20 | them al|l in at |
|000018f0| 6f 6e 63 65 20 66 6f 72 | 20 65 66 66 69 63 69 65 |once for| efficie|
|00001900| 6e 63 79 20 2a 2f 0a 20 | 20 0a 20 20 69 66 20 28 |ncy */. | . if (|
|00001910| 66 69 6c 65 73 69 7a 65 | 20 21 3d 20 72 65 61 64 |filesize| != read|
|00001920| 28 66 64 2c 72 6f 6c 6f | 66 69 6c 65 64 61 74 61 |(fd,rolo|filedata|
|00001930| 2c 66 69 6c 65 73 69 7a | 65 29 29 20 7b 0a 20 20 |,filesiz|e)) {. |
|00001940| 20 20 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 | fprin|tf(stder|
|00001950| 72 2c 22 72 6f 6c 6f 64 | 65 78 20 72 65 61 64 20 |r,"rolod|ex read |
|00001960| 66 61 69 6c 65 64 5c 6e | 22 29 3b 0a 20 20 20 20 |failed\n|");. |
|00001970| 20 65 78 69 74 28 2d 31 | 29 3b 0a 20 20 7d 0a 0a | exit(-1|);. }..|
|00001980| 20 20 6a 20 3d 20 30 3b | 0a 20 20 0a 20 20 2f 2a | j = 0;|. . /*|
|00001990| 20 66 6f 72 20 65 61 63 | 68 20 65 6e 74 72 79 20 | for eac|h entry |
|000019a0| 69 6e 20 74 68 65 20 72 | 6f 6c 6f 64 65 78 20 66 |in the r|olodex f|
|000019b0| 69 6c 65 20 2a 2f 0a 20 | 20 0a 20 20 77 68 69 6c |ile */. | . whil|
|000019c0| 65 20 28 6a 20 3c 20 66 | 69 6c 65 73 69 7a 65 29 |e (j < f|ilesize)|
|000019d0| 20 7b 0a 0a 20 20 20 20 | 20 20 6e 5f 65 6e 74 72 | {.. | n_entr|
|000019e0| 69 65 73 2b 2b 3b 0a 20 | 20 20 20 20 20 20 20 0a |ies++;. | .|
|000019f0| 20 20 20 20 20 20 2f 2a | 20 63 72 65 61 74 65 20 | /*| create |
|00001a00| 74 68 65 20 6c 69 6e 6b | 20 61 6e 64 20 73 70 61 |the link| and spa|
|00001a10| 63 65 20 66 6f 72 20 74 | 68 65 20 64 61 74 61 20 |ce for t|he data |
|00001a20| 65 6e 74 72 79 20 2a 2f | 0a 20 20 20 20 20 20 20 |entry */|. |
|00001a30| 20 0a 20 20 20 20 20 20 | 6e 65 77 6c 69 6e 6b 20 | . |newlink |
|00001a40| 3d 20 6e 65 77 5f 6c 69 | 6e 6b 5f 77 69 74 68 5f |= new_li|nk_with_|
|00001a50| 65 6e 74 72 79 28 29 3b | 0a 20 20 20 20 20 20 6e |entry();|. n|
|00001a60| 65 77 65 6e 74 72 79 20 | 3d 20 67 65 74 5f 65 6e |ewentry |= get_en|
|00001a70| 74 72 79 28 6e 65 77 6c | 69 6e 6b 29 3b 0a 20 20 |try(newl|ink);. |
|00001a80| 20 20 20 20 69 66 20 28 | 6a 20 3d 3d 20 30 29 20 | if (|j == 0) |
|00001a90| 7b 0a 20 20 20 20 20 20 | 20 20 20 42 65 67 69 6e |{. | Begin|
|00001aa0| 5f 52 6c 69 73 74 20 3d | 20 6e 65 77 6c 69 6e 6b |_Rlist =| newlink|
|00001ab0| 3b 0a 20 20 20 20 20 20 | 20 20 20 73 65 74 5f 70 |;. | set_p|
|00001ac0| 72 65 76 5f 6c 69 6e 6b | 28 6e 65 77 6c 69 6e 6b |rev_link|(newlink|
|00001ad0| 2c 30 29 3b 0a 20 20 20 | 20 20 20 20 20 20 73 65 |,0);. | se|
|00001ae0| 74 5f 6e 65 78 74 5f 6c | 69 6e 6b 28 6e 65 77 6c |t_next_l|ink(newl|
|00001af0| 69 6e 6b 2c 30 29 3b 0a | 20 20 20 20 20 20 7d 0a |ink,0);.| }.|
|00001b00| 20 20 20 20 20 20 65 6c | 73 65 20 7b 0a 20 20 20 | el|se {. |
|00001b10| 20 20 20 20 20 20 20 73 | 65 74 5f 6e 65 78 74 5f | s|et_next_|
|00001b20| 6c 69 6e 6b 28 45 6e 64 | 5f 52 6c 69 73 74 2c 6e |link(End|_Rlist,n|
|00001b30| 65 77 6c 69 6e 6b 29 3b | 0a 20 20 20 20 20 20 20 |ewlink);|. |
|00001b40| 20 20 20 73 65 74 5f 70 | 72 65 76 5f 6c 69 6e 6b | set_p|rev_link|
|00001b50| 28 6e 65 77 6c 69 6e 6b | 2c 45 6e 64 5f 52 6c 69 |(newlink|,End_Rli|
|00001b60| 73 74 29 3b 0a 20 20 20 | 20 20 20 20 20 20 20 73 |st);. | s|
|00001b70| 65 74 5f 6e 65 78 74 5f | 6c 69 6e 6b 28 6e 65 77 |et_next_|link(new|
|00001b80| 6c 69 6e 6b 2c 30 29 3b | 0a 20 20 20 20 20 20 7d |link,0);|. }|
|00001b90| 0a 20 20 20 20 20 20 45 | 6e 64 5f 52 6c 69 73 74 |. E|nd_Rlist|
|00001ba0| 20 3d 20 6e 65 77 6c 69 | 6e 6b 3b 0a 0a 20 20 20 | = newli|nk;.. |
|00001bb0| 20 20 20 2f 2a 20 6c 6f | 63 61 74 65 20 65 61 63 | /* lo|cate eac|
|00001bc0| 68 20 72 65 71 75 69 72 | 65 64 20 66 69 65 6c 64 |h requir|ed field|
|00001bd0| 20 69 6e 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | in the |characte|
|00001be0| 72 20 61 72 72 61 79 20 | 61 6e 64 20 63 68 61 6e |r array |and chan|
|00001bf0| 67 65 20 2a 2f 0a 20 20 | 20 20 20 20 2f 2a 20 74 |ge */. | /* t|
|00001c00| 68 65 20 65 6e 64 69 6e | 67 20 6c 69 6e 65 20 66 |he endin|g line f|
|00001c10| 65 65 64 20 74 6f 20 61 | 20 6e 75 6c 6c 2e 20 20 |eed to a| null. |
|00001c20| 49 6e 73 65 72 74 20 61 | 20 70 6f 69 6e 74 65 72 |Insert a| pointer|
|00001c30| 20 74 6f 20 74 68 65 20 | 2a 2f 0a 20 20 20 20 20 | to the |*/. |
|00001c40| 20 2f 2a 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | /* begi|nning of|
|00001c50| 20 74 68 65 20 66 69 65 | 6c 64 20 69 6e 74 6f 20 | the fie|ld into |
|00001c60| 74 68 65 20 64 61 74 61 | 20 65 6e 74 72 79 20 2a |the data| entry *|
|00001c70| 2f 0a 0a 20 20 20 20 20 | 20 66 6f 72 20 28 69 20 |/.. | for (i |
|00001c80| 3d 20 30 3b 20 69 20 3c | 20 4e 5f 42 41 53 49 43 |= 0; i <| N_BASIC|
|00001c90| 5f 46 49 45 4c 44 53 3b | 20 69 2b 2b 29 20 7b 0a |_FIELDS;| i++) {.|
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 6e 65 78 74 5f 66 | | next_f|
|00001cb0| 69 65 6c 64 20 3d 20 72 | 6f 6c 6f 66 69 6c 65 64 |ield = r|olofiled|
|00001cc0| 61 74 61 20 2b 20 6a 3b | 0a 20 20 20 20 20 20 20 |ata + j;|. |
|00001cd0| 20 20 20 77 68 69 6c 65 | 20 28 72 6f 6c 6f 66 69 | while| (rolofi|
|00001ce0| 6c 65 64 61 74 61 5b 6a | 5d 20 21 3d 20 27 5c 6e |ledata[j|] != '\n|
|00001cf0| 27 29 20 7b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |') {. | |
|00001d00| 20 6a 2b 2b 3b 0a 20 20 | 20 20 20 20 20 20 20 20 | j++;. | |
|00001d10| 7d 0a 20 20 20 20 20 20 | 20 20 20 20 72 6f 6c 6f |}. | rolo|
|00001d20| 66 69 6c 65 64 61 74 61 | 5b 6a 5d 20 3d 20 27 5c |filedata|[j] = '\|
|00001d30| 30 27 3b 0a 20 20 20 20 | 20 20 20 20 20 20 6a 2b |0';. | j+|
|00001d40| 2b 3b 0a 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |+;. | set|
|00001d50| 5f 62 61 73 69 63 5f 72 | 6f 6c 6f 5f 66 69 65 6c |_basic_r|olo_fiel|
|00001d60| 64 28 69 2c 6e 65 77 65 | 6e 74 72 79 2c 6e 65 78 |d(i,newe|ntry,nex|
|00001d70| 74 5f 66 69 65 6c 64 29 | 3b 0a 20 20 20 20 20 20 |t_field)|;. |
|00001d80| 7d 0a 0a 20 20 20 20 20 | 20 2f 2a 20 74 68 65 20 |}.. | /* the |
|00001d90| 65 6e 64 20 6f 66 20 61 | 6e 20 65 6e 74 72 79 20 |end of a|n entry |
|00001da0| 69 73 20 69 6e 64 69 63 | 61 74 65 64 20 62 79 20 |is indic|ated by |
|00001db0| 74 77 6f 20 61 64 6a 61 | 63 65 6e 74 20 6e 65 77 |two adja|cent new|
|00001dc0| 6c 69 6e 65 73 20 2a 2f | 0a 0a 20 20 20 20 20 20 |lines */|.. |
|00001dd0| 69 66 20 28 72 6f 6c 6f | 66 69 6c 65 64 61 74 61 |if (rolo|filedata|
|00001de0| 5b 6a 5d 20 3d 3d 20 27 | 5c 6e 27 29 20 7b 0a 20 |[j] == '|\n') {. |
|00001df0| 20 20 20 20 20 20 20 20 | 6a 2b 2b 3b 0a 20 20 20 | |j++;. |
|00001e00| 20 20 20 20 20 20 6e 65 | 77 65 6e 74 72 79 20 2d | ne|wentry -|
|00001e10| 3e 20 6f 74 68 65 72 5f | 66 69 65 6c 64 73 20 3d |> other_|fields =|
|00001e20| 20 30 3b 0a 20 20 20 20 | 20 20 20 20 20 63 6f 6e | 0;. | con|
|00001e30| 74 69 6e 75 65 3b 0a 20 | 20 20 20 20 20 7d 0a 0a |tinue;. | }..|
|00001e40| 20 20 20 20 20 20 2f 2a | 20 74 68 65 72 65 20 6d | /*| there m|
|00001e50| 75 73 74 20 62 65 20 61 | 64 64 69 74 69 6f 6e 61 |ust be a|dditiona|
|00001e60| 6c 2c 20 75 73 65 72 2d | 69 6e 73 65 72 74 65 64 |l, user-|inserted|
|00001e70| 20 66 69 65 6c 64 73 2e | 20 46 69 6e 64 20 6f 75 | fields.| Find ou|
|00001e80| 74 20 68 6f 77 20 6d 61 | 6e 79 2e 20 2a 2f 0a 0a |t how ma|ny. */..|
|00001e90| 20 20 20 20 20 20 73 74 | 61 72 74 5f 6f 66 5f 6f | st|art_of_o|
|00001ea0| 74 68 65 72 73 20 3d 20 | 6a 3b 0a 20 20 20 20 20 |thers = |j;. |
|00001eb0| 20 77 68 69 6c 65 20 28 | 31 29 20 7b 0a 20 20 20 | while (|1) {. |
|00001ec0| 20 20 20 20 20 77 68 69 | 6c 65 20 28 72 6f 6c 6f | whi|le (rolo|
|00001ed0| 66 69 6c 65 64 61 74 61 | 5b 6a 5d 20 21 3d 20 27 |filedata|[j] != '|
|00001ee0| 5c 6e 27 29 20 7b 0a 20 | 20 20 20 20 20 20 20 20 |\n') {. | |
|00001ef0| 20 6a 2b 2b 3b 0a 20 20 | 20 20 20 20 20 20 7d 0a | j++;. | }.|
|00001f00| 20 20 20 20 20 20 20 20 | 69 6e 63 72 5f 6e 5f 6f | |incr_n_o|
|00001f10| 74 68 65 72 73 28 6e 65 | 77 65 6e 74 72 79 29 3b |thers(ne|wentry);|
|00001f20| 0a 20 20 20 20 20 20 20 | 20 6a 2b 2b 3b 0a 20 20 |. | j++;. |
|00001f30| 20 20 20 20 20 20 69 66 | 20 28 72 6f 6c 6f 66 69 | if| (rolofi|
|00001f40| 6c 65 64 61 74 61 5b 6a | 5d 20 3d 3d 20 27 5c 6e |ledata[j|] == '\n|
|00001f50| 27 29 20 7b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |') {. | |
|00001f60| 6a 2b 2b 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |j++;. | |
|00001f70| 62 72 65 61 6b 3b 0a 20 | 20 20 20 20 20 20 20 7d |break;. | }|
|00001f80| 0a 20 20 20 20 20 7d 0a | 0a 20 20 20 20 20 2f 2a |. }.|. /*|
|00001f90| 20 61 6c 6c 6f 63 61 74 | 65 20 61 6e 20 61 72 72 | allocat|e an arr|
|00001fa0| 61 79 20 6f 66 20 63 68 | 61 72 61 63 74 65 72 20 |ay of ch|aracter |
|00001fb0| 70 6f 69 6e 74 65 72 73 | 20 74 6f 20 68 6f 6c 64 |pointers| to hold|
|00001fc0| 20 74 68 65 73 65 20 66 | 69 65 6c 64 73 20 2a 2f | these f|ields */|
|00001fd0| 0a 0a 20 20 20 20 20 6f | 74 68 65 72 5f 70 6f 69 |.. o|ther_poi|
|00001fe0| 6e 74 65 72 73 20 3d 20 | 28 63 68 61 72 20 2a 2a |nters = |(char **|
|00001ff0| 29 72 6f 6c 6f 5f 65 6d | 61 6c 6c 6f 63 28 67 65 |)rolo_em|alloc(ge|
|00002000| 74 5f 6e 5f 6f 74 68 65 | 72 73 28 6e 65 77 65 6e |t_n_othe|rs(newen|
|00002010| 74 72 79 29 2a 73 69 7a | 65 6f 66 28 63 68 61 72 |try)*siz|eof(char|
|00002020| 20 2a 29 29 3b 0a 0a 20 | 20 20 20 20 2f 2a 20 73 | *));.. | /* s|
|00002030| 65 70 61 72 61 74 65 20 | 65 61 63 68 20 66 69 65 |eparate |each fie|
|00002040| 6c 64 20 61 6e 64 20 69 | 6e 73 65 72 74 20 61 20 |ld and i|nsert a |
|00002050| 70 6f 69 6e 74 65 72 20 | 74 6f 20 69 74 20 69 6e |pointer |to it in|
|00002060| 20 74 68 65 20 63 68 61 | 72 20 61 72 72 61 79 20 | the cha|r array |
|00002070| 2a 2f 0a 0a 20 20 20 20 | 20 6b 20 3d 20 73 74 61 |*/.. | k = sta|
|00002080| 72 74 5f 6f 66 5f 6f 74 | 68 65 72 73 3b 0a 20 20 |rt_of_ot|hers;. |
|00002090| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 30 3b 20 69 | for (|i = 0; i|
|000020a0| 20 3c 20 67 65 74 5f 6e | 5f 6f 74 68 65 72 73 28 | < get_n|_others(|
|000020b0| 6e 65 77 65 6e 74 72 79 | 29 3b 20 69 2b 2b 29 20 |newentry|); i++) |
|000020c0| 7b 0a 20 20 20 20 20 20 | 20 20 20 6e 65 78 74 5f |{. | next_|
|000020d0| 6f 74 68 65 72 20 3d 20 | 72 6f 6c 6f 66 69 6c 65 |other = |rolofile|
|000020e0| 64 61 74 61 20 2b 20 6b | 3b 0a 20 20 20 20 20 20 |data + k|;. |
|000020f0| 20 20 20 77 68 69 6c 65 | 20 28 72 6f 6c 6f 66 69 | while| (rolofi|
|00002100| 6c 65 64 61 74 61 5b 6b | 5d 20 21 3d 20 27 5c 6e |ledata[k|] != '\n|
|00002110| 27 29 20 7b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |') {. | |
|00002120| 6b 2b 2b 3b 0a 20 20 20 | 20 20 20 20 20 20 7d 0a |k++;. | }.|
|00002130| 20 20 20 20 20 20 20 20 | 20 72 6f 6c 6f 66 69 6c | | rolofil|
|00002140| 65 64 61 74 61 5b 6b 5d | 20 3d 20 27 5c 30 27 3b |edata[k]| = '\0';|
|00002150| 0a 20 20 20 20 20 20 20 | 20 20 6f 74 68 65 72 5f |. | other_|
|00002160| 70 6f 69 6e 74 65 72 73 | 5b 69 5d 20 3d 20 6e 65 |pointers|[i] = ne|
|00002170| 78 74 5f 6f 74 68 65 72 | 3b 0a 20 20 20 20 20 20 |xt_other|;. |
|00002180| 20 20 20 6b 2b 2b 3b 0a | 20 20 20 20 20 7d 0a 0a | k++;.| }..|
|00002190| 20 20 20 20 20 2f 2a 20 | 69 6e 73 65 72 74 20 74 | /* |insert t|
|000021a0| 68 65 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 |he point|er to th|
|000021b0| 69 73 20 63 68 61 72 61 | 63 74 65 72 20 61 72 72 |is chara|cter arr|
|000021c0| 61 79 20 69 6e 74 6f 20 | 74 68 65 20 64 61 74 61 |ay into |the data|
|000021d0| 20 65 6e 74 72 79 20 2a | 2f 0a 0a 20 20 20 20 20 | entry *|/.. |
|000021e0| 6e 65 77 65 6e 74 72 79 | 20 2d 3e 20 6f 74 68 65 |newentry| -> othe|
|000021f0| 72 5f 66 69 65 6c 64 73 | 20 3d 20 6f 74 68 65 72 |r_fields| = other|
|00002200| 5f 70 6f 69 6e 74 65 72 | 73 3b 0a 0a 20 20 7d 0a |_pointer|s;.. }.|
|00002210| 0a 20 20 2f 2a 20 63 68 | 65 63 6b 20 74 68 61 74 |. /* ch|eck that|
|00002220| 20 61 6c 6c 20 74 68 65 | 20 65 6e 74 72 69 65 73 | all the| entries|
|00002230| 20 61 72 65 20 69 6e 20 | 61 6c 70 68 61 62 65 74 | are in |alphabet|
|00002240| 69 63 61 6c 20 6f 72 64 | 65 72 20 62 79 20 6e 61 |ical ord|er by na|
|00002250| 6d 65 20 2a 2f 0a 20 20 | 0a 20 20 77 61 72 6e 69 |me */. |. warni|
|00002260| 6e 67 5f 67 69 76 65 6e | 20 3d 20 30 3b 0a 20 20 |ng_given| = 0;. |
|00002270| 72 70 74 72 20 3d 20 67 | 65 74 5f 6e 65 78 74 5f |rptr = g|et_next_|
|00002280| 6c 69 6e 6b 28 42 65 67 | 69 6e 5f 52 6c 69 73 74 |link(Beg|in_Rlist|
|00002290| 29 3b 0a 20 20 77 68 69 | 6c 65 20 28 72 70 74 72 |);. whi|le (rptr|
|000022a0| 20 21 3d 20 30 29 20 7b | 0a 20 20 20 20 69 66 20 | != 0) {|. if |
|000022b0| 28 31 20 3d 3d 20 63 6f | 6d 70 61 72 65 5f 6c 69 |(1 == co|mpare_li|
|000022c0| 6e 6b 73 28 67 65 74 5f | 70 72 65 76 5f 6c 69 6e |nks(get_|prev_lin|
|000022d0| 6b 28 72 70 74 72 29 2c | 72 70 74 72 29 29 20 7b |k(rptr),|rptr)) {|
|000022e0| 0a 20 20 20 20 20 20 20 | 69 66 20 28 21 77 61 72 |. |if (!war|
|000022f0| 6e 69 6e 67 5f 67 69 76 | 65 6e 29 20 66 70 72 69 |ning_giv|en) fpri|
|00002300| 6e 74 66 28 73 74 64 65 | 72 72 2c 22 57 61 72 6e |ntf(stde|rr,"Warn|
|00002310| 69 6e 67 2c 20 72 6f 6c | 6f 64 65 78 20 6f 75 74 |ing, rol|odex out|
|00002320| 20 6f 66 20 6f 72 64 65 | 72 5c 6e 22 29 3b 0a 20 | of orde|r\n");. |
|00002330| 20 20 20 20 20 20 77 61 | 72 6e 69 6e 67 5f 67 69 | wa|rning_gi|
|00002340| 76 65 6e 20 3d 20 31 3b | 0a 20 20 20 20 20 20 20 |ven = 1;|. |
|00002350| 72 65 6f 72 64 65 72 5f | 66 69 6c 65 20 3d 20 31 |reorder_|file = 1|
|00002360| 3b 0a 20 20 20 20 7d 0a | 20 20 20 20 72 70 74 72 |;. }.| rptr|
|00002370| 20 3d 20 67 65 74 5f 6e | 65 78 74 5f 6c 69 6e 6b | = get_n|ext_link|
|00002380| 28 72 70 74 72 29 3b 0a | 20 20 7d 20 20 20 20 0a |(rptr);.| } .|
|00002390| 20 20 20 20 0a 20 20 72 | 65 74 75 72 6e 28 6e 5f | . r|eturn(n_|
|000023a0| 65 6e 74 72 69 65 73 29 | 3b 0a 20 20 0a 7d 0a 0a |entries)|;. .}..|
|000023b0| 0a 77 72 69 74 65 5f 72 | 6f 6c 6f 5f 6c 69 73 74 |.write_r|olo_list|
|000023c0| 20 28 66 70 29 20 46 49 | 4c 45 20 2a 66 70 3b 20 | (fp) FI|LE *fp; |
|000023d0| 0a 0a 2f 2a 20 77 72 69 | 74 65 20 74 68 65 20 65 |../* wri|te the e|
|000023e0| 6e 74 69 72 65 20 69 6e | 2d 63 6f 72 65 20 72 6f |ntire in|-core ro|
|000023f0| 6c 6f 64 65 78 20 74 6f | 20 61 20 66 69 6c 65 20 |lodex to| a file |
|00002400| 2a 2f 0a 0a 7b 0a 0a 20 | 20 50 74 72 5f 52 6f 6c |*/..{.. | Ptr_Rol|
|00002410| 6f 5f 4c 69 73 74 20 72 | 70 74 72 3b 0a 20 20 50 |o_List r|ptr;. P|
|00002420| 74 72 5f 52 6f 6c 6f 5f | 45 6e 74 72 79 20 65 6e |tr_Rolo_|Entry en|
|00002430| 74 72 79 3b 0a 20 20 69 | 6e 74 20 6a 3b 0a 0a 20 |try;. i|nt j;.. |
|00002440| 20 72 70 74 72 20 3d 20 | 42 65 67 69 6e 5f 52 6c | rptr = |Begin_Rl|
|00002450| 69 73 74 3b 0a 0a 20 20 | 77 68 69 6c 65 20 28 72 |ist;.. |while (r|
|00002460| 70 74 72 20 21 3d 20 30 | 29 20 7b 0a 20 20 20 20 |ptr != 0|) {. |
|00002470| 65 6e 74 72 79 20 3d 20 | 67 65 74 5f 65 6e 74 72 |entry = |get_entr|
|00002480| 79 28 72 70 74 72 29 3b | 0a 20 20 20 20 66 6f 72 |y(rptr);|. for|
|00002490| 20 28 6a 20 3d 20 30 3b | 20 6a 20 3c 20 4e 5f 42 | (j = 0;| j < N_B|
|000024a0| 41 53 49 43 5f 46 49 45 | 4c 44 53 3b 20 6a 2b 2b |ASIC_FIE|LDS; j++|
|000024b0| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 66 70 72 69 |) {. | fpri|
|000024c0| 6e 74 66 28 66 70 2c 22 | 25 73 5c 6e 22 2c 67 65 |ntf(fp,"|%s\n",ge|
|000024d0| 74 5f 62 61 73 69 63 5f | 72 6f 6c 6f 5f 66 69 65 |t_basic_|rolo_fie|
|000024e0| 6c 64 28 6a 2c 65 6e 74 | 72 79 29 29 3b 0a 20 20 |ld(j,ent|ry));. |
|000024f0| 20 20 7d 0a 20 20 20 20 | 66 6f 72 20 28 6a 20 3d | }. |for (j =|
|00002500| 20 30 3b 20 6a 20 3c 20 | 67 65 74 5f 6e 5f 6f 74 | 0; j < |get_n_ot|
|00002510| 68 65 72 73 28 65 6e 74 | 72 79 29 3b 20 6a 2b 2b |hers(ent|ry); j++|
|00002520| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 66 70 72 69 |) {. | fpri|
|00002530| 6e 74 66 28 66 70 2c 22 | 25 73 5c 6e 22 2c 67 65 |ntf(fp,"|%s\n",ge|
|00002540| 74 5f 6f 74 68 65 72 5f | 66 69 65 6c 64 28 6a 2c |t_other_|field(j,|
|00002550| 65 6e 74 72 79 29 29 3b | 0a 20 20 20 20 7d 0a 20 |entry));|. }. |
|00002560| 20 20 20 66 70 72 69 6e | 74 66 28 66 70 2c 22 5c | fprin|tf(fp,"\|
|00002570| 6e 22 29 3b 0a 20 20 20 | 20 72 70 74 72 20 3d 20 |n");. | rptr = |
|00002580| 67 65 74 5f 6e 65 78 74 | 5f 6c 69 6e 6b 28 72 70 |get_next|_link(rp|
|00002590| 74 72 29 3b 0a 20 20 7d | 0a 0a 7d 0a 0a 0a 77 72 |tr);. }|..}...wr|
|000025a0| 69 74 65 5f 72 6f 6c 6f | 20 28 66 70 31 2c 66 70 |ite_rolo| (fp1,fp|
|000025b0| 32 29 20 46 49 4c 45 20 | 2a 66 70 31 3b 20 46 49 |2) FILE |*fp1; FI|
|000025c0| 4c 45 20 2a 66 70 32 3b | 0a 0a 7b 0a 20 20 77 72 |LE *fp2;|..{. wr|
|000025d0| 69 74 65 5f 72 6f 6c 6f | 5f 6c 69 73 74 28 66 70 |ite_rolo|_list(fp|
|000025e0| 31 29 3b 0a 20 20 77 72 | 69 74 65 5f 72 6f 6c 6f |1);. wr|ite_rolo|
|000025f0| 5f 6c 69 73 74 28 66 70 | 32 29 3b 0a 7d 0a 0a 0a |_list(fp|2);.}...|
|00002600| 64 69 73 70 6c 61 79 5f | 62 61 73 69 63 5f 66 69 |display_|basic_fi|
|00002610| 65 6c 64 20 28 6e 61 6d | 65 2c 76 61 6c 75 65 2c |eld (nam|e,value,|
|00002620| 73 68 6f 77 2c 75 70 29 | 20 63 68 61 72 20 2a 6e |show,up)| char *n|
|00002630| 61 6d 65 3b 20 63 68 61 | 72 20 2a 76 61 6c 75 65 |ame; cha|r *value|
|00002640| 3b 20 69 6e 74 20 73 68 | 6f 77 2c 75 70 3b 0a 7b |; int sh|ow,up;.{|
|00002650| 0a 20 20 69 6e 74 20 73 | 65 6d 69 20 3d 20 30 3b |. int s|emi = 0;|
|00002660| 20 20 20 20 20 20 20 20 | 0a 20 20 69 6e 74 20 69 | |. int i|
|00002670| 3b 0a 20 20 69 66 20 28 | 61 6c 6c 5f 77 68 69 74 |;. if (|all_whit|
|00002680| 65 73 70 61 63 65 28 76 | 61 6c 75 65 29 20 26 26 |espace(v|alue) &&|
|00002690| 20 21 73 68 6f 77 29 20 | 72 65 74 75 72 6e 3b 0a | !show) |return;.|
|000026a0| 20 20 70 72 69 6e 74 66 | 28 22 25 2d 32 35 73 22 | printf|("%-25s"|
|000026b0| 2c 6e 61 6d 65 29 3b 0a | 20 20 77 68 69 6c 65 20 |,name);.| while |
|000026c0| 28 2a 76 61 6c 75 65 20 | 21 3d 20 27 5c 30 27 29 |(*value |!= '\0')|
|000026d0| 20 7b 0a 20 20 20 20 69 | 66 20 28 2a 76 61 6c 75 | {. i|f (*valu|
|000026e0| 65 20 3d 3d 20 27 3b 27 | 29 20 7b 0a 20 20 20 20 |e == ';'|) {. |
|000026f0| 20 20 20 77 68 69 6c 65 | 20 28 2a 2b 2b 76 61 6c | while| (*++val|
|00002700| 75 65 20 3d 3d 20 27 20 | 27 29 3b 20 0a 20 20 20 |ue == ' |'); . |
|00002710| 20 20 20 20 70 75 74 63 | 68 61 72 28 27 5c 6e 27 | putc|har('\n'|
|00002720| 29 3b 0a 20 20 20 20 20 | 20 20 66 6f 72 20 28 69 |);. | for (i|
|00002730| 20 3d 20 30 3b 20 69 20 | 3c 20 28 75 70 20 3f 20 | = 0; i |< (up ? |
|00002740| 32 38 20 3a 20 32 35 29 | 3b 20 69 2b 2b 29 20 70 |28 : 25)|; i++) p|
|00002750| 75 74 63 68 61 72 28 27 | 20 27 29 3b 0a 20 20 20 |utchar('| ');. |
|00002760| 20 20 20 20 73 65 6d 69 | 20 3d 20 31 3b 0a 20 20 | semi| = 1;. |
|00002770| 20 20 7d 0a 20 20 20 20 | 65 6c 73 65 20 7b 0a 20 | }. |else {. |
|00002780| 20 20 20 20 20 20 73 65 | 6d 69 20 3d 20 30 3b 0a | se|mi = 0;.|
|00002790| 20 20 20 20 20 20 20 70 | 75 74 63 68 61 72 28 2a | p|utchar(*|
|000027a0| 76 61 6c 75 65 2b 2b 29 | 3b 0a 20 20 20 20 7d 0a |value++)|;. }.|
|000027b0| 20 20 7d 0a 20 20 70 75 | 74 63 68 61 72 28 27 5c | }. pu|tchar('\|
|000027c0| 6e 27 29 3b 0a 7d 0a 0a | 0a 64 69 73 70 6c 61 79 |n');.}..|.display|
|000027d0| 5f 6f 74 68 65 72 5f 66 | 69 65 6c 64 20 28 66 69 |_other_f|ield (fi|
|000027e0| 65 6c 64 73 74 72 69 6e | 67 29 20 63 68 61 72 20 |eldstrin|g) char |
|000027f0| 2a 66 69 65 6c 64 73 74 | 72 69 6e 67 3b 0a 7b 0a |*fieldst|ring;.{.|
|00002800| 20 20 69 6e 74 20 61 6c | 72 65 61 64 79 5f 70 75 | int al|ready_pu|
|00002810| 74 5f 73 65 70 20 3d 20 | 30 3b 20 20 20 20 20 20 |t_sep = |0; |
|00002820| 20 20 0a 20 20 69 6e 74 | 20 63 6f 75 6e 74 20 3d | . int| count =|
|00002830| 20 30 3b 0a 20 20 69 6e | 74 20 69 3b 0a 20 20 77 | 0;. in|t i;. w|
|00002840| 68 69 6c 65 20 28 2a 66 | 69 65 6c 64 73 74 72 69 |hile (*f|ieldstri|
|00002850| 6e 67 20 21 3d 20 27 5c | 30 27 29 20 7b 0a 20 20 |ng != '\|0') {. |
|00002860| 20 20 69 66 20 28 2a 66 | 69 65 6c 64 73 74 72 69 | if (*f|ieldstri|
|00002870| 6e 67 20 3d 3d 20 27 3b | 27 20 26 26 20 61 6c 72 |ng == ';|' && alr|
|00002880| 65 61 64 79 5f 70 75 74 | 5f 73 65 70 29 20 7b 0a |eady_put|_sep) {.|
|00002890| 20 20 20 20 20 20 20 77 | 68 69 6c 65 20 28 2a 2b | w|hile (*+|
|000028a0| 2b 66 69 65 6c 64 73 74 | 72 69 6e 67 20 3d 3d 20 |+fieldst|ring == |
|000028b0| 27 20 27 29 3b 0a 20 20 | 20 20 20 20 20 70 75 74 |' ');. | put|
|000028c0| 63 68 61 72 28 27 5c 6e | 27 29 3b 0a 20 20 20 20 |char('\n|');. |
|000028d0| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 30 3b 20 69 | for (|i = 0; i|
|000028e0| 20 3c 20 32 35 3b 20 69 | 2b 2b 29 20 70 75 74 63 | < 25; i|++) putc|
|000028f0| 68 61 72 28 27 20 27 29 | 3b 0a 20 20 20 20 20 20 |har(' ')|;. |
|00002900| 20 63 6f 6e 74 69 6e 75 | 65 3b 0a 20 20 20 20 7d | continu|e;. }|
|00002910| 0a 20 20 20 20 70 75 74 | 63 68 61 72 28 2a 66 69 |. put|char(*fi|
|00002920| 65 6c 64 73 74 72 69 6e | 67 29 3b 0a 20 20 20 20 |eldstrin|g);. |
|00002930| 63 6f 75 6e 74 2b 2b 3b | 0a 20 20 20 20 69 66 20 |count++;|. if |
|00002940| 28 2a 66 69 65 6c 64 73 | 74 72 69 6e 67 20 3d 3d |(*fields|tring ==|
|00002950| 20 27 3a 27 20 26 26 20 | 21 61 6c 72 65 61 64 79 | ':' && |!already|
|00002960| 5f 70 75 74 5f 73 65 70 | 29 20 7b 0a 20 20 20 20 |_put_sep|) {. |
|00002970| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 63 6f 75 6e | for (|i = coun|
|00002980| 74 3b 20 69 20 3c 20 32 | 34 3b 20 69 2b 2b 29 20 |t; i < 2|4; i++) |
|00002990| 70 75 74 63 68 61 72 28 | 27 20 27 29 3b 0a 20 20 |putchar(|' ');. |
|000029a0| 20 20 20 20 20 61 6c 72 | 65 61 64 79 5f 70 75 74 | alr|eady_put|
|000029b0| 5f 73 65 70 20 3d 20 31 | 3b 0a 20 20 20 20 7d 0a |_sep = 1|;. }.|
|000029c0| 20 20 20 20 66 69 65 6c | 64 73 74 72 69 6e 67 2b | fiel|dstring+|
|000029d0| 2b 3b 0a 20 20 7d 0a 20 | 20 70 75 74 63 68 61 72 |+;. }. | putchar|
|000029e0| 28 27 5c 6e 27 29 3b 0a | 7d 0a 0a 0a 73 75 6d 6d |('\n');.|}...summ|
|000029f0| 61 72 69 7a 65 5f 65 6e | 74 72 79 5f 6c 69 73 74 |arize_en|try_list|
|00002a00| 20 28 72 6c 69 73 74 2c | 73 73 29 20 50 74 72 5f | (rlist,|ss) Ptr_|
|00002a10| 52 6f 6c 6f 5f 4c 69 73 | 74 20 72 6c 69 73 74 3b |Rolo_Lis|t rlist;|
|00002a20| 20 63 68 61 72 20 2a 73 | 73 3b 0a 0a 2f 2a 20 70 | char *s|s;../* p|
|00002a30| 72 69 6e 74 20 6f 75 74 | 20 74 68 65 20 4e 61 6d |rint out| the Nam|
|00002a40| 65 20 66 69 65 6c 64 20 | 66 6f 72 20 65 61 63 68 |e field |for each|
|00002a50| 20 65 6e 74 72 79 20 74 | 68 61 74 20 69 73 20 74 | entry t|hat is t|
|00002a60| 61 67 67 65 64 20 61 73 | 20 6d 61 74 63 68 65 64 |agged as| matched|
|00002a70| 20 2a 2f 0a 2f 2a 20 61 | 6e 64 20 6e 75 6d 62 65 | */./* a|nd numbe|
|00002a80| 72 20 65 61 63 68 20 65 | 6e 74 72 79 2e 20 2a 2f |r each e|ntry. */|
|00002a90| 0a 0a 7b 0a 20 20 69 6e | 74 20 63 6f 75 6e 74 20 |..{. in|t count |
|00002aa0| 3d 20 31 3b 0a 20 20 63 | 6c 65 61 72 5f 74 68 65 |= 1;. c|lear_the|
|00002ab0| 5f 73 63 72 65 65 6e 28 | 29 3b 0a 20 20 70 72 69 |_screen(|);. pri|
|00002ac0| 6e 74 66 28 22 45 6e 74 | 72 69 65 73 20 74 68 61 |ntf("Ent|ries tha|
|00002ad0| 74 20 6d 61 74 63 68 20 | 27 25 73 27 20 3a 5c 6e |t match |'%s' :\n|
|00002ae0| 5c 6e 22 2c 73 73 29 3b | 0a 20 20 77 68 69 6c 65 |\n",ss);|. while|
|00002af0| 20 28 72 6c 69 73 74 20 | 21 3d 20 30 29 20 7b 0a | (rlist |!= 0) {.|
|00002b00| 20 20 20 20 69 66 20 28 | 67 65 74 5f 6d 61 74 63 | if (|get_matc|
|00002b10| 68 65 64 28 72 6c 69 73 | 74 29 29 20 7b 0a 20 20 |hed(rlis|t)) {. |
|00002b20| 20 20 20 20 20 70 72 69 | 6e 74 66 20 28 0a 20 20 | pri|ntf (. |
|00002b30| 20 20 20 20 20 20 20 20 | 22 25 64 2e 20 5c 74 25 | |"%d. \t%|
|00002b40| 73 5c 6e 22 2c 0a 20 20 | 20 20 20 20 20 20 20 20 |s\n",. | |
|00002b50| 63 6f 75 6e 74 2b 2b 2c | 0a 20 20 20 20 20 20 20 |count++,|. |
|00002b60| 20 20 20 67 65 74 5f 62 | 61 73 69 63 5f 72 6f 6c | get_b|asic_rol|
|00002b70| 6f 5f 66 69 65 6c 64 28 | 28 69 6e 74 29 20 52 5f |o_field(|(int) R_|
|00002b80| 4e 41 4d 45 2c 67 65 74 | 5f 65 6e 74 72 79 28 72 |NAME,get|_entry(r|
|00002b90| 6c 69 73 74 29 29 0a 20 | 20 20 20 20 20 20 29 3b |list)). | );|
|00002ba0| 0a 20 20 20 20 7d 0a 20 | 20 20 20 72 6c 69 73 74 |. }. | rlist|
|00002bb0| 20 3d 20 67 65 74 5f 6e | 65 78 74 5f 6c 69 6e 6b | = get_n|ext_link|
|00002bc0| 28 72 6c 69 73 74 29 3b | 20 20 20 20 0a 20 20 7d |(rlist);| . }|
|00002bd0| 0a 20 20 70 75 74 63 68 | 61 72 28 27 5c 6e 27 29 |. putch|ar('\n')|
|00002be0| 3b 0a 7d 0a 0a 0a 64 69 | 73 70 6c 61 79 5f 66 69 |;.}...di|splay_fi|
|00002bf0| 65 6c 64 5f 6e 61 6d 65 | 73 20 28 29 0a 0a 2f 2a |eld_name|s ()../*|
|00002c00| 20 64 69 73 70 6c 61 79 | 20 61 6e 64 20 6e 75 6d | display| and num|
|00002c10| 62 65 72 20 65 61 63 68 | 20 73 74 61 6e 64 61 72 |ber each| standar|
|00002c20| 64 20 66 69 65 6c 64 20 | 6e 61 6d 65 2e 20 2a 2f |d field |name. */|
|00002c30| 0a 0a 7b 0a 20 20 69 6e | 74 20 6a 3b 0a 20 20 63 |..{. in|t j;. c|
|00002c40| 68 61 72 20 2a 6e 61 6d | 65 3b 0a 20 20 63 6c 65 |har *nam|e;. cle|
|00002c50| 61 72 5f 74 68 65 5f 73 | 63 72 65 65 6e 28 29 3b |ar_the_s|creen();|
|00002c60| 0a 20 20 66 6f 72 20 28 | 6a 20 3d 20 30 3b 20 6a |. for (|j = 0; j|
|00002c70| 20 3c 20 4e 5f 42 41 53 | 49 43 5f 46 49 45 4c 44 | < N_BAS|IC_FIELD|
|00002c80| 53 20 2d 20 31 3b 20 6a | 2b 2b 29 20 7b 20 20 20 |S - 1; j|++) { |
|00002c90| 20 20 20 20 20 0a 20 20 | 20 20 20 20 6e 61 6d 65 | . | name|
|00002ca0| 20 3d 20 46 69 65 6c 64 | 5f 4e 61 6d 65 73 5b 6a | = Field|_Names[j|
|00002cb0| 5d 3b 20 20 20 20 20 20 | 20 20 0a 20 20 20 20 20 |]; | . |
|00002cc0| 20 70 72 69 6e 74 66 28 | 22 25 64 2e 20 22 2c 6a | printf(|"%d. ",j|
|00002cd0| 2b 31 29 3b 0a 20 20 20 | 20 20 20 77 68 69 6c 65 |+1);. | while|
|00002ce0| 20 28 2a 6e 61 6d 65 20 | 21 3d 20 27 3a 27 29 20 | (*name |!= ':') |
|00002cf0| 70 75 74 63 68 61 72 28 | 2a 6e 61 6d 65 2b 2b 29 |putchar(|*name++)|
|00002d00| 3b 0a 20 20 20 20 20 20 | 70 75 74 63 68 61 72 28 |;. |putchar(|
|00002d10| 27 5c 6e 27 29 3b 0a 20 | 20 7d 0a 20 20 70 72 69 |'\n');. | }. pri|
|00002d20| 6e 74 66 28 22 25 64 2e | 20 22 2c 4e 5f 42 41 53 |ntf("%d.| ",N_BAS|
|00002d30| 49 43 5f 46 49 45 4c 44 | 53 29 3b 0a 20 20 70 72 |IC_FIELD|S);. pr|
|00002d40| 69 6e 74 66 28 22 41 20 | 75 73 65 72 20 63 72 65 |intf("A |user cre|
|00002d50| 61 74 65 64 20 69 74 65 | 6d 20 6e 61 6d 65 5c 6e |ated ite|m name\n|
|00002d60| 5c 6e 22 29 3b 0a 7d 20 | 20 0a 20 20 0a 0a 64 69 |\n");.} | . ..di|
|00002d70| 73 70 6c 61 79 5f 65 6e | 74 72 79 20 28 65 6e 74 |splay_en|try (ent|
|00002d80| 72 79 29 20 50 74 72 5f | 52 6f 6c 6f 5f 45 6e 74 |ry) Ptr_|Rolo_Ent|
|00002d90| 72 79 20 65 6e 74 72 79 | 3b 0a 0a 7b 0a 20 20 69 |ry entry|;..{. i|
|00002da0| 6e 74 20 6a 2c 6e 5f 6f | 74 68 65 72 73 3b 0a 20 |nt j,n_o|thers;. |
|00002db0| 20 63 68 61 72 20 2a 73 | 74 72 69 6e 67 3b 0a 20 | char *s|tring;. |
|00002dc0| 20 0a 20 20 63 6c 65 61 | 72 5f 74 68 65 5f 73 63 | . clea|r_the_sc|
|00002dd0| 72 65 65 6e 28 29 3b 0a | 20 20 0a 20 20 2f 2a 20 |reen();.| . /* |
|00002de0| 64 69 73 70 6c 61 79 20 | 74 68 65 20 73 74 61 6e |display |the stan|
|00002df0| 64 61 72 64 20 66 69 65 | 6c 64 73 20 6f 74 68 65 |dard fie|lds othe|
|00002e00| 72 20 74 68 61 6e 20 44 | 61 74 65 20 55 70 64 61 |r than D|ate Upda|
|00002e10| 74 65 64 20 2a 2f 0a 20 | 20 0a 20 20 66 6f 72 20 |ted */. | . for |
|00002e20| 28 6a 20 3d 20 30 3b 20 | 6a 20 3c 20 4e 5f 42 41 |(j = 0; |j < N_BA|
|00002e30| 53 49 43 5f 46 49 45 4c | 44 53 20 2d 20 31 3b 20 |SIC_FIEL|DS - 1; |
|00002e40| 6a 2b 2b 29 20 7b 0a 20 | 20 20 20 20 20 73 74 72 |j++) {. | str|
|00002e50| 69 6e 67 20 3d 20 67 65 | 74 5f 62 61 73 69 63 5f |ing = ge|t_basic_|
|00002e60| 72 6f 6c 6f 5f 66 69 65 | 6c 64 28 6a 2c 65 6e 74 |rolo_fie|ld(j,ent|
|00002e70| 72 79 29 3b 0a 20 20 20 | 20 20 20 64 69 73 70 6c |ry);. | displ|
|00002e80| 61 79 5f 62 61 73 69 63 | 5f 66 69 65 6c 64 28 46 |ay_basic|_field(F|
|00002e90| 69 65 6c 64 5f 4e 61 6d | 65 73 5b 6a 5d 2c 73 74 |ield_Nam|es[j],st|
|00002ea0| 72 69 6e 67 2c 30 2c 30 | 29 3b 0a 20 20 7d 20 20 |ring,0,0|);. } |
|00002eb0| 20 20 20 20 20 20 0a 20 | 20 20 20 20 20 0a 20 20 | . | . |
|00002ec0| 2f 2a 20 64 69 73 70 6c | 61 79 20 61 6e 79 20 61 |/* displ|ay any a|
|00002ed0| 64 64 69 74 69 6f 6e 61 | 6c 20 66 69 65 6c 64 73 |dditiona|l fields|
|00002ee0| 20 74 68 65 20 75 73 65 | 72 20 68 61 73 20 64 65 | the use|r has de|
|00002ef0| 66 69 6e 65 64 20 66 6f | 72 20 74 68 69 73 20 65 |fined fo|r this e|
|00002f00| 6e 74 72 79 20 2a 2f 0a | 20 20 0a 20 20 6e 5f 6f |ntry */.| . n_o|
|00002f10| 74 68 65 72 73 20 3d 20 | 67 65 74 5f 6e 5f 6f 74 |thers = |get_n_ot|
|00002f20| 68 65 72 73 28 65 6e 74 | 72 79 29 3b 0a 20 20 66 |hers(ent|ry);. f|
|00002f30| 6f 72 20 28 6a 20 3d 20 | 30 3b 20 6a 20 3c 20 6e |or (j = |0; j < n|
|00002f40| 5f 6f 74 68 65 72 73 3b | 20 6a 2b 2b 29 20 7b 0a |_others;| j++) {.|
|00002f50| 20 20 20 20 20 20 73 74 | 72 69 6e 67 20 3d 20 67 | st|ring = g|
|00002f60| 65 74 5f 6f 74 68 65 72 | 5f 66 69 65 6c 64 28 6a |et_other|_field(j|
|00002f70| 2c 65 6e 74 72 79 29 3b | 0a 20 20 20 20 20 20 64 |,entry);|. d|
|00002f80| 69 73 70 6c 61 79 5f 6f | 74 68 65 72 5f 66 69 65 |isplay_o|ther_fie|
|00002f90| 6c 64 28 73 74 72 69 6e | 67 29 3b 0a 20 20 20 7d |ld(strin|g);. }|
|00002fa0| 0a 0a 20 20 20 2f 2a 20 | 64 69 73 70 6c 61 79 20 |.. /* |display |
|00002fb0| 74 68 65 20 44 61 74 65 | 20 55 70 64 61 74 65 64 |the Date| Updated|
|00002fc0| 20 66 69 65 6c 64 20 2a | 2f 0a 20 20 20 0a 20 20 | field *|/. . |
|00002fd0| 20 6a 20 3d 20 4e 5f 42 | 41 53 49 43 5f 46 49 45 | j = N_B|ASIC_FIE|
|00002fe0| 4c 44 53 20 2d 20 31 3b | 0a 20 20 20 64 69 73 70 |LDS - 1;|. disp|
|00002ff0| 6c 61 79 5f 62 61 73 69 | 63 5f 66 69 65 6c 64 28 |lay_basi|c_field(|
|00003000| 46 69 65 6c 64 5f 4e 61 | 6d 65 73 5b 6a 5d 2c 67 |Field_Na|mes[j],g|
|00003010| 65 74 5f 62 61 73 69 63 | 5f 72 6f 6c 6f 5f 66 69 |et_basic|_rolo_fi|
|00003020| 65 6c 64 28 6a 2c 65 6e | 74 72 79 29 2c 30 2c 30 |eld(j,en|try),0,0|
|00003030| 29 3b 0a 20 20 20 66 70 | 72 69 6e 74 66 28 73 74 |);. fp|rintf(st|
|00003040| 64 6f 75 74 2c 22 5c 6e | 22 29 3b 0a 0a 7d 0a 0a |dout,"\n|");..}..|
|00003050| 0a 64 69 73 70 6c 61 79 | 5f 65 6e 74 72 79 5f 66 |.display|_entry_f|
|00003060| 6f 72 5f 75 70 64 61 74 | 65 20 28 65 6e 74 72 79 |or_updat|e (entry|
|00003070| 29 20 50 74 72 5f 52 6f | 6c 6f 5f 45 6e 74 72 79 |) Ptr_Ro|lo_Entry|
|00003080| 20 65 6e 74 72 79 3b 0a | 0a 2f 2a 20 73 61 6d 65 | entry;.|./* same|
|00003090| 20 61 73 20 64 69 73 70 | 6c 61 79 5f 65 6e 74 72 | as disp|lay_entr|
|000030a0| 79 2c 20 65 78 63 65 70 | 74 20 65 61 63 68 20 69 |y, excep|t each i|
|000030b0| 74 65 6d 20 69 73 20 6e | 75 6d 62 65 72 65 64 20 |tem is n|umbered |
|000030c0| 61 6e 64 20 74 68 65 20 | 44 61 74 65 20 55 70 64 |and the |Date Upd|
|000030d0| 61 74 65 64 20 2a 2f 0a | 2f 2a 20 69 74 65 6d 20 |ated */.|/* item |
|000030e0| 69 73 20 6e 6f 74 20 64 | 69 73 70 6c 61 79 65 64 |is not d|isplayed|
|000030f0| 20 2a 2f 0a 0a 7b 0a 20 | 20 69 6e 74 20 6a 2c 6e | */..{. | int j,n|
|00003100| 5f 6f 74 68 65 72 73 3b | 0a 20 20 63 68 61 72 20 |_others;|. char |
|00003110| 2a 73 74 72 69 6e 67 3b | 0a 20 20 69 6e 74 20 63 |*string;|. int c|
|00003120| 6f 75 6e 74 20 3d 20 31 | 3b 0a 20 20 0a 20 20 63 |ount = 1|;. . c|
|00003130| 6c 65 61 72 5f 74 68 65 | 5f 73 63 72 65 65 6e 28 |lear_the|_screen(|
|00003140| 29 3b 0a 20 20 0a 20 20 | 66 6f 72 20 28 6a 20 3d |);. . |for (j =|
|00003150| 20 30 3b 20 6a 20 3c 20 | 4e 5f 42 41 53 49 43 5f | 0; j < |N_BASIC_|
|00003160| 46 49 45 4c 44 53 20 2d | 20 31 3b 20 6a 2b 2b 29 |FIELDS -| 1; j++)|
|00003170| 20 7b 0a 20 20 20 20 20 | 20 73 74 72 69 6e 67 20 | {. | string |
|00003180| 3d 20 67 65 74 5f 62 61 | 73 69 63 5f 72 6f 6c 6f |= get_ba|sic_rolo|
|00003190| 5f 66 69 65 6c 64 28 6a | 2c 65 6e 74 72 79 29 3b |_field(j|,entry);|
|000031a0| 0a 20 20 20 20 20 20 70 | 72 69 6e 74 66 28 22 25 |. p|rintf("%|
|000031b0| 64 2e 20 22 2c 63 6f 75 | 6e 74 2b 2b 29 3b 0a 20 |d. ",cou|nt++);. |
|000031c0| 20 20 20 20 20 64 69 73 | 70 6c 61 79 5f 62 61 73 | dis|play_bas|
|000031d0| 69 63 5f 66 69 65 6c 64 | 28 46 69 65 6c 64 5f 4e |ic_field|(Field_N|
|000031e0| 61 6d 65 73 5b 6a 5d 2c | 73 74 72 69 6e 67 2c 31 |ames[j],|string,1|
|000031f0| 2c 31 29 3b 0a 20 20 7d | 20 20 20 20 20 20 20 20 |,1);. }| |
|00003200| 0a 20 20 20 20 20 20 0a | 20 20 6e 5f 6f 74 68 65 |. .| n_othe|
|00003210| 72 73 20 3d 20 67 65 74 | 5f 6e 5f 6f 74 68 65 72 |rs = get|_n_other|
|00003220| 73 28 65 6e 74 72 79 29 | 3b 0a 20 20 66 6f 72 20 |s(entry)|;. for |
|00003230| 28 6a 20 3d 20 30 3b 20 | 6a 20 3c 20 6e 5f 6f 74 |(j = 0; |j < n_ot|
|00003240| 68 65 72 73 3b 20 6a 2b | 2b 29 20 7b 0a 20 20 20 |hers; j+|+) {. |
|00003250| 20 20 20 73 74 72 69 6e | 67 20 3d 20 67 65 74 5f | strin|g = get_|
|00003260| 6f 74 68 65 72 5f 66 69 | 65 6c 64 28 6a 2c 65 6e |other_fi|eld(j,en|
|00003270| 74 72 79 29 3b 0a 20 20 | 20 20 20 20 70 72 69 6e |try);. | prin|
|00003280| 74 66 28 22 25 64 2e 20 | 22 2c 63 6f 75 6e 74 2b |tf("%d. |",count+|
|00003290| 2b 29 3b 0a 20 20 20 20 | 20 20 64 69 73 70 6c 61 |+);. | displa|
|000032a0| 79 5f 6f 74 68 65 72 5f | 66 69 65 6c 64 28 73 74 |y_other_|field(st|
|000032b0| 72 69 6e 67 29 3b 0a 20 | 20 7d 0a 20 20 0a 20 20 |ring);. | }. . |
|000032c0| 70 72 69 6e 74 66 28 22 | 25 64 2e 20 41 64 64 20 |printf("|%d. Add |
|000032d0| 61 20 6e 65 77 20 75 73 | 65 72 20 64 65 66 69 6e |a new us|er defin|
|000032e0| 65 64 20 66 69 65 6c 64 | 5c 6e 22 2c 63 6f 75 6e |ed field|\n",coun|
|000032f0| 74 29 3b 0a 0a 20 20 66 | 70 72 69 6e 74 66 28 73 |t);.. f|printf(s|
|00003300| 74 64 6f 75 74 2c 22 5c | 6e 22 29 3b 0a 0a 7d 0a |tdout,"\|n");..}.|
|00003310| 0a 0a 69 6e 74 20 63 61 | 74 68 65 6c 70 66 69 6c |..int ca|thelpfil|
|00003320| 65 20 28 66 69 6c 65 70 | 61 74 68 2c 68 65 6c 70 |e (filep|ath,help|
|00003330| 74 6f 70 69 63 2c 63 6c | 65 61 72 29 20 0a 0a 20 |topic,cl|ear) .. |
|00003340| 20 63 68 61 72 20 2a 66 | 69 6c 65 70 61 74 68 2c | char *f|ilepath,|
|00003350| 20 2a 68 65 6c 70 74 6f | 70 69 63 3b 20 0a 20 20 | *helpto|pic; . |
|00003360| 69 6e 74 20 63 6c 65 61 | 72 3b 0a 0a 7b 0a 20 20 |int clea|r;..{. |
|00003370| 46 49 4c 45 20 2a 66 70 | 3b 20 20 20 20 20 20 20 |FILE *fp|; |
|00003380| 20 20 20 0a 20 20 63 68 | 61 72 20 62 75 66 66 65 | . ch|ar buffe|
|00003390| 72 5b 4d 41 58 4c 49 4e | 45 4c 45 4e 5d 3b 0a 20 |r[MAXLIN|ELEN];. |
|000033a0| 20 69 66 20 28 63 6c 65 | 61 72 29 20 63 6c 65 61 | if (cle|ar) clea|
|000033b0| 72 5f 74 68 65 5f 73 63 | 72 65 65 6e 28 29 3b 0a |r_the_sc|reen();.|
|000033c0| 20 20 69 66 20 28 4e 55 | 4c 4c 20 3d 3d 20 28 66 | if (NU|LL == (f|
|000033d0| 70 20 3d 20 66 6f 70 65 | 6e 28 66 69 6c 65 70 61 |p = fope|n(filepa|
|000033e0| 74 68 2c 22 72 22 29 29 | 29 20 7b 0a 20 20 20 20 |th,"r"))|) {. |
|000033f0| 20 69 66 20 28 68 65 6c | 70 74 6f 70 69 63 29 20 | if (hel|ptopic) |
|00003400| 7b 0a 20 20 20 20 20 20 | 20 20 70 72 69 6e 74 66 |{. | printf|
|00003410| 28 22 4e 6f 20 68 65 6c | 70 20 61 76 61 69 6c 61 |("No hel|p availa|
|00003420| 62 6c 65 20 6f 6e 20 25 | 73 2c 20 73 6f 72 72 79 |ble on %|s, sorry|
|00003430| 2e 5c 6e 5c 6e 22 2c 68 | 65 6c 70 74 6f 70 69 63 |.\n\n",h|elptopic|
|00003440| 29 3b 20 0a 20 20 20 20 | 20 7d 0a 20 20 20 20 20 |); . | }. |
|00003450| 65 6c 73 65 20 7b 0a 20 | 20 20 20 20 20 20 20 66 |else {. | f|
|00003460| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 22 46 |printf(s|tderr,"F|
|00003470| 61 74 61 6c 20 65 72 72 | 6f 72 2c 20 63 61 6e 27 |atal err|or, can'|
|00003480| 74 20 6f 70 65 6e 20 25 | 73 5c 6e 22 2c 66 69 6c |t open %|s\n",fil|
|00003490| 65 70 61 74 68 29 3b 0a | 20 20 20 20 20 20 20 20 |epath);.| |
|000034a0| 65 78 69 74 28 2d 31 29 | 3b 0a 20 20 20 20 20 7d |exit(-1)|;. }|
|000034b0| 0a 20 20 20 20 20 72 65 | 74 75 72 6e 3b 0a 20 20 |. re|turn;. |
|000034c0| 7d 0a 20 20 77 68 69 6c | 65 20 28 4e 55 4c 4c 20 |}. whil|e (NULL |
|000034d0| 21 3d 20 66 67 65 74 73 | 28 62 75 66 66 65 72 2c |!= fgets|(buffer,|
|000034e0| 4d 41 58 4c 49 4e 45 4c | 45 4e 2c 66 70 29 29 20 |MAXLINEL|EN,fp)) |
|000034f0| 70 72 69 6e 74 66 28 22 | 25 73 22 2c 62 75 66 66 |printf("|%s",buff|
|00003500| 65 72 29 3b 20 20 0a 20 | 20 70 72 69 6e 74 66 28 |er); . | printf(|
|00003510| 22 5c 6e 22 29 3b 0a 20 | 20 66 63 6c 6f 73 65 28 |"\n");. | fclose(|
|00003520| 66 70 29 3b 0a 20 20 72 | 65 74 75 72 6e 3b 0a 7d |fp);. r|eturn;.}|
|00003530| 0a 0a 0a 61 6e 79 5f 63 | 68 61 72 5f 74 6f 5f 63 |...any_c|har_to_c|
|00003540| 6f 6e 74 69 6e 75 65 20 | 28 29 0a 7b 0a 20 20 63 |ontinue |().{. c|
|00003550| 68 61 72 20 62 75 66 66 | 65 72 5b 38 30 5d 3b 0a |har buff|er[80];.|
|00003560| 20 20 70 72 69 6e 74 66 | 28 22 52 45 54 55 52 4e | printf|("RETURN|
|00003570| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 3a 20 22 29 | to cont|inue: ")|
|00003580| 3b 0a 20 20 66 67 65 74 | 73 28 62 75 66 66 65 72 |;. fget|s(buffer|
|00003590| 2c 38 30 2c 73 74 64 69 | 6e 29 3b 0a 20 20 72 65 |,80,stdi|n);. re|
|000035a0| 74 75 72 6e 3b 0a 7d 0a | 53 48 41 52 5f 45 4f 46 |turn;.}.|SHAR_EOF|
|000035b0| 0a 69 66 20 74 65 73 74 | 20 38 34 35 35 20 2d 6e |.if test| 8455 -n|
|000035c0| 65 20 22 60 77 63 20 2d | 63 20 3c 20 27 69 6f 2e |e "`wc -|c < 'io.|
|000035d0| 63 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |c'`".the|n..echo |
|000035e0| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|000035f0| 73 6d 69 74 74 69 6e 67 | 20 22 27 69 6f 2e 63 27 |smitting| "'io.c'|
|00003600| 22 20 27 28 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |" '(shou|ld have |
|00003610| 62 65 65 6e 20 38 34 35 | 35 20 63 68 61 72 61 63 |been 845|5 charac|
|00003620| 74 65 72 73 29 27 0a 66 | 69 0a 66 69 0a 65 63 68 |ters)'.f|i.fi.ech|
|00003630| 6f 20 73 68 61 72 3a 20 | 65 78 74 72 61 63 74 69 |o shar: |extracti|
|00003640| 6e 67 20 22 27 6d 65 6e | 75 61 75 78 2e 63 27 22 |ng "'men|uaux.c'"|
|00003650| 20 27 28 31 34 33 33 20 | 63 68 61 72 61 63 74 65 | '(1433 |characte|
|00003660| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|00003670| 27 6d 65 6e 75 61 75 78 | 2e 63 27 0a 74 68 65 6e |'menuaux|.c'.then|
|00003680| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 77 69 6c |..echo s|har: wil|
|00003690| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|000036a0| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 22 | existin|g file "|
|000036b0| 27 6d 65 6e 75 61 75 78 | 2e 63 27 22 0a 65 6c 73 |'menuaux|.c'".els|
|000036c0| 65 0a 63 61 74 20 3c 3c | 20 5c 53 48 41 52 5f 45 |e.cat <<| \SHAR_E|
|000036d0| 4f 46 20 3e 20 27 6d 65 | 6e 75 61 75 78 2e 63 27 |OF > 'me|nuaux.c'|
|000036e0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|000036f0| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 63 74 |.h>.#inc|lude <ct|
|00003700| 79 70 65 2e 68 3e 0a 0a | 23 69 6e 63 6c 75 64 65 |ype.h>..|#include|
|00003710| 20 22 73 79 73 35 2e 68 | 22 0a 0a 23 69 66 64 65 | "sys5.h|"..#ifde|
|00003720| 66 20 54 4d 43 0a 23 69 | 6e 63 6c 75 64 65 20 3c |f TMC.#i|nclude <|
|00003730| 63 74 6f 6f 6c 73 2e 68 | 3e 0a 23 65 6c 73 65 0a |ctools.h|>.#else.|
|00003740| 23 69 6e 63 6c 75 64 65 | 20 22 63 74 6f 6f 6c 73 |#include| "ctools|
|00003750| 2e 68 22 0a 23 65 6e 64 | 69 66 0a 23 69 6e 63 6c |.h".#end|if.#incl|
|00003760| 75 64 65 20 22 61 72 67 | 73 2e 68 22 0a 23 69 6e |ude "arg|s.h".#in|
|00003770| 63 6c 75 64 65 20 22 6d | 65 6e 75 2e 68 22 0a 0a |clude "m|enu.h"..|
|00003780| 23 69 6e 63 6c 75 64 65 | 20 22 72 6f 6c 6f 66 69 |#include| "rolofi|
|00003790| 6c 65 73 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |les.h".#|include |
|000037a0| 22 72 6f 6c 6f 64 65 66 | 73 2e 68 22 0a 23 69 6e |"rolodef|s.h".#in|
|000037b0| 63 6c 75 64 65 20 22 64 | 61 74 61 64 65 66 2e 68 |clude "d|atadef.h|
|000037c0| 22 0a 0a 0a 72 6f 6c 6f | 5f 6d 65 6e 75 5f 79 65 |"...rolo|_menu_ye|
|000037d0| 73 5f 6e 6f 20 28 70 72 | 6f 6d 70 74 2c 72 74 6e |s_no (pr|ompt,rtn|
|000037e0| 5f 64 65 66 61 75 6c 74 | 2c 68 65 6c 70 5f 61 6c |_default|,help_al|
|000037f0| 6c 6f 77 65 64 2c 68 65 | 6c 70 66 69 6c 65 2c 73 |lowed,he|lpfile,s|
|00003800| 75 62 6a 65 63 74 29 0a | 0a 20 20 63 68 61 72 20 |ubject).|. char |
|00003810| 2a 70 72 6f 6d 70 74 3b | 0a 20 20 69 6e 74 20 72 |*prompt;|. int r|
|00003820| 74 6e 5f 64 65 66 61 75 | 6c 74 3b 0a 20 20 69 6e |tn_defau|lt;. in|
|00003830| 74 20 68 65 6c 70 5f 61 | 6c 6c 6f 77 65 64 3b 0a |t help_a|llowed;.|
|00003840| 20 20 63 68 61 72 20 2a | 68 65 6c 70 66 69 6c 65 | char *|helpfile|
|00003850| 2c 20 2a 73 75 62 6a 65 | 63 74 3b 0a 20 20 0a 7b |, *subje|ct;. .{|
|00003860| 0a 20 20 69 6e 74 20 72 | 76 61 6c 3b 0a 20 20 72 |. int r|val;. r|
|00003870| 65 61 73 6b 20 3a 0a 20 | 20 72 76 61 6c 20 3d 20 |eask :. | rval = |
|00003880| 6d 65 6e 75 5f 79 65 73 | 5f 6e 6f 5f 61 62 6f 72 |menu_yes|_no_abor|
|00003890| 74 5f 6f 72 5f 68 65 6c | 70 20 28 0a 20 20 20 20 |t_or_hel|p (. |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 70 72 6f 6d 70 74 | | prompt|
|000038b0| 2c 41 42 4f 52 54 53 54 | 52 49 4e 47 2c 68 65 6c |,ABORTST|RING,hel|
|000038c0| 70 5f 61 6c 6c 6f 77 65 | 64 2c 72 74 6e 5f 64 65 |p_allowe|d,rtn_de|
|000038d0| 66 61 75 6c 74 0a 20 20 | 20 20 20 20 20 20 20 20 |fault. | |
|000038e0| 20 29 3b 0a 20 20 73 77 | 69 74 63 68 20 28 72 76 | );. sw|itch (rv|
|000038f0| 61 6c 29 20 7b 0a 20 20 | 20 20 63 61 73 65 20 4d |al) {. | case M|
|00003900| 45 4e 55 5f 45 4f 46 20 | 3a 0a 20 20 20 20 20 20 |ENU_EOF |:. |
|00003910| 75 73 65 72 5f 65 6f 66 | 28 29 3b 0a 20 20 20 20 |user_eof|();. |
|00003920| 20 20 62 72 65 61 6b 3b | 0a 20 20 20 20 63 61 73 | break;|. cas|
|00003930| 65 20 4d 45 4e 55 5f 48 | 45 4c 50 20 3a 20 0a 20 |e MENU_H|ELP : . |
|00003940| 20 20 20 20 20 63 61 74 | 68 65 6c 70 66 69 6c 65 | cat|helpfile|
|00003950| 28 6c 69 62 64 69 72 28 | 68 65 6c 70 66 69 6c 65 |(libdir(|helpfile|
|00003960| 29 2c 73 75 62 6a 65 63 | 74 2c 31 29 3b 0a 20 20 |),subjec|t,1);. |
|00003970| 20 20 20 20 67 6f 74 6f | 20 72 65 61 73 6b 3b 0a | goto| reask;.|
|00003980| 20 20 20 20 20 20 62 72 | 65 61 6b 3b 0a 20 20 20 | br|eak;. |
|00003990| 20 64 65 66 61 75 6c 74 | 20 3a 0a 20 20 20 20 20 | default| :. |
|000039a0| 20 72 65 74 75 72 6e 28 | 72 76 61 6c 29 3b 0a 20 | return(|rval);. |
|000039b0| 20 20 20 20 20 62 72 65 | 61 6b 3b 0a 20 20 7d 0a | bre|ak;. }.|
|000039c0| 7d 0a 20 20 0a 0a 72 6f | 6c 6f 5f 6d 65 6e 75 5f |}. ..ro|lo_menu_|
|000039d0| 64 61 74 61 5f 68 65 6c | 70 5f 6f 72 5f 61 62 6f |data_hel|p_or_abo|
|000039e0| 72 74 20 28 70 72 6f 6d | 70 74 2c 68 65 6c 70 66 |rt (prom|pt,helpf|
|000039f0| 69 6c 65 2c 73 75 62 6a | 65 63 74 2c 70 74 72 5f |ile,subj|ect,ptr_|
|00003a00| 72 65 73 70 6f 6e 73 65 | 29 0a 0a 20 20 63 68 61 |response|).. cha|
|00003a10| 72 20 2a 70 72 6f 6d 70 | 74 2c 20 2a 68 65 6c 70 |r *promp|t, *help|
|00003a20| 66 69 6c 65 2c 20 2a 73 | 75 62 6a 65 63 74 3b 0a |file, *s|ubject;.|
|00003a30| 20 20 63 68 61 72 20 2a | 2a 70 74 72 5f 72 65 73 | char *|*ptr_res|
|00003a40| 70 6f 6e 73 65 3b 0a 20 | 20 0a 7b 20 0a 20 20 69 |ponse;. | .{ . i|
|00003a50| 6e 74 20 72 76 61 6c 3b | 0a 20 20 72 65 61 73 6b |nt rval;|. reask|
|00003a60| 20 3a 0a 20 20 72 76 61 | 6c 20 3d 20 6d 65 6e 75 | :. rva|l = menu|
|00003a70| 5f 64 61 74 61 5f 68 65 | 6c 70 5f 6f 72 5f 61 62 |_data_he|lp_or_ab|
|00003a80| 6f 72 74 28 70 72 6f 6d | 70 74 2c 41 42 4f 52 54 |ort(prom|pt,ABORT|
|00003a90| 53 54 52 49 4e 47 2c 70 | 74 72 5f 72 65 73 70 6f |STRING,p|tr_respo|
|00003aa0| 6e 73 65 29 3b 0a 20 20 | 69 66 20 28 72 76 61 6c |nse);. |if (rval|
|00003ab0| 20 3d 3d 20 4d 45 4e 55 | 5f 45 4f 46 29 20 75 73 | == MENU|_EOF) us|
|00003ac0| 65 72 5f 65 6f 66 28 29 | 3b 0a 20 20 69 66 20 28 |er_eof()|;. if (|
|00003ad0| 72 76 61 6c 20 3d 3d 20 | 4d 45 4e 55 5f 48 45 4c |rval == |MENU_HEL|
|00003ae0| 50 29 20 7b 0a 20 20 20 | 20 20 63 61 74 68 65 6c |P) {. | cathel|
|00003af0| 70 66 69 6c 65 28 6c 69 | 62 64 69 72 28 68 65 6c |pfile(li|bdir(hel|
|00003b00| 70 66 69 6c 65 29 2c 73 | 75 62 6a 65 63 74 2c 31 |pfile),s|ubject,1|
|00003b10| 29 3b 0a 20 20 20 20 20 | 67 6f 74 6f 20 72 65 61 |);. |goto rea|
|00003b20| 73 6b 3b 0a 20 20 7d 20 | 20 20 20 20 0a 20 20 72 |sk;. } | . r|
|00003b30| 65 74 75 72 6e 28 72 76 | 61 6c 29 3b 0a 7d 0a 20 |eturn(rv|al);.}. |
|00003b40| 20 20 20 20 0a 0a 72 6f | 6c 6f 5f 6d 65 6e 75 5f | ..ro|lo_menu_|
|00003b50| 6e 75 6d 62 65 72 5f 68 | 65 6c 70 5f 6f 72 5f 61 |number_h|elp_or_a|
|00003b60| 62 6f 72 74 20 28 70 72 | 6f 6d 70 74 2c 6c 6f 77 |bort (pr|ompt,low|
|00003b70| 2c 68 69 67 68 2c 70 74 | 72 5f 69 76 61 6c 29 0a |,high,pt|r_ival).|
|00003b80| 0a 20 20 63 68 61 72 20 | 2a 70 72 6f 6d 70 74 3b |. char |*prompt;|
|00003b90| 0a 20 20 69 6e 74 20 6c | 6f 77 2c 68 69 67 68 2c |. int l|ow,high,|
|00003ba0| 2a 70 74 72 5f 69 76 61 | 6c 3b 0a 20 20 0a 7b 20 |*ptr_iva|l;. .{ |
|00003bb0| 20 0a 20 20 69 6e 74 20 | 72 76 61 6c 3b 0a 20 20 | . int |rval;. |
|00003bc0| 69 66 20 28 4d 45 4e 55 | 5f 45 4f 46 20 3d 3d 20 |if (MENU|_EOF == |
|00003bd0| 28 72 76 61 6c 20 3d 20 | 6d 65 6e 75 5f 6e 75 6d |(rval = |menu_num|
|00003be0| 62 65 72 5f 68 65 6c 70 | 5f 6f 72 5f 61 62 6f 72 |ber_help|_or_abor|
|00003bf0| 74 20 28 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |t (. | |
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c10| 20 20 20 70 72 6f 6d 70 | 74 2c 41 42 4f 52 54 53 | promp|t,ABORTS|
|00003c20| 54 52 49 4e 47 2c 6c 6f | 77 2c 68 69 67 68 2c 70 |TRING,lo|w,high,p|
|00003c30| 74 72 5f 69 76 61 6c 0a | 20 20 20 20 20 20 20 20 |tr_ival.| |
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c50| 20 20 20 29 29 29 0a 20 | 20 20 20 20 75 73 65 72 | ))). | user|
|00003c60| 5f 65 6f 66 28 29 3b 0a | 20 20 72 65 74 75 72 6e |_eof();.| return|
|00003c70| 28 72 76 61 6c 29 3b 0a | 7d 0a 53 48 41 52 5f 45 |(rval);.|}.SHAR_E|
|00003c80| 4f 46 0a 69 66 20 74 65 | 73 74 20 31 34 33 33 20 |OF.if te|st 1433 |
|00003c90| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 6d |-ne "`wc| -c < 'm|
|00003ca0| 65 6e 75 61 75 78 2e 63 | 27 60 22 0a 74 68 65 6e |enuaux.c|'`".then|
|00003cb0| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00003cc0| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00003cd0| 22 27 6d 65 6e 75 61 75 | 78 2e 63 27 22 20 27 28 |"'menuau|x.c'" '(|
|00003ce0| 73 68 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e |should h|ave been|
|00003cf0| 20 31 34 33 33 20 63 68 | 61 72 61 63 74 65 72 73 | 1433 ch|aracters|
|00003d00| 29 27 0a 66 69 0a 66 69 | 0a 65 63 68 6f 20 73 68 |)'.fi.fi|.echo sh|
|00003d10| 61 72 3a 20 65 78 74 72 | 61 63 74 69 6e 67 20 22 |ar: extr|acting "|
|00003d20| 27 6f 70 65 72 61 74 69 | 6f 6e 73 2e 63 27 22 20 |'operati|ons.c'" |
|00003d30| 27 28 38 39 35 30 20 63 | 68 61 72 61 63 74 65 72 |'(8950 c|haracter|
|00003d40| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|00003d50| 6f 70 65 72 61 74 69 6f | 6e 73 2e 63 27 0a 74 68 |operatio|ns.c'.th|
|00003d60| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|00003d70| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00003d80| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00003d90| 20 22 27 6f 70 65 72 61 | 74 69 6f 6e 73 2e 63 27 | "'opera|tions.c'|
|00003da0| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00003db0| 48 41 52 5f 45 4f 46 20 | 3e 20 27 6f 70 65 72 61 |HAR_EOF |> 'opera|
|00003dc0| 74 69 6f 6e 73 2e 63 27 | 0a 23 69 6e 63 6c 75 64 |tions.c'|.#includ|
|00003dd0| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 23 69 6e 63 |e <stdio|.h>.#inc|
|00003de0| 6c 75 64 65 20 3c 63 74 | 79 70 65 2e 68 3e 0a 0a |lude <ct|ype.h>..|
|00003df0| 23 69 6e 63 6c 75 64 65 | 20 22 73 79 73 35 2e 68 |#include| "sys5.h|
|00003e00| 22 0a 0a 23 69 66 64 65 | 66 20 54 4d 43 0a 23 69 |"..#ifde|f TMC.#i|
|00003e10| 6e 63 6c 75 64 65 20 3c | 63 74 6f 6f 6c 73 2e 68 |nclude <|ctools.h|
|00003e20| 3e 0a 23 65 6c 73 65 0a | 23 69 6e 63 6c 75 64 65 |>.#else.|#include|
|00003e30| 20 22 63 74 6f 6f 6c 73 | 2e 68 22 0a 23 65 6e 64 | "ctools|.h".#end|
|00003e40| 69 66 0a 23 69 6e 63 6c | 75 64 65 20 22 61 72 67 |if.#incl|ude "arg|
|00003e50| 73 2e 68 22 0a 23 69 6e | 63 6c 75 64 65 20 22 6d |s.h".#in|clude "m|
|00003e60| 65 6e 75 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |enu.h".#|include |
|00003e70| 22 6d 65 6d 2e 68 22 0a | 0a 0a 23 69 6e 63 6c 75 |"mem.h".|..#inclu|
|00003e80| 64 65 20 22 72 6f 6c 6f | 66 69 6c 65 73 2e 68 22 |de "rolo|files.h"|
|00003e90| 0a 23 69 6e 63 6c 75 64 | 65 20 22 72 6f 6c 6f 64 |.#includ|e "rolod|
|00003ea0| 65 66 73 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |efs.h".#|include |
|00003eb0| 22 64 61 74 61 64 65 66 | 2e 68 22 0a 23 69 6e 63 |"datadef|.h".#inc|
|00003ec0| 6c 75 64 65 20 22 63 68 | 6f 69 63 65 73 2e 68 22 |lude "ch|oices.h"|
|00003ed0| 0a 0a 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 63 |..extern| char *c|
|00003ee0| 74 69 6d 65 28 29 3b 0a | 0a 50 74 72 5f 52 6f 6c |time();.|.Ptr_Rol|
|00003ef0| 6f 5f 4c 69 73 74 20 63 | 72 65 61 74 65 5f 65 6e |o_List c|reate_en|
|00003f00| 74 72 79 20 28 62 61 73 | 69 63 64 61 74 61 2c 6f |try (bas|icdata,o|
|00003f10| 74 68 65 72 64 61 74 61 | 29 20 63 68 61 72 20 2a |therdata|) char *|
|00003f20| 2a 62 61 73 69 63 64 61 | 74 61 2c 20 2a 2a 6f 74 |*basicda|ta, **ot|
|00003f30| 68 65 72 64 61 74 61 3b | 0a 7b 0a 20 20 50 74 72 |herdata;|.{. Ptr|
|00003f40| 5f 52 6f 6c 6f 5f 4c 69 | 73 74 20 6e 65 77 6c 69 |_Rolo_Li|st newli|
|00003f50| 6e 6b 3b 20 20 20 20 20 | 20 20 20 0a 20 20 50 74 |nk; | . Pt|
|00003f60| 72 5f 52 6f 6c 6f 5f 45 | 6e 74 72 79 20 6e 65 77 |r_Rolo_E|ntry new|
|00003f70| 65 6e 74 72 79 3b 0a 20 | 20 69 6e 74 20 69 2c 6a |entry;. | int i,j|
|00003f80| 3b 0a 20 20 6e 65 77 6c | 69 6e 6b 20 3d 20 6e 65 |;. newl|ink = ne|
|00003f90| 77 5f 6c 69 6e 6b 5f 77 | 69 74 68 5f 65 6e 74 72 |w_link_w|ith_entr|
|00003fa0| 79 28 29 3b 20 20 20 20 | 20 20 20 20 0a 20 20 6e |y(); | . n|
|00003fb0| 65 77 65 6e 74 72 79 20 | 3d 20 67 65 74 5f 65 6e |ewentry |= get_en|
|00003fc0| 74 72 79 28 6e 65 77 6c | 69 6e 6b 29 3b 0a 20 20 |try(newl|ink);. |
|00003fd0| 66 6f 72 20 28 6a 20 3d | 20 30 3b 20 6a 20 3c 20 |for (j =| 0; j < |
|00003fe0| 4e 5f 42 41 53 49 43 5f | 46 49 45 4c 44 53 3b 20 |N_BASIC_|FIELDS; |
|00003ff0| 6a 2b 2b 29 20 7b 0a 20 | 20 20 20 20 20 73 65 74 |j++) {. | set|
|00004000| 5f 62 61 73 69 63 5f 72 | 6f 6c 6f 5f 66 69 65 6c |_basic_r|olo_fiel|
|00004010| 64 28 6a 2c 6e 65 77 65 | 6e 74 72 79 2c 62 61 73 |d(j,newe|ntry,bas|
|00004020| 69 63 64 61 74 61 5b 6a | 5d 29 3b 0a 20 20 7d 0a |icdata[j|]);. }.|
|00004030| 20 20 6a 20 3d 20 30 3b | 0a 20 20 77 68 69 6c 65 | j = 0;|. while|
|00004040| 20 28 6f 74 68 65 72 64 | 61 74 61 5b 6a 5d 20 21 | (otherd|ata[j] !|
|00004050| 3d 20 30 29 20 6a 2b 2b | 3b 0a 20 20 73 65 74 5f |= 0) j++|;. set_|
|00004060| 6e 5f 6f 74 68 65 72 73 | 28 6e 65 77 65 6e 74 72 |n_others|(newentr|
|00004070| 79 2c 6a 29 3b 0a 20 20 | 69 66 20 28 6a 20 3e 20 |y,j);. |if (j > |
|00004080| 30 29 20 7b 0a 20 20 20 | 20 20 6e 65 77 65 6e 74 |0) {. | newent|
|00004090| 72 79 20 2d 3e 20 6f 74 | 68 65 72 5f 66 69 65 6c |ry -> ot|her_fiel|
|000040a0| 64 73 20 3d 20 28 63 68 | 61 72 20 2a 2a 29 20 72 |ds = (ch|ar **) r|
|000040b0| 6f 6c 6f 5f 65 6d 61 6c | 6c 6f 63 28 6a 2a 73 69 |olo_emal|loc(j*si|
|000040c0| 7a 65 6f 66 28 63 68 61 | 72 20 2a 29 29 3b 0a 20 |zeof(cha|r *));. |
|000040d0| 20 20 20 20 66 6f 72 20 | 28 69 20 3d 20 30 3b 20 | for |(i = 0; |
|000040e0| 69 20 3c 20 6a 3b 20 69 | 2b 2b 29 20 7b 0a 20 20 |i < j; i|++) {. |
|000040f0| 20 20 20 20 20 20 20 73 | 65 74 5f 6f 74 68 65 72 | s|et_other|
|00004100| 5f 66 69 65 6c 64 28 69 | 2c 6e 65 77 65 6e 74 72 |_field(i|,newentr|
|00004110| 79 2c 6f 74 68 65 72 64 | 61 74 61 5b 69 5d 29 3b |y,otherd|ata[i]);|
|00004120| 0a 20 20 20 20 20 7d 0a | 20 20 7d 0a 20 20 65 6c |. }.| }. el|
|00004130| 73 65 20 6e 65 77 65 6e | 74 72 79 20 2d 3e 20 6f |se newen|try -> o|
|00004140| 74 68 65 72 5f 66 69 65 | 6c 64 73 20 3d 20 30 3b |ther_fie|lds = 0;|
|00004150| 0a 20 20 72 65 74 75 72 | 6e 28 6e 65 77 6c 69 6e |. retur|n(newlin|
|00004160| 6b 29 3b 0a 7d 20 20 0a | 20 20 0a 0a 6f 74 68 65 |k);.} .| ..othe|
|00004170| 72 5f 66 69 65 6c 64 73 | 20 28 29 20 0a 7b 0a 20 |r_fields| () .{. |
|00004180| 20 69 6e 74 20 72 76 61 | 6c 3b 20 20 20 20 20 20 | int rva|l; |
|00004190| 20 20 0a 20 20 72 76 61 | 6c 20 3d 20 72 6f 6c 6f | . rva|l = rolo|
|000041a0| 5f 6d 65 6e 75 5f 79 65 | 73 5f 6e 6f 20 28 0a 20 |_menu_ye|s_no (. |
|000041b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 41 64 64 | | "Add|
|000041c0| 69 74 69 6f 6e 61 6c 20 | 66 69 65 6c 64 73 3f 20 |itional |fields? |
|000041d0| 22 2c 44 45 46 41 55 4c | 54 5f 4e 4f 2c 31 2c 0a |",DEFAUL|T_NO,1,.|
|000041e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 6d 6f | | "mo|
|000041f0| 72 65 66 69 65 6c 64 73 | 68 65 6c 70 22 2c 22 61 |refields|help","a|
|00004200| 64 64 69 74 69 6f 6e 61 | 6c 20 66 69 65 6c 64 73 |dditiona|l fields|
|00004210| 22 0a 20 20 20 20 20 20 | 20 20 20 20 29 3b 0a 20 |". | );. |
|00004220| 20 72 65 74 75 72 6e 28 | 72 76 61 6c 20 3d 3d 20 | return(|rval == |
|00004230| 4d 45 4e 55 5f 59 45 53 | 29 3b 0a 7d 0a 0a 0a 61 |MENU_YES|);.}...a|
|00004240| 64 64 5f 74 68 65 5f 65 | 6e 74 72 79 20 28 29 0a |dd_the_e|ntry ().|
|00004250| 7b 0a 20 20 72 65 74 75 | 72 6e 28 4d 45 4e 55 5f |{. retu|rn(MENU_|
|00004260| 59 45 53 20 3d 3d 20 72 | 6f 6c 6f 5f 6d 65 6e 75 |YES == r|olo_menu|
|00004270| 5f 79 65 73 5f 6e 6f 20 | 28 0a 20 20 20 20 20 20 |_yes_no |(. |
|00004280| 20 20 20 20 20 20 20 20 | 22 41 64 64 20 6e 65 77 | |"Add new|
|00004290| 20 65 6e 74 72 79 20 74 | 6f 20 72 6f 6c 6f 64 65 | entry t|o rolode|
|000042a0| 78 3f 20 22 2c 44 45 46 | 41 55 4c 54 5f 59 45 53 |x? ",DEF|AULT_YES|
|000042b0| 2c 31 2c 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |,1,. | |
|000042c0| 20 20 22 6e 65 77 61 64 | 64 68 65 6c 70 22 2c 22 | "newad|dhelp","|
|000042d0| 61 64 64 69 6e 67 20 6e | 65 77 6c 79 20 65 6e 74 |adding n|ewly ent|
|000042e0| 65 72 65 64 20 65 6e 74 | 72 79 22 0a 20 20 20 20 |ered ent|ry". |
|000042f0| 20 20 20 20 20 20 20 29 | 29 3b 0a 7d 0a 0a 0a 72 | )|);.}...r|
|00004300| 6f 6c 6f 5f 61 64 64 20 | 28 29 20 0a 0a 7b 0a 20 |olo_add |() ..{. |
|00004310| 20 69 6e 74 20 69 2c 6a | 2c 6b 2c 72 76 61 6c 2c | int i,j|,k,rval,|
|00004320| 6d 65 6e 75 76 61 6c 3b | 0a 20 20 6c 6f 6e 67 20 |menuval;|. long |
|00004330| 74 69 6d 65 76 61 6c 3b | 0a 20 20 63 68 61 72 20 |timeval;|. char |
|00004340| 2a 72 65 73 70 6f 6e 73 | 65 3b 0a 20 20 63 68 61 |*respons|e;. cha|
|00004350| 72 20 2a 62 61 73 69 63 | 64 61 74 61 5b 4e 5f 42 |r *basic|data[N_B|
|00004360| 41 53 49 43 5f 46 49 45 | 4c 44 53 5d 2c 20 2a 6f |ASIC_FIE|LDS], *o|
|00004370| 74 68 65 72 64 61 74 61 | 5b 31 30 30 5d 2c 20 2a |therdata|[100], *|
|00004380| 64 61 74 75 6d 3b 0a 20 | 20 50 74 72 5f 52 6f 6c |datum;. | Ptr_Rol|
|00004390| 6f 5f 4c 69 73 74 20 72 | 6c 69 6e 6b 3b 0a 20 20 |o_List r|link;. |
|000043a0| 20 20 20 20 20 20 0a 20 | 20 66 6f 72 20 28 6a 20 | . | for (j |
|000043b0| 3d 20 30 3b 20 6a 20 3c | 20 31 30 30 3b 20 6a 2b |= 0; j <| 100; j+|
|000043c0| 2b 29 20 6f 74 68 65 72 | 64 61 74 61 5b 6a 5d 20 |+) other|data[j] |
|000043d0| 3d 20 30 3b 0a 20 20 66 | 6f 72 20 28 6a 20 3d 20 |= 0;. f|or (j = |
|000043e0| 30 3b 20 6a 20 3c 20 4e | 5f 42 41 53 49 43 5f 46 |0; j < N|_BASIC_F|
|000043f0| 49 45 4c 44 53 3b 20 6a | 2b 2b 29 20 62 61 73 69 |IELDS; j|++) basi|
|00004400| 63 64 61 74 61 5b 6a 5d | 20 3d 20 30 3b 0a 20 20 |cdata[j]| = 0;. |
|00004410| 63 61 74 68 65 6c 70 66 | 69 6c 65 28 6c 69 62 64 |cathelpf|ile(libd|
|00004420| 69 72 28 22 61 64 64 69 | 6e 66 6f 22 29 2c 30 2c |ir("addi|nfo"),0,|
|00004430| 31 29 3b 0a 20 20 0a 20 | 20 2f 2a 20 27 6b 27 20 |1);. . | /* 'k' |
|00004440| 61 6e 64 20 27 6b 6c 75 | 64 67 65 27 20 61 72 65 |and 'klu|dge' are|
|00004450| 20 61 72 65 20 6b 6c 75 | 64 67 65 20 74 6f 20 61 | are klu|dge to a|
|00004460| 6c 6c 6f 77 20 75 73 20 | 74 6f 20 62 61 63 6b 20 |llow us |to back |
|00004470| 75 70 20 66 72 6f 6d 20 | 65 6e 74 65 72 69 6e 67 |up from |entering|
|00004480| 20 2a 2f 0a 20 20 2f 2a | 20 75 73 65 72 20 64 65 | */. /*| user de|
|00004490| 66 69 6e 65 64 20 66 69 | 65 6c 64 73 20 74 6f 20 |fined fi|elds to |
|000044a0| 67 6f 20 61 6e 20 63 6f | 72 72 65 63 74 20 77 72 |go an co|rrect wr|
|000044b0| 6f 6e 67 20 62 61 73 69 | 63 20 66 69 65 6c 64 20 |ong basi|c field |
|000044c0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 20 2a 2f 0a |informat|ion. */.|
|000044d0| 20 20 0a 20 20 6b 20 3d | 20 30 3b 0a 20 20 0a 20 | . k =| 0;. . |
|000044e0| 20 6b 6c 75 64 67 65 20 | 3a 0a 20 20 0a 20 20 66 | kludge |:. . f|
|000044f0| 6f 72 20 28 6a 20 3d 20 | 6b 3b 20 6a 20 3c 20 4e |or (j = |k; j < N|
|00004500| 5f 42 41 53 49 43 5f 46 | 49 45 4c 44 53 20 2d 20 |_BASIC_F|IELDS - |
|00004510| 31 3b 20 6a 2b 2b 29 20 | 7b 0a 20 20 20 20 20 20 |1; j++) |{. |
|00004520| 20 20 0a 20 20 20 20 20 | 20 72 65 64 6f 20 3a 0a | . | redo :.|
|00004530| 20 20 20 20 20 20 20 20 | 0a 20 20 20 20 20 20 72 | |. r|
|00004540| 76 61 6c 20 3d 20 6d 65 | 6e 75 5f 6d 61 74 63 68 |val = me|nu_match|
|00004550| 20 28 0a 20 20 20 20 20 | 20 20 20 20 20 20 26 6d | (. | &m|
|00004560| 65 6e 75 76 61 6c 2c 26 | 72 65 73 70 6f 6e 73 65 |enuval,&|response|
|00004570| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 20 46 69 65 |,. | Fie|
|00004580| 6c 64 5f 4e 61 6d 65 73 | 5b 6a 5d 2c 0a 20 20 20 |ld_Names|[j],. |
|00004590| 20 20 20 20 20 20 20 20 | 30 2c 30 2c 30 2c 31 2c | |0,0,0,1,|
|000045a0| 35 2c 0a 20 20 20 20 20 | 20 20 20 20 20 20 22 5c |5,. | "\|
|000045b0| 5c 22 2c 41 5f 41 42 4f | 52 54 5f 41 44 44 2c 0a |\",A_ABO|RT_ADD,.|
|000045c0| 20 20 20 20 20 20 20 20 | 20 20 20 22 5e 22 2c 41 | | "^",A|
|000045d0| 5f 42 41 43 4b 55 50 2c | 0a 20 20 20 20 20 20 20 |_BACKUP,|. |
|000045e0| 20 20 20 20 22 21 22 2c | 41 5f 46 49 4c 4c 5f 49 | "!",|A_FILL_I|
|000045f0| 4e 5f 52 45 53 54 2c 0a | 20 20 20 20 20 20 20 20 |N_REST,.| |
|00004600| 20 20 20 22 3f 22 2c 41 | 5f 48 45 4c 50 2c 0a 20 | "?",A|_HELP,. |
|00004610| 20 20 20 20 20 20 20 20 | 20 20 22 22 2c 41 5f 4e | | "",A_N|
|00004620| 4f 5f 44 41 54 41 0a 20 | 20 20 20 20 20 20 20 29 |O_DATA. | )|
|00004630| 3b 0a 20 20 20 20 20 20 | 20 20 0a 20 20 20 20 20 |;. | . |
|00004640| 20 73 77 69 74 63 68 20 | 28 72 76 61 6c 29 20 7b | switch |(rval) {|
|00004650| 0a 20 20 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 |. | . |
|00004660| 20 20 63 61 73 65 20 4d | 45 4e 55 5f 4e 4f 5f 4d | case M|ENU_NO_M|
|00004670| 41 54 43 48 20 3a 0a 20 | 20 20 20 20 20 20 20 20 |ATCH :. | |
|00004680| 20 62 61 73 69 63 64 61 | 74 61 5b 6a 5d 20 3d 20 | basicda|ta[j] = |
|00004690| 63 6f 70 79 73 74 72 28 | 72 65 73 70 6f 6e 73 65 |copystr(|response|
|000046a0| 29 3b 0a 20 20 20 20 20 | 20 20 20 20 20 69 66 20 |);. | if |
|000046b0| 28 6a 20 3d 3d 20 30 20 | 26 26 20 73 74 72 6c 65 |(j == 0 |&& strle|
|000046c0| 6e 28 62 61 73 69 63 64 | 61 74 61 5b 6a 5d 29 20 |n(basicd|ata[j]) |
|000046d0| 3d 3d 20 30 29 20 7b 0a | 20 20 20 20 20 20 20 20 |== 0) {.| |
|000046e0| 20 20 20 20 20 70 72 69 | 6e 74 66 28 22 45 61 63 | pri|ntf("Eac|
|000046f0| 68 20 65 6e 74 72 79 20 | 6d 75 73 74 20 68 61 76 |h entry |must hav|
|00004700| 65 20 61 20 6e 61 6d 65 | 21 5c 6e 22 29 3b 0a 20 |e a name|!\n");. |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 67 6f 74 6f | | goto|
|00004720| 20 72 65 64 6f 3b 0a 20 | 20 20 20 20 20 20 20 20 | redo;. | |
|00004730| 20 7d 0a 20 20 20 20 20 | 20 20 20 20 20 62 72 65 | }. | bre|
|00004740| 61 6b 3b 0a 0a 20 20 20 | 20 20 20 20 20 63 61 73 |ak;.. | cas|
|00004750| 65 20 4d 45 4e 55 5f 4d | 41 54 43 48 20 3a 0a 20 |e MENU_M|ATCH :. |
|00004760| 20 20 20 20 20 20 20 20 | 20 73 77 69 74 63 68 20 | | switch |
|00004770| 28 6d 65 6e 75 76 61 6c | 29 20 7b 0a 20 20 20 20 |(menuval|) {. |
|00004780| 20 20 20 20 20 20 20 20 | 63 61 73 65 20 41 5f 42 | |case A_B|
|00004790| 41 43 4b 55 50 20 3a 0a | 20 20 20 20 20 20 20 20 |ACKUP :.| |
|000047a0| 20 20 20 20 20 20 69 66 | 20 28 6a 20 3d 3d 20 30 | if| (j == 0|
|000047b0| 29 20 72 65 74 75 72 6e | 3b 0a 20 20 20 20 20 20 |) return|;. |
|000047c0| 20 20 20 20 20 20 20 20 | 6a 2d 2d 3b 0a 20 20 20 | |j--;. |
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 20 67 6f 74 6f 20 | | goto |
|000047e0| 72 65 64 6f 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |redo;. | |
|000047f0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 20 20 20 20 20 | brea|k;. |
|00004800| 20 20 20 20 20 20 20 63 | 61 73 65 20 41 5f 41 42 | c|ase A_AB|
|00004810| 4f 52 54 5f 41 44 44 20 | 3a 0a 20 20 20 20 20 20 |ORT_ADD |:. |
|00004820| 20 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 3b 0a | |return;.|
|00004830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 72 | | br|
|00004840| 65 61 6b 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |eak;. | |
|00004850| 20 63 61 73 65 20 41 5f | 46 49 4c 4c 5f 49 4e 5f | case A_|FILL_IN_|
|00004860| 52 45 53 54 20 3a 0a 20 | 20 20 20 20 20 20 20 20 |REST :. | |
|00004870| 20 20 20 20 20 69 66 20 | 28 6a 20 3d 3d 20 30 29 | if |(j == 0)|
|00004880| 20 7b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | {. | |
|00004890| 20 20 20 20 66 70 72 69 | 6e 74 66 28 73 74 64 65 | fpri|ntf(stde|
|000048a0| 72 72 2c 22 59 6f 75 20 | 6d 75 73 74 20 65 6e 74 |rr,"You |must ent|
|000048b0| 65 72 20 61 74 20 6c 65 | 61 73 74 20 61 20 6e 61 |er at le|ast a na|
|000048c0| 6d 65 2e 2e 2e 5c 6e 22 | 29 3b 0a 20 20 20 20 20 |me...\n"|);. |
|000048d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 67 6f 74 6f | | goto|
|000048e0| 20 72 65 64 6f 3b 0a 20 | 20 20 20 20 20 20 20 20 | redo;. | |
|000048f0| 20 20 20 20 20 7d 0a 20 | 20 20 20 20 20 20 20 20 | }. | |
|00004900| 20 20 20 20 20 67 6f 74 | 6f 20 61 64 64 5f 65 6e | got|o add_en|
|00004910| 74 72 79 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |try;. | |
|00004920| 20 20 20 62 72 65 61 6b | 3b 0a 20 20 20 20 20 20 | break|;. |
|00004930| 20 20 20 20 20 20 63 61 | 73 65 20 41 5f 48 45 4c | ca|se A_HEL|
|00004940| 50 20 3a 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |P :. | |
|00004950| 20 20 63 61 74 68 65 6c | 70 66 69 6c 65 28 6c 69 | cathel|pfile(li|
|00004960| 62 64 69 72 28 22 61 64 | 64 68 65 6c 70 22 29 2c |bdir("ad|dhelp"),|
|00004970| 22 61 64 64 69 6e 67 20 | 65 6e 74 72 69 65 73 22 |"adding |entries"|
|00004980| 2c 31 29 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |,1);. | |
|00004990| 20 20 20 61 6e 79 5f 63 | 68 61 72 5f 74 6f 5f 63 | any_c|har_to_c|
|000049a0| 6f 6e 74 69 6e 75 65 28 | 29 3b 0a 20 20 20 20 20 |ontinue(|);. |
|000049b0| 20 20 20 20 20 20 20 20 | 20 63 6c 65 61 72 5f 74 | | clear_t|
|000049c0| 68 65 5f 73 63 72 65 65 | 6e 28 29 3b 0a 20 20 20 |he_scree|n();. |
|000049d0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 74 68 65 | | cathe|
|000049e0| 6c 70 66 69 6c 65 28 6c | 69 62 64 69 72 28 22 61 |lpfile(l|ibdir("a|
|000049f0| 64 64 69 6e 66 6f 22 29 | 2c 30 2c 30 29 3b 0a 20 |ddinfo")|,0,0);. |
|00004a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 66 6f 72 | | for|
|00004a10| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 6a 3b 20 | (i = 0;| i < j; |
|00004a20| 69 2b 2b 29 20 7b 0a 20 | 20 20 20 20 20 20 20 20 |i++) {. | |
|00004a30| 20 20 20 20 20 20 20 20 | 20 70 72 69 6e 74 66 28 | | printf(|
|00004a40| 22 25 73 25 73 5c 6e 22 | 2c 46 69 65 6c 64 5f 4e |"%s%s\n"|,Field_N|
|00004a50| 61 6d 65 73 5b 69 5d 2c | 62 61 73 69 63 64 61 74 |ames[i],|basicdat|
|00004a60| 61 5b 69 5d 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |a[i]);. | |
|00004a70| 20 20 20 20 20 7d 0a 20 | 20 20 20 20 20 20 20 20 | }. | |
|00004a80| 20 20 20 20 20 67 6f 74 | 6f 20 72 65 64 6f 3b 0a | got|o redo;.|
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 72 | | br|
|00004aa0| 65 61 6b 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |eak;. | |
|00004ab0| 20 63 61 73 65 20 41 5f | 4e 4f 5f 44 41 54 41 20 | case A_|NO_DATA |
|00004ac0| 3a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|00004ad0| 69 66 20 28 62 61 73 69 | 63 64 61 74 61 5b 6a 5d |if (basi|cdata[j]|
|00004ae0| 20 21 3d 20 30 29 20 62 | 61 73 69 63 64 61 74 61 | != 0) b|asicdata|
|00004af0| 5b 6a 5d 5b 30 5d 20 3d | 20 27 5c 30 27 3b 0a 20 |[j][0] =| '\0';. |
|00004b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 72 65 | | bre|
|00004b10| 61 6b 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ak;. | |
|00004b20| 64 65 66 61 75 6c 74 20 | 3a 0a 20 20 20 20 20 20 |default |:. |
|00004b30| 20 20 20 20 20 20 20 20 | 66 70 72 69 6e 74 66 28 | |fprintf(|
|00004b40| 73 74 64 65 72 72 2c 22 | 49 6d 70 6f 73 73 69 62 |stderr,"|Impossib|
|00004b50| 6c 65 20 72 76 61 6c 20 | 66 72 6f 6d 20 72 6f 6c |le rval |from rol|
|00004b60| 6f 5f 61 64 64 20 6d 65 | 6e 75 5f 6d 61 74 63 68 |o_add me|nu_match|
|00004b70| 5c 6e 22 29 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |\n");. | |
|00004b80| 20 20 20 20 73 61 76 65 | 5f 61 6e 64 5f 65 78 69 | save|_and_exi|
|00004b90| 74 28 2d 31 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |t(-1);. | |
|00004ba0| 20 20 20 20 20 62 72 65 | 61 6b 3b 0a 20 20 20 20 | bre|ak;. |
|00004bb0| 20 20 20 20 20 20 7d 0a | 20 20 20 20 20 20 20 20 | }.| |
|00004bc0| 20 20 62 72 65 61 6b 3b | 0a 0a 20 20 20 20 20 20 | break;|.. |
|00004bd0| 20 20 63 61 73 65 20 4d | 45 4e 55 5f 45 4f 46 20 | case M|ENU_EOF |
|00004be0| 3a 0a 20 20 20 20 20 20 | 20 20 20 20 75 73 65 72 |:. | user|
|00004bf0| 5f 65 6f 66 28 29 3b 0a | 20 20 20 20 20 20 20 20 |_eof();.| |
|00004c00| 20 20 62 72 65 61 6b 3b | 0a 20 20 20 20 20 20 20 | break;|. |
|00004c10| 20 20 20 0a 20 20 20 20 | 20 20 20 20 63 61 73 65 | . | case|
|00004c20| 20 4d 45 4e 55 5f 45 52 | 52 4f 52 20 3a 0a 20 20 | MENU_ER|ROR :. |
|00004c30| 20 20 20 20 20 20 63 61 | 73 65 20 4d 45 4e 55 5f | ca|se MENU_|
|00004c40| 41 4d 42 49 47 55 4f 55 | 53 20 3a 0a 20 20 20 20 |AMBIGUOU|S :. |
|00004c50| 20 20 20 20 64 65 66 61 | 75 6c 74 20 3a 0a 20 20 | defa|ult :. |
|00004c60| 20 20 20 20 20 20 20 20 | 66 70 72 69 6e 74 66 28 | |fprintf(|
|00004c70| 73 74 64 65 72 72 2c 22 | 49 6d 70 6f 73 73 69 62 |stderr,"|Impossib|
|00004c80| 6c 65 20 72 65 74 75 72 | 6e 20 66 72 6f 6d 20 72 |le retur|n from r|
|00004c90| 6f 6c 6f 5f 61 64 64 20 | 6d 65 6e 75 5f 6d 61 74 |olo_add |menu_mat|
|00004ca0| 63 68 5c 6e 22 29 3b 0a | 20 20 20 20 20 20 20 20 |ch\n");.| |
|00004cb0| 20 20 73 61 76 65 5f 61 | 6e 64 5f 65 78 69 74 28 | save_a|nd_exit(|
|00004cc0| 2d 31 29 3b 0a 20 20 20 | 20 20 20 20 20 20 20 62 |-1);. | b|
|00004cd0| 72 65 61 6b 3b 0a 0a 20 | 20 20 20 20 20 7d 0a 0a |reak;.. | }..|
|00004ce0| 20 20 7d 0a 0a 20 20 69 | 66 20 28 6f 74 68 65 72 | }.. i|f (other|
|00004cf0| 5f 66 69 65 6c 64 73 28 | 29 29 20 7b 0a 20 20 20 |_fields(|)) {. |
|00004d00| 20 20 66 6f 72 20 28 6a | 20 3d 20 30 3b 20 6a 20 | for (j| = 0; j |
|00004d10| 3c 20 31 30 30 3b 20 6a | 2b 2b 29 20 7b 0a 20 20 |< 100; j|++) {. |
|00004d20| 20 20 20 20 20 20 20 72 | 65 64 6f 5f 6f 74 68 65 | r|edo_othe|
|00004d30| 72 20 3a 0a 20 20 20 20 | 20 20 20 20 20 72 76 61 |r :. | rva|
|00004d40| 6c 20 3d 20 6d 65 6e 75 | 5f 6d 61 74 63 68 20 28 |l = menu|_match (|
|00004d50| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 |. | &|
|00004d60| 6d 65 6e 75 76 61 6c 2c | 26 72 65 73 70 6f 6e 73 |menuval,|&respons|
|00004d70| 65 2c 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e,. | |
|00004d80| 20 22 45 6e 74 65 72 20 | 3c 6e 61 6d 65 3e 3a 20 | "Enter |<name>: |
|00004d90| 3c 64 61 74 61 3e 20 28 | 74 79 70 65 20 52 45 54 |<data> (|type RET|
|00004da0| 55 52 4e 20 74 6f 20 71 | 75 69 74 29 20 3a 20 22 |URN to q|uit) : "|
|00004db0| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,. | |
|00004dc0| 30 2c 30 2c 30 2c 30 2c | 35 2c 0a 20 20 20 20 20 |0,0,0,0,|5,. |
|00004dd0| 20 20 20 20 20 20 20 20 | 20 22 5c 5c 22 2c 4f 5f | | "\\",O_|
|00004de0| 41 42 4f 52 54 2c 0a 20 | 20 20 20 20 20 20 20 20 |ABORT,. | |
|00004df0| 20 20 20 20 20 22 3f 22 | 2c 4f 5f 48 45 4c 50 2c | "?"|,O_HELP,|
|00004e00| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |. | "|
|00004e10| 48 65 6c 70 22 2c 4f 5f | 48 45 4c 50 2c 0a 20 20 |Help",O_|HELP,. |
|00004e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 5e 22 2c | | "^",|
|00004e30| 4f 5f 42 41 43 4b 55 50 | 2c 0a 20 20 20 20 20 20 |O_BACKUP|,. |
|00004e40| 20 20 20 20 20 20 20 20 | 22 22 2c 4f 5f 44 4f 4e | |"",O_DON|
|00004e50| 45 5f 4f 54 48 45 52 53 | 0a 20 20 20 20 20 20 20 |E_OTHERS|. |
|00004e60| 20 20 20 20 29 3b 0a 20 | 20 20 20 20 20 20 20 20 | );. | |
|00004e70| 73 77 69 74 63 68 20 28 | 72 76 61 6c 29 20 7b 0a |switch (|rval) {.|
|00004e80| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 | | case |
|00004e90| 4d 45 4e 55 5f 4d 41 54 | 43 48 20 3a 0a 20 20 20 |MENU_MAT|CH :. |
|00004ea0| 20 20 20 20 20 20 20 20 | 20 20 73 77 69 74 63 68 | | switch|
|00004eb0| 20 28 6d 65 6e 75 76 61 | 6c 29 20 7b 0a 20 20 20 | (menuva|l) {. |
|00004ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 73 65 | | case|
|00004ed0| 20 4f 5f 44 4f 4e 45 5f | 4f 54 48 45 52 53 20 3a | O_DONE_|OTHERS :|
|00004ee0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004ef0| 20 20 67 6f 74 6f 20 61 | 64 64 5f 65 6e 74 72 79 | goto a|dd_entry|
|00004f00| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;. | |
|00004f10| 20 20 20 62 72 65 61 6b | 3b 0a 20 20 20 20 20 20 | break|;. |
|00004f20| 20 20 20 20 20 20 20 20 | 20 63 61 73 65 20 4f 5f | | case O_|
|00004f30| 42 41 43 4b 55 50 20 3a | 0a 20 20 20 20 20 20 20 |BACKUP :|. |
|00004f40| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 28 6a 20 | | if (j |
|00004f50| 3d 3d 20 30 29 20 7b 0a | 20 20 20 20 20 20 20 20 |== 0) {.| |
|00004f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 6b 20 3d 20 | | k = |
|00004f70| 4e 5f 42 41 53 49 43 5f | 46 49 45 4c 44 53 20 2d |N_BASIC_|FIELDS -|
|00004f80| 20 32 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | 2;. | |
|00004f90| 20 20 20 20 20 20 20 20 | 67 6f 74 6f 20 6b 6c 75 | |goto klu|
|00004fa0| 64 67 65 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |dge;. | |
|00004fb0| 20 20 20 20 20 20 7d 0a | 20 20 20 20 20 20 20 20 | }.| |
|00004fc0| 20 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 7b 0a | | else {.|
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004fe0| 20 20 20 20 6a 2d 2d 3b | 0a 20 20 20 20 20 20 20 | j--;|. |
|00004ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 72 69 | | pri|
|00005000| 6e 74 66 28 22 44 65 6c | 65 74 69 6e 67 20 25 73 |ntf("Del|eting %s|
|00005010| 5c 6e 22 2c 6f 74 68 65 | 72 64 61 74 61 5b 6a 5d |\n",othe|rdata[j]|
|00005020| 29 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);. | |
|00005030| 20 20 20 20 20 20 20 67 | 6f 74 6f 20 72 65 64 6f | g|oto redo|
|00005040| 5f 6f 74 68 65 72 3b 0a | 20 20 20 20 20 20 20 20 |_other;.| |
|00005050| 20 20 20 20 20 20 20 20 | 20 7d 0a 20 20 20 20 20 | | }. |
|00005060| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 72 65 61 | | brea|
|00005070| 6b 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |k;. | |
|00005080| 20 20 63 61 73 65 20 4f | 5f 41 42 4f 52 54 20 3a | case O|_ABORT :|
|00005090| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000050a0| 20 20 72 65 74 75 72 6e | 3b 0a 20 20 20 20 20 20 | return|;. |
|000050b0| 20 20 20 20 20 20 20 20 | 20 20 20 62 72 65 61 6b | | break|
|000050c0| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;. | |
|000050d0| 20 63 61 73 65 20 4f 5f | 48 45 4c 50 20 3a 0a 20 | case O_|HELP :. |
|000050e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050f0| 63 61 74 68 65 6c 70 66 | 69 6c 65 28 6c 69 62 64 |cathelpf|ile(libd|
|00005100| 69 72 28 22 6f 74 68 65 | 72 66 6f 72 6d 61 74 68 |ir("othe|rformath|
|00005110| 65 6c 70 22 29 2c 22 75 | 73 65 72 2d 69 74 65 6d |elp"),"u|ser-item|
|00005120| 20 66 6f 72 6d 61 74 22 | 2c 31 29 3b 0a 20 20 20 | format"|,1);. |
|00005130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 6e | | an|
|00005140| 79 5f 63 68 61 72 5f 74 | 6f 5f 63 6f 6e 74 69 6e |y_char_t|o_contin|
|00005150| 75 65 28 29 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |ue();. | |
|00005160| 20 20 20 20 20 20 20 67 | 6f 74 6f 20 72 65 64 6f | g|oto redo|
|00005170| 5f 6f 74 68 65 72 3b 0a | 20 20 20 20 20 20 20 20 |_other;.| |
|00005180| 20 20 20 20 20 20 7d 20 | 20 20 0a 20 20 20 20 20 | } | . |
|00005190| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 3b 0a 20 | |break;. |
|000051a0| 20 20 20 20 20 20 20 20 | 20 20 63 61 73 65 20 4d | | case M|
|000051b0| 45 4e 55 5f 4e 4f 5f 4d | 41 54 43 48 20 3a 0a 20 |ENU_NO_M|ATCH :. |
|000051c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 66 20 28 | | if (|
|000051d0| 30 20 3d 3d 20 69 6e 64 | 65 78 28 72 65 73 70 6f |0 == ind|ex(respo|
|000051e0| 6e 73 65 2c 27 3a 27 29 | 29 20 7b 0a 20 20 20 20 |nse,':')|) {. |
|000051f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 72 69 6e | | prin|
|00005200| 74 66 28 22 4e 6f 20 66 | 69 65 6c 64 20 6e 61 6d |tf("No f|ield nam|
|00005210| 65 20 70 72 6f 76 69 64 | 65 64 20 2d 2d 20 73 65 |e provid|ed -- se|
|00005220| 70 61 72 61 74 65 20 77 | 69 74 68 20 61 20 27 3a |parate w|ith a ':|
|00005230| 27 2e 5c 6e 22 29 3b 0a | 20 20 20 20 20 20 20 20 |'.\n");.| |
|00005240| 20 20 20 20 20 20 20 20 | 67 6f 74 6f 20 72 65 64 | |goto red|
|00005250| 6f 5f 6f 74 68 65 72 3b | 0a 20 20 20 20 20 20 20 |o_other;|. |
|00005260| 20 20 20 20 20 20 7d 0a | 20 20 20 20 20 20 20 20 | }.| |
|00005270| 20 20 20 20 20 6f 74 68 | 65 72 64 61 74 61 5b 6a | oth|erdata[j|
|00005280| 5d 20 3d 20 63 6f 70 79 | 73 74 72 28 72 65 73 70 |] = copy|str(resp|
|00005290| 6f 6e 73 65 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |onse);. | |
|000052a0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 20 20 20 20 20 | brea|k;. |
|000052b0| 20 20 20 20 20 20 63 61 | 73 65 20 4d 45 4e 55 5f | ca|se MENU_|
|000052c0| 45 4f 46 20 3a 0a 20 20 | 20 20 20 20 20 20 20 20 |EOF :. | |
|000052d0| 20 20 20 75 73 65 72 5f | 65 6f 66 28 29 3b 0a 20 | user_|eof();. |
|000052e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 72 65 61 | | brea|
|000052f0| 6b 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |k;. | ca|
|00005300| 73 65 20 4d 45 4e 55 5f | 41 4d 42 49 47 55 4f 55 |se MENU_|AMBIGUOU|
|00005310| 53 20 3a 0a 20 20 20 20 | 20 20 20 20 20 20 20 63 |S :. | c|
|00005320| 61 73 65 20 4d 45 4e 55 | 5f 45 52 52 4f 52 20 3a |ase MENU|_ERROR :|
|00005330| 0a 20 20 20 20 20 20 20 | 20 20 20 20 64 65 66 61 |. | defa|
|00005340| 75 6c 74 20 3a 0a 20 20 | 20 20 20 20 20 20 20 20 |ult :. | |
|00005350| 20 20 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 | fprin|tf(stder|
|00005360| 72 2c 22 49 6d 70 6f 73 | 73 69 62 6c 65 20 72 76 |r,"Impos|sible rv|
|00005370| 61 6c 20 66 72 6f 6d 20 | 61 64 64 5f 6f 74 68 65 |al from |add_othe|
|00005380| 72 20 6d 65 6e 75 5f 6d | 61 74 63 68 5c 6e 22 29 |r menu_m|atch\n")|
|00005390| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |;. | s|
|000053a0| 61 76 65 5f 61 6e 64 5f | 65 78 69 74 28 2d 31 29 |ave_and_|exit(-1)|
|000053b0| 3b 0a 20 20 20 20 20 20 | 20 20 20 7d 0a 20 20 20 |;. | }. |
|000053c0| 20 20 7d 0a 20 20 7d 0a | 0a 20 20 61 64 64 5f 65 | }. }.|. add_e|
|000053d0| 6e 74 72 79 20 3a 20 20 | 20 0a 0a 20 20 62 61 73 |ntry : | .. bas|
|000053e0| 69 63 64 61 74 61 5b 4e | 5f 42 41 53 49 43 5f 46 |icdata[N|_BASIC_F|
|000053f0| 49 45 4c 44 53 20 2d 20 | 31 5d 20 3d 20 74 69 6d |IELDS - |1] = tim|
|00005400| 65 73 74 72 69 6e 67 28 | 29 3b 0a 20 20 0a 20 20 |estring(|);. . |
|00005410| 72 6c 69 6e 6b 20 3d 20 | 63 72 65 61 74 65 5f 65 |rlink = |create_e|
|00005420| 6e 74 72 79 28 62 61 73 | 69 63 64 61 74 61 2c 6f |ntry(bas|icdata,o|
|00005430| 74 68 65 72 64 61 74 61 | 29 3b 0a 20 20 63 6c 65 |therdata|);. cle|
|00005440| 61 72 5f 74 68 65 5f 73 | 63 72 65 65 6e 28 29 3b |ar_the_s|creen();|
|00005450| 0a 20 20 64 69 73 70 6c | 61 79 5f 65 6e 74 72 79 |. displ|ay_entry|
|00005460| 28 67 65 74 5f 65 6e 74 | 72 79 28 72 6c 69 6e 6b |(get_ent|ry(rlink|
|00005470| 29 29 3b 0a 20 20 69 66 | 20 28 61 64 64 5f 74 68 |));. if| (add_th|
|00005480| 65 5f 65 6e 74 72 79 28 | 29 29 20 7b 0a 20 20 20 |e_entry(|)) {. |
|00005490| 20 20 70 72 69 6e 74 66 | 20 28 0a 20 20 20 20 20 | printf| (. |
|000054a0| 20 20 20 20 22 41 64 64 | 69 6e 67 20 65 6e 74 72 | "Add|ing entr|
|000054b0| 79 20 66 6f 72 20 25 73 | 20 74 6f 20 72 6f 6c 6f |y for %s| to rolo|
|000054c0| 64 65 78 5c 6e 22 2c 0a | 20 20 20 20 20 20 20 20 |dex\n",.| |
|000054d0| 20 67 65 74 5f 62 61 73 | 69 63 5f 72 6f 6c 6f 5f | get_bas|ic_rolo_|
|000054e0| 66 69 65 6c 64 28 28 69 | 6e 74 29 20 52 5f 4e 41 |field((i|nt) R_NA|
|000054f0| 4d 45 2c 67 65 74 5f 65 | 6e 74 72 79 28 72 6c 69 |ME,get_e|ntry(rli|
|00005500| 6e 6b 29 29 0a 20 20 20 | 20 20 20 29 3b 0a 20 20 |nk)). | );. |
|00005510| 20 20 20 72 6f 6c 6f 5f | 69 6e 73 65 72 74 28 72 | rolo_|insert(r|
|00005520| 6c 69 6e 6b 2c 63 6f 6d | 70 61 72 65 5f 6c 69 6e |link,com|pare_lin|
|00005530| 6b 73 29 3b 0a 20 20 20 | 20 20 63 68 61 6e 67 65 |ks);. | change|
|00005540| 64 20 3d 20 31 3b 0a 20 | 20 20 20 20 73 6c 65 65 |d = 1;. | slee|
|00005550| 70 28 32 29 3b 0a 20 20 | 7d 0a 20 20 65 6c 73 65 |p(2);. |}. else|
|00005560| 20 7b 0a 20 20 20 20 20 | 72 65 74 75 72 6e 3b 0a | {. |return;.|
|00005570| 20 20 7d 0a 0a 7d 0a 0a | 0a 65 6e 74 72 79 5f 61 | }..}..|.entry_a|
|00005580| 63 74 69 6f 6e 20 28 72 | 6c 69 6e 6b 29 20 50 74 |ction (r|link) Pt|
|00005590| 72 5f 52 6f 6c 6f 5f 4c | 69 73 74 20 72 6c 69 6e |r_Rolo_L|ist rlin|
|000055a0| 6b 3b 0a 0a 7b 0a 20 20 | 73 74 61 74 69 63 20 65 |k;..{. |static e|
|000055b0| 6e 74 72 79 5f 6d 65 6e | 75 5f 64 69 73 70 6c 61 |ntry_men|u_displa|
|000055c0| 79 65 64 20 3d 20 30 3b | 0a 20 20 69 6e 74 20 72 |yed = 0;|. int r|
|000055d0| 76 61 6c 2c 6d 65 6e 75 | 76 61 6c 3b 0a 20 20 63 |val,menu|val;. c|
|000055e0| 68 61 72 20 2a 72 65 73 | 70 6f 6e 73 65 3b 0a 20 |har *res|ponse;. |
|000055f0| 20 0a 20 20 69 66 20 28 | 21 65 6e 74 72 79 5f 6d | . if (|!entry_m|
|00005600| 65 6e 75 5f 64 69 73 70 | 6c 61 79 65 64 29 20 63 |enu_disp|layed) c|
|00005610| 61 74 68 65 6c 70 66 69 | 6c 65 28 6c 69 62 64 69 |athelpfi|le(libdi|
|00005620| 72 28 22 65 6e 74 72 79 | 6d 65 6e 75 22 29 2c 30 |r("entry|menu"),0|
|00005630| 2c 30 29 3b 0a 20 20 65 | 6e 74 72 79 5f 6d 65 6e |,0);. e|ntry_men|
|00005640| 75 5f 64 69 73 70 6c 61 | 79 65 64 20 3d 20 31 3b |u_displa|yed = 1;|
|00005650| 0a 20 20 0a 20 20 72 65 | 64 6f 20 3a 0a 20 20 0a |. . re|do :. .|
|00005660| 20 20 72 76 61 6c 20 3d | 20 6d 65 6e 75 5f 6d 61 | rval =| menu_ma|
|00005670| 74 63 68 20 28 0a 20 20 | 20 20 20 20 20 26 6d 65 |tch (. | &me|
|00005680| 6e 75 76 61 6c 2c 20 26 | 72 65 73 70 6f 6e 73 65 |nuval, &|response|
|00005690| 2c 0a 20 20 20 20 20 20 | 20 22 41 63 74 69 6f 6e |,. | "Action|
|000056a0| 20 28 3f 20 66 6f 72 20 | 68 65 6c 70 29 20 3a 20 | (? for |help) : |
|000056b0| 22 2c 0a 20 20 20 20 20 | 20 20 30 2c 31 2c 31 2c |",. | 0,1,1,|
|000056c0| 31 2c 37 2c 0a 20 20 20 | 20 20 20 20 22 5c 5c 22 |1,7,. | "\\"|
|000056d0| 2c 45 5f 41 42 4f 52 54 | 2c 0a 20 20 20 20 20 20 |,E_ABORT|,. |
|000056e0| 20 22 3f 22 2c 45 5f 48 | 45 4c 50 2c 0a 20 20 20 | "?",E_H|ELP,. |
|000056f0| 20 20 20 20 22 22 2c 45 | 5f 43 4f 4e 54 49 4e 55 | "",E|_CONTINU|
|00005700| 45 2c 0a 20 20 20 20 20 | 20 20 22 2d 22 2c 45 5f |E,. | "-",E_|
|00005710| 44 45 4c 45 54 45 2c 0a | 20 20 20 20 20 20 20 22 |DELETE,.| "|
|00005720| 2b 22 2c 45 5f 55 50 44 | 41 54 45 2c 0a 20 20 20 |+",E_UPD|ATE,. |
|00005730| 20 20 20 20 22 3c 22 2c | 45 5f 50 52 45 56 2c 0a | "<",|E_PREV,.|
|00005740| 20 20 20 20 20 20 20 22 | 25 22 2c 45 5f 53 43 41 | "|%",E_SCA|
|00005750| 4e 0a 20 20 20 20 29 3b | 0a 20 20 20 20 0a 20 20 |N. );|. . |
|00005760| 69 66 20 28 72 76 61 6c | 20 21 3d 20 4d 45 4e 55 |if (rval| != MENU|
|00005770| 5f 4d 41 54 43 48 29 20 | 7b 0a 20 20 20 20 20 69 |_MATCH) |{. i|
|00005780| 66 20 28 72 76 61 6c 20 | 3d 3d 20 4d 45 4e 55 5f |f (rval |== MENU_|
|00005790| 45 4f 46 29 20 75 73 65 | 72 5f 65 6f 66 28 29 3b |EOF) use|r_eof();|
|000057a0| 0a 20 20 20 20 20 66 70 | 72 69 6e 74 66 28 73 74 |. fp|rintf(st|
|000057b0| 64 65 72 72 2c 22 49 6d | 70 6f 73 73 69 62 6c 65 |derr,"Im|possible|
|000057c0| 20 72 65 74 75 72 6e 20 | 66 72 6f 6d 20 65 6e 74 | return |from ent|
|000057d0| 72 79 5f 61 63 74 69 6f | 6e 20 6d 65 6e 75 5f 6d |ry_actio|n menu_m|
|000057e0| 61 74 63 68 5c 6e 22 29 | 3b 0a 20 20 20 20 20 73 |atch\n")|;. s|
|000057f0| 61 76 65 5f 61 6e 64 5f | 65 78 69 74 28 2d 31 29 |ave_and_|exit(-1)|
|00005800| 3b 0a 20 20 7d 0a 0a 20 | 20 73 77 69 74 63 68 20 |;. }.. | switch |
|00005810| 28 6d 65 6e 75 76 61 6c | 29 20 7b 0a 20 20 20 20 |(menuval|) {. |
|00005820| 63 61 73 65 20 45 5f 41 | 42 4f 52 54 20 3a 0a 20 |case E_A|BORT :. |
|00005830| 20 20 20 63 61 73 65 20 | 45 5f 43 4f 4e 54 49 4e | case |E_CONTIN|
|00005840| 55 45 20 3a 0a 20 20 20 | 20 63 61 73 65 20 45 5f |UE :. | case E_|
|00005850| 50 52 45 56 20 3a 0a 20 | 20 20 20 20 20 62 72 65 |PREV :. | bre|
|00005860| 61 6b 3b 0a 20 20 20 20 | 63 61 73 65 20 45 5f 53 |ak;. |case E_S|
|00005870| 43 41 4e 20 3a 0a 20 20 | 20 20 20 20 72 6f 6c 6f |CAN :. | rolo|
|00005880| 5f 70 65 72 75 73 65 5f | 6d 6f 64 65 28 67 65 74 |_peruse_|mode(get|
|00005890| 5f 6e 65 78 74 5f 6c 69 | 6e 6b 28 72 6c 69 6e 6b |_next_li|nk(rlink|
|000058a0| 29 29 3b 0a 20 20 20 20 | 20 20 62 72 65 61 6b 3b |));. | break;|
|000058b0| 0a 20 20 20 20 63 61 73 | 65 20 45 5f 55 50 44 41 |. cas|e E_UPDA|
|000058c0| 54 45 20 3a 0a 20 20 20 | 20 20 20 72 6f 6c 6f 5f |TE :. | rolo_|
|000058d0| 75 70 64 61 74 65 5f 6d | 6f 64 65 28 72 6c 69 6e |update_m|ode(rlin|
|000058e0| 6b 29 3b 0a 20 20 20 20 | 20 20 62 72 65 61 6b 3b |k);. | break;|
|000058f0| 0a 20 20 20 20 63 61 73 | 65 20 45 5f 44 45 4c 45 |. cas|e E_DELE|
|00005900| 54 45 20 3a 0a 20 20 20 | 20 20 20 72 6f 6c 6f 5f |TE :. | rolo_|
|00005910| 64 65 6c 65 74 65 28 72 | 6c 69 6e 6b 29 3b 0a 20 |delete(r|link);. |
|00005920| 20 20 20 20 20 70 72 69 | 6e 74 66 28 22 45 6e 74 | pri|ntf("Ent|
|00005930| 72 79 20 64 65 6c 65 74 | 65 64 5c 6e 22 29 3b 0a |ry delet|ed\n");.|
|00005940| 20 20 20 20 20 20 73 6c | 65 65 70 28 31 29 3b 0a | sl|eep(1);.|
|00005950| 20 20 20 20 20 20 63 68 | 61 6e 67 65 64 20 3d 20 | ch|anged = |
|00005960| 31 3b 0a 20 20 20 20 20 | 20 62 72 65 61 6b 3b 0a |1;. | break;.|
|00005970| 20 20 20 20 63 61 73 65 | 20 45 5f 48 45 4c 50 20 | case| E_HELP |
|00005980| 3a 0a 20 20 20 20 20 20 | 63 61 74 68 65 6c 70 66 |:. |cathelpf|
|00005990| 69 6c 65 20 28 0a 20 20 | 20 20 20 20 20 20 20 20 |ile (. | |
|000059a0| 6c 69 62 64 69 72 28 69 | 6e 5f 73 65 61 72 63 68 |libdir(i|n_search|
|000059b0| 5f 6d 6f 64 65 20 3f 20 | 22 65 73 65 61 72 63 68 |_mode ? |"esearch|
|000059c0| 68 65 6c 70 22 20 3a 20 | 22 65 73 63 61 6e 68 65 |help" : |"escanhe|
|000059d0| 6c 70 22 29 2c 0a 20 20 | 20 20 20 20 20 20 20 20 |lp"),. | |
|000059e0| 22 65 6e 74 72 79 20 61 | 63 74 69 6f 6e 73 22 2c |"entry a|ctions",|
|000059f0| 0a 20 20 20 20 20 20 20 | 20 20 20 31 0a 20 20 20 |. | 1. |
|00005a00| 20 20 20 20 29 3b 0a 20 | 20 20 20 20 20 61 6e 79 | );. | any|
|00005a10| 5f 63 68 61 72 5f 74 6f | 5f 63 6f 6e 74 69 6e 75 |_char_to|_continu|
|00005a20| 65 28 29 3b 0a 20 20 20 | 20 20 20 63 6c 65 61 72 |e();. | clear|
|00005a30| 5f 74 68 65 5f 73 63 72 | 65 65 6e 28 29 3b 0a 20 |_the_scr|een();. |
|00005a40| 20 20 20 20 20 64 69 73 | 70 6c 61 79 5f 65 6e 74 | dis|play_ent|
|00005a50| 72 79 28 67 65 74 5f 65 | 6e 74 72 79 28 72 6c 69 |ry(get_e|ntry(rli|
|00005a60| 6e 6b 29 29 3b 0a 20 20 | 20 20 20 20 67 6f 74 6f |nk));. | goto|
|00005a70| 20 72 65 64 6f 3b 0a 20 | 20 20 20 20 20 62 72 65 | redo;. | bre|
|00005a80| 61 6b 3b 0a 20 20 20 20 | 64 65 66 61 75 6c 74 20 |ak;. |default |
|00005a90| 3a 0a 20 20 20 20 20 20 | 66 70 72 69 6e 74 66 28 |:. |fprintf(|
|00005aa0| 73 74 64 65 72 72 2c 22 | 49 6d 70 6f 73 73 69 62 |stderr,"|Impossib|
|00005ab0| 6c 65 20 6d 65 6e 75 76 | 61 6c 20 69 6e 20 65 6e |le menuv|al in en|
|00005ac0| 74 72 79 5f 61 63 74 69 | 6f 6e 5c 6e 22 29 3b 0a |try_acti|on\n");.|
|00005ad0| 20 20 20 20 20 20 73 61 | 76 65 5f 61 6e 64 5f 65 | sa|ve_and_e|
|00005ae0| 78 69 74 28 2d 31 29 3b | 0a 20 20 7d 0a 0a 20 20 |xit(-1);|. }.. |
|00005af0| 72 65 74 75 72 6e 28 6d | 65 6e 75 76 61 6c 29 3b |return(m|enuval);|
|00005b00| 0a 20 20 0a 7d 0a 0a 0a | 64 69 73 70 6c 61 79 5f |. .}...|display_|
|00005b10| 6c 69 73 74 5f 6f 66 5f | 65 6e 74 72 69 65 73 20 |list_of_|entries |
|00005b20| 28 72 6c 69 73 74 29 20 | 50 74 72 5f 52 6f 6c 6f |(rlist) |Ptr_Rolo|
|00005b30| 5f 4c 69 73 74 20 72 6c | 69 73 74 3b 0a 0a 7b 0a |_List rl|ist;..{.|
|00005b40| 20 20 50 74 72 5f 52 6f | 6c 6f 5f 4c 69 73 74 20 | Ptr_Ro|lo_List |
|00005b50| 6f 6c 64 3b 0a 20 20 20 | 20 20 20 20 20 0a 20 20 |old;. | . |
|00005b60| 77 68 69 6c 65 20 28 72 | 6c 69 73 74 20 21 3d 20 |while (r|list != |
|00005b70| 30 29 20 7b 20 20 20 20 | 20 20 20 20 0a 20 20 20 |0) { | . |
|00005b80| 20 0a 20 20 20 20 69 66 | 20 28 21 67 65 74 5f 6d | . if| (!get_m|
|00005b90| 61 74 63 68 65 64 28 72 | 6c 69 73 74 29 29 20 67 |atched(r|list)) g|
|00005ba0| 6f 74 6f 20 6e 65 78 74 | 3b 0a 20 20 20 20 20 20 |oto next|;. |
|00005bb0| 20 20 0a 20 20 20 20 6c | 6f 6f 70 20 3a 20 20 20 | . l|oop : |
|00005bc0| 20 0a 20 20 20 20 0a 20 | 20 20 20 64 69 73 70 6c | . . | displ|
|00005bd0| 61 79 5f 65 6e 74 72 79 | 28 67 65 74 5f 65 6e 74 |ay_entry|(get_ent|
|00005be0| 72 79 28 72 6c 69 73 74 | 29 29 3b 0a 20 20 20 20 |ry(rlist|));. |
|00005bf0| 0a 20 20 20 20 73 77 69 | 74 63 68 20 28 65 6e 74 |. swi|tch (ent|
|00005c00| 72 79 5f 61 63 74 69 6f | 6e 28 72 6c 69 73 74 29 |ry_actio|n(rlist)|
|00005c10| 29 20 7b 0a 20 20 20 20 | 20 20 63 61 73 65 20 45 |) {. | case E|
|00005c20| 5f 43 4f 4e 54 49 4e 55 | 45 20 3a 0a 20 20 20 20 |_CONTINU|E :. |
|00005c30| 20 20 20 20 62 72 65 61 | 6b 3b 0a 20 20 20 20 20 | brea|k;. |
|00005c40| 20 63 61 73 65 20 45 5f | 41 42 4f 52 54 20 3a 0a | case E_|ABORT :.|
|00005c50| 20 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 3b 0a | |return;.|
|00005c60| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 3b 0a 20 | |break;. |
|00005c70| 20 20 20 20 20 63 61 73 | 65 20 45 5f 50 52 45 56 | cas|e E_PREV|
|00005c80| 20 3a 0a 20 20 20 20 20 | 20 20 20 6f 6c 64 20 3d | :. | old =|
|00005c90| 20 72 6c 69 73 74 3b 0a | 20 20 20 20 20 20 20 20 | rlist;.| |
|00005ca0| 66 69 6e 64 5f 70 72 65 | 76 5f 6d 61 74 63 68 20 |find_pre|v_match |
|00005cb0| 3a 0a 20 20 20 20 20 20 | 20 20 69 66 20 28 67 65 |:. | if (ge|
|00005cc0| 74 5f 70 72 65 76 5f 6c | 69 6e 6b 28 72 6c 69 73 |t_prev_l|ink(rlis|
|00005cd0| 74 29 20 3d 3d 20 30 29 | 20 7b 0a 20 20 20 20 20 |t) == 0)| {. |
|00005ce0| 20 20 20 20 20 20 72 6c | 69 73 74 20 3d 20 6f 6c | rl|ist = ol|
|00005cf0| 64 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 70 72 |d;. | pr|
|00005d00| 69 6e 74 66 28 22 4e 6f | 20 70 72 65 76 69 6f 75 |intf("No| previou|
|00005d10| 73 20 65 6e 74 72 79 20 | 69 6e 20 73 63 61 6e 20 |s entry |in scan |
|00005d20| 6c 69 73 74 5c 6e 22 29 | 3b 0a 20 20 20 20 20 20 |list\n")|;. |
|00005d30| 20 20 20 20 20 73 6c 65 | 65 70 28 32 29 3b 0a 20 | sle|ep(2);. |
|00005d40| 20 20 20 20 20 20 20 7d | 0a 20 20 20 20 20 20 20 | }|. |
|00005d50| 20 65 6c 73 65 20 7b 0a | 20 20 20 20 20 20 20 20 | else {.| |
|00005d60| 20 20 20 72 6c 69 73 74 | 20 3d 20 67 65 74 5f 70 | rlist| = get_p|
|00005d70| 72 65 76 5f 6c 69 6e 6b | 28 72 6c 69 73 74 29 3b |rev_link|(rlist);|
|00005d80| 0a 20 20 20 20 20 20 20 | 20 20 20 20 69 66 20 28 |. | if (|
|00005d90| 21 67 65 74 5f 6d 61 74 | 63 68 65 64 28 72 6c 69 |!get_mat|ched(rli|
|00005da0| 73 74 29 29 20 67 6f 74 | 6f 20 66 69 6e 64 5f 70 |st)) got|o find_p|
|00005db0| 72 65 76 5f 6d 61 74 63 | 68 3b 0a 20 20 20 20 20 |rev_matc|h;. |
|00005dc0| 20 20 20 7d 0a 20 20 20 | 20 20 20 20 20 67 6f 74 | }. | got|
|00005dd0| 6f 20 6c 6f 6f 70 3b 0a | 20 20 20 20 20 20 20 20 |o loop;.| |
|00005de0| 62 72 65 61 6b 3b 0a 20 | 20 20 20 20 20 64 65 66 |break;. | def|
|00005df0| 61 75 6c 74 20 3a 0a 20 | 20 20 20 20 20 20 20 70 |ault :. | p|
|00005e00| 72 69 6e 74 66 28 22 44 | 69 73 70 6c 61 79 69 6e |rintf("D|isplayin|
|00005e10| 67 20 6e 65 78 74 20 65 | 6e 74 72 79 20 69 6e 20 |g next e|ntry in |
|00005e20| 73 63 61 6e 20 6c 69 73 | 74 2e 2e 2e 5c 6e 22 29 |scan lis|t...\n")|
|00005e30| 3b 0a 20 20 20 20 20 20 | 20 20 73 6c 65 65 70 28 |;. | sleep(|
|00005e40| 31 29 3b 0a 20 20 20 20 | 20 20 20 20 62 72 65 61 |1);. | brea|
|00005e50| 6b 3b 0a 20 20 20 20 7d | 0a 20 20 20 20 0a 20 20 |k;. }|. . |
|00005e60| 20 20 6e 65 78 74 20 3a | 0a 20 20 20 20 0a 20 20 | next :|. . |
|00005e70| 20 20 72 6c 69 73 74 20 | 3d 20 67 65 74 5f 6e 65 | rlist |= get_ne|
|00005e80| 78 74 5f 6c 69 6e 6b 28 | 72 6c 69 73 74 29 3b 0a |xt_link(|rlist);.|
|00005e90| 20 20 20 20 0a 20 20 7d | 0a 20 20 0a 20 20 70 72 | . }|. . pr|
|00005ea0| 69 6e 74 66 28 22 4e 6f | 20 66 75 72 74 68 65 72 |intf("No| further|
|00005eb0| 20 65 6e 74 72 69 65 73 | 20 74 6f 20 73 63 61 6e | entries| to scan|
|00005ec0| 2e 2e 2e 5c 6e 22 29 3b | 0a 20 20 73 6c 65 65 70 |...\n");|. sleep|
|00005ed0| 28 32 29 3b 20 20 20 20 | 20 0a 20 20 0a 7d 0a 20 |(2); | . .}. |
|00005ee0| 20 0a 0a 72 6f 6c 6f 5f | 70 65 72 75 73 65 5f 6d | ..rolo_|peruse_m|
|00005ef0| 6f 64 65 20 28 66 69 72 | 73 74 5f 72 6c 69 6e 6b |ode (fir|st_rlink|
|00005f00| 29 20 50 74 72 5f 52 6f | 6c 6f 5f 4c 69 73 74 20 |) Ptr_Ro|lo_List |
|00005f10| 66 69 72 73 74 5f 72 6c | 69 6e 6b 3b 0a 0a 7b 0a |first_rl|ink;..{.|
|00005f20| 20 20 69 6e 74 20 72 76 | 61 6c 3b 0a 20 20 50 74 | int rv|al;. Pt|
|00005f30| 72 5f 52 6f 6c 6f 5f 4c | 69 73 74 20 72 6c 69 73 |r_Rolo_L|ist rlis|
|00005f40| 74 20 3d 20 66 69 72 73 | 74 5f 72 6c 69 6e 6b 3b |t = firs|t_rlink;|
|00005f50| 0a 20 20 69 66 20 28 30 | 20 3d 3d 20 42 65 67 69 |. if (0| == Begi|
|00005f60| 6e 5f 52 6c 69 73 74 29 | 20 7b 0a 20 20 20 20 20 |n_Rlist)| {. |
|00005f70| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 22 |fprintf(|stderr,"|
|00005f80| 4e 6f 20 66 75 72 74 68 | 65 72 20 65 6e 74 72 69 |No furth|er entri|
|00005f90| 65 73 20 69 6e 20 72 6f | 6c 6f 64 65 78 2e 2e 2e |es in ro|lodex...|
|00005fa0| 5c 6e 22 29 3b 0a 20 20 | 20 20 20 73 6c 65 65 70 |\n");. | sleep|
|00005fb0| 28 32 29 3b 0a 20 20 20 | 20 20 72 65 74 75 72 6e |(2);. | return|
|00005fc0| 3b 0a 20 20 7d 0a 20 20 | 77 68 69 6c 65 20 28 72 |;. }. |while (r|
|00005fd0| 6c 69 73 74 20 21 3d 20 | 30 29 20 7b 20 20 0a 20 |list != |0) { . |
|00005fe0| 20 20 20 73 65 74 5f 6d | 61 74 63 68 65 64 28 72 | set_m|atched(r|
|00005ff0| 6c 69 73 74 29 3b 0a 20 | 20 20 20 72 6c 69 73 74 |list);. | rlist|
|00006000| 20 3d 20 67 65 74 5f 6e | 65 78 74 5f 6c 69 6e 6b | = get_n|ext_link|
|00006010| 28 72 6c 69 73 74 29 3b | 0a 20 20 7d 20 20 20 20 |(rlist);|. } |
|00006020| 0a 20 20 64 69 73 70 6c | 61 79 5f 6c 69 73 74 5f |. displ|ay_list_|
|00006030| 6f 66 5f 65 6e 74 72 69 | 65 73 28 66 69 72 73 74 |of_entri|es(first|
|00006040| 5f 72 6c 69 6e 6b 29 3b | 0a 20 20 72 6c 69 73 74 |_rlink);|. rlist|
|00006050| 20 3d 20 66 69 72 73 74 | 5f 72 6c 69 6e 6b 3b 0a | = first|_rlink;.|
|00006060| 20 20 77 68 69 6c 65 20 | 28 72 6c 69 73 74 20 21 | while |(rlist !|
|00006070| 3d 20 30 29 20 7b 20 20 | 0a 20 20 20 20 75 6e 73 |= 0) { |. uns|
|00006080| 65 74 5f 6d 61 74 63 68 | 65 64 28 72 6c 69 73 74 |et_match|ed(rlist|
|00006090| 29 3b 0a 20 20 20 20 72 | 6c 69 73 74 20 3d 20 67 |);. r|list = g|
|000060a0| 65 74 5f 6e 65 78 74 5f | 6c 69 6e 6b 28 72 6c 69 |et_next_|link(rli|
|000060b0| 73 74 29 3b 0a 20 20 7d | 20 20 20 20 0a 7d 0a 53 |st);. }| .}.S|
|000060c0| 48 41 52 5f 45 4f 46 0a | 69 66 20 74 65 73 74 20 |HAR_EOF.|if test |
|000060d0| 38 39 35 30 20 2d 6e 65 | 20 22 60 77 63 20 2d 63 |8950 -ne| "`wc -c|
|000060e0| 20 3c 20 27 6f 70 65 72 | 61 74 69 6f 6e 73 2e 63 | < 'oper|ations.c|
|000060f0| 27 60 22 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |'`".then|..echo s|
|00006100| 68 61 72 3a 20 65 72 72 | 6f 72 20 74 72 61 6e 73 |har: err|or trans|
|00006110| 6d 69 74 74 69 6e 67 20 | 22 27 6f 70 65 72 61 74 |mitting |"'operat|
|00006120| 69 6f 6e 73 2e 63 27 22 | 20 27 28 73 68 6f 75 6c |ions.c'"| '(shoul|
|00006130| 64 20 68 61 76 65 20 62 | 65 65 6e 20 38 39 35 30 |d have b|een 8950|
|00006140| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 66 69 | charact|ers)'.fi|
|00006150| 0a 66 69 0a 65 63 68 6f | 20 73 68 61 72 3a 20 65 |.fi.echo| shar: e|
|00006160| 78 74 72 61 63 74 69 6e | 67 20 22 27 6f 70 74 69 |xtractin|g "'opti|
|00006170| 6f 6e 73 2e 63 27 22 20 | 27 28 36 37 38 35 20 63 |ons.c'" |'(6785 c|
|00006180| 68 61 72 61 63 74 65 72 | 73 29 27 0a 69 66 20 74 |haracter|s)'.if t|
|00006190| 65 73 74 20 2d 66 20 27 | 6f 70 74 69 6f 6e 73 2e |est -f '|options.|
|000061a0| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|000061b0| 61 72 3a 20 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: will| not ove|
|000061c0| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|000061d0| 20 66 69 6c 65 20 22 27 | 6f 70 74 69 6f 6e 73 2e | file "'|options.|
|000061e0| 63 27 22 0a 65 6c 73 65 | 0a 63 61 74 20 3c 3c 20 |c'".else|.cat << |
|000061f0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 6f 70 74 |\SHAR_EO|F > 'opt|
|00006200| 69 6f 6e 73 2e 63 27 0a | 23 69 6e 63 6c 75 64 65 |ions.c'.|#include|
|00006210| 20 3c 73 79 73 2f 66 69 | 6c 65 2e 68 3e 0a 23 69 | <sys/fi|le.h>.#i|
|00006220| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00006230| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 63 74 79 70 65 |.#includ|e <ctype|
|00006240| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 67 |.h>.#inc|lude <sg|
|00006250| 74 74 79 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |tty.h>.#|include |
|00006260| 3c 73 79 73 2f 74 69 6d | 65 2e 68 3e 0a 23 69 6e |<sys/tim|e.h>.#in|
|00006270| 63 6c 75 64 65 20 3c 73 | 69 67 6e 61 6c 2e 68 3e |clude <s|ignal.h>|
|00006280| 0a 0a 23 69 6e 63 6c 75 | 64 65 20 22 73 79 73 35 |..#inclu|de "sys5|
|00006290| 2e 68 22 0a 0a 23 69 66 | 64 65 66 20 54 4d 43 0a |.h"..#if|def TMC.|
|000062a0| 23 69 6e 63 6c 75 64 65 | 20 3c 63 74 6f 6f 6c 73 |#include| <ctools|
|000062b0| 2e 68 3e 0a 23 65 6c 73 | 65 0a 23 69 6e 63 6c 75 |.h>.#els|e.#inclu|
|000062c0| 64 65 20 22 63 74 6f 6f | 6c 73 2e 68 22 0a 23 65 |de "ctoo|ls.h".#e|
|000062d0| 6e 64 69 66 0a 23 69 6e | 63 6c 75 64 65 20 22 61 |ndif.#in|clude "a|
|000062e0| 72 67 73 2e 68 22 0a 23 | 69 6e 63 6c 75 64 65 20 |rgs.h".#|include |
|000062f0| 22 6d 65 6e 75 2e 68 22 | 0a 23 69 6e 63 6c 75 64 |"menu.h"|.#includ|
|00006300| 65 20 22 6d 65 6d 2e 68 | 22 0a 0a 23 69 6e 63 6c |e "mem.h|"..#incl|
|00006310| 75 64 65 20 22 72 6f 6c | 6f 66 69 6c 65 73 2e 68 |ude "rol|ofiles.h|
|00006320| 22 0a 23 69 6e 63 6c 75 | 64 65 20 22 72 6f 6c 6f |".#inclu|de "rolo|
|00006330| 64 65 66 73 2e 68 22 0a | 23 69 6e 63 6c 75 64 65 |defs.h".|#include|
|00006340| 20 22 64 61 74 61 64 65 | 66 2e 68 22 0a 23 69 6e | "datade|f.h".#in|
|00006350| 63 6c 75 64 65 20 22 63 | 68 6f 69 63 65 73 2e 68 |clude "c|hoices.h|
|00006360| 22 0a 0a 0a 70 72 69 6e | 74 5f 73 68 6f 72 74 20 |"...prin|t_short |
|00006370| 28 29 0a 0a 2f 2a 20 70 | 72 69 6e 74 20 74 68 65 |()../* p|rint the|
|00006380| 20 6e 61 6d 65 73 20 61 | 6e 64 20 70 68 6f 6e 65 | names a|nd phone|
|00006390| 20 6e 75 6d 62 65 72 73 | 20 6f 66 20 65 76 65 72 | numbers| of ever|
|000063a0| 79 6f 6e 65 20 69 6e 20 | 74 68 65 20 72 6f 6c 6f |yone in |the rolo|
|000063b0| 64 65 78 2e 20 2a 2f 0a | 0a 7b 20 0a 0a 20 20 50 |dex. */.|.{ .. P|
|000063c0| 74 72 5f 52 6f 6c 6f 5f | 4c 69 73 74 20 72 70 74 |tr_Rolo_|List rpt|
|000063d0| 72 3b 0a 20 20 50 74 72 | 5f 52 6f 6c 6f 5f 45 6e |r;. Ptr|_Rolo_En|
|000063e0| 74 72 79 20 65 6e 74 72 | 79 3b 0a 20 20 20 20 20 |try entr|y;. |
|000063f0| 20 20 20 0a 20 20 72 70 | 74 72 20 3d 20 42 65 67 | . rp|tr = Beg|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
