2009-05-02 05:04:19 -04:00
|
|
|
#include "master.hpp"
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-08-17 16:37:06 -04:00
|
|
|
void factorvm::box_boolean(bool value)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
dpush(value ? T : F);
|
|
|
|
}
|
|
|
|
|
2009-08-23 09:45:09 -04:00
|
|
|
VM_C_API void box_boolean(bool value, factorvm *myvm)
|
2009-08-17 16:37:06 -04:00
|
|
|
{
|
2009-08-23 09:45:09 -04:00
|
|
|
ASSERTVM();
|
|
|
|
return VM_PTR->box_boolean(value);
|
2009-08-17 16:37:06 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
bool factorvm::to_boolean(cell value)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
return value != F;
|
|
|
|
}
|
2009-05-04 02:46:13 -04:00
|
|
|
|
2009-08-23 09:45:09 -04:00
|
|
|
VM_C_API bool to_boolean(cell value, factorvm *myvm)
|
2009-08-17 16:37:06 -04:00
|
|
|
{
|
2009-08-23 09:45:09 -04:00
|
|
|
ASSERTVM();
|
|
|
|
return VM_PTR->to_boolean(value);
|
2009-08-17 16:37:06 -04:00
|
|
|
}
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|