1 #include <u.h>
2 #include <libc.h>
3 #include <plumb.h>
4 #include "errors.h"
5 
6 /*
7  * BLOCKSIZE is relatively small to keep memory consumption down.
8  */
9 
10 #define	BLOCKSIZE	2048
11 #define	RUNESIZE	sizeof(Rune)
12 #define	NDISC		5
13 #define	NBUFFILES	3+2*NDISC	/* plan 9+undo+snarf+NDISC*(transcript+buf) */
14 #define NSUBEXP	10
15 
16 #define	TRUE		1
17 #define	FALSE		0
18 
19 #define	INFINITY	0x7FFFFFFFL
20 #define	INCR		25
21 #define	STRSIZE		(2*BLOCKSIZE)
22 
23 typedef long		Posn;		/* file position or address */
24 typedef	ushort		Mod;		/* modification number */
25 
26 typedef struct Address	Address;
27 typedef struct Block	Block;
28 typedef struct Buffer	Buffer;
29 typedef struct Disk	Disk;
30 typedef struct Discdesc	Discdesc;
31 typedef struct File	File;
32 typedef struct List	List;
33 typedef struct Range	Range;
34 typedef struct Rangeset	Rangeset;
35 typedef struct String	String;
36 
37 enum State
38 {
39 	Clean =		' ',
40 	Dirty =		'\'',
41 	Unread =	'-',
42 };
43 
44 struct Range
45 {
46 	Posn	p1, p2;
47 };
48 
49 struct Rangeset
50 {
51 	Range	p[NSUBEXP];
52 };
53 
54 struct Address
55 {
56 	Range	r;
57 	File	*f;
58 };
59 
60 struct String
61 {
62 	short	n;
63 	short	size;
64 	Rune	*s;
65 };
66 
67 struct List	/* code depends on a long being able to hold a pointer */
68 {
69 	int	nalloc;
70 	int	nused;
71 	union{
72 		void	*listp;
73 		Block	*blkp;
74 		long	*longp;
75 		uchar*	*ucharp;
76 		String*	*stringp;
77 		File*	*filep;
78 		long	listv;
79 	}g;
80 };
81 
82 #define	listptr		g.listp
83 #define	blkptr		g.blkp
84 #define	longptr		g.longp
85 #define	ucharpptr	g.ucharp
86 #define	stringpptr	g.stringp
87 #define	filepptr	g.filep
88 #define	listval		g.listv
89 
90 enum
91 {
92 	Blockincr =	256,
93 	Maxblock = 	8*1024,
94 
95 	BUFSIZE = Maxblock,	/* size from fbufalloc() */
96 	RBUFSIZE = BUFSIZE/sizeof(Rune),
97 };
98 
99 
100 enum
101 {
102 	Null		= '-',
103 	Delete		= 'd',
104 	Insert		= 'i',
105 	Filename	= 'f',
106 	Dot		= 'D',
107 	Mark		= 'm',
108 };
109 
110 struct Block
111 {
112 	uint		addr;	/* disk address in bytes */
113 	union {
114 		uint	n;	/* number of used runes in block */
115 		Block	*next;	/* pointer to next in free list */
116 	} u;
117 };
118 
119 struct Disk
120 {
121 	int		fd;
122 	uint		addr;	/* length of temp file */
123 	Block		*free[Maxblock/Blockincr+1];
124 };
125 
126 Disk*		diskinit(void);
127 Block*		disknewblock(Disk*, uint);
128 void		diskrelease(Disk*, Block*);
129 void		diskread(Disk*, Block*, Rune*, uint);
130 void		diskwrite(Disk*, Block**, Rune*, uint);
131 
132 struct Buffer
133 {
134 	uint		nc;
135 	Rune		*c;	/* cache */
136 	uint		cnc;	/* bytes in cache */
137 	uint		cmax;	/* size of allocated cache */
138 	uint		cq;	/* position of cache */
139 	int		cdirty;	/* cache needs to be written */
140 	uint		cbi;	/* index of cache Block */
141 	Block		**bl;	/* array of blocks */
142 	uint		nbl;	/* number of blocks */
143 };
144 void		bufinsert(Buffer*, uint, Rune*, uint);
145 void		bufdelete(Buffer*, uint, uint);
146 uint		bufload(Buffer*, uint, int, int*);
147 void		bufread(Buffer*, uint, Rune*, uint);
148 void		bufclose(Buffer*);
149 void		bufreset(Buffer*);
150 
151 struct File
152 {
153 	Buffer 	b;				/* the data */
154 	Buffer		delta;		/* transcript of changes */
155 	Buffer		epsilon;	/* inversion of delta for redo */
156 	String		name;		/* name of associated file */
157 	uvlong		qidpath;	/* of file when read */
158 	uint		mtime;		/* of file when read */
159 	int		dev;		/* of file when read */
160 	int		unread;		/* file has not been read from disk */
161 
162 	long		seq;		/* if seq==0, File acts like Buffer */
163 	long		cleanseq;	/* f->seq at last read/write of file */
164 	int		mod;		/* file appears modified in menu */
165 	char		rescuing;	/* sam exiting; this file unusable */
166 
167 //	Text		*curtext;	/* most recently used associated text */
168 //	Text		**text;		/* list of associated texts */
169 //	int		ntext;
170 //	int		dumpid;		/* used in dumping zeroxed windows */
171 
172 	Posn		hiposn;		/* highest address touched this Mod */
173 	Address		dot;		/* current position */
174 	Address		ndot;		/* new current position after update */
175 	Range		tdot;		/* what terminal thinks is current range */
176 	Range		mark;		/* tagged spot in text (don't confuse with Mark) */
177 	List		*rasp;		/* map of what terminal's got */
178 	short		tag;		/* for communicating with terminal */
179 	char		closeok;	/* ok to close file? */
180 	char		deleted;	/* delete at completion of command */
181 	Range		prevdot;	/* state before start of change */
182 	Range		prevmark;
183 	long		prevseq;
184 	int		prevmod;
185 };
186 //File*		fileaddtext(File*, Text*);
187 void		fileclose(File*);
188 void		filedelete(File*, uint, uint);
189 //void		filedeltext(File*, Text*);
190 void		fileinsert(File*, uint, Rune*, uint);
191 uint		fileload(File*, uint, int, int*);
192 void		filemark(File*);
193 void		filereset(File*);
194 void		filesetname(File*, String*);
195 void		fileundelete(File*, Buffer*, uint, uint);
196 void		fileuninsert(File*, Buffer*, uint, uint);
197 void		fileunsetname(File*, Buffer*);
198 void		fileundo(File*, int, int, uint*, uint*, int);
199 int		fileupdate(File*, int, int);
200 
201 int		filereadc(File*, uint);
202 File		*fileopen(void);
203 void		loginsert(File*, uint, Rune*, uint);
204 void		logdelete(File*, uint, uint);
205 void		logsetname(File*, String*);
206 int		fileisdirty(File*);
207 long		undoseq(File*, int);
208 long		prevseq(Buffer*);
209 
210 void		raspload(File*);
211 void		raspstart(File*);
212 void		raspdelete(File*, uint, uint, int);
213 void		raspinsert(File*, uint, Rune*, uint, int);
214 void		raspdone(File*, int);
215 
216 /*
217  * acme fns
218  */
219 void*	fbufalloc(void);
220 void	fbuffree(void*);
221 uint	min(uint, uint);
222 void	cvttorunes(char*, int, Rune*, int*, int*, int*);
223 
224 #define	runemalloc(a)		(Rune*)emalloc((a)*sizeof(Rune))
225 #define	runerealloc(a, b)	(Rune*)realloc((a), (b)*sizeof(Rune))
226 #define	runemove(a, b, c)	memmove((a), (b), (c)*sizeof(Rune))
227 
228 int	alnum(int);
229 int	Read(int, void*, int);
230 void	Seek(int, long, int);
231 int	plan9(File*, int, String*, int);
232 int	Write(int, void*, int);
233 int	bexecute(File*, Posn);
234 void	cd(String*);
235 void	closefiles(File*, String*);
236 void	closeio(Posn);
237 void	cmdloop(void);
238 void	cmdupdate(void);
239 void	compile(String*);
240 void	copy(File*, Address);
241 File	*current(File*);
242 void	delete(File*);
243 void	delfile(File*);
244 void	dellist(List*, int);
245 void	doubleclick(File*, Posn);
246 void	dprint(char*, ...);
247 void	edit(File*, int);
248 void	*emalloc(ulong);
249 void	*erealloc(void*, ulong);
250 void	error(Err);
251 void	error_c(Err, int);
252 void	error_r(Err, char*);
253 void	error_s(Err, char*);
254 int	execute(File*, Posn, Posn);
255 int	filematch(File*, String*);
256 void	filename(File*);
257 void	fixname(String*);
258 void	fullname(String*);
259 void	getcurwd(void);
260 File	*getfile(String*);
261 int	getname(File*, String*, int);
262 long	getnum(int);
263 void	hiccough(char*);
264 void	inslist(List*, int, long);
265 Address	lineaddr(Posn, Address, int);
266 void	listfree(List*);
267 void	load(File*);
268 File	*lookfile(String*);
269 void	lookorigin(File*, Posn, Posn);
270 int	lookup(int);
271 void	move(File*, Address);
272 void	moveto(File*, Range);
273 File	*newfile(void);
274 void	nextmatch(File*, String*, Posn, int);
275 int	newtmp(int);
276 void	notifyf(void*, char*);
277 void	panic(char*);
278 void	printposn(File*, int);
279 void	print_ss(char*, String*, String*);
280 void	print_s(char*, String*);
281 int	rcv(void);
282 Range	rdata(List*, Posn, Posn);
283 Posn	readio(File*, int*, int, int);
284 void	rescue(void);
285 void	resetcmd(void);
286 void	resetsys(void);
287 void	resetxec(void);
288 void	rgrow(List*, Posn, Posn);
289 void	samerr(char*);
290 void	settempfile(void);
291 int	skipbl(void);
292 void	snarf(File*, Posn, Posn, Buffer*, int);
293 void	sortname(File*);
294 void	startup(char*, int, char**, char**);
295 void	state(File*, int);
296 int	statfd(int, ulong*, uvlong*, long*, long*, long*);
297 int	statfile(char*, ulong*, uvlong*, long*, long*, long*);
298 void	Straddc(String*, int);
299 void	Strclose(String*);
300 int	Strcmp(String*, String*);
301 void	Strdelete(String*, Posn, Posn);
302 void	Strdupl(String*, Rune*);
303 void	Strduplstr(String*, String*);
304 void	Strinit(String*);
305 void	Strinit0(String*);
306 void	Strinsert(String*, String*, Posn);
307 void	Strinsure(String*, ulong);
308 int	Strispre(String*, String*);
309 void	Strzero(String*);
310 int	Strlen(Rune*);
311 char	*Strtoc(String*);
312 void	syserror(char*);
313 void	telldot(File*);
314 void	tellpat(void);
315 String	*tmpcstr(char*);
316 String	*tmprstr(Rune*, int);
317 void	freetmpstr(String*);
318 void	termcommand(void);
319 void	termwrite(char*);
320 File	*tofile(String*);
321 void	trytoclose(File*);
322 void	trytoquit(void);
323 int	undo(int);
324 void	update(void);
325 int	waitfor(int);
326 void	warn(Warn);
327 void	warn_s(Warn, char*);
328 void	warn_SS(Warn, String*, String*);
329 void	warn_S(Warn, String*);
330 int	whichmenu(File*);
331 void	writef(File*);
332 Posn	writeio(File*);
333 Discdesc *Dstart(void);
334 
335 extern Rune	samname[];	/* compiler dependent */
336 extern Rune	*left[];
337 extern Rune	*right[];
338 
339 extern char	RSAM[];		/* system dependent */
340 extern char	SAMTERM[];
341 extern char	HOME[];
342 extern char	TMPDIR[];
343 extern char	SH[];
344 extern char	SHPATH[];
345 extern char	RX[];
346 extern char	RXPATH[];
347 extern char	SAMSAVECMD[];
348 
349 /*
350  * acme globals
351  */
352 extern long		seq;
353 extern Disk		*disk;
354 
355 extern char	*rsamname;	/* globals */
356 extern char	*samterm;
357 extern Rune	genbuf[];
358 extern char	*genc;
359 extern int	io;
360 extern int	patset;
361 extern int	quitok;
362 extern Address	addr;
363 extern Buffer	snarfbuf;
364 extern Buffer	plan9buf;
365 extern List	file;
366 extern List	tempfile;
367 extern File	*cmd;
368 extern File	*curfile;
369 extern File	*lastfile;
370 extern Mod	modnum;
371 extern Posn	cmdpt;
372 extern Posn	cmdptadv;
373 extern Rangeset	sel;
374 extern String	curwd;
375 extern String	cmdstr;
376 extern String	genstr;
377 extern String	lastpat;
378 extern String	lastregexp;
379 extern String	plan9cmd;
380 extern int	downloaded;
381 extern int	eof;
382 extern int	bpipeok;
383 extern int	panicking;
384 extern Rune	empty[];
385 extern int	termlocked;
386 extern int	noflush;
387 
388 #include "mesg.h"
389 
390 void	outTs(Hmesg, int);
391 void	outT0(Hmesg);
392 void	outTl(Hmesg, long);
393 void	outTslS(Hmesg, int, long, String*);
394 void	outTS(Hmesg, String*);
395 void	outTsS(Hmesg, int, String*);
396 void	outTsllS(Hmesg, int, long, long, String*);
397 void	outTsll(Hmesg, int, long, long);
398 void	outTsl(Hmesg, int, long);
399 void	outTsv(Hmesg, int, long);
400 void	outstart(Hmesg);
401 void	outcopy(int, void*);
402 void	outshort(int);
403 void	outlong(long);
404 void	outvlong(void*);
405 void	outsend(void);
406 void	outflush(void);