4 files changed, 0 insertions, 45 deletions
diff --git a/backendC/CleanCompilerSources/docommand.c b/backendC/CleanCompilerSources/docommand.c
deleted file mode 100644
index 7e9a5db..0000000
--- a/backendC/CleanCompilerSources/docommand.c
+++ /dev/null
@@ -1,16 +0,0 @@
-typedef struct clean_string {int length; char chars [1]; } *CleanString;
-
-# define Clean(ignore)
-# include "docommand.h"
-/*
-	Clean string
-	============
-*/
-
-extern int do_command (char *command);
-
-int
-DoCommandNullTerminated (CleanString command)
-{
-	return (docommand (command->chars));
-} /* DoCommandNullTerminated */
diff --git a/backendC/CleanCompilerSources/docommand.dcl b/backendC/CleanCompilerSources/docommand.dcl
deleted file mode 100644
index 9eca72d..0000000
--- a/backendC/CleanCompilerSources/docommand.dcl
+++ /dev/null
@@ -1,6 +0,0 @@
-definition module docommand;
-
-from StdString import String;
-
-:: *DoCommandEnvironment :== Int;
-DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment);
diff --git a/backendC/CleanCompilerSources/docommand.h b/backendC/CleanCompilerSources/docommand.h
deleted file mode 100644
index af05aa0..0000000
--- a/backendC/CleanCompilerSources/docommand.h
+++ /dev/null
@@ -1,12 +0,0 @@
-#pragma export on
-
-Clean (:: *DoCommandEnvironment :== Int)
-/* Clean (DoCommand command :== DoCommandNullTerminated (command +++ "\0")) */
-
-Clean (DoCommandNullTerminated :: String DoCommandEnvironment -> (Int, DoCommandEnvironment))
-
-/* functions */
-int DoCommandNullTerminated (CleanString command);
-Clean (DoCommandNullTerminated :: String DoCommandEnvironment -> (Int, DoCommandEnvironment))
-
-#pragma export off
diff --git a/backendC/CleanCompilerSources/docommand.icl b/backendC/CleanCompilerSources/docommand.icl
deleted file mode 100644
index d5a1901..0000000
--- a/backendC/CleanCompilerSources/docommand.icl
+++ /dev/null
@@ -1,11 +0,0 @@
-implementation module docommand;
-
-from StdString import String;
-
-:: *DoCommandEnvironment :== Int;
-
-DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment);
-DoCommandNullTerminated a0 a1 = code {
-	ccall DoCommandNullTerminated "S:I:I"
-}
-// int DoCommandNullTerminated(CleanString);