steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added boolean fns to vm

db4
Phil Dawes 2009-08-17 21:37:06 +01:00
parent 0f2a89cfbd
commit 25d0bb756f
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/booleans.cpp
View File

@ -3,14 +3,24 @@
namespace factor namespace factor
{ {
VM_C_API void box_boolean(bool value) void factorvm::box_boolean(bool value)
{ {
dpush(value ? T : F); dpush(value ? T : F);
} }
VM_C_API bool to_boolean(cell value) VM_C_API void box_boolean(bool value)
{
return vm->box_boolean(value);
}
bool factorvm::to_boolean(cell value)
{ {
return value != F; return value != F;
} }
VM_C_API bool to_boolean(cell value)
{
return vm->to_boolean(value);
}
} }

4
vm/vm.hpp
View File

@ -221,6 +221,10 @@ struct factorvm {
inline void vmprim_string_nth(); inline void vmprim_string_nth();
inline void vmprim_set_string_nth_fast(); inline void vmprim_set_string_nth_fast();
inline void vmprim_set_string_nth_slow(); inline void vmprim_set_string_nth_slow();
//booleans
void box_boolean(bool value);
bool to_boolean(cell value);
// next method here: // next method here: