Отправлено: 01.11.07 16:50. Заголовок: Свершилось... Опубликованы сырцы xHarbour 1.0.0 Beta

цитата:

The new xHarbour source code is already available: http://sourceforge.net/project/showfiles.php?group_id=33773

Свершилось...
После длительного перерыва (декабрь 2006 - ноябрь 2007) компилятор xHarbour шагнул с версии 0.99.70 сразу на 1.0.0
Ура, товарищи!
Качаем все Но пока есть только сырцы, бинарники обещают через несколько (?) дней

/*
* $Id: ChangeLog,v 1.5752.2.2 2007/10/31 16:38:34 likewolf Exp $
*/

2007-10-31 19:35 UTC+0300 Phil Krylov <phil a t newstar.rinet.ru>
* include/hbver.h
* Changed version to 1.0.0 from 1.00.00.

2007-10-31 13:30 UTC+0300 Phil Krylov <phil a t newstar.rinet.ru>
* include/hbver.h
! Fixed "no newline at end of file" warning.
* source/debug/dbgthsh.prg
* source/debug/dbgtobj.prg
! Fixed a nasty RTE when monitoring hashes in the debugger.
Branched as Release-1-0-0-Beta1-fix because Miguel has already
committed massive RDD changes to CVS HEAD. I think some more last
minute fixes can be committed to this branch.

2007-10-30 02:10 UTC+0100 Patrick Mast <patrick/dot/mast/at/xharbour.com>
* include/hbver.h
* bin/pack_bin.bat
* bin/pack_src.bat
* Increased to 1.00.00

2007-10-30 01:30 UTC+0100 Patrick Mast <patrick/dot/mast/at/xharbour.com>
* xharbour/xharbour.spec
* changed version number to 1.00.00

 Отправлено: 01.11.07 17:25. Заголовок: Очень уж осторожнича..

Очень уж осторожничали... имхо версию 1.0 можно было бы обьявить года 3 назад
Хотели выполнить все заявленные цели - то есть полную совместимость с клиппером

Но всех женщин не перелюбить, всей водки не выпить, всех багов не выловить...

 Отправлено: 01.11.07 17:56. Заголовок: gfilatov пишет: бин..

gfilatov пишет:

цитата:

бинарники обещают через несколько (?) дней

Хе-хе, а вот и первая сборка первой бэты подоспела
Выложил в виде самораспаковывающегося архива по адресу:

http://minigui.mylivepage.ru/file/?fileid=3465

 Отправлено: 01.11.07 22:43. Заголовок: утренний CVS - криви..

утренний CVS - кривизна в dbStruct (). Альфа была лучше :)

 Отправлено: 20.11.07 17:50. Заголовок: gfilatov пишет: Хе-..

gfilatov пишет:

цитата:

Хе-хе, а вот и первая сборка первой бэты подоспела

Эта сборка зачем-то требует assert.h, stdarg.h, stdio.h и кучу прочих из MINIGUI (вызов идёт из hbvmpub.h и hbdefs.h)... Нет, я, конечно, солью всё вручную в один INCLUDE, но как-то это... тем более что MINIGUI я не использую вообще!
Проверил - stdarg.h и stdio.h взятые из MINIGUI не подходят -вылезает куча ошибок, взятые из Borland C++ 5.5.1 тоже (ошибок вылезает ещё больше). Ну и откуда эти файлы взять??? В архиве сборки их нет...

 Отправлено: 20.11.07 19:01. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

требует assert.h, stdarg.h, stdio.h

Эти файлы не имеют никакого отношения к библиотеке MINIGUI, поскольку они входят в поставку Си-компилятора BCC

 Отправлено: 20.11.07 19:06. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Проверил - stdarg.h и stdio.h взятые из MINIGUI

Еще раз повторяю - таких файлов нет (и никогда не было) в поставке MINIGUI.
Вы что-то путаете, товарищ...

Рекомендую проверить наличие в переменной окружения PATH объявления пути к BCC по типу
PATH=C:\BORLAND\BCC55

 Отправлено: 20.11.07 20:54. Заголовок: gfilatov пишет: Еще..

gfilatov пишет:

цитата:

Еще раз повторяю - таких файлов нет (и никогда не было) в поставке MINIGUI.

Не знаю, как есть, а было! В MINIGUI\MINGW\INCLUDE!

И читай сообщение полностью! Написано же - сишные я тоже проверил! И с ними ошибок выводится ещё больше!!!
И в конце концов, сборка 99.071 у меня прекрасно всё компилировала до этого дня!

 Отправлено: 20.11.07 21:37. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

В MINIGUI\MINGW

Снова непонятно, причем здесь компилятор MinGW из поставки HMG 2.0, к компилятору BCC
Неувязочка...

 Отправлено: 21.11.07 13:30. Заголовок: Re: gfilatov

gfilatov пишет:

цитата:

Снова непонятно, причем здесь компилятор MinGW из поставки HMG 2.0, к компилятору BCC Неувязочка...

Абсолютно верно, совершенно ни при чём!!! И никаких неувязочек - я просто запустил в компьютере поиск stdio.h и попробовал ВСЕ найденные варианты (их нашлось 2 - один из BCC 5.5.1, второй из HMG 2.0). НИ ОДИН из них не подошёл, так что проблема как была, так и осталась...

 Отправлено: 23.11.07 12:21. Заголовок: Перекомпилирую библи..

Перекомпилирую библиотеки ранее созданные в Харбор 0.9971 и получаю ошибку
в hb_vmExecute( pcode, symbols, NULL );

Extra parametr in call hb_vmExecute

 Отправлено: 23.11.07 12:57. Заголовок: stdio.h - это станда..

stdio.h - это стандартный файл для C

Проверь настройку каталогов в bcc32.cfg:

-I"c:\Bcc55\include"
-L"c:\Bcc55\lib"

 Отправлено: 23.11.07 13:00. Заголовок: Vlad04 пишет: Перек..

Vlad04 пишет:

цитата:

Перекомпилирую библиотеки ранее созданные в Харбор 0.9971 и получаю ошибку в hb_vmExecute( pcode, symbols, NULL ); Extra parametr in call hb_vmExecute

Надо проверить, чтобы подлючался правильный каталог xHarbour\include
У тебя он берется от старого харбора. В функции hb_vmExecute добавлялся новый 3-й параметр

 Отправлено: 23.11.07 14:06. Заголовок: Re: Pasha

Pasha пишет:

цитата:

-I"c:\Bcc55\include" -L"c:\Bcc55\lib"

Спасибо, Павел! Действительно, буква диска другая была...
Но теперь сишный компилятор выдаёт одну ошибку, но абсолютно на все модули:

Error E2188 \xharbour\inc\hbdefs.h 454: Expression syntax

hbdefs.h от 21.02.2007 размер 52211
Строка 454: # if HB_LONG_MAX > HB_LL( 10000000000 )

 Отправлено: 23.11.07 15:03. Заголовок: Может быть ты сделал..

Может быть ты сделал доступными *.h файлы от mingw ? Это другой C-компилятор
И в результате мешанины разных диалектов возникает ошибка

 Отправлено: 23.11.07 17:43. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Может быть ты сделал доступными *.h файлы от mingw ?

Не, не делал. Да и файла hbdefs.h нигде больше кроме Harbourа нет... А ошибка-то именно в нём. И вот ещё странность - до установки сборки 1.0.0 дата создания этого файла была 16.03.07, а после установки стала 21.02.07...
Переписал старый - вроде заработало, но теперь ЛИНКОВЩИК ругается:
Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from D:\XHARBOUR\LIB\RTL.LIB|regex

 Отправлено: 23.11.07 19:04. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from D:\XHARBOUR\LIB\RTL.LIB|regex

Добавьте в список подключаемых библиотек pcrepos.lib и линковка пройдет нормально

 Отправлено: 23.11.07 19:10. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

но теперь

может, попробовать переписать и старый ЛИНКОВЩИК?

 Отправлено: 23.11.07 19:25. Заголовок: gfilatov пишет: Доб..

gfilatov пишет:

цитата:

Добавьте в список подключаемых библиотек pcrepos.lib и линковка пройдет нормально

Уже сообразил. Но фишка в том, что для сборки 0.99.71 линковка проходила на "Ура!" и без этой либы...

 Отправлено: 23.11.07 20:10. Заголовок: Re: Совместимость с клиппером

Pasha пишет:

цитата:

Хотели выполнить все заявленные цели - то есть полную совместимость с клиппером

Какая нах совместимость, если банальный GET при наличии DBF-поля текущей базы и PUBLIC-переменной с одним и тем же именем вводит значение не в переменную, как в Clipperе, а в поле?
И все модули приходится просматривать, и значительное количество - корректировать...
Я и сборку эту хотел посмотреть на тему - исправили ошибку или нет...

 Отправлено: 23.11.07 21:46. Заголовок: Учим матчасть

* <b>Handling of undeclared variables </b> </par>
* ================================ </par>
*
* When a value is assigned to an undeclared variable and the '-v'
* command line option is not used, then the Clipper compiler assumes
* that the variable is a PRIVATE or a PUBLIC variable and generates
* POPM (pop memvar) opcode.
*
* When the value of an undeclared variable is accessed and the '-v'
* command line option is not used, the Clipper compiler generates PUSHV
* (push variable) opcode that determines the type of variable at runtime.
* If a field with the requested name exists in the current workarea then
* its value is used. If there is no field then a PRIVATE or a PUBLIC
* variable is used (if exists).
*
* The Harbour compiler generates an opcode to determine the type of
* variable at runtime (POPVARIABLE or PUSHVARIABLE) in both cases
* (assignment and access).
*
* The difference can be checked by the following code:
*
* <fixed>
* PROCEDURE MAIN()
* PRIVATE myname
*
* DBCREATE( "TEST", { { "MYNAME", "C", 10, 0} } )
* USE test NEW
* SELECT test
* APPEND BLANK
*
* FIELD->myname := "FIELD"
* MEMVAR->myname := "MEMVAR"
*
* myname := myname + " assigned"
*
* // In Clipper: "FIELD", In Harbour: "FIELD assigned"
* ? FIELD->myname
*
* // In Clipper: "MEMVAR assigned", In Harbour: "MEMVAR"
* ? MEMVAR->myname
*
* USE
*
* RETURN
* </fixed>

 Отправлено: 25.11.07 01:05. Заголовок: Re: Петр

Ну и?
Как с этим бороться-то, кроме как переделкой программы?

 Отправлено: 25.11.07 10:58. Заголовок: The '-v' com..

The '-v' command line option

 Отправлено: 26.11.07 11:13. Заголовок: Pasha пишет: Надо..

Pasha пишет:
Надо проверить, чтобы подлючался правильный каталог xHarbour\include
У тебя он берется от старого харбора. В функции hb_vmExecute добавлялся новый 3-й параметр

С путями все правильно.По крайнее мере раньше всегда так собирал и все работало.

CLS
@echo off
set path=D:\lang\xharbour_1\bin;C:\BORLAND\BCC55\BIN


if "%HB_BIN_INSTALL%"=="" set HB_BIN_INSTALL=D:\lang\xharbour_1\bin\
if "%HB_LIB_INSTALL%"=="" set HB_LIB_INSTALL=D:\lang\xharbour_1\lib\;C:\BORLAND\BCC55\lib\
if "%HB_INC_INSTALL%"=="" set HB_INC_INSTALL=D:\lang\xharbour_1\include\;c:\Borland\Bcc55\include\

%HB_BIN_INSTALL%\harbour main2.prg -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour fg_menu.prg -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour pe51.prg -n -i%HB_INC_INSTALL% %2 %3

%HB_BIN_INSTALL%\harbour nastr.prg -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour OBSCH_PR.prg -n -i%HB_INC_INSTALL% %2 %3
pause

%HB_BIN_INSTALL%\harbour prnt_05.prg -n -i%HB_INC_INSTALL% %2 %3

%HB_BIN_INSTALL%\harbour dop_func.prg -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour fget.prg -n -i%HB_INC_INSTALL% %2 %3
pause

%HB_BIN_INSTALL%\harbour fuks.prg -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour KLIENT.PRG -n -i%HB_INC_INSTALL% %2 %3
%HB_BIN_INSTALL%\harbour fileread.prg -n -i%HB_INC_INSTALL% %2 %3

pause

bcc32 -O2 -d -I%HB_INC_INSTALL% -L%HB_LIB_INSTALL% @mylib.lnk

 Отправлено: 26.11.07 11:26. Заголовок: Vlad04 пишет: Перек..

Vlad04 пишет:

цитата:

Перекомпилирую библиотеки ранее созданные в Харбор 0.9971 и получаю ошибку в hb_vmExecute( pcode, symbols, NULL ); Extra parametr in call hb_vmExecute

Напиши точно, какие именно библиотеки ты пересобираешь, и на каком этапе выдается ошибка
Пересобрать надо весь prg-код... возможно, какие-то модули остались от прежней сборки

 Отправлено: 26.11.07 12:20. Заголовок: Стандартные библиоте..

Стандартные библиотеки я не трогаю.Собираю ADS.
Эта ошибка по-видимому была связана c ADS.lib. Использовал от предыдущей сборки. Заменил и эта ошибка исчезла.Но появилась другая

Unresolved external '_HB_PCREPOS_LIBRARY' referenced from D:\LANG\XHARBOUR_1\LIB\RTL.LIB|regex

 Отправлено: 26.11.07 12:56. Заголовок: Надо добавить prepos..

Надо добавить prepos.lib при линковке
Теперь она обязательна

 Отправлено: 26.11.07 15:26. Заголовок: Re: Петр

Петр пишет:

цитата:

The '-v' command line option

Ты сам-то пробовал?
Не помогло!

 Отправлено: 26.11.07 20:43. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Ты сам-то пробовал?

Приведенный пример - да.
С '-v' все работает так, как и ожидалось, без - нет .
Одно маленькое уточнение, я использую Harbour, не xHb.

 Отправлено: 26.11.07 21:28. Заголовок: Re: Петр

Петр пишет:

цитата:

С '-v' все работает так, как и ожидалось, без - нет . Одно маленькое уточнение, я использую Harbour, не xHb.

Ага, я с xHarbour уже полтора года пытаюсь разобраться, а ты предлагаешь Harbour попробовать... Ну что ж, может быть, может быть... Очень мне не нравится такая явная несовместимость xHarbour с Клиппером. Прям-таки категорически не нравится.
Не подскажешь, где последнюю сборку Harboura взять?

 Отправлено: 26.11.07 21:35. Заголовок: Поменял имя переменн..

Поменял имя переменной (или поля) и делов-то...

 Отправлено: 26.11.07 22:43. Заголовок: PSP пишет: Не подск..

PSP пишет:

цитата:

Не подскажешь, где последнюю сборку Harboura взять?

Тут такое дело: можно или ждать оф.1.0 или использовать SVN.
Если не хочется возиться со сборкой (хотя ничего там страшного нет) можно скачать MiniGUI Ex. - Григорий включает в каждую сборку "свежий" Harbour с SVN.

 Отправлено: 27.11.07 09:58. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Ты сам-то пробовал? Не помогло!

Я попробовал под xHarbour с ключем -v
Получил
FIELD
MEMVAR assigned

т.е, как и заказывали, присваивается значение переменной

 Отправлено: 27.11.07 12:14. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Я попробовал под xHarbour с ключем -v Получил FIELD MEMVAR assigned т.е, как и заказывали, присваивается значение переменной

А попробуй с не с прямым присвоением, а с GETом (о чём я собственно и писал изначально и что все благополучно забыли).
У меня нужный результат - не получается!

 Отправлено: 27.11.07 13:11. Заголовок: Добавил prepos.li..

Добавил prepos.lib при линковке и ошибка
nresolved external '_HB_PCREPOS_LIBRARY' referenced from D:\LANG\XHARBOUR_1\LIB\RTL.LIB|regex
исчезла.Но появилась другая:
Unable to open 'RDDADS.LIB'.
В поставке она отсутствует

 Отправлено: 27.11.07 13:42. Заголовок: офтопик?

Лукашевский пишет:

цитата:

уже полтора года

Лукашевский пишет:

цитата:

не получается!

Лукашевский пишет:

цитата:

Не помогло!

Лукашевский пишет:

цитата:

вылезает куча ошибок

Лукашевский пишет:

цитата:

Как с этим бороться-то

Паша! Надо новый раздел в форуме.

 Отправлено: 27.11.07 13:49. Заголовок: Re: SergeJa

Ну что поделать, если в xHarboure столько ляпов! У моей программы больше сотни юзверей, я же не могу их переводить на что-то не работающее нормально!

 Отправлено: 27.11.07 15:44. Заголовок: Вставил xHarbour бре..

Вставил xHarbour бревно в глаз, а?

 Отправлено: 27.11.07 17:15. Заголовок: Vlad04 пишет: Unabl..

Vlad04 пишет:

цитата:

Unable to open 'RDDADS.LIB'. В поставке она отсутствует

она должна быть в contrib

 Отправлено: 28.11.07 06:39. Заголовок: Re: Петр

Петр пишет:

цитата:

можно скачать MiniGUI Ex.

Скачал. Там внутри сборка Harbour 0.99-3. Она последняя? От июня-то месяца? Или я неоттуда скачал? Так я потому и спрашивал, где именно взять!

Попробовал компильнуть и сразу столкнулся с проблемой: Harbour не понимает конструкции DO &(proc), которую вполне понимает и Clipper и xHarbour...

 Отправлено: 28.11.07 11:14. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Так я потому и спрашивал, где именно взять!

Прямая ссылка на Harbour Devel build 1.1-1 Intl. (SVN 2007-11-26 06:15):

http://minigui.mylivepage.ru/file/?fileid=4058

Лукашевский пишет:

цитата:

Harbour не понимает конструкции DO &(proc)

Запиши то же самое без скобок, и все заработает:

DO &proc

 Отправлено: 28.11.07 11:34. Заголовок: Re: gfilatov

gfilatov пишет:

цитата:

Запиши то же самое без скобок, и все заработает: DO &proc

За ссылку спасибо, а вот насчёт "запиши..." - думаешь, у меня это в одном-единственном месте? У меня исходников на мегабайт...
Если стояла задача совместимости с Clipperом, то эта совместимость должна всё-таки быть, нет?
По поводу GETа я тут разорялся именно поэтому - так-то добавить во все GETы MEMVAR-> один раз, и всего делов, но вот беда - GETов штук 200-300 в 50-ти модулях!

 Отправлено: 28.11.07 12:19. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

думаешь, у меня это в одном-единственном месте? У меня исходников на мегабайт

Search & Replace рулит

Лукашевский пишет:

цитата:

Если стояла задача совместимости с Clipperом, то эта совместимость должна всё-таки быть

Согласен, хотя бесплатный сыр знаешь где бывает?

 Отправлено: 28.11.07 12:31. Заголовок: Лукашевский, а если ..

Лукашевский, а если бы (x)Harbour-а не было, тогда что? Пришлось бы вообще заново все переписывать. Разве это лучше? А 200-300 get-ов - это немного.

 Отправлено: 28.11.07 12:45. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Если стояла задача совместимости с Clipperом, то эта совместимость должна всё-таки быть, нет?

Стопроцентной совместимости с таким сложным коммерческим продуктом с закрытыми исходными текстами, как Клиппер, теоретически быть не может. Только 99%. Не надо требовать невозможного. Чудеса бывают только в Голливуде

 Отправлено: 28.11.07 12:56. Заголовок: Pasha пишет: продук..

Pasha пишет:

цитата:

продуктом с закрытыми исходными текстами

А вроде выложили исходники Клиппера.

 Отправлено: 28.11.07 13:13. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

так-то добавить во все GETы MEMVAR-> один раз

ВСЕ переменные надо описывать.
LOCAL, PRIVATE, MEMVAR и т.д.
К полям БД обращаться через квалификаторы ( <ALIAS> )-> или <ALIAS>-> или FIELD->
Вроде азбука.
Я бы начал с добавления компиллятору ключиков /w2 /es2
Убить хинты и варнинги в мегабайте исходников = работа на пару дней, но она того стоит.
Устойчивость программы к внешним раздражителям повысится многократно.
Упсехов в освоении.

 Отправлено: 28.11.07 13:24. Заголовок: rvu пишет: А вроде ..

rvu пишет:

цитата:

А вроде выложили исходники Клиппера.

Очень небольшую часть, только prg-код, который любой может получить с помощью валькирии из clipper.lib и extend.lib
Все остальное закрыто

 Отправлено: 28.11.07 13:41. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Не надо требовать невозможного.

Если обнаружилась ошибка или неточность, исправить её - это ты называешь невозможным? По-моему, это называется программированием :-) Не помню, сколько там процентов от создания программы обычно занимает её отладка, но факт что больше 50%
Ну и по крайней мере если в моей программе обнаруживается ошибка, я её ВСЕГДА исправляю. Может, кто-то и оставляет их для коллекции, но юзвери обычно таких вещей не понимают - это факт!

 Отправлено: 28.11.07 15:09. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Если обнаружилась ошибка или неточность, исправить её - это ты называешь невозможным? По-моему, это называется программированием :-) Не помню, сколько там процентов от создания программы обычно занимает её отладка, но факт что больше 50% Ну и по крайней мере если в моей программе обнаруживается ошибка, я её ВСЕГДА исправляю. Может, кто-то и оставляет их для коллекции, но юзвери обычно таких вещей не понимают - это факт!

Когда ты выложишь свою программу в OpenSource и будешь ставить ее бесплатно своим юзерам, тогда получишь право так рассуждать
А сейчас у тебя такого права нет

 Отправлено: 28.11.07 16:16. Заголовок: Вскрытие показало, ч..

Вскрытие показало, что пациент умер от вскрытия :)

Оказывается, в клиппере тоже команда GET не учитывает ключ компилятора /v, и всегда рассматривает переменную как Memvar
Только в клиппере приоритетным является Memvar, а в харборе - Field

Этот приоритет можно изменить так:
source\rtl\tgetint.prg - надо поменять порядок обработки Field и memvar

FUNCTION __GET( bSetGet, cVarName, cPicture, bValid, bWhen )

LOCAL oGet

IF bSetGet == NIL
IF Left( cVarName, 3 ) == "M->"
cVarName := SubStr( cVarName, 4 )
bSetGet := {|_1| IIF( _1 == NIL, __MVGET( cVarName ), __MVPUT( cVarName, _1 ) ) }
ELSEIF FieldPos( cVarName ) > 0
// "{|_1| IIF( _1 == NIL, FIELD->&cVarName, FIELD->&cVarName := _1 )"
bSetGet := &( "{|_1| IIF( _1 == NIL, FIELD->" + cVarName + ", FIELD->" + cVarName + " := _1 ) }" )
ELSEIF __MVEXIST( cVarName )
// "{|_1| IIF( _1 == NIL, M->&cVarName, M->&cVarName := _1 )"
bSetGet := {|_1| iif( _1 == NIL, __MVGET( cVarName ), __MVPUT( cVarName, _1 ) ) }
ELSE
bSetGet := &( "{|_1| IIF( _1 == NIL, " + cVarName + ", " + cVarName + " := _1 ) }" )
ENDIF
ENDIF

oGet := Get():New( , ,bSetGet, cVarName, cPicture )

oGet:PreBlock := bWhen
oGet:PostBlock := bValid

RETURN oGet

 Отправлено: 28.11.07 16:27. Заголовок: Re: gfilatov

gfilatov пишет:

цитата:

Прямая ссылка на Harbour Devel build 1.1-1 Intl.

Чем ты паковал этот архив? У меня не распаковывается (Unknown pack method)... нельзя было чем попроще запаковать?
И в какой либе для Harbour лежат функции Clipper Tools? Я думал в libct.lib, но там не оказалось ни Expand(), ни DiskFree(), ни ShowTime(), ни многих других функций...

 Отправлено: 28.11.07 16:29. Заголовок: К слову Такое повед..

К слову

Такое поведение клиппера - это баг или фича ?
И если бы кто нибудь борзый попробовал бы покачать права у Nantucket или CA, что бы он услышал в ответ ?
На моей памяти один чел, купивший за немаленькие деньги Borland Deplpi. как-то попробовал поразговаривать по душам с Borland. Какой результат был вы догадываетесь...
А с OpenSource проектом можно и пошуметь

 Отправлено: 28.11.07 16:35. Заголовок: Re: PSP

PSP пишет:

цитата:

если бы (x)Harbour-а не было, тогда что? Пришлось бы вообще заново все переписывать.

Если бы (x)Harbour-а не было, я бы давно уже всё под FoxPro переписал!... наверное... И не так уж сильно это было бы и "заново" (знаю, работал когда-то, FoxPro 2.6 у меня даже официяльная имеется).
Восторгов-то было по поводу Harbour - не передать! Ну я и думал, что всё будет по уму сделано...

 Отправлено: 28.11.07 17:01. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Чем ты паковал этот архив?

Архиватор 7-Zip Игоря Павлова (http://www.7-zip.org)

Лукашевский пишет:

цитата:

в какой либе для Harbour лежат функции Clipper Tools? Я думал в libct.lib

Так и есть

Лукашевский пишет:

цитата:

там не оказалось ни Expand(), ни DiskFree(), ни ShowTime()

Функции Expand() и ShowTime() там есть, a для DiskFree() есть аналогичная Харбор-функция diskspace(cDisk, HB_DISK_FREE)

Просто добавь в проект:

цитата:

#include "fileio.ch" Function DiskFree(cDisk) Return diskspace(cDisk, HB_DISK_FREE)

 Отправлено: 28.11.07 18:36. Заголовок: Re: gfilatov

gfilatov пишет:

цитата:

Функции Expand() и ShowTime() там есть

Ну да, в новой есть, а в июньском варианте - не было
Осталось ещё три вопроса: DISKREADYW() из CTOOLS, OL_ISNT из OSLIB и функция копирования текста в буфер обмена (хотя на SETWCLIPBOARD() линкер вроде не ругается - она и есть?).

 Отправлено: 28.11.07 18:50. Заголовок: Re: Pasha

Pasha пишет:

цитата:

А сейчас у тебя такого права нет

А тут вопрос не в праве, а в ответственности. Если было сказано - будет совместимость, значит - надо её делать. Или не надо было говорить о совместимости...
И поскольку я всегда стараюсь делать то что говорю (нет, конечно, бывает форс-мажор или там просто забыл :-), то на тему ответственности говорить имею полное право.
К тому же, Pasha, это камень в общем-то наверное не в твой огород...

 Отправлено: 28.11.07 20:31. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Этот приоритет можно изменить так: source\rtl\tgetint.prg - надо поменять порядок обработки Field и memvar FUNCTION __GET( bSetGet, cVarName, cPicture, bValid, bWhen )

Pasha, а точно нужно изменить только эту функцию? Я её воткнул в программу как просто функцию - и никакого эффекта. Или так не сработает?
И ещё - у меня вместо русской "р" вводится латинская "h" - что в поле, что в переменную. Я помню, в Faq об этом было для gtwin.lib, но указанного там www.xharbour.nm.ru вроде как уже не существует?.. Откуда брать?

 Отправлено: 24.12.07 10:21. Заголовок: xHarbour Compiler bu..

xHarbour Compiler build 1.1.0 (SimpLex)

При работе с ADS какие-то неувязки.Библиотеку с contrib пересобрал. Программу компилирую без замечаний.
Но при запуске Операционка выдает ошибку на всю программу.
В сборке 1.0.0 таких вопросов не было

 Отправлено: 24.12.07 10:36. Заголовок: В этой функции надо ..

В этой функции надо просто поменять местами последовательность обработки Memvar и Field
Поставить сначала Field

FUNCTION __GET( bSetGet, cVarName, cPicture, bValid, bWhen )

LOCAL oGet

IF bSetGet == NIL
IF FieldPos( cVarName ) > 0
// "{|_1| IIF( _1 == NIL, FIELD->&cVarName, FIELD->&cVarName := _1 )"
bSetGet := &( "{|_1| IIF( _1 == NIL, FIELD->" + cVarName + ", FIELD->" + cVarName + " := _1 ) }" )
ELSEIF Left( cVarName, 3 ) == "M->"
cVarName := SubStr( cVarName, 4 )
bSetGet := {|_1| IIF( _1 == NIL, __MVGET( cVarName ), __MVPUT( cVarName, _1 ) ) }
ELSEIF __MVEXIST( cVarName )
// "{|_1| IIF( _1 == NIL, M->&cVarName, M->&cVarName := _1 )"
bSetGet := {|_1| iif( _1 == NIL, __MVGET( cVarName ), __MVPUT( cVarName, _1 ) ) }
ELSE
bSetGet := &( "{|_1| IIF( _1 == NIL, " + cVarName + ", " + cVarName + " := _1 ) }" )
ENDIF
ENDIF

oGet := Get():New( , ,bSetGet, cVarName, cPicture )

oGet:PreBlock := bWhen
oGet:PostBlock := bValid

RETURN oGet

 Отправлено: 25.12.07 17:54. Заголовок: Re: Pasha

Pasha пишет:

цитата:

В этой функции надо просто поменять местами последовательность обработки Memvar и Field Поставить сначала Field FUNCTION __GET( bSetGet, cVarName, cPicture, bValid, bWhen ) LOCAL oGet IF bSetGet == NIL IF FieldPos( cVarName ) > 0

Это ещё зачем???
У меня сработал такой вариант:

FUNCTION __GET( bSetGet, cVarName, cPicture, bValid, bWhen )
LOCAL oGet

IF bSetGet == NIL
IF Left( cVarName, 3 ) == "M->" .AND. ATrue( cVarName := SubStr( cVarName, 4 ) ) ;
.OR. __MVEXIST( cVarName )
bSetGet := {|_1| IIF( _1 == NIL, __MVGET( cVarName ), __MVPUT( cVarName, _1 ) ) }
ELSEIF FieldPos( cVarName ) > 0
bSetGet := &( "{|_1| IIF( _1 == NIL, FIELD->" + cVarName + ", FIELD->" + cVarName + " := _1 ) }" )
ELSE
bSetGet := &( "{|_1| IIF( _1 == NIL, " + cVarName + ", " + cVarName + " := _1 ) }" )
ENDIF
ENDIF

oGet := Get():New( , ,bSetGet, cVarName, cPicture )

oGet:PreBlock := bWhen
oGet:PostBlock := bValid

RETURN oGet

И кстати, не подскажешь, что всё-таки творится с русской "р"?
А то я ввожу "Питер", а получаю "Питеh"!

 Отправлено: 25.12.07 18:03. Заголовок: Re: Vlad04

Vlad04 пишет:

цитата:

xHarbour Compiler build 1.1.0 (SimpLex)

Где добыл? На xharbour.org по-прежнему 1.0.0 beta...

 Отправлено: 26.12.07 12:19. Заголовок: Хорошо, что с __get ..

Хорошо, что с __get получалось

Лукашевский пишет:

цитата:

И кстати, не подскажешь, что всё-таки творится с русской "р"? А то я ввожу "Питер", а получаю "Питеh"!

Эта проблема возникает только при комбинации терминала gtwin и Windows 98, причем не на всех win98 не вводится русская р. Закономерности я не заметил
Я эту проблему не решал, а обошел (как и всякий нормальный герой) - "в обход"
Просто использую терминал gtwvt
Для простоты собрал харбор в многотерминальном режиме, т.е. программа линкуется с 2-мя терминалами, а какой из них использовать - опраделяется ключем
//gtwin или //gtwvt при запуске программы
Для сборки харбора в многотерминальном режиме надо в файле makefile.bc убрать комментарий со строки
# HB_MULTI_GT = yes

 Отправлено: 26.12.07 12:59. Заголовок: Версия http://www.hm..

Версия
http://www.hmgextended.com/files/xHARBOUR/xharbour-1.1.0-beta-bin-w32-bcc-5-5.exe


xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Harbour Build Info
---------------------------
Version: xHarbour build 1.1.0 Intl. (SimpLex)
PCode Version: 9
Compiler: Borland C++ 5.5.1
Platform: Windows 98 4.10.2222 A

Built on: Dec 19 2007 14:48:56
Last ChangeLog entry: 2007-12-19 03:15 UTC+0300 Phil Krylov
ChangeLog CVS version: ChangeLog,v 1.5814 2007/12/19 00:16:39

Harbour extensions: Yes
CA-Clipper 5.2e undocumented: Yes
CA-Clipper 5.2e strict compatibility: No
CA-Clipper 5.3x compatible extensions: Yes
Alaska Xbase++ compatible extensions: Yes
CA-Visual Objects compatible extensions: No
Multisoft Flagship compatible extensions: Yes
Microsoft FoxPro compatible extensions: No
dBase compatible extensions: No
Object file generation support: No
ANSI C usage: Non strict
C++ mode: Off
Compiler YACC debug mode: Off
Memory tracing and statistics: Off
Maximum symbol name length: 63
---------------------------

 Отправлено: 06.01.08 13:19. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Эта проблема возникает только при комбинации терминала gtwin и Windows 98, причем не на всех win98 не вводится русская р.

Не, боюсь, что это беда для всех '9x - по крайней мере, на Windows ME происходит абсолютно то же самое.
А что у тебя эта ошибка "гуляет" - так у меня на одном и том же компе (и виндоусе, соотв.) иногда нормально запускается - в смысле с нормальным вводом русской "р" - в соотношении где-то 1 раз на 40 запусков...

 Отправлено: 07.01.08 13:54. Заголовок: Re: Vlad04

Vlad04 пишет:

цитата:

Версия http://www.hmgextended.com/files/xHARBOUR/xharbour-1.1.0-beta-bin-w32-bcc-5-5.exe

Размер файла-архива сборки xHarbour 1.1.0 - 2.2М, а сборки 1.0.0 - 8.5М. Как-то это подозрительно...

 Отправлено: 07.01.08 14:02. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

это подозрительно

Ничего необычного: из официалной сборки убраны все MT-библиотеки и папка с документацией на английском и испанском (оно Вам нужно?! )
Соответственно, значительно уменьшен размер сборки!

 Отправлено: 08.01.08 19:42. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Просто использую терминал gtwvt

Что-то я никакой простоты в терминале gtwvt в упор не вижу - одни проблемы! Я о них писал давным-давно, и с тех пор ничего не изменилось, только хуже стало - теперь русский язык куда-то исчез, вместо него греческий! Впрочем, я это добавил к своей старой теме про окна - посмотри плиз.

 Отправлено: 11.01.08 13:57. Заголовок: gfilatov пишет: из ..

gfilatov пишет:

цитата:

из официалной сборки убраны все MT-библиотеки и папка с документацией на английском и испанском (оно Вам нужно?! )

А нельзя ли добавить в эту сборку папку source? Очень нада... :)

 Отправлено: 15.01.08 11:59. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Просто использую терминал gtwvt

Pasha, в GTWVT обнаружилась ещё одна проблема - посмотри в "Печать штрих-кодов"... Ты с этим сталкивался? И если ещё нет, может проверишь, - у тебя та же картина? Или это я такой особенный?

 Отправлено: 03.02.08 09:24. Заголовок: Многотерминальный режим

Pasha пишет:

цитата:

Для сборки харбора в многотерминальном режиме надо в файле makefile.bc убрать комментарий со строки # HB_MULTI_GT = yes

Pasha, я тоже пришёл к необходимости многотерминальной программы, но столкнулся с отсутствием у меня файла makefile.bc (это в котором нужно снять комментарий в строке HB_MULTI_GT=yes). Я попробовал всобачить SET HB_MULTI_GT=yes в AUTOEXEC, но искомого результата не получил.
Собственно, проблема следующая:
Error: Unresolved external '_HB_FUN_HB_GT_WIN' referenced from MAIN.OBJ и
Error: Unresolved external '_HB_FUN_HB_GT_WVT' referenced from MAIN.OBJ
Т.е. линкер ругается на REQUEST HB_GT_WIN и REQUEST HB_GT_WVT - если их заремить, линковка проходит, но ключ //gtwvt при запуске программы игнорируется.
Библиотеки gtwin.lib, gtwvt.lib, wvtgui.lib и gtnul.lib прилинкованы.

 Отправлено: 03.02.08 13:15. Заголовок: Вообще-то эта строка..

Вообще-то эта строка в makefile.bc "от царя панька"
А какой харбор ты используешь ? Из последнего релиза ?
Для поддержки multi-gt надо пересобрать весь харбор. В принципе все сырцы в релизе есть, это возможно, даже не скачивая с CVS
Напиши, какая 1-я строка в makefile.bc. И есть ли там вообще ссылка на переменную HB_MULTI_GT ?
Разве что это строку удалил принудительно тот, ктоо выкладывал сборку для bcc, обычно это делает Рон

 Отправлено: 03.02.08 17:34. Заголовок: Re: Pasha

Pasha пишет:

цитата:

Напиши, какая 1-я строка в makefile.bc.

Лукашевский пишет:

цитата:

столкнулся с отсутствием у меня файла makefile.bc

Это значит нету у меня этого файла вообще! Пришли на kniga@online.ru, если не сложно.
Юзаю релиз xHarbour 1.1.0 с присланным тобой обновлением gtwvt.lib

 Отправлено: 03.02.08 19:37. Заголовок: А где ты смотришь ? ..

А где ты смотришь ? Не в бинарниках случайно ? Каталог xharbour\source с подкаталогами vm, rdd, rtl есть ?
Просто прислать makefile.bc нет смысла, так там уже были изменения. Нужен файл именно с тотго релиза, который у тебя

 Отправлено: 04.02.08 00:43. Заголовок: Re: Pasha

Pasha пишет:

цитата:

А где ты смотришь ? Не в бинарниках случайно ?

Да, балда я... когда смотрел faq, вообще не увидел, что надо именно пересобирать Харбор!
Двухметрового объёма сборка 1.1.0, которую я скачивал, была, по всей видимости, без исходников...
Pasha, а ты не мог бы выложить где-нить готовую мультисборку xHarbour'а (текущий вариант), может и кому ещё кроме меня пригодится?

 Отправлено: 04.02.08 10:18. Заголовок: ok. Без mt-библиотек..

ok. Без mt-библиотек
только завтра, т.к. сырцов с CVS у меня под рукой нет
есть