/*
** main.c - POSIX 1003.2 "ar" command
**
** This isn't a pure POSIX 1003.2 ar; it only manipulates Metrowerks
** Library files, not general-purpose POSIX 1003.2 format archives.
**
** Dec. 14, 1997 Chris Herborth (chrish@kagi.com)
**
** This code is donated to the PUBLIC DOMAIN.  You can use, abuse, modify,
** redistribute, steal, or otherwise manipulate this code.  No restrictions
** at all.  If you laugh at this code, you can't use it.
**
** This "ar" was implemented using IEEE Std 1003.2-1992 as the basis for
** the interface, and Metrowerk's published docs detailing their library
** format.  Look inside for clues about how reality differs from MW's
** documentation on BeOS...
*/

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <getopt.h>

#include "commands.h"

static const char *rcs_version_id = "$Id$";
static const char *ar_version_id = "1.0 " __DATE__;

/* ---------------------------------------------------------------------- */
typedef enum {
	delete_cmd,
	print_cmd,
	replace_cmd,
	table_cmd,
	extract_cmd,
	no_cmd = -1 } command;

/* ----------------------------------------------------------------------
** Prototypes
*/
void usage( void );
void version( void );
void check_command( command *cmd, int arg );

/* ----------------------------------------------------------------------
** Print a usage message and exit.
*/
void usage( void )
{
	printf( "ar [dprtx][cuv] archive [file ...]\n" );

	exit( EXIT_FAILURE );
}

/* ----------------------------------------------------------------------
** Print a version message and exit.
*/
void version( void )
{
	printf( "ar (POSIX 1003.2-1992), version %s\n", ar_version_id );
	printf( "by Chris Herborth (chrish@qnx.com)\n" );
	printf( "This code has been donated to the BeOS developer community.\n" );

	return;
}

/* ----------------------------------------------------------------------
** Set *cmd to the appropriate command enum if it isn't already set.
*/
void check_command( command *cmd, int arg )
{
	if( *cmd == no_cmd ) {
		switch( arg ) {
		case 'd':
			*cmd = delete_cmd;
			break;
		case 'p':
			*cmd = print_cmd;
			break;
		case 'r':
			*cmd = replace_cmd;
			break;
		case 't':
			*cmd = table_cmd;
			break;
		case 'x':
			*cmd = extract_cmd;
			break;
		}
	} else {
		printf( "ar: you can only specify one command at a time\n" );
		usage();
	}
}

/* ----------------------------------------------------------------------
** Mainline
*/
int main( int argc, char **argv )
{
	command cmd = no_cmd;
	int verbose_flag = 0;
	int create_flag = 0;	/* these two only apply to replace_cmd */
	int update_flag = 0;
	int c = 0;

	char *archive_name;
	char **files_list;
	int num_files;

	int idx;
	status_t retval;

	/* The argument parsing is a little hairier than usual; the idea is
	** to support the POSIX 1003.2 style of arguments, and the much more
	** common traditional argument style.
	*/
	if( argc < 3 ) {
		printf( "ar: invalid number of arguments\n" );
		usage();
	}

	/* Do we have traditional or POSIX-style args? */
	if( argv[1][0] == '-' ) {
		while( ( c = getopt( argc, argv, "dprtxcuvV" ) ) != EOF ) {
			switch( c ) {
			case 'd':	/* fall-through */
			case 'p':	/* fall-through */
			case 'r':	/* fall-through */
			case 't':	/* fall-through */
			case 'x':	/* fall-through */
				check_command( &cmd, c );
				break;

			case 'v':
				verbose_flag = 1;
				break;

			case 'c':
				if( cmd != no_cmd && cmd != replace_cmd ) {
					printf( "ar: invalid option, -c\n" );
					usage();
				} else {
					create_flag = 1;
				}
				break;

			case 'u':
				if( cmd != no_cmd && cmd != replace_cmd ) {
					printf( "ar: invalid option, -u\n" );
					usage();
				} else {
					update_flag = 1;
				}
				break;

			case 'V':
				version();
				break;

			default:
				printf( "ar: invalid option, -%c\n", c );
				usage();
				break;
			}

			idx = optind;
		}
	} else {
		/* In the traditional way, arguments ar:
		**
		** argv[1] = [dprtx][cuv]
		** argv[2] = archive
		** argv[...] = file ...
		**/
		char *ptr;

		idx = 1;

		ptr = argv[idx++];

		while( *ptr != '\0' ) {
			switch( *ptr ) {
			case 'd':	/* fall-through */
			case 'p':	/* fall-through */
			case 'r':	/* fall-through */
			case 't':	/* fall-through */
			case 'x':	/* fall-through */
				check_command( &cmd, *ptr );
				break;

			case 'v':
				verbose_flag = 1;
				break;

			case 'c':
				if( cmd != no_cmd && cmd != replace_cmd ) {
					printf( "ar: invalid option, -c\n" );
					usage();
				} else {
					create_flag = 1;
				}
				break;

			case 'u':
				if( cmd != no_cmd && cmd != replace_cmd ) {
					printf( "ar: invalid option, -u\n" );
					usage();
				} else {
					update_flag = 1;
				}
				break;

			case 'V':
				version();
				break;

			default:
				printf( "ar: invalid option, -%c\n", c );
				usage();
				break;
			}

			ptr++;
		}
	}

	/* Next arg is the archive. */
	archive_name = argv[idx++];

	/* Next are the files. */
	num_files = argc - idx;

	if( num_files == 0 ) {
		files_list = NULL;
	} else {
		int ctr = 0;

		files_list = (char **)malloc( ( num_files + 1 ) * sizeof( char * ) );

		while( idx < argc ) {
			files_list[ctr++] = argv[idx++];
		}

		files_list[idx] = NULL;
	}

	/* Now we can attempt to manipulate the archive. */
	switch( cmd ) {
	case delete_cmd:
		retval = do_delete( archive_name, files_list, verbose_flag );
		break;

	case print_cmd:
		retval = do_print( archive_name, files_list, verbose_flag );
		break;

	case replace_cmd:
		retval = do_replace( archive_name, files_list, verbose_flag,
							 create_flag, update_flag );
		break;

	case table_cmd:
		retval = do_table( archive_name, files_list, verbose_flag );
		break;

	case extract_cmd:
		retval = do_extract( archive_name, files_list, verbose_flag );
		break;

	default:
		printf( "ar: you must specify a command\n" );
		usage();
		break;
	}

	/* Check the return value.
	*/
	switch( retval ) {
	case B_OK:
		break;
	case B_FILE_NOT_FOUND:
		printf( "can't open the file %s\n", archive_name );
		return EXIT_FAILURE;
		break;
	case B_IO_ERROR:
		printf( "can't read from %s\n", archive_name );
		return EXIT_FAILURE;
		break;
	case B_BAD_VALUE:
		printf( "invalid magic word\n" );
		return EXIT_FAILURE;
		break;
	case B_MISMATCHED_VALUES:
		printf( "invalid processor value, or magicflags, or version\n" );
		return EXIT_FAILURE;
		break;
	case B_NO_MEMORY:
		printf( "unable to allocate memory\n" );
		return EXIT_FAILURE;
		break;
	case B_ERROR:
		printf( "error during processing\n" );
		return EXIT_FAILURE;
	default:
		printf( "unknown error: %ld\n", retval );
		return EXIT_FAILURE;
		break;
	}

	return EXIT_SUCCESS;
}