Sds retval

提供:GizmoLabs - だいたい CAD LISP なサイト
2009年12月24日 (木) 19:41時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成: ; 構文 : int sds_retval (const struct sds_resbuf *value); ; 機能 : LISP にリザルトバッファに含まれた値を返す。 ; 引数 :* *value : ; 戻り値 : RTN…)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
int sds_retval (const struct sds_resbuf *value);


機能
LISP にリザルトバッファに含まれた値を返す。
引数
  • *value :
戻り値
RTNORM または RTERROR


サンプル
struct sds_resbuf *argbuf;
sds_getsym("argument",&argbuf);
if(argbuf==NULL) return(RTERROR);
sds_printf("\nこのタイプは、 %i.",argbuf->restype);
switch(argbuf->restype){
  case RTREAL: 
  sds_printf("\nこのタイプは、 %f. ",argbuf->resval.rreal);
  break;
  // 以下その他のケースがあれば記述。     
}
sds_retval(argbuf);