salsa/components/salsa-macro-rules/src/setup_interned_struct.rs
CheaterCodes 13a2bd7461
Changed return_ref syntax to returns(as_ref) and returns(cloned) (#772)
* Changed `return_ref` syntax to `returns(as_ref)` and `returns(cloned)`

* Implement

* renamed module for return_mode

* Rename macro, fix docs, add tests, validate return modes

* Cargo fmt

---------

Co-authored-by: Micha Reiser <micha@reiser.io>
2025-05-09 07:28:54 +00:00

250 lines
10 KiB
Rust

/// Macro for setting up a function that must intern its arguments.
#[macro_export]
macro_rules! setup_interned_struct {
(
// Attributes on the struct
attrs: [$(#[$attr:meta]),*],
// Visibility of the struct
vis: $vis:vis,
// Name of the struct
Struct: $Struct:ident,
// Name of the struct data. This is a parameter because `std::concat_idents`
// is unstable and taking an additional dependency is unnecessary.
StructData: $StructDataIdent:ident,
// Name of the struct type with a `'static` argument (unless this type has no db lifetime,
// in which case this is the same as `$Struct`)
StructWithStatic: $StructWithStatic:ty,
// Name of the `'db` lifetime that the user gave
db_lt: $db_lt:lifetime,
// optional db lifetime argument.
db_lt_arg: $($db_lt_arg:lifetime)?,
// the salsa ID
id: $Id:path,
// the lifetime used in the desugared interned struct.
// if the `db_lt_arg`, is present, this is `db_lt_arg`, but otherwise,
// it is `'static`.
interior_lt: $interior_lt:lifetime,
// Name user gave for `new`
new_fn: $new_fn:ident,
// A series of option tuples; see `setup_tracked_struct` macro
field_options: [$($field_option:tt),*],
// Field names
field_ids: [$($field_id:ident),*],
// Names for field setter methods (typically `set_foo`)
field_getters: [$($field_getter_vis:vis $field_getter_id:ident),*],
// Field types
field_tys: [$($field_ty:ty),*],
// Indices for each field from 0..N -- must be unsuffixed (e.g., `0`, `1`).
field_indices: [$($field_index:tt),*],
// Indexed types for each field (T0, T1, ...)
field_indexed_tys: [$($indexed_ty:ident),*],
// Number of fields
num_fields: $N:literal,
// If true, generate a debug impl.
generate_debug_impl: $generate_debug_impl:tt,
// Annoyingly macro-rules hygiene does not extend to items defined in the macro.
// We have the procedural macro generate names for those items that are
// not used elsewhere in the user's code.
unused_names: [
$zalsa:ident,
$zalsa_struct:ident,
$Configuration:ident,
$CACHE:ident,
$Db:ident,
]
) => {
$(#[$attr])*
#[derive(Copy, Clone, PartialEq, PartialOrd, Eq, Ord, Hash)]
$vis struct $Struct< $($db_lt_arg)? >(
$Id,
std::marker::PhantomData < & $interior_lt salsa::plumbing::interned::Value <$StructWithStatic> >
);
#[allow(clippy::all)]
#[allow(dead_code)]
const _: () = {
use salsa::plumbing as $zalsa;
use $zalsa::interned as $zalsa_struct;
type $Configuration = $StructWithStatic;
type $StructDataIdent<$db_lt> = ($($field_ty,)*);
/// Key to use during hash lookups. Each field is some type that implements `Lookup<T>`
/// for the owned type. This permits interning with an `&str` when a `String` is required and so forth.
#[derive(Hash)]
struct StructKey<$db_lt, $($indexed_ty),*>(
$($indexed_ty,)*
std::marker::PhantomData<&$db_lt ()>,
);
impl<$db_lt, $($indexed_ty,)*> $zalsa::interned::HashEqLike<StructKey<$db_lt, $($indexed_ty),*>>
for $StructDataIdent<$db_lt>
where
$($field_ty: $zalsa::interned::HashEqLike<$indexed_ty>),*
{
fn hash<H: std::hash::Hasher>(&self, h: &mut H) {
$($zalsa::interned::HashEqLike::<$indexed_ty>::hash(&self.$field_index, &mut *h);)*
}
fn eq(&self, data: &StructKey<$db_lt, $($indexed_ty),*>) -> bool {
($($zalsa::interned::HashEqLike::<$indexed_ty>::eq(&self.$field_index, &data.$field_index) && )* true)
}
}
impl<$db_lt, $($indexed_ty: $zalsa::interned::Lookup<$field_ty>),*> $zalsa::interned::Lookup<$StructDataIdent<$db_lt>>
for StructKey<$db_lt, $($indexed_ty),*> {
#[allow(unused_unit)]
fn into_owned(self) -> $StructDataIdent<$db_lt> {
($($zalsa::interned::Lookup::into_owned(self.$field_index),)*)
}
}
impl salsa::plumbing::interned::Configuration for $StructWithStatic {
const LOCATION: $zalsa::Location = $zalsa::Location {
file: file!(),
line: line!(),
};
const DEBUG_NAME: &'static str = stringify!($Struct);
type Fields<'a> = $StructDataIdent<'a>;
type Struct<'db> = $Struct< $($db_lt_arg)? >;
}
impl $Configuration {
// Suppress the lint against `cfg(loom)`.
#[allow(unexpected_cfgs)]
pub fn ingredient<Db>(db: &Db) -> &$zalsa_struct::IngredientImpl<Self>
where
Db: ?Sized + $zalsa::Database,
{
$zalsa::__maybe_lazy_static! {
static CACHE: $zalsa::IngredientCache<$zalsa_struct::IngredientImpl<$Configuration>> =
$zalsa::IngredientCache::new();
}
let zalsa = db.zalsa();
CACHE.get_or_create(zalsa, || {
zalsa.add_or_lookup_jar_by_type::<$zalsa_struct::JarImpl<$Configuration>>()
})
}
}
impl< $($db_lt_arg)? > $zalsa::AsId for $Struct< $($db_lt_arg)? > {
fn as_id(&self) -> salsa::Id {
self.0.as_id()
}
}
impl< $($db_lt_arg)? > $zalsa::FromId for $Struct< $($db_lt_arg)? > {
fn from_id(id: salsa::Id) -> Self {
Self(<$Id>::from_id(id), std::marker::PhantomData)
}
}
unsafe impl< $($db_lt_arg)? > Send for $Struct< $($db_lt_arg)? > {}
unsafe impl< $($db_lt_arg)? > Sync for $Struct< $($db_lt_arg)? > {}
$zalsa::macro_if! { $generate_debug_impl =>
impl< $($db_lt_arg)? > std::fmt::Debug for $Struct< $($db_lt_arg)? > {
fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
Self::default_debug_fmt(*self, f)
}
}
}
impl< $($db_lt_arg)? > $zalsa::SalsaStructInDb for $Struct< $($db_lt_arg)? > {
type MemoIngredientMap = $zalsa::MemoIngredientSingletonIndex;
fn lookup_or_create_ingredient_index(aux: &$zalsa::Zalsa) -> $zalsa::IngredientIndices {
aux.add_or_lookup_jar_by_type::<$zalsa_struct::JarImpl<$Configuration>>().into()
}
#[inline]
fn cast(id: $zalsa::Id, type_id: $zalsa::TypeId) -> $zalsa::Option<Self> {
if type_id == $zalsa::TypeId::of::<$Struct>() {
$zalsa::Some(<$Struct as $zalsa::FromId>::from_id(id))
} else {
$zalsa::None
}
}
}
unsafe impl< $($db_lt_arg)? > $zalsa::Update for $Struct< $($db_lt_arg)? > {
unsafe fn maybe_update(old_pointer: *mut Self, new_value: Self) -> bool {
if unsafe { *old_pointer } != new_value {
unsafe { *old_pointer = new_value };
true
} else {
false
}
}
}
impl<$db_lt> $Struct< $($db_lt_arg)? > {
pub fn $new_fn<$Db, $($indexed_ty: $zalsa::interned::Lookup<$field_ty> + std::hash::Hash,)*>(db: &$db_lt $Db, $($field_id: $indexed_ty),*) -> Self
where
// FIXME(rust-lang/rust#65991): The `db` argument *should* have the type `dyn Database`
$Db: ?Sized + salsa::Database,
$(
$field_ty: $zalsa::interned::HashEqLike<$indexed_ty>,
)*
{
$Configuration::ingredient(db).intern(db.as_dyn_database(),
StructKey::<$db_lt>($($field_id,)* std::marker::PhantomData::default()), |_, data| ($($zalsa::interned::Lookup::into_owned(data.$field_index),)*))
}
$(
$field_getter_vis fn $field_getter_id<$Db>(self, db: &'db $Db) -> $zalsa::return_mode_ty!($field_option, 'db, $field_ty)
where
// FIXME(rust-lang/rust#65991): The `db` argument *should* have the type `dyn Database`
$Db: ?Sized + $zalsa::Database,
{
let fields = $Configuration::ingredient(db).fields(db.as_dyn_database(), self);
$zalsa::return_mode_expression!(
$field_option,
$field_ty,
&fields.$field_index,
)
}
)*
/// Default debug formatting for this struct (may be useful if you define your own `Debug` impl)
pub fn default_debug_fmt(this: Self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
$zalsa::with_attached_database(|db| {
let fields = $Configuration::ingredient(db).fields(db.as_dyn_database(), this);
let mut f = f.debug_struct(stringify!($Struct));
$(
let f = f.field(stringify!($field_id), &fields.$field_index);
)*
f.finish()
}).unwrap_or_else(|| {
f.debug_tuple(stringify!($Struct))
.field(&$zalsa::AsId::as_id(&this))
.finish()
})
}
}
};
};
}