Introduce ZTimestampFormat>>#specificationElements

svenvc · Sep 22, 2023 · a6637ad · a6637ad
1 parent 8633921
commit a6637ad
Showing 1 changed file with 24 additions and 15 deletions.
diff --git a/repository/ZTimestamp-Core/ZTimestampFormat.class.st b/repository/ZTimestamp-Core/ZTimestampFormat.class.st
@@ -312,21 +312,15 @@ ZTimestampFormat >> actualOffsetForTimestamp: timestamp [
 
 { #category : #private }
 ZTimestampFormat >> compileSpecification [
-	| offset elements |
-	elements := Array streamContents: [ :stream |
-		offset := 1.
-		[ offset <= specification size ] whileTrue: [ 
-			(self nextFormatKeyStartingAt: offset)
-				ifNotNil: [ :formatKey |
-					stream nextPut: (self class formats at: formatKey).
-					offset := offset + formatKey size ]
-				ifNil: [ 
-					stream nextPut: (specification at: offset).
-					offset := offset + 1 ] ] ].
-	formatter := elements collect: [ :each | 
-			each isCharacter ifTrue: [ each ] ifFalse: [ (#format:, each, #On:) asSymbol ] ].
-	parser := elements collect: [ :each | 
-			each isCharacter ifTrue: [ each ] ifFalse: [ (#parse, each capitalized, #From:) asSymbol ] ] 
+	| elements |
+	elements := self specificationElements.
+	formatter := elements
+			collect: [ :each | each isCharacter ifTrue: [ each ] ifFalse: [ (#format: , each , #On:) asSymbol ] ].
+	parser := elements
+			collect: [ :each | 
+				each isCharacter
+					ifTrue: [ each ]
+					ifFalse: [ (#parse , each capitalized , #From:) asSymbol ] ]
 ]
 
 { #category : #accessing }
@@ -1144,6 +1138,21 @@ ZTimestampFormat >> specification: exampleString [
 	self compileSpecification
 ]
 
+{ #category : #private }
+ZTimestampFormat >> specificationElements [
+	| offset |
+	^ Array
+		streamContents: [ :stream | 
+			offset := 1.
+			[ offset <= specification size ]
+				whileTrue: [ (self nextFormatKeyStartingAt: offset)
+						ifNotNil: [ :formatKey | 
+							stream nextPut: (self class formats at: formatKey).
+							offset := offset + formatKey size ]
+						ifNil: [ stream nextPut: (specification at: offset).
+							offset := offset + 1 ] ] ]
+]
+
 { #category : #private }
 ZTimestampFormat >> string: string contains: subString startingAt: offset [
 	subString doWithIndex: [ :each :index |