TTY.mod 450 B

12345678910111213141516171819
  1. #
  2. (*$R-*)
  3. IMPLEMENTATION MODULE TTY;
  4. FROM Unix IMPORT ioctl;
  5. FROM SYSTEM IMPORT ADR;
  6. PROCEDURE isatty(fd: INTEGER): BOOLEAN;
  7. VAR buf: ARRAY[1..100] OF CHAR;
  8. BEGIN
  9. #ifdef __USG
  10. RETURN ioctl(fd, INTEGER(ORD('T') * 256 + 1), ADR(buf)) >= 0;
  11. #else
  12. #ifdef __BSD4_2
  13. RETURN ioctl(fd, INTEGER(ORD('t') * 256 + 8 + 6*65536 + 40000000H), ADR(buf)) >= 0;
  14. #else
  15. RETURN ioctl(fd, INTEGER(ORD('t') * 256 + 8), ADR(buf)) >= 0;
  16. #endif
  17. #endif
  18. END isatty;
  19. END TTY.