-
-
Notifications
You must be signed in to change notification settings - Fork 2
/
dir.tea
30 lines (25 loc) · 1007 Bytes
/
dir.tea
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/opt/TeaAgeSolutions/TeaScript/bin/TeaScript
/*
* SPDX-FileCopyrightText: Copyright (C) 2023 Florian Thake, <contact |at| tea-age.solutions>.
* SPDX-License-Identifier: MIT
* see included file MIT_LICENSE.txt
*/
// this script prints all files of given dir (or current working dir if invoked without arguments)
// note: arg1 is legacy form of passing arguments, args the new form. if none is there, current working dir is used.
not is_defined arg1 and (def arg1 := if( is_defined args ) { args.0 } else { "." })
def cur := readdirfirst( arg1 )
println( "file listing of %(cur.path): ")
if( not cur.valid ) {
if( cur.error > 0 ) {
println( "error: %(cur.error)" )
}
}
repeat {
if( not cur.valid ) { stop }
if( cur.is_file ) {
println( "file: %(cur.name), size: %(cur.size), last modified: %(cur.last_modified)" )
} else if( cur.is_dir ) {
println( "dir: %(cur.name), last modified: %(cur.last_modified)" )
}
cur := readdirnext( cur )
}