ripxplore 0.0.1

data/lib/native_file_types/trs80/Trs80LevelIIBasic.rb

@@ -0,0 +1,201 @@
+require 'NativeFileType'
+
+
+class Trs80LevelIIBasic<NativeFileType
+
+def self.file_system_file_types
+  {
+    TrsDos=>:any
+  }
+end
+
+#BASIC files should start with 0xFF
+is_valid_file_if  lambda {contents[0]==0xFF}
+
+#filename should either have no extension, or end /BAS
+is_valid_file_if  lambda {filename=~/\/(BAS|)$/}
+
+  SINGLE_BYTE_TOKENS={
+0x80=>'END',
+0x81=>'FOR',
+0x82=>'RESET',
+0x83=>'SET',
+0x84=>'CLS',
+0x85=>'CMD',
+0x86=>'RANDOM',
+0x87=>'NEXT',
+0x88=>'DATA',
+0x89=>'INPUT',
+0x8A=>'DIM',
+0x8B=>'READ',
+0x8C=>'LET',
+0x8D=>'GOTO',
+0x8E=>'RUN',
+0x8F=>'IF',
+0x90=>'RESTORE',
+0x91=>'GOSUB',
+0x92=>'RETURN',
+0x93=>'REM',
+0x94=>'STOP',
+0x95=>'ELSE',
+0x96=>'TRON',
+0x97=>'TROFF',
+0x98=>'DEFSTR',
+0x99=>'DEFINT',
+0x9A=>'DEFSNG',
+0x9B=>'DEFDBL',
+0x9C=>'LINE',
+0x9D=>'EDIT',
+0x9E=>'ERROR',
+0x9F=>'RESUME',
+0xA0=>'OUT',
+0xA1=>'ON',
+0xA2=>'OPEN',
+0xA3=>'FIELD',
+0xA4=>'GET',
+0xA5=>'PUT',
+0xA6=>'CLOSE',
+0xA7=>'LOAD',
+0xA8=>'MERGE',
+0xA9=>'NAME',
+0xAA=>'KILL',
+0xAB=>'LSET',
+0xAC=>'RSET',
+0xAD=>'SAVE',
+0xAE=>'SYSTEM',
+0xAF=>'LPRINT',
+0xB0=>'DEF',
+0xB1=>'POKE',
+0xB2=>'PRINT',
+0xB3=>'CONT',
+0xB4=>'LIST',
+0xB5=>'LLIST',
+0xB6=>'DELETE',
+0xB7=>'AUTO',
+0xB8=>'CLEAR',
+0xB9=>'CLOAD',
+0xBA=>'CSAVE',
+0xBB=>'NEW',
+0xBC=>'TAB(',
+0xBD=>'TO',
+0xBE=>'FN',
+0xBF=>'USING',
+0xC0=>'VARPTR',
+0xC1=>'USR',
+0xC2=>'ERL',
+0xC3=>'ERR',
+0xC4=>'STRING$',
+0xC5=>'INSTR',
+0xC6=>'POINT',
+0xC7=>'TIME$',
+0xC8=>'MEM',
+0xC9=>'INKEY$',
+0xCA=>'THEN',
+0xCB=>'NOT',
+0xCC=>'STEP',
+0xCD=>'+',
+0xCE=>'-',
+0xCF=>'*',
+0xD0=>'/',
+0xD1=>'[',
+0xD2=>'AND',
+0xD3=>'OR',
+0xD4=>'>',
+0xD5=>'=',
+0xD6=>'<',
+0xD7=>'SGN',
+0xD8=>'INT',
+0xD9=>'ABS',
+0xDA=>'FRE',
+0xDB=>'INP',
+0xDC=>'POS',
+0xDD=>'SQR',
+0xDE=>'RND',
+0xDF=>'LOG',
+0xE0=>'EXP',
+0xE1=>'COS',
+0xE2=>'SIN',
+0xE3=>'TAN',
+0xE4=>'ATN',
+0xE5=>'PEEK',
+0xE6=>'CVI',
+0xE7=>'CVS',
+0xE8=>'CVD',
+0xE9=>'EOF',
+0xEA=>'LOC',
+0xEB=>'LOF',
+0xEC=>'MKI$',
+0xED=>'MKS$',
+0xEE=>'MKD$',
+0xEF=>'CINT',
+0xF0=>'CSNG',
+0xF1=>'CDBL',
+0xF2=>'FIX',
+0xF3=>'LEN',
+0xF4=>'STR$',
+0xF5=>'VAL',
+0xF6=>'ASC',
+0xF7=>'CHR$',
+0xF8=>'LEFT$',
+0xF9=>'RIGHT$',
+0xFA=>'MID$',
+0xFB=>"'",
+}
+
+def to_listing  
+	s=""
+	p=1
+	while(p<contents.length-2) && !((contents[p]==0) && (contents[p+1]==0))
+  
+		p+=2	#skip the 2 byte pointer to the start of next line
+		line_number=contents[p]+(contents[p+1]<<8)
+		p+=2
+		s+= "#{line_number} "		
+    in_quotes=false
+    in_remark=false    
+		while(p<contents.length) && (contents[p]!=0)
+			c=contents[p]
+			p+=1
+      in_quotes=!in_quotes if (c.chr=='"')
+			if (in_quotes or in_remark or (c<0x80)) then
+				s+=(c%0x80).chr
+			else
+        token=SINGLE_BYTE_TOKENS[c]
+				s+=(token.nil?) ? sprintf("[%02X]",c):token
+        in_remark=true if (c==0x93) 
+			end
+		end
+		s+="\n"
+	p+=1
+	end
+	s	
+end
+
+
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/native_file_types/trs80/Trs80PascalSource.rb

@@ -0,0 +1,58 @@
+require 'NativeFileType'
+
+
+class Trs80PascalSource<NativeFileType
+
+def self.file_system_file_types
+  {
+    TrsDos=>"SRC"
+  }
+end
+
+#TRS80 Pascal Source files appear to start with a T and then a 2 byte length marker
+is_valid_file_if  lambda {contents[0]==0x54 && (contents[1,2].unpack('v')[0])<contents.length}
+
+def to_listing  
+	s=""
+	p=1
+  length=contents[1,2].unpack('v')[0]
+	contents[1,length].each_byte do |b|
+    if (b>=0x80) then 
+      s<<' '*(b-0x80)
+    elsif b==0x01 then
+      s<<"\n"
+    else
+      s<<b.chr
+    end
+  end     
+	s	
+end
+
+
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/proc_source.rb

@@ -0,0 +1,238 @@
+#this code was written by Florian Gro - downloaded from http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/147706
+
+
+require 'stringio'
+require 'irb/ruby-lex'
+
+# Tell the ruby interpreter to load code lines of required files
+# into this filename -> lines Hash. This behaviour seems to be
+# very undocumented and therefore shouldn't really be relied on.
+SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
+
+module ProcSource
+  def get_lines(filename, start_line = 0)
+    case filename
+      # special "(irb)" descriptor?
+      when "(irb)"
+        IRB.conf[:MAIN_CONTEXT].io.line(start_line .. -1)
+      # special "(eval...)" descriptor?
+      when /^\(eval.+\)$/
+        EVAL_LINES__[filename][start_line .. -1]
+      # regular file
+      else
+        # Ruby already parsed this file? (see disclaimer above)
+        if lines = SCRIPT_LINES__[filename]
+          lines[(start_line - 1) .. -1]
+        # If the file exists we're going to try reading it in
+        elsif File.exist?(filename)
+          begin
+            File.readlines(filename)[(start_line - 1) .. -1]
+          rescue
+            nil
+          end
+        end
+    end
+  end
+
+  def handle(proc)
+    filename, line = proc.source_descriptor
+    lines = get_lines(filename, line) || []
+
+    lexer = RubyLex.new
+    lexer.set_input(StringIO.new(lines.join))
+
+    state = :before_constructor
+    nesting_level = 1
+    start_token, end_token = nil, nil
+    found = false
+    while token = lexer.token
+      # we've not yet found any proc-constructor -- we'll try to find one.
+      if [:before_constructor, :check_more].include?(state)
+        # checking more and newline? -> done
+        if token.is_a?(RubyToken::TkNL) and state == :check_more
+          state = :done
+          break
+        end
+        # token is Proc?
+        if token.is_a?(RubyToken::TkCONSTANT) and
+           token.instance_variable_get(:@name) == "Proc"
+          # method call?
+          if lexer.token.is_a?(RubyToken::TkDOT)
+            method = lexer.token
+            # constructor?
+            if method.is_a?(RubyToken::TkIDENTIFIER) and
+               method.instance_variable_get(:@name) == "new"
+              unless state == :check_more
+                # okay, code will follow soon.
+                state = :before_code
+              else
+                # multiple procs on one line
+                return
+              end
+            end
+          end
+        # token is lambda or proc call?
+        elsif token.is_a?(RubyToken::TkIDENTIFIER) and
+              %w{proc lambda}.include?(token.instance_variable_get(:@name))
+          unless state == :check_more
+            # okay, code will follow soon.
+            state = :before_code
+          else
+            # multiple procs on one line
+            return
+          end
+        end
+
+      # we're waiting for the code start to appear.
+      elsif state == :before_code
+        if token.is_a?(RubyToken::TkfLBRACE) or token.is_a?(RubyToken::TkDO)
+          # found the code start, update state and remember current token
+          state = :in_code
+          start_token = token
+        end
+
+      # okay, we're inside code
+      elsif state == :in_code
+        if token.is_a?(RubyToken::TkRBRACE) or token.is_a?(RubyToken::TkEND)
+          nesting_level -= 1
+          if nesting_level == 0
+            # we're done!
+            end_token = token
+            # parse another time to check if there are multiple procs on one line
+            # we can't handle that case correctly so we return no source code at all
+            state = :check_more
+          end
+        elsif token.is_a?(RubyToken::TkfLBRACE) or token.is_a?(RubyToken::TkDO) or
+              token.is_a?(RubyToken::TkBEGIN) or token.is_a?(RubyToken::TkCASE) or
+              token.is_a?(RubyToken::TkCLASS) or token.is_a?(RubyToken::TkDEF) or
+              token.is_a?(RubyToken::TkFOR) or token.is_a?(RubyToken::TkIF) or
+              token.is_a?(RubyToken::TkMODULE) or token.is_a?(RubyToken::TkUNLESS) or
+              token.is_a?(RubyToken::TkUNTIL) or token.is_a?(RubyToken::TkWHILE) or
+              token.is_a?(RubyToken::TklBEGIN)
+          nesting_level += 1
+        end
+      end
+    end
+
+    if start_token and end_token
+      start_line, end_line = start_token.line_no - 1, end_token.line_no - 1 
+      source = lines[start_line .. end_line]
+      start_offset = start_token.char_no
+      start_offset += 1 if start_token.is_a?(RubyToken::TkDO)
+      end_offset = -(source.last.length - end_token.char_no)
+      source.first.slice!(0 .. start_offset)
+      source.last.slice!(end_offset .. -1)
+
+      # Can't use .strip because newline at end of code might be important
+      # (Stuff would break when somebody does proc { ... #foo\n})
+      proc.source = source.join.gsub(/^ | $/, "")
+    end
+  end
+
+  module_function :handle, :get_lines
+end
+
+class Proc
+  def source_descriptor
+    if md = /^#<Proc:0x[0-9A-Fa-f]+@(.+):(\d+)>$/.match(old_inspect)
+      filename, line = md.captures
+      return filename, line.to_i
+    end
+  end
+
+  attr_accessor :source
+  def source
+    ProcSource.handle(self) unless @source
+    @source
+  end
+
+  alias :old_inspect :inspect
+  def inspect
+    if source
+      "proc {#{source}}"
+    else
+      old_inspect
+    end
+  end
+
+  def ==(other)
+    if self.source and other.source
+      self.source == other.source
+    else
+      self.object_id == other.object_id
+    end
+  end
+
+  def _dump(depth = 0)
+    if source
+      source
+    else
+      raise(TypeError, "Can't serialize Proc with unknown source code.")
+    end
+  end
+
+  def to_yaml(*args)
+    self.source # force @source to be set
+    super.sub("object:Proc", "proc")
+  end
+
+  def self.allocate; from_string ""; end
+
+  def self.from_string(string)
+    result = eval("proc {#{string}}")
+    result.source = string
+    return result
+  end
+
+  def self._load(code)
+    self.from_string(code)
+  end
+
+  def self.marshal_load; end
+  def marshal_load; end
+end
+
+require 'yaml'
+YAML.add_ruby_type(/^proc/) do |type, val|
+  Proc.from_string(val["source"])
+end
+
+EVAL_LINES__ = Hash.new
+
+alias :old_eval :eval
+def eval(code, *args)
+  context, descriptor, start_line, *more = *args
+  descriptor ||= "(eval#{code.hash})"
+  start_line ||= 0
+  lines ||= code.grep(/.*/)
+  EVAL_LINES__[descriptor] ||= Array.new
+  EVAL_LINES__[descriptor][start_line, lines.length] = lines
+  old_eval(code, context, descriptor, start_line, *more)
+end
+
+
+if __FILE__ == $0 then
+  require "pstore"
+
+  code = lambda { puts "Hello World!" }
+
+  File.open("proc.marshalled", "w") { |file| Marshal.dump(code, file) }
+  code = File.open("proc.marshalled") { |file| Marshal.load(file) }
+
+  code.call
+
+  store = PStore.new("proc.pstore")
+  store.transaction do
+    store["proc"] = code
+  end
+  store.transaction do
+    code = store["proc"]
+  end
+
+  code.call
+
+  File.open("proc.yaml", "w") { |file| YAML.dump(code, file) }
+  code = File.open("proc.yaml") { |file| YAML.load(file) }
+
+  code.call
+end 

data/lib/rdoc_patch.rb

@@ -0,0 +1,32 @@
+require 'rdoc/usage'
+
+#due to a bug in rdoc, RDoc.usage won't work correctly when run from a gem executable
+# see http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/211297
+# Display usage from the given file
+
+def RDoc.usage_from_file(input_file, *args)
+        comment = File.open(input_file) do |file|
+                RDoc.find_comment(file)
+        end
+        comment = comment.gsub(/^\s*#/, '')
+
+        markup = SM::SimpleMarkup.new
+        flow_convertor = SM::ToFlow.new
+    
+        flow = markup.convert(comment, flow_convertor)
+
+        format = "plain"
+
+        unless args.empty?
+                flow = extract_sections(flow, args)
+        end
+
+        options = RI::Options.instance
+        if args = ENV["RI"]
+                options.parse(args.split)
+        end
+        formatter = options.formatter.new(options, "")
+        formatter.display_flow(flow)
+        exit
+end
+

data/test/tc_file_cache.rb

@@ -0,0 +1,11 @@
+
+require 'testhelper'
+
+class TestFileCache <Test::Unit::TestCase
+  def test_dynamic_file_download  
+    url="http://www.jamtronix.com/dsks/ROBOTSOFDAWN.DSK"
+    @@filecache.purge(url)
+    cache_file=@@filecache.get(url)
+    assert_equal(url,cache_file.path)      
+  end    
+end