zunscript 0.1.1

data/lib/zunscript.rb

@@ -0,0 +1,3 @@
+require "zunscript/ext"
+require "zunscript/version"
+require "zunscript/environment"

data/lib/zunscript/block.rb

@@ -0,0 +1,72 @@
+module ZunScript
+  class ZBlock < ZValue
+    def initialize statements, parameters, parentscope, env
+      super env
+      @body = statements
+      @parameters = parameters
+      @scope = parentscope
+    end
+
+    def call args
+      scope = ZScope.new @scope
+      @parameters.each do |p|
+        scope.set_local p.text, args.shift
+      end
+  
+      result = nil
+      @body.each do |node|
+        result = @env.resolve node, scope
+      end
+      return result
+    end
+
+    def bind args
+      scope = ZScope.new @scope
+      i = 0
+      args.each do |a|
+        scope.set_local @parameters[i].text, a
+        i += 1
+      end
+
+      return ZBlock.new @body, @parameters[i..-1], scope, @env
+    end
+  end
+
+  class ZExternBlock < ZBlock
+    def initialize receiver, method, env, args = []
+      @env = env
+      @receiver = receiver
+      @method = method
+      @args = args
+    end
+
+    def parse_args args
+      return args.map do |a|
+        a = a.get if a.is_a? VariableReference
+        if a.is_a? ZNum or a.is_a? ZString or a.is_a? ZBool
+          a.value
+        else
+          a
+        end
+      end
+    end
+
+    def call args
+      res = @receiver.send @method, *(@args + parse_args(args))
+      case res
+      when Fixnum, Float
+        return ZNum.new res, @env
+      when String
+        return ZString.new res, @env
+      end
+    end
+
+    def bind args
+      return ZExternBlock.new @receiver, @method, @env, @args + parse_args(args)
+    end
+
+    def inspect
+      return "#<EXTERN #{@receiver}\##{@method.to_s}>"
+    end
+  end
+end

data/lib/zunscript/environment.rb

@@ -0,0 +1,104 @@
+require 'zunscript/value'
+require 'zunscript/scope'
+require 'zunscript/block'
+require 'colorize'
+
+class Crutch
+  def puts_ *args
+    puts *args
+  end
+
+  def print_ *args
+    print *args #.join.colorize :green
+    puts
+  end
+
+  def add a, b
+    a + b
+  end
+
+  def multiply a, b
+    a * b
+  end
+
+  def if cond, tr, fl=nil
+    return tr.call if cond
+    return fl.call if fl
+  end
+
+  def range start, stop, step=1, each
+    (start..stop).step(step).each do |n|
+      each.call [ZunScript::ZNum.new(n, nil)]
+    end
+  end
+end
+
+module ZunScript
+  class Environment
+    def resolve node, scope = @rootscope
+      puts "#{node.line}:  #{node.inspect}".colorize :yellow if @debug
+      case node.name
+      when "INVOKE"
+        block = resolve node[0], scope
+        block = block.get if block.is_a? VariableReference
+        throw "trying to invoke non-block: #{block.inspect} (#{node.line})" if not block.is_a? ZBlock
+
+        return block.call (node[1..-1].map do |c| resolve c, scope end)
+      when "BIND"
+        block = resolve node[0], scope
+        block = block.get if block.is_a? VariableReference
+
+        throw "trying to bind non-block: #{block.inspect} (#{node.line})" if not block.is_a? ZBlock
+        return block.bind (node[1..-1].map do |c| resolve c, scope end)
+      when "ASSIGN"
+        lval = resolve node[0]
+        throw "invalid LVALUE in assignment (#{node.line})" if not lval.is_a? VariableReference
+
+        return lval.assign (resolve node[1])
+      when "NUM"
+        return ZNum.new node[0].text.to_f, self
+      when "STR"
+        return ZString.new node[0].text[1..-2], self
+      when "BOOL"
+        return ZBool.new node[0].text == "true", self
+      when "BLK"
+        return ZBlock.new node[-1], node[0..-2], scope, self
+      when "VARIABLE"
+        x = node[0]
+       # puts "#{x.inspect}, #{node.inspect}"
+        return scope.find x.text
+      end
+    end
+
+    attr_reader :rootscope
+    def initialize debug: false
+      @rootscope = ZRootScope.new
+      @debug = debug
+
+      crutch = Crutch.new
+      @rootscope.set "print", ZExternBlock.new( crutch, :print_, self )
+      @rootscope.set "puts", ZExternBlock.new( crutch, :puts_, self )
+      @rootscope.set "add", ZExternBlock.new( crutch, :add, self )
+      @rootscope.set "multiply", ZExternBlock.new( crutch, :multiply, self )
+      @rootscope.set "for", ZExternBlock.new( crutch, :range, self )
+      @rootscope.set "if", ZExternBlock.new( crutch, :if, self )
+    end
+
+    def run_script script
+      tree = (ZunScript::Parser.new script).script.tree
+      if tree.type == 0 then
+        tree.each do |n|
+          res = resolve n
+          yield res if block_given?
+        end
+      else
+        res = interpret tree
+        yield res if block_given?
+      end
+    end
+
+    def run_line string
+      resolve ZunScript::Parser.new(string).line.tree
+    end
+  end
+end

data/lib/zunscript/scope.rb

@@ -0,0 +1,55 @@
+module ZunScript
+  class ZScope
+    def initialize parent = nil
+      @parent = parent
+      @hash = Hash.new
+    end
+
+    def first_with identifier
+      return @hash.has_key? identifier ? self : (@parent.first_with identifier)
+    end
+
+    def set_local identifier, value
+      return @hash[identifier] = value
+    end
+
+    def find identifier
+      return VariableReference.new (owner identifier), identifier
+    end
+
+    def get identifier
+      if @hash.has_key? identifier
+        return @hash[identifier]
+      end
+      return @parent.get identifier
+      #return @hash.has_key? identifier ? @hash[identifier] : (@parent.get identifier)
+    end
+
+    def owner identifier
+      (first_with identifier) or self
+    end
+
+    def set identifier, value
+      (owner identifier).set_local identifier, value
+    end
+
+    def inspect
+      @hash.to_s
+    end
+  end
+
+  class ZRootScope < ZScope
+    def initialize
+      super
+    end
+
+    def first_with identifier
+      return @hash.has_key? identifier ? self : nil
+    end
+
+    def get identifier
+      #puts "get #{identifier} @ root: #{@hash[identifier].inspect}"
+      return @hash[identifier]
+    end
+  end
+end

data/lib/zunscript/value.rb

@@ -0,0 +1,67 @@
+module ZunScript
+  class ZValue
+    def initialize env
+      @env = env
+    end
+
+    def inspect
+      return "#<ZVal: '#{value}'>" if respond_to? :value
+      return "#<#{self.class}>"
+    end
+  end
+
+  class ZNum < ZValue
+    attr_reader :value
+
+    def initialize value, env
+      super env
+      @value = value
+    end
+
+    def inspect
+      return "#<ZNum: #{value}>"
+    end
+  end
+
+  class ZString < ZValue
+    attr_reader :value
+
+    def initialize value, env
+      super env
+      @value = value
+    end
+  end
+
+  class ZBool < ZValue
+    attr_reader :value
+
+    def initialize value, env
+      super env
+      @value = value
+    end
+  end
+
+  class VariableReference < ZValue
+    def initialize scope, identifier
+      @scope = scope
+      @identifier = identifier
+    end
+
+    def method_missing m, *args
+      # puts "identifier: #{@identifier.inspect}"
+      (@scope.get @identifier).send m, *args
+    end
+
+    def get
+      @scope.get @identifier
+    end
+
+    def assign value
+      return @scope.set_local @identifier, value
+    end
+
+    def inspect
+      return "#<REF #{@identifier} @ #{@scope.inspect}>"
+    end
+  end  
+end

data/lib/zunscript/version.rb

@@ -0,0 +1,3 @@
+module Zunscript
+  VERSION = "0.1.1"
+end

data/zunscript.gemspec

@@ -0,0 +1,29 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'zunscript/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "zunscript"
+  spec.version       = Zunscript::VERSION
+  spec.authors       = ["Sol Bekic"]
+  spec.email         = ["s0lll0s@blinkenshell.org"]
+
+  spec.summary       = %q{ZunScript is a conceptual Scripting Language.}
+  spec.description   = %q{The main goals are to boil the language down to a tiny but substantial feature set and to explore function binding}
+  spec.homepage      = "https://github.com/S0lll0s/zunscript"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  spec.executables   = ["zsi"]
+  spec.require_paths = ["lib", "ext"]
+
+  spec.extensions    = ["ext/zunscript/extconf.rb"]
+
+  spec.add_development_dependency "bundler", "~> 1.9"
+  spec.add_development_dependency "rake", "~> 10.0"
+
+  spec.add_dependency "antlr3", "~> 1.10"
+  spec.add_dependency "trollop", "~> 1.16"
+  spec.add_dependency "colorize", "~> 0.7"
+end

metadata

@@ -0,0 +1,141 @@
+--- !ruby/object:Gem::Specification
+name: zunscript
+version: !ruby/object:Gem::Version
+  version: 0.1.1
+platform: ruby
+authors:
+- Sol Bekic
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-04-29 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.9'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.9'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: antlr3
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.10'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.10'
+- !ruby/object:Gem::Dependency
+  name: trollop
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+- !ruby/object:Gem::Dependency
+  name: colorize
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.7'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.7'
+description: The main goals are to boil the language down to a tiny but substantial
+  feature set and to explore function binding
+email:
+- s0lll0s@blinkenshell.org
+executables:
+- zsi
+extensions:
+- ext/zunscript/extconf.rb
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/setup
+- bin/zsi
+- examples/test.zun
+- ext/zunscript/Makefile
+- ext/zunscript/ZunScript.g
+- ext/zunscript/antlr4ruby
+- ext/zunscript/ext.rb
+- ext/zunscript/extconf.rb
+- ext/zunscript/lexer.rb
+- ext/zunscript/parser.rb
+- lib/zunscript.rb
+- lib/zunscript/block.rb
+- lib/zunscript/environment.rb
+- lib/zunscript/scope.rb
+- lib/zunscript/value.rb
+- lib/zunscript/version.rb
+- zunscript.gemspec
+homepage: https://github.com/S0lll0s/zunscript
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.5
+signing_key: 
+specification_version: 4
+summary: ZunScript is a conceptual Scripting Language.
+test_files: []