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
85d8ebcd
Commit
85d8ebcd
authored
Oct 18, 2010
by
John van Groningen
Browse files
in UtilStrictLists use :: List t :== [!t!]
parent
fefe2be0
Changes
6
Hide whitespace changes
Inline
Side-by-side
Ide/conswin.icl
View file @
85d8ebcd
...
...
@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow
import
EdMouse
,
EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,::
List
(
:!
)
,
IsEmptyList
from
UtilStrictLists
import
StrictListToList
,::
List
,
:!,
IsEmptyList
import
IDE
,
IdeState
,
UtilObjectIO
...
...
Ide/typewin.icl
View file @
85d8ebcd
...
...
@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow
import
EdMouse
,
EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,::
List
(
:!
)
,
IsEmptyList
from
UtilStrictLists
import
StrictListToList
,::
List
,
:!,
IsEmptyList
import
IDE
,
IdeState
,
UtilObjectIO
import
morecontrols
,
colorpickcontrol
,
ioutil
,
colourclip
...
...
Pm/PmFiles.dcl
View file @
85d8ebcd
...
...
@@ -33,10 +33,6 @@ ProjectFileVersion :== "1.4"
,
pg_postlink
::
!
Maybe
String
// experiment: move to LinkOptions
}
::
ProjectStaticInfo
=
{
stat_paths
::
!
List
Pathname
}
::
ProjectDynamicInfo
=
{
dyn_syms
::
!
List
UndefSymbol
,
dyn_mods
::
!
List
UndefModule
...
...
@@ -46,7 +42,6 @@ ProjectFileVersion :== "1.4"
,
dyn_paths
::
!
List
Pathname
}
EmptyStaticInfo
::
ProjectStaticInfo
EmptyDynamicInfo
::
ProjectDynamicInfo
::
UndefSymbol
=
...
...
Pm/PmFiles.icl
View file @
85d8ebcd
...
...
@@ -26,15 +26,6 @@ ProjectFileVersion :== "1.4"
,
pg_postlink
::
!
Maybe
String
}
::
ProjectStaticInfo
=
{
stat_paths
::
!
List
Pathname
}
EmptyStaticInfo
::
ProjectStaticInfo
EmptyStaticInfo
=
{
stat_paths
=
Nil
}
::
ProjectDynamicInfo
=
{
dyn_syms
::
!
List
UndefSymbol
,
dyn_mods
::
!
List
UndefModule
...
...
Util/UtilStrictLists.dcl
View file @
85d8ebcd
...
...
@@ -4,8 +4,12 @@ import StdString, StdClass
// A strict list data structure
::
List
t
=
(:!)
infixr
0
!
t
!(
List
t
)
|
Nil
::
List
t
:==
[!
t
!]
Nil
:==
[!!]
(:!)
infixr
0
(:!)
h
t
:==[!
h
:
t
!]
instance
toString
(
List
a
)
|
toString
a
...
...
Util/UtilStrictLists.icl
View file @
85d8ebcd
...
...
@@ -4,8 +4,12 @@ import StdArray, StdBool, StdClass, StdInt, StdList, StdMisc, StdOrdList, StdStr
// A strict list data structure
::
List
t
=
(:!)
infixr
0
!
t
!(
List
t
)
|
Nil
::
List
t
:==
[!
t
!]
Nil
:==
[!!]
(:!)
infixr
0
(:!)
h
t
:==[!
h
:
t
!]
instance
toString
(
List
a
)
|
toString
a
where
...
...
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