Subversion Repositories or1k_old

#!expect --

# Synopsis: fixcat

# Author: Don Libes

# Description: test to see if /bin/cat is unbuffered (i.e., -u is needed)

# Return 0 if buffered, 1 if unbuffered.

#

# If this file is sitting in an architecture-specific library directory,

# then it serves as a marker that your /bin/cat buffers by default.

# test for when catting to/from files

log_user 0

spawn -open [open "|cat" "r+"]

send "\r"

expect "\r" {exit 1}

# test for when catting to real tty

#log_user 0

#spawn /bin/cat

#send "\r"

#expect "\r\n\r\n" {exit 1}