Sds retval

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
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);