bos-meta-attribute.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118

#!bash 
 
# this must be callable without a `self`, see 
# bos/meta/class/get-attribute-by-name-into 
function bos/meta/attribute/store-for-into() {
    local bos_meta_attribute_class bos_meta_attribute_objid
    bos-object/unpack-self-into bos_meta_attribute_class bos_meta_attribute_objid "$2"
 
    "bos-namespaces/store-${attribute_type}-for-into" "$1" attribute "$attribute_name" "$associated_class" "$bos_meta_attribute_class" "$bos_meta_attribute_objid"
}
 
function bos/meta/attribute/get-attribute-name-into() {
        local attribute_type='scalar'
        local associated_class='bos/meta/attribute'
 
        local bos_meta_attribute_name_store
        local attribute_name='attribute_name'
        bos/meta/attribute/store-for-into bos_meta_attribute_name_store "$self"
 
        local -n bos_meta_attribute_name="$bos_meta_attribute_name_store"
 
        >&2 echo "get-attribute-name-into($1)<-$bos_meta_attribute_name_store"
        local -n bos_meta_attribute_name_dest="$1"
        bos_meta_attribute_name_dest="$bos_meta_attribute_name"
}
 
function bos/meta/attribute/get-attribute-type-into() {
        local attribute_type='scalar'
        local associated_class='bos/meta/attribute'
 
        local bos_meta_attribute_type_store
        local attribute_name='attribute_type'
        bos/meta/attribute/store-for-into bos_meta_attribute_type_store "$self"
 
        local -n bos_meta_attribute_type="$bos_meta_attribute_type_store"
 
        local -n bos_meta_attribute_type_dest="$1"
        bos_meta_attribute_type_dest="$bos_meta_attribute_type"
}
 
function bos/meta/attribute/get-associated-class-into() {
        local attribute_type='scalar'
        local associated_class='bos/meta/attribute'
 
        local bos_meta_attribute_class_store
        local attribute_name='associated_class'
        bos/meta/attribute/store-for-into bos_meta_attribute_class_store "$self"
 
        local -n bos_meta_attribute_class="$bos_meta_attribute_class_store"
 
        local -n bos_meta_attribute_class_dest="$1"
        bos_meta_attribute_class_dest="$bos_meta_attribute_class"
}
 
function bos/meta/attribute/set-value() {
    # the `if` is there because bos-meta-bootstrap.sh sets these manually 
    if [[ -z "$attribute_name" ]]; then
        local bos_meta_attribute_set_name; $self get-attribute-name-into bos_meta_attribute_set_name
        local bos_meta_attribute_set_type; $self get-attribute-type-into bos_meta_attribute_set_type
        local bos_meta_attribute_set_class; $self get-associated-class-into bos_meta_attribute_set_class
 
        local attribute_name="$bos_meta_attribute_set_name"
        local attribute_type="$bos_meta_attribute_set_type"
        local associated_class="$bos_meta_attribute_set_class"
    fi
 
    local bos_meta_attribute_store_name; $self store-for-into bos_meta_attribute_store_name "$1"
    shift
    local -n bos_meta_attribute_store="$bos_meta_attribute_store_name"
 
    case "$attribute_type" in
        scalar) bos_meta_attribute_store="$1" ;;
        array) bos_meta_attribute_store=( "$@" ) ;;
        assoc) eval "bos_meta_attribute_store=( ${@@Q} )" ;;
    esac
 
    >&2 echo -n 'set-value()'; >&2 declare -p "$bos_meta_attribute_store_name"
    
    return 0
}
 
function bos/meta/attribute/get-value-into() {
    local bos_meta_attribute_result_name="$1"
    local -n bos_meta_attribute_result="$1"; shift;
 
    # meta-look! we can't depend on bos-dispatch/invoke or 
    # bos/meta/class/invoke to set these up 
 
    local bos_meta_attribute_get_name; $self get-attribute-name-into bos_meta_attribute_get_name
    local bos_meta_attribute_get_type; $self get-attribute-type-into bos_meta_attribute_get_type
    local bos_meta_attribute_get_class; $self get-associated-class-into bos_meta_attribute_get_class
 
    local attribute_name="$bos_meta_attribute_get_name"
    local attribute_type="$bos_meta_attribute_get_type"
    local associated_class="$bos_meta_attribute_get_class"
 
    >&2 echo "getting ($self) ($attribute_name) ($attribute_type) ($associated_class) ($1)"
 
    local bos_meta_attribute_store_name; $self store-for-into bos_meta_attribute_store_name "$1"
    local -n bos_meta_attribute_store="$bos_meta_attribute_store_name"
 
    local bos_meta_attribute_value_expr
 
    case "$attribute_type" in
        scalar) bos_meta_attribute_result="$bos_meta_attribute_store" ;;
        array) bos_meta_attribute_result=( "${bos_meta_attribute_store[@]}" ) ;;
        assoc)
            bos_meta_attribute_value_expr="$(declare -p "$bos_meta_attribute_store_name")"
            # return if there's no value, otherwise the `eval` would fail 
            [[ "$bos_meta_attribute_value_expr" =~ = ]] || return 0
            eval "bos_meta_attribute_result=${bos_meta_attribute_value_expr#*=}"
            ;;
    esac
 
    >&2 declare -p "$bos_meta_attribute_result_name"
    
    return 0
}