DSP Robotics Support

Code: Select all

CodeRay.scan("5.times do\n  puts 'Hello, world!'\nend", :ruby).div(:line_numbers => :table)

Code: Select all

require "coderay"

class RubyEdit

   Black = invertedColours ? [255,255,255] : [0,0,0]
   Brown = [128,64,0]
   Red = [163,20,20]
   Blue = [0,0,255]
   Green = [0,128,0]
   Pink = [200,0,200]
   Gold = [128,128,0]
   Purple = [100,0,200]
   Grey50 = [128,128,128]
   Silver = [100,100,64]
   
   def parse v,f

      sourceLines = Array.new
      v.each_line {|s| sourceLines.push s}
      startIndex=0
      lineStartIndeces=[0]
      startIndex=v.index("\n",0)
      while startIndex
         lineStartIndeces<<(startIndex+1)
         startIndex=v.index("\n",startIndex+2)
      end
            
      v.force_encoding "utf-8"
      tp=CodeRay.scan(v,:ruby).div(:line_numbers => :table) #Doesn't work it outputs HTML
      lines=[]
      nLines=sourceLines.count
      nLines.times {lines<<[]}
      ci=0
      strings=[]
      types=[]
      tp.each_with_index do |t,i|
         if i.even? then strings<<t end
         if i.odd? then types<<t end
         # Check for newlines inside the current string and split
         # where necessary
         if i.odd?
            if t != :string && t != :space && strings.last.class == String
               subs = strings.last.split("\n")
               if subs.size > 0 
                  s = strings.pop
                  t = types.pop
                  subs.each do |str|
                     if str.size > 0
                        strings<<str
                        types<<t
                     end
                     strings<<"\n"
                     types<<:space
                  end
                  if s.index("\n") != s.length-1 
                     s = strings.pop
                     t = types.pop               
                  end
               end
            end
         end
      end
      
      ln=0 
      for i in 0..strings.count-1
         item=[]
         t=types[i]
         s=strings[i]
         if s.eql? "\n"
            ln+=1
         elsif t!=:space && s.class==String
            i1=v.index(s,ci)
            if i1
               ci=i1+s.length
               item<<i1-lineStartIndeces[ln]<<s.length<<t
               if ln<nLines
                  lines[ln]<<item
               end
            end
         end
      end

      # Set up colour scheme
      m={ :ident=>Black,:delimeter=>Black,:operator=>Black,
         :keyword=>Blue,:class=>Pink,:method=>Black,:comment=>Green,
         :class_variable=>Gold,:instance_variable=>Gold,:global_variable=>Silver,
         :symbol=>Grey50,:constant=>Pink,
         :integer=>Red,:float=>Red,:char=>Red,:content=>Red,:string=>Pink,
         :regexp=>Black,:shell=>Black,:schematic=>Purple }

      # Set up our own commands
      schemCmds = ["output","input","watch","releaseMouse","captureMouse",
                "redraw","time","parent","caption","alert","showCursor"]

      li=0
      
      # Colour the lines
      lines.each do |l|
         f.newLine
         os = 0

         if li < sourceLines.size
            len = sourceLines[li].chomp.length
         end

         l.each do |i| 
            t=i[2] 
            
            # Check if we ran onto another line (due to a line continuation '\')
            if i[0]-os > len 
               f.endLine len
               os += len+2
               f.newLine
               li+=1
               if li < sourceLines.size
                  len = sourceLines[li].chomp.length
               end
            end
            if (i[0]+i[1]-os-1) < len
               if( t == :ident && schemCmds.include?(sourceLines[li][(i[0]-os)..(i[0]-os+i[1]-1)]) )
                  t = :schematic
               end
               f.addSection i[0]-os,i[0]-os+i[1]-1,m[t]
            end
         end
      
         f.endLine len
         li+=1
      end
   end
end

Code: Select all

v.CodeRay.encode(v,:ruby,:text)

Code: Select all

def parse(*args, &block)
  @code_string = args[0]  # May not be the right index!
  super(*args, &block)  # Hand control back to the original method
end