home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8710 / 16 < prev    next >
SHell self-extracting ARchive  |  1990-07-13  |  3.9 KB

view JSON data     |     view as text     |     open on a Mac     |     open on a PC

This file was processed as: SHell self-extracting ARchive (archive/shar).

You can browse this item here: 16

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Newsgroup Content (archive/news) magic Supported
100% dexvert SHell self-extracting ARchive (archive/shar) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file news text default
99% file awk or perl script, ASCII text default
100% checkBytes Printable ASCII default
100% dexmagic PrintFox/Pagefox WEAK default
100% perlTextCheck Likely Text (Perl) default
100% siegfried fmt/329 Shell Archive Format default
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime message/news default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 68 75 73 63 |Path: uu|net!husc|
|00000010| 36 21 6e 65 63 6e 74 63 | 21 6e 63 6f 61 73 74 21 |6!necntc|!ncoast!|
|00000020| 61 6c 6c 62 65 72 79 0a | 46 72 6f 6d 3a 20 70 5f |allbery.|From: p_|
|00000030| 65 40 6f 62 65 6c 69 78 | 2e 6c 69 75 2e 73 65 2e |e@obelix|.liu.se.|
|00000040| 55 55 43 50 20 28 50 7b | 72 20 45 6d 61 6e 75 65 |UUCP (P{|r Emanue|
|00000050| 6c 73 73 6f 6e 29 0a 4e | 65 77 73 67 72 6f 75 70 |lsson).N|ewsgroup|
|00000060| 73 3a 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e |s: comp.|sources.|
|00000070| 6d 69 73 63 0a 53 75 62 | 6a 65 63 74 3a 20 77 70 |misc.Sub|ject: wp|
|00000080| 73 68 61 6c 66 20 2d 20 | 27 70 73 68 61 6c 66 27 |shalf - |'pshalf'|
|00000090| 20 66 6f 72 20 49 6e 74 | 65 72 6c 65 61 66 27 73 | for Int|erleaf's|
|000000a0| 20 77 70 73 0a 4d 65 73 | 73 61 67 65 2d 49 44 3a | wps.Mes|sage-ID:|
|000000b0| 20 3c 34 39 31 35 40 6e | 63 6f 61 73 74 2e 55 55 | <4915@n|coast.UU|
|000000c0| 43 50 3e 0a 44 61 74 65 | 3a 20 32 31 20 4f 63 74 |CP>.Date|: 21 Oct|
|000000d0| 20 38 37 20 30 33 3a 30 | 36 3a 30 36 20 47 4d 54 | 87 03:0|6:06 GMT|
|000000e0| 0a 53 65 6e 64 65 72 3a | 20 61 6c 6c 62 65 72 79 |.Sender:| allbery|
|000000f0| 40 6e 63 6f 61 73 74 2e | 55 55 43 50 0a 4c 69 6e |@ncoast.|UUCP.Lin|
|00000100| 65 73 3a 20 31 30 37 0a | 41 70 70 72 6f 76 65 64 |es: 107.|Approved|
|00000110| 3a 20 61 6c 6c 62 65 72 | 79 40 6e 63 6f 61 73 74 |: allber|y@ncoast|
|00000120| 2e 55 55 43 50 0a 58 2d | 41 72 63 68 69 76 65 3a |.UUCP.X-|Archive:|
|00000130| 20 63 6f 6d 70 2e 73 6f | 75 72 63 65 73 2e 6d 69 | comp.so|urces.mi|
|00000140| 73 63 2f 38 37 31 30 2f | 31 36 0a 0a 48 69 21 0a |sc/8710/|16..Hi!.|
|00000150| 54 68 69 73 20 69 73 20 | 61 20 73 75 62 6d 69 73 |This is |a submis|
|00000160| 73 69 6f 6e 20 66 6f 72 | 20 63 6f 6d 70 2e 73 6f |sion for| comp.so|
|00000170| 75 72 63 65 73 2e 6d 69 | 73 63 2e 20 4d 61 79 62 |urces.mi|sc. Mayb|
|00000180| 65 20 74 68 69 73 20 77 | 69 6c 6c 20 62 65 20 6f |e this w|ill be o|
|00000190| 66 0a 73 6f 6d 65 20 75 | 73 65 2e 20 49 74 27 73 |f.some u|se. It's|
|000001a0| 20 61 20 73 6d 61 6c 6c | 20 72 6f 75 74 69 6e 65 | a small| routine|
|000001b0| 20 74 6f 20 64 6f 20 74 | 68 65 20 73 61 6d 65 20 | to do t|he same |
|000001c0| 74 68 69 6e 67 20 61 73 | 20 74 68 65 20 70 72 65 |thing as| the pre|
|000001d0| 76 69 6f 75 73 6c 79 0a | 70 6f 73 74 65 64 20 22 |viously.|posted "|
|000001e0| 70 73 68 61 6c 66 22 2c | 20 62 75 74 20 66 6f 72 |pshalf",| but for|
|000001f0| 20 49 6e 74 65 72 6c 65 | 61 66 27 73 20 77 70 73 | Interle|af's wps|
|00000200| 20 73 6f 66 74 77 61 72 | 65 20 77 69 74 68 20 50 | softwar|e with P|
|00000210| 6f 73 74 73 63 72 69 70 | 74 0a 6f 75 74 70 75 74 |ostscrip|t.output|
|00000220| 2e 20 53 69 6e 63 65 20 | 77 70 73 27 73 20 50 6f |. Since |wps's Po|
|00000230| 73 74 73 63 72 69 70 74 | 20 6f 75 74 70 75 74 20 |stscript| output |
|00000240| 69 73 20 61 62 6f 75 74 | 20 61 73 20 66 61 72 20 |is about| as far |
|00000250| 61 73 20 79 6f 75 20 63 | 61 6e 20 67 65 74 0a 66 |as you c|an get.f|
|00000260| 72 6f 6d 20 22 6d 69 6e | 69 6d 61 6c 6c 79 20 63 |rom "min|imally c|
|00000270| 6f 6e 66 6f 72 6d 69 6e | 67 22 20 49 20 68 61 64 |onformin|g" I had|
|00000280| 20 74 6f 20 65 78 70 65 | 72 69 6d 65 6e 74 20 74 | to expe|riment t|
|00000290| 6f 20 67 65 74 20 74 68 | 69 73 20 74 6f 20 77 6f |o get th|is to wo|
|000002a0| 72 6b 2e 0a 4e 61 74 75 | 72 61 6c 6c 79 2c 20 74 |rk..Natu|rally, t|
|000002b0| 68 65 20 6f 75 70 75 74 | 20 71 75 61 6c 69 74 79 |he ouput| quality|
|000002c0| 20 6c 65 61 76 65 73 20 | 73 6f 6d 65 74 68 69 6e | leaves |somethin|
|000002d0| 67 20 74 6f 20 62 65 20 | 64 65 73 69 72 65 64 2c |g to be |desired,|
|000002e0| 20 62 75 74 20 69 73 0a | 73 75 66 66 69 63 69 65 | but is.|sufficie|
|000002f0| 6e 74 20 66 6f 72 20 70 | 72 6f 6f 66 20 72 65 61 |nt for p|roof rea|
|00000300| 64 69 6e 67 2e 20 53 65 | 65 20 74 68 65 20 52 45 |ding. Se|e the RE|
|00000310| 41 44 4d 45 20 66 69 6c | 65 20 66 6f 72 20 69 6e |ADME fil|e for in|
|00000320| 73 74 61 6c 6c 61 74 69 | 6f 6e 0a 69 6e 66 6f 2e |stallati|on.info.|
|00000330| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|00000340| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|00000350| 72 63 68 69 76 65 2c 20 | 6d 65 61 6e 69 6e 67 3a |rchive, |meaning:|
|00000360| 0a 23 20 31 2e 20 52 65 | 6d 6f 76 65 20 65 76 65 |.# 1. Re|move eve|
|00000370| 72 79 74 68 69 6e 67 20 | 61 62 6f 76 65 20 74 68 |rything |above th|
|00000380| 65 20 23 21 20 2f 62 69 | 6e 2f 73 68 20 6c 69 6e |e #! /bi|n/sh lin|
|00000390| 65 2e 0a 23 20 32 2e 20 | 53 61 76 65 20 74 68 65 |e..# 2. |Save the|
|000003a0| 20 72 65 73 75 6c 74 69 | 6e 67 20 74 65 78 74 20 | resulti|ng text |
|000003b0| 69 6e 20 61 20 66 69 6c | 65 2e 0a 23 20 33 2e 20 |in a fil|e..# 3. |
|000003c0| 45 78 65 63 75 74 65 20 | 74 68 65 20 66 69 6c 65 |Execute |the file|
|000003d0| 20 77 69 74 68 20 2f 62 | 69 6e 2f 73 68 20 28 6e | with /b|in/sh (n|
|000003e0| 6f 74 20 63 73 68 29 20 | 74 6f 20 63 72 65 61 74 |ot csh) |to creat|
|000003f0| 65 3a 0a 23 09 52 45 41 | 44 4d 45 0a 23 09 77 70 |e:.#.REA|DME.#.wp|
|00000400| 73 68 61 6c 66 0a 23 20 | 54 68 69 73 20 61 72 63 |shalf.# |This arc|
|00000410| 68 69 76 65 20 63 72 65 | 61 74 65 64 3a 20 4d 6f |hive cre|ated: Mo|
|00000420| 6e 20 4f 63 74 20 31 39 | 20 30 31 3a 35 33 3a 33 |n Oct 19| 01:53:3|
|00000430| 33 20 31 39 38 37 0a 65 | 78 70 6f 72 74 20 50 41 |3 1987.e|xport PA|
|00000440| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 2f 75 |TH; PATH|=/bin:/u|
|00000450| 73 72 2f 62 69 6e 3a 24 | 50 41 54 48 0a 69 66 20 |sr/bin:$|PATH.if |
|00000460| 74 65 73 74 20 2d 66 20 | 27 52 45 41 44 4d 45 27 |test -f |'README'|
|00000470| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00000480| 3a 20 22 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |: "will |not over|
|00000490| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|000004a0| 66 69 6c 65 20 27 52 45 | 41 44 4d 45 27 22 0a 65 |file 'RE|ADME'".e|
|000004b0| 6c 73 65 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |lse.cat |<< \SHAR|
|000004c0| 5f 45 4f 46 20 3e 20 27 | 52 45 41 44 4d 45 27 0a |_EOF > '|README'.|
|000004d0| 54 68 69 73 20 69 73 20 | 61 20 73 6d 61 6c 6c 20 |This is |a small |
|000004e0| 61 6e 64 20 73 69 6d 70 | 6c 65 20 75 74 69 6c 69 |and simp|le utili|
|000004f0| 74 79 20 66 6f 72 20 49 | 6e 74 65 72 6c 65 61 66 |ty for I|nterleaf|
|00000500| 27 73 20 77 70 73 20 73 | 6f 66 74 77 61 72 65 2e |'s wps s|oftware.|
|00000510| 0a 49 74 20 63 6f 6e 76 | 65 72 74 73 20 74 77 6f |.It conv|erts two|
|00000520| 20 70 61 67 65 73 20 74 | 6f 20 6f 6e 65 20 6f 75 | pages t|o one ou|
|00000530| 74 70 75 74 20 70 61 67 | 65 20 61 6e 64 20 77 6f |tput pag|e and wo|
|00000540| 72 6b 73 20 6f 6e 6c 79 | 20 74 6f 67 65 74 68 65 |rks only| togethe|
|00000550| 72 20 77 69 74 68 0a 74 | 68 65 20 22 70 6c 32 70 |r with.t|he "pl2p|
|00000560| 73 22 20 75 74 69 6c 69 | 74 79 2c 20 76 65 72 73 |s" utili|ty, vers|
|00000570| 69 6f 6e 20 31 2e 34 2c | 20 73 75 70 70 6c 69 65 |ion 1.4,| supplie|
|00000580| 64 20 62 79 20 49 6e 74 | 65 72 6c 65 61 66 2e 0a |d by Int|erleaf..|
|00000590| 53 69 6e 63 65 20 69 74 | 27 73 20 74 68 65 20 6f |Since it|'s the o|
|000005a0| 6e 6c 79 20 74 68 69 6e | 67 20 61 76 61 69 6c 61 |nly thin|g availa|
|000005b0| 62 6c 65 20 74 6f 20 6d | 65 20 49 20 68 61 76 65 |ble to m|e I have|
|000005c0| 20 6e 6f 20 69 64 65 61 | 20 69 66 20 74 68 69 73 | no idea| if this|
|000005d0| 0a 28 77 6f 72 6b 73 20 | 2f 20 64 6f 65 73 20 6e |.(works |/ does n|
|000005e0| 6f 74 20 77 6f 72 6b 29 | 20 66 6f 72 20 73 6f 6d |ot work)| for som|
|000005f0| 65 74 68 69 6e 67 20 65 | 6c 73 65 20 79 6f 75 20 |ething e|lse you |
|00000600| 6d 69 67 68 74 20 68 61 | 76 65 2c 20 74 68 6f 75 |might ha|ve, thou|
|00000610| 67 68 20 49 0a 77 6f 75 | 6c 64 20 62 65 20 69 6e |gh I.wou|ld be in|
|00000620| 74 65 72 65 73 74 65 64 | 20 74 6f 20 6b 6e 6f 77 |terested| to know|
|00000630| 2e 2e 2e 0a 0a 54 68 65 | 20 69 6e 73 74 61 6c 6c |.....The| install|
|00000640| 61 74 69 6f 6e 20 69 73 | 20 73 69 6d 70 6c 65 20 |ation is| simple |
|00000650| 69 66 20 79 6f 75 27 72 | 65 20 61 20 77 70 73 20 |if you'r|e a wps |
|00000660| 61 64 6d 69 6e 20 28 77 | 68 69 63 68 20 79 6f 75 |admin (w|hich you|
|00000670| 20 68 61 76 65 20 74 6f | 0a 62 65 20 3a 2d 3e 20 | have to|.be :-> |
|00000680| 29 2e 20 55 73 75 61 6c | 6c 79 20 28 49 20 74 68 |). Usual|ly (I th|
|00000690| 69 6e 6b 20 2d 20 61 74 | 20 6c 65 61 73 74 20 68 |ink - at| least h|
|000006a0| 65 72 65 21 29 20 77 70 | 73 20 69 73 20 73 65 74 |ere!) wp|s is set|
|000006b0| 20 75 70 20 74 6f 20 73 | 70 6f 6f 6c 0a 69 74 73 | up to s|pool.its|
|000006c0| 20 22 70 6c 22 20 66 69 | 6c 65 20 74 68 72 6f 75 | "pl" fi|le throu|
|000006d0| 67 68 20 73 6f 6d 65 74 | 68 69 6e 67 20 6c 69 6b |gh somet|hing lik|
|000006e0| 65 20 22 70 6c 32 70 73 | 20 7c 20 6c 70 72 20 2d |e "pl2ps| | lpr -|
|000006f0| 50 70 6f 73 74 73 63 72 | 69 70 74 22 2e 0a 43 72 |Ppostscr|ipt"..Cr|
|00000700| 65 61 74 65 20 61 6e 6f | 74 68 65 72 20 70 73 65 |eate ano|ther pse|
|00000710| 75 64 6f 20 70 72 69 6e | 74 65 72 2c 20 63 61 6c |udo prin|ter, cal|
|00000720| 6c 65 64 20 66 6f 72 20 | 65 78 61 6d 70 6c 65 20 |led for |example |
|00000730| 63 78 32 2c 20 74 68 61 | 74 0a 65 78 65 63 75 74 |cx2, tha|t.execut|
|00000740| 65 73 20 22 70 6c 32 70 | 73 20 7c 20 77 70 73 68 |es "pl2p|s | wpsh|
|00000750| 61 6c 66 20 7c 20 6c 70 | 72 20 2d 50 70 6f 73 74 |alf | lp|r -Ppost|
|00000760| 73 63 72 69 70 74 22 2e | 0a 0a 57 65 20 68 61 76 |script".|..We hav|
|00000770| 65 20 62 65 65 6e 20 61 | 6e 6e 6f 79 65 64 20 62 |e been a|nnoyed b|
|00000780| 79 20 74 68 65 20 6e 75 | 6d 65 72 6f 75 73 20 68 |y the nu|merous h|
|00000790| 65 61 64 65 72 20 70 61 | 67 65 73 20 66 6c 6f 61 |eader pa|ges floa|
|000007a0| 74 69 6e 67 20 61 72 6f | 75 6e 64 20 74 68 65 0a |ting aro|und the.|
|000007b0| 70 72 69 6e 74 65 72 2e | 20 57 65 20 64 6f 20 6b |printer.| We do k|
|000007c0| 6e 6f 77 20 77 68 6f 20 | 70 72 69 6e 74 73 20 77 |now who |prints w|
|000007d0| 68 61 74 20 61 6e 64 20 | 6e 6f 6f 6e 65 20 69 73 |hat and |noone is|
|000007e0| 20 67 6f 69 6e 67 20 74 | 6f 20 63 6f 6d 65 20 72 | going t|o come r|
|000007f0| 75 6e 6e 69 6e 67 0a 74 | 6f 20 79 6f 75 72 20 6f |unning.t|o your o|
|00000800| 66 66 69 63 65 20 77 69 | 74 68 20 79 6f 75 72 20 |ffice wi|th your |
|00000810| 70 72 69 6e 74 69 6e 67 | 73 20 61 6e 79 77 61 79 |printing|s anyway|
|00000820| 2e 20 49 66 20 79 6f 75 | 20 77 61 6e 74 20 77 70 |. If you| want wp|
|00000830| 73 68 61 6c 66 20 74 6f | 0a 73 75 70 70 72 65 73 |shalf to|.suppres|
|00000840| 73 20 74 68 65 20 68 65 | 61 64 65 72 73 2c 20 6a |s the he|aders, j|
|00000850| 75 73 74 20 75 6e 63 6f | 6d 6d 65 6e 74 20 28 72 |ust unco|mment (r|
|00000860| 65 6d 6f 76 65 20 74 68 | 65 20 22 23 22 20 69 6e |emove th|e "#" in|
|00000870| 20 66 72 6f 6e 74 20 6f | 66 29 20 0a 74 68 65 20 | front o|f) .the |
|00000880| 6c 69 6e 65 20 73 74 61 | 72 74 69 6e 67 20 77 69 |line sta|rting wi|
|00000890| 74 68 20 22 23 2f 5e 68 | 65 61 64 65 72 70 61 67 |th "#/^h|eaderpag|
|000008a0| 65 7c 5e 6c 6f 67 6d 65 | 2f 20 2e 2e 2e 22 2e 0a |e|^logme|/ ..."..|
|000008b0| 0a 77 70 73 68 61 6c 66 | 20 77 6f 72 6b 73 20 62 |.wpshalf| works b|
|000008c0| 79 20 66 69 64 64 6c 69 | 6e 67 20 77 69 74 68 20 |y fiddli|ng with |
|000008d0| 70 6c 32 70 73 27 73 20 | 73 63 61 6c 65 2c 20 68 |pl2ps's |scale, h|
|000008e0| 6f 70 65 66 75 6c 6c 79 | 20 74 68 69 73 20 77 69 |opefully| this wi|
|000008f0| 6c 6c 20 61 6c 77 61 79 | 73 0a 77 6f 72 6b 2c 20 |ll alway|s.work, |
|00000900| 65 76 65 6e 20 66 6f 72 | 20 64 69 66 66 65 72 65 |even for| differe|
|00000910| 6e 74 20 70 72 69 6e 74 | 65 72 73 2e 20 48 6f 77 |nt print|ers. How|
|00000920| 65 76 65 72 2c 20 49 27 | 6d 20 6e 6f 20 50 53 20 |ever, I'|m no PS |
|00000930| 65 78 70 65 72 74 2c 20 | 73 6f 2e 2e 2e 0a 54 68 |expert, |so....Th|
|00000940| 65 20 63 6f 72 72 65 63 | 74 20 64 69 73 74 61 6e |e correc|t distan|
|00000950| 63 65 73 20 66 6f 72 20 | 74 72 61 6e 73 6c 61 74 |ces for |translat|
|00000960| 69 6f 6e 73 20 77 65 72 | 65 20 66 69 72 73 74 20 |ions wer|e first |
|00000970| 63 61 6c 63 75 6c 61 74 | 65 64 20 62 79 0a 73 63 |calculat|ed by.sc|
|00000980| 69 65 6e 74 69 66 69 63 | 20 6d 65 61 6e 73 2e 20 |ientific| means. |
|00000990| 48 6f 77 65 76 65 72 2c | 20 77 68 65 6e 20 74 68 |However,| when th|
|000009a0| 61 74 20 66 61 69 6c 65 | 64 20 49 20 63 68 6f 73 |at faile|d I chos|
|000009b0| 65 20 61 20 73 6f 77 65 | 77 68 61 74 20 6d 6f 72 |e a sowe|what mor|
|000009c0| 65 0a 68 65 75 72 69 73 | 74 69 63 20 61 70 70 72 |e.heuris|tic appr|
|000009d0| 6f 61 63 68 2e 2e 2e 0a | 0a 50 6c 65 61 73 65 20 |oach....|.Please |
|000009e0| 66 6f 72 77 61 72 64 20 | 63 6f 6d 6d 65 6e 74 73 |forward |comments|
|000009f0| 2c 20 69 6d 70 72 6f 76 | 65 6d 65 6e 74 73 2c 20 |, improv|ements, |
|00000a00| 65 74 63 2c 20 74 6f 20 | 6d 65 2e 20 49 20 6b 6e |etc, to |me. I kn|
|00000a10| 6f 77 20 69 74 27 73 20 | 6e 6f 74 20 70 65 72 66 |ow it's |not perf|
|00000a20| 65 63 74 2e 0a 0a 2f 50 | 65 6c 6c 2c 20 70 65 6c |ect.../P|ell, pel|
|00000a30| 6c 40 72 61 69 6e 69 65 | 72 2e 55 55 43 50 2c 20 |l@rainie|r.UUCP, |
|00000a40| 70 5f 65 40 6f 62 65 6c | 69 78 2e 6c 69 75 2e 73 |p_e@obel|ix.liu.s|
|00000a50| 65 0a 53 48 41 52 5f 45 | 4f 46 0a 63 68 6d 6f 64 |e.SHAR_E|OF.chmod|
|00000a60| 20 2b 78 20 27 52 45 41 | 44 4d 45 27 0a 66 69 0a | +x 'REA|DME'.fi.|
|00000a70| 69 66 20 74 65 73 74 20 | 2d 66 20 27 77 70 73 68 |if test |-f 'wpsh|
|00000a80| 61 6c 66 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |alf'.the|n..echo |
|00000a90| 73 68 61 72 3a 20 22 77 | 69 6c 6c 20 6e 6f 74 20 |shar: "w|ill not |
|00000aa0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000ab0| 69 6e 67 20 66 69 6c 65 | 20 27 77 70 73 68 61 6c |ing file| 'wpshal|
|00000ac0| 66 27 22 0a 65 6c 73 65 | 0a 63 61 74 20 3c 3c 20 |f'".else|.cat << |
|00000ad0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 77 70 73 |\SHAR_EO|F > 'wps|
|00000ae0| 68 61 6c 66 27 0a 23 21 | 2f 62 69 6e 2f 73 68 0a |half'.#!|/bin/sh.|
|00000af0| 23 20 49 6e 73 70 69 72 | 65 64 20 62 79 20 70 73 |# Inspir|ed by ps|
|00000b00| 68 61 6c 66 20 77 72 69 | 74 74 65 6e 20 62 79 20 |half wri|tten by |
|00000b10| 44 65 6e 69 73 65 20 44 | 72 61 70 65 72 09 64 65 |Denise D|raper.de|
|00000b20| 6e 69 73 65 40 63 77 69 | 2e 6e 6c 0a 23 20 54 68 |nise@cwi|.nl.# Th|
|00000b30| 69 73 20 69 73 20 77 70 | 73 68 61 6c 66 20 62 79 |is is wp|shalf by|
|00000b40| 20 50 65 6c 6c 09 09 09 | 70 65 6c 6c 40 72 61 69 | Pell...|pell@rai|
|00000b50| 6e 69 65 72 2e 55 55 43 | 50 0a 0a 63 61 74 20 3e |nier.UUC|P..cat >|
|00000b60| 2f 74 6d 70 2f 70 73 68 | 2e 24 24 20 23 20 4d 75 |/tmp/psh|.$$ # Mu|
|00000b70| 73 74 20 77 6f 72 6b 20 | 77 69 74 68 20 74 65 6d |st work |with tem|
|00000b80| 70 66 69 6c 65 0a 61 77 | 6b 20 27 0a 42 45 47 49 |pfile.aw|k '.BEGI|
|00000b90| 4e 09 09 09 7b 20 66 69 | 72 73 74 68 61 6c 66 20 |N...{ fi|rsthalf |
|00000ba0| 3d 20 31 20 7d 20 23 20 | 49 20 77 6f 75 6c 64 20 |= 1 } # |I would |
|00000bb0| 6c 69 6b 65 20 74 6f 20 | 75 73 65 20 22 70 61 67 |like to |use "pag|
|00000bc0| 65 73 22 20 68 65 72 65 | 20 3a 2d 28 0a 2f 5e 62 |es" here| :-(./^b|
|00000bd0| 6f 70 24 2f 09 09 09 7b | 20 69 66 20 28 21 28 70 |op$/...{| if (!(p|
|00000be0| 61 67 65 73 20 25 20 32 | 29 29 20 7b 0a 09 09 09 |ages % 2|)) {....|
|00000bf0| 09 69 66 20 28 66 69 72 | 73 74 68 61 6c 66 29 20 |.if (fir|sthalf) |
|00000c00| 7b 0a 09 09 09 09 09 70 | 72 69 6e 74 20 22 62 6f |{......p|rint "bo|
|00000c10| 70 22 0a 09 09 09 09 09 | 70 72 69 6e 74 20 22 37 |p"......|print "7|
|00000c20| 20 44 50 49 79 20 6d 75 | 6c 20 30 20 74 72 61 6e | DPIy mu|l 0 tran|
|00000c30| 73 6c 61 74 65 22 0a 09 | 09 09 09 7d 20 65 6c 73 |slate"..|...} els|
|00000c40| 65 20 7b 0a 09 09 09 09 | 09 70 72 69 6e 74 20 22 |e {.....|.print "|
|00000c50| 2d 37 20 44 50 49 79 20 | 6d 75 6c 20 30 20 74 72 |-7 DPIy |mul 0 tr|
|00000c60| 61 6e 73 6c 61 74 65 22 | 0a 09 09 09 09 7d 0a 09 |anslate"|.....}..|
|00000c70| 09 09 20 20 7d 20 65 6c | 73 65 20 70 72 69 6e 74 |.. } el|se print|
|00000c80| 20 22 62 6f 70 22 0a 09 | 09 09 20 20 6e 65 78 74 | "bop"..|.. next|
|00000c90| 0a 09 09 09 7d 0a 2f 5e | 65 6f 70 24 2f 09 09 09 |....}./^|eop$/...|
|00000ca0| 7b 20 69 66 20 28 70 61 | 67 65 73 20 25 20 32 29 |{ if (pa|ges % 2)|
|00000cb0| 20 7b 0a 09 09 09 09 70 | 61 67 65 73 20 3d 20 30 | {.....p|ages = 0|
|00000cc0| 0a 09 09 09 09 70 72 69 | 6e 74 20 22 65 6f 70 22 |.....pri|nt "eop"|
|00000cd0| 0a 09 09 09 20 20 7d 20 | 65 6c 73 65 20 7b 0a 09 |.... } |else {..|
|00000ce0| 09 09 09 69 66 20 28 21 | 66 69 72 73 74 68 61 6c |...if (!|firsthal|
|00000cf0| 66 29 20 70 72 69 6e 74 | 20 22 65 6f 70 22 0a 09 |f) print| "eop"..|
|00000d00| 09 09 09 66 69 72 73 74 | 68 61 6c 66 20 3d 20 31 |...first|half = 1|
|00000d10| 20 2d 20 66 69 72 73 74 | 68 61 6c 66 0a 09 09 09 | - first|half....|
|00000d20| 20 20 7d 0a 09 09 09 20 | 20 6e 65 78 74 0a 09 09 | }.... | next...|
|00000d30| 09 7d 0a 2f 5e 5c 2f 73 | 74 61 74 65 49 6e 69 74 |.}./^\/s|tateInit|
|00000d40| 2f 09 09 7b 20 0a 70 72 | 69 6e 74 20 22 2f 77 70 |/..{ .pr|int "/wp|
|00000d50| 73 68 61 6c 66 49 6e 69 | 74 20 7b 22 0a 70 72 69 |shalfIni|t {".pri|
|00000d60| 6e 74 20 22 35 34 20 44 | 50 49 78 20 64 69 76 20 |nt "54 D|PIx div |
|00000d70| 35 34 20 44 50 49 79 20 | 64 69 76 20 20 6e 65 67 |54 DPIy |div neg|
|00000d80| 20 73 63 61 6c 65 22 0a | 70 72 69 6e 74 20 22 2f | scale".|print "/|
|00000d90| 50 53 70 61 67 65 6c 65 | 6e 67 74 68 20 31 31 20 |PSpagele|ngth 11 |
|00000da0| 44 50 49 79 20 6d 75 6c | 20 64 65 66 20 20 20 25 |DPIy mul| def %|
|00000db0| 64 65 66 61 75 6c 74 20 | 38 2e 35 20 78 20 31 31 |default |8.5 x 11|
|00000dc0| 20 69 6e 63 68 65 73 22 | 0a 70 72 69 6e 74 20 22 | inches"|.print "|
|00000dd0| 2f 50 53 70 61 67 65 77 | 69 64 74 68 20 38 2e 35 |/PSpagew|idth 8.5|
|00000de0| 20 44 50 49 78 20 6d 75 | 6c 20 64 65 66 22 0a 70 | DPIx mu|l def".p|
|00000df0| 72 69 6e 74 20 22 39 30 | 20 72 6f 74 61 74 65 22 |rint "90| rotate"|
|00000e00| 0a 70 72 69 6e 74 20 22 | 50 53 70 61 67 65 77 69 |.print "|PSpagewi|
|00000e10| 64 74 68 20 36 2e 35 20 | 44 50 49 78 20 6d 75 6c |dth 6.5 |DPIx mul|
|00000e20| 20 61 64 64 20 6e 65 67 | 22 0a 70 72 69 6e 74 20 | add neg|".print |
|00000e30| 22 20 20 50 53 70 61 67 | 65 6c 65 6e 67 74 68 20 |" PSpag|elength |
|00000e40| 30 2e 35 20 44 50 49 79 | 20 6d 75 6c 20 61 64 64 |0.5 DPIy| mul add|
|00000e50| 20 6e 65 67 20 74 72 61 | 6e 73 6c 61 74 65 22 0a | neg tra|nslate".|
|00000e60| 70 72 69 6e 74 20 22 2e | 35 20 2e 35 20 74 72 61 |print ".|5 .5 tra|
|00000e70| 6e 73 6c 61 74 65 20 20 | 20 20 20 20 20 20 20 25 |nslate | %|
|00000e80| 50 53 20 6c 61 74 74 69 | 63 65 20 70 6f 69 6e 74 |PS latti|ce point|
|00000e90| 73 20 61 72 65 20 62 65 | 74 77 65 65 6e 20 70 69 |s are be|tween pi|
|00000ea0| 78 65 6c 73 22 0a 70 72 | 69 6e 74 20 22 7d 20 64 |xels".pr|int "} d|
|00000eb0| 65 66 22 0a 70 72 69 6e | 74 20 22 2f 73 74 61 74 |ef".prin|t "/stat|
|00000ec0| 65 49 6e 69 74 20 7b 22 | 0a 09 09 09 20 20 6e 65 |eInit {"|.... ne|
|00000ed0| 78 74 0a 09 09 09 7d 0a | 2f 5e 73 74 61 74 65 49 |xt....}.|/^stateI|
|00000ee0| 6e 69 74 24 2f 09 09 7b | 20 70 72 69 6e 74 20 22 |nit$/..{| print "|
|00000ef0| 77 70 73 68 61 6c 66 49 | 6e 69 74 22 3b 20 6e 65 |wpshalfI|nit"; ne|
|00000f00| 78 74 20 7d 0a 23 2f 5e | 68 65 61 64 65 72 70 61 |xt }.#/^|headerpa|
|00000f10| 67 65 7c 5e 6c 6f 67 6d | 65 2f 09 7b 20 6e 65 78 |ge|^logm|e/.{ nex|
|00000f20| 74 20 7d 20 23 20 72 65 | 6d 6f 76 65 20 68 65 61 |t } # re|move hea|
|00000f30| 64 65 72 70 61 67 65 0a | 09 09 09 7b 20 70 72 69 |derpage.|...{ pri|
|00000f40| 6e 74 20 24 30 20 7d 20 | 27 20 70 61 67 65 73 3d |nt $0 } |' pages=|
|00000f50| 60 65 67 72 65 70 20 2d | 63 20 27 5e 62 6f 70 24 |`egrep -|c '^bop$|
|00000f60| 27 20 2f 74 6d 70 2f 70 | 73 68 2e 24 24 60 20 2f |' /tmp/p|sh.$$` /|
|00000f70| 74 6d 70 2f 70 73 68 2e | 24 24 0a 53 48 41 52 5f |tmp/psh.|$$.SHAR_|
|00000f80| 45 4f 46 0a 63 68 6d 6f | 64 20 2b 78 20 27 77 70 |EOF.chmo|d +x 'wp|
|00000f90| 73 68 61 6c 66 27 0a 66 | 69 0a 65 78 69 74 20 30 |shalf'.f|i.exit 0|
|00000fa0| 0a 23 09 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.#.End o|f shell |
|00000fb0| 61 72 63 68 69 76 65 0a | |archive.| |
+--------+-------------------------+-------------------------+--------+--------+