extra/python/ffi/ffi.factor

   1 USING: alien alien.c-types alien.destructors alien.libraries
   2 alien.libraries.finder alien.syntax classes.struct ;
   3 IN: python.ffi
   4
   5 << "python"
   6 { "python3.10" "python3.9" "python3.8" "python3.7" } find-library-from-list
   7 cdecl add-library >>
   8
   9 ! Functions that return borrowed references needs to be called like this:
  10 ! Py_Func dup Py_IncRef &Py_DecRef
  11
  12 LIBRARY: python
  13
  14 C-TYPE: PyObject
  15
  16 ! Methods
  17 CONSTANT: METH_OLDARGS   0x0000
  18 CONSTANT: METH_VARARGS   0x0001
  19 CONSTANT: METH_KEYWORDS  0x0002
  20 CONSTANT: METH_NOARGS    0x0004
  21 CONSTANT: METH_O         0x0008
  22 CONSTANT: METH_CLASS     0x0010
  23 CONSTANT: METH_STATIC    0x0020
  24 CONSTANT: METH_COEXIST   0x0040
  25 CONSTANT: METH_FASTCALL  0x0080
  26 CONSTANT: METH_STACKLESS 0x0100
  27 CONSTANT: METH_METHOD    0x0200
  28
  29 C-TYPE: PyCFunction
  30
  31 TYPEDEF: long Py_ssize_t
  32
  33 STRUCT: PyMethodDef
  34     { ml_name c-string }
  35     { ml_meth PyCFunction* }
  36     { ml_flags int }
  37     { ml_doc c-string } ;
  38
  39 CALLBACK: PyObject* PyCallback ( PyObject* self, PyObject* args, PyObject* kw )
  40
  41 ! Functions
  42 FUNCTION: PyObject* PyCFunction_NewEx ( PyMethodDef* ml, PyObject* self, PyObject* module )
  43 FUNCTION: int PyCFunction_GetFlags ( PyObject* op )
  44
  45 ! Top-level
  46 FUNCTION: c-string Py_GetVersion ( )
  47 FUNCTION: void Py_Initialize ( )
  48 FUNCTION: bool Py_IsInitialized ( )
  49 FUNCTION: void Py_Finalize ( )
  50 FUNCTION: void PySys_SetArgvEx ( int argc, c-string* argv, int updatepath )
  51
  52 ! Misc
  53 FUNCTION: int PyRun_SimpleString ( c-string command )
  54
  55 ! Importing
  56 FUNCTION: PyObject* PyImport_AddModule ( c-string name )
  57 FUNCTION: long PyImport_GetMagicNumber ( )
  58 FUNCTION: PyObject* PyImport_ImportModule ( c-string name )
  59
  60 ! Sys module
  61 FUNCTION: PyObject* PySys_GetObject ( c-string name )
  62
  63 ! Dicts
  64 FUNCTION: PyObject* PyDict_New ( )
  65 FUNCTION: PyObject* PyDict_GetItem ( PyObject* d, PyObject* key )
  66 FUNCTION: PyObject* PyDict_GetItemString ( PyObject* d, c-string key )
  67 FUNCTION: PyObject* PyDict_GetItemWithError ( PyObject* d, PyObject* key )
  68 FUNCTION: int PyDict_SetItem ( PyObject* d, PyObject* key, PyObject* value )
  69 FUNCTION: int PyDict_SetItemString ( PyObject* d, c-string key, PyObject* val )
  70 FUNCTION: int PyDict_DelItem ( PyObject* d, PyObject* key )
  71 FUNCTION: int PyDict_DelItemString ( PyObject* d, c-string key )
  72 FUNCTION: void PyDict_Clear ( PyObject* d )
  73 FUNCTION: PyObject* PyDict_Keys ( PyObject* d )
  74 FUNCTION: PyObject* PyDict_Values ( PyObject* d )
  75 FUNCTION: PyObject* PyDict_Items ( PyObject* d )
  76 FUNCTION: int PyDict_Size ( PyObject* d )
  77 FUNCTION: int PyDict_Contains ( PyObject* d, PyObject* key )
  78
  79 ! Tuples
  80 FUNCTION: PyObject* PyTuple_New ( int len )
  81 FUNCTION: int PyTuple_Size ( PyObject* t )
  82 FUNCTION: PyObject* PyTuple_GetItem ( PyObject* t, Py_ssize_t pos )
  83 FUNCTION: int PyTuple_SetItem ( PyObject* t, Py_ssize_t pos, PyObject* o )
  84 FUNCTION: PyObject* PyTuple_GetSlice ( PyObject* t, Py_ssize_t i1, Py_ssize_t i2 )
  85
  86 ! Lists
  87 FUNCTION: PyObject* PyList_New ( int len )
  88 FUNCTION: int PyList_Size ( PyObject* l )
  89 FUNCTION: PyObject* PyList_GetItem ( PyObject* l, Py_ssize_t pos )
  90 FUNCTION: int PyList_SetItem ( PyObject* l, Py_ssize_t pos, PyObject* o )
  91 FUNCTION: int PyList_Insert ( PyObject* l, Py_ssize_t pos, PyObject* o )
  92 FUNCTION: int PyList_Append ( PyObject* l, PyObject* o )
  93 FUNCTION: PyObject* PyList_GetSlice ( PyObject* l, Py_ssize_t i1, Py_ssize_t i2 )
  94 FUNCTION: PyObject* PyList_SetSlice ( PyObject* l, Py_ssize_t i1, Py_ssize_t i2, PyObject* v )
  95 FUNCTION: int PyList_Sort ( PyObject* l )
  96 FUNCTION: int PyList_Reverse ( PyObject* l )
  97
  98 ! Sequences
  99 FUNCTION: int PySequence_Check ( PyObject* o )
 100 FUNCTION: Py_ssize_t PySequence_Size ( PyObject* o )
 101 FUNCTION: PyObject* PySequence_Concat ( PyObject* o1, PyObject* o2 )
 102 FUNCTION: PyObject* PySequence_Repeat ( PyObject* o, Py_ssize_t count )
 103 FUNCTION: PyObject* PySequence_GetItem ( PyObject* o, Py_ssize_t i )
 104 FUNCTION: PyObject* PySequence_GetSlice ( PyObject* o, Py_ssize_t i1, Py_ssize_t i2 )
 105 FUNCTION: PyObject* PySequence_SetItem ( PyObject* o, Py_ssize_t i, PyObject* v )
 106 FUNCTION: PyObject* PySequence_DelItem ( PyObject* o, Py_ssize_t i )
 107 FUNCTION: PyObject* PySequence_SetSlice ( PyObject* o, Py_ssize_t i1, Py_ssize_t i2, PyObject* v )
 108 FUNCTION: PyObject* PySequence_DelSlice ( PyObject* o, Py_ssize_t i1, Py_ssize_t i2 )
 109 FUNCTION: PyObject* PySequence_Tuple ( PyObject* o )
 110 FUNCTION: PyObject* PySequence_List ( PyObject* o )
 111 FUNCTION: Py_ssize_t PySequence_Count ( PyObject* o )
 112 FUNCTION: int PySequence_Contains ( PyObject* o, PyObject* v )
 113 FUNCTION: Py_ssize_t PySequence_Index ( PyObject* o, PyObject* v )
 114 FUNCTION: PyObject* PySequence_InPlaceConcat ( PyObject* o1, PyObject* o2 )
 115 FUNCTION: PyObject* PySequence_InPlaceRepeat ( PyObject* o, Py_ssize_t count )
 116
 117 ! Mapping
 118 FUNCTION: int PyMapping_Check ( PyObject* o )
 119 FUNCTION: Py_ssize_t PyMapping_Size ( PyObject* o )
 120 FUNCTION: int PyMapping_HasKey ( PyObject* o, PyObject* key )
 121 FUNCTION: PyObject* PyMapping_Keys ( PyObject* o )
 122 FUNCTION: PyObject* PyMapping_Values ( PyObject* o )
 123 FUNCTION: PyObject* PyMapping_Items ( PyObject* o )
 124 FUNCTION: PyObject* PyMapping_GetItemString ( PyObject* o, c-string key )
 125 FUNCTION: int PyMapping_SetItemString ( PyObject* o, c-string key, PyObject* value )
 126
 127 ! Modules
 128 FUNCTION: c-string PyModule_GetName ( PyObject* module )
 129 FUNCTION: PyObject* PyModule_GetDict ( PyObject* module )
 130
 131 ! Callables
 132 FUNCTION: int PyCallable_Check ( PyObject* obj )
 133
 134 ! Objects
 135 FUNCTION: PyObject* PyObject_CallNoArgs ( PyObject* callable )
 136 FUNCTION: PyObject* PyObject_Call ( PyObject* callable, PyObject* args, PyObject* kw )
 137 FUNCTION: PyObject* PyObject_CallObject ( PyObject* callable, PyObject* args )
 138 FUNCTION: int PyObject_HasAttr ( PyObject* o, c-string attr_name )
 139 FUNCTION: PyObject* PyObject_GetAttr ( PyObject* o, c-string attr_name )
 140 FUNCTION: PyObject* PyObject_GetAttrString ( PyObject* o, c-string attr_name )
 141 FUNCTION: int PyObject_SetAttr ( PyObject* o, c-string attr_name, PyObject *v )
 142 FUNCTION: int PyObject_SetAttrString ( PyObject* o, c-string attr_name, PyObject *v )
 143 FUNCTION: int PyObject_DelAttr ( PyObject* o, c-string attr_name )
 144 FUNCTION: int PyObject_DelAttrString ( PyObject* o, c-string attr_name )
 145 FUNCTION: PyObject* PyObject_Repr ( PyObject* o )
 146 FUNCTION: PyObject* PyObject_Str ( PyObject* o )
 147 FUNCTION: PyObject* PyObject_Type ( PyObject* o )
 148 FUNCTION: PyObject* PyObject_GetItem ( PyObject* o, PyObject* key )
 149 FUNCTION: int PyObject_SetItem ( PyObject* o, PyObject* key, PyObject* v )
 150 FUNCTION: int PyObject_DelItem ( PyObject* o, PyObject* key )
 151 FUNCTION: PyObject* PyObject_Iter ( PyObject* o )
 152 FUNCTION: int PyObject_IsTrue ( PyObject* o )
 153 FUNCTION: int PyObject_IsInstance ( PyObject* o, PyObject* typeorclass )
 154 FUNCTION: int PyObject_IsSubclass ( PyObject* o, PyObject* typeorclass )
 155
 156 ! Iter
 157 FUNCTION: int PyIter_Check ( PyObject* o )
 158 FUNCTION: PyObject* PyIter_Next ( PyObject* o )
 159
 160 ! Number
 161 FUNCTION: int PyNumber_Check ( PyObject* o )
 162 FUNCTION: PyObject* PyNumber_Add ( PyObject* o1, PyObject* o2 )
 163 FUNCTION: PyObject* PyNumber_Subtract ( PyObject* o1, PyObject* o2 )
 164 FUNCTION: PyObject* PyNumber_Multiply ( PyObject* o1, PyObject* o2 )
 165 FUNCTION: PyObject* PyNumber_FloorDivide ( PyObject* o1, PyObject* o2 )
 166 FUNCTION: PyObject* PyNumber_TrueDivide ( PyObject* o1, PyObject* o2 )
 167 FUNCTION: PyObject* PyNumber_Remainder ( PyObject* o1, PyObject* o2 )
 168 FUNCTION: PyObject* PyNumber_Divmod ( PyObject* o1, PyObject* o2 )
 169 FUNCTION: PyObject* PyNumber_Power ( PyObject* o1, PyObject* o2, PyObject* o3 )
 170 FUNCTION: PyObject* PyNumber_Negative ( PyObject* o )
 171 FUNCTION: PyObject* PyNumber_Positive ( PyObject* o )
 172 FUNCTION: PyObject* PyNumber_Absolute ( PyObject* o )
 173 FUNCTION: PyObject* PyNumber_Invert ( PyObject* o )
 174 FUNCTION: PyObject* PyNumber_Lshift ( PyObject* o1, PyObject* o2 )
 175 FUNCTION: PyObject* PyNumber_Rshift ( PyObject* o1, PyObject* o2 )
 176 FUNCTION: PyObject* PyNumber_And ( PyObject* o1, PyObject* o2 )
 177 FUNCTION: PyObject* PyNumber_Xor ( PyObject* o1, PyObject* o2 )
 178 FUNCTION: PyObject* PyNumber_Or ( PyObject* o1, PyObject* o2 )
 179 FUNCTION: int PyIndex_Check ( PyObject* o )
 180 FUNCTION: PyObject* PyNumber_Index ( PyObject* o )
 181 FUNCTION: PyObject* PyNumber_Long ( PyObject* o )
 182 FUNCTION: PyObject* PyNumber_Float ( PyObject* o )
 183 FUNCTION: PyObject* PyNumber_InPlaceAdd ( PyObject* o1, PyObject* o2 )
 184 FUNCTION: PyObject* PyNumber_InPlaceSubtract ( PyObject* o1, PyObject* o2 )
 185 FUNCTION: PyObject* PyNumber_InPlaceMultiply ( PyObject* o1, PyObject* o2 )
 186 FUNCTION: PyObject* PyNumber_InPlaceFloorDivide ( PyObject* o1, PyObject* o2 )
 187 FUNCTION: PyObject* PyNumber_InPlaceTrueDivide ( PyObject* o1, PyObject* o2 )
 188 FUNCTION: PyObject* PyNumber_InPlaceRemainder ( PyObject* o1, PyObject* o2 )
 189 FUNCTION: PyObject* PyNumber_InPlaceDivmod ( PyObject* o1, PyObject* o2 )
 190 FUNCTION: PyObject* PyNumber_InPlacePower ( PyObject* o1, PyObject* o2, PyObject* o3 )
 191 FUNCTION: PyObject* PyNumber_InPlaceLshift ( PyObject* o1, PyObject* o2 )
 192 FUNCTION: PyObject* PyNumber_InPlaceRshift ( PyObject* o1, PyObject* o2 )
 193 FUNCTION: PyObject* PyNumber_InPlaceAnd ( PyObject* o1, PyObject* o2 )
 194 FUNCTION: PyObject* PyNumber_InPlaceXor ( PyObject* o1, PyObject* o2 )
 195 FUNCTION: PyObject* PyNumber_InPlaceOr ( PyObject* o1, PyObject* o2 )
 196 FUNCTION: PyObject* PyNumber_ToBase ( PyObject* o1, int base )
 197
 198 ! Bytes
 199 FUNCTION: c-string PyBytes_AsString ( PyObject* string )
 200 FUNCTION: PyObject* PyBytes_FromStringAndSize ( c-string v, Py_ssize_t size  )
 201
 202 ! Strings
 203 FUNCTION: c-string PyUnicode_AsUTF8 ( PyObject* unicode )
 204 FUNCTION: PyObject* PyUnicode_FromStringAndSize ( c-string v, Py_ssize_t size  )
 205 FUNCTION: PyObject* PyUnicode_FromString ( c-string v )
 206
 207 ! Ints
 208 FUNCTION: long PyLong_AsLong ( PyObject* io )
 209 FUNCTION: PyObject* PyLong_FromLong ( long v )
 210 FUNCTION: PyObject* PyLong_FromString ( c-string str, char** pend, int base )
 211
 212 ! Floats
 213 FUNCTION: PyObject* PyFloat_FromDouble ( double d )
 214
 215 ! Types
 216 FUNCTION: int PyType_Check ( PyObject* obj )
 217
 218 ! Reference counting
 219 FUNCTION: void Py_IncRef ( PyObject* o )
 220 FUNCTION: void Py_DecRef ( PyObject* o )
 221 DESTRUCTOR: Py_DecRef
 222
 223 ! Reflection
 224 FUNCTION: c-string PyEval_GetFuncName ( PyObject* func )
 225
 226 ! Errors
 227 FUNCTION: void PyErr_Clear ( )
 228 FUNCTION: void PyErr_Print ( )
 229 FUNCTION: void PyErr_Fetch ( PyObject** ptype, PyObject** pvalue, PyObject** *ptraceback )