(XD::Doc:RelativePath)获取两个文件的相对路径

Lispboy

1. (defun XD::Doc:RelativePath (from to / a b c d e f g _hasPath)
   
2.   (defun _hasPath (path / x)
   
3.     (not (vl-some '(lambda (x)
   
4.                      (= "" x)
   
5.                    ) (xdrx_splpath path)
   
6.          )
   
7.     )
   
8.   )
   
9.   (if (and
   
10.         (_hasPath from)
    
11.         (_hasPath to)
    
12.         (> (setq a (vl-string-mismatch from to 0 0 t))
    
13.            0
    
14.         )
    
15.       )
    
16.     (progn
    
17.       (setq b (substr from a)
    
18.             c (substr to (1+ a))
    
19.             d (xdrx_string_regexps "\\" b)
    
20.             e (apply
    
21.                 'strcat
    
22.                 d
    
23.               )
    
24.             f (xdrx_string_replace e "\\" "..\\")
    
25.             g (strcat f c)
    
26.       )
    
27.     )
    
28.   )
    
29. )

(defun XD::Doc:RelativePath (from to / a b c d e f g _hasPath)<br />   (defun _hasPath (path / x)<br />     (not (vl-some '(lambda (x)<br />                      (= "" x)<br />                    ) (xdrx_splpath path)<br />          )<br />     )<br />   )<br />   (if (and<br />         (_hasPath from)<br />         (_hasPath to)<br />         (> (setq a (vl-string-mismatch from to 0 0 t))<br />            0<br />         )<br />       )<br />     (progn<br />       (setq b (substr from a)<br />             c (substr to (1+ a))<br />             d (xdrx_string_regexps "\\" b)<br />             e (apply<br />                 'strcat<br />                 d<br />               )<br />             f (xdrx_string_replace e "\\" "..\\")<br />             g (strcat f c)<br />       )<br />     )<br />   )<br /> )