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

wip

Browse source
This commit is contained in:
Richard Feldman 2020-05-22 22:25:27 -04:00
parent 42e3d35564
commit 887ec9860a
13 changed files with 83 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

20
compiler/can/src/builtins.rs
View file

@ -1,8 +1,8 @@
use crate::def::Def;
use crate::expr::Expr;
use crate::expr::Recursive;
use crate::expr::{Expr, Recursive};
use roc_collections::all::SendMap;
use roc_module::ident::TagName;
use roc_module::low_level::LowLevel;
use roc_module::operator::CalledVia;
use roc_module::symbol::Symbol;
use roc_region::all::{Located, Region};
@ -27,6 +27,7 @@ use roc_types::subs::{VarStore, Variable};
/// which works fine because it doesn't involve any open tag unions.
pub fn builtin_defs(var_store: &VarStore) -> Vec<Def> {
vec![
list_len(var_store),
list_get(var_store),
list_first(var_store),
int_div(var_store),
@ -83,6 +84,21 @@ fn int_is_even(var_store: &VarStore) -> Def {
)
}
/// List.len : List * -> Int
fn list_len(var_store: &VarStore) -> Def {
use crate::expr::Expr::*;
// Polymorphic wrapper around LowLevel::ListGet
defn(
Symbol::LIST_LEN,
vec![Symbol::LIST_LEN_ARG],
var_store,
RunLowLevel(LowLevel::ListLen {
arg_from_scope: Symbol::LIST_LEN_ARG,
}),
)
}
/// List.get : List elem, Int -> Result elem [ OutOfBounds ]*
fn list_get(var_store: &VarStore) -> Def {
use crate::expr::Expr::*;