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, ASCII text
| 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| 53 75 62 6a 65 63 74 3a | 20 20 76 31 38 69 30 32 |Subject:| v18i02|
|00000010| 36 3a 20 20 4d 61 69 6c | 20 75 73 65 72 27 73 20 |6: Mail| user's |
|00000020| 73 68 65 6c 6c 20 76 65 | 72 73 69 6f 6e 20 36 2e |shell ve|rsion 6.|
|00000030| 34 2c 20 50 61 72 74 30 | 34 2f 31 39 0a 4e 65 77 |4, Part0|4/19.New|
|00000040| 73 67 72 6f 75 70 73 3a | 20 63 6f 6d 70 2e 73 6f |sgroups:| comp.so|
|00000050| 75 72 63 65 73 2e 75 6e | 69 78 0a 53 65 6e 64 65 |urces.un|ix.Sende|
|00000060| 72 3a 20 73 6f 75 72 63 | 65 73 0a 41 70 70 72 6f |r: sourc|es.Appro|
|00000070| 76 65 64 3a 20 72 73 61 | 6c 7a 40 75 75 6e 65 74 |ved: rsa|lz@uunet|
|00000080| 2e 55 55 2e 4e 45 54 0a | 0a 53 75 62 6d 69 74 74 |.UU.NET.|.Submitt|
|00000090| 65 64 2d 62 79 3a 20 44 | 61 6e 20 48 65 6c 6c 65 |ed-by: D|an Helle|
|000000a0| 72 20 3c 69 73 6c 61 6e | 64 21 61 72 67 76 40 73 |r <islan|d!argv@s|
|000000b0| 75 6e 2e 63 6f 6d 3e 0a | 50 6f 73 74 69 6e 67 2d |un.com>.|Posting-|
|000000c0| 6e 75 6d 62 65 72 3a 20 | 56 6f 6c 75 6d 65 20 31 |number: |Volume 1|
|000000d0| 38 2c 20 49 73 73 75 65 | 20 32 36 0a 41 72 63 68 |8, Issue| 26.Arch|
|000000e0| 69 76 65 2d 6e 61 6d 65 | 3a 20 6d 75 73 68 36 2e |ive-name|: mush6.|
|000000f0| 34 2f 70 61 72 74 30 34 | 0a 0a 0a 0a 23 21 20 2f |4/part04|....#! /|
|00000100| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000110| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000120| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |. Remov|e anythi|
|00000130| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|00000140| 69 6e 65 2c 20 74 68 65 | 6e 20 75 6e 70 61 63 6b |ine, the|n unpack|
|00000150| 0a 23 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |.# it by| saving |
|00000160| 69 74 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 61 |it into |a file a|
|00000170| 6e 64 20 74 79 70 69 6e | 67 20 22 73 68 20 66 69 |nd typin|g "sh fi|
|00000180| 6c 65 22 2e 20 20 54 6f | 20 6f 76 65 72 77 72 69 |le". To| overwri|
|00000190| 74 65 20 65 78 69 73 74 | 69 6e 67 0a 23 20 66 69 |te exist|ing.# fi|
|000001a0| 6c 65 73 2c 20 74 79 70 | 65 20 22 73 68 20 66 69 |les, typ|e "sh fi|
|000001b0| 6c 65 20 2d 63 22 2e 20 | 20 59 6f 75 20 63 61 6e |le -c". | You can|
|000001c0| 20 61 6c 73 6f 20 66 65 | 65 64 20 74 68 69 73 20 | also fe|ed this |
|000001d0| 61 73 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |as stand|ard inpu|
|000001e0| 74 20 76 69 61 0a 23 20 | 75 6e 73 68 61 72 2c 20 |t via.# |unshar, |
|000001f0| 6f 72 20 62 79 20 74 79 | 70 69 6e 67 20 22 73 68 |or by ty|ping "sh|
|00000200| 20 3c 66 69 6c 65 22 2c | 20 65 2e 67 2e 2e 20 20 | <file",| e.g.. |
|00000210| 49 66 20 74 68 69 73 20 | 61 72 63 68 69 76 65 20 |If this |archive |
|00000220| 69 73 20 63 6f 6d 70 6c | 65 74 65 2c 20 79 6f 75 |is compl|ete, you|
|00000230| 0a 23 20 77 69 6c 6c 20 | 73 65 65 20 74 68 65 20 |.# will |see the |
|00000240| 66 6f 6c 6c 6f 77 69 6e | 67 20 6d 65 73 73 61 67 |followin|g messag|
|00000250| 65 20 61 74 20 74 68 65 | 20 65 6e 64 3a 0a 23 09 |e at the| end:.#.|
|00000260| 09 22 45 6e 64 20 6f 66 | 20 61 72 63 68 69 76 65 |."End of| archive|
|00000270| 20 34 20 28 6f 66 20 31 | 39 29 2e 22 0a 23 20 43 | 4 (of 1|9).".# C|
|00000280| 6f 6e 74 65 6e 74 73 3a | 20 20 64 61 74 65 73 2e |ontents:| dates.|
|00000290| 63 20 68 65 6c 70 2e 63 | 20 6d 61 63 72 6f 73 2e |c help.c| macros.|
|000002a0| 63 20 6d 61 69 6e 2e 63 | 20 6d 61 69 6e 5f 70 61 |c main.c| main_pa|
|000002b0| 6e 65 6c 2e 63 20 6f 70 | 74 69 6f 6e 73 2e 63 0a |nel.c op|tions.c.|
|000002c0| 23 20 57 72 61 70 70 65 | 64 20 62 79 20 72 73 61 |# Wrappe|d by rsa|
|000002d0| 6c 7a 40 70 61 70 61 79 | 61 2e 62 62 6e 2e 63 6f |lz@papay|a.bbn.co|
|000002e0| 6d 20 6f 6e 20 4d 6f 6e | 20 4d 61 72 20 31 33 20 |m on Mon| Mar 13 |
|000002f0| 31 39 3a 32 35 3a 30 39 | 20 31 39 38 39 0a 50 41 |19:25:09| 1989.PA|
|00000300| 54 48 3d 2f 62 69 6e 3a | 2f 75 73 72 2f 62 69 6e |TH=/bin:|/usr/bin|
|00000310| 3a 2f 75 73 72 2f 75 63 | 62 20 3b 20 65 78 70 6f |:/usr/uc|b ; expo|
|00000320| 72 74 20 50 41 54 48 0a | 69 66 20 74 65 73 74 20 |rt PATH.|if test |
|00000330| 2d 66 20 27 64 61 74 65 | 73 2e 63 27 20 2d 61 20 |-f 'date|s.c' -a |
|00000340| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|00000350| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|00000360| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 63 6c 6f |ar: Will| not clo|
|00000370| 62 62 65 72 20 65 78 69 | 73 74 69 6e 67 20 66 69 |bber exi|sting fi|
|00000380| 6c 65 20 5c 22 27 64 61 | 74 65 73 2e 63 27 5c 22 |le \"'da|tes.c'\"|
|00000390| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|000003a0| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 27 64 | Extract|ing \"'d|
|000003b0| 61 74 65 73 2e 63 27 5c | 22 20 5c 28 38 33 31 31 |ates.c'\|" \(8311|
|000003c0| 20 63 68 61 72 61 63 74 | 65 72 73 5c 29 0a 73 65 | charact|ers\).se|
|000003d0| 64 20 22 73 2f 5e 58 2f | 2f 22 20 3e 27 64 61 74 |d "s/^X/|/" >'dat|
|000003e0| 65 73 2e 63 27 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |es.c' <<|'END_OF_|
|000003f0| 46 49 4c 45 27 0a 58 2f | 2a 20 40 28 23 29 64 61 |FILE'.X/|* @(#)da|
|00000400| 74 65 73 2e 63 09 31 2e | 31 09 28 63 29 20 63 6f |tes.c.1.|1.(c) co|
|00000410| 70 79 72 69 67 68 74 20 | 31 30 2f 31 35 2f 38 36 |pyright |10/15/86|
|00000420| 20 28 44 61 6e 20 48 65 | 6c 6c 65 72 29 20 2a 2f | (Dan He|ller) */|
|00000430| 0a 58 0a 58 23 69 6e 63 | 6c 75 64 65 20 22 6d 75 |.X.X#inc|lude "mu|
|00000440| 73 68 2e 68 22 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |sh.h".X.|X/*.X * |
|00000450| 20 20 25 30 32 64 25 30 | 32 64 25 30 32 64 25 30 | %02d%0|2d%02d%0|
|00000460| 32 64 25 30 32 64 25 73 | 20 20 79 79 20 6d 6d 20 |2d%02d%s| yy mm |
|00000470| 64 64 20 68 68 20 6d 6d | 20 77 65 65 6b 64 61 79 |dd hh mm| weekday|
|00000480| 0a 58 20 2a 20 54 68 65 | 20 73 74 61 6e 64 61 72 |.X * The| standar|
|00000490| 64 20 22 64 61 74 65 20 | 66 6f 72 6d 61 74 22 20 |d "date |format" |
|000004a0| 73 74 6f 72 65 64 20 69 | 6e 20 74 68 65 20 6d 73 |stored i|n the ms|
|000004b0| 67 20 64 61 74 61 20 73 | 74 72 75 63 74 75 72 65 |g data s|tructure|
|000004c0| 2e 0a 58 20 2a 2f 0a 58 | 63 68 61 72 20 2a 64 61 |..X */.X|char *da|
|000004d0| 79 5f 6e 61 6d 65 73 5b | 5d 20 3d 20 7b 0a 58 20 |y_names[|] = {.X |
|000004e0| 20 20 20 22 53 75 6e 22 | 2c 20 22 4d 6f 6e 22 2c | "Sun"|, "Mon",|
|000004f0| 20 22 54 75 65 22 2c 20 | 22 57 65 64 22 2c 20 22 | "Tue", |"Wed", "|
|00000500| 54 68 75 22 2c 20 22 46 | 72 69 22 2c 20 22 53 61 |Thu", "F|ri", "Sa|
|00000510| 74 22 0a 58 7d 3b 0a 58 | 63 68 61 72 20 2a 6d 6f |t".X};.X|char *mo|
|00000520| 6e 74 68 5f 6e 61 6d 65 | 73 5b 5d 20 3d 20 7b 20 |nth_name|s[] = { |
|00000530| 20 20 20 20 2f 2a 20 69 | 6d 70 6f 72 74 65 64 20 | /* i|mported |
|00000540| 69 6e 20 70 69 63 6b 2e | 63 20 2a 2f 0a 58 20 20 |in pick.|c */.X |
|00000550| 20 20 22 4a 61 6e 22 2c | 20 22 46 65 62 22 2c 20 | "Jan",| "Feb", |
|00000560| 22 4d 61 72 22 2c 20 22 | 41 70 72 22 2c 20 22 4d |"Mar", "|Apr", "M|
|00000570| 61 79 22 2c 20 22 4a 75 | 6e 22 2c 0a 58 20 20 20 |ay", "Ju|n",.X |
|00000580| 20 22 4a 75 6c 22 2c 20 | 22 41 75 67 22 2c 20 22 | "Jul", |"Aug", "|
|00000590| 53 65 70 22 2c 20 22 4f | 63 74 22 2c 20 22 4e 6f |Sep", "O|ct", "No|
|000005a0| 76 22 2c 20 22 44 65 63 | 22 0a 58 7d 3b 0a 58 0a |v", "Dec|".X};.X.|
|000005b0| 58 2f 2a 20 54 69 6d 65 | 28 29 20 72 65 74 75 72 |X/* Time|() retur|
|000005c0| 6e 73 20 61 20 73 74 72 | 69 6e 67 20 61 63 63 6f |ns a str|ing acco|
|000005d0| 72 64 69 6e 67 20 74 6f | 20 63 72 69 74 65 72 69 |rding to| criteri|
|000005e0| 61 3a 0a 58 20 2a 20 20 | 20 69 66 20 22 6e 6f 77 |a:.X * | if "now|
|000005f0| 22 20 69 73 20 30 2c 20 | 74 68 65 6e 20 74 68 65 |" is 0, |then the|
|00000600| 20 63 75 72 72 65 6e 74 | 20 74 69 6d 65 20 69 73 | current| time is|
|00000610| 20 67 6f 74 74 65 6e 20 | 61 6e 64 20 75 73 65 64 | gotten |and used|
|00000620| 2e 0a 58 20 2a 20 20 20 | 20 20 20 20 65 6c 73 65 |..X * | else|
|00000630| 2c 20 75 73 65 20 74 68 | 65 20 74 69 6d 65 20 64 |, use th|e time d|
|00000640| 65 73 63 72 69 62 65 64 | 20 62 79 20 6e 6f 77 0a |escribed| by now.|
|00000650| 58 20 2a 20 20 20 6f 70 | 74 73 20 70 6f 69 6e 74 |X * op|ts point|
|00000660| 73 20 74 6f 20 61 20 73 | 74 72 69 6e 67 20 6f 66 |s to a s|tring of|
|00000670| 20 61 72 67 73 20 77 68 | 69 63 68 20 69 73 20 70 | args wh|ich is p|
|00000680| 61 72 73 65 64 20 75 6e | 74 69 6c 20 61 6e 20 75 |arsed un|til an u|
|00000690| 6e 6b 6e 6f 77 6e 0a 58 | 20 2a 20 20 20 20 20 20 |nknown.X| * |
|000006a0| 20 61 72 67 20 69 73 20 | 66 6f 75 6e 64 20 61 6e | arg is |found an|
|000006b0| 64 20 6f 70 74 73 20 77 | 69 6c 6c 20 70 6f 69 6e |d opts w|ill poin|
|000006c0| 74 20 74 6f 20 74 68 61 | 74 20 75 70 6f 6e 20 72 |t to tha|t upon r|
|000006d0| 65 74 75 72 6e 2e 0a 58 | 20 2a 20 20 20 76 61 6c |eturn..X| * val|
|000006e0| 69 64 20 61 72 67 73 20 | 61 72 65 20 54 20 28 74 |id args |are T (t|
|000006f0| 69 6d 65 20 6f 66 20 64 | 61 79 29 2c 20 44 20 28 |ime of d|ay), D (|
|00000700| 64 61 79 20 6f 66 20 77 | 65 65 6b 29 2c 20 4d 20 |day of w|eek), M |
|00000710| 28 6d 6f 6e 74 68 29 2c | 20 59 20 28 79 65 61 72 |(month),| Y (year|
|00000720| 29 2c 0a 58 20 2a 20 20 | 20 20 20 20 20 4e 20 28 |),.X * | N (|
|00000730| 6e 75 6d 62 65 72 20 6f | 66 20 64 61 79 20 69 6e |number o|f day in|
|00000740| 20 6d 6f 6e 74 68 20 2d | 2d 20 63 6f 75 6c 64 6e | month -|- couldn|
|00000750| 27 74 20 74 68 69 6e 6b | 20 6f 66 20 61 20 62 65 |'t think| of a be|
|00000760| 74 74 65 72 20 6c 65 74 | 74 65 72 29 2e 0a 58 20 |tter let|ter)..X |
|00000770| 2a 2f 0a 58 63 68 61 72 | 20 2a 0a 58 54 69 6d 65 |*/.Xchar| *.XTime|
|00000780| 28 6f 70 74 73 2c 20 6e | 6f 77 29 0a 58 72 65 67 |(opts, n|ow).Xreg|
|00000790| 69 73 74 65 72 20 63 68 | 61 72 20 2a 6f 70 74 73 |ister ch|ar *opts|
|000007a0| 3b 0a 58 6c 6f 6e 67 20 | 6e 6f 77 3b 0a 58 7b 0a |;.Xlong |now;.X{.|
|000007b0| 58 20 20 20 20 73 74 61 | 74 69 63 20 63 68 61 72 |X sta|tic char|
|000007c0| 20 74 69 6d 65 5f 62 75 | 66 5b 33 30 5d 3b 0a 58 | time_bu|f[30];.X|
|000007d0| 20 20 20 20 73 74 72 75 | 63 74 20 74 6d 20 09 20 | stru|ct tm . |
|000007e0| 20 2a 54 3b 0a 58 20 20 | 20 20 72 65 67 69 73 74 | *T;.X | regist|
|000007f0| 65 72 20 63 68 61 72 20 | 2a 70 20 3d 20 74 69 6d |er char |*p = tim|
|00000800| 65 5f 62 75 66 3b 0a 58 | 20 20 20 20 6c 6f 6e 67 |e_buf;.X| long|
|00000810| 09 20 20 78 3b 0a 58 0a | 58 20 20 20 20 69 66 20 |. x;.X.|X if |
|00000820| 28 21 6f 70 74 73 29 0a | 58 09 72 65 74 75 72 6e |(!opts).|X.return|
|00000830| 20 4e 55 4c 4c 3b 0a 58 | 20 20 20 20 69 66 20 28 | NULL;.X| if (|
|00000840| 6e 6f 77 29 0a 58 09 78 | 20 3d 20 6e 6f 77 3b 0a |now).X.x| = now;.|
|00000850| 58 20 20 20 20 65 6c 73 | 65 0a 58 09 28 76 6f 69 |X els|e.X.(voi|
|00000860| 64 29 20 74 69 6d 65 28 | 26 78 29 3b 0a 58 20 20 |d) time(|&x);.X |
|00000870| 20 20 54 20 3d 20 6c 6f | 63 61 6c 74 69 6d 65 28 | T = lo|caltime(|
|00000880| 26 78 29 3b 0a 58 20 20 | 20 20 66 6f 72 20 28 3b |&x);.X | for (;|
|00000890| 3b 20 6f 70 74 73 2b 2b | 29 20 7b 0a 58 09 73 77 |; opts++|) {.X.sw|
|000008a0| 69 74 63 68 28 2a 6f 70 | 74 73 29 20 7b 0a 58 09 |itch(*op|ts) {.X.|
|000008b0| 20 20 20 20 63 61 73 65 | 20 27 54 27 3a 0a 58 09 | case| 'T':.X.|
|000008c0| 09 69 66 20 28 69 73 6f | 6e 28 67 6c 6f 62 5f 66 |.if (iso|n(glob_f|
|000008d0| 6c 61 67 73 2c 20 4d 49 | 4c 5f 54 49 4d 45 29 29 |lags, MI|L_TIME))|
|000008e0| 0a 58 09 09 20 20 20 20 | 28 76 6f 69 64 29 20 73 |.X.. |(void) s|
|000008f0| 70 72 69 6e 74 66 28 70 | 2c 20 22 25 32 64 3a 25 |printf(p|, "%2d:%|
|00000900| 30 32 64 22 2c 20 54 2d | 3e 74 6d 5f 68 6f 75 72 |02d", T-|>tm_hour|
|00000910| 2c 20 54 2d 3e 74 6d 5f | 6d 69 6e 29 3b 0a 58 09 |, T->tm_|min);.X.|
|00000920| 09 65 6c 73 65 0a 58 09 | 09 20 20 20 20 28 76 6f |.else.X.|. (vo|
|00000930| 69 64 29 20 73 70 72 69 | 6e 74 66 28 70 2c 20 22 |id) spri|ntf(p, "|
|00000940| 25 64 3a 25 30 32 64 22 | 2c 20 28 54 2d 3e 74 6d |%d:%02d"|, (T->tm|
|00000950| 5f 68 6f 75 72 29 20 3f | 0a 58 09 09 09 20 20 28 |_hour) ?|.X... (|
|00000960| 28 54 2d 3e 74 6d 5f 68 | 6f 75 72 20 3c 3d 20 31 |(T->tm_h|our <= 1|
|00000970| 32 29 20 3f 20 54 2d 3e | 74 6d 5f 68 6f 75 72 20 |2) ? T->|tm_hour |
|00000980| 3a 20 54 2d 3e 74 6d 5f | 68 6f 75 72 20 2d 20 31 |: T->tm_|hour - 1|
|00000990| 32 29 20 3a 0a 58 09 09 | 09 20 20 31 32 2c 20 54 |2) :.X..|. 12, T|
|000009a0| 2d 3e 74 6d 5f 6d 69 6e | 29 3b 0a 58 09 20 20 20 |->tm_min|);.X. |
|000009b0| 20 77 68 65 6e 20 27 44 | 27 3a 20 63 61 73 65 20 | when 'D|': case |
|000009c0| 27 57 27 3a 20 28 76 6f | 69 64 29 20 73 74 72 63 |'W': (vo|id) strc|
|000009d0| 70 79 28 70 2c 20 64 61 | 79 5f 6e 61 6d 65 73 5b |py(p, da|y_names[|
|000009e0| 54 2d 3e 74 6d 5f 77 64 | 61 79 5d 29 3b 0a 58 09 |T->tm_wd|ay]);.X.|
|000009f0| 20 20 20 20 77 68 65 6e | 20 27 4d 27 3a 20 28 76 | when| 'M': (v|
|00000a00| 6f 69 64 29 20 73 74 72 | 63 70 79 28 70 2c 20 6d |oid) str|cpy(p, m|
|00000a10| 6f 6e 74 68 5f 6e 61 6d | 65 73 5b 54 2d 3e 74 6d |onth_nam|es[T->tm|
|00000a20| 5f 6d 6f 6e 5d 29 3b 0a | 58 09 20 20 20 20 77 68 |_mon]);.|X. wh|
|00000a30| 65 6e 20 27 79 27 3a 20 | 28 76 6f 69 64 29 20 73 |en 'y': |(void) s|
|00000a40| 70 72 69 6e 74 66 28 70 | 2c 20 22 25 64 22 2c 20 |printf(p|, "%d", |
|00000a50| 54 2d 3e 74 6d 5f 79 65 | 61 72 29 3b 0a 58 09 20 |T->tm_ye|ar);.X. |
|00000a60| 20 20 20 77 68 65 6e 20 | 27 59 27 3a 20 28 76 6f | when |'Y': (vo|
|00000a70| 69 64 29 20 73 70 72 69 | 6e 74 66 28 70 2c 20 22 |id) spri|ntf(p, "|
|00000a80| 31 39 25 64 22 2c 20 54 | 2d 3e 74 6d 5f 79 65 61 |19%d", T|->tm_yea|
|00000a90| 72 29 3b 0a 58 09 20 20 | 20 20 77 68 65 6e 20 27 |r);.X. | when '|
|00000aa0| 4e 27 3a 20 28 76 6f 69 | 64 29 20 73 70 72 69 6e |N': (voi|d) sprin|
|00000ab0| 74 66 28 70 2c 20 22 25 | 64 22 2c 20 54 2d 3e 74 |tf(p, "%|d", T->t|
|00000ac0| 6d 5f 6d 64 61 79 29 3b | 0a 58 09 20 20 20 20 6f |m_mday);|.X. o|
|00000ad0| 74 68 65 72 77 69 73 65 | 3a 20 2a 2d 2d 70 20 3d |therwise|: *--p =|
|00000ae0| 20 30 3b 20 72 65 74 75 | 72 6e 20 74 69 6d 65 5f | 0; retu|rn time_|
|00000af0| 62 75 66 3b 0a 58 09 7d | 0a 58 09 70 20 2b 3d 20 |buf;.X.}|.X.p += |
|00000b00| 73 74 72 6c 65 6e 28 70 | 29 3b 0a 58 09 2a 70 2b |strlen(p|);.X.*p+|
|00000b10| 2b 20 3d 20 27 20 27 3b | 0a 58 20 20 20 20 7d 0a |+ = ' ';|.X }.|
|00000b20| 58 7d 0a 58 0a 58 2f 2a | 20 70 61 72 73 65 20 64 |X}.X.X/*| parse d|
|00000b30| 61 74 65 20 61 6e 64 20 | 72 65 74 75 72 6e 20 61 |ate and |return a|
|00000b40| 20 73 74 72 69 6e 67 20 | 74 68 61 74 20 6c 6f 6f | string |that loo|
|00000b50| 6b 73 20 6c 69 6b 65 0a | 58 20 2a 20 20 20 20 22 |ks like.|X * "|
|00000b60| 25 32 64 25 32 64 25 32 | 64 25 32 64 25 32 64 25 |%2d%2d%2|d%2d%2d%|
|00000b70| 33 63 22 2c 20 77 6b 64 | 61 79 2c 79 72 2c 6d 6f |3c", wkd|ay,yr,mo|
|00000b80| 2c 64 61 74 65 2c 68 72 | 73 2c 6d 69 6e 73 0a 58 |,date,hr|s,mins.X|
|00000b90| 20 2a 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | * This |function|
|00000ba0| 20 69 73 20 61 20 62 75 | 6e 63 68 20 6f 66 20 73 | is a bu|nch of s|
|00000bb0| 63 61 6e 66 73 20 6f 6e | 20 6b 6e 6f 77 6e 20 64 |canfs on| known d|
|00000bc0| 61 74 65 20 66 6f 72 6d | 61 74 73 2e 20 20 44 6f |ate form|ats. Do|
|00000bd0| 6e 27 74 0a 58 20 2a 20 | 74 72 75 73 74 20 74 68 |n't.X * |trust th|
|00000be0| 65 20 22 77 65 65 6b 64 | 61 79 22 20 6e 61 6d 65 |e "weekd|ay" name|
|00000bf0| 20 66 69 65 6c 64 73 20 | 62 65 63 61 75 73 65 20 | fields |because |
|00000c00| 74 68 65 79 20 6d 61 79 | 20 6e 6f 74 20 62 65 20 |they may| not be |
|00000c10| 73 70 65 6c 6c 65 64 0a | 58 20 2a 20 72 69 67 68 |spelled.|X * righ|
|00000c20| 74 2c 20 6f 72 20 68 61 | 76 65 20 74 68 65 20 63 |t, or ha|ve the c|
|00000c30| 6f 72 72 65 63 74 20 70 | 75 6e 63 74 75 61 74 69 |orrect p|unctuati|
|00000c40| 6f 6e 2e 20 20 46 69 67 | 75 72 65 20 69 74 20 6f |on. Fig|ure it o|
|00000c50| 75 74 20 6f 6e 63 65 20 | 74 68 65 0a 58 20 2a 20 |ut once |the.X * |
|00000c60| 79 65 61 72 20 61 6e 64 | 20 6d 6f 6e 74 68 20 61 |year and| month a|
|00000c70| 6e 64 20 64 61 74 65 20 | 68 61 76 65 20 62 65 65 |nd date |have bee|
|00000c80| 6e 20 64 65 74 65 72 6d | 69 6e 65 64 2e 0a 58 20 |n determ|ined..X |
|00000c90| 2a 2f 0a 58 63 68 61 72 | 20 2a 0a 58 70 61 72 73 |*/.Xchar| *.Xpars|
|00000ca0| 65 5f 64 61 74 65 28 70 | 29 0a 58 72 65 67 69 73 |e_date(p|).Xregis|
|00000cb0| 74 65 72 20 63 68 61 72 | 20 2a 70 3b 0a 58 7b 0a |ter char| *p;.X{.|
|00000cc0| 58 20 20 20 20 2f 2a 20 | 57 68 65 6e 20 73 63 61 |X /* |When sca|
|00000cd0| 6e 66 2d 69 6e 67 20 69 | 66 20 6d 6f 6e 74 68 20 |nf-ing i|f month |
|00000ce0| 69 73 6e 27 74 20 61 20 | 6d 6f 6e 74 68 2c 20 69 |isn't a |month, i|
|00000cf0| 74 20 63 6f 75 6c 64 20 | 62 65 20 61 20 5f 6c 6f |t could |be a _lo|
|00000d00| 6e 67 5f 20 73 74 72 69 | 6e 67 2e 0a 58 20 20 20 |ng_ stri|ng..X |
|00000d10| 20 20 2a 20 74 68 69 73 | 20 69 73 20 61 6c 73 6f | * this| is also|
|00000d20| 20 74 68 65 20 73 74 61 | 74 69 63 20 62 75 66 66 | the sta|tic buff|
|00000d30| 65 72 20 77 68 6f 73 65 | 20 61 64 64 72 65 73 73 |er whose| address|
|00000d40| 20 77 65 20 72 65 74 75 | 72 6e 2e 0a 58 20 20 20 | we retu|rn..X |
|00000d50| 20 20 2a 2f 0a 58 20 20 | 20 20 73 74 61 74 69 63 | */.X | static|
|00000d60| 20 63 68 61 72 20 6d 6f | 6e 74 68 5b 36 34 5d 3b | char mo|nth[64];|
|00000d70| 0a 58 20 20 20 20 63 68 | 61 72 20 57 6b 64 61 79 |.X ch|ar Wkday|
|00000d80| 5b 34 5d 3b 0a 58 20 20 | 20 20 69 6e 74 20 4d 6f |[4];.X | int Mo|
|00000d90| 6e 74 68 20 3d 20 30 2c | 20 44 61 79 20 3d 20 30 |nth = 0,| Day = 0|
|00000da0| 2c 20 59 65 61 72 20 3d | 20 30 2c 20 48 6f 75 72 |, Year =| 0, Hour|
|00000db0| 73 20 3d 20 2d 31 2c 20 | 4d 69 6e 73 20 3d 20 2d |s = -1, |Mins = -|
|00000dc0| 31 3b 0a 58 0a 58 20 20 | 20 20 73 6b 69 70 73 70 |1;.X.X | skipsp|
|00000dd0| 61 63 65 73 28 30 29 3b | 0a 58 0a 58 20 20 20 20 |aces(0);|.X.X |
|00000de0| 2f 2a 20 50 6f 73 73 69 | 62 6c 65 20 63 6f 6d 62 |/* Possi|ble comb|
|00000df0| 69 6e 61 74 69 6f 6e 73 | 20 74 68 61 74 20 77 65 |inations| that we|
|00000e00| 20 63 6f 75 6c 64 20 68 | 61 76 65 3a 0a 58 20 20 | could h|ave:.X |
|00000e10| 20 20 20 2a 20 20 20 64 | 61 79 5f 6e 75 6d 62 65 | * d|ay_numbe|
|00000e20| 72 20 6d 6f 6e 74 68 5f | 6e 61 6d 65 20 79 65 61 |r month_|name yea|
|00000e30| 72 5f 6e 75 6d 62 65 72 | 20 74 69 6d 65 20 74 69 |r_number| time ti|
|00000e40| 6d 65 7a 6f 6e 65 20 2e | 2e 2e 0a 58 20 20 20 20 |mezone .|...X |
|00000e50| 20 2a 20 20 20 64 61 79 | 5f 6e 61 6d 65 20 6d 6f | * day|_name mo|
|00000e60| 6e 74 68 5f 6e 61 6d 65 | 20 64 61 79 5f 6e 75 6d |nth_name| day_num|
|00000e70| 62 65 72 20 74 69 6d 65 | 20 79 65 61 72 5f 6e 75 |ber time| year_nu|
|00000e80| 6d 62 65 72 0a 58 20 20 | 20 20 20 2a 20 20 20 64 |mber.X | * d|
|00000e90| 61 79 5f 6e 61 6d 65 20 | 6d 6f 6e 74 68 5f 6e 61 |ay_name |month_na|
|00000ea0| 6d 65 20 64 61 79 5f 6e | 75 6d 62 65 72 20 79 65 |me day_n|umber ye|
|00000eb0| 61 72 5f 6e 75 6d 62 65 | 72 20 74 69 6d 65 0a 58 |ar_numbe|r time.X|
|00000ec0| 20 20 20 20 20 2a 20 20 | 20 64 61 79 5f 6e 61 6d | * | day_nam|
|00000ed0| 65 20 64 61 79 5f 6e 75 | 6d 62 65 72 20 6d 6f 6e |e day_nu|mber mon|
|00000ee0| 74 68 5f 6e 61 6d 65 20 | 79 65 61 72 5f 6e 75 6d |th_name |year_num|
|00000ef0| 62 65 72 20 74 69 6d 65 | 0a 58 20 20 20 20 20 2a |ber time|.X *|
|00000f00| 20 20 20 64 61 79 5f 6e | 75 6d 62 65 72 20 6d 6f | day_n|umber mo|
|00000f10| 6e 74 68 5f 6e 61 6d 65 | 20 79 65 61 72 5f 6e 75 |nth_name| year_nu|
|00000f20| 6d 62 65 72 20 74 69 6d | 65 0a 58 20 20 20 20 20 |mber tim|e.X |
|00000f30| 2a 20 20 20 64 61 79 5f | 6e 75 6d 62 65 72 20 6d |* day_|number m|
|00000f40| 6f 6e 74 68 5f 6e 61 6d | 65 20 79 65 61 72 5f 6e |onth_nam|e year_n|
|00000f50| 75 6d 62 65 72 20 74 69 | 6d 65 2d 74 69 6d 65 7a |umber ti|me-timez|
|00000f60| 6f 6e 65 20 28 64 61 79 | 29 0a 58 20 20 20 20 20 |one (day|).X |
|00000f70| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f90| 20 20 20 20 20 20 20 20 | 5e 6e 6f 20 63 6f 6c 6f | |^no colo|
|00000fa0| 6e 20 73 65 70 61 72 61 | 74 6f 72 0a 58 20 20 20 |n separa|tor.X |
|00000fb0| 20 20 2a 20 20 20 64 61 | 79 5f 6e 61 6d 65 20 6d | * da|y_name m|
|00000fc0| 6f 6e 74 68 5f 6e 61 6d | 65 20 64 61 79 5f 6e 75 |onth_nam|e day_nu|
|00000fd0| 6d 62 65 72 20 74 69 6d | 65 20 74 69 6d 65 7a 6f |mber tim|e timezo|
|00000fe0| 6e 65 20 79 65 61 72 5f | 6e 75 6d 62 65 72 0a 58 |ne year_|number.X|
|00000ff0| 20 20 20 20 20 2a 20 20 | 20 64 61 79 5f 6e 75 6d | * | day_num|
|00001000| 62 65 72 2d 6d 6f 6e 74 | 68 5f 6e 61 6d 65 2d 79 |ber-mont|h_name-y|
|00001010| 65 61 72 20 74 69 6d 65 | 0a 58 20 20 20 20 20 2a |ear time|.X *|
|00001020| 20 20 20 64 61 79 5f 6e | 61 6d 65 2c 20 64 61 79 | day_n|ame, day|
|00001030| 5f 6e 75 6d 62 65 72 2d | 6d 6f 6e 74 68 5f 6e 61 |_number-|month_na|
|00001040| 6d 65 2d 79 65 61 72 20 | 74 69 6d 65 0a 58 20 20 |me-year |time.X |
|00001050| 20 20 20 2a 20 20 20 64 | 61 79 5f 6e 75 6d 62 65 | * d|ay_numbe|
|00001060| 72 20 6d 6f 6e 74 68 5f | 6e 61 6d 65 20 79 65 61 |r month_|name yea|
|00001070| 72 5f 6e 75 6d 62 65 72 | 2c 20 74 69 6d 65 20 22 |r_number|, time "|
|00001080| 2d 22 0a 58 20 20 20 20 | 20 2a 2f 0a 58 20 20 20 |-".X | */.X |
|00001090| 20 2f 2a 20 70 72 6f 67 | 72 61 6d 6d 65 72 27 73 | /* prog|rammer's|
|000010a0| 20 6e 6f 74 65 20 2d 2d | 20 74 68 65 72 65 20 61 | note --| there a|
|000010b0| 72 65 20 74 6f 6f 20 6d | 61 6e 79 20 73 63 61 6e |re too m|any scan|
|000010c0| 66 73 20 68 65 72 65 20 | 66 6f 72 20 73 6f 6d 65 |fs here |for some|
|000010d0| 20 63 6f 6d 70 69 6c 65 | 72 73 0a 58 20 20 20 20 | compile|rs.X |
|000010e0| 20 2a 20 74 6f 20 70 75 | 74 20 74 68 65 6d 20 61 | * to pu|t them a|
|000010f0| 6c 6c 20 69 6e 74 6f 20 | 6f 6e 65 20 69 66 20 73 |ll into |one if s|
|00001100| 74 61 74 65 6d 65 6e 74 | 2e 20 20 55 73 65 20 67 |tatement|. Use g|
|00001110| 6f 74 6f 27 73 20 3a 2d | 28 0a 58 20 20 20 20 20 |oto's :-|(.X |
|00001120| 2a 2f 0a 58 20 20 20 20 | 69 66 20 28 73 73 63 61 |*/.X |if (ssca|
|00001130| 6e 66 28 70 2c 20 22 25 | 2a 73 20 25 73 20 25 64 |nf(p, "%|*s %s %d|
|00001140| 20 25 64 20 25 64 3a 25 | 64 22 2c 20 6d 6f 6e 74 | %d %d:%|d", mont|
|00001150| 68 2c 26 44 61 79 2c 26 | 59 65 61 72 2c 26 48 6f |h,&Day,&|Year,&Ho|
|00001160| 75 72 73 2c 26 4d 69 6e | 73 29 20 3d 3d 20 35 29 |urs,&Min|s) == 5)|
|00001170| 0a 58 09 67 6f 74 6f 20 | 67 6f 74 69 74 3b 0a 58 |.X.goto |gotit;.X|
|00001180| 20 20 20 20 69 66 20 28 | 73 73 63 61 6e 66 28 70 | if (|sscanf(p|
|00001190| 2c 20 22 25 64 20 25 73 | 20 25 64 20 25 64 3a 25 |, "%d %s| %d %d:%|
|000011a0| 64 22 2c 20 26 44 61 79 | 2c 6d 6f 6e 74 68 2c 26 |d", &Day|,month,&|
|000011b0| 59 65 61 72 2c 26 48 6f | 75 72 73 2c 26 4d 69 6e |Year,&Ho|urs,&Min|
|000011c0| 73 29 20 3d 3d 20 35 29 | 0a 58 09 67 6f 74 6f 20 |s) == 5)|.X.goto |
|000011d0| 67 6f 74 69 74 3b 0a 58 | 20 20 20 20 69 66 20 28 |gotit;.X| if (|
|000011e0| 73 73 63 61 6e 66 28 70 | 2c 20 22 25 2a 73 20 25 |sscanf(p|, "%*s %|
|000011f0| 73 20 25 64 20 25 64 3a | 25 64 3a 25 2a 64 20 25 |s %d %d:|%d:%*d %|
|00001200| 64 22 2c 20 6d 6f 6e 74 | 68 2c 26 44 61 79 2c 26 |d", mont|h,&Day,&|
|00001210| 48 6f 75 72 73 2c 26 4d | 69 6e 73 2c 26 59 65 61 |Hours,&M|ins,&Yea|
|00001220| 72 29 20 3d 3d 20 35 29 | 0a 58 09 67 6f 74 6f 20 |r) == 5)|.X.goto |
|00001230| 67 6f 74 69 74 3b 0a 58 | 20 20 20 20 69 66 20 28 |gotit;.X| if (|
|00001240| 73 73 63 61 6e 66 28 70 | 2c 20 22 25 2a 73 20 25 |sscanf(p|, "%*s %|
|00001250| 64 20 25 73 20 25 64 20 | 25 64 3a 25 64 22 2c 20 |d %s %d |%d:%d", |
|00001260| 26 44 61 79 2c 6d 6f 6e | 74 68 2c 26 59 65 61 72 |&Day,mon|th,&Year|
|00001270| 2c 26 48 6f 75 72 73 2c | 26 4d 69 6e 73 29 20 3d |,&Hours,|&Mins) =|
|00001280| 3d 20 35 29 0a 58 09 67 | 6f 74 6f 20 67 6f 74 69 |= 5).X.g|oto goti|
|00001290| 74 3b 0a 58 20 20 20 20 | 69 66 20 28 73 73 63 61 |t;.X |if (ssca|
|000012a0| 6e 66 28 70 2c 20 22 25 | 64 20 25 73 20 25 64 20 |nf(p, "%|d %s %d |
|000012b0| 25 64 3a 25 64 22 2c 20 | 26 44 61 79 2c 6d 6f 6e |%d:%d", |&Day,mon|
|000012c0| 74 68 2c 26 59 65 61 72 | 2c 26 48 6f 75 72 73 2c |th,&Year|,&Hours,|
|000012d0| 26 4d 69 6e 73 29 20 3d | 3d 20 35 29 0a 58 09 67 |&Mins) =|= 5).X.g|
|000012e0| 6f 74 6f 20 67 6f 74 69 | 74 3b 0a 58 20 20 20 20 |oto goti|t;.X |
|000012f0| 69 66 20 28 73 73 63 61 | 6e 66 28 70 2c 20 22 25 |if (ssca|nf(p, "%|
|00001300| 64 20 25 73 20 25 64 20 | 25 32 64 25 32 64 22 2c |d %s %d |%2d%2d",|
|00001310| 20 26 44 61 79 2c 6d 6f | 6e 74 68 2c 26 59 65 61 | &Day,mo|nth,&Yea|
|00001320| 72 2c 26 48 6f 75 72 73 | 2c 26 4d 69 6e 73 29 20 |r,&Hours|,&Mins) |
|00001330| 3d 3d 20 35 29 0a 58 09 | 67 6f 74 6f 20 67 6f 74 |== 5).X.|goto got|
|00001340| 69 74 3b 0a 58 20 20 20 | 20 69 66 20 28 73 73 63 |it;.X | if (ssc|
|00001350| 61 6e 66 28 70 2c 20 22 | 25 2a 73 20 25 73 20 25 |anf(p, "|%*s %s %|
|00001360| 64 20 25 64 3a 25 64 3a | 25 2a 64 20 25 2a 73 20 |d %d:%d:|%*d %*s |
|00001370| 25 64 22 2c 0a 58 09 09 | 09 09 09 6d 6f 6e 74 68 |%d",.X..|...month|
|00001380| 2c 20 26 44 61 79 2c 20 | 26 48 6f 75 72 73 2c 20 |, &Day, |&Hours, |
|00001390| 26 4d 69 6e 73 2c 20 26 | 59 65 61 72 29 20 3d 3d |&Mins, &|Year) ==|
|000013a0| 20 35 29 0a 58 09 67 6f | 74 6f 20 67 6f 74 69 74 | 5).X.go|to gotit|
|000013b0| 3b 0a 58 20 20 20 20 69 | 66 20 28 73 73 63 61 6e |;.X i|f (sscan|
|000013c0| 66 28 70 2c 20 22 25 2a | 73 20 25 73 20 25 64 20 |f(p, "%*|s %s %d |
|000013d0| 25 64 3a 25 64 20 25 2a | 73 20 25 64 22 2c 0a 58 |%d:%d %*|s %d",.X|
|000013e0| 09 09 09 09 09 6d 6f 6e | 74 68 2c 20 26 44 61 79 |.....mon|th, &Day|
|000013f0| 2c 20 26 48 6f 75 72 73 | 2c 20 26 4d 69 6e 73 2c |, &Hours|, &Mins,|
|00001400| 20 26 59 65 61 72 29 20 | 3d 3d 20 35 29 0a 58 09 | &Year) |== 5).X.|
|00001410| 67 6f 74 6f 20 67 6f 74 | 69 74 3b 0a 58 20 20 20 |goto got|it;.X |
|00001420| 20 69 66 20 28 73 73 63 | 61 6e 66 28 70 2c 22 25 | if (ssc|anf(p,"%|
|00001430| 64 2d 25 5b 5e 2d 5d 2d | 25 64 20 25 64 3a 25 64 |d-%[^-]-|%d %d:%d|
|00001440| 22 2c 20 26 44 61 79 2c | 20 6d 6f 6e 74 68 2c 20 |", &Day,| month, |
|00001450| 26 59 65 61 72 2c 20 26 | 48 6f 75 72 73 2c 20 26 |&Year, &|Hours, &|
|00001460| 4d 69 6e 73 29 20 3d 3d | 20 35 29 0a 58 09 67 6f |Mins) ==| 5).X.go|
|00001470| 74 6f 20 67 6f 74 69 74 | 3b 0a 58 20 20 20 20 69 |to gotit|;.X i|
|00001480| 66 20 28 73 73 63 61 6e | 66 28 70 2c 22 25 64 20 |f (sscan|f(p,"%d |
|00001490| 25 73 20 25 64 2c 20 25 | 64 3a 25 64 3a 25 2a 64 |%s %d, %|d:%d:%*d|
|000014a0| 20 2d 22 2c 26 44 61 79 | 2c 20 6d 6f 6e 74 68 2c | -",&Day|, month,|
|000014b0| 20 26 59 65 61 72 2c 20 | 26 48 6f 75 72 73 2c 20 | &Year, |&Hours, |
|000014c0| 26 4d 69 6e 73 29 3d 3d | 20 35 29 0a 58 09 67 6f |&Mins)==| 5).X.go|
|000014d0| 74 6f 20 67 6f 74 69 74 | 3b 0a 58 20 20 20 20 69 |to gotit|;.X i|
|000014e0| 66 20 28 73 73 63 61 6e | 66 28 70 2c 22 25 2a 73 |f (sscan|f(p,"%*s|
|000014f0| 20 25 64 2d 25 5b 5e 2d | 5d 2d 25 64 20 25 64 3a | %d-%[^-|]-%d %d:|
|00001500| 25 64 22 2c 26 44 61 79 | 2c 20 6d 6f 6e 74 68 2c |%d",&Day|, month,|
|00001510| 20 26 59 65 61 72 2c 20 | 26 48 6f 75 72 73 2c 20 | &Year, |&Hours, |
|00001520| 26 4d 69 6e 73 29 3d 3d | 20 35 29 0a 58 09 67 6f |&Mins)==| 5).X.go|
|00001530| 74 6f 20 67 6f 74 69 74 | 3b 0a 58 20 20 20 20 67 |to gotit|;.X g|
|00001540| 6f 74 6f 20 64 69 64 6e | 74 5f 67 65 74 69 74 3b |oto didn|t_getit;|
|00001550| 0a 58 67 6f 74 69 74 3a | 0a 58 20 20 20 20 69 66 |.Xgotit:|.X if|
|00001560| 20 28 59 65 61 72 20 3e | 20 39 39 29 0a 58 09 59 | (Year >| 99).X.Y|
|00001570| 65 61 72 20 25 3d 20 31 | 30 30 3b 0a 58 20 20 20 |ear %= 1|00;.X |
|00001580| 20 69 66 20 28 28 4d 6f | 6e 74 68 20 3d 20 6d 6f | if ((Mo|nth = mo|
|00001590| 6e 74 68 5f 74 6f 5f 6e | 28 6d 6f 6e 74 68 29 29 |nth_to_n|(month))|
|000015a0| 20 3d 3d 20 2d 31 29 20 | 7b 0a 58 09 70 72 69 6e | == -1) |{.X.prin|
|000015b0| 74 28 22 62 61 64 20 6d | 6f 6e 74 68 3a 20 25 73 |t("bad m|onth: %s|
|000015c0| 5c 6e 22 2c 20 70 29 3b | 0a 58 09 72 65 74 75 72 |\n", p);|.X.retur|
|000015d0| 6e 20 4e 55 4c 4c 3b 0a | 58 20 20 20 20 7d 0a 58 |n NULL;.|X }.X|
|000015e0| 20 20 20 20 7b 0a 58 09 | 73 74 61 74 69 63 20 69 | {.X.|static i|
|000015f0| 6e 74 20 6d 74 62 6c 5b | 5d 3d 7b 30 2c 33 31 2c |nt mtbl[|]={0,31,|
|00001600| 35 39 2c 39 30 2c 31 32 | 30 2c 31 35 31 2c 31 38 |59,90,12|0,151,18|
|00001610| 31 2c 32 31 32 2c 32 34 | 33 2c 32 37 33 2c 33 30 |1,212,24|3,273,30|
|00001620| 34 2c 33 33 34 7d 3b 0a | 58 09 69 6e 74 20 64 61 |4,334};.|X.int da|
|00001630| 79 73 5f 63 74 72 3b 0a | 58 0a 58 20 20 20 20 09 |ys_ctr;.|X.X .|
|00001640| 64 61 79 73 5f 63 74 72 | 20 3d 20 28 28 59 65 61 |days_ctr| = ((Yea|
|00001650| 72 20 2a 20 33 36 35 29 | 20 2b 20 28 28 59 65 61 |r * 365)| + ((Yea|
|00001660| 72 20 2b 20 33 29 20 2f | 20 34 29 20 2b 20 6d 74 |r + 3) /| 4) + mt|
|00001670| 62 6c 5b 4d 6f 6e 74 68 | 2d 31 5d 20 2b 20 44 61 |bl[Month|-1] + Da|
|00001680| 79 20 2b 20 36 29 3b 0a | 58 20 20 20 20 09 69 66 |y + 6);.|X .if|
|00001690| 20 28 4d 6f 6e 74 68 20 | 3e 20 32 20 26 26 20 28 | (Month |> 2 && (|
|000016a0| 59 65 61 72 20 25 20 34 | 20 3d 3d 20 30 29 29 0a |Year % 4| == 0)).|
|000016b0| 58 09 20 20 20 20 64 61 | 79 73 5f 63 74 72 2b 2b |X. da|ys_ctr++|
|000016c0| 3b 0a 58 20 20 20 20 09 | 28 76 6f 69 64 29 20 28 |;.X .|(void) (|
|000016d0| 73 70 72 69 6e 74 66 28 | 57 6b 64 61 79 2c 20 22 |sprintf(|Wkday, "|
|000016e0| 25 2e 33 73 22 2c 20 64 | 61 79 5f 6e 61 6d 65 73 |%.3s", d|ay_names|
|000016f0| 5b 64 61 79 73 5f 63 74 | 72 20 25 20 37 5d 29 29 |[days_ct|r % 7]))|
|00001700| 3b 0a 58 20 20 20 20 7d | 0a 58 20 20 20 20 72 65 |;.X }|.X re|
|00001710| 74 75 72 6e 20 73 70 72 | 69 6e 74 66 28 6d 6f 6e |turn spr|intf(mon|
|00001720| 74 68 2c 20 22 25 30 32 | 64 25 30 32 64 25 30 32 |th, "%02|d%02d%02|
|00001730| 64 25 30 32 64 25 30 32 | 64 25 73 22 2c 0a 58 09 |d%02d%02|d%s",.X.|
|00001740| 09 09 20 20 59 65 61 72 | 2c 20 4d 6f 6e 74 68 2c |.. Year|, Month,|
|00001750| 20 44 61 79 2c 20 48 6f | 75 72 73 2c 20 4d 69 6e | Day, Ho|urs, Min|
|00001760| 73 2c 20 57 6b 64 61 79 | 29 3b 0a 58 64 69 64 6e |s, Wkday|);.Xdidn|
|00001770| 74 5f 67 65 74 69 74 3a | 0a 58 20 20 20 20 69 66 |t_getit:|.X if|
|00001780| 20 28 69 73 6f 6e 28 67 | 6c 6f 62 5f 66 6c 61 67 | (ison(g|lob_flag|
|00001790| 73 2c 20 57 41 52 4e 49 | 4e 47 29 29 0a 58 09 70 |s, WARNI|NG)).X.p|
|000017a0| 72 69 6e 74 28 22 55 6e | 6b 6e 6f 77 6e 20 64 61 |rint("Un|known da|
|000017b0| 74 65 20 66 6f 72 6d 61 | 74 3a 20 25 73 5c 6e 22 |te forma|t: %s\n"|
|000017c0| 2c 20 70 29 3b 0a 58 20 | 20 20 20 72 65 74 75 72 |, p);.X | retur|
|000017d0| 6e 20 4e 55 4c 4c 3b 0a | 58 7d 0a 58 0a 58 2f 2a |n NULL;.|X}.X.X/*|
|000017e0| 20 70 61 73 73 20 61 20 | 73 74 72 69 6e 67 20 69 | pass a |string i|
|000017f0| 6e 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 64 |n the st|andard d|
|00001800| 61 74 65 20 66 6f 72 6d | 61 74 2c 20 70 75 74 20 |ate form|at, put |
|00001810| 69 6e 74 6f 20 73 74 72 | 69 6e 67 2e 0a 58 20 2a |into str|ing..X *|
|00001820| 20 72 65 74 75 72 6e 20 | 76 61 6c 75 65 73 20 69 | return |values i|
|00001830| 6e 20 62 75 66 66 65 72 | 73 20 70 72 6f 76 69 64 |n buffer|s provid|
|00001840| 65 64 20 74 68 65 79 20 | 61 72 65 20 6e 6f 74 20 |ed they |are not |
|00001850| 6e 75 6c 6c 2e 0a 58 20 | 2a 2f 0a 58 63 68 61 72 |null..X |*/.Xchar|
|00001860| 20 2a 0a 58 64 61 74 65 | 5f 74 6f 5f 73 74 72 69 | *.Xdate|_to_stri|
|00001870| 6e 67 28 44 61 74 65 2c | 20 59 72 2c 20 4d 6f 6e |ng(Date,| Yr, Mon|
|00001880| 2c 20 44 61 79 2c 20 57 | 6b 64 61 79 2c 20 54 6d |, Day, W|kday, Tm|
|00001890| 2c 20 72 65 74 5f 62 75 | 66 29 0a 58 63 68 61 72 |, ret_bu|f).Xchar|
|000018a0| 20 2a 44 61 74 65 2c 20 | 2a 59 72 2c 20 2a 4d 6f | *Date, |*Yr, *Mo|
|000018b0| 6e 2c 20 2a 44 61 79 2c | 20 2a 57 6b 64 61 79 2c |n, *Day,| *Wkday,|
|000018c0| 20 2a 54 6d 2c 20 2a 72 | 65 74 5f 62 75 66 3b 0a | *Tm, *r|et_buf;.|
|000018d0| 58 7b 0a 58 20 20 20 20 | 75 6e 73 69 67 6e 65 64 |X{.X |unsigned|
|000018e0| 20 69 6e 74 20 64 61 79 | 73 5f 63 74 72 3b 0a 58 | int day|s_ctr;.X|
|000018f0| 20 20 20 20 69 6e 74 20 | 79 72 2c 20 6d 6f 6e 2c | int |yr, mon,|
|00001900| 20 64 61 79 2c 20 68 72 | 2c 20 6d 69 6e 73 3b 0a | day, hr|, mins;.|
|00001910| 58 20 20 20 20 63 68 61 | 72 20 61 5f 6f 72 5f 70 |X cha|r a_or_p|
|00001920| 2c 20 2a 70 20 3d 20 72 | 65 74 5f 62 75 66 3b 0a |, *p = r|et_buf;.|
|00001930| 58 0a 58 20 20 20 20 28 | 76 6f 69 64 29 20 73 73 |X.X (|void) ss|
|00001940| 63 61 6e 66 28 44 61 74 | 65 2c 20 22 25 32 64 25 |canf(Dat|e, "%2d%|
|00001950| 32 64 25 32 64 25 32 64 | 25 32 64 25 33 63 22 2c |2d%2d%2d|%2d%3c",|
|00001960| 0a 58 09 26 79 72 2c 20 | 26 6d 6f 6e 2c 20 26 64 |.X.&yr, |&mon, &d|
|00001970| 61 79 2c 20 26 68 72 2c | 20 26 6d 69 6e 73 2c 20 |ay, &hr,| &mins, |
|00001980| 57 6b 64 61 79 29 3b 0a | 58 20 20 20 20 57 6b 64 |Wkday);.|X Wkd|
|00001990| 61 79 5b 33 5d 20 3d 20 | 30 3b 0a 58 20 20 20 20 |ay[3] = |0;.X |
|000019a0| 61 5f 6f 72 5f 70 20 3d | 20 28 68 72 20 3c 20 31 |a_or_p =| (hr < 1|
|000019b0| 32 29 3f 20 27 61 27 3a | 20 27 70 27 3b 0a 58 0a |2)? 'a':| 'p';.X.|
|000019c0| 58 20 20 20 20 28 76 6f | 69 64 29 20 73 70 72 69 |X (vo|id) spri|
|000019d0| 6e 74 66 28 59 72 2c 20 | 22 31 39 25 64 22 2c 20 |ntf(Yr, |"19%d", |
|000019e0| 79 72 29 3b 0a 58 20 20 | 20 20 28 76 6f 69 64 29 |yr);.X | (void)|
|000019f0| 20 73 70 72 69 6e 74 66 | 28 44 61 79 2c 20 22 25 | sprintf|(Day, "%|
|00001a00| 64 22 2c 20 64 61 79 29 | 3b 0a 58 20 20 20 20 28 |d", day)|;.X (|
|00001a10| 76 6f 69 64 29 20 73 74 | 72 63 70 79 28 4d 6f 6e |void) st|rcpy(Mon|
|00001a20| 2c 20 6d 6f 6e 74 68 5f | 6e 61 6d 65 73 5b 6d 6f |, month_|names[mo|
|00001a30| 6e 2d 31 5d 29 3b 0a 58 | 20 20 20 20 70 20 2b 3d |n-1]);.X| p +=|
|00001a40| 20 73 74 72 6c 65 6e 28 | 73 70 72 69 6e 74 66 28 | strlen(|sprintf(|
|00001a50| 70 2c 20 22 25 73 20 25 | 32 2e 64 2c 20 22 2c 20 |p, "%s %|2.d, ", |
|00001a60| 6d 6f 6e 74 68 5f 6e 61 | 6d 65 73 5b 6d 6f 6e 2d |month_na|mes[mon-|
|00001a70| 31 5d 2c 20 64 61 79 29 | 29 3b 0a 58 20 20 20 20 |1], day)|);.X |
|00001a80| 69 66 20 28 69 73 6f 6e | 28 67 6c 6f 62 5f 66 6c |if (ison|(glob_fl|
|00001a90| 61 67 73 2c 20 4d 49 4c | 5f 54 49 4d 45 29 29 0a |ags, MIL|_TIME)).|
|00001aa0| 58 09 28 76 6f 69 64 29 | 20 73 70 72 69 6e 74 66 |X.(void)| sprintf|
|00001ab0| 28 70 2c 20 22 25 32 64 | 3a 25 30 32 64 22 2c 68 |(p, "%2d|:%02d",h|
|00001ac0| 72 2c 6d 69 6e 73 29 3b | 0a 58 20 20 20 20 65 6c |r,mins);|.X el|
|00001ad0| 73 65 0a 58 09 28 76 6f | 69 64 29 20 73 70 72 69 |se.X.(vo|id) spri|
|00001ae0| 6e 74 66 28 70 2c 20 22 | 25 32 2e 64 3a 25 30 32 |ntf(p, "|%2.d:%02|
|00001af0| 64 25 63 6d 22 2c 0a 58 | 09 20 20 20 20 20 20 28 |d%cm",.X|. (|
|00001b00| 68 72 29 3f 20 28 68 72 | 20 3c 3d 20 31 32 29 3f |hr)? (hr| <= 12)?|
|00001b10| 20 68 72 3a 20 68 72 20 | 2d 20 31 32 3a 20 31 32 | hr: hr |- 12: 12|
|00001b20| 2c 20 6d 69 6e 73 2c 20 | 61 5f 6f 72 5f 70 29 3b |, mins, |a_or_p);|
|00001b30| 0a 58 20 20 20 20 28 76 | 6f 69 64 29 20 73 74 72 |.X (v|oid) str|
|00001b40| 63 70 79 28 54 6d 2c 20 | 70 29 3b 0a 58 20 20 20 |cpy(Tm, |p);.X |
|00001b50| 20 72 65 74 75 72 6e 20 | 72 65 74 5f 62 75 66 3b | return |ret_buf;|
|00001b60| 0a 58 7d 0a 58 0a 58 2f | 2a 20 70 61 73 73 20 61 |.X}.X.X/|* pass a|
|00001b70| 20 73 74 72 69 6e 67 20 | 69 6e 20 74 68 65 20 69 | string |in the i|
|00001b80| 6e 74 65 72 6e 61 6c 20 | 6d 75 73 68 20 64 61 74 |nternal |mush dat|
|00001b90| 65 20 66 6f 72 6d 61 74 | 2e 0a 58 20 2a 20 72 65 |e format|..X * re|
|00001ba0| 74 75 72 6e 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |turn poi|nter to |
|00001bb0| 73 74 61 74 69 63 20 62 | 75 66 66 65 72 20 68 6f |static b|uffer ho|
|00001bc0| 6c 64 69 6e 67 20 63 74 | 69 6d 65 2d 66 6f 72 6d |lding ct|ime-form|
|00001bd0| 61 74 20 64 61 74 65 2e | 0a 58 20 2a 2f 0a 58 63 |at date.|.X */.Xc|
|00001be0| 68 61 72 20 2a 0a 58 64 | 61 74 65 5f 74 6f 5f 63 |har *.Xd|ate_to_c|
|00001bf0| 74 69 6d 65 28 44 61 74 | 65 29 0a 58 63 68 61 72 |time(Dat|e).Xchar|
|00001c00| 20 2a 44 61 74 65 3b 0a | 58 7b 0a 58 20 20 20 20 | *Date;.|X{.X |
|00001c10| 73 74 61 74 69 63 20 63 | 68 61 72 20 72 65 74 5f |static c|har ret_|
|00001c20| 62 75 66 5b 33 32 5d 3b | 0a 58 20 20 20 20 63 68 |buf[32];|.X ch|
|00001c30| 61 72 20 57 6b 64 61 79 | 5b 34 5d 3b 0a 58 20 20 |ar Wkday|[4];.X |
|00001c40| 20 20 69 6e 74 20 79 72 | 2c 20 6d 6f 6e 2c 20 64 | int yr|, mon, d|
|00001c50| 61 79 2c 20 68 72 2c 20 | 6d 69 6e 73 3b 0a 58 0a |ay, hr, |mins;.X.|
|00001c60| 58 20 20 20 20 28 76 6f | 69 64 29 20 73 73 63 61 |X (vo|id) ssca|
|00001c70| 6e 66 28 44 61 74 65 2c | 20 22 25 32 64 25 32 64 |nf(Date,| "%2d%2d|
|00001c80| 25 32 64 25 32 64 25 32 | 64 25 33 63 22 2c 0a 58 |%2d%2d%2|d%3c",.X|
|00001c90| 09 26 79 72 2c 20 26 6d | 6f 6e 2c 20 26 64 61 79 |.&yr, &m|on, &day|
|00001ca0| 2c 20 26 68 72 2c 20 26 | 6d 69 6e 73 2c 20 57 6b |, &hr, &|mins, Wk|
|00001cb0| 64 61 79 29 3b 0a 58 0a | 58 20 20 20 20 28 76 6f |day);.X.|X (vo|
|00001cc0| 69 64 29 20 73 70 72 69 | 6e 74 66 28 72 65 74 5f |id) spri|ntf(ret_|
|00001cd0| 62 75 66 2c 20 22 25 2e | 33 73 20 25 2e 33 73 20 |buf, "%.|3s %.3s |
|00001ce0| 25 32 2e 64 20 25 30 32 | 64 3a 25 30 32 64 3a 30 |%2.d %02|d:%02d:0|
|00001cf0| 30 20 31 39 25 64 5c 6e | 22 2c 0a 58 09 09 57 6b |0 19%d\n|",.X..Wk|
|00001d00| 64 61 79 2c 20 6d 6f 6e | 74 68 5f 6e 61 6d 65 73 |day, mon|th_names|
|00001d10| 5b 6d 6f 6e 2d 31 5d 2c | 20 64 61 79 2c 20 68 72 |[mon-1],| day, hr|
|00001d20| 2c 20 6d 69 6e 73 2c 20 | 79 72 29 3b 0a 58 0a 58 |, mins, |yr);.X.X|
|00001d30| 20 20 20 20 72 65 74 75 | 72 6e 20 72 65 74 5f 62 | retu|rn ret_b|
|00001d40| 75 66 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |uf;.X}.X|.X/*.X *|
|00001d50| 20 42 75 69 6c 64 20 61 | 20 64 61 74 65 20 73 74 | Build a| date st|
|00001d60| 72 69 6e 67 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |ring acc|ording t|
|00001d70| 6f 20 74 68 65 20 73 70 | 65 63 69 66 69 63 61 74 |o the sp|ecificat|
|00001d80| 69 6f 6e 20 69 6e 20 74 | 68 65 20 52 46 43 20 66 |ion in t|he RFC f|
|00001d90| 6f 72 20 44 61 74 65 3a | 0a 58 20 2a 2f 0a 58 63 |or Date:|.X */.Xc|
|00001da0| 68 61 72 20 2a 0a 58 72 | 66 63 5f 64 61 74 65 28 |har *.Xr|fc_date(|
|00001db0| 62 75 66 29 0a 58 63 68 | 61 72 20 62 75 66 5b 5d |buf).Xch|ar buf[]|
|00001dc0| 3b 0a 58 7b 0a 58 20 20 | 20 20 73 74 72 75 63 74 |;.X{.X | struct|
|00001dd0| 20 74 6d 20 09 20 20 2a | 54 3b 0a 58 23 69 66 64 | tm . *|T;.X#ifd|
|00001de0| 65 66 20 53 59 53 56 0a | 58 20 20 20 20 6c 6f 6e |ef SYSV.|X lon|
|00001df0| 67 09 20 20 78 3b 0a 58 | 20 20 20 20 65 78 74 65 |g. x;.X| exte|
|00001e00| 72 6e 20 63 68 61 72 20 | 2a 74 7a 6e 61 6d 65 5b |rn char |*tzname[|
|00001e10| 5d 3b 0a 58 20 20 20 20 | 63 68 61 72 20 2a 74 7a |];.X |char *tz|
|00001e20| 3b 0a 58 0a 58 20 20 20 | 20 28 76 6f 69 64 29 20 |;.X.X | (void) |
|00001e30| 74 69 6d 65 28 26 78 29 | 3b 0a 58 20 20 20 20 54 |time(&x)|;.X T|
|00001e40| 20 3d 20 6c 6f 63 61 6c | 74 69 6d 65 28 26 78 29 | = local|time(&x)|
|00001e50| 3b 0a 58 20 20 20 20 74 | 7a 20 3d 20 74 7a 6e 61 |;.X t|z = tzna|
|00001e60| 6d 65 5b 54 2d 3e 74 6d | 5f 69 73 64 73 74 5d 3b |me[T->tm|_isdst];|
|00001e70| 0a 58 23 65 6c 73 65 20 | 2f 2a 20 53 59 53 56 20 |.X#else |/* SYSV |
|00001e80| 2a 2f 0a 58 23 69 66 64 | 65 66 20 42 53 44 0a 58 |*/.X#ifd|ef BSD.X|
|00001e90| 20 20 20 20 65 78 74 65 | 72 6e 20 63 68 61 72 20 | exte|rn char |
|00001ea0| 20 20 20 20 2a 74 69 6d | 65 7a 6f 6e 65 28 29 3b | *tim|ezone();|
|00001eb0| 0a 58 20 20 20 20 73 74 | 72 75 63 74 20 74 69 6d |.X st|ruct tim|
|00001ec0| 65 76 61 6c 20 20 6d 79 | 74 69 6d 65 3b 0a 58 20 |eval my|time;.X |
|00001ed0| 20 20 20 73 74 72 75 63 | 74 20 74 69 6d 65 7a 6f | struc|t timezo|
|00001ee0| 6e 65 20 6d 79 7a 6f 6e | 65 3b 0a 58 20 20 20 20 |ne myzon|e;.X |
|00001ef0| 63 68 61 72 20 2a 74 7a | 3b 0a 58 0a 58 20 20 20 |char *tz|;.X.X |
|00001f00| 20 28 76 6f 69 64 29 20 | 67 65 74 74 69 6d 65 6f | (void) |gettimeo|
|00001f10| 66 64 61 79 28 26 6d 79 | 74 69 6d 65 2c 20 26 6d |fday(&my|time, &m|
|00001f20| 79 7a 6f 6e 65 29 3b 0a | 58 20 20 20 20 54 20 3d |yzone);.|X T =|
|00001f30| 20 6c 6f 63 61 6c 74 69 | 6d 65 28 26 6d 79 74 69 | localti|me(&myti|
|00001f40| 6d 65 2e 74 76 5f 73 65 | 63 29 3b 0a 58 20 20 20 |me.tv_se|c);.X |
|00001f50| 20 74 7a 20 3d 20 74 69 | 6d 65 7a 6f 6e 65 28 6d | tz = ti|mezone(m|
|00001f60| 79 7a 6f 6e 65 2e 74 7a | 5f 6d 69 6e 75 74 65 73 |yzone.tz|_minutes|
|00001f70| 77 65 73 74 2c 20 28 54 | 2d 3e 74 6d 5f 69 73 64 |west, (T|->tm_isd|
|00001f80| 73 74 20 26 26 20 6d 79 | 7a 6f 6e 65 2e 74 7a 5f |st && my|zone.tz_|
|00001f90| 64 73 74 74 69 6d 65 29 | 29 3b 0a 58 23 65 6c 73 |dsttime)|);.X#els|
|00001fa0| 65 0a 58 20 20 20 20 63 | 68 61 72 20 2a 74 7a 20 |e.X c|har *tz |
|00001fb0| 3d 20 22 22 3b 0a 58 23 | 65 6e 64 69 66 20 2f 2a |= "";.X#|endif /*|
|00001fc0| 20 42 53 44 20 2a 2f 0a | 58 23 65 6e 64 69 66 20 | BSD */.|X#endif |
|00001fd0| 2f 2a 20 21 53 59 53 56 | 20 2a 2f 0a 58 0a 58 20 |/* !SYSV| */.X.X |
|00001fe0| 20 20 20 72 65 74 75 72 | 6e 20 73 70 72 69 6e 74 | retur|n sprint|
|00001ff0| 66 28 62 75 66 2c 20 22 | 25 73 2c 20 25 64 20 25 |f(buf, "|%s, %d %|
|00002000| 73 20 25 64 20 25 30 32 | 64 3a 25 30 32 64 3a 25 |s %d %02|d:%02d:%|
|00002010| 30 32 64 20 25 73 22 2c | 0a 58 09 64 61 79 5f 6e |02d %s",|.X.day_n|
|00002020| 61 6d 65 73 5b 54 2d 3e | 74 6d 5f 77 64 61 79 5d |ames[T->|tm_wday]|
|00002030| 2c 09 2f 2a 20 64 61 79 | 20 6e 61 6d 65 20 2a 2f |,./* day| name */|
|00002040| 0a 58 09 54 2d 3e 74 6d | 5f 6d 64 61 79 2c 09 09 |.X.T->tm|_mday,..|
|00002050| 2f 2a 20 64 61 79 20 6f | 66 20 74 68 65 20 6d 6f |/* day o|f the mo|
|00002060| 6e 74 68 20 2a 2f 0a 58 | 09 6d 6f 6e 74 68 5f 6e |nth */.X|.month_n|
|00002070| 61 6d 65 73 5b 54 2d 3e | 74 6d 5f 6d 6f 6e 5d 2c |ames[T->|tm_mon],|
|00002080| 09 2f 2a 20 6d 6f 6e 74 | 68 20 6e 61 6d 65 20 2a |./* mont|h name *|
|00002090| 2f 0a 58 09 54 2d 3e 74 | 6d 5f 79 65 61 72 2c 09 |/.X.T->t|m_year,.|
|000020a0| 09 2f 2a 20 79 65 61 72 | 20 6e 75 6d 62 65 72 20 |./* year| number |
|000020b0| 2a 2f 0a 58 09 54 2d 3e | 74 6d 5f 68 6f 75 72 2c |*/.X.T->|tm_hour,|
|000020c0| 09 09 2f 2a 20 68 6f 75 | 72 73 20 28 32 34 68 72 |../* hou|rs (24hr|
|000020d0| 29 20 2a 2f 0a 58 09 54 | 2d 3e 74 6d 5f 6d 69 6e |) */.X.T|->tm_min|
|000020e0| 2c 20 54 2d 3e 74 6d 5f | 73 65 63 2c 09 2f 2a 20 |, T->tm_|sec,./* |
|000020f0| 6d 69 6e 73 2f 73 65 63 | 73 20 2a 2f 0a 58 09 74 |mins/sec|s */.X.t|
|00002100| 7a 29 3b 09 09 09 2f 2a | 20 74 69 6d 65 7a 6f 6e |z);.../*| timezon|
|00002110| 65 20 2a 2f 0a 58 7d 0a | 58 0a 58 23 64 65 66 69 |e */.X}.|X.X#defi|
|00002120| 6e 65 20 4a 41 4e 09 31 | 0a 58 23 64 65 66 69 6e |ne JAN.1|.X#defin|
|00002130| 65 20 46 45 42 09 32 0a | 58 23 64 65 66 69 6e 65 |e FEB.2.|X#define|
|00002140| 20 4d 41 52 09 33 0a 58 | 23 64 65 66 69 6e 65 20 | MAR.3.X|#define |
|00002150| 41 50 52 09 34 0a 58 23 | 64 65 66 69 6e 65 20 4d |APR.4.X#|define M|
|00002160| 41 59 09 35 0a 58 23 64 | 65 66 69 6e 65 20 4a 55 |AY.5.X#d|efine JU|
|00002170| 4e 09 36 0a 58 23 64 65 | 66 69 6e 65 20 4a 55 4c |N.6.X#de|fine JUL|
|00002180| 09 37 0a 58 23 64 65 66 | 69 6e 65 20 41 55 47 09 |.7.X#def|ine AUG.|
|00002190| 38 0a 58 23 64 65 66 69 | 6e 65 20 53 45 50 09 39 |8.X#defi|ne SEP.9|
|000021a0| 0a 58 23 64 65 66 69 6e | 65 20 4f 43 54 09 31 30 |.X#defin|e OCT.10|
|000021b0| 0a 58 23 64 65 66 69 6e | 65 20 4e 4f 56 09 31 31 |.X#defin|e NOV.11|
|000021c0| 0a 58 23 64 65 66 69 6e | 65 20 44 45 43 09 31 32 |.X#defin|e DEC.12|
|000021d0| 0a 58 0a 58 2f 2a 20 73 | 74 6f 6c 65 6e 20 64 69 |.X.X/* s|tolen di|
|000021e0| 72 65 63 74 20 66 72 6f | 6d 20 45 4c 4d 20 2a 2f |rect fro|m ELM */|
|000021f0| 0a 58 6d 6f 6e 74 68 5f | 74 6f 5f 6e 28 6e 61 6d |.Xmonth_|to_n(nam|
|00002200| 65 29 0a 58 72 65 67 69 | 73 74 65 72 20 63 68 61 |e).Xregi|ster cha|
|00002210| 72 20 2a 6e 61 6d 65 3b | 0a 58 7b 0a 58 20 20 20 |r *name;|.X{.X |
|00002220| 20 2f 2a 2a 20 72 65 74 | 75 72 6e 20 74 68 65 20 | /** ret|urn the |
|00002230| 6d 6f 6e 74 68 20 6e 75 | 6d 62 65 72 20 67 69 76 |month nu|mber giv|
|00002240| 65 6e 20 74 68 65 20 6d | 6f 6e 74 68 20 6e 61 6d |en the m|onth nam|
|00002250| 65 2e 2e 2e 20 2a 2a 2f | 0a 58 0a 58 20 20 20 20 |e... **/|.X.X |
|00002260| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 63 68 |register| char ch|
|00002270| 3b 0a 58 0a 58 20 20 20 | 20 73 77 69 74 63 68 20 |;.X.X | switch |
|00002280| 28 6c 6f 77 65 72 28 2a | 6e 61 6d 65 29 29 20 7b |(lower(*|name)) {|
|00002290| 0a 58 09 63 61 73 65 20 | 27 61 27 20 3a 20 69 66 |.X.case |'a' : if|
|000022a0| 20 28 28 63 68 20 3d 20 | 6c 6f 77 65 72 28 6e 61 | ((ch = |lower(na|
|000022b0| 6d 65 5b 31 5d 29 29 20 | 3d 3d 20 27 70 27 29 0a |me[1])) |== 'p').|
|000022c0| 58 09 09 20 20 20 20 20 | 20 20 72 65 74 75 72 6e |X.. | return|
|000022d0| 28 41 50 52 29 3b 0a 58 | 09 09 20 20 20 65 6c 73 |(APR);.X|.. els|
|000022e0| 65 20 69 66 20 28 63 68 | 20 3d 3d 20 27 75 27 29 |e if (ch| == 'u')|
|000022f0| 0a 58 09 09 20 20 20 20 | 20 20 20 72 65 74 75 72 |.X.. | retur|
|00002300| 6e 28 41 55 47 29 3b 0a | 58 09 09 20 20 20 65 6c |n(AUG);.|X.. el|
|00002310| 73 65 20 72 65 74 75 72 | 6e 28 2d 31 29 3b 09 2f |se retur|n(-1);./|
|00002320| 2a 20 65 72 72 6f 72 21 | 20 2a 2f 0a 58 09 63 61 |* error!| */.X.ca|
|00002330| 73 65 20 27 64 27 20 3a | 20 72 65 74 75 72 6e 28 |se 'd' :| return(|
|00002340| 44 45 43 29 3b 0a 58 09 | 63 61 73 65 20 27 66 27 |DEC);.X.|case 'f'|
|00002350| 20 3a 20 72 65 74 75 72 | 6e 28 46 45 42 29 3b 0a | : retur|n(FEB);.|
|00002360| 58 09 63 61 73 65 20 27 | 6a 27 20 3a 20 69 66 20 |X.case '|j' : if |
|00002370| 28 28 63 68 20 3d 20 6c | 6f 77 65 72 28 6e 61 6d |((ch = l|ower(nam|
|00002380| 65 5b 31 5d 29 29 20 3d | 3d 20 27 61 27 29 0a 58 |e[1])) =|= 'a').X|
|00002390| 09 09 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 28 |.. | return(|
|000023a0| 4a 41 4e 29 3b 0a 58 09 | 09 20 20 20 65 6c 73 65 |JAN);.X.|. else|
|000023b0| 20 69 66 20 28 63 68 20 | 3d 3d 20 27 75 27 29 20 | if (ch |== 'u') |
|000023c0| 7b 0a 58 09 09 20 20 20 | 20 20 69 66 20 28 28 63 |{.X.. | if ((c|
|000023d0| 68 20 3d 20 6c 6f 77 65 | 72 28 6e 61 6d 65 5b 32 |h = lowe|r(name[2|
|000023e0| 5d 29 29 20 3d 3d 20 27 | 6e 27 29 0a 58 09 09 09 |])) == '|n').X...|
|000023f0| 20 72 65 74 75 72 6e 28 | 4a 55 4e 29 3b 0a 58 09 | return(|JUN);.X.|
|00002400| 09 20 20 20 20 20 65 6c | 73 65 20 69 66 20 28 63 |. el|se if (c|
|00002410| 68 20 3d 3d 20 27 6c 27 | 29 0a 58 09 09 09 20 72 |h == 'l'|).X... r|
|00002420| 65 74 75 72 6e 28 4a 55 | 4c 29 3b 0a 58 09 09 20 |eturn(JU|L);.X.. |
|00002430| 20 20 20 20 65 6c 73 65 | 20 72 65 74 75 72 6e 28 | else| return(|
|00002440| 2d 31 29 3b 09 09 2f 2a | 20 65 72 72 6f 72 21 20 |-1);../*| error! |
|00002450| 2a 2f 0a 58 09 09 20 20 | 20 7d 0a 58 09 09 20 20 |*/.X.. | }.X.. |
|00002460| 20 65 6c 73 65 20 72 65 | 74 75 72 6e 28 2d 31 29 | else re|turn(-1)|
|00002470| 3b 09 09 2f 2a 20 65 72 | 72 6f 72 20 2a 2f 0a 58 |;../* er|ror */.X|
|00002480| 09 63 61 73 65 20 27 6d | 27 20 3a 20 69 66 20 28 |.case 'm|' : if (|
|00002490| 28 63 68 20 3d 20 6c 6f | 77 65 72 28 6e 61 6d 65 |(ch = lo|wer(name|
|000024a0| 5b 32 5d 29 29 20 3d 3d | 20 27 72 27 29 0a 58 09 |[2])) ==| 'r').X.|
|000024b0| 09 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 28 4d |. |return(M|
|000024c0| 41 52 29 3b 0a 58 09 09 | 20 20 20 65 6c 73 65 20 |AR);.X..| else |
|000024d0| 69 66 20 28 63 68 20 3d | 3d 20 27 79 27 29 0a 58 |if (ch =|= 'y').X|
|000024e0| 09 09 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 28 |.. | return(|
|000024f0| 4d 41 59 29 3b 0a 58 09 | 09 20 20 20 65 6c 73 65 |MAY);.X.|. else|
|00002500| 20 72 65 74 75 72 6e 28 | 2d 31 29 3b 09 09 2f 2a | return(|-1);../*|
|00002510| 20 65 72 72 6f 72 21 20 | 2a 2f 0a 58 09 63 61 73 | error! |*/.X.cas|
|00002520| 65 20 27 6e 27 20 3a 20 | 72 65 74 75 72 6e 28 4e |e 'n' : |return(N|
|00002530| 4f 56 29 3b 0a 58 09 63 | 61 73 65 20 27 6f 27 20 |OV);.X.c|ase 'o' |
|00002540| 3a 20 72 65 74 75 72 6e | 28 4f 43 54 29 3b 0a 58 |: return|(OCT);.X|
|00002550| 09 63 61 73 65 20 27 73 | 27 20 3a 20 72 65 74 75 |.case 's|' : retu|
|00002560| 72 6e 28 53 45 50 29 3b | 0a 58 09 64 65 66 61 75 |rn(SEP);|.X.defau|
|00002570| 6c 74 20 20 3a 20 72 65 | 74 75 72 6e 28 2d 31 29 |lt : re|turn(-1)|
|00002580| 3b 0a 58 20 20 20 20 7d | 0a 58 7d 0a 45 4e 44 5f |;.X }|.X}.END_|
|00002590| 4f 46 5f 46 49 4c 45 0a | 69 66 20 74 65 73 74 20 |OF_FILE.|if test |
|000025a0| 38 33 31 31 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 |8311 -ne| `wc -c |
|000025b0| 3c 27 64 61 74 65 73 2e | 63 27 60 3b 20 74 68 65 |<'dates.|c'`; the|
|000025c0| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|000025d0| 20 5c 22 27 64 61 74 65 | 73 2e 63 27 5c 22 20 75 | \"'date|s.c'\" u|
|000025e0| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|000025f0| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00002600| 64 20 6f 66 20 27 64 61 | 74 65 73 2e 63 27 0a 66 |d of 'da|tes.c'.f|
|00002610| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 68 65 |i.if tes|t -f 'he|
|00002620| 6c 70 2e 63 27 20 2d 61 | 20 22 24 7b 31 7d 22 20 |lp.c' -a| "${1}" |
|00002630| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00002640| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00002650| 6c 20 6e 6f 74 20 63 6c | 6f 62 62 65 72 20 65 78 |l not cl|obber ex|
|00002660| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 27 68 |isting f|ile \"'h|
|00002670| 65 6c 70 2e 63 27 5c 22 | 0a 65 6c 73 65 0a 65 63 |elp.c'\"|.else.ec|
|00002680| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|00002690| 69 6e 67 20 5c 22 27 68 | 65 6c 70 2e 63 27 5c 22 |ing \"'h|elp.c'\"|
|000026a0| 20 5c 28 39 33 30 32 20 | 63 68 61 72 61 63 74 65 | \(9302 |characte|
|000026b0| 72 73 5c 29 0a 73 65 64 | 20 22 73 2f 5e 58 2f 2f |rs\).sed| "s/^X//|
|000026c0| 22 20 3e 27 68 65 6c 70 | 2e 63 27 20 3c 3c 27 45 |" >'help|.c' <<'E|
|000026d0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 27 0a 58 2f 2a 20 |ND_OF_FI|LE'.X/* |
|000026e0| 40 28 23 29 68 65 6c 70 | 2e 63 09 28 63 29 20 63 |@(#)help|.c.(c) c|
|000026f0| 6f 70 79 72 69 67 68 74 | 20 31 30 2f 31 35 2f 38 |opyright| 10/15/8|
|00002700| 36 20 28 44 61 6e 20 48 | 65 6c 6c 65 72 29 20 2a |6 (Dan H|eller) *|
|00002710| 2f 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 54 68 69 73 |/.X.X/*.|X * This|
|00002720| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 73 20 74 | file co|ntains t|
|00002730| 77 6f 20 6d 61 69 6e 20 | 72 6f 75 74 69 6e 65 73 |wo main |routines|
|00002740| 3a 0a 58 20 2a 20 20 20 | 20 64 69 73 70 6c 61 79 |:.X * | display|
|00002750| 5f 68 65 6c 70 28 29 20 | 61 6e 64 20 66 69 6e 64 |_help() |and find|
|00002760| 5f 68 65 6c 70 28 29 0a | 58 20 2a 20 42 6f 74 68 |_help().|X * Both|
|00002770| 20 61 72 65 20 76 69 72 | 74 75 61 6c 6c 79 20 65 | are vir|tually e|
|00002780| 71 75 69 76 61 6c 65 6e | 74 20 69 6e 20 66 75 6e |quivalen|t in fun|
|00002790| 63 74 69 6f 6e 61 6c 69 | 74 79 3b 20 74 68 65 79 |ctionali|ty; they|
|000027a0| 20 61 72 65 20 70 61 73 | 73 65 64 0a 58 20 2a 20 | are pas|sed.X * |
|000027b0| 61 20 63 68 61 72 20 2a | 20 6f 72 20 61 20 63 68 |a char *| or a ch|
|000027c0| 61 72 20 2a 2a 2e 20 49 | 66 20 61 20 63 68 61 72 |ar **. I|f a char|
|000027d0| 20 2a 20 69 73 20 70 61 | 73 73 65 64 2c 20 74 68 | * is pa|ssed, th|
|000027e0| 65 6e 20 6f 70 65 6e 20 | 22 66 69 6c 65 22 0a 58 |en open |"file".X|
|000027f0| 20 2a 20 61 72 67 75 6d | 65 6e 74 20 28 63 6f 6e | * argum|ent (con|
|00002800| 74 61 69 6e 69 6e 67 20 | 68 65 6c 70 20 73 74 72 |taining |help str|
|00002810| 69 6e 67 73 29 20 61 6e | 64 20 73 65 61 72 63 68 |ings) an|d search|
|00002820| 20 66 6f 72 20 25 73 74 | 72 25 20 61 6e 64 20 72 | for %st|r% and r|
|00002830| 65 61 64 0a 58 20 2a 20 | 74 68 65 20 66 6f 6c 6c |ead.X * |the foll|
|00002840| 6f 77 69 6e 67 20 74 65 | 78 74 20 75 6e 74 69 6c |owing te|xt until|
|00002850| 20 25 25 20 6f 72 20 45 | 4f 46 20 69 6e 74 6f 20 | %% or E|OF into |
|00002860| 61 20 6c 6f 63 61 6c 20 | 62 75 66 66 65 72 2e 0a |a local |buffer..|
|00002870| 58 20 2a 20 49 66 20 73 | 74 72 20 69 73 20 61 20 |X * If s|tr is a |
|00002880| 63 68 61 72 20 2a 2a 2c | 20 74 68 65 6e 20 74 68 |char **,| then th|
|00002890| 61 74 20 61 72 72 61 79 | 20 6f 66 20 73 74 72 69 |at array| of stri|
|000028a0| 6e 67 73 20 69 73 20 75 | 73 65 64 20 64 69 72 65 |ngs is u|sed dire|
|000028b0| 63 74 6c 79 2e 0a 58 20 | 2a 0a 58 20 2a 20 49 66 |ctly..X |*.X * If|
|000028c0| 20 64 69 73 70 6c 61 79 | 5f 68 65 6c 70 20 69 73 | display|_help is|
|000028d0| 20 75 73 65 64 2c 20 74 | 68 65 6e 20 74 68 65 20 | used, t|hen the |
|000028e0| 66 69 6e 61 6c 20 61 72 | 72 61 79 20 6f 66 20 73 |final ar|ray of s|
|000028f0| 74 72 69 6e 67 73 20 75 | 73 65 64 20 69 73 0a 58 |trings u|sed is.X|
|00002900| 20 2a 20 64 69 73 70 6c | 61 79 65 64 20 69 6e 20 | * displ|ayed in |
|00002910| 74 68 65 20 63 65 6e 74 | 65 72 20 6f 66 20 74 68 |the cent|er of th|
|00002920| 65 20 62 69 74 6d 61 70 | 70 65 64 20 63 6f 6e 73 |e bitmap|ped cons|
|00002930| 6f 6c 65 20 69 6e 20 61 | 20 62 6f 78 20 77 69 74 |ole in a| box wit|
|00002940| 68 0a 58 20 2a 20 73 68 | 61 64 69 6e 67 20 61 6e |h.X * sh|ading an|
|00002950| 64 20 74 68 65 20 75 73 | 65 72 20 6d 75 73 74 20 |d the us|er must |
|00002960| 68 69 74 20 74 68 65 20 | 6c 65 66 74 20 6d 6f 75 |hit the |left mou|
|00002970| 73 65 20 62 75 74 74 6f | 6e 20 74 6f 20 72 65 6d |se butto|n to rem|
|00002980| 6f 76 65 20 74 68 65 0a | 58 20 2a 20 6d 65 73 73 |ove the.|X * mess|
|00002990| 61 67 65 2e 20 20 74 68 | 65 20 66 64 20 70 61 73 |age. th|e fd pas|
|000029a0| 73 65 64 20 69 73 20 74 | 68 65 20 66 64 20 6f 66 |sed is t|he fd of|
|000029b0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 6c 6f 63 6b | the win|dow lock|
|000029c0| 69 6e 67 20 74 68 65 20 | 73 63 72 65 65 6e 2e 0a |ing the |screen..|
|000029d0| 58 20 2a 0a 58 20 2a 20 | 49 6e 20 74 65 78 74 20 |X *.X * |In text |
|000029e0| 6d 6f 64 65 2c 20 74 68 | 65 20 72 6f 75 74 69 6e |mode, th|e routin|
|000029f0| 65 20 66 69 6e 64 5f 68 | 65 6c 70 20 69 73 20 75 |e find_h|elp is u|
|00002a00| 73 65 64 20 28 6f 72 2c | 20 69 66 20 74 68 65 20 |sed (or,| if the |
|00002a10| 67 72 61 70 68 69 63 73 | 0a 58 20 2a 20 6d 6f 64 |graphics|.X * mod|
|00002a20| 65 20 64 6f 65 73 6e 27 | 74 20 77 61 6e 74 20 74 |e doesn'|t want t|
|00002a30| 6f 20 6c 6f 63 6b 20 74 | 68 65 20 73 63 72 65 65 |o lock t|he scree|
|00002a40| 6e 20 74 6f 20 64 69 73 | 70 6c 61 79 20 61 20 6d |n to dis|play a m|
|00002a50| 65 73 73 61 67 65 29 2e | 20 54 68 65 0a 58 20 2a |essage).| The.X *|
|00002a60| 20 73 61 6d 65 20 61 63 | 74 69 6f 6e 73 20 6f 63 | same ac|tions oc|
|00002a70| 63 75 72 2c 20 62 75 74 | 20 69 6e 73 74 65 61 64 |cur, but| instead|
|00002a80| 20 6f 66 20 22 69 66 64 | 65 66 22 69 6e 67 20 75 | of "ifd|ef"ing u|
|00002a90| 70 20 6f 6e 65 20 66 75 | 6e 63 74 69 6f 6e 2c 20 |p one fu|nction, |
|00002aa0| 49 0a 58 20 2a 20 6a 75 | 73 74 20 6d 61 64 65 20 |I.X * ju|st made |
|00002ab0| 74 77 6f 20 66 6f 72 20 | 72 65 61 64 61 62 69 6c |two for |readabil|
|00002ac0| 69 74 79 2e 0a 58 20 2a | 2f 0a 58 23 69 6e 63 6c |ity..X *|/.X#incl|
|00002ad0| 75 64 65 20 3c 73 74 64 | 69 6f 2e 68 3e 0a 58 23 |ude <std|io.h>.X#|
|00002ae0| 69 6e 63 6c 75 64 65 20 | 22 73 74 72 69 6e 67 73 |include |"strings|
|00002af0| 2e 68 22 0a 58 0a 58 23 | 64 65 66 69 6e 65 20 4e |.h".X.X#|define N|
|00002b00| 55 4c 4c 5f 46 49 4c 45 | 20 28 46 49 4c 45 20 2a |ULL_FILE| (FILE *|
|00002b10| 29 30 0a 58 0a 58 23 69 | 66 64 65 66 20 53 55 4e |)0.X.X#i|fdef SUN|
|00002b20| 54 4f 4f 4c 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |TOOL.X#i|nclude <|
|00002b30| 73 75 6e 74 6f 6f 6c 2f | 74 6f 6f 6c 5f 68 73 2e |suntool/|tool_hs.|
|00002b40| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 69 |h>.X#inc|lude <si|
|00002b50| 67 6e 61 6c 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |gnal.h>.|X#includ|
|00002b60| 65 20 3c 73 75 6e 74 6f | 6f 6c 2f 66 75 6c 6c 73 |e <sunto|ol/fulls|
|00002b70| 63 72 65 65 6e 2e 68 3e | 0a 58 0a 58 23 64 65 66 |creen.h>|.X.X#def|
|00002b80| 69 6e 65 20 6c 5f 77 69 | 64 74 68 28 29 09 20 20 |ine l_wi|dth(). |
|00002b90| 66 6f 6e 74 2d 3e 70 66 | 5f 64 65 66 61 75 6c 74 |font->pf|_default|
|00002ba0| 73 69 7a 65 2e 78 20 2f | 2a 20 77 69 64 74 68 20 |size.x /|* width |
|00002bb0| 6f 66 20 6c 65 74 74 65 | 72 20 2a 2f 0a 58 23 64 |of lette|r */.X#d|
|00002bc0| 65 66 69 6e 65 20 6c 5f | 68 65 69 67 68 74 28 29 |efine l_|height()|
|00002bd0| 09 20 20 66 6f 6e 74 2d | 3e 70 66 5f 64 65 66 61 |. font-|>pf_defa|
|00002be0| 75 6c 74 73 69 7a 65 2e | 79 20 2f 2a 20 68 65 69 |ultsize.|y /* hei|
|00002bf0| 67 68 74 20 6f 66 20 6c | 65 74 74 65 72 20 2a 2f |ght of l|etter */|
|00002c00| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 64 72 61 77 |.X.X#def|ine draw|
|00002c10| 28 77 69 6e 2c 78 31 2c | 79 31 2c 78 32 2c 79 32 |(win,x1,|y1,x2,y2|
|00002c20| 2c 4f 50 29 20 09 70 77 | 5f 76 65 63 74 6f 72 28 |,OP) .pw|_vector(|
|00002c30| 77 69 6e 2c 20 78 31 2c | 79 31 2c 78 32 2c 79 32 |win, x1,|y1,x2,y2|
|00002c40| 2c 4f 50 2c 31 29 0a 58 | 23 64 65 66 69 6e 65 20 |,OP,1).X|#define |
|00002c50| 62 6f 78 28 77 69 6e 2c | 20 78 31 2c 79 31 2c 78 |box(win,| x1,y1,x|
|00002c60| 32 2c 79 32 2c 4f 50 29 | 20 5c 0a 58 09 64 72 61 |2,y2,OP)| \.X.dra|
|00002c70| 77 28 77 69 6e 2c 78 31 | 2c 79 31 2c 20 78 31 2c |w(win,x1|,y1, x1,|
|00002c80| 79 32 2c 20 4f 50 29 2c | 20 5c 0a 58 09 64 72 61 |y2, OP),| \.X.dra|
|00002c90| 77 28 77 69 6e 2c 78 31 | 2c 79 32 2c 20 78 32 2c |w(win,x1|,y2, x2,|
|00002ca0| 79 32 2c 20 4f 50 29 2c | 20 5c 0a 58 09 64 72 61 |y2, OP),| \.X.dra|
|00002cb0| 77 28 77 69 6e 2c 78 32 | 2c 79 32 2c 20 78 32 2c |w(win,x2|,y2, x2,|
|00002cc0| 79 31 2c 20 4f 50 29 2c | 20 5c 0a 58 09 64 72 61 |y1, OP),| \.X.dra|
|00002cd0| 77 28 77 69 6e 2c 78 32 | 2c 79 31 2c 20 78 31 2c |w(win,x2|,y1, x1,|
|00002ce0| 79 31 2c 20 4f 50 29 0a | 58 0a 58 23 64 65 66 69 |y1, OP).|X.X#defi|
|00002cf0| 6e 65 20 44 45 46 5f 43 | 4f 4e 54 5f 4d 53 47 09 |ne DEF_C|ONT_MSG.|
|00002d00| 22 43 6c 69 63 6b 20 4c | 45 46 54 20 6d 6f 75 73 |"Click L|EFT mous|
|00002d10| 65 20 42 75 74 74 6f 6e | 20 74 6f 20 63 6f 6e 74 |e Button| to cont|
|00002d20| 69 6e 75 65 2e 22 0a 58 | 44 45 46 49 4e 45 5f 43 |inue.".X|DEFINE_C|
|00002d30| 55 52 53 4f 52 28 6f 6c | 64 63 75 72 73 6f 72 2c |URSOR(ol|dcursor,|
|00002d40| 20 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 | 0,0,0,0|,0,0,0,0|
|00002d50| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00002d60| 2c 30 2c 30 2c 30 29 3b | 0a 58 0a 58 2f 2a 20 73 |,0,0,0);|.X.X/* s|
|00002d70| 68 61 64 69 6e 67 20 2a | 2f 0a 58 73 74 61 74 69 |hading *|/.Xstati|
|00002d80| 63 20 73 68 6f 72 74 20 | 64 61 74 5f 73 68 61 64 |c short |dat_shad|
|00002d90| 65 5f 32 35 5b 5d 20 3d | 20 7b 0a 58 23 69 6e 63 |e_25[] =| {.X#inc|
|00002da0| 6c 75 64 65 20 3c 69 6d | 61 67 65 73 2f 73 71 75 |lude <im|ages/squ|
|00002db0| 61 72 65 5f 32 35 2e 70 | 72 3e 0a 58 7d 3b 0a 58 |are_25.p|r>.X};.X|
|00002dc0| 0a 58 73 74 61 74 69 63 | 20 73 68 6f 72 74 20 64 |.Xstatic| short d|
|00002dd0| 61 74 5f 73 68 61 64 65 | 5f 35 30 5b 5d 20 3d 20 |at_shade|_50[] = |
|00002de0| 7b 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 69 6d 61 |{.X#incl|ude <ima|
|00002df0| 67 65 73 2f 73 71 75 61 | 72 65 5f 35 30 2e 70 72 |ges/squa|re_50.pr|
|00002e00| 3e 0a 58 7d 3b 0a 58 0a | 58 73 74 61 74 69 63 20 |>.X};.X.|Xstatic |
|00002e10| 73 68 6f 72 74 20 64 61 | 74 5f 73 68 61 64 65 5f |short da|t_shade_|
|00002e20| 37 35 5b 5d 20 3d 20 7b | 0a 58 23 69 6e 63 6c 75 |75[] = {|.X#inclu|
|00002e30| 64 65 20 3c 69 6d 61 67 | 65 73 2f 73 71 75 61 72 |de <imag|es/squar|
|00002e40| 65 5f 37 35 2e 70 72 3e | 0a 58 7d 3b 0a 58 0a 58 |e_75.pr>|.X};.X.X|
|00002e50| 73 74 61 74 69 63 20 73 | 68 6f 72 74 20 64 61 74 |static s|hort dat|
|00002e60| 5f 6d 6f 75 73 65 5f 6c | 65 66 74 5b 5d 20 3d 20 |_mouse_l|eft[] = |
|00002e70| 7b 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 69 6d 61 |{.X#incl|ude <ima|
|00002e80| 67 65 73 2f 63 6f 6e 66 | 69 72 6d 5f 6c 65 66 74 |ges/conf|irm_left|
|00002e90| 2e 70 72 3e 20 0a 58 7d | 3b 0a 58 0a 58 6d 70 72 |.pr> .X}|;.X.Xmpr|
|00002ea0| 5f 73 74 61 74 69 63 28 | 73 68 61 64 65 5f 32 35 |_static(|shade_25|
|00002eb0| 2c 20 20 20 20 20 20 20 | 20 31 36 2c 20 31 36 2c |, | 16, 16,|
|00002ec0| 20 31 2c 20 64 61 74 5f | 73 68 61 64 65 5f 32 35 | 1, dat_|shade_25|
|00002ed0| 29 3b 0a 58 6d 70 72 5f | 73 74 61 74 69 63 28 73 |);.Xmpr_|static(s|
|00002ee0| 68 61 64 65 5f 35 30 2c | 20 20 20 20 20 20 20 20 |hade_50,| |
|00002ef0| 31 36 2c 20 31 36 2c 20 | 31 2c 20 64 61 74 5f 73 |16, 16, |1, dat_s|
|00002f00| 68 61 64 65 5f 35 30 29 | 3b 0a 58 6d 70 72 5f 73 |hade_50)|;.Xmpr_s|
|00002f10| 74 61 74 69 63 28 73 68 | 61 64 65 5f 37 35 2c 20 |tatic(sh|ade_75, |
|00002f20| 20 20 20 20 20 20 20 31 | 36 2c 20 31 36 2c 20 31 | 1|6, 16, 1|
|00002f30| 2c 20 64 61 74 5f 73 68 | 61 64 65 5f 37 35 29 3b |, dat_sh|ade_75);|
|00002f40| 0a 58 6d 70 72 5f 73 74 | 61 74 69 63 28 63 6f 6e |.Xmpr_st|atic(con|
|00002f50| 66 69 72 6d 5f 70 72 2c | 20 20 20 20 20 20 31 36 |firm_pr,| 16|
|00002f60| 2c 20 31 36 2c 20 31 2c | 20 64 61 74 5f 6d 6f 75 |, 16, 1,| dat_mou|
|00002f70| 73 65 5f 6c 65 66 74 29 | 3b 0a 58 0a 58 73 74 61 |se_left)|;.X.Xsta|
|00002f80| 74 69 63 20 73 74 72 75 | 63 74 20 63 75 72 73 6f |tic stru|ct curso|
|00002f90| 72 20 63 6f 6e 66 69 72 | 6d 5f 63 75 72 73 6f 72 |r confir|m_cursor|
|00002fa0| 20 3d 20 7b 20 33 2c 20 | 33 2c 20 50 49 58 5f 53 | = { 3, |3, PIX_S|
|00002fb0| 52 43 2c 20 26 63 6f 6e | 66 69 72 6d 5f 70 72 20 |RC, &con|firm_pr |
|00002fc0| 7d 3b 0a 58 73 74 61 74 | 69 63 20 73 74 72 75 63 |};.Xstat|ic struc|
|00002fd0| 74 20 70 69 78 72 65 63 | 74 20 2a 73 68 61 64 69 |t pixrec|t *shadi|
|00002fe0| 6e 67 3b 0a 58 0a 58 23 | 65 6c 73 65 0a 58 0a 58 |ng;.X.X#|else.X.X|
|00002ff0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 74 79 |#include| <sys/ty|
|00003000| 70 65 73 2e 68 3e 0a 58 | 23 64 65 66 69 6e 65 20 |pes.h>.X|#define |
|00003010| 77 70 72 69 6e 74 20 70 | 72 69 6e 74 66 0a 58 23 |wprint p|rintf.X#|
|00003020| 64 65 66 69 6e 65 20 70 | 72 69 6e 74 20 20 70 72 |define p|rint pr|
|00003030| 69 6e 74 66 0a 58 23 64 | 65 66 69 6e 65 20 54 52 |intf.X#d|efine TR|
|00003040| 55 45 20 20 20 31 0a 58 | 23 64 65 66 69 6e 65 20 |UE 1.X|#define |
|00003050| 46 41 4c 53 45 20 20 30 | 0a 58 0a 58 23 65 6e 64 |FALSE 0|.X.X#end|
|00003060| 69 66 20 2f 2a 20 53 55 | 4e 54 4f 4f 4c 20 2a 2f |if /* SU|NTOOL */|
|00003070| 0a 58 0a 58 2f 2a 20 77 | 68 61 74 20 74 6f 20 70 |.X.X/* w|hat to p|
|00003080| 72 69 6e 74 20 69 66 20 | 6e 6f 74 68 69 6e 67 20 |rint if |nothing |
|00003090| 77 61 73 20 66 6f 75 6e | 64 20 2a 2f 0a 58 73 74 |was foun|d */.Xst|
|000030a0| 61 74 69 63 20 63 68 61 | 72 20 2a 64 65 66 5f 6d |atic cha|r *def_m|
|000030b0| 73 67 5b 5d 20 3d 20 7b | 0a 58 20 20 20 20 22 54 |sg[] = {|.X "T|
|000030c0| 68 65 72 65 20 69 73 20 | 6e 6f 20 68 65 6c 70 20 |here is |no help |
|000030d0| 66 6f 75 6e 64 20 66 6f | 72 20 5c 22 25 73 5c 22 |found fo|r \"%s\"|
|000030e0| 2e 22 2c 0a 58 20 20 20 | 20 22 50 65 72 68 61 70 |.",.X | "Perhap|
|000030f0| 73 20 67 65 74 74 69 6e | 67 20 68 65 6c 70 20 66 |s gettin|g help f|
|00003100| 72 6f 6d 20 61 6e 6f 74 | 68 65 72 20 69 74 65 6d |rom anot|her item|
|00003110| 22 2c 0a 58 20 20 20 20 | 22 77 6f 75 6c 64 20 62 |",.X |"would b|
|00003120| 65 20 6f 66 20 73 6f 6d | 65 20 75 73 65 2e 22 2c |e of som|e use.",|
|00003130| 20 30 0a 58 7d 3b 0a 58 | 0a 58 23 64 65 66 69 6e | 0.X};.X|.X#defin|
|00003140| 65 20 4d 41 58 4c 49 4e | 45 53 09 34 30 0a 58 23 |e MAXLIN|ES.40.X#|
|00003150| 64 65 66 69 6e 65 20 4d | 41 58 4c 45 4e 47 54 48 |define M|AXLENGTH|
|00003160| 09 31 32 38 0a 58 0a 58 | 23 69 66 64 65 66 20 53 |.128.X.X|#ifdef S|
|00003170| 55 4e 54 4f 4f 4c 0a 58 | 64 69 73 70 6c 61 79 5f |UNTOOL.X|display_|
|00003180| 68 65 6c 70 28 66 64 2c | 20 73 74 72 2c 20 66 69 |help(fd,| str, fi|
|00003190| 6c 65 2c 20 66 6f 6e 74 | 29 0a 58 72 65 67 69 73 |le, font|).Xregis|
|000031a0| 74 65 72 20 63 61 64 64 | 72 5f 74 20 2a 73 74 72 |ter cadd|r_t *str|
|000031b0| 3b 20 20 20 2f 2a 20 63 | 6f 75 6c 64 20 62 65 20 |; /* c|ould be |
|000031c0| 61 20 73 69 6e 67 6c 65 | 20 6f 72 20 64 6f 75 62 |a single| or doub|
|000031d0| 6c 65 20 70 6f 69 6e 74 | 65 72 20 2a 2f 0a 58 72 |le point|er */.Xr|
|000031e0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 66 69 |egister |char *fi|
|000031f0| 6c 65 3b 0a 58 72 65 67 | 69 73 74 65 72 20 73 74 |le;.Xreg|ister st|
|00003200| 72 75 63 74 20 70 69 78 | 66 6f 6e 74 20 2a 66 6f |ruct pix|font *fo|
|00003210| 6e 74 3b 0a 58 7b 0a 58 | 20 20 20 20 73 74 72 75 |nt;.X{.X| stru|
|00003220| 63 74 20 66 75 6c 6c 73 | 63 72 65 65 6e 20 2a 66 |ct fulls|creen *f|
|00003230| 73 3b 0a 58 20 20 20 20 | 73 74 72 75 63 74 20 69 |s;.X |struct i|
|00003240| 6e 70 75 74 6d 61 73 6b | 20 69 6d 2c 20 6f 6c 64 |nputmask| im, old|
|00003250| 5f 69 6d 3b 0a 58 20 20 | 20 20 73 74 72 75 63 74 |_im;.X | struct|
|00003260| 20 69 6e 70 75 74 65 76 | 65 6e 74 20 65 76 65 6e | inputev|ent even|
|00003270| 74 3b 0a 58 20 20 20 20 | 73 74 72 75 63 74 20 72 |t;.X |struct r|
|00003280| 65 63 74 20 72 65 63 74 | 3b 0a 58 20 20 20 20 72 |ect rect|;.X r|
|00003290| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 70 3b |egister |char *p;|
|000032a0| 0a 58 20 20 20 20 72 65 | 67 69 73 74 65 72 20 69 |.X re|gister i|
|000032b0| 6e 74 20 78 2c 20 79 2c | 20 7a 2c 20 68 65 69 67 |nt x, y,| z, heig|
|000032c0| 68 74 3b 0a 58 20 20 20 | 20 73 74 72 75 63 74 20 |ht;.X | struct |
|000032d0| 70 69 78 72 65 63 74 20 | 2a 73 61 76 65 64 2c 20 |pixrect |*saved, |
|000032e0| 2a 73 61 76 65 5f 62 69 | 74 73 28 29 3b 0a 58 20 |*save_bi|ts();.X |
|000032f0| 20 20 20 69 6e 74 20 77 | 69 64 74 68 20 3d 20 30 | int w|idth = 0|
|00003300| 2c 20 6f 6c 64 5f 6c 69 | 6e 6b 3b 0a 58 20 20 20 |, old_li|nk;.X |
|00003310| 20 63 68 61 72 20 2a 63 | 6f 6e 74 5f 6d 73 67 20 | char *c|ont_msg |
|00003320| 3d 20 44 45 46 5f 43 4f | 4e 54 5f 4d 53 47 2c 20 |= DEF_CO|NT_MSG, |
|00003330| 2a 67 65 74 65 6e 76 28 | 29 3b 0a 58 20 20 20 20 |*getenv(|);.X |
|00003340| 63 68 61 72 20 61 72 67 | 73 5b 4d 41 58 4c 49 4e |char arg|s[MAXLIN|
|00003350| 45 53 5d 5b 4d 41 58 4c | 45 4e 47 54 48 5d 2c 20 |ES][MAXL|ENGTH], |
|00003360| 68 65 6c 70 5f 73 74 72 | 5b 34 30 5d 3b 0a 58 20 |help_str|[40];.X |
|00003370| 20 20 20 46 49 4c 45 20 | 2a 66 70 3b 0a 58 0a 58 | FILE |*fp;.X.X|
|00003380| 20 20 20 20 69 66 20 28 | 21 73 68 61 64 69 6e 67 | if (|!shading|
|00003390| 29 0a 58 09 69 66 20 28 | 70 20 3d 20 67 65 74 65 |).X.if (|p = gete|
|000033a0| 6e 76 28 22 53 48 41 44 | 45 22 29 29 20 7b 0a 58 |nv("SHAD|E")) {.X|
|000033b0| 09 20 20 20 20 72 65 67 | 69 73 74 65 72 20 69 6e |. reg|ister in|
|000033c0| 74 20 78 20 3d 20 61 74 | 6f 69 28 70 29 3b 0a 58 |t x = at|oi(p);.X|
|000033d0| 09 20 20 20 20 69 66 20 | 28 78 20 3c 3d 20 32 35 |. if |(x <= 25|
|000033e0| 29 0a 58 09 09 73 68 61 | 64 69 6e 67 20 3d 20 26 |).X..sha|ding = &|
|000033f0| 73 68 61 64 65 5f 32 35 | 3b 0a 58 09 20 20 20 20 |shade_25|;.X. |
|00003400| 65 6c 73 65 20 69 66 20 | 28 78 20 3c 3d 20 35 30 |else if |(x <= 50|
|00003410| 29 0a 58 09 09 73 68 61 | 64 69 6e 67 20 3d 20 26 |).X..sha|ding = &|
|00003420| 73 68 61 64 65 5f 35 30 | 3b 0a 58 09 20 20 20 20 |shade_50|;.X. |
|00003430| 65 6c 73 65 0a 58 09 09 | 73 68 61 64 69 6e 67 20 |else.X..|shading |
|00003440| 3d 20 26 73 68 61 64 65 | 5f 37 35 3b 0a 58 09 7d |= &shade|_75;.X.}|
|00003450| 20 65 6c 73 65 0a 58 09 | 20 20 20 20 73 68 61 64 | else.X.| shad|
|00003460| 69 6e 67 20 3d 20 26 73 | 68 61 64 65 5f 32 35 3b |ing = &s|hade_25;|
|00003470| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 49 66 20 6e 6f |.X.X |/* If no|
|00003480| 20 66 69 6c 65 20 67 69 | 76 65 6e 2c 20 74 61 6b | file gi|ven, tak|
|00003490| 65 20 22 73 74 72 22 20 | 61 72 67 20 61 73 20 6d |e "str" |arg as m|
|000034a0| 65 73 73 61 67 65 20 74 | 6f 20 70 72 69 6e 74 20 |essage t|o print |
|000034b0| 2a 2f 0a 58 20 20 20 20 | 69 66 20 28 21 66 69 6c |*/.X |if (!fil|
|000034c0| 65 20 7c 7c 20 21 2a 66 | 69 6c 65 29 20 7b 0a 58 |e || !*f|ile) {.X|
|000034d0| 09 66 6f 72 20 28 68 65 | 69 67 68 74 20 3d 20 30 |.for (he|ight = 0|
|000034e0| 3b 20 2a 73 74 72 20 26 | 26 20 68 65 69 67 68 74 |; *str &|& height|
|000034f0| 20 3c 20 4d 41 58 4c 49 | 4e 45 53 2d 31 3b 20 68 | < MAXLI|NES-1; h|
|00003500| 65 69 67 68 74 2b 2b 29 | 20 7b 0a 58 09 20 20 20 |eight++)| {.X. |
|00003510| 20 69 66 20 28 21 63 6f | 6d 70 6f 73 65 5f 73 74 | if (!co|mpose_st|
|00003520| 72 28 2a 73 74 72 2c 20 | 26 77 69 64 74 68 29 29 |r(*str, |&width))|
|00003530| 0a 58 09 09 62 72 65 61 | 6b 3b 0a 58 09 20 20 20 |.X..brea|k;.X. |
|00003540| 20 28 76 6f 69 64 29 20 | 73 74 72 63 70 79 28 61 | (void) |strcpy(a|
|00003550| 72 67 73 5b 68 65 69 67 | 68 74 5d 2c 20 2a 73 74 |rgs[heig|ht], *st|
|00003560| 72 2b 2b 29 3b 0a 58 09 | 7d 0a 58 20 20 20 20 7d |r++);.X.|}.X }|
|00003570| 20 65 6c 73 65 20 7b 0a | 58 09 69 66 20 28 21 28 | else {.|X.if (!(|
|00003580| 66 70 20 3d 20 66 6f 70 | 65 6e 28 66 69 6c 65 2c |fp = fop|en(file,|
|00003590| 20 22 72 22 29 29 29 0a | 58 09 20 20 20 20 72 65 | "r"))).|X. re|
|000035a0| 74 75 72 6e 20 2d 31 3b | 0a 58 09 2f 2a 20 6c 6f |turn -1;|.X./* lo|
|000035b0| 6f 6b 20 66 6f 72 20 25 | 73 74 72 25 20 69 6e 20 |ok for %|str% in |
|000035c0| 68 65 6c 70 66 69 6c 65 | 20 2a 2f 0a 58 09 28 76 |helpfile| */.X.(v|
|000035d0| 6f 69 64 29 20 73 70 72 | 69 6e 74 66 28 68 65 6c |oid) spr|intf(hel|
|000035e0| 70 5f 73 74 72 2c 20 22 | 25 25 25 73 25 25 5c 6e |p_str, "|%%%s%%\n|
|000035f0| 22 2c 20 73 74 72 29 3b | 0a 58 0a 58 09 77 68 69 |", str);|.X.X.whi|
|00003600| 6c 65 28 70 20 3d 20 66 | 67 65 74 73 28 61 72 67 |le(p = f|gets(arg|
|00003610| 73 5b 30 5d 2c 20 4d 41 | 58 4c 45 4e 47 54 48 2c |s[0], MA|XLENGTH,|
|00003620| 20 66 70 29 29 0a 58 09 | 20 20 20 20 69 66 20 28 | fp)).X.| if (|
|00003630| 2a 70 20 3d 3d 20 27 25 | 27 20 26 26 20 21 73 74 |*p == '%|' && !st|
|00003640| 72 63 6d 70 28 70 2c 20 | 68 65 6c 70 5f 73 74 72 |rcmp(p, |help_str|
|00003650| 29 29 0a 58 09 09 62 72 | 65 61 6b 3b 0a 58 0a 58 |)).X..br|eak;.X.X|
|00003660| 09 69 66 20 28 21 70 20 | 7c 7c 20 21 66 67 65 74 |.if (!p ||| !fget|
|00003670| 73 28 61 72 67 73 5b 30 | 5d 2c 20 4d 41 58 4c 45 |s(args[0|], MAXLE|
|00003680| 4e 47 54 48 2c 20 66 70 | 29 29 20 7b 0a 58 09 20 |NGTH, fp|)) {.X. |
|00003690| 20 20 20 63 68 61 72 20 | 62 75 66 5b 36 34 5d 3b | char |buf[64];|
|000036a0| 0a 58 09 20 20 20 20 66 | 6f 72 28 68 65 69 67 68 |.X. f|or(heigh|
|000036b0| 74 20 3d 20 30 3b 20 64 | 65 66 5f 6d 73 67 5b 68 |t = 0; d|ef_msg[h|
|000036c0| 65 69 67 68 74 5d 20 26 | 26 20 68 65 69 67 68 74 |eight] &|& height|
|000036d0| 20 3c 20 4d 41 58 4c 49 | 4e 45 53 2d 31 3b 20 68 | < MAXLI|NES-1; h|
|000036e0| 65 69 67 68 74 2b 2b 29 | 20 7b 0a 58 09 09 73 70 |eight++)| {.X..sp|
|000036f0| 72 69 6e 74 66 28 62 75 | 66 2c 20 64 65 66 5f 6d |rintf(bu|f, def_m|
|00003700| 73 67 5b 68 65 69 67 68 | 74 5d 2c 20 73 74 72 29 |sg[heigh|t], str)|
|00003710| 3b 0a 58 09 09 63 6f 6d | 70 6f 73 65 5f 73 74 72 |;.X..com|pose_str|
|00003720| 28 62 75 66 2c 20 26 77 | 69 64 74 68 29 3b 0a 58 |(buf, &w|idth);.X|
|00003730| 09 09 28 76 6f 69 64 29 | 20 73 74 72 63 70 79 28 |..(void)| strcpy(|
|00003740| 61 72 67 73 5b 68 65 69 | 67 68 74 5d 2c 20 62 75 |args[hei|ght], bu|
|00003750| 66 29 3b 0a 58 09 20 20 | 20 20 7d 0a 58 09 7d 20 |f);.X. | }.X.} |
|00003760| 65 6c 73 65 0a 58 09 20 | 20 20 20 66 6f 72 20 28 |else.X. | for (|
|00003770| 68 65 69 67 68 74 20 3d | 20 30 3b 20 70 20 26 26 |height =| 0; p &&|
|00003780| 20 2a 70 20 26 26 20 73 | 74 72 63 6d 70 28 70 2c | *p && s|trcmp(p,|
|00003790| 20 22 25 25 5c 6e 22 29 | 3b 20 68 65 69 67 68 74 | "%%\n")|; height|
|000037a0| 2b 2b 29 20 7b 0a 58 09 | 09 63 6f 6d 70 6f 73 65 |++) {.X.|.compose|
|000037b0| 5f 73 74 72 28 70 2c 20 | 26 77 69 64 74 68 29 3b |_str(p, |&width);|
|000037c0| 0a 58 09 09 70 20 3d 20 | 66 67 65 74 73 28 61 72 |.X..p = |fgets(ar|
|000037d0| 67 73 5b 68 65 69 67 68 | 74 2b 31 5d 2c 20 4d 41 |gs[heigh|t+1], MA|
|000037e0| 58 4c 45 4e 47 54 48 2c | 20 66 70 29 3b 0a 58 09 |XLENGTH,| fp);.X.|
|000037f0| 20 20 20 20 7d 0a 58 20 | 20 20 20 7d 0a 58 20 20 | }.X | }.X |
|00003800| 20 20 69 66 20 28 68 65 | 69 67 68 74 20 3d 3d 20 | if (he|ight == |
|00003810| 4d 41 58 4c 49 4e 45 53 | 20 2d 20 31 29 0a 58 09 |MAXLINES| - 1).X.|
|00003820| 70 72 69 6e 74 28 22 48 | 65 6c 70 20 6d 65 73 73 |print("H|elp mess|
|00003830| 61 67 65 20 69 73 20 74 | 6f 6f 20 6c 6f 6e 67 21 |age is t|oo long!|
|00003840| 5c 6e 22 29 3b 0a 58 0a | 58 20 20 20 20 66 63 6c |\n");.X.|X fcl|
|00003850| 6f 73 65 28 66 70 29 3b | 0a 58 0a 58 20 20 20 20 |ose(fp);|.X.X |
|00003860| 66 73 20 3d 20 66 75 6c | 6c 73 63 72 65 65 6e 5f |fs = ful|lscreen_|
|00003870| 69 6e 69 74 28 66 64 29 | 3b 0a 58 20 20 20 20 2f |init(fd)|;.X /|
|00003880| 2a 20 46 69 67 75 72 65 | 20 6f 75 74 20 74 68 65 |* Figure| out the|
|00003890| 20 68 65 69 67 68 74 20 | 61 6e 64 20 77 69 64 74 | height |and widt|
|000038a0| 68 20 69 6e 20 70 69 78 | 65 6c 73 20 28 72 65 63 |h in pix|els (rec|
|000038b0| 74 2e 72 5f 68 65 69 67 | 68 74 2c 20 72 65 63 74 |t.r_heig|ht, rect|
|000038c0| 2e 72 5f 77 69 64 74 68 | 29 0a 58 20 20 20 20 20 |.r_width|).X |
|000038d0| 2a 20 52 65 6d 65 6d 62 | 65 72 20 74 6f 20 70 72 |* Rememb|er to pr|
|000038e0| 6f 76 69 64 65 20 66 6f | 72 20 74 68 65 20 22 63 |ovide fo|r the "c|
|000038f0| 6f 6e 66 69 72 6d 22 20 | 6c 69 6e 65 20 28 63 6f |onfirm" |line (co|
|00003900| 6e 74 5f 6d 73 67 29 2e | 0a 58 20 20 20 20 20 2a |nt_msg).|.X *|
|00003910| 20 65 78 74 65 6e 64 20 | 74 68 65 20 6e 65 77 20 | extend |the new |
|00003920| 62 6f 78 20 62 79 20 31 | 35 20 70 69 78 65 6c 73 |box by 1|5 pixels|
|00003930| 20 6f 6e 20 74 68 65 20 | 73 69 64 65 73 20 28 33 | on the |sides (3|
|00003940| 30 20 74 6f 74 61 6c 29 | 2c 20 74 6f 70 2c 20 61 |0 total)|, top, a|
|00003950| 6e 64 20 62 6f 74 74 6f | 6d 2e 0a 58 20 20 20 20 |nd botto|m..X |
|00003960| 20 2a 20 66 69 6e 61 6c | 6c 79 2c 20 61 64 64 20 | * final|ly, add |
|00003970| 31 36 20 70 69 78 65 6c | 73 20 66 6f 72 20 22 73 |16 pixel|s for "s|
|00003980| 68 61 64 6f 77 22 20 2d | 2d 20 72 65 6d 6f 76 65 |hadow" -|- remove|
|00003990| 20 62 65 66 6f 72 65 20 | 63 6c 65 61 72 69 6e 67 | before |clearing|
|000039a0| 20 61 72 65 61 0a 58 20 | 20 20 20 20 2a 20 74 6f | area.X | * to|
|000039b0| 20 70 72 65 73 65 72 76 | 65 20 62 61 63 6b 67 72 | preserv|e backgr|
|000039c0| 6f 75 6e 64 20 61 6e 64 | 20 67 69 76 65 20 61 20 |ound and| give a |
|000039d0| 73 68 61 64 6f 77 2d 6c | 69 6b 65 20 61 70 70 65 |shadow-l|ike appe|
|000039e0| 61 72 61 6e 63 65 2e 0a | 58 20 20 20 20 20 2a 2f |arance..|X */|
|000039f0| 0a 58 20 20 20 20 69 66 | 20 28 28 78 20 3d 20 73 |.X if| ((x = s|
|00003a00| 74 72 6c 65 6e 28 63 6f | 6e 74 5f 6d 73 67 29 29 |trlen(co|nt_msg))|
|00003a10| 20 3e 20 77 69 64 74 68 | 29 0a 58 09 77 69 64 74 | > width|).X.widt|
|00003a20| 68 20 3d 20 78 3b 20 2f | 2a 20 74 68 69 73 20 78 |h = x; /|* this x|
|00003a30| 20 76 61 6c 75 65 20 6d | 75 73 74 20 62 65 20 73 | value m|ust be s|
|00003a40| 61 76 65 64 21 20 2a 2f | 0a 58 20 20 20 20 72 65 |aved! */|.X re|
|00003a50| 63 74 2e 72 5f 77 69 64 | 74 68 20 3d 20 28 77 69 |ct.r_wid|th = (wi|
|00003a60| 64 74 68 2a 6c 5f 77 69 | 64 74 68 28 29 29 20 2b |dth*l_wi|dth()) +|
|00003a70| 20 33 30 20 2b 20 31 36 | 3b 0a 58 20 20 20 20 72 | 30 + 16|;.X r|
|00003a80| 65 63 74 2e 72 5f 68 65 | 69 67 68 74 20 3d 20 28 |ect.r_he|ight = (|
|00003a90| 28 68 65 69 67 68 74 2b | 31 29 20 2a 20 6c 5f 68 |(height+|1) * l_h|
|00003aa0| 65 69 67 68 74 28 29 29 | 20 2b 20 33 30 20 2b 20 |eight())| + 30 + |
|00003ab0| 31 36 3b 0a 58 20 20 20 | 20 72 65 63 74 2e 72 5f |16;.X | rect.r_|
|00003ac0| 6c 65 66 74 20 3d 20 66 | 73 2d 3e 66 73 5f 73 63 |left = f|s->fs_sc|
|00003ad0| 72 65 65 6e 72 65 63 74 | 2e 72 5f 6c 65 66 74 20 |reenrect|.r_left |
|00003ae0| 2b 0a 58 09 28 66 73 2d | 3e 66 73 5f 73 63 72 65 |+.X.(fs-|>fs_scre|
|00003af0| 65 6e 72 65 63 74 2e 72 | 5f 77 69 64 74 68 20 2f |enrect.r|_width /|
|00003b00| 20 32 29 20 2d 20 28 72 | 65 63 74 2e 72 5f 77 69 | 2) - (r|ect.r_wi|
|00003b10| 64 74 68 20 2f 20 32 29 | 3b 0a 58 20 20 20 20 72 |dth / 2)|;.X r|
|00003b20| 65 63 74 2e 72 5f 74 6f | 70 20 3d 20 66 73 2d 3e |ect.r_to|p = fs->|
|00003b30| 66 73 5f 73 63 72 65 65 | 6e 72 65 63 74 2e 72 5f |fs_scree|nrect.r_|
|00003b40| 74 6f 70 20 2b 0a 58 09 | 28 66 73 2d 3e 66 73 5f |top +.X.|(fs->fs_|
|00003b50| 73 63 72 65 65 6e 72 65 | 63 74 2e 72 5f 68 65 69 |screenre|ct.r_hei|
|00003b60| 67 68 74 20 2f 20 32 29 | 20 2d 20 28 72 65 63 74 |ght / 2)| - (rect|
|00003b70| 2e 72 5f 68 65 69 67 68 | 74 20 2f 20 32 29 3b 0a |.r_heigh|t / 2);.|
|00003b80| 58 0a 58 20 20 20 20 2f | 2a 20 73 61 76 65 20 6f |X.X /|* save o|
|00003b90| 6c 64 20 61 72 65 61 20 | 2a 2f 0a 58 20 20 20 20 |ld area |*/.X |
|00003ba0| 73 61 76 65 64 20 3d 20 | 73 61 76 65 5f 62 69 74 |saved = |save_bit|
|00003bb0| 73 28 66 73 2d 3e 66 73 | 5f 70 69 78 77 69 6e 2c |s(fs->fs|_pixwin,|
|00003bc0| 20 26 72 65 63 74 29 3b | 0a 58 0a 58 20 20 20 20 | &rect);|.X.X |
|00003bd0| 2f 2a 20 70 72 65 70 61 | 72 65 20 73 75 72 66 61 |/* prepa|re surfa|
|00003be0| 63 65 2c 20 63 6c 65 61 | 72 20 74 68 65 20 62 61 |ce, clea|r the ba|
|00003bf0| 63 6b 67 72 6f 75 6e 64 | 2c 20 61 6e 64 20 72 65 |ckground|, and re|
|00003c00| 73 65 74 20 72 65 63 74 | 20 66 6f 72 20 73 68 61 |set rect| for sha|
|00003c10| 64 6f 77 20 2a 2f 0a 58 | 20 20 20 20 70 77 5f 70 |dow */.X| pw_p|
|00003c20| 72 65 70 61 72 65 73 75 | 72 66 61 63 65 28 66 73 |reparesu|rface(fs|
|00003c30| 2d 3e 66 73 5f 70 69 78 | 77 69 6e 2c 20 26 72 65 |->fs_pix|win, &re|
|00003c40| 63 74 29 3b 0a 58 20 20 | 20 20 70 77 5f 6c 6f 63 |ct);.X | pw_loc|
|00003c50| 6b 28 66 73 2d 3e 66 73 | 5f 70 69 78 77 69 6e 2c |k(fs->fs|_pixwin,|
|00003c60| 20 26 72 65 63 74 29 3b | 0a 58 20 20 20 20 72 65 | &rect);|.X re|
|00003c70| 63 74 2e 72 5f 77 69 64 | 74 68 20 2d 3d 20 31 36 |ct.r_wid|th -= 16|
|00003c80| 3b 0a 58 20 20 20 20 72 | 65 63 74 2e 72 5f 68 65 |;.X r|ect.r_he|
|00003c90| 69 67 68 74 20 2d 3d 20 | 31 36 3b 0a 58 0a 58 20 |ight -= |16;.X.X |
|00003ca0| 20 20 20 70 77 5f 77 72 | 69 74 65 62 61 63 6b 67 | pw_wr|itebackg|
|00003cb0| 72 6f 75 6e 64 28 66 73 | 2d 3e 66 73 5f 70 69 78 |round(fs|->fs_pix|
|00003cc0| 77 69 6e 2c 0a 58 09 72 | 65 63 74 2e 72 5f 6c 65 |win,.X.r|ect.r_le|
|00003cd0| 66 74 2c 20 72 65 63 74 | 2e 72 5f 74 6f 70 2c 20 |ft, rect|.r_top, |
|00003ce0| 72 65 63 74 2e 72 5f 77 | 69 64 74 68 2c 20 72 65 |rect.r_w|idth, re|
|00003cf0| 63 74 2e 72 5f 68 65 69 | 67 68 74 2c 20 50 49 58 |ct.r_hei|ght, PIX|
|00003d00| 5f 43 4c 52 29 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |_CLR);.X|.X /*|
|00003d10| 20 6d 61 6b 65 20 61 20 | 62 6f 78 20 74 68 61 74 | make a |box that|
|00003d20| 27 73 20 35 20 70 69 78 | 65 6c 73 20 74 68 69 63 |'s 5 pix|els thic|
|00003d30| 6b 2e 20 54 68 65 6e 20 | 61 64 64 20 61 20 74 68 |k. Then |add a th|
|00003d40| 69 6e 20 62 6f 78 20 69 | 6e 73 69 64 65 20 69 74 |in box i|nside it|
|00003d50| 20 2a 2f 0a 58 20 20 20 | 20 66 6f 72 20 28 7a 20 | */.X | for (z |
|00003d60| 3d 20 30 3b 20 7a 20 3c | 20 35 3b 20 7a 2b 2b 29 |= 0; z <| 5; z++)|
|00003d70| 0a 58 09 62 6f 78 28 66 | 73 2d 3e 66 73 5f 70 69 |.X.box(f|s->fs_pi|
|00003d80| 78 77 69 6e 2c 0a 58 09 | 20 20 20 20 72 65 63 74 |xwin,.X.| rect|
|00003d90| 2e 72 5f 6c 65 66 74 2b | 7a 2c 20 72 65 63 74 2e |.r_left+|z, rect.|
|00003da0| 72 5f 74 6f 70 2b 7a 2c | 0a 58 09 20 20 20 20 72 |r_top+z,|.X. r|
|00003db0| 65 63 74 2e 72 5f 6c 65 | 66 74 2b 72 65 63 74 2e |ect.r_le|ft+rect.|
|00003dc0| 72 5f 77 69 64 74 68 2d | 7a 2d 31 2c 20 72 65 63 |r_width-|z-1, rec|
|00003dd0| 74 2e 72 5f 74 6f 70 2b | 72 65 63 74 2e 72 5f 68 |t.r_top+|rect.r_h|
|00003de0| 65 69 67 68 74 2d 7a 2d | 31 2c 0a 58 09 20 20 20 |eight-z-|1,.X. |
|00003df0| 20 50 49 58 5f 53 52 43 | 29 3b 0a 58 20 20 20 20 | PIX_SRC|);.X |
|00003e00| 62 6f 78 28 66 73 2d 3e | 66 73 5f 70 69 78 77 69 |box(fs->|fs_pixwi|
|00003e10| 6e 2c 0a 58 09 72 65 63 | 74 2e 72 5f 6c 65 66 74 |n,.X.rec|t.r_left|
|00003e20| 2b 7a 2b 32 2c 20 72 65 | 63 74 2e 72 5f 74 6f 70 |+z+2, re|ct.r_top|
|00003e30| 2b 7a 2b 32 2c 0a 58 09 | 72 65 63 74 2e 72 5f 6c |+z+2,.X.|rect.r_l|
|00003e40| 65 66 74 2b 72 65 63 74 | 2e 72 5f 77 69 64 74 68 |eft+rect|.r_width|
|00003e50| 2d 7a 2d 33 2c 20 72 65 | 63 74 2e 72 5f 74 6f 70 |-z-3, re|ct.r_top|
|00003e60| 2b 72 65 63 74 2e 72 5f | 68 65 69 67 68 74 2d 7a |+rect.r_|height-z|
|00003e70| 2d 33 2c 0a 58 09 50 49 | 58 5f 53 52 43 29 3b 0a |-3,.X.PI|X_SRC);.|
|00003e80| 58 0a 58 20 20 20 20 2f | 2a 20 73 68 61 64 69 6e |X.X /|* shadin|
|00003e90| 67 20 2d 2d 20 70 77 5f | 72 65 70 6c 72 6f 70 28 |g -- pw_|replrop(|
|00003ea0| 29 20 64 6f 65 73 6e 27 | 74 20 77 6f 72 6b 20 28 |) doesn'|t work (|
|00003eb0| 62 75 67 29 0a 58 20 20 | 20 20 20 2a 20 4e 4f 54 |bug).X | * NOT|
|00003ec0| 45 3a 20 66 73 2d 3e 66 | 73 5f 73 63 72 65 65 6e |E: fs->f|s_screen|
|00003ed0| 72 65 63 74 2e 72 5f 74 | 6f 70 20 61 6e 64 20 72 |rect.r_t|op and r|
|00003ee0| 5f 6c 65 66 74 20 61 72 | 65 20 6e 65 67 61 74 69 |_left ar|e negati|
|00003ef0| 76 65 20 76 61 6c 75 65 | 73 0a 58 20 20 20 20 20 |ve value|s.X |
|00003f00| 2a 2f 0a 58 20 20 20 20 | 70 72 5f 72 65 70 6c 72 |*/.X |pr_replr|
|00003f10| 6f 70 28 66 73 2d 3e 66 | 73 5f 70 69 78 77 69 6e |op(fs->f|s_pixwin|
|00003f20| 2d 3e 70 77 5f 70 69 78 | 72 65 63 74 2c 0a 58 09 |->pw_pix|rect,.X.|
|00003f30| 20 20 20 72 65 63 74 2e | 72 5f 6c 65 66 74 20 2b | rect.|r_left +|
|00003f40| 20 72 65 63 74 2e 72 5f | 77 69 64 74 68 20 2d 20 | rect.r_|width - |
|00003f50| 66 73 2d 3e 66 73 5f 73 | 63 72 65 65 6e 72 65 63 |fs->fs_s|creenrec|
|00003f60| 74 2e 72 5f 6c 65 66 74 | 2c 0a 58 09 20 20 20 72 |t.r_left|,.X. r|
|00003f70| 65 63 74 2e 72 5f 74 6f | 70 20 2b 20 31 36 20 2d |ect.r_to|p + 16 -|
|00003f80| 20 66 73 2d 3e 66 73 5f | 73 63 72 65 65 6e 72 65 | fs->fs_|screenre|
|00003f90| 63 74 2e 72 5f 74 6f 70 | 2c 0a 58 09 20 20 20 31 |ct.r_top|,.X. 1|
|00003fa0| 36 2c 20 72 65 63 74 2e | 72 5f 68 65 69 67 68 74 |6, rect.|r_height|
|00003fb0| 2d 31 36 2c 20 50 49 58 | 5f 53 52 43 7c 50 49 58 |-16, PIX|_SRC|PIX|
|00003fc0| 5f 44 53 54 2c 20 73 68 | 61 64 69 6e 67 2c 20 30 |_DST, sh|ading, 0|
|00003fd0| 2c 20 30 29 3b 0a 58 20 | 20 20 20 70 72 5f 72 65 |, 0);.X | pr_re|
|00003fe0| 70 6c 72 6f 70 28 66 73 | 2d 3e 66 73 5f 70 69 78 |plrop(fs|->fs_pix|
|00003ff0| 77 69 6e 2d 3e 70 77 5f | 70 69 78 72 65 63 74 2c |win->pw_|pixrect,|
|00004000| 0a 58 09 20 20 20 72 65 | 63 74 2e 72 5f 6c 65 66 |.X. re|ct.r_lef|
|00004010| 74 20 2b 20 31 36 20 2d | 20 66 73 2d 3e 66 73 5f |t + 16 -| fs->fs_|
|00004020| 73 63 72 65 65 6e 72 65 | 63 74 2e 72 5f 6c 65 66 |screenre|ct.r_lef|
|00004030| 74 2c 0a 58 09 20 20 20 | 72 65 63 74 2e 72 5f 74 |t,.X. |rect.r_t|
|00004040| 6f 70 2b 72 65 63 74 2e | 72 5f 68 65 69 67 68 74 |op+rect.|r_height|
|00004050| 20 2d 20 66 73 2d 3e 66 | 73 5f 73 63 72 65 65 6e | - fs->f|s_screen|
|00004060| 72 65 63 74 2e 72 5f 74 | 6f 70 2c 0a 58 09 20 20 |rect.r_t|op,.X. |
|00004070| 20 72 65 63 74 2e 72 5f | 77 69 64 74 68 2c 20 31 | rect.r_|width, 1|
|00004080| 36 2c 20 50 49 58 5f 53 | 52 43 7c 50 49 58 5f 44 |6, PIX_S|RC|PIX_D|
|00004090| 53 54 2c 20 73 68 61 64 | 69 6e 67 2c 20 30 2c 20 |ST, shad|ing, 0, |
|000040a0| 30 29 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 78 |0);.X.X | if (x|
|000040b0| 20 3e 20 77 69 64 74 68 | 29 0a 58 09 78 20 3d 20 | > width|).X.x = |
|000040c0| 31 35 3b 0a 58 20 20 20 | 20 65 6c 73 65 0a 58 09 |15;.X | else.X.|
|000040d0| 78 20 3d 20 72 65 63 74 | 2e 72 5f 77 69 64 74 68 |x = rect|.r_width|
|000040e0| 2f 32 20 2d 20 28 78 2a | 6c 5f 77 69 64 74 68 28 |/2 - (x*|l_width(|
|000040f0| 29 29 2f 32 3b 0a 58 20 | 20 20 20 79 20 3d 20 72 |))/2;.X | y = r|
|00004100| 65 63 74 2e 72 5f 68 65 | 69 67 68 74 20 2d 20 31 |ect.r_he|ight - 1|
|00004110| 35 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 50 72 69 |5;.X.X | /* Pri|
|00004120| 6e 74 20 65 76 65 72 79 | 74 68 69 6e 67 20 69 6e |nt every|thing in|
|00004130| 20 72 65 76 65 72 73 65 | 20 6f 72 64 65 72 20 6e | reverse| order n|
|00004140| 6f 77 3b 20 73 74 61 72 | 74 20 77 69 74 68 20 74 |ow; star|t with t|
|00004150| 68 65 20 22 63 6f 6e 66 | 69 72 6d 22 20 73 74 72 |he "conf|irm" str|
|00004160| 69 6e 67 0a 58 20 20 20 | 20 20 2a 20 28 77 68 69 |ing.X | * (whi|
|00004170| 63 68 20 69 73 20 63 65 | 6e 74 65 72 65 64 20 61 |ch is ce|ntered a|
|00004180| 6e 64 20 68 69 67 68 6c | 69 67 68 74 65 64 29 0a |nd highl|ighted).|
|00004190| 58 20 20 20 20 20 2a 2f | 0a 58 20 20 20 20 70 77 |X */|.X pw|
|000041a0| 5f 74 65 78 74 28 66 73 | 2d 3e 66 73 5f 70 69 78 |_text(fs|->fs_pix|
|000041b0| 77 69 6e 2c 20 72 65 63 | 74 2e 72 5f 6c 65 66 74 |win, rec|t.r_left|
|000041c0| 2b 78 2c 20 72 65 63 74 | 2e 72 5f 74 6f 70 2b 79 |+x, rect|.r_top+y|
|000041d0| 2c 20 50 49 58 5f 53 52 | 43 2c 66 6f 6e 74 2c 20 |, PIX_SR|C,font, |
|000041e0| 63 6f 6e 74 5f 6d 73 67 | 29 3b 0a 58 20 20 20 20 |cont_msg|);.X |
|000041f0| 70 77 5f 74 65 78 74 28 | 66 73 2d 3e 66 73 5f 70 |pw_text(|fs->fs_p|
|00004200| 69 78 77 69 6e 2c 20 72 | 65 63 74 2e 72 5f 6c 65 |ixwin, r|ect.r_le|
|00004210| 66 74 2b 78 2b 31 2c 20 | 72 65 63 74 2e 72 5f 74 |ft+x+1, |rect.r_t|
|00004220| 6f 70 2b 79 2c 20 50 49 | 58 5f 53 52 43 7c 50 49 |op+y, PI|X_SRC|PI|
|00004230| 58 5f 44 53 54 2c 20 66 | 6f 6e 74 2c 0a 58 09 20 |X_DST, f|ont,.X. |
|00004240| 20 20 20 63 6f 6e 74 5f | 6d 73 67 29 3b 0a 58 0a | cont_|msg);.X.|
|00004250| 58 20 20 20 20 79 20 2d | 3d 20 28 35 20 2b 20 6c |X y -|= (5 + l|
|00004260| 5f 68 65 69 67 68 74 28 | 29 29 3b 0a 58 20 20 20 |_height(|));.X |
|00004270| 20 78 20 3d 20 31 35 3b | 0a 58 0a 58 20 20 20 20 | x = 15;|.X.X |
|00004280| 2f 2a 20 6e 6f 77 20 70 | 72 69 6e 74 20 65 61 63 |/* now p|rint eac|
|00004290| 68 20 73 74 72 69 6e 67 | 20 69 6e 20 72 65 76 65 |h string| in reve|
|000042a0| 72 73 65 20 6f 72 64 65 | 72 20 28 73 74 61 72 74 |rse orde|r (start|
|000042b0| 20 61 74 20 62 6f 74 74 | 6f 6d 20 6f 66 20 62 6f | at bott|om of bo|
|000042c0| 78 29 20 2a 2f 0a 58 20 | 20 20 20 66 6f 72 20 28 |x) */.X | for (|
|000042d0| 68 65 69 67 68 74 2d 2d | 3b 20 68 65 69 67 68 74 |height--|; height|
|000042e0| 20 3e 3d 20 30 3b 20 68 | 65 69 67 68 74 2d 2d 29 | >= 0; h|eight--)|
|000042f0| 20 7b 0a 58 09 70 77 5f | 74 65 78 74 28 66 73 2d | {.X.pw_|text(fs-|
|00004300| 3e 66 73 5f 70 69 78 77 | 69 6e 2c 20 72 65 63 74 |>fs_pixw|in, rect|
|00004310| 2e 72 5f 6c 65 66 74 2b | 78 2c 20 72 65 63 74 2e |.r_left+|x, rect.|
|00004320| 72 5f 74 6f 70 2b 79 2c | 0a 58 09 20 20 20 20 50 |r_top+y,|.X. P|
|00004330| 49 58 5f 53 52 43 2c 20 | 66 6f 6e 74 2c 20 61 72 |IX_SRC, |font, ar|
|00004340| 67 73 5b 68 65 69 67 68 | 74 5d 29 3b 0a 58 09 79 |gs[heigh|t]);.X.y|
|00004350| 20 2d 3d 20 6c 5f 68 65 | 69 67 68 74 28 29 3b 0a | -= l_he|ight();.|
|00004360| 58 20 20 20 20 7d 0a 58 | 0a 58 20 20 20 20 70 77 |X }.X|.X pw|
|00004370| 5f 75 6e 6c 6f 63 6b 28 | 66 73 2d 3e 66 73 5f 70 |_unlock(|fs->fs_p|
|00004380| 69 78 77 69 6e 29 3b 0a | 58 0a 58 20 20 20 20 2f |ixwin);.|X.X /|
|00004390| 2a 20 77 61 69 74 20 66 | 6f 72 20 75 73 65 72 20 |* wait f|or user |
|000043a0| 74 6f 20 72 65 61 64 20 | 61 6e 64 20 63 6f 6e 66 |to read |and conf|
|000043b0| 69 72 6d 20 2a 2f 0a 58 | 20 20 20 20 77 69 6e 5f |irm */.X| win_|
|000043c0| 67 65 74 69 6e 70 75 74 | 6d 61 73 6b 28 66 64 2c |getinput|mask(fd,|
|000043d0| 20 26 6f 6c 64 5f 69 6d | 2c 20 26 6f 6c 64 5f 6c | &old_im|, &old_l|
|000043e0| 69 6e 6b 29 3b 0a 58 20 | 20 20 20 69 6e 70 75 74 |ink);.X | input|
|000043f0| 5f 69 6d 6e 75 6c 6c 28 | 26 69 6d 29 3b 0a 58 20 |_imnull(|&im);.X |
|00004400| 20 20 20 69 6d 2e 69 6d | 5f 66 6c 61 67 73 20 7c | im.im|_flags ||
|00004410| 3d 20 49 4d 5f 41 53 43 | 49 49 3b 0a 58 20 20 20 |= IM_ASC|II;.X |
|00004420| 20 77 69 6e 5f 73 65 74 | 69 6e 70 75 74 63 6f 64 | win_set|inputcod|
|00004430| 65 62 69 74 28 26 69 6d | 2c 20 4d 53 5f 4c 45 46 |ebit(&im|, MS_LEF|
|00004440| 54 29 3b 0a 58 20 20 20 | 20 77 69 6e 5f 73 65 74 |T);.X | win_set|
|00004450| 69 6e 70 75 74 63 6f 64 | 65 62 69 74 28 26 69 6d |inputcod|ebit(&im|
|00004460| 2c 20 4d 53 5f 4d 49 44 | 44 4c 45 29 3b 0a 58 20 |, MS_MID|DLE);.X |
|00004470| 20 20 20 77 69 6e 5f 73 | 65 74 69 6e 70 75 74 63 | win_s|etinputc|
|00004480| 6f 64 65 62 69 74 28 26 | 69 6d 2c 20 4d 53 5f 52 |odebit(&|im, MS_R|
|00004490| 49 47 48 54 29 3b 0a 58 | 20 20 20 20 77 69 6e 5f |IGHT);.X| win_|
|000044a0| 73 65 74 69 6e 70 75 74 | 6d 61 73 6b 28 66 64 2c |setinput|mask(fd,|
|000044b0| 20 26 69 6d 2c 20 26 69 | 6d 2c 20 57 49 4e 5f 4e | &im, &i|m, WIN_N|
|000044c0| 55 4c 4c 4c 49 4e 4b 29 | 3b 0a 58 20 20 20 20 77 |ULLLINK)|;.X w|
|000044d0| 69 6e 5f 67 65 74 63 75 | 72 73 6f 72 28 66 64 2c |in_getcu|rsor(fd,|
|000044e0| 20 26 6f 6c 64 63 75 72 | 73 6f 72 29 3b 0a 58 20 | &oldcur|sor);.X |
|000044f0| 20 20 20 77 69 6e 5f 73 | 65 74 63 75 72 73 6f 72 | win_s|etcursor|
|00004500| 28 66 64 2c 20 26 63 6f | 6e 66 69 72 6d 5f 63 75 |(fd, &co|nfirm_cu|
|00004510| 72 73 6f 72 29 3b 0a 58 | 20 20 20 20 77 68 69 6c |rsor);.X| whil|
|00004520| 65 20 28 69 6e 70 75 74 | 5f 72 65 61 64 65 76 65 |e (input|_readeve|
|00004530| 6e 74 28 66 64 2c 20 26 | 65 76 65 6e 74 29 20 21 |nt(fd, &|event) !|
|00004540| 3d 20 2d 31 20 26 26 20 | 65 76 65 6e 74 2e 69 65 |= -1 && |event.ie|
|00004550| 5f 63 6f 64 65 20 21 3d | 20 4d 53 5f 4c 45 46 54 |_code !=| MS_LEFT|
|00004560| 29 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 72 65 73 |);.X.X | /* res|
|00004570| 74 6f 72 65 20 6f 6c 64 | 20 63 75 72 73 6f 72 20 |tore old| cursor |
|00004580| 2a 2f 0a 58 20 20 20 20 | 77 69 6e 5f 73 65 74 63 |*/.X |win_setc|
|00004590| 75 72 73 6f 72 28 66 64 | 2c 20 26 6f 6c 64 63 75 |ursor(fd|, &oldcu|
|000045a0| 72 73 6f 72 29 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |rsor);.X|.X /*|
|000045b0| 20 72 65 73 74 6f 72 65 | 20 6f 6c 64 20 70 69 78 | restore| old pix|
|000045c0| 72 65 63 74 20 28 73 69 | 7a 65 20 61 6c 72 65 61 |rect (si|ze alrea|
|000045d0| 64 79 20 72 65 73 74 6f | 72 65 64 29 20 2a 2f 0a |dy resto|red) */.|
|000045e0| 58 20 20 20 20 72 65 63 | 74 2e 72 5f 68 65 69 67 |X rec|t.r_heig|
|000045f0| 68 74 20 2b 3d 20 31 36 | 3b 20 2f 2a 20 74 6f 20 |ht += 16|; /* to |
|00004600| 74 61 6b 65 20 63 61 72 | 65 20 6f 66 20 74 68 65 |take car|e of the|
|00004610| 20 73 68 61 64 6f 77 20 | 2a 2f 0a 58 20 20 20 20 | shadow |*/.X |
|00004620| 72 65 63 74 2e 72 5f 77 | 69 64 74 68 20 2b 3d 20 |rect.r_w|idth += |
|00004630| 31 36 3b 0a 58 20 20 20 | 20 72 65 73 74 6f 72 65 |16;.X | restore|
|00004640| 5f 62 69 74 73 28 66 73 | 2d 3e 66 73 5f 70 69 78 |_bits(fs|->fs_pix|
|00004650| 77 69 6e 2c 20 26 72 65 | 63 74 2c 20 73 61 76 65 |win, &re|ct, save|
|00004660| 64 29 3b 0a 58 20 20 20 | 20 2f 2a 20 72 65 6c 65 |d);.X | /* rele|
|00004670| 61 73 65 20 73 63 72 65 | 65 6e 20 2a 2f 0a 58 20 |ase scre|en */.X |
|00004680| 20 20 20 66 75 6c 6c 73 | 63 72 65 65 6e 5f 64 65 | fulls|creen_de|
|00004690| 73 74 72 6f 79 28 66 73 | 29 3b 0a 58 20 20 20 20 |stroy(fs|);.X |
|000046a0| 77 69 6e 5f 73 65 74 69 | 6e 70 75 74 6d 61 73 6b |win_seti|nputmask|
|000046b0| 28 66 64 2c 20 26 6f 6c | 64 5f 69 6d 2c 20 26 6f |(fd, &ol|d_im, &o|
|000046c0| 6c 64 5f 69 6d 2c 20 6f | 6c 64 5f 6c 69 6e 6b 29 |ld_im, o|ld_link)|
|000046d0| 3b 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 30 3b |;.X r|eturn 0;|
|000046e0| 0a 58 7d 0a 58 0a 58 73 | 74 61 74 69 63 0a 58 63 |.X}.X.Xs|tatic.Xc|
|000046f0| 6f 6d 70 6f 73 65 5f 73 | 74 72 28 70 2c 20 77 69 |ompose_s|tr(p, wi|
|00004700| 64 74 68 29 0a 58 72 65 | 67 69 73 74 65 72 20 63 |dth).Xre|gister c|
|00004710| 68 61 72 20 2a 70 3b 0a | 58 69 6e 74 20 2a 77 69 |har *p;.|Xint *wi|
|00004720| 64 74 68 3b 0a 58 7b 0a | 58 20 20 20 20 72 65 67 |dth;.X{.|X reg|
|00004730| 69 73 74 65 72 20 69 6e | 74 20 78 3b 0a 58 20 20 |ister in|t x;.X |
|00004740| 20 20 69 66 20 28 21 70 | 20 7c 7c 20 21 2a 70 29 | if (!p| || !*p)|
|00004750| 0a 58 09 72 65 74 75 72 | 6e 20 30 3b 0a 58 20 20 |.X.retur|n 0;.X |
|00004760| 20 20 78 20 3d 20 73 74 | 72 6c 65 6e 28 70 29 3b | x = st|rlen(p);|
|00004770| 0a 58 20 20 20 20 69 66 | 20 28 70 5b 78 2d 31 5d |.X if| (p[x-1]|
|00004780| 20 3d 3d 20 27 5c 6e 27 | 29 0a 58 09 70 5b 2d 2d | == '\n'|).X.p[--|
|00004790| 78 5d 20 3d 20 30 3b 20 | 2f 2a 20 67 65 74 20 72 |x] = 0; |/* get r|
|000047a0| 69 64 20 6f 66 20 6e 65 | 77 6c 69 6e 65 20 2a 2f |id of ne|wline */|
|000047b0| 0a 58 20 20 20 20 69 66 | 20 28 78 20 3e 20 2a 77 |.X if| (x > *w|
|000047c0| 69 64 74 68 29 0a 58 09 | 2a 77 69 64 74 68 20 3d |idth).X.|*width =|
|000047d0| 20 78 3b 0a 58 20 20 20 | 20 72 65 74 75 72 6e 20 | x;.X | return |
|000047e0| 31 3b 0a 58 7d 0a 58 23 | 65 6e 64 69 66 20 2f 2a |1;.X}.X#|endif /*|
|000047f0| 20 53 55 4e 54 4f 4f 4c | 20 2a 2f 0a 58 0a 58 66 | SUNTOOL| */.X.Xf|
|00004800| 69 6e 64 5f 68 65 6c 70 | 28 73 74 72 2c 20 66 69 |ind_help|(str, fi|
|00004810| 6c 65 29 0a 58 72 65 67 | 69 73 74 65 72 20 63 61 |le).Xreg|ister ca|
|00004820| 64 64 72 5f 74 20 2a 73 | 74 72 3b 0a 58 72 65 67 |ddr_t *s|tr;.Xreg|
|00004830| 69 73 74 65 72 20 63 68 | 61 72 20 2a 66 69 6c 65 |ister ch|ar *file|
|00004840| 3b 0a 58 7b 0a 58 20 20 | 20 20 72 65 67 69 73 74 |;.X{.X | regist|
|00004850| 65 72 20 63 68 61 72 09 | 2a 70 3b 0a 58 20 20 20 |er char.|*p;.X |
|00004860| 20 63 68 61 72 09 09 62 | 75 66 5b 42 55 46 53 49 | char..b|uf[BUFSI|
|00004870| 5a 5d 2c 20 68 65 6c 70 | 5f 73 74 72 5b 34 30 5d |Z], help|_str[40]|
|00004880| 3b 0a 58 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |;.X r|egister |
|00004890| 69 6e 74 09 68 65 69 67 | 68 74 3b 0a 58 20 20 20 |int.heig|ht;.X |
|000048a0| 20 65 78 74 65 72 6e 20 | 63 68 61 72 09 09 2a 6e | extern |char..*n|
|000048b0| 6f 5f 6e 65 77 6c 6e 28 | 29 3b 0a 58 20 20 20 20 |o_newln(|);.X |
|000048c0| 46 49 4c 45 09 09 2a 66 | 70 3b 0a 58 0a 58 20 20 |FILE..*f|p;.X.X |
|000048d0| 20 20 2f 2a 20 49 66 20 | 6e 6f 20 66 69 6c 65 20 | /* If |no file |
|000048e0| 67 69 76 65 6e 2c 20 74 | 61 6b 65 20 22 73 74 72 |given, t|ake "str|
|000048f0| 22 20 61 72 67 20 61 73 | 20 6d 65 73 73 61 67 65 |" arg as| message|
|00004900| 20 74 6f 20 70 72 69 6e | 74 20 2a 2f 0a 58 20 20 | to prin|t */.X |
|00004910| 20 20 69 66 20 28 21 66 | 69 6c 65 20 7c 7c 20 21 | if (!f|ile || !|
|00004920| 2a 66 69 6c 65 29 20 7b | 0a 58 09 2f 2a 20 75 73 |*file) {|.X./* us|
|00004930| 65 20 74 68 65 20 70 61 | 67 65 72 20 6f 6e 20 74 |e the pa|ger on t|
|00004940| 68 65 20 61 72 67 73 20 | 74 6f 20 74 68 65 20 66 |he args |to the f|
|00004950| 75 6e 63 74 69 6f 6e 20 | 2a 2f 0a 58 09 64 6f 5f |unction |*/.X.do_|
|00004960| 70 61 67 65 72 28 4e 55 | 4c 4c 2c 20 54 52 55 45 |pager(NU|LL, TRUE|
|00004970| 29 3b 0a 58 09 77 68 69 | 6c 65 20 28 2a 73 74 72 |);.X.whi|le (*str|
|00004980| 29 20 7b 0a 58 09 20 20 | 20 20 28 76 6f 69 64 29 |) {.X. | (void)|
|00004990| 20 64 6f 5f 70 61 67 65 | 72 28 2a 73 74 72 2b 2b | do_page|r(*str++|
|000049a0| 2c 20 46 41 4c 53 45 29 | 3b 0a 58 09 20 20 20 20 |, FALSE)|;.X. |
|000049b0| 69 66 20 28 64 6f 5f 70 | 61 67 65 72 28 22 5c 6e |if (do_p|ager("\n|
|000049c0| 22 2c 20 46 41 4c 53 45 | 29 20 3d 3d 20 45 4f 46 |", FALSE|) == EOF|
|000049d0| 29 0a 58 09 09 62 72 65 | 61 6b 3b 0a 58 09 7d 0a |).X..bre|ak;.X.}.|
|000049e0| 58 09 64 6f 5f 70 61 67 | 65 72 28 4e 55 4c 4c 2c |X.do_pag|er(NULL,|
|000049f0| 20 46 41 4c 53 45 29 3b | 0a 58 09 72 65 74 75 72 | FALSE);|.X.retur|
|00004a00| 6e 20 30 3b 0a 58 20 20 | 20 20 7d 0a 58 0a 58 20 |n 0;.X | }.X.X |
|00004a10| 20 20 20 69 66 20 28 21 | 28 66 70 20 3d 20 66 6f | if (!|(fp = fo|
|00004a20| 70 65 6e 28 66 69 6c 65 | 2c 20 22 72 22 29 29 29 |pen(file|, "r")))|
|00004a30| 0a 58 09 72 65 74 75 72 | 6e 20 2d 31 3b 0a 58 20 |.X.retur|n -1;.X |
|00004a40| 20 20 20 2f 2a 20 6c 6f | 6f 6b 20 66 6f 72 20 25 | /* lo|ok for %|
|00004a50| 73 74 72 25 20 69 6e 20 | 68 65 6c 70 66 69 6c 65 |str% in |helpfile|
|00004a60| 20 2a 2f 0a 58 20 20 20 | 20 28 76 6f 69 64 29 20 | */.X | (void) |
|00004a70| 73 70 72 69 6e 74 66 28 | 68 65 6c 70 5f 73 74 72 |sprintf(|help_str|
|00004a80| 2c 20 22 25 25 25 73 25 | 25 5c 6e 22 2c 20 73 74 |, "%%%s%|%\n", st|
|00004a90| 72 29 3b 0a 58 0a 58 20 | 20 20 20 77 68 69 6c 65 |r);.X.X | while|
|00004aa0| 20 28 70 20 3d 20 66 67 | 65 74 73 28 62 75 66 2c | (p = fg|ets(buf,|
|00004ab0| 20 73 69 7a 65 6f 66 20 | 62 75 66 2c 20 66 70 29 | sizeof |buf, fp)|
|00004ac0| 29 0a 58 09 69 66 20 28 | 2a 70 20 3d 3d 20 27 25 |).X.if (|*p == '%|
|00004ad0| 27 20 26 26 20 21 73 74 | 72 63 6d 70 28 70 2c 20 |' && !st|rcmp(p, |
|00004ae0| 68 65 6c 70 5f 73 74 72 | 29 29 0a 58 09 20 20 20 |help_str|)).X. |
|00004af0| 20 62 72 65 61 6b 3b 0a | 58 20 20 20 20 69 66 20 | break;.|X if |
|00004b00| 28 21 70 29 0a 58 09 2f | 2a 20 44 69 64 6e 27 74 |(!p).X./|* Didn't|
|00004b10| 20 66 69 6e 64 20 74 68 | 65 20 68 65 6c 70 20 72 | find th|e help r|
|00004b20| 65 71 75 65 73 74 65 64 | 20 2a 2f 0a 58 09 66 6f |equested| */.X.fo|
|00004b30| 72 20 28 68 65 69 67 68 | 74 20 3d 20 30 3b 20 64 |r (heigh|t = 0; d|
|00004b40| 65 66 5f 6d 73 67 5b 68 | 65 69 67 68 74 5d 3b 20 |ef_msg[h|eight]; |
|00004b50| 68 65 69 67 68 74 2b 2b | 29 20 7b 0a 58 09 20 20 |height++|) {.X. |
|00004b60| 20 20 77 70 72 69 6e 74 | 28 64 65 66 5f 6d 73 67 | wprint|(def_msg|
|00004b70| 5b 68 65 69 67 68 74 5d | 2c 20 73 74 72 29 3b 0a |[height]|, str);.|
|00004b80| 58 09 20 20 20 20 77 70 | 72 69 6e 74 28 22 5c 6e |X. wp|rint("\n|
|00004b90| 22 29 3b 0a 58 09 7d 0a | 58 20 20 20 20 65 6c 73 |");.X.}.|X els|
|00004ba0| 65 20 7b 0a 58 09 64 6f | 5f 70 61 67 65 72 28 4e |e {.X.do|_pager(N|
|00004bb0| 55 4c 4c 2c 20 54 52 55 | 45 29 3b 0a 58 09 77 68 |ULL, TRU|E);.X.wh|
|00004bc0| 69 6c 65 20 28 28 70 20 | 3d 20 66 67 65 74 73 28 |ile ((p |= fgets(|
|00004bd0| 62 75 66 2c 20 73 69 7a | 65 6f 66 20 62 75 66 2c |buf, siz|eof buf,|
|00004be0| 20 66 70 29 29 20 26 26 | 20 73 74 72 63 6d 70 28 | fp)) &&| strcmp(|
|00004bf0| 70 2c 20 22 25 25 5c 6e | 22 29 29 0a 58 09 20 20 |p, "%%\n|")).X. |
|00004c00| 20 20 69 66 20 28 64 6f | 5f 70 61 67 65 72 28 62 | if (do|_pager(b|
|00004c10| 75 66 2c 20 46 41 4c 53 | 45 29 20 3d 3d 20 45 4f |uf, FALS|E) == EO|
|00004c20| 46 29 0a 58 09 09 62 72 | 65 61 6b 3b 0a 58 09 64 |F).X..br|eak;.X.d|
|00004c30| 6f 5f 70 61 67 65 72 28 | 4e 55 4c 4c 2c 20 46 41 |o_pager(|NULL, FA|
|00004c40| 4c 53 45 29 3b 0a 58 20 | 20 20 20 7d 0a 58 20 20 |LSE);.X | }.X |
|00004c50| 20 20 66 63 6c 6f 73 65 | 28 66 70 29 3b 0a 58 0a | fclose|(fp);.X.|
|00004c60| 58 20 20 20 20 72 65 74 | 75 72 6e 20 30 3b 0a 58 |X ret|urn 0;.X|
|00004c70| 7d 0a 45 4e 44 5f 4f 46 | 5f 46 49 4c 45 0a 69 66 |}.END_OF|_FILE.if|
|00004c80| 20 74 65 73 74 20 39 33 | 30 32 20 2d 6e 65 20 60 | test 93|02 -ne `|
|00004c90| 77 63 20 2d 63 20 3c 27 | 68 65 6c 70 2e 63 27 60 |wc -c <'|help.c'`|
|00004ca0| 3b 20 74 68 65 6e 0a 20 | 20 20 20 65 63 68 6f 20 |; then. | echo |
|00004cb0| 73 68 61 72 3a 20 5c 22 | 27 68 65 6c 70 2e 63 27 |shar: \"|'help.c'|
|00004cc0| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|00004cd0| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|00004ce0| 23 20 65 6e 64 20 6f 66 | 20 27 68 65 6c 70 2e 63 |# end of| 'help.c|
|00004cf0| 27 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |'.fi.if |test -f |
|00004d00| 27 6d 61 63 72 6f 73 2e | 63 27 20 2d 61 20 22 24 |'macros.|c' -a "$|
|00004d10| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00004d20| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00004d30| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|00004d40| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|00004d50| 20 5c 22 27 6d 61 63 72 | 6f 73 2e 63 27 5c 22 0a | \"'macr|os.c'\".|
|00004d60| 65 6c 73 65 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |else.ech|o shar: |
|00004d70| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 27 6d 61 |Extracti|ng \"'ma|
|00004d80| 63 72 6f 73 2e 63 27 5c | 22 20 5c 28 38 36 32 33 |cros.c'\|" \(8623|
|00004d90| 20 63 68 61 72 61 63 74 | 65 72 73 5c 29 0a 73 65 | charact|ers\).se|
|00004da0| 64 20 22 73 2f 5e 58 2f | 2f 22 20 3e 27 6d 61 63 |d "s/^X/|/" >'mac|
|00004db0| 72 6f 73 2e 63 27 20 3c | 3c 27 45 4e 44 5f 4f 46 |ros.c' <|<'END_OF|
|00004dc0| 5f 46 49 4c 45 27 0a 58 | 2f 2a 20 28 40 29 23 20 |_FILE'.X|/* (@)# |
|00004dd0| 6d 61 63 72 6f 73 2e 63 | 09 28 63 29 20 63 6f 70 |macros.c|.(c) cop|
|00004de0| 79 72 69 67 68 74 20 39 | 2f 31 39 2f 38 38 20 28 |yright 9|/19/88 (|
|00004df0| 42 61 72 74 20 53 63 68 | 61 65 66 65 72 2c 20 44 |Bart Sch|aefer, D|
|00004e00| 61 6e 20 48 65 6c 6c 65 | 72 29 20 2a 2f 0a 58 0a |an Helle|r) */.X.|
|00004e10| 58 23 69 6e 63 6c 75 64 | 65 20 22 62 69 6e 64 69 |X#includ|e "bindi|
|00004e20| 6e 67 73 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |ngs.h".X|#include|
|00004e30| 20 22 6d 75 73 68 2e 68 | 22 0a 58 0a 58 65 78 74 | "mush.h|".X.Xext|
|00004e40| 65 72 6e 20 73 74 72 75 | 63 74 20 63 6d 64 5f 6d |ern stru|ct cmd_m|
|00004e50| 61 70 20 6d 61 70 5f 66 | 75 6e 63 5f 6e 61 6d 65 |ap map_f|unc_name|
|00004e60| 73 5b 5d 3b 0a 58 0a 58 | 73 74 72 75 63 74 20 63 |s[];.X.X|struct c|
|00004e70| 6d 64 5f 6d 61 70 09 2a | 6d 61 63 5f 73 74 61 63 |md_map.*|mac_stac|
|00004e80| 6b 2c 20 2a 6d 61 63 5f | 68 69 64 65 3b 0a 58 0a |k, *mac_|hide;.X.|
|00004e90| 58 65 78 74 65 72 6e 20 | 63 68 61 72 20 2a 63 61 |Xextern |char *ca|
|00004ea0| 6c 6c 6f 63 28 29 3b 0a | 58 0a 58 2f 2a 0a 58 20 |lloc();.|X.X/*.X |
|00004eb0| 2a 20 70 72 69 6e 74 20 | 63 75 72 72 65 6e 74 20 |* print |current |
|00004ec0| 62 69 6e 64 69 6e 67 20 | 74 6f 20 6d 61 63 72 6f |binding |to macro|
|00004ed0| 20 6d 61 70 70 69 6e 67 | 73 20 69 66 20 22 73 74 | mapping|s if "st|
|00004ee0| 72 22 20 69 73 20 4e 55 | 4c 4c 2e 0a 58 20 2a 20 |r" is NU|LL..X * |
|00004ef0| 65 6c 73 65 20 72 65 74 | 75 72 6e 20 74 68 65 20 |else ret|urn the |
|00004f00| 73 74 72 69 6e 67 20 22 | 78 5f 73 74 72 22 20 77 |string "|x_str" w|
|00004f10| 68 69 63 68 20 74 68 65 | 20 73 74 72 20 69 73 20 |hich the| str is |
|00004f20| 62 6f 75 6e 64 20 74 6f | 2e 0a 58 20 2a 2f 0a 58 |bound to|..X */.X|
|00004f30| 63 68 61 72 20 2a 0a 58 | 63 5f 6d 61 63 72 6f 28 |char *.X|c_macro(|
|00004f40| 6e 61 6d 65 2c 20 73 74 | 72 2c 20 6f 70 74 73 29 |name, st|r, opts)|
|00004f50| 0a 58 63 68 61 72 20 2a | 6e 61 6d 65 3b 0a 58 72 |.Xchar *|name;.Xr|
|00004f60| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 73 74 |egister |char *st|
|00004f70| 72 3b 0a 58 72 65 67 69 | 73 74 65 72 20 73 74 72 |r;.Xregi|ster str|
|00004f80| 75 63 74 20 63 6d 64 5f | 6d 61 70 20 2a 6f 70 74 |uct cmd_|map *opt|
|00004f90| 73 3b 0a 58 7b 0a 58 20 | 20 20 20 72 65 67 69 73 |s;.X{.X | regis|
|00004fa0| 74 65 72 20 69 6e 74 20 | 20 20 20 69 6e 63 75 72 |ter int | incur|
|00004fb0| 73 65 73 20 3d 20 69 73 | 63 75 72 73 65 73 3b 0a |ses = is|curses;.|
|00004fc0| 58 20 20 20 20 63 68 61 | 72 20 62 75 66 5b 4d 41 |X cha|r buf[MA|
|00004fd0| 58 5f 4d 41 43 52 4f 5f | 4c 45 4e 5d 2c 20 62 75 |X_MACRO_|LEN], bu|
|00004fe0| 66 32 5b 73 69 7a 65 6f | 66 20 62 75 66 20 2a 20 |f2[sizeo|f buf * |
|00004ff0| 33 5d 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 21 |3];.X.X | if (!|
|00005000| 73 74 72 29 20 7b 0a 58 | 09 66 6f 72 20 28 3b 20 |str) {.X|.for (; |
|00005010| 6f 70 74 73 3b 20 6f 70 | 74 73 20 3d 20 6f 70 74 |opts; op|ts = opt|
|00005020| 73 2d 3e 6d 5f 6e 65 78 | 74 29 0a 58 09 20 20 20 |s->m_nex|t).X. |
|00005030| 20 69 66 20 28 6f 70 74 | 73 2d 3e 6d 5f 63 6d 64 | if (opt|s->m_cmd|
|00005040| 20 3d 3d 20 43 5f 4d 41 | 43 52 4f 29 0a 58 09 09 | == C_MA|CRO).X..|
|00005050| 62 72 65 61 6b 3b 0a 58 | 09 69 66 20 28 21 6f 70 |break;.X|.if (!op|
|00005060| 74 73 29 20 7b 0a 58 09 | 20 20 20 20 70 72 69 6e |ts) {.X.| prin|
|00005070| 74 28 22 4e 6f 20 25 73 | 20 73 65 74 74 69 6e 67 |t("No %s| setting|
|00005080| 73 2e 5c 6e 22 2c 20 6e | 61 6d 65 29 3b 0a 58 09 |s.\n", n|ame);.X.|
|00005090| 20 20 20 20 72 65 74 75 | 72 6e 20 28 63 68 61 72 | retu|rn (char|
|000050a0| 20 2a 29 28 2d 31 29 3b | 0a 58 09 7d 0a 58 09 69 | *)(-1);|.X.}.X.i|
|000050b0| 66 20 28 69 6e 63 75 72 | 73 65 73 29 0a 58 09 20 |f (incur|ses).X. |
|000050c0| 20 20 20 63 6c 72 5f 62 | 6f 74 5f 6c 69 6e 65 28 | clr_b|ot_line(|
|000050d0| 29 2c 20 69 73 63 75 72 | 73 65 73 20 3d 20 46 41 |), iscur|ses = FA|
|000050e0| 4c 53 45 3b 0a 58 09 28 | 76 6f 69 64 29 20 64 6f |LSE;.X.(|void) do|
|000050f0| 5f 70 61 67 65 72 28 4e | 55 4c 4c 2c 20 54 52 55 |_pager(N|ULL, TRU|
|00005100| 45 29 3b 0a 58 09 28 76 | 6f 69 64 29 20 64 6f 5f |E);.X.(v|oid) do_|
|00005110| 70 61 67 65 72 28 73 70 | 72 69 6e 74 66 28 62 75 |pager(sp|rintf(bu|
|00005120| 66 2c 20 22 5c 6e 43 75 | 72 72 65 6e 74 20 25 73 |f, "\nCu|rrent %s|
|00005130| 20 73 65 74 74 69 6e 67 | 73 3a 5c 6e 5c 6e 22 2c | setting|s:\n\n",|
|00005140| 6e 61 6d 65 29 2c 20 46 | 41 4c 53 45 29 3b 0a 58 |name), F|ALSE);.X|
|00005150| 20 20 20 20 7d 0a 58 0a | 58 20 20 20 20 69 66 20 | }.X.|X if |
|00005160| 28 21 6f 70 74 73 29 0a | 58 09 72 65 74 75 72 6e |(!opts).|X.return|
|00005170| 20 4e 55 4c 4c 3b 0a 58 | 0a 58 20 20 20 20 66 6f | NULL;.X|.X fo|
|00005180| 72 20 28 3b 20 6f 70 74 | 73 3b 20 6f 70 74 73 20 |r (; opt|s; opts |
|00005190| 3d 20 6f 70 74 73 2d 3e | 6d 5f 6e 65 78 74 29 20 |= opts->|m_next) |
|000051a0| 7b 0a 58 09 69 66 20 28 | 6f 70 74 73 2d 3e 6d 5f |{.X.if (|opts->m_|
|000051b0| 63 6d 64 20 21 3d 20 43 | 5f 4d 41 43 52 4f 29 0a |cmd != C|_MACRO).|
|000051c0| 58 09 20 20 20 20 63 6f | 6e 74 69 6e 75 65 3b 0a |X. co|ntinue;.|
|000051d0| 58 09 69 66 20 28 21 73 | 74 72 29 20 7b 0a 58 09 |X.if (!s|tr) {.X.|
|000051e0| 20 20 20 20 28 76 6f 69 | 64 29 20 64 6f 5f 70 61 | (voi|d) do_pa|
|000051f0| 67 65 72 28 73 70 72 69 | 6e 74 66 28 62 75 66 2c |ger(spri|ntf(buf,|
|00005200| 20 22 25 2d 32 30 2e 32 | 30 73 20 20 22 2c 0a 58 | "%-20.2|0s ",.X|
|00005210| 09 09 63 74 72 6c 5f 73 | 74 72 63 70 79 28 62 75 |..ctrl_s|trcpy(bu|
|00005220| 66 32 2c 20 6f 70 74 73 | 2d 3e 6d 5f 73 74 72 2c |f2, opts|->m_str,|
|00005230| 20 46 41 4c 53 45 29 29 | 2c 20 46 41 4c 53 45 29 | FALSE))|, FALSE)|
|00005240| 3b 0a 58 09 20 20 20 20 | 69 66 20 28 64 6f 5f 70 |;.X. |if (do_p|
|00005250| 61 67 65 72 28 73 70 72 | 69 6e 74 66 28 62 75 66 |ager(spr|intf(buf|
|00005260| 2c 20 22 25 73 5c 6e 22 | 2c 0a 58 09 09 63 74 72 |, "%s\n"|,.X..ctr|
|00005270| 6c 5f 73 74 72 63 70 79 | 28 62 75 66 32 2c 20 6f |l_strcpy|(buf2, o|
|00005280| 70 74 73 2d 3e 78 5f 73 | 74 72 2c 20 54 52 55 45 |pts->x_s|tr, TRUE|
|00005290| 29 29 2c 20 46 41 4c 53 | 45 29 20 3d 3d 20 45 4f |)), FALS|E) == EO|
|000052a0| 46 29 0a 58 09 09 62 72 | 65 61 6b 3b 0a 58 09 7d |F).X..br|eak;.X.}|
|000052b0| 20 65 6c 73 65 20 7b 0a | 58 09 20 20 20 20 69 66 | else {.|X. if|
|000052c0| 20 28 73 74 72 63 6d 70 | 28 73 74 72 2c 20 6f 70 | (strcmp|(str, op|
|000052d0| 74 73 2d 3e 6d 5f 73 74 | 72 29 29 0a 58 09 09 63 |ts->m_st|r)).X..c|
|000052e0| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 20 20 20 20 65 |ontinue;|.X. e|
|000052f0| 6c 73 65 0a 58 09 09 72 | 65 74 75 72 6e 20 6f 70 |lse.X..r|eturn op|
|00005300| 74 73 2d 3e 78 5f 73 74 | 72 3b 0a 58 09 7d 0a 58 |ts->x_st|r;.X.}.X|
|00005310| 20 20 20 20 7d 0a 58 20 | 20 20 20 69 73 63 75 72 | }.X | iscur|
|00005320| 73 65 73 20 3d 20 69 6e | 63 75 72 73 65 73 3b 0a |ses = in|curses;.|
|00005330| 58 20 20 20 20 69 66 20 | 28 73 74 72 29 0a 58 09 |X if |(str).X.|
|00005340| 28 76 6f 69 64 29 20 64 | 6f 5f 70 61 67 65 72 28 |(void) d|o_pager(|
|00005350| 4e 55 4c 4c 2c 20 46 41 | 4c 53 45 29 3b 0a 58 20 |NULL, FA|LSE);.X |
|00005360| 20 20 20 72 65 74 75 72 | 6e 20 4e 55 4c 4c 3b 0a | retur|n NULL;.|
|00005370| 58 7d 0a 58 0a 58 6d 61 | 63 5f 70 75 73 68 28 73 |X}.X.Xma|c_push(s|
|00005380| 74 72 29 0a 58 72 65 67 | 69 73 74 65 72 20 63 68 |tr).Xreg|ister ch|
|00005390| 61 72 20 2a 73 74 72 3b | 0a 58 7b 0a 58 20 20 20 |ar *str;|.X{.X |
|000053a0| 20 72 65 67 69 73 74 65 | 72 20 73 74 72 75 63 74 | registe|r struct|
|000053b0| 20 63 6d 64 5f 6d 61 70 | 20 2a 74 6d 70 3b 0a 58 | cmd_map| *tmp;.X|
|000053c0| 0a 58 20 20 20 20 2f 2a | 20 6e 6f 77 20 6d 61 6b |.X /*| now mak|
|000053d0| 65 20 61 20 6e 65 77 20 | 6d 61 63 72 6f 20 73 74 |e a new |macro st|
|000053e0| 72 75 63 74 20 61 6e 64 | 20 73 65 74 20 66 69 65 |ruct and| set fie|
|000053f0| 6c 64 73 20 2a 2f 0a 58 | 20 20 20 20 69 66 20 28 |lds */.X| if (|
|00005400| 21 28 74 6d 70 20 3d 20 | 28 73 74 72 75 63 74 20 |!(tmp = |(struct |
|00005410| 63 6d 64 5f 6d 61 70 20 | 2a 29 63 61 6c 6c 6f 63 |cmd_map |*)calloc|
|00005420| 28 28 75 6e 73 69 67 6e | 65 64 29 31 2c 73 69 7a |((unsign|ed)1,siz|
|00005430| 65 6f 66 28 73 74 72 75 | 63 74 20 63 6d 64 5f 6d |eof(stru|ct cmd_m|
|00005440| 61 70 29 29 29 29 20 7b | 0a 58 09 65 72 72 6f 72 |ap)))) {|.X.error|
|00005450| 28 22 63 61 6c 6c 6f 63 | 22 29 3b 0a 58 09 72 65 |("calloc|");.X.re|
|00005460| 74 75 72 6e 20 2d 31 3b | 0a 58 20 20 20 20 7d 0a |turn -1;|.X }.|
|00005470| 58 20 20 20 20 74 6d 70 | 2d 3e 6d 5f 6e 65 78 74 |X tmp|->m_next|
|00005480| 20 3d 20 6d 61 63 5f 73 | 74 61 63 6b 3b 0a 58 20 | = mac_s|tack;.X |
|00005490| 20 20 20 6d 61 63 5f 73 | 74 61 63 6b 20 3d 20 74 | mac_s|tack = t|
|000054a0| 6d 70 3b 0a 58 20 20 20 | 20 74 6d 70 2d 3e 78 5f |mp;.X | tmp->x_|
|000054b0| 73 74 72 20 3d 20 73 61 | 76 65 73 74 72 28 73 74 |str = sa|vestr(st|
|000054c0| 72 29 3b 09 2f 2a 20 78 | 5f 73 74 72 20 69 73 20 |r);./* x|_str is |
|000054d0| 74 68 65 20 74 65 78 74 | 20 6f 66 20 74 68 65 20 |the text| of the |
|000054e0| 65 78 70 61 6e 73 69 6f | 6e 20 2a 2f 0a 58 20 20 |expansio|n */.X |
|000054f0| 20 20 74 6d 70 2d 3e 6d | 5f 73 74 72 20 3d 20 74 | tmp->m|_str = t|
|00005500| 6d 70 2d 3e 78 5f 73 74 | 72 3b 09 2f 2a 20 6d 5f |mp->x_st|r;./* m_|
|00005510| 73 74 72 20 69 73 20 74 | 68 65 20 63 75 72 72 65 |str is t|he curre|
|00005520| 6e 74 20 72 65 61 64 20 | 70 6f 73 69 74 69 6f 6e |nt read |position|
|00005530| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 2f 2a 0a 58 20 | */.X.X | /*.X |
|00005540| 20 20 20 20 2a 20 53 61 | 76 65 20 74 68 65 20 63 | * Sa|ve the c|
|00005550| 75 72 72 65 6e 74 20 73 | 74 61 74 65 20 6f 66 20 |urrent s|tate of |
|00005560| 74 68 65 20 67 6c 6f 62 | 5f 66 6c 61 67 73 20 73 |the glob|_flags s|
|00005570| 6f 0a 58 20 20 20 20 20 | 2a 20 6d 61 63 5f 70 75 |o.X |* mac_pu|
|00005580| 73 68 28 29 20 63 61 6e | 20 61 6c 73 6f 20 73 65 |sh() can| also se|
|00005590| 72 76 65 20 61 73 20 75 | 6e 67 65 74 20 6f 66 20 |rve as u|nget of |
|000055a0| 73 74 64 69 6e 0a 58 20 | 20 20 20 20 2a 2f 0a 58 |stdin.X | */.X|
|000055b0| 20 20 20 20 74 6d 70 2d | 3e 6d 5f 63 6d 64 20 3d | tmp-|>m_cmd =|
|000055c0| 20 67 6c 6f 62 5f 66 6c | 61 67 73 3b 0a 58 20 20 | glob_fl|ags;.X |
|000055d0| 20 20 72 65 74 75 72 6e | 20 30 3b 0a 58 7d 0a 58 | return| 0;.X}.X|
|000055e0| 0a 58 76 6f 69 64 0a 58 | 6d 61 63 5f 70 6f 70 28 |.Xvoid.X|mac_pop(|
|000055f0| 29 0a 58 7b 0a 58 20 20 | 20 20 72 65 67 69 73 74 |).X{.X | regist|
|00005600| 65 72 20 73 74 72 75 63 | 74 20 63 6d 64 5f 6d 61 |er struc|t cmd_ma|
|00005610| 70 20 2a 74 6d 70 3b 0a | 58 0a 58 20 20 20 20 69 |p *tmp;.|X.X i|
|00005620| 66 20 28 6d 61 63 5f 73 | 74 61 63 6b 29 20 7b 0a |f (mac_s|tack) {.|
|00005630| 58 09 74 6d 70 20 3d 20 | 6d 61 63 5f 73 74 61 63 |X.tmp = |mac_stac|
|00005640| 6b 3b 0a 58 09 6d 61 63 | 5f 73 74 61 63 6b 20 3d |k;.X.mac|_stack =|
|00005650| 20 74 6d 70 2d 3e 6d 5f | 6e 65 78 74 3b 0a 58 09 | tmp->m_|next;.X.|
|00005660| 78 66 72 65 65 28 74 6d | 70 2d 3e 78 5f 73 74 72 |xfree(tm|p->x_str|
|00005670| 29 3b 0a 58 09 78 66 72 | 65 65 28 74 6d 70 29 3b |);.X.xfr|ee(tmp);|
|00005680| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 2f 2a 0a |.X }.|X /*.|
|00005690| 58 20 20 20 20 20 2a 20 | 52 65 73 74 6f 72 65 20 |X * |Restore |
|000056a0| 73 61 76 65 64 20 4d 41 | 43 52 4f 20 67 6c 6f 62 |saved MA|CRO glob|
|000056b0| 5f 66 6c 61 67 73 20 6f | 6e 6c 79 20 28 73 65 65 |_flags o|nly (see|
|000056c0| 20 6d 61 63 5f 70 75 73 | 68 28 29 29 0a 58 20 20 | mac_pus|h()).X |
|000056d0| 20 20 20 2a 2f 0a 58 20 | 20 20 20 69 66 20 28 6d | */.X | if (m|
|000056e0| 61 63 5f 73 74 61 63 6b | 29 20 7b 0a 58 09 69 66 |ac_stack|) {.X.if|
|000056f0| 20 28 69 73 6f 6e 28 6d | 61 63 5f 73 74 61 63 6b | (ison(m|ac_stack|
|00005700| 2d 3e 6d 5f 63 6d 64 2c | 20 49 4e 5f 4d 41 43 52 |->m_cmd,| IN_MACR|
|00005710| 4f 29 29 0a 58 09 20 20 | 20 20 74 75 72 6e 6f 6e |O)).X. | turnon|
|00005720| 28 67 6c 6f 62 5f 66 6c | 61 67 73 2c 20 49 4e 5f |(glob_fl|ags, IN_|
|00005730| 4d 41 43 52 4f 29 3b 0a | 58 09 65 6c 73 65 0a 58 |MACRO);.|X.else.X|
|00005740| 09 20 20 20 20 74 75 72 | 6e 6f 66 66 28 67 6c 6f |. tur|noff(glo|
|00005750| 62 5f 66 6c 61 67 73 2c | 20 49 4e 5f 4d 41 43 52 |b_flags,| IN_MACR|
|00005760| 4f 29 3b 0a 58 09 69 66 | 20 28 69 73 6f 6e 28 6d |O);.X.if| (ison(m|
|00005770| 61 63 5f 73 74 61 63 6b | 2d 3e 6d 5f 63 6d 64 2c |ac_stack|->m_cmd,|
|00005780| 20 4c 49 4e 45 5f 4d 41 | 43 52 4f 29 29 0a 58 09 | LINE_MA|CRO)).X.|
|00005790| 20 20 20 20 74 75 72 6e | 6f 6e 28 67 6c 6f 62 5f | turn|on(glob_|
|000057a0| 66 6c 61 67 73 2c 20 4c | 49 4e 45 5f 4d 41 43 52 |flags, L|INE_MACR|
|000057b0| 4f 29 3b 0a 58 09 65 6c | 73 65 0a 58 09 20 20 20 |O);.X.el|se.X. |
|000057c0| 20 74 75 72 6e 6f 66 66 | 28 67 6c 6f 62 5f 66 6c | turnoff|(glob_fl|
|000057d0| 61 67 73 2c 20 4c 49 4e | 45 5f 4d 41 43 52 4f 29 |ags, LIN|E_MACRO)|
|000057e0| 3b 0a 58 09 69 66 20 28 | 69 73 6f 6e 28 6d 61 63 |;.X.if (|ison(mac|
|000057f0| 5f 73 74 61 63 6b 2d 3e | 6d 5f 63 6d 64 2c 20 51 |_stack->|m_cmd, Q|
|00005800| 55 4f 54 45 5f 4d 41 43 | 52 4f 29 29 0a 58 09 20 |UOTE_MAC|RO)).X. |
|00005810| 20 20 20 74 75 72 6e 6f | 6e 28 67 6c 6f 62 5f 66 | turno|n(glob_f|
|00005820| 6c 61 67 73 2c 20 51 55 | 4f 54 45 5f 4d 41 43 52 |lags, QU|OTE_MACR|
|00005830| 4f 29 3b 0a 58 09 65 6c | 73 65 0a 58 09 20 20 20 |O);.X.el|se.X. |
|00005840| 20 74 75 72 6e 6f 66 66 | 28 67 6c 6f 62 5f 66 6c | turnoff|(glob_fl|
|00005850| 61 67 73 2c 20 51 55 4f | 54 45 5f 4d 41 43 52 4f |ags, QUO|TE_MACRO|
|00005860| 29 3b 0a 58 20 20 20 20 | 7d 0a 58 7d 0a 58 0a 58 |);.X |}.X}.X.X|
|00005870| 2f 2a 20 41 62 61 6e 64 | 6f 6e 20 6d 61 63 72 6f |/* Aband|on macro|
|00005880| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 2a 2f 0a 58 | process|ing */.X|
|00005890| 76 6f 69 64 0a 58 6d 61 | 63 5f 66 6c 75 73 68 28 |void.Xma|c_flush(|
|000058a0| 29 0a 58 7b 0a 58 20 20 | 20 20 77 68 69 6c 65 20 |).X{.X | while |
|000058b0| 28 6d 61 63 5f 73 74 61 | 63 6b 29 0a 58 09 6d 61 |(mac_sta|ck).X.ma|
|000058c0| 63 5f 70 6f 70 28 29 3b | 0a 58 20 20 20 20 69 66 |c_pop();|.X if|
|000058d0| 20 28 6d 61 63 5f 68 69 | 64 65 29 20 7b 0a 58 09 | (mac_hi|de) {.X.|
|000058e0| 6d 61 63 5f 73 74 61 63 | 6b 20 3d 20 6d 61 63 5f |mac_stac|k = mac_|
|000058f0| 68 69 64 65 3b 0a 58 09 | 6d 61 63 5f 68 69 64 65 |hide;.X.|mac_hide|
|00005900| 20 3d 20 4e 55 4c 4c 5f | 4d 41 50 3b 0a 58 09 77 | = NULL_|MAP;.X.w|
|00005910| 68 69 6c 65 20 28 6d 61 | 63 5f 73 74 61 63 6b 29 |hile (ma|c_stack)|
|00005920| 0a 58 09 20 20 20 20 6d | 61 63 5f 70 6f 70 28 29 |.X. m|ac_pop()|
|00005930| 3b 0a 58 20 20 20 20 7d | 0a 58 20 20 20 20 74 75 |;.X }|.X tu|
|00005940| 72 6e 6f 66 66 28 67 6c | 6f 62 5f 66 6c 61 67 73 |rnoff(gl|ob_flags|
|00005950| 2c 20 49 4e 5f 4d 41 43 | 52 4f 29 3b 0a 58 20 20 |, IN_MAC|RO);.X |
|00005960| 20 20 74 75 72 6e 6f 66 | 66 28 67 6c 6f 62 5f 66 | turnof|f(glob_f|
|00005970| 6c 61 67 73 2c 20 4c 49 | 4e 45 5f 4d 41 43 52 4f |lags, LI|NE_MACRO|
|00005980| 29 3b 0a 58 20 20 20 20 | 74 75 72 6e 6f 66 66 28 |);.X |turnoff(|
|00005990| 67 6c 6f 62 5f 66 6c 61 | 67 73 2c 20 51 55 4f 54 |glob_fla|gs, QUOT|
|000059a0| 45 5f 4d 41 43 52 4f 29 | 3b 0a 58 7d 0a 58 0a 58 |E_MACRO)|;.X}.X.X|
|000059b0| 2f 2a 20 43 68 65 63 6b | 20 66 6f 72 20 70 65 6e |/* Check| for pen|
|000059c0| 64 69 6e 67 20 69 6e 70 | 75 74 20 66 72 6f 6d 20 |ding inp|ut from |
|000059d0| 61 20 6d 61 63 72 6f 2e | 20 2a 2f 0a 58 6d 61 63 |a macro.| */.Xmac|
|000059e0| 5f 70 65 6e 64 69 6e 67 | 28 29 0a 58 7b 0a 58 20 |_pending|().X{.X |
|000059f0| 20 20 20 72 65 67 69 73 | 74 65 72 20 73 74 72 75 | regis|ter stru|
|00005a00| 63 74 20 63 6d 64 5f 6d | 61 70 20 2a 6d 73 70 3b |ct cmd_m|ap *msp;|
|00005a10| 0a 58 0a 58 20 20 20 20 | 66 6f 72 20 28 6d 73 70 |.X.X |for (msp|
|00005a20| 20 3d 20 6d 61 63 5f 73 | 74 61 63 6b 3b 20 6d 73 | = mac_s|tack; ms|
|00005a30| 70 20 26 26 20 21 2a 28 | 6d 73 70 2d 3e 6d 5f 73 |p && !*(|msp->m_s|
|00005a40| 74 72 29 3b 20 6d 73 70 | 20 3d 20 6d 73 70 2d 3e |tr); msp| = msp->|
|00005a50| 6d 5f 6e 65 78 74 29 0a | 58 09 3b 0a 58 0a 58 20 |m_next).|X.;.X.X |
|00005a60| 20 20 20 72 65 74 75 72 | 6e 20 21 21 6d 73 70 3b | retur|n !!msp;|
|00005a70| 0a 58 7d 0a 58 0a 58 2f | 2a 20 47 65 74 20 69 6e |.X}.X.X/|* Get in|
|00005a80| 70 75 74 20 61 6e 64 20 | 74 72 65 61 74 20 69 74 |put and |treat it|
|00005a90| 20 61 73 20 61 20 6d 61 | 63 72 6f 2e 20 20 2a 2f | as a ma|cro. */|
|00005aa0| 0a 58 67 65 74 5f 6d 61 | 63 5f 69 6e 70 75 74 28 |.Xget_ma|c_input(|
|00005ab0| 6e 65 77 6c 69 6e 65 29 | 0a 58 69 6e 74 20 6e 65 |newline)|.Xint ne|
|00005ac0| 77 6c 69 6e 65 3b 09 2f | 2a 20 31 20 69 66 20 6e |wline;./|* 1 if n|
|00005ad0| 65 77 6c 69 6e 65 20 74 | 6f 20 62 65 20 61 70 70 |ewline t|o be app|
|00005ae0| 65 6e 64 65 64 2c 20 30 | 20 6f 74 68 65 72 77 69 |ended, 0| otherwi|
|00005af0| 73 65 20 2a 2f 0a 58 7b | 0a 58 20 20 20 20 72 65 |se */.X{|.X re|
|00005b00| 67 69 73 74 65 72 20 69 | 6e 74 20 6c 65 6e 3b 0a |gister i|nt len;.|
|00005b10| 58 20 20 20 20 63 68 61 | 72 20 62 75 66 5b 4d 41 |X cha|r buf[MA|
|00005b20| 58 5f 4d 41 43 52 4f 5f | 4c 45 4e 5d 3b 0a 58 0a |X_MACRO_|LEN];.X.|
|00005b30| 58 20 20 20 20 2f 2a 20 | 54 68 69 73 20 63 61 6c |X /* |This cal|
|00005b40| 6c 20 63 61 6e 6e 6f 74 | 20 62 65 20 6e 65 73 74 |l cannot| be nest|
|00005b50| 65 64 20 2a 2f 0a 58 20 | 20 20 20 69 66 20 28 6d |ed */.X | if (m|
|00005b60| 61 63 5f 68 69 64 65 29 | 0a 58 09 72 65 74 75 72 |ac_hide)|.X.retur|
|00005b70| 6e 20 2d 31 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |n -1;.X.|X /* |
|00005b80| 48 69 64 65 20 74 68 65 | 20 6d 61 63 5f 73 74 61 |Hide the| mac_sta|
|00005b90| 63 6b 20 73 6f 20 69 6e | 70 75 74 20 63 6f 6d 65 |ck so in|put come|
|00005ba0| 73 20 66 72 6f 6d 20 73 | 74 64 69 6e 20 2a 2f 0a |s from s|tdin */.|
|00005bb0| 58 20 20 20 20 6d 61 63 | 5f 68 69 64 65 20 3d 20 |X mac|_hide = |
|00005bc0| 6d 61 63 5f 73 74 61 63 | 6b 3b 20 6d 61 63 5f 73 |mac_stac|k; mac_s|
|00005bd0| 74 61 63 6b 20 3d 20 4e | 55 4c 4c 5f 4d 41 50 3b |tack = N|ULL_MAP;|
|00005be0| 0a 58 0a 58 20 20 20 20 | 69 66 20 28 28 6c 65 6e |.X.X |if ((len|
|00005bf0| 20 3d 20 47 65 74 73 74 | 72 28 62 75 66 2c 20 4d | = Getst|r(buf, M|
|00005c00| 41 58 5f 4d 41 43 52 4f | 5f 4c 45 4e 20 2d 20 31 |AX_MACRO|_LEN - 1|
|00005c10| 2c 20 30 29 29 20 3c 20 | 30 29 0a 58 09 72 65 74 |, 0)) < |0).X.ret|
|00005c20| 75 72 6e 20 6c 65 6e 3b | 0a 58 20 20 20 20 69 66 |urn len;|.X if|
|00005c30| 20 28 6e 65 77 6c 69 6e | 65 29 20 7b 0a 58 09 62 | (newlin|e) {.X.b|
|00005c40| 75 66 5b 6c 65 6e 2b 2b | 5d 20 3d 20 27 5c 6e 27 |uf[len++|] = '\n'|
|00005c50| 3b 0a 58 09 62 75 66 5b | 6c 65 6e 5d 20 3d 20 30 |;.X.buf[|len] = 0|
|00005c60| 3b 0a 58 20 20 20 20 7d | 0a 58 0a 58 20 20 20 20 |;.X }|.X.X |
|00005c70| 2f 2a 20 52 65 73 74 6f | 72 65 20 74 68 65 20 6d |/* Resto|re the m|
|00005c80| 61 63 5f 73 74 61 63 6b | 20 2a 2f 0a 58 20 20 20 |ac_stack| */.X |
|00005c90| 20 69 66 20 28 6d 61 63 | 5f 73 74 61 63 6b 29 20 | if (mac|_stack) |
|00005ca0| 7b 0a 58 09 2f 2a 0a 58 | 09 20 2a 20 53 6f 6d 65 |{.X./*.X|. * Some|
|00005cb0| 68 6f 77 2c 20 61 20 70 | 75 73 68 20 68 61 70 70 |how, a p|ush happ|
|00005cc0| 65 6e 65 64 20 65 76 65 | 6e 20 74 68 6f 75 67 68 |ened eve|n though|
|00005cd0| 20 6d 61 63 5f 68 69 64 | 65 20 77 61 73 0a 58 09 | mac_hid|e was.X.|
|00005ce0| 20 2a 20 6e 6f 6e 7a 65 | 72 6f 20 2d 2d 20 6d 61 | * nonze|ro -- ma|
|00005cf0| 79 62 65 20 62 79 20 6c | 69 6e 65 20 77 72 61 70 |ybe by l|ine wrap|
|00005d00| 3f 20 20 46 69 78 20 69 | 74 20 61 73 20 62 65 73 |? Fix i|t as bes|
|00005d10| 74 20 77 65 20 63 61 6e | 2e 0a 58 09 20 2a 2f 0a |t we can|..X. */.|
|00005d20| 58 09 73 74 72 75 63 74 | 20 63 6d 64 5f 6d 61 70 |X.struct| cmd_map|
|00005d30| 20 2a 6d 73 70 3b 0a 58 | 09 66 6f 72 20 28 6d 73 | *msp;.X|.for (ms|
|00005d40| 70 20 3d 20 6d 61 63 5f | 73 74 61 63 6b 3b 20 6d |p = mac_|stack; m|
|00005d50| 73 70 2d 3e 6d 5f 6e 65 | 78 74 3b 20 6d 73 70 20 |sp->m_ne|xt; msp |
|00005d60| 3d 20 6d 73 70 2d 3e 6d | 5f 6e 65 78 74 29 0a 58 |= msp->m|_next).X|
|00005d70| 09 20 20 20 20 3b 0a 58 | 09 6d 73 70 2d 3e 6d 5f |. ;.X|.msp->m_|
|00005d80| 6e 65 78 74 20 3d 20 6d | 61 63 5f 68 69 64 65 3b |next = m|ac_hide;|
|00005d90| 0a 58 20 20 20 20 7d 20 | 65 6c 73 65 0a 58 09 6d |.X } |else.X.m|
|00005da0| 61 63 5f 73 74 61 63 6b | 20 3d 20 6d 61 63 5f 68 |ac_stack| = mac_h|
|00005db0| 69 64 65 3b 0a 58 20 20 | 20 20 6d 61 63 5f 68 69 |ide;.X | mac_hi|
|00005dc0| 64 65 20 3d 20 4e 55 4c | 4c 5f 4d 41 50 3b 0a 58 |de = NUL|L_MAP;.X|
|00005dd0| 0a 58 20 20 20 20 2f 2a | 20 52 65 73 74 6f 72 65 |.X /*| Restore|
|00005de0| 20 73 61 76 65 64 20 66 | 6c 61 67 73 20 2a 2f 0a | saved f|lags */.|
|00005df0| 58 20 20 20 20 69 66 20 | 28 6d 61 63 5f 73 74 61 |X if |(mac_sta|
|00005e00| 63 6b 29 20 7b 0a 58 09 | 69 66 20 28 69 73 6f 6e |ck) {.X.|if (ison|
|00005e10| 28 6d 61 63 5f 73 74 61 | 63 6b 2d 3e 6d 5f 63 6d |(mac_sta|ck->m_cm|
|00005e20| 64 2c 20 49 4e 5f 4d 41 | 43 52 4f 29 29 0a 58 09 |d, IN_MA|CRO)).X.|
|00005e30| 20 20 20 20 74 75 72 6e | 6f 6e 28 67 6c 6f 62 5f | turn|on(glob_|
|00005e40| 66 6c 61 67 73 2c 20 49 | 4e 5f 4d 41 43 52 4f 29 |flags, I|N_MACRO)|
|00005e50| 3b 0a 58 09 65 6c 73 65 | 0a 58 09 20 20 20 20 74 |;.X.else|.X. t|
|00005e60| 75 72 6e 6f 66 66 28 67 | 6c 6f 62 5f 66 6c 61 67 |urnoff(g|lob_flag|
|00005e70| 73 2c 20 49 4e 5f 4d 41 | 43 52 4f 29 3b 0a 58 09 |s, IN_MA|CRO);.X.|
|00005e80| 69 66 20 28 69 73 6f 6e | 28 6d 61 63 5f 73 74 61 |if (ison|(mac_sta|
|00005e90| 63 6b 2d 3e 6d 5f 63 6d | 64 2c 20 4c 49 4e 45 5f |ck->m_cm|d, LINE_|
|00005ea0| 4d 41 43 52 4f 29 29 0a | 58 09 20 20 20 20 74 75 |MACRO)).|X. tu|
|00005eb0| 72 6e 6f 6e 28 67 6c 6f | 62 5f 66 6c 61 67 73 2c |rnon(glo|b_flags,|
|00005ec0| 20 4c 49 4e 45 5f 4d 41 | 43 52 4f 29 3b 0a 58 09 | LINE_MA|CRO);.X.|
|00005ed0| 65 6c 73 65 0a 58 09 20 | 20 20 20 74 75 72 6e 6f |else.X. | turno|
|00005ee0| 66 66 28 67 6c 6f 62 5f | 66 6c 61 67 73 2c 20 4c |ff(glob_|flags, L|
|00005ef0| 49 4e 45 5f 4d 41 43 52 | 4f 29 3b 0a 58 20 20 20 |INE_MACR|O);.X |
|00005f00| 20 7d 0a 58 20 20 20 20 | 69 66 20 28 6c 65 6e 20 | }.X |if (len |
|00005f10| 3e 20 30 29 0a 58 09 55 | 6e 67 65 74 73 74 72 28 |> 0).X.U|ngetstr(|
|00005f20| 62 75 66 29 3b 0a 58 0a | 58 20 20 20 20 72 65 74 |buf);.X.|X ret|
|00005f30| 75 72 6e 20 31 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |urn 1;.X|}.X.X/* |
|00005f40| 67 65 74 63 68 61 72 28 | 29 20 73 75 62 73 74 69 |getchar(|) substi|
|00005f50| 74 75 74 65 20 2d 2d 20 | 72 65 61 64 73 20 66 72 |tute -- |reads fr|
|00005f60| 6f 6d 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |om the c|urrent m|
|00005f70| 61 63 72 6f 20 69 66 20 | 6f 6e 65 20 69 73 20 61 |acro if |one is a|
|00005f80| 63 74 69 76 65 2c 0a 58 | 20 2a 20 6f 74 68 65 72 |ctive,.X| * other|
|00005f90| 77 69 73 65 20 64 6f 65 | 73 20 61 20 67 65 74 63 |wise doe|s a getc|
|00005fa0| 68 61 72 28 29 2e 0a 58 | 20 2a 0a 58 20 2a 20 4e |har()..X| *.X * N|
|00005fb0| 4f 54 45 3a 20 20 49 6e | 20 74 68 65 20 6d 61 63 |OTE: In| the mac|
|00005fc0| 5f 73 74 61 63 6b 2c 20 | 78 5f 73 74 72 20 69 73 |_stack, |x_str is|
|00005fd0| 20 74 68 65 20 73 61 76 | 65 64 20 74 65 78 74 20 | the sav|ed text |
|00005fe0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |of the c|urrent m|
|00005ff0| 61 63 72 6f 2c 0a 58 20 | 2a 20 20 61 6e 64 20 6d |acro,.X |* and m|
|00006000| 5f 73 74 72 20 69 73 20 | 74 68 65 20 63 75 72 72 |_str is |the curr|
|00006010| 65 6e 74 20 72 65 61 64 | 20 70 6f 73 69 74 69 6f |ent read| positio|
|00006020| 6e 20 77 69 74 68 69 6e | 20 74 68 65 20 6d 61 63 |n within| the mac|
|00006030| 72 6f 2e 0a 58 20 2a 2f | 0a 58 6d 5f 67 65 74 63 |ro..X */|.Xm_getc|
|00006040| 68 61 72 28 29 0a 58 7b | 0a 58 20 20 20 20 72 65 |har().X{|.X re|
|00006050| 67 69 73 74 65 72 20 63 | 68 61 72 20 63 3b 0a 58 |gister c|har c;.X|
|00006060| 0a 58 20 20 20 20 77 68 | 69 6c 65 20 28 6d 61 63 |.X wh|ile (mac|
|00006070| 5f 73 74 61 63 6b 20 26 | 26 20 28 21 20 2a 28 6d |_stack &|& (! *(m|
|00006080| 61 63 5f 73 74 61 63 6b | 2d 3e 6d 5f 73 74 72 29 |ac_stack|->m_str)|
|00006090| 29 29 0a 58 09 6d 61 63 | 5f 70 6f 70 28 29 3b 0a |)).X.mac|_pop();.|
|000060a0| 58 20 20 20 20 69 66 20 | 28 6d 61 63 5f 73 74 61 |X if |(mac_sta|
|000060b0| 63 6b 29 20 7b 0a 58 09 | 63 20 3d 20 2a 28 28 6d |ck) {.X.|c = *((m|
|000060c0| 61 63 5f 73 74 61 63 6b | 2d 3e 6d 5f 73 74 72 29 |ac_stack|->m_str)|
|000060d0| 2b 2b 29 3b 0a 58 09 72 | 65 74 75 72 6e 20 63 3b |++);.X.r|eturn c;|
|000060e0| 0a 58 20 20 20 20 7d 20 | 65 6c 73 65 20 7b 0a 58 |.X } |else {.X|
|000060f0| 09 74 75 72 6e 6f 66 66 | 28 67 6c 6f 62 5f 66 6c |.turnoff|(glob_fl|
|00006100| 61 67 73 2c 20 49 4e 5f | 4d 41 43 52 4f 29 3b 0a |ags, IN_|MACRO);.|
|00006110| 58 09 74 75 72 6e 6f 66 | 66 28 67 6c 6f 62 5f 66 |X.turnof|f(glob_f|
|00006120| 6c 61 67 73 2c 20 4c 49 | 4e 45 5f 4d 41 43 52 4f |lags, LI|NE_MACRO|
|00006130| 29 3b 0a 58 09 74 75 72 | 6e 6f 66 66 28 67 6c 6f |);.X.tur|noff(glo|
|00006140| 62 5f 66 6c 61 67 73 2c | 20 51 55 4f 54 45 5f 4d |b_flags,| QUOTE_M|
|00006150| 41 43 52 4f 29 3b 0a 58 | 09 77 68 69 6c 65 20 28 |ACRO);.X|.while (|
|00006160| 28 63 20 3d 20 67 65 74 | 63 68 61 72 28 29 29 20 |(c = get|char()) |
|00006170| 3d 3d 20 30 29 09 2f 2a | 20 49 67 6e 6f 72 65 20 |== 0)./*| Ignore |
|00006180| 4e 55 4c 20 63 68 61 72 | 73 20 66 72 6f 6d 20 73 |NUL char|s from s|
|00006190| 74 64 69 6e 20 2a 2f 0a | 58 09 20 20 20 20 3b 09 |tdin */.|X. ;.|
|000061a0| 09 09 09 2f 2a 20 75 6e | 74 69 6c 20 62 65 74 74 |.../* un|til bett|
|000061b0| 65 72 20 73 6f 6c 75 74 | 69 6f 6e 20 66 6f 75 6e |er solut|ion foun|
|000061c0| 64 20 2a 2f 0a 58 09 72 | 65 74 75 72 6e 20 63 3b |d */.X.r|eturn c;|
|000061d0| 0a 58 20 20 20 20 7d 0a | 58 7d 0a 58 0a 58 6d 5f |.X }.|X}.X.Xm_|
|000061e0| 75 6e 67 65 74 63 28 63 | 29 0a 58 72 65 67 69 73 |ungetc(c|).Xregis|
|000061f0| 74 65 72 20 63 68 61 72 | 20 63 3b 0a 58 7b 0a 58 |ter char| c;.X{.X|
|00006200| 20 20 20 20 69 66 20 28 | 6d 61 63 5f 73 74 61 63 | if (|mac_stac|
|00006210| 6b 20 26 26 20 28 6d 61 | 63 5f 73 74 61 63 6b 2d |k && (ma|c_stack-|
|00006220| 3e 6d 5f 73 74 72 20 3e | 20 6d 61 63 5f 73 74 61 |>m_str >| mac_sta|
|00006230| 63 6b 2d 3e 78 5f 73 74 | 72 29 29 0a 58 09 2a 28 |ck->x_st|r)).X.*(|
|00006240| 2d 2d 28 6d 61 63 5f 73 | 74 61 63 6b 2d 3e 6d 5f |--(mac_s|tack->m_|
|00006250| 73 74 72 29 29 20 3d 20 | 63 3b 0a 58 20 20 20 20 |str)) = |c;.X |
|00006260| 65 6c 73 65 0a 58 09 28 | 76 6f 69 64 29 20 75 6e |else.X.(|void) un|
|00006270| 67 65 74 63 28 63 2c 20 | 73 74 64 69 6e 29 3b 0a |getc(c, |stdin);.|
|00006280| 58 7d 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 54 72 79 |X}.X.X/*|.X * Try|
|00006290| 20 74 6f 20 72 65 61 64 | 20 61 20 6c 6f 6e 67 20 | to read| a long |
|000062a0| 63 6f 6d 6d 61 6e 64 3b | 20 61 73 73 75 6d 65 73 |command;| assumes|
|000062b0| 20 4d 41 43 5f 4c 4f 4e | 47 5f 43 4d 44 20 61 6c | MAC_LON|G_CMD al|
|000062c0| 72 65 61 64 79 20 73 65 | 65 6e 2e 0a 58 20 2a 20 |ready se|en..X * |
|000062d0| 20 4f 6e 20 69 6d 6d 65 | 64 69 61 74 65 20 66 61 | On imme|diate fa|
|000062e0| 69 6c 75 72 65 2c 20 72 | 65 74 75 72 6e 20 30 2e |ilure, r|eturn 0.|
|000062f0| 0a 58 20 2a 20 20 4f 6e | 20 66 61 69 6c 75 72 65 |.X * On| failure|
|00006300| 20 61 66 74 65 72 20 72 | 65 61 64 69 6e 67 20 73 | after r|eading s|
|00006310| 6f 6d 65 20 69 6e 70 75 | 74 2c 20 72 65 74 75 72 |ome inpu|t, retur|
|00006320| 6e 20 6c 65 73 73 20 74 | 68 61 6e 20 7a 65 72 6f |n less t|han zero|
|00006330| 2e 0a 58 20 2a 20 20 4f | 6e 20 73 75 63 63 65 73 |..X * O|n succes|
|00006340| 73 2c 20 72 65 74 75 72 | 6e 20 67 72 65 61 74 65 |s, retur|n greate|
|00006350| 72 20 74 68 61 6e 20 30 | 2e 0a 58 20 2a 20 54 68 |r than 0|..X * Th|
|00006360| 65 20 61 62 73 6f 6c 75 | 74 65 20 76 61 6c 75 65 |e absolu|te value|
|00006370| 20 6f 66 20 74 68 65 20 | 72 65 74 75 72 6e 20 69 | of the |return i|
|00006380| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|00006390| 63 68 61 72 73 20 70 6c | 61 63 65 64 20 69 6e 20 |chars pl|aced in |
|000063a0| 62 75 66 2e 0a 58 20 2a | 2f 0a 58 72 65 61 64 5f |buf..X *|/.Xread_|
|000063b0| 6c 6f 6e 67 5f 63 6d 64 | 20 28 62 75 66 29 0a 58 |long_cmd| (buf).X|
|000063c0| 63 68 61 72 20 2a 62 75 | 66 3b 0a 58 7b 0a 58 20 |char *bu|f;.X{.X |
|000063d0| 20 20 20 72 65 67 69 73 | 74 65 72 20 63 68 61 72 | regis|ter char|
|000063e0| 20 63 2c 20 2a 70 20 3d | 20 62 75 66 3b 0a 58 20 | c, *p =| buf;.X |
|000063f0| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 | regis|ter int |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
