3972 getMountedVolumes

  3973     "return info about mounted volumes. 

  3974      The amount of information returned depends upon the OS, and is

  3975      not guaranteed to be consistent across architectures.

  3976      On unix, the information returned is (at least):

  3977         mountPoint - mount point

  3978         fileSystem - device or NFS-remotePath

  3979     "

  3980 

  3981     |p outputText keys values info infoEntry|

  3982 

  3983     p := PipeStream readingFrom:('df').

  3984     p isNil ifTrue:[^ nil].

  3985 

  3986     [

  3987         outputText := p contentsOfEntireFile.

  3988     ] valueNowOrOnUnwindDo:[

  3989         p close.

  3990     ].

  3991 "/ Transcript showCR:outputText asString.

  3992     outputText isNil ifTrue:[^ nil].

  3993 

  3994     outputText := outputText asCollectionOfLines.

  3995     outputText size < 2 ifTrue:[^ nil].

  3996 

  3997     keys := (outputText at:1) asLowercase asCollectionOfWords.

  3998     "/ we may have to validate the following column indices

  3999     "/ on some rude Unix versions ...

  4000 

  4001     info := OrderedCollection new.

  4002 

  4003     outputText from:2 do:[:line |

  4004         values := line asCollectionOfWords.

  4005 

  4006         values size >= 2 ifTrue:[

  4007 

  4008             infoEntry := IdentityDictionary new.

  4009             infoEntry at:#mountPoint put:(values last).

  4010             infoEntry at:#fileSystem put:(values first).

  4011             info add:infoEntry.

  4012         ]

  4013     ].

  4014     ^ info

  4015 

  4016     "

  4017      OperatingSystem getMountedVolumes

  4018     "

  4019 

  4020     "Modified: / 22.5.1999 / 00:32:13 / cg"

  4021 !

  4022