@::compile-pkg

说明:组件

用法:

 (@::compile-pkg pkg-name)

参数:pkg-name

返回值:

示例:

(defun @::compile-pkg (pkg-name / pkg-file% flag-compile @fp) 
  "编译应用包。返回值： 成功  T , 失败 nil"
  (if (= 1 (getvar "lispsys")) 
    (alert 
      (strcat 
        (_ "Your CAD's version is higher. and LISPSYS=1.")
        "\n"
        (_ "And FAS files that it compiled can NOT run in LOW CAD version.\n")
        (_ "Please set LISPSYS's value as 0 or 2"))))
  (if (null (= 'subr (type vlisp-compile))) (C:vlide))
  (setq flag-compile T)
  (if (null (findfile (@::path-os(strcat @::*prefix* "packages\\" pkg-name))))
    (vl-mkdir (@::path-os(strcat @::*prefix* "packages\\" pkg-name))))
  (if (findfile (@::path-os(strcat (@::package-src pkg-name) "pkg.lsp")))
    (progn 
      (@::@log "INFO" (strcat (_ "Compile ") pkg-name "..."))
      ;; 制作单个文件      (vl-file-delete (@::path-os(strcat (@::package-path pkg-name) "pkg.lsp")))
      (setq @fp (open (@::path-os(strcat (@::package-path pkg-name) "pkg.lsp")) "w"))
      (write-line 
        (vl-prin1-to-string 
          (read (@::get-file-contents (@::path-os(strcat (@::package-src pkg-name) "pkg.lsp")))))
        @fp)
      (close @fp)

(if (/= "failure" (load (@::path-os(strcat (@::package-path pkg-name) "pkg.lsp")) "failure")) 
        (progn 
          ;; 合并 utf8编码的 wholelsp          (file:merge 
           (@::path-os(strcat (@::package-path pkg-name) pkg-name "-whole_u.lsp"))
            (vl-remove 
              nil
              (mapcar 
                '(lambda (x) 
                   (if (= (vl-filename-extension x) nil) 
                       (@::path-os(strcat (@::package-src pkg-name) x ".lsp"))
                       nil))
                (cdr (assoc :files (@::get-local-pkg-info pkg-name))))))
          ;; min wholelsp          (setq @fp (open (@::path-os(strcat (@::package-path pkg-name) pkg-name "-whole.lsp")) "w"))
          (write-line 
            (vl-prin1-to-string 
              (read 
                (strcat 
                 "(progn"
		 (vl-prin1-to-string @dev::loadlib-str)
                 (@::get-file-contents (@::path-os(strcat (@::package-path pkg-name) pkg-name "-whole_u.lsp")))
                 ")")))
            @fp)
          (close @fp)
          (mapcar 
            '(lambda (x) 
               (if (/= (vl-filename-extension x) nil) 
                 (progn 
                   (vl-file-delete (@::path-os(strcat (@::package-path pkg-name) x)))
                   (vl-file-copy 
                    (@::path-os(strcat (@::package-src pkg-name) x))
                    (@::path-os(strcat (@::package-path pkg-name) x))))))
            (cdr (assoc :files (@::get-local-pkg-info pkg-name))))
          (if (findfile "bin/DESCoder.exe") 
            (progn 
              (setvar "cmdecho" 0)
              (@::cmd 
                "start-bg"
                (strcat 
                  " /D "
                  (@::path-os @::*prefix*)
                  " /MIN /B  "
                  "bin\\DESCoder.exe "
                  (@::path-os (strcat (@::package-path pkg-name) pkg-name "-whole.lsp"))))
              (setvar "cmdecho" 1)))
          (if 
            (and 
              (= 'subr (type vlisp-compile))
              (or 
                (< (@::acadver) 24) ;; 高版本不不兼容                (/= 1 (getvar "lispsys"))))
            (if (vlisp-compile 'st (@::path-os(strcat (@::package-path pkg-name) pkg-name "-whole.lsp")) )
              (progn 
                (@::@debug "INFO" (strcat (_ "Compile ") "whole Success!")))
              (progn 
                (@::@log "ERROR" (strcat (_ "Compile ") pkg-file% " Faile!"))
                (setq flag-compile nil)))
            (progn (alert "Please run visuallisp before the function. INPUT 'vlisp' or 'vlide' in commandline.") nil)))
        (setq flag-compile nil))
      (princ "----------------------\n"))
    (setq flag-compile nil))
  (if flag-compile 
    (@::prompt (_ "Compilation completed."))
    (@::prompt (_ "Compilation failed!")))
  flag-compile)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@::compile-pkg

上传记录