Add example namespace

Author: helins

bin/test/node/shadow

@@ -3,4 +3,4 @@
 
 command="$1"
 shift
-clj -M:cljs:test "$command" test-node "$@" && node --max_old_space_size=6000 ./compiled/node/test.js
+clj -M:cljs:test "$command" test-node "$@" && node --max_old_space_size=6500 ./compiled/node/test.js

deps.edn

@@ -11,6 +11,7 @@
 
   :dev
   {:extra-paths ["src/dev"
+                 "src/example"
                  "src/test"]}
 
   :jar

shadow-cljs.edn

@@ -1,7 +1,7 @@
 {:builds
  {:dev
   {:asset-path "/js"
-   :modules    {:main {:entries [helins.wasmeta.dev]}}
+   :modules    {:main {:entries [helins.wasm.dev]}}
    :output-dir "cljs/js"
    :target     :browser}
 
@@ -14,7 +14,8 @@
  {:alias [:cljs]}
 
  :dev-http
- {8000 "cljs"}
+ {8000 ["cljs"
+        "src/wasm"]}
 
  :nrepl
  {:port 14563}}

src/dev/helins/wasm/dev.cljc

@@ -20,6 +20,7 @@
             [helins.wasm            :as wasm]
             [helins.wasm.bin        :as wasm.bin]
             [helins.wasm.count      :as wasm.count]
+            [helins.wasm.example]
             [helins.wasm.ir         :as wasm.ir]
             [helins.wasm.read       :as wasm.read]
             [helins.wasm.schema     :as wasm.schema]
@@ -61,6 +62,16 @@
       ;clojure.pprint/pprint
       )
 
+  
+  (-> (js/fetch "test.wasm")
+      (.then (fn [resp]
+               (.arrayBuffer resp)))
+      (.then (fn [array-buffer]
+               (-> array-buffer
+                   binf/view
+                   wasm/prepare-view
+                   wasm/decompile
+                   clojure.pprint/pprint))))
 
   )
 

src/example/helins/wasm/example.cljc

@@ -0,0 +1,124 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at https://mozilla.org/MPL/2.0/.
+
+
+(ns helins.wasm.example
+
+  "Simple examples of compilation / decompilation and Malli schemas."
+
+  {:author "Adam Helinski"}
+
+  (:require [clojure.pprint]
+            [helins.binf        :as binf]
+            [helins.wasm        :as wasm]
+            [helins.wasm.schema :as wasm.schema]
+            [malli.core         :as malli]
+            [malli.generator    :as malli.gen]
+            [malli.util]))
+
+
+;;;;;;;;;; Malli schemas
+
+
+(def registry
+       (-> (merge (malli/default-schemas)
+                  (malli.util/schemas))
+           wasm.schema/registry))
+
+
+
+(comment
+
+
+  ;; Generating a single WASM instruction at random
+  ;;
+  (clojure.pprint/pprint (malli.gen/generate :wasm/instr
+                                             {:registry registry})))
+
+
+;;;;;;;;;; Compilation / Decompilation - Files (JVM)
+
+
+(comment
+
+
+  (def decompiled
+       (wasm/decompile-file "src/wasm/test.wasm"))
+
+
+  (clojure.pprint/pprint decompiled)
+
+
+  (def compiled
+       (wasm/compile-file decompiled
+                          "/tmp/test2.wasm"))
+
+
+  ;; Of course, it is valid
+  ;;
+  (malli/validate :wasm/module
+                  decompiled
+                  {:registry registry}))
+
+
+;;;;;;;;;; Compilation / Decompilation - BinF views (JVM + JS)
+
+
+(comment
+
+  ;; Anything that can be represented as a BinF view can be decompiled
+  ;;
+  ;; Eg. JVM - Wrapping a byte array in a view
+  ;;     JS  - Wrapping a ArrayBuffer in a view
+  ;;
+  ;; See https://github.com/helins/binf.cljc
+
+  ;; This is a realistic Clojurescript example using `js/fetch`.
+  ;; Starting the :dev Shadow-CLJS profile serves the follow test files.
+  ;; See "Development" section in README
+
+
+  (def *decompiled
+       (atom nil))
+
+
+  ;; Fetching the WASM source and decompiling into above atom.
+  ;;
+  (-> (js/fetch "test.wasm")
+      (.then (fn [resp]
+               (.arrayBuffer resp)))
+      (.then (fn [array-buffer]
+               (reset! *decompiled
+                       (-> array-buffer
+                           ;; Converting to BinF view and preparing it (will set the right endianess)
+                           binf/view
+                           wasm/prepare-view
+                           ;; Decompiling
+                           wasm/decompile)))))
+
+
+  ;; Pretty printing
+  ;;
+  (clojure.pprint/pprint @*decompiled)
+
+
+  (malli/validate :wasm/module
+                  @*decompiled
+                  {:registry registry})
+
+
+  ;; Recompiling
+  ;;
+  (def compiled
+       (wasm/compile @*decompiled))
+
+
+  ;; Of course, you can decompile again for fun
+  ;;
+  (-> compiled
+      (binf/seek 0)
+      wasm/decompile
+      clojure.pprint/pprint)
+
+  )