mirah 0.0.4-java

data/examples/wiki/war/public/wmd/wmd-plus.js

@@ -0,0 +1,311 @@
+var Attacklab=Attacklab||{};
+Attacklab.wmdPlus=function(){
+this.symboltable;
+var _1=top;
+var _2=_1["Attacklab"];
+var _3=_1["document"];
+var _4=_1["RegExp"];
+var _5=_1["navigator"];
+var _6=_2.Util;
+var _7=_2.Position;
+var _8=_2.Command;
+_8.doAutoindent=function(_9){
+_9.before=_9.before.replace(/(\n|^)[ ]{0,3}([*+-]|\d+[.])[ \t]*\n$/,"\n\n");
+_9.before=_9.before.replace(/(\n|^)[ ]{0,3}>[ \t]*\n$/,"\n\n");
+_9.before=_9.before.replace(/(\n|^)[ \t]+\n$/,"\n\n");
+if(/(\n|^)[ ]{0,3}([*+-]|\d+[.])[ \t]+.*\n$/.test(_9.before)){
+if(_8.doList){
+_8.doList(_9);
+}
+}
+if(/(\n|^)[ ]{0,3}>[ \t]+.*\n$/.test(_9.before)){
+if(_8.doBlockquote){
+_8.doBlockquote(_9);
+}
+}
+if(/(\n|^)(\t|[ ]{4,}).*\n$/.test(_9.before)){
+if(_8.doCode){
+_8.doCode(_9);
+}
+}
+};
+_8.doBlockquote=function(_a){
+_a.selection=_a.selection.replace(/^(\n*)([^\r]+?)(\n*)$/,function(_b,_c,_d,_e){
+_a.before+=_c;
+_a.after=_e+_a.after;
+return _d;
+});
+_a.before=_a.before.replace(/(>[ \t]*)$/,function(_f,_10){
+_a.selection=_10+_a.selection;
+return "";
+});
+_a.selection=_a.selection.replace(/^(\s|>)+$/,"");
+_a.selection=_a.selection||"Blockquote";
+if(_a.before){
+_a.before=_a.before.replace(/\n?$/,"\n");
+}
+if(_a.after){
+_a.after=_a.after.replace(/^\n?/,"\n");
+}
+_a.before=_a.before.replace(/(((\n|^)(\n[ \t]*)*>(.+\n)*.*)+(\n[ \t]*)*$)/,function(_11){
+_a.startTag=_11;
+return "";
+});
+_a.after=_a.after.replace(/^(((\n|^)(\n[ \t]*)*>(.+\n)*.*)+(\n[ \t]*)*)/,function(_12){
+_a.endTag=_12;
+return "";
+});
+var _13=function(_14){
+var _15=_14?"> ":"";
+if(_a.startTag){
+_a.startTag=_a.startTag.replace(/\n((>|\s)*)\n$/,function(_16,_17){
+return "\n"+_17.replace(/^[ ]{0,3}>?[ \t]*$/gm,_15)+"\n";
+});
+}
+if(_a.endTag){
+_a.endTag=_a.endTag.replace(/^\n((>|\s)*)\n/,function(_18,_19){
+return "\n"+_19.replace(/^[ ]{0,3}>?[ \t]*$/gm,_15)+"\n";
+});
+}
+};
+if(/^(?![ ]{0,3}>)/m.test(_a.selection)){
+_8.wrap(_a,_2.wmd_env.lineLength-2);
+_a.selection=_a.selection.replace(/^/gm,"> ");
+_13(true);
+_a.skipLines();
+}else{
+_a.selection=_a.selection.replace(/^[ ]{0,3}> ?/gm,"");
+_8.unwrap(_a);
+_13(false);
+if(!/^(\n|^)[ ]{0,3}>/.test(_a.selection)){
+if(_a.startTag){
+_a.startTag=_a.startTag.replace(/\n{0,2}$/,"\n\n");
+}
+}
+if(!/(\n|^)[ ]{0,3}>.*$/.test(_a.selection)){
+if(_a.endTag){
+_a.endTag=_a.endTag.replace(/^\n{0,2}/,"\n\n");
+}
+}
+}
+if(!/\n/.test(_a.selection)){
+_a.selection=_a.selection.replace(/^(> *)/,function(_1a,_1b){
+_a.startTag+=_1b;
+return "";
+});
+}
+};
+_8.doCode=function(_1c){
+var _1d=/\S[ ]*$/.test(_1c.before);
+var _1e=/^[ ]*\S/.test(_1c.after);
+if((!_1e&&!_1d)||/\n/.test(_1c.selection)){
+_1c.before=_1c.before.replace(/[ ]{4}$/,function(_1f){
+_1c.selection=_1f+_1c.selection;
+return "";
+});
+var _20=1;
+var _21=1;
+if(/\n(\t|[ ]{4,}).*\n$/.test(_1c.before)){
+_20=0;
+}
+if(/^\n(\t|[ ]{4,})/.test(_1c.after)){
+_21=0;
+}
+_1c.skipLines(_20,_21);
+if(!_1c.selection){
+_1c.startTag="    ";
+_1c.selection="print(\"code sample\");";
+return;
+}
+if(/^[ ]{0,3}\S/m.test(_1c.selection)){
+_1c.selection=_1c.selection.replace(/^/gm,"    ");
+}else{
+_1c.selection=_1c.selection.replace(/^[ ]{4}/gm,"");
+}
+}else{
+_1c.trimWhitespace();
+_1c.findTags(/`/,/`/);
+if(!_1c.startTag&&!_1c.endTag){
+_1c.startTag=_1c.endTag="`";
+if(!_1c.selection){
+_1c.selection="print(\"code sample\");";
+}
+}else{
+if(_1c.endTag&&!_1c.startTag){
+_1c.before+=_1c.endTag;
+_1c.endTag="";
+}else{
+_1c.startTag=_1c.endTag="";
+}
+}
+}
+};
+_8.autoindent={};
+_8.autoindent.textOp=_8.doAutoindent;
+_8.blockquote={};
+_8.blockquote.description="Blockquote <blockquote>";
+_8.blockquote.image="images/blockquote.png";
+_8.blockquote.key=".";
+_8.blockquote.keyCode=190;
+_8.blockquote.textOp=function(_22){
+return _8.doBlockquote(_22);
+};
+_8.code={};
+_8.code.description="Code Sample <pre><code>";
+_8.code.image="images/code.png";
+_8.code.key="k";
+_8.code.textOp=_8.doCode;
+_8.img={};
+_8.img.description="Image <img>";
+_8.img.image="images/img.png";
+_8.img.key="g";
+_8.img.textOp=function(_23,_24){
+return _8.doLinkOrImage(_23,true,_24);
+};
+_8.doList=function(_25,_26){
+var _27=/(([ ]{0,3}([*+-]|\d+[.])[ \t]+.*)(\n.+|\n{2,}([*+-].*|\d+[.])[ \t]+.*|\n{2,}[ \t]+\S.*)*)\n*/;
+var _28="";
+var _29=1;
+var _2a=function(){
+if(_26){
+var _2b=" "+_29+". ";
+_29++;
+return _2b;
+}
+var _2c=_28||"-";
+return "  "+_2c+" ";
+};
+var _2d=function(_2e){
+if(_26==undefined){
+_26=/^\s*\d/.test(_2e);
+}
+_2e=_2e.replace(/^[ ]{0,3}([*+-]|\d+[.])\s/gm,function(_2f){
+return _2a();
+});
+return _2e;
+};
+var _30=function(){
+_31=_6.regexToString(_27);
+_31.expression="^\n*"+_31.expression;
+var _32=_6.stringToRegex(_31);
+_25.after=_25.after.replace(_32,_2d);
+};
+_25.findTags(/(\n|^)*[ ]{0,3}([*+-]|\d+[.])\s+/,null);
+var _33=/^\n/;
+if(_25.before&&!/\n$/.test(_25.before)&&!_33.test(_25.startTag)){
+_25.before+=_25.startTag;
+_25.startTag="";
+}
+if(_25.startTag){
+var _34=/\d+[.]/.test(_25.startTag);
+_25.startTag="";
+_25.selection=_25.selection.replace(/\n[ ]{4}/g,"\n");
+_8.unwrap(_25);
+_25.skipLines();
+if(_34){
+_30();
+}
+if(_26==_34){
+return;
+}
+}
+var _35=1;
+var _31=_6.regexToString(_27);
+_31.expression="(\\n|^)"+_31.expression+"$";
+var _36=_6.stringToRegex(_31);
+_25.before=_25.before.replace(_36,function(_37){
+if(/^\s*([*+-])/.test(_37)){
+_28=_4.$1;
+}
+_35=/[^\n]\n\n[^\n]/.test(_37)?1:0;
+return _2d(_37);
+});
+if(!_25.selection){
+_25.selection="List item";
+}
+var _38=_2a();
+var _39=1;
+_31=_6.regexToString(_27);
+_31.expression="^\n*"+_31.expression;
+_36=_6.stringToRegex(_31);
+_25.after=_25.after.replace(_36,function(_3a){
+_39=/[^\n]\n\n[^\n]/.test(_3a)?1:0;
+return _2d(_3a);
+});
+_25.trimWhitespace(true);
+_25.skipLines(_35,_39,true);
+_25.startTag=_38;
+var _3b=_38.replace(/./g," ");
+_8.wrap(_25,_2.wmd_env.lineLength-_3b.length);
+_25.selection=_25.selection.replace(/\n/g,"\n"+_3b);
+};
+_8.doHeading=function(_3c){
+_3c.selection=_3c.selection.replace(/\s+/g," ");
+_3c.selection=_3c.selection.replace(/(^\s+|\s+$)/g,"");
+var _3d=0;
+_3c.findTags(/#+[ ]*/,/[ ]*#+/);
+if(/#+/.test(_3c.startTag)){
+_3d=_4.lastMatch.length;
+}
+_3c.startTag=_3c.endTag="";
+_3c.findTags(null,/\s?(-+|=+)/);
+if(/=+/.test(_3c.endTag)){
+_3d=1;
+}
+if(/-+/.test(_3c.endTag)){
+_3d=2;
+}
+_3c.startTag=_3c.endTag="";
+_3c.skipLines(1,1);
+if(!_3c.selection){
+_3c.startTag="## ";
+_3c.selection="Heading";
+_3c.endTag=" ##";
+return;
+}
+var _3e=_3d==0?2:_3d-1;
+if(_3e){
+var _3f=_3e>=2?"-":"=";
+var _40=_3c.selection.length;
+if(_40>_2.wmd_env.lineLength){
+_40=_2.wmd_env.lineLength;
+}
+_3c.endTag="\n";
+while(_40--){
+_3c.endTag+=_3f;
+}
+}
+};
+_8.ol={};
+_8.ol.description="Numbered List <ol>";
+_8.ol.image="images/ol.png";
+_8.ol.key="o";
+_8.ol.textOp=function(_41){
+_8.doList(_41,true);
+};
+_8.ul={};
+_8.ul.description="Bulleted List <ul>";
+_8.ul.image="images/ul.png";
+_8.ul.key="u";
+_8.ul.textOp=function(_42){
+_8.doList(_42,false);
+};
+_8.h1={};
+_8.h1.description="Heading <h1>/<h2>";
+_8.h1.image="images/h1.png";
+_8.h1.key="h";
+_8.h1.textOp=_8.doHeading;
+_8.hr={};
+_8.hr.description="Horizontal Rule <hr>";
+_8.hr.image="images/hr.png";
+_8.hr.key="r";
+_8.hr.textOp=function(_43){
+_43.startTag="----------\n";
+_43.selection="";
+_43.skipLines(2,1,true);
+};
+};
+if(Attacklab.fileLoaded){
+Attacklab.fileLoaded("wmd-plus.js");
+}
+

data/examples/wiki/war/public/wmd/wmd.js

@@ -0,0 +1,73 @@
+var Attacklab=Attacklab||{};
+Attacklab.wmd_env={};
+Attacklab.account_options={};
+Attacklab.wmd_defaults={version:1,output:"HTML",lineLength:40,delayLoad:false};
+if(!Attacklab.wmd){
+Attacklab.wmd=function(){
+Attacklab.loadEnv=function(){
+var _1=function(_2){
+if(!_2){
+return;
+}
+for(var _3 in _2){
+Attacklab.wmd_env[_3]=_2[_3];
+}
+};
+_1(Attacklab.wmd_defaults);
+_1(Attacklab.account_options);
+_1(top["wmd_options"]);
+Attacklab.full=true;
+var _4="bold italic | link blockquote code image | ol ul heading hr";
+Attacklab.wmd_env.buttons=Attacklab.wmd_env.buttons||_4;
+};
+Attacklab.loadEnv();
+var _5=["showdown.js","wmd-base.js","wmd-plus.js"];
+var _6=function(_7){
+};
+Attacklab.fileLoaded=function(_8){
+arguments.callee.count=arguments.callee.count||0;
+if(++arguments.callee.count>=_5.length){
+var go=function(){
+Attacklab.wmdBase();
+Attacklab.Util.startEditor();
+};
+if(Attacklab.wmd_env.delayLoad){
+window.setTimeout(go,0);
+}else{
+go();
+}
+}
+};
+Attacklab.editorInit=function(){
+Attacklab.wmdPlus();
+};
+var _a=function(_b,_c){
+var _d=Attacklab.basePath+_b;
+if(_c){
+_d+="?nocache="+(new Date()).getTime();
+}
+var _e=document.createElement("script");
+_e.src=_d;
+top.document.documentElement.firstChild.appendChild(_e);
+};
+var _f=function(_10){
+var _11=RegExp("(.*)"+_10+"(\\?(.+))?$","g");
+var _12=document.getElementsByTagName("script");
+for(var i=0;i<_12.length;i++){
+if(_11.test(_12[i].src)){
+var _14=RegExp.$1;
+if(/wmd-editor.com/.test(_12[i].src)){
+return null;
+}
+return _14;
+}
+}
+};
+Attacklab.basePath=_f("wmd.js")||"http://static.wmd-editor.com/v2/";
+for(var f,i=0;f=_5[i];i++){
+_a(f,false);
+}
+};
+Attacklab.wmd();
+}
+

data/lib/duby.rb

@@ -0,0 +1,2 @@
+puts "WARNING: Duby is now Mirah. Please require 'mirah'."
+require File.dirname(__FILE__) + '/mirah'

data/lib/mirah.rb

@@ -0,0 +1,338 @@
+require 'fileutils'
+require 'rbconfig'
+require 'mirah/transform'
+require 'mirah/ast'
+require 'mirah/typer'
+require 'mirah/compiler'
+require 'mirah/env'
+begin
+  require 'bitescript'
+rescue LoadError
+  $: << File.dirname(__FILE__) + '/../../bitescript/lib'
+  require 'bitescript'
+end
+require 'mirah/jvm/compiler'
+require 'mirah/jvm/typer'
+Dir[File.dirname(__FILE__) + "/mirah/plugin/*"].each {|file| require "#{file}" if file =~ /\.rb$/}
+require 'jruby'
+
+module Duby
+  def self.run(*args)
+    DubyImpl.new.run(*args)
+  end
+
+  def self.compile(*args)
+    DubyImpl.new.compile(*args)
+  end
+
+  def self.parse(*args)
+    DubyImpl.new.parse(*args)
+  end
+
+  def self.plugins
+    @plugins ||= []
+  end
+
+  def self.reset
+    plugins.each {|x| x.reset if x.respond_to?(:reset)}
+  end
+
+  def self.print_error(message, position)
+    puts "#{position.file}:#{position.start_line}: #{message}"
+    file_offset = 0
+    startline = position.start_line - 1
+    endline = position.end_line - 1
+    start_col = position.start_col - 1
+    end_col = position.end_col - 1
+    # don't try to search dash_e
+    # TODO: show dash_e source the same way
+    if File.exist? position.file
+      File.open(position.file).each_with_index do |line, lineno|
+        if lineno >= startline && lineno <= endline
+          puts line.chomp
+          if lineno == startline
+            print ' ' * start_col
+          else
+            start_col = 0
+          end
+          if lineno < endline
+            puts '^' * (line.size - start_col)
+          else
+            puts '^' * [end_col - start_col, 1].max
+          end
+        end
+      end
+    end
+  end
+
+  class CompilationState
+    attr_accessor :verbose, :destination
+  end
+end
+
+# This is a custom classloader impl to allow loading classes with
+# interdependencies by having findClass retrieve classes as needed from the
+# collection of all classes generated by the target script.
+class DubyClassLoader < java::security::SecureClassLoader
+  def initialize(parent, class_map)
+    super(parent)
+    @class_map = class_map
+  end
+  
+  def findClass(name)
+    if @class_map[name]
+      bytes = @class_map[name].to_java_bytes
+      defineClass(name, bytes, 0, bytes.length)
+    else
+      raise java.lang.ClassNotFoundException.new(name)
+    end
+  end
+
+  def loadClass(name, resolve)
+    cls = findLoadedClass(name)
+    if cls == nil
+      if @class_map[name]
+        cls = findClass(name)
+      else
+        cls = super(name, false)
+      end
+    end
+
+    resolveClass(cls) if resolve
+
+    cls
+  end
+end
+
+class DubyImpl
+  def initialize
+    Duby::AST.type_factory = Duby::JVM::Types::TypeFactory.new
+  end
+
+  def run(*args)
+    main = nil
+    class_map = {}
+
+    # generate all bytes for all classes
+    generate(args) do |outfile, builder|
+      bytes = builder.generate
+      name = builder.class_name.gsub(/\//, '.')
+      class_map[name] = bytes
+    end
+
+    # load all classes
+    dcl = DubyClassLoader.new(java.lang.ClassLoader.system_class_loader, class_map)
+    class_map.each do |name,|
+      cls = dcl.load_class(name)
+      # TODO: using first main; find correct one
+      main ||= cls.get_method("main", java::lang::String[].java_class) #rescue nil
+    end
+
+    # run the main method we found
+    if main
+      begin
+        main.invoke(nil, [args.to_java(:string)].to_java)
+      rescue java.lang.Exception => e
+        e = e.cause if e.cause
+        raise e
+      end
+    else
+      puts "No main found"
+    end
+  end
+
+  def compile(*args)
+    generate(args) do |filename, builder|
+      filename = "#{@state.destination}#{filename}"
+      FileUtils.mkdir_p(File.dirname(filename))
+      bytes = builder.generate
+      File.open(filename, 'wb') {|f| f.write(bytes)}
+    end
+  end
+
+  def generate(args, &block)
+    process_flags!(args)
+
+    # collect all ASTs from all files
+    all_nodes = []
+    expand_files(args).each do |duby_file|
+      if duby_file == '-e'
+        @filename = '-e'
+        next
+      elsif @filename == '-e'
+        all_nodes << parse('-e', duby_file)
+      else
+        all_nodes << parse(duby_file)
+      end
+      @filename = nil
+      exit 1 if @error
+    end
+
+    # enter all ASTs into inference engine
+    infer_asts(all_nodes)
+
+    # compile each AST in turn
+    all_nodes.each do |ast|
+      compile_ast(ast, &block)
+    end
+  end
+
+  def parse(*args)
+    process_flags!(args)
+    @filename = args.shift
+
+    if @filename
+      if @filename == '-e'
+        @filename = 'DashE'
+        src = args[0]
+      else
+        src = File.read(@filename)
+      end
+    else
+      print_help
+      exit(1)
+    end
+    begin
+      ast = Duby::AST.parse_ruby(src, @filename)
+    # rescue org.jrubyparser.lexer.SyntaxException => ex
+    #   Duby.print_error(ex.message, ex.position)
+    #   raise ex if @state.verbose
+    end
+    @transformer = Duby::Transform::Transformer.new(@state)
+    Java::MirahImpl::Builtin.initialize_builtins(@transformer)
+    @transformer.filename = @filename
+    ast = @transformer.transform(ast, nil)
+    @transformer.errors.each do |ex|
+      Duby.print_error(ex.message, ex.position)
+      raise ex.cause || ex if @state.verbose
+    end
+    @error = @transformer.errors.size > 0
+
+    ast
+  end
+
+  def infer_asts(asts)
+    typer = Duby::Typer::JVM.new(@transformer)
+    asts.each {|ast| typer.infer(ast) }
+    begin
+      typer.resolve(false)
+    ensure
+      puts asts.inspect if @state.verbose
+
+      failed = !typer.errors.empty?
+      if failed
+        puts "Inference Error:"
+        typer.errors.each do |ex|
+          if ex.node
+            Duby.print_error(ex.message, ex.node.position)
+          else
+            puts ex.message
+          end
+          puts ex.backtrace if @state.verbose
+        end
+        exit 1
+      end
+    end
+  end
+
+  def compile_ast(ast, &block)
+    begin
+      compiler = @compiler_class.new
+      ast.compile(compiler, false)
+      compiler.generate(&block)
+    rescue Exception => ex
+      if ex.respond_to? :node
+        Duby.print_error(ex.message, ex.node.position)
+        puts ex.backtrace if @state.verbose
+        exit 1
+      else
+        raise ex
+      end
+    end
+
+  end
+
+  def process_flags!(args)
+    @state ||= Duby::CompilationState.new
+    while args.length > 0 && args[0] =~ /^-/
+      case args[0]
+      when '--verbose', '-V'
+        Duby::Typer.verbose = true
+        Duby::AST.verbose = true
+        Duby::Compiler::JVM.verbose = true
+        @state.verbose = true
+        args.shift
+      when '--java', '-j'
+        require 'mirah/jvm/source_compiler'
+        @compiler_class = Duby::Compiler::JavaSource
+        args.shift
+      when '--dest', '-d'
+        args.shift
+        @state.destination = File.join(File.expand_path(args.shift), '')
+      when '--cd'
+        args.shift
+        Dir.chdir(args.shift)
+      when '--plugin', '-p'
+        args.shift
+        plugin = args.shift
+        require "mirah/plugin/#{plugin}"
+      when '-I'
+        args.shift
+        $: << args.shift
+      when '--classpath', '-c'
+        args.shift
+        Duby::Env.decode_paths(args.shift, $CLASSPATH)
+      when '--explicit-packages'
+        args.shift
+        Duby::AST::Script.explicit_packages = true
+      when '--help', '-h'
+        print_help
+        exit(0)
+      when '-e'
+        break
+      else
+        puts "unrecognized flag: " + args[0]
+        print_help
+        exit(1)
+      end
+    end
+    @state.destination ||= File.join(File.expand_path('.'), '')
+    @compiler_class ||= Duby::Compiler::JVM
+  end
+
+  def print_help
+    $stdout.puts "#{$0} [flags] <files or \"-e SCRIPT\">
+  -V, --verbose\t\tVerbose logging
+  -j, --java\t\tOutput .java source (jrubyc only)
+  -d, --dir DIR\t\tUse DIR as the base dir for compilation, packages
+  -p, --plugin PLUGIN\tLoad and use plugin during compilation
+  -c, --classpath PATH\tAdd PATH to the Java classpath for compilation
+  --explicit-packages\tDisable guessing the package from the filename
+  -h, --help\t\tPrint this help message
+  -e\t\t\tCompile or run the script following -e (naming it \"DashE\")"
+  end
+
+  def expand_files(files)
+    expanded = []
+    files.each do |filename|
+      if File.directory?(filename)
+        Dir[File.join(filename, '*')].each do |child|
+          if File.directory?(child)
+            files << child
+          elsif child =~ /\.(duby|mirah)$/
+            expanded << child
+          end
+        end
+      else
+        expanded << filename
+      end
+    end
+    expanded
+  end
+end
+
+Mirah = Duby
+
+if __FILE__ == $0
+  Duby.run(ARGV[0], *ARGV[1..-1])
+end