Skip to content
GitLab
Menu
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
clean-ide
Commits
6fcd1881
Commit
6fcd1881
authored
May 13, 2005
by
John van Groningen
Browse files
rename call of function initPlatformCommandLine as initPlatformCommandLineArguments,
don't ignore the first argument
parent
032ff969
Changes
2
Hide whitespace changes
Inline
Side-by-side
HeapProfile/heapprofiler.icl
View file @
6fcd1881
...
...
@@ -119,11 +119,11 @@ info =
//-- Support functions...
open_heap_file_from_command_line
ps
#
(
commandline
,
ps
)
=
initPlatformCommandLine
ps
|
length
commandline
<=
1
#
(
commandline
_arguments
,
ps
)
=
initPlatformCommandLine
Arguments
ps
|
isEmpty
commandline
_arguments
#
(
dp
,
ps
)
=
defaultPrintSetup
ps
=
(
empty_progstate
dp
,
ps
)
=
open_file_function
(
commandline
!!
1
)
ps
=
open_file_function
(
hd
commandline
_arguments
)
ps
openFiles
_
_
_
_
_
_
_
[]
ps
=
ps
openFiles
recId
winId
closeId
printId
pageId
nextId
prevId
[
h
:
t
]
ps
...
...
TimeProfile/timeprofiler.icl
View file @
6fcd1881
...
...
@@ -130,10 +130,10 @@ info =
//-- Support functions...
open_time_file_from_command_line
ps
#
(
commandline
,
ps
)
=
initPlatformCommandLine
ps
|
length
commandline
<=
1
#
(
commandline
_arguments
,
ps
)
=
initPlatformCommandLine
Arguments
ps
|
isEmpty
commandline
_arguments
=
(([],[],
""
),
ps
)
=
open_file_function
(
commandline
!!
1
)
ps
=
open_file_function
(
hd
commandline
_arguments
)
ps
openFiles
_
_
_
_
[]
ps
=
ps
openFiles
winId
closeId
printId
recId
[
h
:
t
]
ps
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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