kapusta 0.3.0 → 0.4.1

data/spec/examples_spec.rb

@@ -500,4 +500,55 @@ RSpec.describe 'examples' do
   it 'subtract-product-sum.kap' do
     expect(run_example('subtract-product-sum.kap')).to eq("15\n21\n0\n")
   end
+
+  it 'ugly-number.kap' do
+    expect(run_example('ugly-number.kap')).to eq("true\ntrue\nfalse\nfalse\ntrue\n")
+  end
+
+  it 'macros-unless.kap' do
+    expect(run_example('macros-unless.kap')).to eq(<<~OUT)
+      "shown"
+      "also shown"
+    OUT
+  end
+
+  it 'macros-swap.kap' do
+    expect(run_example('macros-swap.kap')).to eq("2\n1\n")
+  end
+
+  it 'macros-when-let.kap' do
+    expect(run_example('macros-when-let.kap')).to eq(<<~OUT)
+      "got"
+      3
+      "done"
+    OUT
+  end
+
+  it 'macros-multi.kap' do
+    expect(run_example('macros-multi.kap')).to eq("10\n20\n7\n")
+  end
+
+  it 'macros-thrice-if.kap' do
+    expect(run_example('macros-thrice-if.kap')).to eq(<<~OUT)
+      "tick"
+      1
+      "tick"
+      2
+      "tick"
+      3
+      "final"
+      3
+    OUT
+  end
+
+  it 'macros-dbg.kap' do
+    expect(run_example('macros-dbg.kap')).to eq(<<~OUT)
+      "dbg"
+      6
+      "result"
+      6
+      "dbg"
+      50
+    OUT
+  end
 end

data/spec/formatter_spec.rb

@@ -210,16 +210,14 @@ RSpec.describe Kapusta::Formatter do
       end
 
       expect(output).to eq(<<~KAP)
-        (let
-          [
-            profile
-            {
-              :name "Ada"
-              ; active user
-              :active true}
-            ; next binding
-            role
-            "Engineer"]
+        (let [
+               profile
+               {:name "Ada"
+                ; active user
+                :active true}
+               ; next binding
+               role
+               "Engineer"]
           (print profile role))
       KAP
     end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: kapusta
 version: !ruby/object:Gem::Version
-  version: 0.3.0
+  version: 0.4.1
 platform: ruby
 authors:
 - Evgenii Morozov
@@ -20,8 +20,10 @@ files:
 - Gemfile
 - README.md
 - Rakefile
+- bin/check-all
 - bin/compile-examples
 - bin/console
+- bin/fennel-parity
 - bin/setup
 - examples/accumulator.kap
 - examples/ackermann.kap
@@ -56,6 +58,12 @@ files:
 - examples/kwargs.kap
 - examples/leap-year.kap
 - examples/length-of-last-word.kap
+- examples/macros-dbg.kap
+- examples/macros-multi.kap
+- examples/macros-swap.kap
+- examples/macros-thrice-if.kap
+- examples/macros-unless.kap
+- examples/macros-when-let.kap
 - examples/majority-element.kap
 - examples/manhattan-distance.kap
 - examples/match.kap
@@ -92,6 +100,7 @@ files:
 - examples/tset.kap
 - examples/two-sum-hash.kap
 - examples/two-sum.kap
+- examples/ugly-number.kap
 - examples/underscore-patterns.kap
 - examples/use_bank_account.rb
 - examples/valid-parentheses-1.kap
@@ -113,6 +122,7 @@ files:
 - lib/kapusta/compiler/emitter/interop.rb
 - lib/kapusta/compiler/emitter/patterns.rb
 - lib/kapusta/compiler/emitter/support.rb
+- lib/kapusta/compiler/macro_expander.rb
 - lib/kapusta/compiler/normalizer.rb
 - lib/kapusta/env.rb
 - lib/kapusta/error.rb