(XD::DCL:CheckIn)检查输入格式

Free-Lancer

1. ;;检查输入格式(数字)
   
2. ;;input  ---- $value
   
3. ;;format ---- string
   
4. ;;kk     ---- key
   
5. (defun XD::DCL:CheckIn (input format kk /)
   
6.   (if (and (distof input 2) (> (atof input) 0))
   
7.     (progn (XD::dcl:RsError) input)
   
8.     (progn
   
9.       (XD::dcl:SetError (strcat "无效的" format "输入"))
   
10.       (mode_tile kk 2)
    
11.       nil
    
12.     )
    
13.   )
    
14. )

;;检查输入格式(数字)<br /> ;;input  ---- $value<br /> ;;format ---- string<br /> ;;kk     ---- key<br /> (defun XD::DCL:CheckIn (input format kk /)<br />   (if (and (distof input 2) (> (atof input) 0))<br />     (progn (XD::dcl:RsError) input)<br />     (progn<br />       (XD::dcl:SetError (strcat "无效的" format "输入"))<br />       (mode_tile kk 2)<br />       nil<br />     )<br />   )<br /> )