43#include "EST_cutils.h"
47int wagon_ask_question(
LISP question,
LISP value)
49 const char *
str_oper = wgn_ques_oper_str(question);
53 if (streq(get_c_string(value),
54 get_c_string(wgn_ques_operand(question))))
60 if (get_c_float(value) == get_c_float(wgn_ques_operand(question)))
65 if (get_c_float(value) < get_c_float(wgn_ques_operand(question)))
70 if (get_c_float(value) > get_c_float(wgn_ques_operand(question)))
83 if (siod_member_str(get_c_string(value),
84 wgn_ques_operand(question)) != NIL)
90 cerr <<
"WAGON: unknown question operator: \"" <<