diff options
author | Henrik Nord <[email protected]> | 2011-05-06 15:10:50 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2011-05-06 15:11:02 +0200 |
commit | 67992620807364ae8a256e63d4804b81afa2c379 (patch) | |
tree | 81533bcec7c9b1e3ddb37bc72b138898642c1d8a /erts/etc/unix/run_erl.c | |
parent | 6fb4aec04d38bf6b5609b544981c9cebc2d1c89a (diff) | |
parent | 1307af30ec3e2bfaeeca45a63fbc944791662226 (diff) | |
download | otp-67992620807364ae8a256e63d4804b81afa2c379.tar.gz otp-67992620807364ae8a256e63d4804b81afa2c379.tar.bz2 otp-67992620807364ae8a256e63d4804b81afa2c379.zip |
Merge branch 'jf/run_erl-disable-flow-control' into dev
* jf/run_erl-disable-flow-control:
Teach run_erl RUN_ERL_DISABLE_FLOWCNTRL for disabling flow control
OTP-9270
Diffstat (limited to 'erts/etc/unix/run_erl.c')
-rw-r--r-- | erts/etc/unix/run_erl.c | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/erts/etc/unix/run_erl.c b/erts/etc/unix/run_erl.c index e97cc14fab..8db8e09bee 100644 --- a/erts/etc/unix/run_erl.c +++ b/erts/etc/unix/run_erl.c @@ -991,9 +991,7 @@ static int open_pty_master(char **ptyslave) static int open_pty_slave(char *name) { int sfd; -#ifdef DEBUG struct termios tty_rmode; -#endif if ((sfd = open(name, O_RDWR, 0)) < 0) { return -1; @@ -1019,6 +1017,25 @@ static int open_pty_slave(char *name) } #endif + if (getenv("RUN_ERL_DISABLE_FLOWCNTRL")) { + if (tcgetattr(sfd, &tty_rmode) < 0) { + fprintf(stderr, "Cannot get terminal's current mode\n"); + exit(-1); + } + + tty_rmode.c_iflag &= ~IXOFF; + if (tcsetattr(sfd, TCSANOW, &tty_rmode) < 0) { + fprintf(stderr, "Cannot disable terminal's flow control on input\n"); + exit(-1); + } + + tty_rmode.c_iflag &= ~IXON; + if (tcsetattr(sfd, TCSANOW, &tty_rmode) < 0) { + fprintf(stderr, "Cannot disable terminal's flow control on output\n"); + exit(-1); + } + } + #ifdef DEBUG if (tcgetattr(sfd, &tty_rmode) < 0) { fprintf(stderr, "Cannot get terminals current mode\n"); |