add code for linux and solaris

htoclean/htoclean source code/htoclean.icl

@@ -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);