/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3327

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6a 76 | 40 6d 68 2e 6e 6c 20 28 |From: jv|@mh.nl (|
|00000010| 4a 6f 68 61 6e 20 56 72 | 6f 6d 61 6e 73 29 0a 4e |Johan Vr|omans).N|
|00000020| 65 77 73 67 72 6f 75 70 | 73 3a 20 61 6c 74 2e 73 |ewsgroup|s: alt.s|
|00000030| 6f 75 72 63 65 73 2c 67 | 6e 75 2e 65 6d 61 63 73 |ources,g|nu.emacs|
|00000040| 2e 73 6f 75 72 63 65 73 | 2c 67 6e 75 2e 65 6d 61 |.sources|,gnu.ema|
|00000050| 63 73 2e 67 6e 75 73 0a | 53 75 62 6a 65 63 74 3a |cs.gnus.|Subject:|
|00000060| 20 52 65 3a 20 4d 44 34 | 20 73 75 70 70 6f 72 74 | Re: MD4| support|
|00000070| 20 66 6f 72 20 47 4e 55 | 53 20 28 61 64 64 2d 68 | for GNU|S (add-h|
|00000080| 6f 6f 6b 20 66 75 6e 63 | 74 69 6f 6e 29 0a 4d 65 |ook func|tion).Me|
|00000090| 73 73 61 67 65 2d 49 44 | 3a 20 3c 31 39 39 31 4d |ssage-ID|: <1991M|
|000000a0| 61 79 31 33 2e 30 37 33 | 38 33 31 2e 31 38 37 35 |ay13.073|831.1875|
|000000b0| 36 40 70 72 6f 6e 74 6f | 2e 6d 68 2e 6e 6c 3e 0a |6@pronto|.mh.nl>.|
|000000c0| 44 61 74 65 3a 20 31 33 | 20 4d 61 79 20 39 31 20 |Date: 13| May 91 |
|000000d0| 30 37 3a 33 38 3a 33 31 | 20 47 4d 54 0a 0a 49 6e |07:38:31| GMT..In|
|000000e0| 20 61 72 74 69 63 6c 65 | 20 3c 31 39 39 31 4d 61 | article| <1991Ma|
|000000f0| 79 31 31 2e 31 34 33 31 | 33 32 2e 32 31 31 34 40 |y11.1431|32.2114@|
|00000100| 70 72 6f 6e 74 6f 2e 6d | 68 2e 6e 6c 3e 20 6a 76 |pronto.m|h.nl> jv|
|00000110| 40 6d 68 2e 6e 6c 20 28 | 4a 6f 68 61 6e 20 56 72 |@mh.nl (|Johan Vr|
|00000120| 6f 6d 61 6e 73 29 20 77 | 72 69 74 65 73 3a 0a 0a |omans) w|rites:..|
|00000130| 20 20 20 54 68 69 73 20 | 66 69 6c 65 20 64 65 66 |   This |file def|
|00000140| 69 6e 65 73 20 74 68 65 | 20 66 75 6e 63 74 69 6f |ines the| functio|
|00000150| 6e 73 20 74 6f 20 68 61 | 76 65 20 61 75 74 6f 6d |ns to ha|ve autom|
|00000160| 61 74 69 63 20 76 61 6c | 69 64 61 74 69 6f 6e 20 |atic val|idation |
|00000170| 61 6e 64 0a 20 20 20 69 | 6e 73 65 72 74 69 6f 6e |and.   i|nsertion|
|00000180| 20 6f 66 20 4d 44 34 20 | 73 69 67 6e 61 74 75 72 | of MD4 |signatur|
|00000190| 65 73 20 75 73 69 6e 67 | 20 47 4e 55 53 2e 0a 0a |es using| GNUS...|
|000001a0| 54 6f 20 75 73 65 20 74 | 68 69 73 2c 20 79 6f 75 |To use t|his, you|
|000001b0| 20 61 6c 73 6f 20 6e 65 | 65 64 20 74 68 65 20 66 | also ne|ed the f|
|000001c0| 75 6e 63 74 69 6f 6e 20 | 61 64 64 2d 68 6f 6f 6b |unction |add-hook|
|000001d0| 2e 20 48 65 72 65 20 69 | 74 20 69 73 20 2d 2d 0a |. Here i|t is --.|
|000001e0| 0a 23 21 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |.#!/bin/|sh.# Thi|
|000001f0| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000200| 68 69 76 65 20 28 70 72 | 6f 64 75 63 65 64 20 62 |hive (pr|oduced b|
|00000210| 79 20 73 68 61 72 20 33 | 2e 34 39 29 0a 23 20 54 |y shar 3|.49).# T|
|00000220| 6f 20 65 78 74 72 61 63 | 74 20 74 68 65 20 66 69 |o extrac|t the fi|
|00000230| 6c 65 73 20 66 72 6f 6d | 20 74 68 69 73 20 61 72 |les from| this ar|
|00000240| 63 68 69 76 65 2c 20 73 | 61 76 65 20 69 74 20 74 |chive, s|ave it t|
|00000250| 6f 20 61 20 66 69 6c 65 | 2c 20 72 65 6d 6f 76 65 |o a file|, remove|
|00000260| 0a 23 20 65 76 65 72 79 | 74 68 69 6e 67 20 61 62 |.# every|thing ab|
|00000270| 6f 76 65 20 74 68 65 20 | 22 21 2f 62 69 6e 2f 73 |ove the |"!/bin/s|
|00000280| 68 22 20 6c 69 6e 65 20 | 61 62 6f 76 65 2c 20 61 |h" line |above, a|
|00000290| 6e 64 20 74 79 70 65 20 | 22 73 68 20 66 69 6c 65 |nd type |"sh file|
|000002a0| 5f 6e 61 6d 65 22 2e 0a | 23 0a 23 20 6d 61 64 65 |_name"..|#.# made|
|000002b0| 20 30 35 2f 31 33 2f 31 | 39 39 31 20 30 37 3a 33 | 05/13/1|991 07:3|
|000002c0| 36 20 55 54 43 20 62 79 | 20 6a 76 40 6c 61 72 67 |6 UTC by| jv@larg|
|000002d0| 6f 0a 23 20 53 6f 75 72 | 63 65 20 64 69 72 65 63 |o.# Sour|ce direc|
|000002e0| 74 6f 72 79 20 2f 75 31 | 2f 75 73 65 72 73 2f 6a |tory /u1|/users/j|
|000002f0| 76 0a 23 0a 23 20 65 78 | 69 73 74 69 6e 67 20 66 |v.#.# ex|isting f|
|00000300| 69 6c 65 73 20 77 69 6c | 6c 20 4e 4f 54 20 62 65 |iles wil|l NOT be|
|00000310| 20 6f 76 65 72 77 72 69 | 74 74 65 6e 20 75 6e 6c | overwri|tten unl|
|00000320| 65 73 73 20 2d 63 20 69 | 73 20 73 70 65 63 69 66 |ess -c i|s specif|
|00000330| 69 65 64 0a 23 0a 23 20 | 54 68 69 73 20 73 68 61 |ied.#.# |This sha|
|00000340| 72 20 63 6f 6e 74 61 69 | 6e 73 3a 0a 23 20 6c 65 |r contai|ns:.# le|
|00000350| 6e 67 74 68 20 20 6d 6f | 64 65 20 20 20 20 20 20 |ngth  mo|de      |
|00000360| 20 6e 61 6d 65 0a 23 20 | 2d 2d 2d 2d 2d 2d 20 2d | name.# |------ -|
|00000370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 2d 2d 2d 2d 2d 2d |--------|- ------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 0a 23 20 20 | 20 20 36 32 35 20 2d 72 |----.#  |  625 -r|
|000003b0| 77 2d 72 2d 2d 72 2d 2d | 20 61 64 64 2d 68 6f 6f |w-r--r--| add-hoo|
|000003c0| 6b 2e 65 6c 0a 23 0a 23 | 20 3d 3d 3d 3d 3d 3d 3d |k.el.#.#| =======|
|000003d0| 3d 3d 3d 3d 3d 3d 20 61 | 64 64 2d 68 6f 6f 6b 2e |====== a|dd-hook.|
|000003e0| 65 6c 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |el =====|========|
|000003f0| 3d 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 61 64 |=.if tes|t -f 'ad|
|00000400| 64 2d 68 6f 6f 6b 2e 65 | 6c 27 20 2d 61 20 58 22 |d-hook.e|l' -a X"|
|00000410| 24 31 22 20 21 3d 20 58 | 22 2d 63 22 3b 20 74 68 |$1" != X|"-c"; th|
|00000420| 65 6e 0a 09 65 63 68 6f | 20 27 78 20 2d 20 73 6b |en..echo| 'x - sk|
|00000430| 69 70 70 69 6e 67 20 61 | 64 64 2d 68 6f 6f 6b 2e |ipping a|dd-hook.|
|00000440| 65 6c 20 28 46 69 6c 65 | 20 61 6c 72 65 61 64 79 |el (File| already|
|00000450| 20 65 78 69 73 74 73 29 | 27 0a 65 6c 73 65 0a 65 | exists)|'.else.e|
|00000460| 63 68 6f 20 27 78 20 2d | 20 65 78 74 72 61 63 74 |cho 'x -| extract|
|00000470| 69 6e 67 20 61 64 64 2d | 68 6f 6f 6b 2e 65 6c 20 |ing add-|hook.el |
|00000480| 28 54 65 78 74 29 27 0a | 73 65 64 20 27 73 2f 5e |(Text)'.|sed 's/^|
|00000490| 58 2f 2f 27 20 3c 3c 20 | 27 53 48 41 52 5f 45 4f |X//' << |'SHAR_EO|
|000004a0| 46 27 20 3e 20 27 61 64 | 64 2d 68 6f 6f 6b 2e 65 |F' > 'ad|d-hook.e|
|000004b0| 6c 27 20 26 26 0a 58 3b | 3b 20 61 64 64 2d 68 6f |l' &&.X;|; add-ho|
|000004c0| 6f 6b 20 66 75 6e 63 74 | 69 6f 6e 20 62 79 20 44 |ok funct|ion by D|
|000004d0| 61 6e 20 4c 61 4c 69 62 | 65 72 74 65 20 3c 6c 69 |an LaLib|erte <li|
|000004e0| 62 65 72 74 65 40 63 73 | 2e 75 69 75 63 2e 65 64 |berte@cs|.uiuc.ed|
|000004f0| 75 3e 0a 58 28 64 65 66 | 75 6e 20 61 64 64 2d 68 |u>.X(def|un add-h|
|00000500| 6f 6f 6b 20 28 68 6f 6f | 6b 2d 76 61 72 20 68 6f |ook (hoo|k-var ho|
|00000510| 6f 6b 2d 66 75 6e 63 74 | 69 6f 6e 29 0a 58 20 20 |ok-funct|ion).X  |
|00000520| 22 50 72 65 70 65 6e 64 | 20 74 6f 20 74 68 65 20 |"Prepend| to the |
|00000530| 76 61 6c 75 65 20 6f 66 | 20 48 4f 4f 4b 2d 56 41 |value of| HOOK-VA|
|00000540| 52 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 48 |R the fu|nction H|
|00000550| 4f 4f 4b 2d 46 55 4e 43 | 54 49 4f 4e 2c 20 69 66 |OOK-FUNC|TION, if|
|00000560| 20 69 74 0a 58 69 73 20 | 6e 6f 74 20 61 6c 72 65 | it.Xis |not alre|
|00000570| 61 64 79 20 61 6e 20 65 | 6c 65 6d 65 6e 74 2e 0a |ady an e|lement..|
|00000580| 58 68 6f 6f 6b 2d 76 61 | 72 27 73 20 76 61 6c 75 |Xhook-va|r's valu|
|00000590| 65 20 6d 61 79 20 62 65 | 20 61 20 73 69 6e 67 6c |e may be| a singl|
|000005a0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 6f 72 20 61 20 |e functi|on or a |
|000005b0| 6c 69 73 74 20 6f 66 20 | 66 75 6e 63 74 69 6f 6e |list of |function|
|000005c0| 73 2e 22 0a 58 20 20 28 | 69 66 20 28 62 6f 75 6e |s.".X  (|if (boun|
|000005d0| 64 70 20 68 6f 6f 6b 2d | 76 61 72 29 0a 58 20 20 |dp hook-|var).X  |
|000005e0| 20 20 20 20 28 6c 65 74 | 20 28 28 76 61 6c 75 65 |    (let| ((value|
|000005f0| 20 28 73 79 6d 62 6f 6c | 2d 76 61 6c 75 65 20 68 | (symbol|-value h|
|00000600| 6f 6f 6b 2d 76 61 72 29 | 29 29 0a 58 09 28 69 66 |ook-var)|)).X.(if|
|00000610| 20 28 61 6e 64 20 28 6c | 69 73 74 70 20 76 61 6c | (and (l|istp val|
|00000620| 75 65 29 20 28 6e 6f 74 | 20 28 65 71 20 28 63 61 |ue) (not| (eq (ca|
|00000630| 72 20 76 61 6c 75 65 29 | 20 27 6c 61 6d 62 64 61 |r value)| 'lambda|
|00000640| 29 29 29 0a 58 09 20 20 | 20 20 28 61 6e 64 20 28 |))).X.  |  (and (|
|00000650| 6e 6f 74 20 28 6d 65 6d | 71 20 68 6f 6f 6b 2d 66 |not (mem|q hook-f|
|00000660| 75 6e 63 74 69 6f 6e 20 | 76 61 6c 75 65 29 29 0a |unction |value)).|
|00000670| 58 09 09 20 28 73 65 74 | 20 68 6f 6f 6b 2d 76 61 |X.. (set| hook-va|
|00000680| 72 0a 58 09 09 20 20 20 | 20 20 20 28 63 6f 6e 73 |r.X..   |   (cons|
|00000690| 20 68 6f 6f 6b 2d 66 75 | 6e 63 74 69 6f 6e 20 76 | hook-fu|nction v|
|000006a0| 61 6c 75 65 29 29 29 0a | 58 09 20 20 28 61 6e 64 |alue))).|X.  (and|
|000006b0| 20 28 6e 6f 74 20 28 65 | 71 20 68 6f 6f 6b 2d 66 | (not (e|q hook-f|
|000006c0| 75 6e 63 74 69 6f 6e 20 | 76 61 6c 75 65 29 29 0a |unction |value)).|
|000006d0| 58 09 20 20 20 20 20 20 | 20 28 73 65 74 20 68 6f |X.      | (set ho|
|000006e0| 6f 6b 2d 76 61 72 0a 58 | 09 09 20 20 20 20 28 6c |ok-var.X|..    (l|
|000006f0| 69 73 74 20 68 6f 6f 6b | 2d 66 75 6e 63 74 69 6f |ist hook|-functio|
|00000700| 6e 20 76 61 6c 75 65 29 | 29 29 29 29 0a 58 20 20 |n value)|)))).X  |
|00000710| 20 20 28 73 65 74 20 68 | 6f 6f 6b 2d 76 61 72 20 |  (set h|ook-var |
|00000720| 68 6f 6f 6b 2d 66 75 6e | 63 74 69 6f 6e 29 0a 58 |hook-fun|ction).X|
|00000730| 20 20 20 20 29 29 0a 53 | 48 41 52 5f 45 4f 46 0a |    )).S|HAR_EOF.|
|00000740| 63 68 6d 6f 64 20 30 36 | 34 34 20 61 64 64 2d 68 |chmod 06|44 add-h|
|00000750| 6f 6f 6b 2e 65 6c 20 7c | 7c 0a 65 63 68 6f 20 27 |ook.el |||.echo '|
|00000760| 72 65 73 74 6f 72 65 20 | 6f 66 20 61 64 64 2d 68 |restore |of add-h|
|00000770| 6f 6f 6b 2e 65 6c 20 66 | 61 69 6c 65 64 27 0a 57 |ook.el f|ailed'.W|
|00000780| 63 5f 63 3d 22 60 77 63 | 20 2d 63 20 3c 20 27 61 |c_c="`wc| -c < 'a|
|00000790| 64 64 2d 68 6f 6f 6b 2e | 65 6c 27 60 22 0a 74 65 |dd-hook.|el'`".te|
|000007a0| 73 74 20 36 32 35 20 2d | 65 71 20 22 24 57 63 5f |st 625 -|eq "$Wc_|
|000007b0| 63 22 20 7c 7c 0a 09 65 | 63 68 6f 20 27 61 64 64 |c" ||..e|cho 'add|
|000007c0| 2d 68 6f 6f 6b 2e 65 6c | 3a 20 6f 72 69 67 69 6e |-hook.el|: origin|
|000007d0| 61 6c 20 73 69 7a 65 20 | 36 32 35 2c 20 63 75 72 |al size |625, cur|
|000007e0| 72 65 6e 74 20 73 69 7a | 65 27 20 22 24 57 63 5f |rent siz|e' "$Wc_|
|000007f0| 63 22 0a 66 69 0a 65 78 | 69 74 20 30 0a 2d 2d 20 |c".fi.ex|it 0.-- |
|00000800| 0a 4a 6f 68 61 6e 20 56 | 72 6f 6d 61 6e 73 09 09 |.Johan V|romans..|
|00000810| 09 09 20 20 20 20 20 20 | 20 6a 76 40 6d 68 2e 6e |..      | jv@mh.n|
|00000820| 6c 20 76 69 61 20 69 6e | 74 65 72 6e 65 74 20 62 |l via in|ternet b|
|00000830| 61 63 6b 62 6f 6e 65 73 | 0a 4d 75 6c 74 69 68 6f |ackbones|.Multiho|
|00000840| 75 73 65 20 41 75 74 6f | 6d 61 74 69 73 65 72 69 |use Auto|matiseri|
|00000850| 6e 67 20 62 76 09 09 20 | 20 20 20 20 20 20 75 75 |ng bv.. |      uu|
|00000860| 63 70 3a 20 2e 2e 21 7b | 75 75 6e 65 74 2c 68 70 |cp: ..!{|uunet,hp|
|00000870| 34 6e 6c 7d 21 6d 68 2e | 6e 6c 21 6a 76 0a 44 6f |4nl}!mh.|nl!jv.Do|
|00000880| 65 73 62 75 72 67 77 65 | 67 20 37 2c 20 32 38 30 |esburgwe|g 7, 280|
|00000890| 33 20 50 4c 20 47 6f 75 | 64 61 2c 20 54 68 65 20 |3 PL Gou|da, The |
|000008a0| 4e 65 74 68 65 72 6c 61 | 6e 64 73 20 20 70 68 6f |Netherla|nds  pho|
|000008b0| 6e 65 2f 66 61 78 3a 20 | 2b 33 31 20 31 38 32 30 |ne/fax: |+31 1820|
|000008c0| 20 36 32 39 31 31 2f 36 | 32 35 30 30 0a 2d 2d 2d | 62911/6|2500.---|
|000008d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008e0| 2d 2d 2d 2d 2d 20 22 41 | 72 6d 73 20 61 72 65 20 |----- "A|rms are |
|000008f0| 6d 61 64 65 20 66 6f 72 | 20 68 75 67 67 69 6e 67 |made for| hugging|
|00000900| 22 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |" ------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0a             |--------|---.    |
+--------+-------------------------+-------------------------+--------+--------+