Data update

Task/HTTP/Visual-Basic-.NET/http.vb

@@ -1,5 +1,11 @@
 Imports System.Net
 
-Dim client As WebClient = New WebClient()
-Dim content As String = client.DownloadString("http://www.google.com")
-Console.WriteLine(content)
+Module RCHttp
+
+    Public Sub Main(args As String())
+        Dim client As New WebClient()
+        Dim content As String = client.DownloadString("http://www.google.com")
+        Console.WriteLine(content)
+    End Sub
+
+End Module

Task/HTTP/Wren/http-1.wren

@@ -1,31 +0,0 @@
-/* HTTP.wren */
-
-var CURLOPT_URL = 10002
-var CURLOPT_FOLLOWLOCATION = 52
-var CURLOPT_ERRORBUFFER = 10010
-
-foreign class Curl {
-    construct easyInit() {}
-
-    foreign easySetOpt(opt, param)
-
-    foreign easyPerform()
-
-    foreign easyCleanup()
-}
-
-var curl = Curl.easyInit()
-if (curl == 0) {
-    System.print("Error initializing cURL.")
-    return
-}
-curl.easySetOpt(CURLOPT_URL, "http://www.rosettacode.org/")
-curl.easySetOpt(CURLOPT_FOLLOWLOCATION, 1)
-curl.easySetOpt(CURLOPT_ERRORBUFFER, 0) // buffer to be supplied by C
-
-var status = curl.easyPerform()
-if (status != 0) {
-    System.print("Failed to perform task.")
-    return
-}
-curl.easyCleanup()

Task/HTTP/Wren/http-2.wren

@@ -1,127 +0,0 @@
-/* gcc HTTP.c -o HTTP -lcurl -lwren -lm  */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <curl/curl.h>
-#include "wren.h"
-
-/* C <=> Wren interface functions */
-
-void C_curlAllocate(WrenVM* vm) {
-    CURL** pcurl = (CURL**)wrenSetSlotNewForeign(vm, 0, 0, sizeof(CURL*));
-    *pcurl = curl_easy_init();
-}
-
-void C_easyPerform(WrenVM* vm) {
-    CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
-    CURLcode cc = curl_easy_perform(curl);
-    wrenSetSlotDouble(vm, 0, (double)cc);
-}
-
-void C_easyCleanup(WrenVM* vm) {
-    CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
-    curl_easy_cleanup(curl);
-}
-
-void C_easySetOpt(WrenVM* vm) {
-    CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
-    CURLoption opt = (CURLoption)wrenGetSlotDouble(vm, 1);
-    if (opt < 10000) {
-        long lparam = (long)wrenGetSlotDouble(vm, 2);
-        curl_easy_setopt(curl, opt, lparam);
-    } else {
-        if (opt == CURLOPT_URL) {
-            const char *url = wrenGetSlotString(vm, 2);
-            curl_easy_setopt(curl, opt, url);
-        } else if (opt == CURLOPT_ERRORBUFFER) {
-            char buffer[CURL_ERROR_SIZE];
-            curl_easy_setopt(curl, opt, buffer);
-        }
-    }
-}
-
-WrenForeignClassMethods bindForeignClass(WrenVM* vm, const char* module, const char* className) {
-    WrenForeignClassMethods methods;
-    methods.allocate = NULL;
-    methods.finalize = NULL;
-    if (strcmp(module, "main") == 0) {
-        if (strcmp(className, "Curl") == 0) {
-            methods.allocate = C_curlAllocate;
-        }
-    }
-    return methods;
-}
-
-WrenForeignMethodFn bindForeignMethod(
-    WrenVM* vm,
-    const char* module,
-    const char* className,
-    bool isStatic,
-    const char* signature) {
-    if (strcmp(module, "main") == 0) {
-        if (strcmp(className, "Curl") == 0) {
-            if (!isStatic && strcmp(signature, "easySetOpt(_,_)") == 0) return C_easySetOpt;
-            if (!isStatic && strcmp(signature, "easyPerform()") == 0)   return C_easyPerform;
-            if (!isStatic && strcmp(signature, "easyCleanup()") == 0)   return C_easyCleanup;
-        }
-    }
-    return NULL;
-}
-
-static void writeFn(WrenVM* vm, const char* text) {
-    printf("%s", text);
-}
-
-void errorFn(WrenVM* vm, WrenErrorType errorType, const char* module, const int line, const char* msg) {
-    switch (errorType) {
-        case WREN_ERROR_COMPILE:
-            printf("[%s line %d] [Error] %s\n", module, line, msg);
-            break;
-        case WREN_ERROR_STACK_TRACE:
-            printf("[%s line %d] in %s\n", module, line, msg);
-            break;
-        case WREN_ERROR_RUNTIME:
-            printf("[Runtime Error] %s\n", msg);
-            break;
-    }
-}
-
-char *readFile(const char *fileName) {
-    FILE *f = fopen(fileName, "r");
-    fseek(f, 0, SEEK_END);
-    long fsize = ftell(f);
-    rewind(f);
-    char *script = malloc(fsize + 1);
-    fread(script, 1, fsize, f);
-    fclose(f);
-    script[fsize] = 0;
-    return script;
-}
-
-int main(int argc, char **argv) {
-    WrenConfiguration config;
-    wrenInitConfiguration(&config);
-    config.writeFn = &writeFn;
-    config.errorFn = &errorFn;
-    config.bindForeignClassFn = &bindForeignClass;
-    config.bindForeignMethodFn = &bindForeignMethod;
-    WrenVM* vm = wrenNewVM(&config);
-    const char* module = "main";
-    const char* fileName = "HTTP.wren";
-    char *script = readFile(fileName);
-    WrenInterpretResult result = wrenInterpret(vm, module, script);
-    switch (result) {
-        case WREN_RESULT_COMPILE_ERROR:
-            printf("Compile Error!\n");
-            break;
-        case WREN_RESULT_RUNTIME_ERROR:
-            printf("Runtime Error!\n");
-            break;
-        case WREN_RESULT_SUCCESS:
-            break;
-    }
-    wrenFreeVM(vm);
-    free(script);
-    return 0;
-}

Task/HTTP/Wren/http.wren

@@ -0,0 +1,3 @@
+import "os" for Process
+
+Process.exec("curl -s -L http://www.rosettacode.org/")