/* cmd-make-archive.c
*
* vim:smartindent ts=8:sts=2:sta:et:ai:shiftwidth=2
****************************************************************
* Copyright (C) 2003 Tom Lord
*
* See the file "COPYING" for further information about
* the copyright and warranty status of this work.
*/
#include "config-options.h"
#include "po/gettext.h"
#include "hackerlab/cmd/main.h"
#include "libfsutils/ensure-dir.h"
#include "libarch/archive.h"
#include "libarch/archives.h"
#include "libarch/namespace.h"
#include "libarch/pfs.h"
#include "commands/cmdutils.h"
#include "commands/make-archive.h"
#include "commands/version.h"
static t_uchar * usage = N_("[options] [name] location");
#define OPTS(OP) \
OP (opt_help_msg, "h", "help", 0, \
N_("Display a help message and exit.")) \
OP (opt_long_help, "H", 0, 0, \
N_("Display a verbose help message and exit.")) \
OP (opt_version, "V", "version", 0, \
N_("Display a release identifier string\n" \
"and exit.")) \
OP (opt_mirror, "m", "mirror MASTER", 1, \
N_("create mirror of specified archive")) \
OP (opt_mirror_from, "M", "mirror-from MASTER-SOURCE", 1, \
N_("create pull-based mirror of specified archive")) \
OP (opt_dot_listing, "l", "listing", 0, \
N_("Keep .listing files up-to-date in this archive.")) \
OP (opt_tla, "t", "tla", 0, \
N_("Create a tla format archive.")) \
OP (opt_signed, "s", "signed", 0, \
N_("GPG sign the contents of this archive."))
t_uchar arch_cmd_make_archive_help[] = N_("create a new archive directory\n"
"NAME is the global name for the archive. It must be an\n"
"email address with a fully qualified domain name, optionally\n"
"followed by \"--\" and a string of letters, digits, periods\n"
"and dashes.\n"
"\n"
"With --mirror, label the new archive as a mirror of MASTER.\n"
"Ordinary commits can not be made to a mirror archive, however\n"
"the command \"baz archive-mirror\" can write to a mirror.\n"
"\n"
"Two special forms of this command are available:\n"
"\n"
" baz make-archive --mirror MASTER LOCATION\n"
"\n"
"is equivalent to:\n"
"\n"
" baz make-archive --mirror MASTER MASTER-MIRROR LOCATION\n"
"\n"
"and thus \"baz archive-mirror MASTER\" will push changes\n"
"from MASTER to the newly created mirror.\n"
"\n"
" baz make-archive --mirror-from MASTER-SOURCE LOCATION\n"
"\n"
"is equivalent to:\n"
"\n"
" baz make-archive --mirror MASTER-SOURCE MASTER LOCATION\n"
"\n"
"and thus \"baz archive-mirror MASTER\" will pull changes\n"
"from MASTER-SOURCE to the newly created mirror.\n"
"\n"
"The first of these two special forms is especially handy\n"
"when creating a remote mirror in which to publish a local\n"
"repository.\n"
"\n"
"The second special form is handy when creating a local mirror\n"
"of a remote archive, locally bound to the remote archive's name.\n"
"\n"
"The --tla option creates a tla format archive, the default is \n"
"to create a Bazaar archive.\n"
"\n"
);
enum options
{
OPTS (OPT_ENUM)
};
static struct opt_desc opts[] =
{
OPTS (OPT_DESC)
{-1, 0, 0, 0, 0}
};
enum operation
{
op_print,
op_set,
};
int
arch_cmd_make_archive (t_uchar * program_name, int argc, char * argv[])
{
int o;
struct opt_parsed * option;
t_uchar * mirror_of = 0;
t_uchar * mirror_from = 0;
int dot_listing_lossage = 0;
int signed_archive = 0;
int tla_archive = 0;
safe_buffer_fd (1, 0, O_WRONLY, 0);
option = 0;
while (1)
{
o = opt_standard (lim_use_must_malloc, &option, opts, &argc, argv, program_name, usage, libarch_version_string, arch_cmd_make_archive_help, opt_help_msg, opt_long_help, opt_version);
if (o == opt_none)
break;
switch (o)
{
default:
safe_printfmt (2, "unhandled option `%s'\n", option->opt_string);
panic ("internal error parsing arguments");
usage_error:
opt_usage (2, argv[0], program_name, usage, 1);
exit (1);
/* bogus_arg: */
safe_printfmt (2, "ill-formed argument for `%s' (`%s')\n", option->opt_string, option->arg_string);
goto usage_error;
case opt_mirror:
{
lim_free (0, mirror_from);
mirror_from = 0;
lim_free (0, mirror_of);
mirror_of = str_save (0, option->arg_string);
break;
}
case opt_mirror_from:
{
lim_free (0, mirror_of);
mirror_of = 0;
lim_free (0, mirror_from);
mirror_from = str_save (0, option->arg_string);
break;
}
case opt_dot_listing:
dot_listing_lossage = 1;
break;
case opt_signed:
signed_archive = 1;
break;
case opt_tla:
tla_archive = 1;
break;
}
}
if (!(mirror_of || mirror_from) ? (argc != 3) : ((argc != 2) && (argc != 3)))
goto usage_error;
{
t_uchar * name = 0;
t_uchar * location = 0;
if (!(mirror_of || mirror_from) || (argc == 3))
{
name = str_save (0, argv[1]);
location = escape_location (argv[2]);
}
else
{
struct arch_archive *arch;
t_uchar *connected_namespace = NULL;
t_uchar *mirror_source;
invariant (argc == 2);
if (mirror_of)
{
mirror_source = mirror_of;
}
else
{
mirror_source = mirror_from;
}
arch = arch_archive_connect_branch (mirror_source, &connected_namespace);
if (!arch)
{
safe_printfmt (2, "Cannot connect to source archive '%s' (required to create mirror)\n", mirror_source);
exit (2);
}
name = str_save (0, arch->official_name);
//name = arch_mirrored_at_name (mirror_source);
location = escape_location (argv[1]);
if (!signed_archive)
/* probe */
signed_archive = arch->signed_archive;
mirror_of = str_replace (mirror_of, arch_parse_name (arch_ret_archive, NULL, connected_namespace));
lim_free (0, connected_namespace);
arch_archive_close (arch);
}
if (!arch_valid_archive_name (name) || (mirror_of && !arch_valid_archive_name (mirror_of)))
{
safe_printfmt (2, "make-archive: invalid archive name (%s)\n", argv[1]);
exit (1);
}
location = arch_pfs_abs_path (location);
arch_check_uri (location);
arch_make_archive (name, location, mirror_of, dot_listing_lossage, signed_archive, tla_archive, 1);
lim_free (0, name);
lim_free (0, location);
}
lim_free (0, mirror_of);
return 0;
}
/* tag: Tom Lord Mon May 19 19:23:42 2003 (make-archive.c)
*/
syntax highlighted by Code2HTML, v. 0.9.1