porffor 0.2.0-c7b7423 → 0.2.0-dcc06c8

package/tmp.c

@@ -1,69 +1,152 @@
-
+#include <stdint.h>
+#include <string.h>
 #include <stdio.h>
 
+typedef uint8_t i8;
+typedef uint16_t i16;
+typedef int32_t i32;
+typedef uint32_t u32;
+typedef int64_t i64;
+typedef uint64_t u64;
+typedef float f32;
+typedef double f64;
+
+f64 NAN = 0e+0/0e+0;
+
 struct ReturnValue {
-  double value;
-  long type;
+  f64 value;
+  i32 type;
 };
 
-double sum = 0;
-long sumdtype = 0;
-double counter = 0;
-long counterdtype = 0;
+char _memory[65536];
 
-double inline f64_f(double x, double y) {
-  return (x - ((int)(x / y) * y));
+i32 i32_load(i32 align, i32 offset, i32 pointer) {
+  i32 out;
+  memcpy(&out, _memory + offset + pointer, sizeof(out));
+  return out;
 }
 
-struct ReturnValue isPrime(double number, long numberdtype) {
-  double i = 0;
-  long idtype = 0;
-  double __tmpop_left = 0;
-  double __tmpop_right = 0;
-  long compare_left_pointer = 0;
-  long compare_left_length = 0;
-  long compare_right_pointer = 0;
-  long compare_right_length = 0;
-  long compare_index = 0;
-  long compare_index_end = 0;
-
-  if (number < 2e+0) {
-    return (struct ReturnValue){ 1, 0e+0 };
-  }
-  i = 2e+0;
-  idtype = 0;
-  while (i < number) {
-    if (f64_f(number, i) == 0e+0) {
-      return (struct ReturnValue){ 1, 0e+0 };
-    }
-    i = i + 1e+0;
-  }
-  return (struct ReturnValue){ 1, 1e+0 };
+i32 i32_load16_u(i32 align, i32 offset, i32 pointer) {
+  i16 out;
+  memcpy(&out, _memory + offset + pointer, sizeof(out));
+  return out;
 }
 
-double inline __console_log(double x) {
-  printf("%f\n", x);
+
+void inline __console_log(f64 x, i32 y) {
+  i32 a = 0;
+  i32 b = 0;
+  i32 dtypeswitch_tmp = 0;
+
+  dtypeswitch_tmp = y;
+  // block 
+    // if 
+      if (dtypeswitch_tmp == 0) {
+        printf("%g\n", x);
+        goto j0;
+      }
+    // end
+    j1:;
+    // if 
+      if (dtypeswitch_tmp == 1) {
+        // if 
+          if (((u32)x) != 0) {
+            printf("%c", (int)(1.16e+2));
+            printf("%c", (int)(1.14e+2));
+            printf("%c", (int)(1.17e+2));
+            printf("%c", (int)(1.01e+2));
+          } else {
+            printf("%c", (int)(1.02e+2));
+            printf("%c", (int)(9.7e+1));
+            printf("%c", (int)(1.08e+2));
+            printf("%c", (int)(1.15e+2));
+            printf("%c", (int)(1.01e+2));
+          }
+        // end
+        j3:;
+        goto j0;
+      }
+    // end
+    j2:;
+    // if 
+      if (dtypeswitch_tmp == 2) {
+        a = (u32)x;
+        b = (i32_load(1, 0, a) * 2) + a;
+        // loop 
+        j5:;
+          printf("%c", (int)((f64)(i32_load16_u(0, 4, a))));
+          a = a + 2;
+          if (a != b) {
+            goto j5;
+          }
+        // end
+        goto j0;
+      }
+    // end
+    j4:;
+    // if 
+      if (dtypeswitch_tmp == 3) {
+        printf("%c", (int)(1.17e+2));
+        printf("%c", (int)(1.1e+2));
+        printf("%c", (int)(1e+2));
+        printf("%c", (int)(1.01e+2));
+        printf("%c", (int)(1.02e+2));
+        printf("%c", (int)(1.05e+2));
+        printf("%c", (int)(1.1e+2));
+        printf("%c", (int)(1.01e+2));
+        printf("%c", (int)(1e+2));
+        goto j0;
+      }
+    // end
+    j6:;
+    // if 
+      if (dtypeswitch_tmp == 4) {
+        // if 
+          if (((u32)x) != 0) {
+            printf("%c", (int)(1.23e+2));
+            printf("%c", (int)(1.25e+2));
+          } else {
+            printf("%c", (int)(1.1e+2));
+            printf("%c", (int)(1.17e+2));
+            printf("%c", (int)(1.08e+2));
+            printf("%c", (int)(1.08e+2));
+          }
+        // end
+        j8:;
+        goto j0;
+      }
+    // end
+    j7:;
+    // if 
+      if (dtypeswitch_tmp == 5) {
+        printf("%c", (int)(1.02e+2));
+        printf("%c", (int)(1.17e+2));
+        printf("%c", (int)(1.1e+2));
+        printf("%c", (int)(9.9e+1));
+        printf("%c", (int)(1.16e+2));
+        printf("%c", (int)(1.05e+2));
+        printf("%c", (int)(1.11e+2));
+        printf("%c", (int)(1.1e+2));
+        printf("%c", (int)(3.2e+1));
+        printf("%c", (int)(4e+1));
+        printf("%c", (int)(4.1e+1));
+        printf("%c", (int)(3.2e+1));
+        printf("%c", (int)(1.23e+2));
+        printf("%c", (int)(1.25e+2));
+        goto j0;
+      }
+    // end
+    j9:;
+    printf("%g\n", x);
+  // end
+  j0:;
   printf("%c", (int)(1e+1));
 }
 
 int main() {
-  long dlast_type = 0;
-  double elogicinner_tmp = 0;
-  long dtypeswitch_tmp = 0;
+memcpy(_memory + 0, (unsigned char[]){13,0,0,0,72,0,101,0,108,0,108,0,111,0,44,0,32,0,87,0,111,0,114,0,108,0,100,0,33,0}, 30);
 
-  sum = 0e+0;
-  sumdtype = 0;
-  counter = 0e+0;
-  counterdtype = 0;
-  while (counter <= 1e+5) {
-    const struct ReturnValue _ = isPrime(counter, counterdtype);
-    dlast_type = _.type;
-    if ((unsigned long)(elogicinner_tmp = _.value) == 1e+0) {
-      sum = sum + counter;
-      sumdtype = 0;
-    }
-    counter = counter + 1e+0;
-  }
-  __console_log(sum);
-}
+  __console_log(0e+0, 2);
 
+  return 0;
+}

package/compiler/builtins/base64.js

@@ -1,92 +0,0 @@
-var btoa_a = str => {
-  // todo: throw invalid character for unicode
-
-  const chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
-  const mask = (1 << 6) - 1;
-
-  let out = '';
-  let bits = 0, buffer = 0;
-  for (let i = 0; i < str.length; i++) {
-    buffer = (buffer << 8) | (0xff & str.charCodeAt(i));
-    bits += 8;
-
-    while (bits > 6) {
-      bits -= 6;
-      out += chars[mask & (buffer >> bits)];
-    }
-  }
-
-  if (bits) {
-    out += chars[mask & (buffer << (6 - bits))]
-  }
-
-  while ((out.length * 6) & 7) {
-    out += '=';
-  }
-
-  return out;
-};
-
-var btoa = function (input) {
-  // todo: throw invalid character for unicode
-  const keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
-
-  let output = "";
-  let chr1, chr2, chr3, enc1, enc2, enc3, enc4;
-  let i = 0;
-
-  while (i < input.length) {
-    chr1 = input.charCodeAt(i++);
-    chr2 = input.charCodeAt(i++);
-    chr3 = input.charCodeAt(i++);
-
-    enc1 = chr1 >> 2;
-    enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
-    enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
-    enc4 = chr3 & 63;
-
-    if (isNaN(chr2)) {
-      enc3 = enc4 = 64;
-    } else if (isNaN(chr3)) {
-      enc4 = 64;
-    }
-
-    output += keyStr.charAt(enc1);
-    output += keyStr.charAt(enc2);
-    output += keyStr.charAt(enc3);
-    output += keyStr.charAt(enc4);
-  }
-
-  return output;
-};
-
-var atob_b = function (input) {
-  const keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
-
-  let output = "";
-  let chr1, chr2, chr3;
-  let enc1, enc2, enc3, enc4;
-  let i = 0;
-
-  while (i < input.length) {
-    enc1 = keyStr.indexOf(input.charAt(i++));
-    enc2 = keyStr.indexOf(input.charAt(i++));
-    enc3 = keyStr.indexOf(input.charAt(i++));
-    enc4 = keyStr.indexOf(input.charAt(i++));
-
-    chr1 = (enc1 << 2) | (enc2 >> 4);
-    chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
-    chr3 = ((enc3 & 3) << 6) | enc4;
-
-    output += String.fromCharCode(chr1);
-
-    if (enc3 != 64) {
-      output += String.fromCharCode(chr2);
-    }
-    if (enc4 != 64) {
-      output += String.fromCharCode(chr3);
-    }
-  }
-
-  return output;
-};