halunke 0.2.0 → 0.3.0

data/lib/halunke/runtime/hnumber.rb

@@ -0,0 +1,41 @@
+module Halunke
+  module Runtime
+    HNumber = HClass.new(
+      "Number",
+      [],
+      {
+        "+" => HFunction.new([:self, :other], lambda { |context|
+          HNumber.create_instance(context["self"].ruby_value + context["other"].ruby_value)
+        }),
+        "<" => HFunction.new([:self, :other], lambda { |context|
+          if context["self"].ruby_value < context["other"].ruby_value
+            context["true"]
+          else
+            context["false"]
+          end
+        }),
+        ">" => HFunction.new([:self, :other], lambda { |context|
+          if context["self"].ruby_value > context["other"].ruby_value
+            context["true"]
+          else
+            context["false"]
+          end
+        }),
+        "=" => HFunction.new([:self, :other], lambda { |context|
+          if context["self"].ruby_value == context["other"].ruby_value
+            context["true"]
+          else
+            context["false"]
+          end
+        }),
+        "inspect" => HFunction.new([:self], lambda { |context|
+          float_value = context["self"].ruby_value.to_f
+          float_value = float_value.to_i if float_value.to_i == float_value
+          HString.create_instance(float_value.to_s)
+        })
+      },
+      {},
+      true
+    )
+  end
+end

data/lib/halunke/runtime/hobject.rb

@@ -0,0 +1,30 @@
+module Halunke
+  module Runtime
+    class HObject
+      attr_reader :dict
+
+      def initialize(runtime_class, dict)
+        @runtime_class = runtime_class
+        @dict = {}
+        dict.each_pair do |hkey, value|
+          key = hkey.ruby_value
+          raise "Unknown attribute '#{key}' for #{@runtime_class.name}" unless @runtime_class.allowed_attribute? key
+          @dict[key] = value
+        end
+      end
+
+      def receive_message(context, message_name, message_value)
+        if message_name == "@ else"
+          @dict.fetch(message_value[0].ruby_value, message_value[1])
+        else
+          m = @runtime_class.lookup(message_name)
+          m.receive_message(context, "call", [HArray.create_instance([self].concat(message_value))])
+        end
+      end
+
+      def inspect(context)
+        receive_message(context, "inspect", []).ruby_value
+      end
+    end
+  end
+end

data/lib/halunke/runtime/hstdout.rb

@@ -0,0 +1,16 @@
+module Halunke
+  module Runtime
+    HStdout = HClass.new(
+      "Stdout",
+      [],
+      {
+        "puts" => HFunction.new([:self, :str], lambda { |context|
+          puts context["str"].ruby_value
+          context["str"]
+        })
+      },
+      {},
+      true
+    )
+  end
+end

data/lib/halunke/runtime/hstring.rb

@@ -0,0 +1,35 @@
+module Halunke
+  module Runtime
+    HString = HClass.new(
+      "String",
+      [],
+      {
+        "reverse" => HFunction.new([:self], lambda { |context|
+          HString.create_instance(context["self"].ruby_value.reverse)
+        }),
+        "replace with" => HFunction.new([:self, :searchword, :replacement], lambda { |context|
+          result = context["self"].ruby_value.gsub(
+            context["searchword"].ruby_value,
+            context["replacement"].ruby_value
+          )
+          HString.create_instance(result)
+        }),
+        "=" => HFunction.new([:self, :other], lambda { |context|
+          if context["self"].ruby_value == context["other"].ruby_value
+            context["true"]
+          else
+            context["false"]
+          end
+        }),
+        "+" => HFunction.new([:self, :other], lambda { |context|
+          HString.create_instance(context["self"].ruby_value + context["other"].ruby_value)
+        }),
+        "inspect" => HFunction.new([:self], lambda { |context|
+          HString.create_instance(context["self"].ruby_value.inspect)
+        })
+      },
+      {},
+      true
+    )
+  end
+end

data/lib/halunke/runtime/hunassigned_bareword.rb

@@ -0,0 +1,19 @@
+module Halunke
+  module Runtime
+    HUnassignedBareword = HClass.new(
+      "UnassignedBareword",
+      [],
+      {
+        "=" => HFunction.new([:self, :other], lambda { |context|
+          context.parent[context["self"].ruby_value] = context["other"]
+          context["true"]
+        }),
+        "inspect" => HFunction.new([:self], lambda { |context|
+          HString.create_instance("'#{context["self"].ruby_value}")
+        })
+      },
+      {},
+      true
+    )
+  end
+end

data/lib/halunke/runtime/hweb.rb

@@ -0,0 +1,40 @@
+module Halunke
+  module Runtime
+    HWeb = HClass.new(
+      "Web",
+      [],
+      {
+        "run on" => HFunction.new([:self, :app, :host_port], lambda { |context|
+          require "rack"
+
+          host, port = context["host_port"].ruby_value.split(":")
+
+          # TODO: Body, Headers
+          Rack::Handler::WEBrick.run(lambda { |env|
+            henv = context["Dictionary"].create_instance(
+              context["String"].create_instance("request_method") => context["String"].create_instance(env["REQUEST_METHOD"]),
+              context["String"].create_instance("path") => context["String"].create_instance(env["PATH_INFO"]),
+              context["String"].create_instance("query") => context["String"].create_instance(env["QUERY_STRING"])
+            )
+            result = context["app"].receive_message(context, "call", [henv]).ruby_value
+
+            status = result[0].ruby_value
+
+            headers = {}
+            result[1].ruby_value.each_pair do |key, value|
+              headers[key.ruby_value] = value.ruby_value
+            end
+
+            body = result[2].ruby_value.map(&:ruby_value)
+
+            [status, headers, body]
+          }, { Host: host, Port: port })
+
+          env["host_port"]
+        })
+      },
+      {},
+      true
+    )
+  end
+end

data/lib/halunke/runtime/true.hal

@@ -0,0 +1,18 @@
+(Class new 'True
+  methods @[
+    "and" { |'self 'other|
+      other
+    }
+    "or" { |'self 'other|
+      self
+    }
+    "then else" { |'self 'true_branch 'false_branch|
+      (true_branch call [])
+    }
+    "inspect" { |'self 'other|
+      "true"
+    }
+  ]
+)
+
+('true = (True new))

data/lib/halunke/version.rb

@@ -1,3 +1,3 @@
 module Halunke
-  VERSION = "0.2.0"
+  VERSION = "0.3.0"
 end

metadata

@@ -1,15 +1,29 @@
 --- !ruby/object:Gem::Specification
 name: halunke
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 0.3.0
 platform: ruby
 authors:
 - Lucas Dohmen
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2018-02-09 00:00:00.000000000 Z
+date: 2018-02-10 00:00:00.000000000 Z
 dependencies:
+- !ruby/object:Gem::Dependency
+  name: rack
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 2.0.4
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 2.0.4
 - !ruby/object:Gem::Dependency
   name: bundler
   requirement: !ruby/object:Gem::Requirement
@@ -86,6 +100,8 @@ files:
 - Rakefile
 - bin/console
 - bin/setup
+- examples/hello.hal
+- examples/web.hal
 - exe/halunke
 - halunke.gemspec
 - lib/halunke.rb
@@ -96,6 +112,19 @@ files:
 - lib/halunke/nodes.rb
 - lib/halunke/parser.rb
 - lib/halunke/runtime.rb
+- lib/halunke/runtime/false.hal
+- lib/halunke/runtime/harray.rb
+- lib/halunke/runtime/hclass.rb
+- lib/halunke/runtime/hdictionary.rb
+- lib/halunke/runtime/hfunction.rb
+- lib/halunke/runtime/hnative_object.rb
+- lib/halunke/runtime/hnumber.rb
+- lib/halunke/runtime/hobject.rb
+- lib/halunke/runtime/hstdout.rb
+- lib/halunke/runtime/hstring.rb
+- lib/halunke/runtime/hunassigned_bareword.rb
+- lib/halunke/runtime/hweb.rb
+- lib/halunke/runtime/true.hal
 - lib/halunke/version.rb
 homepage: https://github.com/moonglum/halunke
 licenses: