extract.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

#ifndef lint
static	char	*sccsid = "@(#)extract.c	4.1 (ULTRIX) 7/17/90";
#endif lint

/************************************************************************
 *									*
 *	 	      Copyright (c) 1987, 1988 by			*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any  other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or  reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/

/*
 *
 *   File name: extract.c
 *
 *   Source file description:
 * 	This program is used to interactively extract message strings 
 *	from files and to allow the user to produce a new file with
 *	them rewritten as function calls. 
 *
 *   Usage:	extract [-i ignfile] [-m prefix] [-p pattern] 
 *		      [-s string ] [-u] [-n] filelist
 *
 *   Compile:   cc -o extract -O extract.c gen.c -lcurses -ltermlib
 *
 */

/*
 * Modification history
 * ~~~~~~~~~~~~~~~~~~~~
 * 003	David Lindner Wed Feb 28 09:20:30 EST 1990
 *	- Fixed mneumonic option so it would do set mneumonics correctly.
 *
 * 002	David Lindner Wed Jan 31 12:26:50 EST 1990
 *	- Modified init_str code so that it would increment set for
 *        each source code module processed.
 *      - Also added %s option to patterns so set would increment in
 *        new code as well.
 *	- Fixed reversal of src1head and src2head
 *
 * 001	Rainer Schaaf
 *	- Changed the behaviour of the init_str
 *	- Added cathead src1head and src2head
 *	- Changed the behaviour when working on a filelist instead 
 *	  of a file.
 *	- Added the -o option.
 *
 * 000	Andy Gadsby, 12-Jan-1987.
 *	- Created.
 *
 */

#include <cursesX.h>
#include <signal.h>
#include <stdio.h>
#include <ctype.h>
#include "defs.h"

#define BANNER	  "ULTRIX String Extraction Tool V1.0"
#define DIVIDER   '-'		/* line character			*/

#define SRC_LINES	12	/* number of lines in source window	*/
#define MSG_LINES	5	/* number of lines in message window	*/
#define CMD_LINES	3	/* number of lines in command window	*/

#define SRC_START	2	/* start positions of windows		*/
#define MSG_START	(SRC_START + SRC_LINES + 1)
#define CMD_START	(MSG_START + MSG_LINES + 1)

				/* list of options which user may select */
				/* order is important here		 */
static char *opts[] = { "EXTRACT", "DUPLICATE", "IGNORE", "PASS",
		        "ADD",     "COMMENT",   "QUIT",   "HELP", 
			(char *)NULL};
#define OPTSIZE     10		/* size on screen of each option 	*/

#define EXTRACT	    0		/* order here matches order in opts	*/
#define DUPLICATE   1
#define IGNORE      2
#define PASS        3
#define ADD         4
#define COMMENT	    5
#define QUIT        6
#define HELP        7

char   *curfile;		/* current file name 			*/
char   *progname;		/* this programs invocation name	*/
int 	ac;			/* global argument count and array	*/
char  **av;			/* setup in setopts			*/
char   *ignfile = (char *)0;    /* name of ignore file, if any		*/
char   *msgprefix = "";		/* prefix for message numbers		*/

int 	errors;			/* count / file				*/
int 	usemessage = 0;		/* TRUE if we are to use old msg file   */
int     texty, textx;		/* start coordinate of text 		*/
int	iscflag = FALSE;	/* TRUE if C source			*/
int  	firsttime = TRUE;	/* stops us clearing strings		*/
int	new_msg_cat = FALSE;	/* flag wether to make one or more msgcats */

extern char   *init_str;	/* from re.c				*/
extern char   src1head[];	/* from re.c				*/
extern char   src2head[];	/* from re.c				*/

main(argc, argv)
int 	argc;
char   *argv[];
{ 	int	windup();		/* interrupt handler		*/

	setopts(argc, argv);		/* initialise			*/
	loadre();
	loadignore(ignfile);
	signal(SIGINT, windup);
	startterm();

	while (ac-- > 0) {		/* for each file name		*/
		curfile = *av++;
		errors = 0;
		if ( ! firsttime) { 	/* clear out duplicate string	*/
			clearstr();
		}
		dofile(curfile);
		firsttime = FALSE;
	}
	windup();			/* tidy up and exit		*/
	/* NOTREACHED */
}


/*
 * setopts()
 *	set the option flags based on the command line arguments, also
 *	sets ac and av to point to the start of the file list.
 */

setopts(argc, argv)
int    argc;
char **argv;
{	int  num;
	char c;
	extern char *refile;		/* in re.c			*/
	
	progname = argv[0];

	for (num = 1; num < argc; num++) {
		if (*argv[num] == '-')
			switch(c = argv[num][1]) {
			default:
				fprintf(stderr, "%s: bad option %c\n", progname, c);
				usage();
				/* NOTREACHED */
			case 'n':
				new_msg_cat = TRUE;
				break;
			case 'c':
				iscflag = TRUE;
				break;
			case 'i':
				ignfile = argv[++num];
				break;
			case 'p':
				refile = argv[++num];
				break;
			case 'u':
				usemessage++;
				break;
			case 'm':
				msgprefix = argv[++num];
				break;
			case 's':
				init_str = argv[++num];
				break;
			}
		else {
			ac = argc - num;
			av = &argv[num];
			return;
		}
	}
	usage();
	/* NOTREACHED */
}

usage()
{
	fprintf(stderr, "usage: %s\n[-p patterns] [-i ignore] [-u] [-n] [-m prefix] [-s string] filelist\n", progname);
	exit(1);
}

/*
 * startterm()
 *	setup the terminal with the appropriate	windows using curses.
 */

WINDOW *source;				/* for the source code		*/
WINDOW *message;			/* for the extracted messages   */
WINDOW *command;			/* for communication with user  */

startterm()
{
	initscr();
	crmode();
	clear();
	move(0, COLS/2 - sizeof(BANNER)/2);
	addstr(BANNER);

	source  = subwin(stdscr, SRC_LINES, 0, SRC_START, 0);
	message = subwin(stdscr, MSG_LINES, 0, MSG_START, 0);
	command = subwin(stdscr, CMD_LINES, 0, CMD_START, 0);
	scrollok(message, TRUE);
	scrollok(command, TRUE);

	refresh();
}

/* 
 * windup()
 *	reset the terminal
 */

windup()
{
	signal(SIGINT, SIG_IGN);
	mvcur(0, COLS - 1, LINES -1, 0);
	endwin();
	putchar('\n');
	fflush(stdout);

	exit(errors ? 1 : 0);
}

/* 
 * error()
 *	Print the two string passed as arguments to command window
 */

error(str1, str2)
char *str1, *str2; 
{
	wprintw(command, "Error: %s %s\n", str1, str2);
	errors++;
}
	

/*
 * line()
 *	Draw pretty line across screen with appropriate fields displayed.
 */


line(line, str1, str2)
int   line;				/* line to display on		*/
char *str1, *str2;			/* optional strings to display	*/
{	int ind;

	move(line, 0);
	for (ind = 1 ; ind < COLS ; ind++)
		addch(DIVIDER);

	if (str1) {
		move(line, 5);
		addstr(str1);
	}
	if (str2)
	{
		move(line, 5 + (str1 ?  strlen(str1) : 0));
		addstr(str2);
	}
}

/*
 * dofile()
 *	For the message file given attempt to open it, the corresponding
 *	catalogue file, the original source and the new source!
 */

dofile(name)
char *name;
{	FILE *mp, *op, *np;
	char *tmpname;			/* temporary file name		*/
	static FILE *cp;
	static int setnum=0;		/* set number DJL 002		*/

	/*
	 * tidy up the screen ready for new file
	 */
	line(SRC_START - 1, "Source: ", curfile);
	line(MSG_START - 1, "Catalogue: ", fixsuffix(curfile, CATSUFFIX));
	line(CMD_START - 1, (char *)NULL, (char *)NULL);

	werase(source);
	werase(message);
	werase(command);
	wrefresh(source);
	wrefresh(message);
	wrefresh(command);
	refresh();

	if ( ! usemessage)
		if (getmsg(name) == ERROR)
			return;

	curfile = name;
	tmpname = fixsuffix(name, MSGSUFFIX);
	if ((mp = fopen(tmpname, "r")) == (FILE *)NULL) {
		error("cannot open", tmpname);
		return;
	}
	if ((op = fopen(name, "r")) == (FILE *)NULL) {
		error("cannot open", name);
		fclose(mp);
		return;
	}
	tmpname = fixprefix(INTPREFIX, name);
	if ((np = fopen(tmpname, "w+")) == (FILE *)NULL) {
		error("cannot open", tmpname);
		fclose(mp);
		fclose(op);
		/* fclose(cp); */
		return;
	}
	werase(message);

	/*
	 * message catalogue is opened only once
	 * the header of the message catalogue is written to the file
	 * (the default is the init_str)
	 */
	if (firsttime || new_msg_cat) {
	    tmpname = fixsuffix(name, CATSUFFIX);
	    if ((cp = fopen(tmpname, "w")) == (FILE *)NULL) {
		error("cannot open", tmpname);
		fclose(mp);
		fclose(op);
		return;
	    }
	    if (*init_str) {			/* DJL 002 */
		    fputs(init_str, cp);
		    wprintw(message, "%s", init_str);
		    if (*msgprefix) {		/* DJL 003 */
			fprintf(cp, "\n$set S_%s%d\n", msgprefix, ++setnum);
			wprintw(message, "\n$set S_%s%d\n", msgprefix, setnum);
		    }
		    else {
		    	fprintf(cp, "\n$set %d\n", ++setnum);
		    	wprintw(message, "\n$set %d\n", setnum);
		    }
	    }
	}

	/*
	 * print the header lines to the new source file
	 */
	if (!firsttime && *src1head) {		/* DJL 002 */
		fputs(src1head, np);
	}
	else if (*src2head) {
		fputs(src2head, np);
	}

	wrefresh(message);

	processfile(mp, cp, op, np, setnum);

	fclose(op);
	fclose(np);
	/* fclose(cp); */
	fclose(mp);
	if ( ! usemessage)
		unlink(fixsuffix(name, MSGSUFFIX));
}

/*
 * getmsg()
 *	Run the string extract file to produce a new message catalogue
 *	for the file. We popen() and collect the stderr so that we
 *	can let the user see the prescan. On exit the msg file will
 *	have been produced.
 */

getmsg(name)
char *name;
{	FILE *open();
	FILE *errp;
	char ebuf[LINESIZE];
	char cmd[LINESIZE];
	extern char *refile, *ignfile;

	strcpy(cmd, STREXTRACT);
	strcat(cmd, " -d ");
	if (refile) {
		strcat(cmd, "-p ");
		strcat(cmd, refile);
		strcat(cmd, " ");
	}
	if (ignfile) {
		strcat(cmd, "-i ");
		strcat(cmd, ignfile);
		strcat(cmd, " ");
	}
	strcat(cmd, name);
	strcat(cmd, " 2>&1");
	
	if ((errp = popen(cmd, "r")) == (FILE *)NULL) {	
		error("cannot popen ", STREXTRACT);
		return ERROR;
	}
	while (fgets(ebuf, LINESIZE, errp) != (char *)NULL) {
		waddstr(source, ebuf);
		wrefresh(source);
		errors++;
	}
	fclose(errp);

	if (errors) {