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 33 69 30 34 |Subject:| v13i04|
|00000010| 35 3a 20 20 43 6f 6e 76 | 65 72 74 20 28 73 6f 6d |5: Conv|ert (som|
|00000020| 65 29 20 63 73 68 20 73 | 63 72 69 70 74 73 20 74 |e) csh s|cripts t|
|00000030| 6f 20 6b 73 68 20 73 63 | 72 69 70 74 73 0a 4e 65 |o ksh sc|ripts.Ne|
|00000040| 77 73 67 72 6f 75 70 73 | 3a 20 63 6f 6d 70 2e 73 |wsgroups|: comp.s|
|00000050| 6f 75 72 63 65 73 2e 75 | 6e 69 78 0a 53 65 6e 64 |ources.u|nix.Send|
|00000060| 65 72 3a 20 73 6f 75 72 | 63 65 73 0a 41 70 70 72 |er: sour|ces.Appr|
|00000070| 6f 76 65 64 3a 20 72 73 | 61 6c 7a 40 75 75 6e 65 |oved: rs|alz@uune|
|00000080| 74 2e 55 55 2e 4e 45 54 | 0a 0a 53 75 62 6d 69 74 |t.UU.NET|..Submit|
|00000090| 74 65 64 2d 62 79 3a 20 | 42 6f 62 20 4d 63 71 75 |ted-by: |Bob Mcqu|
|000000a0| 65 65 72 20 3c 72 74 65 | 63 68 21 62 6f 62 6d 3e |eer <rte|ch!bobm>|
|000000b0| 0a 50 6f 73 74 69 6e 67 | 2d 6e 75 6d 62 65 72 3a |.Posting|-number:|
|000000c0| 20 56 6f 6c 75 6d 65 20 | 31 33 2c 20 49 73 73 75 | Volume |13, Issu|
|000000d0| 65 20 34 35 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 45.Arc|hive-nam|
|000000e0| 65 3a 20 6b 6f 72 6e 65 | 72 0a 0a 5b 20 20 41 73 |e: korne|r..[ As|
|000000f0| 20 42 6f 62 20 61 64 6d | 69 74 73 2c 20 74 68 69 | Bob adm|its, thi|
|00000100| 73 20 69 73 20 61 20 68 | 61 63 6b 2e 20 20 53 74 |s is a h|ack. St|
|00000110| 69 6c 6c 20 61 6e 64 20 | 61 6c 6c 2c 20 69 74 20 |ill and |all, it |
|00000120| 6d 69 67 68 74 20 68 65 | 6c 70 20 66 6f 6c 6b 73 |might he|lp folks|
|00000130| 20 6d 61 6b 65 0a 20 20 | 20 74 68 65 20 67 72 65 | make. | the gre|
|00000140| 61 74 20 6c 65 61 70 20 | 66 72 6f 6d 20 63 73 68 |at leap |from csh|
|00000150| 20 74 6f 20 6b 73 68 2e | 20 20 49 20 77 6f 75 6c | to ksh.| I woul|
|00000160| 64 6e 27 74 20 6b 6e 6f | 77 2c 20 61 6e 64 20 68 |dn't kno|w, and h|
|00000170| 61 76 65 6e 27 74 20 74 | 72 69 65 64 0a 20 20 20 |aven't t|ried. |
|00000180| 74 68 69 73 2e 20 20 2d | 2d 72 24 20 5d 0a 0a 54 |this. -|-r$ ]..T|
|00000190| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 66 65 65 64 |his prog|ram feed|
|000001a0| 73 20 43 53 48 20 73 63 | 72 69 70 74 73 20 74 6f |s CSH sc|ripts to|
|000001b0| 20 61 20 63 6f 70 79 20 | 6f 66 20 2f 62 69 6e 2f | a copy |of /bin/|
|000001c0| 63 73 68 20 74 68 65 6e | 20 61 6e 61 6c 79 7a 65 |csh then| analyze|
|000001d0| 73 0a 74 68 65 20 6e 65 | 77 20 61 6c 69 61 73 65 |s.the ne|w aliase|
|000001e0| 73 20 61 6e 64 20 76 61 | 72 69 61 62 6c 65 73 20 |s and va|riables |
|000001f0| 74 68 61 74 20 68 61 76 | 65 20 62 65 65 6e 20 63 |that hav|e been c|
|00000200| 72 65 61 74 65 64 2c 20 | 74 75 72 6e 69 6e 67 20 |reated, |turning |
|00000210| 74 68 65 6d 0a 69 6e 74 | 6f 20 28 6e 65 61 72 6c |them.int|o (nearl|
|00000220| 79 29 20 65 71 75 69 76 | 61 6c 65 6e 74 20 4b 53 |y) equiv|alent KS|
|00000230| 48 20 73 68 65 6c 6c 20 | 66 75 6e 63 74 69 6f 6e |H shell |function|
|00000240| 73 2e 0a 0a 7b 61 6d 64 | 61 68 6c 2c 20 73 75 6e |s...{amd|ahl, sun|
|00000250| 2c 20 6d 74 78 69 6e 75 | 2c 20 68 6f 70 74 6f 61 |, mtxinu|, hoptoa|
|00000260| 64 2c 20 63 70 73 63 36 | 61 7d 21 72 74 65 63 68 |d, cpsc6|a}!rtech|
|00000270| 21 62 6f 62 6d 0a 2d 2d | 2d 2d 2d 2d 20 63 75 74 |!bobm.--|---- cut|
|00000280| 20 68 65 72 65 20 2d 2d | 2d 2d 2d 2d 2d 0a 23 21 | here --|-----.#!|
|00000290| 20 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 | /bin/sh|.# This |
|000002a0| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|000002b0| 76 65 2c 20 6d 65 61 6e | 69 6e 67 3a 0a 23 20 31 |ve, mean|ing:.# 1|
|000002c0| 2e 20 52 65 6d 6f 76 65 | 20 65 76 65 72 79 74 68 |. Remove| everyth|
|000002d0| 69 6e 67 20 61 62 6f 76 | 65 20 74 68 65 20 23 21 |ing abov|e the #!|
|000002e0| 20 2f 62 69 6e 2f 73 68 | 20 6c 69 6e 65 2e 0a 23 | /bin/sh| line..#|
|000002f0| 20 32 2e 20 53 61 76 65 | 20 74 68 65 20 72 65 73 | 2. Save| the res|
|00000300| 75 6c 74 69 6e 67 20 74 | 65 78 74 20 69 6e 20 61 |ulting t|ext in a|
|00000310| 20 66 69 6c 65 2e 0a 23 | 20 33 2e 20 45 78 65 63 | file..#| 3. Exec|
|00000320| 75 74 65 20 74 68 65 20 | 66 69 6c 65 20 77 69 74 |ute the |file wit|
|00000330| 68 20 2f 62 69 6e 2f 73 | 68 20 28 6e 6f 74 20 63 |h /bin/s|h (not c|
|00000340| 73 68 29 20 74 6f 20 63 | 72 65 61 74 65 20 74 68 |sh) to c|reate th|
|00000350| 65 20 66 69 6c 65 73 3a | 0a 23 09 72 65 61 64 2e |e files:|.#.read.|
|00000360| 6d 65 0a 23 09 4d 61 6b | 65 66 69 6c 65 0a 23 09 |me.#.Mak|efile.#.|
|00000370| 6b 6f 72 6e 65 72 2e 31 | 0a 23 09 64 69 61 67 6e |korner.1|.#.diagn|
|00000380| 6f 73 74 69 63 2e 63 0a | 23 09 6b 6f 72 6e 65 72 |ostic.c.|#.korner|
|00000390| 2e 63 0a 23 09 73 74 72 | 74 6f 6b 2e 63 0a 23 09 |.c.#.str|tok.c.#.|
|000003a0| 66 75 6e 63 0a 23 20 54 | 68 69 73 20 61 72 63 68 |func.# T|his arch|
|000003b0| 69 76 65 20 63 72 65 61 | 74 65 64 3a 20 53 75 6e |ive crea|ted: Sun|
|000003c0| 20 4f 63 74 20 32 35 20 | 31 31 3a 33 39 3a 32 34 | Oct 25 |11:39:24|
|000003d0| 20 31 39 38 37 0a 65 78 | 70 6f 72 74 20 50 41 54 | 1987.ex|port PAT|
|000003e0| 48 3b 20 50 41 54 48 3d | 2f 62 69 6e 3a 24 50 41 |H; PATH=|/bin:$PA|
|000003f0| 54 48 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 72 |TH.if te|st -f 'r|
|00000400| 65 61 64 2e 6d 65 27 0a | 74 68 65 6e 0a 09 65 63 |ead.me'.|then..ec|
|00000410| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00000420| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00000430| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 72 65 61 |sting fi|le "'rea|
|00000440| 64 2e 6d 65 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |d.me'".e|lse.cat |
|00000450| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00000460| 72 65 61 64 2e 6d 65 27 | 0a 0a 54 68 65 20 70 72 |read.me'|..The pr|
|00000470| 6f 62 6c 65 6d 20 74 68 | 69 73 20 73 74 75 66 66 |oblem th|is stuff|
|00000480| 20 61 64 64 72 65 73 73 | 65 73 3a 0a 0a 09 49 20 | address|es:...I |
|00000490| 66 69 6e 64 20 6d 79 73 | 65 6c 66 20 74 68 65 20 |find mys|elf the |
|000004a0| 6c 6f 6e 65 20 6b 73 68 | 20 75 73 65 72 20 69 6e |lone ksh| user in|
|000004b0| 20 61 20 63 73 68 20 63 | 6f 6d 6d 75 6e 69 74 79 | a csh c|ommunity|
|000004c0| 2e 20 20 54 68 65 20 74 | 6f 6f 6c 73 0a 09 49 20 |. The t|ools..I |
|000004d0| 68 61 76 65 20 74 6f 20 | 75 73 65 20 6f 6e 20 61 |have to |use on a|
|000004e0| 20 64 61 69 6c 79 20 62 | 61 73 69 73 20 61 72 65 | daily b|asis are|
|000004f0| 20 73 65 74 20 75 70 20 | 62 79 20 61 20 73 65 74 | set up |by a set|
|00000500| 20 6f 66 20 63 73 68 20 | 22 73 6f 75 72 63 65 22 | of csh |"source"|
|00000510| 0a 09 66 69 6c 65 73 2c | 20 77 68 69 63 68 20 64 |..files,| which d|
|00000520| 65 66 69 6e 65 20 73 6f | 6d 65 20 6f 66 20 74 68 |efine so|me of th|
|00000530| 6f 73 65 20 74 6f 6f 6c | 73 20 61 73 20 63 73 68 |ose tool|s as csh|
|00000540| 20 61 6c 69 61 73 65 73 | 2e 20 20 42 75 74 2c 0a | aliases|. But,.|
|00000550| 09 64 61 64 62 75 72 6e | 20 69 74 2c 20 49 20 77 |.dadburn| it, I w|
|00000560| 61 6e 74 20 74 6f 20 75 | 73 65 20 6b 73 68 21 20 |ant to u|se ksh! |
|00000570| 20 41 4e 44 20 49 20 64 | 6f 6e 27 74 20 77 61 6e | AND I d|on't wan|
|00000580| 74 20 74 6f 20 68 61 76 | 65 20 74 6f 20 6b 65 65 |t to hav|e to kee|
|00000590| 70 0a 09 72 65 64 6f 69 | 6e 67 20 6d 79 20 6f 77 |p..redoi|ng my ow|
|000005a0| 6e 20 73 65 74 75 70 20 | 66 69 6c 65 73 20 65 76 |n setup |files ev|
|000005b0| 65 72 79 74 69 6d 65 20 | 73 6f 6d 65 62 6f 64 79 |erytime |somebody|
|000005c0| 20 64 6f 65 73 20 73 6f | 6d 65 74 68 69 6e 67 20 | does so|mething |
|000005d0| 74 6f 0a 09 74 68 65 20 | 22 73 74 61 6e 64 61 72 |to..the |"standar|
|000005e0| 64 22 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 73 |d" envir|onment s|
|000005f0| 65 74 75 70 20 66 69 6c | 65 73 20 77 68 69 63 68 |etup fil|es which|
|00000600| 20 65 76 65 72 79 62 6f | 64 79 20 69 73 20 73 75 | everybo|dy is su|
|00000610| 70 70 6f 73 65 64 0a 09 | 74 6f 20 22 73 6f 75 72 |pposed..|to "sour|
|00000620| 63 65 22 2e 20 20 54 61 | 6b 65 20 69 74 20 61 73 |ce". Ta|ke it as|
|00000630| 20 61 20 67 69 76 65 6e | 20 74 68 61 74 20 49 27 | a given| that I'|
|00000640| 6d 20 6e 6f 74 20 67 6f | 69 6e 67 20 74 6f 20 63 |m not go|ing to c|
|00000650| 6f 6e 76 69 6e 63 65 0a | 09 61 6e 79 62 6f 64 79 |onvince.|.anybody|
|00000660| 20 74 68 61 74 20 74 68 | 65 20 74 6f 6f 6c 20 73 | that th|e tool s|
|00000670| 65 74 20 73 68 6f 75 6c | 64 20 62 65 20 64 65 66 |et shoul|d be def|
|00000680| 69 6e 65 64 20 69 6e 20 | 73 75 63 68 20 61 20 77 |ined in |such a w|
|00000690| 61 79 20 74 68 61 74 20 | 69 74 0a 09 69 73 20 69 |ay that |it..is i|
|000006a0| 6e 64 65 70 65 6e 64 65 | 6e 74 20 6f 66 20 77 68 |ndepende|nt of wh|
|000006b0| 69 63 68 20 73 68 65 6c | 6c 20 79 6f 75 20 72 75 |ich shel|l you ru|
|000006c0| 6e 20 28 74 68 65 20 74 | 6f 6f 6c 73 20 69 6e 20 |n (the t|ools in |
|000006d0| 71 75 65 73 74 69 6f 6e | 20 61 72 65 0a 09 6f 66 |question| are..of|
|000006e0| 74 65 6e 20 61 6c 69 61 | 73 65 73 20 66 6f 72 20 |ten alia|ses for |
|000006f0| 74 68 69 6e 67 73 20 74 | 6f 20 63 6f 6e 76 65 72 |things t|o conver|
|00000700| 74 20 79 6f 75 72 20 65 | 6e 76 69 72 6f 6e 6d 65 |t your e|nvironme|
|00000710| 6e 74 20 6f 6e 20 74 68 | 65 20 66 6c 79 20 2d 0a |nt on th|e fly -.|
|00000720| 09 73 74 75 66 66 20 6c | 69 6b 65 20 22 65 76 61 |.stuff l|ike "eva|
|00000730| 6c 20 60 3c 67 61 72 67 | 6c 65 3e 60 22 20 77 68 |l `<garg|le>`" wh|
|00000740| 65 72 65 20 3c 67 61 72 | 67 6c 65 3e 20 69 73 20 |ere <gar|gle> is |
|00000750| 73 6f 6d 65 20 73 63 72 | 69 70 74 20 74 68 61 74 |some scr|ipt that|
|00000760| 0a 09 67 65 6e 65 72 61 | 74 65 73 20 73 6f 75 72 |..genera|tes sour|
|00000770| 63 65 73 20 61 6e 64 20 | 73 65 74 65 6e 76 27 73 |ces and |setenv's|
|00000780| 29 2e 0a 0a 09 57 68 61 | 74 20 49 20 6e 65 65 64 |)....Wha|t I need|
|00000790| 20 69 73 20 74 6f 20 62 | 65 20 61 62 6c 65 20 74 | is to b|e able t|
|000007a0| 6f 20 22 73 6f 75 72 63 | 65 22 20 63 73 68 20 73 |o "sourc|e" csh s|
|000007b0| 63 72 69 70 74 73 20 75 | 6e 64 65 72 20 6b 73 68 |cripts u|nder ksh|
|000007c0| 2c 20 64 6f 69 6e 67 0a | 09 74 68 65 20 73 61 6d |, doing.|.the sam|
|000007d0| 65 20 74 68 69 6e 67 20 | 69 6e 20 6d 79 20 6b 73 |e thing |in my ks|
|000007e0| 68 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 74 68 |h enviro|nment th|
|000007f0| 61 74 20 74 68 65 20 73 | 63 72 69 70 74 20 69 6e |at the s|cript in|
|00000800| 74 65 6e 64 65 64 20 74 | 6f 0a 09 64 6f 20 75 6e |tended t|o..do un|
|00000810| 64 65 72 20 63 73 68 2e | 0a 0a 57 68 61 74 20 77 |der csh.|..What w|
|00000820| 65 20 67 6f 74 20 68 65 | 72 65 3a 0a 0a 09 57 68 |e got he|re:...Wh|
|00000830| 61 74 20 49 20 64 6f 20 | 69 73 20 64 65 66 69 6e |at I do |is defin|
|00000840| 65 20 61 20 6b 73 68 20 | 66 75 6e 63 74 69 6f 6e |e a ksh |function|
|00000850| 20 66 6f 72 20 22 73 6f | 75 72 63 65 22 20 77 68 | for "so|urce" wh|
|00000860| 69 63 68 3a 0a 0a 09 20 | 20 20 20 31 29 20 75 73 |ich:... | 1) us|
|00000870| 65 73 20 63 73 68 20 74 | 6f 20 72 75 6e 20 74 68 |es csh t|o run th|
|00000880| 65 20 73 6f 75 72 63 65 | 20 66 69 6c 65 2c 20 64 |e source| file, d|
|00000890| 75 6d 70 69 6e 67 20 74 | 68 65 20 72 65 73 75 6c |umping t|he resul|
|000008a0| 74 61 6e 74 20 61 6c 69 | 61 73 65 73 2c 0a 09 09 |tant ali|ases,...|
|000008b0| 76 61 72 69 61 62 6c 65 | 73 2c 20 64 69 72 65 63 |variable|s, direc|
|000008c0| 74 6f 72 79 20 73 74 61 | 63 6b 2c 20 65 74 63 2e |tory sta|ck, etc.|
|000008d0| 20 6f 66 66 20 74 6f 20 | 61 20 74 65 6d 70 20 66 | off to |a temp f|
|000008e0| 69 6c 65 2e 0a 0a 09 20 | 20 20 20 32 29 20 72 75 |ile.... | 2) ru|
|000008f0| 6e 73 20 61 20 74 72 61 | 6e 73 6c 61 74 6f 72 20 |ns a tra|nslator |
|00000900| 28 74 68 65 20 70 72 6f | 67 72 61 6d 20 22 6b 6f |(the pro|gram "ko|
|00000910| 72 6e 65 72 22 29 20 6f | 76 65 72 20 74 68 65 20 |rner") o|ver the |
|00000920| 74 65 6d 70 20 66 69 6c | 65 2c 0a 09 09 70 72 6f |temp fil|e,...pro|
|00000930| 64 75 63 69 6e 67 20 61 | 20 6b 73 68 20 66 69 6c |ducing a| ksh fil|
|00000940| 65 20 74 6f 20 72 75 6e | 20 77 69 74 68 20 22 2e |e to run| with ".|
|00000950| 22 20 20 4b 6f 72 6e 65 | 72 20 69 73 20 69 6e 20 |" Korne|r is in |
|00000960| 6e 6f 20 77 61 79 0a 09 | 09 73 68 61 70 65 20 6f |no way..|.shape o|
|00000970| 72 20 66 6f 72 6d 20 69 | 6e 74 65 6e 64 65 64 20 |r form i|ntended |
|00000980| 74 6f 20 68 61 6e 64 6c | 65 20 61 6c 6c 20 74 68 |to handl|e all th|
|00000990| 65 20 63 73 68 20 63 6f | 6e 73 74 72 75 63 74 73 |e csh co|nstructs|
|000009a0| 0a 09 09 77 68 69 63 68 | 20 63 6f 75 6c 64 20 62 |...which| could b|
|000009b0| 65 20 73 68 6f 76 65 6c | 65 64 20 69 6e 74 6f 20 |e shovel|ed into |
|000009c0| 61 6c 69 61 73 65 73 20 | 2d 20 62 75 74 20 69 74 |aliases |- but it|
|000009d0| 20 64 6f 65 73 20 6b 6e | 6f 77 0a 09 09 68 6f 77 | does kn|ow...how|
|000009e0| 20 74 6f 20 63 6f 6e 76 | 65 72 74 20 73 69 6d 70 | to conv|ert simp|
|000009f0| 6c 65 72 20 61 72 67 75 | 6d 65 6e 74 20 6d 65 74 |ler argu|ment met|
|00000a00| 61 73 79 6e 74 61 78 2e | 0a 0a 09 20 20 20 20 33 |asyntax.|... 3|
|00000a10| 29 20 64 6f 65 73 20 61 | 20 22 2e 22 20 6f 66 20 |) does a| "." of |
|00000a20| 74 68 65 20 66 69 6c 65 | 20 70 72 6f 64 75 63 65 |the file| produce|
|00000a30| 64 20 69 6e 20 32 29 2c | 20 61 6e 64 20 72 65 6d |d in 2),| and rem|
|00000a40| 6f 76 65 73 20 74 68 65 | 20 74 65 6d 70 27 73 2e |oves the| temp's.|
|00000a50| 0a 0a 09 54 68 65 72 65 | 20 61 72 65 20 4c 4f 54 |...There| are LOT|
|00000a60| 53 20 6f 66 20 68 6f 6c | 65 73 20 68 65 72 65 20 |S of hol|es here |
|00000a70| 2d 20 74 68 65 20 74 68 | 69 6e 67 20 69 73 20 62 |- the th|ing is b|
|00000a80| 61 73 69 63 61 6c 6c 79 | 20 61 20 68 61 63 6b 20 |asically| a hack |
|00000a90| 2d 20 62 75 74 20 49 27 | 76 65 0a 09 62 65 65 6e |- but I'|ve..been|
|00000aa0| 20 75 73 69 6e 67 20 69 | 74 20 61 6e 64 20 68 61 | using i|t and ha|
|00000ab0| 76 69 6e 67 20 69 74 20 | 77 6f 72 6b 2e 20 20 44 |ving it |work. D|
|00000ac0| 6f 69 6e 67 20 73 74 65 | 70 20 31 29 20 61 6c 6c |oing ste|p 1) all|
|00000ad0| 65 76 69 61 74 65 73 20 | 61 20 4c 4f 54 20 6f 66 |eviates |a LOT of|
|00000ae0| 0a 09 74 68 65 20 70 72 | 6f 62 6c 65 6d 20 2d 20 |..the pr|oblem - |
|00000af0| 6c 65 74 20 63 73 68 20 | 66 69 67 75 72 65 20 6f |let csh |figure o|
|00000b00| 75 74 20 69 74 73 20 6f | 77 6e 20 73 69 6c 6c 79 |ut its o|wn silly|
|00000b10| 20 73 63 72 69 70 74 20 | 66 69 6c 65 73 20 61 6e | script |files an|
|00000b20| 64 20 79 6f 75 0a 09 6f | 6e 6c 79 20 68 61 76 65 |d you..o|nly have|
|00000b30| 20 74 6f 20 75 6e 64 65 | 72 73 74 61 6e 64 20 77 | to unde|rstand w|
|00000b40| 68 61 74 20 66 69 6e 64 | 73 20 69 74 73 20 77 61 |hat find|s its wa|
|00000b50| 79 20 69 6e 74 6f 20 74 | 68 65 20 74 79 70 65 73 |y into t|he types|
|00000b60| 20 6f 66 20 61 6c 69 61 | 73 65 73 0a 09 79 6f 75 | of alia|ses..you|
|00000b70| 20 6e 65 65 64 20 74 6f | 20 74 72 61 6e 73 6c 61 | need to| transla|
|00000b80| 74 65 2e 20 20 41 20 70 | 69 74 66 61 6c 6c 2c 20 |te. A p|itfall, |
|00000b90| 6f 66 20 63 6f 75 72 73 | 65 2c 20 77 6f 75 6c 64 |of cours|e, would|
|00000ba0| 20 62 65 20 73 6f 75 72 | 63 65 20 66 69 6c 65 73 | be sour|ce files|
|00000bb0| 0a 09 64 65 70 65 6e 64 | 69 6e 67 20 6f 6e 20 65 |..depend|ing on e|
|00000bc0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 61 6c 20 74 68 69 |nvironme|ntal thi|
|00000bd0| 6e 67 73 20 73 65 74 20 | 75 70 20 62 79 20 70 72 |ngs set |up by pr|
|00000be0| 65 63 65 64 69 6e 67 20 | 73 6f 75 72 63 65 20 66 |eceding |source f|
|00000bf0| 69 6c 65 73 0a 09 77 68 | 69 63 68 20 64 6f 6e 27 |iles..wh|ich don'|
|00000c00| 74 20 67 65 74 20 70 61 | 73 73 65 64 20 66 72 6f |t get pa|ssed fro|
|00000c10| 6d 20 6b 73 68 20 69 6e | 74 6f 20 63 73 68 20 28 |m ksh in|to csh (|
|00000c20| 63 64 70 61 74 68 20 73 | 65 74 74 69 6e 67 2c 20 |cdpath s|etting, |
|00000c30| 70 72 65 76 69 6f 75 73 | 0a 09 61 6c 69 61 73 65 |previous|..aliase|
|00000c40| 73 2c 20 65 74 63 29 2e | 20 20 20 59 6f 75 20 77 |s, etc).| You w|
|00000c50| 6f 75 6c 64 20 74 68 65 | 6e 20 68 61 76 65 20 74 |ould the|n have t|
|00000c60| 6f 20 6d 61 6b 65 20 61 | 20 73 6f 75 72 63 65 20 |o make a| source |
|00000c70| 66 69 6c 65 20 6f 66 20 | 79 6f 75 72 0a 09 6f 77 |file of |your..ow|
|00000c80| 6e 20 77 68 69 63 68 20 | 73 6f 75 72 63 65 64 20 |n which |sourced |
|00000c90| 61 6c 6c 20 74 68 65 20 | 6f 74 68 65 72 73 2c 20 |all the |others, |
|00000ca0| 74 68 75 73 20 6c 65 74 | 74 69 6e 67 20 63 73 68 |thus let|ting csh|
|00000cb0| 20 73 65 74 75 70 20 74 | 68 65 20 77 68 6f 6c 65 | setup t|he whole|
|00000cc0| 0a 09 6d 65 73 73 20 61 | 6c 6c 20 6f 76 65 72 20 |..mess a|ll over |
|00000cd0| 61 67 61 69 6e 2e 0a 0a | 09 54 68 69 73 20 61 70 |again...|.This ap|
|00000ce0| 70 72 6f 61 63 68 20 65 | 76 65 6e 20 73 65 65 6d |proach e|ven seem|
|00000cf0| 73 20 74 6f 20 77 6f 72 | 6b 20 66 61 73 74 20 65 |s to wor|k fast e|
|00000d00| 6e 6f 75 67 68 20 74 6f | 20 75 73 65 20 69 74 20 |nough to| use it |
|00000d10| 6f 6e 20 74 68 65 20 66 | 6c 79 0a 09 61 73 20 49 |on the f|ly..as I|
|00000d20| 20 64 6f 20 2d 20 79 6f | 75 20 63 6f 75 6c 64 20 | do - yo|u could |
|00000d30| 61 6c 73 6f 20 73 61 76 | 65 20 74 68 65 20 6f 75 |also sav|e the ou|
|00000d40| 74 70 75 74 20 74 6f 20 | 70 65 72 69 6f 64 69 63 |tput to |periodic|
|00000d50| 61 6c 6c 79 20 67 65 6e | 65 72 61 74 65 0a 09 79 |ally gen|erate..y|
|00000d60| 6f 75 72 20 6f 77 6e 20 | 73 65 74 75 70 20 66 69 |our own |setup fi|
|00000d70| 6c 65 73 2e 0a 0a 09 22 | 66 75 6e 63 22 20 63 6f |les...."|func" co|
|00000d80| 6e 74 61 69 6e 73 20 6d | 79 20 64 65 66 69 6e 69 |ntains m|y defini|
|00000d90| 74 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 22 73 6f |tion for| the "so|
|00000da0| 75 72 63 65 22 20 66 75 | 6e 63 74 69 6f 6e 2e 20 |urce" fu|nction. |
|00000db0| 20 54 68 65 20 76 61 72 | 69 61 62 6c 65 0a 09 4b | The var|iable..K|
|00000dc0| 44 20 69 73 20 64 65 66 | 69 6e 65 64 20 66 6f 72 |D is def|ined for|
|00000dd0| 20 75 73 65 20 69 6e 20 | 74 65 6d 70 20 66 69 6c | use in |temp fil|
|00000de0| 65 20 6e 61 6d 65 73 2e | 20 20 49 66 20 79 6f 75 |e names.| If you|
|00000df0| 20 64 65 66 69 6e 65 20 | 74 68 65 20 76 61 72 69 | define |the vari|
|00000e00| 61 62 6c 65 0a 09 4b 44 | 4f 55 54 2c 20 74 68 65 |able..KD|OUT, the|
|00000e10| 20 67 65 6e 65 72 61 74 | 65 64 20 6b 73 68 20 22 | generat|ed ksh "|
|00000e20| 2e 22 20 66 69 6c 65 73 | 20 77 69 6c 6c 20 67 65 |." files| will ge|
|00000e30| 74 20 73 61 76 65 64 20 | 69 6e 20 74 68 65 72 65 |t saved |in there|
|00000e40| 2e 20 20 46 6f 72 20 6d | 79 0a 09 70 75 72 70 6f |. For m|y..purpo|
|00000e50| 73 65 73 2c 20 49 20 61 | 6c 73 6f 20 6e 65 65 64 |ses, I a|lso need|
|00000e60| 20 74 6f 20 72 65 63 6f | 67 6e 69 7a 65 20 22 73 | to reco|gnize "s|
|00000e70| 65 74 65 6e 76 22 20 61 | 6e 64 20 22 75 6e 73 65 |etenv" a|nd "unse|
|00000e80| 74 65 6e 76 22 20 66 6f | 72 20 74 68 65 0a 09 67 |tenv" fo|r the..g|
|00000e90| 65 6e 65 72 61 74 65 64 | 20 61 6c 69 61 73 65 73 |enerated| aliases|
|00000ea0| 2e 20 20 59 6f 75 20 77 | 69 6c 6c 20 6e 6f 74 65 |. You w|ill note|
|00000eb0| 20 74 68 61 74 20 69 74 | 20 66 69 6c 74 65 72 73 | that it| filters|
|00000ec0| 20 74 68 65 20 70 72 69 | 6e 74 65 6e 76 20 6f 75 | the pri|ntenv ou|
|00000ed0| 74 70 75 74 0a 09 77 68 | 69 63 68 20 67 65 74 73 |tput..wh|ich gets|
|00000ee0| 20 74 6f 20 74 68 65 20 | 74 72 61 6e 73 6c 61 74 | to the |translat|
|00000ef0| 6f 72 2e 20 20 54 68 65 | 20 22 73 6f 75 72 63 65 |or. The| "source|
|00000f00| 22 20 66 69 6c 65 73 20 | 49 27 6d 20 75 73 69 6e |" files |I'm usin|
|00000f10| 67 20 74 68 69 73 20 6f | 6e 20 64 6f 0a 09 22 73 |g this o|n do.."s|
|00000f20| 65 74 65 6e 76 22 27 73 | 20 6f 66 20 61 72 6f 75 |etenv"'s| of arou|
|00000f30| 6e 64 20 31 30 30 20 76 | 61 72 69 61 62 6c 65 73 |nd 100 v|ariables|
|00000f40| 2e 20 20 4e 6f 74 20 66 | 69 6c 74 65 72 69 6e 67 |. Not f|iltering|
|00000f50| 20 6f 75 74 20 74 68 65 | 20 6f 6e 65 73 20 74 68 | out the| ones th|
|00000f60| 61 74 0a 09 74 68 65 20 | 63 73 68 20 22 73 6f 75 |at..the |csh "sou|
|00000f70| 72 63 65 22 20 64 69 64 | 6e 27 74 20 63 68 61 6e |rce" did|n't chan|
|00000f80| 67 65 20 77 61 73 20 63 | 61 75 73 69 6e 67 20 6b |ge was c|ausing k|
|00000f90| 73 68 20 74 6f 20 72 75 | 6e 20 6f 75 74 20 6f 66 |sh to ru|n out of|
|00000fa0| 20 73 70 61 63 65 0a 09 | 66 6f 72 20 76 61 72 69 | space..|for vari|
|00000fb0| 61 62 6c 65 20 61 73 73 | 69 67 6e 6d 65 6e 74 73 |able ass|ignments|
|00000fc0| 20 62 79 20 72 65 61 73 | 73 69 67 6e 69 6e 67 20 | by reas|signing |
|00000fd0| 74 68 65 6d 20 61 6c 6c | 20 74 68 65 20 74 69 6d |them all| the tim|
|00000fe0| 65 2e 0a 0a 09 6b 6f 72 | 6e 65 72 2e 31 20 69 73 |e....kor|ner.1 is|
|00000ff0| 20 74 68 65 20 6d 61 6e | 20 70 61 67 65 20 66 6f | the man| page fo|
|00001000| 72 20 22 6b 6f 72 6e 65 | 72 22 2e 20 20 54 68 65 |r "korne|r". The|
|00001010| 20 22 73 74 72 74 6f 6b | 2e 63 22 20 73 6f 75 72 | "strtok|.c" sour|
|00001020| 63 65 0a 09 66 69 6c 65 | 20 6d 61 79 20 62 65 20 |ce..file| may be |
|00001030| 64 69 73 70 65 6e 73 65 | 64 20 77 69 74 68 20 69 |dispense|d with i|
|00001040| 66 20 79 6f 75 20 68 61 | 76 65 20 61 20 73 79 73 |f you ha|ve a sys|
|00001050| 74 65 6d 20 73 74 72 74 | 6f 6b 28 29 20 63 61 6c |tem strt|ok() cal|
|00001060| 6c 0a 09 61 76 61 69 6c | 61 62 6c 65 2e 0a 0a 09 |l..avail|able....|
|00001070| 54 6f 20 70 72 6f 63 65 | 73 73 20 74 68 65 20 63 |To proce|ss the c|
|00001080| 73 68 20 64 69 72 65 63 | 74 6f 72 79 20 73 74 61 |sh direc|tory sta|
|00001090| 63 6b 2c 20 69 74 20 69 | 73 20 65 78 70 65 63 74 |ck, it i|s expect|
|000010a0| 65 64 20 74 68 61 74 20 | 79 6f 75 20 68 61 76 65 |ed that |you have|
|000010b0| 0a 09 64 65 66 69 6e 65 | 64 20 61 20 22 70 75 73 |..define|d a "pus|
|000010c0| 68 64 22 20 69 6e 20 79 | 6f 75 72 20 6b 73 68 20 |hd" in y|our ksh |
|000010d0| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2e 20 20 53 65 |definiti|ons. Se|
|000010e0| 65 20 6b 6f 72 6e 65 72 | 2e 31 2e 0a 0a 63 61 76 |e korner|.1...cav|
|000010f0| 65 61 74 73 3a 0a 0a 09 | 49 20 6d 61 64 65 20 6e |eats:...|I made n|
|00001100| 6f 20 61 74 74 65 6d 70 | 74 20 74 6f 20 62 65 20 |o attemp|t to be |
|00001110| 63 6f 6d 70 72 65 68 65 | 6e 73 69 76 65 2e 20 20 |comprehe|nsive. |
|00001120| 49 20 6a 75 73 74 20 64 | 69 64 20 61 20 71 75 69 |I just d|id a qui|
|00001130| 63 6b 20 6c 6f 6f 6b 20 | 6f 76 65 72 0a 09 74 68 |ck look |over..th|
|00001140| 65 20 63 73 68 20 6d 61 | 6e 20 70 61 67 65 2c 20 |e csh ma|n page, |
|00001150| 61 6e 64 20 74 72 61 6e | 73 6c 61 74 65 64 20 74 |and tran|slated t|
|00001160| 68 65 20 6d 65 74 61 73 | 79 6e 74 61 78 20 74 68 |he metas|yntax th|
|00001170| 61 74 20 73 65 65 6d 65 | 64 20 72 65 61 73 6f 6e |at seeme|d reason|
|00001180| 61 62 6c 65 0a 09 74 6f | 20 74 72 61 6e 73 6c 61 |able..to| transla|
|00001190| 74 65 20 69 6e 20 70 72 | 6f 63 65 73 73 69 6e 67 |te in pr|ocessing|
|000011a0| 20 74 68 65 20 61 6c 69 | 61 73 65 73 2e 0a 0a 09 | the ali|ases....|
|000011b0| 49 74 27 73 20 73 74 72 | 69 63 74 6c 79 20 61 20 |It's str|ictly a |
|000011c0| 68 61 6e 64 20 74 6f 6f | 6c 65 64 20 70 61 72 73 |hand too|led pars|
|000011d0| 65 72 20 2d 20 6e 6f 20 | 66 6f 72 6d 61 6c 20 67 |er - no |formal g|
|000011e0| 72 61 6d 6d 61 72 20 64 | 65 66 69 6e 69 74 69 6f |rammar d|efinitio|
|000011f0| 6e 20 6f 72 0a 09 61 6e | 79 74 68 69 6e 67 20 6c |n or..an|ything l|
|00001200| 69 6b 65 20 74 68 61 74 | 2e 0a 0a 09 49 27 76 65 |ike that|....I've|
|00001210| 20 64 65 62 75 67 67 65 | 64 20 74 68 69 73 20 6f | debugge|d this o|
|00001220| 6e 6c 79 20 74 6f 20 74 | 68 65 20 65 78 74 65 6e |nly to t|he exten|
|00001230| 74 20 74 68 61 74 20 69 | 74 20 77 6f 72 6b 73 20 |t that i|t works |
|00001240| 6f 6e 20 74 68 65 20 63 | 73 68 20 73 6f 75 72 63 |on the c|sh sourc|
|00001250| 65 0a 09 66 69 6c 65 73 | 20 49 27 76 65 20 68 61 |e..files| I've ha|
|00001260| 64 20 74 6f 20 75 73 65 | 2e 0a 0a 09 49 74 27 73 |d to use|....It's|
|00001270| 20 6f 6e 6c 79 20 65 76 | 65 72 20 72 75 6e 20 69 | only ev|er run i|
|00001280| 6e 20 6f 6e 65 20 65 6e | 76 69 72 6f 6e 6d 65 6e |n one en|vironmen|
|00001290| 74 20 2d 20 50 79 72 61 | 6d 69 64 20 4f 53 78 2c |t - Pyra|mid OSx,|
|000012a0| 20 67 65 6e 65 72 61 6c | 6c 79 20 69 6e 20 74 68 | general|ly in th|
|000012b0| 65 0a 09 75 63 62 20 75 | 6e 69 76 65 72 73 65 2c |e..ucb u|niverse,|
|000012c0| 20 77 69 74 68 20 77 68 | 61 74 20 49 20 62 65 6c | with wh|at I bel|
|000012d0| 69 65 76 65 20 69 73 20 | 61 6e 20 65 61 72 6c 79 |ieve is |an early|
|000012e0| 20 6b 73 68 20 76 65 72 | 73 69 6f 6e 2e 20 20 49 | ksh ver|sion. I|
|000012f0| 20 68 61 76 65 6e 27 74 | 0a 09 68 61 64 20 6f 63 | haven't|..had oc|
|00001300| 63 61 73 69 6f 6e 20 74 | 6f 20 74 72 79 20 74 68 |casion t|o try th|
|00001310| 69 73 20 74 68 69 6e 67 | 20 6f 6e 20 6f 74 68 65 |is thing| on othe|
|00001320| 72 20 6d 61 63 68 69 6e | 65 73 20 2f 20 76 65 72 |r machin|es / ver|
|00001330| 73 69 6f 6e 73 20 6f 66 | 20 73 68 65 6c 6c 73 2c |sions of| shells,|
|00001340| 0a 09 65 74 63 2e 20 20 | 53 6f 6d 65 20 74 68 69 |..etc. |Some thi|
|00001350| 6e 67 73 2c 20 73 75 63 | 68 20 61 73 20 74 68 65 |ngs, suc|h as the|
|00001360| 20 65 78 70 65 63 74 65 | 64 20 6f 75 74 70 75 74 | expecte|d output|
|00001370| 20 66 6f 72 6d 61 74 20 | 6f 66 20 74 68 65 20 76 | format |of the v|
|00001380| 61 72 69 6f 75 73 0a 09 | 63 73 68 20 63 6f 6d 6d |arious..|csh comm|
|00001390| 61 6e 64 73 2c 20 77 65 | 72 65 20 64 65 74 65 72 |ands, we|re deter|
|000013a0| 6d 69 6e 65 64 20 73 69 | 6d 70 6c 79 20 62 79 20 |mined si|mply by |
|000013b0| 65 78 61 6d 69 6e 69 6e | 67 20 77 68 61 74 20 74 |examinin|g what t|
|000013c0| 68 65 20 6c 6f 63 61 6c | 20 63 73 68 0a 09 64 69 |he local| csh..di|
|000013d0| 64 2c 20 61 6e 64 20 73 | 6c 69 67 68 74 20 64 69 |d, and s|light di|
|000013e0| 66 66 65 72 65 6e 63 65 | 73 20 69 6e 20 73 6f 6d |fference|s in som|
|000013f0| 65 62 6f 64 79 20 65 6c | 73 65 27 73 20 63 73 68 |ebody el|se's csh|
|00001400| 20 6d 69 67 68 74 20 62 | 72 65 61 6b 20 69 74 2e | might b|reak it.|
|00001410| 0a 0a 09 42 65 63 61 75 | 73 65 20 6f 66 20 74 68 |...Becau|se of th|
|00001420| 65 20 61 62 6f 76 65 2c | 20 69 74 20 77 69 6c 6c |e above,| it will|
|00001430| 20 6c 69 6b 65 6c 79 20 | 68 61 76 65 20 74 6f 20 | likely |have to |
|00001440| 62 65 20 74 77 65 61 6b | 65 64 20 61 20 62 69 74 |be tweak|ed a bit|
|00001450| 20 74 6f 0a 09 67 65 74 | 20 59 4f 55 52 20 73 65 | to..get| YOUR se|
|00001460| 74 20 6f 66 20 63 73 68 | 20 73 65 74 75 70 20 66 |t of csh| setup f|
|00001470| 69 6c 65 73 20 74 6f 20 | 72 75 6e 20 74 68 72 6f |iles to |run thro|
|00001480| 75 67 68 20 69 74 2e 0a | 0a 09 4c 65 74 20 6d 65 |ugh it..|..Let me|
|00001490| 20 6b 6e 6f 77 20 6f 66 | 20 73 69 67 6e 69 66 69 | know of| signifi|
|000014a0| 63 61 6e 74 20 69 6d 70 | 72 6f 76 65 6d 65 6e 74 |cant imp|rovement|
|000014b0| 73 2c 20 66 69 78 65 73 | 2c 20 65 74 63 2e 0a 0a |s, fixes|, etc...|
|000014c0| 42 6f 62 20 4d 63 51 75 | 65 65 72 0a 7b 61 6d 64 |Bob McQu|eer.{amd|
|000014d0| 61 68 6c 2c 20 73 75 6e | 2c 20 6d 74 78 69 6e 75 |ahl, sun|, mtxinu|
|000014e0| 2c 20 68 6f 70 74 6f 61 | 64 2c 20 63 70 73 63 36 |, hoptoa|d, cpsc6|
|000014f0| 61 7d 21 72 74 65 63 68 | 21 62 6f 62 6d 0a 53 48 |a}!rtech|!bobm.SH|
|00001500| 41 52 5f 45 4f 46 0a 66 | 69 20 23 20 65 6e 64 20 |AR_EOF.f|i # end |
|00001510| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00001520| 68 65 63 6b 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |heck.if |test -f |
|00001530| 27 4d 61 6b 65 66 69 6c | 65 27 0a 74 68 65 6e 0a |'Makefil|e'.then.|
|00001540| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 77 69 6c 6c |.echo sh|ar: will|
|00001550| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00001560| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 22 27 |existing| file "'|
|00001570| 4d 61 6b 65 66 69 6c 65 | 27 22 0a 65 6c 73 65 0a |Makefile|'".else.|
|00001580| 63 61 74 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |cat << \|SHAR_EOF|
|00001590| 20 3e 20 27 4d 61 6b 65 | 66 69 6c 65 27 0a 4f 42 | > 'Make|file'.OB|
|000015a0| 4a 53 20 3d 20 6b 6f 72 | 6e 65 72 2e 6f 20 64 69 |JS = kor|ner.o di|
|000015b0| 61 67 6e 6f 73 74 69 63 | 2e 6f 20 73 74 72 74 6f |agnostic|.o strto|
|000015c0| 6b 2e 6f 0a 0a 43 46 4c | 41 47 53 20 3d 20 2d 4f |k.o..CFL|AGS = -O|
|000015d0| 0a 0a 6b 6f 72 6e 65 72 | 3a 20 24 28 4f 42 4a 53 |..korner|: $(OBJS|
|000015e0| 29 0a 09 63 63 20 2d 6f | 20 6b 6f 72 6e 65 72 20 |)..cc -o| korner |
|000015f0| 24 28 4f 42 4a 53 29 0a | 53 48 41 52 5f 45 4f 46 |$(OBJS).|SHAR_EOF|
|00001600| 0a 66 69 20 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi # en|d of ove|
|00001610| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 69 |rwriting| check.i|
|00001620| 66 20 74 65 73 74 20 2d | 66 20 27 6b 6f 72 6e 65 |f test -|f 'korne|
|00001630| 72 2e 31 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |r.1'.the|n..echo |
|00001640| 73 68 61 72 3a 20 77 69 | 6c 6c 20 6e 6f 74 20 6f |shar: wi|ll not o|
|00001650| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00001660| 6e 67 20 66 69 6c 65 20 | 22 27 6b 6f 72 6e 65 72 |ng file |"'korner|
|00001670| 2e 31 27 22 0a 65 6c 73 | 65 0a 63 61 74 20 3c 3c |.1'".els|e.cat <<|
|00001680| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 6b 6f | \SHAR_E|OF > 'ko|
|00001690| 72 6e 65 72 2e 31 27 0a | 2e 74 72 20 7e 0a 2e 54 |rner.1'.|.tr ~..T|
|000016a0| 48 20 4b 4f 52 4e 45 52 | 20 4c 4f 43 41 4c 20 32 |H KORNER| LOCAL 2|
|000016b0| 2f 31 2f 38 36 0a 2e 55 | 43 0a 2e 53 48 20 4e 41 |/1/86..U|C..SH NA|
|000016c0| 4d 45 0a 6b 6f 72 6e 65 | 72 20 2d 20 6b 73 68 20 |ME.korne|r - ksh |
|000016d0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 63 6f 6e 76 |environm|ent conv|
|000016e0| 65 72 74 65 72 0a 2e 53 | 48 20 53 59 4e 4f 50 53 |erter..S|H SYNOPS|
|000016f0| 49 53 0a 2e 42 20 6b 6f | 72 6e 65 72 0a 5b 2d 64 |IS..B ko|rner.[-d|
|00001700| 70 75 73 68 64 5d 20 5b | 2d 73 73 65 63 74 63 68 |pushd] [|-ssectch|
|00001710| 61 72 5d 20 5b 2d 63 5d | 20 5b 2d 78 5d 20 5b 2d |ar] [-c]| [-x] [-|
|00001720| 70 5d 20 5b 2d 6c 5d 20 | 5b 2d 7c 69 6e 66 69 6c |p] [-l] |[-|infil|
|00001730| 65 5d 20 5b 6f 75 74 66 | 69 6c 65 5d 0a 2e 53 48 |e] [outf|ile]..SH|
|00001740| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 0a 2e 49 20 | DESCRIP|TION..I |
|00001750| 4b 6f 72 6e 65 72 0a 74 | 61 6b 65 73 20 69 6e 70 |Korner.t|akes inp|
|00001760| 75 74 20 64 65 73 63 72 | 69 62 69 6e 67 20 65 6e |ut descr|ibing en|
|00001770| 76 69 72 6f 6e 6d 65 6e | 74 20 73 65 74 74 69 6e |vironmen|t settin|
|00001780| 67 73 20 69 6e 20 66 6f | 72 6d 61 74 73 20 74 79 |gs in fo|rmats ty|
|00001790| 70 69 63 61 6c 6c 79 20 | 70 72 6f 64 75 63 65 64 |pically |produced|
|000017a0| 20 62 79 0a 2e 49 20 63 | 73 68 20 28 31 29 0a 61 | by..I c|sh (1).a|
|000017b0| 6e 64 0a 2e 49 20 70 72 | 69 6e 74 65 6e 76 20 28 |nd..I pr|intenv (|
|000017c0| 31 29 0a 61 6e 64 20 70 | 72 6f 64 75 63 65 73 20 |1).and p|roduces |
|000017d0| 6b 73 68 20 63 6f 6d 6d | 61 6e 64 73 20 74 6f 20 |ksh comm|ands to |
|000017e0| 72 65 66 6c 65 63 74 20 | 74 68 65 6d 2e 20 20 54 |reflect |them. T|
|000017f0| 68 65 20 70 75 72 70 6f | 73 65 20 69 73 20 74 6f |he purpo|se is to|
|00001800| 20 61 6c 6c 6f 77 20 6b | 73 68 20 75 73 65 72 73 | allow k|sh users|
|00001810| 0a 74 6f 20 75 73 65 20 | 63 73 68 20 22 73 6f 75 |.to use |csh "sou|
|00001820| 72 63 65 22 20 66 69 6c | 65 73 2c 20 6f 62 74 61 |rce" fil|es, obta|
|00001830| 69 6e 69 6e 67 20 61 20 | 6b 73 68 20 65 6e 76 69 |ining a |ksh envi|
|00001840| 72 6f 6e 6d 65 6e 74 20 | 64 75 70 6c 69 63 61 74 |ronment |duplicat|
|00001850| 69 6e 67 20 74 68 61 74 | 20 73 65 74 20 75 70 0a |ing that| set up.|
|00001860| 66 6f 72 20 63 73 68 2e | 0a 2e 73 70 0a 54 68 65 |for csh.|..sp.The|
|00001870| 20 2d 63 20 6f 70 74 69 | 6f 6e 20 77 69 6c 6c 20 | -c opti|on will |
|00001880| 63 61 75 73 65 20 74 68 | 65 20 6b 73 68 20 43 44 |cause th|e ksh CD|
|00001890| 50 41 54 48 20 74 6f 20 | 62 65 20 72 65 70 6c 61 |PATH to |be repla|
|000018a0| 63 65 64 20 72 61 74 68 | 65 72 20 74 68 61 6e 0a |ced rath|er than.|
|000018b0| 70 72 65 66 69 78 65 64 | 2e 20 20 49 74 20 69 73 |prefixed|. It is|
|000018c0| 20 6e 6f 72 6d 61 6c 6c | 79 20 70 72 65 66 69 78 | normall|y prefix|
|000018d0| 65 64 20 62 65 63 61 75 | 73 65 20 63 73 68 20 64 |ed becau|se csh d|
|000018e0| 6f 65 73 20 6e 6f 74 20 | 70 69 63 6b 20 75 70 20 |oes not |pick up |
|000018f0| 74 68 65 0a 6b 73 68 20 | 43 44 50 41 54 48 20 76 |the.ksh |CDPATH v|
|00001900| 61 6c 75 65 20 61 73 20 | 69 74 73 20 6f 77 6e 20 |alue as |its own |
|00001910| 73 65 74 74 69 6e 67 2c | 20 74 68 65 20 77 61 79 |setting,| the way|
|00001920| 20 69 74 20 64 6f 65 73 | 20 74 68 65 20 50 41 54 | it does| the PAT|
|00001930| 48 20 73 65 74 74 69 6e | 67 2e 0a 2e 73 70 0a 54 |H settin|g...sp.T|
|00001940| 68 65 20 2d 78 20 6f 70 | 74 69 6f 6e 20 77 69 6c |he -x op|tion wil|
|00001950| 6c 20 63 61 75 73 65 0a | 2e 49 20 6b 6f 72 6e 65 |l cause.|.I korne|
|00001960| 72 0a 4e 4f 54 20 74 6f | 20 65 78 70 6f 72 74 20 |r.NOT to| export |
|00001970| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 69 74 |the vari|ables it|
|00001980| 20 61 73 73 69 67 6e 73 | 20 66 72 6f 6d 20 69 74 | assigns| from it|
|00001990| 73 0a 2e 49 20 70 72 69 | 6e 74 65 6e 76 0a 73 74 |s..I pri|ntenv.st|
|000019a0| 79 6c 65 20 69 6e 70 75 | 74 2e 20 20 45 78 70 6f |yle inpu|t. Expo|
|000019b0| 72 74 20 69 73 20 74 68 | 65 20 64 65 66 61 75 6c |rt is th|e defaul|
|000019c0| 74 20 62 65 63 61 75 73 | 65 20 74 68 69 73 20 69 |t becaus|e this i|
|000019d0| 73 20 69 6d 70 6c 69 65 | 64 20 62 79 20 75 73 65 |s implie|d by use|
|000019e0| 0a 6f 66 20 74 68 65 20 | 63 73 68 20 22 73 65 74 |.of the |csh "set|
|000019f0| 65 6e 76 22 20 62 75 69 | 6c 74 69 6e 2c 20 61 6e |env" bui|ltin, an|
|00001a00| 64 20 69 66 20 74 68 65 | 20 69 6e 70 75 74 20 72 |d if the| input r|
|00001a10| 65 61 6c 6c 79 20 63 6f | 6d 65 73 20 66 72 6f 6d |eally co|mes from|
|00001a20| 0a 2e 49 20 70 72 69 6e | 74 65 6e 76 2c 0a 74 68 |..I prin|tenv,.th|
|00001a30| 65 20 76 61 72 69 61 62 | 6c 65 73 20 68 61 76 65 |e variab|les have|
|00001a40| 20 74 6f 20 62 65 20 65 | 78 70 6f 72 74 65 64 20 | to be e|xported |
|00001a50| 66 6f 72 20 74 68 65 0a | 2e 49 20 70 72 69 6e 74 |for the.|.I print|
|00001a60| 65 6e 76 0a 70 72 6f 63 | 65 73 73 20 74 6f 20 73 |env.proc|ess to s|
|00001a70| 65 65 20 74 68 65 6d 20 | 61 6e 79 77 61 79 2e 0a |ee them |anyway..|
|00001a80| 2e 73 70 0a 54 68 65 20 | 2d 70 20 6f 70 74 69 6f |.sp.The |-p optio|
|00001a90| 6e 20 77 69 6c 6c 20 61 | 6c 6c 6f 77 20 63 73 68 |n will a|llow csh|
|00001aa0| 20 22 70 72 6f 6d 70 74 | 22 20 73 65 74 74 69 6e | "prompt|" settin|
|00001ab0| 67 73 20 74 6f 20 61 66 | 66 65 63 74 20 74 68 65 |gs to af|fect the|
|00001ac0| 20 6b 73 68 20 50 53 31 | 20 76 61 72 69 61 62 6c | ksh PS1| variabl|
|00001ad0| 65 2e 0a 4e 6f 72 6d 61 | 6c 6c 79 2c 20 74 68 65 |e..Norma|lly, the|
|00001ae0| 73 65 20 61 72 65 20 74 | 68 72 6f 77 6e 20 61 77 |se are t|hrown aw|
|00001af0| 61 79 20 73 69 6e 63 65 | 20 63 73 68 20 64 6f 65 |ay since| csh doe|
|00001b00| 73 6e 27 74 20 69 6e 68 | 65 72 69 74 20 74 68 65 |sn't inh|erit the|
|00001b10| 20 6b 73 68 20 70 72 6f | 6d 70 74 2c 20 61 6e 64 | ksh pro|mpt, and|
|00001b20| 0a 79 6f 75 20 64 6f 6e | 27 74 20 77 61 6e 74 20 |.you don|'t want |
|00001b30| 50 53 31 20 74 75 72 6e | 65 64 20 69 6e 74 6f 20 |PS1 turn|ed into |
|00001b40| 74 68 65 20 64 65 66 61 | 75 6c 74 20 63 73 68 20 |the defa|ult csh |
|00001b50| 22 25 22 2e 0a 2e 73 70 | 0a 54 68 65 0a 2e 49 20 |"%"...sp|.The..I |
|00001b60| 2d 64 0a 6f 70 74 69 6f | 6e 20 77 69 6c 6c 20 63 |-d.optio|n will c|
|00001b70| 61 75 73 65 0a 2e 49 20 | 6b 6f 72 6e 65 72 0a 74 |ause..I |korner.t|
|00001b80| 6f 20 75 73 65 20 61 6e | 20 61 6c 74 65 72 6e 61 |o use an| alterna|
|00001b90| 74 65 20 22 70 75 73 68 | 64 22 20 63 6f 6d 6d 61 |te "push|d" comma|
|00001ba0| 6e 64 20 77 68 65 6e 20 | 70 72 6f 63 65 73 73 69 |nd when |processi|
|00001bb0| 6e 67 20 74 68 65 20 64 | 69 72 65 63 74 6f 72 79 |ng the d|irectory|
|00001bc0| 20 73 74 61 63 6b 2e 0a | 54 68 65 20 64 69 72 65 | stack..|The dire|
|00001bd0| 63 74 6f 72 79 20 73 74 | 61 63 6b 20 65 6e 76 69 |ctory st|ack envi|
|00001be0| 72 6f 6e 6d 65 6e 74 20 | 69 6e 70 75 74 20 69 73 |ronment |input is|
|00001bf0| 20 72 65 70 72 6f 64 75 | 63 65 64 20 62 79 20 67 | reprodu|ced by g|
|00001c00| 65 6e 65 72 61 74 69 6e | 67 20 61 20 73 65 72 69 |eneratin|g a seri|
|00001c10| 65 73 0a 6f 66 20 22 70 | 75 73 68 64 22 27 73 2c |es.of "p|ushd"'s,|
|00001c20| 20 6f 72 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | or the |specifie|
|00001c30| 64 20 63 6f 6d 6d 61 6e | 64 2e 0a 2e 73 70 0a 54 |d comman|d...sp.T|
|00001c40| 68 65 20 2d 6c 20 6f 70 | 74 69 6f 6e 20 63 61 75 |he -l op|tion cau|
|00001c50| 73 65 73 20 75 6e 72 65 | 63 6f 67 6e 69 7a 65 64 |ses unre|cognized|
|00001c60| 20 63 73 68 20 22 73 65 | 74 22 27 73 20 74 6f 20 | csh "se|t"'s to |
|00001c70| 62 65 20 61 73 73 69 67 | 6e 65 64 20 61 73 20 75 |be assig|ned as u|
|00001c80| 6e 65 78 70 6f 72 74 65 | 64 0a 6b 73 68 20 76 61 |nexporte|d.ksh va|
|00001c90| 72 69 61 62 6c 65 73 2e | 20 20 54 68 65 79 20 61 |riables.| They a|
|00001ca0| 72 65 20 6e 6f 72 6d 61 | 6c 6c 79 20 69 67 6e 6f |re norma|lly igno|
|00001cb0| 72 65 64 2e 0a 2e 73 70 | 0a 54 68 65 20 2d 73 20 |red...sp|.The -s |
|00001cc0| 6f 70 74 69 6f 6e 20 73 | 70 65 63 69 66 69 65 73 |option s|pecifies|
|00001cd0| 20 73 6f 6d 65 20 63 68 | 61 72 61 63 74 65 72 20 | some ch|aracter |
|00001ce0| 6f 74 68 65 72 20 74 68 | 61 6e 20 74 68 65 20 64 |other th|an the d|
|00001cf0| 65 66 61 75 6c 74 20 22 | 2b 22 20 75 73 65 64 0a |efault "|+" used.|
|00001d00| 74 6f 20 73 65 70 61 72 | 61 74 65 20 73 65 63 74 |to separ|ate sect|
|00001d10| 69 6f 6e 73 20 6f 66 0a | 2e 49 20 6b 6f 72 6e 65 |ions of.|.I korne|
|00001d20| 72 0a 69 6e 70 75 74 2e | 20 20 54 68 69 73 20 69 |r.input.| This i|
|00001d30| 73 20 75 73 65 66 75 6c | 20 69 66 20 74 68 65 20 |s useful| if the |
|00001d40| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 62 65 69 6e |environm|ent bein|
|00001d50| 67 20 70 72 6f 63 65 73 | 73 65 64 20 69 6e 73 69 |g proces|sed insi|
|00001d60| 73 74 73 20 6f 6e 0a 6e | 61 6d 69 6e 67 20 73 6f |sts on.n|aming so|
|00001d70| 6d 65 74 68 69 6e 67 20 | 22 2b 22 2e 0a 2e 73 70 |mething |"+"...sp|
|00001d80| 0a 49 66 20 74 68 65 20 | 69 6e 70 75 74 20 66 69 |.If the |input fi|
|00001d90| 6c 65 20 69 73 20 6d 69 | 73 73 69 6e 67 20 6f 72 |le is mi|ssing or|
|00001da0| 20 67 69 76 65 6e 20 61 | 73 20 22 2d 22 2c 20 73 | given a|s "-", s|
|00001db0| 74 61 6e 64 61 72 64 20 | 69 6e 70 75 74 20 69 73 |tandard |input is|
|00001dc0| 20 75 73 65 64 2e 0a 2e | 73 70 0a 49 66 20 74 68 | used...|sp.If th|
|00001dd0| 65 20 6f 75 74 70 75 74 | 20 66 69 6c 65 20 69 73 |e output| file is|
|00001de0| 20 6d 69 73 73 69 6e 67 | 20 73 74 61 6e 64 61 72 | missing| standar|
|00001df0| 64 20 6f 75 74 70 75 74 | 20 69 73 20 75 73 65 64 |d output| is used|
|00001e00| 2e 0a 2e 53 48 20 49 4e | 50 55 54 7e 46 4f 52 4d |...SH IN|PUT~FORM|
|00001e10| 41 54 0a 49 6e 70 75 74 | 20 74 6f 0a 2e 49 20 6b |AT.Input| to..I k|
|00001e20| 6f 72 6e 65 72 0a 69 73 | 20 69 6e 20 73 65 76 65 |orner.is| in seve|
|00001e30| 72 61 6c 20 73 65 63 74 | 69 6f 6e 73 2c 20 65 61 |ral sect|ions, ea|
|00001e40| 63 68 20 62 65 67 69 6e | 6e 69 6e 67 0a 77 69 74 |ch begin|ning.wit|
|00001e50| 68 20 61 20 6c 69 6e 65 | 20 73 74 61 72 74 69 6e |h a line| startin|
|00001e60| 67 20 77 69 74 68 20 61 | 20 22 2b 22 20 28 20 6f |g with a| "+" ( o|
|00001e70| 72 20 74 68 65 20 61 6c | 74 65 72 6e 61 74 65 20 |r the al|ternate |
|00001e80| 63 68 61 72 61 63 74 65 | 72 20 73 70 65 63 69 66 |characte|r specif|
|00001e90| 69 65 64 0a 62 79 20 74 | 68 65 20 2d 73 20 6f 70 |ied.by t|he -s op|
|00001ea0| 74 69 6f 6e 29 2e 20 20 | 4c 69 6e 65 73 20 66 6f |tion). |Lines fo|
|00001eb0| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 20 73 65 63 74 |llowing |the sect|
|00001ec0| 69 6f 6e 20 64 65 6c 69 | 6d 69 74 65 72 20 61 72 |ion deli|miter ar|
|00001ed0| 65 20 75 6e 64 65 72 73 | 74 6f 6f 64 0a 74 6f 20 |e unders|tood.to |
|00001ee0| 72 65 70 72 65 73 65 6e | 74 20 61 20 63 65 72 74 |represen|t a cert|
|00001ef0| 61 69 6e 20 74 79 70 65 | 20 6f 66 20 65 6e 76 69 |ain type| of envi|
|00001f00| 72 6f 6e 6d 65 6e 74 20 | 69 6e 66 6f 72 6d 61 74 |ronment |informat|
|00001f10| 69 6f 6e 20 75 6e 74 69 | 6c 20 74 68 65 20 6e 65 |ion unti|l the ne|
|00001f20| 78 74 20 22 2b 22 0a 6c | 69 6e 65 2c 20 6f 72 20 |xt "+".l|ine, or |
|00001f30| 65 6e 64 20 6f 66 20 66 | 69 6c 65 2e 0a 2e 73 70 |end of f|ile...sp|
|00001f40| 0a 54 68 65 20 22 2b 45 | 22 20 6c 69 6e 65 20 73 |.The "+E|" line s|
|00001f50| 69 67 6e 69 66 69 65 73 | 20 76 61 72 69 61 62 6c |ignifies| variabl|
|00001f60| 65 20 61 73 73 69 67 6e | 6d 65 6e 74 73 20 69 6e |e assign|ments in|
|00001f70| 20 74 68 65 20 66 6f 72 | 6d 61 74 20 70 72 6f 64 | the for|mat prod|
|00001f80| 75 63 65 64 20 62 79 20 | 74 68 65 0a 2e 49 20 70 |uced by |the..I p|
|00001f90| 72 69 6e 74 65 6e 76 0a | 63 6f 6d 6d 61 6e 64 2e |rintenv.|command.|
|00001fa0| 20 20 54 68 65 79 20 77 | 69 6c 6c 20 62 65 20 63 | They w|ill be c|
|00001fb0| 6f 6e 76 65 72 74 65 64 | 20 69 6e 74 6f 20 70 61 |onverted| into pa|
|00001fc0| 69 72 73 20 6f 66 20 65 | 78 70 6f 72 74 20 61 6e |irs of e|xport an|
|00001fd0| 64 20 76 61 72 69 61 62 | 6c 65 0a 61 73 73 69 67 |d variab|le.assig|
|00001fe0| 6e 6d 65 6e 74 20 73 74 | 61 74 65 6d 65 6e 74 73 |nment st|atements|
|00001ff0| 2e 20 20 49 66 20 2d 78 | 20 69 73 20 73 65 74 2c |. If -x| is set,|
|00002000| 20 74 68 65 20 65 78 70 | 6f 72 74 73 20 77 69 6c | the exp|orts wil|
|00002010| 6c 20 6e 6f 74 20 62 65 | 20 64 6f 6e 65 2e 0a 2e |l not be| done...|
|00002020| 73 70 0a 54 68 65 20 22 | 2b 41 22 20 6c 69 6e 65 |sp.The "|+A" line|
|00002030| 20 73 69 67 6e 69 66 69 | 65 73 20 63 73 68 0a 61 | signifi|es csh.a|
|00002040| 6c 69 61 73 65 73 20 69 | 6e 20 74 68 65 20 66 6f |liases i|n the fo|
|00002050| 72 6d 61 74 20 70 72 6f | 64 75 63 65 64 20 62 79 |rmat pro|duced by|
|00002060| 20 74 68 65 20 22 61 6c | 69 61 73 22 20 6c 69 73 | the "al|ias" lis|
|00002070| 74 69 6e 67 2e 0a 41 20 | 6b 73 68 20 61 6c 69 61 |ting..A |ksh alia|
|00002080| 73 20 6f 72 20 66 75 6e | 63 74 69 6f 6e 20 77 69 |s or fun|ction wi|
|00002090| 74 68 20 74 68 65 20 73 | 61 6d 65 20 6e 61 6d 65 |th the s|ame name|
|000020a0| 20 77 69 6c 6c 20 62 65 | 20 70 72 6f 64 75 63 65 | will be| produce|
|000020b0| 64 20 66 6f 72 20 65 61 | 63 68 2e 0a 49 66 20 6e |d for ea|ch..If n|
|000020c0| 6f 20 71 75 6f 74 69 6e | 67 20 6f 72 20 61 72 67 |o quotin|g or arg|
|000020d0| 75 6d 65 6e 74 73 20 61 | 72 65 20 72 65 71 75 69 |uments a|re requi|
|000020e0| 72 65 64 2c 20 61 6e 20 | 61 6c 69 61 73 20 69 73 |red, an |alias is|
|000020f0| 20 70 72 6f 64 75 63 65 | 64 2c 20 6f 74 68 65 72 | produce|d, other|
|00002100| 77 69 73 65 0a 61 20 66 | 75 6e 63 74 69 6f 6e 20 |wise.a f|unction |
|00002110| 77 68 69 63 68 20 61 74 | 74 65 6d 70 74 73 20 74 |which at|tempts t|
|00002120| 6f 20 6d 69 6d 69 63 20 | 74 68 65 0a 63 73 68 20 |o mimic |the.csh |
|00002130| 61 6c 69 61 73 20 75 73 | 69 6e 67 20 6b 73 68 20 |alias us|ing ksh |
|00002140| 61 72 67 75 6d 65 6e 74 | 20 73 79 6e 74 61 78 2e |argument| syntax.|
|00002150| 0a 2e 73 70 0a 54 68 65 | 20 22 2b 44 22 20 6c 69 |..sp.The| "+D" li|
|00002160| 6e 65 20 73 68 6f 75 6c | 64 20 61 63 74 75 61 6c |ne shoul|d actual|
|00002170| 6c 79 20 6f 6e 6c 79 20 | 68 61 76 65 20 6f 6e 65 |ly only |have one|
|00002180| 20 6c 69 6e 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 | line fo|llowing |
|00002190| 69 74 2c 20 77 68 69 63 | 68 20 69 73 0a 61 20 64 |it, whic|h is.a d|
|000021a0| 69 72 65 63 74 6f 72 79 | 20 73 74 61 63 6b 2c 20 |irectory| stack, |
|000021b0| 61 6c 61 20 74 68 65 20 | 63 73 68 20 22 64 69 72 |ala the |csh "dir|
|000021c0| 73 22 20 63 6f 6d 6d 61 | 6e 64 2e 20 20 54 68 65 |s" comma|nd. The|
|000021d0| 20 66 69 72 73 74 20 77 | 6f 72 64 20 69 73 20 61 | first w|ord is a|
|000021e0| 73 73 75 6d 65 64 0a 74 | 6f 20 62 65 20 74 68 65 |ssumed.t|o be the|
|000021f0| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|00002200| 72 79 2c 20 61 6e 64 20 | 69 73 20 74 68 72 6f 77 |ry, and |is throw|
|00002210| 6e 20 6f 75 74 20 69 66 | 20 61 20 22 63 77 64 22 |n out if| a "cwd"|
|00002220| 20 73 65 74 74 69 6e 67 | 20 68 61 73 20 62 65 65 | setting| has bee|
|00002230| 6e 20 73 65 65 6e 2e 0a | 54 68 65 20 72 65 73 74 |n seen..|The rest|
|00002240| 20 61 72 65 20 75 73 65 | 64 20 69 6e 20 72 65 76 | are use|d in rev|
|00002250| 65 72 73 65 20 6f 72 64 | 65 72 0a 74 6f 20 67 65 |erse ord|er.to ge|
|00002260| 6e 65 72 61 74 65 20 22 | 70 75 73 68 64 22 20 63 |nerate "|pushd" c|
|00002270| 6f 6d 6d 61 6e 64 73 20 | 66 6f 72 20 74 68 65 20 |ommands |for the |
|00002280| 6b 73 68 20 64 69 72 65 | 63 74 6f 72 79 20 73 74 |ksh dire|ctory st|
|00002290| 61 63 6b 2e 0a 2e 73 70 | 0a 54 68 65 20 22 2b 53 |ack...sp|.The "+S|
|000022a0| 22 20 73 69 67 6e 69 66 | 69 65 73 20 74 68 65 20 |" signif|ies the |
|000022b0| 72 65 73 75 6c 74 73 20 | 6f 66 20 61 20 63 73 68 |results |of a csh|
|000022c0| 20 22 73 65 74 22 20 63 | 6f 6d 6d 61 6e 64 2e 20 | "set" c|ommand. |
|000022d0| 20 53 65 6c 65 63 74 65 | 64 20 69 74 65 6d 73 0a | Selecte|d items.|
|000022e0| 66 72 6f 6d 20 74 68 65 | 20 6c 69 73 74 20 77 68 |from the| list wh|
|000022f0| 69 63 68 20 68 61 76 65 | 20 6b 73 68 20 61 6e 61 |ich have| ksh ana|
|00002300| 6c 6f 67 73 20 61 72 65 | 20 70 72 6f 63 65 73 73 |logs are| process|
|00002310| 65 64 20 69 6e 74 6f 20 | 73 65 74 74 69 6e 67 73 |ed into |settings|
|00002320| 20 6f 66 20 74 68 65 0a | 61 70 70 72 6f 70 72 69 | of the.|appropri|
|00002330| 61 74 65 20 6b 73 68 20 | 76 61 72 69 61 62 6c 65 |ate ksh |variable|
|00002340| 2e 20 20 22 63 77 64 22 | 20 69 73 20 75 73 65 64 |. "cwd"| is used|
|00002350| 20 74 6f 20 73 65 74 20 | 74 68 65 20 63 75 72 72 | to set |the curr|
|00002360| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 20 76 69 |ent dire|ctory vi|
|00002370| 61 20 61 20 22 63 64 22 | 0a 63 6f 6d 6d 61 6e 64 |a a "cd"|.command|
|00002380| 2e 20 20 55 73 65 20 6f | 66 20 22 70 72 6f 6d 70 |. Use o|f "promp|
|00002390| 74 22 20 69 73 20 6f 70 | 74 69 6f 6e 61 6c 2c 20 |t" is op|tional, |
|000023a0| 62 61 73 65 64 20 6f 6e | 20 74 68 65 20 22 2d 70 |based on| the "-p|
|000023b0| 22 20 66 6c 61 67 2e 20 | 20 22 63 64 70 61 74 68 |" flag. | "cdpath|
|000023c0| 22 20 69 73 0a 75 73 75 | 61 6c 6c 79 20 70 72 65 |" is.usu|ally pre|
|000023d0| 66 69 78 65 64 20 74 6f | 20 61 6e 20 65 78 69 73 |fixed to| an exis|
|000023e0| 74 69 6e 67 0a 6b 73 68 | 20 43 44 50 41 54 48 20 |ting.ksh| CDPATH |
|000023f0| 62 65 63 61 75 73 65 20 | 69 6e 76 6f 6b 69 6e 67 |because |invoking|
|00002400| 20 63 73 68 20 75 6e 64 | 65 72 20 6b 73 68 20 64 | csh und|er ksh d|
|00002410| 6f 65 73 6e 27 74 20 67 | 65 74 20 74 68 65 20 63 |oesn't g|et the c|
|00002420| 73 68 20 63 64 70 61 74 | 68 20 73 65 74 0a 75 70 |sh cdpat|h set.up|
|00002430| 20 66 72 6f 6d 20 74 68 | 65 20 6b 73 68 20 6f 6e | from th|e ksh on|
|00002440| 65 2c 20 61 73 20 68 61 | 70 70 65 6e 73 20 77 69 |e, as ha|ppens wi|
|00002450| 74 68 20 22 70 61 74 68 | 22 20 66 72 6f 6d 20 50 |th "path|" from P|
|00002460| 41 54 48 2e 20 20 55 73 | 69 6e 67 20 63 6f 6d 6d |ATH. Us|ing comm|
|00002470| 61 6e 64 20 6c 69 6e 65 | 0a 6f 70 74 69 6f 6e 20 |and line|.option |
|00002480| 22 2d 63 22 20 6d 61 6b | 65 73 20 74 68 65 20 22 |"-c" mak|es the "|
|00002490| 63 64 70 61 74 68 22 20 | 73 65 74 74 69 6e 67 20 |cdpath" |setting |
|000024a0| 72 65 70 6c 61 63 65 20 | 61 6e 79 20 65 78 69 73 |replace |any exis|
|000024b0| 74 69 6e 67 20 43 44 50 | 41 54 48 2e 0a 53 65 74 |ting CDP|ATH..Set|
|000024c0| 74 69 6e 67 73 20 6e 6f | 74 20 72 65 63 6f 67 6e |tings no|t recogn|
|000024d0| 69 7a 65 64 20 61 73 20 | 73 6f 6d 65 74 68 69 6e |ized as |somethin|
|000024e0| 67 20 77 69 74 68 20 61 | 20 6b 73 68 20 61 6e 61 |g with a| ksh ana|
|000024f0| 6c 6f 67 20 61 72 65 20 | 75 73 75 61 6c 6c 79 20 |log are |usually |
|00002500| 69 67 6e 6f 72 65 64 2c | 20 62 75 74 0a 6d 61 79 |ignored,| but.may|
|00002510| 20 62 65 20 74 75 72 6e | 65 64 20 69 6e 74 6f 20 | be turn|ed into |
|00002520| 75 6e 65 78 70 6f 72 74 | 65 64 20 76 61 72 69 61 |unexport|ed varia|
|00002530| 62 6c 65 20 61 73 73 69 | 67 6e 6d 65 6e 74 73 20 |ble assi|gnments |
|00002540| 77 69 74 68 20 74 68 65 | 20 22 2d 6c 22 20 6f 70 |with the| "-l" op|
|00002550| 74 69 6f 6e 2e 0a 2e 73 | 70 0a 41 20 22 2b 45 22 |tion...s|p.A "+E"|
|00002560| 20 73 65 63 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 | section| should |
|00002570| 70 72 65 63 65 64 65 20 | 61 20 22 2b 53 22 20 73 |precede |a "+S" s|
|00002580| 65 63 74 69 6f 6e 20 73 | 6f 20 74 68 61 74 20 74 |ection s|o that t|
|00002590| 68 65 20 63 73 68 20 73 | 65 74 74 69 6e 67 20 6f |he csh s|etting o|
|000025a0| 66 0a 74 68 69 6e 67 73 | 20 6c 69 6b 65 20 22 68 |f.things| like "h|
|000025b0| 6f 6d 65 22 20 63 61 6e | 20 6f 76 65 72 72 69 64 |ome" can| overrid|
|000025c0| 65 20 61 6e 20 65 78 70 | 6f 72 74 65 64 2d 69 6e |e an exp|orted-in|
|000025d0| 20 48 4f 4d 45 20 76 61 | 72 69 61 62 6c 65 2e 20 | HOME va|riable. |
|000025e0| 20 41 20 22 2b 53 22 0a | 73 65 63 74 69 6f 6e 20 | A "+S".|section |
|000025f0| 73 68 6f 75 6c 64 20 70 | 72 65 63 65 64 65 20 61 |should p|recede a|
|00002600| 20 22 2b 44 22 20 73 65 | 63 74 69 6f 6e 20 73 6f | "+D" se|ction so|
|00002610| 20 74 68 61 74 20 74 68 | 65 20 48 4f 4d 45 20 73 | that th|e HOME s|
|00002620| 65 74 74 69 6e 67 2c 20 | 69 66 0a 63 68 61 6e 67 |etting, |if.chang|
|00002630| 65 64 2c 20 77 69 6c 6c | 20 62 65 20 63 6f 72 72 |ed, will| be corr|
|00002640| 65 63 74 20 66 6f 72 20 | 69 6e 74 65 72 70 72 65 |ect for |interpre|
|00002650| 74 61 74 69 6f 6e 20 6f | 66 20 74 69 6c 64 65 27 |tation o|f tilde'|
|00002660| 73 2e 0a 2e 73 70 0a 54 | 68 65 20 22 63 64 22 20 |s...sp.T|he "cd" |
|00002670| 63 6f 6d 6d 61 6e 64 20 | 67 65 6e 65 72 61 74 65 |command |generate|
|00002680| 64 20 62 79 0a 2e 49 20 | 6b 6f 72 6e 65 72 0a 62 |d by..I |korner.b|
|00002690| 61 73 65 64 20 6f 6e 20 | 65 69 74 68 65 72 20 74 |ased on |either t|
|000026a0| 68 65 20 22 63 77 64 22 | 20 73 65 74 74 69 6e 67 |he "cwd"| setting|
|000026b0| 20 6f 72 20 74 68 65 20 | 73 74 61 72 74 20 6f 66 | or the |start of|
|000026c0| 20 74 68 65 20 22 2b 44 | 22 20 73 65 63 74 69 6f | the "+D|" sectio|
|000026d0| 6e 0a 69 73 20 64 65 66 | 65 72 72 65 64 20 74 6f |n.is def|erred to|
|000026e0| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 69 74 73 20 | the end| of its |
|000026f0| 6f 75 74 70 75 74 2e 0a | 2e 53 48 20 44 49 41 47 |output..|.SH DIAG|
|00002700| 4e 4f 53 54 49 43 53 0a | 4d 65 73 73 61 67 65 73 |NOSTICS.|Messages|
|00002710| 20 70 72 69 6e 74 65 64 | 20 6f 6e 20 73 74 61 6e | printed| on stan|
|00002720| 64 61 72 64 20 65 72 72 | 6f 72 20 66 6f 72 20 66 |dard err|or for f|
|00002730| 61 69 6c 75 72 65 73 20 | 61 6e 64 20 69 6c 6c 65 |ailures |and ille|
|00002740| 67 61 6c 20 69 6e 70 75 | 74 2e 0a 2e 53 48 20 42 |gal inpu|t...SH B|
|00002750| 55 47 53 7e 41 4e 44 7e | 4c 49 4d 49 54 41 54 49 |UGS~AND~|LIMITATI|
|00002760| 4f 4e 53 0a 54 68 65 72 | 65 20 61 72 65 20 6d 61 |ONS.Ther|e are ma|
|00002770| 6e 79 20 74 68 69 6e 67 | 73 20 77 68 69 63 68 20 |ny thing|s which |
|00002780| 63 61 6e 6e 6f 74 20 62 | 65 20 68 61 6e 64 6c 65 |cannot b|e handle|
|00002790| 64 20 66 6f 72 20 61 20 | 76 61 72 69 65 74 79 20 |d for a |variety |
|000027a0| 6f 66 20 72 65 61 73 6f | 6e 73 2e 0a 41 74 74 65 |of reaso|ns..Atte|
|000027b0| 6d 70 74 73 20 68 61 76 | 65 20 62 65 65 6e 20 6d |mpts hav|e been m|
|000027c0| 61 64 65 20 74 6f 20 61 | 74 20 6c 65 61 73 74 20 |ade to a|t least |
|000027d0| 67 65 6e 65 72 61 74 65 | 20 64 69 61 67 6e 6f 73 |generate| diagnos|
|000027e0| 74 69 63 73 20 66 6f 72 | 20 74 68 65 73 65 20 63 |tics for| these c|
|000027f0| 61 73 65 73 2e 0a 2e 73 | 70 0a 49 74 20 69 73 20 |ases...s|p.It is |
|00002800| 70 6f 73 73 69 62 6c 65 | 20 74 6f 20 64 65 66 69 |possible| to defi|
|00002810| 6e 65 20 76 61 72 69 61 | 62 6c 65 73 20 77 69 74 |ne varia|bles wit|
|00002820| 68 20 73 74 72 61 6e 67 | 65 0a 6e 61 6d 65 73 2c |h strang|e.names,|
|00002830| 20 6c 69 6b 65 20 22 26 | 22 2c 20 61 6e 64 20 61 | like "&|", and a|
|00002840| 63 74 75 61 6c 6c 79 20 | 67 65 74 20 74 68 65 6d |ctually |get them|
|00002850| 20 69 6e 74 6f 20 74 68 | 65 20 65 6e 76 69 72 6f | into th|e enviro|
|00002860| 6e 6d 65 6e 74 20 74 61 | 62 6c 65 20 66 6f 72 0a |nment ta|ble for.|
|00002870| 2e 49 20 70 72 69 6e 74 | 65 6e 76 0a 74 6f 20 73 |.I print|env.to s|
|00002880| 65 65 2e 20 20 54 68 65 | 73 65 20 77 69 6c 6c 20 |ee. The|se will |
|00002890| 62 65 20 74 68 72 6f 77 | 6e 20 6f 75 74 20 77 69 |be throw|n out wi|
|000028a0| 74 68 20 61 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |th an er|ror mess|
|000028b0| 61 67 65 2e 20 20 4e 6f | 74 65 20 74 68 61 74 20 |age. No|te that |
|000028c0| 73 68 65 6c 6c 0a 70 72 | 6f 63 65 73 73 65 64 20 |shell.pr|ocessed |
|000028d0| 22 76 61 72 69 61 62 6c | 65 73 22 20 6c 69 6b 65 |"variabl|es" like|
|000028e0| 20 22 24 23 22 20 64 6f | 6e 27 74 20 74 75 72 6e | "$#" do|n't turn|
|000028f0| 20 75 70 20 69 6e 0a 2e | 49 20 70 72 69 6e 74 65 | up in..|I printe|
|00002900| 6e 76 2e 0a 2e 49 20 4b | 6f 72 6e 65 72 0a 77 61 |nv...I K|orner.wa|
|00002910| 6e 74 73 20 76 61 72 69 | 61 62 6c 65 20 6e 61 6d |nts vari|able nam|
|00002920| 65 73 20 62 65 67 69 6e | 6e 69 6e 67 20 77 69 74 |es begin|ning wit|
|00002930| 68 20 61 20 75 6e 64 65 | 72 73 63 6f 72 65 73 20 |h a unde|rscores |
|00002940| 6f 72 20 61 6e 20 61 6c | 70 68 61 62 65 74 69 63 |or an al|phabetic|
|00002950| 2c 20 61 6e 64 0a 63 6f | 6e 74 61 69 6e 69 6e 67 |, and.co|ntaining|
|00002960| 20 75 6e 64 65 72 73 63 | 6f 72 65 73 20 61 6e 64 | undersc|ores and|
|00002970| 20 61 6c 70 68 61 6e 75 | 6d 65 72 69 63 73 2e 0a | alphanu|merics..|
|00002980| 2e 73 70 0a 56 61 72 69 | 61 62 6c 65 20 61 73 73 |.sp.Vari|able ass|
|00002990| 69 67 6e 6d 65 6e 74 73 | 20 63 6f 6e 74 61 69 6e |ignments| contain|
|000029a0| 69 6e 67 20 65 6d 62 65 | 64 64 65 64 20 6e 65 77 |ing embe|dded new|
|000029b0| 6c 69 6e 65 73 20 77 69 | 6c 6c 20 62 65 20 68 61 |lines wi|ll be ha|
|000029c0| 6e 64 6c 65 64 20 70 72 | 6f 76 69 64 65 64 0a 74 |ndled pr|ovided.t|
|000029d0| 68 65 72 65 20 69 73 20 | 6e 6f 74 20 61 6e 20 22 |here is |not an "|
|000029e0| 3d 22 20 73 6f 6d 65 77 | 68 65 72 65 20 61 66 74 |=" somew|here aft|
|000029f0| 65 72 20 74 68 65 20 6e | 65 77 6c 69 6e 65 2e 20 |er the n|ewline. |
|00002a00| 20 49 6e 20 74 68 69 73 | 20 73 69 74 75 61 74 69 | In this| situati|
|00002a10| 6f 6e 2c 20 69 74 0a 69 | 73 20 69 6d 70 6f 73 73 |on, it.i|s imposs|
|00002a20| 69 62 6c 65 20 74 6f 20 | 74 65 6c 6c 20 66 72 6f |ible to |tell fro|
|00002a30| 6d 20 74 68 65 20 6f 75 | 74 70 75 74 20 6f 66 0a |m the ou|tput of.|
|00002a40| 2e 49 20 70 72 69 6e 74 | 65 6e 76 0a 77 68 65 74 |.I print|env.whet|
|00002a50| 68 65 72 20 79 6f 75 20 | 68 61 76 65 20 61 20 73 |her you |have a s|
|00002a60| 69 6e 67 6c 65 20 76 61 | 72 69 61 62 6c 65 20 63 |ingle va|riable c|
|00002a70| 6f 6e 74 61 69 6e 69 6e | 67 20 61 6e 20 65 6d 62 |ontainin|g an emb|
|00002a80| 65 64 64 65 64 20 6e 65 | 77 6c 69 6e 65 2c 20 6f |edded ne|wline, o|
|00002a90| 72 0a 74 77 6f 20 76 61 | 72 69 61 62 6c 65 20 61 |r.two va|riable a|
|00002aa0| 73 73 69 67 6e 6d 65 6e | 74 73 2e 0a 2e 49 20 4b |ssignmen|ts...I K|
|00002ab0| 6f 72 6e 65 72 0a 73 69 | 6d 70 6c 79 20 61 73 73 |orner.si|mply ass|
|00002ac0| 75 6d 65 73 20 74 68 65 | 20 6c 61 74 74 65 72 2c |umes the| latter,|
|00002ad0| 20 72 61 74 68 65 72 20 | 74 68 61 6e 20 74 72 79 | rather |than try|
|00002ae0| 69 6e 67 20 74 6f 0a 67 | 75 65 73 73 20 77 68 65 |ing to.g|uess whe|
|00002af0| 74 68 65 72 20 79 6f 75 | 20 52 45 41 4c 4c 59 20 |ther you| REALLY |
|00002b00| 68 61 76 65 20 61 20 76 | 61 72 69 61 62 6c 65 20 |have a v|ariable |
|00002b10| 6e 61 6d 65 64 20 22 20 | 22 2c 20 6f 72 20 3c 6e |named " |", or <n|
|00002b20| 65 77 6c 69 6e 65 3e 3c | 73 70 61 63 65 3e 3c 65 |ewline><|space><e|
|00002b30| 71 75 61 6c 73 3e 0a 77 | 61 73 20 65 6d 62 65 64 |quals>.w|as embed|
|00002b40| 64 65 64 20 69 6e 20 74 | 68 65 20 70 72 65 63 65 |ded in t|he prece|
|00002b50| 64 69 6e 67 20 64 65 66 | 69 6e 69 74 69 6f 6e 2e |ding def|inition.|
|00002b60| 0a 2e 73 70 0a 54 68 65 | 20 6d 65 74 61 73 79 6e |..sp.The| metasyn|
|00002b70| 74 61 78 20 75 73 65 64 | 20 62 79 20 63 73 68 20 |tax used| by csh |
|00002b80| 66 6f 72 20 64 65 73 63 | 72 69 62 69 6e 67 20 61 |for desc|ribing a|
|00002b90| 6c 69 61 73 65 73 20 64 | 6f 65 73 6e 27 74 20 6d |liases d|oesn't m|
|00002ba0| 61 74 63 68 20 75 70 0a | 65 78 61 63 74 6c 79 20 |atch up.|exactly |
|00002bb0| 77 69 74 68 20 6b 73 68 | 20 66 75 6e 63 74 69 6f |with ksh| functio|
|00002bc0| 6e 20 61 72 67 75 6d 65 | 6e 74 20 73 79 6e 74 61 |n argume|nt synta|
|00002bd0| 78 2c 20 61 6e 64 20 69 | 6e 76 6f 6c 76 65 64 20 |x, and i|nvolved |
|00002be0| 75 73 65 73 20 6f 66 20 | 69 74 20 77 6f 6e 27 74 |uses of |it won't|
|00002bf0| 20 77 6f 72 6b 2e 0a 2e | 49 20 4b 6f 72 6e 65 72 | work...|I Korner|
|00002c00| 0a 61 74 74 65 6d 70 74 | 73 20 74 6f 20 74 72 61 |.attempt|s to tra|
|00002c10| 6e 73 6c 61 74 65 20 77 | 68 61 74 20 69 74 20 63 |nslate w|hat it c|
|00002c20| 61 6e 20 69 6e 74 6f 20 | 6b 73 68 20 61 72 67 75 |an into |ksh argu|
|00002c30| 6d 65 6e 74 73 2c 20 61 | 6e 64 20 70 72 6f 64 75 |ments, a|nd produ|
|00002c40| 63 65 73 0a 64 69 61 67 | 6e 6f 73 74 69 63 73 20 |ces.diag|nostics |
|00002c50| 66 6f 72 20 63 6f 6e 73 | 74 72 75 63 74 69 6f 6e |for cons|truction|
|00002c60| 73 20 74 68 61 74 20 69 | 74 20 64 6f 65 73 6e 27 |s that i|t doesn'|
|00002c70| 74 20 75 6e 64 65 72 73 | 74 61 6e 64 2e 0a 2e 73 |t unders|tand...s|
|00002c80| 70 0a 45 6d 62 65 64 64 | 69 6e 67 20 63 73 68 20 |p.Embedd|ing csh |
|00002c90| 62 75 69 6c 74 2d 69 6e | 73 20 69 6e 20 61 6c 69 |built-in|s in ali|
|00002ca0| 61 73 20 64 65 66 69 6e | 69 74 69 6f 6e 73 20 77 |as defin|itions w|
|00002cb0| 69 6c 6c 20 6e 6f 74 20 | 77 6f 72 6b 20 75 6e 6c |ill not |work unl|
|00002cc0| 65 73 73 20 6b 73 68 0a | 68 61 73 20 73 69 6d 69 |ess ksh.|has simi|
|00002cd0| 6c 61 72 20 62 75 69 6c | 74 2d 69 6e 73 2c 20 6f |lar buil|t-ins, o|
|00002ce0| 72 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 20 61 72 |r defini|tions ar|
|00002cf0| 65 20 6d 61 64 65 20 66 | 6f 72 20 74 68 65 6d 2e |e made f|or them.|
|00002d00| 20 20 22 73 65 74 65 6e | 76 22 0a 61 6e 64 20 22 | "seten|v".and "|
|00002d10| 75 6e 73 65 74 65 6e 76 | 22 20 61 72 65 20 74 77 |unsetenv|" are tw|
|00002d20| 6f 20 67 6f 6f 64 20 65 | 78 61 6d 70 6c 65 73 2e |o good e|xamples.|
|00002d30| 0a 2e 49 20 4b 6f 72 6e | 65 72 0a 64 6f 65 73 20 |..I Korn|er.does |
|00002d40| 6e 6f 74 20 61 74 74 65 | 6d 70 74 20 74 6f 20 67 |not atte|mpt to g|
|00002d50| 65 6e 65 72 61 74 65 20 | 64 69 61 67 6e 6f 73 74 |enerate |diagnost|
|00002d60| 69 63 73 20 63 6f 6e 63 | 65 72 6e 69 6e 67 20 62 |ics conc|erning b|
|00002d70| 75 69 6c 74 2d 69 6e 73 | 2e 20 20 54 68 65 20 69 |uilt-ins|. The i|
|00002d80| 6e 74 65 6e 74 0a 69 73 | 20 74 68 61 74 20 79 6f |ntent.is| that yo|
|00002d90| 75 20 77 69 6c 6c 20 64 | 65 66 69 6e 65 20 6b 73 |u will d|efine ks|
|00002da0| 68 20 61 6c 69 61 73 65 | 73 20 2f 20 66 75 6e 63 |h aliase|s / func|
|00002db0| 74 69 6f 6e 73 20 66 6f | 72 20 74 68 65 20 6f 6e |tions fo|r the on|
|00002dc0| 65 73 20 79 6f 75 20 6e | 65 65 64 2e 0a 2e 73 70 |es you n|eed...sp|
|00002dd0| 0a 49 6e 20 70 61 72 74 | 69 63 75 6c 61 72 2c 20 |.In part|icular, |
|00002de0| 63 73 68 20 22 66 6c 6f | 77 2d 6f 66 2d 63 6f 6e |csh "flo|w-of-con|
|00002df0| 74 72 6f 6c 22 20 69 6e | 20 61 6c 69 61 73 65 73 |trol" in| aliases|
|00002e00| 20 77 6f 6e 27 74 20 77 | 6f 72 6b 2c 20 73 69 6e | won't w|ork, sin|
|00002e10| 63 65 0a 2e 49 20 6b 6f | 72 6e 65 72 0a 64 6f 65 |ce..I ko|rner.doe|
|00002e20| 73 20 6e 6f 74 20 6b 6e | 6f 77 20 61 62 6f 75 74 |s not kn|ow about|
|00002e30| 20 22 69 66 22 2c 20 22 | 65 6c 73 65 22 20 22 66 | "if", "|else" "f|
|00002e40| 6f 72 65 61 63 68 22 2c | 20 65 74 63 2e 0a 2e 73 |oreach",| etc...s|
|00002e50| 70 0a 45 6d 62 65 64 64 | 65 64 20 6e 65 77 6c 69 |p.Embedd|ed newli|
|00002e60| 6e 65 73 20 69 6e 73 69 | 64 65 20 61 6c 69 61 73 |nes insi|de alias|
|00002e70| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 20 77 69 6c | definit|ions wil|
|00002e80| 6c 20 63 61 75 73 65 20 | 70 72 6f 62 6c 65 6d 73 |l cause |problems|
|00002e90| 2e 20 20 46 6f 72 74 75 | 6e 61 74 65 6c 79 2c 0a |. Fortu|nately,.|
|00002ea0| 63 73 68 20 64 6f 65 73 | 20 6e 6f 74 20 72 65 66 |csh does| not ref|
|00002eb0| 6c 65 63 74 20 77 68 61 | 74 20 6b 69 6e 64 20 6f |lect wha|t kind o|
|00002ec0| 66 20 77 68 69 74 65 20 | 73 70 61 63 65 20 61 70 |f white |space ap|
|00002ed0| 70 65 61 72 65 64 20 69 | 6e 20 74 68 65 20 61 6c |peared i|n the al|
|00002ee0| 69 61 73 20 64 65 66 69 | 6e 69 74 69 6f 6e 2c 0a |ias defi|nition,.|
|00002ef0| 6f 6e 6c 79 20 70 72 6f | 64 75 63 69 6e 67 20 61 |only pro|ducing a|
|00002f00| 20 6e 65 77 6c 69 6e 65 | 20 69 6e 20 74 68 65 20 | newline| in the |
|00002f10| 61 6c 69 61 73 20 64 65 | 66 69 6e 69 74 69 6f 6e |alias de|finition|
|00002f20| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 6c | if ther|e is a l|
|00002f30| 69 74 65 72 61 6c 0a 6e | 65 77 6c 69 6e 65 20 74 |iteral.n|ewline t|
|00002f40| 6f 20 62 65 20 69 6e 73 | 65 72 74 65 64 20 73 6f |o be ins|erted so|
|00002f50| 6d 65 77 68 65 72 65 2e | 0a 2e 73 70 0a 45 76 65 |mewhere.|..sp.Eve|
|00002f60| 6e 20 77 69 74 68 20 74 | 68 65 73 65 20 73 65 76 |n with t|hese sev|
|00002f70| 65 72 65 20 6c 69 6d 69 | 74 61 74 69 6f 6e 73 2c |ere limi|tations,|
|00002f80| 20 74 68 65 20 61 75 74 | 68 6f 72 20 68 61 73 20 | the aut|hor has |
|00002f90| 66 6f 75 6e 64 20 74 68 | 61 74 0a 2e 49 20 6b 6f |found th|at..I ko|
|00002fa0| 72 6e 65 72 0a 73 75 66 | 66 69 63 65 73 20 74 6f |rner.suf|fices to|
|00002fb0| 20 61 6c 6c 6f 77 20 68 | 69 6d 20 74 6f 20 75 73 | allow h|im to us|
|00002fc0| 65 20 74 6f 6f 6c 73 20 | 61 6e 64 20 65 6e 76 69 |e tools |and envi|
|00002fd0| 72 6f 6e 6d 65 6e 74 20 | 73 65 74 75 70 20 70 72 |ronment |setup pr|
|00002fe0| 6f 76 69 64 65 64 0a 61 | 73 20 63 73 68 20 22 73 |ovided.a|s csh "s|
|00002ff0| 6f 75 72 63 65 22 20 66 | 69 6c 65 73 20 75 6e 64 |ource" f|iles und|
|00003000| 65 72 20 6b 73 68 2e 20 | 20 4d 61 6e 79 20 63 73 |er ksh. | Many cs|
|00003010| 68 20 22 73 6f 75 72 63 | 65 22 20 73 63 72 69 70 |h "sourc|e" scrip|
|00003020| 74 73 20 6f 6e 6c 79 20 | 75 73 65 0a 63 6f 6d 70 |ts only |use.comp|
|00003030| 6c 65 78 20 63 73 68 20 | 69 6e 74 65 72 70 72 65 |lex csh |interpre|
|00003040| 74 61 74 69 6f 6e 20 74 | 6f 20 73 65 74 20 75 70 |tation t|o set up|
|00003050| 20 61 6e 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 2c | an envi|ronment,|
|00003060| 20 6e 6f 74 20 74 6f 20 | 64 65 66 69 6e 65 0a 61 | not to |define.a|
|00003070| 6c 69 61 73 65 73 2e 20 | 20 53 69 6d 70 6c 79 20 |liases. | Simply |
|00003080| 61 6c 6c 6f 77 69 6e 67 | 20 63 73 68 20 74 6f 20 |allowing| csh to |
|00003090| 64 6f 20 73 6f 2c 20 74 | 68 65 6e 20 22 64 75 6d |do so, t|hen "dum|
|000030a0| 70 69 6e 67 22 20 74 68 | 65 20 72 65 73 75 6c 74 |ping" th|e result|
|000030b0| 20 66 6f 72 0a 2e 49 20 | 6b 6f 72 6e 65 72 0a 74 | for..I |korner.t|
|000030c0| 6f 20 61 6e 61 6c 79 7a | 65 20 67 65 74 73 20 61 |o analyz|e gets a|
|000030d0| 72 6f 75 6e 64 20 61 20 | 6c 6f 74 20 6f 66 20 74 |round a |lot of t|
|000030e0| 72 61 6e 73 6c 61 74 69 | 6f 6e 20 70 72 6f 62 6c |ranslati|on probl|
|000030f0| 65 6d 73 2e 0a 2e 53 48 | 20 41 55 54 48 4f 52 0a |ems...SH| AUTHOR.|
|00003100| 52 2e 20 4c 2e 20 4d 63 | 51 75 65 65 72 0a 53 48 |R. L. Mc|Queer.SH|
|00003110| 41 52 5f 45 4f 46 0a 66 | 69 20 23 20 65 6e 64 20 |AR_EOF.f|i # end |
|00003120| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00003130| 68 65 63 6b 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |heck.if |test -f |
|00003140| 27 64 69 61 67 6e 6f 73 | 74 69 63 2e 63 27 0a 74 |'diagnos|tic.c'.t|
|00003150| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00003160| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|00003170| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00003180| 65 20 22 27 64 69 61 67 | 6e 6f 73 74 69 63 2e 63 |e "'diag|nostic.c|
|00003190| 27 22 0a 65 6c 73 65 0a | 63 61 74 20 3c 3c 20 5c |'".else.|cat << \|
|000031a0| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 64 69 61 67 |SHAR_EOF| > 'diag|
|000031b0| 6e 6f 73 74 69 63 2e 63 | 27 0a 23 69 6e 63 6c 75 |nostic.c|'.#inclu|
|000031c0| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 0a 2f 2a |de <stdi|o.h>../*|
|000031d0| 0a 2a 2a 20 67 65 6e 65 | 72 69 63 20 65 72 72 6f |.** gene|ric erro|
|000031e0| 72 20 6d 65 73 73 61 67 | 65 20 72 6f 75 74 69 6e |r messag|e routin|
|000031f0| 65 73 2e 20 20 44 69 61 | 67 5f 78 78 78 2c 20 6d |es. Dia|g_xxx, m|
|00003200| 61 79 20 62 65 20 65 78 | 74 65 72 6e 61 6c 6c 79 |ay be ex|ternally|
|00003210| 20 73 65 74 20 62 79 20 | 63 61 6c 6c 65 72 2e 0a | set by |caller..|
|00003220| 2a 2a 0a 2a 2a 20 70 6f | 73 73 69 62 6c 65 20 70 |**.** po|ssible p|
|00003230| 6f 72 74 61 62 69 6c 69 | 74 79 20 70 72 6f 62 6c |ortabili|ty probl|
|00003240| 65 6d 20 2d 20 75 73 65 | 20 6f 66 20 73 65 76 65 |em - use| of seve|
|00003250| 72 61 6c 20 22 6c 6f 6e | 67 22 20 61 72 67 75 6d |ral "lon|g" argum|
|00003260| 65 6e 74 73 20 74 6f 20 | 70 61 73 73 0a 2a 2a 20 |ents to |pass.** |
|00003270| 73 74 61 63 6b 20 74 68 | 72 6f 75 67 68 20 74 6f |stack th|rough to|
|00003280| 20 75 6e 64 65 72 6c 79 | 69 6e 67 20 70 72 69 6e | underly|ing prin|
|00003290| 74 66 28 29 20 66 61 6d | 69 6c 79 20 72 6f 75 74 |tf() fam|ily rout|
|000032a0| 69 6e 65 2e 0a 2a 2f 0a | 0a 2f 2a 0a 2a 2a 0a 2a |ine..*/.|./*.**.*|
|000032b0| 2a 09 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |*.Copyri|ght (c) |
|000032c0| 31 39 38 37 2c 20 52 6f | 62 65 72 74 20 4c 2e 20 |1987, Ro|bert L. |
|000032d0| 4d 63 51 75 65 65 72 0a | 2a 2a 09 09 41 6c 6c 20 |McQueer.|**..All |
|000032e0| 52 69 67 68 74 73 20 52 | 65 73 65 72 76 65 64 0a |Rights R|eserved.|
|000032f0| 2a 2a 0a 2a 2a 20 50 65 | 72 6d 69 73 73 69 6f 6e |**.** Pe|rmission|
|00003300| 20 67 72 61 6e 74 65 64 | 20 66 6f 72 20 75 73 65 | granted| for use|
|00003310| 2c 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 20 61 |, modifi|cation a|
|00003320| 6e 64 20 72 65 64 69 73 | 74 72 69 62 75 74 69 6f |nd redis|tributio|
|00003330| 6e 20 6f 66 20 74 68 69 | 73 0a 2a 2a 20 73 6f 66 |n of thi|s.** sof|
|00003340| 74 77 61 72 65 20 70 72 | 6f 76 69 64 65 64 20 74 |tware pr|ovided t|
|00003350| 68 61 74 20 6e 6f 20 75 | 73 65 20 69 73 20 6d 61 |hat no u|se is ma|
|00003360| 64 65 20 66 6f 72 20 63 | 6f 6d 6d 65 72 63 69 61 |de for c|ommercia|
|00003370| 6c 20 67 61 69 6e 20 77 | 69 74 68 6f 75 74 20 74 |l gain w|ithout t|
|00003380| 68 65 0a 2a 2a 20 77 72 | 69 74 74 65 6e 20 63 6f |he.** wr|itten co|
|00003390| 6e 73 65 6e 74 20 6f 66 | 20 74 68 65 20 61 75 74 |nsent of| the aut|
|000033a0| 68 6f 72 2c 20 74 68 61 | 74 20 61 6c 6c 20 63 6f |hor, tha|t all co|
|000033b0| 70 79 72 69 67 68 74 20 | 6e 6f 74 69 63 65 73 20 |pyright |notices |
|000033c0| 72 65 6d 61 69 6e 20 69 | 6e 74 61 63 74 2c 0a 2a |remain i|ntact,.*|
|000033d0| 2a 20 61 6e 64 20 74 68 | 61 74 20 61 6c 6c 20 63 |* and th|at all c|
|000033e0| 68 61 6e 67 65 73 20 61 | 72 65 20 63 6c 65 61 72 |hanges a|re clear|
|000033f0| 6c 79 20 64 6f 63 75 6d | 65 6e 74 65 64 2e 20 20 |ly docum|ented. |
|00003400| 4e 6f 20 77 61 72 72 61 | 6e 74 79 20 6f 66 20 61 |No warra|nty of a|
|00003410| 6e 79 20 6b 69 6e 64 0a | 2a 2a 20 63 6f 6e 63 65 |ny kind.|** conce|
|00003420| 72 6e 69 6e 67 20 61 6e | 79 20 75 73 65 20 77 68 |rning an|y use wh|
|00003430| 69 63 68 20 6d 61 79 20 | 62 65 20 6d 61 64 65 20 |ich may |be made |
|00003440| 6f 66 20 74 68 69 73 20 | 73 6f 66 74 77 61 72 65 |of this |software|
|00003450| 20 69 73 20 6f 66 66 65 | 72 65 64 20 6f 72 20 69 | is offe|red or i|
|00003460| 6d 70 6c 69 65 64 2e 0a | 2a 2a 0a 2a 2f 0a 0a 63 |mplied..|**.*/..c|
|00003470| 68 61 72 20 2a 44 69 61 | 67 5f 66 69 6c 65 20 3d |har *Dia|g_file =|
|00003480| 20 22 22 3b 09 09 2f 2a | 20 66 69 6c 65 6e 61 6d | "";../*| filenam|
|00003490| 65 20 66 6f 72 20 75 73 | 65 20 69 6e 20 64 69 61 |e for us|e in dia|
|000034a0| 67 6e 6f 73 74 69 63 20 | 6d 65 73 73 61 67 65 20 |gnostic |message |
|000034b0| 2a 2f 0a 69 6e 74 20 44 | 69 61 67 5f 6c 69 6e 65 |*/.int D|iag_line|
|000034c0| 20 3d 20 31 3b 09 09 2f | 2a 20 64 69 61 67 6e 6f | = 1;../|* diagno|
|000034d0| 73 74 69 63 20 6c 69 6e | 65 20 6e 75 6d 62 65 72 |stic lin|e number|
|000034e0| 20 2a 2f 0a 46 49 4c 45 | 20 2a 44 69 61 67 5f 66 | */.FILE| *Diag_f|
|000034f0| 70 20 3d 20 73 74 64 65 | 72 72 3b 09 09 2f 2a 20 |p = stde|rr;../* |
|00003500| 6f 75 74 70 75 74 20 73 | 74 72 65 61 6d 20 66 6f |output s|tream fo|
|00003510| 72 20 6d 65 73 73 61 67 | 65 73 20 2a 2f 0a 63 68 |r messag|es */.ch|
|00003520| 61 72 20 2a 44 69 61 67 | 5f 63 6d 64 20 3d 20 22 |ar *Diag|_cmd = "|
|00003530| 3f 22 3b 09 09 2f 2a 20 | 63 6f 6d 6d 61 6e 64 20 |?";../* |command |
|00003540| 6e 61 6d 65 20 66 6f 72 | 20 66 61 74 61 6c 28 29 |name for| fatal()|
|00003550| 20 2f 20 75 73 61 67 65 | 28 29 20 2a 2f 0a 0a 73 | / usage|() */..s|
|00003560| 74 61 74 69 63 20 69 6e | 74 20 28 2a 46 61 74 63 |tatic in|t (*Fatc|
|00003570| 61 6c 6c 29 28 29 20 3d | 20 4e 55 4c 4c 3b 0a 0a |all)() =| NULL;..|
|00003580| 2f 2a 0a 2a 2a 20 70 72 | 69 6e 74 20 6e 6f 6e 66 |/*.** pr|int nonf|
|00003590| 61 74 61 6c 20 64 69 61 | 67 6e 6f 73 74 69 63 20 |atal dia|gnostic |
|000035a0| 77 69 74 68 20 6c 69 6e | 65 20 6e 75 6d 62 65 72 |with lin|e number|
|000035b0| 20 66 72 6f 6d 20 61 6e | 20 69 6e 70 75 74 20 66 | from an| input f|
|000035c0| 69 6c 65 2e 20 20 46 6f | 72 6d 61 74 0a 2a 2a 20 |ile. Fo|rmat.** |
|000035d0| 63 6f 6d 70 61 74 69 62 | 6c 65 20 77 69 74 68 20 |compatib|le with |
|000035e0| 22 63 6f 6e 74 65 78 74 | 22 0a 2a 2f 0a 64 69 61 |"context|".*/.dia|
|000035f0| 67 6e 6f 73 74 69 63 28 | 73 2c 61 2c 62 2c 63 2c |gnostic(|s,a,b,c,|
|00003600| 64 2c 65 2c 66 29 0a 63 | 68 61 72 20 2a 73 3b 0a |d,e,f).c|har *s;.|
|00003610| 6c 6f 6e 67 20 61 2c 62 | 2c 63 2c 64 2c 65 2c 66 |long a,b|,c,d,e,f|
|00003620| 3b 0a 7b 0a 09 66 70 72 | 69 6e 74 66 28 44 69 61 |;.{..fpr|intf(Dia|
|00003630| 67 5f 66 70 2c 22 25 73 | 20 6c 69 6e 65 20 25 64 |g_fp,"%s| line %d|
|00003640| 3a 20 22 2c 44 69 61 67 | 5f 66 69 6c 65 2c 44 69 |: ",Diag|_file,Di|
|00003650| 61 67 5f 6c 69 6e 65 29 | 3b 0a 09 66 70 72 69 6e |ag_line)|;..fprin|
|00003660| 74 66 28 44 69 61 67 5f | 66 70 2c 73 2c 61 2c 62 |tf(Diag_|fp,s,a,b|
|00003670| 2c 63 2c 64 2c 65 2c 66 | 29 3b 0a 09 66 70 72 69 |,c,d,e,f|);..fpri|
|00003680| 6e 74 66 28 44 69 61 67 | 5f 66 70 2c 22 5c 6e 22 |ntf(Diag|_fp,"\n"|
|00003690| 29 3b 0a 7d 0a 0a 2f 2a | 0a 2a 2a 20 70 72 69 6e |);.}../*|.** prin|
|000036a0| 74 20 66 61 74 61 6c 20 | 65 72 72 6f 72 20 6d 65 |t fatal |error me|
|000036b0| 73 73 61 67 65 20 61 6e | 64 20 65 78 69 74 2e 20 |ssage an|d exit. |
|000036c0| 20 4d 61 79 20 63 61 6c | 6c 20 75 73 65 72 20 73 | May cal|l user s|
|000036d0| 65 74 20 63 6c 65 61 6e | 75 70 20 72 6f 75 74 69 |et clean|up routi|
|000036e0| 6e 65 20 66 69 72 73 74 | 2e 0a 2a 2a 20 61 72 67 |ne first|..** arg|
|000036f0| 75 6d 65 6e 74 20 6c 69 | 73 74 20 70 61 73 73 65 |ument li|st passe|
|00003700| 64 20 74 6f 20 66 61 74 | 61 6c 28 29 20 77 69 6c |d to fat|al() wil|
|00003710| 6c 20 61 6c 73 6f 20 62 | 65 20 70 61 73 73 65 64 |l also b|e passed|
|00003720| 20 74 6f 20 63 6c 65 61 | 6e 75 70 20 72 6f 75 74 | to clea|nup rout|
|00003730| 69 6e 65 2e 0a 2a 2f 0a | 66 61 74 61 6c 20 28 73 |ine..*/.|fatal (s|
|00003740| 2c 61 2c 62 2c 63 2c 64 | 2c 65 2c 66 29 0a 63 68 |,a,b,c,d|,e,f).ch|
|00003750| 61 72 20 2a 73 3b 0a 6c | 6f 6e 67 20 61 2c 62 2c |ar *s;.l|ong a,b,|
|00003760| 63 2c 64 2c 65 2c 66 3b | 0a 7b 0a 09 66 70 72 69 |c,d,e,f;|.{..fpri|
|00003770| 6e 74 66 20 28 44 69 61 | 67 5f 66 70 2c 22 25 73 |ntf (Dia|g_fp,"%s|
|00003780| 3a 20 22 2c 44 69 61 67 | 5f 63 6d 64 29 3b 0a 09 |: ",Diag|_cmd);..|
|00003790| 66 70 72 69 6e 74 66 20 | 28 44 69 61 67 5f 66 70 |fprintf |(Diag_fp|
|000037a0| 2c 73 2c 61 2c 62 2c 63 | 2c 64 2c 65 2c 66 29 3b |,s,a,b,c|,d,e,f);|
|000037b0| 0a 09 66 70 72 69 6e 74 | 66 20 28 44 69 61 67 5f |..fprint|f (Diag_|
|000037c0| 66 70 2c 22 5c 6e 22 29 | 3b 0a 09 69 66 20 28 46 |fp,"\n")|;..if (F|
|000037d0| 61 74 63 61 6c 6c 20 21 | 3d 20 4e 55 4c 4c 29 0a |atcall !|= NULL).|
|000037e0| 09 09 28 2a 46 61 74 63 | 61 6c 6c 29 20 28 73 2c |..(*Fatc|all) (s,|
|000037f0| 61 2c 62 2c 63 2c 64 2c | 65 2c 66 29 3b 0a 09 65 |a,b,c,d,|e,f);..e|
|00003800| 78 69 74 20 28 31 29 3b | 0a 7d 0a 0a 2f 2a 0a 2a |xit (1);|.}../*.*|
|00003810| 2a 20 73 65 74 20 63 6c | 65 61 6e 75 70 20 72 6f |* set cl|eanup ro|
|00003820| 75 74 69 6e 65 20 66 6f | 72 20 66 61 74 61 6c 28 |utine fo|r fatal(|
|00003830| 29 20 63 61 6c 6c 73 0a | 2a 2f 0a 66 61 74 5f 73 |) calls.|*/.fat_s|
|00003840| 65 74 20 28 66 6e 29 0a | 69 6e 74 20 28 2a 66 6e |et (fn).|int (*fn|
|00003850| 29 20 28 29 3b 0a 7b 0a | 09 46 61 74 63 61 6c 6c |) ();.{.|.Fatcall|
|00003860| 20 3d 20 66 6e 3b 0a 7d | 0a 0a 2f 2a 0a 2a 2a 20 | = fn;.}|../*.** |
|00003870| 70 72 69 6e 74 20 75 73 | 61 67 65 20 6d 65 73 73 |print us|age mess|
|00003880| 61 67 65 20 61 6e 64 20 | 65 78 69 74 2e 0a 2a 2f |age and |exit..*/|
|00003890| 0a 75 73 61 67 65 20 28 | 73 2c 61 2c 62 2c 63 2c |.usage (|s,a,b,c,|
|000038a0| 64 2c 65 2c 66 29 0a 63 | 68 61 72 20 2a 73 3b 0a |d,e,f).c|har *s;.|
|000038b0| 6c 6f 6e 67 20 61 2c 62 | 2c 63 2c 64 2c 65 2c 66 |long a,b|,c,d,e,f|
|000038c0| 3b 0a 7b 0a 09 66 70 72 | 69 6e 74 66 20 28 44 69 |;.{..fpr|intf (Di|
|000038d0| 61 67 5f 66 70 2c 22 75 | 73 61 67 65 3a 20 25 73 |ag_fp,"u|sage: %s|
|000038e0| 20 22 2c 44 69 61 67 5f | 63 6d 64 29 3b 0a 09 66 | ",Diag_|cmd);..f|
|000038f0| 70 72 69 6e 74 66 20 28 | 44 69 61 67 5f 66 70 2c |printf (|Diag_fp,|
|00003900| 73 2c 61 2c 62 2c 63 2c | 64 2c 65 2c 66 29 3b 0a |s,a,b,c,|d,e,f);.|
|00003910| 09 66 70 72 69 6e 74 66 | 20 28 44 69 61 67 5f 66 |.fprintf| (Diag_f|
|00003920| 70 2c 22 5c 6e 22 29 3b | 0a 09 65 78 69 74 20 28 |p,"\n");|..exit (|
|00003930| 31 29 3b 0a 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 66 |1);.}.SH|AR_EOF.f|
|00003940| 69 20 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i # end |of overw|
|00003950| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 69 66 20 |riting c|heck.if |
|00003960| 74 65 73 74 20 2d 66 20 | 27 6b 6f 72 6e 65 72 2e |test -f |'korner.|
|00003970| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|00003980| 61 72 3a 20 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: will| not ove|
|00003990| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|000039a0| 20 66 69 6c 65 20 22 27 | 6b 6f 72 6e 65 72 2e 63 | file "'|korner.c|
|000039b0| 27 22 0a 65 6c 73 65 0a | 63 61 74 20 3c 3c 20 5c |'".else.|cat << \|
|000039c0| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 6b 6f 72 6e |SHAR_EOF| > 'korn|
|000039d0| 65 72 2e 63 27 0a 2f 2a | 0a 2a 2a 0a 2a 2a 09 43 |er.c'./*|.**.**.C|
|000039e0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 38 |opyright| (c) 198|
|000039f0| 37 2c 20 52 6f 62 65 72 | 74 20 4c 2e 20 4d 63 51 |7, Rober|t L. McQ|
|00003a00| 75 65 65 72 0a 2a 2a 09 | 09 41 6c 6c 20 52 69 67 |ueer.**.|.All Rig|
|00003a10| 68 74 73 20 52 65 73 65 | 72 76 65 64 0a 2a 2a 0a |hts Rese|rved.**.|
|00003a20| 2a 2a 20 50 65 72 6d 69 | 73 73 69 6f 6e 20 67 72 |** Permi|ssion gr|
|00003a30| 61 6e 74 65 64 20 66 6f | 72 20 75 73 65 2c 20 6d |anted fo|r use, m|
|00003a40| 6f 64 69 66 69 63 61 74 | 69 6f 6e 20 61 6e 64 20 |odificat|ion and |
|00003a50| 72 65 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 6f |redistri|bution o|
|00003a60| 66 20 74 68 69 73 0a 2a | 2a 20 73 6f 66 74 77 61 |f this.*|* softwa|
|00003a70| 72 65 20 70 72 6f 76 69 | 64 65 64 20 74 68 61 74 |re provi|ded that|
|00003a80| 20 6e 6f 20 75 73 65 20 | 69 73 20 6d 61 64 65 20 | no use |is made |
|00003a90| 66 6f 72 20 63 6f 6d 6d | 65 72 63 69 61 6c 20 67 |for comm|ercial g|
|00003aa0| 61 69 6e 20 77 69 74 68 | 6f 75 74 20 74 68 65 0a |ain with|out the.|
|00003ab0| 2a 2a 20 77 72 69 74 74 | 65 6e 20 63 6f 6e 73 65 |** writt|en conse|
|00003ac0| 6e 74 20 6f 66 20 74 68 | 65 20 61 75 74 68 6f 72 |nt of th|e author|
|00003ad0| 2c 20 74 68 61 74 20 61 | 6c 6c 20 63 6f 70 79 72 |, that a|ll copyr|
|00003ae0| 69 67 68 74 20 6e 6f 74 | 69 63 65 73 20 72 65 6d |ight not|ices rem|
|00003af0| 61 69 6e 20 69 6e 74 61 | 63 74 2c 0a 2a 2a 20 61 |ain inta|ct,.** a|
|00003b00| 6e 64 20 74 68 61 74 20 | 61 6c 6c 20 63 68 61 6e |nd that |all chan|
|00003b10| 67 65 73 20 61 72 65 20 | 63 6c 65 61 72 6c 79 20 |ges are |clearly |
|00003b20| 64 6f 63 75 6d 65 6e 74 | 65 64 2e 20 20 4e 6f 20 |document|ed. No |
|00003b30| 77 61 72 72 61 6e 74 79 | 20 6f 66 20 61 6e 79 20 |warranty| of any |
|00003b40| 6b 69 6e 64 0a 2a 2a 20 | 63 6f 6e 63 65 72 6e 69 |kind.** |concerni|
|00003b50| 6e 67 20 61 6e 79 20 75 | 73 65 20 77 68 69 63 68 |ng any u|se which|
|00003b60| 20 6d 61 79 20 62 65 20 | 6d 61 64 65 20 6f 66 20 | may be |made of |
|00003b70| 74 68 69 73 20 73 6f 66 | 74 77 61 72 65 20 69 73 |this sof|tware is|
|00003b80| 20 6f 66 66 65 72 65 64 | 20 6f 72 20 69 6d 70 6c | offered| or impl|
|00003b90| 69 65 64 2e 0a 2a 2a 0a | 2a 2f 0a 0a 23 69 6e 63 |ied..**.|*/..#inc|
|00003ba0| 6c 75 64 65 20 3c 73 74 | 64 69 6f 2e 68 3e 0a 23 |lude <st|dio.h>.#|
|00003bb0| 69 6e 63 6c 75 64 65 20 | 3c 63 74 79 70 65 2e 68 |include |<ctype.h|
|00003bc0| 3e 0a 23 69 6e 63 6c 75 | 64 65 20 3c 73 79 73 2f |>.#inclu|de <sys/|
|00003bd0| 70 61 72 61 6d 2e 68 3e | 0a 0a 63 68 61 72 20 50 |param.h>|..char P|
|00003be0| 77 64 5b 4d 41 58 50 41 | 54 48 4c 45 4e 5d 3b 0a |wd[MAXPA|THLEN];.|
|00003bf0| 63 68 61 72 20 2a 50 75 | 73 68 64 20 3d 20 22 70 |char *Pu|shd = "p|
|00003c00| 75 73 68 64 22 3b 0a 63 | 68 61 72 20 2a 55 6d 73 |ushd";.c|har *Ums|
|00003c10| 67 20 3d 20 22 5b 2d 64 | 70 75 73 68 64 5d 20 5b |g = "[-d|pushd] [|
|00003c20| 2d 73 73 65 63 74 69 6f | 6e 63 68 61 72 5d 20 5b |-ssectio|nchar] [|
|00003c30| 2d 63 5d 20 5b 2d 78 5d | 20 5b 2d 70 5d 20 5b 2d |-c] [-x]| [-p] [-|
|00003c40| 6c 5d 20 5b 2d 7c 69 6e | 66 69 6c 65 5d 20 5b 6f |l] [-|in|file] [o|
|00003c50| 75 74 66 69 6c 65 5d 22 | 3b 0a 63 68 61 72 20 53 |utfile]"|;.char S|
|00003c60| 65 63 74 20 3d 20 27 2b | 27 3b 0a 0a 69 6e 74 20 |ect = '+|';..int |
|00003c70| 43 64 72 65 70 6c 61 63 | 65 20 3d 20 30 3b 0a 69 |Cdreplac|e = 0;.i|
|00003c80| 6e 74 20 44 6f 70 72 6f | 6d 70 74 20 3d 20 30 3b |nt Dopro|mpt = 0;|
|00003c90| 0a 69 6e 74 20 58 76 61 | 72 20 3d 20 31 3b 0a 69 |.int Xva|r = 1;.i|
|00003ca0| 6e 74 20 4c 76 61 72 20 | 3d 20 30 3b 0a 0a 2f 2a |nt Lvar |= 0;../*|
|00003cb0| 0a 2a 2a 20 6c 69 6d 69 | 74 73 2e 20 20 42 49 47 |.** limi|ts. BIG|
|00003cc0| 42 55 46 46 45 52 20 64 | 65 74 65 72 6d 69 6e 65 |BUFFER d|etermine|
|00003cd0| 73 20 68 6f 77 20 6d 75 | 63 68 20 74 65 78 74 20 |s how mu|ch text |
|00003ce0| 66 6f 72 20 61 20 73 69 | 6e 67 6c 65 20 61 6c 69 |for a si|ngle ali|
|00003cf0| 61 73 2c 20 73 68 65 6c | 6c 0a 2a 2a 20 76 61 72 |as, shel|l.** var|
|00003d00| 69 61 62 6c 65 2c 20 65 | 74 63 2e 20 63 61 6e 20 |iable, e|tc. can |
|00003d10| 62 65 20 68 61 6e 64 6c | 65 64 2e 20 20 44 49 52 |be handl|ed. DIR|
|00003d20| 44 45 50 54 48 20 64 65 | 74 65 72 6d 69 6e 65 73 |DEPTH de|termines|
|00003d30| 20 74 68 65 20 64 65 70 | 74 68 20 6f 66 20 63 73 | the dep|th of cs|
|00003d40| 68 20 70 75 73 68 64 27 | 73 0a 2a 2a 20 77 68 69 |h pushd'|s.** whi|
|00003d50| 63 68 20 63 61 6e 20 62 | 65 20 61 63 63 6f 6d 6f |ch can b|e accomo|
|00003d60| 64 61 74 65 64 2e 0a 2a | 2f 0a 23 64 65 66 69 6e |dated..*|/.#defin|
|00003d70| 65 20 42 49 47 42 55 46 | 46 45 52 20 28 4d 41 58 |e BIGBUF|FER (MAX|
|00003d80| 50 41 54 48 4c 45 4e 20 | 3c 20 31 38 30 30 20 3f |PATHLEN |< 1800 ?|
|00003d90| 20 31 38 30 30 20 3a 20 | 4d 41 58 50 41 54 48 4c | 1800 : |MAXPATHL|
|00003da0| 45 4e 29 0a 23 64 65 66 | 69 6e 65 20 44 49 52 44 |EN).#def|ine DIRD|
|00003db0| 45 50 54 48 20 31 32 30 | 0a 0a 2f 2a 0a 2a 2a 20 |EPTH 120|../*.** |
|00003dc0| 63 68 61 72 61 63 74 65 | 72 73 20 73 69 67 6e 69 |characte|rs signi|
|00003dd0| 66 69 63 61 6e 74 20 69 | 6e 73 69 64 65 20 64 6f |ficant i|nside do|
|00003de0| 75 62 6c 65 20 71 75 6f | 74 65 73 2c 20 74 68 75 |uble quo|tes, thu|
|00003df0| 73 20 72 65 71 75 69 72 | 69 6e 67 20 62 61 63 6b |s requir|ing back|
|00003e00| 73 6c 61 73 68 65 73 0a | 2a 2f 0a 23 64 65 66 69 |slashes.|*/.#defi|
|00003e10| 6e 65 20 44 51 53 49 47 | 20 22 5c 5c 24 60 5c 22 |ne DQSIG| "\\$`\"|
|00003e20| 22 0a 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |"..exter|n char *|
|00003e30| 44 69 61 67 5f 63 6d 64 | 3b 0a 65 78 74 65 72 6e |Diag_cmd|;.extern|
|00003e40| 20 63 68 61 72 20 2a 44 | 69 61 67 5f 66 69 6c 65 | char *D|iag_file|
|00003e50| 3b 0a 65 78 74 65 72 6e | 20 69 6e 74 20 44 69 61 |;.extern| int Dia|
|00003e60| 67 5f 6c 69 6e 65 3b 0a | 0a 6d 61 69 6e 28 61 72 |g_line;.|.main(ar|
|00003e70| 67 63 2c 61 72 67 76 29 | 0a 69 6e 74 20 61 72 67 |gc,argv)|.int arg|
|00003e80| 63 3b 0a 63 68 61 72 20 | 2a 2a 61 72 67 76 3b 0a |c;.char |**argv;.|
|00003e90| 7b 0a 09 46 49 4c 45 20 | 2a 66 70 69 6e 3b 0a 09 |{..FILE |*fpin;..|
|00003ea0| 46 49 4c 45 20 2a 66 70 | 6f 75 74 3b 0a 09 63 68 |FILE *fp|out;..ch|
|00003eb0| 61 72 20 2a 72 69 6e 64 | 65 78 28 29 3b 0a 0a 09 |ar *rind|ex();...|
|00003ec0| 2f 2a 0a 09 2a 2a 20 73 | 65 74 20 63 6f 6d 6d 61 |/*..** s|et comma|
|00003ed0| 6e 64 20 66 6f 72 20 6d | 65 73 73 61 67 65 73 0a |nd for m|essages.|
|00003ee0| 09 2a 2f 0a 09 69 66 20 | 28 28 44 69 61 67 5f 63 |.*/..if |((Diag_c|
|00003ef0| 6d 64 20 3d 20 72 69 6e | 64 65 78 28 2a 61 72 67 |md = rin|dex(*arg|
|00003f00| 76 2c 27 2f 27 29 29 20 | 3d 3d 20 4e 55 4c 4c 29 |v,'/')) |== NULL)|
|00003f10| 0a 09 09 44 69 61 67 5f | 63 6d 64 20 3d 20 2a 61 |...Diag_|cmd = *a|
|00003f20| 72 67 76 3b 0a 09 65 6c | 73 65 0a 09 09 2b 2b 44 |rgv;..el|se...++D|
|00003f30| 69 61 67 5f 63 6d 64 3b | 0a 09 2b 2b 61 72 67 76 |iag_cmd;|..++argv|
|00003f40| 3b 0a 0a 09 2f 2a 0a 09 | 2a 2a 20 63 68 65 63 6b |;.../*..|** check|
|00003f50| 20 6f 70 74 69 6f 6e 73 | 0a 09 2a 2f 0a 09 77 68 | options|..*/..wh|
|00003f60| 69 6c 65 20 28 61 72 67 | 63 20 3e 20 31 20 26 26 |ile (arg|c > 1 &&|
|00003f70| 20 2a 2a 61 72 67 76 20 | 3d 3d 20 27 2d 27 20 26 | **argv |== '-' &|
|00003f80| 26 20 2a 28 28 2a 61 72 | 67 76 29 2b 31 29 20 21 |& *((*ar|gv)+1) !|
|00003f90| 3d 20 27 5c 30 27 29 0a | 09 7b 0a 09 09 2d 2d 61 |= '\0').|.{...--a|
|00003fa0| 72 67 63 3b 0a 09 09 66 | 6f 72 20 28 2b 2b 28 2a |rgc;...f|or (++(*|
|00003fb0| 61 72 67 76 29 3b 20 2a | 2a 61 72 67 76 20 21 3d |argv); *|*argv !=|
|00003fc0| 20 27 5c 30 27 3b 20 2b | 2b 28 2a 61 72 67 76 29 | '\0'; +|+(*argv)|
|00003fd0| 29 0a 09 09 7b 0a 09 09 | 09 73 77 69 74 63 68 28 |)...{...|.switch(|
|00003fe0| 2a 2a 61 72 67 76 29 0a | 09 09 09 7b 0a 09 09 09 |**argv).|...{....|
|00003ff0| 63 61 73 65 20 27 78 27 | 3a 0a 09 09 09 09 58 76 |case 'x'|:.....Xv|
|00004000| 61 72 20 3d 20 30 3b 0a | 09 09 09 09 62 72 65 61 |ar = 0;.|....brea|
|00004010| 6b 3b 0a 09 09 09 63 61 | 73 65 20 27 63 27 3a 0a |k;....ca|se 'c':.|
|00004020| 09 09 09 09 43 64 72 65 | 70 6c 61 63 65 20 3d 20 |....Cdre|place = |
|00004030| 31 3b 0a 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |1;.....b|reak;...|
|00004040| 09 63 61 73 65 20 27 6c | 27 3a 0a 09 09 09 09 4c |.case 'l|':.....L|
|00004050| 76 61 72 20 3d 20 31 3b | 0a 09 09 09 09 62 72 65 |var = 1;|.....bre|
|00004060| 61 6b 3b 0a 09 09 09 63 | 61 73 65 20 27 70 27 3a |ak;....c|ase 'p':|
|00004070| 0a 09 09 09 09 44 6f 70 | 72 6f 6d 70 74 20 3d 20 |.....Dop|rompt = |
|00004080| 31 3b 0a 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |1;.....b|reak;...|
|00004090| 09 63 61 73 65 20 27 64 | 27 3a 0a 09 09 09 09 2b |.case 'd|':.....+|
|000040a0| 2b 28 2a 61 72 67 76 29 | 3b 0a 09 09 09 09 69 66 |+(*argv)|;.....if|
|000040b0| 20 28 2a 2a 61 72 67 76 | 20 3d 3d 20 27 5c 30 27 | (**argv| == '\0'|
|000040c0| 29 0a 09 09 09 09 7b 0a | 09 09 09 09 09 69 66 20 |).....{.|.....if |
|000040d0| 28 28 2d 2d 61 72 67 63 | 29 20 3c 20 31 29 0a 09 |((--argc|) < 1)..|
|000040e0| 09 09 09 09 09 75 73 61 | 67 65 28 55 6d 73 67 29 |.....usa|ge(Umsg)|
|000040f0| 3b 0a 09 09 09 09 09 2b | 2b 61 72 67 76 3b 0a 09 |;......+|+argv;..|
|00004100| 09 09 09 7d 0a 09 09 09 | 09 50 75 73 68 64 20 3d |...}....|.Pushd =|
|00004110| 20 2a 61 72 67 76 3b 0a | 09 09 09 09 2a 61 72 67 | *argv;.|....*arg|
|00004120| 76 20 2b 3d 20 73 74 72 | 6c 65 6e 28 2a 61 72 67 |v += str|len(*arg|
|00004130| 76 29 20 2d 20 31 3b 0a | 09 09 09 09 62 72 65 61 |v) - 1;.|....brea|
|00004140| 6b 3b 0a 09 09 09 63 61 | 73 65 20 27 73 27 3a 0a |k;....ca|se 's':.|
|00004150| 09 09 09 09 2b 2b 28 2a | 61 72 67 76 29 3b 0a 09 |....++(*|argv);..|
|00004160| 09 09 09 69 66 20 28 2a | 2a 61 72 67 76 20 3d 3d |...if (*|*argv ==|
|00004170| 20 27 5c 30 27 29 0a 09 | 09 09 09 7b 0a 09 09 09 | '\0')..|...{....|
|00004180| 09 09 69 66 20 28 28 2d | 2d 61 72 67 63 29 20 3c |..if ((-|-argc) <|
|00004190| 20 31 29 0a 09 09 09 09 | 09 75 73 61 67 65 28 55 | 1).....|.usage(U|
|000041a0| 6d 73 67 29 3b 0a 09 09 | 09 09 09 2b 2b 61 72 67 |msg);...|...++arg|
|000041b0| 76 3b 0a 09 09 09 09 7d | 0a 09 09 09 09 53 65 63 |v;.....}|.....Sec|
|000041c0| 74 20 3d 20 2a 2a 61 72 | 67 76 3b 0a 09 09 09 09 |t = **ar|gv;.....|
|000041d0| 2a 61 72 67 76 20 2b 3d | 20 73 74 72 6c 65 6e 28 |*argv +=| strlen(|
|000041e0| 2a 61 72 67 76 29 20 2d | 20 31 3b 0a 09 09 09 09 |*argv) -| 1;.....|
|000041f0| 62 72 65 61 6b 3b 0a 09 | 09 09 64 65 66 61 75 6c |break;..|..defaul|
|00004200| 74 3a 0a 09 09 09 09 75 | 73 61 67 65 28 55 6d 73 |t:.....u|sage(Ums|
|00004210| 67 29 3b 0a 09 09 09 7d | 0a 09 09 7d 0a 09 09 2b |g);....}|...}...+|
|00004220| 2b 61 72 67 76 3b 0a 09 | 7d 0a 0a 09 2f 2a 0a 09 |+argv;..|}.../*..|
|00004230| 2a 2a 20 73 65 74 20 69 | 6e 70 75 74 20 73 74 72 |** set i|nput str|
|00004240| 65 61 6d 2c 20 70 6f 69 | 6e 74 20 44 69 61 67 5f |eam, poi|nt Diag_|
|00004250| 66 69 6c 65 20 74 6f 20 | 6e 61 6d 65 20 66 6f 72 |file to |name for|
|00004260| 20 64 69 61 67 6e 6f 73 | 74 69 63 73 0a 09 2a 2f | diagnos|tics..*/|
|00004270| 0a 09 69 66 20 28 61 72 | 67 63 20 3e 20 31 20 26 |..if (ar|gc > 1 &|
|00004280| 26 20 73 74 72 63 6d 70 | 28 2a 61 72 67 76 2c 22 |& strcmp|(*argv,"|
|00004290| 2d 22 29 20 21 3d 20 30 | 29 0a 09 7b 0a 09 09 69 |-") != 0|)..{...i|
|000042a0| 66 20 28 28 66 70 69 6e | 20 3d 20 66 6f 70 65 6e |f ((fpin| = fopen|
|000042b0| 28 2a 61 72 67 76 2c 22 | 72 22 29 29 20 3d 3d 20 |(*argv,"|r")) == |
|000042c0| 4e 55 4c 4c 29 0a 09 09 | 09 66 61 74 61 6c 28 22 |NULL)...|.fatal("|
|000042d0| 43 61 6e 27 74 20 6f 70 | 65 6e 20 25 73 22 2c 2a |Can't op|en %s",*|
|000042e0| 61 72 67 76 29 3b 0a 09 | 09 44 69 61 67 5f 66 69 |argv);..|.Diag_fi|
|000042f0| 6c 65 20 3d 20 2a 61 72 | 67 76 3b 0a 09 7d 0a 09 |le = *ar|gv;..}..|
|00004300| 65 6c 73 65 0a 09 7b 0a | 09 09 66 70 69 6e 20 3d |else..{.|..fpin =|
|00004310| 20 73 74 64 69 6e 3b 0a | 09 09 44 69 61 67 5f 66 | stdin;.|..Diag_f|
|00004320| 69 6c 65 20 3d 20 22 3c | 53 54 44 49 4e 3e 22 3b |ile = "<|STDIN>";|
|00004330| 0a 09 7d 0a 0a 09 2f 2a | 0a 09 2a 2a 20 73 65 74 |..}.../*|..** set|
|00004340| 20 6f 75 70 75 74 20 73 | 74 72 65 61 6d 2e 0a 09 | ouput s|tream...|
|00004350| 2a 2f 0a 09 69 66 20 28 | 61 72 67 63 20 3e 20 32 |*/..if (|argc > 2|
|00004360| 29 0a 09 7b 0a 09 09 2b | 2b 61 72 67 76 3b 0a 09 |)..{...+|+argv;..|
|00004370| 09 69 66 20 28 28 66 70 | 6f 75 74 20 3d 20 66 6f |.if ((fp|out = fo|
|00004380| 70 65 6e 28 2a 61 72 67 | 76 2c 22 77 22 29 29 20 |pen(*arg|v,"w")) |
|00004390| 3d 3d 20 4e 55 4c 4c 29 | 0a 09 09 09 66 61 74 61 |== NULL)|....fata|
|000043a0| 6c 28 22 43 61 6e 27 74 | 20 6f 70 65 6e 20 25 73 |l("Can't| open %s|
|000043b0| 22 2c 2a 61 72 67 76 29 | 3b 0a 09 7d 0a 09 65 6c |",*argv)|;..}..el|
|000043c0| 73 65 0a 09 09 66 70 6f | 75 74 20 3d 20 73 74 64 |se...fpo|ut = std|
|000043d0| 6f 75 74 3b 0a 0a 09 70 | 61 72 73 65 28 66 70 69 |out;...p|arse(fpi|
|000043e0| 6e 2c 66 70 6f 75 74 29 | 3b 0a 7d 0a 0a 2f 2a 0a |n,fpout)|;.}../*.|
|000043f0| 2a 2a 20 6f 75 74 70 75 | 74 20 73 74 72 69 6e 67 |** outpu|t string|
|00004400| 20 69 6e 74 65 6e 64 65 | 64 20 74 6f 20 62 65 20 | intende|d to be |
|00004410| 69 6e 73 69 64 65 20 64 | 6f 75 62 6c 65 20 71 75 |inside d|ouble qu|
|00004420| 6f 74 65 73 2c 20 74 68 | 75 73 20 72 65 71 75 69 |otes, th|us requi|
|00004430| 72 69 6e 67 0a 2a 2a 20 | 62 61 63 6b 73 6c 61 73 |ring.** |backslas|
|00004440| 68 65 73 0a 2a 2f 0a 64 | 71 5f 6f 75 74 28 66 2c |hes.*/.d|q_out(f,|
|00004450| 73 74 72 29 0a 46 49 4c | 45 20 2a 66 3b 0a 63 68 |str).FIL|E *f;.ch|
|00004460| 61 72 20 2a 73 74 72 3b | 0a 7b 0a 09 63 68 61 72 |ar *str;|.{..char|
|00004470| 20 2a 73 70 3b 0a 09 63 | 68 61 72 20 73 63 3b 0a | *sp;..c|har sc;.|
|00004480| 0a 09 66 6f 72 20 28 3b | 3b 29 0a 09 7b 0a 09 09 |..for (;|;)..{...|
|00004490| 66 6f 72 20 28 73 70 20 | 3d 20 73 74 72 3b 20 2a |for (sp |= str; *|
|000044a0| 73 70 20 21 3d 20 27 5c | 30 27 20 26 26 20 69 6e |sp != '\|0' && in|
|000044b0| 64 65 78 28 44 51 53 49 | 47 2c 2a 73 70 29 20 3d |dex(DQSI|G,*sp) =|
|000044c0| 3d 20 4e 55 4c 4c 3b 20 | 2b 2b 73 70 29 0a 09 09 |= NULL; |++sp)...|
|000044d0| 09 3b 0a 09 09 69 66 20 | 28 2a 73 70 20 21 3d 20 |.;...if |(*sp != |
|000044e0| 27 5c 30 27 29 0a 09 09 | 7b 0a 09 09 09 73 63 20 |'\0')...|{....sc |
|000044f0| 3d 20 2a 73 70 3b 0a 09 | 09 09 2a 73 70 20 3d 20 |= *sp;..|..*sp = |
|00004500| 27 5c 30 27 3b 0a 09 09 | 09 66 70 72 69 6e 74 66 |'\0';...|.fprintf|
|00004510| 28 66 2c 22 25 73 5c 5c | 25 63 22 2c 73 74 72 2c |(f,"%s\\|%c",str,|
|00004520| 73 63 29 3b 0a 09 09 09 | 73 74 72 20 3d 20 73 70 |sc);....|str = sp|
|00004530| 2b 31 3b 0a 09 09 09 63 | 6f 6e 74 69 6e 75 65 3b |+1;....c|ontinue;|
|00004540| 0a 09 09 7d 0a 09 09 62 | 72 65 61 6b 3b 0a 09 7d |...}...b|reak;..}|
|00004550| 0a 09 66 70 72 69 6e 74 | 66 28 66 2c 22 25 73 22 |..fprint|f(f,"%s"|
|00004560| 2c 73 74 72 29 3b 0a 7d | 0a 0a 2f 2a 0a 2a 2a 20 |,str);.}|../*.** |
|00004570| 67 65 6e 65 72 69 63 20 | 76 61 72 69 61 62 6c 65 |generic |variable|
|00004580| 20 61 73 73 69 67 6e 6d | 65 6e 74 0a 2a 2f 0a 76 | assignm|ent.*/.v|
|00004590| 61 72 5f 61 73 73 69 67 | 6e 28 66 2c 6e 61 6d 65 |ar_assig|n(f,name|
|000045a0| 2c 73 65 74 74 69 6e 67 | 29 0a 46 49 4c 45 20 2a |,setting|).FILE *|
|000045b0| 66 3b 0a 63 68 61 72 20 | 2a 6e 61 6d 65 3b 0a 63 |f;.char |*name;.c|
|000045c0| 68 61 72 20 2a 73 65 74 | 74 69 6e 67 3b 0a 7b 0a |har *set|ting;.{.|
|000045d0| 09 66 70 72 69 6e 74 66 | 28 66 2c 22 25 73 3d 5c |.fprintf|(f,"%s=\|
|000045e0| 22 22 2c 6e 61 6d 65 29 | 3b 0a 09 64 71 5f 6f 75 |"",name)|;..dq_ou|
|000045f0| 74 28 66 2c 73 65 74 74 | 69 6e 67 29 3b 0a 09 66 |t(f,sett|ing);..f|
|00004600| 70 72 69 6e 74 66 28 66 | 2c 22 5c 22 5c 6e 22 29 |printf(f|,"\"\n")|
|00004610| 3b 0a 7d 0a 0a 2f 2a 0a | 2a 2a 20 66 69 6e 64 20 |;.}../*.|** find |
|00004620| 74 68 65 20 73 74 61 72 | 74 69 6e 67 20 64 65 6c |the star|ting del|
|00004630| 69 6d 69 74 65 72 20 6f | 66 20 61 20 6e 61 6d 65 |imiter o|f a name|
|00004640| 20 61 73 73 69 67 6e 6d | 65 6e 74 2c 20 6f 72 20 | assignm|ent, or |
|00004650| 72 65 74 75 72 6e 20 4e | 55 4c 4c 0a 2a 2a 20 64 |return N|ULL.** d|
|00004660| 65 73 69 67 6e 65 64 20 | 74 6f 20 66 61 69 6c 20 |esigned |to fail |
|00004670| 66 6f 72 20 77 69 65 72 | 64 20 6e 61 6d 65 73 20 |for wier|d names |
|00004680| 74 68 61 74 20 77 6f 6e | 27 74 20 6d 61 6b 65 20 |that won|'t make |
|00004690| 70 72 6f 70 65 72 0a 2a | 2a 20 6b 73 68 20 6e 61 |proper.*|* ksh na|
|000046a0| 6d 65 73 0a 2a 2f 0a 63 | 68 61 72 20 2a 0a 6e 61 |mes.*/.c|har *.na|
|000046b0| 6d 73 74 61 72 74 28 73 | 74 72 2c 64 65 6c 69 6d |mstart(s|tr,delim|
|000046c0| 29 0a 63 68 61 72 20 2a | 73 74 72 3b 0a 63 68 61 |).char *|str;.cha|
|000046d0| 72 20 64 65 6c 69 6d 3b | 0a 7b 0a 09 63 68 61 72 |r delim;|.{..char|
|000046e0| 20 2a 65 71 3b 0a 0a 09 | 69 66 20 28 2a 73 74 72 | *eq;...|if (*str|
|000046f0| 20 21 3d 20 27 5f 27 20 | 26 26 20 21 69 73 61 6c | != '_' |&& !isal|
|00004700| 70 68 61 28 2a 73 74 72 | 29 29 0a 09 09 72 65 74 |pha(*str|))...ret|
|00004710| 75 72 6e 20 28 4e 55 4c | 4c 29 3b 0a 0a 09 66 6f |urn (NUL|L);...fo|
|00004720| 72 20 28 65 71 3d 73 74 | 72 2b 31 3b 20 2a 65 71 |r (eq=st|r+1; *eq|
|00004730| 20 21 3d 20 64 65 6c 69 | 6d 3b 20 2b 2b 65 71 29 | != deli|m; ++eq)|
|00004740| 0a 09 7b 0a 09 09 69 66 | 20 28 2a 65 71 20 3d 3d |..{...if| (*eq ==|
|00004750| 20 27 5c 30 27 29 0a 09 | 09 09 72 65 74 75 72 6e | '\0')..|..return|
|00004760| 20 28 4e 55 4c 4c 29 3b | 0a 09 09 69 66 20 28 2a | (NULL);|...if (*|
|00004770| 65 71 20 21 3d 20 27 5f | 27 20 26 26 20 21 69 73 |eq != '_|' && !is|
|00004780| 61 6c 6e 75 6d 28 2a 65 | 71 29 29 0a 09 09 09 72 |alnum(*e|q))....r|
|00004790| 65 74 75 72 6e 20 28 4e | 55 4c 4c 29 3b 0a 09 7d |eturn (N|ULL);..}|
|000047a0| 0a 0a 09 72 65 74 75 72 | 6e 20 28 65 71 29 3b 0a |...retur|n (eq);.|
|000047b0| 7d 0a 0a 2f 2a 0a 2a 2a | 20 70 72 6f 63 65 73 73 |}../*.**| process|
|000047c0| 20 69 6e 70 75 74 20 66 | 72 6f 6d 20 76 61 72 69 | input f|rom vari|
|000047d0| 6f 75 73 20 65 6e 76 69 | 72 6f 6d 65 6e 74 20 63 |ous envi|roment c|
|000047e0| 6f 6d 6d 61 6e 64 73 2c | 20 77 72 69 74 69 6e 67 |ommands,| writing|
|000047f0| 20 6f 75 74 20 6b 73 68 | 0a 2a 2a 20 63 6f 6d 6d | out ksh|.** comm|
|00004800| 61 6e 64 73 20 74 6f 20 | 73 69 6d 75 6c 61 74 65 |ands to |simulate|
|00004810| 20 74 68 61 74 20 65 6e | 76 69 72 6f 6e 6d 65 6e | that en|vironmen|
|00004820| 74 2e 0a 2a 2a 0a 2a 2a | 20 49 6e 70 75 74 20 63 |t..**.**| Input c|
|00004830| 6f 6e 73 69 73 74 73 20 | 6f 66 20 6c 69 6e 65 73 |onsists |of lines|
|00004840| 20 62 65 67 69 6e 6e 69 | 6e 67 20 77 69 74 68 20 | beginni|ng with |
|00004850| 22 2b 22 20 61 6e 64 20 | 61 20 63 6f 64 65 20 77 |"+" and |a code w|
|00004860| 68 69 63 68 20 73 69 67 | 6e 69 66 69 65 73 0a 2a |hich sig|nifies.*|
|00004870| 2a 20 77 68 61 74 20 61 | 6c 6c 20 66 6f 6c 6c 6f |* what a|ll follo|
|00004880| 77 69 6e 67 20 6c 69 6e | 65 73 20 75 70 20 74 6f |wing lin|es up to|
|00004890| 20 74 68 65 20 6e 65 78 | 74 20 6c 65 61 64 69 6e | the nex|t leadin|
|000048a0| 67 20 22 2b 22 20 63 6f | 6e 74 61 69 6e 3a 0a 2a |g "+" co|ntain:.*|
|000048b0| 2a 0a 2a 2a 09 2b 45 3a | 0a 2a 2a 09 09 65 6e 76 |*.**.+E:|.**..env|
|000048c0| 69 72 6f 6e 6d 65 6e 74 | 20 76 61 72 69 61 62 6c |ironment| variabl|
|000048d0| 65 73 2c 20 70 72 69 6e | 74 65 64 20 61 73 20 3c |es, prin|ted as <|
|000048e0| 76 61 72 3e 3d 3c 73 74 | 72 69 6e 67 3e 2c 20 61 |var>=<st|ring>, a|
|000048f0| 73 20 66 72 6f 6d 0a 2a | 2a 09 09 74 68 65 20 22 |s from.*|*..the "|
|00004900| 70 72 69 6e 74 65 6e 76 | 22 20 63 6f 6d 6d 61 6e |printenv|" comman|
|00004910| 64 2e 20 20 54 75 72 6e | 65 64 20 69 6e 74 6f 20 |d. Turn|ed into |
|00004920| 70 61 69 72 73 20 6f 66 | 20 65 78 70 6f 72 74 73 |pairs of| exports|
|00004930| 20 61 6e 64 0a 2a 2a 09 | 09 76 61 72 69 61 62 6c | and.**.|.variabl|
|00004940| 65 20 61 73 73 69 67 6e | 6d 65 6e 74 73 2e 0a 2a |e assign|ments..*|
|00004950| 2a 0a 2a 2a 09 2b 53 3a | 0a 2a 2a 09 09 63 73 68 |*.**.+S:|.**..csh|
|00004960| 20 22 73 65 74 22 20 63 | 6f 6d 6d 61 6e 64 20 72 | "set" c|ommand r|
|00004970| 65 73 75 6c 74 73 2e 20 | 20 53 70 65 63 69 66 69 |esults. | Specifi|
|00004980| 63 20 76 61 72 69 61 62 | 6c 65 73 20 77 68 69 63 |c variab|les whic|
|00004990| 68 20 68 61 76 65 0a 2a | 2a 09 09 6b 73 68 20 61 |h have.*|*..ksh a|
|000049a0| 6e 61 6c 6f 67 73 20 28 | 74 65 72 6d 2c 20 70 61 |nalogs (|term, pa|
|000049b0| 74 68 2c 20 63 64 70 61 | 74 68 2c 20 68 6f 6d 65 |th, cdpa|th, home|
|000049c0| 2c 20 63 77 64 29 20 68 | 61 6e 64 6c 65 64 20 73 |, cwd) h|andled s|
|000049d0| 70 65 63 69 61 6c 6c 79 | 2c 0a 2a 2a 09 09 6f 74 |pecially|,.**..ot|
|000049e0| 68 65 72 73 20 74 75 72 | 6e 65 64 20 69 6e 74 6f |hers tur|ned into|
|000049f0| 20 73 74 72 61 69 67 68 | 74 20 76 61 72 69 61 62 | straigh|t variab|
|00004a00| 6c 65 20 61 73 73 69 67 | 6e 6d 65 6e 74 73 2e 20 |le assig|nments. |
|00004a10| 20 54 68 65 0a 2a 2a 09 | 09 65 78 70 65 63 74 65 | The.**.|.expecte|
|00004a20| 64 20 66 6f 72 6d 61 74 | 20 69 73 20 3c 6e 61 6d |d format| is <nam|
|00004a30| 65 3e 3c 74 61 62 3e 3c | 64 65 66 3e 0a 2a 2a 0a |e><tab><|def>.**.|
|00004a40| 2a 2a 09 2b 44 3a 0a 2a | 2a 09 09 66 6f 6c 6c 6f |**.+D:.*|*..follo|
|00004a50| 77 65 64 20 62 79 20 61 | 20 64 69 72 65 63 74 6f |wed by a| directo|
|00004a60| 72 79 20 73 74 61 63 6b | 20 6c 69 73 74 2c 20 61 |ry stack| list, a|
|00004a70| 73 20 66 72 6f 6d 20 74 | 68 65 20 63 73 68 20 22 |s from t|he csh "|
|00004a80| 64 69 72 73 22 0a 2a 2a | 09 09 63 6f 6d 6d 61 6e |dirs".**|..comman|
|00004a90| 64 2e 20 20 54 75 72 6e | 65 64 20 69 6e 74 6f 20 |d. Turn|ed into |
|00004aa0| 70 75 73 68 64 20 63 6f | 6d 6d 61 6e 64 73 2e 20 |pushd co|mmands. |
|00004ab0| 20 54 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 73 | The dir|ectory s|
|00004ac0| 74 61 63 6b 0a 2a 2a 09 | 09 69 73 20 61 73 73 75 |tack.**.|.is assu|
|00004ad0| 6d 65 64 20 74 6f 20 62 | 65 20 73 65 70 61 72 61 |med to b|e separa|
|00004ae0| 74 65 64 20 62 79 20 73 | 70 61 63 65 73 2c 20 77 |ted by s|paces, w|
|00004af0| 69 74 68 20 70 77 64 20 | 61 73 20 74 68 65 20 66 |ith pwd |as the f|
|00004b00| 69 72 73 74 0a 2a 2a 09 | 09 69 74 65 6d 2c 20 66 |irst.**.|.item, f|
|00004b10| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 74 68 65 20 74 |ollowed |by the t|
|00004b20| 6f 70 20 6f 66 20 74 68 | 65 20 73 74 61 63 6b 2e |op of th|e stack.|
|00004b30| 0a 2a 2a 0a 2a 2a 09 2b | 41 3a 0a 2a 2a 09 09 63 |.**.**.+|A:.**..c|
|00004b40| 73 68 20 73 74 79 6c 65 | 20 61 6c 69 61 73 65 73 |sh style| aliases|
|00004b50| 2e 20 20 54 75 72 6e 65 | 64 20 69 6e 74 6f 20 6b |. Turne|d into k|
|00004b60| 73 68 20 61 6c 69 61 73 | 65 73 20 61 6e 64 20 66 |sh alias|es and f|
|00004b70| 75 6e 63 74 69 6f 6e 73 | 2c 0a 2a 2a 09 09 61 73 |unctions|,.**..as|
|00004b80| 20 6d 75 63 68 20 61 73 | 20 70 6f 73 73 69 62 6c | much as| possibl|
|00004b90| 65 2e 20 20 54 68 65 20 | 65 78 70 65 63 74 65 64 |e. The |expected|
|00004ba0| 20 66 6f 72 6d 61 74 20 | 69 73 20 3c 6e 61 6d 65 | format |is <name|
|00004bb0| 3e 3c 74 61 62 3e 3c 64 | 65 66 3e 2e 0a 2a 2a 0a |><tab><d|ef>..**.|
|00004bc0| 2a 2a 20 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |** Note |that the|
|00004bd0| 20 22 2b 53 22 20 69 6e | 70 75 74 20 73 68 6f 75 | "+S" in|put shou|
|00004be0| 6c 64 20 70 72 65 63 65 | 64 65 20 74 68 65 20 22 |ld prece|de the "|
|00004bf0| 2b 44 22 20 69 6e 70 75 | 74 20 66 6f 72 20 74 68 |+D" inpu|t for th|
|00004c00| 65 20 6c 61 74 74 65 72 | 20 74 6f 0a 2a 2a 20 69 |e latter| to.** i|
|00004c10| 6e 74 65 72 70 72 65 74 | 20 7e 20 70 72 6f 70 65 |nterpret| ~ prope|
|00004c20| 72 6c 79 20 69 66 20 22 | 68 6f 6d 65 22 20 68 61 |rly if "|home" ha|
|00004c30| 73 20 62 65 65 6e 20 63 | 68 61 6e 67 65 64 2e 20 |s been c|hanged. |
|00004c40| 20 22 2b 45 22 20 73 68 | 6f 75 6c 64 20 61 6c 73 | "+E" sh|ould als|
|00004c50| 6f 20 70 72 65 63 65 64 | 65 0a 2a 2a 20 74 68 65 |o preced|e.** the|
|00004c60| 20 22 2b 53 22 20 73 65 | 63 74 69 6f 6e 20 74 6f | "+S" se|ction to|
|00004c70| 20 61 6c 6c 6f 77 20 63 | 73 68 20 73 65 74 20 63 | allow c|sh set c|
|00004c80| 6f 6d 6d 61 6e 64 73 20 | 74 6f 20 6f 76 65 72 72 |ommands |to overr|
|00004c90| 69 64 65 20 6b 73 68 20 | 76 61 72 69 61 62 6c 65 |ide ksh |variable|
|00004ca0| 73 0a 2a 2a 20 69 6d 70 | 6f 72 74 65 64 20 69 6e |s.** imp|orted in|
|00004cb0| 74 6f 20 61 6e 6f 74 68 | 65 72 20 65 6e 76 69 72 |to anoth|er envir|
|00004cc0| 6f 6e 6d 65 6e 74 2e 0a | 2a 2f 0a 73 74 61 74 69 |onment..|*/.stati|
|00004cd0| 63 0a 70 61 72 73 65 28 | 66 69 6e 2c 66 6f 75 74 |c.parse(|fin,fout|
|00004ce0| 29 0a 46 49 4c 45 20 2a | 66 69 6e 3b 0a 46 49 4c |).FILE *|fin;.FIL|
|00004cf0| 45 20 2a 66 6f 75 74 3b | 0a 7b 0a 09 63 68 61 72 |E *fout;|.{..char|
|00004d00| 20 73 74 61 74 65 3b 0a | 09 63 68 61 72 20 62 75 | state;.|.char bu|
|00004d10| 66 72 5b 42 49 47 42 55 | 46 46 45 52 2b 31 5d 3b |fr[BIGBU|FFER+1];|
|00004d20| 0a 09 63 68 61 72 20 2a | 69 6e 64 65 78 28 29 3b |..char *|index();|
|00004d30| 0a 09 63 68 61 72 20 2a | 70 74 72 3b 0a 09 63 68 |..char *|ptr;..ch|
|00004d40| 61 72 20 2a 73 6c 61 73 | 68 3b 0a 09 63 68 61 72 |ar *slas|h;..char|
|00004d50| 20 73 63 3b 0a 09 69 6e | 74 20 6e 6f 6c 6f 6f 6b | sc;..in|t nolook|
|00004d60| 3b 0a 0a 09 73 74 61 74 | 65 20 3d 20 27 20 27 3b |;...stat|e = ' ';|
|00004d70| 0a 09 44 69 61 67 5f 6c | 69 6e 65 20 3d 20 30 3b |..Diag_l|ine = 0;|
|00004d80| 0a 09 50 77 64 5b 30 5d | 20 3d 20 27 5c 30 27 3b |..Pwd[0]| = '\0';|
|00004d90| 0a 0a 09 2f 2a 0a 09 2a | 2a 20 77 65 20 6b 65 65 |.../*..*|* we kee|
|00004da0| 70 20 61 20 6c 6f 6f 6b | 61 68 65 61 64 20 72 65 |p a look|ahead re|
|00004db0| 63 6f 72 64 20 77 68 65 | 6e 20 6e 65 65 64 65 64 |cord whe|n needed|
|00004dc0| 20 72 61 74 68 65 72 20 | 74 68 61 6e 20 73 65 65 | rather |than see|
|00004dd0| 6b 69 6e 67 20 62 61 63 | 6b 0a 09 2a 2a 20 62 65 |king bac|k..** be|
|00004de0| 63 61 75 73 65 20 77 65 | 20 6d 61 79 20 62 65 20 |cause we| may be |
|00004df0| 72 65 61 64 69 6e 67 20 | 66 72 6f 6d 20 73 74 64 |reading |from std|
|00004e00| 69 6e 2e 0a 09 2a 2f 0a | 09 6e 6f 6c 6f 6f 6b 20 |in...*/.|.nolook |
|00004e10| 3d 20 31 3b 0a 09 66 6f | 72 20 28 3b 3b 29 0a 09 |= 1;..fo|r (;;)..|
|00004e20| 7b 0a 09 09 69 66 20 28 | 6e 6f 6c 6f 6f 6b 29 0a |{...if (|nolook).|
|00004e30| 09 09 7b 0a 09 09 09 69 | 66 20 28 66 67 65 74 73 |..{....i|f (fgets|
|00004e40| 28 62 75 66 72 2c 42 49 | 47 42 55 46 46 45 52 2c |(bufr,BI|GBUFFER,|
|00004e50| 66 69 6e 29 20 3d 3d 20 | 4e 55 4c 4c 29 0a 09 09 |fin) == |NULL)...|
|00004e60| 09 09 62 72 65 61 6b 3b | 0a 09 09 09 62 75 66 72 |..break;|....bufr|
|00004e70| 5b 73 74 72 6c 65 6e 28 | 62 75 66 72 29 2d 31 5d |[strlen(|bufr)-1]|
|00004e80| 20 3d 20 27 5c 30 27 3b | 0a 09 09 09 2b 2b 44 69 | = '\0';|....++Di|
|00004e90| 61 67 5f 6c 69 6e 65 3b | 0a 09 09 7d 0a 09 09 65 |ag_line;|...}...e|
|00004ea0| 6c 73 65 0a 09 09 09 6e | 6f 6c 6f 6f 6b 20 3d 20 |lse....n|olook = |
|00004eb0| 31 3b 0a 09 09 69 66 20 | 28 62 75 66 72 5b 30 5d |1;...if |(bufr[0]|
|00004ec0| 20 3d 3d 20 53 65 63 74 | 29 0a 09 09 7b 0a 09 09 | == Sect|)...{...|
|00004ed0| 09 73 74 61 74 65 20 3d | 20 62 75 66 72 5b 31 5d |.state =| bufr[1]|
|00004ee0| 3b 0a 09 09 09 69 66 20 | 28 69 6e 64 65 78 28 22 |;....if |(index("|
|00004ef0| 45 53 41 44 22 2c 73 74 | 61 74 65 29 20 3d 3d 20 |ESAD",st|ate) == |
|00004f00| 4e 55 4c 4c 29 0a 09 09 | 09 09 64 69 61 67 6e 6f |NULL)...|..diagno|
|00004f10| 73 74 69 63 28 22 55 6e | 6b 6e 6f 77 6e 20 73 65 |stic("Un|known se|
|00004f20| 63 74 69 6f 6e 20 74 79 | 70 65 3a 20 25 63 25 63 |ction ty|pe: %c%c|
|00004f30| 22 2c 0a 09 09 09 09 09 | 09 09 09 53 65 63 74 2c |",......|...Sect,|
|00004f40| 20 73 74 61 74 65 29 3b | 0a 09 09 09 63 6f 6e 74 | state);|....cont|
|00004f50| 69 6e 75 65 3b 0a 09 09 | 7d 0a 09 09 73 77 69 74 |inue;...|}...swit|
|00004f60| 63 68 20 28 73 74 61 74 | 65 29 0a 09 09 7b 0a 09 |ch (stat|e)...{..|
|00004f70| 09 63 61 73 65 20 27 45 | 27 3a 0a 09 09 09 69 66 |.case 'E|':....if|
|00004f80| 20 28 28 70 74 72 20 3d | 20 6e 61 6d 73 74 61 72 | ((ptr =| namstar|
|00004f90| 74 28 62 75 66 72 2c 27 | 3d 27 29 29 20 3d 3d 20 |t(bufr,'|=')) == |
|00004fa0| 4e 55 4c 4c 29 0a 09 09 | 09 7b 0a 09 09 09 09 64 |NULL)...|.{.....d|
|00004fb0| 69 61 67 6e 6f 73 74 69 | 63 28 22 42 61 64 20 76 |iagnosti|c("Bad v|
|00004fc0| 61 72 69 61 62 6c 65 20 | 64 65 66 69 6e 69 74 69 |ariable |definiti|
|00004fd0| 6f 6e 22 29 3b 0a 09 09 | 09 09 62 72 65 61 6b 3b |on");...|..break;|
|00004fe0| 0a 09 09 09 7d 0a 0a 09 | 09 09 2a 70 74 72 20 3d |....}...|..*ptr =|
|00004ff0| 20 27 5c 30 27 3b 0a 09 | 09 09 69 66 20 28 58 76 | '\0';..|..if (Xv|
|00005000| 61 72 29 0a 09 09 09 09 | 66 70 72 69 6e 74 66 28 |ar).....|fprintf(|
|00005010| 66 6f 75 74 2c 22 65 78 | 70 6f 72 74 20 25 73 5c |fout,"ex|port %s\|
|00005020| 6e 25 73 3d 5c 22 22 2c | 62 75 66 72 2c 62 75 66 |n%s=\"",|bufr,buf|
|00005030| 72 29 3b 0a 09 09 09 65 | 6c 73 65 0a 09 09 09 09 |r);....e|lse.....|
|00005040| 66 70 72 69 6e 74 66 28 | 66 6f 75 74 2c 22 25 73 |fprintf(|fout,"%s|
|00005050| 3d 5c 22 22 2c 62 75 66 | 72 29 3b 0a 09 09 09 2b |=\"",buf|r);....+|
|00005060| 2b 70 74 72 3b 0a 0a 09 | 09 09 2f 2a 0a 09 09 09 |+ptr;...|../*....|
|00005070| 2a 2a 20 52 65 61 64 20 | 61 68 65 61 64 20 61 20 |** Read |ahead a |
|00005080| 72 65 63 6f 72 64 2c 20 | 61 6e 64 20 69 66 20 69 |record, |and if i|
|00005090| 74 20 64 6f 65 73 6e 27 | 74 20 61 70 70 65 61 72 |t doesn'|t appear|
|000050a0| 0a 09 09 09 2a 2a 20 74 | 6f 20 62 65 20 61 20 6e |....** t|o be a n|
|000050b0| 65 77 20 76 61 72 69 61 | 62 6c 65 20 61 73 73 69 |ew varia|ble assi|
|000050c0| 67 6e 6d 65 6e 74 20 6f | 72 20 61 20 73 74 61 74 |gnment o|r a stat|
|000050d0| 65 20 63 68 61 6e 67 65 | 2c 0a 09 09 09 2a 2a 20 |e change|,....** |
|000050e0| 73 74 69 63 6b 20 69 6e | 20 62 61 63 6b 73 6c 61 |stick in| backsla|
|000050f0| 73 68 2d 6e 65 77 6c 69 | 6e 65 20 61 6e 64 20 63 |sh-newli|ne and c|
|00005100| 6f 6e 74 69 6e 75 65 20 | 70 72 6f 63 65 73 73 69 |ontinue |processi|
|00005110| 6e 67 0a 09 09 09 2a 2f | 0a 09 09 09 66 6f 72 20 |ng....*/|....for |
|00005120| 28 3b 3b 29 0a 09 09 09 | 7b 0a 09 09 09 09 64 71 |(;;)....|{.....dq|
|00005130| 5f 6f 75 74 28 66 6f 75 | 74 2c 70 74 72 29 3b 0a |_out(fou|t,ptr);.|
|00005140| 09 09 09 09 69 66 20 28 | 66 67 65 74 73 28 62 75 |....if (|fgets(bu|
|00005150| 66 72 2c 42 49 47 42 55 | 46 46 45 52 2c 66 69 6e |fr,BIGBU|FFER,fin|
|00005160| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 09 09 09 09 09 |) == NUL|L)......|
|00005170| 62 72 65 61 6b 3b 0a 09 | 09 09 09 62 75 66 72 5b |break;..|...bufr[|
|00005180| 73 74 72 6c 65 6e 28 62 | 75 66 72 29 2d 31 5d 20 |strlen(b|ufr)-1] |
|00005190| 3d 20 27 5c 30 27 3b 0a | 09 09 09 09 2b 2b 44 69 |= '\0';.|....++Di|
|000051a0| 61 67 5f 6c 69 6e 65 3b | 0a 0a 09 09 09 09 2f 2a |ag_line;|....../*|
|000051b0| 0a 09 09 09 09 2a 2a 20 | 77 65 20 64 6f 6e 27 74 |.....** |we don't|
|000051c0| 20 75 73 65 20 6e 61 6d | 73 74 61 72 74 20 68 65 | use nam|start he|
|000051d0| 72 65 20 62 65 63 61 75 | 73 65 20 69 74 27 73 0a |re becau|se it's.|
|000051e0| 09 09 09 09 2a 2a 20 62 | 65 74 74 65 72 20 74 6f |....** b|etter to|
|000051f0| 20 68 61 76 65 20 61 20 | 6f 64 64 20 76 61 72 69 | have a |odd vari|
|00005200| 61 62 6c 65 20 6e 61 6d | 65 20 66 61 69 6c 0a 09 |able nam|e fail..|
|00005210| 09 09 09 2a 2a 20 74 68 | 61 6e 20 68 61 76 65 20 |...** th|an have |
|00005220| 69 74 20 61 70 70 65 6e | 64 65 64 20 74 6f 20 61 |it appen|ded to a|
|00005230| 20 67 6f 6f 64 20 61 73 | 73 69 67 6e 6d 65 6e 74 | good as|signment|
|00005240| 2e 0a 09 09 09 09 2a 2a | 20 4f 66 20 63 6f 75 72 |......**| Of cour|
|00005250| 73 65 2c 20 6e 6f 77 20 | 77 65 20 6d 69 73 73 20 |se, now |we miss |
|00005260| 6c 65 67 69 74 69 6d 61 | 74 65 20 27 3d 27 0a 09 |legitima|te '='..|
|00005270| 09 09 09 2a 2a 20 63 68 | 61 72 61 63 74 65 72 73 |...** ch|aracters|
|00005280| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 65 6d 62 65 64 | followi|ng embed|
|00005290| 64 65 64 20 6e 65 77 6c | 69 6e 65 73 0a 09 09 09 |ded newl|ines....|
|000052a0| 09 2a 2f 0a 09 09 09 09 | 69 66 20 28 62 75 66 72 |.*/.....|if (bufr|
|000052b0| 5b 30 5d 20 3d 3d 20 53 | 65 63 74 20 7c 7c 20 69 |[0] == S|ect || i|
|000052c0| 6e 64 65 78 20 28 62 75 | 66 72 2c 27 3d 27 29 20 |ndex (bu|fr,'=') |
|000052d0| 21 3d 20 4e 55 4c 4c 29 | 0a 09 09 09 09 7b 0a 09 |!= NULL)|.....{..|
|000052e0| 09 09 09 09 6e 6f 6c 6f | 6f 6b 20 3d 20 30 3b 0a |....nolo|ok = 0;.|
|000052f0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 09 09 |.....bre|ak;.....|
|00005300| 7d 0a 09 09 09 09 66 70 | 72 69 6e 74 66 28 66 6f |}.....fp|rintf(fo|
|00005310| 75 74 2c 22 5c 5c 5c 6e | 22 29 3b 0a 09 09 09 09 |ut,"\\\n|");.....|
|00005320| 70 74 72 20 3d 20 62 75 | 66 72 3b 0a 09 09 09 7d |ptr = bu|fr;....}|
|00005330| 0a 09 09 09 66 70 72 69 | 6e 74 66 28 66 6f 75 74 |....fpri|ntf(fout|
|00005340| 2c 22 5c 22 5c 6e 22 29 | 3b 0a 09 09 09 62 72 65 |,"\"\n")|;....bre|
|00005350| 61 6b 3b 0a 09 09 63 61 | 73 65 20 27 41 27 3a 0a |ak;...ca|se 'A':.|
|00005360| 09 09 09 69 66 20 28 28 | 70 74 72 20 3d 20 6e 61 |...if ((|ptr = na|
|00005370| 6d 73 74 61 72 74 28 62 | 75 66 72 2c 27 5c 74 27 |mstart(b|ufr,'\t'|
|00005380| 29 29 20 3d 3d 20 4e 55 | 4c 4c 29 0a 09 09 09 7b |)) == NU|LL)....{|
|00005390| 0a 09 09 09 09 64 69 61 | 67 6e 6f 73 74 69 63 28 |.....dia|gnostic(|
|000053a0| 22 42 61 64 20 61 6c 69 | 61 73 20 6e 61 6d 65 22 |"Bad ali|as name"|
|000053b0| 29 3b 0a 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |);.....b|reak;...|
|000053c0| 09 7d 0a 09 09 09 2a 70 | 74 72 20 3d 20 27 5c 30 |.}....*p|tr = '\0|
|000053d0| 27 3b 0a 09 09 09 2b 2b | 70 74 72 3b 0a 09 09 09 |';....++|ptr;....|
|000053e0| 61 6c 5f 70 61 72 73 65 | 28 62 75 66 72 2c 70 74 |al_parse|(bufr,pt|
|000053f0| 72 2c 66 6f 75 74 29 3b | 0a 09 09 09 62 72 65 61 |r,fout);|....brea|
|00005400| 6b 3b 0a 09 09 63 61 73 | 65 20 27 53 27 3a 0a 09 |k;...cas|e 'S':..|
|00005410| 09 09 69 66 20 28 28 70 | 74 72 20 3d 20 6e 61 6d |..if ((p|tr = nam|
|00005420| 73 74 61 72 74 28 62 75 | 66 72 2c 27 5c 74 27 29 |start(bu|fr,'\t')|
|00005430| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 09 09 09 7b 0a |) == NUL|L)....{.|
|00005440| 09 09 09 09 64 69 61 67 | 6e 6f 73 74 69 63 28 22 |....diag|nostic("|
|00005450| 42 61 64 20 5c 22 73 65 | 74 5c 22 20 6e 61 6d 65 |Bad \"se|t\" name|
|00005460| 22 29 3b 0a 09 09 09 09 | 62 72 65 61 6b 3b 0a 09 |");.....|break;..|
|00005470| 09 09 7d 0a 09 09 09 2a | 70 74 72 20 3d 20 27 5c |..}....*|ptr = '\|
|00005480| 30 27 3b 0a 09 09 09 2b | 2b 70 74 72 3b 0a 09 09 |0';....+|+ptr;...|
|00005490| 09 73 65 74 5f 63 68 65 | 63 6b 28 62 75 66 72 2c |.set_che|ck(bufr,|
|000054a0| 70 74 72 2c 66 6f 75 74 | 29 3b 0a 09 09 09 62 72 |ptr,fout|);....br|
|000054b0| 65 61 6b 3b 0a 09 09 63 | 61 73 65 20 27 44 27 3a |eak;...c|ase 'D':|
|000054c0| 0a 09 09 09 64 69 72 5f | 6c 69 73 74 28 62 75 66 |....dir_|list(buf|
|000054d0| 72 2c 66 6f 75 74 29 3b | 0a 09 09 09 62 72 65 61 |r,fout);|....brea|
|000054e0| 6b 3b 0a 09 09 64 65 66 | 61 75 6c 74 3a 0a 09 09 |k;...def|ault:...|
|000054f0| 09 62 72 65 61 6b 3b 0a | 09 09 7d 0a 09 7d 0a 0a |.break;.|..}..}..|
|00005500| 09 2f 2a 0a 09 2a 2a 20 | 49 66 20 77 65 20 68 61 |./*..** |If we ha|
|00005510| 64 20 70 77 64 20 73 65 | 74 74 69 6e 67 73 2c 20 |d pwd se|ttings, |
|00005520| 69 73 73 75 65 20 61 20 | 63 64 20 61 73 20 74 68 |issue a |cd as th|
|00005530| 65 20 6c 61 73 74 20 74 | 68 69 6e 67 0a 09 2a 2f |e last t|hing..*/|
|00005540| 0a 09 69 66 20 28 50 77 | 64 5b 30 5d 20 21 3d 20 |..if (Pw|d[0] != |
|00005550| 27 5c 30 27 29 0a 09 09 | 66 70 72 69 6e 74 66 28 |'\0')...|fprintf(|
|00005560| 66 6f 75 74 2c 22 63 64 | 20 25 73 5c 6e 22 2c 50 |fout,"cd| %s\n",P|
|00005570| 77 64 29 3b 0a 7d 0a 0a | 2f 2a 0a 2a 2a 20 70 65 |wd);.}..|/*.** pe|
|00005580| 72 66 6f 72 6d 20 70 75 | 73 68 64 27 73 20 74 6f |rform pu|shd's to|
|00005590| 20 67 65 74 20 63 73 68 | 20 64 69 72 20 73 74 61 | get csh| dir sta|
|000055a0| 63 6b 20 6f 6e 20 6b 73 | 68 20 2d 20 6d 75 73 74 |ck on ks|h - must|
|000055b0| 20 62 65 20 70 75 73 68 | 65 64 20 69 6e 20 72 65 | be push|ed in re|
|000055c0| 76 65 72 73 65 0a 2a 2a | 20 6f 72 64 65 72 2e 20 |verse.**| order. |
|000055d0| 20 48 61 76 69 6e 67 20 | 61 20 6c 69 6d 69 74 20 | Having |a limit |
|000055e0| 62 75 69 6c 74 20 69 6e | 20 69 73 20 68 61 72 64 |built in| is hard|
|000055f0| 6c 79 20 65 6c 65 67 61 | 6e 74 2c 20 62 75 74 20 |ly elega|nt, but |
|00005600| 69 6e 20 70 72 61 63 74 | 69 63 61 6c 0a 2a 2a 20 |in pract|ical.** |
|00005610| 74 65 72 6d 73 2c 20 69 | 74 73 20 68 61 72 64 20 |terms, i|ts hard |
|00005620| 74 6f 20 69 6d 61 67 69 | 6e 65 20 64 69 72 65 63 |to imagi|ne direc|
|00005630| 74 6f 72 79 20 73 74 61 | 63 6b 73 20 62 65 69 6e |tory sta|cks bein|
|00005640| 67 20 75 73 65 66 75 6c | 20 61 66 74 65 72 20 67 |g useful| after g|
|00005650| 65 74 74 69 6e 67 0a 2a | 2a 20 70 61 73 74 20 61 |etting.*|* past a|
|00005660| 20 66 65 77 20 64 69 72 | 65 63 74 6f 72 69 65 73 | few dir|ectories|
|00005670| 20 64 65 65 70 2e 20 20 | 50 6c 75 73 2c 20 61 20 | deep. |Plus, a |
|00005680| 72 61 74 68 65 72 20 6c | 61 72 67 65 20 6c 69 6d |rather l|arge lim|
|00005690| 69 74 20 69 73 20 63 68 | 65 61 70 20 69 6e 20 74 |it is ch|eap in t|
|000056a0| 65 72 6d 73 0a 2a 2a 20 | 73 74 6f 72 61 67 65 2e |erms.** |storage.|
|000056b0| 0a 2a 2f 0a 73 74 61 74 | 69 63 0a 64 69 72 5f 6c |.*/.stat|ic.dir_l|
|000056c0| 69 73 74 28 73 2c 66 29 | 0a 63 68 61 72 20 2a 73 |ist(s,f)|.char *s|
|000056d0| 3b 0a 46 49 4c 45 20 2a | 66 3b 0a 7b 0a 09 63 68 |;.FILE *|f;.{..ch|
|000056e0| 61 72 20 2a 70 74 72 3b | 0a 09 63 68 61 72 20 2a |ar *ptr;|..char *|
|000056f0| 73 74 72 74 6f 6b 28 29 | 3b 0a 09 63 68 61 72 20 |strtok()|;..char |
|00005700| 2a 64 69 72 5b 44 49 52 | 44 45 50 54 48 5d 3b 0a |*dir[DIR|DEPTH];.|
|00005710| 09 69 6e 74 20 6e 75 6d | 64 69 72 3b 0a 0a 09 2f |.int num|dir;.../|
|00005720| 2a 0a 09 2a 2a 20 66 69 | 72 73 74 20 69 74 65 6d |*..** fi|rst item|
|00005730| 20 69 73 20 70 77 64 2e | 20 20 49 66 20 77 65 20 | is pwd.| If we |
|00005740| 68 61 76 65 6e 27 74 20 | 73 65 74 20 74 68 69 73 |haven't |set this|
|00005750| 20 62 65 63 61 75 73 65 | 20 6f 66 20 61 20 70 72 | because| of a pr|
|00005760| 69 6f 72 0a 09 2a 2a 20 | 73 65 74 74 69 6e 67 20 |ior..** |setting |
|00005770| 28 6c 69 6b 65 20 22 63 | 77 64 22 20 69 6e 20 61 |(like "c|wd" in a|
|00005780| 20 2b 53 20 73 65 63 74 | 69 6f 6e 29 2c 20 64 6f | +S sect|ion), do|
|00005790| 20 73 6f 2e 0a 09 2a 2f | 0a 09 70 74 72 20 3d 20 | so...*/|..ptr = |
|000057a0| 73 74 72 74 6f 6b 28 73 | 2c 22 20 22 29 3b 0a 09 |strtok(s|," ");..|
|000057b0| 69 66 20 28 70 74 72 20 | 21 3d 20 4e 55 4c 4c 20 |if (ptr |!= NULL |
|000057c0| 26 26 20 50 77 64 5b 30 | 5d 20 3d 3d 20 27 5c 30 |&& Pwd[0|] == '\0|
|000057d0| 27 29 0a 09 09 73 74 72 | 63 70 79 28 50 77 64 2c |')...str|cpy(Pwd,|
|000057e0| 70 74 72 29 3b 0a 0a 09 | 6e 75 6d 64 69 72 20 3d |ptr);...|numdir =|
|000057f0| 20 30 3b 0a 09 66 6f 72 | 20 28 70 74 72 20 3d 20 | 0;..for| (ptr = |
|00005800| 73 74 72 74 6f 6b 28 4e | 55 4c 4c 2c 22 20 22 29 |strtok(N|ULL," ")|
|00005810| 3b 20 70 74 72 20 21 3d | 20 4e 55 4c 4c 3b 20 70 |; ptr !=| NULL; p|
|00005820| 74 72 20 3d 20 73 74 72 | 74 6f 6b 28 4e 55 4c 4c |tr = str|tok(NULL|
|00005830| 2c 22 20 22 29 29 0a 09 | 7b 0a 09 09 69 66 20 28 |," "))..|{...if (|
|00005840| 6e 75 6d 64 69 72 20 3e | 3d 20 44 49 52 44 45 50 |numdir >|= DIRDEP|
|00005850| 54 48 29 0a 09 09 7b 0a | 09 09 09 64 69 61 67 6e |TH)...{.|...diagn|
|00005860| 6f 73 74 69 63 28 22 64 | 69 72 65 63 74 6f 72 79 |ostic("d|irectory|
|00005870| 20 73 74 61 63 6b 20 74 | 6f 6f 20 64 65 65 70 20 | stack t|oo deep |
|00005880| 2d 20 74 72 75 6e 63 61 | 74 69 6e 67 22 29 3b 0a |- trunca|ting");.|
|00005890| 09 09 09 62 72 65 61 6b | 3b 0a 09 09 7d 0a 09 09 |...break|;...}...|
|000058a0| 64 69 72 5b 6e 75 6d 64 | 69 72 5d 20 3d 20 70 74 |dir[numd|ir] = pt|
|000058b0| 72 3b 0a 09 09 2b 2b 6e | 75 6d 64 69 72 3b 0a 09 |r;...++n|umdir;..|
|000058c0| 7d 0a 0a 09 2f 2a 0a 09 | 2a 2a 20 70 75 73 68 20 |}.../*..|** push |
|000058d0| 69 6e 20 72 65 76 65 72 | 73 65 20 6f 72 64 65 72 |in rever|se order|
|000058e0| 20 74 6f 20 67 65 74 20 | 6f 6e 74 6f 20 6b 73 68 | to get |onto ksh|
|000058f0| 20 73 74 61 63 6b 0a 09 | 2a 2a 20 57 65 20 61 73 | stack..|** We as|
|00005900| 73 75 6d 65 20 70 75 73 | 68 64 20 68 61 6e 64 6c |sume pus|hd handl|
|00005910| 65 73 20 7e 20 6e 6f 74 | 61 74 69 6f 6e 2e 20 20 |es ~ not|ation. |
|00005920| 41 73 20 6c 6f 6e 67 20 | 61 73 20 63 73 68 20 73 |As long |as csh s|
|00005930| 65 74 0a 09 2a 2a 20 63 | 6f 6d 6d 61 6e 64 20 69 |et..** c|ommand i|
|00005940| 73 20 70 72 6f 63 65 73 | 73 65 64 20 62 65 66 6f |s proces|sed befo|
|00005950| 72 65 20 64 69 72 65 63 | 74 6f 72 79 20 73 74 61 |re direc|tory sta|
|00005960| 63 6b 2c 20 63 68 61 6e | 67 65 73 20 6f 66 0a 09 |ck, chan|ges of..|
|00005970| 2a 2a 20 48 4f 4d 45 20 | 77 69 6c 6c 20 61 6c 73 |** HOME |will als|
|00005980| 6f 20 62 65 20 74 61 6b | 65 6e 20 63 61 72 65 20 |o be tak|en care |
|00005990| 6f 66 2e 0a 09 2a 2f 0a | 09 66 6f 72 20 28 2d 2d |of...*/.|.for (--|
|000059a0| 6e 75 6d 64 69 72 3b 20 | 6e 75 6d 64 69 72 20 3e |numdir; |numdir >|
|000059b0| 3d 20 30 3b 20 2d 2d 6e | 75 6d 64 69 72 29 0a 09 |= 0; --n|umdir)..|
|000059c0| 09 66 70 72 69 6e 74 66 | 20 28 66 2c 22 25 73 20 |.fprintf| (f,"%s |
|000059d0| 25 73 5c 6e 22 2c 50 75 | 73 68 64 2c 64 69 72 5b |%s\n",Pu|shd,dir[|
|000059e0| 6e 75 6d 64 69 72 5d 29 | 3b 0a 7d 0a 0a 2f 2a 0a |numdir])|;.}../*.|
|000059f0| 2a 2a 20 68 61 6e 64 6c | 65 20 61 20 63 73 68 20 |** handl|e a csh |
|00005a00| 61 6c 69 61 73 0a 2a 2f | 0a 73 74 61 74 69 63 0a |alias.*/|.static.|
|00005a10| 61 6c 5f 70 61 72 73 65 | 28 6e 61 6d 65 2c 63 64 |al_parse|(name,cd|
|00005a20| 65 66 2c 66 29 0a 63 68 | 61 72 20 2a 6e 61 6d 65 |ef,f).ch|ar *name|
|00005a30| 3b 0a 63 68 61 72 20 2a | 63 64 65 66 3b 0a 46 49 |;.char *|cdef;.FI|
|00005a40| 4c 45 20 2a 66 3b 0a 7b | 0a 09 69 6e 74 20 77 61 |LE *f;.{|..int wa|
|00005a50| 6e 74 66 75 6e 63 3b 0a | 09 63 68 61 72 20 6b 64 |ntfunc;.|.char kd|
|00005a60| 65 66 5b 42 49 47 42 55 | 46 46 45 52 5d 3b 0a 0a |ef[BIGBU|FFER];..|
|00005a70| 09 69 66 20 28 21 20 61 | 6c 5f 78 6c 6e 28 63 64 |.if (! a|l_xln(cd|
|00005a80| 65 66 2c 20 6b 64 65 66 | 2c 20 26 77 61 6e 74 66 |ef, kdef|, &wantf|
|00005a90| 75 6e 63 29 29 0a 09 7b | 0a 09 09 2f 2a 0a 09 09 |unc))..{|.../*...|
|00005aa0| 2a 2a 20 65 78 70 6c 69 | 63 69 74 20 64 69 61 67 |** expli|cit diag|
|00005ab0| 6e 6f 73 74 69 63 20 66 | 6f 72 20 66 69 72 73 74 |nostic f|or first|
|00005ac0| 20 65 72 72 6f 72 20 77 | 69 6c 6c 20 68 61 76 65 | error w|ill have|
|00005ad0| 20 61 6c 73 6f 0a 09 09 | 2a 2a 20 62 65 65 6e 20 | also...|** been |
|00005ae0| 70 72 6f 64 75 63 65 64 | 2e 0a 09 09 2a 2f 0a 09 |produced|....*/..|
|00005af0| 09 64 69 61 67 6e 6f 73 | 74 69 63 28 22 41 4c 49 |.diagnos|tic("ALI|
|00005b00| 41 53 20 25 73 3d 5c 22 | 25 73 5c 22 20 63 61 6e |AS %s=\"|%s\" can|
|00005b10| 27 74 20 62 65 20 74 72 | 61 6e 73 6c 61 74 65 64 |'t be tr|anslated|
|00005b20| 5c 6e 22 2c 6e 61 6d 65 | 2c 63 64 65 66 29 3b 0a |\n",name|,cdef);.|
|00005b30| 09 09 72 65 74 75 72 6e | 3b 0a 09 7d 0a 0a 09 69 |..return|;..}...i|
|00005b40| 66 20 28 77 61 6e 74 66 | 75 6e 63 29 0a 09 09 66 |f (wantf|unc)...f|
|00005b50| 70 72 69 6e 74 66 28 66 | 2c 22 66 75 6e 63 74 69 |printf(f|,"functi|
|00005b60| 6f 6e 20 25 73 5c 6e 7b | 5c 6e 5c 74 25 73 5c 6e |on %s\n{|\n\t%s\n|
|00005b70| 7d 5c 6e 22 2c 6e 61 6d | 65 2c 6b 64 65 66 29 3b |}\n",nam|e,kdef);|
|00005b80| 0a 09 65 6c 73 65 0a 09 | 7b 0a 09 09 66 70 72 69 |..else..|{...fpri|
|00005b90| 6e 74 66 28 66 2c 22 61 | 6c 69 61 73 20 25 73 3d |ntf(f,"a|lias %s=|
|00005ba0| 5c 22 22 2c 6e 61 6d 65 | 29 3b 0a 09 09 64 71 5f |\"",name|);...dq_|
|00005bb0| 6f 75 74 28 66 2c 6b 64 | 65 66 29 3b 0a 09 09 66 |out(f,kd|ef);...f|
|00005bc0| 70 72 69 6e 74 66 28 66 | 2c 22 5c 22 5c 6e 22 29 |printf(f|,"\"\n")|
|00005bd0| 3b 0a 09 7d 0a 7d 0a 0a | 2f 2a 0a 2a 2a 20 74 72 |;..}.}..|/*.** tr|
|00005be0| 61 6e 73 6c 61 74 65 20 | 73 75 62 73 65 74 20 6f |anslate |subset o|
|00005bf0| 66 20 63 73 68 20 61 6c | 69 61 73 20 73 79 6e 74 |f csh al|ias synt|
|00005c00| 61 78 20 69 6e 74 6f 20 | 6b 73 68 2e 20 20 49 66 |ax into |ksh. If|
|00005c10| 20 61 72 67 75 6d 65 6e | 74 73 20 6f 72 20 71 75 | argumen|ts or qu|
|00005c20| 6f 74 65 73 0a 2a 2a 20 | 61 72 65 20 72 65 71 75 |otes.** |are requ|
|00005c30| 69 72 65 64 2c 20 72 65 | 74 75 72 6e 65 64 20 66 |ired, re|turned f|
|00005c40| 6c 61 67 20 69 73 20 54 | 52 55 45 2c 20 69 6e 64 |lag is T|RUE, ind|
|00005c50| 69 63 61 74 69 6e 67 20 | 6e 65 65 64 20 74 6f 20 |icating |need to |
|00005c60| 64 65 66 69 6e 65 20 61 | 20 66 75 6e 63 74 69 6f |define a| functio|
|00005c70| 6e 0a 2a 2a 20 72 61 74 | 68 65 72 20 74 68 61 6e |n.** rat|her than|
|00005c80| 20 61 6e 20 61 6c 69 61 | 73 2e 20 20 44 69 61 67 | an alia|s. Diag|
|00005c90| 6e 6f 73 74 69 63 73 20 | 70 72 6f 64 75 63 65 64 |nostics |produced|
|00005ca0| 20 62 65 66 6f 72 65 20 | 65 72 72 6f 72 20 72 65 | before |error re|
|00005cb0| 74 75 72 6e 73 2e 0a 2a | 2f 0a 73 74 61 74 69 63 |turns..*|/.static|
|00005cc0| 0a 61 6c 5f 78 6c 6e 28 | 69 6e 2c 6f 75 74 2c 66 |.al_xln(|in,out,f|
|00005cd0| 6c 61 67 29 0a 63 68 61 | 72 20 2a 69 6e 2c 20 2a |lag).cha|r *in, *|
|00005ce0| 6f 75 74 3b 0a 69 6e 74 | 20 2a 66 6c 61 67 3b 0a |out;.int| *flag;.|
|00005cf0| 7b 0a 09 63 68 61 72 20 | 2a 69 6e 64 65 78 3b 0a |{..char |*index;.|
|00005d00| 09 69 6e 74 20 69 73 63 | 61 6e 3b 0a 0a 09 69 66 |.int isc|an;...if|
|00005d10| 20 28 2a 69 6e 20 3d 3d | 20 27 28 27 29 0a 09 09 | (*in ==| '(')...|
|00005d20| 2b 2b 69 6e 3b 0a 0a 09 | 2a 66 6c 61 67 20 3d 20 |++in;...|*flag = |
|00005d30| 30 3b 0a 0a 09 66 6f 72 | 20 28 3b 20 2a 69 6e 20 |0;...for| (; *in |
|00005d40| 21 3d 20 27 5c 30 27 3b | 20 2b 2b 69 6e 29 0a 09 |!= '\0';| ++in)..|
|00005d50| 7b 0a 09 09 73 77 69 74 | 63 68 28 2a 69 6e 29 0a |{...swit|ch(*in).|
|00005d60| 09 09 7b 0a 0a 09 09 2f | 2a 0a 09 09 2a 2a 20 74 |..{..../|*...** t|
|00005d70| 61 6b 65 20 63 61 72 65 | 20 6f 66 20 63 73 68 20 |ake care| of csh |
|00005d80| 6c 65 76 65 6c 20 6f 66 | 20 62 61 63 6b 73 6c 61 |level of| backsla|
|00005d90| 73 68 69 6e 67 0a 09 09 | 2a 2a 20 66 6f 72 20 6c |shing...|** for l|
|00005da0| 69 74 65 72 61 6c 20 21 | 27 73 2c 20 65 74 63 2e |iteral !|'s, etc.|
|00005db0| 0a 09 09 2a 2f 0a 09 09 | 63 61 73 65 20 27 5c 5c |...*/...|case '\\|
|00005dc0| 27 3a 0a 09 09 09 2b 2b | 69 6e 3b 0a 09 09 09 69 |':....++|in;....i|
|00005dd0| 66 20 28 2a 69 6e 20 3d | 3d 20 27 5c 30 27 29 0a |f (*in =|= '\0').|
|00005de0| 09 09 09 7b 0a 09 09 09 | 09 64 69 61 67 6e 6f 73 |...{....|.diagnos|
|00005df0| 74 69 63 28 22 54 72 61 | 69 6c 69 6e 67 20 62 61 |tic("Tra|iling ba|
|00005e00| 63 6b 73 6c 61 73 68 22 | 29 3b 0a 09 09 09 09 72 |ckslash"|);.....r|
|00005e10| 65 74 75 72 6e 20 28 30 | 29 3b 0a 09 09 09 7d 0a |eturn (0|);....}.|
|00005e20| 09 09 09 73 70 72 69 6e | 74 66 28 6f 75 74 2c 22 |...sprin|tf(out,"|
|00005e30| 5c 5c 25 63 22 2c 20 2a | 69 6e 29 3b 0a 09 09 09 |\\%c", *|in);....|
|00005e40| 6f 75 74 20 2b 3d 20 32 | 3b 0a 09 09 09 62 72 65 |out += 2|;....bre|
|00005e50| 61 6b 3b 0a 0a 09 09 2f | 2a 0a 09 09 2a 2a 20 63 |ak;..../|*...** c|
|00005e60| 73 68 20 6d 65 74 61 2d | 73 79 6e 74 61 78 0a 09 |sh meta-|syntax..|
|00005e70| 09 2a 2f 0a 09 09 63 61 | 73 65 20 27 21 27 3a 0a |.*/...ca|se '!':.|
|00005e80| 09 09 09 2a 66 6c 61 67 | 20 3d 20 31 3b 0a 09 09 |...*flag| = 1;...|
|00005e90| 09 69 66 20 28 28 69 73 | 63 61 6e 20 3d 20 6d 65 |.if ((is|can = me|
|00005ea0| 74 61 28 69 6e 2b 31 2c | 6f 75 74 29 29 20 3c 3d |ta(in+1,|out)) <=|
|00005eb0| 20 30 29 0a 09 09 09 09 | 72 65 74 75 72 6e 20 28 | 0).....|return (|
|00005ec0| 30 29 3b 0a 09 09 09 69 | 6e 20 2b 3d 20 69 73 63 |0);....i|n += isc|
|00005ed0| 61 6e 3b 0a 09 09 09 6f | 75 74 20 2b 3d 20 73 74 |an;....o|ut += st|
|00005ee0| 72 6c 65 6e 28 6f 75 74 | 29 3b 0a 09 09 09 62 72 |rlen(out|);....br|
|00005ef0| 65 61 6b 3b 0a 0a 09 09 | 2f 2a 0a 09 09 2a 2a 20 |eak;....|/*...** |
|00005f00| 73 65 74 20 66 6c 61 67 | 20 66 6f 72 20 64 6f 75 |set flag| for dou|
|00005f10| 62 6c 65 20 6f 72 20 73 | 69 6e 67 6c 65 20 71 75 |ble or s|ingle qu|
|00005f20| 6f 74 65 20 65 73 63 61 | 70 69 6e 67 0a 09 09 2a |ote esca|ping...*|
|00005f30| 2f 0a 09 09 63 61 73 65 | 20 27 22 27 3a 0a 09 09 |/...case| '"':...|
|00005f40| 63 61 73 65 20 27 5c 27 | 27 3a 0a 09 09 09 2a 66 |case '\'|':....*f|
|00005f50| 6c 61 67 20 3d 20 31 3b | 09 2f 2a 20 66 61 6c 6c |lag = 1;|./* fall|
|00005f60| 20 74 68 72 6f 75 67 68 | 20 2a 2f 0a 0a 09 09 64 | through| */....d|
|00005f70| 65 66 61 75 6c 74 3a 0a | 09 09 09 2a 6f 75 74 20 |efault:.|...*out |
|00005f80| 3d 20 2a 69 6e 3b 0a 09 | 09 09 2b 2b 6f 75 74 3b |= *in;..|..++out;|
|00005f90| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 7d 0a 09 |....brea|k;...}..|
|00005fa0| 7d 0a 0a 09 69 66 20 28 | 6f 75 74 5b 2d 31 5d 20 |}...if (|out[-1] |
|00005fb0| 3d 3d 20 27 29 27 29 0a | 09 09 2d 2d 6f 75 74 3b |== ')').|..--out;|
|00005fc0| 0a 09 2a 6f 75 74 20 3d | 20 27 5c 30 27 3b 0a 09 |..*out =| '\0';..|
|00005fd0| 72 65 74 75 72 6e 20 28 | 31 29 3b 0a 7d 0a 0a 2f |return (|1);.}../|
|00005fe0| 2a 0a 2a 2a 20 74 72 61 | 6e 73 6c 61 74 65 73 20 |*.** tra|nslates |
|00005ff0| 77 68 61 74 20 63 73 68 | 20 6d 65 74 61 2d 73 79 |what csh| meta-sy|
|00006000| 6e 74 61 78 20 63 61 6e | 20 62 65 20 74 72 61 6e |ntax can| be tran|
|00006010| 73 6c 61 74 65 64 2e 20 | 20 52 65 74 75 72 6e 73 |slated. | Returns|
|00006020| 20 6e 75 6d 62 65 72 0a | 2a 2a 20 6f 66 20 63 68 | number.|** of ch|
|00006030| 61 72 61 63 74 65 72 73 | 20 73 63 61 6e 6e 65 64 |aracters| scanned|
|00006040| 20 66 72 6f 6d 20 69 6e | 70 75 74 2c 20 30 20 66 | from in|put, 0 f|
|00006050| 6f 72 20 75 6e 74 72 61 | 6e 73 6c 61 74 61 62 6c |or untra|nslatabl|
|00006060| 65 20 6d 65 74 61 63 68 | 61 72 61 63 74 65 72 73 |e metach|aracters|
|00006070| 0a 2a 2a 20 44 69 61 67 | 6e 6f 73 74 69 63 73 20 |.** Diag|nostics |
|00006080| 70 72 6f 64 75 63 65 64 | 20 61 74 20 70 6f 69 6e |produced| at poin|
|00006090| 74 20 6f 66 20 64 69 73 | 63 65 72 6e 69 6e 67 20 |t of dis|cerning |
|000060a0| 65 72 72 6f 72 2e 0a 2a | 2f 0a 73 74 61 74 69 63 |error..*|/.static|
|000060b0| 0a 6d 65 74 61 28 69 6e | 2c 62 75 66 29 0a 63 68 |.meta(in|,buf).ch|
|000060c0| 61 72 20 2a 69 6e 3b 0a | 63 68 61 72 20 2a 62 75 |ar *in;.|char *bu|
|000060d0| 66 3b 0a 7b 0a 09 69 6e | 74 20 61 31 2c 20 61 32 |f;.{..in|t a1, a2|
|000060e0| 3b 0a 09 69 6e 74 20 6c | 65 6e 3b 0a 0a 09 73 77 |;..int l|en;...sw|
|000060f0| 69 74 63 68 20 28 2a 69 | 6e 29 0a 09 7b 0a 09 63 |itch (*i|n)..{..c|
|00006100| 61 73 65 20 27 2a 27 3a | 0a 09 09 73 74 72 63 70 |ase '*':|...strcp|
|00006110| 79 28 62 75 66 2c 22 24 | 2a 22 29 3b 0a 09 09 72 |y(buf,"$|*");...r|
|00006120| 65 74 75 72 6e 20 28 31 | 29 3b 0a 09 63 61 73 65 |eturn (1|);..case|
|00006130| 20 27 5e 27 3a 0a 09 09 | 73 74 72 63 70 79 28 62 | '^':...|strcpy(b|
|00006140| 75 66 2c 22 24 31 22 29 | 3b 0a 09 09 72 65 74 75 |uf,"$1")|;...retu|
|00006150| 72 6e 20 28 31 29 3b 0a | 09 63 61 73 65 20 27 3a |rn (1);.|.case ':|
|00006160| 27 3a 0a 09 09 2b 2b 69 | 6e 3b 0a 09 09 6c 65 6e |':...++i|n;...len|
|00006170| 20 3d 20 32 3b 0a 09 09 | 73 77 69 74 63 68 28 2a | = 2;...|switch(*|
|00006180| 69 6e 29 0a 09 09 7b 0a | 09 09 63 61 73 65 20 27 |in)...{.|..case '|
|00006190| 2a 27 3a 0a 09 09 09 73 | 74 72 63 70 79 28 62 75 |*':....s|trcpy(bu|
|000061a0| 66 2c 22 24 2a 22 29 3b | 0a 09 09 09 72 65 74 75 |f,"$*");|....retu|
|000061b0| 72 6e 20 28 32 29 3b 0a | 09 09 63 61 73 65 20 27 |rn (2);.|..case '|
|000061c0| 5e 27 3a 0a 09 09 09 61 | 31 20 3d 20 31 3b 0a 09 |^':....a|1 = 1;..|
|000061d0| 09 09 62 72 65 61 6b 3b | 0a 09 09 63 61 73 65 20 |..break;|...case |
|000061e0| 27 2d 27 3a 0a 09 09 09 | 61 31 20 3d 20 30 3b 0a |'-':....|a1 = 0;.|
|000061f0| 09 09 09 2d 2d 69 6e 3b | 0a 09 09 09 6c 65 6e 20 |...--in;|....len |
|00006200| 3d 20 31 3b 0a 09 09 09 | 62 72 65 61 6b 3b 0a 09 |= 1;....|break;..|
|00006210| 09 64 65 66 61 75 6c 74 | 3a 0a 0a 09 09 09 2f 2a |.default|:...../*|
|00006220| 0a 09 09 09 2a 2a 20 6f | 6e 6c 79 20 68 61 6e 64 |....** o|nly hand|
|00006230| 6c 65 20 6e 75 6d 65 72 | 69 63 20 70 61 72 61 6d |le numer|ic param|
|00006240| 65 74 65 72 73 20 30 20 | 2d 20 39 2e 0a 09 09 09 |eters 0 |- 9.....|
|00006250| 2a 2f 0a 09 09 09 69 66 | 20 28 69 73 64 69 67 69 |*/....if| (isdigi|
|00006260| 74 28 2a 69 6e 29 29 0a | 09 09 09 7b 0a 09 09 09 |t(*in)).|...{....|
|00006270| 09 69 66 20 28 69 73 64 | 69 67 69 74 28 69 6e 5b |.if (isd|igit(in[|
|00006280| 31 5d 29 29 0a 09 09 09 | 09 7b 0a 09 09 09 09 09 |1]))....|.{......|
|00006290| 64 69 61 67 6e 6f 73 74 | 69 63 28 22 50 61 72 61 |diagnost|ic("Para|
|000062a0| 6d 65 74 65 72 20 6f 75 | 74 20 6f 66 20 72 61 6e |meter ou|t of ran|
|000062b0| 67 65 22 29 3b 0a 09 09 | 09 09 09 72 65 74 75 72 |ge");...|...retur|
|000062c0| 6e 28 30 29 3b 0a 09 09 | 09 09 7d 0a 09 09 09 09 |n(0);...|..}.....|
|000062d0| 61 31 20 3d 20 2a 69 6e | 20 2d 20 27 30 27 3b 0a |a1 = *in| - '0';.|
|000062e0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 09 7d 0a |....brea|k;....}.|
|000062f0| 09 09 09 64 69 61 67 6e | 6f 73 74 69 63 28 22 4e |...diagn|ostic("N|
|00006300| 6f 6e 2d 6e 75 6d 65 72 | 69 63 20 27 25 63 27 20 |on-numer|ic '%c' |
|00006310| 66 6f 6c 6c 6f 77 69 6e | 67 20 27 3a 27 22 2c 20 |followin|g ':'", |
|00006320| 2a 69 6e 29 3b 0a 09 09 | 09 72 65 74 75 72 6e 20 |*in);...|.return |
|00006330| 28 30 29 3b 0a 09 09 7d | 0a 09 09 62 72 65 61 6b |(0);...}|...break|
|00006340| 3b 0a 09 64 65 66 61 75 | 6c 74 3a 0a 09 09 64 69 |;..defau|lt:...di|
|00006350| 61 67 6e 6f 73 74 69 63 | 28 22 55 6e 6b 6e 6f 77 |agnostic|("Unknow|
|00006360| 6e 20 6d 65 74 61 63 68 | 61 72 61 63 74 65 72 20 |n metach|aracter |
|00006370| 27 25 63 27 22 2c 2a 69 | 6e 29 3b 0a 09 09 72 65 |'%c'",*i|n);...re|
|00006380| 74 75 72 6e 20 28 30 29 | 3b 0a 09 7d 0a 0a 09 2f |turn (0)|;..}.../|
|00006390| 2a 0a 09 2a 2a 20 6f 6e | 6c 79 20 74 68 65 20 3a |*..** on|ly the :|
|000063a0| 20 63 61 73 65 20 67 65 | 74 73 20 68 65 72 65 20 | case ge|ts here |
|000063b0| 2d 20 61 31 20 69 73 20 | 73 65 74 20 74 6f 20 6e |- a1 is |set to n|
|000063c0| 75 6d 62 65 72 2c 20 6c | 65 6e 20 74 6f 0a 09 2a |umber, l|en to..*|
|000063d0| 2a 20 70 61 72 73 65 64 | 20 63 68 61 72 61 63 74 |* parsed| charact|
|000063e0| 65 72 20 63 6f 75 6e 74 | 2e 20 20 57 65 20 6e 6f |er count|. We no|
|000063f0| 77 20 68 61 6e 64 6c 65 | 20 72 61 6e 67 65 73 2e |w handle| ranges.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
