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
clean-ide
Commits
5b006f5b
Commit
5b006f5b
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
comment out unused? exports
parent
a4358180
Changes
2
Hide whitespace changes
Inline
Side-by-side
Win/PmCleanSystem.dcl
View file @
5b006f5b
...
...
@@ -16,8 +16,8 @@ getLibs :: ![String] !*Files -> (!(![String],![String]),!*Files)
ClearCompilerCache
::
!.
a
->
(!
Int
,!.
a
)
QuitCleanCompiler
::
!*(
IOSt
.
l
)
->
*(
IOSt
.
l
)
::
CompileClearCache
=
ClearCache
|
Don`tClearCache
instance
==
CompileClearCache
//
:: CompileClearCache = ClearCache | Don`tClearCache
//
instance == CompileClearCache
::
CompileOrCheckSyntax
=
SyntaxCheck
|
Compilation
instance
==
CompileOrCheckSyntax
...
...
@@ -107,6 +107,7 @@ Link :: // Links the given file:
/*
DynLink :: !String !String !String !*(PSt .l) -> (Bool,*PSt .l)
*/
/*
Execute :: // Executes the given application
!(WindowFun *env) // error display fun
!Pathname // full pathname of the application
...
...
@@ -116,7 +117,7 @@ Execute :: // Executes the given application
( *env // state
, !Bool // success status
)
*/
Execute`
::
!
String
!*
env
->
(!
Bool
,!
Int
,!*
env
)
...
...
@@ -172,6 +173,6 @@ CompilePersistent ::
->
(!*
CompilingInfo
,!(!*
env
,
!
Pathname
,
!
CompilerMsg
))
|
FileEnv
env
ClearCompilerCaches
::
!
Int
!.
a
->
(!
Int
,!.
a
)
StartCodeGenerator
::
!
String
!(
WindowFun
*(
PSt
.
l
))
!
CodeGenerateAsmOrCode
!
Pathname
!
Int
!
Bool
!
CodeGenOptions
!
ApplicationOptions
!
Pathname
!*(
PSt
.
l
)
->
(!
Bool
,!
Pathname
,!*(
PSt
.
l
))
SendRepeatResult
::
!
Int
!.
a
->
(!
Int
,!.
a
)
//
ClearCompilerCaches :: !Int !.a -> (!Int,!.a)
//
StartCodeGenerator :: !String !(WindowFun *(PSt .l)) !CodeGenerateAsmOrCode !Pathname !Int !Bool !CodeGenOptions !ApplicationOptions !Pathname !*(PSt .l) -> (!Bool,!Pathname,!*(PSt .l))
//
SendRepeatResult :: !Int !.a -> (!Int,!.a)
Win/PmCleanSystem.icl
View file @
5b006f5b
...
...
@@ -107,7 +107,7 @@ where
=
True
(==)
_
_
=
False
/*
:: CompileClearCache = ClearCache | Don`tClearCache
instance == CompileClearCache
...
...
@@ -119,7 +119,7 @@ where
= True
(==) _ _
= False
*/
::
CompilerMsg
=
CompilerOK
|
SyntaxError
...
...
@@ -479,7 +479,8 @@ CodeGen cgen` wf genAsmOrCode path timeprofile cgo=:{tp} ao startupdir ps
#
objpath
=
MakeObjSystemPathname
tp
path
path_without_suffix
=
RemoveSuffix
path
command
=
cgen
+++
MakeCodeGenOptionsString
genAsmOrCode
timeprofile
cgo
+++
" "
+++
(
watcom_quoted_string
path_without_suffix
)
// +++ " " +++ (watcom_quoted_string path_without_suffix)
+++
" "
+++
(
quoted_string
path_without_suffix
)
errorsfilename
=
tooltempdir
+++
toString
dirseparator
+++
"errors"
(
didit
,
exit_code
,_)
=
trace_n
errorsfilename
CallProcess
command
[]
cgendir
""
""
errorsfilename
99
...
...
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