Отправлено: 04.11.07 10:30. Заголовок: Cырцы xHarbour 1.0.0 Beta, баг с INKEY() ?!

Выкачал с CVS.
При сборке с использованием GTWvT терминала не могу переключиться на русский, раньше работало. А пр GTWvW не работают "расширенные" клавиши (CTRL+C, CTRL+V..) хотя указаны set HARBOURFLAGS=-DHB_EXT_INKEY
set C_USR=-DHB_EXT_INKEY
set PRG_USR=-DHB_EXT_INKEY

Не собирается RddAds.lib нет HB_ADS_SET_INIT()

Это только у меня такие проблемки ?

 Отправлено: 04.11.07 13:32. Заголовок: Только что обновил с..

Только что обновил сырцы и собрал. Проблем не увидел.

 Отправлено: 05.11.07 09:43. Заголовок: rddads собирается но..

rddads собирается нормально

а с gtwvt кажется что-то не так: на русский регистр не переключается

* $Id: ChangeLog,v 1.5757 2007/11/01 07:12:51 likewolf Exp $

 Отправлено: 05.11.07 11:09. Заголовок: Надо исправить sourc..

Надо исправить source\rtl\gtwvt\gtwvt.c

строка 2643 должна быть

while ( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) )

Неудачно получилось, баг как раз во время выхода релиза :(

 Отправлено: 05.11.07 14:21. Заголовок: проверьте pls

// xharbour 2007-11-05 06:25 UTC-0500 Ron Pinkas
// BCC55
// баг в dbStruct/FCount

//: qqq.bat
harbour qqq /n/m/a/w2/p/es2
bcc32 @makefil

//: makefile
-Lf:\xharbour\lib
-d
-O2
-eqqq.exe
qqq.c
vm.lib
rtl.lib
codepage.lib
lang.lib
gtwin.lib
rdd.lib
macro.lib
pp.lib
dbfntx.lib
common.lib
dbffpt.lib
hbsix.LIB
pcrepos.lib

//: qqq.prg
proc main
// вполне нормальный DBF. хоть в клиппере, хоть в харборе
MemoWrit( 'qqq.dbf', ;
Chr(3)+Chr(7)+Chr(11)+Chr(5)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(66)+ ;
Chr(0)+Chr(2)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+ ;
Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+ ;
Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(0)+Chr(70)+Chr(76)+Chr(68)+Chr(49)+ ;
Chr(0)+Chr(176)+Chr(78)+Chr(228)+Chr(231)+Chr(2)+Chr(30)+Chr(78)+ ;
Chr(111)+Chr(2)+Chr(174)+Chr(176)+Chr(1)+Chr(0)+Chr(55)+Chr(2)+ ;
Chr(0)+Chr(0)+Chr(199)+Chr(3)+Chr(30)+Chr(0)+Chr(30)+Chr(0)+ ;
Chr(54)+Chr(197)+Chr(184)+Chr(176)+Chr(13)+Chr(0) )
USE 'qqq.dbf'
? 'Alias()=',Alias()
? 'FCount()=', FCount() // 0 !!
aEval( dbStruct(),{|a| QOut(a[1]) } ) //< empty> !!
? 'FieldPos("Fld1")=', FieldPos("Fld1") // 1
APPEND BLANK
Field->Fld1 := 1
?'Field->Fld1=',Field->Fld1 // 1
return

 Отправлено: 05.11.07 15:44. Заголовок: см. include\hbdb..

см. include\hbdbf.h

typedef struct _DBFFIELD
{
BYTE bName[ 11 ];
BYTE bType;
BYTE bReserved1[ 4 ]; /* offset from record begin in FP */
BYTE bLen;
BYTE bDec;
BYTE bFieldFlags; /* 0x01-system column, 0x02-nullable, 0x04-binary, 0x0c-autoincrement */
BYTE bCounter[ 4 ]; /* autoincrement counter */
BYTE bStep; /* autoincrement step */
BYTE bReserved2[ 7 ];
BYTE bHasTag;
} DBFFIELD;

сейчас используется байт bFieldFlags, bCounter, bStep
наверное это связано с добавлением автоинкрементный полей

 Отправлено: 05.11.07 16:13. Заголовок: Вот к чему приводит ..

Вот к чему приводит перенос кода из harbour...

Пожаловался в багтрекер на xharbour.com

А что стряслось с comp.lang.xharbour на news2.homelinux.org?
или NG в очередной раз переехала?

 Отправлено: 05.11.07 16:23. Заголовок: Для этого поля оказы..

Для этого поля оказывается установлен бит HB_FF_HIDDEN, и оно попадает под нож
Неприятный эффект, совместимость с прежним форматом не обеспечена
Надо будет писать программульку для очистки этих байт

 Отправлено: 05.11.07 16:26. Заголовок: SergeJa пишет: А чт..

SergeJa пишет:

цитата:

А что стряслось с comp.lang.xharbour на news2.homelinux.org? или NG в очередной раз переехала?

У меня тоже нет коннекта с news2.homelinux.org. Но я думал что это только у меня так, я не мог войти и на news4.fido7.ru

 Отправлено: 05.11.07 16:40. Заголовок: все равно это баг, н..

все равно это баг, надо жаловаться

Вот код из wafunc.c для dbStruct

void hb_tblStructure( AREAP pArea, PHB_ITEM pStruct, USHORT uiSize )
{
USHORT uiFields, uiCount;

if( SELF_FIELDCOUNT( pArea, &uiFields ) == SUCCESS )
{
if( hb_arraySize( pStruct, uiFields ) )
{
for( uiCount = 1; uiCount <= uiFields; ++uiCount )
hb_fldStructure( pArea, uiCount, uiSize,
hb_arrayGetItemPtr( pStruct, uiCount ) );
}
}
}

а это workarea.c

static ERRCODE hb_waFieldCount( AREAP pArea, USHORT * uiFields )
{
HB_TRACE(HB_TR_DEBUG, ("hb_waFieldCount(%p, %p)", pArea, uiFields));

* uiFields = pArea->uiFieldCount - pArea->uiFieldHidden;
return SUCCESS;
}

т.е. SELF_FIELDCOUNT дает 0, что не есть SUCCESS

 Отправлено: 05.11.07 16:57. Заголовок: SergeJa пишет: Вот ..

SergeJa пишет:

цитата:

Вот к чему приводит перенос кода из harbour

Этот пример отработал нормально под Харбором

 Отправлено: 05.11.07 17:07. Заголовок: В Harbour нет hidden..

В Harbour нет hidden-полей
Баг возник после смешения Харбор-кода с функциональностью xHarbour

FCount() в xHb:

* uiFields = pArea->uiFieldCount - pArea->uiFieldHidden;

FCount() в Hb:

* uiFields = pArea->uiFieldCount;

 Отправлено: 05.11.07 18:23. Заголовок: SergeJa пишет: Вот ..

SergeJa пишет:

цитата:

Вот к чему приводит перенос кода из harbour...

Pasha пишет:

цитата:

В Harbour нет hidden-полей Баг возник после смешения Харбор-кода с функциональностью xHarbou

hidden поля есть в FoxPro.
Miguel Angel ну очень хочет внедрить полную поддержку таблиц FoxPro 9, в т.ч. и привнести в в xHb поддержку NULL. Никакие доводы других разработчиков не принимаются - это сделать легко, я сделаю это за пару часов, никакой несовместимости не будет, вы не хотите развивать язык. То, что придется делать изменения в VM его, наверное, не остановит. Если кого то интересует данная тема - можете поискать NULL in FoxPro, what is NULL и т.п.
Придется переписывать целую кучу кода и не факт, что при этом не будут привнесены новые баги.
Сам факт того, что Miguel Angel сбросил в CVS целую кучу изменений перед самим выпуском нового релиза, тем самым не дав выявить возможные баги, говорит о излишней самоуверенности этого разработчика.

 Отправлено: 06.11.07 10:36. Заголовок: Pasha Спасибо! С тв..

Pasha
Спасибо! С твоей правкой в GTWvT действительно все заработало как надо. На CVS выложишь?!

 Отправлено: 06.11.07 14:08. Заголовок: да..

да

 Отправлено: 08.11.07 16:53. Заголовок: про dbStruct написал..

про dbStruct написал сюда (скверно, что гугль - только через веб-интерфейс..)
http://groups.google.com/group/comp.lang.xharbour/browse_thread/thread/8526e864ed7342b7/55c15319c033435f#55c15319c033435f

Пока нет позитива. ну и на фик :(

вот и настало время переходить с xH на H.

В harbour-СVS на первый взгляд удручает:

- отсутствие makallbc.bat (мелочь, а противно)
- кривой TBrowse
- fm.log с утечкой памяти в tokeninit
- что-то типа этого выводится на экран (забытая отладка?)
"a$k" -% o"+o%bao "-cb`%--%) (+( "-%h-%)
*., -$.), (a/.+-o%,.) /`.#` ,,.) (+( / *%b-k, d )+.,.

 Отправлено: 08.11.07 17:27. Заголовок: SergeJa пишет: - fm..

SergeJa пишет:

цитата:

- fm.log с утечкой памяти в tokeninit - что-то типа этого выводится на экран (забытая отладка?) "a$k" -% o"+o%bao "-cb`%--%) (+( "-%h-%) *., -$.), (a/.+-o%,.) /`.#` ,,.) (+( / *%b-k, d )+.,.

А подробнее можно?

 Отправлено: 08.11.07 18:20. Заголовок: Петр пишет: А подро..

Петр пишет:

цитата:

А подробнее можно

если найду закономерность - отпишу.

 Отправлено: 09.11.07 12:35. Заголовок: SergeJa пишет: Пока..

SergeJa пишет:

цитата:

Пока нет позитива. ну и на фик :(

Я написал на dev list и вчера получил ответ от Miguel Angel
Он дал мне ссылку на описание формата dbf и написал, что этот dbf-файл не соответствует этому формату
Прийдется убеждать его аргументами. Напишу, что главная цель xHb - это совместимость с клиппером,
апоскольку dbCreate в клиппере создает такие файлы, надо их правильно читать

 Отправлено: 09.11.07 13:20. Заголовок: Pasha пишет: не соо..

Pasha пишет:

цитата:

не соответствует этому формату

http://lib.ru/TXT/dbf.txt ?
а совместимость? а дибэйс3? Пусть ретивый Angel реализует новый RDD ("DBFFOX") с поддержкой фокспро.

И потом. непонятно мне, что такое HIDDEN-поле. от кого и для чего оно HIDDEN?

 Отправлено: 12.11.07 20:12. Заголовок: Pasha пишет: Прийде..

Pasha пишет:

цитата:

Прийдется убеждать его аргументами

после моей заявы на NG

цитата:

It's true that xHarbour is not Clipper/Harbour DBF-compatible <B>now</B>?

было отвечено

цитата:

No, it's probably a minor bug in recent additions. I'll report this to Miguel. Ron