aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main/Mac/docommand.dcl6
-rw-r--r--main/Mac/docommand.icl11
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);