MP-UX/hCore Assembler for 64x0, Release I.

Signed-off-by: Amlal El Mahrouss <amlal.elmahrouss@icloud.com>

1 files changed, 0 insertions, 137 deletions

diff --git a/CompilerFrontend/cl/compiler.d b/CompilerFrontend/cl/compiler.d
deleted file mode 100644
index e9d2cc8..0000000
--- a/CompilerFrontend/cl/compiler.d
+++ /dev/null
@@ -1,137 +0,0 @@
-/*
- *	========================================================
- *
- *	MP-UX C Compiler
- * 	Copyright Mahrouss Logic, all rights reserved.
- *
- * 	========================================================
- */
-
-module mpcc.compiler;
-
-///Authors: amlel
-///Bugs: None
-///Compiler Frontend
-
-import std.stdio;
-
-public void mpcc_summon_executable(string path)
-{
-	import core.stdc.stdlib;
-    import std.string;
-    
-	system(toStringz(path));
-}
-
-public class Platform
-{
-    public static string getIncludePath()
-    {
-	    import core.stdc.stdlib;
-        import std.string;
-        import std.conv;
-        import std.path;
-        
-        string pathHome = expandTilde("~");
-        pathHome ~= "/mp-ux/libc/";
-
-        return pathHome;
-    }
-
-    public static string getKernelPath()
-    {
-	    import core.stdc.stdlib;
-        import std.string;
-        import std.conv;
-        import std.path;
-        
-        string pathHome = expandTilde("~");
-        pathHome ~= "/mp-ux/mp-ux/";
-
-        return pathHome;
-    }
-}
-
-public class CompileCommand
-{
-    public void compile(string includePath, string[] files, bool is_lib, string output, bool compile_only)
-    {
-        import std.string;
-        import std.algorithm;
-        
-        foreach (file; files)
-        {
-            if (file.length == 0)
-                continue;
-
-            import std.datetime;
-
-            mpcc_summon_executable("/usr/local/bin/bin/cpp --define __64x0__ 1 --define __LP64__ 1 --define __64000__ 1 --define __BCCL__ 1 " ~
-                                 "--define __FILE__ " ~ file ~ " --define __DATE__ " ~ Clock.currTime(UTC()).toString() 
-                                 ~ " " ~
-                                " --working-dir ./ --include-dir " ~ includePath ~ " " ~ file);
-
-            string changed;
-            string ext;
-            bool ext_now = false;
-
-            foreach (ch; file)
-            {
-                if (ch == '.')
-                {
-                    ext_now = true;
-                    break;
-                }
-
-                if (!ext_now)
-                    changed ~= ch;
-                else
-                    ext ~= ch;
-            }
-
-            mpcc_summon_executable("/usr/local/bin/bin/bccl --asm=masm -fmax-exceptions 20 --compiler=dolvik " ~
-            file ~ ".pp");
-
-            changed ~= ".64x";
-
-            mpcc_summon_executable("/usr/local/bin/bin/masm -m64000 " ~ changed);
-        }
-
-        if (compile_only)
-            return;
-
-        string obj;
-
-        foreach (file; files)
-        {
-            if (file.length == 0)
-                    continue;
-
-            string changed;
-
-            foreach (ch; file)
-            {
-                if (ch == '.')
-                    break;
-
-                changed ~= ch;
-            }
-
-            changed ~= ".o ";
-
-            obj ~= changed;
-        }
-
-        string shlib_enable = "";
-
-        if (is_lib)
-            shlib_enable = " -shared ";
-
-        string output_object = shlib_enable;
-        output_object ~= " -o ";
-        output_object ~= output;
-
-        mpcc_summon_executable("/usr/local/bin/bin/ld -m64000 " ~
-        obj ~ output_object);
-    }
-}
\ No newline at end of file