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

Set up many basic details for Str.split- no implementation yet

Browse source
This commit is contained in:
Chad Stearns 2020-09-26 14:54:14 -04:00
parent 7aada6c485
commit 943925e4de
5 changed files with 47 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

37
compiler/gen/src/llvm/build_str.rs
View file

@ -12,6 +12,43 @@ use roc_mono::layout::{Builtin, Layout};
pub static CHAR_LAYOUT: Layout = Layout::Builtin(Builtin::Int8);
/// Str.split : Str, Str -> List Str
pub fn str_split<'a, 'ctx, 'env>(
env: &Env<'a, 'ctx, 'env>,
scope: &Scope<'a, 'ctx>,
parent: FunctionValue<'ctx>,
str_symbol: Symbol,
delimiter_symbol: Symbol,
) -> BasicValueEnum<'ctx> {
let builder = env.builder;
let ctx = env.context;
let str_ptr = ptr_from_symbol(scope, str_symbol);
let delimiter_ptr = ptr_from_symbol(scope, delimiter_symbol);
let str_wrapper_type = BasicTypeEnum::StructType(collection(ctx, env.ptr_bytes));
load_str(
env,
parent,
*str_ptr,
str_wrapper_type,
|_, str_len, str_smallness| {
load_str(
env,
parent,
*delimiter_ptr,
|_, delimiter_len, delimiter_smallness| {
let ret_list_len_alloca =
builder.build_alloca(ctx.i64_type(), "ret_list_len_alloca");
builder.build_store(ret_list_len_alloca, ctx.i64_type().const_zero());
},
)
},
)
}
/// Str.concat : Str, Str -> Str
pub fn str_concat<'a, 'ctx, 'env>(
env: &Env<'a, 'ctx, 'env>,