[原创]lsp文件注释删除工具V1.0

boboxiake

有bug，转出来程序用不了了

EOOW

我也有，影刀写的

zhangrunze

运行终止了

命令: (LOAD "C:/去除注释/relsp.fas")
lsp文件删除注释工具 V1.0 2007.12.4
bug发至xshrimp@163.com.网络U盘http:\\shlisp.ys168.com
启动命令名relsp
命令: RELSP
Error: 输入的列表有缺陷

amook147

扔给AI  不就行了

sachindkini

zhangrunze 发表于 2025-4-28 10:26
运行终止了

命令: (LOAD "C:/去除注释/relsp.fas")

2. (defun c:RELSP ( / infile outfile backup fin fout line inBlock)
   
3. 
   
4.   ;; -------------------------------
   
5.   ;; Utility: timestamp for file names
   
6.   ;; -------------------------------
   
7.   (defun NowStamp ( / dt)
   
8.     (setq dt (menucmd "m=$(edtime,$(getvar,cdate),YYYYMMDD_HHMMSS)"))
   
9.   )
   
10. 
    
11.   ;; -------------------------------
    
12.   ;; Check if position is inside string quotes
    
13.   ;; -------------------------------
    
14.   (defun inside-string-p (s pos / i c count)
    
15.     (setq i 1 count 0)
    
16.     (while (< i pos)
    
17.       (setq c (substr s i 1))
    
18.       (if (= c """) (setq count (1+ count)))
    
19.       (setq i (1+ i))
    
20.     )
    
21.     (= 1 (rem count 2)) ; odd = inside string
    
22.   )
    
23. 
    
24.   ;; -------------------------------
    
25.   ;; Strip inline trailing comments
    
26.   ;; -------------------------------
    
27.   (defun strip-inline (s / pos)
    
28.     (if (and s (> (strlen s) 0))
    
29.       (progn
    
30.         (setq pos (vl-string-search ";" s))
    
31.         (while (and pos (>= pos 0))
    
32.           (if (inside-string-p s (1+ pos)) ; adjust for 1-index
    
33.             (setq pos (vl-string-search ";" s (1+ pos))) ; skip this ;
    
34.             (setq s (substr s 1 pos) ; cut here
    
35.                   pos nil
    
36.             )
    
37.           )
    
38.         )
    
39.         (vl-string-trim " \t" s)
    
40.       )
    
41.       ""
    
42.     )
    
43.   )
    
44. 
    
45.   ;; -------------------------------
    
46.   ;; Ask user for file
    
47.   ;; -------------------------------
    
48.   (setq infile (getfiled "Select LSP file to clean" "" "lsp" 8))
    
49.   (if (not infile) (progn (princ "\nERROR: No file selected.") (exit)))
    
50.   (setq infile (findfile infile))
    
51.   (if (not infile) (progn (princ "\nERROR: Could not resolve input file path.") (exit)))
    
52. 
    
53.   ;; Generate output file names with timestamp
    
54.   (setq ts (NowStamp))
    
55.   (setq backup (strcat (vl-filename-directory infile) "\" (vl-filename-base infile) "_backup_" ts ".lsp"))
    
56.   (setq outfile (strcat (vl-filename-directory infile) "\" (vl-filename-base infile) "_clean_" ts ".lsp"))
    
57. 
    
58.   ;; Try to copy backup
    
59.   (if (not (vl-file-copy infile backup))
    
60.     (princ "\nWARNING: Could not create backup file.")
    
61.   )
    
62. 
    
63.   ;; Open files
    
64.   (setq fin (open infile "r"))
    
65.   (setq fout (open outfile "w"))
    
66. 
    
67.   (if (and fin fout)
    
68.     (progn
    
69.       (setq inBlock nil)
    
70.       (while (setq line (read-line fin))
    
71.         (if line
    
72.           (cond
    
73.             ;; If inside a block comment
    
74.             (inBlock
    
75.               (if (vl-string-search "|;" line)
    
76.                 (setq inBlock nil) ; block ends
    
77.               )
    
78.               ;; skip line
    
79.             )
    
80. 
    
81.             ;; detect start of block comment
    
82.             ((vl-string-search ";|" line)
    
83.               (if (not (vl-string-search "|;" line))
    
84.                 (setq inBlock t)
    
85.               )
    
86.               ;; skip line
    
87.             )
    
88. 
    
89.             ;; whole line comment
    
90.             ((= (substr (vl-string-trim " \t" line) 1 1) ";")
    
91.               ;; skip
    
92.             )
    
93. 
    
94.             ;; normal line
    
95.             (t
    
96.               (setq line (strip-inline line))
    
97.               (if (> (strlen (vl-string-trim " \t" line)) 0)
    
98.                 (write-line line fout)
    
99.               )
    
100.             )
     
101.           )
     
102.         )
     
103.       )
     
104.       (close fin) (close fout)
     
105. 
     
106.       (princ "\n+----------------------------------------------+")
     
107.       (princ "\n|              RELSP v2.0 (Cleaner)            |")
     
108.       (princ "\n|      Removes line, block & inline comments   |")
     
109.       (princ "\n|     Adds backup & cleaned file timestamps    |")
     
110.       (princ "\n+----------------------------------------------+")
     
111.       (princ (strcat "\nInput : " infile))
     
112.       (princ (strcat "\nBackup: " backup))
     
113.       (princ (strcat "\nOutput: " outfile))
     
114.     )
     
115.     (progn
     
116.       (if fin (close fin))
     
117.       (if fout (close fout))
     
118.       (princ "\nERROR: Could not open input/output files.")
     
119.     )
     
120.   )
     
121.   (princ)
     
122. )
     

(defun c:RELSP ( / infile outfile backup fin fout line inBlock)<br /> <br />   ;; -------------------------------<br />   ;; Utility: timestamp for file names<br />   ;; -------------------------------<br />   (defun NowStamp ( / dt)<br />     (setq dt (menucmd "m=$(edtime,$(getvar,cdate),YYYYMMDD_HHMMSS)"))<br />   )<br /> <br />   ;; -------------------------------<br />   ;; Check if position is inside string quotes<br />   ;; -------------------------------<br />   (defun inside-string-p (s pos / i c count)<br />     (setq i 1 count 0)<br />     (while (< i pos)<br />       (setq c (substr s i 1))<br />       (if (= c """) (setq count (1+ count)))<br />       (setq i (1+ i))<br />     )<br />     (= 1 (rem count 2)) ; odd = inside string<br />   )<br /> <br />   ;; -------------------------------<br />   ;; Strip inline trailing comments<br />   ;; -------------------------------<br />   (defun strip-inline (s / pos)<br />     (if (and s (> (strlen s) 0))<br />       (progn<br />         (setq pos (vl-string-search ";" s))<br />         (while (and pos (>= pos 0))<br />           (if (inside-string-p s (1+ pos)) ; adjust for 1-index<br />             (setq pos (vl-string-search ";" s (1+ pos))) ; skip this ;<br />             (setq s (substr s 1 pos) ; cut here<br />                   pos nil<br />             )<br />           )<br />         )<br />         (vl-string-trim " \t" s)<br />       )<br />       ""<br />     )<br />   )<br /> <br />   ;; -------------------------------<br />   ;; Ask user for file<br />   ;; -------------------------------<br />   (setq infile (getfiled "Select LSP file to clean" "" "lsp" 8))<br />   (if (not infile) (progn (princ "\nERROR: No file selected.") (exit)))<br />   (setq infile (findfile infile))<br />   (if (not infile) (progn (princ "\nERROR: Could not resolve input file path.") (exit)))<br /> <br />   ;; Generate output file names with timestamp<br />   (setq ts (NowStamp))<br />   (setq backup (strcat (vl-filename-directory infile) "\" (vl-filename-base infile) "_backup_" ts ".lsp"))<br />   (setq outfile (strcat (vl-filename-directory infile) "\" (vl-filename-base infile) "_clean_" ts ".lsp"))<br /> <br />   ;; Try to copy backup<br />   (if (not (vl-file-copy infile backup))<br />     (princ "\nWARNING: Could not create backup file.")<br />   )<br /> <br />   ;; Open files<br />   (setq fin (open infile "r"))<br />   (setq fout (open outfile "w"))<br /> <br />   (if (and fin fout)<br />     (progn<br />       (setq inBlock nil)<br />       (while (setq line (read-line fin))<br />         (if line<br />           (cond<br />             ;; If inside a block comment<br />             (inBlock<br />               (if (vl-string-search "|;" line)<br />                 (setq inBlock nil) ; block ends<br />               )<br />               ;; skip line<br />             )<br /> <br />             ;; detect start of block comment<br />             ((vl-string-search ";|" line)<br />               (if (not (vl-string-search "|;" line))<br />                 (setq inBlock t)<br />               )<br />               ;; skip line<br />             )<br /> <br />             ;; whole line comment<br />             ((= (substr (vl-string-trim " \t" line) 1 1) ";")<br />               ;; skip<br />             )<br /> <br />             ;; normal line<br />             (t<br />               (setq line (strip-inline line))<br />               (if (> (strlen (vl-string-trim " \t" line)) 0)<br />                 (write-line line fout)<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (close fin) (close fout)<br /> <br />       (princ "\n+----------------------------------------------+")<br />       (princ "\n|              RELSP v2.0 (Cleaner)            |")<br />       (princ "\n|      Removes line, block & inline comments   |")<br />       (princ "\n|     Adds backup & cleaned file timestamps    |")<br />       (princ "\n+----------------------------------------------+")<br />       (princ (strcat "\nInput : " infile))<br />       (princ (strcat "\nBackup: " backup))<br />       (princ (strcat "\nOutput: " outfile))<br />     )<br />     (progn<br />       (if fin (close fin))<br />       (if fout (close fout))<br />       (princ "\nERROR: Could not open input/output files.")<br />     )<br />   )<br />   (princ)<br /> )<br />