【原创】用纯lisp实现压缩和解压缩

baitang36

因为使用了AutoCAD的保留函数，本程序只适用于autocad，中望和浩辰暂不支持。
在syz-compress.fas中定义了两个函数：
syz-compress的功能是压缩二进制字符串，用法：(syz-compress "1234123413423421234")
syz-decompress的功能是解压缩字符串，用法：(syz-decompress "压缩字符串")
加载syz-compress.fas后，在命令行输入(syz-decompress(syz-compress "123412341234"))返回字符串"123412341234"，说明加载成功。
syz-yasuo.lsp是使用syz-compress.fas的例子程序，可以实现压缩和解压缩文件。
压缩文件的函数是syz-yasuo,用法：(syz-yasuo "c:/00/1.dwg" "c:/00/1.zwg") 把1.dwg压缩成1.zwg
解压缩文件的函数是syz-jyasuo,用法：(syz-jyasuo "c:/00/1.zwg" "c:/00/2.dwg") 把1.zwg解压缩成2.zwg
syz-compress.fas是用保留函数调用windows api实现的，用了标准的LZ算法，压缩率一般，速度挺快的，压缩一个500兆的dwg用时5秒左右。
syz-compress.fas源码暂不公开，想学习lsp调用系统api者联系qq5520971（不免费）。
syz-yasuo.lsp的源码如下：

1. (load "c:/00/trf_9.fas")
   
2. (load "c:/00/syz-compress.fas")
   
3. (tranf "_read-nb")
   
4. (tranf "_write-nb-str")
   
5. (defun syz-yasuo (fname1 fname2 / f1 f2 str1 str2)
   
6.   (setq f1 (open fname1 "r"))
   
7.   (setq f2 (open fname2 "w"))
   
8.   (setq str1 (_read-nb 640000000 f1))
   
9.   (setq str2 (syz-compress str1))
   
10.   (_write-nb-str str2 f2)
    
11.   (close f2)
    
12.   (close f1)
    
13. )
    
14. (defun syz-jyasuo (fname1 fname2 / f1 f2 str1 str2)
    
15.   (setq f1 (open fname1 "r"))
    
16.   (setq f2 (open fname2 "w"))
    
17.   (setq str1 (_read-nb 640000000 f1))
    
18.   (setq str2 (syz-decompress str1))
    
19.   (_write-nb-str str2 f2)
    
20.   (close f2)
    
21.   (close f1)
    
22. )
    

(load "c:/00/trf_9.fas")<br /> (load "c:/00/syz-compress.fas")<br /> (tranf "_read-nb")<br /> (tranf "_write-nb-str")<br /> (defun syz-yasuo (fname1 fname2 / f1 f2 str1 str2)<br />   (setq f1 (open fname1 "r"))<br />   (setq f2 (open fname2 "w"))<br />   (setq str1 (_read-nb 640000000 f1))<br />   (setq str2 (syz-compress str1))<br />   (_write-nb-str str2 f2)<br />   (close f2)<br />   (close f1)<br /> )<br /> (defun syz-jyasuo (fname1 fname2 / f1 f2 str1 str2)<br />   (setq f1 (open fname1 "r"))<br />   (setq f2 (open fname2 "w"))<br />   (setq str1 (_read-nb 640000000 f1))<br />   (setq str2 (syz-decompress str1))<br />   (_write-nb-str str2 f2)<br />   (close f2)<br />   (close f1)<br /> )<br />

flowerson

厉害，学习了！

magicheno

感谢大佬分享~

Bao_lai

玩出新花样～

不一样地设计

感谢楼主分享！

baitang36

无币的朋友在这里下载

yaojing38

感谢楼主分享！

pxt2001

把压缩包解压到某路径，怎讲处理呢？