mirror of
https://github.com/python/cpython.git
synced 2025-11-25 21:11:09 +00:00
Adding the BeOS port. More checkins to follow.
This commit is contained in:
Guido van Rossum
parent
3f7b6fcea0
commit
d8eb2119b5
22 changed files with 3749 additions and 0 deletions
312
BeOS/ar-1.1/main.c
Normal file
312
BeOS/ar-1.1/main.c
Normal file
|
|
@ -0,0 +1,312 @@
|
|||
/*
|
||||
** 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;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue