apm_backup_file_p pathWhat it does:
Returns 1 if $path is a backup file, or 0 if not. We consider it a backup file if any of the following apply:Defined in: /web/philip/packages/acs-core/apm-procs.tcl
- its name begins with
#
- its name is
bak
- its name begins with
bak
and one or more non-alphanumeric characters- its name ends with
.old
,.bak
, or~
Source code:
return [regexp {(\.old|\.bak|~)$|^#|^bak([^a-zA-Z]|$)} [file tail $path]]