factor/vm/booleans.cpp

27 lines
363 B
C++
Raw Normal View History

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