WebSVN – planix.SVN – Diff – /ports/trunk/editors/rvi/ex.c



#include "ex_tty.h"
 
#ifdef TRACE
char	tttrace[]	= { '/','d','e','v','/','t','t','y','x','x',0 };
#endif
 
#include<stdio.h>
 
#if defined (__GLIBC__) && (__GLIBC__ >= 2)
#include <malloc.h>
#endif
 

	const char *av[];
{
#ifndef VMUNIX
	char *erpath = EXSTRINGS;
#endif
	const char *cp;
	register int c;
	bool recov = 0;
	bool ivis;
	bool itag = 0;
	bool fast = 0;

			value(READONLY) = 1;
			break;
 
#ifdef TRACE
		case 'T':
			printf("There was an trace\n");
			if (av[0][2] == 0)
				tracef = "trace";
			else {
				tracef = tttrace;
				tracef[8] = av[0][2];
				if (tracef[8])
					tracef[9] = av[0][3];
				else
					tracef[9] = 0;
			}
			
			/* XXX tracef */
			trace = fopen("/tmp/trace.txt", "w+a");
#define tracbuf NULL
			if (trace == NULL)
				fprintf(stderr,"Error creating trace file %s: %s\n",tracef,strerror(errno));
			else
				setbuf(trace, tracbuf);
			break;
 
#endif

/*
 * Initialization, before editing a new file.
 * Main thing here is to get a new buffer (in fileinit),
 * rest is peripheral state resetting.
 */
int
init(void)
{
	register int i;
 
	fileinit();
	dot = zero = truedol = unddol = dol = fendcore;

/*
 * Return last component of unix path name p.
 */
char *
tailpath(p)
	register char *p;
{
	register char *r;
 
	for (r=p; *p; p++)
		if (*p == '/')

 
/*
 * Check ownership of file.  Return nonzero if it exists and is owned by the
 * user or the option sourceany is used
 */
int 
iownit(file)
	char *file;
{
	struct stat sb;
 
	if (stat(file, &sb) == 0 && (value(SOURCEANY) || sb.st_uid == getuid()))
		return(1);

Rev 119	Rev 121
Line 18...	Line 18...
18	`#include "ex_tty.h"`	18	`#include "ex_tty.h"`
19		19
20	`#ifdef TRACE`	20	`#ifdef TRACE`
21	`char tttrace[] = { '/','d','e','v','/','t','t','y','x','x',0 };`	21	`char tttrace[] = { '/','d','e','v','/','t','t','y','x','x',0 };`
22	`#endif`	22	`#endif`
-		23
-		24	`#include<stdio.h>`
23		25
24	`#if defined (__GLIBC__) && (__GLIBC__ >= 2)`	26	`#if defined (__GLIBC__) && (__GLIBC__ >= 2)`
25	`#include <malloc.h>`	27	`#include <malloc.h>`
26	`#endif`	28	`#endif`
27		29
Line 89...	Line 91...
89	`const char *av[];`	91	`const char *av[];`
90	`{`	92	`{`
91	`#ifndef VMUNIX`	93	`#ifndef VMUNIX`
92	`char *erpath = EXSTRINGS;`	94	`char *erpath = EXSTRINGS;`
93	`#endif`	95	`#endif`
94	`register char *cp;`	96	`const char *cp;`
95	`register int c;`	97	`register int c;`
96	`bool recov = 0;`	98	`bool recov = 0;`
97	`bool ivis;`	99	`bool ivis;`
98	`bool itag = 0;`	100	`bool itag = 0;`
99	`bool fast = 0;`	101	`bool fast = 0;`
Line 189...	Line 191...
189	`value(READONLY) = 1;`	191	`value(READONLY) = 1;`
190	`break;`	192	`break;`
191		193
192	`#ifdef TRACE`	194	`#ifdef TRACE`
193	`case 'T':`	195	`case 'T':`
-		196	`printf("There was an trace\n");`
194	`if (av[0][2] == 0)`	197	`if (av[0][2] == 0)`
195	`tracef = "trace";`	198	`tracef = "trace";`
196	`else {`	199	`else {`
197	`tracef = tttrace;`	200	`tracef = tttrace;`
198	`tracef[8] = av[0][2];`	201	`tracef[8] = av[0][2];`
199	`if (tracef[8])`	202	`if (tracef[8])`
200	`tracef[9] = av[0][3];`	203	`tracef[9] = av[0][3];`
201	`else`	204	`else`
202	`tracef[9] = 0;`	205	`tracef[9] = 0;`
203	`}`	206	`}`
-		207
-		208	`/* XXX tracef */`
204	`trace = fopen(tracef, "w");`	209	`trace = fopen("/tmp/trace.txt", "w+a");`
205	`#define tracbuf NULL`	210	`#define tracbuf NULL`
206	`if (trace == NULL)`	211	`if (trace == NULL)`
207	`printf("Trace create error\n");`	212	`fprintf(stderr,"Error creating trace file %s: %s\n",tracef,strerror(errno));`
208	`else`	213	`else`
209	`setbuf(trace, tracbuf);`	214	`setbuf(trace, tracbuf);`
210	`break;`	215	`break;`
211		216
212	`#endif`	217	`#endif`
Line 403...	Line 408...
403	`/*`	408	`/*`
404	`* Initialization, before editing a new file.`	409	`* Initialization, before editing a new file.`
405	`* Main thing here is to get a new buffer (in fileinit),`	410	`* Main thing here is to get a new buffer (in fileinit),`
406	`* rest is peripheral state resetting.`	411	`* rest is peripheral state resetting.`
407	`*/`	412	`*/`
-		413	`int`
408	`init()`	414	`init(void)`
409	`{`	415	`{`
410	`register int i;`	416	`register int i;`
411		417
412	`fileinit();`	418	`fileinit();`
413	`dot = zero = truedol = unddol = dol = fendcore;`	419	`dot = zero = truedol = unddol = dol = fendcore;`
Line 423...	Line 429...
423	`/*`	429	`/*`
424	`* Return last component of unix path name p.`	430	`* Return last component of unix path name p.`
425	`*/`	431	`*/`
426	`char *`	432	`char *`
427	`tailpath(p)`	433	`tailpath(p)`
428	`register char *p;`	434	`register char *p;`
429	`{`	435	`{`
430	`register char *r;`	436	`register char *r;`
431		437
432	`for (r=p; *p; p++)`	438	`for (r=p; *p; p++)`
433	`if (*p == '/')`	439	`if (*p == '/')`
Line 437...	Line 443...
437		443
438	`/*`	444	`/*`
439	`* Check ownership of file. Return nonzero if it exists and is owned by the`	445	`* Check ownership of file. Return nonzero if it exists and is owned by the`
440	`* user or the option sourceany is used`	446	`* user or the option sourceany is used`
441	`*/`	447	`*/`
-		448	`int`
442	`iownit(file)`	449	`iownit(file)`
443	`char *file;`	450	`char *file;`
444	`{`	451	`{`
445	`struct stat sb;`	452	`struct stat sb;`
446		453
447	`if (stat(file, &sb) == 0 && (value(SOURCEANY) \|\| sb.st_uid == getuid()))`	454	`if (stat(file, &sb) == 0 && (value(SOURCEANY) \|\| sb.st_uid == getuid()))`
448	`return(1);`	455	`return(1);`

Subversion Repositories planix.SVN

(root)/ports/trunk/editors/rvi/ex.c – Rev 119 → 121