build: Add logging_callback

[people/stevee/pakfire.git] / src / libpakfire / parser.c

/*#############################################################################
#                                                                             #
# Pakfire - The IPFire package management system                              #
# Copyright (C) 2019 Pakfire development team                                 #
#                                                                             #
# This program is free software: you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation, either version 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License           #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
#############################################################################*/

#include <errno.h>
#include <linux/limits.h>
#include <regex.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>

#define PCRE2_CODE_UNIT_WIDTH 8
#include <pcre2.h>

#include <pakfire/execute.h>
#include <pakfire/logging.h>
#include <pakfire/package.h>
#include <pakfire/parser.h>
#include <pakfire/pakfire.h>
#include <pakfire/private.h>
#include <pakfire/util.h>

struct _PakfireParser {
	Pakfire pakfire;
	struct _PakfireParser* parent;
	int nrefs;

	int flags;
	char* namespace;

	struct pakfire_parser_declaration** declarations;
	size_t num_declarations;

	// Regular expressions
	pcre2_code* regex_command;
	pcre2_code* regex_variable;
};

static int pakfire_parser_compile_regex(PakfireParser parser, pcre2_code** regex,
		const char* pattern) {
	int pcre2_errno;
	size_t pcre2_offset;
	PCRE2_UCHAR errmsg[256];

	// Compile the regular expression
	*regex = pcre2_compile((PCRE2_SPTR)pattern, PCRE2_ZERO_TERMINATED, 0,
		&pcre2_errno, &pcre2_offset, NULL);

	if (!*regex) {
		pcre2_get_error_message(pcre2_errno, errmsg, sizeof(errmsg));
		ERROR(parser->pakfire, "PCRE2 compilation failed for '%s' at offset %zu: %s\n",
			pattern, pcre2_offset, errmsg);
		return 1;
	}

	// Enable JIT
	pcre2_errno = pcre2_jit_compile(*regex, PCRE2_JIT_COMPLETE);
	if (pcre2_errno) {
		pcre2_get_error_message(pcre2_errno, errmsg, sizeof(errmsg));
		ERROR(parser->pakfire, "Enabling JIT on '%s' failed: %s\n", pattern, errmsg);
		return 1;
	}

	return 0;
}

static int pakfire_parser_compile_regexes(PakfireParser parser) {
	int r;

	// Commands
	if (!parser->regex_command && (parser->flags & PAKFIRE_PARSER_FLAGS_EXPAND_COMMANDS)) {
		r = pakfire_parser_compile_regex(parser,
			&parser->regex_command, "%(\\(((?>[^()]|(?1))*)\\))");
		if (r)
			return r;
	}

	// Variables
	if (!parser->regex_variable) {
		r = pakfire_parser_compile_regex(parser,
			&parser->regex_variable, "%\\{([A-Za-z0-9_\\-]+)\\}");
		if (r)
			return r;
	}

	return 0;
}

PAKFIRE_EXPORT PakfireParser pakfire_parser_create(Pakfire pakfire,
		PakfireParser parent, const char* namespace, int flags) {
	PakfireParser parser = calloc(1, sizeof(*parser));
	if (parser) {
		parser->pakfire = pakfire_ref(pakfire);
		parser->nrefs = 1;

		// Store a reference to the parent parser if we have one
		if (parent)
			parser->parent = pakfire_parser_ref(parent);

		// Store flags
		parser->flags = flags;

		// Make namespace
		pakfire_parser_set_namespace(parser, namespace);

		DEBUG(pakfire, "Allocated new parser at %p (%s, %p)\n",
			parser, parser->namespace, parser->parent);
	}

	return parser;
}

PAKFIRE_EXPORT PakfireParser pakfire_parser_create_child(PakfireParser parser, const char* namespace) {
	return pakfire_parser_create(parser->pakfire, parser, namespace, parser->flags);
}

PAKFIRE_EXPORT PakfireParser pakfire_parser_ref(PakfireParser parser) {
	++parser->nrefs;

	return parser;
}

Pakfire pakfire_parser_get_pakfire(PakfireParser parser) {
	return pakfire_ref(parser->pakfire);
}

static void pakfire_parser_free_declarations(PakfireParser parser) {
	if (!parser->declarations)
		return;

	for (unsigned int i = 0; i < parser->num_declarations; i++) {
		struct pakfire_parser_declaration* d = parser->declarations[i];

		// Free everything
		if (d->value)
			free(d->value);
		free(d);
	}

	free(parser->declarations);
}

static void pakfire_parser_free(PakfireParser parser) {
	DEBUG(parser->pakfire, "Releasing parser at %p\n", parser);

	// Release regular expressions
	if (parser->regex_variable)
		pcre2_code_free(parser->regex_variable);

	pakfire_parser_free_declarations(parser);

	if (parser->namespace)
		free(parser->namespace);

	if (parser->parent)
		pakfire_parser_unref(parser->parent);

	pakfire_unref(parser->pakfire);
	free(parser);
}

PAKFIRE_EXPORT PakfireParser pakfire_parser_unref(PakfireParser parser) {
	if (--parser->nrefs > 0)
		return parser;

	pakfire_parser_free(parser);
	return NULL;
}

PAKFIRE_EXPORT PakfireParser pakfire_parser_get_parent(PakfireParser parser) {
	if (parser->parent)
		return pakfire_parser_ref(parser->parent);

	return NULL;
}

static struct pakfire_parser_declaration* pakfire_parser_get_declaration(
		PakfireParser parser, const char* namespace, const char* name) {
	if (!name) {
		errno = EINVAL;
		return NULL;
	}

	if (!namespace)
		namespace = "";

	struct pakfire_parser_declaration* d;
	for (unsigned i = 0; i < parser->num_declarations; i++) {
		d = parser->declarations[i];
		if (!d)
			break;

		// Return if namespace and name match
		if ((strcmp(d->namespace, namespace) == 0) && (strcmp(d->name, name) == 0))
			return d;
	}

	return NULL;
}

PAKFIRE_EXPORT int pakfire_parser_set(PakfireParser parser,
		const char* namespace, const char* name, const char* value) {
	if (!name)
		return -EINVAL;

	if (!namespace)
		namespace = "";

	// Handle when name already exists
	struct pakfire_parser_declaration* d = pakfire_parser_get_declaration(parser, namespace, name);
	if (d) {
		// Replace value
		if (d->value)
			free(d->value);

		if (value)
			d->value = strdup(value);
		else
			d->value = NULL;

		DEBUG(parser->pakfire, "%p: Updated declaration: %s.%s = %s\n",
			parser, d->namespace, d->name, d->value);

		// All done
		return 0;
	}

	// Allocate a new declaration
	d = calloc(1, sizeof(*d));
	if (!d)
		return -1;

	// Store namespace
	pakfire_string_set(d->namespace, namespace);

	// Import name & value
	pakfire_string_set(d->name, name);
	if (value)
		d->value = strdup(value);

	DEBUG(parser->pakfire, "%p: New declaration: %s.%s = %s\n",
		parser, d->namespace, d->name, d->value);

	// Assign new declaration to array
	parser->declarations = reallocarray(parser->declarations,
		sizeof(*parser->declarations), parser->num_declarations + 1);
	parser->declarations[parser->num_declarations++] = d;

	return 0;
}

int pakfire_parser_apply_declaration(PakfireParser parser,
		struct pakfire_parser_declaration* declaration) {
	if (declaration->flags & PAKFIRE_PARSER_DECLARATION_APPEND)
		return pakfire_parser_append(parser, declaration->namespace, declaration->name, declaration->value);

	return pakfire_parser_set(parser, declaration->namespace, declaration->name, declaration->value);
}

static const char* pakfire_parser_get_raw(PakfireParser parser, const char* namespace, const char* name) {
	struct pakfire_parser_declaration* d = pakfire_parser_get_declaration(parser, namespace, name);

	// Return a match when it actually contains a string
	if (d) {
		if (d->value && *d->value)
			return d->value;

		return NULL;
	}

	// Search in parent parser if available
	if (parser->parent)
		return pakfire_parser_get_raw(parser->parent, namespace, name);

	return NULL;
}

PAKFIRE_EXPORT int pakfire_parser_append(PakfireParser parser,
		const char* namespace, const char* name, const char* value) {
	char* buffer = NULL;

	// Fetch the value of the current declaration
	const char* old_value = pakfire_parser_get_raw(parser, namespace, name);

	// Set the new value when there is no old one
	if (!old_value)
		return pakfire_parser_set(parser, namespace, name, value);

	// Concat value
	int r = asprintf(&buffer, "%s %s", old_value, value);
	if (r < 0)
		return r;

	// Set the new value
	r = pakfire_parser_set(parser, namespace, name, buffer);
	free(buffer);

	return r;
}

static void pakfire_parser_strip_namespace(char** s) {
	char* pos = strrchr(*s, '.');

	if (pos)
		*s[pos - *s] = '\0';
	else
		*s[0] = '\0';
}

static struct pakfire_parser_declaration* pakfire_parser_find_declaration(
		PakfireParser parser, const char* namespace, const char* name) {
	char* n = "";

	// Create a working copy of the namespace variable
	if (namespace)
		n = strdupa(namespace);

	struct pakfire_parser_declaration* d = NULL;
	while (1) {
		DEBUG(parser->pakfire, "Looking up %s.%s in parser %p\n", n, name, parser);

		// Lookup declaration
		d = pakfire_parser_get_declaration(parser, n, name);

		// End if we have found a match
		if (d)
			break;

		// End if namespace is empty
		if (!n || !*n)
			break;

		/*
			If we did not find a match, we will remove one level of the
			namespace and try again...
		*/
		pakfire_parser_strip_namespace(&n);
	}

	if (!d && parser->parent)
		d = pakfire_parser_find_declaration(parser->parent, namespace, name);

	return d;
}

static int pakfire_parser_command_logger(Pakfire pakfire, void* data,
		int priority, const char* line, size_t length) {
	char** output = (char**)data;

	// Append output
	asprintf(output, "%s%s", (output && *output) ? *output : "", line);

	return 0;
}

static int pakfire_parser_expand_commands(PakfireParser parser, char** buffer) {
	int r = 0;
	PCRE2_UCHAR* command = NULL;
	PCRE2_SIZE command_length;
	PCRE2_UCHAR* pattern = NULL;
	PCRE2_SIZE pattern_length;

	DEBUG(parser->pakfire, "Searching for commands in:\n%s\n", *buffer);

	// Allocate memory for results
	pcre2_match_data* match = pcre2_match_data_create_from_pattern(
		parser->regex_command, NULL);

	// Arguments passed to pakfire_execute
	const char* argv[4] = {
		"/bin/sh", "-c", NULL /* will be replaced by command later */, NULL,
	};

	while (1) {
		// Perform matching
		int r = pcre2_jit_match(parser->regex_command,
			(PCRE2_UCHAR*)*buffer, strlen(*buffer), 0, 0, match, NULL);

		// End loop when we have expanded all variables
		if (r == PCRE2_ERROR_NOMATCH) {
			DEBUG(parser->pakfire, "No (more) matches found\n");
			break;
		}

		// Extract the command
		r = pcre2_substring_get_bynumber(match, 2, &command, &command_length);
		if (r)
			goto ERROR;

		DEBUG(parser->pakfire, "Expanding command: %s\n", command);

		// Update argv
		argv[2] = (const char*)command;

		// The output of the command
		char* output = NULL;

		// Execute the command inside the Pakfire environment
		r = pakfire_execute(parser->pakfire, argv, NULL, 0,
				pakfire_parser_command_logger, &output);
		if (r) {
			// Just log this and continue
			DEBUG(parser->pakfire, "Command '%s' failed with return code %d\n", command, r);
		}

		// Strip newline from output
		if (output)
			pakfire_remove_trailing_newline(output);

		// Find the entire matched pattern
		r = pcre2_substring_get_bynumber(match, 0, &pattern, &pattern_length);
		if (r) {
			if (output)
				free(output);

			goto ERROR;
		}

		// Replace all occurrences
		char* tmp = pakfire_string_replace(*buffer, (const char*)pattern, output);
		if (!tmp) {
			if (output)
				free(output);

			goto ERROR;
		}

		// Replace buffer
		free(*buffer);
		*buffer = tmp;

		// Free resources
		pcre2_substring_free(command);
		command = NULL;

		pcre2_substring_free(pattern);
		pattern = NULL;

		if (output)
			free(output);
	}

ERROR:
	pcre2_match_data_free(match);

	if (command)
		pcre2_substring_free(command);
	if (pattern)
		pcre2_substring_free(pattern);

	return r;
}

static int pakfire_parser_expand_variables(PakfireParser parser,
		const char* namespace, char** buffer) {
	int r = 0;
	PCRE2_UCHAR* variable = NULL;
	PCRE2_SIZE variable_length;
	PCRE2_UCHAR* pattern = NULL;
	PCRE2_SIZE pattern_length;

	// Allocate memory for results
	pcre2_match_data* match = pcre2_match_data_create_from_pattern(
		parser->regex_variable, NULL);

	// Search for any variables
	while (1) {
		// Perform matching
		int r = pcre2_jit_match(parser->regex_variable,
			(PCRE2_UCHAR*)*buffer, strlen(*buffer), 0, 0, match, NULL);

		// End loop when we have expanded all variables
		if (r == PCRE2_ERROR_NOMATCH) {
			DEBUG(parser->pakfire, "No (more) matches found in: %s\n", *buffer);
			break;
		}

		// Find the variable name
		r = pcre2_substring_get_bynumber(match, 1, &variable, &variable_length);
		if (r)
			goto ERROR;

		DEBUG(parser->pakfire, "Expanding variable: %s\n", variable);

		// Search for a declaration of this variable
		struct pakfire_parser_declaration* d =
			pakfire_parser_find_declaration(parser, namespace, (const char*)variable);

		// What is its value?
		const char* repl = NULL;
		if (d && d->value) {
			DEBUG(parser->pakfire, "Replacing %%{%s} with %s.%s = '%s'\n", variable,
				d->namespace, d->name, d->value);

			repl = d->value;
		} else {
			DEBUG(parser->pakfire, "Replacing %%{%s} with an empty string\n", variable);

			repl = "";
		}

		// Find the entire matched pattern
		r = pcre2_substring_get_bynumber(match, 0, &pattern, &pattern_length);
		if (r)
			goto ERROR;

		// Replace all occurrences
		char* tmp = pakfire_string_replace(*buffer, (const char*)pattern, repl);
		if (!tmp)
			goto ERROR;

		// Replace buffer
		free(*buffer);
		*buffer = tmp;

		// Free resources
		pcre2_substring_free(variable);
		variable = NULL;

		pcre2_substring_free(pattern);
		pattern = NULL;
	}

ERROR:
	pcre2_match_data_free(match);

	if (variable)
		pcre2_substring_free(variable);
	if (pattern)
		pcre2_substring_free(pattern);

	return r;
}

PAKFIRE_EXPORT char* pakfire_parser_expand(PakfireParser parser,
		const char* namespace, const char* value) {
	// Return NULL when the value is NULL
	if (!value)
		return NULL;

	// Create a working copy of the string we are expanding
	char* buffer = strdup(value);

	// Fast path to check if there are any variables in here whatsoever
	char* pos = strchr(value, '%');
	if (!pos)
		return buffer;

	// Compile all regular expressions
	int r = pakfire_parser_compile_regexes(parser);
	if (r)
		goto ERROR;

	// Expand all variables
	r = pakfire_parser_expand_variables(parser, namespace, &buffer);
	if (r)
		goto ERROR;

	// Expand all commands
	if (parser->flags & PAKFIRE_PARSER_FLAGS_EXPAND_COMMANDS) {
		r = pakfire_parser_expand_commands(parser, &buffer);
		if (r)
			goto ERROR;
	}

	return buffer;

ERROR:
	if (buffer)
		free(buffer);

	return NULL;
}

PAKFIRE_EXPORT char* pakfire_parser_get(PakfireParser parser, const char* namespace, const char* name) {
	const char* value = pakfire_parser_get_raw(parser, namespace, name);

	// Return NULL when nothing was found
	if (!value)
		return NULL;

	// Otherwise return the expanded value
	return pakfire_parser_expand(parser, namespace, value);
}

PAKFIRE_EXPORT char** pakfire_parser_get_split(PakfireParser parser,
		const char* namespace, const char* name, char delim) {
	char* value = pakfire_parser_get(parser, namespace, name);
	if (!value)
		return NULL;

	// Split the string
	char** list = pakfire_split_string(value, delim);
	free(value);

	return list;
}

PAKFIRE_EXPORT int pakfire_parser_merge(PakfireParser parser1, PakfireParser parser2) {
	DEBUG(parser1->pakfire, "Merging parsers %p and %p\n", parser1, parser2);
	char namespace[NAME_MAX*2+1];

	if (!parser2) {
		errno = EINVAL;
		return 1;
	}

	// Do not try to merge a parser with itself
	if (parser1 == parser2)
		return EINVAL;

	for (unsigned int i = 0; i < parser2->num_declarations; i++) {
		struct pakfire_parser_declaration* d = parser2->declarations[i];
		if (!d)
			break;

		if (parser2->namespace && *d->namespace)
			pakfire_string_format(namespace, "%s.%s", parser2->namespace, d->namespace);
		else if (parser2->namespace)
			pakfire_string_set(namespace, parser2->namespace);
		else if (*d->namespace)
			pakfire_string_set(namespace, d->namespace);
		else
			pakfire_string_set(namespace, "");

		int r = pakfire_parser_set(parser1, namespace, d->name, d->value);
		if (r)
			return r;
	}

	return 0;
}

PAKFIRE_EXPORT int pakfire_parser_read(PakfireParser parser, FILE* f,
		struct pakfire_parser_error** error) {
	char* data;
	size_t len;

	int r = pakfire_read_file_into_buffer(f, &data, &len);
	if (r)
		return r;

	r = pakfire_parser_parse_data(parser, data, len, error);

	if (data)
		free(data);

	return r;
}

PAKFIRE_EXPORT int pakfire_parser_read_file(PakfireParser parser, const char* path,
		struct pakfire_parser_error** error) {
	FILE* f = fopen(path, "r");
	if (!f)
		return 1;

	int r = pakfire_parser_read(parser, f, error);
	fclose(f);

	return r;
}

PAKFIRE_EXPORT int pakfire_parser_parse(PakfireParser parser,
		const char* data, size_t size, struct pakfire_parser_error** error) {
	return pakfire_parser_parse_data(parser, data, size, error);
}

PAKFIRE_EXPORT char* pakfire_parser_dump(PakfireParser parser) {
	char buffer[NAME_MAX*2 + 1];
	char* s = NULL;

	for (unsigned int i = 0; i < parser->num_declarations; i++) {
		struct pakfire_parser_declaration* d = parser->declarations[i];

		if (d) {
			if (*d->namespace)
				pakfire_string_format(buffer, "%s.%s", d->namespace, d->name);
			else
				pakfire_string_set(buffer, d->name);

			asprintf(&s, "%s%-24s = %s\n", (s) ? s : "", buffer, d->value);
		}
	}

	return s;
}

PAKFIRE_EXPORT const char* pakfire_parser_get_namespace(PakfireParser parser) {
	return parser->namespace;
}

PAKFIRE_EXPORT int pakfire_parser_set_namespace(PakfireParser parser, const char* namespace) {
	if (parser->namespace)
		free(parser->namespace);

	if (namespace)
		parser->namespace = strdup(namespace);
	else
		parser->namespace = NULL;

	DEBUG(parser->pakfire, "%p: Set namespace to: %s\n", parser, parser->namespace);

	return 0;
}

PAKFIRE_EXPORT int pakfire_parser_create_package(PakfireParser parser,
		PakfirePackage* pkg, PakfireRepo repo, const char* namespace, const char* default_arch) {
	int r = 1;

	char* name = NULL;
	char* epoch = NULL;
	char* version = NULL;
	char* release = NULL;
	char* arch = NULL;
	char* evr = NULL;

	// Fetch name
	name = pakfire_parser_get(parser, namespace, "name");
	if (!name || !*name) {
		ERROR(parser->pakfire, "Name is empty\n");
		goto CLEANUP;
	}

	// Fetch epoch
	epoch = pakfire_parser_get(parser, namespace, "epoch");
	if (!epoch || !*epoch) {
		ERROR(parser->pakfire, "Epoch is empty\n");
		goto CLEANUP;
	}

	// Fetch version
	version = pakfire_parser_get(parser, namespace, "version");
	if (!version || !*version) {
		ERROR(parser->pakfire, "Version is empty\n");
		goto CLEANUP;
	}

	// Fetch release
	release = pakfire_parser_get(parser, namespace, "release");
	if (!release || !*release) {
		ERROR(parser->pakfire, "Release is empty\n");
		goto CLEANUP;
	}

	// Fetch arch
	arch = pakfire_parser_get(parser, namespace, "arch");
	if (!arch || !*arch) {
		if (default_arch) {
			arch = strdup(default_arch);
			if (!arch)
				goto CLEANUP;
		} else {
			ERROR(parser->pakfire, "Arch is empty\n");
			goto CLEANUP;
		}
	}

	// Compile EVR
	evr = pakfire_package_join_evr(epoch, version, release);
	if (!evr)
		goto CLEANUP;

	// Create a new package object
	*pkg = pakfire_package_create(parser->pakfire, repo, name, evr, arch);
	if (!*pkg) {
		ERROR(parser->pakfire, "Could not create package\n");
		goto CLEANUP;
	}

	// Is this a source package?
	int is_source = pakfire_package_is_source(*pkg);

	// Assign a new UUID to this package
	char* uuid = pakfire_generate_uuid();
	if (!uuid) {
		ERROR(parser->pakfire, "Generating a UUID failed: %s\n", strerror(errno));
		goto CLEANUP;
	}

	pakfire_package_set_uuid(*pkg, uuid);
	free(uuid);

	// Set build host
	char hostname[HOST_NAME_MAX + 1];
	r = gethostname(hostname, HOST_NAME_MAX + 1);
	if (r) {
		ERROR(parser->pakfire, "gethostname() failed: %s\n", strerror(errno));
		goto CLEANUP;
	}

	pakfire_package_set_build_host(*pkg, hostname);

	// Set build time
	time_t now = time(NULL);

	pakfire_package_set_build_time(*pkg, now);

	// Assign more attributes
	const struct attribute {
		const char* name;
		void(*func)(PakfirePackage pkg, const char* value);
	} attributes[] = {
		{ "summary", pakfire_package_set_summary, },
		{ "description", pakfire_package_set_description, },
		{ "license", pakfire_package_set_license, },
		{ "url", pakfire_package_set_url, },
		{ "groups", pakfire_package_set_groups, },
		{ "vendor", pakfire_package_set_vendor, },
		{ "maintainer", pakfire_package_set_maintainer, },
		{ NULL },
	};

	for (const struct attribute* a = attributes; a->name; a++) {
		char* value = pakfire_parser_get(parser, namespace, a->name);
		if (!value)
			continue;

		a->func(*pkg, value);
		free(value);
	}

	// Fetch build dependencies
	if (is_source) {
		char* requires = pakfire_parser_get(parser, "build", "requires");
		if (requires && *requires)
			pakfire_parse_deps(parser->pakfire, *pkg,
				pakfire_package_add_requires, requires);
	}

	// All okay
	r = 0;

CLEANUP:
	if (name)
		free(name);
	if (epoch)
		free(epoch);
	if (version)
		free(version);
	if (release)
		free(release);
	if (arch)
		free(arch);

	return r;
}

// Error

struct pakfire_parser_error {
	PakfireParser parser;
	int nrefs;

	char* filename;
	int line;
	char* message;
};

PAKFIRE_EXPORT int pakfire_parser_error_create(struct pakfire_parser_error** error,
		PakfireParser parser, const char* filename, int line, const char* message) {
	struct pakfire_parser_error* e = calloc(1, sizeof(*e));
	if (!e)
		return ENOMEM;

	// Initialize reference counter
	e->nrefs = 1;

	e->parser = pakfire_parser_ref(parser);

	// Copy all input values
	if (filename)
		e->filename = strdup(filename);

	e->line = line;

	if (message)
		e->message = strdup(message);

	*error = e;

	return 0;
}

PAKFIRE_EXPORT struct pakfire_parser_error* pakfire_parser_error_ref(
		struct pakfire_parser_error* error) {
	++error->nrefs;

	return error;
}

static void pakfire_parser_error_free(struct pakfire_parser_error* error) {
	pakfire_parser_unref(error->parser);

	if (error->filename)
		free(error->filename);

	if (error->message)
		free(error->message);

	free(error);
}

PAKFIRE_EXPORT struct pakfire_parser_error* pakfire_parser_error_unref(
		struct pakfire_parser_error* error) {
	if (--error->nrefs > 0)
		return error;

	pakfire_parser_error_free(error);

	return NULL;
}

PAKFIRE_EXPORT const char* pakfire_parser_error_get_filename(
		struct pakfire_parser_error* error) {
	return error->filename;
}

PAKFIRE_EXPORT int pakfire_parser_error_get_line(struct pakfire_parser_error* error) {
	return error->line;
}

PAKFIRE_EXPORT const char* pakfire_parser_error_get_message(
		struct pakfire_parser_error* error) {
	return error->message;
}