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 76193d7c 2003-09-30 devnull int main(int argc, char *argv[])
39 76193d7c 2003-09-30 devnull String *t;
40 76193d7c 2003-09-30 devnull char **ap, **arg;
42 76193d7c 2003-09-30 devnull { // libfmt-2.0 uses %lu where we need %lud
43 76193d7c 2003-09-30 devnull extern int __flagfmt(Fmt*);
44 76193d7c 2003-09-30 devnull fmtinstall('u', __flagfmt);
47 76193d7c 2003-09-30 devnull arg = argv++;
48 76193d7c 2003-09-30 devnull ap = argv;
49 76193d7c 2003-09-30 devnull while(argc>1 && argv[0] && argv[0][0]=='-'){
50 76193d7c 2003-09-30 devnull switch(argv[0][1]){
51 76193d7c 2003-09-30 devnull case 'd':
55 76193d7c 2003-09-30 devnull case 'r':
56 76193d7c 2003-09-30 devnull --argc, argv++;
57 76193d7c 2003-09-30 devnull if(argc == 1)
59 76193d7c 2003-09-30 devnull machine = *argv;
62 76193d7c 2003-09-30 devnull case 'R':
66 76193d7c 2003-09-30 devnull case 't':
67 76193d7c 2003-09-30 devnull --argc, argv++;
68 76193d7c 2003-09-30 devnull if(argc == 1)
70 76193d7c 2003-09-30 devnull samterm = *argv;
73 76193d7c 2003-09-30 devnull case 's':
74 76193d7c 2003-09-30 devnull --argc, argv++;
75 76193d7c 2003-09-30 devnull if(argc == 1)
77 76193d7c 2003-09-30 devnull rsamname = *argv;
80 76193d7c 2003-09-30 devnull case 'x': /* x11 option - strip the x */
81 76193d7c 2003-09-30 devnull strcpy(*argv+1, *argv+2);
82 76193d7c 2003-09-30 devnull *ap++ = *argv++;
83 76193d7c 2003-09-30 devnull *ap++ = *argv;
88 76193d7c 2003-09-30 devnull dprint("sam: unknown flag %c\n", argv[0][1]);
89 76193d7c 2003-09-30 devnull exits("usage");
91 76193d7c 2003-09-30 devnull --argc, argv++;
93 76193d7c 2003-09-30 devnull Strinit(&cmdstr);
94 76193d7c 2003-09-30 devnull Strinit0(&lastpat);
95 76193d7c 2003-09-30 devnull Strinit0(&lastregexp);
96 76193d7c 2003-09-30 devnull Strinit0(&genstr);
97 76193d7c 2003-09-30 devnull Strinit0(&rhs);
98 76193d7c 2003-09-30 devnull Strinit0(&curwd);
99 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(1); /* so it can be freed later */
100 76193d7c 2003-09-30 devnull Strinit0(&plan9cmd);
101 76193d7c 2003-09-30 devnull home = getenv(HOME);
102 76193d7c 2003-09-30 devnull disk = diskinit();
103 76193d7c 2003-09-30 devnull if(home == 0)
104 76193d7c 2003-09-30 devnull home = "/";
105 76193d7c 2003-09-30 devnull if(!dflag)
106 76193d7c 2003-09-30 devnull startup(machine, Rflag, arg, ap);
107 76193d7c 2003-09-30 devnull notify(notifyf);
108 76193d7c 2003-09-30 devnull getcurwd();
109 76193d7c 2003-09-30 devnull if(argc>1){
110 76193d7c 2003-09-30 devnull for(i=0; i<argc-1; i++){
111 76193d7c 2003-09-30 devnull if(!setjmp(mainloop)){
112 76193d7c 2003-09-30 devnull t = tmpcstr(argv[i]);
113 76193d7c 2003-09-30 devnull Straddc(t, '\0');
114 76193d7c 2003-09-30 devnull Strduplstr(&genstr, t);
115 76193d7c 2003-09-30 devnull freetmpstr(t);
116 76193d7c 2003-09-30 devnull fixname(&genstr);
117 76193d7c 2003-09-30 devnull logsetname(newfile(), &genstr);
120 76193d7c 2003-09-30 devnull }else if(!downloaded)
121 76193d7c 2003-09-30 devnull newfile();
123 76193d7c 2003-09-30 devnull if(file.nused)
124 76193d7c 2003-09-30 devnull current(file.filepptr[0]);
125 76193d7c 2003-09-30 devnull setjmp(mainloop);
126 76193d7c 2003-09-30 devnull cmdloop();
127 76193d7c 2003-09-30 devnull trytoquit(); /* if we already q'ed, quitok will be TRUE */
128 76193d7c 2003-09-30 devnull exits(0);
132 76193d7c 2003-09-30 devnull usage(void)
134 76193d7c 2003-09-30 devnull dprint("usage: sam [-d] [-t samterm] [-s sam name] -r machine\n");
135 76193d7c 2003-09-30 devnull exits("usage");
139 76193d7c 2003-09-30 devnull rescue(void)
141 76193d7c 2003-09-30 devnull int i, nblank = 0;
142 76193d7c 2003-09-30 devnull File *f;
143 76193d7c 2003-09-30 devnull char *c;
144 76193d7c 2003-09-30 devnull char buf[256];
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 76193d7c 2003-09-30 devnull fprint(io, "#!%s '%s' $* <<'---%s'\n", SAMSAVECMD, buf, buf);
167 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = f->b.nc;
168 76193d7c 2003-09-30 devnull writeio(f);
169 76193d7c 2003-09-30 devnull fprint(io, "\n---%s\n", (char *)buf);
174 76193d7c 2003-09-30 devnull panic(char *s)
176 76193d7c 2003-09-30 devnull int wasd;
178 76193d7c 2003-09-30 devnull if(!panicking++ && !setjmp(mainloop)){
179 76193d7c 2003-09-30 devnull wasd = downloaded;
180 76193d7c 2003-09-30 devnull downloaded = 0;
181 76193d7c 2003-09-30 devnull dprint("sam: panic: %s: %r\n", s);
182 76193d7c 2003-09-30 devnull if(wasd)
183 76193d7c 2003-09-30 devnull fprint(2, "sam: panic: %s: %r\n", s);
184 76193d7c 2003-09-30 devnull rescue();
185 76193d7c 2003-09-30 devnull abort();
190 76193d7c 2003-09-30 devnull hiccough(char *s)
192 76193d7c 2003-09-30 devnull File *f;
195 76193d7c 2003-09-30 devnull if(rescuing)
196 76193d7c 2003-09-30 devnull exits("rescue");
198 76193d7c 2003-09-30 devnull dprint("%s\n", s);
199 76193d7c 2003-09-30 devnull resetcmd();
200 76193d7c 2003-09-30 devnull resetxec();
201 76193d7c 2003-09-30 devnull resetsys();
202 76193d7c 2003-09-30 devnull if(io > 0)
203 76193d7c 2003-09-30 devnull close(io);
206 76193d7c 2003-09-30 devnull * back out any logged changes & restore old sequences
208 76193d7c 2003-09-30 devnull for(i=0; i<file.nused; i++){
209 76193d7c 2003-09-30 devnull f = file.filepptr[i];
210 76193d7c 2003-09-30 devnull if(f==cmd)
211 76193d7c 2003-09-30 devnull continue;
212 76193d7c 2003-09-30 devnull if(f->seq==seq){
213 76193d7c 2003-09-30 devnull bufdelete(&f->epsilon, 0, f->epsilon.nc);
214 76193d7c 2003-09-30 devnull f->seq = f->prevseq;
215 76193d7c 2003-09-30 devnull f->dot.r = f->prevdot;
216 76193d7c 2003-09-30 devnull f->mark = f->prevmark;
217 76193d7c 2003-09-30 devnull state(f, f->prevmod ? Dirty: Clean);
221 76193d7c 2003-09-30 devnull update();
222 76193d7c 2003-09-30 devnull if (curfile) {
223 76193d7c 2003-09-30 devnull if (curfile->unread)
224 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
225 76193d7c 2003-09-30 devnull else if (downloaded)
226 76193d7c 2003-09-30 devnull outTs(Hcurrent, curfile->tag);
228 76193d7c 2003-09-30 devnull longjmp(mainloop, 1);
232 76193d7c 2003-09-30 devnull intr(void)
234 76193d7c 2003-09-30 devnull error(Eintr);
238 76193d7c 2003-09-30 devnull trytoclose(File *f)
240 76193d7c 2003-09-30 devnull char *t;
241 76193d7c 2003-09-30 devnull char buf[256];
243 76193d7c 2003-09-30 devnull if(f == cmd) /* possible? */
245 76193d7c 2003-09-30 devnull if(f->deleted)
247 76193d7c 2003-09-30 devnull if(fileisdirty(f) && !f->closeok){
248 76193d7c 2003-09-30 devnull f->closeok = TRUE;
249 76193d7c 2003-09-30 devnull if(f->name.s[0]){
250 76193d7c 2003-09-30 devnull t = Strtoc(&f->name);
251 76193d7c 2003-09-30 devnull strncpy(buf, t, sizeof buf-1);
252 76193d7c 2003-09-30 devnull free(t);
254 76193d7c 2003-09-30 devnull strcpy(buf, "nameless file");
255 76193d7c 2003-09-30 devnull error_s(Emodified, buf);
257 76193d7c 2003-09-30 devnull f->deleted = TRUE;
261 76193d7c 2003-09-30 devnull trytoquit(void)
264 76193d7c 2003-09-30 devnull File *f;
266 76193d7c 2003-09-30 devnull if(!quitok){
267 76193d7c 2003-09-30 devnull for(c = 0; c<file.nused; c++){
268 76193d7c 2003-09-30 devnull f = file.filepptr[c];
269 76193d7c 2003-09-30 devnull if(f!=cmd && fileisdirty(f)){
270 76193d7c 2003-09-30 devnull quitok = TRUE;
271 76193d7c 2003-09-30 devnull eof = FALSE;
272 76193d7c 2003-09-30 devnull error(Echanges);
279 76193d7c 2003-09-30 devnull load(File *f)
281 76193d7c 2003-09-30 devnull Address saveaddr;
283 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
284 76193d7c 2003-09-30 devnull filename(f);
285 76193d7c 2003-09-30 devnull if(f->name.s[0]){
286 76193d7c 2003-09-30 devnull saveaddr = addr;
287 76193d7c 2003-09-30 devnull edit(f, 'I');
288 76193d7c 2003-09-30 devnull addr = saveaddr;
290 76193d7c 2003-09-30 devnull f->unread = 0;
291 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
294 76193d7c 2003-09-30 devnull fileupdate(f, TRUE, TRUE);
298 76193d7c 2003-09-30 devnull cmdupdate(void)
300 76193d7c 2003-09-30 devnull if(cmd && cmd->seq!=0){
301 76193d7c 2003-09-30 devnull fileupdate(cmd, FALSE, downloaded);
302 522b0689 2003-09-30 devnull cmd->dot.r.p1 = cmd->dot.r.p2 = cmd->b.nc;
303 76193d7c 2003-09-30 devnull telldot(cmd);
308 76193d7c 2003-09-30 devnull delete(File *f)
310 76193d7c 2003-09-30 devnull if(downloaded && f->rasp)
311 76193d7c 2003-09-30 devnull outTs(Hclose, f->tag);
312 76193d7c 2003-09-30 devnull delfile(f);
313 76193d7c 2003-09-30 devnull if(f == curfile)
314 76193d7c 2003-09-30 devnull current(0);
318 76193d7c 2003-09-30 devnull update(void)
320 76193d7c 2003-09-30 devnull int i, anymod;
321 76193d7c 2003-09-30 devnull File *f;
323 76193d7c 2003-09-30 devnull settempfile();
324 76193d7c 2003-09-30 devnull for(anymod = i=0; i<tempfile.nused; i++){
325 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
326 76193d7c 2003-09-30 devnull if(f==cmd) /* cmd gets done in main() */
327 76193d7c 2003-09-30 devnull continue;
328 76193d7c 2003-09-30 devnull if(f->deleted) {
329 76193d7c 2003-09-30 devnull delete(f);
330 76193d7c 2003-09-30 devnull continue;
332 76193d7c 2003-09-30 devnull if(f->seq==seq && fileupdate(f, FALSE, downloaded))
333 76193d7c 2003-09-30 devnull anymod++;
334 76193d7c 2003-09-30 devnull if(f->rasp)
335 76193d7c 2003-09-30 devnull telldot(f);
337 76193d7c 2003-09-30 devnull if(anymod)
342 76193d7c 2003-09-30 devnull current(File *f)
344 76193d7c 2003-09-30 devnull return curfile = f;
348 76193d7c 2003-09-30 devnull edit(File *f, int cmd)
350 76193d7c 2003-09-30 devnull int empty = TRUE;
352 76193d7c 2003-09-30 devnull int nulls;
354 76193d7c 2003-09-30 devnull if(cmd == 'r')
355 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
356 76193d7c 2003-09-30 devnull if(cmd=='e' || cmd=='I'){
357 522b0689 2003-09-30 devnull logdelete(f, (Posn)0, f->b.nc);
358 522b0689 2003-09-30 devnull addr.r.p2 = f->b.nc;
359 522b0689 2003-09-30 devnull }else if(f->b.nc!=0 || (f->name.s[0] && Strcmp(&genstr, &f->name)!=0))
360 76193d7c 2003-09-30 devnull empty = FALSE;
361 76193d7c 2003-09-30 devnull if((io = open(genc, OREAD))<0) {
362 76193d7c 2003-09-30 devnull if (curfile && curfile->unread)
363 76193d7c 2003-09-30 devnull curfile->unread = FALSE;
364 76193d7c 2003-09-30 devnull error_r(Eopen, genc);
366 76193d7c 2003-09-30 devnull p = readio(f, &nulls, empty, TRUE);
367 76193d7c 2003-09-30 devnull closeio((cmd=='e' || cmd=='I')? -1 : p);
368 76193d7c 2003-09-30 devnull if(cmd == 'r')
369 76193d7c 2003-09-30 devnull f->ndot.r.p1 = addr.r.p2, f->ndot.r.p2 = addr.r.p2+p;
371 76193d7c 2003-09-30 devnull f->ndot.r.p1 = f->ndot.r.p2 = 0;
372 76193d7c 2003-09-30 devnull f->closeok = empty;
373 76193d7c 2003-09-30 devnull if (quitok)
374 76193d7c 2003-09-30 devnull quitok = empty;
376 76193d7c 2003-09-30 devnull quitok = FALSE;
377 76193d7c 2003-09-30 devnull state(f, empty && !nulls? Clean : Dirty);
378 76193d7c 2003-09-30 devnull if(empty && !nulls)
379 76193d7c 2003-09-30 devnull f->cleanseq = f->seq;
380 76193d7c 2003-09-30 devnull if(cmd == 'e')
381 76193d7c 2003-09-30 devnull filename(f);
385 76193d7c 2003-09-30 devnull getname(File *f, String *s, int save)
387 76193d7c 2003-09-30 devnull int c, i;
389 76193d7c 2003-09-30 devnull Strzero(&genstr);
390 76193d7c 2003-09-30 devnull if(genc){
391 76193d7c 2003-09-30 devnull free(genc);
392 76193d7c 2003-09-30 devnull genc = 0;
394 76193d7c 2003-09-30 devnull if(s==0 || (c = s->s[0])==0){ /* no name provided */
396 76193d7c 2003-09-30 devnull Strduplstr(&genstr, &f->name);
397 76193d7c 2003-09-30 devnull goto Return;
399 76193d7c 2003-09-30 devnull if(c!=' ' && c!='\t')
400 76193d7c 2003-09-30 devnull error(Eblank);
401 76193d7c 2003-09-30 devnull for(i=0; (c=s->s[i])==' ' || c=='\t'; i++)
403 76193d7c 2003-09-30 devnull while(s->s[i] > ' ')
404 76193d7c 2003-09-30 devnull Straddc(&genstr, s->s[i++]);
405 76193d7c 2003-09-30 devnull if(s->s[i])
406 76193d7c 2003-09-30 devnull error(Enewline);
407 76193d7c 2003-09-30 devnull fixname(&genstr);
408 76193d7c 2003-09-30 devnull if(f && (save || f->name.s[0]==0)){
409 76193d7c 2003-09-30 devnull logsetname(f, &genstr);
410 76193d7c 2003-09-30 devnull if(Strcmp(&f->name, &genstr)){
411 76193d7c 2003-09-30 devnull quitok = f->closeok = FALSE;
412 76193d7c 2003-09-30 devnull f->qidpath = 0;
413 76193d7c 2003-09-30 devnull f->mtime = 0;
414 76193d7c 2003-09-30 devnull state(f, Dirty); /* if it's 'e', fix later */
418 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
419 76193d7c 2003-09-30 devnull i = genstr.n;
420 76193d7c 2003-09-30 devnull if(i && genstr.s[i-1]==0)
422 76193d7c 2003-09-30 devnull return i; /* strlen(name) */
426 76193d7c 2003-09-30 devnull filename(File *f)
428 76193d7c 2003-09-30 devnull if(genc)
429 76193d7c 2003-09-30 devnull free(genc);
430 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
431 76193d7c 2003-09-30 devnull dprint("%c%c%c %s\n", " '"[f->mod],
432 76193d7c 2003-09-30 devnull "-+"[f->rasp!=0], " ."[f==curfile], genc);
436 76193d7c 2003-09-30 devnull undostep(File *f, int isundo)
438 76193d7c 2003-09-30 devnull uint p1, p2;
439 76193d7c 2003-09-30 devnull int mod;
441 76193d7c 2003-09-30 devnull mod = f->mod;
442 76193d7c 2003-09-30 devnull fileundo(f, isundo, 1, &p1, &p2, TRUE);
443 76193d7c 2003-09-30 devnull f->ndot = f->dot;
444 76193d7c 2003-09-30 devnull if(f->mod){
445 76193d7c 2003-09-30 devnull f->closeok = 0;
446 76193d7c 2003-09-30 devnull quitok = 0;
448 76193d7c 2003-09-30 devnull f->closeok = 1;
450 76193d7c 2003-09-30 devnull if(f->mod != mod){
451 76193d7c 2003-09-30 devnull f->mod = mod;
453 76193d7c 2003-09-30 devnull mod = Clean;
455 76193d7c 2003-09-30 devnull mod = Dirty;
456 76193d7c 2003-09-30 devnull state(f, mod);
461 76193d7c 2003-09-30 devnull undo(int isundo)
463 76193d7c 2003-09-30 devnull File *f;
465 76193d7c 2003-09-30 devnull Mod max;
467 76193d7c 2003-09-30 devnull max = undoseq(curfile, isundo);
468 76193d7c 2003-09-30 devnull if(max == 0)
469 76193d7c 2003-09-30 devnull return 0;
470 76193d7c 2003-09-30 devnull settempfile();
471 76193d7c 2003-09-30 devnull for(i = 0; i<tempfile.nused; i++){
472 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
473 76193d7c 2003-09-30 devnull if(f!=cmd && undoseq(f, isundo)==max)
474 76193d7c 2003-09-30 devnull undostep(f, isundo);
476 76193d7c 2003-09-30 devnull return 1;
480 76193d7c 2003-09-30 devnull readcmd(String *s)
482 76193d7c 2003-09-30 devnull int retcode;
484 76193d7c 2003-09-30 devnull if(flist != 0)
485 76193d7c 2003-09-30 devnull fileclose(flist);
486 76193d7c 2003-09-30 devnull flist = fileopen();
488 522b0689 2003-09-30 devnull addr.r.p1 = 0, addr.r.p2 = flist->b.nc;
489 76193d7c 2003-09-30 devnull retcode = plan9(flist, '<', s, FALSE);
490 76193d7c 2003-09-30 devnull fileupdate(flist, FALSE, FALSE);
491 76193d7c 2003-09-30 devnull flist->seq = 0;
492 522b0689 2003-09-30 devnull if (flist->b.nc > BLOCKSIZE)
493 76193d7c 2003-09-30 devnull error(Etoolong);
494 76193d7c 2003-09-30 devnull Strzero(&genstr);
495 522b0689 2003-09-30 devnull Strinsure(&genstr, flist->b.nc);
496 522b0689 2003-09-30 devnull bufread(&flist->b, (Posn)0, genbuf, flist->b.nc);
497 522b0689 2003-09-30 devnull memmove(genstr.s, genbuf, flist->b.nc*RUNESIZE);
498 522b0689 2003-09-30 devnull genstr.n = flist->b.nc;
499 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
500 76193d7c 2003-09-30 devnull return retcode;
504 76193d7c 2003-09-30 devnull getcurwd(void)
506 76193d7c 2003-09-30 devnull String *t;
507 76193d7c 2003-09-30 devnull char buf[256];
509 76193d7c 2003-09-30 devnull buf[0] = 0;
510 76193d7c 2003-09-30 devnull getwd(buf, sizeof(buf));
511 76193d7c 2003-09-30 devnull t = tmpcstr(buf);
512 76193d7c 2003-09-30 devnull Strduplstr(&curwd, t);
513 76193d7c 2003-09-30 devnull freetmpstr(t);
514 76193d7c 2003-09-30 devnull if(curwd.n == 0)
515 76193d7c 2003-09-30 devnull warn(Wpwd);
516 76193d7c 2003-09-30 devnull else if(curwd.s[curwd.n-1] != '/')
517 76193d7c 2003-09-30 devnull Straddc(&curwd, '/');
521 76193d7c 2003-09-30 devnull cd(String *str)
523 76193d7c 2003-09-30 devnull int i, fd;
524 76193d7c 2003-09-30 devnull char *s;
525 76193d7c 2003-09-30 devnull File *f;
526 76193d7c 2003-09-30 devnull String owd;
528 76193d7c 2003-09-30 devnull getcurwd();
529 76193d7c 2003-09-30 devnull if(getname((File *)0, str, FALSE))
530 76193d7c 2003-09-30 devnull s = genc;
532 76193d7c 2003-09-30 devnull s = home;
533 76193d7c 2003-09-30 devnull if(chdir(s))
534 76193d7c 2003-09-30 devnull syserror("chdir");
535 76193d7c 2003-09-30 devnull fd = open("/dev/wdir", OWRITE);
536 76193d7c 2003-09-30 devnull if(fd > 0)
537 76193d7c 2003-09-30 devnull write(fd, s, strlen(s));
538 76193d7c 2003-09-30 devnull dprint("!\n");
539 76193d7c 2003-09-30 devnull Strinit(&owd);
540 76193d7c 2003-09-30 devnull Strduplstr(&owd, &curwd);
541 76193d7c 2003-09-30 devnull getcurwd();
542 76193d7c 2003-09-30 devnull settempfile();
543 76193d7c 2003-09-30 devnull for(i=0; i<tempfile.nused; i++){
544 76193d7c 2003-09-30 devnull f = tempfile.filepptr[i];
545 76193d7c 2003-09-30 devnull if(f!=cmd && f->name.s[0]!='/' && f->name.s[0]!=0){
546 76193d7c 2003-09-30 devnull Strinsert(&f->name, &owd, (Posn)0);
547 76193d7c 2003-09-30 devnull fixname(&f->name);
548 76193d7c 2003-09-30 devnull sortname(f);
549 76193d7c 2003-09-30 devnull }else if(f != cmd && Strispre(&curwd, &f->name)){
550 76193d7c 2003-09-30 devnull fixname(&f->name);
551 76193d7c 2003-09-30 devnull sortname(f);
554 76193d7c 2003-09-30 devnull Strclose(&owd);
558 76193d7c 2003-09-30 devnull loadflist(String *s)
560 76193d7c 2003-09-30 devnull int c, i;
562 76193d7c 2003-09-30 devnull c = s->s[0];
563 76193d7c 2003-09-30 devnull for(i = 0; s->s[i]==' ' || s->s[i]=='\t'; i++)
565 76193d7c 2003-09-30 devnull if((c==' ' || c=='\t') && s->s[i]!='\n'){
566 76193d7c 2003-09-30 devnull if(s->s[i]=='<'){
567 76193d7c 2003-09-30 devnull Strdelete(s, 0L, (long)i+1);
568 76193d7c 2003-09-30 devnull readcmd(s);
570 76193d7c 2003-09-30 devnull Strzero(&genstr);
571 76193d7c 2003-09-30 devnull while((c = s->s[i++]) && c!='\n')
572 76193d7c 2003-09-30 devnull Straddc(&genstr, c);
573 76193d7c 2003-09-30 devnull Straddc(&genstr, '\0');
576 76193d7c 2003-09-30 devnull if(c != '\n')
577 76193d7c 2003-09-30 devnull error(Eblank);
578 76193d7c 2003-09-30 devnull Strdupl(&genstr, empty);
580 76193d7c 2003-09-30 devnull if(genc)
581 76193d7c 2003-09-30 devnull free(genc);
582 76193d7c 2003-09-30 devnull genc = Strtoc(&genstr);
583 76193d7c 2003-09-30 devnull return genstr.s[0];
587 76193d7c 2003-09-30 devnull readflist(int readall, int delete)
591 76193d7c 2003-09-30 devnull File *f;
592 76193d7c 2003-09-30 devnull String t;
594 76193d7c 2003-09-30 devnull Strinit(&t);
595 76193d7c 2003-09-30 devnull for(i=0,f=0; f==0 || readall || delete; i++){ /* ++ skips blank */
596 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
597 76193d7c 2003-09-30 devnull for(i=0; (c = genstr.s[i])==' ' || c=='\t' || c=='\n'; i++)
599 76193d7c 2003-09-30 devnull if(i >= genstr.n)
601 76193d7c 2003-09-30 devnull Strdelete(&genstr, (Posn)0, i);
602 76193d7c 2003-09-30 devnull for(i=0; (c=genstr.s[i]) && c!=' ' && c!='\t' && c!='\n'; i++)
605 76193d7c 2003-09-30 devnull if(i == 0)
607 76193d7c 2003-09-30 devnull genstr.s[i] = 0;
608 76193d7c 2003-09-30 devnull Strduplstr(&t, tmprstr(genstr.s, i+1));
609 76193d7c 2003-09-30 devnull fixname(&t);
610 76193d7c 2003-09-30 devnull f = lookfile(&t);
611 76193d7c 2003-09-30 devnull if(delete){
612 76193d7c 2003-09-30 devnull if(f == 0)
613 76193d7c 2003-09-30 devnull warn_S(Wfile, &t);
615 76193d7c 2003-09-30 devnull trytoclose(f);
616 76193d7c 2003-09-30 devnull }else if(f==0 && readall)
617 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &t);
619 76193d7c 2003-09-30 devnull Strclose(&t);
620 76193d7c 2003-09-30 devnull return f;
624 76193d7c 2003-09-30 devnull tofile(String *s)
626 76193d7c 2003-09-30 devnull File *f;
628 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
629 76193d7c 2003-09-30 devnull error(Eblank);
630 76193d7c 2003-09-30 devnull if(loadflist(s) == 0){
631 76193d7c 2003-09-30 devnull f = lookfile(&genstr); /* empty string ==> nameless file */
632 76193d7c 2003-09-30 devnull if(f == 0)
633 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
634 76193d7c 2003-09-30 devnull }else if((f=readflist(FALSE, FALSE)) == 0)
635 76193d7c 2003-09-30 devnull error_s(Emenu, genc);
636 76193d7c 2003-09-30 devnull return current(f);
640 76193d7c 2003-09-30 devnull getfile(String *s)
642 76193d7c 2003-09-30 devnull File *f;
644 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
645 76193d7c 2003-09-30 devnull logsetname(f = newfile(), &genstr);
646 76193d7c 2003-09-30 devnull else if((f=readflist(TRUE, FALSE)) == 0)
647 76193d7c 2003-09-30 devnull error(Eblank);
648 76193d7c 2003-09-30 devnull return current(f);
652 76193d7c 2003-09-30 devnull closefiles(File *f, String *s)
654 76193d7c 2003-09-30 devnull if(s->s[0] == 0){
655 76193d7c 2003-09-30 devnull if(f == 0)
656 76193d7c 2003-09-30 devnull error(Enofile);
657 76193d7c 2003-09-30 devnull trytoclose(f);
660 76193d7c 2003-09-30 devnull if(s->s[0] != ' ')
661 76193d7c 2003-09-30 devnull error(Eblank);
662 76193d7c 2003-09-30 devnull if(loadflist(s) == 0)
663 76193d7c 2003-09-30 devnull error(Enewline);
664 76193d7c 2003-09-30 devnull readflist(FALSE, TRUE);
668 76193d7c 2003-09-30 devnull copy(File *f, Address addr2)
672 76193d7c 2003-09-30 devnull for(p=addr.r.p1; p<addr.r.p2; p+=ni){
673 76193d7c 2003-09-30 devnull ni = addr.r.p2-p;
674 76193d7c 2003-09-30 devnull if(ni > BLOCKSIZE)
675 76193d7c 2003-09-30 devnull ni = BLOCKSIZE;
676 522b0689 2003-09-30 devnull bufread(&f->b, p, genbuf, ni);
677 76193d7c 2003-09-30 devnull loginsert(addr2.f, addr2.r.p2, tmprstr(genbuf, ni)->s, ni);
679 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p2 = addr2.r.p2+(f->dot.r.p2-f->dot.r.p1);
680 76193d7c 2003-09-30 devnull addr2.f->ndot.r.p1 = addr2.r.p2;
684 76193d7c 2003-09-30 devnull move(File *f, Address addr2)
686 76193d7c 2003-09-30 devnull if(addr.r.p2 <= addr2.r.p2){
687 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
688 76193d7c 2003-09-30 devnull copy(f, addr2);
689 76193d7c 2003-09-30 devnull }else if(addr.r.p1 >= addr2.r.p2){
690 76193d7c 2003-09-30 devnull copy(f, addr2);
691 76193d7c 2003-09-30 devnull logdelete(f, addr.r.p1, addr.r.p2);
693 76193d7c 2003-09-30 devnull error(Eoverlap);
697 76193d7c 2003-09-30 devnull nlcount(File *f, Posn p0, Posn p1)
699 76193d7c 2003-09-30 devnull Posn nl = 0;
701 76193d7c 2003-09-30 devnull while(p0 < p1)
702 76193d7c 2003-09-30 devnull if(filereadc(f, p0++)=='\n')
704 76193d7c 2003-09-30 devnull return nl;
708 76193d7c 2003-09-30 devnull printposn(File *f, int charsonly)
710 76193d7c 2003-09-30 devnull Posn l1, l2;
712 76193d7c 2003-09-30 devnull if(!charsonly){
713 76193d7c 2003-09-30 devnull l1 = 1+nlcount(f, (Posn)0, addr.r.p1);
714 76193d7c 2003-09-30 devnull l2 = l1+nlcount(f, addr.r.p1, addr.r.p2);
715 76193d7c 2003-09-30 devnull /* check if addr ends with '\n' */
716 76193d7c 2003-09-30 devnull if(addr.r.p2>0 && addr.r.p2>addr.r.p1 && filereadc(f, addr.r.p2-1)=='\n')
718 76193d7c 2003-09-30 devnull dprint("%lud", l1);
719 76193d7c 2003-09-30 devnull if(l2 != l1)
720 76193d7c 2003-09-30 devnull dprint(",%lud", l2);
721 76193d7c 2003-09-30 devnull dprint("; ");
723 76193d7c 2003-09-30 devnull dprint("#%lud", addr.r.p1);
724 76193d7c 2003-09-30 devnull if(addr.r.p2 != addr.r.p1)
725 76193d7c 2003-09-30 devnull dprint(",#%lud", addr.r.p2);
726 76193d7c 2003-09-30 devnull dprint("\n");
730 76193d7c 2003-09-30 devnull settempfile(void)
732 76193d7c 2003-09-30 devnull if(tempfile.nalloc < file.nused){
733 76193d7c 2003-09-30 devnull free(tempfile.listptr);
734 76193d7c 2003-09-30 devnull tempfile.listptr = emalloc(sizeof(*tempfile.filepptr)*file.nused);
735 76193d7c 2003-09-30 devnull tempfile.nalloc = file.nused;
737 76193d7c 2003-09-30 devnull tempfile.nused = file.nused;
738 76193d7c 2003-09-30 devnull memmove(&tempfile.filepptr[0], &file.filepptr[0], file.nused*sizeof(File*));