Отправлено: 08.03.15 18:30. Заголовок: Hb_Default()

Может я не совсем понимаю как это работает.
Вопрос выделил красным.

 
 #include "common.ch" 
 proc main 
 local j 
  
 j:=Test("123","1234") 
 ? j[1] // Почему возвращает NIL (я думал это аналог #xcommand DEFAULT) ? 
 ? j[2] // 1234 
  
  
 return 
  
 ************** 
 Func Test(par,par1) 
  
 hb_default(@par,nil) 
 default par1 to nil 
  
  
 return {par,par1} 
 

 Отправлено: 08.03.15 19:29. Заголовок: Dima i_pseudofunc.c..

Dima
i_pseudofunc.ch в MiniGui include:

 
    #xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ; 
                                 IF <v1> == NIL ; <v1> := <x1> ; END ; 
                                 [; IF <vn> == NIL ; <vn> := <xn> ; END ] 
 ... 
 #  xtranslate hb_default( @<v>, <x> )     => iif( StrTran( ValType( <v> ), "M", "C" ) == StrTran( ValType( <x> ), "M", "C" ),Nil, <v> := <x> ) 
 ... 
 

 Отправлено: 08.03.15 19:49. Заголовок: я про HB_default из ..

я про HB_default из core-master\src\rtl\hbdef.c

 Отправлено: 08.03.15 20:05. Заголовок: так они практически ..

так они практически идентичны (по результату), типа установка значения по ссылке

 Отправлено: 08.03.15 20:11. Заголовок: Dima пишет: Почему ..

Dima пишет:

цитата:

Почему возвращает NIL (я думал это аналог #xcommand DEFAULT) ?

Что просили, то и возвращает.

Замените
hb_default(@par,nil)
на
hb_default(@par,par)

 Отправлено: 08.03.15 21:23. Заголовок: Dima 2012-06-04 17:..

Dima

2012-06-04 17:51 UTC+0200 Viktor Szakats (vszakats.net/harbour) 
   * include/harbour.hbx 
   * src/rtl/Makefile 
   + src/rtl/hbdef.c 
     + added HB_DEFAULT( @<xVariable>, <xDefaultValue> ) 
       it can replace DEFAULT ... TO ... command. In addition 
       it will set the value to the default one even when the 
       variable has any other type, not only NIL.

 Отправлено: 08.03.15 21:45. Заголовок: Sergy пишет: variab..

Sergy пишет:

цитата:

variable has any other type, not only NIL.

Всем спасибо. Все понял.