Opening and sending numbers to LPT1

woffer · Post by **woffer** » Fri Dec 21, 2001 12:57 am

Is it possible with TCL to open and send a 1 (the number 1) to the LPT1 port?
And how ? =)

jedis · Post by **jedis** » Fri Dec 21, 2001 1:56 am

And why would you want to do this?

I doubt anyone will help you if this is possible, that would be very annoying for sysadmin's.

woffer · Post by **woffer** » Fri Dec 21, 2001 9:11 am

Well first of all it's my own machine.. and i'm going to have some LEDs connected to the LPT1 port and i want them to light up at diffrent times using my bots.

stdragon · Post by **stdragon** » Fri Dec 21, 2001 9:44 pm

Is this for windows or linux?

First step is opening the port:

For DOS/Windows 95/98, this might work:

set fp [open "LPT1:" "r+"]

You might also try \.lpt1 ("\\.\lpt1")

For linux, try /dev/lp0

Then to output the 1... I'm not sure if you meant the string "1" like normal, or binary "1".
string: puts -nonewline $fp "1"
binary: puts -nonewline $fp [binary format c 1]
flush $fp

woffer · Post by **woffer** » Fri Dec 21, 2001 10:19 pm

Thanks for the help .. sorry for not telling you all the data/info. I was really tired when i wrote the question.
btw it worked. (i'm runing slackware8.0 on my machine)