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

improve names and comments around the new macros

Browse source
This commit is contained in:
Folkert 2022-07-08 23:43:36 +02:00
parent 02fa2eb086
commit a4e1de2f2d
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
2 changed files with 120 additions and 119 deletions
Download patch file Download diff file Expand all files Collapse all files

198
crates/compiler/can/src/builtins.rs
View file

@ -10,115 +10,111 @@ use roc_module::symbol::Symbol;
use roc_region::all::{Loc, Region}; use roc_region::all::{Loc, Region};
use roc_types::subs::{VarStore, Variable}; use roc_types::subs::{VarStore, Variable};
struct DefMap; /// We use a rust macro to ensure that every LowLevel gets handled
macro_rules! map_symbol_to_lowlevel_and_arity {
impl DefMap { ($($lowlevel:ident; $symbol:ident; $number_of_args:literal),* $(,)?) => {
fn arity(n: usize) -> fn(Symbol, LowLevel, &mut VarStore) -> Def { fn def_for_symbol(symbol: Symbol, var_store: &mut VarStore) -> Option<Def> {
match n { // expands to a big (but non-exhaustive) match on symbols and maps them to a def
0 => lowlevel_0, // usually this means wrapping a lowlevel in a `Def` with the right number of
1 => lowlevel_1, // arguments (see the big enumeration below). In this match we have a bunch of cases
2 => lowlevel_2, // where that default strategy does not work.
3 => lowlevel_3, match symbol {
4 => lowlevel_4,
5 => lowlevel_5,
_ => unimplemented!(),
}
}
}
macro_rules! more_macro_magic {
($($lowlevel:ident; $symbol:ident; $number_of_args:literal,)+) => { more_macro_magic!{$($lowlevel; $symbol; $number_of_args),+} };
($($lowlevel:ident; $symbol:ident; $number_of_args:literal),*) => {
impl DefMap {
fn for_symbol(symbol: Symbol, var_store: &mut VarStore) -> Option<Def> {
match symbol {
$( $(
Symbol::$symbol => Some((DefMap::arity($number_of_args))(Symbol::$symbol, LowLevel::$lowlevel, var_store)), Symbol::$symbol => Some((lowlevel_n($number_of_args))(Symbol::$symbol, LowLevel::$lowlevel, var_store)),
)* )*
Symbol::NUM_TO_I8 => Some(lowlevel_1(Symbol::NUM_TO_I8, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_I8 => Some(lowlevel_1(Symbol::NUM_TO_I8, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_I16 => Some(lowlevel_1(Symbol::NUM_TO_I16, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_I16 => Some(lowlevel_1(Symbol::NUM_TO_I16, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_I32 => Some(lowlevel_1(Symbol::NUM_TO_I32, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_I32 => Some(lowlevel_1(Symbol::NUM_TO_I32, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_I64 => Some(lowlevel_1(Symbol::NUM_TO_I64, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_I64 => Some(lowlevel_1(Symbol::NUM_TO_I64, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_I128 => Some(lowlevel_1(Symbol::NUM_TO_I128, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_I128 => Some(lowlevel_1(Symbol::NUM_TO_I128, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_U8 => Some(lowlevel_1(Symbol::NUM_TO_U8, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_U8 => Some(lowlevel_1(Symbol::NUM_TO_U8, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_U16 => Some(lowlevel_1(Symbol::NUM_TO_U16, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_U16 => Some(lowlevel_1(Symbol::NUM_TO_U16, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_U32 => Some(lowlevel_1(Symbol::NUM_TO_U32, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_U32 => Some(lowlevel_1(Symbol::NUM_TO_U32, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_U64 => Some(lowlevel_1(Symbol::NUM_TO_U64, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_U64 => Some(lowlevel_1(Symbol::NUM_TO_U64, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_U128 => Some(lowlevel_1(Symbol::NUM_TO_U128, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_U128 => Some(lowlevel_1(Symbol::NUM_TO_U128, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_NAT => Some(lowlevel_1(Symbol::NUM_TO_NAT, LowLevel::NumIntCast, var_store)), Symbol::NUM_TO_NAT => Some(lowlevel_1(Symbol::NUM_TO_NAT, LowLevel::NumIntCast, var_store)),
Symbol::NUM_INT_CAST => Some(lowlevel_1(Symbol::NUM_INT_CAST, LowLevel::NumIntCast, var_store)), Symbol::NUM_INT_CAST => Some(lowlevel_1(Symbol::NUM_INT_CAST, LowLevel::NumIntCast, var_store)),
Symbol::NUM_TO_F32 => Some(lowlevel_1(Symbol::NUM_TO_F32, LowLevel::NumToFloatCast, var_store)), Symbol::NUM_TO_F32 => Some(lowlevel_1(Symbol::NUM_TO_F32, LowLevel::NumToFloatCast, var_store)),
Symbol::NUM_TO_F64 => Some(lowlevel_1(Symbol::NUM_TO_F64, LowLevel::NumToFloatCast, var_store)), Symbol::NUM_TO_F64 => Some(lowlevel_1(Symbol::NUM_TO_F64, LowLevel::NumToFloatCast, var_store)),
Symbol::NUM_TO_I8_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I8_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_I8_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I8_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_I16_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I16_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_I16_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I16_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_I32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I32_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_I32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I32_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_I64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I64_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_I64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I64_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_I128_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I128_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_I128_CHECKED => Some(to_num_checked(Symbol::NUM_TO_I128_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_U8_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U8_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_U8_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U8_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_U16_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U16_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_U16_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U16_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_U32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U32_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_U32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U32_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_U64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U64_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_U64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U64_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_U128_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U128_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_U128_CHECKED => Some(to_num_checked(Symbol::NUM_TO_U128_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_NAT_CHECKED => Some(to_num_checked(Symbol::NUM_TO_NAT_CHECKED, var_store, LowLevel::NumToIntChecked)), Symbol::NUM_TO_NAT_CHECKED => Some(to_num_checked(Symbol::NUM_TO_NAT_CHECKED, var_store, LowLevel::NumToIntChecked)),
Symbol::NUM_TO_F32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_F32_CHECKED, var_store, LowLevel::NumToFloatChecked)), Symbol::NUM_TO_F32_CHECKED => Some(to_num_checked(Symbol::NUM_TO_F32_CHECKED, var_store, LowLevel::NumToFloatChecked)),
Symbol::NUM_TO_F64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_F64_CHECKED, var_store, LowLevel::NumToFloatChecked)), Symbol::NUM_TO_F64_CHECKED => Some(to_num_checked(Symbol::NUM_TO_F64_CHECKED, var_store, LowLevel::NumToFloatChecked)),
Symbol::NUM_DIV_FRAC => Some(lowlevel_2(Symbol::NUM_DIV_FRAC, LowLevel::NumDivUnchecked, var_store)), Symbol::NUM_DIV_FRAC => Some(lowlevel_2(Symbol::NUM_DIV_FRAC, LowLevel::NumDivUnchecked, var_store)),
Symbol::NUM_DIV_TRUNC => Some(lowlevel_2(Symbol::NUM_DIV_TRUNC, LowLevel::NumDivUnchecked, var_store)), Symbol::NUM_DIV_TRUNC => Some(lowlevel_2(Symbol::NUM_DIV_TRUNC, LowLevel::NumDivUnchecked, var_store)),
Symbol::DICT_EMPTY => Some(dict_empty(Symbol::DICT_EMPTY, var_store)), Symbol::DICT_EMPTY => Some(dict_empty(Symbol::DICT_EMPTY, var_store)),
Symbol::SET_UNION => Some(lowlevel_2(Symbol::SET_UNION, LowLevel::DictUnion, var_store)), Symbol::SET_UNION => Some(lowlevel_2(Symbol::SET_UNION, LowLevel::DictUnion, var_store)),
Symbol::SET_DIFFERENCE => Some(lowlevel_2(Symbol::SET_DIFFERENCE, LowLevel::DictDifference, var_store)), Symbol::SET_DIFFERENCE => Some(lowlevel_2(Symbol::SET_DIFFERENCE, LowLevel::DictDifference, var_store)),
Symbol::SET_INTERSECTION => Some(lowlevel_2(Symbol::SET_INTERSECTION, LowLevel::DictIntersection, var_store)), Symbol::SET_INTERSECTION => Some(lowlevel_2(Symbol::SET_INTERSECTION, LowLevel::DictIntersection, var_store)),
Symbol::SET_TO_LIST => Some(lowlevel_1(Symbol::SET_TO_LIST, LowLevel::DictKeys, var_store)), Symbol::SET_TO_LIST => Some(lowlevel_1(Symbol::SET_TO_LIST, LowLevel::DictKeys, var_store)),
Symbol::SET_REMOVE => Some(lowlevel_2(Symbol::SET_REMOVE, LowLevel::DictRemove, var_store)), Symbol::SET_REMOVE => Some(lowlevel_2(Symbol::SET_REMOVE, LowLevel::DictRemove, var_store)),
Symbol::SET_INSERT => Some(set_insert(Symbol::SET_INSERT, var_store)), Symbol::SET_INSERT => Some(set_insert(Symbol::SET_INSERT, var_store)),
Symbol::SET_EMPTY => Some(set_empty(Symbol::SET_EMPTY, var_store)), Symbol::SET_EMPTY => Some(set_empty(Symbol::SET_EMPTY, var_store)),
Symbol::SET_SINGLE => Some(set_single(Symbol::SET_SINGLE, var_store)), Symbol::SET_SINGLE => Some(set_single(Symbol::SET_SINGLE, var_store)),
_ => None, _ => None,
}
} }
}
fn _enforce_exhaustiveness(lowlevel: LowLevel) -> Symbol { fn _enforce_exhaustiveness(lowlevel: LowLevel) -> Symbol {
match lowlevel { // when adding a new lowlevel, this match will stop being exhaustive, and give a
$( // compiler error. Most likely, you are adding a new lowlevel that maps directly to a
LowLevel::$lowlevel => Symbol::$symbol, // symbol. For instance, you want to have `List.foo` to stand for the `ListFoo`
)* // lowlevel. In that case, see below in the invocation of `map_symbol_to_lowlevel_and_arity!`
//
// Below, we explicitly handle some exceptions to the pattern where a lowlevel maps
// directly to a symbol. If you are unsure if your lowlevel is an exception, assume
// that it isn't and just see if that works.
match lowlevel {
$(
LowLevel::$lowlevel => Symbol::$symbol,
)*
// these are implemented explicitly in for_symbol because they are polymorphic // these are implemented explicitly in for_symbol because they are polymorphic
LowLevel::NumIntCast => unreachable!(), LowLevel::NumIntCast => unreachable!(),
LowLevel::NumToFloatCast => unreachable!(), LowLevel::NumToFloatCast => unreachable!(),
LowLevel::NumToIntChecked => unreachable!(), LowLevel::NumToIntChecked => unreachable!(),
LowLevel::NumToFloatChecked => unreachable!(), LowLevel::NumToFloatChecked => unreachable!(),
LowLevel::NumDivUnchecked => unreachable!(), LowLevel::NumDivUnchecked => unreachable!(),
LowLevel::DictEmpty => unreachable!(), LowLevel::DictEmpty => unreachable!(),
// these are used internally and not tied to a symbol // these are used internally and not tied to a symbol
LowLevel::Hash => unimplemented!(), LowLevel::Hash => unimplemented!(),
LowLevel::PtrCast => unimplemented!(), LowLevel::PtrCast => unimplemented!(),
LowLevel::RefCountInc => unimplemented!(), LowLevel::RefCountInc => unimplemented!(),
LowLevel::RefCountDec => unimplemented!(), LowLevel::RefCountDec => unimplemented!(),
// these are not implemented, not sure why // these are not implemented, not sure why
LowLevel::StrFromInt => unimplemented!(), LowLevel::StrFromInt => unimplemented!(),
LowLevel::StrFromFloat => unimplemented!(), LowLevel::StrFromFloat => unimplemented!(),
LowLevel::NumIsFinite => unimplemented!(), LowLevel::NumIsFinite => unimplemented!(),
}
} }
} }
}; };
} }
more_macro_magic! { // here is where we actually specify the mapping for the fast majority of cases that follow the
// pattern of a symbol mapping directly to a lowlevel. In other words, most lowlevels (left) are generated
// by only one specific symbol (center). We also specify the arity (number of arguments) of the lowlevel (right)
map_symbol_to_lowlevel_and_arity! {
StrConcat; STR_CONCAT; 2, StrConcat; STR_CONCAT; 2,
StrJoinWith; STR_JOIN_WITH; 2, StrJoinWith; STR_JOIN_WITH; 2,
StrIsEmpty; STR_IS_EMPTY; 1, StrIsEmpty; STR_IS_EMPTY; 1,
@ -141,6 +137,7 @@ more_macro_magic! {
StrAppendScalar; STR_APPEND_SCALAR_UNSAFE; 2, StrAppendScalar; STR_APPEND_SCALAR_UNSAFE; 2,
StrGetScalarUnsafe; STR_GET_SCALAR_UNSAFE; 2, StrGetScalarUnsafe; STR_GET_SCALAR_UNSAFE; 2,
StrToNum; STR_TO_NUM; 1, StrToNum; STR_TO_NUM; 1,
ListLen; LIST_LEN; 1, ListLen; LIST_LEN; 1,
ListWithCapacity; LIST_WITH_CAPACITY; 1, ListWithCapacity; LIST_WITH_CAPACITY; 1,
ListReserve; LIST_RESERVE; 2, ListReserve; LIST_RESERVE; 2,
@ -158,6 +155,7 @@ more_macro_magic! {
ListSublist; LIST_SUBLIST_LOWLEVEL; 3, ListSublist; LIST_SUBLIST_LOWLEVEL; 3,
ListDropAt; LIST_DROP_AT; 2, ListDropAt; LIST_DROP_AT; 2,
ListSwap; LIST_SWAP; 3, ListSwap; LIST_SWAP; 3,
DictSize; DICT_LEN; 1, DictSize; DICT_LEN; 1,
DictInsert; DICT_INSERT; 3, DictInsert; DICT_INSERT; 3,
DictRemove; DICT_REMOVE; 2, DictRemove; DICT_REMOVE; 2,
@ -169,8 +167,10 @@ more_macro_magic! {
DictIntersection; DICT_INTERSECTION; 2, DictIntersection; DICT_INTERSECTION; 2,
DictDifference; DICT_DIFFERENCE; 2, DictDifference; DICT_DIFFERENCE; 2,
DictWalk; DICT_WALK; 3, DictWalk; DICT_WALK; 3,
SetFromList; SET_FROM_LIST; 1, SetFromList; SET_FROM_LIST; 1,
SetToDict; SET_TO_DICT; 1, SetToDict; SET_TO_DICT; 1,
NumAdd; NUM_ADD; 2, NumAdd; NUM_ADD; 2,
NumAddWrap; NUM_ADD_WRAP; 2, NumAddWrap; NUM_ADD_WRAP; 2,
NumAddChecked; NUM_ADD_CHECKED_LOWLEVEL; 2, NumAddChecked; NUM_ADD_CHECKED_LOWLEVEL; 2,
@ -183,7 +183,6 @@ more_macro_magic! {
NumMulWrap; NUM_MUL_WRAP; 2, NumMulWrap; NUM_MUL_WRAP; 2,
NumMulSaturated; NUM_MUL_SATURATED; 2, NumMulSaturated; NUM_MUL_SATURATED; 2,
NumMulChecked; NUM_MUL_CHECKED_LOWLEVEL; 2, NumMulChecked; NUM_MUL_CHECKED_LOWLEVEL; 2,
NumGt; NUM_GT; 2, NumGt; NUM_GT; 2,
NumGte; NUM_GTE; 2, NumGte; NUM_GTE; 2,
NumLt; NUM_LT; 2, NumLt; NUM_LT; 2,
@ -216,6 +215,7 @@ more_macro_magic! {
NumShiftRightBy; NUM_SHIFT_RIGHT; 2, NumShiftRightBy; NUM_SHIFT_RIGHT; 2,
NumShiftRightZfBy; NUM_SHIFT_RIGHT_ZERO_FILL; 2, NumShiftRightZfBy; NUM_SHIFT_RIGHT_ZERO_FILL; 2,
NumToStr; NUM_TO_STR; 1, NumToStr; NUM_TO_STR; 1,
Eq; BOOL_EQ; 2, Eq; BOOL_EQ; 2,
NotEq; BOOL_NEQ; 2, NotEq; BOOL_NEQ; 2,
And; BOOL_AND; 2, And; BOOL_AND; 2,
@ -263,19 +263,19 @@ pub fn builtin_dependencies(symbol: Symbol) -> &'static [Symbol] {
pub fn builtin_defs_map(symbol: Symbol, var_store: &mut VarStore) -> Option<Def> { pub fn builtin_defs_map(symbol: Symbol, var_store: &mut VarStore) -> Option<Def> {
debug_assert!(symbol.is_builtin()); debug_assert!(symbol.is_builtin());
DefMap::for_symbol(symbol, var_store) def_for_symbol(symbol, var_store)
} }
fn lowlevel_0(symbol: Symbol, op: LowLevel, var_store: &mut VarStore) -> Def { fn lowlevel_n(n: usize) -> fn(Symbol, LowLevel, &mut VarStore) -> Def {
let ret_var = var_store.fresh(); match n {
0 => unimplemented!(),
let body = RunLowLevel { 1 => lowlevel_1,
op, 2 => lowlevel_2,
args: vec![], 3 => lowlevel_3,
ret_var, 4 => lowlevel_4,
}; 5 => lowlevel_5,
_ => unimplemented!(),
defn(symbol, vec![], var_store, body, ret_var) }
} }
fn lowlevel_1(symbol: Symbol, op: LowLevel, var_store: &mut VarStore) -> Def { fn lowlevel_1(symbol: Symbol, op: LowLevel, var_store: &mut VarStore) -> Def {

41
crates/compiler/module/src/low_level.rs
View file

@ -160,8 +160,6 @@ impl LowLevel {
pub enum LowLevelWrapperType { pub enum LowLevelWrapperType {
/// This wrapper function contains no logic and we can remove it in code gen /// This wrapper function contains no logic and we can remove it in code gen
CanBeReplacedBy(LowLevel), CanBeReplacedBy(LowLevel),
/// This wrapper function contains important logic and we cannot remove it in code gen
WrapperIsRequired,
NotALowLevelWrapper, NotALowLevelWrapper,
} }
@ -171,39 +169,39 @@ impl LowLevelWrapperType {
} }
} }
macro_rules! more_macro_magic { /// We use a rust macro to ensure that every LowLevel gets handled
($($lowlevel:ident <= $symbol:ident)+) => { more_macro_magic!{$($lowlevel <= $symbol),+} }; macro_rules! map_symbol_to_lowlevel {
($($lowlevel:ident <= $symbol:ident),*) => { ($($lowlevel:ident <= $symbol:ident),* $(,)?) => {
fn for_symbol_help(symbol: Symbol) -> LowLevelWrapperType { fn for_symbol_help(symbol: Symbol) -> LowLevelWrapperType {
use $crate::low_level::LowLevelWrapperType::*; use $crate::low_level::LowLevelWrapperType::*;
// expands to a big (but non-exhaustive) match on symbols and maps them to a lowlevel
match symbol { match symbol {
$( $(
Symbol::$symbol => CanBeReplacedBy(LowLevel::$lowlevel), Symbol::$symbol => CanBeReplacedBy(LowLevel::$lowlevel),
)* )*
Symbol::LIST_MAP => WrapperIsRequired,
Symbol::LIST_MAP2 => WrapperIsRequired,
Symbol::LIST_MAP3 => WrapperIsRequired,
Symbol::LIST_MAP4 => WrapperIsRequired,
Symbol::DICT_WALK => WrapperIsRequired,
Symbol::LIST_SORT_WITH => WrapperIsRequired,
Symbol::DICT_GET => WrapperIsRequired,
_ => NotALowLevelWrapper, _ => NotALowLevelWrapper,
} }
} }
fn _enforce_exhaustiveness(lowlevel: LowLevel) -> Symbol { fn _enforce_exhaustiveness(lowlevel: LowLevel) -> Symbol {
// when adding a new lowlevel, this match will stop being exhaustive, and give a
// compiler error. Most likely, you are adding a new lowlevel that maps directly to a
// symbol. For instance, you want to have `List.foo` to stand for the `ListFoo`
// lowlevel. In that case, see below in the invocation of `map_symbol_to_lowlevel!`
//
// Below, we explicitly handle some exceptions to the pattern where a lowlevel maps
// directly to a symbol. If you are unsure if your lowlevel is an exception, assume
// that it isn't and just see if that works.
match lowlevel { match lowlevel {
$( $(
LowLevel::$lowlevel => Symbol::$symbol, LowLevel::$lowlevel => Symbol::$symbol,
)* )*
// these are higher-order lowlevels, hence need the surrounding function to provide // these are higher-order lowlevels. these need the surrounding
// enough type information for code generation // function to provide enough type information for code generation
LowLevel::ListMap => unreachable!(), LowLevel::ListMap => unreachable!(),
LowLevel::ListMap2 => unreachable!(), LowLevel::ListMap2 => unreachable!(),
LowLevel::ListMap3 => unreachable!(), LowLevel::ListMap3 => unreachable!(),
@ -211,11 +209,11 @@ macro_rules! more_macro_magic {
LowLevel::ListSortWith => unreachable!(), LowLevel::ListSortWith => unreachable!(),
LowLevel::DictWalk => unreachable!(), LowLevel::DictWalk => unreachable!(),
// The BoxExpr operation is turned into mono Expr // (un)boxing is handled in a custom way
LowLevel::BoxExpr => unreachable!(), LowLevel::BoxExpr => unreachable!(),
LowLevel::UnboxExpr => unreachable!(), LowLevel::UnboxExpr => unreachable!(),
// these are implemented explicitly in for_symbol because they are polymorphic // these functions return polymorphic values
LowLevel::NumIntCast => unreachable!(), LowLevel::NumIntCast => unreachable!(),
LowLevel::NumToFloatCast => unreachable!(), LowLevel::NumToFloatCast => unreachable!(),
LowLevel::NumToIntChecked => unreachable!(), LowLevel::NumToIntChecked => unreachable!(),
@ -239,7 +237,10 @@ macro_rules! more_macro_magic {
}; };
} }
more_macro_magic! { // here is where we actually specify the mapping for the fast majority of cases that follow the
// pattern of a symbol mapping directly to a lowlevel. In other words, most lowlevels (left) are generated
// by only one specific symbol (right)
map_symbol_to_lowlevel! {
StrConcat <= STR_CONCAT, StrConcat <= STR_CONCAT,
StrJoinWith <= STR_JOIN_WITH, StrJoinWith <= STR_JOIN_WITH,
StrIsEmpty <= STR_IS_EMPTY, StrIsEmpty <= STR_IS_EMPTY,
@ -335,5 +336,5 @@ more_macro_magic! {
And <= BOOL_AND, And <= BOOL_AND,
Or <= BOOL_OR, Or <= BOOL_OR,
Not <= BOOL_NOT, Not <= BOOL_NOT,
Unreachable <= LIST_UNREACHABLE Unreachable <= LIST_UNREACHABLE,
} }