ripxplore 0.0.1

data/lib/native_file_types/apple2/AppleText.rb

@@ -0,0 +1,43 @@
+require 'NativeFileType'
+class AppleText<NativeFileType
+
+def self.file_system_file_types
+  {
+    AppleDos=>0x00,
+    ProDos=>0x04
+  }
+end
+    
+def to_text
+  s=""
+  contents.each_byte{|b| s+=Apple2.to_ascii(b) unless b==0}
+  s.tr("\r","\n")
+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/apple2/AppleWorksWP.rb

@@ -0,0 +1,68 @@
+require 'NativeFileType'
+class AppleWorksWP<NativeFileType
+
+def self.file_system_file_types
+  {
+    ProDos=>0x1A
+  }
+end
+
+#AWP format defined in http://www.umich.edu/~archive/apple2/technotes/ftn/FTN.1A.xxxx
+def to_text
+    s=""
+		i=300 #skip 300 byte header
+		i+=2 if contents[183]>3 #skip the first invalid line if SFMInVers non-zero
+		while i<contents.length-4 do
+			command_byte_0=contents[i]
+			command_byte_1=contents[i+1]
+			i+=2
+			if command_byte_1==0xD0 then #it's a carriage return line - do nothing
+			elsif command_byte_1>0xD0 then #it's a command line - do nothing
+			else #it's a text record
+				bytes_in_line=command_byte_0
+				control_byte=contents[i+1]
+				chars_remaining=control_byte%0x80
+				contents[i+2..i+2+chars_remaining-1].each_byte do |b|
+					if b==0x16 then #tab char
+						s<<"\t"
+					elsif b==0x17 then
+						s<<" "
+					elsif b>=0x20 then
+						s<<b.chr
+					end
+				end
+				i+=bytes_in_line
+				s<<"\n"
+			end
+		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.

data/lib/native_file_types/apple2/Applesoft.rb

@@ -0,0 +1,115 @@
+ require 'NativeFileType'
+class Applesoft<NativeFileType
+
+def self.file_system_file_types
+  {
+    AppleDos=>0x02,
+    ProDos=>0xFC
+  }
+end
+
+APPLESOFT_TOKENS = [
+    "END","FOR","NEXT","DATA","INPUT","DEL","DIM","READ",
+		"GR","TEXT","PR#","IN#","CALL","PLOT","HLIN","VLIN",
+		"HGR2","HGR","HCOLOR=","HPLOT","DRAW","XDRAW","HTAB",
+		"HOME","ROT=","SCALE=","SHLOAD","TRACE","NOTRACE",
+		"NORMAL","INVERSE","FLASH","COLOR=","POP","VTAB",
+		"HIMEM=","LOMEM=","ONERR","RESUME","RECALL","STORE",
+		"SPEED=","LET","GOTO","RUN","IF","RESTORE","&","GOSUB",
+		"RETURN","REM","STOP","ON","WAIT","LOAD","SAVE","DEF",
+		"POKE","PRINT","CONT","LIST","CLEAR","GET","NEW",
+		"TAB(","TO","FN","SPC(","THEN","AT","NOT","STEP","+",
+		"-","*","/","^","AND","OR",">","=","<","SGN","INT",
+		"ABS","USR","FRE","SCRN(","PDL","POS","SQR","RND",
+		"LOG","EXP","COS","SIN","TAN","ATN","PEEK","LEN",
+		"STR$","VAL","ASC","CHR$", "LEFT$","RIGHT$","MID$","?",
+		"?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?"
+]
+
+def to_listing
+# Adapted from FID.C -- a utility to browse Apple II .DSK image files by Paul Schlyter (pausch@saaf.se)
+#
+#Applesoft file format:
+# <Length_of_file> (16-bit little endian) (only for Apple DOS files - these 2 bytes are not present in Applesoft file on ProDOS)
+# <Line>
+# ......
+# <Line>
+# where <Line> is:
+# <Next addr>  (16-bit little endian)
+# <Line no>    (16-bit little endian: 0-65535)
+# <Tokens and/or characters>
+# <End-of-line marker: $00 >
+#
+  if (file_system_image.file_system)==AppleDos then
+    length=contents[0]+contents[1]*256
+    index=2
+  else
+    length=contents.length
+    index=0
+
+  end
+		s=""
+		while (index<length)
+			index+=2 #skip over the "next address" field
+			break if contents[index].nil?
+			break if contents[index+1].nil?
+			line_no=contents[index]+contents[index+1]*256
+			index+=2 #skip over the "line number" field
+			s+=sprintf("%u",line_no)
+			done_line=false
+			last_char_space=false
+      inside_quotes=true
+			while (!done_line)			
+				b=contents[index]
+				break if b.nil?
+        inside_quotes=!inside_quotes if b==0x22 
+				if b>=0x80 then
+          if inside_quotes then
+            if !last_char_space then
+              s+=" "
+            end
+            s+=APPLESOFT_TOKENS[b-0x80]+" "
+            last_char_space=true
+          else
+            s+=(b-0x80).chr  #if we're inside quotes, bytes >80 are inverse text. but we'll just display them as normal text
+          end
+				else
+					s+=b.chr
+					last_char_space=false
+				end
+				index+=1
+				done_line=(index>=length)||(contents[index]==0)
+			end
+			s+="\n"
+			index+=1        # skip over "end of line" marker
+		end
+	       #s
+         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.

data/lib/native_file_types/apple2/IntegerBASIC.rb

@@ -0,0 +1,217 @@
+  require 'NativeFileType'
+class IntegerBASIC<NativeFileType
+
+def IntegerBASIC.file_system_file_types
+  {
+    AppleDos=>0x01
+  }
+end
+
+
+# Adapted from FID.C -- a utility to browse Apple II .DSK image files by Paul Schlyter (pausch@saaf.se)
+ #Integer Basic file format:
+ # <Length_of_file> (16-bit little endian)
+ # <Line>
+ # ......
+ # <Line>
+ #
+ # where <Line> is:
+ # 1 byte:   Line length
+ # 2 bytes:  Line number, binary little endian
+ # <token>
+ # <token>
+ # <token>
+ # ......
+ # <end-of-line token>
+ #
+ # <token> is one of:
+ # $12 - $7F:   Tokens as listed below: 1 byte/token
+ # $80 - $FF:   ASCII characters with high bit set
+ # $B0 - $B9:   Integer constant, 3 bytes:  $B0-$B9,
+ #                     followed by the integer value in
+ #                     2-byte binary little-endian format
+ #                     (Note: a $B0-$B9 byte preceded by an
+ #                      alphanumeric ASCII(hi_bit_set) byte
+ #                      is not the start of an integer
+ #                      constant, but instead part of a
+ #                      variable name)
+ #
+ # <end-of-line token> is:
+ # $01:         One byte having the value $01
+ #                   (Note: a $01 byte may also appear
+ #                    inside an integer constant)
+ #
+ # Note that the tokens $02 to $11 represent commands which
+ # can be executed as direct commands only -- any attempt to
+ # enter then into an Integer Basic program will be rejected
+ # as a syntax error.  Therefore, no Integer Basic program
+ # which was entered through the Integer Basic interpreter
+ # will contain any of the tokens $02 to $11.  The token $00
+ # appears to be unused and won't appear in Integer Basic
+ # programs either.  However, $00 is used as an end-of-line
+ # marker in S-C Assembler source files, which also are of
+ # DOS file type "I".
+ #
+ # (note here a difference from Applesoft Basic, where there
+ # are no "direct mode only" commands - any Applesoft commands
+ # can be entered into an Applesoft program as well).
+def to_listing
+  length=contents[0]+contents[1]*256
+  index=2
+  s=""
+
+  while (index<length)
+    in_REM = false
+    in_QUOTE = false
+    lead_SP = false
+    last_AN = false
+    last_TOK = false
+
+    line_length=contents[index]
+    index+=1 #skip over the "line length" field
+    line_no=contents[index]+contents[index+1]*256
+    index+=2 #skip over the "line number" field
+    s+=sprintf("%u ",line_no)
+    done_line=false
+    while (!done_line)			
+      lead_SP = lead_SP || last_AN
+      b=contents[index]
+      if (b >= 0x80 ) then
+        if ( !in_REM && !in_QUOTE && !last_AN && (b>= 0xB0 && b <= 0xB9) ) then
+          integer = contents[index+1]+contents[index+2]*256
+          index+=2
+          s+=sprintf( (last_TOK && lead_SP ) ? " %d" : "%d", integer )
+          lead_SP = true
+        else
+      
+          c = b & 0x7F
+          if (!in_REM && !in_QUOTE && last_TOK && lead_SP && is_alnum(c)) then
+            s+=" "
+          end
+          if ( c >= 0x20 ) then
+            s+=c.chr						
+          else
+            s+="^"+(c+0x40).chr
+          end
+          last_AN = is_alnum(c)
+        end
+        last_TOK =false			
+      else
+        
+        token = INTEGER_BASIC_TOKENS[b]
+        lastchar = token[token.length-1]
+        case b
+          when IB_REM_TOKEN then in_REM = true
+          when IB_QUOTE_START then in_QUOTE = true
+          when IB_QUOTE_END then in_QUOTE = false
+        end
+        
+        if lead_SP && ( is_alnum(token[0]) ||
+              b == IB_UNARY_PLUS ||
+              b == IB_UNARY_MINUS ||
+              b == IB_QUOTE_START  ) then
+          s+=" "
+        end
+        s+=token
+        last_AN  = false
+        lead_SP = is_alnum(lastchar) || lastchar == ')' || lastchar == '\"'
+        last_TOK = true
+      end
+      index+=1
+      done_line=(index>length)||(contents[index]==0x01)
+    end
+    s+="\n"
+    index+=1        # skip over "end of line" marker
+  end
+       s
+  
+end
+
+private
+
+  IB_REM_TOKEN =0x5D
+  IB_UNARY_PLUS = 0x35
+  IB_UNARY_MINUS = 0x36
+  IB_QUOTE_START = 0x28
+  IB_QUOTE_END = 0x29
+  INTEGER_BASIC_TOKENS=  [
+          # $00-$0F 
+          "HIMEM:","<$01>", "_",     " : ",
+          "LOAD",  "SAVE",  "CON",   "RUN",  #  Direct commands 
+          "RUN",   "DEL",   ",",     "NEW",
+          "CLR",   "AUTO",  ",",     "MAN",
+
+          # $10-$1F 
+          "HIMEM:","LOMEM:","+",     "-",     # Binary ops 
+          "*",     "/",     "=",     "#",
+          ">=",    ">",     "<=",    "<>",
+          "<",     "AND",   "OR",    "MOD",
+
+          # $20-$2F
+          "^",     "+",     "(",     ",",
+          "THEN",  "THEN",  ",",     ",",
+          "\"",    "\"",    "(",     "!",
+          "!",     "(",     "PEEK",  "RND",
+
+          # $30-$3F 
+          "SGN",   "ABS",   "PDL",   "RNDX",
+          "(",     "+",     "-",     "NOT",   # Unary ops 
+          "(",     "=",     "#",     "LEN(",
+          "ASC(",  "SCRN(", ",",     "(",
+
+          # $40-$4F
+          "$",     "$",     "(",     ",",
+          ",",     ";",     ";",     ";",
+          ",",     ",",     ",",     "TEXT",  # Statements 
+          "GR",    "CALL",  "DIM",   "DIM",
+
+          # $50-$5F 
+          "TAB",   "END",   "INPUT", "INPUT",
+          "INPUT", "FOR",   "=",     "TO",
+          "STEP",  "NEXT",  ",",     "RETURN",
+          "GOSUB", "REM",   "LET",   "GOTO",
+
+          # $60-$6F
+          "IF",    "PRINT", "PRINT", "PRINT",
+          "POKE",  ",",     "COLOR=","PLOT",
+          ",",     "HLIN",  ",",     "AT",
+          "VLIN",  ",",     "AT",    "VTAB",
+
+          # $70-$7F 
+          "=",     "=",     ")",     ")",
+          "LIST",  ",",     "LIST",  "POP",
+          "NODSP", "DSP",  "NOTRACE","DSP",
+          "DSP",   "TRACE", "PR#",   "IN#",
+      ]
+
+	def is_alnum(c)
+		!((c.chr=~/[A-Za-z0-9]/).nil?)
+	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/apple2/NADOLFile.rb

@@ -0,0 +1,205 @@
+require 'NativeFileType'
+
+class NADOLFile<NativeFileType
+
+def self.file_system_file_types
+  {
+    NADOLDos=>:any
+  }
+end
+
+#NADOL files have always load to $8000
+def self.load_address(contents)
+  0x8000
+end
+
+end
+
+#file packed by the NADOL EDITOR application.
+#format is a series of  unnumbered lines, where each line has the following format:
+#  <Length>     (8-bit: including length byte,  contents, zero>
+#  <Tokens and/or Characters>
+#  <Zero byte>  ($00, to mark the end of the line)
+# each byte in the line is interpreted as follows:
+# $00 - end of line marker
+# $01 - $64 - NADOL tokens
+# $65 - $70 - ??? unknown
+# $71 - $7f - 1 to F spaces
+# $80 - $FF - ASCII character with high bit set
+class NADOLTokens<NADOLFile
+  
+  	NADOL_EDITOR_TOKENS = [
+	"?",		#00 (so we can use token as an index in to this array)
+	"READ(",	#01
+	"FREE(",	#02
+	"NOT(",	#03
+	"LENGTH(",	#04
+	"PDL(",	#05
+	"SIZEOF(",	#06
+	"LSCRN(",	#07
+	"HSCRN(",	#08
+	"CHECK(",	#09
+	"MAKE(",	#0a
+	"SCREEN(",	#0b
+	"HEXPACK ",#0c
+	"PROCEDURE ",#0d
+	"ENDPROC",	#0e
+	"FUNCTION ",#0f
+	"ENDFUNC",	#10
+	"IF ",	#11
+	"ELSE",	#12
+	"ENDIF",	#13
+	"WHILE ",	#14
+	"ENDWHILE",#15
+	"DEFINE ",	#16
+	"RESULT=",	#17
+	"PRINT",	#18
+	"PRINTHEX",#19
+	"PRINTBYTE",#1a
+	"LABEL ",	#1b
+	"GOTO ",	#1c
+	"INVERSE",	#1d
+	"NORMAL",	#1e
+	"FLASH",	#1f
+	"CASE ",	#20
+	"GOTOXY(",	#21
+	"CLEAR",	#22
+	"NEW",	#23
+	"HOME",	#24
+	"CLREOL",	#25
+	"CLREOP",	#26
+	"PRBLOCK(",#27
+	"STOP",	#28
+	"COPY(",	#29
+	"FILL(",	#2a
+	"MASK(",	#2b
+	"RSECT(",	#2c
+	"WSECT(",	#2d
+	"RBLOCK(",	#2e
+	"WBLOCK(",	#2f
+	"WTRACK(",	#30
+	"WSYNC(",	#31
+	"RECAL(",	#32
+	"DISPLAY(",#33
+	"RTRACK(",	#34
+	"RSYNC(",	#35
+	"BEEP(",	#36
+	"DISASM(",	#37
+	"TEXT",	#38
+	"FORMAT(",	#39
+	"SETFORMAT(",#3a
+	"WORKDRIVE ",#3b
+	"INIT ",	#3c
+	"LOAD ",	#3d
+	"SAVE ",	#3e
+	"CATALOG",	#3f
+	"DELETE ",	#40
+	"RENAME ",	#41
+	"PACK ",	#42
+	"CONVERT(",#43
+	"INPUT(",	#44
+	"LORES",	#45
+	"PLOT(",	#46
+	"HLINE(",	#47
+	"VLINE(",	#48
+	"COLOR=",	#49
+	"FIND(",	#4a
+	"HIRES",	#4b
+	"HCOLOR=",	#4c
+	"HPLOT",	#4d
+	"CALL(",	#4e
+	"PR#",	#4f
+	"IN#",	#50
+	"FILTER(",	#51
+	"LIST",	#52
+	"RUN",	#53
+	"AUXMOVE(",#54
+	"LCMOVE(",	#55
+	"DELAY(",	#56
+	"INTEGER",	#57
+	"BYTE",	#58
+	" AND ",	#59
+	" OR ",	#5a
+	" MOD ",	#5b
+	" XOR ",	#5c
+	" WITH ",	#5d
+	" TO ",	#5e
+	" AT ",	#5f
+	"TAB(",	#60
+	"ENDCASE",	#61
+	"MON:",	#62
+	"EDIT",	#63
+	"SAVE@"	#64
+]
+
+	#heuristics are:
+	#that each line starts with a line length and ends with a "0"
+  is_valid_file_if lambda {
+    is_valid=true
+    i=0
+		while i<contents.length && is_valid
+			line_length=contents[i]
+			if contents[i+line_length-1]!=0 then
+        is_valid=false
+      end
+			i+=line_length
+		end			
+    is_valid
+  }
+  
+  def to_listing
+  s=""
+  index=0
+  while (index<contents.length)
+    line_length=contents[index]
+    index+=1
+    end_of_line=index+line_length-2
+    while(index<end_of_line)
+      b=contents[index]
+      if (b<=0x64) then
+        s+=NADOL_EDITOR_TOKENS[b]
+      elsif(b>0x70 and b<0x80) then
+        s+=" "*(b-0x70)
+      elsif(b>=0x80) then
+        s+=(b-0x80).chr
+      else
+        raise sprintf("unknown token %02X at offset %04X",b,index)
+      end
+      index+=1 #move to next char
+    end
+    index+=1 #skip over end-of-line marker
+    s+="\n"
+  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.

data/lib/native_file_types/apple2/PascalFile.rb

@@ -0,0 +1,48 @@
+require 'NativeFileType'
+
+class PascalFile<NativeFileType
+
+PASCAL_FILE_TYPES=[:untyped,:xdsk,:code,:text,:info,:data,:graf,:foto,:securedir]
+
+  def PascalFile.file_system_file_types
+    {
+      PascalDos=>:any
+    }
+  end
+
+def type_description
+  "PascalFile:#{PASCAL_FILE_TYPES[file_type]}"  
+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.