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> |
<lang smalltalk>Stdout printCR: ( PipeStream outputFromCommand:'ls' )</lang> |
||
real solution: |
real solution: |
||
{{works with|Smalltalk/X}} |
{{works with|Smalltalk/X}} |
||
<lang smalltalk> |
<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 |
||
]. |
]. |
||
line printCR |
|||
].</lang> |
].</lang> |
||