klish/klish/ischeme/iplugin.c

#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <assert.h>
#include <dlfcn.h>

#include <faux/str.h>
#include <faux/list.h>
#include <faux/conv.h>
#include <faux/error.h>
#include <klish/khelper.h>
#include <klish/kplugin.h>
#include <klish/ksym.h>
#include <klish/iplugin.h>

#define TAG "PLUGIN"


bool_t iplugin_parse(const iplugin_t *info, kplugin_t *plugin,
	faux_error_t *error)
{
	bool_t retcode = BOOL_TRUE;

	if (!info)
		return BOOL_FALSE;
	if (!plugin)
		return BOOL_FALSE;

	// ID
	if (!faux_str_is_empty(info->id)) {
		if (!kplugin_set_id(plugin, info->id)) {
			faux_error_add(error, TAG": Illegal 'id' attribute");
			retcode = BOOL_FALSE;
		}
	}

	// File
	if (!faux_str_is_empty(info->file)) {
		if (!kplugin_set_file(plugin, info->file)) {
			faux_error_add(error, TAG": Illegal 'file' attribute");
			retcode = BOOL_FALSE;
		}
	}

	// Global
	if (!faux_str_is_empty(info->global)) {
		bool_t b = BOOL_FALSE;
		if (!faux_conv_str2bool(info->global, &b) ||
			!kplugin_set_global(plugin, b)) {
			faux_error_add(error, TAG": Illegal 'global' attribute");
			retcode = BOOL_FALSE;
		}
	}

	// Conf
	if (!faux_str_is_empty(info->conf)) {
		if (!kplugin_set_conf(plugin, info->conf)) {
			faux_error_add(error, TAG": Illegal 'conf' attribute");
			retcode = BOOL_FALSE;
		}
	}

	return retcode;
}


kplugin_t *iplugin_load(iplugin_t *iplugin, faux_error_t *error)
{
	kplugin_t *kplugin = NULL;

	if (!iplugin)
		return NULL;

	// Name [mandatory]
	if (faux_str_is_empty(iplugin->name))
		return NULL;

	kplugin = kplugin_new(iplugin->name);
	if (!kplugin) {
		faux_error_sprintf(error, TAG" \"%s\": Can't create object",
			iplugin->name);
		return NULL;
	}

	if (!iplugin_parse(iplugin, kplugin, error)) {
		kplugin_free(kplugin);
		return NULL;
	}

	return kplugin;
}


char *iplugin_deploy(const kplugin_t *kplugin, int level)
{
	char *str = NULL;
	char *tmp = NULL;

	if (!kplugin)
		return NULL;

	tmp = faux_str_sprintf("%*cPLUGIN {\n", level, ' ');
	faux_str_cat(&str, tmp);
	faux_str_free(tmp);

	attr2ctext(&str, "name", kplugin_name(kplugin), level + 1);
	attr2ctext(&str, "id", kplugin_id(kplugin), level + 1);
	attr2ctext(&str, "file", kplugin_file(kplugin), level + 1);
	attr2ctext(&str, "global", faux_conv_bool2str(kplugin_global(kplugin)), level + 1);
	attr2ctext(&str, "conf", kplugin_conf(kplugin), level + 1);

	tmp = faux_str_sprintf("%*c},\n\n", level, ' ');
	faux_str_cat(&str, tmp);
	faux_str_free(tmp);

	return str;
}