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
7e5709f0
Commit
7e5709f0
authored
Oct 15, 2001
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Assorted fixes
parent
4f23f9cb
Changes
51
Hide whitespace changes
Inline
Side-by-side
Showing
51 changed files
with
280 additions
and
231 deletions
+280
-231
BatchBuild.prj
BatchBuild.prj
+0
-1
Ed/EdKeyMapping.icl
Ed/EdKeyMapping.icl
+3
-7
Ed/EdLineText.icl
Ed/EdLineText.icl
+1
-1
Ed/EdLook.dcl
Ed/EdLook.dcl
+2
-1
Ed/EdLook.icl
Ed/EdLook.icl
+8
-4
Ed/EdMessage.dcl
Ed/EdMessage.dcl
+1
-1
Ed/EdMessage.icl
Ed/EdMessage.icl
+1
-1
Ed/EdMonad.icl
Ed/EdMonad.icl
+5
-4
Ed/EdTab.icl
Ed/EdTab.icl
+1
-1
Ed/EdWindow.icl
Ed/EdWindow.icl
+2
-1
Ed/syncol.icl
Ed/syncol.icl
+1
-1
Editor/EdClient.dcl
Editor/EdClient.dcl
+2
-2
Editor/EdClient.icl
Editor/EdClient.icl
+2
-2
Editor/EdCommon.dcl
Editor/EdCommon.dcl
+3
-3
Editor/EdCommon.icl
Editor/EdCommon.icl
+1
-1
HeapProfile/Help.dcl
HeapProfile/Help.dcl
+1
-1
Ide/EdClient.icl
Ide/EdClient.icl
+1
-1
Ide/IDE.icl
Ide/IDE.icl
+1
-1
Ide/IdeState.icl
Ide/IdeState.icl
+2
-2
Ide/PmDialogues.icl
Ide/PmDialogues.icl
+1
-1
Ide/conswin.icl
Ide/conswin.icl
+2
-1
Ide/idehelp.icl
Ide/idehelp.icl
+30
-8
Ide/targetui.icl
Ide/targetui.icl
+1
-1
Ide/typewin.icl
Ide/typewin.icl
+1
-1
Pm/PmProject.icl
Pm/PmProject.icl
+5
-3
TimeProfile/Help.dcl
TimeProfile/Help.dcl
+1
-1
TimeProfile/ShowProfile.dcl
TimeProfile/ShowProfile.dcl
+1
-1
TimeProfile/ShowProfile.icl
TimeProfile/ShowProfile.icl
+4
-4
TimeProfile/timeprofiler.icl
TimeProfile/timeprofiler.icl
+2
-2
Util/ExtNotice.icl
Util/ExtNotice.icl
+9
-7
Util/FontEnv.dcl
Util/FontEnv.dcl
+1
-1
Util/FontEnv.icl
Util/FontEnv.icl
+1
-1
Util/StdListBox.dcl
Util/StdListBox.dcl
+0
-5
Util/StdListBox.icl
Util/StdListBox.icl
+0
-10
Util/ioutil.dcl
Util/ioutil.dcl
+0
-6
Util/ioutil.icl
Util/ioutil.icl
+0
-83
Win/IdePlatform.icl
Win/IdePlatform.icl
+13
-3
Win/PatchConsoleEvents/Clean System Files/Redirect.obj
Win/PatchConsoleEvents/Clean System Files/Redirect.obj
+0
-0
Win/PatchConsoleEvents/Clean System Files/cCrossCallMaarten.obj
...tchConsoleEvents/Clean System Files/cCrossCallMaarten.obj
+0
-0
Win/PatchConsoleEvents/deviceevents.dcl
Win/PatchConsoleEvents/deviceevents.dcl
+0
-4
Win/PatchConsoleEvents/processdevice.dcl
Win/PatchConsoleEvents/processdevice.dcl
+0
-5
Win/PatchConsoleEvents/processdevice.icl
Win/PatchConsoleEvents/processdevice.icl
+0
-5
Win/PatchConsoleEvents/processevent.dcl
Win/PatchConsoleEvents/processevent.dcl
+0
-5
Win/PatchConsoleEvents/processevent.icl
Win/PatchConsoleEvents/processevent.icl
+4
-10
Win/Platform.icl
Win/Platform.icl
+15
-12
Win/UtilIO.dcl
Win/UtilIO.dcl
+6
-0
Win/UtilIO.icl
Win/UtilIO.icl
+122
-2
Win/lib.dcl
Win/lib.dcl
+1
-1
Win/lib.icl
Win/lib.icl
+4
-4
Win/set_return_code.dcl
Win/set_return_code.dcl
+4
-2
Win/set_return_code.icl
Win/set_return_code.icl
+14
-6
No files found.
BatchBuild.prj
View file @
7e5709f0
...
...
@@ -41,7 +41,6 @@ Global
Path: {Project}\BatchBuild
Path: {Application}\Directory
Path: {Application}\ArgEnvWindows
Path: {Application}\SetReturnCode
Path: {Project}\Pm
Path: {Project}\Util
Path: {Project}\Win
...
...
Ed/EdKeyMapping.icl
View file @
7e5709f0
...
...
@@ -12,10 +12,6 @@ import StrictList, ioutil
import
EdActionType
import
Platform
/*2.0
returnKey :== enterKey // temp hack for OIO20+uniqueness
0.2*/
//--
/*
helpKey :== HelpKey
...
...
@@ -354,7 +350,7 @@ where
buttonsControl
=
ButtonControl
"Open..."
[
ControlPos
(
Left
,
zero
),
ControlFunction
openkm
]
:+:
ButtonControl
"Save..."
[
ControlFunction
savekm
]
:+:
ButtonControl
"Bind"
[
ControlFunction
bindKey
]
:+:
ButtonControl
"Bind"
[
ControlFunction
bindKey
]
:+:
ButtonControl
"Remove binding"
[
ControlFunction
removeBinding
]
:+:
ButtonControl
"Cancel"
[
ControlFunction
(
noLS
(
closeWindow
dialogId
))
]
:+:
ButtonControl
"Ok"
[
ControlId
okId
...
...
@@ -470,7 +466,7 @@ where
// removeBinding removes the selected key bindings
removeBinding
::
(
KeyMappingDialogState
,
PSt
*
l
)
->
(
KeyMappingDialogState
,
PSt
*
l
)
removeBinding
::
(
u
:
KeyMappingDialogState
,
PSt
*
l
)
->
(
u
:
KeyMappingDialogState
,
PSt
*
l
)
removeBinding
(
dialogState
=:{
keyMapping
},
pstate
)
#
(
wstate
,
pstate
)
=
accPIO
(
getWindow
dialogId
)
pstate
|
isNothing
wstate
=
(
dialogState
,
pstate
)
...
...
@@ -500,7 +496,7 @@ where
// bindKey adds a binding to the key mapping table. It binds the
// currently selected action to the selected key (including modifiers).
bindKey
::
(
KeyMappingDialogState
,
PSt
*
l
)
->
(
KeyMappingDialogState
,
PSt
*
l
)
bindKey
::
(
u
:
KeyMappingDialogState
,
PSt
*
l
)
->
(
u
:
KeyMappingDialogState
,
PSt
*
l
)
bindKey
(
dialogState
=:{
keyMapping
},
pstate
)
#
(
wstate
,
pstate
)
=
accPIO
(
getWindow
dialogId
)
pstate
|
isNothing
wstate
=
(
dialogState
,
pstate
)
...
...
Ed/EdLineText.icl
View file @
7e5709f0
...
...
@@ -92,7 +92,7 @@ where
2
// silly DOS
1
// mac
newline
=
:
PlatformDependant
=
PlatformDependant
"
\xd\xa
"
// windows
"
\xd
"
// mac
...
...
Ed/EdLook.dcl
View file @
7e5709f0
...
...
@@ -15,7 +15,8 @@ from StdString import String
from
StdPSt
import
PSt
,
IOSt
import
EdMonad
editWindowLook
::
EditState
->
(
EditState
,
SelectState
!
UpdateState
->
(!*
Picture
->
*
Picture
))
//editWindowLook :: EditState -> (EditState, SelectState !UpdateState -> (!*Picture -> *Picture))
editWindowLook
::
EditState
SelectState
!
UpdateState
->
(!*
Picture
->
*
Picture
)
// editWindowLook: defines the look of the editor window. This function
// is used to handle update events.
...
...
Ed/EdLook.icl
View file @
7e5709f0
...
...
@@ -15,12 +15,16 @@ trace_n _ f :== f
// editWindowLook: updating the affected areas is done by updating
// each of the rectangles.
editWindowLook
::
EditState
->
(
EditState
,
SelectState
!
UpdateState
->
(!*
Picture
->
*
Picture
))
editWindowLook
editState
=
(
editState`
,
editWindowLook`
)
//editWindowLook :: EditState -> (EditState, SelectState !UpdateState -> (!*Picture -> *Picture))
editWindowLook
::
EditState
SelectState
!
UpdateState
->
(!*
Picture
->
*
Picture
)
editWindowLook
editState
selectState
updateState
=:{
updArea
,
newFrame
,
oldFrame
}
=
editWindowLook`
//editWindowLook editState
// = (editState`,editWindowLook`)
where
// editWindowLook` :: !*Picture -> *Picture
editWindowLook`
selectState
updateState
=:{
updArea
,
newFrame
,
oldFrame
}
picture
editWindowLook`
picture
// editWindowLook` selectState updateState=:{ updArea, newFrame, oldFrame } picture
// # picture = traceUpdate updArea picture
#
updArea
=
cleanUpdate
updArea
// hack around object i/o bug...
// # picture = traceUpdate updArea picture
...
...
Ed/EdMessage.dcl
View file @
7e5709f0
...
...
@@ -7,7 +7,7 @@ definition module EdMessage
from
StdId
import
Id
,
RId
,
Ids
from
StdPSt
import
PSt
,
IOSt
from
StdReceiver
import
Receiver2
,
R2Id
,
Receiver2Function
,
ReceiverAttribute
from
EdMonad
import
EditState
,
EditMonad
from
EdMonad
import
EditState
,
EditMonad
,
StateM
::
EditId
::
Message
...
...
Ed/EdMessage.icl
View file @
7e5709f0
...
...
@@ -49,7 +49,7 @@ appEditState :: !EditId !.(EditAction *l .r) !*(PSt *l) -> *(.r,*PSt *l)
appEditState
editId
monad
pState
#
(
editState
,
pState
)
=
getEditState
editId
pState
#
(
x
,
(
editState
,
pState
))
=
monad
(
editState
,
pState
)
#
pState
=
setEditState
editId
editState
pState
#
!
pState
=
setEditState
editId
editState
pState
=
(
x
,
pState
)
// getEditState
...
...
Ed/EdMonad.icl
View file @
7e5709f0
...
...
@@ -382,10 +382,11 @@ updateLook :: EditMonad (PSt *l) nothing
updateLook
=
getWindowId
>>>=
\
windowId
->
getEditState
>>>=
\
editState
->
let
(
editState
,
editLook
)
=
editWindowLook
editState
in
appEnv
(
appPIO
(
setWindowLook
windowId
False
(
True
,
editLook
)))
// let
// (editState,editLook) = editWindowLook editState
// in
// appEnv (appPIO (setWindowLook windowId False (True,editLook)))
appEnv
(
appPIO
(
setWindowLook
windowId
False
(
True
,
editWindowLook
editState
)))
// compute some properties of a font
...
...
Ed/EdTab.icl
View file @
7e5709f0
...
...
@@ -156,7 +156,7 @@ where
|
s
.[
i
]
==
x
=
True
=
isStringMember
x
(
dec
i
)
s
funnyChars
=
:
"~@#$%^?!+-*<>
\\
/|&=:."
funnyChars
=
"~@#$%^?!+-*<>
\\
/|&=:."
funnySize
=
20
dL
::
!.
Int
!.
Int
!*
Picture
->
!(!.
CommentLevel
,!*
Picture
)
...
...
Ed/EdWindow.icl
View file @
7e5709f0
...
...
@@ -24,7 +24,8 @@ openEditWindow uId title pathName text font tabs syncols windowId atts ps
// compute the view domain of the visual text
(
viewDomain
,
(
editState
,
ps
))
=
computeViewDomain
(
editState
,
ps
)
// setup the window attributes
(
editState
,
editLook
)
=
editWindowLook
editState
// (editState,editLook) = editWindowLook editState
editLook
=
editWindowLook
editState
windowAttrs
=
atts
++
// in this order so that new attributes override default atts
[
WindowViewSize
{
w
=
800
,
h
=
fontInfo
.
FontInfo
.
lineHeight
*
40
}
,
WindowHMargin
0
0
...
...
Ed/syncol.icl
View file @
7e5709f0
...
...
@@ -25,7 +25,7 @@ where
|
c
==
x
=
True
=
isStringMember
x
(
dec
i
)
s
funnyChars
=
:
"~@#$%^?!+-*<>
\\
/|&=:."
funnyChars
=
"~@#$%^?!+-*<>
\\
/|&=:."
funnySize
=
20
// =: size funnyChars?
line_size
=
size
line
...
...
Editor/EdClient.dcl
View file @
7e5709f0
...
...
@@ -3,9 +3,9 @@ definition module EdClient
import
EdMonad
,
EdState
,
EdCommon
from
EdMessage
import
EditAction
sendToActiveWindow
::
.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
.
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
sendToActiveWindow
::
.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
message
::
!
.
Id
!.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(.
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
;
message
::
!
Id
!.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
;
// Messages
...
...
Editor/EdClient.icl
View file @
7e5709f0
...
...
@@ -10,7 +10,7 @@ import EdCommon
import
ExtNotice
,
StrictList
//sendToActiveWindow :: (EditAction .l .p a) (EditorState,(PSt .l)) -> (Maybe a, (EditorState,(PSt .l)))
sendToActiveWindow
::
.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
.
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
sendToActiveWindow
::
.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
sendToActiveWindow
editAction
pState
#
(
maybeId
,
pState
)
=
accPIO
getActiveWindow
pState
|
isNothing
maybeId
...
...
@@ -23,7 +23,7 @@ sendToActiveWindow editAction pState
=
message
windowId
editAction
pState
//message :: Id (EditAction .l .p a) (EditorState,(PSt .l)) -> (Maybe a, (EditorState,(PSt .l)))
message
::
!
.
Id
!.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(.
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
;
message
::
!
Id
!.(*(
EditState
,*
PSt
*
b
)
->
*(.
c
,*(
EditState
,*
PSt
*
b
)))
!*(
PSt
*
b
)
->
*(
Maybe
.
c
,*
PSt
*
b
)
|
Editor
b
;
message
windowId
monad
pState
#
(
editorState
,
pState
)
=
getEditorState
pState
#
(
maybeEditId
,
editorState
)
=
findReceiver
windowId
editorState
...
...
Editor/EdCommon.dcl
View file @
7e5709f0
...
...
@@ -2,14 +2,14 @@ definition module EdCommon
from
StdPSt
import
PSt
,
IOSt
from
EdState
import
Editor
,
EditorState
from
EdMonad
import
EditMonad
,
EditState
from
EdMonad
import
EditMonad
,
StateM
,
EditState
from
EdSelection
import
Selection
,
Position
,
ColumnNr
,
LineNr
::
*
PLocState
:==
MyEditorState
::
*
MyEditorState
=
MES
EditorState
::
MyEditorState
=
MES
EditorState
instance
Editor
MyEditorState
mRemoveSelection
::
EditMonad
(
PSt
*
MyEditorState
)
nothing
mChangeSelectionTo
::
Selection
->
EditMonad
(
PSt
*
MyEditorState
)
nothing
controlDoubleClick
::
!.
Bool
!.
Position
->
.(!*(
.
EditState
,*
PSt
PLocState
)
->
*(
a
,*(
EditState
,*
PSt
PLocState
)));
controlDoubleClick
::
!.
Bool
!.
Position
->
.(!*(
EditState
,*
PSt
PLocState
)
->
*(
a
,*(
EditState
,*
PSt
PLocState
)));
Editor/EdCommon.icl
View file @
7e5709f0
...
...
@@ -73,6 +73,6 @@ where
]))
*/
controlDoubleClick
::
!.
Bool
!.
Position
->
.(!*(
.
EditState
,*
PSt
PLocState
)
->
*(
a
,*(
EditState
,*
PSt
PLocState
)));
controlDoubleClick
::
!.
Bool
!.
Position
->
.(!*(
EditState
,*
PSt
PLocState
)
->
*(
a
,*(
EditState
,*
PSt
PLocState
)));
controlDoubleClick
shiftDown
position
=
skip
\ No newline at end of file
HeapProfile/Help.dcl
View file @
7e5709f0
...
...
@@ -8,7 +8,7 @@ definition module Help
//
// **************************************************************************************************
from
StdString
import
String
import
Std
String
from
StdPSt
import
PSt
,
IOSt
showAbout
::
String
String
(
PSt
.
l
)
->
PSt
.
l
...
...
Ide/EdClient.icl
View file @
7e5709f0
...
...
@@ -798,7 +798,7 @@ msgPrint printSetup
myPrintText
::
!
PrintSetup
!
String
!
Text
!
FontInfo
!
Bool
!*
env
->
(
PrintSetup
,*
env
)
|
PrintEnvironments
env
myPrintText
printsetup
path
text
info
linenos
env
#
fdef
=
getFontDef
info
.
thefont
((_,
printsetup
),
env
)
=
printText2
path
"page "
True
RightJustify
((_,
printsetup
),
env
)
=
printText2
path
"page "
True
LeftJustify
//
RightJustify
fdef
info
.
tabSize
textstream
...
...
Ide/IDE.icl
View file @
7e5709f0
...
...
@@ -1033,6 +1033,6 @@ where
wAbort
message
world
#
stderr
=
fwrites
message
stderr
// # (_,world) = fclose stderr world
#
world
=
set_return_code
/* _world */
(
-1
)
world
#
world
=
set_return_code
_world
(
-1
)
world
=
world
Ide/IdeState.icl
View file @
7e5709f0
...
...
@@ -485,7 +485,7 @@ setPrefix s ps = appPLoc (\p=:{prefix}->{p & prefix = removeDup [s:prefix]}) ps
//-- batch build support
from
StdProcess
import
closeProcess
from
StdPStClass
import
FileSystem
import
logfile
import
logfile
,
set_return_code
getInteract
::
!*(
PSt
*
General
)
->
(!
Bool
,!*
PSt
*
General
)
getInteract
ps
=
accPLoc
(\
p
=:{
interact
}->(
interact
,
p
))
ps
...
...
@@ -507,7 +507,7 @@ abortLog flag message ps
#
(
ok
,
ps
)
=
closeLogfile
lf
ps
// | not ok ...
#
ps
=
case
flag
of
True
->
ps
// FIXME
set_return_code_pst (-1) ps
True
->
set_return_code_pst
(
-1
)
ps
_
->
ps
=
closeProcess
ps
...
...
Ide/PmDialogues.icl
View file @
7e5709f0
...
...
@@ -4,7 +4,7 @@ import StdArray, StdFunc, StdMisc, StdTuple
import
StdFileSelect
,
StdPStClass
,
StdWindow
import
PmTypes
,
PmProject
,
PmPath
,
UtilStrictLists
import
tabcontrol
,
ExtListBox
,
ioutil
,
IdeState
import
ExtNotice
import
ExtNotice
,
UtilIO
import
Platform
//import dodebug
...
...
Ide/conswin.icl
View file @
7e5709f0
...
...
@@ -133,7 +133,8 @@ openConsoleWindow cwi text atts ps
#
(_,
(
editState
,
ps
))
=
setText
text
(
editState
,
ps
)
#
(
fontInfo
,
(
editState
,
ps
))
=
getFontInfo
(
editState
,
ps
)
#
(
viewDomain
,
(
editState
,
ps
))
=
computeViewDomain
(
editState
,
ps
)
#
(
editState
,
editLook
)
=
editWindowLook
editState
// # (editState,editLook) = editWindowLook editState
#
editLook
=
editWindowLook
editState
#
windowAttrs
=
[
WindowOuterSize
cwi
.
tsiz
,
WindowHMargin
0
0
...
...
Ide/idehelp.icl
View file @
7e5709f0
...
...
@@ -4,7 +4,10 @@ implementation module idehelp
import
StdFunc
,
StdMisc
import
StdMenu
,
StdPStClass
,
StdSystem
import
ExtNotice
import
ioutil
import
ioutil
,
UtilIO
//import dodebug
trace_n`
m
f
:==
f
//-- export
...
...
@@ -36,7 +39,8 @@ CLEAN_VERSION
initHelpMenu
::
Id
!*(
PSt
.
b
)
->
*
PSt
.
b
initHelpMenu
wId
ps
#
(_,
ps
)
=
openMenu
undef
(
helpMenu
wId
)
ps
#
(
items
,
ps
)
=
accFiles
helpItems
ps
#
(_,
ps
)
=
openMenu
undef
(
helpMenu
items
wId
)
ps
=
ps
//-- local
...
...
@@ -49,18 +53,36 @@ bitmapname = case toInt '\n' of
idehelpname
=
applicationpath
"idehelp"
idehelptopic
=
"general.htm"
helpMenu
::
Id
->
Menu
(:+:
.
MenuItem
.
MenuItem
)
.
a
*(
PSt
.
b
)
helpMenu
wId
//
helpMenu :: Id -> Menu (:+: .MenuItem .MenuItem) .a *(PSt .b )
helpMenu
items
wId
=
Menu
"&Help"
(
MenuItem
"&About..."
[
MenuFunction
(
noLS
(
about
wId
))]
:+:
MenuItem
"&Help..."
[
MenuFunction
(
noLS
(
help
wId
)),
MenuSelectState
Unable
]
// :+: MenuItem "&Help..." [MenuFunction (noLS (help "help//man.pdf" wId))]
:+:
SubMenu
"&Help"
(
ListLS
[
MenuItem
file
[
MenuFunction
(
noLS
(
help
file
wId
))]
\\
file
<-
items
])
[]
)
[
]
help
wId
ps
// # ps = htmlHelpTopic (idehelpname+++".chm::/"+++idehelptopic) wId ps
=
ps
import
Directory
,
StdTuple
helpItems
files
#
path
=
applicationpath
"help"
#
((
ok
,
path`
),
files
)
=
pd_StringToPath
path
files
|
not
ok
=
([],
files
)
#
((
err
,
dir
),
files
)
=
getDirectoryContents
path`
files
|
err
<>
NoDirError
=
([],
files
)
#
items
=
map
getinfo
dir
// only need common fileinfo...
#
items
=
filter
(\(
b
,
n
)
->
not
b
)
items
#
items
=
map
snd
items
=
(
items
,
files
)
where
getinfo
{
fileName
,
fileInfo
=
fi
=:{
pi_fileInfo
=
dummyname
=:{
isDirectory
}}}
=
(
isDirectory
,
fileName
)
help
file
wId
ps
#
path
=
applicationpath
(
"help//"
+++.
file
)
#
(
ret
,
ps
)
=
ShellDefault
path
ps
=
trace_n`
(
"ShellExecute"
,
ret
,
file
)
ps
about
wId
ps
#
(
wId
,
ps
)
=
openId
ps
...
...
Ide/targetui.icl
View file @
7e5709f0
...
...
@@ -5,7 +5,7 @@ import StdFileSelect, StdMenu, StdMenuElement, StdPStClass, StdSystem
import
ExtNotice
import
IdeState
import
ioutil
,
tabcontrol
import
UtilStrictLists
,
PmPath
import
UtilStrictLists
,
UtilIO
,
PmPath
/*
? add 'New' to edit list dlog
...
...
Ide/typewin.icl
View file @
7e5709f0
...
...
@@ -145,7 +145,7 @@ openTypeWindow twi text atts ps
#
(_,
(
editState
,
ps
))
=
setText
text
(
editState
,
ps
)
#
(
fontInfo
,
(
editState
,
ps
))
=
getFontInfo
(
editState
,
ps
)
#
(
viewDomain
,
(
editState
,
ps
))
=
computeViewDomain
(
editState
,
ps
)
#
(
editState
,
editLook
)
=
editWindowLook
editState
#
editLook
=
editWindowLook
editState
#
windowAttrs
=
[
WindowOuterSize
twi
.
tsiz
,
WindowHMargin
0
0
...
...
Pm/PmProject.icl
View file @
7e5709f0
...
...
@@ -352,11 +352,13 @@ PR_GetLinkOptions project
PR_SetPaths
::
!
Bool
!(
List
String
)
!(
List
String
)
!
Project
->
Project
;
PR_SetPaths
def
defs
new
project
=:{
Project
|
inflist
=
Nil
}
=
project
;
PR_SetPaths
def
defs
new
project
=:{
Project
|
built
,
inflist
=
infl
=:(
root
=:{
InfListItem
|
info
={
dir
}}):!
rest
,
prjpaths
,
saved
}
|
def
=
{
Project
|
project
&
built
=
built
&&
olddirs
,
PR_SetPaths
def
defs
new
project
=:{
Project
|
built
,
inflist
=
infl
=:((
root
=:{
InfListItem
|
info
={
dir
}}):!
rest
),
prjpaths
,
saved
}
|
def
=
{
Project
|
project
&
built
=
built
&&
olddirs
,
saved
=
saved
&&
olddirs
,
inflist
=
inflist1
};
=
{
Project
|
project
&
built
=
built
&&
olddirs
,
=
{
Project
|
project
&
built
=
built
&&
olddirs
,
saved
=
saved
&&
unchanged
&&
olddirs
,
inflist
=
inflist1
,
prjpaths
=
prjpaths1
};
...
...
TimeProfile/Help.dcl
View file @
7e5709f0
...
...
@@ -8,7 +8,7 @@ definition module Help
//
// **************************************************************************************************
from
StdString
import
String
import
Std
String
from
StdPSt
import
PSt
,
IOSt
showAbout
::
String
String
(
PSt
.
l
)
->
PSt
.
l
...
...
TimeProfile/ShowProfile.dcl
View file @
7e5709f0
...
...
@@ -30,7 +30,7 @@ g_profile_curried :: !.FormattedProfile !.FormattedProfile -> Bool;
//draw_profile_lines :: [.Int] ![.FormattedProfile] .Int .Int UpdateArea *Picture -> .Picture;
draw_profile_lines`
::
.
Int
[.
Int
]
![.
FormattedProfile
]
.
Int
.
Int
!
UpdateArea
*
Picture
->
*
Picture
;
clock_speed_and_profile_overhead
::
(
Int
,
Real
,
Real
);
printTable
::
.
Font
!.
PrintSetup
[.
FormattedProfile
]
.
FormattedProfile
!*(
PSt
.
a
)
->
*(
PrintSetup
,*
PSt
.
a
);
printTable
::
Font
!
PrintSetup
[.
FormattedProfile
]
.
FormattedProfile
!*(
PSt
.
a
)
->
*(
PrintSetup
,*
PSt
.
a
);
//--
...
...
TimeProfile/ShowProfile.icl
View file @
7e5709f0
...
...
@@ -282,7 +282,7 @@ where
=
clock_speed_and_profile_overhead
=
read_function_profiles
(
PCorMac
(
compute_time_x86
(
clock_speed
*
1.0E6
)
overhead
)
(
compute_time
processor
processor_clock
bus_clock
)
undef
//
(compute_time processor processor_clock bus_clock)
)
file
read_processor_information
::
*
File
->
(
Int
,
Int
,
Int
,.
File
);
...
...
@@ -480,7 +480,7 @@ sort_and_redraw_window compare_function pst
*/
//-- Printing look
printTable
::
.
Font
!.
PrintSetup
[.
FormattedProfile
]
.
FormattedProfile
!*(
PSt
.
a
)
->
*(
PrintSetup
,*
PSt
.
a
);
printTable
::
Font
!
PrintSetup
[.
FormattedProfile
]
.
FormattedProfile
!*(
PSt
.
a
)
->
*(
PrintSetup
,*
PSt
.
a
);
printTable
printFont
printSetup
functionData
sumData
ps
// # (s=:(ProfileInfo functionData sumData),ps) = accPLoc (\l=:{info}->(info,l)) ps
// # (printFont,ps) = accPLoc (\l=:{monaco_font}->(monaco_font,l)) ps
...
...
@@ -537,7 +537,7 @@ groupBy :: !Int [x] -> [[x]]
groupBy
n
[]
=
[]
groupBy
n
l
=
[(
take
n
l
)
:
(
groupBy
n
(
drop
n
l
))]
print2
::
.
Bool
.
Bool
.(
PrintInfo
->
.(*
Picture
->
*(.
DrawFuns
,*
Picture
,
Bool
)))
.
PrintSetup
*
a
->
(
Bool
,
PrintSetup
,*
a
)
|
PrintEnvironments
a
print2
::
.
Bool
.
Bool
(
PrintInfo
->
.(*
Picture
->
*(.
DrawFuns
,*
Picture
,
Bool
)))
PrintSetup
*
a
->
(
Bool
,
PrintSetup
,*
a
)
|
PrintEnvironments
a
print2
doDialog
emulateScreen
prFun
printSetup
printEnv
#
(
alt
,
printEnv
)
=
printPagePerPage
doDialog
emulateScreen
0
initFun
stateTransition
printSetup
printEnv
=
case
alt
of
...
...
@@ -609,7 +609,7 @@ formatInfo window_font pict
*/
//--
format_string_r
::
.
Int
u
:(
a
v
:
Char
)
->
a
Char
|
Array
.
a
,
[
u
<=
v
];
//
format_string_r :: .Int u:(a v:Char) -> a Char | Array .a, [u <= v];
format_string_r
length
string
#
string_size
=
size
string
|
string_size
>=
length
...
...
TimeProfile/timeprofiler.icl
View file @
7e5709f0
...
...
@@ -16,8 +16,8 @@ HelpFileName :== ApplicationName +++ "Help"
::
ProfileViewerState
=
{
mode
::
ViewMode
,
mods
::
.
[
FormattedProfile
]
,
funs
::
.
[
FormattedProfile
]
,
mods
::
[
FormattedProfile
]
,
funs
::
[
FormattedProfile
]
,
pset
::
PrintSetup
,
name
::
String
}
...
...
Util/ExtNotice.icl
View file @
7e5709f0
...
...
@@ -11,25 +11,27 @@ import StdId, StdPSt, StdWindow, StdTimer
instance
Dialogs
Notice
where
openDialog
::
.
ls
(
Notice
.
ls
(
PSt
.
l
))
(
PSt
.
l
)
->
(!
ErrorReport
,
!
PSt
.
l
)
//
openDialog :: .ls (Notice .ls (PSt .l)) (PSt .l) -> (!ErrorReport, !PSt .l)
openDialog
ls
notice
ps
#
(
wId
,
ps
)
=
accPIO
openId
ps
(
okId
,
ps
)
=
accPIO
openId
ps
=
openDialog
ls
(
noticeToDialog
wId
okId
notice
)
ps
openModalDialog
::
.
ls
(
Notice
.
ls
(
PSt
.
l
))
(
PSt
.
l
)
->
(!(!
ErrorReport
,!
Maybe
.
ls
),!
PSt
.
l
)
//
openModalDialog :: .ls (Notice .ls (PSt .l)) (PSt .l) -> (!(!ErrorReport,!Maybe .ls),!PSt .l)
openModalDialog
ls
notice
ps
#
(
wId
,
ps
)
=
accPIO
openId
ps
(
okId
,
ps
)
=
accPIO
openId
ps
=
openModalDialog
ls
(
noticeToDialog
wId
okId
notice
)
ps
getDialogType
::
(
Notice
.
ls
.
ps
)
->
WindowType
//
getDialogType :: (Notice .ls .ps) -> WindowType
getDialogType
_
=
"Notice"
openNotice
::
!(
Notice
.
ls
*(
PSt
.
l
))
!*(
PSt
.
l
)
->
*
PSt
.
l
openNotice
notice
ps
=
snd
(
openModalDialog
undef
notice
ps
)
// = snd (openModalDialog undef notice ps)
#
(_,
ps
)
=
openModalDialog
undef
notice
ps
=
ps
//noticeToDialog :: Id Id !(Notice .ls (PSt .l)) -> Dialog
noticeToDialog
wid
okid
(
Notice
texts
ok
buttons
)
...
...
@@ -66,19 +68,19 @@ okNotice text ps :== openNotice (Notice text (NoticeButton "OK" (\x->x)) []) ps
instance
Dialogs
TimedNotice
where
openDialog
::
.
ls
(
TimedNotice
.
ls
(
PSt
.
l
))
(
PSt
.
l
)
->
(!
ErrorReport
,
!
PSt
.
l
)
//
openDialog :: .ls (TimedNotice .ls (PSt .l)) (PSt .l) -> (!ErrorReport, !PSt .l)
openDialog
ls
notice
ps
#
(
wId
,
ps
)
=
accPIO
openId
ps
(
okId
,
ps
)
=
accPIO
openId
ps
=
openDialog
ls
(
timednoticeToDialog
wId
okId
notice
)
ps
openModalDialog
::
.
ls
(
TimedNotice
.
ls
(
PSt
.
l
))
(
PSt
.
l
)
->
(!(!
ErrorReport
,!
Maybe
.
ls
),!
PSt
.
l
)
//
openModalDialog :: .ls (TimedNotice .ls (PSt .l)) (PSt .l) -> (!(!ErrorReport,!Maybe .ls),!PSt .l)
openModalDialog
ls
notice
ps
#
(
wId
,
ps
)
=
accPIO
openId
ps
(
okId
,
ps
)
=
accPIO
openId
ps
=
openModalDialog
ls
(
timednoticeToDialog
wId
okId
notice
)
ps
getDialogType
::
(
TimedNotice
.
ls
.
ps
)
->
WindowType
//
getDialogType :: (TimedNotice .ls .ps) -> WindowType
getDialogType
_
=
"TimerNotice"
...
...
Util/FontEnv.dcl
View file @
7e5709f0
...
...
@@ -11,6 +11,6 @@ where
getFontMetricsFE
::
!
Font
!*
env
->
(!
FontMetrics
,
!*
env
)
// accFontEnv :: (*Picture -> (a,*Picture)) -> EditMonad !*env a
instance
FontEnv
(*
Picture
)
instance
FontEnv
Picture
instance
FontEnv
(
PSt
.
l
)
instance
FontEnv
World
Util/FontEnv.icl
View file @
7e5709f0
...
...
@@ -11,7 +11,7 @@ where
getFontMetricsFE
::
!
Font
!*
env
->
(!
FontMetrics
,
!*
env
)
// accFontEnv :: (*Picture -> (a,*Picture)) -> EditMonad !*env a
instance
FontEnv
(*
Picture
)
instance
FontEnv
Picture
where
openDialogFontFE
e
=
openDialogFont
e
openFontFE
f
e
=
openFont
f
e
...
...
Util/StdListBox.dcl
View file @
7e5709f0
...
...
@@ -2,12 +2,7 @@ definition module StdListBox
import
StdControl
,
StdControlClass
,
StdId
,
StdPSt
//1.3
::
ListBoxControl
ls
ps
//3.1
/*2.0
:: *ListBoxControl ls ps
0.2*/
=
ListBoxControl
[
String
]
[
Int
]
ListBoxId
[
ControlAttribute
*(
ls
,
ps
)]
instance
Controls
ListBoxControl
...
...
Util/StdListBox.icl
View file @
7e5709f0
...
...
@@ -37,12 +37,7 @@ import ioutil
|
OutCloseAllItems
// Reply to remove all items
|
OutTwiddleItems
//1.3
::
ListBoxControl
ls
ps
//3.1
/*2.0
:: *ListBoxControl ls ps
0.2*/
=
ListBoxControl
[
String
]
[
Int
]
ListBoxId
[
ControlAttribute
*(
ls
,
ps
)]
instance
Controls
ListBoxControl
...
...
@@ -163,12 +158,7 @@ calcControlDomain allItems ps
// The receiver function:
//1.3
receiver
::
MessageIn
((*
ListBoxState
,.
ls
),
PSt
.
l
)
->
(
MessageOut
,((*
ListBoxState
,.
ls
),
PSt
.
l
))
//3.1
/*2.0
receiver :: MessageIn ((*ListBoxState,.ls),PSt *l) -> (MessageOut,((*ListBoxState,.ls),PSt *l))
0.2*/
// Return the current selection:
receiver
InGetSelection
((
listboxState
=:{
items
,
selection
},
ls
),
ps
)
...
...
Util/ioutil.dcl
View file @
7e5709f0
...
...
@@ -6,12 +6,7 @@ from commondef import unzip3,unzip4
instance
toString
FontDef
//1.3
instance
accScreenPicture
(
PSt
.
l
)
//3.1
/*2.0
instance accScreenPicture (PSt *l)
0.2*/
instance
FileEnv
Files
safeOpenFixedFont
::
!
FontDef
!*
Picture
->
(
Font
,*
Picture
);
...
...
@@ -32,4 +27,3 @@ getPenAttributeColour :: ![.PenAttribute] -> Colour;
getPenAttributeBack
::
![.
PenAttribute
]
->
Colour
;
seqmap
::
(.
a
->
.(.
b
->
.
b
))
![.
a
]
!.
b
->
.
b
;
notEmpty
s
:==
not
(
isEmpty
s
)
selectDirectory`
::
!(
PSt
*
l
)
->
(!
Maybe
String
,!(
PSt
*
l
))
Util/ioutil.icl
View file @
7e5709f0
...
...
@@ -140,86 +140,3 @@ seqmap f [h:t] e
notEmpty
s
:==
not
(
isEmpty
s
)
import
StdTuple
,
clCCall_12
,
clCrossCall_12
from
osfileselect
import
osInitialiseFileSelectors
from
scheduler
import
handleOneEventForDevices
from
commondef
import
fatalError
selectDirectory`
::
!(
PSt
*
l
)
->
(!
Maybe
String
,!(
PSt
*
l
))
selectDirectory`
env
// = selectDirectory Nothing env
#
initial
=
global
.[
0
]
#
(
result
,
env
)
=
selectDirectory
initial
env