/*
Work started by Tim Bird (tbird@novell.com) 28th October 1993

	
	added support for CONTROL_REDIRECTION in dos_fs_redirect.
	removed my_drive, and made drive arrays 0-based instead of
	first_drive based.


This module is a port of the redirector handling in the mach dos
emulator to the linux dos emulator. Started by
Andrew.Tridgell@anu.edu.au on 30th March 1993



version 1.4 12th May 1993

      added a cds_flags check in select_drive so the pointers can
      be recalculated when the cds moves. This means you can use the
      emufs drive immediately after it installs, even using it to load
      other device drivers in config.sys

      fixed the volume label bug, so now volume labels are enabled by default.
      We really should do something more useful with them.

      ran "indent" on mfs.c so emacs wouldn't choke in C mode

      did a quick fix for nested finds so they work if the inner find
      didn't finish.  I don't think it's quite right yet, probably
      find_first/next need to be completely rewritten to get perfect
      behaviour, especially for programs that may try to hack directly with
      the search template/directory entry during a find.

      added Roberts patches so the root directory gets printed when initialised

version 1.3 9th may 1993

      completely revamped find_file() so it can match mixed case names.
      This doesn't seem to have cost as much in speed as I thought
      it would. This actually involved changes to quite a few routines for
      it to work properly.

      added a check for the dos root passed to init_drive - you now get
      a "server not responding" error with a bad path - this is still not good
      but's it's better than just accepting it.

version 1.2 8th may 1993

      made some changes to get_dir() which make the redirector MUCH faster.
      It no longer stat's every file when searching for a file. This
      is most noticible when you have a long dos path.

      also added profiling. This is supported by profile.c and profile.h.

version 1.2 7th may 1993

      more changes from Stephen Tweedie to fix the dos root length
      stuff, hopefully it will now work equally well with DRDOS and MSDOS.

      also change the way the calculate_dos_pointers() works - it's
      now done drive by drive which should be better

      also fixed for MS-DOS 6. It turned out that the problem was that
      an earlier speculative dos 6 compatability patch I did managed to get
      lost in all the 0.49v? ungrades. re-applying it fixed the problem.
      *grumble*. While I was doing that I fixed up non-cds filename finding
      (which should never be used anyway as we have a valid cds), and added
      a preliminary qualify_filename (which is currently turned off
      as it's broken)

version 1.1 1st May 1993

      incorporated patches from Stephen Tweedie to
      fix things for DRDOS and to make the file attribute handling
      a lot saner. (thanks Stephen!)

      The main DRDOS change is to handle the fact that filenames appear
      to be in <DRIVE><PATH> format rather than <DRIVE>:\<PATH>. Hopefully
      the changes will not affect the operation under MS-DOS

version 1.0 17th April 1993
changes from mach dos emulator version 2.5:

   - changed SEND_FROM_EOF to SEEK_FROM_EOF and added code (untested!)
   - added better attribute mapping and set attribute capability
   - remove volume label to prevent "dir e:" bug
   - made get_attribute return file size
   - added multiple drive capability via multiple .sys files in config.sys
   - fixed so compatible with devlod so drives can be added on the fly
   - allow unix directory to be chosen with command line in config.sys
   - changed dos side (.asm) code to only use 1 .sys file (removed
     need for mfsini.exe)
   - ported linux.asm to use as86 syntax (Robert Sanders did this - thanks!)
   - added read-only option on drives
   - totally revamped drive selection to match Ralf's interrupt list
   - made reads and writes faster by not doing 4096 byte chunks
   - masked sigalrm in read and write to prevent crash under NFS
   - gave delete_file it's own hlist to prevent clashes with find_next

TODO:
   - fix volume labels
   - get filename qualification working properly
   - anything else???

*/

/* ### commented out #ifdef-#else ### */
/* #ifdef linux */
#define DOSEMU 1		/* this is a port to dosemu */
/* #endif */

#if PROFILE
#include "profile.h"
#else
#define PS(x)
#define PE(x)
#endif

/*
 * Copyright (c) 1991 Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify and distribute this software and its
 * documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 *
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 *
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie Mellon
 * the rights to redistribute these changes.
 */
/*
 *
 * Purpose:
 *	V86 DOS disk emulation routines
 *
 * HISTORY:
 * $Log: mfs.c,v $
 * Revision 1.27  1994/03/04  15:23:54  root
 * Run through indent.
 *
 * Revision 1.26  1994/03/04  14:46:13  root
 * Volume change by Harald Koenig (koenig@nova.tat.physik.uni-tuebingen.de).
 *
 * Revision 1.25  1994/02/20  10:00:16  root
 * Removed an annoying show_regs();.
 *
 * Revision 1.24  1994/02/17  20:46:54  root
 * Thanks to Jim jwest@master.ceat.okstate.edu for pointing out a bug
 * I introduced into function 0x23. I also cleaned up another in the same
 * function.
 *
 * Revision 1.23  1994/02/10  20:41:14  root
 * Last cleanup prior to release of pl4.
 *
 * Revision 1.22  1994/02/10  17:40:26  root
 * Another hack for /directory/NUL references.
 *
 * Revision 1.21  1994/02/05  21:45:55  root
 * Changed all references within ssp's from !REG to !LWORD.
 *
 * Revision 1.20  1994/02/02  21:12:56  root
 * More work on pipes.
 *
 * Revision 1.19  1994/01/31  22:37:10  root
 * Partially fix create NEW truncate as opposed to create truncate.
 *
 * Revision 1.18  1994/01/30  14:29:51  root
 * Changed FCB callout for redirector, now inline and works with Create|O_TRUNC.
 *
 * Revision 1.17  1994/01/30  12:30:23  root
 * Changed dos_helper() to int 0xe6 from 0xe5.
 *
 * Revision 1.16  1994/01/27  21:47:09  root
 * Patches from Tim_R_Bird@Novell.COM to allow lredir.exe to run without
 * having emufs.sys.
 *
 * Revision 1.15  1994/01/25  20:02:44  root
 * Exchange stderr <-> stdout.
 *
 * Revision 1.14  1994/01/20  21:14:24  root
 * Indent.
 *
 * Revision 1.13  1994/01/19  17:51:14  root
 * Added a 'closer to correct' way of handling O_TRUNC requests.
 * Added first attempt at FCB support.
 * Added 0x80 flag to tell DOS it's not lanman redirector.
 * Added more code to findfirst/next routines, still needs more work!
 *
 * Revision 1.12  1994/01/12  21:27:15  root
 * Update to work with ../NUL device. Also added code to allow
 * mfs.c properly deal the GetRedirection with Novell-Lite Printers.
 *
 * Revision 1.11  1993/12/30  15:11:50  root
 * Fixed multiple emufs.sys problem.
 *
 * Revision 1.10  1993/12/22  12:27:43  root
 * Added lredir using environment vars by coosman@asterix.uni-muenster.de
 *
 * Revision 1.9  1993/12/22  11:45:36  root
 * Fixes for ftruncate, now when opening write only, truncate at sft_position
 * after first write.
 *
 * Revision 1.8  1993/12/05  20:59:03  root
 * Added ftruncate inplace of close/reopen for O_TRUNC
 *
 * Revision 1.7  1993/11/30  22:21:03  root
 * Final Freeze for release pl3
 *
 * Revision 1.6  1993/11/30  21:26:44  root
 * Chips First set of patches, WOW!
 *
 * Revision 1.5  1993/11/29  00:05:32  root
 * Add code for Open DOS write to Truncate File.
 *
 * Revision 1.4  1993/11/25  22:45:21  root
 * About to destroy keybaord routines.
 *
 * Revision 1.3  1993/11/23  22:24:53  root
 * Truncate file problem
 *
 * Revision 1.2  1993/11/17  22:29:33  root
 * Added \ to CWD returned dir
 *
 * Revision 1.2  1993/11/08  18:44:40  root
 * Added sft_size adjustment when writes extend file size.
 * Removed (commented) write 0 cnt to allow DOS creating HOLES via lseek.
 * Fixed findfirst/findnext calls that included Volume Label attribute.
 *
 * Revision 1.1  1993/07/07  00:49:06  root
 * Initial revision
 *
 * Revision 1.3  1993/05/04  05:29:22  root
 * added console switching, new parse commands, and serial emulation
 *
 *
 * Revision 2.5  92/05/22  15:59:38  grm
 * 	Aesthetic change.
 * 	[92/05/21            grm]
 *
 * Revision 2.4  92/02/02  23:02:37  rvb
 * 	Fixed the build_ufs_path problem with '/' as DOSROOT.
 * 	[92/01/29            grm]
 *
 * Revision 2.3  91/12/06  15:29:30  grm
 * 	Added code to find out what the psp of the process which
 * 	initializes the device drivers in config.sys was.  This seems to
 * 	be undefined ([sarcasm] surprise surprise :-)).
 * 	[91/12/06            grm]
 *
 * Revision 2.2  91/12/05  16:42:23  grm
 * 	Added some initialization code for relative and absolute cluster
 * 	offsets within the sft.  Added the debug_dump_sft procedure which
 * 	dumps out the sft for a given file handle.  Fixed the MS-Write
 * 	network drive bug by checking if my_drive == the file's
 * 	sft_device_info's number.  This insidious bug could be the fault
 * 	of the MS-Write program and not us.  It somehow corrupts it's
 * 	copy of the file's cds.  This was a nasty one!  Ifdefed out the
 * 	afs get_disk_space code.
 * 	[91/12/04            grm]
 * 	Added support for the DOSROOT functionality.
 * 	Fixed the set_directory_name so that a trailing
 * 	backslash wouldn't be the last character except
 * 	for the root directory in the cds.
 * 	[91/08/09  19:54:24  grm]
 *
 * 	Corrected the code so that you can use different
 * 	find_first/next lists.
 * 	[91/07/16  17:50:46  grm]
 *
 * 	Changed so that can be used with Dos v4.0 and 5.00
 * 	[91/06/28  18:55:03  grm]
 *
 * 	Initialization fixes.  Several small fixes.
 * 	[91/06/14  11:57:29  grm]
 *
 * 	New Copyright.  Fixed get_disk_space.
 * 	[91/05/28  15:16:08  grm]
 *
 * 	Exports lol, cds, and sda to other modules.
 * 	[91/04/30  13:49:20  grm]
 *
 * 	Works with version 1.1 of machfs.sys and
 * 	mfsini.exe.  Fixed make_dir.
 * 	[91/04/30  13:45:51  grm]
 *
 * 	Created.
 * 	[91/03/26  19:25:05  grm]
 *
 */

#if !DOSEMU
#include "base.h"
#include "bios.h"
#endif

/* ### Added by DH ### */
#include "global.h"
/* ### End of addition ### */

#include <stdio.h>
#ifdef AMIGA
#include <time.h>
#include <dos.h>
#include <fcntl.h>
#define L_SET 0
#define ALIGNED __aligned
#else
#include <sys/file.h>
#include <sys/ioctl.h>
#include <sys/time.h>
#include <sys/param.h>
#include <malloc.h>
#define ALIGNED
#endif
#include <sys/stat.h>
#include <sys/types.h>
#include <ctype.h>
#include <errno.h>
#include <stdlib.h>

#ifdef SOLARIS
#include <fcntl.h>
#include <sys/statvfs.h>
#endif

#if defined(SGI) || defined(RS6000)
#include <sys/statfs.h>
#else
#ifndef AMIGA
#include <sys/vfs.h>
#endif
#endif


#if !DOSEMU
#include <mach/message.h>
#include <mach/exception.h>

#include "dos.h"
#else
#include "mfs.h"

/* ### Commented out by DH ###
*  #include "config.h"
*/
/* For passing through GetRedirection Status */
#ifndef AMIGA
#include "memory.h"
#endif
#include <dirent.h>
#include <signal.h>
#include <string.h>
#endif


/* these universal globals defined here (externed in dos.h) */
boolean_t mach_fs_enabled = FALSE;

#define INSTALLATION_CHECK	0x0
#define	REMOVE_DIRECTORY	0x1
#define	REMOVE_DIRECTORY_2	0x2
#define	MAKE_DIRECTORY		0x3
#define	MAKE_DIRECTORY_2	0x4
#define	SET_CURRENT_DIRECTORY	0x5
#define	CLOSE_FILE		0x6
#define	COMMIT_FILE		0x7
#define	READ_FILE		0x8
#define	WRITE_FILE		0x9
#define	LOCK_FILE_REGION	0xa
#define	UNLOCK_FILE_REGION	0xb
#define	GET_DISK_SPACE		0xc
#define	SET_FILE_ATTRIBUTES	0xe
#define	GET_FILE_ATTRIBUTES	0xf
#define RENAME_FILE		0x11
#define	DELETE_FILE		0x13
#define	OPEN_EXISTING_FILE	0x16
#define	CREATE_TRUNCATE_FILE	0x17
#define	CREATE_TRUNCATE_NO_CDS	0x18
#define	FIND_FIRST_NO_CDS	0x19
#define	FIND_FIRST		0x1b
#define	FIND_NEXT		0x1c
#define	CLOSE_ALL		0x1d
#define	CONTROL_REDIRECT	0x1e
#define PRINTER_SETUP  0x1f
#define	FLUSH_ALL_DISK_BUFFERS	0x20
#define	SEEK_FROM_EOF		0x21
#define	PROCESS_TERMINATED	0x22
#define	QUALIFY_FILENAME	0x23
/*#define TURN_OFF_PRINTER   0x24 */
#define MULTIPURPOSE_OPEN	0x2e	/* Used in DOS 4.0+ */
#define PRINTER_MODE  0x25	/* Used in DOS 3.1+ */
/*#define UNDOCUMENTED_FUNCTION_2 0x25 /* Used in DOS 4.0+ */
#define EXTENDED_ATTRIBUTES 0x2d/* Used in DOS 4.x */

#define EOS		'\0'
#define	SLASH		'/'
#define BACKSLASH	'\\'

/* Need to know how many drives are redirected */
u_char redirected_drives = 0;

/* dos_disk.c */
struct dir_ent *get_dir();
void auspr();

boolean_t drives_initialized = FALSE;
char *dos_roots[MAX_DRIVE];
int dos_root_lens[MAX_DRIVE];
boolean_t read_onlys[MAX_DRIVE];
boolean_t finds_in_progress[MAX_DRIVE];
boolean_t find_in_progress = FALSE;
int current_drive = 0;
u_char first_free_drive = 0;
int num_drives = 0;
int process_mask = 0;
boolean_t read_only = FALSE;

lol_t lol = NULL;
far_t cdsfarptr;
cds_t cds_base;
cds_t cds;
sda_t sda;
u_short com_psp = (u_short) NULL;

int dos_major;
int dos_minor;

char *dos_root = "";
int dos_root_len = 0;

/* initialize 'em to 3.1 to 3.3 */

int sdb_drive_letter_off = 0x0;
int sdb_template_name_off = 0x1;
int sdb_template_ext_off = 0x9;
int sdb_attribute_off = 0xc;
int sdb_dir_entry_off = 0xd;
int sdb_p_cluster_off = 0xf;
int sdb_file_name_off = 0x15;
int sdb_file_ext_off = 0x1d;
int sdb_file_attr_off = 0x20;
int sdb_file_time_off = 0x2b;
int sdb_file_date_off = 0x2d;
int sdb_file_st_cluster_off = 0x2f;
int sdb_file_size_off = 0x31;

int sft_handle_cnt_off = 0x0;
int sft_open_mode_off = 0x2;
int sft_attribute_byte_off = 0x4;
int sft_device_info_off = 0x5;
int sft_dev_drive_ptr_off = 0x7;
int sft_fd_off = 0xb;
int sft_start_cluster_off = 0xb;
int sft_time_off = 0xd;
int sft_date_off = 0xf;
int sft_size_off = 0x11;
int sft_position_off = 0x15;
int sft_rel_cluster_off = 0x19;
int sft_abs_cluster_off = 0x1b;
int sft_directory_sector_off = 0x1d;
int sft_directory_entry_off = 0x1f;
int sft_name_off = 0x20;
int sft_ext_off = 0x28;

int cds_record_size = 0x51;
int cds_current_path_off = 0x0;
int cds_flags_off = 0x43;
int cds_DBP_pointer_off = 0x45;
int cds_cur_cluster_off = 0x49;
int cds_rootlen_off = 0x4f;

int sda_current_dta_off = 0xc;
int sda_cur_psp_off = 0x10;
int sda_filename1_off = 0x92;
int sda_filename2_off = 0x112;
int sda_sdb_off = 0x192;
int sda_cds_off = 0x26c;
int sda_search_attribute_off = 0x23a;
int sda_open_mode_off = 0x23b;
int sda_rename_source_off = 0x2b8;
int sda_user_stack_off = 0x250;

int lol_cdsfarptr_off = 0x16;
int lol_last_drive_off = 0x21;

/*
 * These offsets only meaningful for DOS 4 or greater:
 */
int sda_ext_act_off = 0x2dd;
int sda_ext_attr_off = 0x2df;
int sda_ext_mode_off = 0x2e1;

/* here are the functions used to interface dosemu with the mach
dos redirector code */



#include <sys/types.h>


#ifndef MAXNAMLEN
#define MAXNAMLEN 256
#endif

#ifndef MAXPATHLEN
#define MAXPATHLEN 256
#endif

struct mydirect
{
    u_long d_ino;
    u_short d_namlen;
    char d_name[MAXNAMLEN+1];
};




struct mydirect *dos_readdir(DIR *);
int calculate_drive_pointers(int dd);
boolean_t find_file(char *fpath, struct stat *st);
int dos_fs_redirect(state_t *state);
boolean_t dos_fs_dev(state_t *state);
boolean_t compare(char *fname, char *fext, char *mname, char *mext);

#if DOSEMU
int
exchange_uids(void)
{
/* ### Added by DH ### */
    
#if !defined(__hpux) && !defined(SOLARIS) && !defined(RS6000) && !defined(AMIGA)
    if (setreuid(geteuid(), getuid()) ||
        setregid(getegid(), getgid())) {
        error("MFS: Cannot exchange real/effective uid or gid!\n");
        return (0);
    }
#endif
    return (1);
}

#endif

/* Try and work out if the current command is for any of my drives */
int
select_drive(state_t *state)
{
  int dd;
  boolean_t found = 0;
  boolean_t check_cds = FALSE;
  boolean_t check_dpb = FALSE;
  boolean_t check_esdi_cds = FALSE;
  boolean_t check_sda_ffn = FALSE;
  boolean_t check_always = FALSE;
  boolean_t check_dssi_fn = FALSE;

  cds_t sda_cds = sda_cds(sda);
  cds_t esdi_cds = (cds_t) Addr(state, es, edi);
  sft_t sft = (u_char *) Addr(state, es, edi);
  int fn = LOW(state->eax);

/* ### Next bit changed by DH ### */
  cdsfarptr.segment = (lol_cdsfarptr(lol) >> 16) & 0xffff;
  cdsfarptr.offset = (lol_cdsfarptr(lol) & 0xffff);

  cds_base = (cds_t) Addr_8086(cdsfarptr.segment, cdsfarptr.offset);

  Debug0((dbg_fd, "selecting drive fn=%x sda_cds=%p\n",
	  fn, (void *) sda_cds));

  switch (fn) {
  case INSTALLATION_CHECK:	/* 0x0 */
  case CONTROL_REDIRECT:	/* 0x1e */
    check_always = TRUE;
    break;
  case QUALIFY_FILENAME:	/* 0x23 */
    check_dssi_fn = TRUE;
    break;
  case REMOVE_DIRECTORY:	/* 0x1 */
  case REMOVE_DIRECTORY_2:	/* 0x2 */
  case MAKE_DIRECTORY:		/* 0x3 */
  case MAKE_DIRECTORY_2:	/* 0x4 */
  case SET_CURRENT_DIRECTORY:	/* 0x5 */
  case SET_FILE_ATTRIBUTES:	/* 0xe */
  case GET_FILE_ATTRIBUTES:	/* 0xf */
  case RENAME_FILE:		/* 0x11 */
  case DELETE_FILE:		/* 0x13 */
  case CREATE_TRUNCATE_FILE:	/* 0x17 */
  case FIND_FIRST:		/* 0x1b */
    check_cds = TRUE;
    break;

  case CLOSE_FILE:		/* 0x6 */
  case COMMIT_FILE:		/* 0x7 */
  case READ_FILE:		/* 0x8 */
  case WRITE_FILE:		/* 0x9 */
  case LOCK_FILE_REGION:	/* 0xa */
  case UNLOCK_FILE_REGION:	/* 0xb */
  case SEEK_FROM_EOF:		/* 0x21 */
    check_dpb = TRUE;
    break;

  case GET_DISK_SPACE:		/* 0xc */
    check_esdi_cds = TRUE;
    break;

  case OPEN_EXISTING_FILE:	/* 0x16 */
  case MULTIPURPOSE_OPEN:	/* 0x2e */
  case FIND_FIRST_NO_CDS:	/* 0x19 */
  case CREATE_TRUNCATE_NO_CDS:	/* 0x18 */
    check_sda_ffn = TRUE;
    break;

  default:
    check_cds = TRUE;
    break;
    /* The rest are unknown - assume check_cds */
    /*
	case CREATE_TRUNCATE_NO_DIR	0x18
	case FIND_NEXT		0x1c
	case CLOSE_ALL		0x1d
	case FLUSH_ALL_DISK_BUFFERS	0x20
	case PROCESS_TERMINATED	0x22
	case UNDOCUMENTED_FUNCTION_2	0x25
	*/
  }

  /* re-init the cds stuff for any drive that I think is mine, but
	where the cds flags seem to be unset. This allows me to reclaim a
 	drive in the strange and unnatural case where the cds has moved. */
  for (dd = 0; dd < num_drives && !found; dd++)
    if (dos_roots[dd] && (cds_flags_r(drive_cds(dd)) &
			  (CDS_FLAG_REMOTE | CDS_FLAG_READY)) !=
	(CDS_FLAG_REMOTE | CDS_FLAG_READY)) {
      calculate_drive_pointers(dd);
    }

  if (check_always)
    found = 1;

  if (!found && check_cds)
    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      if (drive_cds(dd) == sda_cds)
	found = 1;
    }

  if (!found && check_esdi_cds)
    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      if (drive_cds(dd) == esdi_cds)
	found = 1;
    }

  if (!found && check_dpb)
    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      if ((sft_device_info_r(sft) & 0x1f) == dd)
	found = 1;
    }

  if (!found && check_sda_ffn) {
    char *fn1 = sda_filename1(sda);

    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      /* removed ':' check so DRDOS would be happy,
	     there is a slight worry about possible device name
	     troubles with this - will PRN ever be interpreted as P:\RN ? */
      if ((toupper(fn1[0]) - 'A') == dd)
	found = 1;
    }
  }

  if (!found && check_dssi_fn) {

    char *nametmp;
    char *name = (char *) Addr(state, ds, esi);

    nametmp = (char *) malloc(MAXPATHLEN);
    strcpy(nametmp, cds_current_path(cds));
    Debug0((dbg_fd, "FNX=%.15s\n", name));
    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      if ((toupper(name[0]) - 'A') == dd
	  && (name[1] == ':' || name[1] == '\\'))
	found = 1;
    }

    if (found && name[0] == '.' && name[1] == '\\') {
      fprintf(stderr, "MFS: ---> %s\n", nametmp);
      if (nametmp[2] == '\\')
	strcat(nametmp, &name[2]);
      else
	strcat(nametmp, &name[1]);
      strcpy(name, nametmp);
      Debug0((dbg_fd, "name changed to %s\n", name));
    }

    free(nametmp);
  }

  /* for find next we will check the drive letter in the
     findfirst block which is in the DTA */
  if (!found && fn == FIND_NEXT) {
    u_char *dta = (u_char *)sda_current_dta(sda);

    for (dd = 0; dd < num_drives && !found; dd++) {
      if (!dos_roots[dd])
	continue;
      if ((*dta & ~0x80) == dd)
	found = 1;
    }
  }

  if (!found) {
    Debug0((dbg_fd, "no drive selected fn=%x\n", fn));
    if (fn == 0x1f) {
      SETWORD(&(state->ebx), UWORD(state->ebx) - redirected_drives);
      Debug0((dbg_fd, "Passing %d to PRINTER SETUP anyway\n",
	      (int) UWORD(state->ebx)));
    }
    return (0);
  }

  /* dd is always 1 too large here because of for loop structure above */
  current_drive = dd - 1;

  cds = drive_cds(current_drive);
  find_in_progress = finds_in_progress[current_drive];
  dos_root = dos_roots[current_drive];
  dos_root_len = dos_root_lens[current_drive];
  read_only = read_onlys[current_drive];

  Debug0((dbg_fd, "selected drive %d: %s\n", current_drive, dos_root));
  return (1);
}

int
get_dos_attr(int mode)
{
  int attr = 0;

  if (mode & S_IFDIR)
    attr |= DIRECTORY;
  if (!(mode & S_IWRITE))
    attr |= READ_ONLY_FILE;
#ifndef AMIGA
  if (!(mode & S_IEXEC))
    attr |= ARCHIVE_NEEDED;
#endif
  return (attr);
}

int
get_unix_attr(int mode, int attr)
{
#ifndef AMIGA
#define S_IWRITEA (S_IWUSR | S_IWGRP | S_IWOTH)
  mode &= ~(S_IFDIR | S_IWRITE | S_IEXEC);
#else
  mode &= ~S_IFDIR;
#endif
  if (attr & DIRECTORY)
    mode |= S_IFDIR;
#ifndef AMIGA
  if (!(attr & READ_ONLY_FILE))
    mode |= S_IWRITEA;
  if (!(attr & ARCHIVE_NEEDED))
    mode |= S_IEXEC;
  /* Apply current umask to rwx_group and rwx_other permissions */
  mode &= ~(process_mask & (S_IRWXG | S_IRWXO));
  /* Don't set WG or WO unless corresponding Rx is set! */
  mode &= ~(((mode & S_IROTH) ? 0 : S_IWOTH) |
	    ((mode & S_IRGRP) ? 0 : S_IWGRP));
#endif
  return (mode);
}

int
get_disk_space(char *cwd, int *free, int *total)
{
#ifndef AMIGA
#ifdef SOLARIS
    struct statvfs fsbuf;
    if (statvfs(cwd, &fsbuf) >= 0)
#else
    struct statfs fsbuf;
#ifdef SGI
    if (statfs(cwd, &fsbuf, sizeof (struct statfs), 0) >= 0)
#else
    if (statfs(cwd, &fsbuf) >= 0)
#endif
#endif
    {
#ifdef SGI
        *free = fsbuf.f_bsize * fsbuf.f_bfree / 512;
#else
        *free = fsbuf.f_bsize * fsbuf.f_bavail / 512;
#endif
        *total = fsbuf.f_bsize * fsbuf.f_blocks / 512;
        return (1);
    }
    else
#endif
        return (0);
}

void
init_all_drives(void)
{
  int dd;

  if (!drives_initialized) {
    drives_initialized = TRUE;
    for (dd = 0; dd < MAX_DRIVE; dd++) {
      dos_roots[dd] = NULL;
      dos_root_lens[dd] = 0;
      finds_in_progress[dd] = FALSE;
      read_onlys[dd] = FALSE;
    }
#ifndef AMIGA
    process_mask = umask(0);
    umask(process_mask);
#endif
  }
}

/*
  *  this routine takes care of things
  * like getting environment variables
  * and such.  \ is used as an escape character.
  * \\ -> \
  * \${VAR} -> value of environment variable VAR
  * \T -> current tmp directory
  *
  */
void
get_unix_path(char *new_path, char *path)
{
  char str[MAXPATHLEN];
  char var[256];
  char *orig_path = path;
  char *val;
  char *tmp_str;
  int i;
  int esc;
  extern char tmpdir[];

  i = 0;
  esc = 0;
  for (; *path != 0; path++) {
      if (esc) {
          switch (*path) {
          case '\\':		/* really meant a \ */
              str[i++] = '\\';
              break;
          case 'T':		/* the name of the temporary directory */
              strncpy(&str[i], tmpdir, MAXPATHLEN - 2 - i);
              str[MAXPATHLEN - 2] = 0;
              i = strlen(str);
              break;
          case '$':		/* substitute an environment variable. */
              path++;
              if (*path != '{') {
                  var[0] = *path;
                  var[1] = 0;
              }
              else {
                  for (tmp_str = var; *path != 0 && tmp_str != &var[255]; tmp_str++) {
                      path++;
                      if (*path == '}')
                          break;
                      *tmp_str = *path;
                  }
                  *tmp_str = 0;
                  val = getenv(var);
                  if (val == NULL) {
                      Debug0((dbg_fd,
                              "In path=%s, Environment Variable $%s is not set.\n",
                              orig_path, var));
                      break;
                  }
                  strncpy(&str[i], val, MAXPATHLEN - 2 - i);
                  str[MAXPATHLEN - 2] = 0;
                  i = strlen(str);
                  esc = 0;
                  break;
              }
          }
      }
      else {
          if (*path == '\\') {
              esc = 1;
          }
          else {
              str[i++] = *path;
          }
      }
      if (i >= MAXPATHLEN - 2) {
          i = MAXPATHLEN - 2;
          break;
      }
  }
  if (i == 0 || str[i - 1] != '/')
      str[i++] = '/';
  str[i] = 0;
  strcpy(new_path, str);
  Debug0((dbg_fd,
          "unix_path returning %s from %s.\n",
          new_path, orig_path));
  return;
}

int
init_drive(int dd, char *path, char *options)
{
  ALIGNED struct stat st;
  char *new_path;

  new_path = malloc(MAXPATHLEN + 1);
  if (new_path == NULL) {
    Debug0((dbg_fd,
	    "Out of memory in path %s.\n",
	    path));
    return ((int) NULL);
  }
  get_unix_path(new_path, path);
  Debug0((dbg_fd, "new_path=%s\n", new_path));
  dos_roots[dd] = new_path;
  dos_root_lens[dd] = strlen(dos_roots[dd]);
  Debug0((dbg_fd, "next_aval %d path %s opts %s root %s length %d\n",
	  dd, path, options, dos_roots[dd], dos_root_lens[dd]));

  /* now a kludge to find the true name of the path */
  if (dos_root_lens[dd] != 1) {
    boolean_t find_file();

    dos_roots[dd][dos_root_lens[dd] - 1] = 0;
    dos_root_len = 1;
    dos_root = "/";
    if (!find_file(dos_roots[dd], &st)) {
      error("MFS ERROR: couldn't find root path %s\n", dos_roots[dd]);
      return (0);
    }
    if (!(st.st_mode & S_IFDIR)) {
      error("MFS ERROR: root path is not a directory %s\n", dos_roots[dd]);
      return (0);
    }
    dos_roots[dd][dos_root_lens[dd] - 1] = '/';
  }

  if (num_drives <= dd)
    num_drives = dd + 1;
  read_onlys[dd] = (options && (toupper(options[0]) == 'R'));
  Debug0((dbg_fd, "initialised drive %d as %s\n  with access of %s\n", dd, dos_roots[dd],
	  read_onlys[dd] ? "READ_ONLY" : "READ_WRITE"));
  /*
  calculate_drive_pointers (dd);
*/
  return (1);
}

/***************************
 * mfs_redirector - perform redirector emulation for int 2f, ah=11
 * on entry - nothing
 * on exit - returns non-zero if call was handled
 * 	returns 0 if call was not handled, and should be passed on.
 * notes:
 ***************************/
int
mfs_redirector(void)
{
  int ret;

#if DOSEMU
  if (!exchange_uids())
    return 0;
#endif

  PS(MFS);
  ret = dos_fs_redirect(&REGS);
  PE(MFS);

/* ### Added Code = %d to line below ### */
  Debug0((dbg_fd, "Finished dos_fs_redirect. Code = %d\n", ret));

  finds_in_progress[current_drive] = find_in_progress;

#if DOSEMU
  exchange_uids();
#endif

  switch (ret) {
  case FALSE:
    REG(eflags) |= CF;
    return 1;
  case TRUE:
    REG(eflags) &= ~CF;
    return 1;
  case UNCHANGED:
    return 1;
  case REDIRECT:
    return 0;
  }

  return 0;
}

int
mfs_inte6(void)
{
  boolean_t result;

#if DOSEMU
  if (!exchange_uids())
    return 0;
#endif

  result = dos_fs_dev(&REGS);
#if DOSEMU
  exchange_uids();
#endif
  return (result);
}

/* include a few necessary functions from dos_disk.c in the mach
   code as well */
boolean_t
extract_filename(char *filename, char *name, char *ext)
{
  int pos;
  int dec_found;
  boolean_t invalid;
  int end_pos;
  int slen;
  int flen;

  pos = 1;
  end_pos = 0;
  dec_found = 0;
  invalid = FALSE;
  while ((pos < 13) && !invalid) {
    char ch = filename[pos];

    if (ch == 0) {
      end_pos = pos - 1;
      pos = 20;
      continue;
    }
    if (dec_found) {
      /* are there more than one .'s ? */
      if (ch == '.') {
	invalid = TRUE;
	continue;
      }
      /* is extension > 3 long ? */
      if (pos - dec_found > 3) {
	invalid = TRUE;
	continue;
      }
    }
    else {
      /* is filename > 8 long ? */
      if ((pos > 7) && (ch != '.')) {
	invalid = TRUE;
	continue;
      }
    }
    switch (ch) {
    case '.':
      dec_found = pos;
      break;
    case '"':
    case '/':
    case '\\':
    case '[':
    case ']':
    case ':':
    case '<':
    case '>':
    case '+':
    case '=':
    case ';':
    case ',':
      invalid = TRUE;
      break;
    default:
      break;
    }
    pos++;
  }
  if (invalid)
    return (FALSE);

  if ((pos > 11) && (pos != 20))
    return (FALSE);

  if (dec_found == 0) {
    slen = end_pos + 1;
  }
  else {
    slen = dec_found;
  }
  strncpy(name, filename, slen);
  if (slen < 8) {
    if ((flen = 8 - slen) > 0)
      strncpy((name + slen), "        ", flen);
  }

  if (dec_found) {
    if (end_pos) {
      slen = end_pos - dec_found;
    }
    else {
      slen = 3;
    }
    strncpy(ext, (filename + dec_found + 1), slen);
    if (3 - slen > 0)
      strncpy((ext + slen), "   ", 3 - slen);
  }
  else {
    strncpy(ext, "   ", 3);
  }

  for (pos = 0; pos < 8; pos++) {
    char ch = name[pos];

    if (isalpha(ch) && islower(ch))
      name[pos] = toupper(ch);
  }

  for (pos = 0; pos < 3; pos++) {
    char ch = ext[pos];

    if (isalpha(ch) && islower(ch))
      ext[pos] = toupper(ch);
  }

  return (TRUE);
}

struct dir_ent *
make_entry(void)
{
  struct dir_ent *entry;

  entry = (struct dir_ent *) malloc(sizeof(struct dir_ent));

  entry->next = NULL;

  return (entry);
}

void
free_list(struct dir_ent *list)
{
  struct dir_ent *next;

  if (list == NULL)
    return;

  while (list->next != NULL) {
    next = list->next;
    free(list);
    list = next;
  }
  free(list);
}

struct dir_ent *
_get_dir(char *name, char *mname, char *mext)
{
  DIR *cur_dir;
  struct mydirect *cur_ent;
  struct dir_ent *dir_list;
  struct dir_ent *entry;
  ALIGNED struct stat sbuf;
  int pos;
  int dec_found;
  boolean_t invalid;
  int end_pos;
  int slen;
  int flen;
  char buf[256];
  char *sptr;
  char fname[8];
  char fext[3];

  (void) find_file(name, &sbuf);

  if ((cur_dir = opendir(name)) == NULL) {
    extern int errno;

    Debug0((dbg_fd, "get_dir(): couldn't open '%s' errno = %s\n", name, strerror(errno)));
    return (NULL);
  }

  Debug0((dbg_fd, "get_dir() opened '%s'\n", name));

  dir_list = NULL;
  entry = dir_list;

#if 1
  if (strncasecmp(mname, "NUL     ", strlen(mname)) == 0 &&
      strncasecmp(mext, "   ", strlen(mname)) == 0) {
    entry = make_entry();
    dir_list = entry;
    entry->next = NULL;

    strncpy(entry->name, mname, 8);
    strncpy(entry->ext, mext, 3);
    entry->mode = S_IFREG;
    entry->size = 0;
    entry->time = 0;

    closedir(cur_dir);
    return (dir_list);
  }
  else
#endif
    while (cur_ent = dos_readdir(cur_dir)) {
      if (cur_ent->d_ino == 0)
	continue;
      if (cur_ent->d_namlen > 13)
	continue;
      if (cur_ent->d_name[0] == '.') {
	if (cur_ent->d_namlen > 2)
	  continue;
	if (strncasecmp(name, dos_root, strlen(name)) == 0)
	  continue;
	if ((cur_ent->d_namlen == 2) &&
	    (cur_ent->d_name[1] != '.'))
	  continue;
	strncpy(fname, "..", cur_ent->d_namlen);
	strncpy(fname + cur_ent->d_namlen, "        ",
		8 - cur_ent->d_namlen);
	strncpy(fext, "   ", 3);
      }
      else {
	if (!extract_filename(cur_ent->d_name,
			      fname, fext))
	  continue;
	if (mname && mext && !compare(fname, fext, mname, mext))
	  continue;
      }

      if (entry == NULL) {
	entry = make_entry();
	dir_list = entry;
      }
      else {
	entry->next = make_entry();
	entry = entry->next;
      }
      entry->next = NULL;

      strncpy(entry->name, fname, 8);
      strncpy(entry->ext, fext, 3);

      strcpy(buf, name);
      slen = strlen(buf);
      sptr = buf + slen + 1;
      buf[slen] = '/';
      strcpy(sptr, cur_ent->d_name);

      if (!find_file(buf, &sbuf)) {
	Debug0((dbg_fd, "Can't findfile\n", buf));
	entry->mode = S_IFREG;
	entry->size = 0;
	entry->time = 0;
      }
      else {
	entry->mode = sbuf.st_mode;
	entry->size = sbuf.st_size;
	entry->time = sbuf.st_mtime;
      }

    }
  closedir(cur_dir);
  return (dir_list);
}

struct dir_ent *
get_dir(char *name, char *fname, char *fext)
{
  struct dir_ent *r;

  PS(GETDIR);
  r = _get_dir(name, fname, fext);
  PE(GETDIR);
  return (r);
}

/*
 * Another useless specialized parsing routine!
 * Assumes that a legal string is passed in.
 */
void
auspr(char *filestring, char *name, char *ext)
{
  int pos = 0;
  int dot_pos = 0;
  int elen;

  Debug1((dbg_fd, "auspr '%s'\n", filestring));
  for (pos = 0;; pos++) {
    if (filestring[pos] == '.') {
      dot_pos = pos;
      continue;
    }
    if (filestring[pos] == '\0')
      break;
  }

  if (dot_pos > 0) {
    strncpy(name, filestring, dot_pos);
    if (8 - dot_pos > 0)
      strncpy(name + dot_pos, "        ", 8 - dot_pos);
    elen = pos - dot_pos - 1;
    strncpy(ext, filestring + dot_pos + 1, elen);
    if (3 - elen > 0)
      strncpy(ext + elen, "   ", 3 - elen);
  }
  else {
    strncpy(name, filestring, pos);
    if (8 - pos > 0)
      strncpy(name + pos, "        ", 8 - pos);
    strncpy(ext, "   ", 3);
  }

  for (pos = 0; pos < 8; pos++) {
    char ch = name[pos];

    if (isalpha(ch) && islower(ch))
      name[pos] = toupper(ch);
  }

  for (pos = 0; pos < 3; pos++) {
    char ch = ext[pos];

    if (isalpha(ch) && islower(ch))
      ext[pos] = toupper(ch);
  }
}

void
init_dos_offsets(int ver)
{
  Debug0((dbg_fd, "dos_fs: using dos version = %d.\n", ver));
  switch (ver) {
  case DOSVER_31_33:
    {
      sdb_drive_letter_off = 0x0;
      sdb_template_name_off = 0x1;
      sdb_template_ext_off = 0x9;
      sdb_attribute_off = 0xc;
      sdb_dir_entry_off = 0xd;
      sdb_p_cluster_off = 0xf;
      sdb_file_name_off = 0x15;
      sdb_file_ext_off = 0x1d;
      sdb_file_attr_off = 0x20;
      sdb_file_time_off = 0x2b;
      sdb_file_date_off = 0x2d;
      sdb_file_st_cluster_off = 0x2f;
      sdb_file_size_off = 0x31;

      sft_handle_cnt_off = 0x0;
      sft_open_mode_off = 0x2;
      sft_attribute_byte_off = 0x4;
      sft_device_info_off = 0x5;
      sft_dev_drive_ptr_off = 0x7;
      sft_fd_off = 0xb;
      sft_start_cluster_off = 0xb;
      sft_time_off = 0xd;
      sft_date_off = 0xf;
      sft_size_off = 0x11;
      sft_position_off = 0x15;
      sft_rel_cluster_off = 0x19;
      sft_abs_cluster_off = 0x1b;
      sft_directory_sector_off = 0x1d;
      sft_directory_entry_off = 0x1f;
      sft_name_off = 0x20;
      sft_ext_off = 0x28;

      cds_record_size = 0x51;
      cds_current_path_off = 0x0;
      cds_flags_off = 0x43;
      cds_rootlen_off = 0x4f;

      sda_current_dta_off = 0xc;
      sda_cur_psp_off = 0x10;
      sda_filename1_off = 0x92;
      sda_filename2_off = 0x112;
      sda_sdb_off = 0x192;
      sda_cds_off = 0x26c;
      sda_search_attribute_off = 0x23a;
      sda_open_mode_off = 0x23b;
      sda_rename_source_off = 0x2b8;
      sda_user_stack_off = 0x250;

      lol_cdsfarptr_off = 0x16;
      lol_last_drive_off = 0x21;
      break;
    }
  case DOSVER_50:
  case DOSVER_41:
    {
      sdb_drive_letter_off = 0x0;
      sdb_template_name_off = 0x1;
      sdb_template_ext_off = 0x9;
      sdb_attribute_off = 0xc;
      sdb_dir_entry_off = 0xd;
      sdb_p_cluster_off = 0xf;
      sdb_file_name_off = 0x15;
      sdb_file_ext_off = 0x1d;
      sdb_file_attr_off = 0x20;
      sdb_file_time_off = 0x2b;
      sdb_file_date_off = 0x2d;
      sdb_file_st_cluster_off = 0x2f;
      sdb_file_size_off = 0x31;

      /* same */ sft_handle_cnt_off = 0x0;
      sft_open_mode_off = 0x2;
      sft_attribute_byte_off = 0x4;
      sft_device_info_off = 0x5;
      sft_dev_drive_ptr_off = 0x7;
      sft_fd_off = 0xb;
      sft_start_cluster_off = 0xb;
      sft_time_off = 0xd;
      sft_date_off = 0xf;
      sft_size_off = 0x11;
      sft_position_off = 0x15;
      sft_rel_cluster_off = 0x19;
      sft_abs_cluster_off = 0x1b;
      sft_directory_sector_off = 0x1d;
      sft_directory_entry_off = 0x1f;
      sft_name_off = 0x20;
      sft_ext_off = 0x28;

      /* done */ cds_record_size = 0x58;
      cds_current_path_off = 0x0;
      cds_flags_off = 0x43;
      cds_rootlen_off = 0x4f;

      /* done */ sda_current_dta_off = 0xc;
      sda_cur_psp_off = 0x10;
      sda_filename1_off = 0x9e;
      sda_filename2_off = 0x11e;
      sda_sdb_off = 0x19e;
      sda_cds_off = 0x282;
      sda_search_attribute_off = 0x24d;
      sda_open_mode_off = 0x24e;
      sda_ext_act_off = 0x2dd;
      sda_ext_attr_off = 0x2df;
      sda_ext_mode_off = 0x2e1;
      sda_rename_source_off = 0x300;
      sda_user_stack_off = 0x264;

      /* same */ lol_cdsfarptr_off = 0x16;
      lol_last_drive_off = 0x21;

      break;
    }
    /* at the moment dos 6 is the same as dos 5,
	 anyone care to fix these for dos 6 ?? */
  case DOSVER_60:
  default:
    {
      sdb_drive_letter_off = 0x0;
      sdb_template_name_off = 0x1;
      sdb_template_ext_off = 0x9;
      sdb_attribute_off = 0xc;
      sdb_dir_entry_off = 0xd;
      sdb_p_cluster_off = 0xf;
      sdb_file_name_off = 0x15;
      sdb_file_ext_off = 0x1d;
      sdb_file_attr_off = 0x20;
      sdb_file_time_off = 0x2b;
      sdb_file_date_off = 0x2d;
      sdb_file_st_cluster_off = 0x2f;
      sdb_file_size_off = 0x31;

      /* same */ sft_handle_cnt_off = 0x0;
      sft_open_mode_off = 0x2;
      sft_attribute_byte_off = 0x4;
      sft_device_info_off = 0x5;
      sft_dev_drive_ptr_off = 0x7;
      sft_fd_off = 0xb;
      sft_start_cluster_off = 0xb;
      sft_time_off = 0xd;
      sft_date_off = 0xf;
      sft_size_off = 0x11;
      sft_position_off = 0x15;
      sft_rel_cluster_off = 0x19;
      sft_abs_cluster_off = 0x1b;
      sft_directory_sector_off = 0x1d;
      sft_directory_entry_off = 0x1f;
      sft_name_off = 0x20;
      sft_ext_off = 0x28;

      /* done */ cds_record_size = 0x58;
      cds_current_path_off = 0x0;
      cds_flags_off = 0x43;
      cds_rootlen_off = 0x4f;

      /* done */ sda_current_dta_off = 0xc;
      sda_cur_psp_off = 0x10;
      sda_filename1_off = 0x9e;
      sda_filename2_off = 0x11e;
      sda_sdb_off = 0x19e;
      sda_cds_off = 0x282;
      sda_search_attribute_off = 0x24d;
      sda_open_mode_off = 0x24e;
      sda_ext_act_off = 0x2dd;
      sda_ext_attr_off = 0x2df;
      sda_ext_mode_off = 0x2e1;
      sda_rename_source_off = 0x300;
      sda_user_stack_off = 0x264;

      /* same */ lol_cdsfarptr_off = 0x16;
      lol_last_drive_off = 0x21;

      break;
    }
  }
}

void
init_dos_side(void)
{
  mach_fs_enabled = TRUE;
}

struct mydirect *
dos_readdir(DIR *dir)
{
    static struct mydirect retdir;
    struct dirent *ret;
#ifndef AMIGA
    sigset_t newmask, oldmask;
#endif
   
#ifndef AMIGA
#if DOSEMU
    sigfillset(&newmask);
    
    /* temporarily block our alarms so NFS reads don't choke */
    sigprocmask(SIG_SETMASK, &newmask, &oldmask);
#endif
#endif

    ret = readdir(dir);

    if (ret)
    {
        retdir.d_ino = ret->d_ino;
        retdir.d_namlen = strlen(ret->d_name);
        strncpy(retdir.d_name,  ret->d_name, sizeof retdir.d_name);

#ifndef AMIGA
#if DOSEMU
        /* restore the blocked alarm */
        sigprocmask(SIG_SETMASK, &oldmask, NULL);
#endif
#endif
        
        return (&retdir);
    }

#ifndef AMIGA
#if DOSEMU
  /* restore the blocked alarm */
  sigprocmask(SIG_SETMASK, &oldmask, NULL);
#endif
#endif

  return NULL;
}

int
dos_read(int fd, char *data, int cnt)
{
  int ret;
#ifndef AMIGA
  sigset_t newmask, oldmask;
#endif

  if (cnt <= 0)
    return (0);

#ifndef AMIGA
#if DOSEMU
  sigfillset(&newmask);

  /* temporarily block our alarms so NFS reads don't choke */
  sigprocmask(SIG_SETMASK, &newmask, &oldmask);
#endif
#endif

  ret = read(fd, data, cnt);

#ifndef AMIGA
#if DOSEMU
  /* restore the blocked alarm */
  sigprocmask(SIG_SETMASK, &oldmask, NULL);
#endif
#endif

  return (ret);
}

int
dos_write(int fd, char *data, int cnt)
{
  int ret;
#ifndef AMIGA
  sigset_t oldmask, newmask;
#endif

  if (cnt <= 0)
    return (0);

#ifndef AMIGA
#if DOSEMU
  sigfillset(&newmask);

  /* temporarily block our alarms so NFS reads don't choke */
  sigprocmask(SIG_SETMASK, &newmask, &oldmask);
#endif
#endif

  ret = write(fd, data, cnt);

  Debug0((dbg_fd, "Wrote %10.10s\n", data));

#ifndef AMIGA
#if DOSEMU
  /* restore the blocked alarm */
  sigprocmask(SIG_SETMASK, &oldmask, NULL);
#endif
#endif

  return (ret);
}

int
calculate_drive_pointers(int dd)
{
  far_t cdsfarptr;
  char *cwd;
  cds_t cds_base;

  if (!lol)
    return (0);
  if (!dos_roots[dd])
    return (0);

/* ### Next bit changed by DH ### */
  cdsfarptr.segment = (lol_cdsfarptr(lol) >> 16) & 0xffff;
  cdsfarptr.offset = (lol_cdsfarptr(lol) & 0xffff);

  cds_base = (cds_t) Addr_8086(cdsfarptr.segment, cdsfarptr.offset);

  cds = drive_cds(dd);

  /* if it's already done then don't bother */
  if ((cds_flags_r(cds) & (CDS_FLAG_REMOTE | CDS_FLAG_READY)) ==
      (CDS_FLAG_REMOTE | CDS_FLAG_READY))
    return (1);

  Debug0((dbg_fd, "Calculated DOS Information for %d:\n", dd));
  Debug0((dbg_fd, "  cwd=%20s\n", cds_current_path(cds)));
  Debug0((dbg_fd, "  cds flags =%x\n", cds_flags_r(cds)));
  Debug0((dbg_fd, "  cdsfar = %x, %x\n", cdsfarptr.segment,
	  cdsfarptr.offset));

/* ### Added by DH ### */
{
    u_short tmp = cds_flags_r(cds);

    tmp |= (CDS_FLAG_REMOTE | CDS_FLAG_READY | CDS_FLAG_NOTNET);

    cds_flags_w(cds,tmp);
}
/* ### End of addition ### */
/* ### Commented out by DH ### 
*  cds_flags(cds) |= (CDS_FLAG_REMOTE | CDS_FLAG_READY | CDS_FLAG_NOTNET);
*/

  cwd = cds_current_path(cds);
  sprintf(cwd, "%c:\\", 'A' + dd);
/* ### Added by DH ### */
{
    u_short tmp = strlen(cwd)-1;
    cds_rootlen_w(cds, tmp);
}
/* ### End of addition ### */
/* ### Commented out by DH ###
*  cds_rootlen(cds) = strlen(cwd) - 1;
*/
  Debug0((dbg_fd, "cds_current_path=%s\n", cwd));
  return (1);
}

boolean_t
dos_fs_dev(state_t *state)
{
  static int init_count = 0;
  u_char drive_to_redirect;
  int dos_ver;

  Debug0((dbg_fd, "emufs operation: 0x%08lx\n", state->ebx));

  if (UWORD(state->ebx) == 0x500) {
    init_all_drives();
    mach_fs_enabled = TRUE;

    lol = (lol_t) Addr(state, es, edx);
    sda = (sda_t) Addr(state, ds, esi);
    dos_major = LOW(state->ecx);
    dos_minor = HIGH(state->ecx);
    Debug0((dbg_fd, "dos_fs: dos_major:minor = 0x%d:%d.\n",
	    dos_major, dos_minor));
    Debug0((dbg_fd, "lol=%p\n", (void *) lol));
    Debug0((dbg_fd, "sda=%p\n", (void *) sda));
    if ((dos_major == 3) && (dos_minor > 9) && (dos_minor <= 31)) {
      dos_ver = DOSVER_31_33;
    }
    else if ((dos_major == 4) && (dos_minor >= 0) && (dos_minor <= 1)) {
      dos_ver = DOSVER_41;
    }
    else if ((dos_major == 5) && (dos_minor >= 0)) {
      dos_ver = DOSVER_50;
    }
    else if ((dos_major >= 6) && (dos_minor >= 0)) {
      dos_ver = DOSVER_60;
    }
    else {
      dos_ver = 0;
    }
    init_dos_offsets(dos_ver);
    SETWORD(&(state->eax), 1);
  }

  if (UWORD(state->ebx) == 0) {
    u_char *ptr;

    ptr = (u_char *) Addr_8086(state->es, state->edi) + 22;

    drive_to_redirect = *ptr;
    /* if we've never set our first free drive, set it now, and */
    /* initialize our drive tables */
    if (first_free_drive == 0) {
      first_free_drive = drive_to_redirect;
      init_all_drives();
    }

    if (drive_to_redirect - (int) first_free_drive < 0) {
      SETWORD(&(state->eax), 0);
      Debug0((dbg_fd, "Invalid drive - maybe increase LASTDRIVE= in config.sys?\n"));
      return (UNCHANGED);
    }

    *(ptr - 9) = 1;
    Debug0((dbg_fd, "first_free_drive = %d\n", first_free_drive));
    {
/* ### Commented out by DH ###
*      u_short *seg = (u_short *) (ptr - 2);
*      u_short *ofs = (u_short *) (ptr - 4);
*/
/* ### Changed next line from (char *) Addr_8086(*seg, *off) ### */
      char *clineptr = (char *) FARPTR(ptr-4);
      char *dirnameptr = (char *) Addr_8086(state->ds, state->esi);
      char cline[256];
      char *t;
      int i = 0;

      while (*clineptr != '\n' && *clineptr != '\r')
	cline[i++] = *(clineptr++);
      cline[i] = 0;

      t = strtok(cline, " \n\r\t");
      if (t) {
	t = strtok(NULL, " \n\r\t");
      }

      if (!init_drive(drive_to_redirect, t,
		      t ? strtok(NULL, " \n\r\t") : NULL)) {
	SETWORD(&(state->eax), 0);
	return (UNCHANGED);
      }

      if (strncmp(dirnameptr - 10, "directory ", 10) == 0) {
	*dirnameptr = 0;
	strncpy(dirnameptr, dos_roots[drive_to_redirect], 128);
	strcat(dirnameptr, "\n\r$");
      }
      else
	Debug0((dbg_fd, "WARNING! old version of emufs.sys!\n"));
    }

    mach_fs_enabled = TRUE;

    /*
     * So that machfs.sys v1.1+ will know that
     * we're running Mach too.
     */
    SETWORD(&(state->eax), 1);

    return (UNCHANGED);
  }

  return (UNCHANGED);
}

void
time_to_dos(time_t *clock, u_short *date, u_short *time)
{
  struct tm *tm;

  tm = localtime(clock);

/* ### Added by DH ### */
{
    u_short tmp = ((((tm->tm_year - 80) & 0x1f) << 9) |
	   (((tm->tm_mon + 1) & 0xf) << 5) |
	   (tm->tm_mday & 0x1f));

    Write2Bytes(date, tmp);

    tmp = (((tm->tm_hour & 0x1f) << 0xb) |
	   ((tm->tm_min & 0x3f) << 5));
    Write2Bytes(time,tmp);
}
/* ### End of addition ### */
}

int
strip_char(char *ptr, char ch)
{
  int len = 0;
  char *wptr;
  char *rptr;

  wptr = ptr;
  rptr = ptr;

  while (*rptr != EOS) {
    if (*rptr == ch) {
      rptr++;
    }
    else {
      if (wptr != rptr)
	*wptr = *rptr;
      wptr++;
      rptr++;
      len++;
    }
  }
  *wptr = EOS;

  return (len);
}

static void
path_to_ufs(char *ufs, char *path, int PreserveEnvVar)
{
  char ch;
  int len = 0, inenv = 0;
  char *wptr = ufs;
  char *rptr = path;

  while ((ch = *rptr++) != EOS) {
    switch (ch) {
    case ' ':
      rptr++;
      continue;
    case BACKSLASH:
      if (PreserveEnvVar) {	/* Check for environment variable */
	if ((rptr[0] == '$') && (rptr[1] == '{'))
	  inenv = 1;
	else
	  ch = SLASH;
      }
      else
	ch = SLASH;
      *wptr = ch;
      break;
    case '}':
      inenv = 0;
    default:
      if (!inenv)
	*wptr = tolower(ch);
      else
	*wptr = ch;

      break;
    }
    wptr++;
    len++;
  }
  *wptr = EOS;

  if (ufs[len] == '.')
    ufs[len] = EOS;

  Debug0((dbg_fd, "dos_gen: path_to_ufs '%s'\n", ufs));
}

void
build_ufs_path(char *ufs, char *path)
{
  strcpy(ufs, dos_root);

  Debug0((dbg_fd, "dos_fs: build_ufs_path for DOS path '%s'\n", path));

  /* Skip over leading <drive>:\ */
  path += cds_rootlen_r(cds);

  path_to_ufs(ufs + dos_root_len, path, 0);

  /* remove any double slashes */
  path = ufs;
  while (*path) {
    if (*path == '/' && *(path + 1) == '/')
      strcpy(path, path + 1);
    else
      path++;
  }

  Debug0((dbg_fd, "dos_fs: build_ufs_path result is '%s'\n", ufs));
}

/*
 * scan a directory for a matching filename
 */
boolean_t
scan_dir(char *path, char *name)
{
  DIR *cur_dir;
  struct mydirect *cur_ent;

  /* handle null paths */
  if (*path == 0)
    path = "/";

  /* open the directory */
  if ((cur_dir = opendir(path)) == NULL) {
    Debug0((dbg_fd, "scan_dir(): failed to open dir: %s\n", path));
    return (FALSE);
  }

  /* now scan for matching names */
  while (cur_ent = dos_readdir(cur_dir)) {
    if (cur_ent->d_ino == 0)
      continue;
    if (cur_ent->d_name[0] == '.' &&
	strncasecmp(path, dos_root, strlen(path)) != 0)
      continue;
    if (strcasecmp(name, cur_ent->d_name) != 0)
      continue;

    /* we've found the file, change it's name and return */
    strcpy(name, cur_ent->d_name);
    closedir(cur_dir);
    return (TRUE);
  }

  closedir(cur_dir);
  return (FALSE);
}

#ifndef OLD_FIND_FILE
/*
 * a new find_file that will do complete upper/lower case matching for the
 * whole path
 */
boolean_t
_find_file(char *fpath, struct stat * st)
{
  char *slash1, *slash2;

  Debug0((dbg_fd, "find file %s\n", fpath));

  /* first see if the path exists as is */
  if (stat(fpath, st) == 0)
    return (TRUE);

  /* if it isn't an absolute path then we're in trouble */
  if (*fpath != '/') {
    error("MFS: non-absolute path in find_file: %s\n", fpath);
    return (FALSE);
  }

  /* slash1 will point to the beginning of the section we're looking
     at, and slash2 will point at the end */
  slash1 = fpath + dos_root_len - 1;

  /* maybe if we make it all lower case, this is a "best guess" */
  for (slash2 = slash1; *slash2; ++slash2)
    *slash2 = tolower(*slash2);
  if (stat(fpath, st) == 0)
    return (TRUE);

  if (!strncmp((char *) (fpath + strlen(fpath) - 3), "nul", 3)) {
    Debug0((dbg_fd, "nul cmpr\n"));
    stat("/dev/null", st);
    return (TRUE);
  }

  /* now match each part of the path name separately, trying the names
     as is first, then tring to scan the directory for matching names */
  while (slash1) {
    slash2 = strchr(slash1 + 1, '/');
    if (slash2)
      *slash2 = 0;
    if (stat(fpath, st) == 0) {
      /* the file exists as is */
      if (st->st_mode & S_IFDIR || !slash2) {
	if (slash2)
	  *slash2 = '/';
	slash1 = slash2;
	continue;
      }

      Debug0((dbg_fd, "find_file(): not a directory: %s\n", fpath));
      if (slash2)
	*slash2 = '/';
      return (FALSE);
    }
    else {
      *slash1 = 0;
      if (!scan_dir(fpath, slash1 + 1)) {
	*slash1 = '/';
	Debug0((dbg_fd, "find_file(): no match: %s\n", fpath));
	if (slash2)
	  *slash2 = '/';
	return (FALSE);
      }
      *slash1 = '/';
      if (slash2)
	*slash2 = '/';
      slash1 = slash2;
    }
  }

  /* we've found the file - now stat it */
  if (stat(fpath, st) != 0) {
    Debug0((dbg_fd, "find_file(): can't stat %s\n", fpath));
    return (FALSE);
  }

  Debug0((dbg_fd, "found file %s\n", fpath));
  return (TRUE);
}

#else
/*
 * function: file_file
 *
 * Finds file fpath using stat.
 * If file exists under given name, it returns true.
 * This routine also checks for uppercase and lowercase
 * versions of last component of filename.  It returns
 * the stat structure modified appropriately and converts
 * the string to the matching case or to uppercase if there
 * is no match.
 */
boolean_t
_find_file(fpath, st)
     char *fpath;
     struct stat *st;
{
  int i;
  int len = 0;

  /* Check original name */
  Debug0((dbg_fd, "Find file trying '%s'\n", fpath));
  if (stat(fpath, st) == 0)
    return (TRUE);

  /* Restore to lower case */
  for (i = 0; fpath[i] != EOS; i++) {
    if (isalpha(fpath[i]) && isupper(fpath[i]))
      fpath[i] = (char) tolower(fpath[i]);
    len++;
  }
  Debug0((dbg_fd, "Find file trying '%s'\n", fpath));
  if (stat(fpath, st) == 0)
    return (TRUE);

  /* Force each component from the end to have upper case */
  i = len - 1;
  while (i >= 0) {
    /* Check upper case version of component */
    for (; i >= 0; i--) {
      if (fpath[i] == SLASH) {
	i--;
	break;
      }
      if (isalpha(fpath[i]) && islower(fpath[i]))
	fpath[i] = (char) toupper(fpath[i]);
    }
    Debug0((dbg_fd, "Find file trying '%s'\n", fpath));
    if (stat(fpath, st) == 0)
      return (TRUE);
  }

  /* Restore to lower case */
  for (i = 0; fpath[i] != EOS; i++) {
    if (isalpha(fpath[i]) && isupper(fpath[i]))
      fpath[i] = (char) tolower(fpath[i]);
  }
  return (FALSE);
}

#endif
boolean_t
find_file(char *fpath, struct stat *st)
{
  boolean_t r;

  PS(FINDFILE);
  r = _find_file(fpath, st);
  PE(FINDFILE);
  return (r);
}

boolean_t
compare(char *fname, char *fext, char *mname, char *mext)
{
  int i;

#if 0
  Debug0((dbg_fd, "dos_gen: compare '%.8s'.'%.3s' to '%.8s'.'%.3s'\n",
	  mname, mext, fname, fext));
#endif
  /* match name first */
  for (i = 0; i < 8; i++) {
    if (mname[i] == '?') {
      i++;
      continue;
    }
    if (mname[i] == ' ') {
      if (fname[i] == ' ') {
	break;
      }
      else {
	return (FALSE);
      }
    }
    if (mname[i] == '*') {
      break;
    }
    if (isalpha(mname[i]) && isalpha(fname[i])) {
      char x = isupper(mname[i]) ?
      mname[i] : toupper(mname[i]);
      char y = isupper(fname[i]) ?
      fname[i] : toupper(fname[i]);

      if (x != y)
	return (FALSE);
    }
    else if (mname[i] != fname[i]) {
      return (FALSE);
    }
  }
  /* if got here then name matches */
  /* match ext next */
  for (i = 0; i < 3; i++) {
    if (mext[i] == '?') {
      i++;
      continue;
    }
    if (mext[i] == ' ') {
      if (fext[i] == ' ') {
	break;
      }
      else {
	return (FALSE);
      }
    }
    if (mext[i] == '*') {
      break;
    }
    if (isalpha(mext[i]) && isalpha(fext[i])) {
      char x = isupper(mext[i]) ?
      mext[i] : toupper(mext[i]);
      char y = isupper(fext[i]) ?
      fext[i] : toupper(fext[i]);

      if (x != y)
	return (FALSE);
    }
    else if (mext[i] != fext[i]) {
      return (FALSE);
    }
  }
  return (TRUE);
}

struct dir_ent *
_match_filename_prune_list(struct dir_ent *list, char *name, char *ext)
{
  int num_quest;
  u_char nq[13];
  int num_ast;
  u_char na[2];
  int i;
  struct dir_ent *last_ptr;
  struct dir_ent *tmp_ptr;
  struct dir_ent *first_ptr;

  /* special case checks */
  if ((strncmp(name, "????????", 8) == 0) &&
      (strncmp(ext, "???", 3) == 0))
    return (list);

  /* more special case checks */
  if ((strncmp(name, "????????", 8) == 0) &&
      (strncmp(ext, "   ", 3) == 0))
    return (list);

  first_ptr = NULL;
  last_ptr = NULL;

  while (list != NULL) {
      if (compare(list->name, list->ext, name, ext)) {
          if (first_ptr == NULL) {
              first_ptr = list;
          }
          last_ptr = list;
          tmp_ptr = list->next;
          list = tmp_ptr;
      }
      else {
/* ### Added by DH ### */
          if (last_ptr)
              last_ptr->next = list->next;
          tmp_ptr = list->next;
          free(list);
          list = tmp_ptr;
      }
  }
  return (first_ptr);
}

struct dir_ent *
match_filename_prune_list(struct dir_ent *list, char *name, char *ext)
{
  struct dir_ent *r;

  PS(MATCH);
  r = _match_filename_prune_list(list, name, ext);
  PE(MATCH);
  return (r);
}

#define HLIST_STACK_SIZE 32
int hlist_stack_indx = 0;
struct dir_ent *hlist = NULL;
struct dir_ent *hlist_stack[HLIST_STACK_SIZE];

boolean_t
hlist_push(struct dir_ent *hlist)
{
  Debug0((dbg_fd, "hlist_push: %x\n", hlist_stack_indx));
  if (hlist_stack_indx >= HLIST_STACK_SIZE) {
    return (FALSE);
  }
  else {
    hlist_stack[hlist_stack_indx] = hlist;
    hlist_stack_indx++;
  }
  return (TRUE);
}

struct dir_ent *
hlist_pop(void)
{
  Debug0((dbg_fd, "hlist_pop: %x\n", hlist_stack_indx));
  if (hlist_stack_indx <= 0)
    return ((struct dir_ent *) NULL);
  hlist_stack_indx--;
  return (hlist_stack[hlist_stack_indx]);
}

/* ### #ifdef'd out by DH ### */
#ifdef NOTDEFINED
void
debug_dump_sft(handle)
     char handle;
{
  u_short *ptr;
  u_char *sptr;
  int sftn;

  ptr = (u_short *) (FARPTR((far_t *) (lol + 0x4)));

  Debug0((dbg_fd, "SFT: han = 0x%x, sftptr = %p\n",
	  handle, (void *) ptr));

  /* Assume 3.1 or 3.3 Dos */
  sftn = handle;
  while (TRUE) {
    if ((*ptr == 0xffff) && (ptr[2] < sftn)) {
      Debug0((dbg_fd, "handle invalid.\n"));
      break;
    }
    if (ptr[2] > sftn) {
      sptr = (u_char *) & ptr[3];
      while (sftn--)
	sptr += 0x35;		/* dos 3.1 3.3 */
      Debug0((dbg_fd, "handle_count = %x\n",
	      sft_handle_cnt_r(sptr)));
      Debug0((dbg_fd, "open_mode = %x\n",
	      sft_open_mode(sptr)));
      Debug0((dbg_fd, "attribute byte = %x\n",
	      sft_attribute_byte(sptr)));
      Debug0((dbg_fd, "device_info = %x\n",
	      sft_device_info(sptr)));
      Debug0((dbg_fd, "dev_drive_ptr = %lx\n",
	      sft_dev_drive_ptr(sptr)));
      Debug0((dbg_fd, "starting cluster = %x\n",
	      sft_start_cluster(sptr)));
      fprintf(dbg_fd, "file time = %x\n",
	      sft_time(sptr));
      fprintf(dbg_fd, "file date = %x\n",
	      sft_date(sptr));
      fprintf(dbg_fd, "file size = %lx\n",
	      sft_size(sptr));
      fprintf(dbg_fd, "pos = %lx\n",
	      sft_position(sptr));
      fprintf(dbg_fd, "rel cluster = %x\n",
	      sft_rel_cluster(sptr));
      fprintf(dbg_fd, "abs cluster = %x\n",
	      sft_abs_cluster(sptr));
      fprintf(dbg_fd, "dir sector = %x\n",
	      sft_directory_sector(sptr));
      fprintf(dbg_fd, "dir entry = %x\n",
	      sft_directory_entry(sptr));
      fprintf(dbg_fd, "name = %.8s\n",
	      sft_name(sptr));
      fprintf(dbg_fd, "ext = %.3s\n",
	      sft_ext(sptr));
      return;
    }
    sftn -= ptr[2];
    ptr = (u_short *) Addr_8086(ptr[1], ptr[0]);
  }
}
#endif

/* convert forward slashes to back slashes for DOS */

void
path_to_dos(char *path)
{
  char *s;

  for (s = path; (s = strchr(s, '/')) != NULL; ++s)
    *s = '\\';
}

int
GetRedirection(state_t *state, u_short index)
{
  int dd;
  u_short returnBX;		/* see notes below */
  u_short returnCX;
  char *resourceName;
  char *deviceName;
  u_short *userStack;

  /* Set number of redirected drives to 0 prior to getting new
	   Count */
  /* BH has device status 0=valid */
  /* BL has the device type - 3 for printer, 4 for disk */
  /* CX is supposed to be used to return the stored redirection parameter */
  /* I'm going to cheat and return a read-only flag in it */
  Debug0((dbg_fd, "GetRedirection, index=%d\n", index));
  for (dd = 0; dd < num_drives; dd++) {
    if (dos_roots[dd]) {
      if (index == 0) {
	/* return information for this drive */
	Debug0((dbg_fd, "redirection root =%s\n", dos_roots[dd]));
	deviceName = (char *) Addr(state, ds, esi);
	deviceName[0] = 'A' + dd;
	deviceName[1] = ':';
	deviceName[2] = EOS;
	resourceName = (char *) Addr(state, es, edi);
/* ### Changed next line from "\\\\LINUX\\FS" ### */
	strcpy(resourceName, LINUX_RESOURCE);
	strcat(resourceName, dos_roots[dd]);
	path_to_dos(resourceName);
	Debug0((dbg_fd, "resource name =%s\n", resourceName));
	Debug0((dbg_fd, "device name =%s\n", deviceName));
	userStack = (u_short *) sda_user_stack(sda);

	/* have to return BX, and CX on the user return stack */
	/* return a "valid" disk redirection */
	returnBX = 4;		/*BH=0, BL=4 */

	/* set the high bit of the return CL so that */
	/* NetWare shell doesn't get confused */
	returnCX = read_onlys[dd] | 0x80;

	Debug0((dbg_fd, "GetRedirection "
		"user stack=%p, CX=%x\n",
		(void *) userStack, returnCX));
/* ### Commented out by DH ### 
*	userStack[1] = returnBX;
*	userStack[2] = returnCX;
*/
/* ### Added by DH ### */
    Write2Bytes(userStack+1, returnBX);
    Write2Bytes(userStack+2, returnCX);
/* ### End of addition ### */
	/* XXXTRB - should set session number in returnBP if */
	/* we are doing an extended getredirection */
	return (TRUE);
      }
      else {
	/* count down until the index is exhausted */
	index--;
      }
    }
  }
  if (IS_REDIRECTED(0x2f)) {
    redirected_drives = UWORD(state->ebx) - index;
    SETWORD(&(state->ebx), index);
    Debug0((dbg_fd, "GetRedirect passing index of %d, Total redirected=%d\n", index, redirected_drives));
    return (REDIRECT);
  }

  SETWORD(&(state->eax), NO_MORE_FILES);
  return (FALSE);
}

/*****************************
 * RedirectDevice - redirect a drive to the Linux file system
 * on entry:
 *		cds_base should be set
 * on exit:
 * notes:
 *****************************/
int
RedirectDevice(state_t * state)
{
  char *resourceName;
  char *deviceName;
  char path[256];

  /* first, see if this is our resource to be redirected */
  resourceName = (char *) Addr(state, es, edi);
  deviceName = (char *) Addr(state, ds, esi);

  Debug0((dbg_fd, "RedirectDevice %s to %s\n", deviceName, resourceName));
  if (strncmp(resourceName, LINUX_RESOURCE,
	      strlen(LINUX_RESOURCE)) != 0) {
    /* pass call on to next redirector, if any */
    return (REDIRECT);
  }
  /* see what device is to be redirected */
  /* we only support disk redirection right now */
  if (LOW(state->ebx) != 4 || deviceName[1] != ':') {
    SETWORD(&(state->eax), FUNC_NUM_IVALID);
    return (FALSE);
  }
  current_drive = toupper(deviceName[0]) - 'A';

  /* see if drive is in range of valid drives */
  if (current_drive < 0 || current_drive > lol_last_drive(lol)) {
    SETWORD(&(state->eax), DISK_DRIVE_INVALID);
    return (FALSE);
  }
  cds = drive_cds(current_drive);
  /* see if drive is already redirected */
  if (cds_flags_r(cds) & CDS_FLAG_REMOTE) {
    SETWORD(&(state->eax), DUPLICATE_REDIR);
    return (FALSE);
  }
  /* see if drive is currently substituted */
  if (cds_flags_r(cds) & CDS_FLAG_SUBST) {
    SETWORD(&(state->eax), DUPLICATE_REDIR);
    return (FALSE);
  }

  path_to_ufs(path, &resourceName[strlen(LINUX_RESOURCE)], 1);

  /* if low bit of CX is set, then set for read only access */
  Debug0((dbg_fd, "read-only attribute = %d\n",
	  (int) (state->ecx & 1)));
  if (init_drive(current_drive, path, (state->ecx & 1) ? "R" : NULL) == 0) {
    SETWORD(&(state->eax), NETWORK_NAME_NOT_FOUND);
    return (FALSE);
  }
  else {
    return (TRUE);
  }
}

/*****************************
 * CancelRedirection - cancel a drive redirection
 * on entry:
 *		cds_base should be set
 * on exit:
 * notes:
 *****************************/
int
CancelRedirection(state_t * state)
{
  char *deviceName;
  char *path;
  far_t DBPptr;

  /* first, see if this is one of our current redirections */
  deviceName = (char *) Addr(state, ds, esi);

  Debug0((dbg_fd, "CancelRedirection on %s\n", deviceName));
  if (deviceName[1] != ':') {
    /* we only handle drive redirections, pass it through */
    return (REDIRECT);
  }
  current_drive = toupper(deviceName[0]) - 'A';

  /* see if drive is in range of valid drives */
  if (current_drive < 0 || current_drive > lol_last_drive(lol)) {
    SETWORD(&(state->eax), DISK_DRIVE_INVALID);
    return (FALSE);
  }
  cds = drive_cds(current_drive);
  if (dos_roots[current_drive] == NULL) {
    /* we don't own this drive, pass it through to next redirector */
    return (REDIRECT);
  }

  /* first, clean up my information */
  free(dos_roots[current_drive]);
  dos_roots[current_drive] = NULL;
  dos_root_lens[current_drive] = 0;
  finds_in_progress[current_drive] = FALSE;
  read_onlys[current_drive] = FALSE;

  /* reset information in the CDS for this drive */
  cds_flags_w(cds,0);		/* default to a "not ready" drive */

  path = cds_current_path(cds);
  /* set the current path for the drive */
  path[0] = current_drive + 'A';
  path[1] = ':';
  path[2] = '\\';
  path[3] = EOS;
  cds_rootlen_w(cds, CDS_DEFAULT_ROOT_LEN);
  cds_cur_cluster(cds,0);	/* reset us at the root of the drive */

  /* see if there is a physical drive behind this redirection */
/* ### Next bit changed by DH ### */
  DBPptr.segment = (cds_DBP_pointer(cds) >> 16) & 0xffff;
  DBPptr.offset = (cds_DBP_pointer(cds) & 0xffff);
  if (DBPptr.offset | DBPptr.segment) {
    /* if DBP_pointer is non-NULL, set the drive status to ready */
    cds_flags_w(cds, CDS_FLAG_READY);
  }

  Debug0((dbg_fd, "CancelRedirection on %s completed\n", deviceName));
  return (TRUE);
}

int
dos_fs_redirect(state_t *state)
{
    char *filename1;
    char *filename2;
    char *dta;
    long s_pos;
    u_char attr;
    u_char subfunc;
    int mode;
    /* ### Added = 0 (bug fix) to next line by DH ### */
    u_short FCBcall = 0;
    u_char create_file;
    int fd;
    int cnt;
    int ret = REDIRECT;
    cds_t my_cds;
    sft_t sft;
    sdb_t sdb;
    int i;
    int bs_pos;
    char fname[8];
    char fext[3];
    char fpath[256];
    char buf[256];
    struct dir_ent *tmp;
    ALIGNED struct stat st;
    static char last_find_name[8] = "";
    static char last_find_ext[3] = "";
    static u_char last_find_dir = 0;
    static u_char last_find_drive = 0;
    char *resourceName;
    char *deviceName;
    
    if (!mach_fs_enabled)
        return (REDIRECT);
    
    my_cds = sda_cds(sda);
    
    sft = (u_char *) Addr(state, es, edi);
    
    Debug0((dbg_fd, "Entering dos_fs_redirect\n"));
    
    if (!select_drive(state))
        return (REDIRECT);
    
    filename1 = sda_filename1(sda);
    filename2 = sda_filename2(sda);
    sdb = sda_sdb(sda);
    dta = sda_current_dta(sda);
    
#if 0
    Debug0((dbg_fd, "CDS current path: %s\n", cds_current_path(cds)));
    Debug0((dbg_fd, "Filename1 %s\n", filename1));
    Debug0((dbg_fd, "Filename2 %s\n", filename2));
    Debug0((dbg_fd, "sft %x\n", sft));
    Debug0((dbg_fd, "dta %x\n", dta));
    fflush(NULL);
#endif
    
    switch (LOW(state->eax)) {
    case INSTALLATION_CHECK:	/* 0x00 */
        Debug0((dbg_fd, "Installation check\n"));
        SETLOW(&(state->eax), 0xFF);
        return (TRUE);
    case REMOVE_DIRECTORY:	/* 0x01 */
    case REMOVE_DIRECTORY_2:	/* 0x02 */
        Debug0((dbg_fd, "Remove Directory %s\n", filename1));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        
        build_ufs_path(fpath, filename1);
        if (find_file(fpath, &st)) {
            /* ### Removed ', 0755' from line below ### */
            if (rmdir(fpath) != 0) {
                Debug0((dbg_fd, "failed to remove directory %s\n", fpath));
                SETWORD(&(state->eax), ACCESS_DENIED);
                return (FALSE);
            }
        }
        else {
            Debug0((dbg_fd, "couldn't find directory %s\n", fpath));
            SETWORD(&(state->eax), PATH_NOT_FOUND);
            return (FALSE);
        }
        return (TRUE);
    case MAKE_DIRECTORY:		/* 0x03 */
    case MAKE_DIRECTORY_2:	/* 0x04 */
        Debug0((dbg_fd, "Make Directory %s\n", filename1));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        build_ufs_path(fpath, filename1);
        if (find_file(fpath, &st)) {
            Debug0((dbg_fd, "make failed already dir or file '%s'\n",
                    fpath));
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
#ifdef AMIGA
        if (mkdir(fpath) != 0) {
#else
        if (mkdir(fpath, 0755) != 0) {
#endif
            for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
                if (fpath[i] == SLASH)
                    bs_pos = i;
            }
            strncpy(buf, fpath, bs_pos);
            buf[bs_pos] = EOS;
            find_file(buf, &st);
            strncpy(fpath, buf, bs_pos);
            Debug0((dbg_fd, "trying '%s'\n", fpath));
#ifdef AMIGA
            if (mkdir(fpath) != 0) {
#else
            if (mkdir(fpath, 0755) != 0) {
#endif
                Debug0((dbg_fd, "make directory failed '%s'\n",
                        fpath));
                SETWORD(&(state->eax), PATH_NOT_FOUND);
                return (FALSE);
            }
        }
        return (TRUE);
    case SET_CURRENT_DIRECTORY:	/* 0x05 */
        Debug0((dbg_fd, "set directory to: %s\n", filename1));
        build_ufs_path(fpath, filename1);
        Debug0((dbg_fd, "set directory to ufs path: %s\n", fpath));
        
        /* Try the given path */
        if (!find_file(fpath, &st)) {
            SETWORD(&(state->eax), PATH_NOT_FOUND);
            return (FALSE);
        }
        if (!(st.st_mode & S_IFDIR)) {
            SETWORD(&(state->eax), PATH_NOT_FOUND);
            Debug0((dbg_fd, "Set Directory %s not found\n", fpath));
            return (FALSE);
        }
        /* what we do now is update the cds_current_path, although it is
           probably superflous in most cases as dos seems to do it for us */
    {
        char *fp, *cwd;
        
        fp = fpath + strlen(dos_root);
        
        /* Skip over leading <drive>:\ */
        cwd = cds_current_path(cds) + cds_rootlen_r(cds) + 1;
        
        /* now copy the rest of the path, changing / to \ */
        do
            *cwd++ = (*fp == '/' ? '\\' : *fp);
        while (*fp++);
    }
        Debug0((dbg_fd, "New CWD is %s\n", cds_current_path(cds)));
        return (TRUE);
    case CLOSE_FILE:		/* 0x06 */
        fd = sft_fd_r(sft);
        Debug0((dbg_fd, "Close file %x\n", fd));
        Debug0((dbg_fd, "Handle cnt %d\n",
                sft_handle_cnt_r(sft)));
        /* ### Added by DH ### */
    {
        u_short tmp = sft_handle_cnt_r(sft) -1;
        sft_handle_cnt_w(sft, tmp);
    }
        /* ### End of addition ### */
        
        if (sft_handle_cnt_r(sft) > 0) {
            Debug0((dbg_fd, "Still more handles\n"));
            return (TRUE);
        }
        else if (close(fd) != 0) {
            Debug0((dbg_fd, "Close file fails\n"));
            return (FALSE);
        }
        else {
            Debug0((dbg_fd, "Close file succeeds\n"));
            return (TRUE);
        }
    case READ_FILE:
    {				/* 0x08 */
        int return_val;
        int itisnow;
        
        cnt = UWORD(state->ecx);
        fd = sft_fd_r(sft);
        Debug0((dbg_fd, "Read file fd=%x, dta=%p, cnt=%d\n",
                fd, (void *) dta, cnt));
        Debug0((dbg_fd, "Read file pos = %ld\n",
                sft_position_r(sft)));
        Debug0((dbg_fd, "Handle cnt %d\n",
                sft_handle_cnt_r(sft)));
        itisnow = lseek(fd, sft_position_r(sft), L_SET);
        Debug0((dbg_fd, "Actual pos %d\n",
                itisnow));
        ret = dos_read(fd, dta, cnt);
        Debug0((dbg_fd, "Read returned : %d\n",
                ret));
        if (ret < 0) {
            Debug0((dbg_fd, "ERROR IS: %s\n", strerror(errno)));
            return (FALSE);
        }
        else if (ret < cnt) {
            SETWORD(&(state->ecx), ret);
            return_val = TRUE;
        }
        else {
            SETWORD(&(state->ecx), cnt);
            return_val = TRUE;
        }
        /* ### Added by DH ### */
    {
        u_long tmp = sft_position_r(sft) + ret;
        
        sft_position_w(sft, tmp);
    }
        /* ### End of addition ### */
        
        sft_abs_cluster(sft, 0x174a);	/* XXX a test */
        Debug0((dbg_fd, "File data %c %c %c\n",
                dta[0], dta[1], dta[2]));
        Debug0((dbg_fd, "Read file pos after = %ld\n",
                sft_position_r(sft)));
        return (return_val);
    }
    case WRITE_FILE:		/* 0x09 */
        cnt = UWORD(state->ecx);
        fd = sft_fd_r(sft);
        
        Debug0((dbg_fd, "Write file fd=%x count=%x sft_mode=%x\n", fd, cnt, sft_open_mode_r(sft)));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        
        /* According to U DOS 2, any write with a (cnt)=CX=0 should truncate fd to
           sft_size , do to how ftruncate works, I'll only do an ftruncate
           if the file's size is greater than the current file position. */
        
        if (!cnt && sft_size_r(sft) > sft_position_r(sft)) {
            Debug0((dbg_fd, "Applying O_TRUNC at %x\n", s_pos));
#ifdef AMIGA
            fprintf (stderr, "ftruncate() not implemented\n");
            exit (1);
#else
            if (ftruncate(fd, (off_t) sft_position_r(sft))) {
                Debug0((dbg_fd, "O_TRUNC failed\n"));
                SETWORD(&(state->eax), ACCESS_DENIED);
                return (FALSE);
            }
#endif
            /* ###  Added by DH ### */
        {
            u_long tmp = sft_position_r(sft);
            
            sft_size_w(sft, tmp);
        }
            /* ### End of addition ### */
        }
        
        if (us_debug_level > Debug_Level_0) {
            s_pos = lseek(fd, sft_position_r(sft), L_SET);
        }
        Debug0((dbg_fd, "Handle cnt %d\n",
                sft_handle_cnt_r(sft)));
        Debug0((dbg_fd, "sft_size = %x, sft_pos = %x, dta = %p, cnt = %x\n", sft_size_r(sft), sft_position_r(sft), (void *) dta, cnt));
        if (us_debug_level > Debug_Level_0) {
            ret = dos_write(fd, dta, cnt);
            if ((ret + s_pos) > sft_size_r(sft)) {
                sft_size_w(sft, ret+s_pos);
            }
        }
        Debug0((dbg_fd, "write operation done,ret=%x\n", ret));
        if (us_debug_level > Debug_Level_0)
            if (ret < 0) {
                Debug0((dbg_fd, "Write Failed : %s\n", strerror(errno)));
                return (FALSE);
            }
        Debug0((dbg_fd, "sft_position=%lu, Sft_size=%lu\n",
                sft_position_r(sft), sft_size_r(sft)));
        SETWORD(&(state->ecx), ret);
        /* ### Added by DH ### */
    {
        u_long pos = sft_position_r(sft) + ret;
        
        sft_position_w(sft, pos);
    }
        /* ### end of addition ### */
        
        sft_abs_cluster(sft,0x174a);	/* XXX a test */
        if (us_debug_level > Debug_Level_0)
            return (TRUE);
    case GET_DISK_SPACE:
    {				/* 0x0c */
#ifdef USE_DF_AND_AFS_STUFF
        int free, tot;
        
        Debug0((dbg_fd, "Get Disk Space\n"));
        build_ufs_path(fpath, cds_current_path(cds));
        
        if (find_file(fpath, &st)) {
            if (get_disk_space(fpath, &free, &tot)) {
                int spc = 1;
                int bps = 512;
                int tmpf, tmpt;
                
                if ((tot > 256 * 256) || (free > 256 * 256)) {
                    tmpf = free * bps * spc;
                    tmpt = tot * bps * spc;
                    
                    spc = 8;
                    bps = 1024;
                    
                    free = (tmpf / bps) / spc;
                    tot = (tmpt / bps) / spc;
                }
                
                SETWORD(&(state->eax), spc);
                SETWORD(&(state->edx), free);
                SETWORD(&(state->ecx), bps);
                SETWORD(&(state->ebx), tot);
                Debug0((dbg_fd, "free=%d, tot=%d, bps=%d, spc=%d\n",
                        free, tot, bps, spc));
                
                return (TRUE);
            }
            else {
                Debug0((dbg_fd, "no ret gds\n"));
            }
        }
#endif /* USE_DF_AND_AFS_STUFF */
        break;
    }
    case SET_FILE_ATTRIBUTES:	/* 0x0e */
    {
        /* ### Changed next line from *(u_short *).... to Read2Bytes(u_short,...) ### */
        u_short att = Read2Bytes(u_short,Addr(state, ss, esp));
        
        Debug0((dbg_fd, "Set File Attributes %s 0%o\n", filename1, att));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        
        build_ufs_path(fpath, filename1);
        Debug0((dbg_fd, "Set attr: '%s' --> 0%o\n", fpath, att));
        if (!find_file(fpath, &st)) {
            SETWORD(&(state->eax), FILE_NOT_FOUND);
            return (FALSE);
        }
        if (chmod(fpath, get_unix_attr(st.st_mode, att)) != 0) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
    }
        return (TRUE);
        
        break;
    case GET_FILE_ATTRIBUTES:	/* 0x0f */
        Debug0((dbg_fd, "Get File Attributes %s\n", filename1));
        build_ufs_path(fpath, filename1);
        if (!find_file(fpath, &st)) {
            Debug0((dbg_fd, "Get failed: '%s'\n", fpath));
            SETWORD(&(state->eax), FILE_NOT_FOUND);
            return (FALSE);
        }
        
        SETWORD(&(state->eax), get_dos_attr(st.st_mode));
        state->ebx = st.st_size >> 16;
        state->edi = MASK16(st.st_size);
        return (TRUE);
    case RENAME_FILE:		/* 0x11 */
        Debug0((dbg_fd, "Rename file fn1=%s fn2=%s\n", filename1, filename2));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        build_ufs_path(fpath, filename2);
        for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
            if (fpath[i] == SLASH)
                bs_pos = i;
        }
        strncpy(buf, fpath, bs_pos);
        buf[bs_pos] = EOS;
        find_file(buf, &st);
        strncpy(fpath, buf, bs_pos);
        
        build_ufs_path(buf, filename1);
        if (!find_file(buf, &st)) {
            Debug0((dbg_fd, "Rename '%s' error.\n", fpath));
            SETWORD(&(state->eax), PATH_NOT_FOUND);
            return (FALSE);
        }
        
        if (rename(buf, fpath) != 0) {
            SETWORD(&(state->eax), PATH_NOT_FOUND);
            return (FALSE);
        }
        else {
            Debug0((dbg_fd, "Rename file %s to %s\n",
                    fpath, buf));
            return (TRUE);
        }
    case DELETE_FILE:		/* 0x13 */
    {
        struct dir_ent *de = NULL;
        
        Debug0((dbg_fd, "Delete file %s\n", filename1));
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        build_ufs_path(fpath, filename1);
        for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
            if (fpath[i] == SLASH)
                bs_pos = i;
        }
        fpath[bs_pos] = EOS;
        auspr(fpath + bs_pos + 1, fname, fext);
        if (bs_pos == 0) {
            bs_pos = -1;
            strcpy(fpath, "/");
        }
        
        de = match_filename_prune_list(get_dir(fpath, fname, fext),
                                       fname, fext);
        
        if (de == NULL) {
            build_ufs_path(fpath, filename1);
            if (!find_file(fpath, &st)) {
                SETWORD(&(state->eax), FILE_NOT_FOUND);
                return (FALSE);
            }
            if (unlink(fpath) != 0) {
                Debug0((dbg_fd, "Deleted %s\n", fpath));
                SETWORD(&(state->eax), FILE_NOT_FOUND);
                return (FALSE);
            }
            return (TRUE);
        }
        
        while (de != NULL) {
            if ((de->mode & S_IFMT) == S_IFREG) {
                strncpy(fpath + bs_pos + 1, de->name, 8);
                fpath[bs_pos] = SLASH;
                fpath[bs_pos + 9] = '.';
                fpath[bs_pos + 13] = EOS;
                strncpy(fpath + bs_pos + 10, de->ext, 3);
                strip_char(fpath, ' ');
                cnt = strlen(fpath);
                if (fpath[cnt - 1] == '.')
                    fpath[cnt - 1] = EOS;
                if (find_file(fpath, &st)) {
                    unlink(fpath);
                    Debug0((dbg_fd, "Deleted %s\n", fpath));
                }
            }
            tmp = de->next;
            free(de);
            de = tmp;
        }
        return (TRUE);
    }
        
    case OPEN_EXISTING_FILE:	/* 0x16 */
        mode = sft_open_mode_r(sft);
        FCBcall = mode & 0x8000;
        Debug0((dbg_fd, "mode=0x%x\n", mode));
        mode = sda_open_mode(sda) & 0x3;
        /* ### Changed next bit from *(u_short *)... to Read2Bytes(u_short,...) ### */
    {
        UBYTE *tmp = Addr(state, ss, uesp);
        attr = Read2Bytes(u_short, tmp);
    }
        Debug0((dbg_fd, "Open existing file %s\n", filename1));
        Debug0((dbg_fd, "mode=0x%x, attr=0%o\n", mode, attr));
        
    do_open_existing:
        if (read_only && mode != O_RDONLY) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        build_ufs_path(fpath, filename1);
        if (!find_file(fpath, &st)) {
            Debug0((dbg_fd, "open failed: '%s'\n", fpath));
            SETWORD(&(state->eax), FILE_NOT_FOUND);
            return (FALSE);
        }
        
        if (st.st_mode & S_IFDIR) {
            Debug0((dbg_fd, "S_IFDIR: '%s'\n", fpath));
            SETWORD(&(state->eax), FILE_NOT_FOUND);
            return (FALSE);
        }
        if (mode == READ_ACC) {
            mode = O_RDONLY;
        }
        else if (mode == WRITE_ACC) {
            mode = O_WRONLY;
        }
        else if (mode == READ_WRITE_ACC) {
            mode = O_RDWR;
        }
        else {
            Debug0((dbg_fd, "Illegal access_mode 0x%x\n", mode));
            mode = O_RDONLY;
        }
        if (read_only && mode != O_RDONLY) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        
        /* Handle DOS requests for drive:\patch\NUL */
        if (!strncmp((char *) (fpath + strlen(fpath) - 3), "nul", 3)) {
            if ((fd = open("/dev/null", mode)) < 0) {
                Debug0((dbg_fd, "access denied:'%s'\n", fpath));
                SETWORD(&(state->eax), ACCESS_DENIED);
                return (FALSE);
            }
        }
        else if ((fd = open(fpath, mode)) < 0) {
            Debug0((dbg_fd, "access denied:'%s'\n", fpath));
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        
        for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
            if (fpath[i] == SLASH)
                bs_pos = i;
        }
        
        auspr(fpath + bs_pos + 1,
              sft_name(sft),
              sft_ext(sft));
        if (FCBcall)
            /* ### Added by DH ### */
        {
            u_short tmp = sft_open_mode_r(sft) | 0x00f0;
            
            sft_open_mode_w(sft, tmp);
        }
        /* ### end of addition ### */
        else
            /* ### Added by DH ### */
        {
            u_short tmp = sft_open_mode_r(sft) & 0x7f;
            
            sft_open_mode_w(sft, tmp);
        }
        /* ### end of addition ## */
        sft_dev_drive_ptr(sft,0);
        sft_directory_entry(sft) = 0;
        sft_directory_sector(sft,0);
#ifdef NOTEST
        sft_attribute_byte(sft) = attr;
#else
        sft_attribute_byte(sft) = 0x20;
#endif /* NOTEST */
        sft_device_info_w(sft, current_drive + 0x8040);
        time_to_dos(&st.st_mtime,
                    &sft_date(sft), &sft_time(sft));
        sft_size_w(sft, st.st_size);
        sft_position_w(sft, 0);
        sft_fd_w(sft, fd);
        Debug0((dbg_fd, "open succeeds: '%s' fd = 0x%x\n", fpath, fd));
        Debug0((dbg_fd, "Size : %ld\n", (long) st.st_size));
        
        /* If FCB open requested, we need to call int2f 0x120c */
        if (FCBcall) {
            u_short *ssp;
            
            Debug0((dbg_fd, "FCB Open calling int2f 0x120c\n"));
            if (!LWORD(esp))
                ssp = (SEG_ADR((us *), ss, sp)) + 0x8000;
            else
                ssp = SEG_ADR((us *), ss, sp);
            /* ### Commented out by DH ###
             *      *--ssp = REG(eflags);
             *      *--ssp = REG(cs);
             *      *--ssp = REG(eip);
             */
            /* ### Added by DH ### */
            Write2Bytes(ssp-1, REG(eflags));
            Write2Bytes(ssp-2, REG(cs));
            Write2Bytes(ssp-3, REG(eip));
            /* ### End of addition ### */
            REG(esp) -= 6;
            REG(cs) = (us) INTE7_SEG;
            REG(eip) = (us) INTE7_OFF;
            
            /* clear TF (trap flag, singlestep), IF (interrupt flag), and
             * NT (nested task) bits of EFLAGS
             */
            REG(eflags) &= ~(TF | IF | NT);
            
        }
        
        return (TRUE);
    case CREATE_TRUNCATE_NO_CDS:	/* 0x18 */
    case CREATE_TRUNCATE_FILE:	/* 0x17 */
        
        FCBcall = sft_open_mode_r(sft) & 0x8000;
        Debug0((dbg_fd, "FCBcall=0x%x\n", FCBcall));
        
        /* 01 in high byte = create new, 00 s just create truncate */
        create_file = *(u_char *) (Addr(state, ss, uesp) + 1);
        
        /* ### Changed next line from *(u_short *)... to Read2Bytes(u_short,...) ### */
        attr = Read2Bytes(u_short,Addr(state, ss, uesp));
        Debug0((dbg_fd, "CHECK attr=0x%x, create=0x%x\n", attr, create_file));
        
        /* make it a byte - we thus ignore the new bit */
        attr &= 0xFF;
        
        Debug0((dbg_fd, "Create truncate file %s attr=%x\n", filename1, attr));
        
    do_create_truncate:
        if (read_only) {
            SETWORD(&(state->eax), ACCESS_DENIED);
            return (FALSE);
        }
        build_ufs_path(fpath, filename1);
        if (find_file(fpath, &st)) {
            Debug0((dbg_fd, "st.st_mode = 0x%02x, handles=%d\n", st.st_mode, sft_handle_cnt_r(sft)));
            if ( /* !(st.st_mode & S_IFREG) || */ create_file) {
                SETWORD(&(state->eax), 0x50);
                Debug0((dbg_fd, "File exists '%s'\n",
                        fpath));
                return (FALSE);
            }
        }
        
        for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
            if (fpath[i] == SLASH)
                bs_pos = i;
        }
        
        if ((fd = open(fpath, (O_RDWR | O_CREAT | O_TRUNC),
                       get_unix_attr(0664, attr))) < 0) {
            strncpy(buf, fpath, bs_pos);
            buf[bs_pos] = EOS;
            find_file(buf, &st);
            strncpy(fpath, buf, bs_pos);
            Debug0((dbg_fd, "trying '%s'\n", fpath));
            if ((fd = open(fpath, (O_RDWR | O_CREAT | O_TRUNC),
                           get_unix_attr(0664, attr))) < 0) {
                Debug0((dbg_fd, "can't open %s: %s (%d)\n",
                        fpath, strerror(errno), errno));
                SETWORD(&(state->eax), ACCESS_DENIED);
                return (FALSE);
            }
        }
        
        auspr(fpath + bs_pos + 1, sft_name(sft), sft_ext(sft));
        sft_dev_drive_ptr(sft,0);
        
        /* This caused a bug with temporary files so they couldn't be read,
           they were made write-only */
#if 0
        sft_open_mode_w(sft, 0x01);
#else
        if (FCBcall)
            /* ### Added by DH ### */
        {
            u_short tmp = sft_open_mode_r(sft) | 0xf0;
            
            sft_open_mode_w(sft, tmp);
        }
        /* ### End of addition ### */
        else
            /* ### Added by DH ### */
        {
            u_short tmp = sft_open_mode_r(sft) & 0x3;
            
            sft_open_mode_w(sft, tmp);
        }
        /* ### end of addition ### */
        
#endif
        sft_directory_entry(sft) = 0;
        sft_directory_sector(sft,0);
        sft_attribute_byte(sft) = attr;
        sft_device_info_w(sft, current_drive + 0x8040);
        time_to_dos(&st.st_mtime, &sft_date(sft),
                    &sft_time(sft));
        
        /* file size starts at 0 bytes */
        sft_size_w(sft, 0);
        sft_position_w(sft,0);
        sft_fd_w(sft ,fd);
        Debug0((dbg_fd, "create succeeds: '%s' fd = 0x%x\n", fpath, fd));
        Debug0((dbg_fd, "size = 0x%lx\n", sft_size_r(sft)));
        
        /* If FCB open requested, we need to call int2f 0x120c */
        if (FCBcall) {
            u_short *ssp;
            
            Debug0((dbg_fd, "FCB Open calling int2f 0x120c\n"));
            if (!LWORD(esp))
                ssp = (SEG_ADR((us *), ss, sp)) + 0x8000;
            else
                ssp = SEG_ADR((us *), ss, sp);
            /* ### Commented out by DH ###
             *      *--ssp = REG(eflags);
             *      *--ssp = REG(cs);
             *      *--ssp = REG(eip);
             */
            /* ### Added by DH ### */
            Write2Bytes(ssp-1, REG(eflags));
            Write2Bytes(ssp-2, REG(cs));
            Write2Bytes(ssp-3, REG(eip));
            /* ### End of addition ### */
            REG(esp) -= 6;
            REG(cs) = (us) INTE7_SEG;
            REG(eip) = (us) INTE7_OFF;
            
            /* clear TF (trap flag, singlestep), IF (interrupt flag), and
             * NT (nested task) bits of EFLAGS
             */
            REG(eflags) &= ~(TF | IF | NT);
            
        }
        return (TRUE);
        
    case FIND_FIRST_NO_CDS:	/* 0x19 */
    case FIND_FIRST:		/* 0x1b */
        
        attr = sda_search_attribute(sda);
        
        Debug0((dbg_fd, "findfirst %s attr=%x\n", filename1, attr));
        
        if (!strncmp(&filename1[strlen(filename1) - 3], "NUL", 3)) {
            Debug0((dng_fd, "Found a NUL, translating\n"));
            filename1[strlen(filename1) - 4] = 0;
            attr = attr | DIRECTORY;
        }
        
        if (find_in_progress) {
            if (!hlist_push(hlist))
                free_list(hlist);
        }
        else {
            free_list(hlist);
        }
        hlist = NULL;
        
        Debug0((dbg_fd, "attr = 0x%x\n", attr));
        
        build_ufs_path(fpath, filename1);
        
        for (i = 0, bs_pos = 0; fpath[i] != EOS; i++) {
            if (fpath[i] == SLASH)
                bs_pos = i;
        }
        fpath[bs_pos] = EOS;
        
        auspr(fpath + bs_pos + 1, fname, fext);
        strncpy(sdb_template_name(sdb), fname, 8);
        strncpy(sdb_template_ext(sdb), fext, 3);
        sdb_attribute(sdb) = attr;
        sdb_drive_letter(sdb) = 0x80 + current_drive;
        sdb_dir_entry_w(sdb, hlist_stack_indx);
        
        Debug0((dbg_fd, "Find first %8.8s.%3.3s\n",
                sdb_template_name(sdb),
                sdb_template_ext(sdb)));
        
        strncpy(last_find_name, sdb_template_name(sdb), 8);
        strncpy(last_find_ext, sdb_template_ext(sdb), 3);
        last_find_dir = sdb_dir_entry_r(sdb);
        last_find_drive = sdb_drive_letter(sdb);
        
#ifndef NO_VOLUME_LABELS
        if (attr & VOLUME_LABEL &&
            strncmp(sdb_template_name(sdb), "????????", 8) == 0 &&
            strncmp(sdb_template_ext(sdb), "???", 3) == 0) {
            Debug0((dbg_fd, "DO LABEL!!\n"));
#if 0
            auspr(VOLUMELABEL, fname, fext);
            sprintf(fext, "%d", current_drive);
#else
        {
            char *label, *root, *p;
            
            p = dos_roots[current_drive];
            label = (char *) malloc(8 + 3 + 1);
            root = (char *) malloc(strlen(p) + 1);
            strcpy(root, p);
            if (root[strlen(root) - 1] == '/' && strlen(root) > 1)
                root[strlen(root) - 1] = '\0';
#if 0
            sprintf(label, "%d:", current_drive);
#else
            label[0] = '\0';
#endif
            if (strlen(label) + strlen(root) <= 8 + 3) {
                strcat(label, root);
            }
            else {
#if 0
                strcat(label, "...");
#endif
                strcat(label, root + strlen(root) - (8 + 3 - strlen(label)));
            }
            for (p = label + strlen(label); p < label + 8 + 3; p++)
                *p = ' ';
            
            strncpy(fname, label, 8);
            strncpy(fext, label + 8, 3);
            free(label);
            free(root);
        }
#endif
            strncpy(sdb_file_name(sdb), fname, 8);
            strncpy(sdb_file_ext(sdb), fext, 3);
            sdb_file_attr(sdb) = VOLUME_LABEL;
            sdb_dir_entry_w(sdb, 0);
            if (attr != VOLUME_LABEL)
                find_in_progress = TRUE;
            auspr(fpath + bs_pos + 1, fname, fext);
            if (bs_pos == 0)
                strcpy(fpath, "/");
            hlist = match_filename_prune_list(
                                              get_dir(fpath, fname, fext), fname, fext);
            return (TRUE);
        }
#else
        if (attr == VOLUME_LABEL)
            return (FALSE);
#endif
        if (bs_pos == 0)
            strcpy(fpath, "/");
        hlist = match_filename_prune_list(
                                          get_dir(fpath, fname, fext), fname, fext);
        
    find_again:
        
        if (hlist == NULL) {
            /* no matches or empty directory */
            Debug0((dbg_fd, "No more matches\n"));
            SETWORD(&(state->eax), NO_MORE_FILES);
            hlist = hlist_pop();
            last_find_drive = 0;
            if (hlist == NULL && !hlist_stack_indx)
                find_in_progress = FALSE;
            return (FALSE);
        }
        else {
            Debug0((dbg_fd, "find_again entered with %.8s.%.3s\n", hlist->name, hlist->ext));
            sdb_file_attr(sdb) = get_dos_attr(hlist->mode);
            
            if (hlist->mode & S_IFDIR) {
                Debug0((dbg_fd, "Directory ---> YES\n"));
                if (!(attr & DIRECTORY)) {
                    tmp = hlist->next;
                    free(hlist);
                    hlist = tmp;
                    goto find_again;
                }
            }
            time_to_dos(&hlist->time,
                        &sdb_file_date(sdb),
                        &sdb_file_time(sdb));
            sdb_file_size(sdb, hlist->size);
            strncpy(sdb_file_name(sdb), hlist->name, 8);
            strncpy(sdb_file_ext(sdb), hlist->ext, 3);

#if 0
            /* ### Added by DH ## */
        {
            u_short tmp = sdb_dir_entry_r(sdb) +1;
            
            sdb_dir_entry_w(sdb, tmp);
        }
            /* ### End of addition ### */
            
#endif
            
            Debug0((dbg_fd, "'%.8s'.'%.3s'\n",
                    sdb_file_name(sdb),
                    sdb_file_ext(sdb)));
            
            tmp = hlist->next;
            free(hlist);
            hlist = tmp;
        }
        find_in_progress = TRUE;
        return (TRUE);
    case FIND_NEXT:		/* 0x1c */
        Debug0((dbg_fd, "Find next %8.8s.%3.3s, hlist=%d\n",
                sdb_template_name(sdb),
                sdb_template_ext(sdb), hlist));
        if (last_find_drive && ((strncmp(last_find_name, sdb_template_name(sdb), 8) != 0 ||
                                 strncmp(last_find_ext, sdb_template_ext(sdb), 3) != 0) ||
                                (last_find_dir != sdb_dir_entry_r(sdb)) ||
                                (last_find_drive != sdb_drive_letter(sdb)))) {
            Debug0((dbg_fd, "last_template!=this_template. popping. %.8s,%.3s\n", last_find_name, last_find_ext));
            Debug0((dbg_fd, "last_dir=%x,last_drive=%d sdb_dir=%d,sdb_drive=%d\n", last_find_dir, last_find_drive, sdb_dir_entry_r(sdb), sdb_drive_letter(sdb)));
            hlist = hlist_pop();
            
            strncpy(last_find_name, sdb_template_name(sdb), 8);
            strncpy(last_find_ext, sdb_template_ext(sdb), 3);
            last_find_dir = sdb_dir_entry_r(sdb);
            last_find_drive = sdb_drive_letter(sdb);
            /*
               if (hlist == NULL)
               {
               Debug0((dbg_fd,"double popping!!\n"));
               hlist = hlist_pop ();
               }
               */
        }
        
        attr = sdb_attribute(sdb);
        goto find_again;
    case CLOSE_ALL:		/* 0x1d */
        Debug0((dbg_fd, "Close All\n"));
        break;
    case FLUSH_ALL_DISK_BUFFERS:	/* 0x20 */
        Debug0((dbg_fd, "Flush Disk Buffers\n"));
        break;
    case SEEK_FROM_EOF:		/* 0x21 */
    {
        int offset = (state->ecx << 16) + (state->edx);
        
        fd = sft_fd_r(sft);
        Debug0((dbg_fd, "Seek From EOF fd=%x ofs=%d\n",
                fd, offset));
        if (offset > 0)
            offset = -offset;
        offset = lseek(fd, offset, SEEK_END);
        Debug0((dbg_fd, "Seek returns fs=%d ofs=%d\n",
                fd, offset));
        if (offset != -1) {
            sft_position_w(sft, offset);
            state->edx = offset >> 16;
            state->eax = UWORD(offset);
            return (TRUE);
        }
        else {
            SETWORD(&(state->eax), SEEK_ERROR);
            return (FALSE);
        }
    }
        break;
    case QUALIFY_FILENAME:	/* 0x23 */
    {
        char *fn = (char *) Addr(state, ds, esi);
        char *qfn = (char *) Addr(state, es, edi);
        char *cpath = cds_current_path(cds);
        
#if DOQUALIFY
        if (fn[1] == ':') {
            if (fn[2] == '\\')
                strcpy(qfn, fn);
            else {
                strcpy(qfn, cpath);
                if (cpath[strlen(cpath) - 1] != '\\')
                    strcat(qfn, "\\");
                strcat(qfn, fn + 2);
            }
        }
        else {
            strcpy(qfn, cpath);
            strcat(qfn, fn);
        }
        Debug0((dbg_fd, "Qualify filename %s->%s\n", fn, qfn));
        return (TRUE);
#else
        Debug0((dbg_fd, "Qualify filename %s\n", fn));
#endif
    }
        break;
    case LOCK_FILE_REGION:	/* 0x0a */
        Debug0((dbg_fd, "Lock file region\n"));
        return (TRUE);
        break;
    case UNLOCK_FILE_REGION:	/* 0x0b */
        Debug0((dbg_fd, "Unlock file region\n"));
        break;
    case PROCESS_TERMINATED:	/* 0x22*/
        Debug0((dbg_fd, "Process terminated\n"));
        if (find_in_progress) {
            while ((int) hlist_stack_indx != (int) NULL) {
                free_list(hlist);
                hlist = hlist_pop();
            }
            find_in_progress = FALSE;
        }
        return (REDIRECT);
    case CONTROL_REDIRECT:	/* 0x1e */
        /* get low word of parameter, should be one of 2, 3, 4, 5 */
        /* ### Changed next line from *(u_short *)... to Read2Bytes(u_short,...) ### */
        subfunc = LOW(Read2Bytes(u_short,Addr(state, ss, uesp)));
        Debug0((dbg_fd, "Control redirect, subfunction %d\n",
                subfunc));
        switch (subfunc) {
            /* XXXTRB - need to support redirection index pass-thru */
        case GET_REDIRECTION:
        case EXTENDED_GET_REDIRECTION:
            return (GetRedirection(state, UWORD(state->ebx)));
            break;
        case REDIRECT_DEVICE:
            return (RedirectDevice(state));
            break;
        case CANCEL_REDIRECTION:
            return (CancelRedirection(state));
            break;
        default:
            SETWORD(&(state->eax), FUNC_NUM_IVALID);
            return (FALSE);
            break;
        }
        break;
    case COMMIT_FILE:		/* 0x07 */
        Debug0((dbg_fd, "Commit\n"));
        break;
    case MULTIPURPOSE_OPEN:
    {
        boolean_t file_exists;
        u_short action = sda_ext_act(sda);
        
        mode = sda_ext_mode(sda) & 0x7f;
        /* ### Changed next line from *(u_short *)... to Read2Bytes(u_short,...) ### */
        attr = Read2Bytes(u_short,Addr(state, ss, uesp));
        Debug0((dbg_fd, "Multipurpose open file: %s\n", filename1));
        Debug0((dbg_fd, "Mode, action, attr = %x, %x, %x\n",
                mode, action, attr));
        
        build_ufs_path(fpath, filename1);
        file_exists = find_file(fpath, &st);
        
        if (((action & 0x10) == 0) && !file_exists) {
            /* Fail if file does not exist */
            SETWORD(&(state->eax), FILE_NOT_FOUND);
            return (FALSE);
        }
        
        if (((action & 0xf) == 0) && file_exists) {
            /* Fail if file does exist */
            SETWORD(&(state->eax), FILE_ALREADY_EXISTS);
            return (FALSE);
        }
        
        if (((action & 0xf) == 1) && file_exists) {
            /* Open if does exist */
            SETWORD(&(state->ecx), 0x1);
            goto do_open_existing;
        }
        
        if (((action & 0xf) == 2) && file_exists) {
            /* Replace if file exists */
            SETWORD(&(state->ecx), 0x3);
            goto do_create_truncate;
        }
        
        if (((action & 0x10) != 0) && !file_exists) {
            /* Replace if file exists */
            SETWORD(&(state->ecx), 0x2);
            goto do_create_truncate;
        }
        
        Debug0((dbg_fd, "Multiopen failed: 0x%02x\n",
                (int) LOW(state->eax)));
        /* Fail if file does exist */
        SETWORD(&(state->eax), FILE_NOT_FOUND);
        return (FALSE);
    }
    case EXTENDED_ATTRIBUTES:{
        switch (LOW(state->ebx)) {
        case 2:			/* get extended attributes */
        case 3:			/* get extended attribute properties */
            if (UWORD(state->ecx) >= 2) {
                *(short *) (Addr(state, es, edi)) = 0;
                SETWORD(&(state->ecx), 0x2);
            }
        case 4:			/* set extended attributes */
            return (TRUE);
        }
        return (FALSE);
    }
    case PRINTER_MODE:{
        SETLOW(&(state->edx), 1);
        return (TRUE);
    }
#ifdef UNDOCUMENTED_FUNCTION_2
    case UNDOCUMENTED_FUNCTION_2:
        Debug0((dbg_fd, "Undocumented function: %02x\n",
                (int) LOW(state->eax)));
        return (TRUE);
#endif
    case PRINTER_SETUP:
        SETWORD(&(state->ebx), UWORD(state->ebx) - redirected_drives);
        Debug0((dbg_fd, "Passing %d to PRINTER SETUP CALL\n",
                (int) UWORD(state->ebx)));
        return (REDIRECT);
    default:
        Debug0((dbg_fd, "Default for undocumented function: %02x\n",
                (int) LOW(state->eax)));
        return (REDIRECT);
    }
    return (ret);
}