mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
274 lines
6.9 KiB
274 lines
6.9 KiB
/*
|
|
|
|
CPMREDIR: CP/M filesystem redirector
|
|
Copyright (C) 1998, John Elliott <jce@seasip.demon.co.uk>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with this library; if not, write to the Free
|
|
Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
This file holds internal declarations for the library.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include <stdio.h>
|
|
#ifdef HAVE_STDLIB_H
|
|
#include <stdlib.h>
|
|
#endif
|
|
#include <stdarg.h>
|
|
#ifdef HAVE_STRING_H
|
|
#include <string.h>
|
|
#endif
|
|
#include <ctype.h>
|
|
#include <time.h>
|
|
#ifdef _WIN32
|
|
#include <sys/utime.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_TYPES_H
|
|
#include <sys/types.h>
|
|
#endif
|
|
#include <sys/stat.h>
|
|
#include <errno.h>
|
|
#ifdef HAVE_DIRENT_H
|
|
#include <dirent.h>
|
|
#endif
|
|
#ifdef HAVE_DIRECT_H
|
|
#include <direct.h>
|
|
#endif
|
|
#ifdef HAVE_IO_H
|
|
#include <io.h>
|
|
#endif
|
|
#ifdef HAVE_NDIR_H
|
|
#include <ndir.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_DIR_H
|
|
#include <sys/dir.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_NDIR_H
|
|
#include <sys/ndir.h>
|
|
#endif
|
|
#ifdef HAVE_WINDOWS_H
|
|
#include <windows.h>
|
|
#endif
|
|
#ifdef HAVE_WINNT_H
|
|
#include <winnt.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_VFS_H
|
|
#include <sys/vfs.h>
|
|
#endif
|
|
#ifdef HAVE_UTIME_H
|
|
#include <utime.h>
|
|
#endif
|
|
#ifdef HAVE_FCNTL_H
|
|
#include <fcntl.h>
|
|
#endif
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
#ifndef _WIN32
|
|
#include <sys/param.h>
|
|
#include <sys/mount.h>
|
|
#define _S_IFDIR S_IFDIR
|
|
#endif
|
|
|
|
/* MSDOS includes removed */
|
|
|
|
#ifdef _WIN32
|
|
#define DIRSEP "/"
|
|
#define mkdir(dir, mode) _mkdir(dir)
|
|
#define strcasecmp _stricmp
|
|
#define ftruncate _chsize
|
|
/* note Windows build assumes Windows is configured as a non case sensitive filesystem */
|
|
#ifndef STDIN_FILENO
|
|
#define STDIN_FILENO _fileno(stdin)
|
|
#define STDOUT_FILENO _fileno(stdout)
|
|
#define STDERR_FILENO _fileno(stderr)
|
|
#endif
|
|
#else
|
|
#define DIRSEP "/\\:"
|
|
#define CASE_SENSITIVE_FILESYSTEM 1
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
int truncate(const char* path, off_t length); /* see util.c */
|
|
#endif
|
|
|
|
typedef unsigned char byte; /* Must be exactly 8 bits */
|
|
typedef unsigned short word; /* Must be exactly 16 bits */
|
|
typedef unsigned long dword; /* Must be at least 32 bits, and
|
|
>= sizeof(int) */
|
|
|
|
#include "cpmredir.h"
|
|
|
|
#ifdef CPMDEF
|
|
#define EXT
|
|
#define INIT(x) =x
|
|
#else
|
|
#define EXT extern
|
|
#define INIT(x)
|
|
#endif
|
|
|
|
/* The 16 directories to which the 16 CP/M drives are mapped */
|
|
|
|
EXT char redir_drive_prefix[16][CPM_MAXPATH];
|
|
|
|
/* Current drive and user */
|
|
|
|
EXT int redir_cpmdrive;
|
|
EXT int redir_cpmuser;
|
|
|
|
/* Length of 1 read/write operation, bytes */
|
|
|
|
EXT int redir_rec_len INIT(128);
|
|
|
|
/* Same, but in 128-byte records */
|
|
EXT int redir_rec_multi INIT(1);
|
|
|
|
/* Using a DRDOS system? */
|
|
EXT int redir_drdos INIT(0);
|
|
|
|
/* Default password */
|
|
#ifdef __MSDOS__
|
|
EXT char redir_passwd[8] INIT("");
|
|
#endif
|
|
|
|
EXT cpm_word redir_l_drives INIT(0);
|
|
EXT cpm_word redir_ro_drives INIT(0);
|
|
|
|
#undef EXT
|
|
#undef INIT
|
|
|
|
/* Convert FCB to a Unix filename, returning 1 if it's ambiguous */
|
|
int redir_fcb2unix(cpm_byte* fcb, char* fname);
|
|
|
|
/* Open FCB, set file attributes */
|
|
int redir_ofile(cpm_byte* fcb, char* s);
|
|
|
|
/* Check that the FCB we have is valid */
|
|
int redir_verify_fcb(cpm_byte* fcb);
|
|
|
|
#ifndef O_BINARY /* Necessary in DOS, not present in Linux */
|
|
#define O_BINARY 0
|
|
#endif
|
|
|
|
/* Facilities for debug tracing */
|
|
|
|
long zxlseek(int fd, long offset, int wh);
|
|
|
|
#ifdef _WIN32
|
|
char* GetErrorStr(DWORD);
|
|
#endif
|
|
|
|
#ifdef DEBUG
|
|
// long zxlseek(int fd, long offset, int wh);
|
|
// void redir_Msg(char *s, ...);
|
|
void DbgMsg(const char* file, int line, const char* func, char* s, ...);
|
|
void redir_showfcb(cpm_byte* fcb);
|
|
#else
|
|
// #define zxlseek lseek
|
|
/* Warning: This is a GCC extension */
|
|
// #define redir_Msg(x, ...)
|
|
#define redir_showfcb(x)
|
|
#endif
|
|
|
|
#ifdef DEBUG
|
|
#define FCBENT(fcb) \
|
|
{ \
|
|
char fname[CPM_MAXPATH] = ""; \
|
|
redir_fcb2unix(fcb, fname); \
|
|
DBGMSGV("entry w/ FCB @ 0x%04X, filename:'%s'\n", fcb-RAM, fname); \
|
|
}
|
|
|
|
#define FCBRET(rc) \
|
|
{ \
|
|
DBGMSGV("returning 0x%04X\n", rc); \
|
|
return rc; \
|
|
}
|
|
|
|
#define DBGMSGV(s, ...) DbgMsg(__FILE__, __LINE__, __func__, s, __VA_ARGS__)
|
|
#define DBGMSG(s) DbgMsg(__FILE__, __LINE__, __func__, s)
|
|
#else
|
|
#define FCBENT(fcb)
|
|
#define FCBRET(rc) return rc;
|
|
#define DBGMSGV(s, ...)
|
|
#define DBGMSG(s)
|
|
#endif
|
|
|
|
/* Get the "sequential access" file pointer out of an FCB */
|
|
|
|
long redir_get_fcb_pos(cpm_byte* fcb);
|
|
|
|
/* Write "sequential access" pointer to FCB */
|
|
|
|
void redir_put_fcb_pos(cpm_byte* fcb, long npos);
|
|
|
|
/* Convert time_t to CP/M day count/hours/minutes */
|
|
dword redir_cpmtime(time_t t);
|
|
/* And back */
|
|
time_t redir_unixtime(cpm_byte* c);
|
|
|
|
/* Functions to access 24-bit & 32-bit words in memory. These are always
|
|
little-endian. */
|
|
|
|
void redir_wr24(cpm_byte* addr, dword v);
|
|
void redir_wr32(cpm_byte* addr, dword v);
|
|
dword redir_rd24(cpm_byte* addr);
|
|
dword redir_rd32(cpm_byte* addr);
|
|
|
|
/* If you have 64-bit file handles, you'll need to write separate wrhandle()
|
|
and rdhandle() routines */
|
|
#define redir_wrhandle redir_wr32
|
|
#define redir_rdhandle redir_rd32
|
|
|
|
/* Mark a drive as logged in */
|
|
|
|
void redir_log_drv(cpm_byte drv);
|
|
void redir_log_fcb(cpm_byte* fcb);
|
|
|
|
/* Check if a drive is software read-only */
|
|
|
|
int redir_ro_drv(cpm_byte drv);
|
|
int redir_ro_fcb(cpm_byte* fcb);
|
|
|
|
/* Translate errno to a CP/M error */
|
|
|
|
cpm_word redir_xlt_err(void);
|
|
|
|
/* Get disc label */
|
|
cpm_word redir_get_label(cpm_byte drv, char* pattern);
|
|
|
|
/* DRDOS set/get access rights - no-ops under MSDOS and Unix:
|
|
*
|
|
* CP/M password mode -> DRDOS password mode */
|
|
cpm_word redir_drdos_pwmode(cpm_byte b);
|
|
|
|
/* DRDOS password mode to CP/M password mode */
|
|
cpm_byte redir_cpm_pwmode(cpm_word w);
|
|
|
|
/* Get DRDOS access rights for a file */
|
|
cpm_word redir_drdos_get_rights(char* path);
|
|
|
|
/* Set DRDOS access rights and/or password */
|
|
cpm_word redir_drdos_put_rights(char* path, cpm_byte* dma, cpm_word rights);
|
|
|
|
/* Was the last error caused by invalid password? */
|
|
cpm_word redir_password_error(void);
|
|
|
|
/* Append password to filename (FILE.TYP -> FILE.TYP;PASSWORD) */
|
|
void redir_password_append(char* s, cpm_byte* dma);
|
|
|
|
void releaseFile(char* fname);
|
|
int trackFile(char* fname, void* fcb, int fd);
|
|
#define releaseFCB(fcb) trackFile(NULL, fcb, -1)
|
|
|
|
extern byte RAM[65536]; /* The Z80's address space */
|
|
|