Commit 93162a47 authored by John van Groningen's avatar John van Groningen
Browse files

system dependent parts for the macintosh

parent 0d54ab1b
definition module htoclean_file;
get_path_name :: !*World -> (!Bool,!String,!*World);
wait_for_keypress :: !*World -> *World;
DirectorySeparator :== ':';
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment