@::create-package

说明:创建

用法:

 (@::create-package)

参数:

返回值:

示例:

(defun @::create-package (/ dcl_id dcl-tmp pkg-name create-package callback-create-package *error*)
  ;;(@::help (strcat "创建应用包,需输入用于区别其它应用包的英文名称。中文名称及其它项可在生成的 pkg.lsp 文件中修改。\n"))  (defun *error* (msg)
    (unload_dialog dcl_id)
    (vl-file-delete dcl-tmp)
    (@::*error* msg)
    )
  (if (null (@::check-userinfo)) (progn(alert (_"User infomation is invalid."))(exit)))
  (if (/= 'subr (type @::package-update))(progn (@::load-module 'pkgman) (sleep 1)))
  (@::load-module 'pkgman)
  (@::package-update)
  (if (null (vl-file-directory-p (@::get-config '@dev::src)))
      (@dev::clone))
  (defun callback-create-package (/ dcl-tmp dcl_fp dcl_id )
    (setq pkg-name (strcase (get_tile "name") T))
    ;; 检查英文名    (if (and (apply 'and (mapcar '(lambda (x) (null (member (ascii x)(vl-string->list pkg-name))))
				 '(" " "\\" "/" "*")))
	     (check-package-name pkg-name))
	(if (and (= 'str (type pkg-name))
		 (< 0 (strlen pkg-name)))
	    (progn
	      (@::create-pkg pkg-name
			    (get_tile "fullname")
			    (if (> (atoi (get_tile "category")) 0)
				(nth (1- (atoi (get_tile "category"))) @::*pkgs-category*)
			      "Uncategorized")
			    (get_tile "description")
			    (if (= "1" (get_tile "multifiles"))
				T
			      nil)
			    (get_tile "vlxname")
			    (get_tile "vlxcommand")
			    )
	      ))
      (alert (stract "The package name '" pkg-name "' have invalid word."))
      ))
  
  "创建包信息"
  (setq dcl-tmp (vl-filename-mktemp nil nil ".dcl" ))
  (setq dcl_fp (open dcl-tmp "w"))
  (foreach line% 
	   (list
	    (strcat "createPackage : dialog {label=\"" (_"Create Package") "\";" )
	    (strcat ":column {:row {:edit_box {label=\""(_"PKG Name")
		    ":\";key=\"name\";width=36;fixed_width=true;edit_width=20;alignment=right;}")
	    
	    (strcat ":text {label=\""(_"English name") "\";key =\"name_desc\";width=50; } }")
	    (strcat  ":row {: edit_box {label=\""(_"Full Name")":\";" )
	    "key=\"fullname\";width=36;fixed_width=true;edit_width=20;alignment=right; }"
	    (strcat ":text_part {label=\""
		    (_"The name in your local language.")
		    "\";key =\"fullname_desc\";width=50;}}")
	    (strcat ":row {:popup_list{label=\"" (_"Category")
		    ":\";key=\"category\";width=36;fixed_width=true;edit_width=20;alignment=right;}")
	    (strcat  ": text_part {	label=\""(_"The package in category.")
		     "\";key =\"category-desc\";width=50;}}")
	    (strcat ": row {: edit_box {label=\"" (_"Description")
		    ":\";key=\"description\";width=95;fixed_width=true;edit_width=80;alignment=right;}}" )
	    (strcat ": row {: toggle {label=\""
		    (_"Multi Files:include menus,hotkey etc.")
		    "\";key=\"multifiles\";width=95;fixed_width=true;edit_width=80;alignment=right;}}")
	    "} ok_cancel;}")
	   (write-line line% dcl_fp))
  (close dcl_fp)
  (setq dcl_id (load_dialog dcl-tmp))
  (if (not (new_dialog "createPackage" dcl_id))
      (exit))
  (start_list "category")
  (add_list "Uncategorized")
  (mapcar 'add_list @::*pkgs-category*)
  (end_list)
  (action_tile "accept" "(callback-create-package)(done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete dcl-tmp)
  (princ)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@::create-package

上传记录