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