diff options
-rw-r--r-- | main/Mac/docommand.dcl | 6 | ||||
-rw-r--r-- | main/Mac/docommand.icl | 11 |
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); |