fileio_info_t *cbmfile_open(const char *file_name, const char *path,
unsigned int command, unsigned int type)
{
BYTE *cbm_name;
fileio_info_t *info;
struct rawfile_info_s *rawfile;
char *fsname, *rname;
fsname = lib_stralloc(file_name);
if (!(command & FILEIO_COMMAND_FSNAME)) {
charset_petconvstring((BYTE *)fsname, 1);
}
if (cbmdos_parse_wildcard_check(fsname, (unsigned int)strlen(fsname))) {
rname = cbmfile_find_file(fsname, path);
lib_free(fsname);
if (rname == NULL) {
return NULL;
}
} else {
rname = fsname;
}
rawfile = rawfile_open(rname, path, command & FILEIO_COMMAND_MASK);
lib_free(rname);
if (rawfile == NULL) {
return NULL;
}
cbm_name = (BYTE *)lib_stralloc(file_name);
if (command & FILEIO_COMMAND_FSNAME) {
charset_petconvstring(cbm_name, 0);
}
info = lib_malloc(sizeof(fileio_info_t));
info->name = cbm_name;
info->length = (unsigned int)strlen((char *)cbm_name);
info->type = type;
info->format = FILEIO_FORMAT_RAW;
info->rawfile = rawfile;
return info;
}
static int fsdevice_open_directory(vdrive_t *vdrive, unsigned int secondary,
bufinfo_t *bufinfo,
cbmdos_cmd_parse_t *cmd_parse, char *rname)
{
struct ioutil_dir_s *ioutil_dir;
char *mask;
BYTE *p;
int i;
if ((secondary != 0) || (bufinfo[secondary].mode != Read)) {
fsdevice_error(vdrive, CBMDOS_IPE_NOT_WRITE);
return FLOPPY_ERROR;
}
if (!(mask = strrchr(rname, '/'))) {
mask = rname;
}
/* Test on wildcards. */
if (cbmdos_parse_wildcard_check(mask, (unsigned int)strlen(mask))) {
if (*mask == '/') {
strcpy(bufinfo[secondary].dirmask, mask + 1);
*mask++ = 0;
} else {
strcpy(bufinfo[secondary].dirmask, mask);
lib_free(cmd_parse->parsecmd);
cmd_parse->parsecmd = lib_stralloc(fsdevice_get_path(vdrive->unit));
}
} else {
bufinfo[secondary].dirmask[0] = '\0';
if (!*(cmd_parse->parsecmd)) {
lib_free(cmd_parse->parsecmd);
cmd_parse->parsecmd = lib_stralloc(fsdevice_get_path(vdrive->unit));
}
}
/* trying to open */
ioutil_dir = ioutil_opendir((char *)(cmd_parse->parsecmd));
if (ioutil_dir == NULL) {
for (p = (BYTE *)(cmd_parse->parsecmd); *p; p++) {
if (isupper((int)*p)) {
*p = tolower((int)*p);
}
}
ioutil_dir = ioutil_opendir((char *)(cmd_parse->parsecmd));
if (ioutil_dir == NULL) {
fsdevice_error(vdrive, CBMDOS_IPE_NOT_FOUND);
return FLOPPY_ERROR;
}
}
strcpy(bufinfo[secondary].dir, cmd_parse->parsecmd);
/*
* Start Address, Line Link and Line number 0
*/
p = bufinfo[secondary].name;
*p++ = 1;
*p++ = 4;
*p++ = 1;
*p++ = 1;
*p++ = 0;
*p++ = 0;
*p++ = (BYTE)0x12; /* Reverse on */
*p++ = '"';
strcpy((char *)p, bufinfo[secondary].dir); /* Dir name */
charset_petconvstring((BYTE *)p, 0); /* ASCII name to PETSCII */
i = 0;
while (*p) {
++p;
i++;
}
while (i < 16) {
*p++ = ' ';
i++;
}
*p++ = '"';
*p++ = ' ';
*p++ = 'V';
*p++ = 'I';
*p++ = 'C';
*p++ = 'E';
*p++ = ' ';
*p++ = 0;
bufinfo[secondary].buflen = (int)(p - bufinfo[secondary].name);
bufinfo[secondary].bufp = bufinfo[secondary].name;
bufinfo[secondary].mode = Directory;
bufinfo[secondary].ioutil_dir = ioutil_dir;
bufinfo[secondary].eof = 0;
return FLOPPY_COMMAND_OK;
}
static int fsdevice_open_file(vdrive_t *vdrive, unsigned int secondary,
bufinfo_t *bufinfo,
cbmdos_cmd_parse_t *cmd_parse, char *rname)
{
char *comma;
tape_image_t *tape;
unsigned int format = 0;
fileio_info_t *finfo;
if (fsdevice_convert_p00_enabled[(vdrive->unit) - 8]) {
format |= FILEIO_FORMAT_P00;
}
if (!fsdevice_hide_cbm_files_enabled[vdrive->unit - 8]) {
format |= FILEIO_FORMAT_RAW;
}
/* Remove comma. */
if ((cmd_parse->parsecmd)[0] == ',') {
(cmd_parse->parsecmd)[1] = '\0';
} else {
comma = strchr(cmd_parse->parsecmd, ',');
if (comma != NULL) {
*comma = '\0';
}
}
/* Test on wildcards. */
if (cbmdos_parse_wildcard_check(cmd_parse->parsecmd,
(unsigned int)strlen(cmd_parse->parsecmd)) > 0) {
if (bufinfo[secondary].mode == Write
|| bufinfo[secondary].mode == Append) {
fsdevice_error(vdrive, CBMDOS_IPE_BAD_NAME);
return FLOPPY_ERROR;
}
}
/* Open file for write mode access. */
if (bufinfo[secondary].mode == Write) {
if (fsdevice_save_p00_enabled[vdrive->unit - 8]) {
format = FILEIO_FORMAT_P00;
} else {
format = FILEIO_FORMAT_RAW;
}
finfo = fileio_open(rname, fsdevice_get_path(vdrive->unit), format,
FILEIO_COMMAND_WRITE, bufinfo[secondary].type);
if (finfo != NULL) {
bufinfo[secondary].fileio_info = finfo;
fsdevice_error(vdrive, CBMDOS_IPE_OK);
return FLOPPY_COMMAND_OK;
} else {
fsdevice_error(vdrive, CBMDOS_IPE_FILE_EXISTS);
return FLOPPY_ERROR;
}
}
if (bufinfo[secondary].mode == Append) {
/* Open file for append mode access. */
finfo = fileio_open(rname, fsdevice_get_path(vdrive->unit), format,
FILEIO_COMMAND_APPEND_READ,
bufinfo[secondary].type);
if (finfo != NULL) {
bufinfo[secondary].fileio_info = finfo;
fsdevice_error(vdrive, CBMDOS_IPE_OK);
return FLOPPY_COMMAND_OK;
} else {
fsdevice_error(vdrive, CBMDOS_IPE_NOT_FOUND);
return FLOPPY_ERROR;
}
}
/* Open file for read mode access. */
tape = bufinfo[secondary].tape;
tape->name = util_concat(fsdevice_get_path(vdrive->unit),
FSDEV_DIR_SEP_STR, rname, NULL);
charset_petconvstring((BYTE *)(tape->name) +
strlen(fsdevice_get_path(vdrive->unit))+
strlen(FSDEV_DIR_SEP_STR), 1);
tape->read_only = 1;
/* Prepare for buffered reads */
bufinfo[secondary].isbuffered = 0;
bufinfo[secondary].iseof = 0;
if (tape_image_open(tape) < 0) {
lib_free(tape->name);
tape->name = NULL;
} else {
tape_file_record_t *r;
static BYTE startaddr[2];
tape_seek_start(tape);
tape_seek_to_file(tape, 0);
r = tape_get_current_file_record(tape);
if ( (r->type==1) || (r->type==3) ) {
startaddr[0] = r->start_addr & 255;
startaddr[1] = r->start_addr >> 8;
bufinfo[secondary].bufp = startaddr;
bufinfo[secondary].buflen = 2;
} else {
