python: setattr wrapping

extra/python/ffi/ffi.factor

@@ -72,8 +72,13 @@ FUNCTION: PyObject* PyObject_CallObject ( PyObject* callable,
 FUNCTION: PyObject* PyObject_Call ( PyObject* callable,
                                     PyObject* args,
                                     PyObject* kw ) ;
-FUNCTION: PyObject* PyObject_GetAttrString ( PyObject* callable,
+! New reference
+FUNCTION: PyObject* PyObject_GetAttrString ( PyObject* o,
                                              c-string attr_name ) ;
+FUNCTION: int PyObject_SetAttrString ( PyObject* o,
+                                       c-string attr_name,
+                                       PyObject *v ) ;
+
 FUNCTION: PyObject* PyObject_Str ( PyObject* o ) ;
 FUNCTION: int PyObject_IsTrue ( PyObject* o ) ;
 

extra/python/python-tests.factor

@@ -20,6 +20,11 @@ py-initialize
     [ "kolobi" import ] [ [ type>> ] [ message>> ] bi 2array ] recover
 ] py-test
 
+! setattr
+[ 73 ] [
+    "sys" import "testit" [ 73 >py setattr ] [ getattr >factor ] 2bi
+] py-test
+
 ! Tuples
 [ 2 ] [ 2 <py-tuple> py-tuple-size ] py-test
 

extra/python/python.factor

@@ -37,6 +37,9 @@ ERROR: python-error type message ;
 : getattr ( obj str -- value )
     PyObject_GetAttrString check-return ;
 
+: setattr ( obj str value -- )
+    PyObject_SetAttrString check-return-code ;
+
 : call-object ( obj args -- value )
     PyObject_CallObject check-return ;