--- a/String.st Mon Aug 07 15:04:49 2006 +0200
+++ b/String.st Mon Aug 07 15:06:02 2006 +0200
@@ -501,67 +501,6 @@
"Modified: 23.4.1996 / 16:00:38 / cg"
! !
-!String methodsFor:'@ DAPAS SystemExtensions'!
-
-asCompoundFileName
-
- "Public - Build a IStorage-, IStreamName with maximal length of 31 characters.
- Remove all characters not allowed in a IStorage-, IStreamName.
- Space and fullstop at the beginning and the end are also not allowed
- (convention of file name). "
- "Changed by K3/EES5-Vr, 24.11.98"
-
- | aPTDLR aString maxNameSize size |
-
- maxNameSize := 31.
-"
- (aPTDLR := PavTestDataLibRef fromString: self) namePrefix isNil
- ifFalse: [
- aString := (DapasDBPavTestDataLibRef
- fromPavTestDataLibRef: aPTDLR) fullName.
- ]
- ifTrue: [
- aString := self.
- ].
-"
- aString := self.
- size := aString size.
-
-
- [aString size > 1 and: [aString first = $. or: [aString first = $ ]]]
- whileTrue: [
- aString := (aString copyFrom: 2 to: aString size).
- ].
-
- aString := (aString reversed select:
- [ :char |
- (char isCompoundFileNameChar)
- ifTrue: [
- (char isSeparator)
- ifTrue: [(size := size - 1) < maxNameSize]
- ifFalse: [true]
- ]
- ifFalse: [false]
- ]).
-
- aString := (aString select:
- [ :char |
- ((char isVowel and: [char isLowercase]))
- ifTrue: [(size := size - 1) < maxNameSize]
- ifFalse: [true]
- ]) reversed.
-
- [aString size > 0 and: [aString last = $. or: [aString last = $ ]]]
- whileTrue: [
- aString := (aString copyFrom: 1 to: aString size -1).
- ].
-
- aString := (aString copyFrom: 1 to: (maxNameSize min: aString size)).
-
- ^aString
-
- "Created: / 20-06-2006 / 17:17:42 / fm"
-! !
!String methodsFor:'Compatibility-VW5.4'!
@@ -3517,5 +3456,5 @@
!String class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.236 2006-08-07 13:04:49 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.237 2006-08-07 13:06:02 fm Exp $'
! !