ikra 0.0.1

data/lib/sourcify/lib/sourcify/common/ragel/machines.rl

@@ -0,0 +1,317 @@
+%%{
+  machine common_machines;
+
+## MACHINE >> One-liner comment
+
+  per_line_comment := |*
+    ^newline* => {
+      push(:comment, ts.pred, te)
+      fgoto main;
+    };
+  *|;
+
+## MACHINE >> Block comment
+
+  block_comment := |*
+    any* . newline . '=end' . ospaces . ^newline* => {
+      unless push_comment(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+
+## MACHINE >> Heredoc
+
+  heredoc := |*
+    ^newline* . newline . ospaces . ^newline+ => {
+      unless push_heredoc(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+
+## MACHINE >> String
+
+  string := |*
+
+    sqm = '%q' | '%w';
+    dqm = '%Q' | '%W' | '%x' | '%r' | '%';
+
+    ## == Single quote strings
+    sqs1  = "'" . ([^\']* | ([^\'\\]*[\\][\'][^\']*)*) . '\\\\'* . "'";
+    sqs2  = '~' . ([^\~]* | ([^\~\\]*[\\][\~][^\~]*)*) . '\\\\'* . '~';
+    sqs3  = '`' . ([^\`]* | ([^\`\\]*[\\][\`][^\`]*)*) . '\\\\'* . '`';
+    sqs4  = '!' . ([^\!]* | ([^\!\\]*[\\][\!][^\!]*)*) . '\\\\'* . '!';
+    sqs5  = '@' . ([^\@]* | ([^\@\\]*[\\][\@][^\@]*)*) . '\\\\'* . '@';
+    sqs6  = '#' . ([^\#]* | ([^\#\\]*[\\][\#][^\#]*)*) . '\\\\'* . '#';
+    sqs7  = '$' . ([^\$]* | ([^\$\\]*[\\][\$][^\$]*)*) . '\\\\'* . '$';
+    sqs8  = '%' . ([^\%]* | ([^\%\\]*[\\][\%][^\%]*)*) . '\\\\'* . '%';
+    sqs9  = '^' . ([^\^]* | ([^\^\\]*[\\][\^][^\^]*)*) . '\\\\'* . '^';
+    sqs10 = '&' . ([^\&]* | ([^\&\\]*[\\][\&][^\&]*)*) . '\\\\'* . '&';
+    sqs11 = '*' . ([^\*]* | ([^\*\\]*[\\][\*][^\*]*)*) . '\\\\'* . '*';
+    sqs12 = '-' . ([^\-]* | ([^\-\\]*[\\][\-][^\-]*)*) . '\\\\'* . '-';
+    sqs13 = '_' . ([^\_]* | ([^\_\\]*[\\][\_][^\_]*)*) . '\\\\'* . '_';
+    sqs14 = '+' . ([^\+]* | ([^\+\\]*[\\][\+][^\+]*)*) . '\\\\'* . '+';
+    sqs15 = '=' . ([^\=]* | ([^\=\\]*[\\][\=][^\=]*)*) . '\\\\'* . '=';
+    sqs16 = '<' . ([^\>]* | ([^\>\\]*[\\][\>][^\>]*)*) . '\\\\'* . '>';
+    sqs17 = '|' . ([^\|]* | ([^\|\\]*[\\][\|][^\|]*)*) . '\\\\'* . '|';
+    sqs18 = ':' . ([^\:]* | ([^\:\\]*[\\][\:][^\:]*)*) . '\\\\'* . ':';
+    sqs19 = ';' . ([^\;]* | ([^\;\\]*[\\][\;][^\;]*)*) . '\\\\'* . ';';
+    sqs20 = '"' . ([^\"]* | ([^\"\\]*[\\][\"][^\"]*)*) . '\\\\'* . '"';
+    sqs21 = ',' . ([^\,]* | ([^\,\\]*[\\][\,][^\,]*)*) . '\\\\'* . ',';
+    sqs22 = '.' . ([^\.]* | ([^\.\\]*[\\][\.][^\.]*)*) . '\\\\'* . '.';
+    sqs23 = '?' . ([^\?]* | ([^\?\\]*[\\][\?][^\?]*)*) . '\\\\'* . '?';
+    sqs24 = '/' . ([^\/]* | ([^\/\\]*[\\][\/][^\/]*)*) . '\\\\'* . '/';
+    sqs25 = '{' . ([^\}]* | ([^\}\\]*[\\][\}][^\}]*)*) . '\\\\'* . '}';
+    sqs26 = '[' . ([^\]]* | ([^\]\\]*[\\][\]][^\]]*)*) . '\\\\'* . ']';
+    sqs27 = '(' . ([^\)]* | ([^\)\\]*[\\][\)][^\)]*)*) . '\\\\'* . ')';
+    sqs28 = '\\' . ([^\\]* | ([^\)]*[\\][\\][^\\]*)*) . '\\';
+
+    ( sqs1        | sqm . sqs1  | sqm . sqs2  | sqm . sqs3  | sqm . sqs4  |
+      sqm . sqs5  | sqm . sqs6  | sqm . sqs7  | sqm . sqs8  | sqm . sqs9  |
+      sqm . sqs10 | sqm . sqs11 | sqm . sqs12 | sqm . sqs13 | sqm . sqs14 |
+      sqm . sqs15 | sqm . sqs16 | sqm . sqs17 | sqm . sqs18 | sqm . sqs19 |
+      sqm . sqs20 | sqm . sqs21 | sqm . sqs22 | sqm . sqs23 | sqm . sqs24 |
+      sqm . sqs25 | sqm . sqs26 | sqm . sqs27 | sqm . sqs28
+    ) => {
+      push(:sstring, ts, te);
+      fgoto main;
+    };
+
+    ## == Double quote strings
+    (dqm . '"') | '"' => { push_dstring(ts, te); fgoto dstring1; };
+    (dqm . "'") | "'" => { push_dstring(ts, te); fgoto dstring2; };
+    (dqm . '/') | '/' => { push_dstring(ts, te); fgoto dstring3; };
+    (dqm . '`') | '`' => { push_dstring(ts, te); fgoto dstring4; };
+    dqm . '~'  => { push_dstring(ts, te); fgoto dstring5; };
+    dqm . '!'  => { push_dstring(ts, te); fgoto dstring6; };
+    dqm . '@'  => { push_dstring(ts, te); fgoto dstring7; };
+    dqm . '#'  => { push_dstring(ts, te); fgoto dstring8; };
+    dqm . '$'  => { push_dstring(ts, te); fgoto dstring9; };
+    dqm . '%'  => { push_dstring(ts, te); fgoto dstring10; };
+    dqm . '^'  => { push_dstring(ts, te); fgoto dstring11; };
+    dqm . '&'  => { push_dstring(ts, te); fgoto dstring12; };
+    dqm . '*'  => { push_dstring(ts, te); fgoto dstring13; };
+    dqm . '-'  => { push_dstring(ts, te); fgoto dstring14; };
+    dqm . '_'  => { push_dstring(ts, te); fgoto dstring15; };
+    dqm . '+'  => { push_dstring(ts, te); fgoto dstring16; };
+    dqm . '='  => { push_dstring(ts, te); fgoto dstring17; };
+    dqm . '<'  => { push_dstring(ts, te); fgoto dstring18; };
+    dqm . '|'  => { push_dstring(ts, te); fgoto dstring19; };
+    dqm . ':'  => { push_dstring(ts, te); fgoto dstring20; };
+    dqm . ';'  => { push_dstring(ts, te); fgoto dstring21; };
+    dqm . ','  => { push_dstring(ts, te); fgoto dstring22; };
+    dqm . '.'  => { push_dstring(ts, te); fgoto dstring23; };
+    dqm . '?'  => { push_dstring(ts, te); fgoto dstring24; };
+    dqm . '{'  => { push_dstring(ts, te); fgoto dstring25; };
+    dqm . '['  => { push_dstring(ts, te); fgoto dstring26; };
+    dqm . '('  => { push_dstring(ts, te); fgoto dstring27; };
+    dqm . '\\' => { push_dstring(ts, te); fgoto dstring28; };
+
+    ## == Anything accidentally caught
+    any => {
+      push(:any, ts, te)
+      fgoto main;
+    };
+  *|;
+
+## MACHINES >> Double quote strings
+
+  dstring1 := |*
+    [^\"]*[\"] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring2 := |*
+    [^\']*[\'] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring3 := |*
+    [^\/]*[\/] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring4 := |*
+    [^\`]*[\`] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring5 := |*
+    [^\~]*[\~] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring6 := |*
+    [^\!]*[\!] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring7 := |*
+    [^\@]*[\@] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring8 := |*
+    [^\#]*[\#] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring9 := |*
+    [^\$]*[\$] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring10 := |*
+    [^\%]*[\%] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring11 := |*
+    [^\^]*[\^] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring12 := |*
+    [^\&]*[\&] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring13 := |*
+    [^\*]*[\*] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring14 := |*
+    [^\-]*[\-] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring15 := |*
+    [^\_]*[\_] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring16 := |*
+    [^\+]*[\+] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring17 := |*
+    [^\=]*[\=] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring18 := |*
+    [^\>]*[\>] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring19 := |*
+    [^\|]*[\|] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring20 := |*
+    [^\:]*[\:] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring21 := |*
+    [^\;]*[\;] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring22 := |*
+    [^\,]*[\,] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring23 := |*
+    [^\.]*[\.] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring24 := |*
+    [^\?]*[\?] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring25 := |*
+    [^\}]*[\}] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring26 := |*
+    [^\]]*[\]] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring27 := |*
+    [^\)]*[\)] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+  dstring28 := |*
+    [^\\]*[\\] => {
+      unless push_dstring(ts, te)
+        fgoto main;
+      end
+    };
+  *|;
+
+}%%

data/lib/sourcify/lib/sourcify/errors.rb

@@ -0,0 +1,4 @@
+module Sourcify
+  class ParserInternalError < Exception; end
+  class CannotParseEvalCodeError < Exception; end
+end

data/lib/sourcify/lib/sourcify/method.rb

@@ -0,0 +1,138 @@
+module Sourcify
+
+  class MultipleMatchingMethodsPerLineError < Exception; end
+  class NoMatchingMethodError < Exception; end
+  class CannotFindSourceLocationError < Exception; end
+  class PlatformNotSupportedError < Exception; end
+
+  IS_PLATFORM_SUPPORTED =
+    begin
+      [:source_location, :parameters].each{|meth| 1.method(:to_s).send(meth) }
+      raise PlatformNotSupportedError if RUBY_PLATFORM =~ /java/i
+      true
+    rescue NoMethodError, PlatformNotSupportedError
+      false
+    end
+
+  module Method
+
+    def self.included(base) #:nodoc:
+      base.class_eval do
+        Sourcify.require_rb('method', 'methods')
+        include Methods::ToSource
+        include Methods::ToSexp
+        include Methods::ToRawSource
+      end
+    end
+
+    module Stubs
+
+      ###
+      # Returns the code representation of this method. Unlike Method#to_raw_source,
+      # the returned code retains only the functional aspects, fluff like comments
+      # are stripped off.
+      #
+      #   class MyMath
+      #     def self.sum(x, y)
+      #       x + y # (blah)
+      #     end
+      #   end
+      #
+      #   MyMath.method(:sum).to_source
+      #   # >> "def sum(x, y)
+      #   # >>   (x + y)
+      #   # >> end"
+      #
+      # This works for method defined via Module#define_method as well. The following
+      # approach of defining method yields exactly the same result as above:
+      #
+      #   class MyMath
+      #     class << self
+      #       define_method(:sum) do |x,y|
+      #         x + y # (blah)
+      #       end
+      #     end
+      #   end
+      #
+      #   MyMath.method(:sum).to_source
+      #   # >> "def sum(x, y)
+      #   # >>   (x + y)
+      #   # >> end"
+      #
+      # The following options are supported:
+      #
+      # * +:strip_enclosure+ when set to true, strips the method enclosure to get
+      #   just the meat within.
+      #
+      #     MyMath.method(:sum).to_source(:strip_enclosure => true)
+      #     # >> "(x + y)"
+      #
+      # * +:attached_to+ is useful ONLY when a method is defined via
+      #   Module#define_method, pls see Sourcify::Proc::Stubs#to_source for more info.
+      #
+      # * +:ignore_nested+ is useful ONLY when a method is defined via
+      #   Module#define_method, pls see Sourcify::Proc::Stubs#to_source for more info.
+      #
+      # * an optional +body_matcher+ block is supported as well, again this is ONLY
+      #   useful for method defined via Module#define_method, pls see
+      #   Sourcify::Proc::Stubs#to_source for more info.
+      #
+      def to_source(opts={}, &body_matcher)
+        # NOTE: this is a stub for the actual one in Methods::ToSource
+      end
+
+      ###
+      # Returns the S-expression representation of this method.
+      #
+      #   class MyMath
+      #     def self.sum(x, y)
+      #       x + y # (blah)
+      #     end
+      #   end
+      #
+      #   MyMath.method(:sum).to_sexp
+      #   >> s(:defn,
+      #   >>  :sum,
+      #   >>  s(:args, :x, :y),
+      #   >>  s(:scope, s(:block, s(:call, s(:lvar, :x), :+, s(:arglist, s(:lvar, :y))))))
+      #
+      # This works for methods defined via Module#define_method as well. Pls see
+      # #to_source for options/arguments supported.
+      #
+      def to_sexp(opts={}, &body_matcher)
+        # NOTE: this is a stub for the actual one in Methods::ToSexp
+      end
+
+      ###
+      # Returns the raw code enclosed within this method.
+      #
+      #   class MyMath
+      #     def self.sum(x, y)
+      #       x + y # (blah)
+      #     end
+      #   end
+      #
+      #   MyMath.method(:sum).to_raw_source
+      #   >> "def sum(x, y)
+      #   >>   x + y # (blah)
+      #   >> end"
+      #
+      # This works for methods defined via Module#define_method as well. Pls see
+      # #to_source for options/arguments supported.
+      #
+      def to_raw_source(opts={}, &body_matcher)
+        # NOTE: this is a stub for the actual one in Methods::ToRawSource
+      end
+
+    end
+
+  end
+end
+
+Method.class_eval do
+  include Sourcify::Method
+end
+
+UnboundMethod.class_eval do
+  include Sourcify::Method
+end