Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clm
Commits
de0e176e
Commit
de0e176e
authored
Oct 22, 2003
by
John van Groningen
Browse files
add code for linux and solaris
parent
2f353958
Changes
1
Hide whitespace changes
Inline
Side-by-side
htoclean/htoclean source code/htoclean.icl
View file @
de0e176e
...
...
@@ -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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment