Unix/ls: Difference between revisions

Content deleted Content added
Line 1,307: Line 1,307:
cheating solution:
cheating solution:
{{works with|Smalltalk/X}}
{{works with|Smalltalk/X}}
<lang smalltalk>Transcript showCR: ( PipeStream outputFromCommand:'ls' )</lang>
<lang smalltalk>Stdout printCR: ( PipeStream outputFromCommand:'ls' )</lang>
real solution:
real solution:
{{works with|Smalltalk/X}}
{{works with|Smalltalk/X}}
<lang smalltalk>Transcript showCR:('.' asFilename directoryContents sort asStringWith:Character cr)</lang>
<lang smalltalk>Stdout printCR:('.' asFilename directoryContents sort asStringWith:Character cr)</lang>or:<lang smalltalk>'.' asFilename directoryContents sort do:#printCR
</lang>
full 'ls -l' output:
full 'ls -l' output:
{{works with|Smalltalk/X}}
{{works with|Smalltalk/X}}
<lang smalltalk>dir := '.' asFilename.
<lang smalltalk>dir := '.' asFilename.
dir directoryContentsAsFilenames sort do:[:fn |
dir directoryContentsAsFilenames sort do:[:fn |
|line|
"/ generate a line of the form (loke ls -l):
"/ generate a line of the form (loke ls -l):
"/ drwxrwxrwx user group size date time name
"/ drwxrwxrwx user group size date time name
Line 1,341: Line 1,343:
s nextPutAll:fn baseName
s nextPutAll:fn baseName
].
].
Transcript showCR:line
line printCR
].</lang>
].</lang>