system dependent parts for the macintosh

htoclean/htoclean source code/macintosh/htoclean_file.dcl

+definition module htoclean_file;
+
+get_path_name :: !*World -> (!Bool,!String,!*World);
+
+wait_for_keypress :: !*World -> *World;
+
+DirectorySeparator :== ':';

htoclean/htoclean source code/macintosh/htoclean_file.icl

+implementation module htoclean_file;
+
+// for macintosh
+
+import StdEnv;
+
+DirectorySeparator :== ':';
+
+import mac_file_selector_carbon;
+
+wait_for_keypress :: !*World -> *World;
+wait_for_keypress w
+	# (stdio,w) = stdio w;
+	  stdio = stdio <<< "Press any key to exit";
+	  (ok,c,stdio) = freadc stdio;
+	  (ok,w) = fclose stdio w;
+	= w;
+
+get_path_name :: !*World -> (!Bool,!String,!*World);
+get_path_name w
+	# (stdio_,w) = stdio w;
+	  stdio_ = stdio_ <<< "Select the C header file\n";
+	  (_,w) = fclose stdio_ w;
+	= SelectInputFile w;
+	
\ No newline at end of file