$:.unshift(File.dirname(__FILE__)) unless
	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))

require 'NativeFileType'

require 'CbmFile'

class C64GeosFile<CbmFile



is_valid_file_if  lambda {(aux_code!=:not_geos)}

def type_description
  "#{ aux_code.to_s}" + ((aux_code==:application_data) ? " (#{parent_application}/#{header_filename})" : ""   )
end

def parent_application
	return nil unless @contents.kind_of?(Array) && !info_block.nil?
	info_block[0x75,16].unpack("A*")[0]
end

def header_filename
	return nil unless @contents.kind_of?(Array) && !info_block.nil?
	info_block[0x4d,16].unpack("A*")[0]
end

def info_block
	@contents[0]
end

def contents
	if @contents.kind_of?(Array) then  	
		@contents[1,@contents.length].join("")		
	else
		@contents
	end
end

def load_address
	info_block[0x47]+(0x100*info_block[0x48])
end

def record_nos
	r=[]
	@contents.length.times do |record_no|
			r<<record_no unless @contents[record_no].nil?
	end
	r
end

  def to_hex_dump
  	s=""
  	if @contents.kind_of?(Array) then  	
		record_nos.each do |record_no|
			s<<((record_no==0) ? "INFO BLOCK\n" : "RECORD $#{"%02x" % record_no}\n")
			s<<HostSystem.hex_dump(@contents[record_no])
		end
    else
    	s<<s<<HostSystem.hex_dump(@contents)
    end
    s
  end



def meta_data
	return super unless @contents.kind_of?(Array) && !info_block.nil?
	@meta_data["geos_vlir_records"]=record_nos.join(",")
	@meta_data["geos_header_icon_width"]="$%02x" % info_block[0x02]
	@meta_data["geos_header_icon_height"]="$%02x" % info_block[0x03]
	@meta_data["geos_header_bitmap_data_type"]="$%02x" % info_block[0x04]
	@meta_data["geos_header_c64_file_type"]="$%02x" % info_block[0x44]
	@meta_data["geos_header_geos_file_type"]="$%02x" % info_block[0x45]
	@meta_data["geos_header_geos_file_structure_type"]="$%02x" % info_block[0x46]
	@meta_data["geos_header_load_address"]="$%04x" % load_address
	@meta_data["geos_header_end_address"]="$%04x" % (info_block[0x49]+(0x100*info_block[0x4a]))
	@meta_data["geos_header_init_address"]="$%04x" % (info_block[0x4b]+(0x100*info_block[0x4c]))
	@meta_data["geos_header_filename"]=header_filename
	@meta_data["geos_header_author"]=info_block[0x61,20].dump
	@meta_data["geos_header_parent_application"]=parent_application
	@meta_data["geos_header_application_specific_data"]=info_block[137..159].dump
	@meta_data["geos_header_getinfo_caption"]=info_block[160..255].unpack("A*")[0]

	super
end


end
 
 
class C64GeosBASICFile<C64GeosFile

is_valid_file_if  lambda {(aux_code==:basic)}

  def load_address
  	return 0 if contents.length<2
  	contents[0]+contents[1]*256
  end

  def to_listing
  	C64BasicPrg.list_buffer(@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.