Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-ide
Commits
fd54245f
Commit
fd54245f
authored
Jan 21, 2009
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
move Platform functions that depend on ObjectIO to PlatformObjectIO
parent
aac152c9
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
67 additions
and
51 deletions
+67
-51
Ed/EdMonad.icl
Ed/EdMonad.icl
+1
-1
Ide/IDE.icl
Ide/IDE.icl
+1
-1
Ide/IdeState.icl
Ide/IdeState.icl
+4
-5
Win/Platform.dcl
Win/Platform.dcl
+1
-10
Win/Platform.icl
Win/Platform.icl
+3
-34
Win/PlatformObjectIO.dcl
Win/PlatformObjectIO.dcl
+13
-0
Win/PlatformObjectIO.icl
Win/PlatformObjectIO.icl
+44
-0
No files found.
Ed/EdMonad.icl
View file @
fd54245f
...
...
@@ -8,7 +8,7 @@ import UtilNewlinesFile, StateMonad
import
StdId
import
EdVisualText
,
EdSelection
,
EdLook
import
EdAction
import
Platform
import
Platform
,
PlatformObjectIO
//import dodebug
trace_n`
_
s
:==
s
...
...
Ide/IDE.icl
View file @
fd54245f
...
...
@@ -28,7 +28,7 @@ import projmen, filehist, ioutil, menubar
from
PmDirCache
import
SearchDisk
import
targetui
from
PmCleanSystem
import
QuitCleanCompiler
import
Platform
,
IdePlatform
import
Platform
,
PlatformObjectIO
,
IdePlatform
import
PmDriver
import
StdSystem
,
StdClipboard
...
...
Ide/IdeState.icl
View file @
fd54245f
...
...
@@ -7,6 +7,10 @@ import clipboard, typewin, fbi, PmAbcMagic, errwin
import
flextextcontrol
,
ioutil
,
UtilStrictLists
from
PmCleanSystem
import
::
CompilerProcessIds
,
NoCompilerProcessIds
from
StdPStClass
import
instance
FileEnv
(
PSt
.
l
)
//-- batch build support
from
StdProcess
import
closeProcess
from
StdPStClass
import
class
FileSystem
,
instance
FileSystem
PSt
import
logfile
,
PlatformObjectIO
::
InfoDialogInfo
=
{
pr_info
::
!
Id
// id for info dialog
...
...
@@ -506,11 +510,6 @@ getPrefix ps = accPLoc (\p=:{prefix}->(prefix,p)) ps
setPrefix
::
!
String
!*(
PSt
*
General
)
->
*
PSt
*
General
setPrefix
s
ps
=
appPLoc
(\
p
=:{
prefix
}->{
p
&
prefix
=
removeDup
[
s
:
prefix
]})
ps
//-- batch build support
from
StdProcess
import
closeProcess
from
StdPStClass
import
class
FileSystem
,
instance
FileSystem
PSt
import
logfile
,
Platform
getInteract
::
!*(
PSt
*
General
)
->
(!
Bool
,!*
PSt
*
General
)
getInteract
ps
=
accPLoc
(\
p
=:{
interact
}->(
interact
,
p
))
ps
...
...
Win/Platform.dcl
View file @
fd54245f
definition
module
Platform
import
StdPSt
,
StdString
import
StdIOCommon
import
StdString
PlatformDependant
win
mac
:==
win
initPlatformCommandLineArguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
ToolsDir
::
String
TempDir
::
String
EnvsDir
::
String
...
...
@@ -19,6 +11,5 @@ PrefsDir :: String
batchOptions
::
!*
World
->
(!
Bool
,
Bool
,
String
,*
File
,!*
World
)
wAbort
::
!
String
!*
World
->
*
World
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
onOSX
::
Bool
\ No newline at end of file
Win/Platform.icl
View file @
fd54245f
implementation
module
Platform
import
StdPSt
import
ArgEnv
import
code
from
library
"platform_kernel_library"
import
StdArray
,
StdEnum
,
StdList
,
StdClass
,
StdBool
,
StdMisc
import
UtilIO
import
ArgEnv
from
StdSystem
import
dirseparator
import
code
from
library
"platform_kernel_library"
import
clCCall_12
,
ostoolbox
import
StdIOCommon
import
logfile
,
set_return_code
PlatformDependant
win
mac
:==
win
...
...
@@ -44,17 +42,6 @@ where
ccall
GetPrivateProfileStringA@24
"PsssIIs:I:I"
}
initPlatformCommandLineArguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLineArguments
ps
#
args
=
cl_args
#
args
=
[
arg
\\
arg
<-:
args
]
#
args
=
filter_opts
args
|
isEmpty
args
=
([],
ps
)
#
files
=
tl
args
#
files
=
map
GetLongPathName
files
=
(
files
,
ps
)
batchOptions
::
!*
World
->
(!
Bool
,
Bool
,
String
,*
File
,!*
World
)
batchOptions
world
=
case
[
arg
\\
arg
<-:
getCommandLine
]
of
...
...
@@ -78,24 +65,6 @@ wAbort message world
#
world
=
set_return_code_world
(
-1
)
world
=
world
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
pAbort
ps
=
set_return_code_pst
(
-1
)
ps
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
ps
=
ps
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
ps
=
ps
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
getWindowModified
_
io
=
(
Nothing
,
io
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
setWindowModified
_
_
_
io
=
io
//====
inifilename
...
...
Win/PlatformObjectIO.dcl
0 → 100644
View file @
fd54245f
definition
module
PlatformObjectIO
import
StdPSt
,
StdString
import
StdIOCommon
initPlatformCommandLineArguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
Win/PlatformObjectIO.icl
0 → 100644
View file @
fd54245f
implementation
module
PlatformObjectIO
import
StdArray
,
StdEnum
,
StdList
,
StdClass
,
StdBool
,
StdMisc
from
ArgEnv
import
getCommandLine
import
set_return_code
import
StdPSt
from
UtilIO
import
GetLongPathName
import
StdIOCommon
cl_args
=:
getCommandLine
filter_opts
[]
=
[]
filter_opts
[
h
:
t
]
|
h
.[
0
]
==
'-'
=
filter_opts
(
drop
1
t
)
=
[
h
:
filter_opts
t
]
initPlatformCommandLineArguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLineArguments
ps
#
args
=
cl_args
#
args
=
[
arg
\\
arg
<-:
args
]
#
args
=
filter_opts
args
|
isEmpty
args
=
([],
ps
)
#
files
=
tl
args
#
files
=
map
GetLongPathName
files
=
(
files
,
ps
)
pAbort
::
!(
PSt
.
a
)
->
PSt
.
a
pAbort
ps
=
set_return_code_pst
(
-1
)
ps
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
ps
=
ps
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
ps
=
ps
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
getWindowModified
_
io
=
(
Nothing
,
io
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
setWindowModified
_
_
_
io
=
io
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