@::create-pkg

说明:创建

用法:

 (@::create-pkg pkg-name pkg-fullname pkg-category pkg-desc multifiles vlxname vlxcommand)

参数:pkg-name;pkg-fullname;pkg-category;pkg-desc;multifiles;vlxname;vlxcommand

返回值:

示例:

(defun @::create-pkg (pkg-name pkg-fullname pkg-category pkg-desc multifiles vlxname vlxcommand / pkg-lsp-fp lsp-file-fp)
  ;; vlxname 对中文名字的处理  (if (null (@::check-userinfo))
      (progn
	(alert (_"User infomation is invalid."))(exit)))

(if (or (null pkg-category)
	  (= "" pkg-category))
      (setq pkg-category "Common"))
  ;;(@dev::clone)  
  (vl-mkdir (strcat (@::get-config '@dev::src) "packages\\" pkg-name ))
  (vl-mkdir (@::package-path pkg-name))
  
  (setq pkg-lsp-fp (open (strcat (@::package-src pkg-name) "pkg.lsp") "w"))
  (write-line (strcat "(@::def-pkg "
		      "'((:name . \"" pkg-name "\")"
		      "  (:full-name . \""  pkg-fullname "\")"
		      "  (:author . \""  (@::get-config '@::user)  "\")"
		      "  (:email . \"" (@::get-config '@::user-email) "\")"
		      "  (:version . \"0.0.1\")"
		      "  (:locale . \"" @::locale "\")"
		      "  (:category . \"" pkg-category "\")"
		      "  (:required . \"base\")"
		      "  (:opensource . 0) "
		      "  (:description . \"" pkg-desc "\")"
		      "  (:url . \"http://atlisp.cn\")"
		      "  (:files . (\"" pkg-name "\"")
	      pkg-lsp-fp)
  (if (and vlxname (findfile vlxname))
      (progn
	(vl-file-copy (findfile vlxname) (strcat (@::package-src pkg-name) (vl-filename-base vlxname) ".vlx"))
	(write-line (strcat "  \"" (vl-filename-base vlxname) ".vlx" "\"") pkg-lsp-fp)))
  (if multifiles
      (write-line (strcat "  \"menus\"") pkg-lsp-fp))
  (write-line (strcat "              ;; you can add file name that you will included in the package.") pkg-lsp-fp)
  (write-line (strcat "              ;; lsp file must not input extand name.") pkg-lsp-fp)
  (write-line (strcat "              ))))") pkg-lsp-fp)
  (close pkg-lsp-fp)
  (vl-file-delete (strcat (@::package-path pkg-name) "pkg.lsp"))
  (vl-file-copy (strcat (@::package-src pkg-name) "pkg.lsp")
		(strcat (@::package-path pkg-name) "pkg.lsp"))

;;创建lisp文件  (if (and vlxname (findfile vlxname))
      (progn ;;create lsp file	(alert "vlx")

(setq pkglsp (open  (strcat (@::package-src pkg-name) pkg-name ".lsp") "w"))
	(write-line (strcat "(@::add-menu \"Plugins\" \"" pkg-fullname "\" " "\"(" pkg-name":loader)\")") pkglsp)
	(write-line (strcat "(defun " pkg-name ":loader ()") pkglsp)
	(write-line (strcat "(load-vlx  \"" pkg-name "/" (vl-filename-base vlxname) ".vlx\" C:" vlxcommand "))") pkglsp)
	(close pkglsp)
	)
    (progn
      (if (member @::locale '("chs" "zh"))
	  (vl-file-copy (findfile (strcat "packages/dev-tools/first.template-" @::locale))
			(strcat (@::package-src pkg-name) pkg-name ".lsp"))
	(vl-file-copy (findfile "packages/dev-tools/first.template")
		      (strcat (@::package-src pkg-name) pkg-name ".lsp")))
      (@::string-replace-in-file pkg-name "{pkg}" (strcat (@::package-src pkg-name) pkg-name ".lsp"))
      (@::string-replace-in-file pkg-fullname "{pkg-full-name}" (strcat (@::package-src pkg-name) pkg-name ".lsp"))
      ))
  (if (member @::locale '("chs" "zh"))
      (vl-file-copy (findfile (strcat "packages/dev-tools/menus.template-" @::locale))
		    (strcat (@::package-src pkg-name) "menus.lsp"))
    (vl-file-copy (findfile "packages/dev-tools/menus.template")
		  (strcat (@::package-src pkg-name) "menus.lsp")))
  (@::string-replace-in-file pkg-name "{pkg}" (strcat (@::package-src pkg-name) "menus.lsp"))
  (@::string-replace-in-file pkg-fullname "{pkg-full-name}" (strcat (@::package-src pkg-name) "menus.lsp"))
  ;;  (if multifiles (  (alert (strcat (_"Your package is created.")"\n"
		 (_"Your package is located in path:")
		 "\n\n " (@::package-src pkg-name)  "\n\n"
		 (_"Please develop it use your tools.")))
  (@::set-config '@::current-pkg pkg-name)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@::create-pkg

上传记录