158 lines
3.8 KiB
C
Executable File
158 lines
3.8 KiB
C
Executable File
/******************************************************************************
|
|
*
|
|
* rmv.lbl - remove Pick tape labels
|
|
*
|
|
* Module %M% Version %I% Date %H%
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenence log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/22/98 23801 SAP Change company name to Ardent
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 11/13/96 18242 DTM Code cleanup (nt)
|
|
* 11/11/96 18242 DTM Code cleanup
|
|
* 04/22/96 18242 DTM Code Cleanup, Phase I
|
|
* 08/10/92 10004 TMC define __ISMAIN__
|
|
* 10/04/90 7207 JSM Added GENMSG logic
|
|
* 08/01/90 7207 JSM Message text changes
|
|
* 05/30/90 7140 TMC arg count > 1 in while not just argc--
|
|
*
|
|
******************************************************************************/
|
|
#define __MODULE__ "%M%"
|
|
#define __SCCSID__ "%I%"
|
|
#ifdef ARDENT
|
|
#include "uv.h"
|
|
#include FCNTL_H
|
|
#else
|
|
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
#endif
|
|
|
|
#define GENMSG(xxxx) ( ( (xxxx) > lblmax ) ?\
|
|
( sprintf(defmsg,"Message[LBL%04d]\n",(xxxx)), defmsg ) :\
|
|
( lblmsg[(xxxx-1)] != 0 ?\
|
|
lblmsg[(xxxx-1)] :\
|
|
( sprintf(defmsg,"Message[LBL%04d]\n",(xxxx)),\
|
|
defmsg )))
|
|
|
|
extern void initmsg();
|
|
|
|
static int lblmax = 0;
|
|
static char **lblmsg = 0;
|
|
static char defmsg[17];
|
|
|
|
#ifndef MSWIN
|
|
EXTERN int strncmp();
|
|
EXTERN int atoi();
|
|
EXTERN int close();
|
|
EXTERN char *mktemp();
|
|
#endif
|
|
|
|
#ifndef ARDENT
|
|
#define DMAX 7
|
|
static char *dmsgs[DMAX] = {
|
|
"help",
|
|
"Usage: rmv.lbl {-iinputfile} {-ooutputfile} {-s#}\n",
|
|
"\"rmv.lbl.c\" must be modified to handle labels greater than 16k\n",
|
|
"Unable to open file \"%s\"\n",
|
|
"Unable to create file \"%s\"\n",
|
|
"Unable to read label from input file\n",
|
|
"Processing complete.\n"
|
|
};
|
|
#endif
|
|
|
|
#define UC (unsigned char)
|
|
|
|
int
|
|
main(argc,argv)
|
|
|
|
int argc; char *argv[];
|
|
|
|
{
|
|
/* set default for input file, output file and label size */
|
|
int infile = 0,outfile = 1,lblsiz = 80;
|
|
|
|
int lblcnt,len;
|
|
int argno = 1;
|
|
char buffer[16384];
|
|
#ifndef ARDENT
|
|
int x;
|
|
#endif
|
|
|
|
#ifdef ARDENT
|
|
(void) initmsg("LBL",&lblmsg,&lblmax);
|
|
#else
|
|
lblmsg=(char**)malloc(lblmsg,DMAX*sizeof(char*));
|
|
for(x=0; x<=DMAX-1; x++)
|
|
(lblmsg)[x] = dmsgs[x];
|
|
lblmax = DMAX;
|
|
#endif
|
|
|
|
if (argc>4 || (argc>1 && !strcmp(argv[1],GENMSG(1))))
|
|
{ /* usgage error */
|
|
fprintf(stderr,GENMSG(2));
|
|
exit(1);
|
|
}
|
|
|
|
while(argc-- > 1)
|
|
{ if (!strncmp(argv[argno],"-s",2))
|
|
{ lblsiz = atoi((argv[argno]+2));
|
|
if (lblsiz > 16384)
|
|
{ /* label error */
|
|
fprintf(stderr,GENMSG(3));
|
|
exit(2);
|
|
}
|
|
}
|
|
else
|
|
if (!strncmp(argv[argno],"-i",2))
|
|
{ if((infile = open(argv[argno]+2,O_RDONLY)) == -1)
|
|
{ /* cant open file */
|
|
fprintf(stderr,GENMSG(4),argv[argno]+2);
|
|
exit(3);
|
|
}
|
|
}
|
|
else
|
|
if (!strncmp(argv[argno],"-o",2))
|
|
{ outfile = open(argv[argno]+2,O_RDWR|O_CREAT|O_EXCL,0666);
|
|
if(outfile == -1)
|
|
{ /* cant create file */
|
|
fprintf(stderr,GENMSG(5),argv[argno]+2);
|
|
exit(4);
|
|
}
|
|
}
|
|
argno++;
|
|
}
|
|
|
|
/* try to read in label */
|
|
lblcnt = read(infile,buffer,lblsiz);
|
|
if (lblcnt <= 0)
|
|
{ /* read error */
|
|
fprintf(stderr,GENMSG(6));
|
|
exit(5);
|
|
}
|
|
|
|
/* check for Pick tape label */
|
|
/* and write to output file if data is not a Pick tape label */
|
|
if(!((UC buffer[0] == UC '\377') && (UC buffer[1] == UC 'L')))
|
|
{ write(outfile,buffer,lblcnt);
|
|
}
|
|
|
|
/* write out the rest of the file */
|
|
while ((len = read(infile,buffer,512)) > 0)
|
|
{
|
|
write(outfile,buffer,len);
|
|
}
|
|
/* processing complete */
|
|
fprintf(stderr,GENMSG(7));
|
|
close(outfile);
|
|
exit(0);
|
|
return(0);
|
|
}
|