end of file for windows file

[rameshbhats]

Hi,

I am using Etcl for Windows(Evolane Tcl/Tk Engine
Version 1.0.1 (2009-01-06), I am trying some filehandling programs, where I wanted to read a file until end of file.

I used: while ![eof $file] { gets $file }

But with this code, Etcl stops responding(windows hangs).

Please guide me on this.

Regards
Ramesh

 

[feherke]

Hi

Watch the syntax.

In Tcl everything is a string which gets evaluated. Unquoted and quoted string is evaluated on parse time. So your code is reduced to this long before executing it :

[b]while[/b] true [teal]{[/teal] [b]gets[/b] [navy]$file[/navy] [teal]}[/teal]

To avoid that, you must enclose the string in braces ( {} ) :

[b]while[/b] [highlight][teal]{[/teal][/highlight][teal]![[/teal][b]eof[/b] [navy]$file[/navy][teal]][/teal][highlight][teal]}[/teal][/highlight] [teal]{[/teal] [b]gets[/b] [navy]$file[/navy] [teal]}[/teal]

Feherke.

http://free.rootshell.be/~feherke/

 

[rameshbhats]

Thanks Feherke.... This works