aster 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 58243f4638f7370eaedd71419622f967f24bd60e
+  data.tar.gz: 8426cc93373842fb7cf66d2fcc3c389a47cdecf1
+SHA512:
+  metadata.gz: 1adc2b41461422e04081c6fa8c4d9f2c460b8661691ee0aff87bacf5fc7d9b611fa031a7e1115b680221e767f071ec0c61ca953d44761e2062191fbb863a7ae4
+  data.tar.gz: 1cdcbe16dff0aaf31ec201df89181461416f94d3c1044d890de17ad664b60c8a06fcf7f8b6622266cc051f950fe647b2d3172770a2d3e3e7b3439b194bcd65ef

data/.gitignore

@@ -0,0 +1,22 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+*.bundle
+*.so
+*.o
+*.a
+mkmf.log

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in aster.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Sam Murphy
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,52 @@
+# Aster
+
+Aster is a programming language that's designed to make configuration management more fun.
+
+## Example
+
+    server web
+      default-instance-vars
+        var username root
+        var ssh-port 22
+
+      configure
+        run upgrade-ubuntu.sh
+        exec sudo reboot
+        exec sudo apt-get install nginx
+        run create-admin-user.aster
+        config-set username admin
+        config-set ssh-port 2222
+        upload sample.conf /etc/conf
+
+      add-remote-file-runner .rb
+        exec `which ruby`
+
+      file hostname.rb
+        require 'rubygems'
+        puts `hostname`.strip
+
+      file database.yml
+        ---
+        production:
+          adapter: mysql2
+          username: root
+          password: 00000000
+
+      file sample.conf xml
+        <xml>
+          <var val="test" />
+        </xml>
+
+      function hostname
+        exec-script hostname.ruby
+
+    create-server-instance web
+      configure-instance {{instance.id}}
+
+## Install
+  
+    gem install aster
+
+## Usage
+
+Aster is not a configuration management application. Right now it is an experimental language that supports other languages embedded within `.aster` files.

data/Rakefile

@@ -0,0 +1,11 @@
+require "bundler/gem_tasks"
+
+
+task :default => :test
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test' << '.'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end

data/TODO

@@ -0,0 +1,4 @@
+# TODO
+
+* reserve gem name
+* eval sub-commands like "equal {add 1 1} 2"

data/aster.gemspec

@@ -0,0 +1,27 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'aster/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "aster"
+  spec.version       = Aster::VERSION
+  spec.authors       = ["Sam Murphy"]
+  spec.email         = ["sam.murphy@gmail.com"]
+  spec.summary       = %q{A programming language for configuring servers}
+  #spec.description   = %q{TODO: Write a longer description. Optional.}
+  spec.homepage      = ""
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "treetop"
+  #spec.add_dependency "thor"
+
+  spec.add_development_dependency "bundler", "~> 1.6"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "pry"
+end

data/lib/aster.rb

@@ -0,0 +1,15 @@
+require "aster/version"
+
+module Aster
+  # Your code goes here...
+end
+
+require 'pry'
+
+require_relative './aster/version'
+require_relative './aster/variable'
+require_relative './aster/command'
+require_relative './aster/environment'
+require_relative './aster/function'
+require_relative './aster/parser'
+

data/lib/aster/command.rb

@@ -0,0 +1,24 @@
+module Aster
+  class Command
+    attr_accessor :text, :sublines
+
+    def initialize(commands, sublines = [])
+      @commands = commands
+      @sublines = sublines
+    end
+
+    def rest
+      @text.split(' ', 2)[1]
+    end
+
+    def arguments
+      _, *args = @commands
+      args
+    end
+
+    def function_name
+      @function_name ||= @commands.first.to_sym
+    end
+
+  end
+end

data/lib/aster/environment.rb

@@ -0,0 +1,114 @@
+module Aster
+
+  class Environment
+
+    attr_reader :stderr, :stdout
+    
+    def initialize(parent = nil)
+      @parent = parent
+      @env = {}
+      @stdout = ""
+      @stderr = ""
+
+      if parent.nil?
+        define_function :echo, [:_list_] do |arguments|
+          @stdout << arguments.join(' ')
+        end
+        define_function :equal, [:a, :b] do |(a, b)|
+          a.to_s == b.to_s ? "yes" : "no"
+        end
+      end
+    end
+
+    def child
+      self.class.new(self)
+    end
+
+    def [](k)
+      @env[k.to_sym] || @parent && @parent[k.to_sym]
+    end
+
+    def []=(k, v)
+      @env[k.to_sym] = v
+    end
+
+    def eval(script)
+      tree = Parser.new.parse script
+      eval_tree tree
+    end
+
+    def define_function(name, args, commands = nil, &block)
+      @env[name.to_sym] = Function.new(args, commands, &block)
+    end
+
+    private
+
+      def eval_line(command)
+        case command.function_name
+        when :function
+          fun, *args = command.arguments
+          self.define_function(
+            fun,
+            args,
+            command.sublines
+          )
+        when :if
+          cond_value = eval_line Command.new(command.rest)
+          if is_true?(cond_value)
+            eval_tree command.sublines
+          end
+        when :not
+          cond_value = eval_line Command.new(command.rest)
+          is_true?(cond_value) ? "no" : "yes"
+        else
+          function = self[command.function_name]
+          if function
+            eval_function(function, command.arguments, self.child)
+          else
+            #binding.pry
+          end
+        end
+      end
+
+      def is_true?(val)
+        val && value.strip == "yes"
+      end
+
+      def eval_tree(tree)
+        tree.each do |command|
+          eval_line command
+        end
+      end
+
+      def eval_function(function, arguments, env)
+        # need to eval args
+        arguments = arguments.map do |arg|
+          if arg.is_a?(Variable)
+            env[arg.name]
+          else
+            arg
+          end
+        end
+
+        # bind arguments
+        function.arguments.each_with_index do |a, i|
+          env[a] = arguments[i]
+        end
+
+        if function.commands
+          env.send :eval_tree, function.commands
+        elsif function.block
+          function.block.call arguments
+        else
+          raise
+        end
+        
+      end
+
+
+      def eval_custom(m, args)
+
+      end
+
+  end
+end

data/lib/aster/function.rb

@@ -0,0 +1,10 @@
+module Aster
+  class Function
+    attr_reader :arguments, :commands, :block
+    def initialize(args, commands, &block)
+      @arguments = args
+      @commands = commands
+      @block = block
+    end
+  end
+end

data/lib/aster/parser.rb

@@ -0,0 +1,72 @@
+
+require 'treetop'
+
+module Aster
+  
+  Treetop.load(File.dirname(__FILE__) + "/sexp.treetop")
+
+  class Parser
+
+    def parse(text)
+      lines = text.split("\n")
+      parse_lines lines
+    end
+
+    private
+
+    def text_indent(text)
+      return -1 if text.nil?
+      white_space = text.match(/^( +)/)
+      return 0 if white_space.nil?
+      size = white_space[0].size
+      size % 2 == 0 ? size / 2 : -1
+    end
+
+    def raw_parse_line(line)
+      @sexp ||= SexpParser.new
+      result = @sexp.parse(line)
+      result.value
+    end
+
+    def parse_line(line)
+      Command.new raw_parse_line(line)
+    end
+
+    def parse_lines(lines)
+      current_indent = (lines.first ? text_indent(lines.first) : 0)
+      last_line = nil
+      data = []
+      lines.each_with_index do |line, i|
+        # Skip Empty lines
+        next if line.strip.empty?
+        
+        # Skip Comments
+        next if line.strip[0] == "#"
+
+        next_line = lines[i + 1]
+        indent, next_indent = text_indent(line), text_indent(next_line)
+        command = parse_line(line)
+
+        # Grab sub lines if possible
+        if next_indent > indent
+          j = i + 1
+          sublines = []
+          while(look_ahead_line = lines[j])
+            look_ahead_indent = text_indent(look_ahead_line)
+            if look_ahead_indent > indent
+              sublines << lines.slice!(j)
+            else
+              break
+            end
+          end
+          command.sublines = parse_lines sublines
+        end
+        data << command
+      end
+      data
+    end
+
+
+  end
+
+end

data/lib/aster/sexp.treetop

@@ -0,0 +1,58 @@
+
+
+
+grammar Sexp
+
+  rule body
+    (expression / variable / identifier / string / space)* {
+      def value
+        elements.delete_if do |e|
+          !e.respond_to? :value
+        end
+        elements.map{|e| e.value}
+      end
+    }
+  end
+
+  
+  rule expression
+    space? '{' body '}' space? {
+      def value
+        body.elements.delete_if do |e|
+          !e.respond_to? :value
+        end
+        body.elements.map{|e| e.value}
+      end
+    }
+  end
+
+ 
+  rule variable
+    '$' identifier {
+      def value
+        Aster::Variable.new identifier.text_value.to_sym
+      end
+    }
+  end
+
+  rule identifier
+    [a-zA-Z0-9] [a-zA-Z0-9]* {
+      def value
+        text_value
+      end
+    }
+  end
+
+  rule string
+    '"' ([^"\\] / "\\" . )* '"' {
+      def value
+        text_value
+      end
+    }
+  end
+
+  rule space
+    [\s]+ 
+  end
+
+end

data/lib/aster/variable.rb

@@ -0,0 +1,11 @@
+module Aster
+  class Variable
+    def initialize(name)
+      @name = name.to_sym
+    end
+
+    def name
+      @name
+    end
+  end
+end

data/lib/aster/version.rb

@@ -0,0 +1,3 @@
+module Aster
+  VERSION = "0.0.1"
+end

data/test/examples/web_server.aster

@@ -0,0 +1,19 @@
+
+
+server web
+
+  set max-instances 12
+
+  set instance-methods
+
+    function after-create-hook
+      configure
+
+    function configure
+      run install_base_ubuntu.aster
+      exec sudo apt-get install nginx
+
+    function reboot
+      exec sudo reboot
+
+

data/test/helper.rb

@@ -0,0 +1,5 @@
+require File.join(File.dirname(__FILE__), *%w(.. lib aster))
+
+require 'rubygems'
+require 'test/unit'
+

data/test/test_environment.rb

@@ -0,0 +1,18 @@
+require_relative './helper'
+
+class TestEnvironment < Test::Unit::TestCase
+
+  def test_not
+    e = Aster::Environment.new
+    #assert_equal "no", e.eval("not yes")
+    #assert_equal "yes", e.eval("not no")
+  end
+
+  def test_function
+    e = Aster::Environment.new
+    e.eval "function test arg1 arg2\n  echo $arg1 and $arg2"
+    e.eval "test one two"
+    assert_equal("one and two", e.stdout)
+  end
+
+end

data/test/test_parser.rb

@@ -0,0 +1,58 @@
+require_relative './helper'
+
+class TestParser < Test::Unit::TestCase
+
+  def parse_line(text)
+    p = Aster::Parser.new
+    p.send :raw_parse_line, text
+  end
+
+  def parse text
+    p = Aster::Parser.new
+    p.parse text
+  end
+
+  def text_indent(text)
+    p = Aster::Parser.new
+    p.send :text_indent, text
+  end
+
+  def test_leading_indent()
+    assert_equal 0,   text_indent('')
+    assert_equal 1,   text_indent('  ')
+    assert_equal 2,   text_indent('    ')
+    assert_equal -1,  text_indent('   ')
+    assert_equal -1,  text_indent('     ')
+  end
+
+  def test_line_parse
+    assert_equal ["a"], parse_line("a")
+    assert_equal ["a", "a"], parse_line("a a")
+    assert_equal [:a, :b], parse_line("{$a $b}").first.map{|v| v.name.to_sym}
+    assert_equal ["upload", "\"asdf.jpg\""], parse_line(%q(upload "asdf.jpg"))
+  end
+
+  def test_command_parse
+    c = parse "asdf one two"
+    assert_equal c.first.function_name, :asdf
+  end
+
+  def test_asdf
+    p = Aster::Parser.new
+    tree = p.parse "if {not {test}}"
+    command = tree.first
+  end
+
+  def test_parse
+    parser = Aster::Parser.new
+file = "
+function test asdr
+  exec test
+
+function test2 asdf
+  exec
+"    
+    tree = parser.parse file
+  end
+
+end

metadata

@@ -0,0 +1,123 @@
+--- !ruby/object:Gem::Specification
+name: aster
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Sam Murphy
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-04-12 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: treetop
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.6'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.6'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: 
+email:
+- sam.murphy@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- TODO
+- aster.gemspec
+- lib/aster.rb
+- lib/aster/command.rb
+- lib/aster/environment.rb
+- lib/aster/function.rb
+- lib/aster/parser.rb
+- lib/aster/sexp.treetop
+- lib/aster/variable.rb
+- lib/aster/version.rb
+- test/examples/web_server.aster
+- test/helper.rb
+- test/test_environment.rb
+- test/test_parser.rb
+homepage: ''
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+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.0.3
+signing_key: 
+specification_version: 4
+summary: A programming language for configuring servers
+test_files:
+- test/examples/web_server.aster
+- test/helper.rb
+- test/test_environment.rb
+- test/test_parser.rb