Searched refs:perm (Results 1 – 11 of 11) sorted by relevance
58 set perm [file attributes $f -perm]60 set perm 065 lappend res [list $relpath / $mtime $perm]71 lappend res [list $relpath $data $mtime $perm]
642 set ::G(perm:sqlite3_args) [list -vfs fs]956 set perm-alt-pcache-testset {986 } -files ${perm-alt-pcache-testset}1144 set ::G(perm:name) $name1145 set ::G(perm:prefix) $options(-prefix)1148 set ::G(perm:presql) $options(-presql)1172 unset -nocomplain ::G(perm:sqlite3_args)1175 unset ::G(perm:name)1176 unset ::G(perm:prefix)1177 unset ::G(perm:dbconfig)[all …]
27 if {[info exists ::G(perm:dbconfig)] && $::G(perm:dbconfig)!=""} {
1115 set x [list [file attr test.db-wal -perm] [file attr test.db-shm -perm]]1131 proc perm {} {1135 lappend L [file attr $f -perm]1167 file attr test.db -perm $db_perm1168 file attr test.db-wal -perm $wal_perm1169 file attr test.db-shm -perm $shm_perm1171 set L [file attr test.db -perm]1172 lappend L [file attr test.db-wal -perm]1173 lappend L [file attr test.db-shm -perm]
155 if {![info exists ::G(perm:presql)]} {219 if {[info exists ::G(perm:presql)]==0 || $::G(perm:presql)==""} {
26 if {[info exists ::G(perm:presql)]} {
61 file attr test.db-journal -perm
132 if {![info exists ::G(perm:presql)]} {
2306 set perm ""2307 catch {set perm $::G(perm:name)}2308 set perm
32 catch { set presql "$::G(perm:presql);" }33 unset -nocomplain ::G(perm:presql)
186 foreach {tn perm} {195 file attributes test.db -permissions $perm204 regsub {^00} $perm {0.} perm2