interface to docommand.c (mac only)

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

2 files changed, 17 insertions, 0 deletions

diff --git a/main/Mac/docommand.dcl b/main/Mac/docommand.dcl
new file mode 100644
index 0000000..9eca72d
--- /dev/null
+++ b/main/Mac/docommand.dcl
@@ -0,0 +1,6 @@
+definition module docommand;
+
+from StdString import String;
+
+:: *DoCommandEnvironment :== Int;
+DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment);
diff --git a/main/Mac/docommand.icl b/main/Mac/docommand.icl
new file mode 100644
index 0000000..d5a1901
--- /dev/null
+++ b/main/Mac/docommand.icl
@@ -0,0 +1,11 @@
+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);