home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / emacs / site-lisp / id-utils.elc < prev    next >
Emacs Compiled Lisp  |  1996-10-12  |  914 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs v18 byte-compiled Lisp data default
99% file data default
100% gt2 Kopftext: '(require (quote compile)) default (weak)
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime text/x-emacs-lisp default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 6f 6d 70 69 6c 65 | 29 29 0a 0a 28 70 72 6f | compile|))..(pro|
|00000020| 76 69 64 65 20 28 71 75 | 6f 74 65 20 69 64 2d 75 |vide (qu|ote id-u|
|00000030| 74 69 6c 73 29 29 0a 0a | 28 64 65 66 76 61 72 20 |tils))..|(defvar |
|00000040| 67 69 64 2d 63 6f 6d 6d | 61 6e 64 20 22 67 69 64 |gid-comm|and "gid|
|00000050| 22 20 22 5c 0a 54 68 65 | 20 63 6f 6d 6d 61 6e 64 |" "\.The| command|
|00000060| 20 72 75 6e 20 62 79 20 | 74 68 65 20 67 69 64 20 | run by |the gid |
|00000070| 66 75 6e 63 74 69 6f 6e | 2e 22 29 0a 0a 28 64 65 |function|.")..(de|
|00000080| 66 75 6e 20 67 69 64 20 | 28 61 72 67 73 29 20 22 |fun gid |(args) "|
|00000090| 5c 0a 52 75 6e 20 67 69 | 64 2c 20 77 69 74 68 20 |\.Run gi|d, with |
|000000a0| 75 73 65 72 2d 73 70 65 | 63 69 66 69 65 64 20 41 |user-spe|cified A|
|000000b0| 52 47 53 2c 20 61 6e 64 | 20 63 6f 6c 6c 65 63 74 |RGS, and| collect|
|000000c0| 20 6f 75 74 70 75 74 20 | 69 6e 20 61 20 62 75 66 | output |in a buf|
|000000d0| 66 65 72 2e 0a 57 68 69 | 6c 65 20 67 69 64 20 72 |fer..Whi|le gid r|
|000000e0| 75 6e 73 20 61 73 79 6e | 63 68 72 6f 6e 6f 75 73 |uns asyn|chronous|
|000000f0| 6c 79 2c 20 79 6f 75 20 | 63 61 6e 20 75 73 65 20 |ly, you |can use |
|00000100| 74 68 65 20 5c 5c 5b 6e | 65 78 74 2d 65 72 72 6f |the \\[n|ext-erro|
|00000110| 72 5d 20 63 6f 6d 6d 61 | 6e 64 20 74 6f 0a 66 69 |r] comma|nd to.fi|
|00000120| 6e 64 20 74 68 65 20 74 | 65 78 74 20 74 68 61 74 |nd the t|ext that|
|00000130| 20 67 69 64 20 68 69 74 | 73 20 72 65 66 65 72 20 | gid hit|s refer |
|00000140| 74 6f 2e 20 54 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |to. The |command |
|00000150| 61 63 74 75 61 6c 6c 79 | 20 72 75 6e 20 69 73 0a |actually| run is.|
|00000160| 64 65 66 69 6e 65 64 20 | 62 79 20 74 68 65 20 67 |defined |by the g|
|00000170| 69 64 2d 63 6f 6d 6d 61 | 6e 64 20 76 61 72 69 61 |id-comma|nd varia|
|00000180| 62 6c 65 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ble." (i|nteracti|
|00000190| 76 65 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |ve (byte|-code ".|
|000001a0| c2 08 c3 51 c4 20 5c 22 | 43 87 22 20 5b 67 69 64 |...Q. \"|C." [gid|
|000001b0| 2d 63 6f 6d 6d 61 6e 64 | 20 72 65 61 64 2d 69 6e |-command| read-in|
|000001c0| 70 75 74 20 22 52 75 6e | 20 22 20 22 20 28 77 69 |put "Run| " " (wi|
|000001d0| 74 68 20 61 72 67 73 29 | 3a 20 22 20 77 6f 72 64 |th args)|: " word|
|000001e0| 2d 61 72 6f 75 6e 64 2d | 70 6f 69 6e 74 5d 20 34 |-around-|point] 4|
|000001f0| 29 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c6 |)) (byte|-code ".|
|00000200| 88 c6 0b c7 1c 1a 19 c8 | 08 c9 0d 51 21 2b 87 22 |........|...Q!+."|
|00000210| 20 5b 67 69 64 2d 63 6f | 6d 6d 61 6e 64 20 63 6f | [gid-co|mmand co|
|00000220| 6d 70 69 6c 65 2d 63 6f | 6d 6d 61 6e 64 20 63 6f |mpile-co|mmand co|
|00000230| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|00000240| 72 65 67 65 78 70 2d 61 | 6c 69 73 74 20 67 72 65 |regexp-a|list gre|
|00000250| 70 2d 72 65 67 65 78 70 | 2d 61 6c 69 73 74 20 63 |p-regexp|-alist c|
|00000260| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 62 75 66 66 65 |ompilati|on-buffe|
|00000270| 72 2d 6e 61 6d 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |r-name-f|unction |
|00000280| 61 72 67 73 20 6e 69 6c | 20 28 6c 61 6d 62 64 61 |args nil| (lambda|
|00000290| 20 28 6d 6f 64 65 29 20 | 28 63 6f 6e 63 61 74 20 | (mode) |(concat |
|000002a0| 22 2a 22 20 67 69 64 2d | 63 6f 6d 6d 61 6e 64 20 |"*" gid-|command |
|000002b0| 22 20 22 20 61 72 67 73 | 20 22 2a 22 29 29 20 63 |" " args| "*")) c|
|000002c0| 6f 6d 70 69 6c 65 20 22 | 20 22 5d 20 34 29 29 0a |ompile "| "] 4)).|
|000002d0| 0a 28 64 65 66 75 6e 20 | 77 6f 72 64 2d 61 72 6f |.(defun |word-aro|
|000002e0| 75 6e 64 2d 70 6f 69 6e | 74 20 6e 69 6c 20 22 5c |und-poin|t nil "\|
|000002f0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 77 6f 72 64 |.Return |the word|
|00000300| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 70 6f 69 6e | around |the poin|
|00000310| 74 20 61 73 20 61 20 73 | 74 72 69 6e 67 2e 22 20 |t as a s|tring." |
|00000320| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 6d 3f 85 |(byte-co|de ".m?.|
|00000330| 09 00 c0 c1 21 88 c2 c3 | 21 88 c2 c1 21 88 c4 c3 |....!...|!...!...|
|00000340| 21 88 c5 60 c4 c1 21 88 | 60 5c 22 29 87 22 20 5b |!..`..!.|`\")." [|
|00000350| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 31 20 66 |forward-|char 1 f|
|00000360| 6f 72 77 61 72 64 2d 77 | 6f 72 64 20 2d 31 20 66 |orward-w|ord -1 f|
|00000370| 6f 72 77 61 72 64 2d 73 | 65 78 70 20 62 75 66 66 |orward-s|exp buff|
|00000380| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 5d 20 38 29 |er-subst|ring] 8)|
|00000390| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+