security/ccsecurity/policy_io.c

/*
 * security/ccsecurity/policy_io.c
 *
 * Copyright (C) 2005-2010  NTT DATA CORPORATION
 *
 * Version: 1.8.0-pre   2010/10/05
 *
 * This file is applicable to both 2.4.30 and 2.6.11 and later.
 * See README.ccs for ChangeLog.
 *
 */

#include "internal.h"

/* Profile version. Currently only 20100903 is defined. */
static unsigned int ccs_profile_version;

/* Profile table. Memory is allocated as needed. */
static struct ccs_profile *ccs_profile_ptr[CCS_MAX_PROFILES];

/* String table for functionality that takes 4 modes. */
const char * const ccs_mode[CCS_CONFIG_MAX_MODE] = {
        [CCS_CONFIG_DISABLED]   = "disabled",
        [CCS_CONFIG_LEARNING]   = "learning",
        [CCS_CONFIG_PERMISSIVE] = "permissive",
        [CCS_CONFIG_ENFORCING]  = "enforcing"
};

/* String table for /proc/ccs/profile */
const char * const ccs_mac_keywords[CCS_MAX_MAC_INDEX
                                    + CCS_MAX_MAC_CATEGORY_INDEX] = {
        [CCS_MAC_FILE_EXECUTE]    = "execute",
        [CCS_MAC_FILE_OPEN]       = "open",
        [CCS_MAC_FILE_CREATE]     = "create",
        [CCS_MAC_FILE_UNLINK]     = "unlink",
        [CCS_MAC_FILE_MKDIR]      = "mkdir",
        [CCS_MAC_FILE_RMDIR]      = "rmdir",
        [CCS_MAC_FILE_MKFIFO]     = "mkfifo",
        [CCS_MAC_FILE_MKSOCK]     = "mksock",
        [CCS_MAC_FILE_TRUNCATE]   = "truncate",
        [CCS_MAC_FILE_SYMLINK]    = "symlink",
        [CCS_MAC_FILE_MKBLOCK]    = "mkblock",
        [CCS_MAC_FILE_MKCHAR]     = "mkchar",
        [CCS_MAC_FILE_LINK]       = "link",
        [CCS_MAC_FILE_RENAME]     = "rename",
        [CCS_MAC_FILE_CHMOD]      = "chmod",
        [CCS_MAC_FILE_CHOWN]      = "chown",
        [CCS_MAC_FILE_CHGRP]      = "chgrp",
        [CCS_MAC_FILE_IOCTL]      = "ioctl",
        [CCS_MAC_FILE_CHROOT]     = "chroot",
        [CCS_MAC_FILE_MOUNT]      = "mount",
        [CCS_MAC_FILE_UMOUNT]     = "unmount",
        [CCS_MAC_FILE_PIVOT_ROOT] = "pivot_root",
        [CCS_MAC_ENVIRON] = "env",
        [CCS_MAC_NETWORK_INET_STREAM_BIND]       = "inet_stream_bind",
        [CCS_MAC_NETWORK_INET_STREAM_LISTEN]     = "inet_stream_listen",
        [CCS_MAC_NETWORK_INET_STREAM_CONNECT]    = "inet_stream_connect",
        [CCS_MAC_NETWORK_INET_STREAM_ACCEPT]     = "inet_stream_accept",
        [CCS_MAC_NETWORK_INET_DGRAM_BIND]        = "inet_dgram_bind",
        [CCS_MAC_NETWORK_INET_DGRAM_SEND]        = "inet_dgram_send",
        [CCS_MAC_NETWORK_INET_DGRAM_RECV]        = "inet_dgram_recv",
        [CCS_MAC_NETWORK_INET_RAW_BIND]          = "inet_raw_bind",
        [CCS_MAC_NETWORK_INET_RAW_SEND]          = "inet_raw_send",
        [CCS_MAC_NETWORK_INET_RAW_RECV]          = "inet_raw_recv",
        [CCS_MAC_NETWORK_UNIX_STREAM_BIND]       = "unix_stream_bind",
        [CCS_MAC_NETWORK_UNIX_STREAM_LISTEN]     = "unix_stream_listen",
        [CCS_MAC_NETWORK_UNIX_STREAM_CONNECT]    = "unix_stream_connect",
        [CCS_MAC_NETWORK_UNIX_STREAM_ACCEPT]     = "unix_stream_accept",
        [CCS_MAC_NETWORK_UNIX_DGRAM_BIND]        = "unix_dgram_bind",
        [CCS_MAC_NETWORK_UNIX_DGRAM_SEND]        = "unix_dgram_send",
        [CCS_MAC_NETWORK_UNIX_DGRAM_RECV]        = "unix_dgram_recv",
        [CCS_MAC_NETWORK_UNIX_SEQPACKET_BIND]    = "unix_seqpacket_bind",
        [CCS_MAC_NETWORK_UNIX_SEQPACKET_LISTEN]  = "unix_seqpacket_listen",
        [CCS_MAC_NETWORK_UNIX_SEQPACKET_CONNECT] = "unix_seqpacket_connect",
        [CCS_MAC_NETWORK_UNIX_SEQPACKET_ACCEPT]  = "unix_seqpacket_accept",
        [CCS_MAC_SIGNAL] = "signal",
        [CCS_MAC_CAPABILITY_USE_ROUTE_SOCKET]  = "use_route",
        [CCS_MAC_CAPABILITY_USE_PACKET_SOCKET] = "use_packet",
        [CCS_MAC_CAPABILITY_SYS_REBOOT]        = "SYS_REBOOT",
        [CCS_MAC_CAPABILITY_SYS_VHANGUP]       = "SYS_VHANGUP",
        [CCS_MAC_CAPABILITY_SYS_SETTIME]       = "SYS_TIME",
        [CCS_MAC_CAPABILITY_SYS_NICE]          = "SYS_NICE",
        [CCS_MAC_CAPABILITY_SYS_SETHOSTNAME]   = "SYS_SETHOSTNAME",
        [CCS_MAC_CAPABILITY_USE_KERNEL_MODULE] = "use_kernel_module",
        [CCS_MAC_CAPABILITY_SYS_KEXEC_LOAD]    = "SYS_KEXEC_LOAD",
        [CCS_MAC_CAPABILITY_SYS_PTRACE]        = "SYS_PTRACE",
        [CCS_MAX_MAC_INDEX + CCS_MAC_CATEGORY_FILE]       = "file",
        [CCS_MAX_MAC_INDEX + CCS_MAC_CATEGORY_NETWORK]    = "network",
        [CCS_MAX_MAC_INDEX + CCS_MAC_CATEGORY_MISC]       = "misc",
        [CCS_MAX_MAC_INDEX + CCS_MAC_CATEGORY_IPC]        = "ipc",
        [CCS_MAX_MAC_INDEX + CCS_MAC_CATEGORY_CAPABILITY] = "capability",
};

const char * const ccs_path_keyword[CCS_MAX_PATH_OPERATION] = {
        [CCS_TYPE_EXECUTE]    = "execute",
        [CCS_TYPE_READ]       = "read",
        [CCS_TYPE_WRITE]      = "write",
        [CCS_TYPE_APPEND]     = "append",
        [CCS_TYPE_UNLINK]     = "unlink",
        [CCS_TYPE_RMDIR]      = "rmdir",
        [CCS_TYPE_TRUNCATE]   = "truncate",
        [CCS_TYPE_SYMLINK]    = "symlink",
        [CCS_TYPE_CHROOT]     = "chroot",
        [CCS_TYPE_UMOUNT]     = "unmount",
};

static const char * const ccs_category_keywords[CCS_MAX_MAC_CATEGORY_INDEX] = {
        [CCS_MAC_CATEGORY_FILE]       = "file",
        [CCS_MAC_CATEGORY_NETWORK]    = "network",
        [CCS_MAC_CATEGORY_MISC]       = "misc",
        [CCS_MAC_CATEGORY_IPC]        = "ipc",
        [CCS_MAC_CATEGORY_CAPABILITY] = "capability",
};

const char * const ccs_condition_keyword[CCS_MAX_CONDITION_KEYWORD] = {
        [CCS_TASK_UID]             = "task.uid",
        [CCS_TASK_EUID]            = "task.euid",
        [CCS_TASK_SUID]            = "task.suid",
        [CCS_TASK_FSUID]           = "task.fsuid",
        [CCS_TASK_GID]             = "task.gid",
        [CCS_TASK_EGID]            = "task.egid",
        [CCS_TASK_SGID]            = "task.sgid",
        [CCS_TASK_FSGID]           = "task.fsgid",
        [CCS_TASK_PID]             = "task.pid",
        [CCS_TASK_PPID]            = "task.ppid",
        [CCS_EXEC_ARGC]            = "exec.argc",
        [CCS_EXEC_ENVC]            = "exec.envc",
        [CCS_TYPE_IS_SOCKET]       = "socket",
        [CCS_TYPE_IS_SYMLINK]      = "symlink",
        [CCS_TYPE_IS_FILE]         = "file",
        [CCS_TYPE_IS_BLOCK_DEV]    = "block",
        [CCS_TYPE_IS_DIRECTORY]    = "directory",
        [CCS_TYPE_IS_CHAR_DEV]     = "char",
        [CCS_TYPE_IS_FIFO]         = "fifo",
        [CCS_MODE_SETUID]          = "setuid",
        [CCS_MODE_SETGID]          = "setgid",
        [CCS_MODE_STICKY]          = "sticky",
        [CCS_MODE_OWNER_READ]      = "owner_read",
        [CCS_MODE_OWNER_WRITE]     = "owner_write",
        [CCS_MODE_OWNER_EXECUTE]   = "owner_execute",
        [CCS_MODE_GROUP_READ]      = "group_read",
        [CCS_MODE_GROUP_WRITE]     = "group_write",
        [CCS_MODE_GROUP_EXECUTE]   = "group_execute",
        [CCS_MODE_OTHERS_READ]     = "others_read",
        [CCS_MODE_OTHERS_WRITE]    = "others_write",
        [CCS_MODE_OTHERS_EXECUTE]  = "others_execute",
        [CCS_TASK_TYPE]            = "task.type",
        [CCS_TASK_EXECUTE_HANDLER] = "execute_handler",
        [CCS_EXEC_REALPATH]        = "exec.realpath",
        [CCS_SYMLINK_TARGET]       = "symlink.target",
        [CCS_PATH1_UID]            = "path1.uid",
        [CCS_PATH1_GID]            = "path1.gid",
        [CCS_PATH1_INO]            = "path1.ino",
        [CCS_PATH1_MAJOR]          = "path1.major",
        [CCS_PATH1_MINOR]          = "path1.minor",
        [CCS_PATH1_PERM]           = "path1.perm",
        [CCS_PATH1_TYPE]           = "path1.type",
        [CCS_PATH1_DEV_MAJOR]      = "path1.dev_major",
        [CCS_PATH1_DEV_MINOR]      = "path1.dev_minor",
        [CCS_PATH2_UID]            = "path2.uid",
        [CCS_PATH2_GID]            = "path2.gid",
        [CCS_PATH2_INO]            = "path2.ino",
        [CCS_PATH2_MAJOR]          = "path2.major",
        [CCS_PATH2_MINOR]          = "path2.minor",
        [CCS_PATH2_PERM]           = "path2.perm",
        [CCS_PATH2_TYPE]           = "path2.type",
        [CCS_PATH2_DEV_MAJOR]      = "path2.dev_major",
        [CCS_PATH2_DEV_MINOR]      = "path2.dev_minor",
        [CCS_PATH1_PARENT_UID]     = "path1.parent.uid",
        [CCS_PATH1_PARENT_GID]     = "path1.parent.gid",
        [CCS_PATH1_PARENT_INO]     = "path1.parent.ino",
        [CCS_PATH1_PARENT_PERM]    = "path1.parent.perm",
        [CCS_PATH2_PARENT_UID]     = "path2.parent.uid",
        [CCS_PATH2_PARENT_GID]     = "path2.parent.gid",
        [CCS_PATH2_PARENT_INO]     = "path2.parent.ino",
        [CCS_PATH2_PARENT_PERM]    = "path2.parent.perm",
};

static const char * const ccs_pref_keywords[CCS_MAX_PREF] = {
        [CCS_PREF_MAX_GRANT_LOG]      = "max_grant_log",
        [CCS_PREF_MAX_REJECT_LOG]     = "max_reject_log",
        [CCS_PREF_MAX_LEARNING_ENTRY] = "max_learning_entry",
        [CCS_PREF_ENFORCING_PENALTY]  = "enforcing_penalty",
};

/* Permit policy management by non-root user? */
static bool ccs_manage_by_non_root;

/**
 * ccs_yesno - Return "yes" or "no".
 *
 * @value: Bool value.
 */
static const char *ccs_yesno(const unsigned int value)
{
        return value ? "yes" : "no";
}

static void ccs_addprintf(char *buffer, int len, const char *fmt, ...)
     __attribute__ ((format(printf, 3, 4)));

static void ccs_addprintf(char *buffer, int len, const char *fmt, ...)
{
        va_list args;
        const int pos = strlen(buffer);
        va_start(args, fmt);
        vsnprintf(buffer + pos, len - pos - 1, fmt, args);
        va_end(args);
}

/**
 * ccs_flush - Flush queued string to userspace's buffer.
 *
 * @head:   Pointer to "struct ccs_io_buffer".
 *
 * Returns true if all data was flushed, false otherwise.
 */
static bool ccs_flush(struct ccs_io_buffer *head)
{
        while (head->r.w_pos) {
                const char *w = head->r.w[0];
                int len = strlen(w);
                if (len) {
                        if (len > head->read_user_buf_avail)
                                len = head->read_user_buf_avail;
                        if (!len)
                                return false;
                        if (copy_to_user(head->read_user_buf, w, len))
                                return false;
                        head->read_user_buf_avail -= len;
                        head->read_user_buf += len;
                        w += len;
                }
                if (*w) {
                        head->r.w[0] = w;
                        return false;
                }
                /* Add '\0' for audit logs and query. */
                if (head->poll) {
                        if (!head->read_user_buf_avail ||
                            copy_to_user(head->read_user_buf, "", 1))
                                return false;
                        head->read_user_buf_avail--;
                        head->read_user_buf++;
                }
                head->r.w_pos--;
                for (len = 0; len < head->r.w_pos; len++)
                        head->r.w[len] = head->r.w[len + 1];
        }
        head->r.avail = 0;
        return true;
}

/**
 * ccs_set_string - Queue string to "struct ccs_io_buffer" structure.
 *
 * @head:   Pointer to "struct ccs_io_buffer".
 * @string: String to print.
 *
 * Note that @string has to be kept valid until @head is kfree()d.
 * This means that char[] allocated on stack memory cannot be passed to
 * this function. Use ccs_io_printf() for char[] allocated on stack memory.
 */
static void ccs_set_string(struct ccs_io_buffer *head, const char *string)
{
        if (head->r.w_pos < CCS_MAX_IO_READ_QUEUE) {
                head->r.w[head->r.w_pos++] = string;
                ccs_flush(head);
        } else
                printk(KERN_WARNING "Too many words in a line.\n");
}

/**
 * ccs_io_printf - printf() to "struct ccs_io_buffer" structure.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @fmt:  The printf()'s format string, followed by parameters.
 */
void ccs_io_printf(struct ccs_io_buffer *head, const char *fmt, ...)
{
        va_list args;
        int len;
        int pos = head->r.avail;
        int size = head->readbuf_size - pos;
        if (size <= 0)
                return;
        va_start(args, fmt);
        len = vsnprintf(head->read_buf + pos, size, fmt, args) + 1;
        va_end(args);
        if (pos + len >= head->readbuf_size) {
                printk(KERN_WARNING "Too many words in a line.\n");
                return;
        }
        head->r.avail += len;
        ccs_set_string(head, head->read_buf + pos);
}

static void ccs_set_space(struct ccs_io_buffer *head)
{
        ccs_set_string(head, " ");
}

static bool ccs_set_lf(struct ccs_io_buffer *head)
{
        ccs_set_string(head, "\n");
        return !head->r.w_pos;
}

/**
 * ccs_assign_profile - Create a new profile.
 *
 * @profile: Profile number to create.
 *
 * Returns pointer to "struct ccs_profile" on success, NULL otherwise.
 */
static struct ccs_profile *ccs_assign_profile(const unsigned int profile)
{
        struct ccs_profile *ptr;
        struct ccs_profile *entry;
        if (profile >= CCS_MAX_PROFILES)
                return NULL;
        ptr = ccs_profile_ptr[profile];
        if (ptr)
                return ptr;
        entry = kzalloc(sizeof(*entry), CCS_GFP_FLAGS);
        if (mutex_lock_interruptible(&ccs_policy_lock))
                goto out;
        ptr = ccs_profile_ptr[profile];
        if (!ptr && ccs_memory_ok(entry, sizeof(*entry))) {
                ptr = entry;
                ptr->default_config = CCS_CONFIG_DISABLED |
                        CCS_CONFIG_WANT_GRANT_LOG | CCS_CONFIG_WANT_REJECT_LOG;
                memset(ptr->config, CCS_CONFIG_USE_DEFAULT,
                       sizeof(ptr->config));
                ptr->pref[CCS_PREF_MAX_GRANT_LOG] =
                        CONFIG_CCSECURITY_MAX_GRANT_LOG;
                ptr->pref[CCS_PREF_MAX_REJECT_LOG] =
                        CONFIG_CCSECURITY_MAX_REJECT_LOG;
                ptr->pref[CCS_PREF_MAX_LEARNING_ENTRY] =
                        CONFIG_CCSECURITY_MAX_ACCEPT_ENTRY;
                mb(); /* Avoid out-of-order execution. */
                ccs_profile_ptr[profile] = ptr;
                entry = NULL;
        }
        mutex_unlock(&ccs_policy_lock);
out:
        kfree(entry);
        return ptr;
}

/**
 * ccs_check_profile - Check all profiles currently assigned to domains are defined.
 */
static void ccs_check_profile(void)
{
        struct ccs_domain_info *domain;
        const int idx = ccs_read_lock();
        ccs_policy_loaded = true;
        list_for_each_entry_srcu(domain, &ccs_domain_list, list, &ccs_ss) {
                const u8 profile = domain->profile;
                if (ccs_profile_ptr[profile])
                        continue;
                panic("Profile %u (used by '%s') not defined.\n",
                      profile, domain->domainname->name);
        }
        ccs_read_unlock(idx);
        if (ccs_profile_version != 20100903)
                panic("Profile version %u is not supported.\n",
                      ccs_profile_version);
        printk(KERN_INFO "CCSecurity: 1.8.0-pre   2010/10/05\n");
        printk(KERN_INFO "Mandatory Access Control activated.\n");
}

/**
 * ccs_profile - Find a profile.
 *
 * @profile: Profile number to find.
 *
 * Returns pointer to "struct ccs_profile".
 */
struct ccs_profile *ccs_profile(const u8 profile)
{
        static struct ccs_profile ccs_null_profile;
        struct ccs_profile *ptr = ccs_profile_ptr[profile];
        if (!ptr)
                ptr = &ccs_null_profile;
        return ptr;
}

static s8 ccs_find_yesno(const char *string, const char *find)
{
        const char *cp = strstr(string, find);
        if (cp) {
                cp += strlen(find);
                if (!strncmp(cp, "=yes", 4))
                        return 1;
                else if (!strncmp(cp, "=no", 3))
                        return 0;
        }
        return -1;
}

static void ccs_set_uint(unsigned int *i, const char *string, const char *find)
{
        const char *cp = strstr(string, find);
        if (cp)
                sscanf(cp + strlen(find), "=%u", i);
}

static int ccs_set_mode(char *name, const char *value,
                        struct ccs_profile *profile)
{
        u8 i;
        u8 config;
        if (!strcmp(name, "CONFIG")) {
                i = CCS_MAX_MAC_INDEX + CCS_MAX_MAC_CATEGORY_INDEX;
                config = profile->default_config;
        } else if (ccs_str_starts(&name, "CONFIG::")) {
                config = 0;
                for (i = 0; i < CCS_MAX_MAC_INDEX + CCS_MAX_MAC_CATEGORY_INDEX;
                     i++) {
                        int len = 0;
                        if (i < CCS_MAX_MAC_INDEX) {
                                const u8 c = ccs_index2category[i];
                                const char *category =
                                        ccs_category_keywords[c];
                                len = strlen(category);
                                if (strncmp(name, category, len) ||
                                    name[len++] != ':' || name[len++] != ':')
                                        continue;
                        }
                        if (strcmp(name + len, ccs_mac_keywords[i]))
                                continue;
                        config = profile->config[i];
                        break;
                }
                if (i == CCS_MAX_MAC_INDEX + CCS_MAX_MAC_CATEGORY_INDEX)
                        return -EINVAL;
        } else {
                return -EINVAL;
        }
        if (strstr(value, "use_default")) {
                config = CCS_CONFIG_USE_DEFAULT;
        } else {
                u8 mode;
                for (mode = 0; mode < CCS_CONFIG_MAX_MODE; mode++)
                        if (strstr(value, ccs_mode[mode]))
                                /*
                                 * Update lower 3 bits in order to distinguish
                                 * 'config' from 'CCS_CONFIG_USE_DEAFULT'.
                                 */
                                config = (config & ~7) | mode;
                if (config != CCS_CONFIG_USE_DEFAULT) {
                        switch (ccs_find_yesno(value, "grant_log")) {
                        case 1:
                                config |= CCS_CONFIG_WANT_GRANT_LOG;
                                break;
                        case 0:
                                config &= ~CCS_CONFIG_WANT_GRANT_LOG;
                                break;
                        }
                        switch (ccs_find_yesno(value, "reject_log")) {
                        case 1:
                                config |= CCS_CONFIG_WANT_REJECT_LOG;
                                break;
                        case 0:
                                config &= ~CCS_CONFIG_WANT_REJECT_LOG;
                                break;
                        }
                }
        }
        if (i < CCS_MAX_MAC_INDEX + CCS_MAX_MAC_CATEGORY_INDEX)
                profile->config[i] = config;
        else if (config != CCS_CONFIG_USE_DEFAULT)
                profile->default_config = config;
        return 0;
}

/**
 * ccs_write_profile - Write profile table.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_write_profile(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        unsigned int i;
        char *cp;
        struct ccs_profile *profile;
        if (sscanf(data, "PROFILE_VERSION=%u", &ccs_profile_version) == 1)
                return 0;
        i = simple_strtoul(data, &cp, 10);
        if (*cp != '-')
                return -EINVAL;
        data = cp + 1;
        profile = ccs_assign_profile(i);
        if (!profile)
                return -EINVAL;
        cp = strchr(data, '=');
        if (!cp)
                return -EINVAL;
        *cp++ = '\0';
        if (!strcmp(data, "COMMENT")) {
                const struct ccs_path_info *old_comment = profile->comment;
                profile->comment = ccs_get_name(cp);
                ccs_put_name(old_comment);
                return 0;
        }
        if (!strcmp(data, "PREFERENCE")) {
                for (i = 0; i < CCS_MAX_PREF; i++)
                        ccs_set_uint(&profile->pref[i], cp,
                                     ccs_pref_keywords[i]);
                return 0;
        }
        return ccs_set_mode(data, cp, profile);
}

static void ccs_print_config(struct ccs_io_buffer *head, const u8 config)
{
        ccs_io_printf(head, "={ mode=%s grant_log=%s reject_log=%s }\n",
                      ccs_mode[config & 3],
                      ccs_yesno(config & CCS_CONFIG_WANT_GRANT_LOG),
                      ccs_yesno(config & CCS_CONFIG_WANT_REJECT_LOG));
}

/**
 * ccs_read_profile - Read profile table.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 */
static void ccs_read_profile(struct ccs_io_buffer *head)
{
        u8 index;
        const struct ccs_profile *profile;
next:
        index = head->r.index;
        profile = ccs_profile_ptr[index];
        switch (head->r.step) {
        case 0:
                ccs_io_printf(head, "PROFILE_VERSION=%s\n", "20100903");
                head->r.step++;
                break;
        case 1:
                for ( ; head->r.index < CCS_MAX_PROFILES;
                      head->r.index++)
                        if (ccs_profile_ptr[head->r.index])
                                break;
                if (head->r.index == CCS_MAX_PROFILES)
                        return;
                head->r.step++;
                break;
        case 2:
                {
                        u8 i;
                        const struct ccs_path_info *comment = profile->comment;
                        ccs_io_printf(head, "%u-COMMENT=", index);
                        ccs_set_string(head, comment ? comment->name : "");
                        ccs_set_lf(head);
                        ccs_io_printf(head, "%u-PREFERENCE={ ", index);
                        for (i = 0; i < CCS_MAX_PREF; i++)
                                ccs_io_printf(head, "%s=%u ",
                                              ccs_pref_keywords[i],
                                              profile->pref[i]);
                        ccs_set_string(head, " }\n");
                        head->r.step++;
                }
                break;
        case 3:
                {
                        ccs_io_printf(head, "%u-%s", index, "CONFIG");
                        ccs_print_config(head, profile->default_config);
                        head->r.bit = 0;
                        head->r.step++;
                }
                break;
        case 4:
                for ( ; head->r.bit < CCS_MAX_MAC_INDEX
                              + CCS_MAX_MAC_CATEGORY_INDEX; head->r.bit++) {
                        const u8 i = head->r.bit;
                        const u8 config = profile->config[i];
                        if (config == CCS_CONFIG_USE_DEFAULT)
                                continue;
                        if (i < CCS_MAX_MAC_INDEX)
                                ccs_io_printf(head, "%u-CONFIG::%s::%s", index,
                                              ccs_category_keywords
                                              [ccs_index2category[i]],
                                              ccs_mac_keywords[i]);
                        else
                                ccs_io_printf(head, "%u-CONFIG::%s", index,
                                              ccs_mac_keywords[i]);
                        ccs_print_config(head, config);
                        head->r.bit++;
                        break;
                }
                if (head->r.bit == CCS_MAX_MAC_INDEX
                    + CCS_MAX_MAC_CATEGORY_INDEX) {
                        head->r.index++;
                        head->r.step = 1;
                }
                break;
        }
        if (ccs_flush(head))
                goto next;
}

static bool ccs_same_manager(const struct ccs_acl_head *a,
                             const struct ccs_acl_head *b)
{
        return container_of(a, struct ccs_manager, head)->manager
                == container_of(b, struct ccs_manager, head)->manager;
}

/**
 * ccs_update_manager_entry - Add a manager entry.
 *
 * @manager:   The path to manager or the domainnamme.
 * @is_delete: True if it is a delete request.
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_update_manager_entry(const char *manager, const bool is_delete)
{
        struct ccs_manager e = { };
        int error = is_delete ? -ENOENT : -ENOMEM;
        if (ccs_domain_def(manager)) {
                if (!ccs_correct_domain(manager))
                        return -EINVAL;
                e.is_domain = true;
        } else {
                if (!ccs_correct_path(manager))
                        return -EINVAL;
        }
        e.manager = ccs_get_name(manager);
        if (!e.manager)
                return error;
        error = ccs_update_policy(&e.head, sizeof(e), is_delete,
                                  &ccs_policy_list[CCS_ID_MANAGER],
                                  ccs_same_manager);
        ccs_put_name(e.manager);
        return error;
}

/**
 * ccs_write_manager - Write manager policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_write_manager(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        bool is_delete = ccs_str_starts(&data, "delete ");
        if (!strcmp(data, "manage_by_non_root")) {
                ccs_manage_by_non_root = !is_delete;
                return 0;
        }
        return ccs_update_manager_entry(data, is_delete);
}

/**
 * ccs_read_manager - Read manager policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Caller holds ccs_read_lock().
 */
static void ccs_read_manager(struct ccs_io_buffer *head)
{
        if (head->r.eof)
                return;
        list_for_each_cookie(head->r.acl, &ccs_policy_list[CCS_ID_MANAGER]) {
                struct ccs_manager *ptr =
                        list_entry(head->r.acl, typeof(*ptr), head.list);
                if (ptr->head.is_deleted)
                        continue;
                if (!ccs_flush(head))
                        return;
                ccs_set_string(head, ptr->manager->name);
                ccs_set_lf(head);
        }
        head->r.eof = true;
}

/**
 * ccs_manager - Check whether the current process is a policy manager.
 *
 * Returns true if the current process is permitted to modify policy
 * via /proc/ccs/ interface.
 *
 * Caller holds ccs_read_lock().
 */
static bool ccs_manager(void)
{
        struct ccs_manager *ptr;
        const char *exe;
        struct ccs_security *task = ccs_current_security();
        const struct ccs_path_info *domainname
                = ccs_current_domain()->domainname;
        bool found = false;
        if (!ccs_policy_loaded)
                return true;
        if (task->ccs_flags & CCS_TASK_IS_MANAGER)
                return true;
        if (!ccs_manage_by_non_root && (current_uid() || current_euid()))
                return false;
        exe = ccs_get_exe();
        list_for_each_entry_srcu(ptr, &ccs_policy_list[CCS_ID_MANAGER],
                                 head.list, &ccs_ss) {
                if (ptr->head.is_deleted)
                        continue;
                if (ptr->is_domain) {
                        if (ccs_pathcmp(domainname, ptr->manager))
                                continue;
                } else {
                        if (!exe || strcmp(exe, ptr->manager->name))
                                continue;
                }
                /* Set manager flag. */
                task->ccs_flags |= CCS_TASK_IS_MANAGER;
                found = true;
                break;
        }
        if (!found) { /* Reduce error messages. */
                static pid_t ccs_last_pid;
                const pid_t pid = current->pid;
                if (ccs_last_pid != pid) {
                        printk(KERN_WARNING "%s ( %s ) is not permitted to "
                               "update policies.\n", domainname->name, exe);
                        ccs_last_pid = pid;
                }
        }
        kfree(exe);
        return found;
}

/**
 * ccs_select_one - Parse select command.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @data: String to parse.
 *
 * Returns true on success, false otherwise.
 *
 * Caller holds ccs_read_lock().
 */
static bool ccs_select_one(struct ccs_io_buffer *head, const char *data)
{
        unsigned int pid;
        struct ccs_domain_info *domain = NULL;
        bool global_pid = false;
        if (!strcmp(data, "execute")) {
                head->r.print_execute_only = true;
                return true;
        }
        if (sscanf(data, "pid=%u", &pid) == 1 ||
            (global_pid = true, sscanf(data, "global-pid=%u", &pid) == 1)) {
                struct task_struct *p;
                ccs_tasklist_lock();
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2, 6, 24)
                if (global_pid)
                        p = ccsecurity_exports.find_task_by_pid_ns(pid,
                                                               &init_pid_ns);
                else
                        p = ccsecurity_exports.find_task_by_vpid(pid);
#else
                p = find_task_by_pid(pid);
#endif
                if (p)
                        domain = ccs_task_domain(p);
                ccs_tasklist_unlock();
        } else if (!strncmp(data, "domain=", 7)) {
                if (ccs_domain_def(data + 7))
                        domain = ccs_find_domain(data + 7);
        } else
                return false;
        head->w.domain = domain;
        /* Accessing read_buf is safe because head->io_sem is held. */
        if (!head->read_buf)
                return true; /* Do nothing if open(O_WRONLY). */
        memset(&head->r, 0, sizeof(head->r));
        head->r.print_this_domain_only = true;
        if (domain)
                head->r.domain = &domain->list;
        else
                head->r.eof = true;
        ccs_io_printf(head, "# select %s\n", data);
        if (domain && domain->is_deleted)
                ccs_set_string(head, "# This is a deleted domain.\n");
        return true;
}

static bool ccs_same_handler_acl(const struct ccs_acl_info *a,
                                 const struct ccs_acl_info *b)
{
        const struct ccs_handler_acl *p1 = container_of(a, typeof(*p1), head);
        const struct ccs_handler_acl *p2 = container_of(b, typeof(*p2), head);
        return p1->handler == p2->handler;
}

static bool ccs_same_task_acl(const struct ccs_acl_info *a,
                              const struct ccs_acl_info *b)
{
        const struct ccs_task_acl *p1 = container_of(a, typeof(*p1), head);
        const struct ccs_task_acl *p2 = container_of(b, typeof(*p2), head);
        return p1->domainname == p2->domainname;
}

/**
 * ccs_write_task - Update task related list.
 *
 * @param: Pointer to "struct ccs_acl_param".
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_write_task(struct ccs_acl_param *param)
{
        int error;
        const bool is_auto = ccs_str_starts(&param->data,
                                            "auto_domain_transition ");
        if (!is_auto && !ccs_str_starts(&param->data,
                                        "manual_domain_transition ")) {
                struct ccs_handler_acl e = { };
                char *handler;
                if (ccs_str_starts(&param->data, "auto_execute_handler "))
                        e.head.type = CCS_TYPE_AUTO_EXECUTE_HANDLER;
                else if (ccs_str_starts(&param->data,
                                        "denied_execute_handler "))
                        e.head.type = CCS_TYPE_DENIED_EXECUTE_HANDLER;
                else
                        return -EINVAL;
                handler = ccs_read_token(param);
                if (!ccs_correct_path(handler))
                        return -EINVAL;
                e.handler = ccs_get_name(handler);
                if (!e.handler)
                        return -ENOMEM;
                if (e.handler->is_patterned)
                        error = -EINVAL; /* No patterns allowed. */
                else
                        error = ccs_update_domain(&e.head, sizeof(e), param,
                                                  ccs_same_handler_acl, NULL);
                ccs_put_name(e.handler);
        } else {
                struct ccs_task_acl e = {
                        .head.type = is_auto ?
                        CCS_TYPE_AUTO_TASK_ACL : CCS_TYPE_MANUAL_TASK_ACL,
                        .domainname = ccs_get_domainname(param),
                };
                if (!e.domainname)
                        error = -EINVAL;
                else
                        error = ccs_update_domain(&e.head, sizeof(e), param,
                                                  ccs_same_task_acl, NULL);
                ccs_put_name(e.domainname);
        }
        return error;
}

static int ccs_write_domain2(char *data, struct ccs_domain_info *domain,
                             const bool is_delete)
{
        struct ccs_acl_param param = {
                .data = data,
                .domain = domain,
                .is_delete = is_delete,
        };
        static const struct {
                const char *keyword;
                int (*write) (struct ccs_acl_param *);
        } ccs_callback[7] = {
                { "file ", ccs_write_file },
                { "network inet ", ccs_write_inet_network },
                { "network unix ", ccs_write_unix_network },
                { "misc ", ccs_write_misc },
                { "capability ", ccs_write_capability },
                { "ipc ", ccs_write_ipc },
                { "task ", ccs_write_task },
        };
        u8 i;
        for (i = 0; i < 7; i++) {
                if (!ccs_str_starts(&param.data, ccs_callback[i].keyword))
                        continue;
                return ccs_callback[i].write(&param);
        }
        return -EINVAL;
}

const char * const ccs_dif[CCS_MAX_DOMAIN_INFO_FLAGS] = {
        [CCS_DIF_QUOTA_WARNED]      = "quota_exceeded\n",
        [CCS_DIF_TRANSITION_FAILED] = "transition_failed\n",
};

/**
 * ccs_write_domain - Write domain policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_write_domain(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        struct ccs_domain_info *domain = head->w.domain;
        bool is_delete = false;
        bool is_select = false;
        unsigned int profile;
        if (ccs_str_starts(&data, "delete "))
                is_delete = true;
        else if (ccs_str_starts(&data, "select "))
                is_select = true;
        if (is_select && ccs_select_one(head, data))
                return 0;
        /* Don't allow updating policies by non manager programs. */
        if (!ccs_manager())
                return -EPERM;
        if (ccs_domain_def(data)) {
                domain = NULL;
                if (is_delete)
                        ccs_delete_domain(data);
                else if (is_select)
                        domain = ccs_find_domain(data);
                else
                        domain = ccs_assign_domain(data, 0, 0, false);
                head->w.domain = domain;
                return 0;
        }
        if (!domain)
                return -EINVAL;

        if (sscanf(data, "use_profile %u\n", &profile) == 1
            && profile < CCS_MAX_PROFILES) {
                if (!ccs_policy_loaded || ccs_profile_ptr[(u8) profile])
                        domain->profile = (u8) profile;
                return 0;
        }
        if (sscanf(data, "use_group %u\n", &profile) == 1
            && profile < CCS_MAX_ACL_GROUPS) {
                domain->group = (u8) profile;
                return 0;
        }
        for (profile = 0; profile < CCS_MAX_DOMAIN_INFO_FLAGS; profile++) {
                const char *cp = ccs_dif[profile];
                if (strncmp(data, cp, strlen(cp) - 1))
                        continue;
                domain->flags[profile] = !is_delete;
                return 0;
        }
        return ccs_write_domain2(data, domain, is_delete);
}

/**
 * ccs_print_name_union - Print a ccs_name_union.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @ptr:  Pointer to "struct ccs_name_union".
 */
static void ccs_print_name_union(struct ccs_io_buffer *head,
                                 const struct ccs_name_union *ptr)
{
        const bool cond = head->r.print_cond_part;
        if (!cond)
                ccs_set_space(head);
        if (ptr->is_group) {
                ccs_set_string(head, "@");
                ccs_set_string(head, ptr->group->group_name->name);
        } else {
                if (cond)
                        ccs_set_string(head, "\"");
                ccs_set_string(head, ptr->filename->name);
                if (cond)
                        ccs_set_string(head, "\"");
        }
}

/**
 * ccs_print_number_union - Print a ccs_number_union.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @ptr:  Pointer to "struct ccs_number_union".
 */
static void ccs_print_number_union(struct ccs_io_buffer *head,
                                   const struct ccs_number_union *ptr)
{
        if (!head->r.print_cond_part)
                ccs_set_space(head);
        if (ptr->is_group) {
                ccs_set_string(head, "@");
                ccs_set_string(head, ptr->group->group_name->name);
        } else {
                int i;
                unsigned long min = ptr->values[0];
                const unsigned long max = ptr->values[1];
                u8 min_type = ptr->value_type[0];
                const u8 max_type = ptr->value_type[1];
                char buffer[128];
                buffer[0] = '\0';
                for (i = 0; i < 2; i++) {
                        switch (min_type) {
                        case CCS_VALUE_TYPE_HEXADECIMAL:
                                ccs_addprintf(buffer, sizeof(buffer), "0x%lX",
                                              min);
                                break;
                        case CCS_VALUE_TYPE_OCTAL:
                                ccs_addprintf(buffer, sizeof(buffer), "0%lo",
                                              min);
                                break;
                        default:
                                ccs_addprintf(buffer, sizeof(buffer), "%lu",
                                              min);
                                break;
                        }
                        if (min == max && min_type == max_type)
                                break;
                        ccs_addprintf(buffer, sizeof(buffer), "-");
                        min_type = max_type;
                        min = max;
                }
                ccs_io_printf(head, "%s", buffer);
        }
}

/**
 * ccs_print_condition - Print condition part.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @cond: Pointer to "struct ccs_condition".
 *
 * Returns true on success, false otherwise.
 */
static bool ccs_print_condition(struct ccs_io_buffer *head,
                                const struct ccs_condition *cond)
{
        switch (head->r.cond_step) {
        case 0:
                head->r.cond_index = 0;
                head->r.cond_step++;
                /* fall through */
        case 1:
                {
                        const u16 condc = cond->condc;
                        const struct ccs_condition_element *condp =
                                (typeof(condp)) (cond + 1);
                        const struct ccs_number_union *numbers_p =
                                (typeof(numbers_p)) (condp + condc);
                        const struct ccs_name_union *names_p =
                                (typeof(names_p))
                                (numbers_p + cond->numbers_count);
                        const struct ccs_argv *argv =
                                (typeof(argv)) (names_p + cond->names_count);
                        const struct ccs_envp *envp =
                                (typeof(envp)) (argv + cond->argc);
                        u16 skip;
                        for (skip = 0; skip < head->r.cond_index; skip++) {
                                const u8 left = condp->left;
                                const u8 right = condp->right;
                                condp++;
                                switch (left) {
                                case CCS_ARGV_ENTRY:
                                        argv++;
                                        continue;
                                case CCS_ENVP_ENTRY:
                                        envp++;
                                        continue;
                                case CCS_NUMBER_UNION:
                                        numbers_p++;
                                        break;
                                }
                                switch (right) {
                                case CCS_NAME_UNION:
                                        names_p++;
                                        break;
                                case CCS_NUMBER_UNION:
                                        numbers_p++;
                                        break;
                                }
                        }
                        while (head->r.cond_index < condc) {
                                const u8 match = condp->equals;
                                const u8 left = condp->left;
                                const u8 right = condp->right;
                                if (!ccs_flush(head))
                                        return false;
                                condp++;
                                head->r.cond_index++;
                                ccs_set_space(head);
                                switch (left) {
                                case CCS_ARGV_ENTRY:
                                        ccs_io_printf(head,
                                                      "exec.argv[%u]%s\"%s\"",
                                                      argv->index,
                                                      argv->is_not ?
                                                      "!=" : "=",
                                                      argv->value->name);
                                        argv++;
                                        continue;
                                case CCS_ENVP_ENTRY:
                                        ccs_io_printf(head,
                                                      "exec.envp[\"%s\"]%s",
                                                      envp->name->name,
                                                      envp->is_not ?
                                                      "!=" : "=");
                                        if (envp->value) {
                                                ccs_set_string(head, "\"");
                                                ccs_set_string(head, envp->
                                                               value->name);
                                                ccs_set_string(head, "\"");
                                        } else {
                                                ccs_set_string(head, "NULL");
                                        }
                                        envp++;
                                        continue;
                                case CCS_NUMBER_UNION:
                                        ccs_print_number_union(head,
                                                               numbers_p++);
                                        break;
                                default:
                                        ccs_set_string(head,
                                               ccs_condition_keyword[left]);
                                        break;
                                }
                                ccs_set_string(head, match ? "=" : "!=");
                                switch (right) {
                                case CCS_NAME_UNION:
                                        ccs_print_name_union(head, names_p++);
                                        break;
                                case CCS_NUMBER_UNION:
                                        ccs_print_number_union(head,
                                                               numbers_p++);
                                        break;
                                default:
                                        ccs_set_string(head,
                                               ccs_condition_keyword[right]);
                                        break;
                                }
                        }
                }
                head->r.cond_step++;
                /* fall through */
        case 2:
                if (!ccs_flush(head))
                        break;
                head->r.cond_step++;
                /* fall through */
        case 3:
                if (cond->grant_log)
                        ccs_io_printf(head, " grant_log=%s",
                                      ccs_yesno(cond->grant_log == 2));
                if (cond->transit) {
                        ccs_set_string(head, " auto_domain_transitition=\"");
                        ccs_set_string(head, cond->transit->name);
                        ccs_set_string(head, "\"");
                }
                ccs_set_lf(head);
                return true;
        }
        return false;
}

/**
 * ccs_fns - Find next set bit.
 *
 * @perm: 8 bits value.
 * @bit:  First bit to find.
 *
 * Returns next set bit on success, 8 otherwise.
 */
static u8 ccs_fns(const u8 perm, u8 bit)
{
        for ( ; bit < 8; bit++)
                if (perm & (1 << bit))
                        break;
        return bit;
}

static void ccs_set_group(struct ccs_io_buffer *head)
{
        if (head->type == CCS_EXCEPTIONPOLICY)
                ccs_io_printf(head, "acl_group %u ", head->r.group_index);
}

/**
 * ccs_print_entry - Print an ACL entry.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @acl:  Pointer to an ACL entry.
 *
 * Returns true on success, false otherwise.
 */
static bool ccs_print_entry(struct ccs_io_buffer *head,
                            const struct ccs_acl_info *acl)
{
        const u8 acl_type = acl->type;
        u8 bit;
        if (head->r.print_cond_part)
                goto print_cond_part;
        if (acl->is_deleted)
                return true;
next:
        bit = head->r.bit;
        if (!ccs_flush(head))
                return false;
        else if (acl_type == CCS_TYPE_PATH_ACL) {
                struct ccs_path_acl *ptr
                        = container_of(acl, typeof(*ptr), head);
                const u16 perm = ptr->perm;
                for ( ; bit < CCS_MAX_PATH_OPERATION; bit++) {
                        if (!(perm & (1 << bit)))
                                continue;
                        if (head->r.print_execute_only &&
                            bit != CCS_TYPE_EXECUTE
                            /* && bit != CCS_TYPE_TRANSIT */)
                                continue;
                        break;
                }
                if (bit >= CCS_MAX_PATH_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "file ");
                ccs_set_string(head, ccs_path_keyword[bit]);
                ccs_print_name_union(head, &ptr->name);
        } else if (acl_type == CCS_TYPE_AUTO_EXECUTE_HANDLER ||
                   acl_type == CCS_TYPE_DENIED_EXECUTE_HANDLER) {
                struct ccs_handler_acl *ptr
                        = container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_set_string(head, "task ");
                ccs_set_string(head, acl_type == CCS_TYPE_AUTO_EXECUTE_HANDLER
                               ? "auto_execute_handler " :
                               "denied_execute_handler ");
                ccs_set_string(head, ptr->handler->name);
        } else if (acl_type == CCS_TYPE_AUTO_TASK_ACL ||
                   acl_type == CCS_TYPE_MANUAL_TASK_ACL) {
                struct ccs_task_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_set_string(head, "task ");
                ccs_set_string(head, acl_type == CCS_TYPE_AUTO_TASK_ACL ?
                               "auto_domain_transition " :
                               "manual_domain_transition ");
                ccs_set_string(head, ptr->domainname->name);
        } else if (head->r.print_execute_only) {
                return true;
        } else if (acl_type == CCS_TYPE_MKDEV_ACL) {
                struct ccs_mkdev_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                bit = ccs_fns(ptr->perm, bit);
                if (bit >= CCS_MAX_MKDEV_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "file ");
                ccs_set_string(head, ccs_mac_keywords[ccs_pnnn2mac[bit]]);
                ccs_print_name_union(head, &ptr->name);
                ccs_print_number_union(head, &ptr->mode);
                ccs_print_number_union(head, &ptr->major);
                ccs_print_number_union(head, &ptr->minor);
        } else if (acl_type == CCS_TYPE_PATH2_ACL) {
                struct ccs_path2_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                bit = ccs_fns(ptr->perm, bit);
                if (bit >= CCS_MAX_PATH2_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "file ");
                ccs_set_string(head, ccs_mac_keywords[ccs_pp2mac[bit]]);
                ccs_print_name_union(head, &ptr->name1);
                ccs_print_name_union(head, &ptr->name2);
        } else if (acl_type == CCS_TYPE_PATH_NUMBER_ACL) {
                struct ccs_path_number_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                bit = ccs_fns(ptr->perm, bit);
                if (bit >= CCS_MAX_PATH_NUMBER_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "file ");
                ccs_set_string(head, ccs_mac_keywords[ccs_pn2mac[bit]]);
                ccs_print_name_union(head, &ptr->name);
                ccs_print_number_union(head, &ptr->number);
        } else if (acl_type == CCS_TYPE_ENV_ACL) {
                struct ccs_env_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_set_string(head, "misc env ");
                ccs_set_string(head, ptr->env->name);
        } else if (acl_type == CCS_TYPE_CAPABILITY_ACL) {
                struct ccs_capability_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_set_string(head, "capability ");
                ccs_set_string(head,
                               ccs_mac_keywords[ccs_c2mac[ptr->operation]]);
        } else if (acl_type == CCS_TYPE_INET_ACL) {
                struct ccs_inet_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                bit = ccs_fns(ptr->perm, bit);
                if (bit >= CCS_MAX_NETWORK_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "network inet ");
                ccs_set_string(head, ccs_proto_keyword[ptr->protocol]);
                ccs_set_space(head);
                ccs_set_string(head, ccs_socket_keyword[bit]);
                ccs_set_space(head);
                switch (ptr->address_type) {
                        char buf[128];
                case CCS_IP_ADDRESS_TYPE_ADDRESS_GROUP:
                        ccs_set_string(head, "@");
                        ccs_set_string(head,
                                       ptr->address.group->group_name->name);
                        break;
                case CCS_IP_ADDRESS_TYPE_IPv4:
                        ccs_print_ipv4(buf, sizeof(buf), ptr->address.ipv4.min,
                                       ptr->address.ipv4.max);
                        ccs_io_printf(head, "%s", buf);
                        break;
                case CCS_IP_ADDRESS_TYPE_IPv6:
                        ccs_print_ipv6(buf, sizeof(buf), ptr->address.ipv6.min,
                                       ptr->address.ipv6.max);
                        ccs_io_printf(head, "%s", buf);
                        break;
                }
                ccs_print_number_union(head, &ptr->port);
        } else if (acl_type == CCS_TYPE_UNIX_ACL) {
                struct ccs_unix_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                bit = ccs_fns(ptr->perm, bit);
                if (bit >= CCS_MAX_NETWORK_OPERATION)
                        goto done;
                ccs_set_group(head);
                ccs_set_string(head, "network unix ");
                ccs_set_string(head, ccs_proto_keyword[ptr->protocol]);
                ccs_set_space(head);
                ccs_set_string(head, ccs_socket_keyword[bit]);
                ccs_print_name_union(head, &ptr->name);
        } else if (acl_type == CCS_TYPE_SIGNAL_ACL) {
                struct ccs_signal_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_set_string(head, "ipc signal ");
                ccs_io_printf(head, "%u ", ptr->sig);
                ccs_set_string(head, ptr->domainname->name);
        } else if (acl_type == CCS_TYPE_MOUNT_ACL) {
                struct ccs_mount_acl *ptr =
                        container_of(acl, typeof(*ptr), head);
                ccs_set_group(head);
                ccs_io_printf(head, "file mount");
                ccs_print_name_union(head, &ptr->dev_name);
                ccs_print_name_union(head, &ptr->dir_name);
                ccs_print_name_union(head, &ptr->fs_type);
                ccs_print_number_union(head, &ptr->flags);
        }
        head->r.bit = bit + 1;
        if (acl->cond) {
                head->r.print_cond_part = true;
                head->r.cond_step = 0;
                if (!ccs_flush(head))
                        return false;
print_cond_part:
                if (!ccs_print_condition(head, acl->cond))
                        return false;
                head->r.print_cond_part = false;
        } else {
                ccs_set_lf(head);
        }
        switch (acl_type) {
        case CCS_TYPE_PATH_ACL:
        case CCS_TYPE_MKDEV_ACL:
        case CCS_TYPE_PATH2_ACL:
        case CCS_TYPE_PATH_NUMBER_ACL:
        case CCS_TYPE_INET_ACL:
        case CCS_TYPE_UNIX_ACL:
                goto next;
        }
done:
        head->r.bit = 0;
        return true;
}

/**
 * ccs_read_domain2 - Read domain policy.
 *
 * @head:   Pointer to "struct ccs_io_buffer".
 * @domain: Pointer to "struct ccs_domain_info".
 * @index:  Index number.
 *
 * Caller holds ccs_read_lock().
 *
 * Returns true on success, false otherwise.
 */
static bool ccs_read_domain2(struct ccs_io_buffer *head,
                             struct ccs_domain_info *domain,
                             const u8 index)
{
        list_for_each_cookie(head->r.acl, &domain->acl_info_list[index]) {
                struct ccs_acl_info *ptr =
                        list_entry(head->r.acl, typeof(*ptr), list);
                if (!ccs_print_entry(head, ptr))
                        return false;
        }
        head->r.acl = NULL;
        return true;
}

/**
 * ccs_read_domain - Read domain policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Caller holds ccs_read_lock().
 */
static void ccs_read_domain(struct ccs_io_buffer *head)
{
        if (head->r.eof)
                return;
        list_for_each_cookie(head->r.domain, &ccs_domain_list) {
                struct ccs_domain_info *domain =
                        list_entry(head->r.domain, typeof(*domain), list);
                switch (head->r.step) {
                        u8 i;
                case 0:
                        if (domain->is_deleted &&
                            !head->r.print_this_domain_only)
                                continue;
                        /* Print domainname and flags. */
                        ccs_set_string(head, domain->domainname->name);
                        ccs_set_lf(head);
                        ccs_io_printf(head, "use_profile %u\n",
                                      domain->profile);
                        ccs_io_printf(head, "use_group %u\n", domain->group);
                        for (i = 0; i < CCS_MAX_DOMAIN_INFO_FLAGS; i++)
                                if (domain->flags[i])
                                        ccs_set_string(head, ccs_dif[i]);
                        head->r.step++;
                        ccs_set_lf(head);
                        /* fall through */
                case 1:
                        if (!ccs_read_domain2(head, domain, 0))
                                return;
                        head->r.step++;
                        /* fall through */
                case 2:
                        if (!ccs_read_domain2(head, domain, 1))
                                return;
                        head->r.step++;
                        if (!ccs_set_lf(head))
                                return;
                        /* fall through */
                case 3:
                        head->r.step = 0;
                        if (head->r.print_this_domain_only)
                                goto done;
                }
        }
done:
        head->r.eof = true;
}

/**
 * ccs_write_domain_profile - Assign profile for specified domain.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, -EINVAL otherwise.
 *
 * This is equivalent to doing
 *
 *     ( echo "select " $domainname; echo "use_profile " $profile ) |
 *     /usr/sbin/ccs-loadpolicy -d
 *
 * Caller holds ccs_read_lock().
 */
static int ccs_write_domain_profile(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        char *cp = strchr(data, ' ');
        struct ccs_domain_info *domain;
        unsigned int profile;
        if (!cp)
                return -EINVAL;
        *cp = '\0';
        profile = simple_strtoul(data, NULL, 10);
        if (profile >= CCS_MAX_PROFILES)
                return -EINVAL;
        domain = ccs_find_domain(cp + 1);
        if (domain && (!ccs_policy_loaded || ccs_profile_ptr[(u8) profile]))
                domain->profile = (u8) profile;
        return 0;
}

/**
 * ccs_read_domain_profile - Read only domainname and profile.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * This is equivalent to doing
 *
 *     grep -A 1 '^<kernel>' /proc/ccs/domain_policy |
 *     awk ' { if ( domainname == "" ) { if ( $1 == "<kernel>" )
 *     domainname = $0; } else if ( $1 == "use_profile" ) {
 *     print $2 " " domainname; domainname = ""; } } ; '
 *
 * Caller holds ccs_read_lock().
 */
static void ccs_read_domain_profile(struct ccs_io_buffer *head)
{
        if (head->r.eof)
                return;
        list_for_each_cookie(head->r.domain, &ccs_domain_list) {
                struct ccs_domain_info *domain =
                        list_entry(head->r.domain, typeof(*domain), list);
                if (domain->is_deleted)
                        continue;
                if (!ccs_flush(head))
                        return;
                ccs_io_printf(head, "%u ", domain->profile);
                ccs_set_string(head, domain->domainname->name);
                ccs_set_lf(head);
        }
        head->r.eof = true;
}

/**
 * ccs_write_pid: Specify PID to obtain domainname.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0.
 */
static int ccs_write_pid(struct ccs_io_buffer *head)
{
        head->r.eof = false;
        return 0;
}

/**
 * ccs_read_pid - Read information of a process.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns the domainname which the specified PID is in or
 * process information of the specified PID on success,
 * empty string otherwise.
 *
 * Caller holds ccs_read_lock().
 */
static void ccs_read_pid(struct ccs_io_buffer *head)
{
        char *buf = head->write_buf;
        bool task_info = false;
        bool global_pid = false;
        unsigned int pid;
        struct task_struct *p;
        struct ccs_domain_info *domain = NULL;
        u32 ccs_flags = 0;
        /* Accessing write_buf is safe because head->io_sem is held. */
        if (!buf) {
                head->r.eof = true;
                return; /* Do nothing if open(O_RDONLY). */
        }
        if (head->r.w_pos || head->r.eof)
                return;
        head->r.eof = true;
        if (ccs_str_starts(&buf, "info "))
                task_info = true;
        if (ccs_str_starts(&buf, "global-pid "))
                global_pid = true;
        pid = (unsigned int) simple_strtoul(buf, NULL, 10);
        ccs_tasklist_lock();
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2, 6, 24)
        if (global_pid)
                p = ccsecurity_exports.find_task_by_pid_ns(pid, &init_pid_ns);
        else
                p = ccsecurity_exports.find_task_by_vpid(pid);
#else
        p = find_task_by_pid(pid);
#endif
        if (p) {
                domain = ccs_task_domain(p);
                ccs_flags = ccs_task_flags(p);
        }
        ccs_tasklist_unlock();
        if (!domain)
                return;
        if (!task_info) {
                ccs_io_printf(head, "%u %u ", pid, domain->profile);
                ccs_set_string(head, domain->domainname->name);
        } else {
                ccs_io_printf(head, "%u manager=%s execute_handler=%s ", pid,
                              ccs_yesno(ccs_flags &
                                        CCS_TASK_IS_MANAGER),
                              ccs_yesno(ccs_flags &
                                        CCS_TASK_IS_EXECUTE_HANDLER));
        }
}

static const char * const ccs_transition_type[CCS_MAX_TRANSITION_TYPE] = {
        [CCS_TRANSITION_CONTROL_NO_INITIALIZE] = "no_initialize_domain ",
        [CCS_TRANSITION_CONTROL_INITIALIZE]    = "initialize_domain ",
        [CCS_TRANSITION_CONTROL_NO_KEEP]       = "no_keep_domain ",
        [CCS_TRANSITION_CONTROL_KEEP]          = "keep_domain ",
};

static const char * const ccs_group_name[CCS_MAX_GROUP] = {
        [CCS_PATH_GROUP]    = "path_group ",
        [CCS_NUMBER_GROUP]  = "number_group ",
        [CCS_ADDRESS_GROUP] = "address_group ",
};

/**
 * ccs_write_exception - Write exception policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, negative value otherwise.
 */
static int ccs_write_exception(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        const bool is_delete = ccs_str_starts(&data, "delete ");
        u8 i;
        static const struct {
                const char *keyword;
                int (*write) (char *, const bool);
        } ccs_callback[2] = {
                { "aggregator ",    ccs_write_aggregator },
                { "deny_autobind ", ccs_write_reserved_port },
        };
        for (i = 0; i < 2; i++)
                if (ccs_str_starts(&data, ccs_callback[i].keyword))
                        return ccs_callback[i].write(data, is_delete);
        for (i = 0; i < CCS_MAX_TRANSITION_TYPE; i++)
                if (ccs_str_starts(&data, ccs_transition_type[i]))
                        return ccs_write_transition_control(data, is_delete,
                                                            i);
        for (i = 0; i < CCS_MAX_GROUP; i++)
                if (ccs_str_starts(&data, ccs_group_name[i]))
                        return ccs_write_group(data, is_delete, i);
        if (ccs_str_starts(&data, "acl_group ")) {
                unsigned int group;
                if (sscanf(data, "%u", &group) == 1 &&
                    group < CCS_MAX_ACL_GROUPS) {
                        data = strchr(data, ' ');
                        if (data)
                                return ccs_write_domain2(data + 1,
                                                         &ccs_acl_group[group],
                                                         is_delete);
                }
        }
        return -EINVAL;
}

/**
 * ccs_read_group - Read "struct ccs_path_group"/"struct ccs_number_group"/"struct ccs_address_group" list.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @idx:  Index number.
 *
 * Returns true on success, false otherwise.
 *
 * Caller holds ccs_read_lock().
 */
static bool ccs_read_group(struct ccs_io_buffer *head, const int idx)
{
        list_for_each_cookie(head->r.group, &ccs_group_list[idx]) {
                struct ccs_group *group =
                        list_entry(head->r.group, typeof(*group), head.list);
                list_for_each_cookie(head->r.acl, &group->member_list) {
                        struct ccs_acl_head *ptr =
                                list_entry(head->r.acl, typeof(*ptr), list);
                        if (ptr->is_deleted)
                                continue;
                        if (!ccs_flush(head))
                                return false;
                        ccs_set_string(head, ccs_group_name[idx]);
                        ccs_set_string(head, group->group_name->name);
                        if (idx == CCS_PATH_GROUP) {
                                ccs_set_space(head);
                                ccs_set_string(head, container_of
                                               (ptr, struct ccs_path_group,
                                                head)->member_name->name);
                        } else if (idx == CCS_NUMBER_GROUP) {
                                ccs_print_number_union(head, &container_of
                                               (ptr, struct ccs_number_group,
                                                head)->number);
                        } else if (idx == CCS_ADDRESS_GROUP) {
                                char buffer[128];
                                struct ccs_address_group *member =
                                        container_of(ptr, typeof(*member),
                                                     head);
                                if (member->is_ipv6)
                                        ccs_print_ipv6(buffer, sizeof(buffer),
                                                       member->min.ipv6,
                                                       member->max.ipv6);
                                else
                                        ccs_print_ipv4(buffer, sizeof(buffer),
                                                       member->min.ipv4,
                                                       member->max.ipv4);
                                ccs_io_printf(head, " %s", buffer);
                        }
                        ccs_set_lf(head);
                }
                head->r.acl = NULL;
        }
        head->r.group = NULL;
        return true;
}

/**
 * ccs_read_policy - Read "struct ccs_..._entry" list.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 * @idx:  Index number.
 *
 * Returns true on success, false otherwise.
 *
 * Caller holds ccs_read_lock().
 */
static bool ccs_read_policy(struct ccs_io_buffer *head, const int idx)
{
        list_for_each_cookie(head->r.acl, &ccs_policy_list[idx]) {
                struct ccs_acl_head *acl =
                        container_of(head->r.acl, typeof(*acl), list);
                if (acl->is_deleted)
                        continue;
                if (!ccs_flush(head))
                        return false;
                switch (idx) {
                case CCS_ID_TRANSITION_CONTROL:
                        {
                                struct ccs_transition_control *ptr =
                                        container_of(acl, typeof(*ptr), head);
                                ccs_set_string(head,
                                               ccs_transition_type[ptr->type]);
                                ccs_set_string(head, ptr->program ?
                                               ptr->program->name : "any");
                                ccs_set_string(head, " from ");
                                ccs_set_string(head, ptr->domainname ?
                                               ptr->domainname->name : "any");
                        }
                        break;
                case CCS_ID_AGGREGATOR:
                        {
                                struct ccs_aggregator *ptr =
                                        container_of(acl, typeof(*ptr), head);
                                ccs_set_string(head, "aggregator ");
                                ccs_set_string(head, ptr->original_name->name);
                                ccs_set_space(head);
                                ccs_set_string(head,
                                               ptr->aggregated_name->name);
                        }
                        break;
                case CCS_ID_RESERVEDPORT:
                        {
                                struct ccs_reserved *ptr =
                                        container_of(acl, typeof(*ptr), head);
                                const u16 min_port = ptr->min_port;
                                const u16 max_port = ptr->max_port;
                                ccs_set_string(head, "deny_autobind ");
                                ccs_io_printf(head, "%u", min_port);
                                if (min_port != max_port)
                                        ccs_io_printf(head, "-%u", max_port);
                        }
                        break;
                default:
                        continue;
                }
                ccs_set_lf(head);
        }
        head->r.acl = NULL;
        return true;
}

/**
 * ccs_read_exception - Read exception policy.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Caller holds ccs_read_lock().
 */
static void ccs_read_exception(struct ccs_io_buffer *head)
{
        if (head->r.eof)
                return;
        while (head->r.step < CCS_MAX_POLICY &&
               ccs_read_policy(head, head->r.step))
                head->r.step++;
        if (head->r.step < CCS_MAX_POLICY)
                return;
        while (head->r.step < CCS_MAX_POLICY + CCS_MAX_GROUP &&
               ccs_read_group(head, head->r.step - CCS_MAX_POLICY))
                head->r.step++;
        if (head->r.step < CCS_MAX_POLICY + CCS_MAX_GROUP)
                return;
        while (head->r.step < CCS_MAX_POLICY + CCS_MAX_GROUP
               + CCS_MAX_ACL_GROUPS * 2) {
                head->r.group_index = (head->r.step - CCS_MAX_POLICY
                                       - CCS_MAX_GROUP) / 2;
                if (!ccs_read_domain2(head,
                                      &ccs_acl_group[head->r.group_index],
                                      head->r.step & 1))
                        return;
                head->r.step++;
        }
        head->r.eof = true;
}

/* Wait queue for ccs_query_list. */
static DECLARE_WAIT_QUEUE_HEAD(ccs_query_wait);
static DECLARE_WAIT_QUEUE_HEAD(ccs_answer_wait);

/* Lock for manipulating ccs_query_list. */
static DEFINE_SPINLOCK(ccs_query_list_lock);

/* Structure for query. */
struct ccs_query {
        struct list_head list;
        char *query;
        int query_len;
        unsigned int serial;
        int timer;
        int answer;
        u8 retry;
};

/* The list for "struct ccs_query". */
static LIST_HEAD(ccs_query_list);

/* Number of "struct file" referring /proc/ccs/query interface. */
static atomic_t ccs_query_observers = ATOMIC_INIT(0);

static int ccs_truncate(char *str)
{
        char *start = str;
        while (*(unsigned char *) str > (unsigned char) ' ')
                str++;
        *str = '\0';
        return strlen(start) + 1;
}

static void ccs_add_entry(char *header)
{
        char *buffer;
        char *realpath = NULL;
        char *argv0 = NULL;
        char *symlink = NULL;
        char *handler;
        char *cp = strchr(header, '\n');
        int len;
        if (!cp)
                return;
        cp = strchr(cp + 1, '\n');
        if (!cp)
                return;
        *cp++ = '\0';
        len = strlen(cp) + 1;
        /* strstr() will return NULL if ordering is wrong. */
        if (*cp == 'f') {
                argv0 = strstr(header, " argv[]={ \"");
                if (argv0) {
                        argv0 += 10;
                        len += ccs_truncate(argv0) + 14;
                }
                realpath = strstr(header, " exec={ realpath=\"");
                if (realpath) {
                        realpath += 8;
                        len += ccs_truncate(realpath) + 6;
                }
                symlink = strstr(header, " symlink.target=\"");
                if (symlink)
                        len += ccs_truncate(symlink + 1) + 1;
        }
        handler = strstr(header, "type=execute_handler");
        if (handler)
                len += ccs_truncate(handler) + 6;
        buffer = kmalloc(len, CCS_GFP_FLAGS);
        if (!buffer)
                return;
        snprintf(buffer, len - 1, "%s", cp);
        if (handler)
                ccs_addprintf(buffer, len, " task.%s", handler);
        if (realpath)
                ccs_addprintf(buffer, len, " exec.%s", realpath);
        if (argv0)
                ccs_addprintf(buffer, len, " exec.argv[0]=%s", argv0);
        if (symlink)
                ccs_addprintf(buffer, len, "%s", symlink);
        ccs_normalize_line(buffer);
        if (!ccs_write_domain2(buffer, ccs_current_domain(), false))
                ccs_update_stat(CCS_STAT_POLICY_UPDATES);
        kfree(buffer);
}

/**
 * ccs_supervisor - Ask for the supervisor's decision.
 *
 * @r:   Pointer to "struct ccs_request_info".
 * @fmt: The printf()'s format string, followed by parameters.
 *
 * Returns 0 if the supervisor decided to permit the access request which
 * violated the policy in enforcing mode, CCS_RETRY_REQUEST if the supervisor
 * decided to retry the access request which violated the policy in enforcing
 * mode, 0 if it is not in enforcing mode, -EPERM otherwise.
 */
int ccs_supervisor(struct ccs_request_info *r, const char *fmt, ...)
{
        va_list args;
        int error;
        int len;
        static unsigned int ccs_serial;
        struct ccs_query entry = { };
        bool quota_exceeded = false;
        /* Write /proc/ccs/grant_log or /proc/ccs/reject_log . */
        va_start(args, fmt);
        ccs_write_log2(r, fmt, args);
        va_end(args);
        /* Nothing more to do if granted. */
        if (r->granted)
                return 0;
        if (r->mode)
                ccs_update_stat(r->mode);
        switch (r->mode) {
                int i;
                struct ccs_profile *p;
        case CCS_CONFIG_ENFORCING:
                error = -EPERM;
                if (atomic_read(&ccs_query_observers))
                        break;
                if (ccs_current_flags() & CCS_DONT_SLEEP_ON_ENFORCE_ERROR)
                        goto out;
                p = ccs_profile(r->profile);
                /* Check enforcing_penalty parameter. */
                for (i = 0; i < p->pref[CCS_PREF_ENFORCING_PENALTY]; i++) {
                        set_current_state(TASK_INTERRUPTIBLE);
                        schedule_timeout(HZ / 10);
                }
                goto out;
        case CCS_CONFIG_LEARNING:
                error = 0;
                /* Check mac_learning_entry parameter. */
                if (ccs_domain_quota_ok(r))
                        break;
                /* fall through */
        default:
                return 0;
        }
        /* Get message. */
        va_start(args, fmt);
        entry.query = ccs_init_log(&len, r, fmt, args);
        va_end(args);
        if (!entry.query)
                goto out;
        entry.query_len = strlen(entry.query) + 1;
        if (!error) {
                ccs_add_entry(entry.query);
                goto out;
        }
        spin_lock(&ccs_query_list_lock);
        if (ccs_memory_quota[CCS_MEMORY_QUERY] &&
            ccs_memory_used[CCS_MEMORY_QUERY] + len
            >= ccs_memory_quota[CCS_MEMORY_QUERY]) {
                quota_exceeded = true;
        } else {
                entry.serial = ccs_serial++;
                entry.retry = r->retry;
                ccs_memory_used[CCS_MEMORY_QUERY] += len;
                list_add_tail(&entry.list, &ccs_query_list);
        }
        spin_unlock(&ccs_query_list_lock);
        if (quota_exceeded)
                goto out;
        /* Give 10 seconds for supervisor's opinion. */
        while (entry.timer < 10) {
                wake_up_all(&ccs_query_wait);
                if (wait_event_interruptible_timeout
                    (ccs_answer_wait, entry.answer ||
                     !atomic_read(&ccs_query_observers), HZ))
                        break;
                else
                        entry.timer++;
        }
        spin_lock(&ccs_query_list_lock);
        list_del(&entry.list);
        ccs_memory_used[CCS_MEMORY_QUERY] -= len;
        spin_unlock(&ccs_query_list_lock);
        switch (entry.answer) {
        case 3: /* Asked to retry by administrator. */
                error = CCS_RETRY_REQUEST;
                r->retry++;
                break;
        case 1:
                /* Granted by administrator. */
                error = 0;
                break;
        default:
                /* Timed out or rejected by administrator. */
                break;
        }
out:
        kfree(entry.query);
        return error;
}

/**
 * ccs_poll_query - poll() for /proc/ccs/query.
 *
 * @file: Pointer to "struct file".
 * @wait: Pointer to "poll_table".
 *
 * Returns POLLIN | POLLRDNORM when ready to read, 0 otherwise.
 *
 * Waits for access requests which violated policy in enforcing mode.
 */
static int ccs_poll_query(struct file *file, poll_table *wait)
{
        struct list_head *tmp;
        bool found = false;
        u8 i;
        for (i = 0; i < 2; i++) {
                spin_lock(&ccs_query_list_lock);
                list_for_each(tmp, &ccs_query_list) {
                        struct ccs_query *ptr =
                                list_entry(tmp, typeof(*ptr), list);
                        if (ptr->answer)
                                continue;
                        found = true;
                        break;
                }
                spin_unlock(&ccs_query_list_lock);
                if (found)
                        return POLLIN | POLLRDNORM;
                if (i)
                        break;
                poll_wait(file, &ccs_query_wait, wait);
        }
        return 0;
}

/**
 * ccs_read_query - Read access requests which violated policy in enforcing mode.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 */
static void ccs_read_query(struct ccs_io_buffer *head)
{
        struct list_head *tmp;
        int pos = 0;
        int len = 0;
        char *buf;
        if (head->r.w_pos)
                return;
        if (head->read_buf) {
                kfree(head->read_buf);
                head->read_buf = NULL;
        }
        spin_lock(&ccs_query_list_lock);
        list_for_each(tmp, &ccs_query_list) {
                struct ccs_query *ptr = list_entry(tmp, typeof(*ptr), list);
                if (ptr->answer)
                        continue;
                if (pos++ != head->r.query_index)
                        continue;
                len = ptr->query_len;
                break;
        }
        spin_unlock(&ccs_query_list_lock);
        if (!len) {
                head->r.query_index = 0;
                return;
        }
        buf = kzalloc(len + 32, CCS_GFP_FLAGS);
        if (!buf)
                return;
        pos = 0;
        spin_lock(&ccs_query_list_lock);
        list_for_each(tmp, &ccs_query_list) {
                struct ccs_query *ptr = list_entry(tmp, typeof(*ptr), list);
                if (ptr->answer)
                        continue;
                if (pos++ != head->r.query_index)
                        continue;
                /*
                 * Some query can be skipped because ccs_query_list
                 * can change, but I don't care.
                 */
                if (len == ptr->query_len)
                        snprintf(buf, len + 32, "Q%u-%hu\n%s", ptr->serial,
                                 ptr->retry, ptr->query);
                break;
        }
        spin_unlock(&ccs_query_list_lock);
        if (buf[0]) {
                head->read_buf = buf;
                head->r.w[head->r.w_pos++] = buf;
                head->r.query_index++;
        } else {
                kfree(buf);
        }
}

/**
 * ccs_write_answer - Write the supervisor's decision.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 *
 * Returns 0 on success, -EINVAL otherwise.
 */
static int ccs_write_answer(struct ccs_io_buffer *head)
{
        char *data = head->write_buf;
        struct list_head *tmp;
        unsigned int serial;
        unsigned int answer;
        spin_lock(&ccs_query_list_lock);
        list_for_each(tmp, &ccs_query_list) {
                struct ccs_query *ptr = list_entry(tmp, typeof(*ptr), list);
                ptr->timer = 0;
        }
        spin_unlock(&ccs_query_list_lock);
        if (sscanf(data, "A%u=%u", &serial, &answer) != 2)
                return -EINVAL;
        spin_lock(&ccs_query_list_lock);
        list_for_each(tmp, &ccs_query_list) {
                struct ccs_query *ptr = list_entry(tmp, typeof(*ptr), list);
                if (ptr->serial != serial)
                        continue;
                if (!ptr->answer)
                        ptr->answer = answer;
                break;
        }
        spin_unlock(&ccs_query_list_lock);
        wake_up_all(&ccs_answer_wait);
        return 0;
}

/**
 * ccs_read_version: Get version.
 *
 * @head: Pointer to "struct ccs_io_buffer".
 */
static void ccs_read_version(struct ccs_io_buffer *head)
{
        if (head->r.eof)
                return;
        ccs_set_string(head, "1.8.0-pre");
        head->r.eof = true;
}

/**
 * ccs_open_control - open() for /proc/ccs/ interface.
 *
 * @type: Type of interface.
 * @file: Pointer to "struct file".
 *
 * Associates policy handler and returns 0 on success, -ENOMEM otherwise.
 */
int ccs_open_control(const u8 type, struct file *file)
{
        struct ccs_io_buffer *head = kzalloc(sizeof(*head), CCS_GFP_FLAGS);
        if (!head)
                return -ENOMEM;
        mutex_init(&head->io_sem);
        head->type = type;
        switch (type) {
        case CCS_DOMAINPOLICY: /* /proc/ccs/domain_policy */
                head->write = ccs_write_domain;
                head->read = ccs_read_domain;
                break;
        case CCS_EXCEPTIONPOLICY: /* /proc/ccs/exception_policy */
                head->write = ccs_write_exception;
                head->read = ccs_read_exception;
                break;
        case CCS_GRANTLOG: /* /proc/ccs/grant_log */
        case CCS_REJECTLOG: /* /proc/ccs/reject_log */
                head->poll = ccs_poll_log;
                head->read = ccs_read_log;
                break;
        case CCS_DOMAIN_STATUS: /* /proc/ccs/.domain_status */
                head->write = ccs_write_domain_profile;
                head->read = ccs_read_domain_profile;
                break;
        case CCS_EXECUTE_HANDLER: /* /proc/ccs/.execute_handler */
                /* Allow execute_handler to read process's status. */
                if (!(ccs_current_flags() & CCS_TASK_IS_EXECUTE_HANDLER)) {
                        kfree(head);
                        return -EPERM;
                }
                /* fall through */
        case CCS_PROCESS_STATUS: /* /proc/ccs/.process_status */
                head->write = ccs_write_pid;
                head->read = ccs_read_pid;
                break;
        case CCS_VERSION: /* /proc/ccs/version */
                head->read = ccs_read_version;
                head->readbuf_size = 128;
                break;
        case CCS_MEMINFO: /* /proc/ccs/meminfo */
                head->write = ccs_write_memory_quota;
                head->read = ccs_read_memory_counter;
                head->readbuf_size = 512;
                break;
        case CCS_PROFILE: /* /proc/ccs/profile */
                head->write = ccs_write_profile;
                head->read = ccs_read_profile;
                break;
        case CCS_QUERY: /* /proc/ccs/query */
                head->poll = ccs_poll_query;
                head->write = ccs_write_answer;
                head->read = ccs_read_query;
                break;
        case CCS_MANAGER: /* /proc/ccs/manager */
                head->write = ccs_write_manager;
                head->read = ccs_read_manager;
                break;
        }
        if (!(file->f_mode & FMODE_READ)) {
                /*
                 * No need to allocate read_buf since it is not opened
                 * for reading.
                 */
                head->read = NULL;
                head->poll = NULL;
        } else if (!head->poll) {
                /* Don't allocate read_buf for poll() access. */
                if (!head->readbuf_size)
                        head->readbuf_size = 4096;
                head->read_buf = kzalloc(head->readbuf_size, CCS_GFP_FLAGS);
                if (!head->read_buf) {
                        kfree(head);
                        return -ENOMEM;
                }
        }
        if (!(file->f_mode & FMODE_WRITE)) {
                /*
                 * No need to allocate write_buf since it is not opened
                 * for writing.
                 */
                head->write = NULL;
        } else if (head->write) {
                head->writebuf_size = 4096;
                head->write_buf = kzalloc(head->writebuf_size, CCS_GFP_FLAGS);
                if (!head->write_buf) {
                        kfree(head->read_buf);
                        kfree(head);
                        return -ENOMEM;
                }
        }
        /*
         * If the file is /proc/ccs/query , increment the observer counter.
         * The obserber counter is used by ccs_supervisor() to see if
         * there is some process monitoring /proc/ccs/query.
         */
        if (type == CCS_QUERY)
                atomic_inc(&ccs_query_observers);
        else if (type != CCS_GRANTLOG && type != CCS_REJECTLOG)
                head->reader_idx = ccs_lock();
        file->private_data = head;
        return 0;
}

/**
 * ccs_poll_control - poll() for /proc/ccs/ interface.
 *
 * @file: Pointer to "struct file".
 * @wait: Pointer to "poll_table".
 *
 * Waits for read readiness.
 * /proc/ccs/query is handled by /usr/sbin/ccs-queryd and
 * /proc/ccs/grant_log and /proc/ccs/reject_log are handled by
 * /usr/sbin/ccs-auditd .
 */
int ccs_poll_control(struct file *file, poll_table *wait)
{
        struct ccs_io_buffer *head = file->private_data;
        if (!head->poll)
                return -ENOSYS;
        return head->poll(file, wait);
}

/**
 * ccs_read_control - read() for /proc/ccs/ interface.
 *
 * @file:       Pointer to "struct file".
 * @buffer:     Poiner to buffer to write to.
 * @buffer_len: Size of @buffer.
 *
 * Returns bytes read on success, negative value otherwise.
 */
int ccs_read_control(struct file *file, char __user *buffer,
                     const int buffer_len)
{
        int len;
        struct ccs_io_buffer *head = file->private_data;
        int idx;
        if (!head->read)
                return -ENOSYS;
        if (!access_ok(VERIFY_WRITE, buffer, buffer_len))
                return -EFAULT;
        if (mutex_lock_interruptible(&head->io_sem))
                return -EINTR;
        head->read_user_buf = buffer;
        head->read_user_buf_avail = buffer_len;
        idx = ccs_read_lock();
        if (ccs_flush(head))
                /* Call the policy handler. */
                head->read(head);
        ccs_flush(head);
        ccs_read_unlock(idx);
        len = head->read_user_buf - buffer;
        mutex_unlock(&head->io_sem);
        return len;
}

/**
 * ccs_write_control - write() for /proc/ccs/ interface.
 *
 * @file:       Pointer to "struct file".
 * @buffer:     Pointer to buffer to read from.
 * @buffer_len: Size of @buffer.
 *
 * Returns @buffer_len on success, negative value otherwise.
 */
int ccs_write_control(struct file *file, const char __user *buffer,
                      const int buffer_len)
{
        struct ccs_io_buffer *head = file->private_data;
        int error = buffer_len;
        int avail_len = buffer_len;
        char *cp0 = head->write_buf;
        int idx;
        if (!head->write)
                return -ENOSYS;
        if (!access_ok(VERIFY_READ, buffer, buffer_len))
                return -EFAULT;
        if (mutex_lock_interruptible(&head->io_sem))
                return -EINTR;
        idx = ccs_read_lock();
        /* Don't allow updating policies by non manager programs. */
        if (head->write != ccs_write_pid && head->write != ccs_write_domain &&
            !ccs_manager()) {
                ccs_read_unlock(idx);
                mutex_unlock(&head->io_sem);
                return -EPERM;
        }
        /* Read a line and dispatch it to the policy handler. */
        while (avail_len > 0) {
                char c;
                if (head->w.avail >= head->writebuf_size - 1) {
                        const int len = head->writebuf_size * 2;
                        char *cp = kzalloc(len, CCS_GFP_FLAGS);
                        if (!cp) {
                                error = -ENOMEM;
                                break;
                        }
                        memmove(cp, cp0, head->w.avail);
                        kfree(cp0);
                        head->write_buf = cp;
                        cp0 = cp;
                        head->writebuf_size = len;
                }
                if (get_user(c, buffer)) {
                        error = -EFAULT;
                        break;
                }
                buffer++;
                avail_len--;
                cp0[head->w.avail++] = c;
                if (c != '\n')
                        continue;
                cp0[head->w.avail - 1] = '\0';
                head->w.avail = 0;
                ccs_normalize_line(cp0);
                if (head->write(head))
                        continue;
                switch (head->type) {
                case CCS_DOMAINPOLICY:
                case CCS_EXCEPTIONPOLICY:
                case CCS_DOMAIN_STATUS:
                case CCS_MEMINFO:
                case CCS_PROFILE:
                case CCS_MANAGER:
                        ccs_update_stat(CCS_STAT_POLICY_UPDATES);
                }
        }
        ccs_read_unlock(idx);
        mutex_unlock(&head->io_sem);
        return error;
}

/**
 * ccs_close_control - close() for /proc/ccs/ interface.
 *
 * @file: Pointer to "struct file".
 *
 * Releases memory and returns 0.
 */
int ccs_close_control(struct file *file)
{
        struct ccs_io_buffer *head = file->private_data;
        const bool is_write = head->write_buf != NULL;
        const u8 type = head->type;
        /*
         * If the file is /proc/ccs/query , decrement the observer counter.
         */
        if (type == CCS_QUERY) {
                if (atomic_dec_and_test(&ccs_query_observers))
                        wake_up_all(&ccs_answer_wait);
        } else if (type != CCS_GRANTLOG && type != CCS_REJECTLOG)
                ccs_unlock(head->reader_idx);
        /* Release memory used for policy I/O. */
        kfree(head->read_buf);
        head->read_buf = NULL;
        kfree(head->write_buf);
        head->write_buf = NULL;
        kfree(head);
        head = NULL;
        file->private_data = NULL;
        if (is_write)
                ccs_run_gc();
        return 0;
}

void __init ccs_policy_io_init(void)
{
        ccsecurity_ops.check_profile = ccs_check_profile;
}