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 be36ff68 2004-04-29 devnull char *winsize;
34 76193d7c 2003-09-30 devnull Rune baddir[] = { '<', 'b', 'a', 'd', 'd', 'i', 'r', '>', '\n'};
36 76193d7c 2003-09-30 devnull void usage(void);
38 ffcafb8c 2003-10-11 devnull extern int notify(void(*)(void*,char*));
41 f7b74c17 2004-12-28 devnull main(int volatile argc, char **volatile argv)
43 f7b74c17 2004-12-28 devnull int volatile i;
44 76193d7c 2003-09-30 devnull String *t;
45 17ab31aa 2005-01-27 devnull char *termargs[10], **ap;
47 17ab31aa 2005-01-27 devnull ap = termargs;
48 17ab31aa 2005-01-27 devnull *ap++ = "samterm";
49 17ab31aa 2005-01-27 devnull ARGBEGIN{
50 17ab31aa 2005-01-27 devnull case 'd':
53 17ab31aa 2005-01-27 devnull case 'r':
54 17ab31aa 2005-01-27 devnull machine = EARGF(usage());
56 17ab31aa 2005-01-27 devnull case 'R':
59 17ab31aa 2005-01-27 devnull case 't':
60 17ab31aa 2005-01-27 devnull samterm = EARGF(usage());
62 17ab31aa 2005-01-27 devnull case 's':
63 17ab31aa 2005-01-27 devnull rsamname = EARGF(usage());
66 17ab31aa 2005-01-27 devnull dprint("sam: unknown flag %c\n", ARGC());
68 17ab31aa 2005-01-27 devnull /* options for samterm */
69 17ab31aa 2005-01-27 devnull case 'a':
70 17ab31aa 2005-01-27 devnull *ap++ = "-a";
72 17ab31aa 2005-01-27 devnull case 'W':
73 17ab31aa 2005-01-27 devnull *ap++ = "-W";
74 17ab31aa 2005-01-27 devnull *ap++ = EARGF(usage());
77 17ab31aa 2005-01-27 devnull *ap = nil;
79 76193d7c 2003-09-30 devnull Strinit(&cmdstr);
80 76193d7c 2003-09-30 devnull Strinit0(&lastpat);
81 76193d7c 2003-09-30 devnull Strinit0(&lastregexp);
82 76193d7c 2003-09-30 devnull Strinit0(&genstr);
83 76193d7c 2003-09-30 devnull Strinit0(&rhs);
84 76193d7c 2003-09-30 devnull Strinit0(&curwd);
85 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(1); /* so it can be freed later */
86 76193d7c 2003-09-30 devnull Strinit0(&plan9cmd);
87 76193d7c 2003-09-30 devnull home = getenv(HOME);
88 76193d7c 2003-09-30 devnull disk = diskinit();
89 76193d7c 2003-09-30 devnull if(home == 0)
90 76193d7c 2003-09-30 devnull home = "/";
91 76193d7c 2003-09-30 devnull if(!dflag)
92 17ab31aa 2005-01-27 devnull startup(machine, Rflag, termargs, argv);
93 76193d7c 2003-09-30 devnull notify(notifyf);
94 76193d7c 2003-09-30 devnull getcurwd();
95 17ab31aa 2005-01-27 devnull if(argc>0){
96 17ab31aa 2005-01-27 devnull for(i=0; i<argc; i++){
97 76193d7c 2003-09-30 devnull if(!setjmp(mainloop)){
98 76193d7c 2003-09-30 devnull t = tmpcstr(argv[i]);
99 76193d7c 2003-09-30 devnull Straddc(t, '\0');
100 76193d7c 2003-09-30 devnull Strduplstr(&genstr, t);
101 76193d7c 2003-09-30 devnull freetmpstr(t);
102 76193d7c 2003-09-30 devnull fixname(&genstr);
103 76193d7c 2003-09-30 devnull logsetname(newfile(), &genstr);
106 76193d7c 2003-09-30 devnull }else if(!downloaded)
107 76193d7c 2003-09-30 devnull newfile();
109 76193d7c 2003-09-30 devnull if(file.nused)
110 76193d7c 2003-09-30 devnull current(file.filepptr[0]);
111 76193d7c 2003-09-30 devnull setjmp(mainloop);
112 76193d7c 2003-09-30 devnull cmdloop();
113 76193d7c 2003-09-30 devnull trytoquit(); /* if we already q'ed, quitok will be TRUE */
114 76193d7c 2003-09-30 devnull exits(0);
115 ffcafb8c 2003-10-11 devnull return 0;
119 76193d7c 2003-09-30 devnull usage(void)
121 76193d7c 2003-09-30 devnull dprint("usage: sam [-d] [-t samterm] [-s sam name] -r machine\n");
122 76193d7c 2003-09-30 devnull exits("usage");
126 76193d7c 2003-09-30 devnull rescue(void)
128 76193d7c 2003-09-30 devnull int i, nblank = 0;
129 76193d7c 2003-09-30 devnull File *f;
130 76193d7c 2003-09-30 devnull char *c;
131 76193d7c 2003-09-30 devnull char buf[256];
132 f7012583 2003-11-25 devnull char *root;
134 76193d7c 2003-09-30 devnull if(rescuing++)
136 76193d7c 2003-09-30 devnull io = -1;
137 76193d7c 2003-09-30 devnull for(i=0; i<file.nused; i++){
138 76193d7c 2003-09-30 devnull f = file.filepptr[i];
139 522b0689 2003-09-30 devnull if(f==cmd || f->b.nc==0 || !fileisdirty(f))
140 76193d7c 2003-09-30 devnull continue;
141 76193d7c 2003-09-30 devnull if(io == -1){
142 76193d7c 2003-09-30 devnull sprint(buf, "%s/sam.save", home);
143 76193d7c 2003-09-30 devnull io = create(buf, 1, 0777);
144 76193d7c 2003-09-30 devnull if(io<0)
147 76193d7c 2003-09-30 devnull if(f->name.s[0]){
148 76193d7c 2003-09-30 devnull c = Strtoc(&f->name);
149 76193d7c 2003-09-30 devnull strncpy(buf, c, sizeof buf-1);
150 76193d7c 2003-09-30 devnull buf[sizeof buf-1] = 0;
151 76193d7c 2003-09-30 devnull free(c);
153 76193d7c 2003-09-30 devnull sprint(buf, "nameless.%d", nblank++);
154 f7012583 2003-11-25 devnull root = getenv("PLAN9");
155 f7012583 2003-11-25 devnull if(root == nil)
156 f7012583 2003-11-25 devnull root = "/usr/local/plan9";
157 f7012583 2003-11-25 devnull fprint(io, "#!/bin/sh\n%s/bin/samsave '%s' $* <<'---%s'\n", root, buf, buf);
158 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = f->b.nc;
159 76193d7c 2003-09-30 devnull writeio(f);
160 76193d7c 2003-09-30 devnull fprint(io, "\n---%s\n", (char *)buf);
165 76193d7c 2003-09-30 devnull panic(char *s)
167 76193d7c 2003-09-30 devnull int wasd;
169 76193d7c 2003-09-30 devnull if(!panicking++ && !setjmp(mainloop)){
170 76193d7c 2003-09-30 devnull wasd = downloaded;
171 76193d7c 2003-09-30 devnull downloaded = 0;
172 76193d7c 2003-09-30 devnull dprint("sam: panic: %s: %r\n", s);
173 76193d7c 2003-09-30 devnull if(wasd)
174 76193d7c 2003-09-30 devnull fprint(2, "sam: panic: %s: %r\n", s);
175 76193d7c 2003-09-30 devnull rescue();
176 76193d7c 2003-09-30 devnull abort();
181 76193d7c 2003-09-30 devnull hiccough(char *s)
183 76193d7c 2003-09-30 devnull File *f;
186 76193d7c 2003-09-30 devnull if(rescuing)
187 76193d7c 2003-09-30 devnull exits("rescue");
189 76193d7c 2003-09-30 devnull dprint("%s\n", s);
190 76193d7c 2003-09-30 devnull resetcmd();
191 76193d7c 2003-09-30 devnull resetxec();
192 76193d7c 2003-09-30 devnull resetsys();
193 76193d7c 2003-09-30 devnull if(io > 0)
194 76193d7c 2003-09-30 devnull close(io);
197 76193d7c 2003-09-30 devnull * back out any logged changes & restore old sequences
199 76193d7c 2003-09-30 devnull for(i=0; i<file.nused; i++){
200 76193d7c 2003-09-30 devnull f = file.filepptr[i];
201 76193d7c 2003-09-30 devnull if(f==cmd)
202 76193d7c 2003-09-30 devnull continue;
203 76193d7c 2003-09-30 devnull if(f->seq==seq){
204 76193d7c 2003-09-30 devnull bufdelete(&f->epsilon, 0, f->epsilon.nc);
205 76193d7c 2003-09-30 devnull f->seq = f->prevseq;
206 76193d7c 2003-09-30 devnull f->dot.r = f->prevdot;
207 76193d7c 2003-09-30 devnull f->mark = f->prevmark;
208 76193d7c 2003-09-30 devnull state(f, f->prevmod ? Dirty: Clean);
212 76193d7c 2003-09-30 devnull update();
213 76193d7c 2003-09-30 devnull if (curfile) {
214 76193d7c 2003-09-30 devnull if (curfile->unread)
215 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
216 76193d7c 2003-09-30 devnull else if (downloaded)
217 76193d7c 2003-09-30 devnull outTs(Hcurrent, curfile->tag);
219 76193d7c 2003-09-30 devnull longjmp(mainloop, 1);
223 76193d7c 2003-09-30 devnull intr(void)
225 76193d7c 2003-09-30 devnull error(Eintr);
229 76193d7c 2003-09-30 devnull trytoclose(File *f)
231 76193d7c 2003-09-30 devnull char *t;
232 76193d7c 2003-09-30 devnull char buf[256];
234 76193d7c 2003-09-30 devnull if(f == cmd) /* possible? */
236 76193d7c 2003-09-30 devnull if(f->deleted)
238 76193d7c 2003-09-30 devnull if(fileisdirty(f) && !f->closeok){
239 76193d7c 2003-09-30 devnull f->closeok = TRUE;
240 76193d7c 2003-09-30 devnull if(f->name.s[0]){
241 76193d7c 2003-09-30 devnull t = Strtoc(&f->name);
242 76193d7c 2003-09-30 devnull strncpy(buf, t, sizeof buf-1);
243 76193d7c 2003-09-30 devnull free(t);
245 76193d7c 2003-09-30 devnull strcpy(buf, "nameless file");
246 76193d7c 2003-09-30 devnull error_s(Emodified, buf);
248 76193d7c 2003-09-30 devnull f->deleted = TRUE;
252 76193d7c 2003-09-30 devnull trytoquit(void)
255 76193d7c 2003-09-30 devnull File *f;
257 76193d7c 2003-09-30 devnull if(!quitok){
258 76193d7c 2003-09-30 devnull for(c = 0; c<file.nused; c++){
259 76193d7c 2003-09-30 devnull f = file.filepptr[c];
260 76193d7c 2003-09-30 devnull if(f!=cmd && fileisdirty(f)){
261 76193d7c 2003-09-30 devnull quitok = TRUE;
262 76193d7c 2003-09-30 devnull eof = FALSE;
263 76193d7c 2003-09-30 devnull error(Echanges);
270 76193d7c 2003-09-30 devnull load(File *f)
272 76193d7c 2003-09-30 devnull Address saveaddr;
274 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
275 76193d7c 2003-09-30 devnull filename(f);
276 76193d7c 2003-09-30 devnull if(f->name.s[0]){
277 76193d7c 2003-09-30 devnull saveaddr = addr;
278 76193d7c 2003-09-30 devnull edit(f, 'I');
279 76193d7c 2003-09-30 devnull addr = saveaddr;
281 76193d7c 2003-09-30 devnull f->unread = 0;
282 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
285 76193d7c 2003-09-30 devnull fileupdate(f, TRUE, TRUE);
289 76193d7c 2003-09-30 devnull cmdupdate(void)
291 76193d7c 2003-09-30 devnull if(cmd && cmd->seq!=0){
292 76193d7c 2003-09-30 devnull fileupdate(cmd, FALSE, downloaded);
293 522b0689 2003-09-30 devnull cmd->dot.r.p1 = cmd->dot.r.p2 = cmd->b.nc;
294 76193d7c 2003-09-30 devnull telldot(cmd);
299 76193d7c 2003-09-30 devnull delete(File *f)
301 76193d7c 2003-09-30 devnull if(downloaded && f->rasp)
302 76193d7c 2003-09-30 devnull outTs(Hclose, f->tag);
303 76193d7c 2003-09-30 devnull delfile(f);
304 76193d7c 2003-09-30 devnull if(f == curfile)
305 76193d7c 2003-09-30 devnull current(0);
309 76193d7c 2003-09-30 devnull update(void)
311 76193d7c 2003-09-30 devnull int i, anymod;
312 76193d7c 2003-09-30 devnull File *f;
314 76193d7c 2003-09-30 devnull settempfile();
315 76193d7c 2003-09-30 devnull for(anymod = i=0; i<tempfile.nused; i++){
316 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
317 76193d7c 2003-09-30 devnull if(f==cmd) /* cmd gets done in main() */
318 76193d7c 2003-09-30 devnull continue;
319 76193d7c 2003-09-30 devnull if(f->deleted) {
320 76193d7c 2003-09-30 devnull delete(f);
321 76193d7c 2003-09-30 devnull continue;
323 76193d7c 2003-09-30 devnull if(f->seq==seq && fileupdate(f, FALSE, downloaded))
324 76193d7c 2003-09-30 devnull anymod++;
325 76193d7c 2003-09-30 devnull if(f->rasp)
326 76193d7c 2003-09-30 devnull telldot(f);
328 76193d7c 2003-09-30 devnull if(anymod)
333 76193d7c 2003-09-30 devnull current(File *f)
335 76193d7c 2003-09-30 devnull return curfile = f;
339 76193d7c 2003-09-30 devnull edit(File *f, int cmd)
341 76193d7c 2003-09-30 devnull int empty = TRUE;
343 76193d7c 2003-09-30 devnull int nulls;
345 76193d7c 2003-09-30 devnull if(cmd == 'r')
346 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
347 76193d7c 2003-09-30 devnull if(cmd=='e' || cmd=='I'){
348 522b0689 2003-09-30 devnull logdelete(f, (Posn)0, f->b.nc);
349 522b0689 2003-09-30 devnull addr.r.p2 = f->b.nc;
350 522b0689 2003-09-30 devnull }else if(f->b.nc!=0 || (f->name.s[0] && Strcmp(&genstr, &f->name)!=0))
351 76193d7c 2003-09-30 devnull empty = FALSE;
352 76193d7c 2003-09-30 devnull if((io = open(genc, OREAD))<0) {
353 76193d7c 2003-09-30 devnull if (curfile && curfile->unread)
354 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
355 76193d7c 2003-09-30 devnull error_r(Eopen, genc);
357 76193d7c 2003-09-30 devnull p = readio(f, &nulls, empty, TRUE);
358 76193d7c 2003-09-30 devnull closeio((cmd=='e' || cmd=='I')? -1 : p);
359 76193d7c 2003-09-30 devnull if(cmd == 'r')
360 76193d7c 2003-09-30 devnull f->ndot.r.p1 = addr.r.p2, f->ndot.r.p2 = addr.r.p2+p;
362 76193d7c 2003-09-30 devnull f->ndot.r.p1 = f->ndot.r.p2 = 0;
363 76193d7c 2003-09-30 devnull f->closeok = empty;
364 76193d7c 2003-09-30 devnull if (quitok)
365 76193d7c 2003-09-30 devnull quitok = empty;
367 76193d7c 2003-09-30 devnull quitok = FALSE;
368 76193d7c 2003-09-30 devnull state(f, empty && !nulls? Clean : Dirty);
369 76193d7c 2003-09-30 devnull if(empty && !nulls)
370 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
371 76193d7c 2003-09-30 devnull if(cmd == 'e')
372 76193d7c 2003-09-30 devnull filename(f);
376 76193d7c 2003-09-30 devnull getname(File *f, String *s, int save)
378 76193d7c 2003-09-30 devnull int c, i;
380 76193d7c 2003-09-30 devnull Strzero(&genstr);
381 76193d7c 2003-09-30 devnull if(genc){
382 76193d7c 2003-09-30 devnull free(genc);
383 76193d7c 2003-09-30 devnull genc = 0;
385 76193d7c 2003-09-30 devnull if(s==0 || (c = s->s[0])==0){ /* no name provided */
387 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
388 76193d7c 2003-09-30 devnull goto Return;
390 76193d7c 2003-09-30 devnull if(c!=' ' && c!='\t')
391 76193d7c 2003-09-30 devnull error(Eblank);
392 76193d7c 2003-09-30 devnull for(i=0; (c=s->s[i])==' ' || c=='\t'; i++)
394 76193d7c 2003-09-30 devnull while(s->s[i] > ' ')
395 76193d7c 2003-09-30 devnull Straddc(&genstr, s->s[i++]);
396 76193d7c 2003-09-30 devnull if(s->s[i])
397 76193d7c 2003-09-30 devnull error(Enewline);
398 76193d7c 2003-09-30 devnull fixname(&genstr);
399 76193d7c 2003-09-30 devnull if(f && (save || f->name.s[0]==0)){
400 76193d7c 2003-09-30 devnull logsetname(f, &genstr);
401 76193d7c 2003-09-30 devnull if(Strcmp(&f->name, &genstr)){
402 76193d7c 2003-09-30 devnull quitok = f->closeok = FALSE;
403 76193d7c 2003-09-30 devnull f->qidpath = 0;
404 76193d7c 2003-09-30 devnull f->mtime = 0;
405 76193d7c 2003-09-30 devnull state(f, Dirty); /* if it's 'e', fix later */
409 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
410 76193d7c 2003-09-30 devnull i = genstr.n;
411 76193d7c 2003-09-30 devnull if(i && genstr.s[i-1]==0)
413 76193d7c 2003-09-30 devnull return i; /* strlen(name) */
417 76193d7c 2003-09-30 devnull filename(File *f)
419 76193d7c 2003-09-30 devnull if(genc)
420 76193d7c 2003-09-30 devnull free(genc);
421 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
422 76193d7c 2003-09-30 devnull dprint("%c%c%c %s\n", " '"[f->mod],
423 76193d7c 2003-09-30 devnull "-+"[f->rasp!=0], " ."[f==curfile], genc);
427 76193d7c 2003-09-30 devnull undostep(File *f, int isundo)
429 76193d7c 2003-09-30 devnull uint p1, p2;
430 76193d7c 2003-09-30 devnull int mod;
432 76193d7c 2003-09-30 devnull mod = f->mod;
433 76193d7c 2003-09-30 devnull fileundo(f, isundo, 1, &p1, &p2, TRUE);
434 76193d7c 2003-09-30 devnull f->ndot = f->dot;
435 76193d7c 2003-09-30 devnull if(f->mod){
436 76193d7c 2003-09-30 devnull f->closeok = 0;
437 76193d7c 2003-09-30 devnull quitok = 0;
439 76193d7c 2003-09-30 devnull f->closeok = 1;
441 76193d7c 2003-09-30 devnull if(f->mod != mod){
442 76193d7c 2003-09-30 devnull f->mod = mod;
444 76193d7c 2003-09-30 devnull mod = Clean;
446 76193d7c 2003-09-30 devnull mod = Dirty;
447 76193d7c 2003-09-30 devnull state(f, mod);
452 76193d7c 2003-09-30 devnull undo(int isundo)
454 76193d7c 2003-09-30 devnull File *f;
456 76193d7c 2003-09-30 devnull Mod max;
458 76193d7c 2003-09-30 devnull max = undoseq(curfile, isundo);
459 76193d7c 2003-09-30 devnull if(max == 0)
460 76193d7c 2003-09-30 devnull return 0;
461 76193d7c 2003-09-30 devnull settempfile();
462 76193d7c 2003-09-30 devnull for(i = 0; i<tempfile.nused; i++){
463 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
464 76193d7c 2003-09-30 devnull if(f!=cmd && undoseq(f, isundo)==max)
465 76193d7c 2003-09-30 devnull undostep(f, isundo);
467 76193d7c 2003-09-30 devnull return 1;
471 76193d7c 2003-09-30 devnull readcmd(String *s)
473 76193d7c 2003-09-30 devnull int retcode;
475 76193d7c 2003-09-30 devnull if(flist != 0)
476 76193d7c 2003-09-30 devnull fileclose(flist);
477 76193d7c 2003-09-30 devnull flist = fileopen();
479 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = flist->b.nc;
480 76193d7c 2003-09-30 devnull retcode = plan9(flist, '<', s, FALSE);
481 76193d7c 2003-09-30 devnull fileupdate(flist, FALSE, FALSE);
482 76193d7c 2003-09-30 devnull flist->seq = 0;
483 522b0689 2003-09-30 devnull if (flist->b.nc > BLOCKSIZE)
484 76193d7c 2003-09-30 devnull error(Etoolong);
485 76193d7c 2003-09-30 devnull Strzero(&genstr);
486 522b0689 2003-09-30 devnull Strinsure(&genstr, flist->b.nc);
487 522b0689 2003-09-30 devnull bufread(&flist->b, (Posn)0, genbuf, flist->b.nc);
488 522b0689 2003-09-30 devnull memmove(genstr.s, genbuf, flist->b.nc*RUNESIZE);
489 522b0689 2003-09-30 devnull genstr.n = flist->b.nc;
490 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
491 76193d7c 2003-09-30 devnull return retcode;
495 76193d7c 2003-09-30 devnull getcurwd(void)
497 76193d7c 2003-09-30 devnull String *t;
498 76193d7c 2003-09-30 devnull char buf[256];
500 76193d7c 2003-09-30 devnull buf[0] = 0;
501 76193d7c 2003-09-30 devnull getwd(buf, sizeof(buf));
502 76193d7c 2003-09-30 devnull t = tmpcstr(buf);
503 76193d7c 2003-09-30 devnull Strduplstr(&curwd, t);
504 76193d7c 2003-09-30 devnull freetmpstr(t);
505 76193d7c 2003-09-30 devnull if(curwd.n == 0)
506 76193d7c 2003-09-30 devnull warn(Wpwd);
507 76193d7c 2003-09-30 devnull else if(curwd.s[curwd.n-1] != '/')
508 76193d7c 2003-09-30 devnull Straddc(&curwd, '/');
512 76193d7c 2003-09-30 devnull cd(String *str)
514 76193d7c 2003-09-30 devnull int i, fd;
515 76193d7c 2003-09-30 devnull char *s;
516 76193d7c 2003-09-30 devnull File *f;
517 76193d7c 2003-09-30 devnull String owd;
519 76193d7c 2003-09-30 devnull getcurwd();
520 76193d7c 2003-09-30 devnull if(getname((File *)0, str, FALSE))
521 76193d7c 2003-09-30 devnull s = genc;
523 76193d7c 2003-09-30 devnull s = home;
524 76193d7c 2003-09-30 devnull if(chdir(s))
525 76193d7c 2003-09-30 devnull syserror("chdir");
526 76193d7c 2003-09-30 devnull fd = open("/dev/wdir", OWRITE);
527 76193d7c 2003-09-30 devnull if(fd > 0)
528 76193d7c 2003-09-30 devnull write(fd, s, strlen(s));
529 76193d7c 2003-09-30 devnull dprint("!\n");
530 76193d7c 2003-09-30 devnull Strinit(&owd);
531 76193d7c 2003-09-30 devnull Strduplstr(&owd, &curwd);
532 76193d7c 2003-09-30 devnull getcurwd();
533 76193d7c 2003-09-30 devnull settempfile();
534 76193d7c 2003-09-30 devnull for(i=0; i<tempfile.nused; i++){
535 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
536 76193d7c 2003-09-30 devnull if(f!=cmd && f->name.s[0]!='/' && f->name.s[0]!=0){
537 76193d7c 2003-09-30 devnull Strinsert(&f->name, &owd, (Posn)0);
538 76193d7c 2003-09-30 devnull fixname(&f->name);
539 76193d7c 2003-09-30 devnull sortname(f);
540 76193d7c 2003-09-30 devnull }else if(f != cmd && Strispre(&curwd, &f->name)){
541 76193d7c 2003-09-30 devnull fixname(&f->name);
542 76193d7c 2003-09-30 devnull sortname(f);
545 76193d7c 2003-09-30 devnull Strclose(&owd);
549 76193d7c 2003-09-30 devnull loadflist(String *s)
551 76193d7c 2003-09-30 devnull int c, i;
553 76193d7c 2003-09-30 devnull c = s->s[0];
554 76193d7c 2003-09-30 devnull for(i = 0; s->s[i]==' ' || s->s[i]=='\t'; i++)
556 76193d7c 2003-09-30 devnull if((c==' ' || c=='\t') && s->s[i]!='\n'){
557 76193d7c 2003-09-30 devnull if(s->s[i]=='<'){
558 76193d7c 2003-09-30 devnull Strdelete(s, 0L, (long)i+1);
559 76193d7c 2003-09-30 devnull readcmd(s);
561 76193d7c 2003-09-30 devnull Strzero(&genstr);
562 76193d7c 2003-09-30 devnull while((c = s->s[i++]) && c!='\n')
563 76193d7c 2003-09-30 devnull Straddc(&genstr, c);
564 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
567 76193d7c 2003-09-30 devnull if(c != '\n')
568 76193d7c 2003-09-30 devnull error(Eblank);
569 76193d7c 2003-09-30 devnull Strdupl(&genstr, empty);
571 76193d7c 2003-09-30 devnull if(genc)
572 76193d7c 2003-09-30 devnull free(genc);
573 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
574 76193d7c 2003-09-30 devnull return genstr.s[0];
578 76193d7c 2003-09-30 devnull readflist(int readall, int delete)
582 76193d7c 2003-09-30 devnull File *f;
583 76193d7c 2003-09-30 devnull String t;
585 76193d7c 2003-09-30 devnull Strinit(&t);
586 76193d7c 2003-09-30 devnull for(i=0,f=0; f==0 || readall || delete; i++){ /* ++ skips blank */
587 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
588 76193d7c 2003-09-30 devnull for(i=0; (c = genstr.s[i])==' ' || c=='\t' || c=='\n'; i++)
590 76193d7c 2003-09-30 devnull if(i >= genstr.n)
592 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
593 76193d7c 2003-09-30 devnull for(i=0; (c=genstr.s[i]) && c!=' ' && c!='\t' && c!='\n'; i++)
596 76193d7c 2003-09-30 devnull if(i == 0)
598 76193d7c 2003-09-30 devnull genstr.s[i] = 0;
599 76193d7c 2003-09-30 devnull Strduplstr(&t, tmprstr(genstr.s, i+1));
600 76193d7c 2003-09-30 devnull fixname(&t);
601 76193d7c 2003-09-30 devnull f = lookfile(&t);
602 76193d7c 2003-09-30 devnull if(delete){
603 76193d7c 2003-09-30 devnull if(f == 0)
604 76193d7c 2003-09-30 devnull warn_S(Wfile, &t);
606 76193d7c 2003-09-30 devnull trytoclose(f);
607 76193d7c 2003-09-30 devnull }else if(f==0 && readall)
608 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &t);
610 76193d7c 2003-09-30 devnull Strclose(&t);
611 76193d7c 2003-09-30 devnull return f;
615 76193d7c 2003-09-30 devnull tofile(String *s)
617 76193d7c 2003-09-30 devnull File *f;
619 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
620 76193d7c 2003-09-30 devnull error(Eblank);
621 76193d7c 2003-09-30 devnull if(loadflist(s) == 0){
622 76193d7c 2003-09-30 devnull f = lookfile(&genstr); /* empty string ==> nameless file */
623 76193d7c 2003-09-30 devnull if(f == 0)
624 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
625 76193d7c 2003-09-30 devnull }else if((f=readflist(FALSE, FALSE)) == 0)
626 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
627 76193d7c 2003-09-30 devnull return current(f);
631 76193d7c 2003-09-30 devnull getfile(String *s)
633 76193d7c 2003-09-30 devnull File *f;
635 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
636 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &genstr);
637 76193d7c 2003-09-30 devnull else if((f=readflist(TRUE, FALSE)) == 0)
638 76193d7c 2003-09-30 devnull error(Eblank);
639 76193d7c 2003-09-30 devnull return current(f);
643 76193d7c 2003-09-30 devnull closefiles(File *f, String *s)
645 76193d7c 2003-09-30 devnull if(s->s[0] == 0){
646 76193d7c 2003-09-30 devnull if(f == 0)
647 76193d7c 2003-09-30 devnull error(Enofile);
648 76193d7c 2003-09-30 devnull trytoclose(f);
651 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
652 76193d7c 2003-09-30 devnull error(Eblank);
653 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
654 76193d7c 2003-09-30 devnull error(Enewline);
655 76193d7c 2003-09-30 devnull readflist(FALSE, TRUE);
659 76193d7c 2003-09-30 devnull copy(File *f, Address addr2)
663 76193d7c 2003-09-30 devnull for(p=addr.r.p1; p<addr.r.p2; p+=ni){
664 76193d7c 2003-09-30 devnull ni = addr.r.p2-p;
665 76193d7c 2003-09-30 devnull if(ni > BLOCKSIZE)
666 76193d7c 2003-09-30 devnull ni = BLOCKSIZE;
667 522b0689 2003-09-30 devnull bufread(&f->b, p, genbuf, ni);
668 76193d7c 2003-09-30 devnull loginsert(addr2.f, addr2.r.p2, tmprstr(genbuf, ni)->s, ni);
670 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p2 = addr2.r.p2+(f->dot.r.p2-f->dot.r.p1);
671 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p1 = addr2.r.p2;
675 76193d7c 2003-09-30 devnull move(File *f, Address addr2)
677 76193d7c 2003-09-30 devnull if(addr.r.p2 <= addr2.r.p2){
678 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
679 76193d7c 2003-09-30 devnull copy(f, addr2);
680 76193d7c 2003-09-30 devnull }else if(addr.r.p1 >= addr2.r.p2){
681 76193d7c 2003-09-30 devnull copy(f, addr2);
682 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
684 76193d7c 2003-09-30 devnull error(Eoverlap);
688 76193d7c 2003-09-30 devnull nlcount(File *f, Posn p0, Posn p1)
690 76193d7c 2003-09-30 devnull Posn nl = 0;
692 76193d7c 2003-09-30 devnull while(p0 < p1)
693 76193d7c 2003-09-30 devnull if(filereadc(f, p0++)=='\n')
695 76193d7c 2003-09-30 devnull return nl;
699 76193d7c 2003-09-30 devnull printposn(File *f, int charsonly)
701 76193d7c 2003-09-30 devnull Posn l1, l2;
703 76193d7c 2003-09-30 devnull if(!charsonly){
704 76193d7c 2003-09-30 devnull l1 = 1+nlcount(f, (Posn)0, addr.r.p1);
705 76193d7c 2003-09-30 devnull l2 = l1+nlcount(f, addr.r.p1, addr.r.p2);
706 76193d7c 2003-09-30 devnull /* check if addr ends with '\n' */
707 76193d7c 2003-09-30 devnull if(addr.r.p2>0 && addr.r.p2>addr.r.p1 && filereadc(f, addr.r.p2-1)=='\n')
709 76193d7c 2003-09-30 devnull dprint("%lud", l1);
710 76193d7c 2003-09-30 devnull if(l2 != l1)
711 76193d7c 2003-09-30 devnull dprint(",%lud", l2);
712 76193d7c 2003-09-30 devnull dprint("; ");
714 76193d7c 2003-09-30 devnull dprint("#%lud", addr.r.p1);
715 76193d7c 2003-09-30 devnull if(addr.r.p2 != addr.r.p1)
716 76193d7c 2003-09-30 devnull dprint(",#%lud", addr.r.p2);
717 76193d7c 2003-09-30 devnull dprint("\n");
721 76193d7c 2003-09-30 devnull settempfile(void)
723 76193d7c 2003-09-30 devnull if(tempfile.nalloc < file.nused){
724 76193d7c 2003-09-30 devnull free(tempfile.listptr);
725 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(sizeof(*tempfile.filepptr)*file.nused);
726 76193d7c 2003-09-30 devnull tempfile.nalloc = file.nused;
728 76193d7c 2003-09-30 devnull tempfile.nused = file.nused;
729 76193d7c 2003-09-30 devnull memmove(&tempfile.filepptr[0], &file.filepptr[0], file.nused*sizeof(File*));