Спец массивы

[impersonalis]

Вот тут накотал либу для работы с массивами:
+ где хочешь, там и создаёшь
+ динамический
+ можно передать как аргумент
+ можно хранить в типе

Вот либа и примерчик.
У меня работает, хотя надо ещё потестить...
мож кому пригодится

интересно ето - кому и зачем :/

[alex-mad]

Originally posted by jimon@Nov 18 2005, 10:33 PM
интересно ето - кому и зачем :/

эээ.....тому кто заинтересуется!

[SubZer0]

Originally posted by impersonalis@Nov 18 2005, 10:27 PM
Вот тут накотал либу для работы с массивами:

а на скорость тестил?

[impersonalis]

Кто-нибудь проверял либу в работе?
Ошибки есть/нет?

[impersonalis]

Вот облегчённая версия
тип Int
размерность -2

;created by impersonalis (b00lean team)
;impersonalis[@]boolean.name
;
;http://community.boolean.name/index.php
;http://boolean.name/index.php


Type SpecialArray2d
	Field PrivateArray%
	Field PrivateINIT_STRo%; size0f
	Field PrivateINIT_STRt%
End Type

Function SA_Create2d.SpecialArray2d(one%,two%)
	S.SpecialArray2d=New SpecialArray2d
	S\PrivateINIT_STRo=one
	S\PrivateINIT_STRt=two
	S\PrivateArray=CreateBank(one*two*4)
	Return S
End Function

Function SA_Private_ReturnIndex2d(S.SpecialArray2d,one%,two%)
	Local c=1
	Local ptr=(S\PrivateINIT_STRo-1)*(one%)+two-1
	ptr=ptr*4
	Return ptr
End Function

Function SA_OUT2d(S.SpecialArray2d,one%,two%)
	Local ptr=SA_Private_ReturnIndex2d(S,one%,two%)
 Return PeekInt(S\PrivateArray,ptr)
End Function

Function SA_IN2d(S.SpecialArray2d,one%,two%,inputZ%)
	Local ptr=SA_Private_ReturnIndex2d(S,one%,two%)
	PokeInt(S\PrivateArray,ptr,inputZ)
End Function

Function SA_Delete2d(S.SpecialArray2d)
	FreeBank S\PrivateArray
	Delete S
End Function

Вообще - тема не вызвала энтузиазма.

Вероятно - решение на любителя.

Поглядел первую версию. Как-то непонятно. Можно было имена переменным более логичные дать и хоть в комментах пояснить действие в той же функции SA_CREATE.