Отправлено: 18.05.11 19:04. Заголовок: Leto DB Server

Добавил функцию:

LETO_GROUPBY(cGroup, cFields, [cFilter], [xScopeTop], [xScopeBottom])

cGroup - имя поля, по которому группируются данные;
cFields - список числовых полей через запятую, которые суммируются. Символ # обозначает к-во записей в группе

Функция возвращает двумерный массив строк.
1-й элемент каждой строки - значение поля cGroup, следующие элементы суммы полей, заданных в cFields, или к-во записей в группе

 Отправлено: 20.05.11 15:39. Заголовок: Паша, а на сервер об..

Паша, а на сервер обновления не сбрасывали?

 Отправлено: 20.05.11 15:55. Заголовок: Конечно Но мы работа..

Конечно
Но мы работаем не с основной revision
Надо при checkout указать revision - не Head. а выбрать rel-1-mt1 revision

 Отправлено: 20.05.11 15:57. Заголовок: Понял, списибо...

Понял, спасибо.

 Отправлено: 22.05.11 12:51. Заголовок: А где на SVN нах..

А где на SVN находится Letodb?

 Отправлено: 22.05.11 22:05. Заголовок: Почему на svn? На CV..

Почему на svn? На CVS:

cvs -d:pserver:anonymous@letodb.cvs.sourceforge.net:/cvsroot/letodb login

cvs -z3 -d:pserver:anonymous@letodb.cvs.sourceforge.net:/cvsroot/letodb co -P modulename

 Отправлено: 27.05.11 18:35. Заголовок: Добавил для leto_udf..

Добавил для leto_udf возможность передачи произвольного числа параметров любых типов на сервер, а также возврата результата любого типа. Для этого используются функции hb_serialize и hb_deserialize. Поскольку сервер сейчас собирается только под Harbour, для сборки клиента под xHarbour добавил версии этих функций от Harbour
Также добавил функцию на сервере:

LETO_RECLOCK( nUserStru [, nRecord] )

которая может вызываться из udf-функций

udf-функция может вернуть в качестве результата клиенту значение текущей записи с помощью вызова функции LETO_REC(). Клиент при этом должен вызвать функцию Leto_ParseRec для установки текущей записи.

Пример вызова с клиента:

Leto_ParseRec( Leto_Udf("UDF_AppendRec", <cFieldName>, [<cOrder>|<nOrder>]) )

Также в tests добавил пример udf-функции.

 Отправлено: 30.05.11 14:55. Заголовок: Паша, скачал rel-1-..

Паша,

скачал rel-1-mt, собираю с hbmk2: letodb.exe собирается, потом ищу библиотеку rddleto - не нахожу, нету даже папки lib, смотрю в корне валяется libletodb в rddleto.hbp вместо -olib/rddleto указано -oletodb. Соответсвенно не собираются тесты т.к. в rddleto.hbc указано libs=rddleto. Идут какие-то изменения? В readme ничего не нашел, все по старому и структура каталогов и названия библиотек.

 Отправлено: 30.05.11 15:10. Заголовок: Библиотека стала так..

Библиотека стала так называться при сборке через hbmk2 после

2011-04-29 15:27 UTC+0300 Alexander Okhotnikov (alxokhotnikov/at/gmail.com)

 Отправлено: 30.05.11 15:12. Заголовок: В настоящее время мо..

В настоящее время можно на сервере в подгружаемом файле letoudf.prg писать полноценные udf-функции. UDF-функции с клиента можно передать произвольное количество параметров любых типов.
В функциях можно использовать обычные методы rdd, за исключением блокировок - вместо rlock/dbrlock/dbunlock надо использовать leto_reclock() и leto_recunlock(), поскольку блокировки выполняются не средствами rdd, а средствами leto.
Эти функции могут после выполнения каких-либо действий возвращать клиенту новую текущую запись с помощью вызова leto_Rec(), а клиент в свою очередь может принять эту текущую запись с помощью leto_parserec
Пример парочки таких функций я выложил: одна добавляет запись с заполняет значение ключевого поля, вторая - удаляет записи по указанному фильтру.
Но все это работает в текущей рабочей области.
Теперь как сделать работу в udf-функции с несколькими рабочими областями. Вызов серверного алиаса через leto_alias мне не очень нравится, поэтому возникла другая идея.
Сделать на клиенте функцию leto_areaid(), и передавать на сервер номера рабочих областей в качестве параметров.
В udf-функции эти номера можно использовать для вызова leto_SelectArea( nuserStru, nAreaId ), и в дальнейшем использовать это рабочую область
Для leto_reclock, leto_recunlock и leto_rec ввести еще один необязательный параметр - nAreaId
udf-функция могла бы возвращать массив с данными нескольких рабочх областей: {cRecBuf1, cRecBuf2, ...}, а на клиенте можно было бы обрабатывать этот массив вызовами leto_ParseRec
Только надо будет доработать leto_FreeArea, чтобы при завершении udf-функции освобождать рабочие области (кроме текущей).
Какие будут предложения ? Может быть, есть способ получше ?

 Отправлено: 30.05.11 15:15. Заголовок: Да я уже вижу, а смы..

Pasha пишет:

цитата:

Библиотека стала так называться при сборке через hbmk2 после 2011-04-29 15:27 UTC+0300 Alexander Okhotnikov (alxokhotnikov/at/gmail.com)

Да я уже вижу, а смысл?

 Отправлено: 30.05.11 15:21. Заголовок: Pasha пишет: Какие ..

Pasha пишет:

цитата:

Какие будут предложения ? Может быть, есть способ получше ?

Я думаю, что очень мало людей думает об этом, потому как сделаете так и будет.

 Отправлено: 31.05.11 00:06. Заголовок: Pasha пишет: Вызов ..

Pasha пишет:

цитата:

Вызов серверного алиаса через leto_alias мне не очень нравится

Чем плохо? Скорость (больше ничего на ум не приходит)? Ведь нагляднее и проще передать алиас.

цитата:

Для leto_reclock, leto_recunlock и leto_rec ввести еще один необязательный параметр - nAreaId. udf-функция могла бы возвращать массив с данными нескольких рабочх областей

Излишний функционал (к тому же с переделкой протокола).
Я вижу это так:
1. Открыли на клиенте все таблицы (либо сделать функцию открытия на сервере)
2. Вызвали leto_alias и leto_SelectArea (можно даже в переменной сохранить AreaID для скорости)
3. Собрали результат
4. Повторили п.2 для следующего параметра
5. Вернули массив
Ведь это обычный clipper/harbour -код

цитата:

Только надо будет доработать leto_FreeArea, чтобы при завершении udf-функции освобождать рабочие области (кроме текущей)

leto_FreeArea отдает ВСЕ раб.области, открытые в этом потоке.

цитата:

Какие будут предложения ? Может быть, есть способ получше ?

Единственная доработка, которая требуется, на мой взгляд (сам не использую пока UDF) - это открытие таблиц в UDF

 Отправлено: 31.05.11 00:20. Заголовок: AlexMyr пишет: Идут..

AlexMyr пишет:

цитата:

Идут какие-то изменения? В readme ничего не нашел, все по старому и структура каталогов и названия библиотек

Я, честно говоря, выложил версию с потоками "на посмотреть". Т.е. в корне папки исходников ничего не трогал. А оно как все завертелось!
У меня свои скрипты компиляции клиента. Можете Вы у себя переделаеть rddleto.hbp и rddleto.hbc? Опубликуете в этом форуме - я выложу на CVS.

 Отправлено: 31.05.11 09:08. Заголовок: alx_on пишет: Я, че..

alx_on пишет:

цитата:

Я, честно говоря, выложил версию с потоками "на посмотреть".

Ясно, а все доработки потом перейдут в основную ветку или как?

 Отправлено: 31.05.11 09:26. Заголовок: AlexMyr пишет: Ясно..

AlexMyr пишет:

цитата:

Ясно, а все доработки потом перейдут в основную ветку или как?

Версия с потоками куда перспективнее, и она просто должна стать основной. Поэтому letodb без потоков даже не хочется трогать.
Хотелось бы, чтобы на новую версию посмотрел А.Кресин.

 Отправлено: 31.05.11 09:33. Заголовок: Pasha пишет: Хотело..

Pasha пишет:

цитата:

Хотелось бы, чтобы на новую версию посмотрел А.Кресин.

А написать Александру не пытались? Что-то давно он сюда не заглядывал.

 Отправлено: 31.05.11 09:38. Заголовок: alx_on пишет: Чем п..

alx_on пишет:

цитата:

Чем плохо? Скорость (больше ничего на ум не приходит)? Ведь нагляднее и проще передать алиас.

Тогда еще на сервере надо добавить функцию leto_areaid() для текущей р/о, для 2-го параметра в leto_selectarea

 Отправлено: 31.05.11 12:57. Заголовок: Руки дошли до семейс..

Руки дошли до семейства LETO_VAR*()
Переделал под текущую схему (с потоками)
Вроде работает. Кто использует? Проверьте на реальном проекте на нюансы...

 Отправлено: 31.05.11 13:10. Заголовок: Вот что получил при ..

Вот что получил при сборке (/* $Id: Changelog,v 1.350.2.14 2011/05/31 09:51:51 aokhotnikov Exp $ */):

hbmk2: Compiling...
hbmk2: C/C++ compiler command:
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -Ic:/dev/harbour/include -I../../../../include ../../../../bin/.hbmk/win/mingw/server.c ../../../../bin/.hbmk/win/mingw/errorsys.c ../../../../bin/.hbmk/win/mingw/common.c ../../../../source/server/errint.c ../../../../source/server/leto_win.c ../../../../source/server/letoacc.c ../../../../source/server/letovars.c ../../../../source/server/letofunc.c ../../../../source/server/leto_2.c ../../../../source/common/blowfish.c ../../../../source/common/common_c.c ../../../../bin/.hbmk/win/mingw/_hbmkaut_server.c
../../../../source/server/letofunc.c: In function 'letoFillTransInfo':
../../../../source/server/letofunc.c:6776:7: warning: format '%d' expects type 'int *', but argument 3 has type 'HB_USHORT *'
../../../../source/server/letofunc.c:6781:7: warning: format '%d' expects type 'int *', but argument 3 has type 'HB_USHORT *'
../../../../source/server/letofunc.c:6794:25: warning: format '%d' expects type 'int *', but argument 3 has type 'HB_USHORT *'
../../../../source/server/letofunc.c:6794:25: warning: format '%d' expects type 'int *', but argument 4 has type 'HB_USHORT *'
../../../../source/server/letofunc.c: In function 'leto_Trans':
../../../../source/server/letofunc.c:6865:16: warning: format '%d' expects type 'int *', but argument 3 has type 'HB_USHORT *'
../../../../source/server/letofunc.c:6885:32: warning: format '%d' expects type 'int *', but argument 3 has type 'HB_USHORT *'
../../../../source/server/letofunc.c:6885:32: warning: format '%d' expects type 'int *', but argument 4 has type 'HB_USHORT *'
../../../../source/server/letofunc.c: In function 'ParseCommand':
../../../../source/server/letofunc.c:7222:45: error: 'mutex_VARS' undeclared (first use in this function)
../../../../source/server/letofunc.c:7222:45: note: each undeclared identifier is reported only once for each function it appears in
hbmk2: Error: Running C/C++ compiler. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -Ic:/dev/harbour/include -I../../../../include ../../../../bin/.hbmk/win/mingw/server.c ../../../../bin/.hbmk/win/mingw/errorsys.c ../../../../bin/.hbmk/win/mingw/common.c ../../../../source/server/errint.c ../../../../source/server/leto_win.c ../../../../source/server/letoacc.c ../../../../source/server/letovars.c ../../../../source/server/letofunc.c ../../../../source/server/leto_2.c ../../../../source/common/blowfish.c ../../../../source/common/common_c.c ../../../../bin/.hbmk/win/mingw/_hbmkaut_server.c

 Отправлено: 31.05.11 13:45. Заголовок: AlexMyr Странно... ..

AlexMyr
Странно...
Перевыложил

 Отправлено: 31.05.11 13:53. Заголовок: alx_on пишет: AlexM..

alx_on пишет:

цитата:

AlexMyr Странно... Перевыложил

Теперь нормально собралось.

 Отправлено: 31.05.11 14:00. Заголовок: Останавливаю сервер,..

Останавливаю сервер, в логе запись
05/31/11 13:57:23: Send STOP to server...

может быть так
05/31/11 13:57:23: Send STOP to server... Done.

а то послали stop а результата в логе нет.

 Отправлено: 31.05.11 14:10. Заголовок: О, увидел, оказывает..

О, увидел, оказывается задержка есть 3 сек.

05/31/11 14:08:22: Send STOP to server...
05/31/11 14:08:25: Server has been closed.

 Отправлено: 31.05.11 15:47. Заголовок: Pasha пишет: Версия..

Pasha пишет:

цитата:

Версия с потоками куда перспективнее, и она просто должна стать основной

Я считаю, что текущая реализация хороша, но до определенных пределов
Какие есть недостатки:
1. Запуск отдельного потока для каждого подключения накладно. Как по времени запуска, так и по ресурсам.
На машинке (win) с 2Гб у меня запустилось около 800 потоков (вроде много, но если клиентов около 100 и каждый создал по 10
соединений, например, это многопоточное клиентское приложение, то к пределу мы уже подошли)
2. Неэффективное использование ядер (больше времени уходит на переключение между ядрами, чем на работу

Хочется переделать на использование ограниченного кол-ва рабочих потоков (в идеале, примерно, равное кол-ву ядер)
Плюс оптимизация сетевой подсистемы (с учетом реализации стека TCP/IP конкретной ОС)

Но! То что поточная реализация точно лучше старой - это факт.

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

Pasha пишет:

цитата:

надо добавить функцию leto_areaid()

Я (пока?) не использую UDF
Поэтому добавить то могу, но тестировать не на чем. Да и времени сейчас на это нет, честно говоря.
Исправляю и добавляю только по мере необходимости, как это не грустно

PS leto_ClearAreaEnv() вызывается каждый раз перед завершением операции
Так ли это необходимо?
Вызова leto_SetAreaEnv() перед операцией вполне достаточно
Какие есть мнения?

 Отправлено: 01.06.11 14:32. Заголовок: Да функцию я и сам д..

Да функцию я и сам добавлю
А leto_ClearAreaEnv() для версии с двумя потоками был просто необходим, так как рабочая область таблицы для всех пользователей была общая, и ее обязательно надо было сбрасывать
Для mt-версии наверное это и не надо.

 Отправлено: 02.06.11 09:56. Заголовок: Странно, функция let..

Странно, функция leto_areaid() и не понадобилась

Сделал udf-функцию для каскадного обновления (вечером выложу):

/* 
  * UDF_UpdCascade - cascade update key fields in main and relation table 
  * Parameters: 
  *   nRecNo       - record number in the main table 
  *   cKeyField    - field name in the main table (primary key) 
  *   xKeyNew      - new value of key field 
  *   cClientAlias - client alias of the relation table 
  *   cKeyField2   - field name in the relation table (foreign key) 
  *   xOrder       - order name or order number in the relation table 
  * 
  * This function return array of record buffer in two tables 
  * Call from client: 
  * 
  * aRecBuf := Leto_Udf("UDF_UpdCascade", ... ) 
  * (table1)->( leto_ParseRec( aRecBuf[1] ) ) 
  * (table2)->( leto_ParseRec( aRecBuf[2] ) ) 
  */ 
 FUNCTION UDF_UpdCascade( nUserStru, nRecNo, cKeyField, xKeyNew, cClientAlias, cKeyField2, xOrder ) 
    LOCAL xKeyOld, cLetoAlias, cArea := Alias() 
    LOCAL nPos := FieldPos( cKeyField ), nPos2 
  
    dbGoto( nRecNo ) 
    xKeyOld := FieldGet( nPos ) 
    IF xKeyOld != xKeyNew .and. leto_RecLock( nUserStru, nRecNo ) 
       FieldPut( nPos, xKeyNew ) 
       leto_RecUnlock( nUserStru, nRecNo ) 
  
       cLetoAlias := leto_Alias( nUserStru, cClientAlias ) 
       dbSelectArea( cLetoAlias ) 
       IF Empty( cKeyField2 ) 
          cKeyField2 := cKeyField 
       ENDIF 
       nPos2 := FieldPos( cKeyField2 ) 
       IF ! Empty( xOrder ) 
          ordSetFocus( xOrder ) 
       ENDIF 
       WHILE dbSeek( xKeyOld ) 
          IF leto_RecLock( nUserStru, RecNo() ) 
             FieldPut( nPos2, xKeyNew ) 
             leto_RecUnlock( nUserStru, RecNo() ) 
          ELSE 
             EXIT 
          ENDIF 
       ENDDO 
       dbSeek( xKeyNew ) 
  
       dbSelectArea( cArea ) 
  
    ENDIF 
    RETURN { leto_rec( nUserStru ), (cLetoAlias)->(leto_rec( nUserStru)) }

И оказалось, что при выборе текущей раб.области pUStru->pCurAStru сам присваивается, только мне непонятно как

 Отправлено: 02.06.11 10:32. Заголовок: Pasha пишет: pUStru..

Pasha пишет:

цитата:

pUStru->pCurAStru сам присваивается, только мне непонятно как

leto_Alias() - вызывает leto_SelectArea(), там все делается

цитата:

IF ! Empty( xOrder ) ordSetFocus( xOrder ) ENDIF WHILE dbSeek( xKeyOld )

Вот здесь я был бы осторожнее, т.к. не факт, что от другого UDF не остались установленные фильтры и скопы
Лучше все сбрасывать перед операциями поиска и прохода по записям


Кстати, недостатки текущей реализации UDF:
1 неудобно каждый раз вручную обновлять файл UDF на сервере
2 требуется рестарт сервера
3 непонятно какая именно версия UDF на сервере

Как такая идея работы с UDF:
1. Написать функцию отдачи версии UDF-файла (или каждая UDF-функция должна уметь вернуть свою версию)
2. Написать функцию обновления версии UDF-файла (соответственно сервер должен уметь перечитать его)
3. удаление UDF-файла

 Отправлено: 02.06.11 11:09. Заголовок: По поводу areaid - н..

По поводу areaid - не все так просто. leto_rec использует текущий алиас - pArea, и текущую pUStru->pCurAStru.
А они в UDF_UpdCascade оказываются разные: AREASTRU для обоих вызовов одинаковая.
Так что запрос areaid и ее установка через leto_selectarea() все-таки нужна. Может лучше передавать ее параметром (необязательным) в leto_rec, leto_reclock, leto_recunlock ?

Насчет фильтров - ведь каждая udf-функция вызывается по отдельному запросу с клиента, и после ее работы отрабатывается FreeArea, которая должна все сбросить. Это получается как для leto_ClearAreaEnv(). Установленный фильтр надо проверять разве что если одна UDF-функция вызывается из другой.

Reload/Unload для UDF сделаю, по аналогии с отработки команды stop - LETO_STOPSERVER. Там надо вызывать hb_hrbunload/hb_hrbload

По поводу версии UDF. Может в hrb-модуль добавить функцию UDF_Version, которая возвращала бы строку версии, и с клиента ее можно опросить обычным вызовом leto_Udf('UDF_Version') ?
Кстати, можно еще определить функию UDF_INIT, которую сервер вызывал бы при загрузке UDF (если она есть в модуле, конечно)

 Отправлено: 02.06.11 11:14. Заголовок: alx_on пишет: 2. На..

alx_on пишет:

цитата:

2. Написать функцию обновления версии UDF-файла (соответственно сервер должен уметь перечитать его)

А, это запросом с клиента обновлять UDF ? Можно и так, добавить команду, и с ней передавать hrb-файл, который сервер бы загружал

 Отправлено: 02.06.11 11:39. Заголовок: Pasha пишет: leto_r..

Pasha пишет:

цитата:

leto_rec использует текущий алиас - pArea, и текущую pUStru->pCurAStru.

Вот именно. Т.е. использование UDF требует аккуратности (мало ли где еще неявно что то используется)
Например можно вместо:

dbSelectArea( cArea )
ENDIF
RETURN { leto_rec( nUserStru ), (cLetoAlias)->(leto_rec( nUserStru)) }

написать так:
LOCAL aRet := {,}
.......
.......
aRet[2] := leto_rec( nUserStru )
dbSelectArea( cArea )
aRet[1] := leto_rec( nUserStru )
ENDIF
RETURN aRet

Плюс правильно отработать условие "IF xKeyOld != xKeyNew .and. leto_RecLock( nUserStru, nRecNo )" -
(пустой массив)
Сейчас просто будет падать (cLetoAlias == NIL)

цитата:

после ее работы отрабатывается FreeArea, которая должна все сбросить. Это получается как для leto_ClearAreaEnv()

leto_FreeArea() не сбрасывает ничего (явно, по крайней мере), она только передает таблицу в общее пользование потокам

цитата:

Может в hrb-модуль добавить функцию UDF_Version

Как вариант, да согласен

 Отправлено: 08.06.11 21:23. Заголовок: Обновление обьекта t..

Обновление обьекта tbrowse происходит так:
go top
перемещение в начало, вывод строки
skip 1
вывод строки
skip 1
...
skip -n
возврат на первую строку

Применительно к letodb это будет выглядеть так:
go top
выборка записи с сервера
skip 1
n записей со 2-й выбираются с сеовера
skip 1
запись берется из буфера без обращения к серверу
...
skip -n
записи с n до 2 беоутся из буфера, а 1-я вновь запрашивается с сервера

Чтобы избежать лишнего запроса, я сделал буферизацию записи, которая получена при gotop/gobottom/goto/seek
Таким образом, теперь при стабилизации tbrowse к letodb клиент посылает всего 2 запроса:
gotop
skip

Конечно, при этом буфер для skip должен быть не меньше, чем количество строк в tbrowse
Для этого можно вызвать:
leto_SetSkipBuffer( oB:rowCount() )

Заодно добавил оптимизацию dbGoto: если запрашиваемая запись есть в буфере, она не считывается с сервера.

 Отправлено: 10.06.11 16:15. Заголовок: Помимо буферизации s..

Помимо буферизации skip хочется добавить в letodb буферизацию seek.
Предполагается делать буферизацию исключительно на клиенте, сервер при этом задействован не будет. После выполнения seek, если это не поиск по частичному ключу и не поиск последнего ключа, результат поиска добавляется в буфер.
Время актуальности буфера - BUFF_REFRESH_TIME (1 сек)
Если ключ для seek найден в буфере, то запрос к серверу не выполняется, а запись берется из буфера. Буфер хранится в LETOTAGINFO. При записи в таблице буфер очищается.
Использование seek buffer будет целесообразно для небольших справочников, для которых постоянно вызывается seek, а также при задании set relation.
Для р/о, в которой задано использование seek buffer, количество мелких запросов к серверу (seek) может быть сокращено в десятки раз.
В Ads, насколько я знаю, подобного механизма нет.
Какие будут мысли, идеи, сомнения ? Стоит ли использовать такой механизм по умолчанию для всех р/о, или только для заданных ? Как ограничивать размер такого буфера ?

 Отправлено: 12.06.11 17:52. Заголовок: Добавил поддержку se..

Добавил поддержку seek-буфера. По умолчанию он выключен. Чтобы его включить, надо вызвать leto_setseekbuffer( nRecs ) для соответствующего индекса. Параметр - максимальное количество записей в буфере.
Использование такого буфера для таблиц, в которых используется преимущественно индексный метод доступа, позволяет существенно сократить количество запросов к серверу. В моем тесте для не очень большой выборки число "попаданий" в буфер достигало тысяч.

 Отправлено: 14.06.11 09:24. Заголовок: Pasha пишет: Добави..

Pasha пишет:

цитата:

Добавил поддержку seek-буфера

1. поменялся фильтр (выполняемый на сервере)
2. поменялся scope
3. поменяли видимость удаленных записей
в этих случаях буфер поиска необходимо сбрасывать (или не учитывать)

 Отправлено: 14.06.11 12:57. Заголовок: alx_on пишет: 1. по..

alx_on пишет:

цитата:

1. поменялся фильтр (выполняемый на сервере) 2. поменялся scope 3. поменяли видимость удаленных записей в этих случаях буфер поиска необходимо сбрасывать (или не учитывать)

Сделаю. Заодно и для skipbuf, там тоже этого нет. set deleted перехватывать не получится, так что прийдется добавить этот флаг в буфер, и проверять его при использовании буфера. Сделаю отдельную структуру для буфера. Зодно хочется добавить статистику запросов для р.о на клиенте - количество запросов, количество попаданий в буфер

 Отправлено: 14.06.11 19:10. Заголовок: Сделал Вызов leto_Se..

Сделал
Вызов leto_SetSkipBuffer() и leto_SetSeekBuffer теперь возвращает статистику использования буфера для текущей р/о или индекса: сколько раз записи выбирались из буфера, а не запрашивались с сервера.

 Отправлено: 04.07.11 18:02. Заголовок: Собрал letodb под wi..

Собрал letodb под win64 с помощью mingw64. Работает.

 Отправлено: 04.07.11 23:30. Заголовок: Pasha пишет: Собрал..

Pasha пишет:

цитата:

Собрал letodb под win64 с помощью mingw64. Работает

у меня и раньше работало (правда MAC OS X 64-бита и gcc)
есть какая то разница между mingw64 и gcc?

 Отправлено: 05.07.11 01:11. Заголовок: Pasha пишет: Собрал..

Pasha пишет:

цитата:

Собрал letodb под win64 с помощью mingw64. Работает.

Паш, и чего, ни разу приведения pointer к int по всему коду не было? Абалдеть!

P.S. Не советую тешиться

 Отправлено: 05.07.11 10:15. Заголовок: alx_on пишет: у мен..

alx_on пишет:

цитата:

у меня и раньше работало (правда MAC OS X 64-бита и gcc) есть какая то разница между mingw64 и gcc?

Да, собиралось и раньше, но в редких случаях могла быть некорректная работа
Я убрал варнинги, кое-где поставил вместо ULONG 8-байтный HB_SIZE
Думаю, для letodb64 надо давать возможность работать и 32, и 64 разрядным клиентам
А в mingw64 используется тот же gcc

 Отправлено: 05.07.11 10:20. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Паш, и чего, ни разу приведения pointer к int по всему коду не было? Абалдеть! P.S. Не советую тешиться

Заслуга в том, что легким движением руки брюки превратились в элегантные шорты, не в letodb, а в истинной многоплатформенности харбора. В харборе напрямую тип __int 64 (longlong) не используется, а используются свои типы, которые в зависимости от архитектуры могут быть 4-х байтными или 8-ми байтными
Никто же не специально не делал letodb под MacOS. Оказалось достаточно его собрать, и работает

 Отправлено: 05.07.11 10:54. Заголовок: Pasha пишет: Я убра..

Pasha пишет:

цитата:

Я убрал варнинги

Появились новые

server/letofunc.c: In function ...leto_Mgmt...:
server/letofunc.c:5344: warning: format ...%I64u... expects type ...unsigned int..., but argument 19 has type ...HB_SIZE...
server/letofunc.c:5344: warning: format ...%I64u... expects type ...unsigned int..., but argument 20 has type ...HB_SIZE...
server/letofunc.c: In function ...leto_udf...:
server/letofunc.c:7071: warning: format ...%I64u... expects type ...unsigned int *..., but argument 3 has type ...HB_SIZE *...
server/letofunc.c:7071: warning: format ...%I64u... expects type ...unsigned int *..., but argument 3 has type ...HB_SIZE *...

 Отправлено: 05.07.11 11:21. Заголовок: Это для 64-битной сб..

Это для 64-битной сборки ? Для mingw64 этих варнингов нет

В некоторых компиляторах для 8-байтных целых используется формат не %I64u, а %llu
Если использовать для LETO_SIZE_FORMAT %llu, варнинги будут ?

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

Pasha пишет:

цитата:

Если использовать для LETO_SIZE_FORMAT %llu, варнинги будут ?

warning: format ‘%llu’ expects type ‘long long unsigned int’, but argument 19 has type ‘HB_SIZE’

PS letodb: Mach-O 64-bit executable x86_64

 Отправлено: 05.07.11 18:25. Заголовок: Заметил плохую вещь,..

Заметил плохую вещь, пока не разбирался

на клиенте cp1251
таблицы cp866

установка фильтра с русскими буквами (например: "FIELD->PARAM=='привет'") лажается
такие записи точно есть (без лето работает)

дополнение:
в функции leto_SetFilter() принудительно вызывается leto_SetUserEnv()
если вызов leto_SetUserEnv() убрать, то все нормально
странно...

 Отправлено: 05.07.11 21:31. Заголовок: alx_on пишет: warni..

alx_on пишет:

цитата:

warning: format ‘%llu’ expects type ‘long long unsigned int’, but argument 19 has type ‘HB_SIZE’ PS letodb: Mach-O 64-bit executable x86_64

Странно. А что в этой сборке показывает

sizeof(HB_SIZE)

?

Должно быть 8

 Отправлено: 05.07.11 21:51. Заголовок: Pasha пишет: Замети..

Pasha пишет:

цитата:

Заметил плохую вещь, пока не разбирался на клиенте cp1251 таблицы cp866 установка фильтра с русскими буквами (например: "FIELD->PARAM=='привет'") лажается такие записи точно есть (без лето работает) дополнение: в функции leto_SetFilter() принудительно вызывается leto_SetUserEnv() если вызов leto_SetUserEnv() убрать, то все нормально странно...

То есть, имеем установку:

hb_SetCodepage( "RU1251" )
use ... codepage RU866

Фильтр устанавливаем в cp1251
На клиенте он перекодируется в 866, и сервер его получает в 866
На сервере leto_SetFilter() вызывает leto_SetUserEnv(), который на сервере устанавливает текущую cp1251
Поле при чтении на сервере перекодируется 866->1251, и сравнивается со строкой фильтра в 866. Фильтр не срабатывает.
Вызов leto_SetUserEnv() на сервере нужен для установки формата даты, да и для кодовой страницы тоже, чтобы правильно работал upprt/lower
Наверное, надо убрать перекодировку строки фильтра на клиенте, и передавать фильтр на сервер без перекодировки, чтобы сервер перекодировал значение поля, и сравнивал его с фильтром.
Завтра внимательно протестирую.

 Отправлено: 05.07.11 22:07. Заголовок: Pasha пишет: Должно..

Pasha пишет:

цитата:

Должно быть 8

Так и есть
sizeof(HB_SIZE)=8

компилятор
i686-apple-darwin11-llvm-gcc-4.2

 Отправлено: 06.07.11 09:49. Заголовок: Да, перекодировку ст..

Да, перекодировку строки фильтра на клиенте надо убрать.
Еще, на сервере в leto_RequestArea можно не устанавливать hb_cdpSelect, ведь это делается в leto_SetUserEnv
Можно правда включить в leto_RequestArea leto_SetUserEnv, надо подумать

 Отправлено: 06.07.11 11:04. Заголовок: Pasha пишет: в leto..

Pasha пишет:

цитата:

в leto_RequestArea можно не устанавливать hb_cdpSelect, ведь это делается в leto_SetUserEnv

На каждое соединение свой поток
В начале инициализации потока один раз вызвать leto_SetUserEnv()
Плохо только, если клиент позже сменил, например, кодовую страницу через hb_cdpSelect()
Но это и сейчас не отрабатывается

в leto_RequestArea() надо устанавливать hb_cdpSelect
т.к. я могу подряд вызвать, например, два USE с разными codepage
даже не так - hb_cdpSelect надо устанавливать в leto_SelectArea (в одной команде
используется много таблиц с разными codepage, например, в UDF)

Оффтоп:
Przemysław Czerpak:

On Tue, 24 May 2011, marek.horody...@interia.pl wrote:
> Can I in this version, when yes - how, reduce the effects of hb_cdpSelect () only to the current thread?

This is default behavior - hb_cdpSelect() changes codepage only for
current threads. It does not effect any other threads.

Look at doc/xhb-diff.txt, section "MULTI THREAD SUPPORT"



Кстати, если использовать для LETO_SIZE_FORMAT %lu, то варнингов нет

 Отправлено: 06.07.11 15:02. Заголовок: alx_on пишет: Кстат..

alx_on пишет:

цитата:

Кстати, если использовать для LETO_SIZE_FORMAT %lu, то варнингов нет

Но они есть в mingw64. Надо определить формат, устраивающий все компиляторы, или считывать int не через sscanf
Один и тот же формат %lu не может использоваться и для 4, и для 8-ми байтовых int

Какая размерность int у i686-apple-darwin11-llvm-gcc-4.2 ?
Прогоните тест

func main
? 'Hello', U_Long(1), U_Long(2), U_Long(3), U_Long(4), U_Long(5)
return nil

#pragma BEGINDUMP

#define LETO_SIZE_FORMAT "%I64u"

#include "hbapi.h"

HB_FUNC( U_LONG )
{
int iSize = 0;

switch( hb_parni(1) )
{
case 1:
iSize = sizeof( ULONG );
//4
break;
case 2:
iSize = sizeof( HB_SIZE );
//8
break;
case 3:
iSize = sizeof( int );
//4
break;
case 4:
iSize = sizeof( long );
//4
break;
case 5:
//8
iSize = sizeof( long long );
break;
}
hb_retnl( iSize );
}

HB_FUNC( U_FORMAT )
{
HB_SIZE nSize;
long lNum;
long long llNum;

sscanf(hb_parc(1), "Read" LETO_SIZE_FORMAT ";", &nSize);
sscanf(hb_parc(1), "%lu", &lNum);
sscanf(hb_parc(1), "%lu", &llNum);
sscanf(hb_parc(1), "%I64u", &llNum);
hb_retnll(nSize);
}

#pragma ENDDUMP

Какие варнинги у последней функции ?

 Отправлено: 06.07.11 15:38. Заголовок: ../../../test_c.c:1:..

../../../test_c.c:1: warning: ignoring #pragma BEGINDUMP
../../../test_c.c: In function ‘HB_FUN_U_FORMAT’:
../../../test_c.c:43: warning: format ‘%I64u’ expects type ‘unsigned int *’, but argument 3 has type ‘HB_SIZE *’
../../../test_c.c:43: warning: format ‘%I64u’ expects type ‘unsigned int *’, but argument 3 has type ‘HB_SIZE *’
../../../test_c.c:45: warning: format ‘%lu’ expects type ‘long unsigned int *’, but argument 3 has type ‘long long int *’
../../../test_c.c:45: warning: format ‘%lu’ expects type ‘long unsigned int *’, but argument 3 has type ‘long long int *’
../../../test_c.c:46: warning: format ‘%I64u’ expects type ‘unsigned int *’, but argument 3 has type ‘long long int *’
../../../test_c.c:46: warning: format ‘%I64u’ expects type ‘unsigned int *’, but argument 3 has type ‘long long int *’
../../../test_c.c: At top level:
../../../test_c.c:50: warning: ignoring #pragma ENDDUMP

Вывод:
Hello 8 8 4 8 8

 Отправлено: 06.07.11 15:54. Заголовок: т.е, для gcc darwin ..

т.е, для gcc darwin ULONG - это 8 байт, и формат %lu предназначен для int 64 bit, он подходит и для ULONG, и для HB_SIZE
а для gcc mingw64 ULONG - это 4 байт, и формат %lu предназначен для int 32 bit, и формат должен быть разным

 Отправлено: 06.07.11 16:28. Заголовок: Все уже украдено при..

Все уже украдено придумано до нас

Надо вместо LETO_SIZE_FORMAT использовать "%" HB_PFS

 Отправлено: 06.07.11 16:40. Заголовок: Отлично (в xHarbour ..

Отлично
(в xHarbour также есть HB_PFS ?)

Что решаем с фильтром?

 Отправлено: 06.07.11 16:44. Заголовок: В харбор - нет, но т..

В хХарбор - нет, но там и HB_SIZE тоже нет, так что это не вопрос
А с фильтром - убрать перекодировку на клиенте. Я проверил различные случаи - работает как надо
Через часик выложу

 Отправлено: 06.07.11 16:49. Заголовок: Кстати, смотрю: # ..

Кстати, смотрю:

# if defined( HB_OS_DARWIN ) || defined( HB_OS_SUNOS ) || defined( HB_OS_HPUX )
# define HB_BIG_ENDIAN

darwin это не big endian часом ?

 Отправлено: 06.07.11 17:02. Заголовок: Pasha пишет: darwin..

Pasha пишет:

цитата:

darwin это не big endian часом ?

Какая то проблема с этим?

PS на самом деле это там от безысходности :)
/* We cannot detect byte order, we will have to guess */

 Отправлено: 06.07.11 18:32. Заголовок: sf упал... некстати ..

sf упал... некстати :(

Вот коммит
http://files.mail.ru/H12VQJ

Как поднимут - сброшу

 Отправлено: 07.07.11 09:42. Заголовок: По поводу фильтра Пр..

По поводу фильтра
Примерно, до июня все работало
Смотрю код - ничего с фильтрами и codepage не менялось (явно, по крайней мере)

Нашел!
Оказывается я поправил передачу команды "intro"
Определение codepage клиента заработало - соответственно фильтр упал :)

PS может проще обратно поломать intro? :)
шЮтка

 Отправлено: 07.07.11 10:48. Заголовок: Да, я тоже проверил,..

Да, я тоже проверил, вернул leto без mt - фильтр в таком случае не работает. А там схема работы была точно такой же.
Так что повода для беспокойства нет

 Отправлено: 08.07.11 15:23. Заголовок: Добавил на сервере ф..

Добавил на сервере функции

letoUseArea( nUserStru, nUserStru, cFileName, cAlias, lShared, lReadOnly, cdp ) --> nAreaId
letoOrdListAdd( nUserStru, cBagName ) --> Nil
letoOrdCreate( nUserStru, cBagName, cKey, cTagName,
lUnique, cFor, cWhile, lAll, nRecNo,
nNext, lRest, lDesc, lCustom,
lAdditive ) --> Nil
letoCloseArea( nUserStru ) --> Nil

Эти функции можно вызывать из udf-функции в модуле letoudf

 Отправлено: 12.07.11 15:12. Заголовок: Обновил LetoDB /* ..

Обновил LetoDB /* $Id: Changelog,v 1.350.2.32 2011/07/08 12:15:46 ptsarenko Exp $ */, собрал, сервер не запускается, пишет:
07/12/11 15:07:45: LetoDB service has had some problems

В чем может быть проблема?

 Отправлено: 12.07.11 18:42. Заголовок: У меня было такое со..

У меня было такое сообщение, когда я случайно инсталлировал службу с subst-диска
Еще вариант - запуск блокирует firewall, например от drweb. Ему надо задать правило для letodb.
Какое сообщение выдается при ручном запуске службы ?

 Отправлено: 12.07.11 19:54. Заголовок: Pasha пишет: Какое ..

Pasha пишет:

цитата:

Какое сообщение выдается при ручном запуске службы ?

Как раз вручную и запускал.
До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит?

Фаервол, антивирусы не устанавливал.

 Отправлено: 12.07.11 20:09. Заголовок: AlexMyr пишет: Как ..

AlexMyr пишет:

цитата:

Как раз вручную и запускал. До этого собирал официальным mingw, а эту собрал TDM-GCC, может поэтому глючит? Фаервол, антивирусы не устанавливал.

Т.е., сборка с mingw запускается, а с tdm-gcc нет ? Я собирал только с официальным mingw, mingw64 и bcc, и все успешно. Насчет tdm-gcc ничего не могу сказать.
А что говорит по этому поводу event viewer ?

 Отправлено: 12.07.11 20:15. Заголовок: К слову. Копирую из ..

К слову. Копирую из своего лога:

07/01/11 20:24:31: LetoDB service has had some problems

Это я по недосмотру собрал сервер без -D__WIN_SERVICE__, служба уже была инсталлирована ранее, пытался ее запустить, и конечно получил по заслугам

 Отправлено: 13.07.11 10:10. Заголовок: Пересобрал официальн..

Пересобрал официальным mingw, проблема осталась:
07/13/11 10:07:08: LetoDB service has had some problems

В event viewer ничего нет

 Отправлено: 13.07.11 10:54. Заголовок: Собрал без -D__WIN_S..

Собрал без -D__WIN_SERVICE__, перестало записывать в letodb.ini сообщение при старте letodb. При попытке остановить сервер в letodb.log:
07/13/11 10:23:08: Can't STOP the server (not started?)...

Есть версия:
/* $Id: Changelog,v 1.350.2.15 2011/05/31 10:44:43 aokhotnikov Exp $ */

тут все нормально:
07/13/11 10:53:14: Leto DB Server has been started.
Leto DB Server v.2.02 ! INIT: DataPath=, ShareTables=0, MaxUsers=500, MaxTables=5000, CacheRecords=10
07/13/11 10:53:24: Send STOP to server...
07/13/11 10:53:27: Server has been closed.

 Отправлено: 13.07.11 11:12. Заголовок: AlexMyr пишет: Собр..

AlexMyr пишет:

цитата:

Собрал без -D__WIN_SERVICE__,

Для windows надо собирать или с флагом

__WIN_SERVICE__

или с

__WIN_DAEMON__

 Отправлено: 13.07.11 11:19. Заголовок: собрал с -prgflag={w..

собрал с
-prgflag={win}-D__WIN_DAEMON__
#-prgflag={win}-D__WIN_SERVICE__

заработало

 Отправлено: 13.07.11 12:01. Заголовок: А сервис letodb ни н..

А сервис letodb ни на каком компьютере не запускается ?

 Отправлено: 13.07.11 12:05. Заголовок: Службу я надеюсь вы ..

Службу я надеюсь вы инсталлировали ? Т.е.

letodb install

?

 Отправлено: 13.07.11 12:14. Заголовок: Pasha пишет: А серв..

Pasha пишет:

цитата:

А сервис letodb ни на каком компьютере не запускается ?

Letodb крутится на win98 и на win server 2003 еще старая версия (я уже не помню какой сборки).

Pasha пишет:

цитата:

Службу я надеюсь вы инсталлировали ? Т.е. letodb install ?

Нет, просто запускал, как всегда. А где шла речь о letodb install, м.б. я пропустил этот момент?

 Отправлено: 13.07.11 12:38. Заголовок: Семен Семеныч ! Дык ..

Семен Семеныч !
Дык службу надо сначала инсталлировать
А потом запускать из Панель управления - Администрирование - Службы
Разобрались :)

 Отправлено: 13.07.11 12:43. Заголовок: Pasha пишет: Разобр..

Pasha пишет:

цитата:

Разобрались :)

Так, собрал с
#-prgflag={win}-D__WIN_DAEMON__
-prgflag={win}-D__WIN_SERVICE__

потом letodb install, перезапустил комп, все работает.
Спасибо.

 Отправлено: 13.07.11 16:55. Заголовок: Похоже что есть проблема с COPY TO и APPEND FROM !

Привет !
Тестирую LetoDB MT CVS(rel-1-mt)

написал такую прогу

//////////////////////////
PROCEDURE main()
LOCAL _Server := '//127.0.0.1:2812/'

REQUEST LETO
RDDSETDEFAULT( "LETO" )

use (_Server + 'DVIG') new excl
browse()
copy to (_Server + 'WORK')
use
inkey()
use (_Server + 'WORK') new excl
browse()

RETURN

второй browse() почемуто пустой ?!

с APPEND FROM дело похожее

а может я чтото не так делаю !

P.S. в ST версии LeoDB все работает. Я использую COPY ТО и APPEND FROM для обновления структур свойх таблиц

use table new
copy to temp
use
dbcreate( 'table' , aStru )
use table new
append from temp

в SQL-e хорошо там есть ALTER TABLE

 Отправлено: 14.07.11 21:36. Заголовок: sashaBG пишет: втор..

sashaBG пишет:

цитата:

второй browse() почемуто пустой ?! с APPEND FROM дело похожее а может я чтото не так делаю ! P.S. в ST версии LeoDB все работает.

Поправил. На клиенте изменился протокол для этой команды, а сервер не отрабатывал это изменение.

 Отправлено: 15.07.11 19:44. Заголовок: Переименовал (вернул..

Переименовал (вернул) letodb.lib(a) в rddleto.lib(a). Думаю, так будет лучше, все rdd-либы Harbour имеют префикс rdd
Добавил пару строк под комментарием в качестве примера, как собрать клиентскую shared-библиотеку (dll/so/dylib/sl)

 Отправлено: 21.07.11 09:33. Заголовок: При остановке службы..

При остановке службы бывает, что выскакивает такое сообщение

но служба останавливается. Что может быть?

 Отправлено: 21.07.11 09:56. Заголовок: Pasha пишет: Переим..

Pasha пишет:

цитата:

Переименовал (вернул) letodb.lib(a) в rddleto.lib(a).

Паша, в старой версии было по правилам, библиотеки в папке lib
-olib/rddleto

Если можно, то поменяйте.

 Отправлено: 21.07.11 10:06. Заголовок: Пересобираю letodb и..

Пересобираю letodb и получаю
../../../source/common/net.c:144:18: error: 'MAX_COMPUTERNAME_LENGTH' undeclared (first use in this function)
../../../source/common/net.c:144:18: note: each undeclared identifier is reported only once for each function it appears in
../../../source/common/net.c:148:4: warning: implicit declaration of function 'GetComputerName'
../../../source/common/net.c:145:9: warning: unused variable 'szValue'
hbmk2: Error: Running C/C++ compiler. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -Ic:/dev/harbour/include -I../../../include ../../../.hbmk/win/mingw/rddsys.c ../../../source/client/leto1.c ../../../source/client/letomgmn.c ../../../source/common/blowfish.c ../../../source/common/common_c.c ../../../source/common/hbip.c ../../../source/common/net.c

Вроде ничего глобально не менялось, а такое вылезло и что делать?

 Отправлено: 23.07.11 10:07. Заголовок: AlexMyr пишет: и чт..

AlexMyr пишет:

цитата:

и что делать?

Это не вопрос letodb и не вопрос харбора
MAX_COMPUTERNAME_LENGTH для mingw определен в include\winbase.h. Проверьте, может берутся какие-то другие *.h файлы
Насчет обновления - сделаю в начале августа, т.к. сейчас я в командировке.

 Отправлено: 25.07.11 16:29. Заголовок: Я еще нашел разницу в работе ST и MT версий

Я еще нашел разницу в работе ST и MT версий со SET SCOPE

Первая запись попадающая в SCOPE у меня отображается 2 раза

Картинка

а в ST нет , на картинке видно как я вызываю SCOPE

 Отправлено: 28.07.11 14:12. Заголовок: sashaBG пишет: Перв..

sashaBG пишет:

цитата:

Первая запись попадающая в SCOPE у меня отображается 2 раза

Нужен пример самодостаточный
тогда смогу посмотреть

 Отправлено: 28.07.11 21:14. Заголовок: Тест МТ

вот таким образом я получил подобную ситуацию как в моей MiniGui программе


PROCEDURE MAIN()
LOCAL _Server := '//127.0.0.1:2812/'

REQUEST LETO
RDDSETDEFAULT( "LETO" )

USE (_Server + 'DFAKT_0' ) NEW
INDEX ON DOK TAG DOK
ORDSETFOCUS('DOK')

USE (_Server + 'DFAKT_N' ) NEW
INDEX ON DOK TAG DOK
ORDSETFOCUS('DOK')

SELECT DFAKT_0
GO TOP

SELECT DFAKT_N
SET_SCOPE( )
skip -1
BROWSE()

SELECT DFAKT_0
SKIP

SELECT DFAKT_N
SET_SCOPE( )
skip -1
BROWSE()

RETURN
//----------------------------------------------------
STATIC PROCEDURE SET_SCOPE( )
DFAKT_N->( ORDSCOPE( 0, DFAKT_0->DOK ) )
DFAKT_N->( ORDSCOPE( 1, DFAKT_0->DOK ) )
DFAKT_N->( DBGOTOP() )
RETURN

click here

 Отправлено: 29.07.11 13:33. Заголовок: sashaBG пишет: Я ещ..

sashaBG пишет:

цитата:

Я еще нашел разницу в работе ST и MT версий со SET SCOPE Первая запись попадающая в SCOPE у меня отображается 2 раза

Разобрался.
source\client\leto1.c
Стр. 1791
ULONG ulDataLen, ulRecLen, ulRecNo = 0;

Стр. 1908 - 1911
{
bCurRecInBuf = TRUE;
ulRecNo = pArea->ulRecNo;
}

Стр. 1935
if( ! bCurRecInBuf || ( pArea->ulRecNo == ulRecNo ) )

Я смогу сделать коммит на следующей неделе.

 Отправлено: 01.08.11 19:18. Заголовок: Отправил изменения..

Отправил изменения

 Отправлено: 05.08.11 13:47. Заголовок: Я смотрю, в Harbour ..

Я смотрю, в Harbour SVN убрали HB_LEGACY_TYPES_OFF, и теперь letodb не собирается, хотя с Harbour 3.0 сборка еще работает.
Та же проблема и с hwgui
Надо менять типы данных
ULONG -> HB_ULONG, и т.д
и макросы
ISBYREF -> HB_ISBYREF. и т.д.

Думаю, надо определиться с перечнем версий харбора, для которых возможна сборка letodb
Для Harbour это пусть будут версии 1.0, 2.0, 3.0 и SVN (если с 1.0 еще сборка возможна), для
xHarbour - надо посмотреть.
Думаю, надо отказаться от рудиментов и атавизмов старых версий, и за основу взять новое API.
Скажем, использовать не BOOL, а HB_BOOL, и так далее

 Отправлено: 05.08.11 16:26. Заголовок: Pasha пишет: Думаю,..

Pasha пишет:

цитата:

Думаю, надо отказаться от рудиментов и атавизмов старых версий, и за основу взять новое API. Скажем, использовать не BOOL, а HB_BOOL, и так далее

Я тоже так думаю. Хочу попробовать поправить код hwgui, уже малую часть исправил, но времени не хватает (с нашим законодательством и семейством 1с уже замучился бороться и слов не хватает никаких). Так что с меня +1.

 Отправлено: 06.08.11 20:32. Заголовок: Не стал выдумывать в..

Не стал выдумывать велосипед, и сделал как Przemek для hwgui
Поддержку Harbour 1.0 сделать не получилось.

С MAX_COMPUTERNAME_LENGTH дело оказалось вот в чем:
После

2011-07-17 16:21 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

windows.h неявно не включается, и его надо указывать напрямую

 Отправлено: 07.08.11 22:33. Заголовок: Я получил рекламацию..

Я получил рекламацию из Бразилии, что служба не запускается. Добавил в лог код ошибки - пишут, что ошибка 0.
У меня запуск службы выполняется
Непонятно. Как в той пословице: чи рыба чи рак - Кандыба дурак. Чи рак чи рыба - всэ дурэнь Кандыба.
Подтвердите запуск или незапуск службы.

 Отправлено: 08.08.11 09:54. Заголовок: Pasha пишет: Подтве..

Pasha пишет:

цитата:

Подтвердите запуск или незапуск службы.

Сегодня собрал /* $Id: Changelog,v 1.350.2.38 2011/08/07 06:15:27 ptsarenko Exp $ */
Результат:
08/08/11 09:52:24: Leto DB Server has been started.
Leto DB Server v.2.02 ! INIT: DataPath=, ShareTables=0, MaxUsers=500, MaxTables=5000, CacheRecords=10

 Отправлено: 08.08.11 10:56. Заголовок: И у меня тоже все в ..

И у меня тоже все в порядке. По-видимому, у моего корреспондента проблема не с letodb

 Отправлено: 09.08.11 11:39. Заголовок: Еще test_tr не собир..

Еще test_tr не собирается:

Generating C source output to 'd:\tmp\hbmk_7iyn9u.dir\test_tr.c'... Done.
hbmk2: C/C++ compiler command:
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -Ic:/dev/harbour/include -IC:/dev/letodb/include d:/tmp/hbmk_7iyn9u.dir/test_tr.c d:/tmp/hbmk_o9bjra.c
tests\test_tr.prg: In function 'HB_FUN_LETO_DBTRANS':
tests\test_tr.prg:56:4: warning: implicit declaration of function 'ISNUM'
tests\test_tr.prg:85:13: warning: implicit declaration of function 'ISNIL'
hbmk2: Linker command:
gcc.exe d:/tmp/hbmk_7iyn9u.dir/test_tr.o d:/tmp/hbmk_7iyn9u.dir/hbmk_o9bjra.o -mconsole -Wl,--start-group -lrddleto -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainstd -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -otest_tr.exe -Lc:/dev/harbour/lib/win/mingw -Lc:/dev/harbour/bin -Llib
d:/tmp/hbmk_7iyn9u.dir/test_tr.o:test_tr.c:(.text+0x5e): undefined reference to `ISNIL'
d:/tmp/hbmk_7iyn9u.dir/test_tr.o:test_tr.c:(.text+0x247): undefined reference to `ISNUM'
d:/tmp/hbmk_7iyn9u.dir/test_tr.o:test_tr.c:(.text+0x3ef): undefined reference to `ISNIL'
d:/tmp/hbmk_7iyn9u.dir/test_tr.o:test_tr.c:(.text+0x4ce): undefined reference to `ISNIL'
collect2: ld returned 1 exit status
hbmk2: Error: Running linker. 1
gcc.exe d:/tmp/hbmk_7iyn9u.dir/test_tr.o d:/tmp/hbmk_7iyn9u.dir/hbmk_o9bjra.o -mconsole -Wl,--start-group -lrddleto -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainstd -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -otest_tr.exe -Lc:/dev/harbour/lib/win/mingw -Lc:/dev/harbour/bin -Llib

 Отправлено: 09.08.11 11:49. Заголовок: Надо сделать замену ..

Надо сделать замену IS* => HB_IS*

 Отправлено: 22.08.11 14:39. Заголовок: LetoDB и Linux UBUNTU !

Здравствуйте , захотелось попробовать как работает LetoDB под линукс .
Слил HARBOUR из SVNa , установил необходимые библиотеки и компиляторы
сделал make install и Harbour откомпилировалсая и устоновился в usr/local/bin , библиотеки в usr/local/lib/harbour, include в usr/lib/harbour
потом тупо скопировал из windows компютера LetodbMT . Почитал readme.txt .
въполнил ./make_linux.sh , получилась ошибка bash: ./make_linux.sh /bin/bash^M: bad interpreter: No such fil or directory

потом попробовал hbmk2 rddleto.hbp lrtodb.hbp
Выдало куча ошибок компиляции ERR

Посоветуйте пожалуста как откомпилировать сервер !

 Отправлено: 22.08.11 15:55. Заголовок: sashaBG пишет: ошиб..

sashaBG пишет:

цитата:

ошибка bash: ./make_linux.sh /bin/bash^M: bad interpreter: No such fil or directory

Переводы строк в скрипте виндовые
Надо либо с CVS тянуть в linux
либо окончания строк поменять в формате linux (т.е. только 10, а не 13,10)

цитата:

потом попробовал hbmk2 rddleto.hbp lrtodb.hbp Выдало куча ошибок компиляции ERR

А вот это странно. Файлы не те? По новой с CVS и еще раз

UPD: "lrtodb.hbp" - шо це тако???

 Отправлено: 22.08.11 16:14. Заголовок: Я как-то делал компиляцию под UBUNTU

Зайдите на мой бложик, там на http://dimao.blogspot.com/p/blog-page.html есть мои пошаговые заметки. Буду рад, если поможет.

 Отправлено: 22.08.11 16:17. Заголовок: alx_on пишет: UPD: ..

alx_on пишет:

цитата:

UPD: "lrtodb.hbp" - шо це тако???

lеtodb.hbp конечно , опечатка вышла :)
попробую тянуть с CVS

 Отправлено: 22.08.11 16:25. Заголовок: dimao, скажите, вы с..

dimao, скажите, вы сталкивались на Ubuntu с таким "эффектом", что letodb не реагирует на установку ShareTables? Т.е. всегда ведет себя так, как будто ShareTables = 1.

 Отправлено: 22.08.11 16:31. Заголовок: Я глубоко не копал. ..

Я глубоко не копал. собралось, тесты простенькие потянуло. мне большего и не надо пока. К сожалению давно отошел от программирования - просто тусоваться тут приятно, тешить себя мыслью "и я таким же умным был когда-то"

 Отправлено: 22.08.11 16:35. Заголовок: А вот подскажите, че..

А вот подскажите, честной народ, какую версию ЛЕТО взять для продуктивной системы? и каким Харбуром компилировать. Требование - максимально возможное отсутствие глюков. Главное, чтобы меньше старые проги переделывать для работы.

 Отправлено: 22.08.11 16:56. Заголовок: CVS

Не знаю как быть с rel-1-mt где указать етот параметр .Я выполнил cvs -d:pserver:anonymous@letodb.cvs.sourceforge.net:/cvsroot/letodb checkout letodb и получил ST версию

 Отправлено: 22.08.11 17:01. Заголовок: cvs -d:pserver:anony..

cvs -d:pserver:anonymous@letodb.cvs.sourceforge.net:/cvsroot/letodb checkout -r rel-1-mt letodb

 Отправлено: 23.08.11 07:52. Заголовок: alx_on пишет: цит..

alx_on пишет:

цитата:

цитата: потом попробовал hbmk2 rddleto.hbp lrtodb.hbp Выдало куча ошибок компиляции ERR А вот это странно.

Похоже, ситуация следующая. Типы данных BOOL, SHORT/USHORT, LONG/ULONG, константы FALSE/TRUE уже не харборовские.
Под windows сборка получается, потому что все они определены во включаемых файлах windows.
Под linux они не определены.

Вывод: надо в letodb делать глобальную замену:

ULONG --> HB_ULONG
BOOL --> HB_BOOL
и так далее

PS. Это все касается Harbour SVN. В релизе 3.0 сборка выполняется.

 Отправлено: 23.08.11 07:57. Заголовок: dimao пишет: А вот ..

dimao пишет:

цитата:

А вот подскажите, честной народ, какую версию ЛЕТО взять для продуктивной системы? и каким Харбуром компилировать.

Я сейчас использую letodb с CVS (mt), собранный Harbour 3.0. На текущий момент глюков не обнаружено (все обнаруженные пофиксены). Падения сервера не видел ни разу.

 Отправлено: 23.08.11 09:04. Заголовок: Pasha, спасибо. А на..

Pasha, спасибо. А на какой системе? (WIN?LIN?) Заманчиво сделать маленький LINUX сервачок без иксов с малым энергопотреблением. Есть какие-то наработки? Есть ли в ЛЕТО какие-то механизмы резервного копирования?

 Отправлено: 23.08.11 09:27. Заголовок: Я ставлю сервер под ..

Я ставлю сервер под windows, под линукс не приходилось
Насчет резервного копирования - я думал над этим
Видится это как отдельная утилита, которая бы крутилась на сервере, сканировала заданные папки, если это таблицы dbf - открывала бы их через letodb с локальным коннектом, блокировала их через fillock. копировала через Copy To, и результирующую папку архивировала бы
Какие будут мысли ?

 Отправлено: 23.08.11 09:33. Заголовок: hbmk2 все откопилилось

через hbmk2 все откопилилось , Но не удалось запустить теперь при старте -> letodb: error while loading shared libraries: libharbour.so.3.0: cannot open shared object file: No such file or directory

копировал е етот фал в папке где находится letodb и там где harbour но все равно не хочет . А может ето у меня из за линукса я експериментирую на ZENTYAL Linux Small Business Server www.zentyal.org он базирован на Ubuntu 10.04 . Хороший сервер у меня на нем фирменное FTP, VPN и куча всего. Для тех кому интерсно что ето такое click here

 Отправлено: 23.08.11 09:46. Заголовок: sashaBG пишет: чере..

sashaBG пишет:

цитата:

через hbmk2 все откопилилось , Но не удалось запустить теперь при старте -> letodb: error while loading shared libraries: libharbour.so.3.0: cannot open shared object file: No such file or directory

Насколько я помню, делал так:

в /etc/ld.so.conf.d задаем:
echo /usr/local/lib/harbour > harbour.conf
ldconfig

только надо уточнить каталог, куда установлен Harbour

 Отправлено: 23.08.11 09:48. Заголовок: sashaBG пишет: копи..

sashaBG пишет:

цитата:

копировал е етот фал в папке где находится letodb и там где harbour но все равно не хочет

Там же много so-библиотек. Надо копировать их все, а лучше настроить путь доступа к ним

 Отправлено: 23.08.11 10:40. Заголовок: Паша пишет Насчет р..

Паша пишет

цитата:

Насчет резервного копирования

Я примерно так делал для 1с, хотя там есть и специальные приблуды.
В нужное время планировщик запускал батник.
В батнике было
- скопировать нужные файлы по маске в указанное место
- создать архив (arj, rar)
Копировать dbf в 1с можно и при запущенной программе, если нет монопольного открытия баз.
Разрывов баз не наблюдалось. Копирование назначалось на время наименьшей активностью пользователей: в обед, вечером или ночью (если сервер не выключается).
В letodb вам видннее, можно ли базы скопировать внешней программой или нет. Если ничто там монопольно не открывается, наверно можно

 Отправлено: 23.08.11 11:51. Заголовок: Спасибо Паша !

Спасибо большое Паша

цитата:

в /etc/ld.so.conf.d задаем: echo /usr/local/lib/harbour > harbour.conf ldconfig

ето помогло

 Отправлено: 23.08.11 12:21. Заголовок: Vlad04 пишет: Если ..

Vlad04 пишет:

цитата:

Если ничто там монопольно не открывается,

Как раз в основном режиме БД открывается монопольно, так что и резервное копирование надо делать через letodb

 Отправлено: 02.09.11 11:17. Заголовок: Вопрос чисто теорити..

Вопрос чисто теоритический:
1) А сколько юзеров потянет LetoDB если СЕРВЕР-LetoDB расположить в каком нибудь ДАТА-Центре ?
2) Какие ресурсы (память, процессор...) нужно заказывать у провайдера ?
3) Хочется такое разделение по папкам городов (у меня программа работает в нескольких городах)
\город1\
\город2\
........
\городN\
Как тогда использовать LetoDb (что лучше): запускать для каждого города свой Сервер-LetoDB или ОДИН Сервер-LetoDB ?
Преимущества и недостатки этих вариантов...
4) На какой платформе делать Сервер-LetoDB: Linux или Windows (клиенты будут под Windows) ?

Заранее спасибо за ответ.

 Отправлено: 07.09.11 09:58. Заголовок: 1. Ограничения на ко..

1. Ограничения на количество юзеров нет. Сколько потянет - могу только сказать, что очень много.
2. Могу только сказать по поводу процессора: чем больше ядер - тем лучше. Насчет оперативки: так как она сейчас измеряется гигабайтами, а letodb занимает в памяти мегабайты, плюс сотни килобайт на каждого подключенного юзера (порядок примерно такой), то ОП - это некритичный ресурс.
3. Да ради бога, можно так и организовать. Сервер путь будет один. Пусть сама БД располагается в какой-нибудь папке, ее и указать в letodb.ini.
У каждого клиента сделать настройку папки, где располагается его БД
В строке коннекта ее и указывать.
А несколько копий letodb можно запускать, если указать каждому серверу в настройке отдельный порт. Но если letodb собран как служба windows, такой вариант не получится, поскольку служба может быть только одна
4. Могу сказать, что letodb хорошо работает и под linux, и под windows.