|
global ptp_file_name
' J$ [( P9 k9 _/ K- E+ u0 uset tmp_file_name "${ptp_file_name}_" 0 ~7 F+ T( x3 S" |7 j* Z
if {[file exists $tmp_file_name]} { MOM_remove_file $tmp_file_name }
$ x' p6 V5 T; P% D K& f6 lMOM_close_output_file $ptp_file_name
: I/ e5 Q# _9 Q* I# n, _, [file rename $ptp_file_name $tmp_file_name 0 o% {2 A% g/ X- O6 ^) n
set ifile [open $tmp_file_name r]
; Q$ f" {, y' k' Jset ofile [open $ptp_file_name w] # m% f+ u/ h. U' |+ n
global mom_machine_time
N; L; x- e8 ?8 _8 N3 iputs $ofile "(CYCLE TIME = [format "%.2f" $mom_machine_time] MIN.)" ' f8 V" B3 i3 n7 t4 P/ [- v2 N7 Y
set buf "" while { [gets $ifile buf] > 0 } { puts $ofile $buf }
* c T# L1 A, z' q5 {* u! pclose $ifile 6 P3 t: ?% [) }5 I+ h
close $ofile
2 S3 j! c( k$ U$ tMOM_remove_file $tmp_file_name 0 c+ g0 k1 V+ h
MOM_open_output_file $ptp_file_name
' C1 F4 ^" d/ y1 Z: N: e! u
* P9 U! K' |/ }+ i- g2 r c: w) e% W |
|