$:.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'
# Disk image in NADOL format
#
#CATALOG will be at track $00, sector $03 to track $00, sector $09
#each entry consists of $10 bytes, which are:
# 00-0B - filename - if file is deleted, first byte will be FF
# 0C-0D - filesize (low byte first)
# 0E - track of track sector list sector
# 0F - sector of track sector list sector
#
#TRACK/SECTOR LIST FORMAT 
# pairs of track/sectors in order. up to 128 entries [assumes that no file can be > 128 sectors]
#
#SECTOR USAGE BITMAP
#is at Track $00, Sector $2, from bytes $20 .. $65
#bitmap is of form:
#
# ----hi bit--
# |             |
# 01234567 89ABCDEF
#  ^^^^^^      ^^^^^^^
#   low byte    hi byte
class NADOLDos<FileSystem

def self.host_system
  Apple2
end  


#if the filesystem on a DSK is NADOL, we don't have to worry about sector interleaves  
is_valid_file_system_if lambda {! file_system_image.image_format.is_a?(A2DskDosOrder)}

# check that track $00, sector $02 , bytes $11 - "NADOL"
is_valid_file_system_if lambda {
    test_sector=file_system_image.get_sector(0,2)    
		(!test_sector.nil?) && test_sector[0x11..0x15]=="NADOL"
}

  def NADOLDos.files(file_system_image)
    files=FileContainer.new
    track=0
    sector=3
    while (sector<=9) do
      sector_data=file_system_image.get_sector(track,sector)
      (0..15).each do |slot_no|
        slot_offset=slot_no*0x10
        file_descriptive_entry=sector_data[slot_offset..slot_offset+0x10]
        if (file_descriptive_entry[0]!=0xFF && file_descriptive_entry[0]!=0x00) then # skip deleted /empty files
          filename=""
          file_descriptive_entry[0..11].to_s.each_byte{|b| filename+=(b.%128).chr} #strip off high bit
          filename.sub!(/ *$/,"") #strip off trailing spaces
          file_size=file_descriptive_entry[0x0D]*256+file_descriptive_entry[0x0C]
          if (file_size>0) then
            contents=""
            ts_list_track_no=file_descriptive_entry[0x0E]
            ts_list_sector_no=file_descriptive_entry[0x0F]
            ts_list_sector=file_system_image.get_sector(ts_list_track_no,ts_list_sector_no)
    
            for entry_number in 0..0x7f    
              data_track_no=ts_list_sector[entry_number*2]
              data_sector_no=ts_list_sector[entry_number*2+1]
              if( (data_track_no!=0 || data_sector_no!=0)   && data_sector_no<=0x0f) then                
                contents<<file_system_image.get_sector(data_track_no,data_sector_no)
              end
            end
            contents=contents[0,file_size]
            files<<NativeFileType.best_fit(file_system_image,filename,contents)
          end
        end
      end
    sector+=1
    end

    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.