Commit de0e176e authored by John van Groningen's avatar John van Groningen
Browse files

add code for linux and solaris

parent 2f353958
......@@ -21,7 +21,7 @@ DirectorySeparator :== '\\';
/* */
/*
/* old unix code ?
n_args:==GetArgC;
program_arg i:==GetArgvN i;
......@@ -45,6 +45,17 @@ DirectorySeparator :== '\\';
*/
/* for unix
import ArgEnv;
args=:getCommandLine;
n_args:==size args;
program_arg i:==args.[i];
DirectorySeparator :== '/';
*/
split_path_name_in_file_and_directory_name :: !{#Char} -> (!{#Char},{#Char});
split_path_name_in_file_and_directory_name path_name
# last_directory_separator_index = find_last_directory_separator (size path_name-1);
......
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