opal 0.0.1 → 0.1.0

data/lib/opal/opal/env/console.rb

@@ -0,0 +1,66 @@
+# 
+# console.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+require File.join(File.dirname(__FILE__), 'object')
+
+module Opal
+  
+  class Environment
+    
+    # Used to represent the usual javascript console found in most browsers.
+    class Console < Object
+      
+      def initialize(env)
+        super
+        self['log'] = proc { |msg| log(msg) }
+        self['error'] = proc { |msg| error(msg) }
+        self['info'] = proc { |msg| info(msg) }
+        self['warn'] = proc { |msg| warn(msg) }
+      end
+      
+      # Log a regular message to the console.
+      # 
+      # @example
+      #   console.log "something"
+      # 
+      def log(str = "")
+        puts str
+      end
+      
+      def error(str = "")
+        puts str
+      end
+      
+      def info(str = "")
+        puts str
+      end
+      
+      def warn(str = "")
+        puts str
+      end
+    end
+  end
+end

data/lib/opal/opal/env/fs.rb

@@ -0,0 +1,98 @@
+# 
+# fs.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+require File.join(File.dirname(__FILE__), 'object')
+
+module Opal
+  
+  class Environment
+    
+    # File system access. The browser build of opal has simple methods of FS
+    # access/dir access simply to support require(), Dir.glob() and File.join().
+    # Server side opal aims to offer much of what Ruby offers.. reading and 
+    # writing, etc. FS plays an intermediate role betweeen opal and the ruby
+    # runtime.
+    class FS < Object
+      
+      def initialize(env)
+        super
+        # a hash of required files - filename => true????? er,, why not array?
+        @required_files = {}
+        self['require'] = require
+        self['getwd'] = getwd
+        
+        setup_load_paths
+      end
+      
+      # Set up load paths.. basically add all our opals into the load path
+      def setup_load_paths
+        @load_paths = []
+        %w{spec}.each do |opal|
+          @load_paths << File.join(OPALS_PATH, opal, 'lib')
+        end
+        # current dir is also in the load path..
+        @load_paths << Dir.getwd
+        @load_paths << ""
+      end
+      
+      def glob
+        proc do |glob|
+          Dir.glob(glob)
+        end
+      end
+      
+      def getwd
+        proc do
+          Dir.getwd
+        end
+      end
+      
+      # Require function from opal
+      def require        
+        proc do |path|
+          # no extension? add .rb
+          path = "#{path}.rb" unless /.*\.(rb|js)$/.match(path)
+          # puts "need to require: #{path}"
+          file_path = nil
+          @load_paths.each do |load_path|
+            proposed = File.join load_path, path
+            # puts "trying: #{propos/ed}"
+            if File.exist? proposed
+              file_path = proposed
+              unless @required_files[file_path]
+                @required_files[file_path] = true
+                @environment.load_required_file file_path
+              end
+              break
+            end
+          end
+          return true if file_path
+          false
+        end
+      end
+    end
+  end
+end

data/lib/opal/opal/env/object.rb

@@ -0,0 +1,48 @@
+# 
+# object.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+module Opal
+  
+  class Environment
+    
+    class Object
+      
+      # @param [Opal::Environment] env
+      def initialize(env)
+        @properties = {}
+        @environment = env
+      end
+      
+      def [](key)
+        @properties[key]
+      end
+      
+      def []=(key, value)
+        @properties[key] = value
+      end
+    end
+  end
+end

data/lib/opal/opal/environment.rb

@@ -0,0 +1,139 @@
+# 
+# env.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+module Opal
+  
+  # Env is an opal environment. An instance of the ruby "virtual machine" that
+  # holds the context for running ruby (through javascript). An ENV loads the
+  # correct context, boots the runtime, and ties everything together conecting
+  # the opal runtime and ruby classes that provide a layer for communicating
+  # back and forth between the two. Any time opal is used to run ruby code
+  # "server side", it will be through an instance of this class.
+  class Environment
+    
+    # Path to system opals
+    OPALS_PATH = File.join Vienna::PATH, 'opals'
+    
+    def initialize(args)
+      
+      begin
+        require 'rubygems'
+        require 'v8'
+      rescue Exception
+        abort "therubyracer not available. Install it with: sudo gem install therubyracer"
+      end
+      
+      # puts "making new environment"
+      @context = V8::Context.new
+      load_runtime
+      
+      # puts "args are: #{args.inspect}"
+      
+      if args.length == 1
+        file = args[0]
+        # puts "need to run #{file}"
+        # puts File.read(file)
+        if File.exist? file
+          load_required_file file
+          args.clear
+        else
+          abort "Cannot find opal file #{args[0]}"
+        end
+      else
+        start
+      end
+    end
+    
+    
+    def load_runtime
+      @context['console'] = Opal::Environment::Console.new self
+      @context['__opal_fs_access'] = Opal::Environment::FS.new self
+      
+      runtime_files = %w(pre_opal opal server_side debug post_opal)
+      js_str = []
+      
+      runtime_files.each do |file|
+        str= File.read File.join(OPALS_PATH, 'runtime', 'runtime', "#{file}.js")
+        js_str << str
+      end
+      
+      js_eval js_str.join
+      
+      # need to load libs (kernel, module first, then all others)
+      rb_sources = Dir.glob(File.join(OPALS_PATH, 'runtime', 'lib', '**', '*.rb'))
+      # we want kernel first, then module
+      %w(kernel module).reverse.each do |order|
+        rb_sources.unshift rb_sources.select { |item|
+          /#{Regexp.escape order}\.rb$/.match item
+        }.first
+      end
+      
+      rb_sources.uniq!
+      
+      rb_sources.each do |src|
+        # puts src
+        res = Vienna::RubyParser.new(src, File.read(src)).build!
+        eval_str = "opal.load_raw_file('#{src}', #{res});"
+        js_eval eval_str
+        # break
+      end
+    end
+    
+    # Start accepting user input and compiling it
+    def start
+      while true
+        '>> '.display
+        gets.each do |e|
+          puts("=> " + ruby_eval(e.to_s))
+        end
+      end
+    end
+    
+    # Evaluate the given javascript normally in context
+    def js_eval(str)
+      @context.eval(str).to_s
+    end
+    
+    def load_required_file(path)
+      # puts "loading require file! #{path}"
+      parser = Vienna::RubyParser.new(path, File.read(path))
+      res = parser.build!
+      # puts "a"
+      # puts res
+      @context.eval("opal.entry_point((function() {return (#{res}).apply(opal.top_self, ['#{path}'])}));").to_s
+      # puts "b"
+      true
+    end
+    
+    # Evaluate the given string in the context
+    def ruby_eval(str)
+      parser = Vienna::RubyParser.new("(opal)", str, :iseq_type => :main)
+      res = parser.build!
+      @context.eval("opal.entry_point((function() {return (#{res}).apply(opal.top_self, ['(opal)']).$inspect()}));").to_s
+    end
+    
+  end
+end

data/lib/opal/opal/gen.rb

@@ -0,0 +1,62 @@
+# 
+# gen.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+require 'fileutils'
+
+module Opal
+  
+  def self.gen
+    ARGV.shift
+    unless ARGV.length > 0
+      print_usage
+      abort
+    end 
+    path = ARGV.first
+    name = path
+    # abort "not yet implemented"
+    
+    base = File.expand_path(File.join(Vienna::PATH, 'gen', 'browser'))
+   
+    FileUtils.mkdir_p name
+
+    Dir.glob(File.join(base, '**/*')).each do |file|
+      local = /^#{Regexp.escape base}\/(.*)$/.match(file)[1]
+      local.gsub!(/__PROJECT_NAME__/, name)
+      # puts local
+      if File.directory? file
+        FileUtils.mkdir_p local
+      else
+        File.open(local, 'w') do |out|
+          input = File.read file
+          input.gsub!(/__PROJECT_NAME__/, name)
+          out.write input
+        end
+      end
+
+    end
+
+  end
+end

data/lib/opal/opal/opal.rb

@@ -0,0 +1,68 @@
+# 
+# opal.rb
+# vienna
+# 
+# Created by Adam Beynon.
+# Copyright 2010 Adam Beynon.
+#
+# 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.
+#
+
+# Opal is the ruby runtime available from the command line. 
+module Opal
+  
+  # main entry point into Opal. If no args, files, etc, then simply just run the
+  # REPL? for now, always run the repl
+  def self.run
+    command = ARGV.first
+    case command
+    when 'new'
+      gen
+    when 'repl'
+      puts "need to start REPL session"
+      ARGV.clear
+      Opal::Environment.new ARGV
+    when 'build'
+      # puts "need to do build"
+      p = Vienna::Project.new Dir.getwd, {}
+      p.build!
+    when 'server'
+      # puts "need to do server"
+      p = Vienna::Project.new Dir.getwd, {}
+      s = Vienna::AppServer.new p
+    else
+      print_usage
+    end
+    # puts "runnign repl"
+    # puts ARGV
+    # we must remove all args from argv before running repl to stop args being
+    # passed on as ruby code to execute (into js)
+    # ARGV.clear
+    
+    # make a new environment
+    # Opal::Environment.new args
+  end
+  
+  def self.print_usage
+    puts %Q{
+Usage:
+  opal new PROJECT_PATH
+}
+  end
+end