用法
评论
建议
取 消
确 定
(defun string:indent (str / curr-ind% res) "缩进 lisp 代码" (setq curr-ind% 0) (setq res (quote nil)) (setq str (@:string-subst "\"\n" "\" " (@:string-subst ")\n" ") " str))) (foreach char% (vl-string->list str) (cond ((= 40 char%) (setq curr-ind% (1+ curr-ind%))) ((= 41 char%) (setq curr-ind% (1- curr-ind%)))) (setq res (cons char% res)) (if (= 10 char%) (repeat (* 4 curr-ind%) (setq res (cons 32 res))))) (vl-list->string (reverse res)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新
冀公网安备 13050302000400号