equal
deleted
inserted
replaced
3179 ]. |
3179 ]. |
3180 ^ suffix |
3180 ^ suffix |
3181 ! |
3181 ! |
3182 |
3182 |
3183 suffixes |
3183 suffixes |
3184 |
|
3185 | lastSuff lastButOneSuff| |
3184 | lastSuff lastButOneSuff| |
3186 |
3185 |
|
3186 lastSuff := self suffix. |
3187 (fileName name occurrencesOf:$.) <= 1 ifTrue:[ |
3187 (fileName name occurrencesOf:$.) <= 1 ifTrue:[ |
3188 ^ Array with:(self suffix) with:nil. |
3188 ^ Array with:lastSuff with:nil. |
3189 ]. |
3189 ]. |
3190 (fileName baseName occurrencesOf:$.) <= 1 ifTrue:[ |
3190 (fileName baseName occurrencesOf:$.) <= 1 ifTrue:[ |
3191 ^ Array with:(self suffix) with:nil. |
3191 ^ Array with:lastSuff with:nil. |
3192 ]. |
3192 ]. |
3193 |
3193 |
3194 ((lastSuff := self suffix) isEmpty) ifTrue:[ |
3194 lastSuff isEmpty ifTrue:[ |
3195 lastSuff := nil. |
3195 lastSuff := nil. |
3196 ] ifFalse:[ |
3196 ] ifFalse:[ |
3197 lastSuff := lastSuff asLowercase. |
3197 lastSuff := lastSuff asLowercase. |
3198 ]. |
3198 ]. |
3199 |
3199 |
3208 lastSuff := lastButOneSuff. |
3208 lastSuff := lastButOneSuff. |
3209 lastButOneSuff := nil. |
3209 lastButOneSuff := nil. |
3210 ] |
3210 ] |
3211 ]. |
3211 ]. |
3212 ^ Array with:lastSuff with:lastButOneSuff |
3212 ^ Array with:lastSuff with:lastButOneSuff |
|
3213 |
|
3214 "Modified: / 09-02-2017 / 13:51:12 / stefan" |
3213 ! |
3215 ! |
3214 |
3216 |
3215 type |
3217 type |
3216 "returns the type of the file |
3218 "returns the type of the file |
3217 " |
3219 " |