#include #include #include /**************************************************************** bitnot(a) = ~a ****************************************************************/ int f_bitnot(int argc, const int *argt, void **args) { CELL *res = args[0]; CELL *arg1 = args[1]; int i; if (argc < 1) return E_ARG_LO; if (argc > 1) return E_ARG_HI; if (argt[1] != CELL_TYPE) return E_ARG_TYPE; if (argt[0] != CELL_TYPE) return E_RES_TYPE; for (i = 0; i < columns; i++) { if (IS_NULL_C(&arg1[i])) SET_NULL_C(&res[i]); else res[i] = ~arg1[i]; } return 0; }