removed docommand modules

backendC/CleanCompilerSources/docommand.c

-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 */

backendC/CleanCompilerSources/docommand.dcl

-definition module docommand;
-
-from StdString import String;
-
-:: *DoCommandEnvironment :== Int;
-DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment);

backendC/CleanCompilerSources/docommand.h

-#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

backendC/CleanCompilerSources/docommand.icl

-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);