Отправлено: 21.04.09 15:43. Заголовок: Помогите советом начинающему...

Тут вот надумал переползти на xHarbour. Возникла следующая проблема: имена всех функций и подпрограмм дополняются префиксом HB_FUN_. А можно ли этого избежать так, чтобы остались родные, начальные имена. У меня весь софт построен на скриптах, в которых уже стоят вызовы функций и процедур по привычным, родным именам. И перелопатить везде в 5000 текстовых файлах-скриптах вызовы функций и поменять на новые - задача крайне утомительная с непонятной перспективой на успех.

 Отправлено: 27.06.09 20:27. Заголовок: Urri пишет: Перепол..

Urri пишет:

цитата:

Переполз на Harbour. ... Но тут вот новая-старая проблема: невозможно прочитать состояние клавиатуры... kbdstat() и hb_gtInfo(GTI_KBDSHIFTS) выдают значение 128 и на нажатие CTRL/ALT/SHIFT не реагируют.

hb_gtInfo(GTI_KBDSHIFTS) - это вроде бы не из Harbour.
Следующий код вполне сносно работает и я не вижу здесь больших проблем (тестировал XP SP3)

цитата:

#include "hbgtinfo.ch" PROCEDURE main( ... ) local kbdShifts // DO WHILE inkey( 0 ) <> 27 kbdShifts := hb_gtInfo(HB_GTI_KBDSHIFTS) ? kbdShifts ? iif( hb_bitAnd( kbdShifts, HB_GTI_KBD_SHIFT) == 0, "", "Shift pressed" ) ? iif( hb_bitAnd( kbdShifts, HB_GTI_KBD_ALT) == 0, "", "Alt pressed" ) ? iif( hb_bitAnd( kbdShifts, HB_GTI_KBD_CTRL) == 0, "", "Control pressed" ) ENDDO DO WHILE inkey( 0 ) <> 27 kbdShifts := kbdstat() ? kbdShifts ? iif( hb_bitAnd( kbdShifts, 1 ) == 0, "", "Shift pressed" ) ? iif( hb_bitAnd( kbdShifts, 8 ) == 0, "", "Alt pressed" ) ? iif( hb_bitAnd( kbdShifts, 4 ) == 0, "", "Control pressed" ) ENDDO // RETURN

 Отправлено: 28.06.09 09:42. Заголовок: Петр пишет: Следующ..

Петр пишет:

цитата:

Следующий код вполне сносно работает и я не вижу здесь больших проблем (тестировал XP SP3)

Взял предложенный текст без единого исправления, протестировал на Harbour в XP SP2 - не работает. Этот же пример на xHarbour - работает.

При создании исполняемого модуля для Harbour пользовался таким .bat файлом. Может там что-то не так, иначе совершенно непонятно, почему у Петра работает а у меня не работает.

@echo off
setlocal
md objx

@set path=%path%;g:\rab\
@set path=%path%;G:\PROC\BCC55\Bin\

@set HB_INSTALL=g:\proc\harbour

@set HB_BIN_INSTALL=%HB_INSTALL%\bin
@set HB_LIB_INSTALL=%HB_INSTALL%\lib
@set HB_INC_INSTALL=%HB_INSTALL%\include

@set HB_BCC_INSTALL=g:\proc\bcc55
@set HB_BCC_BIN_INSTALL=%HB_BCC_INSTALL%\bin
@set HB_BCC_LIB_INSTALL=%HB_BCC_INSTALL%\lib
@set HB_BCC_INC_INSTALL=%HB_BCC_INSTALL%\include

%HB_BIN_INSTALL%\harbour main -n -q0 -gc -i%HB_INC_INSTALL% %HARBOURFLAGS% -oobjx\ -m /dHarbour

@set HB_LIBLIST=gtwin.lib hbcpage.lib hbdebug.lib hbct.lib hbvm.lib hbrtl.lib hbwhat.lib hblang.lib hbrdd.lib hbmacro.lib hbpp.lib rddfpt.lib rddntx.lib rddcdx.lib hbhsx.lib hbsix.lib hbcommon.lib hbpcre.lib hbzlib.lib rddads.lib ace32.lib %HB_USER_LIBS%

%HB_BCC_BIN_INSTALL%\bcc32 -O2 -d -c -oobjx\main.obj %CFLAGS% -I%HB_BCC_INC_INSTALL% -I%HB_INC_INSTALL% -L%HB_BCC_LIB_INSTALL% -L%HB_LIB_INSTALL% objx\main.c %HB_LIBLIST%

%HB_BCC_BIN_INSTALL%\bcc32 -O2 -d -emain %CFLAGS% -nobjx\ -I%HB_BCC_INC_INSTALL% -I%HB_INC_INSTALL% -L%HB_BCC_LIB_INSTALL% -L%HB_LIB_INSTALL% objx\main.c %HB_LIBLIST%
copy objx\main.exe .

main.exe %1 %2 %3 %4 %5 %6 %7 %8 %9 //F:120 //swappath:'c:\' //temppath:'c:\'
endlocal

 Отправлено: 28.06.09 13:18. Заголовок: Urri пишет: При соз..

Urri пишет:

цитата:

При создании исполняемого модуля для Harbour пользовался таким .bat файлом. Может там что-то не так, иначе совершенно непонятно, почему у Петра работает а у меня не работает

Угу, а какой вы версией Harbour пользуетесь. К примеру у меня
harbour.exe -build 2>info.txt

info.txt

цитата:

Harbour 2.0.0beta2 (Rev. 11555) Copyright (c) 1999-2009, http://www.harbour-project.org/ Harbour Build Info --------------------------- Version: Harbour 2.0.0beta2 (Rev. 11555) Compiler: Borland C++ 5.5.1 (32-bit) Platform: Windows XP 5.1.2600 Service Pack 3 PCode version: 0.2 ChangeLog last entry: 2009-06-27 20:47 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) ChangeLog ID: ChangeLog 11555 2009-06-28 03:59:59Z vouchcac Built on: Jun 28 2009 11:57:43 Extra Harbour compiler options: -l Extra C compiler options: -DHB_LEGACY_OFF -DHB_GC_AUTO -DHB_HVM_ALL -DSQLITE3_LIB -DSQLITE_ENABLE_COLUMN_METADATA Build options: Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship) ---------------------------

 Отправлено: 28.06.09 15:34. Заголовок: Вот что у меня про в..

Вот что у меня про версию пишет

G:\PROC\Harbour\bin>harbour.exe -build > aaa.txt
Harbour 1.0.1 Intl. (Rev. 9429)
Copyright (c) 1999-2008, http://www.harbour-project.org/

Harbour Build Info
---------------------------
Version: Harbour 1.0.1 Intl. (Rev. 9429)
PCode version: 0.2
Compiler: Borland C++ 5.5.1 (32 bit)
Platform: Windows XP 5.1.2600 Service Pack 2

Built on: Sep 17 2008 20:08:58
Last ChangeLog entry: 2008-09-17 18:04 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

ChangeLog SVN version: ChangeLog 9429 2008-09-17 16:07:27Z vszakats
Extra Harbour compiler switches: -l
Extra C compiler switches: -OS -Ov -Oi -Oc -tWM
Other build settings: (C mode)

Clipper 5.3b compatible extensions: yes
Clipper 5.2e/5.3b compatible undocumented: yes
Clipper 5.2e/5.3b strict compatibility: no
Xbase++ compatible extensions: yes
FlagShip compatible extensions: yes
Visual Objects compatible extensions: no
FoxPro compatible extensions: no
dBase compatible extensions: no
CLIP compatible extensions: no
Non-portable Harbour extensions: no
Profiler: off
Memory tracing and statistics: off
Maximum symbol name length: 63
---------------------------

 Отправлено: 28.06.09 19:36. Заголовок: Urri пишет: Built o..

Urri пишет:

цитата:

Built on: Sep 17 2008 20:08:58 Last ChangeLog entry: 2008-09-17 18:04 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Ищите что-нибудь после

цитата:

2008-12-19 12:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * harbour/source/rtl/gtwin/gtwin.c ! Fixed HB_GTI_KBDSHIFTS not working in console mode.

 Отправлено: 28.06.09 22:33. Заголовок: И где же его искать ..

И где же его искать такой, чтобы работал и без глюков. Вот предлагали у Григория взять последнюю сборку, так она выдает неразрешенные ссылки, которые неясно где искать, и много библиотек он не включил в свою сборку, например для работы с ADS.

Прийдется похоже срочно осваивать CVS и там продираться сквозь дебри. А это такая потеря времени... Разберусь со временем конечно. А сейчас может кто поделится нормальной рабочей версией Harbour?

 Отправлено: 29.06.09 15:42. Заголовок: Думаю, что официальн..

Думаю, что официальный релиз 2.0 выйдет очень скоро. Пока можете скачивать http://harbour-project.org/harbour-nightly.zip - формируемый каждую ночь пакет со свежайшими, только из печки, исходниками. Но тут могут быть и глюки - живой процесс все-таки. В частности, сегодня качать не советую - были сообщения об ошибке в RDD.

 Отправлено: 29.06.09 16:25. Заголовок: alkresin пишет: Пок..

alkresin пишет:

цитата:

Пока можете скачивать http://harbour-project.org/harbour-nightly.zip - формируемый каждую ночь пакет со свежайшими, только из печки, исходниками.

Добавлю: в корне архива есть файл INSTALL, в котором описано, как собрать Harbour. Удачи.

 Отправлено: 02.07.09 10:24. Заголовок: Добрый день уважаемы..

Добрый день уважаемые.

Или я такой невезучий или как почтенное сообщество работает с Harbour'ами и радуется? Что-то кол-во неожиданностей в работе этих продуктов начинает раздражать. Очередная мрачная история приключилась.

При работе с xHarbour возникли осложнения при вызове SQL запросов. AlKresin участвовал в изучении проблемы и давал рекомендации (я выкладывал здесь самодостаточный пример, который почему-то работал то 28, то 22 раза в зависимости от вызываемого запроса). Результатом нашей дискуссии стало то, что я переполз на Harbour. Рассмотренный с AlKresin пример заработал без проблем. Я переделал много программ, т.к. вдруг выяснилось расхождение в работе обоих Harbour'ов для элементов массивов в макроподстановках и строковых переменных. Плюс куча всего еще... Наконец заработало весьма прилично. Давай же пробовать SQL - работает. Только вот мой сотрудник увидел, что не работает SQL запрос с русскими литералами в тексте запроса. Фигня, подумал я. При помощи Pasha эту проблему решили, сейчас за пару минут вылечим ситуацию. Аккуратненько заменил одну строку, в которой отменяется перекодировка из OEM в ANSI (так как мне Pasha текст этой строки дал). Обрадовался... Но что-то дернуло проверить результат на том заработавшем примере, с которым мы работали с AlKresin, в котором даже не было русских букв в запросе. И оказалось, что запрос в цикле работает всего 44 раза, а затем программа с криком об ошибке вылетает на обыкновенном операторе присваивания строковой переменной текста запроса (т.е. примерно как и xHarbour). Убираю корректировку из исходника библиотеки RDDADS - все работает, обратно добавляю - 44 раза радости и полный аут. Ну и что теперь с этим делать??? Подскажите, гуру?

При таком неожиданном возникновении проблем на ровном месте стрёмно всех своих юзеров пересаживать на Harbour. Тут пока трое работают в отладочно-боевом режиме - так постоянные непонятки выползают. А 150 человек - это меня живьём съедят. Не допустите, пожалуйста, может и я на что сгожусь сообществу Клиппер-Харбористов.

 Отправлено: 02.07.09 11:52. Заголовок: Я переделал много пр..

цитата:

Я переделал много программ, т.к. вдруг выяснилось расхождение в работе обоих Harbour'ов для элементов массивов в макроподстановках и строковых переменных.

Что именно неправильно работает в Harbour ? Приведите пример - если поведение действительно отличается от Клипперовского, я обращусь с этим в Harbour developers mail list.

цитата:

Убираю корректировку из исходника библиотеки RDDADS - все работает, обратно добавляю - 44 раза радости и полный аут. Ну и что теперь с этим делать???

Пример - на стол.

 Отправлено: 02.07.09 13:16. Заголовок: alkresin пишет: Что..

alkresin пишет:

цитата:

Что именно неправильно работает в Harbour ? Приведите пример - если поведение действительно отличается от Клипперовского, я обращусь с этим в Harbour developers mail list.

Вот пожалуйста пример.

*--------------------------------------

procedure main

s='9876543210'
private arr[10]
for i=1 to 10
arr[ i]=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает
&& arr[ i]=substr(s,1,len(s)) && Работает в xHarbour, но в Наrbour не работает
&& arr[ i]=substr(s+' ',1,len(s)) && Работает в Наrbour
next
? 1,arr[1]
? 2,arr[2]
? 3,arr[3]
?
arr[1]=mid(@arr[1],1,10,'0123456789')
? 1,arr[1]
? 2,arr[2]
? 3,arr[3]
?


r='s' && Работает в Клиппере, xHarbour, Harbour
&r+='*'
? s,r

r='arr[1]' && Работает в Клиппере, xHarbour. В Harbour не работает
&r+='*'
? arr[1],r

inkey(100)
quit

#pragma BEGINDUMP

#include "G:\PROC\C\Harbour\my.h"
#include "G:\PROC\C\Harbour\extend.h"
#include "G:\PROC\C\Harbour\extend.api"

CLIPPER HB_FUN_MID()
{
/* par1 - исх.строка
par2 - начальная позиция
par3 - сколько символов
par4 - чем заменить
*/

char *str1=_parc(1),*str2=_parc(4);
register int k=_parni(2)-1,l=_parni(3),j=0;
register int m=_parclen(1),n=_parclen(4);

switch (l) {
case 0:
break;
case -1:
/* if (n==1)
while (k<m) str1[k++]=str2[0];
else */
while ((k<m)&&(j<n)) str1[k++]=str2[j++];
break;
default:
l+=k;
/* if (n==1)
while (k<l) str1[k++]=str2[0];
else */
while ((k<l)&&(j<n)) str1[k++]=str2[j++];
break;
};
_retclen(str1,m);
};

#pragma ENDDUMP


Ф-ция MID используется в Клиппере лет 18, еще в те светлые времена, когда начинался PC бум, но компы были неторопливые и приходилось экономить мгновения процессорного времени. Поэтому к этой ф-ции обращение идет в первом параметре с использованием @ (т.е. by ref) для корректировки строки без создания ее копии. Этот прием нашел и другие очень значительные в моей работе применения. А в Харборах, наверное из-за промежуточного С, всем элементам массива присваивается одна и та же ссылка (на область памяти) на строку S (из примера), тогда как в Клиппере это не так). При переходе на xHarbour пока об этом сообразил - утомился. Пытался надурить С и записал такое хитрое выражение substr(s,1,len(s)). Сработало!!! При переходе на Harbour надеялся, что такой мой трюк сработает и здесь. Дудки... Harbour оказался дюже умный и такие вещи не позволил мне делать. Пришлось еще более исхитриться и писать substr(s+' ',1,len(s)). Но пока до этого после xHarbour'а додумался - трижды утомился.

А макроподстановка для элемента массива и использования += (а также для -= и ++, -- (для числовых)) выдает синтаксическую ошибку в Harbour, тогда как в Клиппере работает много лет и в Xharbour работает.

 Отправлено: 02.07.09 13:31. Заголовок: alkresin пишет: При..

alkresin пишет:

цитата:

Пример - на стол.

Это тот же пример, что я здесь показывал вам в моем ответе 24.06.09 в 17.15.
А исправления делал так, как указывал Pasha в своем ответе 18.06.09 в 13.23. (с той лишь разницей, что тогда я пересобирал библиотеку для xHarbour, а теперь для Harbour).



Мне тут рекомендовали брать последнее состояние Harbour по адресу
http://harbour-project.org/harbour-nightly.zip, но что то боязно из-за сыроватости. Я то взял для попробовать, только почему-то 25% работы сделало, но на TBROWSE из библиотеки rt загибается и все. Причем брал три последних версии и в каждой такая проблема. Они там что, раздают версии не проверяя как они хоть собираться будут?

 Отправлено: 02.07.09 14:05. Заголовок: Urri пишет: arr=s &..

Urri пишет:

цитата:

arr=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает

Проверил в xharbour 1.2.1 (6468) работает

 Отправлено: 02.07.09 14:08. Заголовок: Urri пишет: &&#..

Urri пишет:

цитата:

&& arr=substr(s,1,len(s))

3 параметр можно и не задавать в данном примере

 Отправлено: 02.07.09 14:09. Заголовок: Я то взял для попроб..

цитата:

Я то взял для попробовать, только почему-то 25% работы сделало, но на TBROWSE из библиотеки rt загибается и все.

Какой работы ? Сборки Harbour или сборки вашей программы ? Как оно загибается ( какие сообщения ) ?

цитата:

Они там что, раздают версии не проверяя как они хоть собираться будут?

Эти пакеты строятся автоматически скриптом на сервере, их, конечно, никто не проверяет - кроме тех, кто постит изменения, они , по идее, должны проверять, не сломали ли чего.
Я скачивал исходники вчера и сегодня напрямую с SVN - и сам Harbour у меня нормально собирался, и программы.

 Отправлено: 02.07.09 14:34. Заголовок: Dima пишет: Какой р..

Dima пишет:

цитата:

Какой работы ? Сборки Harbour или сборки вашей программы ? Как оно загибается ( какие сообщения ) ?

Сборки Harbour...

Error: public '' in module 'TBROWSE' clashes with prior module 'TBROWSE'

 Отправлено: 02.07.09 14:36. Заголовок: arr=s && Раб..

цитата:

arr=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает && arr=substr(s,1,len(s)) && Работает в xHarbour, но в Наrbour не работает

Работает это в Harbour и я не вижу ни одной причины, почему бы оно не работало. Другое дело, что потом программа вылетает на ? 1, arr[1] и в Клиипере, и в Harbour - т.к. после присвоений arr - строка, а не массив.

цитата:

r='arr[1]' && Работает в Клиппере, xHarbour. В Harbour не работает &r+='*'

Это в Harbour действительно не работает, напишу в mail list.
Ф-я Mid в таком виде,действительно, работать не будет - но это же С код, здесь полную совместимость гарантировать нельзя, многое зависит от реализации конкретного компилятора.

 Отправлено: 02.07.09 14:38. Заголовок: Сборки Harbour... Er..

цитата:

Сборки Harbour... Error: public '' in module 'TBROWSE' clashes with prior module 'TBROWSE'

Это что-то у вас, попробуйте сделать clean build - удалить все следы предыдущей сборки.

 Отправлено: 02.07.09 14:39. Заголовок: Dima пишет: цитата..

Dima пишет:

цитата:

цитата: arr=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает Проверил в xharbour 1.2.1 (648) работает

У меня xharbour 1.2.1 (6406). Не работает не в том смысле, что ошибку выдает, а в том смысле, что все 10 элементов массива имеют одинаковое значение, хотя я исправлял только первый элемент массива (в приведенном примере только первых три вывел на экран)

 Отправлено: 02.07.09 14:51. Заголовок: alkresin пишет: ци..

alkresin пишет:

цитата:

цитата: arr=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает && arr=substr(s,1,len(s)) && Работает в xHarbour, но в Наrbour не работает Работает это в Harbour и я не вижу ни одной причины, почему бы оно не работало. Другое дело, что потом программа вылетает на ? 1, arr[1] и в Клиипере, и в Harbour - т.к. после присвоений arr - строка, а не массив.

Ни фига себе, я не понял???!!! Копировал из проверяемого примера сюда в ответ... Извиняюсь, что ввел в заблуждение примером. При копировании пропали квадратные скобки с индексом, не понимаю почему.

правильный текст в цикле такой
for i=1 to 10
arr=s && Работает в Клиппере, но в xHarbour и в Наrbour не работает
&& arr=substr(s,1,len(s)) && Работает в xHarbour, но в Наrbour не работает
&& arr=substr(s+' ',1,len(s)) && Работает в Наrbour
next

т.е. всем элементам массива присваивается S. После этого меняем содержимое первого элемента, но при этом и содержимое остальных строк меняется так же, а этого не должно быть. Работает здесь имеется ввиду не то что вылетает, а то что потом при исправлении первого элемента остальные не портятся.