1 #if !defined(lint) && !defined(DOS)
2 static char rcsid
[] = "$Id: pilot.c 1184 2008-12-16 23:52:15Z hubert@u.washington.edu $";
6 * ========================================================================
7 * Copyright 2006-2008 University of Washington
8 * Copyright 2013-2017 Eduardo Chappa
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
14 * http://www.apache.org/licenses/LICENSE-2.0
16 * ========================================================================
20 * Program: Main stand-alone Pine File Browser routines
25 * 30 Sep 92 - Stand alone PIne's "Lister of Things" came into being.
26 * It's built against libpico.a from a command line like:
28 * cc pilot.c libpico.a -ltermcap -lc -o pilot
30 * should it become a fleshed out tool, we'll move it into
31 * the normal build process.
35 #include "../c-client/mail.h"
36 #include "../c-client/rfc822.h"
37 #include "../pith/osdep/collate.h"
38 #include "../pith/charconv/filesys.h"
39 #include "../pith/charconv/utf8.h"
40 #include "../pith/conf.h"
43 #define PILOT_VERSION "UW PILOT 2.99"
46 extern char *gethomedir(int *);
48 char *pilot_args(int, char **, int *);
49 void pilot_args_help(void);
50 void pilot_display_args_err(char *, char **, int);
52 char args_pilot_missing_flag
[] = N_("unknown flag \"%c\"");
53 char args_pilot_missing_arg
[] = N_("missing or empty argument to \"%c\" flag");
54 char args_pilot_missing_num
[] = N_("non numeric argument for \"%c\" flag");
55 char args_pilot_missing_color
[] = N_("missing color for \"%s\" flag");
56 char args_pilot_missing_charset
[] = N_("missing character set for \"%s\" flag");
57 char args_pilot_input_charset
[] = N_("input character set \"%s\" is unsupported");
58 char args_pilot_output_charset
[] = N_("output character set \"%s\" is unsupported");
60 char *args_pilot_args
[] = {
61 /* TRANSLATORS: little help printed out when incorrect arguments are
62 given for pilot program. */
63 N_("Possible Starting Arguments for Pilot file browser:"),
65 N_("\tArgument\t\tMeaning"),
66 N_("\t -a \t\tShowDot - show dot files in file browser"),
67 N_("\t -j \t\tGoto - allow 'Goto' command in file browser"),
68 N_("\t -g \t\tShow - show cursor in file browser"),
69 N_("\t -m \t\tMouse - turn on mouse support"),
70 N_("\t -v \t\tOneColumn - use single column display"),
71 N_("\t -x \t\tNoKeyhelp - suppress keyhelp"),
72 N_("\t -q \t\tTermdefWins - termcap or terminfo takes precedence over defaults"),
73 N_("\t -f \t\tKeys - force use of function keys"),
74 N_("\t -h \t\tHelp - give this list of options"),
76 N_("\t -dcs <display_character_set> \tdefault uses LANG or LC_CTYPE from environment"),
77 N_("\t -kcs <keyboard_character_set> \tdefaults to display_character_set"),
78 N_("\t -syscs\t\tuse system-supplied translation routines"),
79 #endif /* ! _WINDOWS */
80 N_("\t -n[#s] \tMail - notify about new mail every #s seconds, default=180"),
81 N_("\t -t \t\tShutdown - enable special shutdown mode"),
82 N_("\t -o <dir>\tOperation - specify the operating directory"),
83 N_("\t -z \t\tSuspend - allow use of ^Z suspension"),
85 N_("\t -cnf color \tforeground color"),
86 N_("\t -cnb color \tbackground color"),
87 N_("\t -crf color \treverse foreground color"),
88 N_("\t -crb color \treverse background color"),
90 N_("\t -no_setlocale_collate\tdo not do setlocale(LC_COLLATE)"),
92 N_("\t All arguments may be followed by a directory name to start in."),
99 * main standalone browser routine
102 main(int argc
, char *argv
[])
104 char bname
[NBUFN
]; /* buffer name of file to read */
105 char filename
[NSTRING
];
106 char filedir
[NSTRING
];
108 char *display_charmap
= NULL
, *dc
;
109 char *keyboard_charmap
= NULL
;
112 int setlocale_collate
= 1;
114 set_input_timeout(0);
115 Pmaster
= NULL
; /* turn OFF composer functionality */
117 opertree
[0] = '\0'; opertree
[NLINE
] = '\0';
119 gmode
|= MDBRONLY
; /* turn on exclusive browser mode */
122 * Read command line flags before initializing, otherwise, we never
123 * know to init for f_keys...
125 if((dir
= pilot_args(argc
, argv
, &setlocale_collate
)) != NULL
){
126 strncpy(filedir
, dir
, sizeof(filedir
));
127 filedir
[sizeof(filedir
)-1] = '\0';
128 fixpath(filedir
, sizeof(filedir
));
131 strncpy(filedir
, gethomedir(NULL
), sizeof(filedir
));
132 filedir
[sizeof(filedir
)-1] = '\0';
135 set_collation(setlocale_collate
, 1);
138 init_utf8_display(1, NULL
);
141 #define cpstr(s) strcpy((char *)fs_get(1+strlen(s)), s)
143 if(display_character_set
)
144 display_charmap
= cpstr(display_character_set
);
145 #if HAVE_LANGINFO_H && defined(CODESET)
146 else if((dc
= nl_langinfo_codeset_wrapper()) != NULL
)
147 display_charmap
= cpstr(dc
);
151 display_charmap
= cpstr("US-ASCII");
153 if(keyboard_character_set
)
154 keyboard_charmap
= cpstr(keyboard_character_set
);
156 keyboard_charmap
= cpstr(display_charmap
);
160 if(use_system_translation
){
161 #if PREREQ_FOR_SYS_TRANSLATION
163 /* This modifies its arguments */
164 if(setup_for_input_output(use_system
, &display_charmap
, &keyboard_charmap
,
165 &input_cs
, &err
) == -1){
166 fprintf(stderr
, "%s\n", err
? err
: "trouble with character set");
170 fprintf(stderr
, "%s\n", err
);
171 fs_give((void **) &err
);
177 if(setup_for_input_output(use_system
, &display_charmap
, &keyboard_charmap
,
178 &input_cs
, &err
) == -1){
179 fprintf(stderr
, "%s\n", err
? err
: "trouble with character set");
183 fprintf(stderr
, "%s\n", err
);
184 fs_give((void **) &err
);
188 if(keyboard_charmap
){
189 set_locale_charmap(keyboard_charmap
);
190 free((void *) keyboard_charmap
);
194 free((void *) display_charmap
);
198 if(!vtinit()) /* Displays. */
201 strncpy(bname
, "main", sizeof(bname
)); /* default buffer name */
202 bname
[sizeof(bname
)-1] = '\0';
203 edinit(bname
); /* Buffers, windows. */
204 #if defined(USE_TERMCAP) || defined(USE_TERMINFO) || defined(VMS)
205 if(kbesc
== NULL
){ /* will arrow keys work ? */
206 (*term
.t_putchar
)('\007');
207 emlwrite("Warning: keypad keys may be non-functional", NULL
);
209 #endif /* USE_TERMCAP/USE_TERMINFO/VMS */
211 curbp
->b_mode
|= gmode
; /* and set default modes*/
212 if(get_input_timeout()){
215 eml
.s
= comatose(get_input_timeout());
216 emlwrite(_("Checking for new mail every %s seconds"), &eml
);
220 set_browser_title(PILOT_VERSION
);
221 FileBrowse(filedir
, sizeof(filedir
), filename
, sizeof(filename
), NULL
, 0, 0, NULL
);
228 * Parse the command line args.
233 * Result: command arguments parsed
234 * possible printing of help for command line
235 * various global flags set
236 * returns the name of directory to start in if specified, else NULL
239 pilot_args(int ac
, char **av
, int *setlocale_collate
)
243 char tmp_1k_buf
[1000]; /* tmp buf to contain err msgs */
246 /* while more arguments with leading - */
247 while(--ac
> 0 && **++av
== '-'){
248 /* while more chars in this argument */
251 if(strcmp(*av
, "no_setlocale_collate") == 0){
252 *setlocale_collate
= 0;
256 else if(strcmp(*av
, "syscs") == 0){
257 use_system_translation
= !use_system_translation
;
260 #endif /* ! _WINDOWS */
262 if(strcmp(*av
, "cnf") == 0
263 || strcmp(*av
, "cnb") == 0
264 || strcmp(*av
, "crf") == 0
265 || strcmp(*av
, "crb") == 0){
267 char *cmd
= *av
; /* save it to use below */
274 else if(cmd
[2] == 'b')
277 else if(cmd
[1] == 'r'){
280 else if(cmd
[2] == 'b')
285 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_missing_color
), cmd
);
286 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
292 #endif /* _WINDOWS */
294 else if(strcmp(*av
, "dcs") == 0 || strcmp(*av
, "kcs") == 0){
298 if(strcmp(*av
, "dcs") == 0){
299 display_character_set
= *++av
;
300 if(!output_charset_is_supported(display_character_set
)){
301 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_output_charset
), display_character_set
);
302 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
307 keyboard_character_set
= *++av
;
308 if(!input_charset_is_supported(keyboard_character_set
)){
309 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_input_charset
), keyboard_character_set
);
310 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
316 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_missing_charset
), cmd
);
317 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
323 #endif /* ! _WINDOWS */
326 * Single char options.
330 * These don't take arguments.
333 gmode
^= MDDOTSOK
; /* show dot files */
335 case 'f': /* -f for function key use */
338 case 'j': /* allow "Goto" in file browser */
341 case 'g': /* show-cursor in file browser */
344 case 'm': /* turn on mouse support */
347 case 'v': /* single column display */
349 break; /* break back to inner-while */
350 case 'x': /* suppress keyhelp */
351 sup_keyhelp
= !sup_keyhelp
;
353 case 'q': /* -q for termcap takes precedence */
356 case 'z': /* -z to suspend */
364 * These do take arguments.
366 case 'n': /* -n for new mail notification */
367 case 'o' : /* operating tree */
373 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_missing_arg
), c
);
374 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
381 strncpy(opertree
, str
, NLINE
);
387 if(!isdigit((unsigned char)str
[0])){
388 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_missing_num
), c
);
389 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
393 set_input_timeout(180);
395 if(set_input_timeout(atoi(str
)) < 30)
396 set_input_timeout(180);
404 snprintf(tmp_1k_buf
, sizeof(tmp_1k_buf
), _(args_pilot_missing_flag
), c
);
405 pilot_display_args_err(tmp_1k_buf
, NULL
, 1);
415 /* return the directory */
423 /*----------------------------------------------------------------------
424 print a few lines of help for command line arguments
428 Result: prints help messages
429 ----------------------------------------------------------------------*/
431 pilot_args_help(void)
438 /** print out possible starting arguments... **/
440 for(a
=args_pilot_args
; a
&& *a
; a
++){
442 pilot_display_args_err(NULL
, pp
, 0);
449 /*----------------------------------------------------------------------
450 write argument error to the display...
454 Result: prints help messages
455 ----------------------------------------------------------------------*/
457 pilot_display_args_err(char *s
, char **a
, int err
)
459 char errstr
[256], *errp
;
460 FILE *fp
= err
? stderr
: stdout
;
463 snprintf(errp
= errstr
, sizeof(errstr
), _("Argument Error: %.200s"), s
);
468 fprintf(fp
, "%s\n", errp
);
471 fprintf(fp
, "%s\n", *a
++);