xref: /reactos/sdk/tools/mkisofs/schilytools/mkisofs/mkisofs.c (revision c2c66aff)

/* @(#)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;
	}
}