Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Unique ids for nils and booleans in arrays.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-05-11 11:51:20 -05:00
parent 28a3d22911
commit 5cf1d7bcc6
2 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/MiniDocs/Array.extension.st
View File

@ -26,3 +26,20 @@ Array >> bagOfWordsFor: sentenceArray [
].
^ bagOfWords
]
{ #category : #'*MiniDocs' }
Array >> replaceWithUniqueNilsAndBooleans [
| response |
(self includesAny: #(true false nil))
ifFalse: [ response := self ]
ifTrue: [ | newItem |
response := OrderedCollection new.
self do: [:item |
(item isBoolean or: [ item isNil ])
ifTrue: [ newItem := item asString, '-', (NanoID generate copyFrom: 1 to: 3) ]
ifFalse: [ newItem := item ].
response add: newItem.
].
].
^ response
]

19
src/MiniDocs/OrderedDictionary.extension.st
View File

@ -48,7 +48,7 @@ OrderedDictionary >> replaceNilsWith: aCharacter [
{ #category : #'*MiniDocs' }
OrderedDictionary >> replaceWithUniqueNilsAndBooleansStartingAt: anInteger [
| totalNils shortUID |
| totalNils shortUID newArray |
totalNils := self flattened asDataSeries countNils.
shortUID := [NanoID generate copyFrom: 1 to: 3].
self associations doWithIndex: [:assoc :i | | subIndex |
@ -58,21 +58,8 @@ OrderedDictionary >> replaceWithUniqueNilsAndBooleansStartingAt: anInteger [
assoc value isBoolean
ifTrue: [ self at: assoc key put: assoc value asString, '-', subIndex ].
assoc value isDictionary ifTrue: [assoc replaceWithUniqueNilsAndBooleansStartingAt: i].
assoc value isArray ifTrue: [ | newArray|
newArray := (assoc value asDataSeries replaceNilsWith: 'nil-', shortUID value) asArray.
(newArray includesAny: #(true false))
ifTrue: [ | response newItem |
response := OrderedCollection new.
self do: [ :item |
item isBoolean
ifTrue: [ newItem := item asString, '-', shortUID value]
ifFalse: [ newItem := item ].
response add: newItem.
].
newArray := response asArray.
].
self at: assoc key put: newArray
]
assoc value isArray
ifTrue: [ self at: assoc key put: (assoc value replaceWithUniqueNilsAndBooleans)]
]
]