add String>>#gtCharIndexAtByteOffset:

feenkcom · Nov 28, 2024 · 326ef62 · 326ef62
1 parent 56ead9b
commit 326ef62
Show file tree

Hide file tree

Showing 5 changed files with 33 additions and 0 deletions.
diff --git a/src/Bloc/ByteString.extension.st b/src/Bloc/ByteString.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #ByteString }
+
+{ #category : #'*Bloc' }
+ByteString >> gtCharIndexAtByteOffset: anOffset [
+	^ anOffset + 1
+]
diff --git a/src/Bloc/ByteSymbol.extension.st b/src/Bloc/ByteSymbol.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #ByteSymbol }
+
+{ #category : #'*Bloc' }
+ByteSymbol >> gtCharIndexAtByteOffset: anOffset [
+	^ anOffset + 1
+]
diff --git a/src/Bloc/String.extension.st b/src/Bloc/String.extension.st
@@ -6,3 +6,8 @@ String >> asBlocElementId [
 
 	^ BlElementId named: self asSymbol
 ]
+
+{ #category : #'*Bloc' }
+String >> gtCharIndexAtByteOffset: anOffset [
+	^ self subclassResponsibility
+]
diff --git a/src/Bloc/WideString.extension.st b/src/Bloc/WideString.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #WideString }
+
+{ #category : #'*Bloc' }
+WideString >> gtCharIndexAtByteOffset: anOffset [
+	<primitive: 'primitiveWideStringByteIndexToCharIndex'>
+
+	^ self primitiveFail
+]
diff --git a/src/Bloc/WideSymbol.extension.st b/src/Bloc/WideSymbol.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #WideSymbol }
+
+{ #category : #'*Bloc' }
+WideSymbol >> gtCharIndexAtByteOffset: anOffset [
+	<primitive: 'primitiveWideStringByteIndexToCharIndex'>
+
+	^ self primitiveFail
+]