clownfish/src/CFCVariable.c

/* Licensed to the Apache Software Foundation (ASF) under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The ASF licenses this file to You 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 <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"

#ifndef true
  #define true 1
  #define false 0
#endif

#define CFC_NEED_SYMBOL_STRUCT_DEF
#include "CFCSymbol.h"
#include "CFCVariable.h"
#include "CFCParcel.h"
#include "CFCType.h"
#include "CFCUtil.h"

struct CFCVariable {
    struct CFCSymbol symbol;
    CFCType *type;
    char *local_c;
    char *global_c;
    char *local_dec;
};

CFCVariable*
CFCVariable_new(struct CFCParcel *parcel, const char *exposure,
                const char *class_name, const char *class_cnick,
                const char *micro_sym, struct CFCType *type) {
    CFCVariable *self = (CFCVariable*)CFCBase_allocate(sizeof(CFCVariable),
                                                       "Clownfish::Variable");
    return CFCVariable_init(self, parcel, exposure, class_name, class_cnick,
                            micro_sym, type);
}

CFCVariable*
CFCVariable_init(CFCVariable *self, struct CFCParcel *parcel,
                 const char *exposure, const char *class_name,
                 const char *class_cnick, const char *micro_sym,
                 struct CFCType *type) {
    // Validate type.
    CFCUTIL_NULL_CHECK(type);

    // Default exposure to "local".
    const char *real_exposure = exposure ? exposure : "local";

    CFCSymbol_init((CFCSymbol*)self, parcel, real_exposure, class_name,
                   class_cnick, micro_sym);

    // Assign type.
    self->type = (CFCType*)CFCBase_incref((CFCBase*)type);

    // Cache various C string representations.
    const char *type_str = CFCType_to_c(type);
    const char *postfix  = "";
    if (CFCType_is_composite(type) && CFCType_get_array(type) != NULL) {
        postfix = CFCType_get_array(type);
    }
    {
        size_t size = strlen(type_str) + sizeof(" ") + strlen(micro_sym) +
                      strlen(postfix) + 1;
        self->local_c = (char*)MALLOCATE(size);
        sprintf(self->local_c, "%s %s%s", type_str, micro_sym, postfix);
    }
    {
        self->local_dec = (char*)MALLOCATE(strlen(self->local_c) + sizeof(";\0"));
        sprintf(self->local_dec, "%s;", self->local_c);
    }
    {
        const char *full_sym = CFCSymbol_full_sym((CFCSymbol*)self);
        size_t size = strlen(type_str) + sizeof(" ") + strlen(full_sym) +
                      strlen(postfix) + 1;
        self->global_c = (char*)MALLOCATE(size);
        sprintf(self->global_c, "%s %s%s", type_str, full_sym, postfix);
    }

    return self;
}

void
CFCVariable_destroy(CFCVariable *self) {
    CFCBase_decref((CFCBase*)self->type);
    FREEMEM(self->local_c);
    FREEMEM(self->global_c);
    FREEMEM(self->local_dec);
    CFCSymbol_destroy((CFCSymbol*)self);
}

int
CFCVariable_equals(CFCVariable *self, CFCVariable *other) {
    if (!CFCType_equals(self->type, other->type)) { return false; }
    return CFCSymbol_equals((CFCSymbol*)self, (CFCSymbol*)other);
}

CFCType*
CFCVariable_get_type(CFCVariable *self) {
    return self->type;
}

const char*
CFCVariable_local_c(CFCVariable *self) {
    return self->local_c;
}

const char*
CFCVariable_global_c(CFCVariable *self) {
    return self->global_c;
}

const char*
CFCVariable_local_declaration(CFCVariable *self) {
    return self->local_dec;
}