Re: [Pharo-dev] [UFFI] Call a function where argument type is char ** (argv)

[Blondeau Vincent]

TL;DR: How to pass as argument an array of Strings (char **) with Unified-FFI?

Vincent

De : Blondeau Vincent
Envoyé : mercredi 25 mai 2016 13:58
À : Pharo Development List
Objet : [UFFI] Call a function where argument type is char ** (argv)

Hello,

I have written a R bridge in Pharo and I would like to migrate it from 
NativeBoost to UFFI.
Most of the changes are easy to do but I am stuck to a double pointer problem.
I have to call the function: int Rf_initEmbeddedR(int argc, char ** argv). I 
know how to give the int but the char ** is a problem. It is an array of 
Strings.

With NB, I managed to have this (working) code:
"This is 32bit... too bad..."
strings := OrderedCollection new.
par := NativeBoost allocate: 4 * params size.
params
keysAndValuesDo: [ :i :each |
| str |
str := each asNBExternalString.
strings add: str.
par nbUInt32AtOffset: (i - 1) * 
4 put: str value ].
self prim_initEmbeddedRargc: params size argv: par ]
ensure: [
"Free the memory we allocated"
par ifNotNil: [ par free ].
strings ifNotNil: [ strings do: 
[ :each | each free ] ] ]

With a primitive call:
Self nbCall: #(int Rf_initEmbeddedR(int argc, char *argv))

Do I still need to create my own array of strings or FFI creates it for me? How?

Thanks in advance for your answers,

Vincent


!!!*
"Ce message et les pièces jointes sont confidentiels et réservés à l'usage 
exclusif de ses destinataires. Il peut également être protégé par le secret 
professionnel. Si vous recevez ce message par erreur, merci d'en avertir 
immédiatement l'expéditeur et de le détruire. L'intégrité du message ne pouvant 
être assurée sur Internet, la responsabilité de Worldline ne pourra être 
recherchée quant au contenu de ce message. Bien que les meilleurs efforts 
soient faits pour maintenir cette transmission exempte de tout virus, 
l'expéditeur ne donne aucune garantie à cet égard et sa responsabilité ne 
saurait être recherchée pour tout dommage résultant d'un virus transmis.

This e-mail and the documents attached are confidential and intended solely for 
the addressee; it may also be privileged. If you receive this e-mail in error, 
please notify the sender immediately and destroy it. As its integrity cannot be 
secured on the Internet, the Worldline liability cannot be triggered for the 
message content. Although the sender endeavours to maintain a computer 
virus-free network, the sender does not warrant that this transmission is 
virus-free and will not be liable for any damages resulting from any virus 
transmitted.!!!"

[Pharo-dev] [UFFI] Call a function where argument type is char ** (argv)

[Blondeau Vincent]

Hello,

I have written a R bridge in Pharo and I would like to migrate it from 
NativeBoost to UFFI.
Most of the changes are easy to do but I am stuck to a double pointer problem.
I have to call the function: int Rf_initEmbeddedR(int argc, char ** argv). I 
know how to give the int but the char ** is a problem.

With NB, I managed to have this (working) code:
"This is 32bit... too bad..."
strings := OrderedCollection new.
par := NativeBoost allocate: 4 * params size.
params
keysAndValuesDo: [ :i :each |
| str |
str := each asNBExternalString.
strings add: str.
par nbUInt32AtOffset: (i - 1) * 
4 put: str value ].
self prim_initEmbeddedRargc: params size argv: par ]
ensure: [
"Free the memory we allocated"
par ifNotNil: [ par free ].
strings ifNotNil: [ strings do: 
[ :each | each free ] ] ]

With a primitive call:
Self nbCall: #(int Rf_initEmbeddedR(int argc, char *argv))

Do I still need to create my own array of strings or FFI creates it for me? How?

Thanks in advance for your answers,

Vincent


!!!*
"Ce message et les pi?ces jointes sont confidentiels et r?serv?s ? l'usage 
exclusif de ses destinataires. Il peut ?galement ?tre prot?g? par le secret 
professionnel. Si vous recevez ce message par erreur, merci d'en avertir 
imm?diatement l'exp?diteur et de le d?truire. L'int?grit? du message ne pouvant 
?tre assur?e sur Internet, la responsabilit? de Worldline ne pourra ?tre 
recherch?e quant au contenu de ce message. Bien que les meilleurs efforts 
soient faits pour maintenir cette transmission exempte de tout virus, 
l'exp?diteur ne donne aucune garantie ? cet ?gard et sa responsabilit? ne 
saurait ?tre recherch?e pour tout dommage r?sultant d'un virus transmis.

This e-mail and the documents attached are confidential and intended solely for 
the addressee; it may also be privileged. If you receive this e-mail in error, 
please notify the sender immediately and destroy it. As its integrity cannot be 
secured on the Internet, the Worldline liability cannot be triggered for the 
message content. Although the sender endeavours to maintain a computer 
virus-free network, the sender does not warrant that this transmission is 
virus-free and will not be liable for any damages resulting from any virus 
transmitted.!!!"