mirror of
https://github.com/cc65/cc65.git
synced 2024-12-28 22:30:12 +00:00
Added inital version of a CONVERT tool for Apple GEOS. It converts the output of 'ld65 -t geos-apple ...' to an Apple GEOS SEQ program file. The CONVERT tool itself runs under ProDOS. This is an inital rather rough version that is nevertheless supposed to generally work. TODOs are:
- VLIR support - support to "unCONVERT" - nicer UI git-svn-id: svn://svn.cc65.org/cc65/trunk@5418 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
parent
3854283cfb
commit
90f346ab47
220
targetutil/geos-apple/convert.c
Normal file
220
targetutil/geos-apple/convert.c
Normal file
@ -0,0 +1,220 @@
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include <errno.h>
|
||||
#include <dirent.h>
|
||||
#include <dio.h>
|
||||
|
||||
dhandle_t dhandle;
|
||||
|
||||
struct dir_entry_t {
|
||||
struct {
|
||||
unsigned name_length :4;
|
||||
unsigned storage_type :4;
|
||||
} storage_length;
|
||||
char file_name[15];
|
||||
unsigned char file_type;
|
||||
unsigned key_pointer;
|
||||
unsigned blocks_used;
|
||||
unsigned char size[3];
|
||||
unsigned long creation;
|
||||
unsigned char version;
|
||||
unsigned char min_version;
|
||||
unsigned char access;
|
||||
unsigned aux_type;
|
||||
unsigned long last_mod;
|
||||
unsigned header_pointer;
|
||||
}* dir_entry;
|
||||
|
||||
union {
|
||||
unsigned char bytes[512];
|
||||
struct {
|
||||
unsigned prev_block;
|
||||
unsigned next_block;
|
||||
unsigned char entries[1];
|
||||
} content;
|
||||
} dir_block;
|
||||
|
||||
union {
|
||||
unsigned char bytes[512];
|
||||
struct {
|
||||
unsigned char addr_lo[254];
|
||||
unsigned char size_lo[2];
|
||||
unsigned char addr_hi[254];
|
||||
unsigned char size_hi[2];
|
||||
} content;
|
||||
} index_block;
|
||||
|
||||
union {
|
||||
unsigned char bytes[512];
|
||||
struct {
|
||||
unsigned char info_block[256];
|
||||
unsigned char vlir_records[128];
|
||||
struct dir_entry_t dir_entry;
|
||||
} content;
|
||||
} header_block;
|
||||
|
||||
|
||||
static void err_exit(char *operation)
|
||||
{
|
||||
fprintf(stderr, "%s - err:%02x - %s",
|
||||
operation, (int)_oserror, _stroserror(_oserror));
|
||||
getchar();
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
|
||||
static unsigned get_dir_entry(char* p_name)
|
||||
{
|
||||
char* d_name;
|
||||
char* f_name;
|
||||
size_t f_namelen;
|
||||
DIR* dir;
|
||||
struct dirent* dirent;
|
||||
unsigned cur_addr;
|
||||
unsigned char entry_length;
|
||||
unsigned char entries_per_block;
|
||||
unsigned char cur_entry;
|
||||
|
||||
/* Split path name into directory name and file name */
|
||||
f_name = strrchr(p_name, '/');
|
||||
if (f_name) {
|
||||
d_name = p_name;
|
||||
*f_name++ = '\0';
|
||||
} else {
|
||||
d_name = ".";
|
||||
f_name = p_name;
|
||||
}
|
||||
f_namelen = strlen(f_name);
|
||||
|
||||
/* Start with high level functions to get handling
|
||||
of relative path and current drive for free */
|
||||
dir = opendir(d_name);
|
||||
if (!dir) {
|
||||
err_exit("opendir");
|
||||
}
|
||||
dirent = readdir(dir);
|
||||
if (!dirent) {
|
||||
err_exit("readdir");
|
||||
}
|
||||
|
||||
/* Field header_pointer directly follows field last_mod */
|
||||
cur_addr = *(unsigned*)(&dirent->d_mtime.hour + 1);
|
||||
|
||||
/* DEV_NUM is set to the drive accessed above */
|
||||
dhandle = dio_open(*(driveid_t*)0xBF30);
|
||||
if (!dhandle) {
|
||||
err_exit("dio_open");
|
||||
}
|
||||
|
||||
if (dio_read(dhandle, cur_addr, &dir_block)) {
|
||||
err_exit("dio_read.1");
|
||||
}
|
||||
|
||||
/* Get directory entry infos from directory header */
|
||||
entry_length = dir_block.bytes[0x23];
|
||||
entries_per_block = dir_block.bytes[0x24];
|
||||
|
||||
/* Skip directory header entry */
|
||||
cur_entry = 1;
|
||||
|
||||
do {
|
||||
|
||||
/* Search for next active directory entry */
|
||||
do {
|
||||
|
||||
/* Check if next directory block is necessary */
|
||||
if (cur_entry == entries_per_block) {
|
||||
|
||||
/* Check if another directory block is present */
|
||||
cur_addr = dir_block.content.next_block;
|
||||
if (!cur_addr) {
|
||||
_mappederrno(0x46);
|
||||
err_exit("dio_read.2");
|
||||
}
|
||||
|
||||
/* Read next directory block */
|
||||
if (dio_read(dhandle, cur_addr, &dir_block)) {
|
||||
err_exit("dio_read.3");
|
||||
}
|
||||
|
||||
/* Start with first entry in next block */
|
||||
cur_entry = 0;
|
||||
}
|
||||
|
||||
/* Compute pointer to current entry */
|
||||
dir_entry = (struct dir_entry_t*)(dir_block.content.entries +
|
||||
cur_entry * entry_length);
|
||||
|
||||
/* Switch to next entry */
|
||||
++cur_entry;
|
||||
} while (!dir_entry->storage_length.storage_type);
|
||||
|
||||
} while (dir_entry->storage_length.name_length != f_namelen ||
|
||||
strncasecmp(dir_entry->file_name, f_name, f_namelen));
|
||||
|
||||
return cur_addr;
|
||||
}
|
||||
|
||||
|
||||
int main(int argc, char* argv[])
|
||||
{
|
||||
char input[80];
|
||||
char* p_name;
|
||||
unsigned dir_addr;
|
||||
unsigned header_addr;
|
||||
|
||||
if (argc > 1) {
|
||||
p_name = argv[1];
|
||||
} else {
|
||||
printf("Apple GEOS Convert\nPathname:");
|
||||
p_name = gets(input);
|
||||
}
|
||||
|
||||
dir_addr = get_dir_entry(p_name);
|
||||
|
||||
if (dio_read(dhandle, dir_entry->key_pointer, &index_block)) {
|
||||
err_exit("dio_read.4");
|
||||
}
|
||||
|
||||
header_addr = index_block.content.addr_lo[0] |
|
||||
index_block.content.addr_hi[0] << 8;
|
||||
|
||||
if (dio_read(dhandle, header_addr, &header_block)) {
|
||||
err_exit("dio_read.5");
|
||||
}
|
||||
|
||||
dir_entry->storage_length = header_block.content.dir_entry.storage_length;
|
||||
memcpy(dir_entry->file_name, header_block.content.dir_entry.file_name, 15);
|
||||
dir_entry->file_type = header_block.content.dir_entry.file_type;
|
||||
memcpy(dir_entry->size, header_block.content.dir_entry.size, 3);
|
||||
dir_entry->creation = header_block.content.dir_entry.creation;
|
||||
dir_entry->version = header_block.content.dir_entry.version;
|
||||
dir_entry->min_version = header_block.content.dir_entry.min_version;
|
||||
dir_entry->aux_type = header_addr;
|
||||
dir_entry->last_mod = header_block.content.dir_entry.last_mod;
|
||||
|
||||
memmove(&index_block.content.addr_lo[0],
|
||||
&index_block.content.addr_lo[1], sizeof(index_block.content.addr_lo) - 1);
|
||||
memmove(&index_block.content.addr_hi[0],
|
||||
&index_block.content.addr_hi[1], sizeof(index_block.content.addr_hi) - 1);
|
||||
|
||||
index_block.content.size_lo[1] = dir_entry->size[0];
|
||||
index_block.content.size_hi[1] = dir_entry->size[1];
|
||||
index_block.content.size_lo[0] = dir_entry->size[2];
|
||||
index_block.content.size_hi[0] = 0;
|
||||
|
||||
if (dio_write(dhandle, dir_addr, &dir_block)) {
|
||||
err_exit("dio_write.1");
|
||||
}
|
||||
|
||||
if (dio_write(dhandle, dir_entry->key_pointer, &index_block)) {
|
||||
err_exit("dio_write.2");
|
||||
}
|
||||
|
||||
if (dio_close(dhandle)) {
|
||||
err_exit("dio_close");
|
||||
}
|
||||
|
||||
return EXIT_SUCCESS;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user