1a5f0fb15SPaul Saab /* 2a15691bfSXin LI * Copyright (C) 1984-2015 Mark Nudelman 3a5f0fb15SPaul Saab * 4a5f0fb15SPaul Saab * You may distribute under the terms of either the GNU General Public 5a5f0fb15SPaul Saab * License or the Less License, as specified in the README file. 6a5f0fb15SPaul Saab * 796e55cc7SXin LI * For more information, see the README file. 8a5f0fb15SPaul Saab */ 9a5f0fb15SPaul Saab 10a5f0fb15SPaul Saab 11a5f0fb15SPaul Saab /* 12a5f0fb15SPaul Saab * Routines to execute other programs. 13a5f0fb15SPaul Saab * Necessarily very OS dependent. 14a5f0fb15SPaul Saab */ 15a5f0fb15SPaul Saab 16a5f0fb15SPaul Saab #include "less.h" 17c9346414SPaul Saab #include <signal.h> 18a5f0fb15SPaul Saab #include "position.h" 19a5f0fb15SPaul Saab 20a5f0fb15SPaul Saab #if MSDOS_COMPILER 21a5f0fb15SPaul Saab #include <dos.h> 22a5f0fb15SPaul Saab #ifdef _MSC_VER 23a5f0fb15SPaul Saab #include <direct.h> 24a5f0fb15SPaul Saab #define setdisk(n) _chdrive((n)+1) 25a5f0fb15SPaul Saab #else 26a5f0fb15SPaul Saab #include <dir.h> 27a5f0fb15SPaul Saab #endif 28a5f0fb15SPaul Saab #endif 29a5f0fb15SPaul Saab 30a5f0fb15SPaul Saab extern int screen_trashed; 31a5f0fb15SPaul Saab extern IFILE curr_ifile; 32a5f0fb15SPaul Saab 33a5f0fb15SPaul Saab 34a5f0fb15SPaul Saab #if HAVE_SYSTEM 35a5f0fb15SPaul Saab 36a5f0fb15SPaul Saab /* 37a5f0fb15SPaul Saab * Pass the specified command to a shell to be executed. 38a5f0fb15SPaul Saab * Like plain "system()", but handles resetting terminal modes, etc. 39a5f0fb15SPaul Saab */ 40a5f0fb15SPaul Saab public void 41*1ea31627SRobert Watson lsystem(char *cmd, char *donemsg) 42a5f0fb15SPaul Saab { 43*1ea31627SRobert Watson int inp; 44a5f0fb15SPaul Saab #if HAVE_SHELL 45*1ea31627SRobert Watson char *shell; 46*1ea31627SRobert Watson char *p; 47a5f0fb15SPaul Saab #endif 48a5f0fb15SPaul Saab IFILE save_ifile; 497374caaaSXin LI #if MSDOS_COMPILER && MSDOS_COMPILER!=WIN32C 50a5f0fb15SPaul Saab char cwd[FILENAME_MAX+1]; 51a5f0fb15SPaul Saab #endif 52a5f0fb15SPaul Saab 53a5f0fb15SPaul Saab /* 54a5f0fb15SPaul Saab * Print the command which is to be executed, 55a5f0fb15SPaul Saab * unless the command starts with a "-". 56a5f0fb15SPaul Saab */ 57a5f0fb15SPaul Saab if (cmd[0] == '-') 58a5f0fb15SPaul Saab cmd++; 59a5f0fb15SPaul Saab else 60a5f0fb15SPaul Saab { 61a5f0fb15SPaul Saab clear_bot(); 62a5f0fb15SPaul Saab putstr("!"); 63a5f0fb15SPaul Saab putstr(cmd); 64a5f0fb15SPaul Saab putstr("\n"); 65a5f0fb15SPaul Saab } 66a5f0fb15SPaul Saab 67a5f0fb15SPaul Saab #if MSDOS_COMPILER 687374caaaSXin LI #if MSDOS_COMPILER==WIN32C 697374caaaSXin LI if (*cmd == '\0') 707374caaaSXin LI cmd = getenv("COMSPEC"); 717374caaaSXin LI #else 72a5f0fb15SPaul Saab /* 73a5f0fb15SPaul Saab * Working directory is global on MSDOS. 74a5f0fb15SPaul Saab * The child might change the working directory, so we 75a5f0fb15SPaul Saab * must save and restore CWD across calls to "system", 76a5f0fb15SPaul Saab * or else we won't find our file when we return and 77a5f0fb15SPaul Saab * try to "reedit_ifile" it. 78a5f0fb15SPaul Saab */ 79a5f0fb15SPaul Saab getcwd(cwd, FILENAME_MAX); 80a5f0fb15SPaul Saab #endif 817374caaaSXin LI #endif 82a5f0fb15SPaul Saab 83a5f0fb15SPaul Saab /* 84a5f0fb15SPaul Saab * Close the current input file. 85a5f0fb15SPaul Saab */ 86a5f0fb15SPaul Saab save_ifile = save_curr_ifile(); 87a5f0fb15SPaul Saab (void) edit_ifile(NULL_IFILE); 88a5f0fb15SPaul Saab 89a5f0fb15SPaul Saab /* 90a5f0fb15SPaul Saab * De-initialize the terminal and take out of raw mode. 91a5f0fb15SPaul Saab */ 92a5f0fb15SPaul Saab deinit(); 93a5f0fb15SPaul Saab flush(); /* Make sure the deinit chars get out */ 94a5f0fb15SPaul Saab raw_mode(0); 95a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C 96a5f0fb15SPaul Saab close_getchr(); 97a5f0fb15SPaul Saab #endif 98a5f0fb15SPaul Saab 99a5f0fb15SPaul Saab /* 100a5f0fb15SPaul Saab * Restore signals to their defaults. 101a5f0fb15SPaul Saab */ 102a5f0fb15SPaul Saab init_signals(0); 103a5f0fb15SPaul Saab 104a5f0fb15SPaul Saab #if HAVE_DUP 105a5f0fb15SPaul Saab /* 106a5f0fb15SPaul Saab * Force standard input to be the user's terminal 107a5f0fb15SPaul Saab * (the normal standard input), even if less's standard input 108a5f0fb15SPaul Saab * is coming from a pipe. 109a5f0fb15SPaul Saab */ 110a5f0fb15SPaul Saab inp = dup(0); 111a5f0fb15SPaul Saab close(0); 112c9346414SPaul Saab #if OS2 113c9346414SPaul Saab /* The __open() system call translates "/dev/tty" to "con". */ 114c9346414SPaul Saab if (__open("/dev/tty", OPEN_READ) < 0) 115c9346414SPaul Saab #else 116a5f0fb15SPaul Saab if (open("/dev/tty", OPEN_READ) < 0) 117c9346414SPaul Saab #endif 118a5f0fb15SPaul Saab dup(inp); 119a5f0fb15SPaul Saab #endif 120a5f0fb15SPaul Saab 121a5f0fb15SPaul Saab /* 122a5f0fb15SPaul Saab * Pass the command to the system to be executed. 123a5f0fb15SPaul Saab * If we have a SHELL environment variable, use 124a5f0fb15SPaul Saab * <$SHELL -c "command"> instead of just <command>. 125a5f0fb15SPaul Saab * If the command is empty, just invoke a shell. 126a5f0fb15SPaul Saab */ 127a5f0fb15SPaul Saab #if HAVE_SHELL 128a5f0fb15SPaul Saab p = NULL; 129a5f0fb15SPaul Saab if ((shell = lgetenv("SHELL")) != NULL && *shell != '\0') 130a5f0fb15SPaul Saab { 131a5f0fb15SPaul Saab if (*cmd == '\0') 132a5f0fb15SPaul Saab p = save(shell); 133a5f0fb15SPaul Saab else 134a5f0fb15SPaul Saab { 135000ba3e8STim J. Robbins char *esccmd = shell_quote(cmd); 136000ba3e8STim J. Robbins if (esccmd != NULL) 137a5f0fb15SPaul Saab { 138a15691bfSXin LI int len = (int) (strlen(shell) + strlen(esccmd) + 5); 1396dcb072bSXin LI p = (char *) ecalloc(len, sizeof(char)); 1406dcb072bSXin LI SNPRINTF3(p, len, "%s %s %s", shell, shell_coption(), esccmd); 141a5f0fb15SPaul Saab free(esccmd); 142a5f0fb15SPaul Saab } 143a5f0fb15SPaul Saab } 144a5f0fb15SPaul Saab } 145a5f0fb15SPaul Saab if (p == NULL) 146a5f0fb15SPaul Saab { 147a5f0fb15SPaul Saab if (*cmd == '\0') 148a5f0fb15SPaul Saab p = save("sh"); 149a5f0fb15SPaul Saab else 150a5f0fb15SPaul Saab p = save(cmd); 151a5f0fb15SPaul Saab } 152a5f0fb15SPaul Saab system(p); 153a5f0fb15SPaul Saab free(p); 154a5f0fb15SPaul Saab #else 155a5f0fb15SPaul Saab #if MSDOS_COMPILER==DJGPPC 156a5f0fb15SPaul Saab /* 157a5f0fb15SPaul Saab * Make stdin of the child be in cooked mode. 158a5f0fb15SPaul Saab */ 159a5f0fb15SPaul Saab setmode(0, O_TEXT); 160a5f0fb15SPaul Saab /* 161a5f0fb15SPaul Saab * We don't need to catch signals of the child (it 162a5f0fb15SPaul Saab * also makes trouble with some DPMI servers). 163a5f0fb15SPaul Saab */ 164a5f0fb15SPaul Saab __djgpp_exception_toggle(); 165a5f0fb15SPaul Saab system(cmd); 166a5f0fb15SPaul Saab __djgpp_exception_toggle(); 167a5f0fb15SPaul Saab #else 168a5f0fb15SPaul Saab system(cmd); 169a5f0fb15SPaul Saab #endif 170a5f0fb15SPaul Saab #endif 171a5f0fb15SPaul Saab 172a5f0fb15SPaul Saab #if HAVE_DUP 173a5f0fb15SPaul Saab /* 174a5f0fb15SPaul Saab * Restore standard input, reset signals, raw mode, etc. 175a5f0fb15SPaul Saab */ 176a5f0fb15SPaul Saab close(0); 177a5f0fb15SPaul Saab dup(inp); 178a5f0fb15SPaul Saab close(inp); 179a5f0fb15SPaul Saab #endif 180a5f0fb15SPaul Saab 181a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C 182a5f0fb15SPaul Saab open_getchr(); 183a5f0fb15SPaul Saab #endif 184a5f0fb15SPaul Saab init_signals(1); 185a5f0fb15SPaul Saab raw_mode(1); 186a5f0fb15SPaul Saab if (donemsg != NULL) 187a5f0fb15SPaul Saab { 188a5f0fb15SPaul Saab putstr(donemsg); 189a5f0fb15SPaul Saab putstr(" (press RETURN)"); 190a5f0fb15SPaul Saab get_return(); 191a5f0fb15SPaul Saab putchr('\n'); 192a5f0fb15SPaul Saab flush(); 193a5f0fb15SPaul Saab } 194a5f0fb15SPaul Saab init(); 195a5f0fb15SPaul Saab screen_trashed = 1; 196a5f0fb15SPaul Saab 1977374caaaSXin LI #if MSDOS_COMPILER && MSDOS_COMPILER!=WIN32C 198a5f0fb15SPaul Saab /* 199a5f0fb15SPaul Saab * Restore the previous directory (possibly 200a5f0fb15SPaul Saab * changed by the child program we just ran). 201a5f0fb15SPaul Saab */ 202a5f0fb15SPaul Saab chdir(cwd); 203a5f0fb15SPaul Saab #if MSDOS_COMPILER != DJGPPC 204a5f0fb15SPaul Saab /* 205a5f0fb15SPaul Saab * Some versions of chdir() don't change to the drive 206a5f0fb15SPaul Saab * which is part of CWD. (DJGPP does this in chdir.) 207a5f0fb15SPaul Saab */ 208a5f0fb15SPaul Saab if (cwd[1] == ':') 209a5f0fb15SPaul Saab { 210a5f0fb15SPaul Saab if (cwd[0] >= 'a' && cwd[0] <= 'z') 211a5f0fb15SPaul Saab setdisk(cwd[0] - 'a'); 212a5f0fb15SPaul Saab else if (cwd[0] >= 'A' && cwd[0] <= 'Z') 213a5f0fb15SPaul Saab setdisk(cwd[0] - 'A'); 214a5f0fb15SPaul Saab } 215a5f0fb15SPaul Saab #endif 216a5f0fb15SPaul Saab #endif 217a5f0fb15SPaul Saab 218a5f0fb15SPaul Saab /* 219a5f0fb15SPaul Saab * Reopen the current input file. 220a5f0fb15SPaul Saab */ 221a5f0fb15SPaul Saab reedit_ifile(save_ifile); 222a5f0fb15SPaul Saab 223a5f0fb15SPaul Saab #if defined(SIGWINCH) || defined(SIGWIND) 224a5f0fb15SPaul Saab /* 225a5f0fb15SPaul Saab * Since we were ignoring window change signals while we executed 226a5f0fb15SPaul Saab * the system command, we must assume the window changed. 227a5f0fb15SPaul Saab * Warning: this leaves a signal pending (in "sigs"), 228a5f0fb15SPaul Saab * so psignals() should be called soon after lsystem(). 229a5f0fb15SPaul Saab */ 230a5f0fb15SPaul Saab winch(0); 231a5f0fb15SPaul Saab #endif 232a5f0fb15SPaul Saab } 233a5f0fb15SPaul Saab 234a5f0fb15SPaul Saab #endif 235a5f0fb15SPaul Saab 236a5f0fb15SPaul Saab #if PIPEC 237a5f0fb15SPaul Saab 238a5f0fb15SPaul Saab /* 239a5f0fb15SPaul Saab * Pipe a section of the input file into the given shell command. 240a5f0fb15SPaul Saab * The section to be piped is the section "between" the current 241a5f0fb15SPaul Saab * position and the position marked by the given letter. 242a5f0fb15SPaul Saab * 243a5f0fb15SPaul Saab * If the mark is after the current screen, the section between 244a5f0fb15SPaul Saab * the top line displayed and the mark is piped. 245a5f0fb15SPaul Saab * If the mark is before the current screen, the section between 246a5f0fb15SPaul Saab * the mark and the bottom line displayed is piped. 247a5f0fb15SPaul Saab * If the mark is on the current screen, or if the mark is ".", 248a5f0fb15SPaul Saab * the whole current screen is piped. 249a5f0fb15SPaul Saab */ 250a5f0fb15SPaul Saab public int 251*1ea31627SRobert Watson pipe_mark(int c, char *cmd) 252a5f0fb15SPaul Saab { 253a5f0fb15SPaul Saab POSITION mpos, tpos, bpos; 254a5f0fb15SPaul Saab 255a5f0fb15SPaul Saab /* 256a5f0fb15SPaul Saab * mpos = the marked position. 257a5f0fb15SPaul Saab * tpos = top of screen. 258a5f0fb15SPaul Saab * bpos = bottom of screen. 259a5f0fb15SPaul Saab */ 260a5f0fb15SPaul Saab mpos = markpos(c); 261a5f0fb15SPaul Saab if (mpos == NULL_POSITION) 262a5f0fb15SPaul Saab return (-1); 263a5f0fb15SPaul Saab tpos = position(TOP); 264a5f0fb15SPaul Saab if (tpos == NULL_POSITION) 265a5f0fb15SPaul Saab tpos = ch_zero(); 266a5f0fb15SPaul Saab bpos = position(BOTTOM); 267a5f0fb15SPaul Saab 268a5f0fb15SPaul Saab if (c == '.') 269a5f0fb15SPaul Saab return (pipe_data(cmd, tpos, bpos)); 270a5f0fb15SPaul Saab else if (mpos <= tpos) 271a5f0fb15SPaul Saab return (pipe_data(cmd, mpos, bpos)); 272a5f0fb15SPaul Saab else if (bpos == NULL_POSITION) 273a5f0fb15SPaul Saab return (pipe_data(cmd, tpos, bpos)); 274a5f0fb15SPaul Saab else 275a5f0fb15SPaul Saab return (pipe_data(cmd, tpos, mpos)); 276a5f0fb15SPaul Saab } 277a5f0fb15SPaul Saab 278a5f0fb15SPaul Saab /* 279a5f0fb15SPaul Saab * Create a pipe to the given shell command. 280a5f0fb15SPaul Saab * Feed it the file contents between the positions spos and epos. 281a5f0fb15SPaul Saab */ 282a5f0fb15SPaul Saab public int 283*1ea31627SRobert Watson pipe_data(char *cmd, POSITION spos, POSITION epos) 284a5f0fb15SPaul Saab { 285*1ea31627SRobert Watson FILE *f; 286*1ea31627SRobert Watson int c; 287a5f0fb15SPaul Saab extern FILE *popen(); 288a5f0fb15SPaul Saab 289a5f0fb15SPaul Saab /* 290a5f0fb15SPaul Saab * This is structured much like lsystem(). 291a5f0fb15SPaul Saab * Since we're running a shell program, we must be careful 292a5f0fb15SPaul Saab * to perform the necessary deinitialization before running 293a5f0fb15SPaul Saab * the command, and reinitialization after it. 294a5f0fb15SPaul Saab */ 295a5f0fb15SPaul Saab if (ch_seek(spos) != 0) 296a5f0fb15SPaul Saab { 297a5f0fb15SPaul Saab error("Cannot seek to start position", NULL_PARG); 298a5f0fb15SPaul Saab return (-1); 299a5f0fb15SPaul Saab } 300a5f0fb15SPaul Saab 301a5f0fb15SPaul Saab if ((f = popen(cmd, "w")) == NULL) 302a5f0fb15SPaul Saab { 303a5f0fb15SPaul Saab error("Cannot create pipe", NULL_PARG); 304a5f0fb15SPaul Saab return (-1); 305a5f0fb15SPaul Saab } 306a5f0fb15SPaul Saab clear_bot(); 307a5f0fb15SPaul Saab putstr("!"); 308a5f0fb15SPaul Saab putstr(cmd); 309a5f0fb15SPaul Saab putstr("\n"); 310a5f0fb15SPaul Saab 311a5f0fb15SPaul Saab deinit(); 312a5f0fb15SPaul Saab flush(); 313a5f0fb15SPaul Saab raw_mode(0); 314a5f0fb15SPaul Saab init_signals(0); 315a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C 316a5f0fb15SPaul Saab close_getchr(); 317a5f0fb15SPaul Saab #endif 318a5f0fb15SPaul Saab #ifdef SIGPIPE 319a5f0fb15SPaul Saab LSIGNAL(SIGPIPE, SIG_IGN); 320a5f0fb15SPaul Saab #endif 321a5f0fb15SPaul Saab 322a5f0fb15SPaul Saab c = EOI; 323a5f0fb15SPaul Saab while (epos == NULL_POSITION || spos++ <= epos) 324a5f0fb15SPaul Saab { 325a5f0fb15SPaul Saab /* 326a5f0fb15SPaul Saab * Read a character from the file and give it to the pipe. 327a5f0fb15SPaul Saab */ 328a5f0fb15SPaul Saab c = ch_forw_get(); 329a5f0fb15SPaul Saab if (c == EOI) 330a5f0fb15SPaul Saab break; 331a5f0fb15SPaul Saab if (putc(c, f) == EOF) 332a5f0fb15SPaul Saab break; 333a5f0fb15SPaul Saab } 334a5f0fb15SPaul Saab 335a5f0fb15SPaul Saab /* 336a5f0fb15SPaul Saab * Finish up the last line. 337a5f0fb15SPaul Saab */ 338a5f0fb15SPaul Saab while (c != '\n' && c != EOI ) 339a5f0fb15SPaul Saab { 340a5f0fb15SPaul Saab c = ch_forw_get(); 341a5f0fb15SPaul Saab if (c == EOI) 342a5f0fb15SPaul Saab break; 343a5f0fb15SPaul Saab if (putc(c, f) == EOF) 344a5f0fb15SPaul Saab break; 345a5f0fb15SPaul Saab } 346a5f0fb15SPaul Saab 347a5f0fb15SPaul Saab pclose(f); 348a5f0fb15SPaul Saab 349a5f0fb15SPaul Saab #ifdef SIGPIPE 350a5f0fb15SPaul Saab LSIGNAL(SIGPIPE, SIG_DFL); 351a5f0fb15SPaul Saab #endif 352a5f0fb15SPaul Saab #if MSDOS_COMPILER==WIN32C 353a5f0fb15SPaul Saab open_getchr(); 354a5f0fb15SPaul Saab #endif 355a5f0fb15SPaul Saab init_signals(1); 356a5f0fb15SPaul Saab raw_mode(1); 357a5f0fb15SPaul Saab init(); 358a5f0fb15SPaul Saab screen_trashed = 1; 359a5f0fb15SPaul Saab #if defined(SIGWINCH) || defined(SIGWIND) 360a5f0fb15SPaul Saab /* {{ Probably don't need this here. }} */ 361a5f0fb15SPaul Saab winch(0); 362a5f0fb15SPaul Saab #endif 363a5f0fb15SPaul Saab return (0); 364a5f0fb15SPaul Saab } 365a5f0fb15SPaul Saab 366a5f0fb15SPaul Saab #endif 367