1 76193d7c 2003-09-30 devnull #include "sam.h"
3 76193d7c 2003-09-30 devnull Rune genbuf[BLOCKSIZE];
5 76193d7c 2003-09-30 devnull int panicking;
6 76193d7c 2003-09-30 devnull int rescuing;
7 76193d7c 2003-09-30 devnull String genstr;
8 76193d7c 2003-09-30 devnull String rhs;
9 76193d7c 2003-09-30 devnull String curwd;
10 76193d7c 2003-09-30 devnull String cmdstr;
11 76193d7c 2003-09-30 devnull Rune empty[] = { 0 };
12 76193d7c 2003-09-30 devnull char *genc;
13 76193d7c 2003-09-30 devnull File *curfile;
14 76193d7c 2003-09-30 devnull File *flist;
15 76193d7c 2003-09-30 devnull File *cmd;
16 76193d7c 2003-09-30 devnull jmp_buf mainloop;
17 76193d7c 2003-09-30 devnull List tempfile;
18 76193d7c 2003-09-30 devnull int quitok = TRUE;
19 76193d7c 2003-09-30 devnull int downloaded;
20 76193d7c 2003-09-30 devnull int dflag;
21 76193d7c 2003-09-30 devnull int Rflag;
22 76193d7c 2003-09-30 devnull char *machine;
23 76193d7c 2003-09-30 devnull char *home;
24 76193d7c 2003-09-30 devnull int bpipeok;
25 76193d7c 2003-09-30 devnull int termlocked;
26 76193d7c 2003-09-30 devnull char *samterm = SAMTERM;
27 76193d7c 2003-09-30 devnull char *rsamname = RSAM;
28 76193d7c 2003-09-30 devnull File *lastfile;
29 76193d7c 2003-09-30 devnull Disk *disk;
30 76193d7c 2003-09-30 devnull long seq;
32 76193d7c 2003-09-30 devnull Rune baddir[] = { '<', 'b', 'a', 'd', 'd', 'i', 'r', '>', '\n'};
34 76193d7c 2003-09-30 devnull void usage(void);
36 ffcafb8c 2003-10-11 devnull extern int notify(void(*)(void*,char*));
39 ffcafb8c 2003-10-11 devnull main(int argc, char *argv[])
42 76193d7c 2003-09-30 devnull String *t;
43 76193d7c 2003-09-30 devnull char **ap, **arg;
45 76193d7c 2003-09-30 devnull arg = argv++;
46 76193d7c 2003-09-30 devnull ap = argv;
47 76193d7c 2003-09-30 devnull while(argc>1 && argv[0] && argv[0][0]=='-'){
48 76193d7c 2003-09-30 devnull switch(argv[0][1]){
49 76193d7c 2003-09-30 devnull case 'd':
53 76193d7c 2003-09-30 devnull case 'r':
54 76193d7c 2003-09-30 devnull --argc, argv++;
55 76193d7c 2003-09-30 devnull if(argc == 1)
57 76193d7c 2003-09-30 devnull machine = *argv;
60 76193d7c 2003-09-30 devnull case 'R':
64 76193d7c 2003-09-30 devnull case 't':
65 76193d7c 2003-09-30 devnull --argc, argv++;
66 76193d7c 2003-09-30 devnull if(argc == 1)
68 76193d7c 2003-09-30 devnull samterm = *argv;
71 76193d7c 2003-09-30 devnull case 's':
72 76193d7c 2003-09-30 devnull --argc, argv++;
73 76193d7c 2003-09-30 devnull if(argc == 1)
75 76193d7c 2003-09-30 devnull rsamname = *argv;
78 76193d7c 2003-09-30 devnull case 'x': /* x11 option - strip the x */
79 76193d7c 2003-09-30 devnull strcpy(*argv+1, *argv+2);
80 76193d7c 2003-09-30 devnull *ap++ = *argv++;
81 76193d7c 2003-09-30 devnull *ap++ = *argv;
86 76193d7c 2003-09-30 devnull dprint("sam: unknown flag %c\n", argv[0][1]);
87 76193d7c 2003-09-30 devnull exits("usage");
89 76193d7c 2003-09-30 devnull --argc, argv++;
91 76193d7c 2003-09-30 devnull Strinit(&cmdstr);
92 76193d7c 2003-09-30 devnull Strinit0(&lastpat);
93 76193d7c 2003-09-30 devnull Strinit0(&lastregexp);
94 76193d7c 2003-09-30 devnull Strinit0(&genstr);
95 76193d7c 2003-09-30 devnull Strinit0(&rhs);
96 76193d7c 2003-09-30 devnull Strinit0(&curwd);
97 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(1); /* so it can be freed later */
98 76193d7c 2003-09-30 devnull Strinit0(&plan9cmd);
99 76193d7c 2003-09-30 devnull home = getenv(HOME);
100 76193d7c 2003-09-30 devnull disk = diskinit();
101 76193d7c 2003-09-30 devnull if(home == 0)
102 76193d7c 2003-09-30 devnull home = "/";
103 76193d7c 2003-09-30 devnull if(!dflag)
104 76193d7c 2003-09-30 devnull startup(machine, Rflag, arg, ap);
105 76193d7c 2003-09-30 devnull notify(notifyf);
106 76193d7c 2003-09-30 devnull getcurwd();
107 76193d7c 2003-09-30 devnull if(argc>1){
108 76193d7c 2003-09-30 devnull for(i=0; i<argc-1; i++){
109 76193d7c 2003-09-30 devnull if(!setjmp(mainloop)){
110 76193d7c 2003-09-30 devnull t = tmpcstr(argv[i]);
111 76193d7c 2003-09-30 devnull Straddc(t, '\0');
112 76193d7c 2003-09-30 devnull Strduplstr(&genstr, t);
113 76193d7c 2003-09-30 devnull freetmpstr(t);
114 76193d7c 2003-09-30 devnull fixname(&genstr);
115 76193d7c 2003-09-30 devnull logsetname(newfile(), &genstr);
118 76193d7c 2003-09-30 devnull }else if(!downloaded)
119 76193d7c 2003-09-30 devnull newfile();
121 76193d7c 2003-09-30 devnull if(file.nused)
122 76193d7c 2003-09-30 devnull current(file.filepptr[0]);
123 76193d7c 2003-09-30 devnull setjmp(mainloop);
124 76193d7c 2003-09-30 devnull cmdloop();
125 76193d7c 2003-09-30 devnull trytoquit(); /* if we already q'ed, quitok will be TRUE */
126 76193d7c 2003-09-30 devnull exits(0);
127 ffcafb8c 2003-10-11 devnull return 0;
131 76193d7c 2003-09-30 devnull usage(void)
133 76193d7c 2003-09-30 devnull dprint("usage: sam [-d] [-t samterm] [-s sam name] -r machine\n");
134 76193d7c 2003-09-30 devnull exits("usage");
138 76193d7c 2003-09-30 devnull rescue(void)
140 76193d7c 2003-09-30 devnull int i, nblank = 0;
141 76193d7c 2003-09-30 devnull File *f;
142 76193d7c 2003-09-30 devnull char *c;
143 76193d7c 2003-09-30 devnull char buf[256];
144 f7012583 2003-11-25 devnull char *root;
146 76193d7c 2003-09-30 devnull if(rescuing++)
148 76193d7c 2003-09-30 devnull io = -1;
149 76193d7c 2003-09-30 devnull for(i=0; i<file.nused; i++){
150 76193d7c 2003-09-30 devnull f = file.filepptr[i];
151 522b0689 2003-09-30 devnull if(f==cmd || f->b.nc==0 || !fileisdirty(f))
152 76193d7c 2003-09-30 devnull continue;
153 76193d7c 2003-09-30 devnull if(io == -1){
154 76193d7c 2003-09-30 devnull sprint(buf, "%s/sam.save", home);
155 76193d7c 2003-09-30 devnull io = create(buf, 1, 0777);
156 76193d7c 2003-09-30 devnull if(io<0)
159 76193d7c 2003-09-30 devnull if(f->name.s[0]){
160 76193d7c 2003-09-30 devnull c = Strtoc(&f->name);
161 76193d7c 2003-09-30 devnull strncpy(buf, c, sizeof buf-1);
162 76193d7c 2003-09-30 devnull buf[sizeof buf-1] = 0;
163 76193d7c 2003-09-30 devnull free(c);
165 76193d7c 2003-09-30 devnull sprint(buf, "nameless.%d", nblank++);
166 f7012583 2003-11-25 devnull root = getenv("PLAN9");
167 f7012583 2003-11-25 devnull if(root == nil)
168 f7012583 2003-11-25 devnull root = "/usr/local/plan9";
169 f7012583 2003-11-25 devnull fprint(io, "#!/bin/sh\n%s/bin/samsave '%s' $* <<'---%s'\n", root, buf, buf);
170 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = f->b.nc;
171 76193d7c 2003-09-30 devnull writeio(f);
172 76193d7c 2003-09-30 devnull fprint(io, "\n---%s\n", (char *)buf);
177 76193d7c 2003-09-30 devnull panic(char *s)
179 76193d7c 2003-09-30 devnull int wasd;
181 76193d7c 2003-09-30 devnull if(!panicking++ && !setjmp(mainloop)){
182 76193d7c 2003-09-30 devnull wasd = downloaded;
183 76193d7c 2003-09-30 devnull downloaded = 0;
184 76193d7c 2003-09-30 devnull dprint("sam: panic: %s: %r\n", s);
185 76193d7c 2003-09-30 devnull if(wasd)
186 76193d7c 2003-09-30 devnull fprint(2, "sam: panic: %s: %r\n", s);
187 76193d7c 2003-09-30 devnull rescue();
188 76193d7c 2003-09-30 devnull abort();
193 76193d7c 2003-09-30 devnull hiccough(char *s)
195 76193d7c 2003-09-30 devnull File *f;
198 76193d7c 2003-09-30 devnull if(rescuing)
199 76193d7c 2003-09-30 devnull exits("rescue");
201 76193d7c 2003-09-30 devnull dprint("%s\n", s);
202 76193d7c 2003-09-30 devnull resetcmd();
203 76193d7c 2003-09-30 devnull resetxec();
204 76193d7c 2003-09-30 devnull resetsys();
205 76193d7c 2003-09-30 devnull if(io > 0)
206 76193d7c 2003-09-30 devnull close(io);
209 76193d7c 2003-09-30 devnull * back out any logged changes & restore old sequences
211 76193d7c 2003-09-30 devnull for(i=0; i<file.nused; i++){
212 76193d7c 2003-09-30 devnull f = file.filepptr[i];
213 76193d7c 2003-09-30 devnull if(f==cmd)
214 76193d7c 2003-09-30 devnull continue;
215 76193d7c 2003-09-30 devnull if(f->seq==seq){
216 76193d7c 2003-09-30 devnull bufdelete(&f->epsilon, 0, f->epsilon.nc);
217 76193d7c 2003-09-30 devnull f->seq = f->prevseq;
218 76193d7c 2003-09-30 devnull f->dot.r = f->prevdot;
219 76193d7c 2003-09-30 devnull f->mark = f->prevmark;
220 76193d7c 2003-09-30 devnull state(f, f->prevmod ? Dirty: Clean);
224 76193d7c 2003-09-30 devnull update();
225 76193d7c 2003-09-30 devnull if (curfile) {
226 76193d7c 2003-09-30 devnull if (curfile->unread)
227 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
228 76193d7c 2003-09-30 devnull else if (downloaded)
229 76193d7c 2003-09-30 devnull outTs(Hcurrent, curfile->tag);
231 76193d7c 2003-09-30 devnull longjmp(mainloop, 1);
235 76193d7c 2003-09-30 devnull intr(void)
237 76193d7c 2003-09-30 devnull error(Eintr);
241 76193d7c 2003-09-30 devnull trytoclose(File *f)
243 76193d7c 2003-09-30 devnull char *t;
244 76193d7c 2003-09-30 devnull char buf[256];
246 76193d7c 2003-09-30 devnull if(f == cmd) /* possible? */
248 76193d7c 2003-09-30 devnull if(f->deleted)
250 76193d7c 2003-09-30 devnull if(fileisdirty(f) && !f->closeok){
251 76193d7c 2003-09-30 devnull f->closeok = TRUE;
252 76193d7c 2003-09-30 devnull if(f->name.s[0]){
253 76193d7c 2003-09-30 devnull t = Strtoc(&f->name);
254 76193d7c 2003-09-30 devnull strncpy(buf, t, sizeof buf-1);
255 76193d7c 2003-09-30 devnull free(t);
257 76193d7c 2003-09-30 devnull strcpy(buf, "nameless file");
258 76193d7c 2003-09-30 devnull error_s(Emodified, buf);
260 76193d7c 2003-09-30 devnull f->deleted = TRUE;
264 76193d7c 2003-09-30 devnull trytoquit(void)
267 76193d7c 2003-09-30 devnull File *f;
269 76193d7c 2003-09-30 devnull if(!quitok){
270 76193d7c 2003-09-30 devnull for(c = 0; c<file.nused; c++){
271 76193d7c 2003-09-30 devnull f = file.filepptr[c];
272 76193d7c 2003-09-30 devnull if(f!=cmd && fileisdirty(f)){
273 76193d7c 2003-09-30 devnull quitok = TRUE;
274 76193d7c 2003-09-30 devnull eof = FALSE;
275 76193d7c 2003-09-30 devnull error(Echanges);
282 76193d7c 2003-09-30 devnull load(File *f)
284 76193d7c 2003-09-30 devnull Address saveaddr;
286 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
287 76193d7c 2003-09-30 devnull filename(f);
288 76193d7c 2003-09-30 devnull if(f->name.s[0]){
289 76193d7c 2003-09-30 devnull saveaddr = addr;
290 76193d7c 2003-09-30 devnull edit(f, 'I');
291 76193d7c 2003-09-30 devnull addr = saveaddr;
293 76193d7c 2003-09-30 devnull f->unread = 0;
294 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
297 76193d7c 2003-09-30 devnull fileupdate(f, TRUE, TRUE);
301 76193d7c 2003-09-30 devnull cmdupdate(void)
303 76193d7c 2003-09-30 devnull if(cmd && cmd->seq!=0){
304 76193d7c 2003-09-30 devnull fileupdate(cmd, FALSE, downloaded);
305 522b0689 2003-09-30 devnull cmd->dot.r.p1 = cmd->dot.r.p2 = cmd->b.nc;
306 76193d7c 2003-09-30 devnull telldot(cmd);
311 76193d7c 2003-09-30 devnull delete(File *f)
313 76193d7c 2003-09-30 devnull if(downloaded && f->rasp)
314 76193d7c 2003-09-30 devnull outTs(Hclose, f->tag);
315 76193d7c 2003-09-30 devnull delfile(f);
316 76193d7c 2003-09-30 devnull if(f == curfile)
317 76193d7c 2003-09-30 devnull current(0);
321 76193d7c 2003-09-30 devnull update(void)
323 76193d7c 2003-09-30 devnull int i, anymod;
324 76193d7c 2003-09-30 devnull File *f;
326 76193d7c 2003-09-30 devnull settempfile();
327 76193d7c 2003-09-30 devnull for(anymod = i=0; i<tempfile.nused; i++){
328 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
329 76193d7c 2003-09-30 devnull if(f==cmd) /* cmd gets done in main() */
330 76193d7c 2003-09-30 devnull continue;
331 76193d7c 2003-09-30 devnull if(f->deleted) {
332 76193d7c 2003-09-30 devnull delete(f);
333 76193d7c 2003-09-30 devnull continue;
335 76193d7c 2003-09-30 devnull if(f->seq==seq && fileupdate(f, FALSE, downloaded))
336 76193d7c 2003-09-30 devnull anymod++;
337 76193d7c 2003-09-30 devnull if(f->rasp)
338 76193d7c 2003-09-30 devnull telldot(f);
340 76193d7c 2003-09-30 devnull if(anymod)
345 76193d7c 2003-09-30 devnull current(File *f)
347 76193d7c 2003-09-30 devnull return curfile = f;
351 76193d7c 2003-09-30 devnull edit(File *f, int cmd)
353 76193d7c 2003-09-30 devnull int empty = TRUE;
355 76193d7c 2003-09-30 devnull int nulls;
357 76193d7c 2003-09-30 devnull if(cmd == 'r')
358 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
359 76193d7c 2003-09-30 devnull if(cmd=='e' || cmd=='I'){
360 522b0689 2003-09-30 devnull logdelete(f, (Posn)0, f->b.nc);
361 522b0689 2003-09-30 devnull addr.r.p2 = f->b.nc;
362 522b0689 2003-09-30 devnull }else if(f->b.nc!=0 || (f->name.s[0] && Strcmp(&genstr, &f->name)!=0))
363 76193d7c 2003-09-30 devnull empty = FALSE;
364 76193d7c 2003-09-30 devnull if((io = open(genc, OREAD))<0) {
365 76193d7c 2003-09-30 devnull if (curfile && curfile->unread)
366 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
367 76193d7c 2003-09-30 devnull error_r(Eopen, genc);
369 76193d7c 2003-09-30 devnull p = readio(f, &nulls, empty, TRUE);
370 76193d7c 2003-09-30 devnull closeio((cmd=='e' || cmd=='I')? -1 : p);
371 76193d7c 2003-09-30 devnull if(cmd == 'r')
372 76193d7c 2003-09-30 devnull f->ndot.r.p1 = addr.r.p2, f->ndot.r.p2 = addr.r.p2+p;
374 76193d7c 2003-09-30 devnull f->ndot.r.p1 = f->ndot.r.p2 = 0;
375 76193d7c 2003-09-30 devnull f->closeok = empty;
376 76193d7c 2003-09-30 devnull if (quitok)
377 76193d7c 2003-09-30 devnull quitok = empty;
379 76193d7c 2003-09-30 devnull quitok = FALSE;
380 76193d7c 2003-09-30 devnull state(f, empty && !nulls? Clean : Dirty);
381 76193d7c 2003-09-30 devnull if(empty && !nulls)
382 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
383 76193d7c 2003-09-30 devnull if(cmd == 'e')
384 76193d7c 2003-09-30 devnull filename(f);
388 76193d7c 2003-09-30 devnull getname(File *f, String *s, int save)
390 76193d7c 2003-09-30 devnull int c, i;
392 76193d7c 2003-09-30 devnull Strzero(&genstr);
393 76193d7c 2003-09-30 devnull if(genc){
394 76193d7c 2003-09-30 devnull free(genc);
395 76193d7c 2003-09-30 devnull genc = 0;
397 76193d7c 2003-09-30 devnull if(s==0 || (c = s->s[0])==0){ /* no name provided */
399 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
400 76193d7c 2003-09-30 devnull goto Return;
402 76193d7c 2003-09-30 devnull if(c!=' ' && c!='\t')
403 76193d7c 2003-09-30 devnull error(Eblank);
404 76193d7c 2003-09-30 devnull for(i=0; (c=s->s[i])==' ' || c=='\t'; i++)
406 76193d7c 2003-09-30 devnull while(s->s[i] > ' ')
407 76193d7c 2003-09-30 devnull Straddc(&genstr, s->s[i++]);
408 76193d7c 2003-09-30 devnull if(s->s[i])
409 76193d7c 2003-09-30 devnull error(Enewline);
410 76193d7c 2003-09-30 devnull fixname(&genstr);
411 76193d7c 2003-09-30 devnull if(f && (save || f->name.s[0]==0)){
412 76193d7c 2003-09-30 devnull logsetname(f, &genstr);
413 76193d7c 2003-09-30 devnull if(Strcmp(&f->name, &genstr)){
414 76193d7c 2003-09-30 devnull quitok = f->closeok = FALSE;
415 76193d7c 2003-09-30 devnull f->qidpath = 0;
416 76193d7c 2003-09-30 devnull f->mtime = 0;
417 76193d7c 2003-09-30 devnull state(f, Dirty); /* if it's 'e', fix later */
421 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
422 76193d7c 2003-09-30 devnull i = genstr.n;
423 76193d7c 2003-09-30 devnull if(i && genstr.s[i-1]==0)
425 76193d7c 2003-09-30 devnull return i; /* strlen(name) */
429 76193d7c 2003-09-30 devnull filename(File *f)
431 76193d7c 2003-09-30 devnull if(genc)
432 76193d7c 2003-09-30 devnull free(genc);
433 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
434 76193d7c 2003-09-30 devnull dprint("%c%c%c %s\n", " '"[f->mod],
435 76193d7c 2003-09-30 devnull "-+"[f->rasp!=0], " ."[f==curfile], genc);
439 76193d7c 2003-09-30 devnull undostep(File *f, int isundo)
441 76193d7c 2003-09-30 devnull uint p1, p2;
442 76193d7c 2003-09-30 devnull int mod;
444 76193d7c 2003-09-30 devnull mod = f->mod;
445 76193d7c 2003-09-30 devnull fileundo(f, isundo, 1, &p1, &p2, TRUE);
446 76193d7c 2003-09-30 devnull f->ndot = f->dot;
447 76193d7c 2003-09-30 devnull if(f->mod){
448 76193d7c 2003-09-30 devnull f->closeok = 0;
449 76193d7c 2003-09-30 devnull quitok = 0;
451 76193d7c 2003-09-30 devnull f->closeok = 1;
453 76193d7c 2003-09-30 devnull if(f->mod != mod){
454 76193d7c 2003-09-30 devnull f->mod = mod;
456 76193d7c 2003-09-30 devnull mod = Clean;
458 76193d7c 2003-09-30 devnull mod = Dirty;
459 76193d7c 2003-09-30 devnull state(f, mod);
464 76193d7c 2003-09-30 devnull undo(int isundo)
466 76193d7c 2003-09-30 devnull File *f;
468 76193d7c 2003-09-30 devnull Mod max;
470 76193d7c 2003-09-30 devnull max = undoseq(curfile, isundo);
471 76193d7c 2003-09-30 devnull if(max == 0)
472 76193d7c 2003-09-30 devnull return 0;
473 76193d7c 2003-09-30 devnull settempfile();
474 76193d7c 2003-09-30 devnull for(i = 0; i<tempfile.nused; i++){
475 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
476 76193d7c 2003-09-30 devnull if(f!=cmd && undoseq(f, isundo)==max)
477 76193d7c 2003-09-30 devnull undostep(f, isundo);
479 76193d7c 2003-09-30 devnull return 1;
483 76193d7c 2003-09-30 devnull readcmd(String *s)
485 76193d7c 2003-09-30 devnull int retcode;
487 76193d7c 2003-09-30 devnull if(flist != 0)
488 76193d7c 2003-09-30 devnull fileclose(flist);
489 76193d7c 2003-09-30 devnull flist = fileopen();
491 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = flist->b.nc;
492 76193d7c 2003-09-30 devnull retcode = plan9(flist, '<', s, FALSE);
493 76193d7c 2003-09-30 devnull fileupdate(flist, FALSE, FALSE);
494 76193d7c 2003-09-30 devnull flist->seq = 0;
495 522b0689 2003-09-30 devnull if (flist->b.nc > BLOCKSIZE)
496 76193d7c 2003-09-30 devnull error(Etoolong);
497 76193d7c 2003-09-30 devnull Strzero(&genstr);
498 522b0689 2003-09-30 devnull Strinsure(&genstr, flist->b.nc);
499 522b0689 2003-09-30 devnull bufread(&flist->b, (Posn)0, genbuf, flist->b.nc);
500 522b0689 2003-09-30 devnull memmove(genstr.s, genbuf, flist->b.nc*RUNESIZE);
501 522b0689 2003-09-30 devnull genstr.n = flist->b.nc;
502 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
503 76193d7c 2003-09-30 devnull return retcode;
507 76193d7c 2003-09-30 devnull getcurwd(void)
509 76193d7c 2003-09-30 devnull String *t;
510 76193d7c 2003-09-30 devnull char buf[256];
512 76193d7c 2003-09-30 devnull buf[0] = 0;
513 76193d7c 2003-09-30 devnull getwd(buf, sizeof(buf));
514 76193d7c 2003-09-30 devnull t = tmpcstr(buf);
515 76193d7c 2003-09-30 devnull Strduplstr(&curwd, t);
516 76193d7c 2003-09-30 devnull freetmpstr(t);
517 76193d7c 2003-09-30 devnull if(curwd.n == 0)
518 76193d7c 2003-09-30 devnull warn(Wpwd);
519 76193d7c 2003-09-30 devnull else if(curwd.s[curwd.n-1] != '/')
520 76193d7c 2003-09-30 devnull Straddc(&curwd, '/');
524 76193d7c 2003-09-30 devnull cd(String *str)
526 76193d7c 2003-09-30 devnull int i, fd;
527 76193d7c 2003-09-30 devnull char *s;
528 76193d7c 2003-09-30 devnull File *f;
529 76193d7c 2003-09-30 devnull String owd;
531 76193d7c 2003-09-30 devnull getcurwd();
532 76193d7c 2003-09-30 devnull if(getname((File *)0, str, FALSE))
533 76193d7c 2003-09-30 devnull s = genc;
535 76193d7c 2003-09-30 devnull s = home;
536 76193d7c 2003-09-30 devnull if(chdir(s))
537 76193d7c 2003-09-30 devnull syserror("chdir");
538 76193d7c 2003-09-30 devnull fd = open("/dev/wdir", OWRITE);
539 76193d7c 2003-09-30 devnull if(fd > 0)
540 76193d7c 2003-09-30 devnull write(fd, s, strlen(s));
541 76193d7c 2003-09-30 devnull dprint("!\n");
542 76193d7c 2003-09-30 devnull Strinit(&owd);
543 76193d7c 2003-09-30 devnull Strduplstr(&owd, &curwd);
544 76193d7c 2003-09-30 devnull getcurwd();
545 76193d7c 2003-09-30 devnull settempfile();
546 76193d7c 2003-09-30 devnull for(i=0; i<tempfile.nused; i++){
547 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
548 76193d7c 2003-09-30 devnull if(f!=cmd && f->name.s[0]!='/' && f->name.s[0]!=0){
549 76193d7c 2003-09-30 devnull Strinsert(&f->name, &owd, (Posn)0);
550 76193d7c 2003-09-30 devnull fixname(&f->name);
551 76193d7c 2003-09-30 devnull sortname(f);
552 76193d7c 2003-09-30 devnull }else if(f != cmd && Strispre(&curwd, &f->name)){
553 76193d7c 2003-09-30 devnull fixname(&f->name);
554 76193d7c 2003-09-30 devnull sortname(f);
557 76193d7c 2003-09-30 devnull Strclose(&owd);
561 76193d7c 2003-09-30 devnull loadflist(String *s)
563 76193d7c 2003-09-30 devnull int c, i;
565 76193d7c 2003-09-30 devnull c = s->s[0];
566 76193d7c 2003-09-30 devnull for(i = 0; s->s[i]==' ' || s->s[i]=='\t'; i++)
568 76193d7c 2003-09-30 devnull if((c==' ' || c=='\t') && s->s[i]!='\n'){
569 76193d7c 2003-09-30 devnull if(s->s[i]=='<'){
570 76193d7c 2003-09-30 devnull Strdelete(s, 0L, (long)i+1);
571 76193d7c 2003-09-30 devnull readcmd(s);
573 76193d7c 2003-09-30 devnull Strzero(&genstr);
574 76193d7c 2003-09-30 devnull while((c = s->s[i++]) && c!='\n')
575 76193d7c 2003-09-30 devnull Straddc(&genstr, c);
576 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
579 76193d7c 2003-09-30 devnull if(c != '\n')
580 76193d7c 2003-09-30 devnull error(Eblank);
581 76193d7c 2003-09-30 devnull Strdupl(&genstr, empty);
583 76193d7c 2003-09-30 devnull if(genc)
584 76193d7c 2003-09-30 devnull free(genc);
585 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
586 76193d7c 2003-09-30 devnull return genstr.s[0];
590 76193d7c 2003-09-30 devnull readflist(int readall, int delete)
594 76193d7c 2003-09-30 devnull File *f;
595 76193d7c 2003-09-30 devnull String t;
597 76193d7c 2003-09-30 devnull Strinit(&t);
598 76193d7c 2003-09-30 devnull for(i=0,f=0; f==0 || readall || delete; i++){ /* ++ skips blank */
599 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
600 76193d7c 2003-09-30 devnull for(i=0; (c = genstr.s[i])==' ' || c=='\t' || c=='\n'; i++)
602 76193d7c 2003-09-30 devnull if(i >= genstr.n)
604 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
605 76193d7c 2003-09-30 devnull for(i=0; (c=genstr.s[i]) && c!=' ' && c!='\t' && c!='\n'; i++)
608 76193d7c 2003-09-30 devnull if(i == 0)
610 76193d7c 2003-09-30 devnull genstr.s[i] = 0;
611 76193d7c 2003-09-30 devnull Strduplstr(&t, tmprstr(genstr.s, i+1));
612 76193d7c 2003-09-30 devnull fixname(&t);
613 76193d7c 2003-09-30 devnull f = lookfile(&t);
614 76193d7c 2003-09-30 devnull if(delete){
615 76193d7c 2003-09-30 devnull if(f == 0)
616 76193d7c 2003-09-30 devnull warn_S(Wfile, &t);
618 76193d7c 2003-09-30 devnull trytoclose(f);
619 76193d7c 2003-09-30 devnull }else if(f==0 && readall)
620 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &t);
622 76193d7c 2003-09-30 devnull Strclose(&t);
623 76193d7c 2003-09-30 devnull return f;
627 76193d7c 2003-09-30 devnull tofile(String *s)
629 76193d7c 2003-09-30 devnull File *f;
631 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
632 76193d7c 2003-09-30 devnull error(Eblank);
633 76193d7c 2003-09-30 devnull if(loadflist(s) == 0){
634 76193d7c 2003-09-30 devnull f = lookfile(&genstr); /* empty string ==> nameless file */
635 76193d7c 2003-09-30 devnull if(f == 0)
636 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
637 76193d7c 2003-09-30 devnull }else if((f=readflist(FALSE, FALSE)) == 0)
638 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
639 76193d7c 2003-09-30 devnull return current(f);
643 76193d7c 2003-09-30 devnull getfile(String *s)
645 76193d7c 2003-09-30 devnull File *f;
647 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
648 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &genstr);
649 76193d7c 2003-09-30 devnull else if((f=readflist(TRUE, FALSE)) == 0)
650 76193d7c 2003-09-30 devnull error(Eblank);
651 76193d7c 2003-09-30 devnull return current(f);
655 76193d7c 2003-09-30 devnull closefiles(File *f, String *s)
657 76193d7c 2003-09-30 devnull if(s->s[0] == 0){
658 76193d7c 2003-09-30 devnull if(f == 0)
659 76193d7c 2003-09-30 devnull error(Enofile);
660 76193d7c 2003-09-30 devnull trytoclose(f);
663 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
664 76193d7c 2003-09-30 devnull error(Eblank);
665 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
666 76193d7c 2003-09-30 devnull error(Enewline);
667 76193d7c 2003-09-30 devnull readflist(FALSE, TRUE);
671 76193d7c 2003-09-30 devnull copy(File *f, Address addr2)
675 76193d7c 2003-09-30 devnull for(p=addr.r.p1; p<addr.r.p2; p+=ni){
676 76193d7c 2003-09-30 devnull ni = addr.r.p2-p;
677 76193d7c 2003-09-30 devnull if(ni > BLOCKSIZE)
678 76193d7c 2003-09-30 devnull ni = BLOCKSIZE;
679 522b0689 2003-09-30 devnull bufread(&f->b, p, genbuf, ni);
680 76193d7c 2003-09-30 devnull loginsert(addr2.f, addr2.r.p2, tmprstr(genbuf, ni)->s, ni);
682 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p2 = addr2.r.p2+(f->dot.r.p2-f->dot.r.p1);
683 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p1 = addr2.r.p2;
687 76193d7c 2003-09-30 devnull move(File *f, Address addr2)
689 76193d7c 2003-09-30 devnull if(addr.r.p2 <= addr2.r.p2){
690 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
691 76193d7c 2003-09-30 devnull copy(f, addr2);
692 76193d7c 2003-09-30 devnull }else if(addr.r.p1 >= addr2.r.p2){
693 76193d7c 2003-09-30 devnull copy(f, addr2);
694 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
696 76193d7c 2003-09-30 devnull error(Eoverlap);
700 76193d7c 2003-09-30 devnull nlcount(File *f, Posn p0, Posn p1)
702 76193d7c 2003-09-30 devnull Posn nl = 0;
704 76193d7c 2003-09-30 devnull while(p0 < p1)
705 76193d7c 2003-09-30 devnull if(filereadc(f, p0++)=='\n')
707 76193d7c 2003-09-30 devnull return nl;
711 76193d7c 2003-09-30 devnull printposn(File *f, int charsonly)
713 76193d7c 2003-09-30 devnull Posn l1, l2;
715 76193d7c 2003-09-30 devnull if(!charsonly){
716 76193d7c 2003-09-30 devnull l1 = 1+nlcount(f, (Posn)0, addr.r.p1);
717 76193d7c 2003-09-30 devnull l2 = l1+nlcount(f, addr.r.p1, addr.r.p2);
718 76193d7c 2003-09-30 devnull /* check if addr ends with '\n' */
719 76193d7c 2003-09-30 devnull if(addr.r.p2>0 && addr.r.p2>addr.r.p1 && filereadc(f, addr.r.p2-1)=='\n')
721 76193d7c 2003-09-30 devnull dprint("%lud", l1);
722 76193d7c 2003-09-30 devnull if(l2 != l1)
723 76193d7c 2003-09-30 devnull dprint(",%lud", l2);
724 76193d7c 2003-09-30 devnull dprint("; ");
726 76193d7c 2003-09-30 devnull dprint("#%lud", addr.r.p1);
727 76193d7c 2003-09-30 devnull if(addr.r.p2 != addr.r.p1)
728 76193d7c 2003-09-30 devnull dprint(",#%lud", addr.r.p2);
729 76193d7c 2003-09-30 devnull dprint("\n");
733 76193d7c 2003-09-30 devnull settempfile(void)
735 76193d7c 2003-09-30 devnull if(tempfile.nalloc < file.nused){
736 76193d7c 2003-09-30 devnull free(tempfile.listptr);
737 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(sizeof(*tempfile.filepptr)*file.nused);
738 76193d7c 2003-09-30 devnull tempfile.nalloc = file.nused;
740 76193d7c 2003-09-30 devnull tempfile.nused = file.nused;
741 76193d7c 2003-09-30 devnull memmove(&tempfile.filepptr[0], &file.filepptr[0], file.nused*sizeof(File*));