prepare string link

README

 
-Le fichier mod_type.f90 contient
+Utilisation :
+make
+python pytest
+
+
+mod_type.f90 : description du type bind(c)
+type.h : header associé a mod_type.f90
+
+ctest.pxd : equivalent d'un header pour cython
+           (voir si on peut faire une génération auto)
+test.pyx : module p/cython implémentant la classe python
+           wrappant le contenu du .pxd
+
+pytest.py : le test

ctest.pxd

@@ -3,6 +3,7 @@ cdef extern from 'type.h':
   ctypedef struct myctype:
     int i, j
     double * s
+    char * chaine
 
   void print_type(myctype * ct)
 

mod_type.f90

@@ -8,6 +8,7 @@ module test_type
   type, bind(c) :: myftype
     integer(c_int) :: i, j
     type(c_ptr) :: s
+    type(c_ptr) :: str
   end type myftype
 
   contains
@@ -16,12 +17,15 @@ module test_type
     type(myftype) :: ft
     !
     real(c_double), dimension(:,:), pointer :: tab
+    character(len=256,kind=c_char), pointer :: str
 
     call c_f_pointer(fptr=tab,cptr=ft%s,shape=(/ft%j,ft%i/))
+    call c_f_pointer(fptr=str,cptr=ft%str)
 
     print *, ft%i
     print *, ft%j
     print *, tab
+    print *, str
 
   end subroutine
 

type.h

@@ -2,6 +2,7 @@
 typedef struct {
     int i, j;
     double *s;
+    char *chaine;
 } myctype;
 
 //void init_type(int n, int i, int j);