Upload

Digital Research
2025-10-25 01:14:21 +00:00 · 2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
--- a/SOURCES/v102a/al40/dri/flxtp/tp1.c
+++ b/SOURCES/v102a/al40/dri/flxtp/tp1.c
@@ -0,0 +1,197 @@
+#include "tp.h"
+
+main(argc,argv)
+char **argv;
+{
+	register char c,*ptr;
+	extern cmd(), cmr(),cmx(), cmt();
+
+	tname = tc;
+	command = cmr;
+	if ((narg = rnarg = argc) < 2)	narg = 2;
+	else {
+		ptr = argv[1];	/* get first argument */
+		parg = &argv[2];	/* pointer to second argument */
+		while (c = *ptr++) switch(c)  {
+			case '0':
+			case '1':
+			case '2':
+			case '3':
+			case '4':
+			case '5':
+			case '6':
+			case '7':
+				tc[8] = c;
+				mt[8] = c;
+				continue;
+
+			case 'f':
+				tname = *parg++;
+				flags |= flm;
+				narg--; rnarg--;
+				continue;
+			case 'c':
+				flags |= flc;  continue;
+			case 'd':
+				setcom(cmd);  continue;
+			case 'i':
+				flags |= fli;  continue;
+			case 'm':
+				tname = mt;
+				flags |= flm;
+				continue;
+			case 'r':
+				flags &= ~flu;  setcom(cmr);  continue;
+			case 's':
+				flags |= fls; continue;
+			case 't':
+				setcom(cmt);  continue;
+			case 'u':
+				flags |= flu;  setcom(cmr);  continue;
+			case 'v':
+				flags |= flv;  continue;
+			case 'w':
+				flags |= flw;  continue;
+			case 'x':
+				setcom(cmx);  continue;
+			default:
+				useerr();
+		}
+	}
+	optap();
+	top = nptr = nameblk = sbrk(0);
+	(*command)();
+}
+
+optap()
+{
+	extern cmr();
+
+	if ((flags & flm) == 0) {	/*  DECTAPE */
+		tapsiz = TCSIZ;
+		ndirent = TCDIRS;
+		fio =open(tc,2);
+	} else {			/* MAGTAPE */
+		tapsiz = MTSIZ;
+		ndirent = MDIRENT;
+		if(command == cmr) {
+			fio = open(tname,1);
+			if (fio < 0) fio = creat(tname,0666);
+		} else
+			fio = open(tname,0);
+	}
+	if (fio < 0)  {
+		printf("Tape open error\n");
+		done();
+	}
+	ndentb = ndirent/TPB;
+	edir = &dir[ndirent];
+}
+
+setcom(newcom)
+int (*newcom)();
+{
+	extern cmr();
+
+	if (command != cmr)  	useerr();
+	command = newcom;
+}
+
+useerr()
+{
+	printf("Bad usage\n");
+	done();
+}
+
+/*/* COMMANDS */
+
+cmd()
+{
+	extern delete();
+
+	if (flags & (flm|flc))	useerr();
+	if (narg <= 2)			useerr();
+	rddir();
+	gettape(delete);
+	wrdir();
+	check();
+}
+
+cmr()
+{
+	if (flags & (flc|flm))		clrdir();
+	else				rddir();
+	getfiles();
+	update();
+	check();
+}
+
+cmt()
+{
+	extern taboc();
+
+	if (flags & (flc|flw))	useerr();
+	rddir();
+	if (flags & flv)
+		printf("   mode    uid gid tapa    size   date    time name\n");
+	gettape(taboc);
+	check();
+}
+
+cmx()
+{
+	extern extract();
+
+	if (flags & (flc))		useerr();
+	rddir();
+	gettape(extract);
+	done();
+}
+
+check()
+{
+	usage();
+	done();
+}
+
+done()
+{
+	printf("End\n");
+	exit(0);
+}
+
+encode(pname,dptr)	/* pname points to the pathname
+			 * nptr points to next location in nameblk
+			 * dptr points to the dir entry		   */
+char	*pname;
+struct	dent *dptr;
+{
+	register  char *np;
+	register n;
+
+	dptr->d_namep = np = nptr;
+	if (np > top - NAMELEN)  {
+		if(sbrk(BRKINCR) == (char *)-1) {
+			printf("Out of core\n");
+			done();
+		} else
+			top += BRKINCR;
+	}
+	if((n=strlen(pname)) > NAMELEN) {
+		printf("Pathname too long - %s\nFile ignored\n",pname);
+		clrent(dptr);
+	}
+	else {
+		nptr += n+1;
+		strcpy(np, pname);
+	}
+}
+
+decode(pname,dptr)	/* dptr points to the dir entry
+			 * name is placed in pname[] */
+char	*pname;
+struct	dent *dptr;
+{
+
+	strcpy(pname, dptr->d_namep);
+}