?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* new version 2.19.9999
[alpine.git] / pico / browse.c
blob96f078f4cee3e69ca124a336cb7d63e78df22340
1 #if !defined(lint) && !defined(DOS)
2 static char rcsid[] = "$Id: browse.c 942 2008-03-04 18:21:33Z hubert@u.washington.edu $";
3 #endif
4
5 /*
6 * ========================================================================
7 * Copyright 2006-2008 University of Washington
8 * Copyright 2013-2015 Eduardo Chappa
9 *
10 * Licensed under the Apache License, Version 2.0 (the "License");
11 * you may not use this file except in compliance with the License.
12 * You may obtain a copy of the License at
13 *
14 * http://www.apache.org/licenses/LICENSE-2.0
15 *
16 * ========================================================================
17 *
18 * Program: Routines to support file browser in pico and Pine composer
19 *
20 *
21 * NOTES:
22 *
23 * Misc. thoughts (mss, 5 Apr 92)
24 *
25 * This is supposed to be just a general purpose browser, equally
26 * callable from either pico or the pine composer. Someday, it could
27 * even be used to "wrap" the unix file business for really novice
28 * users. The stubs are here for renaming, copying, creating directories,
29 * deleting, undeleting (thought is delete just moves files to
30 * ~/.pico.deleted directory or something and undelete offers the
31 * files in there for undeletion: kind of like the mac trashcan).
32 *
33 * Nice side effects
34 *
35 * Since the full path name is always maintained and referencing ".."
36 * stats the path stripped of its trailing name, the unpleasantness of
37 * symbolic links is hidden.
38 *
39 * Fleshed out the file managements stuff (mss, 24 June 92)
40 *
41 *
42 */
43 #include "headers.h"
44 #include "../c-client/mail.h"
45 #include "../c-client/rfc822.h"
46 #include "../pith/osdep/collate.h"
47 #include "../pith/charconv/filesys.h"
48 #include "../pith/conf.h"
49
50 #ifndef _WINDOWS
51
52 #if defined(bsd) || defined(lnx)
53 extern int errno;
54 #endif
55
56
57 /*
58 * directory cell structure
59 */
60 struct fcell {
61 char *fname; /* file name */
62 unsigned mode; /* file's mode */
63 char size[16]; /* file's size in s */
64 struct fcell *next;
65 struct fcell *prev;
66 };
67
68
69 /*
70 * master browser structure
71 */
72 static struct bmaster {
73 struct fcell *head; /* first cell in list */
74 struct fcell *bottom; /* last cell in list */
75 struct fcell *top; /* cell in top left */
76 struct fcell *current; /* currently selected */
77 int longest; /* longest file name (in screen width) */
78 int fpl; /* file names per line */
79 int cpf; /* chars / file / line */
80 int flags;
81 char dname[NLINE]; /* this dir's name (UTF-8) */
82 char *names; /* malloc'd name array (UTF-8) */
83 LMLIST *lm;
84 } *gmp; /* global master ptr */
85
86
87 /*
88 * title for exported browser display
89 */
90 static char *browser_title = NULL;
91
92
93 struct bmaster *getfcells(char *, int);
94 void PaintCell(int, int, int, struct fcell *, int);
95 void PaintBrowser(struct bmaster *, int, int *, int *);
96 void BrowserKeys(void);
97 void layoutcells(struct bmaster *);
98 void percdircells(struct bmaster *);
99 int PlaceCell(struct bmaster *, struct fcell *, int *, int *);
100 void zotfcells(struct fcell *);
101 void zotmaster(struct bmaster **);
102 struct fcell *FindCell(struct bmaster *, char *, int);
103 int sisin(char *, char *);
104 void p_chdir(struct bmaster *);
105 void BrowserAnchor(char *);
106 void ClearBrowserScreen(void);
107 void BrowserRunChild(char *, char *);
108 int fcell_is_selected(struct fcell *, struct bmaster *);
109 void add_cell_to_lmlist(struct fcell *, struct bmaster *);
110 void del_cell_from_lmlist(struct fcell *, struct bmaster *);
111
112
113 static KEYMENU menu_browse[] = {
114 {"?", N_("Get Help"), KS_SCREENHELP}, {NULL, NULL, KS_NONE},
115 {NULL, NULL, KS_NONE}, {"-", N_("Prev Pg"), KS_PREVPAGE},
116 {"D", N_("Delete"), KS_NONE}, {"C",N_("Copy"), KS_NONE},
117 {NULL, NULL, KS_NONE}, {NULL, NULL, KS_NONE},
118 {"W", N_("Where is"), KS_NONE}, {"Spc", N_("Next Pg"), KS_NEXTPAGE},
119 {"R", N_("Rename"), KS_NONE}, {NULL, NULL, KS_NONE}
120 };
121 #define QUIT_KEY 1
122 #define EXEC_KEY 2
123 #define GOTO_KEY 6
124 #define SELECT_KEY 7
125 #define PICO_KEY 11
126
127
128 #define DIRWORD "dir"
129 #define PARENTDIR "parent"
130 #define SELECTWORD "SELECT"
131
132
133 /*
134 * Default pager used by the stand-alone file browser.
135 */
136 #define BROWSER_PAGER ((gmode & MDFKEY) ? "pine -k -F" : "pine -F")
137
138
139 /*
140 * function key mappings for callable browser
141 */
142 static UCS bfmappings[2][12][2] = { { { F1, '?'}, /* stand alone */
143 { F2, NODATA }, /* browser function */
144 { F3, 'q'}, /* key mappings... */
145 { F4, 'v'},
146 { F5, 'l'},
147 { F6, 'w'},
148 { F7, '-'},
149 { F8, ' '},
150 { F9, 'd'},
151 { F10, 'r'},
152 { F11, 'c'},
153 { F12, 'e'} },
154 { { F1, '?'}, /* callable browser */
155 { F2, NODATA }, /* function key */
156 { F3, 'e'}, /* mappings... */
157 { F4, 's'},
158 { F5, NODATA },
159 { F6, 'w'},
160 { F7, '-'},
161 { F8, ' '},
162 { F9, 'd'},
163 { F10, 'r'},
164 { F11, 'c'},
165 { F12, 'a'} } };
166
167
168 /*
169 * Browser help for pico (pine composer help handed to us by pine)
170 */
171 static char *BrowseHelpText[] = {
172 /* TRANSLATORS: The next several lines go together. The ~ characters
173 should be left in front of the characters they cause to be bold. */
174 N_("Help for Browse Command"),
175 " ",
176 N_(" Pico's file browser is used to select a file from the"),
177 N_(" file system for inclusion in the edited text."),
178 " ",
179 N_("~ Both directories and files are displayed. Press ~S"),
180 N_("~ or ~R~e~t~u~r~n to select a file or directory. When a file"),
181 N_(" is selected during the \"Read File\" command, it is"),
182 N_(" inserted into edited text. Answering \"yes\" to the"),
183 N_(" verification question after a directory is selected causes"),
184 N_(" the contents of that directory to be displayed for selection."),
185 " ",
186 N_(" The file named \"..\" is special, and means the \"parent\""),
187 N_(" of the directory being displayed. Select this directory"),
188 N_(" to move upward in the directory tree."),
189 " ",
190 N_("End of Browser Help."),
191 " ",
192 NULL
193 };
194
195 /*
196 * Help for standalone browser (pilot)
197 */
198 static char *sa_BrowseHelpText[] = {
199 /* TRANSLATORS: Some more help text */
200 N_("Help for Pilot (PIne's Looker-upper Of Things"),
201 " ",
202 N_(" Pilot is a simple, display-oriented file system browser based on the"),
203 N_("~ Alpine message system composer. As with Alpine, commands are displayed at"),
204 N_("~ the bottom of the screen, and context-sensitive help is provided."),
205 " ",
206 N_("~ Pilot displays the current working directory at the top of the screen."),
207 N_("~ The directory's contents are displayed in columns of file name, file"),
208 N_("~ size pairs. Names that are directories are indicated by the name"),
209 N_("~ ~(~d~i~r~) in place of the file size. The parent of the current working"),
210 N_("~ directory is indicated by the file name ~.~. and size of ~(~p~a~r~e~n~t~ ~d~i~r~)."),
211 N_("~ File names that are symbolic links to other files are displayed with a"),
212 N_("~ file size of ~-~-."),
213 " ",
214 N_(" The following function keys are available in Pilot:"),
215 " ",
216 N_("~ ~? Display this help text."),
217 N_("~ ~Q Quit Pilot."),
218 " ",
219 N_("~ ~V View the currently selected file or open the selected directory."),
220 N_("~ Note: Pilot invokes ~p~i~n~e ~-~F, or the program defined by the ~P~A~G~E~R"),
221 N_("~ environment variable, to view the file."),
222 N_("~ ~L Launch an external application program."),
223 " ",
224 N_("~ ~W Search for a file by name."),
225 N_("~ ~- Scroll up one page."),
226 N_("~ ~S~p~a~c~e Scroll down one page."),
227 N_("~ ~N,~^~F Move forward (right) one column."),
228 N_("~ ~P,~^~B Move back (left) one column."),
229 N_("~ ~^~N Move down one row."),
230 N_("~ ~^~P Move up one row."),
231 " ",
232 N_("~ ~D Delete the selected file."),
233 N_("~ ~R Rename the selected file or directory."),
234 N_("~ ~C Copy the selected file."),
235 N_("~ ~E Edit the selected file."),
236 N_("~ Note: Pilot invokes ~p~i~c~o, or the program defined by the ~E~D~I~T~O~R"),
237 N_("~ environment variable, to edit the file."),
238 " ",
239 N_("End of Pilot Help."),
240 NULL
241 };
242
243
244
245 /*
246 * pico_file_browse - Exported version of FileBrowse below.
247 */
248 int
249 pico_file_browse(PICO *pdata, char *dir, size_t dirlen, char *fn, size_t fnlen,
250 char *sz, size_t szlen, int flags)
251 {
252 int rv;
253 char title_buf[64];
254
255 Pmaster = pdata;
256 gmode = pdata->pine_flags | MDEXTFB;
257 km_popped = 0;
258
259 /* only init screen bufs for display and winch handler */
260 if(!vtinit())
261 return(-1);
262
263 if(Pmaster){
264 term.t_mrow = Pmaster->menu_rows;
265 if(Pmaster->oper_dir)
266 strncpy(opertree, Pmaster->oper_dir, NLINE);
267
268 if(*opertree)
269 fixpath(opertree, sizeof(opertree));
270 }
271
272 /* install any necessary winch signal handler */
273 ttresize();
274
275 snprintf(title_buf, sizeof(title_buf), "%s FILE", pdata->pine_anchor);
276 set_browser_title(title_buf);
277 rv = FileBrowse(dir, dirlen, fn, fnlen, sz, szlen, flags, NULL);
278 set_browser_title(NULL);
279 vttidy(); /* clean up tty handling */
280 zotdisplay(); /* and display structures */
281 Pmaster = NULL; /* and global config structure */
282 return(rv);
283 }
284
285
286
287 /*
288 * FileBrowse - display contents of given directory dir
289 *
290 * intput:
291 * dir points to initial dir to browse.
292 * dirlen- buffer size of dir
293 * fn initial file name.
294 * fnlen- buffer size of fn
295 *
296 * returns:
297 * dir points to currently selected directory (without
298 * trailing file system delimiter)
299 * fn points to currently selected file
300 * sz points to size of file if ptr passed was non-NULL
301 * flags
302 *
303 * Special dispensation for FB_LMODE. If the caller sets
304 * FB_LMODEPOS, and the caller passes a non-null lmreturn,
305 * then the return values will be in lmreturn instead of
306 * in dir and fn. The caller is responsible for freeing
307 * the contents of lmreturn.
308 *
309 * 1 if a file's been selected
310 * 0 if no files selected
311 * -1 if there were problems
312 */
313 int
314 FileBrowse(char *dir, size_t dirlen, char *fn, size_t fnlen,
315 char *sz, size_t szlen, int fb_flags, LMLIST **lmreturn)
316 {
317 UCS c, new_c;
318 int status, i, j;
319 int row, col, crow, ccol;
320 int bsearch; /* search forward by default */
321 char *p, *envp, child[NLINE], tmp[NLINE];
322 struct bmaster *mp;
323 struct fcell *tp;
324 EML eml;
325 #ifdef MOUSE
326 MOUSEPRESS mousep;
327 #endif
328
329 child[0] = '\0';
330
331 if((gmode&MDTREE) && !in_oper_tree(dir)){
332 eml.s = opertree;
333 emlwrite(_("\007Can't read outside of %s in restricted mode"), &eml);
334 sleep(2);
335 return(0);
336 }
337
338 if(gmode&MDGOTO){
339 /* fix up function key mapping table */
340 /* fix up key menu labels */
341 }
342
343 /* build contents of cell structures */
344 if((gmp = getfcells(dir, fb_flags)) == NULL)
345 return(-1);
346
347 tp = NULL;
348 if(fn && *fn){
349 if((tp = FindCell(gmp, fn, 0)) != NULL){
350 gmp->current = tp;
351 PlaceCell(gmp, gmp->current, &row, &col);
352 }
353 }
354
355 /* paint screen */
356 PaintBrowser(gmp, 0, &crow, &ccol);
357
358 while(1){ /* the big loop */
359 if(!(gmode&MDSHOCUR)){
360 crow = term.t_nrow-term.t_mrow;
361 ccol = 0;
362 }
363
364 if(!(gmode&MDSHOCUR))
365 movecursor(crow, ccol);
366 else if(gmp->flags & FB_LMODEPOS){
367 if(gmp->flags & FB_LMODE && gmp->current->mode != FIODIR)
368 movecursor(crow, ccol+1);
369 else
370 movecursor(crow, ccol+4);
371 }
372 else
373 movecursor(crow, ccol);
374
375 if(km_popped){
376 km_popped--;
377 if(km_popped == 0)
378 /* cause bottom three lines to repaint */
379 PaintBrowser(gmp, 0, &crow, &ccol);
380 }
381
382 if(km_popped){ /* temporarily change to cause menu to paint */
383 term.t_mrow = 2;
384 movecursor(term.t_nrow-2, 0); /* clear status line */
385 peeol();
386 BrowserKeys();
387 term.t_mrow = 0;
388 }
389
390 (*term.t_flush)();
391
392 #ifdef MOUSE
393 mouse_in_content(KEY_MOUSE, -1, -1, 0, 0);
394 register_mfunc(mouse_in_content,2,0,term.t_nrow-(term.t_mrow+1),
395 term.t_ncol);
396 #endif
397 c = GetKey();
398 #ifdef MOUSE
399 clear_mfunc(mouse_in_content);
400 #endif
401
402 if(Pmaster){
403 if(Pmaster->newmail && (c == NODATA || time_to_check())){
404 if((*Pmaster->newmail)(c == NODATA ? 0 : 2, 1) >= 0){
405 int rv;
406
407 if(km_popped){ /* restore display */
408 km_popped = 0;
409 PaintBrowser(gmp, 0, &crow, &ccol);
410 }
411
412 clearcursor();
413 mlerase();
414 rv = (*Pmaster->showmsg)(c);
415 ttresize();
416 picosigs();
417 if(rv) /* Did showmsg corrupt the display? */
418 PaintBrowser(gmp, 0, &crow, &ccol); /* Yes, repaint */
419
420 mpresf = 1;
421 }
422
423 clearcursor();
424 if(gmp->flags & FB_LMODEPOS){
425 if(gmp->flags & FB_LMODE && gmp->current->mode != FIODIR)
426 movecursor(crow, ccol+1);
427 else
428 movecursor(crow, ccol+4);
429 }
430 else
431 movecursor(crow, ccol);
432 }
433 }
434 else{
435 if(get_input_timeout() && (c == NODATA || time_to_check()))
436 if(pico_new_mail())
437 emlwrite(_("You may possibly have new mail."), NULL);
438 }
439
440 if(km_popped)
441 switch(c){
442 case NODATA:
443 case (CTRL|'L'):
444 km_popped++;
445 break;
446
447 default:
448 /* clear bottom three lines */
449 movecursor(term.t_nrow-2, 0);
450 peeol();
451 movecursor(term.t_nrow-1, 0);
452 peeol();
453 movecursor(term.t_nrow, 0);
454 peeol();
455 break;
456 }
457
458 if(c == NODATA) /* GetKey timed out */
459 continue;
460 else if(Pmaster)
461 (*Pmaster->keybinput)();
462
463
464 if(mpresf){ /* blast old messages */
465 if(mpresf++ > MESSDELAY){ /* every few keystrokes */
466 mlerase();
467 }
468 }
469
470 /* process commands */
471 switch(new_c = normalize_cmd(c,bfmappings[(gmode&MDBRONLY)?0:1],2)){
472
473 case KEY_RIGHT: /* move right */
474 case (CTRL|'@'):
475 case (CTRL|'F'): /* forward */
476 case 'n' :
477 case 'N' :
478 if(gmp->current->next == NULL){
479 (*term.t_beep)();
480 break;
481 }
482
483 PlaceCell(gmp, gmp->current, &row, &col);
484 PaintCell(row, col, gmp->cpf, gmp->current, 0);
485 gmp->current = gmp->current->next;
486 if(PlaceCell(gmp, gmp->current, &row, &col)){
487 PaintBrowser(gmp, 1, &crow, &ccol);
488 }
489 else{
490 PaintCell(row, col, gmp->cpf, gmp->current, 1);
491 crow = row;
492 ccol = col;
493 }
494 break;
495
496 case KEY_LEFT: /* move left */
497 case (CTRL|'B'): /* back */
498 case 'p' :
499 case 'P' :
500 if(gmp->current->prev == NULL){
501 (*term.t_beep)();
502 break;
503 }
504
505 PlaceCell(gmp, gmp->current, &row, &col);
506 PaintCell(row, col, gmp->cpf, gmp->current, 0);
507 gmp->current = gmp->current->prev;
508 if(PlaceCell(gmp, gmp->current, &row, &col)){
509 PaintBrowser(gmp, 1, &crow, &ccol);
510 }
511 else{
512 PaintCell(row, col, gmp->cpf, gmp->current, 1);
513 crow = row;
514 ccol = col;
515 }
516 break;
517
518 case (CTRL|'A'): /* beginning of line */
519 tp = gmp->current;
520 i = col;
521 while(i > 0){
522 i -= gmp->cpf;
523 if(tp->prev != NULL)
524 tp = tp->prev;
525 }
526 PlaceCell(gmp, gmp->current, &row, &col);
527 PaintCell(row, col, gmp->cpf, gmp->current, 0);
528 gmp->current = tp;
529 if(PlaceCell(gmp, tp, &row, &col)){
530 PaintBrowser(gmp, 1, &crow, &ccol);
531 }
532 else{
533 PaintCell(row, col, gmp->cpf, gmp->current, 1);
534 crow = row;
535 ccol = col;
536 }
537 break;
538
539 case (CTRL|'E'): /* end of line */
540 tp = gmp->current;
541 i = col + gmp->cpf;
542 while(i+gmp->cpf <= gmp->cpf * gmp->fpl){
543 i += gmp->cpf;
544 if(tp->next != NULL)
545 tp = tp->next;
546 }
547
548 PlaceCell(gmp, gmp->current, &row, &col);
549 PaintCell(row, col, gmp->cpf, gmp->current, 0);
550 gmp->current = tp;
551 if(PlaceCell(gmp, tp, &row, &col)){
552 PaintBrowser(gmp, 1, &crow, &ccol);
553 }
554 else{
555 PaintCell(row, col, gmp->cpf, gmp->current, 1);
556 crow = row;
557 ccol = col;
558 }
559 break;
560
561 case (CTRL|'V'): /* page forward */
562 case ' ':
563 case KEY_PGDN :
564 case KEY_END :
565 tp = gmp->top;
566 i = term.t_nrow - term.t_mrow - 2;
567
568 while(i-- && tp->next != NULL){
569 j = 0;
570 while(++j <= gmp->fpl && tp->next != NULL)
571 tp = tp->next;
572 }
573
574 if(tp == NULL)
575 continue;
576
577 PlaceCell(gmp, gmp->current, &row, &col);
578 PaintCell(row, col, gmp->cpf, gmp->current, 0);
579 gmp->current = tp;
580 if(PlaceCell(gmp, tp, &row, &col)){
581 PaintBrowser(gmp, 1, &crow, &ccol);
582 }
583 else{
584 PaintCell(row, col, gmp->cpf, gmp->current, 1);
585 crow = row;
586 ccol = col;
587 }
588 break;
589
590 case '-' :
591 case (CTRL|'Y'): /* page backward */
592 case KEY_PGUP :
593 case KEY_HOME :
594 tp = gmp->top;
595 i = term.t_nrow - term.t_mrow - 4;
596 while(i-- && tp != NULL){
597 j = gmp->fpl;
598 while(j-- && tp != NULL)
599 tp = tp->prev;
600 }
601
602 if(tp || (gmp->current != gmp->top)){ /* clear old hilite */
603 PlaceCell(gmp, gmp->current, &row, &col);
604 PaintCell(row, col, gmp->cpf, gmp->current, 0);
605 }
606
607 if(tp) /* new page ! */
608 gmp->current = tp;
609 else if(gmp->current != gmp->top) /* goto top of page */
610 gmp->current = gmp->top;
611 else /* do nothing */
612 continue;
613
614 if(PlaceCell(gmp, gmp->current, &row, &col)){
615 PaintBrowser(gmp, 1, &crow, &ccol);
616 }
617 else{
618 PaintCell(row, col, gmp->cpf, gmp->current, 1);
619 crow = row;
620 ccol = col;
621 }
622
623 break;
624
625 case KEY_DOWN :
626 case (CTRL|'N'): /* next */
627 tp = gmp->current;
628 i = gmp->fpl;
629 while(i--){
630 if(tp->next == NULL){
631 (*term.t_beep)();
632 break;
633 }
634 else
635 tp = tp->next;
636 }
637 if(i != -1) /* can't go down */
638 break;
639
640 PlaceCell(gmp, gmp->current, &row, &col);
641 PaintCell(row, col, gmp->cpf, gmp->current, 0);
642 gmp->current = tp;
643 if(PlaceCell(gmp, tp, &row, &col)){
644 PaintBrowser(gmp, 1, &crow, &ccol);
645 }
646 else{
647 PaintCell(row, col, gmp->cpf, gmp->current, 1);
648 crow = row;
649 ccol = col;
650 }
651 break;
652
653 case KEY_UP :
654 case (CTRL|'P'): /* previous */
655 tp = gmp->current;
656 i = gmp->fpl;
657 while(i-- && tp)
658 tp = tp->prev;
659
660 if(tp == NULL)
661 break;
662
663 PlaceCell(gmp, gmp->current, &row, &col);
664 PaintCell(row, col, gmp->cpf, gmp->current, 0);
665 gmp->current = tp;
666 if(PlaceCell(gmp, tp, &row, &col)){
667 PaintBrowser(gmp, 1, &crow, &ccol);
668 }
669 else{
670 PaintCell(row, col, gmp->cpf, gmp->current, 1);
671 crow = row;
672 ccol = col;
673 }
674 break;
675
676 #ifdef MOUSE
677 case KEY_MOUSE:
678 mouse_get_last (NULL, &mousep);
679 if (mousep.doubleclick) {
680 goto Selected;
681 }
682 else {
683 row = mousep.row -= 2; /* Adjust for header*/
684 col = mousep.col;
685 i = row * gmp->fpl + (col / gmp->cpf); /* Count from top */
686 tp = gmp->top; /* start at top. */
687 for (; i > 0 && tp != NULL; --i) /* Count cells. */
688 tp = tp->next;
689 if (tp != NULL) { /* Valid cell? */
690 PlaceCell(gmp, gmp->current, &row, &col);
691 PaintCell(row, col, gmp->cpf, gmp->current, 0);
692 gmp->current = tp;
693 if(PlaceCell(gmp, tp, &row, &col)){
694 PaintBrowser(gmp, 1, &crow, &ccol);
695 }
696 else{
697 PaintCell(row, col, gmp->cpf, gmp->current, 1);
698 crow = row;
699 ccol = col;
700 }
701 }
702 }
703 break;
704 #endif
705
706 case 'e': /* exit or edit */
707 case 'E':
708 if(gmode&MDBRONLY){ /* run "pico" */
709 snprintf(child, sizeof(child), "%s%c%s", gmp->dname, C_FILESEP,
710 gmp->current->fname);
711 /* make sure selected isn't a directory or executable */
712 if(!LikelyASCII(child)){
713 emlwrite(_("Can't edit non-text file. Try Launch."), NULL);
714 break;
715 }
716
717 if((envp = (char *) getenv("EDITOR")) != NULL)
718 snprintf(tmp, sizeof(tmp), "%s \'%s\'", envp, child);
719 else
720 snprintf(tmp, sizeof(tmp), "pico%s%s%s \'%s\'",
721 (gmode & MDFKEY) ? " -f" : "",
722 (gmode & MDSHOCUR) ? " -g" : "",
723 (gmode & MDMOUSE) ? " -m" : "",
724 child);
725
726 BrowserRunChild(tmp, gmp->dname); /* spawn pico */
727 PaintBrowser(gmp, 0, &crow, &ccol); /* redraw browser */
728 }
729 else{
730 zotmaster(&gmp);
731 return(0);
732 }
733
734 break;
735
736 case 'q': /* user exits wrong */
737 case 'Q':
738 if(gmode&MDBRONLY){
739 zotmaster(&gmp);
740 return(0);
741 }
742
743 unknown_command(c);
744 break;
745
746 case 'x': /* toggle selection */
747 case 'X':
748 if(!(gmp->flags & FB_LMODE)){
749 if(gmp->flags & FB_LMODEPOS)
750 emlwrite(_("\007Type L command to use ListMode"), NULL);
751 else
752 unknown_command(c);
753
754 break;
755 }
756
757 if(gmp->current->mode == FIODIR){
758 emlwrite(_("\007Can't Set directories"), NULL);
759 break;
760 }
761
762 if(fcell_is_selected(gmp->current, gmp))
763 del_cell_from_lmlist(gmp->current, gmp);
764 else
765 add_cell_to_lmlist(gmp->current, gmp);
766
767 PlaceCell(gmp, gmp->current, &row, &col);
768 PaintCell(row, col, gmp->cpf, gmp->current, 1);
769 break;
770
771 case 'l': /* run Command */
772 case 'L': /* or ListMode */
773 if(gmp->flags & FB_LMODEPOS){
774 if(gmp->flags & FB_LMODE){
775 /*
776 * Unless we make it so you can get out of ListMode
777 * once you're in ListMode, this must be an error.
778 */
779 emlwrite(_("\007Already in ListMode"), NULL);
780 break;
781 }
782 else{
783 gmp->flags |= FB_LMODE;
784 PaintBrowser(gmp, 0, &crow, &ccol);
785 }
786
787 break;
788 }
789
790 if(!(gmode&MDBRONLY)){
791 unknown_command(c);
792 break;
793 }
794
795 /* add subcommands to invoke pico and insert selected filename */
796 /* perhaps: add subcmd to scroll command history */
797
798 tmp[0] = '\0';
799 i = 0;
800 snprintf(child, sizeof(child), "%s%c%s", gmp->dname, C_FILESEP,
801 gmp->current->fname);
802 while(!i){
803 static EXTRAKEYS opts[] = {
804 {"^X", N_("Add Name"), CTRL|'X', KS_NONE},
805 {NULL, NULL, 0, KS_NONE},
806 };
807
808 status = mlreply_utf8(_("Command to execute: "),
809 tmp, NLINE, QNORML, opts);
810 switch(status){
811 case HELPCH:
812 emlwrite(_("\007No help yet!"), NULL);
813 /* remove break and sleep after help text is installed */
814 sleep(3);
815 break;
816 case (CTRL|'X'):
817 strncat(tmp, child, sizeof(tmp)-strlen(tmp)-1);
818 tmp[sizeof(tmp)-1] = '\0';
819 break;
820 case (CTRL|'L'):
821 PaintBrowser(gmp, 0, &crow, &ccol);
822 break;
823 case ABORT:
824 emlwrite(_("Command cancelled"), NULL);
825 i++;
826 break;
827 case FALSE:
828 case TRUE:
829 i++;
830
831 if(tmp[0] == '\0'){
832 emlwrite(_("No command specified"), NULL);
833 break;
834 }
835
836 BrowserRunChild(tmp, gmp->dname);
837 PaintBrowser(gmp, 0, &crow, &ccol);
838 break;
839 default:
840 break;
841 }
842 }
843
844 BrowserKeys();
845 break;
846
847 case 'd': /* delete */
848 case 'D':
849 if(gmp->current->mode == FIODIR){
850 /* BUG: if dir is empty it should be deleted */
851 emlwrite(_("\007Can't delete a directory"), NULL);
852 break;
853 }
854
855 if(gmode&MDSCUR){ /* not allowed! */
856 emlwrite(_("Delete not allowed in restricted mode"),NULL);
857 break;
858 }
859
860 snprintf(child, sizeof(child), "%s%c%s", gmp->dname, C_FILESEP,
861 gmp->current->fname);
862
863 i = 0;
864 while(i++ < 2){ /* verify twice!! */
865 if(i == 1){
866 if(fexist(child, "w", (off_t *)NULL) != FIOSUC){
867 strncpy(tmp, _("File is write protected! OVERRIDE"), sizeof(tmp));
868 tmp[sizeof(tmp)-1] = '\0';
869 }
870 else
871 /* TRANSLATORS: This is a question, Delete file <filename> */
872 snprintf(tmp, sizeof(tmp), _("Delete file \"%.*s\""), NLINE - 20, child);
873 }
874 else{
875 strncpy(tmp, _("File CANNOT be UNdeleted! Really delete"), sizeof(tmp));
876 tmp[sizeof(tmp)-1] = '\0';
877 }
878
879 if((status = mlyesno_utf8(tmp, FALSE)) != TRUE){
880 emlwrite((status == ABORT)
881 ? _("Delete Cancelled")
882 : _("File Not Deleted"),
883 NULL);
884 break;
885 }
886 }
887
888 if(status == TRUE){
889 if(our_unlink(child) < 0){
890 eml.s = errstr(errno);
891 emlwrite(_("Delete Failed: %s"), &eml);
892 }
893 else{ /* fix up pointers and redraw */
894 tp = gmp->current;
895 if(tp->next){
896 gmp->current = tp->next;
897 if((tp->next->prev = tp->prev) != NULL)
898 tp->prev->next = tp->next;
899 }
900 else if(tp->prev) {
901 gmp->current = tp->prev;
902 if((tp->prev->next = tp->next) != NULL)
903 tp->next->prev = tp->prev;
904 }
905
906 if(tp == gmp->head)
907 gmp->head = tp->next;
908
909 if(tp == gmp->bottom)
910 gmp->bottom = tp->prev;
911
912 tp->fname = NULL;
913 tp->next = tp->prev = NULL;
914 if(tp != gmp->current)
915 free((char *) tp);
916
917 if((tp = FindCell(gmp, gmp->current->fname, 0)) != NULL){
918 gmp->current = tp;
919 PlaceCell(gmp, gmp->current, &row, &col);
920 }
921
922 PaintBrowser(gmp, 1, &crow, &ccol);
923 mlerase();
924 }
925 }
926
927 BrowserKeys();
928 break;
929
930 case '?': /* HELP! */
931 case (CTRL|'G'):
932 if(term.t_mrow == 0){
933 if(km_popped == 0){
934 km_popped = 2;
935 break;
936 }
937 }
938
939 if(Pmaster){
940 VARS_TO_SAVE *saved_state;
941
942 saved_state = save_pico_state();
943 (*Pmaster->helper)(Pmaster->browse_help,
944 _("Help for Browsing"), 1);
945 if(saved_state){
946 restore_pico_state(saved_state);
947 free_pico_state(saved_state);
948 }
949 }
950 else if(gmode&MDBRONLY)
951 pico_help(sa_BrowseHelpText, _("Browser Help"), 1);
952 else
953 pico_help(BrowseHelpText, _("Help for Browsing"), 1);
954 /* fall thru to repaint everything */
955
956 case (CTRL|'L'):
957 PaintBrowser(gmp, 0, &crow, &ccol);
958 break;
959
960 case 'g': /* jump to a directory */
961 case 'G':
962
963 if(!(gmode&MDGOTO))
964 goto Default;
965
966 i = 0;
967 child[0] = '\0';
968
969 while(!i){
970
971 /* TRANSLATORS: A prompt asking for a directory to
972 move into */
973 status = mlreply_utf8(_("Directory to go to: "), child, NLINE, QNORML,
974 NULL);
975
976 switch(status){
977 case HELPCH:
978 emlwrite(_("\007No help yet!"), NULL);
979 /* remove break and sleep after help text is installed */
980 sleep(3);
981 break;
982 case (CTRL|'L'):
983 PaintBrowser(gmp, 0, &crow, &ccol);
984 break;
985 case ABORT:
986 emlwrite(_("Goto cancelled"), NULL);
987 i++;
988 break;
989 case FALSE:
990 case TRUE:
991 i++;
992
993 if(*child == '\0'){
994 strncpy(child, gethomedir(NULL), sizeof(child));
995 child[sizeof(child)-1] = '\0';
996 }
997
998 if(!compresspath(gmp->dname, child, sizeof(child))){
999 eml.s = child;
1000 emlwrite(_("Invalid Directory: %s"), &eml);
1001 break;
1002 }
1003
1004 if((gmode&MDSCUR) && homeless(child)){
1005 emlwrite(_("Restricted mode browsing limited to home directory"),NULL);
1006 break;
1007 }
1008
1009 if((gmode&MDTREE) && !in_oper_tree(child)){
1010 eml.s = opertree;
1011 emlwrite(_("\007 Can't go outside of %s in restricted mode"),
1012 &eml);
1013 break;
1014 }
1015
1016 if(isdir(child, (long *) NULL, NULL)){
1017 if((mp = getfcells(child, fb_flags)) == NULL){
1018 /* getfcells should explain what happened */
1019 i++;
1020 break;
1021 }
1022
1023 zotmaster(&gmp);
1024 gmp = mp;
1025 PaintBrowser(gmp, 0, &crow, &ccol);
1026 }
1027 else{
1028 eml.s = child;
1029 emlwrite(_("\007Not a directory: \"%s\""), &eml);
1030 }
1031
1032 break;
1033 default:
1034 break;
1035 }
1036 }
1037 BrowserKeys();
1038 break;
1039
1040 case 'a': /* Add */
1041 case 'A':
1042 if(gmode&MDSCUR){ /* not allowed! */
1043 emlwrite(_("Add not allowed in restricted mode"),NULL);
1044 break;
1045 }
1046
1047 i = 0;
1048 child[0] = '\0';
1049 /* pass in default filename */
1050 if(fn && *fn){
1051 strncpy(child, fn, sizeof(child) - 1);
1052 child[sizeof(child) - 1] = '\0';
1053 }
1054
1055 while(!i){
1056
1057 switch(status=mlreply_utf8(_("Name of file to add: "), child, NLINE,
1058 QFFILE, NULL)){
1059 case HELPCH:
1060 emlwrite(_("\007No help yet!"), NULL);
1061 /* remove break and sleep after help text is installed */
1062 sleep(3);
1063 break;
1064 case (CTRL|'L'):
1065 PaintBrowser(gmp, 0, &crow, &ccol);
1066 break;
1067 case ABORT:
1068 emlwrite(_("Add File Cancelled"), NULL);
1069 i++;
1070 break;
1071 case FALSE:
1072 /*
1073 * Support default filename. A return of 'FALSE' means
1074 * 'No change in filename' which is fine if we have
1075 * provided a default.
1076 * John Berthels <john.berthels@nexor.co.uk>
1077 */
1078 /* FALLTHROUGH */
1079 case TRUE:
1080 i++;
1081
1082 if(child[0] == '\0'){
1083 emlwrite(_("No file named. Add Cancelled."), NULL);
1084 break;
1085 }
1086
1087 if(!compresspath(gmp->dname, child, sizeof(child))){
1088 emlwrite(_("Too many ..'s in name"), NULL);
1089 break;
1090 }
1091
1092 if((gmode&MDTREE) && !in_oper_tree(child)){
1093 eml.s = opertree;
1094 emlwrite(_("\007Restricted mode allows Add in %s only"),
1095 &eml);
1096 break;
1097 }
1098
1099 if((status = fexist(child, "w", (off_t *)NULL)) == FIOSUC){
1100 snprintf(tmp, sizeof(tmp), _("File \"%.*s\" already exists!"),
1101 NLINE - 20, child);
1102 emlwrite(tmp, NULL);
1103 break;
1104 }
1105 else if(status != FIOFNF){
1106 fioperr(status, child);
1107 break;
1108 }
1109
1110 if(ffwopen(child, FALSE) != FIOSUC){
1111 /* ffwopen should've complained */
1112 break;
1113 }
1114 else{ /* highlight new file */
1115 ffclose();
1116 eml.s = child;
1117 emlwrite(_("Added File \"%s\""), &eml);
1118
1119 if((p = strrchr(child, C_FILESEP)) == NULL){
1120 emlwrite(_("Problems refiguring browser"), NULL);
1121 break;
1122 }
1123
1124 *p = '\0';
1125 if(p != child){
1126 strncpy(tmp, child, sizeof(tmp));
1127 tmp[sizeof(tmp)-1] = '\0';
1128 j = 0;
1129 while((child[j++] = *++p) != '\0')
1130 ;
1131 }
1132 else{
1133 strncpy(tmp, S_FILESEP, sizeof(tmp));
1134 tmp[sizeof(tmp)-1] = '\0';
1135 }
1136
1137 /*
1138 * new file in same dir? if so, refigure files
1139 * and redraw...
1140 */
1141 if(!strcmp(tmp, gmp->dname)){
1142 if((mp = getfcells(gmp->dname, fb_flags)) == NULL)
1143 /* getfcells should explain what happened */
1144 break;
1145
1146 zotmaster(&gmp);
1147 gmp = mp;
1148 if((tp = FindCell(gmp, child, 0)) != NULL){
1149 gmp->current = tp;
1150 PlaceCell(gmp, gmp->current, &row, &col);
1151 }
1152
1153 PaintBrowser(gmp, 1, &crow, &ccol);
1154 }
1155 }
1156 break;
1157 default:
1158 break;
1159 }
1160 }
1161
1162 BrowserKeys();
1163 break;
1164
1165 case 'c': /* copy */
1166 case 'C':
1167 if(gmp->current->mode == FIODIR){
1168 emlwrite(_("\007Can't copy a directory"), NULL);
1169 break;
1170 }
1171
1172 if(gmode&MDSCUR){ /* not allowed! */
1173 emlwrite(_("Copy not allowed in restricted mode"),NULL);
1174 break;
1175 }
1176
1177 i = 0;
1178 child[0] = '\0';
1179
1180 while(!i){
1181
1182 switch(status=mlreply_utf8(_("Name of new copy: "), child, NLINE,
1183 QFFILE, NULL)){
1184 case HELPCH:
1185 emlwrite(_("\007No help yet!"), NULL);
1186 /* remove break and sleep after help text is installed */
1187 sleep(3);
1188 break;
1189 case (CTRL|'L'):
1190 PaintBrowser(gmp, 0, &crow, &ccol);
1191 break;
1192 case ABORT:
1193 emlwrite(_("Make Copy Cancelled"), NULL);
1194 i++;
1195 break;
1196 case FALSE:
1197 i++;
1198 mlerase();
1199 break;
1200 case TRUE:
1201 i++;
1202
1203 if(child[0] == '\0'){
1204 emlwrite(_("No destination, file not copied"), NULL);
1205 break;
1206 }
1207
1208 if(!strcmp(gmp->current->fname, child)){
1209 emlwrite(_("\007Can't copy file on to itself!"), NULL);
1210 break;
1211 }
1212
1213 if(!compresspath(gmp->dname, child, sizeof(child))){
1214 emlwrite(_("Too many ..'s in name"), NULL);
1215 break;
1216 }
1217
1218 if((gmode&MDTREE) && !in_oper_tree(child)){
1219 eml.s = opertree;
1220 emlwrite(_("\007Restricted mode allows Copy in %s only"),
1221 &eml);
1222 break;
1223 }
1224
1225 if((status = fexist(child, "w", (off_t *)NULL)) == FIOSUC){
1226 /* TRANSLATORS: A question: File <filename> exists! Replace? */
1227 snprintf(tmp, sizeof(tmp), _("File \"%.*s\" exists! OVERWRITE"),
1228 NLINE - 20, child);
1229 if((status = mlyesno_utf8(tmp, 0)) != TRUE){
1230 emlwrite((status == ABORT)
1231 ? _("Make copy cancelled")
1232 : _("File Not Renamed"),
1233 NULL);
1234 break;
1235 }
1236 }
1237 else if(status != FIOFNF){
1238 fioperr(status, child);
1239 break;
1240 }
1241
1242 snprintf(tmp, sizeof(tmp), "%s%c%s", gmp->dname, C_FILESEP,
1243 gmp->current->fname);
1244
1245 if(copy(tmp, child) < 0){
1246 /* copy() will report any error messages */
1247 break;
1248 }
1249 else{ /* highlight new file */
1250 eml.s = child;
1251 emlwrite(_("File copied to %s"), &eml);
1252
1253 if((p = strrchr(child, C_FILESEP)) == NULL){
1254 emlwrite(_("Problems refiguring browser"), NULL);
1255 break;
1256 }
1257
1258 *p = '\0';
1259 strncpy(tmp, (p == child) ? S_FILESEP: child, sizeof(tmp));
1260 tmp[sizeof(tmp)-1] = '\0';
1261
1262 /*
1263 * new file in same dir? if so, refigure files
1264 * and redraw...
1265 */
1266 if(!strcmp(tmp, gmp->dname)){
1267 strncpy(child, gmp->current->fname, sizeof(child));
1268 child[sizeof(child)-1] = '\0';
1269 if((mp = getfcells(gmp->dname, fb_flags)) == NULL)
1270 /* getfcells should explain what happened */
1271 break;
1272
1273 zotmaster(&gmp);
1274 gmp = mp;
1275 if((tp = FindCell(gmp, child, 0)) != NULL){
1276 gmp->current = tp;
1277 PlaceCell(gmp, gmp->current, &row, &col);
1278 }
1279
1280 PaintBrowser(gmp, 1, &crow, &ccol);
1281 }
1282 }
1283 break;
1284 default:
1285 break;
1286 }
1287 }
1288 BrowserKeys();
1289 break;
1290
1291 case 'r': /* rename */
1292 case 'R':
1293 i = 0;
1294
1295 if(!strcmp(gmp->current->fname, "..")){
1296 emlwrite(_("\007Can't rename \"..\""), NULL);
1297 break;
1298 }
1299
1300 if(gmode&MDSCUR){ /* not allowed! */
1301 emlwrite(_("Rename not allowed in restricted mode"),NULL);
1302 break;
1303 }
1304
1305 strncpy(child, gmp->current->fname, sizeof(child));
1306 child[sizeof(child)-1] = '\0';
1307
1308 while(!i){
1309
1310 switch(status=mlreply_utf8(_("Rename file to: "), child, NLINE, QFFILE,
1311 NULL)){
1312 case HELPCH:
1313 emlwrite(_("\007No help yet!"), NULL);
1314 /* remove break and sleep after help text is installed */
1315 sleep(3);
1316 break;
1317 case (CTRL|'L'):
1318 PaintBrowser(gmp, 0, &crow, &ccol);
1319 break;
1320 case ABORT:
1321 emlwrite(_("Rename cancelled"), NULL);
1322 i++;
1323 break;
1324 case FALSE:
1325 case TRUE:
1326 i++;
1327
1328 if(child[0] == '\0' || status == FALSE){
1329 mlerase();
1330 break;
1331 }
1332
1333 if(!compresspath(gmp->dname, child, sizeof(child))){
1334 emlwrite(_("Too many ..'s in name"), NULL);
1335 break;
1336 }
1337
1338 if((gmode&MDTREE) && !in_oper_tree(child)){
1339 eml.s = opertree;
1340 emlwrite(_("\007Restricted mode allows Rename in %s only"),
1341 &eml);
1342 break;
1343 }
1344
1345 status = fexist(child, "w", (off_t *)NULL);
1346 if(status == FIOSUC || status == FIOFNF){
1347 if(status == FIOSUC){
1348 snprintf(tmp, sizeof(tmp), _("File \"%.*s\" exists! OVERWRITE"),
1349 NLINE - 20, child);
1350
1351 if((status = mlyesno_utf8(tmp, FALSE)) != TRUE){
1352 emlwrite((status == ABORT)
1353 ? _("Rename cancelled")
1354 : _("Not Renamed"),
1355 NULL);
1356 break;
1357 }
1358 }
1359
1360 snprintf(tmp, sizeof(tmp), "%s%c%s", gmp->dname, C_FILESEP,
1361 gmp->current->fname);
1362
1363 if(our_rename(tmp, child) < 0){
1364 eml.s = errstr(errno);
1365 emlwrite(_("Rename Failed: %s"), &eml);
1366 }
1367 else{
1368 if((p = strrchr(child, C_FILESEP)) == NULL){
1369 emlwrite(_("Problems refiguring browser"), NULL);
1370 break;
1371 }
1372
1373 *p = '\0';
1374 strncpy(tmp, (p == child) ? S_FILESEP: child, sizeof(tmp));
1375 tmp[sizeof(tmp)-1] = '\0';
1376
1377 if((mp = getfcells(tmp, fb_flags)) == NULL)
1378 /* getfcells should explain what happened */
1379 break;
1380
1381 zotmaster(&gmp);
1382 gmp = mp;
1383
1384 if((tp = FindCell(gmp, ++p, 0)) != NULL){
1385 gmp->current = tp;
1386 PlaceCell(gmp, gmp->current, &row, &col);
1387 }
1388
1389 PaintBrowser(gmp, 1, &crow, &ccol);
1390 mlerase();
1391 }
1392 }
1393 else{
1394 fioperr(status, child);
1395 }
1396 break;
1397 default:
1398 break;
1399 }
1400 }
1401 BrowserKeys();
1402 break;
1403
1404 case 'v': /* stand-alone */
1405 case 'V': /* browser "view" */
1406 case 's': /* user "select" */
1407 case 'S':
1408 case (CTRL|'M'):
1409 Selected:
1410
1411 if(((new_c == 'S' || new_c == 's') && (gmode&MDBRONLY))
1412 || ((new_c == 'V' || new_c == 'v') && !(gmode&MDBRONLY)))
1413 goto Default;
1414
1415 if(gmp->current->mode == FIODIR){
1416 *child = '\0';
1417 strncpy(tmp, gmp->dname, sizeof(tmp));
1418 tmp[sizeof(tmp)-1] = '\0';
1419 p = gmp->current->fname;
1420 if(p[0] == '.' && p[1] == '.' && p[2] == '\0'){
1421 if((p=strrchr(tmp, C_FILESEP)) != NULL){
1422 *p = '\0';
1423
1424 if((gmode&MDTREE) && !in_oper_tree(tmp)){
1425 eml.s = PARENTDIR;
1426 emlwrite(
1427 _("\007Can't visit %s in restricted mode"),
1428 &eml);
1429 break;
1430 }
1431
1432 strncpy(child, &p[1], sizeof(child));
1433 child[sizeof(child)-1] = '\0';
1434
1435 if
1436 #if defined(DOS) || defined(OS2)
1437 (p == tmp || (tmp[1] == ':' && tmp[2] == '\0'))
1438 #else
1439 (p == tmp)
1440 #endif
1441 { /* is it root? */
1442 #if defined(DOS) || defined(OS2)
1443 if(*child){
1444 strncat(tmp, S_FILESEP, sizeof(tmp)-strlen(tmp)-1);
1445 tmp[sizeof(tmp)-1] = '\0';
1446 }
1447 #else
1448 if(*child){
1449 strncpy(tmp, S_FILESEP, sizeof(tmp));
1450 tmp[sizeof(tmp)-1] = '\0';
1451 }
1452 #endif
1453 else{
1454 emlwrite(_("\007Can't move up a directory"),
1455 NULL);
1456 break;
1457 }
1458 }
1459 }
1460 }
1461 else if((fb_flags&FB_SAVE) && p[0] == '.' && p[1] == '\0'){
1462 if ((strlen(gmp->dname) < dirlen) &&
1463 (strlen(gmp->current->fname) < fnlen)){
1464 strncpy(dir, gmp->dname, dirlen);
1465 dir[dirlen-1] = '\0';
1466 }
1467
1468 zotmaster(&gmp);
1469 return(0); /* just change the directory, still return no selection */
1470 }
1471 else{
1472 if(tmp[1] != '\0'){ /* were in root? */
1473 strncat(tmp, S_FILESEP, sizeof(tmp)-strlen(tmp)-1);
1474 tmp[sizeof(tmp)-1] = '\0';
1475 }
1476
1477 strncat(tmp, gmp->current->fname, sizeof(tmp)-strlen(tmp));
1478 tmp[sizeof(tmp)-1] = '\0';
1479 }
1480
1481 if((mp = getfcells(tmp, fb_flags)) == NULL)
1482 /* getfcells should explain what happened */
1483 break;
1484
1485 if(gmp->flags & FB_LMODE){
1486 mp->flags |= FB_LMODE;
1487 mp->lm = gmp->lm;
1488 gmp->lm = NULL;
1489 }
1490
1491 zotmaster(&gmp);
1492 gmp = mp;
1493 tp = NULL;
1494
1495 if(*child){
1496 if((tp = FindCell(gmp, child, 0)) != NULL){
1497 gmp->current = tp;
1498 PlaceCell(gmp, gmp->current, &row, &col);
1499 }
1500 else{
1501 eml.s = child;
1502 emlwrite(_("\007Problem finding dir \"%s\""), &eml);
1503 }
1504 }
1505
1506 PaintBrowser(gmp, 0, &crow, &ccol);
1507 if(!*child){
1508 char b[100];
1509
1510 snprintf(b, sizeof(b), "Select/View \" .. %s %s\" to return to previous directory.", PARENTDIR, DIRWORD);
1511 emlwrite(b, NULL);
1512 }
1513
1514 break;
1515 }
1516 else if(gmode&MDBRONLY){
1517 snprintf(child, sizeof(child), "%s%c%s", gmp->dname, C_FILESEP,
1518 gmp->current->fname);
1519
1520 if(LikelyASCII(child)){
1521 snprintf(tmp, sizeof(tmp), "%s \'%s\'",
1522 (envp = (char *) getenv("PAGER"))
1523 ? envp : BROWSER_PAGER, child);
1524 BrowserRunChild(tmp, gmp->dname);
1525 PaintBrowser(gmp, 0, &crow, &ccol);
1526 }
1527
1528 break;
1529 }
1530 else{ /* just return */
1531 if(gmp->flags & FB_LMODEPOS){
1532
1533 if(!lmreturn){
1534 emlwrite("Programming error, called FileBrowse with LMODEPOS but no lmreturn", NULL);
1535 zotmaster(&gmp);
1536 return(-1);
1537 }
1538
1539 /* user actually used ListMode, the list is finished */
1540 if(gmp->flags & FB_LMODE){
1541 if(!gmp->lm){
1542 (*term.t_beep)();
1543 emlwrite(_("No files are selected, use \"X\" to mark files for selection"), NULL);
1544 break;
1545 }
1546
1547 *lmreturn = gmp->lm;
1548 gmp->lm = NULL;
1549 }
1550 else{ /* construct an lmreturn for user */
1551 LMLIST *new;
1552 size_t flen, dlen;
1553
1554 if((new=(LMLIST *)malloc(sizeof(*new))) == NULL
1555 || (new->fname=malloc(gmp->current->fname ? (flen=strlen(gmp->current->fname))+1 : 1)) == NULL
1556 || (new->dir=malloc((dlen=strlen(gmp->dname))+1)) == NULL){
1557 emlwrite("\007Can't malloc space for filename", NULL);
1558 return(-1);
1559 }
1560
1561 strncpy(new->fname,
1562 gmp->current->fname ? gmp->current->fname : "", flen);
1563 new->fname[flen] = '\0';
1564 strncpy(new->dir, gmp->dname, dlen);
1565 new->dir[dlen] = '\0';
1566 strncpy(new->size, gmp->current->size, sizeof(new->size));
1567 new->size[sizeof(new->size)-1] = '\0';
1568 new->next = NULL;
1569 *lmreturn = new;
1570 }
1571
1572 zotmaster(&gmp);
1573 return(1);
1574 }
1575
1576 if ((strlen(gmp->dname) < dirlen) &&
1577 (strlen(gmp->current->fname) < fnlen)){
1578 strncpy(dir, gmp->dname, dirlen);
1579 dir[dirlen-1] = '\0';
1580 strncpy(fn, gmp->current->fname, fnlen);
1581 fn[fnlen-1] = '\0';
1582 }
1583 else {
1584 zotmaster(&gmp);
1585 return(-1);
1586 }
1587 if(sz != NULL){ /* size uninteresting */
1588 strncpy(sz, gmp->current->size, szlen);
1589 sz[szlen-1] = '\0';
1590 }
1591
1592 zotmaster (&gmp);
1593 return (1);
1594 }
1595 break;
1596
1597 case 'w': /* Where is */
1598 case 'W':
1599 case (CTRL|'W'):
1600 bsearch = i = 0;
1601
1602 while(!i){
1603
1604 switch(readpattern(_("File name to find"), FALSE, bsearch)){
1605 case HELPCH:
1606 emlwrite(_("\007No help yet!"), NULL);
1607 /* remove break and sleep after help text is installed */
1608 sleep(3);
1609 break;
1610 case (CTRL|'L'):
1611 PaintBrowser(gmp, 0, &crow, &ccol);
1612 break;
1613 case (CTRL|'P'):
1614 bsearch = bsearch == 0 ? 1 : 0;
1615 break;
1616 case (CTRL|'Y'): /* first first cell */
1617 for(tp = gmp->top; tp->prev; tp = tp->prev)
1618 ;
1619
1620 i++;
1621 /* fall thru to repaint */
1622 case (CTRL|'V'):
1623 if(!i){
1624 do{
1625 tp = gmp->top;
1626 if((i = term.t_nrow - term.t_mrow - 2) <= 0)
1627 break;
1628
1629 while(i-- && tp->next){
1630 j = 0;
1631 while(++j <= gmp->fpl && tp->next)
1632 tp = tp->next;
1633 }
1634
1635 if(i < 0)
1636 gmp->top = tp;
1637 }
1638 while(tp->next);
1639
1640 emlwrite(_("Searched to end of directory"), NULL);
1641 }
1642 else
1643 emlwrite(_("Searched to start of directory"), NULL);
1644
1645 if(tp){
1646 PlaceCell(gmp, gmp->current, &row, &col);
1647 PaintCell(row, col, gmp->cpf, gmp->current, 0);
1648 gmp->current = tp;
1649 if(PlaceCell(gmp, gmp->current, &row, &col)){
1650 PaintBrowser(gmp, 1, &crow, &ccol);
1651 }
1652 else{
1653 PaintCell(row, col, gmp->cpf, gmp->current, 1);
1654 crow = row;
1655 ccol = col;
1656 }
1657 }
1658
1659 i++; /* make sure we jump out */
1660 break;
1661 case ABORT:
1662 emlwrite(_("Whereis cancelled"), NULL);
1663 i++;
1664 break;
1665 case FALSE:
1666 mlerase();
1667 i++;
1668 break;
1669 case TRUE:
1670 {
1671 char *utf8 = NULL;
1672
1673 if(pat && pat[0])
1674 utf8 = ucs4_to_utf8_cpystr(pat);
1675
1676 if(utf8 && (tp = FindCell(gmp, utf8, bsearch)) != NULL){
1677 PlaceCell(gmp, gmp->current, &row, &col);
1678 PaintCell(row, col, gmp->cpf, gmp->current, 0);
1679 gmp->current = tp;
1680
1681 if(PlaceCell(gmp, tp, &row, &col)){ /* top changed */
1682 PaintBrowser(gmp, 1, &crow, &ccol);
1683 }
1684 else{
1685 PaintCell(row, col, gmp->cpf, gmp->current, 1);
1686 crow = row;
1687 ccol = col;
1688 }
1689 mlerase();
1690 }
1691 else{
1692 eml.s = utf8;
1693 emlwrite(_("\"%s\" not found"), &eml);
1694 }
1695
1696 if(utf8)
1697 fs_give((void **) &utf8);
1698 }
1699
1700 i++;
1701 break;
1702 default:
1703 break;
1704 }
1705 }
1706
1707 BrowserKeys();
1708 break;
1709
1710 case (CTRL|'\\') :
1711 #if defined MOUSE && !defined(_WINDOWS)
1712 toggle_xterm_mouse(0,1);
1713 #else
1714 unknown_command(c);
1715 #endif
1716 break;
1717
1718 case (CTRL|'Z'):
1719 if(gmode&MDSSPD){
1720 bktoshell(0, 1);
1721 PaintBrowser(gmp, 0, &crow, &ccol);
1722 break;
1723 } /* fall thru with error! */
1724
1725 default: /* what? */
1726 Default:
1727 unknown_command(c);
1728
1729 case NODATA: /* no op */
1730 break;
1731 }
1732 }
1733 }
1734
1735
1736 /*
1737 * getfcells - make a master browser struct and fill it in
1738 * return NULL if there's a problem.
1739 */
1740 struct bmaster *
1741 getfcells(char *dname, int fb_flags)
1742 {
1743 int i, /* various return codes */
1744 flength,
1745 nentries = 0; /* number of dir ents */
1746 off_t attsz;
1747 char *np, /* names of files in dir */
1748 *dcp, /* to add file to path */
1749 *tmpstr,
1750 **filtnames, /* array filtered names */
1751 errbuf[NLINE];
1752 struct fcell *ncp, /* new cell pointer */
1753 *tcp; /* trailing cell ptr */
1754 struct bmaster *mp;
1755 EML eml;
1756
1757 errbuf[0] = '\0';
1758 if((mp=(struct bmaster *)malloc(sizeof(struct bmaster))) == NULL){
1759 emlwrite("\007Can't malloc space for master filename cell", NULL);
1760 return(NULL);
1761 }
1762
1763 memset(mp, 0, sizeof(*mp));
1764
1765 if(dname[0] == '.' && dname[1] == '\0'){ /* remember this dir */
1766 if(!getcwd(mp->dname, 256))
1767 mp->dname[0] = '\0';
1768 }
1769 else if(dname[0] == '.' && dname[1] == '.' && dname[2] == '\0'){
1770 if(!getcwd(mp->dname, 256))
1771 mp->dname[0] = '\0';
1772 else{
1773 if((np = (char *)strrchr(mp->dname, C_FILESEP)) != NULL)
1774 if(np != mp->dname)
1775 *np = '\0';
1776 }
1777 }
1778 else{
1779 strncpy(mp->dname, dname, sizeof(mp->dname));
1780 mp->dname[sizeof(mp->dname)-1] = '\0';
1781 }
1782
1783 mp->bottom = mp->head = mp->top = NULL;
1784 mp->cpf = mp->fpl = 0;
1785 mp->longest = 5; /* .. must be labeled! */
1786 mp->flags = fb_flags;
1787
1788 eml.s = mp->dname;
1789 emlwrite("Building file list of %s...", &eml);
1790
1791 if((mp->names = getfnames(mp->dname, NULL, &nentries, errbuf, sizeof(errbuf))) == NULL){
1792 free((char *) mp);
1793 if(*errbuf)
1794 emlwrite(errbuf, NULL);
1795
1796 return(NULL);
1797 }
1798
1799 /*
1800 * this is the fun part. build an array of pointers to the fnames we're
1801 * interested in (i.e., do any filtering), then pass that off to be
1802 * sorted before building list of cells...
1803 *
1804 * right now default filtering on ".*" except "..", but this could
1805 * easily be made a user option later on...
1806 */
1807 if((filtnames=(char **)malloc((nentries+1) * sizeof(char *))) == NULL){
1808 emlwrite("\007Can't malloc space for name array", NULL);
1809 zotmaster(&mp);
1810 return(NULL);
1811 }
1812
1813 i = 0; /* index of filt'd array */
1814 np = mp->names;
1815 while(nentries--){
1816 int ii;
1817 int width;
1818
1819 /*
1820 * Filter dot files? Always filter ".", never filter "..",
1821 * and sometimes fitler ".*"...
1822 */
1823 if(*np == '.' && (!(*(np+1) == '.' && *(np+2) == '\0')
1824 && !(*(np+1) == '\0' && (fb_flags&FB_SAVE)))
1825 && (*(np+1) == '\0' || !(gmode & MDDOTSOK))){
1826 np += strlen(np) + 1;
1827 continue;
1828 }
1829
1830 filtnames[i++] = np;
1831
1832 ii = (int) strlen(np);
1833 if((width = (int) utf8_width(np)) > mp->longest)
1834 mp->longest = width; /* remember longest */
1835
1836 np += ii + 1; /* advance name pointer */
1837 }
1838
1839 nentries = i; /* new # of entries */
1840
1841 /*
1842 * sort files case independently
1843 */
1844 qsort((qsort_t *)filtnames, (size_t)nentries, sizeof(char *), sstrcasecmp);
1845
1846 /*
1847 * this is so we use absolute path names for stats.
1848 * remember: be careful using dname as directory name, and fix mp->dname
1849 * when we're done
1850 */
1851 dcp = (char *) strchr(mp->dname, '\0');
1852 if(dcp == mp->dname || dcp[-1] != C_FILESEP){
1853 dcp[0] = C_FILESEP;
1854 dcp[1] = '\0';
1855 }
1856 else
1857 dcp--;
1858
1859 i = 0;
1860 while(nentries--){ /* stat filtered files */
1861 /* get a new cell */
1862 if((ncp=(struct fcell *)malloc(sizeof(struct fcell))) == NULL){
1863 emlwrite("\007Can't malloc cells for browser!", NULL);
1864 zotfcells(mp->head); /* clean up cells */
1865 free((char *) filtnames);
1866 free((char *) mp);
1867 return(NULL); /* bummer. */
1868 }
1869
1870 ncp->next = ncp->prev = NULL;
1871
1872 if(mp->head == NULL){ /* tie it onto the list */
1873 mp->head = mp->top = mp->current = ncp;
1874 }
1875 else{
1876 mp->bottom = ncp;
1877 tcp->next = ncp;
1878 ncp->prev = tcp;
1879 }
1880
1881 tcp = ncp;
1882
1883 /* fill in the new cell */
1884 ncp->fname = filtnames[i++];
1885
1886 /* fill in file's mode */
1887 if ((flength = strlen(ncp->fname) + 1 + strlen(dname)) < sizeof(mp->dname)){
1888 strncpy(&dcp[1], ncp->fname, sizeof(mp->dname)-(dcp+1-mp->dname)); /* use absolute path! */
1889 mp->dname[sizeof(mp->dname)-1] = '\0';
1890 tmpstr = mp->dname;
1891 }
1892 else{
1893 if((tmpstr = (char *)malloc((flength+1)*sizeof(char))) == NULL){
1894 emlwrite("\007Can't malloc cells for temp buffer!", NULL);
1895 zotfcells(mp->head); /* clean up cells */
1896 free((char *) filtnames);
1897 free((char *) mp);
1898 return(NULL); /* bummer. */
1899 }
1900
1901 strncpy(tmpstr, dname, flength);
1902 tmpstr[flength] = '\0';
1903 tmpstr = strncat(tmpstr, S_FILESEP, flength+1-1-strlen(tmpstr));
1904 tmpstr[flength] = '\0';
1905 tmpstr = strncat(tmpstr, ncp->fname, flength+1-1-strlen(tmpstr));
1906 tmpstr[flength] = '\0';
1907 }
1908
1909 switch(fexist(tmpstr, "t", &attsz)){
1910 case FIODIR :
1911 ncp->mode = FIODIR;
1912 snprintf(ncp->size, sizeof(ncp->size), "(%s%s%s)",
1913 (ncp->fname[0] == '.' && ncp->fname[1] == '.'
1914 && ncp->fname[2] == '\0') ? PARENTDIR :
1915 ((fb_flags&FB_SAVE) && ncp->fname[0] == '.' && ncp->fname[1] == '\0'
1916 ? SELECTWORD : ""),
1917 (ncp->fname[0] == '.' && ncp->fname[1] == '.'
1918 && ncp->fname[2] == '\0') ? " " :
1919 ((fb_flags&FB_SAVE) && ncp->fname[0] == '.' && ncp->fname[1] == '\0'
1920 ? " " : ""),
1921 DIRWORD);
1922 break;
1923
1924 case FIOSYM :
1925 ncp->mode = FIOSYM;
1926 strncpy(ncp->size, "--", sizeof(ncp->size));
1927 ncp->size[sizeof(ncp->size)-1] = '\0';
1928 break;
1929
1930 default :
1931 ncp->mode = FIOSUC; /* regular file */
1932 strncpy(ncp->size, prettysz(attsz), sizeof(ncp->size));
1933 ncp->size[sizeof(ncp->size)-1] = '\0';
1934 break;
1935 }
1936
1937 if (flength >= NLINE)
1938 free((char *) tmpstr);
1939 }
1940
1941 dcp[(dcp == mp->dname) ? 1 : 0] = '\0'; /* remember to cap dname */
1942 free((char *) filtnames); /* 'n blast filt'd array*/
1943
1944 percdircells(mp);
1945 layoutcells(mp);
1946 if(strlen(mp->dname) < sizeof(browse_dir)){
1947 strncpy(browse_dir, mp->dname, sizeof(browse_dir));
1948 browse_dir[sizeof(browse_dir)-1] = '\0';
1949 }
1950 else
1951 browse_dir[0] = '\0';
1952
1953 return(mp);
1954 }
1955
1956
1957 int
1958 fcell_is_selected(struct fcell *cell, struct bmaster *mp)
1959 {
1960 LMLIST *lm;
1961
1962 if(cell && cell->fname){
1963 for(lm = mp ? mp->lm : NULL; lm; lm = lm->next){
1964 /* directory has to match */
1965 if(!((mp->dname[0] == '\0' && (!lm->dir || lm->dir[0] =='\0'))
1966 || (mp->dname[0] != '\0' && lm->dir && lm->dir[0] !='\0'
1967 && !strcmp(mp->dname, lm->dir))))
1968 continue;
1969
1970 if(lm->fname && !strcmp(cell->fname, lm->fname))
1971 return(1);
1972 }
1973 }
1974
1975 return(0);
1976 }
1977
1978
1979 /*
1980 * Adds a new name to the head of the lmlist
1981 */
1982 void
1983 add_cell_to_lmlist(struct fcell *cell, struct bmaster *mp)
1984 {
1985 LMLIST *new;
1986 size_t flen, dlen;
1987
1988 if(mp && cell && cell->fname && cell->fname[0]){
1989 if((new=(LMLIST *)malloc(sizeof(*new))) == NULL ||
1990 (new->fname=malloc(sizeof(char)*((flen=strlen(cell->fname))+1))) == NULL ||
1991 (new->dir=malloc(sizeof(char)*((dlen=strlen(mp->dname))+1))) == NULL){
1992 emlwrite("\007Can't malloc space for filename", NULL);
1993 return;
1994 }
1995
1996 strncpy(new->fname, cell->fname, flen);
1997 new->fname[flen] = '\0';
1998 strncpy(new->dir, mp->dname, dlen);
1999 new->dir[dlen] = '\0';
2000 new->size[0] = '\0';
2001 if(cell->size[0]){
2002 strncpy(new->size, cell->size, sizeof(new->size));
2003 new->size[sizeof(new->size)-1] = '\0';
2004 }
2005
2006 new->next = mp->lm;
2007 mp->lm = new;
2008 }
2009 }
2010
2011
2012 /*
2013 * Deletes a name from the lmlist
2014 */
2015 void
2016 del_cell_from_lmlist(struct fcell *cell, struct bmaster *mp)
2017 {
2018 LMLIST *lm, *lmprev = NULL;
2019
2020 if(mp && cell && cell->fname && cell->fname[0])
2021 for(lm = mp ? mp->lm : NULL; lm; lm = lm->next){
2022 if(lm->fname && strcmp(cell->fname, lm->fname) == 0){
2023 free((char *) lm->fname);
2024 if(lm->dir)
2025 free((char *) lm->dir);
2026
2027 if(lmprev)
2028 lmprev->next = lm->next;
2029 else
2030 mp->lm = lm->next;
2031
2032 free((char *) lm);
2033
2034 break;
2035 }
2036
2037 lmprev = lm;
2038 }
2039 }
2040
2041
2042 /*
2043 * PaintCell - print the given cell at the given location on the display
2044 * the format of a printed cell is:
2045 *
2046 * "<fname> <size> "
2047 */
2048 void
2049 PaintCell(int row, int col,
2050 int sc, /* screen columns available for this cell */
2051 struct fcell *cell, int inverted)
2052 {
2053 char buf1[NLINE], buf2[NLINE];
2054 char lbuf[5];
2055 int need, l_wid, f_wid, f_to_s_wid, s_wid;
2056 UCS *ucs;
2057
2058 if(cell == NULL)
2059 return;
2060
2061 l_wid = (gmp && ((gmp->flags & FB_LMODEPOS) > 4)) ? 4 : 0;
2062 f_wid = utf8_width(cell->fname ? cell->fname : "");
2063 f_to_s_wid = 1;
2064 s_wid = utf8_width(cell->size ? cell->size : "");
2065
2066 /* the two is the space between cell columns */
2067 sc = MIN(sc-2, term.t_ncol-col);
2068
2069 if(l_wid){
2070 if(gmp && gmp->flags & FB_LMODE && cell->mode != FIODIR){
2071 /*
2072 * We have to figure out here if it is selected or not
2073 * and use that to write the X or space.
2074 */
2075 lbuf[0] = '[';
2076 if(fcell_is_selected(cell, gmp))
2077 lbuf[1] = 'X';
2078 else
2079 lbuf[1] = ' ';
2080
2081 lbuf[2] = ']';
2082 lbuf[3] = ' ';
2083 }
2084 else{
2085 lbuf[0] = lbuf[1] = lbuf[2] = lbuf[3] = ' ';
2086 }
2087
2088 lbuf[4] = '\0';
2089 }
2090
2091 sc -= l_wid;
2092
2093 need = f_wid+f_to_s_wid+s_wid;
2094
2095 /* space between name and size */
2096 if(need < sc)
2097 f_to_s_wid += (sc-need);
2098
2099 /*
2100 * If the width isn't enough to handle everything we're just putting a single
2101 * space between fname and size and truncating on the right. That means that
2102 * the sizes in the right hand column won't line up correctly when there is
2103 * a lack of space. Instead, we opt for displaying as much info as possible
2104 * in a slightly discordant way.
2105 */
2106
2107 movecursor(row, col);
2108 if(l_wid){
2109 ucs = utf8_to_ucs4_cpystr(lbuf);
2110 if(ucs){
2111 pputs(ucs, 0);
2112 fs_give((void **) &ucs);
2113 }
2114 }
2115
2116 utf8_snprintf(buf1, sizeof(buf1), "%*.*w%*.*w%*.*w",
2117 f_wid, f_wid, cell->fname ? cell->fname : "",
2118 f_to_s_wid, f_to_s_wid, "",
2119 s_wid, s_wid, cell->size ? cell->size : "");
2120
2121 utf8_snprintf(buf2, sizeof(buf2), "%*.*w", sc, sc, buf1);
2122
2123 if(inverted)
2124 (*term.t_rev)(1);
2125
2126 ucs = utf8_to_ucs4_cpystr(buf2);
2127 if(ucs){
2128 pputs(ucs, 0);
2129 fs_give((void **) &ucs);
2130 }
2131
2132 if(inverted)
2133 (*term.t_rev)(0);
2134 }
2135
2136
2137 /*
2138 * PaintBrowse - with the current data, display the browser. if level == 0
2139 * paint the whole thing, if level == 1 just paint the cells
2140 * themselves
2141 */
2142 void
2143 PaintBrowser(struct bmaster *mp, int level, int *row, int *col)
2144 {
2145 int i, cl;
2146 struct fcell *tp;
2147
2148 if(!level){
2149 ClearBrowserScreen();
2150 BrowserAnchor(mp->dname);
2151 }
2152
2153 i = 0;
2154 tp = mp->top;
2155 cl = COMPOSER_TOP_LINE; /* current display line */
2156 while(tp){
2157
2158 PaintCell(cl, mp->cpf * i, mp->cpf, tp, tp == mp->current);
2159
2160 if(tp == mp->current){
2161 if(row)
2162 *row = cl;
2163
2164 if(col)
2165 *col = mp->cpf * i;
2166 }
2167
2168 if(++i >= mp->fpl){
2169 i = 0;
2170 if(++cl > term.t_nrow-(term.t_mrow+1))
2171 break;
2172 }
2173
2174 tp = tp->next;
2175 }
2176
2177 if(level){
2178 while(cl <= term.t_nrow - (term.t_mrow+1)){
2179 if(!i)
2180 movecursor(cl, 0);
2181 peeol();
2182 movecursor(++cl, 0);
2183 }
2184 }
2185 else{
2186 BrowserKeys();
2187 }
2188 }
2189
2190
2191 /*
2192 * BrowserKeys - just paints the keyhelp at the bottom of the display
2193 */
2194 void
2195 BrowserKeys(void)
2196 {
2197 menu_browse[QUIT_KEY].name = (gmode&MDBRONLY) ? "Q" : "E";
2198 /* TRANSLATORS: Brwsr is an abbreviation for Browser, which is
2199 a command used to look through something */
2200 menu_browse[QUIT_KEY].label = (gmode&MDBRONLY) ? N_("Quit") : N_("Exit Brwsr");
2201 menu_browse[GOTO_KEY].name = (gmode&MDGOTO) ? "G" : NULL;
2202 menu_browse[GOTO_KEY].label = (gmode&MDGOTO) ? N_("Goto") : NULL;
2203 if(gmode & MDBRONLY){
2204 menu_browse[EXEC_KEY].name = "L";
2205 menu_browse[EXEC_KEY].label = N_("Launch");
2206 menu_browse[SELECT_KEY].name = "V";
2207 menu_browse[SELECT_KEY].label = "[" N_("View") "]";
2208 menu_browse[PICO_KEY].name = "E";
2209 menu_browse[PICO_KEY].label = N_("Edit");
2210 }
2211 else{
2212 menu_browse[SELECT_KEY].name = "S";
2213 menu_browse[SELECT_KEY].label = "[" N_("Select") "]";
2214 menu_browse[PICO_KEY].name = "A";
2215 menu_browse[PICO_KEY].label = N_("Add");
2216
2217 if(gmp && gmp->flags & FB_LMODEPOS){
2218 if(gmp && gmp->flags & FB_LMODE){ /* ListMode is already on */
2219 menu_browse[EXEC_KEY].name = "X";
2220 menu_browse[EXEC_KEY].label = N_("Set/Unset");
2221 }
2222 else{ /* ListMode is possible */
2223 menu_browse[EXEC_KEY].name = "L";
2224 menu_browse[EXEC_KEY].label = N_("ListMode");
2225 }
2226 }
2227 else{ /* No ListMode possible */
2228 menu_browse[EXEC_KEY].name = NULL;
2229 menu_browse[EXEC_KEY].label = NULL;
2230 }
2231 }
2232
2233 wkeyhelp(menu_browse);
2234 }
2235
2236
2237 /*
2238 * layoutcells - figure out max length of cell and how many cells can
2239 * go on a line of the display
2240 */
2241 void
2242 layoutcells(struct bmaster *mp)
2243 {
2244 static int wid = -1;
2245 /*
2246 * Max chars/file. Actually this is max screen cells/file
2247 * Longest name + "(parent dir)"
2248 */
2249 if(wid < 0)
2250 wid = MAX(utf8_width(PARENTDIR),utf8_width(SELECTWORD)) + utf8_width(DIRWORD);
2251
2252 mp->cpf = mp->longest + wid + 3;
2253
2254 if(mp->flags & FB_LMODEPOS) /* "[X] " */
2255 mp->cpf += 4;
2256
2257 if(gmode & MDONECOL){
2258 mp->fpl = 1;
2259 }
2260 else{
2261 int i = 1;
2262
2263 while(i*mp->cpf - 2 <= term.t_ncol) /* no force... */
2264 i++; /* like brute force! */
2265
2266 mp->fpl = i - 1; /* files per line */
2267 }
2268
2269 if(mp->fpl == 0)
2270 mp->fpl = 1;
2271 }
2272
2273
2274 /*
2275 * percdircells - bubble all the directory cells to the top of the
2276 * list.
2277 */
2278 void
2279 percdircells(struct bmaster *mp)
2280 {
2281 struct fcell *dirlp, /* dir cell list pointer */
2282 *lp, *nlp; /* cell list ptr and next */
2283
2284 dirlp = NULL;
2285 for(lp = mp->head; lp; lp = nlp){
2286 nlp = lp->next;
2287 if(lp->mode == FIODIR){
2288 if(lp->prev) /* clip from list */
2289 lp->prev->next = lp->next;
2290
2291 if(lp->next)
2292 lp->next->prev = lp->prev;
2293
2294 if((lp->prev = dirlp) != NULL){ /* tie it into dir portion */
2295 if((lp->next = dirlp->next) != NULL)
2296 lp->next->prev = lp;
2297
2298 dirlp->next = lp;
2299 dirlp = lp;
2300 }
2301 else{
2302 if((dirlp = lp) != mp->head)
2303 dirlp->next = mp->head;
2304
2305 if(dirlp->next)
2306 dirlp->next->prev = dirlp;
2307
2308 mp->head = mp->top = mp->current = dirlp;
2309 }
2310 }
2311 }
2312 }
2313
2314
2315 /*
2316 * PlaceCell - given a browser master and a cell, return row and col of the display that
2317 * it should go on.
2318 *
2319 * return 1 if mp->top has changed, x,y relative to new page
2320 * return 0 if otherwise (same page)
2321 * return -1 on error
2322 */
2323 int
2324 PlaceCell(struct bmaster *mp, struct fcell *cp, int *x, int *y)
2325 {
2326 int cl = COMPOSER_TOP_LINE; /* current line */
2327 int ci = 0; /* current index on line */
2328 int rv = 0;
2329 int secondtry = 0;
2330 struct fcell *tp;
2331
2332 /* will cp fit on screen? */
2333 tp = mp->top;
2334 while(1){
2335 if(tp == cp){ /* bingo! */
2336 *x = cl;
2337 *y = ci * mp->cpf;
2338 break;
2339 }
2340
2341 if((tp = tp->next) == NULL){ /* above top? */
2342 if(secondtry++){
2343 emlwrite("\007Internal error: can't find fname cell", NULL);
2344 return(-1);
2345 }
2346 else{
2347 tp = mp->top = mp->head; /* try from the top! */
2348 cl = COMPOSER_TOP_LINE;
2349 ci = 0;
2350 rv = 1;
2351 continue; /* start over! */
2352 }
2353 }
2354
2355 if(++ci >= mp->fpl){ /* next line? */
2356 ci = 0;
2357 if(++cl > term.t_nrow-(term.t_mrow+1)){ /* next page? */
2358 ci = mp->fpl; /* tp is at bottom right */
2359 while(ci--) /* find new top */
2360 tp = tp->prev;
2361 mp->top = tp;
2362 ci = 0;
2363 cl = COMPOSER_TOP_LINE; /* keep checking */
2364 rv = 1;
2365 }
2366 }
2367
2368 }
2369
2370 /* not on display! */
2371 return(rv);
2372 }
2373
2374
2375 /*
2376 * zotfcells - clean up malloc'd cells of file names
2377 */
2378 void
2379 zotfcells(struct fcell *hp)
2380 {
2381 struct fcell *tp;
2382
2383 while(hp){
2384 tp = hp;
2385 hp = hp->next;
2386 tp->next = NULL;
2387 free((char *) tp);
2388 }
2389 }
2390
2391
2392 /*
2393 * zotmaster - blast the browser master struct
2394 */
2395 void
2396 zotmaster(struct bmaster **mp)
2397 {
2398 if(mp && *mp){
2399 zotfcells((*mp)->head); /* free cells */
2400 zotlmlist((*mp)->lm); /* free lmlist */
2401 if((*mp)->names)
2402 free((char *)(*mp)->names); /* free file names */
2403
2404 free((char *)*mp); /* free master */
2405 *mp = NULL; /* make double sure */
2406 }
2407 }
2408
2409
2410 /*
2411 * FindCell - starting from the current cell find the first occurance of
2412 * the given string wrapping around if necessary
2413 */
2414 struct fcell *
2415 FindCell(struct bmaster *mp, char *utf8string, int bsearch)
2416 {
2417 struct fcell *tp, *fp;
2418
2419 if(*utf8string == '\0')
2420 return(NULL);
2421
2422 fp = NULL;
2423 tp = bsearch ? mp->current->prev : mp->current->next;
2424
2425 while(tp && !fp){
2426 if(sisin(tp->fname, utf8string))
2427 fp = tp;
2428 else
2429 tp = bsearch ? tp->prev : tp->next;
2430 }
2431
2432 tp = bsearch ? mp->bottom : mp->head;
2433 while(tp != mp->current && !fp){
2434 if(sisin(tp->fname, utf8string))
2435 fp = tp;
2436 else
2437 tp = bsearch ? tp->prev : tp->next;
2438 }
2439
2440 return(fp);
2441 }
2442
2443
2444 /*
2445 * sisin - case insensitive substring matching function
2446 *
2447 * We can't really do case-insensitive for non-ascii, so restrict
2448 * that to ascii characters. The strings will be utf8.
2449 */
2450 int
2451 sisin(char *bigstr, char *utf8substr)
2452 {
2453 register int j;
2454
2455 while(*bigstr){
2456 j = 0;
2457 while(bigstr[j] == utf8substr[j]
2458 || ((unsigned char)bigstr[j] < 0x80 && (unsigned char)utf8substr[j] < 0x80
2459 && toupper((unsigned char)bigstr[j]) == toupper((unsigned char)utf8substr[j])))
2460 if(utf8substr[++j] == '\0') /* bingo! */
2461 return(1);
2462
2463 bigstr++;
2464 }
2465
2466 return(0);
2467 }
2468
2469
2470 /*
2471 * set_browser_title -
2472 */
2473 void
2474 set_browser_title(char *s)
2475 {
2476 browser_title = s;
2477 }
2478
2479
2480 /*
2481 * BrowserAnchor - draw the browser's anchor line.
2482 */
2483 void
2484 BrowserAnchor(char *utf8dir)
2485 {
2486 char *pdir;
2487 char titlebuf[NLINE];
2488 char buf[NLINE];
2489 char dirbuf[NLINE];
2490 char *dots = "...";
2491 char *br = "BROWSER";
2492 char *dir = "Dir: ";
2493 UCS *ucs;
2494 int need, extra, avail;
2495 int title_wid, b_wid, t_to_b_wid, b_to_d_wid, d_wid, dot_wid, dir_wid, after_dir_wid;
2496 COLOR_PAIR *lastc = NULL;
2497
2498 if(!utf8dir)
2499 utf8dir = "";
2500
2501 pdir = utf8dir;
2502
2503 if(browser_title)
2504 snprintf(titlebuf, sizeof(buf), " %s", browser_title);
2505 else if(Pmaster)
2506 snprintf(titlebuf, sizeof(buf), " ALPINE %s", Pmaster->pine_version);
2507 else
2508 snprintf(titlebuf, sizeof(buf), " UW PICO %s", (gmode&MDBRONLY) ? "BROWSER" : version);
2509
2510 title_wid = utf8_width(titlebuf);
2511 t_to_b_wid = 15;
2512 b_wid = utf8_width(br);
2513 b_to_d_wid = 4;
2514 d_wid = utf8_width(dir);
2515 dot_wid = 0;
2516 dir_wid = utf8_width(pdir);
2517
2518 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2519
2520 if(need > term.t_ncol){
2521 extra = need - term.t_ncol;
2522 t_to_b_wid -= MIN(extra, 10);
2523 need -= MIN(extra, 10);
2524
2525 if(need > term.t_ncol){
2526 extra = need - term.t_ncol;
2527 b_to_d_wid -= MIN(extra, 2);
2528 need -= MIN(extra, 2);
2529 }
2530
2531 if(need > term.t_ncol){
2532 titlebuf[0] = titlebuf[1] = ' ';
2533 titlebuf[2] = '\0';
2534 title_wid = utf8_width(titlebuf);
2535 t_to_b_wid = 0;
2536 b_to_d_wid = 4;
2537 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2538 if(need > term.t_ncol){
2539 extra = need - term.t_ncol;
2540 b_to_d_wid -= MIN(extra, 2);
2541 need -= MIN(extra, 2);
2542 }
2543
2544 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2545 if(need > term.t_ncol){
2546 t_to_b_wid = 0;
2547 b_wid = 0;
2548 b_to_d_wid = 0;
2549 }
2550
2551 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2552 if(need > term.t_ncol)
2553 d_wid = 0;
2554
2555 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2556
2557 if(need > term.t_ncol && dir_wid > 0){
2558 dot_wid = utf8_width(dots);
2559 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2560 while(need > term.t_ncol && (pdir = strchr(pdir+1, C_FILESEP))){
2561 dir_wid = utf8_width(pdir);
2562 need = title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid;
2563 }
2564
2565 if(!pdir){ /* adjust other widths to fill up space */
2566 avail = term.t_ncol - (title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid);
2567 if(avail > 2)
2568 utf8_to_width_rhs(dirbuf, utf8dir, sizeof(dirbuf), avail);
2569 else
2570 dirbuf[0] = '\0';
2571
2572 pdir = dirbuf;
2573 }
2574
2575 dir_wid = utf8_width(pdir);
2576 }
2577 }
2578 }
2579
2580 extra = term.t_ncol - (title_wid+t_to_b_wid+b_wid+b_to_d_wid+d_wid+dot_wid+dir_wid);
2581
2582 if(extra >= 0)
2583 after_dir_wid = extra;
2584 else
2585 after_dir_wid = 0;
2586
2587 utf8_snprintf(buf, sizeof(buf), "%*.*w%*.*w%*.*w%*.*w%*.*w%*.*w%*.*w%*.*w",
2588 title_wid, title_wid, titlebuf,
2589 t_to_b_wid, t_to_b_wid, "",
2590 b_wid, b_wid, br,
2591 b_to_d_wid, b_to_d_wid, "",
2592 d_wid, d_wid, dir,
2593 dot_wid, dot_wid, dots,
2594 dir_wid, dir_wid, pdir,
2595 after_dir_wid, after_dir_wid, "");
2596
2597 /* just making sure */
2598 utf8_snprintf(titlebuf, sizeof(titlebuf), "%-*.*w", term.t_ncol, term.t_ncol, buf);
2599
2600 movecursor(0, 0);
2601 if(Pmaster && Pmaster->colors && Pmaster->colors->tbcp
2602 && pico_is_good_colorpair(Pmaster->colors->tbcp)){
2603 lastc = pico_get_cur_color();
2604 (void) pico_set_colorp(Pmaster->colors->tbcp, PSC_NONE);
2605 }
2606 else
2607 (*term.t_rev)(1);
2608
2609 ucs = utf8_to_ucs4_cpystr(titlebuf);
2610 if(ucs){
2611 pputs(ucs, 0);
2612 fs_give((void **) &ucs);
2613 }
2614
2615 if(lastc){
2616 (void) pico_set_colorp(lastc, PSC_NONE);
2617 free_color_pair(&lastc);
2618 }
2619 else
2620 (*term.t_rev)(0);
2621 }
2622
2623
2624 /*
2625 * ResizeBrowser - handle a resize event
2626 */
2627 int
2628 ResizeBrowser(void)
2629 {
2630 if(gmp){
2631 layoutcells(gmp);
2632 PaintBrowser(gmp, 0, NULL, NULL);
2633 return(1);
2634 }
2635 else
2636 return(0);
2637 }
2638
2639
2640 void
2641 ClearBrowserScreen(void)
2642 {
2643 int i;
2644
2645 for(i = 0; i <= term.t_nrow; i++){ /* clear screen */
2646 movecursor(i, 0);
2647 peeol();
2648 }
2649 }
2650
2651
2652 void
2653 BrowserRunChild(char *child, char *dir)
2654 {
2655 int status;
2656 char tmp[NLINE];
2657 time_t t_in, t_out;
2658
2659 ClearBrowserScreen();
2660 movecursor(0, 0);
2661 (*term.t_close)();
2662 if(!isdir(dir, NULL, &t_in))
2663 t_in = 0;
2664
2665 fflush(stdout);
2666 status = system(child);
2667 (*term.t_open)();
2668 if(t_in && isdir(dir, NULL, &t_out) && t_in < t_out){
2669 struct bmaster *mp;
2670
2671 if((mp = getfcells(dir, 0)) != NULL){
2672 zotmaster(&gmp);
2673 gmp = mp;
2674 }
2675 /* else getfcells should explain what happened */
2676 }
2677
2678 /* complain about non-zero exit status */
2679 if((status >> 8) & 0xff){
2680
2681 movecursor(term.t_nrow - 1, 0);
2682 snprintf(tmp, sizeof(tmp), "[ \"%.30s\" exit with error value: %d ]",
2683 child, (status >> 8) & 0xff);
2684 pputs_utf8(tmp, 1);
2685 movecursor(term.t_nrow, 0);
2686 pputs_utf8("[ Hit RETURN to continue ]", 1);
2687 fflush(stdout);
2688
2689 while(GetKey() != (CTRL|'M')){
2690 (*term.t_beep)();
2691 fflush(stdout);
2692 }
2693 }
2694 }
2695
2696
2697 /*
2698 * imitate pc-pine memory for where we last called the file browser.
2699 */
2700 void
2701 p_chdir(struct bmaster *mp)
2702 {
2703 if(mp && mp->dname)
2704 chdir(mp->dname);
2705 }
2706 #else /* _WINDOWS */
2707
2708
2709 /*
2710 * pico_file_browse - Exported version of FileBrowse below.
2711 */
2712 int
2713 pico_file_browse(PICO *pdata, char *dir, size_t dirlen, char *fn, size_t fnlen,
2714 char *sz, size_t szlen, int flags)
2715 {
2716 return(FileBrowse(dir, dirlen, fn, fnlen, sz, szlen, flags, NULL));
2717 }
2718
2719 int
2720 ResizeBrowser (void)
2721 {
2722 return (0);
2723 }
2724
2725 /*
2726 * FileBrowse - Windows version of above function
2727 */
2728 int
2729 FileBrowse(char *dir, size_t dirlen, char *fn, size_t fnlen,
2730 char *sz, size_t szlen, int fb_flags, LMLIST **lmreturn)
2731 {
2732 struct stat sbuf;
2733 int rc;
2734 char lfn[NLINE];
2735
2736 if (fb_flags & FB_SAVE){
2737 rc = mswin_savefile(dir, dirlen, fn, MIN(dirlen,fnlen));
2738 }
2739 else{
2740 *fn = '\0'; /* No initial file names for
2741 * open. */
2742 if(fb_flags & FB_LMODEPOS){
2743 /*
2744 * We're going to allow multiple filenames to be returned so
2745 * we don't want to use the passed in fn for that. Instead, make
2746 * a bigger space and use that.
2747 */
2748 char f[20000];
2749 size_t flen, dlen;
2750
2751 memset(f, 0, sizeof(f));
2752
2753 rc = mswin_multopenfile(dir, dirlen, f, sizeof(f),
2754 (fb_flags & FB_ATTACH) ? NULL : "Text Files (*.txt)#*.txt");
2755
2756 if(rc == 1){
2757 LMLIST *lmhead = NULL, *new;
2758 char *p;
2759
2760 /*
2761 * Build an LMLIST to return to the caller.
2762 */
2763 for(p = f; *p; p += strlen(p)+1){
2764 flen = strlen(p);
2765 dlen = strlen(dir ? dir : "");
2766 new = (LMLIST *) fs_get(sizeof(*new));
2767 new->fname = (char *) fs_get((flen+1) * sizeof(char));
2768 new->dir = (char *) fs_get((dlen+1) * sizeof(char));
2769
2770 strncpy(new->fname, p, flen);
2771 new->fname[flen] = '\0';
2772 strncpy(new->dir, dir ? dir : "", dlen);
2773 new->dir[dlen] = '\0';
2774
2775 /* build full path to stat file. */
2776 if((strlen(new->dir) + strlen(S_FILESEP) +
2777 strlen(new->fname) + 1) < sizeof(lfn)){
2778 strncpy(lfn, new->dir, sizeof(lfn));
2779 lfn[sizeof(lfn)-1] = '\0';
2780 strncat(lfn, S_FILESEP, sizeof(lfn)-strlen(lfn)-1);
2781 strncat(lfn, new->fname, sizeof(lfn)-strlen(lfn)-1);
2782 lfn[sizeof(lfn)-1] = '\0';
2783 if(our_stat(lfn, &sbuf) < 0)
2784 strncpy(new->size, "0", 32);
2785 else
2786 strncpy(new->size, prettysz((off_t)sbuf.st_size), 32);
2787
2788 new->size[32-1] = '\0';
2789 }
2790
2791 new->next = lmhead;
2792 lmhead = new;
2793 }
2794
2795 *lmreturn = lmhead;
2796 return(1);
2797 }
2798 }
2799 else
2800 rc = mswin_openfile (dir, dirlen, fn, fnlen,
2801 (fb_flags & FB_ATTACH) ? NULL : "Text Files (*.txt)#*.txt");
2802 }
2803
2804 if(rc == 1){
2805 if(sz != NULL){
2806 /* build full path to stat file. */
2807 if((strlen(dir) + strlen(S_FILESEP) + strlen(fn) + 1) > NLINE)
2808 return -1;
2809
2810 strncpy(lfn, dir, sizeof(lfn));
2811 lfn[sizeof(lfn)-1] = '\0';
2812 strncat(lfn, S_FILESEP, sizeof(lfn)-strlen(lfn)-1);
2813 lfn[sizeof(lfn)-1] = '\0';
2814 strncat(lfn, fn, sizeof(lfn)-strlen(lfn)-1);
2815 lfn[sizeof(lfn)-1] = '\0';
2816 if(our_stat(lfn, &sbuf) < 0){
2817 strncpy(sz, "0", szlen);
2818 sz[szlen-1] = '\0';
2819 }
2820 else{
2821 strncpy(sz, prettysz ((off_t)sbuf.st_size), szlen);
2822 sz[szlen-1] = '\0';
2823 }
2824 }
2825
2826 return(1);
2827 }
2828
2829 return(rc ? -1 : 0);
2830 }
2831
2832 #endif /* _WINDOWS */
2833
2834
2835 /*
2836 * LikelyASCII - make a rough guess as to the displayability of the
2837 * given file.
2838 */
2839 int
2840 LikelyASCII(char *file)
2841 {
2842 #define LA_TEST_BUF 1024
2843 #define LA_LINE_LIMIT 300
2844 int n, i, line, rv = FALSE;
2845 unsigned char buf[LA_TEST_BUF];
2846 FILE *fp;
2847 EML eml;
2848
2849 if((fp = our_fopen(file, "rb")) != NULL){
2850 clearerr(fp);
2851 if((n = fread(buf, sizeof(char), LA_TEST_BUF * sizeof(char), fp)) > 0
2852 || !ferror(fp)){
2853 /*
2854 * If we don't hit any newlines in a reasonable number,
2855 * LA_LINE_LIMIT, of characters or the file contains NULLs,
2856 * bag out...
2857 */
2858 rv = TRUE;
2859 for(i = line = 0; i < n; i++)
2860 if((line = (buf[i] == '\n') ? 0 : line + 1) >= LA_LINE_LIMIT
2861 || !buf[i]){
2862 rv = FALSE;
2863 emlwrite(_("Can't display non-text file. Try \"Launch\"."),
2864 NULL);
2865 break;
2866 }
2867 }
2868 else{
2869 eml.s = file;
2870 emlwrite(_("Can't read file: %s"), &eml);
2871 }
2872
2873 fclose(fp);
2874 }
2875 else{
2876 eml.s = file;
2877 emlwrite(_("Can't open file: %s"), &eml);
2878 }
2879
2880 return(rv);
2881 }
2882
2883
2884 void
2885 zotlmlist(LMLIST *lm)
2886 {
2887 LMLIST *tp;
2888
2889 while(lm){
2890 if(lm->fname)
2891 free(lm->fname);
2892
2893 if(lm->dir)
2894 free(lm->dir);
2895
2896 tp = lm;
2897 lm = lm->next;
2898 tp->next = NULL;
2899 free((char *) tp);
2900 }
2901 }
2902
2903
2904 /*
2905 * time_to_check - checks the current time against the last time called
2906 * and returns true if the elapsed time is > below.
2907 * Newmail won't necessarily check, but we want to give it
2908 * a chance to check or do a keepalive.
2909 */
2910 int
2911 time_to_check(void)
2912 {
2913 static time_t lasttime = 0L;
2914
2915 if(!get_input_timeout())
2916 return(FALSE);
2917
2918 if(time((time_t *) 0) - lasttime > (Pmaster ? (time_t)(FUDGE-10) : get_input_timeout())){
2919 lasttime = time((time_t *) 0);
2920 return(TRUE);
2921 }
2922 else
2923 return(FALSE);
2924 }
Alpine is a program to manage e-mail