More preparations. Also add a README.md

2015-06-20 15:54:29 +02:00
parent 7a96afeda7
commit 7b3c7cc8f6
18 changed files with 2487 additions and 0 deletions
@@ -0,0 +1,273 @@
+//	BlitzUtility - Expanding the normal Blitz functionality.
+//	Copyright (C) 2015 Project Kube (Michael Fabian Dirks)
+//
+//	This program is free software: you can redistribute it and/or modify
+//	it under the terms of the GNU Lesser General Public License as
+//	published by the Free Software Foundation, either version 3 of the 
+//	License, or (at your option) any later version.
+//
+//	This program 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 Lesser General Public License
+//	along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#pragma once
+#include "List.h"
+
+
+DLL_METHOD List* DLL_CALL BU_List_Create(BBTypeElement* element) {
+	// Make sure the given element is valid.
+	if (element == NULL)
+		return NULL;
+	element = (BBTypeElement*)((uint32_t*)element - 5);
+
+	// Create our List.
+	List* myList = new List;
+	myList->originalType = element->type;
+
+	// Create a fake base Type by copying data.
+	myList->fakeType = new BBType;
+	myList->fakeType->fieldCount = myList->originalType->fieldCount;
+	myList->fakeType->free.type = myList->originalType->free.type;
+	myList->fakeType->free.refCount = myList->originalType->free.refCount;
+	myList->fakeType->free.fields = myList->originalType->free.fields;
+	myList->fakeType->free.next = (BBTypeElement*)&myList->fakeType->free;
+	myList->fakeType->free.prev = (BBTypeElement*)&myList->fakeType->free;
+	myList->fakeType->used.type = myList->originalType->used.type;
+	myList->fakeType->used.refCount = myList->originalType->used.refCount;
+	myList->fakeType->used.fields = myList->originalType->used.fields;
+	myList->fakeType->used.prev = (BBTypeElement*)&myList->fakeType->used;
+	myList->fakeType->used.next = (BBTypeElement*)&myList->fakeType->used;
+
+	// Remove element from original flow.
+	element->prev->next = element->next;
+	element->next->prev = element->prev;
+	element->prev = NULL;
+	element->next = NULL;
+	element->type = myList->fakeType;
+
+	// Store the element for later use;
+	myList->storageElement = element;
+	myList->storageElementFields = element->fields;
+
+	return myList;
+}
+
+DLL_METHOD void DLL_CALL BU_List_Destroy(List* list) {
+	if (list == NULL)
+		return;
+
+	// Append remaining elements to original type.
+	BBTypeElement *thisEl = NULL;
+	for (thisEl = list->fakeType->used.next; thisEl != (BBTypeElement*)&list->fakeType->used; thisEl = list->fakeType->used.next) {
+		// Remove from fakeType's flow.
+		thisEl->prev->next = thisEl->next;
+		thisEl->next->prev = thisEl->prev;
+
+		// Append to originalType's flow.
+		thisEl->prev = list->originalType->used.prev;
+		thisEl->prev->next = thisEl;
+		thisEl->next = (BBTypeElement*)&list->originalType->used;
+		thisEl->next->prev = thisEl;
+	}
+	for (thisEl = list->fakeType->free.next; thisEl != (BBTypeElement*)&list->fakeType->free; thisEl = list->fakeType->free.next) {
+		// Remove from fakeType's flow.
+		thisEl->prev->next = thisEl->next;
+		thisEl->next->prev = thisEl->prev;
+
+		// Append to originalType's flow.
+		thisEl->prev = list->originalType->free.prev;
+		thisEl->prev->next = thisEl;
+		thisEl->next = (BBTypeElement*)&list->originalType->free;
+		thisEl->next->prev = thisEl;
+	}
+	
+	// Append storageElement to original type.
+	thisEl = list->storageElement;
+	thisEl->prev = list->originalType->used.prev;
+	thisEl->prev->next = thisEl;
+	thisEl->next = (BBTypeElement*)&list->originalType->used;
+	thisEl->next->prev = thisEl;
+	thisEl->type = list->originalType;
+	thisEl->fields = list->storageElementFields;
+
+	// Delete custom objects.
+	delete list->fakeType;
+	delete list;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_First(List* list) {
+	if (list == NULL)
+		return FALSE;
+
+	BBTypeElement* element = list->fakeType->used.next;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_Last(List* list) {
+	if (list == NULL)
+		return FALSE;
+	
+	BBTypeElement* element = list->fakeType->used.prev;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_Previous(List* list) {
+	if (list == NULL)
+		return FALSE;
+
+	BBTypeElement* element = list->storageElement->prev->prev;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_Next(List* list) {
+	if (list == NULL)
+		return FALSE;
+
+	BBTypeElement* element = list->storageElement->next->next;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_Before(List* list, BBTypeElement* other) {
+	if (list == NULL)
+		return FALSE;
+	if (other == NULL)
+		return FALSE;
+
+	other = (BBTypeElement*)((uint32_t*)other - 5);
+	if (other->type != list->fakeType)
+		return FALSE;
+
+	BBTypeElement* element = other->prev;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD uint32_t DLL_CALL BU_List_After(List* list, BBTypeElement* other) {
+	if (list == NULL)
+		return FALSE;
+	if (other == NULL)
+		return FALSE;
+
+	other = (BBTypeElement*)((uint32_t*)other - 5);
+	if (other->type != list->fakeType)
+		return FALSE;
+
+	BBTypeElement* element = other->next;
+	if (element == (BBTypeElement*)&list->fakeType->used)
+		return FALSE; // End of List.
+
+	// Copy data from selected element.
+	list->storageElement->fields = element->fields;
+
+	// Make deletion easier
+	list->storageElement->next = element;
+	list->storageElement->prev = element;
+
+	return TRUE;
+}
+
+DLL_METHOD void DLL_CALL BU_List_Insert(List* list, BBTypeElement* element) {
+	BU_List_InsertEx(list, element, NULL);
+}
+
+DLL_METHOD void DLL_CALL BU_List_InsertEx(List* list, BBTypeElement* element, BBTypeElement* other) {
+	if (list == NULL)
+		return;
+
+	// Make sure element is a valid pointer.
+	if (element == NULL)
+		return;
+	element = (BBTypeElement*)((uint32_t*)element - 5);
+	if (element->type != list->originalType)
+		return; // Can't add elements from other types, could cause serious issues.
+
+	// Make sure other is a valid pointer.
+	if (other == NULL) {
+		other = (BBTypeElement*)&list->fakeType->used;
+	} else {
+		other = (BBTypeElement*)((uint32_t*)other - 5);
+
+		// Other element must be of the same fakeType.
+		if (other->type != list->fakeType)
+			return;
+	}
+
+	// Insert the element after(!) the other element.
+	element->prev = other->prev;
+	element->next = other;
+	element->prev->next = element;
+	element->next->prev = element;
+	element->type = list->fakeType;
+}
+
+DLL_METHOD void DLL_CALL BU_List_Remove(List* list, BBTypeElement* element) {
+	if (list == NULL)
+		return;
+	if (element == NULL)
+		return;
+	
+	element = (BBTypeElement*)((uint32_t*)element - 5);
+	if (element->type != list->fakeType)
+		return; // Can't remove elements from another type.
+
+	element->type = list->originalType;
+	element->prev = list->originalType->used.prev;
+	element->next = (BBTypeElement*)&list->originalType->used;
+	list->originalType->used.prev->next = element;
+	list->originalType->used.prev = element;
+}
+
+
@@ -0,0 +1,85 @@
+//	BlitzUtility - Expanding the normal Blitz functionality.
+//	Copyright (C) 2015 Project Kube (Michael Fabian Dirks)
+//
+//	This program is free software: you can redistribute it and/or modify
+//	it under the terms of the GNU Lesser General Public License as
+//	published by the Free Software Foundation, either version 3 of the 
+//	License, or (at your option) any later version.
+//
+//	This program 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 Lesser General Public License
+//	along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#pragma once
+#include "dllmain.h"
+
+// Reverse engineered from https://github.com/blitz-research/blitz3d/blob/master/compiler/declnode.cpp
+enum BBVarType {
+	Global = 0,
+	Int = 1,
+	Float = 2,
+	String = 4,
+	Type = 5,
+	Array = 6
+};
+
+// Basic Blitz Variable
+struct BBVar {
+	uint32_t type;
+	uint32_t value;
+};
+
+// Basic Type predefinition.
+struct BBType;
+
+// Basic Type Element
+struct BBTypeElement {
+	uint32_t* fields;
+	BBTypeElement* next;
+	BBTypeElement* prev;
+	BBType* type;
+	unsigned int refCount;
+};
+
+// Basic Type
+struct BBType {
+	uint32_t type;
+	BBTypeElement used, free;
+	uint32_t fieldCount;
+};
+
+// List struct.
+struct List {
+	BBType* originalType;
+	BBType* fakeType;
+
+	BBTypeElement* storageElement;
+	uint32_t* storageElementFields;
+};
+
+DLL_METHOD List* DLL_CALL BU_List_Create(BBTypeElement* element);
+#pragma comment(linker, "/EXPORT:BU_List_Create=_BU_List_Create@4")
+DLL_METHOD void DLL_CALL BU_List_Destroy(List* list);
+#pragma comment(linker, "/EXPORT:BU_List_Destroy=_BU_List_Destroy@4")
+DLL_METHOD uint32_t DLL_CALL BU_List_First(List* list);
+#pragma comment(linker, "/EXPORT:BU_List_First=_BU_List_First@4")
+DLL_METHOD uint32_t DLL_CALL BU_List_Last(List* list);
+#pragma comment(linker, "/EXPORT:BU_List_Last=_BU_List_Last@4")
+DLL_METHOD uint32_t DLL_CALL BU_List_Previous(List* list);
+#pragma comment(linker, "/EXPORT:BU_List_Previous=_BU_List_Previous@4")
+DLL_METHOD uint32_t DLL_CALL BU_List_Next(List* list);
+#pragma comment(linker, "/EXPORT:BU_List_Next=_BU_List_Next@4")
+DLL_METHOD uint32_t DLL_CALL BU_List_Before(List* list, BBTypeElement* other);
+#pragma comment(linker, "/EXPORT:BU_List_Before=_BU_List_Before@8")
+DLL_METHOD uint32_t DLL_CALL BU_List_After(List* list, BBTypeElement* other);
+#pragma comment(linker, "/EXPORT:BU_List_After=_BU_List_After@8")
+DLL_METHOD void DLL_CALL BU_List_Insert(List* list, BBTypeElement* element);
+#pragma comment(linker, "/EXPORT:BU_List_Insert=_BU_List_Insert@8")
+DLL_METHOD void DLL_CALL BU_List_InsertEx(List* list, BBTypeElement* element, BBTypeElement* other);
+#pragma comment(linker, "/EXPORT:BU_List_InsertEx=_BU_List_InsertEx@12")
+DLL_METHOD void DLL_CALL BU_List_Remove(List* list, BBTypeElement* element);
+#pragma comment(linker, "/EXPORT:BU_List_Remove=_BU_List_Remove@8")
@@ -0,0 +1,76 @@
+//	BlitzUtility - Expanding the normal Blitz functionality.
+//	Copyright (C) 2015 Project Kube (Michael Fabian Dirks)
+//
+//	This program is free software: you can redistribute it and/or modify
+//	it under the terms of the GNU Lesser General Public License as
+//	published by the Free Software Foundation, either version 3 of the 
+//	License, or (at your option) any later version.
+//
+//	This program 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 Lesser General Public License
+//	along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#pragma once;
+#include "TypeList.h"
+
+DLL_METHOD TypeList* DLL_CALL BU_TypeList_Create(BBTypeElement* element) {
+	// Make sure the given element is valid.
+	if (element == NULL)
+		return NULL;
+	element = (BBTypeElement*)(((uint32_t*)element) - 5);
+
+	// Create our TypeList.
+	TypeList* list = new TypeList();
+	list->type = element->type;
+	list->firstElement = element;
+	list->lastElement = element;
+
+	// Remove the given element from the flow of the type.
+	element->prev->next = element->next;
+	element->next->prev = element->prev;
+	element->prev = (BBTypeElement*)&list->type->used;
+	element->next = (BBTypeElement*)&list->type->used;
+
+	// Return the list.
+	return list;
+}
+
+DLL_METHOD void DLL_CALL BU_TypeList_Destroy(TypeList* list) {
+	// Make sure we have a valid list.
+	if (list == NULL)
+		return;
+
+	// Append elements to the original type.
+	list->firstElement->prev = list->type->used.prev;
+	list->firstElement->prev->next = list->firstElement;
+	list->lastElement->next = (BBTypeElement*)&list->type->used;
+	list->lastElement->next->prev = list->lastElement;
+
+	// Free our TypeList.
+	delete list;
+}
+
+DLL_METHOD void DLL_CALL BU_TypeList_Activate(TypeList* list) {
+	// Store current pointers
+	list->storedFirstElement = list->type->used.next;
+	list->storedLastElement = list->type->used.prev;
+
+	// ... and replace them.
+	list->type->used.next = list->firstElement;
+	list->type->used.prev = list->lastElement;
+}
+
+DLL_METHOD void DLL_CALL BU_TypeList_Deactivate(TypeList* list) {
+	// Store current pointers
+	list->firstElement = list->type->used.next;
+	list->lastElement = list->type->used.prev;
+
+	// ... and replace them.
+	list->type->used.next = list->storedFirstElement;
+	list->type->used.prev = list->storedLastElement;
+}
+
@@ -0,0 +1,36 @@
+//	BlitzUtility - Expanding the normal Blitz functionality.
+//	Copyright (C) 2015 Project Kube (Michael Fabian Dirks)
+//
+//	This program is free software: you can redistribute it and/or modify
+//	it under the terms of the GNU Lesser General Public License as
+//	published by the Free Software Foundation, either version 3 of the 
+//	License, or (at your option) any later version.
+//
+//	This program 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 Lesser General Public License
+//	along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#pragma once
+#include "dllmain.h"
+#include "List.h"
+#include <list>
+
+struct TypeList {
+	BBType *type;
+
+	BBTypeElement *storedFirstElement, *storedLastElement;
+	BBTypeElement *firstElement, *lastElement;
+};
+
+DLL_METHOD TypeList* DLL_CALL BU_TypeList_Create(BBTypeElement* element);
+#pragma comment(linker, "/EXPORT:BU_TypeList_Create=_BU_TypeList_Create@4")
+DLL_METHOD void DLL_CALL BU_TypeList_Destroy(TypeList* list);
+#pragma comment(linker, "/EXPORT:BU_TypeList_Destroy=_BU_TypeList_Destroy@4")
+DLL_METHOD void DLL_CALL BU_TypeList_Activate(TypeList* list);
+#pragma comment(linker, "/EXPORT:BU_TypeList_Activate=_BU_TypeList_Activate@4")
+DLL_METHOD void DLL_CALL BU_TypeList_Deactivate(TypeList* list);
+#pragma comment(linker, "/EXPORT:BU_TypeList_Deactivate=_BU_TypeList_Deactivate@4")