kind.h

/* Jazz (c) 2018-2026 kaalam.ai (The Authors of Jazz), using (under the same license):
 
    1. Biomodelling - The AATBlockQueue class (c) Jacques Basaldúa, 2009-2012 licensed
      exclusively for the use in the Jazz server software.
 
      Copyright 2009-2012 Jacques Basaldúa
 
    2. BBVA - Jazz: A lightweight analytical web server for data-driven applications.
 
      Copyright 2016-2017 Banco Bilbao Vizcaya Argentaria, S.A.
 
      This product includes software developed at
 
      BBVA (https://www.bbva.com/)
 
    3. LMDB, Copyright 2011-2017 Howard Chu, Symas Corp. All rights reserved.
 
      Licensed under http://www.OpenLDAP.org/license.html
 
 
      Licensed under the Apache License, Version 2.0 (the "License");
    you may not use this file except in compliance with the License.
    You may obtain a copy of the License at
 
      http://www.apache.org/licenses/LICENSE-2.0
 
      Unless required by applicable law or agreed to in writing, software
    distributed under the License is distributed on an "AS IS" BASIS,
    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    See the License for the specific language governing permissions and
    limitations under the License.
*/
 
 
#include "src/jazz_elements/block.h"
 
#ifdef CATCH_TEST
#ifndef INCLUDED_JAZZ_CATCH2
#define INCLUDED_JAZZ_CATCH2
 
#include "src/catch2/catch.hpp"
 
#endif
#endif
 
 
#ifndef INCLUDED_JAZZ_ELEMENTS_KIND
#define INCLUDED_JAZZ_ELEMENTS_KIND
 
 
namespace jazz_elements
{
 
class Kind : public Block {
 
    public:
 
        inline char *item_name(int idx) {
            if (idx < 0 || idx >= size)
                return nullptr;
 
            return reinterpret_cast<char *>(&p_string_buffer()->buffer[tensor.cell_item[idx].name]);
        }
 
        inline int index(pChar name) {
            for (int idx = 0; idx < size; idx++) {
                if (strcmp(reinterpret_cast<char *>(&p_string_buffer()->buffer[tensor.cell_item[idx].name]), name) == 0)
                    return idx;
            }
            return -1;
        }
 
        inline void dimensions(Dimensions &dims) {
            for (int i = 0; i < size; i++) {
                ItemHeader *p_it_hea = &tensor.cell_item[i];
 
                for (int j = 0; j < p_it_hea->rank; j++) {
                    int k = p_it_hea->dim[j];
 
                    if (k < 0) {
                        char *pt = (&p_string_buffer()->buffer[-k]);
 
                        dims.insert(String(pt));
                    }
                }
            }
        }
 
        inline int new_kind(int           num_items,
                            int           num_bytes,
                            AttributeMap *att = nullptr) {
 
            if (num_items < 1 || num_items > MAX_ITEMS_IN_KIND)
                return SERVICE_ERROR_WRONG_ARGUMENTS;
 
            int rq_sz = sizeof(BlockHeader) + sizeof(StringBuffer) + num_items*sizeof(ItemHeader) + 2*num_items;
 
            if (att != nullptr)
                rq_sz += 2*att->size();
 
            if (num_bytes < rq_sz)
                return SERVICE_ERROR_NO_MEM;
 
            memset(&cell_type, 0, num_bytes);
 
            cell_type      = CELL_TYPE_TUPLE_KIND;
            rank           = 1;
            range.dim[0]   = 1;
            size           = num_items;
            total_bytes    = num_bytes;
            num_attributes = 0;             // set_attributes() is done just once when it is not already set.
 
            set_attributes(att);
 
            return SERVICE_NO_ERROR;
        }
 
        inline bool add_item(int           idx,
                             char const   *p_name,
                             int          *p_dim,
                             int           cell_type,
                             AttributeMap *p_dims) {
 
            if (idx < 0 || idx >= size)
                return false;
 
            ItemHeader *p_it_hea = &tensor.cell_item[idx];
 
            int rank = 6, j, k;
 
            pStringBuffer psb = p_string_buffer();
 
            for (int i = MAX_TENSOR_RANK - 1; i >= 0; i--) {
                j = p_dim[i];
                p_it_hea->dim[i] = j;
                if (j == 0) {
                    rank = i;
 
                    if (!i)
                        return false;
 
                } else if (j < 0) {
                    if (p_dims == nullptr)
                        return false;
 
                    AttributeMap::iterator it = p_dims->find(j);
                    if (it == p_dims->end())
                        return false;
 
                    k = get_string_offset(psb, it->second);
 
                    if (k <= STRING_EMPTY)
                        return false;
 
                    p_it_hea->dim[i] = -k;
                }
            }
 
            p_it_hea->name = get_string_offset(psb, p_name);
 
            if (p_it_hea->name <= STRING_EMPTY)
                return false;
 
            p_it_hea->cell_type = cell_type;
            p_it_hea->rank      = rank;
 
            return true;
        }
 
        inline int new_object_kind (int           num_bytes,
                                    char const   *p_def,
                                    char          sep,
                                    AttributeMap *att = nullptr) {
            Name name;
            int num_lines = 1, j = 0;
            for (char const *p = p_def; *p; p++) {
                if (*p == sep) {
                    if (j >= sizeof(Name))
                        return SERVICE_ERROR_WRONG_ARGUMENTS;
 
                    j = 0;
                    num_lines++;
                } else {
                    j++;
                }
            }
            if (j >= sizeof(Name))
                return SERVICE_ERROR_WRONG_ARGUMENTS;
 
            int rq_sz = sizeof(BlockHeader) + sizeof(StringBuffer) + strlen(p_def) + num_lines*sizeof(int);
 
            if (att != nullptr)
                rq_sz += 2*att->size();
 
            if (rq_sz > num_bytes)
                return SERVICE_ERROR_NO_MEM;
 
            cell_type      = CELL_TYPE_OBJECT_KIND;
            rank           = 1;
            range.dim[0]   = num_lines;
            size           = num_lines;
            total_bytes    = num_bytes;
            num_attributes = 0;             // set_attributes() is done just once when it is not already set.
 
            set_attributes(att);            // This also calls init_string_buffer()
 
            pStringBuffer psb = p_string_buffer();
 
            int i = 0;
            j = 0;
            for (char const *p = p_def; *p; p++) {
                if (*p == sep) {
                    name[j] = 0;
                    j = 0;
                    set_string(i, name);
                    i++;
                } else {
                    name[j++] = *p;
                }
            }
            name[j] = 0;
            set_string(i, name);
 
            return SERVICE_NO_ERROR;
        }
 
        inline bool to_block_kind() {
            if (size != 1 || cell_type != CELL_TYPE_TUPLE_KIND)
                return false;
 
            cell_type = CELL_TYPE_BLOCK_KIND;
            return true;
        }
 
        int audit();
};
typedef Kind *pKind;        
 
} // namespace jazz_elements
 
#endif // ifndef INCLUDED_JAZZ_ELEMENTS_KIND