Contents

//-------------------
// MV
// version WIN32 et POCKETPC
// Sylvain Huet
// Derniere mise a jour : 07/01/2003
//


//#include <windows.h>
//#include <windowsx.h>
//#include <wingdi.h>
//#include <commctrl.h>
//#include <commdlg.h>
//#include <string.h>
#include "param.h"

#include <stdio.h>

#include "param.h"
#include "prodbuffer.h"
#include "filesystem.h"
#include "file.h"
#include "terminal.h"

#include "memory.h"
#include "util.h"
#include "parser.h"
#include "compiler.h"
#include "interpreter.h"



void AbortMetal(Memory* m,int donotstop)
{
	if (m->abort) return;
	PRINTF(m)(LOG_RUNTIME,"\n---------- end of execution\n");
	m->stop();
}



int StartMetal(const char *starter, const char* output, bool inSign)
{
	int k;

//  passe dans le répertoire de l'executable, en retenant le répertoire courant

	Terminal* t=new Terminal();
	Memory* m=new Memory(32*1024,t,NULL);
	t->m=m;

	if (k=m->start())
	{
		t->printf(LOG_RUNTIME,"Launcher : erreur d'initialisation Memory\n");
		return -1;
	}
	STRPUSH(m, (char*) starter);
	if (!(k=m->util->compiler->gocompile(COMPILE_FROMFILE)))
	{
		t->printf(LOG_RUNTIME,"\nCompiler : done !\n");
		File* f=new File(NULL);
		f->openwrite(output);
		if (inSign) {
			f->write("amber", 5);
			char sizeStr[9];
			sprintf(sizeStr, "%.8x", m->util->compiler->brelease->getsize());
			f->write(sizeStr, 8);
		}
		f->write(m->util->compiler->brelease->getstart(),m->util->compiler->brelease->getsize());
		if (inSign) {
			f->write("Mind", 4);
		}
		f->close();
		return 0;
	}
	else
	{
		t->printf(LOG_RUNTIME,"Launcher : %s\n\n",m->errorname(k));
		return -1;
	}
}


int vcompDoit(char *starter)
{
	int k=StartMetal(starter, "foo.bin", false);
	getchar();
	return k;
}

Version data entries

12 entries across 12 versions & 1 rubygems

Version	Path
nabaztag_hack_kit-0.1.0.beta3	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.beta2	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.beta1	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha7	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha6	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha5	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha4	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha3	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha2	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.1.0.alpha1	bytecode/src/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.0.3	ext/mtl/vcomp/bootstrap.cpp
nabaztag_hack_kit-0.0.2	ext/mtl/vcomp/bootstrap.cpp