mirah 0.0.4-java

data/History.txt

@@ -0,0 +1,15 @@
+=== 0.0.3 / 2010-06-09
+
+* Even more language features!
+* invokedynamic support (sort of)
+* Using mirror types to avoid class initialization
+* Other stuff
+
+=== 0.0.2 / 2010-02-15
+
+* More language features added
+
+=== 0.0.1 / 2009-10-27
+
+* First gem release
+  * Most things necessary for simple apps, scripts, servlets are working

data/README.txt

@@ -0,0 +1,51 @@
+= mirah
+
+* http://groups.google.com/group/mirah
+* http://kenai.com/projects/duby
+
+== DESCRIPTION:
+
+Mirah is a customizable programming language featuring static types,
+local type inference and a heavily Ruby-inspired syntax. Mirah
+currently includes a typer/compiler backend for the JVM which can
+output either JVM bytecode or Java source files.
+
+== FEATURES/PROBLEMS:
+
+* Ruby syntax
+* Compiles to .class or .java
+* Fast as Java
+
+== SYNOPSIS:
+
+mirah <script.mirah>
+mirah -e "inline script"
+mirahc <script.mirah>
+mirahc -e "inline script" # produces DashE.class
+mirahc -java <script.mirah>
+mirahc -java -e "inline script" # produces DashE.java
+
+== REQUIREMENTS:
+
+* JRuby 1.5.0 or higher.
+* BiteScript 0.0.5 or higher
+
+== INSTALL:
+
+If your "gem" command is the one from JRuby:
+
+* gem install mirah
+
+Otherwise:
+
+* jruby -S gem install mirah
+
+Only JRuby is supported at this time.
+
+== For Java tools:
+
+To build the Mirah jars from source you should have a checkout of both jruby and
+bitescript in Mirah's parent directory. Run "ant jar-complete" in jruby, then in
+the mirah directory "../jruby/bin/jruby -S rake jar" to build the Mirah jar. Use
+"jar:complete" instead to produce a free-standing jar file with JRuby and the
+JRubyParser libraries included.

data/Rakefile

@@ -0,0 +1,86 @@
+require 'rake'
+require 'rake/testtask'
+require 'java'
+$: << './lib'
+require 'mirah'
+require 'jruby/compiler'
+require 'ant'
+
+task :default => :test
+
+Rake::TestTask.new :test do |t|
+  t.libs << "lib"
+  # This is hacky, I know
+  t.libs.concat Dir["../bitescript*/lib"]
+  t.test_files = FileList["test/**/*.rb"]
+  java.lang.System.set_property("jruby.duby.enabled", "true")
+end
+
+task :init do
+  mkdir_p 'dist'
+  mkdir_p 'build'
+end
+
+task :clean do
+  ant.delete :quiet => true, :dir => 'build'
+  ant.delete :quiet => true, :dir => 'dist'
+end
+
+task :compile => :init do
+  # build the Ruby sources
+  puts "Compiling Ruby sources"
+  JRuby::Compiler.compile_argv([
+    '-t', 'build',
+    '--javac',
+    'src/org/mirah/mirah_command.rb'
+  ])
+
+  # build the Mirah sources
+  puts "Compiling Mirah sources"
+  Dir.chdir 'src' do
+    classpath = Duby::Env.encode_paths([
+        'javalib/jruby-complete.jar',
+        'javalib/JRubyParser.jar',
+        'build',
+        '/usr/share/ant/lib/ant.jar'
+      ])
+    Duby.compile(
+      '-c', classpath,
+      '-d', '../build',
+      'org/mirah',
+      'duby/lang',
+      'mirah'
+      )
+  end
+end
+
+task :jar => :compile do
+  ant.jar :jarfile => 'dist/mirah.jar' do
+    fileset :dir => 'lib'
+    fileset :dir => 'build'
+    fileset :dir => '.', :includes => 'bin/*'
+    fileset :dir => '../bitescript/lib'
+    manifest do
+      attribute :name => 'Main-Class', :value => 'org.mirah.MirahCommand'
+    end
+  end
+end
+
+namespace :jar do
+  task :complete => :jar do
+    ant.jar :jarfile => 'dist/mirah-complete.jar' do
+      zipfileset :src => 'dist/mirah.jar'
+      zipfileset :src => 'javalib/jruby-complete.jar'
+      zipfileset :src => 'javalib/mirah-parser.jar'
+      manifest do
+        attribute :name => 'Main-Class', :value => 'org.mirah.MirahCommand'
+      end
+    end
+  end
+
+  task :bootstrap => :compile do
+    ant.jar :jarfile => 'javalib/mirah-bootstrap.jar' do
+      fileset :dir => 'build'
+    end
+  end
+end

data/bin/duby

@@ -0,0 +1,10 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+puts 'WARNING: Duby is now Mirah. Please use the `mirah` command.'
+Duby.run(*ARGV)

data/bin/dubyc

@@ -0,0 +1,10 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+puts 'WARNING: Duby is now Mirah. Please use the `mirahc` command.'
+Duby.compile(*ARGV)

data/bin/dubyp

@@ -0,0 +1,10 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+puts 'WARNING: Duby is now Mirah. Please use the `mirahp` command.'
+puts Duby.parse(*ARGV).inspect

data/bin/jrubyp

@@ -0,0 +1,36 @@
+#!/usr/bin/env jruby
+$: << File.dirname(File.dirname(__FILE__)) + '/lib'
+require 'mirah'
+
+module Java::OrgJrubyparserAst
+  class Node
+    def pp(indent = 0)
+      return if self.invisible?
+      name = ""
+      name = ":#{self.name}" if respond_to? :getName
+      name += " #{value.inspect}" if respond_to? :getValue
+      name += " (#{depth})" if respond_to? :getDepth
+      print "#{' '*indent}(#{node_name}#{name}"
+      if child_nodes.size == 0
+        puts ')'
+      else
+        puts
+        indent += 2
+        child_nodes.each {|n| n.pp(indent)}
+        puts "#{' '*indent})"
+      end
+    end
+  end
+end
+
+filename = ARGV.shift
+case filename
+when '-e'
+  contents = ARGV.join(' ')
+when '-', nil
+  contents = $stdin.read
+else
+  contents = IO.read(filename)
+end
+
+puts Duby::AST.parse_ruby(contents, filename).pp

data/bin/mirah

@@ -0,0 +1,9 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+Duby.run(*ARGV)

data/bin/mirah.cmd

@@ -0,0 +1 @@
+@jruby "%~dpn0" %*

data/bin/mirahc

@@ -0,0 +1,9 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+Duby.compile(*ARGV)

data/bin/mirahc.cmd

@@ -0,0 +1 @@
+@jruby "%~dpn0" %*

data/bin/mirahp

@@ -0,0 +1,9 @@
+#!/usr/bin/env jruby
+begin
+  require 'mirah'
+rescue LoadError
+  $: << File.dirname(File.dirname(__FILE__)) + '/lib'
+  require 'mirah'
+end
+
+puts Duby.parse(*ARGV).inspect

data/bin/mirahp.cmd

@@ -0,0 +1 @@
+@jruby "%~dpn0" %*

data/examples/ant/example-build.xml

@@ -0,0 +1,7 @@
+<project name="test">
+  <taskdef name="dubyc" classname="org.mirah.ant.Compile"/>
+
+  <target name="blah">
+    <dubyc src="examples/fib.duby" target="build"/>
+  </target>
+</project>

data/examples/appengine/Rakefile

@@ -0,0 +1,19 @@
+# Hack to use the latest version instead of the gems when developing Mirah
+if File.exist?('../../lib/mirah.rb')
+  $: << File.expand_path('../../lib')
+end
+if File.exist?('../../../bitescript/lib/bitescript.rb')
+  $: << File.expand_path('../../../bitescript/lib/')
+end
+require 'mirah/appengine_tasks'
+
+appengine_app :app
+
+MIRAH_APP = "#{Duby.dest_path}/org/mirah/MirahApp.class"
+LIST = "#{Duby.source_path}/org/mirah/list.dhtml"
+
+# We want to recompile the app if the template gets modified
+Rake::Task[MIRAH_APP].enhance([LIST])
+
+task :app => MIRAH_APP
+task :default => :server

data/examples/appengine/Readme

@@ -0,0 +1,29 @@
+Run rake to compile the application and start the development server:
+
+$ jruby -I `pwd`/../../lib -S rake
+
+Requirements:
+ - jruby -S gem install bitescript
+ - jruby -S gem install appengine-sdk -v=1.3.5.pre
+
+Datastore API:
+  Model.get(key)
+  Model.delete(key)
+  Model.all -> Query
+  property foo, String # or any supported datastore type
+                       # For numbers use Long or Double
+  
+  instance.save
+  instance.key
+  
+  instance.foo
+  instance.foo=
+
+  Query.count
+  Query.run -> Model[]
+  Query.first -> instance || nil
+  Query.sort(property_name)
+  Query.sort(property_name, true) # descending
+  Query.foo('foo').bar(3)  # Only return instances where foo = 'foo' and bar = 3
+  Query.offset(10)
+  Query.limit(5)

data/examples/appengine/src/org/mirah/MirahApp.mirah

@@ -0,0 +1,57 @@
+import java.util.HashMap
+import java.util.regex.Pattern
+
+import javax.servlet.http.HttpServlet
+
+import com.google.appengine.api.datastore.Text
+import com.google.appengine.ext.duby.db.Model
+
+class Post < Model
+  property 'title', String
+  property 'body', Text
+end
+
+class MirahApp < HttpServlet
+  def_edb(list, 'org/mirah/list.dhtml')
+
+  def doGet(request, response)
+    @posts = Post.all.run
+    response.getWriter.write(list)
+  end
+
+  def doPost(request, response)
+    post = Post.new
+    post.title = request.getParameter('title')
+    post.body = request.getParameter('body')
+    post.save
+    doGet(request, response)
+  end
+
+
+  def initialize
+    @escape_pattern = Pattern.compile("[<>&'\"]")
+    @escaped = HashMap.new
+    @escaped.put("<", "&lt;")
+    @escaped.put(">", "&gt;")
+    @escaped.put("&", "&amp;")
+    @escaped.put("\"", "&quot;")
+    @escaped.put("'", "&#39;")
+  end
+
+  def h(text:String)
+    return "" unless text
+    matcher = @escape_pattern.matcher(text)
+    buffer = StringBuffer.new
+    while matcher.find
+      replacement = String(@escaped.get(matcher.group))
+      matcher.appendReplacement(buffer, replacement)
+    end
+    matcher.appendTail(buffer)
+    return buffer.toString
+  end
+
+  def h(o:Object)
+    return "" unless o
+    h(o.toString)
+  end
+end

data/examples/appengine/src/org/mirah/list.dhtml

@@ -0,0 +1,15 @@
+<title>Posts</title>
+<body>
+  <h1>All the Posts:</h1>
+  <% for post in @posts %>
+    <h2><%=h post.title %></h2>
+    <p><%=h post.body %></p>
+  <% end %>
+  <hr>
+  <h1>New Post:</h1>
+  <form method=post>
+    Title: <input type=text name=title><br>
+    Content: <textarea name=content></textarea><br>
+    <input type=submit>
+  </form>
+</body>

data/examples/bintrees.mirah

@@ -0,0 +1,66 @@
+class BinaryTrees
+  def self.main(args:String[])
+    n = 0
+    n = Integer.parseInt(args[0]) if args.length > 0
+
+    maxDepth = (6 > n) ? 6 : n
+    stretchDepth = maxDepth + 1
+
+    check = TreeNode.bottomUpTree(0, stretchDepth).itemCheck
+    puts "stretch tree of depth #{stretchDepth}\t check: #{check}"
+
+    longLivedTree = TreeNode.bottomUpTree 0, maxDepth
+
+    depth = 4
+    while depth <= maxDepth
+      iterations = 1 << (maxDepth - depth + 4)
+      check = 0
+
+      i = 1
+      while i <= iterations
+        check += TreeNode.bottomUpTree(i, depth).itemCheck
+        check += TreeNode.bottomUpTree(-i,depth).itemCheck
+        i += 1
+      end
+      
+      puts "#{iterations * 2}\t trees of depth #{depth}\t check: #{check}"
+      depth += 2
+    end
+
+    puts "long lived tree of depth #{maxDepth}\t check: #{longLivedTree.itemCheck}"
+  end
+end
+
+class TreeNode
+  def initialize(left:TreeNode, right:TreeNode, item:int)
+    @item = item
+    @left = left
+    @right = right
+  end
+
+  def initialize(item:int)
+    @left = TreeNode(nil)
+    @right = TreeNode(nil)
+    @item = item
+  end
+
+  def self.bottomUpTree(item:int, depth:int)
+    if depth > 0
+      TreeNode.new(
+        TreeNode.bottomUpTree(2*item-1, depth-1),
+        TreeNode.bottomUpTree(2*item, depth-1),
+        item)
+    else
+      TreeNode.new(item)
+    end
+  end
+
+  def itemCheck
+    # if necessary deallocate here
+    if @left == nil
+      @item
+    else
+      @item + @left.itemCheck - @right.itemCheck
+    end
+  end
+end