Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
23834920
Commit
23834920
authored
Jan 21, 2009
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove set_return_code_pst
parent
65cc2600
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
15 deletions
+6
-15
Win/PlatformObjectIO.icl
Win/PlatformObjectIO.icl
+2
-1
Win/set_return_code.dcl
Win/set_return_code.dcl
+1
-6
Win/set_return_code.icl
Win/set_return_code.icl
+3
-8
No files found.
Win/PlatformObjectIO.icl
View file @
23834920
...
@@ -6,6 +6,7 @@ import set_return_code
...
@@ -6,6 +6,7 @@ import set_return_code
import
StdPSt
import
StdPSt
from
UtilIO
import
GetLongPathName
from
UtilIO
import
GetLongPathName
import
StdIOCommon
import
StdIOCommon
from
IdeState
import
app_world_instead_of_ps
,
ioStGetWorld
,
ioStSetWorld
cl_args
=:
getCommandLine
cl_args
=:
getCommandLine
...
@@ -27,7 +28,7 @@ initPlatformCommandLineArguments ps
...
@@ -27,7 +28,7 @@ initPlatformCommandLineArguments ps
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
pAbort
ps
pAbort
ps
=
set_return_code_pst
(
-1
)
ps
=
app_world_instead_of_ps
(
set_return_code_world
(
-1
)
)
ps
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
ps
installPlatformEventHandlers
ps
...
...
Win/set_return_code.dcl
View file @
23834920
definition
module
set_return_code
definition
module
set_return_code
from
StdPSt
import
::
PSt
set_return_code_world
::
!
Int
!*
World
->
*
World
::
*
UniqueWorld
:==
World
set_return_code_world
::
!
Int
!
UniqueWorld
->
UniqueWorld
set_return_code_pst
::
!
Int
!(
PSt
.
l
)
->
PSt
.
l
Win/set_return_code.icl
View file @
23834920
...
@@ -2,18 +2,13 @@ implementation module set_return_code;
...
@@ -2,18 +2,13 @@ implementation module set_return_code;
import
code
from
"c_set_return_code."
;
import
code
from
"c_set_return_code."
;
import
StdString
;
set_return_code_world
::
!
Int
!*
World
->
*
World
;
import
StdPSt
;
::
*
UniqueWorld
:==
World
;
set_return_code_world
::
!
Int
!
UniqueWorld
->
UniqueWorld
;
set_return_code_world
a0
a1
=
code {
set_return_code_world
a0
a1
=
code {
ccall
set_return_code
"I:V:A"
ccall
set_return_code
"I:V:A"
fill_a
0
1
fill_a
0
1
pop_a
1
pop_a
1
}
}
/*
set_return_code_pst :: !Int !(PSt .l) -> PSt .l;
set_return_code_pst :: !Int !(PSt .l) -> PSt .l;
set_return_code_pst a0 a1 = set_return_code_a a0 a1;
set_return_code_pst a0 a1 = set_return_code_a a0 a1;
...
@@ -21,5 +16,5 @@ set_return_code_a :: !Int !.a -> .a;
...
@@ -21,5 +16,5 @@ set_return_code_a :: !Int !.a -> .a;
set_return_code_a a0 a1 = code {
set_return_code_a a0 a1 = code {
ccall set_return_code "I:V:A"
ccall set_return_code "I:V:A"
}
}
*/
// void set_return_code (int return_code);
// void set_return_code (int return_code);
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