include/linux/syaoran.h

/*
 * include/linux/syaoran.h
 *
 * Implementation of the Tamper-Proof Device Filesystem.
 *
 * Copyright (C) 2005-2007  NTT DATA CORPORATION
 *
 * Version: 1.5.2-pre   2007/10/19
 *
 * This file is applicable to both 2.4.30 and 2.6.11 and later.
 * See README.ccs for ChangeLog.
 *
 */
/*
 * A brief description about SYAORAN:
 *
 *  SYAORAN stands for "Simple Yet All-important Object Realizing Abiding Nexus".
 *  SYAORAN is a filesystem for /dev with Mandatory Access Control.
 *
 *  /dev needs to be writable, but this means that files on /dev might be tampered with.
 *  SYAORAN can restrict combinations of (pathname, attribute) that the system can create.
 *  The attribute is one of directory, regular file, FIFO, UNIX domain socket,
 *  symbolic link, character or block device file with major/minor device numbers.
 *
 *  You can use SYAORAN alone, but I recommend you to use with SAKURA and TOMOYO.
 */

#ifndef _LINUX_SYAORAN_H
#define _LINUX_SYAORAN_H

#ifndef __user
#define __user
#endif

/***** SYAORAN start. *****/

#include <linux/version.h>

#if LINUX_VERSION_CODE < KERNEL_VERSION(2,5,0)
#define s_fs_info u.generic_sbp
#endif

/* The following constants are used to restrict operations.*/

#define MAY_CREATE          1 /* This file is allowed to mknod()              */
#define MAY_DELETE          2 /* This file is allowed to unlink()             */
#define MAY_CHMOD           4 /* This file is allowed to chmod()              */
#define MAY_CHOWN           8 /* This file is allowed to chown()              */
#define DEVICE_USED        16 /* This block or character device file is used. */
#define NO_CREATE_AT_MOUNT 32 /* Don't create this file at mount().           */

/* some random number */
#define SYAORAN_MAGIC    0x2F646576 /* = '/dev' */

static void syaoran_put_super(struct super_block *sb);
static int Syaoran_Initialize(struct super_block *sb, void *data);
static void MakeInitialNodes(struct super_block *sb);
static int MayCreateNode(struct dentry *dentry, int mode, int dev);
static int MayModifyNode(struct dentry *dentry, unsigned int flags);
static int syaoran_create_tracelog(struct super_block *sb, const char *filename);

/* Wraps blkdev_open() to trace open operation for block devices. */
static int (*org_blkdev_open) (struct inode * inode, struct file * filp) = NULL;
static struct file_operations wrapped_def_blk_fops;

static int wrapped_blkdev_open(struct inode * inode, struct file * filp)
{
        int error = org_blkdev_open(inode, filp);
        if (error != -ENXIO) MayModifyNode(filp->f_dentry, DEVICE_USED);
        return error;
}

/* Wraps chrdev_open() to trace open operation for character devices. */
static int (*org_chrdev_open) (struct inode * inode, struct file * filp) = NULL;
static struct file_operations wrapped_def_chr_fops;

static int wrapped_chrdev_open(struct inode * inode, struct file * filp)
{
        int error = org_chrdev_open(inode, filp);
        if (error != -ENXIO) MayModifyNode(filp->f_dentry, DEVICE_USED);
        return error;
}

/* lookup_create() without nameidata. Called only while initialization. */
static struct dentry *lookup_create2(const char *name, struct dentry *base, const u8 is_dir)
{
        struct dentry *dentry;
        const int len = name ? strlen(name) : 0;
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
        mutex_lock(&base->d_inode->i_mutex);
#else
        down(&base->d_inode->i_sem);
#endif
        dentry = lookup_one_len(name, base, len);
        if (IS_ERR(dentry)) goto fail;
        if (!is_dir && name[len] && !dentry->d_inode) goto enoent;
        return dentry;
 enoent:
        dput(dentry);
        dentry = ERR_PTR(-ENOENT);
 fail:
        return dentry;
}

/* mkdir(). Called only while initialization. */
static int fs_mkdir(const char *pathname, struct dentry *base, int mode, uid_t user, gid_t group)
{
        struct dentry *dentry = lookup_create2(pathname, base, 1);
        int error = PTR_ERR(dentry);
        if (!IS_ERR(dentry)) {
                error = vfs_mkdir(base->d_inode, dentry, mode);
                if (!error) {
                        lock_kernel();
                        dentry->d_inode->i_uid = user;
                        dentry->d_inode->i_gid = group;
                        unlock_kernel();
                }
                dput(dentry);
        }
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
        mutex_unlock(&base->d_inode->i_mutex);
#else
        up(&base->d_inode->i_sem);
#endif
        return error;
}

/* mknod(). Called only while initialization. */
static int fs_mknod(const char *filename, struct dentry *base, int mode, dev_t dev, uid_t user, gid_t group)
{
        struct dentry *dentry;
        int error;
        switch (mode & S_IFMT) {
        case S_IFCHR: case S_IFBLK: case S_IFIFO: case S_IFSOCK: case S_IFREG:
                break;
        default:
                return -EPERM;
        }
        dentry = lookup_create2(filename, base, 0);
        error = PTR_ERR(dentry);
        if (!IS_ERR(dentry)) {
                error = vfs_mknod(base->d_inode, dentry, mode, dev);
                if (!error) {
                        lock_kernel();
                        dentry->d_inode->i_uid = user;
                        dentry->d_inode->i_gid = group;
                        unlock_kernel();
                }
                dput(dentry);
        }
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
        mutex_unlock(&base->d_inode->i_mutex);
#else
        up(&base->d_inode->i_sem);
#endif
        return error;
}

/* symlink(). Called only while initialization. */
static int fs_symlink(const char *pathname, struct dentry *base, char *oldname, int mode, uid_t user, gid_t group)
{
        struct dentry *dentry = lookup_create2(pathname, base, 0);
        int error = PTR_ERR(dentry);
        if (!IS_ERR(dentry)) {
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2,5,0)
                error = vfs_symlink(base->d_inode, dentry, oldname, S_IALLUGO);
#else
                error = vfs_symlink(base->d_inode, dentry, oldname);
#endif
                if (!error) {
                        lock_kernel();
                        dentry->d_inode->i_mode = mode;
                        dentry->d_inode->i_uid = user;
                        dentry->d_inode->i_gid = group;
                        unlock_kernel();
                }
                dput(dentry);
        }
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
        mutex_unlock(&base->d_inode->i_mutex);
#else
        up(&base->d_inode->i_sem);
#endif
        return error;
}

/*
 * Format string.
 * Leading and trailing whitespaces are removed.
 * Multiple whitespaces are packed into single space.
 */
static void NormalizeLine(unsigned char *buffer)
{
        unsigned char *sp = buffer, *dp = buffer;
        int first = 1;
        while (*sp && (*sp <= ' ' || *sp >= 127)) sp++;
        while (*sp) {
                if (!first) *dp++ = ' ';
                first = 0;
                while (*sp > ' ' && *sp < 127) *dp++ = *sp++;
                while (*sp && (*sp <= ' ' || *sp >= 127)) sp++;
        }
        *dp = '\0';
}

/* Convert text form of filename into binary form. */
static void UnEscape(char *filename)
{
        char *cp = filename;
        char c, d, e;
        if (!cp) return;
        while ((c = *filename++) != '\0') {
                if (c != '\\') {
                        *cp++ = c;
                        continue;
                }
                if ((c = *filename++) == '\\') {
                        *cp++ = c;
                        continue;
                }
                if (c < '0' || c > '3' ||
                        (d = *filename++) < '0' || d > '7' ||
                        (e = *filename++) < '0' || e > '7') {
                        break;
                }
                * (unsigned char *) cp++ = (unsigned char) (((unsigned char) (c - '0') << 6) + ((unsigned char) (d - '0') << 3) + (unsigned char) (e - '0'));
        }
        *cp = '\0';
}

static char *strdup(const char *str)
{
        char *cp;
        const int len = str ? strlen(str) + 1 : 0;
        if ((cp = kmalloc(len, GFP_KERNEL)) != NULL) memmove(cp, str, len);
        return cp;
}

static int syaoran_default_mode = -1; /* -1: Not specified, 0: Enforce by default, 1: Accept by default. */

#if !defined(MODULE)
static int __init SYAORAN_Setup(char *str)
{
        if (strcmp(str, "accept") == 0) syaoran_default_mode = 1;
        else if (strcmp(str, "enforce") == 0) syaoran_default_mode = 0;
        return 0;
}

__setup("SYAORAN=", SYAORAN_Setup);
#endif

struct dev_entry {
        struct dev_entry *next;             /* Pointer to next record. NULL if none.                                 */
        char *name;                         /* Binary form of pathname under mount point. Never NULL.                */
        mode_t mode;                        /* Mode and permissions. setuid/setgid/sticky bits are not supported.    */
        uid_t uid;
        gid_t gid;
        dev_t kdev;
        char *symlink_data;                 /* Binary form of initial contents for the symlink. NULL if not symlink. */
        unsigned int flags;                 /* File access control flags.                                            */
        const char *printable_name;         /* Text form of pathname under mount point. Never NULL.                  */
        const char *printable_symlink_data; /* Text form of initial contents for the symlink. NULL if not symlink.   */
};

struct syaoran_sb_info {
        struct dev_entry *first_entry; /* Pointer to first file acl. NULL if not assigned. */
        int initialize_done;           /* Zero if initialization is in progress.           */
        int is_permissive_mode;        /* Nonzero if permissive mode.                      */
};

static int RegisterNodeInfo(char *buffer, struct super_block *sb)
{
        enum {
                ARG_FILENAME     = 0,
                ARG_PERMISSION   = 1,
                ARG_UID          = 2,
                ARG_GID          = 3,
                ARG_FLAGS        = 4,
                ARG_DEV_TYPE     = 5,
                ARG_SYMLINK_DATA = 6,
                ARG_DEV_MAJOR    = 6,
                ARG_DEV_MINOR    = 7,
                MAX_ARG          = 8
        };
        char *args[MAX_ARG];
        int i;
        int error = -EINVAL;
        unsigned int perm, uid, gid, flags, major = 0, minor = 0;
        struct syaoran_sb_info *info = (struct syaoran_sb_info *) sb->s_fs_info;
        struct dev_entry *entry;
        memset(args, 0, sizeof(args));
        args[0] = buffer;
        for (i = 1; i < MAX_ARG; i++) {
                args[i] = strchr(args[i - 1] + 1, ' ');
                if (!args[i]) break;
                *args[i]++ = '\0';
        }
        /* printk("<%s> <%s> <%s> <%s> <%s> <%s> <%s> <%s>\n", args[0], args[1], args[2], args[3], args[4], args[5], args[6], args[7]); */
        if (!args[ARG_FILENAME] || !args[ARG_PERMISSION] || !args[ARG_UID] || !args[ARG_GID] || !args[ARG_DEV_TYPE] || !args[ARG_FLAGS]) goto out;
        if (sscanf(args[ARG_PERMISSION], "%o", &perm) != 1 || !(perm <= 0777) || sscanf(args[ARG_UID], "%u", &uid) != 1
                || sscanf(args[ARG_GID], "%u", &gid) != 1 || sscanf(args[ARG_FLAGS], "%u", &flags) != 1 || *(args[ARG_DEV_TYPE] + 1)) goto out;
        switch (*args[ARG_DEV_TYPE]) {
        case 'c':
                perm |= S_IFCHR;
                if (!args[ARG_DEV_MAJOR] || sscanf(args[ARG_DEV_MAJOR], "%u", &major) != 1
                        || !args[ARG_DEV_MINOR] || sscanf(args[ARG_DEV_MINOR], "%u", &minor) != 1) goto out;
                break;
        case 'b':
                perm |= S_IFBLK;
                if (!args[ARG_DEV_MAJOR] || sscanf(args[ARG_DEV_MAJOR], "%u", &major) != 1
                        || !args[ARG_DEV_MINOR] || sscanf(args[ARG_DEV_MINOR], "%u", &minor) != 1) goto out;
                break;
        case 'l':
                perm |= S_IFLNK;
                if (!args[ARG_SYMLINK_DATA]) goto out;
                break;
        case 'd':
                perm |= S_IFDIR;
                break;
        case 's':
                perm |= S_IFSOCK;
                break;
        case 'p':
                perm |= S_IFIFO;
                break;
        case 'f':
                perm |= S_IFREG;
                break;
        default:
                goto out;
        }
        error = -ENOMEM;
        if ((entry = kmalloc(sizeof(*entry), GFP_KERNEL)) == NULL) goto out;
        memset(entry, 0, sizeof(*entry));
        if (!info->first_entry) {
                info->first_entry = entry;
        } else {
                struct dev_entry *p = info->first_entry;
                while (p->next) p = p->next; p->next = entry;
        }
        if (S_ISLNK(perm)) {
                if ((entry->printable_symlink_data = strdup(args[ARG_SYMLINK_DATA])) == NULL) goto out;
        }
        if ((entry->printable_name = strdup(args[ARG_FILENAME])) == NULL) goto out_freemem;
        if (S_ISLNK(perm)) {
                if ((entry->symlink_data = strdup(entry->printable_symlink_data)) == NULL) goto out_freemem;
                UnEscape(entry->symlink_data);
        }
        if ((entry->name = strdup(entry->printable_name)) == NULL) goto out_freemem;
        UnEscape(entry->name);
        {   /* Drop trailing '/', for GetLocalAbsolutePath() doesn't append trailing '/'. */
                const int len = strlen(entry->name);
                if (len && entry->name[len - 1] == '/') entry->name[len - 1] = '\0';
        }
        entry->mode = perm;
        entry->uid = uid;
        entry->gid = gid;
        entry->kdev = S_ISCHR(perm) || S_ISBLK(perm) ? MKDEV(major, minor) : 0;
        entry->flags = flags;
        /* printk("Entry added.\n"); */
        error = 0;
 out:
        return error;
 out_freemem:
        kfree(entry->printable_symlink_data);
        kfree(entry->printable_name);
        kfree(entry->symlink_data);
        goto out;
}

static void syaoran_put_super(struct super_block *sb)
{
        struct syaoran_sb_info *info;
        struct dev_entry *entry;
        if (!sb) return;
        info = (struct syaoran_sb_info *) sb->s_fs_info;
        if (!info) return;
        entry = info->first_entry;
        while (entry) {
                struct dev_entry *next = entry->next;
                kfree(entry->name); entry->name = NULL;
                kfree(entry->symlink_data); entry->symlink_data = NULL;
                kfree(entry->printable_name); entry->printable_name = NULL;
                kfree(entry->printable_symlink_data); entry->printable_symlink_data = NULL;
                kfree(entry); entry = next;
                /* printk("Entry removed.\n"); */
        }
        info->first_entry = NULL;
        kfree(info);
        sb->s_fs_info = NULL;
        printk("%s: Unused memory freed.\n", __FUNCTION__);
}

static int ReadConfigFile(struct file *file, struct super_block *sb)
{
        char *buffer;
        int error = -ENOMEM;
        if (!file) return -EINVAL;
        if ((buffer = kmalloc(PAGE_SIZE, GFP_KERNEL)) != NULL) {
                int len;
                char *cp;
                unsigned long offset = 0;
                memset(buffer, 0, PAGE_SIZE);
                while ((len = kernel_read(file, offset, buffer, PAGE_SIZE)) > 0 && (cp = memchr(buffer, '\n', len)) != NULL) {
                        *cp = '\0';
                        offset += cp - buffer + 1;
                        NormalizeLine(buffer);
                        if (RegisterNodeInfo(buffer, sb) == -ENOMEM) goto out;
                }
                error = 0;
        }
 out:
        kfree(buffer);
        return error;
}

static void MakeNode(struct dev_entry *entry, struct dentry *root)
{
        struct dentry *base = dget(root);
        char *filename = entry->name;
        char *name = filename;
        unsigned int c;
        const mode_t perm = entry->mode;
        const uid_t uid = entry->uid;
        const gid_t gid = entry->gid;
        goto start;
        while ((c = * (unsigned char *) filename) != '\0') {
                if (c == '/') {
                        struct dentry *new_base;
                        const int len = filename - name;
                        *filename = '\0';
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
                        mutex_lock(&base->d_inode->i_mutex);
                        new_base = lookup_one_len(name, base, len);
                        mutex_unlock(&base->d_inode->i_mutex);
#else
                        down(&base->d_inode->i_sem);
                        new_base = lookup_one_len(name, base, len);
                        up(&base->d_inode->i_sem);
#endif
                        dput(base);
                        /*
                        if (IS_ERR(new_base)) {
                                printk("'%s' = %ld\n", entry->name, PTR_ERR(new_base));
                        } else if (!new_base->d_inode || !S_ISDIR(new_base->d_inode->i_mode)) {
                                printk("Directory '%s' does not exist.\n", entry->name);
                        } else {
                                printk("Directory '%s' exists.\n", entry->name);
                        }
                        */
                        *filename = '/';
                        filename++;
                        if (IS_ERR(new_base)) {
                                return;
                        } else if (!new_base->d_inode || !S_ISDIR(new_base->d_inode->i_mode)) {
                                dput(new_base);
                                return;
                        }
                        base = new_base;
                start:
                        name = filename;
                } else {
                        filename++;
                }
        }
        filename = (char *) name;
        if (S_ISLNK(perm)) {
                fs_symlink(filename, base, entry->symlink_data, perm, uid, gid);
        } else if (S_ISDIR(perm)) {
                fs_mkdir(filename, base, perm ^ S_IFDIR, uid, gid);
        } else if (S_ISSOCK(perm) || S_ISFIFO(perm) || S_ISREG(perm)) {
                fs_mknod(filename, base, perm, 0, uid, gid);
        } else if (S_ISCHR(perm) || S_ISBLK(perm)) {
                fs_mknod(filename, base, perm, entry->kdev, uid, gid);
        }
        dput(base);
}

/* Create files according to the policy file. */
static void MakeInitialNodes(struct super_block *sb)
{
        struct syaoran_sb_info *info;
        struct dev_entry *entry;
        if (!sb) return;
        info = (struct syaoran_sb_info *) sb->s_fs_info;
        if (!info) return;
        if (info->is_permissive_mode) {
                syaoran_create_tracelog(sb, ".syaoran");
                syaoran_create_tracelog(sb, ".syaoran_all");
        }
        for (entry = info->first_entry; entry; entry = entry->next) {
                if ((entry->flags & NO_CREATE_AT_MOUNT) == 0) MakeNode(entry, sb->s_root);
        }
        info->initialize_done = 1;
}

/* Read policy file. */
static int Syaoran_Initialize(struct super_block *sb, void *data)
{
        int error = -EINVAL;
        static int first = 1;
        if (first) {
                first = 0;
                printk("SYAORAN: 1.5.2-pre   2007/10/19\n");
        }
        {
                struct inode *inode = new_inode(sb);
                if (!inode) return -EINVAL;
                /* Create /dev/ram0 to get the value of blkdev_open(). */
                init_special_inode(inode, S_IFBLK | 0666, MKDEV(1, 0));
                wrapped_def_blk_fops = *inode->i_fop;
                iput(inode);
                org_blkdev_open = wrapped_def_blk_fops.open;
                wrapped_def_blk_fops.open = wrapped_blkdev_open;
        }
        {
                struct inode *inode = new_inode(sb);
                if (!inode) return -EINVAL;
                /* Create /dev/null to get the value of chrdev_open(). */
                init_special_inode(inode, S_IFCHR | 0666, MKDEV(1, 3));
                wrapped_def_chr_fops = *inode->i_fop;
                iput(inode);
                org_chrdev_open = wrapped_def_chr_fops.open;
                wrapped_def_chr_fops.open = wrapped_chrdev_open;
        }
        if (data) {
                struct file *f;
                char *filename = (char *) data;
                int is_permissive_mode = syaoran_default_mode;
                /* If mode is given with mount operation, use it. */
                if (strncmp(filename, "accept=", 7) == 0) {
                        filename += 7;
                        is_permissive_mode = 1;
                } else if (strncmp(filename, "enforce=", 8) == 0) {
                        filename += 8;
                        is_permissive_mode = 0;
                } else if (is_permissive_mode == -1) {
                        /* If mode is not given with command line, abort mount. */
                        printk("SYAORAN: Missing 'accept=' or 'enforce='.\n");
                        return -EINVAL;
                }
                f = filp_open(filename, O_RDONLY, 0600);
                if (!IS_ERR(f)) {
                        struct syaoran_sb_info *p;
                        if (!S_ISREG(f->f_dentry->d_inode->i_mode)) goto out;
                        if ((p = sb->s_fs_info = kmalloc(sizeof(*p), GFP_KERNEL)) == NULL) goto out;
                        memset(p, 0, sizeof(*p));
                        p->is_permissive_mode = is_permissive_mode;
                        printk("SYAORAN: Reading '%s'\n", filename);
                        error = ReadConfigFile(f, sb);
                out:
                        if (error) printk("SYAORAN: Can't read '%s'\n", filename);
                        filp_close(f, NULL);
                } else {
                        printk("SYAORAN: Can't open '%s'\n", filename);
                }
        } else {
                printk("SYAORAN: Missing config-file path.\n");
        }
        return error;
}

/* Get absolute pathname from mount point. */
static int GetLocalAbsolutePath(struct dentry *dentry, char *buffer, int buflen)
{
        char *start = buffer;
        char *end = buffer + buflen;
        int namelen;

        if (buflen < 256) goto out;

        *--end = '\0';
        buflen--;
        for (;;) {
                struct dentry *parent;
                if (IS_ROOT(dentry)) break;
                parent = dentry->d_parent;
                namelen = dentry->d_name.len;
                buflen -= namelen + 1;
                if (buflen < 0) goto out;
                end -= namelen;
                memcpy(end, dentry->d_name.name, namelen);
                *--end = '/';
                dentry = parent;
        }
        if (*end == '/') { buflen++; end++; }
        namelen = dentry->d_name.len;
        buflen -= namelen;
        if (buflen < 0) goto out;
        end -= namelen;
        memcpy(end, dentry->d_name.name, namelen);
        memmove(start, end, strlen(end) + 1);
        return 0;
 out:
        return -ENOMEM;
}

/* Get absolute pathname of the given dentry from mount point. */
static int local_realpath_from_dentry(struct dentry *dentry, char *newname, int newname_len)
{
        int error;
        struct dentry *d_dentry;
        if (!dentry || !newname || newname_len <= 0) return -EINVAL;
        d_dentry = dget(dentry);
        /***** CRITICAL SECTION START *****/
        spin_lock(&dcache_lock);
        error = GetLocalAbsolutePath(d_dentry, newname, newname_len);
        spin_unlock(&dcache_lock);
        /***** CRITICAL SECTION END *****/
        dput(d_dentry);
        return error;
}

static int CheckFlags(struct syaoran_sb_info *info, struct dentry *dentry, int mode, int dev, unsigned int flags)
{
        int error = -EPERM;
        /* I use static buffer, for local_realpath_from_dentry() needs dcache_lock. */
        static char filename[PAGE_SIZE];
        static spinlock_t lock = SPIN_LOCK_UNLOCKED;
        spin_lock(&lock);
        memset(filename, 0, sizeof(filename));
        if (local_realpath_from_dentry(dentry, filename, sizeof(filename) - 1) == 0) {
                struct dev_entry *entry;
                for (entry = info->first_entry; entry; entry = entry->next) {
                        if ((mode & S_IFMT) != (entry->mode & S_IFMT)) continue;
                        if ((S_ISBLK(mode) || S_ISCHR(mode)) && dev != entry->kdev) continue;
                        if (strcmp(entry->name, filename + 1)) continue;
                        if (info->is_permissive_mode) {
                                entry->flags |= flags;
                                error = 0;
                        } else {
                                if ((entry->flags & flags) == flags) error = 0;
                        }
                        break;
                }
        }
        if (error && strlen(filename) < (sizeof(filename) / 4) - 16) {
                const char *name;
                const uid_t uid = current->fsuid;
                const gid_t gid = current->fsgid;
                const mode_t perm = mode & 0777;
                flags &= ~DEVICE_USED;
                {
                        char *end = filename + sizeof(filename) - 1;
                        const char *cp = strchr(filename, '\0') - 1;
                        while (cp > filename) {
                                const unsigned char c = *cp--;
                                if (c == '\\') {
                                        *--end = '\\';
                                        *--end = '\\';
                                } else if (c > ' ' && c < 127) {
                                        *--end = c;
                                } else {
                                        *--end = (c & 7) + '0';
                                        *--end = ((c >> 3) & 7) + '0';
                                        *--end = (c >> 6) + '0';
                                        *--end = '\\';
                                }
                        }
                        name = end;
                }
                switch (mode & S_IFMT) {
                case S_IFCHR:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, flags, 'c', MAJOR(dev), MINOR(dev));
                        break;
                case S_IFBLK:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, flags, 'b', MAJOR(dev), MINOR(dev));
                        break;
                case S_IFIFO:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'p');
                        break;
                case S_IFSOCK:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 's');
                        break;
                case S_IFDIR:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'd');
                        break;
                case S_IFLNK:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c %s\n", name, perm, uid, gid, flags, 'l', "unknown");
                        break;
                case S_IFREG:
                        printk(KERN_DEBUG "SYAORAN-ERROR: %s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'f');
                        break;
                }
        }
        spin_unlock(&lock);
        return error;
}

/* Check whether the given dentry is allowed to mknod. */
static int MayCreateNode(struct dentry *dentry, int mode, int dev)
{
        struct syaoran_sb_info *info = (struct syaoran_sb_info *) dentry->d_sb->s_fs_info;
        if (!info) {
                printk("%s: dentry->d_sb->s_fs_info == NULL\n", __FUNCTION__);
                return -EPERM;
        }
        if (!info->initialize_done) return 0;
        return CheckFlags(info, dentry, mode, dev, MAY_CREATE);
}

/* Check whether the given dentry is allowed to chmod/chown/unlink. */
static int MayModifyNode(struct dentry *dentry, unsigned int flags)
{
        struct syaoran_sb_info *info = (struct syaoran_sb_info *) dentry->d_sb->s_fs_info;
        if (!info) {
                printk("%s: dentry->d_sb->s_fs_info == NULL\n", __FUNCTION__);
                return -EPERM;
        }
        if (flags == DEVICE_USED && !info->is_permissive_mode) return 0;
        if (!dentry->d_inode) return -ENOENT;
        return CheckFlags(info, dentry, dentry->d_inode->i_mode, dentry->d_inode->i_rdev, flags);
}

/*
 * The following structure and codes are used for transferring data to interfaces files.
 */

struct syaoran_read_struct {
        char *buf;               /* Buffer for reading.                                        */
        int avail;               /* Bytes available for reading.                               */
        struct super_block *sb;  /* The super_block of this partition.                         */
        struct dev_entry *entry; /* The entry currently reading from.                          */
        int read_all;            /* Nonzero if dump all entries.                               */
};

static void ReadTable(struct syaoran_read_struct *head, char *buf, int count)
{
        struct super_block *sb = head->sb;
        struct syaoran_sb_info *info = (struct syaoran_sb_info *) sb->s_fs_info;
        struct dev_entry *entry;
        if (!info) return;
        for (entry = head->entry; entry; entry = entry->next) {
                const unsigned int flags = entry->flags & ~DEVICE_USED;
                const char *name = entry->printable_name;
                const uid_t uid = entry->uid;
                const gid_t gid = entry->gid;
                const mode_t perm = entry->mode & 0777;
                int len = 0;
                switch (entry->mode & S_IFMT) {
                case S_IFCHR:
                        if (head->read_all) len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, entry->flags, 'c', MAJOR(entry->kdev), MINOR(entry->kdev));
                        else if (entry->flags & DEVICE_USED) len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, flags, 'c', MAJOR(entry->kdev), MINOR(entry->kdev));
                        break;
                case S_IFBLK:
                        if (head->read_all) len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, entry->flags, 'b', MAJOR(entry->kdev), MINOR(entry->kdev));
                        else if (entry->flags & DEVICE_USED) len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c %3u %3u\n", name, perm, uid, gid, flags, 'b', MAJOR(entry->kdev), MINOR(entry->kdev));
                        break;
                case S_IFIFO:
                        len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'p');
                        break;
                case S_IFSOCK:
                        len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 's');
                        break;
                case S_IFDIR:
                        len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'd');
                        break;
                case S_IFLNK:
                        len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c %s\n", name, perm, uid, gid, flags, 'l', entry->printable_symlink_data);
                        break;
                case S_IFREG:
                        len = snprintf(buf, count, "%-20s %3o %3u %3u %2u %c\n", name, perm, uid, gid, flags, 'f');
                        break;
                }
                if (len < 0 || count < len) break;
                count -= len;
                buf += len;
                head->avail += len;
                head->entry = entry->next;
        }
}

static int syaoran_trace_open(struct inode *inode, struct file *file)
{
        struct syaoran_read_struct *head;
        if ((head = kmalloc(sizeof(*head), GFP_KERNEL)) == NULL) return -ENOMEM;
        memset(head, 0, sizeof(*head));
        head->sb = inode->i_sb;
        head->read_all = (strcmp(file->f_dentry->d_name.name, ".syaoran_all") == 0);
        head->entry = ((struct syaoran_sb_info *) head->sb->s_fs_info)->first_entry;
        if ((head->buf = kmalloc(PAGE_SIZE * 2, GFP_KERNEL)) == NULL) {
                kfree(head);
                return -ENOMEM;
        }
        memset(head->buf, 0, PAGE_SIZE * 2);
        file->private_data = head;
        return 0;
}

static int syaoran_trace_release(struct inode *inode, struct file *file)
{
        struct syaoran_read_struct *head = file->private_data;
        kfree(head->buf);
        kfree(head);
        file->private_data = NULL;
        return 0;
}

static ssize_t syaoran_trace_read(struct file *file, char __user *buf, size_t count, loff_t * ppos)
{
        struct syaoran_read_struct *head = (struct syaoran_read_struct *) file->private_data;
        int len = head->avail;
        char *cp = head->buf;
        if (!access_ok(VERIFY_WRITE, buf, count)) return -EFAULT;
        ReadTable(head, cp + len, PAGE_SIZE * 2 - len);
        len = head->avail;
        if (len > count) len = count;
        if (len > 0) {
                if (copy_to_user(buf, cp, len)) return -EFAULT;
                head->avail -= len;
                memmove(cp, cp + len, head->avail);
        }
        return len;
}

static struct file_operations syaoran_trace_operations = {
        open:    syaoran_trace_open,
        release: syaoran_trace_release,
        read:    syaoran_trace_read,
};

/* Create interface files for reading status. */
static int syaoran_create_tracelog(struct super_block *sb, const char *filename)
{
        struct dentry *base = dget(sb->s_root);
        struct dentry *dentry = lookup_create2(filename, base, 0);
        int error = PTR_ERR(dentry);
        if (!IS_ERR(dentry)) {
                struct inode *inode = new_inode(sb);
                if (inode) {
                        inode->i_mode = S_IFREG | 0400;
                        inode->i_uid = 0;
                        inode->i_gid = 0;
#if LINUX_VERSION_CODE < KERNEL_VERSION(2,6,19)
                        inode->i_blksize = PAGE_CACHE_SIZE;
#endif
                        inode->i_blocks = 0;
                        inode->i_mapping->a_ops = &syaoran_aops;
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2,5,0)
                        inode->i_mapping->backing_dev_info = &syaoran_backing_dev_info;
                        inode->i_op = &syaoran_file_inode_operations;
#else
                        inode->i_rdev = NODEV;
#endif
                        inode->i_atime = inode->i_mtime = inode->i_ctime = CURRENT_TIME;
                        inode->i_fop = &syaoran_trace_operations;
                        d_instantiate(dentry, inode);
                        dget(dentry); /* Extra count - pin the dentry in core */
                        error = 0;
                }
                dput(dentry);
        }
#if LINUX_VERSION_CODE  >= KERNEL_VERSION(2,6,16)
        mutex_unlock(&base->d_inode->i_mutex);
#else
        up(&base->d_inode->i_sem);
#endif
        dput(base);
        return error;
}

/***** SYAORAN end. *****/
#endif