copy.c

#include <stdio.h>
#include <signal.h>
#include "lrnref"

char last[100];
char logf[100];
char subdir[100];
extern char * ctime();

copy(prompt, fin)
register FILE *fin;
register prompt;
{
	FILE *fout, *f;
	char s[100], t[100], s1[100], *r, *tod;
	char nm[30];
	int *p, tv[2];
	extern int intrpt(), *action();
	extern char *wordb();
	int nmatch = 0;
	if (subdir[0]==0)
		sprintf(subdir, "../../%s", sname);
	for (;;) {
		if (pgets(s, prompt, fin) == 0)
			if (fin == stdin) {
				continue;
			} 
			else
				break;
		trim(s);
		/* åÓÌÉ ÎÅÏÂÈÏÄÉÍÏ,
						 * ÔÏ ÐÏÓÌÅÄÏ×ÁÔÅÌØÎÏÓÔØ %s
						 * ÚÁÍÅÎÑÅÔÓÑ ÎÁ ÉÍÑ
						 * ÓÐÒÁ×ÏÞÎÉËÁ ËÕÒÓÁ
						 *ô.Å. ÐÒÏ×ÏÄÑÔ ÍÁËÒÏÐÏÄÓÔÁÎÏ×ËÕ.
						 */
		for (r = s; *r; r++)
			if (*r == '%') {
				sprintf(s1, s, subdir, subdir, subdir);
				strcpy(s, s1);
				break;
			}
		r = wordb(s, t);
		p = action(t);
		/* ÄÅÊÓÔ×ÉÅ ÐÒÏ×ÏÄÉÔÓÑ
						  * ÔÏÌØËÏ ÏÄÉÎ ÒÁÚ
						  */
		if (*p == ONCE) {
			if (wrong) {    /* ÐÏ×ÔÏÒÑÅÍ ÕÒÏË */
				scopy(fin, NULL);
				continue;
			}
			strcpy(s, r);
			r = wordb(s, t);
			p = action(t);
		}
		if (p == 0) {
			if (comfile >= 0) {
				write(comfile, s, strlen(s));
				write(comfile, "\n", 1);
			}
			else {
				signal(SIGINT, SIG_IGN);
				status = mysys(s);
				signal(SIGINT, intrpt);
			}
			if (incopy) {
				fprintf(incopy, "%s\n", s);
				strcpy(last, s);
			}
			continue;
		}
		switch (*p) {
		case READY:
			if (incopy && r) {
				fprintf(incopy, "%s\n", r);
				strcpy(last, r);
			}
			return;
		case PRINT:
			if (wrong)
				/* ×Ù×ÏÄ ÎÁ ÜËÒÁÎ*/
				/* ÎÅ ÐÏ×ÔÏÒÑÅÔÓÑ*/
				scopy(fin, NULL);
			else if (r)
				list(r);
			else
				scopy(fin, stdout);
			break;
		case NOP:
			break;
		case MATCH:
			/* ÏÄÉÎ ÒÁÚ ÎÁ
							 * ×ÏÐÒÏÓ ÕÖÅ
							 * ÏÔ×ÅÞÁÌÉ
							 */
			if (nmatch > 0)
				scopy(fin, NULL);
			else if ((status = strcmp(r, last)) == 0) {     /* Á × ÜÔÏÔ ÒÁÚ ÐÒÁ×ÉÌØÎÏ ÏÔ×ÅÔÉÌÉ ? */
				nmatch++;
				scopy(fin, stdout);
			} 
			else
				scopy(fin, NULL);
			break;
		case BAD:
			if (strcmp(r, last) == 0) {
				scopy(fin, stdout);
			} 
			else
				scopy(fin, NULL);
			break;
		case SUCCEED:
			scopy(fin, (status == 0) ? stdout : NULL);
		     { char resp[20];
			fprintf(stdout,"äÌÑ ÐÅÒÅÈÏÄÁ Ë ÓÌÅÄÕÀÝÅÍÕ ÕÒÏËÕ\nÎÁÖÍÉÔÅ ËÌÁ×ÉÛÕ ÷ë.\n");
			fflush(stdout);
			gets(resp);
			if(strcmp(resp,"ÐÏËÁ") == 0||
			    strcmp(resp,"ðÏËÁ") == 0||
			    strcmp(resp,"ðïëá") == 0)
			{
				more =0;
				return;
			}
			else if(resp[0]=='\n')
				break;
			}
		case FAIL:
			scopy(fin, (status != 0) ? stdout : NULL);
			break;
		case CREATE:
			fout = fopen(r, "w");
			scopy(fin, fout);
			fclose(fout);
			break;
		case CMP:
			status = cmp(r);        /* ÁÒÇÕÍÅÎÔ ÐÒÉ #cmp    */
			break;                  /* ÓÏÄÅÒÖÉÔ Ä×Á ÉÍÅÎÉ   */
			/* ÆÁÊÌÁ                */
		case MV:
			sprintf(nm, "%s/L%s.%s", subdir, todo, r);
			fcopy(r, nm);
			break;
		case USER:
		case NEXT:
			more = 1;
			return;
		case COPYIN:
			incopy = fopen(".copy", "w");
			break;
		case UNCOPIN:
			fclose(incopy);
			incopy = NULL;
			break;
		case COPYOUT:
			maktee();
			break;
		case UNCOPOUT:
			untee();
			break;
		case PIPE:
			comfile = makpipe();
			break;
		case UNPIPE:
			close(comfile);
			wait(0);
			comfile = -1;
			break;
		case YES:
		case NO:
			if (incopy) {
				fprintf(incopy, "%s\n", s);
				strcpy(last, s);
			}
			return;
		case WHERE:
			if (flag) printf("÷Ù ×ÙÐÏÌÎÑÅÔÅ ÕÒÏË  %s\n", todo);
			else   printf("You are in lesson %s\n", todo);
			fflush(stdout);
			break;
		case BYE:
			more=0;
			return;
		case CHDIR:
			if (flag) printf("ëÏÍÁÎÄÁ cd ÎÅ ÒÁÚÒÅÛÅÎÁ\n");
			else  printf("cd not allowed\n");
			fflush(stdout);
			break;
		case LEARN:
			if (flag)printf("÷Ù ÕÖÅ ×ÏÛÌÉ × learn .\n");
			else  printf("You are already in learn.\n");
			fflush(stdout);
			break;
		case LOG:
			if (!logging)
				break;
			if (logf[0] == 0)
				sprintf(logf, "%s/log/%s", direct, sname);
			f = fopen( (r? r : logf), "a");
			if (f == NULL)
				break;
			time(tv);
			tod = ctime(tv);
			tod[24] = 0;
			fprintf(f, "%s L%-6s %s %2d %s\n", tod,
			todo, status? "fail" : "pass", speed, pwline);
			fclose(f);
			break;
		case REDEFINE:
			reTURN = 1;
			break;
		case REDEFOFF:
			reTURN = 0;
			break;
		}
	}
	return;
}

pgets(s, prompt, f)
register FILE *f;
register int s, prompt;
{
	if (prompt) {
		if (comfile < 0)
			printf("$ ");
		fflush(stdout);
	}
	if (fgets(s, 100,f))
		return(1);
	else
		return(0);
}

trim(s)
register char *s;
{
	while (*s)
		s++;
	if (*--s == '\n')
		*s=0;
}

scopy(fi, fo)   /* ËÏÐÉÒÕÅÔ fi × fo ÄÏ ÓÔÒÏËÉ, ÎÁÞÉÎÁÀÝÅÊÓÑ Ó # */
register FILE *fi, *fo;
{
	int c;

	while ((c = getc(fi)) != '#' && c != EOF) {
		do {
			if (fo != NULL)
				putc(c, fo);
			if (c == '\n')
				break;
		} 
		while ((c = getc(fi)) != EOF);
	}
	if (c == '#')
		ungetc(c, fi);
	fflush(fo);
}
/* ÓÒÁ×ÎÉ×ÁÅÔ Ä×Á ÆÁÊÌÁ ÎÁ
 * ÉÄÅÎÔÉÞÎÏÓÔØ
 * ÄÌÑ ÆÌÁÇÁ status
 */
cmp(r)
register char *r;
{
	char *s;
	FILE *f1, *f2;
	int c1, c2, stat;

	for (s = r; *s != ' ' && *s != '\0'; s++)
		;
	*s++ = 0;       /* × r ÆÁÊÌ 1 */
	while (*s == ' ')
		s++;
	f1 = fopen(r, "r");
	f2 = fopen(s, "r");
	if (f1 == NULL || f2 == NULL)
		/* ÎÅ ÓÏ×ÐÁÌÉ */
		return(1);
	stat = 0;
	for (;;) {
		c1 = getc(f1);
		c2 = getc(f2);
		if (c1 != c2) {
			stat = 1;
			break;
		}
		if (c1 == EOF || c2 == EOF)
			break;
	}
	fclose(f1);
	fclose(f2);
	return(stat);
}
/* × ÓÔÒÏËÅ s t - ÞÁÓÔØ
 * ÄÏ ÐÅÒ×ÏÇÏ ÐÒÏÂÅÌÁ,
 * r - ÏÓÔÁ×ÛÁÑÓÑ
 * ÞÁÓÔØ
 */
char *
wordb(s, t)
register char *s, *t;
{
	int c;

	while (c = *s++) {
		if (c == ' ' || c == '\t')
			break;
		*t++ = c;
	}
	*t = 0;
	while (*s == ' ' || *s == '\t')
		s++;
	return(c ? s : NULL);
}