language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-28 14:24:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Merge branch 'trunk' of github.com:rtfeldman/roc into builtin-sortby

Browse source
This commit is contained in:
Eric Henry 2021-04-03 10:03:45 -04:00
commit 8e36b5797b
60 changed files with 2917 additions and 963 deletions
Download patch file Download diff file Expand all files Collapse all files

46
compiler/builtins/src/std.rs
View file

@ -34,22 +34,14 @@ macro_rules! let_tvars {
};
}
#[derive(Clone, Copy, Debug)]
pub enum Mode {
Standard,
Uniqueness,
}
#[derive(Debug, Clone)]
pub struct StdLib {
pub mode: Mode,
pub types: MutMap<Symbol, (SolvedType, Region)>,
pub applies: MutSet<Symbol>,
}
pub fn standard_stdlib() -> StdLib {
StdLib {
mode: Mode::Standard,
types: types(),
applies: vec![
Symbol::LIST_LIST,
@ -771,6 +763,34 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
),
);
fn until_type(content: SolvedType) -> SolvedType {
// [ LT, EQ, GT ]
SolvedType::TagUnion(
vec![
(TagName::Global("Continue".into()), vec![content.clone()]),
(TagName::Global("Stop".into()), vec![content]),
],
Box::new(SolvedType::EmptyTagUnion),
)
}
// walkUntil : List elem, (elem -> accum -> [ Continue accum, Stop accum ]), accum -> accum
add_type(
Symbol::LIST_WALK_UNTIL,
top_level_function(
vec![
list_type(flex(TVAR1)),
closure(
vec![flex(TVAR1), flex(TVAR2)],
TVAR3,
Box::new(until_type(flex(TVAR2))),
),
flex(TVAR2),
],
Box::new(flex(TVAR2)),
),
);
// keepIf : List elem, (elem -> Bool) -> List elem
add_type(
Symbol::LIST_KEEP_IF,
@ -799,7 +819,7 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
)
});
// keepOks : List before, (before -> Result * after) -> List after
// keepErrs: List before, (before -> Result * after) -> List after
add_type(Symbol::LIST_KEEP_ERRS, {
let_tvars! { star, cvar, before, after};
top_level_function(
@ -815,6 +835,14 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
)
});
// range : Int a, Int a -> List (Int a)
add_type(Symbol::LIST_RANGE, {
top_level_function(
vec![int_type(flex(TVAR1)), int_type(flex(TVAR1))],
Box::new(list_type(int_type(flex(TVAR1)))),
)
});
// map : List before, (before -> after) -> List after
add_type(
Symbol::LIST_MAP,