66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
return $pi
}
proc preparePlugin {top} {
#FIXA: plugin miffo
disallowEdit $top
set out1 [tmpFile]
set out2 [tmpFile]
set chi [open $::diff($top,leftFile) r]
set cho [open $out1 w]
interp share {} $chi $::diff($top,plugin)
interp share {} $cho $::diff($top,plugin)
|
>
|
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
return $pi
}
proc preparePlugin {top} {
#FIXA: plugin miffo
disallowEdit $top
$::diff($top,plugin) eval [list array set ::Pref [array get ::Pref]]
set out1 [tmpFile]
set out2 [tmpFile]
set chi [open $::diff($top,leftFile) r]
set cho [open $out1 w]
interp share {} $chi $::diff($top,plugin)
interp share {} $cho $::diff($top,plugin)
|