Отправлено: 12.07.15 14:10. Заголовок: Странности с letoudf

А может я туплю. Вот имеем два варианта:
1.

 
 #define  WA             &( cAlias ) 
  
 FUNCTION    udfDocLoad( nUserStru, cAlias, d1, cOrd, cSeek ) 
  
  
 LOCAL    aDat           := {} 
 LOCAL    cOrdSave 
  
 LOCAL    bSeek 
  
  
 cAlias      := leto_Alias( nUserStru, cAlias ) 
  
 bSeek    := &( "{ || " + cSeek + "}" ) 
  
 cOrdSave := WA->( OrdSetFocus( cOrd ) ) 
 WA->( dbGoTop() ) 
  
 WA->( Eval( bSeek ) )      // не срабатывает 
 ... 
 ... 
 ... 
  
 RETURN  aDat 
 

2.

 
 #define  WA             &( cAlias ) 
  
  
 FUNCTION    udfDocLoad( nUserStru, cAlias, d1, cOrd, cSeek ) 
  
  
 LOCAL    aDat           := {} 
 LOCAL    cOrdSave 
  
 LOCAL    bSeek 
  
  
 cAlias      := leto_Alias( nUserStru, cAlias ) 
  
 //bSeek    := &( "{ || " + cSeek + "}" ) 
  
 cOrdSave := WA->( OrdSetFocus( cOrd ) ) 
 WA->( dbGoTop() ) 
  
 WA->( dbSeek( DtoS( d1 ), .T. ) )      // срабатывает 
 ... 
 ... 
 ... 
  
 RETURN  aDat 
 

Параметры:
d1 - дата,
cOrd - строка
cSeek - строка вида "dbSeek( DtoS( d1 ), .T. )"

Так вот:
- в первом варианте udf-функция прерывается по ошибке на строке "WA->( Eval( bSeek ) )",
а логе появляется запись "Error BASE/1003 Variable does not exist: D1"
- во втором варианте всё работает без вопросов.

Как это понимать?


ps. Проверил на всякий случай leto_UDFExist( "Eval" ). Вернула .T.

 Отправлено: 12.07.15 14:34. Заголовок: PSP пишет:cSeek - ст..

PSP пишет:

цитата:

cSeek - строка вида "dbSeek( DtoS( d1 ), .T. )"

d1 - из параметров - локальная переменная, а Вы ее в макро

 Отправлено: 12.07.15 15:04. Заголовок: SergKis пишет: d1 -..

SergKis пишет:

цитата:

d1 - из параметров - локальная переменная, а Вы ее в макро

cAlias - тоже из параметров и тоже локальная, но работает.
И точно такой же код работает в обычной программе.

Вот, не придумываю )))

цитата:

2010-07-08 12:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbpp.h * harbour/include/hbmacro.h * harbour/include/hbcomp.h * harbour/include/hbcompdf.h * harbour/include/hbexprb.c * harbour/src/pp/ppcore.c * harbour/src/compiler/hbmain.c * harbour/src/vm/macro.c ! fixed code used to decide about early and late macro evaluation in codeblocks to be exactly Clipper compatible. Now if codeblock contains at least one macro variable (i.e.: &var, any&var, any&var.2) then it's always early evaluated. Please remember that codeblocks which contains only simple macro variable ( &var[.] ), i.e.: {|| &var } are modified during compilation by Clipper and Harbour compilers to: &( "{||" + var + "}" ) and then PCODE is generated. It allows to use LOCALs, STATICs and FIELDs as 'var' in such expressions.

 Отправлено: 12.07.15 15:19. Заголовок: если сделать PRIV D..

если сделать
PRIV D2 := d1
cSeek := "dbSeek( DtoS( D2 ), .T. )"
bSeek := &( "{ || " + cSeek + "}" )
заработает, а с алиасом, наверно, срабатывает результат WA (ppo надо смотреть для точности)
(cAlias)->(...)
т.е. WA можно совсем выкинуть

 Отправлено: 12.07.15 15:25. Заголовок: Я проверю, конечно. ..

Я проверю, конечно.
Только вот не грузит сервер letodb .hrb-шник, если есть PRIVATE переменная.
Орёт "Error BASE/6101 Unknown or unregistered symbol: __MVPRIVATE"

 Отправлено: 12.07.15 15:25. Заголовок: PSP пишет:Вот, не пр..

PSP пишет:

цитата:

Вот, не придумываю

верю, но ранее локальные переменные не имели имен, а у Вас в выражении (в строке) по макро - обращение через имя.

 Отправлено: 12.07.15 15:27. Заголовок: PSP пишет:Орёт REQUE..

PSP пишет:

цитата:

Орёт

REQUEST в prg сервера добавьте на список функций __MV....

 Отправлено: 12.07.15 15:28. Заголовок: SergKis пишет: но р..

SergKis пишет:

цитата:

но ранее локальные переменные не имели имен, а у Вас в выражении (в строке) по макро - обращение через имя.

Что-то я не понял, о чём вы. Там блок кода генерится. Причем, видимо, успешно. А когда на выполнение отправляется, выясняется, что переменной d1 почему-то нет.

 Отправлено: 12.07.15 15:32. Заголовок: PSP пишет:Я проверю,..

PSP пишет:

цитата:

Я проверю, конечно

можно попробовать сделать
cSeek := StrTran(cSeek, 'd1', "["+DtoS(d1)+"]")
bSeek := &( "{ || " + cSeek + "}" )

 Отправлено: 12.07.15 15:42. Заголовок: Можно все упростить...

Можно все упростить. cAlias передавать не надо, т.к. leto_udf выполняется по текущему алиасу. d1 передавать не надо, т.к. это аргумент строки cSeek, и его можно заполнять на клиенте.
Примерно так:

на клиенте:

select(cAlias)
leto_udf("udfDocLoad", cOrd, "dbSeek("+DTOS(d1)+", .t.)")

на сервере:

FUNCTION udfDocLoad( nUserStru, cOrd, cSeek )


LOCAL aDat := {}
LOCAL cOrdSave

LOCAL bSeek


OrdSetFocus( cOrd )
bSeek := &( "{ || " + cSeek + "}" )

Eval( bSeek )
...
...
...

RETURN aDat

 Отправлено: 12.07.15 16:12. Заголовок: PSP пишет:Там блок к..

PSP пишет:

цитата:

Там блок кода генерится

генерится через macro bSeek := &( "{ || " + cSeek + "}" ) , а не
bSeek := {|| dbSeek( DtoS( d1 ), .T. ) }
в таком виде сработает eval

 Отправлено: 12.07.15 16:38. Заголовок: Вот, что выяснилось:..

Вот, что выяснилось: при использовании PRIVATE, а также в Пашином варианте на отсутствие переменной не ругается, но и то, что требовалось от Eval(), т.е. поиск, не достигается: Found() == .F.
Почему-то я сразу не додумался проверить, а когда проверил, оказалось, что блок кода == NIL!!! О как! ))) Более того, если его сформировать на клиенте и передать в udf в качестве параметра, в теле udf-функции этот параметр тоже будет равен NIL. Вот как-то так... )))
Может кто-то что-то подсказать по этому поводу? Чего letodb.exe не хватает?

update: А можно ли вообще блоки кода использовать в .hrb модулях?

 Отправлено: 12.07.15 17:00. Заголовок: PSP пишет: А можно л..

PSP пишет:

цитата:

А можно ли вообще блоки кода использовать в .hrb модулях?

Все работает в hrb, при наличии requst в exe, использую во многих местах, не letodb, как решение разных алгоритмов для клиентов, а exe один.
Проверить что в параметрах udf можно
WrLog(ProcName()+" "+hb_valtoexp({nUserStru, cAlias, d1, cOrd, cSeek}))

Pasha пишет:

цитата:

select(cAlias) leto_udf("udfDocLoad", cOrd, "dbSeek("+DTOS(d1)+", .t.)")

не хватает кавычек "dbSeek(["+DTOS(d1)+"], .t.)"

 Отправлено: 12.07.15 17:08. Заголовок: Переменные передаютс..

Переменные передаются на сервер посредством serialize/deserialize, а там блоки кода не поддерживаются. Да и это в принципе невозможно, т.к. блок кода может содержать ссылки на локальные переменные клиента, а к ним доступа на сервере нет.
Ну а создание блока кода на сервере

bSeek := &( "{ || " + cSeek + "}" )

должно работать, если конечно cSeek корректно написано, и не содержит ошибок, скажем, синтаксических

А кавычки да, я пропустил. Можно так:
'dbSeek("'+DTOS(d1)+'", .t.)'

 Отправлено: 12.07.15 17:12. Заголовок: Да видел я, что кавы..

Да видел я, что кавычек нет. Ну, "не выходит каменный цветок"!!! )))
Ладно, спасибо за помощь.

 Отправлено: 12.07.15 17:21. Заголовок: Может я неточно напи..

Может я неточно написал. В hrb конечно можно использовать блоки кода, как и любые другие средства языка. Их нельзя передавать с клиента в качестве параметра для udf-функции.

 Отправлено: 12.07.15 17:26. Заголовок: Pasha пишет: Может ..

Pasha пишет:

цитата:

Может я неточно написал. В hrb конечно можно использовать блоки кода, как и любые другие средства языка. Их нельзя передавать с клиента в качестве параметра для udf-функции.

Нет, Паш, всё предельно понятно. Спасибо большое!
SergKis, Сергей, и вам спасибо! ))

 Отправлено: 12.07.15 17:32. Заголовок: Паша, а leto_Alias()..

Паша, а leto_Alias() меняет ли в процессе своего выполнения текущую рабочую область? Если да, то восстанавливает ли ту, которая была до ее вызова?

 Отправлено: 12.07.15 17:36. Заголовок: PSP select(cAlias) ..

PSP
select(cAlias)
leto_udf("udfDocLoad", cOrd, DTOS(d1))

FUNCTION udfDocLoad( nUserStru, cOrd, cDate)
LOCAL aDat := {}
leto_SetEnv( cDate, cDate, cOrd )
dbGotop()
....
leto_ClearEnv( .T., .T. )
RETURN aDat

 Отправлено: 12.07.15 17:40. Заголовок: SergKis, это типа RT..

SergKis, это типа RTFM? )) Спасибо, не видел этих функций )

 Отправлено: 12.07.15 18:15. Заголовок: PSP пишет: Паша, а ..

PSP пишет:

цитата:

Паша, а leto_Alias() меняет ли в процессе своего выполнения текущую рабочую область? Если да, то восстанавливает ли ту, которая была до ее вызова?

Нет, не меняет. Р.о. надо устанавливать самому, как и возвращать прежнюю. Чтобы было понятнее, можно посмотреть примеры функций в tests\letoudf.prg