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
S
StdEnv-doc
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
StdEnv-doc
Commits
7ed30c4c
Commit
7ed30c4c
authored
Jun 26, 2019
by
johnvg@science.ru.nl
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add strictness annotations to from_then functions for strict and unboxed lists
parent
c192112e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
11 deletions
+11
-11
_SystemEnumStrict.dcl
_SystemEnumStrict.dcl
+6
-6
_SystemEnumStrict.icl
_SystemEnumStrict.icl
+5
-5
No files found.
_SystemEnumStrict.dcl
View file @
7ed30c4c
...
...
@@ -35,12 +35,12 @@ _from_to_o :: !a !a -> .(l a) | Enum a & List l a
l
=[#!],
a
=
Int
;
};
_from_then_s
::
a
a
->
.[!
a
]
|
Enum
a
special
{
a
=
Int
};
_from_then_ts
::
a
a
->
.[
a
!]
|
Enum
a
special
{
a
=
Int
};
_from_then_sts
::
a
a
->
.[!
a
!]
|
Enum
a
special
{
a
=
Int
};
_from_then_u
::
a
a
->
.[#
a
]
|
Enum
,
UList
a
special
{
a
=
Int
};
_from_then_uts
::
a
a
->
.[#
a
!]
|
Enum
,
UTSList
a
special
{
a
=
Int
};
_from_then_o
::
a
a
->
.(
l
a
)
|
Enum
a
&
List
l
a
_from_then_s
::
!
a
a
->
.[!
a
]
|
Enum
a
special
{
a
=
Int
};
_from_then_ts
::
!
a
!
a
->
.[
a
!]
|
Enum
a
special
{
a
=
Int
};
_from_then_sts
::
!
a
!
a
->
.[!
a
!]
|
Enum
a
special
{
a
=
Int
};
_from_then_u
::
!
a
a
->
.[#
a
]
|
Enum
,
UList
a
special
{
a
=
Int
};
_from_then_uts
::
!
a
!
a
->
.[#
a
!]
|
Enum
,
UTSList
a
special
{
a
=
Int
};
_from_then_o
::
a
a
->
.(
l
a
)
|
Enum
a
&
List
l
a
special
{
l
=[],
a
=
Int
;
l
=[!],
a
=
Int
;
...
...
_SystemEnumStrict.icl
View file @
7ed30c4c
...
...
@@ -65,19 +65,19 @@ _from_to_o n e
_from_by
n
s
=
[|
n
:
_from_by
(
n
+
s
)
s
];
_from_then_s
::
a
a
->
.[!
a
]
|
Enum
a
;
_from_then_s
::
!
a
a
->
.[!
a
]
|
Enum
a
;
_from_then_s
n1
n2
=
[|
n1
:
_from_by
n2
(
n2
-
n1
)];
_from_then_ts
::
a
a
->
.[
a
!]
|
Enum
a
;
_from_then_ts
::
!
a
!
a
->
.[
a
!]
|
Enum
a
;
_from_then_ts
n1
n2
=
[|
n1
:
_from_by
n2
(
n2
-
n1
)];
_from_then_sts
::
a
a
->
.[!
a
!]
|
Enum
a
;
_from_then_sts
::
!
a
!
a
->
.[!
a
!]
|
Enum
a
;
_from_then_sts
n1
n2
=
[|
n1
:
_from_by
n2
(
n2
-
n1
)];
_from_then_u
::
a
a
->
.[#
a
]
|
Enum
,
UList
a
;
_from_then_u
::
!
a
a
->
.[#
a
]
|
Enum
,
UList
a
;
_from_then_u
n1
n2
=
[|
n1
:
_from_by
n2
(
n2
-
n1
)];
_from_then_uts
::
a
a
->
.[#
a
!]
|
Enum
,
UTSList
a
;
_from_then_uts
::
!
a
!
a
->
.[#
a
!]
|
Enum
,
UTSList
a
;
_from_then_uts
n1
n2
=
[|
n1
:
_from_by
n2
(
n2
-
n1
)];
_from_then_o
::
a
a
->
.(
l
a
)
|
Enum
a
&
List
l
a
;
...
...
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