|
global ptp_file_name
; ~ e2 l0 U1 P- ^set tmp_file_name "${ptp_file_name}_" 1 T. V3 n2 T) l: O9 @6 k4 ~) Z
if {[file exists $tmp_file_name]} { MOM_remove_file $tmp_file_name }
6 v. ]0 h5 C9 e4 V7 O9 T8 fMOM_close_output_file $ptp_file_name
9 z% |6 K$ B3 |- \) ]& D3 l* Ifile rename $ptp_file_name $tmp_file_name 6 C& {. E& V7 h6 V% `
set ifile [open $tmp_file_name r]
7 j8 o5 V% D3 N; c; U' y$ @9 w/ o. Mset ofile [open $ptp_file_name w]
* N% T$ M8 h+ ]9 { A, Zglobal mom_machine_time
/ i9 w6 I3 o, D6 w# I$ uputs $ofile "(CYCLE TIME = [format "%.2f" $mom_machine_time] MIN.)" ' p. q1 Q! B/ A: s+ U
set buf "" while { [gets $ifile buf] > 0 } { puts $ofile $buf } , c) t+ W, F# P7 m; n5 i0 j
close $ifile
. p1 E, [" m1 L7 A) }close $ofile % }+ [+ ^: o7 y
MOM_remove_file $tmp_file_name
8 ~7 p' K. T) O8 Q2 u' cMOM_open_output_file $ptp_file_name 2 [/ F4 E$ n7 D d# v/ |
; u7 o( w' ~; V; A" U: Y" L; W
|
|