static TUI_MENU_CALLBACK(create_disk_image_callback)
{
if (been_activated) {
unsigned int drive;
drive = (unsigned int)param;
if (file_name == NULL) {
tui_error("Specify a disk image name.");
return NULL;
}
if (vdrive_internal_create_format_disk_image(file_name, format_name, image_type[file_type]) < 0) {
tui_error("Could not create disk image!");
return NULL;
}
if (drive > 0) {
if (file_system_attach_disk(drive, file_name) < 0) {
tui_error("Could not attach disk image!");
return NULL;
}
}
ui_update_menus();
}
return NULL;
}
int autostart_prg_with_disk_image(const char *file_name,
fileio_info_t *fh,
log_t log,
const char *image_name)
{
const int drive = 8;
const int secondary = 1;
autostart_prg_t *prg;
vdrive_t *vdrive;
int i;
int old_tde_state;
int file_name_size;
BYTE data;
unsigned int disk_image_type;
int result, result2;
/* identify disk image type */
switch (drive_get_disk_drive_type(drive - 8)) {
case DRIVE_TYPE_1540:
case DRIVE_TYPE_1541:
case DRIVE_TYPE_1541II:
case DRIVE_TYPE_1551:
case DRIVE_TYPE_1570:
case DRIVE_TYPE_2031:
disk_image_type = DISK_IMAGE_TYPE_D64;
break;
case DRIVE_TYPE_2040:
case DRIVE_TYPE_3040:
case DRIVE_TYPE_4040:
disk_image_type = DISK_IMAGE_TYPE_D67;
break;
case DRIVE_TYPE_1571:
case DRIVE_TYPE_1571CR:
disk_image_type = DISK_IMAGE_TYPE_D71;
break;
case DRIVE_TYPE_1581:
case DRIVE_TYPE_2000:
case DRIVE_TYPE_4000:
disk_image_type = DISK_IMAGE_TYPE_D81;
break;
case DRIVE_TYPE_8050:
disk_image_type = DISK_IMAGE_TYPE_D80;
break;
case DRIVE_TYPE_8250:
case DRIVE_TYPE_1001:
disk_image_type = DISK_IMAGE_TYPE_D82;
break;
default:
log_error(log, "No idea what disk image format to use.");
return -1;
}
/* read prg file */
prg = load_prg(file_name, fh, log);
if (prg == NULL) {
return -1;
}
/* disable TDE */
resources_get_int("DriveTrueEmulation", &old_tde_state);
if (old_tde_state != 0) {
log_message(log, "Turning true drive emulation off.");
resources_set_int("DriveTrueEmulation", 0);
}
do {
result = -1;
/* create empty image */
if (vdrive_internal_create_format_disk_image(image_name, (char *)"AUTOSTART", disk_image_type) < 0) {
log_error(log, "Error creating autostart disk image: %s", image_name);
break;
}
/* attach disk image */
if (file_system_attach_disk(drive, image_name) < 0) {
log_error(log, "Could not attach disk image: %s", image_name);
break;
}
/* get vdrive */
vdrive = file_system_get_vdrive((unsigned int)drive);
if (vdrive == NULL) {
break;
}
/* get file name size */
file_name_size = strlen((const char *)fh->name);
if (file_name_size > 16) {
file_name_size = 16;
}
/* open file on disk */
if (vdrive_iec_open(vdrive, (const BYTE *)fh->name, file_name_size, secondary, NULL) != SERIAL_OK) {
log_error(log, "Could not open file");
break;
}
result2 = 0;
/* write PRG data to file */
for (i = -2; i < (int)prg->size; i++) {
switch (i) {
case -2:
data = (BYTE)prg->start_addr;
break;
case -1:
data = (BYTE)(prg->start_addr >> 8);
break;
default:
data = prg->data[i];
break;
}
if (vdrive_iec_write(vdrive, data, secondary) != SERIAL_OK) {
log_error(log, "Could not write file");
result2 = -1;
break;
}
}
/* close file */
if (vdrive_iec_close(vdrive, secondary) != SERIAL_OK) {
log_error(log, "Could not close file");
break;
}
result = result2;
} while (0);
/* free prg file */
free_prg(prg);
/* re-enable TDE */
if (old_tde_state != 0) {
log_message(log, "Turning true drive emulation on.");
resources_set_int("DriveTrueEmulation", old_tde_state);
}
/* ready */
return result;
}
int autostart_prg_with_disk_image(const char *file_name, fileio_info_t *fh, const char *image_name)
{
const int drive = 8;
const int secondary = 1;
autostart_prg_t *prg;
vdrive_t *vdrive;
int i;
int old_tde_state;
int file_name_size;
BYTE lo,hi;
/* read prg file */
prg = load_prg(file_name, fh);
if (prg == NULL) {
return -1;
}
/* disable TDE */
resources_get_int("DriveTrueEmulation", &old_tde_state);
if (old_tde_state != 0)
resources_set_int("DriveTrueEmulation", 0);
/* create empty image */
if (vdrive_internal_create_format_disk_image(image_name,
(char *)"AUTOSTART", DISK_IMAGE_TYPE_D64) <0 ) {
//log_error(log, "Error creating autostart disk image: %s", image_name);
free_prg(prg);
return -1;
}
/* attach disk image */
if (file_system_attach_disk(drive, image_name) < 0) {
//log_error(log, "Could not attach disk image: %s", image_name);
free_prg(prg);
return -1;
}
/* copy file to disk */
vdrive = file_system_get_vdrive((unsigned int)drive);
if (vdrive == NULL) {
free_prg(prg);
return -1;
}
/* get file name size */
file_name_size = strlen((const char *)fh->name);
if (file_name_size > 16) {
file_name_size = 16;
}
/* open file on disk */
if (vdrive_iec_open(vdrive, (const BYTE *)fh->name,
file_name_size, secondary, NULL) != SERIAL_OK) {
//log_error(log, "Could not open file");
free_prg(prg);
return -1;
}
/* write start address to file */
lo = (BYTE)(prg->start_addr & 0xff);
hi = (BYTE)((prg->start_addr >> 8) & 0xff);
if ((vdrive_iec_write(vdrive, lo, secondary) != SERIAL_OK) ||
(vdrive_iec_write(vdrive, hi, secondary) != SERIAL_OK)) {
//log_error(log, "Could not write file");
free_prg(prg);
return -1;
}
/* write PRG data to file */
for (i = 0; i < prg->size; i++) {
if (vdrive_iec_write(vdrive, prg->data[i], secondary) != SERIAL_OK) {
//log_error(log, "Could not write file");
free_prg(prg);
return -1;
}
}
/* close file */
if (vdrive_iec_close(vdrive, secondary) != SERIAL_OK) {
//log_error(log, "Could not close file");
free_prg(prg);
return -1;
}
/* free prg file */
free_prg(prg);
/* re-enable TDE */
if (old_tde_state != 0)
resources_set_int("DriveTrueEmulation", old_tde_state);
/* ready */
return 0;
}
int ui_empty_disk_dialog(char *name)
{
gint res;
char *format_text;
char *fname;
const char *dname, *id;
int i, type = 0, ret = 0;
if (edisk_dialog)
{
gdk_window_show(edisk_dialog->window);
gdk_window_raise(edisk_dialog->window);
gtk_widget_show(edisk_dialog);
}
else
{
edisk_dialog = build_empty_disk_dialog();
g_signal_connect(G_OBJECT(edisk_dialog),
"destroy",
G_CALLBACK(gtk_widget_destroyed),
&edisk_dialog);
}
ui_popup(edisk_dialog, _("Create empty Diskimage"), FALSE);
res = gtk_dialog_run(GTK_DIALOG(edisk_dialog));
ui_popdown(edisk_dialog);
if (res != GTK_RESPONSE_ACCEPT)
return -1;
/* filename */
fname = gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(fileentry));
if (!fname)
return -1;
strcpy(name, fname);
lib_free(fname);
/* format label */
dname = gtk_entry_get_text(GTK_ENTRY(diskname));
if (!dname)
dname = "";
/* disk ID */
id = gtk_entry_get_text(GTK_ENTRY(diskid));
if (!id)
id = "00";
/* type radio button */
for (i = 0; type_radio[i].label; i++)
if (GTK_TOGGLE_BUTTON(type_radio[i].w)->active)
{
type = type_radio[i].type;
break;
}
format_text = util_concat(dname, ",", id, NULL);
if (vdrive_internal_create_format_disk_image(name, format_text, type)
< 0) {
ui_error(_("Can't create image `%s'."));
ret = -1;
}
lib_free(format_text);
return ret;
}
static UI_CALLBACK(save_callback)
{
int dtypes[] = {
DISK_IMAGE_TYPE_D64,
DISK_IMAGE_TYPE_D67,
DISK_IMAGE_TYPE_D71,
DISK_IMAGE_TYPE_D81,
DISK_IMAGE_TYPE_D80,
DISK_IMAGE_TYPE_D82,
DISK_IMAGE_TYPE_G64,
DISK_IMAGE_TYPE_X64,
};
char *filename;
String name;
String iname;
int type_cnt;
Boolean disk_type_flag;
ui_popdown(emptydisk_dialog);
type_cnt = 0;
XtVaGetValues(disk_type_d64_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_d67_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_d71_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_d81_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_d80_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_d82_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_g64_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
XtVaGetValues(disk_type_x64_button, XtNstate, &disk_type_flag, NULL);
if (disk_type_flag == False) {
type_cnt ++;
}
}
}
}
}
}
}
}
if (type_cnt < 0 || type_cnt >= NR_FORMATS) {
return;
}
XtVaGetValues(file_name_field, XtNstring, &name, NULL);
XtVaGetValues(image_name_field, XtNstring, &iname, NULL);
filename = lib_stralloc(name);
util_add_extension(&filename, extensions[type_cnt]);
if (vdrive_internal_create_format_disk_image(filename, iname, dtypes[type_cnt]) < 0) {
ui_error(_("Couldn't create disk image"));
} else {
strcpy(edisk_file_name, filename);
}
lib_free(filename);
}
