#include <sollya.h>

int callback(sollya_msg_t msg, void *data) {
  (void)data; /* Avoiding "unused parameter" warning */

  int message = sollya_lib_get_msg_id(msg);
  if (message == SOLLYA_MSG_EXPR_NOT_CORRECTLY_TYPED)
    sollya_lib_printf("The following test produces a typing error\n");
  else
    sollya_lib_printf("Unexpected message\n");
  return 0;

}
int main(void) {
  sollya_obj_t ttrue, tfalse, a, b, res;

  sollya_lib_init();
  sollya_lib_install_msg_callback(callback, NULL);

  ttrue = sollya_lib_true();
  tfalse = sollya_lib_false();

  a = sollya_lib_copy_obj(ttrue);
  b = sollya_lib_copy_obj(ttrue);
  res = sollya_lib_or(a, b);
  sollya_lib_printf("%b or %b gives %b\n", a, b, res);
  sollya_lib_clear_obj(a);
  sollya_lib_clear_obj(b);
  sollya_lib_clear_obj(res);

  a = sollya_lib_copy_obj(ttrue);
  b = sollya_lib_copy_obj(tfalse);
  res = sollya_lib_or(a, b);
  sollya_lib_printf("%b or %b gives %b\n", a, b, res);
  sollya_lib_clear_obj(a);
  sollya_lib_clear_obj(b);
  sollya_lib_clear_obj(res);

  a = sollya_lib_copy_obj(tfalse);
  b = sollya_lib_copy_obj(ttrue);
  res = sollya_lib_or(a, b);
  sollya_lib_printf("%b or %b gives %b\n", a, b, res);
  sollya_lib_clear_obj(a);
  sollya_lib_clear_obj(b);
  sollya_lib_clear_obj(res);

  a = sollya_lib_copy_obj(tfalse);
  b = sollya_lib_copy_obj(tfalse);
  res = sollya_lib_or(a, b);
  sollya_lib_printf("%b or %b gives %b\n", a, b, res);
  sollya_lib_clear_obj(a);
  sollya_lib_clear_obj(b);
  sollya_lib_clear_obj(res);

  a = SOLLYA_CONST(17);
  b = sollya_lib_string("Hello");
  res = sollya_lib_or(a, b);
  sollya_lib_printf("%b or %b gives %b\n", a, b, res);
  sollya_lib_clear_obj(a);
  sollya_lib_clear_obj(b);
  sollya_lib_clear_obj(res);


  sollya_lib_clear_obj(ttrue);
  sollya_lib_clear_obj(tfalse);
  sollya_lib_close();
  return 0;
}
