143 |
|
proc load_vars {f {vl all}} { # load RIF variables |
144 |
|
global curmess radvar alldone |
145 |
|
if {"$f" == ""} {return 0} |
146 |
< |
if {! [file exists $f]} { |
146 |
> |
if {! [file isfile $f]} { |
147 |
|
beep |
148 |
|
set curmess "$f: no such file." |
149 |
|
return 0 |
238 |
|
return 0 |
239 |
|
} |
240 |
|
} elseif {[file exists $f]} { |
241 |
+ |
set ftyp [file type $f] |
242 |
+ |
if { $ftyp != "file" } { |
243 |
+ |
beep |
244 |
+ |
set curmess "Selected file $f is a $ftyp." |
245 |
+ |
return 0 |
246 |
+ |
} |
247 |
|
if [tk_dialog .dlg {Verification} \ |
248 |
|
"Overwrite existing file $f?" \ |
249 |
|
questhead 1 {Go Ahead} {Cancel}] { |
250 |
|
return 0 |
251 |
|
} |
252 |
|
} |
253 |
< |
if {[file exists $f] && ! [file writable $f] && |
253 |
> |
if {[file isfile $f] && ! [file writable $f] && |
254 |
|
[catch {exec chmod u+w $f} curmess]} { |
255 |
|
beep |
256 |
|
return 0 |
267 |
|
proc newnew f { # create a new RIF |
268 |
|
global rifname readonly curmess radvar |
269 |
|
if [file exists $f] { |
270 |
+ |
set ftyp [file type $f] |
271 |
+ |
if { $ftyp != "file" } { |
272 |
+ |
beep |
273 |
+ |
set curmess "Selected file $f is a $ftyp." |
274 |
+ |
return 0 |
275 |
+ |
} |
276 |
|
if [tk_dialog .dlg {Verification} \ |
277 |
|
"File $f exists -- disregard it?" \ |
278 |
|
questhead 1 {Yes} {Cancel}] { |