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-compiler-and-rts
compiler
Commits
d99aeea3
Commit
d99aeea3
authored
Apr 29, 2004
by
John van Groningen
Browse files
pass compiler_id in message to the IDE
parent
b67a7d10
Changes
2
Hide whitespace changes
Inline
Side-by-side
main/Windows/CoclSystemDependent.dcl
View file @
d99aeea3
...
...
@@ -23,6 +23,6 @@ SystemDependentInitialIO :: [a]
ensureCleanSystemFilesExists
::
!
String
!*
Files
->
(!
Bool
,
!*
Files
)
set_compiler_id
::
Int
->
Int
set_compiler_id
::
!
Int
->
Int
compiler_loop
::
([{#
Char
}]
*
st
->
*(
Bool
,
*
st
))
*
st
->
(!
Bool
,
!*
st
)
main/Windows/CoclSystemDependent.icl
View file @
d99aeea3
...
...
@@ -26,13 +26,20 @@ ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
ensureCleanSystemFilesExists
path
env
=
ensureDirectoryExists
path
env
set_compiler_id
::
Int
->
Int
set_compiler_id
compiler_id
=
compiler_id
import
thread_message
;
import
code
from
"thread_message.obj"
;
set_compiler_id
::
!
Int
->
Int
set_compiler_id
compiler_id
=
code {
ccall
set_compiler_id
"I:I"
}
;
get_compiler_id
::
Int
get_compiler_id
=
code {
ccall
get_compiler_id
":I"
}
;
compiler_loop
::
([{#
Char
}]
*
st
->
*(
Bool
,
*
st
))
*
st
->
(!
Bool
,
!*
st
)
compiler_loop
compile
compile_state
|
length
commandArgs
==
2
&&
commandArgs
!!
0
==
"-ide"
...
...
@@ -119,7 +126,7 @@ compile_files compile thread_id wm_number compile_state
[
"cocl"
:
cocl_args
]
#
(
ok
,
compile_state
)=
compile
cocl_args
compile_state
#
result
=
if
ok
0
(
-1
);
#
r
=
send_integers_to_thread
thread_id
wm_number
0
result
;
#
r
=
send_integers_to_thread
thread_id
wm_number
get_compiler_id
result
;
|
r
==
0
->
abort
"compile_files 3"
;
->
compile_files
compile
thread_id
wm_number
compile_state
...
...
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