mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 19:40:55 +00:00
7e338f778b
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@16557 72102866-910b-0410-8b05-ffd578937521
36 lines
1 KiB
Smalltalk
36 lines
1 KiB
Smalltalk
" List contents of current directory "
|
|
|
|
" Script variables "
|
|
| fileManager path files dict |
|
|
|
|
" Get default file manager "
|
|
fileManager := NSFileManager defaultManager.
|
|
|
|
|
|
" Get current path "
|
|
path := fileManager currentDirectoryPath.
|
|
|
|
" Write label on Transcript (for shell it is standard output) "
|
|
Transcript showLine:( 'Listing of directory: ', path ).
|
|
|
|
" Get files from 'path' "
|
|
files := fileManager directoryContentsAtPath:path.
|
|
|
|
" For each file from files do the following ..."
|
|
files do:
|
|
[ :file |
|
|
|
|
dict := fileManager fileAttributesAtPath: (path / file)
|
|
traverseLink:NO.
|
|
|
|
Transcript showLine:file.
|
|
|
|
Transcript showLine: (' Type: ', (dict @ NSFileType)).
|
|
Transcript showLine: (' Size: ', ((dict @ NSFileSize) stringValue)).
|
|
Transcript showLine: (' Date: ', ((dict @ NSFileModificationDate)
|
|
description)).
|
|
|
|
Transcript showLine:''
|
|
]
|
|
|
|
|