传递字符窜返回颠倒的字符窜

snigefqb

[code];;;带*号的变量为全局变量                                       
;;;-------------------------------------------------------------
;;;                       <<函数名字>>                          
;;;   YY:reverse_string                                         
;;;-------------------------------------------------------------
;;;                         <<说明>>                           
;;;   传递字符窜返回颠倒的字符窜                                
;;;-------------------------------------------------------------
;;;                         <<条件>>                           
;;; (list (list str))                                          
;;; str为字符窜                                                
;;;-------------------------------------------------------------
;;;                           改进方式                          
;;; 检查中文码是否大于127                                       
;;;-------------------------------------------------------------
(defun YY:reverse_string (YY:reverse_string_list /  YY:reverse_string_str  YY:reverse_string_list YY:reverse_string_list1)
  (if (= 1 (length YY:reverse_string_list));判断传递的参数是否为1个
    (if (= 'str (type (setq YY:reverse_string_str (car YY:reverse_string_list))));判断满足条件的的参数类型是否符合子函数的要求
      (progn

snigefqb

;;;带*号的变量为全局变量                                       
;;;-------------------------------------------------------------
;;;                       <<函数名字>>                          
;;;   YY:reverse_string                                         
;;;-------------------------------------------------------------
;;;                         <<说明>>                           
;;;   传递字符窜返回颠倒的字符窜                                
;;;-------------------------------------------------------------
;;;                         <<条件>>                           
;;; (list (list str))                                          
;;; str为字符窜                                                
;;;-------------------------------------------------------------
;;;                           改进方式                          
;;; 检查中文码是否大于127                                       
;;;-------------------------------------------------------------
(defun YY:reverse_string (YY:reverse_string_list /  YY:reverse_string_str  YY:reverse_string_list YY:reverse_string_list1)
  (if (= 1 (length YY:reverse_string_list));判断传递的参数是否为1个
    (if (= 'str (type (setq YY:reverse_string_str (car YY:reverse_string_list))));判断满足条件的的参数类型是否符合子函数的要求
      (progn
        (setq YY:reverse_string_list (vl-string->list YY:reverse_string_str));转码 将符号设置为以表形式定义的函数
        (while  YY:reverse_string_list
                   (if (> (nth 0 YY:reverse_string_list) 127);当中文为大于127的两个码组成
                   (progn
                     (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) (cons (nth 1 YY:reverse_string_list) YY:reverse_string_list1)));中文取两个码
                     (setq YY:reverse_string_list (cddr YY:reverse_string_list));
                     );end_if->t->end_progn
                   (progn
                     (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) YY:reverse_string_list1));取一码
                     (setq YY:reverse_string_list (cdr YY:reverse_string_list))
                     );end_if->nil->end_progn
                   );end_if
          );end_while
        (vl-list->string YY:reverse_string_list1);将一系列与整数表相关联的字符组合成字符串
        );end_prong
      );end_if->t->end_if
    (princ "\nYY:reverse_string函数 传递的参数不为1,请检查!");end_if->nil
    );end_if
  );end_defun