import py
from ctypes import *
from support import BaseCTypesTestChecker

ctype_types = [c_byte, c_ubyte, c_short, c_ushort, c_int, c_uint,
                 c_long, c_ulong, c_longlong, c_ulonglong, c_double, c_float]
python_types = [int, int, int, int, int, long,
                int, long, long, long, float, float]

def setup_module(mod):
    import conftest
    mod._ctypes_test = str(conftest.sofile)

class TestPointers(BaseCTypesTestChecker):
    def test_pointer_crash(self):

        class A(POINTER(c_ulong)):
            pass

        POINTER(c_ulong)(c_ulong(22))
        # Pointer can't set contents: has no _type_
        py.test.raises(TypeError, A, c_ulong(33))

    def test_pass_pointers(self):
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_p_p
        func.restype = c_long

        i = c_int(12345678)
##        func.argtypes = (POINTER(c_int),)
        address = func(byref(i))
        assert c_int.from_address(address).value == 12345678

        func.restype = POINTER(c_int)
        res = func(pointer(i))
        assert res.contents.value == 12345678
        assert res[0] == 12345678

    def test_change_pointers(self):
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_p_p

        i = c_int(87654)
        func.restype = POINTER(c_int)
        func.argtypes = (POINTER(c_int),)

        res = func(pointer(i))
        assert res[0] == 87654
        assert res.contents.value == 87654

        # C code: *res = 54345
        res[0] = 54345
        assert i.value == 54345

        # C code:
        #   int x = 12321;
        #   res = &x
        res.contents = c_int(12321)
        assert i.value == 54345

    def test_callbacks_with_pointers(self):
        # a function type receiving a pointer
        PROTOTYPE = CFUNCTYPE(c_int, POINTER(c_int))

        self.result = []

        def func(arg):
            for i in range(10):
##                print arg[i],
                self.result.append(arg[i])
##            print
            return 0
        callback = PROTOTYPE(func)

        dll = CDLL(_ctypes_test)
        # This function expects a function pointer,
        # and calls this with an integer pointer as parameter.
        # The int pointer points to a table containing the numbers 1..10
        doit = dll._testfunc_callback_with_pointer

##        i = c_int(42)
##        callback(byref(i))
##        self.failUnless(i.value == 84)

        doit(callback)
##        print self.result
        doit(callback)
##        print self.result

    def test_basics(self):
        from operator import delitem
        for ct, pt in zip(ctype_types, python_types):
            i = ct(42)
            p = pointer(i)
##            print type(p.contents), ct
            assert type(p.contents) is ct
            # p.contents is the same as p[0]
##            print p.contents
##            self.failUnless(p.contents == 42)
##            self.failUnless(p[0] == 42)

            py.test.raises(TypeError, delitem, p, 0)

    def test_pointer_to_pointer(self):
        x = c_int(32)
        y = c_int(42)
        p1 = pointer(x)
        p2 = pointer(p1)
        assert p2.contents.contents.value == 32
        p2.contents.contents = y
        assert p2.contents.contents.value == 42
        assert p1.contents.value == 42

    def test_from_address(self):
        from array import array
        a = array('i', [100, 200, 300, 400, 500])
        addr = a.buffer_info()[0]

        p = POINTER(POINTER(c_int))
##        print dir(p)
##        print p.from_address
##        print p.from_address(addr)[0][0]

    def test_other(self):
        class Table(Structure):
            _fields_ = [("a", c_int),
                        ("b", c_int),
                        ("c", c_int)]

        pt = pointer(Table(1, 2, 3))

        assert pt.contents.a == 1
        assert pt.contents.b == 2
        assert pt.contents.c == 3

        pt.contents.c = 33

        from ctypes import _pointer_type_cache
        del _pointer_type_cache[Table]

    def test_basic(self):
        p = pointer(c_int(42))
        # Although a pointer can be indexed, it ha no length
        py.test.raises(TypeError, len, p)
        assert p[0] == 42
        assert p.contents.value == 42

    def test_charpp(self):
        """Test that a character pointer-to-pointer is correctly passed"""
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_c_p_p
        func.restype = c_char_p
        argv = (c_char_p * 2)()
        argc = c_int( 2 )
        argv[0] = 'hello'
        assert argv[0] == 'hello'
        argv[1] = 'world'
        result = func( byref(argc), argv )
        assert result == 'world', result

    def test_charpp2(self):
        """Test that a character pointer-to-pointer is correctly passed"""
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_c_p_p
        func.restype = c_char_p
        argv = (c_char_p * 2)()
        argc = c_int( 2 )
        argv[0] = 'hello'
        argv[1] = 'world'
        result = func( byref(argc), byref(argv) )
        assert result == 'world', result

    def test_charpp3(self):
        """Test that a character pointer-to-pointer is correctly passed"""
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_c_p_p
        func.argtypes = (POINTER(c_int), c_char_p * 2)
        func.restype = c_char_p
        argv = (c_char_p * 2)()
        argc = c_int( 2 )
        argv[0] = 'hello'
        argv[1] = 'world'
        result = func( byref(argc), argv )
        assert result == 'world', result

    def test_charpp4(self):
        """Test that a character pointer-to-pointer is correctly passed"""
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_c_p_p
        func.argtypes = (POINTER(c_int), POINTER(c_char_p * 2))
        func.restype = c_char_p
        argv = (c_char_p * 2)()
        argc = c_int( 2 )
        argv[0] = 'hello'
        argv[1] = 'world'
        result = func( byref(argc), argv )
        assert result == 'world', result

    def test_charpp5(self):
        """Test that a character pointer-to-pointer is correctly passed"""
        dll = CDLL(_ctypes_test)
        func = dll._testfunc_c_p_p
        func.argtypes = (POINTER(c_int), POINTER(c_char_p * 2))
        func.restype = c_char_p
        argv = (c_char_p * 2)()
        argc = c_int( 2 )
        argv[0] = 'hello'
        argv[1] = 'world'
        result = func( byref(argc), byref(argv) )
        assert result == 'world', result

    def test_bug_1467852(self):
        # http://sourceforge.net/tracker/?func=detail&atid=532154&aid=1467852&group_id=71702
        x = c_int(5)
        dummy = []
        for i in range(32000):
            dummy.append(c_int(i))
        y = c_int(6)
        p = pointer(x)
        pp = pointer(p)
        q = pointer(y)
        pp[0] = q         # <==
        assert p[0] == 6
    def test_c_void_p(self):
        # http://sourceforge.net/tracker/?func=detail&aid=1518190&group_id=5470&atid=105470
        if sizeof(c_void_p) == 4:
            assert c_void_p(0xFFFFFFFFL).value == c_void_p(-1).value
            assert c_void_p(0xFFFFFFFFFFFFFFFFL).value == c_void_p(-1).value
        elif sizeof(c_void_p) == 8:
            assert c_void_p(0xFFFFFFFFL).value == 0xFFFFFFFFL
            assert c_void_p(0xFFFFFFFFFFFFFFFFL).value == c_void_p(-1).value
            assert c_void_p(0xFFFFFFFFFFFFFFFFFFFFFFFFL).value == c_void_p(-1).value

        py.test.raises(TypeError, c_void_p, 3.14) # make sure floats are NOT accepted
        py.test.raises(TypeError, c_void_p, object()) # nor other objects

    def test_c_char_p_byref(self):
        dll = CDLL(_ctypes_test)
        TwoOutArgs = dll.TwoOutArgs
        TwoOutArgs.restype = None
        TwoOutArgs.argtypes = [c_int, c_void_p, c_int, c_void_p]
        a = c_int(3)
        b = c_int(4)
        c = c_int(5)
        d = c_int(6)
        TwoOutArgs(a, byref(b), c, byref(d))
        assert b.value == 7
        assert d.value == 11