/**
* Convert a Ruby Hash to a maps
*
* @param t the Ruby Hash to convert
* @return a new maps
*/
maps* mapsFromRubyHash(VALUE t){
maps* res=NULL;
maps* cursor=res;
VALUE list;
list = rb_ary_new();
typedef int (*HOOK)(...);
rb_hash_foreach(t, reinterpret_cast<HOOK>(keys_i), list);
int nb=rb_hash_size(t);
int i;
for(i=0;i<FIX2INT(nb);i++){
VALUE key=rb_ary_pop(list);
VALUE value=rb_hash_aref(t,key);
#ifdef DEBUG
fprintf(stderr,">> DEBUG VALUES : %s => %s\n",
StringValueCStr(key),StringValueCStr(value));
#endif
cursor=createMaps(StringValueCStr(key));
cursor->content=mapFromRubyHash(value);
if(res==NULL)
res=dupMaps(&cursor);
else
addMapsToMaps(&res,cursor);
freeMaps(&cursor);
free(cursor);
}
return res;
}
/**
* The function used as ZOOUpdateStatus from the JavaScript environment
* (ZOO-API).
*
* @param cx the JavaScript context
* @param argc the number of parameters
* @param argv1 the parameter values
* @return true
* @see setHeader,_updateStatus
*/
JSBool
JSUpdateStatus(JSContext *cx, uintN argc, jsval *argv1)
{
jsval *argv = JS_ARGV(cx,argv1);
JS_MaybeGC(cx);
int istatus=0;
char *status=NULL;
maps *conf;
if(argc>2){
#ifdef JS_DEBUG
fprintf(stderr,"Number of arguments used to call the function : %i",argc);
#endif
return JS_FALSE;
}
conf=mapsFromJSObject(cx,argv[0]);
if(JS_ValueToInt32(cx,argv[1],&istatus)==JS_TRUE){
char tmpStatus[4];
sprintf(tmpStatus,"%i",istatus);
tmpStatus[3]=0;
status=strdup(tmpStatus);
}
if(getMapFromMaps(conf,"lenv","status")!=NULL){
if(status!=NULL){
setMapInMaps(conf,"lenv","status",status);
free(status);
}
else
setMapInMaps(conf,"lenv","status","15");
_updateStatus(conf);
}
freeMaps(&conf);
free(conf);
JS_MaybeGC(cx);
return JS_TRUE;
}
void
Maplist::initialize( void )
{
freeMaps();
define( N_P2D, 0, 2 );
define( N_P2DR, 1, 3 );
}
/**
* Add a request in the download queue
*
* @param m the maps containing the settings of the main.cfg file
* @param url the url to add to the queue
*/
void addRequestToQueue(maps** m,HINTERNET* hInternet,const char* url,bool req){
hInternet->waitingRequests[hInternet->nb]=strdup(url);
if(req)
InternetOpenUrl(hInternet,hInternet->waitingRequests[hInternet->nb],NULL,0,INTERNET_FLAG_NO_CACHE_WRITE,0);
maps *oreq=getMaps(*m,"orequests");
if(oreq==NULL){
oreq=createMaps("orequests");
oreq->content=createMap("value",url);
addMapsToMaps(m,oreq);
freeMaps(&oreq);
free(oreq);
}else{
setMapArray(oreq->content,"value",hInternet->nb-1,url);
}
}
/**
* Update the ongoing status of a running service from the Ruby environment
* (ZOO-API)
*
* @param argc the number of parameters
* @param argv the parameter values given from the Ruby environment
* @param obj the Ruby object on which we run the method
* @return a new Ruby string containing the translated value
* @see _updateStatus
*/
VALUE
RubyUpdateStatus(int argc, VALUE *argv, VALUE obj)
{
maps* conf;
VALUE confdict=argv[0];
int istatus=argv[1];
char* status;
if (istatus < 0 || istatus > 100){
fprintf(stderr,"Status must be a percentage.");
return Qnil;
}else{
char tmpStatus[4];
snprintf(tmpStatus, 4, "%i", istatus);
status = zStrdup(tmpStatus);
}
/* now update the map */
{
VALUE lenv = rb_hash_aref(confdict,rb_str_new2("lenv"));
if(TYPE(lenv)!=T_NIL){
VALUE valobj=rb_str_new2(status);
rb_hash_aset(lenv,rb_str_new2("status"),valobj);
}
}
conf = mapsFromRubyHash(confdict);
if (getMapFromMaps(conf,"lenv","status") != NULL){
fprintf(stderr,"STATUS RETURNED : %s\n",status);
if(status!=NULL){
setMapInMaps(conf,"lenv","status",status);
free(status);
}
else
setMapInMaps(conf,"lenv","status","15");
_updateStatus(conf);
}
freeMaps(&conf);
free(conf);
return Qnil;
}
/**
* Convert a JavaScript Object to a maps
*
* @param cx the JavaScript context
* @param t the JavaScript Object to convert
* @return a new maps containing the JavaScript Object
*/
maps* mapsFromJSObject(JSContext *cx,jsval t){
maps *res=NULL;
maps *tres=NULL;
jsint oi=0;
JSObject* tt=JSVAL_TO_OBJECT(t);
if(JS_IsArrayObject(cx,tt)){
#ifdef JS_DEBUG
fprintf(stderr,"Is finally an array !\n");
#endif
}
else{
#ifdef JS_DEBUG
fprintf(stderr,"Is not an array !\n");
#endif
JSIdArray *idp=JS_Enumerate(cx,tt);
if(idp!=NULL) {
int index;
jsdouble argNum;
#ifdef JS_DEBUG
fprintf(stderr,"Properties length : %d \n",idp->length);
#endif
for (index=0,argNum=idp->length;index<argNum;index++) {
jsval id = idp->vector[index];
jsval vp;
JS_IdToValue(cx,id,&vp);
char *tmp;
JSString *jsmsg;
size_t len1;
jsmsg = JS_ValueToString(cx,vp);
len1 = JS_GetStringLength(jsmsg);
tmp=JS_EncodeString(cx,jsmsg);
tres=createMaps(tmp);
jsval nvp=JSVAL_NULL;
if((JS_GetProperty(cx, tt, tmp, &nvp)==JS_FALSE)){
#ifdef JS_DEBUG
fprintf(stderr,"Enumerate id : %d => %s => No more value\n",oi,tmp);
#endif
}
free(tmp);
JSObject *nvp1=JSVAL_TO_OBJECT(JSVAL_NULL);
JS_ValueToObject(cx,nvp,&nvp1);
jsval nvp1j=OBJECT_TO_JSVAL(nvp1);
if(JSVAL_IS_OBJECT(nvp1j)){
tres->content=mapFromJSObject(cx,nvp1j);
}
jsval nvp0=JSVAL_NULL;
JSObject *nvp01=JSVAL_TO_OBJECT(JSVAL_NULL);
if((JS_GetProperty(cx, nvp1, "child", &nvp0)==JS_FALSE)){
#ifdef JS_DEBUG
fprintf(stderr,"Enumerate id : %d => %s => No more value\n",oi,tmp);
#endif
}
JS_ValueToObject(cx,nvp0,&nvp01);
jsval nvp01j=OBJECT_TO_JSVAL(nvp01);
if(!JSVAL_IS_NULL(nvp01j)){
tres->child=mapsFromJSObject(cx,nvp01j);
}
if(res==NULL)
res=dupMaps(&tres);
else
addMapsToMaps(&res,tres);
freeMaps(&tres);
free(tres);
tres=NULL;
}
JS_DestroyIdArray(cx,idp);
}
}
jsuint len;
JSBool hasLen=JS_GetArrayLength(cx, tt, &len);
#ifdef JS_DEBUG
if(hasLen==JS_FALSE){
fprintf(stderr,"outputs array is empty\n");
}
fprintf(stderr,"outputs array length : %d\n",len);
#endif
for(oi=0;hasLen && oi < len;oi++){
#ifdef JS_DEBUG
fprintf(stderr,"outputs array length : %d step %d \n",len,oi);
#endif
jsval tmp1;
JSBool hasElement=JS_GetElement(cx,tt,oi,&tmp1);
JSObject *otmp1=JSVAL_TO_OBJECT(tmp1);
JSIdArray *idp=JS_Enumerate(cx,otmp1);
if(idp!=NULL) {
int index;
jsdouble argNum;
#ifdef JS_DEBUG
fprintf(stderr,"Properties length : %d \n",idp->length);
#endif
tres=(maps*)malloc(MAPS_SIZE);
tres->name=NULL;
tres->content=NULL;
tres->next=NULL;
for (index=0,argNum=idp->length;index<argNum;index++) {
jsval id = idp->vector[index];
jsval vp;
JS_IdToValue(cx,id,&vp);
char *tmp;
JSString *jsmsg;
size_t len1;
jsmsg = JS_ValueToString(cx,vp);
len1 = JS_GetStringLength(jsmsg);
tmp=JS_EncodeString(cx,jsmsg);
#ifdef JS_DEBUG
fprintf(stderr,"Enumerate id : %d => %s\n",oi,tmp);
#endif
jsval nvp=JSVAL_NULL;
if((JS_GetProperty(cx, JSVAL_TO_OBJECT(tmp1), tmp, &nvp)==JS_FALSE)){
#ifdef JS_DEBUG
fprintf(stderr,"Enumerate id : %d => %s => No more value\n",oi,tmp);
#endif
}
free(tmp);
if(JSVAL_IS_OBJECT(nvp)){
#ifdef JS_DEBUG
fprintf(stderr,"JSVAL NVP IS OBJECT\n");
#endif
}
JSObject *nvp1=JSVAL_TO_OBJECT(JSVAL_NULL);
JS_ValueToObject(cx,nvp,&nvp1);
jsval nvp1j=OBJECT_TO_JSVAL(nvp1);
if(JSVAL_IS_OBJECT(nvp1j)){
JSString *jsmsg1;
char *tmp1, *tmp2;
JSObject *nvp2=JSVAL_TO_OBJECT(JSVAL_NULL);
jsmsg1 = JS_ValueToString(cx,nvp1j);
len1 = JS_GetStringLength(jsmsg1);
tmp1=JS_EncodeString(cx,jsmsg1);
tmp2=JS_EncodeString(cx,jsmsg);
#ifdef JS_DEBUG
fprintf(stderr,"JSVAL NVP1J IS OBJECT %s = %s\n",JS_EncodeString(cx,jsmsg),tmp1);
#endif
if(strcasecmp(tmp1,"[object Object]")==0){
tres->name=zStrdup(tmp2);
tres->content=mapFromJSObject(cx,nvp1j);
}
else
if(strcasecmp(tmp2,"name")==0){
tres->name=zStrdup(tmp1);
}
else{
if(tres->content==NULL)
tres->content=createMap(tmp2,tmp1);
else
addToMap(tres->content,tmp2,tmp1);
}
free(tmp1);
free(tmp2);
}
#ifdef JS_DEBUG
else
fprintf(stderr,"JSVAL NVP1J IS NOT OBJECT !!\n");
#endif
}
#ifdef JS_DEBUG
dumpMaps(tres);
#endif
if(res==NULL)
res=dupMaps(&tres);
else
addMapsToMaps(&res,tres);
freeMaps(&tres);
free(tres);
tres=NULL;
JS_DestroyIdArray(cx,idp);
}
}
#ifdef JS_DEBUG
dumpMaps(res);
#endif
return res;
}
/**
* Load a JavaScript file then run the function corresponding to the service by
* passing the conf, inputs and outputs parameters by value as JavaScript
* Objects.
*
* @param main_conf the conf maps containing the main.cfg settings
* @param request the map containing the HTTP request
* @param s the service structure
* @param inputs the maps containing the inputs
* @param outputs the maps containing the outputs
* @return SERVICE_SUCCEEDED or SERVICE_FAILED if the service run, -1
* if the service failed to load or throw error at runtime.
*/
int zoo_js_support(maps** main_conf,map* request,service* s,maps **inputs,maps **outputs)
{
/*maps* main=*main_conf;
maps* _inputs=*inputs;
maps* _outputs=*outputs;*/
/* The class of the global object. */
JSClass global_class= {
"global", JSCLASS_GLOBAL_FLAGS,
JS_PropertyStub, JS_PropertyStub, JS_PropertyStub, JS_StrictPropertyStub,
JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub,
JSCLASS_NO_OPTIONAL_MEMBERS
};
/* JS variables. */
JSRuntime *rt;
JSContext *cx;
JSObject *global;
/* Create a JS runtime. */
rt = JS_NewRuntime(8L * 1024L * 1024L);
if (rt == NULL)
return 1;
/* Create a context. */
cx = JS_NewContext(rt,8192);
if (cx == NULL){
return 1;
}
JS_SetOptions(cx, JSOPTION_VAROBJFIX | JSOPTION_JIT | JSOPTION_METHODJIT);
JS_SetVersion(cx, JSVERSION_LATEST);
JS_SetErrorReporter(cx, reportError);
/* Create the global object. */
global = JS_NewCompartmentAndGlobalObject(cx, &global_class, NULL);
/* Populate the global object with the standard globals,
like Object and Array. */
if (!JS_InitStandardClasses(cx, global)){
return 1;
}
/* Define specific function and global variable to share with JS runtime
*/
jsval tmp=INT_TO_JSVAL(3);
if (!JS_SetProperty(cx, global, "SERVICE_SUCCEEDED", &tmp))
return 1;
tmp=INT_TO_JSVAL(4);
if (!JS_SetProperty(cx, global, "SERVICE_FAILED", &tmp))
return 1;
if (!JS_DefineFunction(cx, global, "ZOORequest", JSRequest, 4, 0))
return 1;
if (!JS_DefineFunction(cx, global, "ZOOTranslate", JSTranslate, 4, 0))
return 1;
if (!JS_DefineFunction(cx, global, "ZOOUpdateStatus", JSUpdateStatus, 2, 0))
return 1;
if (!JS_DefineFunction(cx, global, "alert", JSAlert, 2, 0))
return 1;
if (!JS_DefineFunction(cx, global, "importScripts", JSLoadScripts, 1, 0))
return 1;
/**
* Add private context object
*/
void* cxPrivate = request;
JS_SetContextPrivate(cx,cxPrivate);
map* tmpm1=getMap(request,"metapath");
char ntmp[1024];
map* cwdMap=getMapFromMaps(*main_conf,"main","servicePath");
if(cwdMap!=NULL)
sprintf(ntmp,"%s",cwdMap->value);
else
getcwd(ntmp,1024);
/**
* Load the first part of the ZOO-API
*/
char *api0=(char*)malloc((strlen(ntmp)+17)*sizeof(char));
sprintf(api0,"%s/ZOO-proj4js.js",ntmp);
#ifdef JS_DEBUG
fprintf(stderr,"Trying to load %s\n",api0);
#endif
JSObject *api_script1=loadZooApiFile(cx,global,api0);
free(api0);
fflush(stderr);
char *api1=(char*)malloc((strlen(ntmp)+13)*sizeof(char));
sprintf(api1,"%s/ZOO-api.js",ntmp);
#ifdef JS_DEBUG
fprintf(stderr,"Trying to load %s\n",api1);
#endif
JSObject *api_script2=loadZooApiFile(cx,global,api1);
free(api1);
fflush(stderr);
/* Your application code here. This may include JSAPI calls
to create your own custom JS objects and run scripts. */
//maps* out=*outputs;
int res=SERVICE_FAILED;
//maps* mc=*main_conf;
map* tmpm2=getMap(s->content,"serviceProvider");
char *filename=(char*)malloc(strlen(tmpm1->value)+strlen(tmpm2->value)+strlen(ntmp)+3);
sprintf(filename,"%s/%s/%s",ntmp,tmpm1->value,tmpm2->value);
filename[strlen(tmpm1->value)+strlen(tmpm2->value)+strlen(ntmp)+2]=0;
#ifdef JS_DEBUG
fprintf(stderr,"FILENAME %s\n",filename);
#endif
struct stat file_status;
stat(filename, &file_status);
//char *source=(char*)malloc(file_status.st_size);
//uint16 lineno;
jsval rval;
JSBool ok ;
JSObject *script = JS_CompileFile(cx, global, filename);
if(script!=NULL){
(void)JS_ExecuteScript(cx, global, script, &rval);
}
else{
char tmp1[1024];
sprintf(tmp1,"Unable to load JavaScript file %s",filename);
free(filename);
errorException(*main_conf,tmp1,"NoApplicableCode",NULL);
JS_MaybeGC(cx);
JS_DestroyContext(cx);
JS_DestroyRuntime(rt);
JS_ShutDown();
return -1;
}
/* Call a function in obj's scope. */
jsval argv[3];
JSObject *jsargv1=JSObject_FromMaps(cx,*main_conf);
argv[0] = OBJECT_TO_JSVAL(jsargv1);
JSObject *jsargv2=JSObject_FromMaps(cx,*inputs);
argv[1] = OBJECT_TO_JSVAL(jsargv2);
JSObject *jsargv3=JSObject_FromMaps(cx,*outputs);
argv[2] = OBJECT_TO_JSVAL(jsargv3);
jsval rval1=JSVAL_NULL;
#ifdef JS_DEBUG
fprintf(stderr, "object %p\n", (void *) argv[2]);
#endif
ok = JS_CallFunctionName(cx, global, s->name, 3, argv, &rval1);
#ifdef JS_DEBUG
fprintf(stderr, "object %p\n", (void *) argv[2]);
#endif
JSObject *d;
if (ok==JS_TRUE && JSVAL_IS_OBJECT(rval1)==JS_TRUE) {
#ifdef JS_DEBUG
fprintf(stderr,"Function run sucessfully !\n");
#endif
/* Should get a number back from the service function call. */
ok = JS_ValueToObject(cx, rval1, &d);
}else{
/* Unable to run JS function */
char tmp1[1024];
if(strlen(dbg)==0)
sprintf(dbg,"No result was found after the function call");
sprintf(tmp1,"Unable to run %s from the JavaScript file %s : \n %s",s->name,filename,dbg);
#ifdef JS_DEBUG
fprintf(stderr,"%s",tmp1);
#endif
errorException(*main_conf,tmp1,"NoApplicableCode",NULL);
free(filename);
JS_MaybeGC(cx);
JS_DestroyContext(cx);
JS_DestroyRuntime(rt);
JS_ShutDown();
// Should return -1 here but the unallocation won't work from zoo_service_loader.c line 1847
return -1;
}
//jsval t=OBJECT_TO_JSVAL(d);
if(JS_IsArrayObject(cx,d)){
#ifdef JS_DEBUG
fprintf(stderr,"An array was returned !\n");
#endif
jsuint len;
if((JS_GetArrayLength(cx, d, &len)==JS_FALSE)){
#ifdef JS_DEBUG
fprintf(stderr,"outputs array is empty\n");
#endif
}
jsval tmp1;
JSBool hasResult=JS_GetElement(cx,d,0,&tmp1);
res=JSVAL_TO_INT(tmp1);
#ifdef JS_DEBUG
fprintf(stderr," * %d * \n",res);
#endif
if(res==SERVICE_SUCCEEDED){
jsval tmp2;
JSBool hasElement=JS_GetElement(cx,d,1,&tmp2);
if(hasElement==JS_TRUE){
freeMaps(outputs);
free(*outputs);
*outputs=mapsFromJSObject(cx,tmp2);
}
}else{
jsval tmp3;
JSBool hasConf=JS_GetElement(cx,d,1,&tmp3);
if(hasConf==JS_TRUE){
freeMaps(main_conf);
free(*main_conf);
*main_conf=mapsFromJSObject(cx,tmp3);
}
}
}
else{
#ifdef JS_DEBUG
fprintf(stderr,"The service didn't return an array !\n");
#endif
/**
* Extract result
*/
jsval tmp1;
JSBool hasResult=JS_GetProperty(cx,d,"result",&tmp1);
res=JSVAL_TO_INT(tmp1);
#ifdef JS_DEBUG
fprintf(stderr," * %d * \n",res);
#endif
/**
* Extract outputs when available.
*/
jsval tmp2;
JSBool hasElement=JS_GetProperty(cx,d,"outputs",&tmp2);
if(!JSVAL_IS_VOID(tmp2) && hasElement==JS_TRUE){
freeMaps(outputs);
free(*outputs);
*outputs=mapsFromJSObject(cx,tmp2);
}
JS_MaybeGC(cx);
#ifdef JS_DEBUG
if(JSVAL_IS_VOID(tmp2))
fprintf(stderr,"No outputs property returned\n");
else{
if(JS_IsArrayObject(cx,JSVAL_TO_OBJECT(tmp2)))
fprintf(stderr,"outputs is an array as expected\n");
else
fprintf(stderr,"outputs is not an array as expected\n");
}
JS_MaybeGC(cx);
#endif
/**
* Extract conf when available.
*/
jsval tmp3;
JSBool hasConf=JS_GetProperty(cx,d,"conf",&tmp3);
if(!JSVAL_IS_VOID(tmp3) && hasConf==JS_TRUE){
freeMaps(main_conf);
free(*main_conf);
*main_conf=mapsFromJSObject(cx,tmp3);
}
JS_MaybeGC(cx);
#ifdef JS_DEBUG
dumpMaps(*outputs);
#endif
}
/* Cleanup. */
JS_MaybeGC(cx);
JS_DestroyContext(cx);
JS_DestroyRuntime(rt);
JS_ShutDown();
free(filename);
#ifdef JS_DEBUG
fprintf(stderr,"Returned value %d\n",res);
#endif
return res;
}
/**
* Convert a php Array to a maps
*
* @param t the php Array to convert
* @return the created maps
*/
maps* php_maps_from_Array(HashTable *t){
maps* final_res=NULL;
maps* cursor=final_res;
char key[1024];
for(zend_hash_internal_pointer_reset(t);
zend_hash_has_more_elements(t) == SUCCESS;
zend_hash_move_forward(t)) {
char *key;
uint keylen;
ulong idx;
int type;
zval **ppzval, tmpcopy;
type = zend_hash_get_current_key_ex(t, &key, &keylen, &idx, 0, NULL);
if (zend_hash_get_current_data(t, (void**)&ppzval) == FAILURE) {
/**
* Should never actually fail since the key is known to exist.
*/
continue;
}
/**
* Duplicate the zval so that * the orignal’s contents are not destroyed
*/
tmpcopy = **ppzval;
#ifdef DEBUG
fprintf(stderr,"key : %s\n",key);
#endif
zval_copy_ctor(&tmpcopy);
#ifdef DEBUG
fprintf(stderr,"key : %s\n",key);
#endif
/**
* Reset refcount & Convert
*/
INIT_PZVAL(&tmpcopy);
//convert_to_string(&tmpcopy);
if (type == HASH_KEY_IS_STRING) {
/**
* String Key / Associative
*/
cursor=createMaps(key);
#ifdef DEBUG
fprintf(stderr,"key : %s\n",key);
#endif
HashTable* t=HASH_OF(*ppzval);
#ifdef DEBUG
fprintf(stderr,"key : %s\n",key);
#endif
cursor->content=php_map_from_HasTable(t);
cursor->next=NULL;
if(final_res==NULL)
final_res=dupMaps(&cursor);
else{
addMapsToMaps(&final_res,cursor);
}
freeMaps(&cursor);
free(cursor);
}
#ifdef DEBUG
fprintf(stderr,"key : %s\n",key);
#endif
/**
* Toss out old copy
*/
zval_dtor(&tmpcopy);
}
return final_res;
}
/**
* Load a PHP script then run the function corresponding to the service by
* passing the conf, inputs and outputs parameters by reference.
*
* @param main_conf the conf maps containing the main.cfg settings
* @param request the map containing the HTTP request
* @param s the service structure
* @param real_inputs the maps containing the inputs
* @param real_outputs the maps containing the outputs
*/
int zoo_php_support(maps** main_conf,map* request,service* s,maps **real_inputs,maps **real_outputs){
maps* m=*main_conf;
maps* inputs=*real_inputs;
maps* outputs=*real_outputs;
map* libp = getMapFromMaps(m, "main", "libPath");
int res=SERVICE_FAILED;
map* tmp=getMap(s->content,"serviceProvider");
if (tmp == NULL || tmp->value == NULL) {
return errorException(m, "Missing serviceProvider (library file)", "NoApplicableCode", NULL);
}
map* cwd=getMapFromMaps(m,"lenv","cwd");
#ifdef IGNORE_METAPATH
map* mp = createMap("metapath", "");
#else
map* mp = getMap(request, "metapath");
#endif
char *scriptName;
if (libp != NULL && libp->value != NULL) {
scriptName = (char*) malloc((strlen(libp->value) + strlen(tmp->value) + 2)*sizeof(char));
sprintf (scriptName, "%s/%s", libp->value, tmp->value);
}
else {
if(mp!=NULL && strlen(mp->value)>0){
scriptName=(char*)malloc((strlen(cwd->value)+strlen(mp->value)+strlen(tmp->value)+3)*sizeof(char));
sprintf(scriptName,"%s/%s/%s",cwd->value,mp->value,tmp->value);
}else{
scriptName=(char*)malloc((strlen(cwd->value)+strlen(tmp->value)+2)*sizeof(char));
sprintf(scriptName,"%s/%s",cwd->value,tmp->value);
}
}
zend_file_handle iscript;
iscript.type=ZEND_HANDLE_FD;
iscript.opened_path=NULL;
iscript.filename=tmp->value;
iscript.free_filename=0;
FILE* temp=fopen(scriptName,"rb");
if(temp==NULL){
char tmp1[1024];
sprintf(tmp1,_("Unable to load the PHP file %s"),tmp->value);
free(scriptName);
return errorException(m,tmp1,"NoApplicableCode",NULL);
}
iscript.handle.fd=fileno(temp);
php_embed_init(0,NULL PTSRMLS_CC);
zend_try {
zend_startup_module(&zoo_module_entry);
php_execute_script(&iscript TSRMLS_CC);
zval *iargs[3];
zval iret, ifunc,ifile;
ZVAL_STRING(&ifunc, s->name, 0);
iargs[0] = php_Array_from_maps(*main_conf);
iargs[1] = php_Array_from_maps(*real_inputs);
iargs[2] = php_Array_from_maps(*real_outputs);
if((res=call_user_function(EG(function_table), NULL, &ifunc, &iret, 3, iargs TSRMLS_CC))==SUCCESS){
HashTable* t=HASH_OF(iargs[2]);
HashTable* t1=HASH_OF(iargs[0]);
freeMaps(real_outputs);
free(*real_outputs);
freeMaps(main_conf);
free(*main_conf);
*real_outputs=php_maps_from_Array(t);
*main_conf=php_maps_from_Array(t1);
res=Z_LVAL(iret);
}else{
free(scriptName);
fclose(temp);
return errorException(m,"Unable to process.","NoApplicableCode",NULL);;
}
} zend_catch {
free(scriptName);
fclose(temp);
return errorException(m,"Unable to process.","NoApplicableCode",NULL);;
} zend_end_try();
free(scriptName);
fclose(temp);
php_embed_shutdown(TSRMLS_C);
return res;
}
CleverMonster::~CleverMonster() {
if(isLast()) {
freeMaps();
}
}
/**
* Load a Ruby file then run the function corresponding to the service by
* passing the conf, inputs and outputs parameters by refernce as Ruby Hash.
*
* @param main_conf the conf maps containing the main.cfg settings
* @param request the map containing the HTTP request
* @param s the service structure
* @param real_inputs the maps containing the inputs
* @param real_outputs the maps containing the outputs
* @return SERVICE_SUCCEEDED or SERVICE_FAILED if the service run, -1
* if the service failed to load or throw error at runtime.
*/
int zoo_ruby_support(maps** main_conf,map* request,service* s,maps **real_inputs,maps **real_outputs){
#if RUBY_API_VERSION_MAJOR >= 2 || RUBY_API_VERSION_MINOR == 9
ruby_sysinit(&argc,&argv);
RUBY_INIT_STACK;
#endif
ruby_init();
maps* m=*main_conf;
maps* inputs=*real_inputs;
maps* outputs=*real_outputs;
map* tmp0=getMapFromMaps(*main_conf,"lenv","cwd");
char *ntmp=tmp0->value;
map* tmp=NULL;
ruby_init_loadpath();
ruby_script("ZOO_EMBEDDED_ENV");
VALUE klass=rb_define_module("Zoo");
rb_define_const(klass,"SERVICE_SUCCEEDED",INT2FIX(3));
rb_define_const(klass,"SERVICE_FAILED",INT2FIX(4));
typedef VALUE (*HOOK)(...);
rb_define_module_function(klass,"Translate",reinterpret_cast<HOOK>(RubyTranslate),-1);
rb_define_module_function(klass,"UpdateStatus",reinterpret_cast<HOOK>(RubyUpdateStatus),-1);
int error = 0;
ID rFunc=Qnil;
tmp=getMap(s->content,"serviceProvider");
if(tmp!=NULL){
#if RUBY_VERSION_MINOR == 8
const char* script = ruby_sourcefile = rb_source_filename(tmp->value);
rb_protect(LoadWrap, reinterpret_cast<VALUE>(script), &error);
#else
rb_load_protect(rb_str_new2(tmp->value), 0, &error);
#endif
if(error) {
ruby_trace_error(m);
return -1;
}
#if RUBY_VERSION_MINOR == 8
ruby_exec();
#else
ruby_exec_node(NULL);
#endif
}
else{
map* err=createMap("text","Unable to parse serviceProvider please check your zcfg file.");
addToMap(err,"code","NoApplicableCode");
printExceptionReportResponse(m,err);
return -1;
}
int res=SERVICE_FAILED;
rFunc=rb_intern(s->name);
if(rFunc!=Qnil){
VALUE arg1=RubyHash_FromMaps(m);
VALUE arg2=RubyHash_FromMaps(inputs);
VALUE arg3=RubyHash_FromMaps(outputs);
VALUE rArgs[3]={arg1,arg2,arg3};
if (!rArgs)
return -1;
struct my_callback data;
data.obj=Qnil;
data.method_id=rFunc;
data.nargs=3;
data.args[0]=rArgs[0];
data.args[1]=rArgs[1];
data.args[2]=rArgs[2];
typedef VALUE (*HOOK)(VALUE);
VALUE tres=rb_protect(reinterpret_cast<HOOK>(FunCallWrap),(VALUE)(&data),&error);
if (TYPE(tres) == T_FIXNUM) {
res=FIX2INT(tres);
freeMaps(real_outputs);
free(*real_outputs);
freeMaps(main_conf);
free(*main_conf);
*main_conf=mapsFromRubyHash(arg1);
*real_outputs=mapsFromRubyHash(arg3);
#ifdef DEBUG
dumpMaps(*main_conf);
dumpMaps(*real_outputs);
#endif
}else{
ruby_trace_error(m);
res=-1;
}
}
else{
char tmpS[1024];
sprintf(tmpS, "Cannot find the %s function in the %s file.\n", s->name, tmp->value);
map* tmps=createMap("text",tmpS);
printExceptionReportResponse(m,tmps);
res=-1;
}
ruby_finalize();
return res;
}
