[Closed] Holdling keys and values inside struct

Page 1 / 2 Next

Dec 14, 2013 4:57 pm

What will be the best solution for managing dictionary data types?
I found two very useful solutions first by Loocas (duber studio) using .net Hashtable and
second by Dave Stewart using mxs Struct. I decide to try struct for this because it is very easy to define many different methods which can not be found in the .net Hashtable. This is “simplified” version of Dave struct.

struct List
 (
 	items = #(),
 	fn getItems = (this.items),
 	fn clearList = (this.items = #()),
 	fn getIdxBy key: val: = if (state = key == unsupplied) and val == unsupplied then 0 else
 	(
 		if this.items.count == 0 then 0 else
 		(
 			local cnt = 1, idx = 0, word = if state then val else key
 			while cnt != this.items.count do 
 			(	
 				item = if state then this.items[cnt].val else this.items[cnt].key
 				if item == word then (idx = cnt ; cnt = this.items.count ; idx) else cnt+=1 ; idx
 			)
 		)
 	),
 	fn addItem key val = (if (getIdxBy key:key) == 0 do append this.items (dataPair key:key val:val)),
 	fn addUniqueItem key val = (if ((getIdxBy key:key) == 0 and (getIdxBy val:val) == 0) do append this.items (dataPair key:key val:val)),
 	fn replaceItemByKey key newKey newVal =
 	(
 		if (idx = getIdxBy key:key) != 0 do (this.items[idx].key = newKey ; this.items[idx].val = newVal)
 	),
 	fn replaceItemByVal val newKey newVal =
 	(
 		if (idx = getIdxBy val:val) != 0 do (this.items[idx].key = newKey ; this.items[idx].val = newVal)
 	),
 	fn updateItemVal key newVal =
 	(
 		if (idx = getIdxBy key:key) != 0 do this.items[idx].val = newVal
 	),
 	fn updateItemKey val newKey =
 	(
 		if (idx = getIdxBy val:val) != 0 do this.items[idx].key = newKey
 	),		
 	fn getItemBy key: val: = if (state = key == unsupplied) and val == unsupplied then undefined else
 	(
 		if state then (if (idx = getIdxBy val:val) == 0 then undefined else this.items[idx]	)
 		else (if (idx = getIdxBy key:key) == 0 then undefined else this.items[idx])
 	),
 	fn getKey val = (if (idx = getIdxBy val:val) == 0 then undefined else this.items[idx].key),
 	fn getKeys = (for i = 1 to this.items.count collect this.items[i].key),
 	fn getVal key = (if (idx = getIdxBy key:key) == 0 then undefined else this.items[idx].val),
 	fn getVals = (for i = 1 to this.items.count collect this.items[i].val),
 	fn delItemBy key: val: = if (state = key == unsupplied) and val == unsupplied then print "Supply Key or Value First!" else
 	(
 		local idx = (if state then getIdxBy val:val else getIdxBy key:key)
 		if idx == 0 then print "This Item Is Not In The List" else deleteItem this.items idx
 	),
 	fn deleteIndex idx = (if idx > 0 and idx <= this.items.count then deleteItem this.items idx else print "The Index is Out of Range!"),
 	fn printList = if this.items.count == 0 then print "The List Is Empty!" else
 	(
 		for i = 1 to this.items.count do format "%:	%
" this.items[i].key this.items[i].val
 	),
 	fn sortList type:#key maxtomin:off =
 	(
 		fn sortByNameOrCount arr1 arr2 type: maxtomin: =
 		(
 			local first, second
 			case type of (
 				(#key): (first = arr1.key ; second = arr2.key)
 				(#val): (first = arr1.val ; second = arr2.val)
 			)
 			case of (
 				(first < second): if not maxtomin then -1 else 1
 				(first > second): if not maxtomin then 1 else -1
 				default:0
 			)
 		)
 		qsort this.items sortByNameOrCount type:type maxtomin:maxtomin
 		this.items			
 	)
 )

First problem that I have here is getIdxBy function. Outside the struct works fine but when
I try below example there is a problem.

--example
 myList = List()
 fn randomVirtualFileGen cnt: viritualPathName:@"C:	emp
ew folder	est files\" =
 (
 	local sioPath = dotNetClass "System.IO.Path"
 	outputArr = for i = 1 to cnt collect 
 	(
 		if viritualPathName == unsupplied then sioPath.GetRandomFileName() --only file name with extension
 		else viritualPathName + "\\" + sioPath.GetRandomFileName() --ful path file name with extension
 	)
 )
 pathsArr = randomVirtualFileGen cnt:10
 for i = 1 to pathsArr.count do myList.addUniqueItem ("path_" + i as string) pathsArr[i]
 myList.printList()
 --result
 --#((DataPair key:"path_1" val:"C:	emp
ew folder	est files\\0cixvjbt.ag2"))

I don’t know why I get only one Item but not 10?

31 Replies

denisT

Dec 14, 2013 4:57 pm

this is overcomplicated version of a struct what i can find follow the link.
give me a couple minutes to make everything really simple…

1 Reply