]]>]]>
]]>
Сама задача взята из кропотливого создания врапперов для DLL библиотек, написанных на C/C++. Со всеми вытекающими.
Так как в исходном коде оригиналов повсеместно используется встроенный оператор enum, и возникла идея перенести (сразу оговорюсь - перенести частично!!!) поведение оператора по автоматизированному присвоению значений спискам переменных в сам враппер, силами Autohotkey.
Ничего большего не требовалось.
Надеюсь, что теперь разъяснил более детально.
ЗЫ. Никаких полноценных свойств enum не требуется! Это просто невозможно. Константы не поддерживаются Autohotkey. Присвоение переменной внутри списка значения другой переменной из того же списка, но объявленной ранее - невозможно, throw ValueError будет итогом такой попытки.
Любые попытки «колдовать» над решением этих невозможностей - избыточны. Поэтому смысла не имеют.
ЗЫ. И вот, кстати, я не до конца понял, либо не понял совсем. Если я в своём примере подаю на вход функции рефы на переменные, там же и объявляемые, а на выходе получаю эти переменные уже со значениями, то в Вашем примере ничего, кроме массива значений, я не увидел. Объяснитесь, пожалуйста.
]]>Идея была именно в автоматической инициализации списков переменных. И реализованнго выше алгоритма пока что, на данном этапе, вполне достаточно.
В то же время, в процессе реализации, стало понятно, что полностью имитировать поведение «C-like enum» не удастся. По крайней мере без поддержки на уровне интерпретатора Autohotkey (а это, боюсь, будет та же история, что с Си-шным циклом for(statement, condition, expression) - Lexikos упорно сопротивляется любым просьбам о её реализации вот уже несколько лет).
Поэтому, я считаю, любые имитации, отходящие от начального плана - это «имитации ради имитаций». Что, в общем то, излишне.
Тем не менее ещё раз спасибо за интересный код.
#Requires AutoHotkey v2
preset := Map(1, -5, 4, 20)
length := 5
MyEnum := Enum(preset, length)
MsgBox 'MyEnum: ' . MyEnum.toString()
MsgBox 'MyEnum[2]: ' . MyEnum[2]
try MyEnum[2] := 100
catch Error as e {
MsgBox e.Message, 'Error', 16
}
MsgBox 'MyEnum.Length: ' . MyEnum.Length
try MyEnum.Length := 3
catch Error as e {
MsgBox e.Message, 'Error', 16
}
try MyEnum.Push(42)
catch Error as e {
MsgBox e.Message, 'Error', 16
}
class Enum extends Array
{
__New(presetMap, length) {
this.Length := length
for k, v in this {
this[k] := presetMap.Has(k) ? presetMap[k] : k = 1 ? 0 : this[k - 1] + 1
}
getItem := Array.Prototype.GetOwnPropDesc('__Item').Get
this.DefineProp('__Item', {
get: (s, i) => getItem(s, i),
set: (*) => this.throwError('Enum element cannot be changed')
})
getLength := Array.Prototype.GetOwnPropDesc('Length').Get
this.DefineProp('Length', {
get: (s) => getLength(s),
set: (*) => this.throwError('Enum length cannot be changed')
})
for method in ['Delete', 'InsertAt', 'Pop', 'Push', 'RemoveAt'] {
this.DefineProp(method, {
call: ((method, *) => this.throwError(method . '() method is not defined')).Bind(method)
})
}
}
toString() => (
str := '', e := this.__Enum(2),
[((*) => e(&k, &v) && (str .= (k = 1 ? '[' : ', ') . v, 1))*],
str . ']'
)
throwError(text) {
throw Error(text)
}
}1. 4,8 секунд
typedef_enum(p*)
{
for i,v in p
%v%??%v%:=i=1?0:%p[i-1]%+1
}2. 6,8 секунд
typedef_enum(p*)
{
e := p.__Enum(2)
while e(&i,&v)
%v%??%v%:=i=1?0:%p[i-1]%+1
}3. 14 секунд
typedef_enum(p*)=>(e:=p.__Enum(2),[((*)=>e(&i,&v)&&(%v%??%v%:=i=1?0:%p[i-1]%+1,true))*])ПС. Странный эффект от толстой стрелки. Много раз видел такое, обёртывая разнообразные вызовы DllCall в толстую стрелку - время исполнения вызова ощутимо увеличивается, даже если целевая DLL уже загружена в контекст Autohotkey.
Но это уже совсем другая история. 
Только, вызывая энумераторы подобным образом, нужно иметь в виду, что цикл for k, v in obj выполняется в несколько раз быстрее.
Ну это же очевидно. Машинный код одного оператора, и куча интерпретируемых конструкций.
«Это и ежу понятно...»©
(*) => e(&k, &v) && (%v% ?? %v% := k = 1 ? 1 : %p[k - 1]% + 1, 1)имитирует поведение перечислителя, возвращая 1, когда вызов e(&k, &v) возвращает 1, и 0 в ином случае. Таким образом, эта анонимная функция будет вызываться, пока не вернёт 0.
]]>