/*
 * Copyright (c) 2007 Vreixo Formoso
 * Copyright (c) 2007 Mario Danic
 * Copyright (c) 2009 - 2025 Thomas Schmitt
 *
 * This file is part of the libisofs project; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License version 2 
 * or later as published by the Free Software Foundation. 
 * See COPYING file for details.
 */

#ifdef HAVE_CONFIG_H
#include "../config.h"
#endif

/*
   Use the copy of the struct burn_source definition in libisofs.h
*/
#define LIBISOFS_WITHOUT_LIBBURN yes
#include "libisofs.h"

#include "ecma119.h"
#include "joliet.h"
#include "hfsplus.h"
#include "iso1999.h"
#include "eltorito.h"
#include "ecma119_tree.h"
#include "filesrc.h"
#include "image.h"
#include "writer.h"
#include "messages.h"
#include "rockridge.h"
#include "util.h"
#include "system_area.h"
#include "md5.h"

#include <ctype.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
#include <locale.h>
#include <langinfo.h>
#include <stdio.h>
#include <unistd.h>
#include <sys/types.h>

#ifdef Xorriso_standalonE

#ifdef Xorriso_with_libjtE
#include "../libjte/libjte.h"
#endif

#else

#ifdef Libisofs_with_libjtE
#include <libjte/libjte.h>
#endif

#endif /* ! Xorriso_standalonE */


/*
 * TODO #00011 : guard against bad path table usage with more than 65535 dirs
 * image with more than 65535 directories have path_table related problems
 * due to 16 bits parent id. Note that this problem only affects to folders
 * that are parent of another folder.
 */


int iso_write_opts_clone(IsoWriteOpts *in, IsoWriteOpts **out, int flag);


#ifdef Libisofs_dir_rec_size_checK

/* @param file_id : 0= '.' node , 1= '..' node , else= normal node
 */
static
char *ecma119_path_not_threadsafe(Ecma119Node *dir, Ecma119Node *node,
                                  int file_id)
{
    int loop_count, len = 0, pos, l;
    Ecma119Node *parent;
    char *iso_name = NULL;
    static char path[1024];

    if (file_id != 0 && file_id != 1)
        iso_name = node->iso_name;
    if (iso_name == NULL && (dir == NULL || dir->iso_name == NULL)) {
        strcpy(path, "/");
        goto return_path;
    }

    /* Determine path length */
    /* Zero byte */
    len = 1;
    if (iso_name != NULL) {
        /* Slash, leafname */
        len += 1 + strlen(iso_name);
    }
    parent = dir;
    for (loop_count = 0; loop_count < 512; loop_count++) {
        if (parent == NULL)
    break;
        if (parent->iso_name == NULL)
    break;
        /* Slash, name */
        len += 1 + strlen(parent->iso_name);
        parent = parent->parent;
    }
    if (len >= 1024 || loop_count >= 512) {
oversized_path:;
        strcpy(path, "_oversized_path_/");
        if (iso_name != NULL)
            strcat(path, iso_name);
        /* Make sure that the path is not oversized and can take add-ons */
        if (strlen(path) >= 1024 - 3)
            path[1024 - 4] = 0;
        goto return_path;
    }

    /* Compose path */
    pos= len - 1;
    path[pos] = 0;
    if (iso_name != NULL) {
        pos -= strlen(iso_name);
        memcpy(path + pos, iso_name, strlen(iso_name));
        pos--;
        path[pos] = '/';
    }
    parent = dir;
    for (loop_count = 0; loop_count < 512; loop_count++) {
        if (parent == NULL)
    break;
        if (parent->iso_name == NULL)
    break;
        pos -= strlen(parent->iso_name);
        memcpy(path + pos, parent->iso_name, strlen(parent->iso_name));
        pos--;
        path[pos] = '/';
        parent = parent->parent;
    }

    if (pos > 0) {
        /* Should not happen */
        for (; pos >= 0; pos--)
            path[pos] = ' ';
    }

return_path:;
    if (file_id == 0 || file_id == 1) {
        if (strlen(path) + 3 >= 1024)
            goto oversized_path;
        l = strlen(path);
        if (l > 0)
            l--;
        if (path[l] != '/')
            strcat(path, "/");
        if (file_id == 0) {
            strcat(path, ".");
        } else {
            strcat(path, "..");
        }
    }
    return path;
}


/*
   Record the size predictions about directory records and continuation areas
   during the calculation stage or compare the written sizes with the
   recorded predictions.

   @param file_id   directory type for modes 2 and 7:
                      0='.' , 1='..' , <0 any other type , >1 reserved
   @param byte_adr  byte address of the directory record for mode 1
                    byte address of the continuation area for mode 7
   @param mode  0= initialize
                1= record directory record size
                2= compare and complain directory record size
                3= report both mismatch counts if non-zero
                4= return dir_rec mismatch count but do not report
                5= free allocated memory
                6= record continuation area size
                7= compare and complain continuation area size
                8= return continuation area mismatch count but do not report
   @return     with modes 0, 1, 2, 6, 7:
               -1= out of memory
                0= comparison yielded mismatch or list not yet initialized
                1= successful operation or comparison yielded match
                2= list overflow
               with mode 3, 4, 8:
                the number of mismatches (3 returns the sum of 4 and 8)
               with mode 5
                1
*/
static
int dir_rec_size_check(Ecma119Image *t, Ecma119Node *dir, Ecma119Node *node,
                       int file_id, off_t byte_adr, uint32_t rec_size,
                       int mode)
{
    static uint32_t *rec_size_list = NULL, *ce_size_list = NULL;
    static int list_size = 1000, write_idx = 0, read_idx = 0;
    static int ce_list_size = 1000, ce_write_idx = 0, ce_read_idx = 0;
    static int mismatch_count= 0, ce_mismatch_count, max_complaints= 10;
    static int permanent_overflow = 0;

    void *newpt;
    off_t block;

    if (mode == 0) {
        /* Initialize */
        write_idx = 0;
        read_idx = 0;
        mismatch_count = 0;
        ce_write_idx = 0;
        ce_read_idx = 0;
        ce_mismatch_count = 0;
        permanent_overflow = 0;
        if (rec_size_list == NULL) {
            rec_size_list= calloc(list_size, sizeof(uint32_t));
            if (rec_size_list == NULL)
                return -1;
        }
        if (ce_size_list == NULL) {
            ce_size_list= calloc(ce_list_size, sizeof(uint32_t));
            if (ce_size_list == NULL)
                return -1;
        }

    } else if (mode == 1) {
        /* Record */
        if (rec_size_list == NULL)
            return 0;
        if (write_idx >= list_size) {
            if (permanent_overflow)
                return 2;
            newpt = realloc(rec_size_list, list_size * 2 * sizeof(uint32_t));
            if (newpt == NULL) {
                permanent_overflow = 1;
                return 2;
            }
            rec_size_list= newpt;
            list_size *= 2;
            if (write_idx >= list_size) {
                permanent_overflow = 1;
                return 2;
            }
        }
        rec_size_list[write_idx] = rec_size;
        write_idx++;

    } else if (mode == 2) {
        /* Compare and complain */
        if (rec_size_list == NULL)
            return 0;
        if (read_idx >= list_size)
            return 2;
        read_idx++;
        if (rec_size_list[read_idx - 1] != rec_size) {
           mismatch_count++;
           if (mismatch_count <= max_complaints) {
               if (byte_adr < 0)
                   byte_adr = t->bytes_written +
                              t->opts->ms_block * BLOCK_SIZE - rec_size;
               block = byte_adr / BLOCK_SIZE;
               iso_msg_submit(-1, ISO_DIR_REC_SIZE_MISMATCH, 0,
       "Directory record size calculation mismatch: LBA %lu '%s' : %lu -> %lu",
                              (unsigned long) block,
                              ecma119_path_not_threadsafe(dir, node, file_id),
                              (unsigned long) rec_size_list[read_idx - 1],
                              (unsigned long) rec_size);
           }
           return 0;
        }

    } else if (mode == 3) {
        /* Report mismatch count */
        if (mismatch_count > 0) {
             iso_msg_submit(-1, ISO_DIR_REC_SIZE_MISMATCH, 0,
                 "Number of directory record size calculation mismatches: %lu",
                            (unsigned long) mismatch_count);
        }
        if (ce_mismatch_count > 0) {
             iso_msg_submit(-1, ISO_DIR_REC_SIZE_MISMATCH, 0,
                "Number of continuation area size calculation mismatches: %lu",
                            (unsigned long) ce_mismatch_count);
        }
        return mismatch_count + ce_mismatch_count;

    } else if (mode == 4) {
        return mismatch_count;

    } else if (mode == 5) {
        /* Free allocated memory */
        if (rec_size_list != NULL) {
            free(rec_size_list);
            rec_size_list = NULL;
        }
        if (ce_size_list != NULL) {
            free(ce_size_list);
            ce_size_list = NULL;
        }

    } else if (mode == 6) {
        /* Record continuation area size */
        if (ce_size_list == NULL)
            return 0;
        if (ce_write_idx >= ce_list_size) {
            if (permanent_overflow)
                return 2;
            newpt = realloc(ce_size_list, ce_list_size * 2 * sizeof(uint32_t));
            if (newpt == NULL) {
                permanent_overflow = 1;
                return 2;
            }
            ce_size_list= newpt;
            ce_list_size *= 2;
            if (ce_write_idx >= ce_list_size) {
                permanent_overflow = 1;
                return 2;
            }
        }
        ce_size_list[ce_write_idx] = rec_size;
        ce_write_idx++;

    } else if (mode == 7) {
        /* Compare and complain continuation area size*/
        if (ce_size_list == NULL)
            return 0;
        if (ce_read_idx >= ce_list_size)
            return 2;
        ce_read_idx++;
        if (ce_size_list[ce_read_idx - 1] != rec_size) {
           ce_mismatch_count++;
           if (ce_mismatch_count <= max_complaints) {
               if (byte_adr < 0)
                   byte_adr = t->bytes_written +
                              t->opts->ms_block * BLOCK_SIZE - rec_size;
               block = byte_adr / BLOCK_SIZE;
               iso_msg_submit(-1, ISO_DIR_REC_SIZE_MISMATCH, 0,
 "Continuation area size calculation mismatch: LBA %lu+%lu '%s' : %lu -> %lu",
                              (unsigned long) block,
                              (unsigned long) (byte_adr - block * BLOCK_SIZE),
                              ecma119_path_not_threadsafe(dir, node, file_id),
                              (unsigned long) ce_size_list[ce_read_idx - 1],
                              (unsigned long) rec_size);
           }
           return 0;
        }

    } else if (mode == 8) {
        return ce_mismatch_count;
    }
    return 1;
}

#endif /* Libisofs_dir_rec_size_checK */


static
void ecma119_image_free(Ecma119Image *t)
{
    size_t i;

    if (t == NULL)
        return;

    if (t->refcount > 1) {
        t->refcount--;
        return;
    }

    if (t->root != NULL)
        ecma119_node_free(t->root);
    if (t->opts != NULL)
        iso_write_opts_free(t->opts);
    if (t->image != NULL)
        iso_image_unref(t->image);
    if (t->files != NULL)
        iso_rbtree_destroy(t->files, iso_file_src_free);
    if (t->ecma119_hidden_list != NULL)
        iso_filesrc_list_destroy(&(t->ecma119_hidden_list));
    if (t->buffer != NULL)
        iso_ring_buffer_free(t->buffer);

    for (i = 0; i < t->nwriters; ++i) {
        IsoImageWriter *writer = t->writers[i];
        writer->free_data(writer);
        free(writer);
    }
    if (t->input_charset != NULL)
        free(t->input_charset);
    if (t->output_charset != NULL)
        free(t->output_charset);
    if (t->bootsrc != NULL)
        free(t->bootsrc);
    if (t->boot_appended_idx != NULL)
        free(t->boot_appended_idx);
    if (t->boot_intvl_start != NULL)
        free(t->boot_intvl_start);
    if (t->boot_intvl_size != NULL)
        free(t->boot_intvl_size);
    if (t->system_area_data != NULL)
        free(t->system_area_data);
    if (t->checksum_ctx != NULL) { /* dispose checksum context */
        char md5[16];
        iso_md5_end(&(t->checksum_ctx), md5);
    }
    if (t->checksum_buffer != NULL)
        free(t->checksum_buffer);
    if (t->writers != NULL)
        free(t->writers);
    if (t->partition_root != NULL)
        ecma119_node_free(t->partition_root);
    for (i = 0; i < ISO_HFSPLUS_BLESS_MAX; i++)
        if (t->hfsplus_blessed[i] != NULL)
            iso_node_unref(t->hfsplus_blessed[i]);
    for (i = 0; (int) i < t->apm_req_count; i++)
        if (t->apm_req[i] != NULL)
            free(t->apm_req[i]);
    for (i = 0; (int) i < t->mbr_req_count; i++)
        if (t->mbr_req[i] != NULL)
            free(t->mbr_req[i]);
    for (i = 0; (int) i < t->gpt_req_count; i++)
        if (t->gpt_req[i] != NULL)
            free(t->gpt_req[i]);

    free(t);
}

static int show_chunk_to_jte(Ecma119Image *target, char *buf, int count)
{

#ifdef Libisofs_with_libjtE

    int ret;

    if (target->opts->libjte_handle == NULL)
        return ISO_SUCCESS;
    ret = libjte_show_data_chunk(target->opts->libjte_handle, buf, count, 1); 
    if (ret <= 0) {
        iso_libjte_forward_msgs(target->opts->libjte_handle,
                                target->image->id, ISO_LIBJTE_FILE_FAILED, 0);
        return ISO_LIBJTE_FILE_FAILED;
    }

#endif /* Libisofs_with_libjtE */

    return ISO_SUCCESS;
}

/**
 * Check if we should add version number ";" to the given node name.
 */
static
int need_version_number(IsoWriteOpts *opts, enum ecma119_node_type node_type)
{
    if ((opts->omit_version_numbers & 1) ||
        opts->max_37_char_filenames || opts->untranslated_name_len > 0) {
        return 0;
    }
    if (node_type == ECMA119_DIR || node_type == ECMA119_PLACEHOLDER) {
        return 0;
    } else {
        return 1;
    }
}

/**
 * Compute the size of a directory entry for a single node
 */
static
size_t calc_dirent_len(Ecma119Image *t, Ecma119Node *n)
{
    int ret = n->iso_name ? strlen(n->iso_name) + 33 : 34;
    if (need_version_number(t->opts, n->type)) {
        ret += 2; /* take into account version numbers */
    }
    if (ret % 2)
        ret++;
    return ret;
}

/**
 * Computes the total size of all directory entries of a single dir,
 * according to ECMA-119 6.8.1.1
 *
 * This also take into account the size needed for RR entries and
 * SUSP continuation areas (SUSP, 5.1).
 *
 * @param ce
 *      Will be filled with the size needed for Continuation Areas
 * @return
 *      The size needed for all dir entries of the given dir, without
 *      taking into account the continuation areas.
 */
static
ssize_t calc_dir_size(Ecma119Image *t, Ecma119Node *dir, size_t *ce)
{
    size_t i, len;
    ssize_t ret;
    size_t ce_len = 0;
    size_t dirent_len;

    len = 0;
    /* size of "." and ".." entries */
    dirent_len = 34;
    if (t->opts->rockridge) {
        ret = rrip_calc_len(t, dir, 1, 34, &ce_len, *ce);
        if (ret < 0) 
            return ret;
        dirent_len += ret;
        *ce += ce_len;
    }

#ifdef Libisofs_dir_rec_size_checK

    /* Record calculated size */
    dir_rec_size_check(t, NULL, NULL, -1, (off_t) -1, (uint32_t) dirent_len,
                       1);

#endif /* Libisofs_dir_rec_size_checK */

    len += dirent_len;

    dirent_len = 34;
    if (t->opts->rockridge) {
        ret = rrip_calc_len(t, dir, 2, 34, &ce_len, *ce);
        if (ret < 0) 
            return ret;
        dirent_len += ret;
        *ce += ce_len;
    }

#ifdef Libisofs_dir_rec_size_checK

    dir_rec_size_check(t, NULL, NULL, -1, (off_t) -1, (uint32_t) dirent_len,
                       1);

#endif /* Libisofs_dir_rec_size_checK */

    len += dirent_len;

    for (i = 0; i < dir->info.dir->nchildren; ++i) {
        size_t remaining;
        int section, nsections;
        Ecma119Node *child = dir->info.dir->children[i];

        nsections = (child->type == ECMA119_FILE) ? child->info.file->nsections : 1;
        for (section = 0; section < nsections; ++section) {
            dirent_len = calc_dirent_len(t, child);
            if (t->opts->rockridge) {
                ret = rrip_calc_len(t, child, 0, dirent_len, &ce_len, *ce);
                if (ret < 0) 
                    return ret;
                dirent_len += ret;
                *ce += ce_len;
            }
            remaining = BLOCK_SIZE - (len % BLOCK_SIZE);
            if (dirent_len > remaining) {
                /* child directory entry doesn't fit on block */
                len += remaining + dirent_len;
            } else {
                len += dirent_len;
            }

#ifdef Libisofs_dir_rec_size_checK

            dir_rec_size_check(t, dir, child, -1, (off_t) -1,
                               (uint32_t) dirent_len, 1);

#endif /* Libisofs_dir_rec_size_checK */

        }
    }

    /*
     * The size of a dir is always a multiple of block size, as we must add
     * the size of the unused space after the last directory record
     * (ECMA-119, 6.8.1.3)
     */
    len = ROUND_UP(len, BLOCK_SIZE);

    /* cache the len */
    dir->info.dir->len = len;
    return len;
}

static
int calc_dir_pos(Ecma119Image *t, Ecma119Node *dir)
{
    size_t i, len;
    ssize_t ret;
    size_t ce_len = 0;

    t->ndirs++;
    dir->info.dir->block = t->curblock;
    ret = calc_dir_size(t, dir, &ce_len);
    if (ret < 0)
        return (int) ret;
    len = ret;
    t->curblock += DIV_UP(len, BLOCK_SIZE);
    if (t->opts->rockridge) {
        t->curblock += DIV_UP(ce_len, BLOCK_SIZE);

#ifdef Libisofs_dir_rec_size_checK

        /* Record ce_len */
        if (ce_len > 0xffffffff) {
            iso_msg_submit(-1, ISO_INSANE_CE_SIZE, 0,
            "Continuation area size of 4 GiB or more predicted : LBA %lu '%s'",
                           (unsigned long) t->curblock,
                           ecma119_path_not_threadsafe(dir->parent, dir, -1));
            ce_len= 0xffffffff;
        }
        dir_rec_size_check(t, dir->parent, dir, -1, (off_t) -1,
                           (uint32_t) ce_len, 6);

#endif /* Libisofs_dir_rec_size_checK */

    }
    for (i = 0; i < dir->info.dir->nchildren; i++) {
        Ecma119Node *child = dir->info.dir->children[i];
        if (child->type == ECMA119_DIR) {
            ret = calc_dir_pos(t, child);
            if (ret < 0)
                return (int) ret;
        }
    }
    return ISO_SUCCESS;
}

/**
 * Compute the length of the path table, in bytes.
 */
static
uint32_t calc_path_table_size(Ecma119Node *dir)
{
    uint32_t size;
    size_t i;

    /* size of path table for this entry */
    size = 8;
    size += dir->iso_name ? strlen(dir->iso_name) : 1;
    size += (size % 2);

    /* and recurse */
    for (i = 0; i < dir->info.dir->nchildren; i++) {
        Ecma119Node *child = dir->info.dir->children[i];
        if (child->type == ECMA119_DIR) {
            size += calc_path_table_size(child);
        }
    }
    return size;
}

static
int ecma119_writer_compute_data_blocks(IsoImageWriter *writer)
{
    Ecma119Image *target;
    uint32_t path_table_size;
    size_t ndirs;
    int ret;

    if (writer == NULL) {
        return ISO_ASSERT_FAILURE;
    }

    target = writer->target;

#ifdef Libisofs_dir_rec_size_checK

    /* Initialize directory size check facility */
    dir_rec_size_check(target, NULL, NULL, -1, (off_t) -1, (uint32_t) 0, 0);

#endif /* Libisofs_dir_rec_size_checK */

    /* compute position of directories */
    iso_msg_debug(target->image->id, "Computing position of dir structure");
    target->ndirs = 0;
    ret = calc_dir_pos(target, target->root);
    if (ret < 0)
        return ret;

    /* compute length of pathlist */
    iso_msg_debug(target->image->id, "Computing length of pathlist");
    path_table_size = calc_path_table_size(target->root);

    /* compute location for path tables */
    target->l_path_table_pos = target->curblock;
    target->curblock += DIV_UP(path_table_size, BLOCK_SIZE);
    target->m_path_table_pos = target->curblock;
    target->curblock += DIV_UP(path_table_size, BLOCK_SIZE);
    target->path_table_size = path_table_size;

    if (target->opts->md5_session_checksum) {
        /* Account for first tree checksum tag */
        target->checksum_tree_tag_pos = target->curblock;
        target->curblock++;
    }

    if (target->opts->partition_offset > 0) {
        /* Take into respect the second directory tree */
        ndirs = target->ndirs;
        target->ndirs = 0;
        ret = calc_dir_pos(target, target->partition_root);
        if (ret < 0)
            return ret;
        if (target->ndirs != ndirs) {
            iso_msg_submit(target->image->id, ISO_ASSERT_FAILURE, 0,
                    "Number of directories differs in ECMA-119 partiton_tree");
            return ISO_ASSERT_FAILURE;
	}
        /* Take into respect the second set of path tables */
        path_table_size = calc_path_table_size(target->partition_root);
        target->partition_l_table_pos = target->curblock;
        target->curblock += DIV_UP(path_table_size, BLOCK_SIZE);
        target->partition_m_table_pos = target->curblock;
        target->curblock += DIV_UP(path_table_size, BLOCK_SIZE);

        /* >>> TWINTREE: >>> For now, checksum tags are only for the
                             image start and not for the partition */;

    }

    target->tree_end_block = target->curblock;

    return ISO_SUCCESS;
}

/**
 * Write a single directory record (ECMA-119, 9.1)
 *
 * @param t
 *     the overall control object
 * @param check_dir
 *     the directory node which shall be reported as parent of node or file_id
 *     in a possible call to dir_rec_size_check()
 * @param node
 *     the node which shall be represented by the directory record
 * @param file_id
 *     if >= 0, special file identifier to override node->iso_name:
 *       0="." , 1="..". Both written with len_fi 1.
 * @param len_fi
 *     Computed length of the file identifier. Total size of the directory
 *     entry will be len + 33 + padding if needed (ECMA-119, 9.1.12)
 * @param info
 *     SUSP entries for the given directory record. It will be NULL for the
 *     root directory record in the PVD (ECMA-119, 8.4.18) (in order to
 *     distinguish it from the "." entry in the root directory)
 * @param extent
 *     Number of the extent in the file described by this record
 * @param flag
 *     bit0= This is a root directory entry in a volume descriptor.
 *           Do not compare by dir_rec_size_check.
 */
static
void write_one_dir_record(Ecma119Image *t, Ecma119Node *check_dir,
                          Ecma119Node *node,
                          int file_id, uint8_t *buf, size_t len_fi,
                          struct susp_info *info, int extent, int flag)
{
    uint32_t len;
    uint32_t block;
    uint8_t len_dr; /*< size of dir entry without SUSP fields */
    int multi_extend = 0, ret;
    uint8_t *name, uint8_file_id;

#ifdef Libisofs_dir_rec_size_checK
    uint32_t written_size = 0;
#endif

    struct ecma119_dir_record *rec = (struct ecma119_dir_record*)buf;
    IsoNode *iso;

    if (file_id >= 0) {
        uint8_file_id = (file_id & 255);
        name = &uint8_file_id;
        len_fi = 1;
    } else {
        name = (uint8_t*) node->iso_name;
    }

    len_dr = 33 + len_fi + ((len_fi % 2) ? 0 : 1);

    memcpy(rec->file_id, name, len_fi);

    if (need_version_number(t->opts, node->type)) {
        len_dr += 2;
        rec->file_id[len_fi++] = ';';
        rec->file_id[len_fi++] = '1';
    }

    /*
     * For ".." entry we need to write the parent info!
     */
    if (file_id == 1 && node->parent)
        node = node->parent;

    if (node->type == ECMA119_DIR) {
        /* use the cached length */
        len = node->info.dir->len;
        block = node->info.dir->block;
    } else if (node->type == ECMA119_FILE) {
        block = node->info.file->sections[extent].block;
        len = node->info.file->sections[extent].size;
        multi_extend = (node->info.file->nsections - 1 == extent) ? 0 : 1;
    } else {
        /*
         * for nodes other than files and dirs, we set len to 0, and
         * the content block address to a dummy value.
         */
        len = 0;
        if (! t->opts->old_empty)
            block = t->empty_file_block;
        else
            block = 0;
    }

    rec->len_dr[0] = len_dr + (info != NULL ? info->suf_len : 0);
    iso_bb(rec->block, block - t->eff_partition_offset, 4);
    iso_bb(rec->length, len, 4);
    if (t->opts->dir_rec_mtime & 1) {
        iso= node->node;
        iso_datetime_7(rec->recording_time,
                       t->replace_timestamps ? t->timestamp : iso->mtime,
                       t->opts->always_gmt);
    } else {
        iso_datetime_7(rec->recording_time, t->now, t->opts->always_gmt);
    }
    rec->flags[0] = ((node->type == ECMA119_DIR) ? 2 : 0) | (multi_extend ? 0x80 : 0);
    iso_bb(rec->vol_seq_number, (uint32_t) 1, 2);
    rec->len_fi[0] = len_fi;

#ifdef Libisofs_dir_rec_size_checK
    written_size = len_dr;
#endif

    /*
     * and finally write the SUSP fields.
     */
    if (info != NULL) {
        ret= rrip_write_susp_fields(t, info, buf + len_dr);
        if (ret < 0) {

            /* >>> ??? how to react on failure of susp_update_CE_sizes ? */;

#ifdef Libisofs_dir_rec_size_checK

        } else {
            written_size += ret;

#endif

        }
    }

#ifdef Libisofs_dir_rec_size_checK

    /* Check written record size against calculated size */
    written_size += (written_size % 2);
    if (!(flag & 1))
        dir_rec_size_check(t, check_dir, node, file_id,
             t->bytes_written + (off_t) t->opts->ms_block * (off_t) BLOCK_SIZE,
                           written_size, 2);

#endif /* Libisofs_dir_rec_size_checK */

}

/* (Actually this can produce any relaxed PVD attribute)
*/
static
char *get_relaxed_vol_id(Ecma119Image *t, const char *name)
{
    int ret;
    if (name == NULL) {
        return NULL;
    }
    if (strcmp(t->input_charset, t->output_charset)) {
        /* charset conversion needed */
        char *str;
        ret = strconv(name, t->input_charset, t->output_charset, &str);
        if (ret == ISO_SUCCESS) {
            return str;
        }
        iso_msg_submit(t->image->id, ISO_FILENAME_WRONG_CHARSET, ret,
                  "Charset conversion error. Cannot convert from %s to %s",
                  t->input_charset, t->output_charset);
    }
    return strdup(name);
}

/**
 * Set the timestamps of Primary, Supplementary, or Enhanced Volume Descriptor.
 */
void ecma119_set_voldescr_times(IsoImageWriter *writer,
                                struct ecma119_pri_vol_desc *vol)
{
    Ecma119Image *t = writer->target;
    IsoWriteOpts *o;
    int i;

    o = t->opts;
    if (o->vol_uuid[0]) {
        for(i = 0; i < 16; i++)
            if(o->vol_uuid[i] < '0' || o->vol_uuid[i] > '9')
        break;
            else
                vol->vol_creation_time[i] = o->vol_uuid[i];
       for(; i < 16; i++)
           vol->vol_creation_time[i] = '1';
       vol->vol_creation_time[16] = 0;
    } else if (o->vol_creation_time > 0)
        iso_datetime_17(vol->vol_creation_time, o->vol_creation_time,
                        o->always_gmt);
    else
        iso_datetime_17(vol->vol_creation_time, t->now, o->always_gmt);

    if (o->vol_uuid[0]) {
        for(i = 0; i < 16; i++)
            if(o->vol_uuid[i] < '0' || o->vol_uuid[i] > '9')
        break;
            else
                vol->vol_modification_time[i] = o->vol_uuid[i];
       for(; i < 16; i++)
           vol->vol_modification_time[i] = '1';
       vol->vol_modification_time[16] = 0;
    } else if (o->vol_modification_time > 0)
        iso_datetime_17(vol->vol_modification_time, o->vol_modification_time,
                        o->always_gmt);
    else
        iso_datetime_17(vol->vol_modification_time, t->now, o->always_gmt);

    if (o->vol_expiration_time > 0) {
        iso_datetime_17(vol->vol_expiration_time, o->vol_expiration_time,
                        o->always_gmt);
    } else {
       for(i = 0; i < 16; i++)
           vol->vol_expiration_time[i] = '0';
       vol->vol_expiration_time[16] = 0;
    }

    if (o->vol_effective_time > 0) {
        iso_datetime_17(vol->vol_effective_time, o->vol_effective_time,
                        o->always_gmt);
    } else {
       for(i = 0; i < 16; i++)
           vol->vol_effective_time[i] = '0';
       vol->vol_effective_time[16] = 0;
    }
}

/**
 * Write the Primary Volume Descriptor (ECMA-119, 8.4)
 */
static
int ecma119_writer_write_vol_desc(IsoImageWriter *writer)
{
    IsoImage *image;
    Ecma119Image *t;
    struct ecma119_pri_vol_desc vol;
    char *vol_id, *pub_id, *data_id, *volset_id;
    char *system_id, *application_id, *copyright_file_id;
    char *abstract_file_id, *biblio_file_id;

    if (writer == NULL) {
        return ISO_ASSERT_FAILURE;
    }

    t = writer->target;
    image = t->image;

    iso_msg_debug(image->id, "Write Primary Volume Descriptor");

    memset(&vol, 0, sizeof(struct ecma119_pri_vol_desc));

    if (t->opts->relaxed_vol_atts) {
        vol_id = get_relaxed_vol_id(t, image->volume_id_pvd);
        volset_id = get_relaxed_vol_id(t, image->volset_id);
    } else {
        str2d_char(t->input_charset, image->volume_id_pvd, &vol_id);
        str2d_char(t->input_charset, image->volset_id, &volset_id);
    }
    if (t->opts->relaxed_nonvol_atts) {
        pub_id = get_relaxed_vol_id(t, image->publisher_id);
        data_id = get_relaxed_vol_id(t, image->data_preparer_id);
        system_id = get_relaxed_vol_id(t, image->system_id);
        application_id = get_relaxed_vol_id(t, image->application_id);
        copyright_file_id = get_relaxed_vol_id(t, image->copyright_file_id);
        abstract_file_id = get_relaxed_vol_id(t, image->abstract_file_id);
        biblio_file_id = get_relaxed_vol_id(t, image->biblio_file_id);
    } else {
        str2a_char(t->input_charset, image->publisher_id, &pub_id);
        str2a_char(t->input_charset, image->data_preparer_id, &data_id);
        str2a_char(t->input_charset, image->system_id, &system_id);
        str2a_char(t->input_charset, image->application_id, &application_id);
        str2d_sep_char(t->input_charset, image->copyright_file_id,
                       &copyright_file_id);
        str2d_sep_char(t->input_charset, image->abstract_file_id,
                       &abstract_file_id);
        str2d_sep_char(t->input_charset, image->biblio_file_id,
                       &biblio_file_id);
    }
    vol.vol_desc_type[0] = 1;
    memcpy(vol.std_identifier, "CD001", 5);
    vol.vol_desc_version[0] = 1;
    strncpy_pad((char*)vol.system_id, system_id, 32);
    strncpy_pad((char*)vol.volume_id, vol_id, 32);
    if (t->pvd_size_is_total_size && t->eff_partition_offset <= 0) {
        iso_bb(vol.vol_space_size, t->total_size / 2048, 4);
    } else {
        iso_bb(vol.vol_space_size,
               t->vol_space_size - t->eff_partition_offset, 4);
    }
    iso_bb(vol.vol_set_size, (uint32_t) 1, 2);
    iso_bb(vol.vol_seq_number, (uint32_t) 1, 2);
    iso_bb(vol.block_size, (uint32_t) BLOCK_SIZE, 2);
    iso_bb(vol.path_table_size, t->path_table_size, 4);

    if (t->eff_partition_offset > 0) {
        /* Point to second tables and second root */
        iso_lsb(vol.l_path_table_pos,
                t->partition_l_table_pos - t->eff_partition_offset, 4);
        iso_msb(vol.m_path_table_pos,
                t->partition_m_table_pos - t->eff_partition_offset, 4);
        write_one_dir_record(t, NULL, t->partition_root, 0,
                             vol.root_dir_record, 1, NULL, 0, 1);
    } else {
        iso_lsb(vol.l_path_table_pos, t->l_path_table_pos, 4);
        iso_msb(vol.m_path_table_pos, t->m_path_table_pos, 4);
        write_one_dir_record(t, NULL, t->root, 0, vol.root_dir_record, 1, NULL,
                             0, 1);
    }

    strncpy_pad((char*)vol.vol_set_id, volset_id, 128);
    strncpy_pad((char*)vol.publisher_id, pub_id, 128);
    strncpy_pad((char*)vol.data_prep_id, data_id, 128);

    strncpy_pad((char*)vol.application_id, application_id, 128);
    strncpy_pad((char*)vol.copyright_file_id, copyright_file_id, 37);
    strncpy_pad((char*)vol.abstract_file_id, abstract_file_id, 37);
    strncpy_pad((char*)vol.bibliographic_file_id, biblio_file_id, 37);

    ecma119_set_voldescr_times(writer, &vol);
    vol.file_structure_version[0] = 1;

    memcpy(vol.app_use, image->application_use, 512);

    free(vol_id);
    free(volset_id);
    free(pub_id);
    free(data_id);
    free(system_id);
    free(application_id);
    free(copyright_file_id);
    free(abstract_file_id);
    free(biblio_file_id);

    /* Finally write the Volume Descriptor */
    return iso_write(t, &vol, sizeof(struct ecma119_pri_vol_desc));
}

static
int write_one_dir(Ecma119Image *t, Ecma119Node *dir, Ecma119Node *parent)
{
    int ret;
    uint8_t *buffer = NULL;
    size_t i;
    size_t fi_len, len;
    struct susp_info info;

#ifdef Libisofs_dir_rec_size_checK
    off_t bw_mem;
#endif /* Libisofs_dir_rec_size_checK */

    /* buf will point to current write position on buffer */
    uint8_t *buf;

    LIBISO_ALLOC_MEM(buffer, uint8_t, BLOCK_SIZE);
    buf = buffer;

    /*
     * set susp_info to 0's, this way code for both plain ECMA-119 and
     * RR is very similar
     */
    memset(&info, 0, sizeof(struct susp_info));
    if (t->opts->rockridge) {
        /* initialize the ce_block, it might be needed */
        info.ce_block = dir->info.dir->block + DIV_UP(dir->info.dir->len,
                                                      BLOCK_SIZE);
        info.ce_susp_fields = NULL;
    }

    /* write the "." and ".." entries first */
    if (t->opts->rockridge) {
        ret = rrip_get_susp_fields(t, dir, 1, 34, &info);
        if (ret < 0) {
            goto ex;
        }
    }
    len = 34 + info.suf_len;
    write_one_dir_record(t, dir, dir, 0, buf, 1, &info, 0, 0);
    buf += len;

    if (t->opts->rockridge) {
        ret = rrip_get_susp_fields(t, dir, 2, 34, &info);
        if (ret < 0) {
            goto ex;
        }
    }
    len = 34 + info.suf_len;

    /* (The third argument will be changed in write_one_dir_record()
        to dir->parent because of type==1)
    */
    write_one_dir_record(t, dir, dir, 1, buf, 1, &info, 0, 0);
    buf += len;

    for (i = 0; i < dir->info.dir->nchildren; i++) {
        int section, nsections;
        Ecma119Node *child = dir->info.dir->children[i];

        fi_len = strlen(child->iso_name);

        nsections = (child->type == ECMA119_FILE) ? child->info.file->nsections : 1;
        for (section = 0; section < nsections; ++section) {

            /* compute len of directory entry */
            len = fi_len + 33 + ((fi_len % 2) ? 0 : 1);
            if (need_version_number(t->opts, child->type)) {
                len += 2;
            }

            /* get the SUSP fields if rockridge is enabled */
            if (t->opts->rockridge) {
                ret = rrip_get_susp_fields(t, child, 0, len, &info);
                if (ret < 0) {
                    goto ex;
                }
                len += info.suf_len;
            }

            if ( (buf + len - buffer) > BLOCK_SIZE) {
                /* dir doesn't fit in current block */
                ret = iso_write(t, buffer, BLOCK_SIZE);
                if (ret < 0) {
                    goto ex;
                }
                memset(buffer, 0, BLOCK_SIZE);
                buf = buffer;
            }
            /* write the directory entry in any case */
            write_one_dir_record(t, dir, child, -1, buf, fi_len, &info,
                                 section, 0);
            buf += len;
        }
    }

    /* write the last block */
    ret = iso_write(t, buffer, BLOCK_SIZE);
    if (ret < 0) {
        goto ex;
    }

    /* write the Continuation Area if needed */

#ifdef Libisofs_dir_rec_size_checK
    bw_mem = t->bytes_written + t->opts->ms_block * BLOCK_SIZE;
#endif /* Libisofs_dir_rec_size_checK */

    if (info.ce_len > 0)
        ret = rrip_write_ce_fields(t, &info);

#ifdef Libisofs_dir_rec_size_checK

    if (info.ce_written_len > 0xffffffff) {
        iso_msg_submit(-1, ISO_INSANE_CE_SIZE, 0,
            "Continuation area size of 4 GiB or more written : LBA %lu '%s'",
                       (unsigned long) bw_mem / BLOCK_SIZE,
                       ecma119_path_not_threadsafe(dir->parent, dir, -1));
        info.ce_written_len= 0xffffffff;
    }
    dir_rec_size_check(t, dir->parent, dir, -1, bw_mem,
                       (uint32_t) info.ce_written_len, 7);

#endif /* Libisofs_dir_rec_size_checK */

ex:;
    LIBISO_FREE_MEM(buffer);
    return ret;
}

static
int write_dirs(Ecma119Image *t, Ecma119Node *root, Ecma119Node *parent)
{
    int ret;
    size_t i;

    /* write all directory entries for this dir */
    ret = write_one_dir(t, root, parent);
    if (ret < 0) {
        return ret;
    }

    /* recurse */
    for (i = 0; i < root->info.dir->nchildren; i++) {
        Ecma119Node *child = root->info.dir->children[i];
        if (child->type == ECMA119_DIR) {
            ret = write_dirs(t, child, root);
            if (ret < 0) {
                return ret;
            }
        }
    }
    return ISO_SUCCESS;
}

static
int write_path_table(Ecma119Image *t, Ecma119Node **pathlist, int l_type)
{
    size_t i, len;
    uint8_t buf[64]; /* 64 is just a convenient size larger enough */
    struct ecma119_path_table_record *rec;
    void (*write_int)(uint8_t*, uint32_t, int);
    Ecma119Node *dir;
    uint32_t path_table_size;
    int parent = 0;
    int ret= ISO_SUCCESS;
    uint8_t *zeros = NULL;

    path_table_size = 0;
    write_int = l_type ? iso_lsb : iso_msb;

    for (i = 0; i < t->ndirs; i++) {
        dir = pathlist[i];

        /* find the index of the parent in the table */
        while ((i) && pathlist[parent] != dir->parent) {
            parent++;
        }

        /* write the Path Table Record (ECMA-119, 9.4) */
        memset(buf, 0, 64);
        rec = (struct ecma119_path_table_record*) buf;
        rec->len_di[0] = dir->parent ? (uint8_t) strlen(dir->iso_name) : 1;
        rec->len_xa[0] = 0;
        write_int(rec->block, dir->info.dir->block - t->eff_partition_offset,
                  4);
        write_int(rec->parent, parent + 1, 2);
        if (dir->parent) {
            memcpy(rec->dir_id, dir->iso_name, rec->len_di[0]);
        }
        len = 8 + rec->len_di[0] + (rec->len_di[0] % 2);
        ret = iso_write(t, buf, len);
        if (ret < 0) {
            /* error */
            goto ex;
        }
        path_table_size += len;
    }

    /* we need to fill the last block with zeros */
    path_table_size %= BLOCK_SIZE;
    if (path_table_size) {
        len = BLOCK_SIZE - path_table_size;
        LIBISO_ALLOC_MEM(zeros, uint8_t, len);
        ret = iso_write(t, zeros, len);
    }
ex:;
    LIBISO_FREE_MEM(zeros);
    return ret;
}

static
int write_path_tables(Ecma119Image *t)
{
    int ret;
    size_t i, j, cur;
    Ecma119Node **pathlist;

    iso_msg_debug(t->image->id, "Writing ISO Path tables");

    /* allocate temporal pathlist */
    pathlist = malloc(sizeof(void*) * t->ndirs);
    if (pathlist == NULL) {
        return ISO_OUT_OF_MEM;
    }

    if (t->eff_partition_offset > 0) {
        pathlist[0] = t->partition_root;
    } else {
        pathlist[0] = t->root;
    }
    cur = 1;

    for (i = 0; i < t->ndirs; i++) {
        Ecma119Node *dir = pathlist[i];
        for (j = 0; j < dir->info.dir->nchildren; j++) {
            Ecma119Node *child = dir->info.dir->children[j];
            if (child->type == ECMA119_DIR) {
                pathlist[cur++] = child;
            }
        }
    }

    /* Write L Path Table */
    ret = write_path_table(t, pathlist, 1);
    if (ret < 0) {
        goto write_path_tables_exit;
    }

    /* Write L Path Table */
    ret = write_path_table(t, pathlist, 0);

    write_path_tables_exit: ;
    free(pathlist);
    return ret;
}


/**
 * Write the directory structure (ECMA-119, 6.8) and the L and M
 * Path Tables (ECMA-119, 6.9).
 */
static
int ecma119_writer_write_dirs(IsoImageWriter *writer)
{
    int ret, isofs_ca_changed = 0;
    Ecma119Image *t;
    Ecma119Node *root;
    char *value = NULL;
    size_t value_length;

    t = writer->target;

    /* first of all, we write the directory structure */
    if (t->eff_partition_offset > 0) {
        root = t->partition_root;

        if ((t->opts->md5_file_checksums & 1) ||
            t->opts->md5_session_checksum) {
            /* Take into respect the address offset in "isofs.ca" */
            ret = iso_node_lookup_attr((IsoNode *) t->image->root, "isofs.ca",
                                       &value_length, &value, 0);
            if (value != NULL)
                free(value);
            if (ret == 1 && value_length == 20) {
                /* "isofs.ca" does really exist and has the expected length */
                ret = iso_root_set_isofsca((IsoNode *) t->image->root,
                             t->checksum_range_start - t->eff_partition_offset,
                             t->checksum_array_pos - t->eff_partition_offset,
                             t->checksum_idx_counter + 2, 16, "MD5", 0);
                if (ret < 0)
                    return ret;
                isofs_ca_changed = 1;
            }
        }
    } else {
        root = t->root;
    }
    ret = write_dirs(t, root, root);
    if (ret < 0) {
        return ret;
    }

    /* and write the path tables */
    ret = write_path_tables(t);
    if (ret < 0)
        return ret;
    if (t->opts->md5_session_checksum) {
        /* Write tree checksum tag */
        if (t->eff_partition_offset > 0) {
            /* >>> TWINTREE: >>> For now, tags are only for the
                                 image start and not for the partition */;
        } else {
            ret = iso_md5_write_tag(t, 3);
        }
    }
    if (isofs_ca_changed) {
        /* Restore old addresses offset in "isofs.ca" of root node */
        ret = iso_root_set_isofsca((IsoNode *) t->image->root,
                             t->checksum_range_start,
                             t->checksum_array_pos,
                             t->checksum_idx_counter + 2, 16, "MD5", 0);
        if (ret < 0)
            return ret;
    }
    return ret;
}

/**
 * Write directory structure and Path Tables of the ECMA-119 tree.
 * This happens eventually a second time for the duplicates which use
 * addresses with partition offset.
 */
static
int ecma119_writer_write_data(IsoImageWriter *writer)
{
    int ret;
    Ecma119Image *t = NULL;
    uint32_t curblock;
    char *msg = NULL;

    if (writer == NULL)
        {ret = ISO_ASSERT_FAILURE; goto ex;}

    t = writer->target;

    ret = ecma119_writer_write_dirs(writer);
    if (ret < 0)
        goto ex;

    if (t->opts->partition_offset > 0) {
        t->eff_partition_offset = t->opts->partition_offset;
        ret = ecma119_writer_write_dirs(writer);
        t->eff_partition_offset = 0;
        if (ret < 0) 
            goto ex;
    }

    curblock = (t->bytes_written / 2048) + t->opts->ms_block;
    if (curblock != t->tree_end_block) {
        LIBISO_ALLOC_MEM(msg, char, 100);
        sprintf(msg,
                "Calculated and written ECMA-119 tree end differ: %lu <> %lu",
                (unsigned long) t->tree_end_block,
                (unsigned long) curblock);
        iso_msgs_submit(0, msg, 0, "WARNING", 0);

        t->tree_end_block = 1;/* Mark for harsher reaction at end of writing */
    }
    ret = ISO_SUCCESS;
ex:;

#ifdef Libisofs_dir_rec_size_checK

    if (t != NULL) {
        /* Report number of mismatches */
        dir_rec_size_check(t, NULL, NULL, -1, (off_t) -1, (uint32_t) 0, 3);
        /* Free allocated memory */
        dir_rec_size_check(t, NULL, NULL, -1, (off_t) -1, (uint32_t) 0, 5);
    }

#endif /* Libisofs_dir_rec_size_checK */

    LIBISO_FREE_MEM(msg);
    return ret;
}

static
int ecma119_writer_free_data(IsoImageWriter *writer)
{
    /* nothing to do */
    return ISO_SUCCESS;
}

int ecma119_writer_create(Ecma119Image *target)
{
    int ret;
    IsoImageWriter *writer;

    writer = malloc(sizeof(IsoImageWriter));
    if (writer == NULL) {
        return ISO_OUT_OF_MEM;
    }

    writer->compute_data_blocks = ecma119_writer_compute_data_blocks;
    writer->write_vol_desc = ecma119_writer_write_vol_desc;
    writer->write_data = ecma119_writer_write_data;
    writer->free_data = ecma119_writer_free_data;
    writer->data = NULL;
    writer->target = target;

    /* add this writer to image */
    target->writers[target->nwriters++] = writer;

    iso_msg_debug(target->image->id, "Creating low level ECMA-119 tree...");
    ret = ecma119_tree_create(target);
    if (ret < 0) {
        return ret;
    }

    if (target->image->sparc_core_node != NULL) {
        /* Obtain a duplicate of the IsoFile's Ecma119Node->file */
        ret = iso_file_src_create(target, target->image->sparc_core_node,
                                  &target->sparc_core_src);
        if (ret < 0)
            return ret;
    }

    if(target->opts->partition_offset > 0) {
        /* Create second tree */
        target->eff_partition_offset = target->opts->partition_offset;
        ret = ecma119_tree_create(target);
        target->eff_partition_offset = 0;
        if (ret < 0)
            return ret;
    }

    /* we need the volume descriptor */
    target->curblock++;
    return ISO_SUCCESS;
}

/** compute how many padding bytes are needed */
static
int mspad_writer_compute_data_blocks(IsoImageWriter *writer)
{
    Ecma119Image *target;
    uint32_t min_size;

    if (writer == NULL) {
        return ISO_ASSERT_FAILURE;
    }
    target = writer->target;
    min_size = 32 + target->opts->partition_offset;
    if (target->curblock < min_size) {
        target->mspad_blocks = min_size - target->curblock;
        target->curblock = min_size;
    }
    return ISO_SUCCESS;
}

static
int mspad_writer_write_vol_desc(IsoImageWriter *writer)
{
    /* nothing to do */
    return ISO_SUCCESS;
}

static
int mspad_writer_write_data(IsoImageWriter *writer)
{
    int ret;
    Ecma119Image *t;
    uint8_t *pad = NULL;
    size_t i;

    if (writer == NULL) {
        {ret = ISO_ASSERT_FAILURE; goto ex;}
    }
    t = writer->target;

    if (t->mspad_blocks == 0) {
        {ret = ISO_SUCCESS; goto ex;}
    }

    LIBISO_ALLOC_MEM(pad, uint8_t, BLOCK_SIZE);
    for (i = 0; i < t->mspad_blocks; ++i) {
        ret = iso_write(t, pad, BLOCK_SIZE);
        if (ret < 0) {
            goto ex;
        }
    }

    ret = ISO_SUCCESS;
ex:;
    LIBISO_FREE_MEM(pad);
    return ret;
}

static
int mspad_writer_free_data(IsoImageWriter *writer)
{
    /* nothing to do */
    return ISO_SUCCESS;
}

static
int mspad_writer_create(Ecma119Image *target)
{
    IsoImageWriter *writer;

    writer = malloc(sizeof(IsoImageWriter));
    if (writer == NULL) {
        return ISO_OUT_OF_MEM;
    }

    writer->compute_data_blocks = mspad_writer_compute_data_blocks;
    writer->write_vol_desc = mspad_writer_write_vol_desc;
    writer->write_data = mspad_writer_write_data;
    writer->free_data = mspad_writer_free_data;
    writer->data = NULL;
    writer->target = target;

    /* add this writer to image */
    target->writers[target->nwriters++] = writer;
    return ISO_SUCCESS;
}


/** ----- Zero padding writer ----- */

struct iso_zero_writer_data_struct {
    uint32_t num_blocks;
};

static
int zero_writer_compute_data_blocks(IsoImageWriter *writer)
{
    Ecma119Image *target;
    struct iso_zero_writer_data_struct *data;

    if (writer == NULL)
        return ISO_ASSERT_FAILURE;
    target = writer->target;
    data = (struct iso_zero_writer_data_struct *) writer->data;
    target->curblock += data->num_blocks;
    return ISO_SUCCESS;
}

static
int zero_writer_write_vol_desc(IsoImageWriter *writer)
{
    /* nothing to do */
    return ISO_SUCCESS;
}

static
int zero_writer_write_data(IsoImageWriter *writer)
{
    int ret;
    Ecma119Image *t;
    struct iso_zero_writer_data_struct *data;
    uint8_t *pad = NULL;
    size_t i;

    if (writer == NULL)
        {ret = ISO_ASSERT_FAILURE; goto ex;}
    t = writer->target;
    data = (struct iso_zero_writer_data_struct *) writer->data;

    if (data->num_blocks == 0) 
        {ret = ISO_SUCCESS; goto ex;}
    LIBISO_ALLOC_MEM(pad, uint8_t, BLOCK_SIZE);
    for (i = 0; i < data->num_blocks; ++i) {
        ret = iso_write(t, pad, BLOCK_SIZE);
        if (ret < 0) 
            goto ex;
    }
    ret = ISO_SUCCESS;
ex:;
    LIBISO_FREE_MEM(pad);
    return ret;
}

static
int zero_writer_free_data(IsoImageWriter *writer)
{
    if (writer == NULL)
        return ISO_SUCCESS;
    if (writer->data == NULL)
        return ISO_SUCCESS;
    free(writer->data);
    writer->data = NULL;
    return ISO_SUCCESS;
}

static
int tail_writer_compute_data_blocks(IsoImageWriter *writer)
{
    int ret;
    Ecma119Image *target;

#ifdef Libisofs_part_align_writeR

    target = writer->target;

#else

    struct iso_zero_writer_data_struct *data;
    char msg[80];

    target = writer->target;
    ret = iso_align_isohybrid(target, 0);
    if (ret < 0)
        return ret;
    data = (struct iso_zero_writer_data_struct *) writer->data;
    if (data->num_blocks != target->opts->tail_blocks) {
        sprintf(msg, "Aligned image size to cylinder size by %d blocks",
                     target->opts->tail_blocks - data->num_blocks);
        iso_msgs_submit(0, msg, 0, "NOTE", 0);
        data->num_blocks = target->opts->tail_blocks;
    }

#endif /* ! Libisofs_part_align_writeR */

    if (target->opts->tail_blocks <= 0)
        return ISO_SUCCESS;
    ret = zero_writer_compute_data_blocks(writer);
    return ret;
}

static
int part_align_writer_compute_data_blocks(IsoImageWriter *writer)
{
    int ret;
    Ecma119Image *target;
    struct iso_zero_writer_data_struct *data;
    char msg[80];

    target = writer->target;

    /* Default setting in case no alignment is needed */
    target->alignment_end_block = target->curblock;

    ret = iso_align_isohybrid(target, 0);
    if (ret < 0)
        return ret;
    data = (struct iso_zero_writer_data_struct *) writer->data;
    if (target->part_align_blocks != 0) {
        sprintf(msg, "Aligned image size to cylinder size by %d blocks",
                     target->part_align_blocks);
        iso_msgs_submit(0, msg, 0, "NOTE", 0);
        data->num_blocks = target->part_align_blocks;
    }
    if (target->part_align_blocks <= 0)
        return ISO_SUCCESS;
    ret = zero_writer_compute_data_blocks(writer);
    target->alignment_end_block = target->curblock;
    return ret;
}

/*
  @param flag bit0-3= compute_data_blocks mode:
                      0= zero_writer_compute_data_blocks
                      1= tail_writer_compute_data_blocks
                      2= part_align_writer_compute_data_blocks
*/
static
int zero_writer_create(Ecma119Image *target, uint32_t num_blocks, int flag)
{
    IsoImageWriter *writer;
    struct iso_zero_writer_data_struct *data;
    int mode;

    writer = malloc(sizeof(IsoImageWriter));
    if (writer == NULL) {
        return ISO_OUT_OF_MEM;
    }
    data = calloc(1, sizeof(struct iso_zero_writer_data_struct));
    if (data == NULL) {
        free(writer);
        return ISO_OUT_OF_MEM;
    }
    data->num_blocks = num_blocks;

    mode = (flag & 15);
    if (mode == 1) {
        writer->compute_data_blocks = tail_writer_compute_data_blocks;
    } else if (mode == 2) {
        writer->compute_data_blocks = part_align_writer_compute_data_blocks;
    } else {
        writer->compute_data_blocks = zero_writer_compute_data_blocks;
    }
    writer->write_vol_desc = zero_writer_write_vol_desc;
    writer->write_data = zero_writer_write_data;
    writer->free_data = zero_writer_free_data;
    writer->data = data;
    writer->target = target;

    /* add this writer to image */
    target->writers[target->nwriters++] = writer;
    return ISO_SUCCESS;
}


/* @param flag bit0= restore preserved cx (else dispose them)
*/
static
int process_preserved_cx(IsoDir *dir, int flag)
{
    int ret, i;
    unsigned int cx_value;
    void *xipt;
    IsoNode *pos;

    pos = dir->children;
    for (pos = dir->children; pos != NULL; pos = pos->next) {
        if (pos->type == LIBISO_FILE) {
            if (flag & 1) {
                /* Restore preserved cx state of nodes */
                ret = iso_node_get_xinfo(pos, checksum_cx_xinfo_func,
                                         &xipt);
                if (ret == 1) {
                    /* xipt is an int disguised as void pointer */
                    cx_value = 0;
                    for (i = 0; i < 4; i++)
                        cx_value =
                            (cx_value << 8) | ((unsigned char *) &xipt)[i];
                    ret = iso_file_set_isofscx((IsoFile *) pos, cx_value, 0);
                    if (ret < 0)
                        return ret;
                } else if (ret == 0) {
                    /* Node had no cx before the write run. Delete cx. */
                    iso_file_set_isofscx((IsoFile *) pos, 0, 1);
                }
            }
            iso_node_remove_xinfo(pos, checksum_cx_xinfo_func);
        } else if (pos->type == LIBISO_DIR) {
            ret = process_preserved_cx((IsoDir *) pos, flag);
            if (ret != 0)
                return ret;
        }
    }
    return 0;
}

static
int transplant_checksum_buffer(Ecma119Image *target, int flag)
{
    /* Transplant checksum buffer from Ecma119Image to IsoImage */
    iso_image_set_checksums(target->image, target->checksum_buffer,
                            target->checksum_range_start,
                            target->checksum_array_pos,
                            target->checksum_idx_counter + 2, 0);
    target->checksum_buffer = NULL;
    target->checksum_idx_counter = 0;

    /* Delete recorded cx xinfo */
    process_preserved_cx(target->image->root, 0);

    return 1;
}

static
int write_vol_desc_terminator(Ecma119Image *target)
{
    int ret;
    uint8_t *buf = NULL;
    struct ecma119_vol_desc_terminator *vol;

    LIBISO_ALLOC_MEM(buf, uint8_t, BLOCK_SIZE);

    vol = (struct ecma119_vol_desc_terminator *) buf;

    vol->vol_desc_type[0] = 255;
    memcpy(vol->std_identifier, "CD001", 5);
    vol->vol_desc_version[0] = 1;

    ret = iso_write(target, buf, BLOCK_SIZE);
ex:
    LIBISO_FREE_MEM(buf);
    return ret;
}


/* @param flag bit0= initialize system area by target->opts_overwrite
               bit1= fifo is not yet draining. Inquire write_count from fifo.
               bit2= target->opts->ms_block is not counted in
                     target->total_size
*/
static
int write_head_part1(Ecma119Image *target, int *write_count, int flag)
{
    int res, i, ret;
    uint8_t *sa, *sa_local = NULL;
    IsoImageWriter *writer;
    size_t buffer_size = 0, buffer_free = 0, buffer_start_free = 0;

    if (target->sys_area_already_written) {
        LIBISO_ALLOC_MEM(sa_local, uint8_t, 16 * BLOCK_SIZE);
        sa = sa_local;
    } else {
        sa = target->sys_area_as_written;
        target->sys_area_already_written = 1;
    }
    iso_ring_buffer_get_buf_status(target->buffer, &buffer_size,
                                   &buffer_start_free);
    *write_count = 0;
    /* Write System Area (ECMA-119, 6.2.1) */
    if ((flag & 1) && target->opts_overwrite != NULL)
        memcpy(sa, target->opts_overwrite, 16 * BLOCK_SIZE);
    res = iso_write_system_area(target, sa, (flag & 4) >> 2);
    if (res < 0)
        goto write_error;
    res = iso_write(target, sa, 16 * BLOCK_SIZE);
    if (res < 0)
        goto write_error;
    *write_count = 16;

    /* write volume descriptors, one per writer */
    iso_msg_debug(target->image->id, "Write volume descriptors");
    for (i = 0; i < (int) target->nwriters; ++i) {
        writer = target->writers[i];
        res = writer->write_vol_desc(writer);
        if (res < 0) 
            goto write_error;
    }

    /* write Volume Descriptor Set Terminator (ECMA-119, 8.3) */
    res = write_vol_desc_terminator(target);
    if (res < 0)
        goto write_error;

    if(flag & 2) {
      iso_ring_buffer_get_buf_status(target->buffer, &buffer_size,
                                     &buffer_free);
      *write_count = ( buffer_start_free - buffer_free ) / BLOCK_SIZE;
    } else {
      *write_count = target->bytes_written / BLOCK_SIZE;
    }

    ret = ISO_SUCCESS;
    goto ex;

write_error:;
    ret = res;
    goto ex;

ex:
    LIBISO_FREE_MEM(sa_local);
    return ret;
}

static
int write_head_part2(Ecma119Image *target, int *write_count, int flag)
{
    int ret, i;
    uint8_t *buf = NULL;
    IsoImageWriter *writer;

    if (target->opts->partition_offset <= 0)
        {ret = ISO_SUCCESS; goto ex;}

    /* Write multi-session padding up to target->opts->partition_offset + 16 */
    LIBISO_ALLOC_MEM(buf, uint8_t, BLOCK_SIZE);
    for(; *write_count < (int) target->opts->partition_offset + 16;
        (*write_count)++) {
        ret = iso_write(target, buf, BLOCK_SIZE);
        if (ret < 0)
            goto ex;
    }

    /* Write volume descriptors subtracting
      target->partiton_offset from any LBA pointer.
    */
    target->eff_partition_offset = target->opts->partition_offset;
    target->pvd_size_is_total_size = 0;
    for (i = 0; i < (int) target->nwriters; ++i) {
        writer = target->writers[i];
        /* Not all writers have an entry in the partition volume descriptor set.
           It must be guaranteed that they write exactly one block.
        */

        /* >>> TWINTREE: Enhance ISO1999 writer and add it here */

        if(writer->write_vol_desc != ecma119_writer_write_vol_desc &&
           writer->write_vol_desc != joliet_writer_write_vol_desc)
    continue;
        ret = writer->write_vol_desc(writer);
        if (ret < 0)
            goto ex;
        (*write_count)++;
    }
    ret = write_vol_desc_terminator(target);
    if (ret < 0)
        goto ex;
    (*write_count)++;
    target->eff_partition_offset = 0;

    /* >>> TWINTREE: Postponed for now:
                     Write second superblock checksum tag */;

    ret = ISO_SUCCESS;
ex:;
    if (buf != NULL)
        free(buf);
    return ret;
}

static
int write_head_part(Ecma119Image *target, int flag)
{
    int res, write_count = 0;

    /* System area and volume descriptors */
    res = write_head_part1(target, &write_count, 4);
    if (res < 0)
        return res;

    /* Write superblock checksum tag */
    if (target->opts->md5_session_checksum && target->checksum_ctx != NULL) {
        res = iso_md5_write_tag(target, 2);
        if (res < 0)
            return res;
        write_count++;
    }

    /* Second set of system area and volume descriptors for partition_offset */
    res = write_head_part2(target, &write_count, 0);
    if (res < 0)
        return res;
    return ISO_SUCCESS;
}


/* Eventually end Jigdo Template Extraction */
static int finish_libjte(Ecma119Image *target)
{
#ifdef Libisofs_with_libjtE

    int ret;

    if (target->opts->libjte_handle != NULL) {
        ret = libjte_write_footer(target->opts->libjte_handle);
        if (ret <= 0) {
            iso_libjte_forward_msgs(target->opts->libjte_handle, 
                                target->image->id, ISO_LIBJTE_END_FAILED, 0);
            return ISO_LIBJTE_END_FAILED;
        }
    }

#endif /* Libisofs_with_libjtE */

    return 1;
}



struct iso_interval_zeroizer {
    int z_type; /* 0= $zero_start"-"$zero_end ,
                   1= "zero_mbrpt" , 2= "zero_gpt" , 3= "zero_apm"
                */
    off_t zero_start;
    off_t zero_end;
};

struct iso_interval_reader {

    /* Setup */

    IsoImage *image;

    char *path;

    int flags; /* bit0= imported_iso, else local_fs
               */

    off_t start_byte;
    off_t end_byte;

    struct iso_interval_zeroizer *zeroizers;
    int num_zeroizers;

    char *source_pt; /* This is a parasite pointer of path. Do not free */

    /* State information */

    int initialized;
    int is_block_aligned;
    off_t cur_block;
    int fd;
    uint8_t read_buf[BLOCK_SIZE];
    uint8_t *pending_read_pt;
    int pending_read_bytes;
    off_t read_count;
    int eof;

    int src_is_open;

    uint32_t apm_block_size;

};

static
int iso_ivr_next_comp(char *read_pt, char **next_pt, int flag)
{
    *next_pt = NULL;
    if (read_pt == NULL)
        return 0;
    *next_pt = strchr(read_pt, ':');
    if (*next_pt != NULL)
        (*next_pt)++;
    return 1;
}

/* @param flag bit1= end number requested, forward to iso_scanf_io_size()
*/
static
int iso_ivr_read_number(char *start_pt, char *end_pt, off_t *result, int flag)
{
    char txt[20];
    off_t num;

    if (end_pt - start_pt <= 0 || end_pt - start_pt > 16) {
        iso_msg_submit(-1, ISO_MALFORMED_READ_INTVL, 0,
    "Number text too short or too long in interval reader description string");
        return ISO_MALFORMED_READ_INTVL;
    }
    if (end_pt - start_pt > 0)
        strncpy(txt, start_pt, end_pt - start_pt);
    txt[end_pt - start_pt] = 0;

    num = iso_scanf_io_size(start_pt, 1 | (flag & 2));
    if (num < 0.0 || num > 281474976710655.0) {
        iso_msg_submit(-1, ISO_MALFORMED_READ_INTVL, 0,
      "Negative or overly large number in interval reader description string");
        return ISO_MALFORMED_READ_INTVL;
    }
    *result = num;
    return 1;
}

static
int iso_ivr_parse_interval(char *start_pt, char *end_pt, off_t *start_byte,
                           off_t *end_byte, int flag)
{
    int ret;
    char *m_pt;

    m_pt = strchr(start_pt, '-');
    if (m_pt == NULL) {
        iso_msg_submit(-1, ISO_MALFORMED_READ_INTVL, 0,
              "Malformed byte interval in interval reader description string");
        return ISO_MALFORMED_READ_INTVL;
    }
    ret = iso_ivr_read_number(start_pt, m_pt, start_byte, 0);
    if (ret < 0)
        return ret;
    ret = iso_ivr_read_number(m_pt + 1, end_pt - 1, end_byte, 2);
    if (ret < 0)
        return ret;
    return ISO_SUCCESS;
}

static
int iso_ivr_parse_zeroizers(struct iso_interval_reader *ivr,
                            char *pathpt, char *end_pt, int flag)
{
    int ret, num_zs = 1, idx, i;
    char *rpt, *cpt;

    ivr->num_zeroizers = 0;
    if (pathpt[0] == 0 || pathpt == end_pt)
        return ISO_SUCCESS;
    for(cpt = pathpt - 1; cpt != NULL && cpt < end_pt; num_zs++)
        cpt = strchr(cpt + 1, ',');
    LIBISO_ALLOC_MEM(ivr->zeroizers, struct iso_interval_zeroizer, num_zs);
    for (i = 0; i < num_zs; i++)
        ivr->zeroizers[i].zero_end = -1;
    idx = 0;
    for (rpt = pathpt; rpt != NULL && rpt < end_pt; idx++) {
        cpt = strchr(rpt, ',');
        if (cpt == NULL || cpt > end_pt)
            cpt = end_pt;

        if (cpt == rpt) {
    continue;
        } else if (strncmp(rpt, "zero_mbrpt", cpt - rpt) == 0) {
            ivr->zeroizers[idx].z_type = 1;
        } else if (strncmp(rpt, "zero_gpt", cpt - rpt) == 0) {
            ivr->zeroizers[idx].z_type = 2;
        } else if (strncmp(rpt, "zero_apm", cpt - rpt) == 0) {
            ivr->zeroizers[idx].z_type = 3;
        } else {
            ivr->zeroizers[idx].z_type = 0;
            ret = iso_ivr_parse_interval(rpt, cpt,
                                         &(ivr->zeroizers[idx].zero_start),
                                         &(ivr->zeroizers[idx].zero_end), 0);
            if (ret < 0)
                goto ex;
        }
        rpt = cpt + 1;
        ivr->num_zeroizers++;
    }
    ret = ISO_SUCCESS;
ex:;
    return ret;
}

static
int iso_ivr_parse(struct iso_interval_reader *ivr, char *path, int flag)
{
    int ret;
    char *flags_pt, *interval_pt, *zeroize_pt;

    flags_pt = path;
    iso_ivr_next_comp(flags_pt, &interval_pt, 0);
    iso_ivr_next_comp(interval_pt, &zeroize_pt, 0);
    iso_ivr_next_comp(zeroize_pt, &(ivr->source_pt), 0);
    if (ivr->source_pt == NULL) {
        iso_msg_submit(-1, ISO_MALFORMED_READ_INTVL, 0,
                "Not enough components in interval reader description string");
        return ISO_MALFORMED_READ_INTVL;
    }

    ivr->flags = 0;
    if (strncmp(flags_pt, "imported_iso", 12) == 0) {
        ivr->flags |= 1;
    } else if (strncmp(flags_pt, "local_fs", 8) == 0) {
        ;
    } else {
        iso_msg_submit(-1, ISO_MALFORMED_READ_INTVL, 0,
 "Unknown flag name in first component of interval reader description string");
        return ISO_MALFORMED_READ_INTVL;
    }
    ret = iso_ivr_parse_interval(interval_pt, zeroize_pt, &(ivr->start_byte),
                                 &(ivr->end_byte), 0);
    if (ret < 0)
        goto ex;
    ret = iso_ivr_parse_zeroizers(ivr, zeroize_pt, ivr->source_pt - 1, 0);
    if (ret < 0)
        goto ex;

    ret = ISO_SUCCESS;
ex:;
    return ret;
}   

int iso_interval_reader_destroy(struct iso_interval_reader **ivr, int flag)
{
    struct iso_interval_reader *o;

    if (*ivr == NULL)
        return 0;
    o = *ivr;

    LIBISO_FREE_MEM(o->path);
    LIBISO_FREE_MEM(o->zeroizers);

    if (o->fd != -1)
        close(o->fd);
    if (o->src_is_open)
        (*o->image->import_src->close)(o->image->import_src);

    LIBISO_FREE_MEM(*ivr);
    return ISO_SUCCESS;
}

/* @param flag bit0= tolerate lack of import_src
*/
int iso_interval_reader_new(IsoImage *img, char *path,
                            struct iso_interval_reader **ivr,
                            off_t *byte_count, int flag)
{
    int ret, no_img = 0;
    struct iso_interval_reader *o = NULL;

    *ivr = NULL;
    *byte_count = 0;
    LIBISO_ALLOC_MEM(o, struct iso_interval_reader, 1);
    o->image = img;
    o->path = NULL;
    o->zeroizers = NULL;
    o->num_zeroizers = 0;
    o->source_pt = NULL;
    o->initialized = 0;
    o->is_block_aligned = 0;
    o->fd = -1;
    o->pending_read_pt = NULL;
    o->pending_read_bytes = 0;
    o->eof = 0;
    o->read_count = 0;
    o->src_is_open = 0;

    o->apm_block_size = 0;

    LIBISO_ALLOC_MEM(o->path, char, strlen(path) + 1);
    strcpy(o->path, path);

    ret = iso_ivr_parse(o, path, 0);
    if (ret < 0)
        goto ex;

    if (o->image == NULL)
        no_img = 1;
    else if (o->image->import_src == NULL)
        no_img = 1;
    if ((o->flags & 1) && no_img) {
        iso_msg_submit(-1, ISO_NO_KEPT_DATA_SRC, 0,
                "Interval reader lacks of data source object of imported ISO");
        if (!(flag & 1)) {
            ret = ISO_BAD_PARTITION_FILE;
            goto ex;
        }
        o->eof = 1;
    }
    *byte_count = o->end_byte - o->start_byte + 1;
    *ivr = o;
    ret = ISO_SUCCESS;
ex:;
    if (ret < 0)
        iso_interval_reader_destroy(&o, 0);
    return ret;
}

static
int iso_ivr_zeroize(struct iso_interval_reader *ivr, uint8_t *buf,
                             int buf_fill, int flag)
{
    int i;
    off_t low, high, part_start, entry_count, apm_offset = -1, map_entries;
    uint8_t *apm_buf;
    struct iso_interval_zeroizer *zr;

    for (i = 0; i < ivr->num_zeroizers; i++) {
        zr = ivr->zeroizers + i;
        if (zr->z_type == 1) { /* zero_mbrpt */
            if (ivr->read_count > 0 || buf_fill < 512)
    continue;
            if (buf[510] != 0x55 || buf[511] != 0xaa)
    continue;
            memset(buf + 446, 0, 64);

        } else if (zr->z_type == 2) { /* zero_gpt */
            if (zr->zero_start <= zr->zero_end)
                goto process_interval;

            if (ivr->read_count > 0 || buf_fill < 512 + 92)
    continue;
            if (strncmp((char *) buf + 512, "EFI PART", 8) != 0 ||
                buf[520] != 0 || buf[521] != 0  || buf[522] != 1 ||
                buf[523] != 0)
    continue;
            /* head_size , curr_lba , entry_size */
            if (iso_read_lsb(buf + 524, 4) != 92 ||
                iso_read_lsb(buf + 536, 4) != 1 ||
                iso_read_lsb(buf + 596, 4) != 128)
    continue;
            part_start = iso_read_lsb(buf + 584, 4);
            entry_count = iso_read_lsb(buf + 592, 4);
            if (part_start < 2 || part_start + (entry_count + 3) / 4 > 64)
    continue;
            zr->zero_start = part_start * 512;
            zr->zero_end = (part_start + (entry_count + 3) / 4) * 512 - 1;
            memset(buf + 512, 0, 92);

        } else if (zr->z_type == 3) { /* zero_apm */
            if (zr->zero_start <= zr->zero_end)
                goto process_interval;

            if (ivr->read_count == 0) {
                if (buf_fill < 512)
    continue;
                if (buf[0] != 'E' || buf[1] != 'R')
    continue;
                ivr->apm_block_size = iso_read_msb(buf + 2, 2);
                if ((ivr->apm_block_size != 512 &&
                     ivr->apm_block_size != 1024 &&
                     ivr->apm_block_size != 2048) ||
                    ((uint32_t) buf_fill) < ivr->apm_block_size) {
                    ivr->apm_block_size = 0;
    continue;
                }
                if (ivr->read_count + buf_fill >= 2 * ivr->apm_block_size)
                    apm_offset = ivr->apm_block_size;
            } else if (ivr->read_count == 2048 &&
                       ivr->apm_block_size == 2048 && buf_fill == 2048) {
                apm_offset = 0;
            }
            if (apm_offset < 0)
    continue;

            /* Check for first APM entry */
            apm_buf = buf + apm_offset;
            if(apm_buf[0] != 'P' || apm_buf[1] != 'M')
    continue;
            if (iso_read_msb(apm_buf + 8, 4) != 1)
    continue;
            map_entries = iso_read_msb(apm_buf + 4, 4);
            if ((1 + map_entries) * ivr->apm_block_size > 16 * 2048)
    continue;
            zr->zero_start = ivr->apm_block_size;
            zr->zero_end = (1 + map_entries) * ivr->apm_block_size;
        }
process_interval:;
        /* If an interval is defined by now: zeroize its intersection with buf
         */
        if (zr->zero_start <= zr->zero_end) {
            low = ivr->read_count >= zr->zero_start ?
                  ivr->read_count : zr->zero_start;
            high = ivr->read_count + buf_fill - 1 <= zr->zero_end ?
                   ivr->read_count + buf_fill - 1 : zr->zero_end;
            if (low <= high)
                memset(buf + low - ivr->read_count, 0, high - low + 1);
        }
    }

    return ISO_SUCCESS;
}

int iso_interval_reader_read(struct iso_interval_reader *ivr, uint8_t *buf,
                             int *buf_fill, int flag)
{
    int ret, read_done, to_copy, initializing = 0;
    IsoDataSource *src;
    uint8_t *read_buf;
    off_t to_read;

    *buf_fill = 0;
    src = ivr->image->import_src;

    if (ivr->eof) {
eof:;
        memset(buf, 0, BLOCK_SIZE);
        return 0;
    }

    if (ivr->initialized) {
        ivr->cur_block++;
    } else {
        initializing = 1;
        ivr->cur_block = ivr->start_byte / BLOCK_SIZE;
        ivr->is_block_aligned = !(ivr->start_byte % BLOCK_SIZE);
        if (ivr->flags & 1) {
            if (src == NULL)
                goto eof;
            ret = (*src->open)(src);
            if (ret < 0) {
                ivr->eof = 1;
                return ret;
            }
            ivr->src_is_open = 1;
        } else {
            ivr->fd = open(ivr->source_pt, O_RDONLY);
            if (ivr->fd == -1) {
                iso_msg_submit(-1, ISO_BAD_PARTITION_FILE, 0,
                         "Cannot open local file for interval reading");
                ivr->eof = 1;
                return ISO_BAD_PARTITION_FILE;
            }
            if (ivr->cur_block != 0) {
                if (lseek(ivr->fd, ivr->cur_block * BLOCK_SIZE, SEEK_SET) ==
                    -1) {
                    iso_msg_submit(-1, ISO_INTVL_READ_PROBLEM, 0,
                         "Cannot address interval start in local file");
                    ivr->eof = 1;
                    goto eof;
                }
            }
        }
        ivr->initialized = 1;
    }
    if (ivr->is_block_aligned) {
        read_buf = buf;
    } else {
process_pending:;
        read_buf = ivr->read_buf;
        /* Copy pending bytes from previous read */
        if (ivr->pending_read_bytes > 0) {
            memcpy(buf, ivr->pending_read_pt, ivr->pending_read_bytes);
            *buf_fill = ivr->pending_read_bytes;
            ivr->pending_read_bytes = 0;
        }
    }

    /* Read next block */
    read_done = 0;
    if (ivr->cur_block * BLOCK_SIZE <= ivr->end_byte) {
        if (ivr->flags & 1) {
            ret = (*src->read_block)(src, (uint32_t) ivr->cur_block, read_buf);
            if (ret < 0) {
                if (iso_error_get_severity(ret) > 0x68000000) /* > FAILURE */
                    return ret;
                iso_msg_submit(-1, ISO_INTVL_READ_PROBLEM, 0,
                     "Premature EOF while interval reading from imported ISO");
                ivr->eof = 1;
            }
            read_done = BLOCK_SIZE;
        } else {
            read_done = 0;
            to_read = ivr->end_byte - ivr->start_byte + 1 - ivr->read_count;
            if (to_read > BLOCK_SIZE)
                to_read = BLOCK_SIZE;
            while (read_done < to_read) {
                ret = read(ivr->fd, read_buf, to_read - read_done);
                if (ret == -1) {
                    iso_msg_submit(-1, ISO_INTVL_READ_PROBLEM, 0,
                       "Read error while interval reading from local file");
                    ivr->eof = 1;
            break;
                } else if (ret == 0) {
                    iso_msg_submit(-1, ISO_INTVL_READ_PROBLEM, 0,
                       "Premature EOF while interval reading from local file");
                    ivr->eof = 1;
            break;
                } else
                    read_done += ret;
            }
        }
    }
    if (ivr->is_block_aligned) {
        *buf_fill = read_done;
    } else if (initializing) {
        ivr->pending_read_pt = ivr->read_buf +
                               (ivr->start_byte - ivr->cur_block * BLOCK_SIZE);
        ivr->pending_read_bytes = (((off_t) ivr->cur_block) + 1) * BLOCK_SIZE -
                                  ivr->start_byte;
        initializing = 0;
        goto process_pending;

    } else if (read_done > 0) {
        /* Copy bytes from new read */
        to_copy = read_done > BLOCK_SIZE - *buf_fill ?
                  BLOCK_SIZE - *buf_fill : read_done;
        memcpy(buf + *buf_fill, ivr->read_buf, to_copy);
        *buf_fill += to_copy;
        ivr->pending_read_pt = ivr->read_buf + to_copy;
        ivr->pending_read_bytes = read_done - to_copy;
    }
    if (ivr->start_byte + ivr->read_count + *buf_fill - 1 > ivr->end_byte) {
        *buf_fill = ivr->end_byte - ivr->start_byte + 1 - ivr->read_count;
        ivr->eof = 1;
    }

    if (*buf_fill < BLOCK_SIZE)
        memset(buf + *buf_fill, 0, BLOCK_SIZE - *buf_fill);

    ret = iso_ivr_zeroize(ivr, buf, *buf_fill, 0);
    if (ret < 0)
        return ret;

    ivr->read_count += *buf_fill;

    return ISO_SUCCESS;
}


/* Tells whether ivr is a reader from imported_iso in a multi-session
   add-on situation, and thus to be kept in place.
*/
int iso_interval_reader_keep(Ecma119Image *target, 
                             struct iso_interval_reader *ivr,
                             int flag)
{
    /* Source must be "imported_iso" */
    if (!(ivr->flags & 1))
        return 0;

    /* It must not be a new ISO */
    if (!target->opts->appendable)
        return 0;

    /* --- From here on return either 1 or <0 --- */

    /* multi-session write offset must be larger than interval end */
    if (target->opts->ms_block <= ivr->end_byte / BLOCK_SIZE)
        return ISO_MULTI_OVER_IMPORTED;

    return 1;
}


int iso_interval_reader_start_size(Ecma119Image *t, char *path,
                                   off_t *start_byte, off_t *byte_count,
                                   int flag)
{
    struct iso_interval_reader *ivr;
    int keep, ret;

    ret = iso_interval_reader_new(t->image, path, &ivr, byte_count, 0);
    if (ret < 0)
        return ret;
    *start_byte = ivr->start_byte;
    keep = iso_interval_reader_keep(t, ivr, 0);
    if (keep < 0)
        return(keep);
    iso_interval_reader_destroy(&ivr, 0);
    return ISO_SUCCESS + (keep > 0);
}


int iso_write_partition_file(Ecma119Image *target, char *path,
                             uint32_t prepad, uint32_t blocks, int flag)
{

    struct iso_interval_reader *ivr = NULL;
    int buf_fill;
    off_t byte_count;
    FILE *fp = NULL;

    uint32_t i;
    uint8_t *buf = NULL;
    int ret;

    LIBISO_ALLOC_MEM(buf, uint8_t, BLOCK_SIZE);
    for (i = 0; i < prepad; i++) {
        ret = iso_write(target, buf, BLOCK_SIZE);
        if (ret < 0)
            goto ex;
    }

    if (flag & 1) {
        ret = iso_interval_reader_new(target->image, path,
                                      &ivr, &byte_count, 0);
        if (ret < 0)
            goto ex;
        ret = iso_interval_reader_keep(target, ivr, 0);
        if (ret < 0)
            goto ex;
        if (ret > 0) {
            /* From imported_iso and for add-on session. Leave it in place. */
            ret = ISO_SUCCESS;
            goto ex;
        }
        for (i = 0; i < blocks; i++) {
            ret = iso_interval_reader_read(ivr, buf, &buf_fill, 0);
            if (ret < 0)
                goto ex;
            ret = iso_write(target, buf, BLOCK_SIZE);
            if (ret < 0)
                goto ex;
        }
    } else {
        fp = fopen(path, "rb");
        if (fp == NULL)
            {ret = ISO_BAD_PARTITION_FILE; goto ex;}

        for (i = 0; i < blocks; i++) {
            memset(buf, 0, BLOCK_SIZE);
            if (fp != NULL) {
                ret = fread(buf, 1, BLOCK_SIZE, fp);
                if (ret != BLOCK_SIZE) {
                    fclose(fp);
                    fp = NULL;
                }
            }
            ret = iso_write(target, buf, BLOCK_SIZE);
            if (ret < 0) {
                if (fp != NULL)
                    fclose(fp);
                goto ex;
            }
        }
        if (fp != NULL) 
            fclose(fp);
    }
    ret = ISO_SUCCESS;
ex:;
    iso_interval_reader_destroy(&ivr, 0);
    LIBISO_FREE_MEM(buf);
    return ret;
}


void issue_ucs2_warning_summary(size_t failures)
{
    if (failures > ISO_JOLIET_UCS2_WARN_MAX) {
        iso_msg_submit(-1, ISO_NAME_NOT_UCS2, 0,
                       "More filenames found which were not suitable for Joliet character set UCS-2");
    }
    if (failures > 0) {
        iso_msg_submit(-1, ISO_NAME_NOT_UCS2, 0,
           "Sum of filenames not suitable for Joliet character set UCS-2: %.f",
                       (double) failures);
    }
}


static
void *write_function(void *arg)
{
    int res, i;
#ifndef Libisofs_appended_partitions_inlinE
    int first_partition = 1, last_partition = 0;
#endif
    IsoImageWriter *writer;

    Ecma119Image *target = (Ecma119Image*)arg;
    iso_msg_debug(target->image->id, "Starting image writing...");

    target->bytes_written = (off_t) 0;
    target->percent_written = 0;

    res = write_head_part(target, 0);
    if (res < 0)
        goto write_error;

    /* write data for each writer */
    for (i = 0; i < (int) target->nwriters; ++i) {
        writer = target->writers[i];
        if (target->gpt_backup_outside &&
            writer->write_vol_desc == gpt_tail_writer_write_vol_desc)
    continue;
        res = writer->write_data(writer);
        if (res < 0) {
            goto write_error;
        }
    }

#ifndef Libisofs_appended_partitions_inlinE

    /* Append partition data */
    iso_count_appended_partitions(target, &first_partition, &last_partition);
    for (i = first_partition - 1; i <= last_partition - 1; i++) {
        if (target->opts->appended_partitions[i] == NULL)
    continue;
        if (target->opts->appended_partitions[i][0] == 0)
    continue;
        res = iso_write_partition_file(target,
                                     target->opts->appended_partitions[i],
                                     target->appended_part_prepad[i],
                                     target->appended_part_size[i],
                                     target->opts->appended_part_flags[i] & 1);
        if (res < 0)
            goto write_error;
    }

#endif /* ! Libisofs_appended_partitions_inlinE */

    if (target->gpt_backup_outside) {
        for (i = 0; i < (int) target->nwriters; ++i) {
            writer = target->writers[i];
            if (writer->write_vol_desc != gpt_tail_writer_write_vol_desc)
        continue;
            res = writer->write_data(writer);
            if (res < 0)
                goto write_error;
        }
    }

    /* Transplant checksum buffer from Ecma119Image to IsoImage */
    transplant_checksum_buffer(target, 0);

    iso_ring_buffer_writer_close(target->buffer, 0);

    res = finish_libjte(target);
    if (res <= 0)
        goto write_error;

    issue_ucs2_warning_summary(target->joliet_ucs2_failures);

    target->image->generator_is_running = 0;

    /* Give up reference claim made in ecma119_image_new().
       Eventually free target */
    ecma119_image_free(target);

    if (target->tree_end_block == 1) {
        iso_msgs_submit(0,
 "Image is most likely damaged. Calculated/written tree end address mismatch.",
                        0, "FATAL", 0);
    }
    if (target->bytes_written != target->total_size) {
        iso_msg_debug(target->image->id,
                 "bytes_written = %.f <-> total_size = %.f",
                 (double) target->bytes_written, (double) target->total_size);
        iso_msgs_submit(0,
"Image is most likely damaged. Calculated/written image end address mismatch.",
                        0, "FATAL", 0);
    }

#ifdef Libisofs_with_pthread_exiT
    pthread_exit(NULL);
#else
    return NULL;
#endif

write_error: ;
    if (res != (int) ISO_LIBJTE_END_FAILED)
        finish_libjte(target);
    target->eff_partition_offset = 0;
    if (res == (int) ISO_CANCELED) {
        /* canceled */
        if (!target->opts->will_cancel)
            iso_msg_submit(target->image->id, ISO_IMAGE_WRITE_CANCELED,
                           0, NULL);
    } else {
        /* image write error */
        iso_msg_submit(target->image->id, ISO_WRITE_ERROR, res,
                   "Image write error");
    }
    iso_ring_buffer_writer_close(target->buffer, 1);

    /* Re-activate recorded cx xinfo */
    process_preserved_cx(target->image->root, 1);
    
    target->image->generator_is_running = 0;

    /* Give up reference claim made in ecma119_image_new().
       Eventually free target */
    ecma119_image_free(target);

#ifdef Libisofs_with_pthread_exiT
    pthread_exit(NULL);
#else
    return NULL;
#endif

}


static
int checksum_prepare_image(IsoImage *src, int flag)
{
    int ret;

    /* Set provisory value of isofs.ca with
       4 byte LBA, 4 byte count, size 16, name MD5 */
    ret = iso_root_set_isofsca((IsoNode *) src->root, 0, 0, 0, 16, "MD5", 0);
    if (ret < 0)
        return ret;
    return ISO_SUCCESS;
}


/*
  @flag bit0= recursion
*/
static
int checksum_prepare_nodes(Ecma119Image *target, IsoNode *node, int flag)
{
    IsoNode *pos;
    IsoFile *file;
    IsoImage *img;
    int ret, i, no_md5 = 0, has_xinfo = 0, has_attr = 0;
    size_t old_cx_value_length = 0;
    unsigned int idx = 0;
    char *old_cx_value= NULL;
    void *xipt = NULL;

    img= target->image;

    if (node->type == LIBISO_FILE) {
        file = (IsoFile *) node;
        if (file->from_old_session) {
            /* Record attribute isofs.cx as xinfo before it can get overwritten
               for the emerging image.
               The recorded index will be used to retrieve the loaded MD5
               and it will be brought back into effect if cancellation of
               image production prevents that the old MD5 array gets replaced
               by the new one.
            */
            has_attr = iso_node_lookup_attr(node, "isofs.cx",
                                       &old_cx_value_length, &old_cx_value, 0);
            if (has_attr == 1 && old_cx_value_length == 4) {
                for (i = 0; i < 4; i++)
                    idx = (idx << 8) | ((unsigned char *) old_cx_value)[i];
                if (idx > 0 && idx < 0x8000000) {
                    /* xipt is an int disguised as void pointer */
                    for (i = 0; i < 4; i++)
                        ((char *) &xipt)[i] = old_cx_value[i];
                    ret = iso_node_add_xinfo(node, checksum_cx_xinfo_func,
                                             xipt);
                    if (ret < 0)
                        goto ex;
                } else
                    no_md5 = 1;
            }
        }
        if (file->from_old_session && target->opts->appendable) {
            /* Save MD5 data of files from old image which will not
               be copied and have an MD5 recorded in the old image. */
            has_xinfo = iso_node_get_xinfo(node, checksum_md5_xinfo_func,
                                           &xipt);
            if (has_xinfo > 0) {
                /* xinfo MD5 overrides everything else unless data get copied
                   and checksummed during that copying
                 */;
            } else if (has_attr == 1 && img->checksum_array == NULL) {
                /* No checksum array loaded. Delete "isofs.cx" */
                if (!target->opts->will_cancel)
                  iso_file_set_isofscx((IsoFile *) node, 0, 1);
                no_md5 = 1;
            } else if (!(has_attr == 1 && old_cx_value_length == 4)) {
                no_md5 = 1;
            }
        }

        /* Equip nodes with provisory isofs.cx numbers: 4 byte, all 0.
           Omit those from old image which will not be copied and have no MD5.
           Do not alter the nodes if this is only a will_cancel run.
         */
        if (!(target->opts->will_cancel || no_md5)) {
            /* Record provisory new index */
            ret = iso_file_set_isofscx(file, (unsigned int) 0, 0);
            if (ret < 0)
                goto ex;
        }
    } else if (node->type == LIBISO_DIR) {
        for (pos = ((IsoDir *) node)->children; pos != NULL; pos = pos->next) {
            ret = checksum_prepare_nodes(target, pos, 1);
            if (ret < 0)
                goto ex;
        }
    }
    ret = ISO_SUCCESS;
ex:;
    if (old_cx_value != NULL)
        free(old_cx_value);
    return ret;
}

/* Determine the alleged time of image production by predicting the volume
   creation and modification timestamps and taking the maximum of both.
*/
static
void ecma119_determine_now_time(Ecma119Image *target)
{
    IsoWriteOpts *o;
    time_t now = 0, t, t0;
    uint8_t time_text[18];
    int i;

    iso_nowtime(&t0, 0);
    o = target->opts;
    if (o->vol_uuid[0]) {
        for(i = 0; i < 16; i++)
            if(o->vol_uuid[i] < '0' || o->vol_uuid[i] > '9')
        break;
            else
                time_text[i] = o->vol_uuid[i];
        for(; i < 16; i++)
            time_text[i] = '1';
        time_text[16] = time_text[17] = 0;
        t = iso_datetime_read_17(time_text);
        if (t > now)
            now = t;
    } else {
        if (o->vol_creation_time > 0) {
            if (o->vol_creation_time > now)
                now = o->vol_creation_time;
        } else if (t0 > now) {
            now = t0;
        }
        if (o->vol_modification_time > 0) {
            if (o->vol_modification_time > now)
                now = o->vol_modification_time;
        } else if (t0 > now) {
            now = t0;
        }
    } 
    target->now = now;
}

static
int gpt_disk_guid_setup(Ecma119Image *target)
{
    if (target->opts->gpt_disk_guid_mode == 0) {
        /* Random UUID production delayed until really needed */
        return ISO_SUCCESS;
    } else if (target->opts->gpt_disk_guid_mode == 1) {
        memcpy(target->gpt_uuid_base, target->opts->gpt_disk_guid, 16);
    } else if (target->opts->gpt_disk_guid_mode == 2) {
        if (target->opts->vol_uuid[0] == 0)
            return ISO_GPT_NO_VOL_UUID;
        /* Move centi-seconds part to byte 9 and 10 */
        memcpy(target->gpt_uuid_base, target->opts->vol_uuid, 9);
        memcpy(target->gpt_uuid_base + 9, target->opts->vol_uuid + 14, 2);
        memcpy(target->gpt_uuid_base + 11, target->opts->vol_uuid + 9, 5);
        iso_mark_guid_version_4(target->gpt_uuid_base);
    } else {
        return ISO_BAD_GPT_GUID_MODE;
    }
    memcpy(target->gpt_disk_guid, target->gpt_uuid_base, 16);
    target->gpt_disk_guid_set = 1;
    target->gpt_uuid_counter = 1;
    return ISO_SUCCESS;
}

static
int ecma119_image_new(IsoImage *src, IsoWriteOpts *in_opts, Ecma119Image **img)
{
    int ret, i, voldesc_size, nwriters, tag_pos;
    int sa_type;
    Ecma119Image *target;
    IsoWriteOpts *opts;
    IsoImageWriter *writer;
    int file_src_writer_index = -1;
    int system_area_options = 0;
    char *system_area = NULL;
    int write_count = 0, write_count_mem;
    uint32_t vol_space_size_mem;
    off_t total_size_mem;

#ifdef Libisofs_appended_partitions_inlinE
    int fap, lap, app_part_count;
#endif

    /* 1. Allocate target and attach a copy of in_opts there */
    target = calloc(1, sizeof(Ecma119Image));
    if (target == NULL) {
        return ISO_OUT_OF_MEM;
    }
    /* This reference will be transferred to the burn_source and released by
       bs_free_data.
    */
    target->refcount = 1;
    target->opts = NULL;

    /* Record a copy of in_opts.
       It is a copy because in_opts is prone to manipulations from the
       application thread while the image production thread is running.
    */ 
    ret = iso_write_opts_clone(in_opts, &(target->opts), 0);
    if (ret != ISO_SUCCESS)
        goto target_cleanup;
    opts = target->opts;

    /* create the tree for file caching */
    ret = iso_rbtree_new(iso_file_src_cmp, &(target->files));
    if (ret < 0) {
        goto target_cleanup;
    }
    target->ecma119_hidden_list = NULL;

    target->image = src;
    iso_image_ref(src);

    target->rr_reloc_node = NULL;

    target->replace_uid = opts->replace_uid ? 1 : 0;
    target->replace_gid = opts->replace_gid ? 1 : 0;
    target->replace_dir_mode = opts->replace_dir_mode ? 1 : 0;
    target->replace_file_mode = opts->replace_file_mode ? 1 : 0;

    target->uid = opts->replace_uid == 2 ? opts->uid : 0;
    target->gid = opts->replace_gid == 2 ? opts->gid : 0;
    target->dir_mode = opts->replace_dir_mode == 2 ? opts->dir_mode : 0555;
    target->file_mode = opts->replace_file_mode == 2 ? opts->file_mode : 0444;

    ecma119_determine_now_time(target);

    target->replace_timestamps = opts->replace_timestamps ? 1 : 0;
    target->timestamp = opts->replace_timestamps == 2 ?
                        opts->timestamp : target->now;

    /* el-torito? */
    target->eltorito = (src->bootcat == NULL ? 0 : 1);
    target->catalog = src->bootcat;
    if (target->catalog != NULL) {
        target->num_bootsrc = target->catalog->num_bootimages;
        target->bootsrc = calloc(target->num_bootsrc + 1,
                                    sizeof(IsoFileSrc *));
        target->boot_appended_idx = calloc(target->num_bootsrc + 1,
                                           sizeof(int));
        target->boot_intvl_start = calloc(target->num_bootsrc + 1,
                                             sizeof(uint32_t));
        target->boot_intvl_size = calloc(target->num_bootsrc + 1,
                                            sizeof(uint32_t));
        if (target->bootsrc == NULL || target->boot_appended_idx == NULL ||
            target->boot_intvl_start == NULL ||
            target->boot_intvl_size == NULL) {
            ret = ISO_OUT_OF_MEM;
            goto target_cleanup;
        }
        for (i= 0; i < target->num_bootsrc; i++) {
            target->bootsrc[i] = NULL;
            target->boot_appended_idx[i] = -1;
            target->boot_intvl_start[i] = 0;
            target->boot_intvl_size[i] = 0;
        }
        /* It is not easy to predict when the node gets created and can be
           manipulated. So it is better for reproducibility to derive its
           timestamps from the well controllable now-time.
        */
        if (target->catalog->node != NULL) {
            iso_node_set_mtime((IsoNode *) target->catalog->node, target->now);
            iso_node_set_atime((IsoNode *) target->catalog->node, target->now);
            iso_node_set_ctime((IsoNode *) target->catalog->node, target->now);
        }

    } else {
        target->num_bootsrc = 0;
        target->bootsrc = NULL;
    }

    if (opts->system_area_data != NULL) {
        system_area = opts->system_area_data;
        system_area_options = opts->system_area_options;
    } else if (src->system_area_data != NULL) {
        system_area = src->system_area_data;
        system_area_options = src->system_area_options;
    } else {
        system_area_options = opts->system_area_options & 0xfffffffd;
    }
    sa_type = (system_area_options >> 2) & 0x3f;
    if (sa_type != 0 && sa_type != 3)
        for (i = 0; i < ISO_MAX_PARTITIONS; i++)
            if (opts->appended_partitions[i] != NULL) {
                ret = ISO_NON_MBR_SYS_AREA;
                goto target_cleanup;
            }
    if (sa_type != 0 && opts->prep_partition != NULL) {
        ret = ISO_NON_MBR_SYS_AREA;
        goto target_cleanup;
    }

    target->system_area_data = NULL;
    if (system_area != NULL) {
        target->system_area_data = calloc(32768, 1);
        if (target->system_area_data == NULL) {
            ret = ISO_OUT_OF_MEM;
            goto target_cleanup;
        }
        memcpy(target->system_area_data, system_area, 32768);
    }
    target->system_area_options = system_area_options;

    target->partition_secs_per_head = opts->partition_secs_per_head;
    target->partition_heads_per_cyl = opts->partition_heads_per_cyl;
    if (target->partition_secs_per_head == 0)
        target->partition_secs_per_head = 32;
    if (target->partition_heads_per_cyl == 0)
        target->partition_heads_per_cyl = 64;
    target->eff_partition_offset = 0;
    target->partition_root = NULL;
    target->partition_l_table_pos = 0;
    target->partition_m_table_pos = 0;
    target->j_part_root = NULL;
    target->j_part_l_path_table_pos = 0;
    target->j_part_m_path_table_pos = 0;
    target->input_charset = strdup(iso_get_local_charset(0));
    if (target->input_charset == NULL) {
        ret = ISO_OUT_OF_MEM;
        goto target_cleanup;
    }

    if (opts->output_charset != NULL) {
        target->output_charset = strdup(opts->output_charset);
    } else {
        target->output_charset = strdup(target->input_charset);
    }
    if (target->output_charset == NULL) {
        ret = ISO_OUT_OF_MEM;
        goto target_cleanup;
    }

    target->total_size = 0;
    target->vol_space_size = 0;
    target->pvd_size_is_total_size = 0;

    target->checksum_idx_counter = 0;
    target->checksum_ctx = NULL;
    target->checksum_counter = 0;
    target->checksum_rlsb_tag_pos = 0;
    target->checksum_sb_tag_pos = 0;
    target->checksum_tree_tag_pos = 0;
    target->checksum_tag_pos = 0;
    target->checksum_buffer = NULL;
    target->checksum_array_pos = 0;
    target->checksum_range_start = 0;
    target->checksum_range_size = 0;
    target->opts_overwrite = NULL;

#ifdef Libisofs_with_libjtE

    /* Eventually start Jigdo Template Extraction */
    if (opts->libjte_handle != NULL) {
        ret = libjte_write_header(opts->libjte_handle);
        if (ret <= 0) {
            iso_libjte_forward_msgs(opts->libjte_handle, 
                                target->image->id, ISO_LIBJTE_START_FAILED, 0);
            ret = ISO_LIBJTE_START_FAILED;
            goto target_cleanup;
        }
    }
    
#endif /* Libisofs_with_libjtE */

    target->mipsel_e_entry = 0;
    target->mipsel_p_offset = 0;
    target->mipsel_p_vaddr = 0;
    target->mipsel_p_filesz = 0;

    target->sparc_core_src = NULL;

    target->empty_file_block = 0;
    target->tree_end_block = 0;

    target->wthread_is_running = 0;

    target->part_align_blocks = 0;
    target->alignment_end_block = 0;
    target->post_iso_part_pad = 0;
    target->prep_part_size = 0;
    target->efi_boot_part_size = 0;
    target->efi_boot_part_filesrc = NULL;
    for (i = 0; i < ISO_MAX_PARTITIONS; i++) {
        target->appended_part_prepad[i] = 0;
        target->appended_part_start[i] = target->appended_part_size[i] = 0;
    }
    target->have_appended_partitions = 0;
    for (i = 0; i < ISO_HFSPLUS_BLESS_MAX; i++) {
        target->hfsplus_blessed[i] = src->hfsplus_blessed[i];
        if (target->hfsplus_blessed[i] != NULL)
            iso_node_ref(target->hfsplus_blessed[i]);
    }
    target->hfsp_cat_node_size = 0;
    target->hfsp_iso_block_fac = 0;
    target->hfsp_collision_count = 0;
    iso_setup_hfsplus_block_size(target);
    target->apm_req_count = 0;
    target->apm_req_flags = 0;
    for (i = 0; i < ISO_APM_ENTRIES_MAX; i++)
        target->apm_req[i] = NULL;
    for (i = 0; i < ISO_MBR_ENTRIES_MAX; i++)
        target->mbr_req[i] = NULL;
    target->mbr_req_count = 0;
    for (i = 0; i < ISO_GPT_ENTRIES_MAX; i++)
        target->gpt_req[i] = NULL;
    target->gpt_req_count = 0;
    target->gpt_req_flags = 0;
    target->gpt_backup_outside = 0;
    memset(target->gpt_uuid_base, 0, 16);
    target->gpt_uuid_counter = 0;
    target->gpt_disk_guid_set = 0;
    ret = gpt_disk_guid_setup(target);
    if (ret < 0)
        goto target_cleanup;
    target->gpt_part_start = 0;
    target->gpt_backup_end = 0;
    target->gpt_backup_size = 0;
    target->gpt_max_entries = 0;
    target->gpt_is_computed = 0;

    target->sys_area_already_written = 0;

    target->filesrc_start = 0;
    target->filesrc_blocks = 0;

    target->curr_ce_entries = 0;

    target->joliet_ucs2_failures = 0;
    target->joliet_symlinks = 0;
    target->joliet_specials = 0;
    target->iso1999_symlinks = 0;
    target->iso1999_specials = 0;

    /* If partitions get appended, then the backup GPT cannot be part of
       the ISO filesystem.
    */
    for (i = 0; i < ISO_MAX_PARTITIONS; i++)
       if (target->opts->appended_partitions[i] != NULL) {
           target->gpt_backup_outside = 1;
           target->have_appended_partitions = 1;
    break;
       }

    ret = iso_root_set_isofsnt((IsoNode *) (src->root),
                               (uint32_t) src->truncate_mode,
                               (uint32_t) src->truncate_length, 0);
    if (ret < 0)
       goto target_cleanup;

    /*
     * 2. Based on those options, create needed writers: iso, joliet...
     * Each writer inits its structures and stores needed info into
     * target.
     * If the writer needs an volume descriptor, it increments image
     * current block.
     * Finally, create Writer for files.
     */
    target->curblock = opts->ms_block + 16;

    if (opts->overwrite != NULL && opts->ms_block != 0 &&
        opts->ms_block < opts->partition_offset + 32) {
        /* Not enough room for superblock relocation */
        ret = ISO_OVWRT_MS_TOO_SMALL;
        goto target_cleanup;
    }

    /* the number of writers is dependent of the extensions */
    nwriters = 1 + 1 + 1; /* ECMA-119 + multi-session padding + files */

    if (target->eltorito) {
        nwriters++;
    }
    if (opts->joliet) {
        nwriters++;
    }
    if (opts->iso1999) {
        nwriters++;
    }
    nwriters++; /* Partition Prepend writer */
    if (opts->hfsplus || opts->fat) {
        nwriters+= 2;
    }

#ifdef Libisofs_part_align_writeR

    nwriters++; /* part_align_blocks writer */

#endif

#ifdef Libisofs_appended_partitions_inlinE

    nwriters++; /* Inline Partition Append Writer */

#endif

    nwriters++; /* GPT backup tail writer */
    nwriters++; /* Tail padding writer */
    if ((opts->md5_file_checksums & 1) || opts->md5_session_checksum) {
        nwriters++;
        ret = checksum_prepare_image(src, 0);
        if (ret < 0)
            goto target_cleanup;
        if (opts->appendable) {
            ret = checksum_prepare_nodes(target, (IsoNode *) src->root, 0);
            if (ret < 0)
                goto target_cleanup;
        }
        target->checksum_idx_counter = 0;
    }

    target->writers = malloc(nwriters * sizeof(void*));
    if (target->writers == NULL) {
        ret = ISO_OUT_OF_MEM;
        goto target_cleanup;
    }

    /* create writer for ECMA-119 structure */
    ret = ecma119_writer_create(target);
    if (ret < 0) {
        goto target_cleanup;
    }

    /* create writer for El-Torito */
    if (target->eltorito) {
        ret = eltorito_writer_create(target);
        if (ret < 0) {
            goto target_cleanup;
        }
    }

    /* create writer for Joliet structure */
    if (opts->joliet) {
        ret = joliet_writer_create(target);
        if (ret < 0) {
            goto target_cleanup;
        }
    }

    /* create writer for ISO 9660:1999 structure */
    if (opts->iso1999) {
        ret = iso1999_writer_create(target);
        if (ret < 0) {
            goto target_cleanup;
        }
    }

    voldesc_size = target->curblock - opts->ms_block - 16;

    /* Volume Descriptor Set Terminator */
    target->curblock++;

    /* All empty files point to the Volume Descriptor Set Terminator
     * rather than to addresses of non-empty files.
     */
    target->empty_file_block = target->curblock - 1;

    /*
     * Create the writer for possible padding to ensure that in case of image
     * growing we can safely overwrite the first 64 KiB of image.
     */
    ret = mspad_writer_create(target);
    if (ret < 0) {
        goto target_cleanup;
    }

    /* The writer for MBR and GPT partitions outside iso_file_src.
     * If PreP or FAT are desired, it creates MBR partition entries and
     * surrounding protecting partition entries.
     * If EFI boot partition is desired, it creates a GPT entry for it.
     */
     ret = partprepend_writer_create(target);
    if (ret < 0)
        goto target_cleanup;

    /* create writer for HFS+/FAT structure */
    /* Impotant: It must be created directly before iso_file_src_writer_create.
    */
    if (opts->hfsplus || opts->fat) {
        ret = hfsplus_writer_create(target);
        if (ret < 0) {
            goto target_cleanup;
        }
    }

    /* create writer for file contents */
    ret = iso_file_src_writer_create(target);
    if (ret < 0) {
        goto target_cleanup;
    }
    file_src_writer_index = target->nwriters - 1;

    /* create writer for HFS+ structure */
    if (opts->hfsplus || opts->fat) {
        ret = hfsplus_tail_writer_create(target);
        if (ret < 0) {
            goto target_cleanup;
        }
    }

/* >>> Decide whether the GPT tail writer can be the last of all
*/
#define Libisofs_gpt_writer_lasT yes

#ifndef Libisofs_gpt_writer_lasT
    /* This writer has to be added to the list after any writer which might
       request production of APM or GPT partition entries by its
       compute_data_blocks() method. Its compute_data_blocks() fills the gaps
       in APM requests. It determines the position of primary GPT and
       backup GPT. Further it reserves blocks for the backup GPT.
    */
    ret = gpt_tail_writer_create(target);
    if (ret < 0)
        goto target_cleanup;
#endif /* ! Libisofs_gpt_writer_lasT */

    if ((opts->md5_file_checksums & 1) || opts->md5_session_checksum) {
        ret = checksum_writer_create(target);
        if (ret < 0)
            goto target_cleanup;
    }

#ifdef Libisofs_part_align_writeR

    /* Alignment padding before appended partitions */
    ret = zero_writer_create(target, 0, 2);

#else
    
    ret = zero_writer_create(target, opts->tail_blocks, 1);

#endif /* ! Libisofs_part_align_writeR */

    if (ret < 0)
        goto target_cleanup;

#ifdef Libisofs_appended_partitions_inlinE

    ret = partappend_writer_create(target);
    if (ret < 0) 
        goto target_cleanup;

#endif /* Libisofs_appended_partitions_inlinE */

#ifdef Libisofs_part_align_writeR

    ret = zero_writer_create(target, opts->tail_blocks, 0);
    if (ret < 0)
        goto target_cleanup;

#endif /*  Libisofs_part_align_writeR */

#ifdef Libisofs_gpt_writer_lasT
    /* This writer shall be the last one in the list of writers of valuable
       data, because it protects the image on media which are seen as GPT
       partitioned.
       In any case it has to come after any writer which might request
       production of APM or GPT partition entries by its compute_data_blocks()
       method.
       gpt_tail_writer_compute_data_blocks() fills the gaps in APM requests.
       It determines the position of primary GPT and backup GPT.
       Further it reserves blocks for the backup GPT.
    */
    ret = gpt_tail_writer_create(target);
    if (ret < 0)
        goto target_cleanup;
#endif /* Libisofs_gpt_writer_lasT */

    if (opts->partition_offset > 0) {
        /* After volume descriptors and superblock tag are accounted for:
           account for second volset
        */
        if (opts->ms_block + opts->partition_offset + 16 < target->curblock) {
            /* Overflow of partition system area */
            ret = ISO_PART_OFFST_TOO_SMALL;
            goto target_cleanup;
        }
        target->curblock = opts->ms_block + opts->partition_offset + 16;

        /* Account for partition tree volume descriptors */
        for (i = 0; i < (int) target->nwriters; ++i) {
            /* Not all writers have an entry in the partition
               volume descriptor set.
            */
            writer = target->writers[i];

            /* >>> TWINTREE: Enhance ISO1999 writer and add it here */

            if(writer->write_vol_desc != ecma119_writer_write_vol_desc &&
               writer->write_vol_desc != joliet_writer_write_vol_desc)
        continue;
            target->curblock++;
        }
        target->curblock++; /* + Terminator */

        /* >>> TWINTREE: eventually later : second superblock checksum tag */;

    }


    /* At least the FAT computation needs to know the size of filesrc data
       in advance. So this call produces target->filesrc_blocks and
       relative extent addresses, which get absolute in
       filesrc_writer_compute_data_blocks().
    */
    ret = filesrc_writer_pre_compute(target->writers[file_src_writer_index]);
    if (ret < 0)
        goto target_cleanup;

    /*
     * 3.
     * Call compute_data_blocks() in each Writer.
     * That function computes the size needed by its structures and
     * increments image current block properly.
     */
    for (i = 0; i < (int) target->nwriters; ++i) {
        IsoImageWriter *writer = target->writers[i];

        if (target->gpt_backup_outside &&
            writer->write_vol_desc == gpt_tail_writer_write_vol_desc)
    continue;

        /* Exposing address of data start to IsoWriteOpts and memorizing
           this address for all files which have no block address: 
           symbolic links, device files, empty data files.
           filesrc_writer_compute_data_blocks() and filesrc_writer_write_data()
           will account resp. write this single block. 
        */
        if (i == file_src_writer_index) {
            if (! opts->old_empty)
                target->empty_file_block = target->curblock;
            in_opts->data_start_lba = opts->data_start_lba = target->curblock;
        }

        ret = writer->compute_data_blocks(writer);
        if (ret < 0) {
            goto target_cleanup;
        }

    }

    ret = iso_patch_eltoritos(target);
    if (ret < 0)
        goto target_cleanup;
    if (((target->system_area_options & 0xfc) >> 2) == 2) {
        ret = iso_read_mipsel_elf(target, 0);
        if (ret < 0)
            goto target_cleanup;
    }

    /*
     * The volume space size is just the size of the last session, in
     * case of ms images.
     */

#ifdef Libisofs_appended_partitions_inlinE

    app_part_count = iso_count_appended_partitions(target, &fap, &lap);
    if (app_part_count == 0)
       target->vol_space_size = target->curblock - opts->ms_block;
    else
       target->vol_space_size = target->alignment_end_block - opts->ms_block;

    target->total_size = (off_t) (target->curblock - opts->ms_block) *
                         BLOCK_SIZE;

#else /* Libisofs_appended_partitions_inlinE */

    target->vol_space_size = target->curblock - opts->ms_block;
    target->total_size = (off_t) target->vol_space_size * BLOCK_SIZE;

    /* Add sizes of eventually appended partitions */
    ret = iso_compute_append_partitions(target, 0);
    if (ret < 0)
        goto target_cleanup;

#endif /* ! Libisofs_appended_partitions_inlinE */

    if (target->gpt_backup_outside) {
        for (i = 0; i < (int) target->nwriters; ++i) {
            IsoImageWriter *writer = target->writers[i];

            if (writer->write_vol_desc != gpt_tail_writer_write_vol_desc)
        continue;
            ret = writer->compute_data_blocks(writer);
            if (ret < 0)
                goto target_cleanup;
        }
    }

    /* create the ring buffer */
    if (opts->overwrite != NULL &&
        opts->fifo_size < 32 + opts->partition_offset) {
        /* The ring buffer must be large enough to take opts->overwrite
        */
        ret = ISO_OVWRT_FIFO_TOO_SMALL;
        goto target_cleanup;
    }
    ret = iso_ring_buffer_new(opts->fifo_size, &target->buffer);
    if (ret < 0) {
        goto target_cleanup;
    }

    /* check if we need to provide a copy of volume descriptors */
    vol_space_size_mem = target->vol_space_size;
    if (opts->overwrite != NULL) {

        /* opts->overwrite must be larger by partion_offset
           This storage is provided by the application.
        */


        /*
         * In the PVM to be written in the 16th sector of the disc, we
         * need to specify the full size.
         */
        target->vol_space_size += opts->ms_block;

        /* System area and volume descriptors */
        target->opts_overwrite = (char *) opts->overwrite;
        total_size_mem = target->total_size;
        target->total_size += target->opts->ms_block * BLOCK_SIZE;
        ret = write_head_part1(target, &write_count, 1 | 2);
        target->opts_overwrite = NULL;
        target->total_size = total_size_mem;
        if (ret < 0)
            goto target_cleanup;

        /* copy the volume descriptors to the overwrite buffer... */
        voldesc_size *= BLOCK_SIZE;
        ret = iso_ring_buffer_read(target->buffer, opts->overwrite,
                                   write_count * BLOCK_SIZE);
        if (ret < 0) {
            iso_msg_debug(target->image->id,
                          "Error reading overwrite volume descriptors");
            goto target_cleanup;
        }

        /* Write relocated superblock checksum tag */
        tag_pos = voldesc_size / BLOCK_SIZE + 16 + 1;
        if (opts->md5_session_checksum) {
            target->checksum_rlsb_tag_pos = tag_pos;
            if (target->checksum_rlsb_tag_pos < 32) {
                ret = iso_md5_start(&(target->checksum_ctx));
                if (ret < 0)
                    goto target_cleanup;
                target->opts_overwrite = (char *) opts->overwrite;
                iso_md5_compute(target->checksum_ctx, target->opts_overwrite,
                                target->checksum_rlsb_tag_pos * 2048);
                ret = iso_md5_write_tag(target, 4);
                target->opts_overwrite = NULL; /* opts might not persist */
                if (ret < 0)
                    goto target_cleanup;
            }
            tag_pos++;
            write_count++;
        } 

        /* Clean out eventual obsolete checksum tags */
        for (i = tag_pos; i < 32; i++) {
            int tag_type;
            uint32_t pos, range_start, range_size, next_tag;
            char md5[16];
 	
            ret = iso_util_decode_md5_tag((char *)(opts->overwrite + i * 2048),
                                          &tag_type, &pos, &range_start,
                                          &range_size, &next_tag, md5, 0);
            if (ret > 0)
                opts->overwrite[i * 2048] = 0;
        }

        /* Write second set of volume descriptors */
        write_count_mem= write_count;
        ret = write_head_part2(target, &write_count, 0);
        if (ret < 0)
            goto target_cleanup;

        /* Read written data into opts->overwrite */
        ret = iso_ring_buffer_read(target->buffer,
                                opts->overwrite + write_count_mem * BLOCK_SIZE,
                                (write_count - write_count_mem) * BLOCK_SIZE);
        if (ret < 0) {
            iso_msg_debug(target->image->id,
                          "Error reading overwrite volume descriptors");
            goto target_cleanup;
        }

        /* Delete the filler partitions of GPT and APM so that write_function()
           can insert new ones for a possibly different total_size */;
        iso_delete_gpt_apm_fillers(target, 0);
    }

    /* This was possibly altered by above overwrite buffer production */
    target->vol_space_size = vol_space_size_mem;

/*
*/
#define Libisofs_print_size_no_forK 1

#ifdef Libisofs_print_size_no_forK
    if (opts->will_cancel) {
        iso_msg_debug(target->image->id,
      "Will not start write thread because of iso_write_opts_set_will_cancel");
        *img = target;
        return ISO_SUCCESS;
    }
#endif


    /* 4. Create and start writing thread */
    if (opts->md5_session_checksum) {
        /* After any fake writes are done: Initialize image checksum context */
        if (target->checksum_ctx != NULL)
            iso_md5_end(&(target->checksum_ctx), target->image_md5);
        ret = iso_md5_start(&(target->checksum_ctx));
        if (ret < 0)
            goto target_cleanup;
    }

    if (opts->apm_block_size == 0) {
        if (target->gpt_req_count)
            opts->apm_block_size = 2048; /* Combinable with GPT */
        else
            opts->apm_block_size = 512; /* Mountable on Linux */
    }

    /* ensure the thread is created joinable */
    pthread_attr_init(&(target->th_attr));
    pthread_attr_setdetachstate(&(target->th_attr), PTHREAD_CREATE_JOINABLE);

    /* To avoid race conditions with the caller, this mark must be set
       before the thread starts. So the caller can rely on a value of 0
       really meaning that the write has ended, and not that it might not have
       begun yet.
       In normal processing, the value will be changed to 0 at the end of
       write_function().
    */
    target->image->generator_is_running = 1;


    /* Claim that target may not get destroyed by bs_free_data() before
       write_function() is done with it */
    target->refcount++;

    ret = pthread_create(&(target->wthread), &(target->th_attr),
                         write_function, (void *) target);
    if (ret != 0) {
        target->refcount--;
        iso_msg_submit(target->image->id, ISO_THREAD_ERROR, 0,
                      "Cannot create writer thread");
        ret = ISO_THREAD_ERROR;
        goto target_cleanup;
    }
    target->wthread_is_running= 1;

    /*
     * Notice that once we reach this point, target belongs to the writer
     * thread and should not be modified until the writer thread finished.
     * There're however, specific fields in target that can be accessed, or
     * even modified by the read thread (look inside bs_* functions)
     */

    if (target->joliet_symlinks > 0) {
        iso_msg_submit(target->image->id, ISO_FILE_IGNORED, 0,
                      "Number of symbolic links omitted from Joliet tree: %lu",
                      target->joliet_symlinks);
    }
    if (target->joliet_specials > 0) {
        iso_msg_submit(target->image->id, ISO_FILE_IGNORED, 0,
                       "Number of special files omitted from Joliet tree: %lu",
                        target->joliet_specials);
    }
    if (target->iso1999_symlinks > 0) {
        iso_msg_submit(target->image->id, ISO_FILE_IGNORED, 0,
               "Number of symbolic links omitted from ISO 9660:1999 tree: %lu",
                       target->iso1999_symlinks);
    }
    if (target->iso1999_specials > 0) {
        iso_msg_submit(target->image->id, ISO_FILE_IGNORED, 0,
                "Number of special files omitted from ISO 9660:1999 tree: %lu",
                       target->iso1999_specials);
    }
    *img = target;
    return ISO_SUCCESS;

target_cleanup: ;
    target->image->generator_is_running = 0;
    ecma119_image_free(target);
    return ret;
}

static int bs_read(struct burn_source *bs, unsigned char *buf, int size)
{
    int ret;
    Ecma119Image *t = (Ecma119Image*)bs->data;

    ret = iso_ring_buffer_read(t->buffer, buf, size);
    if (ret == ISO_SUCCESS) {
        return size;
    } else if (ret < 0) {
        /* error */
        iso_msg_submit(t->image->id, ISO_BUF_READ_ERROR, ret, NULL);
        return -1;
    } else {
        /* EOF */
        return 0;
    }
}

static off_t bs_get_size(struct burn_source *bs)
{
    Ecma119Image *target = (Ecma119Image*)bs->data;
    return target->total_size;
}

static void bs_free_data(struct burn_source *bs)
{
    int st;
    Ecma119Image *target = (Ecma119Image*)bs->data;

    st = iso_ring_buffer_get_status(bs, NULL, NULL);

    /* was read already finished (i.e, canceled)? */
    if (st < 4) {
        /* forces writer to stop if it is still running */
        iso_ring_buffer_reader_close(target->buffer, 0);

        /* wait until writer thread finishes */
        if (target->wthread_is_running) {
            pthread_join(target->wthread, NULL);
            target->wthread_is_running = 0;
            iso_msg_debug(target->image->id, "Writer thread joined");
        }
    }

    iso_msg_debug(target->image->id,
                  "Ring buffer was %d times full and %d times empty",
                  iso_ring_buffer_get_times_full(target->buffer),
                  iso_ring_buffer_get_times_empty(target->buffer));

    /* The reference to target was inherited from ecma119_image_new() */
    ecma119_image_free(target);
}

static
int bs_cancel(struct burn_source *bs)
{
    int st;
    size_t cap, free;
    Ecma119Image *target = (Ecma119Image*)bs->data;

    st = iso_ring_buffer_get_status(bs, &cap, &free);

    if (free == cap && (st == 2 || st == 3)) {
        /* image was already consumed */
        iso_ring_buffer_reader_close(target->buffer, 0);
    } else {
        iso_msg_debug(target->image->id, "Reader thread being cancelled");

        /* forces writer to stop if it is still running */
        iso_ring_buffer_reader_close(target->buffer, ISO_CANCELED);
    }

    /* wait until writer thread finishes */
    if (target->wthread_is_running) {
        pthread_join(target->wthread, NULL);
        target->wthread_is_running = 0;
        iso_msg_debug(target->image->id, "Writer thread joined");
    }
    return ISO_SUCCESS;
}

static
int bs_set_size(struct burn_source *bs, off_t size)
{
    Ecma119Image *target = (Ecma119Image*)bs->data;

    target->total_size = size;
    return 1;
}

static
int dive_to_depth_8(IsoDir *dir, int depth)
{
    int ret;
    IsoNode *pos;

    if (depth >= 8)
        return 1;
    pos = dir->children;
    for (pos = dir->children; pos != NULL; pos = pos->next) {
        if (pos->type != LIBISO_DIR)
    continue;
        ret = dive_to_depth_8((IsoDir *) pos, depth + 1);
        if (ret != 0)
            return ret;
    }
    return 0;
}

static
int make_reloc_dir_if_needed(IsoImage *img, IsoWriteOpts *opts, int flag)
{
    int ret;
    IsoDir *dir;

    /* Two forms to express the root directory */
    if (opts->rr_reloc_dir == NULL)
        return 1;
    if (opts->rr_reloc_dir[0] == 0)
        return 1;

    if (strchr(opts->rr_reloc_dir, '/') != NULL)
        return 0;

    /* Check existence of opts->rr_reloc_dir */
    ret = iso_dir_get_node(img->root, opts->rr_reloc_dir, NULL);
    if (ret > 0)
        return 1;
    if (ret < 0)
        return ret;

    /* Check whether there is a directory of depth 8 (root is depth 1) */
    ret = dive_to_depth_8(img->root, 1);
    if (ret < 0)
        return ret;
    if (ret == 0)
        return 1;

    /* Make IsoDir with same permissions as root directory */
    ret = iso_tree_add_new_dir(img->root, opts->rr_reloc_dir, &dir);
    if (ret < 0)
        return ret;

    opts->rr_reloc_flags |= 2; /* Auto-created relocation directory */

    return 1;
}

int iso_image_create_burn_source(IsoImage *image, IsoWriteOpts *opts,
                                 struct burn_source **burn_src)
{
    int ret;
    struct burn_source *source;
    Ecma119Image *target= NULL;

    if (image == NULL || opts == NULL || burn_src == NULL) {
        return ISO_NULL_POINTER;
    }

    source = calloc(1, sizeof(struct burn_source));
    if (source == NULL) {
        return ISO_OUT_OF_MEM;
    }

    if (!opts->allow_deep_paths) { 
        ret = make_reloc_dir_if_needed(image, opts, 0);
        if (ret < 0) {
            free(source);
            return ret;
        }
    }

    ret = ecma119_image_new(image, opts, &target);
    if (ret < 0) {
        free(source);
        return ret;
    }

    source->refcount = 1;
    source->version = 1;
    source->read = NULL;
    source->get_size = bs_get_size;
    source->set_size = bs_set_size;
    source->free_data = bs_free_data;
    source->read_xt = bs_read;
    source->cancel = bs_cancel;
    source->data = target;

    *burn_src = source;
    return ISO_SUCCESS;
}

int iso_write(Ecma119Image *target, void *buf, size_t count)
{
    int ret;

    if (target->bytes_written + (off_t) count > target->total_size) {
        iso_msg_submit(target->image->id, ISO_ASSERT_FAILURE, 0,
                       "ISO overwrite");
        return ISO_ASSERT_FAILURE;
    }

    ret = iso_ring_buffer_write(target->buffer, buf, count);
    if (ret == 0) {
        /* reader cancelled */
        return ISO_CANCELED;
    }
    if (ret < 0)
        return ret;
    if (target->checksum_ctx != NULL) {
        /* Add to image checksum */
        target->checksum_counter += count;
        iso_md5_compute(target->checksum_ctx, (char *) buf, (int) count);
    }

    ret = show_chunk_to_jte(target, buf, count);
    if (ret != ISO_SUCCESS)
        return ret;

    /* total size is 0 when writing the overwrite buffer */
    if (target->total_size != (off_t) 0){
        unsigned int kbw, kbt;
        int percent;

        target->bytes_written += (off_t) count;
        kbw = (unsigned int) (target->bytes_written >> 10);
        kbt = (unsigned int) (target->total_size >> 10);
        percent = (kbw * 100) / kbt;

        /* only report in 5% chunks */
        if (percent >= target->percent_written + 5) {
            iso_msg_debug(target->image->id, "Processed %u of %u KB (%d %%)",
                          kbw, kbt, percent);
            target->percent_written = percent;
        }
    }

    return ISO_SUCCESS;
}

int iso_write_opts_new(IsoWriteOpts **opts, int profile)
{
    int i;
    IsoWriteOpts *wopts;

    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (profile < 0 || profile > 2) {
        return ISO_WRONG_ARG_VALUE;
    }

    wopts = calloc(1, sizeof(IsoWriteOpts));
    if (wopts == NULL) {
        return ISO_OUT_OF_MEM;
    }
    wopts->scdbackup_tag_written = NULL;

    switch (profile) {
    case 0:
        wopts->iso_level = 1;
        break;
    case 1:
        wopts->iso_level = 3;
        wopts->rockridge = 1;
        break;
    case 2:
        wopts->iso_level = 2;
        wopts->rockridge = 1;
        wopts->joliet = 1;
        wopts->replace_dir_mode = 1;
        wopts->replace_file_mode = 1;
        wopts->replace_uid = 1;
        wopts->replace_gid = 1;
        wopts->replace_timestamps = 1;
        wopts->always_gmt = 1;
        break;
    default:
        /* should never happen */
        free(wopts);
        return ISO_ASSERT_FAILURE;
        break;
    }
    wopts->hfsplus = 0;
    wopts->fat = 0;
    wopts->fifo_size = 1024; /* 2 MB buffer */
    wopts->sort_files = 1; /* file sorting is always good */
    wopts->joliet_utf16 = 0;
    wopts->rr_reloc_dir = NULL;
    wopts->rr_reloc_flags = 0;
    wopts->system_area_data = NULL;
    wopts->system_area_size = 0;
    wopts->system_area_options = 0;
    wopts->vol_creation_time = 0;
    wopts->vol_modification_time = 0;
    wopts->vol_expiration_time = 0;
    wopts->vol_effective_time = 0;
    memset(wopts->vol_uuid, 0, 17);
    wopts->partition_offset = 0;
    wopts->partition_secs_per_head = 0;
    wopts->partition_heads_per_cyl = 0;

#ifdef Libisofs_with_libjtE
    wopts->libjte_handle = NULL;
#endif /* Libisofs_with_libjtE */

    wopts->tail_blocks = 0;
    wopts->prep_partition = NULL;
    wopts->prep_part_flag = 0;
    wopts->efi_boot_partition = NULL;
    wopts->efi_boot_part_flag = 0;
    for (i = 0; i < ISO_MAX_PARTITIONS; i++) {
        wopts->appended_partitions[i] = NULL;
        wopts->appended_part_types[i] = 0;
        wopts->appended_part_flags[i] = 0;
        memset(wopts->appended_part_type_guids[i], 0, 16);
        wopts->appended_part_gpt_flags[i] = 0;
    }
    wopts->appended_as_gpt = 0;
    wopts->appended_as_apm = 0;
    wopts->part_like_isohybrid = 0;
    wopts->iso_mbr_part_type = -1;
    memset(wopts->iso_gpt_type_guid, 0, 16);
    wopts->iso_gpt_flag= 0;
    wopts->ascii_disc_label[0] = 0;
    wopts->will_cancel = 0;
    wopts->allow_dir_id_ext = 0;
    wopts->old_empty = 0;
    wopts->untranslated_name_len = 0;
    for (i = 0; i < 8; i++)
        wopts->hfsp_serial_number[i] = 0;
    wopts->apm_block_size = 0;
    wopts->hfsp_block_size = 0;
    memset(wopts->gpt_disk_guid, 0, 16);
    wopts->gpt_disk_guid_mode = 0;
    wopts->max_ce_entries = 31; /* Linux hates >= RR_MAX_CE_ENTRIES = 32 */
    wopts->max_ce_drop_attr = 2; /* If needed drop non-isofs fattr and ACL */

    *opts = wopts;
    return ISO_SUCCESS;
}

int iso_write_opts_clone(IsoWriteOpts *in, IsoWriteOpts **out, int flag)
{
    int ret, i;
    IsoWriteOpts *o = NULL;

    ret = iso_write_opts_new(&o, 0);
    if (ret != 1)
        return ret;
    *out = o;

    /* Provisory copy of all values and un-managed pointers */
    memcpy(o, in, sizeof(IsoWriteOpts));

    /* Set managed pointers to NULL */
    o->output_charset = NULL;
    o->rr_reloc_dir = NULL;
    o->system_area_data = NULL;
    o->prep_partition = NULL;
    o->efi_boot_partition = NULL;
    for (i = 0; i < ISO_MAX_PARTITIONS; i++)
        o->appended_partitions[i] = NULL;

    /* Clone managed objects */
    if (iso_clone_mem(in->output_charset, &(o->output_charset), 0) != 1)
        goto out_of_mem;
    if (iso_clone_mem(in->rr_reloc_dir, &(o->rr_reloc_dir), 0) != 1)
        goto out_of_mem;
    if (iso_clone_mem(in->system_area_data, &(o->system_area_data),
                      in->system_area_size) != 1)
        goto out_of_mem;
    if (iso_clone_mem(in->prep_partition, &(o->prep_partition), 0) != 1)
        goto out_of_mem;
    if (iso_clone_mem(in->efi_boot_partition, &(o->efi_boot_partition), 0)
        != 1)
        goto out_of_mem;
    for (i = 0; i < ISO_MAX_PARTITIONS; i++)
        if (iso_clone_mem(in->appended_partitions[i],
                          &(o->appended_partitions[i]), 0) != 1)
            goto out_of_mem;

    return ISO_SUCCESS;

out_of_mem:;
    iso_write_opts_free(o);
    return ISO_OUT_OF_MEM;
}

void iso_write_opts_free(IsoWriteOpts *opts)
{
    int i;

    if (opts == NULL) {
        return;
    }
    free(opts->output_charset);
    if (opts->rr_reloc_dir != NULL)
        free(opts->rr_reloc_dir);
    if (opts->system_area_data != NULL)
        free(opts->system_area_data);
    if (opts->prep_partition != NULL)
        free(opts->prep_partition);
    if (opts->efi_boot_partition != NULL)
        free(opts->efi_boot_partition);
    for (i = 0; i < ISO_MAX_PARTITIONS; i++)
        if (opts->appended_partitions[i] != NULL)
            free(opts->appended_partitions[i]);

    free(opts);
}

int iso_write_opts_set_will_cancel(IsoWriteOpts *opts, int will_cancel)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->will_cancel = !!will_cancel;
    return ISO_SUCCESS;
}

int iso_write_opts_set_iso_level(IsoWriteOpts *opts, int level)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (level != 1 && level != 2 && level != 3) {
        return ISO_WRONG_ARG_VALUE;
    }
    opts->iso_level = level;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rockridge(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->rockridge = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_joliet(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->joliet = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_hfsplus(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->hfsplus = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_fat(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->fat = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_iso1999(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->iso1999 = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_hardlinks(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->hardlinks = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_aaip(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->aaip = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_old_empty(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->old_empty = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_untranslated_name_len(IsoWriteOpts *opts, int len)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (len == -1)
        opts->untranslated_name_len = ISO_UNTRANSLATED_NAMES_MAX;
    else if(len == 0)
        opts->untranslated_name_len = 0;
    else if(len > ISO_UNTRANSLATED_NAMES_MAX || len < 0)
        return ISO_WRONG_ARG_VALUE;
    else
        opts->untranslated_name_len = len;
    return opts->untranslated_name_len;
}

int iso_write_opts_set_allow_dir_id_ext(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_dir_id_ext = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_omit_version_numbers(IsoWriteOpts *opts, int omit)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->omit_version_numbers = omit & 3;
    return ISO_SUCCESS;
}

int iso_write_opts_set_allow_deep_paths(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_deep_paths = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_allow_longer_paths(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_longer_paths = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_max_37_char_filenames(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->max_37_char_filenames = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_no_force_dots(IsoWriteOpts *opts, int no)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->no_force_dots = no & 3;
    return ISO_SUCCESS;
}

int iso_write_opts_set_allow_lowercase(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_lowercase = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_allow_full_ascii(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_full_ascii = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_allow_7bit_ascii(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->allow_7bit_ascii = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_relaxed_vol_atts(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->relaxed_vol_atts = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_relaxed_nonvol_atts(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->relaxed_nonvol_atts = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_joliet_longer_paths(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->joliet_longer_paths = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_joliet_long_names(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->joliet_long_names = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_joliet_utf16(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->joliet_utf16 = allow ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rrip_version_1_10(IsoWriteOpts *opts, int oldvers)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->rrip_version_1_10 = oldvers ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rrip_1_10_px_ino(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->rrip_1_10_px_ino = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rrip_tf_long(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->rrip_tf_long = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rrip_tf_y1900(IsoWriteOpts *opts, int enable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->rrip_tf_y1900 = enable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_aaip_susp_1_10(IsoWriteOpts *opts, int oldvers)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->aaip_susp_1_10 = oldvers ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_dir_rec_mtime(IsoWriteOpts *opts, int allow)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (allow < 0)
        allow = 1;
    else if (allow & (1 << 14))
        allow &= ~1;
    else if (allow & 6)
        allow |= 1;
    opts->dir_rec_mtime = allow & 7;
    return ISO_SUCCESS;
}

int iso_write_opts_set_rr_reloc(IsoWriteOpts *opts, char *name, int flags)
{
    if (opts->rr_reloc_dir != name) {
        if (opts->rr_reloc_dir != NULL)
            free(opts->rr_reloc_dir);
        opts->rr_reloc_dir = NULL;
        if (name != NULL) {
            opts->rr_reloc_dir = strdup(name);
            if (opts->rr_reloc_dir == NULL)
                return ISO_OUT_OF_MEM;
        }
    }
    opts->rr_reloc_flags = flags & 1;
    return ISO_SUCCESS;
}

int iso_write_opts_set_sort_files(IsoWriteOpts *opts, int sort)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->sort_files = sort ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_record_md5(IsoWriteOpts *opts, int session, int files)
{
    opts->md5_session_checksum = session & 1;
    opts->md5_file_checksums = files & 3;
    return ISO_SUCCESS;
}

int iso_write_opts_set_scdbackup_tag(IsoWriteOpts *opts,
                                     char *name, char *timestamp,
                                     char *tag_written)
{
    char eff_name[81], eff_time[19];
    int i;

    for (i = 0; name[i] != 0 && i < 80; i++)
         if (isspace((int) ((unsigned char *) name)[i]))
             eff_name[i] = '_';
         else
             eff_name[i] = name[i];
    if (i == 0)
        eff_name[i++] = '_';
    eff_name[i] = 0;
    for (i = 0; timestamp[i] != 0 && i < 18; i++)
         if (isspace((int) ((unsigned char *) timestamp)[i]))
             eff_time[i] = '_';
         else
             eff_time[i] = timestamp[i];
    if (i == 0)
        eff_time[i++] = '_';
    eff_time[i] = 0;

    sprintf(opts->scdbackup_tag_parm, "%s %s", eff_name, eff_time);

    opts->scdbackup_tag_written = tag_written;
    if (tag_written != NULL)
        tag_written[0] = 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_replace_mode(IsoWriteOpts *opts, int dir_mode,
                                    int file_mode, int uid, int gid)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (dir_mode < 0 || dir_mode > 2) {
        return ISO_WRONG_ARG_VALUE;
    }
    if (file_mode < 0 || file_mode > 2) {
        return ISO_WRONG_ARG_VALUE;
    }
    if (uid < 0 || uid > 2) {
        return ISO_WRONG_ARG_VALUE;
    }
    if (gid < 0 || gid > 2) {
        return ISO_WRONG_ARG_VALUE;
    }
    opts->replace_dir_mode = dir_mode;
    opts->replace_file_mode = file_mode;
    opts->replace_uid = uid;
    opts->replace_gid = gid;
    return ISO_SUCCESS;
}

int iso_write_opts_set_default_dir_mode(IsoWriteOpts *opts, mode_t dir_mode)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->dir_mode = dir_mode;
    return ISO_SUCCESS;
}

int iso_write_opts_set_default_file_mode(IsoWriteOpts *opts, mode_t file_mode)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->file_mode = file_mode;
    return ISO_SUCCESS;
}

int iso_write_opts_set_default_uid(IsoWriteOpts *opts, uid_t uid)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->uid = uid;
    return ISO_SUCCESS;
}

int iso_write_opts_set_default_gid(IsoWriteOpts *opts, gid_t gid)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->gid = gid;
    return ISO_SUCCESS;
}

int iso_write_opts_set_replace_timestamps(IsoWriteOpts *opts, int replace)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (replace < 0 || replace > 2) {
        return ISO_WRONG_ARG_VALUE;
    }
    opts->replace_timestamps = replace;
    return ISO_SUCCESS;
}

int iso_write_opts_set_default_timestamp(IsoWriteOpts *opts, time_t timestamp)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->timestamp = timestamp;
    return ISO_SUCCESS;
}

int iso_write_opts_set_always_gmt(IsoWriteOpts *opts, int gmt)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->always_gmt = gmt ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_output_charset(IsoWriteOpts *opts, const char *charset)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->output_charset = charset ? strdup(charset) : NULL;
    return ISO_SUCCESS;
}

int iso_write_opts_set_appendable(IsoWriteOpts *opts, int appendable)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->appendable = appendable ? 1 : 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_ms_block(IsoWriteOpts *opts, uint32_t ms_block)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->ms_block = ms_block;
    return ISO_SUCCESS;
}

int iso_write_opts_set_overwrite_buf(IsoWriteOpts *opts, uint8_t *overwrite)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    opts->overwrite = overwrite;
    return ISO_SUCCESS;
}

int iso_write_opts_set_fifo_size(IsoWriteOpts *opts, size_t fifo_size)
{
    if (opts == NULL) {
        return ISO_NULL_POINTER;
    }
    if (fifo_size < 32) {
        return ISO_WRONG_ARG_VALUE;
    }
    opts->fifo_size = fifo_size;
    return ISO_SUCCESS;
}

int iso_write_opts_get_data_start(IsoWriteOpts *opts, uint32_t *data_start,
                                  int flag)
{
    if (opts->data_start_lba == 0)
	return ISO_ERROR;
    *data_start = opts->data_start_lba;
    return ISO_SUCCESS;
}

/*
 * @param data     Either NULL or 32 kB of data. Do not submit less bytes !
 * @param options 
 *        Can cause manipulations of submitted data before they get written:
 *        bit0= apply a --protective-msdos-label as of grub-mkisofs.
 *              This means to patch bytes 446 to 512 of the system area so
 *              that one partition is defined which begins at the second
 *              512-byte block of the image and ends where the image ends.
 *              This works with and without system_area_data.
 *        bit1= apply isohybrid MBR patching to the system area.
 *              This works only with system area data from SYSLINUX plus an
 *              ISOLINUX boot image (see iso_image_set_boot_image()) and
 *              only if not bit0 is set.
 *        bit2-7= System area type
 *        bit8-9= Only with System area type 0 = MBR
 *                Cylinder alignment mode
 *        bit10-13= System area sub type
 * @param flag     bit0 = invalidate any attached system area data
 *                        same as data == NULL
 *                 bit1 = keep data unaltered
 *                 bit2 = keep options unaltered
 */
int iso_write_opts_set_system_area(IsoWriteOpts *opts, char data[32768],
                                   int options, int flag)
{
    if (data == NULL || (flag & 1)) { /* Disable */
        if (opts->system_area_data != NULL)
            free(opts->system_area_data);
        opts->system_area_data = NULL;
        opts->system_area_size = 0;
    } else if (!(flag & 2)) {
        if (opts->system_area_data == NULL) {
            opts->system_area_data = calloc(32768, 1);
            if (opts->system_area_data == NULL)
                return ISO_OUT_OF_MEM;
        }
        memcpy(opts->system_area_data, data, 32768);
        opts->system_area_size = 32768;
    }
    if (!(flag & 4))
        opts->system_area_options = options & 0x3ffff;
    return ISO_SUCCESS;
}

int iso_write_opts_set_pvd_times(IsoWriteOpts *opts, 
                        time_t vol_creation_time, time_t vol_modification_time,
                        time_t vol_expiration_time, time_t vol_effective_time,
                        char *vol_uuid)
{
    opts->vol_creation_time = vol_creation_time;
    opts->vol_modification_time = vol_modification_time;
    opts->vol_expiration_time = vol_expiration_time;
    opts->vol_effective_time = vol_effective_time;
    strncpy(opts->vol_uuid, vol_uuid, 16);
    opts->vol_uuid[16] = 0;
    return ISO_SUCCESS;
}

int iso_write_opts_set_part_offset(IsoWriteOpts *opts,
                                   uint32_t block_offset_2k,
                                   int secs_512_per_head, int heads_per_cyl)
{
    if (block_offset_2k > 0 && block_offset_2k < 16)
        return ISO_PART_OFFST_TOO_SMALL;
    opts->partition_offset = block_offset_2k;
    opts->partition_secs_per_head = secs_512_per_head;
    opts->partition_heads_per_cyl = heads_per_cyl;
    return ISO_SUCCESS;
}

int iso_write_opts_attach_jte(IsoWriteOpts *opts, void *libjte_handle)
{
#ifdef Libisofs_with_libjtE

    opts->libjte_handle = libjte_handle;
    return ISO_SUCCESS;

#else

    return ISO_LIBJTE_NOT_ENABLED;

#endif /* Libisofs_with_libjtE */
}

int iso_write_opts_detach_jte(IsoWriteOpts *opts, void **libjte_handle)
{
#ifdef Libisofs_with_libjtE

    if (*libjte_handle != NULL)
        *libjte_handle = opts->libjte_handle;
    opts->libjte_handle = NULL;
    return ISO_SUCCESS;

#else

    return ISO_LIBJTE_NOT_ENABLED;

#endif /* Libisofs_with_libjtE */
}
 
int iso_write_opts_set_tail_blocks(IsoWriteOpts *opts, uint32_t num_blocks)
{
    opts->tail_blocks = num_blocks;
    return ISO_SUCCESS;
}

int iso_write_opts_set_prep_img(IsoWriteOpts *opts, char *image_path, int flag)
{
    if (opts->prep_partition != NULL)
        free(opts->prep_partition);
    if (image_path == NULL)
        return ISO_SUCCESS;
    opts->prep_partition = strdup(image_path);
    if (opts->prep_partition == NULL)
        return ISO_OUT_OF_MEM;
    opts->prep_part_flag = (flag & 1);
    return ISO_SUCCESS;
}

int iso_write_opts_set_efi_bootp(IsoWriteOpts *opts, char *image_path, 
                                 int flag)
{
    if (opts->efi_boot_partition != NULL)
        free(opts->efi_boot_partition);
    if (image_path == NULL)
        return ISO_SUCCESS;
    opts->efi_boot_partition = strdup(image_path);
    if (opts->efi_boot_partition == NULL)
        return ISO_OUT_OF_MEM;
    opts->efi_boot_part_flag = (flag & 1);
    return ISO_SUCCESS;
}

int iso_write_opts_set_partition_img(IsoWriteOpts *opts, int partition_number,
                            uint8_t partition_type, char *image_path, int flag)
{
    if (partition_number < 1 || partition_number > ISO_MAX_PARTITIONS)
        return ISO_BAD_PARTITION_NO;
    if (opts->appended_partitions[partition_number - 1] != NULL)
        free(opts->appended_partitions[partition_number - 1]);
    if (image_path == NULL)
        return ISO_SUCCESS;
    opts->appended_partitions[partition_number - 1] = strdup(image_path);
    if (opts->appended_partitions[partition_number - 1] == NULL)
        return ISO_OUT_OF_MEM;
    opts->appended_part_types[partition_number - 1] = partition_type;
    opts->appended_part_flags[partition_number - 1] = (flag & 1);
    return ISO_SUCCESS;
}

int iso_write_opts_set_part_type_guid(IsoWriteOpts *opts, int partition_number,
                                      uint8_t guid[16], int valid)
{
    if (partition_number < 1 || partition_number > ISO_MAX_PARTITIONS)
        return ISO_BAD_PARTITION_NO;
    if (valid)
        memcpy(opts->appended_part_type_guids[partition_number - 1], guid, 16);
    if (valid)
        opts->appended_part_gpt_flags[partition_number - 1]|= 1;
    else
        opts->appended_part_gpt_flags[partition_number - 1]&= ~1;
    return ISO_SUCCESS;
}

int iso_write_opts_set_appended_as_gpt(IsoWriteOpts *opts, int gpt)
{
    opts->appended_as_gpt = !!gpt;
    return ISO_SUCCESS;
}

int iso_write_opts_set_appended_as_apm(IsoWriteOpts *opts, int apm)
{
    opts->appended_as_apm = !!apm;
    return ISO_SUCCESS;
}

int iso_write_opts_set_part_like_isohybrid(IsoWriteOpts *opts, int alike)
{
    opts->part_like_isohybrid = !!alike;
    return ISO_SUCCESS;
}

int iso_write_opts_set_iso_mbr_part_type(IsoWriteOpts *opts, int part_type)
{
    if (part_type < -1 || part_type > 255)
        part_type = -1;
    opts->iso_mbr_part_type = part_type;
    return ISO_SUCCESS;
}

int iso_write_opts_set_iso_type_guid(IsoWriteOpts *opts, uint8_t guid[16],
                                     int valid)
{
    if (valid)
        memcpy(opts->iso_gpt_type_guid, guid, 16);
    opts->iso_gpt_flag = (opts->iso_gpt_flag & ~1) | !!valid;
    return ISO_SUCCESS;
}

int iso_write_opts_set_gpt_with_gaps(IsoWriteOpts *opts, int with_gaps,
                                  int with_gaps_no_sort, int with_gaps_no_iso)
{
    opts->iso_gpt_flag &= ~(2 | 4 | 8);
    opts->iso_gpt_flag |= (!!with_gaps) << 1;
    opts->iso_gpt_flag |= (!!with_gaps_no_sort) << 2;
    opts->iso_gpt_flag |= (!!with_gaps_no_iso) << 3;
    return ISO_SUCCESS;
}

int iso_write_opts_set_disc_label(IsoWriteOpts *opts, char *label)
{
    strncpy(opts->ascii_disc_label, label, ISO_DISC_LABEL_SIZE - 1);
    opts->ascii_disc_label[ISO_DISC_LABEL_SIZE - 1] = 0;
    return ISO_SUCCESS;
}
 
int iso_write_opts_set_hfsp_serial_number(IsoWriteOpts *opts,
                                          uint8_t serial_number[8])
{
    memcpy(opts->hfsp_serial_number, serial_number, 8);
    return ISO_SUCCESS;
}
 
int iso_write_opts_set_hfsp_block_size(IsoWriteOpts *opts, 
                                     int hfsp_block_size, int apm_block_size)
{
    if (hfsp_block_size != 0 && hfsp_block_size != 512 &&
        hfsp_block_size != 2048)
        return ISO_BOOT_HFSP_BAD_BSIZE;
    opts->hfsp_block_size = hfsp_block_size;
    if (apm_block_size != 0 && apm_block_size != 512 && apm_block_size != 2048)
        return ISO_BOOT_HFSP_BAD_BSIZE;
    opts->apm_block_size = apm_block_size;
    return ISO_SUCCESS;
}

int iso_write_opts_set_gpt_guid(IsoWriteOpts *opts, uint8_t guid[16], int mode)
{
    if (mode < 0 || mode > 2)
        return ISO_BAD_GPT_GUID_MODE;
    opts->gpt_disk_guid_mode = mode;
    if (opts->gpt_disk_guid_mode == 1)
        memcpy(opts->gpt_disk_guid, guid, 16);
    return ISO_SUCCESS;
}

int iso_write_opts_set_max_ce_entries(IsoWriteOpts *opts, uint32_t num,
                                      int flag)
{
    if (num > 100000)
        return ISO_TOO_MANY_CE;
    if (num == 0)
        num = 1;
    opts->max_ce_entries = num;
    opts->max_ce_drop_attr = flag & 15;
    return ISO_SUCCESS;
}

/*
 * @param flag
 *      Bitfield for control purposes.
 *        bit0-bit7= Name space
 *                   0= generic (to_charset is valid, no reserved characters,
 *                               no length limits)
 *                   1= Rock Ridge (to_charset is valid)
 *                   2= Joliet (to_charset gets overridden by UCS-2 or UTF-16)
 *                   3= ECMA-119 (dull ISO 9660 character set)
 *                   4= HFS+ (to_charset gets overridden by UTF-16BE) 
 *        bit8=  Treat input text as directory name
 *               (matters for Joliet and ECMA-119)
 *        bit9=  Do not issue error messages
 *        bit15= Reverse operation (best to be done only with results of
 *               previous conversions)
 */
int iso_conv_name_chars(IsoWriteOpts *opts, char *in_name, size_t name_len,
                        char **result, size_t *result_len, int flag)
{
    int name_space, ret, reverse;
    size_t i;
    size_t joliet_ucs2_failures = ISO_JOLIET_UCS2_WARN_MAX + 1;/* no warning */
    size_t conved_len;
    char *from_charset, *to_charset, *conved, *smashed = NULL, *name;
    char *tr, *with_version = NULL;
    uint16_t *ucs = NULL, *hfspcmp = NULL;
    uint32_t ucs_len;
    enum IsoNodeType node_type;

    *result = NULL;
    *result_len = 0;

    name = in_name;
    name_space = flag & 0xff;
    reverse = !!(flag & (1 << 15));
    node_type = (flag & 256) ? LIBISO_DIR : LIBISO_FILE;
    from_charset = iso_get_local_charset(0);

    /* Note: Joliet, ECMA-119, HFS+ actually use to_charset only for the
             reverse conversion case */
    if (opts->output_charset != NULL)
        to_charset = opts->output_charset;
    else
        to_charset = from_charset;
    if (name_space == 1) { /* Rock Ridge */
        if (!reverse) {
            LIBISO_ALLOC_MEM(smashed, char, name_len + 1);
            memcpy(smashed, name, name_len);
            smashed[name_len] = 0;
            for (i = 0; i < name_len; i++)
                 if (smashed[i] == '/')
                     smashed[i] = '_';
            name = smashed;

            /* >>> ??? truncate to 255 chars */
         }
    } else if (name_space == 2) { /* Joliet */
        if (opts->joliet_utf16)
            to_charset = "UTF-16BE";
        else
            to_charset = "UCS-2BE";
    } else if (name_space == 3) { /* ECMA-119 */
        to_charset = "ASCII";
    } else if (name_space == 4) { /* HFS+ */
        to_charset= "UTF-16BE";
    }
    if (reverse) {
        tr = from_charset;
        from_charset = to_charset;
        to_charset = tr;
    }

    if (name_space == 0 || reverse) {
        ret = strnconvl(name, from_charset, to_charset, name_len,
                        &conved, &conved_len);
        if (ret != ISO_SUCCESS)
            goto ex;

    } else if (name_space == 1) { /* Rock Ridge */
        ret = iso_get_rr_name(opts, from_charset, to_charset, -1, name,
                              &conved, !!(flag & 512));
        if (ret != ISO_SUCCESS)
            goto ex;
        conved_len = strlen(conved);

    } else if (name_space == 2) { /* Joliet */
        ret = iso_get_joliet_name(opts, from_charset, -1, name, node_type,
                                  &joliet_ucs2_failures, &ucs, !!(flag & 512));
        if (ret != ISO_SUCCESS)
            goto ex;
        conved_len = ucslen(ucs) * 2;
        conved = (char *) ucs; ucs = NULL;
        if (node_type != LIBISO_DIR && !(opts->omit_version_numbers & 3)) {
            LIBISO_ALLOC_MEM(with_version, char, conved_len + 6);
            memcpy(with_version, conved, conved_len);
            with_version[conved_len++] = 0;
            with_version[conved_len++] = ';';
            with_version[conved_len++] = 0;
            with_version[conved_len++] = '1';
            with_version[conved_len] = 0;
            with_version[conved_len + 1] = 0;
            free(conved);
            conved = with_version; with_version = NULL;
        }

    } else if (name_space == 3) { /* ECMA-119 */
        ret = iso_get_ecma119_name(opts, from_charset, -1, name, node_type,
                                   &conved, !!(flag & 512)); 
        if (ret != ISO_SUCCESS)
            goto ex;
        conved_len = strlen(conved);
        if (need_version_number(opts, node_type == LIBISO_DIR ?
                                                 ECMA119_DIR : ECMA119_FILE)) {
            LIBISO_ALLOC_MEM(with_version, char, conved_len + 3);
            memcpy(with_version, conved, conved_len + 1);
            strcat(with_version, ";1");
            free(conved);
            conved = with_version; with_version = NULL;
            conved_len += 2;
        }

    } else if (name_space == 4) { /* HFS+ */
        ret = iso_get_hfsplus_name(from_charset, -1, name, &ucs, &ucs_len,
                                   &hfspcmp);
        if (ret != ISO_SUCCESS)
            goto ex;
        conved = (char *) ucs; ucs = NULL;
        conved_len = ucs_len * 2;

    } else {
        ret = ISO_WRONG_ARG_VALUE;
        goto ex;
    }

    *result = conved;
    *result_len = conved_len;
    ret = ISO_SUCCESS;
ex:
    LIBISO_FREE_MEM(with_version);
    LIBISO_FREE_MEM(smashed);
    LIBISO_FREE_MEM(ucs);
    LIBISO_FREE_MEM(hfspcmp);
    return ret;
}


static
void ecma119_filesrc_array(Ecma119Node *dir,
                           int (*include_item)(void *),
                           IsoFileSrc **filelist, size_t *size, int just_count)
{
    size_t i;
    Ecma119Node *child;

    for (i = 0; i < dir->info.dir->nchildren; i++) {
        child = dir->info.dir->children[i];
        if (child->type == ECMA119_DIR) {
            ecma119_filesrc_array(child, include_item, filelist, size,
                                  just_count);
        } else if (child->type == ECMA119_FILE) {
            if (include_item != NULL)
                if (!include_item((void *) child->info.file))
    continue;
            if (just_count) {
                (*size)++;
            } else {
                if (!child->info.file->taken) {
                    filelist[*size] = child->info.file;
                    (*size)++;
                    child->info.file->taken = *size;
                }
            }
        }
    }
}


static
void hidden_filesrc_array(Ecma119Image *t, 
                          int (*include_item)(void *),
                          IsoFileSrc **filelist, size_t *size, int just_count)
{
    struct iso_filesrc_list_item *item;

    for (item = t->ecma119_hidden_list; item != NULL; item = item->next) {
        if (include_item != NULL)
            if (!include_item((void *) item->src))
    continue;
        if (just_count) {
            (*size)++;
        } else {
            if (!item->src->taken) {
                filelist[*size] = item->src;
                (*size)++;
                item->src->taken = *size;
            }
        }
    }
}


IsoFileSrc **iso_ecma119_to_filesrc_array(Ecma119Image *t,
                                          int (*include_item)(void *),
                                          size_t *size)
{
    IsoFileSrc **filelist = NULL;

    /* Count nodes */
    *size = 0;
    ecma119_filesrc_array(t->root, include_item, filelist, size, 1);
    hidden_filesrc_array(t, include_item, filelist, size, 1);

    LIBISO_ALLOC_MEM_VOID(filelist, IsoFileSrc *, *size + 1);

    /* Fill array */
    *size = 0;
    ecma119_filesrc_array(t->root, include_item, filelist, size, 0);
    hidden_filesrc_array(t, include_item, filelist, size, 0);
    filelist[*size] = NULL;
    return filelist;

ex: /* LIBISO_ALLOC_MEM failed */
    *size = 0;
    return NULL;
}


/* Determines the range of valid partition numbers depending on partition
   table type.
*/
void iso_tell_max_part_range(IsoWriteOpts *opts,
                             int *first_partition, int *last_partition,
                             int flag)
{
    int sa_type;

    sa_type = (opts->system_area_options >> 2) & 0x3f;
    if (sa_type == 3) { /* SUN Disk Label */
        *first_partition = 2;
        *last_partition = 8;
    } else if(sa_type == 0 && opts->appended_as_gpt) {
        *first_partition = 1;
        *last_partition = 8;
    }  else {
        *first_partition = 1;
        *last_partition = 4;
    }
}


/* Obtains start and end number of appended partition range and returns
   the number of valid entries in the list of appended partitions.
*/
int iso_count_appended_partitions(Ecma119Image *target,
                                  int *first_partition, int *last_partition)
{
    int i, count= 0;

    iso_tell_max_part_range(target->opts, first_partition, last_partition, 0);
    for (i = *first_partition - 1; i <= *last_partition - 1; i++) {
        if (target->opts->appended_partitions[i] == NULL)
    continue;
        if (target->opts->appended_partitions[i][0] == 0)
    continue;
        count++;
    }
    return(count);
}

