lazy_record 0.2.1 → 0.2.2

data/vendor/bundle/gems/coderay-1.1.1/lib/coderay/helpers/word_list.rb

@@ -1,72 +0,0 @@
-module CodeRay
-  
-  # = WordList
-  # 
-  # <b>A Hash subclass designed for mapping word lists to token types.</b>
-  # 
-  # A WordList is a Hash with some additional features.
-  # It is intended to be used for keyword recognition.
-  #
-  # WordList is optimized to be used in Scanners,
-  # typically to decide whether a given ident is a special token.
-  #
-  # For case insensitive words use WordList::CaseIgnoring.
-  #
-  # Example:
-  #
-  #  # define word arrays
-  #  RESERVED_WORDS = %w[
-  #    asm break case continue default do else
-  #  ]
-  #  
-  #  PREDEFINED_TYPES = %w[
-  #    int long short char void
-  #  ]
-  #  
-  #  # make a WordList
-  #  IDENT_KIND = WordList.new(:ident).
-  #    add(RESERVED_WORDS, :reserved).
-  #    add(PREDEFINED_TYPES, :predefined_type)
-  #  
-  #  ...
-  #  
-  #  def scan_tokens tokens, options
-  #    ...
-  #    
-  #    elsif scan(/[A-Za-z_][A-Za-z_0-9]*/)
-  #      # use it
-  #      kind = IDENT_KIND[match]
-  #      ...
-  class WordList < Hash
-    
-    # Create a new WordList with +default+ as default value.
-    def initialize default = false
-      super default
-    end
-    
-    # Add words to the list and associate them with +value+.
-    # 
-    # Returns +self+, so you can concat add calls.
-    def add words, value = true
-      words.each { |word| self[word] = value }
-      self
-    end
-    
-  end
-  
-  
-  # A CaseIgnoring WordList is like a WordList, only that
-  # keys are compared case-insensitively (normalizing keys using +downcase+).
-  class WordList::CaseIgnoring < WordList
-    
-    def [] key
-      super key.downcase
-    end
-    
-    def []= key, value
-      super key.downcase, value
-    end
-    
-  end
-  
-end

data/vendor/bundle/gems/coderay-1.1.1/lib/coderay/scanners.rb

@@ -1,27 +0,0 @@
-require 'strscan'
-
-module CodeRay
-  
-  autoload :WordList, coderay_path('helpers', 'word_list')
-  
-  # = Scanners
-  #
-  # This module holds the Scanner class and its subclasses.
-  # For example, the Ruby scanner is named CodeRay::Scanners::Ruby
-  # can be found in coderay/scanners/ruby.
-  #
-  # Scanner also provides methods and constants for the register
-  # mechanism and the [] method that returns the Scanner class
-  # belonging to the given lang.
-  #
-  # See PluginHost.
-  module Scanners
-    
-    extend PluginHost
-    plugin_path File.dirname(__FILE__), 'scanners'
-    
-    autoload :Scanner, CodeRay.coderay_path('scanners', 'scanner')
-    
-  end
-  
-end

data/vendor/bundle/gems/coderay-1.1.1/lib/coderay/scanners/_map.rb

@@ -1,24 +0,0 @@
-module CodeRay
-module Scanners
-  
-  map \
-    :'c++'       => :cpp,
-    :cplusplus   => :cpp,
-    :ecmascript  => :java_script,
-    :ecma_script => :java_script,
-    :rhtml       => :erb,
-    :eruby       => :erb,
-    :irb         => :ruby,
-    :javascript  => :java_script,
-    :js          => :java_script,
-    :pascal      => :delphi,
-    :patch       => :diff,
-    :plain       => :text,
-    :plaintext   => :text,
-    :xhtml       => :html,
-    :yml         => :yaml
-  
-  default :text
-  
-end
-end

data/vendor/bundle/gems/coderay-1.1.1/lib/coderay/scanners/c.rb

@@ -1,189 +0,0 @@
-module CodeRay
-module Scanners
-  
-  # Scanner for C.
-  class C < Scanner
-
-    register_for :c
-    file_extension 'c'
-    
-    KEYWORDS = [
-      'asm', 'break', 'case', 'continue', 'default', 'do',
-      'else', 'enum', 'for', 'goto', 'if', 'return',
-      'sizeof', 'struct', 'switch', 'typedef', 'union', 'while',
-      'restrict',  # added in C99
-    ]  # :nodoc:
-
-    PREDEFINED_TYPES = [
-      'int', 'long', 'short', 'char',
-      'signed', 'unsigned', 'float', 'double',
-      'bool', 'complex',  # added in C99
-    ]  # :nodoc:
-
-    PREDEFINED_CONSTANTS = [
-      'EOF', 'NULL',
-      'true', 'false',  # added in C99
-    ]  # :nodoc:
-    DIRECTIVES = [
-      'auto', 'extern', 'register', 'static', 'void',
-      'const', 'volatile',  # added in C89
-      'inline',  # added in C99
-    ]  # :nodoc:
-
-    IDENT_KIND = WordList.new(:ident).
-      add(KEYWORDS, :keyword).
-      add(PREDEFINED_TYPES, :predefined_type).
-      add(DIRECTIVES, :directive).
-      add(PREDEFINED_CONSTANTS, :predefined_constant)  # :nodoc:
-
-    ESCAPE = / [rbfntv\n\\'"] | x[a-fA-F0-9]{1,2} | [0-7]{1,3} /x  # :nodoc:
-    UNICODE_ESCAPE =  / u[a-fA-F0-9]{4} | U[a-fA-F0-9]{8} /x  # :nodoc:
-    
-  protected
-    
-    def scan_tokens encoder, options
-
-      state = :initial
-      label_expected = true
-      case_expected = false
-      label_expected_before_preproc_line = nil
-      in_preproc_line = false
-
-      until eos?
-
-        case state
-
-        when :initial
-
-          if match = scan(/ \s+ | \\\n /x)
-            if in_preproc_line && match != "\\\n" && match.index(?\n)
-              in_preproc_line = false
-              label_expected = label_expected_before_preproc_line
-            end
-            encoder.text_token match, :space
-
-          elsif match = scan(%r! // [^\n\\]* (?: \\. [^\n\\]* )* | /\* (?: .*? \*/ | .* ) !mx)
-            encoder.text_token match, :comment
-
-          elsif match = scan(/ [-+*=<>?:;,!&^|()\[\]{}~%]+ | \/=? | \.(?!\d) /x)
-            label_expected = match =~ /[;\{\}]/
-            if case_expected
-              label_expected = true if match == ':'
-              case_expected = false
-            end
-            encoder.text_token match, :operator
-
-          elsif match = scan(/ [A-Za-z_][A-Za-z_0-9]* /x)
-            kind = IDENT_KIND[match]
-            if kind == :ident && label_expected && !in_preproc_line && scan(/:(?!:)/)
-              kind = :label
-              match << matched
-            else
-              label_expected = false
-              if kind == :keyword
-                case match
-                when 'case', 'default'
-                  case_expected = true
-                end
-              end
-            end
-            encoder.text_token match, kind
-
-          elsif match = scan(/L?"/)
-            encoder.begin_group :string
-            if match[0] == ?L
-              encoder.text_token 'L', :modifier
-              match = '"'
-            end
-            encoder.text_token match, :delimiter
-            state = :string
-
-          elsif match = scan(/ \# \s* if \s* 0 /x)
-            match << scan_until(/ ^\# (?:elif|else|endif) .*? $ | \z /xm) unless eos?
-            encoder.text_token match, :comment
-
-          elsif match = scan(/#[ \t]*(\w*)/)
-            encoder.text_token match, :preprocessor
-            in_preproc_line = true
-            label_expected_before_preproc_line = label_expected
-            state = :include_expected if self[1] == 'include'
-
-          elsif match = scan(/ L?' (?: [^\'\n\\] | \\ #{ESCAPE} )? '? /ox)
-            label_expected = false
-            encoder.text_token match, :char
-
-          elsif match = scan(/\$/)
-            encoder.text_token match, :ident
-          
-          elsif match = scan(/0[xX][0-9A-Fa-f]+/)
-            label_expected = false
-            encoder.text_token match, :hex
-
-          elsif match = scan(/(?:0[0-7]+)(?![89.eEfF])/)
-            label_expected = false
-            encoder.text_token match, :octal
-
-          elsif match = scan(/(?:\d+)(?![.eEfF])L?L?/)
-            label_expected = false
-            encoder.text_token match, :integer
-
-          elsif match = scan(/\d[fF]?|\d*\.\d+(?:[eE][+-]?\d+)?[fF]?|\d+[eE][+-]?\d+[fF]?/)
-            label_expected = false
-            encoder.text_token match, :float
-
-          else
-            encoder.text_token getch, :error
-
-          end
-
-        when :string
-          if match = scan(/[^\\\n"]+/)
-            encoder.text_token match, :content
-          elsif match = scan(/"/)
-            encoder.text_token match, :delimiter
-            encoder.end_group :string
-            state = :initial
-            label_expected = false
-          elsif match = scan(/ \\ (?: #{ESCAPE} | #{UNICODE_ESCAPE} ) /mox)
-            encoder.text_token match, :char
-          elsif match = scan(/ \\ | $ /x)
-            encoder.end_group :string
-            encoder.text_token match, :error unless match.empty?
-            state = :initial
-            label_expected = false
-          else
-            raise_inspect "else case \" reached; %p not handled." % peek(1), encoder
-          end
-
-        when :include_expected
-          if match = scan(/<[^>\n]+>?|"[^"\n\\]*(?:\\.[^"\n\\]*)*"?/)
-            encoder.text_token match, :include
-            state = :initial
-
-          elsif match = scan(/\s+/)
-            encoder.text_token match, :space
-            state = :initial if match.index ?\n
-
-          else
-            state = :initial
-
-          end
-
-        else
-          raise_inspect 'Unknown state', encoder
-
-        end
-
-      end
-
-      if state == :string
-        encoder.end_group :string
-      end
-
-      encoder
-    end
-
-  end
-
-end
-end

data/vendor/bundle/gems/coderay-1.1.1/lib/coderay/scanners/clojure.rb

@@ -1,217 +0,0 @@
-# encoding: utf-8
-module CodeRay
-  module Scanners
-    
-    # Clojure scanner by Licenser.
-    class Clojure < Scanner
-      
-      register_for :clojure
-      file_extension 'clj'
-      
-      SPECIAL_FORMS = %w[
-        def if do let quote var fn loop recur throw try catch monitor-enter monitor-exit .
-        new 
-      ]  # :nodoc:
-      
-      CORE_FORMS = %w[
-        + - -> ->> .. / * <= < = == >= > accessor aclone add-classpath add-watch
-        agent agent-error agent-errors aget alength alias all-ns alter alter-meta!
-        alter-var-root amap ancestors and apply areduce array-map aset aset-boolean
-        aset-byte aset-char aset-double aset-float aset-int aset-long aset-short
-        assert assoc assoc! assoc-in associative? atom await await-for bases bean
-        bigdec bigint binding bit-and bit-and-not bit-clear bit-flip bit-not bit-or
-        bit-set bit-shift-left bit-shift-right bit-test bit-xor boolean boolean-array
-        booleans bound-fn bound-fn* bound? butlast byte byte-array bytes case cast char
-        char-array char-escape-string char-name-string char? chars class class?
-        clear-agent-errors clojure-version coll? comment commute comp comparator
-        compare compare-and-set! compile complement concat cond condp conj conj!
-        cons constantly construct-proxy contains? count counted? create-ns
-        create-struct cycle dec decimal? declare definline defmacro defmethod defmulti
-        defn defn- defonce defprotocol defrecord defstruct deftype delay delay?
-        deliver denominator deref derive descendants disj disj! dissoc dissoc!
-        distinct distinct? doall doc dorun doseq dosync dotimes doto double
-        double-array doubles drop drop-last drop-while empty empty? ensure
-        enumeration-seq error-handler error-mode eval even? every? extend
-        extend-protocol extend-type extenders extends? false? ffirst file-seq
-        filter find find-doc find-ns find-var first float float-array float?
-        floats flush fn fn? fnext for force format future future-call future-cancel
-        future-cancelled? future-done? future? gen-class gen-interface gensym get
-        get-in get-method get-proxy-class get-thread-bindings get-validator hash
-        hash-map hash-set identical? identity if-let if-not ifn? import in-ns
-        inc init-proxy instance? int int-array integer? interleave intern
-        interpose into into-array ints io! isa? iterate iterator-seq juxt key
-        keys keyword keyword? last lazy-cat lazy-seq let letfn line-seq list list*
-        list? load load-file load-reader load-string loaded-libs locking long
-        long-array longs loop macroexpand macroexpand-1 make-array make-hierarchy
-        map map? mapcat max max-key memfn memoize merge merge-with meta methods
-        min min-key mod name namespace neg? newline next nfirst nil? nnext not
-        not-any? not-empty not-every? not= ns ns-aliases ns-imports ns-interns
-        ns-map ns-name ns-publics ns-refers ns-resolve ns-unalias ns-unmap nth
-        nthnext num number? numerator object-array odd? or parents partial
-        partition pcalls peek persistent! pmap pop pop! pop-thread-bindings
-        pos? pr pr-str prefer-method prefers print print-namespace-doc
-        print-str printf println println-str prn prn-str promise proxy
-        proxy-mappings proxy-super push-thread-bindings pvalues quot rand
-        rand-int range ratio? rationalize re-find re-groups re-matcher
-        re-matches re-pattern re-seq read read-line read-string reduce ref
-        ref-history-count ref-max-history ref-min-history ref-set refer
-        refer-clojure reify release-pending-sends rem remove remove-all-methods
-        remove-method remove-ns remove-watch repeat repeatedly replace replicate
-        require reset! reset-meta! resolve rest restart-agent resultset-seq
-        reverse reversible? rseq rsubseq satisfies? second select-keys send
-        send-off seq seq? seque sequence sequential? set set-error-handler!
-        set-error-mode! set-validator! set? short short-array shorts
-        shutdown-agents slurp some sort sort-by sorted-map sorted-map-by
-        sorted-set sorted-set-by sorted? special-form-anchor special-symbol?
-        split-at split-with str string? struct struct-map subs subseq subvec
-        supers swap! symbol symbol? sync syntax-symbol-anchor take take-last
-        take-nth take-while test the-ns thread-bound? time to-array to-array-2d
-        trampoline transient tree-seq true? type unchecked-add unchecked-dec
-        unchecked-divide unchecked-inc unchecked-multiply unchecked-negate
-        unchecked-remainder unchecked-subtract underive update-in update-proxy
-        use val vals var-get var-set var? vary-meta vec vector vector-of vector?
-        when when-first when-let when-not while with-bindings with-bindings*
-        with-in-str with-local-vars with-meta with-open with-out-str
-        with-precision xml-seq zero? zipmap 
-      ]  # :nodoc:
-      
-      PREDEFINED_CONSTANTS = %w[
-        true false nil *1 *2 *3 *agent* *clojure-version* *command-line-args*
-        *compile-files* *compile-path* *e *err* *file* *flush-on-newline*
-        *in* *ns* *out* *print-dup* *print-length* *print-level* *print-meta*
-        *print-readably* *read-eval* *warn-on-reflection*
-      ]  # :nodoc:
-      
-      IDENT_KIND = WordList.new(:ident).
-        add(SPECIAL_FORMS, :keyword).
-        add(CORE_FORMS, :keyword).
-        add(PREDEFINED_CONSTANTS, :predefined_constant)
-      
-      KEYWORD_NEXT_TOKEN_KIND = WordList.new(nil).
-        add(%w[ def defn defn- definline defmacro defmulti defmethod defstruct defonce declare ], :function).
-        add(%w[ ns ], :namespace).
-        add(%w[ defprotocol defrecord ], :class)
-      
-      BASIC_IDENTIFIER = /[a-zA-Z$%*\/_+!?&<>\-=]=?[a-zA-Z0-9$&*+!\/_?<>\-\#]*/
-      IDENTIFIER = /(?!-\d)(?:(?:#{BASIC_IDENTIFIER}\.)*#{BASIC_IDENTIFIER}(?:\/#{BASIC_IDENTIFIER})?\.?)|\.\.?/
-      SYMBOL = /::?#{IDENTIFIER}/o
-      DIGIT = /\d/
-      DIGIT10 = DIGIT
-      DIGIT16 = /[0-9a-f]/i
-      DIGIT8 = /[0-7]/
-      DIGIT2 = /[01]/
-      RADIX16 = /\#x/i
-      RADIX8 = /\#o/i
-      RADIX2 = /\#b/i
-      RADIX10 = /\#d/i
-      EXACTNESS = /#i|#e/i
-      SIGN = /[\+-]?/
-      EXP_MARK = /[esfdl]/i
-      EXP = /#{EXP_MARK}#{SIGN}#{DIGIT}+/
-      SUFFIX = /#{EXP}?/
-      PREFIX10 = /#{RADIX10}?#{EXACTNESS}?|#{EXACTNESS}?#{RADIX10}?/
-      PREFIX16 = /#{RADIX16}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX16}/
-      PREFIX8 = /#{RADIX8}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX8}/
-      PREFIX2 = /#{RADIX2}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX2}/
-      UINT10 = /#{DIGIT10}+#*/
-      UINT16 = /#{DIGIT16}+#*/
-      UINT8 = /#{DIGIT8}+#*/
-      UINT2 = /#{DIGIT2}+#*/
-      DECIMAL = /#{DIGIT10}+#+\.#*#{SUFFIX}|#{DIGIT10}+\.#{DIGIT10}*#*#{SUFFIX}|\.#{DIGIT10}+#*#{SUFFIX}|#{UINT10}#{EXP}/
-      UREAL10 = /#{UINT10}\/#{UINT10}|#{DECIMAL}|#{UINT10}/
-      UREAL16 = /#{UINT16}\/#{UINT16}|#{UINT16}/
-      UREAL8 = /#{UINT8}\/#{UINT8}|#{UINT8}/
-      UREAL2 = /#{UINT2}\/#{UINT2}|#{UINT2}/
-      REAL10 = /#{SIGN}#{UREAL10}/
-      REAL16 = /#{SIGN}#{UREAL16}/
-      REAL8 = /#{SIGN}#{UREAL8}/
-      REAL2 = /#{SIGN}#{UREAL2}/
-      IMAG10 = /i|#{UREAL10}i/
-      IMAG16 = /i|#{UREAL16}i/
-      IMAG8 = /i|#{UREAL8}i/
-      IMAG2 = /i|#{UREAL2}i/
-      COMPLEX10 = /#{REAL10}@#{REAL10}|#{REAL10}\+#{IMAG10}|#{REAL10}-#{IMAG10}|\+#{IMAG10}|-#{IMAG10}|#{REAL10}/
-      COMPLEX16 = /#{REAL16}@#{REAL16}|#{REAL16}\+#{IMAG16}|#{REAL16}-#{IMAG16}|\+#{IMAG16}|-#{IMAG16}|#{REAL16}/
-      COMPLEX8 = /#{REAL8}@#{REAL8}|#{REAL8}\+#{IMAG8}|#{REAL8}-#{IMAG8}|\+#{IMAG8}|-#{IMAG8}|#{REAL8}/
-      COMPLEX2 = /#{REAL2}@#{REAL2}|#{REAL2}\+#{IMAG2}|#{REAL2}-#{IMAG2}|\+#{IMAG2}|-#{IMAG2}|#{REAL2}/
-      NUM10 = /#{PREFIX10}?#{COMPLEX10}/
-      NUM16 = /#{PREFIX16}#{COMPLEX16}/
-      NUM8 = /#{PREFIX8}#{COMPLEX8}/
-      NUM2 = /#{PREFIX2}#{COMPLEX2}/
-      NUM = /#{NUM10}|#{NUM16}|#{NUM8}|#{NUM2}/
-      
-    protected
-      
-      def scan_tokens encoder, options
-        
-        state = :initial
-        kind = nil
-        
-        until eos?
-          
-          case state
-          when :initial
-            if match = scan(/ \s+ | \\\n | , /x)
-              encoder.text_token match, :space
-            elsif match = scan(/['`\(\[\)\]\{\}]|\#[({]|~@?|[@\^]/)
-              encoder.text_token match, :operator
-            elsif match = scan(/;.*/)
-              encoder.text_token match, :comment  # TODO: recognize (comment ...) too
-            elsif match = scan(/\#?\\(?:newline|space|.?)/)
-              encoder.text_token match, :char
-            elsif match = scan(/\#[ft]/)
-              encoder.text_token match, :predefined_constant
-            elsif match = scan(/#{IDENTIFIER}/o)
-              kind = IDENT_KIND[match]
-              encoder.text_token match, kind
-              if rest? && kind == :keyword
-                if kind = KEYWORD_NEXT_TOKEN_KIND[match]
-                  encoder.text_token match, :space if match = scan(/\s+/o)
-                  encoder.text_token match, kind if match = scan(/#{IDENTIFIER}/o)
-                end
-              end
-            elsif match = scan(/#{SYMBOL}/o)
-              encoder.text_token match, :symbol
-            elsif match = scan(/\./)
-              encoder.text_token match, :operator
-            elsif match = scan(/ \# \^ #{IDENTIFIER} /ox)
-              encoder.text_token match, :type
-            elsif match = scan(/ (\#)? " /x)
-              state = self[1] ? :regexp : :string
-              encoder.begin_group state
-              encoder.text_token match, :delimiter
-            elsif match = scan(/#{NUM}/o) and not matched.empty?
-              encoder.text_token match, match[/[.e\/]/i] ? :float : :integer
-            else
-              encoder.text_token getch, :error
-            end
-            
-          when :string, :regexp
-            if match = scan(/[^"\\]+|\\.?/)
-              encoder.text_token match, :content
-            elsif match = scan(/"/)
-              encoder.text_token match, :delimiter
-              encoder.end_group state
-              state = :initial
-            else
-              raise_inspect "else case \" reached; %p not handled." % peek(1),
-                encoder, state
-            end
-            
-          else
-            raise 'else case reached'
-            
-          end
-          
-        end
-        
-        if [:string, :regexp].include? state
-          encoder.end_group state
-        end
-        
-        encoder
-        
-      end
-    end
-  end
-end