# -*- perl -*-
#
# Test aliases

Attributes {
    var1 {
        Int32 x 14;
	Int32 y 15, 16, 17;
	component1 {
	    Float64 g 6.02e23;
	    String name "A part of the whole";
	}
    }
    
    # Alias `var2' to the existing `var1.component'.
    Alias component2 var1.component1;
}