blitz types to c++?

class test
{
public:
	int x,y,z;
	float a,b;
};

#include <stdlib.h>
#include <math.h>
//the header file
#include "testing.h"

#define BBDECL extern "C" _declspec(dllexport)

#define BBCALL _stdcall

BBDECL void BBCALL boo(test* obj)
{
	obj->a = 5.6f;
	obj->x = 4;
	obj->y = 5;
	obj->z = 6;
	obj->b = 10.9f;
}

.lib "testing.dll"

boo(obj*):"_boo@4"

Type test
	Field x,y,z
	Field a#,b#
End Type

t.test = New test
boo(t)

Print(t\a)
Print(t\b)
Print(t\x)
Print(t\y)
Print(t\z)
waitkey()
end

#include <stdlib.h>
#include <math.h>
//the header file
#include "testing.h"
#define BBDECL extern "C" _declspec(dllexport)
#define BBCALL _stdcall

class test
{
public:
	int* temp;
};

BBDECL void BBCALL boo(test* obj)
{
	obj->temp = (int*) malloc(sizeof(int) * 500);
	for(int i=0;i<500;i++)
	{
		obj->temp[i] = 4;
	}
}

Graphics 800,600,0,2
Type test
	Field temp[100]
End Type
t.test = New test
boo(t)

For i = 0 To 499
	Print(t\temp[i])
Next
WaitKey()
End

Type packet
	Field foo#, bar%
End Type

Type result
	Field p.packet[1000000000] ; just to fool Blitz's bounds checker (C++, not Blitz, will instantiate result objects)
	Field max_packets%
End Type

Local r.result = get_data() ; call c++
For i% = 0 To r\max_packets - 1
	Local p.packet = r\p[i]
	Print "got a packet: foo=" + p\foo + " bar=" + p\bar
Next
free_data(r) ; call c++ to clean up

struct packet {
	float foo;
	int bar;
};

struct result {
	packet * packet_ptr;
	int max_packets;
};

BBDECL result * BBCALL get_data() {
	result * r = new result;
	// create some arbitrary packets
	r->max_packets = 42;
	r->packet_ptr = (packet*) malloc(sizeof(packet) * 42);
	for(int i=0;i<42;i++) {
		r->packet_ptr[i].foo = 6.02f;
		r->packet_ptr[i].bar = i;
	}
	return(r);
}

BBDECL void BBCALL free_data(result * r) {
	free(r->packet_ptr);
	delete(r);
}

Type result_wrapper
	Field r.result
End Type

Local rw.result_wrapper = New result_wrapper
get_data(rw) ; call C++
Local r.result = rw\r
; then do the same as before

struct result_wrapper {
	result * r;
};
BBDECL void BBCALL get_data(result_wrapper * rw) {
	rw->r = new result;
	//etc

BBDECL void BBCALL advance_ptr(test* obj) {
	obj->temp = obj->temp + 100;
}

b = CreateBank()
PokeByte(b, -16, 255)
Print PeekByte(b, 254)

// a function pointer declaration for calling Blitz3D code
void (__stdcall *ABlitz3DFunction)(void);

class passer
{
public:
	int t,h;
	float b,s;
};

passer pass;

#define BBDECL extern "C" _declspec(dllexport)
#define BBCALL _stdcall

// standard DLL function declaration for Blitz3D userlibs
BBDECL void BBCALL SetBlitz3DFunction(void)
{
    unsigned int stackpos,adrs;
    unsigned int *func;
    __asm
    {
        mov stackpos,esp
        mov esp,ebp
        add esp,4
        pop adrs
        mov esp,stackpos
     }
     func=(unsigned int*)&ABlitz3DFunction;
    *func=adrs;
}

// extra DLL function for test purposes only - your DLL would call ABlitz3DFunction() directly!
BBDECL void BBCALL CallBlitz3DFunction(void)
{
	//"pass" arguments into the function
	pass.t = 6;
	pass.s = 7.8f;
	pass.b = 5.2f;
	pass.h = 8;
    ABlitz3DFunction();
}

BBDECL void BBCALL Get_Args(passer* p)
{
	p->t = pass.t;
	p->h = pass.h;
	p->s = pass.s;
	p->b = pass.b;
}

Global SETUP_FUNCS%=1
Gosub test_function
SETUP_FUNCS=0

CallBlitz3DFunction()     ;<-- testing DLL access only

WaitKey
End


.test_function
	SetBlitz3DFunction()
	If SETUP_FUNCS=0
		p.passer = New passer
		GET_Args(p)
		ABlitz3DFunction(p\t,p\h,p\s,p\b)
	EndIf
Return
	
Function ABlitz3DFunction(t,h,s#,b#)
	; *** function body goes here!!!
		Print "This works!!!!"+t+h+s+b
		Return
End Function
	
	Type passer
		Field t,h,b#,s#
	End Type