Retro68/Samples/MPWTool/main.c

195 lines
3.8 KiB
C

/*
Copyright 2018 Wolfgang Thaller.
This file is part of Retro68.
Retro68 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Retro68 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with Retro68. If not, see <http://www.gnu.org/licenses/>.
*/
/*
* The following is a simple "Hello, world." MPW tool.
*
* Everything here should move to a library,
* so this can be written using a standard printf.
*
* The basic idea is that MPW makes the low-memory
* global at 0x316 point to a special struct that
* contains pointers to callbacks for doing standard
* input and output (and a few other things).
* The struct also contains argc and argv,
* as well as a place to store the tool's exit code.
* The tool must exit by returning from main() rather
* than by calling ExitToShell.
*/
#include <MacTypes.h>
#include <Retro68Runtime.h>
#include <setjmp.h>
#include <stdlib.h>
#include <MixedMode.h>
#pragma pack (push, 2)
struct MPWFile;
struct fsysTable
{
void (*quit)();
void (*access)();
void (*close)(struct MPWFile *);
void (*read)(struct MPWFile *);
void (*write)(struct MPWFile *);
void (*ioctl)();
};
struct devtable
{
OSType fsysSig;
struct fsysTable fsys;
};
struct MPWFile
{
short flags;
short err;
struct fsysTable *functions;
long cookie;
long count;
void *buffer;
};
struct pgminfo2
{
short magic2;
int argc;
char **argv;
char **envp;
// 0x0e
int exitCode;
// 0x12
int x;
// 0x16
int y;
// 0x1a
short tableSize;
struct MPWFile *ioptr;
struct devtable *devptr;
};
struct pgminfo
{
OSType magic;
struct pgminfo2 *rest;
};
#pragma pack (pop)
// Get MPW's magic struct
struct pgminfo2 * getPgmInfo()
{
struct pgminfo *pgm0 = *(struct pgminfo**) 0x316;
if(!pgm0)
return NULL;
if(pgm0 == (struct pgminfo*)-1)
return NULL;
if(pgm0->magic != 'MPGM')
return NULL;
if(!pgm0->rest)
return NULL;
if(pgm0->rest->magic2 != 0x5348)
return NULL;
return pgm0->rest;
}
jmp_buf exit_buf;
// called by standard library's exit()
// Store
void _exit(int status)
{
struct pgminfo2 *pgm = getPgmInfo();
if(pgm)
pgm->exitCode = status;
longjmp(exit_buf, 1);
}
const int procInfo = kCStackBased
| STACK_ROUTINE_PARAMETER(1, kFourByteCode);
int main()
{
struct pgminfo2 *pgm = getPgmInfo();
if(pgm)
{
struct MPWFile *f = &pgm->ioptr[1];
f->count = 14;
f->buffer = "Hello, world.\r";
#if TARGET_CPU_PPC
CallUniversalProc((UniversalProcPtr) f->functions->write, procInfo, f);
#else
f->functions->write(f);
#endif
}
return 0;
}
#if TARGET_CPU_PPC
void __do_global_dtors();
void __start()
{
if(setjmp(exit_buf))
;
else
{
atexit(&__do_global_dtors);
int result;
{
char *argv[2] = { "./a.out", NULL };
result = main(1, argv);
}
exit(result);
}
}
void *__dso_handle = &__dso_handle;
#else
void _start()
{
RETRO68_RELOCATE();
if(setjmp(exit_buf))
;
else
{
atexit(&Retro68CallDestructors);
Retro68CallConstructors();
int result;
{
char *argv[2] = { "./a.out", NULL };
result = main(1, argv);
}
exit(result);
}
}
#endif