ed - ex.c << '-*-END-*-'
473a
#ifdef VMUNIX
	tflush();
#endif
.
464c
#ifdef SIGTSTP
.
387a
#endif
.
383a
#ifdef CRYPT
.
247a
#endif
.
243a
#ifdef CRYPT
.
231a
#endif
.
227a
#ifdef CRYPT
.
145c
#ifdef SIGTSTP
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex.c	4.2 8/1/80";
.
w
q
-*-END-*-
ed - ex.h << '-*-END-*-'
311a
#endif
.
298a
#ifdef CRYPT
.
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_addr.c << '-*-END-*-'
1a
static char *sccsid = "@(#)ex_addr.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_argv.h << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_argv.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_cmds.c << '-*-END-*-'
652,653c
				printf("@(#) Version 3.5, 9/12/80."+5);
.
569c
#ifdef SIGTSTP
.
477,478d
475a
					if (!exclam()) {
						ckaw();
						if (chng && dol > zero)
							error("No write@since last chage (:rewind! overrides)");
					}
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_cmds.c	5.3 9/12/80";
.
w
q
-*-END-*-
ed - ex_cmds2.c << '-*-END-*-'
106a
#ifdef VMUNIX
		tlaste();
#endif
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_cmds2.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_cmdsub.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_cmdsub.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_data.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_data.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_get.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_get.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_io.c << '-*-END-*-'
654a
#endif
.
652a
#ifdef CRYPT
.
638a
#endif
.
636a
#ifdef CRYPT
.
589a
#endif
.
580a
#ifdef CRYPT
.
409a
#ifdef VMUNIX
		tlaste();
#endif
.
354a
	if (value(READONLY) && denied) {
		value(READONLY) = ovro;
		denied = 0;
	}
	if (c != 'r' && ((stbuf.st_mode & 0222) == 0 || access(file, 2) < 0)) {
		ovro = value(READONLY);
		denied = 1;
		value(READONLY) = 1;
	}
	if (value(READONLY)) {
		printf(" [Read only]");
		flush();
	}
.
332a
#endif
.
330a
#ifdef CRYPT
.
305a
	static int ovro;	/* old value(READONLY) */
	static int denied;	/* 1 if READONLY was set due to file permissions */
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_io.c	5.5 9/7/80";
.
w
q
-*-END-*-
ed - ex_put.c << '-*-END-*-'
1085c
#ifdef SIGTSTP
.
1066c
# ifdef TIOCSLTC
.
1025c
# ifdef TIOCGLTC
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_put.c	5.2 9/12/80";
.
w
q
-*-END-*-
ed - ex_re.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_re.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_re.h << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_re.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_set.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_set.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_subr.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_subr.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_temp.c << '-*-END-*-'
747a
#endif
.
608a
#ifdef CRYPT
.
272a
#ifdef VMUNIX
		if (stilinc)
			tflush();
#endif
.
228a
#ifdef VMUNIX
	if (stilinc)
		return;
#endif
.
218a
#ifdef VMUNIX
tlaste()
{

	if (stilinc)
		dirtcnt = 0;
}

tflush()
{
	int i = stilinc;
	
	stilinc = 0;
	lseek(tfile, (long) 0, 0);
	if (write(tfile, pagrnd(incorb[1]), i * BUFSIZ) != (i * BUFSIZ))
		filioerr(tfname);
}
#endif

.
213a
#ifdef VMUNIX
	if (b < INCORB) {
		if (iofcn == read) {
			bcopy(pagrnd(incorb[b+1]), buf, BUFSIZ);
			return;
		}
		bcopy(buf, pagrnd(incorb[b+1]), BUFSIZ);
		if (laste) {
			if (b >= stilinc)
				stilinc = b + 1;
			return;
		}
	} else if (stilinc)
		tflush();
#endif
.
207a
#ifdef	VMUNIX
#define	INCORB	64
char	incorb[INCORB+1][BUFSIZ];
#define	pagrnd(a)	((char *)(((int)a)&~(BUFSIZ-1)))
int	stilinc;	/* up to here not written yet */
#endif

.
201a
#endif
.
188a
#ifdef CRYPT
.
185a
#endif
.
183a
#ifdef CRYPT
.
178a
#endif
.
176a
#ifdef CRYPT
.
171a
#endif
.
169a
#ifdef CRYPT
.
164a
#endif
.
162a
#ifdef CRYPT
.
59a
#ifdef VMUNIX
	{
		extern stilinc;		/* see below */
		stilinc = 0;
	}
#endif
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_temp.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_temp.h << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_temp.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_tty.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_tty.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_tty.h << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_tty.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_tune.h << '-*-END-*-'
16c
#define	EXSTRINGS	libpath(ex3.5strings)
.
13,14c
#define	EXRECOVER	libpath(ex3.5recover)
#define	EXPRESERVE	libpath(ex3.5preserve)
.
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_tune.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_unix.c << '-*-END-*-'
209c
#ifdef SIGTSTP
.
133c
#ifdef SIGTSTP
.
1a
static char *sccsid = "@(#)ex_unix.c	5.2 9/12/80";
.
w
q
-*-END-*-
ed - ex_v.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_v.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_vadj.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vadj.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_vars.h << '-*-END-*-'
0a
/*  sccs id  @(#)ex_vars.h	5.1 8/20/80 */
.
w
q
-*-END-*-
ed - ex_vget.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vget.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_vis.h << '-*-END-*-'
146c
#define VC_ONECHANGE	2	/* In a macro, one change so far */
.
1c
/* Copyright (c) 1980 Regents of the University of California */
/* sccs id:	@(#)ex_vis.h	5.1 8/20/80  */
.
w
q
-*-END-*-
ed - ex_vmain.c << '-*-END-*-'
881,882c
			forbid (hadcnt);
.
863c
#ifdef SIGTSTP
.
814,821c
			forbid (hadcnt);
.
809,811d
804,807c
		 * ^^		Return to previous file.
		 *		Like a :e #, and thus can be used after a
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vmain.c	5.3 9/12/80";
.
w
q
-*-END-*-
ed - ex_vops.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vops.c	5.1 8/20/80";
.
w
q
-*-END-*-
mv ex_voperate.c ex_voper.c
ed - ex_voper.c << '-*-END-*-'
601,602c
		forbid (Xhadcnt);
.
563,564c
		forbid (Xhadcnt);
.
247,248c
		forbid (Xhadcnt);
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_voper.c	5.1 8/28/80";
.
w
q
-*-END-*-
ed - ex_vops2.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vops2.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_vops3.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vops3.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - ex_vput.c << '-*-END-*-'
719c
			Outchar = Ooutchar;
.
716a
			int (*Ooutchar)() = Outchar;
.
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "%W% %G%";
.
w
q
-*-END-*-
ed - ex_vwind.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_vwind.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - expreserve.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)expreserve.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - exrecover.c << '-*-END-*-'
1c
/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)exrecover.c	5.1 8/20/80";
.
w
q
-*-END-*-
ed - makefile << '-*-END-*-'
67c
	${AS} -o strings.o xs.s
.
62a
bcopy.o:	bcopy.c
	${CC} -c ${CFLAGS} bcopy.c

# xstr: hands off!
.
60,61c
# ex_vars.h:
# 	csh makeoptions ${CFLAGS}
.
51c
	${CC} ${LDFLAGS} ${OBJS} ${TERMLIB}
.
41c
	printf.o bcopy.o strings.o
.
39c
	ex_v.o ex_vadj.o ex_vget.o ex_vmain.o ex_voper.o \
.
30c
CFLAGS=	-DTABS=8 -DCRYPT -DLISPCODE -DCHDIR -DUCVISUAL -DVFORK -DVMUNIX ${DEB}
LDFLAGS=	-z		# or -i or -n
.
11c
# chdir command.)  CRYPT includes the code to edit encrypted files (the -x
# option, like ed.)  VMUNIX makes ex considerably larger, raising many limits
.
3c
# Ex skeletal makefile for VAX VM/Unix version 7
.
1c
VERSION=3.5
.
w
q
-*-END-*-
ed - makeoptions << '-*-END-*-'
38a
	0a
	/*  sccs id   @(#)  ex_vars.h  @(#)makeoptions	5.1 8/20/80  */
.
.
w
q
-*-END-*-
ed - printf.c << '-*-END-*-'
1c
/* The pwb version this is based on */
static char *printf_id = "@(#) printf.c:2.2 6/5/79";
/* The local sccs version within ex */
static char *sccsid = "@(#)printf.c	5.1 8/20/80";
.
w
q
-*-END-*-