From c4134d6eccd95eb155d49e53e6f35c411ac99a6e Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 1 Jun 2001 10:53:26 +0000
Subject: interface to docommand.c (mac only)

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@447 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/Mac/docommand.dcl |  6 ++++++
 main/Mac/docommand.icl | 11 +++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 main/Mac/docommand.dcl
 create mode 100644 main/Mac/docommand.icl

(limited to 'main/Mac')

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);
-- 
cgit v1.2.3