Changeset 368 for trunk/zoo-project/zoo-kernel/ulinet.c

Timestamp:

Oct 4, 2012, 5:04:31 PM (12 years ago)

Author:

djay

Message:

Many thanks to Trevor Clarke for providing patch for Python ZOO-API. This rev. shall fix ticket #74.

File:

• trunk/zoo-project/zoo-kernel/ulinet.c (modified) (1 diff)

trunk/zoo-project/zoo-kernel/ulinet.c

@@ -374 +374 @@
 }
 
-#ifdef USE_JS
-#define XP_WIN 1
-#include "jsapi.h"
-
-char* JSValToChar(JSContext* context, jsval* arg) {
-  char *c;
-  char *tmp;
-  JSString *jsmsg;
-  size_t len;
-  int i;
-  if(!JSVAL_IS_STRING(*arg)) {
-    return NULL;
-  }
-  jsmsg = JS_ValueToString(context,*arg);
-  len = JS_GetStringLength(jsmsg);
-  tmp = JS_EncodeString(context,jsmsg);
-  c = (char*)malloc((len+1)*sizeof(char));
-  c[len] = '\0';
-#ifdef ULINET_DEBUG
-  fprintf(stderr,"%d \n",len);
-#endif
-  for(i = 0;i < len;i++) {
-    c[i] = tmp[i];
-    c[i+1] = 0;
-  }
-#ifdef ULINET_DEBUG
-  fprintf(stderr,"%s \n",c);
-#endif
-  return c;
-}
-
-HINTERNET setHeader(HINTERNET handle,JSContext *cx,JSObject *header){
-  jsuint length=0;
-  jsint i=0;
-  char *tmp1;
-#ifdef ULINET_DEBUG
-  fprintf(stderr,"setHeader\n");
-#endif
-  if(JS_IsArrayObject(cx,header)){
-#ifdef ULINET_DEBUG
-    fprintf(stderr,"header is an array\n");
-#endif
-    JS_GetArrayLength(cx,header,&length);
-#ifdef ULINET_DEBUG
-    fprintf(stderr,"header is an array of %d elements\n",length);
-#endif
-    handle.header=NULL;
-    for(i=0;i<length;i++){
-      jsval tmp;
-      JS_GetElement(cx,header,i,&tmp);
-      tmp1=JSValToChar(cx,&tmp);
-#ifdef ULINET_DEBUG
-      fprintf(stderr,"Element of array n° %d, value : %s\n",i,tmp1);
-#endif
-      handle.header=curl_slist_append(handle.header, tmp1);
-      free(tmp1);
-    }
-  }
-  else{
-    fprintf(stderr,"not an array !!!!!!!\n");
-  }
-  return handle;
-}
-
-JSBool
-JSRequest(JSContext *cx, uintN argc, jsval *argv1)
-{
-  jsval *argv = JS_ARGV(cx,argv1);
-  HINTERNET hInternet;
-  HINTERNET res;
-  HINTERNET res1;
-  JSObject *header;
-  char *url;
-  char *method;
-  char* tmpValue;
-  size_t dwRead;
-  int i=0;
-  JS_MaybeGC(cx);
-  hInternet=InternetOpen((LPCTSTR)"ZooWPSClient\0",
-                         INTERNET_OPEN_TYPE_PRECONFIG,
-                         NULL,NULL, 0);
-  if(!CHECK_INET_HANDLE(hInternet))
-    return JS_FALSE;
-  if(argc>=2){
-    method=JSValToChar(cx,&argv[0]);
-    url=JSValToChar(cx,&argv[1]);
-  }
-  else{
-    method=strdup("GET");
-    url=JSValToChar(cx,argv);
-  }
-  if(argc==4){
-    char *body;
-    body=JSValToChar(cx,&argv[2]);
-    header=JSVAL_TO_OBJECT(argv[3]);
-#ifdef ULINET_DEBUG
-    fprintf(stderr,"URL (%s) \nBODY (%s)\n",url,body);
-#endif
-    if(JS_IsArrayObject(cx,header))
-      res1=setHeader(hInternet,cx,header);
-#ifdef ULINET_DEBUG
-    fprintf(stderr,"BODY (%s)\n",body);
-#endif
-    res=InternetOpenUrl(res1,url,body,strlen(body),
-                        INTERNET_FLAG_NO_CACHE_WRITE,0);    
-    free(body);
-  }else{
-    if(argc==3){
-      char *body=JSValToChar(cx,&argv[2]);
-      res=InternetOpenUrl(hInternet,url,body,strlen(body),
-                          INTERNET_FLAG_NO_CACHE_WRITE,0);
-      free(body);
-    }
-    res=InternetOpenUrl(hInternet,url,NULL,0,
-                        INTERNET_FLAG_NO_CACHE_WRITE,0);
-  }
-  tmpValue=(char*)malloc((res.nDataLen+1)*sizeof(char));
-  InternetReadFile(res,(LPVOID)tmpValue,res.nDataLen,&dwRead);
-  fprintf(stderr,"content downloaded (%d) (%s) \n",dwRead,tmpValue);
-  if(dwRead==0){
-    JS_SET_RVAL(cx, argv1,STRING_TO_JSVAL(JS_NewStringCopyN(cx,"Unable to access the file.",strlen("Unable to access the file."))));
-    return JS_TRUE;
-  }
-
-#ifdef ULINET_DEBUG
-  fprintf(stderr,"content downloaded (%d) (%s) \n",dwRead,tmpValue);
-#endif
-  JS_SET_RVAL(cx, argv1,STRING_TO_JSVAL(JS_NewStringCopyN(cx,tmpValue,strlen(tmpValue))));
-  free(url);
-  if(argc>=2)
-    free(method);
-  if(argc==4 && res.header!=NULL){
-    curl_slist_free_all(res.header);
-  }
-  InternetCloseHandle(hInternet);
-  JS_MaybeGC(cx);
-  return JS_TRUE;
-}
-#endif