docommand.c

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1076 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

1 files changed, 16 insertions, 0 deletions

diff --git a/backendC/CleanCompilerSources/docommand.c b/backendC/CleanCompilerSources/docommand.c
index e69de29..70de990 100644
--- a/backendC/CleanCompilerSources/docommand.c
+++ b/backendC/CleanCompilerSources/docommand.c
@@ -0,0 +1,16 @@
+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 (do_command (command->chars));
+} /* DoCommandNullTerminated */