RubyGems - ripxplore - Versions diffs - 0.0.2 → 0.4.0 - Mend

ripxplore 0.0.2 → 0.4.0

Files changed (875) hide show

data/doc/files/test/testhelper_rb.src/M000003.html CHANGED Viewed

@@ -5,14 +5,17 @@
 <html>
 <head>
-  <title>file_cache (test/testhelper.rb)</title>
+  <title>image_has_collection_of (test/testhelper.rb)</title>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
   <link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
 </head>
 <body class="standalone-code">
-  <pre><span class="ruby-comment cmt"># File test/testhelper.rb, line 23</span>
-<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">file_cache</span>
-  <span class="ruby-ivar">@@filecache</span>
+  <pre><span class="ruby-comment cmt"># File test/testhelper.rb, line 16</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">image_has_collection_of</span>(<span class="ruby-identifier">url</span>,<span class="ruby-identifier">collection_type</span>)
+  <span class="ruby-identifier">image</span>=<span class="ruby-ivar">@@filecache</span>.<span class="ruby-identifier">get_file_system_image</span>(<span class="ruby-identifier">url</span>)
+  <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">image</span>.<span class="ruby-identifier">respond_to?</span>(<span class="ruby-identifier">collection_type</span>),<span class="ruby-node">&quot;#{url} should contain a collection of #{collection_type}&quot;</span>)
+  <span class="ruby-identifier">collection</span>=<span class="ruby-identifier">image</span>.<span class="ruby-identifier">send</span>(<span class="ruby-identifier">collection_type</span>)
+  <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">collection</span>.<span class="ruby-identifier">length</span><span class="ruby-operator">&gt;</span><span class="ruby-value">0</span>,<span class="ruby-node">&quot;#{url} should contain more than zero #{collection_type}&quot;</span>)
 <span class="ruby-keyword kw">end</span></pre>
 </body>
 </html>

data/doc/files/test/testhelper_rb.src/M000004.html CHANGED Viewed

@@ -5,57 +5,14 @@
 <html>
 <head>
-  <title>sniff_url (test/testhelper.rb)</title>
+  <title>file_cache (test/testhelper.rb)</title>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
   <link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
 </head>
 <body class="standalone-code">
-  <pre><span class="ruby-comment cmt"># File test/testhelper.rb, line 27</span>
-<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">sniff_url</span>(<span class="ruby-identifier">url</span>,<span class="ruby-identifier">expected_image_format</span>,<span class="ruby-identifier">expected_file_system</span>,<span class="ruby-identifier">expected_files</span>=<span class="ruby-keyword kw">nil</span>)
-    <span class="ruby-identifier">assert</span>(<span class="ruby-constant">FileSystemImage</span>.<span class="ruby-identifier">is_file_system_image_filename?</span>(<span class="ruby-identifier">url</span>),<span class="ruby-node">&quot;#{url} should have a known file system image extension&quot;</span>)
-    <span class="ruby-identifier">image</span>=<span class="ruby-ivar">@@filecache</span>.<span class="ruby-identifier">get_file_system_image</span>(<span class="ruby-identifier">url</span>)
-    <span class="ruby-identifier">assert_equal</span>(<span class="ruby-identifier">expected_file_system</span>,<span class="ruby-identifier">image</span>.<span class="ruby-identifier">file_system</span>,<span class="ruby-node">&quot;validation of file system for #{url}&quot;</span>)
-    <span class="ruby-identifier">assert_kind_of</span>(<span class="ruby-identifier">expected_image_format</span>,<span class="ruby-identifier">image</span>.<span class="ruby-identifier">image_format</span>,<span class="ruby-node">&quot;validation of image format for #{url}&quot;</span>)
-    <span class="ruby-identifier">assert_not_nil</span>(<span class="ruby-identifier">image</span>.<span class="ruby-identifier">image_format</span>.<span class="ruby-identifier">host_system</span>.<span class="ruby-identifier">full_name</span>,<span class="ruby-value str">&quot;all host systems should implement :full_name&quot;</span>)
-    <span class="ruby-keyword kw">return</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">expected_files</span>.<span class="ruby-identifier">nil?</span>
-    <span class="ruby-identifier">expected_files</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">expected_file</span><span class="ruby-operator">|</span>
-      <span class="ruby-identifier">expected_file_filename</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:filename</span>]
-      <span class="ruby-constant">RipXploreLog</span>.<span class="ruby-identifier">info</span>(<span class="ruby-node">&quot;validating #{expected_file_filename}&quot;</span>)
-      <span class="ruby-identifier">raise</span> <span class="ruby-value str">&quot;no native files identified in image&quot;</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">image</span>.<span class="ruby-identifier">files</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-operator">||</span> <span class="ruby-identifier">image</span>.<span class="ruby-identifier">files</span>.<span class="ruby-identifier">length</span><span class="ruby-operator">==</span><span class="ruby-value">0</span>
-      <span class="ruby-identifier">raise</span> <span class="ruby-node">&quot;image.files should of type FileContainer but was #{image.files.class} (file system=#{image.file_system})&quot;</span> <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">image</span>.<span class="ruby-identifier">files</span>.<span class="ruby-identifier">kind_of?</span>(<span class="ruby-constant">FileContainer</span>)
-      <span class="ruby-identifier">native_file</span>=<span class="ruby-identifier">image</span>.<span class="ruby-identifier">files</span>[<span class="ruby-identifier">expected_file_filename</span>]
-      <span class="ruby-identifier">assert_not_nil</span>(<span class="ruby-identifier">native_file</span>,<span class="ruby-node">&quot;#{expected_file_filename} should exist in #{url} - files found: #{image.catalog}&quot;</span>)
-      <span class="ruby-identifier">expected_native_file_type</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:expected_native_file_type</span>]
-      <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_native_file_type</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        <span class="ruby-identifier">assert_kind_of</span>(<span class="ruby-identifier">expected_native_file_type</span>,<span class="ruby-identifier">native_file</span>,<span class="ruby-node">&quot;native file type of #{expected_file_filename} should be as specified&quot;</span>)
-      <span class="ruby-keyword kw">end</span>
-      <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:load_address</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:load_address</span>]<span class="ruby-operator">==</span><span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">load_address</span>,<span class="ruby-node">&quot;load address of #{expected_file_filename} should be $#{&quot;%04x&quot; % expected_file[:load_address]} but was $#{&quot;%04X&quot; % native_file.load_address}&quot;</span>)
-      <span class="ruby-keyword kw">end</span>
-      <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:can_execute</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        <span class="ruby-identifier">method_to_call</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:can_execute</span>]
-        <span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">send</span>(<span class="ruby-identifier">method_to_call</span>)
-      <span class="ruby-keyword kw">end</span>
-      <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:save_output</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        (<span class="ruby-identifier">method_to_call</span>,<span class="ruby-identifier">extension</span>)=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:save_output</span>]
-        <span class="ruby-identifier">file_cache</span>.<span class="ruby-identifier">purge_native_file_from_cache</span>(<span class="ruby-identifier">native_file</span>)
-        <span class="ruby-identifier">file_cache</span>.<span class="ruby-identifier">force_native_file_to_cache</span>(<span class="ruby-identifier">native_file</span>,<span class="ruby-identifier">method_to_call</span>,<span class="ruby-identifier">extension</span>)
-      <span class="ruby-keyword kw">end</span>
-      <span class="ruby-identifier">expected_file_text_starts_with</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:text_starts_with</span>]
-      <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">expected_file_text_starts_with</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">respond_to?</span>(<span class="ruby-identifier">:to_text</span>),<span class="ruby-node">&quot;#{expected_file_filename} should respond to :to_text&quot;</span>)
-        <span class="ruby-identifier">assert_equal</span>(<span class="ruby-identifier">expected_file_text_starts_with</span>,<span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">to_text</span>[<span class="ruby-value">0</span>,<span class="ruby-identifier">expected_file_text_starts_with</span>.<span class="ruby-identifier">length</span>],<span class="ruby-node">&quot;start of #{expected_file_filename} should be as specified&quot;</span>)
-      <span class="ruby-keyword kw">end</span>
-      <span class="ruby-identifier">expected_file_listing_starts_with</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:listing_starts_with</span>]
-      <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">expected_file_listing_starts_with</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
-        <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">respond_to?</span>(<span class="ruby-identifier">:to_listing</span>),<span class="ruby-node">&quot;#{expected_file_filename} should respond to :to_listing&quot;</span>)
-        <span class="ruby-identifier">assert_equal</span>(<span class="ruby-identifier">expected_file_listing_starts_with</span>,<span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">to_listing</span>[<span class="ruby-value">0</span>,<span class="ruby-identifier">expected_file_listing_starts_with</span>.<span class="ruby-identifier">length</span>],<span class="ruby-node">&quot;start of #{expected_file_filename} should be as specified&quot;</span>)
-      <span class="ruby-keyword kw">end</span>
-    <span class="ruby-keyword kw">end</span>
-  <span class="ruby-keyword kw">end</span></pre>
+  <pre><span class="ruby-comment cmt"># File test/testhelper.rb, line 23</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">file_cache</span>
+  <span class="ruby-ivar">@@filecache</span>
+<span class="ruby-keyword kw">end</span></pre>
 </body>
 </html>

data/doc/{classes/ImageSniffing.src/M000051.html → files/test/testhelper_rb.src/M000005.html} RENAMED Viewed

@@ -5,20 +5,18 @@
 <html>
 <head>
-  <title>sniff_url (ImageSniffing)</title>
+  <title>sniff_url (test/testhelper.rb)</title>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
-  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+  <link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
 </head>
 <body class="standalone-code">
-  <pre><span class="ruby-comment cmt"># File test/tc_image_sniffing.rb, line 5</span>
+  <pre><span class="ruby-comment cmt"># File test/testhelper.rb, line 27</span>
 <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">sniff_url</span>(<span class="ruby-identifier">url</span>,<span class="ruby-identifier">expected_image_format</span>,<span class="ruby-identifier">expected_file_system</span>,<span class="ruby-identifier">expected_files</span>=<span class="ruby-keyword kw">nil</span>)
     <span class="ruby-identifier">assert</span>(<span class="ruby-constant">FileSystemImage</span>.<span class="ruby-identifier">is_file_system_image_filename?</span>(<span class="ruby-identifier">url</span>),<span class="ruby-node">&quot;#{url} should have a known file system image extension&quot;</span>)
-    <span class="ruby-identifier">file</span>=<span class="ruby-ivar">@@filecache</span>.<span class="ruby-identifier">get</span>(<span class="ruby-identifier">url</span>)
-    <span class="ruby-constant">RipXploreLog</span>.<span class="ruby-identifier">info</span>(<span class="ruby-node">&quot;checking #{file.path}&quot;</span>)
-    <span class="ruby-identifier">image</span>=<span class="ruby-constant">RipXplore</span>.<span class="ruby-identifier">best_fit_from_file</span>(<span class="ruby-identifier">file</span>)
+    <span class="ruby-identifier">image</span>=<span class="ruby-ivar">@@filecache</span>.<span class="ruby-identifier">get_file_system_image</span>(<span class="ruby-identifier">url</span>)
     <span class="ruby-identifier">assert_equal</span>(<span class="ruby-identifier">expected_file_system</span>,<span class="ruby-identifier">image</span>.<span class="ruby-identifier">file_system</span>,<span class="ruby-node">&quot;validation of file system for #{url}&quot;</span>)
     <span class="ruby-identifier">assert_kind_of</span>(<span class="ruby-identifier">expected_image_format</span>,<span class="ruby-identifier">image</span>.<span class="ruby-identifier">image_format</span>,<span class="ruby-node">&quot;validation of image format for #{url}&quot;</span>)
+    <span class="ruby-identifier">assert_not_nil</span>(<span class="ruby-identifier">image</span>.<span class="ruby-identifier">image_format</span>.<span class="ruby-identifier">host_system</span>.<span class="ruby-identifier">full_name</span>,<span class="ruby-value str">&quot;all host systems should implement :full_name&quot;</span>)
     <span class="ruby-keyword kw">return</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">expected_files</span>.<span class="ruby-identifier">nil?</span>
     <span class="ruby-identifier">expected_files</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">expected_file</span><span class="ruby-operator">|</span>
       <span class="ruby-identifier">expected_file_filename</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:filename</span>]
@@ -34,11 +32,17 @@
       <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:load_address</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
         <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:load_address</span>]<span class="ruby-operator">==</span><span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">load_address</span>,<span class="ruby-node">&quot;load address of #{expected_file_filename} should be $#{&quot;%04x&quot; % expected_file[:load_address]} but was $#{&quot;%04X&quot; % native_file.load_address}&quot;</span>)
       <span class="ruby-keyword kw">end</span>
       <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:can_execute</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
         <span class="ruby-identifier">method_to_call</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:can_execute</span>]
         <span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">send</span>(<span class="ruby-identifier">method_to_call</span>)
       <span class="ruby-keyword kw">end</span>
+      <span class="ruby-keyword kw">unless</span>  <span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:save_output</span>].<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
+        (<span class="ruby-identifier">method_to_call</span>,<span class="ruby-identifier">extension</span>)=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:save_output</span>]
+        <span class="ruby-identifier">file_cache</span>.<span class="ruby-identifier">purge_native_file_from_cache</span>(<span class="ruby-identifier">native_file</span>)
+        <span class="ruby-identifier">file_cache</span>.<span class="ruby-identifier">force_native_file_to_cache</span>(<span class="ruby-identifier">native_file</span>,<span class="ruby-identifier">method_to_call</span>,<span class="ruby-identifier">extension</span>)
+      <span class="ruby-keyword kw">end</span>
       <span class="ruby-identifier">expected_file_text_starts_with</span>=<span class="ruby-identifier">expected_file</span>[<span class="ruby-identifier">:text_starts_with</span>]
       <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">expected_file_text_starts_with</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-keyword kw">then</span>
         <span class="ruby-identifier">assert</span>(<span class="ruby-identifier">native_file</span>.<span class="ruby-identifier">respond_to?</span>(<span class="ruby-identifier">:to_text</span>),<span class="ruby-node">&quot;#{expected_file_filename} should respond to :to_text&quot;</span>)

data/doc/files/test/ts_test_all_rb.html CHANGED Viewed

@@ -67,11 +67,6 @@
   <div id="contextContent">
-    <div id="diagram">
-      <map id="map" name="map">
-</map>
-<img src="../../dot/f_0.png" usemap="#map" border="0" alt="dot/f_0.png">
-    </div>
     <div id="description">
       <p>

data/doc/fr_class_index.html CHANGED Viewed

@@ -20,6 +20,7 @@
 <div id="index">
   <h1 class="section-bar">Classes</h1>
   <div id="index-entries">
+    <a href="classes/RipXplore.html">RipXplore</a><br />
   </div>
 </div>
 </body>

data/doc/fr_file_index.html CHANGED Viewed

@@ -20,7 +20,7 @@
 <div id="index">
   <h1 class="section-bar">Files</h1>
   <div id="index-entries">
-    <a href="files/bin/ripxplore_rb.html">bin/ripxplore.rb</a><br />
+    <a href="files/lib/RipXplore_rb.html">lib/RipXplore.rb</a><br />
   </div>
 </div>
 </body>

data/doc/index.html CHANGED Viewed

@@ -19,6 +19,6 @@
         <frame src="fr_class_index.html"  name="Classes" />
         <frame src="fr_method_index.html" name="Methods" />
     </frameset>
-    <frame src="files/bin/ripxplore_rb.html" name="docwin" />
+    <frame src="files/lib/RipXplore_rb.html" name="docwin" />
 </frameset>
 </html>

data/lib/FileCache.rb CHANGED Viewed

@@ -20,7 +20,15 @@ class FileCache
   def cache_name_for_url(url)
-    "#{url_cache_dir}/#{Digest::MD5.hexdigest(url)}.cached"
+    if ( url=~/^file:/) then
+      local_name=CGI.unescape(url.sub(/file:\/+/,""))
+      local_name="#{File::Separator}#{local_name}" unless ((local_name[1].chr==':') || (local_name[0].chr==File::Separator))
+  #    puts "#{url}->#{local_name}"
+      local_name
+    else
+      "#{url_cache_dir}/#{Digest::MD5.hexdigest(url)}.cached"
+    end
   end
   def cache_name_for_native_file(native_file,extension)

data/lib/RipXplore.rb CHANGED Viewed

@@ -4,7 +4,7 @@ $:.unshift(File.dirname(__FILE__)) unless
 require 'open-uri'
 class RipXplore
-VERSION="0.0.2"
+VERSION="0.4.0"
 private
 def RipXplore.require_files_in_subdir(dirname)

data/lib/file_systems/Zx81Snapshot.rb ADDED Viewed

@@ -0,0 +1,47 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+require 'FileSystem'
+class Zx81Snapshot<FileSystem
+def self.host_system
+  Zx81
+end
+def self.files(file_system_image)
+  files=FileContainer.new
+  file_name=File. basename(file_system_image.filename,".p").upcase
+  file_type=nil
+  files<<NativeFileType.best_fit(file_system_image,file_name,file_system_image.file_bytes,file_type)
+  files
+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/host_systems/Zx81.rb ADDED Viewed

@@ -0,0 +1,50 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+require 'HostSystem'
+class Zx81<HostSystem
+def self.full_name
+    "Sinclair ZX81"
+end
+def self.start_track
+    0
+end
+def self.to_ascii(b)
+  b.chr
+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/image_formats/Zx81PFile.rb ADDED Viewed

@@ -0,0 +1,53 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+require 'ImageFormat'
+#from http://groups.google.com.au/group/comp.sys.sinclair/browse_frm/thread/4b7506eaafc6cdab/6897525650982909?#6897525650982909
+# A .p file is really just a dump of the memory from address 16393 to the address that the contents of address 16404 point to
+#http://web.ukonline.co.uk/sinclair.zx81/chap28.html
+class Zx81PFile < ImageFormat
+def self.possible_extensions
+    ['.p']
+end
+#~ is_valid_image_if lambda {
+  #~ (file_system_image.file_bytes[0]==0x00) || (file_system_image.file_bytes[0]==0x01)
+#~ }
+def self.host_system
+    Zx81
+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/desktop.ini ADDED Viewed

@@ -0,0 +1,4 @@
+[ViewState]
+Mode=
+Vid=
+FolderType=NotSpecified

data/lib/native_file_types/zx81/Zx81Basic.rb ADDED Viewed

@@ -0,0 +1,260 @@
+require 'NativeFileType'
+require 'Zx81Snapshot'
+class Zx81Basic<NativeFileType
+#http://www.worldofspectrum.org/ZX81BasicProgramming/chap27.html
+def Zx81Basic.file_system_file_types
+  {
+    Zx81Snapshot=>:any
+  }
+end
+def load_address
+  16393
+end
+ZX81_TOKENS={
+0=>' ',
+11=>'"',
+12=>'�',
+13=>'$',
+14=>':',
+15=>'?',
+16=>'(',
+17=>')',
+18=>'>',
+19=>'<',
+20=>'=',
+21=>'+',
+22=>'-',
+23=>'*',
+24=>'/',
+25=>';',
+26=>',',
+27=>'.',
+28=>'0',
+29=>'1',
+30=>'2',
+31=>'3',
+32=>'4',
+33=>'5',
+34=>'6',
+35=>'7',
+36=>'8',
+37=>'9',
+38=>'A',
+39=>'B',
+40=>'C',
+41=>'D',
+42=>'E',
+43=>'F',
+44=>'G',
+45=>'H',
+46=>'I',
+47=>'J',
+48=>'K',
+49=>'L',
+50=>'M',
+51=>'N',
+52=>'O',
+53=>'P',
+54=>'Q',
+55=>'R',
+56=>'S',
+57=>'T',
+58=>'U',
+59=>'V',
+60=>'W',
+61=>'X',
+62=>'Y',
+63=>'Z',
+64=>'RND ',
+65=>'INKEY$ ',
+66=>'PI ',
+112=>'<cursor up>',
+113=>'<cursor down>',
+114=>'<cursor left>',
+115=>'<cursor right>',
+116=>'GRAPHICS ',
+117=>'EDIT ',
+118=>'NEWLINE ',
+119=>'RUBOUT ',
+120=>'/',
+121=>'FUNCTION ',
+127=>'cursor',
+128=>' ',
+139=>'"',
+140=>'�',
+141=>'$',
+142=>':',
+143=>'?',
+144=>'(',
+145=>')',
+146=>'>',
+147=>'<',
+148=>'=',
+149=>'+',
+150=>'-',
+151=>'*',
+152=>'/',
+153=>';',
+154=>',',
+155=>'.',
+156=>'0',
+157=>'1',
+158=>'2',
+159=>'3',
+160=>'4',
+161=>'5',
+162=>'6',
+163=>'7',
+164=>'8',
+165=>'9',
+166=>'A',
+167=>'B',
+168=>'C',
+169=>'D',
+170=>'E',
+171=>'F',
+172=>'G',
+173=>'H',
+174=>'I',
+175=>'J',
+176=>'K',
+177=>'L',
+178=>'M',
+179=>'N',
+180=>'O',
+181=>'P',
+182=>'Q',
+183=>'R',
+184=>'S',
+185=>'T',
+186=>'U',
+187=>'V',
+188=>'W',
+189=>'X',
+190=>'Y',
+191=>'Z',
+192=>'""',
+193=>'AT ',
+194=>'TAB ',
+195=>'?',
+196=>'CODE ',
+197=>'VAL ',
+198=>'LEN ',
+199=>'SIN ',
+200=>'COS ',
+201=>'TAN ',
+202=>'ASN ',
+203=>'ACS ',
+204=>'ATN ',
+205=>'LN ',
+206=>'EXP ',
+207=>'INT ',
+208=>'SQR ',
+209=>'SGN ',
+210=>'ABS ',
+211=>'PEEK ',
+212=>'USR ' ,
+213=>'STR$ ',
+214=>'CHR$ ',
+215=>'NOT ',
+216=>'**',
+217=>'OR ',
+218=>'AND ',
+219=>'<=',
+220=>'>=',
+221=>'<>',
+222=>'THEN ',
+223=>'TO ',
+224=>'STEP ',
+225=>'LPRINT ',
+226=>'LLIST ',
+227=>'STOP ',
+228=>'SLOW ',
+229=>'FAST ',
+230=>'NEW ',
+231=>'SCROLL ',
+232=>'CONT ',
+233=>'DIM ',
+234=>'REM ',
+235=>'FOR ',
+236=>'GOTO ' ,
+237=>'GOSUB ' ,
+238=>'INPUT ',
+239=>'LOAD ',
+240=>'LIST ',
+241=>'LET ',
+242=>'PAUSE ',
+243=>'NEXT ',
+244=>'POKE ',
+245=>'PRINT ',
+246=>'PLOT ',
+247=>'RUN ',
+248=>'SAVE ',
+249=>'RAND ',
+250=>'IF ',
+251=>'CLS ',
+252=>'UNPLOT ',
+253=>'CLEAR ',
+254=>'RETURN ',
+255=>'COPY ',
+}
+def to_listing
+    p=0x74 #start at offset 16509
+    d_file=contents[3]+(contents[4]<<8)# what would be memory offset 16396
+    s=""
+    while p<(d_file-load_address)
+      line_number=(contents[p]<<8)+contents[p+1]
+      p+=2
+      line_length=contents[p]+(contents[p+1]<<8)
+      s<<"#{line_number.to_s} "
+      i=2
+      while i<=line_length && !contents[p+i].nil? do
+        b=contents[p+i]
+        if b==126 then
+          #the next 5 bytes are binary form of the number we have just displayed
+          i+=5
+          s<<" " unless (i>=line_length-1) || (contents[p+i+1]==17)
+        else
+          token=ZX81_TOKENS[b]
+          token="<#{"$%02X" % b}>" if token.nil?
+          s<<token
+        end
+        i+=1
+      end
+      s<<"\n"
+      p+=line_length+2
+    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.