Class: Trs80PascalSource

Inherits:
NativeFileType show all
Defined in:
lib/native_file_types/trs80/Trs80PascalSource.rb

Instance Attribute Summary

Attributes inherited from NativeFileType

#aux_code, #contents, #file_system_image, #file_type, #filename, #meta_data

Class Method Summary collapse

Instance Method Summary collapse

Methods inherited from NativeFileType

#<=>, #==, all_native_file_types, best_fit, code_for_tests, compatability_score, #data_without_header, file_type_matches?, #full_filename, #header_length, #initialize, is_valid_file_if, #load_address, load_address, matching_score, native_file_types_possible_on_file_system, non_matching_score, #to_hex_dump, #to_info_dump, #type_description

Methods included from SubclassTracking

extended

Constructor Details

This class inherits a constructor from NativeFileType

Class Method Details

.file_system_file_types ⇒ Object 



6
7
8
9
10
 
# File 'lib/native_file_types/trs80/Trs80PascalSource.rb', line 6

def self.file_system_file_types
  {
    TrsDos=>"SRC"
  }
end

Instance Method Details

#to_listing ⇒ Object 



15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
# File 'lib/native_file_types/trs80/Trs80PascalSource.rb', line 15

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