M000260.html in ripxplore-0.17.1

- old
+ new
@@ -3,18 +3,28 @@
      PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <html>
 <head>
-  <title>file_system_file_types (Trs80PascalSource)</title>
+  <title>to_listing (Trs80PascalSource)</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 lib/native_file_types/trs80/Trs80PascalSource.rb, line 6</span>
-<span class="ruby-keyword kw">def</span> <span class="ruby-keyword kw">self</span>.<span class="ruby-identifier">file_system_file_types</span>
-  {
-    <span class="ruby-constant">TrsDos</span>=<span class="ruby-operator">&gt;</span><span class="ruby-value str">&quot;SRC&quot;</span>
-  }
+  <pre><span class="ruby-comment cmt"># File lib/native_file_types/trs80/Trs80PascalSource.rb, line 15</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">to_listing</span>  
+        <span class="ruby-identifier">s</span>=<span class="ruby-value str">&quot;&quot;</span>
+        <span class="ruby-identifier">p</span>=<span class="ruby-value">1</span>
+  <span class="ruby-identifier">length</span>=<span class="ruby-identifier">contents</span>[<span class="ruby-value">1</span>,<span class="ruby-value">2</span>].<span class="ruby-identifier">unpack</span>(<span class="ruby-value str">'v'</span>)[<span class="ruby-value">0</span>]
+        <span class="ruby-identifier">contents</span>[<span class="ruby-value">1</span>,<span class="ruby-identifier">length</span>].<span class="ruby-identifier">each_byte</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">b</span><span class="ruby-operator">|</span>
+    <span class="ruby-keyword kw">if</span> (<span class="ruby-identifier">b</span><span class="ruby-operator">&gt;=</span><span class="ruby-value">0x80</span>) <span class="ruby-keyword kw">then</span> 
+      <span class="ruby-identifier">s</span><span class="ruby-operator">&lt;&lt;</span><span class="ruby-value str">' '</span><span class="ruby-operator">*</span>(<span class="ruby-identifier">b</span><span class="ruby-operator">-</span><span class="ruby-value">0x80</span>)
+    <span class="ruby-keyword kw">elsif</span> <span class="ruby-identifier">b</span><span class="ruby-operator">==</span><span class="ruby-value">0x01</span> <span class="ruby-keyword kw">then</span>
+      <span class="ruby-identifier">s</span><span class="ruby-operator">&lt;&lt;</span><span class="ruby-value str">&quot;\n&quot;</span>
+    <span class="ruby-keyword kw">else</span>
+      <span class="ruby-identifier">s</span><span class="ruby-operator">&lt;&lt;</span><span class="ruby-identifier">b</span>.<span class="ruby-identifier">chr</span>
+    <span class="ruby-keyword kw">end</span>
+  <span class="ruby-keyword kw">end</span>     
+        <span class="ruby-identifier">s</span>      
 <span class="ruby-keyword kw">end</span></pre>
 </body>
 </html>
\ No newline at end of file