Sorry your browser is not supported!

void DoSomething(DWORD Ptr)
{
    MyObject* ObjPtr = (MyObject*)Ptr;
    Ptr->DoSomething();
}

/* Replace "dll.h" with the name of your header */
#include "aggregatedArrays.h"
#include <windows.h>
#include <iostream>
#include <vector>
#include <cassert>

#define DBPCMD extern "C" __declspec(dllexport)

DBPCMD DWORD imprimirCosas()
{
       
    Stash intStash;
    intStash.setDataSize(sizeof(int)); 
    intStash.inflate();
    intStash.inflate();
    intStash.inflate();
    intStash.inflate();
    DWORD stashAdress = DWORD(&intStash);
	return stashAdress;
	
}

DBPCMD int getAgregatedArraySize(DWORD Ptr)
{      
       Stash* ObjPtr = (Stash*)Ptr;
       return ObjPtr -> getSize();
       // return 1;
}

// Constructor
Stash::Stash() {
  size = 0;
  quantity = 0;
  dataSize = 0;
}

void Stash::setDataSize(int sz) {
  dataSize = sz;
}

void Stash::cleanup() {
  if(storage != 0) {
    delete []storage;
  } 
}

void* Stash::fetch(int index) {
  // Check index boundaries:
  assert(0 <= index);
  if(index >= size)
    return 0; // To indicate the end
  // Produce pointer to desired element:
  return &(storage[index * dataSize]);
}

int Stash::getSize(){
  return size; // Number of elements in CStash
}

void Stash::inflate() {
  int newQuantity = size + 1;
  int newBytes = newQuantity * dataSize;
  int oldBytes = size * dataSize;
  unsigned char* b = new unsigned char[newBytes];
  for(int i = 0; i < oldBytes; i++)
    b[i] = storage[i]; // Copy old to new
  delete []storage; // Old storage
  storage = b; // Point to new memory
  size = newQuantity;
}

// C-like library converted to C++

class Stash {
  int size;      // Size of the array
  int quantity;  // Number of storage spaces
  int dataSize;      // Size of each space in memory
   // Dynamically allocated array of bytes:
  unsigned char* storage;
  // Functions!
  public:
  Stash();       // Constructor
  
  void setSize(int size);
  void cleanup();
  int add(const void* element);
  void* fetch(int index);
  int getSize();
  void inflate();
  void setDataSize(int size);
  
}; ///:~

STRINGTABLE

BEGIN
     1 "AA_Return[%D%imprimirCosas" //Retorno de un valor simple
     2 "AA_GetSize[%LD%getAgregatedArraySize"
   //1 "IMPRIMIR[%L%imprimirCosas"
END

value as dword 
value = AA_Return()
print value
valor as integer
valor = AA_GetSize(value)
print valor
wait key

    Stash intStash;
...
    DWORD stashAdress = DWORD(&intStash);
	return stashAdress;

#include <wtypes.h>
#include <set>


#define EXPORT __declspec(dllexport)


// Define the class
class Object
{
public:
    Object() : value(0) { }

    void Set(int x)  { value = x; }
    int  Get() const { return value; }
private:
    int value;
};


// Set up a 'set' to hold valid object addresses
std::set<Object*> AllObjects;


EXPORT DWORD MakeNewObject()
{
    Object* Obj = new Object();

    AllObjects.insert(Obj);

    return (DWORD)Obj;
}

EXPORT int GetValue(DWORD Handle)
{
    Object* Obj = (Object*)Handle;

    // Search for the handle
    // - If it was located then the handle is a valid object pointer
    if (AllObjects.find(Obj) != AllObjects.end())
    {
        return Obj->Get();
    }
    else
    {
        // You could raise some sort of error here if you wanted
        return 0;
    }
}


EXPORT void SetValue(DWORD Handle, int Value)
{
    Object* Obj = (Object*)Handle;

    if (AllObjects.find(Obj) != AllObjects.end())
    {
        Obj->Set( Value );
    }
    else
    {
        // Nothing to do, unless you want to raise some sort of error here
    }
}


EXPORT void DeleteObject(DWORD Handle)
{
    Object* Obj = (Object*)Handle;

    // Attempt to remove the handle
    // - if it succeeds, then the object can be deleted because it did exist
    if (AllObjects.erase( Obj ) > 0)
    {
        delete Obj;
    }
    else
    {
        // Nothing to do, unless you want to raise some sort of error here
    }
}

std::set<Object*> AllObjects;
AllObjects.insert(Obj);
AllObjects.find(Obj) != AllObjects.end()
AllObjects.erase( Obj ) > 0

parentArray1 as dword 
parentArray1 = AA_Add()
parentArray2 = AA_Add()

print ""
print "First parent array adress"
print ""

Rem Adress of the first parent Array
print parentArray1

Rem Inflating the Sub array for the first parent array
xx = AA_InflateSubArray(parentArray1)
xx = AA_InflateSubArray(parentArray1)
xx = AA_InflateSubArray(parentArray1)
xx = AA_InflateSubArray(parentArray1)

Rem Printing the size
print ""
print "First parent size after inflating"
print ""
parent1Size = AA_GetSubArraySize(parentArray1)
print parent1Size


Rem Data for the example
dim temp(4) AS INTEGER
temp(1) = 4
temp(2) = 2
temp(3) = 5
temp(4) = 8

print ""
print "First Parent Array"
print ""

Rem Filling the first Parent Array
for elem = 1 to AA_GetSubArraySize(parentArray1)
    xx = AA_SetSubArrayValue (parentArray1,elem,temp(elem))
next elem

Rem Printing the first Parent Array
for elem = 1 to AA_GetSubArraySize(parentArray1)
    valor = AA_GetSubArrayValue (parentArray1,elem)
    print valor
next elem

Rem Inflating the Sub array for the second parent array
xx = AA_InflateSubArray(parentArray2)
xx = AA_InflateSubArray(parentArray2)

print ""
print "Second Parent Array"
print ""

Rem Filling the second Parent Array
for elem = 1 to AA_GetSubArraySize(parentArray2)
    xx = AA_SetSubArrayValue (parentArray2,elem,temp(elem))
next elem

Rem Printing the second Parent Array
for elem = 1 to AA_GetSubArraySize(parentArray2)
    valor = AA_GetSubArrayValue (parentArray2,elem)
    print valor
next elem


Rem Patrolling Soldier
Type soldier
    
    Rem points in X to patrol a map
    patrolX AS DWORD
    
    Rem points in Y to patrol a map
    patrolY AS DWORD

    Rem Speed of the soldier
    speed AS INTEGER
    
endtype 

dim parentsTypeArrays(2) AS soldier 

Rem Type Aggregated arrays
for elem = 1 to 2 
    parentsTypeArrays(elem).patrolX = AA_Add()
    parentsTypeArrays(elem).patrolY = AA_Add()
    parentsTypeArrays(elem).speed = 10
    
    Rem Patrol Points for array 1
    print ""
    print "Patrol Points for soldier " + str$(elem)
    print ""
        
    for patrolPoint = 1 to 2

        xx = AA_InflateSubArray(parentsTypeArrays(elem).patrolX)
        xx = AA_SetSubArrayValue (parentsTypeArrays(elem).patrolX,patrolPoint,temp(patrolPoint + elem))
        xx = AA_InflateSubArray(parentsTypeArrays(elem).patrolY)
        xx = AA_SetSubArrayValue (parentsTypeArrays(elem).patrolY,patrolPoint,temp(patrolPoint + elem - 1))
        
        print "x" + str$(patrolPoint) +  " = " ; AA_GetSubArrayValue (parentsTypeArrays(elem).patrolX, patrolPoint); " - ";
        print "y" + str$(patrolPoint) +  " = " ; AA_GetSubArrayValue (parentsTypeArrays(elem).patrolY, patrolPoint)
        
    next patrolPoint
    
    
    
next elem 


wait key

MY COMMAND%0%MyCommandFunctionName%Parameter list

AA_Return%0D%imprimirCosas 

AA_Return(setAdress)

AA_SetValue%DL%SetAAValue

AA_SetValue parentArray1,10

parentArray1 as dword 
parentArray1 = AA_Add(1)
parentArray2 as dword 
parentArray2 = AA_Add(2)
AA_SetValue parentArray2,10.5
print AA_GetValue(parentArray2)

DBPCMD void SetAAValue(DWORD Handle, DWORD Value)
{
    Object* Obj = (Object*)Handle;

    if (AllObjects.find(Obj) != AllObjects.end())
    {
        float valor = Value;
        // STRING --------------
        stringstream sstr;
        sstr << valor;
        string str1 = sstr.str();
        // CString Resultat;
        //Resultat = "HOLA";
        // STRING --------------
       
        MessageBox(NULL, str1.c_str(), str1.c_str(), MB_OK);
        Obj->Set( valor );
    }
    else
    {
        // Nothing to do, unless you want to raise some sort of error here
    }
    // return 0;
}

        DBPro::CloseDisplay();
        DBPro::Quit();
        MessageBox( NULL, "messagebox error", "messagebox title", MB_OK );
        ExitProcess(0);

1 "AA_Add[%DL%MakeNewObject" 
     2 "AA_GetValue[%DD%GetAAValue"
     3 "AA_SetValue%DD%SetAAValue"
     4 "AA_InflateSubArray%DL%inflateSubVector"
     5 "AA_GetSubArraySize[%DD%getSubVectorSize"
     6 "AA_SetSubArrayValueI%DLL%setSubVectorValueI"
     7 "AA_GetSubArrayValueI[%LDL%getSubVectorValueI"
     8 "AA_setSubArrayType%DL%setSubVectorType"
     9 "AA_getSubArrayType[%LD%getSubVectorType"
     10 "AA_SetSubArrayValueF%DLF%setSubVectorValueF"
     11 "AA_GetSubArrayValueF[%FDL%getSubVectorValueF"
     12 "AA_DeleteSubArrayElement%DL%deleteSubVectorElement"
     13 "AA_DeleteSubArrayGroup%DLL%deleteSubVectorGroup"
     14 "AA_InsertSubArrayElements%DLL%insertSubVectorElements"
     15 "AA_InsertSubArrayElement%DL%insertSubVectorElement"
     16 "AA_ClearSubArray%D%clearSubVector"
     17 "AA_DeleteParentArray%D%deleteParentVector"