Yoko
http://forum.yoko.com.ua/

Небольшой вопросик
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15548
Page 1 of 1

Author:  Zeppelin [ 2010-02-04 09:49:19 ]
Post subject:  Небольшой вопросик

Хм, а имеется ли возможность создавать указатели на функции, то есть например сделать переменную или массив, элементы которого - сабы моего скрипта, и обращаться, например не
Code:
Walk(x,y)

а, наподобии этого -
Code:
var Function = Walk()
Function(x,y)

Перепробовал много всего, но так и не получилось..

Author:  Beyonder [ 2010-02-04 11:57:44 ]
Post subject:  Re: Небольшой вопросик

О да, конечно :)
Если что, то это был сарказм.

Вижу два способа это сделать.

Первый. Более эстетично выглядящий, и вероятно подойдёт в 99% случаев:
Code:
sub selectFunction(name,param1,param2,param3)
        if (name == 'funct1') then
                return funct1(param1,param2,param3)
        endif
        if (name == 'funct2') then
                return funct2(param1,param2,param3)
        endif
        if (name == 'funct3') then
                return funct3(param1,param2,param3)
        endif
endsub

sub...
var funct = 'funct1'
selectFunction(funct,1,2,3)
endsub


Второй. Всё работает через задницу, зато позволяет добавлять любое количество функций не изменяя кода:
Code:
Sub func1()
        var param1 = UO.GetGlobal('param1')
        var param2 = UO.GetGlobal('param2')
        var param3 = UO.GetGlobal('param3')
...
endsub

Sub callFunc(name,param1,param2,param3)
        UO.SetGlobal('param1',param1)
        UO.SetGlobal('param2',param2)
        UO.SetGlobal('param3',param3)
        UO.Exec('exec '+name)
endsub

sub...
        var func = 'func1'
        callFunc(func,1,2,3)
endsub

Author:  Zeppelin [ 2010-02-04 12:32:31 ]
Post subject:  Re: Небольшой вопросик

Beyonder wrote:
О да, конечно :)
Если что, то это был сарказм.

Вижу два способа это сделать.

Первый. Более эстетично выглядящий, и вероятно подойдёт в 99% случаев:
Code:
sub selectFunction(name,param1,param2,param3)
        if (name == 'funct1') then
                return funct1(param1,param2,param3)
        endif
        if (name == 'funct2') then
                return funct2(param1,param2,param3)
        endif
        if (name == 'funct3') then
                return funct3(param1,param2,param3)
        endif
endsub

sub...
var funct = 'funct1'
selectFunction(funct,1,2,3)
endsub


Второй. Всё работает через задницу, зато позволяет добавлять любое количество функций не изменяя кода:
Code:
Sub func1()
        var param1 = UO.GetGlobal('param1')
        var param2 = UO.GetGlobal('param2')
        var param3 = UO.GetGlobal('param3')
...
endsub

Sub callFunc(name,param1,param2,param3)
        UO.SetGlobal('param1',param1)
        UO.SetGlobal('param2',param2)
        UO.SetGlobal('param3',param3)
        UO.Exec('exec '+name)
endsub

sub...
        var func = 'func1'
        callFunc(func,1,2,3)
endsub

Ага, спасибо, жаль что нельзя, надо Yoko учесть это в следующем релизе, как и вообще - указатели как таковые..
На данный момент у меня как в первом варианте. :) Но душа не спокойна при виде одинаковых кусков кода, у меня там аж 7 функций :)
Ах да, кстати - эти мои 7 функций - эмуляция работы с глобальными массивами :) Это тоже неплохо бы добавить в следующий релиз (глобальные массивы, то бишь).

Author:  Beyonder [ 2010-02-04 12:42:34 ]
Post subject:  Re: Небольшой вопросик

Ну в данный момент состояние инжекта таково, что он лежит еще не совсем мёртвый и слегка подрыгивает ножками. Так что не думаю что такие глобальные изменения найдут своего программиста :)

Author:  Zeppelin [ 2010-02-04 13:29:09 ]
Post subject:  Re: Небольшой вопросик

Beyonder wrote:
Ну в данный момент состояние инжекта таково, что он лежит еще не совсем мёртвый и слегка подрыгивает ножками. Так что не думаю что такие глобальные изменения найдут своего программиста :)

:(

Author:  Mirage [ 2010-02-04 14:37:42 ]
Post subject:  Re: Небольшой вопросик

МБ я не понял запроса но чем не устраивает:
Code:
sub main()
test(10, 20, 'действие')
endsub
Sub test(1, 2, действие)
for x = 1 to 2
test2('действие')
next
endsub

Author:  Zeppelin [ 2010-02-04 14:45:30 ]
Post subject:  Re: Небольшой вопросик

Mirage wrote:
МБ я не понял запроса но чем не устраивает:
Code:
sub main()
test(10, 20, 'действие')
endsub
Sub test(1, 2, действие)
for x = 1 to 2
test2('действие')
next
endsub

Мне было интересно, можно ли каким-то образом реализовать нечто подобное:

Code:
Sub Func1(index)
   return index+1
end sub

Sub Func2(index)
   return index+2
end sub

Sub Func3(index)
   return index+3
end sub

Sub Func4(index)
   return index+4
end sub

sub Calculate()
   var i
   DIM Function[4]
   Function[0] = Func1()
   Function[1] = Func2()
   Function[2] = Func3()
   Function[3] = Func4()
   for i = 0 to 3
      uo.print(str(Function[i](1)))
   next
end sub


То есть массив указателей на функции, чтобы вызывать их не по именам сабов, а по указателям.. Но, как мне сказали, нельзя :)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/