ripxplore 0.0.1 → 0.0.2

data/lib/native_file_types/atari800/AtariBinary.rb

@@ -20,7 +20,7 @@ def header_length
  6
 end  
 
-def to_listing
+def to_disassembly
     Atari800.disassemble(data_without_header,load_address)
 end
 

data/lib/native_file_types/atari800/AtariText.rb

@@ -1,4 +1,9 @@
+generic_path=File.dirname(__FILE__)+'/../generic/'
+$:.unshift(generic_path) unless
+	$:.include?(generic_path) || $:.include?(File.expand_path(generic_path))
+
 require 'NativeFileType'
+require 'ScreenDump'
 class AtariText<NativeFileType
   
 #text files are the default
@@ -20,9 +25,10 @@ def to_text
   Atari800.s_to_ascii(contents)
 end
 
+include ScreenDump
 end
 
-  
+
 # == Author
 # Jonno Downes (jonno@jamtronix.com)
 #

data/lib/native_file_types/coco/CocoBasic.rb

@@ -0,0 +1,230 @@
+require 'NativeFileType'
+
+
+class CocoBasic<NativeFileType
+
+#BASIC files have a filetype of 0
+#aux_code determines whether file is tokenised or ASCII
+def self.file_system_file_types
+  {
+    RsDos=>0
+  }
+end
+
+FUNCTION_TOKENS=[
+# 00 - 0f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 10 - 1f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 20 - 2f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 30 - 3f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 40 - 4f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 50 - 5f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 60 - 6f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 70 - 7f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 80 - 8f
+'SGN', 'INT', 'ABS', 'USR', 'RND', 'SIN', 'PEEK', 'LEN',
+'STR$', 'VAL', 'ASC', 'CHR$', 'EOF', 'JOYSTK', 'LEFT$', 'RIGHT$',
+
+# 90 - 9f
+'MID$', 'POINT', 'INKEY$', 'MEM', 'ATN', 'COS', 'TAN', 'EXP',
+'FIX', 'LOG', 'POS', 'SQR', 'HEX$', 'VARPTR', 'INSTR$', 'TIMER',
+
+# a0 - af
+'PPOINT', 'STRING$', 'CVN', 'FREE', 'LOC', 'LOF', 'MKN$', 'AS',
+"'", 'LPEEK', 'BUTTON', 'HPOINT', 'ERNO', 'ERLIN', '!', '!',
+
+# b0 - bf
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# c0 - cf
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# d0 - df
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# e0 - ef
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# f0 - ff
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+]
+
+COMMAND_TOKENS=[
+# 00 - 0f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 10 - 1f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 20 - 2f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 30 - 3f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 40 - 4f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 50 - 5f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 60 - 6f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 70 - 7f
+'!', '!', '!', '!', '!', '!', '!', '!',
+'!', '!', '!', '!', '!', '!', '!', '!', 
+
+# 80 - 8f
+'FOR', 'GO', 'REM', "'", 'ELSE', 'IF', 'DATA', 'PRINT',
+'ON', 'INPUT', 'END', 'NEXT', 'DIM', 'READ', 'RUN', 'RESTORE',
+
+# 90 - 9f
+'RETURN', 'STOP', 'POKE', 'CONT', 'LIST', 'CLEAR', 'NEW', 'CLOAD',
+'CSAVE', 'OPEN', 'CLOSE', 'LLIST', 'SET', 'RESET', 'CLS', 'MOTOR',
+
+# a0 - af
+'SOUND', 'AUDIO', 'EXEC', 'SKIPF', 'TAB(', 'TO', 'SUB', 'THEN',
+'NOT', 'STEP', 'OFF', '+', '-', '*', '/', '^',
+
+# b0 - bf
+'AND', 'OR', '>', '=', '<', 'DEL', 'EDIT', 'TRON',
+'TROFF', 'DEF', 'LET', 'LINE', 'PCLS', 'PSET', 'PRESET', 'SCREEN',
+
+# c0 - cf
+'PCLEAR', 'COLOR', 'CIRCLE', 'PAINT', 'GET', 'PUT', 'DRAW', 'PCOPY',
+'PMODE', 'PLAY', 'DLOAD', 'RENUM', 'FN', 'USING', 'DIR', 'DRIVE',
+
+# d0 - df
+'FIELD', 'FILES', 'KILL', 'LOAD', 'LSET', 'MERGE', 'RENAME', 'RSET',
+'SAVE', 'WRITE', 'VERIFY', 'UNLOAD', 'DSKINI', 'BACKUP', 'COPY', 'DSKI$',
+
+# e0 - ef
+'DSKO$', 'DOS', 'WIDTH', 'PALETTE', 'HSCREEN', 'LPOKE', 'HCLS', 'HCOLOR',
+'HPAINT', 'HCIRCLE', 'HLINE', 'HGET', 'HPUT', 'HBUFF', 'HPRINT', 'ERR',
+
+# f0 - ff
+'BRK', 'LOCATE', 'HSTAT', 'HSET', 'HRESET', 'HDRAW', 'CMP', 'RGB',
+'ATTR', '!', '!', '!', '!', '!', '!', '!',
+]
+
+def to_listing  
+  return contents if aux_code==0xFF #Aux Code is "ASCII FLAG"
+	s=""
+	p=0
+	
+	if contents[p] == 0xff then
+		p+=1
+		file_size = contents[p]<<8
+		p+=1
+		file_size += contents[p]
+		p+=1
+#		raise "Binary CoCo BASIC file format inconsistant (file size record was = $#{"%X" % file_size}, real file size=$#{"%X" % (contents.length-3)}" if file_size != (contents.length-3)
+	end
+	
+	value = contents[p]<<8
+	p+=1
+	value += contents[p]
+	p+=1
+	
+	while (p<contents.length-2) && (value != 0)
+  		line_number = contents[p]<<8
+  		p+=1
+  		line_number += contents[p]
+		p+=1
+
+		s+= "#{line_number} "
+		
+		character = contents[p]
+		p+=1
+		
+		while (p<contents.length-1) && (character != 0)
+			if character == 0xff then
+				character = contents[p]
+				p+=1
+				s+=FUNCTION_TOKENS[character]
+			elsif character >= 0x80
+				s+=COMMAND_TOKENS[character]
+			elsif character == 0x3a && (contents[p] == 0x83 || contents[p] == 0x84 )
+				#When colon-apostrophe is encountered, the colon is dropped. */
+				#When colon-ELSE is encountered, the colon is dropped. */
+			else
+				s+=(character % 0x80).chr
+			end
+			
+			character = contents[p]
+			p+=1
+		end
+
+		s+="\n"
+
+		value = contents[p]<<8
+		p+=1
+		value += contents[p] unless contents[p].nil?
+		p+=1
+	end
+	s	
+end
+
+end
+
+  
+# == Author
+# tim lindner (tlindner@macmess.org)
+#
+# == Copyright
+# Copyright (c) 2008 tim lindner (tlindner@macmess.org)
+#
+#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/coco/CocoMachineLanguage.rb

@@ -0,0 +1,47 @@
+require 'NativeFileType'
+
+
+class CocoMachineLanguage<NativeFileType
+
+def self.file_system_file_types
+  {
+    RsDos=>2
+  }
+end
+
+def load_address
+  (contents[3]<<8)+contents[4]
+end
+
+def data_without_header
+  actual_file_length=(contents[1]<<8)+contents[2]
+  @contents[5,actual_file_length]
+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/coco/CocoScreen.rb

@@ -0,0 +1,54 @@
+require 'NativeFileType'
+
+
+#a Coco M/L file that overlays video RAM
+#http://www.cs.unc.edu/~yakowenk/coco/text/video.html
+class CocoScreen<CocoMachineLanguage
+
+#does the file overlay video RAM?
+is_valid_file_if  lambda {
+(((contents[3]<<8)+contents[4])==0x0400)
+}
+
+def to_picture
+  Coco.to_screendump(data_without_header,32)
+end
+
+def picture_width
+  Coco.default_screen_width*Coco.font_width
+end
+def picture_height
+  Coco.screen_rows*Coco.font_height
+end
+
+def picture_format
+  :png
+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/coco/CocoText.rb

@@ -0,0 +1,42 @@
+require 'NativeFileType'
+
+
+class CocoText<NativeFileType
+
+def self.file_system_file_types
+  {
+    RsDos=>[1,3]
+  }
+end
+
+def to_text
+  contents
+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/generic/GenericGIF.rb

@@ -0,0 +1,50 @@
+
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module GenericGIF
+
+  def GenericGIF.is_gif?(native_file)
+    return (native_file.data_without_header[0,4]=="GIF8")
+  end
+  def to_picture
+    data_without_header
+  end
+
+  def picture_width
+    data_without_header[6]+(data_without_header[7]<<8)
+  end
+  def picture_height
+    data_without_header[8]+(data_without_header[9]<<8)
+  end
+  def picture_format
+    :gif
+  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/generic/ScreenDump.rb

@@ -0,0 +1,43 @@
+
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module ScreenDump
+
+  def to_screendump
+    lines=to_text.split("\n")
+    max_line_length=(lines.collect{|l| l.length}).max
+    screen_width= (max_line_length>file_system_image.host_system.default_screen_width && max_line_length<file_system_image.host_system.max_screen_width ) ? file_system_image.host_system.max_screen_width : file_system_image.host_system.default_screen_width
+
+#    puts "#{filename} max length - #{max_line_length} - cols #{screen_width}"
+    file_system_image.host_system.to_screendump(text_for_screendump,screen_width)
+    
+  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.