✨ Late properties aliasing.

Author: iago-lito

src/Framework/method_macro.jl

@@ -495,3 +495,24 @@ function eval_dependency(mod, xp, ctx, err)
         check_component_type_or_instance(xp, dep, ctx, err)
     end
 end
+
+# Call later to append aliases.
+# TODO: this is only tested by the above client package yet. Test within framework tests.
+macro alias(a, b, V)
+    a, b = Meta.quot.((a, b))
+    quote
+        $alias_property!($a, $b, $V)
+    end
+end
+export @alias
+function alias_property!(a, b, V)
+    # Extract original.
+    (A, B) = property_space_type.((a, b), (V,))
+    (Pa, Pb) = super.((A, B))
+    (na, nb) = last_in_path.((a, b))
+    fn_a = read_property(Pa, Val(na)) # Checked.
+    fn_a! = possible_write_property(Pa, Val(na))
+    set_read_property!(Pb, nb, fn_a)
+    isnothing(fn_a!) && return
+    set_write_property!(Pb, nb, fn_a!)
+end

src/components/main.jl

@@ -36,8 +36,14 @@ include("./class.jl")
 
 # XXX: this is how we may define this component now. Use to work on `exposed_data`.
 @class_component species Species s
+@alias species.number S
+@alias S richness
+@alias S species.richness
 export Species
 
+# Extra aliases required by the audience.
+#  S, richness, species.richness
+
 # Helpers.
 #  include("./macros_keywords.jl")
 #  include("./shared.jl")

src/dedicate_framework_to_model.jl

@@ -82,6 +82,13 @@ macro propspace(path)
     end
 end
 
+# Convenience macro to alias properties.
+macro alias(a, b)
+    quote
+        F.@alias($a, $b, $Internal)
+    end
+end
+
 # ==========================================================================================
 # The above defines var"get_a.b" method names for nested properties
 # to avoid possible ambiguity with `get_a_b`.