Usermode - Removed SpiderScript

[tpg/acess2.git] / Usermode / Libraries / libspiderscript.so_src / bytecode_makefile.c

diff --git a/Usermode/Libraries/libspiderscript.so_src/bytecode_makefile.c b/Usermode/Libraries/libspiderscript.so_src/bytecode_makefile.c
deleted file mode 100644 (file)
index 3c0347b..0000000
--- 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;
-}
-