CommandHelper subset_of() Procedure

auto_include.ms

proc _subset_of(@arrayA, @arrayB) {
    if (!is_array(@arrayA) || !is_array(@arrayB) ||
          is_associative(@arrayA) != is_associative(@arrayB)) {
        return(false)
    }
    foreach (@key : @valueA in @arrayA) {
        @valueB = array_get(@arrayB, @key, null)
        if (@valueB == null 
                || typeof(@valueB) != typeof(@valueA)) {
            return(false)
        }
        if (is_array(@valueB) && !_subset_of(@valueA, @valueB)) {
            return(false)
        } else if (!equals(@valueA, @valueB)) {
            return (false)
        }
    }
    return(true)
}