#创建过程 |
056 | proc invokeQuads { } { |
057 | set f [open |quads.exe r+] |
058 | foreach e {.f.a .f.b .f.c} { |
059 | set entry [$e get] |
060 | if { [string compare $entry ""] == 0 } { |
061 | puts stdout "Some entry(ies) are null .... enter them Now \n" |
062 | close $f |
063 | return |
064 | } else { |
065 | puts $f $entry |
066 | } |
067 | } |
068 |
| 069 | #将以上读取的数据写入一个通道的缓冲区 |
070 | flush $f |
| 欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |