Tableaux de chaînes dans les ponts Fortran-C utilisant iso_c_binding

Question

J'écris du code qui appellera une fonction C de Fortran en utilisant le mécanisme d'interopérabilité C de Fortran (introduit dans Fortran 2003 et implémenté dans les nouvelles versions de gfortran et ifort).

This answer est presque ce que je dois, mais je ne peux pas tout à fait obtenir ma tête autour de ce que la déclaration que je devrais utiliser l'interface en Fortran pour une fonction C qui ressemble à ceci:

int use_array(int n, char * array[]){ 
    int i; 
    for(i=0; i<n; i++){ 
     printf("Item %d = %s\n",i,array[i]); 
    } 
    return n; 
} 

Je ne suis pas clair ce que la déclaration devrait être de l'interface à l'extrémité Fortran:

interface 
    function use_array(n, x) bind(C) 
     use iso_c_binding 
     integer (c_int) use_array 
     integer (c_int), value :: n 
     character(c_char) WHAT_SHOULD_GO_HERE? :: x 
    end function use_array 
end interface 

Je ne sais que je vais devoir faire face à la question null-termination aussi.

Answer 1

La façon dont nous le faisons est d'utiliser un tableau C_PTR pour pointer vers des chaînes. Par exemple:

CHARACTER(LEN=100), DIMENSION(numStrings), TARGET :: stringArray 
TYPE(C_PTR), DIMENSION(numStrings) :: stringPtrs 

nous fixons nos chaînes en stringArray, se souvenant de leur null-fin comme:

DO ns = 1, numStrings 
    stringArray(ns) = "My String"//C_NULL_CHAR 
    stringPtrs(ns) = C_LOC(stringArray(ns)) 
END DO 

et passer stringPtrs à la fonction C.

La fonction C a l'interface:

void stringFunc(int *numStrings, char **stringArray) { 
    int i; 
    for(i=0;i<*numStrings;++i) { 
     printf("%s\n",stringArray[i]); 
    } 
}