pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-03-27
2000-03-27 20:29:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
b7df1bcc936625bef5af9c46291fbd585a7d92b9 (
15
lines) (+
13
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
some bugfixes..
Rev: bin/export.pike:1.31
Rev: bin/install.pike:1.50
Rev: bin/test_pike.pike:1.40
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
39
2000/03/
25
22
:
45
:
59
hubbe Exp $ */
+
/* $Id: test_pike.pike,v 1.
40
2000/03/
27
20
:
29:
45 hubbe Exp $ */
import Stdio;
27:
if(!istty_cache) { istty_cache=!!Stdio.stdin->tcgetattr();
-
if(!istty_cache) istty_cache=-1;
+
if(!istty_cache)
+
{
+
istty_cache=-1;
+
}else{
+
switch(getenv("TERM"))
+
{
+
case "dumb":
+
case "emacs":
+
istty_cache=-1;
}
-
+
}
+
}
return istty_cache>0; #endif }