XD::FILENAME:DIR-ON-PATH

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / function name: XD::FILENAME:DIR-ON-PATH
   
3. ;;;
   
4. ;;; 【功能说明 / description】
   
5. ;;;     该函数用于检查指定的目录 (`DIR`) 是否存在于指定的路径 (`PATH`) 中。
   
6. ;;;     它首先对目录和路径进行一些预处理（如替换斜杠方向、添加分号等），然后检查目录是否在路径中。
   
7. ;;;
   
8. ;;; 【参数说明 / parameters】
   
9. ;;;     DIR  - 需要检查的目录路径（字符串形式）。
   
10. ;;;     PATH - 用于检查的环境路径（字符串形式），通常是以分号分隔的多个目录路径。
    
11. ;;;
    
12. ;;; 【局部变量 / locals】
    
13. ;;;     DIR2  - 修正后的目录路径（考虑到反斜杠的情况）。
    
14. ;;;     FLAG  - 用于标识目录是否存在于路径中的标志值，返回布尔值。
    
15. ;;;
    
16. ;;; 【返回值 / return value】
    
17. ;;;     返回布尔值 `T` 表示目录存在于路径中，返回 `NIL` 表示目录不在路径中。
    
18. ;;;
    
19. ;;; 【实现逻辑 / implementation logic】
    
20. ;;; 1. 如果 `DIR` 和 `PATH` 都有效，执行以下操作：
    
21. ;;; 2. 如果需要加载 ARX 库，则将路径中的斜杠（`/`）替换为反斜杠（`\`）。
    
22. ;;; 3. 将 `DIR` 和 `PATH` 转换为大写字母（使用 `XSTRCASE`）。
    
23. ;;; 4. 检查路径中是否包含分号，如果没有，则添加分号。
    
24. ;;; 5. 检查目录路径的末尾是否包含反斜杠（`\`），如果没有，则为目录添加一个反斜杠。
    
25. ;;; 6. 使用 `WCMATCH` 函数检查路径中是否包含目录，若包含则返回 `T`，否则返回 `NIL`。
    
26. ;;;
    
27. ;;; 【示例 / example】
    
28. ;;;     (XD::FILENAME:DIR-ON-PATH "C:\\MyFolder" "C:\\Program Files;C:\\MyFolder;C:\\Windows")
    
29. ;;;     该调用检查 `C:\\MyFolder` 是否在给定的路径中，若在则返回 `T`，否则返回 `NIL`。
    
30. ;;;
    
31. ;; ------------------------------------------------------------------------
    
32. 
    
33. (defun XD::FILENAME:DIR-ON-PATH (DIR PATH / DIR2 FLAG)
    
34.   ;; 如果目录和路径都有效
    
35.   (if (and DIR PATH)
    
36.     (progn
    
37.       ;; 如果需要加载 ARX 库，则将路径中的斜杠替换为反斜杠
    
38.       (if (XD::INIT:FORCE-LOAD-ARX-LIB)
    
39.         (progn
    
40.           (setq DIR (XD::STR:REPLACE "/" "\\" DIR))   ;; 替换目录中的斜杠
    
41.           (setq PATH (XD::STR:REPLACE "/" "\\" PATH)) ;; 替换路径中的斜杠
    
42.         )
    
43.       )
    
44.       
    
45.       ;; 将目录和路径转换为大写字母
    
46.       (setq DIR (XSTRCASE DIR))
    
47.       (setq PATH (XSTRCASE PATH))
    
48.       
    
49.       ;; 如果路径的开始没有分号，则添加分号
    
50.       (if (/= ";" (substr PATH 1 1))
    
51.         (progn
    
52.           (setq PATH (strcat ";" PATH)) ;; 在路径前加上分号
    
53.         )
    
54.       )
    
55.       
    
56.       ;; 如果路径的末尾没有分号，则添加分号
    
57.       (if (/= ";" (substr PATH (strlen PATH) 1))
    
58.         (progn
    
59.           (setq PATH (strcat PATH ";")) ;; 在路径后加上分号
    
60.         )
    
61.       )
    
62.       
    
63.       ;; 如果目录路径的末尾没有反斜杠，则添加反斜杠
    
64.       (if (= "\\" (substr DIR (strlen DIR)))
    
65.         (progn
    
66.           (setq DIR2 (substr DIR 1 (- (strlen DIR) 1))) ;; 去掉目录末尾的反斜杠
    
67.         )
    
68.         (progn
    
69.           (setq DIR2 (strcat DIR "\\")) ;; 在目录末尾添加反斜杠
    
70.         )
    
71.       )
    
72.       
    
73.       ;; 检查路径中是否包含目录，若包含则设置 FLAG 为 T
    
74.       (setq FLAG (or (wcmatch PATH (strcat "*;" DIR ";*"))
    
75.                      (wcmatch PATH (strcat "*;" DIR2 ";*"))
    
76.                  )
    
77.       )
    
78.     )
    
79.   )
    
80.   
    
81.   ;; 返回 FLAG，即检查目录是否存在于路径中
    
82.   FLAG
    
83. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / function name: XD::FILENAME:DIR-ON-PATH<br /> ;;;<br /> ;;; 【功能说明 / description】<br /> ;;;     该函数用于检查指定的目录 (`DIR`) 是否存在于指定的路径 (`PATH`) 中。<br /> ;;;     它首先对目录和路径进行一些预处理（如替换斜杠方向、添加分号等），然后检查目录是否在路径中。<br /> ;;;<br /> ;;; 【参数说明 / parameters】<br /> ;;;     DIR  - 需要检查的目录路径（字符串形式）。<br /> ;;;     PATH - 用于检查的环境路径（字符串形式），通常是以分号分隔的多个目录路径。<br /> ;;;<br /> ;;; 【局部变量 / locals】<br /> ;;;     DIR2  - 修正后的目录路径（考虑到反斜杠的情况）。<br /> ;;;     FLAG  - 用于标识目录是否存在于路径中的标志值，返回布尔值。<br /> ;;;<br /> ;;; 【返回值 / return value】<br /> ;;;     返回布尔值 `T` 表示目录存在于路径中，返回 `NIL` 表示目录不在路径中。<br /> ;;;<br /> ;;; 【实现逻辑 / implementation logic】<br /> ;;; 1. 如果 `DIR` 和 `PATH` 都有效，执行以下操作：<br /> ;;; 2. 如果需要加载 ARX 库，则将路径中的斜杠（`/`）替换为反斜杠（`\`）。<br /> ;;; 3. 将 `DIR` 和 `PATH` 转换为大写字母（使用 `XSTRCASE`）。<br /> ;;; 4. 检查路径中是否包含分号，如果没有，则添加分号。<br /> ;;; 5. 检查目录路径的末尾是否包含反斜杠（`\`），如果没有，则为目录添加一个反斜杠。<br /> ;;; 6. 使用 `WCMATCH` 函数检查路径中是否包含目录，若包含则返回 `T`，否则返回 `NIL`。<br /> ;;;<br /> ;;; 【示例 / example】<br /> ;;;     (XD::FILENAME:DIR-ON-PATH "C:\\MyFolder" "C:\\Program Files;C:\\MyFolder;C:\\Windows")<br /> ;;;     该调用检查 `C:\\MyFolder` 是否在给定的路径中，若在则返回 `T`，否则返回 `NIL`。<br /> ;;;<br /> ;; ------------------------------------------------------------------------<br /> <br /> (defun XD::FILENAME:DIR-ON-PATH (DIR PATH / DIR2 FLAG)<br />   ;; 如果目录和路径都有效<br />   (if (and DIR PATH)<br />     (progn<br />       ;; 如果需要加载 ARX 库，则将路径中的斜杠替换为反斜杠<br />       (if (XD::INIT:FORCE-LOAD-ARX-LIB)<br />         (progn <br />           (setq DIR (XD::STR:REPLACE "/" "\\" DIR))   ;; 替换目录中的斜杠<br />           (setq PATH (XD::STR:REPLACE "/" "\\" PATH)) ;; 替换路径中的斜杠<br />         )<br />       )<br />       <br />       ;; 将目录和路径转换为大写字母<br />       (setq DIR (XSTRCASE DIR))<br />       (setq PATH (XSTRCASE PATH))<br />       <br />       ;; 如果路径的开始没有分号，则添加分号<br />       (if (/= ";" (substr PATH 1 1)) <br />         (progn <br />           (setq PATH (strcat ";" PATH)) ;; 在路径前加上分号<br />         )<br />       )<br />       <br />       ;; 如果路径的末尾没有分号，则添加分号<br />       (if (/= ";" (substr PATH (strlen PATH) 1)) <br />         (progn <br />           (setq PATH (strcat PATH ";")) ;; 在路径后加上分号<br />         )<br />       )<br />       <br />       ;; 如果目录路径的末尾没有反斜杠，则添加反斜杠<br />       (if (= "\\" (substr DIR (strlen DIR))) <br />         (progn <br />           (setq DIR2 (substr DIR 1 (- (strlen DIR) 1))) ;; 去掉目录末尾的反斜杠<br />         )<br />         (progn <br />           (setq DIR2 (strcat DIR "\\")) ;; 在目录末尾添加反斜杠<br />         )<br />       )<br />       <br />       ;; 检查路径中是否包含目录，若包含则设置 FLAG 为 T<br />       (setq FLAG (or (wcmatch PATH (strcat "*;" DIR ";*")) <br />                      (wcmatch PATH (strcat "*;" DIR2 ";*"))<br />                  )<br />       )<br />     )<br />   )<br />   <br />   ;; 返回 FLAG，即检查目录是否存在于路径中<br />   FLAG<br /> )<br />