initial

examples/set-bits.carp

@@ -0,0 +1,13 @@
+(load "main.carp")
+
+(inline-c "int count_set_bits(int n) {
+  int count = 0;
+  while (n) {
+    count += n & 1;
+    n >>= 1;
+  }
+  return count;
+}")
+(register count-set-bits (Fn [Int] Int) "count_set_bits")
+
+(defn main [] (println* &(count-set-bits 462)))

examples/simple.carp

@@ -0,0 +1,11 @@
+(load "main.carp")
+
+(inline-c "long x() { return (1<<30)+12; }")
+(register x (Fn [] Long))
+(inline-c "#include <stdio.h>
+
+long y() { puts(\"inside c!\"); return 42; }")
+(register y (Fn [] Long))
+
+
+(defn main [] (println* (+ (x) (y))))