/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / ilisp / symlink.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 36 3a 31 37 20 |Feb  1 1|8:56:17 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 69 6c 69 | 73 70 2f 73 79 6d 6c 69 |lisp/ili|sp/symli|
|00000080| 6e 6b 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |nk.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |;  1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| c1 21 ac 85 c1 c2 4b 4d | 88 c0 87 22 20 5b 66 62 |.!....KM|..." [fb|
|000001f0| 6f 75 6e 64 70 20 6f 72 | 69 67 69 6e 61 6c 2d 65 |oundp or|iginal-e|
|00000200| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00000210| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00000220| 5d 20 32 29 0a 28 64 65 | 66 76 61 72 20 65 78 70 |] 2).(de|fvar exp|
|00000230| 61 6e 64 2d 73 79 6d 6c | 69 6e 6b 73 20 6e 69 6c |and-syml|inks nil|
|00000240| 20 22 5c 0a 2a 53 65 74 | 20 74 68 69 73 20 74 6f | "\.*Set| this to|
|00000250| 20 54 20 74 6f 20 65 78 | 70 61 6e 64 20 73 79 6d | T to ex|pand sym|
|00000260| 62 6f 6c 69 63 20 6c 69 | 6e 6b 73 2e 22 29 0a 28 |bolic li|nks.").(|
|00000270| 64 65 66 76 61 72 20 65 | 78 70 61 6e 64 2d 73 79 |defvar e|xpand-sy|
|00000280| 6d 6c 69 6e 6b 73 2d 72 | 66 73 2d 65 78 69 73 74 |mlinks-r|fs-exist|
|00000290| 73 20 6e 69 6c 20 22 5c | 0a 54 20 61 74 20 63 6d |s nil "\|.T at cm|
|000002a0| 75 2c 20 6e 69 6c 20 6f | 74 68 65 72 77 69 73 65 |u, nil o|therwise|
|000002b0| 2e 20 20 54 68 69 73 20 | 69 73 20 74 6f 20 70 72 |.  This |is to pr|
|000002c0| 65 73 65 72 76 65 20 6d | 61 63 68 69 6e 65 20 6e |eserve m|achine n|
|000002d0| 61 6d 65 20 63 6f 6e 74 | 65 78 74 20 6c 69 6b 65 |ame cont|ext like|
|000002e0| 0a 2f 2e 2e 2f 66 6f 6f | 20 69 6e 20 74 68 65 20 |./../foo| in the |
|000002f0| 66 69 6c 65 20 6e 61 6d | 65 73 20 64 75 72 69 6e |file nam|es durin|
|00000300| 67 20 65 78 70 61 6e 73 | 69 6f 6e 20 6f 66 20 73 |g expans|ion of s|
|00000310| 79 6d 6c 69 6e 6b 73 2e | 22 29 0a 28 66 73 65 74 |ymlinks.|").(fset|
|00000320| 20 27 65 78 70 61 6e 64 | 2d 73 79 6d 6c 69 6e 6b | 'expand|-symlink|
|00000330| 73 2d 72 66 73 2d 6d 61 | 63 68 69 6e 65 2d 63 6f |s-rfs-ma|chine-co|
|00000340| 6e 74 65 78 74 20 23 5b | 28 6f 6c 64 2d 64 69 72 |ntext #[|(old-dir|
|00000350| 20 6e 65 77 2d 64 69 72 | 29 20 22 c0 c1 5c 6e 5c | new-dir|) "..\n\|
|00000360| 22 ab 82 c3 87 c0 c4 0d | 89 16 06 5c 22 ac 82 c3 |".......|...\"...|
|00000370| 87 0d c7 89 95 53 4f 87 | 22 20 5b 73 74 72 69 6e |.....SO.|" [strin|
|00000380| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 28 2f 5c 5c 2e |g-match |"\\(/\\.|
|00000390| 5c 5c 2e 5c 5c 7c 2f 61 | 66 73 5c 5c 29 22 20 6e |\\.\\|/a|fs\\)" n|
|000003a0| 65 77 2d 64 69 72 20 22 | 22 20 22 5e 2f 5c 5c 2e |ew-dir "|" "^/\\.|
|000003b0| 5c 5c 2e 2f 5b 5e 2f 5d | 2b 2f 22 20 6f 6c 64 2d |\\./[^/]|+/" old-|
|000003c0| 64 69 72 20 2a 6c 64 20 | 30 5d 20 34 20 22 5c 0a |dir *ld |0] 4 "\.|
|000003d0| 49 66 20 6e 65 77 2d 64 | 69 72 20 69 73 20 61 66 |If new-d|ir is af|
|000003e0| 73 20 6f 72 20 72 66 73 | 20 74 6f 20 61 6e 6f 74 |s or rfs| to anot|
|000003f0| 68 65 72 20 6d 61 63 68 | 69 6e 65 2c 20 66 6f 72 |her mach|ine, for|
|00000400| 67 65 74 20 6f 6c 64 2d | 64 69 72 2e 0a 4f 74 68 |get old-|dir..Oth|
|00000410| 65 72 77 69 73 65 20 6c | 65 61 76 65 20 2f 2e 2e |erwise l|eave /..|
|00000420| 2f 6d 61 63 68 69 6e 65 | 20 69 6e 20 74 68 65 20 |/machine| in the |
|00000430| 6f 6c 64 2d 64 69 72 20 | 61 6e 64 20 72 65 74 75 |old-dir |and retu|
|00000440| 72 6e 20 69 74 2c 20 65 | 6c 73 65 20 74 68 65 20 |rn it, e|lse the |
|00000450| 65 6d 70 74 79 0a 73 74 | 72 69 6e 67 2e 22 5d 29 |empty.st|ring."])|
|00000460| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00000470| 88 c2 c3 4d 88 c4 c5 4d | 87 22 20 5b 6a 6f 69 6e |...M...M|." [join|
|00000480| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 23 5b 28 6c 65 |-file-na|me #[(le|
|00000490| 66 74 20 72 69 67 68 74 | 29 20 22 08 47 19 5c 6e |ft right|) ".G.\n|
|000004a0| 47 1b 09 1c c5 1e 06 c7 | 1e 08 0c c5 56 ab 91 08 |G.......|....V...|
|000004b0| 0c 53 48 c9 3d ab 89 ca | 16 08 0c 53 89 14 aa 6b |.SH.=...|...S...k|
|000004c0| 0e 06 0b 57 ab 93 5c 6e | 0e 06 48 c9 3d ab 8b ca |...W..\n|..H.=...|
|000004d0| 16 08 0e 06 54 89 16 06 | aa 69 0c 09 3d ab 83 08 |....T...|.i..=...|
|000004e0| aa 84 08 c5 0c 4f 0e 08 | ab 83 cb aa 81 cc 0e 06 |.....O..|........|
|000004f0| c5 3d ab 83 5c 6e aa 85 | 5c 6e 0e 06 0b 4f 51 2d |.=..\n..|\n...OQ-|
|00000500| 87 22 20 5b 6c 65 66 74 | 20 6c 6c 65 6e 20 72 69 |." [left| llen ri|
|00000510| 67 68 74 20 72 6c 65 6e | 20 6c 65 6e 64 20 30 20 |ght rlen| lend 0 |
|00000520| 72 73 74 61 72 74 20 6e | 69 6c 20 73 6c 61 73 68 |rstart n|il slash|
|00000530| 2d 66 6f 75 6e 64 20 34 | 37 20 74 20 22 2f 22 20 |-found 4|7 t "/" |
|00000540| 22 22 5d 20 36 5d 20 73 | 70 6c 69 74 2d 66 69 6c |""] 6] s|plit-fil|
|00000550| 65 2d 6e 61 6d 65 20 23 | 5b 28 66 69 6c 65 2d 6e |e-name #|[(file-n|
|00000560| 61 6d 65 29 20 22 c0 c1 | 5c 6e 5c 22 ab 8e 5c 6e |ame) "..|\n\"..\n|
|00000570| c3 94 c3 95 4f 5c 6e c4 | 94 c4 95 4f 42 87 5c 6e |....O\n.|...OB.\n|
|00000580| c5 42 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |.B." [st|ring-mat|
|00000590| 63 68 20 22 5c 5c 60 5c | 5c 28 2f 2a 5b 5e 2f 5d |ch "\\`\|\(/*[^/]|
|000005a0| 2b 5c 5c 29 5c 5c 28 2f | 2e 2a 5c 5c 29 5c 5c 27 |+\\)\\(/|.*\\)\\'|
|000005b0| 22 20 66 69 6c 65 2d 6e | 61 6d 65 20 31 20 32 20 |" file-n|ame 1 2 |
|000005c0| 22 22 5d 20 34 5d 20 68 | 61 63 6b 2d 6c 6f 63 61 |""] 4] h|ack-loca|
|000005d0| 6c 2d 6c 69 6e 6b 20 23 | 5b 28 66 69 6c 65 2d 6e |l-link #|[(file-n|
|000005e0| 61 6d 65 20 6c 69 6e 6b | 29 20 22 c0 c1 5c 6e 5c |ame link|) "..\n\|
|000005f0| 22 ac 85 c3 c4 5c 6e 5c | 22 88 5c 6e c5 94 c5 95 |"....\n\|".\n....|
|00000600| 4f 0e 06 50 87 22 20 5b | 73 74 72 69 6e 67 2d 6d |O..P." [|string-m|
|00000610| 61 74 63 68 20 22 5c 5c | 60 5c 5c 28 2e 2a 2f 5c |atch "\\|`\\(.*/\|
|00000620| 5c 29 5b 5e 2f 5d 2b 5c | 5c 27 22 20 66 69 6c 65 |\)[^/]+\|\'" file|
|00000630| 2d 6e 61 6d 65 20 65 72 | 72 6f 72 20 22 68 61 63 |-name er|ror "hac|
|00000640| 6b 2d 6c 6f 63 61 6c 2d | 6c 69 6e 6b 20 62 61 64 |k-local-|link bad|
|00000650| 20 61 72 67 75 6d 65 6e | 74 3a 20 25 73 22 20 31 | argumen|t: %s" 1|
|00000660| 20 6c 69 6e 6b 5d 20 33 | 5d 5d 20 32 29 0a 28 66 | link] 3|]] 2).(f|
|00000670| 73 65 74 20 27 65 78 70 | 61 6e 64 2d 66 69 6c 65 |set 'exp|and-file|
|00000680| 2d 6e 61 6d 65 20 23 5b | 28 66 69 6c 65 2d 6e 61 |-name #[|(file-na|
|00000690| 6d 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 69 72 |me &opti|onal dir|
|000006a0| 65 63 74 6f 72 79 29 20 | 22 c0 89 89 89 89 19 1a |ectory) |".......|
|000006b0| 1b 1c 1d c6 0e 07 0e 08 | 5c 22 13 0e 09 ab ee ca |........|\"......|
|000006c0| cb 0b 5c 22 89 15 ad 83 | 0d cc 55 15 cd 14 0b cd |..\"....|..U.....|
|000006d0| 9a ac d8 ce 0b 21 12 cf | 0c 5c 6e 40 5c 22 14 0d |.....!..|.\n@\"..|
|000006e0| ab 89 d0 0c 50 89 14 16 | 11 c0 15 5c 6e 41 13 d2 |....P...|...\nA..|
|000006f0| 0c 21 89 11 ab 5b 09 47 | cc 3d ab 82 d3 11 09 cc |.!...[.G|.=......|
|00000700| 48 d4 3d ac 95 ce 09 21 | 12 cf d5 0c 21 5c 6e 40 |H.=....!|....!\n@|
|00000710| 5c 22 14 cf 5c 6e 41 0b | 5c 22 89 13 aa 38 cf 09 |\"..\nA.|\"...8..|
|00000720| 0b 5c 22 13 0e 16 ab 87 | d7 0c 0b 5c 22 14 aa 27 |.\".....|...\"..'|
|00000730| cd 14 aa 23 0c aa 81 0b | 2d 87 22 20 5b 6e 69 6c |...#....|-." [nil|
|00000740| 20 6c 69 6e 6b 20 73 70 | 6c 69 74 20 72 69 67 68 | link sp|lit righ|
|00000750| 74 20 6c 65 66 74 20 6c | 65 66 74 2d 73 6c 61 73 |t left l|eft-slas|
|00000760| 68 20 6f 72 69 67 69 6e | 61 6c 2d 65 78 70 61 6e |h origin|al-expan|
|00000770| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |d-file-n|ame file|
|00000780| 2d 6e 61 6d 65 20 64 69 | 72 65 63 74 6f 72 79 20 |-name di|rectory |
|00000790| 65 78 70 61 6e 64 2d 73 | 79 6d 6c 69 6e 6b 73 20 |expand-s|ymlinks |
|000007a0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2f 2f |string-m|atch "//|
|000007b0| 22 20 30 20 22 22 20 73 | 70 6c 69 74 2d 66 69 6c |" 0 "" s|plit-fil|
|000007c0| 65 2d 6e 61 6d 65 20 6a | 6f 69 6e 2d 66 69 6c 65 |e-name j|oin-file|
|000007d0| 2d 6e 61 6d 65 20 22 2f | 22 20 2a 6c 32 20 66 69 |-name "/|" *l2 fi|
|000007e0| 6c 65 2d 73 79 6d 6c 69 | 6e 6b 2d 70 20 22 2e 22 |le-symli|nk-p "."|
|000007f0| 20 34 37 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 | 47 file|-name-di|
|00000800| 72 65 63 74 6f 72 79 20 | 65 78 70 61 6e 64 2d 73 |rectory |expand-s|
|00000810| 79 6d 6c 69 6e 6b 73 2d | 72 66 73 2d 65 78 69 73 |ymlinks-|rfs-exis|
|00000820| 74 73 20 65 78 70 61 6e | 64 2d 73 79 6d 6c 69 6e |ts expan|d-symlin|
|00000830| 6b 73 2d 72 66 73 2d 6d | 61 63 68 69 6e 65 2d 63 |ks-rfs-m|achine-c|
|00000840| 6f 6e 74 65 78 74 5d 20 | 36 20 22 5c 0a 43 6f 6e |ontext] |6 "\.Con|
|00000850| 76 65 72 74 20 46 49 4c | 45 4e 41 4d 45 20 74 6f |vert FIL|ENAME to|
|00000860| 20 61 62 73 6f 6c 75 74 | 65 2c 20 61 6e 64 20 63 | absolut|e, and c|
|00000870| 61 6e 6f 6e 69 63 61 6c | 69 7a 65 20 69 74 2e 0a |anonical|ize it..|
|00000880| 53 65 63 6f 6e 64 20 61 | 72 67 20 44 45 46 41 55 |Second a|rg DEFAU|
|00000890| 4c 54 20 69 73 20 64 69 | 72 65 63 74 6f 72 79 20 |LT is di|rectory |
|000008a0| 74 6f 20 73 74 61 72 74 | 20 77 69 74 68 20 69 66 |to start| with if|
|000008b0| 20 46 49 4c 45 4e 41 4d | 45 20 69 73 20 72 65 6c | FILENAM|E is rel|
|000008c0| 61 74 69 76 65 0a 28 64 | 6f 65 73 20 6e 6f 74 20 |ative.(d|oes not |
|000008d0| 73 74 61 72 74 20 77 69 | 74 68 20 73 6c 61 73 68 |start wi|th slash|
|000008e0| 29 09 09 3b 20 69 66 20 | 44 45 46 41 55 4c 54 20 |)..; if |DEFAULT |
|000008f0| 69 73 20 6e 69 6c 20 6f | 72 20 6d 69 73 73 69 6e |is nil o|r missin|
|00000900| 67 2c 0a 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |g,.the c|urrent b|
|00000910| 75 66 66 65 72 27 73 20 | 76 61 6c 75 65 20 6f 66 |uffer's |value of|
|00000920| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00000930| 72 79 20 69 73 20 75 73 | 65 64 2e 0a 46 69 6c 65 |ry is us|ed..File|
|00000940| 6e 61 6d 65 73 20 63 6f | 6e 74 61 69 6e 69 6e 67 |names co|ntaining|
|00000950| 20 2e 20 6f 72 20 2e 2e | 20 61 73 20 63 6f 6d 70 | . or ..| as comp|
|00000960| 6f 6e 65 6e 74 73 20 61 | 72 65 20 73 69 6d 70 6c |onents a|re simpl|
|00000970| 69 66 69 65 64 20 3b 0a | 69 6e 69 74 69 61 6c 20 |ified ;.|initial |
|00000980| 7e 20 69 73 20 65 78 70 | 61 6e 64 65 64 2e 20 20 |~ is exp|anded.  |
|00000990| 53 65 65 20 61 6c 73 6f | 20 74 68 65 20 66 75 6e |See also| the fun|
|000009a0| 63 74 69 6f 6e 20 20 73 | 75 62 73 74 69 74 75 74 |ction  s|ubstitut|
|000009b0| 65 2d 69 6e 2d 66 69 6c | 65 2d 6e 61 6d 65 2e 0a |e-in-fil|e-name..|
|000009c0| 54 68 69 73 20 68 61 73 | 20 62 65 65 6e 20 6d 6f |This has| been mo|
|000009d0| 64 69 66 69 65 64 20 74 | 6f 20 72 65 73 6f 6c 76 |dified t|o resolv|
|000009e0| 65 20 61 6c 6c 20 73 79 | 6d 62 6f 6c 69 63 20 6c |e all sy|mbolic l|
|000009f0| 69 6e 6b 73 20 66 72 6f | 6d 20 46 49 4c 45 4e 41 |inks fro|m FILENA|
|00000a00| 4d 45 2e 0a 54 68 65 20 | 6f 72 69 67 69 6e 61 6c |ME..The |original|
|00000a10| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 66 69 6e 69 | functio|n defini|
|00000a20| 74 69 6f 6e 20 69 73 20 | 73 74 6f 72 65 64 20 6f |tion is |stored o|
|00000a30| 6e 20 6f 72 69 67 69 6e | 61 6c 2d 65 78 70 61 6e |n origin|al-expan|
|00000a40| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 2e 22 5d 29 0a |d-file-n|ame."]).|
|00000a50| 28 70 72 6f 76 69 64 65 | 20 27 73 79 6d 6c 69 6e |(provide| 'symlin|
|00000a60| 6b 29 0a                |                         |k).     |        |
+--------+-------------------------+-------------------------+--------+--------+