314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
|
#
# NOTE: Either the persistent root directory must already exist -OR- we
# must be able to create it.
#
if {![file isdirectory $persistentRootDirectory] && \
[catch {file mkdir $persistentRootDirectory}]} then {
error "persistent root directory does not exist and could not be created"
}
}
#
# NOTE: This procedure returns the name of the package index file for the
# language specified by the language argument. An empty string will
# be returned if the language is unsupported or unrecognized.
|
>
>
|
|
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
#
# NOTE: Either the persistent root directory must already exist -OR- we
# must be able to create it.
#
if {![file isdirectory $persistentRootDirectory] && \
[catch {file mkdir $persistentRootDirectory}]} then {
error [appendArgs \
"persistent root directory \"" $persistentRootDirectory \
"\" does not exist and could not be created"]
}
}
#
# NOTE: This procedure returns the name of the package index file for the
# language specified by the language argument. An empty string will
# be returned if the language is unsupported or unrecognized.
|