[r2004-06-28 03:31:39 by afrisch] appel unix

Original author: afrisch
Date: 2004-06-28 03:31:39+00:00

tests/ocaml/a.cd

@@ -21,3 +21,9 @@ let exists = external "Sys.file_exists"
 let i = 1
 
 let home = external "Sys.getenv" "HOME"
+
+let stdin = external "Unix.stderr"
+let unix_write = external "Unix.write"
+let str_len = external "String.length"
+
+let _ = unix_write stdin home 0 (str_len home)