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