From 015278394453c56fde79b4400d49435be6a7e557 Mon Sep 17 00:00:00 2001
From: Peter Veenstra <qbix79@users.sourceforge.net>
Date: Wed, 5 Oct 2005 07:57:55 +0000
Subject: [PATCH] Implement GetFileAttr. Fixes Installer crystal caves.

Imported-from: https://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk@2337
---
 src/dos/drive_virtual.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/dos/drive_virtual.cpp b/src/dos/drive_virtual.cpp
index 43a507ed..802e6d6f 100644
--- a/src/dos/drive_virtual.cpp
+++ b/src/dos/drive_virtual.cpp
@@ -225,6 +225,14 @@ bool Virtual_Drive::FindNext(DOS_DTA & dta) {
 }
 
 bool Virtual_Drive::GetFileAttr(char * name,Bit16u * attr) {
+	VFILE_Block * cur_file=first_file;
+	while (cur_file) {
+		if (strcasecmp(name,cur_file->name)==0) { 
+			*attr = DOS_ATTR_ARCHIVE;	//Maybe readonly ?
+			return true;
+		}
+		cur_file=cur_file->next;
+	}
 	return false;
 }