blob: 758580eb5f5a84304b7382035bc3cf9572386aaa [file] [log] [blame]
/* 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 <stdio.h>
#include <string.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;
int inert;
};
const static CFCMeta CFCVARIABLE_META = {
"Clownfish::CFC::Variable",
sizeof(CFCVariable),
(CFCBase_destroy_t)CFCVariable_destroy
};
CFCVariable*
CFCVariable_new(struct CFCParcel *parcel, const char *exposure,
const char *class_name, const char *class_cnick,
const char *micro_sym, struct CFCType *type, int inert) {
CFCVariable *self = (CFCVariable*)CFCBase_allocate(&CFCVARIABLE_META);
return CFCVariable_init(self, parcel, exposure, class_name, class_cnick,
micro_sym, type, inert);
}
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, int inert) {
// Validate params.
CFCUTIL_NULL_CHECK(type);
if (!parcel) {
parcel = CFCParcel_singleton(NULL, NULL);
}
// 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, inert.
self->type = (CFCType*)CFCBase_incref((CFCBase*)type);
self->inert = !!inert;
// 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 = CFCVariable_full_sym(self);
size_t full_size = strlen(type_str) + sizeof(" ") + strlen(full_sym) +
strlen(postfix) + 1;
self->global_c = (char*)MALLOCATE(full_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;
}
int
CFCVariable_inert(CFCVariable *self) {
return self->inert;
}
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;
}
const char*
CFCVariable_micro_sym(CFCVariable *self) {
return CFCSymbol_micro_sym((CFCSymbol*)self);
}
const char*
CFCVariable_short_sym(CFCVariable *self) {
return CFCSymbol_short_sym((CFCSymbol*)self);
}
const char*
CFCVariable_full_sym(CFCVariable *self) {
return CFCSymbol_full_sym((CFCSymbol*)self);
}