了解下fas是怎么加载的

nzl1116 · 发表于 2022-8-4 12:48:29

本帖最后由 nzl1116 于 2022-8-4 12:55 编辑

(defun _al-load-file (UnVar0 UnVar1 / UnVar2 UnVar3 UNVar4 UNVar5)
  (setq UnVar2 nil)
  (setq UnVar3 nil)
  (if (setq UNVar2 (string-equal UNVar1 ".FAS"))
(if (setq UNVar3 (make-encryptedfile-input-stream UNVar0))
   (al-fas-load UNVar3)
)
(if (setq UNVar3 (make-protectedfile-input-stream UNVar0))
   (al-load-stream UNVar3)
   (progn
      (setq UNVar4 (open UNVar0 :INPUT))
      (setq UNVar5 UNVar4)
      (defun -unwind-cleanup- ()
      (if (streamp UNVar4)
         (if (open-streamp UNVar4)
            (close UNVar4)
         )
      )
      )
      (defun -unwind-protect- (/ sUNVar0)
      (setq sUNVar0 _%sys-error-hook%)
      (defun UnFun (Arg0)
         (setq _%sys-error-hook% sUNVar0)
         (and (input-streamp UNVar5) (close UNVar5))
         (if sUNVar0 (sUNVar0 Arg0))
      )
      (setq _%sys-error-hook% UnFun)
      (if UnVar2
         (al-fas-load UNVar5)
         (al-load-stream UNVar5)
      )
      )
      (_unwinded-apply '-unwind-cleanup- '-unwind-protect- nil)
   )
)
  )
)

nzl1116 · 发表于 2022-8-4 18:30:49

;;;总结下就如下这样了，返回的是模块的表

(defun AYL-Load-Fas (fasFile / file Var0 Int0 Int1 mod0 mod1 mLst)
(setq mLst nil)
(setq file (open fasFile "r"))
(while (not (= (setq Var0 (as:read file nil file)) file))
(if (and
(= Var0 'FAS4-FILE)
(numberp (setq Int0 (as:read file nil nil)))
)
(progn
(setq mod0 (_rntm-module file nil Int0))
(if (numberp (setq Int1 (as:read file nil nil)))
(progn
(setq mod1 (_rntm-module file nil Int1))
;;make-xsubr函数执行完，并没填充模块数据，但模块码有了
;;执行完-tm-函数，才填充模块
((make-xsubr mod1 0 '-tm-) mod0)
;;(module-lit-vector mod1)
(setq mLst (cons (list mod0 mod1) mLst))
)
)
)
)
)
(close file)
(reverse mLst)
)

nzl1116 · 发表于 2022-8-4 12:50:01

(defun al-fas-load (UnVar0 / UnVar1 UnVar2 UnVar3)
(setq UnVar1 nil)
(setq UnVar2 nil)
(setq UnVar3 nil)
(setq UNVar1 0)
(while (not (= (setq UNVar3 (as:read UNVar0 nil UNVar0)) UNVar0))
(cond
((= UNVar3 (find-symbol "FAS4-FILE" :AUTOLISP)) (setq UnVar2 (func-00004A8A UnVar0)))
((= UNVar3 (find-symbol "FAS2-FILE" :AUTOLISP)) (setq UnVar2 (func-00004A47 UnVar0)))
((= UNVar3 (find-symbol "FAS-FILE" :AUTOLISP)) (setq UnVar2 (func-000049F2 UnVar0)))
((= UNVar3 (find-symbol "FAS3-FILE" :AUTOLISP)) (setq UnVar2 (func-00004BAA UnVar0)))
(T (func-00004892 UnVar0)) ;文件错误信息
)
(setq UnVar1 (1+ UnVar1))
)
(and *load-verbose* (load-verbose-print UNVar0 UnVar1))
UnVar2
)

nzl1116 · 发表于 2022-8-4 12:51:18

(defun func-00004A8A (UnVar0 / UnVar1 UnVar2)
(setq UnVar1 nil)
(setq UnVar2 nil)
(setq UnVar2 (func-000049B7 UnVar0))
(setq UnVar1 (func-000049B7 UnVar0))
(setq UnVar1 ((make-xsubr UnVar1 0 '-tm-) UnVar2))
(and *load-print* (print UnVar1))
UnVar1
)
(defun func-000049B7 (UnVar0 / UnVar1)
(setq UnVar1 (as:read UnVar0 nil nil))
(if (fixnump UnVar1)
(if (>= UnVar1 0)
nil
(func-00004892 UnVar0) ;文件错误信息
)
(func-00004892 UnVar0) ;文件错误信息
)
(_rntm-module UnVar0 nil UnVar1)
)

hhh454 · 发表于 2022-8-4 14:02:05

感谢分享，学习了

baitang36 · 发表于 2022-8-4 19:32:33

晨语大侠把压箱底的东西都拿出来了，大家鼓掌👏

caoliu023 · 发表于 2022-8-4 21:59:55

太高级了，看不懂

，那些不变色的函数是隐藏函数吗

linzenghuo · 发表于 2022-8-4 22:56:50

好东西。收藏了

springwillow · 发表于 2022-8-5 08:25:23

太高深了，有没有讲解一下

雨的节奏 · 发表于 2022-8-5 09:56:51

有没有办法，在不生成本地文件的情况下，加载fas文件。
或者说有没有办法知道al-fas-load对应的arx函数是什么

账号		自动登录	找回密码
密码			注册

[经验] 了解下fas是怎么加载的

评分

评分