mirror of
				git://git.code.sf.net/p/zsh/code
				synced 2025-10-31 18:10:56 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			130 lines
		
	
	
	
		
			3 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			130 lines
		
	
	
	
		
			3 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /*
 | |
|  * clone.c - start a forked instance of the current shell on a new terminal
 | |
|  *
 | |
|  * This file is part of zsh, the Z shell.
 | |
|  *
 | |
|  * Copyright (c) 1997 Zoltán Hidvégi
 | |
|  * All rights reserved.
 | |
|  *
 | |
|  * Permission is hereby granted, without written agreement and without
 | |
|  * license or royalty fees, to use, copy, modify, and distribute this
 | |
|  * software and to distribute modified versions of this software for any
 | |
|  * purpose, provided that the above copyright notice and the following
 | |
|  * two paragraphs appear in all copies of this software.
 | |
|  *
 | |
|  * In no event shall Zoltán Hidvégi or the Zsh Development Group be liable
 | |
|  * to any party for direct, indirect, special, incidental, or consequential
 | |
|  * damages arising out of the use of this software and its documentation,
 | |
|  * even if Zoltán Hidvégi and the Zsh Development Group have been advised of
 | |
|  * the possibility of such damage.
 | |
|  *
 | |
|  * Zoltán Hidvégi and the Zsh Development Group specifically disclaim any
 | |
|  * warranties, including, but not limited to, the implied warranties of
 | |
|  * merchantability and fitness for a particular purpose.  The software
 | |
|  * provided hereunder is on an "as is" basis, and Zoltán Hidvégi and the
 | |
|  * Zsh Development Group have no obligation to provide maintenance,
 | |
|  * support, updates, enhancements, or modifications.
 | |
|  *
 | |
|  */
 | |
| 
 | |
| /*
 | |
|  * The clone builtin can be used to start a forked instance of the current
 | |
|  * shell on a new terminal.  The only argument to the builtin is the name
 | |
|  * of the new terminal.  In the new shell the PID, PPID and TTY parameters
 | |
|  * are changed appropriately.  $! is set to zero in the new instance of the
 | |
|  * shell and to the pid of the new instance in the original shell.
 | |
|  *
 | |
|  */
 | |
| 
 | |
| #include "clone.mdh"
 | |
| #include "clone.pro"
 | |
| 
 | |
| /**/
 | |
| static int
 | |
| bin_clone(char *nam, char **args, char *ops, int func)
 | |
| {
 | |
|     int ttyfd, pid;
 | |
| 
 | |
|     unmetafy(*args, NULL);
 | |
|     ttyfd = open(*args, O_RDWR|O_NOCTTY);
 | |
|     if (ttyfd < 0) {
 | |
| 	zwarnnam(nam, "%s: %e", *args, errno);
 | |
| 	return 1;
 | |
|     }
 | |
|     pid = fork();
 | |
|     if (!pid) {
 | |
| 	clearjobtab();
 | |
| 	ppid = getppid();
 | |
| 	mypid = getpid();
 | |
| #ifdef HAVE_SETSID
 | |
| 	if (setsid() != mypid) {
 | |
| 	    zwarnnam(nam, "failed to create new session: %e", NULL, errno);
 | |
| #endif
 | |
| #ifdef TIOCNOTTY
 | |
| 	    if (ioctl(SHTTY, TIOCNOTTY, 0))
 | |
| 		zwarnnam(nam, "%e", NULL, errno);
 | |
| 	    setpgrp(0L, mypid);
 | |
| #endif
 | |
| #ifdef HAVE_SETSID
 | |
| 	}
 | |
| #endif
 | |
| 	if (ttyfd) {
 | |
| 	    close(0);
 | |
| 	    dup(ttyfd);
 | |
| 	} else
 | |
| 	    ttyfd = -1;
 | |
| 	close(1);
 | |
| 	close(2);
 | |
| 	dup(0);
 | |
| 	dup(0);
 | |
| 	closem(0);
 | |
| 	close(coprocin);
 | |
| 	close(coprocout);
 | |
| 	init_io();
 | |
| 	setsparam("TTY", ztrdup(ttystrname));
 | |
|     }
 | |
|     close(ttyfd);
 | |
|     if (pid < 0) {
 | |
| 	zerrnam(nam, "fork failed: %e", NULL, errno);
 | |
| 	return 1;
 | |
|     }
 | |
|     lastpid = pid;
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| static struct builtin bintab[] = {
 | |
|     BUILTIN("clone", 0, bin_clone, 1, 1, 0, NULL, NULL),
 | |
| };
 | |
| 
 | |
| /**/
 | |
| int
 | |
| setup_clone(Module m)
 | |
| {
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| /**/
 | |
| int
 | |
| boot_clone(Module m)
 | |
| {
 | |
|     return !addbuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
 | |
| }
 | |
| 
 | |
| #ifdef MODULE
 | |
| 
 | |
| /**/
 | |
| int
 | |
| cleanup_clone(Module m)
 | |
| {
 | |
|     deletebuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| /**/
 | |
| int
 | |
| finish_clone(Module m)
 | |
| {
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| #endif
 |