114 lines
1.2 KiB
C++
114 lines
1.2 KiB
C++
|
//
|
||
|
|
// The entrypoint for muckyBASIC
|
||
|
|
//
|
||
|
|
|
||
|
|
#include "always.h"
|
||
|
|
#include "cg.h"
|
||
|
|
#include "console.h"
|
||
|
|
#include "font.h"
|
||
|
|
#include "key.h"
|
||
|
|
#include "link.h"
|
||
|
|
#include "mem.h"
|
||
|
|
#include "parse.h"
|
||
|
|
#include "os.h"
|
||
|
|
#include "st.h"
|
||
|
|
#include "sysvar.h"
|
||
|
|
#include "vm.h"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// Compiles the given file. Returns TRUE on success.
|
||
|
|
//
|
||
|
|
|
||
|
|
SLONG MAIN_compile(CBYTE *input, CBYTE *output)
|
||
|
|
{
|
||
|
|
FILE *handle;
|
||
|
|
|
||
|
|
PARSE_do(input);
|
||
|
|
|
||
|
|
if (PARSE_error_upto)
|
||
|
|
{
|
||
|
|
//
|
||
|
|
// There are errors!
|
||
|
|
//
|
||
|
|
|
||
|
|
SLONG i;
|
||
|
|
|
||
|
|
for (i = 0; i < PARSE_error_upto; i++)
|
||
|
|
{
|
||
|
|
OS_string("%s\n", PARSE_error[i]);
|
||
|
|
}
|
||
|
|
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
CG_do(output, CG_OUTPUT_OBJECT_FILE);
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
void MAIN_main()
|
||
|
|
{
|
||
|
|
FONT_init();
|
||
|
|
ST_init();
|
||
|
|
|
||
|
|
//
|
||
|
|
// Compile.
|
||
|
|
//
|
||
|
|
|
||
|
|
if (!MAIN_compile("test.mbs", "MuckyBASIC objects\\test.mbo" )) return;
|
||
|
|
if (!MAIN_compile("test2.mbs", "MuckyBASIC objects\\test2.mbo")) return;
|
||
|
|
|
||
|
|
//
|
||
|
|
// Link.
|
||
|
|
//
|
||
|
|
|
||
|
|
CBYTE *link[] =
|
||
|
|
{
|
||
|
|
"MuckyBASIC objects\\test.mbo",
|
||
|
|
"MuckyBASIC objects\\test2.mbo",
|
||
|
|
};
|
||
|
|
|
||
|
|
LINK_do(link, 2, "MuckyBASIC executables\\test.mbe");
|
||
|
|
|
||
|
|
//
|
||
|
|
// Run.
|
||
|
|
//
|
||
|
|
|
||
|
|
VM_run("MuckyBASIC executables\\test.mbe");
|
||
|
|
|
||
|
|
//
|
||
|
|
// Wait for a key...
|
||
|
|
//
|
||
|
|
|
||
|
|
while(1)
|
||
|
|
{
|
||
|
|
if (KEY_on[KEY_ESCAPE])
|
||
|
|
{
|
||
|
|
KEY_on[KEY_ESCAPE] = 0;
|
||
|
|
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|