/* Boolean type, a subtype of int */

#include "Python.h"
#include "longintrepr.h"

/* We define bool_repr to return "False" or "True" */

static PyObject *false_str = NULL;
static PyObject *true_str = NULL;

static PyObject *
bool_repr(PyObject *self)
{
 PyObject *s;

 if (self == Py_True)
 s = true_str ? true_str :
 (true_str = PyUnicode_InternFromString("True"));
 else
 s = false_str ? false_str :
 (false_str = PyUnicode_InternFromString("False"));
 Py_XINCREF(s);
 return s;
}

/* Function to return a bool from a C long */

PyObject *PyBool_FromLong(long ok)
{
 PyObject *result;

 if (ok)
 result = Py_True;
 else
 result = Py_False;
 Py_INCREF(result);
 return result;
}

/* We define bool_new to always return either Py_True or Py_False */

static PyObject *
bool_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
{
 PyObject *x = Py_False;
 long ok;

 if (!_PyArg_NoKeywords("bool", kwds))
 return NULL;
 if (!PyArg_UnpackTuple(args, "bool", 0, 1, &x))
 return NULL;
 ok = PyObject_IsTrue(x);
 if (ok < 0)
 return NULL;
 return PyBool_FromLong(ok);
}

/* Arithmetic operations redefined to return bool if both args are bool. */

static PyObject *
bool_and(PyObject *a, PyObject *b)
{
 if (!PyBool_Check(a) || !PyBool_Check(b))
 return PyLong_Type.tp_as_number->nb_and(a, b);
 return PyBool_FromLong((a == Py_True) & (b == Py_True));
}

static PyObject *
bool_or(PyObject *a, PyObject *b)
{
 if (!PyBool_Check(a) || !PyBool_Check(b))
 return PyLong_Type.tp_as_number->nb_or(a, b);
 return PyBool_FromLong((a == Py_True) | (b == Py_True));
}

static PyObject *
bool_xor(PyObject *a, PyObject *b)
{
 if (!PyBool_Check(a) || !PyBool_Check(b))
 return PyLong_Type.tp_as_number->nb_xor(a, b);
 return PyBool_FromLong((a == Py_True) ^ (b == Py_True));
}

/* Doc string */

PyDoc_STRVAR(bool_doc,
"bool(x) -> bool\n\
\n\
Returns True when the argument x is true, False otherwise.\n\
The builtins True and False are the only two instances of the class bool.\n\
The class bool is a subclass of the class int, and cannot be subclassed.");

/* Arithmetic methods -- only so we can override &, |, ^. */

static PyNumberMethods bool_as_number = {
 0, /* nb_add */
 0, /* nb_subtract */
 0, /* nb_multiply */
 0, /* nb_remainder */
 0, /* nb_divmod */
 0, /* nb_power */
 0, /* nb_negative */
 0, /* nb_positive */
 0, /* nb_absolute */
 0, /* nb_bool */
 0, /* nb_invert */
 0, /* nb_lshift */
 0, /* nb_rshift */
 bool_and, /* nb_and */
 bool_xor, /* nb_xor */
 bool_or, /* nb_or */
 0, /* nb_int */
 0, /* nb_reserved */
 0, /* nb_float */
 0, /* nb_inplace_add */
 0, /* nb_inplace_subtract */
 0, /* nb_inplace_multiply */
 0, /* nb_inplace_remainder */
 0, /* nb_inplace_power */
 0, /* nb_inplace_lshift */
 0, /* nb_inplace_rshift */
 0, /* nb_inplace_and */
 0, /* nb_inplace_xor */
 0, /* nb_inplace_or */
 0, /* nb_floor_divide */
 0, /* nb_true_divide */
 0, /* nb_inplace_floor_divide */
 0, /* nb_inplace_true_divide */
 0, /* nb_index */
};

/* The type object for bool. Note that this cannot be subclassed! */

PyTypeObject PyBool_Type = {
 PyVarObject_HEAD_INIT(&PyType_Type, 0)
 "bool",
 sizeof(struct _longobject),
 0,
 0, /* tp_dealloc */
 0, /* tp_vectorcall_offset */
 0, /* tp_getattr */
 0, /* tp_setattr */
 0, /* tp_as_async */
 bool_repr, /* tp_repr */
 &bool_as_number, /* tp_as_number */
 0, /* tp_as_sequence */
 0, /* tp_as_mapping */
 0, /* tp_hash */
 0, /* tp_call */
 0, /* tp_str */
 0, /* tp_getattro */
 0, /* tp_setattro */
 0, /* tp_as_buffer */
 Py_TPFLAGS_DEFAULT, /* tp_flags */
 bool_doc, /* tp_doc */
 0, /* tp_traverse */
 0, /* tp_clear */
 0, /* tp_richcompare */
 0, /* tp_weaklistoffset */
 0, /* tp_iter */
 0, /* tp_iternext */
 0, /* tp_methods */
 0, /* tp_members */
 0, /* tp_getset */
 &PyLong_Type, /* tp_base */
 0, /* tp_dict */
 0, /* tp_descr_get */
 0, /* tp_descr_set */
 0, /* tp_dictoffset */
 0, /* tp_init */
 0, /* tp_alloc */
 bool_new, /* tp_new */
};

/* The objects representing bool values False and True */

struct _longobject _Py_FalseStruct = {
 PyVarObject_HEAD_INIT(&PyBool_Type, 0)
 { 0 }
};

struct _longobject _Py_TrueStruct = {
 PyVarObject_HEAD_INIT(&PyBool_Type, 1)
 { 1 }
};