X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Usermode%2FLibraries%2Flibspiderscript.so_src%2Fbytecode_makefile.c;fp=Usermode%2FLibraries%2Flibspiderscript.so_src%2Fbytecode_makefile.c;h=0000000000000000000000000000000000000000;hb=956e8a29de884d0e12351552b6f4b5ad2e3c1b4c;hp=3c0347bdc414d13544c462efc98fecf4d83dc9ca;hpb=da93bf59c8d6d7cd4a5547f444197abf0490d399;p=tpg%2Facess2.git

diff --git a/Usermode/Libraries/libspiderscript.so_src/bytecode_makefile.c b/Usermode/Libraries/libspiderscript.so_src/bytecode_makefile.c
deleted file mode 100644
index 3c0347bd..00000000
--- a/Usermode/Libraries/libspiderscript.so_src/bytecode_makefile.c
+++ /dev/null
@@ -1,138 +0,0 @@
-/*
- * SpiderScript Library
- * by John Hodge (thePowersGang)
- * 
- * bytecode_makefile.c
- * - Generate a bytecode file
- */
-#include <stdlib.h>
-#include "ast.h"
-#include "bytecode_gen.h"
-#include <stdio.h>
-#include <string.h>
-
-// === IMPORTS ===
-
-// === PROTOTYPES ===
-
-// === GLOBALS ===
-
-// === CODE ===
-int SpiderScript_SaveBytecode(tSpiderScript *Script, const char *DestFile)
-{
-	tStringList	strings = {0};
-	tScript_Function	*fcn;
-	FILE	*fp;
-	 int	fcn_hdr_offset = 0;
-	 int	fcn_count = 0;
-	 int	strtab_ofs;
-	 int	i;
-
-	void _put8(uint8_t val)
-	{
-		fwrite(&val, 1, 1, fp);
-	}
-	void _put32(uint32_t val)
-	{
-		_put8(val & 0xFF);
-		_put8(val >> 8);
-		_put8(val >> 16);
-		_put8(val >> 24);
-	}
-
-	fp = fopen(DestFile, "wb");
-	if(!fp)	return 1;
-	// Create header
-	fwrite("SSBC\r\n\xBC\x55", 8, 1, fp);
-	_put32(0);	// Function count, to be filled
-	_put32(0);	// String count
-	_put32(0);	// String table offset
-	// TODO: Variant info
-
-	fcn_hdr_offset = ftell(fp);
-
-	// Create function descriptors
-	for(fcn = Script->Functions; fcn; fcn = fcn->Next, fcn_count ++)
-	{
-		_put32( StringList_GetString(&strings, fcn->Name, strlen(fcn->Name)) );
-		_put32( 0 );	// Code offset
-		// TODO: Namespace
-		_put8( fcn->ReturnType );
-		
-		if(fcn->ArgumentCount > 255) {
-			// ERROR: Too many args
-			return 2;
-		}
-		_put8( fcn->ArgumentCount );
-
-		// Argument types?
-		for( i = 0; i < fcn->ArgumentCount; i ++ )
-		{
-			_put32( StringList_GetString(&strings, fcn->Arguments[i].Name, strlen(fcn->Arguments[i].Name)) );
-			_put8( fcn->Arguments[i].Type );
-		}
-	}
-
-	// Put function code in
-	for(fcn = Script->Functions; fcn; fcn = fcn->Next)
-	{
-		char	*code;
-		 int	len, code_pos;
-	
-		// Fix header	
-		code_pos = ftell(fp);
-		fseek(fp, SEEK_SET, fcn_hdr_offset + 4);
-		_put32( code_pos );
-		fseek(fp, SEEK_SET, code_pos );
-
-		fcn_hdr_offset += 4+4+1+1+(4+1)*fcn->ArgumentCount;
-		
-		// Write code
-		if( !fcn->BCFcn )
-			Bytecode_ConvertFunction(fcn);
-		if( !fcn->BCFcn )
-		{
-			fclose(fp);
-			return 1;
-		}
-		code = Bytecode_SerialiseFunction(fcn->BCFcn, &len, &strings);
-		fwrite(code, len, 1, fp);
-		free(code);
-	}
-
-	// String table
-	strtab_ofs = ftell(fp);
-	{
-		 int	string_offset = strtab_ofs + (4+4)*strings.Count;
-		tString	*str;
-		// Array
-		for(str = strings.Head; str; str = str->Next)
-		{
-			_put32(str->Length);
-			_put32(string_offset);
-			string_offset += str->Length + 1;
-		}
-		// Data
-		for(str = strings.Head; str;)
-		{
-			tString	*nextstr = str->Next;
-			fwrite(str->Data, str->Length, 1, fp);
-			_put8(0);	// NULL separator
-			free(str);
-			str = nextstr;
-		}
-		strings.Head = NULL;
-		strings.Tail = NULL;
-	}
-
-	// Fix header
-	fseek(fp, 8, SEEK_SET);
-	_put32(fcn_count);
-	_put32(strings.Count);
-	_put32(strtab_ofs);
-
-	fclose(fp);
-
-	return 0;
-}
-