923 ! |
923 ! |
924 |
924 |
925 osNameForDirectory |
925 osNameForDirectory |
926 "special - return the OS's name for the receiver to |
926 "special - return the OS's name for the receiver to |
927 access it as a directory. |
927 access it as a directory. |
928 Care remove trailing backSlashes here and to use the shortName |
928 Care remove trailing backSlashes here." |
929 if available" |
|
930 |
929 |
931 |n| |
930 |n| |
932 |
931 |
933 n := self osNameForFile. |
932 n := self osNameForFile. |
934 |
933 |
935 (n endsWith:'\') ifTrue:[ |
934 (n endsWith:'\') ifTrue:[ |
936 ((n size == 3) and:[(n at:2) == $:]) ifFalse:[ |
935 ((n size == 3) and:[(n at:2) == $:]) ifFalse:[ |
937 n := n copyButLast:1 |
936 "keep \ in c:\" |
938 ] |
937 n := n copyButLast:1 |
|
938 ] |
939 ]. |
939 ]. |
940 "/ i := OperatingSystem infoOf:n. |
940 "/ i := OperatingSystem infoOf:n. |
941 "/ (i notNil and:[(shortName := i alternativeName) notNil]) ifTrue:[ |
941 "/ (i notNil and:[(shortName := i alternativeName) notNil]) ifTrue:[ |
942 "/ ^ shortName |
942 "/ ^ shortName |
943 "/ ]. |
943 "/ ]. |
944 ^ n |
944 ^ n |
945 |
945 |
946 "Modified: / 20.1.1998 / 15:39:06 / md" |
946 "Modified: / 20-01-1998 / 15:39:06 / md" |
947 "Modified: / 17.8.1998 / 10:04:01 / cg" |
947 "Modified: / 17-08-1998 / 10:04:01 / cg" |
|
948 "Modified (comment): / 21-01-2019 / 16:04:49 / Stefan Vogel" |
948 ! |
949 ! |
949 |
950 |
950 osNameForDirectoryContents |
951 osNameForDirectoryContents |
951 "special - return the OS's name for the receiver to |
952 "special - return the OS's name for the receiver to |
952 access it as a directory for reading the contents. |
953 access it as a directory for reading the contents. |