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