/* Entry point, initialization, micellaneous routines. */ #include "less.h" #include "position.h" #include public int ispipe; public jmp_buf main_loop; public char * first_cmd; public char * every_first_cmd; public int new_file; public int is_tty; public char current_file[128]; public int ac; #ifdef amiga /* max items and chars that *.c can expand to */ #define MAXTEMPLATES 100 #define MAXARGVCHARS 1000 public char local_buffer[MAXARGVCHARS]; public char *local_av[MAXTEMPLATES]; #endif public char **av; public int curr_ac; #if EDITOR public char * editor; #endif extern int file; extern int nbufs; extern int sigs; extern int quit_at_eof; extern int p_nbufs, f_nbufs; extern int back_scroll; extern int top_scroll; extern int sc_height; /* * Edit a new file. * Filename "-" means standard input. * No filename means the "current" file, from the command line. */ public void edit(filename) char *filename; { register int f; char message[100]; static int any_edited = 0; static int hold_scroll = 0; if (filename == NULL || *filename == '\0') { if (curr_ac >= ac) { error("No current file"); return; } filename = av[curr_ac]; } if (strcmp(filename, "-") == 0) f = 0; /* Standard input */ else if ((f = open(filename, 0)) < 0) { #ifdef amiga sprintf(message, "Cannot open %s", filename); #else sprintf(message, "Cannot open %.*s", error_width()-13, filename); #endif if (any_edited) error(message); else { puts(message); #ifdef amiga flush(); /* wait two seconds for him to read message */ Delay(100L); #endif hold_scroll = 1; } return; } if (isatty(f)) { /* * Not really necessary to call this an error, * but if the control terminal (for commands) * and the input file (for data) are the same, * we get weird results at best. */ error("Can't take input from a terminal"); if (f > 0) close(f); return; } /* * Close the current input file and set up to use the new one. */ if (file > 0) close(file); new_file = 1; strcpy(current_file, filename); #ifndef amiga ispipe = (f == 0); #endif file = f; ch_init( (ispipe) ? p_nbufs : f_nbufs ); init_mark(); if (every_first_cmd != NULL) first_cmd = every_first_cmd; if (is_tty) { any_edited = 1; if (hold_scroll) { /* * Before erasing the screen contents, * display the file name and ask for a keystroke. */ error(filename); hold_scroll = 0; } if (first_cmd == NULL || *first_cmd == '\0') { /* * Display the first screen. */ jump_back(1); } else { /* * The first_cmd will hopefully redisplay the * screen, so we need not display anything yet. * Indicate there is nothing yet on the screen. */ pos_clear(); } } } /* * Edit the next file in the command line list. */ public void next_file(n) int n; { if (curr_ac + n >= ac) { if (quit_at_eof) quit(); error("No (N-th) next file"); } else edit(av[curr_ac += n]); } /* * Edit the previous file in the command line list. */ public void prev_file(n) int n; { if (curr_ac - n < 0) error("No (N-th) previous file"); else edit(av[curr_ac -= n]); } /* * Copy a file directly to standard output. * Used if standard output is not a tty. */ static void cat_file() { register int c; while ((c = ch_forw_get()) != EOF) putc(c); flush(); } #ifdef amiga /* Bob Leivian 4/28/87 fudge up things so it will work when called from Work Bench */ char argvbuf[80]; int called_from_WB = 0; long old_dir; #include "workbench/startup.h" /* ignore AZTECs wb stuff */ _wb_parse(ignore, ignore2) char *ignore; char *ignore2; { return; } /* this requires the workbench disk -- ignore all environment variables for now */ char * getenv(ignore) { return NULL; } #endif /* * Entry point. */ main(argc, argv) int argc; char *argv[]; { char *getenv(); int i,j; #ifdef amiga /* if we were called from the workbench we will have no args but a pointer to the WB struct, get the filename from this structure */ if(argc == 0) { struct WBStartup *WBmsg; struct WBArg *p; /* the argv is really the work bench structure */ WBmsg = (struct WBStartup *) argv; p = WBmsg->sm_ArgList; p++; /* ignore first parm */ strcpy(argvbuf, p->wa_Name); argc = 2; argv[0] = "less"; argv[1] = argvbuf; /* fake up the args now */ /* we have to set up this icons current directory (and release it later) */ called_from_WB++; old_dir = CurrentDir(p->wa_Lock); } #endif /* * Process command line arguments and LESS environment arguments. * Command line arguments override environment arguments. */ init_option(); scan_option(getenv("LESS")); argv++; while ( (--argc > 0) && (argv[0][0] == '-' || argv[0][0] == '+') && argv[0][1] != '\0') scan_option(*argv++); #if EDITOR editor = getenv("EDITOR"); if (editor == NULL || *editor == '\0') editor = EDIT_PGM; #endif /* * Set up list of files to be examined. */ ac = argc; av = argv; #ifdef amiga /* CLI doesn't expand templates link U*ix so we need to do it 'by hand' */ for (i=0, j=0; i MAXARGVCHARS) break; } } else local_av[j++] = av[i]; } av = local_av; ac = j; #endif curr_ac = 0; /* * Set up terminal, etc. */ is_tty = isatty(1); #ifdef amiga if (!is_tty && !called_from_WB) #else if (!is_tty) #endif { /* * Output is not a tty. * Just copy the input file(s) to output. */ if (ac < 1) { edit("-"); cat_file(); } else { do { edit((char *)NULL); if (file >= 0) cat_file(); } while (++curr_ac < ac); } exit(0); } raw_mode(1); get_term(); open_getc(); init(); if (back_scroll < 0) { /* {{ KLUDGE }} */ back_scroll = sc_height-1; if (top_scroll) back_scroll--; } if (setjmp(main_loop)) quit(); init_signals(); /* * Select the first file to examine. */ if (ac < 1) edit("-"); /* Standard input */ else { /* * Try all the files named as command arguments. * We are simply looking for one which can be * opened without error. */ do { edit((char *)NULL); if (file >= 0) /* We can open this file. */ break; putc('\n'); flush(); } while (++curr_ac < ac); } if (file >= 0) commands(); quit(); } /* * Exit the program. */ public void quit() { /* * Put cursor at bottom left corner, clear the line, * reset the terminal modes, and exit. */ lower_left(); clear_eol(); deinit(); flush(); raw_mode(0); #ifdef amiga ttclose(); if(called_from_WB) CurrentDir(old_dir); #endif exit(0); }