// SPDX-License-Identifier: GPL-2.0-or-later

/* seitan - Syscall Expressive Interpreter, Transformer and Notifier
 *
 * operations.c - Execution of bytecode operations
 *
 * Copyright 2023 Red Hat GmbH
 * Authors: Alice Frosi <afrosi@redhat.com>
 *	    Stefano Brivio <sbrivio@redhat.com>
 */

#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <sched.h>
#include <unistd.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/uio.h>
#include <pwd.h>
#include <linux/seccomp.h>
#include <linux/filter.h>
#include <linux/audit.h>
#include <errno.h>
#include <ctype.h>

#include "common/gluten.h"
#include "common/util.h"
#include "operations.h"

#include "cooker/calls.h"

static bool is_cookie_valid(int notifyFd, uint64_t id)
{
	return ioctl(notifyFd, SECCOMP_IOCTL_NOTIF_ID_VALID, &id) == 0;
}

static int send_target(const struct seccomp_notif_resp *resp, int notifier)
{
	if (!is_cookie_valid(notifier, resp->id))
		ret_err(-1, "  the response id isn't valid");
	if (ioctl(notifier, SECCOMP_IOCTL_NOTIF_SEND, resp) < 0)
		if (errno != EINPROGRESS)
			ret_err(-1, "  sending the response");
	return 0;
}

static int send_inject_target(const struct seccomp_notif_addfd *resp,
			      int notifier)
{
	if (!is_cookie_valid(notifier, resp->id))
		ret_err(-1, "  the response id isn't valid");
	if (ioctl(notifier, SECCOMP_IOCTL_NOTIF_ADDFD, resp) < 0)
		if (errno != EINPROGRESS)
			ret_err(-1, "  sending the response");
	return 0;
}

static struct gluten_offset *get_syscall_ret(struct syscall_desc *s)
{
	if (s == NULL)
		return NULL;
	if (s->has_ret == 0)
		return NULL;
	if (s->arg_count == 0)
		return &s->args[0];
	return &s->args[s->arg_count];
}

static int write_syscall_ret(struct gluten *g, struct syscall_desc *s,
			     const struct arg_clone *c)
{
	struct gluten_offset *p = get_syscall_ret(s);

	if (p != NULL) {
		debug("  op_call: write return value=%ld",c->ret);
		if (gluten_write(g, *p, &c->ret, sizeof(c->ret)) == -1)
			ret_err(-1, "  failed writing return value at %d", p->offset);
	}

	return 0;
}

static void parse_number_string(char *line, char *v, size_t len)
{
	bool first = true;
	unsigned int i, k = 0;

	for (i = 0; i < len; i++) {
		/* Check until it encounters the first number */
		if(!isdigit(line[i]) && !first)
			break;
		if (!isdigit(line[i]))
			continue;
		v[k] = line[i];
		k++;
		first = false;
	}
}

static int proc_state(char *field, pid_t pid)
{
	char path[PATH_MAX];
	char v[PATH_MAX] = { '0' };
	char *line = NULL;
	size_t len = PATH_MAX;
	ssize_t read;
	FILE *fp;

	snprintf(path, PATH_MAX, "/proc/%d/status", pid);
	if ((fp = fopen(path, "r")) == NULL)
		ret_err(-1, "failed reading status for %d", pid);

	while ((read = getline(&line, &len, fp)) != -1) {
		if (strstr(line, field) != NULL)
			parse_number_string(line, v, len);
	}

	fclose(fp);
	return atoi(v);
}

static int get_metadata_value(uint32_t offset, pid_t pid)
{
	switch (offset) {
	case UID_TARGET:
		return proc_state("Uid", pid);
		break;
	case GID_TARGET:
		return proc_state("Gid", pid);
		break;
	case PID_TARGET:
		return pid;
		break;
	default:
		err("unrecognize metadata type");
	}
	return 0;
}

/* TODO: Move all "context" stuff to separate file */
static int prepare_arg_clone(const struct seccomp_notif *req, struct gluten *g,
			     struct syscall_desc *s, struct context_desc *cdesc,
			     struct arg_clone *c)
{
	char (*dst)[PATH_MAX];
	unsigned int i;
	long arg;

	c->err = 0;
	c->ret = -1;
	c->nr = s->nr;
	for (i = 0; i < s->arg_count; i++) {
		/* If arg is a pointer then need to calculate the absolute
		 * address and the value of arg is the relative offset of the actual
		 * value.
		*/
		if (GET_BIT(s->arg_deref, i) == 1) {
			c->args[i] = gluten_ptr(NULL, g, s->args[i]);
			debug("  read pointer arg%d at offset %d", i,
			      s->args[i].offset);
		} else if (s->args[i].type == OFFSET_METADATA) {
			c->args[i] = (void *)(long)get_metadata_value(
				s->args[i].offset, req->pid);
			debug("  read metadata value %s: %d",
			      metadata_type_str[s->args[i].offset], (int *)c->args[i]);
		} else {
			if (gluten_read(NULL, g, &arg, s->args[i],
					sizeof(arg)) == -1)
				ret_err(-1, "  failed reading arg %d", i);
			debug("  read arg%d at offset %d v=%ld", i,
			      s->args[i].offset, arg);
			c->args[i] = (void *)arg;
		}
	}

	/* TODO: add proper check when there is no context */
	if (cdesc == NULL) {
		debug("  op_call: no context provided");
		return 0;
	}

	for (dst = c->ns_path; cdesc->spec != CONTEXT_SPEC_NONE && cdesc->type < CONTEXT_TYPE_MAX; cdesc++) {
		enum context_spec_type spec = cdesc->spec;
		enum context_type type = cdesc->type;

		debug("  op_call: adding context for %s, type: %s %u, pid: %d",
		      context_type_name[type], context_spec_type_name[spec], type,
		      req->pid);

		if (spec == CONTEXT_SPEC_NONE)
			break;

		switch (spec) {
		case CONTEXT_SPEC_CALLER:
			if (type == CWD) {
				snprintf(c->cwd, PATH_MAX, "/proc/%d/root",
					 req->pid);
			} else if (type == UID || type == GID) {
				/* TODO: Move into its own function */
				struct stat st = { 0 };
				char path[PATH_MAX];

				snprintf(path, PATH_MAX, "/proc/%d", req->pid);
				if (stat(path, &st))
					return errno;

				if (type == UID)
					c->uid = st.st_uid;
				else if (type == GID)
					c->gid = st.st_gid;
			} else {
				snprintf(*dst, PATH_MAX, "/proc/%d/ns/%s",
					 req->pid, context_type_name[type]);
			}

			break;
		case CONTEXT_SPEC_NUM:
			if (type == CWD) {
				snprintf(c->cwd, PATH_MAX, "/proc/%d/root",
					 cdesc->target.pid);
			} else if (type == UID) {
				c->uid = cdesc->target.uid;
			} else if (type == GID) {
				c->gid = cdesc->target.gid;
			} else {
				snprintf(*dst, PATH_MAX, "/proc/%d/ns/%s",
					 cdesc->target.pid,
					 context_type_name[type]);
			}

			break;
		case CONTEXT_SPEC_NAME:
			if (type == CWD) {
				strncpy(c->cwd, cdesc->target.path, PATH_MAX);
			} else if (type == UID || type == GID) {
				struct passwd *pw;

				if (!(pw = getpwnam(cdesc->target.name)))
					return errno;

				if (type == UID)
					c->uid = pw->pw_uid;
				else if (type == GID)
					c->gid = pw->pw_gid;
			} else {
				strncpy(*dst, cdesc->target.path, PATH_MAX);
			}

			break;
		default:
			break;
		}

		if (type != CWD)
			dst++;
	}

	**dst = 0;

	return 0;
}

static int set_namespaces(struct arg_clone *c)
{
	char (*path)[PATH_MAX];
	int fd;

	for (path = c->ns_path; **path; *path++) {
		if ((fd = open(*path, O_CLOEXEC)) < 0)
			ret_err(-1, "  failed opening %s", *path);

		if (setns(fd, 0) != 0)
			ret_err(-1, "  setns");
	}
	return 0;
}

static int execute_syscall(void *args)
{
	struct arg_clone *c = (struct arg_clone *)args;

	/* We can use 0 as "unspecified" value because we can't switch from a
	 * non-zero UID/GID to zero.
	 */
	if (c->uid && setuid(c->uid))
		ret_clone_err(c, "  failed setting uid");

	if (c->gid && setgid(c->gid))
		ret_clone_err(c, "  failed setting gid");

	if (*c->cwd && chdir(c->cwd) < 0)
		ret_clone_err(c, "  failed setting current directory");

	if (set_namespaces(c) < 0)
		ret_clone_err(c, "  failed setting the namespace for the clone");

	errno = 0;
	/* execute syscall */
	c->ret = syscall(c->nr, c->args[0], c->args[1], c->args[2], c->args[3],
			 c->args[4], c->args[5]);
	c->err = errno;
	debug("  execute syscall %s: ret=%ld errno=%d%s%s", syscall_name(c->nr),
	      c->ret, c->err, *c->cwd ? " cwd=" : "", *c->cwd ? c->cwd : "");
	if (c->ret < 0) {
		perror("  syscall");
		exit(EXIT_FAILURE);
	}

	exit(0);
}

int do_call(struct arg_clone *c)
{
	char stack[STACK_SIZE];
	pid_t child;

	/* Create a process that will be moved to the namespace */
	child = clone(execute_syscall, stack + sizeof(stack),
		      CLONE_FILES | CLONE_VM | CLONE_VFORK | SIGCHLD, (void *)c);
	if (child == -1)
		ret_err(-1, "clone");
	return 0;
}

int op_call(const struct seccomp_notif *req, int notifier, struct gluten *g,
	    struct op_call *op)
{
	struct seccomp_notif_resp resp;
	struct arg_clone c = { 0 };
	struct syscall_desc *s;
	struct context_desc *cdesc;

	resp.id = req->id;
	resp.val = 0;
	resp.flags = 0;
	resp.error = 0;

	s = (struct syscall_desc *)gluten_ptr(NULL, g, op->desc);
	cdesc = (struct context_desc *)gluten_ptr(NULL, g, s->context);

	if (prepare_arg_clone(req, g, s, cdesc, &c) == -1)
		return -1;

	if (do_call(&c) == -1) {
		resp.error = -1;
		if (send_target(&resp, notifier) == -1)
			return -1;
	}
	if (c.err != 0) {
		err("  failed executing call: %s", strerror(c.err));
		resp.error = -1;
		if (send_target(&resp, notifier) == -1)
			return -1;
	}

	return write_syscall_ret(g, s, &c);
}

int op_load(const struct seccomp_notif *req, int notifier, struct gluten *g,
	    struct op_load *load)
{
	const long unsigned int *src = gluten_ptr(&req->data, g, load->src);
	void *dst = gluten_write_ptr(g, load->dst);
	char path[PATH_MAX];
	int fd, ret = 0;

	debug("  op_load: argument (%s %d) in (%s %d) size=%d",
	      gluten_offset_name[load->src.type], load->src.offset,
	      gluten_offset_name[load->dst.type], load->dst.offset, load->size);

	if(dst == NULL)
		ret_err(-1, "  op_load: empty destination");

	snprintf(path, sizeof(path), "/proc/%d/mem", req->pid);
	if ((fd = open(path, O_RDONLY | O_CLOEXEC)) < 0)
		ret_err(-1, "error opening mem for %d", req->pid);
	/*
         * Avoid the TOCTOU and check if the read mappings are still valid
         */
	if (!is_cookie_valid(notifier, req->id)) {
		err("the seccomp request isn't valid anymore");
		ret = -1;
		goto out;
	}
	if (!check_gluten_limits(load->dst, load->size)) {
		ret = -1;
		goto out;
	}
	if (pread(fd, dst, load->size, *src) < 0) {
		err("pread");
		ret = -1;
		goto out;
	}

out:
	close(fd);
	return ret;
}

int op_iovload(const struct seccomp_notif *req, int notifier, struct gluten *g,
	       struct op_iovload *load)
{
	const long unsigned int *iovptr = gluten_ptr(&req->data, g, load->iov);
	const size_t *iovlen = gluten_ptr(&req->data, g, load->iovlen);
	unsigned char *dst = gluten_write_ptr(g, load->dst);
	struct iovec iovbuf[UIO_MAXIOV], *iov = iovbuf;
	char path[PATH_MAX];
	char dbuf[BUFSIZ];
	unsigned i, count;
	int fd;

	if (!*iovlen || *iovlen >= UIO_MAXIOV)
		ret_err(EINVAL, "bad iovlen: %lu", *iovlen);

	debug("  op_iovload: vector at (%s %d) to (%s %d) iovlen=%zu, size=%zu",
	      gluten_offset_name[load->iov.type], load->iov.offset,
	      gluten_offset_name[load->dst.type], load->dst.offset, *iovlen,
	      load->size);

	snprintf(path, sizeof(path), "/proc/%d/mem", req->pid);
	if ((fd = open(path, O_RDONLY | O_CLOEXEC)) < 0)
		ret_err(-1, "error opening mem for %d", req->pid);

	if (!is_cookie_valid(notifier, req->id))
		ret_err(EIO, "expired seccomp notification");

	if (!check_gluten_limits(load->dst, load->size))
		ret_err(EINVAL, "destination out of range");

	if (pread(fd, iov, *iovlen * sizeof(struct iovec), *iovptr) <= 0)
		ret_err(EIO, "pread");

	for (i = 0, count = 0; i < *iovlen && count < load->size; i++, iov++) {
		unsigned j, dn = 0;
		ssize_t n;

		n = pread(fd, dst + count,
			  MIN(load->size - count, iov->iov_len),
			  (intptr_t)iov->iov_base);

		if (n < 0)
			ret_err(EIO, "pread");

		for (j = 0; j < n; j++) {
			dn += snprintf(dbuf + dn, BUFSIZ - dn, "%02x ",
				       dst[count + j]);
		}

		count += n;
	}

	debug("   %s", dbuf);

	close(fd);

	return 0;
}

int op_store(const struct seccomp_notif *req, int notifier, struct gluten *g,
	     struct op_store *store)
{
	const long unsigned int *dst = gluten_ptr(&req->data, g, store->dst);
	const size_t *count = gluten_ptr(&req->data, g, store->count);
	const void *src = gluten_ptr(&req->data, g, store->src);
	char path[PATH_MAX];
	int fd, ret = 0;

	debug("  op_store: argument (%s %d) in (%s %d) size=%d",
	      gluten_offset_name[store->src.type], store->src.offset,
	      gluten_offset_name[store->dst.type], store->dst.offset);

	if (dst == NULL)
		ret_err(-1, "  op_store: empty destination");

	snprintf(path, sizeof(path), "/proc/%d/mem", req->pid);
	if ((fd = open(path, O_WRONLY | O_CLOEXEC)) < 0)
		ret_err(-1, "error opening mem for %d", req->pid);
	/*
         * Avoid the TOCTOU and check if the read mappings are still valid
         */
	if (!is_cookie_valid(notifier, req->id)) {
		err("the seccomp request isn't valid anymore");
		ret = -1;
		goto out;
	}

	if (pwrite(fd, src, *count, *dst) < 0) {
		err("pwrite");
		ret = -1;
		goto out;
	}

out:
	close(fd);
	return ret;
}

int op_return(const struct seccomp_notif *req, int notifier, struct gluten *g,
	      struct op_return *op)
{
	const struct return_desc *desc = gluten_ptr(&req->data, g, op->desc);
	struct seccomp_notif_resp resp;

	if(desc == NULL)
		ret_err(-1, "empty description for return value");

	resp.id = req->id;
	if (desc->cont) {
		resp.flags = SECCOMP_USER_NOTIF_FLAG_CONTINUE;
		resp.error = 0;
		resp.val = 0;
		debug("  op_return: continue the syscall");
	} else {
		resp.id = req->id;
		resp.flags = 0;
		if (gluten_read(&req->data, g, &resp.val, desc->val,
				sizeof(resp.val)) == -1)
			return -1;
		if (gluten_read(&req->data, g, &resp.error, desc->error,
				sizeof(resp.error)) == -1)
			return -1;
		debug("  op_return: val=%ld errno=%d", resp.val, resp.error);
	}

	if (send_target(&resp, notifier) == -1)
		return -1;

	return 0;
}

int op_fd(const struct seccomp_notif *req, int notifier,
	  struct gluten *g, struct op_fd *op)
{
	const struct fd_desc *desc = gluten_ptr(&req->data, g, op->desc);
	struct seccomp_notif_addfd resp;
	const void *fd;

	if (!desc)
		return -1;

	resp.flags = desc->setfd ? SECCOMP_ADDFD_FLAG_SETFD : 0;
	resp.flags |= desc->do_return ? SECCOMP_ADDFD_FLAG_SEND : 0;
	resp.newfd_flags = desc->cloexec ? O_CLOEXEC : 0;
	resp.id = req->id;

	if (!(fd = gluten_ptr(&req->data, g, desc->srcfd)))
		return -1;
	resp.srcfd = *(uint32_t *)fd;

	if (desc->setfd) {
		if (!(fd = gluten_ptr(&req->data, g, desc->newfd)))
			return -1;
		resp.newfd = *(uint32_t *)fd;
	} else {
		resp.newfd = 0;
	}

	if (send_inject_target(&resp, notifier) == -1)
		return -1;

	return 0;
}

int op_bitwise(const struct seccomp_notif *req, int notifier, struct gluten *g,
	       struct op_bitwise *op)
{
	const struct bitwise_desc *desc = gluten_ptr(&req->data, g, op->desc);
	const unsigned char *x, *y;
	unsigned char *dst;
	unsigned i;

	(void)notifier;

	if (!desc)
		return -1;

	dst = gluten_write_ptr(      g, desc->dst);
	x   = gluten_ptr(&req->data, g, desc->x);
	y   = gluten_ptr(&req->data, g, desc->y);

/*
	if (!dst || !src || !mask ||
	    !check_gluten_limits(desc->dst,  desc->size) ||
	    !check_gluten_limits(desc->src,  desc->size) ||
	    !check_gluten_limits(desc->mask, desc->size))
		return -1;
*/
	debug("  op_bitwise: dst=(%s %d) := x=(%s %d) %s y=(%s %d) size=%d",
	      gluten_offset_name[desc->dst.type], desc->dst.offset,
	      gluten_offset_name[desc->x.type],   desc->x.offset,
	      bitwise_type_str[desc->type],
	      gluten_offset_name[desc->y.type],   desc->y.offset,
	      desc->size);

	for (i = 0; i < desc->size; i++) {
		if (desc->type == BITWISE_AND)
			dst[i] = x[i] & y[i];
		else if (desc->type == BITWISE_OR)
			dst[i] = x[i] | y[i];
		else
			return -1;
	}

	return 0;
}

static void str_offset_value(const struct seccomp_notif *req, struct gluten *g,
		const struct gluten_offset *offset, size_t size,
		char *v, size_t s_str)
{
	const void *px = gluten_ptr(&req->data, g, *offset);
	char t[PATH_MAX];

	if(!px) {
		err("  empty gluten to read");
		return;
	}

	switch(offset->type) {
	case OFFSET_NULL:
		snprintf(v, s_str, "offset %d is NULL", offset->offset);
		return;
	case OFFSET_SECCOMP_DATA:
		snprintf(t, PATH_MAX, "%llx", *(long long unsigned *)px);
		goto print;
	case OFFSET_INSTRUCTION:
		snprintf(v, s_str, "offset %d to instruction", offset->offset);
		return;
	case OFFSET_METADATA:
		snprintf(t, PATH_MAX, "%s", metadata_type_str[*(unsigned int *)px]);
		goto print;
	default:
		break;
	}
	switch(size) {
	case sizeof(unsigned int):
		snprintf(t, PATH_MAX,"%x", *(unsigned int *)px);
		goto print;
	case sizeof(long unsigned):
		snprintf(t, PATH_MAX,"%lx", *(long unsigned*)px);
		goto print;
	default:
		/* For the cases where it isn't possible to have a nice print, just print
		 * the type and offset
		 */
		snprintf(v, s_str, "(type=%s offset=%d) size=%ld", gluten_offset_name[offset->type],
				 offset->offset, size);
		return;
	}
print:
	snprintf(v, s_str, "(type=%s offset=%d)='%s'", gluten_offset_name[offset->type],
				 offset->offset, t);
}

int op_cmp(const struct seccomp_notif *req, int notifier, struct gluten *g,
	   struct op_cmp *op)
{
	const struct cmp_desc *desc = gluten_ptr(&req->data, g, op->desc);
	char str_x[PATH_MAX], str_y[PATH_MAX];
	enum op_cmp_type cmp;
	const void *px, *py;
	int res;

	(void)notifier;

	if (!desc)
		return -1;

	px  = gluten_ptr(&req->data, g, desc->x);
	py  = gluten_ptr(&req->data, g, desc->y);
	cmp = desc->cmp;

	if (!px || !py ||
	    !check_gluten_limits(desc->x, desc->size) ||
	    !check_gluten_limits(desc->y, desc->size))
		return -1;
	str_offset_value(req, g, &desc->x, desc->size, str_x, PATH_MAX);
	str_offset_value(req, g, &desc->y, desc->size, str_y, PATH_MAX);
	debug("  op_cmp: operands x=%s y=%s", str_x, str_y);

	res = memcmp(px, py, desc->size);

	if ((res == 0 && (cmp == CMP_EQ || cmp == CMP_LE   || cmp == CMP_GE)) ||
	    (res < 0  && (cmp == CMP_LT || cmp == CMP_LE)) ||
	    (res > 0  && (cmp == CMP_GT || cmp == CMP_GE)) ||
	    (res != 0 && (cmp == CMP_NE))) {
		debug("  op_cmp: successful comparison, jump to %d",
		      desc->jmp.offset);
		return desc->jmp.offset;
	}
	debug("  op_cmp: comparison is false");

	return 0;
}

int op_resolve_fd(const struct seccomp_notif *req, int notifier,
		  struct gluten *g, struct op_resolvefd *op)
{
	const struct resolvefd_desc *desc = gluten_ptr(&req->data, g, op->desc);
	char fdpath[PATH_MAX], buf[PATH_MAX];
	ssize_t nbytes;
	int fd;

	(void)notifier;

	debug("  op_resolvefd: fd=(%s %d) path=(%s %d) path_max=%d",
	      gluten_offset_name[desc->fd.type], desc->fd.offset,
	      gluten_offset_name[desc->path.type], desc->path.offset,
	      desc->path_max);

	if (gluten_read(&req->data, g, &fd, desc->fd, sizeof(fd)) == -1)
		return -1;

	snprintf(fdpath, PATH_MAX, "/proc/%d/fd/%d", req->pid, fd);
	if ((nbytes = readlink(fdpath, buf, desc->path_max)) < 0)
		ret_err(-1, "error reading %s", buf);

	debug("  op_resolvefd: fd %d -> path: %s", fd, buf);
	gluten_write(g, desc->path, &buf, desc->path_max);

	return 0;
}

int op_nr(const struct seccomp_notif *req, int notifier, struct gluten *g,
	  struct op_nr *op)
{
	long nr;

	(void)notifier;

	if (gluten_read(NULL, g, &nr, op->nr, sizeof(nr)) == -1)
		return -1;

	debug("  op_nr: checking syscall %s (%li)", syscall_name(nr), nr);
	if (nr == req->data.nr)
		return 0;

	debug("  op_nr: no match: jump to #%d", op->no_match.offset);
	return op->no_match.offset;
}

int op_copy(const struct seccomp_notif *req, int notifier, struct gluten *g,
	    struct op_copy *op)
{
	(void)notifier;

	return gluten_write(g, op->dst, gluten_ptr(&req->data, g, op->src),
			    op->size);
}

int eval(struct gluten *g, const struct seccomp_notif *req,
	 int notifier)
{
	struct op *op = (struct op *)g->inst;

	while (op->type != OP_END) {
		debug("at instruction %i", op - (struct op *)g->inst);
		switch (op->type) {
			HANDLE_OP(OP_CALL, op_call, call, g);
			HANDLE_OP(OP_RETURN, op_return, ret, g);
			HANDLE_OP(OP_FD, op_fd, fd, g);
			HANDLE_OP(OP_LOAD, op_load, load, g);
			HANDLE_OP(OP_STORE, op_store, store, g);
			HANDLE_OP(OP_IOVLOAD, op_iovload, iovload, g);
			HANDLE_OP(OP_BITWISE, op_bitwise, bitwise, g);
			HANDLE_OP(OP_CMP, op_cmp, cmp, g);
			HANDLE_OP(OP_RESOLVEDFD, op_resolve_fd, resfd, g);
			HANDLE_OP(OP_NR, op_nr, nr, g);
			HANDLE_OP(OP_COPY, op_copy, copy, g);
		default:
			ret_err(-1, "unknown operation %d", op->type);
		}
	}

	return 0;
}