|
global ptp_file_name
- J( e# ]& s3 A4 a3 \set tmp_file_name "${ptp_file_name}_"
( Q3 B3 B; F# X3 o# O; Vif {[file exists $tmp_file_name]} { MOM_remove_file $tmp_file_name } 8 r, n$ E q- g& ^
MOM_close_output_file $ptp_file_name 0 r8 q' m( U0 ^0 d! A: ]
file rename $ptp_file_name $tmp_file_name & P" `6 y5 @/ N- j! @
set ifile [open $tmp_file_name r] $ k# i+ k; I' T6 n4 Z5 z! _
set ofile [open $ptp_file_name w] ' I% |+ f6 `2 N! V4 M
global mom_machine_time ! G. d) C% |6 l' O/ D. [
puts $ofile "(CYCLE TIME = [format "%.2f" $mom_machine_time] MIN.)" 0 k. C+ Z3 Z7 s% s7 o9 m7 k9 K9 n
set buf "" while { [gets $ifile buf] > 0 } { puts $ofile $buf }
0 w/ k/ k$ z( H6 M; cclose $ifile u# s6 J8 q, P1 Z5 w
close $ofile ) h/ V+ j9 e& G3 i4 ]
MOM_remove_file $tmp_file_name
% D4 P6 C2 [8 O1 R2 D4 vMOM_open_output_file $ptp_file_name + m5 u) H7 ?7 O8 F }$ A% j
/ }& \" q3 G; q! ]# s/ _
|
|