mkisofs.c

Go to the documentation of this file.

/* @(#)mkisofs.c    1.289 17/01/05 joerg */
#include <schily/mconfig.h>
#ifndef lint
static  UConst char sccsid[] =
    "@(#)mkisofs.c  1.289 17/01/05 joerg";
#endif
/*
 * Program mkisofs.c - generate iso9660 filesystem  based upon directory
 * tree on hard disk.
 *
 * Written by Eric Youngdale (1993).
 *
 * Copyright 1993 Yggdrasil Computing, Incorporated
 * Copyright (c) 1997-2017 J. Schilling
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
/* APPLE_HYB James Pearson j.pearson@ge.ucl.ac.uk 22/2/2000 */
/* MAC UDF images by HELIOS Software GmbH support@helios.de */
/* HFS+ by HELIOS Software GmbH support@helios.de */
 
/* DUPLICATES_ONCE Alex Kopylov cdrtools@bootcd.ru 19.06.2004 */
 
#ifdef  USE_FIND
#include <schily/walk.h>
#include <schily/find.h>
#endif
#include "mkisofs.h"
#include "rock.h"
#include <schily/errno.h>
#include <schily/time.h>
#include <schily/fcntl.h>
#include <schily/ctype.h>
#include "match.h"
#include <schily/schily.h>
#include <schily/nlsdefs.h>
#include <schily/checkerr.h>
#ifdef UDF
#include "udf.h"
#endif
 
#include <schily/io.h>              /* for setmode() prototype */
#include <schily/getargs.h>
 
#ifdef VMS
#include "vms.h"
#endif
 
#ifdef  no_more_needed
#include <schily/resource.h>
#endif  /* no_more_needed */
 
#include "../cdrecord/version.h"
 
struct directory *root = NULL;
int     path_ind;
 
char    version_string[] = VERSION;
 
char        *outfile;
FILE        *discimage;
UInt32_t    next_extent = 0;
UInt32_t    last_extent = 0;
UInt32_t    session_start   = 0;
unsigned int    path_table_size = 0;
unsigned int    path_table[4]   = {0, };
unsigned int    path_blocks = 0;
 
 
unsigned int    jpath_table_size = 0;
unsigned int    jpath_table[4]  = {0, };
unsigned int    jpath_blocks    = 0;
 
struct iso_directory_record root_record;
struct iso_directory_record jroot_record;
 
char    *extension_record = NULL;
UInt32_t extension_record_extent = 0;
int extension_record_size = 0;
BOOL    archive_isreg;
dev_t   archive_dev;
ino_t   archive_ino;
 
/* These variables are associated with command line options */
int check_oldnames = 0;
int check_session = 0;
int use_eltorito = 0;
int hard_disk_boot = 0;
int not_bootable = 0;
int no_emul_boot = 0;
int load_addr = 0;
int load_size = 0;
int boot_info_table = 0;
int use_sparcboot = 0;
int use_sunx86boot = 0;
int use_genboot = 0;
int use_RockRidge = 0;
int use_XA = 0;
int osecsize = 0;   /* Output-sector size, 0 means default secsize 2048 */
int use_Joliet = 0;
int jlen = JMAX;    /* maximum Joliet file name length */
/*
 *  Verbose levels currently used:
 *
 *  1+  Boot information
 *  1+  Rcfile information
 *  1+  Name mapping information
 *  1+  Progress information
 *  2+  Version informaton
 *  2+  Output Extent (of_write) information
 *  2+  PReP boot information
 *  3+  HFS warnings
 *  3+  Dump dirtree
 */
int verbose = 1;
int debug = 0;
int gui = 0;
BOOL    legacy = FALSE;     /* Implement legacy support for historic CLI */
int all_files = 1;      /* New default is to include all files */
BOOL    Hflag = FALSE;      /* Follow links on cmdline (-H) */
BOOL    follow_links = FALSE;   /* Follow all links (-L)    */
#if defined(__MINGW32__) || defined(_MSC_VER)
/*
 * Never cache inodes on DOS or Win-DOS.
 */
int cache_inodes = 0;
#else
int cache_inodes = -1;  /* Cache inodes if OS has unique inodes */
#endif
int rationalize = 0;    /* Need to call stat_fix()  */
int rationalize_uid = 0;
int rationalize_gid = 0;
int rationalize_filemode = 0;
int rationalize_dirmode = 0;
uid_t   uid_to_use = 0;     /* when rationalizing uid */
gid_t   gid_to_use = 0;     /* when rationalizing gid */
int filemode_to_use = 0;    /* if non-zero, when rationalizing file mode */
int dirmode_to_use = 0; /* if non-zero, when rationalizing dir mode */
int new_dir_mode = 0555;    /* neither -new-dir-mode nor -dir-mode used */
int generate_tables = 0;
int dopad = 1;  /* Now default to do padding */
int print_size = 0;
int split_output = 0;
char    *icharset = NULL;   /* input charset to convert to UNICODE */
char    *ocharset = NULL;   /* output charset to convert from UNICODE */
char    *preparer = PREPARER_DEFAULT;
char    *publisher = PUBLISHER_DEFAULT;
char    *appid = APPID_DEFAULT;
char    *copyright = COPYRIGHT_DEFAULT;
char    *biblio = BIBLIO_DEFAULT;
char    *abstract = ABSTRACT_DEFAULT;
char    *volset_id = VOLSET_ID_DEFAULT;
char    *volume_id = VOLUME_ID_DEFAULT;
char    *system_id = SYSTEM_ID_DEFAULT;
char    *boot_catalog;
char    *boot_image = BOOT_IMAGE_DEFAULT;
char    *genboot_image = BOOT_IMAGE_DEFAULT;
int ucs_level = 3;      /* We now have Unicode tables so use level 3 */
int volume_set_size = 1;
int volume_sequence_number = 1;
/* -------------------------------------------------------------------------- */
char    *merge_image;       /* CLI Parameter for -M option          */
char    *check_image;       /* CLI Parameter for -check-session option  */
char    *reloc_root = NULL; /* CLI Parameter for -root option       */
char    *reloc_old_root = NULL; /* CLI Parameter for -oldroot option        */
extern char *cdrecord_data; /* CLI Parameter for -C option          */
int disable_deep_reloc; /* CLI Parameter for -D option          */
char    *dirmode_str;       /* CLI Parameter for -dir-mode option       */
char    *filemode_str;      /* CLI Parameter for -file-mode option      */
char    *gid_str;       /* CLI Parameter for -gid option        */
int help;           /* CLI Parameter for -help option       */
int joliet_long;        /* CLI Parameter for -joliet-long option    */
char    *jcharset;      /* CLI Parameter for -jcharset option       */
int max_filenames;      /* CLI Parameter for -max-iso9660-filenames option */
char    *log_file;      /* CLI Parameter for -log-file option       */
char    *new_dirmode_str;   /* CLI Parameter for -new-dir-mode option   */
char    *pathnames;     /* CLI Parameter for -help option       */
int rationalize_rr;     /* CLI Parameter for -path-list option      */
char    *sectype;       /* CLI Parameter for -s option          */
char    *uid_str;       /* CLI Parameter for -uid option        */
int untranslated_filenames; /* CLI Parameter for -U option          */
int pversion;       /* CLI Parameter for -version option        */
int rationalize_xa;     /* CLI Parameter for -xa option         */
ldate   modification_date;  /* CLI Parameter for -modification-date     */
#ifdef  APPLE_HYB
char    *afpfile = "";      /* CLI Parameter for -map option        */
char    *root_info;     /* CLI Parameter for -root-info option      */
#endif
BOOL    nodesc = FALSE;     /* Whether not to descend directories       */
#ifdef  USE_FIND
BOOL    dofind    = FALSE;  /* -find option found       */
int find_ac   = 0;      /* ac past -find option     */
char    *const *find_av = NULL; /* av past -find option     */
int find_pac  = 0;      /* ac for first find primary    */
char    *const *find_pav = NULL; /* av for first find primary   */
findn_t *find_node;     /* syntaxtree from find_parse() */
void    *plusp;         /* residual for -exec ...{} +   */
int find_patlen;        /* len for -find pattern state  */
 
LOCAL   int     walkflags = WALK_CHDIR | WALK_PHYS | WALK_NOEXIT;
LOCAL   int     maxdepth = -1;
LOCAL   int     mindepth = -1;
EXPORT  struct WALK walkstate;
#else
LOCAL   int     walkflags = 0;
#endif
 
extern  time_t      begun;
extern  struct timeval  tv_begun;
 
LOCAL   BOOL        data_change_warn;
 
struct eltorito_boot_entry_info *first_boot_entry = NULL;
struct eltorito_boot_entry_info *last_boot_entry = NULL;
struct eltorito_boot_entry_info *current_boot_entry = NULL;
 
int use_graft_ptrs;     /* Use graft points */
int match_igncase;      /* Ignore case with -exclude-list and -hide* */
int jhide_trans_tbl;    /* Hide TRANS.TBL from Joliet tree */
int hide_rr_moved;      /* Name RR_MOVED .rr_moved in Rock Ridge tree */
int omit_period = 0;    /* Violates iso9660, but these are a pain */
int transparent_compression = 0; /* So far only works with linux */
int omit_version_number = 0; /* May violate iso9660, but noone uses vers */
int no_rr = 0;      /* Do not use RR attributes from old session */
int force_rr = 0;       /* Force to use RR attributes from old session */
Uint    RR_relocation_depth = 6; /* Violates iso9660, but most systems work */
int do_largefiles = 0;  /* Whether to allow multi-extent files */
off_t   maxnonlarge = (off_t)0xFFFFFFFF;
int iso9660_level = 1;
int iso9660_namelen = LEN_ISONAME; /* 31 characters, may be set to 37 */
int full_iso9660_filenames = 0; /* Full 31 character iso9660 filenames */
int nolimitpathtables = 0;  /* Don't limit size of pathtable. Violates iso9660 */
int relaxed_filenames = 0;  /* For Amiga.  Disc will not work with DOS */
int allow_lowercase = 0;    /* Allow lower case letters */
int no_allow_lowercase = 0; /* Do not allow lower case letters */
int allow_multidot = 0; /* Allow more than on dot in filename */
int iso_translate = 1;  /* 1 == enables '#', '-' and '~' removal */
int allow_leading_dots = 0; /* DOS cannot read names with leading dots */
#ifdef  VMS
int use_fileversion = 1;    /* Use file version # from filesystem */
#else
int use_fileversion = 0;    /* Use file version # from filesystem */
#endif
int split_SL_component = 1; /* circumvent a bug in the SunOS driver */
int split_SL_field = 1; /* circumvent a bug in the SunOS */
char    *trans_tbl;     /* default name for translation table */
int stream_media_size = 0;  /* # of blocks on the media */
char    *stream_filename;   /* Default stream file name */
 
#ifdef APPLE_HYB
int donotwrite_macpart = 0; /* Do not write "hfs" hybrid with UDF */
int apple_hyb = 0;      /* -hfs HFS hybrid flag */
int no_apple_hyb = 0;   /* -no-hfs HFS hybrid flag */
int apple_ext = 0;      /* create HFS extensions flag */
int apple_both = 0;     /* common flag (for above) */
int hfs_extra = 0;      /* extra HFS blocks added to end of ISO vol */
int use_mac_name = 0;   /* use Mac name for ISO/Joliet/RR flag */
hce_mem *hce;           /* libhfs/mkisofs extras */
char    *hfs_boot_file = 0; /* name of HFS boot file */
int gen_pt = 0;     /* generate HFS partition table */
char    *autoname = 0;      /* AutoStart filename */
char    *magic_file = 0;    /* name of magic file */
int probe = 0;      /* search files for HFS/Unix type */
int nomacfiles = 0;     /* don't look for Mac/Unix files */
int hfs_select = 0;     /* Mac/Unix types to select */
int create_dt = 1;      /* create the Desktp files */
int afe_size = 0;       /* Apple File Exchange block size */
int hfs_last = MAG_LAST;    /* process magic file after map file */
char    *deftype;       /* default Apple TYPE */
char    *defcreator;        /* default Apple CREATOR */
char    *hfs_volume_id = NULL;  /* HFS volume ID */
int icon_pos = 0;       /* Keep icon position */
char    *hfs_icharset = NULL;   /* input HFS charset name */
char    *hfs_ocharset = NULL;   /* output HFS charset name */
int hfs_lock = 1;       /* lock HFS volume (read-only) */
char    *hfs_bless = NULL;  /* name of folder to 'bless' (System Folder) */
char    *hfs_parms = NULL;  /* low level HFS parameters */
 
#ifdef PREP_BOOT
char    *prep_boot_image[4];
int use_prep_boot = 0;
int use_chrp_boot = 0;
#endif  /* PREP_BOOT */
#else   /* APPLE_HYB */
int donotwrite_macpart = 1; /* Do not write "hfs" hybrid with UDF */
#endif  /* APPLE_HYB */
 
#ifdef UDF
int rationalize_udf = 0;    /* -udf (rationalized UDF)  */
int use_udf = 0;        /* -udf or -UDF         */
int create_udfsymlinks = 1; /* include symlinks in UDF  */
#endif
 
#ifdef DVD_AUD_VID
int dvd_audio = 0;
int dvd_hybrid = 0;
int dvd_video = 0;
int dvd_aud_vid_flag = DVD_SPEC_NONE;
#endif
 
#ifdef SORTING
int do_sort = 0;        /* sort file data */
#endif /* SORTING */
 
/*
 * inode numbers for zero sized files start from this number and count
 * backwards. This is done to allow unique inode numbers even on multi-session
 * disks.
 */
UInt32_t null_inodes = NULL_INO_MAX;
BOOL    correct_inodes = TRUE;  /* TRUE: add a "correct inodes" fingerprint */
BOOL    rrip112 = TRUE;     /* TRUE: create Rock Ridge V 1.12       */
BOOL    long_rr_time = FALSE;   /* TRUE: use long (17 Byte) time format     */
 
#ifdef  DUPLICATES_ONCE
int duplicates_once = 0;    /* encode duplicate files once */
#endif
 
siconvt_t   *in_nls = NULL;  /* input UNICODE conversion table */
siconvt_t   *out_nls = NULL; /* output UNICODE conversion table */
#ifdef APPLE_HYB
siconvt_t   *hfs_inls = NULL; /* input HFS UNICODE conversion table */
siconvt_t   *hfs_onls = NULL; /* output HFS UNICODE conversion table */
#endif /* APPLE_HYB */
 
struct rcopts {
    char        *tag;
    char        **variable;
};
 
struct rcopts rcopt[] = {
    {"PREP", &preparer},
    {"PUBL", &publisher},
    {"APPI", &appid},
    {"COPY", &copyright},
    {"BIBL", &biblio},
    {"ABST", &abstract},
    {"VOLS", &volset_id},
    {"VOLI", &volume_id},
    {"SYSI", &system_id},
#ifdef APPLE_HYB
    {"HFS_TYPE", &deftype},
    {"HFS_CREATOR", &defcreator},
#endif  /* APPLE_HYB */
    {NULL, NULL}
};
 
#ifdef  USE_FIND
LOCAL   int getfind     __PR((char *arg, long *valp,
                    int *pac, char *const **pav));
#endif
 
LOCAL   int getH        __PR((const char *arg, void *valp, int *pac, char *const **pav, const char *opt));
LOCAL   int getL        __PR((const char *arg, void *valp, int *pac, char *const **pav, const char *opt));
LOCAL   int getP        __PR((const char *arg, void *valp, int *pac, char *const **pav, const char *opt));
LOCAL   int dolegacy    __PR((const char *arg, void *valp, int *pac, char *const **pav, const char *opt));
 
LOCAL   int get_boot_image  __PR((char *opt_arg));
LOCAL   int get_hd_boot __PR((char *opt_arg));
LOCAL   int get_ne_boot __PR((char *opt_arg));
LOCAL   int get_no_boot __PR((char *opt_arg));
LOCAL   int get_boot_addr   __PR((char *opt_arg));
LOCAL   int get_boot_size   __PR((char *opt_arg));
LOCAL   int get_boot_platid __PR((char *opt_arg));
LOCAL   int get_boot_table  __PR((char *opt_arg));
#ifdef  APPLE_HYB
#ifdef PREP_BOOT
LOCAL   int get_prep_boot   __PR((char *opt_arg));
LOCAL   int get_chrp_boot   __PR((char *opt_arg));
#endif
LOCAL   int get_bsize   __PR((char *opt_arg));
 
LOCAL   int hfs_cap     __PR((void));
LOCAL   int hfs_neta    __PR((void));
LOCAL   int hfs_dbl     __PR((void));
LOCAL   int hfs_esh     __PR((void));
LOCAL   int hfs_fe      __PR((void));
LOCAL   int hfs_sgi     __PR((void));
LOCAL   int hfs_mbin    __PR((void));
LOCAL   int hfs_sgl     __PR((void));
LOCAL   int hfs_dave    __PR((void));
LOCAL   int hfs_sfm     __PR((void));
LOCAL   int hfs_xdbl    __PR((void));
LOCAL   int hfs_xhfs    __PR((void));
LOCAL   int hfs_nohfs   __PR((void));
#endif  /* APPLE_HYB */
 
LOCAL   void    ldate_error __PR((char *arg));
LOCAL   char    *strntoi    __PR((char *p, int n, int *ip));
LOCAL   int mosize      __PR((int y, int m));
LOCAL   char    *parse_date __PR((char *arg, struct tm *tp));
LOCAL   int get_ldate   __PR((char *opt_arg, void *valp));
 
LOCAL int
get_boot_image(opt_arg)
    char    *opt_arg;
{
    do_sort++;      /* We sort bootcat/botimage */
    use_eltorito++;
    boot_image = opt_arg;   /* pathname of the boot image */
                    /* on disk */
    if (boot_image == NULL || *boot_image == '\0') {
        comerrno(EX_BAD,
        _("Required Eltorito boot image pathname missing\n"));
    }
    get_boot_entry();
    current_boot_entry->boot_image = boot_image;
    return (1);
}
 
LOCAL int
get_hd_boot(opt_arg)
    char    *opt_arg;
{
    use_eltorito++;
    hard_disk_boot++;
    get_boot_entry();
    current_boot_entry->hard_disk_boot = 1;
    return (1);
}
 
LOCAL int
get_ne_boot(opt_arg)
    char    *opt_arg;
{
    use_eltorito++;
    no_emul_boot++;
    get_boot_entry();
    current_boot_entry->no_emul_boot = 1;
    return (1);
}
 
LOCAL int
get_no_boot(opt_arg)
    char    *opt_arg;
{
    use_eltorito++;
    not_bootable++;
    get_boot_entry();
    current_boot_entry->not_bootable = 1;
    return (1);
}
 
LOCAL int
get_boot_addr(opt_arg)
    char    *opt_arg;
{
    long    val;
    char    *ptr;
 
    use_eltorito++;
    val = strtol(opt_arg, &ptr, 0);
    if (*ptr || val < 0 || val >= 0x10000) {
        comerrno(EX_BAD, _("Boot image load address invalid.\n"));
    }
    load_addr = val;
    get_boot_entry();
    current_boot_entry->load_addr = load_addr;
    return (1);
}
 
LOCAL int
get_boot_size(opt_arg)
    char    *opt_arg;
{
    long    val;
    char    *ptr;
 
    use_eltorito++;
    val = strtol(opt_arg, &ptr, 0);
    if (*ptr || val < 0 || val >= 0x10000) {
        comerrno(EX_BAD,
        _("Boot image load size invalid.\n"));
    }
    load_size = val;
    get_boot_entry();
    current_boot_entry->load_size = load_size;
    return (1);
}
 
LOCAL int
get_boot_platid(opt_arg)
    char    *opt_arg;
{
    long    val;
    char    *ptr;
 
    use_eltorito++;
    if (streql(opt_arg, "x86")) {
        val = EL_TORITO_ARCH_x86;
    } else if (streql(opt_arg, "PPC")) {
        val = EL_TORITO_ARCH_PPC;
    } else if (streql(opt_arg, "Mac")) {
        val = EL_TORITO_ARCH_MAC;
    } else if (streql(opt_arg, "efi")) {
        val = EL_TORITO_ARCH_EFI;
    } else {
        val = strtol(opt_arg, &ptr, 0);
        if (*ptr || val < 0 || val >= 0x100) {
            comerrno(EX_BAD, _("Bad boot system ID.\n"));
        }
    }
 
    /*
     * If there is already a boot entry and the boot file name has been set
     * for this boot entry and the new platform id differs from the
     * previous value, we start a new boot section.
     */
    if (current_boot_entry &&
        current_boot_entry->boot_image != NULL &&
        current_boot_entry->boot_platform != val) {
        new_boot_entry();
    }
    get_boot_entry();
    current_boot_entry->type |= ELTORITO_BOOT_ID;
    current_boot_entry->boot_platform = val;
    return (1);
}
 
LOCAL int
get_boot_table(opt_arg)
    char    *opt_arg;
{
    use_eltorito++;
    boot_info_table++;
    get_boot_entry();
    current_boot_entry->boot_info_table = 1;
    return (1);
}
 
#ifdef  APPLE_HYB
#ifdef PREP_BOOT
LOCAL int
get_prep_boot(opt_arg)
    char    *opt_arg;
{
    use_prep_boot++;
    if (use_prep_boot > 4 - use_chrp_boot) {
        comerrno(EX_BAD,
        _("Maximum of 4 PRep+CHRP partition entries are allowed\n"));
    }
    /* pathname of the boot image on cd */
    prep_boot_image[use_prep_boot - 1] = opt_arg;
    if (prep_boot_image[use_prep_boot - 1] == NULL) {
        comerrno(EX_BAD,
        _("Required PReP boot image pathname missing\n"));
    }
    return (1);
}
 
LOCAL int
get_chrp_boot(opt_arg)
    char    *opt_arg;
{
    if (use_chrp_boot)
        return (1);     /* silently allow duplicates */
    use_chrp_boot = 1;
    if (use_prep_boot > 3) {
        comerrno(EX_BAD,
        _("Maximum of 4 PRep+CHRP partition entries are allowed\n"));
    }
    return (1);
}
#endif  /* PREP_BOOT */
 
 
LOCAL int
get_bsize(opt_arg)
    char    *opt_arg;
{
    afe_size = atoi(opt_arg);
    hfs_select |= DO_FEU;
    hfs_select |= DO_FEL;
    return (1);
}
 
LOCAL int
hfs_cap()
{
    hfs_select |= DO_CAP;
    return (1);
}
 
LOCAL int
hfs_neta()
{
    hfs_select |= DO_NETA;
    return (1);
}
 
LOCAL int
hfs_dbl()
{
    hfs_select |= DO_DBL;
    return (1);
}
 
LOCAL int
hfs_esh()
{
    hfs_select |= DO_ESH;
    return (1);
}
 
LOCAL int
hfs_fe()
{
    hfs_select |= DO_FEU;
    hfs_select |= DO_FEL;
    return (1);
}
 
LOCAL int
hfs_sgi()
{
    hfs_select |= DO_SGI;
    return (1);
}
 
LOCAL int
hfs_mbin()
{
    hfs_select |= DO_MBIN;
    return (1);
}
 
LOCAL int
hfs_sgl()
{
    hfs_select |= DO_SGL;
    return (1);
}
 
LOCAL int
hfs_dave()
{
    hfs_select |= DO_DAVE;
    return (1);
}
 
 
LOCAL int
hfs_sfm()
{
    hfs_select |= DO_SFM;
    return (1);
}
 
LOCAL int
hfs_xdbl()
{
    hfs_select |= DO_XDBL;
    return (1);
}
 
LOCAL int
hfs_xhfs()
{
#ifdef  IS_MACOS_X
    hfs_select |= DO_XHFS;
#else
    errmsgno(EX_BAD,
    _("Warning: --osx-hfs only works on MacOS X ... ignoring\n"));
#endif
    return (1);
}
 
LOCAL int
hfs_nohfs()
{
    no_apple_hyb = 1;
    return (1);
}
 
#endif  /* APPLE_HYB */
 
LOCAL void
ldate_error(arg)
    char    *arg;
{
    comerrno(EX_BAD, _("Ilegal date specification '%s'.\n"), arg);
}
 
LOCAL char *
strntoi(p, n, ip)
    char    *p;
    int n;
    int *ip;
{
    int i = 0;
    int digits = 0;
    int c;
 
    while (*p) {
        if (digits >= n)
            break;
        c = *p;
        if (c < '0' || c > '9')
            break;
        p++;
        digits++;
        i *= 10;
        i += c - '0';
    }
    *ip = i;
 
    return (p);
}
 
#define dysize(A) (((A)%4)? 365 : (((A)%100) == 0 && ((A)%400)) ? 365 : 366)
 
static int dmsize[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
 
LOCAL int
mosize(y, m)
    int y;
    int m;
{
 
    if (m == 1 && dysize(y) == 366)
        return (29);
    return (dmsize[m]);
}
 
LOCAL char *
parse_date(arg, tp)
    char    *arg;
    struct tm *tp;
{
    char    *oarg = arg;
    char    *p;
 
    tp->tm_mon = tp->tm_hour = tp->tm_min = tp->tm_sec = 0;
    tp->tm_mday = 1;
    tp->tm_isdst = -1;
 
    p = strchr(arg, '/');
    if (p == NULL)
        p = strchr(arg, '-');
    if (p) {
        if ((p - arg) != 2 && (p - arg) != 4)
            ldate_error(oarg);
        p = strntoi(arg, 4, &tp->tm_year);
        if ((p - arg) != 2 && (p - arg) != 4)
            ldate_error(oarg);
        if ((p - arg) == 2) {
            if (tp->tm_year < 69)
                tp->tm_year += 100;
        } else {
            tp->tm_year -= 1900;
        }
        if (*p == '/' || *p == '-')
            p++;
    } else if (strlen(arg) < 4) {
        ldate_error(oarg);
    } else {
        p = strntoi(arg, 4, &tp->tm_year);
        if ((p - arg) != 4)
            ldate_error(oarg);
        tp->tm_year -= 1900;
    }
    if (*p == '\0' || strchr(".+-", *p))
        return (p);
    arg = p;
    p = strntoi(arg, 2, &tp->tm_mon);
    if ((p - arg) != 2)
        ldate_error(oarg);
    tp->tm_mon -= 1;
    if (tp->tm_mon < 0 || tp->tm_mon >= 12)
        ldate_error(oarg);
    if (*p == '/' || *p == '-')
        p++;
    if (*p == '\0' || strchr(".+-", *p))
        return (p);
    arg = p;
    p = strntoi(arg, 2, &tp->tm_mday);
    if ((p - arg) != 2)
        ldate_error(oarg);
    if (tp->tm_mday < 1 || tp->tm_mday > mosize(tp->tm_year+1900, tp->tm_mon))
        ldate_error(oarg);
    if (*p == ' ')
        p++;
    if (*p == '\0' || strchr(".+-", *p))
        return (p);
    arg = p;
    p = strntoi(arg, 2, &tp->tm_hour);
    if ((p - arg) != 2)
        ldate_error(oarg);
    if (tp->tm_hour > 23)
        ldate_error(oarg);
    if (*p == ':')
        p++;
    if (*p == '\0' || strchr(".+-", *p))
        return (p);
    arg = p;
    p = strntoi(arg, 2, &tp->tm_min);
    if ((p - arg) != 2)
        ldate_error(oarg);
    if (tp->tm_min > 59)
        ldate_error(oarg);
    if (*p == ':')
        p++;
    if (*p == '\0' || strchr(".+-", *p))
        return (p);
    arg = p;
    p = strntoi(arg, 2, &tp->tm_sec);
    if ((p - arg) != 2)
        ldate_error(oarg);
    if (tp->tm_sec > 61)
        ldate_error(oarg);
    return (p);
}
 
/*
 * Parse a date spec similar to:
 * YYYY[MM[DD[HH[MM[SS]]]]][.hh][+-GHGM]
 */
LOCAL int
get_ldate(opt_arg, valp)
    char    *opt_arg;
    void    *valp;
{
    time_t  t;
    int usec = 0;
    int gmtoff = -100;
    struct tm tm;
    char    *p;
    char    *arg;
 
    p = parse_date(opt_arg, &tm);
    if (*p == '.') {
        p++;
        arg = p;
        p = strntoi(arg, 2, &usec);
        if ((p - arg) != 2)
            ldate_error(opt_arg);
        if (usec > 99)
            ldate_error(opt_arg);
        usec *= 10000;
    }
    if (*p == ' ')
        p++;
    if (*p == '+' || *p == '-') {
        int i;
        char    *s = p++;
 
        arg = p;
        p = strntoi(arg, 2, &gmtoff);
        if ((p - arg) != 2)
            ldate_error(opt_arg);
        arg = p;
        p = strntoi(arg, 2, &i);
        if ((p - arg) != 2)
            ldate_error(opt_arg);
        if (i > 59)
            ldate_error(opt_arg);
        gmtoff *= 60;
        gmtoff += i;
        if (gmtoff % 15)
            ldate_error(opt_arg);
        if (*s == '-')
            gmtoff *= -1;
        gmtoff /= 15;
        if (gmtoff < -48 || gmtoff > 52)
            ldate_error(opt_arg);
    }
    if (*p != '\0')
        ldate_error(opt_arg);
 
    seterrno(0);
    t = mktime(&tm);
    if (t == -1 && geterrno() != 0)
        comerr(_("Date '%s' is out of range.\n"), opt_arg);
 
    ((ldate *)valp)->l_sec = t;
    ((ldate *)valp)->l_usec = usec;
    ((ldate *)valp)->l_gmtoff = gmtoff;
 
    return (1);
}
 
#ifdef  USE_FIND
/* ARGSUSED */
LOCAL int
getfind(arg, valp, pac, pav)
    char    *arg;
    long    *valp;  /* Not used until we introduce a ptr to opt struct */
    int *pac;
    char    *const  **pav;
{
    dofind = TRUE;
    find_ac = *pac;
    find_av = *pav;
    find_ac--, find_av++;
    return (NOARGS);
}
#endif
 
/* ARGSUSED */
LOCAL int
getH(arg, valp, pac, pav, opt)  /* Follow symlinks encountered on cmdline */
    const char  *arg;
    void        *valp;
    int     *pac;
    char    *const  **pav;
    const char  *opt;
{
/*error("getH\n");*/
    if (opt[0] == '-' && opt[1] == 'H' && opt[2] == '\0') {
#ifdef  APPLE_HYB
        if (legacy) {
            errmsgno(EX_BAD, _("The option '-H' is deprecated since 2002.\n"));
            errmsgno(EX_BAD, _("The option '-H' was disabled in 2006.\n"));
            errmsgno(EX_BAD, _("Use '-map' instead of '-H' as documented instead of using the legacy mode.\n"));
            afpfile = (char *)arg;
            return (1);
        }
#endif
        return (BADFLAG);   /* POSIX -H is not yet active */
    }
    follow_links = FALSE;
    Hflag = TRUE;
#ifdef  USE_FIND
    *(int *)valp |= WALK_ARGFOLLOW;
#endif
    return (1);
}
 
/* ARGSUSED */
LOCAL int
getL(arg, valp, pac, pav, opt)  /* Follow all symlinks */
    const char  *arg;
    void        *valp;
    int     *pac;
    char    *const  **pav;
    const char  *opt;
{
/*error("getL\n");*/
    if (opt[0] == '-' && opt[1] == 'L' && opt[2] == '\0') {
        if (legacy) {
            errmsgno(EX_BAD, _("The option '-L' is deprecated since 2002.\n"));
            errmsgno(EX_BAD, _("The option '-L' was disabled in 2006.\n"));
            errmsgno(EX_BAD,
                _("Use '-allow-leading-dots' instead of '-L' as documented instead of using the legacy mode.\n"));
            allow_leading_dots = TRUE;
            return (1);
        }
        return (BADFLAG);   /* POSIX -L is not yet active */
    }
    follow_links = TRUE;
    Hflag = FALSE;
#ifdef  USE_FIND
    *(int *)valp |= WALK_ALLFOLLOW;
#endif
    return (1);
}
 
/* ARGSUSED */
LOCAL int
getP(arg, valp, pac, pav, opt)  /* Do not follow symlinks */
    const char  *arg;
    void        *valp;
    int     *pac;
    char    *const  **pav;
    const char  *opt;
{
/*error("getP\n");*/
    if (opt[0] == '-' && opt[1] == 'P' && opt[2] == '\0') {
        if (legacy) {
            errmsgno(EX_BAD, _("The option '-P' is deprecated since 2002.\n"));
            errmsgno(EX_BAD, _("The option '-P' was disabled in 2006.\n"));
            errmsgno(EX_BAD, _("Use '-publisher' instead of '-P' as documented instead of using the legacy mode.\n"));
            publisher = (char *)arg;
            return (1);
        }
        return (BADFLAG);   /* POSIX -P is not yet active */
    }
    follow_links = FALSE;
    Hflag = FALSE;
#ifdef  USE_FIND
    *(int *)valp &= ~(WALK_ARGFOLLOW | WALK_ALLFOLLOW);
#endif
    return (1);
}
 
LOCAL struct ga_flags *gl_flags;
/* ARGSUSED */
LOCAL int
dolegacy(arg, valp, pac, pav, opt)  /* Follow symlinks encountered on cmdline */
    const char  *arg;
    void        *valp;
    int     *pac;
    char    *const  **pav;
    const char  *opt;
{
    legacy = TRUE;
#ifdef  APPLE_HYB
    gl_flags[2].ga_format = "H&";   /* Apple Hybrid "-map" */
#endif
#ifdef  OPT_L_HAS_ARG           /* never ;-) */
    gl_flags[4].ga_format = "L&";   /* -allow-leading-dots */
#endif
    gl_flags[6].ga_format = "P&";   /* -publisher */
    return (1);
}
 
struct mki_option {
    /*
     * The long option information.
     */
    struct ga_flags opt;
    /*
     * The documentation string.  If this is NULL or empty, this is a
     * synonym for the previous option.
     *
     * If the string starts with a '-', the (long) option is a
     * double dash option.
     *
     * If the next character in the string is a ^A (\1), then the following
     * characters are the argument name for the option. The arg string ends
     * before a \1 or a \2 is seen. A \1 is skipped.
     *
     * The rest of the string is the real documentation string. If it
     * starts with \2, then the option is hidden from the online help.
     */
    const char  *doc;
};
 
 
LOCAL int   save_pname = 0;
 
LOCAL const struct mki_option mki_options[] =
{
#ifdef  USE_FIND
    {{"find~", NULL, (getpargfun)getfind },
    __("\1file... [find expr.]\1Option separator: Use find command line to the right")},
#endif
    /*
     * The options -H/-L/-P did have different meaning in old releases of
     * mkisofs. In October 2002, mkisofs introduced a warning that the
     * short options -H/-L/-P should not be used with the old meaning
     * anymore. The long options should be used instead. The options
     * -H/-L/-P previously have been associated with the following long
     * options:
     *
     *  -H  -map                2000..2002
     *  -L  -allow-leading-dots     1995..2002
     *  -P  -publisher          1993..2002
     *
     * Since December 2006, the short options -H/-L/-P have been disabled
     * for their old meaning.
     *
     * Warning: for the -legacy mode, the entries for -H/-L/-P need to stay
     * at their current index in mki_options[] or dolegacy() needs to be
     * changed to fit the modification.
     */
    {{"posix-H~", &walkflags, getH },
    __("Follow symbolic links encountered on command line")},
    {{"H~", &walkflags, getH },
#ifdef  LATER
    NULL},
#else
    __("\2")},
#endif
    {{"posix-L~", &walkflags, getL },
    __("Follow all symbolic links")},
    {{"L~", &walkflags, getL },
#ifdef  LATER
    NULL},
#else
    __("\2")},
#endif
    {{"posix-P~", &walkflags, getP },
    __("Do not follow symbolic links (default)")},
    {{"P~", &walkflags, getP },
#ifdef  LATER
    NULL},
#else
    __("\2")},
#endif
 
    {{"abstract*", &abstract },
    __("\1FILE\1Set Abstract filename")},
    {{"A*,appid*", &appid },
    __("\1ID\1Set Application ID")},
    {{"biblio*", &biblio },
    __("\1FILE\1Set Bibliographic filename")},
    /*
     * If this includes UWIN, we need to modify the condition.
     */
#if !defined(__MINGW32__) && !defined(_MSC_VER)
    {{"cache-inodes", &cache_inodes },
    __("Cache inodes (needed to detect hard links)")},
#endif
    {{"no-cache-inodes%0", &cache_inodes },
    __("Do not cache inodes (if filesystem has no unique inodes)")},
    {{"rrip110%0", &rrip112 },
    __("Create old Rock Ridge V 1.10")},
    {{"rrip112", &rrip112 },
    __("Create new Rock Ridge V 1.12 (default)")},
#ifdef  DUPLICATES_ONCE
    {{"duplicates-once", &duplicates_once},
    __("Optimize storage by encoding duplicate files once")},
#endif
    {{"check-oldnames", &check_oldnames },
    __("Check all imported ISO9660 names from old session")},
    {{"check-session*", &check_image },
    __("\1FILE\1Check all ISO9660 names from previous session")},
    {{"copyright*", &copyright },
    __("\1FILE\1Set Copyright filename")},
    {{"debug+", &debug },
    __("Set debug flag")},
    {{"ignore-error", &ignerr },
    __("Ignore errors")},
    {{"b& ,eltorito-boot&", NULL, (getpargfun)get_boot_image },
    __("\1FILE\1Set El Torito boot image name")},
    {{"eltorito-alt-boot~", NULL, (getpargfun)new_boot_entry },
    __("Start specifying alternative El Torito boot parameters")},
    {{"eltorito-platform&", NULL, (getpargfun)get_boot_platid },
    __("\1ID\1Set El Torito platform id for the next boot entry")},
    {{"B&,sparc-boot&", NULL, (getpargfun)scan_sparc_boot },
    __("\1FILES\1Set sparc boot image names")},
    {{"sunx86-boot&", NULL, (getpargfun)scan_sunx86_boot },
    __("\1FILES\1Set sunx86 boot image names")},
    {{"G*,generic-boot*", &genboot_image },
    __("\1FILE\1Set generic boot image name")},
    {{"sparc-label&", NULL, (getpargfun)sparc_boot_label },
    __("\1label text\1Set sparc boot disk label")},
    {{"sunx86-label&", NULL, (getpargfun)sunx86_boot_label },
    __("\1label text\1Set sunx86 boot disk label")},
    {{"c* ,eltorito-catalog*", &boot_catalog },
    __("\1FILE\1Set El Torito boot catalog name")},
    {{"C*,cdrecord-params*", &cdrecord_data },
    __("\1PARAMS\1Magic paramters from cdrecord")},
    {{"d,omit-period", &omit_period },
    __("Omit trailing periods from filenames (violates ISO9660)")},
    {{"data-change-warn", &data_change_warn },
    __("Treat data/size changes as warning only")},
    {{"dir-mode*", &dirmode_str },
    __("\1mode\1Make the mode of all directories this mode.")},
    {{"D,disable-deep-relocation", &disable_deep_reloc },
    __("Disable deep directory relocation (violates ISO9660)")},
    {{"file-mode*", &filemode_str },
    __("\1mode\1Make the mode of all plain files this mode.")},
    {{"errctl&", NULL, (getpargfun)errconfig },
    __("\1name\1Read error control defs from file or inline.")},
    {{"f,follow-links", &follow_links },
    __("Follow symbolic links")},
    {{"gid*", &gid_str },
    __("\1gid\1Make the group owner of all files this gid.")},
    {{"graft-points", &use_graft_ptrs },
    __("Allow to use graft points for filenames")},
    {{"root*", &reloc_root },
    __("\1DIR\1Set root directory for all new files and directories")},
    {{"old-root*", &reloc_old_root },
    __("\1DIR\1Set root directory in previous session that is searched for files")},
    {{"help", &help },
    __("Print option help")},
    {{"hide& ", NULL, (getpargfun)i_add_match },
    __("\1GLOBFILE\1Hide ISO9660/RR file")},
    {{"hide-list&", NULL, (getpargfun)i_add_list },
    __("\1FILE\1File with list of ISO9660/RR files to hide")},
    {{"hidden& ", NULL, (getpargfun)h_add_match },
    __("\1GLOBFILE\1Set hidden attribute on ISO9660 file")},
    {{"hidden-list&", NULL, (getpargfun)h_add_list },
    __("\1FILE\1File with list of ISO9660 files with hidden attribute")},
    {{"hide-joliet& ", NULL, (getpargfun)j_add_match },
    __("\1GLOBFILE\1Hide Joliet file")},
    {{"hide-joliet-list&", NULL, (getpargfun)j_add_list },
    __("\1FILE\1File with list of Joliet files to hide")},
#ifdef UDF
    {{"hide-udf& ", NULL, (getpargfun)u_add_match },
    __("\1GLOBFILE\1Hide UDF file")},
    {{"hide-udf-list&", NULL, (getpargfun)u_add_list },
    __("\1FILE\1File with list of UDF files to hide")},
#endif
    {{"hide-joliet-trans-tbl", &jhide_trans_tbl},
    __("Hide TRANS.TBL from Joliet tree")},
    {{"hide-rr-moved", &hide_rr_moved },
    __("Rename RR_MOVED to .rr_moved in Rock Ridge tree")},
    {{"gui", &gui},
    __("Switch behaviour for GUI")},
    {{"input-charset*", &icharset },
    __("\1CHARSET\1Local input charset for file name conversion")},
    {{"output-charset*", &ocharset },
    __("\1CHARSET\1Output charset for file name conversion")},
    {{"iso-level#", &iso9660_level },
    __("\1LEVEL\1Set ISO9660 conformance level (1..3) or 4 for ISO9660 version 2")},
    {{"J,joliet", &use_Joliet },
    __("Generate Joliet directory information")},
    {{"joliet-long", &joliet_long },
    __("Allow Joliet file names to be 103 Unicode characters")},
    {{"jcharset*", &jcharset },
    __("\1CHARSET\1Local charset for Joliet directory information")},
    {{"l,full-iso9660-filenames", &full_iso9660_filenames },
    __("Allow full 31 character filenames for ISO9660 names")},
    {{"max-iso9660-filenames", &max_filenames },
    __("Allow 37 character filenames for ISO9660 names (violates ISO9660)")},
 
    {{"allow-leading-dots", &allow_leading_dots },
    __("Allow ISO9660 filenames to start with '.' (violates ISO9660)")},
    {{"ldots", &allow_leading_dots },
    __("Allow ISO9660 filenames to start with '.' (violates ISO9660)")},
 
    {{"log-file*", &log_file },
    __("\1LOG_FILE\1Re-direct messages to LOG_FILE")},
    {{"long-rr-time%1", &long_rr_time },
    __("Use long Rock Ridge time format")},
    {{"m& ,exclude& ", NULL, (getpargfun)add_match },
    __("\1GLOBFILE\1Exclude file name")},
    {{"exclude-list&", NULL, (getpargfun)add_list},
    __("\1FILE\1File with list of file names to exclude")},
 
    {{"hide-ignorecase", &match_igncase },
    __("Ignore case with -exclude-list and -hide* options")},
    {{"exclude-ignorecase", &match_igncase },
    NULL},
 
    {{"modification-date&", &modification_date, (getpargfun)get_ldate },
    __("\1DATE\1Set the modification date field of the PVD")},
    {{"nobak%0", &all_files },
    __("Do not include backup files")},
    {{"no-bak%0", &all_files},
    __("Do not include backup files")},
    {{"pad", &dopad },
    __("Pad output to a multiple of 32k (default)")},
    {{"no-pad%0", &dopad },
    __("Do not pad output to a multiple of 32k")},
    {{"no-limit-pathtables", &nolimitpathtables },
    __("Allow more than 65535 parent directories (violates ISO9660)")},
    {{"no-long-rr-time%0", &long_rr_time },
    __("Use short Rock Ridge time format")},
    {{"M*,prev-session*", &merge_image },
    __("\1FILE\1Set path to previous session to merge")},
    {{"dev*", &merge_image },
    __("\1SCSIdev\1Set path to previous session to merge")},
    {{"N,omit-version-number", &omit_version_number },
    __("Omit version number from ISO9660 filename (violates ISO9660)")},
    {{"new-dir-mode*", &new_dirmode_str },
    __("\1mode\1Mode used when creating new directories.")},
    {{"force-rr", &force_rr },
    __("Inhibit automatic Rock Ridge detection for previous session")},
    {{"no-rr", &no_rr },
    __("Inhibit reading of Rock Ridge attributes from previous session")},
    {{"no-split-symlink-components%0", &split_SL_component },
    __("Inhibit splitting symlink components")},
    {{"no-split-symlink-fields%0", &split_SL_field },
    __("Inhibit splitting symlink fields")},
    {{"o* ,output* ", &outfile },
    __("\1FILE\1Set output file name")},
    {{"path-list*", &pathnames },
    __("\1FILE\1File with list of pathnames to process")},
    {{"p* ,preparer*", &preparer },
    __("\1PREP\1Set Volume preparer")},
    {{"print-size", &print_size },
    __("Print estimated filesystem size and exit")},
    {{"publisher*", &publisher },
    __("\1PUB\1Set Volume publisher")},
    {{"quiet%0", &verbose },
    __("Run quietly")},
    {{"r,rational-rock", &rationalize_rr },
    __("Generate rationalized Rock Ridge directory information")},
    {{"R,rock", &use_RockRidge },
    __("Generate Rock Ridge directory information")},
    {{"s* ,sectype*", &sectype },
    __("\1TYPE\1Set output sector type to e.g. data/xa1/raw")},
    {{"short-rr-time%0", &long_rr_time },
    __("Use short Rock Ridge time format")},
 
#ifdef SORTING
    { {"sort&", NULL, add_sort_list },
    __("\1FILE\1Sort file content locations according to rules in FILE")},
    { {"isort&", NULL, add_sort_list },
    __("\1FILE\1Sort file content locations according to rules in FILE (ignore case)")},
#endif /* SORTING */
 
    {{"split-output", &split_output },
    __("Split output into files of approx. 1GB size")},
    {{"stream-file-name*", &stream_filename },
    __("\1FILE_NAME\1Set the stream file ISO9660 name (incl. version)")},
    {{"stream-media-size#", &stream_media_size },
    __("\1#\1Set the size of your CD media in sectors")},
    {{"sysid*", &system_id },
    __("\1ID\1Set System ID")},
    {{"T,translation-table", &generate_tables },
    __("Generate translation tables for systems that don't understand long filenames")},
    {{"table-name*", &trans_tbl },
    __("\1TABLE_NAME\1Translation table file name")},
    {{"ucs-level#", &ucs_level },
    __("\1LEVEL\1Set Joliet UCS level (1..3)")},
 
#ifdef UDF
    {{"udf", &rationalize_udf },
    __("Generate rationalized UDF file system")},
    {{"UDF", &use_udf },
    __("Generate UDF file system")},
    {{"udf-symlinks", &create_udfsymlinks },
    __("Create symbolic links on UDF image (default)")},
    {{"no-udf-symlinks%0", &create_udfsymlinks },
    __("Do not reate symbolic links on UDF image")},
#endif
 
#ifdef DVD_AUD_VID
    {{"dvd-audio", &dvd_audio },
    "Generate DVD-Audio compliant UDF file system"},
    {{"dvd-hybrid", &dvd_hybrid },
    "Generate a hybrid (DVD-Audio and DVD-Video) compliant UDF file system"},
    {{"dvd-video", &dvd_video },
    __("Generate DVD-Video compliant UDF file system")},
#endif
 
    {{"uid*", &uid_str },
    __("\1uid\1Make the owner of all files this uid.")},
    {{"U,untranslated-filenames", &untranslated_filenames },
    /* CSTYLED */
    __("Allow Untranslated filenames (for HPUX & AIX - violates ISO9660). Forces -l, -d, -N, -allow-leading-dots, -relaxed-filenames, -allow-lowercase, -allow-multidot")},
    {{"relaxed-filenames", &relaxed_filenames },
    __("Allow 7 bit ASCII except lower case characters (violates ISO9660)")},
    {{"no-iso-translate%0", &iso_translate },
    __("Do not translate illegal ISO characters '~', '-' and '#' (violates ISO9660)")},
    {{"allow-lowercase", &allow_lowercase },
    __("Allow lower case characters in addition to the current character set (violates ISO9660)")},
    {{"no-allow-lowercase", &no_allow_lowercase },
    __("Do not allow lower case characters in addition to the current character set.")},
    {{"+allow-lowercase", &no_allow_lowercase },
    NULL},
    {{"allow-multidot", &allow_multidot },
    __("Allow more than one dot in filenames (e.g. .tar.gz) (violates ISO9660)")},
    {{"use-fileversion", &use_fileversion },
    __("\1LEVEL\1Use file version # from filesystem")},
    {{"v+,verbose+", &verbose },
    __("Verbose")},
    {{"version", &pversion },
    __("Print the current version")},
    {{"V*,volid*", &volume_id },
    __("\1ID\1Set Volume ID")},
    {{"volset* ", &volset_id },
    __("\1ID\1Set Volume set ID")},
    {{"volset-size#", &volume_set_size },
    __("\1#\1Set Volume set size")},
    {{"volset-seqno#", &volume_sequence_number },
    __("\1#\1Set Volume set sequence number")},
    {{"x& ,old-exclude&", NULL, (getpargfun)add_match },
    __("\1FILE\1Exclude file name(depreciated)")},
    {{"hard-disk-boot~", NULL, (getpargfun)get_hd_boot },
    __("Boot image is a hard disk image")},
    {{"no-emul-boot~", NULL, (getpargfun)get_ne_boot },
    __("Boot image is 'no emulation' image")},
    {{"no-boot~", NULL, (getpargfun)get_no_boot },
    __("Boot image is not bootable")},
    {{"boot-load-seg&", NULL, (getpargfun)get_boot_addr },
    __("\1#\1Set load segment for boot image")},
    {{"boot-load-size&", NULL, (getpargfun)get_boot_size },
    __("\1#\1Set numbers of load sectors")},
    {{"boot-info-table~", NULL, (getpargfun)get_boot_table },
    __("Patch boot image with info table")},
    {{"XA", &use_XA },
    __("Generate XA directory attributes")},
    {{"xa", &rationalize_xa },
    __("Generate rationalized XA directory attributes")},
    {{"z,transparent-compression", &transparent_compression },
    __("Enable transparent compression of files")},
 
#ifdef APPLE_HYB
    {{"hfs-type*", &deftype },
    __("\1TYPE\1Set HFS default TYPE")},
    {{"hfs-creator", &defcreator },
    __("\1CREATOR\1Set HFS default CREATOR")},
    {{"g,apple", &apple_ext },
    __("Add Apple ISO9660 extensions")},
    {{"h,hfs", &apple_hyb },
    __("Create ISO9660/HFS hybrid")},
    {{"map*", &afpfile },
    __("\1MAPPING_FILE\1Map file extensions to HFS TYPE/CREATOR")},
    {{"magic*", &magic_file },
    __("\1FILE\1Magic file for HFS TYPE/CREATOR")},
    {{"probe", &probe },
    __("Probe all files for Apple/Unix file types")},
    {{"mac-name", &use_mac_name },
    __("Use Macintosh name for ISO9660/Joliet/RockRidge file name")},
    {{"no-mac-files", &nomacfiles },
    __("Do not look for Unix/Mac files (depreciated)")},
    {{"boot-hfs-file*", &hfs_boot_file },
    __("\1FILE\1Set HFS boot image name")},
    {{"part", &gen_pt },
    __("Generate HFS partition table")},
    {{"cluster-size&", NULL, (getpargfun)get_bsize },
    __("\1SIZE\1Cluster size for PC Exchange Macintosh files")},
    {{"auto*", &autoname },
    __("\1FILE\1Set HFS AutoStart file name")},
    {{"no-desktop%0", &create_dt },
    __("Do not create the HFS (empty) Desktop files")},
    {{"hide-hfs& ", NULL, (getpargfun)hfs_add_match },
    __("\1GLOBFILE\1Hide HFS file")},
    {{"hide-hfs-list&", NULL, (getpargfun)hfs_add_list },
    __("\1FILE\1List of HFS files to hide")},
    {{"hfs-volid*", &hfs_volume_id },
    __("\1HFS_VOLID\1Volume name for the HFS partition")},
    {{"icon-position", &icon_pos },
    __("Keep HFS icon position")},
    {{"root-info*", &root_info },
    __("\1FILE\1finderinfo for root folder")},
    {{"input-hfs-charset*", &hfs_icharset },
    __("\1CHARSET\1Local input charset for HFS file name conversion")},
    {{"output-hfs-charset*", &hfs_ocharset },
    __("\1CHARSET\1Output charset for HFS file name conversion")},
    {{"hfs-unlock%0", &hfs_lock },
    __("Leave HFS Volume unlocked")},
    {{"hfs-bless*", &hfs_bless },
    __("\1FOLDER_NAME\1Name of Folder to be blessed")},
    {{"hfs-parms*", &hfs_parms },
    __("\1PARAMETERS\1Comma separated list of HFS parameters")},
#ifdef PREP_BOOT
    {{"prep-boot&", NULL, (getpargfun)get_prep_boot },
    __("\1FILE\1PReP boot image file -- up to 4 are allowed")},
    {{"chrp-boot&", NULL, (getpargfun)get_chrp_boot },
    __("Add CHRP boot header")},
#endif  /* PREP_BOOT */
    {{"cap~", NULL, (getpargfun)hfs_cap },
    __("-Look for AUFS CAP Macintosh files")},
    {{"netatalk~", NULL, (getpargfun)hfs_neta},
    __("-Look for NETATALK Macintosh files")},
    {{"double~", NULL, (getpargfun)hfs_dbl },
    __("-Look for AppleDouble Macintosh files")},
    {{"ethershare~", NULL, (getpargfun)hfs_esh },
    __("-Look for Helios EtherShare Macintosh files")},
    {{"exchange~", NULL, (getpargfun)hfs_fe },
    __("-Look for PC Exchange Macintosh files")},
    {{"sgi~", NULL, (getpargfun)hfs_sgi },
    __("-Look for SGI Macintosh files")},
    {{"macbin~", NULL, (getpargfun)hfs_mbin },
    __("-Look for MacBinary Macintosh files")},
    {{"single~", NULL, (getpargfun)hfs_sgl },
    __("-Look for AppleSingle Macintosh files")},
    {{"ushare~", NULL, (getpargfun)hfs_esh },
    __("-Look for IPT UShare Macintosh files")},
    {{"xinet~", NULL, (getpargfun)hfs_sgi },
    __("-Look for XINET Macintosh files")},
    {{"dave~", NULL, (getpargfun)hfs_dave },
    __("-Look for DAVE Macintosh files")},
    {{"sfm~", NULL, (getpargfun)hfs_sfm },
    __("-Look for SFM Macintosh files")},
    {{"osx-double~", NULL, (getpargfun)hfs_xdbl },
    __("-Look for MacOS X AppleDouble Macintosh files")},
    {{"osx-hfs~", NULL, (getpargfun)hfs_xhfs },
    __("-Look for MacOS X HFS Macintosh files")},
    {{"no-hfs~", NULL, (getpargfun)hfs_nohfs },
    __("Do not create ISO9660/HFS hybrid")},
#endif  /* APPLE_HYB */
    {{"legacy~", NULL, dolegacy },
    __("\2")},
};
 
#define OPTION_COUNT (sizeof mki_options / sizeof (mki_options[0]))
 
LOCAL   void    read_rcfile __PR((char *appname));
LOCAL   void    susage      __PR((int excode));
LOCAL   void    usage       __PR((int excode));
EXPORT  int iso9660_date    __PR((char *result, time_t crtime));
LOCAL   void    hide_reloc_dir  __PR((void));
LOCAL   char    *get_pnames __PR((int argc, char *const *argv, int opt,
                    char *pname, int pnsize, FILE *fp));
EXPORT  int main        __PR((int argc, char *argv[]));
LOCAL   void    list_locales    __PR((void));
EXPORT  char    *findgequal __PR((char *s));
LOCAL   char    *escstrcpy  __PR((char *to, size_t tolen, char *from));
struct directory *get_graft __PR((char *arg, char *graft_point, size_t glen,
                        char *nodename, size_t nlen,
                        char **short_namep, BOOL do_insert));
EXPORT  void    *e_malloc   __PR((size_t size));
EXPORT  char    *e_strdup   __PR((const char *s));
LOCAL   void    ovstrcpy    __PR((char *p2, char *p1));
LOCAL   void    checkarch   __PR((char *name));
 
LOCAL void
read_rcfile(appname)
    char        *appname;
{
    FILE        *rcfile = (FILE *)NULL;
    struct rcopts   *rco;
    char        *pnt,
            *pnt1;
    char        linebuffer[256];
    static char rcfn[] = ".mkisofsrc";
    char        filename[1000];
    int     linum;
 
    strlcpy(filename, rcfn, sizeof (filename));
    if (access(filename, R_OK) == 0)
        rcfile = fopen(filename, "r");
    if (!rcfile && errno != ENOENT)
        errmsg(_("Cannot open '%s'.\n"), filename);
 
    if (!rcfile) {
        pnt = getenv("MKISOFSRC");
        if (pnt && strlen(pnt) <= sizeof (filename)) {
            strlcpy(filename, pnt, sizeof (filename));
            if (access(filename, R_OK) == 0)
                rcfile = fopen(filename, "r");
            if (!rcfile && errno != ENOENT)
                errmsg(_("Cannot open '%s'.\n"), filename);
        }
    }
    if (!rcfile) {
        pnt = getenv("HOME");
        if (pnt && strlen(pnt) + strlen(rcfn) + 2 <=
                            sizeof (filename)) {
            strlcpy(filename, pnt, sizeof (filename));
            if (strlen(rcfn) + 2 <=
                (sizeof (filename) - strlen(filename))) {
                strcat(filename, "/");
                strcat(filename, rcfn);
            }
            if (access(filename, R_OK) == 0)
                rcfile = fopen(filename, "r");
            if (!rcfile && errno != ENOENT)
                errmsg(_("Cannot open '%s'.\n"), filename);
        }
    }
    if (!rcfile && strlen(appname) + sizeof (rcfn) + 2 <=
                            sizeof (filename)) {
        strlcpy(filename, appname, sizeof (filename));
        pnt = strrchr(filename, '/');
        if (pnt) {
            strlcpy(pnt + 1, rcfn,
                sizeof (filename) - (pnt + 1 - filename));
            if (access(filename, R_OK) == 0)
                rcfile = fopen(filename, "r");
            if (!rcfile && errno != ENOENT)
                errmsg(_("Cannot open '%s'.\n"), filename);
        }
    }
    if (!rcfile)
        return;
    if (verbose > 0) {
        fprintf(stderr, _("Using \"%s\"\n"), filename);
    }
    /* OK, we got it.  Now read in the lines and parse them */
    linum = 0;
    while (fgets(linebuffer, sizeof (linebuffer), rcfile)) {
        char    *name;
        char    *name_end;
 
        ++linum;
        /* skip any leading white space */
        pnt = linebuffer;
        while (*pnt == ' ' || *pnt == '\t')
            ++pnt;
        /*
         * If we are looking at a # character, this line is a comment.
         */
        if (*pnt == '#')
            continue;
        /*
         * The name should begin in the left margin.  Make sure it is
         * in upper case.  Stop when we see white space or a comment.
         */
        name = pnt;
        while (*pnt && (isalpha((unsigned char) *pnt) || *pnt == '_')) {
            if (islower((unsigned char) *pnt))
                *pnt = toupper((unsigned char) *pnt);
            pnt++;
        }
        if (name == pnt) {
            fprintf(stderr, _("%s:%d: name required\n"), filename,
                    linum);
            continue;
        }
        name_end = pnt;
        /* Skip past white space after the name */
        while (*pnt == ' ' || *pnt == '\t')
            pnt++;
        /* silently ignore errors in the rc file. */
        if (*pnt != '=') {
            fprintf(stderr, _("%s:%d: equals sign required after '%.*s'\n"),
                        filename, linum,
                        /* XXX Should not be > int */
                        (int)(name_end-name), name);
            continue;
        }
        /* Skip pas the = sign, and any white space following it */
        pnt++;  /* Skip past '=' sign */
        while (*pnt == ' ' || *pnt == '\t')
            pnt++;
 
        /* now it is safe to NUL terminate the name */
 
        *name_end = 0;
 
        /* Now get rid of trailing newline */
 
        pnt1 = pnt;
        while (*pnt1) {
            if (*pnt1 == '\n') {
                *pnt1 = 0;
                break;
            }
            pnt1++;
        }
        /* OK, now figure out which option we have */
        for (rco = rcopt; rco->tag; rco++) {
            if (strcmp(rco->tag, name) == 0) {
                *rco->variable = e_strdup(pnt);
                break;
            }
        }
        if (rco->tag == NULL) {
            fprintf(stderr, _("%s:%d: field name \"%s\" unknown\n"),
                filename, linum,
                name);
        }
    }
    if (ferror(rcfile))
        errmsg(_("Read error on '%s'.\n"), filename);
    fclose(rcfile);
}
 
char    *path_table_l = NULL;
char    *path_table_m = NULL;
 
char    *jpath_table_l = NULL;
char    *jpath_table_m = NULL;
 
int goof = 0;
 
#ifndef TRUE
#define TRUE 1
#endif
 
#ifndef FALSE
#define FALSE 0
#endif
 
LOCAL void
susage(excode)
    int     excode;
{
    const char  *program_name = "mkisofs";
 
#ifdef  USE_FIND
    fprintf(stderr, _("Usage: %s [options] [-find] file... [find expression]\n"), program_name);
#else
    fprintf(stderr, _("Usage: %s [options] file...\n"), program_name);
#endif
    fprintf(stderr, _("\nUse %s -help\n"), program_name);
    fprintf(stderr, _("to get a list all of valid options.\n"));
#ifdef  USE_FIND
    fprintf(stderr, _("\nUse %s -find -help\n"), program_name);
    fprintf(stderr, _("to get a list of all valid -find options.\n"));
#endif
    error(_("\nMost important Options:\n"));
    error(_("   -posix-H        Follow sylinks encountered on command line\n"));
    error(_("   -posix-L        Follow all symlinks\n"));
    error(_("   -posix-P        Do not follow symlinks (default)\n"));
    error(_("   -o FILE, -output FILE   Set output file name\n"));
    error(_("   -R, -rock       Generate Rock Ridge directory information\n"));
    error(_("   -r, -rational-rock  Generate rationalized Rock Ridge directory info\n"));
    error(_("   -J, -joliet     Generate Joliet directory information\n"));
    error(_("   -print-size     Print estimated filesystem size and exit\n"));
#ifdef  UDF
    error(_("   -UDF            Generate UDF file system\n"));
#endif
#ifdef  DVD_AUD_VID
    error(_("   -dvd-audio      Generate DVD-Audio compliant UDF file system\n"));
    error(_("   -dvd-video      Generate DVD-Video compliant UDF file system\n"));
    error(_("   -dvd-hybrid     Generate a hybrid (DVD-Audio/DVD-Video) compliant UDF file system\n"));
#endif
    error(_("   -iso-level LEVEL    Set ISO9660 level (1..3) or 4 for ISO9660 v 2\n"));
    error(_("   -V ID, -volid ID    Set Volume ID\n"));
    error(_("   -graft-points       Allow to use graft points for filenames\n"));
    error(_("   -M FILE, -prev-session FILE Set path to previous session to merge\n"));
 
    exit(excode);
}
 
const char *optend  __PR((const char *fmt));
const char *
optend(fmt)
    const char  *fmt;
{
    int     c;
    const char  *ofmt = fmt;
 
    for (; *fmt != '\0'; fmt++) {
        c = *fmt;
        if (c == '\\') {
            if (*++fmt == '\0')
                break;
            continue;
        }
        if (c == ',' || c == '%' || c == '*' || c == '?' ||
            c == '#' || c == '&' || c == '~')
            break;
        if (fmt > ofmt && c == '+')
            break;
 
    }
    return (fmt);
}
 
int printopts   __PR((FILE *f, const char *fmt, const char *arg, int twod));
int
printopts(f, fmt, arg, twod)
    FILE        *f;
    const char  *fmt;
    const char  *arg;
    int     twod;
{
    const char  *p;
    int     len = 0;
    int     optlen;
    int     arglen = 0;
 
    if (arg) {
        if (*arg == '-' || *arg == '\\')
            arg++;
 
        if (*arg == '\1') {
            p = ++arg;
            while (*p != '\0' && *p != '\1' && *p != '\2')
                p++;
            arglen = p - arg;
            if (arglen == 0)
                arg = NULL;
        } else {
            arg = NULL;
        }
    }
    for (p = optend(fmt); p > fmt; p = optend(fmt)) {
        optlen = p - fmt;
        len += fprintf(f, "%s%.*s%s%.*s",
                *fmt == '+' ? "" :
                    (optlen > 1 && twod) ? "--" : "-",
                (int)(p - fmt), fmt,
                arg != NULL ? " " : "",
                arglen, arg != NULL ? arg : "");
        fmt = p;
        while (*fmt != '\0' && *fmt != ',')
            fmt++;
        if (*fmt == ',') {
            fmt++;
            len += fprintf(f, ", ");
        }
    }
    return (len);
}
 
const char  *docstr __PR((const char *str, int *no_help));
const char *
docstr(str, no_help)
    const char  *str;
    int     *no_help;
{
    if (no_help)
        *no_help = 0;
    if (str == NULL)
        return (str);
 
    if (*str == '-' || *str == '\\')
        str++;
 
    if (*str == '\1') {
        str++;
        while (*str != '\0' && *str != '\1' && *str != '\2')
            str++;
    }
    if (*str == '\1') {
        str++;
    } else if (*str == '\2') {
        str++;
        if (no_help)
            *no_help = 1;
    }
 
    if (*str == '\0')
        return (NULL);
    return (str);
}
 
LOCAL void
usage(excode)
    int     excode;
{
    const char  *program_name = "mkisofs";
 
    int i;
 
#ifdef  USE_FIND
    fprintf(stderr, _("Usage: %s [options] [-find] file... [find expression]\n"), program_name);
#else
    fprintf(stderr, _("Usage: %s [options] file...\n"), program_name);
#endif
 
    fprintf(stderr, _("Options:\n"));
    for (i = 0; i < (int)OPTION_COUNT; i++) {
        if (docstr(mki_options[i].doc, NULL) != NULL) {
            int len;
            int j;
 
            fprintf(stderr, "  ");
            len = 2;
            j = i;
            do {
                int     twodash;
                int     no_help;
                const char  *doc;
 
                doc = mki_options[j].doc;
                twodash = (doc != NULL && *doc == '-');
                doc = docstr(doc, &no_help);
 
                if (!no_help) {
                    /*
                     * If more options for one doc, then
                     * print a comma as separator.
                     */
                    if (j > i)
                        len += fprintf(stderr, ", ");
                    len += printopts(stderr,
                        mki_options[j].opt.ga_format,
                        mki_options[j].doc,
                        twodash);
                }
                ++j;
            }
            while (j < (int)OPTION_COUNT &&
                docstr(mki_options[j].doc, NULL) == NULL);
 
            if (len >= 30) {
                fprintf(stderr, "\n");
                len = 0;
            }
            for (; len < 30; len++)
                fputc(' ', stderr);
 
            fprintf(stderr, "%s\n",
                    docstr(mki_options[i].doc, NULL));
        }
    }
    exit(excode);
}
 
 
/*
 * Fill in date in the iso9660 format
 * This takes 7 bytes and supports year 1900 .. 2155 with 1 second granularity
 *
 * The standards  state that the timezone offset is in multiples of 15
 * minutes, and is what you add to GMT to get the localtime.  The U.S.
 * is always at a negative offset, from -5h to -8h (can vary a little
 * with DST,  I guess).  The Linux iso9660 filesystem has had the sign
 * of this wrong for ages (mkisofs had it wrong too until February 1997).
 */
EXPORT int
iso9660_date(result, crtime)
    char    *result;
    time_t  crtime;
{
    struct tm   local;
    struct tm   gmt;
 
    local = *localtime(&crtime);
    gmt   = *gmtime(&crtime);
 
    result[0] = local.tm_year;
    result[1] = local.tm_mon + 1;
    result[2] = local.tm_mday;
    result[3] = local.tm_hour;
    result[4] = local.tm_min;
    result[5] = local.tm_sec;
 
    local.tm_min  -= gmt.tm_min;
    local.tm_hour -= gmt.tm_hour;
    local.tm_yday -= gmt.tm_yday;
    local.tm_year -= gmt.tm_year;
    if (local.tm_year)      /* Hit new-year limit   */
        local.tm_yday = local.tm_year;  /* yday = +-1   */
 
    result[6] = (local.tm_min + 60 *
            (local.tm_hour + 24 * local.tm_yday)) / 15;
 
    return (0);
}
 
/*
 * Fill in date in the iso9660 long format
 * This takes 17 bytes and supports year 0 .. 9999 with 10ms granularity
 * If iso9660_ldate() is called with gmtoff set to -100, the gmtoffset for
 * the related time is computed via localtime(). For the modification
 * date in the PVD, the date and the GMT offset may be defined via the
 * -modification-date command line option.
 */
EXPORT int
iso9660_ldate(result, crtime, nsec, gmtoff)
    char    *result;
    time_t  crtime;
    int nsec;
    int gmtoff;
{
    struct tm   local;
    struct tm   gmt;
 
    local = *localtime(&crtime);
    gmt   = *gmtime(&crtime);
 
    /*
     * There was a comment here about breaking in the year 2000.
     * That's not true, in 2000 tm_year == 100, so 1900+tm_year == 2000.
     */
    sprintf(result, "%4.4d%2.2d%2.2d%2.2d%2.2d%2.2d%2.2d",
        1900 + local.tm_year,
        local.tm_mon + 1, local.tm_mday,
        local.tm_hour, local.tm_min, local.tm_sec,
        nsec / 10000000);
 
    if (gmtoff == -100) {
        local.tm_min  -= gmt.tm_min;
        local.tm_hour -= gmt.tm_hour;
        local.tm_yday -= gmt.tm_yday;
        local.tm_year -= gmt.tm_year;
        if (local.tm_year)      /* Hit new-year limit   */
            local.tm_yday = local.tm_year;  /* yday = +-1   */
 
        result[16] = (local.tm_min + 60 *
                (local.tm_hour + 24 * local.tm_yday)) / 15;
    } else {
        result[16] = gmtoff;
    }
    return (0);
}
 
/* hide "./rr_moved" if all its contents are hidden */
LOCAL void
hide_reloc_dir()
{
    struct directory_entry *s_entry;
 
    for (s_entry = reloc_dir->contents; s_entry; s_entry = s_entry->next) {
        if (strcmp(s_entry->name, ".") == 0 ||
                strcmp(s_entry->name, "..") == 0)
            continue;
 
        if ((s_entry->de_flags & INHIBIT_ISO9660_ENTRY) == 0)
            return;
    }
 
    /* all entries are hidden, so hide this directory */
    reloc_dir->dir_flags |= INHIBIT_ISO9660_ENTRY;
    reloc_dir->self->de_flags |= INHIBIT_ISO9660_ENTRY;
}
 
/*
 * get pathnames from the command line, and then from given file
 */
LOCAL char *
get_pnames(argc, argv, opt, pname, pnsize, fp)
    int argc;
    char    * const *argv;
    int opt;
    char    *pname;
    int pnsize;
    FILE    *fp;
{
    int len;
 
    /* we may of already read the first line from the pathnames file */
    if (save_pname) {
        save_pname = 0;
        return (pname);
    }
 
#ifdef  USE_FIND
    if (dofind && opt < (find_pav - argv))
        return (argv[opt]);
    else if (!dofind && opt < argc)
        return (argv[opt]);
#else
    if (opt < argc)
        return (argv[opt]);
#endif
 
    if (fp == NULL)
        return ((char *)0);
 
    if (fgets(pname, pnsize, fp)) {
        /* Discard newline */
        len = strlen(pname);
        if (pname[len - 1] == '\n') {
            pname[len - 1] = '\0';
        }
        return (pname);
    }
    return ((char *)0);
}
 
EXPORT int
main(argc, argv)
    int     argc;
    char        *argv[];
{
    int cac = argc;
    char    * const *cav = argv;
 
    struct directory_entry de;
 
#ifdef HAVE_SBRK
    unsigned long   mem_start;
#endif
    struct stat statbuf;
    struct iso_directory_record *mrootp = NULL;
    struct output_fragment *opnt;
    struct ga_flags flags[OPTION_COUNT + 1];
    int     c;
    int     n;
    char        *node = NULL;
    FILE        *pfp = NULL;
    char        pname[2*PATH_MAX + 1 + 1];  /* may be too short */
    char        *arg;               /* if '\\' present  */
    char        nodename[PATH_MAX + 1];
    int     no_path_names = 1;
    int     warn_violate = 0;
    int     have_cmd_line_pathspec = 0;
    int     rationalize_all = 0;
    int     argind = 0;
#ifdef APPLE_HYB
    int     hfs_ct = 0;
#endif  /* APPLE_HYB */
 
 
#ifdef __EMX__
    /* This gives wildcard expansion with Non-Posix shells with EMX */
    _wildcard(&argc, &argv);
#endif
    save_args(argc, argv);
 
#if defined(USE_NLS)
    setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)   /* Should be defined by cc -D */
#define TEXT_DOMAIN "mkisofs"   /* Use this only if it weren't */
#endif
    arg = searchfileinpath("share/locale", F_OK,
                    SIP_ANY_FILE|SIP_NO_PATH, NULL);
    if (arg)
        (void) bindtextdomain(TEXT_DOMAIN, arg);
    else
#ifdef  PROTOTYPES
    (void) bindtextdomain(TEXT_DOMAIN, INS_BASE "/share/locale");
#else
    (void) bindtextdomain(TEXT_DOMAIN, "/usr/share/locale");
#endif
    (void) textdomain(TEXT_DOMAIN);
#endif
 
 
    if (argc < 2) {
        errmsgno(EX_BAD, _("Missing pathspec.\n"));
        susage(1);
    }
    /* Get the defaults from the .mkisofsrc file */
    read_rcfile(argv[0]);
 
    {
        int     i;
 
        for (i = 0; i < (int)OPTION_COUNT; i++) {
            flags[i] = mki_options[i].opt;
        }
        flags[i].ga_format = NULL;
        gl_flags = flags;
    }
    time(&begun);
    gettimeofday(&tv_begun, NULL);
    modification_date.l_sec  = tv_begun.tv_sec;
    modification_date.l_usec = tv_begun.tv_usec;
    modification_date.l_gmtoff = -100;
 
    cac--;
    cav++;
    c = getvargs(&cac, &cav, GA_NO_PROPS, flags);
    if (c < 0) {
        if (c == BADFLAG && strchr(cav[0], '=')) {
            argind = argc - cac;
            goto args_ok;
        }
        error(_("Bad Option '%s' (error %d %s).\n"),
                    cav[0], c, getargerror(c));
        susage(EX_BAD);
    }
args_ok:
    if (argind == 0)
        argind = argc - cac;
    path_ind = argind;
    if (cac > 0)
        have_cmd_line_pathspec = 1;
    if (help)
        usage(0);
    if (pversion) {
        printf(_("mkisofs %s (%s-%s-%s)\n\n\
Copyright (C) 1993-1997 %s\n\
Copyright (C) 1997-2017 %s\n"),
            version_string,
            HOST_CPU, HOST_VENDOR, HOST_OS,
            _("Eric Youngdale"),
            _("Joerg Schilling"));
#ifdef  APPLE_HYB
        printf(_("Copyright (C) 1997-2001 James Pearson\n"));
#endif
#ifdef  UDF
        printf(_("Copyright (C) 2006      HELIOS Software GmbH\n"));
#endif
#ifdef  OPTION_SILO_BOOT
        printf(_("Warning: this is unofficial (modified) version of mkisofs that incorporates\n"));
        printf(_("  support for a non Sparc compliant boot method called SILO.\n"));
        printf(_("  The official method to create Sparc boot CDs is to use -sparc-boot\n"));
        printf(_("  In case of problems first test with an official version of mkisofs.\n"));
#endif
        exit(0);
    }
#ifdef  USE_FIND
    if (dofind) {
        finda_t fa;
 
        cac = find_ac;
        cav = find_av;
        find_firstprim(&cac, &cav);
        find_pac = cac;
        find_pav = cav;
        argind = argc - find_ac;
 
        if (cac > 0) {
            find_argsinit(&fa);
            fa.walkflags = walkflags;
            fa.Argc = cac;
            fa.Argv = (char **)cav;
            find_node = find_parse(&fa);
            if (fa.primtype == FIND_ERRARG)
                comexit(fa.error);
            if (fa.primtype != FIND_ENDARGS)
                comerrno(EX_BAD, _("Incomplete expression.\n"));
            plusp = fa.plusp;
            find_patlen = fa.patlen;
            walkflags = fa.walkflags;
            maxdepth = fa.maxdepth;
            mindepth = fa.mindepth;
 
            if (find_node &&
                !(check_image || print_size) &&
                (outfile == NULL ||
                (outfile[0] == '-' && outfile[1] == '\0'))) {
                if (find_pname(find_node, "-exec") ||
                    find_pname(find_node, "-exec+") ||
                    find_pname(find_node, "-ok"))
                    comerrno(EX_BAD,
                    _("Cannot -exec with '-o -'.\n"));
            }
        }
 
        if (find_ac <= 0 || find_ac == find_pac) {
            errmsgno(EX_BAD, _("Missing pathspec for -find.\n"));
            susage(EX_BAD);
        }
    }
#endif
#ifdef DVD_AUD_VID
 
    dvd_aud_vid_flag = (dvd_audio ? DVD_SPEC_AUDIO : 0)
            | (dvd_hybrid ? DVD_SPEC_HYBRD : 0)
            | (dvd_video ? DVD_SPEC_VIDEO : 0);
 
#endif
 
    if (abstract) {
        if (strlen(abstract) > 37) {
            comerrno(EX_BAD,
            _("Abstract filename string too long (cur. %lld max. 37 chars).\n"),
            (Llong)strlen(abstract));
        }
    }
    if (appid) {
        if (strlen(appid) > 128) {
            comerrno(EX_BAD,
            _("Application-id string too long (cur. %lld max. 128 chars).\n"),
            (Llong)strlen(appid));
        }
    }
    if (biblio) {
        if (strlen(biblio) > 37) {
            comerrno(EX_BAD,
            _("Bibliographic filename string too long (cur. %lld max. 37 chars).\n"),
            (Llong)strlen(biblio));
        }
    }
#ifdef  DUPLICATES_ONCE
    /*
     * If -duplicates-once was specified, do not implicitly enable
     * -cache-inodes.
     */
    if (cache_inodes < 0 && duplicates_once)
        cache_inodes = 0;
#endif
#if defined(IS_CYGWIN)
    /*
     * If we have 64 bit inode numbers, Cygwin should be able to work
     * correctly on NTFS, otherwise disable caching unless it has
     * been enforced via -cache-inodes.
     */
    if (cache_inodes < 0 && sizeof (ino_t) < 8)
        cache_inodes = 0;
#endif
    if (cache_inodes < 0)
        cache_inodes = 1;
#ifdef  DUPLICATES_ONCE
    if (!cache_inodes && !duplicates_once) {
#else
    if (!cache_inodes) {
#endif
        correct_inodes = FALSE;
        if (use_RockRidge) {
            errmsgno(EX_BAD,
            _("Warning: Cannot write inode/link information with -no-cache-inodes.\n"));
        } else {
            errmsgno(EX_BAD,
            _("Warning: Cannot add inode hints with -no-cache-inodes.\n"));
        }
    }
#if defined(__MINGW32__)
    if (cache_inodes) {
        cache_inodes = 0;
        correct_inodes = FALSE;
        errmsgno(EX_BAD,
        _("Warning: cannot -cache-inodes on this platform - ignoring.\n"));
    }
#endif
    if (!correct_inodes)
        rrip112 = FALSE;
    if (check_image) {
        check_session++;
        check_oldnames++;
        merge_image = check_image;
        outfile = DEV_NULL;
        /*
         * cdrecord_data is handled specially in multi.c
         * as we cannot write to all strings.
         * If mkisofs is called with -C xx,yy
         * our default is overwritten.
         */
/*      cdrecord_data = "0,0";*/
    }
    if (copyright) {
        if (strlen(copyright) > 37) {
            comerrno(EX_BAD,
            _("Copyright filename string too long (cur. %lld max. 37 chars).\n"),
            (Llong)strlen(copyright));
        }
    }
    if (genboot_image)
        use_genboot++;
    if (boot_catalog)
        use_eltorito++;
    else
        boot_catalog = BOOT_CATALOG_DEFAULT;
    if (omit_period && iso9660_level < 4)
        warn_violate++;
    if (data_change_warn)
        errconfig("WARN|GROW|SHRINK *");
    if (dirmode_str) {
        char    *end = 0;
 
        rationalize++;
        use_RockRidge++;
        rationalize_dirmode++;
 
        /*
         * If -new-dir-mode was specified, new_dir_mode is set
         * up later with a value that matches the -new-dir-mode arg.
         */
        new_dir_mode = dirmode_to_use = strtol(dirmode_str, &end, 8);
        if (!end || *end != 0 ||
            dirmode_to_use < 0 || dirmode_to_use > 07777) {
            comerrno(EX_BAD, _("Bad mode for -dir-mode\n"));
        }
    }
    if (disable_deep_reloc)
        RR_relocation_depth = 0xFFFFFFFF;
    if (filemode_str) {
        char    *end = 0;
 
        rationalize++;
        use_RockRidge++;
        rationalize_filemode++;
 
        filemode_to_use = strtol(filemode_str, &end, 8);
        if (!end || *end != 0 ||
            filemode_to_use < 0 || filemode_to_use > 07777) {
            comerrno(EX_BAD, _("Bad mode for -file-mode\n"));
        }
    }
#ifdef  __warn_follow__
    if (follow_links) {
            errmsgno(EX_BAD,
            _("Warning: -follow-links does not always work correctly; be careful.\n"));
    }
#endif
    if (gid_str) {
        char    *end = 0;
 
        rationalize++;
        use_RockRidge++;
        rationalize_gid++;
 
        gid_to_use = strtol(gid_str, &end, 0);
        if (!end || *end != 0) {
            comerrno(EX_BAD, _("Bad value for -gid\n"));
        }
    }
    switch (iso9660_level) {
 
    case 1:
        /*
         * Only on file section
         * 8.3 d or d1 characters for files
         * 8   d or d1 characters for directories
         */
        break;
    case 2:
        /*
         * Only on file section
         */
        break;
    case 3:
        /*
         * No restrictions
         */
        do_largefiles++;
        break;
    case 4:
        /*
         * This is ISO-9660:1988 (ISO-9660 version 2)
         */
        do_largefiles++;
        iso9660_namelen = MAX_ISONAME_V2; /* allow 207 chars */
        full_iso9660_filenames++;   /* 31+ chars    */
        omit_version_number++;
        RR_relocation_depth = 0xFFFFFFFF;
 
        /*
         * From -U ...
         */
        omit_period++;          /* trailing dot */
        allow_leading_dots++;
        relaxed_filenames++;        /* all chars    */
        allow_lowercase++;      /* even lowcase */
        allow_multidot++;       /* > 1 dots */
        break;
 
    default:
        comerrno(EX_BAD, _("Illegal iso9660 Level %d, use 1..3 or 4.\n"),
                    iso9660_level);
    }
 
    if (joliet_long) {
        use_Joliet++;
        jlen = JLONGMAX;
    }
    if (jcharset) {
        use_Joliet++;
        icharset = jcharset;
    }
    if (max_filenames && iso9660_level < 4) {
        iso9660_namelen = MAX_ISONAME_V1; /* allow 37 chars */
        full_iso9660_filenames++;
        omit_version_number++;
        warn_violate++;
    }
    if (allow_leading_dots && iso9660_level < 4)
        warn_violate++;
    if (omit_version_number && iso9660_level < 4)
        warn_violate++;
    if (new_dirmode_str) {
        char    *end = 0;
 
        rationalize++;
 
        new_dir_mode = strtol(new_dirmode_str, &end, 8);
        if (!end || *end != 0 ||
            new_dir_mode < 0 || new_dir_mode > 07777) {
            comerrno(EX_BAD, _("Bad mode for -new-dir-mode\n"));
        }
    }
    if (sectype) {
        if (strcmp(sectype, "data") == 0)
            osecsize = 2048;
        else if (strcmp(sectype, "xa1") == 0)
            osecsize = 2056;
        else if (strcmp(sectype, "raw") == 0) {
            osecsize = 2352;
            comerrno(EX_BAD,
                _("Unsupported sector type '%s'.\n"),
                sectype);
        }
    }
    if (preparer) {
        if (strlen(preparer) > 128) {
            comerrno(EX_BAD, _("Preparer string too long (cur. %lld max. 128 chars).\n"),
            (Llong)strlen(preparer));
        }
    }
    if (publisher) {
        if (strlen(publisher) > 128) {
            comerrno(EX_BAD,
                _("Publisher string too long (cur. %lld max. 128 chars).\n"),
                (Llong)strlen(publisher));
        }
    }
    if (rationalize_rr) {
        rationalize_all++;
        use_RockRidge++;
    }
    if (stream_filename) {
        if (strlen(stream_filename) > MAX_ISONAME)
            comerrno(EX_BAD,
                _("stream-file-name too long (%llu), max is %d.\n"),
                (Ullong)strlen(stream_filename), MAX_ISONAME);
        if (strchr(stream_filename, '/'))
            comerrno(EX_BAD, _("Illegal character '/' in stream-file-name.\n"));
        iso9660_level = 4;
    } else {
        stream_filename = omit_version_number ? "STREAM.IMG" : "STREAM.IMG;1";
    }
    if (system_id) {
        if (strlen(system_id) > 32) {
            comerrno(EX_BAD,
                    _("System ID string too long\n"));
        }
    }
    if (trans_tbl)
        generate_tables++;
    else
        trans_tbl = "TRANS.TBL";
    if (ucs_level < 1 || ucs_level > 3)
        comerrno(EX_BAD, _("Illegal UCS Level %d, use 1..3.\n"),
                        ucs_level);
#ifdef  DVD_AUD_VID
    if (dvd_aud_vid_flag) {
        if (!use_udf)
            rationalize_udf++;
    }
#endif
#ifdef  UDF
    if (rationalize_udf) {
        rationalize_all++;
        use_udf++;
    }
#endif
    if (uid_str) {
        char    *end = 0;
 
        rationalize++;
        use_RockRidge++;
        rationalize_uid++;
 
        uid_to_use = strtol(uid_str, &end, 0);
        if (!end || *end != 0) {
            comerrno(EX_BAD, _("Bad value for -uid\n"));
        }
    }
    if (untranslated_filenames && iso9660_level < 4) {
        /*
         * Minimal (only truncation of 31+ characters)
         * translation of filenames.
         *
         * Forces -l, -d, -N, -allow-leading-dots,
         * -relaxed-filenames,
         * -allow-lowercase, -allow-multidot
         *
         * This is for HP-UX, which does not recognize ANY
         * extentions (Rock Ridge, Joliet), causing pain when
         * loading software. pfs_mount can be used to read the
         * extensions, but the untranslated filenames can be
         * read by the "native" cdfs mounter. Completely
         * violates iso9660.
         */
        full_iso9660_filenames++;   /* 31 chars */
        omit_period++;          /* trailing dot */
        allow_leading_dots++;
        omit_version_number++;
        relaxed_filenames++;        /* all chars    */
        allow_lowercase++;      /* even lowcase */
        allow_multidot++;       /* > 1 dots */
        warn_violate++;
    }
    if (no_allow_lowercase)
        allow_lowercase = 0;
    if (relaxed_filenames && iso9660_level < 4)
        warn_violate++;
    if (iso_translate == 0 && iso9660_level < 4)
        warn_violate++;
    if (allow_lowercase && iso9660_level < 4)
        warn_violate++;
    if (allow_multidot && iso9660_level < 4)
        warn_violate++;
    if (volume_id) {
        if (strlen(volume_id) > 32) {
            comerrno(EX_BAD,
                _("Volume ID string too long (cur. %lld max. 32 chars).\n"),
                (Llong)strlen(volume_id));
        }
    }
    if (volset_id) {
        if (strlen(volset_id) > 128) {
            comerrno(EX_BAD,
            _("Volume set ID string too long (cur. %lld max. 128 chars).\n"),
            (Llong)strlen(volset_id));
        }
    }
    if (volume_set_size) {
        if (volume_set_size <= 0) {
            comerrno(EX_BAD,
            _("Illegal Volume Set Size %d\n"), volume_set_size);
        }
        if (volume_set_size > 1) {
            comerrno(EX_BAD,
            _("Volume Set Size > 1 not yet supported\n"));
        }
    }
    if (volume_sequence_number) {
        if (volume_sequence_number > volume_set_size) {
            comerrno(EX_BAD,
            _("Volume set sequence number too big\n"));
        }
    }
    if (rationalize_xa) {
        rationalize_all++;
        use_XA++;
    }
    if (transparent_compression) {
#ifdef VMS
        comerrno(EX_BAD,
        _("Transparent compression not supported with VMS\n"));
#endif
    }
#ifdef APPLE_HYB
    if (deftype) {
        hfs_ct++;
        if (strlen(deftype) != 4) {
            comerrno(EX_BAD,
            _("HFS default TYPE string has illegal length.\n"));
        }
    } else {
        deftype = APPLE_TYPE_DEFAULT;
    }
    if (defcreator) {
        hfs_ct++;
        if (strlen(defcreator) != 4) {
            comerrno(EX_BAD,
            _("HFS default CREATOR string has illegal length.\n"));
        }
    } else {
        defcreator = APPLE_CREATOR_DEFAULT;
    }
    if (afpfile && *afpfile != '\0')
        hfs_last = MAP_LAST;
    if (magic_file)
        hfs_last = MAG_LAST;
    if (nomacfiles) {
        errmsgno(EX_BAD,
        _("Warning: -no-mac-files no longer used ... ignoring\n"));
    }
    if (hfs_boot_file)
        gen_pt = 1;
    if (root_info)
        icon_pos = 1;
    if (hfs_icharset)
        use_mac_name = 1;
    if (hfs_parms)
        hfs_parms = e_strdup(hfs_parms);
 
    if (apple_hyb && apple_ext) {
        comerrno(EX_BAD, _("Can't have both -apple and -hfs options\n"));
    }
    /*
     * if -probe, -macname, any hfs selection and/or mapping file is given,
     * but no HFS option, then select apple_hyb
     */
    if (!apple_hyb && !apple_ext) {
        if (*afpfile || probe || use_mac_name || hfs_select ||
                hfs_boot_file || magic_file ||
                hfs_ishidden() || gen_pt || autoname ||
                afe_size || icon_pos || hfs_ct ||
                hfs_icharset || hfs_ocharset) {
            apple_hyb = 1;
#ifdef UDF
            if ((DO_XHFS & hfs_select) && use_udf) {
                donotwrite_macpart = 1;
                if (!no_apple_hyb) {
                    error(
                    _("Warning: no HFS hybrid will be created with -udf and --osx-hfs\n"));
                }
            }
#endif
        }
    }
#ifdef UDF
    if (!use_udf && create_udfsymlinks)
        create_udfsymlinks = 0;
#if 0
    if (use_RockRidge && use_udf && create_udfsymlinks) {
        error(_("Warning: cannot create UDF symlinks with activated Rock Ridge\n"));
        create_udfsymlinks = 0;
    }
#endif
#endif
    if (no_apple_hyb) {
        donotwrite_macpart = 1;
    }
    if (apple_hyb && !donotwrite_macpart && do_largefiles > 0) {
        do_largefiles = 0;
        maxnonlarge = (off_t)0x7FFFFFFF;
        error(_("Warning: cannot support large files with -hfs\n"));
    }
#ifdef UDF
    if (apple_hyb && use_udf && !donotwrite_macpart) {
        comerrno(EX_BAD, _("Can't have -hfs with -udf\n"));
    }
#endif
    if (apple_ext && hfs_boot_file) {
        comerrno(EX_BAD, _("Can't have -hfs-boot-file with -apple\n"));
    }
    if (apple_ext && autoname) {
        comerrno(EX_BAD, _("Can't have -auto with -apple\n"));
    }
    if (apple_hyb && (use_sparcboot || use_sunx86boot)) {
        comerrno(EX_BAD, _("Can't have -hfs with -sparc-boot/-sunx86-boot\n"));
    }
    if (apple_hyb && use_genboot) {
        comerrno(EX_BAD, _("Can't have -hfs with -generic-boot\n"));
    }
#ifdef PREP_BOOT
    if (apple_ext && use_prep_boot) {
        comerrno(EX_BAD, _("Can't have -prep-boot with -apple\n"));
    }
#endif  /* PREP_BOOT */
 
    if (apple_hyb || apple_ext)
        apple_both = 1;
 
    if (probe)
        /* we need to search for all types of Apple/Unix files */
        hfs_select = ~0;
 
    if (apple_both && verbose && !(hfs_select || *afpfile || magic_file)) {
        errmsgno(EX_BAD,
        _("Warning: no Apple/Unix files will be decoded/mapped\n"));
    }
    if (apple_both && verbose && !afe_size &&
                    (hfs_select & (DO_FEU | DO_FEL))) {
        errmsgno(EX_BAD,
        _("Warning: assuming PC Exchange cluster size of 512 bytes\n"));
        afe_size = 512;
    }
    if (apple_both) {
        /* set up the TYPE/CREATOR mappings */
        hfs_init(afpfile, 0, hfs_select);
    }
    if (apple_ext && !use_RockRidge) {
#ifdef  nonono
        /* use RockRidge to set the SystemUse field ... */
        use_RockRidge++;
        rationalize_all++;
#else
        /* EMPTY */
#endif
    }
    if (apple_ext && !(use_XA || use_RockRidge)) {
        comerrno(EX_BAD, _("Need either -XA/-xa or -R/-r for -apple to become active.\n"));
    }
#endif  /* APPLE_HYB */
 
    /*
     * if the -hide-joliet option has been given, set the Joliet option
     */
    if (!use_Joliet && j_ishidden())
        use_Joliet++;
#ifdef  UDF
    /*
     * if the -hide-udf option has been given, set the UDF option
     */
    if (!use_udf && u_ishidden())
        use_udf++;
#endif
 
    if (rationalize_all) {
        rationalize++;
        rationalize_uid++;
        rationalize_gid++;
        rationalize_filemode++;
        rationalize_dirmode++;
    }
 
    /*
     * XXX This is a hack until we have a decent separate name handling
     * XXX for UDF filenames.
     */
#ifdef DVD_AUD_VID
    if (dvd_aud_vid_flag && use_Joliet) {
        use_Joliet = 0;
        error(_("Warning: Disabling Joliet support for DVD-Video/DVD-Audio.\n"));
    }
#endif
#ifdef  UDF
    if (use_udf && !use_Joliet)
        jlen = 255;
#endif
 
    if (use_RockRidge && (iso9660_namelen > MAX_ISONAME_V2_RR))
        iso9660_namelen = MAX_ISONAME_V2_RR;
 
    if (warn_violate)
        error(_("Warning: creating filesystem that does not conform to ISO-9660.\n"));
    if (iso9660_level > 3)
        error(_("Warning: Creating ISO-9660:1999 (version 2) filesystem.\n"));
    if (iso9660_namelen > LEN_ISONAME)
        error(_("Warning: ISO-9660 filenames longer than %d may cause buffer overflows in the OS.\n"),
            LEN_ISONAME);
    if (use_Joliet && !use_RockRidge) {
        error(_("Warning: creating filesystem with (nonstandard) Joliet extensions\n"));
        error(_("         but without (standard) Rock Ridge extensions.\n"));
        error(_("         It is highly recommended to add Rock Ridge\n"));
    }
    if (transparent_compression) {
        error(_("Warning: using transparent compression. This is a nonstandard Rock Ridge\n"));
        error(_("         extension. The resulting filesystem can only be transparently\n"));
        error(_("         read on Linux. On other operating systems you need to call\n"));
        error(_("         mkzftree by hand to decompress the files.\n"));
    }
    if (transparent_compression && !use_RockRidge) {
        error(_("Warning: transparent decompression is a Linux Rock Ridge extension, but\n"));
        error(_("         creating filesystem without Rock Ridge attributes; files\n"));
        error(_("         will not be transparently decompressed.\n"));
    }
 
#if defined(USE_NLS) && defined(HAVE_NL_LANGINFO) && defined(CODESET)
    /*
     * If the locale has not been set up, nl_langinfo() returns the
     * name of the default codeset. This should be either "646",
     * "ISO-646", "ASCII", or something similar. Unfortunately, the
     * POSIX standard does not include a list of valid locale names,
     * so ne need to find all values in use.
     *
     * Observed:
     * Solaris  "646"
     * Linux    "ANSI_X3.4-1968"    strange value from Linux...
     */
    if (icharset == NULL) {
        char    *codeset = nl_langinfo(CODESET);
        Uchar   *p;
 
        if (codeset != NULL)
            codeset = e_strdup(codeset);
        if (codeset == NULL)            /* Should not happen */
            goto setcharset;
        if (*codeset == '\0')           /* Invalid locale    */
            goto setcharset;
 
        for (p = (Uchar *)codeset; *p != '\0'; p++) {
            if (islower(*p))
                *p = toupper(*p);
        }
        p = (Uchar *)strstr(codeset, "ISO");
        if (p != NULL) {
            if (*p == '_' || *p == '-')
                p++;
            codeset = (char *)p;
        }
        if (strcmp("646", codeset) != 0 &&
            strcmp("ASCII", codeset) != 0 &&
            strcmp("US-ASCII", codeset) != 0 &&
            strcmp("US_ASCII", codeset) != 0 &&
            strcmp("USASCII", codeset) != 0 &&
            strcmp("ANSI_X3.4-1968", codeset) != 0)
            icharset = nl_langinfo(CODESET);
 
        if (codeset != NULL)
            free(codeset);
 
        if (verbose > 0 && icharset != NULL) {
            error(_("Setting input-charset to '%s' from locale.\n"),
                icharset);
        }
    }
setcharset:
    /*
     * Allow to switch off locale with -input-charset "".
     */
    if (icharset != NULL && *icharset == '\0')
        icharset = NULL;
#endif
    if (icharset == NULL) {
#if (defined(__CYGWIN32__) || defined(__CYGWIN__) || defined(__DJGPP__)) && !defined(IS_CYGWIN_1)
        icharset = "cp437";
#else
        icharset = "default";
#endif
    }
    in_nls = sic_open(icharset);
 
    /*
     * set the output charset to the same as the input or the given output
     * charset
     */
    if (ocharset == NULL) {
        ocharset = in_nls ? in_nls->sic_name : NULL;
    }
    out_nls = sic_open(ocharset);
 
    if (in_nls == NULL || out_nls == NULL) { /* Unknown charset specified */
        fprintf(stderr, _("Unknown charset '%s'.\nKnown charsets are:\n"),
        in_nls == NULL ? icharset : (ocharset ? ocharset : "NULL"));
        list_locales();
        exit(EX_BAD);
    }
#ifdef  USE_ICONV
    /*
     * XXX If we ever allow this, we neeed to fix the call to conv_charset()
     * XXX in name.c::iso9660_file_length().
     */
    if ((in_nls->sic_cd2uni != NULL || out_nls->sic_cd2uni != NULL) &&
        (in_nls->sic_name != out_nls->sic_name)) {
        errmsgno(EX_BAD,
        _("Iconv based locales may change file name length.\n"));
        comerrno(EX_BAD,
        _("Cannot yet have different -input-charset/-output-charset.\n"));
    }
#endif
 
#ifdef APPLE_HYB
    if (hfs_icharset == NULL || strcmp(hfs_icharset, "mac-roman") == 0) {
        hfs_icharset = "cp10000";
    }
    hfs_inls = sic_open(hfs_icharset);
 
    if (hfs_ocharset == NULL) {
        hfs_ocharset = hfs_inls ? hfs_inls->sic_name : NULL;
    }
    if (hfs_ocharset == NULL || strcmp(hfs_ocharset, "mac-roman") == 0) {
        hfs_ocharset = "cp10000";
    }
    hfs_onls = sic_open(hfs_ocharset);
 
    if (use_mac_name)
        apple_hyb = 1;
    if (apple_hyb && (hfs_inls == NULL || hfs_onls == NULL)) {
        fprintf(stderr, _("Unknown HFS charset '%s'.\nKnown charsets are:\n"),
        hfs_inls == NULL ? hfs_icharset : (hfs_ocharset ? hfs_ocharset : "NULL"));
        list_locales();
        exit(EX_BAD);
    }
#ifdef  USE_ICONV
    if (apple_hyb &&
        ((hfs_inls->sic_cd2uni != NULL || hfs_onls->sic_cd2uni != NULL) &&
        (hfs_inls->sic_name != hfs_onls->sic_name))) {
        errmsgno(EX_BAD,
        _("Iconv based locales may change file name length.\n"));
        comerrno(EX_BAD,
        _("Cannot yet have different -input-hfs-charset/-output-hfs-charset.\n"));
    }
#endif
#endif /* APPLE_HYB */
 
    if (merge_image != NULL) {
        if (open_merge_image(merge_image) < 0) {
            /* Complain and die. */
            comerr(_("Unable to open previous session image '%s'.\n"),
                merge_image);
        }
    }
    /* We don't need root privilleges anymore. */
#ifdef  HAVE_SETREUID
    if (setreuid(-1, getuid()) < 0)
#else
#ifdef  HAVE_SETEUID
    if (seteuid(getuid()) < 0)
#else
    if (setuid(getuid()) < 0)
#endif
#endif
        comerr(_("Panic cannot set back effective uid.\n"));
 
 
#ifdef  no_more_needed
#ifdef __NetBSD__
    {
        int     resource;
        struct rlimit   rlp;
 
        if (getrlimit(RLIMIT_DATA, &rlp) == -1)
            errmsg(_("Warning: Cannot get rlimit.\n"));
        else {
            rlp.rlim_cur = 33554432;
            if (setrlimit(RLIMIT_DATA, &rlp) == -1)
                errmsg(_("Warning: Cannot set rlimit.\n"));
        }
    }
#endif
#endif  /* no_more_needed */
#ifdef HAVE_SBRK
    mem_start = (unsigned long) sbrk(0);
#endif
 
    if (verbose > 1) {
        fprintf(stderr, "%s (%s-%s-%s)\n",
                version_string,
                HOST_CPU, HOST_VENDOR, HOST_OS);
    }
    if (cdrecord_data == NULL && !check_session && merge_image != NULL) {
        comerrno(EX_BAD,
        _("Multisession usage bug: Must specify -C if -M is used.\n"));
    }
    if (cdrecord_data != NULL && merge_image == NULL) {
        errmsgno(EX_BAD,
        _("Warning: -C specified without -M: old session data will not be merged.\n"));
    }
#ifdef APPLE_HYB
    if (merge_image != NULL && apple_hyb) {
        errmsgno(EX_BAD,
        _("Warning: files from previous sessions will not be included in the HFS volume.\n"));
    }
#endif  /* APPLE_HYB */
 
    /*
     * see if we have a list of pathnames to process
     */
    if (pathnames) {
        /* "-" means take list from the standard input */
        if (strcmp(pathnames, "-") != 0) {
            if ((pfp = fopen(pathnames, "r")) == NULL) {
                comerr(_("Unable to open pathname list %s.\n"),
                                pathnames);
            }
        } else
            pfp = stdin;
    }
 
    /* The first step is to scan the directory tree, and take some notes */
 
    if ((arg = get_pnames(argc, argv, argind, pname,
                    sizeof (pname), pfp)) == NULL) {
        if (check_session == 0 && !stream_media_size) {
            errmsgno(EX_BAD, _("Missing pathspec.\n"));
            susage(1);
        }
    }
 
    /*
     * if we don't have a pathspec, then save the pathspec found
     * in the pathnames file (stored in pname) - we don't want
     * to skip this pathspec when we read the pathnames file again
     */
    if (!have_cmd_line_pathspec && !stream_media_size) {
        save_pname = 1;
    }
    if (stream_media_size) {
#ifdef  UDF
        if (use_XA || use_RockRidge || use_udf || use_Joliet)
#else
        if (use_XA || use_RockRidge || use_Joliet)
#endif
            comerrno(EX_BAD,
            _("Cannot use XA, Rock Ridge, UDF or Joliet with -stream-media-size\n"));
        if (merge_image)
            comerrno(EX_BAD,
            _("Cannot use multi session with -stream-media-size\n"));
        if (use_eltorito || use_sparcboot || use_sunx86boot ||
#ifdef APPLE_HYB
            use_genboot || use_prep_boot || hfs_boot_file)
#else
            use_genboot)
#endif
            comerrno(EX_BAD,
            _("Cannot use boot options with -stream-media-size\n"));
#ifdef APPLE_HYB
        if (apple_hyb)
            comerrno(EX_BAD,
            _("Cannot use Apple hybrid options with -stream-media-size\n"));
#endif
    }
 
    if (use_RockRidge) {
        /* BEGIN CSTYLED */
#if 1
        extension_record = generate_rr_extension_record("RRIP_1991A",
            "THE ROCK RIDGE INTERCHANGE PROTOCOL PROVIDES SUPPORT FOR POSIX FILE SYSTEM SEMANTICS",
            "PLEASE CONTACT DISC PUBLISHER FOR SPECIFICATION SOURCE.  SEE PUBLISHER IDENTIFIER IN PRIMARY VOLUME DESCRIPTOR FOR CONTACT INFORMATION.",
            &extension_record_size);
#else
        extension_record = generate_rr_extension_record("IEEE_P1282",
            "THE IEEE P1282 PROTOCOL PROVIDES SUPPORT FOR POSIX FILE SYSTEM SEMANTICS",
            "PLEASE CONTACT THE IEEE STANDARDS DEPARTMENT, PISCATAWAY, NJ, USA FOR THE P1282 SPECIFICATION.",
            &extension_record_size);
#endif
        /* END CSTYLED */
    }
    checkarch(outfile);
    if (log_file) {
        FILE        *lfp;
        int     i;
 
        /* open log file - test that we can open OK */
        if ((lfp = fopen(log_file, "w")) == NULL) {
            comerr(_("Can't open logfile: '%s'.\n"), log_file);
        }
        fclose(lfp);
 
        /* redirect all stderr message to log_file */
        fprintf(stderr, _("re-directing all messages to %s\n"), log_file);
        fflush(stderr);
 
        /* associate stderr with the log file */
        if (freopen(log_file, "w", stderr) == NULL) {
            comerr(_("Can't open logfile: '%s'.\n"), log_file);
        }
        if (verbose > 1) {
            for (i = 0; i < argc; i++)
                fprintf(stderr, "%s ", argv[i]);
 
            fprintf(stderr, "\n%s (%s-%s-%s)\n",
                version_string,
                HOST_CPU, HOST_VENDOR, HOST_OS);
        }
    }
    /* Find name of root directory. */
    if (arg != NULL)
        node = findgequal(arg);
    if (!use_graft_ptrs)
        node = NULL;
    if (node == NULL) {
        if (use_graft_ptrs && arg != NULL)
            node = escstrcpy(nodename, sizeof (nodename), arg);
        else
            node = arg;
    } else {
        /*
         * Remove '\\' escape chars which are located
         * before '\\' and '=' chars
         */
        node = escstrcpy(nodename, sizeof (nodename), ++node);
    }
 
    /*
     * See if boot catalog file exists in root directory, if not we will
     * create it.
     */
    if (use_eltorito)
        init_boot_catalog(node);
 
    /*
     * Find the device and inode number of the root directory. Record this
     * in the hash table so we don't scan it more than once.
     */
    stat_filter(node, &statbuf);
    add_directory_hash(statbuf.st_dev, STAT_INODE(statbuf));
 
    memset(&de, 0, sizeof (de));
 
    /*
     * PO:
     * Isn't root NULL at this time anyway?
     * I think it is created by the first call to
     * find_or_create_directory() below.
     */
    de.filedir = root;  /* We need this to bootstrap */
 
    if (cdrecord_data != NULL && merge_image == NULL) {
        /*
         * in case we want to add a new session, but don't want to
         * merge old one
         */
        get_session_start(NULL);
    }
    if (merge_image != NULL) {
        char    sector[SECTOR_SIZE];
        UInt32_t extent;
 
        errno = 0;
        mrootp = merge_isofs(merge_image);
        if (mrootp == NULL) {
            /* Complain and die. */
            if (errno == 0)
                errno = -1;
            comerr(_("Unable to find previous session PVD '%s'.\n"),
                merge_image);
        }
        memcpy(de.isorec.extent, mrootp->extent, 8);
 
        /*
         * Look for RR Attributes in '.' entry of root dir.
         * This is the first ISO directory entry in the root dir.
         */
        extent = get_733(mrootp->extent);
        readsecs(extent, sector, 1);
        c = rr_flags((struct iso_directory_record *)sector);
        if (c & RR_FLAG_XA)
            fprintf(stderr, _("XA signatures found\n"));
        if (c & RR_FLAG_AA)
            fprintf(stderr, _("AA signatures found\n"));
        if (c & ~(RR_FLAG_XA|RR_FLAG_AA)) {
            extern  int su_version;
            extern  int rr_version;
            extern  char    er_id[];
 
            if (c & RR_FLAG_SP) {
                fprintf(stderr, _("SUSP signatures version %d found\n"), su_version);
                if (c & RR_FLAG_ER) {
                    if (rr_version < 1) {
                        fprintf(stderr,
                            _("No valid Rock Ridge signature found\n"));
                        if (!force_rr)
                            no_rr++;
                    } else {
                        fprintf(stderr,
                            _("Rock Ridge signatures version %d found\n"),
                        rr_version);
                        fprintf(stderr,
                            _("Rock Ridge id '%s'\n"), er_id);
                    }
                }
            } else {
                fprintf(stderr, _("Bad Rock Ridge signatures found (SU record missing)\n"));
                if (!force_rr)
                    no_rr++;
            }
        } else {
            fprintf(stderr, _("No SUSP/Rock Ridge present\n"));
            if ((c & (RR_FLAG_XA|RR_FLAG_AA)) == 0) {
                if (!force_rr)
                    no_rr++;
            }
        }
        if (no_rr)
            fprintf(stderr, _("Disabling Rock Ridge / XA / AA\n"));
    }
    /*
     * Create an empty root directory. If we ever scan it for real,
     * we will fill in the contents.
     */
    find_or_create_directory(NULL, "", &de, TRUE);
 
#ifdef APPLE_HYB
    /* may need to set window layout of the volume */
    if (root_info)
        set_root_info(root_info);
#endif /* APPLE_HYB */
 
    /*
     * Scan the actual directory (and any we find below it) for files to
     * write out to the output image.  Note - we take multiple source
     * directories and keep merging them onto the image.
     */
    if (check_session)
        goto path_done;
 
#ifdef  USE_FIND
    if (dofind) {
extern      int walkfunc    __PR((char *nm, struct stat *fs, int type, struct WALK *state));
 
        walkinitstate(&walkstate);
        if (find_patlen > 0) {
            walkstate.patstate = ___malloc(sizeof (int) * find_patlen,
                        _("space for pattern state"));
        }
 
        find_timeinit(time(0));
        walkstate.walkflags = walkflags;
        walkstate.maxdepth  = maxdepth;
        walkstate.mindepth  = mindepth;
        walkstate.lname     = NULL;
        walkstate.tree      = find_node;
        walkstate.err       = 0;
        walkstate.pflags    = 0;
 
        nodesc = TRUE;
        for (;
            (arg = get_pnames(argc, argv, argind, pname, sizeof (pname),
                            pfp)) != NULL;
                                argind++) {
            /*
             * Make silly GCC happy and double initialize graft_dir.
             */
            struct directory *graft_dir = NULL;
            char        graft_point[PATH_MAX + 1];
            struct wargs    wa;
            char        *snp;
 
            graft_point[0] = '\0';
            snp = NULL;
            if (use_graft_ptrs)
                graft_dir = get_graft(arg,
                            graft_point, sizeof (graft_point),
                            nodename, sizeof (nodename),
                            &snp, FALSE);
            if (graft_point[0] != '\0') {
                arg = nodename;
                wa.dir = graft_dir;
            } else {
                wa.dir = root;
            }
            wa.name = snp;
            walkstate.auxp = &wa;
            walkstate.auxi = strlen(arg);
            treewalk(arg, walkfunc, &walkstate);
            no_path_names = 0;
        }
        find_plusflush(plusp, &walkstate);
    } else
#endif
 
    while ((arg = get_pnames(argc, argv, argind, pname,
                    sizeof (pname), pfp)) != NULL) {
        char        graft_point[PATH_MAX + 1];
 
        get_graft(arg, graft_point, sizeof (graft_point),
                nodename, sizeof (nodename), NULL, TRUE);
        argind++;
        no_path_names = 0;
    }
 
path_done:
    if (pfp && pfp != stdin)
        fclose(pfp);
 
    /*
     * exit if we don't have any pathnames to process
     * - not going to happen at the moment as we have to have at least one
     * path on the command line
     */
    if (no_path_names && !check_session && !stream_media_size) {
        errmsgno(EX_BAD, _("No pathnames found.\n"));
        susage(1);
    }
    /*
     * Now merge in any previous sessions.  This is driven on the source
     * side, since we may need to create some additional directories.
     */
    if (merge_image != NULL) {
        if (merge_previous_session(root, mrootp,
                    reloc_root, reloc_old_root) < 0) {
            comerrno(EX_BAD, _("Cannot merge previous session.\n"));
        }
        close_merge_image();
 
        /*
         * set up parent_dir and filedir in relocated entries which
         * were read from previous session so that
         * finish_cl_pl_entries can do its job
         */
        match_cl_re_entries();
        free(mrootp);
    }
#ifdef APPLE_HYB
    /* free up any HFS filename mapping memory */
    if (apple_both)
        clean_hfs();
#endif  /* APPLE_HYB */
 
    /* hide "./rr_moved" if all its contents have been hidden */
    if (reloc_dir && i_ishidden())
        hide_reloc_dir();
 
    /* insert the boot catalog if required */
    if (use_eltorito)
        insert_boot_cat();
 
    /*
     * Free up any matching memory
     */
    for (n = 0; n < MAX_MAT; n++)
        gen_del_match(n);
 
#ifdef SORTING
    del_sort();
#endif /* SORTING */
 
    /*
     * Sort the directories in the required order (by ISO9660).  Also,
     * choose the names for the 8.3 filesystem if required, and do any
     * other post-scan work.
     */
    goof += sort_tree(root);
 
    if (goof) {
        comerrno(EX_BAD, _("ISO9660/Rock Ridge tree sort failed.\n"));
    }
#ifdef UDF
    if (use_Joliet || use_udf) {
#else
    if (use_Joliet) {
#endif
        goof += joliet_sort_tree(root);
    }
    if (goof) {
        comerrno(EX_BAD, _("Joliet tree sort failed.\n"));
    }
    /*
     * Fix a couple of things in the root directory so that everything is
     * self consistent. Fix this up so that the path tables get done right.
     */
    root->self = root->contents;
 
    /* OK, ready to write the file.  Open it up, and generate the thing. */
    if (print_size) {
        discimage = fopen(DEV_NULL, "wb");
        if (!discimage) {
            comerr(_("Unable to open /dev/null\n"));
        }
    } else if (outfile != NULL &&
            !(outfile[0] == '-' && outfile[1] == '\0')) {
        discimage = fopen(outfile, "wb");
        if (!discimage) {
            comerr(_("Unable to open disc image file '%s'.\n"), outfile);
        }
    } else {
        discimage = stdout;
        setmode(fileno(stdout), O_BINARY);
    }
#ifdef  HAVE_SETVBUF
    setvbuf(discimage, NULL, _IOFBF, 64*1024);
#endif
 
    /* Now assign addresses on the disc for the path table. */
 
    path_blocks = ISO_BLOCKS(path_table_size);
    if (path_blocks & 1)
        path_blocks++;
 
    jpath_blocks = ISO_BLOCKS(jpath_table_size);
    if (jpath_blocks & 1)
        jpath_blocks++;
 
    /*
     * Start to set up the linked list that we use to track the contents
     * of the disc.
     */
#ifdef APPLE_HYB
#ifdef PREP_BOOT
    if ((apple_hyb && !donotwrite_macpart) || use_prep_boot || use_chrp_boot)
#else   /* PREP_BOOT */
    if (apple_hyb && !donotwrite_macpart)
#endif  /* PREP_BOOT */
        outputlist_insert(&hfs_desc);
#endif  /* APPLE_HYB */
    if (use_sparcboot || use_sunx86boot)
        outputlist_insert(&sunlabel_desc);
    if (use_genboot)
        outputlist_insert(&genboot_desc);
    outputlist_insert(&startpad_desc);
 
    /* PVD for disc. */
    outputlist_insert(&voldesc_desc);
 
    /* SVD for El Torito. MUST be immediately after the PVD! */
    if (use_eltorito) {
        outputlist_insert(&torito_desc);
    }
    /* Enhanced PVD for disc. neded if we write ISO-9660:1999 */
    if (iso9660_level > 3)
        outputlist_insert(&xvoldesc_desc);
 
    /* SVD for Joliet. */
    if (use_Joliet) {
        outputlist_insert(&joliet_desc);
    }
    /* Finally the last volume descriptor. */
    outputlist_insert(&end_vol);
 
#ifdef UDF
    if (use_udf) {
        outputlist_insert(&udf_vol_recognition_area_frag);
    }
#endif
 
    /* Insert the version descriptor. */
    outputlist_insert(&version_desc);
 
#ifdef UDF
    if (use_udf) {
        /*
         * Most of the space before sector 256 is wasted when
         * UDF is turned on. The waste could be reduced by
         * putting the ISO9660/Joliet structures before the
         * pad_to_sector_256; the problem is that they might
         * overshoot sector 256, so there would have to be some
         * ugly logic to detect this case and rearrange things
         * appropriately. I don't know if it's worth it.
         */
        outputlist_insert(&udf_pad_to_sector_32_frag);
        outputlist_insert(&udf_main_seq_frag);
        outputlist_insert(&udf_main_seq_copy_frag);
        outputlist_insert(&udf_integ_seq_frag);
        outputlist_insert(&udf_pad_to_sector_256_frag);
        outputlist_insert(&udf_anchor_vol_desc_frag);
        outputlist_insert(&udf_file_set_desc_frag);
        outputlist_insert(&udf_dirtree_frag);
        outputlist_insert(&udf_file_entries_frag);
    }
#endif
 
    /* Now start with path tables and directory tree info. */
    if (!stream_media_size)
        outputlist_insert(&pathtable_desc);
    else
        outputlist_insert(&strpath_desc);
 
    if (use_Joliet) {
        outputlist_insert(&jpathtable_desc);
    }
 
    if (!stream_media_size)
        outputlist_insert(&dirtree_desc);
 
    if (use_Joliet) {
        outputlist_insert(&jdirtree_desc);
    }
    outputlist_insert(&dirtree_clean);
 
    if (extension_record) {
        outputlist_insert(&extension_desc);
    }
 
    if (!stream_media_size) {
        outputlist_insert(&files_desc);
    } else {
        outputlist_insert(&strfile_desc);
        outputlist_insert(&strdir_desc);
    }
 
    /*
     * Allow room for the various headers we will be writing.
     * There will always be a primary and an end volume descriptor.
     */
    last_extent = session_start;
 
    /*
     * Calculate the size of all of the components of the disc, and assign
     * extent numbers.
     */
    for (opnt = out_list; opnt; opnt = opnt->of_next) {
        opnt->of_start_extent = last_extent;
        if (opnt->of_size != NULL) {
            if (verbose > 2)
                fprintf(stderr, _("Computing size: %-40sStart Block %u\n"),
                    opnt->of_name, last_extent);
            (*opnt->of_size) (last_extent);
        }
    }
 
    /*
     * Generate the contents of any of the sections that we want to
     * generate. Not all of the fragments will do anything here
     * - most will generate the data on the fly when we get to the write
     * pass.
     */
    for (opnt = out_list; opnt; opnt = opnt->of_next) {
        if (opnt->of_generate != NULL) {
            if (verbose > 2)
                fprintf(stderr, _("Generating content: %-40s\n"),
                    opnt->of_name);
            (*opnt->of_generate) ();
        }
    }
 
    /*
     * Padding just after the ISO-9660 filesystem.
     *
     * files_desc does not have an of_size function. For this
     * reason, we must insert us after the files content has been
     * generated.
     */
#ifdef UDF
    if (use_udf) {
        /* Single anchor volume descriptor pointer at end */
        outputlist_insert(&udf_end_anchor_vol_desc_frag);
        if (udf_end_anchor_vol_desc_frag.of_size != NULL) {
            (*udf_end_anchor_vol_desc_frag.of_size) (last_extent);
        }
        if (dopad) {
            /*
             * Pad with anchor volume descriptor pointer
             * blocks instead of zeroes.
             */
            outputlist_insert(&udf_padend_avdp_frag);
            if (udf_padend_avdp_frag.of_size != NULL) {
                (*udf_padend_avdp_frag.of_size) (last_extent);
            }
        }
    } else
#endif
    if (dopad && !(use_sparcboot || use_sunx86boot)) {
        outputlist_insert(&endpad_desc);
        if (endpad_desc.of_size != NULL) {
            (*endpad_desc.of_size) (last_extent);
        }
    }
    c = 0;
    if (use_sparcboot) {
        if (dopad) {
            /* Padding before the boot partitions. */
            outputlist_insert(&interpad_desc);
            if (interpad_desc.of_size != NULL) {
                (*interpad_desc.of_size) (last_extent);
            }
        }
        c = make_sun_label();
        last_extent += c;
        outputlist_insert(&sunboot_desc);
        if (dopad) {
            outputlist_insert(&endpad_desc);
            if (endpad_desc.of_size != NULL) {
                (*endpad_desc.of_size) (last_extent);
            }
        }
    } else if (use_sunx86boot) {
        if (dopad) {
            /* Padding before the boot partitions. */
            outputlist_insert(&interpad_desc);
            if (interpad_desc.of_size != NULL) {
                (*interpad_desc.of_size) (last_extent);
            }
        }
        c = make_sunx86_label();
        last_extent += c;
        outputlist_insert(&sunboot_desc);
        if (dopad) {
            outputlist_insert(&endpad_desc);
            if (endpad_desc.of_size != NULL) {
                (*endpad_desc.of_size) (last_extent);
            }
        }
    }
    if (print_size > 0) {
        if (verbose > 0)
            fprintf(stderr,
            _("Total extents scheduled to be written = %u\n"),
            (last_extent - session_start));
        printf("%u\n", (last_extent - session_start));
        exit(0);
    }
    /*
     * Now go through the list of fragments and write the data that
     * corresponds to each one.
     */
    for (opnt = out_list; opnt; opnt = opnt->of_next) {
        Uint    oext;
 
        oext = last_extent_written;
        if (opnt->of_start_extent != 0 &&
            opnt->of_start_extent != last_extent_written) {
            /*
             * Consistency check.
             * XXX Should make sure that all entries have
             * XXXX of_start_extent set up correctly.
             */
            comerrno(EX_BAD,
            _("Implementation botch: %s should start at %u but starts at %u.\n"),
            opnt->of_name, opnt->of_start_extent, last_extent_written);
        }
        if (opnt->of_write != NULL) {
            if (verbose > 1)
                fprintf(stderr, _("Writing:   %-40sStart Block %u\n"),
                    opnt->of_name, last_extent_written);
            (*opnt->of_write) (discimage);
            if (verbose > 1)
                fprintf(stderr, _("Done with: %-40sBlock(s)    %u\n"),
                    opnt->of_name, last_extent_written-oext);
        }
    }
    if (last_extent != last_extent_written) {
        comerrno(EX_BAD,
        _("Implementation botch: FS should end at %u but ends at %u.\n"),
                last_extent, last_extent_written);
    }
 
    if (verbose > 0) {
#ifdef HAVE_SBRK
        fprintf(stderr, _("Max brk space used %x\n"),
            (unsigned int)(((unsigned long) sbrk(0)) - mem_start));
#endif
        fprintf(stderr, _("%u extents written (%u MB)\n"),
            (last_extent-session_start),
            (last_extent-session_start) >> 9);
    }
#ifdef VMS
    return (1);
#else
    return (0);
#endif
}
 
LOCAL void
list_locales()
{
    int n;
 
    n = sic_list(stdout);
    if (n <= 0) {
        const char  *ins_base = sic_base();
 
        if (ins_base == NULL)
            ins_base = "$INS_BASE/lib/siconv/";
        errmsgno(EX_BAD, _("Installation problem: '%s' %s.\n"),
            ins_base, n < 0 ? _("missing"):_("incomplete"));
        if (n == 0) {
            errmsgno(EX_BAD,
            _("Check '%s' for missing translation tables.\n"),
            ins_base);
        }
    }
#ifdef  USE_ICONV
    if (n > 0) {
        errmsgno(EX_BAD,
        _("'iconv -l' lists more available names.\n"));
    }
#endif
}
 
/*
 * Find unescaped equal sign in graft pointer string.
 */
EXPORT char *
findgequal(s)
    char    *s;
{
    char    *p = s;
 
    while ((p = strchr(p, '=')) != NULL) {
        if (p > s && p[-1] != '\\')
            return (p);
        p++;
    }
    return (NULL);
}
 
/*
 * Find unescaped equal sign in string.
 */
LOCAL char *
escstrcpy(to, tolen, from)
    char    *to;
    size_t  tolen;
    char    *from;
{
    char    *p = to;
 
    if (debug)
        error("FROM: '%s'\n", from);
 
    to[0] = '\0';
    if (tolen > 0) {
        to[--tolen] = '\0'; /* Fill in last nul char   */
    }
    while ((*p = *from++) != '\0' && tolen-- > 0) {
        if (*p == '\\') {
            if ((*p = *from++) == '\0')
                break;
            if (*p != '\\' && *p != '=') {
                p[1] = p[0];
                *p++ = '\\';
            }
        }
        p++;
    }
    if (debug)
        error("ESC:  '%s'\n", to);
    return (to);
}
 
struct directory *
get_graft(arg, graft_point, glen, nodename, nlen, short_namep, do_insert)
    char        *arg;
    char        *graft_point;
    size_t      glen;
    char        *nodename;
    size_t      nlen;
    char        **short_namep;
    BOOL        do_insert;
{
    char        *node = NULL;
    struct directory_entry de;
    struct directory *graft_dir = root;
    struct stat st;
    char        *short_name;
    int     status;
 
    fillbytes(&de, sizeof (de), '\0');
    /*
     * We would like a syntax like:
     *
     *  /tmp=/usr/tmp/xxx
     *
     * where the user can specify a place to graft each component
     * of the tree.  To do this, we may have to create directories
     * along the way, of course. Secondly, I would like to allow
     * the user to do something like:
     *
     *  /home/baz/RMAIL=/u3/users/baz/RMAIL
     *
     * so that normal files could also be injected into the tree
     * at an arbitrary point.
     *
     * The idea is that the last component of whatever is being
     * entered would take the name from the last component of
     * whatever the user specifies.
     *
     * The default will be that the file is injected at the root of
     * the image tree.
     */
    node = findgequal(arg);
    if (!use_graft_ptrs)
        node = NULL;
    /*
     * Remove '\\' escape chars which are located
     * before '\\' and '=' chars ---> below in escstrcpy()
     */
 
    short_name = NULL;
 
    if (node != NULL || reloc_root) {
        char        *pnt;
        char        *xpnt;
        size_t      len;
 
        /* insert -root prefix */
        if (reloc_root != NULL) {
            strlcpy(graft_point, reloc_root, glen);
            len = strlen(graft_point);
 
            if ((len < (glen -1)) &&
                (len == 0 || graft_point[len-1] != '/')) {
                graft_point[len++] = '/';
                graft_point[len] = '\0';
            }
        } else {
            len = 0;
        }
 
        if (node) {
            *node = '\0';
            escstrcpy(&graft_point[len], glen - len, arg);
            *node = '=';
        }
 
        /*
         * Remove unwanted "./" & "/" sequences from start...
         */
        do {
            xpnt = graft_point;
            while (xpnt[0] == '.' && xpnt[1] == '/')
                xpnt += 2;
            while (*xpnt == PATH_SEPARATOR) {
                xpnt++;
            }
            /*
             * The string becomes shorter, there is no need to check
             * the length. Make sure to support overlapping strings.
             */
            ovstrcpy(graft_point, xpnt);
        } while (xpnt > graft_point);
 
        if (node) {
            node = escstrcpy(nodename, nlen, ++node);
        } else {
            node = arg;
        }
 
        graft_dir = root;
        xpnt = graft_point;
 
        /*
         * If "node" points to a directory, then graft_point
         * needs to point to a directory too.
         */
        if (follow_links)
            status = stat_filter(node, &st);
        else
            status = lstat_filter(node, &st);
        if (status == 0 && S_ISDIR(st.st_mode)) {
            len = strlen(graft_point);
 
            if ((len < (glen -1)) &&
                (len == 0 || graft_point[len-1] != '/')) {
                graft_point[len++] = '/';
                graft_point[len] = '\0';
            }
        }
        if (debug)
            error("GRAFT:'%s'\n", xpnt);
        /*
         * Loop down deeper and deeper until we find the
         * correct insertion spot.
         * Canonicalize the filename while parsing it.
         */
        for (;;) {
            do {
                while (xpnt[0] == '.' && xpnt[1] == '/')
                    xpnt += 2;
                while (xpnt[0] == '/')
                    xpnt += 1;
                if (xpnt[0] == '.' && xpnt[1] == '.' && xpnt[2] == '/') {
                    if (graft_dir && graft_dir != root) {
                        graft_dir = graft_dir->parent;
                        xpnt += 2;
                    }
                }
            } while ((xpnt[0] == '/') || (xpnt[0] == '.' && xpnt[1] == '/'));
            pnt = strchr(xpnt, PATH_SEPARATOR);
            if (pnt == NULL) {
                if (*xpnt != '\0') {
                    short_name = xpnt;
                    if (short_namep)
                        *short_namep = xpnt;
                }
                break;
            }
            *pnt = '\0';
            if (debug) {
                error("GRAFT Point:'%s' in '%s : %s' (%s)\n",
                    xpnt,
                    graft_dir->whole_name,
                    graft_dir->de_name,
                    graft_point);
            }
            graft_dir = find_or_create_directory(graft_dir,
                graft_point,
                NULL, TRUE);
            *pnt = PATH_SEPARATOR;
            xpnt = pnt + 1;
        }
    } else {
        graft_dir = root;
        if (use_graft_ptrs)
            node = escstrcpy(nodename, nlen, arg);
        else
            node = arg;
    }
 
    /*
     * Now see whether the user wants to add a regular file, or a
     * directory at this point.
     */
    if (follow_links || Hflag)
        status = stat_filter(node, &st);
    else
        status = lstat_filter(node, &st);
    if (status != 0) {
        /*
         * This is a fatal error - the user won't be getting
         * what they want if we were to proceed.
         */
        comerr(_("Invalid node - '%s'.\n"), node);
    } else {
        if (S_ISDIR(st.st_mode)) {
            if (debug) {
                error(_("graft_dir: '%s : %s', node: '%s', (scan)\n"),
                    graft_dir->whole_name,
                    graft_dir->de_name, node);
            }
            if (!do_insert)
                return (graft_dir);
            if (!scan_directory_tree(graft_dir,
                            node, &de)) {
                exit(1);
            }
            if (debug) {
                error(_("scan done\n"));
            }
        } else {
            if (short_name == NULL) {
                short_name = strrchr(node,
                        PATH_SEPARATOR);
                if (short_name == NULL ||
                        short_name < node) {
                    short_name = node;
                } else {
                    short_name++;
                }
            }
            if (debug) {
                error(_("graft_dir: '%s : %s', node: '%s', short_name: '%s'\n"),
                    graft_dir->whole_name,
                    graft_dir->de_name, node,
                    short_name);
            }
            if (!do_insert)
                return (graft_dir);
            if (!insert_file_entry(graft_dir, node,
                            short_name, NULL, 0)) {
                /*
                 * Should we ignore this?
                 */
/*              exit(1);*/
                /* EMPTY */
            }
        }
    }
    return (graft_dir);
}
 
EXPORT void *
e_malloc(size)
    size_t      size;
{
    void        *pt = 0;
 
    if (size == 0)
        size = 1;
    if ((pt = malloc(size)) == NULL) {
        comerr(_("Not enough memory\n"));
    }
    /*
     * Not all code is clean yet.
     * Filling all allocated data with zeroes will help
     * to avoid core dumps.
     */
    memset(pt, 0, size);
    return (pt);
}
 
EXPORT char *
e_strdup(s)
    const   char    *s;
{
    char    *ret = strdup(s);
 
    if (s == NULL)
        comerr(_("Not enough memory for strdup(%s)\n"), s);
    return (ret);
}
 
/*
 * A strcpy() that works with overlapping buffers
 */
LOCAL void
ovstrcpy(p2, p1)
    register char   *p2;
    register char   *p1;
{
    while ((*p2++ = *p1++) != '\0')
        ;
}
 
LOCAL void
checkarch(name)
    char    *name;
{
    struct stat stbuf;
 
    archive_isreg = FALSE;
    archive_dev = (dev_t)0;
    archive_ino = (ino_t)0;
 
    if (name == NULL)
        return;
    if (stat(name, &stbuf) < 0)
        return;
 
    if (S_ISREG(stbuf.st_mode)) {
        archive_dev = stbuf.st_dev;
        archive_ino = stbuf.st_ino;
        archive_isreg = TRUE;
    } else if (((stbuf.st_mode & S_IFMT) == 0) ||
            S_ISFIFO(stbuf.st_mode) ||
            S_ISSOCK(stbuf.st_mode)) {
        /*
         * This is a pipe or similar on different UNIX implementations.
         * (stbuf.st_mode & S_IFMT) == 0 may happen in stange cases.
         */
        archive_dev = NODEV;
        archive_ino = (ino_t)-1;
    }
}